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/hyb_mgga_x_js18.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, t6, t7, t8, t9, t10;
24   double t11, t12, t13, t14, t15, t17, t18, t19;
25   double t20, t21, t23, t24, t25, t26, t27, t28;
26   double t29, t30, t31, t32, t33, t34, t35, t36;
27   double t37, t38, t39, t40, t41, t42, t43, t45;
28   double t46, t47, t49, t51, t52, t53, t54, t55;
29   double t56, t58, t62, t63, t64, t67, t68, t69;
30   double t70, t71, t73, t75, t76, t78, t79, t82;
31   double t85, t88, t89, t90, t93, t94, t95, t98;
32   double t101, t104, t105, t107, t108, t109, t110, t113;
33   double t114, t115, t116, t117, t121, t123, t125, t127;
34   double t128, t130, t134, t136, t140, t144, t147, t148;
35   double t149, t151, t154, t156, t157, t160, t161, t165;
36   double t167, t168, t169, t170, t171, t172, t176, t178;
37   double t179, t180, t181, t185, t189, t193, t194, t197;
38   double t198, t207, t208, t210, t211, t214, t215, t226;
39   double t229, t232, t234;
40 
41 #ifndef XC_DONT_COMPILE_VXC
42   double t237, t239, t240, t241, t242, t245, t246, t248;
43   double t250, t251, t254, t255, t256, t257, t260, t261;
44   double t266, t267, t269, t270, t271, t273, t275, t277;
45   double t279, t280, t285, t287, t291, t292, t295, t298;
46   double t299, t300, t303, t306, t309, t310, t313, t316;
47   double t318, t319, t320, t322, t323, t327, t331, t334;
48   double t335, t338, t339, t341, t342, t345, t347, t348;
49   double t349, t354, t356, t362, t364, t367, t372, t374;
50   double t380, t381, t384, t387, t388, t389, t393, t396;
51   double t397, t398, t399, t400, t403, t407, t408, t414;
52   double t425, t429, t431, t435, t439, t440, t442, t443;
53   double t444, t445, t446, t457, t460, t468, t469, t475;
54   double t476, t487, t490, t493, t496, t499, t505, t506;
55   double t508, t510, t511, t513, t518, t520, t522, t523;
56   double t527, t532, t537, t538, t539, t542, t545, t551;
57   double t553, t554, t555, t557, t561, t565, t568, t569;
58   double t572, t573, t576, t581, t583, t585, t589, t597;
59   double t599, t602, t605, t608, t611, t612, t613, t616;
60   double t619, t620, t623, t627, t628, t631, t632, t635;
61   double t636, t638, t639, t641, t643, t648, t649, t655;
62   double t664, t670, t673, t674, t677, t678, t680, t682;
63   double t683, t685, t688, t689, t690, t691, t696, t697;
64   double t700, t703, t704, t705, t709, t714, t715, t721;
65   double t724, t731;
66 
67 #ifndef XC_DONT_COMPILE_FXC
68   double t734, t741, t743, t744, t747, t750, t752, t754;
69   double t755, t757, t762, t763, t764, t765, t766, t767;
70   double t770, t771, t774, t775, t778, t782, t783, t784;
71   double t786, t788, t790, t792, t793, t794, t798, t801;
72   double t802, t807, t811, t812, t819, t821, t822, t823;
73   double t827, t832, t838, t839, t843, t855, t857, t859;
74   double t860, t861, t864, t867, t868, t871, t874, t880;
75   double t882, t884, t886, t890, t896, t902, t903, t905;
76   double t908, t911, t914, t915, t916, t920, t921, t922;
77   double t929, t932, t940, t941, t946, t951, t955, t956;
78   double t957, t960, t963, t965, t968, t969, t971, t972;
79   double t977, t984, t985, t986, t988, t990, t995, t1000;
80   double t1005, t1008, t1009, t1012, t1015, t1018, t1023, t1026;
81   double t1027, t1031, t1032, t1035, t1039, t1046, t1047, t1049;
82   double t1060, t1062, t1077, t1078, t1080, t1084, t1088, t1090;
83   double t1094, t1098, t1099, t1104, t1105, t1106, t1112, t1121;
84   double t1124, t1132, t1139, t1140, t1143, t1150, t1151, t1154;
85   double t1155, t1158, t1159, t1162, t1175, t1178, t1181, t1186;
86   double t1189, t1192, t1197, t1202, t1205, t1209, t1210, t1212;
87   double t1214, t1216, t1217, t1219, t1225, t1226, t1227, t1230;
88   double t1233, t1236, t1240, t1241, t1244, t1245, t1246, t1249;
89   double t1252, t1260, t1262, t1263, t1266, t1269, t1270, t1275;
90   double t1280, t1286, t1287, t1288, t1292, t1297, t1301, t1304;
91   double t1314, t1315, t1317, t1320, t1323, t1329, t1330, t1331;
92   double t1334, t1337, t1339, t1340, t1343, t1350, t1354, t1356;
93   double t1357, t1358, t1359, t1360, t1362, t1367, t1370, t1377;
94   double t1382, t1385, t1386, t1389, t1390, t1395, t1400, t1409;
95   double t1413, t1417, t1419, t1424, t1426, t1443, t1452, t1454;
96   double t1459, t1468, t1471, t1474, t1475, t1476, t1481, t1484;
97   double t1491, t1492, t1504, t1505, t1507, t1515, t1516, t1520;
98   double t1523, t1524, t1526, t1528, t1530, t1532, t1534, t1537;
99   double t1539, t1542, t1551, t1552, t1555, t1563, t1566, t1569;
100   double t1572, t1576, t1577, t1580, t1587, t1597, t1600, t1605;
101   double t1610, t1611, t1616, t1620, t1621, t1623, t1625, t1627;
102   double t1628, t1630, t1636, t1637, t1640, t1645, t1648, t1651;
103   double t1652, t1653, t1655, t1658, t1661, t1662, t1665, t1678;
104   double t1679, t1681, t1689, t1690, t1705, t1708, t1717, t1718;
105   double t1721, t1731, t1736, t1739, t1742, t1747, t1751, t1756;
106   double t1761, t1762, t1765, t1767, t1768, t1769, t1770, t1772;
107   double t1773, t1774, t1775, t1781, t1784, t1787, t1790, t1792;
108   double t1793, t1794, t1799, t1801, t1806, t1811, t1812, t1822;
109   double t1823, t1825, t1828, t1837, t1838, t1839, t1842, t1845;
110   double t1851, t1852, t1853, t1863, t1865, t1866, t1867, t1868;
111   double t1869, t1872, t1875, t1887, t1890, t1891, t1894, t1895;
112   double t1900, t1903, t1906, t1907, t1915, t1917, t1919, t1921;
113   double t1923, t1925, t1931, t1950, t1952, t1954, t1960, t1970;
114   double t1973, t1976, t1977, t1978, t1987, t1988, t1991, t1992;
115   double t1993, t1994, t1997, t2001, t2007, t2008, t2009, t2013;
116   double t2014, t2017, t2018, t2020, t2022, t2025, t2027, t2029;
117   double t2033, t2034, t2035, t2038, t2045, t2048, t2051, t2054;
118   double t2056, t2059, t2067, t2070, t2079, t2080, t2083, t2087;
119   double t2088, t2090, t2092, t2094, t2095, t2102, t2105, t2110;
120   double t2113, t2117, t2120, t2123, t2136, t2137, t2143, t2147;
121   double t2149, t2151, t2158, t2160, t2162, t2168, t2172, t2173;
122   double t2176, t2186, t2191, t2194, t2206, t2211, t2212, t2215;
123   double t2218, t2221, t2222, t2224, t2226, t2228, t2229, t2233;
124   double t2236, t2240, t2243, t2246, t2251, t2258, t2259, t2263;
125   double t2264, t2268, t2272, t2279, t2286, t2287, t2290, t2295;
126   double t2298, t2303, t2306, t2316, t2317;
127 
128 #ifndef XC_DONT_COMPILE_KXC
129   double t2329, t2334, t2335, t2336, t2339, t2340, t2343, t2344;
130   double t2347, t2352, t2354, t2355, t2358, t2362, t2364, t2366;
131   double t2367, t2370, t2378, t2379, t2380, t2381, t2384, t2387;
132   double t2388, t2397, t2399, t2406, t2407, t2410, t2411, t2414;
133   double t2415, t2418, t2419, t2422, t2425, t2427, t2428, t2429;
134   double t2436, t2441, t2455, t2456, t2460, t2464, t2465, t2468;
135   double t2470, t2472, t2473, t2478, t2481, t2483, t2485, t2486;
136   double t2487, t2488, t2489, t2490, t2491, t2492, t2494, t2495;
137   double t2498, t2503, t2506, t2509, t2510, t2512, t2513, t2515;
138   double t2519, t2524, t2527, t2530, t2533, t2534, t2537, t2538;
139   double t2540, t2541, t2543, t2544, t2547, t2548, t2551, t2554;
140   double t2557, t2558, t2560, t2561, t2564, t2578, t2582, t2583;
141   double t2602, t2611, t2614, t2617, t2620, t2621, t2628, t2632;
142   double t2633, t2634, t2637, t2640, t2647, t2650, t2653, t2660;
143   double t2661, t2666, t2669, t2672, t2673, t2678, t2679, t2684;
144   double t2708, t2711, t2717, t2720, t2723, t2726, t2729, t2736;
145   double t2741, t2744, t2747, t2752, t2755, t2778, t2783, t2798;
146   double t2801, t2802, t2806, t2807, t2815, t2818, t2819, t2823;
147   double t2828, t2830, t2833, t2849, t2852, t2870, t2873, t2880;
148   double t2884, t2887, t2891, t2895, t2896, t2918, t2921, t2929;
149   double t2936, t2943, t2944, t2951, t2955, t2957, t2958, t2959;
150   double t2966, t2967, t2980, t2981, t2984, t2985, t2988, t2991;
151   double t2992, t2995, t2996, t2999, t3002, t3009, t3014, t3025;
152   double t3028, t3031, t3036, t3043, t3050, t3053, t3056, t3063;
153   double t3064, t3069, t3074, t3077, t3080, t3083, t3084, t3087;
154   double t3088, t3091, t3094, t3101, t3106, t3109, t3114, t3117;
155   double t3125, t3127, t3131, t3132, t3134, t3138, t3140, t3141;
156   double t3145, t3148, t3150, t3151, t3152, t3155, t3159, t3161;
157   double t3162, t3165, t3167, t3169, t3171, t3174, t3176, t3180;
158   double t3183, t3187, t3190, t3192, t3195, t3200, t3213, t3248;
159   double t3256, t3263, t3268, t3269, t3278, t3286, t3295, t3298;
160   double t3310, t3317, t3318, t3322, t3326, t3333, t3334, t3339;
161   double t3344, t3349, t3350, t3355, t3356, t3359, t3360, t3373;
162   double t3376, t3378, t3380, t3381, t3385, t3388, t3392, t3395;
163   double t3396, t3398, t3399, t3401, t3402, t3405, t3410, t3411;
164   double t3412, t3413, t3414, t3415, t3416, t3418, t3419, t3424;
165   double t3425, t3428, t3429, t3432, t3435, t3440, t3441, t3442;
166   double t3445, t3458, t3463, t3464, t3465, t3468, t3471, t3472;
167   double t3473, t3476, t3483, t3486, t3493, t3494, t3501, t3504;
168   double t3507, t3512, t3514, t3515, t3518, t3521, t3544, t3547;
169   double t3551, t3571, t3574, t3579, t3582, t3592, t3595, t3598;
170   double t3612, t3615, t3628, t3631, t3650, t3658, t3670, t3677;
171   double t3692, t3694, t3730, t3733, t3740, t3742, t3751, t3766;
172   double t3777, t3780, t3784, t3790, t3792, t3796, t3797, t3804;
173   double t3807, t3810, t3817, t3819, t3829, t3833, t3834, t3837;
174   double t3842, t3847, t3852, t3853, t3856, t3857, t3860, t3863;
175   double t3866, t3868, t3869, t3871, t3872, t3875, t3883, t3888;
176   double t3891, t3896, t3901, t3906, t3911, t3914, t3923, t3927;
177   double t3948, t3950, t3951, t3956, t3957, t3958, t3961, t3964;
178   double t3967, t3968, t3971, t3972, t3975, t3978, t3981, t3990;
179   double t3993, t3996, t4003, t4006, t4009, t4011, t4015, t4016;
180   double t4018, t4020, t4022, t4024, t4026, t4027, t4030, t4045;
181   double t4046, t4049, t4050, t4053, t4054, t4057, t4068, t4070;
182   double t4073, t4076, t4087, t4094, t4097, t4100, t4103, t4116;
183   double t4121, t4124, t4129, t4142, t4160, t4161, t4172, t4175;
184   double t4190, t4194, t4195, t4198, t4203, t4204, t4209, t4212;
185   double t4213, t4217, t4220, t4221, t4223, t4226, t4229, t4231;
186   double t4239, t4240, t4241, t4248, t4251, t4254, t4261, t4264;
187   double t4267, t4268, t4269, t4278, t4280, t4292, t4299, t4302;
188   double t4309, t4312, t4323, t4335, t4338, t4339, t4348, t4351;
189   double t4354, t4357, t4364, t4367, t4380, t4383, t4386, t4391;
190   double t4394, t4399, t4400, t4401, t4402, t4403, t4408, t4413;
191   double t4416, t4417, t4420, t4421, t4422, t4423, t4426, t4427;
192   double t4430, t4433, t4434, t4437, t4440, t4443, t4446, t4447;
193   double t4448, t4449, t4450, t4451, t4452, t4453, t4456, t4460;
194   double t4463, t4466, t4477, t4479, t4480, t4481, t4484, t4485;
195   double t4486, t4511, t4512, t4513, t4514, t4515, t4516, t4517;
196   double t4525, t4528, t4533, t4536, t4553, t4558, t4579, t4585;
197   double t4586, t4587, t4588, t4592, t4595, t4598, t4600, t4602;
198   double t4604, t4605, t4606, t4607, t4608, t4609, t4610, t4611;
199   double t4612, t4614, t4617, t4622, t4640, t4641, t4644, t4646;
200   double t4648, t4650, t4651, t4652, t4656, t4663, t4664, t4669;
201   double t4670, t4673, t4674, t4677, t4678, t4681, t4682, t4687;
202   double t4688, t4691, t4694, t4695, t4696, t4699, t4700, t4707;
203   double t4708, t4709, t4712, t4715, t4731, t4734, t4735, t4736;
204   double t4758, t4761, t4766, t4769, t4779, t4782, t4785, t4791;
205   double t4793, t4796, t4797, t4800, t4803, t4810, t4811, t4818;
206   double t4821, t4826, t4829, t4883, t4891, t4901, t4906, t4911;
207   double t4919, t4942, t4943, t4948, t4952, t4955, t4979, t4981;
208   double t4984, t4986, t4990, t4991, t4994, t4997, t5000, t5009;
209   double t5010, t5011, t5026, t5028, t5030, t5033, t5034, t5039;
210   double t5042, t5043, t5046, t5047, t5052, t5057, t5060, t5061;
211   double t5062, t5063, t5072, t5073, t5075, t5077, t5079, t5081;
212   double t5084, t5087, t5090, t5092, t5093, t5094, t5095, t5096;
213   double t5101, t5102, t5103, t5104, t5109, t5111, t5114, t5115;
214   double t5116, t5123, t5130, t5134, t5136, t5137, t5139, t5140;
215   double t5143, t5144, t5157, t5162, t5165, t5171, t5174, t5179;
216   double t5185, t5204, t5207, t5212, t5225, t5228, t5231, t5236;
217   double t5241, t5246, t5247, t5252, t5258, t5261, t5268, t5270;
218   double t5272, t5274, t5276, t5278, t5280, t5282, t5284, t5285;
219   double t5294, t5297, t5302, t5307, t5318, t5320, t5322, t5324;
220   double t5327, t5329, t5332, t5344, t5347, t5353, t5360, t5363;
221   double t5376, t5377, t5388, t5391, t5394, t5397, t5400, t5413;
222   double t5422, t5427, t5428, t5450, t5451, t5454, t5477, t5478;
223   double t5479, t5485, t5488, t5497, t5498, t5501, t5518, t5522;
224   double t5533, t5536, t5543, t5546, t5549, t5560, t5565, t5568;
225   double t5569, t5580, t5581, t5584, t5587, t5590, t5591, t5592;
226   double t5599, t5608, t5609, t5614, t5621, t5628, t5634, t5637;
227   double t5640, t5641, t5644, t5669, t5672, t5675, t5678, t5685;
228   double t5688, t5699, t5702, t5705, t5712, t5715, t5726, t5737;
229   double t5742, t5743, t5756, t5759, t5766, t5773, t5775, t5777;
230   double t5779, t5781, t5783, t5785, t5786, t5787, t5800, t5801;
231   double t5804, t5805, t5808, t5819, t5820, t5827, t5831, t5834;
232   double t5835, t5840, t5855, t5856, t5859, t5862, t5864, t5867;
233   double t5876, t5879, t5885, t5896, t5899, t5902, t5906, t5909;
234   double t5911, t5914, t5915, t5932, t5935, t5942, t5944, t5953;
235   double t5958, t5961, t5962, t5965, t5968, t5969, t5976, t5989;
236   double t5996, t6005, t6011, t6022, t6027, t6030, t6033, t6036;
237   double t6039, t6044, t6045, t6048, t6051, t6054, t6059, t6061;
238   double t6062, t6064, t6067, t6068, t6069, t6070, t6071, t6072;
239   double t6081, t6082, t6084, t6085, t6086, t6087, t6089, t6094;
240   double t6095, t6096, t6097, t6100, t6107, t6108, t6109, t6112;
241   double t6115, t6116, t6119, t6120, t6121, t6122, t6126, t6127;
242   double t6130, t6131, t6132, t6133, t6138, t6139, t6140, t6143;
243   double t6146, t6147, t6148, t6149, t6154, t6158, t6165, t6166;
244   double t6171, t6174, t6176, t6186, t6187, t6189, t6193, t6194;
245   double t6199, t6209, t6210, t6213, t6216, t6228, t6229, t6231;
246   double t6233, t6234, t6235, t6236, t6237, t6241, t6246, t6266;
247   double t6271, t6272, t6275, t6276, t6279, t6320, t6323, t6344;
248   double t6348, t6350, t6357, t6359, t6363, t6377, t6390, t6391;
249   double t6395, t6396, t6399, t6404, t6407, t6414, t6415, t6418;
250   double t6419, t6428, t6429, t6432, t6435, t6440, t6441, t6448;
251   double t6449, t6453, t6454, t6460, t6478, t6481, t6490, t6493;
252   double t6495, t6498, t6499, t6500, t6505, t6506, t6509, t6510;
253   double t6511, t6512, t6513, t6516, t6520, t6523, t6526, t6528;
254   double t6531, t6536, t6541, t6542, t6545, t6546, t6547, t6549;
255   double t6551, t6553, t6554, t6555, t6556, t6567, t6570, t6571;
256   double t6574, t6576, t6577, t6582, t6583, t6584, t6586, t6589;
257   double t6593, t6594, t6596, t6598, t6603, t6604, t6605, t6612;
258   double t6619, t6620, t6621, t6623, t6626, t6629, t6630, t6639;
259   double t6640, t6655, t6656, t6661, t6662, t6663, t6665, t6678;
260   double t6679, t6680, t6685, t6688, t6691, t6700, t6704, t6706;
261   double t6715, t6716, t6721, t6722, t6723, t6726, t6730, t6733;
262   double t6736, t6740, t6748, t6749, t6750, t6752, t6755, t6758;
263   double t6766, t6767, t6773, t6776, t6779, t6782, t6787, t6788;
264   double t6789, t6810, t6815, t6821, t6822, t6827, t6830, t6833;
265   double t6836, t6839, t6848, t6852, t6853, t6855, t6857, t6859;
266   double t6861, t6863, t6864, t6871, t6881, t6883, t6885, t6891;
267   double t6896, t6900, t6906, t6909, t6912, t6913, t6918, t6923;
268   double t6926, t6947, t6950, t6953, t6956, t6959, t6962, t6965;
269   double t6968, t6982, t6985, t6988, t7005, t7006, t7012, t7017;
270   double t7020, t7029, t7032, t7047, t7053, t7058, t7073, t7081;
271   double t7090, t7093, t7096, t7110, t7114, t7125, t7128, t7132;
272   double t7135, t7138, t7143, t7148, t7158, t7159, t7162, t7163;
273   double t7170, t7171, t7174, t7179, t7181, t7183, t7185, t7187;
274   double t7188, t7198, t7201, t7204, t7213, t7214, t7222, t7229;
275   double t7230, t7233, t7236, t7241, t7250, t7256, t7260, t7263;
276   double t7275, t7278, t7289, t7298, t7301, t7305, t7307;
277 
278 #ifndef XC_DONT_COMPILE_LXC
279   double t7333, t7336, t7343, t7354, t7360, t7363, t7376, t7383;
280   double t7384, t7388, t7394, t7405, t7409, t7412, t7433, t7439;
281   double t7441, t7447, t7450, t7461, t7462, t7466, t7469, t7482;
282   double t7483, t7484, t7501, t7528, t7549, t7552, t7555, t7560;
283   double t7561, t7566, t7568, t7572, t7577, t7581, t7583, t7584;
284   double t7585, t7589, t7592, t7594, t7595, t7625, t7629, t7633;
285   double t7656, t7675, t7676, t7692, t7693, t7697, t7714, t7716;
286   double t7719, t7724, t7727, t7729, t7731, t7736, t7738, t7740;
287   double t7742, t7747, t7748, t7750, t7754, t7758, t7770, t7780;
288   double t7790, t7800, t7809, t7813, t7816, t7823, t7828, t7831;
289   double t7834, t7837, t7840, t7843, t7846, t7849, t7852, t7855;
290   double t7856, t7857, t7858, t7863, t7864, t7865, t7866, t7867;
291   double t7868, t7877, t7878, t7881, t7896, t7907, t7908, t7914;
292   double t7917, t7933, t7950, t7961, t8003, t8045, t8049, t8056;
293   double t8063, t8066, t8076, t8081, t8084, t8087, t8088, t8091;
294   double t8094, t8097, t8100, t8114, t8123, t8153, t8170, t8194;
295   double t8198, t8235, t8252, t8260, t8266, t8280, t8282, t8304;
296   double t8310, t8324, t8329, t8330, t8341, t8349, t8405, t8438;
297   double t8442, t8446, t8450, t8459, t8462, t8465, t8470, t8485;
298   double t8499, t8519, t8522, t8527, t8536, t8540, t8548, t8555;
299   double t8570, t8573, t8575, t8577, t8579, t8581, t8583, t8586;
300   double t8588, t8592, t8596, t8600, t8603, t8606, t8633, t8639;
301   double t8642, t8647, t8652, t8655, t8680, t8681, t8683, t8690;
302   double t8713, t8722, t8731, t8736, t8741, t8744, t8746, t8764;
303   double t8768, t8780, t8802, t8805, t8810, t8813, t8816, t8841;
304   double t8862, t8893, t8919, t8922, t8929, t8938, t8943, t8970;
305   double t8994, t8996, t9026, t9038, t9040, t9045, t9071, t9072;
306   double t9076, t9080, t9084, t9085, t9094, t9097, t9100, t9105;
307   double t9106, t9111, t9112, t9115, t9116, t9119, t9120, t9135;
308   double t9140, t9143, t9148, t9165, t9170, t9172, t9176, t9178;
309   double t9179, t9180, t9181, t9182, t9183, t9184, t9185, t9186;
310   double t9187, t9189, t9191, t9192, t9194, t9199, t9208, t9211;
311   double t9212, t9215, t9218, t9220, t9224, t9226, t9228, t9229;
312   double t9233, t9235, t9236, t9241, t9247, t9248, t9249, t9251;
313   double t9256, t9264, t9265, t9289, t9312, t9338, t9356, t9374;
314   double t9397, t9399, t9401, t9403, t9409, t9418, t9440, t9479;
315   double t9522, t9540, t9543, t9546, t9549, t9554, t9557, t9558;
316   double t9566, t9579, t9582, t9615, t9642, t9670, t9687, t9712;
317   double t9724, t9729, t9738, t9764, t9769, t9778, t9781, t9788;
318   double t9793, t9815, t9818, t9821, t9836, t9852, t9872, t9876;
319   double t9883, t9898, t9901, t9915, t9938, t9940, t9961, t9970;
320   double t9973, t9976, t9979, t9982, t9989, t10002, t10017, t10028;
321   double t10055, t10073, t10089, t10091, t10095, t10105, t10121, t10127;
322   double t10130, t10181, t10188, t10224, t10225, t10243, t10250, t10258;
323   double t10264, t10284, t10288, t10292, t10295, t10296, t10327, t10336;
324   double t10340, t10374, t10379, t10392, t10416, t10432, t10437, t10441;
325   double t10451, t10469, t10477, t10484, t10485, t10504, t10507, t10509;
326   double t10512, t10515, t10520, t10522, t10525, t10530, t10535, t10546;
327   double t10557, t10560, t10562, t10564, t10566, t10569, t10572, t10584;
328   double t10592, t10596, t10631, t10662, t10663, t10679, t10685, t10688;
329   double t10699, t10708, t10709, t10714, t10717, t10742, t10743, t10746;
330   double t10753, t10756, t10757, t10760, t10761, t10796, t10797, t10835;
331   double t10845, t10852, t10877, t10883, t10928, t10933, t10937, t10940;
332   double t10941, t10943, t10947, t10950, t10953, t10971, t10973, t10981;
333   double t10987, t11009, t11024, t11040, t11042, t11076, t11093, t11103;
334   double t11108, t11113, t11116, t11152, t11184, t11208, t11217, t11218;
335   double t11223, t11230, t11233, t11238, t11241, t11244, t11264, t11277;
336   double t11284, t11287, t11290, t11299, t11302, t11309, t11313, t11316;
337   double t11317, t11321, t11331, t11336, t11346, t11353, t11359, t11375;
338   double t11384, t11396, t11398, t11400, t11402, t11404, t11408, t11409;
339   double t11415, t11420, t11462, t11484, t11485, t11495, t11507, t11510;
340   double t11528, t11546, t11550, t11557, t11559, t11565, t11586, t11590;
341   double t11594, t11614, t11637, t11639, t11670, t11677, t11678, t11691;
342   double t11703, t11713, t11716, t11720, t11721, t11726, t11727, t11741;
343   double t11744, t11765, t11770, t11787, t11803, t11808, t11811, t11814;
344   double t11826, t11838, t11845, t11853, t11864, t11876, t11877, t11894;
345   double t11898, t11906, t11920, t11923, t11925, t11929, t11934, t11945;
346   double t11949, t11951, t11955, t11956, t11958, t11960, t11963, t11967;
347   double t11968, t11970, t11998, t12000, t12008, t12016, t12019, t12027;
348   double t12029, t12031, t12033, t12034, t12036, t12046, t12049, t12053;
349   double t12070, t12073, t12078, t12086, t12091, t12125, t12135, t12136;
350   double t12139, t12153, t12155, t12160, t12186, t12188, t12198, t12200;
351   double t12202, t12207, t12209, t12216, t12218, t12220, t12222, t12232;
352   double t12263, t12298, t12301, t12308, t12310, t12340, t12343, t12346;
353   double t12366, t12372, t12377, t12388, t12409, t12423, t12436, t12463;
354   double t12468, t12500, t12512, t12519, t12541, t12545, t12564, t12570;
355   double t12611, t12612, t12613, t12614, t12615, t12616, t12621, t12622;
356   double t12631, t12633, t12636, t12653, t12664, t12665, t12672, t12705;
357   double t12741, t12754, t12761, t12764, t12785, t12832, t12857, t12868;
358   double t12872, t12895, t12914, t12917, t12925, t12931, t12938, t12959;
359   double t12964, t12999, t13003, t13037, t13043, t13062, t13070, t13073;
360   double t13084, t13097, t13119, t13124, t13131, t13140, t13148, t13162;
361   double t13172, t13175, t13189, t13235, t13273, t13279, t13295, t13299;
362   double t13310, t13339, t13350, t13380, t13394, t13403, t13410, t13414;
363   double t13418, t13420, t13423, t13428, t13436, t13441, t13445, t13457;
364   double t13460, t13461, t13467, t13474, t13477, t13480, t13483, t13494;
365   double t13497, t13500, t13503, t13506, t13509, t13512, t13519, t13537;
366   double t13540, t13542, t13544, t13546, t13548, t13550, t13552, t13554;
367   double t13556, t13558, t13560, t13561, t13613, t13649, t13650, t13653;
368   double t13683, t13691, t13694, t13695, t13698, t13701, t13702, t13705;
369   double t13706, t13719, t13722, t13753, t13796, t13799, t13824, t13827;
370   double t13830, t13837, t13873, t13886, t13887, t13890, t13911, t13914;
371   double t13916, t13945, t13983, t13990, t13993, t13997, t14002, t14014;
372   double t14017, t14020, t14023, t14028, t14033, t14042, t14076, t14085;
373   double t14115, t14155, t14187, t14197, t14234, t14246, t14247, t14273;
374   double t14311, t14341, t14351, t14363, t14368, t14381, t14384, t14387;
375   double t14388, t14390, t14393, t14395, t14396, t14399, t14403, t14404;
376   double t14405, t14415, t14425, t14442, t14476, t14482, t14484, t14493;
377   double t14518, t14534, t14553, t14567, t14582, t14609, t14638, t14641;
378   double t14661, t14670, t14699, t14730, t14750, t14753, t14760, t14769;
379   double t14774, t14791, t14803, t14806, t14807, t14814, t14831, t14834;
380   double t14844, t14847, t14855, t14858, t14865, t14875, t14878, t14881;
381   double t14883, t14885, t14887, t14889, t14891, t14893, t14894, t14912;
382   double t14924, t14925, t14964, t14992, t14993, t14999, t15003, t15011;
383   double t15023, t15033, t15075, t15077, t15084, t15094, t15116, t15119;
384   double t15122, t15125, t15128, t15131, t15137, t15153, t15162, t15163;
385   double t15176, t15189, t15221, t15224, t15225, t15226, t15231, t15235;
386   double t15236, t15239, t15279, t15303, t15329, t15350, t15351, t15358;
387   double t15360, t15378, t15406, t15431, t15481, t15504, t15543, t15574;
388   double t15585, t15588, t15591, t15627, t15665, t15672, t15675, t15696;
389   double t15705, t15708, t15739, t15742, t15752, t15754, t15757, t15762;
390   double t15780, t15783, t15787, t15791, t15794, t15799, t15810, t15811;
391   double t15816, t15823, t15826, t15829, t15837, t15851, t15880, t15887;
392   double t15910, t15913, t15920, t15923, t15929, t15938, t15950, t15953;
393   double t15962, t15965, t15968, t15983, t16015, t16036, t16044, t16059;
394   double t16069, t16072, t16120, t16145, t16161, t16204, t16207, t16227;
395   double t16229, t16232, t16233, t16242, t16245, t16246, t16253, t16280;
396   double t16287, t16289, t16291, t16293, t16294, t16295, t16296, t16297;
397   double t16298, t16299, t16300, t16301, t16302, t16303, t16304, t16305;
398   double t16306, t16307, t16309, t16311, t16313, t16315, t16317, t16320;
399   double t16322, t16324, t16325, t16331, t16332, t16335, t16347, t16354;
400   double t16357, t16362, t16376, t16385, t16395, t16420, t16446, t16477;
401   double t16479, t16482, t16484, t16485, t16507, t16510, t16529, t16543;
402   double t16571, t16623, t16627, t16653, t16672, t16696, t16702, t16734;
403   double t16747, t16773, t16780, t16792, t16801, t16827, t16851, t16880;
404   double t16893, t16923, t16933, t16942, t16951, t16954, t16980, t17008;
405   double t17011, t17021, t17034, t17037, t17038, t17041, t17044, t17050;
406   double t17073, t17099, t17105, t17115, t17118, t17136, t17164, t17196;
407   double t17201, t17228, t17231, t17241, t17246, t17252, t17255, t17258;
408   double t17273, t17279, t17290, t17293, t17302, t17314, t17317, t17319;
409   double t17322, t17324, t17325, t17326, t17327, t17332, t17359, t17383;
410   double t17386, t17391, t17398, t17419, t17434, t17436, t17452, t17455;
411   double t17458, t17459, t17464, t17515, t17525, t17526, t17531, t17555;
412   double t17568, t17584, t17606, t17610, t17640, t17648, t17652, t17662;
413   double t17669, t17670, t17672, t17675, t17676, t17679, t17688, t17715;
414   double t17731, t17732, t17748, t17790, t17826, t17850, t17863, t17867;
415   double t17908, t17936, t17941, t17958, t17961, t17964, t17972, t18005;
416   double t18041, t18049, t18062, t18065, t18072, t18074, t18079, t18082;
417   double t18083, t18113, t18135, t18144, t18145, t18146, t18149, t18156;
418   double t18173, t18176, t18187, t18223, t18224, t18241, t18244, t18255;
419   double t18267, t18270, t18293, t18327, t18347, t18376, t18404, t18412;
420   double t18433, t18436, t18459, t18509, t18520, t18539, t18540, t18577;
421   double t18582, t18589, t18619, t18624, t18627, t18628, t18631, t18655;
422   double t18664, t18676, t18679, t18682, t18692, t18705, t18714, t18724;
423   double t18725, t18727, t18730, t18731, t18734, t18737, t18738, t18762;
424   double t18771, t18794, t18812, t18826, t18830, t18833, t18836, t18847;
425   double t18850, t18853, t18865, t18887, t18900, t18915, t18918, t18932;
426   double t18961, t18965, t18969, t18982, t18985, t18993, t19005, t19033;
427   double t19036, t19038, t19045, t19047, t19048, t19052, t19055, t19058;
428   double t19061, t19064, t19066, t19067, t19070, t19073, t19080, t19083;
429   double t19101, t19111, t19114, t19120, t19139, t19164, t19199, t19235;
430   double t19268, t19270, t19281, t19291, t19316, t19319, t19322, t19344;
431   double t19370, t19402, t19416, t19433, t19462, t19481, t19490, t19524;
432   double t19552, t19579, t19596, t19605, t19629, t19638, t19656, t19682;
433   double t19706, t19725, t19726, t19729, t19736, t19739, t19742, t19747;
434   double t19751, t19765, t19774, t19779, t19782, t19803, t19814, t19817;
435   double t19818, t19821, t19824, t19825, t19844, t19845, t19848, t19851;
436   double t19852, t19861, t19864, t19882, t19883, t19884, t19890, t19916;
437   double t19925, t19932, t19935, t19950, t19955, t19964, t19974, t19984;
438   double t19992, t20025, t20054, t20076, t20085, t20115, t20150, t20168;
439   double t20185, t20192, t20221, t20230, t20248, t20283, t20313, t20340;
440   double t20355, t20368, t20385, t20398, t20401, t20414, t20438, t20446;
441   double t20449, t20450, t20469, t20471, t20475, t20477, t20497, t20507;
442   double t20510, t20534, t20556, t20557, t20590, t20624, t20648, t20701;
443   double t20710, t20712, t20731, t20734, t20742, t20744, t20745, t20757;
444   double t20760, t20762, t20764, t20767, t20770, t20773, t20774, t20790;
445   double t20795, t20802, t20820, t20821, t20823, t20828, t20829, t20830;
446   double t20831, t20832, t20833, t20834, t20837, t20840, t20841, t20860;
447   double t20865, t20884, t20893, t20897, t20925, t20992, t21022, t21053;
448   double t21095, t21136, t21138, t21150, t21160, t21167, t21171, t21193;
449   double t21224, t21239, t21242, t21247, t21255, t21259, t21266, t21272;
450   double t21280, t21292, t21296, t21300, t21332, t21363, t21370, t21374;
451   double t21410, t21415, t21422, t21429, t21448, t21451, t21454, t21457;
452   double t21464, t21465, t21474, t21480, t21508, t21541, t21573, t21599;
453   double t21614, t21647, t21650, t21686, t21718, t21738, t21767, t21792;
454   double t21823, t21880, t21912, t21919, t21951, t21983, t21986, t21989;
455   double t21990, t21993, t21996, t22004, t22009, t22014, t22019, t22023;
456   double t22027, t22032, t22035, t22038, t22041, t22054, t22069, t22073;
457   double t22074, t22077, t22083, t22114, t22122, t22155, t22180, t22200;
458   double t22203, t22206, t22210, t22211, t22218, t22246, t22248, t22256;
459   double t22282, t22314, t22317, t22341, t22375, t22409, t22442, t22476;
460   double t22511, t22546, t22585, t22611, t22619, t22650, t22662, t22677;
461   double t22683, t22690, t22693, t22706, t22709, t22712, t22721, t22724;
462   double t22727, t22730, t22733, t22738, t22741, t22744, t22786, t22789;
463   double t22794, t22797, t22816, t22821, t22845, t22848, t22849, t22879;
464   double t22914, t22940, t22961, t22968, t22996, t23026, t23041, t23051;
465   double t23061, t23063, t23091, t23118, t23139, t23172, t23198, t23209;
466   double t23216, t23222, t23232, t23242, t23250, t23261, t23269, t23271;
467   double t23273, t23275, t23278, t23280, t23287, t23311, t23339, t23377;
468   double t23385, t23391, t23397, t23406, t23407, t23416, t23447, t23460;
469   double t23476, t23498, t23527;
470 #endif
471 
472 #endif
473 
474 #endif
475 
476 #endif
477 
478 #endif
479 
480 
481 
482   t2 = M_CBRT3;
483   t3 = 0.1e1 / M_PI;
484   t4 = POW_1_3(t3);
485   t6 = M_CBRT4;
486   t7 = t6 * t6;
487   t8 = t2 * t4 * t7;
488   t9 = M_CBRT2;
489   t10 = t9 * t9;
490   t11 = POW_1_3(rho[0]);
491   t12 = t10 * t11;
492   t13 = 0.1e1 / rho[0];
493   t14 = sigma[0] * t13;
494   t15 = 0.1e1 / tau[0];
495   t17 = t14 * t15 / 0.8e1;
496   t18 = t17 < 0.10e1;
497   t19 = my_piecewise3(t18, t17, 0.10e1);
498   t20 = t19 * t19;
499   t21 = t20 * t19;
500   t23 = t20 + 0.3e1 * t21;
501   t24 = 0.1e1 + t21;
502   t25 = t24 * t24;
503   t26 = 0.1e1 / t25;
504   t27 = t23 * t26;
505   t28 = POW_1_3(0.9e1);
506   t29 = t28 * t28;
507   t30 = t4 * t4;
508   t31 = t29 * t30;
509   t32 = t31 * p->cam_omega;
510   t33 = 0.1e1 / t11;
511   t34 = t2 * t33;
512   t35 = M_CBRT6;
513   t36 = M_PI * M_PI;
514   t37 = POW_1_3(t36);
515   t38 = t37 * t37;
516   t39 = 0.1e1 / t38;
517   t40 = t35 * t39;
518   t41 = sigma[0] * t10;
519   t42 = rho[0] * rho[0];
520   t43 = t11 * t11;
521   t45 = 0.1e1 / t43 / t42;
522   t46 = t41 * t45;
523   t47 = t40 * t46;
524   t49 = t35 * t35;
525   t51 = 0.1e1 / t37 / t36;
526   t52 = t49 * t51;
527   t53 = sigma[0] * sigma[0];
528   t54 = t53 * t9;
529   t55 = t42 * t42;
530   t56 = t55 * rho[0];
531   t58 = 0.1e1 / t11 / t56;
532   t62 = 0.1e1 + 0.15045488888888888889e0 * t47 + 0.53798980924525896000e-2 * t52 * t54 * t58;
533   t63 = pow(t62, 0.1e1 / 0.10e2);
534   t64 = 0.1e1 / t63;
535   t67 = t32 * t34 * t64 / 0.18e2;
536   t68 = t67 < 0.1e-9;
537   t69 = my_piecewise3(t68, 0.1e-9, t67);
538   t70 = sqrt(M_PI);
539   t71 = 0.1e1 / t69;
540   t73 = erf(t71 / 0.2e1);
541   t75 = t69 * t69;
542   t76 = 0.1e1 / t75;
543   t78 = exp(-t76 / 0.4e1);
544   t79 = t78 - 0.1e1;
545   t82 = t78 - 0.3e1 / 0.2e1 - 0.2e1 * t75 * t79;
546   t85 = 0.2e1 * t69 * t82 + t70 * t73;
547   t88 = 0.1e1 - 0.8e1 / 0.3e1 * t69 * t85;
548   t89 = pow(t62, 0.1e1 / 0.5e1);
549   t90 = 0.1e1 / t89;
550   t93 = t75 * t75;
551   t94 = 0.64e2 * t93;
552   t95 = 0.20e2 * t75 - t94;
553   t98 = t70 * t69;
554   t101 = 0.10e2 * t98 * t73 + t95 * t78 - 0.36e2 * t75 + t94 - 0.3e1;
555   t104 = 0.24e2 * t75 * t101 + 0.1e1;
556   t105 = tau[0] * t10;
557   t107 = 0.1e1 / t43 / rho[0];
558   t108 = t105 * t107;
559   t109 = 0.14554132000000000000e0 * t108;
560   t110 = t49 * t38;
561   t113 = -t109 + 0.4366239600000000000e-1 * t110 + 0.42296278333333333333e-1 * t46;
562   t114 = t104 * t113;
563   t115 = t89 * t89;
564   t116 = 0.1e1 / t115;
565   t117 = t40 * t116;
566   t121 = t75 * t69;
567   t123 = t93 * t69;
568   t125 = t93 * t121;
569   t127 = t93 * t93;
570   t128 = t127 * t69;
571   t130 = -0.8e1 * t69 + 0.256e3 * t121 - 0.576e3 * t123 + 0.3849e4 * t125 - 0.122880e6 * t128;
572   t134 = t93 * t75;
573   t136 = -0.35e2 + 0.224e3 * t75 - 0.1440e4 * t93 + 0.5120e4 * t134;
574   t140 = -0.2e1 + 0.60e2 * t75;
575   t144 = 0.2e1 * t70 * t140 * t73 + 0.24e2 * t121 * t136 + t130 * t78;
576   t147 = 0.1e1 + 0.8e1 / 0.7e1 * t69 * t144;
577   t148 = t147 * t35;
578   t149 = t148 * t39;
579   t151 = t41 * t45 * t116;
580   t154 = t88 * t90 + 0.35e2 / 0.81e2 * t114 * t117 + 0.26329605555555555556e-1 * t149 * t151;
581   t156 = 0.1e1 - t27;
582   t157 = 0.1e1 / t30;
583   t160 = t2 * t2;
584   t161 = 0.1e1 / p->cam_omega * t160;
585   t165 = erf(t28 * t157 * t161 * t11 / 0.3e1);
586   t167 = t4 * t3;
587   t168 = 0.1e1 / t167;
588   t169 = t29 * t168;
589   t170 = p->cam_omega * p->cam_omega;
590   t171 = 0.1e1 / t170;
591   t172 = t171 * t2;
592   t176 = exp(-t169 * t172 * t43 / 0.3e1);
593   t178 = t28 * t167 * t170;
594   t179 = 0.1e1 / t43;
595   t180 = t160 * t179;
596   t181 = t176 - 0.1e1;
597   t185 = t176 - 0.3e1 / 0.2e1 - t178 * t180 * t181 / 0.18e2;
598   t189 = t70 * t165 + t32 * t34 * t185 / 0.9e1;
599   t193 = 0.1e1 - 0.4e1 / 0.27e2 * t32 * t34 * t189;
600   t194 = t156 * t193;
601   t197 = (0.10e2 / 0.81e2 + 0.25e2 / 0.8748e4 * t47) * t35;
602   t198 = t197 * t39;
603   t207 = (t108 - t46 / 0.8e1) * t35 * t39 / 0.4e1 - 0.9e1 / 0.20e2 + t47 / 0.36e2;
604   t208 = t207 * t207;
605   t210 = t207 * t19;
606   t211 = 0.1e1 - t19;
607   t214 = 0.1e1 + 0.5e1 / 0.12e2 * t198 * t46 + 0.292e3 / 0.405e3 * t208 - 0.146e3 / 0.135e3 * t210 * t211;
608   t215 = pow(t214, 0.1e1 / 0.10e2);
609   t226 = 0.1e1 + 0.63943327777777777778e-1 * t47 - 0.5e1 / 0.9e1 * (t109 + 0.25633760400000000000e0 * t110 + 0.11867481666666666667e-1 * t46) * t35 * t39;
610   t229 = t90 + 0.7e1 / 0.9e1 * t226 * t116;
611   t232 = -p->cam_beta * (t27 * t154 + t194 * t215) + t27 * t229 + t156 * t215;
612   t234 = t8 * t12 * t232;
613   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
614     zk[0] = -0.3e1 / 0.16e2 * t234;
615 
616 #ifndef XC_DONT_COMPILE_VXC
617 
618   if(order < 1) return;
619 
620 
621   t237 = t11 * rho[0];
622   t239 = t237 * t2 * t4;
623   t240 = t7 * t10;
624   t241 = 0.1e1 / t42;
625   t242 = sigma[0] * t241;
626   t245 = my_piecewise3(t18, -t242 * t15 / 0.8e1, 0);
627   t246 = t19 * t245;
628   t248 = t20 * t245;
629   t250 = 0.2e1 * t246 + 0.9e1 * t248;
630   t251 = t250 * t26;
631   t254 = 0.1e1 / t25 / t24;
632   t255 = t23 * t254;
633   t256 = t154 * t20;
634   t257 = t256 * t245;
635   t260 = 0.1e1 / t237;
636   t261 = t2 * t260;
637   t266 = 0.1e1 / t63 / t62;
638   t267 = t42 * rho[0];
639   t269 = 0.1e1 / t43 / t267;
640   t270 = t41 * t269;
641   t271 = t40 * t270;
642   t273 = t55 * t42;
643   t275 = 0.1e1 / t11 / t273;
644   t277 = t52 * t54 * t275;
645   t279 = -0.40121303703703703704e0 * t271 - 0.28692789826413811200e-1 * t277;
646   t280 = t266 * t279;
647   t285 = my_piecewise3(t68, 0, -t32 * t261 * t64 / 0.54e2 - t32 * t34 * t280 / 0.180e3);
648   t287 = t78 * t76;
649   t291 = 0.1e1 / t121;
650   t292 = t291 * t285;
651   t295 = t69 * t79;
652   t298 = t71 * t285;
653   t299 = t298 * t78;
654   t300 = t292 * t78 / 0.2e1 - 0.4e1 * t295 * t285 - t299;
655   t303 = -t287 * t285 + 0.2e1 * t285 * t82 + 0.2e1 * t69 * t300;
656   t306 = -0.8e1 / 0.3e1 * t285 * t85 - 0.8e1 / 0.3e1 * t69 * t303;
657   t309 = 0.1e1 / t89 / t62;
658   t310 = t88 * t309;
659   t313 = t69 * t101;
660   t316 = t69 * t285;
661   t318 = t121 * t285;
662   t319 = 0.256e3 * t318;
663   t320 = 0.40e2 * t316 - t319;
664   t322 = t95 * t291;
665   t323 = t285 * t78;
666   t327 = t70 * t285;
667   t331 = t320 * t78 + t322 * t323 / 0.2e1 - 0.72e2 * t316 + t319 + 0.10e2 * t327 * t73 - 0.10e2 * t299;
668   t334 = 0.48e2 * t313 * t285 + 0.24e2 * t75 * t331;
669   t335 = t334 * t113;
670   t338 = t105 * t45;
671   t339 = 0.24256886666666666667e0 * t338;
672   t341 = t339 - 0.11279007555555555555e0 * t270;
673   t342 = t104 * t341;
674   t345 = t114 * t35;
675   t347 = 0.1e1 / t115 / t62;
676   t348 = t39 * t347;
677   t349 = t348 * t279;
678   t354 = t75 * t285;
679   t356 = t93 * t285;
680   t362 = -0.1105920e7 * t127 * t285 + 0.26943e5 * t134 * t285 - 0.8e1 * t285 + 0.768e3 * t354 - 0.2880e4 * t356;
681   t364 = t130 * t291;
682   t367 = t75 * t136;
683   t372 = t123 * t285;
684   t374 = 0.448e3 * t316 - 0.5760e4 * t318 + 0.30720e5 * t372;
685   t380 = t140 * t78;
686   t381 = t76 * t285;
687   t384 = t362 * t78 + t364 * t323 / 0.2e1 + 0.72e2 * t367 * t285 + 0.24e2 * t121 * t374 + 0.240e3 * t98 * t285 * t73 - 0.2e1 * t380 * t381;
688   t387 = 0.8e1 / 0.7e1 * t285 * t144 + 0.8e1 / 0.7e1 * t69 * t384;
689   t388 = t387 * t35;
690   t389 = t388 * t39;
691   t393 = t41 * t269 * t116;
692   t396 = t39 * sigma[0];
693   t397 = t148 * t396;
694   t398 = t10 * t45;
695   t399 = t347 * t279;
696   t400 = t398 * t399;
697   t403 = t306 * t90 - t310 * t279 / 0.5e1 + 0.35e2 / 0.81e2 * t335 * t117 + 0.35e2 / 0.81e2 * t342 * t117 - 0.14e2 / 0.81e2 * t345 * t349 + 0.26329605555555555556e-1 * t389 * t151 - 0.70212281481481481483e-1 * t149 * t393 - 0.10531842222222222222e-1 * t397 * t400;
698   t407 = 0.6e1 * t255 * t248 - t251;
699   t408 = t407 * t193;
700   t414 = t176 * t28 * t157;
701   t425 = t160 * t107;
702   t429 = t13 * t176;
703   t431 = -0.2e1 / 0.9e1 * t169 * t171 * t34 * t176 + t178 * t425 * t181 / 0.27e2 + t429 / 0.3e1;
704   t435 = 0.2e1 / 0.9e1 * t414 * t161 * t179 - t32 * t261 * t185 / 0.27e2 + t32 * t34 * t431 / 0.9e1;
705   t439 = 0.4e1 / 0.81e2 * t32 * t261 * t189 - 0.4e1 / 0.27e2 * t32 * t34 * t435;
706   t440 = t156 * t439;
707   t442 = t215 * t215;
708   t443 = t442 * t442;
709   t444 = t443 * t443;
710   t445 = t444 * t215;
711   t446 = 0.1e1 / t445;
712   t457 = (-0.5e1 / 0.3e1 * t338 + t270 / 0.3e1) * t35 * t39 / 0.4e1 - 0.2e1 / 0.27e2 * t271;
713   t460 = t457 * t19;
714   t468 = -0.125e3 / 0.19683e5 * t277 - 0.10e2 / 0.9e1 * t198 * t270 + 0.584e3 / 0.405e3 * t207 * t457 - 0.146e3 / 0.135e3 * t460 * t211 - 0.146e3 / 0.135e3 * t207 * t245 * t211 + 0.146e3 / 0.135e3 * t210 * t245;
715   t469 = t446 * t468;
716   t475 = t229 * t20;
717   t476 = t475 * t245;
718   t487 = -0.17051554074074074074e0 * t271 - 0.5e1 / 0.9e1 * (-t339 - 0.31646617777777777779e-1 * t270) * t35 * t39;
719   t490 = t226 * t347;
720   t493 = -t309 * t279 / 0.5e1 + 0.7e1 / 0.9e1 * t487 * t116 - 0.14e2 / 0.45e2 * t490 * t279;
721   t496 = t156 * t446;
722   t499 = -p->cam_beta * (t251 * t154 - 0.6e1 * t255 * t257 + t27 * t403 + t408 * t215 + t440 * t215 + t194 * t469 / 0.10e2) + t251 * t229 - 0.6e1 * t255 * t476 + t27 * t493 + t407 * t215 + t496 * t468 / 0.10e2;
723   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
724     vrho[0] = -t234 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t240 * t499;
725 
726   t505 = my_piecewise3(t18, t13 * t15 / 0.8e1, 0);
727   t506 = t19 * t505;
728   t508 = t20 * t505;
729   t510 = 0.2e1 * t506 + 0.9e1 * t508;
730   t511 = t510 * t26;
731   t513 = t256 * t505;
732   t518 = sigma[0] * t9;
733   t520 = t52 * t518 * t58;
734   t522 = 0.15045488888888888889e0 * t40 * t398 + 0.10759796184905179200e-1 * t520;
735   t523 = t266 * t522;
736   t527 = my_piecewise3(t68, 0, -t32 * t34 * t523 / 0.180e3);
737   t532 = t291 * t527;
738   t537 = t71 * t527;
739   t538 = t537 * t78;
740   t539 = t532 * t78 / 0.2e1 - 0.4e1 * t295 * t527 - t538;
741   t542 = -t287 * t527 + 0.2e1 * t527 * t82 + 0.2e1 * t69 * t539;
742   t545 = -0.8e1 / 0.3e1 * t527 * t85 - 0.8e1 / 0.3e1 * t69 * t542;
743   t551 = t69 * t527;
744   t553 = t121 * t527;
745   t554 = 0.256e3 * t553;
746   t555 = 0.40e2 * t551 - t554;
747   t557 = t527 * t78;
748   t561 = t70 * t527;
749   t565 = t555 * t78 + t322 * t557 / 0.2e1 - 0.72e2 * t551 + t554 + 0.10e2 * t561 * t73 - 0.10e2 * t538;
750   t568 = 0.48e2 * t313 * t527 + 0.24e2 * t75 * t565;
751   t569 = t568 * t113;
752   t572 = t104 * t10;
753   t573 = t572 * t45;
754   t576 = t348 * t522;
755   t581 = t75 * t527;
756   t583 = t93 * t527;
757   t585 = t134 * t527;
758   t589 = -0.1105920e7 * t127 * t527 - 0.8e1 * t527 + 0.768e3 * t581 - 0.2880e4 * t583 + 0.26943e5 * t585;
759   t597 = t123 * t527;
760   t599 = 0.448e3 * t551 - 0.5760e4 * t553 + 0.30720e5 * t597;
761   t602 = t527 * t73;
762   t605 = t76 * t527;
763   t608 = t589 * t78 + t364 * t557 / 0.2e1 + 0.72e2 * t367 * t527 + 0.24e2 * t121 * t599 + 0.240e3 * t98 * t602 - 0.2e1 * t380 * t605;
764   t611 = 0.8e1 / 0.7e1 * t527 * t144 + 0.8e1 / 0.7e1 * t69 * t608;
765   t612 = t611 * t35;
766   t613 = t612 * t39;
767   t616 = t398 * t116;
768   t619 = t347 * t522;
769   t620 = t398 * t619;
770   t623 = t545 * t90 - t310 * t522 / 0.5e1 + 0.35e2 / 0.81e2 * t569 * t117 + 0.18276169650205761317e-1 * t573 * t117 - 0.14e2 / 0.81e2 * t345 * t576 + 0.26329605555555555556e-1 * t613 * t151 + 0.26329605555555555556e-1 * t149 * t616 - 0.10531842222222222222e-1 * t397 * t620;
771   t627 = 0.6e1 * t255 * t508 - t511;
772   t628 = t627 * t193;
773   t631 = t39 * t10;
774   t632 = t631 * t45;
775   t635 = t207 * t35;
776   t636 = t635 * t632;
777   t638 = t40 * t10;
778   t639 = t45 * t19;
779   t641 = t638 * t639 * t211;
780   t643 = t207 * t505;
781   t648 = 0.125e3 / 0.52488e5 * t520 + 0.5e1 / 0.12e2 * t197 * t632 - 0.73e2 / 0.14580e5 * t636 + 0.73e2 / 0.19440e5 * t641 - 0.146e3 / 0.135e3 * t643 * t211 + 0.146e3 / 0.135e3 * t210 * t505;
782   t649 = t446 * t648;
783   t655 = t475 * t505;
784   t664 = -t309 * t522 / 0.5e1 + 0.44605775205761316872e-1 * t40 * t616 - 0.14e2 / 0.45e2 * t490 * t522;
785   t670 = t240 * (-p->cam_beta * (t511 * t154 - 0.6e1 * t255 * t513 + t27 * t623 + t628 * t215 + t194 * t649 / 0.10e2) + t511 * t229 - 0.6e1 * t255 * t655 + t27 * t664 + t627 * t215 + t496 * t648 / 0.10e2);
786   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
787     vsigma[0] = -0.3e1 / 0.16e2 * t239 * t670;
788 
789   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
790     vlapl[0] = 0.0e0;
791 
792   t673 = tau[0] * tau[0];
793   t674 = 0.1e1 / t673;
794   t677 = my_piecewise3(t18, -t14 * t674 / 0.8e1, 0);
795   t678 = t19 * t677;
796   t680 = t20 * t677;
797   t682 = 0.2e1 * t678 + 0.9e1 * t680;
798   t683 = t682 * t26;
799   t685 = t256 * t677;
800   t688 = t27 * t572;
801   t689 = t107 * t35;
802   t690 = t39 * t116;
803   t691 = t689 * t690;
804   t696 = 0.6e1 * t255 * t680 - t683;
805   t697 = t696 * t193;
806   t700 = t689 * t39;
807   t703 = t10 * t107;
808   t704 = t703 * t35;
809   t705 = t39 * t19;
810   t709 = t207 * t677;
811   t714 = 0.146e3 / 0.405e3 * t207 * t10 * t700 - 0.73e2 / 0.270e3 * t704 * t705 * t211 - 0.146e3 / 0.135e3 * t709 * t211 + 0.146e3 / 0.135e3 * t210 * t677;
812   t715 = t446 * t714;
813   t721 = t475 * t677;
814   t724 = t27 * t10;
815   t731 = t240 * (-p->cam_beta * (t683 * t154 - 0.6e1 * t255 * t685 - 0.62888224691358024691e-1 * t688 * t691 + t697 * t215 + t194 * t715 / 0.10e2) + t683 * t229 - 0.6e1 * t255 * t721 - 0.62888224691358024691e-1 * t724 * t691 + t696 * t215 + t496 * t714 / 0.10e2);
816   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
817     vtau[0] = -0.3e1 / 0.16e2 * t239 * t731;
818 
819 #ifndef XC_DONT_COMPILE_FXC
820 
821   if(order < 2) return;
822 
823 
824   t734 = t10 * t179;
825   t741 = t245 * t245;
826   t743 = 0.1e1 / t267;
827   t744 = sigma[0] * t743;
828   t747 = my_piecewise3(t18, t744 * t15 / 0.4e1, 0);
829   t750 = t19 * t741;
830   t752 = t20 * t747;
831   t754 = 0.2e1 * t19 * t747 + 0.2e1 * t741 + 0.18e2 * t750 + 0.9e1 * t752;
832   t755 = t754 * t26;
833   t757 = t250 * t254;
834   t762 = t25 * t25;
835   t763 = 0.1e1 / t762;
836   t764 = t23 * t763;
837   t765 = t20 * t20;
838   t766 = t154 * t765;
839   t767 = t766 * t741;
840   t770 = t403 * t20;
841   t771 = t770 * t245;
842   t774 = t154 * t19;
843   t775 = t774 * t741;
844   t778 = t256 * t747;
845   t782 = 0.1e1 / t43 / t55;
846   t783 = t41 * t782;
847   t784 = t40 * t783;
848   t786 = t55 * t267;
849   t788 = 0.1e1 / t11 / t786;
850   t790 = t52 * t54 * t788;
851   t792 = 0.14711144691358024691e1 * t784 + 0.18172100223395413760e0 * t790;
852   t793 = t347 * t792;
853   t794 = t398 * t793;
854   t798 = t41 * t782 * t116;
855   t801 = t10 * t269;
856   t802 = t801 * t399;
857   t807 = t388 * t396;
858   t811 = 0.1e1 / t11 / t42;
859   t812 = t2 * t811;
860   t819 = t62 * t62;
861   t821 = 0.1e1 / t63 / t819;
862   t822 = t279 * t279;
863   t823 = t821 * t822;
864   t827 = t266 * t792;
865   t832 = my_piecewise3(t68, 0, 0.2e1 / 0.81e2 * t32 * t812 * t64 + t32 * t261 * t280 / 0.270e3 + 0.11e2 / 0.1800e4 * t32 * t34 * t823 - t32 * t34 * t827 / 0.180e3);
866   t838 = t285 * t285;
867   t839 = t69 * t838;
868   t843 = t121 * t838;
869   t855 = 0.161658e6 * t123 * t838 - 0.8847360e7 * t125 * t838 - 0.1105920e7 * t127 * t832 + 0.26943e5 * t134 * t832 + 0.768e3 * t75 * t832 - 0.2880e4 * t93 * t832 - 0.8e1 * t832 + 0.1536e4 * t839 - 0.11520e5 * t843;
870   t857 = t362 * t291;
871   t859 = 0.1e1 / t93;
872   t860 = t130 * t859;
873   t861 = t838 * t78;
874   t864 = t832 * t78;
875   t867 = 0.1e1 / t134;
876   t868 = t130 * t867;
877   t871 = t69 * t136;
878   t874 = t75 * t374;
879   t880 = t69 * t832;
880   t882 = t75 * t838;
881   t884 = t121 * t832;
882   t886 = t93 * t838;
883   t890 = 0.30720e5 * t123 * t832 + 0.448e3 * t838 + 0.448e3 * t880 - 0.17280e5 * t882 - 0.5760e4 * t884 + 0.153600e6 * t886;
884   t896 = t832 * t73;
885   t902 = 0.1e1 / t123;
886   t903 = t140 * t902;
887   t905 = t291 * t838;
888   t908 = t76 * t832;
889   t911 = t855 * t78 + t857 * t323 - 0.3e1 / 0.2e1 * t860 * t861 + t364 * t864 / 0.2e1 + t868 * t861 / 0.4e1 + 0.144e3 * t871 * t838 + 0.144e3 * t874 * t285 + 0.72e2 * t367 * t832 + 0.24e2 * t121 * t890 + 0.240e3 * t70 * t838 * t73 + 0.240e3 * t98 * t896 - 0.480e3 * t71 * t838 * t78 - t903 * t861 + 0.4e1 * t380 * t905 - 0.2e1 * t380 * t908;
890   t914 = 0.8e1 / 0.7e1 * t832 * t144 + 0.16e2 / 0.7e1 * t285 * t384 + 0.8e1 / 0.7e1 * t69 * t911;
891   t915 = t914 * t35;
892   t916 = t915 * t39;
893   t920 = 0.1e1 / t115 / t819;
894   t921 = t39 * t920;
895   t922 = t921 * t822;
896   t929 = t902 * t838;
897   t932 = t78 * t291;
898   t940 = t859 * t838;
899   t941 = t940 * t78;
900   t946 = t867 * t838;
901   t951 = t76 * t838;
902   t955 = t71 * t832;
903   t956 = t955 * t78;
904   t957 = -0.2e1 * t941 + t291 * t832 * t78 / 0.2e1 + t946 * t78 / 0.4e1 - 0.4e1 * t838 * t79 - t951 * t78 - 0.4e1 * t295 * t832 - t956;
905   t960 = -t929 * t78 / 0.2e1 + 0.2e1 * t932 * t838 - t287 * t832 + 0.2e1 * t832 * t82 + 0.4e1 * t285 * t300 + 0.2e1 * t69 * t957;
906   t963 = -0.8e1 / 0.3e1 * t832 * t85 - 0.16e2 / 0.3e1 * t285 * t303 - 0.8e1 / 0.3e1 * t69 * t960;
907   t965 = t334 * t341;
908   t968 = t105 * t269;
909   t969 = 0.64685031111111111112e0 * t968;
910   t971 = -t969 + 0.41356361037037037035e0 * t783;
911   t972 = t104 * t971;
912   t977 = t69 * t331;
913   t984 = 0.768e3 * t882;
914   t985 = 0.256e3 * t884;
915   t986 = 0.40e2 * t838 + 0.40e2 * t880 - t984 - t985;
916   t988 = t320 * t291;
917   t990 = t95 * t859;
918   t995 = t95 * t867;
919   t1000 = t70 * t832;
920   t1005 = t986 * t78 + t988 * t323 - 0.3e1 / 0.2e1 * t990 * t861 + t322 * t864 / 0.2e1 + t995 * t861 / 0.4e1 - 0.72e2 * t838 - 0.72e2 * t880 + t984 + t985 + 0.10e2 * t1000 * t73 - 0.10e2 * t956 - 0.5e1 * t941;
921   t1008 = 0.24e2 * t75 * t1005 + 0.48e2 * t838 * t101 + 0.96e2 * t977 * t285 + 0.48e2 * t313 * t832;
922   t1009 = t1008 * t113;
923   t1012 = t342 * t35;
924   t1015 = t348 * t792;
925   t1018 = t335 * t35;
926   t1023 = t306 * t309;
927   t1026 = t920 * t822;
928   t1027 = t398 * t1026;
929   t1031 = 0.1e1 / t89 / t819;
930   t1032 = t88 * t1031;
931   t1035 = -0.10531842222222222222e-1 * t397 * t794 + 0.25744503209876543210e0 * t149 * t798 + 0.56169825185185185185e-1 * t397 * t802 - 0.14042456296296296297e0 * t389 * t393 - 0.21063684444444444444e-1 * t807 * t400 + 0.26329605555555555556e-1 * t916 * t151 + 0.98e2 / 0.405e3 * t345 * t922 + t963 * t90 + 0.70e2 / 0.81e2 * t965 * t117 + 0.35e2 / 0.81e2 * t972 * t117 + 0.35e2 / 0.81e2 * t1009 * t117 - 0.28e2 / 0.81e2 * t1012 * t349 - 0.14e2 / 0.81e2 * t345 * t1015 - 0.28e2 / 0.81e2 * t1018 * t349 - t310 * t792 / 0.5e1 - 0.2e1 / 0.5e1 * t1023 * t279 + 0.14744579111111111111e-1 * t397 * t1027 + 0.6e1 / 0.25e2 * t1032 * t822;
932   t1039 = t765 * t741;
933   t1046 = -0.54e2 * t764 * t1039 + 0.12e2 * t757 * t248 + 0.12e2 * t255 * t750 + 0.6e1 * t255 * t752 - t755;
934   t1047 = t1046 * t193;
935   t1049 = t407 * t439;
936   t1060 = t170 * p->cam_omega;
937   t1062 = t36 / t1060;
938   t1077 = t28 / t30 * t36;
939   t1078 = t170 * t170;
940   t1080 = t1077 / t1078;
941   t1084 = t160 * t45;
942   t1088 = t241 * t176;
943   t1090 = 0.4e1 / 0.9e1 * t1080 * t180 * t176 - 0.5e1 / 0.81e2 * t178 * t1084 * t181 - 0.5e1 / 0.9e1 * t1088;
944   t1094 = -0.4e1 / 0.3e1 * t1062 * t429 - 0.4e1 / 0.27e2 * t414 * t161 * t107 + 0.4e1 / 0.81e2 * t32 * t812 * t185 - 0.2e1 / 0.27e2 * t32 * t261 * t431 + t32 * t34 * t1090 / 0.9e1;
945   t1098 = -0.16e2 / 0.243e3 * t32 * t812 * t189 + 0.8e1 / 0.81e2 * t32 * t261 * t435 - 0.4e1 / 0.27e2 * t32 * t34 * t1094;
946   t1099 = t156 * t1098;
947   t1104 = 0.1e1 / t445 / t214;
948   t1105 = t468 * t468;
949   t1106 = t1104 * t1105;
950   t1112 = t457 * t457;
951   t1121 = (0.40e2 / 0.9e1 * t968 - 0.11e2 / 0.9e1 * t783) * t35 * t39 / 0.4e1 + 0.22e2 / 0.81e2 * t784;
952   t1124 = t1121 * t19;
953   t1132 = t207 * t747;
954   t1139 = 0.125e3 / 0.2187e4 * t790 + 0.110e3 / 0.27e2 * t198 * t783 + 0.584e3 / 0.405e3 * t1112 + 0.584e3 / 0.405e3 * t207 * t1121 - 0.146e3 / 0.135e3 * t1124 * t211 - 0.292e3 / 0.135e3 * t457 * t245 * t211 + 0.292e3 / 0.135e3 * t460 * t245 - 0.146e3 / 0.135e3 * t1132 * t211 + 0.292e3 / 0.135e3 * t207 * t741 + 0.146e3 / 0.135e3 * t210 * t747;
955   t1140 = t446 * t1139;
956   t1143 = t755 * t154 - 0.12e2 * t757 * t257 + 0.2e1 * t251 * t403 + 0.54e2 * t764 * t767 - 0.12e2 * t255 * t771 - 0.12e2 * t255 * t775 - 0.6e1 * t255 * t778 + t27 * t1035 + t1047 * t215 + 0.2e1 * t1049 * t215 + t408 * t469 / 0.5e1 + t1099 * t215 + t440 * t469 / 0.5e1 - 0.9e1 / 0.100e3 * t194 * t1106 + t194 * t1140 / 0.10e2;
957   t1150 = t229 * t765;
958   t1151 = t1150 * t741;
959   t1154 = t493 * t20;
960   t1155 = t1154 * t245;
961   t1158 = t229 * t19;
962   t1159 = t1158 * t741;
963   t1162 = t475 * t747;
964   t1175 = 0.62522364938271604938e0 * t784 - 0.5e1 / 0.9e1 * (t969 + 0.11603759851851851852e0 * t783) * t35 * t39;
965   t1178 = t487 * t347;
966   t1181 = t226 * t920;
967   t1186 = 0.6e1 / 0.25e2 * t1031 * t822 - t309 * t792 / 0.5e1 + 0.7e1 / 0.9e1 * t1175 * t116 - 0.28e2 / 0.45e2 * t1178 * t279 + 0.98e2 / 0.225e3 * t1181 * t822 - 0.14e2 / 0.45e2 * t490 * t792;
968   t1189 = t407 * t446;
969   t1192 = t156 * t1104;
970   t1197 = -p->cam_beta * t1143 + t755 * t229 - 0.12e2 * t757 * t476 + 0.2e1 * t251 * t493 + 0.54e2 * t764 * t1151 - 0.12e2 * t255 * t1155 - 0.12e2 * t255 * t1159 - 0.6e1 * t255 * t1162 + t27 * t1186 + t1046 * t215 + t1189 * t468 / 0.5e1 - 0.9e1 / 0.100e3 * t1192 * t1105 + t496 * t1139 / 0.10e2;
971   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
972     v2rho2[0] = -t8 * t734 * t232 / 0.12e2 - t8 * t12 * t499 / 0.2e1 - 0.3e1 / 0.16e2 * t239 * t240 * t1197;
973 
974   t1202 = t11 * t2 * t4;
975   t1205 = t245 * t505;
976   t1209 = my_piecewise3(t18, -t241 * t15 / 0.8e1, 0);
977   t1210 = t19 * t1209;
978   t1212 = t506 * t245;
979   t1214 = t20 * t1209;
980   t1216 = 0.2e1 * t1205 + 0.2e1 * t1210 + 0.18e2 * t1212 + 0.9e1 * t1214;
981   t1217 = t1216 * t26;
982   t1219 = t510 * t254;
983   t1225 = t764 * t154;
984   t1226 = t765 * t505;
985   t1227 = t1226 * t245;
986   t1230 = t770 * t505;
987   t1233 = t255 * t154;
988   t1236 = t256 * t1209;
989   t1240 = t623 * t20;
990   t1241 = t1240 * t245;
991   t1244 = t920 * t522;
992   t1245 = t1244 * t279;
993   t1246 = t398 * t1245;
994   t1249 = t801 * t619;
995   t1252 = t522 * t279;
996   t1260 = t52 * t518 * t275;
997   t1262 = -0.40121303703703703704e0 * t40 * t801 - 0.57385579652827622400e-1 * t1260;
998   t1263 = t348 * t1262;
999   t1266 = t569 * t35;
1000   t1269 = t334 * t10;
1001   t1270 = t1269 * t45;
1002   t1275 = t572 * t269;
1003   t1280 = t801 * t116;
1004   t1286 = p->cam_omega * t2;
1005   t1287 = t31 * t1286;
1006   t1288 = t33 * t821;
1007   t1292 = t266 * t1262;
1008   t1297 = my_piecewise3(t68, 0, t32 * t261 * t523 / 0.540e3 + 0.11e2 / 0.1800e4 * t1287 * t1288 * t1252 - t32 * t34 * t1292 / 0.180e3);
1009   t1301 = t902 * t285;
1010   t1304 = t285 * t527;
1011   t1314 = t859 * t527;
1012   t1315 = t1314 * t323;
1013   t1317 = t291 * t1297;
1014   t1320 = t867 * t527;
1015   t1323 = t285 * t79;
1016   t1329 = t71 * t1297;
1017   t1330 = t1329 * t78;
1018   t1331 = -0.2e1 * t1315 + t1317 * t78 / 0.2e1 + t1320 * t323 / 0.4e1 - 0.4e1 * t1323 * t527 - t381 * t557 - 0.4e1 * t295 * t1297 - t1330;
1019   t1334 = -t1301 * t557 / 0.2e1 + 0.2e1 * t932 * t1304 - t287 * t1297 + 0.2e1 * t1297 * t82 + 0.2e1 * t527 * t300 + 0.2e1 * t285 * t539 + 0.2e1 * t69 * t1331;
1020   t1337 = -0.8e1 / 0.3e1 * t1297 * t85 - 0.8e1 / 0.3e1 * t69 * t1334 - 0.8e1 / 0.3e1 * t285 * t542 - 0.8e1 / 0.3e1 * t527 * t303;
1021   t1339 = 0.14744579111111111111e-1 * t397 * t1246 + 0.28084912592592592592e-1 * t397 * t1249 + 0.6e1 / 0.25e2 * t1032 * t1252 - 0.14e2 / 0.81e2 * t1012 * t576 - 0.14e2 / 0.81e2 * t345 * t1263 - 0.14e2 / 0.81e2 * t1266 * t349 + 0.18276169650205761317e-1 * t1270 * t117 - 0.14e2 / 0.81e2 * t1018 * t576 - 0.48736452400548696845e-1 * t1275 * t117 + 0.26329605555555555556e-1 * t389 * t616 - 0.70212281481481481483e-1 * t149 * t1280 + t1337 * t90;
1022   t1340 = t568 * t341;
1023   t1343 = t285 * t101;
1024   t1350 = t69 * t565;
1025   t1354 = t69 * t1297;
1026   t1356 = t581 * t285;
1027   t1357 = 0.768e3 * t1356;
1028   t1358 = t121 * t1297;
1029   t1359 = 0.256e3 * t1358;
1030   t1360 = 0.40e2 * t1304 + 0.40e2 * t1354 - t1357 - t1359;
1031   t1362 = t555 * t291;
1032   t1367 = t557 * t285;
1033   t1370 = t1297 * t78;
1034   t1377 = t70 * t1297;
1035   t1382 = t1360 * t78 + t1362 * t323 / 0.2e1 + t988 * t557 / 0.2e1 - 0.3e1 / 0.2e1 * t990 * t1367 + t322 * t1370 / 0.2e1 + t995 * t1367 / 0.4e1 - 0.72e2 * t1304 - 0.72e2 * t1354 + t1357 + t1359 + 0.10e2 * t1377 * t73 - 0.10e2 * t1330 - 0.5e1 * t1315;
1036   t1385 = 0.48e2 * t313 * t1297 + 0.48e2 * t1343 * t527 + 0.48e2 * t1350 * t285 + 0.24e2 * t75 * t1382 + 0.48e2 * t977 * t527;
1037   t1386 = t1385 * t113;
1038   t1389 = t347 * t1262;
1039   t1390 = t398 * t1389;
1040   t1395 = t612 * t396;
1041   t1400 = t921 * t1252;
1042   t1409 = t75 * t1297;
1043   t1413 = t93 * t1297;
1044   t1417 = t134 * t1297;
1045   t1419 = t125 * t527;
1046   t1424 = -0.1105920e7 * t127 * t1297 - 0.8847360e7 * t1419 * t285 + 0.1536e4 * t551 * t285 - 0.11520e5 * t553 * t285 + 0.161658e6 * t597 * t285 - 0.8e1 * t1297 + 0.768e3 * t1409 - 0.2880e4 * t1413 + 0.26943e5 * t1417;
1047   t1426 = t589 * t291;
1048   t1443 = t75 * t599;
1049   t1452 = t123 * t1297;
1050   t1454 = 0.153600e6 * t583 * t285 + 0.448e3 * t1304 + 0.448e3 * t1354 - 0.17280e5 * t1356 - 0.5760e4 * t1358 + 0.30720e5 * t1452;
1051   t1459 = t1297 * t73;
1052   t1468 = t76 * t1297;
1053   t1471 = t1424 * t78 + t1426 * t323 / 0.2e1 + t857 * t557 / 0.2e1 - 0.3e1 / 0.2e1 * t860 * t1367 + t364 * t1370 / 0.2e1 + t868 * t1367 / 0.4e1 + 0.144e3 * t871 * t1304 + 0.72e2 * t874 * t527 + 0.72e2 * t367 * t1297 + 0.72e2 * t1443 * t285 + 0.24e2 * t121 * t1454 + 0.240e3 * t327 * t602 + 0.240e3 * t98 * t1459 - 0.480e3 * t537 * t323 - t903 * t1367 + 0.4e1 * t380 * t532 * t285 - 0.2e1 * t380 * t1468;
1054   t1474 = 0.8e1 / 0.7e1 * t1297 * t144 + 0.8e1 / 0.7e1 * t69 * t1471 + 0.8e1 / 0.7e1 * t285 * t608 + 0.8e1 / 0.7e1 * t527 * t384;
1055   t1475 = t1474 * t35;
1056   t1476 = t1475 * t39;
1057   t1481 = t40 * t399;
1058   t1484 = t545 * t309;
1059   t1491 = 0.35e2 / 0.81e2 * t1340 * t117 + 0.35e2 / 0.81e2 * t1386 * t117 - 0.10531842222222222222e-1 * t397 * t1390 - 0.10531842222222222222e-1 * t807 * t620 - 0.10531842222222222222e-1 * t1395 * t400 - 0.10531842222222222222e-1 * t149 * t400 + 0.98e2 / 0.405e3 * t345 * t1400 + 0.26329605555555555556e-1 * t1476 * t151 - 0.70212281481481481483e-1 * t613 * t393 - 0.73104678600823045268e-2 * t573 * t1481 - t1484 * t279 / 0.5e1 - t1023 * t522 / 0.5e1 - t310 * t1262 / 0.5e1;
1060   t1492 = t1339 + t1491;
1061   t1504 = 0.12e2 * t255 * t1212 + 0.6e1 * t255 * t1214 + 0.6e1 * t1219 * t248 - 0.54e2 * t764 * t1227 + 0.6e1 * t757 * t508 - t1217;
1062   t1505 = t1504 * t193;
1063   t1507 = t627 * t439;
1064   t1515 = t1104 * t648;
1065   t1516 = t1515 * t468;
1066   t1520 = t631 * t269;
1067   t1523 = t457 * t35;
1068   t1524 = t1523 * t632;
1069   t1526 = t635 * t1520;
1070   t1528 = t269 * t19;
1071   t1530 = t638 * t1528 * t211;
1072   t1532 = t45 * t245;
1073   t1534 = t638 * t1532 * t211;
1074   t1537 = t638 * t639 * t245;
1075   t1539 = t457 * t505;
1076   t1542 = t207 * t1209;
1077   t1551 = -0.125e3 / 0.6561e4 * t1260 - 0.10e2 / 0.9e1 * t197 * t1520 - 0.73e2 / 0.14580e5 * t1524 + 0.146e3 / 0.10935e5 * t1526 - 0.73e2 / 0.7290e4 * t1530 + 0.73e2 / 0.19440e5 * t1534 - 0.73e2 / 0.19440e5 * t1537 - 0.146e3 / 0.135e3 * t1539 * t211 - 0.146e3 / 0.135e3 * t1542 * t211 + 0.292e3 / 0.135e3 * t643 * t245 + 0.146e3 / 0.135e3 * t460 * t505 + 0.146e3 / 0.135e3 * t210 * t1209;
1078   t1552 = t446 * t1551;
1079   t1555 = t1217 * t154 - 0.6e1 * t1219 * t257 + t511 * t403 - 0.6e1 * t757 * t513 + 0.54e2 * t1225 * t1227 - 0.6e1 * t255 * t1230 - 0.12e2 * t1233 * t1212 - 0.6e1 * t255 * t1236 + t251 * t623 - 0.6e1 * t255 * t1241 + t27 * t1492 + t1505 * t215 + t1507 * t215 + t628 * t469 / 0.10e2 + t408 * t649 / 0.10e2 + t440 * t649 / 0.10e2 - 0.9e1 / 0.100e3 * t194 * t1516 + t194 * t1552 / 0.10e2;
1080   t1563 = t764 * t229;
1081   t1566 = t1154 * t505;
1082   t1569 = t255 * t229;
1083   t1572 = t475 * t1209;
1084   t1576 = t664 * t20;
1085   t1577 = t1576 * t245;
1086   t1580 = t1031 * t522;
1087   t1587 = t45 * t347;
1088   t1597 = 0.6e1 / 0.25e2 * t1580 * t279 - t309 * t1262 / 0.5e1 - 0.11894873388203017833e0 * t40 * t1280 - 0.17842310082304526749e-1 * t638 * t1587 * t279 - 0.14e2 / 0.45e2 * t1178 * t522 + 0.98e2 / 0.225e3 * t1181 * t1252 - 0.14e2 / 0.45e2 * t490 * t1262;
1089   t1600 = t627 * t446;
1090   t1605 = t648 * t468;
1091   t1610 = -p->cam_beta * t1555 + t1217 * t229 - 0.6e1 * t1219 * t476 + t511 * t493 - 0.6e1 * t757 * t655 + 0.54e2 * t1563 * t1227 - 0.6e1 * t255 * t1566 - 0.12e2 * t1569 * t1212 - 0.6e1 * t255 * t1572 + t251 * t664 - 0.6e1 * t255 * t1577 + t27 * t1597 + t1504 * t215 + t1600 * t468 / 0.10e2 + t1189 * t648 / 0.10e2 - 0.9e1 / 0.100e3 * t1192 * t1605 + t496 * t1551 / 0.10e2;
1092   t1611 = t240 * t1610;
1093   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1094     v2rhosigma[0] = -t1202 * t670 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t1611;
1095 
1096   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1097     v2rholapl[0] = 0.0e0;
1098 
1099   t1616 = t245 * t677;
1100   t1620 = my_piecewise3(t18, t242 * t674 / 0.8e1, 0);
1101   t1621 = t19 * t1620;
1102   t1623 = t678 * t245;
1103   t1625 = t20 * t1620;
1104   t1627 = 0.2e1 * t1616 + 0.2e1 * t1621 + 0.18e2 * t1623 + 0.9e1 * t1625;
1105   t1628 = t1627 * t26;
1106   t1630 = t682 * t254;
1107   t1636 = t765 * t677;
1108   t1637 = t1636 * t245;
1109   t1640 = t770 * t677;
1110   t1645 = t256 * t1620;
1111   t1648 = t251 * t572;
1112   t1651 = t572 * t107;
1113   t1652 = t255 * t1651;
1114   t1653 = t116 * t20;
1115   t1655 = t40 * t1653 * t245;
1116   t1658 = t27 * t1269;
1117   t1661 = t45 * t35;
1118   t1662 = t1661 * t690;
1119   t1665 = t689 * t349;
1120   t1678 = 0.12e2 * t255 * t1623 + 0.6e1 * t255 * t1625 + 0.6e1 * t1630 * t248 - 0.54e2 * t764 * t1637 + 0.6e1 * t757 * t680 - t1628;
1121   t1679 = t1678 * t193;
1122   t1681 = t696 * t439;
1123   t1689 = t1104 * t714;
1124   t1690 = t1689 * t468;
1125   t1705 = t457 * t677;
1126   t1708 = t207 * t1620;
1127   t1717 = 0.146e3 / 0.405e3 * t457 * t10 * t700 - 0.146e3 / 0.243e3 * t636 + 0.73e2 / 0.162e3 * t641 - 0.73e2 / 0.270e3 * t704 * t39 * t245 * t211 + 0.73e2 / 0.270e3 * t704 * t705 * t245 - 0.146e3 / 0.135e3 * t1705 * t211 - 0.146e3 / 0.135e3 * t1708 * t211 + 0.292e3 / 0.135e3 * t709 * t245 + 0.146e3 / 0.135e3 * t460 * t677 + 0.146e3 / 0.135e3 * t210 * t1620;
1128   t1718 = t446 * t1717;
1129   t1721 = t1628 * t154 - 0.6e1 * t1630 * t257 + t683 * t403 - 0.6e1 * t757 * t685 + 0.54e2 * t1225 * t1637 - 0.6e1 * t255 * t1640 - 0.12e2 * t1233 * t1623 - 0.6e1 * t255 * t1645 - 0.62888224691358024691e-1 * t1648 * t691 + 0.37732934814814814815e0 * t1652 * t1655 - 0.62888224691358024691e-1 * t1658 * t691 + 0.10481370781893004115e0 * t688 * t1662 + 0.25155289876543209876e-1 * t688 * t1665 + t1679 * t215 + t1681 * t215 + t697 * t469 / 0.10e2 + t408 * t715 / 0.10e2 + t440 * t715 / 0.10e2 - 0.9e1 / 0.100e3 * t194 * t1690 + t194 * t1718 / 0.10e2;
1130   t1731 = t1154 * t677;
1131   t1736 = t475 * t1620;
1132   t1739 = t251 * t10;
1133   t1742 = t255 * t703;
1134   t1747 = t27 * t703;
1135   t1751 = t696 * t446;
1136   t1756 = t714 * t468;
1137   t1761 = -p->cam_beta * t1721 + t1628 * t229 - 0.6e1 * t1630 * t476 + t683 * t493 - 0.6e1 * t757 * t721 + 0.54e2 * t1563 * t1637 - 0.6e1 * t255 * t1731 - 0.12e2 * t1569 * t1623 - 0.6e1 * t255 * t1736 - 0.62888224691358024691e-1 * t1739 * t691 + 0.37732934814814814815e0 * t1742 * t1655 + 0.10481370781893004115e0 * t724 * t1662 + 0.25155289876543209876e-1 * t1747 * t1481 + t1678 * t215 + t1751 * t468 / 0.10e2 + t1189 * t714 / 0.10e2 - 0.9e1 / 0.100e3 * t1192 * t1756 + t496 * t1717 / 0.10e2;
1138   t1762 = t240 * t1761;
1139   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1140     v2rhotau[0] = -t1202 * t731 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t1762;
1141 
1142   t1765 = t505 * t505;
1143   t1767 = my_piecewise3(t18, 0, 0);
1144   t1768 = t19 * t1767;
1145   t1769 = 0.2e1 * t1768;
1146   t1770 = t19 * t1765;
1147   t1772 = t20 * t1767;
1148   t1773 = 0.9e1 * t1772;
1149   t1774 = 0.2e1 * t1765 + t1769 + 0.18e2 * t1770 + t1773;
1150   t1775 = t1774 * t26;
1151   t1781 = t766 * t1765;
1152   t1784 = t1240 * t505;
1153   t1787 = t774 * t1765;
1154   t1790 = t256 * t1767;
1155   t1792 = 0.6e1 * t255 * t1790;
1156   t1793 = t522 * t522;
1157   t1794 = t821 * t1793;
1158   t1799 = 0.1e1 / t43 / t56;
1159   t1801 = t52 * t9;
1160   t1806 = my_piecewise3(t68, 0, 0.11e2 / 0.1800e4 * t32 * t34 * t1794 - 0.59776645471695440000e-4 * t1287 * t1799 * t266 * t1801);
1161   t1811 = t527 * t527;
1162   t1812 = t902 * t1811;
1163   t1822 = t859 * t1811;
1164   t1823 = t1822 * t78;
1165   t1825 = t291 * t1806;
1166   t1828 = t867 * t1811;
1167   t1837 = t71 * t1806;
1168   t1838 = t1837 * t78;
1169   t1839 = -0.2e1 * t1823 + t1825 * t78 / 0.2e1 + t1828 * t78 / 0.4e1 - 0.4e1 * t1811 * t79 - t76 * t1811 * t78 - 0.4e1 * t295 * t1806 - t1838;
1170   t1842 = -t1812 * t78 / 0.2e1 + 0.2e1 * t932 * t1811 - t287 * t1806 + 0.2e1 * t1806 * t82 + 0.4e1 * t527 * t539 + 0.2e1 * t69 * t1839;
1171   t1845 = -0.8e1 / 0.3e1 * t1806 * t85 - 0.16e2 / 0.3e1 * t527 * t542 - 0.8e1 / 0.3e1 * t69 * t1842;
1172   t1851 = t310 * t49;
1173   t1852 = t51 * t9;
1174   t1853 = t1852 * t58;
1175   t1863 = t69 * t1806;
1176   t1865 = t75 * t1811;
1177   t1866 = 0.768e3 * t1865;
1178   t1867 = t121 * t1806;
1179   t1868 = 0.256e3 * t1867;
1180   t1869 = 0.40e2 * t1811 + 0.40e2 * t1863 - t1866 - t1868;
1181   t1872 = t1811 * t78;
1182   t1875 = t1806 * t78;
1183   t1887 = t1869 * t78 + t1362 * t557 - 0.3e1 / 0.2e1 * t990 * t1872 + t322 * t1875 / 0.2e1 + t995 * t1872 / 0.4e1 - 0.72e2 * t1811 - 0.72e2 * t1863 + t1866 + t1868 + 0.10e2 * t70 * t1806 * t73 - 0.10e2 * t1838 - 0.5e1 * t1823;
1184   t1890 = 0.48e2 * t1811 * t101 + 0.96e2 * t1350 * t527 + 0.48e2 * t313 * t1806 + 0.24e2 * t75 * t1887;
1185   t1891 = t1890 * t113;
1186   t1894 = t568 * t10;
1187   t1895 = t1894 * t45;
1188   t1900 = t40 * t619;
1189   t1903 = t921 * t1793;
1190   t1906 = t347 * t9;
1191   t1907 = t1906 * t58;
1192   t1915 = t69 * t1811;
1193   t1917 = t75 * t1806;
1194   t1919 = t121 * t1811;
1195   t1921 = t93 * t1806;
1196   t1923 = t123 * t1811;
1197   t1925 = t134 * t1806;
1198   t1931 = -0.8847360e7 * t125 * t1811 - 0.1105920e7 * t127 * t1806 - 0.8e1 * t1806 + 0.1536e4 * t1915 + 0.768e3 * t1917 - 0.11520e5 * t1919 - 0.2880e4 * t1921 + 0.161658e6 * t1923 + 0.26943e5 * t1925;
1199   t1950 = t93 * t1811;
1200   t1952 = t123 * t1806;
1201   t1954 = 0.448e3 * t1811 + 0.448e3 * t1863 - 0.17280e5 * t1865 - 0.5760e4 * t1867 + 0.153600e6 * t1950 + 0.30720e5 * t1952;
1202   t1960 = t1806 * t73;
1203   t1970 = t76 * t1806;
1204   t1973 = t1931 * t78 + t1426 * t557 - 0.3e1 / 0.2e1 * t860 * t1872 + t364 * t1875 / 0.2e1 + t868 * t1872 / 0.4e1 + 0.144e3 * t871 * t1811 + 0.144e3 * t1443 * t527 + 0.72e2 * t367 * t1806 + 0.24e2 * t121 * t1954 + 0.240e3 * t70 * t1811 * t73 + 0.240e3 * t98 * t1960 - 0.480e3 * t71 * t1811 * t78 - t903 * t1872 + 0.4e1 * t380 * t291 * t1811 - 0.2e1 * t380 * t1970;
1205   t1976 = 0.8e1 / 0.7e1 * t1806 * t144 + 0.16e2 / 0.7e1 * t527 * t608 + 0.8e1 / 0.7e1 * t69 * t1973;
1206   t1977 = t1976 * t35;
1207   t1978 = t1977 * t39;
1208   t1987 = t920 * t1793;
1209   t1988 = t398 * t1987;
1210   t1991 = t147 * sigma[0];
1211   t1992 = t55 * t55;
1212   t1993 = 0.1e1 / t1992;
1213   t1994 = t1993 * t347;
1214   t1997 = t1845 * t90 - 0.2e1 / 0.5e1 * t1484 * t522 + 0.6e1 / 0.25e2 * t1032 * t1793 - 0.21519592369810358400e-2 * t1851 * t1853 + 0.35e2 / 0.81e2 * t1891 * t117 + 0.36552339300411522634e-1 * t1895 * t117 - 0.28e2 / 0.81e2 * t1266 * t576 - 0.14620935720164609054e-1 * t573 * t1900 + 0.98e2 / 0.405e3 * t345 * t1903 - 0.11455098324263666021e-3 * t114 * t1907 + 0.26329605555555555556e-1 * t1978 * t151 + 0.52659211111111111112e-1 * t613 * t616 - 0.21063684444444444444e-1 * t1395 * t620 - 0.21063684444444444444e-1 * t149 * t620 + 0.14744579111111111111e-1 * t397 * t1988 - 0.13960151919265936119e-4 * t1991 * t1994;
1215   t2001 = t765 * t1765;
1216   t2007 = 0.6e1 * t255 * t1772;
1217   t2008 = 0.12e2 * t1219 * t508 + 0.12e2 * t255 * t1770 - 0.54e2 * t764 * t2001 - t1775 + t2007;
1218   t2009 = t2008 * t193;
1219   t2013 = t648 * t648;
1220   t2014 = t1104 * t2013;
1221   t2017 = t9 * t58;
1222   t2018 = t52 * t2017;
1223   t2020 = t45 * t505;
1224   t2022 = t638 * t2020 * t211;
1225   t2025 = t638 * t639 * t505;
1226   t2027 = t207 * t1767;
1227   t2029 = 0.146e3 / 0.135e3 * t2027 * t211;
1228   t2033 = 0.146e3 / 0.135e3 * t210 * t1767;
1229   t2034 = 0.10073e5 / 0.2099520e7 * t2018 + 0.73e2 / 0.9720e4 * t2022 - 0.73e2 / 0.9720e4 * t2025 - t2029 + 0.292e3 / 0.135e3 * t207 * t1765 + t2033;
1230   t2035 = t446 * t2034;
1231   t2038 = t1775 * t154 - 0.12e2 * t1219 * t513 + 0.2e1 * t511 * t623 + 0.54e2 * t764 * t1781 - 0.12e2 * t255 * t1784 - 0.12e2 * t255 * t1787 - t1792 + t27 * t1997 + t2009 * t215 + t628 * t649 / 0.5e1 - 0.9e1 / 0.100e3 * t194 * t2014 + t194 * t2035 / 0.10e2;
1232   t2045 = t1150 * t1765;
1233   t2048 = t1576 * t505;
1234   t2051 = t1158 * t1765;
1235   t2054 = t475 * t1767;
1236   t2056 = 0.6e1 * t255 * t2054;
1237   t2059 = t309 * t49;
1238   t2067 = t490 * t49;
1239   t2070 = 0.6e1 / 0.25e2 * t1031 * t1793 - 0.21519592369810358400e-2 * t2059 * t1853 - 0.35684620164609053498e-1 * t638 * t1587 * t522 + 0.98e2 / 0.225e3 * t1181 * t1793 - 0.33474921464149446400e-2 * t2067 * t1853;
1240   t2079 = -p->cam_beta * t2038 + t1775 * t229 - 0.12e2 * t1219 * t655 + 0.2e1 * t511 * t664 + 0.54e2 * t764 * t2045 - 0.12e2 * t255 * t2048 - 0.12e2 * t255 * t2051 - t2056 + t27 * t2070 + t2008 * t215 + t1600 * t648 / 0.5e1 - 0.9e1 / 0.100e3 * t1192 * t2013 + t496 * t2034 / 0.10e2;
1241   t2080 = t240 * t2079;
1242   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1243     v2sigma2[0] = -0.3e1 / 0.16e2 * t239 * t2080;
1244 
1245   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1246     v2sigmalapl[0] = 0.0e0;
1247 
1248   t2083 = t505 * t677;
1249   t2087 = my_piecewise3(t18, -t13 * t674 / 0.8e1, 0);
1250   t2088 = t19 * t2087;
1251   t2090 = t678 * t505;
1252   t2092 = t20 * t2087;
1253   t2094 = 0.2e1 * t2083 + 0.2e1 * t2088 + 0.18e2 * t2090 + 0.9e1 * t2092;
1254   t2095 = t2094 * t26;
1255   t2102 = t1636 * t505;
1256   t2105 = t1240 * t677;
1257   t2110 = t256 * t2087;
1258   t2113 = t511 * t572;
1259   t2117 = t40 * t1653 * t505;
1260   t2120 = t27 * t1894;
1261   t2123 = t689 * t576;
1262   t2136 = 0.6e1 * t1219 * t680 + 0.6e1 * t1630 * t508 + 0.12e2 * t255 * t2090 + 0.6e1 * t255 * t2092 - 0.54e2 * t764 * t2102 - t2095;
1263   t2137 = t2136 * t193;
1264   t2143 = t1689 * t648;
1265   t2147 = 0.1e1 / t11 / t55;
1266   t2149 = t52 * t9 * t2147;
1267   t2151 = t39 * t505;
1268   t2158 = t45 * t677;
1269   t2160 = t638 * t2158 * t211;
1270   t2162 = t207 * t2087;
1271   t2168 = t638 * t639 * t677;
1272   t2172 = -0.73e2 / 0.29160e5 * t2149 - 0.73e2 / 0.270e3 * t704 * t2151 * t211 + 0.73e2 / 0.270e3 * t704 * t705 * t505 + 0.73e2 / 0.19440e5 * t2160 - 0.146e3 / 0.135e3 * t2162 * t211 + 0.292e3 / 0.135e3 * t709 * t505 - 0.73e2 / 0.19440e5 * t2168 + 0.146e3 / 0.135e3 * t210 * t2087;
1273   t2173 = t446 * t2172;
1274   t2176 = t2095 * t154 - 0.6e1 * t1630 * t513 + t683 * t623 - 0.6e1 * t1219 * t685 + 0.54e2 * t1225 * t2102 - 0.6e1 * t255 * t2105 - 0.12e2 * t1233 * t2090 - 0.6e1 * t255 * t2110 - 0.62888224691358024691e-1 * t2113 * t691 + 0.37732934814814814815e0 * t1652 * t2117 - 0.62888224691358024691e-1 * t2120 * t691 + 0.25155289876543209876e-1 * t688 * t2123 + t2137 * t215 + t697 * t649 / 0.10e2 + t628 * t715 / 0.10e2 - 0.9e1 / 0.100e3 * t194 * t2143 + t194 * t2173 / 0.10e2;
1275   t2186 = t1576 * t677;
1276   t2191 = t475 * t2087;
1277   t2194 = t511 * t10;
1278   t2206 = t714 * t648;
1279   t2211 = -p->cam_beta * t2176 + t2095 * t229 - 0.6e1 * t1630 * t655 + t683 * t664 - 0.6e1 * t1219 * t721 + 0.54e2 * t1563 * t2102 - 0.6e1 * t255 * t2186 - 0.12e2 * t1569 * t2090 - 0.6e1 * t255 * t2191 - 0.62888224691358024691e-1 * t2194 * t691 + 0.37732934814814814815e0 * t1742 * t2117 + 0.25155289876543209876e-1 * t1747 * t1900 + t2136 * t215 + t1751 * t648 / 0.10e2 + t1600 * t714 / 0.10e2 - 0.9e1 / 0.100e3 * t1192 * t2206 + t496 * t2172 / 0.10e2;
1280   t2212 = t240 * t2211;
1281   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1282     v2sigmatau[0] = -0.3e1 / 0.16e2 * t239 * t2212;
1283 
1284   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1285     v2lapl2[0] = 0.0e0;
1286 
1287   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1288     v2lapltau[0] = 0.0e0;
1289 
1290   t2215 = t677 * t677;
1291   t2218 = 0.1e1 / t673 / tau[0];
1292   t2221 = my_piecewise3(t18, t14 * t2218 / 0.4e1, 0);
1293   t2222 = t19 * t2221;
1294   t2224 = t19 * t2215;
1295   t2226 = t20 * t2221;
1296   t2228 = 0.2e1 * t2215 + 0.2e1 * t2222 + 0.18e2 * t2224 + 0.9e1 * t2226;
1297   t2229 = t2228 * t26;
1298   t2233 = t683 * t572;
1299   t2236 = t766 * t2215;
1300   t2240 = t40 * t1653 * t677;
1301   t2243 = t774 * t2215;
1302   t2246 = t256 * t2221;
1303   t2251 = t765 * t2215;
1304   t2258 = 0.12e2 * t1630 * t680 + 0.12e2 * t255 * t2224 + 0.6e1 * t255 * t2226 - 0.54e2 * t764 * t2251 - t2229;
1305   t2259 = t2258 * t193;
1306   t2263 = t714 * t714;
1307   t2264 = t1104 * t2263;
1308   t2268 = 0.1e1 / t11 / t267;
1309   t2272 = t39 * t677;
1310   t2279 = t207 * t2221;
1311   t2286 = 0.73e2 / 0.405e3 * t9 * t2268 * t52 - 0.73e2 / 0.135e3 * t704 * t2272 * t211 + 0.73e2 / 0.135e3 * t704 * t705 * t677 - 0.146e3 / 0.135e3 * t2279 * t211 + 0.292e3 / 0.135e3 * t207 * t2215 + 0.146e3 / 0.135e3 * t210 * t2221;
1312   t2287 = t446 * t2286;
1313   t2290 = t2229 * t154 - 0.12e2 * t1630 * t685 - 0.12577644938271604938e0 * t2233 * t691 + 0.54e2 * t764 * t2236 + 0.75465869629629629630e0 * t1652 * t2240 - 0.12e2 * t255 * t2243 - 0.6e1 * t255 * t2246 + t2259 * t215 + t697 * t715 / 0.5e1 - 0.9e1 / 0.100e3 * t194 * t2264 + t194 * t2287 / 0.10e2;
1314   t2295 = t683 * t10;
1315   t2298 = t1150 * t2215;
1316   t2303 = t1158 * t2215;
1317   t2306 = t475 * t2221;
1318   t2316 = -p->cam_beta * t2290 + t2229 * t229 - 0.12e2 * t1630 * t721 - 0.12577644938271604938e0 * t2295 * t691 + 0.54e2 * t764 * t2298 + 0.75465869629629629630e0 * t1742 * t2240 - 0.12e2 * t255 * t2303 - 0.6e1 * t255 * t2306 + t2258 * t215 + t1751 * t714 / 0.5e1 - 0.9e1 / 0.100e3 * t1192 * t2263 + t496 * t2286 / 0.10e2;
1319   t2317 = t240 * t2316;
1320   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1321     v2tau2[0] = -0.3e1 / 0.16e2 * t239 * t2317;
1322 
1323 #ifndef XC_DONT_COMPILE_KXC
1324 
1325   if(order < 3) return;
1326 
1327 
1328   t2329 = t468 * t1139;
1329   t2334 = t229 * t21;
1330   t2335 = t741 * t245;
1331   t2336 = t2334 * t2335;
1332   t2339 = t493 * t19;
1333   t2340 = t2339 * t741;
1334   t2343 = t1186 * t20;
1335   t2344 = t2343 * t245;
1336   t2347 = t754 * t254;
1337   t2352 = t245 * t747;
1338   t2354 = 0.1e1 / t55;
1339   t2355 = sigma[0] * t2354;
1340   t2358 = my_piecewise3(t18, -0.3e1 / 0.4e1 * t2355 * t15, 0);
1341   t2362 = t246 * t747;
1342   t2364 = t20 * t2358;
1343   t2366 = 0.2e1 * t19 * t2358 + 0.18e2 * t2335 + 0.6e1 * t2352 + 0.54e2 * t2362 + 0.9e1 * t2364;
1344   t2367 = t2366 * t26;
1345   t2370 = t250 * t763;
1346   t2378 = 0.1e1 / t762 / t24;
1347   t2379 = t23 * t2378;
1348   t2380 = t765 * t20;
1349   t2381 = t2380 * t2335;
1350   t2384 = t21 * t2335;
1351   t2387 = t765 * t245;
1352   t2388 = t2387 * t747;
1353   t2397 = -0.162e3 * t2370 * t1039 + 0.12e2 * t255 * t2335 + 0.18e2 * t2347 * t248 + 0.36e2 * t255 * t2362 + 0.6e1 * t255 * t2364 + 0.648e3 * t2379 * t2381 - 0.324e3 * t764 * t2384 - 0.162e3 * t764 * t2388 + 0.36e2 * t757 * t750 + 0.18e2 * t757 * t752 - t2367;
1354   t2399 = t475 * t2358;
1355   t2406 = t493 * t765;
1356   t2407 = t2406 * t741;
1357   t2410 = t229 * t2380;
1358   t2411 = t2410 * t2335;
1359   t2414 = -0.27e2 / 0.100e3 * t1192 * t2329 - 0.36e2 * t757 * t1159 + 0.324e3 * t764 * t2336 - 0.36e2 * t255 * t2340 - 0.18e2 * t255 * t2344 - 0.18e2 * t2347 * t476 - 0.36e2 * t757 * t1155 + t2397 * t215 - 0.6e1 * t255 * t2399 - 0.18e2 * t757 * t1162 + 0.162e3 * t2370 * t1151 + 0.162e3 * t764 * t2407 - 0.648e3 * t2379 * t2411;
1360   t2415 = t1154 * t747;
1361   t2418 = t1104 * t468;
1362   t2419 = t2418 * t1139;
1363   t2422 = t306 * t1031;
1364   t2425 = t819 * t62;
1365   t2427 = 0.1e1 / t89 / t2425;
1366   t2428 = t88 * t2427;
1367   t2429 = t822 * t279;
1368   t2436 = t69 * t1005;
1369   t2441 = t2 * t2268;
1370   t2455 = 0.1e1 / t63 / t2425;
1371   t2456 = t2455 * t2429;
1372   t2460 = t279 * t792;
1373   t2464 = t41 * t1799;
1374   t2465 = t40 * t2464;
1375   t2468 = 0.1e1 / t11 / t1992;
1376   t2470 = t52 * t54 * t2468;
1377   t2472 = -0.68652008559670781891e1 * t2465 - 0.13326206830489970091e1 * t2470;
1378   t2473 = t266 * t2472;
1379   t2478 = my_piecewise3(t68, 0, -0.14e2 / 0.243e3 * t32 * t2441 * t64 - t32 * t812 * t280 / 0.135e3 - 0.11e2 / 0.1800e4 * t32 * t261 * t823 + t32 * t261 * t827 / 0.180e3 - 0.77e2 / 0.6000e4 * t32 * t34 * t2456 + 0.11e2 / 0.600e3 * t1287 * t1288 * t2460 - t32 * t34 * t2473 / 0.180e3);
1380   t2481 = t285 * t832;
1381   t2483 = t69 * t2478;
1382   t2485 = t838 * t285;
1383   t2486 = t69 * t2485;
1384   t2487 = 0.1536e4 * t2486;
1385   t2488 = t354 * t832;
1386   t2489 = 0.2304e4 * t2488;
1387   t2490 = t121 * t2478;
1388   t2491 = 0.256e3 * t2490;
1389   t2492 = 0.120e3 * t2481 + 0.40e2 * t2483 - t2487 - t2489 - t2491;
1390   t2494 = t95 * t902;
1391   t2495 = t2485 * t78;
1392   t2498 = t323 * t832;
1393   t2503 = t320 * t859;
1394   t2506 = t70 * t2478;
1395   t2509 = t71 * t2478;
1396   t2510 = t2509 * t78;
1397   t2512 = 0.1e1 / t125;
1398   t2513 = t2512 * t2485;
1399   t2515 = 0.5e1 / 0.2e1 * t2513 * t78;
1400   t2519 = t986 * t291;
1401   t2524 = t320 * t867;
1402   t2527 = t95 * t2512;
1403   t2530 = t2478 * t78;
1404   t2533 = 0.1e1 / t128;
1405   t2534 = t95 * t2533;
1406   t2537 = t902 * t2485;
1407   t2538 = t2537 * t78;
1408   t2540 = t859 * t285;
1409   t2541 = t2540 * t864;
1410   t2543 = -0.216e3 * t2481 + t2487 + t2489 + 0.3e1 / 0.2e1 * t2519 * t323 + 0.3e1 / 0.2e1 * t988 * t864 + 0.3e1 / 0.4e1 * t2524 * t861 - 0.9e1 / 0.4e1 * t2527 * t2495 + t322 * t2530 / 0.2e1 + t2534 * t2495 / 0.8e1 + 0.20e2 * t2538 - 0.15e2 * t2541;
1411   t2544 = t2492 * t78 + 0.6e1 * t2494 * t2495 - 0.9e1 / 0.2e1 * t990 * t2498 + 0.3e1 / 0.4e1 * t995 * t2498 - 0.9e1 / 0.2e1 * t2503 * t861 + 0.10e2 * t2506 * t73 - 0.10e2 * t2510 - t2515 + t2491 - 0.72e2 * t2483 + t2543;
1412   t2547 = 0.144e3 * t1343 * t832 + 0.144e3 * t2436 * t285 + 0.48e2 * t313 * t2478 + 0.24e2 * t75 * t2544 + 0.144e3 * t838 * t331 + 0.144e3 * t977 * t832;
1413   t2548 = t2547 * t113;
1414   t2551 = t1008 * t341;
1415   t2554 = t334 * t971;
1416   t2557 = t105 * t782;
1417   t2558 = 0.23717844740740740741e1 * t2557;
1418   t2560 = t2558 - 0.19299635150617283950e1 * t2464;
1419   t2561 = t104 * t2560;
1420   t2564 = t963 * t309;
1421   t2578 = 0.1e1 / t127;
1422   t2582 = t859 * t2485;
1423   t2583 = t2582 * t78;
1424   t2602 = t2533 * t2485;
1425   t2611 = 0.15e2 / 0.2e1 * t2538 - 0.6e1 * t2541 - t2515 + t291 * t2478 * t78 / 0.2e1 + 0.3e1 / 0.4e1 * t867 * t832 * t323 + t2602 * t78 / 0.8e1 - 0.12e2 * t1323 * t832 - 0.3e1 * t381 * t864 - 0.4e1 * t295 * t2478 - t2510;
1426   t2614 = 0.7e1 / 0.2e1 * t867 * t2485 * t78 - 0.3e1 / 0.2e1 * t1301 * t864 - t2578 * t2485 * t78 / 0.4e1 - 0.6e1 * t2583 + 0.6e1 * t932 * t2481 - t287 * t2478 + 0.2e1 * t2478 * t82 + 0.6e1 * t832 * t300 + 0.6e1 * t285 * t957 + 0.2e1 * t69 * t2611;
1427   t2617 = -0.8e1 / 0.3e1 * t2478 * t85 - 0.8e1 * t832 * t303 - 0.8e1 * t285 * t960 - 0.8e1 / 0.3e1 * t69 * t2614;
1428   t2620 = t920 * t792 * t279;
1429   t2621 = t398 * t2620;
1430   t2628 = t915 * t396;
1431   t2632 = 0.1e1 / t115 / t2425;
1432   t2633 = t39 * t2632;
1433   t2634 = t2633 * t2429;
1434   t2637 = t972 * t35;
1435   t2640 = t965 * t35;
1436   t2647 = 0.18e2 / 0.25e2 * t2422 * t822 - 0.66e2 / 0.125e3 * t2428 * t2429 + 0.35e2 / 0.81e2 * t2548 * t117 + 0.35e2 / 0.27e2 * t2551 * t117 + 0.35e2 / 0.27e2 * t2554 * t117 + 0.35e2 / 0.81e2 * t2561 * t117 - 0.3e1 / 0.5e1 * t2564 * t279 + t2617 * t90 + 0.44233737333333333333e-1 * t397 * t2621 - 0.3e1 / 0.5e1 * t1023 * t792 - t310 * t2472 / 0.5e1 - 0.31595526666666666666e-1 * t2628 * t400 - 0.392e3 / 0.675e3 * t345 * t2634 - 0.14e2 / 0.27e2 * t2637 * t349 - 0.28e2 / 0.27e2 * t2640 * t349 + 0.98e2 / 0.135e3 * t1018 * t922 + 0.98e2 / 0.135e3 * t1012 * t922;
1437   t2650 = t348 * t2472;
1438   t2653 = t1009 * t35;
1439   t2660 = t2632 * t2429;
1440   t2661 = t398 * t2660;
1441   t2666 = t801 * t1026;
1442   t2669 = t801 * t793;
1443   t2672 = t10 * t782;
1444   t2673 = t2672 * t399;
1445   t2678 = t347 * t2472;
1446   t2679 = t398 * t2678;
1447   t2684 = t921 * t2460;
1448   t2708 = t69 * t374;
1449   t2711 = t75 * t890;
1450   t2717 = t140 * t867;
1451   t2720 = t130 * t902;
1452   t2723 = t362 * t859;
1453   t2726 = -0.3e1 * t903 * t2498 + 0.12e2 * t380 * t292 * t832 + 0.3e1 / 0.4e1 * t868 * t2498 - 0.9e1 / 0.2e1 * t860 * t2498 + 0.720e3 * t2495 * t76 + 0.216e3 * t874 * t832 + 0.72e2 * t367 * t2478 + 0.432e3 * t2708 * t838 + 0.216e3 * t2711 * t285 - 0.360e3 * t2583 - 0.12e2 * t380 * t2582 + 0.7e1 * t2717 * t2495 + 0.6e1 * t2720 * t2495 - 0.9e1 / 0.2e1 * t2723 * t861;
1454   t2729 = t130 * t2533;
1455   t2736 = t2478 * t73;
1456   t2741 = t140 * t2578;
1457   t2744 = t76 * t2478;
1458   t2747 = t855 * t291;
1459   t2752 = t362 * t867;
1460   t2755 = t130 * t2512;
1461   t2778 = t125 * t285;
1462   t2783 = -0.1105920e7 * t127 * t2478 + 0.26943e5 * t134 * t2478 - 0.61931520e8 * t134 * t2485 + 0.768e3 * t75 * t2478 - 0.2880e4 * t93 * t2478 - 0.34560e5 * t75 * t2485 + 0.808290e6 * t93 * t2485 - 0.26542080e8 * t2778 * t832 + 0.4608e4 * t316 * t832 - 0.34560e5 * t318 * t832 + 0.484974e6 * t372 * t832 - 0.8e1 * t2478 + 0.1536e4 * t2485;
1463   t2798 = 0.614400e6 * t121 * t2485 + 0.30720e5 * t123 * t2478 + 0.460800e6 * t356 * t832 + 0.1344e4 * t2481 + 0.448e3 * t2483 - 0.34560e5 * t2486 - 0.51840e5 * t2488 - 0.5760e4 * t2490;
1464   t2801 = t364 * t2530 / 0.2e1 + t2729 * t2495 / 0.8e1 + 0.432e3 * t871 * t2481 + 0.720e3 * t327 * t896 + 0.240e3 * t98 * t2736 - 0.1440e4 * t955 * t323 - t2741 * t2495 / 0.2e1 - 0.2e1 * t380 * t2744 + 0.3e1 / 0.2e1 * t2747 * t323 + 0.3e1 / 0.2e1 * t857 * t864 + 0.3e1 / 0.4e1 * t2752 * t861 - 0.9e1 / 0.4e1 * t2755 * t2495 + t2783 * t78 + 0.144e3 * t2485 * t136 + 0.24e2 * t121 * t2798;
1465   t2802 = t2726 + t2801;
1466   t2806 = (0.8e1 / 0.7e1 * t2478 * t144 + 0.24e2 / 0.7e1 * t832 * t384 + 0.24e2 / 0.7e1 * t285 * t911 + 0.8e1 / 0.7e1 * t69 * t2802) * t35;
1467   t2807 = t2806 * t39;
1468   t2815 = t41 * t1799 * t116;
1469   t2818 = 0.18e2 / 0.25e2 * t1032 * t2460 - 0.14e2 / 0.81e2 * t345 * t2650 - 0.14e2 / 0.27e2 * t2653 * t349 - 0.14e2 / 0.27e2 * t1012 * t1015 - 0.14e2 / 0.27e2 * t1018 * t1015 - 0.35386989866666666666e-1 * t397 * t2661 + 0.44233737333333333333e-1 * t807 * t1027 - 0.11795663288888888889e0 * t397 * t2666 + 0.84254737777777777777e-1 * t397 * t2669 - 0.30893403851851851852e0 * t397 * t2673 + 0.16850947555555555555e0 * t807 * t802 - 0.10531842222222222222e-1 * t397 * t2679 - 0.31595526666666666666e-1 * t807 * t794 + 0.98e2 / 0.135e3 * t345 * t2684 + 0.26329605555555555556e-1 * t2807 * t151 - 0.21063684444444444445e0 * t916 * t393 + 0.77233509629629629632e0 * t389 * t798 - 0.12014101497942386831e1 * t149 * t2815;
1470   t2819 = t2647 + t2818;
1471   t2823 = t407 * t1098;
1472   t2828 = t2397 * t193;
1473   t2830 = t1046 * t439;
1474   t2833 = t154 * t2335;
1475   t2849 = t36 / t1078 / p->cam_omega;
1476   t2852 = t169 * t2 * t176;
1477   t2870 = t36 * t36;
1478   t2873 = t2870 / t1078 / t170;
1479   t2880 = t743 * t176;
1480   t2884 = t172 * t176;
1481   t2887 = -0.8e1 / 0.27e2 * t1080 * t425 * t176 - 0.8e1 / 0.3e1 * t2873 * t429 + 0.40e2 / 0.243e3 * t178 * t160 * t269 * t181 + 0.40e2 / 0.27e2 * t2880 + 0.10e2 / 0.81e2 * t811 * t29 * t168 * t2884;
1482   t2891 = 0.20e2 / 0.9e1 * t1062 * t1088 + 0.8e1 / 0.27e2 * t2849 * t260 * t2852 + 0.20e2 / 0.81e2 * t414 * t161 * t45 - 0.28e2 / 0.243e3 * t32 * t2441 * t185 + 0.4e1 / 0.27e2 * t32 * t812 * t431 - t32 * t261 * t1090 / 0.9e1 + t32 * t34 * t2887 / 0.9e1;
1483   t2895 = 0.112e3 / 0.729e3 * t32 * t2441 * t189 - 0.16e2 / 0.81e2 * t32 * t812 * t435 + 0.4e1 / 0.27e2 * t32 * t261 * t1094 - 0.4e1 / 0.27e2 * t32 * t34 * t2891;
1484   t2896 = t156 * t2895;
1485   t2918 = (-0.440e3 / 0.27e2 * t2557 + 0.154e3 / 0.27e2 * t2464) * t35 * t39 / 0.4e1 - 0.308e3 / 0.243e3 * t2465;
1486   t2921 = t2918 * t19;
1487   t2929 = t457 * t747;
1488   t2936 = t207 * t2358;
1489   t2943 = -0.85250e5 / 0.177147e6 * t2470 - 0.1540e4 / 0.81e2 * t198 * t2464 + 0.584e3 / 0.135e3 * t457 * t1121 + 0.584e3 / 0.405e3 * t207 * t2918 - 0.146e3 / 0.135e3 * t2921 * t211 - 0.146e3 / 0.45e2 * t1121 * t245 * t211 + 0.146e3 / 0.45e2 * t1124 * t245 - 0.146e3 / 0.45e2 * t2929 * t211 + 0.292e3 / 0.45e2 * t457 * t741 + 0.146e3 / 0.45e2 * t460 * t747 - 0.146e3 / 0.135e3 * t2936 * t211 + 0.292e3 / 0.45e2 * t1132 * t245 + 0.146e3 / 0.135e3 * t210 * t2358;
1490   t2944 = t446 * t2943;
1491   t2951 = -0.27e2 / 0.100e3 * t194 * t2419 + t27 * t2819 - 0.36e2 * t1233 * t2362 + 0.3e1 * t2823 * t215 - 0.27e2 / 0.100e3 * t408 * t1106 + t2828 * t215 + 0.3e1 * t2830 * t215 - 0.12e2 * t255 * t2833 + t2896 * t215 + 0.3e1 / 0.10e2 * t1047 * t469 + 0.3e1 / 0.10e2 * t408 * t1140 + 0.3e1 / 0.10e2 * t1099 * t469 + 0.3e1 / 0.5e1 * t1049 * t469 + t194 * t2944 / 0.10e2 + 0.3e1 / 0.10e2 * t440 * t1140 + 0.3e1 * t755 * t403;
1492   t2955 = t214 * t214;
1493   t2957 = 0.1e1 / t445 / t2955;
1494   t2958 = t1105 * t468;
1495   t2959 = t2957 * t2958;
1496   t2966 = t154 * t21;
1497   t2967 = t2966 * t2335;
1498   t2980 = t403 * t765;
1499   t2981 = t2980 * t741;
1500   t2984 = t1035 * t20;
1501   t2985 = t2984 * t245;
1502   t2988 = t770 * t747;
1503   t2991 = t154 * t2380;
1504   t2992 = t2991 * t2335;
1505   t2995 = t403 * t19;
1506   t2996 = t2995 * t741;
1507   t2999 = t256 * t2358;
1508   t3002 = 0.3e1 * t251 * t1035 + t2367 * t154 + 0.171e3 / 0.1000e4 * t194 * t2959 - 0.27e2 / 0.100e3 * t440 * t1106 + 0.162e3 * t1225 * t2388 + 0.324e3 * t764 * t2967 - 0.36e2 * t757 * t775 - 0.18e2 * t757 * t778 + 0.162e3 * t2370 * t767 - 0.18e2 * t2347 * t257 - 0.36e2 * t757 * t771 + 0.162e3 * t764 * t2981 - 0.18e2 * t255 * t2985 - 0.18e2 * t255 * t2988 - 0.648e3 * t2379 * t2992 - 0.36e2 * t255 * t2996 - 0.6e1 * t255 * t2999;
1509   t3009 = t1046 * t446;
1510   t3014 = t1031 * t279;
1511   t3025 = -0.29177103637860082304e1 * t2465 - 0.5e1 / 0.9e1 * (-t2558 - 0.54150879308641975309e0 * t2464) * t35 * t39;
1512   t3028 = t1175 * t347;
1513   t3031 = t487 * t920;
1514   t3036 = t226 * t2632;
1515   t3043 = -0.66e2 / 0.125e3 * t2427 * t2429 + 0.18e2 / 0.25e2 * t3014 * t792 - t309 * t2472 / 0.5e1 + 0.7e1 / 0.9e1 * t3025 * t116 - 0.14e2 / 0.15e2 * t3028 * t279 + 0.98e2 / 0.75e2 * t3031 * t822 - 0.14e2 / 0.15e2 * t1178 * t792 - 0.392e3 / 0.375e3 * t3036 * t2429 + 0.98e2 / 0.75e2 * t1181 * t2460 - 0.14e2 / 0.45e2 * t490 * t2472;
1516   t3050 = t407 * t1104;
1517   t3053 = t156 * t2957;
1518   t3056 = t229 * t2335;
1519   t3063 = -0.18e2 * t255 * t2415 - p->cam_beta * (t2951 + t3002) + 0.3e1 * t755 * t493 + 0.3e1 * t251 * t1186 + 0.3e1 / 0.10e2 * t3009 * t468 + t27 * t3043 + t2367 * t229 + 0.3e1 / 0.10e2 * t1189 * t1139 + t496 * t2943 / 0.10e2 - 0.27e2 / 0.100e3 * t3050 * t1105 + 0.171e3 / 0.1000e4 * t3053 * t2958 - 0.12e2 * t255 * t3056 - 0.36e2 * t1569 * t2362 + 0.162e3 * t1563 * t2388;
1520   t3064 = t2414 + t3063;
1521   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1522     v3rho3[0] = t8 * t703 * t232 / 0.18e2 - t8 * t734 * t499 / 0.4e1 - 0.3e1 / 0.4e1 * t8 * t12 * t1197 - 0.3e1 / 0.16e2 * t239 * t240 * t3064;
1523 
1524   t3069 = t179 * t2 * t4;
1525   t3074 = t757 * t229;
1526   t3077 = t2370 * t229;
1527   t3080 = t764 * t493;
1528   t3083 = t765 * t1209;
1529   t3084 = t3083 * t245;
1530   t3087 = t21 * t505;
1531   t3088 = t3087 * t741;
1532   t3091 = t1210 * t245;
1533   t3094 = t506 * t747;
1534   t3101 = t1216 * t254;
1535   t3106 = -0.12e2 * t1219 * t1155 - 0.24e2 * t3074 * t1212 + 0.108e3 * t3077 * t1227 + 0.108e3 * t3080 * t1227 + 0.108e3 * t1563 * t3084 + 0.324e3 * t1563 * t3088 - 0.12e2 * t757 * t1566 - 0.24e2 * t1569 * t3091 - 0.12e2 * t1569 * t3094 - 0.12e2 * t757 * t1572 - 0.12e2 * t3101 * t476;
1536   t3109 = t510 * t763;
1537   t3114 = t1551 * t468;
1538   t3117 = t648 * t1139;
1539   t3125 = t747 * t505;
1540   t3127 = t245 * t1209;
1541   t3131 = my_piecewise3(t18, t743 * t15 / 0.4e1, 0);
1542   t3132 = t19 * t3131;
1543   t3134 = t741 * t505;
1544   t3138 = t20 * t3131;
1545   t3140 = 0.2e1 * t3125 + 0.4e1 * t3127 + 0.2e1 * t3132 + 0.18e2 * t3134 + 0.36e2 * t3091 + 0.18e2 * t3094 + 0.9e1 * t3138;
1546   t3141 = t3140 * t26;
1547   t3145 = t1226 * t747;
1548   t3148 = -0.6e1 * t1219 * t1162 + 0.54e2 * t3109 * t1151 - 0.6e1 * t2347 * t655 - 0.9e1 / 0.50e2 * t1192 * t3114 - 0.9e1 / 0.100e3 * t1192 * t3117 - 0.9e1 / 0.50e2 * t3050 * t1605 + 0.2e1 * t251 * t1597 + t511 * t1186 + t3141 * t229 + 0.2e1 * t1217 * t493 + 0.54e2 * t1563 * t3145;
1549   t3150 = t2379 * t229;
1550   t3151 = t2380 * t505;
1551   t3152 = t3151 * t741;
1552   t3155 = t255 * t493;
1553   t3159 = t52 * t518 * t788;
1554   t3161 = t1121 * t35;
1555   t3162 = t3161 * t632;
1556   t3165 = t40 * t398 * t741;
1557   t3167 = t782 * t19;
1558   t3169 = t638 * t3167 * t211;
1559   t3171 = t631 * t782;
1560   t3174 = t1523 * t1520;
1561   t3176 = t635 * t3171;
1562   t3180 = t638 * t269 * t245 * t211;
1563   t3183 = t638 * t1528 * t245;
1564   t3187 = t638 * t45 * t747 * t211;
1565   t3190 = t638 * t639 * t747;
1566   t3192 = t1121 * t505;
1567   t3195 = t457 * t1209;
1568   t3200 = t207 * t3131;
1569   t3213 = 0.8125e4 / 0.59049e5 * t3159 - 0.73e2 / 0.14580e5 * t3162 - 0.73e2 / 0.9720e4 * t3165 + 0.803e3 / 0.21870e5 * t3169 + 0.110e3 / 0.27e2 * t197 * t3171 + 0.292e3 / 0.10935e5 * t3174 - 0.1606e4 / 0.32805e5 * t3176 - 0.73e2 / 0.3645e4 * t3180 + 0.73e2 / 0.3645e4 * t3183 + 0.73e2 / 0.19440e5 * t3187 - 0.73e2 / 0.19440e5 * t3190 - 0.146e3 / 0.135e3 * t3192 * t211 - 0.292e3 / 0.135e3 * t3195 * t211 + 0.584e3 / 0.135e3 * t1539 * t245 - 0.146e3 / 0.135e3 * t3200 * t211 + 0.584e3 / 0.135e3 * t1542 * t245 + 0.292e3 / 0.135e3 * t643 * t747 + 0.146e3 / 0.135e3 * t1124 * t505 + 0.292e3 / 0.135e3 * t460 * t1209 + 0.146e3 / 0.135e3 * t210 * t3131;
1570   t3248 = -0.54e2 * t3109 * t1039 + 0.24e2 * t757 * t1212 + 0.12e2 * t757 * t1214 + 0.12e2 * t1219 * t750 + 0.6e1 * t1219 * t752 - 0.108e3 * t2370 * t1227 + 0.6e1 * t2347 * t508 + 0.648e3 * t2379 * t3152 + 0.12e2 * t3101 * t248 + 0.24e2 * t255 * t3091 + 0.12e2 * t255 * t3094 + 0.12e2 * t255 * t3134 + 0.6e1 * t255 * t3138 - 0.108e3 * t764 * t3084 - 0.324e3 * t764 * t3088 - 0.54e2 * t764 * t3145 - t3141;
1571   t3256 = t446 * t3213;
1572   t3263 = t1515 * t1139;
1573   t3268 = t1104 * t1551;
1574   t3269 = t3268 * t468;
1575   t3278 = t628 * t1140 / 0.10e2 + t1047 * t649 / 0.10e2 + t1049 * t649 / 0.5e1 + t194 * t3256 / 0.10e2 + t440 * t1552 / 0.5e1 - 0.9e1 / 0.50e2 * t408 * t1516 - 0.9e1 / 0.100e3 * t194 * t3263 - 0.9e1 / 0.50e2 * t440 * t1516 - 0.9e1 / 0.50e2 * t194 * t3269 + 0.2e1 * t251 * t1492 + t1505 * t469 / 0.5e1 + t1507 * t469 / 0.5e1;
1576   t3286 = t2957 * t648 * t1105;
1577   t3295 = t832 * t101;
1578   t3298 = t285 * t331;
1579   t3310 = t260 * t821;
1580   t3317 = t33 * t2455;
1581   t3318 = t522 * t822;
1582   t3322 = t1262 * t279;
1583   t3326 = t522 * t792;
1584   t3333 = 0.14711144691358024691e1 * t40 * t2672 + 0.36344200446790827520e0 * t3159;
1585   t3334 = t266 * t3333;
1586   t3339 = my_piecewise3(t68, 0, -t32 * t812 * t523 / 0.405e3 - 0.11e2 / 0.2700e4 * t1287 * t3310 * t1252 + t32 * t261 * t1292 / 0.270e3 - 0.77e2 / 0.6000e4 * t1287 * t3317 * t3318 + 0.11e2 / 0.900e3 * t1287 * t1288 * t3322 + 0.11e2 / 0.1800e4 * t1287 * t1288 * t3326 - t32 * t34 * t3334 / 0.180e3);
1587   t3344 = t69 * t1382;
1588   t3349 = t527 * t838;
1589   t3350 = t3349 * t78;
1590   t3355 = t1297 * t285;
1591   t3356 = t3355 * t78;
1592   t3359 = t527 * t832;
1593   t3360 = t3359 * t78;
1594   t3373 = t555 * t859;
1595   t3376 = t1314 * t864;
1596   t3378 = t2512 * t527;
1597   t3380 = 0.5e1 / 0.2e1 * t3378 * t861;
1598   t3381 = t1360 * t291;
1599   t3385 = t555 * t867;
1600   t3388 = t2534 * t3350 / 0.8e1 - 0.9e1 / 0.4e1 * t2527 * t3350 + t995 * t3356 / 0.2e1 + t995 * t3360 / 0.4e1 - 0.3e1 * t2503 * t1367 + t2524 * t1367 / 0.2e1 - 0.3e1 * t990 * t3356 - 0.3e1 / 0.2e1 * t990 * t3360 + 0.6e1 * t2494 * t3350 - 0.3e1 / 0.2e1 * t3373 * t861 - 0.5e1 * t3376 - t3380 + t3381 * t323 + t1362 * t864 / 0.2e1 + t3385 * t861 / 0.4e1;
1601   t3392 = t3339 * t78;
1602   t3395 = t859 * t1297;
1603   t3396 = t3395 * t323;
1604   t3398 = t902 * t527;
1605   t3399 = t3398 * t861;
1606   t3401 = t121 * t3339;
1607   t3402 = 0.256e3 * t3401;
1608   t3405 = t69 * t3339;
1609   t3410 = t551 * t838;
1610   t3411 = 0.1536e4 * t3410;
1611   t3412 = t1409 * t285;
1612   t3413 = 0.1536e4 * t3412;
1613   t3414 = t581 * t832;
1614   t3415 = 0.768e3 * t3414;
1615   t3416 = 0.40e2 * t3359 + 0.80e2 * t3355 + 0.40e2 * t3405 - t3411 - t3413 - t3415 - t3402;
1616   t3418 = t71 * t3339;
1617   t3419 = t3418 * t78;
1618   t3424 = t2519 * t557 / 0.2e1 + t988 * t1370 + t322 * t3392 / 0.2e1 - 0.10e2 * t3396 + 0.20e2 * t3399 + t3402 - 0.72e2 * t3359 - 0.144e3 * t3355 - 0.72e2 * t3405 + t3416 * t78 - 0.10e2 * t3419 + 0.10e2 * t70 * t3339 * t73 + t3413 + t3415 + t3411;
1619   t3425 = t3388 + t3424;
1620   t3428 = 0.96e2 * t1343 * t1297 + 0.96e2 * t977 * t1297 + 0.48e2 * t1350 * t832 + 0.48e2 * t2436 * t527 + 0.96e2 * t3344 * t285 + 0.48e2 * t313 * t3339 + 0.48e2 * t3295 * t527 + 0.96e2 * t3298 * t527 + 0.24e2 * t75 * t3425 + 0.48e2 * t838 * t565;
1621   t3429 = t3428 * t113;
1622   t3432 = t1385 * t341;
1623   t3435 = t568 * t971;
1624   t3440 = t920 * t1262;
1625   t3441 = t3440 * t279;
1626   t3442 = t398 * t3441;
1627   t3445 = t1386 * t35;
1628   t3458 = t348 * t3333;
1629   t3463 = t2632 * t522;
1630   t3464 = t3463 * t822;
1631   t3465 = t398 * t3464;
1632   t3468 = t801 * t1245;
1633   t3471 = 0.35e2 / 0.81e2 * t3429 * t117 + 0.70e2 / 0.81e2 * t3432 * t117 + 0.35e2 / 0.81e2 * t3435 * t117 + 0.29489158222222222222e-1 * t807 * t1246 + 0.29489158222222222222e-1 * t397 * t3442 - 0.28e2 / 0.81e2 * t3445 * t349 - 0.28e2 / 0.81e2 * t2640 * t576 + 0.26329605555555555556e-1 * t916 * t616 - 0.14e2 / 0.81e2 * t2637 * t576 - 0.28e2 / 0.81e2 * t1012 * t1263 - 0.28e2 / 0.81e2 * t1018 * t1263 - 0.14e2 / 0.81e2 * t345 * t3458 - 0.14e2 / 0.81e2 * t2653 * t576 - 0.35386989866666666666e-1 * t397 * t3465 - 0.78637755259259259258e-1 * t397 * t3468;
1634   t3472 = t1244 * t792;
1635   t3473 = t398 * t3472;
1636   t3476 = t1475 * t396;
1637   t3483 = t801 * t1389;
1638   t3486 = t2672 * t619;
1639   t3493 = t347 * t3333;
1640   t3494 = t398 * t3493;
1641   t3501 = t545 * t1031;
1642   t3504 = t1337 * t309;
1643   t3507 = t1340 * t35;
1644   t3512 = 0.14744579111111111111e-1 * t397 * t3473 - 0.21063684444444444444e-1 * t3476 * t400 + 0.14744579111111111111e-1 * t1395 * t1027 + 0.56169825185185185184e-1 * t807 * t1249 + 0.56169825185185185184e-1 * t397 * t3483 - 0.10297801283950617284e0 * t397 * t3486 - 0.10531842222222222222e-1 * t1395 * t794 + 0.56169825185185185185e-1 * t1395 * t802 - 0.10531842222222222222e-1 * t397 * t3494 - 0.10531842222222222222e-1 * t2628 * t620 - 0.21063684444444444444e-1 * t807 * t1390 + 0.6e1 / 0.25e2 * t3501 * t822 - 0.2e1 / 0.5e1 * t3504 * t279 - 0.28e2 / 0.81e2 * t3507 * t349 - 0.14e2 / 0.81e2 * t1266 * t1015;
1645   t3514 = t1008 * t10;
1646   t3515 = t3514 * t45;
1647   t3518 = t572 * t782;
1648   t3521 = t1269 * t269;
1649   t3544 = t902 * t832;
1650   t3547 = t2578 * t838;
1651   t3551 = t1314 * t861;
1652   t3571 = t291 * t3339;
1653   t3574 = t867 * t1297;
1654   t3579 = t2533 * t527;
1655   t3582 = t832 * t79;
1656   t3592 = 0.15e2 / 0.2e1 * t3399 - 0.4e1 * t3396 - t3380 - 0.2e1 * t3376 + t3571 * t78 / 0.2e1 + t3574 * t323 / 0.2e1 + t1320 * t864 / 0.4e1 + t3579 * t861 / 0.8e1 - 0.4e1 * t3582 * t527 - 0.8e1 * t1323 * t1297 - t908 * t557 - 0.2e1 * t1370 * t381 - 0.4e1 * t295 * t3339 - t3419;
1657   t3595 = 0.7e1 / 0.2e1 * t946 * t557 - t3544 * t557 / 0.2e1 - t3547 * t557 / 0.4e1 - t1301 * t1370 - 0.6e1 * t3551 + 0.4e1 * t932 * t3355 + 0.2e1 * t932 * t3359 - t287 * t3339 + 0.2e1 * t3339 * t82 + 0.4e1 * t1297 * t300 + 0.2e1 * t527 * t957 + 0.2e1 * t832 * t539 + 0.4e1 * t285 * t1331 + 0.2e1 * t69 * t3592;
1658   t3598 = -0.8e1 / 0.3e1 * t3339 * t85 - 0.16e2 / 0.3e1 * t1297 * t303 - 0.8e1 / 0.3e1 * t527 * t960 - 0.8e1 / 0.3e1 * t832 * t542 - 0.16e2 / 0.3e1 * t285 * t1334 - 0.8e1 / 0.3e1 * t69 * t3595;
1659   t3612 = t2633 * t3318;
1660   t3615 = 0.18276169650205761317e-1 * t3515 * t117 + 0.17870032546867855510e0 * t3518 * t117 - 0.97472904801097393690e-1 * t3521 * t117 + 0.98e2 / 0.405e3 * t1266 * t922 + 0.6e1 / 0.25e2 * t1032 * t3326 + 0.12e2 / 0.25e2 * t2422 * t1252 + 0.12e2 / 0.25e2 * t1032 * t3322 + t3598 * t90 - t2564 * t522 / 0.5e1 - t310 * t3333 / 0.5e1 - 0.2e1 / 0.5e1 * t1023 * t1262 - t1484 * t792 / 0.5e1 + 0.56169825185185185185e-1 * t149 * t802 - 0.21063684444444444444e-1 * t389 * t400 - 0.392e3 / 0.675e3 * t345 * t3612;
1661   t3628 = t921 * t3322;
1662   t3631 = t921 * t3326;
1663   t3650 = t75 * t3339;
1664   t3658 = t93 * t3339;
1665   t3670 = t125 * t1297;
1666   t3677 = -0.1105920e7 * t127 * t3339 + 0.26943e5 * t134 * t3339 + 0.3072e4 * t1354 * t285 - 0.23040e5 * t1358 * t285 - 0.8847360e7 * t1419 * t832 + 0.323316e6 * t1452 * t285 - 0.17694720e8 * t3670 * t285 + 0.1536e4 * t551 * t832 - 0.11520e5 * t553 * t832 - 0.34560e5 * t581 * t838 + 0.808290e6 * t583 * t838 - 0.61931520e8 * t585 * t838 + 0.161658e6 * t597 * t832 - 0.8e1 * t3339 + 0.1536e4 * t3349 + 0.768e3 * t3650 - 0.2880e4 * t3658;
1667   t3692 = t123 * t3339;
1668   t3694 = 0.307200e6 * t1413 * t285 + 0.614400e6 * t553 * t838 + 0.153600e6 * t583 * t832 + 0.896e3 * t3355 + 0.448e3 * t3359 - 0.5760e4 * t3401 + 0.448e3 * t3405 - 0.34560e5 * t3410 - 0.34560e5 * t3412 - 0.17280e5 * t3414 + 0.30720e5 * t3692;
1669   t3730 = t838 * t136;
1670   t3733 = t69 * t599;
1671   t3740 = t868 * t3360 / 0.4e1 + t2729 * t3350 / 0.8e1 - 0.3e1 * t860 * t3356 - 0.3e1 / 0.2e1 * t860 * t3360 - 0.9e1 / 0.4e1 * t2755 * t3350 - 0.3e1 * t2723 * t1367 + t2752 * t1367 / 0.2e1 + 0.144e3 * t3730 * t527 + 0.144e3 * t3733 * t838 + 0.144e3 * t874 * t1297 + 0.72e2 * t367 * t3339;
1672   t3742 = t75 * t1454;
1673   t3751 = t589 * t859;
1674   t3766 = 0.144e3 * t3742 * t285 + 0.72e2 * t1443 * t832 + 0.72e2 * t2711 * t527 + 0.6e1 * t2720 * t3350 - 0.3e1 / 0.2e1 * t3751 * t861 - 0.960e3 * t1329 * t323 - 0.480e3 * t537 * t864 - 0.360e3 * t3551 - 0.2e1 * t380 * t76 * t3339 + t364 * t3392 / 0.2e1 + 0.288e3 * t2708 * t1304;
1675   t3777 = t3339 * t73;
1676   t3780 = t1424 * t291;
1677   t3784 = t589 * t867;
1678   t3790 = 0.288e3 * t871 * t3355 + 0.144e3 * t871 * t3359 + 0.240e3 * t1000 * t602 + 0.480e3 * t327 * t1459 + 0.720e3 * t3349 * t287 + 0.240e3 * t98 * t3777 + t3780 * t323 + t1426 * t864 / 0.2e1 + t3784 * t861 / 0.4e1 + t2747 * t557 / 0.2e1 + t857 * t1370;
1679   t3792 = t3677 * t78 + 0.24e2 * t121 * t3694 + 0.7e1 * t2717 * t3350 - 0.12e2 * t380 * t1314 * t838 - 0.2e1 * t903 * t3356 - t2741 * t3350 / 0.2e1 + 0.8e1 * t380 * t1317 * t285 + 0.4e1 * t380 * t532 * t832 - t903 * t3360 + t868 * t3356 / 0.2e1 + t3740 + t3766 + t3790;
1680   t3796 = (0.8e1 / 0.7e1 * t3339 * t144 + 0.16e2 / 0.7e1 * t1297 * t384 + 0.8e1 / 0.7e1 * t527 * t911 + 0.8e1 / 0.7e1 * t832 * t608 + 0.16e2 / 0.7e1 * t285 * t1471 + 0.8e1 / 0.7e1 * t69 * t3792) * t35;
1681   t3797 = t3796 * t39;
1682   t3804 = t40 * t1026;
1683   t3807 = t40 * t793;
1684   t3810 = t2672 * t116;
1685   t3817 = 0.14744579111111111111e-1 * t149 * t1027 + 0.38989161920438957476e-1 * t1275 * t1481 - 0.14620935720164609054e-1 * t1270 * t1481 + 0.25744503209876543210e0 * t613 * t798 - 0.14042456296296296297e0 * t1476 * t393 + 0.196e3 / 0.405e3 * t1012 * t1400 + 0.196e3 / 0.405e3 * t345 * t3628 + 0.98e2 / 0.405e3 * t345 * t3631 + 0.26329605555555555556e-1 * t3797 * t151 - 0.10531842222222222222e-1 * t149 * t794 + 0.196e3 / 0.405e3 * t1018 * t1400 + 0.10234655004115226338e-1 * t573 * t3804 - 0.73104678600823045268e-2 * t573 * t3807 + 0.25744503209876543210e0 * t149 * t3810 - 0.14042456296296296297e0 * t389 * t1280 - 0.66e2 / 0.125e3 * t2428 * t3318;
1686   t3819 = t3471 + t3512 + t3615 + t3817;
1687   t3829 = -0.9e1 / 0.100e3 * t628 * t1106 + t755 * t623 + 0.2e1 * t1217 * t403 + t3141 * t154 + 0.171e3 / 0.1000e4 * t194 * t3286 - 0.12e2 * t1219 * t775 - 0.24e2 * t1233 * t3091 - 0.12e2 * t1233 * t3094 + t27 * t3819 - 0.12e2 * t1219 * t771 - 0.6e1 * t1219 * t778 + 0.54e2 * t3109 * t767 - 0.12e2 * t3101 * t257;
1688   t3833 = t154 * t741;
1689   t3834 = t3833 * t505;
1690   t3837 = t1240 * t747;
1691   t3842 = t2984 * t505;
1692   t3847 = t255 * t403;
1693   t3852 = t623 * t19;
1694   t3853 = t3852 * t741;
1695   t3856 = t623 * t765;
1696   t3857 = t3856 * t741;
1697   t3860 = t770 * t1209;
1698   t3863 = t1504 * t439;
1699   t3866 = t627 * t1098;
1700   t3868 = -0.24e2 * t3847 * t1212 - 0.12e2 * t757 * t1230 - 0.12e2 * t757 * t1236 - 0.12e2 * t757 * t1241 + 0.2e1 * t3863 * t215 + t3866 * t215 - 0.6e1 * t2347 * t513 - 0.12e2 * t255 * t3834 - 0.6e1 * t255 * t3837 - 0.6e1 * t255 * t3842 - 0.12e2 * t255 * t3853 - 0.12e2 * t255 * t3860 + 0.54e2 * t764 * t3857;
1701   t3869 = t3248 * t193;
1702   t3871 = t1492 * t20;
1703   t3872 = t3871 * t245;
1704   t3875 = t256 * t3131;
1705   t3883 = t764 * t403;
1706   t3888 = t757 * t154;
1707   t3891 = t2370 * t154;
1708   t3896 = t2379 * t154;
1709   t3901 = t3869 * t215 - 0.12e2 * t255 * t3872 - 0.6e1 * t255 * t3875 + t511 * t1035 + t408 * t1552 / 0.5e1 + t1099 * t649 / 0.10e2 + 0.108e3 * t3883 * t1227 + 0.54e2 * t1225 * t3145 - 0.24e2 * t3888 * t1212 + 0.108e3 * t3891 * t1227 + 0.324e3 * t1225 * t3088 - 0.648e3 * t3896 * t3152 + 0.108e3 * t1225 * t3084;
1710   t3906 = t627 * t1104;
1711   t3911 = t2427 * t522;
1712   t3914 = t1031 * t1262;
1713   t3923 = t269 * t347;
1714   t3927 = t45 * t920;
1715   t3948 = -0.66e2 / 0.125e3 * t3911 * t822 + 0.12e2 / 0.25e2 * t3914 * t279 + 0.6e1 / 0.25e2 * t1580 * t792 - t309 * t3333 / 0.5e1 + 0.43614535756744398721e0 * t40 * t3810 + 0.95158987105624142663e-1 * t638 * t3923 * t279 + 0.24979234115226337449e-1 * t638 * t3927 * t822 - 0.17842310082304526749e-1 * t638 * t1587 * t792 - 0.14e2 / 0.45e2 * t3028 * t522 + 0.196e3 / 0.225e3 * t3031 * t1252 - 0.28e2 / 0.45e2 * t1178 * t1262 - 0.392e3 / 0.375e3 * t3036 * t3318 + 0.196e3 / 0.225e3 * t1181 * t3322 + 0.98e2 / 0.225e3 * t1181 * t3326 - 0.14e2 / 0.45e2 * t490 * t3333;
1716   t3950 = t664 * t19;
1717   t3951 = t3950 * t741;
1718   t3956 = -0.648e3 * t3150 * t3152 - 0.24e2 * t3155 * t1212 + t496 * t3213 / 0.10e2 + t3248 * t215 - p->cam_beta * (t3278 + t3829 + t3868 + t3901) + t755 * t664 - 0.9e1 / 0.100e3 * t3906 * t1105 + t1600 * t1139 / 0.10e2 + t27 * t3948 - 0.12e2 * t255 * t3951 - 0.12e2 * t1219 * t1159;
1719   t3957 = t229 * t741;
1720   t3958 = t3957 * t505;
1721   t3961 = t648 * t1105;
1722   t3964 = t1576 * t747;
1723   t3967 = t664 * t765;
1724   t3968 = t3967 * t741;
1725   t3971 = t1597 * t20;
1726   t3972 = t3971 * t245;
1727   t3975 = t2343 * t505;
1728   t3978 = t1154 * t1209;
1729   t3981 = t475 * t3131;
1730   t3990 = t1504 * t446;
1731   t3993 = -0.12e2 * t255 * t3958 + 0.171e3 / 0.1000e4 * t3053 * t3961 - 0.6e1 * t255 * t3964 + 0.54e2 * t764 * t3968 - 0.12e2 * t255 * t3972 - 0.6e1 * t255 * t3975 - 0.12e2 * t255 * t3978 - 0.6e1 * t255 * t3981 - 0.12e2 * t757 * t1577 + t3009 * t648 / 0.10e2 + t1189 * t1551 / 0.5e1 + t3990 * t468 / 0.5e1;
1732   t3996 = t240 * (t3106 + t3148 + t3956 + t3993);
1733   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1734     v3rho2sigma[0] = -t3069 * t670 / 0.12e2 - t1202 * t1611 / 0.2e1 - 0.3e1 / 0.16e2 * t239 * t3996;
1735 
1736   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1737     v3rho2lapl[0] = 0.0e0;
1738 
1739   t4003 = t2343 * t677;
1740   t4006 = t1627 * t254;
1741   t4009 = t747 * t677;
1742   t4011 = t245 * t1620;
1743   t4015 = my_piecewise3(t18, -t744 * t674 / 0.4e1, 0);
1744   t4016 = t19 * t4015;
1745   t4018 = t741 * t677;
1746   t4020 = t1621 * t245;
1747   t4022 = t678 * t747;
1748   t4024 = t20 * t4015;
1749   t4026 = 0.2e1 * t4009 + 0.4e1 * t4011 + 0.2e1 * t4016 + 0.18e2 * t4018 + 0.36e2 * t4020 + 0.18e2 * t4022 + 0.9e1 * t4024;
1750   t4027 = t4026 * t26;
1751   t4030 = t682 * t763;
1752   t4045 = t2380 * t677;
1753   t4046 = t4045 * t741;
1754   t4049 = t21 * t677;
1755   t4050 = t4049 * t741;
1756   t4053 = t765 * t1620;
1757   t4054 = t4053 * t245;
1758   t4057 = t1636 * t747;
1759   t4068 = -0.54e2 * t4030 * t1039 + 0.24e2 * t757 * t1623 + 0.12e2 * t757 * t1625 + 0.12e2 * t1630 * t750 + 0.6e1 * t1630 * t752 - 0.108e3 * t2370 * t1637 + 0.6e1 * t2347 * t680 + 0.648e3 * t2379 * t4046 + 0.12e2 * t4006 * t248 + 0.12e2 * t255 * t4018 + 0.24e2 * t255 * t4020 + 0.12e2 * t255 * t4022 + 0.6e1 * t255 * t4024 - 0.324e3 * t764 * t4050 - 0.108e3 * t764 * t4054 - 0.54e2 * t764 * t4057 - t4027;
1760   t4070 = t696 * t1104;
1761   t4073 = t1154 * t1620;
1762   t4076 = t475 * t4015;
1763   t4087 = t3833 * t677;
1764   t4094 = t2984 * t677;
1765   t4097 = t27 * t3514;
1766   t4100 = t755 * t572;
1767   t4103 = t251 * t1269;
1768   t4116 = 0.108e3 * t1225 * t4054 + 0.54e2 * t1225 * t4057 - 0.648e3 * t3896 * t4046 - 0.12e2 * t255 * t4087 - 0.6e1 * t2347 * t685 - 0.12e2 * t757 * t1640 - 0.6e1 * t255 * t4094 - 0.62888224691358024691e-1 * t4097 * t691 - 0.62888224691358024691e-1 * t4100 * t691 - 0.12577644938271604938e0 * t4103 * t691 + t1679 * t469 / 0.5e1 + t1681 * t469 / 0.5e1 + t1049 * t715 / 0.5e1 + t408 * t1718 / 0.5e1 + t697 * t1140 / 0.10e2;
1769   t4121 = t1121 * t677;
1770   t4124 = t457 * t1620;
1771   t4129 = t207 * t4015;
1772   t4142 = t39 * t747;
1773   t4160 = -0.146e3 / 0.135e3 * t4121 * t211 - 0.292e3 / 0.135e3 * t4124 * t211 + 0.584e3 / 0.135e3 * t1705 * t245 - 0.146e3 / 0.135e3 * t4129 * t211 + 0.584e3 / 0.135e3 * t1708 * t245 + 0.292e3 / 0.135e3 * t709 * t747 + 0.146e3 / 0.135e3 * t1124 * t677 + 0.292e3 / 0.135e3 * t460 * t1620 + 0.146e3 / 0.135e3 * t210 * t4015 - 0.73e2 / 0.270e3 * t704 * t4142 * t211 + 0.73e2 / 0.270e3 * t704 * t705 * t747 + 0.146e3 / 0.405e3 * t1121 * t10 * t700 + 0.73e2 / 0.135e3 * t703 * t40 * t741 - 0.292e3 / 0.243e3 * t1530 + 0.1168e4 / 0.729e3 * t1526 + 0.73e2 / 0.81e2 * t1534 - 0.73e2 / 0.81e2 * t1537 - 0.292e3 / 0.243e3 * t1524;
1774   t4161 = t446 * t4160;
1775   t4172 = t770 * t1620;
1776   t4175 = t256 * t4015;
1777   t4190 = t1047 * t715 / 0.10e2 + t440 * t1718 / 0.5e1 + t194 * t4161 / 0.10e2 + t1099 * t715 / 0.10e2 - 0.9e1 / 0.100e3 * t697 * t1106 - 0.12e2 * t1630 * t775 + 0.108e3 * t3883 * t1637 - 0.12e2 * t255 * t4172 - 0.6e1 * t255 * t4175 - 0.24e2 * t3888 * t1623 + 0.108e3 * t3891 * t1637 - 0.6e1 * t1630 * t778 + 0.54e2 * t4030 * t767 - 0.12e2 * t4006 * t257 - 0.24e2 * t1233 * t4020;
1778   t4194 = t1104 * t1717;
1779   t4195 = t4194 * t468;
1780   t4198 = t1689 * t1139;
1781   t4203 = t2957 * t714;
1782   t4204 = t4203 * t1105;
1783   t4209 = t757 * t1651;
1784   t4212 = t1269 * t107;
1785   t4213 = t255 * t4212;
1786   t4217 = t40 * t1653 * t747;
1787   t4220 = t764 * t1651;
1788   t4221 = t116 * t765;
1789   t4223 = t40 * t4221 * t741;
1790   t4226 = t255 * t573;
1791   t4229 = t116 * t19;
1792   t4231 = t40 * t4229 * t741;
1793   t4239 = -0.12e2 * t1233 * t4022 - 0.9e1 / 0.50e2 * t194 * t4195 - 0.9e1 / 0.100e3 * t194 * t4198 - 0.9e1 / 0.50e2 * t408 * t1690 + 0.171e3 / 0.1000e4 * t194 * t4204 - 0.9e1 / 0.50e2 * t440 * t1690 + 0.75465869629629629630e0 * t4209 * t1655 + 0.75465869629629629630e0 * t4213 * t1655 + 0.37732934814814814815e0 * t1652 * t4217 - 0.33959641333333333334e1 * t4220 * t4223 - 0.12577644938271604938e1 * t4226 * t1655 + 0.75465869629629629630e0 * t1652 * t4231 + t683 * t1035 - 0.12e2 * t757 * t1645 - 0.24e2 * t3847 * t1623;
1794   t4240 = t269 * t35;
1795   t4241 = t4240 * t690;
1796   t4248 = t689 * t922;
1797   t4251 = t1661 * t349;
1798   t4254 = t689 * t1015;
1799   t4261 = t1678 * t439;
1800   t4264 = t696 * t1098;
1801   t4267 = t40 * t347;
1802   t4268 = t248 * t279;
1803   t4269 = t4267 * t4268;
1804   t4278 = t4068 * t193;
1805   t4280 = -0.27950322085048010973e0 * t688 * t4241 + 0.20962741563786008230e0 * t1658 * t1662 + 0.20962741563786008230e0 * t1648 * t1662 - 0.35217405827160493826e-1 * t688 * t4248 - 0.83850966255144032920e-1 * t688 * t4251 + 0.25155289876543209876e-1 * t688 * t4254 + 0.50310579753086419752e-1 * t1648 * t1665 + 0.50310579753086419752e-1 * t1658 * t1665 + 0.2e1 * t4261 * t215 + t4264 * t215 + t4027 * t154 - 0.30186347851851851852e0 * t1652 * t4269 + 0.2e1 * t1628 * t403 - 0.12e2 * t1630 * t771 + 0.324e3 * t1225 * t4050 + t4278 * t215;
1806   t4292 = -0.6e1 * t255 * t4003 - 0.12e2 * t4006 * t476 + t4068 * t215 - 0.9e1 / 0.100e3 * t4070 * t1105 - 0.12e2 * t255 * t4073 - 0.6e1 * t255 * t4076 - 0.12e2 * t1630 * t1155 - p->cam_beta * (t4116 + t4190 + t4239 + t4280) - 0.6e1 * t1630 * t1162 + 0.54e2 * t4030 * t1151 - 0.6e1 * t2347 * t721 - 0.12e2 * t757 * t1731;
1807   t4299 = t755 * t10;
1808   t4302 = t1678 * t446;
1809   t4309 = t251 * t703;
1810   t4312 = t27 * t398;
1811   t4323 = -0.12e2 * t757 * t1736 + 0.20962741563786008230e0 * t1739 * t1662 - 0.27950322085048010973e0 * t724 * t4241 - 0.62888224691358024691e-1 * t4299 * t691 + t4302 * t468 / 0.5e1 + t3009 * t714 / 0.10e2 + t1189 * t1717 / 0.5e1 + 0.50310579753086419752e-1 * t4309 * t1481 - 0.83850966255144032920e-1 * t4312 * t1481 + 0.25155289876543209876e-1 * t1747 * t3807 - 0.35217405827160493826e-1 * t1747 * t3804 - 0.24e2 * t3074 * t1623 + 0.108e3 * t3077 * t1637;
1812   t4335 = t714 * t1139;
1813   t4338 = t255 * t704;
1814   t4339 = t348 * t4268;
1815   t4348 = t1717 * t468;
1816   t4351 = 0.108e3 * t3080 * t1637 + 0.108e3 * t1563 * t4054 + 0.54e2 * t1563 * t4057 - 0.648e3 * t3150 * t4046 - 0.24e2 * t3155 * t1623 - 0.9e1 / 0.100e3 * t1192 * t4335 - 0.30186347851851851852e0 * t4338 * t4339 + t1751 * t1139 / 0.10e2 + t4027 * t229 + 0.2e1 * t1628 * t493 + t683 * t1186 - 0.9e1 / 0.50e2 * t1192 * t4348;
1817   t4354 = t714 * t1105;
1818   t4357 = t255 * t398;
1819   t4364 = t764 * t703;
1820   t4367 = t757 * t703;
1821   t4380 = t3957 * t677;
1822   t4383 = -0.9e1 / 0.50e2 * t3050 * t1756 + 0.171e3 / 0.1000e4 * t3053 * t4354 - 0.12577644938271604938e1 * t4357 * t1655 + 0.75465869629629629630e0 * t1742 * t4231 + 0.37732934814814814815e0 * t1742 * t4217 - 0.33959641333333333334e1 * t4364 * t4223 + 0.75465869629629629630e0 * t4367 * t1655 + t496 * t4160 / 0.10e2 - 0.24e2 * t1569 * t4020 - 0.12e2 * t1569 * t4022 + 0.324e3 * t1563 * t4050 - 0.12e2 * t1630 * t1159 - 0.12e2 * t255 * t4380;
1823   t4386 = t240 * (t4292 + t4323 + t4351 + t4383);
1824   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1825     v3rho2tau[0] = -t3069 * t731 / 0.12e2 - t1202 * t1762 / 0.2e1 - 0.3e1 / 0.16e2 * t239 * t4386;
1826 
1827   t4391 = t2034 * t468;
1828   t4394 = t2406 * t1765;
1829   t4399 = t1154 * t1767;
1830   t4400 = t255 * t4399;
1831   t4401 = 0.6e1 * t4400;
1832   t4402 = t2070 * t20;
1833   t4403 = t4402 * t245;
1834   t4408 = t1576 * t1209;
1835   t4413 = t2339 * t1765;
1836   t4416 = t229 * t245;
1837   t4417 = t4416 * t1765;
1838   t4420 = t757 * t2054;
1839   t4421 = 0.6e1 * t4420;
1840   t4422 = -0.9e1 / 0.100e3 * t1192 * t4391 + 0.54e2 * t764 * t4394 - 0.12e2 * t757 * t2048 - t4401 - 0.6e1 * t255 * t4403 - 0.12e2 * t3101 * t655 - 0.12e2 * t255 * t4408 - 0.12e2 * t757 * t2051 - 0.12e2 * t255 * t4413 - 0.12e2 * t255 * t4417 - t4421;
1841   t4423 = t3109 * t229;
1842   t4426 = t21 * t1765;
1843   t4427 = t4426 * t245;
1844   t4430 = t1226 * t1209;
1845   t4433 = t2380 * t1765;
1846   t4434 = t4433 * t245;
1847   t4437 = t255 * t664;
1848   t4440 = t764 * t664;
1849   t4443 = t506 * t1209;
1850   t4446 = t1768 * t245;
1851   t4447 = t1569 * t4446;
1852   t4448 = 0.12e2 * t4447;
1853   t4449 = t765 * t1767;
1854   t4450 = t4449 * t245;
1855   t4451 = t1563 * t4450;
1856   t4452 = 0.54e2 * t4451;
1857   t4453 = t648 * t1551;
1858   t4456 = -t2056 + 0.108e3 * t4423 * t1227 + 0.324e3 * t1563 * t4427 + 0.108e3 * t1563 * t4430 - 0.648e3 * t3150 * t4434 - 0.24e2 * t4437 * t1212 + 0.108e3 * t4440 * t1227 - 0.24e2 * t1569 * t4443 - t4448 + t4452 - 0.9e1 / 0.50e2 * t1192 * t4453;
1859   t4460 = t2013 * t468;
1860   t4463 = t3971 * t505;
1861   t4466 = t1774 * t254;
1862   t4477 = t505 * t1209;
1863   t4479 = t245 * t1767;
1864   t4480 = 0.2e1 * t4479;
1865   t4481 = t245 * t1765;
1866   t4484 = 0.18e2 * t4446;
1867   t4485 = 0.4e1 * t4477 + t4480 + t1769 + 0.18e2 * t4481 + 0.36e2 * t4443 + t4484 + t1773;
1868   t4486 = t4485 * t26;
1869   t4511 = t757 * t1772;
1870   t4512 = 0.6e1 * t4511;
1871   t4513 = t764 * t4450;
1872   t4514 = 0.54e2 * t4513;
1873   t4515 = t255 * t4446;
1874   t4516 = 0.12e2 * t4515;
1875   t4517 = 0.24e2 * t1219 * t1212 + 0.12e2 * t1219 * t1214 - 0.108e3 * t3109 * t1227 + 0.12e2 * t757 * t1770 - 0.54e2 * t2370 * t2001 + 0.648e3 * t2379 * t4434 + 0.6e1 * t4466 * t248 + 0.24e2 * t255 * t4443 + 0.12e2 * t255 * t4481 + 0.12e2 * t3101 * t508 - 0.324e3 * t764 * t4427 - 0.108e3 * t764 * t4430 + t2007 - t4486 + t4512 - t4514 + t4516;
1876   t4525 = t1219 * t154;
1877   t4528 = t387 * sigma[0];
1878   t4533 = t1793 * t279;
1879   t4536 = t522 * t1262;
1880   t4553 = t527 * t101;
1881   t4558 = t285 * t565;
1882   t4579 = 0.1e1 / t43 / t273;
1883   t4585 = t31 * t1286 * t1799;
1884   t4586 = t821 * t49;
1885   t4587 = t1852 * t279;
1886   t4588 = t4586 * t4587;
1887   t4592 = my_piecewise3(t68, 0, -0.11e2 / 0.5400e4 * t32 * t261 * t1794 - 0.77e2 / 0.6000e4 * t1287 * t3317 * t4533 + 0.11e2 / 0.900e3 * t1287 * t1288 * t4536 + 0.33873432433960749333e-3 * t1287 * t4579 * t266 * t1801 + 0.65754310018864984000e-4 * t4585 * t4588);
1888   t4595 = t69 * t1887;
1889   t4598 = t527 * t1297;
1890   t4600 = t285 * t1806;
1891   t4602 = t69 * t4592;
1892   t4604 = t1915 * t285;
1893   t4605 = 0.1536e4 * t4604;
1894   t4606 = t581 * t1297;
1895   t4607 = 0.1536e4 * t4606;
1896   t4608 = t1917 * t285;
1897   t4609 = 0.768e3 * t4608;
1898   t4610 = t121 * t4592;
1899   t4611 = 0.256e3 * t4610;
1900   t4612 = 0.80e2 * t4598 + 0.40e2 * t4600 + 0.40e2 * t4602 - t4605 - t4607 - t4609 - t4611;
1901   t4614 = t1872 * t285;
1902   t4617 = t557 * t1297;
1903   t4622 = t1875 * t285;
1904   t4640 = t4612 * t78 + t4607 + t4609 + 0.6e1 * t2494 * t4614 - 0.3e1 * t990 * t4617 - 0.9e1 / 0.4e1 * t2527 * t4614 - 0.3e1 / 0.2e1 * t990 * t4622 + t995 * t4622 / 0.4e1 + t995 * t4617 / 0.2e1 + t2534 * t4614 / 0.8e1 - 0.3e1 * t3373 * t1367 + t3385 * t1367 / 0.2e1 + t1362 * t1370 - 0.3e1 / 0.2e1 * t2503 * t1872 + t988 * t1875 / 0.2e1;
1905   t4641 = t4592 * t78;
1906   t4644 = t1812 * t323;
1907   t4646 = t1314 * t1370;
1908   t4648 = t2512 * t1811;
1909   t4650 = 0.5e1 / 0.2e1 * t4648 * t323;
1910   t4651 = t859 * t1806;
1911   t4652 = t4651 * t323;
1912   t4656 = t1869 * t291;
1913   t4663 = t71 * t4592;
1914   t4664 = t4663 * t78;
1915   t4669 = t322 * t4641 / 0.2e1 + 0.20e2 * t4644 - 0.10e2 * t4646 - t4650 - 0.5e1 * t4652 + t2524 * t1872 / 0.4e1 + t4656 * t323 / 0.2e1 + t3381 * t557 + 0.10e2 * t70 * t4592 * t73 - 0.10e2 * t4664 + t4605 - 0.144e3 * t4598 - 0.72e2 * t4600 - 0.72e2 * t4602 + t4611;
1916   t4670 = t4640 + t4669;
1917   t4673 = 0.96e2 * t1350 * t1297 + 0.96e2 * t4553 * t1297 + 0.48e2 * t1343 * t1806 + 0.48e2 * t977 * t1806 + 0.48e2 * t1811 * t331 + 0.48e2 * t4595 * t285 + 0.48e2 * t313 * t4592 + 0.96e2 * t3344 * t527 + 0.96e2 * t4558 * t527 + 0.24e2 * t75 * t4670;
1918   t4674 = t4673 * t113;
1919   t4677 = t1993 * t920;
1920   t4678 = t4677 * t279;
1921   t4681 = -0.13960151919265936119e-4 * t4528 * t1994 + 0.12e2 / 0.25e2 * t3501 * t1252 - 0.66e2 / 0.125e3 * t2428 * t4533 + 0.12e2 / 0.25e2 * t1032 * t4536 - 0.28e2 / 0.81e2 * t1266 * t1263 + 0.98e2 / 0.405e3 * t1018 * t1903 + 0.98e2 / 0.405e3 * t1012 * t1903 - 0.2e1 / 0.5e1 * t1484 * t1262 + 0.6e1 / 0.25e2 * t2422 * t1793 - 0.11455098324263666021e-3 * t342 * t1907 - 0.11455098324263666021e-3 * t335 * t1907 + 0.35e2 / 0.81e2 * t4674 * t117 + 0.19544212686972310567e-4 * t1991 * t4678;
1922   t4682 = t1890 * t341;
1923   t4687 = t114 * t920;
1924   t4688 = t2017 * t279;
1925   t4691 = t1906 * t275;
1926   t4694 = t2632 * t1793;
1927   t4695 = t4694 * t279;
1928   t4696 = t398 * t4695;
1929   t4699 = t1244 * t1262;
1930   t4700 = t398 * t4699;
1931   t4707 = t1992 * rho[0];
1932   t4708 = 0.1e1 / t4707;
1933   t4709 = t4708 * t347;
1934   t4712 = t1894 * t269;
1935   t4715 = t1852 * t275;
1936   t4731 = t2578 * t1811;
1937   t4734 = t78 * t859;
1938   t4735 = t285 * t1811;
1939   t4736 = t4734 * t4735;
1940   t4758 = t291 * t4592;
1941   t4761 = t867 * t1806;
1942   t4766 = t2533 * t1811;
1943   t4769 = t527 * t79;
1944   t4779 = 0.15e2 / 0.2e1 * t4644 - 0.4e1 * t4646 - t4650 - 0.2e1 * t4652 + t4758 * t78 / 0.2e1 + t4761 * t323 / 0.4e1 + t1320 * t1370 / 0.2e1 + t4766 * t323 / 0.8e1 - 0.8e1 * t4769 * t1297 - 0.2e1 * t605 * t1370 - 0.4e1 * t1323 * t1806 - t381 * t1875 - 0.4e1 * t295 * t4592 - t4664;
1945   t4782 = 0.7e1 / 0.2e1 * t1828 * t323 - t3398 * t1370 - t4731 * t323 / 0.4e1 - 0.6e1 * t4736 + 0.4e1 * t932 * t4598 - t1301 * t1875 / 0.2e1 + 0.2e1 * t932 * t4600 - t287 * t4592 + 0.2e1 * t4592 * t82 + 0.2e1 * t1806 * t300 + 0.4e1 * t1297 * t539 + 0.4e1 * t527 * t1331 + 0.2e1 * t285 * t1839 + 0.2e1 * t69 * t4779;
1946   t4785 = -0.8e1 / 0.3e1 * t4592 * t85 - 0.8e1 / 0.3e1 * t1806 * t303 - 0.16e2 / 0.3e1 * t1297 * t542 - 0.16e2 / 0.3e1 * t527 * t1334 - 0.8e1 / 0.3e1 * t285 * t1842 - 0.8e1 / 0.3e1 * t69 * t4782;
1947   t4791 = 0.35e2 / 0.81e2 * t4682 * t117 + 0.52659211111111111112e-1 * t1476 * t616 + 0.16037137653969132429e-3 * t4687 * t4688 + 0.61093857729406218779e-3 * t114 * t4691 - 0.35386989866666666666e-1 * t397 * t4696 + 0.29489158222222222222e-1 * t397 * t4700 + 0.29489158222222222222e-1 * t1395 * t1246 - 0.14042456296296296297e0 * t613 * t1280 + 0.11168121535412748895e-3 * t1991 * t4709 - 0.97472904801097393691e-1 * t4712 * t117 + 0.11477115930565524480e-1 * t1851 * t4715 + t4785 * t90 - 0.28e2 / 0.81e2 * t3507 * t576 - 0.28e2 / 0.81e2 * t3445 * t576;
1948   t4793 = t1891 * t35;
1949   t4796 = t1385 * t10;
1950   t4797 = t4796 * t45;
1951   t4800 = t1023 * t49;
1952   t4803 = t1845 * t309;
1953   t4810 = t148 * t631;
1954   t4811 = t3927 * t1252;
1955   t4818 = t1977 * t396;
1956   t4821 = t801 * t1987;
1957   t4826 = t572 * t1661;
1958   t4829 = -0.14e2 / 0.81e2 * t4793 * t349 + 0.36552339300411522634e-1 * t4797 * t117 - 0.21519592369810358400e-2 * t4800 * t1853 - t4803 * t279 / 0.5e1 - 0.2e1 / 0.5e1 * t3504 * t522 + 0.14744579111111111111e-1 * t807 * t1988 + 0.29489158222222222222e-1 * t4810 * t4811 - 0.21063684444444444444e-1 * t1395 * t1390 - 0.21063684444444444444e-1 * t3476 * t620 - 0.10531842222222222222e-1 * t4818 * t400 - 0.39318877629629629629e-1 * t397 * t4821 + 0.56169825185185185184e-1 * t1395 * t1249 + 0.20469310008230452676e-1 * t4826 * t1400;
1959   t4883 = t75 * t4592;
1960   t4891 = t93 * t4592;
1961   t4901 = t134 * t1811;
1962   t4906 = t125 * t1806;
1963   t4911 = -0.1105920e7 * t127 * t4592 - 0.17694720e8 * t1419 * t1297 + 0.3072e4 * t551 * t1297 - 0.23040e5 * t553 * t1297 + 0.323316e6 * t597 * t1297 + 0.26943e5 * t134 * t4592 + 0.1536e4 * t1863 * t285 - 0.34560e5 * t1865 * t285 - 0.11520e5 * t1867 * t285 + 0.808290e6 * t1950 * t285 + 0.161658e6 * t1952 * t285 - 0.61931520e8 * t4901 * t285 - 0.8847360e7 * t4906 * t285 - 0.8e1 * t4592 + 0.1536e4 * t4735 + 0.768e3 * t4883 - 0.2880e4 * t4891;
1964   t4919 = t868 * t4622 / 0.4e1 + t868 * t4617 / 0.2e1 - 0.3e1 * t3751 * t1367 + t3784 * t1367 / 0.2e1 + 0.6e1 * t2720 * t4614 - 0.3e1 * t860 * t4617 - 0.9e1 / 0.4e1 * t2755 * t4614 + t4911 * t78 - 0.360e3 * t4736 - 0.960e3 * t537 * t1370 - 0.2e1 * t380 * t76 * t4592;
1965   t4942 = t1426 * t1370 - 0.3e1 / 0.2e1 * t2723 * t1872 + t857 * t1875 / 0.2e1 + t364 * t4641 / 0.2e1 + t2752 * t1872 / 0.4e1 + 0.288e3 * t871 * t4598 + 0.288e3 * t3733 * t1304 + 0.144e3 * t871 * t4600 + 0.480e3 * t561 * t1459 + 0.720e3 * t1872 * t381 + 0.240e3 * t327 * t1960;
1966   t4943 = t4592 * t73;
1967   t4948 = t1931 * t291;
1968   t4952 = t75 * t1954;
1969   t4955 = t285 * t136;
1970   t4979 = t123 * t4592;
1971   t4981 = 0.307200e6 * t583 * t1297 + 0.614400e6 * t1919 * t285 + 0.153600e6 * t1921 * t285 + 0.896e3 * t4598 + 0.448e3 * t4600 + 0.448e3 * t4602 - 0.34560e5 * t4604 - 0.34560e5 * t4606 - 0.17280e5 * t4608 - 0.5760e4 * t4610 + 0.30720e5 * t4979;
1972   t4984 = 0.240e3 * t98 * t4943 - 0.480e3 * t1837 * t323 + t4948 * t323 / 0.2e1 + t3780 * t557 + 0.72e2 * t4952 * t285 + 0.144e3 * t4955 * t1811 + 0.144e3 * t2708 * t1811 + 0.144e3 * t3742 * t527 + 0.144e3 * t1443 * t1297 + 0.72e2 * t874 * t1806 + 0.24e2 * t121 * t4981;
1973   t4986 = 0.72e2 * t367 * t4592 + 0.4e1 * t380 * t1825 * t285 - t903 * t4622 + 0.7e1 * t2717 * t4614 - 0.2e1 * t903 * t4617 - t2741 * t4614 / 0.2e1 - 0.12e2 * t380 * t1822 * t285 + 0.8e1 * t380 * t532 * t1297 + t2729 * t4614 / 0.8e1 - 0.3e1 / 0.2e1 * t860 * t4622 + t4919 + t4942 + t4984;
1974   t4990 = (0.8e1 / 0.7e1 * t4592 * t144 + 0.8e1 / 0.7e1 * t1806 * t384 + 0.16e2 / 0.7e1 * t1297 * t608 + 0.16e2 / 0.7e1 * t527 * t1471 + 0.8e1 / 0.7e1 * t285 * t1973 + 0.8e1 / 0.7e1 * t69 * t4986) * t35;
1975   t4991 = t4990 * t39;
1976   t4994 = t2633 * t4533;
1977   t4997 = t921 * t4536;
1978   t5000 = t40 * t1389;
1979   t5009 = t1032 * t49;
1980   t5010 = t58 * t279;
1981   t5011 = t1852 * t5010;
1982   t5026 = 0.26329605555555555556e-1 * t4991 * t151 - 0.392e3 / 0.675e3 * t345 * t4994 + 0.196e3 / 0.405e3 * t345 * t4997 - 0.14620935720164609054e-1 * t573 * t5000 + 0.196e3 / 0.405e3 * t1266 * t1400 - 0.14620935720164609054e-1 * t1270 * t1900 - 0.14620935720164609054e-1 * t1895 * t1481 + 0.25823510843772430080e-2 * t5009 * t5011 - 0.21063684444444444444e-1 * t149 * t1390 - 0.21063684444444444444e-1 * t389 * t620 - 0.21063684444444444445e-1 * t613 * t400 + 0.56169825185185185184e-1 * t149 * t1249 - 0.70212281481481481483e-1 * t1978 * t393 + 0.38989161920438957477e-1 * t1275 * t1900;
1983   t5028 = t4681 + t4791 + t4829 + t5026;
1984   t5030 = t3109 * t154;
1985   t5033 = t1997 * t20;
1986   t5034 = t5033 * t245;
1987   t5039 = t1515 * t1551;
1988   t5042 = t1104 * t2034;
1989   t5043 = t5042 * t468;
1990   t5046 = t2957 * t2013;
1991   t5047 = t5046 * t468;
1992   t5052 = 0.324e3 * t1225 * t4427 + 0.108e3 * t1225 * t4430 - 0.648e3 * t3896 * t4434 - 0.24e2 * t4525 * t1212 + t27 * t5028 + 0.108e3 * t5030 * t1227 - 0.6e1 * t255 * t5034 - 0.9e1 / 0.50e2 * t628 * t1516 - 0.9e1 / 0.50e2 * t194 * t5039 - 0.9e1 / 0.100e3 * t194 * t5043 + 0.171e3 / 0.1000e4 * t194 * t5047 + t1505 * t649 / 0.5e1;
1993   t5057 = t255 * t623;
1994   t5060 = t1233 * t4446;
1995   t5061 = 0.12e2 * t5060;
1996   t5062 = t1225 * t4450;
1997   t5063 = 0.54e2 * t5062;
1998   t5072 = t9 * t275;
1999   t5073 = t52 * t5072;
2000   t5075 = t269 * t505;
2001   t5077 = t638 * t5075 * t211;
2002   t5079 = t45 * t1209;
2003   t5081 = t638 * t5079 * t211;
2004   t5084 = t638 * t2020 * t245;
2005   t5087 = t638 * t1528 * t505;
2006   t5090 = t638 * t639 * t1209;
2007   t5092 = t457 * t1767;
2008   t5093 = t5092 * t211;
2009   t5094 = 0.146e3 / 0.135e3 * t5093;
2010   t5095 = t2027 * t245;
2011   t5096 = 0.292e3 / 0.135e3 * t5095;
2012   t5101 = t460 * t1767;
2013   t5102 = 0.146e3 / 0.135e3 * t5101;
2014   t5103 = -0.10073e5 / 0.393660e6 * t5073 - 0.73e2 / 0.3645e4 * t5077 + 0.73e2 / 0.9720e4 * t5081 - 0.73e2 / 0.4860e4 * t5084 + 0.73e2 / 0.3645e4 * t5087 - 0.73e2 / 0.9720e4 * t5090 - t5094 - t2029 + t5096 + 0.292e3 / 0.135e3 * t457 * t1765 + 0.584e3 / 0.135e3 * t643 * t1209 + t5102 + t2033;
2015   t5104 = t446 * t5103;
2016   t5109 = t1507 * t649 / 0.5e1 - 0.24e2 * t1233 * t4443 - 0.24e2 * t5057 * t1212 - t5061 + t5063 + 0.2e1 * t1217 * t623 - 0.6e1 * t4466 * t257 - 0.12e2 * t3101 * t513 - 0.12e2 * t1219 * t1236 + t194 * t5104 / 0.10e2 + t2009 * t469 / 0.10e2 - t1792;
2017   t5111 = t764 * t623;
2018   t5114 = t770 * t1767;
2019   t5115 = t255 * t5114;
2020   t5116 = 0.6e1 * t5115;
2021   t5123 = t2980 * t1765;
2022   t5130 = t3871 * t505;
2023   t5134 = t4517 * t193;
2024   t5136 = -0.12e2 * t1219 * t1230 - 0.12e2 * t1219 * t1241 + 0.108e3 * t5111 * t1227 + 0.2e1 * t511 * t1492 + t4486 * t154 + t1775 * t403 + 0.54e2 * t2370 * t1781 + t251 * t1997 + t5134 * t215 - 0.12e2 * t255 * t5130 + 0.54e2 * t764 * t5123 - t5116;
2025   t5137 = t2008 * t439;
2026   t5139 = t154 * t245;
2027   t5140 = t5139 * t1765;
2028   t5143 = t757 * t1790;
2029   t5144 = 0.6e1 * t5143;
2030   t5157 = t1240 * t1209;
2031   t5162 = t2995 * t1765;
2032   t5165 = t5137 * t215 - 0.12e2 * t255 * t5140 - t5144 + t408 * t2035 / 0.10e2 + t440 * t2035 / 0.10e2 + t628 * t1552 / 0.5e1 - 0.9e1 / 0.100e3 * t408 * t2014 - 0.9e1 / 0.100e3 * t440 * t2014 - 0.12e2 * t757 * t1784 - 0.12e2 * t255 * t5157 - 0.12e2 * t757 * t1787 - 0.12e2 * t255 * t5162;
2033   t5171 = -0.9e1 / 0.50e2 * t3906 * t1605 + 0.171e3 / 0.1000e4 * t3053 * t4460 - 0.12e2 * t255 * t4463 - 0.6e1 * t4466 * t476 - 0.12e2 * t1219 * t1566 - 0.12e2 * t1219 * t1572 - 0.12e2 * t1219 * t1577 + 0.54e2 * t2370 * t2045 + t4517 * t215 - p->cam_beta * (t5052 + t5109 + t5136 + t5165) + 0.2e1 * t511 * t1597;
2034   t5174 = t2008 * t446;
2035   t5179 = t2427 * t1793;
2036   t5185 = t1031 * t49 * t51;
2037   t5204 = t1178 * t49;
2038   t5207 = t1181 * t49;
2039   t5212 = -0.66e2 / 0.125e3 * t5179 * t279 + 0.12e2 / 0.25e2 * t1580 * t1262 + 0.25823510843772430080e-2 * t5185 * t4688 + 0.11477115930565524480e-1 * t2059 * t4715 + 0.95158987105624142661e-1 * t638 * t3923 * t522 + 0.49958468230452674897e-1 * t638 * t4811 - 0.35684620164609053498e-1 * t638 * t1587 * t1262 + 0.98e2 / 0.225e3 * t3031 * t1793 - 0.392e3 / 0.375e3 * t3036 * t4533 + 0.196e3 / 0.225e3 * t1181 * t4536 - 0.33474921464149446400e-2 * t5204 * t1853 + 0.46864890049809224960e-2 * t5207 * t5011 + 0.17853291447546371413e-1 * t2067 * t4715;
2040   t5225 = t1219 * t229;
2041   t5228 = t4486 * t229 + t1775 * t493 + t5174 * t468 / 0.10e2 + 0.2e1 * t1217 * t664 + t27 * t5212 + t1600 * t1551 / 0.5e1 - 0.9e1 / 0.100e3 * t3050 * t2013 + t251 * t2070 + t496 * t5103 / 0.10e2 + t3990 * t648 / 0.5e1 + t1189 * t2034 / 0.10e2 - 0.24e2 * t5225 * t1212;
2042   t5231 = t240 * (t4422 + t4456 + t5171 + t5228);
2043   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2044     v3rhosigma2[0] = -t1202 * t2080 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t5231;
2045 
2046   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2047     v3rhosigmalapl[0] = 0.0e0;
2048 
2049   t5236 = t2206 * t468;
2050   t5241 = t1154 * t2087;
2051   t5246 = my_piecewise3(t18, t241 * t674 / 0.8e1, 0);
2052   t5247 = t475 * t5246;
2053   t5252 = t1219 * t703;
2054   t5258 = t40 * t1653 * t1209;
2055   t5261 = t40 * t1245;
2056   t5268 = t505 * t1620;
2057   t5270 = t245 * t2087;
2058   t5272 = t19 * t5246;
2059   t5274 = t1616 * t505;
2060   t5276 = t1621 * t505;
2061   t5278 = t678 * t1209;
2062   t5280 = t2088 * t245;
2063   t5282 = t20 * t5246;
2064   t5284 = 0.2e1 * t1209 * t677 + 0.2e1 * t5268 + 0.2e1 * t5270 + 0.2e1 * t5272 + 0.18e2 * t5274 + 0.18e2 * t5276 + 0.18e2 * t5278 + 0.18e2 * t5280 + 0.9e1 * t5282;
2065   t5285 = t5284 * t26;
2066   t5294 = t2136 * t446;
2067   t5297 = 0.171e3 / 0.1000e4 * t3053 * t5236 - 0.6e1 * t757 * t2191 - 0.6e1 * t255 * t5241 - 0.6e1 * t255 * t5247 - 0.6e1 * t1630 * t1577 + 0.37732934814814814815e0 * t5252 * t1655 + 0.37732934814814814815e0 * t4367 * t2117 + 0.37732934814814814815e0 * t1742 * t5258 - 0.35217405827160493826e-1 * t1747 * t5261 + t1751 * t1551 / 0.10e2 + t5285 * t229 + t2095 * t493 + t1628 * t664 + t683 * t1597 + t4302 * t648 / 0.10e2 + t1600 * t1717 / 0.10e2 + t5294 * t468 / 0.10e2;
2068   t5302 = t511 * t703;
2069   t5307 = t39 * t1209;
2070   t5318 = t269 * t677;
2071   t5320 = t638 * t5318 * t211;
2072   t5322 = t45 * t1620;
2073   t5324 = t638 * t5322 * t211;
2074   t5327 = t638 * t2158 * t245;
2075   t5329 = t457 * t2087;
2076   t5332 = t207 * t5246;
2077   t5344 = t638 * t1528 * t677;
2078   t5347 = t638 * t639 * t1620;
2079   t5353 = 0.949e3 / 0.87480e5 * t2018 + 0.73e2 / 0.162e3 * t2022 - 0.73e2 / 0.270e3 * t704 * t5307 * t211 + 0.73e2 / 0.135e3 * t704 * t2151 * t245 - 0.73e2 / 0.162e3 * t2025 + 0.73e2 / 0.270e3 * t704 * t705 * t1209 - 0.73e2 / 0.7290e4 * t5320 + 0.73e2 / 0.19440e5 * t5324 - 0.73e2 / 0.9720e4 * t5327 - 0.146e3 / 0.135e3 * t5329 * t211 - 0.146e3 / 0.135e3 * t5332 * t211 + 0.292e3 / 0.135e3 * t2162 * t245 + 0.292e3 / 0.135e3 * t1705 * t505 + 0.292e3 / 0.135e3 * t1708 * t505 + 0.292e3 / 0.135e3 * t709 * t1209 + 0.73e2 / 0.7290e4 * t5344 - 0.73e2 / 0.19440e5 * t5347 + 0.146e3 / 0.135e3 * t460 * t2087 + 0.146e3 / 0.135e3 * t210 * t5246;
2080   t5360 = t4053 * t505;
2081   t5363 = t1636 * t1209;
2082   t5376 = t765 * t2087;
2083   t5377 = t5376 * t245;
2084   t5388 = t251 * t1894;
2085   t5391 = t27 * t4796;
2086   t5394 = t1217 * t572;
2087   t5397 = t511 * t1269;
2088   t5400 = t3871 * t677;
2089   t5413 = t2094 * t254;
2090   t5422 = t1689 * t1551;
2091   t5427 = -0.12e2 * t1233 * t5278 - 0.12e2 * t5057 * t1623 + 0.10481370781893004115e0 * t2120 * t1662 + 0.10481370781893004115e0 * t2113 * t1662 - 0.62888224691358024691e-1 * t5388 * t691 - 0.62888224691358024691e-1 * t5391 * t691 - 0.62888224691358024691e-1 * t5394 * t691 - 0.62888224691358024691e-1 * t5397 * t691 - 0.6e1 * t255 * t5400 - 0.6e1 * t1219 * t1645 - 0.12e2 * t3847 * t2090 + 0.54e2 * t1225 * t5360 + 0.54e2 * t3883 * t2102 - 0.6e1 * t1630 * t1230 - 0.6e1 * t5413 * t257 - 0.6e1 * t4006 * t513 - 0.6e1 * t1219 * t1640 - 0.6e1 * t1630 * t1236 - 0.9e1 / 0.100e3 * t194 * t5422 - 0.9e1 / 0.100e3 * t697 * t1516;
2092   t5428 = t2136 * t439;
2093   t5450 = 0.12e2 * t1630 * t1212 + 0.6e1 * t1630 * t1214 + 0.12e2 * t1219 * t1623 + 0.6e1 * t1219 * t1625 - 0.54e2 * t4030 * t1227 - 0.54e2 * t3109 * t1637 - 0.54e2 * t2370 * t2102 + 0.6e1 * t5413 * t248 + 0.6e1 * t3101 * t680 + 0.6e1 * t4006 * t508 - t5285;
2094   t5451 = t2379 * t2380;
2095   t5454 = t764 * t21;
2096   t5477 = 0.12e2 * t757 * t2090 + 0.6e1 * t757 * t2092 + 0.12e2 * t255 * t5274 + 0.12e2 * t255 * t5276 + 0.12e2 * t255 * t5278 + 0.12e2 * t255 * t5280 + 0.6e1 * t255 * t5282 + 0.648e3 * t5451 * t5274 - 0.324e3 * t5454 * t5274 - 0.54e2 * t764 * t5360 - 0.54e2 * t764 * t5363 - 0.54e2 * t764 * t5377;
2097   t5478 = t5450 + t5477;
2098   t5479 = t5478 * t193;
2099   t5485 = t4049 * t1205;
2100   t5488 = t4045 * t1205;
2101   t5497 = t1894 * t107;
2102   t5498 = t255 * t5497;
2103   t5501 = t27 * t1651;
2104   t5518 = t5428 * t215 + t5479 * t215 + 0.54e2 * t1225 * t5377 + t5285 * t154 + t2095 * t403 + 0.324e3 * t1225 * t5485 - 0.648e3 * t3896 * t5488 + 0.37732934814814814815e0 * t4209 * t2117 + 0.37732934814814814815e0 * t4213 * t2117 + 0.37732934814814814815e0 * t1652 * t5258 + 0.37732934814814814815e0 * t5498 * t1655 - 0.35217405827160493826e-1 * t5501 * t5261 - 0.62888224691358024692e0 * t4226 * t2117 + 0.54e2 * t1225 * t5363 - 0.12e2 * t4525 * t1623 + 0.54e2 * t5030 * t1637 + 0.54e2 * t3891 * t2102 + t683 * t1492 + t1628 * t623 - 0.9e1 / 0.100e3 * t408 * t2143;
2105   t5522 = t4194 * t648;
2106   t5533 = t1219 * t1651;
2107   t5536 = t194 * t2957;
2108   t5543 = t1240 * t1620;
2109   t5546 = t770 * t2087;
2110   t5549 = t256 * t5246;
2111   t5560 = t689 * t1263;
2112   t5565 = t1661 * t576;
2113   t5568 = -0.9e1 / 0.100e3 * t440 * t2143 - 0.9e1 / 0.100e3 * t194 * t5522 - 0.6e1 * t1630 * t1241 - 0.6e1 * t3101 * t685 - 0.12e2 * t1233 * t5274 - 0.12e2 * t1233 * t5276 + 0.37732934814814814815e0 * t5533 * t1655 + 0.171e3 / 0.1000e4 * t5536 * t5236 - 0.12e2 * t1233 * t5280 - 0.6e1 * t757 * t2105 - 0.6e1 * t255 * t5543 - 0.6e1 * t255 * t5546 - 0.6e1 * t255 * t5549 - 0.6e1 * t757 * t2110 + 0.25155289876543209876e-1 * t2120 * t1665 + 0.25155289876543209876e-1 * t1648 * t2123 + 0.25155289876543209876e-1 * t1658 * t2123 + 0.25155289876543209876e-1 * t688 * t5560 + 0.25155289876543209876e-1 * t2113 * t1665 - 0.41925483127572016460e-1 * t688 * t5565;
2114   t5569 = t1630 * t154;
2115   t5580 = t508 * t279;
2116   t5581 = t4267 * t5580;
2117   t5584 = t117 * t1212;
2118   t5587 = t117 * t1227;
2119   t5590 = t522 * t20;
2120   t5591 = t5590 * t245;
2121   t5592 = t4267 * t5591;
2122   t5599 = t446 * t5353;
2123   t5608 = t1104 * t2172;
2124   t5609 = t5608 * t468;
2125   t5614 = t4030 * t154;
2126   t5621 = -0.12e2 * t5569 * t1212 + t2137 * t469 / 0.10e2 + t628 * t1718 / 0.10e2 + t1505 * t715 / 0.10e2 + t1507 * t715 / 0.10e2 - 0.15093173925925925926e0 * t1652 * t5581 + 0.75465869629629629630e0 * t1652 * t5584 - 0.33959641333333333334e1 * t4220 * t5587 - 0.15093173925925925926e0 * t1652 * t5592 + t1681 * t649 / 0.10e2 + t697 * t1552 / 0.10e2 + t194 * t5599 / 0.10e2 + t1679 * t649 / 0.10e2 + t408 * t2173 / 0.10e2 + t440 * t2173 / 0.10e2 - 0.9e1 / 0.100e3 * t194 * t5609 - 0.9e1 / 0.100e3 * t628 * t1690 + 0.54e2 * t5614 * t1227 + 0.54e2 * t5111 * t1637 - 0.12e2 * t3888 * t2090;
2127   t5628 = t1189 * t2172 / 0.10e2 + t3990 * t714 / 0.10e2 + 0.25155289876543209876e-1 * t5302 * t1481 + t496 * t5353 / 0.10e2 + 0.54e2 * t3077 * t2102 + 0.54e2 * t3080 * t2102 + 0.54e2 * t1563 * t5360 + 0.54e2 * t1563 * t5363 - 0.12e2 * t4437 * t1623 - 0.12e2 * t1569 * t5274 - 0.12e2 * t1569 * t5276 - 0.12e2 * t1569 * t5278 - 0.12e2 * t1569 * t5280 + 0.54e2 * t1563 * t5377 - p->cam_beta * (t5427 + t5518 + t5568 + t5621) + t5478 * t215 + 0.25155289876543209876e-1 * t4309 * t1900;
2128   t5634 = t348 * t5580;
2129   t5637 = t690 * t1212;
2130   t5640 = t764 * t704;
2131   t5641 = t690 * t1227;
2132   t5644 = t348 * t5591;
2133   t5669 = 0.25155289876543209876e-1 * t1747 * t5000 - 0.41925483127572016460e-1 * t4312 * t1900 - 0.15093173925925925926e0 * t4338 * t5634 + 0.75465869629629629630e0 * t4338 * t5637 - 0.33959641333333333334e1 * t5640 * t5641 - 0.15093173925925925926e0 * t4338 * t5644 - 0.62888224691358024692e0 * t4357 * t2117 + 0.54e2 * t4440 * t1637 - 0.12e2 * t3074 * t2090 - 0.12e2 * t3155 * t2090 - 0.6e1 * t3101 * t721 - 0.6e1 * t1219 * t1731 - 0.6e1 * t1219 * t1736 - 0.6e1 * t757 * t2186 - 0.6e1 * t5413 * t476 - 0.6e1 * t4006 * t655 - 0.6e1 * t1630 * t1566;
2134   t5672 = t3971 * t677;
2135   t5675 = t1576 * t1620;
2136   t5678 = t1217 * t10;
2137   t5685 = t1630 * t229;
2138   t5688 = t4030 * t229;
2139   t5699 = t2172 * t468;
2140   t5702 = t714 * t1551;
2141   t5705 = t1717 * t648;
2142   t5712 = -0.6e1 * t1630 * t1572 - 0.6e1 * t255 * t5672 - 0.6e1 * t255 * t5675 - 0.62888224691358024691e-1 * t5678 * t691 + 0.324e3 * t1563 * t5485 - 0.648e3 * t3150 * t5488 - 0.12e2 * t5685 * t1212 + 0.54e2 * t5688 * t1227 - 0.12e2 * t5225 * t1623 + 0.54e2 * t4423 * t1637 + 0.10481370781893004115e0 * t2194 * t1662 - 0.9e1 / 0.100e3 * t4070 * t1605 - 0.9e1 / 0.100e3 * t1192 * t5699 - 0.9e1 / 0.100e3 * t1192 * t5702 - 0.9e1 / 0.100e3 * t1192 * t5705 - 0.9e1 / 0.100e3 * t3906 * t1756 - 0.9e1 / 0.100e3 * t3050 * t2206;
2143   t5715 = t240 * (t5297 + t5628 + t5669 + t5712);
2144   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2145     v3rhosigmatau[0] = -t1202 * t2212 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t5715;
2146 
2147   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2148     v3rholapl2[0] = 0.0e0;
2149 
2150   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2151     v3rholapltau[0] = 0.0e0;
2152 
2153   t5726 = t39 * t1620;
2154   t5737 = t457 * t2221;
2155   t5742 = my_piecewise3(t18, -t242 * t2218 / 0.4e1, 0);
2156   t5743 = t207 * t5742;
2157   t5756 = -0.146e3 / 0.243e3 * t2149 + 0.73e2 / 0.81e2 * t2160 - 0.73e2 / 0.135e3 * t704 * t5726 * t211 + 0.146e3 / 0.135e3 * t704 * t2272 * t245 - 0.73e2 / 0.81e2 * t2168 + 0.73e2 / 0.135e3 * t704 * t705 * t1620 - 0.146e3 / 0.135e3 * t5737 * t211 - 0.146e3 / 0.135e3 * t5743 * t211 + 0.292e3 / 0.135e3 * t2279 * t245 + 0.292e3 / 0.135e3 * t457 * t2215 + 0.584e3 / 0.135e3 * t709 * t1620 + 0.146e3 / 0.135e3 * t460 * t2221 + 0.146e3 / 0.135e3 * t210 * t5742;
2158   t5759 = t2258 * t446;
2159   t5766 = t1630 * t703;
2160   t5773 = t245 * t2221;
2161   t5775 = t19 * t5742;
2162   t5777 = t245 * t2215;
2163   t5779 = t678 * t1620;
2164   t5781 = t2222 * t245;
2165   t5783 = t20 * t5742;
2166   t5785 = 0.4e1 * t677 * t1620 + 0.2e1 * t5773 + 0.2e1 * t5775 + 0.18e2 * t5777 + 0.36e2 * t5779 + 0.18e2 * t5781 + 0.9e1 * t5783;
2167   t5786 = t5785 * t26;
2168   t5787 = t2228 * t254;
2169   t5800 = t2380 * t2215;
2170   t5801 = t5800 * t245;
2171   t5804 = t21 * t2215;
2172   t5805 = t5804 * t245;
2173   t5808 = t1636 * t1620;
2174   t5819 = t765 * t2221;
2175   t5820 = t5819 * t245;
2176   t5827 = 0.24e2 * t1630 * t1623 + 0.12e2 * t1630 * t1625 - 0.108e3 * t4030 * t1637 + 0.12e2 * t757 * t2224 + 0.6e1 * t757 * t2226 - 0.54e2 * t2370 * t2251 + 0.648e3 * t2379 * t5801 + 0.6e1 * t5787 * t248 + 0.12e2 * t255 * t5777 + 0.24e2 * t255 * t5779 + 0.12e2 * t255 * t5781 + 0.6e1 * t255 * t5783 + 0.12e2 * t4006 * t680 - 0.324e3 * t764 * t5805 - 0.108e3 * t764 * t5808 - 0.54e2 * t764 * t5820 - t5786;
2177   t5831 = t2339 * t2215;
2178   t5834 = t4302 * t714 / 0.5e1 + t1751 * t1717 / 0.5e1 + t496 * t5756 / 0.10e2 + t5759 * t468 / 0.10e2 + t1189 * t2286 / 0.10e2 - 0.12577644938271604938e1 * t4357 * t2240 + 0.75465869629629629628e0 * t5766 * t1655 + 0.75465869629629629630e0 * t4367 * t2240 + t5827 * t215 - 0.12e2 * t757 * t2303 - 0.12e2 * t255 * t5831;
2179   t5835 = t4416 * t2215;
2180   t5840 = t1154 * t2221;
2181   t5855 = t680 * t279;
2182   t5856 = t348 * t5855;
2183   t5859 = t690 * t1623;
2184   t5862 = -0.12e2 * t255 * t5835 - 0.6e1 * t757 * t2306 - 0.6e1 * t255 * t5840 + 0.20962741563786008230e0 * t2295 * t1662 + 0.108e3 * t1563 * t5808 - 0.648e3 * t3150 * t5801 - 0.24e2 * t1569 * t5779 - 0.12e2 * t1569 * t5781 + 0.54e2 * t1563 * t5820 - 0.30186347851851851852e0 * t4338 * t5856 + 0.15093173925925925926e1 * t4338 * t5859;
2185   t5864 = t690 * t1637;
2186   t5867 = t683 * t703;
2187   t5876 = t1628 * t10;
2188   t5879 = t475 * t5742;
2189   t5885 = t40 * t1653 * t1620;
2190   t5896 = t4267 * t5855;
2191   t5899 = t117 * t1623;
2192   t5902 = t117 * t1637;
2193   t5906 = t2258 * t439;
2194   t5909 = t5827 * t193;
2195   t5911 = t2980 * t2215;
2196   t5914 = t697 * t1718 / 0.5e1 - 0.9e1 / 0.100e3 * t408 * t2264 - 0.9e1 / 0.100e3 * t440 * t2264 + t1681 * t715 / 0.5e1 - 0.30186347851851851852e0 * t1652 * t5896 + 0.15093173925925925926e1 * t1652 * t5899 - 0.67919282666666666667e1 * t4220 * t5902 + t2229 * t403 + t5906 * t215 + t5786 * t154 + t5909 * t215 + 0.54e2 * t764 * t5911;
2197   t5915 = t1630 * t1651;
2198   t5932 = t1628 * t572;
2199   t5935 = t683 * t1269;
2200   t5942 = 0.75465869629629629628e0 * t5915 * t1655 + 0.75465869629629629630e0 * t4209 * t2240 + 0.75465869629629629630e0 * t4213 * t2240 + 0.75465869629629629630e0 * t1652 * t5885 - 0.12577644938271604938e1 * t4226 * t2240 - 0.12e2 * t4006 * t685 - 0.12e2 * t1630 * t1640 - 0.6e1 * t5787 * t257 - 0.12577644938271604938e0 * t5932 * t691 - 0.12577644938271604938e0 * t5935 * t691 + t1679 * t715 / 0.5e1 + t2259 * t469 / 0.10e2;
2201   t5944 = t446 * t5756;
2202   t5953 = t5139 * t2215;
2203   t5958 = t1689 * t1717;
2204   t5961 = t1104 * t2286;
2205   t5962 = t5961 * t468;
2206   t5965 = t256 * t5742;
2207   t5968 = t2957 * t2263;
2208   t5969 = t5968 * t468;
2209   t5976 = t194 * t5944 / 0.10e2 + t408 * t2287 / 0.10e2 + t440 * t2287 / 0.10e2 - 0.9e1 / 0.50e2 * t697 * t1690 - 0.12e2 * t255 * t5953 - 0.6e1 * t757 * t2246 - 0.9e1 / 0.50e2 * t194 * t5958 - 0.9e1 / 0.100e3 * t194 * t5962 - 0.6e1 * t255 * t5965 + 0.171e3 / 0.1000e4 * t194 * t5969 + 0.324e3 * t1225 * t5805 + 0.108e3 * t1225 * t5808;
2210   t5989 = t2995 * t2215;
2211   t5996 = t770 * t2221;
2212   t6005 = -0.648e3 * t3896 * t5801 - 0.24e2 * t5569 * t1623 + 0.108e3 * t5614 * t1637 - 0.12e2 * t1233 * t5781 + 0.54e2 * t1225 * t5820 - 0.24e2 * t1233 * t5779 - 0.12e2 * t255 * t5989 - 0.12e2 * t1630 * t1645 + 0.54e2 * t2370 * t2236 - 0.6e1 * t255 * t5996 - 0.12e2 * t757 * t2243 + 0.20962741563786008230e0 * t2233 * t1662 + 0.50310579753086419752e-1 * t2233 * t1665;
2213   t6011 = -0.67919282666666666667e1 * t5640 * t5864 + 0.50310579753086419752e-1 * t5867 * t1481 - 0.24e2 * t5685 * t1623 + 0.108e3 * t5688 * t1637 + 0.324e3 * t1563 * t5805 - 0.12577644938271604938e0 * t5876 * t691 - 0.6e1 * t255 * t5879 - 0.6e1 * t5787 * t476 + 0.75465869629629629630e0 * t1742 * t5885 - p->cam_beta * (t5914 + t5942 + t5976 + t6005) - 0.9e1 / 0.100e3 * t3050 * t2263;
2214   t6022 = t2406 * t2215;
2215   t6027 = t2286 * t468;
2216   t6030 = t714 * t1717;
2217   t6033 = t2263 * t468;
2218   t6036 = t5786 * t229 + t2229 * t493 - 0.12e2 * t4006 * t721 - 0.12e2 * t1630 * t1731 - 0.12e2 * t1630 * t1736 + 0.54e2 * t2370 * t2298 + 0.54e2 * t764 * t6022 - 0.9e1 / 0.50e2 * t4070 * t1756 - 0.9e1 / 0.100e3 * t1192 * t6027 - 0.9e1 / 0.50e2 * t1192 * t6030 + 0.171e3 / 0.1000e4 * t3053 * t6033;
2219   t6039 = t240 * (t5834 + t5862 + t6011 + t6036);
2220   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2221     v3rhotau2[0] = -t1202 * t2317 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t6039;
2222 
2223   t6044 = t1765 * t505;
2224   t6045 = t2334 * t6044;
2225   t6048 = t3950 * t1765;
2226   t6051 = t2991 * t6044;
2227   t6054 = t1515 * t2034;
2228   t6059 = t45 * t1767;
2229   t6061 = t638 * t6059 * t211;
2230   t6062 = 0.73e2 / 0.6480e4 * t6061;
2231   t6064 = t40 * t398 * t1765;
2232   t6067 = t638 * t639 * t1767;
2233   t6068 = 0.73e2 / 0.6480e4 * t6067;
2234   t6069 = t2027 * t505;
2235   t6070 = 0.292e3 / 0.45e2 * t6069;
2236   t6071 = t6062 - 0.73e2 / 0.3240e4 * t6064 - t6068 - t2029 + t6070 + t2033;
2237   t6072 = t446 * t6071;
2238   t6081 = t505 * t1767;
2239   t6082 = 0.6e1 * t6081;
2240   t6084 = t506 * t1767;
2241   t6085 = 0.54e2 * t6084;
2242   t6086 = t6082 + t1769 + 0.18e2 * t6044 + t6085 + t1773;
2243   t6087 = t6086 * t26;
2244   t6089 = t154 * t6044;
2245   t6094 = t1226 * t1767;
2246   t6095 = t1225 * t6094;
2247   t6096 = 0.162e3 * t6095;
2248   t6097 = t3852 * t1765;
2249   t6100 = -0.648e3 * t2379 * t6051 - 0.27e2 / 0.100e3 * t194 * t6054 + 0.3e1 / 0.10e2 * t628 * t2035 + t194 * t6072 / 0.10e2 + 0.3e1 / 0.10e2 * t2009 * t649 + 0.3e1 * t1775 * t623 + 0.3e1 * t511 * t1997 + t6087 * t154 - 0.12e2 * t255 * t6089 - 0.36e2 * t1219 * t1784 + t6096 - 0.36e2 * t255 * t6097 - t1792;
2250   t6107 = t1219 * t1772;
2251   t6108 = 0.18e2 * t6107;
2252   t6109 = t2380 * t6044;
2253   t6112 = t21 * t6044;
2254   t6115 = t764 * t6094;
2255   t6116 = 0.162e3 * t6115;
2256   t6119 = t255 * t6084;
2257   t6120 = 0.36e2 * t6119;
2258   t6121 = 0.36e2 * t1219 * t1770 - 0.162e3 * t3109 * t2001 + 0.648e3 * t2379 * t6109 + 0.12e2 * t255 * t6044 + 0.18e2 * t4466 * t508 - 0.324e3 * t764 * t6112 + t2007 - t6087 + t6108 - t6116 + t6120;
2259   t6122 = t6121 * t193;
2260   t6126 = t2013 * t648;
2261   t6127 = t2957 * t6126;
2262   t6130 = t1240 * t1767;
2263   t6131 = t255 * t6130;
2264   t6132 = 0.18e2 * t6131;
2265   t6133 = t2966 * t6044;
2266   t6138 = t1219 * t1790;
2267   t6139 = 0.18e2 * t6138;
2268   t6140 = t3856 * t1765;
2269   t6143 = t5033 * t505;
2270   t6146 = t1233 * t6084;
2271   t6147 = 0.36e2 * t6146;
2272   t6148 = t1793 * t522;
2273   t6149 = t2455 * t6148;
2274   t6154 = t821 * t522 * t1801;
2275   t6158 = my_piecewise3(t68, 0, -0.77e2 / 0.6000e4 * t32 * t34 * t6149 + 0.19726293005659495200e-3 * t4585 * t6154);
2276   t6165 = t1811 * t527;
2277   t6166 = t867 * t6165;
2278   t6171 = t2578 * t6165;
2279   t6174 = t4734 * t6165;
2280   t6176 = t527 * t1806;
2281   t6186 = t902 * t6165;
2282   t6187 = t6186 * t78;
2283   t6189 = t1314 * t1875;
2284   t6193 = 0.5e1 / 0.2e1 * t2512 * t6165 * t78;
2285   t6194 = t291 * t6158;
2286   t6199 = t2533 * t6165;
2287   t6209 = t71 * t6158 * t78;
2288   t6210 = 0.15e2 / 0.2e1 * t6187 - 0.6e1 * t6189 - t6193 + t6194 * t78 / 0.2e1 + 0.3e1 / 0.4e1 * t4761 * t557 + t6199 * t78 / 0.8e1 - 0.12e2 * t4769 * t1806 - 0.3e1 * t605 * t1875 - 0.4e1 * t295 * t6158 - t6209;
2289   t6213 = 0.7e1 / 0.2e1 * t6166 * t78 - 0.3e1 / 0.2e1 * t3398 * t1875 - t6171 * t78 / 0.4e1 - 0.6e1 * t6174 + 0.6e1 * t932 * t6176 - t287 * t6158 + 0.2e1 * t6158 * t82 + 0.6e1 * t1806 * t539 + 0.6e1 * t527 * t1839 + 0.2e1 * t69 * t6210;
2290   t6216 = -0.8e1 / 0.3e1 * t6158 * t85 - 0.8e1 * t1806 * t542 - 0.8e1 * t527 * t1842 - 0.8e1 / 0.3e1 * t69 * t6213;
2291   t6228 = t121 * t6158;
2292   t6229 = 0.256e3 * t6228;
2293   t6231 = t69 * t6158;
2294   t6233 = t69 * t6165;
2295   t6234 = 0.1536e4 * t6233;
2296   t6235 = t581 * t1806;
2297   t6236 = 0.2304e4 * t6235;
2298   t6237 = 0.120e3 * t6176 + 0.40e2 * t6231 - t6234 - t6236 - t6229;
2299   t6241 = t6176 * t78;
2300   t6246 = t6165 * t78;
2301   t6266 = t6158 * t78;
2302   t6271 = 0.10e2 * t70 * t6158 * t73 - t6193 - 0.10e2 * t6209 + t2534 * t6246 / 0.8e1 + 0.3e1 / 0.2e1 * t4656 * t557 + 0.3e1 / 0.2e1 * t1362 * t1875 + 0.3e1 / 0.4e1 * t3385 * t1872 - 0.9e1 / 0.4e1 * t2527 * t6246 + t322 * t6266 / 0.2e1 + 0.20e2 * t6187 - 0.15e2 * t6189;
2303   t6272 = t6229 + t6237 * t78 - 0.216e3 * t6176 - 0.72e2 * t6231 + 0.3e1 / 0.4e1 * t995 * t6241 - 0.9e1 / 0.2e1 * t3373 * t1872 + 0.6e1 * t2494 * t6246 - 0.9e1 / 0.2e1 * t990 * t6241 + t6234 + t6236 + t6271;
2304   t6275 = 0.144e3 * t1350 * t1806 + 0.144e3 * t4553 * t1806 + 0.144e3 * t1811 * t565 + 0.48e2 * t313 * t6158 + 0.144e3 * t4595 * t527 + 0.24e2 * t75 * t6272;
2305   t6276 = t6275 * t113;
2306   t6279 = t611 * sigma[0];
2307   t6320 = t6158 * t73;
2308   t6323 = -0.12e2 * t380 * t859 * t6165 + 0.7e1 * t2717 * t6246 + 0.6e1 * t2720 * t6246 - 0.9e1 / 0.2e1 * t3751 * t1872 - 0.2e1 * t380 * t76 * t6158 + 0.3e1 / 0.2e1 * t4948 * t557 + 0.3e1 / 0.2e1 * t1426 * t1875 + 0.3e1 / 0.4e1 * t3784 * t1872 - 0.9e1 / 0.4e1 * t2755 * t6246 + t364 * t6266 / 0.2e1 + t2729 * t6246 / 0.8e1 + 0.432e3 * t871 * t6176 + 0.720e3 * t561 * t1960 + 0.240e3 * t98 * t6320;
2309   t6344 = t121 * t6165;
2310   t6348 = t123 * t6158;
2311   t6350 = 0.460800e6 * t583 * t1806 + 0.1344e4 * t6176 - 0.5760e4 * t6228 + 0.448e3 * t6231 - 0.34560e5 * t6233 - 0.51840e5 * t6235 + 0.614400e6 * t6344 + 0.30720e5 * t6348;
2312   t6357 = t75 * t6158;
2313   t6359 = t75 * t6165;
2314   t6363 = t93 * t6158;
2315   t6377 = -0.1105920e7 * t127 * t6158 + 0.26943e5 * t134 * t6158 - 0.61931520e8 * t134 * t6165 - 0.26542080e8 * t1419 * t1806 + 0.4608e4 * t551 * t1806 - 0.34560e5 * t553 * t1806 + 0.484974e6 * t597 * t1806 + 0.808290e6 * t93 * t6165 - 0.8e1 * t6158 + 0.1536e4 * t6165 + 0.768e3 * t6357 - 0.34560e5 * t6359 - 0.2880e4 * t6363;
2316   t6390 = -0.1440e4 * t1837 * t557 - t2741 * t6246 / 0.2e1 + 0.216e3 * t4952 * t527 + 0.216e3 * t1443 * t1806 - 0.360e3 * t6174 + 0.72e2 * t367 * t6158 + 0.720e3 * t6246 * t76 + 0.432e3 * t3733 * t1811 + 0.24e2 * t121 * t6350 + t6377 * t78 + 0.144e3 * t6165 * t136 + 0.12e2 * t380 * t532 * t1806 - 0.3e1 * t903 * t6241 - 0.9e1 / 0.2e1 * t860 * t6241 + 0.3e1 / 0.4e1 * t868 * t6241;
2317   t6391 = t6323 + t6390;
2318   t6395 = (0.8e1 / 0.7e1 * t6158 * t144 + 0.24e2 / 0.7e1 * t1806 * t608 + 0.24e2 / 0.7e1 * t527 * t1973 + 0.8e1 / 0.7e1 * t69 * t6391) * t35;
2319   t6396 = t6395 * t39;
2320   t6399 = t40 * t1987;
2321   t6404 = t1032 * t522;
2322   t6407 = t147 * t1993;
2323   t6414 = t2632 * t6148;
2324   t6415 = t398 * t6414;
2325   t6418 = t6216 * t90 + 0.35e2 / 0.81e2 * t6276 * t117 - 0.41880455757797808358e-4 * t6279 * t1994 + 0.44233737333333333333e-1 * t149 * t1988 - 0.63191053333333333333e-1 * t613 * t620 + 0.26329605555555555556e-1 * t6396 * t151 + 0.30703965012345679013e-1 * t573 * t6399 - 0.43862807160493827161e-1 * t1895 * t1900 + 0.77470532531317290240e-2 * t6404 * t2018 - 0.41880455757797808358e-4 * t6407 * t347 - 0.31595526666666666666e-1 * t4818 * t620 + 0.44233737333333333333e-1 * t1395 * t1988 - 0.35386989866666666666e-1 * t397 * t6415;
2326   t6419 = t4677 * t522;
2327   t6428 = t1890 * t10;
2328   t6429 = t6428 * t45;
2329   t6432 = t1484 * t49;
2330   t6435 = t2633 * t6148;
2331   t6440 = t522 * t9;
2332   t6441 = t6440 * t58;
2333   t6448 = t104 * t1993;
2334   t6449 = t6448 * t347;
2335   t6453 = 0.58632638060916931702e-4 * t1991 * t6419 + 0.18e2 / 0.25e2 * t3501 * t1793 - 0.66e2 / 0.125e3 * t2428 * t6148 - 0.14e2 / 0.27e2 * t4793 * t576 + 0.54828508950617283951e-1 * t6429 * t117 - 0.64558777109431075200e-2 * t6432 * t1853 - 0.392e3 / 0.675e3 * t345 * t6435 + 0.98e2 / 0.135e3 * t1266 * t1903 + 0.48111412961907397289e-3 * t4687 * t6441 - 0.34365294972790998064e-3 * t569 * t1907 + 0.78988816666666666668e-1 * t1978 * t616 - 0.29070481623525376286e-4 * t6449 - 0.3e1 / 0.5e1 * t4803 * t522;
2336   t6454 = t6418 + t6453;
2337   t6460 = t6122 * t215 - 0.27e2 / 0.100e3 * t628 * t2014 + 0.171e3 / 0.1000e4 * t194 * t6127 - t6132 + 0.324e3 * t764 * t6133 - 0.36e2 * t1219 * t1787 - t6139 + 0.162e3 * t764 * t6140 - 0.18e2 * t255 * t6143 - t6147 + t27 * t6454 + 0.162e3 * t3109 * t1781 - 0.18e2 * t4466 * t513;
2338   t6478 = -0.36e2 * t1219 * t2051 + 0.324e3 * t764 * t6045 - 0.36e2 * t255 * t6048 - p->cam_beta * (t6100 + t6460) - t2056 - 0.27e2 / 0.100e3 * t3906 * t2013 + 0.171e3 / 0.1000e4 * t3053 * t6126 + t6087 * t229 + 0.3e1 * t1775 * t664 + 0.3e1 * t511 * t2070 + t496 * t6071 / 0.10e2 + 0.3e1 / 0.10e2 * t5174 * t648 + 0.3e1 / 0.10e2 * t1600 * t2034;
2339   t6481 = t1580 * t49;
2340   t6490 = t1181 * t522;
2341   t6493 = -0.66e2 / 0.125e3 * t2427 * t6148 + 0.77470532531317290240e-2 * t6481 * t1853 + 0.74937702345679012345e-1 * t638 * t3927 * t1793 - 0.70950937381323184645e-4 * t1994 - 0.392e3 / 0.375e3 * t3036 * t6148 + 0.14059467014942767488e-1 * t6490 * t2018;
2342   t6495 = t3967 * t1765;
2343   t6498 = t1576 * t1767;
2344   t6499 = t255 * t6498;
2345   t6500 = 0.18e2 * t6499;
2346   t6505 = t1219 * t2054;
2347   t6506 = 0.18e2 * t6505;
2348   t6509 = t1569 * t6084;
2349   t6510 = 0.36e2 * t6509;
2350   t6511 = t1563 * t6094;
2351   t6512 = 0.162e3 * t6511;
2352   t6513 = t648 * t2034;
2353   t6516 = t229 * t6044;
2354   t6520 = t2410 * t6044;
2355   t6523 = t4402 * t505;
2356   t6526 = t27 * t6493 + 0.162e3 * t764 * t6495 - t6500 - 0.18e2 * t4466 * t655 - 0.36e2 * t1219 * t2048 - t6506 + 0.162e3 * t3109 * t2045 - t6510 + t6512 - 0.27e2 / 0.100e3 * t1192 * t6513 - 0.12e2 * t255 * t6516 + t6121 * t215 - 0.648e3 * t2379 * t6520 - 0.18e2 * t255 * t6523;
2357   t6528 = t240 * (t6478 + t6526);
2358   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2359     v3sigma3[0] = -0.3e1 / 0.16e2 * t239 * t6528;
2360 
2361   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2362     v3sigma2lapl[0] = 0.0e0;
2363 
2364   t6531 = t1775 * t10;
2365   t6536 = t714 * t2034;
2366   t6541 = 0.1e1 / t786;
2367   t6542 = t6541 * t347;
2368   t6545 = t1767 * t677;
2369   t6546 = 0.2e1 * t6545;
2370   t6547 = t505 * t2087;
2371   t6549 = t1765 * t677;
2372   t6551 = t2088 * t505;
2373   t6553 = t678 * t1767;
2374   t6554 = 0.18e2 * t6553;
2375   t6555 = t6546 + 0.4e1 * t6547 + t1769 + 0.18e2 * t6549 + 0.36e2 * t6551 + t6554 + t1773;
2376   t6556 = t6555 * t26;
2377   t6567 = -0.62888224691358024691e-1 * t6531 * t691 - 0.12e2 * t1219 * t2191 - 0.9e1 / 0.100e3 * t1192 * t6536 - 0.9e1 / 0.50e2 * t3906 * t2206 + 0.33343802616862439615e-4 * t27 * t6542 + t6556 * t229 + 0.2e1 * t2095 * t664 + t683 * t2070 + t5174 * t714 / 0.10e2 + t1600 * t2172 / 0.5e1 + t5294 * t648 / 0.5e1;
2378   t6570 = t229 * t1765;
2379   t6571 = t6570 * t677;
2380   t6574 = t39 * t1767;
2381   t6576 = t704 * t6574 * t211;
2382   t6577 = 0.73e2 / 0.270e3 * t6576;
2383   t6582 = t704 * t705 * t1767;
2384   t6583 = 0.73e2 / 0.270e3 * t6582;
2385   t6584 = t45 * t2087;
2386   t6586 = t638 * t6584 * t211;
2387   t6589 = t638 * t2158 * t505;
2388   t6593 = t709 * t1767;
2389   t6594 = 0.292e3 / 0.135e3 * t6593;
2390   t6596 = t638 * t639 * t2087;
2391   t6598 = -t6577 + 0.73e2 / 0.135e3 * t703 * t40 * t1765 + t6583 + 0.73e2 / 0.9720e4 * t6586 - 0.73e2 / 0.4860e4 * t6589 - t2029 + 0.584e3 / 0.135e3 * t2162 * t505 + t6594 - 0.73e2 / 0.9720e4 * t6596 + t2033;
2392   t6603 = t1636 * t1767;
2393   t6604 = t1563 * t6603;
2394   t6605 = 0.54e2 * t6604;
2395   t6612 = t5376 * t505;
2396   t6619 = t1569 * t6553;
2397   t6620 = 0.12e2 * t6619;
2398   t6621 = -0.12e2 * t1630 * t2051 - 0.12e2 * t255 * t6571 + t496 * t6598 / 0.10e2 + t1751 * t2034 / 0.10e2 + t6605 - 0.24e2 * t5225 * t2090 + 0.108e3 * t4423 * t2102 + 0.108e3 * t4440 * t2102 + 0.108e3 * t1563 * t6612 - 0.24e2 * t4437 * t2090 - 0.24e2 * t1569 * t6551 - t6620;
2399   t6623 = t4045 * t1765;
2400   t6626 = t4049 * t1765;
2401   t6629 = t508 * t522;
2402   t6630 = t348 * t6629;
2403   t6639 = t1630 * t1772;
2404   t6640 = 0.6e1 * t6639;
2405   t6655 = t764 * t6603;
2406   t6656 = 0.54e2 * t6655;
2407   t6661 = t255 * t6553;
2408   t6662 = 0.12e2 * t6661;
2409   t6663 = 0.24e2 * t1219 * t2090 + 0.12e2 * t1219 * t2092 + 0.12e2 * t1630 * t1770 - 0.54e2 * t4030 * t2001 - 0.108e3 * t3109 * t2102 + 0.648e3 * t2379 * t6623 + 0.12e2 * t255 * t6549 + 0.24e2 * t255 * t6551 + 0.6e1 * t4466 * t680 + 0.12e2 * t5413 * t508 - 0.108e3 * t764 * t6612 - 0.324e3 * t764 * t6626 + t2007 - t6556 + t6640 - t6656 + t6662;
2410   t6665 = t714 * t2013;
2411   t6678 = -0.648e3 * t3150 * t6623 + 0.324e3 * t1563 * t6626 - t2056 - 0.30186347851851851852e0 * t4338 * t6630 + t6663 * t215 + 0.171e3 / 0.1000e4 * t3053 * t6665 + 0.54e2 * t4030 * t2045 - 0.6e1 * t4466 * t721 - 0.12e2 * t1219 * t2186 - 0.12e2 * t5413 * t655 - 0.12e2 * t1630 * t2048;
2412   t6679 = t1630 * t2054;
2413   t6680 = 0.6e1 * t6679;
2414   t6685 = t4402 * t677;
2415   t6688 = t1576 * t2087;
2416   t6691 = t2172 * t648;
2417   t6700 = t1240 * t2087;
2418   t6704 = t6663 * t193;
2419   t6706 = t446 * t6598;
2420   t6715 = t1225 * t6603;
2421   t6716 = 0.54e2 * t6715;
2422   t6721 = -0.24e2 * t4525 * t2090 + 0.108e3 * t5030 * t2102 - 0.12e2 * t255 * t6700 + t683 * t1997 + t6704 * t215 + t194 * t6706 / 0.10e2 - 0.648e3 * t3896 * t6623 + 0.324e3 * t1225 * t6626 + 0.108e3 * t1225 * t6612 + t6716 - 0.24e2 * t5057 * t2090 - 0.24e2 * t1233 * t6551;
2423   t6722 = t1233 * t6553;
2424   t6723 = 0.12e2 * t6722;
2425   t6726 = t5608 * t648;
2426   t6730 = t104 * t6541 * t347;
2427   t6733 = t27 * t6428;
2428   t6736 = t1689 * t2034;
2429   t6740 = t40 * t4229 * t1765;
2430   t6748 = t40 * t1653 * t1767;
2431   t6749 = t1652 * t6748;
2432   t6750 = 0.37732934814814814815e0 * t6749;
2433   t6752 = t40 * t4221 * t1765;
2434   t6755 = t5033 * t677;
2435   t6758 = -t6723 - 0.9e1 / 0.50e2 * t628 * t2143 - 0.9e1 / 0.50e2 * t194 * t6726 + 0.33343802616862439615e-4 * t27 * t6730 - 0.62888224691358024691e-1 * t6733 * t691 - 0.9e1 / 0.100e3 * t194 * t6736 + 0.75465869629629629630e0 * t1652 * t6740 + 0.75465869629629629630e0 * t5533 * t2117 + 0.75465869629629629630e0 * t5498 * t2117 + t6750 - 0.33959641333333333334e1 * t4220 * t6752 - 0.6e1 * t255 * t6755;
2436   t6766 = t154 * t1765;
2437   t6767 = t6766 * t677;
2438   t6773 = t4267 * t6629;
2439   t6776 = t1775 * t572;
2440   t6779 = t511 * t1894;
2441   t6782 = t4203 * t2013;
2442   t6787 = -0.12e2 * t1219 * t2110 - 0.6e1 * t4466 * t685 - 0.12e2 * t1630 * t1784 - 0.12e2 * t255 * t6767 + 0.2e1 * t2095 * t623 - t1792 + t6556 * t154 - 0.30186347851851851852e0 * t1652 * t6773 - 0.62888224691358024691e-1 * t6776 * t691 - 0.12577644938271604938e0 * t6779 * t691 + 0.171e3 / 0.1000e4 * t194 * t6782 - 0.12e2 * t1630 * t1787;
2443   t6788 = t1630 * t1790;
2444   t6789 = 0.6e1 * t6788;
2445   t6810 = t689 * t1903;
2446   t6815 = -t6789 + 0.54e2 * t4030 * t1781 - 0.12e2 * t5413 * t513 - 0.9e1 / 0.100e3 * t697 * t2014 + t628 * t2173 / 0.5e1 + t2137 * t649 / 0.5e1 + t697 * t2035 / 0.10e2 + t2009 * t715 / 0.10e2 + 0.108e3 * t5111 * t2102 + 0.50310579753086419752e-1 * t2120 * t2123 + 0.50310579753086419752e-1 * t2113 * t2123 - 0.35217405827160493826e-1 * t688 * t6810 - 0.12e2 * t1219 * t2105;
2447   t6821 = t1742 * t6748;
2448   t6822 = 0.37732934814814814815e0 * t6821;
2449   t6827 = -t6680 + 0.50310579753086419752e-1 * t5302 * t1900 - 0.35217405827160493826e-1 * t1747 * t6399 - 0.6e1 * t255 * t6685 - 0.12e2 * t255 * t6688 - 0.9e1 / 0.50e2 * t1192 * t6691 - 0.9e1 / 0.100e3 * t4070 * t2013 - p->cam_beta * (t6721 + t6758 + t6787 + t6815) + 0.75465869629629629630e0 * t1742 * t6740 + t6822 - 0.33959641333333333334e1 * t4364 * t6752 + 0.75465869629629629630e0 * t5252 * t2117;
2450   t6830 = t240 * (t6567 + t6621 + t6678 + t6827);
2451   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2452     v3sigma2tau[0] = -0.3e1 / 0.16e2 * t239 * t6830;
2453 
2454   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2455     v3sigmalapl2[0] = 0.0e0;
2456 
2457   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2458     v3sigmalapltau[0] = 0.0e0;
2459 
2460   t6833 = t690 * t2090;
2461   t6836 = t690 * t2102;
2462   t6839 = t2095 * t10;
2463   t6848 = t505 * t2221;
2464   t6852 = my_piecewise3(t18, t13 * t2218 / 0.4e1, 0);
2465   t6853 = t19 * t6852;
2466   t6855 = t505 * t2215;
2467   t6857 = t678 * t2087;
2468   t6859 = t2222 * t505;
2469   t6861 = t20 * t6852;
2470   t6863 = 0.4e1 * t677 * t2087 + 0.2e1 * t6848 + 0.2e1 * t6853 + 0.18e2 * t6855 + 0.36e2 * t6857 + 0.18e2 * t6859 + 0.9e1 * t6861;
2471   t6864 = t6863 * t26;
2472   t6871 = t39 * t2087;
2473   t6881 = t45 * t2221;
2474   t6883 = t638 * t6881 * t211;
2475   t6885 = t207 * t6852;
2476   t6891 = t40 * t398 * t2215;
2477   t6896 = t638 * t639 * t2221;
2478   t6900 = -0.73e2 / 0.135e3 * t704 * t6871 * t211 + 0.146e3 / 0.135e3 * t704 * t2272 * t505 + 0.73e2 / 0.135e3 * t704 * t705 * t2087 + 0.73e2 / 0.19440e5 * t6883 - 0.146e3 / 0.135e3 * t6885 * t211 + 0.292e3 / 0.135e3 * t2279 * t505 - 0.73e2 / 0.9720e4 * t6891 + 0.584e3 / 0.135e3 * t709 * t2087 - 0.73e2 / 0.19440e5 * t6896 + 0.146e3 / 0.135e3 * t210 * t6852;
2479   t6906 = t2263 * t648;
2480   t6909 = t714 * t2172;
2481   t6912 = t680 * t522;
2482   t6913 = t348 * t6912;
2483   t6918 = t5819 * t505;
2484   t6923 = t5968 * t648;
2485   t6926 = t1689 * t2172;
2486   t6947 = t40 * t1653 * t2087;
2487   t6950 = t446 * t6900;
2488   t6953 = t4267 * t6912;
2489   t6956 = t117 * t2090;
2490   t6959 = t117 * t2102;
2491   t6962 = t2095 * t572;
2492   t6965 = t683 * t1894;
2493   t6968 = t697 * t2173 / 0.5e1 + 0.75465869629629629628e0 * t5915 * t2117 + 0.75465869629629629630e0 * t5533 * t2240 + 0.75465869629629629630e0 * t5498 * t2240 + 0.75465869629629629630e0 * t1652 * t6947 + t194 * t6950 / 0.10e2 - 0.30186347851851851852e0 * t1652 * t6953 + 0.15093173925925925926e1 * t1652 * t6956 - 0.67919282666666666667e1 * t4220 * t6959 - 0.12577644938271604938e0 * t6962 * t691 - 0.12577644938271604938e0 * t6965 * t691;
2494   t6982 = t5800 * t505;
2495   t6985 = t5804 * t505;
2496   t6988 = t1636 * t2087;
2497   t7005 = 0.12e2 * t1219 * t2224 + 0.6e1 * t1219 * t2226 + 0.24e2 * t1630 * t2090 + 0.12e2 * t1630 * t2092 - 0.108e3 * t4030 * t2102 - 0.54e2 * t3109 * t2251 + 0.648e3 * t2379 * t6982 + 0.12e2 * t255 * t6855 + 0.24e2 * t255 * t6857 + 0.12e2 * t255 * t6859 + 0.6e1 * t255 * t6861 + 0.6e1 * t5787 * t508 + 0.12e2 * t5413 * t680 - 0.54e2 * t764 * t6918 - 0.324e3 * t764 * t6985 - 0.108e3 * t764 * t6988 - t6864;
2498   t7006 = t7005 * t193;
2499   t7012 = t3856 * t2215;
2500   t7017 = t5961 * t648;
2501   t7020 = t3852 * t2215;
2502   t7029 = t1240 * t2221;
2503   t7032 = t7006 * t215 - 0.12e2 * t1630 * t2105 - 0.12e2 * t5413 * t685 + 0.54e2 * t764 * t7012 - 0.6e1 * t5787 * t513 - 0.9e1 / 0.100e3 * t194 * t7017 - 0.12e2 * t255 * t7020 - 0.12e2 * t1630 * t2110 + 0.54e2 * t3109 * t2236 - 0.12e2 * t1219 * t2243 - 0.6e1 * t255 * t7029;
2504   t7047 = t256 * t6852;
2505   t7053 = t154 * t505 * t2215;
2506   t7058 = 0.108e3 * t5614 * t2102 - 0.24e2 * t1233 * t6857 + 0.324e3 * t1225 * t6985 + 0.108e3 * t1225 * t6988 - 0.648e3 * t3896 * t6982 - 0.24e2 * t5569 * t2090 + 0.50310579753086419752e-1 * t2233 * t2123 - 0.6e1 * t255 * t7047 - 0.9e1 / 0.50e2 * t697 * t2143 - 0.12e2 * t255 * t7053 - 0.6e1 * t1219 * t2246;
2507   t7073 = t1751 * t2172 / 0.5e1 + 0.171e3 / 0.1000e4 * t3053 * t6906 - 0.9e1 / 0.50e2 * t1192 * t6909 - 0.30186347851851851852e0 * t4338 * t6913 - p->cam_beta * (-0.12e2 * t1233 * t6859 + 0.54e2 * t1225 * t6918 + t6864 * t154 + t2229 * t623 + 0.171e3 / 0.1000e4 * t194 * t6923 - 0.9e1 / 0.50e2 * t194 * t6926 - 0.9e1 / 0.100e3 * t628 * t2264 + t628 * t2287 / 0.10e2 + t2259 * t649 / 0.10e2 + t2137 * t715 / 0.5e1 + t6968 + t7032 + t7058) + t7005 * t215 - 0.12e2 * t1569 * t6859 + 0.54e2 * t1563 * t6918 - 0.24e2 * t5685 * t2090 + 0.108e3 * t5688 * t2102 + 0.324e3 * t1563 * t6985;
2508   t7081 = t2286 * t648;
2509   t7090 = t3967 * t2215;
2510   t7093 = t1576 * t2221;
2511   t7096 = t475 * t6852;
2512   t7110 = t3950 * t2215;
2513   t7114 = t229 * t505 * t2215;
2514   t7125 = -0.6e1 * t5787 * t655 - 0.12e2 * t5413 * t721 - 0.12e2 * t1630 * t2186 - 0.12e2 * t1630 * t2191 - 0.12e2 * t1219 * t2303 - 0.12e2 * t255 * t7110 - 0.12e2 * t255 * t7114 - 0.6e1 * t1219 * t2306 + 0.75465869629629629628e0 * t5766 * t2117 + 0.75465869629629629630e0 * t5252 * t2240 + 0.75465869629629629630e0 * t1742 * t6947;
2515   t7128 = t240 * (0.15093173925925925926e1 * t4338 * t6833 - 0.67919282666666666667e1 * t5640 * t6836 - 0.12577644938271604938e0 * t6839 * t691 + t5759 * t648 / 0.10e2 + t5294 * t714 / 0.5e1 + t6864 * t229 + t2229 * t664 - 0.9e1 / 0.100e3 * t3906 * t2263 + t1600 * t2286 / 0.10e2 + t496 * t6900 / 0.10e2 + t7073 + 0.108e3 * t1563 * t6988 - 0.648e3 * t3150 * t6982 - 0.24e2 * t1569 * t6857 - 0.9e1 / 0.100e3 * t1192 * t7081 - 0.9e1 / 0.50e2 * t4070 * t2206 + 0.50310579753086419752e-1 * t5867 * t1900 + 0.54e2 * t3109 * t2298 + 0.54e2 * t764 * t7090 - 0.6e1 * t255 * t7093 - 0.6e1 * t255 * t7096 + t7125);
2516   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2517     v3sigmatau2[0] = -0.3e1 / 0.16e2 * t239 * t7128;
2518 
2519   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2520     v3lapl3[0] = 0.0e0;
2521 
2522   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2523     v3lapl2tau[0] = 0.0e0;
2524 
2525   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2526     v3lapltau2[0] = 0.0e0;
2527 
2528   t7132 = t40 * t4229 * t2215;
2529   t7135 = t2263 * t714;
2530   t7138 = t714 * t2286;
2531   t7143 = t2229 * t10;
2532   t7148 = t39 * t2221;
2533   t7158 = t673 * t673;
2534   t7159 = 0.1e1 / t7158;
2535   t7162 = my_piecewise3(t18, -0.3e1 / 0.4e1 * t14 * t7159, 0);
2536   t7163 = t207 * t7162;
2537   t7170 = -0.73e2 / 0.90e2 * t704 * t7148 * t211 + 0.73e2 / 0.45e2 * t703 * t40 * t2215 + 0.73e2 / 0.90e2 * t704 * t705 * t2221 - 0.146e3 / 0.135e3 * t7163 * t211 + 0.292e3 / 0.45e2 * t2279 * t677 + 0.146e3 / 0.135e3 * t210 * t7162;
2538   t7171 = t446 * t7170;
2539   t7174 = t2229 * t572;
2540   t7179 = t19 * t7162;
2541   t7181 = t2215 * t677;
2542   t7183 = t678 * t2221;
2543   t7185 = t20 * t7162;
2544   t7187 = 0.6e1 * t677 * t2221 + 0.2e1 * t7179 + 0.18e2 * t7181 + 0.54e2 * t7183 + 0.9e1 * t7185;
2545   t7188 = t7187 * t26;
2546   t7198 = t2380 * t7181;
2547   t7201 = t21 * t7181;
2548   t7204 = t1636 * t2221;
2549   t7213 = 0.36e2 * t1630 * t2224 + 0.18e2 * t1630 * t2226 - 0.162e3 * t4030 * t2251 + 0.648e3 * t2379 * t7198 + 0.12e2 * t255 * t7181 + 0.36e2 * t255 * t7183 + 0.6e1 * t255 * t7185 + 0.18e2 * t5787 * t680 - 0.324e3 * t764 * t7201 - 0.162e3 * t764 * t7204 - t7188;
2550   t7214 = t7213 * t193;
2551   t7222 = t2966 * t7181;
2552   t7229 = 0.22639760888888888889e1 * t1652 * t7132 + t194 * t7171 / 0.10e2 - 0.18866467407407407407e0 * t7174 * t691 + t7188 * t154 + t7214 * t215 + 0.3e1 / 0.10e2 * t697 * t2287 + 0.3e1 / 0.10e2 * t2259 * t715 - 0.36e2 * t1630 * t2243 + 0.324e3 * t764 * t7222 + 0.162e3 * t1225 * t7204 - 0.36e2 * t1233 * t7183;
2553   t7230 = t1689 * t2286;
2554   t7233 = t154 * t7181;
2555   t7236 = t256 * t7162;
2556   t7241 = t2957 * t7135;
2557   t7250 = t2991 * t7181;
2558   t7256 = t40 * t4221 * t2215;
2559   t7260 = t40 * t1653 * t2221;
2560   t7263 = -0.27e2 / 0.100e3 * t194 * t7230 - 0.12e2 * t255 * t7233 - 0.6e1 * t255 * t7236 - 0.27e2 / 0.100e3 * t697 * t2264 + 0.171e3 / 0.1000e4 * t194 * t7241 - 0.18e2 * t5787 * t685 - 0.18e2 * t1630 * t2246 + 0.162e3 * t4030 * t2236 - 0.648e3 * t2379 * t7250 + 0.22639760888888888889e1 * t5915 * t2240 - 0.10187892400000000000e2 * t4220 * t7256 + 0.11319880444444444444e1 * t1652 * t7260;
2561   t7275 = t2334 * t7181;
2562   t7278 = 0.22639760888888888889e1 * t1742 * t7132 + 0.171e3 / 0.1000e4 * t3053 * t7135 - 0.27e2 / 0.100e3 * t1192 * t7138 - 0.27e2 / 0.100e3 * t4070 * t2263 - 0.18866467407407407407e0 * t7143 * t691 - p->cam_beta * (t7229 + t7263) + t496 * t7170 / 0.10e2 + 0.3e1 / 0.10e2 * t5759 * t714 + 0.3e1 / 0.10e2 * t1751 * t2286 + t7188 * t229 - 0.36e2 * t1630 * t2303 + 0.324e3 * t764 * t7275;
2563   t7289 = t475 * t7162;
2564   t7298 = t2410 * t7181;
2565   t7301 = t229 * t7181;
2566   t7305 = 0.162e3 * t1563 * t7204 - 0.36e2 * t1569 * t7183 + 0.11319880444444444444e1 * t1742 * t7260 + 0.22639760888888888889e1 * t5766 * t2240 - 0.10187892400000000000e2 * t4364 * t7256 - 0.6e1 * t255 * t7289 - 0.18e2 * t5787 * t721 - 0.18e2 * t1630 * t2306 + 0.162e3 * t4030 * t2298 - 0.648e3 * t2379 * t7298 - 0.12e2 * t255 * t7301 + t7213 * t215;
2567   t7307 = t240 * (t7278 + t7305);
2568   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2569     v3tau3[0] = -0.3e1 / 0.16e2 * t239 * t7307;
2570 
2571 #ifndef XC_DONT_COMPILE_LXC
2572 
2573   if(order < 4) return;
2574 
2575 
2576   t7333 = t250 * t2378;
2577   t7336 = t1186 * t765;
2578   t7343 = t741 * t741;
2579   t7354 = my_piecewise3(t18, 0.3e1 * sigma[0] / t56 * t15, 0);
2580   t7360 = t754 * t763;
2581   t7363 = 0.1080e4 * t764 * t229 * t7343 * t20 - 0.24e2 * t255 * t1154 * t2358 - 0.36e2 * t255 * t2343 * t747 - 0.72e2 * t255 * t3957 * t747 - 0.6e1 * t255 * t475 * t7354 + 0.324e3 * t764 * t7336 * t741 + 0.324e3 * t7360 * t1151 - 0.36e2 * t2347 * t1162 - 0.72e2 * t757 * t2344 + 0.648e3 * t2370 * t2407 - 0.24e2 * t757 * t2399 - 0.2592e4 * t7333 * t2411 - 0.72e2 * t757 * t2415;
2582   t7376 = t747 * t747;
2583   t7383 = t765 * t19;
2584   t7384 = t229 * t7383;
2585   t7388 = t1186 * t19;
2586   t7394 = t493 * t21;
2587   t7405 = 0.1296e4 * t2370 * t2336 - 0.9e1 / 0.25e2 * t1192 * t468 * t2943 - 0.27e2 / 0.25e2 * t3050 * t2329 + 0.513e3 / 0.500e3 * t3053 * t1105 * t1139 - 0.144e3 * t757 * t2340 + 0.162e3 * t764 * t1150 * t7376 - 0.36e2 * t255 * t1158 * t7376 - 0.7776e4 * t2379 * t7384 * t7343 - 0.72e2 * t255 * t7388 * t741 - 0.72e2 * t2347 * t1159 + 0.1296e4 * t764 * t7394 * t2335 - 0.48e2 * t757 * t3056 - 0.48e2 * t255 * t493 * t2335 - 0.144e3 * t3155 * t2362;
2588   t7409 = t246 * t2358;
2589   t7412 = t2366 * t254;
2590   t7433 = t2380 * t741 * t747;
2591   t7439 = -0.1080e4 * t764 * t20 * t7343 + 0.7776e4 * t2379 * t7383 * t7343 - 0.324e3 * t7360 * t1039 + 0.72e2 * t2347 * t750 + 0.36e2 * t2347 * t752 + 0.144e3 * t757 * t2362 - 0.1296e4 * t2370 * t2384 - 0.648e3 * t2370 * t2388 + 0.3888e4 * t2379 * t7433 + 0.2592e4 * t7333 * t2381 + 0.24e2 * t7412 * t248;
2592   t7441 = t21 * t741 * t747;
2593   t7447 = t2387 * t2358;
2594   t7450 = t19 * t7376;
2595   t7461 = t23 / t762 / t25;
2596   t7462 = t765 * t765;
2597   t7466 = t741 * t747;
2598   t7469 = t20 * t7354;
2599   t7482 = (0.2e1 * t19 * t7354 + 0.8e1 * t245 * t2358 + 0.6e1 * t7376 + 0.72e2 * t7409 + 0.54e2 * t7450 + 0.108e3 * t7466 + 0.9e1 * t7469) * t26;
2600   t7483 = -0.9720e4 * t7461 * t7462 * t7343 - 0.162e3 * t764 * t765 * t7376 + 0.48e2 * t757 * t2335 + 0.24e2 * t757 * t2364 + 0.48e2 * t255 * t7409 + 0.36e2 * t255 * t7450 + 0.72e2 * t255 * t7466 + 0.6e1 * t255 * t7469 - 0.1944e4 * t764 * t7441 - 0.216e3 * t764 * t7447 - t7482;
2601   t7484 = t7439 + t7483;
2602   t7501 = t154 * t7462;
2603   t7528 = 0.513e3 / 0.500e3 * t194 * t2957 * t1105 * t1139 - 0.9e1 / 0.25e2 * t194 * t2418 * t2943 - 0.27e2 / 0.25e2 * t440 * t2419 - 0.72e2 * t757 * t2985 - 0.27e2 / 0.25e2 * t408 * t2419 + 0.3e1 / 0.5e1 * t1099 * t1140 + 0.9720e4 * t7461 * t7501 * t7343 + 0.2e1 / 0.5e1 * t2828 * t469 + 0.171e3 / 0.250e3 * t440 * t2959 + 0.2e1 / 0.5e1 * t2896 * t469 + 0.1080e4 * t764 * t154 * t7343 * t20 - 0.6e1 * t255 * t256 * t7354 + 0.6e1 * t1046 * t1098 * t215 + 0.4e1 * t2397 * t439 * t215 - 0.144e3 * t3847 * t2362 - 0.3888e4 * t3896 * t7433;
2604   t7549 = t2554 * t35;
2605   t7552 = t2561 * t35;
2606   t7555 = t2551 * t35;
2607   t7560 = t41 * t4579;
2608   t7561 = t40 * t7560;
2609   t7566 = t52 * t54 / t11 / t4707;
2610   t7568 = 0.38902804850480109738e2 * t7561 + 0.11105172358741641742e2 * t7566;
2611   t7572 = t2548 * t35;
2612   t7577 = t792 * t792;
2613   t7581 = t819 * t819;
2614   t7583 = 0.1e1 / t115 / t7581;
2615   t7584 = t39 * t7583;
2616   t7585 = t822 * t822;
2617   t7589 = t306 * t2427;
2618   t7592 = -0.1568e4 / 0.675e3 * t1018 * t2634 - 0.1568e4 / 0.675e3 * t1012 * t2634 - 0.56e2 / 0.27e2 * t2640 * t1015 - 0.28e2 / 0.27e2 * t2637 * t1015 - 0.56e2 / 0.81e2 * t1012 * t2650 - 0.28e2 / 0.27e2 * t2653 * t1015 - 0.56e2 / 0.27e2 * t7549 * t349 - 0.56e2 / 0.81e2 * t7552 * t349 - 0.56e2 / 0.27e2 * t7555 * t349 - 0.56e2 / 0.81e2 * t1018 * t2650 - 0.14e2 / 0.81e2 * t345 * t348 * t7568 - 0.56e2 / 0.81e2 * t7572 * t349 + 0.196e3 / 0.135e3 * t2637 * t922 + 0.98e2 / 0.135e3 * t345 * t921 * t7577 + 0.6664e4 / 0.3375e4 * t345 * t7584 * t7585 - 0.264e3 / 0.125e3 * t7589 * t2429;
2619   t7594 = 0.1e1 / t89 / t7581;
2620   t7595 = t88 * t7594;
2621   t7625 = t2472 * t279;
2622   t7629 = t822 * t792;
2623   t7633 = t2 * t2147;
2624   t7656 = 0.1e1 / t63 / t7581;
2625   t7675 = 0.140e3 / 0.729e3 * t32 * t7633 * t64 + 0.28e2 / 0.1215e4 * t32 * t2441 * t280 + 0.11e2 / 0.675e3 * t32 * t812 * t823 - 0.2e1 / 0.135e3 * t32 * t812 * t827 + 0.77e2 / 0.4500e4 * t32 * t261 * t2456 - 0.11e2 / 0.450e3 * t1287 * t3310 * t2460 + t32 * t261 * t2473 / 0.135e3 + 0.2387e4 / 0.60000e5 * t32 * t34 * t7656 * t7585 - 0.77e2 / 0.1000e4 * t1287 * t3317 * t7629 + 0.11e2 / 0.600e3 * t32 * t34 * t821 * t7577 + 0.11e2 / 0.450e3 * t1287 * t1288 * t7625 - t32 * t34 * t266 * t7568 / 0.180e3;
2626   t7676 = my_piecewise3(t68, 0, t7675);
2627   t7692 = 0.1e1 / t127 / t93;
2628   t7693 = t838 * t838;
2629   t7697 = t832 * t832;
2630   t7714 = t867 * t7693 * t78;
2631   t7716 = t929 * t864;
2632   t7719 = t859 * t7697 * t78;
2633   t7724 = t859 * t2478 * t323;
2634   t7727 = t2578 * t7693 * t78;
2635   t7729 = t2512 * t838;
2636   t7731 = 0.15e2 * t7729 * t864;
2637   t7736 = t71 * t7676 * t78;
2638   t7738 = 0.1e1 / t127 / t75;
2639   t7740 = t7738 * t7693 * t78;
2640   t7742 = -0.4e1 * t295 * t7676 + t7692 * t7693 * t78 / 0.16e2 - 0.12e2 * t7697 * t79 - 0.16e2 * t1323 * t2478 + t867 * t2478 * t323 + 0.3e1 / 0.4e1 * t867 * t7697 * t78 + 0.3e1 / 0.4e1 * t2533 * t832 * t861 - 0.3e1 * t76 * t7697 * t78 - 0.75e2 / 0.2e1 * t7714 + 0.45e2 * t7716 - 0.6e1 * t7719 - 0.4e1 * t2530 * t381 - 0.8e1 * t7724 + 0.85e2 / 0.4e1 * t7727 - t7731 + t291 * t7676 * t78 / 0.2e1 - t7736 - 0.19e2 / 0.8e1 * t7740;
2641   t7747 = t902 * t7693;
2642   t7748 = t7747 * t78;
2643   t7750 = t940 * t864;
2644   t7754 = t285 * t2478;
2645   t7758 = t2512 * t7693 * t78;
2646   t7770 = 0.1e1 / t127 / t121;
2647   t7780 = 0.2e1 * t7676 * t82 + 0.12e2 * t832 * t957 + 0.2e1 * t69 * t7742 + 0.8e1 * t285 * t2611 + 0.24e2 * t7748 - 0.36e2 * t7750 + 0.6e1 * t932 * t7697 + 0.8e1 * t932 * t7754 - 0.24e2 * t7758 + 0.21e2 * t946 * t864 - 0.3e1 / 0.2e1 * t902 * t7697 * t78 - 0.2e1 * t1301 * t2530 - 0.3e1 / 0.2e1 * t3547 * t864 - t7770 * t7693 * t78 / 0.8e1 - t287 * t7676 + 0.15e2 / 0.4e1 * t2533 * t7693 * t78 + 0.8e1 * t2478 * t300;
2648   t7790 = 0.1056e4 / 0.625e3 * t7595 * t7585 + 0.18e2 / 0.25e2 * t1032 * t7577 + 0.17693494933333333333e0 * t807 * t2621 - 0.47182653155555555556e0 * t397 * t801 * t2620 + 0.58978316444444444444e-1 * t397 * t398 * t920 * t2472 * t279 - 0.21232193920000000000e0 * t397 * t398 * t2632 * t822 * t792 + 0.392e3 / 0.135e3 * t1018 * t2684 - 0.48056405991769547326e1 * t389 * t2815 + 0.392e3 / 0.135e3 * t1012 * t2684 + 0.15446701925925925926e1 * t916 * t798 - 0.28084912592592592593e0 * t2807 * t393 + 0.392e3 / 0.405e3 * t345 * t921 * t7625 - 0.784e3 / 0.225e3 * t345 * t2633 * t7629 + (-0.8e1 / 0.3e1 * t7676 * t85 - 0.32e2 / 0.3e1 * t2478 * t303 - 0.16e2 * t832 * t960 - 0.32e2 / 0.3e1 * t285 * t2614 - 0.8e1 / 0.3e1 * t69 * t7780) * t90 - 0.396e3 / 0.125e3 * t2428 * t7629 + 0.70e2 / 0.27e2 * t1008 * t971 * t117;
2649   t7800 = t69 * t2544;
2650   t7809 = 0.1536e4 * t7693;
2651   t7813 = t7697 * t78;
2652   t7816 = t7693 * t78;
2653   t7823 = t986 * t867;
2654   t7828 = t320 * t2533;
2655   t7831 = t95 * t7738;
2656   t7834 = t7676 * t78;
2657   t7837 = t95 * t7692;
2658   t7840 = t2492 * t291;
2659   t7843 = t320 * t902;
2660   t7846 = t95 * t2578;
2661   t7849 = t986 * t859;
2662   t7852 = t320 * t2512;
2663   t7855 = t7809 - 0.216e3 * t7697 + 0.120e3 * t7716 - 0.20e2 * t7724 - t7731 + 0.3e1 / 0.4e1 * t995 * t7813 - 0.30e2 * t995 * t7816 - 0.9e1 / 0.2e1 * t990 * t7813 + 0.3e1 * t2519 * t864 + 0.3e1 / 0.2e1 * t7823 * t861 + 0.2e1 * t988 * t2530 + t7828 * t2495 / 0.2e1 - 0.9e1 / 0.4e1 * t7831 * t7816 + t322 * t7834 / 0.2e1 + t7837 * t7816 / 0.16e2 + 0.2e1 * t7840 * t323 + 0.24e2 * t7843 * t2495 + 0.75e2 / 0.4e1 * t7846 * t7816 - 0.9e1 * t7849 * t861 - 0.9e1 * t7852 * t2495;
2664   t7856 = t121 * t7676;
2665   t7857 = 0.256e3 * t7856;
2666   t7858 = t69 * t7676;
2667   t7863 = t839 * t832;
2668   t7864 = 0.9216e4 * t7863;
2669   t7865 = t75 * t7697;
2670   t7866 = 0.2304e4 * t7865;
2671   t7867 = t354 * t2478;
2672   t7868 = 0.3072e4 * t7867;
2673   t7877 = t832 * t838;
2674   t7878 = t7877 * t78;
2675   t7881 = t323 * t2478;
2676   t7896 = t7857 - 0.72e2 * t7858 + (0.120e3 * t7697 + 0.160e3 * t7754 + 0.40e2 * t7858 - t7809 - t7864 - t7866 - t7868 - t7857) * t78 - 0.288e3 * t7754 + t7866 - 0.100e3 * t7714 - 0.15e2 * t7719 + 0.55e2 / 0.2e1 * t7727 - 0.10e2 * t7736 - 0.5e1 / 0.4e1 * t7740 + 0.3e1 / 0.4e1 * t2534 * t7878 - 0.6e1 * t990 * t7881 - 0.27e2 / 0.2e1 * t2527 * t7878 + 0.3e1 * t2524 * t2498 + t995 * t7881 + 0.36e2 * t2494 * t7878 - 0.18e2 * t2503 * t2498 + t7864 + t7868 + 0.10e2 * t70 * t7676 * t73;
2677   t7907 = t105 * t1799;
2678   t7908 = 0.11068327545679012346e2 * t7907;
2679   t7914 = t2617 * t309;
2680   t7917 = t963 * t1031;
2681   t7933 = t75 * t2798;
2682   t7950 = t69 * t890;
2683   t7961 = 0.720e3 * t70 * t7697 * t73 - 0.1440e4 * t71 * t7697 * t78 + 0.288e3 * t874 * t2478 + 0.3e1 * t2752 * t2498 + 0.432e3 * t2711 * t832 + 0.288e3 * t7933 * t285 - 0.2880e4 * t7816 * t291 + 0.72e2 * t367 * t7676 + 0.864e3 * t3730 * t832 + 0.432e3 * t871 * t7697 + 0.864e3 * t7950 * t838 + 0.2640e4 * t7748 - 0.2160e4 * t7750 - 0.240e3 * t7758;
2684   t8003 = 0.30720e5 * t123 * t7676 + 0.614400e6 * t356 * t2478 + 0.1843200e7 * t75 * t7693 + 0.460800e6 * t93 * t7697 + 0.3686400e7 * t843 * t832 - 0.34560e5 * t7693 + 0.1344e4 * t7697 + 0.1792e4 * t7754 - 0.5760e4 * t7856 + 0.448e3 * t7858 - 0.207360e6 * t7863 - 0.51840e5 * t7865 - 0.69120e5 * t7867;
2685   t8045 = -0.371589120e9 * t134 * t838 * t832 + 0.3233160e7 * t121 * t7693 - 0.34560e5 * t121 * t7697 - 0.371589120e9 * t123 * t7693 + 0.484974e6 * t123 * t7697 - 0.26542080e8 * t125 * t7697 - 0.1105920e7 * t127 * t7676 + 0.26943e5 * t134 * t7676 - 0.35389440e8 * t2778 * t2478 + 0.6144e4 * t316 * t2478 - 0.46080e5 * t318 * t2478 + 0.646632e6 * t372 * t2478 - 0.69120e5 * t69 * t7693 + 0.4608e4 * t69 * t7697 + 0.768e3 * t75 * t7676 - 0.2880e4 * t93 * t7676 - 0.207360e6 * t882 * t832 + 0.4849740e7 * t886 * t832 - 0.8e1 * t7676 + 0.9216e4 * t7877;
2686   t8049 = -0.3e1 * t2741 * t7878 - 0.72e2 * t380 * t940 * t832 + 0.16e2 * t380 * t292 * t2478 - 0.4e1 * t903 * t7881 - 0.6e1 * t860 * t7881 + 0.36e2 * t2720 * t7878 - 0.18e2 * t2723 * t2498 + t868 * t7881 + 0.3e1 / 0.4e1 * t2729 * t7878 - 0.27e2 / 0.2e1 * t2755 * t7878 + 0.42e2 * t2717 * t7878 + 0.24e2 * t121 * t8003 + t8045 * t78 + 0.576e3 * t2485 * t374;
2687   t8056 = t855 * t867;
2688   t8063 = t362 * t2533;
2689   t8066 = t130 * t7692;
2690   t8076 = t140 * t7770;
2691   t8081 = t140 * t2512;
2692   t8084 = t140 * t2533;
2693   t8087 = -0.2e1 * t380 * t76 * t7676 + 0.3e1 * t2747 * t864 + 0.3e1 / 0.2e1 * t8056 * t861 + 0.2e1 * t857 * t2530 + t364 * t7834 / 0.2e1 + t8063 * t2495 / 0.2e1 + t8066 * t7816 / 0.16e2 + 0.960e3 * t327 * t2736 + 0.240e3 * t98 * t7676 * t73 - 0.1920e4 * t2509 * t323 - t8076 * t7816 / 0.4e1 + 0.4320e4 * t861 * t908 - 0.48e2 * t8081 * t7816 + 0.15e2 / 0.2e1 * t8084 * t7816;
2694   t8088 = t362 * t902;
2695   t8091 = t130 * t2578;
2696   t8094 = t855 * t859;
2697   t8097 = t362 * t2512;
2698   t8100 = t2783 * t291;
2699   t8114 = t130 * t7738;
2700   t8123 = 0.24e2 * t8088 * t2495 + 0.75e2 / 0.4e1 * t8091 * t7816 - 0.9e1 * t8094 * t861 - 0.9e1 * t8097 * t2495 + 0.2e1 * t8100 * t323 + 0.1728e4 * t2708 * t2481 + 0.576e3 * t871 * t7754 + 0.48e2 * t380 * t7747 + 0.12e2 * t380 * t291 * t7697 - 0.3e1 * t903 * t7813 - 0.9e1 / 0.4e1 * t8114 * t7816 - 0.30e2 * t868 * t7816 - 0.9e1 / 0.2e1 * t860 * t7813 + 0.3e1 / 0.4e1 * t868 * t7813;
2701   t8153 = 0.35e2 / 0.81e2 * (0.144e3 * t7697 * t101 + 0.576e3 * t3298 * t832 + 0.192e3 * t1343 * t2478 + 0.288e3 * t838 * t1005 + 0.192e3 * t7800 * t285 + 0.288e3 * t2436 * t832 + 0.192e3 * t977 * t2478 + 0.48e2 * t313 * t7676 + 0.24e2 * t75 * (t7855 + t7896)) * t113 * t117 + 0.140e3 / 0.81e2 * t334 * t2560 * t117 + 0.35e2 / 0.81e2 * t104 * (-t7908 + 0.10936459918683127572e2 * t7560) * t117 - 0.4e1 / 0.5e1 * t7914 * t279 + 0.36e2 / 0.25e2 * t7917 * t822 + 0.68079908488340192042e1 * t149 * t41 * t4579 * t116 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t7676 * t144 + 0.32e2 / 0.7e1 * t2478 * t384 + 0.48e2 / 0.7e1 * t832 * t911 + 0.32e2 / 0.7e1 * t285 * t2802 + 0.8e1 / 0.7e1 * t69 * (t7961 + t8049 + t8087 + t8123)) * t35 * t39 * t151 + 0.140e3 / 0.81e2 * t2547 * t341 * t117 - 0.6e1 / 0.5e1 * t2564 * t792 - 0.4e1 / 0.5e1 * t1023 * t2472 - t310 * t7568 / 0.5e1 + 0.196e3 / 0.135e3 * t2653 * t922 + 0.392e3 / 0.135e3 * t2640 * t922 + 0.72e2 / 0.25e2 * t2422 * t2460 + 0.24e2 / 0.25e2 * t1032 * t7625 + 0.37746122524444444445e0 * t397 * t801 * t2660;
2702   t8170 = t2806 * t396;
2703   t8194 = t10 * t1799;
2704   t8198 = 0.12031576554666666666e0 * t397 * t398 * t7583 * t7585 - 0.10531842222222222222e-1 * t397 * t398 * t347 * t7568 - 0.42127368888888888888e-1 * t807 * t2679 + 0.33701895111111111111e0 * t2628 * t802 + 0.88467474666666666665e-1 * t2628 * t1027 - 0.63191053333333333332e-1 * t2628 * t794 - 0.42127368888888888888e-1 * t8170 * t400 + 0.86501530785185185186e0 * t397 * t2672 * t1026 - 0.61786807703703703704e0 * t397 * t2672 * t793 + 0.44233737333333333333e-1 * t397 * t398 * t920 * t7577 - 0.47182653155555555555e0 * t807 * t2666 - 0.12357361540740740741e1 * t807 * t2673 - 0.14154795946666666667e0 * t807 * t2661 + 0.33701895111111111111e0 * t807 * t2669 + 0.11233965037037037037e0 * t397 * t801 * t2678 + 0.19222562396707818930e1 * t397 * t8194 * t399;
2705   t8235 = (0.6160e4 / 0.81e2 * t7907 - 0.2618e4 / 0.81e2 * t7560) * t35 * t39 / 0.4e1 + 0.5236e4 / 0.729e3 * t7561;
2706   t8252 = t1121 * t1121;
2707   t8260 = -0.584e3 / 0.135e3 * t457 * t2358 * t211 + 0.1168e4 / 0.45e2 * t2929 * t245 + 0.584e3 / 0.135e3 * t460 * t2358 - 0.146e3 / 0.135e3 * t207 * t7354 * t211 + 0.1168e4 / 0.135e3 * t2936 * t245 + 0.292e3 / 0.45e2 * t207 * t7376 + 0.146e3 / 0.135e3 * t210 * t7354 - 0.146e3 / 0.135e3 * t8235 * t19 * t211 - 0.584e3 / 0.135e3 * t2918 * t245 * t211 + 0.584e3 / 0.135e3 * t2921 * t245 - 0.292e3 / 0.45e2 * t1121 * t747 * t211 + 0.292e3 / 0.45e2 * t1124 * t747 + 0.761750e6 / 0.177147e6 * t7566 + 0.26180e5 / 0.243e3 * t198 * t7560 + 0.584e3 / 0.135e3 * t8252 + 0.2336e4 / 0.405e3 * t457 * t2918 + 0.584e3 / 0.405e3 * t207 * t8235 + 0.584e3 / 0.45e2 * t1121 * t741;
2708   t8266 = t1035 * t19;
2709   t8280 = -0.144e3 * t3888 * t2362 + 0.6e1 / 0.5e1 * t1049 * t1140 + 0.648e3 * t3883 * t2388 + 0.4e1 * t251 * t2819 + t27 * (t7592 + t7790 + t8153 + t8198) + 0.6e1 / 0.5e1 * t2823 * t469 + 0.171e3 / 0.250e3 * t408 * t2959 + 0.6e1 / 0.5e1 * t2830 * t469 - 0.27e2 / 0.25e2 * t1049 * t1106 - 0.27e2 / 0.50e2 * t1099 * t1106 + t194 * t446 * t8260 / 0.10e2 + 0.4e1 * t2367 * t403 - 0.72e2 * t255 * t8266 * t741 - 0.72e2 * t255 * t3833 * t747 - 0.36e2 * t255 * t2984 * t747 - 0.144e3 * t757 * t2996 - 0.72e2 * t757 * t2988;
2710   t8282 = t403 * t21;
2711   t8304 = t2819 * t20;
2712   t8310 = t403 * t2380;
2713   t8324 = 0.1296e4 * t764 * t8282 * t2335 - 0.36e2 * t255 * t774 * t7376 - 0.24e2 * t255 * t770 * t2358 + 0.162e3 * t764 * t766 * t7376 + 0.6e1 * t755 * t1035 + t7482 * t154 - 0.48e2 * t1233 * t7409 + 0.216e3 * t1225 * t7447 - 0.27e2 / 0.50e2 * t1047 * t1106 - 0.24e2 * t255 * t8304 * t245 - 0.24e2 * t757 * t2999 - 0.2592e4 * t2379 * t8310 * t2335 - 0.72e2 * t2347 * t771 - 0.48e2 * t757 * t2833 - 0.2592e4 * t7333 * t2992 + 0.1296e4 * t2370 * t2967 - 0.36e2 * t2347 * t778;
2714   t8329 = 0.1e1 / t445 / t2955 / t214;
2715   t8330 = t1105 * t1105;
2716   t8341 = t1139 * t1139;
2717   t8349 = t1035 * t765;
2718   t8405 = t1078 * t1078;
2719   t8438 = t154 * t7383;
2720   t8442 = -0.72e2 * t2347 * t775 - 0.4959e4 / 0.10000e5 * t194 * t8329 * t8330 + 0.1944e4 * t1225 * t7441 + 0.648e3 * t3891 * t2388 - 0.48e2 * t255 * t403 * t2335 - 0.27e2 / 0.100e3 * t194 * t1104 * t8341 + 0.3e1 / 0.5e1 * t1047 * t1140 + 0.648e3 * t2370 * t2981 + 0.324e3 * t764 * t8349 * t741 + 0.324e3 * t7360 * t767 - 0.24e2 * t7412 * t257 + 0.4e1 * t407 * t2895 * t215 + t156 * (-0.1120e4 / 0.2187e4 * t32 * t7633 * t189 + 0.448e3 / 0.729e3 * t32 * t2441 * t435 - 0.32e2 / 0.81e2 * t32 * t812 * t1094 + 0.16e2 / 0.81e2 * t32 * t261 * t2891 - 0.4e1 / 0.27e2 * t32 * t34 * (-0.160e3 / 0.27e2 * t1062 * t2880 - 0.8e1 / 0.9e1 * t2849 * t811 * t2852 - 0.16e2 / 0.27e2 * t36 / t1078 / t1060 * t107 * t1077 * t160 * t176 - 0.160e3 / 0.243e3 * t414 * t161 * t269 + 0.280e3 / 0.729e3 * t32 * t7633 * t185 - 0.112e3 / 0.243e3 * t32 * t2441 * t431 + 0.8e1 / 0.27e2 * t32 * t812 * t1090 - 0.4e1 / 0.27e2 * t32 * t261 * t2887 + t32 * t34 * (0.20e2 / 0.81e2 * t1080 * t1084 * t176 + 0.40e2 / 0.9e1 * t2873 * t1088 + 0.16e2 / 0.27e2 * t2870 / t8405 * t260 * t2852 - 0.440e3 / 0.729e3 * t178 * t160 * t782 * t181 - 0.440e3 / 0.81e2 * t2354 * t176 - 0.50e2 / 0.81e2 * t2268 * t29 * t168 * t2884) / 0.9e1)) * t215 + t7484 * t193 * t215 + 0.2e1 / 0.5e1 * t440 * t2944 + 0.2e1 / 0.5e1 * t408 * t2944 - 0.7776e4 * t2379 * t8438 * t7343;
2721   t8446 = t229 * t7462;
2722   t8450 = t493 * t2380;
2723   t8459 = t407 * t2957;
2724   t8462 = t2397 * t446;
2725   t8465 = t1046 * t1104;
2726   t8470 = 0.648e3 * t3080 * t2388 - 0.48e2 * t1569 * t7409 + t7484 * t215 - p->cam_beta * (t7528 + t8280 + t8324 + t8442) + 0.9720e4 * t7461 * t8446 * t7343 - 0.2592e4 * t2379 * t8450 * t2335 + 0.6e1 * t755 * t1186 + t7482 * t229 + 0.4e1 * t2367 * t493 + 0.171e3 / 0.250e3 * t8459 * t2958 + 0.2e1 / 0.5e1 * t8462 * t468 - 0.27e2 / 0.50e2 * t8465 * t1105 + 0.216e3 * t1563 * t7447;
2727   t8485 = t156 * t8329;
2728   t8499 = t3025 * t347;
2729   t8519 = t1175 * t920;
2730   t8522 = t487 * t2632;
2731   t8527 = t226 * t7583;
2732   t8536 = 0.1056e4 / 0.625e3 * t7594 * t7585 - 0.396e3 / 0.125e3 * t2427 * t822 * t792 + 0.18e2 / 0.25e2 * t1031 * t7577 + 0.24e2 / 0.25e2 * t3014 * t2472 - 0.56e2 / 0.45e2 * t8499 * t279 - 0.28e2 / 0.15e2 * t3028 * t792 - 0.56e2 / 0.45e2 * t1178 * t2472 - 0.14e2 / 0.45e2 * t490 * t7568 - t309 * t7568 / 0.5e1 + 0.7e1 / 0.9e1 * (0.16533692061454046639e2 * t7561 - 0.5e1 / 0.9e1 * (t7908 + 0.30685498274897119342e1 * t7560) * t35 * t39) * t116 + 0.196e3 / 0.75e2 * t8519 * t822 - 0.1568e4 / 0.375e3 * t8522 * t2429 + 0.392e3 / 0.75e2 * t3031 * t2460 + 0.6664e4 / 0.1875e4 * t8527 * t7585 - 0.784e3 / 0.125e3 * t3036 * t7629 + 0.98e2 / 0.75e2 * t1181 * t7577 + 0.392e3 / 0.225e3 * t1181 * t7625;
2733   t8540 = t3043 * t20;
2734   t8548 = -0.144e3 * t3074 * t2362 + 0.648e3 * t3077 * t2388 + t496 * t8260 / 0.10e2 + 0.2e1 / 0.5e1 * t1189 * t2943 - 0.3888e4 * t3150 * t7433 - 0.27e2 / 0.100e3 * t1192 * t8341 + 0.3e1 / 0.5e1 * t3009 * t1139 - 0.4959e4 / 0.10000e5 * t8485 * t8330 + 0.4e1 * t251 * t3043 + t27 * t8536 + 0.1944e4 * t1563 * t7441 - 0.24e2 * t255 * t8540 * t245 - 0.24e2 * t7412 * t476 - 0.72e2 * t2347 * t1155;
2735   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2736     v4rho4[0] = -0.5e1 / 0.54e2 * t8 * t398 * t232 + 0.2e1 / 0.9e1 * t8 * t703 * t499 - t8 * t734 * t1197 / 0.2e1 - t8 * t12 * t3064 - 0.3e1 / 0.16e2 * t239 * t240 * (t7363 + t7405 + t8470 + t8548);
2737 
2738   t8555 = t107 * t2 * t4;
2739   t8570 = my_piecewise3(t18, -0.3e1 / 0.4e1 * t2354 * t15, 0);
2740   t8573 = t1205 * t747;
2741   t8575 = t741 * t1209;
2742   t8577 = t3132 * t245;
2743   t8579 = t1210 * t747;
2744   t8581 = t506 * t2358;
2745   t8583 = t20 * t8570;
2746   t8586 = (0.6e1 * t747 * t1209 + 0.2e1 * t19 * t8570 + 0.2e1 * t2358 * t505 + 0.6e1 * t245 * t3131 + 0.54e2 * t8573 + 0.54e2 * t8575 + 0.54e2 * t8577 + 0.54e2 * t8579 + 0.18e2 * t8581 + 0.9e1 * t8583) * t26;
2747   t8588 = t2380 * t1209 * t741;
2748   t8592 = t7462 * t505 * t2335;
2749   t8596 = t21 * t1209 * t741;
2750   t8600 = t765 * t3131 * t245;
2751   t8603 = t3083 * t747;
2752   t8606 = t1226 * t2358;
2753   t8633 = 0.36e2 * t2347 * t1212 + 0.36e2 * t1219 * t2362 - 0.162e3 * t7360 * t1227 - 0.324e3 * t2370 * t3084 - 0.162e3 * t2370 * t3145 + 0.1944e4 * t2379 * t8588 - 0.162e3 * t3109 * t2388 + 0.36e2 * t255 * t8573 + 0.36e2 * t255 * t8577 + 0.36e2 * t255 * t8579 + 0.12e2 * t255 * t8581 + 0.72e2 * t757 * t3091 + 0.1944e4 * t7333 * t3152 - 0.9720e4 * t7461 * t8592 - 0.972e3 * t764 * t8596 - 0.162e3 * t764 * t8600 - 0.162e3 * t764 * t8603 - 0.54e2 * t764 * t8606 - t8586;
2754   t8639 = t7383 * t505 * t2335;
2755   t8642 = t508 * t2335;
2756   t8647 = t3140 * t254;
2757   t8652 = t1216 * t763;
2758   t8655 = t510 * t2378;
2759   t8680 = 0.36e2 * t757 * t3094 - 0.972e3 * t2370 * t3088 + 0.7776e4 * t2379 * t8639 - 0.1080e4 * t764 * t8642 + 0.12e2 * t1219 * t2335 + 0.18e2 * t8647 * t248 + 0.18e2 * t3101 * t752 - 0.162e3 * t8652 * t1039 + 0.648e3 * t8655 * t2381 + 0.6e1 * t1219 * t2364 + 0.6e1 * t7412 * t508 + 0.18e2 * t2347 * t1214 + 0.18e2 * t757 * t3138 + 0.36e2 * t255 * t8575 + 0.6e1 * t255 * t8583 + 0.36e2 * t3101 * t750 - 0.324e3 * t3109 * t2384 + 0.36e2 * t757 * t3134 + 0.1944e4 * t5451 * t8573 - 0.972e3 * t5454 * t8573;
2760   t8681 = t8633 + t8680;
2761   t8683 = t2370 * t493;
2762   t8690 = t764 * t1186;
2763   t8713 = t8681 * t215 + 0.324e3 * t8683 * t1227 - 0.72e2 * t3074 * t3091 + 0.324e3 * t3077 * t3084 + 0.162e3 * t8690 * t1227 - 0.72e2 * t3155 * t3091 - 0.27e2 / 0.100e3 * t1192 * t3213 * t468 + 0.513e3 / 0.1000e4 * t3053 * t1551 * t1105 - 0.27e2 / 0.100e3 * t1192 * t1551 * t1139 - 0.9e1 / 0.100e3 * t1192 * t648 * t2943 + 0.513e3 / 0.1000e4 * t8459 * t3961 - 0.27e2 / 0.100e3 * t3050 * t3117 - 0.27e2 / 0.50e2 * t3050 * t3114;
2764   t8722 = t7461 * t229;
2765   t8731 = t7333 * t229;
2766   t8736 = t2379 * t493;
2767   t8741 = t255 * t1186;
2768   t8744 = -0.7776e4 * t3150 * t8639 - 0.36e2 * t1569 * t8573 - 0.36e2 * t1569 * t8579 - 0.36e2 * t3074 * t3094 + 0.9720e4 * t8722 * t8592 - 0.36e2 * t4437 * t2362 + 0.162e3 * t4440 * t2388 - 0.27e2 / 0.100e3 * t3906 * t2329 - 0.1944e4 * t8731 * t3152 + 0.162e3 * t3080 * t3145 - 0.1944e4 * t8736 * t3152 + 0.162e3 * t1563 * t8603 - 0.36e2 * t8741 * t1212;
2769   t8746 = t1597 * t19;
2770   t8764 = t493 * t741;
2771   t8768 = t664 * t21;
2772   t8780 = -0.36e2 * t255 * t8746 * t741 - 0.27e2 / 0.100e3 * t8465 * t1605 - 0.4959e4 / 0.10000e5 * t8485 * t648 * t2958 + 0.324e3 * t3080 * t3084 + 0.1080e4 * t1563 * t8642 - 0.36e2 * t255 * t3957 * t1209 - 0.36e2 * t757 * t3958 - 0.36e2 * t255 * t8764 * t505 + 0.324e3 * t764 * t8768 * t2335 - 0.36e2 * t3101 * t1159 - 0.36e2 * t1219 * t2340 + 0.324e3 * t3109 * t2336 - 0.36e2 * t3155 * t3094;
2773   t8802 = t3087 * t2352;
2774   t8805 = t3151 * t2352;
2775   t8810 = -0.12e2 * t255 * t664 * t2335 - 0.12e2 * t1219 * t3056 + 0.972e3 * t1563 * t8596 + 0.162e3 * t1563 * t8600 + 0.54e2 * t1563 * t8606 + 0.972e3 * t1563 * t8802 - 0.36e2 * t1569 * t8577 - 0.12e2 * t1569 * t8581 + 0.162e3 * t4423 * t2388 + 0.972e3 * t3077 * t3088 + 0.972e3 * t3080 * t3088 - 0.1944e4 * t3150 * t8588 - 0.1944e4 * t3150 * t8805;
2776   t8813 = t2347 * t229;
2777   t8816 = t7360 * t229;
2778   t8841 = 0.162e3 * t8652 * t1151 - 0.36e2 * t3101 * t1155 - 0.18e2 * t3101 * t1162 - 0.36e2 * t8813 * t1212 - 0.18e2 * t1219 * t2344 - 0.18e2 * t1219 * t2415 + 0.162e3 * t8816 * t1227 + 0.162e3 * t3109 * t2407 - 0.648e3 * t8655 * t2411 - 0.18e2 * t757 * t3975 - 0.36e2 * t757 * t3978 - 0.18e2 * t8647 * t476 - 0.6e1 * t7412 * t655;
2779   t8862 = t403 * t741;
2780   t8893 = -0.18e2 * t757 * t3842 - 0.36e2 * t255 * t8862 * t505 + 0.3e1 / 0.10e2 * t1047 * t1552 + 0.3e1 / 0.10e2 * t2823 * t649 + 0.3e1 / 0.10e2 * t2830 * t649 - 0.12e2 * t1219 * t2833 - 0.36e2 * t3101 * t775 + 0.324e3 * t3109 * t2967 + 0.162e3 * t5111 * t2388 - 0.36e2 * t5057 * t2362 - 0.18e2 * t8647 * t257 - 0.36e2 * t3101 * t771 + 0.3e1 * t3141 * t403 - 0.36e2 * t757 * t3860 - 0.6e1 * t255 * t8304 * t505;
2781   t8919 = t1262 * t792;
2782   t8922 = t522 * t2472;
2783   t8929 = t3333 * t279;
2784   t8938 = t8194 * t116;
2785   t8943 = 0.98e2 / 0.135e3 * t1266 * t2684 + 0.84254737777777777777e-1 * t149 * t2669 + 0.44233737333333333333e-1 * t389 * t1027 - 0.11795663288888888889e0 * t149 * t2666 + 0.18e2 / 0.25e2 * t3501 * t2460 + 0.18e2 / 0.25e2 * t2422 * t3326 + 0.18e2 / 0.25e2 * t1032 * t8919 + 0.6e1 / 0.25e2 * t1032 * t8922 + 0.18e2 / 0.25e2 * t7917 * t1252 + 0.36e2 / 0.25e2 * t2422 * t3322 + 0.18e2 / 0.25e2 * t1032 * t8929 - 0.83393485218716659047e0 * t572 * t1799 * t117 - 0.14620935720164609054e0 * t3514 * t269 * t117 - 0.12014101497942386831e1 * t149 * t8938 + 0.88467474666666666666e-1 * t807 * t3442;
2786   t8970 = t3429 * t35;
2787   t8994 = 0.44233737333333333333e-1 * t2628 * t1246 - 0.10616096960000000000e0 * t807 * t3465 - 0.10616096960000000000e0 * t397 * t398 * t2632 * t1262 * t822 + 0.14744579111111111111e-1 * t397 * t398 * t1244 * t2472 + 0.43250765392592592593e0 * t397 * t2672 * t1245 - 0.11795663288888888889e0 * t397 * t801 * t3472 + 0.44233737333333333333e-1 * t397 * t398 * t920 * t3333 * t279 + 0.44233737333333333333e-1 * t1395 * t2621 - 0.14e2 / 0.27e2 * t8970 * t349 + 0.77233509629629629632e0 * t389 * t3810 - 0.23591326577777777778e0 * t397 * t801 * t3441 + 0.44233737333333333333e-1 * t397 * t398 * t3440 * t792 + 0.44233737333333333333e-1 * t807 * t3473 - 0.23591326577777777778e0 * t807 * t3468 + 0.28309591893333333333e0 * t397 * t801 * t3464 + 0.12031576554666666666e0 * t397 * t398 * t7583 * t522 * t2429;
2788   t8996 = t3435 * t35;
2789   t9026 = t69 * t3425;
2790   t9038 = t52 * t518 * t2468;
2791   t9040 = -0.68652008559670781891e1 * t40 * t8194 - 0.26652413660979940181e1 * t9038;
2792   t9045 = t1262 * t822;
2793   t9071 = t33 * t7656;
2794   t9072 = t522 * t2429;
2795   t9076 = t1252 * t792;
2796   t9080 = t260 * t2455;
2797   t9084 = -t32 * t812 * t1292 / 0.135e3 + t32 * t261 * t3334 / 0.180e3 - t32 * t34 * t266 * t9040 / 0.180e3 - 0.77e2 / 0.2000e4 * t1287 * t3317 * t9045 + 0.11e2 / 0.600e3 * t1287 * t1288 * t8929 + 0.11e2 / 0.600e3 * t1287 * t1288 * t8919 + 0.11e2 / 0.1800e4 * t1287 * t1288 * t8922 + 0.7e1 / 0.1215e4 * t32 * t2441 * t523 + 0.11e2 / 0.1350e4 * t1287 * t811 * t821 * t1252 - 0.11e2 / 0.900e3 * t1287 * t3310 * t3322 - 0.11e2 / 0.1800e4 * t1287 * t3310 * t3326 + 0.2387e4 / 0.60000e5 * t1287 * t9071 * t9072 - 0.77e2 / 0.2000e4 * t1287 * t3317 * t9076 + 0.77e2 / 0.6000e4 * t1287 * t9080 * t3318;
2798   t9085 = my_piecewise3(t68, 0, t9084);
2799   t9094 = t2534 * t527;
2800   t9097 = t2527 * t527;
2801   t9100 = t2494 * t527;
2802   t9105 = t1297 * t838;
2803   t9106 = t9105 * t78;
2804   t9111 = t3339 * t285;
2805   t9112 = t9111 * t78;
2806   t9115 = t1297 * t832;
2807   t9116 = t9115 * t78;
2808   t9119 = t527 * t2485;
2809   t9120 = t9119 * t78;
2810   t9135 = 0.3e1 / 0.8e1 * t9094 * t2498 - 0.27e2 / 0.4e1 * t9097 * t2498 + 0.18e2 * t9100 * t2498 - 0.9e1 / 0.2e1 * t7849 * t1367 - 0.27e2 / 0.4e1 * t2527 * t9106 + 0.3e1 / 0.2e1 * t2524 * t3356 + 0.3e1 / 0.4e1 * t995 * t9112 + 0.3e1 / 0.4e1 * t995 * t9116 - 0.9e1 / 0.4e1 * t7831 * t9120 + 0.75e2 / 0.4e1 * t7846 * t9120 + 0.3e1 / 0.8e1 * t7828 * t3350 + 0.3e1 / 0.8e1 * t2534 * t9106 + t7837 * t9120 / 0.16e2 - 0.27e2 / 0.4e1 * t7852 * t3350 + 0.3e1 / 0.4e1 * t3385 * t2498;
2811   t9140 = t3398 * t2498;
2812   t9143 = 0.15e2 / 0.2e1 * t3378 * t2498;
2813   t9148 = t557 * t2478;
2814   t9165 = t3416 * t291;
2815   t9170 = 0.18e2 * t7843 * t3350 + 0.18e2 * t2494 * t9106 + 0.60e2 * t9140 - t9143 - 0.9e1 / 0.2e1 * t3373 * t2498 - 0.9e1 / 0.2e1 * t990 * t9116 - 0.3e1 / 0.2e1 * t990 * t9148 - 0.9e1 / 0.2e1 * t990 * t9112 - 0.30e2 * t995 * t9120 - 0.9e1 * t2503 * t3356 - 0.9e1 / 0.2e1 * t2503 * t3360 + 0.3e1 / 0.4e1 * t7823 * t1367 + 0.3e1 / 0.4e1 * t2524 * t3360 + t995 * t9148 / 0.4e1 + 0.3e1 / 0.2e1 * t9165 * t323 + 0.3e1 / 0.2e1 * t3381 * t864;
2816   t9172 = t1360 * t867;
2817   t9176 = t859 * t3339 * t323;
2818   t9178 = t1409 * t832;
2819   t9179 = 0.2304e4 * t9178;
2820   t9180 = t581 * t2478;
2821   t9181 = 0.768e3 * t9180;
2822   t9182 = t3650 * t285;
2823   t9183 = 0.2304e4 * t9182;
2824   t9184 = t1354 * t838;
2825   t9185 = 0.4608e4 * t9184;
2826   t9186 = t902 * t1297;
2827   t9187 = t9186 * t861;
2828   t9189 = t1320 * t2495;
2829   t9191 = t2578 * t527;
2830   t9192 = t9191 * t2495;
2831   t9194 = t555 * t902;
2832   t9199 = t555 * t2533;
2833   t9208 = t9085 * t78;
2834   t9211 = 0.3e1 / 0.4e1 * t9172 * t861 - 0.15e2 * t9176 + t9179 + t9181 + t9183 + t9185 + 0.60e2 * t9187 - 0.100e3 * t9189 + 0.55e2 / 0.2e1 * t9192 + 0.6e1 * t9194 * t2495 + t1362 * t2530 / 0.2e1 + t9199 * t2495 / 0.8e1 + t7840 * t557 / 0.2e1 + 0.3e1 / 0.2e1 * t2519 * t1370 + 0.3e1 / 0.2e1 * t988 * t3392 + t322 * t9208 / 0.2e1;
2835   t9212 = t1360 * t859;
2836   t9215 = t555 * t2512;
2837   t9218 = t3395 * t864;
2838   t9220 = t1314 * t2530;
2839   t9224 = 0.15e2 / 0.2e1 * t2512 * t1297 * t861;
2840   t9226 = t7738 * t527 * t2495;
2841   t9228 = 0.1536e4 * t9119;
2842   t9229 = t69 * t9085;
2843   t9233 = t2478 * t527;
2844   t9235 = t121 * t9085;
2845   t9236 = 0.256e3 * t9235;
2846   t9241 = t71 * t9085 * t78;
2847   t9247 = t551 * t2481;
2848   t9248 = 0.4608e4 * t9247;
2849   t9249 = 0.40e2 * t9233 + 0.120e3 * t9115 + 0.120e3 * t9111 + 0.40e2 * t9229 - t9228 - t9185 - t9248 - t9183 - t9179 - t9181 - t9236;
2850   t9251 = -0.9e1 / 0.2e1 * t9212 * t861 - 0.9e1 / 0.4e1 * t9215 * t2495 - 0.15e2 * t9218 - 0.5e1 * t9220 - t9224 - 0.5e1 / 0.4e1 * t9226 + t9228 - 0.72e2 * t9229 - 0.216e3 * t9115 - 0.216e3 * t9111 - 0.72e2 * t9233 + t9236 + 0.10e2 * t70 * t9085 * t73 - 0.10e2 * t9241 + t9249 * t78 + t9248;
2851   t9256 = 0.48e2 * t7800 * t527 + 0.288e3 * t3298 * t1297 + 0.144e3 * t1343 * t3339 + 0.144e3 * t285 * t1005 * t527 + 0.48e2 * t2478 * t101 * t527 + 0.144e3 * t832 * t331 * t527 + 0.144e3 * t3295 * t1297 + 0.144e3 * t838 * t1382 + 0.48e2 * t1350 * t2478 + 0.144e3 * t3344 * t832 + 0.144e3 * t9026 * t285 + 0.48e2 * t313 * t9085 + 0.144e3 * t4558 * t832 + 0.144e3 * t977 * t3339 + 0.144e3 * t2436 * t1297 + 0.24e2 * t75 * (t9135 + t9170 + t9211 + t9251);
2852   t9264 = t148 * t396 * t10;
2853   t9265 = t45 * t2632;
2854   t9289 = -0.14e2 / 0.27e2 * t8996 * t349 - 0.392e3 / 0.675e3 * t1266 * t2634 - 0.21063684444444444445e0 * t916 * t1280 + 0.35e2 / 0.81e2 * t9256 * t113 * t117 + 0.35e2 / 0.81e2 * t568 * t2560 * t117 - 0.10616096960000000000e0 * t9264 * t9265 * t9076 - 0.392e3 / 0.225e3 * t1018 * t3612 + 0.77233509629629629632e0 * t1476 * t798 - 0.30893403851851851852e0 * t149 * t2673 + 0.16850947555555555556e0 * t389 * t802 + 0.98e2 / 0.135e3 * t2653 * t1400 + 0.196e3 / 0.135e3 * t1012 * t3628 + 0.98e2 / 0.135e3 * t2637 * t1400 - 0.21931403580246913581e-1 * t3515 * t1481 + 0.11696748576131687243e0 * t3521 * t1481 + 0.98e2 / 0.135e3 * t1012 * t3631;
2855   t9312 = t2540 * t3360;
2856   t9338 = 0.3e1 / 0.8e1 * t3579 * t2498 + t291 * t9085 * t78 / 0.2e1 - 0.4e1 * t2478 * t79 * t527 - 0.12e2 * t3582 * t1297 - 0.12e2 * t1323 * t3339 - 0.4e1 * t295 * t9085 + 0.45e2 / 0.2e1 * t9140 - t9143 - t2744 * t557 - 0.3e1 * t908 * t1370 - 0.3e1 * t3392 * t381 + 0.3e1 / 0.4e1 * t867 * t3339 * t323;
2857   t9356 = 0.3e1 / 0.4e1 * t3574 * t864 + 0.3e1 / 0.8e1 * t2533 * t1297 * t861 + t1320 * t2530 / 0.4e1 + t7692 * t527 * t2495 / 0.16e2 - 0.6e1 * t9176 + 0.45e2 / 0.2e1 * t9187 - 0.75e2 / 0.2e1 * t9189 + 0.85e2 / 0.4e1 * t9192 - 0.6e1 * t9218 - 0.2e1 * t9220 - t9224 - 0.19e2 / 0.8e1 * t9226 - t9241;
2858   t9374 = -0.3e1 / 0.4e1 * t2578 * t832 * t1367 + 0.21e2 / 0.2e1 * t867 * t285 * t3360 - 0.18e2 * t9312 - t287 * t9085 + 0.2e1 * t69 * (t9338 + t9356) + 0.6e1 * t285 * t3592 + 0.6e1 * t832 * t1331 + 0.2e1 * t2478 * t539 + 0.2e1 * t527 * t2611 + 0.6e1 * t1297 * t957 + 0.6e1 * t3339 * t300 + 0.2e1 * t9085 * t82;
2859   t9397 = t940 * t1370;
2860   t9399 = t2513 * t557;
2861   t9401 = t2537 * t557;
2862   t9403 = 0.21e2 / 0.2e1 * t946 * t1370 + 0.15e2 / 0.4e1 * t2602 * t557 - t902 * t2478 * t557 / 0.2e1 - 0.3e1 / 0.2e1 * t3544 * t1370 - 0.3e1 / 0.4e1 * t3547 * t1370 - t7770 * t2485 * t557 / 0.8e1 - 0.3e1 / 0.2e1 * t1301 * t3392 + 0.6e1 * t932 * t9111 + 0.6e1 * t932 * t9115 + 0.2e1 * t932 * t9233 - 0.18e2 * t9397 - 0.24e2 * t9399 + 0.24e2 * t9401;
2863   t9409 = t545 * t2427;
2864   t9418 = t3432 * t35;
2865   t9440 = -0.12014101497942386831e1 * t613 * t2815 + (-0.8e1 / 0.3e1 * t9085 * t85 - 0.8e1 * t3339 * t303 - 0.8e1 * t1297 * t960 - 0.8e1 / 0.3e1 * t527 * t2614 - 0.8e1 / 0.3e1 * t2478 * t542 - 0.8e1 * t832 * t1334 - 0.8e1 * t285 * t3595 - 0.8e1 / 0.3e1 * t69 * (t9374 + t9403)) * t90 - 0.66e2 / 0.125e3 * t9409 * t2429 - 0.14e2 / 0.81e2 * t7572 * t576 - 0.14e2 / 0.27e2 * t7555 * t576 - 0.14e2 / 0.27e2 * t2653 * t1263 - 0.28e2 / 0.27e2 * t9418 * t349 - 0.28e2 / 0.27e2 * t2640 * t1263 - 0.14e2 / 0.27e2 * t1018 * t3458 - 0.14e2 / 0.81e2 * t345 * t348 * t9040 - 0.14e2 / 0.27e2 * t1012 * t3458 - 0.14e2 / 0.27e2 * t7549 * t576 - 0.14e2 / 0.81e2 * t7552 * t576 - 0.14e2 / 0.27e2 * t2637 * t1263 - 0.198e3 / 0.125e3 * t2428 * t9045 - 0.198e3 / 0.125e3 * t7589 * t3318;
2866   t9479 = -0.198e3 / 0.125e3 * t2428 * t9076 - t1484 * t2472 / 0.5e1 + 0.35e2 / 0.27e2 * t3428 * t341 * t117 - 0.3e1 / 0.5e1 * t1023 * t3333 - t310 * t9040 / 0.5e1 - 0.3e1 / 0.5e1 * t2564 * t1262 - t7914 * t522 / 0.5e1 - 0.3e1 / 0.5e1 * t3504 * t792 + 0.98e2 / 0.135e3 * t3445 * t922 + 0.98e2 / 0.135e3 * t3507 * t922 + 0.1056e4 / 0.625e3 * t7595 * t9072 + 0.35e2 / 0.27e2 * t1385 * t971 * t117 - 0.31595526666666666666e-1 * t389 * t794 - 0.392e3 / 0.225e3 * t1012 * t3612 - 0.392e3 / 0.225e3 * t345 * t2633 * t9045 + 0.98e2 / 0.135e3 * t345 * t921 * t8929;
2867   t9522 = 0.3e1 / 0.4e1 * t868 * t9112 + 0.3e1 / 0.4e1 * t868 * t9116 + 0.3e1 / 0.8e1 * t2729 * t9106 + 0.3e1 / 0.4e1 * t2752 * t3360 + 0.2160e4 * t381 * t3360 - t903 * t9148 - 0.1080e4 * t9312 + 0.3e1 / 0.2e1 * t2752 * t3356 + 0.12e2 * t380 * t3571 * t285 + 0.12e2 * t380 * t1317 * t832 + 0.4e1 * t380 * t532 * t2478;
2868   t9540 = t2720 * t527;
2869   t9543 = t2729 * t527;
2870   t9546 = t2755 * t527;
2871   t9549 = -0.3e1 * t903 * t9112 - 0.3e1 / 0.2e1 * t2741 * t9106 - t8076 * t9120 / 0.4e1 - 0.3e1 * t903 * t9116 + 0.18e2 * t8088 * t3350 + 0.21e2 * t2717 * t9106 + 0.15e2 / 0.2e1 * t8084 * t9120 - 0.36e2 * t380 * t3395 * t838 + 0.18e2 * t9540 * t2498 + 0.3e1 / 0.8e1 * t9543 * t2498 - 0.27e2 / 0.4e1 * t9546 * t2498;
2872   t9554 = t2717 * t285;
2873   t9557 = t380 * t859;
2874   t9558 = t1304 * t832;
2875   t9566 = t75 * t3694;
2876   t9579 = -0.3e1 / 0.2e1 * t2741 * t285 * t3360 + 0.21e2 * t9554 * t3360 - 0.36e2 * t9557 * t9558 + 0.432e3 * t838 * t374 * t527 + 0.432e3 * t3730 * t1297 + 0.216e3 * t9566 * t285 + 0.72e2 * t1443 * t2478 + 0.72e2 * t7933 * t527 + 0.216e3 * t3742 * t832 + 0.216e3 * t874 * t3339 + 0.72e2 * t367 * t9085;
2877   t9582 = t69 * t1454;
2878   t9615 = -0.26542080e8 * t125 * t3339 * t285 + 0.4608e4 * t1354 * t832 - 0.34560e5 * t1358 * t832 - 0.103680e6 * t1409 * t838 - 0.185794560e9 * t1417 * t838 + 0.1536e4 * t551 * t2478 - 0.11520e5 * t553 * t2478 - 0.69120e5 * t551 * t2485 + 0.3233160e7 * t553 * t2485 - 0.371589120e9 * t597 * t2485 - 0.34560e5 * t3401 * t285 + 0.4608e4 * t3405 * t285 - 0.26542080e8 * t3670 * t832 + 0.4608e4 * t9558;
2879   t9642 = -0.1105920e7 * t127 * t9085 + 0.26943e5 * t134 * t9085 + 0.2424870e7 * t1413 * t838 - 0.8847360e7 * t1419 * t2478 + 0.484974e6 * t1452 * t832 + 0.161658e6 * t597 * t2478 - 0.103680e6 * t581 * t2481 + 0.2424870e7 * t583 * t2481 - 0.185794560e9 * t585 * t2481 + 0.484974e6 * t3692 * t285 + 0.768e3 * t75 * t9085 - 0.2880e4 * t93 * t9085 - 0.8e1 * t9085 + 0.4608e4 * t9105;
2880   t9670 = 0.30720e5 * t123 * t9085 + 0.1843200e7 * t1358 * t838 + 0.460800e6 * t1413 * t832 + 0.153600e6 * t583 * t2478 + 0.1843200e7 * t553 * t2481 + 0.1843200e7 * t581 * t2485 + 0.460800e6 * t3658 * t285 + 0.1344e4 * t9111 + 0.1344e4 * t9115 - 0.34560e5 * t9119 - 0.51840e5 * t9178 - 0.17280e5 * t9180 - 0.51840e5 * t9182 - 0.103680e6 * t9184 + 0.448e3 * t9229 + 0.448e3 * t9233 - 0.5760e4 * t9235 - 0.103680e6 * t9247;
2881   t9687 = 0.216e3 * t2711 * t1297 + 0.432e3 * t9582 * t838 + 0.144e3 * t2485 * t599 + (t9615 + t9642) * t78 + 0.24e2 * t121 * t9670 - 0.9e1 / 0.2e1 * t3751 * t2498 + 0.3e1 / 0.4e1 * t8056 * t1367 - 0.9e1 / 0.2e1 * t8094 * t1367 - 0.9e1 / 0.2e1 * t2723 * t3360 - 0.3e1 / 0.2e1 * t860 * t9148 - 0.27e2 / 0.4e1 * t8097 * t3350 + t8066 * t9120 / 0.16e2;
2882   t9712 = -0.9e1 * t2723 * t3356 - 0.9e1 / 0.2e1 * t860 * t9112 - 0.9e1 / 0.2e1 * t860 * t9116 + t868 * t9148 / 0.4e1 + 0.3e1 / 0.8e1 * t8063 * t3350 + 0.3e1 / 0.4e1 * t3784 * t2498 + 0.75e2 / 0.4e1 * t8091 * t9120 - 0.9e1 / 0.4e1 * t8114 * t9120 + 0.18e2 * t2720 * t9106 - 0.27e2 / 0.4e1 * t2755 * t9106 - 0.48e2 * t8081 * t9120;
2883   t9724 = t1424 * t867;
2884   t9729 = t589 * t2533;
2885   t9738 = 0.48e2 * t380 * t3398 * t2485 - 0.30e2 * t868 * t9120 - 0.1080e4 * t9397 - 0.240e3 * t9399 + 0.2160e4 * t951 * t1370 + 0.3e1 / 0.2e1 * t3780 * t864 + 0.3e1 / 0.4e1 * t9724 * t861 + t1426 * t2530 / 0.2e1 + t9729 * t2495 / 0.8e1 + t8100 * t557 / 0.2e1 + 0.3e1 / 0.2e1 * t2747 * t1370 + 0.432e3 * t871 * t9115;
2886   t9764 = 0.144e3 * t871 * t9233 + 0.240e3 * t2506 * t602 + 0.720e3 * t1000 * t1459 + 0.720e3 * t327 * t3777 + 0.240e3 * t98 * t9085 * t73 + 0.2640e4 * t9401 - 0.2880e4 * t291 * t2485 * t557 - 0.480e3 * t537 * t2530 - 0.2e1 * t380 * t76 * t9085 + 0.3e1 / 0.2e1 * t857 * t3392 + t364 * t9208 / 0.2e1;
2887   t9769 = t589 * t902;
2888   t9778 = t1424 * t859;
2889   t9781 = t589 * t2512;
2890   t9788 = t3677 * t291;
2891   t9793 = 0.432e3 * t4955 * t3359 + 0.432e3 * t2708 * t3359 + 0.6e1 * t9769 * t2495 + 0.432e3 * t871 * t9111 + 0.432e3 * t3733 * t2481 + 0.432e3 * t7950 * t1304 - 0.9e1 / 0.2e1 * t9778 * t861 - 0.9e1 / 0.4e1 * t9781 * t2495 - 0.1440e4 * t3418 * t323 - 0.1440e4 * t1329 * t864 + 0.3e1 / 0.2e1 * t9788 * t323 + 0.864e3 * t2708 * t3355;
2892   t9815 = t3598 * t309;
2893   t9818 = t1337 * t1031;
2894   t9821 = t3927 * t2460;
2895   t9836 = 0.196e3 / 0.135e3 * t1018 * t3628 + 0.98e2 / 0.405e3 * t345 * t921 * t8922 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t9085 * t144 + 0.24e2 / 0.7e1 * t3339 * t384 + 0.24e2 / 0.7e1 * t1297 * t911 + 0.8e1 / 0.7e1 * t527 * t2802 + 0.8e1 / 0.7e1 * t2478 * t608 + 0.24e2 / 0.7e1 * t832 * t1471 + 0.24e2 / 0.7e1 * t285 * t3792 + 0.8e1 / 0.7e1 * t69 * (t9522 + t9549 + t9579 + t9687 + t9712 + t9738 + t9764 + t9793)) * t35 * t39 * t151 + 0.98e2 / 0.135e3 * t345 * t921 * t8919 + 0.98e2 / 0.135e3 * t1018 * t3631 - 0.10531842222222222222e-1 * t149 * t2679 - 0.31595526666666666666e-1 * t916 * t400 - 0.21063684444444444445e0 * t3797 * t393 - 0.3e1 / 0.5e1 * t9815 * t279 + 0.18e2 / 0.25e2 * t9818 * t822 + 0.44233737333333333333e-1 * t4810 * t9821 + 0.16850947555555555555e0 * t807 * t3483 + 0.84254737777777777776e-1 * t2628 * t1249 + 0.48056405991769547325e0 * t397 * t8194 * t619 - 0.11795663288888888889e0 * t1395 * t2666 + 0.84254737777777777776e-1 * t397 * t801 * t3493;
2896   t9852 = t3796 * t396;
2897   t9872 = t114 * t40;
2898   t9876 = 0.84254737777777777777e-1 * t1395 * t2669 - 0.35386989866666666666e-1 * t1395 * t2661 + 0.44233737333333333333e-1 * t3476 * t1027 - 0.10531842222222222222e-1 * t397 * t398 * t347 * t9040 - 0.10531842222222222222e-1 * t8170 * t620 - 0.10531842222222222222e-1 * t1395 * t2679 - 0.31595526666666666666e-1 * t9852 * t400 - 0.31595526666666666666e-1 * t2628 * t1390 - 0.31595526666666666666e-1 * t807 * t3494 - 0.30893403851851851852e0 * t1395 * t2673 + 0.16850947555555555555e0 * t3476 * t802 + 0.30703965012345679014e-1 * t4826 * t2684 - 0.30893403851851851851e0 * t397 * t2672 * t1389 - 0.30893403851851851851e0 * t807 * t3486 - 0.31595526666666666666e-1 * t3476 * t794 - 0.392e3 / 0.225e3 * t9872 * t3463 * t2460;
2899   t9883 = t2547 * t10;
2900   t9898 = t40 * t2660;
2901   t9901 = t40 * t2678;
2902   t9915 = -0.14e2 / 0.27e2 * t3445 * t1015 + 0.26329605555555555556e-1 * t2807 * t616 - 0.14e2 / 0.81e2 * t1266 * t2650 + 0.18276169650205761317e-1 * t9883 * t45 * t117 - 0.14e2 / 0.27e2 * t3507 * t1015 + 0.53610097640603566530e0 * t1269 * t782 * t117 + 0.196e3 / 0.135e3 * t2640 * t1400 + 0.58483742880658436214e-1 * t1275 * t3807 - 0.81877240032921810701e-1 * t1275 * t3804 - 0.24563172009876543211e-1 * t573 * t9898 - 0.73104678600823045268e-2 * t573 * t9901 - 0.21931403580246913581e-1 * t1270 * t3807 + 0.30703965012345679014e-1 * t1270 * t3804 + 0.6664e4 / 0.3375e4 * t345 * t7584 * t9072 - 0.35386989866666666666e-1 * t149 * t2661 - 0.21444039056241426612e0 * t3518 * t1481;
2903   t9938 = -0.12e2 * t255 * t623 * t2335 - 0.27e2 / 0.50e2 * t440 * t3269 - 0.4959e4 / 0.10000e5 * t194 * t8329 * t648 * t2958 - 0.18e2 * t1219 * t2988 + 0.3e1 * t251 * t3819 + t27 * (t8943 + t8994 + t9289 + t9440 + t9479 + t9836 + t9876 + t9915) - 0.1944e4 * t3896 * t8805 - 0.18e2 * t1219 * t2985 - 0.648e3 * t8655 * t2992 + t8586 * t154 - 0.27e2 / 0.50e2 * t1049 * t1516 - 0.18e2 * t255 * t2984 * t1209 - 0.27e2 / 0.50e2 * t408 * t3269 + 0.972e3 * t1225 * t8802 - 0.27e2 / 0.100e3 * t1507 * t1106;
2904   t9940 = t3819 * t20;
2905   t9961 = t764 * t1035;
2906   t9970 = t255 * t1035;
2907   t9973 = t2370 * t403;
2908   t9976 = t7360 * t154;
2909   t9979 = -0.18e2 * t255 * t9940 * t245 - 0.18e2 * t757 * t3837 - 0.27e2 / 0.100e3 * t440 * t3263 - 0.36e2 * t255 * t3833 * t1209 + 0.324e3 * t3883 * t3084 + 0.513e3 / 0.1000e4 * t440 * t3286 + 0.513e3 / 0.1000e4 * t194 * t2957 * t1551 * t1105 - 0.36e2 * t757 * t3872 + 0.162e3 * t9961 * t1227 - 0.36e2 * t1233 * t8579 + 0.972e3 * t1225 * t8596 - 0.36e2 * t3888 * t3094 - 0.36e2 * t9970 * t1212 + 0.324e3 * t9973 * t1227 + 0.162e3 * t9976 * t1227;
2910   t9982 = t2379 * t403;
2911   t9989 = t623 * t2380;
2912   t10002 = t7333 * t154;
2913   t10017 = 0.972e3 * t3891 * t3088 - 0.1944e4 * t9982 * t3152 + 0.324e3 * t3891 * t3084 - 0.27e2 / 0.100e3 * t1505 * t1106 - 0.648e3 * t2379 * t9989 * t2335 - 0.18e2 * t255 * t3871 * t747 - 0.27e2 / 0.100e3 * t1047 * t1516 - 0.36e2 * t757 * t3834 - 0.7776e4 * t3896 * t8639 - 0.1944e4 * t10002 * t3152 - 0.36e2 * t757 * t3853 - 0.18e2 * t2347 * t1236 + 0.171e3 / 0.1000e4 * t628 * t2959 - 0.36e2 * t1219 * t2996 - 0.6e1 * t7412 * t513 - 0.18e2 * t2347 * t1230;
2914   t10028 = t7461 * t154;
2915   t10055 = -0.27e2 / 0.100e3 * t194 * t1104 * t3213 * t468 + 0.162e3 * t3883 * t3145 - 0.1944e4 * t3896 * t8588 + 0.9720e4 * t10028 * t8592 - 0.36e2 * t4525 * t2362 + 0.162e3 * t5030 * t2388 - 0.6e1 * t1219 * t2999 + 0.162e3 * t8652 * t767 - 0.18e2 * t3101 * t778 + 0.3e1 * t3248 * t439 * t215 + 0.3e1 * t1504 * t1098 * t215 + t8681 * t193 * t215 + 0.513e3 / 0.1000e4 * t408 * t3286 + 0.162e3 * t3109 * t2981 - 0.27e2 / 0.100e3 * t408 * t3263;
2916   t10073 = t2347 * t154;
2917   t10089 = t627 * t2895 * t215 - 0.27e2 / 0.100e3 * t1099 * t1516 + 0.972e3 * t3883 * t3088 - 0.18e2 * t255 * t770 * t3131 + 0.162e3 * t1225 * t8603 + 0.162e3 * t3891 * t3145 - 0.72e2 * t3847 * t3091 + 0.54e2 * t1225 * t8606 - 0.36e2 * t10073 * t1212 - 0.36e2 * t1233 * t8573 + 0.1080e4 * t1225 * t8642 - 0.72e2 * t3888 * t3091 - 0.6e1 * t255 * t256 * t8570 - 0.18e2 * t757 * t3875 - 0.27e2 / 0.100e3 * t628 * t2419;
2918   t10091 = t623 * t21;
2919   t10095 = t1492 * t19;
2920   t10105 = t757 * t403;
2921   t10121 = t1492 * t765;
2922   t10127 = t1605 * t1139;
2923   t10130 = 0.324e3 * t764 * t10091 * t2335 - 0.36e2 * t255 * t10095 * t741 - 0.36e2 * t1233 * t8577 + 0.162e3 * t1225 * t8600 - 0.12e2 * t1233 * t8581 - 0.72e2 * t10105 * t1212 + 0.3e1 / 0.5e1 * t3863 * t469 + t2896 * t649 / 0.10e2 + 0.3e1 / 0.10e2 * t3869 * t469 + 0.3e1 / 0.10e2 * t3866 * t469 - 0.6e1 * t255 * t1240 * t2358 + 0.162e3 * t2370 * t3857 + 0.162e3 * t764 * t10121 * t741 - 0.36e2 * t3847 * t3094 + 0.513e3 / 0.1000e4 * t5536 * t10127;
2924   t10181 = t631 * t1799;
2925   t10188 = -0.73e2 / 0.3240e4 * t638 * t1532 * t747 + 0.803e3 / 0.7290e4 * t638 * t782 * t245 * t211 - 0.803e3 / 0.7290e4 * t638 * t3167 * t245 - 0.73e2 / 0.2430e4 * t638 * t269 * t747 * t211 + 0.73e2 / 0.2430e4 * t638 * t1528 * t747 + 0.73e2 / 0.19440e5 * t638 * t45 * t2358 * t211 - 0.5621e4 / 0.32805e5 * t638 * t1799 * t19 * t211 - 0.73e2 / 0.19440e5 * t638 * t639 * t2358 - 0.63250e5 / 0.59049e5 * t9038 + 0.146e3 / 0.3645e4 * t3161 * t1520 + 0.73e2 / 0.1215e4 * t40 * t801 * t741 - 0.1540e4 / 0.81e2 * t197 * t10181 - 0.1606e4 / 0.10935e5 * t1523 * t3171 + 0.22484e5 / 0.98415e5 * t635 * t10181;
2926   t10224 = -0.73e2 / 0.14580e5 * t2918 * t35 * t632 + 0.584e3 / 0.45e2 * t3195 * t245 + 0.292e3 / 0.45e2 * t1539 * t747 - 0.146e3 / 0.135e3 * t207 * t8570 * t211 + 0.292e3 / 0.45e2 * t3200 * t245 + 0.292e3 / 0.45e2 * t1542 * t747 + 0.292e3 / 0.135e3 * t643 * t2358 + 0.146e3 / 0.135e3 * t2921 * t505 + 0.146e3 / 0.45e2 * t1124 * t1209 + 0.146e3 / 0.45e2 * t460 * t3131 + 0.146e3 / 0.135e3 * t210 * t8570 - 0.146e3 / 0.135e3 * t2918 * t505 * t211 - 0.146e3 / 0.45e2 * t1121 * t1209 * t211 + 0.292e3 / 0.45e2 * t3192 * t245 - 0.146e3 / 0.45e2 * t457 * t3131 * t211;
2927   t10225 = t10188 + t10224;
2928   t10243 = 0.3e1 * t1217 * t1035 + t511 * t2819 + t2367 * t623 - 0.9e1 / 0.100e3 * t194 * t1515 * t2943 - 0.27e2 / 0.100e3 * t194 * t3268 * t1139 + 0.3e1 * t755 * t1492 - 0.18e2 * t2347 * t1241 + 0.3e1 / 0.10e2 * t1099 * t1552 + t194 * t446 * t10225 / 0.10e2 + 0.3e1 / 0.5e1 * t1049 * t1552 + 0.3e1 / 0.10e2 * t408 * t3256 + 0.3e1 / 0.10e2 * t440 * t3256 + t628 * t2944 / 0.10e2 + t2828 * t649 / 0.10e2 + 0.3e1 / 0.10e2 * t1507 * t1140 + 0.3e1 / 0.10e2 * t1505 * t1140;
2929   t10250 = t3948 * t20;
2930   t10258 = -0.18e2 * t2347 * t1566 - 0.18e2 * t2347 * t1572 - 0.36e2 * t757 * t3951 + 0.162e3 * t3077 * t3145 - 0.6e1 * t255 * t8540 * t505 - 0.18e2 * t255 * t2343 * t1209 - 0.6e1 * t1219 * t2399 - 0.36e2 * t5225 * t2362 - p->cam_beta * (t8893 + t9938 + t9979 + t10017 + t10055 + t10089 + t10130 + t10243) - 0.18e2 * t757 * t3981 - 0.18e2 * t255 * t10250 * t245 - 0.36e2 * t757 * t3972 - 0.18e2 * t757 * t3964;
2931   t10264 = t1597 * t765;
2932   t10284 = t627 * t2957;
2933   t10288 = t664 * t2380;
2934   t10292 = t757 * t493;
2935   t10295 = 0.162e3 * t2370 * t3968 - 0.18e2 * t2347 * t1577 + 0.162e3 * t764 * t10264 * t741 - 0.6e1 * t255 * t1576 * t2358 - 0.18e2 * t255 * t1154 * t3131 - 0.6e1 * t255 * t475 * t8570 - 0.18e2 * t255 * t3971 * t747 + 0.513e3 / 0.1000e4 * t3053 * t10127 + 0.3e1 * t3141 * t493 + 0.171e3 / 0.1000e4 * t10284 * t2958 + t8586 * t229 - 0.648e3 * t2379 * t10288 * t2335 - 0.72e2 * t10292 * t1212;
2936   t10296 = t1504 * t1104;
2937   t10327 = t269 * t920;
2938   t10336 = t782 * t347;
2939   t10340 = 0.6664e4 / 0.1875e4 * t8527 * t9072 + 0.98e2 / 0.75e2 * t1181 * t8929 + 0.98e2 / 0.75e2 * t1181 * t8919 + 0.98e2 / 0.225e3 * t1181 * t8922 - 0.198e3 / 0.125e3 * t3911 * t2460 + 0.98e2 / 0.75e2 * t8519 * t1252 + 0.196e3 / 0.75e2 * t3031 * t3322 + 0.98e2 / 0.75e2 * t3031 * t3326 - 0.392e3 / 0.125e3 * t3036 * t9045 - 0.392e3 / 0.125e3 * t8522 * t3318 - 0.19983387292181069959e0 * t638 * t10327 * t822 - 0.59950161876543209878e-1 * t638 * t9265 * t2429 + 0.74937702345679012347e-1 * t638 * t9821 - 0.52337442908093278464e0 * t638 * t10336 * t279;
2940   t10374 = 0.14273848065843621399e0 * t638 * t3923 * t792 - 0.17842310082304526749e-1 * t638 * t1587 * t2472 - t309 * t9040 / 0.5e1 + 0.1056e4 / 0.625e3 * t7594 * t522 * t2429 - 0.20353450019814052736e1 * t40 * t8938 - 0.392e3 / 0.125e3 * t3036 * t9076 - 0.198e3 / 0.125e3 * t2427 * t1262 * t822 + 0.18e2 / 0.25e2 * t1031 * t3333 * t279 + 0.18e2 / 0.25e2 * t3914 * t792 + 0.6e1 / 0.25e2 * t1580 * t2472 - 0.14e2 / 0.45e2 * t8499 * t522 - 0.14e2 / 0.15e2 * t3028 * t1262 - 0.14e2 / 0.15e2 * t1178 * t3333 - 0.14e2 / 0.45e2 * t490 * t9040;
2941   t10379 = t3248 * t446;
2942   t10392 = -0.27e2 / 0.100e3 * t10296 * t1105 + 0.3e1 / 0.10e2 * t1189 * t3213 + t496 * t10225 / 0.10e2 + t1600 * t2943 / 0.10e2 + 0.3e1 * t251 * t3948 + t27 * (t10340 + t10374) + 0.3e1 / 0.10e2 * t3990 * t1139 + 0.3e1 / 0.10e2 * t10379 * t468 + t8462 * t648 / 0.10e2 + 0.3e1 / 0.10e2 * t3009 * t1551 + t2367 * t664 + 0.3e1 * t755 * t1597 + 0.3e1 * t1217 * t1186 + t511 * t3043;
2943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2944     v4rho3sigma[0] = t8555 * t670 / 0.18e2 - t3069 * t1611 / 0.4e1 - 0.3e1 / 0.4e1 * t1202 * t3996 - 0.3e1 / 0.16e2 * t239 * t240 * (t8713 + t8744 + t8780 + t8810 + t8841 + t10258 + t10295 + t10392);
2945 
2946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2947     v4rho3lapl[0] = 0.0e0;
2948 
2949   t10416 = t1678 * t1104;
2950   t10432 = t1627 * t763;
2951   t10437 = t248 * t792;
2952   t10441 = t752 * t279;
2953   t10451 = t1039 * t279;
2954   t10469 = -0.18e2 * t255 * t770 * t4015 - 0.18e2 * t757 * t4175 - 0.18e2 * t1630 * t2988 + 0.162e3 * t4030 * t2981 - 0.18e2 * t4006 * t778 - 0.6e1 * t1630 * t2999 + 0.162e3 * t10432 * t767 - 0.36e2 * t4006 * t771 - 0.45279521777777777778e0 * t1652 * t4267 * t10437 - 0.45279521777777777778e0 * t1652 * t4267 * t10441 + 0.22639760888888888889e1 * t1652 * t117 * t2362 - 0.10187892400000000000e2 * t4220 * t117 * t2388 + 0.40751569600000000001e1 * t4220 * t4267 * t10451 + 0.75465869629629629628e-1 * t1648 * t4254 + 0.75465869629629629628e-1 * t1658 * t4254 + 0.25155289876543209876e-1 * t688 * t689 * t2650 + 0.33540386502057613168e0 * t688 * t4240 * t349 - 0.25155289876543209876e0 * t1648 * t4251 - 0.25155289876543209876e0 * t1658 * t4251;
2955   t10477 = t678 * t2358;
2956   t10484 = t765 * t4015;
2957   t10485 = t10484 * t245;
2958   t10504 = t764 * t573;
2959   t10507 = t116 * t21;
2960   t10509 = t40 * t10507 * t2335;
2961   t10512 = t255 * t1275;
2962   t10515 = t757 * t573;
2963   t10520 = -0.12577644938271604938e0 * t688 * t1661 * t1015 - 0.10565221748148148148e0 * t1648 * t4248 - 0.10565221748148148148e0 * t1658 * t4248 - 0.12e2 * t1233 * t10477 + 0.324e3 * t3883 * t4054 + 0.972e3 * t3883 * t4050 + 0.162e3 * t1225 * t10485 + 0.3e1 / 0.10e2 * t4278 * t469 + 0.3e1 / 0.5e1 * t4261 * t469 - 0.12e2 * t1630 * t2833 - 0.18e2 * t2347 * t1640 - 0.6e1 * t7412 * t685 + 0.22639760888888888889e1 * t4213 * t4231 - 0.37732934814814814814e1 * t4226 * t4231 - 0.18866467407407407407e1 * t4226 * t4217 + 0.16979820666666666666e2 * t10504 * t4223 - 0.20375784800000000001e2 * t4220 * t10509 + 0.50310579753086419752e1 * t10512 * t1655 - 0.37732934814814814814e1 * t10515 * t1655 + 0.22639760888888888889e1 * t4209 * t4231;
2964   t10522 = t255 * t1270;
2965   t10525 = t40 * t2620;
2966   t10530 = t2370 * t1651;
2967   t10535 = t255 * t572;
2968   t10546 = t4049 * t2352;
2969   t10557 = my_piecewise3(t18, 0.3e1 / 0.4e1 * t2355 * t674, 0);
2970   t10560 = t1616 * t747;
2971   t10562 = t741 * t1620;
2972   t10564 = t4016 * t245;
2973   t10566 = t1621 * t747;
2974   t10569 = t20 * t10557;
2975   t10572 = (0.2e1 * t19 * t10557 + 0.6e1 * t747 * t1620 + 0.2e1 * t2358 * t677 + 0.6e1 * t245 * t4015 + 0.18e2 * t10477 + 0.54e2 * t10560 + 0.54e2 * t10562 + 0.54e2 * t10564 + 0.54e2 * t10566 + 0.9e1 * t10569) * t26;
2976   t10584 = t2957 * t1717;
2977   t10592 = t8329 * t714;
2978   t10596 = -0.37732934814814814814e1 * t10522 * t1655 - 0.10565221748148148148e0 * t5501 * t10525 + 0.11319880444444444444e1 * t4209 * t4217 - 0.10187892400000000000e2 * t10530 * t4223 + 0.11319880444444444444e1 * t4213 * t4217 + 0.75465869629629629630e0 * t10535 * t689 * t690 * t2335 + 0.84521773985185185182e-1 * t688 * t689 * t2634 + 0.17608702913580246913e0 * t688 * t1661 * t922 + 0.972e3 * t1225 * t10546 + t10572 * t154 + 0.513e3 / 0.1000e4 * t408 * t4204 + 0.513e3 / 0.1000e4 * t440 * t4204 - 0.27e2 / 0.50e2 * t1049 * t1690 - 0.27e2 / 0.100e3 * t1099 * t1690 - 0.27e2 / 0.50e2 * t408 * t4195 + 0.513e3 / 0.1000e4 * t194 * t10584 * t1105 - 0.27e2 / 0.50e2 * t440 * t4195 - 0.27e2 / 0.100e3 * t440 * t4198 - 0.4959e4 / 0.10000e5 * t194 * t10592 * t2958;
2979   t10631 = 0.146e3 / 0.405e3 * t2918 * t10 * t700 + 0.3212e4 / 0.729e3 * t3169 - 0.292e3 / 0.81e2 * t3180 + 0.292e3 / 0.81e2 * t3183 + 0.73e2 / 0.54e2 * t3187 - 0.73e2 / 0.54e2 * t3190 + 0.146e3 / 0.135e3 * t210 * t10557 - 0.146e3 / 0.45e2 * t457 * t4015 * t211 + 0.584e3 / 0.45e2 * t4124 * t245 + 0.292e3 / 0.45e2 * t1705 * t747 - 0.146e3 / 0.135e3 * t207 * t10557 * t211 + 0.292e3 / 0.45e2 * t4129 * t245 + 0.292e3 / 0.45e2 * t1708 * t747;
2980   t10662 = 0.292e3 / 0.135e3 * t709 * t2358 + 0.146e3 / 0.135e3 * t2921 * t677 + 0.146e3 / 0.45e2 * t1124 * t1620 + 0.146e3 / 0.45e2 * t460 * t4015 - 0.146e3 / 0.135e3 * t2918 * t677 * t211 - 0.146e3 / 0.45e2 * t1121 * t1620 * t211 + 0.292e3 / 0.45e2 * t4121 * t245 - 0.146e3 / 0.81e2 * t3162 - 0.73e2 / 0.27e2 * t3165 + 0.1168e4 / 0.243e3 * t3174 - 0.12848e5 / 0.2187e4 * t3176 - 0.73e2 / 0.270e3 * t704 * t39 * t2358 * t211 + 0.73e2 / 0.45e2 * t704 * t4142 * t245 + 0.73e2 / 0.270e3 * t704 * t705 * t2358;
2981   t10663 = t10631 + t10662;
2982   t10679 = t4045 * t2352;
2983   t10685 = t682 * t2378;
2984   t10688 = t4026 * t254;
2985   t10699 = 0.162e3 * t9976 * t1637 - 0.27e2 / 0.100e3 * t1681 * t1106 - 0.27e2 / 0.100e3 * t1679 * t1106 + 0.3e1 / 0.10e2 * t2823 * t715 + t2896 * t715 / 0.10e2 + t194 * t446 * t10663 / 0.10e2 + 0.3e1 / 0.10e2 * t440 * t4161 + 0.3e1 / 0.10e2 * t408 * t4161 + 0.3e1 / 0.5e1 * t1049 * t1718 + 0.3e1 / 0.10e2 * t1099 * t1718 + t697 * t2944 / 0.10e2 + t2828 * t715 / 0.10e2 - 0.1944e4 * t3896 * t10679 - 0.18e2 * t255 * t2984 * t1620 - 0.648e3 * t10685 * t2992 - 0.18e2 * t10688 * t257 + 0.15093173925925925925e0 * t4103 * t1665 + 0.75465869629629629628e-1 * t4097 * t1665 + 0.75465869629629629628e-1 * t4100 * t1665 - 0.36e2 * t757 * t4172;
2986   t10708 = t21 * t1620;
2987   t10709 = t10708 * t741;
2988   t10714 = t4053 * t747;
2989   t10717 = t1636 * t2358;
2990   t10742 = t7383 * t677;
2991   t10743 = t10742 * t2335;
2992   t10746 = t680 * t2335;
2993   t10753 = 0.12e2 * t255 * t10477 - 0.162e3 * t764 * t10485 + 0.36e2 * t255 * t10560 + 0.36e2 * t255 * t10564 + 0.36e2 * t255 * t10566 - 0.972e3 * t764 * t10709 - 0.162e3 * t764 * t10714 - 0.54e2 * t764 * t10717 + 0.7776e4 * t2379 * t10743 - 0.1080e4 * t764 * t10746 + 0.36e2 * t2347 * t1623 + 0.36e2 * t1630 * t2362 - 0.162e3 * t7360 * t1637 - 0.972e3 * t2370 * t4050 - 0.324e3 * t2370 * t4054 - 0.162e3 * t2370 * t4057 - 0.162e3 * t4030 * t2388 + 0.72e2 * t757 * t4020 + 0.1944e4 * t7333 * t4046;
2994   t10756 = t2380 * t1620;
2995   t10757 = t10756 * t741;
2996   t10760 = t7462 * t677;
2997   t10761 = t10760 * t2335;
2998   t10796 = 0.36e2 * t757 * t4022 + 0.1944e4 * t2379 * t10757 - 0.9720e4 * t7461 * t10761 + 0.12e2 * t1630 * t2335 - t10572 + 0.6e1 * t1630 * t2364 + 0.6e1 * t7412 * t680 + 0.18e2 * t2347 * t1625 + 0.18e2 * t757 * t4024 + 0.36e2 * t255 * t10562 + 0.6e1 * t255 * t10569 + 0.18e2 * t10688 * t248 + 0.18e2 * t4006 * t752 - 0.162e3 * t10432 * t1039 + 0.648e3 * t10685 * t2381 + 0.36e2 * t757 * t4018 + 0.36e2 * t4006 * t750 - 0.324e3 * t4030 * t2384 + 0.1944e4 * t5451 * t10560 - 0.972e3 * t5454 * t10560;
2999   t10797 = t10753 + t10796;
3000   t10835 = -0.6e1 * t255 * t256 * t10557 + 0.3e1 * t1678 * t1098 * t215 + t10797 * t193 * t215 + t696 * t2895 * t215 - 0.36e2 * t255 * t8862 * t677 - 0.36e2 * t4006 * t775 - 0.36e2 * t255 * t3833 * t1620 - 0.6e1 * t255 * t8304 * t677 - 0.36e2 * t1630 * t2996 - 0.18e2 * t1630 * t2985 - 0.1944e4 * t9982 * t4046 - 0.18e2 * t2347 * t1645 + 0.9720e4 * t10028 * t10761 - 0.36e2 * t10073 * t1623 + 0.54e2 * t1225 * t10717 + 0.3e1 / 0.10e2 * t1681 * t1140 + 0.3e1 / 0.10e2 * t1047 * t1718 + 0.3e1 / 0.10e2 * t1679 * t1140 + 0.3e1 / 0.10e2 * t4264 * t469;
3001   t10845 = t1104 * t4160;
3002   t10852 = t1756 * t1139;
3003   t10877 = t782 * t35 * t690;
3004   t10883 = -0.36e2 * t757 * t4087 - 0.27e2 / 0.100e3 * t194 * t4194 * t1139 - 0.27e2 / 0.100e3 * t408 * t4198 - 0.27e2 / 0.100e3 * t1047 * t1690 - 0.27e2 / 0.100e3 * t194 * t10845 * t468 - 0.9e1 / 0.100e3 * t194 * t1689 * t2943 + 0.513e3 / 0.1000e4 * t5536 * t10852 + 0.3e1 * t1628 * t1035 + t683 * t2819 + 0.3e1 / 0.10e2 * t2830 * t715 + 0.162e3 * t9961 * t1637 + 0.972e3 * t3891 * t4050 - 0.7776e4 * t3896 * t10743 - 0.27e2 / 0.100e3 * t697 * t2419 + 0.171e3 / 0.1000e4 * t697 * t2959 + 0.3e1 * t4027 * t403 - 0.1944e4 * t10002 * t4046 - 0.36e2 * t9970 * t1623 + 0.10248451431184270690e1 * t688 * t10877 - 0.18866467407407407407e0 * t251 * t3514 * t691;
3005   t10928 = -0.62888224691358024691e-1 * t27 * t9883 * t691 + 0.324e3 * t9973 * t1637 + 0.62888224691358024690e0 * t4103 * t1662 + 0.31444112345679012345e0 * t4097 * t1662 + 0.31444112345679012345e0 * t4100 * t1662 - 0.62888224691358024691e-1 * t2367 * t572 * t691 - 0.18866467407407407407e0 * t755 * t1269 * t691 - 0.83850966255144032920e0 * t1648 * t4241 - 0.83850966255144032920e0 * t1658 * t4241 - 0.36e2 * t3847 * t4022 - 0.36e2 * t3888 * t4022 - 0.36e2 * t1233 * t10564 - 0.36e2 * t1233 * t10566 + 0.972e3 * t1225 * t10709 - 0.72e2 * t3888 * t4020 - 0.72e2 * t3847 * t4020 - 0.36e2 * t1233 * t10560 + 0.1080e4 * t1225 * t10746 + 0.162e3 * t3883 * t4057 + 0.324e3 * t3891 * t4054;
3006   t10933 = t764 * t4212;
3007   t10937 = t40 * t1653 * t2358;
3008   t10940 = t2379 * t1651;
3009   t10941 = t116 * t2380;
3010   t10943 = t40 * t10941 * t2335;
3011   t10947 = t255 * t3514 * t107;
3012   t10950 = t2347 * t1651;
3013   t10953 = t757 * t4212;
3014   t10971 = t40 * t920;
3015   t10973 = t822 * t20 * t245;
3016   t10981 = t750 * t279;
3017   t10987 = -0.1944e4 * t3896 * t10757 + 0.162e3 * t3891 * t4057 - 0.10187892400000000000e2 * t10933 * t4223 + 0.37732934814814814815e0 * t1652 * t10937 + 0.40751569600000000001e2 * t10940 * t10943 + 0.11319880444444444444e1 * t10947 * t1655 + 0.11319880444444444444e1 * t10950 * t1655 + 0.22639760888888888889e1 * t10953 * t1655 + 0.3e1 * t4068 * t439 * t215 - 0.72e2 * t10105 * t1623 - 0.36e2 * t5569 * t2362 + 0.162e3 * t5614 * t2388 + 0.162e3 * t1225 * t10714 + 0.324e3 * t4030 * t2967 + 0.15093173925925925925e1 * t4226 * t4269 + 0.63391330488888888889e0 * t1652 * t10971 * t10973 - 0.90559043555555555555e0 * t4209 * t4269 - 0.90559043555555555555e0 * t4213 * t4269 - 0.90559043555555555556e0 * t1652 * t4267 * t10981 - 0.18e2 * t757 * t4094;
3018   t11009 = -0.36e2 * t255 * t8764 * t677 + 0.324e3 * t8683 * t1637 + 0.324e3 * t3077 * t4054 + 0.162e3 * t3077 * t4057 - 0.1944e4 * t8731 * t4046 - 0.27e2 / 0.100e3 * t10416 * t1105 - p->cam_beta * (t10469 + t10520 + t10596 + t10699 + t10835 + t10883 + t10928 + t10987) - 0.36e2 * t4006 * t1159 - 0.36e2 * t1630 * t2340 + 0.324e3 * t4030 * t2336 - 0.36e2 * t255 * t3957 * t1620 - 0.18e2 * t1630 * t2344 + 0.162e3 * t3080 * t4057 - 0.1944e4 * t8736 * t4046 + 0.162e3 * t1563 * t10485;
3019   t11024 = t764 * t398;
3020   t11040 = -0.4959e4 / 0.10000e5 * t8485 * t714 * t2958 + 0.3e1 * t4027 * t493 + 0.3e1 * t1628 * t1186 + t683 * t3043 - 0.37732934814814814814e1 * t4357 * t4231 - 0.10565221748148148148e0 * t1747 * t10525 - 0.18866467407407407407e1 * t4357 * t4217 + 0.16979820666666666666e2 * t11024 * t4223 + 0.22639760888888888889e1 * t4367 * t4231 - 0.20375784800000000001e2 * t4364 * t10509 + 0.11319880444444444444e1 * t4367 * t4217 - 0.27e2 / 0.100e3 * t1192 * t1717 * t1139 - 0.12e2 * t1630 * t3056 + t10572 * t229 + t10797 * t215;
3021   t11042 = t696 * t2957;
3022   t11076 = 0.171e3 / 0.1000e4 * t11042 * t2958 + t496 * t10663 / 0.10e2 + 0.3e1 / 0.10e2 * t1189 * t4160 - 0.27e2 / 0.100e3 * t4070 * t2329 + t1751 * t2943 / 0.10e2 - 0.83850966255144032920e0 * t1739 * t4241 + 0.10248451431184270690e1 * t724 * t10877 + 0.31444112345679012345e0 * t4299 * t1662 + 0.972e3 * t1563 * t10546 - 0.1944e4 * t3150 * t10679 - 0.62888224691358024691e-1 * t2367 * t10 * t691 + 0.513e3 / 0.1000e4 * t8459 * t4354 - 0.9e1 / 0.100e3 * t1192 * t714 * t2943 - 0.27e2 / 0.100e3 * t1192 * t4160 * t468 - 0.27e2 / 0.100e3 * t3050 * t4335;
3023   t11093 = t4068 * t446;
3024   t11103 = t251 * t398;
3025   t11108 = t27 * t801;
3026   t11113 = -0.36e2 * t5685 * t2362 - 0.36e2 * t8813 * t1623 - 0.72e2 * t10292 * t1623 - 0.27e2 / 0.100e3 * t8465 * t1756 - 0.27e2 / 0.50e2 * t3050 * t4348 + 0.162e3 * t5688 * t2388 - 0.12e2 * t1569 * t10477 + 0.162e3 * t8690 * t1637 + 0.3e1 / 0.10e2 * t11093 * t468 + t8462 * t714 / 0.10e2 + 0.513e3 / 0.1000e4 * t3053 * t1717 * t1105 + 0.25155289876543209876e-1 * t1747 * t9901 - 0.25155289876543209876e0 * t11103 * t1481 + 0.75465869629629629628e-1 * t4309 * t3807 + 0.33540386502057613168e0 * t11108 * t1481 - 0.12577644938271604938e0 * t4312 * t3807;
3027   t11116 = t755 * t703;
3028   t11152 = 0.75465869629629629628e-1 * t11116 * t1481 + 0.84521773985185185182e-1 * t1747 * t9898 + 0.17608702913580246913e0 * t4312 * t3804 + 0.75465869629629629630e0 * t1742 * t40 * t116 * t2335 - 0.10565221748148148148e0 * t4309 * t3804 - 0.36e2 * t1569 * t10566 - 0.72e2 * t3155 * t4020 - 0.36e2 * t3155 * t4022 - 0.36e2 * t1569 * t10560 + 0.1080e4 * t1563 * t10746 - 0.36e2 * t1569 * t10564 - 0.18e2 * t757 * t4076 - 0.6e1 * t255 * t475 * t10557 - 0.18e2 * t255 * t2343 * t1620 - 0.18e2 * t255 * t1154 * t4015;
3029   t11184 = -0.6e1 * t7412 * t721 - 0.18e2 * t2347 * t1731 - 0.36e2 * t757 * t4073 + 0.162e3 * t4030 * t2407 - 0.18e2 * t4006 * t1162 - 0.6e1 * t1630 * t2399 + 0.162e3 * t10432 * t1151 - 0.648e3 * t10685 * t2411 + 0.513e3 / 0.1000e4 * t3053 * t10852 - 0.36e2 * t8741 * t1623 + 0.162e3 * t1563 * t10714 - 0.1944e4 * t3150 * t10757 + 0.54e2 * t1563 * t10717 + 0.9720e4 * t8722 * t10761 - 0.6e1 * t255 * t8540 * t677;
3030   t11208 = t757 * t704;
3031   t11217 = t398 * t35;
3032   t11218 = t255 * t11217;
3033   t11223 = -0.18e2 * t1630 * t2415 - 0.18e2 * t757 * t4003 - 0.18e2 * t2347 * t1736 - 0.36e2 * t4006 * t1155 - 0.18e2 * t10688 * t476 + 0.3e1 / 0.10e2 * t3009 * t1717 + 0.972e3 * t3080 * t4050 + 0.3e1 / 0.10e2 * t4302 * t1139 - 0.45279521777777777778e0 * t4338 * t348 * t10437 - 0.45279521777777777778e0 * t4338 * t348 * t10441 - 0.90559043555555555555e0 * t11208 * t4339 + 0.63391330488888888889e0 * t4338 * t921 * t10973 - 0.90559043555555555556e0 * t4338 * t348 * t10981 + 0.15093173925925925925e1 * t11218 * t4339 - 0.72e2 * t3074 * t4020;
3034   t11230 = t757 * t398;
3035   t11233 = t255 * t801;
3036   t11238 = t2370 * t703;
3037   t11241 = t2379 * t703;
3038   t11244 = t2347 * t703;
3039   t11264 = -0.36e2 * t3074 * t4022 + 0.972e3 * t3077 * t4050 + 0.162e3 * t8816 * t1637 - 0.37732934814814814814e1 * t11230 * t1655 + 0.50310579753086419752e1 * t11233 * t1655 + 0.37732934814814814815e0 * t1742 * t10937 - 0.10187892400000000000e2 * t11238 * t4223 + 0.40751569600000000001e2 * t11241 * t10943 + 0.11319880444444444444e1 * t11244 * t1655 + 0.40751569600000000001e1 * t5640 * t348 * t10451 + 0.22639760888888888889e1 * t4338 * t690 * t2362 - 0.10187892400000000000e2 * t5640 * t690 * t2388 + 0.324e3 * t3080 * t4054 + 0.972e3 * t1563 * t10709 - 0.7776e4 * t3150 * t10743 - 0.36e2 * t757 * t4380;
3040   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3041     v4rho3tau[0] = t8555 * t731 / 0.18e2 - t3069 * t1762 / 0.4e1 - 0.3e1 / 0.4e1 * t1202 * t4386 - 0.3e1 / 0.16e2 * t239 * t240 * (t11009 + t11040 + t11076 + t11113 + t11152 + t11184 + t11223 + t11264);
3042 
3043   t11277 = t764 * t1597;
3044   t11284 = t2379 * t664;
3045   t11287 = t3101 * t229;
3046   t11290 = t1219 * t493;
3047   t11299 = t1768 * t747;
3048   t11302 = t1226 * t3131;
3049   t11309 = t255 * t1597;
3050   t11313 = t20 * t1765 * t741;
3051   t11316 = -0.9e1 / 0.25e2 * t10296 * t1605 + 0.216e3 * t11277 * t1227 + 0.216e3 * t4440 * t3084 + 0.108e3 * t4440 * t3145 - 0.1296e4 * t11284 * t3152 - 0.48e2 * t11287 * t1212 - 0.48e2 * t11290 * t1212 - 0.48e2 * t5225 * t3091 - 0.24e2 * t3074 * t4446 - 0.24e2 * t3155 * t4446 - 0.12e2 * t1569 * t11299 + 0.108e3 * t1563 * t11302 - 0.1296e4 * t8731 * t4434 - 0.1296e4 * t8736 * t4434 - 0.48e2 * t11309 * t1212 + 0.1080e4 * t1563 * t11313;
3052   t11317 = t1209 * t1209;
3053   t11321 = t664 * t741;
3054   t11331 = t1774 * t763;
3055   t11336 = t4485 * t254;
3056   t11346 = t8655 * t229;
3057   t11353 = t4426 * t747;
3058   t11359 = 0.108e3 * t764 * t1150 * t11317 - 0.24e2 * t255 * t11321 * t505 - 0.12e2 * t4466 * t1159 - 0.12e2 * t4466 * t1155 - 0.6e1 * t4466 * t1162 + 0.54e2 * t11331 * t1151 - 0.24e2 * t1219 * t3951 - 0.12e2 * t11336 * t476 - 0.12e2 * t255 * t3957 * t1767 - 0.9e1 / 0.50e2 * t3906 * t3117 + 0.108e3 * t4423 * t3145 - 0.1296e4 * t11346 * t3152 + 0.648e3 * t3077 * t4427 + 0.648e3 * t3080 * t4427 + 0.324e3 * t1563 * t11353 + 0.171e3 / 0.1000e4 * t3053 * t2034 * t1105;
3059   t11375 = t1551 * t1551;
3060   t11384 = t2370 * t664;
3061   t11396 = t747 * t1765;
3062   t11398 = t1205 * t1209;
3063   t11400 = t19 * t11317;
3064   t11402 = t506 * t3131;
3065   t11404 = t741 * t1767;
3066   t11408 = 0.2e1 * t747 * t1767 + 0.4e1 * t505 * t3131 + 0.18e2 * t11299 + 0.4e1 * t11317 + 0.18e2 * t11396 + 0.72e2 * t11398 + 0.36e2 * t11400 + 0.36e2 * t11402 + 0.18e2 * t11404 + t1769 + t1773 + 0.36e2 * t4446 + 0.4e1 * t4479;
3067   t11409 = t11408 * t26;
3068   t11415 = -0.9e1 / 0.50e2 * t1192 * t648 * t3213 + 0.54e2 * t764 * t7336 * t1765 - 0.12e2 * t1219 * t3964 + 0.108e3 * t3109 * t3968 + 0.54e2 * t7360 * t2045 + 0.108e3 * t2370 * t4394 - 0.9e1 / 0.50e2 * t1192 * t11375 - 0.24e2 * t1219 * t3972 - 0.12e2 * t1219 * t3981 - 0.24e2 * t3101 * t1577 + 0.216e3 * t11384 * t1227 + 0.2e1 * t4486 * t493 + t1775 * t1186 + t11409 * t229 + t5174 * t1139 / 0.10e2 + 0.2e1 * t3141 * t664;
3069   t11420 = t4517 * t446;
3070   t11462 = 0.191387e6 / 0.1180980e7 * t52 * t9 * t788 - 0.73e2 / 0.4860e4 * t638 * t2020 * t747 + 0.146e3 / 0.3645e4 * t638 * t1528 * t1209 - 0.73e2 / 0.9720e4 * t638 * t639 * t3131 - 0.146e3 / 0.3645e4 * t638 * t269 * t1209 * t211 + 0.292e3 / 0.3645e4 * t638 * t5075 * t245 + 0.73e2 / 0.9720e4 * t638 * t45 * t3131 * t211 - 0.73e2 / 0.2430e4 * t638 * t5079 * t245 + 0.292e3 / 0.135e3 * t1121 * t1765 + 0.292e3 / 0.135e3 * t2027 * t747 + 0.1168e4 / 0.135e3 * t1539 * t1209;
3071   t11484 = 0.584e3 / 0.135e3 * t207 * t11317 + 0.584e3 / 0.135e3 * t643 * t3131 + 0.146e3 / 0.135e3 * t1124 * t1767 - 0.146e3 / 0.135e3 * t1121 * t1767 * t211 + 0.584e3 / 0.135e3 * t5092 * t245 - 0.292e3 / 0.135e3 * t5093 + 0.584e3 / 0.135e3 * t5095 + 0.292e3 / 0.135e3 * t5101 + t2033 - t2029 - 0.803e3 / 0.10935e5 * t638 * t3167 * t505 + 0.803e3 / 0.10935e5 * t638 * t782 * t505 * t211;
3072   t11485 = t11462 + t11484;
3073   t11495 = t1605 * t1551;
3074   t11507 = 0.4e1 * t1217 * t1597 + 0.2e1 * t511 * t3948 + t11420 * t468 / 0.5e1 + t3009 * t2034 / 0.10e2 - 0.4959e4 / 0.10000e5 * t8485 * t2013 * t1105 - 0.9e1 / 0.25e2 * t3050 * t4453 + t496 * t11485 / 0.10e2 + t1189 * t5103 / 0.5e1 + 0.171e3 / 0.1000e4 * t3053 * t2013 * t1139 - 0.12e2 * t4400 - 0.12e2 * t4420 + 0.171e3 / 0.250e3 * t3053 * t11495 - 0.9e1 / 0.100e3 * t1192 * t2034 * t1139 - t2056 - 0.12e2 * t2347 * t2051 - 0.24e2 * t757 * t4413 - 0.24e2 * t757 * t4417;
3075   t11510 = t229 * t747;
3076   t11528 = t2008 * t1104;
3077   t11546 = t4449 * t747;
3078   t11550 = t2380 * t1767 * t741;
3079   t11557 = 0.12e2 * t255 * t11299 - 0.108e3 * t764 * t11302 - 0.324e3 * t764 * t11353 + 0.48e2 * t255 * t11398 + 0.24e2 * t255 * t11402 - 0.54e2 * t764 * t11546 + 0.648e3 * t2379 * t11550 - 0.108e3 * t2370 * t4450 - 0.648e3 * t3109 * t3088 + 0.48e2 * t757 * t4443 + 0.24e2 * t757 * t4446 + 0.12e2 * t4511;
3080   t11559 = t7383 * t1765 * t741;
3081   t11565 = t21 * t1767 * t741;
3082   t11586 = -0.1080e4 * t764 * t11313 + 0.7776e4 * t2379 * t11559 - 0.324e3 * t764 * t11565 + 0.48e2 * t3101 * t1212 + 0.48e2 * t1219 * t3091 + 0.24e2 * t1219 * t3094 - 0.216e3 * t8652 * t1227 - 0.648e3 * t2370 * t4427 - 0.216e3 * t2370 * t4430 - 0.216e3 * t3109 * t3084 - 0.108e3 * t3109 * t3145 + 0.1296e4 * t8655 * t3152;
3083   t11590 = t4433 * t747;
3084   t11594 = t7462 * t1765 * t741;
3085   t11614 = -0.108e3 * t764 * t765 * t11317 + 0.24e2 * t255 * t11400 + 0.12e2 * t255 * t11404 + 0.648e3 * t2379 * t11590 - 0.9720e4 * t7461 * t11594 + 0.24e2 * t1219 * t3134 + 0.12e2 * t2347 * t1770 - 0.54e2 * t7360 * t2001 + 0.1296e4 * t7333 * t4434 + 0.12e2 * t4466 * t750 - 0.108e3 * t4513 + 0.24e2 * t4515;
3086   t11637 = -0.54e2 * t11331 * t1039 + 0.12e2 * t11336 * t248 + 0.12e2 * t255 * t11396 + 0.2592e4 * t5451 * t11398 - 0.1296e4 * t5454 * t11398 + 0.24e2 * t3101 * t1214 + 0.12e2 * t1219 * t3138 + 0.6e1 * t2347 * t1772 + 0.6e1 * t4466 * t752 + 0.24e2 * t757 * t4481 + 0.12e2 * t8647 * t508 - t11409 + t2007;
3087   t11639 = t11557 + t11586 + t11614 + t11637;
3088   t11670 = t764 * t1492;
3089   t11677 = 0.2e1 * t4486 * t403 + t11409 * t154 - 0.12e2 * t1219 * t3842 - 0.6e1 * t4466 * t778 - 0.12e2 * t2347 * t1784 - 0.12e2 * t255 * t1240 * t3131 - 0.9e1 / 0.100e3 * t1099 * t2014 + t3866 * t649 / 0.5e1 + t1099 * t2035 / 0.10e2 - 0.9e1 / 0.100e3 * t1047 * t2014 - 0.9e1 / 0.50e2 * t1049 * t2014 + t1775 * t1035 - 0.1296e4 * t9982 * t4434 + 0.108e3 * t1225 * t11302 - 0.1296e4 * t10002 * t4434 + 0.216e3 * t11670 * t1227 + 0.108e3 * t3891 * t4450 - 0.24e2 * t1219 * t3872;
3090   t11678 = t2370 * t623;
3091   t11691 = t2017 * t792;
3092   t11703 = t4682 * t35;
3093   t11713 = t5072 * t279;
3094   t11716 = t1262 * t1262;
3095   t11720 = t114 * t2632;
3096   t11721 = t2017 * t822;
3097   t11726 = 0.98e2 / 0.405e3 * t2637 * t1903 + 0.196e3 / 0.405e3 * t2640 * t1903 - 0.28e2 / 0.81e2 * t1266 * t3458 + 0.98e2 / 0.405e3 * t2653 * t1903 + 0.16037137653969132429e-3 * t4687 * t11691 - 0.132e3 / 0.125e3 * t7589 * t4533 + 0.24e2 / 0.25e2 * t2422 * t4536 + 0.24e2 / 0.25e2 * t3501 * t3322 + 0.70e2 / 0.81e2 * t4673 * t341 * t117 - 0.28e2 / 0.81e2 * t11703 * t349 + 0.22954231861131048960e-1 * t4800 * t4715 + 0.35740065093735711020e0 * t1894 * t782 * t117 - 0.28084912592592592594e0 * t1476 * t1280 - 0.17106280164233741258e-2 * t4687 * t11713 + 0.196e3 / 0.405e3 * t345 * t921 * t11716 - 0.38489130369525917830e-3 * t11720 * t11721 + 0.24e2 / 0.25e2 * t9818 * t1252;
3098   t11727 = t4708 * t920;
3099   t11741 = t335 * t920;
3100   t11744 = t342 * t920;
3101   t11765 = t1252 * t1262;
3102   t11770 = -0.31270740299155696907e-3 * t1991 * t11727 * t279 + 0.39088425373944621134e-4 * t4528 * t4678 - 0.21519592369810358400e-2 * t2564 * t49 * t1853 - 0.19494580960219478738e0 * t4796 * t269 * t117 - 0.56e2 / 0.81e2 * t9418 * t576 + 0.32074275307938264858e-3 * t11741 * t4688 + 0.32074275307938264858e-3 * t11744 * t4688 - 0.28e2 / 0.81e2 * t8996 * t576 - 0.56e2 / 0.81e2 * t3507 * t1263 - 0.28e2 / 0.81e2 * t8970 * t576 + 0.51489006419753086422e0 * t613 * t3810 - 0.11455098324263666021e-3 * t972 * t1907 - 0.11455098324263666021e-3 * t1009 * t1907 - 0.22910196648527332042e-3 * t965 * t1907 - 0.4e1 / 0.5e1 * t3504 * t1262 + 0.12e2 / 0.25e2 * t1032 * t11716 - 0.264e3 / 0.125e3 * t2428 * t11765 - 0.56e2 / 0.81e2 * t3445 * t1263;
3103   t11787 = t9265 * t3318;
3104   t11803 = t3927 * t3326;
3105   t11808 = t10327 * t1252;
3106   t11811 = t4990 * t396;
3107   t11814 = 0.98e2 / 0.405e3 * t4793 * t922 - 0.2e1 / 0.5e1 * t9815 * t522 - t4803 * t792 / 0.5e1 + 0.40938620016460905352e-1 * t1269 * t1661 * t1400 + 0.40938620016460905352e-1 * t4826 * t3628 + 0.11233965037037037037e0 * t3476 * t1249 + 0.11233965037037037037e0 * t1395 * t3483 - 0.70773979733333333333e-1 * t4810 * t11787 - 0.78637755259259259258e-1 * t807 * t4821 - 0.20595602567901234567e0 * t1395 * t3486 + 0.14416921797530864197e0 * t397 * t2672 * t1987 + 0.29489158222222222222e-1 * t397 * t398 * t920 * t11716 + 0.14744579111111111111e-1 * t2628 * t1988 + 0.29489158222222222222e-1 * t4810 * t11803 - 0.42127368888888888888e-1 * t3476 * t1390 - 0.15727551051851851852e0 * t4810 * t11808 - 0.21063684444444444444e-1 * t11811 * t400;
3108   t11826 = t3927 * t3322;
3109   t11838 = t1793 * t822;
3110   t11845 = t1793 * t792;
3111   t11853 = t522 * t3333;
3112   t11864 = t31 * t1286 * t4579;
3113   t11876 = 0.11e2 / 0.4050e4 * t32 * t812 * t1794 + 0.77e2 / 0.9000e4 * t1287 * t9080 * t4533 - 0.11e2 / 0.1350e4 * t1287 * t3310 * t4536 + 0.2387e4 / 0.60000e5 * t1287 * t9071 * t11838 - 0.77e2 / 0.1500e4 * t1287 * t3317 * t11765 - 0.77e2 / 0.6000e4 * t1287 * t3317 * t11845 + 0.11e2 / 0.900e3 * t32 * t34 * t821 * t11716 + 0.11e2 / 0.900e3 * t1287 * t1288 * t11853 - 0.22582288289307166222e-2 * t1287 / t43 / t786 * t266 * t1801 - 0.74521551354713648533e-3 * t11864 * t4588 - 0.13808405103961646640e-3 * t4585 * t2455 * t49 * t1852 * t822 + 0.65754310018864984000e-4 * t4585 * t4586 * t1852 * t792;
3114   t11877 = my_piecewise3(t68, 0, t11876);
3115   t11894 = t1297 * t1297;
3116   t11898 = t71 * t11877 * t78;
3117   t11906 = t859 * t11894 * t78;
3118   t11920 = t859 * t4592 * t323;
3119   t11923 = t902 * t1806 * t861;
3120   t11925 = t1828 * t861;
3121   t11929 = t2533 * t1806;
3122   t11934 = -0.8e1 * t11894 * t79 - t11898 + t867 * t11894 * t78 / 0.2e1 - 0.2e1 * t76 * t11894 * t78 - 0.4e1 * t11906 + t291 * t11877 * t78 / 0.2e1 - 0.8e1 * t4769 * t3339 - 0.4e1 * t3582 * t1806 - 0.8e1 * t1323 * t4592 - 0.4e1 * t295 * t11877 - 0.4e1 * t11920 + 0.15e2 / 0.2e1 * t11923 - 0.75e2 / 0.2e1 * t11925 + t4761 * t864 / 0.4e1 + t11929 * t861 / 0.8e1 + t1320 * t3392 / 0.2e1;
3123   t11945 = t867 * t4592;
3124   t11949 = t7738 * t1811 * t861;
3125   t11951 = t4651 * t864;
3126   t11955 = 0.5e1 / 0.2e1 * t2512 * t1806 * t861;
3127   t11956 = t1812 * t864;
3128   t11958 = t4731 * t861;
3129   t11960 = t1314 * t3392;
3130   t11963 = 0.5e1 / 0.2e1 * t4648 * t864;
3131   t11967 = 0.10e2 * t3378 * t3356;
3132   t11968 = t3398 * t3356;
3133   t11970 = t4766 * t864 / 0.8e1 + t7692 * t1811 * t861 / 0.16e2 - 0.2e1 * t605 * t3392 - t908 * t1875 - 0.2e1 * t381 * t4641 + t11945 * t323 / 0.2e1 - 0.19e2 / 0.8e1 * t11949 - 0.2e1 * t11951 - t11955 + 0.15e2 / 0.2e1 * t11956 + 0.85e2 / 0.4e1 * t11958 - 0.4e1 * t11960 - t11963 + t3579 * t3356 / 0.2e1 - t11967 + 0.30e2 * t11968;
3134   t11998 = t2540 * t4617;
3135   t12000 = 0.2e1 * t69 * (t11934 + t11970) + 0.2e1 * t832 * t1839 + 0.4e1 * t285 * t4779 + 0.4e1 * t527 * t3592 + 0.4e1 * t3339 * t539 + 0.8e1 * t1297 * t1331 + 0.2e1 * t1806 * t957 + 0.4e1 * t4592 * t300 + 0.2e1 * t11877 * t82 + 0.4e1 * t932 * t11894 - t902 * t11894 * t78 - t287 * t11877 - t9191 * t3356 + 0.14e2 * t1320 * t3356 - 0.24e2 * t11998;
3136   t12008 = t527 * t3339;
3137   t12016 = t285 * t4592;
3138   t12019 = t832 * t1806;
3139   t12027 = t940 * t1875;
3140   t12029 = t929 * t1872;
3141   t12031 = t7729 * t1872;
3142   t12033 = t832 * t1811;
3143   t12034 = t4734 * t12033;
3144   t12036 = 0.7e1 / 0.2e1 * t946 * t1875 - t4731 * t864 / 0.4e1 - t7770 * t1811 * t861 / 0.8e1 + 0.4e1 * t932 * t12008 - t3544 * t1875 / 0.2e1 - t1301 * t4641 - t3547 * t1875 / 0.4e1 + 0.4e1 * t932 * t12016 + 0.2e1 * t932 * t12019 + 0.7e1 / 0.2e1 * t1828 * t864 + 0.15e2 / 0.4e1 * t4766 * t861 - t3398 * t3392 - 0.6e1 * t12027 + 0.24e2 * t12029 - 0.24e2 * t12031 - 0.6e1 * t12034;
3145   t12046 = t1845 * t1031;
3146   t12049 = t3428 * t10;
3147   t12053 = t4674 * t35;
3148   t12070 = -0.1568e4 / 0.675e3 * t9872 * t3463 * t3322 - 0.10916965337722908094e0 * t572 * t4240 * t1400 + 0.20469310008230452676e-1 * t4826 * t3631 + 0.58978316444444444444e-1 * t388 * t631 * t4811 + 0.58978316444444444444e-1 * t4810 * t11826 + (-0.8e1 / 0.3e1 * t11877 * t85 - 0.16e2 / 0.3e1 * t4592 * t303 - 0.8e1 / 0.3e1 * t1806 * t960 - 0.16e2 / 0.3e1 * t3339 * t542 - 0.32e2 / 0.3e1 * t1297 * t1334 - 0.16e2 / 0.3e1 * t527 * t3595 - 0.8e1 / 0.3e1 * t832 * t1842 - 0.16e2 / 0.3e1 * t285 * t4782 - 0.8e1 / 0.3e1 * t69 * (t12000 + t12036)) * t90 + 0.6e1 / 0.25e2 * t7917 * t1793 - 0.2e1 / 0.5e1 * t1484 * t3333 + 0.6e1 / 0.25e2 * t12046 * t822 + 0.36552339300411522634e-1 * t12049 * t45 * t117 - 0.28e2 / 0.81e2 * t12053 * t349 - 0.14e2 / 0.81e2 * t4793 * t1015 + 0.56169825185185185185e-1 * t4818 * t802 - 0.10531842222222222222e-1 * t4818 * t794 - 0.49126344019753086422e-1 * t4826 * t3612 + 0.14744579111111111111e-1 * t4818 * t1027 - 0.21063684444444444444e-1 * t1395 * t3494 - 0.21063684444444444444e-1 * t9852 * t620;
3149   t12073 = t1992 * t42;
3150   t12078 = t1993 * t2632;
3151   t12086 = t4785 * t309;
3152   t12091 = t1852 * t788;
3153   t12125 = t557 * t3339;
3154   t12135 = t1811 * t838;
3155   t12136 = t12135 * t78;
3156   t12139 = t1875 * t838;
3157   t12153 = t864 * t1806;
3158   t12155 = t323 * t4592;
3159   t12160 = -0.3e1 * t860 * t12125 + t3784 * t3356 + t3784 * t3360 / 0.2e1 + t9729 * t3350 / 0.4e1 + 0.12e2 * t8088 * t4614 - 0.9e1 / 0.4e1 * t8114 * t12136 + 0.6e1 * t2720 * t12139 + 0.48e2 * t380 * t1812 * t838 + 0.8e1 * t380 * t4758 * t285 + 0.4e1 * t380 * t1825 * t832 + 0.7e1 * t2717 * t12139 - t903 * t12153 - 0.2e1 * t903 * t12155 - 0.9e1 / 0.4e1 * t2755 * t12139;
3160   t12186 = t551 * t3355;
3161   t12188 = t1863 * t838;
3162   t12198 = t121 * t11877;
3163   t12200 = t69 * t11877;
3164   t12202 = 0.30720e5 * t123 * t11877 + 0.1843200e7 * t1865 * t838 + 0.614400e6 * t1867 * t838 + 0.153600e6 * t1921 * t832 + 0.307200e6 * t4891 * t285 + 0.307200e6 * t583 * t3339 + 0.2457600e7 * t553 * t3355 - 0.138240e6 * t12186 - 0.34560e5 * t12188 - 0.5760e4 * t12198 + 0.448e3 * t12200;
3165   t12207 = t4883 * t285;
3166   t12209 = t1917 * t832;
3167   t12216 = t1915 * t832;
3168   t12218 = t75 * t11894;
3169   t12220 = t581 * t3339;
3170   t12222 = 0.307200e6 * t93 * t11894 + 0.614400e6 * t1919 * t832 + 0.896e3 * t11894 + 0.896e3 * t12008 + 0.896e3 * t12016 + 0.448e3 * t12019 - 0.34560e5 * t12135 - 0.34560e5 * t12207 - 0.17280e5 * t12209 - 0.34560e5 * t12216 - 0.34560e5 * t12218 - 0.34560e5 * t12220;
3171   t12232 = t1304 * t1297;
3172   t12263 = -0.17694720e8 * t125 * t4592 * t285 - 0.17694720e8 * t1419 * t3339 + 0.1536e4 * t1863 * t832 - 0.34560e5 * t1865 * t832 - 0.11520e5 * t1867 * t832 + 0.808290e6 * t1921 * t838 - 0.371589120e9 * t1923 * t838 - 0.61931520e8 * t1925 * t838 + 0.808290e6 * t1950 * t832 + 0.161658e6 * t1952 * t832 + 0.3072e4 * t4602 * t285 - 0.23040e5 * t4610 * t285 + 0.323316e6 * t4979 * t285 + 0.3072e4 * t551 * t3339 + 0.323316e6 * t597 * t3339 - 0.61931520e8 * t4901 * t832 - 0.8847360e7 * t4906 * t832 + 0.6144e4 * t12232;
3173   t12298 = -0.1105920e7 * t127 * t11877 + 0.26943e5 * t134 * t11877 + 0.768e3 * t75 * t11877 - 0.2880e4 * t93 * t11877 - 0.23040e5 * t121 * t11894 + 0.323316e6 * t123 * t11894 - 0.17694720e8 * t125 * t11894 + 0.3072e4 * t69 * t11894 + 0.1536e4 * t838 * t1806 - 0.69120e5 * t1915 * t838 - 0.34560e5 * t1917 * t838 + 0.3233160e7 * t1919 * t838 - 0.23040e5 * t553 * t3339 - 0.138240e6 * t581 * t3355 + 0.3233160e7 * t583 * t3355 - 0.247726080e9 * t585 * t3355 - 0.8e1 * t11877 + 0.1536e4 * t12033;
3174   t12301 = t69 * t1954;
3175   t12308 = t2752 * t4622 / 0.2e1 + t868 * t12155 / 0.2e1 + t868 * t12153 / 0.4e1 + t2729 * t12139 / 0.8e1 + t2752 * t4617 + 0.288e3 * t871 * t11894 + 0.288e3 * t838 * t599 * t527 + 0.144e3 * t3730 * t1806 + 0.480e3 * t70 * t11894 * t73 + 0.24e2 * t121 * (t12202 + t12222) + (t12263 + t12298) * t78 + 0.144e3 * t12301 * t838 - 0.960e3 * t71 * t11894 * t78 - 0.1440e4 * t11998;
3176   t12310 = t12033 * t78;
3177   t12340 = t11894 * t78;
3178   t12343 = t2729 * t12310 / 0.8e1 + t8066 * t12136 / 0.16e2 - 0.3e1 * t2723 * t4622 - 0.3e1 * t860 * t12155 - 0.3e1 / 0.2e1 * t860 * t12153 - t2741 * t12310 / 0.2e1 - t8076 * t12136 / 0.4e1 - 0.12e2 * t380 * t1822 * t832 + 0.8e1 * t380 * t532 * t3339 + 0.2880e4 * t381 * t4617 + t8063 * t4614 / 0.4e1 + 0.8e1 * t380 * t291 * t11894 + 0.144e3 * t871 * t12019 - 0.2e1 * t903 * t12340;
3179   t12346 = t1931 * t859;
3180   t12366 = t1931 * t867;
3181   t12372 = t11877 * t78;
3182   t12377 = -0.3e1 * t860 * t12340 - 0.3e1 / 0.2e1 * t12346 * t861 + t868 * t12340 / 0.2e1 + 0.480e3 * t561 * t3777 + 0.720e3 * t1872 * t908 + 0.240e3 * t1000 * t1960 + 0.480e3 * t327 * t4943 + 0.240e3 * t98 * t11877 * t73 - 0.480e3 * t1837 * t864 + t4948 * t864 / 0.2e1 + t12366 * t861 / 0.4e1 + t2747 * t1875 / 0.2e1 + t857 * t4641 + t364 * t12372 / 0.2e1 + t8056 * t1872 / 0.4e1;
3183   t12388 = t2741 * t527;
3184   t12409 = 0.288e3 * t871 * t12008 + 0.288e3 * t3733 * t3359 - 0.9e1 * t9546 * t3356 + t9543 * t3356 / 0.2e1 - 0.2e1 * t12388 * t3356 - 0.48e2 * t9557 * t12232 + 0.288e3 * t871 * t12016 - 0.2880e4 * t905 * t1872 + 0.720e3 * t951 * t1875 + t9788 * t557 - 0.960e3 * t537 * t3392 - 0.2e1 * t380 * t76 * t11877 - 0.960e3 * t298 * t4641 + 0.2e1 * t3780 * t1370;
3185   t12423 = t4911 * t291;
3186   t12436 = t1426 * t3392 - 0.3e1 / 0.2e1 * t8094 * t1872 + 0.576e3 * t4955 * t4598 + 0.576e3 * t2708 * t4598 + 0.576e3 * t9582 * t1304 + 0.576e3 * t3733 * t3355 + 0.288e3 * t2708 * t4600 + t12423 * t323 - 0.360e3 * t12027 + 0.2640e4 * t12029 - 0.240e3 * t12031 - 0.360e3 * t12034 - 0.12e2 * t380 * t4651 * t838 - 0.48e2 * t8081 * t12136 - 0.6e1 * t3751 * t3356;
3187   t12463 = t75 * t4981;
3188   t12468 = -0.3e1 * t3751 * t3360 - 0.9e1 / 0.2e1 * t9781 * t3350 + t9724 * t1367 + t868 * t12125 / 0.2e1 - 0.6e1 * t9778 * t1367 + 0.144e3 * t832 * t136 * t1811 + 0.288e3 * t285 * t374 * t1811 + 0.144e3 * t7950 * t1811 + 0.144e3 * t9566 * t527 + 0.288e3 * t3742 * t1297 + 0.144e3 * t1443 * t3339 + 0.72e2 * t2711 * t1806 + 0.144e3 * t12463 * t285 + 0.72e2 * t4952 * t832;
3189   t12500 = 0.144e3 * t874 * t4592 + 0.72e2 * t367 * t11877 + 0.28e2 * t2717 * t527 * t3356 + 0.24e2 * t9540 * t3356 - 0.30e2 * t868 * t12136 - t2741 * t12139 / 0.2e1 + 0.7e1 * t2717 * t12310 + 0.15e2 / 0.2e1 * t8084 * t12136 - 0.2e1 * t903 * t12125 - 0.9e1 / 0.2e1 * t8097 * t4614 - 0.9e1 / 0.4e1 * t2755 * t12310 + 0.12e2 * t9769 * t3350 + 0.6e1 * t2720 * t12310 + 0.75e2 / 0.4e1 * t8091 * t12136 - 0.6e1 * t2723 * t4617;
3190   t12512 = t1852 * t58 * t792;
3191   t12519 = -0.10051309381871474006e-2 * t1991 / t12073 * t347 - 0.46906110448733545361e-4 * t1991 * t12078 * t822 + 0.12218771545881243756e-2 * t342 * t4691 + 0.12218771545881243756e-2 * t335 * t4691 - 0.2e1 / 0.5e1 * t12086 * t279 + 0.52659211111111111112e-1 * t3797 * t616 - 0.72688400893581655040e-1 * t1851 * t12091 - 0.13960151919265936119e-4 * t914 * sigma[0] * t1994 + 0.12e2 / 0.25e2 * t3501 * t3326 - 0.66e2 / 0.125e3 * t2428 * t11845 + 0.12e2 / 0.25e2 * t1032 * t11853 - 0.38692776561957271893e-2 * t114 * t1906 * t788 + 0.35e2 / 0.81e2 * t1890 * t971 * t117 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t11877 * t144 + 0.16e2 / 0.7e1 * t4592 * t384 + 0.8e1 / 0.7e1 * t1806 * t911 + 0.16e2 / 0.7e1 * t3339 * t608 + 0.32e2 / 0.7e1 * t1297 * t1471 + 0.16e2 / 0.7e1 * t527 * t3792 + 0.8e1 / 0.7e1 * t832 * t1973 + 0.16e2 / 0.7e1 * t285 * t4986 + 0.8e1 / 0.7e1 * t69 * (t12160 + t12308 + t12343 + t12377 + t12409 + t12436 + t12468 + t12500)) * t35 * t39 * t151 + 0.25823510843772430080e-2 * t5009 * t12512 - 0.21063684444444444444e-1 * t149 * t3494 - 0.21063684444444444444e-1 * t916 * t620;
3192   t12541 = t1852 * t58 * t822;
3193   t12545 = t1852 * t275 * t279;
3194   t12564 = -0.42127368888888888888e-1 * t389 * t1390 + 0.20469310008230452676e-1 * t1895 * t3804 + 0.77978323840877914954e-1 * t3521 * t1900 - 0.392e3 / 0.675e3 * t345 * t2633 * t11845 + 0.392e3 / 0.405e3 * t1018 * t4997 - 0.21063684444444444445e-1 * t613 * t794 + 0.77978323840877914954e-1 * t1275 * t5000 + 0.77978323840877914953e-1 * t4712 * t1481 - 0.29241871440329218108e-1 * t4797 * t1481 - 0.56811723856299346176e-2 * t2428 * t49 * t12541 - 0.27545078233357258752e-1 * t5009 * t12545 - 0.784e3 / 0.675e3 * t1018 * t4994 + 0.51647021687544860160e-2 * t2422 * t49 * t5011 - 0.20595602567901234567e0 * t149 * t3486 - 0.14042456296296296297e0 * t4991 * t393 + 0.6664e4 / 0.3375e4 * t345 * t7584 * t11838 - 0.14296026037494284408e0 * t3518 * t1900 + 0.11233965037037037037e0 * t389 * t1249;
3195   t12570 = t40 * t3493;
3196   t12611 = 0.1536e4 * t12188;
3197   t12612 = 0.1536e4 * t12207;
3198   t12613 = 0.768e3 * t12209;
3199   t12614 = 0.1536e4 * t12216;
3200   t12615 = 0.1536e4 * t12220;
3201   t12616 = 0.256e3 * t12198;
3202   t12621 = 0.1536e4 * t12135;
3203   t12622 = 0.1536e4 * t12218;
3204   t12631 = t4612 * t291;
3205   t12633 = 0.10e2 * t70 * t11877 * t73 + t12611 + t12612 + t12613 + t12614 + t12615 + t12616 - 0.72e2 * t12200 - 0.72e2 * t12019 - 0.144e3 * t12016 - 0.144e3 * t12008 + t12621 + t12622 - 0.10e2 * t11898 - 0.10e2 * t11906 + t9094 * t3356 / 0.2e1 - 0.9e1 * t9097 * t3356 + 0.24e2 * t9100 * t3356 + t12631 * t323;
3206   t12636 = t1869 * t859;
3207   t12653 = t1869 * t867;
3208   t12664 = 0.6144e4 * t12186;
3209   t12665 = 0.80e2 * t11894 + 0.80e2 * t12008 + 0.40e2 * t12019 + 0.80e2 * t12016 + 0.40e2 * t12200 - t12621 - t12664 - t12614 - t12622 - t12615 - t12611 - t12612 - t12613 - t12616;
3210   t12672 = -0.3e1 * t990 * t12340 - 0.3e1 / 0.2e1 * t12636 * t861 + t995 * t12340 / 0.2e1 + t1362 * t3392 - 0.3e1 / 0.2e1 * t7849 * t1872 + t2519 * t1875 / 0.2e1 + t988 * t4641 + t322 * t12372 / 0.2e1 + t7823 * t1872 / 0.4e1 + t4656 * t864 / 0.2e1 + t12653 * t861 / 0.4e1 + t9165 * t557 + 0.2e1 * t3381 * t1370 + t12665 * t78 + t12664 - 0.10e2 * t11920 + 0.20e2 * t11923 - 0.100e3 * t11925 - 0.5e1 / 0.4e1 * t11949 - 0.5e1 * t11951;
3211   t12705 = -t11955 + 0.20e2 * t11956 + 0.55e2 / 0.2e1 * t11958 - 0.10e2 * t11960 - t11963 + t995 * t12125 / 0.2e1 + t7828 * t4614 / 0.4e1 + t2534 * t12310 / 0.8e1 - 0.144e3 * t11894 + t7837 * t12136 / 0.16e2 - 0.6e1 * t9212 * t1367 - 0.6e1 * t3373 * t3356 - 0.3e1 * t3373 * t3360 - 0.9e1 / 0.2e1 * t9215 * t3350 + t9172 * t1367 - 0.3e1 / 0.2e1 * t990 * t12153 - 0.9e1 / 0.4e1 * t2527 * t12139 + t2524 * t4622 / 0.2e1 + t995 * t12155 / 0.2e1 + t995 * t12153 / 0.4e1;
3212   t12741 = t2534 * t12139 / 0.8e1 + t2524 * t4617 - 0.9e1 / 0.2e1 * t7852 * t4614 - 0.9e1 / 0.4e1 * t2527 * t12310 - 0.9e1 / 0.4e1 * t7831 * t12136 - 0.3e1 * t2503 * t4622 - 0.3e1 * t990 * t12155 + 0.12e2 * t7843 * t4614 + 0.6e1 * t2494 * t12310 + 0.75e2 / 0.4e1 * t7846 * t12136 - 0.6e1 * t2503 * t4617 - 0.3e1 * t990 * t12125 + t3385 * t3356 + t3385 * t3360 / 0.2e1 + t9199 * t3350 / 0.4e1 + 0.12e2 * t9194 * t3350 + 0.6e1 * t2494 * t12139 - 0.30e2 * t995 * t12136 - t11967 + 0.80e2 * t11968;
3213   t12754 = t69 * t4670;
3214   t12761 = t527 * t331;
3215   t12764 = 0.96e2 * t1350 * t3339 + 0.48e2 * t3295 * t1806 + 0.96e2 * t3298 * t1806 + 0.96e2 * t1343 * t4592 + 0.48e2 * t2436 * t1806 + 0.192e3 * t3344 * t1297 + 0.192e3 * t4558 * t1297 + 0.96e2 * t9026 * t527 + 0.96e2 * t832 * t565 * t527 + 0.192e3 * t285 * t1382 * t527 + 0.96e2 * t4553 * t3339 + 0.24e2 * t75 * (t12633 + t12672 + t12705 + t12741) + 0.48e2 * t4595 * t832 + 0.96e2 * t977 * t4592 + 0.48e2 * t313 * t11877 + 0.48e2 * t838 * t1887 + 0.96e2 * t12754 * t285 + 0.48e2 * t1811 * t1005 + 0.96e2 * t11894 * t101 + 0.192e3 * t12761 * t1297;
3216   t12785 = 0.11233965037037037037e0 * t149 * t3483 - 0.14620935720164609054e-1 * t1895 * t3807 - 0.14620935720164609054e-1 * t573 * t12570 + 0.392e3 / 0.405e3 * t3445 * t1400 + 0.392e3 / 0.405e3 * t1012 * t4997 + 0.196e3 / 0.405e3 * t345 * t921 * t11853 - 0.29241871440329218108e-1 * t1270 * t5000 - 0.784e3 / 0.675e3 * t1012 * t4994 + 0.35e2 / 0.81e2 * t12764 * t113 * t117 - 0.14154795946666666666e0 * t9264 * t9265 * t11765 + 0.25744503209876543210e0 * t1978 * t798 + 0.392e3 / 0.405e3 * t3507 * t1400 + 0.392e3 / 0.405e3 * t1266 * t3628 + 0.196e3 / 0.405e3 * t1266 * t3631 - 0.14620935720164609054e-1 * t3515 * t1900 - 0.784e3 / 0.675e3 * t1266 * t3612 + 0.11233965037037037038e0 * t613 * t802;
3217   t12832 = -0.42127368888888888890e-1 * t1476 * t400 + 0.29489158222222222223e-1 * t613 * t1027 - 0.70773979733333333332e-1 * t807 * t4696 + 0.58978316444444444444e-1 * t807 * t4700 + 0.29489158222222222222e-1 * t1395 * t3473 + 0.58978316444444444444e-1 * t3476 * t1246 + 0.58978316444444444444e-1 * t1395 * t3442 - 0.70773979733333333333e-1 * t1395 * t3465 + 0.12031576554666666666e0 * t397 * t398 * t7583 * t1793 * t822 - 0.15727551051851851852e0 * t1395 * t3468 + 0.18873061262222222222e0 * t397 * t801 * t4695 - 0.15727551051851851852e0 * t397 * t801 * t4699 - 0.35386989866666666666e-1 * t397 * t398 * t4694 * t792 + 0.29489158222222222222e-1 * t397 * t398 * t1244 * t3333 + 0.1056e4 / 0.625e3 * t7595 * t11838 - 0.132e3 / 0.125e3 * t9409 * t3318 + 0.22336243070825497790e-3 * t4528 * t4709 + 0.19544212686972310567e-4 * t1991 * t4677 * t792;
3218   t12857 = t757 * t623;
3219   t12868 = t255 * t1492;
3220   t12872 = 0.216e3 * t11678 * t1227 + 0.648e3 * t5111 * t3088 + t27 * (t11726 + t11770 + t11814 + t12070 + t12519 + t12564 + t12785 + t12832) - 0.24e2 * t255 * t774 * t11317 + t408 * t5104 / 0.5e1 + t440 * t5104 / 0.5e1 - 0.9e1 / 0.50e2 * t194 * t1104 * t11375 - 0.48e2 * t5057 * t3091 - 0.24e2 * t5057 * t3094 + t628 * t3256 / 0.5e1 + t2009 * t1140 / 0.10e2 - 0.24e2 * t1233 * t11402 - 0.48e2 * t12857 * t1212 - 0.24e2 * t1219 * t3860 - 0.4959e4 / 0.10000e5 * t194 * t8329 * t2013 * t1105 - 0.24e2 * t3101 * t1236 - 0.48e2 * t12868 * t1212 - 0.24e2 * t5060;
3221   t12895 = t403 * t245;
3222   t12914 = 0.108e3 * t5062 + t5137 * t469 / 0.5e1 + t5134 * t469 / 0.5e1 - 0.12e2 * t4466 * t771 - 0.24e2 * t3101 * t1230 - 0.12e2 * t1219 * t3875 - 0.12e2 * t11336 * t257 - 0.48e2 * t1233 * t11398 - 0.9e1 / 0.50e2 * t194 * t1104 * t5103 * t468 + 0.171e3 / 0.250e3 * t5536 * t11495 - 0.24e2 * t255 * t12895 * t1765 - 0.24e2 * t757 * t5162 - 0.24e2 * t757 * t5140 + 0.4e1 * t1217 * t1492 + 0.2e1 * t3141 * t623 - 0.24e2 * t3888 * t4446 + t194 * t446 * t11485 / 0.10e2 - 0.24e2 * t4525 * t3094;
3223   t12917 = t8652 * t154;
3224   t12925 = t1219 * t403;
3225   t12931 = t3109 * t403;
3226   t12938 = t3101 * t154;
3227   t12959 = 0.648e3 * t5030 * t3088 + 0.216e3 * t12917 * t1227 - 0.12e2 * t2347 * t1787 - 0.12e2 * t255 * t8266 * t1765 - 0.48e2 * t12925 * t1212 - 0.24e2 * t255 * t3871 * t1209 + 0.216e3 * t12931 * t1227 - 0.648e3 * t3896 * t11590 + 0.9720e4 * t10028 * t11594 - 0.48e2 * t12938 * t1212 - 0.9e1 / 0.100e3 * t2009 * t1106 - 0.24e2 * t757 * t5157 + 0.54e2 * t764 * t8349 * t1765 + 0.54e2 * t7360 * t1781 + 0.108e3 * t2370 * t5123 - 0.24e2 * t1219 * t3853 - 0.24e2 * t757 * t5130 + 0.2e1 * t4517 * t439 * t215;
3228   t12964 = t5028 * t20;
3229   t12999 = t154 * t747;
3230   t13003 = t2008 * t1098 * t215 - 0.12e2 * t255 * t12964 * t245 + 0.54e2 * t11331 * t767 - 0.12e2 * t8647 * t513 + 0.648e3 * t3883 * t4427 + 0.2e1 * t251 * t5028 + t11639 * t193 * t215 - 0.24e2 * t3101 * t1241 - t1792 - 0.12e2 * t757 * t5114 + 0.171e3 / 0.500e3 * t440 * t5047 + 0.171e3 / 0.500e3 * t628 * t3286 + 0.171e3 / 0.1000e4 * t194 * t2957 * t2034 * t1105 + 0.171e3 / 0.500e3 * t408 * t5047 + t1047 * t2035 / 0.10e2 + t1049 * t2035 / 0.5e1 - 0.6e1 * t255 * t2984 * t1767 - 0.12e2 * t255 * t12999 * t1765;
3231   t13037 = t623 * t741;
3232   t13043 = -0.6e1 * t2347 * t1790 + 0.2e1 / 0.5e1 * t1507 * t1552 - 0.12e2 * t5115 + 0.216e3 * t5111 * t3084 + 0.108e3 * t764 * t766 * t11317 + 0.648e3 * t3891 * t4427 - 0.24e2 * t3847 * t4446 - 0.9e1 / 0.50e2 * t628 * t3263 - 0.9e1 / 0.25e2 * t1507 * t1516 - 0.9e1 / 0.25e2 * t628 * t3269 - 0.9e1 / 0.25e2 * t1505 * t1516 - 0.9e1 / 0.100e3 * t194 * t5042 * t1139 + 0.216e3 * t3883 * t4430 + 0.324e3 * t1225 * t11353 - 0.7776e4 * t3896 * t11559 + 0.216e3 * t3891 * t4430 - 0.24e2 * t255 * t13037 * t505 - 0.12e2 * t1233 * t11299;
3233   t13062 = t1997 * t765;
3234   t13070 = t3151 * t3127;
3235   t13073 = t3087 * t3127;
3236   t13084 = 0.324e3 * t1225 * t11565 - 0.48e2 * t3847 * t4443 + 0.54e2 * t1225 * t11546 - 0.648e3 * t3896 * t11550 - 0.48e2 * t3888 * t4443 + 0.1080e4 * t1225 * t11313 - 0.12e2 * t757 * t5034 + t755 * t1997 - 0.24e2 * t1219 * t3834 + 0.54e2 * t764 * t13062 * t741 - 0.12e2 * t4466 * t775 + 0.2e1 / 0.5e1 * t1505 * t1552 - 0.2592e4 * t3896 * t13070 + 0.1296e4 * t1225 * t13073 - 0.12e2 * t5143 + 0.108e3 * t3883 * t4450 - 0.6e1 * t255 * t5033 * t747 - 0.9e1 / 0.25e2 * t408 * t5039;
3237   t13097 = t1997 * t19;
3238   t13119 = t8655 * t154;
3239   t13124 = t2379 * t623;
3240   t13131 = -0.9e1 / 0.25e2 * t440 * t5039 - 0.9e1 / 0.50e2 * t440 * t5043 + 0.171e3 / 0.1000e4 * t194 * t5046 * t1139 - 0.9e1 / 0.50e2 * t194 * t1515 * t3213 - 0.9e1 / 0.50e2 * t408 * t5043 - 0.12e2 * t255 * t13097 * t741 + t3869 * t649 / 0.5e1 + 0.2e1 / 0.5e1 * t3863 * t649 - 0.12e2 * t255 * t3833 * t1767 + 0.2e1 * t511 * t3819 + 0.108e3 * t3109 * t3857 - 0.12e2 * t1219 * t3837 - 0.12e2 * t255 * t9940 * t505 + 0.108e3 * t5030 * t3145 - 0.1296e4 * t13119 * t3152 - 0.48e2 * t4525 * t3091 - 0.1296e4 * t13124 * t3152 + 0.216e3 * t5030 * t3084 + 0.108e3 * t5111 * t3145;
3241   t13140 = t757 * t664;
3242   t13148 = -0.12e2 * t255 * t11510 * t1765 - 0.6e1 * t2347 * t2054 - 0.12e2 * t757 * t4399 - 0.12e2 * t1219 * t3975 - 0.24e2 * t1219 * t3978 + t1600 * t3213 / 0.5e1 + t10379 * t648 / 0.5e1 - 0.9e1 / 0.50e2 * t3050 * t4391 - 0.9e1 / 0.100e3 * t11528 * t1105 + t11639 * t215 - p->cam_beta * (t11677 + t12872 + t12914 + t12959 + t13003 + t13043 + t13084 + t13131) - 0.648e3 * t3150 * t11590 + 0.9720e4 * t8722 * t11594 - 0.48e2 * t13140 * t1212 + 0.171e3 / 0.500e3 * t10284 * t3961 - 0.12e2 * t255 * t10250 * t505;
3243   t13162 = t2070 * t19;
3244   t13172 = t8652 * t229;
3245   t13175 = t3109 * t493;
3246   t13189 = -0.12e2 * t255 * t1576 * t3131 + 0.2e1 / 0.5e1 * t3990 * t1551 - 0.24e2 * t757 * t4463 - 0.48e2 * t3074 * t4443 - 0.48e2 * t3155 * t4443 - 0.48e2 * t1569 * t11398 - 0.12e2 * t255 * t13162 * t741 - 0.24e2 * t757 * t4408 - 0.24e2 * t5225 * t3094 + 0.648e3 * t4423 * t3088 + 0.216e3 * t13172 * t1227 + 0.216e3 * t13175 * t1227 + 0.216e3 * t4423 * t3084 - 0.24e2 * t1569 * t11402 - 0.24e2 * t1219 * t3958 - 0.24e2 * t255 * t3971 * t1209 - 0.48e2 * t4437 * t3091;
3247   t13235 = 0.25823510843772430080e-2 * t5185 * t11691 + 0.19031797421124828532e0 * t638 * t3923 * t1262 - 0.35684620164609053498e-1 * t638 * t1587 * t3333 - 0.33474921464149446400e-2 * t3028 * t49 * t1853 - 0.34891628605395518976e0 * t638 * t10336 * t522 + 0.35706582895092742826e-1 * t5204 * t4715 - 0.72688400893581655040e-1 * t2059 * t12091 - 0.784e3 / 0.375e3 * t8522 * t4533 + 0.392e3 / 0.225e3 * t3031 * t4536 - 0.392e3 / 0.375e3 * t3036 * t11845 + 0.196e3 / 0.225e3 * t1181 * t11853 - 0.264e3 / 0.125e3 * t3911 * t3322 + 0.6664e4 / 0.1875e4 * t8527 * t11838 + 0.46864890049809224960e-2 * t5207 * t12512 - 0.26644516389574759946e0 * t638 * t11808;
3248   t13273 = 0.99916936460905349794e-1 * t638 * t11826 + 0.49958468230452674897e-1 * t638 * t11803 + 0.93729780099618449920e-2 * t3031 * t49 * t5011 - 0.11990032375308641975e0 * t638 * t11787 - 0.11247573611954213990e-1 * t3036 * t49 * t12541 - 0.49989216053129839957e-1 * t5207 * t12545 - 0.1568e4 / 0.375e3 * t3036 * t11765 + 0.196e3 / 0.225e3 * t1181 * t11716 + 0.1056e4 / 0.625e3 * t7594 * t1793 * t822 - 0.66e2 / 0.125e3 * t5179 * t792 + 0.12e2 / 0.25e2 * t1580 * t3333 + 0.98e2 / 0.225e3 * t8519 * t1793 - 0.11307084583446035228e0 * t2067 * t12091 - 0.56811723856299346176e-2 * t2427 * t49 * t51 * t11721 - 0.27545078233357258752e-1 * t5185 * t11713 + 0.12e2 / 0.25e2 * t1031 * t11716;
3249   t13279 = t5212 * t20;
3250   t13295 = t493 * t245;
3251   t13299 = -0.24e2 * t4437 * t3094 + 0.648e3 * t4440 * t3088 - 0.24e2 * t4447 + 0.108e3 * t4451 - 0.12e2 * t2347 * t2048 + 0.2e1 * t251 * t5212 + t27 * (t13235 + t13273) + t755 * t2070 - 0.9e1 / 0.100e3 * t8465 * t2013 - 0.12e2 * t255 * t13279 * t245 - 0.6e1 * t255 * t2343 * t1767 - 0.12e2 * t757 * t4403 + 0.216e3 * t3077 * t4430 - 0.7776e4 * t3150 * t11559 - 0.12e2 * t255 * t7388 * t1765 - 0.24e2 * t255 * t13295 * t1765;
3252   t13310 = t2070 * t765;
3253   t13339 = 0.324e3 * t1563 * t11565 + 0.108e3 * t3077 * t4450 + 0.108e3 * t3080 * t4450 + 0.54e2 * t1563 * t11546 - 0.648e3 * t3150 * t11550 + 0.54e2 * t764 * t13310 * t741 - 0.12e2 * t8647 * t655 - 0.24e2 * t3101 * t1566 - 0.24e2 * t3101 * t1572 - 0.6e1 * t255 * t4402 * t747 - 0.9e1 / 0.50e2 * t1192 * t5103 * t468 + 0.171e3 / 0.500e3 * t8459 * t4460 + 0.216e3 * t3080 * t4430 - 0.24e2 * t255 * t1158 * t11317 - 0.9e1 / 0.25e2 * t3906 * t3114 + 0.1296e4 * t1563 * t13073 - 0.2592e4 * t3150 * t13070;
3254   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3255     v4rho2sigma2[0] = -t3069 * t2080 / 0.12e2 - t1202 * t5231 / 0.2e1 - 0.3e1 / 0.16e2 * t239 * t240 * (t11316 + t11359 + t11415 + t11507 + t13148 + t13189 + t13299 + t13339);
3256 
3257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3258     v4rho2sigmalapl[0] = 0.0e0;
3259 
3260   t13350 = t2094 * t763;
3261   t13380 = 0.54e2 * t13350 * t1151 - 0.6e1 * t10688 * t655 - 0.12e2 * t4006 * t1566 - 0.12e2 * t4006 * t1572 - 0.12e2 * t1630 * t3978 - 0.6e1 * t1630 * t3981 - 0.6e1 * t255 * t1576 * t4015 - 0.6e1 * t5413 * t1162 - 0.9e1 / 0.50e2 * t1192 * t1717 * t1551 - 0.9e1 / 0.100e3 * t1192 * t4160 * t648 - 0.6e1 * t8647 * t721 - 0.12e2 * t8813 * t2090 - 0.24e2 * t10292 * t2090;
3262   t13394 = t2370 * t704;
3263   t13403 = t2379 * t704;
3264   t13410 = t1262 * t20 * t245;
3265   t13414 = t5590 * t747;
3266   t13418 = -0.24e2 * t3074 * t5274 - 0.24e2 * t11287 * t1623 - 0.24e2 * t11290 * t1623 - 0.24e2 * t5225 * t4020 - 0.12e2 * t5225 * t4022 - 0.20375784800000000001e2 * t5640 * t690 * t3088 - 0.67919282666666666668e1 * t13394 * t5641 - 0.67919282666666666668e1 * t5640 * t690 * t3084 - 0.33959641333333333334e1 * t5640 * t690 * t3145 + 0.40751569600000000001e2 * t13403 * t690 * t3152 - 0.30186347851851851852e0 * t11208 * t5644 - 0.30186347851851851852e0 * t4338 * t348 * t13410 - 0.15093173925925925926e0 * t4338 * t348 * t13414;
3267   t13420 = t1219 * t704;
3268   t13423 = t508 * t822;
3269   t13428 = t522 * t765 * t741;
3270   t13436 = t764 * t11217;
3271   t13441 = t1214 * t279;
3272   t13445 = t508 * t792;
3273   t13457 = t4006 * t229;
3274   t13460 = -0.30186347851851851852e0 * t13420 * t4339 + 0.21130443496296296296e0 * t4338 * t921 * t13423 + 0.13583856533333333333e1 * t5640 * t348 * t13428 + 0.50310579753086419754e0 * t11218 * t5634 - 0.25155289876543209876e1 * t11218 * t5637 + 0.11319880444444444445e2 * t13436 * t5641 - 0.30186347851851851852e0 * t11208 * t5634 - 0.30186347851851851852e0 * t4338 * t348 * t13441 - 0.15093173925925925926e0 * t4338 * t348 * t13445 + 0.15093173925925925926e1 * t11208 * t5637 + 0.15093173925925925926e1 * t4338 * t690 * t3091 + 0.75465869629629629630e0 * t4338 * t690 * t3094 - 0.24e2 * t13457 * t1212;
3275   t13461 = t1630 * t493;
3276   t13467 = t522 * t19 * t741;
3277   t13474 = t4049 * t3125;
3278   t13477 = t10742 * t3134;
3279   t13480 = t4045 * t3125;
3280   t13483 = t10760 * t3134;
3281   t13494 = t10708 * t1205;
3282   t13497 = t10756 * t1205;
3283   t13500 = -0.24e2 * t13461 * t1212 + 0.50310579753086419753e0 * t11218 * t5644 - 0.30186347851851851852e0 * t4338 * t348 * t13467 - 0.62888224691358024691e-1 * t3141 * t10 * t691 + 0.324e3 * t1563 * t13474 - 0.7776e4 * t3150 * t13477 - 0.648e3 * t3150 * t13480 + 0.9720e4 * t8722 * t13483 + 0.648e3 * t3077 * t5485 - 0.1296e4 * t8731 * t5488 + 0.648e3 * t3080 * t5485 - 0.1296e4 * t8736 * t5488 + 0.648e3 * t1563 * t13494 - 0.1296e4 * t3150 * t13497;
3284   t13503 = t4049 * t3127;
3285   t13506 = t4045 * t3127;
3286   t13509 = t4018 * t508;
3287   t13512 = t4030 * t493;
3288   t13519 = t10685 * t229;
3289   t13537 = my_piecewise3(t18, -t743 * t674 / 0.4e1, 0);
3290   t13540 = t4009 * t505;
3291   t13542 = t4011 * t505;
3292   t13544 = t1616 * t1209;
3293   t13546 = t4016 * t505;
3294   t13548 = t1621 * t1209;
3295   t13550 = t678 * t3131;
3296   t13552 = t741 * t2087;
3297   t13554 = t5272 * t245;
3298   t13556 = t2088 * t747;
3299   t13558 = t20 * t13537;
3300   t13560 = 0.4e1 * t1209 * t1620 + 0.2e1 * t19 * t13537 + 0.2e1 * t747 * t2087 + 0.4e1 * t245 * t5246 + 0.2e1 * t3131 * t677 + 0.2e1 * t505 * t4015 + 0.18e2 * t13540 + 0.36e2 * t13542 + 0.36e2 * t13544 + 0.18e2 * t13546 + 0.36e2 * t13548 + 0.18e2 * t13550 + 0.18e2 * t13552 + 0.36e2 * t13554 + 0.18e2 * t13556 + 0.9e1 * t13558;
3301   t13561 = t13560 * t26;
3302   t13613 = 0.803e3 / 0.21870e5 * t638 * t782 * t677 * t211 - 0.803e3 / 0.21870e5 * t638 * t3167 * t677 - 0.73e2 / 0.3645e4 * t638 * t269 * t1620 * t211 + 0.146e3 / 0.3645e4 * t638 * t5318 * t245 + 0.73e2 / 0.19440e5 * t638 * t45 * t4015 * t211 - 0.73e2 / 0.4860e4 * t638 * t5322 * t245 - 0.73e2 / 0.9720e4 * t638 * t2158 * t747 + 0.73e2 / 0.3645e4 * t638 * t1528 * t1620 - 0.73e2 / 0.19440e5 * t638 * t639 * t4015 - 0.73e2 / 0.270e3 * t704 * t39 * t3131 * t211 + 0.146e3 / 0.135e3 * t704 * t5307 * t245 + 0.73e2 / 0.135e3 * t704 * t2151 * t747 + 0.73e2 / 0.270e3 * t704 * t705 * t3131 - 0.292e3 / 0.243e3 * t5077 + 0.73e2 / 0.81e2 * t5081 - 0.146e3 / 0.81e2 * t5084 + 0.292e3 / 0.243e3 * t5087;
3303   t13649 = -0.73e2 / 0.81e2 * t5090 - 0.1898e4 / 0.32805e5 * t5073 - 0.146e3 / 0.135e3 * t207 * t13537 * t211 + 0.584e3 / 0.135e3 * t5332 * t245 + 0.292e3 / 0.135e3 * t2162 * t747 + 0.292e3 / 0.135e3 * t4121 * t505 + 0.584e3 / 0.135e3 * t4124 * t505 + 0.584e3 / 0.135e3 * t1705 * t1209 + 0.292e3 / 0.135e3 * t4129 * t505 + 0.584e3 / 0.135e3 * t1708 * t1209 + 0.292e3 / 0.135e3 * t709 * t3131 + 0.146e3 / 0.135e3 * t1124 * t2087 + 0.292e3 / 0.135e3 * t460 * t5246 + 0.146e3 / 0.135e3 * t210 * t13537 - 0.146e3 / 0.135e3 * t1121 * t2087 * t211 - 0.292e3 / 0.135e3 * t457 * t5246 * t211 + 0.584e3 / 0.135e3 * t5329 * t245;
3304   t13650 = t13613 + t13649;
3305   t13653 = 0.648e3 * t1563 * t13503 - 0.1296e4 * t3150 * t13506 + 0.1080e4 * t1563 * t13509 + 0.108e3 * t13512 * t1227 + 0.108e3 * t5688 * t3084 + 0.54e2 * t5688 * t3145 - 0.648e3 * t13519 * t3152 + 0.2e1 * t5285 * t493 + t2095 * t1186 + t13561 * t229 + 0.2e1 * t1628 * t1597 + t683 * t3948 + t496 * t13650 / 0.10e2;
3306   t13683 = t4027 * t664 + t1189 * t5353 / 0.5e1 - 0.27950322085048010973e0 * t2194 * t4241 + 0.20962741563786008230e0 * t5678 * t1662 - 0.9e1 / 0.50e2 * t3050 * t5702 - 0.9e1 / 0.50e2 * t3050 * t5705 - 0.9e1 / 0.50e2 * t1192 * t5353 * t468 - 0.9e1 / 0.50e2 * t3050 * t5699 + t10379 * t714 / 0.10e2 + t3009 * t2172 / 0.10e2 - 0.9e1 / 0.100e3 * t1192 * t714 * t3213 - 0.9e1 / 0.100e3 * t8465 * t2206 + 0.54e2 * t4440 * t4057 - 0.648e3 * t11284 * t4046;
3307   t13691 = t40 * t3464;
3308   t13694 = t765 * t5246;
3309   t13695 = t13694 * t245;
3310   t13698 = t5376 * t747;
3311   t13701 = t2380 * t2087;
3312   t13702 = t13701 * t741;
3313   t13705 = t21 * t2087;
3314   t13706 = t13705 * t741;
3315   t13719 = t10432 * t229;
3316   t13722 = -0.12e2 * t255 * t3957 * t2087 - 0.12e2 * t255 * t11321 * t677 + 0.84521773985185185182e-1 * t1747 * t13691 + 0.108e3 * t1563 * t13695 + 0.54e2 * t1563 * t13698 - 0.648e3 * t3150 * t13702 + 0.324e3 * t1563 * t13706 + 0.108e3 * t3077 * t5377 + 0.108e3 * t3080 * t5377 - 0.24e2 * t5685 * t3091 - 0.12e2 * t5685 * t3094 + 0.324e3 * t5688 * t3088 + 0.108e3 * t13719 * t1227;
3317   t13753 = -0.12e2 * t255 * t3971 * t1620 - 0.12e2 * t1630 * t3951 - 0.6e1 * t255 * t10250 * t677 - 0.6e1 * t1630 * t3975 - 0.12e2 * t757 * t5675 - 0.9e1 / 0.100e3 * t3906 * t4335 - 0.9e1 / 0.50e2 * t3906 * t4348 - 0.9e1 / 0.50e2 * t10296 * t1756 - 0.24e2 * t3074 * t5280 - 0.24e2 * t3155 * t5280 - 0.24e2 * t1569 * t13554 - 0.12e2 * t1569 * t13556 - 0.12e2 * t1569 * t13546 - 0.24e2 * t1569 * t13548;
3318   t13796 = t5284 * t254;
3319   t13799 = -0.54e2 * t13350 * t1039 + 0.6e1 * t10688 * t508 + 0.12e2 * t4006 * t1214 + 0.12e2 * t1219 * t4018 + 0.6e1 * t1219 * t4024 + 0.12e2 * t255 * t13552 + 0.6e1 * t255 * t13558 + 0.12e2 * t13796 * t248 + 0.12e2 * t3101 * t1625 + 0.12e2 * t1630 * t3134 + 0.6e1 * t1630 * t3138 + 0.6e1 * t2347 * t2092 + 0.12e2 * t757 * t5282 + 0.12e2 * t5413 * t750 + 0.6e1 * t5413 * t752 + 0.6e1 * t8647 * t680 - t13561;
3320   t13824 = t10484 * t505;
3321   t13827 = t4053 * t1209;
3322   t13830 = t1636 * t3131;
3323   t13837 = 0.24e2 * t1219 * t4020 + 0.12e2 * t1219 * t4022 - 0.324e3 * t764 * t13706 - 0.54e2 * t764 * t13824 - 0.108e3 * t764 * t13827 - 0.54e2 * t764 * t13830 + 0.24e2 * t3101 * t1623 + 0.24e2 * t1630 * t3091 + 0.12e2 * t1630 * t3094 - 0.108e3 * t8652 * t1637 - 0.54e2 * t7360 * t2102 - 0.108e3 * t2370 * t5360 - 0.108e3 * t2370 * t5363 - 0.324e3 * t4030 * t3088 - 0.108e3 * t3109 * t4054 - 0.54e2 * t3109 * t4057 + 0.648e3 * t8655 * t4046;
3324   t13873 = 0.12e2 * t255 * t13540 + 0.24e2 * t255 * t13542 + 0.24e2 * t255 * t13544 + 0.12e2 * t255 * t13546 + 0.24e2 * t255 * t13548 + 0.12e2 * t255 * t13550 + 0.24e2 * t255 * t13554 - 0.108e3 * t764 * t13695 - 0.54e2 * t764 * t13698 + 0.648e3 * t2379 * t13702 + 0.12e2 * t2347 * t2090 - 0.108e3 * t2370 * t5377 - 0.324e3 * t3109 * t4050 + 0.24e2 * t757 * t5274 + 0.24e2 * t757 * t5276 + 0.24e2 * t757 * t5278 + 0.24e2 * t757 * t5280;
3325   t13886 = t2379 * t7383;
3326   t13887 = t2083 * t741;
3327   t13890 = t764 * t20;
3328   t13911 = t7461 * t7462;
3329   t13914 = -0.648e3 * t2370 * t21 * t5274 + 0.1296e4 * t7333 * t2380 * t5274 - 0.108e3 * t10432 * t1227 + 0.648e3 * t10685 * t3152 + 0.24e2 * t4006 * t1212 + 0.648e3 * t5451 * t13540 - 0.324e3 * t5454 * t13540 + 0.1296e4 * t5451 * t13542 - 0.648e3 * t5454 * t13542 + 0.1296e4 * t5451 * t13544 - 0.648e3 * t5454 * t13544 + 0.12e2 * t255 * t13556 + 0.7776e4 * t13886 * t13887 - 0.1080e4 * t13890 * t13887 - 0.9720e4 * t13911 * t13887 - 0.108e3 * t4030 * t3084 - 0.54e2 * t4030 * t3145;
3330   t13916 = t13799 + t13837 + t13873 + t13914;
3331   t13945 = t2137 * t1140 / 0.10e2 + 0.2e1 * t5478 * t439 * t215 + t2136 * t1098 * t215 + t13916 * t193 * t215 - 0.12e2 * t5569 * t3094 + 0.324e3 * t5614 * t3088 - 0.9e1 / 0.100e3 * t2137 * t1106 - 0.12e2 * t3101 * t1645 - 0.9e1 / 0.50e2 * t1681 * t1516 - 0.9e1 / 0.50e2 * t1679 * t1516 - 0.9e1 / 0.50e2 * t1507 * t1690 - 0.9e1 / 0.50e2 * t697 * t3269 + t1679 * t1552 / 0.5e1 + t4261 * t649 / 0.5e1 - 0.62888224691358024691e-1 * t755 * t1894 * t691 - 0.12577644938271604938e0 * t251 * t4796 * t691;
3332   t13983 = 0.108e3 * t3883 * t5363 + 0.108e3 * t11670 * t1637 + 0.54e2 * t1225 * t13830 + 0.54e2 * t1225 * t13824 + 0.108e3 * t1225 * t13827 + 0.108e3 * t3891 * t5363 - 0.24e2 * t3847 * t5278 - 0.12e2 * t1233 * t13546 - 0.24e2 * t1233 * t13548 - 0.24e2 * t3888 * t5278 + 0.50310579753086419752e-1 * t5394 * t1665 + 0.50310579753086419752e-1 * t5391 * t1665 + 0.11180128834019204389e0 * t688 * t4240 * t576 - 0.12e2 * t255 * t13037 * t677 - 0.12e2 * t255 * t3871 * t1620 - 0.9e1 / 0.50e2 * t1505 * t1690 + 0.75465869629629629630e0 * t4209 * t5258;
3333   t13990 = t40 * t1653 * t3131;
3334   t13993 = t757 * t5497;
3335   t13997 = t255 * t4796 * t107;
3336   t14002 = t764 * t5497;
3337   t14014 = t40 * t3441;
3338   t14017 = t40 * t3472;
3339   t14020 = t3101 * t1651;
3340   t14023 = t1219 * t4212;
3341   t14028 = t3109 * t1651;
3342   t14033 = 0.37732934814814814815e0 * t10947 * t2117 + 0.75465869629629629630e0 * t4213 * t5258 + 0.37732934814814814815e0 * t1652 * t13990 + 0.75465869629629629630e0 * t13993 * t1655 + 0.75465869629629629630e0 * t13997 * t1655 + 0.37732934814814814815e0 * t5498 * t4217 - 0.33959641333333333334e1 * t14002 * t4223 + 0.11739135275720164609e0 * t27 * t573 * t5261 - 0.70434811654320987652e-1 * t251 * t1651 * t5261 - 0.70434811654320987652e-1 * t27 * t4212 * t5261 - 0.70434811654320987652e-1 * t5501 * t14014 - 0.35217405827160493826e-1 * t5501 * t14017 + 0.75465869629629629630e0 * t14020 * t1655 + 0.75465869629629629630e0 * t14023 * t1655 + 0.37732934814814814815e0 * t5533 * t4217 - 0.33959641333333333334e1 * t14028 * t4223 + 0.37732934814814814815e0 * t10950 * t2117;
3343   t14042 = t1219 * t573;
3344   t14076 = 0.75465869629629629630e0 * t10953 * t2117 + 0.75465869629629629630e0 * t5498 * t4231 - 0.12577644938271604938e1 * t10515 * t2117 - 0.12577644938271604938e1 * t10522 * t2117 - 0.12577644938271604938e1 * t14042 * t1655 + 0.75465869629629629630e0 * t5533 * t4231 + 0.75465869629629629630e0 * t1652 * t117 * t3094 - 0.20375784800000000001e2 * t4220 * t117 * t3088 - 0.33959641333333333334e1 * t4220 * t117 * t3145 + 0.40751569600000000001e2 * t10940 * t117 * t3152 - 0.30186347851851851852e0 * t1652 * t4267 * t13441 + 0.15093173925925925926e1 * t1652 * t117 * t3091 - 0.67919282666666666668e1 * t4220 * t117 * t3084 - 0.30186347851851851852e0 * t5498 * t4269 + 0.50310579753086419753e0 * t4226 * t5592 - 0.30186347851851851852e0 * t4209 * t5581 + 0.15093173925925925926e1 * t4209 * t5584;
3345   t14085 = t5702 * t468;
3346   t14115 = -0.67919282666666666668e1 * t10530 * t5587 - 0.30186347851851851852e0 * t4213 * t5581 + 0.15093173925925925926e1 * t4213 * t5584 + 0.171e3 / 0.500e3 * t5536 * t14085 - 0.6e1 * t1219 * t4175 - 0.12e2 * t1219 * t4172 - 0.12e2 * t1630 * t3860 - 0.12e2 * t4006 * t1236 + 0.108e3 * t11678 * t1637 - 0.30186347851851851852e0 * t4209 * t5592 - 0.30186347851851851852e0 * t4213 * t5592 - 0.30186347851851851852e0 * t1652 * t4267 * t13410 - 0.15093173925925925926e0 * t1652 * t4267 * t13414 + 0.13583856533333333333e1 * t4220 * t4267 * t13428 + 0.50310579753086419754e0 * t4226 * t5581 - 0.25155289876543209876e1 * t4226 * t5584;
3347   t14155 = 0.11319880444444444445e2 * t10504 * t5587 - 0.15093173925925925926e0 * t1652 * t4267 * t13445 - 0.6e1 * t2347 * t2105 - 0.6e1 * t255 * t1240 * t4015 + 0.171e3 / 0.1000e4 * t697 * t3286 - 0.12e2 * t1630 * t3853 - 0.6e1 * t1219 * t4094 - 0.12e2 * t1630 * t3872 - 0.648e3 * t13124 * t4046 - 0.12e2 * t10073 * t2090 - 0.9e1 / 0.50e2 * t408 * t5422 - 0.9e1 / 0.100e3 * t194 * t5608 * t1139 - 0.9e1 / 0.50e2 * t1049 * t2143 - 0.9e1 / 0.50e2 * t408 * t5522 - 0.6e1 * t255 * t2984 * t2087 + t194 * t446 * t13650 / 0.10e2 + t4278 * t649 / 0.10e2;
3348   t14187 = t1104 * t5353;
3349   t14197 = t697 * t3256 / 0.10e2 + t1681 * t1552 / 0.5e1 + t1049 * t2173 / 0.5e1 + 0.171e3 / 0.1000e4 * t628 * t4204 - 0.9e1 / 0.50e2 * t440 * t5609 - 0.62888224691358024691e-1 * t3141 * t572 * t691 - 0.12577644938271604938e0 * t1217 * t1269 * t691 - 0.9e1 / 0.100e3 * t628 * t4198 - 0.9e1 / 0.100e3 * t1047 * t2143 - 0.67919282666666666668e1 * t10933 * t5587 - 0.30186347851851851852e0 * t5533 * t4269 - 0.30186347851851851852e0 * t1652 * t4267 * t13467 + 0.21130443496296296296e0 * t1652 * t10971 * t13423 - 0.9e1 / 0.50e2 * t194 * t14187 * t468 - 0.12e2 * t5413 * t771 - 0.6e1 * t1630 * t3875 - 0.12e2 * t5413 * t775;
3350   t14234 = -0.12e2 * t13796 * t257 - 0.62888224691358024691e-1 * t27 * t12049 * t691 - 0.83850966255144032920e-1 * t1648 * t5565 + 0.50310579753086419752e-1 * t5397 * t1665 - 0.83850966255144032920e-1 * t1658 * t5565 - 0.83850966255144032920e-1 * t688 * t1661 * t1263 + 0.50310579753086419752e-1 * t5388 * t1665 - 0.12e2 * t4006 * t1230 - 0.6e1 * t5413 * t778 + 0.54e2 * t13350 * t767 - 0.6e1 * t10688 * t513 + t1507 * t1718 / 0.5e1 + t4264 * t649 / 0.10e2 + t1505 * t1718 / 0.5e1 + t3866 * t715 / 0.10e2 - 0.24e2 * t12925 * t1623 - 0.1296e4 * t9982 * t5488;
3351   t14246 = t194 * t8329;
3352   t14247 = t2206 * t1105;
3353   t14273 = 0.648e3 * t1225 * t13503 - 0.12e2 * t9970 * t2090 + 0.108e3 * t12931 * t1637 + 0.648e3 * t1225 * t13494 - 0.4959e4 / 0.10000e5 * t14246 * t14247 - 0.9e1 / 0.50e2 * t440 * t5422 + 0.20962741563786008230e0 * t5397 * t1662 + 0.20962741563786008230e0 * t5391 * t1662 + 0.20962741563786008230e0 * t5394 * t1662 - 0.24e2 * t12868 * t1623 - 0.35217405827160493826e-1 * t2120 * t4248 - 0.1296e4 * t10002 * t5488 + 0.648e3 * t3891 * t5485 + 0.1080e4 * t1225 * t13509 - 0.6e1 * t255 * t9940 * t677 + t3863 * t715 / 0.5e1;
3354   t14311 = t5428 * t469 / 0.5e1 + t3869 * t715 / 0.10e2 + t5479 * t469 / 0.5e1 + t628 * t4161 / 0.10e2 - 0.12e2 * t255 * t3833 * t2087 - 0.12e2 * t757 * t5543 - 0.12e2 * t4006 * t1241 + 0.171e3 / 0.500e3 * t408 * t2957 * t5236 - 0.12e2 * t255 * t770 * t5246 - 0.12e2 * t757 * t5549 - 0.1296e4 * t3896 * t13497 - 0.1296e4 * t3896 * t13506 + 0.648e3 * t3883 * t5485 + 0.324e3 * t1225 * t13474 - 0.7776e4 * t3896 * t13477 - 0.6e1 * t1630 * t3842 - 0.6e1 * t1630 * t3837;
3355   t14341 = t2957 * t2172;
3356   t14351 = -0.27950322085048010973e0 * t2113 * t4241 - 0.27950322085048010973e0 * t2120 * t4241 - 0.24e2 * t5569 * t3091 + 0.108e3 * t5614 * t3084 - 0.24e2 * t12857 * t1623 - 0.12e2 * t1233 * t13550 - 0.12e2 * t757 * t5400 - 0.648e3 * t3896 * t13480 + 0.9720e4 * t10028 * t13483 - 0.12e2 * t1219 * t4087 + 0.108e3 * t5111 * t4054 - 0.9e1 / 0.100e3 * t194 * t10845 * t648 - 0.9e1 / 0.100e3 * t194 * t1689 * t3213 + 0.171e3 / 0.1000e4 * t194 * t14341 * t1105 - 0.9e1 / 0.100e3 * t697 * t3263 - 0.12e2 * t3101 * t1640 - 0.12e2 * t1630 * t3834;
3357   t14363 = t4030 * t403;
3358   t14368 = t1630 * t403;
3359   t14381 = t4006 * t154;
3360   t14384 = t10432 * t154;
3361   t14387 = t255 * t104;
3362   t14388 = t14387 * t704;
3363   t14390 = t921 * t522 * t4268;
3364   t14393 = t348 * t19;
3365   t14395 = t505 * t279 * t245;
3366   t14396 = t14393 * t14395;
3367   t14399 = -0.62888224691358024691e-1 * t511 * t3514 * t691 + 0.20962741563786008230e0 * t5388 * t1662 - 0.9e1 / 0.100e3 * t1099 * t2143 - 0.9e1 / 0.50e2 * t440 * t5522 + 0.2e1 * t1628 * t1492 + 0.108e3 * t14363 * t1227 - 0.24e2 * t3888 * t5274 - 0.24e2 * t14368 * t1212 - 0.24e2 * t3888 * t5276 - 0.24e2 * t3847 * t5276 - 0.12e2 * t1233 * t13540 - 0.24e2 * t1233 * t13542 - 0.24e2 * t1233 * t13544 - 0.24e2 * t14381 * t1212 + 0.108e3 * t14384 * t1227 + 0.42260886992592592592e0 * t14388 * t14390 - 0.60372695703703703704e0 * t14388 * t14396;
3368   t14403 = t764 * t104 * t704;
3369   t14404 = t348 * t765;
3370   t14405 = t14404 * t14395;
3371   t14415 = t5705 * t468;
3372   t14425 = t10685 * t154;
3373   t14442 = 0.27167713066666666667e1 * t14403 * t14405 + t4027 * t623 + 0.108e3 * t1225 * t13695 + 0.54e2 * t1225 * t13698 - 0.648e3 * t3896 * t13702 + 0.171e3 / 0.500e3 * t5536 * t14415 + 0.171e3 / 0.500e3 * t440 * t2957 * t5236 + 0.324e3 * t5111 * t4050 + 0.54e2 * t5614 * t3145 - 0.648e3 * t14425 * t3152 - 0.12e2 * t5057 * t4022 - 0.24e2 * t5057 * t4020 - 0.12e2 * t757 * t5546 + 0.108e3 * t3883 * t5360 + 0.108e3 * t3891 * t5360 - 0.24e2 * t4525 * t4020 - 0.12e2 * t4525 * t4022;
3374   t14476 = 0.324e3 * t5030 * t4050 + 0.54e2 * t9976 * t2102 + 0.108e3 * t9973 * t2102 + 0.108e3 * t5030 * t4054 + 0.54e2 * t5030 * t4057 - 0.648e3 * t13119 * t4046 - 0.24e2 * t12938 * t1623 + 0.108e3 * t12917 * t1637 + 0.54e2 * t9961 * t2102 - 0.24e2 * t3888 * t5280 - 0.24e2 * t3847 * t5280 - 0.9e1 / 0.50e2 * t408 * t5609 - 0.24e2 * t10105 * t2090 - 0.9e1 / 0.50e2 * t628 * t4195 + t683 * t3819 + t1047 * t2173 / 0.10e2 + t1099 * t2173 / 0.10e2;
3375   t14482 = t116 * t741;
3376   t14484 = t40 * t14482 * t505;
3377   t14493 = t255 * t1895;
3378   t14518 = t440 * t5599 / 0.5e1 + t408 * t5599 / 0.5e1 + 0.75465869629629629630e0 * t1652 * t14484 + 0.84521773985185185182e-1 * t5501 * t13691 + 0.16770193251028806585e1 * t10512 * t2117 - 0.12577644938271604938e1 * t4226 * t5258 - 0.12577644938271604938e1 * t14493 * t1655 + 0.54e2 * t4030 * t3857 - 0.6e1 * t8647 * t685 - 0.6e1 * t255 * t256 * t13537 - 0.6e1 * t2347 * t2110 + 0.50310579753086419752e-1 * t1658 * t5560 + 0.25155289876543209876e-1 * t688 * t689 * t3458 - 0.83850966255144032920e-1 * t2113 * t4251 + 0.25155289876543209876e-1 * t2113 * t4254 + 0.25155289876543209876e-1 * t2120 * t4254 + 0.25155289876543209876e-1 * t4100 * t2123;
3379   t14534 = t2206 * t1139;
3380   t14553 = 0.50310579753086419752e-1 * t4103 * t2123 + 0.50310579753086419752e-1 * t1648 * t5560 + 0.25155289876543209876e-1 * t4097 * t2123 - 0.83850966255144032920e-1 * t2120 * t4251 - 0.9e1 / 0.50e2 * t194 * t4194 * t1551 + 0.54e2 * t5111 * t4057 + t2095 * t1035 + t13561 * t154 + 0.171e3 / 0.1000e4 * t5536 * t14534 + 0.108e3 * t3891 * t5377 + 0.108e3 * t3883 * t5377 - 0.24e2 * t1233 * t13554 - 0.12e2 * t1233 * t13556 + 0.324e3 * t1225 * t13706 + 0.2e1 * t5285 * t403 - 0.35217405827160493826e-1 * t2113 * t4248 - 0.24e2 * t3847 * t5274;
3381   t14567 = t2136 * t1104;
3382   t14582 = -0.12e2 * t1569 * t13550 - p->cam_beta * (t13945 + t13983 + t14033 + t14076 + t14115 + t14155 + t14197 + t14234 + t14273 + t14311 + t14351 + t14399 + t14442 + t14476 + t14518 + t14553) - 0.6e1 * t1219 * t4003 - 0.12e2 * t1219 * t4073 - 0.6e1 * t1219 * t4076 - 0.6e1 * t2347 * t2186 - 0.9e1 / 0.100e3 * t14567 * t1105 + 0.108e3 * t11277 * t1637 + t1751 * t3213 / 0.10e2 + 0.324e3 * t4423 * t4050 + 0.108e3 * t13172 * t1637 + 0.108e3 * t13175 * t1637 + 0.108e3 * t4423 * t4054;
3383   t14609 = 0.54e2 * t4423 * t4057 - 0.24e2 * t4437 * t4020 + 0.108e3 * t4440 * t4054 - 0.12e2 * t3101 * t1731 - 0.12e2 * t3101 * t1736 + t1600 * t4160 / 0.10e2 - 0.648e3 * t11346 * t4046 + 0.54e2 * t8816 * t2102 + 0.108e3 * t8683 * t2102 + 0.108e3 * t3077 * t5360 - 0.12e2 * t5413 * t1159 - 0.12e2 * t1630 * t3972 - 0.6e1 * t2347 * t2191;
3384   t14638 = t1219 * t398;
3385   t14641 = -0.12e2 * t757 * t5241 - 0.12e2 * t4006 * t1577 + 0.171e3 / 0.1000e4 * t3053 * t14534 - 0.6e1 * t255 * t475 * t13537 - 0.6e1 * t1630 * t3964 + 0.54e2 * t4030 * t3968 - 0.12e2 * t757 * t5247 - 0.6e1 * t255 * t2343 * t2087 - 0.12e2 * t255 * t1154 * t5246 - 0.4959e4 / 0.10000e5 * t8485 * t14247 + 0.11739135275720164609e0 * t4312 * t5261 - 0.35217405827160493826e-1 * t1747 * t14017 - 0.12577644938271604938e1 * t14638 * t1655;
3386   t14661 = t5478 * t446;
3387   t14670 = -0.70434811654320987652e-1 * t4309 * t5261 - 0.70434811654320987652e-1 * t1747 * t14014 + 0.75465869629629629630e0 * t1742 * t14484 + 0.16770193251028806585e1 * t11233 * t2117 + 0.75465869629629629630e0 * t5252 * t4231 + t13916 * t215 + t3990 * t1717 / 0.5e1 - 0.12e2 * t13796 * t476 - 0.12e2 * t5413 * t1155 + 0.171e3 / 0.1000e4 * t10284 * t4354 + t14661 * t468 / 0.5e1 - 0.24e2 * t3155 * t5278 - 0.12e2 * t1569 * t13540 - 0.24e2 * t1569 * t13542;
3388   t14699 = 0.108e3 * t11384 * t1637 - 0.12e2 * t1219 * t4380 - 0.24e2 * t1569 * t13544 + 0.54e2 * t1563 * t13824 - 0.12e2 * t8741 * t2090 - 0.24e2 * t3074 * t5276 - 0.24e2 * t3074 * t5278 + 0.108e3 * t3080 * t5360 + 0.108e3 * t3080 * t5363 - 0.24e2 * t3155 * t5274 - 0.24e2 * t3155 * t5276 - 0.12e2 * t4437 * t4022 + 0.324e3 * t4440 * t4050;
3389   t14730 = 0.108e3 * t1563 * t13827 + 0.54e2 * t1563 * t13830 + 0.171e3 / 0.1000e4 * t11042 * t3961 + 0.171e3 / 0.1000e4 * t3053 * t2172 * t1105 - 0.9e1 / 0.100e3 * t4070 * t3117 - 0.9e1 / 0.50e2 * t4070 * t3114 - 0.9e1 / 0.100e3 * t1192 * t2172 * t1139 - 0.9e1 / 0.50e2 * t10416 * t1605 + 0.171e3 / 0.500e3 * t8459 * t5236 - 0.12e2 * t1630 * t3958 + 0.171e3 / 0.500e3 * t3053 * t14415 + 0.171e3 / 0.500e3 * t3053 * t14085 - 0.24e2 * t13140 * t1623 - 0.60372695703703703704e0 * t4338 * t14396;
3390   t14750 = t511 * t398;
3391   t14753 = t1217 * t703;
3392   t14760 = 0.27167713066666666667e1 * t5640 * t14405 + 0.42260886992592592592e0 * t4338 * t14390 - 0.12e2 * t757 * t5672 + t5294 * t1139 / 0.10e2 + t11093 * t648 / 0.10e2 + 0.11180128834019204389e0 * t11108 * t1900 - 0.35217405827160493826e-1 * t5302 * t3804 - 0.83850966255144032920e-1 * t11103 * t1900 - 0.83850966255144032920e-1 * t4312 * t5000 - 0.83850966255144032920e-1 * t14750 * t1481 + 0.50310579753086419752e-1 * t14753 * t1481 + 0.25155289876543209876e-1 * t5302 * t3807 + 0.25155289876543209876e-1 * t11116 * t1900;
3393   t14769 = t3101 * t703;
3394   t14774 = t3109 * t703;
3395   t14791 = 0.50310579753086419752e-1 * t4309 * t5000 + 0.25155289876543209876e-1 * t1747 * t12570 - 0.12577644938271604938e1 * t11230 * t2117 - 0.12577644938271604938e1 * t4357 * t5258 + 0.75465869629629629630e0 * t14769 * t1655 + 0.37732934814814814815e0 * t5252 * t4217 - 0.33959641333333333334e1 * t14774 * t4223 + 0.37732934814814814815e0 * t11244 * t2117 + 0.75465869629629629630e0 * t4367 * t5258 + 0.37732934814814814815e0 * t1742 * t13990 + t4302 * t1551 / 0.5e1 + 0.108e3 * t3077 * t5363 + 0.54e2 * t8690 * t2102 - 0.24e2 * t11309 * t1623;
3396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3397     v4rho2sigmatau[0] = -t3069 * t2212 / 0.12e2 - t1202 * t5715 / 0.2e1 - 0.3e1 / 0.16e2 * t239 * t240 * (t13380 + t13418 + t13460 + t13500 + t13653 + t13683 + t13722 + t13753 + t14582 + t14609 + t14641 + t14670 + t14699 + t14730 + t14760 + t14791);
3398 
3399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3400     v4rho2lapl2[0] = 0.0e0;
3401 
3402   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3403     v4rho2lapltau[0] = 0.0e0;
3404 
3405   t14803 = t1717 * t1717;
3406   t14806 = t7462 * t2215;
3407   t14807 = t14806 * t741;
3408   t14814 = t1616 * t1620;
3409   t14831 = t1630 * t704;
3410   t14834 = t680 * t822;
3411   t14844 = -0.9e1 / 0.50e2 * t1192 * t14803 + 0.9720e4 * t8722 * t14807 - 0.48e2 * t3074 * t5779 - 0.48e2 * t3155 * t5779 - 0.48e2 * t1569 * t14814 + 0.648e3 * t5688 * t4050 + 0.216e3 * t13719 * t1637 + 0.216e3 * t13512 * t1637 + 0.216e3 * t5688 * t4054 - 0.67919282666666666667e1 * t5640 * t690 * t4057 + 0.81503139200000000000e2 * t13403 * t690 * t4046 - 0.60372695703703703702e0 * t14831 * t4339 + 0.42260886992592592593e0 * t4338 * t921 * t14834 + 0.10062115950617283950e1 * t11218 * t5856 - 0.50310579753086419753e1 * t11218 * t5859 + 0.22639760888888888889e2 * t13436 * t5864;
3412   t14847 = t1625 * t279;
3413   t14855 = t4049 * t4011;
3414   t14858 = t4045 * t4011;
3415   t14865 = t1620 * t1620;
3416   t14875 = my_piecewise3(t18, t744 * t2218 / 0.2e1, 0);
3417   t14878 = t747 * t2215;
3418   t14881 = t19 * t14865;
3419   t14883 = t678 * t4015;
3420   t14885 = t741 * t2221;
3421   t14887 = t5775 * t245;
3422   t14889 = t2222 * t747;
3423   t14891 = t20 * t14875;
3424   t14893 = 0.2e1 * t19 * t14875 + 0.2e1 * t747 * t2221 + 0.4e1 * t245 * t5742 + 0.4e1 * t677 * t4015 + 0.72e2 * t14814 + 0.4e1 * t14865 + 0.18e2 * t14878 + 0.36e2 * t14881 + 0.36e2 * t14883 + 0.18e2 * t14885 + 0.36e2 * t14887 + 0.18e2 * t14889 + 0.9e1 * t14891;
3425   t14894 = t14893 * t26;
3426   t14912 = -0.60372695703703703704e0 * t11208 * t5856 - 0.60372695703703703704e0 * t4338 * t348 * t14847 + 0.171e3 / 0.500e3 * t8459 * t6033 - 0.9e1 / 0.25e2 * t4070 * t4348 + 0.1296e4 * t1563 * t14855 - 0.2592e4 * t3150 * t14858 - 0.12e2 * t5787 * t1159 - 0.9e1 / 0.100e3 * t8465 * t2263 + t14894 * t229 + 0.2e1 * t5786 * t493 + t2229 * t1186 + t1751 * t4160 / 0.5e1 + 0.2e1 / 0.5e1 * t4302 * t1717 - 0.55900644170096021947e0 * t2295 * t4241 + 0.41925483127572016460e0 * t5876 * t1662 - 0.12577644938271604938e0 * t4027 * t10 * t691 - 0.9e1 / 0.25e2 * t10416 * t1756;
3427   t14924 = t21 * t2221;
3428   t14925 = t14924 * t741;
3429   t14964 = 0.146e3 / 0.81e2 * t5324 - 0.292e3 / 0.81e2 * t5327 - 0.146e3 / 0.81e2 * t5347 + 0.292e3 / 0.135e3 * t1121 * t2215 - 0.73e2 / 0.135e3 * t704 * t39 * t4015 * t211 + 0.292e3 / 0.135e3 * t704 * t5726 * t245 + 0.146e3 / 0.135e3 * t704 * t2272 * t747 + 0.73e2 / 0.135e3 * t704 * t705 * t4015 + 0.1898e4 / 0.729e3 * t2018 - 0.584e3 / 0.243e3 * t5320 + 0.584e3 / 0.243e3 * t5344;
3430   t14992 = -0.146e3 / 0.135e3 * t1121 * t2221 * t211 - 0.292e3 / 0.135e3 * t457 * t5742 * t211 + 0.584e3 / 0.135e3 * t5737 * t245 - 0.146e3 / 0.135e3 * t207 * t14875 * t211 + 0.584e3 / 0.135e3 * t5743 * t245 + 0.292e3 / 0.135e3 * t2279 * t747 + 0.1168e4 / 0.135e3 * t1705 * t1620 + 0.584e3 / 0.135e3 * t207 * t14865 + 0.584e3 / 0.135e3 * t709 * t4015 + 0.146e3 / 0.135e3 * t1124 * t2221 + 0.292e3 / 0.135e3 * t460 * t5742 + 0.146e3 / 0.135e3 * t210 * t14875;
3431   t14993 = t14964 + t14992;
3432   t14999 = t1756 * t1717;
3433   t15003 = t741 * t2215 * t20;
3434   t15011 = t1636 * t4015;
3435   t15023 = t5785 * t254;
3436   t15033 = -0.24e2 * t255 * t774 * t14865 + t1049 * t2287 / 0.5e1 + t408 * t5944 / 0.5e1 + t5909 * t469 / 0.5e1 + t1047 * t2287 / 0.10e2 + t194 * t446 * t14993 / 0.10e2 + t4278 * t715 / 0.5e1 + 0.171e3 / 0.250e3 * t5536 * t14999 + 0.1080e4 * t1225 * t15003 - 0.12e2 * t1630 * t4094 + 0.108e3 * t764 * t766 * t14865 + 0.108e3 * t1225 * t15011 - 0.24e2 * t757 * t5989 - 0.12e2 * t2347 * t2243 - 0.1296e4 * t9982 * t5801 - 0.12e2 * t255 * t8266 * t2215 - 0.12e2 * t15023 * t257 - 0.12e2 * t5787 * t771 - 0.12e2 * t255 * t3833 * t2221 - 0.24e2 * t1630 * t4172;
3437   t15075 = 0.108e3 * t2370 * t5911 - 0.24e2 * t4006 * t1645 + t440 * t5944 / 0.5e1 - 0.9e1 / 0.100e3 * t1047 * t2264 - 0.12e2 * t1630 * t4175 + 0.54e2 * t7360 * t2236 - 0.9e1 / 0.50e2 * t194 * t1104 * t14803 + 0.1296e4 * t1225 * t14855 - 0.55900644170096021947e0 * t2233 * t4241 + 0.41925483127572016460e0 * t5935 * t1662 + 0.41925483127572016460e0 * t5932 * t1662 - 0.9e1 / 0.50e2 * t1049 * t2264 - 0.9e1 / 0.100e3 * t1099 * t2264 + 0.2e1 / 0.5e1 * t4261 * t715 + t2259 * t1140 / 0.10e2 - 0.9e1 / 0.100e3 * t2259 * t1106 + t5906 * t469 / 0.5e1 - 0.48e2 * t14368 * t1623 + t697 * t4161 / 0.5e1 + 0.2e1 / 0.5e1 * t1679 * t1718;
3438   t15077 = t5800 * t747;
3439   t15084 = t8329 * t2263;
3440   t15094 = t2957 * t2286;
3441   t15116 = t40 * t1653 * t4015;
3442   t15119 = t1630 * t573;
3443   t15122 = t4006 * t1651;
3444   t15125 = t1630 * t4212;
3445   t15128 = -0.648e3 * t3896 * t15077 + 0.9720e4 * t10028 * t14807 - 0.48e2 * t14381 * t1623 - 0.4959e4 / 0.10000e5 * t194 * t15084 * t1105 + 0.171e3 / 0.500e3 * t408 * t5969 + 0.171e3 / 0.500e3 * t440 * t5969 + 0.171e3 / 0.500e3 * t697 * t4204 + 0.171e3 / 0.1000e4 * t194 * t15094 * t1105 - 0.9e1 / 0.50e2 * t194 * t1689 * t4160 - 0.24e2 * t3847 * t5781 + 0.108e3 * t3883 * t5820 + 0.75465869629629629630e0 * t10950 * t2240 + 0.15093173925925925926e1 * t10953 * t2240 + 0.15093173925925925926e1 * t4209 * t5885 + 0.75465869629629629630e0 * t10947 * t2240 + 0.15093173925925925926e1 * t4213 * t5885 + 0.75465869629629629630e0 * t1652 * t15116 - 0.25155289876543209876e1 * t15119 * t1655 + 0.15093173925925925926e1 * t15122 * t1655 + 0.15093173925925925926e1 * t15125 * t1655;
3446   t15131 = t4030 * t1651;
3447   t15137 = t40 * t14482 * t677;
3448   t15153 = t2228 * t763;
3449   t15162 = t765 * t5742;
3450   t15163 = t15162 * t245;
3451   t15176 = 0.75465869629629629628e0 * t5915 * t4217 - 0.67919282666666666665e1 * t15131 * t4223 + 0.33540386502057613168e1 * t10512 * t2240 + 0.15093173925925925926e1 * t1652 * t15137 + 0.15093173925925925926e1 * t5915 * t4231 - 0.25155289876543209876e1 * t10515 * t2240 - 0.25155289876543209876e1 * t10522 * t2240 - 0.25155289876543209876e1 * t4226 * t5885 - 0.24e2 * t4006 * t1640 + 0.54e2 * t764 * t8349 * t2215 + 0.54e2 * t15153 * t767 - 0.12e2 * t10688 * t685 - 0.6e1 * t5787 * t778 - 0.24e2 * t1233 * t14887 + 0.108e3 * t1225 * t15163 + 0.648e3 * t3883 * t5805 - 0.48e2 * t3847 * t5779 + 0.216e3 * t14363 * t1637 - 0.9e1 / 0.25e2 * t408 * t5958 - 0.9e1 / 0.25e2 * t440 * t5958;
3452   t15189 = t1104 * t5756;
3453   t15221 = t5804 * t747;
3454   t15224 = -0.9e1 / 0.100e3 * t194 * t5961 * t1139 + 0.171e3 / 0.1000e4 * t194 * t5968 * t1139 - 0.9e1 / 0.50e2 * t408 * t5962 - 0.9e1 / 0.50e2 * t440 * t5962 - 0.9e1 / 0.50e2 * t194 * t15189 * t468 - 0.2592e4 * t3896 * t14858 + 0.2e1 / 0.5e1 * t1681 * t1718 + t4264 * t715 / 0.5e1 - 0.70434811654320987653e-1 * t2233 * t4248 - 0.48e2 * t3888 * t5779 + 0.648e3 * t3891 * t5805 - 0.12e2 * t1233 * t14889 + 0.324e3 * t1225 * t14925 - 0.16770193251028806584e0 * t2233 * t4251 + 0.50310579753086419752e-1 * t2233 * t4254 + 0.10062115950617283950e0 * t5932 * t1665 + 0.10062115950617283950e0 * t5935 * t1665 + 0.216e3 * t3891 * t5808 - 0.1296e4 * t10002 * t5801 + 0.324e3 * t1225 * t15221;
3455   t15225 = t7383 * t2215;
3456   t15226 = t15225 * t741;
3457   t15231 = t5819 * t747;
3458   t15235 = t677 * t279 * t245;
3459   t15236 = t14393 * t15235;
3460   t15239 = t14404 * t15235;
3461   t15279 = -0.54e2 * t15153 * t1039 + 0.12e2 * t10688 * t680 + 0.12e2 * t255 * t14878 + 0.6e1 * t255 * t14891 + 0.24e2 * t4006 * t1625 + 0.12e2 * t1630 * t4024 + 0.12e2 * t2347 * t2224 + 0.6e1 * t2347 * t2226 - 0.54e2 * t7360 * t2251 + 0.24e2 * t757 * t5777 + 0.12e2 * t757 * t5783 + 0.6e1 * t5787 * t752;
3462   t15303 = -0.108e3 * t764 * t765 * t14865 + 0.2592e4 * t5451 * t14814 - 0.1296e4 * t5454 * t14814 + 0.24e2 * t255 * t14881 + 0.12e2 * t255 * t14885 + 0.12e2 * t15023 * t248 + 0.7776e4 * t2379 * t15226 + 0.24e2 * t1630 * t4018 - 0.216e3 * t4030 * t4054 - 0.108e3 * t4030 * t4057 + 0.12e2 * t5787 * t750 - t14894;
3463   t15329 = 0.1296e4 * t10685 * t4046 + 0.24e2 * t255 * t14887 + 0.12e2 * t255 * t14889 - 0.324e3 * t764 * t14925 - 0.1080e4 * t764 * t15003 + 0.648e3 * t2379 * t15077 + 0.48e2 * t1630 * t4020 + 0.24e2 * t1630 * t4022 - 0.648e3 * t2370 * t5805 - 0.216e3 * t2370 * t5808 - 0.648e3 * t4030 * t4050 + 0.1296e4 * t7333 * t5801;
3464   t15350 = t2380 * t2221;
3465   t15351 = t15350 * t741;
3466   t15358 = -0.216e3 * t10432 * t1637 - 0.9720e4 * t7461 * t14807 + 0.48e2 * t255 * t14814 + 0.24e2 * t255 * t14883 - 0.108e3 * t764 * t15011 - 0.108e3 * t764 * t15163 - 0.324e3 * t764 * t15221 - 0.54e2 * t764 * t15231 + 0.648e3 * t2379 * t15351 + 0.48e2 * t4006 * t1623 - 0.108e3 * t2370 * t5820 + 0.48e2 * t757 * t5779 + 0.24e2 * t757 * t5781;
3467   t15360 = t15279 + t15303 + t15329 + t15358;
3468   t15378 = -0.7776e4 * t3896 * t15226 - 0.24e2 * t1233 * t14883 + 0.54e2 * t1225 * t15231 - 0.12074539140740740741e1 * t14388 * t15236 + 0.54335426133333333334e1 * t14403 * t15239 + 0.108e3 * t5614 * t4057 - 0.1296e4 * t14425 * t4046 - 0.24e2 * t5569 * t4022 + 0.2e1 * t5827 * t439 * t215 + t2258 * t1098 * t215 + 0.2e1 * t5786 * t403 + t15360 * t193 * t215 + t14894 * t154 + 0.648e3 * t5614 * t4050 + 0.216e3 * t14384 * t1637 - 0.648e3 * t3896 * t15351 - 0.48e2 * t5569 * t4020 + 0.216e3 * t5614 * t4054 - 0.60372695703703703704e0 * t4209 * t5896 + 0.30186347851851851852e1 * t4209 * t5899;
3469   t15406 = t680 * t792;
3470   t15431 = -0.13583856533333333333e2 * t10530 * t5902 - 0.60372695703703703704e0 * t4213 * t5896 + 0.30186347851851851852e1 * t4213 * t5899 - 0.13583856533333333333e2 * t10933 * t5902 + 0.42260886992592592593e0 * t1652 * t10971 * t14834 - 0.60372695703703703704e0 * t1652 * t4267 * t14847 + 0.30186347851851851852e1 * t1652 * t117 * t4020 - 0.13583856533333333333e2 * t4220 * t117 * t4054 + 0.10062115950617283950e1 * t4226 * t5896 - 0.50310579753086419753e1 * t4226 * t5899 + 0.22639760888888888889e2 * t10504 * t5902 - 0.30186347851851851852e0 * t1652 * t4267 * t15406 - 0.60372695703703703702e0 * t5915 * t4269 + 0.15093173925925925926e1 * t1652 * t117 * t4022 - 0.40751569600000000000e2 * t4220 * t117 * t4050 - 0.67919282666666666667e1 * t4220 * t117 * t4057 + 0.81503139200000000000e2 * t10940 * t117 * t4046 - 0.6e1 * t255 * t256 * t14875 - 0.9e1 / 0.25e2 * t1679 * t1690 - 0.9e1 / 0.25e2 * t1681 * t1690;
3471   t15481 = t1099 * t2287 / 0.10e2 + 0.216e3 * t3883 * t5808 + 0.108e3 * t3891 * t5820 - 0.24e2 * t3888 * t5781 - 0.48e2 * t1233 * t14814 + t2229 * t1035 - 0.24e2 * t255 * t12895 * t2215 - 0.12e2 * t757 * t5996 - 0.6e1 * t255 * t2984 * t2221 - 0.12e2 * t255 * t12999 * t2215 - 0.6e1 * t2347 * t2246;
3472   t15504 = -0.48e2 * t13461 * t1623 - 0.48e2 * t5685 * t4020 - 0.24e2 * t5685 * t4022 - 0.24e2 * t1569 * t14887 - 0.12e2 * t1569 * t14889 + 0.324e3 * t1563 * t14925 + 0.108e3 * t3077 * t5820 - 0.9e1 / 0.50e2 * t4070 * t4335 - p->cam_beta * (t15033 + t15075 + t15128 + t15176 + t15224 + t15378 + t15431 - 0.9e1 / 0.25e2 * t697 * t4195 - 0.9e1 / 0.50e2 * t697 * t4198 - 0.24e2 * t757 * t5953 - 0.12e2 * t757 * t5965 - 0.12e2 * t255 * t770 * t5742 - 0.12577644938271604938e0 * t4027 * t572 * t691 - 0.25155289876543209876e0 * t1628 * t1269 * t691 - 0.12577644938271604938e0 * t683 * t3514 * t691 - 0.24e2 * t1630 * t4087 - 0.12e2 * t5787 * t775 + t15481) + t15360 * t215 - 0.12074539140740740741e1 * t4338 * t15236 + 0.54335426133333333334e1 * t5640 * t15239 - 0.70434811654320987653e-1 * t5867 * t3804 - 0.13583856533333333333e2 * t13394 * t5864 - 0.13583856533333333333e2 * t5640 * t690 * t4054 + 0.171e3 / 0.500e3 * t11042 * t4354 + 0.171e3 / 0.1000e4 * t3053 * t2286 * t1105;
3473   t15543 = -0.9e1 / 0.100e3 * t1192 * t2286 * t1139 + 0.171e3 / 0.1000e4 * t3053 * t2263 * t1139 - 0.24e2 * t4006 * t1731 - 0.12e2 * t15023 * t476 - 0.12e2 * t5787 * t1155 - 0.12e2 * t255 * t1154 * t5742 - 0.6e1 * t255 * t475 * t14875 - 0.6e1 * t5787 * t1162 + 0.54e2 * t15153 * t1151 - 0.12e2 * t10688 * t721 - 0.24e2 * t1630 * t4073 - 0.12e2 * t1630 * t4076 + 0.54e2 * t7360 * t2298 + 0.108e3 * t2370 * t6022 - 0.12e2 * t757 * t5879 + 0.15093173925925925926e1 * t5766 * t4231 + 0.33540386502057613168e1 * t11233 * t2240;
3474   t15574 = t4030 * t703;
3475   t15585 = 0.15093173925925925926e1 * t1742 * t15137 - 0.24e2 * t1630 * t4380 - 0.12e2 * t255 * t3957 * t2221 - 0.24e2 * t1569 * t14883 - 0.24e2 * t3074 * t5781 - 0.24e2 * t3155 * t5781 - 0.24e2 * t255 * t1158 * t14865 + 0.108e3 * t764 * t1150 * t14865 - 0.9e1 / 0.50e2 * t1192 * t714 * t4160 - 0.9e1 / 0.25e2 * t3050 * t6030 + 0.1080e4 * t1563 * t15003 + 0.75465869629629629628e0 * t5766 * t4217 - 0.67919282666666666665e1 * t15574 * t4223 + 0.75465869629629629630e0 * t11244 * t2240 + 0.15093173925925925926e1 * t4367 * t5885 + 0.75465869629629629630e0 * t1742 * t15116 - 0.25155289876543209876e1 * t11230 * t2240;
3476   t15588 = t4006 * t703;
3477   t15591 = t1630 * t398;
3478   t15627 = -0.25155289876543209876e1 * t4357 * t5885 + 0.15093173925925925926e1 * t15588 * t1655 - 0.25155289876543209876e1 * t15591 * t1655 - 0.24e2 * t757 * t5831 - 0.24e2 * t757 * t5835 - 0.12e2 * t255 * t7388 * t2215 + 0.54e2 * t764 * t7336 * t2215 - 0.12e2 * t2347 * t2303 - 0.6e1 * t255 * t2343 * t2221 - 0.12e2 * t757 * t5840 + 0.171e3 / 0.250e3 * t3053 * t14999 - 0.12e2 * t255 * t11510 * t2215 - 0.6e1 * t2347 * t2306 + 0.648e3 * t3080 * t5805 - 0.24e2 * t255 * t13295 * t2215 - 0.24e2 * t4006 * t1736 - 0.12e2 * t1630 * t4003;
3479   t15665 = 0.108e3 * t1563 * t15011 - 0.1296e4 * t8731 * t5801 - 0.1296e4 * t8736 * t5801 - 0.648e3 * t3150 * t15077 + 0.108e3 * t5688 * t4057 - 0.1296e4 * t13519 * t4046 + 0.648e3 * t3077 * t5805 + 0.108e3 * t3080 * t5820 + 0.108e3 * t1563 * t15163 + 0.54e2 * t1563 * t15231 - 0.648e3 * t3150 * t15351 - 0.48e2 * t13457 * t1623 - 0.9e1 / 0.50e2 * t1192 * t5756 * t468 - 0.9e1 / 0.50e2 * t3050 * t6027 - 0.4959e4 / 0.10000e5 * t8485 * t2263 * t1105 + 0.324e3 * t1563 * t15221 - 0.7776e4 * t3150 * t15226;
3480   t15672 = t683 * t398;
3481   t15675 = t1628 * t703;
3482   t15696 = t5827 * t446;
3483   t15705 = t2258 * t1104;
3484   t15708 = 0.216e3 * t3077 * t5808 + 0.216e3 * t3080 * t5808 + 0.50310579753086419752e-1 * t5867 * t3807 - 0.16770193251028806584e0 * t15672 * t1481 + 0.10062115950617283950e0 * t15675 * t1481 - 0.30186347851851851852e0 * t4338 * t348 * t15406 + 0.30186347851851851852e1 * t11208 * t5859 + 0.30186347851851851852e1 * t4338 * t690 * t4020 + 0.15093173925925925926e1 * t4338 * t690 * t4022 - 0.40751569600000000000e2 * t5640 * t690 * t4050 + t5759 * t1139 / 0.10e2 + t11093 * t714 / 0.5e1 + t15696 * t468 / 0.5e1 + t496 * t14993 / 0.10e2 + t1189 * t5756 / 0.5e1 + t3009 * t2286 / 0.10e2 - 0.9e1 / 0.100e3 * t15705 * t1105;
3485   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3486     v4rho2tau2[0] = -t3069 * t2317 / 0.12e2 - t1202 * t6039 / 0.2e1 - 0.3e1 / 0.16e2 * t239 * t240 * (t14844 + t14912 + t15504 + t15543 + t15585 + t15627 + t15665 + t15708);
3487 
3488   t15739 = t1765 * t1209;
3489   t15742 = t6086 * t254;
3490   t15752 = t1205 * t1767;
3491   t15754 = t1210 * t1767;
3492   t15757 = (0.6e1 * t1209 * t1767 + 0.54e2 * t15739 + 0.54e2 * t15752 + 0.54e2 * t15754 + t1769 + t1773 + t4480 + t4484 + t6082 + t6085) * t26;
3493   t15762 = 0.18e2 * t11336 * t508 + 0.18e2 * t4466 * t1214 + 0.36e2 * t1219 * t4481 + 0.36e2 * t255 * t15739 + 0.6e1 * t15742 * t248 + 0.1944e4 * t5451 * t15752 - 0.972e3 * t5454 * t15752 + 0.36e2 * t3101 * t1770 + 0.18e2 * t3101 * t1772 - 0.162e3 * t8652 * t2001 - 0.324e3 * t2370 * t6112 + 0.648e3 * t7333 * t6109 - t15757 + t2007 + t4512 - t4514 + t4516 - t6116 + t6120;
3494   t15780 = t7383 * t6044 * t245;
3495   t15783 = t4433 * t1209;
3496   t15787 = t7462 * t6044 * t245;
3497   t15791 = t20 * t6044 * t245;
3498   t15794 = t4426 * t1209;
3499   t15799 = t3083 * t1767;
3500   t15810 = -0.162e3 * t11331 * t1227 + 0.36e2 * t4466 * t1212 + 0.72e2 * t1219 * t4443 + 0.36e2 * t1219 * t4446 + 0.36e2 * t255 * t15752 + 0.36e2 * t255 * t15754 + 0.7776e4 * t2379 * t15780 + 0.1944e4 * t2379 * t15783 - 0.9720e4 * t7461 * t15787 - 0.1080e4 * t764 * t15791 - 0.972e3 * t764 * t15794 - 0.162e3 * t764 * t15799 - 0.162e3 * t2370 * t6094 - 0.972e3 * t3109 * t4427 - 0.324e3 * t3109 * t4430 - 0.162e3 * t3109 * t4450 + 0.1944e4 * t8655 * t4434 + 0.12e2 * t757 * t6044 + 0.36e2 * t757 * t6084 + t6108;
3501   t15811 = t15762 + t15810;
3502   t15816 = t664 * t245;
3503   t15823 = t255 * t2070;
3504   t15826 = t764 * t2070;
3505   t15829 = t6513 * t468;
3506   t15837 = -0.12e2 * t255 * t493 * t6044 - 0.9e1 / 0.100e3 * t1192 * t6071 * t468 - 0.27e2 / 0.100e3 * t11528 * t1605 - 0.27e2 / 0.100e3 * t3906 * t4391 + t15811 * t215 - 0.36e2 * t255 * t8746 * t1765 - 0.36e2 * t255 * t15816 * t1765 + 0.162e3 * t764 * t10264 * t1765 - 0.36e2 * t15823 * t1212 + 0.162e3 * t15826 * t1227 + 0.513e3 / 0.1000e4 * t3053 * t15829 - 0.18e2 * t255 * t13279 * t505 - 0.18e2 * t757 * t6523;
3507   t15851 = t6121 * t446;
3508   t15880 = -0.73e2 / 0.2430e4 * t638 * t269 * t1767 * t211 + t6062 - 0.73e2 / 0.3240e4 * t638 * t6059 * t245 + 0.73e2 / 0.1215e4 * t40 * t801 * t1765 - 0.73e2 / 0.1620e4 * t638 * t2020 * t1209 + 0.73e2 / 0.2430e4 * t638 * t1528 * t1767 - t6068 - t5094 - t2029 + t5096 + 0.292e3 / 0.45e2 * t5092 * t505 + t6070 + 0.292e3 / 0.45e2 * t2027 * t1209 + t5102 + t2033;
3509   t15887 = -0.36e2 * t1219 * t4463 - 0.648e3 * t7333 * t6520 - 0.648e3 * t2379 * t8450 * t6044 - 0.7776e4 * t3150 * t15780 - 0.1944e4 * t3150 * t15783 + 0.9720e4 * t8722 * t15787 + t15851 * t468 / 0.10e2 + 0.171e3 / 0.1000e4 * t8459 * t6126 + 0.3e1 * t511 * t5212 + t1189 * t6071 / 0.10e2 + t496 * t15880 / 0.10e2 + 0.3e1 / 0.10e2 * t5174 * t1551 + 0.3e1 / 0.10e2 * t3990 * t2034;
3510   t15910 = t9265 * t4533;
3511   t15913 = t3927 * t4536;
3512   t15920 = t6148 * t279;
3513   t15923 = t1793 * t1262;
3514   t15929 = t522 * t49;
3515   t15938 = 0.1056e4 / 0.625e3 * t7594 * t6148 * t279 - 0.198e3 / 0.125e3 * t5179 * t1262 - 0.17043517156889803853e-1 * t3911 * t49 * t5011 + 0.77470532531317290240e-2 * t3914 * t49 * t1853 - 0.41317617350035888128e-1 * t6481 * t4715 - 0.19983387292181069959e0 * t638 * t10327 * t1793 - 0.17985048562962962963e0 * t638 * t15910 + 0.14987540469135802469e0 * t638 * t15913 + 0.56760749905058547716e-3 * t4709 + 0.99331312333852458503e-4 * t4678 - 0.392e3 / 0.375e3 * t8522 * t6148 + 0.6664e4 / 0.1875e4 * t8527 * t15920 - 0.392e3 / 0.125e3 * t3036 * t15923 + 0.14059467014942767488e-1 * t3031 * t522 * t2018 - 0.33742720835862641971e-1 * t3036 * t15929 * t5011 + 0.14059467014942767488e-1 * t1181 * t1262 * t2018 - 0.74983824079694759936e-1 * t6490 * t5073;
3516   t15950 = t3109 * t664;
3517   t15953 = 0.3e1 / 0.10e2 * t11420 * t648 + 0.3e1 / 0.10e2 * t1600 * t5103 + t251 * t6493 + t27 * t15938 - t4401 - t4421 + 0.324e3 * t4440 * t4430 - 0.1944e4 * t11284 * t4434 + 0.324e3 * t4423 * t4430 - 0.1944e4 * t11346 * t4434 + 0.972e3 * t4440 * t4427 - t2056 + 0.324e3 * t15950 * t1227;
3518   t15962 = t4466 * t229;
3519   t15965 = t11331 * t229;
3520   t15968 = t1219 * t664;
3521   t15983 = -0.36e2 * t15962 * t1212 - 0.72e2 * t15968 * t1212 + 0.162e3 * t15965 * t1227 + 0.1080e4 * t1563 * t15791 - 0.36e2 * t3074 * t6084 - 0.36e2 * t3155 * t6084 + 0.972e3 * t4423 * t4427 + 0.162e3 * t4423 * t4450 - 0.72e2 * t4437 * t4443 - 0.36e2 * t4437 * t4446 + 0.162e3 * t4440 * t4450 - 0.72e2 * t5225 * t4443 - 0.36e2 * t5225 * t4446;
3522   t16015 = -0.18e2 * t255 * t4402 * t1209 - 0.36e2 * t255 * t6570 * t1209 - 0.18e2 * t255 * t3971 * t1767 - 0.18e2 * t11336 * t655 - 0.18e2 * t4466 * t1566 - 0.36e2 * t1569 * t15752 - 0.36e2 * t1569 * t15754 - 0.18e2 * t4466 * t1572 - 0.6e1 * t15742 * t476 - 0.18e2 * t4466 * t1577 - 0.36e2 * t3101 * t2048 + 0.162e3 * t3077 * t6094 - 0.18e2 * t757 * t6498;
3523   t16036 = t6493 * t20;
3524   t16044 = 0.162e3 * t3080 * t6094 + 0.162e3 * t1563 * t15799 + 0.972e3 * t1563 * t15794 - 0.36e2 * t1219 * t4417 + 0.324e3 * t2370 * t6045 - 0.27e2 / 0.100e3 * t10296 * t2013 - 0.18e2 * t1219 * t4399 + 0.162e3 * t8652 * t2045 + 0.162e3 * t3109 * t4394 + 0.162e3 * t2370 * t6495 - 0.6e1 * t255 * t16036 * t245 - 0.36e2 * t1219 * t4408 - 0.18e2 * t3101 * t2054;
3525   t16059 = 0.324e3 * t764 * t7394 * t6044 + 0.3e1 * t1217 * t2070 + t15757 * t229 + 0.3e1 * t1775 * t1597 + 0.3e1 * t4486 * t664 + t6087 * t493 - 0.36e2 * t757 * t6048 - t4448 + t4452 - t6500 - t6506 - t6510 + t6512;
3526   t16069 = t3087 * t4479;
3527   t16072 = t3151 * t4479;
3528   t16120 = -0.36e2 * t1219 * t5130 - 0.27e2 / 0.100e3 * t1507 * t2014 + 0.171e3 / 0.1000e4 * t408 * t6127 - 0.27e2 / 0.100e3 * t1505 * t2014 + 0.162e3 * t3883 * t6094 + 0.513e3 / 0.1000e4 * t5536 * t15829 + 0.972e3 * t1225 * t15794 + 0.162e3 * t3891 * t6094 - 0.18e2 * t1219 * t5034 - 0.36e2 * t255 * t6766 * t1209 - 0.36e2 * t255 * t10095 * t1765 - 0.6e1 * t15742 * t257 + 0.3e1 / 0.10e2 * t628 * t5104;
3529   t16145 = t408 * t6072 / 0.10e2 + 0.3e1 / 0.10e2 * t1505 * t2035 + 0.3e1 / 0.10e2 * t1507 * t2035 - 0.36e2 * t4525 * t4446 + 0.162e3 * t5030 * t4450 - 0.18e2 * t4466 * t1230 - 0.18e2 * t11336 * t513 + 0.3e1 / 0.10e2 * t5137 * t649 + 0.3e1 / 0.10e2 * t2009 * t1552 + 0.3e1 / 0.10e2 * t5134 * t649 - 0.36e2 * t1219 * t5140 - t5061 + t5063 - 0.36e2 * t757 * t6097;
3530   t16161 = t527 * t565;
3531   t16204 = my_piecewise3(t68, 0, 0.77e2 / 0.18000e5 * t32 * t261 * t6149 + 0.2387e4 / 0.60000e5 * t1287 * t9071 * t15920 - 0.77e2 / 0.2000e4 * t1287 * t3317 * t15923 - 0.11178232703207047280e-2 * t11864 * t6154 - 0.41425215311884939920e-3 * t4585 * t2455 * t522 * t49 * t4587 + 0.19726293005659495200e-3 * t4585 * t821 * t1262 * t1801);
3532   t16207 = t69 * t6272;
3533   t16227 = t71 * t16204 * t78;
3534   t16229 = t557 * t4592;
3535   t16232 = t1806 * t1297;
3536   t16233 = t16232 * t78;
3537   t16242 = t6246 * t285;
3538   t16245 = t7828 * t6246 / 0.8e1 + 0.3e1 / 0.2e1 * t12631 * t557 + 0.3e1 / 0.2e1 * t4656 * t1370 + 0.3e1 / 0.2e1 * t3381 * t1875 + 0.3e1 / 0.2e1 * t1362 * t4641 + 0.3e1 / 0.4e1 * t9172 * t1872 - 0.9e1 / 0.4e1 * t7852 * t6246 + t988 * t6266 / 0.2e1 - 0.10e2 * t16227 - 0.9e1 / 0.2e1 * t990 * t16229 + 0.3e1 / 0.4e1 * t995 * t16233 + 0.18e2 * t9194 * t4614 - 0.9e1 * t3373 * t4617 - 0.27e2 / 0.4e1 * t9215 * t4614 - 0.30e2 * t995 * t16242;
3539   t16246 = t1872 * t1297;
3540   t16253 = t6266 * t285;
3541   t16280 = 0.18e2 * t2494 * t16246 + 0.3e1 / 0.4e1 * t2524 * t6241 + 0.3e1 / 0.4e1 * t995 * t16229 - 0.3e1 / 0.2e1 * t990 * t16253 + t995 * t16253 / 0.4e1 + 0.3e1 / 0.4e1 * t3385 * t4622 + 0.3e1 / 0.2e1 * t3385 * t4617 + 0.3e1 / 0.8e1 * t9199 * t4614 - 0.27e2 / 0.4e1 * t2527 * t16246 - 0.9e1 / 0.2e1 * t12636 * t1367 + 0.3e1 / 0.4e1 * t12653 * t1367 - 0.9e1 / 0.2e1 * t3373 * t4622 - 0.9e1 / 0.4e1 * t7831 * t16242 + 0.3e1 / 0.8e1 * t2534 * t16246 + t7837 * t16242 / 0.16e2 + 0.75e2 / 0.4e1 * t7846 * t16242;
3542   t16287 = t527 * t4592;
3543   t16289 = t285 * t6158;
3544   t16291 = t69 * t16204;
3545   t16293 = t285 * t6165;
3546   t16294 = 0.1536e4 * t16293;
3547   t16295 = t1915 * t1297;
3548   t16296 = 0.4608e4 * t16295;
3549   t16297 = t551 * t4600;
3550   t16298 = 0.4608e4 * t16297;
3551   t16299 = t1409 * t1806;
3552   t16300 = 0.2304e4 * t16299;
3553   t16301 = t581 * t4592;
3554   t16302 = 0.2304e4 * t16301;
3555   t16303 = t6357 * t285;
3556   t16304 = 0.768e3 * t16303;
3557   t16305 = t121 * t16204;
3558   t16306 = 0.256e3 * t16305;
3559   t16307 = 0.120e3 * t16232 + 0.120e3 * t16287 + 0.40e2 * t16289 + 0.40e2 * t16291 - t16294 - t16296 - t16298 - t16300 - t16302 - t16304 - t16306;
3560   t16309 = t6166 * t323;
3561   t16311 = t1812 * t1370;
3562   t16313 = t3395 * t1875;
3563   t16315 = t1314 * t4641;
3564   t16317 = t6171 * t323;
3565   t16320 = 0.15e2 / 0.2e1 * t4648 * t1370;
3566   t16322 = t7738 * t6165 * t323;
3567   t16324 = t859 * t6158;
3568   t16325 = t16324 * t323;
3569   t16331 = -0.9e1 / 0.2e1 * t2503 * t6241 - 0.9e1 / 0.2e1 * t990 * t16233 + t16307 * t78 - 0.100e3 * t16309 + 0.60e2 * t16311 - 0.15e2 * t16313 - 0.15e2 * t16315 + 0.55e2 / 0.2e1 * t16317 - t16320 - 0.5e1 / 0.4e1 * t16322 - 0.5e1 * t16325 + t16298 - 0.216e3 * t16232 - 0.216e3 * t16287 - 0.72e2 * t16289 - 0.72e2 * t16291;
3570   t16332 = t3398 * t4622;
3571   t16335 = 0.15e2 / 0.2e1 * t3378 * t4622;
3572   t16347 = t6237 * t291;
3573   t16354 = t16204 * t78;
3574   t16357 = t16294 + t16306 + 0.60e2 * t16332 - t16335 + 0.10e2 * t70 * t16204 * t73 + 0.18e2 * t9100 * t4622 - 0.27e2 / 0.4e1 * t2527 * t1806 * t1367 + 0.3e1 / 0.8e1 * t2534 * t1806 * t1367 + t16296 + t16300 + t16302 + t16304 + t16347 * t323 / 0.2e1 - 0.9e1 / 0.2e1 * t9212 * t1872 + 0.6e1 * t7843 * t6246 + t322 * t16354 / 0.2e1;
3575   t16362 = 0.144e3 * t1297 * t101 * t1806 + 0.144e3 * t12761 * t1806 + 0.144e3 * t4553 * t4592 + 0.288e3 * t16161 * t1297 + 0.144e3 * t1811 * t1382 + 0.144e3 * t285 * t1887 * t527 + 0.144e3 * t12754 * t527 + 0.144e3 * t4595 * t1297 + 0.144e3 * t4558 * t1806 + 0.144e3 * t3344 * t1806 + 0.144e3 * t1350 * t4592 + 0.48e2 * t1343 * t6158 + 0.48e2 * t977 * t6158 + 0.48e2 * t313 * t16204 + 0.48e2 * t16207 * t285 + 0.24e2 * t75 * (t16245 + t16280 + t16331 + t16357);
3576   t16376 = t569 * t920;
3577   t16385 = -0.3e1 / 0.5e1 * t12086 * t522 + 0.23256385298820301029e-3 * t104 * t4708 * t347 + 0.35e2 / 0.81e2 * t16362 * t113 * t117 - 0.41880455757797808358e-4 * t387 * t1993 * t347 + 0.58632638060916931701e-4 * t6279 * t4678 + 0.58632638060916931702e-4 * t4528 * t6419 + 0.58632638060916931702e-4 * t1991 * t4677 * t1262 + 0.48111412961907397290e-3 * t16376 * t4688 + 0.44233737333333333332e-1 * t4818 * t1246 - 0.10616096960000000000e0 * t1395 * t4696 + 0.88467474666666666666e-1 * t1395 * t4700;
3578   t16395 = t4673 * t10;
3579   t16420 = 0.12031576554666666666e0 * t397 * t398 * t7583 * t6148 * t279 - 0.10616096960000000000e0 * t397 * t398 * t4694 * t1262 + 0.54828508950617283951e-1 * t16395 * t45 * t117 - 0.21063684444444444445e0 * t1978 * t1280 - 0.25659420246350611887e-2 * t4687 * t6440 * t275 - 0.14e2 / 0.27e2 * t11703 * t576 - 0.14e2 / 0.27e2 * t4793 * t1263 - 0.29070481623525376286e-4 * t334 * t1993 * t347 - 0.11546739110857775349e-2 * t11720 * t6440 * t5010 - 0.31595526666666666667e-1 * t1978 * t400 - 0.11795663288888888889e0 * t149 * t4821 + 0.16850947555555555555e0 * t613 * t1249;
3580   t16446 = -0.70212281481481481483e-1 * t6396 * t393 - 0.43862807160493827161e-1 * t1895 * t5000 + 0.98e2 / 0.135e3 * t4793 * t1400 - 0.63191053333333333333e-1 * t613 * t1390 + 0.77470532531317290240e-2 * t3501 * t49 * t5011 - 0.34365294972790998064e-3 * t1340 * t1907 - 0.34365294972790998064e-3 * t1386 * t1907 + 0.98e2 / 0.135e3 * t3507 * t1903 - 0.392e3 / 0.675e3 * t1012 * t6435 + 0.98e2 / 0.135e3 * t3445 * t1903 + 0.33504364606238246686e-3 * t147 * t4708 * t347;
3581   t16477 = t2540 * t6241;
3582   t16479 = t6186 * t323;
3583   t16482 = t2512 * t285 * t6246;
3584   t16484 = t1811 * t1297;
3585   t16485 = t4734 * t16484;
3586   t16507 = t291 * t16204 * t78 / 0.2e1 - 0.12e2 * t1297 * t79 * t1806 - 0.12e2 * t4769 * t4592 - 0.4e1 * t1323 * t6158 - 0.4e1 * t295 * t16204 - t16227 - 0.75e2 / 0.2e1 * t16309 + 0.45e2 / 0.2e1 * t16311 - 0.6e1 * t16313 - 0.6e1 * t16315 - t6266 * t381 + 0.85e2 / 0.4e1 * t16317;
3587   t16510 = t867 * t6158;
3588   t16529 = -t16320 - 0.19e2 / 0.8e1 * t16322 - 0.2e1 * t16325 + t16510 * t323 / 0.4e1 + 0.3e1 / 0.4e1 * t11945 * t557 + 0.3e1 / 0.4e1 * t4761 * t1370 + 0.3e1 / 0.8e1 * t4766 * t1370 + t7692 * t6165 * t323 / 0.16e2 + 0.3e1 / 0.8e1 * t11929 * t1367 + 0.45e2 / 0.2e1 * t16332 - t16335 - 0.3e1 * t1468 * t1875 - 0.3e1 * t605 * t4641;
3589   t16543 = -t287 * t16204 - 0.18e2 * t16477 + 0.24e2 * t16479 - 0.24e2 * t16482 - 0.18e2 * t16485 + 0.2e1 * t285 * t6210 + 0.2e1 * t69 * (t16507 + t16529) + 0.6e1 * t1806 * t1331 + 0.2e1 * t6158 * t300 + 0.6e1 * t4592 * t539 + 0.6e1 * t1297 * t1839 + 0.6e1 * t527 * t4779;
3590   t16571 = 0.2e1 * t16204 * t82 + 0.21e2 / 0.2e1 * t1320 * t4622 - 0.3e1 / 0.4e1 * t9191 * t4622 + 0.21e2 / 0.2e1 * t1828 * t1370 + 0.15e2 / 0.4e1 * t6199 * t323 - 0.3e1 / 0.2e1 * t9186 * t1875 - 0.3e1 / 0.2e1 * t3398 * t4641 - 0.3e1 / 0.4e1 * t4731 * t1370 - t7770 * t6165 * t323 / 0.8e1 + 0.6e1 * t932 * t16232 + 0.6e1 * t932 * t16287 + 0.2e1 * t932 * t16289 - t1301 * t6266 / 0.2e1;
3591   t16623 = -0.371589120e9 * t123 * t6165 * t285 - 0.1105920e7 * t127 * t16204 - 0.185794560e9 * t4901 * t1297 + 0.26943e5 * t134 * t16204 - 0.26542080e8 * t1419 * t4592 + 0.768e3 * t75 * t16204 - 0.2880e4 * t93 * t16204 - 0.26542080e8 * t3670 * t1806 + 0.161658e6 * t6348 * t285 - 0.103680e6 * t581 * t4600 + 0.2424870e7 * t583 * t4600 - 0.185794560e9 * t585 * t4600 - 0.8e1 * t16204 + 0.4608e4 * t16484;
3592   t16627 = t1304 * t1806;
3593   t16653 = -0.8847360e7 * t125 * t6158 * t285 - 0.103680e6 * t1865 * t1297 + 0.2424870e7 * t1950 * t1297 + 0.4608e4 * t1354 * t1806 - 0.34560e5 * t1358 * t1806 + 0.484974e6 * t1452 * t1806 - 0.11520e5 * t6228 * t285 + 0.1536e4 * t6231 * t285 - 0.69120e5 * t6233 * t285 + 0.3233160e7 * t6344 * t285 + 0.4608e4 * t551 * t4592 - 0.34560e5 * t553 * t4592 + 0.484974e6 * t597 * t4592 + 0.4608e4 * t16627;
3594   t16672 = (t16623 + t16653) * t78 - 0.1080e4 * t16477 + 0.18e2 * t9769 * t4614 - 0.9e1 * t3751 * t4617 - 0.27e2 / 0.4e1 * t9781 * t4614 + 0.4e1 * t380 * t6194 * t285 - t903 * t16253 + 0.3e1 / 0.4e1 * t2752 * t6241 + 0.2640e4 * t16479 - 0.240e3 * t16482 - 0.1080e4 * t16485;
3595   t16696 = -0.9e1 / 0.2e1 * t9778 * t1872 - 0.2e1 * t380 * t76 * t16204 - 0.480e3 * t298 * t6266 + 0.3e1 / 0.2e1 * t12423 * t557 + 0.3e1 / 0.2e1 * t4948 * t1370 + 0.3e1 / 0.2e1 * t3780 * t1875 + 0.3e1 / 0.2e1 * t1426 * t4641 + 0.3e1 / 0.4e1 * t9724 * t1872 - 0.2880e4 * t6246 * t292 + 0.864e3 * t3733 * t4598 + 0.432e3 * t12301 * t1304;
3596   t16702 = t6377 * t291;
3597   t16734 = 0.30720e5 * t123 * t16204 + 0.1843200e7 * t1919 * t1297 + 0.460800e6 * t1413 * t1806 + 0.1843200e7 * t6359 * t285 + 0.153600e6 * t6363 * t285 + 0.460800e6 * t583 * t4592 + 0.1843200e7 * t553 * t4600 + 0.1344e4 * t16232 + 0.1344e4 * t16287 + 0.448e3 * t16289 + 0.448e3 * t16291 - 0.34560e5 * t16293 - 0.103680e6 * t16295 - 0.103680e6 * t16297 - 0.51840e5 * t16299 - 0.51840e5 * t16301 - 0.17280e5 * t16303 - 0.5760e4 * t16305;
3598   t16747 = 0.432e3 * t3733 * t4600 + 0.6e1 * t8088 * t6246 + t16702 * t323 / 0.2e1 + 0.144e3 * t871 * t16289 + 0.2160e4 * t1872 * t1468 + 0.24e2 * t121 * t16734 + 0.144e3 * t6165 * t374 - 0.9e1 / 0.4e1 * t8097 * t6246 + t857 * t6266 / 0.2e1 + t364 * t16354 / 0.2e1 + t8063 * t6246 / 0.8e1;
3599   t16773 = 0.240e3 * t98 * t16204 * t73 + 0.216e3 * t4952 * t1297 - 0.1440e4 * t1837 * t1370 + 0.720e3 * t1377 * t1960 + 0.72e2 * t367 * t16204 + 0.432e3 * t871 * t16232 + 0.432e3 * t871 * t16287 + 0.432e3 * t2708 * t6176 + 0.240e3 * t327 * t6320 - 0.1440e4 * t4663 * t557 + 0.720e3 * t561 * t4943 + 0.432e3 * t4955 * t6176;
3600   t16780 = t1811 * t136;
3601   t16792 = t75 * t6350;
3602   t16801 = 0.216e3 * t3742 * t1806 + 0.216e3 * t1443 * t4592 + 0.432e3 * t16780 * t1297 + 0.432e3 * t285 * t599 * t1811 + 0.432e3 * t9582 * t1811 + 0.216e3 * t12463 * t527 + 0.72e2 * t874 * t6158 + 0.72e2 * t16792 * t285 - 0.9e1 / 0.4e1 * t8114 * t16242 - 0.3e1 / 0.2e1 * t860 * t16253 + 0.3e1 / 0.4e1 * t3784 * t4622;
3603   t16827 = 0.3e1 / 0.2e1 * t3784 * t4617 + 0.3e1 / 0.8e1 * t9729 * t4614 - 0.9e1 / 0.2e1 * t12346 * t1367 + 0.3e1 / 0.4e1 * t12366 * t1367 - 0.9e1 / 0.2e1 * t3751 * t4622 + 0.18e2 * t9540 * t4622 - 0.27e2 / 0.4e1 * t9546 * t4622 - 0.36e2 * t9557 * t16627 + 0.21e2 * t9554 * t6241 - 0.3e1 / 0.2e1 * t12388 * t4622 + 0.3e1 / 0.8e1 * t2729 * t1806 * t1367 + 0.3e1 / 0.4e1 * t868 * t16229;
3604   t16851 = 0.3e1 / 0.4e1 * t868 * t16233 - 0.30e2 * t868 * t16242 + 0.18e2 * t2720 * t16246 + 0.75e2 / 0.4e1 * t8091 * t16242 - 0.9e1 / 0.2e1 * t2723 * t6241 - 0.9e1 / 0.2e1 * t860 * t16233 - 0.9e1 / 0.2e1 * t860 * t16229 + 0.2160e4 * t381 * t6241 + 0.21e2 * t2717 * t16246 + 0.15e2 / 0.2e1 * t8084 * t16242 - 0.3e1 * t903 * t16233;
3605   t16880 = -0.3e1 * t903 * t16229 + 0.48e2 * t380 * t6186 * t285 - 0.36e2 * t380 * t1822 * t1297 - 0.48e2 * t8081 * t16242 + 0.12e2 * t380 * t1317 * t1806 + 0.12e2 * t380 * t532 * t4592 - 0.3e1 / 0.2e1 * t2741 * t16246 - t8076 * t16242 / 0.4e1 + t868 * t16253 / 0.4e1 + 0.3e1 / 0.8e1 * t2729 * t16246 + t8066 * t16242 / 0.16e2 - 0.27e2 / 0.4e1 * t2755 * t16246;
3606   t16893 = 0.34431347791696573440e-1 * t6432 * t4715 - 0.392e3 / 0.675e3 * t1018 * t6435 - 0.64558777109431075200e-2 * t3504 * t49 * t1853 - 0.198e3 / 0.125e3 * t9409 * t4533 + 0.36e2 / 0.25e2 * t3501 * t4536 + 0.1056e4 / 0.625e3 * t7595 * t15920 - 0.198e3 / 0.125e3 * t2428 * t15923 + (-0.8e1 / 0.3e1 * t16204 * t85 - 0.8e1 / 0.3e1 * t6158 * t303 - 0.8e1 * t4592 * t542 - 0.8e1 * t1806 * t1334 - 0.8e1 * t1297 * t1842 - 0.8e1 * t527 * t4782 - 0.8e1 / 0.3e1 * t285 * t6213 - 0.8e1 / 0.3e1 * t69 * (t16543 + t16571)) * t90 - 0.41880455757797808358e-4 * t1474 * sigma[0] * t1994 + 0.44233737333333333333e-1 * t389 * t1988 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t16204 * t144 + 0.8e1 / 0.7e1 * t6158 * t384 + 0.24e2 / 0.7e1 * t4592 * t608 + 0.24e2 / 0.7e1 * t1806 * t1471 + 0.24e2 / 0.7e1 * t1297 * t1973 + 0.24e2 / 0.7e1 * t527 * t4986 + 0.8e1 / 0.7e1 * t285 * t6391 + 0.8e1 / 0.7e1 * t69 * (t16672 + t16696 + t16747 + t16773 + t16801 + t16827 + t16851 + t16880)) * t35 * t39 * t151 + 0.11696748576131687243e0 * t4712 * t1900;
3607   t16923 = -0.81877240032921810701e-1 * t1275 * t6399 - 0.63191053333333333333e-1 * t1476 * t620 - 0.46906110448733545362e-3 * t1991 * t11727 * t522 + 0.35e2 / 0.81e2 * t6275 * t341 * t117 + 0.84254737777777777776e-1 * t4818 * t1249 - 0.11795663288888888889e0 * t1395 * t4821 + 0.94365306311111111109e-1 * t397 * t801 * t6414 + 0.61407930024691358025e-1 * t1894 * t1661 * t1400 - 0.73689516029629629631e-1 * t4826 * t4994 + 0.61407930024691358026e-1 * t4826 * t4997 - 0.17043517156889803853e-1 * t2428 * t15929 * t5011;
3608   t16933 = t6395 * t396;
3609   t16942 = t6276 * t35;
3610   t16951 = t920 * t279;
3611   t16954 = -0.10616096960000000000e0 * t4810 * t15910 + 0.88467474666666666666e-1 * t4810 * t15913 - 0.31595526666666666666e-1 * t11811 * t620 + 0.88467474666666666666e-1 * t612 * t631 * t4811 - 0.10531842222222222222e-1 * t16933 * t400 + 0.44233737333333333333e-1 * t3476 * t1988 - 0.35386989866666666666e-1 * t807 * t6415 - 0.31595526666666666666e-1 * t4818 * t1390 - 0.14e2 / 0.81e2 * t16942 * t349 + 0.48111412961907397289e-3 * t11741 * t6441 - 0.14071833134620063608e-3 * t1991 * t1993 * t3463 * t279 + 0.58632638060916931701e-4 * t6407 * t16951;
3612   t16980 = 0.33504364606238246686e-3 * t6279 * t4709 + 0.48111412961907397289e-3 * t11744 * t6441 + 0.48111412961907397289e-3 * t4687 * t1262 * t9 * t58 + 0.18328157318821865634e-2 * t569 * t4691 + 0.18e2 / 0.25e2 * t12046 * t1252 + 0.40698674272935526800e-4 * t6448 * t16951 + 0.78988816666666666668e-1 * t4991 * t616 - 0.43862807160493827161e-1 * t4797 * t1900 - 0.392e3 / 0.225e3 * t1266 * t4994 + 0.196e3 / 0.135e3 * t1266 * t4997 + 0.30703965012345679013e-1 * t1270 * t6399;
3613   t17008 = t6216 * t309;
3614   t17011 = 0.6664e4 / 0.3375e4 * t345 * t7584 * t15920 - 0.392e3 / 0.225e3 * t345 * t2633 * t15923 - 0.41317617350035888128e-1 * t6404 * t5073 + 0.77470532531317290240e-2 * t1032 * t1262 * t2018 + 0.77470532531317290240e-2 * t2422 * t522 * t2018 - 0.21931403580246913580e-1 * t6429 * t1481 - 0.14e2 / 0.27e2 * t12053 * t576 - 0.14620935720164609054e0 * t6428 * t269 * t117 - 0.66e2 / 0.125e3 * t7589 * t6148 - 0.3e1 / 0.5e1 * t4803 * t1262 + 0.18e2 / 0.25e2 * t9818 * t1793 - t17008 * t279 / 0.5e1;
3615   t17021 = t764 * t1997;
3616   t17034 = t4466 * t154;
3617   t17037 = -0.36e2 * t1219 * t5157 + t27 * (t16385 + t16420 + t16446 + t16893 + t16923 + t16954 + t16980 + t17011) + 0.972e3 * t5111 * t4427 + t251 * t6454 + 0.3e1 * t1775 * t1492 + 0.162e3 * t17021 * t1227 + 0.3e1 * t4486 * t623 + t15757 * t154 + t6087 * t403 - 0.72e2 * t5057 * t4443 + 0.162e3 * t8652 * t1781 + t6096 - 0.18e2 * t1219 * t5114 - 0.36e2 * t17034 * t1212;
3618   t17038 = t11331 * t154;
3619   t17041 = t255 * t1997;
3620   t17044 = t1104 * t6071;
3621   t17050 = t623 * t245;
3622   t17073 = 0.162e3 * t17038 * t1227 - 0.36e2 * t17041 * t1212 - t1792 - 0.9e1 / 0.100e3 * t194 * t17044 * t468 - 0.27e2 / 0.100e3 * t2009 * t1516 - 0.36e2 * t255 * t17050 * t1765 + 0.3e1 * t511 * t5028 - 0.4959e4 / 0.10000e5 * t194 * t8329 * t6126 * t468 + 0.513e3 / 0.1000e4 * t194 * t5046 * t1551 + t194 * t446 * t15880 / 0.10e2 + t440 * t6072 / 0.10e2 - t6132 - 0.27e2 / 0.100e3 * t440 * t6054 - 0.27e2 / 0.100e3 * t194 * t3268 * t2034;
3623   t17099 = t6454 * t20;
3624   t17105 = -0.27e2 / 0.100e3 * t628 * t5043 - 0.27e2 / 0.50e2 * t628 * t5039 - 0.27e2 / 0.100e3 * t408 * t6054 + 0.513e3 / 0.1000e4 * t628 * t5047 - 0.27e2 / 0.100e3 * t194 * t1515 * t5103 + 0.3e1 * t1217 * t1997 - t6139 - 0.648e3 * t2379 * t8310 * t6044 - 0.648e3 * t7333 * t6051 + 0.162e3 * t2370 * t6140 - 0.18e2 * t255 * t5033 * t1209 - t5116 - 0.6e1 * t255 * t17099 * t245 - 0.18e2 * t4466 * t1236;
3625   t17115 = t3109 * t623;
3626   t17118 = t1219 * t623;
3627   t17136 = 0.162e3 * t764 * t10121 * t1765 + 0.324e3 * t764 * t8282 * t6044 - 0.72e2 * t17118 * t1212 + 0.162e3 * t1225 * t15799 + 0.324e3 * t17115 * t1227 - 0.36e2 * t1233 * t15752 - 0.36e2 * t1233 * t15754 - 0.7776e4 * t3896 * t15780 - 0.1944e4 * t3896 * t15783 - 0.36e2 * t3101 * t1784 + 0.324e3 * t2370 * t6133 + 0.972e3 * t5030 * t4427 - 0.72e2 * t4525 * t4443 - t6147;
3628   t17164 = 0.9720e4 * t10028 * t15787 - 0.36e2 * t1219 * t5162 + 0.1080e4 * t1225 * t15791 + 0.972e3 * t1225 * t16069 - 0.18e2 * t4466 * t1241 - 0.1944e4 * t13119 * t4434 - 0.1944e4 * t3896 * t16072 - 0.36e2 * t3101 * t1787 + 0.324e3 * t5030 * t4430 - 0.36e2 * t5057 * t4446 + 0.162e3 * t5111 * t4450 - 0.18e2 * t757 * t6130 - 0.18e2 * t757 * t6143 - t5144;
3629   t17196 = -0.18e2 * t3101 * t1790 + 0.162e3 * t3109 * t5123 - 0.12e2 * t757 * t6089 - 0.12e2 * t255 * t403 * t6044 + t6122 * t469 / 0.10e2 - 0.18e2 * t255 * t3871 * t1767 + t15811 * t193 * t215 + t6121 * t439 * t215 + 0.171e3 / 0.1000e4 * t440 * t6127 - 0.18e2 * t255 * t12964 * t505 - 0.36e2 * t3847 * t6084 - 0.1944e4 * t13124 * t4434 - 0.36e2 * t3888 * t6084 + 0.324e3 * t5111 * t4430;
3630   t17201 = -0.27e2 / 0.100e3 * t1192 * t1551 * t2034 - 0.18e2 * t1219 * t4403 - 0.36e2 * t3101 * t2051 - 0.36e2 * t1219 * t4413 + 0.972e3 * t1563 * t16069 - 0.1944e4 * t3150 * t16072 - 0.27e2 / 0.100e3 * t1192 * t648 * t5103 + 0.513e3 / 0.1000e4 * t10284 * t4460 - 0.27e2 / 0.50e2 * t3906 * t4453 - 0.12e2 * t757 * t6516 - 0.4959e4 / 0.10000e5 * t8485 * t6126 * t468 + 0.513e3 / 0.1000e4 * t3053 * t2013 * t1551 - 0.27e2 / 0.100e3 * t3050 * t6513 - p->cam_beta * (t16120 + t16145 + t17037 + t17073 + t17105 + t17136 + t17164 + t17196);
3631   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3632     v4rhosigma3[0] = -t1202 * t6528 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t240 * (t15837 + t15887 + t15953 + t15983 + t16015 + t16044 + t16059 + t17201);
3633 
3634   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3635     v4rhosigma2lapl[0] = 0.0e0;
3636 
3637   t17228 = t3109 * t704;
3638   t17231 = t1770 * t279;
3639   t17241 = 0.171e3 / 0.1000e4 * t11042 * t4460 + 0.171e3 / 0.1000e4 * t8459 * t6665 + 0.171e3 / 0.1000e4 * t3053 * t1717 * t2013 + 0.33343802616862439615e-4 * t251 * t6542 - 0.9e1 / 0.50e2 * t4070 * t4453 - 0.9e1 / 0.100e3 * t1192 * t6598 * t468 - 0.23340661831803707730e-3 * t27 * t1994 + 0.15093173925925925926e1 * t13420 * t5637 - 0.67919282666666666667e1 * t17228 * t5641 - 0.30186347851851851852e0 * t4338 * t348 * t17231 + 0.15093173925925925926e1 * t4338 * t690 * t4443 - 0.20375784800000000001e2 * t5640 * t690 * t4427;
3640   t17246 = t1214 * t522;
3641   t17252 = t13705 * t1205;
3642   t17255 = t4049 * t4479;
3643   t17258 = t4030 * t664;
3644   t17273 = -0.30186347851851851851e0 * t13420 * t5644 - 0.30186347851851851852e0 * t11208 * t6630 - 0.30186347851851851852e0 * t4338 * t348 * t17246 + 0.648e3 * t4440 * t5485 + 0.648e3 * t1563 * t17252 + 0.324e3 * t1563 * t17255 + 0.108e3 * t17258 * t1227 - 0.12e2 * t5685 * t4446 + 0.54e2 * t5688 * t4450 + 0.324e3 * t5688 * t4427 + 0.108e3 * t5688 * t4430 - 0.648e3 * t13519 * t4434 + 0.108e3 * t4423 * t5363;
3645   t17279 = t1616 * t1767;
3646   t17290 = t6549 * t245;
3647   t17293 = t2083 * t1209;
3648   t17302 = t5270 * t505;
3649   t17314 = t1765 * t1620;
3650   t17317 = t5272 * t505;
3651   t17319 = t2088 * t1209;
3652   t17322 = t1621 * t1767;
3653   t17324 = 0.4e1 * t1209 * t2087 + 0.2e1 * t1767 * t1620 + 0.4e1 * t505 * t5246 + 0.18e2 * t17279 + 0.36e2 * t17293 + 0.36e2 * t17302 + 0.18e2 * t17314 + 0.36e2 * t17317 + 0.36e2 * t17319 + 0.18e2 * t17322 + t1769 + t1773 + t4480 + t4484 + t6546 + t6554;
3654   t17325 = t17324 * t26;
3655   t17326 = -0.648e3 * t3109 * t21 * t5274 + 0.1296e4 * t8655 * t2380 * t5274 + 0.7776e4 * t13886 * t17290 - 0.1080e4 * t13890 * t17290 - 0.9720e4 * t13911 * t17290 + 0.648e3 * t5451 * t17279 - 0.324e3 * t5454 * t17279 + 0.1296e4 * t5451 * t17293 - 0.648e3 * t5454 * t17293 + 0.1296e4 * t5451 * t17302 - 0.648e3 * t5454 * t17302 - t17325 + t2007 + t4512 - t4514 + t4516 + t6640;
3656   t17327 = t10756 * t1765;
3657   t17332 = t10708 * t1765;
3658   t17359 = 0.648e3 * t10685 * t4434 - 0.54e2 * t11331 * t1637 + 0.24e2 * t5413 * t1212 - 0.108e3 * t13350 * t1227 + 0.12e2 * t4466 * t1623 + 0.24e2 * t1630 * t4443 + 0.12e2 * t1630 * t4446 + 0.12e2 * t255 * t17279 + 0.12e2 * t255 * t17322 + 0.648e3 * t2379 * t17327 - 0.324e3 * t764 * t17332 - 0.324e3 * t2370 * t6626 - 0.324e3 * t4030 * t4427 - 0.108e3 * t4030 * t4430 - 0.54e2 * t4030 * t4450 - t6656 + t6662;
3659   t17383 = t13694 * t505;
3660   t17386 = t5376 * t1209;
3661   t17391 = t4053 * t1767;
3662   t17398 = 0.24e2 * t1219 * t5274 + 0.24e2 * t1219 * t5276 + 0.24e2 * t1219 * t5278 + 0.24e2 * t1219 * t5280 + 0.24e2 * t255 * t17293 - 0.108e3 * t764 * t17383 - 0.108e3 * t764 * t17386 - 0.54e2 * t764 * t17391 + 0.24e2 * t3101 * t2090 - 0.108e3 * t8652 * t2102 - 0.54e2 * t2370 * t6603 - 0.108e3 * t2370 * t6612 - 0.108e3 * t3109 * t5360 - 0.108e3 * t3109 * t5363 - 0.108e3 * t3109 * t5377 + 0.24e2 * t757 * t6551 + 0.648e3 * t7333 * t6623;
3663   t17419 = t6555 * t254;
3664   t17434 = -0.54e2 * t10432 * t2001 + 0.6e1 * t11336 * t680 + 0.12e2 * t5413 * t1214 + 0.12e2 * t1219 * t5282 + 0.12e2 * t13796 * t508 + 0.6e1 * t4466 * t1625 + 0.12e2 * t1630 * t4481 + 0.24e2 * t255 * t17302 + 0.12e2 * t255 * t17314 + 0.24e2 * t255 * t17317 + 0.24e2 * t255 * t17319 + 0.6e1 * t17419 * t248 + 0.12e2 * t4006 * t1770 + 0.6e1 * t4006 * t1772 + 0.12e2 * t3101 * t2092 + 0.12e2 * t757 * t6549 + 0.12e2 * t757 * t6553;
3665   t17436 = t17326 + t17359 + t17398 + t17434;
3666   t17452 = t5413 * t229;
3667   t17455 = t13350 * t229;
3668   t17458 = 0.108e3 * t11384 * t2102 + t683 * t5212 + t1628 * t2070 + t17436 * t215 + 0.50310579753086419752e-1 * t14753 * t1900 + 0.50310579753086419752e-1 * t5302 * t5000 - 0.35217405827160493826e-1 * t4309 * t6399 - 0.24e2 * t11290 * t2090 - 0.24e2 * t5225 * t5274 - 0.24e2 * t5225 * t5276 + t3990 * t2172 / 0.5e1 - 0.24e2 * t17452 * t1212 + 0.108e3 * t17455 * t1227;
3669   t17459 = t1630 * t664;
3670   t17464 = t6663 * t446;
3671   t17515 = 0.73e2 / 0.3645e4 * t638 * t1528 * t2087 + 0.73e2 / 0.135e3 * t704 * t6574 * t245 + 0.146e3 / 0.135e3 * t704 * t2151 * t1209 + 0.73e2 / 0.9720e4 * t638 * t45 * t5246 * t211 - 0.73e2 / 0.4860e4 * t638 * t6584 * t245 - 0.73e2 / 0.4860e4 * t638 * t5322 * t505 - 0.73e2 / 0.4860e4 * t638 * t2158 * t1209 - 0.73e2 / 0.9720e4 * t638 * t639 * t5246 - 0.73e2 / 0.3645e4 * t638 * t269 * t2087 * t211 + 0.146e3 / 0.3645e4 * t638 * t5318 * t505 + t6594 + 0.584e3 / 0.135e3 * t5329 * t505 + 0.584e3 / 0.135e3 * t5332 * t505;
3672   t17525 = 0.584e3 / 0.135e3 * t2162 * t1209 + 0.292e3 / 0.135e3 * t1705 * t1767 + 0.292e3 / 0.135e3 * t1708 * t1767 + t6583 - t6577 - 0.73e2 / 0.81e2 * t6064 - t5094 + t5096 + t5102 - t2029 + t2033 + 0.73e2 / 0.162e3 * t6061 - 0.73e2 / 0.162e3 * t6067;
3673   t17526 = t17515 + t17525;
3674   t17531 = -0.24e2 * t17459 * t1212 + 0.2e1 * t2095 * t1597 + t17464 * t468 / 0.10e2 - 0.9e1 / 0.100e3 * t11528 * t1756 - 0.9e1 / 0.50e2 * t14567 * t1605 - 0.9e1 / 0.100e3 * t4070 * t4391 + t5174 * t1717 / 0.10e2 - 0.648e3 * t3150 * t17327 - 0.24e2 * t13140 * t2090 + t6605 - t6620 + t496 * t17526 / 0.10e2 + t4302 * t2034 / 0.10e2;
3675   t17555 = t6556 * t493 + 0.2e1 * t5285 * t664 + t5294 * t1551 / 0.5e1 + t17325 * t229 - 0.6e1 * t17419 * t476 - 0.12e2 * t5413 * t1577 - 0.12e2 * t255 * t3971 * t2087 - 0.6e1 * t255 * t4402 * t1620 - 0.12e2 * t757 * t6688 - 0.6e1 * t255 * t13279 * t677 - t4401 - t4421 - t2056;
3676   t17568 = t6665 * t468;
3677   t17584 = -0.12e2 * t1219 * t5241 - 0.12e2 * t1219 * t5247 - 0.6e1 * t757 * t6685 - 0.12e2 * t3101 * t2191 - 0.9e1 / 0.50e2 * t3906 * t5699 + 0.50310579753086419753e0 * t11218 * t6630 - 0.4959e4 / 0.10000e5 * t8485 * t17568 - 0.83850966255144032920e-1 * t14750 * t1900 + t1189 * t6598 / 0.10e2 - 0.648e3 * t8731 * t6623 - 0.24e2 * t15968 * t1623 + 0.108e3 * t15950 * t1637 - 0.12e2 * t255 * t1576 * t5246;
3678   t17606 = t508 * t1262;
3679   t17610 = -0.6e1 * t1630 * t4399 + 0.54e2 * t10432 * t2045 + 0.54e2 * t4030 * t4394 - 0.12e2 * t1630 * t4463 - 0.12e2 * t1630 * t4408 - 0.6e1 * t4006 * t2054 - t6680 + 0.108e3 * t11277 * t2102 + 0.108e3 * t4440 * t5360 + 0.108e3 * t4440 * t5363 - 0.648e3 * t8736 * t6623 - 0.30186347851851851852e0 * t4338 * t348 * t17606 - t4448;
3680   t17640 = t4452 + t11420 * t714 / 0.10e2 + t14661 * t648 / 0.5e1 + t1751 * t5103 / 0.10e2 - 0.12e2 * t1630 * t4413 - 0.12e2 * t1630 * t4417 - 0.12e2 * t757 * t6571 - 0.12e2 * t255 * t493 * t1765 * t677 - 0.12e2 * t255 * t6570 * t1620 - 0.9e1 / 0.100e3 * t3050 * t6536 - 0.9e1 / 0.50e2 * t1192 * t2172 * t1551 - 0.9e1 / 0.50e2 * t1192 * t5353 * t648 - 0.30186347851851851852e0 * t13420 * t5634;
3681   t17648 = t1793 * t20 * t245;
3682   t17652 = t1772 * t279;
3683   t17662 = t2001 * t279;
3684   t17669 = t921 * t20;
3685   t17670 = t505 * t522;
3686   t17672 = t17669 * t17670 * t279;
3687   t17675 = t17670 * t245;
3688   t17676 = t14393 * t17675;
3689   t17679 = t14404 * t17675;
3690   t17688 = 0.40751569600000000001e2 * t13403 * t690 * t4434 + 0.21130443496296296296e0 * t4338 * t921 * t17648 - 0.15093173925925925926e0 * t4338 * t348 * t17652 + 0.75465869629629629630e0 * t4338 * t690 * t4446 - 0.33959641333333333334e1 * t5640 * t690 * t4450 + 0.13583856533333333334e1 * t5640 * t348 * t17662 - 0.67919282666666666668e1 * t5640 * t690 * t4430 + 0.42260886992592592593e0 * t4338 * t17672 - 0.60372695703703703704e0 * t4338 * t17676 + 0.27167713066666666667e1 * t5640 * t17679 - 0.12e2 * t4006 * t2048 - 0.12e2 * t1219 * t5675 - 0.12e2 * t13796 * t655;
3691   t17715 = -0.12e2 * t5413 * t1566 - 0.12e2 * t5413 * t1572 - 0.12e2 * t1219 * t5672 - 0.6e1 * t4466 * t1731 - 0.6e1 * t4466 * t1736 - 0.12e2 * t3101 * t2186 - 0.6e1 * t1630 * t4403 - 0.6e1 * t11336 * t721 - 0.9e1 / 0.50e2 * t3050 * t6691 - 0.9e1 / 0.50e2 * t3906 * t5702 - 0.9e1 / 0.50e2 * t3906 * t5705 - 0.9e1 / 0.50e2 * t10296 * t2206 - 0.12e2 * t15823 * t1623;
3692   t17731 = t255 * t6541;
3693   t17732 = t347 * t20;
3694   t17748 = 0.54e2 * t15826 * t1637 - 0.24e2 * t4437 * t5280 - 0.9e1 / 0.100e3 * t1192 * t1717 * t2034 - 0.9e1 / 0.100e3 * t1192 * t714 * t5103 + 0.54e2 * t3080 * t6603 + 0.54e2 * t1563 * t17391 - 0.20006281570117463769e-3 * t17731 * t17732 * t245 - 0.24e2 * t3155 * t6551 - 0.24e2 * t1569 * t17302 - 0.24e2 * t1569 * t17317 - 0.24e2 * t1569 * t17319 - 0.12e2 * t3074 * t6553 - 0.24e2 * t4437 * t5276;
3695   t17790 = 0.324e3 * t5614 * t4427 + 0.108e3 * t5614 * t4430 - 0.648e3 * t14425 * t4434 - 0.6e1 * t757 * t6755 - 0.9e1 / 0.100e3 * t1679 * t2014 - 0.9e1 / 0.100e3 * t1681 * t2014 + t628 * t5599 / 0.5e1 + t2009 * t1718 / 0.10e2 + t1505 * t2173 / 0.5e1 + t1507 * t2173 / 0.5e1 + t5137 * t715 / 0.10e2 - 0.12e2 * t1219 * t5543 - 0.12e2 * t3847 * t6553 + 0.10481370781893004115e0 * t6733 * t1662 - 0.62888224691358024691e-1 * t27 * t16395 * t691;
3696   t17826 = -0.62888224691358024691e-1 * t251 * t6428 * t691 + 0.58695676378600823043e-1 * t688 * t1661 * t1903 + 0.25155289876543209876e-1 * t6776 * t1665 + 0.50310579753086419752e-1 * t6779 * t1665 - 0.83850966255144032920e-1 * t2113 * t5565 - 0.83850966255144032920e-1 * t2120 * t5565 - 0.35217405827160493826e-1 * t1648 * t6810 - 0.35217405827160493826e-1 * t1658 * t6810 + t408 * t6706 / 0.10e2 + t440 * t6706 / 0.10e2 + 0.108e3 * t3883 * t6612 - 0.24e2 * t5057 * t5280 - 0.12e2 * t1630 * t5140 - 0.24e2 * t5057 * t5278 + 0.108e3 * t11670 * t2102 + 0.13583856533333333334e1 * t4220 * t4267 * t17662;
3697   t17850 = t6549 * t248;
3698   t17863 = t1104 * t6598;
3699   t17867 = -0.67919282666666666668e1 * t4220 * t117 * t4430 + 0.10481370781893004115e0 * t6776 * t1662 + 0.20962741563786008230e0 * t6779 * t1662 - 0.12577644938271604938e0 * t511 * t4796 * t691 - 0.62888224691358024691e-1 * t4486 * t572 * t691 - 0.62888224691358024691e-1 * t1775 * t1269 * t691 - 0.12577644938271604938e0 * t1217 * t1894 * t691 + 0.2e1 * t2095 * t1492 + t6556 * t403 + 0.1080e4 * t1225 * t17850 - 0.12e2 * t255 * t1240 * t5246 - 0.12e2 * t255 * t3871 * t2087 + t17436 * t193 * t215 - 0.23340661831803707730e-3 * t27 * t6449 - 0.9e1 / 0.100e3 * t194 * t17863 * t468;
3700   t17908 = -0.12e2 * t757 * t6700 - 0.30186347851851851852e0 * t5498 * t5581 + 0.15093173925925925926e1 * t5498 * t5584 - 0.67919282666666666667e1 * t14002 * t5587 - 0.15093173925925925926e0 * t1652 * t4267 * t17652 + 0.75465869629629629630e0 * t1652 * t117 * t4446 - 0.33959641333333333334e1 * t4220 * t117 * t4450 - 0.30186347851851851852e0 * t1652 * t4267 * t17231 + 0.15093173925925925926e1 * t1652 * t117 * t4443 - 0.20375784800000000001e2 * t4220 * t117 * t4427 + 0.21130443496296296296e0 * t1652 * t10971 * t17648 - 0.30186347851851851852e0 * t5533 * t5581 + 0.15093173925925925926e1 * t5533 * t5584 - 0.30186347851851851852e0 * t4209 * t6773 - 0.30186347851851851852e0 * t4213 * t6773 - 0.30186347851851851852e0 * t1652 * t4267 * t17246;
3701   t17936 = t6691 * t468;
3702   t17941 = -0.67919282666666666667e1 * t14028 * t5587 + 0.40751569600000000001e2 * t10940 * t117 * t4434 - 0.30186347851851851851e0 * t5498 * t5592 - 0.30186347851851851851e0 * t5533 * t5592 + 0.50310579753086419753e0 * t4226 * t6773 + t6716 + 0.50310579753086419752e-1 * t5394 * t2123 + 0.50310579753086419752e-1 * t5397 * t2123 + 0.50310579753086419752e-1 * t2113 * t5560 + 0.50310579753086419752e-1 * t5388 * t2123 + 0.50310579753086419752e-1 * t5391 * t2123 + 0.50310579753086419752e-1 * t2120 * t5560 - 0.6e1 * t1630 * t5114 + 0.171e3 / 0.500e3 * t5536 * t17936 - 0.12e2 * t17034 * t1623;
3703   t17958 = t10742 * t4481;
3704   t17961 = t4045 * t4477;
3705   t17964 = t10760 * t4481;
3706   t17972 = 0.54e2 * t17038 * t1637 + 0.108e3 * t1225 * t17383 - 0.12e2 * t1219 * t5400 - 0.6e1 * t4006 * t1790 + t6704 * t469 / 0.10e2 - t6723 - 0.60372695703703703704e0 * t14388 * t17676 + 0.27167713066666666667e1 * t14403 * t17679 + 0.42260886992592592593e0 * t14388 * t17672 - 0.7776e4 * t3896 * t17958 - 0.1296e4 * t3896 * t17961 + 0.9720e4 * t10028 * t17964 - 0.20006281570117463769e-3 * t14387 * t6542 * t248 - t5061 + t5063 + 0.2e1 * t5285 * t623;
3707   t18005 = -0.6e1 * t255 * t5033 * t1620 - 0.6e1 * t11336 * t685 + 0.108e3 * t11678 * t2102 - 0.12e2 * t1219 * t5546 - 0.12e2 * t1219 * t5549 + 0.648e3 * t1225 * t17252 - 0.12e2 * t5413 * t1230 - 0.12e2 * t13796 * t513 - 0.6e1 * t4466 * t1640 - 0.6e1 * t4466 * t1645 - 0.12e2 * t3101 * t2105 - 0.12e2 * t3101 * t2110 + 0.54e2 * t3883 * t6603 + 0.108e3 * t5030 * t5363 + 0.108e3 * t5111 * t5360;
3708   t18041 = 0.648e3 * t5030 * t5485 + t697 * t5104 / 0.10e2 + t5134 * t715 / 0.10e2 + t1679 * t2035 / 0.10e2 + t1681 * t2035 / 0.10e2 - 0.24e2 * t12868 * t2090 + t194 * t446 * t17526 / 0.10e2 - 0.648e3 * t9982 * t6623 + 0.54e2 * t4030 * t5123 - 0.9e1 / 0.50e2 * t628 * t5522 + 0.54e2 * t10432 * t1781 - 0.9e1 / 0.50e2 * t1505 * t2143 - 0.9e1 / 0.50e2 * t1507 * t2143 - 0.9e1 / 0.50e2 * t194 * t14187 * t648 - 0.9e1 / 0.50e2 * t194 * t5608 * t1551 - 0.9e1 / 0.50e2 * t408 * t6726;
3709   t18049 = t6536 * t468;
3710   t18062 = t4466 * t1651;
3711   t18065 = t1219 * t5497;
3712   t18072 = t116 * t245;
3713   t18074 = t40 * t18072 * t1765;
3714   t18079 = t1630 * t623;
3715   t18082 = -0.9e1 / 0.50e2 * t440 * t6726 - 0.9e1 / 0.50e2 * t628 * t5422 + 0.171e3 / 0.1000e4 * t5536 * t18049 - 0.24e2 * t5057 * t5274 + 0.37732934814814814815e0 * t4209 * t6748 + 0.37732934814814814815e0 * t4213 * t6748 - 0.33959641333333333334e1 * t10530 * t6752 - 0.33959641333333333334e1 * t10933 * t6752 + 0.37732934814814814815e0 * t18062 * t1655 + 0.75465869629629629628e0 * t18065 * t1655 + 0.75465869629629629630e0 * t4209 * t6740 + 0.75465869629629629630e0 * t4213 * t6740 + 0.75465869629629629630e0 * t1652 * t18074 + 0.324e3 * t1225 * t17255 - 0.24e2 * t18079 * t1212;
3716   t18083 = t4030 * t623;
3717   t18113 = 0.108e3 * t18083 * t1227 - 0.12577644938271604938e1 * t4226 * t6740 - 0.12577644938271604938e1 * t14042 * t2117 + t6750 - 0.12577644938271604938e1 * t14493 * t2117 - 0.62888224691358024692e0 * t4226 * t6748 + 0.56599402222222222223e1 * t10504 * t6752 - 0.6e1 * t1630 * t5034 - 0.9e1 / 0.100e3 * t2009 * t1690 + t1628 * t1997 + t6663 * t439 * t215 + 0.108e3 * t3891 * t6612 - 0.12e2 * t1630 * t5130 - 0.24e2 * t3847 * t6551 - 0.24e2 * t5569 * t4443 - 0.24e2 * t1233 * t17293;
3718   t18135 = t2206 * t1551;
3719   t18144 = t27 * t104;
3720   t18145 = t6541 * t920;
3721   t18146 = t18145 * t279;
3722   t18149 = -0.24e2 * t3888 * t6551 + 0.324e3 * t1225 * t17332 - 0.24e2 * t12857 * t2090 - t1792 - 0.12e2 * t255 * t6766 * t1620 + 0.171e3 / 0.1000e4 * t194 * t10584 * t2013 - 0.12e2 * t5413 * t1241 + 0.171e3 / 0.1000e4 * t408 * t6782 + 0.171e3 / 0.1000e4 * t440 * t6782 - 0.12e2 * t1630 * t5162 + 0.171e3 / 0.500e3 * t5536 * t18135 - 0.4959e4 / 0.10000e5 * t14246 * t17568 - 0.12e2 * t5569 * t4446 + 0.54e2 * t5614 * t4450 - 0.46681323663607415461e-4 * t18144 * t18146;
3723   t18156 = t255 * t6428 * t107;
3724   t18173 = t40 * t4695;
3725   t18176 = t40 * t4699;
3726   t18187 = t683 * t5028 - 0.12e2 * t4006 * t1787 - 0.6e1 * t17419 * t257 + 0.37732934814814814815e0 * t18156 * t1655 - 0.70434811654320987653e-1 * t511 * t1651 * t5261 - 0.70434811654320987653e-1 * t27 * t5497 * t5261 - 0.12e2 * t4006 * t1784 - 0.12e2 * t5413 * t1236 - 0.9e1 / 0.100e3 * t408 * t6736 - 0.9e1 / 0.100e3 * t440 * t6736 + 0.84521773985185185182e-1 * t5501 * t18173 - 0.70434811654320987652e-1 * t5501 * t18176 + 0.75465869629629629630e0 * t14020 * t2117 + 0.75465869629629629630e0 * t14023 * t2117 + 0.75465869629629629630e0 * t5533 * t5258 + 0.75465869629629629630e0 * t13993 * t2117;
3727   t18223 = 0.75465869629629629630e0 * t13997 * t2117 + 0.75465869629629629630e0 * t5498 * t5258 + 0.108e3 * t5111 * t5377 + 0.108e3 * t5030 * t5360 + 0.54e2 * t1225 * t17391 - 0.648e3 * t10002 * t6623 - t5116 - 0.30186347851851851852e0 * t1652 * t4267 * t17606 - 0.9e1 / 0.100e3 * t194 * t4194 * t2034 - 0.9e1 / 0.100e3 * t194 * t1689 * t5103 + 0.108e3 * t1225 * t17386 + 0.54e2 * t3891 * t6603 - 0.12e2 * t255 * t403 * t1765 * t677 - 0.12e2 * t1630 * t5157 - 0.12e2 * t757 * t6767;
3728   t18224 = t4049 * t4477;
3729   t18241 = t5413 * t154;
3730   t18244 = t13350 * t154;
3731   t18255 = -0.24e2 * t18241 * t1212 + 0.648e3 * t1225 * t18224 + 0.108e3 * t18244 * t1227 - 0.24e2 * t1233 * t17302 - 0.24e2 * t1233 * t17317 - 0.24e2 * t1233 * t17319 + 0.108e3 * t12917 * t2102 - 0.1296e4 * t13119 * t5488 - 0.1296e4 * t13124 * t5488 - 0.12e2 * t3888 * t6553 - 0.24e2 * t4525 * t5274 - 0.24e2 * t4525 * t5276 - 0.24e2 * t4525 * t5278 + 0.648e3 * t5111 * t5485 - t5144 - t6789;
3732   t18267 = t13701 * t1205;
3733   t18270 = t4045 * t4479;
3734   t18293 = 0.108e3 * t17115 * t1637 - 0.24e2 * t12938 * t2090 - 0.24e2 * t12925 * t2090 - 0.12e2 * t1233 * t17279 - 0.12e2 * t1233 * t17322 - 0.1296e4 * t3896 * t18267 - 0.648e3 * t3896 * t18270 + 0.108e3 * t5111 * t5363 + 0.54e2 * t17021 * t1637 + 0.171e3 / 0.500e3 * t628 * t2957 * t5236 - 0.648e3 * t3896 * t17327 + 0.324e3 * t3891 * t6626 - 0.24e2 * t4525 * t5280 + 0.108e3 * t5030 * t5377 - 0.6e1 * t255 * t12964 * t677 + 0.171e3 / 0.1000e4 * t697 * t5047;
3735   t18327 = -0.9e1 / 0.50e2 * t697 * t5039 + 0.33343802616862439615e-4 * t251 * t6730 + 0.33343802616862439615e-4 * t27 * t334 * t6541 * t347 + t17325 * t154 + 0.108e3 * t12931 * t2102 + 0.324e3 * t3883 * t6626 - 0.24e2 * t17118 * t1623 - 0.12e2 * t17041 * t1623 + 0.25155289876543209876e-1 * t6733 * t1665 - 0.24e2 * t5057 * t5276 - 0.9e1 / 0.50e2 * t2137 * t1516 - 0.9e1 / 0.100e3 * t697 * t5043 - 0.9e1 / 0.50e2 * t628 * t5609 + t2137 * t1552 / 0.5e1 + t5479 * t649 / 0.5e1 + t5428 * t649 / 0.5e1;
3736   t18347 = -0.24e2 * t4437 * t5278 - 0.24e2 * t1569 * t17293 - 0.24e2 * t3074 * t6551 - 0.24e2 * t11309 * t2090 - 0.24e2 * t4437 * t5274 - p->cam_beta * (t17790 + t17826 + t17867 + t17908 + t17941 + t17972 + t18005 + t18041 + t18082 + t18113 + t18149 + t18187 + t18223 + t18255 + t18293 + t18327) + 0.324e3 * t3080 * t6626 + 0.324e3 * t1563 * t17332 - 0.12e2 * t15962 * t1623 + 0.54e2 * t15965 * t1637 + 0.324e3 * t3077 * t6626 - 0.24e2 * t5225 * t5280 + 0.108e3 * t4423 * t5377;
3737   t18376 = 0.648e3 * t4423 * t5485 - 0.1296e4 * t11346 * t5488 - 0.1296e4 * t11284 * t5488 - 0.1296e4 * t3150 * t18267 - 0.648e3 * t3150 * t18270 - 0.1296e4 * t3150 * t17961 + 0.9720e4 * t8722 * t17964 + 0.108e3 * t3077 * t6612 + 0.108e3 * t3080 * t6612 + 0.108e3 * t1563 * t17383 + 0.108e3 * t1563 * t17386 + 0.54e2 * t3077 * t6603 + 0.171e3 / 0.500e3 * t3053 * t17936;
3738   t18404 = t1600 * t5353 / 0.5e1 - 0.62888224691358024691e-1 * t4486 * t10 * t691 + 0.1080e4 * t1563 * t17850 + 0.648e3 * t1563 * t18224 - 0.7776e4 * t3150 * t17958 + 0.108e3 * t4440 * t5377 - 0.24e2 * t5225 * t5278 + 0.108e3 * t13172 * t2102 + 0.108e3 * t13175 * t2102 + 0.108e3 * t4423 * t5360 - 0.9e1 / 0.100e3 * t10416 * t2013 + 0.171e3 / 0.500e3 * t10284 * t5236 - 0.62888224691358024692e0 * t4357 * t6748;
3739   t18412 = t4466 * t703;
3740   t18433 = -0.12577644938271604938e1 * t4357 * t6740 + 0.56599402222222222223e1 * t11024 * t6752 - 0.12577644938271604938e1 * t14638 * t2117 + 0.37732934814814814815e0 * t18412 * t1655 + 0.75465869629629629630e0 * t4367 * t6740 + 0.75465869629629629630e0 * t1742 * t18074 + 0.84521773985185185182e-1 * t1747 * t18173 - 0.70434811654320987652e-1 * t1747 * t18176 + 0.75465869629629629630e0 * t14769 * t2117 + 0.75465869629629629630e0 * t5252 * t5258 - 0.70434811654320987653e-1 * t5302 * t5261 + 0.37732934814814814815e0 * t4367 * t6748 - 0.33959641333333333334e1 * t11238 * t6752;
3741   t18436 = t1775 * t703;
3742   t18459 = t6822 + 0.10481370781893004115e0 * t6531 * t1662 + 0.25155289876543209876e-1 * t18436 * t1481 + 0.58695676378600823043e-1 * t4312 * t6399 + 0.171e3 / 0.500e3 * t3053 * t18135 - 0.12e2 * t4006 * t2051 - 0.12e2 * t3155 * t6553 - 0.12e2 * t1569 * t17279 - 0.12e2 * t1569 * t17322 - 0.24e2 * t5685 * t4443 - 0.24e2 * t11287 * t2090 - 0.46681323663607415461e-4 * t27 * t18146 + 0.171e3 / 0.1000e4 * t3053 * t18049;
3743   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3744     v4rhosigma2tau[0] = -t1202 * t6830 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t240 * (t17241 + t17273 + t17458 + t17531 + t17555 + t17584 + t17610 + t17640 + t17688 + t17715 + t17748 + t18347 + t18376 + t18404 + t18433 + t18459);
3745 
3746   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3747     v4rhosigmalapl2[0] = 0.0e0;
3748 
3749   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3750     v4rhosigmalapltau[0] = 0.0e0;
3751 
3752   t18509 = -0.73e2 / 0.7290e4 * t638 * t269 * t2221 * t211 + 0.73e2 / 0.7290e4 * t638 * t1528 * t2221 - 0.73e2 / 0.135e3 * t704 * t39 * t5246 * t211 + 0.146e3 / 0.135e3 * t704 * t6871 * t245 + 0.146e3 / 0.135e3 * t704 * t5726 * t505 + 0.146e3 / 0.135e3 * t704 * t2272 * t1209 + 0.73e2 / 0.135e3 * t704 * t705 * t5246 + 0.73e2 / 0.19440e5 * t638 * t45 * t5742 * t211 - 0.73e2 / 0.9720e4 * t638 * t6881 * t245 - 0.73e2 / 0.4860e4 * t638 * t2158 * t1620 - 0.73e2 / 0.19440e5 * t638 * t639 * t5742 + 0.292e3 / 0.135e3 * t5743 * t505 + 0.292e3 / 0.135e3 * t2279 * t1209;
3753   t18520 = my_piecewise3(t18, -t241 * t2218 / 0.4e1, 0);
3754   t18539 = 0.584e3 / 0.135e3 * t1705 * t2087 + 0.584e3 / 0.135e3 * t1708 * t2087 + 0.584e3 / 0.135e3 * t709 * t5246 + 0.146e3 / 0.135e3 * t460 * t6852 + 0.146e3 / 0.135e3 * t210 * t18520 - 0.146e3 / 0.135e3 * t457 * t6852 * t211 - 0.146e3 / 0.135e3 * t207 * t18520 * t211 + 0.292e3 / 0.135e3 * t6885 * t245 + 0.292e3 / 0.135e3 * t5737 * t505 + 0.73e2 / 0.81e2 * t6586 - 0.146e3 / 0.81e2 * t6589 - 0.73e2 / 0.81e2 * t6596 + 0.73e2 / 0.3645e4 * t40 * t801 * t2215;
3755   t18540 = t18509 + t18539;
3756   t18577 = t6906 * t468;
3757   t18582 = t6909 * t468;
3758   t18589 = t697 * t5599 / 0.5e1 + t1679 * t2173 / 0.5e1 + t1681 * t2173 / 0.5e1 - 0.12577644938271604938e0 * t5285 * t572 * t691 - 0.12577644938271604938e0 * t2095 * t1269 * t691 - 0.12577644938271604938e0 * t1628 * t1894 * t691 - 0.12577644938271604938e0 * t683 * t4796 * t691 + 0.54e2 * t5030 * t5820 - 0.4959e4 / 0.10000e5 * t14246 * t18577 - 0.12e2 * t4525 * t5781 + 0.171e3 / 0.500e3 * t5536 * t18582 - 0.9e1 / 0.50e2 * t697 * t5422 - 0.12e2 * t757 * t7053;
3759   t18619 = t7006 * t469 / 0.10e2 - 0.9e1 / 0.100e3 * t628 * t5962 - 0.9e1 / 0.100e3 * t2259 * t1516 - 0.9e1 / 0.50e2 * t697 * t5609 + 0.171e3 / 0.1000e4 * t408 * t6923 + 0.54e2 * t764 * t10121 * t2215 - 0.6e1 * t5787 * t1230 - 0.12e2 * t5413 * t1640 - 0.6e1 * t15023 * t513 - 0.6e1 * t5787 * t1236 - 0.12e2 * t13796 * t685 - 0.12e2 * t1630 * t5543 + t5906 * t649 / 0.10e2 + t2259 * t1552 / 0.10e2;
3760   t18624 = t6853 * t245;
3761   t18627 = t765 * t6852;
3762   t18628 = t18627 * t245;
3763   t18631 = t2083 * t1620;
3764   t18655 = 0.171e3 / 0.500e3 * t697 * t2957 * t5236 - 0.12e2 * t1233 * t18624 + 0.54e2 * t1225 * t18628 - 0.24e2 * t1233 * t18631 + 0.11319880444444444445e2 * t10504 * t6959 + 0.15093173925925925926e1 * t1652 * t117 * t5278 - 0.67919282666666666667e1 * t10530 * t6959 - 0.67919282666666666667e1 * t10933 * t6959 + 0.15093173925925925926e1 * t5498 * t5899 - 0.67919282666666666667e1 * t14002 * t5902 - 0.67919282666666666665e1 * t15131 * t5587 - 0.30186347851851851852e0 * t5533 * t5896 + 0.15093173925925925926e1 * t5533 * t5899 - 0.67919282666666666667e1 * t14028 * t5902;
3765   t18664 = t2092 * t279;
3766   t18676 = t7081 * t468;
3767   t18679 = t4053 * t2087;
3768   t18682 = t1636 * t5246;
3769   t18692 = -0.30186347851851851851e0 * t5915 * t5581 + 0.15093173925925925926e1 * t5915 * t5584 + 0.50310579753086419753e0 * t4226 * t6953 - 0.25155289876543209877e1 * t4226 * t6956 - 0.30186347851851851852e0 * t1652 * t4267 * t18664 + 0.15093173925925925926e1 * t1652 * t117 * t5280 - 0.67919282666666666667e1 * t4220 * t117 * t5377 - 0.30186347851851851852e0 * t5498 * t5896 + 0.171e3 / 0.1000e4 * t5536 * t18676 + 0.108e3 * t1225 * t18679 + 0.108e3 * t1225 * t18682 - 0.648e3 * t10002 * t6982 + 0.324e3 * t5111 * t5805 + t194 * t446 * t18540 / 0.10e2;
3770   t18705 = t5804 * t1209;
3771   t18714 = t678 * t5246;
3772   t18724 = -0.9e1 / 0.100e3 * t1505 * t2264 - 0.9e1 / 0.100e3 * t1507 * t2264 + 0.54e2 * t8652 * t2236 + 0.54e2 * t3109 * t5911 - 0.12e2 * t1630 * t5549 + 0.324e3 * t1225 * t18705 + 0.108e3 * t3891 * t6988 - 0.648e3 * t13124 * t5801 + 0.108e3 * t5111 * t5808 - 0.24e2 * t1233 * t18714 + 0.324e3 * t3891 * t6985 + 0.324e3 * t3883 * t6985 - 0.12e2 * t255 * t10095 * t2215;
3773   t18725 = t677 * t522;
3774   t18727 = t17669 * t18725 * t279;
3775   t18730 = t18725 * t245;
3776   t18731 = t14393 * t18730;
3777   t18734 = t14404 * t18730;
3778   t18737 = t2083 * t279;
3779   t18738 = t14393 * t18737;
3780   t18762 = 0.42260886992592592593e0 * t14388 * t18727 - 0.60372695703703703704e0 * t14388 * t18731 + 0.27167713066666666667e1 * t14403 * t18734 - 0.60372695703703703704e0 * t14388 * t18738 - 0.6e1 * t255 * t770 * t6852 - 0.24e2 * t5057 * t5779 + t5909 * t649 / 0.10e2 + 0.54e2 * t3891 * t6918 + 0.54e2 * t3883 * t6918 - 0.12e2 * t4006 * t2105 - 0.12e2 * t5413 * t1645 - 0.12577644938271604938e1 * t15119 * t2117 + 0.75465869629629629630e0 * t13993 * t2240 + 0.75465869629629629630e0 * t13997 * t2240;
3781   t18771 = t40 * t1653 * t5246;
3782   t18794 = 0.75465869629629629630e0 * t5498 * t5885 + 0.75465869629629629630e0 * t4209 * t6947 + 0.75465869629629629630e0 * t4213 * t6947 + 0.75465869629629629630e0 * t1652 * t18771 + 0.75465869629629629628e0 * t15122 * t2117 + 0.75465869629629629628e0 * t15125 * t2117 + 0.75465869629629629628e0 * t5915 * t5258 + 0.75465869629629629630e0 * t14020 * t2240 + 0.75465869629629629630e0 * t14023 * t2240 + 0.75465869629629629630e0 * t5533 * t5885 - 0.12577644938271604938e1 * t4226 * t6947 - 0.12577644938271604938e1 * t14042 * t2240 - 0.12577644938271604938e1 * t14493 * t2240 - 0.9e1 / 0.50e2 * t1681 * t2143;
3783   t18812 = t5800 * t1209;
3784   t18826 = -0.9e1 / 0.50e2 * t697 * t5522 - 0.12e2 * t1630 * t5546 - 0.6e1 * t255 * t256 * t18520 - 0.9e1 / 0.50e2 * t1679 * t2143 - 0.12e2 * t1219 * t5989 - 0.648e3 * t9982 * t6982 - 0.24e2 * t14368 * t2090 + 0.108e3 * t18244 * t1637 - 0.648e3 * t3896 * t18812 - 0.24e2 * t14381 * t2090 - 0.24e2 * t18241 * t1623 - 0.6e1 * t255 * t1240 * t5742 - 0.12e2 * t3101 * t2243 - 0.6e1 * t1219 * t5996;
3785   t18830 = t6863 * t254;
3786   t18833 = t4045 * t5268;
3787   t18836 = t14806 * t1205;
3788   t18847 = t5773 * t505;
3789   t18850 = t5775 * t505;
3790   t18853 = t2222 * t1209;
3791   t18865 = -0.6e1 * t18830 * t257 - 0.1296e4 * t3896 * t18833 + 0.9720e4 * t10028 * t18836 - 0.9e1 / 0.100e3 * t194 * t15189 * t648 - 0.9e1 / 0.100e3 * t194 * t5961 * t1551 - 0.6e1 * t757 * t7047 - 0.12e2 * t1233 * t18847 - 0.12e2 * t1233 * t18850 - 0.12e2 * t1233 * t18853 + 0.648e3 * t5614 * t5485 - 0.9e1 / 0.50e2 * t194 * t1689 * t5353 - 0.9e1 / 0.100e3 * t408 * t7017 - 0.9e1 / 0.100e3 * t440 * t7017;
3792   t18887 = t1104 * t6900;
3793   t18900 = -0.9e1 / 0.50e2 * t440 * t6926 - 0.9e1 / 0.50e2 * t194 * t4194 * t2172 - 0.9e1 / 0.50e2 * t408 * t6926 - 0.12e2 * t255 * t154 * t1209 * t2215 - 0.6e1 * t3101 * t2246 - 0.12e2 * t1630 * t5400 - 0.24e2 * t4525 * t5779 + 0.324e3 * t5030 * t5805 - 0.6e1 * t5787 * t1241 - 0.9e1 / 0.100e3 * t194 * t18887 * t468 - 0.12e2 * t757 * t7020 - 0.6e1 * t255 * t3871 * t2221 - 0.12e2 * t1219 * t5953 - 0.6e1 * t1219 * t5965;
3794   t18915 = t5413 * t1651;
3795   t18918 = t1630 * t5497;
3796   t18932 = -0.6e1 * t757 * t7029 - 0.12e2 * t3847 * t6859 + 0.108e3 * t18083 * t1637 - 0.12e2 * t3888 * t6859 - 0.24e2 * t18079 * t1623 - 0.70434811654320987653e-1 * t683 * t1651 * t5261 + 0.75465869629629629628e0 * t18915 * t1655 + 0.75465869629629629628e0 * t18918 * t1655 + t5786 * t623 - 0.83850966255144032920e-1 * t2233 * t5565 + 0.50310579753086419752e-1 * t5932 * t2123 + 0.50310579753086419752e-1 * t5935 * t2123 + 0.50310579753086419752e-1 * t2233 * t5560 + 0.50310579753086419752e-1 * t6965 * t1665;
3797   t18961 = t1625 * t522;
3798   t18965 = t680 * t1262;
3799   t18969 = 0.50310579753086419752e-1 * t6962 * t1665 - 0.12e2 * t255 * t403 * t505 * t2215 + 0.54e2 * t5111 * t5820 - 0.12e2 * t5057 * t5781 + 0.54e2 * t2370 * t7012 + 0.108e3 * t5614 * t5360 + 0.108e3 * t5614 * t5363 - 0.67919282666666666667e1 * t4220 * t117 * t5360 - 0.67919282666666666667e1 * t4220 * t117 * t5363 - 0.30186347851851851851e0 * t5915 * t5592 - 0.30186347851851851852e0 * t4209 * t6953 - 0.30186347851851851852e0 * t4213 * t6953 - 0.30186347851851851852e0 * t1652 * t4267 * t18961 - 0.30186347851851851852e0 * t1652 * t4267 * t18965;
3800   t18982 = t5787 * t154;
3801   t18985 = t15153 * t154;
3802   t18993 = t4049 * t5270;
3803   t19005 = 0.15093173925925925926e1 * t4209 * t6956 + 0.15093173925925925926e1 * t4213 * t6956 + 0.15093173925925925926e1 * t1652 * t117 * t5274 + 0.15093173925925925926e1 * t1652 * t117 * t5276 - 0.12e2 * t18982 * t1212 + 0.54e2 * t18985 * t1227 + 0.108e3 * t5030 * t5808 - 0.648e3 * t13119 * t5801 + t2229 * t1492 + 0.648e3 * t1225 * t18993 + 0.171e3 / 0.1000e4 * t440 * t6923 + 0.171e3 / 0.1000e4 * t194 * t5968 * t1551 + 0.20962741563786008230e0 * t6965 * t1662 + 0.20962741563786008230e0 * t6962 * t1662;
3804   t19033 = t1209 * t2215;
3805   t19036 = t1616 * t2087;
3806   t19038 = t1621 * t2087;
3807   t19045 = t20 * t18520;
3808   t19047 = 0.2e1 * t1209 * t2221 + 0.4e1 * t1620 * t2087 + 0.2e1 * t19 * t18520 + 0.2e1 * t245 * t6852 + 0.2e1 * t505 * t5742 + 0.4e1 * t677 * t5246 + 0.18e2 * t18624 + 0.36e2 * t18631 + 0.36e2 * t18714 + 0.18e2 * t18847 + 0.18e2 * t18850 + 0.18e2 * t18853 + 0.18e2 * t19033 + 0.36e2 * t19036 + 0.36e2 * t19038 + 0.9e1 * t19045;
3809   t19048 = t19047 * t26;
3810   t19052 = t4045 * t5270;
3811   t19055 = t14924 * t1205;
3812   t19058 = t2206 * t1717;
3813   t19061 = t15350 * t1205;
3814   t19064 = 0.108e3 * t14363 * t2102 - 0.24e2 * t5569 * t5276 - 0.24e2 * t5569 * t5278 + 0.108e3 * t14384 * t2102 + 0.108e3 * t3883 * t6988 - 0.24e2 * t5569 * t5274 + t6864 * t403 + t7005 * t439 * t215 + t19048 * t154 - 0.1296e4 * t14425 * t5488 - 0.1296e4 * t3896 * t19052 + 0.324e3 * t1225 * t19055 + 0.171e3 / 0.500e3 * t5536 * t19058 - 0.648e3 * t3896 * t19061;
3815   t19066 = t20 * t2215;
3816   t19067 = t19066 * t1205;
3817   t19070 = t4049 * t5268;
3818   t19073 = t15225 * t1205;
3819   t19080 = t15162 * t505;
3820   t19083 = t5819 * t1209;
3821   t19101 = 0.1080e4 * t1225 * t19067 + 0.648e3 * t1225 * t19070 - 0.7776e4 * t3896 * t19073 - 0.24e2 * t5569 * t5280 + 0.108e3 * t5614 * t5377 + 0.54e2 * t1225 * t19080 + 0.54e2 * t1225 * t19083 - 0.24e2 * t3847 * t6857 - 0.24e2 * t3888 * t6857 - 0.9e1 / 0.50e2 * t2137 * t1690 - 0.24e2 * t1233 * t19036 - 0.24e2 * t1233 * t19038 - 0.12e2 * t4006 * t2110 - 0.12e2 * t255 * t17050 * t2215;
3822   t19111 = t690 * t21 * t5274;
3823   t19114 = t14404 * t18737;
3824   t19120 = t690 * t2380 * t5274;
3825   t19139 = t6855 * t245;
3826   t19164 = 0.1296e4 * t10685 * t2380 * t5274 - 0.648e3 * t4030 * t21 * t5274 + 0.7776e4 * t13886 * t19139 - 0.1080e4 * t13890 * t19139 - 0.9720e4 * t13911 * t19139 + 0.1296e4 * t5451 * t18631 - 0.648e3 * t5454 * t18631 - 0.108e3 * t764 * t18679 - 0.108e3 * t764 * t18682 - 0.324e3 * t764 * t18705 + 0.648e3 * t2379 * t18812 + 0.648e3 * t5451 * t18847 - 0.324e3 * t5454 * t18847 + 0.1296e4 * t5451 * t19036 - 0.648e3 * t5454 * t19036 - 0.324e3 * t2370 * t6985 - 0.108e3 * t2370 * t6988;
3827   t19199 = 0.24e2 * t1219 * t5779 + 0.12e2 * t1219 * t5781 + 0.12e2 * t255 * t18624 - 0.54e2 * t764 * t18628 + 0.24e2 * t255 * t18631 + 0.24e2 * t255 * t18714 + 0.12e2 * t255 * t18847 + 0.12e2 * t255 * t18850 + 0.12e2 * t255 * t18853 + 0.24e2 * t255 * t19036 + 0.24e2 * t255 * t19038 - 0.54e2 * t764 * t19080 - 0.54e2 * t764 * t19083 - 0.54e2 * t2370 * t6918 - 0.54e2 * t3109 * t5820 + 0.24e2 * t757 * t6857 + 0.12e2 * t757 * t6859;
3828   t19235 = -0.108e3 * t10432 * t2102 + 0.12e2 * t5787 * t1212 - 0.54e2 * t15153 * t1227 - 0.108e3 * t13350 * t1637 + 0.24e2 * t5413 * t1623 + 0.24e2 * t1630 * t5274 + 0.24e2 * t1630 * t5276 + 0.24e2 * t1630 * t5278 + 0.24e2 * t1630 * t5280 + 0.24e2 * t4006 * t2090 - 0.324e3 * t3109 * t5805 - 0.108e3 * t3109 * t5808 - 0.108e3 * t4030 * t5360 - 0.108e3 * t4030 * t5363 - 0.108e3 * t4030 * t5377 + 0.648e3 * t8655 * t5801 + 0.648e3 * t7333 * t6982;
3829   t19268 = 0.6e1 * t5787 * t1214 + 0.12e2 * t1219 * t5777 + 0.6e1 * t1219 * t5783 + 0.12e2 * t13796 * t680 + 0.6e1 * t15023 * t508 + 0.12e2 * t5413 * t1625 + 0.12e2 * t1630 * t5282 + 0.6e1 * t18830 * t248 + 0.12e2 * t255 * t19033 + 0.6e1 * t255 * t19045 + 0.12e2 * t4006 * t2092 + 0.12e2 * t3101 * t2224 + 0.6e1 * t3101 * t2226 - 0.54e2 * t8652 * t2251 + 0.12e2 * t757 * t6855 + 0.6e1 * t757 * t6861 - t19048;
3830   t19270 = t19164 + t19199 + t19235 + t19268;
3831   t19281 = t408 * t6950 / 0.10e2 + t440 * t6950 / 0.10e2 + t5479 * t715 / 0.5e1 + t5428 * t715 / 0.5e1 - 0.40751569600000000000e2 * t14403 * t19111 + 0.27167713066666666667e1 * t14403 * t19114 + 0.81503139200000000000e2 * t2379 * t104 * t704 * t19120 + 0.171e3 / 0.1000e4 * t628 * t5969 - 0.9e1 / 0.50e2 * t628 * t5958 + t19270 * t193 * t215 + t1507 * t2287 / 0.10e2 + t628 * t5944 / 0.10e2 + t2137 * t1718 / 0.5e1 + t1505 * t2287 / 0.10e2;
3832   t19291 = t496 * t18540 / 0.10e2 + t4302 * t2172 / 0.5e1 + t1189 * t6900 / 0.10e2 + t5759 * t1551 / 0.10e2 - 0.9e1 / 0.50e2 * t14567 * t1756 + t15696 * t648 / 0.10e2 + t1600 * t5756 / 0.10e2 + t3990 * t2286 / 0.10e2 - p->cam_beta * (t18589 + t18619 + t18655 + t18692 + t18724 + t18762 + t18794 + t18826 + t18865 + t18900 + t18932 + t18969 + t19005 + t19064 + t19101 + t19281) - 0.9e1 / 0.50e2 * t4070 * t5705 - 0.9e1 / 0.50e2 * t10416 * t2206;
3833   t19316 = -0.12e2 * t4437 * t5781 + 0.54e2 * t4440 * t5820 - 0.12e2 * t1569 * t18624 + 0.54e2 * t1563 * t18628 + 0.324e3 * t4440 * t5805 - 0.24e2 * t1569 * t18631 - 0.12e2 * t5225 * t5781 + 0.54e2 * t4423 * t5820 + 0.50310579753086419753e0 * t11218 * t6913 - 0.25155289876543209877e1 * t11218 * t6833 + 0.11319880444444444445e2 * t13436 * t6836 - 0.30186347851851851851e0 * t14831 * t5634;
3834   t19319 = t5787 * t229;
3835   t19322 = t15153 * t229;
3836   t19344 = t19048 * t229 - 0.12e2 * t19319 * t1212 + 0.54e2 * t19322 * t1227 - 0.24e2 * t17452 * t1623 + 0.108e3 * t17455 * t1637 + 0.171e3 / 0.500e3 * t3053 * t18582 + 0.171e3 / 0.1000e4 * t3053 * t18676 - 0.9e1 / 0.100e3 * t1192 * t6900 * t468 + 0.54e2 * t1563 * t19083 - 0.12e2 * t1569 * t18853 + 0.54e2 * t3077 * t6918 + 0.54e2 * t3080 * t6918;
3837   t19370 = -0.6e1 * t255 * t3971 * t2221 + 0.54e2 * t1563 * t19080 - 0.24e2 * t1569 * t18714 - 0.12e2 * t1569 * t18847 - 0.12e2 * t1569 * t18850 - 0.24e2 * t1569 * t19036 - 0.24e2 * t1569 * t19038 - 0.648e3 * t3150 * t18812 - 0.24e2 * t3074 * t6857 - 0.12e2 * t3074 * t6859 - 0.24e2 * t3155 * t6857 - 0.12e2 * t3155 * t6859;
3838   t19402 = -0.6e1 * t1219 * t5879 - 0.6e1 * t757 * t7093 - 0.9e1 / 0.50e2 * t1192 * t714 * t5353 - 0.9e1 / 0.50e2 * t1192 * t1717 * t2172 + 0.171e3 / 0.1000e4 * t3053 * t2263 * t1551 - 0.9e1 / 0.50e2 * t3050 * t6909 + 0.171e3 / 0.1000e4 * t8459 * t6906 - 0.9e1 / 0.100e3 * t3906 * t6027 - 0.9e1 / 0.50e2 * t3906 * t6030 - 0.67919282666666666667e1 * t13394 * t6836 - 0.67919282666666666667e1 * t5640 * t690 * t5360 - 0.67919282666666666667e1 * t5640 * t690 * t5363;
3839   t19416 = t4030 * t704;
3840   t19433 = -0.67919282666666666667e1 * t17228 * t5864 - 0.30186347851851851852e0 * t4338 * t348 * t18664 + 0.15093173925925925926e1 * t4338 * t690 * t5280 - 0.67919282666666666667e1 * t5640 * t690 * t5377 + 0.15093173925925925926e1 * t14831 * t5637 - 0.67919282666666666665e1 * t19416 * t5641 - 0.30186347851851851852e0 * t13420 * t5856 + 0.15093173925925925926e1 * t13420 * t5859 - 0.30186347851851851851e0 * t14831 * t5644 - 0.30186347851851851852e0 * t11208 * t6913 - 0.30186347851851851852e0 * t4338 * t348 * t18961 - 0.30186347851851851852e0 * t4338 * t348 * t18965;
3841   t19462 = 0.15093173925925925926e1 * t11208 * t6833 + 0.15093173925925925926e1 * t4338 * t690 * t5274 + 0.15093173925925925926e1 * t4338 * t690 * t5276 + 0.15093173925925925926e1 * t4338 * t690 * t5278 - 0.60372695703703703704e0 * t4338 * t18731 + 0.27167713066666666667e1 * t5640 * t18734 - 0.60372695703703703704e0 * t4338 * t18738 - 0.40751569600000000000e2 * t5640 * t19111 - 0.9e1 / 0.50e2 * t4070 * t5702 + 0.171e3 / 0.1000e4 * t10284 * t6033 - 0.12e2 * t1630 * t5675 - 0.12e2 * t4006 * t2191;
3842   t19481 = t7005 * t446;
3843   t19490 = -0.12e2 * t1630 * t5241 + 0.324e3 * t4423 * t5805 - 0.24e2 * t4437 * t5779 - 0.9e1 / 0.100e3 * t15705 * t1605 - 0.9e1 / 0.50e2 * t4070 * t5699 - 0.9e1 / 0.100e3 * t1192 * t2286 * t1551 - 0.9e1 / 0.100e3 * t3050 * t7081 - 0.9e1 / 0.100e3 * t1192 * t5756 * t648 + t19481 * t468 / 0.10e2 + t14661 * t714 / 0.5e1 + t5294 * t1717 / 0.5e1 - 0.24e2 * t17459 * t1623;
3844   t19524 = -0.12e2 * t255 * t229 * t1209 * t2215 - 0.12e2 * t255 * t493 * t505 * t2215 - 0.12e2 * t255 * t15816 * t2215 - 0.12e2 * t255 * t8746 * t2215 - 0.12e2 * t1219 * t5835 - 0.6e1 * t1219 * t5840 - 0.6e1 * t5787 * t1577 + 0.108e3 * t17258 * t1637 - 0.6e1 * t18830 * t476 - 0.6e1 * t3101 * t2306 - 0.24e2 * t5225 * t5779 - 0.12e2 * t757 * t7114;
3845   t19552 = 0.54e2 * t764 * t10264 * t2215 - 0.6e1 * t255 * t1576 * t5742 - 0.6e1 * t255 * t475 * t18520 - 0.12e2 * t13796 * t721 - 0.6e1 * t15023 * t655 - 0.6e1 * t5787 * t1566 - 0.6e1 * t5787 * t1572 - 0.12e2 * t1630 * t5672 - 0.12e2 * t5413 * t1731 - 0.12e2 * t5413 * t1736 - 0.12e2 * t4006 * t2186 - 0.12e2 * t757 * t7110;
3846   t19579 = -0.6e1 * t757 * t7096 - 0.6e1 * t255 * t1154 * t6852 - 0.12e2 * t1630 * t5247 + 0.54e2 * t8652 * t2298 + 0.54e2 * t3109 * t6022 + 0.54e2 * t2370 * t7090 + 0.50310579753086419752e-1 * t5867 * t5000 - 0.83850966255144032920e-1 * t15672 * t1900 + 0.27167713066666666667e1 * t5640 * t19114 + 0.81503139200000000000e2 * t13403 * t19120 + 0.42260886992592592593e0 * t4338 * t18727 - 0.648e3 * t8731 * t6982;
3847   t19596 = t5413 * t703;
3848   t19605 = -0.648e3 * t8736 * t6982 + 0.108e3 * t3080 * t6988 + 0.108e3 * t1563 * t18679 + 0.108e3 * t1563 * t18682 + 0.75465869629629629630e0 * t14769 * t2240 + 0.75465869629629629630e0 * t5252 * t5885 + 0.75465869629629629630e0 * t4367 * t6947 + 0.75465869629629629630e0 * t1742 * t18771 + 0.75465869629629629628e0 * t19596 * t1655 + 0.75465869629629629628e0 * t15588 * t2117 + 0.75465869629629629628e0 * t5766 * t5258 - 0.70434811654320987653e-1 * t5867 * t5261;
3849   t19629 = -0.12577644938271604938e1 * t15591 * t2117 - 0.12577644938271604938e1 * t14638 * t2240 - 0.12577644938271604938e1 * t4357 * t6947 + t6864 * t493 + t5786 * t664 + t2229 * t1597 + 0.171e3 / 0.500e3 * t11042 * t5236 - 0.12e2 * t3101 * t2303 - 0.12e2 * t1219 * t5831 - 0.4959e4 / 0.10000e5 * t8485 * t18577 + 0.171e3 / 0.500e3 * t3053 * t19058 + 0.324e3 * t1563 * t18705;
3850   t19638 = t2095 * t703;
3851   t19656 = 0.108e3 * t3077 * t6988 + 0.108e3 * t5688 * t5363 + 0.324e3 * t3077 * t6985 + 0.324e3 * t3080 * t6985 + 0.50310579753086419752e-1 * t19638 * t1481 + 0.50310579753086419752e-1 * t15675 * t1900 + 0.648e3 * t1563 * t18993 - 0.1296e4 * t3150 * t19052 - 0.1296e4 * t3150 * t18833 + 0.20962741563786008230e0 * t6839 * t1662 - 0.12577644938271604938e0 * t5285 * t10 * t691 + 0.9720e4 * t8722 * t18836;
3852   t19682 = -0.24e2 * t13461 * t2090 + 0.108e3 * t13512 * t2102 - 0.1296e4 * t13519 * t5488 + 0.108e3 * t13719 * t2102 + 0.324e3 * t1563 * t19055 + 0.1080e4 * t1563 * t19067 + 0.648e3 * t1563 * t19070 - 0.648e3 * t3150 * t19061 - 0.7776e4 * t3150 * t19073 - 0.24e2 * t5685 * t5274 + 0.108e3 * t5688 * t5360 + 0.648e3 * t5688 * t5485;
3853   t19706 = -0.24e2 * t5685 * t5276 - 0.24e2 * t5685 * t5278 + 0.108e3 * t4440 * t5808 - 0.648e3 * t11284 * t5801 - 0.24e2 * t13457 * t2090 - 0.24e2 * t5685 * t5280 + 0.108e3 * t5688 * t5377 + 0.108e3 * t4423 * t5808 - 0.648e3 * t11346 * t5801 + t1751 * t5353 / 0.5e1 - 0.9e1 / 0.100e3 * t10296 * t2263 + t19270 * t215;
3854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3855     v4rhosigmatau2[0] = -t1202 * t7128 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t240 * (t19291 + t19316 + t19344 + t19370 + t19402 + t19433 + t19462 + t19490 + t19524 + t19552 + t19579 + t19605 + t19629 + t19656 + t19682 + t19706);
3856 
3857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3858     v4rholapl3[0] = 0.0e0;
3859 
3860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3861     v4rholapl2tau[0] = 0.0e0;
3862 
3863   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3864     v4rholapltau2[0] = 0.0e0;
3865 
3866   t19725 = t20 * t7181;
3867   t19726 = t19725 * t245;
3868   t19729 = t5804 * t1620;
3869   t19736 = t2229 * t703;
3870   t19739 = t4049 * t5773;
3871   t19742 = t4045 * t5773;
3872   t19747 = my_piecewise3(t18, 0.3e1 / 0.4e1 * t242 * t7159, 0);
3873   t19751 = 0.31444112345679012345e0 * t7143 * t1662 - 0.18866467407407407407e0 * t5786 * t10 * t691 - 0.72e2 * t5685 * t5779 + 0.972e3 * t5688 * t5805 + 0.1080e4 * t1563 * t19726 + 0.972e3 * t1563 * t19729 + 0.171e3 / 0.1000e4 * t8459 * t7135 - 0.27e2 / 0.100e3 * t10416 * t2263 + 0.75465869629629629628e-1 * t19736 * t1481 + 0.972e3 * t1563 * t19739 - 0.1944e4 * t3150 * t19742 - 0.6e1 * t255 * t475 * t19747;
3874   t19765 = t229 * t2215;
3875   t19774 = t2215 * t1620;
3876   t19779 = t20 * t19747;
3877   t19782 = t7187 * t254;
3878   t19803 = t1616 * t2221;
3879   t19814 = t1621 * t2221;
3880   t19817 = -0.162e3 * t10432 * t2251 + 0.18e2 * t15023 * t680 + 0.18e2 * t5787 * t1625 + 0.36e2 * t1630 * t5777 + 0.18e2 * t1630 * t5783 + 0.36e2 * t255 * t19774 + 0.6e1 * t255 * t19779 + 0.6e1 * t19782 * t248 + 0.36e2 * t255 * t19803 + 0.1944e4 * t5451 * t19803 - 0.972e3 * t5454 * t19803 + 0.36e2 * t255 * t19814 + 0.36e2 * t4006 * t2224 + 0.18e2 * t4006 * t2226 - 0.324e3 * t2370 * t7201 + 0.12e2 * t757 * t7181 + 0.36e2 * t757 * t7183 + 0.6e1 * t757 * t7185 + 0.648e3 * t7333 * t7198;
3881   t19818 = t678 * t5742;
3882   t19821 = t7179 * t245;
3883   t19824 = t765 * t7162;
3884   t19825 = t19824 * t245;
3885   t19844 = t7383 * t7181;
3886   t19845 = t19844 * t245;
3887   t19848 = t5800 * t1620;
3888   t19851 = t7462 * t7181;
3889   t19852 = t19851 * t245;
3890   t19861 = t4053 * t2221;
3891   t19864 = t1636 * t5742;
3892   t19882 = (0.6e1 * t1620 * t2221 + 0.2e1 * t19 * t19747 + 0.2e1 * t245 * t7162 + 0.6e1 * t677 * t5742 + 0.54e2 * t19774 + 0.9e1 * t19779 + 0.54e2 * t19803 + 0.54e2 * t19814 + 0.54e2 * t19818 + 0.18e2 * t19821) * t26;
3893   t19883 = 0.1944e4 * t10685 * t5801 - 0.162e3 * t15153 * t1637 + 0.36e2 * t5787 * t1623 + 0.72e2 * t1630 * t5779 + 0.36e2 * t1630 * t5781 - 0.1080e4 * t764 * t19726 - 0.972e3 * t764 * t19729 + 0.36e2 * t255 * t19818 + 0.12e2 * t255 * t19821 - 0.54e2 * t764 * t19825 + 0.7776e4 * t2379 * t19845 + 0.1944e4 * t2379 * t19848 - 0.9720e4 * t7461 * t19852 - 0.162e3 * t764 * t19861 - 0.162e3 * t764 * t19864 - 0.162e3 * t2370 * t7204 - 0.972e3 * t4030 * t5805 - 0.324e3 * t4030 * t5808 - 0.162e3 * t4030 * t5820 - t19882;
3894   t19884 = t19817 + t19883;
3895   t19890 = t154 * t2215;
3896   t19916 = 0.162e3 * t1225 * t19861 + 0.162e3 * t1225 * t19864 - 0.36e2 * t255 * t19890 * t1620 - 0.6e1 * t757 * t7236 - 0.27e2 / 0.100e3 * t440 * t7230 - 0.27e2 / 0.100e3 * t194 * t4194 * t2286 + 0.324e3 * t5614 * t5808 - 0.1944e4 * t14425 * t5801 - 0.12e2 * t1233 * t19821 + 0.972e3 * t1225 * t19739 - 0.1944e4 * t3896 * t19742 - 0.648e3 * t2379 * t8310 * t7181 - 0.18e2 * t1630 * t5965;
3897   t19925 = t8329 * t7135;
3898   t19932 = t40 * t18072 * t2215;
3899   t19935 = t5787 * t1651;
3900   t19950 = 0.162e3 * t10432 * t2236 + 0.9720e4 * t10028 * t19852 + 0.513e3 / 0.1000e4 * t697 * t5969 - 0.27e2 / 0.50e2 * t697 * t5958 - 0.4959e4 / 0.10000e5 * t194 * t19925 * t468 + 0.22639760888888888889e1 * t4213 * t7132 + 0.22639760888888888889e1 * t1652 * t19932 + 0.11319880444444444444e1 * t19935 * t1655 + 0.22639760888888888889e1 * t15122 * t2240 + 0.22639760888888888889e1 * t15125 * t2240 + 0.22639760888888888889e1 * t5915 * t5885 - 0.10187892400000000000e2 * t10530 * t7256 - 0.10187892400000000000e2 * t10933 * t7256 + 0.11319880444444444444e1 * t4209 * t7260;
3901   t19955 = t40 * t1653 * t5742;
3902   t19964 = t2251 * t279;
3903   t19974 = t2226 * t279;
3904   t19984 = t1104 * t7170;
3905   t19992 = 0.11319880444444444444e1 * t4213 * t7260 + 0.11319880444444444444e1 * t1652 * t19955 + 0.22639760888888888889e1 * t4209 * t7132 + 0.45279521777777777778e1 * t5915 * t5899 - 0.20375784800000000000e2 * t15131 * t5902 + 0.40751569600000000000e1 * t4220 * t4267 * t19964 - 0.20375784800000000000e2 * t4220 * t117 * t5808 + 0.12225470880000000000e3 * t10940 * t117 * t5801 - 0.45279521777777777776e0 * t1652 * t4267 * t19974 + 0.22639760888888888888e1 * t1652 * t117 * t5781 - 0.10187892400000000000e2 * t4220 * t117 * t5820 - 0.9e1 / 0.100e3 * t194 * t19984 * t468 - 0.36e2 * t1630 * t5989 - 0.18e2 * t5787 * t1640;
3906   t20025 = -0.6e1 * t255 * t256 * t19747 + 0.31444112345679012345e0 * t7174 * t1662 - 0.18866467407407407407e0 * t5786 * t572 * t691 + 0.171e3 / 0.1000e4 * t440 * t7241 - 0.648e3 * t7333 * t7250 - 0.36e2 * t1233 * t19803 - 0.36e2 * t1233 * t19814 - 0.18866467407407407407e0 * t2229 * t1269 * t691 + t19884 * t193 * t215 + t7213 * t439 * t215 - 0.27e2 / 0.100e3 * t697 * t5962 - 0.6e1 * t19782 * t257 - 0.18e2 * t1630 * t5996 - 0.6e1 * t255 * t770 * t7162;
3907   t20054 = -0.27e2 / 0.100e3 * t408 * t7230 + 0.162e3 * t3883 * t7204 + 0.324e3 * t764 * t8282 * t7181 + 0.3e1 / 0.10e2 * t2259 * t1718 - 0.12e2 * t757 * t7233 - 0.12e2 * t255 * t403 * t7181 + t7188 * t403 + t19882 * t154 + 0.54e2 * t1225 * t19825 - 0.27e2 / 0.100e3 * t2259 * t1690 - 0.36e2 * t4006 * t2243 - 0.36e2 * t1233 * t19818 - 0.36e2 * t1630 * t5953;
3908   t20076 = t7138 * t468;
3909   t20085 = 0.324e3 * t2370 * t7222 + 0.1080e4 * t1225 * t19726 + 0.972e3 * t1225 * t19729 - 0.7776e4 * t3896 * t19845 + 0.162e3 * t3891 * t7204 - 0.27e2 / 0.100e3 * t194 * t1689 * t5756 + 0.16979820666666666667e2 * t10504 * t7256 - 0.18866467407407407407e1 * t4226 * t7260 - 0.37732934814814814815e1 * t15119 * t2240 - 0.37732934814814814815e1 * t4226 * t7132 + 0.513e3 / 0.1000e4 * t5536 * t20076 - 0.1944e4 * t3896 * t19848 - 0.27e2 / 0.100e3 * t1679 * t2264 - 0.27e2 / 0.100e3 * t1681 * t2264;
3910   t20115 = 0.171e3 / 0.1000e4 * t408 * t7241 + 0.162e3 * t4030 * t5911 - 0.18e2 * t5787 * t1645 - 0.18e2 * t4006 * t2246 - 0.72e2 * t5569 * t5779 + 0.972e3 * t5614 * t5805 + t7214 * t469 / 0.10e2 + 0.3e1 / 0.10e2 * t1679 * t2287 + 0.3e1 / 0.10e2 * t1681 * t2287 + 0.3e1 / 0.10e2 * t697 * t5944 + 0.3e1 / 0.10e2 * t5909 * t715 + 0.3e1 / 0.10e2 * t5906 * t715 + t408 * t7171 / 0.10e2 + t440 * t7171 / 0.10e2;
3911   t20150 = 0.73e2 / 0.54e2 * t6883 - 0.73e2 / 0.90e2 * t704 * t39 * t5742 * t211 + 0.73e2 / 0.45e2 * t704 * t7148 * t245 - 0.73e2 / 0.27e2 * t6891 + 0.146e3 / 0.45e2 * t704 * t2272 * t1620 - 0.73e2 / 0.54e2 * t6896 + 0.73e2 / 0.90e2 * t704 * t705 * t5742 - 0.146e3 / 0.135e3 * t457 * t7162 * t211 - 0.146e3 / 0.135e3 * t207 * t19747 * t211 + 0.292e3 / 0.135e3 * t7163 * t245 + 0.292e3 / 0.45e2 * t5737 * t677 + 0.292e3 / 0.45e2 * t5743 * t677 + 0.292e3 / 0.45e2 * t2279 * t1620 + 0.146e3 / 0.135e3 * t460 * t7162 + 0.146e3 / 0.135e3 * t210 * t19747;
3912   t20168 = t2224 * t279;
3913   t20185 = t194 * t446 * t20150 / 0.10e2 - 0.36e2 * t3888 * t7183 - 0.36e2 * t3847 * t7183 + 0.75465869629629629628e-1 * t7174 * t1665 - 0.36e2 * t5569 * t5781 + 0.162e3 * t5614 * t5820 - 0.36e2 * t18982 * t1623 + 0.162e3 * t18985 * t1637 - 0.90559043555555555556e0 * t1652 * t4267 * t20168 + 0.45279521777777777778e1 * t1652 * t117 * t5779 - 0.61127354400000000000e2 * t4220 * t117 * t5805 - 0.90559043555555555556e0 * t5915 * t5896 + 0.513e3 / 0.1000e4 * t194 * t5968 * t1717 - 0.18e2 * t15023 * t685;
3914   t20192 = -0.18e2 * t15023 * t721 - 0.18e2 * t5787 * t1731 - 0.18e2 * t5787 * t1736 - 0.18e2 * t4006 * t2306 - 0.648e3 * t7333 * t7298 - 0.648e3 * t2379 * t8450 * t7181 - 0.36e2 * t255 * t19765 * t1620 - 0.6e1 * t757 * t7289 - 0.6e1 * t255 * t1154 * t7162 + t19884 * t215 - p->cam_beta * (t19916 + t19950 + t19992 + t20025 + t20054 + t20085 + t20115 + t20185) + 0.513e3 / 0.1000e4 * t3053 * t20076;
3915   t20221 = t1189 * t7170 / 0.10e2 - 0.27e2 / 0.100e3 * t1192 * t1717 * t2286 + 0.513e3 / 0.1000e4 * t3053 * t2263 * t1717 - 0.27e2 / 0.100e3 * t3050 * t7138 - 0.4959e4 / 0.10000e5 * t8485 * t7135 * t468 - 0.7776e4 * t3150 * t19845 + 0.162e3 * t3077 * t7204 + 0.162e3 * t3080 * t7204 + 0.162e3 * t1563 * t19861 + 0.162e3 * t1563 * t19864 - 0.36e2 * t5685 * t5781 + 0.162e3 * t5688 * t5820;
3916   t20230 = t7213 * t446;
3917   t20248 = 0.324e3 * t5688 * t5808 - 0.1944e4 * t13519 * t5801 - 0.1944e4 * t3150 * t19848 + 0.9720e4 * t8722 * t19852 + t20230 * t468 / 0.10e2 + 0.3e1 / 0.10e2 * t1751 * t5756 + t19882 * t229 + t7188 * t493 + 0.3e1 / 0.10e2 * t4302 * t2286 - 0.27e2 / 0.50e2 * t4070 * t6030 - 0.27e2 / 0.100e3 * t1192 * t714 * t5756 + 0.513e3 / 0.1000e4 * t11042 * t6033 - 0.20375784800000000000e2 * t19416 * t5864;
3918   t20283 = 0.40751569600000000000e1 * t5640 * t348 * t19964 - 0.20375784800000000000e2 * t5640 * t690 * t5808 + 0.12225470880000000000e3 * t13403 * t690 * t5801 - 0.27e2 / 0.100e3 * t4070 * t6027 - 0.9e1 / 0.100e3 * t1192 * t7170 * t468 - 0.27e2 / 0.100e3 * t15705 * t1756 - 0.45279521777777777776e0 * t4338 * t348 * t19974 + 0.22639760888888888888e1 * t4338 * t690 * t5781 - 0.10187892400000000000e2 * t5640 * t690 * t5820 - 0.90559043555555555556e0 * t14831 * t5856 + 0.45279521777777777778e1 * t14831 * t5859 - 0.90559043555555555556e0 * t4338 * t348 * t20168;
3919   t20313 = 0.45279521777777777778e1 * t4338 * t690 * t5779 - 0.61127354400000000000e2 * t5640 * t690 * t5805 - 0.36e2 * t1569 * t19818 - 0.12e2 * t1569 * t19821 + 0.54e2 * t1563 * t19825 - 0.36e2 * t19319 * t1623 + 0.162e3 * t19322 * t1637 - 0.36e2 * t3074 * t7183 - 0.36e2 * t3155 * t7183 - 0.36e2 * t1569 * t19803 - 0.36e2 * t1569 * t19814 - 0.12e2 * t757 * t7301 - 0.12e2 * t255 * t493 * t7181;
3920   t20340 = -0.18e2 * t1630 * t5840 + 0.3e1 / 0.10e2 * t5759 * t1717 + t496 * t20150 / 0.10e2 + 0.3e1 / 0.10e2 * t15696 * t714 + 0.324e3 * t764 * t7394 * t7181 - 0.36e2 * t1630 * t5831 - 0.36e2 * t1630 * t5835 + 0.324e3 * t2370 * t7275 - 0.18866467407407407407e1 * t4357 * t7260 - 0.37732934814814814815e1 * t15591 * t2240 - 0.37732934814814814815e1 * t4357 * t7132 + 0.11319880444444444444e1 * t4367 * t7260;
3921   t20355 = t5787 * t703;
3922   t20368 = 0.11319880444444444444e1 * t1742 * t19955 + 0.22639760888888888889e1 * t15588 * t2240 + 0.22639760888888888889e1 * t5766 * t5885 - 0.10187892400000000000e2 * t11238 * t7256 + 0.16979820666666666667e2 * t11024 * t7256 + 0.22639760888888888889e1 * t4367 * t7132 + 0.22639760888888888889e1 * t1742 * t19932 + 0.11319880444444444444e1 * t20355 * t1655 - 0.18e2 * t1630 * t5879 + 0.162e3 * t10432 * t2298 + 0.162e3 * t4030 * t6022 - 0.6e1 * t19782 * t476 - 0.36e2 * t4006 * t2303;
3923   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3924     v4rhotau3[0] = -t1202 * t7307 / 0.4e1 - 0.3e1 / 0.16e2 * t239 * t240 * (t19751 + t20192 + t20221 + t20248 + t20283 + t20313 + t20340 + t20368);
3925 
3926   t20385 = t4433 * t1767;
3927   t20398 = t1767 * t1767;
3928   t20401 = 0.73e2 / 0.4860e4 * t6061 - 0.73e2 / 0.810e3 * t638 * t6059 * t505 - 0.73e2 / 0.4860e4 * t6067 - t2029 + 0.1168e4 / 0.135e3 * t6069 + 0.292e3 / 0.45e2 * t207 * t20398 + t2033;
3929   t20414 = 0.324e3 * t764 * t13310 * t1765 - 0.72e2 * t1219 * t6498 - 0.2592e4 * t8655 * t6520 - 0.36e2 * t255 * t4402 * t1767 - 0.3888e4 * t3150 * t20385 - 0.144e3 * t4437 * t6084 + 0.648e3 * t4440 * t6094 + t496 * t20401 / 0.10e2 + 0.3e1 / 0.5e1 * t5174 * t2034 + 0.2e1 / 0.5e1 * t15851 * t648 + 0.171e3 / 0.250e3 * t10284 * t6126 + 0.2e1 / 0.5e1 * t1600 * t6071 - 0.27e2 / 0.50e2 * t11528 * t2013;
3930   t20438 = t1793 * t1793;
3931   t20446 = 0.1e1 / t38 / t2870;
3932   t20449 = 0.1e1 / t43 / t12073;
3933   t20450 = t20446 * t10 * t20449;
3934   t20469 = t1765 * t1767;
3935   t20471 = t19 * t20398;
3936   t20475 = (0.6e1 * t20398 + 0.8e1 * t6081 + t1769 + 0.108e3 * t20469 + 0.54e2 * t20471 + 0.72e2 * t6084 + t1773) * t26;
3937   t20477 = -0.144e3 * t5225 * t6084 + 0.648e3 * t4423 * t6094 - t2056 - 0.27e2 / 0.25e2 * t3906 * t6513 + 0.513e3 / 0.500e3 * t3053 * t2013 * t2034 - 0.9e1 / 0.25e2 * t1192 * t648 * t6071 - 0.48e2 * t1219 * t6516 - 0.48e2 * t255 * t664 * t6044 - 0.24e2 * t6499 - 0.24e2 * t6505 + 0.6e1 * t1775 * t2070 + 0.4e1 * t511 * t6493 + t27 * (0.1056e4 / 0.625e3 * t7594 * t20438 - 0.34087034313779607706e-1 * t5179 * t49 * t1853 + 0.50014028422382421281e-3 * t1031 * t35 * t20450 - 0.23980064750617283951e0 * t638 * t9265 * t6148 + 0.39732524933540983400e-3 * t6419 + 0.6664e4 / 0.1875e4 * t8527 * t20438 - 0.67485441671725283942e-1 * t3036 * t1793 * t2018 + 0.90766199729508838620e-3 * t1181 * t35 * t20450) + t20475 * t229;
3938   t20497 = t1765 * t1765;
3939   t20507 = t4426 * t1767;
3940   t20510 = 0.1080e4 * t764 * t229 * t20497 * t20 + 0.162e3 * t764 * t1150 * t20398 - 0.36e2 * t255 * t1158 * t20398 - 0.72e2 * t255 * t6570 * t1767 + 0.324e3 * t11331 * t2045 + 0.1944e4 * t1563 * t20507 - 0.24e2 * t15742 * t655 - 0.72e2 * t4466 * t2048 - 0.36e2 * t4466 * t2054 + 0.648e3 * t3109 * t6495 + 0.4e1 * t6087 * t664 - 0.48e2 * t6509 + 0.216e3 * t6511;
3941   t20534 = -0.9720e4 * t7461 * t7462 * t20497 - 0.324e3 * t11331 * t2001 + 0.48e2 * t1219 * t6044 + 0.24e2 * t15742 * t508 + 0.36e2 * t4466 * t1772 + 0.72e2 * t255 * t20469 - 0.1944e4 * t764 * t20507 + 0.2592e4 * t8655 * t6109 + 0.24e2 * t6107 - 0.216e3 * t6115 + 0.48e2 * t6119;
3942   t20556 = -0.1080e4 * t764 * t20 * t20497 - 0.162e3 * t764 * t765 * t20398 + 0.7776e4 * t2379 * t7383 * t20497 + 0.144e3 * t1219 * t6084 + 0.72e2 * t4466 * t1770 + 0.3888e4 * t2379 * t20385 + 0.36e2 * t255 * t20471 - 0.648e3 * t3109 * t6094 - 0.1296e4 * t3109 * t6112 + t2007 - t20475;
3943   t20557 = t20534 + t20556;
3944   t20590 = 0.324e3 * t11331 * t1781 - 0.7776e4 * t2379 * t8438 * t20497 - 0.72e2 * t255 * t13097 * t1765 + 0.513e3 / 0.500e3 * t194 * t5046 * t2034 - 0.3888e4 * t3896 * t20385 - 0.144e3 * t1219 * t6097 + 0.1296e4 * t764 * t10091 * t6044 - 0.36e2 * t255 * t5033 * t1767 - 0.72e2 * t1219 * t6130 + 0.171e3 / 0.250e3 * t628 * t6127 - 0.48e2 * t1219 * t6089 + 0.2e1 / 0.5e1 * t6122 * t649 - 0.72e2 * t4466 * t1784;
3945   t20624 = 0.1080e4 * t764 * t154 * t20497 * t20 - 0.24e2 * t15742 * t513 + 0.1296e4 * t3109 * t6133 + 0.648e3 * t3109 * t6140 - 0.72e2 * t4466 * t1787 + 0.3e1 / 0.5e1 * t2009 * t2035 + 0.2e1 / 0.5e1 * t628 * t6072 + t194 * t446 * t20401 / 0.10e2 + 0.324e3 * t764 * t13062 * t1765 - 0.9e1 / 0.25e2 * t194 * t17044 * t648 - 0.72e2 * t1219 * t6143 + 0.162e3 * t764 * t766 * t20398 + 0.9720e4 * t7461 * t7501 * t20497;
3946   t20648 = t6275 * t10;
3947   t20701 = my_piecewise3(t68, 0, 0.2387e4 / 0.60000e5 * t32 * t34 * t7656 * t20438 - 0.82850430623769879840e-3 * t4585 * t2455 * t1793 * t1801 + 0.12735053533477005419e-4 * t1287 / t1992 / t267 * t821 * t35 * t20446 * t10);
3948   t20710 = t1811 * t1811;
3949   t20712 = t2512 * t20710 * t78;
3950   t20731 = t1806 * t1806;
3951   t20734 = t527 * t6158;
3952   t20742 = t1822 * t1875;
3953   t20744 = t20710 * t902;
3954   t20745 = t20744 * t78;
3955   t20757 = t7738 * t20710 * t78;
3956   t20760 = t71 * t20701 * t78;
3957   t20762 = t867 * t20710 * t78;
3958   t20764 = t1812 * t1875;
3959   t20767 = t859 * t20731 * t78;
3960   t20770 = t2578 * t20710 * t78;
3961   t20773 = 0.15e2 * t4648 * t1875;
3962   t20774 = t16324 * t557;
3963   t20790 = t16510 * t557 + 0.3e1 / 0.4e1 * t867 * t20731 * t78 + 0.3e1 / 0.4e1 * t11929 * t1872 - 0.3e1 * t76 * t20731 * t78 - 0.19e2 / 0.8e1 * t20757 - t20760 - 0.75e2 / 0.2e1 * t20762 + 0.45e2 * t20764 - 0.6e1 * t20767 + 0.85e2 / 0.4e1 * t20770 - t20773 - 0.8e1 * t20774 - 0.4e1 * t6266 * t605 - 0.16e2 * t4769 * t6158 - 0.4e1 * t295 * t20701 + t291 * t20701 * t78 / 0.2e1 + t7692 * t20710 * t78 / 0.16e2 - 0.12e2 * t20731 * t79;
3964   t20795 = -0.24e2 * t20712 - t287 * t20701 + 0.15e2 / 0.4e1 * t2533 * t20710 * t78 - t7770 * t20710 * t78 / 0.8e1 + 0.2e1 * t20701 * t82 + 0.8e1 * t6158 * t539 + 0.12e2 * t1806 * t1839 - 0.2e1 * t3398 * t6266 - 0.3e1 / 0.2e1 * t4731 * t1875 + 0.6e1 * t932 * t20731 + 0.8e1 * t932 * t20734 + 0.21e2 * t1828 * t1875 - 0.3e1 / 0.2e1 * t902 * t20731 * t78 - 0.36e2 * t20742 + 0.24e2 * t20745 + 0.2e1 * t69 * t20790 + 0.8e1 * t527 * t6210;
3965   t20802 = -0.83760911515595616716e-4 * t1976 * sigma[0] * t1994 - 0.42127368888888888888e-1 * t16933 * t620 + 0.88467474666666666665e-1 * t4818 * t1988 + 0.73104678600823045268e-1 * t20648 * t45 * t117 + 0.50014028422382421281e-3 * t1032 * t35 * t20450 - 0.1568e4 / 0.675e3 * t1266 * t6435 + 0.6664e4 / 0.3375e4 * t345 * t7584 * t20438 - 0.12911755421886215040e-1 * t4803 * t49 * t1853 - 0.56e2 / 0.81e2 * t16942 * t576 - 0.264e3 / 0.125e3 * t9409 * t6148 + 0.1056e4 / 0.625e3 * t7595 * t20438 - 0.14154795946666666667e0 * t1395 * t6415 + 0.12031576554666666666e0 * t397 * t398 * t7583 * t20438 + 0.16279469709174210720e-3 * t6448 * t1244 - 0.28143666269240127216e-3 * t1991 * t12078 * t1793 + 0.19244565184762958916e-2 * t16376 * t6441 + 0.10531842222222222222e0 * t6396 * t616 + (-0.8e1 / 0.3e1 * t20701 * t85 - 0.32e2 / 0.3e1 * t6158 * t542 - 0.16e2 * t1806 * t1842 - 0.32e2 / 0.3e1 * t527 * t6213 - 0.8e1 / 0.3e1 * t69 * t20795) * t90 - 0.4e1 / 0.5e1 * t17008 * t522;
3966   t20820 = t75 * t20731;
3967   t20821 = 0.2304e4 * t20820;
3968   t20823 = t69 * t20701;
3969   t20828 = 0.1536e4 * t20710;
3970   t20829 = t1915 * t1806;
3971   t20830 = 0.9216e4 * t20829;
3972   t20831 = t581 * t6158;
3973   t20832 = 0.3072e4 * t20831;
3974   t20833 = t121 * t20701;
3975   t20834 = 0.256e3 * t20833;
3976   t20837 = t557 * t6158;
3977   t20840 = t1806 * t1811;
3978   t20841 = t20840 * t78;
3979   t20860 = -0.216e3 * t20731 + t20821 - 0.288e3 * t20734 - 0.72e2 * t20823 + (0.120e3 * t20731 + 0.160e3 * t20734 + 0.40e2 * t20823 - t20828 - t20830 - t20821 - t20832 - t20834) * t78 + t20834 - 0.6e1 * t990 * t20837 - 0.27e2 / 0.2e1 * t2527 * t20841 - 0.18e2 * t3373 * t6241 + 0.36e2 * t2494 * t20841 + 0.3e1 * t3385 * t6241 + t995 * t20837 + 0.3e1 / 0.4e1 * t2534 * t20841 + t20830 + t20832 + 0.10e2 * t70 * t20701 * t73 - 0.5e1 / 0.4e1 * t20757 - 0.10e2 * t20760 - 0.100e3 * t20762 - 0.15e2 * t20767;
3980   t20865 = t20710 * t78;
3981   t20884 = t20731 * t78;
3982   t20893 = t20701 * t78;
3983   t20897 = 0.55e2 / 0.2e1 * t20770 + t20828 - t20773 - 0.20e2 * t20774 + t9199 * t6246 / 0.2e1 + t7837 * t20865 / 0.16e2 + 0.3e1 * t4656 * t1875 + 0.3e1 / 0.2e1 * t12653 * t1872 + 0.2e1 * t1362 * t6266 + 0.2e1 * t16347 * t557 - 0.9e1 * t12636 * t1872 - 0.9e1 * t9215 * t6246 + 0.75e2 / 0.4e1 * t7846 * t20865 - 0.9e1 / 0.4e1 * t7831 * t20865 - 0.9e1 / 0.2e1 * t990 * t20884 + 0.24e2 * t9194 * t6246 - 0.30e2 * t995 * t20865 + 0.3e1 / 0.4e1 * t995 * t20884 + t322 * t20893 / 0.2e1 + 0.120e3 * t20764;
3984   t20925 = t40 * t6414;
3985   t20992 = 0.240e3 * t98 * t20701 * t73 + 0.4320e4 * t1872 * t1970 + 0.1728e4 * t3733 * t6176 - 0.48e2 * t8081 * t20865 + 0.15e2 / 0.2e1 * t8084 * t20865 + 0.24e2 * t9769 * t6246 + 0.75e2 / 0.4e1 * t8091 * t20865 - 0.9e1 * t12346 * t1872 - 0.9e1 * t9781 * t6246 - 0.2e1 * t380 * t76 * t20701 - 0.1920e4 * t537 * t6266 + 0.3e1 * t4948 * t1875 + 0.3e1 / 0.2e1 * t12366 * t1872 + 0.2e1 * t16702 * t557;
3986   t21022 = 0.576e3 * t871 * t20734 - 0.30e2 * t868 * t20865 + 0.3e1 / 0.4e1 * t868 * t20884 - t8076 * t20865 / 0.4e1 - 0.3e1 * t903 * t20884 + 0.48e2 * t380 * t20744 + 0.12e2 * t380 * t291 * t20731 - 0.9e1 / 0.2e1 * t860 * t20884 + 0.2e1 * t1426 * t6266 + t9729 * t6246 / 0.2e1 - 0.9e1 / 0.4e1 * t8114 * t20865 + t364 * t20893 / 0.2e1 + t8066 * t20865 / 0.16e2 + 0.960e3 * t561 * t6320;
3987   t21053 = -0.2160e4 * t20742 + 0.3e1 / 0.4e1 * t2729 * t20841 - 0.3e1 * t2741 * t20841 + 0.36e2 * t2720 * t20841 - 0.18e2 * t3751 * t6241 - 0.4e1 * t903 * t20837 - 0.72e2 * t380 * t1822 * t1806 + 0.16e2 * t380 * t532 * t6158 + 0.42e2 * t2717 * t20841 - 0.6e1 * t860 * t20837 - 0.27e2 / 0.2e1 * t2755 * t20841 + 0.3e1 * t3784 * t6241 + t868 * t20837 - 0.1440e4 * t71 * t20731 * t78;
3988   t21095 = 0.30720e5 * t123 * t20701 + 0.3686400e7 * t1919 * t1806 + 0.1843200e7 * t75 * t20710 + 0.460800e6 * t93 * t20731 + 0.614400e6 * t583 * t6158 - 0.34560e5 * t20710 + 0.1344e4 * t20731 + 0.1792e4 * t20734 - 0.51840e5 * t20820 + 0.448e3 * t20823 - 0.207360e6 * t20829 - 0.69120e5 * t20831 - 0.5760e4 * t20833;
3989   t21136 = 0.3233160e7 * t121 * t20710 - 0.34560e5 * t121 * t20731 - 0.371589120e9 * t123 * t20710 + 0.484974e6 * t123 * t20731 - 0.26542080e8 * t125 * t20731 - 0.1105920e7 * t127 * t20701 + 0.26943e5 * t134 * t20701 - 0.35389440e8 * t1419 * t6158 - 0.207360e6 * t1865 * t1806 + 0.4849740e7 * t1950 * t1806 - 0.371589120e9 * t4901 * t1806 + 0.768e3 * t75 * t20701 - 0.2880e4 * t93 * t20701 - 0.69120e5 * t69 * t20710 + 0.4608e4 * t69 * t20731 + 0.6144e4 * t551 * t6158 - 0.46080e5 * t553 * t6158 + 0.646632e6 * t597 * t6158 - 0.8e1 * t20701 + 0.9216e4 * t20840;
3990   t21138 = 0.720e3 * t70 * t20731 * t73 + 0.24e2 * t121 * t21095 + 0.864e3 * t12301 * t1811 + 0.288e3 * t1443 * t6158 + 0.864e3 * t16780 * t1806 + 0.288e3 * t16792 * t527 + 0.432e3 * t4952 * t1806 + 0.72e2 * t367 * t20701 + 0.432e3 * t871 * t20731 - 0.2880e4 * t20865 * t291 + t21136 * t78 + 0.576e3 * t6165 * t599 - 0.240e3 * t20712 + 0.2640e4 * t20745;
3991   t21150 = 0.35e2 / 0.81e2 * (0.144e3 * t20731 * t101 + 0.576e3 * t16161 * t1806 + 0.192e3 * t4553 * t6158 + 0.288e3 * t1811 * t1887 + 0.192e3 * t16207 * t527 + 0.288e3 * t4595 * t1806 + 0.192e3 * t1350 * t6158 + 0.48e2 * t313 * t20701 + 0.24e2 * t75 * (t20860 + t20897)) * t113 * t117 + 0.23453055224366772681e-3 * t6279 * t6419 - 0.68730589945581996128e-3 * t1891 * t1907 - 0.23093478221715550698e-2 * t11720 * t1793 * t9 * t58 + 0.196e3 / 0.135e3 * t4793 * t1903 - 0.11628192649410150514e-3 * t568 * t1993 * t347 + 0.36e2 / 0.25e2 * t12046 * t1793 - 0.16752182303119123344e-3 * t611 * t1993 * t347 - 0.14154795946666666667e0 * t149 * t6415 - 0.98252688039506172841e-1 * t573 * t20925 - 0.87725614320987654321e-1 * t6429 * t1900 + 0.12281586004938271605e0 * t1895 * t6399 + 0.63087523531878020568e-6 * t1991 / t11 / t1992 / t56 * t920 * t49 * t1852 - 0.12638210666666666667e0 * t1978 * t620 + 0.17693494933333333333e0 * t613 * t1988 - 0.34087034313779607706e-1 * t2428 * t1793 * t2018 + 0.51766899763792880101e-5 * t4687 * t52 * t10 * t20449 + 0.30988213012526916096e-1 * t3501 * t522 * t2018 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t20701 * t144 + 0.32e2 / 0.7e1 * t6158 * t608 + 0.48e2 / 0.7e1 * t1806 * t1973 + 0.32e2 / 0.7e1 * t527 * t6391 + 0.8e1 / 0.7e1 * t69 * (t20992 + t21022 + t21053 + t21138)) * t35 * t39 * t151 + 0.23453055224366772681e-3 * t6407 * t1244;
3992   t21160 = -0.72e2 * t255 * t6766 * t1767 - 0.36e2 * t255 * t774 * t20398 - 0.27e2 / 0.25e2 * t628 * t6054 - 0.36e2 * t4466 * t1790 - 0.24e2 * t255 * t17099 * t505 + 0.4e1 * t511 * t6454 + t27 * (t20802 + t21150) + 0.216e3 * t6095 - t1792 - 0.27e2 / 0.50e2 * t2009 * t2014 - 0.24e2 * t6131 + 0.648e3 * t5030 * t6094 - 0.24e2 * t6138;
3993   t21167 = t2013 * t2013;
3994   t21171 = t2034 * t2034;
3995   t21193 = -0.48e2 * t6146 - 0.2592e4 * t2379 * t9989 * t6044 - 0.2592e4 * t8655 * t6051 - 0.4959e4 / 0.10000e5 * t194 * t8329 * t21167 - 0.27e2 / 0.100e3 * t194 * t1104 * t21171 - 0.48e2 * t255 * t623 * t6044 - 0.144e3 * t5057 * t6084 + 0.1944e4 * t1225 * t20507 - 0.144e3 * t4525 * t6084 + t20557 * t193 * t215 + 0.6e1 * t1775 * t1997 + t20475 * t154 + 0.4e1 * t6087 * t623 + 0.648e3 * t5111 * t6094;
3996   t21224 = -0.7776e4 * t2379 * t7384 * t20497 + t20557 * t215 - p->cam_beta * (t20590 + t20624 + t21160 + t21193) - 0.4959e4 / 0.10000e5 * t8485 * t21167 - 0.27e2 / 0.100e3 * t1192 * t21171 - 0.72e2 * t4466 * t2051 - 0.144e3 * t1219 * t6048 + 0.1296e4 * t764 * t8768 * t6044 - 0.72e2 * t255 * t13162 * t1765 - 0.24e2 * t255 * t16036 * t505 + 0.1296e4 * t3109 * t6045 - 0.2592e4 * t2379 * t10288 * t6044 + 0.9720e4 * t7461 * t8446 * t20497 - 0.72e2 * t1219 * t6523;
3997   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3998     v4sigma4[0] = -0.3e1 / 0.16e2 * t239 * t240 * (t20414 + t20477 + t20510 + t21224);
3999 
4000   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4001     v4sigma3lapl[0] = 0.0e0;
4002 
4003   t21239 = t2088 * t1767;
4004   t21242 = t4045 * t6081;
4005   t21247 = t18145 * t522;
4006   t21255 = t1772 * t522;
4007   t21259 = t2001 * t522;
4008   t21266 = -0.27e2 / 0.100e3 * t4070 * t6513 + 0.10003140785058731884e-3 * t511 * t6542 - 0.27e2 / 0.100e3 * t1192 * t6598 * t648 - 0.36e2 * t15823 * t2090 - 0.36e2 * t1569 * t21239 - 0.1944e4 * t3150 * t21242 + 0.972e3 * t4423 * t6626 - 0.14004397099082224638e-3 * t27 * t21247 - 0.10187892400000000000e2 * t5640 * t690 * t6094 - 0.90559043555555555555e0 * t13420 * t6630 - 0.45279521777777777778e0 * t4338 * t348 * t21255 + 0.40751569600000000001e1 * t5640 * t348 * t21259 + 0.22639760888888888889e1 * t4338 * t690 * t6084;
4009   t21272 = t40 * t10941 * t6044;
4010   t21280 = t40 * t10507 * t6044;
4011   t21292 = t508 * t1793;
4012   t21296 = t1770 * t522;
4013   t21300 = 0.11319880444444444444e1 * t5252 * t6748 - 0.10187892400000000000e2 * t14774 * t6752 + 0.40751569600000000001e2 * t11241 * t21272 + 0.11319880444444444444e1 * t18412 * t2117 + 0.22639760888888888889e1 * t5252 * t6740 - 0.20375784800000000001e2 * t4364 * t21280 - 0.27e2 / 0.50e2 * t3906 * t6691 - 0.60018844710352391308e-3 * t17731 * t17732 * t505 + t6605 - t6620 - 0.27e2 / 0.100e3 * t11528 * t2206 - 0.12e2 * t1630 * t6516 + 0.63391330488888888889e0 * t4338 * t921 * t21292 - 0.90559043555555555556e0 * t4338 * t348 * t21296;
4014   t21332 = 0.324e3 * t4030 * t6045 + 0.513e3 / 0.1000e4 * t3053 * t2172 * t2013 - 0.4959e4 / 0.10000e5 * t8485 * t714 * t6126 - 0.18e2 * t4466 * t2191 - 0.18e2 * t1219 * t6685 - 0.36e2 * t1219 * t6688 + 0.162e3 * t4030 * t6495 - 0.648e3 * t10685 * t6520 - 0.6e1 * t15742 * t721 - 0.18e2 * t4466 * t2186 - 0.18e2 * t1630 * t6498 - 0.18e2 * t255 * t4402 * t2087 - 0.6e1 * t255 * t16036 * t677;
4015   t21363 = -0.18e2 * t1630 * t6130 - 0.18e2 * t5413 * t1790 - 0.18e2 * t1219 * t6755 + 0.15093173925925925925e0 * t6779 * t2123 + 0.75465869629629629628e-1 * t6776 * t2123 + 0.11319880444444444444e1 * t18062 * t2117 + 0.22639760888888888889e1 * t18065 * t2117 + 0.22639760888888888889e1 * t5533 * t6740 + 0.22639760888888888889e1 * t5498 * t6740 - 0.20375784800000000001e2 * t4220 * t21280 + 0.11319880444444444444e1 * t5533 * t6748 - 0.10187892400000000000e2 * t14028 * t6752 + 0.75465869629629629630e0 * t10535 * t689 * t690 * t6044 + t6716 - 0.36e2 * t17041 * t2090;
4016   t21370 = t2083 * t1767;
4017   t21374 = t6044 * t677 * t20;
4018   t21410 = t1765 * t2087;
4019   t21415 = 0.648e3 * t10685 * t6109 + 0.36e2 * t1219 * t6549 - 0.162e3 * t13350 * t2001 + 0.6e1 * t15742 * t680 + 0.12e2 * t1630 * t6044 + 0.18e2 * t17419 * t508 + 0.36e2 * t5413 * t1770 + 0.18e2 * t5413 * t1772 + 0.18e2 * t4466 * t2092 + 0.1944e4 * t5451 * t21370 - 0.972e3 * t5454 * t21370 + 0.36e2 * t255 * t21410 - 0.324e3 * t4030 * t6112 + t2007 - t6116 + t6120 + t6640 - t6656 + t6662;
4020   t21422 = (0.6e1 * t1767 * t2087 + t1769 + t1773 + 0.54e2 * t21239 + 0.54e2 * t21370 + 0.54e2 * t21410 + t6082 + t6085 + t6546 + t6554) * t26;
4021   t21429 = t10742 * t6044;
4022   t21448 = t13701 * t1765;
4023   t21451 = t10760 * t6044;
4024   t21454 = t13705 * t1765;
4025   t21457 = t5376 * t1767;
4026   t21464 = -0.162e3 * t11331 * t2102 + 0.72e2 * t1219 * t6551 + 0.36e2 * t1219 * t6553 + 0.36e2 * t1630 * t6084 + 0.36e2 * t4466 * t2090 + 0.36e2 * t255 * t21239 + 0.36e2 * t255 * t21370 - 0.1080e4 * t764 * t21374 + 0.7776e4 * t2379 * t21429 + 0.1944e4 * t2379 * t21448 - 0.9720e4 * t7461 * t21451 - 0.972e3 * t764 * t21454 - 0.162e3 * t764 * t21457 - 0.162e3 * t3109 * t6603 - 0.324e3 * t3109 * t6612 - 0.972e3 * t3109 * t6626 - 0.162e3 * t4030 * t6094 + 0.1944e4 * t8655 * t6623 - t21422 + t6108;
4027   t21465 = t21415 + t21464;
4028   t21474 = t697 * t6072 / 0.10e2 + 0.3e1 / 0.10e2 * t2137 * t2035 + 0.162e3 * t5111 * t6603 - 0.36e2 * t1233 * t21370 + 0.1080e4 * t1225 * t21374 - 0.72e2 * t4525 * t6551 - t6723 + 0.84521773985185185182e-1 * t688 * t689 * t6435 + 0.75465869629629629628e-1 * t6733 * t2123 - 0.10565221748148148148e0 * t2113 * t6810 - 0.10565221748148148148e0 * t2120 * t6810 + t21465 * t193 * t215 - 0.12e2 * t1630 * t6089 + 0.11319880444444444444e1 * t18156 * t2117 + 0.11319880444444444444e1 * t5498 * t6748;
4029   t21480 = t4049 * t6081;
4030   t21508 = -0.10187892400000000000e2 * t14002 * t6752 + 0.40751569600000000001e2 * t10940 * t21272 + 0.972e3 * t1225 * t21480 + t6122 * t715 / 0.10e2 + 0.3e1 / 0.10e2 * t2009 * t2173 + 0.3e1 / 0.10e2 * t628 * t6706 + 0.162e3 * t17021 * t2102 - 0.36e2 * t4525 * t6553 - 0.36e2 * t5057 * t6553 - 0.60018844710352391308e-3 * t14387 * t6542 * t508 + t6750 + 0.162e3 * t4030 * t6140 + 0.162e3 * t13350 * t1781 - 0.36e2 * t255 * t623 * t1765 * t677 - 0.36e2 * t1219 * t6767;
4031   t21541 = -0.36e2 * t255 * t6766 * t2087 - 0.36e2 * t5413 * t1784 - 0.62888224691358024691e-1 * t27 * t20648 * t691 - 0.18e2 * t1630 * t6143 - 0.648e3 * t10685 * t6051 - 0.18e2 * t17419 * t513 + t6096 + 0.3e1 * t6556 * t623 + t21422 * t154 - 0.27e2 / 0.100e3 * t2137 * t2014 - 0.36e2 * t1630 * t6097 + 0.513e3 / 0.1000e4 * t194 * t14341 * t2013 + 0.513e3 / 0.1000e4 * t628 * t6782 - 0.62888224691358024691e-1 * t6087 * t572 * t691 - 0.18866467407407407407e0 * t1775 * t1894 * t691;
4032   t21573 = -0.1944e4 * t3896 * t21242 - t1792 - 0.18e2 * t4466 * t2105 - 0.18e2 * t4466 * t2110 - 0.6e1 * t15742 * t685 - 0.18e2 * t255 * t5033 * t2087 - 0.6e1 * t255 * t17099 * t677 - 0.1944e4 * t3896 * t21448 + 0.162e3 * t5030 * t6603 - 0.1944e4 * t13124 * t6623 + 0.162e3 * t1225 * t21457 - t6132 + 0.3e1 / 0.10e2 * t6704 * t649 - 0.9e1 / 0.100e3 * t194 * t1689 * t6071 - 0.27e2 / 0.100e3 * t628 * t6736;
4033   t21599 = -t6577 + 0.73e2 / 0.45e2 * t704 * t6574 * t505 + t6583 + t6062 - 0.73e2 / 0.1620e4 * t638 * t6584 * t505 - 0.73e2 / 0.3240e4 * t638 * t2158 * t1767 - t2029 + t6070 + 0.292e3 / 0.45e2 * t2162 * t1767 + t6594 - t6068 + t2033;
4034   t21614 = -0.27e2 / 0.100e3 * t194 * t5608 * t2034 - 0.27e2 / 0.100e3 * t2009 * t2143 - t6139 - 0.36e2 * t1233 * t21239 + 0.972e3 * t1225 * t21454 + 0.3e1 * t2095 * t1997 + t683 * t6454 - t6147 - 0.36e2 * t1219 * t6700 + t194 * t446 * t21599 / 0.10e2 - 0.14004397099082224638e-3 * t18144 * t21247 - 0.27e2 / 0.100e3 * t194 * t17863 * t648 - 0.27e2 / 0.50e2 * t628 * t6726 - 0.27e2 / 0.100e3 * t697 * t6054 + 0.10003140785058731884e-3 * t511 * t6730;
4035   t21647 = 0.10003140785058731884e-3 * t27 * t568 * t6541 * t347 + 0.9720e4 * t10028 * t21451 + 0.972e3 * t5030 * t6626 - 0.1944e4 * t13119 * t6623 - 0.4959e4 / 0.10000e5 * t194 * t10592 * t6126 - 0.36e2 * t5413 * t1787 + 0.324e3 * t4030 * t6133 + 0.171e3 / 0.1000e4 * t697 * t6127 + 0.324e3 * t17115 * t2102 - 0.36e2 * t5569 * t6084 + 0.162e3 * t5614 * t6094 - t6789 - 0.36e2 * t17034 * t2090 + 0.162e3 * t17038 * t2102 - 0.7776e4 * t3896 * t21429;
4036   t21650 = t6536 * t648;
4037   t21686 = 0.972e3 * t5111 * t6626 + 0.513e3 / 0.1000e4 * t5536 * t21650 - 0.72e2 * t17118 * t2090 + 0.63391330488888888889e0 * t1652 * t10971 * t21292 - 0.90559043555555555556e0 * t1652 * t4267 * t21296 - 0.10187892400000000000e2 * t4220 * t117 * t6094 + 0.22639760888888888889e1 * t1652 * t117 * t6084 - 0.72e2 * t5057 * t6551 - 0.18866467407407407407e0 * t511 * t6428 * t691 + 0.324e3 * t5030 * t6612 + 0.324e3 * t5111 * t6612 - 0.90559043555555555555e0 * t5533 * t6773 - 0.90559043555555555555e0 * t5498 * t6773 - 0.45279521777777777778e0 * t1652 * t4267 * t21255 + 0.40751569600000000001e1 * t4220 * t4267 * t21259;
4038   t21718 = -t2056 - p->cam_beta * (t21363 + t21474 + t21508 + t21541 + t21573 + t21614 + t21647 + t21686) - 0.72e2 * t4437 * t6551 - 0.36e2 * t4437 * t6553 - 0.36e2 * t1569 * t21370 - 0.72e2 * t5225 * t6551 - 0.62888224691358024691e-1 * t6087 * t10 * t691 + 0.972e3 * t1563 * t21480 - 0.36e2 * t255 * t664 * t1765 * t677 + 0.513e3 / 0.1000e4 * t10284 * t6665 + 0.3e1 / 0.10e2 * t5294 * t2034 + 0.3e1 / 0.10e2 * t1600 * t6598 + t496 * t21599 / 0.10e2 + t15851 * t714 / 0.10e2;
4039   t21738 = 0.3e1 / 0.10e2 * t5174 * t2172 + t1751 * t6071 / 0.10e2 - 0.27e2 / 0.100e3 * t1192 * t2172 * t2034 - 0.27e2 / 0.100e3 * t3906 * t6536 - t6680 - t6500 - t6506 - t6510 + t6512 + 0.171e3 / 0.1000e4 * t11042 * t6126 + 0.3e1 / 0.10e2 * t17464 * t648 + 0.1080e4 * t1563 * t21374 + 0.162e3 * t15965 * t2102;
4040   t21767 = -0.72e2 * t15968 * t2090 + 0.324e3 * t15950 * t2102 - 0.36e2 * t5685 * t6084 + 0.162e3 * t5688 * t6094 - 0.36e2 * t15962 * t2090 - 0.1944e4 * t11284 * t6623 - 0.1944e4 * t3150 * t21448 + 0.9720e4 * t8722 * t21451 + 0.162e3 * t15826 * t2102 + 0.324e3 * t4440 * t6612 + 0.162e3 * t4440 * t6603 - 0.27e2 / 0.100e3 * t14567 * t2013 - 0.36e2 * t5413 * t2051 - 0.36e2 * t1630 * t6048;
4041   t21792 = t21465 * t215 - 0.1944e4 * t11346 * t6623 + 0.75465869629629629628e-1 * t18436 * t1900 - 0.10565221748148148148e0 * t5302 * t6399 + 0.84521773985185185182e-1 * t1747 * t20925 + 0.162e3 * t1563 * t21457 - 0.36e2 * t5225 * t6553 + 0.324e3 * t4423 * t6612 + 0.162e3 * t4423 * t6603 + 0.3e1 * t6556 * t664 + 0.3e1 * t2095 * t2070 + t683 * t6493 + t21422 * t229;
4042   t21823 = 0.513e3 / 0.1000e4 * t3053 * t21650 - 0.18e2 * t17419 * t655 - 0.36e2 * t5413 * t2048 - 0.18e2 * t5413 * t2054 + 0.162e3 * t13350 * t2045 - 0.18e2 * t1630 * t6523 + 0.75465869629629629630e0 * t1742 * t40 * t116 * t6044 + 0.972e3 * t4440 * t6626 + 0.972e3 * t1563 * t21454 - 0.7776e4 * t3150 * t21429 - 0.9e1 / 0.100e3 * t1192 * t714 * t6071 + t6822 - 0.36e2 * t1219 * t6571 - 0.36e2 * t255 * t6570 * t2087;
4043   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4044     v4sigma3tau[0] = -0.3e1 / 0.16e2 * t239 * t240 * (t21266 + t21300 + t21332 + t21718 + t21738 + t21767 + t21792 + t21823);
4045 
4046   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4047     v4sigma2lapl2[0] = 0.0e0;
4048 
4049   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4050     v4sigma2lapltau[0] = 0.0e0;
4051 
4052   t21880 = 0.108e3 * t5614 * t6603 - 0.1296e4 * t14425 * t6623 + 0.216e3 * t5614 * t6612 - 0.6e1 * t5787 * t1790 + 0.54e2 * t15153 * t1781 - 0.12e2 * t17419 * t685 - 0.12e2 * t5787 * t1784 - 0.24e2 * t1630 * t6700 - 0.9e1 / 0.25e2 * t697 * t6726 + 0.171e3 / 0.1000e4 * t194 * t5968 * t2034 + 0.171e3 / 0.1000e4 * t194 * t15094 * t2013 - 0.24e2 * t5413 * t2110 - 0.9e1 / 0.100e3 * t2009 * t2264 + 0.30186347851851851852e1 * t5498 * t6956 + 0.30186347851851851852e1 * t1652 * t117 * t6551 + 0.15093173925925925926e1 * t1652 * t117 * t6553;
4053   t21912 = t2087 * t2087;
4054   t21919 = -0.40751569600000000000e2 * t4220 * t117 * t6626 - 0.13583856533333333333e2 * t14028 * t6959 - 0.13583856533333333333e2 * t14002 * t6959 - 0.13583856533333333333e2 * t4220 * t117 * t6612 - 0.67919282666666666667e1 * t4220 * t117 * t6603 + 0.81503139200000000000e2 * t10940 * t117 * t6623 - 0.60372695703703703702e0 * t5915 * t6773 - 0.60372695703703703704e0 * t5533 * t6953 - 0.70434811654320987653e-1 * t2233 * t6810 + t2229 * t1997 - 0.48e2 * t5057 * t6857 - 0.48e2 * t4525 * t6857 - 0.9e1 / 0.25e2 * t2137 * t2143 - 0.12e2 * t1630 * t6755 - 0.24e2 * t255 * t774 * t21912 + 0.108e3 * t6715 - 0.24e2 * t1219 * t7020;
4055   t21951 = -0.73e2 / 0.135e3 * t6576 + 0.292e3 / 0.135e3 * t704 * t6871 * t505 + 0.146e3 / 0.135e3 * t704 * t2272 * t1767 + 0.73e2 / 0.135e3 * t6582 + 0.73e2 / 0.9720e4 * t638 * t45 * t6852 * t211 - 0.73e2 / 0.4860e4 * t638 * t6881 * t505 - t2029 + 0.584e3 / 0.135e3 * t6885 * t505 + 0.292e3 / 0.135e3 * t2279 * t1767 - 0.73e2 / 0.2430e4 * t638 * t2158 * t2087 + 0.584e3 / 0.135e3 * t207 * t21912 + 0.584e3 / 0.135e3 * t6593 - 0.73e2 / 0.9720e4 * t638 * t639 * t6852 + t2033;
4056   t21983 = t18627 * t505;
4057   t21986 = t19066 * t1765;
4058   t21989 = -0.12e2 * t4466 * t2243 + t194 * t446 * t21951 / 0.10e2 + t2009 * t2287 / 0.10e2 + t628 * t6950 / 0.5e1 + 0.2e1 / 0.5e1 * t2137 * t2173 + t2259 * t2035 / 0.10e2 + t6704 * t715 / 0.5e1 - 0.12577644938271604938e0 * t6556 * t572 * t691 - 0.25155289876543209876e0 * t2095 * t1894 * t691 - 0.12577644938271604938e0 * t683 * t6428 * t691 - 0.24e2 * t6722 + t7006 * t649 / 0.5e1 + 0.10062115950617283950e0 * t6962 * t2123 + 0.10062115950617283950e0 * t6965 * t2123 - 0.12e2 * t1219 * t7029 + 0.108e3 * t1225 * t21983 + 0.1080e4 * t1225 * t21986;
4059   t21990 = t2222 * t1767;
4060   t21993 = t14924 * t1765;
4061   t21996 = t6853 * t505;
4062   t22004 = t4049 * t6547;
4063   t22009 = t15225 * t1765;
4064   t22014 = t5804 * t1767;
4065   t22019 = t2092 * t522;
4066   t22023 = t680 * t1793;
4067   t22027 = t15350 * t1765;
4068   t22032 = t5819 * t1767;
4069   t22035 = t5800 * t1767;
4070   t22038 = -0.12e2 * t1233 * t21990 + 0.324e3 * t1225 * t21993 - 0.24e2 * t1233 * t21996 + 0.15093173925925925926e1 * t5915 * t6740 - 0.40012563140234927539e-3 * t14387 * t6542 * t680 + 0.1296e4 * t1225 * t22004 + 0.216e3 * t5111 * t6988 - 0.7776e4 * t3896 * t22009 + 0.216e3 * t5030 * t6988 + 0.324e3 * t1225 * t22014 - 0.60372695703703703704e0 * t5498 * t6953 - 0.60372695703703703704e0 * t1652 * t4267 * t22019 + 0.42260886992592592593e0 * t1652 * t10971 * t22023 - 0.648e3 * t3896 * t22027 - 0.48e2 * t18079 * t2090 + 0.54e2 * t1225 * t22032 - 0.648e3 * t3896 * t22035;
4071   t22041 = t14806 * t1765;
4072   t22054 = t4045 * t6547;
4073   t22069 = t2172 * t2172;
4074   t22073 = t18725 * t505;
4075   t22074 = t14393 * t22073;
4076   t22077 = t14404 * t22073;
4077   t22083 = 0.9720e4 * t10028 * t22041 - 0.48e2 * t18241 * t2090 + 0.108e3 * t3109 * t7012 - 0.12e2 * t255 * t154 * t1767 * t2215 - 0.6e1 * t4466 * t2246 - 0.2592e4 * t3896 * t22054 - 0.9e1 / 0.50e2 * t194 * t1689 * t6598 - 0.4959e4 / 0.10000e5 * t194 * t15084 * t2013 - 0.12e2 * t5787 * t1787 - 0.24e2 * t5413 * t2105 + 0.66687605233724879230e-4 * t683 * t6730 - 0.9e1 / 0.50e2 * t194 * t1104 * t22069 - 0.12074539140740740741e1 * t14388 * t22074 + 0.54335426133333333334e1 * t14403 * t22077 + 0.54e2 * t11331 * t2236 + 0.75465869629629629630e0 * t6749;
4078   t22114 = t2083 * t2087;
4079   t22122 = 0.648e3 * t5111 * t6985 + 0.648e3 * t5030 * t6985 - 0.9e1 / 0.25e2 * t628 * t6926 - 0.9e1 / 0.50e2 * t628 * t7017 - 0.12e2 * t255 * t6766 * t2221 + 0.171e3 / 0.500e3 * t628 * t6923 - 0.12e2 * t255 * t13097 * t2215 + 0.108e3 * t5030 * t6918 - 0.1296e4 * t13124 * t6982 - 0.24e2 * t4525 * t6859 - 0.24e2 * t255 * t623 * t505 * t2215 - 0.12e2 * t1219 * t7047 - t1792 + 0.108e3 * t5111 * t6918 - 0.48e2 * t1233 * t22114 - 0.24e2 * t5057 * t6859 + 0.108e3 * t764 * t766 * t21912;
4080   t22155 = 0.24e2 * t1219 * t6859 + 0.48e2 * t5413 * t2090 - 0.108e3 * t764 * t21983 - 0.1080e4 * t764 * t21986 + 0.12e2 * t255 * t21990 + 0.24e2 * t255 * t21996 + 0.7776e4 * t2379 * t22009 + 0.648e3 * t2379 * t22027 - 0.54e2 * t764 * t22032 - 0.108e3 * t3109 * t6918 - 0.648e3 * t4030 * t6626 + 0.12e2 * t6639;
4081   t22180 = 0.1296e4 * t10685 * t6623 - 0.216e3 * t13350 * t2102 + 0.48e2 * t1630 * t6551 + 0.24e2 * t1630 * t6553 - 0.324e3 * t764 * t22014 + 0.648e3 * t2379 * t22035 - 0.9720e4 * t7461 * t22041 - 0.648e3 * t3109 * t6985 - 0.216e3 * t3109 * t6988 - 0.108e3 * t4030 * t6603 - 0.216e3 * t4030 * t6612 + 0.1296e4 * t8655 * t6982;
4082   t22200 = t1767 * t2215;
4083   t22203 = t19 * t21912;
4084   t22206 = t1765 * t2221;
4085   t22210 = 0.2e1 * t1767 * t2221 + 0.4e1 * t505 * t6852 + t1769 + t1773 + 0.4e1 * t21912 + 0.18e2 * t21990 + 0.36e2 * t21996 + 0.72e2 * t22114 + 0.18e2 * t22200 + 0.36e2 * t22203 + 0.18e2 * t22206 + 0.4e1 * t6545 + 0.36e2 * t6553;
4086   t22211 = t22210 * t26;
4087   t22218 = 0.48e2 * t1219 * t6857 + 0.12e2 * t1219 * t6861 + 0.12e2 * t18830 * t508 - 0.324e3 * t764 * t21993 + 0.48e2 * t255 * t22114 + 0.2592e4 * t5451 * t22114 - 0.1296e4 * t5454 * t22114 + 0.6e1 * t4466 * t2226 + t2007 - t22211 - 0.108e3 * t6655 + 0.24e2 * t6661;
4088   t22246 = -0.108e3 * t764 * t765 * t21912 - 0.54e2 * t11331 * t2251 + 0.24e2 * t1219 * t6855 - 0.54e2 * t15153 * t2001 + 0.24e2 * t1630 * t6549 + 0.12e2 * t17419 * t680 + 0.12e2 * t5787 * t1770 + 0.6e1 * t5787 * t1772 + 0.24e2 * t5413 * t2092 + 0.12e2 * t255 * t22200 + 0.24e2 * t255 * t22203 + 0.12e2 * t255 * t22206 + 0.12e2 * t4466 * t2224;
4089   t22248 = t22155 + t22180 + t22218 + t22246;
4090   t22256 = t40 * t116 * t1765 * t677;
4091   t22282 = 0.54e2 * t764 * t13062 * t2215 - 0.9e1 / 0.100e3 * t194 * t5961 * t2034 + 0.2e1 * t6864 * t623 + t22248 * t193 * t215 - 0.6e1 * t255 * t5033 * t2221 + 0.15093173925925925926e1 * t1652 * t22256 + 0.75465869629629629630e0 * t18156 * t2240 + 0.15093173925925925926e1 * t5498 * t6947 + 0.75465869629629629628e0 * t5915 * t6748 - 0.67919282666666666665e1 * t15131 * t6752 + 0.75465869629629629630e0 * t18062 * t2240 + 0.15093173925925925926e1 * t18065 * t2240 + 0.15093173925925925926e1 * t5533 * t6947 + 0.15093173925925925926e1 * t18915 * t2117 + 0.15093173925925925926e1 * t18918 * t2117 + 0.171e3 / 0.500e3 * t697 * t6782 - 0.9e1 / 0.50e2 * t194 * t18887 * t648;
4092   t22314 = t2206 * t2172;
4093   t22317 = -0.12e2 * t18830 * t513 + t22211 * t154 - 0.1296e4 * t13119 * t6982 + 0.216e3 * t18244 * t2102 + 0.216e3 * t18083 * t2102 - 0.48e2 * t5569 * t6551 - 0.24e2 * t5569 * t6553 + 0.648e3 * t5614 * t6626 - 0.9e1 / 0.50e2 * t697 * t6736 - 0.24e2 * t1219 * t7053 - 0.24e2 * t1630 * t6767 - 0.9e1 / 0.100e3 * t2259 * t2014 + t697 * t6706 / 0.5e1 - 0.12e2 * t6788 - 0.12e2 * t255 * t1240 * t6852 + 0.30186347851851851852e1 * t5533 * t6956 + 0.171e3 / 0.250e3 * t5536 * t22314;
4094   t22341 = -0.9e1 / 0.25e2 * t14567 * t2206 - 0.9e1 / 0.50e2 * t1192 * t6900 * t648 - 0.9e1 / 0.100e3 * t1192 * t2286 * t2034 - 0.9e1 / 0.50e2 * t4070 * t6536 - 0.9e1 / 0.50e2 * t3906 * t7081 - 0.9e1 / 0.25e2 * t4070 * t6691 - p->cam_beta * (t21880 + t21919 + t21989 + t22038 + t22083 + t22122 + t22282 + t22317) + 0.171e3 / 0.500e3 * t10284 * t6906 + 0.171e3 / 0.1000e4 * t3053 * t2263 * t2034 + 0.66687605233724879230e-4 * t683 * t6542 - 0.9e1 / 0.50e2 * t1192 * t714 * t6598 - 0.9e1 / 0.25e2 * t3906 * t6909 - 0.4959e4 / 0.10000e5 * t8485 * t2263 * t2013 - 0.648e3 * t3150 * t22035 + 0.9720e4 * t8722 * t22041;
4095   t22375 = -0.12e2 * t255 * t1576 * t6852 - 0.1296e4 * t11284 * t6982 + 0.54e2 * t11331 * t2298 - 0.1296e4 * t13519 * t6623 + 0.324e3 * t1563 * t22014 + 0.54e2 * t1563 * t22032 - 0.12e2 * t1630 * t6685 - 0.24e2 * t1630 * t6688 - 0.12e2 * t18830 * t655 - 0.7776e4 * t3150 * t22009 - 0.648e3 * t3150 * t22027 + 0.108e3 * t3109 * t7090 + 0.216e3 * t4440 * t6988 - 0.24e2 * t5685 * t6553 + 0.108e3 * t5688 * t6603 + 0.648e3 * t5688 * t6626;
4096   t22409 = -0.40012563140234927539e-3 * t17731 * t17732 * t677 - 0.24e2 * t255 * t1158 * t21912 - 0.12e2 * t255 * t6570 * t2221 - 0.12e2 * t1569 * t21990 + 0.324e3 * t1563 * t21993 + t1751 * t6598 / 0.5e1 + t1600 * t6900 / 0.5e1 + 0.2e1 / 0.5e1 * t5294 * t2172 + 0.15093173925925925926e1 * t5252 * t6947 + 0.15093173925925925926e1 * t19596 * t2117 + 0.75465869629629629628e0 * t5766 * t6748 - 0.67919282666666666665e1 * t15574 * t6752 + 0.75465869629629629630e0 * t18412 * t2240 + 0.15093173925925925926e1 * t1742 * t22256 + 0.108e3 * t6604;
4097   t22442 = -0.24e2 * t6619 - 0.67919282666666666667e1 * t5640 * t690 * t6603 + 0.81503139200000000000e2 * t13403 * t690 * t6623 + 0.15093173925925925926e1 * t4338 * t690 * t6553 - 0.40751569600000000000e2 * t5640 * t690 * t6626 + 0.42260886992592592593e0 * t4338 * t921 * t22023 - t2056 + t22248 * t215 + t19481 * t648 / 0.5e1 + 0.15093173925925925926e1 * t5766 * t6740 - 0.70434811654320987653e-1 * t5867 * t6399 + 0.10062115950617283950e0 * t19638 * t1900 + t496 * t21951 / 0.10e2 - 0.12e2 * t6679 - 0.24e2 * t5413 * t2186 + 0.171e3 / 0.250e3 * t3053 * t22314;
4098   t22476 = 0.108e3 * t764 * t1150 * t21912 - 0.24e2 * t1219 * t7110 + 0.1080e4 * t1563 * t21986 - 0.48e2 * t1569 * t22114 - 0.24e2 * t1630 * t6571 - 0.24e2 * t5413 * t2191 - 0.12e2 * t4466 * t2303 + 0.108e3 * t4423 * t6918 + 0.648e3 * t4423 * t6985 - 0.48e2 * t4437 * t6857 - 0.24e2 * t4437 * t6859 + 0.108e3 * t4440 * t6918 + 0.648e3 * t4440 * t6985 - 0.48e2 * t5225 * t6857 - 0.24e2 * t5225 * t6859;
4099   t22511 = 0.54e2 * t764 * t13310 * t2215 - 0.12e2 * t5787 * t2051 - 0.12577644938271604938e0 * t6556 * t10 * t691 + 0.1296e4 * t1563 * t22004 - 0.2592e4 * t3150 * t22054 - 0.1296e4 * t11346 * t6982 - 0.48e2 * t17459 * t2090 + 0.216e3 * t17258 * t2102 - 0.48e2 * t5685 * t6551 + 0.216e3 * t5688 * t6612 + 0.216e3 * t4423 * t6988 - 0.24e2 * t1569 * t21996 + 0.108e3 * t1563 * t21983 - 0.48e2 * t17452 * t2090 + 0.216e3 * t17455 * t2102 - 0.12e2 * t5787 * t2048;
4100   t22546 = -0.6e1 * t5787 * t2054 + 0.54e2 * t15153 * t2045 - 0.12e2 * t17419 * t721 - 0.9e1 / 0.100e3 * t15705 * t2013 - 0.60372695703703703704e0 * t4338 * t348 * t22019 + 0.30186347851851851852e1 * t4338 * t690 * t6551 - 0.13583856533333333333e2 * t5640 * t690 * t6612 - 0.60372695703703703702e0 * t14831 * t6630 - 0.60372695703703703704e0 * t13420 * t6913 + 0.30186347851851851852e1 * t13420 * t6833 - 0.13583856533333333333e2 * t17228 * t6836 - 0.12074539140740740741e1 * t4338 * t22074 + 0.54335426133333333334e1 * t5640 * t22077 + t22211 * t229 + 0.2e1 * t6864 * t664 + t2229 * t2070;
4101   t22585 = t5759 * t2034 / 0.10e2 + t17464 * t714 / 0.5e1 - 0.9e1 / 0.100e3 * t11528 * t2263 + t5174 * t2286 / 0.10e2 - 0.9e1 / 0.50e2 * t1192 * t22069 + 0.75465869629629629630e0 * t6821 - 0.24e2 * t1219 * t7114 - 0.12e2 * t255 * t13162 * t2215 - 0.6e1 * t255 * t4402 * t2221 - 0.24e2 * t255 * t664 * t505 * t2215 - 0.12e2 * t255 * t229 * t1767 * t2215 - 0.6e1 * t4466 * t2306 - 0.12e2 * t1219 * t7093 - 0.12e2 * t1219 * t7096 + 0.171e3 / 0.1000e4 * t3053 * t2286 * t2013 + 0.171e3 / 0.500e3 * t11042 * t6665;
4102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4103     v4sigma2tau2[0] = -0.3e1 / 0.16e2 * t239 * t240 * (t22341 + t22375 + t22409 + t22442 + t22476 + t22511 + t22546 + t22585);
4104 
4105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4106     v4sigmalapl3[0] = 0.0e0;
4107 
4108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4109     v4sigmalapl2tau[0] = 0.0e0;
4110 
4111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4112     v4sigmalapltau2[0] = 0.0e0;
4113 
4114   t22611 = my_piecewise3(t18, -0.3e1 / 0.4e1 * t13 * t7159, 0);
4115   t22619 = -0.6e1 * t255 * t475 * t22611 + 0.324e3 * t764 * t8768 * t7181 - 0.6e1 * t1219 * t7289 + 0.162e3 * t13350 * t2298 - 0.18e2 * t1630 * t7093 - 0.18e2 * t1630 * t7096 - 0.36e2 * t1630 * t7114 - 0.18e2 * t18830 * t721 - 0.18e2 * t5787 * t2186 + 0.324e3 * t3109 * t7275 + 0.162e3 * t4030 * t7090;
4116   t22650 = -0.18e2 * t5787 * t2191 - 0.18e2 * t5413 * t2306 - 0.12e2 * t1219 * t7301 + 0.75465869629629629628e-1 * t19736 * t1900 - 0.27e2 / 0.100e3 * t3906 * t7138 - 0.27e2 / 0.100e3 * t1192 * t2172 * t2286 - 0.27e2 / 0.50e2 * t4070 * t6909 + 0.513e3 / 0.1000e4 * t3053 * t2263 * t2172 - 0.27e2 / 0.100e3 * t1192 * t714 * t6900 - 0.4959e4 / 0.10000e5 * t8485 * t7135 * t648 - 0.648e3 * t2379 * t10288 * t7181 - 0.36e2 * t255 * t19765 * t2087;
4117   t22662 = t40 * t1653 * t6852;
4118   t22677 = t40 * t116 * t505 * t2215;
4119   t22683 = -0.27e2 / 0.100e3 * t15705 * t2206 - 0.12e2 * t255 * t664 * t7181 - 0.27e2 / 0.100e3 * t4070 * t7081 + 0.11319880444444444444e1 * t5252 * t7260 + 0.11319880444444444444e1 * t1742 * t22662 + 0.22639760888888888889e1 * t19596 * t2240 + 0.22639760888888888889e1 * t5766 * t6947 - 0.10187892400000000000e2 * t14774 * t7256 + 0.11319880444444444444e1 * t20355 * t2117 + 0.22639760888888888889e1 * t5252 * t7132 + 0.22639760888888888889e1 * t1742 * t22677 - 0.6e1 * t255 * t1576 * t7162;
4120   t22690 = t4049 * t6848;
4121   t22693 = t4045 * t6848;
4122   t22706 = t5800 * t2087;
4123   t22709 = t19851 * t505;
4124   t22712 = -0.6e1 * t19782 * t655 - 0.36e2 * t5413 * t2303 - 0.36e2 * t1630 * t7110 + 0.972e3 * t1563 * t22690 - 0.1944e4 * t3150 * t22693 + 0.513e3 / 0.1000e4 * t11042 * t6906 - 0.36e2 * t5685 * t6859 + 0.162e3 * t5688 * t6918 + 0.324e3 * t5688 * t6988 - 0.1944e4 * t13519 * t6982 - 0.1944e4 * t3150 * t22706 + 0.9720e4 * t8722 * t22709;
4125   t22721 = t2083 * t2221;
4126   t22724 = t2088 * t2221;
4127   t22727 = t678 * t6852;
4128   t22730 = t7179 * t505;
4129   t22733 = t19824 * t505;
4130   t22738 = t5376 * t2221;
4131   t22741 = t1636 * t6852;
4132   t22744 = 0.54e2 * t1563 * t22733 + 0.162e3 * t1563 * t22738 + 0.162e3 * t1563 * t22741 - 0.36e2 * t1569 * t22721 - 0.36e2 * t1569 * t22724 - 0.36e2 * t1569 * t22727 - 0.12e2 * t1569 * t22730 - 0.36e2 * t19319 * t2090 + 0.162e3 * t19322 * t2102 - 0.36e2 * t4437 * t7183 + 0.162e3 * t4440 * t7204;
4133   t22786 = t19844 * t505;
4134   t22789 = 0.1944e4 * t10685 * t6982 - 0.162e3 * t13350 * t2251 - 0.162e3 * t15153 * t2102 + 0.36e2 * t1630 * t6855 + 0.72e2 * t1630 * t6857 + 0.36e2 * t1630 * t6859 + 0.18e2 * t1630 * t6861 + 0.18e2 * t18830 * t680 + 0.36e2 * t5787 * t2090 + 0.18e2 * t5787 * t2092 + 0.36e2 * t5413 * t2224 + 0.18e2 * t5413 * t2226 + 0.12e2 * t255 * t22730 - 0.54e2 * t764 * t22733 + 0.7776e4 * t2379 * t22786 - 0.162e3 * t4030 * t6918 - 0.972e3 * t4030 * t6985 - 0.324e3 * t4030 * t6988 + 0.648e3 * t8655 * t7198;
4135   t22794 = t19725 * t505;
4136   t22797 = t5804 * t2087;
4137   t22816 = t2215 * t2087;
4138   t22821 = t20 * t22611;
4139   t22845 = (0.2e1 * t19 * t22611 + 0.6e1 * t2087 * t2221 + 0.2e1 * t505 * t7162 + 0.6e1 * t677 * t6852 + 0.54e2 * t22721 + 0.54e2 * t22724 + 0.54e2 * t22727 + 0.18e2 * t22730 + 0.54e2 * t22816 + 0.9e1 * t22821) * t26;
4140   t22848 = 0.12e2 * t1219 * t7181 + 0.36e2 * t1219 * t7183 + 0.6e1 * t1219 * t7185 + 0.6e1 * t19782 * t508 + 0.1944e4 * t2379 * t22706 - 0.9720e4 * t7461 * t22709 + 0.36e2 * t255 * t22721 + 0.1944e4 * t5451 * t22721 - 0.972e3 * t5454 * t22721 + 0.36e2 * t255 * t22724 + 0.36e2 * t255 * t22727 - 0.162e3 * t764 * t22738 - 0.162e3 * t764 * t22741 - 0.1080e4 * t764 * t22794 - 0.972e3 * t764 * t22797 + 0.36e2 * t255 * t22816 + 0.6e1 * t255 * t22821 - 0.324e3 * t3109 * t7201 - 0.162e3 * t3109 * t7204 - t22845;
4141   t22849 = t22789 + t22848;
4142   t22879 = -0.12e2 * t1219 * t7233 - 0.12e2 * t255 * t623 * t7181 - 0.27e2 / 0.100e3 * t2137 * t2264 + 0.171e3 / 0.1000e4 * t628 * t7241 - 0.6e1 * t255 * t1240 * t7162 - 0.27e2 / 0.100e3 * t628 * t7230 - 0.648e3 * t8655 * t7250 - 0.12e2 * t1233 * t22730 + 0.54e2 * t1225 * t22733 - 0.18866467407407407407e0 * t6864 * t572 * t691 - 0.18866467407407407407e0 * t2229 * t1894 * t691 + t628 * t7171 / 0.10e2;
4143   t22914 = -0.73e2 / 0.90e2 * t704 * t39 * t6852 * t211 + 0.73e2 / 0.45e2 * t704 * t7148 * t505 + 0.146e3 / 0.45e2 * t704 * t2272 * t2087 + 0.73e2 / 0.90e2 * t704 * t705 * t6852 + 0.73e2 / 0.19440e5 * t638 * t45 * t7162 * t211 - 0.146e3 / 0.135e3 * t207 * t22611 * t211 + 0.292e3 / 0.135e3 * t7163 * t505 - 0.73e2 / 0.3240e4 * t638 * t6881 * t677 + 0.292e3 / 0.45e2 * t6885 * t677 + 0.292e3 / 0.45e2 * t2279 * t2087 - 0.73e2 / 0.19440e5 * t638 * t639 * t7162 + 0.146e3 / 0.135e3 * t210 * t22611;
4144   t22940 = t194 * t446 * t22914 / 0.10e2 + 0.3e1 / 0.10e2 * t697 * t6950 + t7214 * t649 / 0.10e2 + 0.3e1 / 0.10e2 * t2137 * t2287 - 0.36e2 * t5569 * t6859 + 0.162e3 * t5614 * t6918 - 0.36e2 * t18982 * t2090 + 0.162e3 * t18985 * t2102 - 0.36e2 * t1630 * t7020 - 0.27e2 / 0.100e3 * t2259 * t2143 - 0.36e2 * t5413 * t2243 + 0.324e3 * t3109 * t7222;
4145   t22961 = t7138 * t648;
4146   t22968 = 0.324e3 * t764 * t10091 * t7181 - 0.18e2 * t5787 * t2105 + 0.513e3 / 0.1000e4 * t697 * t6923 - 0.27e2 / 0.50e2 * t697 * t6926 + 0.3e1 / 0.10e2 * t7006 * t715 + 0.75465869629629629628e-1 * t7174 * t2123 - 0.18e2 * t18830 * t685 - 0.36e2 * t4525 * t7183 - 0.36e2 * t5057 * t7183 + 0.513e3 / 0.1000e4 * t5536 * t22961 + 0.162e3 * t1225 * t22738 + 0.162e3 * t1225 * t22741;
4147   t22996 = -0.6e1 * t255 * t256 * t22611 + 0.9720e4 * t10028 * t22709 + 0.1080e4 * t1225 * t22794 + 0.972e3 * t1225 * t22797 - 0.36e2 * t1233 * t22721 - 0.36e2 * t1233 * t22724 - 0.36e2 * t1233 * t22727 + 0.162e3 * t13350 * t2236 - 0.18e2 * t1630 * t7047 - 0.1944e4 * t3896 * t22706 - 0.7776e4 * t3896 * t22786 + 0.162e3 * t5030 * t7204 + 0.162e3 * t5111 * t7204;
4148   t23026 = -0.72e2 * t5569 * t6857 + 0.972e3 * t5614 * t6985 - 0.36e2 * t255 * t19890 * t2087 - 0.6e1 * t1219 * t7236 - 0.18e2 * t1630 * t7029 - 0.18e2 * t5787 * t2110 - 0.18e2 * t5413 * t2246 + 0.162e3 * t4030 * t7012 - 0.1944e4 * t3896 * t22693 - 0.648e3 * t2379 * t9989 * t7181 - 0.9e1 / 0.100e3 * t194 * t19984 * t648 + 0.3e1 / 0.10e2 * t2259 * t2173;
4149   t23041 = t2251 * t522;
4150   t23051 = t2226 * t522;
4151   t23061 = -0.27e2 / 0.100e3 * t194 * t5608 * t2286 - 0.27e2 / 0.100e3 * t194 * t1689 * t6900 + 0.972e3 * t1225 * t22690 - 0.27e2 / 0.100e3 * t697 * t7017 - 0.6e1 * t19782 * t513 - 0.20375784800000000000e2 * t15131 * t6959 + 0.40751569600000000000e1 * t4220 * t4267 * t23041 - 0.20375784800000000000e2 * t4220 * t117 * t6988 + 0.12225470880000000000e3 * t10940 * t117 * t6982 - 0.45279521777777777776e0 * t1652 * t4267 * t23051 + 0.22639760888888888888e1 * t1652 * t117 * t6859 - 0.10187892400000000000e2 * t4220 * t117 * t6918;
4152   t23063 = t2224 * t522;
4153   t23091 = -0.90559043555555555556e0 * t1652 * t4267 * t23063 + 0.45279521777777777778e1 * t1652 * t117 * t6857 - 0.61127354400000000000e2 * t4220 * t117 * t6985 - 0.90559043555555555556e0 * t5915 * t6953 + 0.45279521777777777778e1 * t5915 * t6956 - 0.1944e4 * t14425 * t6982 + 0.324e3 * t5614 * t6988 - 0.4959e4 / 0.10000e5 * t194 * t19925 * t648 + 0.513e3 / 0.1000e4 * t194 * t5968 * t2172 + t7188 * t623 + t22845 * t154 + 0.11319880444444444444e1 * t1652 * t22662;
4154   t23118 = 0.22639760888888888889e1 * t5533 * t7132 + 0.22639760888888888889e1 * t5498 * t7132 + 0.22639760888888888889e1 * t1652 * t22677 + 0.11319880444444444444e1 * t19935 * t2117 + 0.22639760888888888889e1 * t18915 * t2240 + 0.22639760888888888889e1 * t18918 * t2240 + 0.22639760888888888889e1 * t5915 * t6947 - 0.10187892400000000000e2 * t14028 * t7256 - 0.10187892400000000000e2 * t14002 * t7256 + 0.11319880444444444444e1 * t5533 * t7260 + 0.11319880444444444444e1 * t5498 * t7260 + t22849 * t193 * t215 - 0.36e2 * t1630 * t7053;
4155   t23139 = -0.36e2 * t5225 * t7183 - 0.18866467407407407407e0 * t6864 * t10 * t691 + t22849 * t215 - p->cam_beta * (t22879 + t22940 + t22968 + t22996 + t23026 + t23061 + t23091 + t23118) - 0.72e2 * t5685 * t6857 + 0.972e3 * t5688 * t6985 + 0.1080e4 * t1563 * t22794 + 0.972e3 * t1563 * t22797 - 0.7776e4 * t3150 * t22786 + 0.162e3 * t4423 * t7204 + 0.171e3 / 0.1000e4 * t10284 * t7135 - 0.27e2 / 0.100e3 * t14567 * t2263;
4156   t23172 = 0.513e3 / 0.1000e4 * t3053 * t22961 - 0.648e3 * t8655 * t7298 - 0.90559043555555555556e0 * t4338 * t348 * t23063 + 0.45279521777777777778e1 * t4338 * t690 * t6857 - 0.61127354400000000000e2 * t5640 * t690 * t6985 - 0.45279521777777777776e0 * t4338 * t348 * t23051 + 0.22639760888888888888e1 * t4338 * t690 * t6859 - 0.10187892400000000000e2 * t5640 * t690 * t6918 - 0.90559043555555555556e0 * t14831 * t6913 + 0.45279521777777777778e1 * t14831 * t6833 - 0.20375784800000000000e2 * t19416 * t6836 + 0.40751569600000000000e1 * t5640 * t348 * t23041;
4157   t23198 = -0.20375784800000000000e2 * t5640 * t690 * t6988 + 0.12225470880000000000e3 * t13403 * t690 * t6982 + t20230 * t648 / 0.10e2 + 0.3e1 / 0.10e2 * t5294 * t2286 + 0.3e1 / 0.10e2 * t1751 * t6900 + t22845 * t229 + t7188 * t664 + t496 * t22914 / 0.10e2 + 0.3e1 / 0.10e2 * t19481 * t714 + 0.3e1 / 0.10e2 * t5759 * t2172 + t1600 * t7170 / 0.10e2 - 0.9e1 / 0.100e3 * t1192 * t7170 * t648;
4158   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4159     v4sigmatau3[0] = -0.3e1 / 0.16e2 * t239 * t240 * (t22619 + t22650 + t22683 + t22712 + t22744 + t23139 + t23172 + t23198);
4160 
4161   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4162     v4lapl4[0] = 0.0e0;
4163 
4164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4165     v4lapl3tau[0] = 0.0e0;
4166 
4167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4168     v4lapl2tau2[0] = 0.0e0;
4169 
4170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4171     v4lapltau3[0] = 0.0e0;
4172 
4173   t23209 = t2221 * t2221;
4174   t23216 = t40 * t1653 * t7162;
4175   t23222 = t40 * t10941 * t7181;
4176   t23232 = my_piecewise3(t18, 0.3e1 * t14 / t7158 / tau[0], 0);
4177   t23242 = 0.30186347851851851852e1 * t1742 * t40 * t116 * t7181 - 0.36e2 * t255 * t1158 * t23209 + 0.45279521777777777777e1 * t5766 * t7260 + 0.15093173925925925926e1 * t1742 * t23216 - 0.40751569600000000000e2 * t15574 * t7256 + 0.16300627840000000000e3 * t11241 * t23222 - 0.25155289876543209876e0 * t7188 * t10 * t691 - 0.6e1 * t255 * t475 * t23232 - 0.36e2 * t5787 * t2306 + 0.324e3 * t15153 * t2298 - 0.2592e4 * t10685 * t7298;
4178   t23250 = t2215 * t2215;
4179   t23261 = t2263 * t2263;
4180   t23269 = t2215 * t2221;
4181   t23271 = t19 * t23209;
4182   t23273 = t678 * t7162;
4183   t23275 = t20 * t23232;
4184   t23278 = (0.2e1 * t19 * t23232 + 0.8e1 * t677 * t7162 + 0.6e1 * t23209 + 0.108e3 * t23269 + 0.54e2 * t23271 + 0.72e2 * t23273 + 0.9e1 * t23275) * t26;
4185   t23280 = t2286 * t2286;
4186   t23287 = -0.24e2 * t19782 * t721 - 0.72e2 * t5787 * t2303 - 0.72e2 * t255 * t19765 * t2221 + 0.9720e4 * t7461 * t8446 * t23250 + 0.1296e4 * t4030 * t7275 - 0.7776e4 * t2379 * t7384 * t23250 - 0.24e2 * t1630 * t7289 - 0.4959e4 / 0.10000e5 * t8485 * t23261 + t23278 * t229 - 0.27e2 / 0.100e3 * t1192 * t23280 + 0.171e3 / 0.250e3 * t11042 * t7135 - 0.27e2 / 0.50e2 * t15705 * t2263;
4187   t23311 = -0.146e3 / 0.135e3 * t704 * t39 * t7162 * t211 + 0.292e3 / 0.45e2 * t704 * t7148 * t677 + 0.146e3 / 0.135e3 * t704 * t705 * t7162 - 0.146e3 / 0.135e3 * t207 * t23232 * t211 + 0.1168e4 / 0.135e3 * t7163 * t677 + 0.292e3 / 0.45e2 * t207 * t23209 + 0.146e3 / 0.135e3 * t210 * t23232;
4188   t23339 = t194 * t446 * t23311 / 0.10e2 - 0.27e2 / 0.50e2 * t2259 * t2264 - 0.48e2 * t1630 * t7233 + 0.2e1 / 0.5e1 * t697 * t7171 + 0.171e3 / 0.250e3 * t697 * t7241 + 0.30186347851851851852e1 * t10535 * t689 * t690 * t7181 + 0.324e3 * t15153 * t2236 - 0.2592e4 * t10685 * t7250 + 0.9720e4 * t7461 * t7501 * t23250 - 0.9e1 / 0.25e2 * t194 * t19984 * t714 - 0.24e2 * t19782 * t685;
4189   t23377 = -0.9720e4 * t7461 * t7462 * t23250 + 0.2592e4 * t10685 * t7198 - 0.324e3 * t15153 * t2251 + 0.48e2 * t1630 * t7181 + 0.24e2 * t1630 * t7185 + 0.72e2 * t5787 * t2224 + 0.36e2 * t5787 * t2226 + 0.72e2 * t255 * t23269 + 0.6e1 * t255 * t23275 - 0.1296e4 * t4030 * t7201 - t23278;
4190   t23385 = t5800 * t2221;
4191   t23391 = t5804 * t2221;
4192   t23397 = t1636 * t7162;
4193   t23406 = -0.1080e4 * t764 * t20 * t23250 - 0.162e3 * t764 * t765 * t23209 + 0.7776e4 * t2379 * t7383 * t23250 + 0.144e3 * t1630 * t7183 + 0.24e2 * t19782 * t680 + 0.36e2 * t255 * t23271 + 0.48e2 * t255 * t23273 + 0.3888e4 * t2379 * t23385 - 0.1944e4 * t764 * t23391 - 0.216e3 * t764 * t23397 - 0.648e3 * t4030 * t7204;
4194   t23407 = t23377 + t23406;
4195   t23416 = -0.36e2 * t5787 * t2246 - 0.25155289876543209876e0 * t7188 * t572 * t691 - 0.27e2 / 0.100e3 * t194 * t1104 * t23280 + 0.2e1 / 0.5e1 * t7214 * t715 + 0.3e1 / 0.5e1 * t2259 * t2287 - 0.4959e4 / 0.10000e5 * t194 * t8329 * t23261 + t23278 * t154 + t23407 * t193 * t215 + 0.216e3 * t1225 * t23397 - 0.3888e4 * t3896 * t23385 - 0.48e2 * t1233 * t23273;
4196   t23447 = -0.40751569600000000000e2 * t4220 * t117 * t7204 + 0.90559043555555555555e1 * t1652 * t117 * t7183 - 0.72e2 * t255 * t19890 * t2221 - 0.36e2 * t255 * t774 * t23209 + 0.513e3 / 0.500e3 * t194 * t5968 * t2286 - 0.7776e4 * t2379 * t8438 * t23250 + 0.162e3 * t764 * t766 * t23209 - 0.72e2 * t5787 * t2243 + 0.1296e4 * t4030 * t7222 - 0.27e2 / 0.25e2 * t697 * t7230 - 0.24e2 * t1630 * t7236;
4197   t23460 = t40 * t10507 * t7181;
4198   t23476 = -0.6e1 * t255 * t256 * t23232 + 0.1944e4 * t1225 * t23391 + 0.648e3 * t5614 * t7204 - 0.144e3 * t5569 * t7183 + 0.90559043555555555556e1 * t5915 * t7132 - 0.81503139200000000000e2 * t4220 * t23460 + 0.45279521777777777777e1 * t19935 * t2240 + 0.15093173925925925926e1 * t1652 * t23216 + 0.45279521777777777777e1 * t5915 * t7260 - 0.40751569600000000000e2 * t15131 * t7256 + 0.16300627840000000000e3 * t10940 * t23222 + 0.1080e4 * t764 * t256 * t23250;
4199   t23498 = 0.513e3 / 0.500e3 * t3053 * t2263 * t2286 - p->cam_beta * (t23339 + t23416 + t23447 + t23476) + t23407 * t215 + 0.90559043555555555556e1 * t5766 * t7132 - 0.81503139200000000000e2 * t4364 * t23460 + 0.45279521777777777777e1 * t20355 * t2240 - 0.9e1 / 0.25e2 * t1192 * t714 * t7170 - 0.27e2 / 0.25e2 * t4070 * t7138 + 0.2e1 / 0.5e1 * t1751 * t7170 + t496 * t23311 / 0.10e2 + 0.2e1 / 0.5e1 * t20230 * t714;
4200   t23527 = 0.3e1 / 0.5e1 * t5759 * t2286 + 0.216e3 * t1563 * t23397 - 0.3888e4 * t3150 * t23385 - 0.144e3 * t5685 * t7183 + 0.1944e4 * t1563 * t23391 + 0.648e3 * t5688 * t7204 - 0.48e2 * t1569 * t23273 + 0.1080e4 * t764 * t475 * t23250 + 0.162e3 * t764 * t1150 * t23209 + 0.90559043555555555555e1 * t4338 * t690 * t7183 - 0.40751569600000000000e2 * t5640 * t690 * t7204 - 0.48e2 * t1630 * t7301;
4201   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4202     v4tau4[0] = -0.3e1 / 0.16e2 * t239 * t240 * (t23242 + t23287 + t23498 + t23527);
4203 
4204 #ifndef XC_DONT_COMPILE_MXC
4205 
4206   if(order < 5) return;
4207 
4208 
4209 #endif
4210 
4211 #endif
4212 
4213 #endif
4214 
4215 #endif
4216 
4217 #endif
4218 
4219 
4220 }
4221 
4222 
4223 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 *))4224 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 *))
4225 {
4226 
4227 #ifndef XC_DONT_COMPILE_EXC
4228   double t2, t3, t4, t5, t6, t7, t8, t9;
4229   double t10, t11, t12, t14, t15, t16, t17, t18;
4230   double t20, t21, t22, t23, t24, t25, t26, t27;
4231   double t28, t29, t30, t31, t32, t33, t34, t35;
4232   double t36, t37, t38, t39, t41, t42, t43, t45;
4233   double t47, t48, t49, t50, t51, t53, t57, t58;
4234   double t60, t61, t62, t65, t66, t67, t68, t69;
4235   double t71, t73, t74, t76, t77, t80, t83, t86;
4236   double t87, t88, t91, t92, t93, t96, t99, t102;
4237   double t104, t105, t106, t107, t110, t111, t112, t113;
4238   double t114, t118, t120, t122, t124, t125, t127, t131;
4239   double t133, t137, t141, t144, t145, t146, t147, t150;
4240   double t152, t153, t155, t157, t162, t164, t165, t167;
4241   double t168, t169, t174, t176, t177, t178, t180, t185;
4242   double t190, t194, t195, t198, t199, t209, t210, t212;
4243   double t213, t216, t217, t228, t231, t234, t236;
4244 
4245 #ifndef XC_DONT_COMPILE_VXC
4246   double t239, t240, t241, t242, t243, t246, t247, t249;
4247   double t251, t252, t255, t256, t257, t258, t261, t262;
4248   double t266, t267, t269, t270, t271, t273, t274, t275;
4249   double t277, t279, t281, t283, t284, t289, t291, t295;
4250   double t296, t299, t302, t303, t304, t307, t310, t313;
4251   double t314, t317, t320, t322, t323, t324, t326, t327;
4252   double t331, t335, t338, t339, t342, t343, t345, t346;
4253   double t349, t351, t352, t353, t358, t360, t366, t368;
4254   double t371, t376, t378, t384, t385, t388, t391, t392;
4255   double t393, t396, t399, t400, t403, t407, t408, t414;
4256   double t415, t423, t427, t431, t434, t439, t443, t444;
4257   double t446, t447, t448, t449, t450, t462, t465, t473;
4258   double t474, t480, t481, t492, t495, t498, t501, t504;
4259   double t510, t511, t513, t515, t516, t518, t521, t524;
4260   double t526, t527, t531, t536, t541, t542, t543, t546;
4261   double t549, t555, t557, t558, t559, t561, t565, t569;
4262   double t572, t573, t576, t579, t584, t586, t588, t592;
4263   double t600, t602, t605, t608, t611, t614, t615, t616;
4264   double t619, t620, t623, t624, t627, t631, t632, t637;
4265   double t638, t640, t642, t644, t649, t650, t656, t662;
4266   double t666, t672, t675, t676, t679, t680, t682, t684;
4267   double t685, t687, t690, t691, t692, t693, t698, t699;
4268   double t704, t708, t713, t714, t720, t723, t730;
4269 
4270 #ifndef XC_DONT_COMPILE_FXC
4271   double t733, t739, t741, t742, t745, t748, t750, t752;
4272   double t753, t755, t760, t761, t762, t763, t764, t765;
4273   double t768, t769, t772, t773, t776, t779, t781, t782;
4274   double t783, t784, t788, t789, t790, t793, t796, t798;
4275   double t800, t802, t804, t805, t806, t813, t814, t818;
4276   double t819, t823, t828, t829, t830, t834, t839, t844;
4277   double t845, t846, t849, t857, t858, t859, t864, t865;
4278   double t874, t875, t876, t879, t882, t884, t885, t887;
4279   double t888, t893, t899, t901, t902, t903, t904, t905;
4280   double t907, t909, t910, t913, t916, t921, t926, t929;
4281   double t930, t933, t937, t938, t941, t944, t947, t955;
4282   double t959, t971, t973, t975, t980, t983, t986, t995;
4283   double t999, t1005, t1011, t1013, t1016, t1019, t1022, t1023;
4284   double t1024, t1027, t1032, t1036, t1043, t1044, t1046, t1057;
4285   double t1059, t1074, t1076, t1078, t1079, t1083, t1087, t1090;
4286   double t1095, t1099, t1100, t1105, t1106, t1107, t1114, t1123;
4287   double t1126, t1134, t1141, t1142, t1145, t1152, t1153, t1156;
4288   double t1157, t1160, t1161, t1164, t1177, t1180, t1183, t1188;
4289   double t1191, t1194, t1199, t1203, t1206, t1210, t1211, t1213;
4290   double t1215, t1217, t1218, t1220, t1226, t1227, t1228, t1231;
4291   double t1234, t1237, t1241, t1242, t1245, t1250, t1253, t1255;
4292   double t1256, t1257, t1262, t1263, t1266, t1274, t1278, t1283;
4293   double t1286, t1289, t1291, t1293, t1294, t1295, t1296, t1297;
4294   double t1299, t1304, t1307, t1314, t1317, t1318, t1320, t1321;
4295   double t1323, t1326, t1327, t1330, t1331, t1334, t1337, t1340;
4296   double t1345, t1346, t1347, t1350, t1356, t1369, t1372, t1375;
4297   double t1381, t1384, t1387, t1391, t1392, t1395, t1398, t1405;
4298   double t1414, t1418, t1422, t1424, t1429, t1431, t1448, t1457;
4299   double t1459, t1464, t1473, t1476, t1479, t1480, t1481, t1484;
4300   double t1491, t1492, t1504, t1505, t1507, t1515, t1516, t1522;
4301   double t1523, t1525, t1527, t1529, t1533, t1536, t1538, t1541;
4302   double t1550, t1551, t1554, t1562, t1565, t1568, t1571, t1575;
4303   double t1576, t1579, t1585, t1595, t1598, t1603, t1608, t1609;
4304   double t1614, t1618, t1619, t1621, t1623, t1625, t1626, t1628;
4305   double t1634, t1635, t1638, t1643, t1646, t1649, t1650, t1651;
4306   double t1653, t1656, t1661, t1662, t1675, t1676, t1678, t1686;
4307   double t1687, t1695, t1702, t1705, t1714, t1715, t1718, t1728;
4308   double t1733, t1736, t1739, t1740, t1743, t1749, t1754, t1759;
4309   double t1760, t1763, t1765, t1766, t1767, t1768, t1770, t1771;
4310   double t1772, t1773, t1779, t1782, t1785, t1788, t1790, t1791;
4311   double t1792, t1797, t1800, t1805, t1810, t1811, t1821, t1822;
4312   double t1824, t1827, t1836, t1837, t1838, t1841, t1844, t1850;
4313   double t1860, t1862, t1863, t1864, t1865, t1866, t1869, t1872;
4314   double t1884, t1887, t1888, t1891, t1898, t1901, t1909, t1911;
4315   double t1913, t1915, t1917, t1919, t1925, t1944, t1946, t1948;
4316   double t1954, t1964, t1967, t1970, t1971, t1972, t1979, t1982;
4317   double t1983, t1986, t1987, t1988, t1989, t1992, t1996, t2002;
4318   double t2003, t2004, t2008, t2009, t2013, t2015, t2018, t2020;
4319   double t2022, t2026, t2027, t2028, t2031, t2038, t2041, t2044;
4320   double t2047, t2049, t2052, t2053, t2062, t2071, t2072, t2075;
4321   double t2079, t2080, t2082, t2084, t2086, t2087, t2094, t2097;
4322   double t2102, t2105, t2109, t2112, t2115, t2128, t2129, t2135;
4323   double t2139, t2140, t2142, t2149, t2151, t2153, t2159, t2163;
4324   double t2164, t2167, t2177, t2182, t2185, t2188, t2198, t2203;
4325   double t2204, t2207, t2210, t2213, t2214, t2216, t2218, t2220;
4326   double t2221, t2225, t2228, t2232, t2235, t2238, t2243, t2250;
4327   double t2251, t2255, t2256, t2260, t2264, t2271, t2278, t2279;
4328   double t2282, t2287, t2290, t2293, t2296, t2299, t2309, t2310;
4329 
4330 #ifndef XC_DONT_COMPILE_KXC
4331   double t2313, t2323, t2324, t2327, t2330, t2331, t2338, t2343;
4332   double t2344, t2347, t2348, t2351, t2352, t2355, t2358, t2359;
4333   double t2362, t2365, t2366, t2369, t2371, t2372, t2373, t2374;
4334   double t2375, t2378, t2383, t2385, t2387, t2388, t2397, t2400;
4335   double t2404, t2413, t2420, t2423, t2425, t2426, t2427, t2432;
4336   double t2434, t2435, t2438, t2441, t2442, t2445, t2447, t2449;
4337   double t2453, t2454, t2460, t2463, t2466, t2472, t2473, t2476;
4338   double t2481, t2504, t2507, t2515, t2522, t2529, t2530, t2533;
4339   double t2537, t2541, t2549, t2550, t2551, t2555, t2559, t2564;
4340   double t2571, t2577, t2581, t2582, t2584, t2595, t2597, t2598;
4341   double t2600, t2601, t2603, t2610, t2611, t2621, t2622, t2625;
4342   double t2628, t2630, t2637, t2640, t2646, t2647, t2654, t2661;
4343   double t2662, t2664, t2666, t2667, t2668, t2669, t2670, t2674;
4344   double t2675, t2678, t2681, t2684, t2689, t2695, t2699, t2702;
4345   double t2705, t2710, t2711, t2714, t2715, t2718, t2721, t2724;
4346   double t2727, t2734, t2747, t2750, t2756, t2759, t2765, t2768;
4347   double t2771, t2776, t2779, t2782, t2787, t2790, t2795, t2820;
4348   double t2845, t2850, t2852, t2853, t2857, t2858, t2861, t2866;
4349   double t2873, t2874, t2877, t2880, t2885, t2888, t2889, t2892;
4350   double t2893, t2896, t2901, t2908, t2911, t2912, t2914, t2917;
4351   double t2920, t2935, t2936, t2939, t2958, t2961, t2968, t2970;
4352   double t2973, t2977, t2982, t2986, t2987, t2989, t2990, t2995;
4353   double t2996, t3000, t3006, t3015, t3016, t3019, t3020, t3023;
4354   double t3026, t3031, t3036, t3037, t3048, t3051, t3056, t3063;
4355   double t3064, t3068, t3074, t3075, t3082, t3084, t3085, t3089;
4356   double t3092, t3094, t3096, t3099, t3103, t3110, t3111, t3124;
4357   double t3127, t3128, t3131, t3134, t3136, t3138, t3140, t3145;
4358   double t3152, t3157, t3160, t3163, t3164, t3167, t3170, t3171;
4359   double t3174, t3177, t3180, t3183, t3184, t3187, t3190, t3191;
4360   double t3192, t3195, t3197, t3200, t3203, t3206, t3207, t3210;
4361   double t3213, t3216, t3222, t3224, t3226, t3228, t3232, t3234;
4362   double t3235, t3239, t3240, t3243, t3251, t3255, t3257, t3258;
4363   double t3261, t3264, t3273, t3276, t3279, t3284, t3288, t3292;
4364   double t3302, t3305, t3339, t3340, t3342, t3347, t3352, t3355;
4365   double t3366, t3379, t3389, t3393, t3397, t3401, t3406, t3428;
4366   double t3431, t3436, t3439, t3443, t3449, t3451, t3453, t3462;
4367   double t3465, t3470, t3494, t3496, t3498, t3500, t3502, t3510;
4368   double t3512, t3515, t3522, t3530, t3542, t3549, t3551, t3554;
4369   double t3561, t3570, t3573, t3576, t3578, t3582, t3583, t3588;
4370   double t3591, t3594, t3597, t3600, t3613, t3639, t3643, t3648;
4371   double t3649, t3652, t3653, t3655, t3656, t3658, t3660, t3661;
4372   double t3664, t3666, t3671, t3672, t3673, t3674, t3681, t3682;
4373   double t3685, t3686, t3699, t3702, t3709, t3727, t3730, t3753;
4374   double t3756, t3761, t3764, t3774, t3777, t3780, t3782, t3793;
4375   double t3794, t3801, t3806, t3809, t3812, t3813, t3818, t3823;
4376   double t3826, t3837, t3840, t3843, t3846, t3847, t3850, t3853;
4377   double t3854, t3857, t3859, t3861, t3862, t3865, t3868, t3872;
4378   double t3875, t3878, t3889, t3892, t3895, t3898, t3899, t3902;
4379   double t3904, t3909, t3910, t3933, t3938, t3939, t3947, t3950;
4380   double t3951, t3961, t3966, t3973, t3976, t3977, t3982, t3985;
4381   double t3988, t3991, t4001, t4026, t4029, t4036, t4037, t4050;
4382   double t4051, t4062, t4065, t4067, t4071, t4074, t4075, t4077;
4383   double t4080, t4083, t4084, t4089, t4091, t4093, t4095, t4097;
4384   double t4099, t4101, t4103, t4104, t4106, t4109, t4110, t4113;
4385   double t4126, t4127, t4130, t4139, t4142, t4148, t4158, t4161;
4386   double t4162, t4167, t4168, t4169, t4170, t4173, t4176, t4188;
4387   double t4189, t4194, t4195, t4198, t4201, t4206, t4209, t4210;
4388   double t4213, t4216, t4219, t4222, t4225, t4262, t4263, t4265;
4389   double t4268, t4272, t4275, t4278, t4287, t4294, t4304, t4307;
4390   double t4310, t4313, t4316, t4342, t4349, t4354, t4357, t4360;
4391   double t4363, t4364, t4367, t4370, t4373, t4376, t4377, t4380;
4392   double t4383, t4388, t4395, t4402, t4403, t4404, t4405, t4406;
4393   double t4411, t4414, t4415, t4416, t4419, t4420, t4421, t4424;
4394   double t4427, t4430, t4433, t4440, t4442, t4443, t4444, t4446;
4395   double t4448, t4449, t4450, t4451, t4454, t4456, t4461, t4462;
4396   double t4465, t4468, t4471, t4472, t4475, t4480, t4483, t4488;
4397   double t4491, t4494, t4496, t4499, t4502, t4503, t4506, t4509;
4398   double t4510, t4513, t4516, t4521, t4522, t4523, t4524, t4525;
4399   double t4526, t4527, t4529, t4531, t4533, t4535, t4538, t4541;
4400   double t4544, t4546, t4547, t4548, t4549, t4550, t4555, t4556;
4401   double t4557, t4566, t4571, t4574, t4579, t4580, t4581, t4582;
4402   double t4589, t4592, t4593, t4594, t4597, t4604, t4607, t4612;
4403   double t4613, t4614, t4615, t4616, t4617, t4620, t4625, t4639;
4404   double t4643, t4648, t4654, t4655, t4656, t4657, t4661, t4664;
4405   double t4667, t4668, t4671, t4676, t4689, t4691, t4693, t4695;
4406   double t4696, t4697, t4699, t4700, t4701, t4702, t4703, t4704;
4407   double t4705, t4709, t4710, t4714, t4723, t4726, t4727, t4728;
4408   double t4730, t4732, t4734, t4739, t4740, t4743, t4744, t4751;
4409   double t4754, t4755, t4758, t4763, t4764, t4773, t4774, t4775;
4410   double t4778, t4805, t4813, t4833, t4858, t4859, t4877, t4879;
4411   double t4888, t4896, t4906, t4911, t4916, t4924, t4927, t4934;
4412   double t4936, t4940, t4941, t4944, t4947, t4962, t4965, t4974;
4413   double t4976, t4989, t5004, t5018, t5042, t5045, t5050, t5053;
4414   double t5063, t5066, t5069, t5071, t5074, t5077, t5086, t5089;
4415   double t5100, t5103, t5105, t5107, t5108, t5111, t5113, t5114;
4416   double t5117, t5118, t5131, t5134, t5142, t5147, t5182, t5183;
4417   double t5184, t5185, t5186, t5187, t5188, t5189, t5191, t5197;
4418   double t5201, t5216, t5219, t5224, t5227, t5234, t5243, t5245;
4419   double t5249, t5250, t5252, t5254, t5256, t5258, t5260, t5262;
4420   double t5263, t5270, t5277, t5288, t5290, t5292, t5294, t5297;
4421   double t5299, t5302, t5314, t5317, t5323, t5328, t5349, t5350;
4422   double t5353, t5356, t5359, t5372, t5373, t5380, t5381, t5383;
4423   double t5384, t5387, t5390, t5393, t5396, t5397, t5404, t5406;
4424   double t5412, t5427, t5432, t5433, t5436, t5443, t5458, t5460;
4425   double t5464, t5467, t5470, t5471, t5480, t5490, t5493, t5496;
4426   double t5519, t5526, t5531, t5532, t5539, t5544, t5545, t5558;
4427   double t5561, t5565, t5568, t5577, t5587, t5590, t5595, t5598;
4428   double t5617, t5635, t5638, t5641, t5646, t5655, t5658, t5659;
4429   double t5662, t5665, t5670, t5673, t5698, t5701, t5706, t5713;
4430   double t5716, t5717, t5720, t5723, t5724, t5727, t5730, t5733;
4431   double t5734, t5739, t5743, t5744, t5746, t5750, t5752, t5753;
4432   double t5754, t5787, t5789, t5790, t5795, t5802, t5816, t5821;
4433   double t5822, t5835, t5846, t5849, t5862, t5863, t5868, t5871;
4434   double t5874, t5877, t5879, t5884, t5887, t5888, t5899, t5902;
4435   double t5906, t5909, t5912, t5924, t5931, t5936, t5939, t5941;
4436   double t5955, t5958, t5963, t5966, t5969, t5971, t5974, t5979;
4437   double t5994, t6007, t6010, t6015, t6018, t6021, t6024, t6027;
4438   double t6028, t6033, t6036, t6041, t6044, t6045, t6051, t6052;
4439   double t6053, t6058, t6064, t6068, t6075, t6076, t6081, t6084;
4440   double t6086, t6096, t6097, t6099, t6103, t6104, t6109, t6119;
4441   double t6120, t6123, t6126, t6132, t6145, t6146, t6148, t6150;
4442   double t6151, t6152, t6153, t6154, t6165, t6168, t6175, t6188;
4443   double t6189, t6192, t6193, t6196, t6199, t6202, t6205, t6210;
4444   double t6247, t6253, t6273, t6277, t6279, t6286, t6288, t6292;
4445   double t6306, t6317, t6318, t6322, t6323, t6328, t6341, t6344;
4446   double t6345, t6347, t6348, t6350, t6351, t6352, t6353, t6357;
4447   double t6359, t6360, t6362, t6365, t6366, t6367, t6368, t6369;
4448   double t6370, t6379, t6380, t6381, t6384, t6387, t6388, t6389;
4449   double t6392, t6393, t6394, t6395, t6397, t6398, t6405, t6408;
4450   double t6409, t6412, t6413, t6414, t6415, t6420, t6425, t6428;
4451   double t6429, t6430, t6431, t6436, t6439, t6442, t6445, t6448;
4452   double t6451, t6456, t6457, t6460, t6464, t6465, t6466, t6467;
4453   double t6472, t6475, t6494, t6497, t6503, t6504, t6505, t6506;
4454   double t6507, t6509, t6514, t6515, t6530, t6531, t6532, t6534;
4455   double t6536, t6538, t6539, t6540, t6541, t6548, t6549, t6558;
4456   double t6561, t6564, t6567, t6568, t6569, t6574, t6575, t6576;
4457   double t6578, t6579, t6580, t6585, t6590, t6593, t6595, t6596;
4458   double t6601, t6602, t6603, t6605, t6608, t6612, t6613, t6615;
4459   double t6617, t6622, t6623, t6624, t6625, t6628, t6633, t6634;
4460   double t6637, t6639, t6642, t6645, t6648, t6661, t6662, t6665;
4461   double t6670, t6675, t6680, t6681, t6682, t6695, t6698, t6702;
4462   double t6707, t6711, t6714, t6716, t6719, t6722, t6729, t6730;
4463   double t6731, t6733, t6741, t6748, t6749, t6760, t6761, t6768;
4464   double t6769, t6776, t6786, t6793, t6794, t6801, t6802, t6803;
4465   double t6810, t6813, t6820, t6831, t6835, t6836, t6838, t6840;
4466   double t6842, t6844, t6846, t6847, t6859, t6862, t6867, t6872;
4467   double t6876, t6897, t6900, t6903, t6914, t6921, t6922, t6932;
4468   double t6942, t6944, t6946, t6952, t6957, t6961, t6962, t6970;
4469   double t6973, t6976, t6979, t6994, t7001, t7004, t7007, t7010;
4470   double t7015, t7022, t7025, t7026, t7032, t7037, t7045, t7054;
4471   double t7058, t7072, t7088, t7091, t7101, t7106, t7109, t7112;
4472   double t7117, t7118, t7121, t7124, t7127, t7132, t7135, t7138;
4473   double t7141, t7142, t7145, t7146, t7151, t7158, t7162, t7164;
4474   double t7165, t7174, t7177, t7188, t7190, t7193, t7200, t7210;
4475   double t7214, t7217, t7221, t7226, t7229, t7230, t7237, t7240;
4476   double t7243, t7248, t7258, t7265, t7266, t7274, t7276, t7279;
4477   double t7289, t7291;
4478 
4479 #ifndef XC_DONT_COMPILE_LXC
4480   double t7311, t7317, t7322, t7326, t7331, t7355, t7367, t7375;
4481   double t7376, t7382, t7384, t7387, t7390, t7392, t7397, t7398;
4482   double t7399, t7400, t7404, t7408, t7437, t7447, t7459, t7478;
4483   double t7482, t7484, t7490, t7492, t7527, t7529, t7537, t7544;
4484   double t7545, t7549, t7557, t7561, t7562, t7591, t7613, t7614;
4485   double t7626, t7674, t7705, t7714, t7716, t7717, t7718, t7728;
4486   double t7743, t7748, t7749, t7789, t7791, t7800, t7804, t7811;
4487   double t7823, t7842, t7847, t7848, t7857, t7858, t7863, t7871;
4488   double t7872, t7877, t7878, t7879, t7893, t7896, t7898, t7899;
4489   double t7902, t7905, t7921, t7925, t7926, t7934, t7941, t7944;
4490   double t7948, t7949, t7952, t7955, t7958, t7961, t7966, t8013;
4491   double t8015, t8020, t8023, t8025, t8027, t8029, t8041, t8058;
4492   double t8063, t8068, t8069, t8072, t8074, t8084, t8087, t8111;
4493   double t8122, t8142, t8143, t8159, t8168, t8171, t8190, t8192;
4494   double t8196, t8198, t8200, t8202, t8236, t8249, t8261, t8268;
4495   double t8271, t8274, t8277, t8280, t8289, t8292, t8295, t8299;
4496   double t8301, t8305, t8306, t8307, t8308, t8334, t8342, t8345;
4497   double t8350, t8357, t8367, t8381, t8390, t8394, t8400, t8420;
4498   double t8425, t8429, t8433, t8452, t8458, t8470, t8488, t8491;
4499   double t8496, t8505, t8507, t8516, t8519, t8524, t8538, t8544;
4500   double t8554, t8566, t8584, t8591, t8594, t8611, t8618, t8621;
4501   double t8624, t8640, t8643, t8669, t8673, t8677, t8680, t8685;
4502   double t8686, t8689, t8692, t8695, t8708, t8711, t8714, t8719;
4503   double t8722, t8744, t8749, t8750, t8753, t8756, t8784, t8804;
4504   double t8819, t8848, t8860, t8893, t8894, t8902, t8933, t8942;
4505   double t8953, t8956, t8976, t8982, t9015, t9019, t9023, t9039;
4506   double t9058, t9070, t9071, t9076, t9081, t9086, t9091, t9094;
4507   double t9102, t9113, t9117, t9123, t9131, t9163, t9170, t9205;
4508   double t9208, t9211, t9216, t9220, t9221, t9222, t9271, t9272;
4509   double t9289, t9302, t9307, t9308, t9314, t9323, t9331, t9341;
4510   double t9348, t9355, t9368, t9375, t9395, t9405, t9411, t9417;
4511   double t9420, t9423, t9425, t9427, t9429, t9431, t9433, t9435;
4512   double t9437, t9439, t9441, t9455, t9459, t9462, t9492, t9510;
4513   double t9519, t9524, t9535, t9544, t9547, t9549, t9573, t9585;
4514   double t9588, t9591, t9596, t9598, t9600, t9602, t9613, t9616;
4515   double t9619, t9624, t9627, t9628, t9631, t9634, t9657, t9689;
4516   double t9690, t9692, t9693, t9694, t9696, t9703, t9704, t9705;
4517   double t9706, t9711, t9714, t9717, t9720, t9723, t9728, t9739;
4518   double t9743, t9745, t9747, t9748, t9751, t9753, t9757, t9758;
4519   double t9759, t9761, t9763, t9772, t9800, t9808, t9809, t9825;
4520   double t9837, t9838, t9850, t9869, t9906, t9917, t9965, t9983;
4521   double t10001, t10027, t10033, t10055, t10066, t10079, t10082, t10085;
4522   double t10088, t10091, t10104, t10119, t10127, t10166, t10193, t10194;
4523   double t10197, t10205, t10208, t10212, t10213, t10216, t10219, t10222;
4524   double t10229, t10232, t10245, t10278, t10285, t10309, t10313, t10318;
4525   double t10329, t10332, t10342, t10343, t10355, t10362, t10379, t10394;
4526   double t10397, t10400, t10408, t10409, t10412, t10415, t10416, t10419;
4527   double t10422, t10423, t10432, t10435, t10437, t10468, t10472, t10498;
4528   double t10528, t10531, t10548, t10551, t10552, t10555, t10558, t10591;
4529   double t10596, t10619, t10620, t10638, t10644, t10647, t10650, t10657;
4530   double t10684, t10699, t10700, t10719, t10720, t10742, t10743, t10744;
4531   double t10784, t10788, t10798, t10802, t10805, t10810, t10817, t10838;
4532   double t10853, t10856, t10859, t10860, t10864, t10868, t10872, t10875;
4533   double t10886, t10890, t10893, t10895, t10916, t10922, t10933, t10940;
4534   double t10955, t10966, t10969, t10972, t10975, t10983, t10986, t10989;
4535   double t10990, t10995, t11000, t11003, t11010, t11014, t11042, t11047;
4536   double t11052, t11063, t11100, t11103, t11110, t11120, t11126, t11130;
4537   double t11134, t11143, t11177, t11179, t11211, t11247, t11265, t11272;
4538   double t11275, t11279, t11282, t11286, t11293, t11298, t11301, t11305;
4539   double t11308, t11311, t11315, t11368, t11371, t11378, t11381, t11386;
4540   double t11393, t11409, t11422, t11425, t11434, t11450, t11456, t11477;
4541   double t11486, t11489, t11497, t11502, t11511, t11535, t11547, t11554;
4542   double t11563, t11586, t11594, t11601, t11620, t11624, t11631, t11634;
4543   double t11643, t11660, t11663, t11666, t11670, t11671, t11688, t11696;
4544   double t11712, t11723, t11724, t11741, t11750, t11753, t11756, t11757;
4545   double t11761, t11769, t11772, t11773, t11778, t11781, t11790, t11791;
4546   double t11793, t11794, t11796, t11798, t11802, t11809, t11811, t11821;
4547   double t11840, t11855, t11858, t11861, t11864, t11867, t11878, t11905;
4548   double t11909, t11942, t11962, t11965, t11967, t11968, t11970, t11972;
4549   double t11974, t11976, t11978, t11981, t11988, t12026, t12062, t12069;
4550   double t12090, t12101, t12116, t12127, t12140, t12156, t12172, t12179;
4551   double t12214, t12217, t12219, t12223, t12224, t12226, t12229, t12231;
4552   double t12234, t12236, t12238, t12248, t12251, t12259, t12262, t12281;
4553   double t12284, t12287, t12313, t12343, t12377, t12386, t12397, t12417;
4554   double t12421, t12426, t12430, t12440, t12441, t12442, t12443, t12444;
4555   double t12445, t12446, t12447, t12448, t12466, t12505, t12524, t12529;
4556   double t12553, t12555, t12558, t12563, t12566, t12573, t12584, t12590;
4557   double t12593, t12598, t12642, t12646, t12661, t12664, t12672, t12681;
4558   double t12686, t12689, t12717, t12735, t12773, t12807, t12814, t12843;
4559   double t12862, t12888, t12915, t12917, t12927, t12954, t12984, t12985;
4560   double t12989, t12995, t12997, t13003, t13038, t13056, t13076, t13086;
4561   double t13090, t13113, t13116, t13117, t13120, t13123, t13128, t13131;
4562   double t13146, t13157, t13163, t13168, t13185, t13197, t13221, t13222;
4563   double t13225, t13233, t13245, t13270, t13293, t13306, t13309, t13350;
4564   double t13353, t13355, t13357, t13359, t13361, t13363, t13365, t13367;
4565   double t13369, t13371, t13373, t13374, t13380, t13381, t13392, t13395;
4566   double t13398, t13401, t13404, t13415, t13427, t13435, t13440, t13447;
4567   double t13456, t13510, t13553, t13554, t13567, t13576, t13579, t13582;
4568   double t13599, t13628, t13656, t13657, t13666, t13669, t13672, t13687;
4569   double t13688, t13691, t13699, t13700, t13703, t13706, t13707, t13713;
4570   double t13722, t13725, t13730, t13733, t13758, t13786, t13797, t13798;
4571   double t13799, t13801, t13805, t13806, t13818, t13821, t13824, t13827;
4572   double t13830, t13833, t13837, t13842, t13852, t13855, t13858, t13867;
4573   double t13875, t13883, t13887, t13900, t13908, t13913, t13915, t13966;
4574   double t14001, t14007, t14008, t14011, t14018, t14043, t14076, t14078;
4575   double t14123, t14127, t14144, t14168, t14170, t14173, t14174, t14188;
4576   double t14192, t14203, t14214, t14217, t14218, t14225, t14232, t14241;
4577   double t14248, t14261, t14275, t14299, t14305, t14308, t14335, t14340;
4578   double t14342, t14363, t14366, t14381, t14390, t14393, t14420, t14456;
4579   double t14477, t14480, t14483, t14490, t14493, t14496, t14499, t14535;
4580   double t14552, t14563, t14572, t14610, t14646, t14648, t14649, t14662;
4581   double t14665, t14672, t14683, t14688, t14691, t14724, t14730, t14759;
4582   double t14789, t14810, t14825, t14840, t14855, t14857, t14884, t14895;
4583   double t14898, t14901, t14909, t14923, t14951, t14966, t14968, t14969;
4584   double t14988, t14999, t15002, t15005, t15008, t15011, t15012, t15017;
4585   double t15056, t15068, t15075, t15078, t15081, t15082, t15085, t15088;
4586   double t15089, t15096, t15103, t15106, t15107, t15122, t15134, t15138;
4587   double t15147, t15153, t15162, t15175, t15184, t15201, t15227, t15235;
4588   double t15255, t15256, t15273, t15275, t15289, t15292, t15302, t15305;
4589   double t15308, t15311, t15314, t15323, t15327, t15330, t15333, t15357;
4590   double t15387, t15415, t15416, t15435, t15438, t15441, t15446, t15459;
4591   double t15486, t15522, t15542, t15547, t15557, t15564, t15601, t15637;
4592   double t15651, t15654, t15673, t15684, t15692, t15695, t15698, t15703;
4593   double t15705, t15707, t15710, t15717, t15720, t15733, t15745, t15789;
4594   double t15790, t15816, t15819, t15823, t15827, t15830, t15835, t15836;
4595   double t15841, t15865, t15900, t15919, t15932, t15977, t15980, t15999;
4596   double t16002, t16003, t16006, t16011, t16012, t16015, t16018, t16019;
4597   double t16020, t16049, t16052, t16055, t16069, t16070, t16071, t16072;
4598   double t16073, t16074, t16078, t16079, t16080, t16083, t16084, t16086;
4599   double t16089, t16090, t16091, t16092, t16094, t16099, t16109, t16111;
4600   double t16113, t16115, t16117, t16119, t16122, t16124, t16127, t16129;
4601   double t16134, t16149, t16166, t16176, t16195, t16198, t16226, t16243;
4602   double t16253, t16262, t16265, t16280, t16309, t16317, t16337, t16373;
4603   double t16382, t16403, t16419, t16426, t16442, t16443, t16446, t16454;
4604   double t16456, t16476, t16487, t16501, t16508, t16542, t16547, t16575;
4605   double t16602, t16609, t16634, t16659, t16685, t16713, t16737, t16760;
4606   double t16786, t16795, t16825, t16853, t16868, t16876, t16877, t16880;
4607   double t16899, t16902, t16911, t16920, t16945, t16951, t16965, t16968;
4608   double t16971, t16974, t16977, t16980, t16985, t17010, t17025, t17039;
4609   double t17056, t17057, t17060, t17082, t17101, t17112, t17132, t17161;
4610   double t17191, t17194, t17197, t17202, t17207, t17210, t17215, t17218;
4611   double t17223, t17226, t17229, t17234, t17235, t17238, t17271, t17287;
4612   double t17306, t17325, t17328, t17348, t17349, t17350, t17352, t17360;
4613   double t17391, t17392, t17393, t17397, t17406, t17435, t17438, t17442;
4614   double t17445, t17447, t17450, t17453, t17460, t17467, t17469, t17477;
4615   double t17481, t17485, t17488, t17491, t17504, t17523, t17552, t17563;
4616   double t17566, t17586, t17609, t17620, t17637, t17644, t17659, t17663;
4617   double t17664, t17669, t17696, t17713, t17719, t17722, t17731, t17734;
4618   double t17737, t17740, t17751, t17773, t17776, t17784, t17787, t17806;
4619   double t17809, t17812, t17815, t17832, t17833, t17849, t17858, t17875;
4620   double t17882, t17885, t17887, t17903, t17908, t17921, t17924, t17953;
4621   double t17985, t17986, t18002, t18011, t18039, t18066, t18098, t18125;
4622   double t18128, t18130, t18133, t18136, t18158, t18186, t18218, t18246;
4623   double t18266, t18267, t18277, t18304, t18315, t18334, t18362, t18391;
4624   double t18414, t18439, t18448, t18457, t18465, t18468, t18475, t18481;
4625   double t18488, t18491, t18499, t18503, t18508, t18511, t18514, t18517;
4626   double t18520, t18523, t18533, t18536, t18539, t18548, t18571, t18573;
4627   double t18575, t18577, t18579, t18581, t18583, t18585, t18587, t18589;
4628   double t18591, t18592, t18605, t18606, t18609, t18612, t18615, t18618;
4629   double t18621, t18637, t18641, t18644, t18645, t18649, t18653, t18674;
4630   double t18701, t18702, t18705, t18709, t18712, t18735, t18740, t18760;
4631   double t18767, t18792, t18795, t18798, t18825, t18837, t18840, t18857;
4632   double t18906, t18909, t18912, t18919, t18939, t18971, t18984, t18999;
4633   double t19004, t19009, t19012, t19036, t19071, t19106, t19116, t19143;
4634   double t19164, t19179, t19181, t19212, t19240, t19272, t19277, t19283;
4635   double t19309, t19343, t19376, t19404, t19435, t19464, t19466, t19496;
4636   double t19565, t19590, t19591, t19599, t19608, t19634, t19659, t19669;
4637   double t19672, t19673, t19680, t19683, t19686, t19689, t19690, t19695;
4638   double t19696, t19699, t19702, t19703, t19706, t19711, t19714, t19721;
4639   double t19724, t19728, t19731, t19734, t19738, t19741, t19743, t19746;
4640   double t19762, t19768, t19795, t19810, t19827, t19840, t19846, t19849;
4641   double t19893, t19930, t19935, t19936, t19945, t19948, t19956, t20003;
4642   double t20021, t20026, t20053, t20085, t20088, t20090, t20120, t20122;
4643   double t20125, t20145, t20159, t20167, t20197, t20210, t20226, t20246;
4644   double t20256, t20268, t20283, t20315, t20326, t20331, t20342, t20346;
4645   double t20357, t20363, t20369, t20372, t20376, t20387, t20389, t20390;
4646   double t20408, t20435, t20450, t20465, t20471, t20474, t20476, t20478;
4647   double t20479, t20480, t20481, t20482, t20490, t20491, t20492, t20493;
4648   double t20494, t20495, t20499, t20513, t20516, t20519, t20521, t20523;
4649   double t20526, t20530, t20535, t20550, t20561, t20563, t20566, t20567;
4650   double t20586, t20587, t20645, t20656, t20665, t20666, t20669, t20671;
4651   double t20696, t20742, t20792, t20812, t20837, t20870, t20900, t20930;
4652   double t20944, t20951, t20981, t21003, t21023, t21053, t21088, t21117;
4653   double t21164, t21190, t21195, t21224, t21228, t21231, t21245, t21250;
4654   double t21253, t21258, t21277, t21280, t21289, t21304, t21307, t21310;
4655   double t21314, t21318, t21322, t21327, t21339, t21346, t21349, t21366;
4656   double t21372, t21376, t21405, t21406, t21416, t21419, t21424, t21436;
4657   double t21485, t21518, t21553, t21567, t21600, t21631, t21659, t21692;
4658   double t21721, t21728, t21756, t21774, t21777, t21780, t21783, t21793;
4659   double t21796, t21799, t21800, t21803, t21816, t21820, t21831, t21838;
4660   double t21872, t21885, t21888, t21897, t21909, t21916, t21920, t21923;
4661   double t21926, t21929, t21932, t21936, t21939, t21974, t21993, t22000;
4662   double t22003, t22006, t22010, t22011, t22032, t22073, t22109, t22155;
4663   double t22180, t22206, t22229, t22231, t22244, t22249, t22284, t22292;
4664   double t22337, t22354, t22374, t22391, t22405, t22447, t22485, t22514;
4665   double t22544, t22547, t22550, t22571, t22578, t22579, t22594, t22599;
4666   double t22602, t22605, t22608, t22611, t22616, t22619, t22624, t22627;
4667   double t22630, t22633, t22636, t22660, t22661, t22662, t22677, t22680;
4668   double t22683, t22686, t22690, t22693, t22696, t22697, t22724, t22753;
4669   double t22803, t22824, t22851, t22862, t22865, t22880, t22890, t22908;
4670   double t22936, t22962, t22990, t23015, t23038, t23065, t23091, t23120;
4671   double t23132, t23137, t23140, t23143, t23149, t23155, t23159, t23196;
4672   double t23209, t23239, t23254, t23260, t23263, t23290, t23303, t23305;
4673   double t23308, t23311, t23327, t23328, t23336, t23356, t23360, t23370;
4674   double t23386, t23395, t23420, t23448;
4675 #endif
4676 
4677 #endif
4678 
4679 #endif
4680 
4681 #endif
4682 
4683 #endif
4684 
4685 
4686 
4687   t2 = M_CBRT3;
4688   t3 = 0.1e1 / M_PI;
4689   t4 = POW_1_3(t3);
4690   t5 = t2 * t4;
4691   t6 = M_CBRT4;
4692   t7 = t6 * t6;
4693   t8 = POW_1_3(rho[0]);
4694   t9 = t7 * t8;
4695   t10 = 0.1e1 / rho[0];
4696   t11 = sigma[0] * t10;
4697   t12 = 0.1e1 / tau[0];
4698   t14 = t11 * t12 / 0.8e1;
4699   t15 = t14 < 0.10e1;
4700   t16 = my_piecewise3(t15, t14, 0.10e1);
4701   t17 = t16 * t16;
4702   t18 = t17 * t16;
4703   t20 = t17 + 0.3e1 * t18;
4704   t21 = 0.1e1 + t18;
4705   t22 = t21 * t21;
4706   t23 = 0.1e1 / t22;
4707   t24 = t20 * t23;
4708   t25 = POW_1_3(0.9e1);
4709   t26 = t25 * t25;
4710   t27 = t4 * t4;
4711   t28 = t26 * t27;
4712   t29 = t28 * p->cam_omega;
4713   t30 = 0.1e1 / t8;
4714   t31 = t2 * t30;
4715   t32 = M_CBRT6;
4716   t33 = M_PI * M_PI;
4717   t34 = POW_1_3(t33);
4718   t35 = t34 * t34;
4719   t36 = 0.1e1 / t35;
4720   t37 = t32 * t36;
4721   t38 = rho[0] * rho[0];
4722   t39 = t8 * t8;
4723   t41 = 0.1e1 / t39 / t38;
4724   t42 = sigma[0] * t41;
4725   t43 = t37 * t42;
4726   t45 = t32 * t32;
4727   t47 = 0.1e1 / t34 / t33;
4728   t48 = t45 * t47;
4729   t49 = sigma[0] * sigma[0];
4730   t50 = t38 * t38;
4731   t51 = t50 * rho[0];
4732   t53 = 0.1e1 / t8 / t51;
4733   t57 = 0.1e1 + 0.15045488888888888889e0 * t43 + 0.26899490462262948000e-2 * t48 * t49 * t53;
4734   t58 = pow(t57, 0.1e1 / 0.10e2);
4735   t60 = M_CBRT2;
4736   t61 = t60 * t60;
4737   t62 = 0.1e1 / t58 * t61;
4738   t65 = t29 * t31 * t62 / 0.36e2;
4739   t66 = t65 < 0.1e-9;
4740   t67 = my_piecewise3(t66, 0.1e-9, t65);
4741   t68 = sqrt(M_PI);
4742   t69 = 0.1e1 / t67;
4743   t71 = erf(t69 / 0.2e1);
4744   t73 = t67 * t67;
4745   t74 = 0.1e1 / t73;
4746   t76 = exp(-t74 / 0.4e1);
4747   t77 = t76 - 0.1e1;
4748   t80 = t76 - 0.3e1 / 0.2e1 - 0.2e1 * t73 * t77;
4749   t83 = 0.2e1 * t67 * t80 + t68 * t71;
4750   t86 = 0.1e1 - 0.8e1 / 0.3e1 * t67 * t83;
4751   t87 = pow(t57, 0.1e1 / 0.5e1);
4752   t88 = 0.1e1 / t87;
4753   t91 = t73 * t73;
4754   t92 = 0.64e2 * t91;
4755   t93 = 0.20e2 * t73 - t92;
4756   t96 = t68 * t67;
4757   t99 = 0.10e2 * t96 * t71 + t93 * t76 - 0.36e2 * t73 + t92 - 0.3e1;
4758   t102 = 0.24e2 * t73 * t99 + 0.1e1;
4759   t104 = 0.1e1 / t39 / rho[0];
4760   t105 = tau[0] * t104;
4761   t106 = 0.14554132000000000000e0 * t105;
4762   t107 = t45 * t35;
4763   t110 = -t106 + 0.4366239600000000000e-1 * t107 + 0.42296278333333333333e-1 * t42;
4764   t111 = t102 * t110;
4765   t112 = t87 * t87;
4766   t113 = 0.1e1 / t112;
4767   t114 = t37 * t113;
4768   t118 = t73 * t67;
4769   t120 = t91 * t67;
4770   t122 = t91 * t118;
4771   t124 = t91 * t91;
4772   t125 = t124 * t67;
4773   t127 = -0.8e1 * t67 + 0.256e3 * t118 - 0.576e3 * t120 + 0.3849e4 * t122 - 0.122880e6 * t125;
4774   t131 = t91 * t73;
4775   t133 = -0.35e2 + 0.224e3 * t73 - 0.1440e4 * t91 + 0.5120e4 * t131;
4776   t137 = -0.2e1 + 0.60e2 * t73;
4777   t141 = 0.2e1 * t68 * t137 * t71 + 0.24e2 * t118 * t133 + t127 * t76;
4778   t144 = 0.1e1 + 0.8e1 / 0.7e1 * t67 * t141;
4779   t145 = t144 * t32;
4780   t146 = t145 * t36;
4781   t147 = t42 * t113;
4782   t150 = t86 * t88 + 0.35e2 / 0.81e2 * t111 * t114 + 0.26329605555555555556e-1 * t146 * t147;
4783   t152 = 0.1e1 - t24;
4784   t153 = 0.1e1 / t27;
4785   t155 = 0.1e1 / p->cam_omega;
4786   t157 = t2 * t2;
4787   t162 = erf(t25 * t153 * t155 * t157 * t8 * t60 / 0.3e1);
4788   t164 = t4 * t3;
4789   t165 = 0.1e1 / t164;
4790   t167 = p->cam_omega * p->cam_omega;
4791   t168 = 0.1e1 / t167;
4792   t169 = t26 * t165 * t168;
4793   t174 = exp(-t169 * t2 * t39 * t61 / 0.3e1);
4794   t176 = t25 * t164 * t167;
4795   t177 = 0.1e1 / t39;
4796   t178 = t157 * t177;
4797   t180 = t60 * (t174 - 0.1e1);
4798   t185 = t61 * (t174 - 0.3e1 / 0.2e1 - t176 * t178 * t180 / 0.36e2);
4799   t190 = t61 * (t68 * t162 + t29 * t31 * t185 / 0.18e2);
4800   t194 = 0.1e1 - 0.2e1 / 0.27e2 * t29 * t31 * t190;
4801   t195 = t152 * t194;
4802   t198 = (0.10e2 / 0.81e2 + 0.25e2 / 0.8748e4 * t43) * t32;
4803   t199 = t36 * sigma[0];
4804   t209 = (t105 - t42 / 0.8e1) * t32 * t36 / 0.4e1 - 0.9e1 / 0.20e2 + t43 / 0.36e2;
4805   t210 = t209 * t209;
4806   t212 = t209 * t16;
4807   t213 = 0.1e1 - t16;
4808   t216 = 0.1e1 + 0.5e1 / 0.12e2 * t198 * t199 * t41 + 0.292e3 / 0.405e3 * t210 - 0.146e3 / 0.135e3 * t212 * t213;
4809   t217 = pow(t216, 0.1e1 / 0.10e2);
4810   t228 = 0.1e1 + 0.63943327777777777778e-1 * t43 - 0.5e1 / 0.9e1 * (t106 + 0.25633760400000000000e0 * t107 + 0.11867481666666666667e-1 * t42) * t32 * t36;
4811   t231 = t88 + 0.7e1 / 0.9e1 * t228 * t113;
4812   t234 = -p->cam_beta * (t24 * t150 + t195 * t217) + t24 * t231 + t152 * t217;
4813   t236 = t5 * t9 * t234;
4814   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
4815     zk[0] = -0.3e1 / 0.8e1 * t236;
4816 
4817 #ifndef XC_DONT_COMPILE_VXC
4818 
4819   if(order < 1) return;
4820 
4821 
4822   t239 = t8 * rho[0];
4823   t240 = t239 * t2;
4824   t241 = t4 * t7;
4825   t242 = 0.1e1 / t38;
4826   t243 = sigma[0] * t242;
4827   t246 = my_piecewise3(t15, -t243 * t12 / 0.8e1, 0);
4828   t247 = t16 * t246;
4829   t249 = t17 * t246;
4830   t251 = 0.2e1 * t247 + 0.9e1 * t249;
4831   t252 = t251 * t23;
4832   t255 = 0.1e1 / t22 / t21;
4833   t256 = t20 * t255;
4834   t257 = t150 * t17;
4835   t258 = t257 * t246;
4836   t261 = 0.1e1 / t239;
4837   t262 = t2 * t261;
4838   t266 = p->cam_omega * t2;
4839   t267 = t28 * t266;
4840   t269 = 0.1e1 / t58 / t57;
4841   t270 = t30 * t269;
4842   t271 = t38 * rho[0];
4843   t273 = 0.1e1 / t39 / t271;
4844   t274 = sigma[0] * t273;
4845   t275 = t37 * t274;
4846   t277 = t50 * t38;
4847   t279 = 0.1e1 / t8 / t277;
4848   t281 = t48 * t49 * t279;
4849   t283 = -0.40121303703703703704e0 * t275 - 0.14346394913206905600e-1 * t281;
4850   t284 = t61 * t283;
4851   t289 = my_piecewise3(t66, 0, -t29 * t262 * t62 / 0.108e3 - t267 * t270 * t284 / 0.360e3);
4852   t291 = t76 * t74;
4853   t295 = 0.1e1 / t118;
4854   t296 = t295 * t289;
4855   t299 = t67 * t77;
4856   t302 = t69 * t289;
4857   t303 = t302 * t76;
4858   t304 = t296 * t76 / 0.2e1 - 0.4e1 * t299 * t289 - t303;
4859   t307 = -t291 * t289 + 0.2e1 * t289 * t80 + 0.2e1 * t67 * t304;
4860   t310 = -0.8e1 / 0.3e1 * t289 * t83 - 0.8e1 / 0.3e1 * t67 * t307;
4861   t313 = 0.1e1 / t87 / t57;
4862   t314 = t86 * t313;
4863   t317 = t67 * t99;
4864   t320 = t67 * t289;
4865   t322 = t118 * t289;
4866   t323 = 0.256e3 * t322;
4867   t324 = 0.40e2 * t320 - t323;
4868   t326 = t93 * t295;
4869   t327 = t289 * t76;
4870   t331 = t68 * t289;
4871   t335 = t324 * t76 + t326 * t327 / 0.2e1 - 0.72e2 * t320 + t323 + 0.10e2 * t331 * t71 - 0.10e2 * t303;
4872   t338 = 0.48e2 * t317 * t289 + 0.24e2 * t73 * t335;
4873   t339 = t338 * t110;
4874   t342 = tau[0] * t41;
4875   t343 = 0.24256886666666666667e0 * t342;
4876   t345 = t343 - 0.11279007555555555555e0 * t274;
4877   t346 = t102 * t345;
4878   t349 = t111 * t32;
4879   t351 = 0.1e1 / t112 / t57;
4880   t352 = t36 * t351;
4881   t353 = t352 * t283;
4882   t358 = t73 * t289;
4883   t360 = t91 * t289;
4884   t366 = -0.1105920e7 * t124 * t289 + 0.26943e5 * t131 * t289 - 0.8e1 * t289 + 0.768e3 * t358 - 0.2880e4 * t360;
4885   t368 = t127 * t295;
4886   t371 = t73 * t133;
4887   t376 = t120 * t289;
4888   t378 = 0.448e3 * t320 - 0.5760e4 * t322 + 0.30720e5 * t376;
4889   t384 = t137 * t76;
4890   t385 = t74 * t289;
4891   t388 = t366 * t76 + t368 * t327 / 0.2e1 + 0.72e2 * t371 * t289 + 0.24e2 * t118 * t378 + 0.240e3 * t96 * t289 * t71 - 0.2e1 * t384 * t385;
4892   t391 = 0.8e1 / 0.7e1 * t289 * t141 + 0.8e1 / 0.7e1 * t67 * t388;
4893   t392 = t391 * t32;
4894   t393 = t392 * t36;
4895   t396 = t274 * t113;
4896   t399 = t351 * t283;
4897   t400 = t42 * t399;
4898   t403 = t310 * t88 - t314 * t283 / 0.5e1 + 0.35e2 / 0.81e2 * t339 * t114 + 0.35e2 / 0.81e2 * t346 * t114 - 0.14e2 / 0.81e2 * t349 * t353 + 0.26329605555555555556e-1 * t393 * t147 - 0.70212281481481481483e-1 * t146 * t396 - 0.10531842222222222222e-1 * t146 * t400;
4899   t407 = 0.6e1 * t256 * t249 - t252;
4900   t408 = t407 * t194;
4901   t414 = t174 * t25 * t153;
4902   t415 = t155 * t157;
4903   t423 = t61 * t174;
4904   t427 = t157 * t104;
4905   t431 = t10 * t174;
4906   t434 = t61 * (-0.2e1 / 0.9e1 * t169 * t31 * t423 + t176 * t427 * t180 / 0.54e2 + t431 / 0.3e1);
4907   t439 = t61 * (0.2e1 / 0.9e1 * t414 * t415 * t177 * t60 - t29 * t262 * t185 / 0.54e2 + t29 * t31 * t434 / 0.18e2);
4908   t443 = 0.2e1 / 0.81e2 * t29 * t262 * t190 - 0.2e1 / 0.27e2 * t29 * t31 * t439;
4909   t444 = t152 * t443;
4910   t446 = t217 * t217;
4911   t447 = t446 * t446;
4912   t448 = t447 * t447;
4913   t449 = t448 * t217;
4914   t450 = 0.1e1 / t449;
4915   t462 = (-0.5e1 / 0.3e1 * t342 + t274 / 0.3e1) * t32 * t36 / 0.4e1 - 0.2e1 / 0.27e2 * t275;
4916   t465 = t462 * t16;
4917   t473 = -0.125e3 / 0.39366e5 * t281 - 0.10e2 / 0.9e1 * t198 * t199 * t273 + 0.584e3 / 0.405e3 * t209 * t462 - 0.146e3 / 0.135e3 * t465 * t213 - 0.146e3 / 0.135e3 * t209 * t246 * t213 + 0.146e3 / 0.135e3 * t212 * t246;
4918   t474 = t450 * t473;
4919   t480 = t231 * t17;
4920   t481 = t480 * t246;
4921   t492 = -0.17051554074074074074e0 * t275 - 0.5e1 / 0.9e1 * (-t343 - 0.31646617777777777779e-1 * t274) * t32 * t36;
4922   t495 = t228 * t351;
4923   t498 = -t313 * t283 / 0.5e1 + 0.7e1 / 0.9e1 * t492 * t113 - 0.14e2 / 0.45e2 * t495 * t283;
4924   t501 = t152 * t450;
4925   t504 = -p->cam_beta * (t252 * t150 - 0.6e1 * t256 * t258 + t24 * t403 + t408 * t217 + t444 * t217 + t195 * t474 / 0.10e2) + t252 * t231 - 0.6e1 * t256 * t481 + t24 * t498 + t407 * t217 + t501 * t473 / 0.10e2;
4926   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4927     vrho[0] = -t236 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t241 * t504;
4928 
4929   t510 = my_piecewise3(t15, t10 * t12 / 0.8e1, 0);
4930   t511 = t16 * t510;
4931   t513 = t17 * t510;
4932   t515 = 0.2e1 * t511 + 0.9e1 * t513;
4933   t516 = t515 * t23;
4934   t518 = t257 * t510;
4935   t521 = t37 * t41;
4936   t524 = t48 * sigma[0] * t53;
4937   t526 = 0.15045488888888888889e0 * t521 + 0.53798980924525896000e-2 * t524;
4938   t527 = t61 * t526;
4939   t531 = my_piecewise3(t66, 0, -t267 * t270 * t527 / 0.360e3);
4940   t536 = t295 * t531;
4941   t541 = t69 * t531;
4942   t542 = t541 * t76;
4943   t543 = t536 * t76 / 0.2e1 - 0.4e1 * t299 * t531 - t542;
4944   t546 = -t291 * t531 + 0.2e1 * t531 * t80 + 0.2e1 * t67 * t543;
4945   t549 = -0.8e1 / 0.3e1 * t531 * t83 - 0.8e1 / 0.3e1 * t67 * t546;
4946   t555 = t67 * t531;
4947   t557 = t118 * t531;
4948   t558 = 0.256e3 * t557;
4949   t559 = 0.40e2 * t555 - t558;
4950   t561 = t531 * t76;
4951   t565 = t68 * t531;
4952   t569 = t559 * t76 + t326 * t561 / 0.2e1 - 0.72e2 * t555 + t558 + 0.10e2 * t565 * t71 - 0.10e2 * t542;
4953   t572 = 0.48e2 * t317 * t531 + 0.24e2 * t73 * t569;
4954   t573 = t572 * t110;
4955   t576 = t102 * t41;
4956   t579 = t352 * t526;
4957   t584 = t73 * t531;
4958   t586 = t91 * t531;
4959   t588 = t131 * t531;
4960   t592 = -0.1105920e7 * t124 * t531 - 0.8e1 * t531 + 0.768e3 * t584 - 0.2880e4 * t586 + 0.26943e5 * t588;
4961   t600 = t120 * t531;
4962   t602 = 0.448e3 * t555 - 0.5760e4 * t557 + 0.30720e5 * t600;
4963   t605 = t531 * t71;
4964   t608 = t74 * t531;
4965   t611 = t592 * t76 + t368 * t561 / 0.2e1 + 0.72e2 * t371 * t531 + 0.24e2 * t118 * t602 + 0.240e3 * t96 * t605 - 0.2e1 * t384 * t608;
4966   t614 = 0.8e1 / 0.7e1 * t531 * t141 + 0.8e1 / 0.7e1 * t67 * t611;
4967   t615 = t614 * t32;
4968   t616 = t615 * t36;
4969   t619 = t36 * t41;
4970   t620 = t619 * t113;
4971   t623 = t351 * t526;
4972   t624 = t42 * t623;
4973   t627 = t549 * t88 - t314 * t526 / 0.5e1 + 0.35e2 / 0.81e2 * t573 * t114 + 0.18276169650205761317e-1 * t576 * t114 - 0.14e2 / 0.81e2 * t349 * t579 + 0.26329605555555555556e-1 * t616 * t147 + 0.26329605555555555556e-1 * t145 * t620 - 0.10531842222222222222e-1 * t146 * t624;
4974   t631 = 0.6e1 * t256 * t513 - t516;
4975   t632 = t631 * t194;
4976   t637 = t209 * t32;
4977   t638 = t637 * t619;
4978   t640 = t41 * t16;
4979   t642 = t37 * t640 * t213;
4980   t644 = t209 * t510;
4981   t649 = 0.125e3 / 0.104976e6 * t524 + 0.5e1 / 0.12e2 * t198 * t619 - 0.73e2 / 0.14580e5 * t638 + 0.73e2 / 0.19440e5 * t642 - 0.146e3 / 0.135e3 * t644 * t213 + 0.146e3 / 0.135e3 * t212 * t510;
4982   t650 = t450 * t649;
4983   t656 = t480 * t510;
4984   t662 = t37 * t41 * t113;
4985   t666 = -t313 * t526 / 0.5e1 + 0.44605775205761316872e-1 * t662 - 0.14e2 / 0.45e2 * t495 * t526;
4986   t672 = t241 * (-p->cam_beta * (t516 * t150 - 0.6e1 * t256 * t518 + t24 * t627 + t632 * t217 + t195 * t650 / 0.10e2) + t516 * t231 - 0.6e1 * t256 * t656 + t24 * t666 + t631 * t217 + t501 * t649 / 0.10e2);
4987   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
4988     vsigma[0] = -0.3e1 / 0.8e1 * t240 * t672;
4989 
4990   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
4991     vlapl[0] = 0.0e0;
4992 
4993   t675 = tau[0] * tau[0];
4994   t676 = 0.1e1 / t675;
4995   t679 = my_piecewise3(t15, -t11 * t676 / 0.8e1, 0);
4996   t680 = t16 * t679;
4997   t682 = t17 * t679;
4998   t684 = 0.2e1 * t680 + 0.9e1 * t682;
4999   t685 = t684 * t23;
5000   t687 = t257 * t679;
5001   t690 = t24 * t102;
5002   t691 = t104 * t32;
5003   t692 = t36 * t113;
5004   t693 = t691 * t692;
5005   t698 = 0.6e1 * t256 * t682 - t685;
5006   t699 = t698 * t194;
5007   t704 = t36 * t16;
5008   t708 = t209 * t679;
5009   t713 = 0.146e3 / 0.405e3 * t209 * t104 * t37 - 0.73e2 / 0.270e3 * t691 * t704 * t213 - 0.146e3 / 0.135e3 * t708 * t213 + 0.146e3 / 0.135e3 * t212 * t679;
5010   t714 = t450 * t713;
5011   t720 = t480 * t679;
5012   t723 = t24 * t104;
5013   t730 = t241 * (-p->cam_beta * (t685 * t150 - 0.6e1 * t256 * t687 - 0.62888224691358024691e-1 * t690 * t693 + t699 * t217 + t195 * t714 / 0.10e2) + t685 * t231 - 0.6e1 * t256 * t720 - 0.62888224691358024691e-1 * t723 * t114 + t698 * t217 + t501 * t713 / 0.10e2);
5014   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5015     vtau[0] = -0.3e1 / 0.8e1 * t240 * t730;
5016 
5017 #ifndef XC_DONT_COMPILE_FXC
5018 
5019   if(order < 2) return;
5020 
5021 
5022   t733 = t7 * t177;
5023   t739 = t246 * t246;
5024   t741 = 0.1e1 / t271;
5025   t742 = sigma[0] * t741;
5026   t745 = my_piecewise3(t15, t742 * t12 / 0.4e1, 0);
5027   t748 = t16 * t739;
5028   t750 = t17 * t745;
5029   t752 = 0.2e1 * t16 * t745 + 0.2e1 * t739 + 0.18e2 * t748 + 0.9e1 * t750;
5030   t753 = t752 * t23;
5031   t755 = t251 * t255;
5032   t760 = t22 * t22;
5033   t761 = 0.1e1 / t760;
5034   t762 = t20 * t761;
5035   t763 = t17 * t17;
5036   t764 = t150 * t763;
5037   t765 = t764 * t739;
5038   t768 = t403 * t17;
5039   t769 = t768 * t246;
5040   t772 = t150 * t16;
5041   t773 = t772 * t739;
5042   t776 = t257 * t745;
5043   t779 = t57 * t57;
5044   t781 = 0.1e1 / t112 / t779;
5045   t782 = t283 * t283;
5046   t783 = t781 * t782;
5047   t784 = t42 * t783;
5048   t788 = 0.1e1 / t39 / t50;
5049   t789 = sigma[0] * t788;
5050   t790 = t789 * t113;
5051   t793 = t274 * t399;
5052   t796 = t37 * t789;
5053   t798 = t50 * t271;
5054   t800 = 0.1e1 / t8 / t798;
5055   t802 = t48 * t49 * t800;
5056   t804 = 0.14711144691358024691e1 * t796 + 0.90860501116977068800e-1 * t802;
5057   t805 = t351 * t804;
5058   t806 = t42 * t805;
5059   t813 = t36 * t781;
5060   t814 = t813 * t782;
5061   t818 = 0.1e1 / t8 / t38;
5062   t819 = t2 * t818;
5063   t823 = t261 * t269;
5064   t828 = 0.1e1 / t58 / t779;
5065   t829 = t30 * t828;
5066   t830 = t61 * t782;
5067   t834 = t61 * t804;
5068   t839 = my_piecewise3(t66, 0, t29 * t819 * t62 / 0.81e2 + t267 * t823 * t284 / 0.540e3 + 0.11e2 / 0.3600e4 * t267 * t829 * t830 - t267 * t270 * t834 / 0.360e3);
5069   t844 = 0.1e1 / t120;
5070   t845 = t289 * t289;
5071   t846 = t844 * t845;
5072   t849 = t76 * t295;
5073   t857 = 0.1e1 / t91;
5074   t858 = t857 * t845;
5075   t859 = t858 * t76;
5076   t864 = 0.1e1 / t131;
5077   t865 = t864 * t845;
5078   t874 = t69 * t839;
5079   t875 = t874 * t76;
5080   t876 = -0.2e1 * t859 + t295 * t839 * t76 / 0.2e1 + t865 * t76 / 0.4e1 - 0.4e1 * t845 * t77 - t74 * t845 * t76 - 0.4e1 * t299 * t839 - t875;
5081   t879 = -t846 * t76 / 0.2e1 + 0.2e1 * t849 * t845 - t291 * t839 + 0.2e1 * t839 * t80 + 0.4e1 * t289 * t304 + 0.2e1 * t67 * t876;
5082   t882 = -0.8e1 / 0.3e1 * t839 * t83 - 0.16e2 / 0.3e1 * t289 * t307 - 0.8e1 / 0.3e1 * t67 * t879;
5083   t884 = tau[0] * t273;
5084   t885 = 0.64685031111111111112e0 * t884;
5085   t887 = -t885 + 0.41356361037037037035e0 * t789;
5086   t888 = t102 * t887;
5087   t893 = t67 * t335;
5088   t899 = t67 * t839;
5089   t901 = t73 * t845;
5090   t902 = 0.768e3 * t901;
5091   t903 = t118 * t839;
5092   t904 = 0.256e3 * t903;
5093   t905 = 0.40e2 * t845 + 0.40e2 * t899 - t902 - t904;
5094   t907 = t324 * t295;
5095   t909 = t93 * t857;
5096   t910 = t845 * t76;
5097   t913 = t839 * t76;
5098   t916 = t93 * t864;
5099   t921 = t68 * t839;
5100   t926 = t905 * t76 + t907 * t327 - 0.3e1 / 0.2e1 * t909 * t910 + t326 * t913 / 0.2e1 + t916 * t910 / 0.4e1 - 0.72e2 * t845 - 0.72e2 * t899 + t902 + t904 + 0.10e2 * t921 * t71 - 0.10e2 * t875 - 0.5e1 * t859;
5101   t929 = 0.96e2 * t893 * t289 + 0.48e2 * t317 * t839 + 0.24e2 * t73 * t926 + 0.48e2 * t845 * t99;
5102   t930 = t929 * t110;
5103   t933 = t338 * t345;
5104   t937 = 0.1e1 / t87 / t779;
5105   t938 = t86 * t937;
5106   t941 = t339 * t32;
5107   t944 = t346 * t32;
5108   t947 = t352 * t804;
5109   t955 = t67 * t845;
5110   t959 = t118 * t845;
5111   t971 = 0.161658e6 * t120 * t845 - 0.8847360e7 * t122 * t845 - 0.1105920e7 * t124 * t839 + 0.26943e5 * t131 * t839 + 0.768e3 * t73 * t839 - 0.2880e4 * t91 * t839 - 0.8e1 * t839 + 0.1536e4 * t955 - 0.11520e5 * t959;
5112   t973 = t366 * t295;
5113   t975 = t127 * t857;
5114   t980 = t127 * t864;
5115   t983 = t67 * t133;
5116   t986 = t73 * t378;
5117   t995 = t91 * t845;
5118   t999 = 0.30720e5 * t120 * t839 + 0.448e3 * t845 + 0.448e3 * t899 - 0.17280e5 * t901 - 0.5760e4 * t903 + 0.153600e6 * t995;
5119   t1005 = t839 * t71;
5120   t1011 = t137 * t844;
5121   t1013 = t295 * t845;
5122   t1016 = t74 * t839;
5123   t1019 = t971 * t76 + t973 * t327 - 0.3e1 / 0.2e1 * t975 * t910 + t368 * t913 / 0.2e1 + t980 * t910 / 0.4e1 + 0.144e3 * t983 * t845 + 0.144e3 * t986 * t289 + 0.72e2 * t371 * t839 + 0.24e2 * t118 * t999 + 0.240e3 * t68 * t845 * t71 + 0.240e3 * t96 * t1005 - 0.480e3 * t69 * t845 * t76 - t1011 * t910 + 0.4e1 * t384 * t1013 - 0.2e1 * t384 * t1016;
5124   t1022 = 0.8e1 / 0.7e1 * t839 * t141 + 0.16e2 / 0.7e1 * t289 * t388 + 0.8e1 / 0.7e1 * t67 * t1019;
5125   t1023 = t1022 * t32;
5126   t1024 = t1023 * t36;
5127   t1027 = t310 * t313;
5128   t1032 = 0.14744579111111111111e-1 * t146 * t784 + 0.25744503209876543210e0 * t146 * t790 + 0.56169825185185185185e-1 * t146 * t793 - 0.10531842222222222222e-1 * t146 * t806 - 0.14042456296296296297e0 * t393 * t396 - 0.21063684444444444444e-1 * t393 * t400 + 0.98e2 / 0.405e3 * t349 * t814 + t882 * t88 + 0.35e2 / 0.81e2 * t888 * t114 + 0.35e2 / 0.81e2 * t930 * t114 + 0.70e2 / 0.81e2 * t933 * t114 + 0.6e1 / 0.25e2 * t938 * t782 - 0.28e2 / 0.81e2 * t941 * t353 - 0.28e2 / 0.81e2 * t944 * t353 - 0.14e2 / 0.81e2 * t349 * t947 + 0.26329605555555555556e-1 * t1024 * t147 - 0.2e1 / 0.5e1 * t1027 * t283 - t314 * t804 / 0.5e1;
5129   t1036 = t763 * t739;
5130   t1043 = -0.54e2 * t762 * t1036 + 0.12e2 * t755 * t249 + 0.12e2 * t256 * t748 + 0.6e1 * t256 * t750 - t753;
5131   t1044 = t1043 * t194;
5132   t1046 = t407 * t443;
5133   t1057 = t167 * p->cam_omega;
5134   t1059 = t33 / t1057;
5135   t1074 = 0.1e1 / t27 * t33;
5136   t1076 = t167 * t167;
5137   t1078 = t25 * t1074 / t1076;
5138   t1079 = t60 * t174;
5139   t1083 = t157 * t41;
5140   t1087 = t242 * t174;
5141   t1090 = t61 * (0.8e1 / 0.9e1 * t1078 * t178 * t1079 - 0.5e1 / 0.162e3 * t176 * t1083 * t180 - 0.5e1 / 0.9e1 * t1087);
5142   t1095 = t61 * (-0.8e1 / 0.3e1 * t1059 * t431 - 0.4e1 / 0.27e2 * t414 * t415 * t104 * t60 + 0.2e1 / 0.81e2 * t29 * t819 * t185 - t29 * t262 * t434 / 0.27e2 + t29 * t31 * t1090 / 0.18e2);
5143   t1099 = -0.8e1 / 0.243e3 * t29 * t819 * t190 + 0.4e1 / 0.81e2 * t29 * t262 * t439 - 0.2e1 / 0.27e2 * t29 * t31 * t1095;
5144   t1100 = t152 * t1099;
5145   t1105 = 0.1e1 / t449 / t216;
5146   t1106 = t473 * t473;
5147   t1107 = t1105 * t1106;
5148   t1114 = t462 * t462;
5149   t1123 = (0.40e2 / 0.9e1 * t884 - 0.11e2 / 0.9e1 * t789) * t32 * t36 / 0.4e1 + 0.22e2 / 0.81e2 * t796;
5150   t1126 = t1123 * t16;
5151   t1134 = t209 * t745;
5152   t1141 = 0.125e3 / 0.4374e4 * t802 + 0.110e3 / 0.27e2 * t198 * t199 * t788 + 0.584e3 / 0.405e3 * t1114 + 0.584e3 / 0.405e3 * t209 * t1123 - 0.146e3 / 0.135e3 * t1126 * t213 - 0.292e3 / 0.135e3 * t462 * t246 * t213 + 0.292e3 / 0.135e3 * t465 * t246 - 0.146e3 / 0.135e3 * t1134 * t213 + 0.292e3 / 0.135e3 * t209 * t739 + 0.146e3 / 0.135e3 * t212 * t745;
5153   t1142 = t450 * t1141;
5154   t1145 = t753 * t150 - 0.12e2 * t755 * t258 + 0.2e1 * t252 * t403 + 0.54e2 * t762 * t765 - 0.12e2 * t256 * t769 - 0.12e2 * t256 * t773 - 0.6e1 * t256 * t776 + t24 * t1032 + t1044 * t217 + 0.2e1 * t1046 * t217 + t408 * t474 / 0.5e1 + t1100 * t217 + t444 * t474 / 0.5e1 - 0.9e1 / 0.100e3 * t195 * t1107 + t195 * t1142 / 0.10e2;
5155   t1152 = t231 * t763;
5156   t1153 = t1152 * t739;
5157   t1156 = t498 * t17;
5158   t1157 = t1156 * t246;
5159   t1160 = t231 * t16;
5160   t1161 = t1160 * t739;
5161   t1164 = t480 * t745;
5162   t1177 = 0.62522364938271604938e0 * t796 - 0.5e1 / 0.9e1 * (t885 + 0.11603759851851851852e0 * t789) * t32 * t36;
5163   t1180 = t492 * t351;
5164   t1183 = t228 * t781;
5165   t1188 = 0.6e1 / 0.25e2 * t937 * t782 - t313 * t804 / 0.5e1 + 0.7e1 / 0.9e1 * t1177 * t113 - 0.28e2 / 0.45e2 * t1180 * t283 + 0.98e2 / 0.225e3 * t1183 * t782 - 0.14e2 / 0.45e2 * t495 * t804;
5166   t1191 = t407 * t450;
5167   t1194 = t152 * t1105;
5168   t1199 = -p->cam_beta * t1145 + t753 * t231 - 0.12e2 * t755 * t481 + 0.2e1 * t252 * t498 + 0.54e2 * t762 * t1153 - 0.12e2 * t256 * t1157 - 0.12e2 * t256 * t1161 - 0.6e1 * t256 * t1164 + t24 * t1188 + t1043 * t217 + t1191 * t473 / 0.5e1 - 0.9e1 / 0.100e3 * t1194 * t1106 + t501 * t1141 / 0.10e2;
5169   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5170     v2rho2[0] = -t5 * t733 * t234 / 0.6e1 - t5 * t9 * t504 - 0.3e1 / 0.8e1 * t240 * t241 * t1199;
5171 
5172   t1203 = t8 * t2;
5173   t1206 = t246 * t510;
5174   t1210 = my_piecewise3(t15, -t242 * t12 / 0.8e1, 0);
5175   t1211 = t16 * t1210;
5176   t1213 = t511 * t246;
5177   t1215 = t17 * t1210;
5178   t1217 = 0.2e1 * t1206 + 0.2e1 * t1211 + 0.18e2 * t1213 + 0.9e1 * t1215;
5179   t1218 = t1217 * t23;
5180   t1220 = t515 * t255;
5181   t1226 = t762 * t150;
5182   t1227 = t763 * t510;
5183   t1228 = t1227 * t246;
5184   t1231 = t768 * t510;
5185   t1234 = t256 * t150;
5186   t1237 = t257 * t1210;
5187   t1241 = t627 * t17;
5188   t1242 = t1241 * t246;
5189   t1245 = t274 * t623;
5190   t1250 = t37 * t273;
5191   t1253 = t48 * sigma[0] * t279;
5192   t1255 = -0.40121303703703703704e0 * t1250 - 0.28692789826413811200e-1 * t1253;
5193   t1256 = t351 * t1255;
5194   t1257 = t42 * t1256;
5195   t1262 = t526 * t283;
5196   t1263 = t813 * t1262;
5197   t1266 = t289 * t99;
5198   t1274 = t527 * t283;
5199   t1278 = t61 * t1255;
5200   t1283 = my_piecewise3(t66, 0, t267 * t823 * t527 / 0.1080e4 + 0.11e2 / 0.3600e4 * t267 * t829 * t1274 - t267 * t270 * t1278 / 0.360e3);
5201   t1286 = t67 * t569;
5202   t1289 = t289 * t531;
5203   t1291 = t67 * t1283;
5204   t1293 = t584 * t289;
5205   t1294 = 0.768e3 * t1293;
5206   t1295 = t118 * t1283;
5207   t1296 = 0.256e3 * t1295;
5208   t1297 = 0.40e2 * t1289 + 0.40e2 * t1291 - t1294 - t1296;
5209   t1299 = t559 * t295;
5210   t1304 = t561 * t289;
5211   t1307 = t1283 * t76;
5212   t1314 = t68 * t1283;
5213   t1317 = t69 * t1283;
5214   t1318 = t1317 * t76;
5215   t1320 = t857 * t531;
5216   t1321 = t1320 * t327;
5217   t1323 = t1297 * t76 + t1299 * t327 / 0.2e1 + t907 * t561 / 0.2e1 - 0.3e1 / 0.2e1 * t909 * t1304 + t326 * t1307 / 0.2e1 + t916 * t1304 / 0.4e1 - 0.72e2 * t1289 - 0.72e2 * t1291 + t1294 + t1296 + 0.10e2 * t1314 * t71 - 0.10e2 * t1318 - 0.5e1 * t1321;
5218   t1326 = 0.48e2 * t1266 * t531 + 0.48e2 * t317 * t1283 + 0.48e2 * t1286 * t289 + 0.24e2 * t73 * t1323 + 0.48e2 * t893 * t531;
5219   t1327 = t1326 * t110;
5220   t1330 = t36 * t273;
5221   t1331 = t1330 * t113;
5222   t1334 = t102 * t273;
5223   t1337 = t572 * t345;
5224   t1340 = t338 * t41;
5225   t1345 = t145 * t199;
5226   t1346 = t41 * t781;
5227   t1347 = t1346 * t1262;
5228   t1350 = 0.28084912592592592592e-1 * t146 * t1245 - 0.10531842222222222222e-1 * t393 * t624 - 0.10531842222222222222e-1 * t146 * t1257 - 0.10531842222222222222e-1 * t616 * t400 + 0.98e2 / 0.405e3 * t349 * t1263 + 0.35e2 / 0.81e2 * t1327 * t114 - 0.70212281481481481483e-1 * t145 * t1331 - 0.48736452400548696845e-1 * t1334 * t114 + 0.35e2 / 0.81e2 * t1337 * t114 + 0.18276169650205761317e-1 * t1340 * t114 + 0.26329605555555555556e-1 * t392 * t620 + 0.14744579111111111111e-1 * t1345 * t1347;
5229   t1356 = t844 * t289;
5230   t1369 = t295 * t1283;
5231   t1372 = t864 * t531;
5232   t1375 = t289 * t77;
5233   t1381 = -0.2e1 * t1321 + t1369 * t76 / 0.2e1 + t1372 * t327 / 0.4e1 - 0.4e1 * t1375 * t531 - t385 * t561 - 0.4e1 * t299 * t1283 - t1318;
5234   t1384 = -t1356 * t561 / 0.2e1 + 0.2e1 * t849 * t1289 - t291 * t1283 + 0.2e1 * t1283 * t80 + 0.2e1 * t531 * t304 + 0.2e1 * t289 * t543 + 0.2e1 * t67 * t1381;
5235   t1387 = -0.8e1 / 0.3e1 * t1283 * t83 - 0.8e1 / 0.3e1 * t67 * t1384 - 0.8e1 / 0.3e1 * t289 * t546 - 0.8e1 / 0.3e1 * t531 * t307;
5236   t1391 = t41 * t351;
5237   t1392 = t1391 * t283;
5238   t1395 = t573 * t32;
5239   t1398 = t576 * t32;
5240   t1405 = t352 * t1255;
5241   t1414 = t73 * t1283;
5242   t1418 = t91 * t1283;
5243   t1422 = t131 * t1283;
5244   t1424 = t122 * t531;
5245   t1429 = -0.1105920e7 * t124 * t1283 - 0.8847360e7 * t1424 * t289 + 0.1536e4 * t555 * t289 - 0.11520e5 * t557 * t289 + 0.161658e6 * t600 * t289 - 0.8e1 * t1283 + 0.768e3 * t1414 - 0.2880e4 * t1418 + 0.26943e5 * t1422;
5246   t1431 = t592 * t295;
5247   t1448 = t73 * t602;
5248   t1457 = t120 * t1283;
5249   t1459 = 0.153600e6 * t586 * t289 + 0.448e3 * t1289 + 0.448e3 * t1291 - 0.17280e5 * t1293 - 0.5760e4 * t1295 + 0.30720e5 * t1457;
5250   t1464 = t1283 * t71;
5251   t1473 = t74 * t1283;
5252   t1476 = t1429 * t76 + t1431 * t327 / 0.2e1 + t973 * t561 / 0.2e1 - 0.3e1 / 0.2e1 * t975 * t1304 + t368 * t1307 / 0.2e1 + t980 * t1304 / 0.4e1 + 0.144e3 * t983 * t1289 + 0.72e2 * t986 * t531 + 0.72e2 * t371 * t1283 + 0.72e2 * t1448 * t289 + 0.24e2 * t118 * t1459 + 0.240e3 * t331 * t605 + 0.240e3 * t96 * t1464 - 0.480e3 * t541 * t327 - t1011 * t1304 + 0.4e1 * t384 * t536 * t289 - 0.2e1 * t384 * t1473;
5253   t1479 = 0.8e1 / 0.7e1 * t1283 * t141 + 0.8e1 / 0.7e1 * t67 * t1476 + 0.8e1 / 0.7e1 * t289 * t611 + 0.8e1 / 0.7e1 * t531 * t388;
5254   t1480 = t1479 * t32;
5255   t1481 = t1480 * t36;
5256   t1484 = t549 * t313;
5257   t1491 = 0.6e1 / 0.25e2 * t938 * t1262 + t1387 * t88 - 0.70212281481481481483e-1 * t616 * t396 - 0.10531842222222222222e-1 * t146 * t1392 - 0.14e2 / 0.81e2 * t1395 * t353 - 0.73104678600823045268e-2 * t1398 * t353 - 0.14e2 / 0.81e2 * t941 * t579 - 0.14e2 / 0.81e2 * t944 * t579 - 0.14e2 / 0.81e2 * t349 * t1405 + 0.26329605555555555556e-1 * t1481 * t147 - t1484 * t283 / 0.5e1 - t1027 * t526 / 0.5e1 - t314 * t1255 / 0.5e1;
5258   t1492 = t1350 + t1491;
5259   t1504 = 0.12e2 * t256 * t1213 + 0.6e1 * t256 * t1215 + 0.6e1 * t1220 * t249 - 0.54e2 * t762 * t1228 + 0.6e1 * t755 * t513 - t1218;
5260   t1505 = t1504 * t194;
5261   t1507 = t631 * t443;
5262   t1515 = t1105 * t649;
5263   t1516 = t1515 * t473;
5264   t1522 = t462 * t32;
5265   t1523 = t1522 * t619;
5266   t1525 = t637 * t1330;
5267   t1527 = t273 * t16;
5268   t1529 = t37 * t1527 * t213;
5269   t1533 = t37 * t41 * t246 * t213;
5270   t1536 = t37 * t640 * t246;
5271   t1538 = t462 * t510;
5272   t1541 = t209 * t1210;
5273   t1550 = -0.125e3 / 0.13122e5 * t1253 - 0.10e2 / 0.9e1 * t198 * t1330 - 0.73e2 / 0.14580e5 * t1523 + 0.146e3 / 0.10935e5 * t1525 - 0.73e2 / 0.7290e4 * t1529 + 0.73e2 / 0.19440e5 * t1533 - 0.73e2 / 0.19440e5 * t1536 - 0.146e3 / 0.135e3 * t1538 * t213 - 0.146e3 / 0.135e3 * t1541 * t213 + 0.292e3 / 0.135e3 * t644 * t246 + 0.146e3 / 0.135e3 * t465 * t510 + 0.146e3 / 0.135e3 * t212 * t1210;
5274   t1551 = t450 * t1550;
5275   t1554 = t1218 * t150 - 0.6e1 * t1220 * t258 + t516 * t403 - 0.6e1 * t755 * t518 + 0.54e2 * t1226 * t1228 - 0.6e1 * t256 * t1231 - 0.12e2 * t1234 * t1213 - 0.6e1 * t256 * t1237 + t252 * t627 - 0.6e1 * t256 * t1242 + t24 * t1492 + t1505 * t217 + t1507 * t217 + t632 * t474 / 0.10e2 + t408 * t650 / 0.10e2 + t444 * t650 / 0.10e2 - 0.9e1 / 0.100e3 * t195 * t1516 + t195 * t1551 / 0.10e2;
5276   t1562 = t762 * t231;
5277   t1565 = t1156 * t510;
5278   t1568 = t256 * t231;
5279   t1571 = t480 * t1210;
5280   t1575 = t666 * t17;
5281   t1576 = t1575 * t246;
5282   t1579 = t937 * t526;
5283   t1585 = t37 * t273 * t113;
5284   t1595 = 0.6e1 / 0.25e2 * t1579 * t283 - t313 * t1255 / 0.5e1 - 0.11894873388203017833e0 * t1585 - 0.17842310082304526749e-1 * t37 * t1392 - 0.14e2 / 0.45e2 * t1180 * t526 + 0.98e2 / 0.225e3 * t1183 * t1262 - 0.14e2 / 0.45e2 * t495 * t1255;
5285   t1598 = t631 * t450;
5286   t1603 = t649 * t473;
5287   t1608 = -p->cam_beta * t1554 + t1218 * t231 - 0.6e1 * t1220 * t481 + t516 * t498 - 0.6e1 * t755 * t656 + 0.54e2 * t1562 * t1228 - 0.6e1 * t256 * t1565 - 0.12e2 * t1568 * t1213 - 0.6e1 * t256 * t1571 + t252 * t666 - 0.6e1 * t256 * t1576 + t24 * t1595 + t1504 * t217 + t1598 * t473 / 0.10e2 + t1191 * t649 / 0.10e2 - 0.9e1 / 0.100e3 * t1194 * t1603 + t501 * t1550 / 0.10e2;
5288   t1609 = t241 * t1608;
5289   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5290     v2rhosigma[0] = -t1203 * t672 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t1609;
5291 
5292   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5293     v2rholapl[0] = 0.0e0;
5294 
5295   t1614 = t246 * t679;
5296   t1618 = my_piecewise3(t15, t243 * t676 / 0.8e1, 0);
5297   t1619 = t16 * t1618;
5298   t1621 = t680 * t246;
5299   t1623 = t17 * t1618;
5300   t1625 = 0.2e1 * t1614 + 0.2e1 * t1619 + 0.18e2 * t1621 + 0.9e1 * t1623;
5301   t1626 = t1625 * t23;
5302   t1628 = t684 * t255;
5303   t1634 = t763 * t679;
5304   t1635 = t1634 * t246;
5305   t1638 = t768 * t679;
5306   t1643 = t257 * t1618;
5307   t1646 = t252 * t102;
5308   t1649 = t102 * t104;
5309   t1650 = t256 * t1649;
5310   t1651 = t113 * t17;
5311   t1653 = t37 * t1651 * t246;
5312   t1656 = t24 * t338;
5313   t1661 = t24 * t1649;
5314   t1662 = t37 * t399;
5315   t1675 = 0.12e2 * t256 * t1621 + 0.6e1 * t256 * t1623 + 0.6e1 * t1628 * t249 - 0.54e2 * t762 * t1635 + 0.6e1 * t755 * t682 - t1626;
5316   t1676 = t1675 * t194;
5317   t1678 = t698 * t443;
5318   t1686 = t1105 * t713;
5319   t1687 = t1686 * t473;
5320   t1695 = t36 * t246;
5321   t1702 = t462 * t679;
5322   t1705 = t209 * t1618;
5323   t1714 = 0.146e3 / 0.405e3 * t462 * t104 * t37 - 0.146e3 / 0.243e3 * t638 + 0.73e2 / 0.162e3 * t642 - 0.73e2 / 0.270e3 * t691 * t1695 * t213 + 0.73e2 / 0.270e3 * t691 * t704 * t246 - 0.146e3 / 0.135e3 * t1702 * t213 - 0.146e3 / 0.135e3 * t1705 * t213 + 0.292e3 / 0.135e3 * t708 * t246 + 0.146e3 / 0.135e3 * t465 * t679 + 0.146e3 / 0.135e3 * t212 * t1618;
5324   t1715 = t450 * t1714;
5325   t1718 = t1626 * t150 - 0.6e1 * t1628 * t258 + t685 * t403 - 0.6e1 * t755 * t687 + 0.54e2 * t1226 * t1635 - 0.6e1 * t256 * t1638 - 0.12e2 * t1234 * t1621 - 0.6e1 * t256 * t1643 - 0.62888224691358024691e-1 * t1646 * t693 + 0.37732934814814814815e0 * t1650 * t1653 - 0.62888224691358024691e-1 * t1656 * t693 + 0.10481370781893004115e0 * t690 * t662 + 0.25155289876543209876e-1 * t1661 * t1662 + t1676 * t217 + t1678 * t217 + t699 * t474 / 0.10e2 + t408 * t714 / 0.10e2 + t444 * t714 / 0.10e2 - 0.9e1 / 0.100e3 * t195 * t1687 + t195 * t1715 / 0.10e2;
5326   t1728 = t1156 * t679;
5327   t1733 = t480 * t1618;
5328   t1736 = t252 * t104;
5329   t1739 = t256 * t691;
5330   t1740 = t692 * t249;
5331   t1743 = t24 * t41;
5332   t1749 = t698 * t450;
5333   t1754 = t713 * t473;
5334   t1759 = -p->cam_beta * t1718 + t1626 * t231 - 0.6e1 * t1628 * t481 + t685 * t498 - 0.6e1 * t755 * t720 + 0.54e2 * t1562 * t1635 - 0.6e1 * t256 * t1728 - 0.12e2 * t1568 * t1621 - 0.6e1 * t256 * t1733 - 0.62888224691358024691e-1 * t1736 * t114 + 0.37732934814814814815e0 * t1739 * t1740 + 0.10481370781893004115e0 * t1743 * t114 + 0.25155289876543209876e-1 * t723 * t1662 + t1675 * t217 + t1749 * t473 / 0.10e2 + t1191 * t713 / 0.10e2 - 0.9e1 / 0.100e3 * t1194 * t1754 + t501 * t1714 / 0.10e2;
5335   t1760 = t241 * t1759;
5336   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5337     v2rhotau[0] = -t1203 * t730 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t1760;
5338 
5339   t1763 = t510 * t510;
5340   t1765 = my_piecewise3(t15, 0, 0);
5341   t1766 = t16 * t1765;
5342   t1767 = 0.2e1 * t1766;
5343   t1768 = t16 * t1763;
5344   t1770 = t17 * t1765;
5345   t1771 = 0.9e1 * t1770;
5346   t1772 = 0.2e1 * t1763 + t1767 + 0.18e2 * t1768 + t1771;
5347   t1773 = t1772 * t23;
5348   t1779 = t764 * t1763;
5349   t1782 = t1241 * t510;
5350   t1785 = t772 * t1763;
5351   t1788 = t257 * t1765;
5352   t1790 = 0.6e1 * t256 * t1788;
5353   t1791 = t526 * t526;
5354   t1792 = t61 * t1791;
5355   t1797 = 0.1e1 / t39 / t51;
5356   t1800 = t61 * t45 * t47;
5357   t1805 = my_piecewise3(t66, 0, 0.11e2 / 0.3600e4 * t267 * t829 * t1792 - 0.14944161367923860000e-4 * t267 * t1797 * t269 * t1800);
5358   t1810 = t531 * t531;
5359   t1811 = t844 * t1810;
5360   t1821 = t857 * t1810;
5361   t1822 = t1821 * t76;
5362   t1824 = t295 * t1805;
5363   t1827 = t864 * t1810;
5364   t1836 = t69 * t1805;
5365   t1837 = t1836 * t76;
5366   t1838 = -0.2e1 * t1822 + t1824 * t76 / 0.2e1 + t1827 * t76 / 0.4e1 - 0.4e1 * t1810 * t77 - t74 * t1810 * t76 - 0.4e1 * t299 * t1805 - t1837;
5367   t1841 = -t1811 * t76 / 0.2e1 + 0.2e1 * t849 * t1810 - t291 * t1805 + 0.2e1 * t1805 * t80 + 0.4e1 * t531 * t543 + 0.2e1 * t67 * t1838;
5368   t1844 = -0.8e1 / 0.3e1 * t1805 * t83 - 0.16e2 / 0.3e1 * t531 * t546 - 0.8e1 / 0.3e1 * t67 * t1841;
5369   t1850 = t48 * t53;
5370   t1860 = t67 * t1805;
5371   t1862 = t73 * t1810;
5372   t1863 = 0.768e3 * t1862;
5373   t1864 = t118 * t1805;
5374   t1865 = 0.256e3 * t1864;
5375   t1866 = 0.40e2 * t1810 + 0.40e2 * t1860 - t1863 - t1865;
5376   t1869 = t1810 * t76;
5377   t1872 = t1805 * t76;
5378   t1884 = t1866 * t76 + t1299 * t561 - 0.3e1 / 0.2e1 * t909 * t1869 + t326 * t1872 / 0.2e1 + t916 * t1869 / 0.4e1 - 0.72e2 * t1810 - 0.72e2 * t1860 + t1863 + t1865 + 0.10e2 * t68 * t1805 * t71 - 0.10e2 * t1837 - 0.5e1 * t1822;
5379   t1887 = 0.96e2 * t1286 * t531 + 0.48e2 * t317 * t1805 + 0.48e2 * t1810 * t99 + 0.24e2 * t73 * t1884;
5380   t1888 = t1887 * t110;
5381   t1891 = t572 * t41;
5382   t1898 = t813 * t1791;
5383   t1901 = t351 * t53;
5384   t1909 = t67 * t1810;
5385   t1911 = t73 * t1805;
5386   t1913 = t118 * t1810;
5387   t1915 = t91 * t1805;
5388   t1917 = t120 * t1810;
5389   t1919 = t131 * t1805;
5390   t1925 = -0.8847360e7 * t122 * t1810 - 0.1105920e7 * t124 * t1805 - 0.8e1 * t1805 + 0.1536e4 * t1909 + 0.768e3 * t1911 - 0.11520e5 * t1913 - 0.2880e4 * t1915 + 0.161658e6 * t1917 + 0.26943e5 * t1919;
5391   t1944 = t91 * t1810;
5392   t1946 = t120 * t1805;
5393   t1948 = 0.448e3 * t1810 + 0.448e3 * t1860 - 0.17280e5 * t1862 - 0.5760e4 * t1864 + 0.153600e6 * t1944 + 0.30720e5 * t1946;
5394   t1954 = t1805 * t71;
5395   t1964 = t74 * t1805;
5396   t1967 = t1925 * t76 + t1431 * t561 - 0.3e1 / 0.2e1 * t975 * t1869 + t368 * t1872 / 0.2e1 + t980 * t1869 / 0.4e1 + 0.144e3 * t983 * t1810 + 0.144e3 * t1448 * t531 + 0.72e2 * t371 * t1805 + 0.24e2 * t118 * t1948 + 0.240e3 * t68 * t1810 * t71 + 0.240e3 * t96 * t1954 - 0.480e3 * t69 * t1810 * t76 - t1011 * t1869 + 0.4e1 * t384 * t295 * t1810 - 0.2e1 * t384 * t1964;
5397   t1970 = 0.8e1 / 0.7e1 * t1805 * t141 + 0.16e2 / 0.7e1 * t531 * t611 + 0.8e1 / 0.7e1 * t67 * t1967;
5398   t1971 = t1970 * t32;
5399   t1972 = t1971 * t36;
5400   t1979 = t1391 * t526;
5401   t1982 = t781 * t1791;
5402   t1983 = t42 * t1982;
5403   t1986 = t144 * sigma[0];
5404   t1987 = t50 * t50;
5405   t1988 = 0.1e1 / t1987;
5406   t1989 = t1988 * t351;
5407   t1992 = t1844 * t88 - 0.2e1 / 0.5e1 * t1484 * t526 + 0.6e1 / 0.25e2 * t938 * t1791 - 0.10759796184905179200e-2 * t314 * t1850 + 0.35e2 / 0.81e2 * t1888 * t114 + 0.36552339300411522634e-1 * t1891 * t114 - 0.28e2 / 0.81e2 * t1395 * t579 - 0.14620935720164609054e-1 * t1398 * t579 + 0.98e2 / 0.405e3 * t349 * t1898 - 0.57275491621318330108e-4 * t111 * t1901 + 0.26329605555555555556e-1 * t1972 * t147 + 0.52659211111111111112e-1 * t615 * t620 - 0.21063684444444444444e-1 * t616 * t624 - 0.21063684444444444444e-1 * t146 * t1979 + 0.14744579111111111111e-1 * t146 * t1983 - 0.34900379798164840299e-5 * t1986 * t1989;
5408   t1996 = t763 * t1763;
5409   t2002 = 0.6e1 * t256 * t1770;
5410   t2003 = 0.12e2 * t1220 * t513 + 0.12e2 * t256 * t1768 - 0.54e2 * t762 * t1996 - t1773 + t2002;
5411   t2004 = t2003 * t194;
5412   t2008 = t649 * t649;
5413   t2009 = t1105 * t2008;
5414   t2013 = t41 * t510;
5415   t2015 = t37 * t2013 * t213;
5416   t2018 = t37 * t640 * t510;
5417   t2020 = t209 * t1765;
5418   t2022 = 0.146e3 / 0.135e3 * t2020 * t213;
5419   t2026 = 0.146e3 / 0.135e3 * t212 * t1765;
5420   t2027 = 0.10073e5 / 0.4199040e7 * t1850 + 0.73e2 / 0.9720e4 * t2015 - 0.73e2 / 0.9720e4 * t2018 - t2022 + 0.292e3 / 0.135e3 * t209 * t1763 + t2026;
5421   t2028 = t450 * t2027;
5422   t2031 = t1773 * t150 - 0.12e2 * t1220 * t518 + 0.2e1 * t516 * t627 + 0.54e2 * t762 * t1779 - 0.12e2 * t256 * t1782 - 0.12e2 * t256 * t1785 - t1790 + t24 * t1992 + t2004 * t217 + t632 * t650 / 0.5e1 - 0.9e1 / 0.100e3 * t195 * t2009 + t195 * t2028 / 0.10e2;
5423   t2038 = t1152 * t1763;
5424   t2041 = t1575 * t510;
5425   t2044 = t1160 * t1763;
5426   t2047 = t480 * t1765;
5427   t2049 = 0.6e1 * t256 * t2047;
5428   t2052 = t313 * t45;
5429   t2053 = t47 * t53;
5430   t2062 = 0.6e1 / 0.25e2 * t937 * t1791 - 0.10759796184905179200e-2 * t2052 * t2053 - 0.35684620164609053498e-1 * t37 * t1979 + 0.98e2 / 0.225e3 * t1183 * t1791 - 0.16737460732074723200e-2 * t495 * t1850;
5431   t2071 = -p->cam_beta * t2031 + t1773 * t231 - 0.12e2 * t1220 * t656 + 0.2e1 * t516 * t666 + 0.54e2 * t762 * t2038 - 0.12e2 * t256 * t2041 - 0.12e2 * t256 * t2044 - t2049 + t24 * t2062 + t2003 * t217 + t1598 * t649 / 0.5e1 - 0.9e1 / 0.100e3 * t1194 * t2008 + t501 * t2027 / 0.10e2;
5432   t2072 = t241 * t2071;
5433   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5434     v2sigma2[0] = -0.3e1 / 0.8e1 * t240 * t2072;
5435 
5436   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5437     v2sigmalapl[0] = 0.0e0;
5438 
5439   t2075 = t510 * t679;
5440   t2079 = my_piecewise3(t15, -t10 * t676 / 0.8e1, 0);
5441   t2080 = t16 * t2079;
5442   t2082 = t680 * t510;
5443   t2084 = t17 * t2079;
5444   t2086 = 0.2e1 * t2075 + 0.2e1 * t2080 + 0.18e2 * t2082 + 0.9e1 * t2084;
5445   t2087 = t2086 * t23;
5446   t2094 = t1634 * t510;
5447   t2097 = t1241 * t679;
5448   t2102 = t257 * t2079;
5449   t2105 = t516 * t102;
5450   t2109 = t37 * t1651 * t510;
5451   t2112 = t24 * t572;
5452   t2115 = t37 * t623;
5453   t2128 = 0.6e1 * t1220 * t682 + 0.6e1 * t1628 * t513 + 0.12e2 * t256 * t2082 + 0.6e1 * t256 * t2084 - 0.54e2 * t762 * t2094 - t2087;
5454   t2129 = t2128 * t194;
5455   t2135 = t1686 * t649;
5456   t2139 = 0.1e1 / t8 / t50;
5457   t2140 = t48 * t2139;
5458   t2142 = t36 * t510;
5459   t2149 = t41 * t679;
5460   t2151 = t37 * t2149 * t213;
5461   t2153 = t209 * t2079;
5462   t2159 = t37 * t640 * t679;
5463   t2163 = -0.73e2 / 0.58320e5 * t2140 - 0.73e2 / 0.270e3 * t691 * t2142 * t213 + 0.73e2 / 0.270e3 * t691 * t704 * t510 + 0.73e2 / 0.19440e5 * t2151 - 0.146e3 / 0.135e3 * t2153 * t213 + 0.292e3 / 0.135e3 * t708 * t510 - 0.73e2 / 0.19440e5 * t2159 + 0.146e3 / 0.135e3 * t212 * t2079;
5464   t2164 = t450 * t2163;
5465   t2167 = t2087 * t150 - 0.6e1 * t1628 * t518 + t685 * t627 - 0.6e1 * t1220 * t687 + 0.54e2 * t1226 * t2094 - 0.6e1 * t256 * t2097 - 0.12e2 * t1234 * t2082 - 0.6e1 * t256 * t2102 - 0.62888224691358024691e-1 * t2105 * t693 + 0.37732934814814814815e0 * t1650 * t2109 - 0.62888224691358024691e-1 * t2112 * t693 + 0.25155289876543209876e-1 * t1661 * t2115 + t2129 * t217 + t699 * t650 / 0.10e2 + t632 * t714 / 0.10e2 - 0.9e1 / 0.100e3 * t195 * t2135 + t195 * t2164 / 0.10e2;
5466   t2177 = t1575 * t679;
5467   t2182 = t480 * t2079;
5468   t2185 = t516 * t104;
5469   t2188 = t692 * t513;
5470   t2198 = t713 * t649;
5471   t2203 = -p->cam_beta * t2167 + t2087 * t231 - 0.6e1 * t1628 * t656 + t685 * t666 - 0.6e1 * t1220 * t720 + 0.54e2 * t1562 * t2094 - 0.6e1 * t256 * t2177 - 0.12e2 * t1568 * t2082 - 0.6e1 * t256 * t2182 - 0.62888224691358024691e-1 * t2185 * t114 + 0.37732934814814814815e0 * t1739 * t2188 + 0.25155289876543209876e-1 * t723 * t2115 + t2128 * t217 + t1749 * t649 / 0.10e2 + t1598 * t713 / 0.10e2 - 0.9e1 / 0.100e3 * t1194 * t2198 + t501 * t2163 / 0.10e2;
5472   t2204 = t241 * t2203;
5473   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5474     v2sigmatau[0] = -0.3e1 / 0.8e1 * t240 * t2204;
5475 
5476   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5477     v2lapl2[0] = 0.0e0;
5478 
5479   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5480     v2lapltau[0] = 0.0e0;
5481 
5482   t2207 = t679 * t679;
5483   t2210 = 0.1e1 / t675 / tau[0];
5484   t2213 = my_piecewise3(t15, t11 * t2210 / 0.4e1, 0);
5485   t2214 = t16 * t2213;
5486   t2216 = t16 * t2207;
5487   t2218 = t17 * t2213;
5488   t2220 = 0.2e1 * t2207 + 0.2e1 * t2214 + 0.18e2 * t2216 + 0.9e1 * t2218;
5489   t2221 = t2220 * t23;
5490   t2225 = t685 * t102;
5491   t2228 = t764 * t2207;
5492   t2232 = t37 * t1651 * t679;
5493   t2235 = t772 * t2207;
5494   t2238 = t257 * t2213;
5495   t2243 = t763 * t2207;
5496   t2250 = 0.12e2 * t1628 * t682 + 0.12e2 * t256 * t2216 + 0.6e1 * t256 * t2218 - 0.54e2 * t762 * t2243 - t2221;
5497   t2251 = t2250 * t194;
5498   t2255 = t713 * t713;
5499   t2256 = t1105 * t2255;
5500   t2260 = 0.1e1 / t8 / t271;
5501   t2264 = t36 * t679;
5502   t2271 = t209 * t2213;
5503   t2278 = 0.73e2 / 0.810e3 * t2260 * t45 * t47 - 0.73e2 / 0.135e3 * t691 * t2264 * t213 + 0.73e2 / 0.135e3 * t691 * t704 * t679 - 0.146e3 / 0.135e3 * t2271 * t213 + 0.292e3 / 0.135e3 * t209 * t2207 + 0.146e3 / 0.135e3 * t212 * t2213;
5504   t2279 = t450 * t2278;
5505   t2282 = t2221 * t150 - 0.12e2 * t1628 * t687 - 0.12577644938271604938e0 * t2225 * t693 + 0.54e2 * t762 * t2228 + 0.75465869629629629630e0 * t1650 * t2232 - 0.12e2 * t256 * t2235 - 0.6e1 * t256 * t2238 + t2251 * t217 + t699 * t714 / 0.5e1 - 0.9e1 / 0.100e3 * t195 * t2256 + t195 * t2279 / 0.10e2;
5506   t2287 = t685 * t104;
5507   t2290 = t1152 * t2207;
5508   t2293 = t692 * t682;
5509   t2296 = t1160 * t2207;
5510   t2299 = t480 * t2213;
5511   t2309 = -p->cam_beta * t2282 + t2221 * t231 - 0.12e2 * t1628 * t720 - 0.12577644938271604938e0 * t2287 * t114 + 0.54e2 * t762 * t2290 + 0.75465869629629629630e0 * t1739 * t2293 - 0.12e2 * t256 * t2296 - 0.6e1 * t256 * t2299 + t2250 * t217 + t1749 * t713 / 0.5e1 - 0.9e1 / 0.100e3 * t1194 * t2255 + t501 * t2278 / 0.10e2;
5512   t2310 = t241 * t2309;
5513   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5514     v2tau2[0] = -0.3e1 / 0.8e1 * t240 * t2310;
5515 
5516 #ifndef XC_DONT_COMPILE_KXC
5517 
5518   if(order < 3) return;
5519 
5520 
5521   t2313 = t7 * t104;
5522   t2323 = t739 * t246;
5523   t2324 = t231 * t2323;
5524   t2327 = t473 * t1141;
5525   t2330 = t498 * t16;
5526   t2331 = t2330 * t739;
5527   t2338 = t251 * t761;
5528   t2343 = t231 * t18;
5529   t2344 = t2343 * t2323;
5530   t2347 = 0.1e1 / t50;
5531   t2348 = sigma[0] * t2347;
5532   t2351 = my_piecewise3(t15, -0.3e1 / 0.4e1 * t2348 * t12, 0);
5533   t2352 = t480 * t2351;
5534   t2355 = t752 * t255;
5535   t2358 = t1188 * t17;
5536   t2359 = t2358 * t246;
5537   t2362 = t1156 * t745;
5538   t2365 = t498 * t763;
5539   t2366 = t2365 * t739;
5540   t2369 = -0.12e2 * t256 * t2324 - 0.27e2 / 0.100e3 * t1194 * t2327 - 0.36e2 * t256 * t2331 - 0.36e2 * t755 * t1157 - 0.18e2 * t755 * t1164 + 0.162e3 * t2338 * t1153 - 0.36e2 * t755 * t1161 + 0.324e3 * t762 * t2344 - 0.6e1 * t256 * t2352 - 0.18e2 * t2355 * t481 - 0.18e2 * t256 * t2359 - 0.18e2 * t256 * t2362 + 0.162e3 * t762 * t2366;
5541   t2371 = 0.1e1 / t760 / t21;
5542   t2372 = t20 * t2371;
5543   t2373 = t763 * t17;
5544   t2374 = t231 * t2373;
5545   t2375 = t2374 * t2323;
5546   t2378 = t246 * t745;
5547   t2383 = t247 * t745;
5548   t2385 = t17 * t2351;
5549   t2387 = 0.2e1 * t16 * t2351 + 0.18e2 * t2323 + 0.6e1 * t2378 + 0.54e2 * t2383 + 0.9e1 * t2385;
5550   t2388 = t2387 * t23;
5551   t2397 = t2373 * t2323;
5552   t2400 = t18 * t2323;
5553   t2404 = t763 * t246 * t745;
5554   t2413 = -0.162e3 * t2338 * t1036 + 0.12e2 * t256 * t2323 + 0.18e2 * t2355 * t249 + 0.648e3 * t2372 * t2397 + 0.36e2 * t256 * t2383 + 0.6e1 * t256 * t2385 - 0.324e3 * t762 * t2400 - 0.162e3 * t762 * t2404 + 0.36e2 * t755 * t748 + 0.18e2 * t755 * t750 - t2388;
5555   t2420 = t407 * t1105;
5556   t2423 = t216 * t216;
5557   t2425 = 0.1e1 / t449 / t2423;
5558   t2426 = t152 * t2425;
5559   t2427 = t1106 * t473;
5560   t2432 = t779 * t57;
5561   t2434 = 0.1e1 / t87 / t2432;
5562   t2435 = t782 * t283;
5563   t2438 = t937 * t283;
5564   t2441 = sigma[0] * t1797;
5565   t2442 = t37 * t2441;
5566   t2445 = 0.1e1 / t8 / t1987;
5567   t2447 = t48 * t49 * t2445;
5568   t2449 = -0.68652008559670781891e1 * t2442 - 0.66631034152449850453e0 * t2447;
5569   t2453 = tau[0] * t788;
5570   t2454 = 0.23717844740740740741e1 * t2453;
5571   t2460 = -0.29177103637860082304e1 * t2442 - 0.5e1 / 0.9e1 * (-t2454 - 0.54150879308641975309e0 * t2441) * t32 * t36;
5572   t2463 = t1177 * t351;
5573   t2466 = t492 * t781;
5574   t2472 = 0.1e1 / t112 / t2432;
5575   t2473 = t228 * t2472;
5576   t2476 = t283 * t804;
5577   t2481 = -0.66e2 / 0.125e3 * t2434 * t2435 + 0.18e2 / 0.25e2 * t2438 * t804 - t313 * t2449 / 0.5e1 + 0.7e1 / 0.9e1 * t2460 * t113 - 0.14e2 / 0.15e2 * t2463 * t283 + 0.98e2 / 0.75e2 * t2466 * t782 - 0.14e2 / 0.15e2 * t1180 * t804 - 0.392e3 / 0.375e3 * t2473 * t2435 + 0.98e2 / 0.75e2 * t1183 * t2476 - 0.14e2 / 0.45e2 * t495 * t2449;
5578   t2504 = (-0.440e3 / 0.27e2 * t2453 + 0.154e3 / 0.27e2 * t2441) * t32 * t36 / 0.4e1 - 0.308e3 / 0.243e3 * t2442;
5579   t2507 = t2504 * t16;
5580   t2515 = t462 * t745;
5581   t2522 = t209 * t2351;
5582   t2529 = -0.42625e5 / 0.177147e6 * t2447 - 0.1540e4 / 0.81e2 * t198 * t199 * t1797 + 0.584e3 / 0.135e3 * t462 * t1123 + 0.584e3 / 0.405e3 * t209 * t2504 - 0.146e3 / 0.135e3 * t2507 * t213 - 0.146e3 / 0.45e2 * t1123 * t246 * t213 + 0.146e3 / 0.45e2 * t1126 * t246 - 0.146e3 / 0.45e2 * t2515 * t213 + 0.292e3 / 0.45e2 * t462 * t739 + 0.146e3 / 0.45e2 * t465 * t745 - 0.146e3 / 0.135e3 * t2522 * t213 + 0.292e3 / 0.45e2 * t1134 * t246 + 0.146e3 / 0.135e3 * t212 * t2351;
5583   t2530 = t450 * t2529;
5584   t2533 = t2 * t2260;
5585   t2537 = t818 * t269;
5586   t2541 = t261 * t828;
5587   t2549 = 0.1e1 / t58 / t2432;
5588   t2550 = t30 * t2549;
5589   t2551 = t61 * t2435;
5590   t2555 = t284 * t804;
5591   t2559 = t61 * t2449;
5592   t2564 = my_piecewise3(t66, 0, -0.7e1 / 0.243e3 * t29 * t2533 * t62 - t267 * t2537 * t284 / 0.270e3 - 0.11e2 / 0.3600e4 * t267 * t2541 * t830 + t267 * t823 * t834 / 0.360e3 - 0.77e2 / 0.12000e5 * t267 * t2550 * t2551 + 0.11e2 / 0.1200e4 * t267 * t829 * t2555 - t267 * t270 * t2559 / 0.360e3);
5593   t2571 = t845 * t289;
5594   t2577 = 0.1e1 / t124;
5595   t2581 = t76 * t857;
5596   t2582 = t2581 * t2571;
5597   t2584 = t289 * t839;
5598   t2595 = t844 * t2571 * t76;
5599   t2597 = t857 * t289;
5600   t2598 = t2597 * t913;
5601   t2600 = 0.1e1 / t122;
5602   t2601 = t2600 * t2571;
5603   t2603 = 0.5e1 / 0.2e1 * t2601 * t76;
5604   t2610 = 0.1e1 / t125;
5605   t2611 = t2610 * t2571;
5606   t2621 = t69 * t2564 * t76;
5607   t2622 = 0.15e2 / 0.2e1 * t2595 - 0.6e1 * t2598 - t2603 + t295 * t2564 * t76 / 0.2e1 + 0.3e1 / 0.4e1 * t864 * t839 * t327 + t2611 * t76 / 0.8e1 - 0.12e2 * t1375 * t839 - 0.3e1 * t385 * t913 - 0.4e1 * t299 * t2564 - t2621;
5608   t2625 = 0.7e1 / 0.2e1 * t864 * t2571 * t76 - 0.3e1 / 0.2e1 * t1356 * t913 - t2577 * t2571 * t76 / 0.4e1 - 0.6e1 * t2582 + 0.6e1 * t849 * t2584 - t291 * t2564 + 0.2e1 * t2564 * t80 + 0.6e1 * t839 * t304 + 0.6e1 * t289 * t876 + 0.2e1 * t67 * t2622;
5609   t2628 = -0.8e1 / 0.3e1 * t2564 * t83 - 0.8e1 * t839 * t307 - 0.8e1 * t289 * t879 - 0.8e1 / 0.3e1 * t67 * t2625;
5610   t2630 = t882 * t313;
5611   t2637 = t86 * t2434;
5612   t2640 = t310 * t937;
5613   t2646 = t2454 - 0.19299635150617283950e1 * t2441;
5614   t2647 = t102 * t2646;
5615   t2654 = t67 * t926;
5616   t2661 = t118 * t2564;
5617   t2662 = 0.256e3 * t2661;
5618   t2664 = t67 * t2564;
5619   t2666 = t67 * t2571;
5620   t2667 = 0.1536e4 * t2666;
5621   t2668 = t358 * t839;
5622   t2669 = 0.2304e4 * t2668;
5623   t2670 = 0.120e3 * t2584 + 0.40e2 * t2664 - t2667 - t2669 - t2662;
5624   t2674 = t93 * t2610;
5625   t2675 = t2571 * t76;
5626   t2678 = t93 * t2600;
5627   t2681 = t2564 * t76;
5628   t2684 = t905 * t295;
5629   t2689 = t324 * t864;
5630   t2695 = t68 * t2564;
5631   t2699 = t324 * t857;
5632   t2702 = t93 * t844;
5633   t2705 = t327 * t839;
5634   t2710 = 0.20e2 * t2595 - 0.15e2 * t2598 + 0.10e2 * t2695 * t71 + t2667 + t2669 - 0.10e2 * t2621 - t2603 - 0.9e1 / 0.2e1 * t2699 * t910 + 0.6e1 * t2702 * t2675 - 0.9e1 / 0.2e1 * t909 * t2705 + 0.3e1 / 0.4e1 * t916 * t2705;
5635   t2711 = t2662 + t2670 * t76 - 0.216e3 * t2584 - 0.72e2 * t2664 + t2674 * t2675 / 0.8e1 - 0.9e1 / 0.4e1 * t2678 * t2675 + t326 * t2681 / 0.2e1 + 0.3e1 / 0.2e1 * t2684 * t327 + 0.3e1 / 0.2e1 * t907 * t913 + 0.3e1 / 0.4e1 * t2689 * t910 + t2710;
5636   t2714 = 0.144e3 * t1266 * t839 + 0.48e2 * t317 * t2564 + 0.144e3 * t2654 * t289 + 0.24e2 * t73 * t2711 + 0.144e3 * t845 * t335 + 0.144e3 * t893 * t839;
5637   t2715 = t2714 * t110;
5638   t2718 = t929 * t345;
5639   t2721 = t338 * t887;
5640   t2724 = t930 * t32;
5641   t2727 = t933 * t32;
5642   t2734 = t352 * t2449;
5643   t2747 = t67 * t378;
5644   t2750 = t73 * t999;
5645   t2756 = t127 * t844;
5646   t2759 = t137 * t864;
5647   t2765 = t366 * t857;
5648   t2768 = t74 * t2564;
5649   t2771 = t137 * t2577;
5650   t2776 = t2564 * t71;
5651   t2779 = 0.720e3 * t2675 * t74 + 0.72e2 * t371 * t2564 + 0.432e3 * t2747 * t845 + 0.216e3 * t2750 * t289 + 0.216e3 * t986 * t839 - 0.360e3 * t2582 + 0.6e1 * t2756 * t2675 + 0.7e1 * t2759 * t2675 - 0.12e2 * t384 * t857 * t2571 - 0.9e1 / 0.2e1 * t2765 * t910 - 0.2e1 * t384 * t2768 - t2771 * t2675 / 0.2e1 + 0.720e3 * t331 * t1005 + 0.240e3 * t96 * t2776;
5652   t2782 = t127 * t2610;
5653   t2787 = t366 * t864;
5654   t2790 = t127 * t2600;
5655   t2795 = t971 * t295;
5656   t2820 = 0.614400e6 * t118 * t2571 + 0.30720e5 * t120 * t2564 + 0.460800e6 * t360 * t839 + 0.1344e4 * t2584 - 0.5760e4 * t2661 + 0.448e3 * t2664 - 0.34560e5 * t2666 - 0.51840e5 * t2668;
5657   t2845 = t122 * t289;
5658   t2850 = -0.1105920e7 * t124 * t2564 + 0.26943e5 * t131 * t2564 - 0.61931520e8 * t131 * t2571 + 0.768e3 * t73 * t2564 - 0.2880e4 * t91 * t2564 - 0.34560e5 * t73 * t2571 + 0.808290e6 * t91 * t2571 - 0.26542080e8 * t2845 * t839 + 0.4608e4 * t320 * t839 - 0.34560e5 * t322 * t839 + 0.484974e6 * t376 * t839 - 0.8e1 * t2564 + 0.1536e4 * t2571;
5659   t2852 = -0.1440e4 * t874 * t327 + t2782 * t2675 / 0.8e1 + 0.432e3 * t983 * t2584 + 0.3e1 / 0.4e1 * t2787 * t910 - 0.9e1 / 0.4e1 * t2790 * t2675 + t368 * t2681 / 0.2e1 + 0.3e1 / 0.2e1 * t2795 * t327 + 0.3e1 / 0.2e1 * t973 * t913 - 0.9e1 / 0.2e1 * t975 * t2705 + 0.3e1 / 0.4e1 * t980 * t2705 - 0.3e1 * t1011 * t2705 + 0.12e2 * t384 * t296 * t839 + 0.24e2 * t118 * t2820 + 0.144e3 * t2571 * t133 + t2850 * t76;
5660   t2853 = t2779 + t2852;
5661   t2857 = (0.8e1 / 0.7e1 * t2564 * t141 + 0.24e2 / 0.7e1 * t839 * t388 + 0.24e2 / 0.7e1 * t289 * t1019 + 0.8e1 / 0.7e1 * t67 * t2853) * t32;
5662   t2858 = t2857 * t36;
5663   t2861 = t2628 * t88 - 0.3e1 / 0.5e1 * t2630 * t283 - 0.3e1 / 0.5e1 * t1027 * t804 - t314 * t2449 / 0.5e1 - 0.66e2 / 0.125e3 * t2637 * t2435 + 0.18e2 / 0.25e2 * t2640 * t782 + 0.18e2 / 0.25e2 * t938 * t2476 + 0.35e2 / 0.81e2 * t2647 * t114 + 0.35e2 / 0.81e2 * t2715 * t114 + 0.35e2 / 0.27e2 * t2718 * t114 + 0.35e2 / 0.27e2 * t2721 * t114 - 0.14e2 / 0.27e2 * t2724 * t353 - 0.28e2 / 0.27e2 * t2727 * t353 - 0.14e2 / 0.27e2 * t941 * t947 - 0.14e2 / 0.27e2 * t944 * t947 - 0.14e2 / 0.81e2 * t349 * t2734 + 0.26329605555555555556e-1 * t2858 * t147;
5664   t2866 = t888 * t32;
5665   t2873 = t36 * t2472;
5666   t2874 = t2873 * t2435;
5667   t2877 = t2441 * t113;
5668   t2880 = t813 * t2476;
5669   t2885 = t274 * t783;
5670   t2888 = t2472 * t2435;
5671   t2889 = t42 * t2888;
5672   t2892 = t351 * t2449;
5673   t2893 = t42 * t2892;
5674   t2896 = t274 * t805;
5675   t2901 = t789 * t399;
5676   t2908 = t1346 * t2476;
5677   t2911 = 0.98e2 / 0.135e3 * t941 * t814 + 0.98e2 / 0.135e3 * t944 * t814 - 0.14e2 / 0.27e2 * t2866 * t353 + 0.77233509629629629632e0 * t393 * t790 - 0.21063684444444444445e0 * t1024 * t396 - 0.392e3 / 0.675e3 * t349 * t2874 - 0.12014101497942386831e1 * t146 * t2877 + 0.98e2 / 0.135e3 * t349 * t2880 - 0.31595526666666666666e-1 * t1024 * t400 - 0.11795663288888888889e0 * t146 * t2885 - 0.35386989866666666666e-1 * t146 * t2889 - 0.10531842222222222222e-1 * t146 * t2893 + 0.84254737777777777777e-1 * t146 * t2896 - 0.31595526666666666666e-1 * t393 * t806 - 0.30893403851851851852e0 * t146 * t2901 + 0.16850947555555555555e0 * t393 * t793 + 0.44233737333333333333e-1 * t393 * t784 + 0.44233737333333333333e-1 * t1345 * t2908;
5678   t2912 = t2861 + t2911;
5679   t2914 = t1043 * t443;
5680   t2917 = t407 * t1099;
5681   t2920 = t2413 * t194;
5682   t2935 = t33 / t1076 / p->cam_omega;
5683   t2936 = t261 * t26;
5684   t2939 = t165 * t2 * t423;
5685   t2958 = t33 * t33;
5686   t2961 = t2958 / t1076 / t167;
5687   t2968 = t741 * t174;
5688   t2970 = t818 * t26;
5689   t2973 = t168 * t2 * t423;
5690   t2977 = t61 * (-0.16e2 / 0.27e2 * t1078 * t427 * t1079 - 0.32e2 / 0.3e1 * t2961 * t431 + 0.20e2 / 0.243e3 * t176 * t157 * t273 * t180 + 0.40e2 / 0.27e2 * t2968 + 0.10e2 / 0.81e2 * t2970 * t165 * t2973);
5691   t2982 = t61 * (0.40e2 / 0.9e1 * t1059 * t1087 + 0.16e2 / 0.27e2 * t2935 * t2936 * t2939 + 0.20e2 / 0.81e2 * t414 * t415 * t41 * t60 - 0.14e2 / 0.243e3 * t29 * t2533 * t185 + 0.2e1 / 0.27e2 * t29 * t819 * t434 - t29 * t262 * t1090 / 0.18e2 + t29 * t31 * t2977 / 0.18e2);
5692   t2986 = 0.56e2 / 0.729e3 * t29 * t2533 * t190 - 0.8e1 / 0.81e2 * t29 * t819 * t439 + 0.2e1 / 0.27e2 * t29 * t262 * t1095 - 0.2e1 / 0.27e2 * t29 * t31 * t2982;
5693   t2987 = t152 * t2986;
5694   t2989 = t1032 * t17;
5695   t2990 = t2989 * t246;
5696   t2995 = t403 * t16;
5697   t2996 = t2995 * t739;
5698   t3000 = t1105 * t473 * t1141;
5699   t3006 = 0.3e1 / 0.10e2 * t408 * t1142 + 0.3e1 / 0.10e2 * t444 * t1142 + 0.3e1 / 0.5e1 * t1046 * t474 + 0.3e1 / 0.10e2 * t1100 * t474 + t195 * t2530 / 0.10e2 + t24 * t2912 + 0.3e1 * t2914 * t217 + 0.3e1 * t2917 * t217 + t2920 * t217 + t2987 * t217 - 0.18e2 * t256 * t2990 - 0.18e2 * t2355 * t258 - 0.36e2 * t256 * t2996 - 0.27e2 / 0.100e3 * t195 * t3000 + 0.3e1 * t252 * t1032 + t2388 * t150;
5700   t3015 = t403 * t763;
5701   t3016 = t3015 * t739;
5702   t3019 = t150 * t2373;
5703   t3020 = t3019 * t2323;
5704   t3023 = t768 * t745;
5705   t3026 = t257 * t2351;
5706   t3031 = t2425 * t2427;
5707   t3036 = t150 * t18;
5708   t3037 = t3036 * t2323;
5709   t3048 = t150 * t2323;
5710   t3051 = -0.18e2 * t755 * t776 + 0.162e3 * t2338 * t765 - 0.36e2 * t755 * t773 - 0.36e2 * t755 * t769 + 0.162e3 * t762 * t3016 - 0.648e3 * t2372 * t3020 - 0.18e2 * t256 * t3023 - 0.6e1 * t256 * t3026 + 0.3e1 / 0.10e2 * t1044 * t474 + 0.171e3 / 0.1000e4 * t195 * t3031 - 0.27e2 / 0.100e3 * t408 * t1107 + 0.324e3 * t762 * t3037 + 0.3e1 * t753 * t403 + 0.162e3 * t1226 * t2404 - 0.36e2 * t1234 * t2383 - 0.27e2 / 0.100e3 * t444 * t1107 - 0.12e2 * t256 * t3048;
5711   t3056 = t1043 * t450;
5712   t3063 = -0.648e3 * t2372 * t2375 + t2413 * t217 + 0.3e1 * t252 * t1188 + t2388 * t231 + 0.3e1 * t753 * t498 - 0.27e2 / 0.100e3 * t2420 * t1106 + 0.171e3 / 0.1000e4 * t2426 * t2427 + 0.3e1 / 0.10e2 * t1191 * t1141 + t24 * t2481 - p->cam_beta * (t3006 + t3051) + t501 * t2529 / 0.10e2 + 0.3e1 / 0.10e2 * t3056 * t473 + 0.162e3 * t1562 * t2404 - 0.36e2 * t1568 * t2383;
5713   t3064 = t2369 + t3063;
5714   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5715     v3rho3[0] = t5 * t2313 * t234 / 0.9e1 - t5 * t733 * t504 / 0.2e1 - 0.3e1 / 0.2e1 * t5 * t9 * t1199 - 0.3e1 / 0.8e1 * t240 * t241 * t3064;
5716 
5717   t3068 = t177 * t2;
5718   t3074 = t1595 * t17;
5719   t3075 = t3074 * t246;
5720   t3082 = t1522 * t1330;
5721   t3084 = t36 * t788;
5722   t3085 = t637 * t3084;
5723   t3089 = t37 * t273 * t246 * t213;
5724   t3092 = t37 * t1527 * t246;
5725   t3094 = t41 * t745;
5726   t3096 = t37 * t3094 * t213;
5727   t3099 = t37 * t640 * t745;
5728   t3103 = t462 * t1210;
5729   t3110 = my_piecewise3(t15, t741 * t12 / 0.4e1, 0);
5730   t3111 = t209 * t3110;
5731   t3124 = t1123 * t510;
5732   t3127 = t1123 * t32;
5733   t3128 = t3127 * t619;
5734   t3131 = t37 * t41 * t739;
5735   t3134 = t48 * sigma[0] * t800;
5736   t3136 = t788 * t16;
5737   t3138 = t37 * t3136 * t213;
5738   t3140 = 0.292e3 / 0.10935e5 * t3082 - 0.1606e4 / 0.32805e5 * t3085 - 0.73e2 / 0.3645e4 * t3089 + 0.73e2 / 0.3645e4 * t3092 + 0.73e2 / 0.19440e5 * t3096 - 0.73e2 / 0.19440e5 * t3099 + 0.110e3 / 0.27e2 * t198 * t3084 - 0.292e3 / 0.135e3 * t3103 * t213 + 0.584e3 / 0.135e3 * t1538 * t246 - 0.146e3 / 0.135e3 * t3111 * t213 + 0.584e3 / 0.135e3 * t1541 * t246 + 0.292e3 / 0.135e3 * t644 * t745 + 0.146e3 / 0.135e3 * t1126 * t510 + 0.292e3 / 0.135e3 * t465 * t1210 + 0.146e3 / 0.135e3 * t212 * t3110 - 0.146e3 / 0.135e3 * t3124 * t213 - 0.73e2 / 0.14580e5 * t3128 - 0.73e2 / 0.9720e4 * t3131 + 0.8125e4 / 0.118098e6 * t3134 + 0.803e3 / 0.21870e5 * t3138;
5739   t3145 = t2358 * t510;
5740   t3152 = t515 * t761;
5741   t3157 = -0.12e2 * t755 * t1576 - 0.12e2 * t256 * t3075 + t1598 * t1141 / 0.10e2 + t3056 * t649 / 0.10e2 + t501 * t3140 / 0.10e2 - 0.12e2 * t755 * t1571 - 0.6e1 * t256 * t3145 - 0.12e2 * t1220 * t1157 - 0.6e1 * t1220 * t1164 + 0.54e2 * t3152 * t1153 - 0.6e1 * t2355 * t656;
5742   t3160 = t1575 * t745;
5743   t3163 = t666 * t763;
5744   t3164 = t3163 * t739;
5745   t3167 = t1217 * t255;
5746   t3170 = t18 * t510;
5747   t3171 = t3170 * t739;
5748   t3174 = t755 * t231;
5749   t3177 = t2338 * t231;
5750   t3180 = t762 * t498;
5751   t3183 = t763 * t1210;
5752   t3184 = t3183 * t246;
5753   t3187 = t1227 * t745;
5754   t3190 = t2372 * t231;
5755   t3191 = t2373 * t510;
5756   t3192 = t3191 * t739;
5757   t3195 = -0.24e2 * t3174 * t1213 + 0.108e3 * t3177 * t1228 + 0.108e3 * t3180 * t1228 + 0.324e3 * t1562 * t3171 + 0.108e3 * t1562 * t3184 + 0.54e2 * t1562 * t3187 - 0.12e2 * t755 * t1565 - 0.6e1 * t256 * t3160 + 0.54e2 * t762 * t3164 - 0.12e2 * t3167 * t481 - 0.648e3 * t3190 * t3192;
5758   t3197 = t256 * t498;
5759   t3200 = t1211 * t246;
5760   t3203 = t511 * t745;
5761   t3206 = t231 * t739;
5762   t3207 = t3206 * t510;
5763   t3210 = t649 * t1106;
5764   t3213 = t649 * t1141;
5765   t3216 = t631 * t1105;
5766   t3222 = t745 * t510;
5767   t3224 = t246 * t1210;
5768   t3226 = t16 * t3110;
5769   t3228 = t739 * t510;
5770   t3232 = t17 * t3110;
5771   t3234 = 0.2e1 * t3222 + 0.4e1 * t3224 + 0.2e1 * t3226 + 0.18e2 * t3228 + 0.36e2 * t3200 + 0.18e2 * t3203 + 0.9e1 * t3232;
5772   t3235 = t3234 * t23;
5773   t3239 = -0.24e2 * t3197 * t1213 - 0.24e2 * t1568 * t3200 - 0.12e2 * t1568 * t3203 - 0.12e2 * t256 * t3207 + 0.171e3 / 0.1000e4 * t2426 * t3210 - 0.9e1 / 0.100e3 * t1194 * t3213 - 0.9e1 / 0.100e3 * t3216 * t1106 + 0.2e1 * t1218 * t498 + t516 * t1188 + t3235 * t231 + 0.2e1 * t252 * t1595;
5774   t3240 = t2434 * t526;
5775   t3243 = t937 * t1255;
5776   t3251 = 0.14711144691358024691e1 * t37 * t788 + 0.18172100223395413760e0 * t3134;
5777   t3255 = t37 * t788 * t113;
5778   t3257 = t273 * t351;
5779   t3258 = t3257 * t283;
5780   t3261 = t1346 * t782;
5781   t3264 = t1391 * t804;
5782   t3273 = t526 * t782;
5783   t3276 = t1255 * t283;
5784   t3279 = t526 * t804;
5785   t3284 = -0.66e2 / 0.125e3 * t3240 * t782 + 0.12e2 / 0.25e2 * t3243 * t283 + 0.6e1 / 0.25e2 * t1579 * t804 - t313 * t3251 / 0.5e1 + 0.43614535756744398721e0 * t3255 + 0.95158987105624142663e-1 * t37 * t3258 + 0.24979234115226337449e-1 * t37 * t3261 - 0.17842310082304526749e-1 * t37 * t3264 - 0.14e2 / 0.45e2 * t2463 * t526 + 0.196e3 / 0.225e3 * t2466 * t1262 - 0.28e2 / 0.45e2 * t1180 * t1255 - 0.392e3 / 0.375e3 * t2473 * t3273 + 0.196e3 / 0.225e3 * t1183 * t3276 + 0.98e2 / 0.225e3 * t1183 * t3279 - 0.14e2 / 0.45e2 * t495 * t3251;
5786   t3288 = t1504 * t450;
5787   t3292 = t768 * t1210;
5788   t3302 = t1504 * t443;
5789   t3305 = t631 * t1099;
5790   t3339 = -0.54e2 * t3152 * t1036 + 0.24e2 * t755 * t1213 + 0.12e2 * t755 * t1215 + 0.12e2 * t1220 * t748 + 0.6e1 * t1220 * t750 - 0.108e3 * t2338 * t1228 + 0.6e1 * t2355 * t513 + 0.648e3 * t2372 * t3192 + 0.12e2 * t3167 * t249 + 0.24e2 * t256 * t3200 + 0.12e2 * t256 * t3203 + 0.12e2 * t256 * t3228 + 0.6e1 * t256 * t3232 - 0.324e3 * t762 * t3171 - 0.108e3 * t762 * t3184 - 0.54e2 * t762 * t3187 - t3235;
5791   t3340 = t3339 * t194;
5792   t3342 = t1241 * t745;
5793   t3347 = t1340 * t32;
5794   t3352 = t1327 * t32;
5795   t3355 = t1337 * t32;
5796   t3366 = t1334 * t32;
5797   t3379 = -0.28e2 / 0.81e2 * t944 * t1405 - 0.14620935720164609054e-1 * t3347 * t353 - 0.21063684444444444444e-1 * t393 * t1392 - 0.28e2 / 0.81e2 * t3352 * t353 - 0.28e2 / 0.81e2 * t3355 * t353 - 0.14042456296296296297e0 * t1481 * t396 + 0.56169825185185185185e-1 * t146 * t3258 - 0.10531842222222222222e-1 * t146 * t3264 - 0.14e2 / 0.81e2 * t1395 * t947 + 0.38989161920438957476e-1 * t3366 * t353 - 0.73104678600823045268e-2 * t1398 * t947 - 0.14e2 / 0.81e2 * t2724 * t579 - 0.28e2 / 0.81e2 * t2727 * t579 - 0.28e2 / 0.81e2 * t941 * t1405 - 0.14e2 / 0.81e2 * t2866 * t579;
5798   t3389 = t527 * t782;
5799   t3393 = t1278 * t283;
5800   t3397 = t527 * t804;
5801   t3401 = t61 * t3251;
5802   t3406 = my_piecewise3(t66, 0, -t267 * t2537 * t527 / 0.810e3 - 0.11e2 / 0.5400e4 * t267 * t2541 * t1274 + t267 * t823 * t1278 / 0.540e3 - 0.77e2 / 0.12000e5 * t267 * t2550 * t3389 + 0.11e2 / 0.1800e4 * t267 * t829 * t3393 + 0.11e2 / 0.3600e4 * t267 * t829 * t3397 - t267 * t270 * t3401 / 0.360e3);
5803   t3428 = t845 * t531;
5804   t3431 = t3406 * t71;
5805   t3436 = t289 * t1283;
5806   t3439 = t839 * t531;
5807   t3443 = t3406 * t76;
5808   t3449 = t1429 * t295;
5809   t3451 = t2581 * t3428;
5810   t3453 = t910 * t531;
5811   t3462 = t1307 * t289;
5812   t3465 = t561 * t839;
5813   t3470 = t368 * t3443 / 0.2e1 + t2795 * t561 / 0.2e1 + t973 * t1307 + t3449 * t327 - 0.360e3 * t3451 - t2771 * t3453 / 0.2e1 + 0.8e1 * t384 * t1369 * t289 + 0.4e1 * t384 * t536 * t839 - 0.3e1 * t975 * t3462 - 0.3e1 / 0.2e1 * t975 * t3465 - 0.9e1 / 0.4e1 * t2790 * t3453;
5814   t3494 = t67 * t3406;
5815   t3496 = t555 * t845;
5816   t3498 = t1414 * t289;
5817   t3500 = t584 * t839;
5818   t3502 = t118 * t3406;
5819   t3510 = t120 * t3406;
5820   t3512 = 0.307200e6 * t1418 * t289 + 0.614400e6 * t557 * t845 + 0.153600e6 * t586 * t839 + 0.896e3 * t3436 + 0.448e3 * t3439 + 0.448e3 * t3494 - 0.34560e5 * t3496 - 0.34560e5 * t3498 - 0.17280e5 * t3500 - 0.5760e4 * t3502 + 0.30720e5 * t3510;
5821   t3515 = t980 * t3462 / 0.2e1 + t980 * t3465 / 0.4e1 + t2782 * t3453 / 0.8e1 - t1011 * t3465 - 0.2e1 * t1011 * t3462 - 0.3e1 * t2765 * t1304 + t2787 * t1304 / 0.2e1 + 0.6e1 * t2756 * t3453 + 0.7e1 * t2759 * t3453 - 0.12e2 * t384 * t1320 * t845 + 0.24e2 * t118 * t3512;
5822   t3522 = t73 * t3406;
5823   t3530 = t91 * t3406;
5824   t3542 = t122 * t1283;
5825   t3549 = -0.1105920e7 * t124 * t3406 + 0.3072e4 * t1291 * t289 - 0.23040e5 * t1295 * t289 + 0.26943e5 * t131 * t3406 - 0.8847360e7 * t1424 * t839 + 0.323316e6 * t1457 * t289 - 0.17694720e8 * t3542 * t289 + 0.1536e4 * t555 * t839 - 0.11520e5 * t557 * t839 - 0.34560e5 * t584 * t845 + 0.808290e6 * t586 * t845 - 0.61931520e8 * t588 * t845 + 0.161658e6 * t600 * t839 - 0.8e1 * t3406 + 0.1536e4 * t3428 + 0.768e3 * t3522 - 0.2880e4 * t3530;
5826   t3551 = t67 * t602;
5827   t3554 = t845 * t133;
5828   t3561 = t73 * t1459;
5829   t3570 = t592 * t864;
5830   t3573 = t592 * t857;
5831   t3576 = t3549 * t76 + 0.144e3 * t3551 * t845 + 0.144e3 * t3554 * t531 + 0.144e3 * t986 * t1283 + 0.72e2 * t371 * t3406 + 0.144e3 * t3561 * t289 + 0.72e2 * t1448 * t839 + 0.72e2 * t2750 * t531 + t1431 * t913 / 0.2e1 + t3570 * t910 / 0.4e1 - 0.3e1 / 0.2e1 * t3573 * t910;
5832   t3578 = -0.2e1 * t384 * t74 * t3406 + 0.288e3 * t2747 * t1289 - 0.960e3 * t1317 * t327 + 0.480e3 * t331 * t1464 + 0.720e3 * t3428 * t291 + 0.240e3 * t96 * t3431 + 0.288e3 * t983 * t3436 + 0.144e3 * t983 * t3439 - 0.480e3 * t541 * t913 + 0.240e3 * t921 * t605 + t3470 + t3515 + t3576;
5833   t3582 = (0.8e1 / 0.7e1 * t3406 * t141 + 0.16e2 / 0.7e1 * t1283 * t388 + 0.8e1 / 0.7e1 * t531 * t1019 + 0.8e1 / 0.7e1 * t839 * t611 + 0.16e2 / 0.7e1 * t289 * t1476 + 0.8e1 / 0.7e1 * t67 * t3578) * t32;
5834   t3583 = t3582 * t36;
5835   t3588 = t1326 * t345;
5836   t3591 = t572 * t887;
5837   t3594 = t929 * t41;
5838   t3597 = t839 * t99;
5839   t3600 = t289 * t335;
5840   t3613 = t67 * t1323;
5841   t3639 = t1297 * t295;
5842   t3643 = t559 * t864;
5843   t3648 = t916 * t3465 / 0.4e1 + t2674 * t3453 / 0.8e1 - 0.3e1 * t2699 * t1304 + t2689 * t1304 / 0.2e1 - 0.3e1 * t909 * t3462 - 0.3e1 / 0.2e1 * t909 * t3465 - 0.9e1 / 0.4e1 * t2678 * t3453 + t916 * t3462 / 0.2e1 + 0.6e1 * t2702 * t3453 + t907 * t1307 + t326 * t3443 / 0.2e1 + t3639 * t327 + t1299 * t913 / 0.2e1 + t3643 * t910 / 0.4e1 + t2684 * t561 / 0.2e1;
5844   t3649 = t559 * t857;
5845   t3652 = t844 * t531;
5846   t3653 = t3652 * t910;
5847   t3655 = t857 * t1283;
5848   t3656 = t3655 * t327;
5849   t3658 = t2600 * t531;
5850   t3660 = 0.5e1 / 0.2e1 * t3658 * t910;
5851   t3661 = t1320 * t913;
5852   t3664 = t69 * t3406 * t76;
5853   t3666 = 0.256e3 * t3502;
5854   t3671 = 0.1536e4 * t3496;
5855   t3672 = 0.1536e4 * t3498;
5856   t3673 = 0.768e3 * t3500;
5857   t3674 = 0.40e2 * t3439 + 0.80e2 * t3436 + 0.40e2 * t3494 - t3671 - t3672 - t3673 - t3666;
5858   t3681 = -0.3e1 / 0.2e1 * t3649 * t910 + 0.20e2 * t3653 - 0.10e2 * t3656 - t3660 - 0.5e1 * t3661 - 0.10e2 * t3664 + t3666 - 0.72e2 * t3494 + t3674 * t76 - 0.72e2 * t3439 - 0.144e3 * t3436 + t3671 + t3672 + t3673 + 0.10e2 * t68 * t3406 * t71;
5859   t3682 = t3648 + t3681;
5860   t3685 = 0.96e2 * t1266 * t1283 + 0.96e2 * t893 * t1283 + 0.48e2 * t1286 * t839 + 0.48e2 * t2654 * t531 + 0.96e2 * t3613 * t289 + 0.48e2 * t317 * t3406 + 0.48e2 * t3597 * t531 + 0.96e2 * t3600 * t531 + 0.24e2 * t73 * t3682 + 0.48e2 * t845 * t569;
5861   t3686 = t3685 * t110;
5862   t3699 = t549 * t937;
5863   t3702 = t352 * t3251;
5864   t3709 = 0.26329605555555555556e-1 * t3583 * t147 + 0.26329605555555555556e-1 * t1023 * t620 + 0.70e2 / 0.81e2 * t3588 * t114 + 0.35e2 / 0.81e2 * t3591 * t114 + 0.18276169650205761317e-1 * t3594 * t114 + 0.35e2 / 0.81e2 * t3686 * t114 - 0.66e2 / 0.125e3 * t2637 * t3273 - 0.14042456296296296297e0 * t392 * t1331 - 0.2e1 / 0.5e1 * t1027 * t1255 - t314 * t3251 / 0.5e1 - t1484 * t804 / 0.5e1 + 0.6e1 / 0.25e2 * t3699 * t782 - 0.14e2 / 0.81e2 * t349 * t3702 + 0.10234655004115226338e-1 * t1398 * t814 + 0.98e2 / 0.405e3 * t1395 * t814;
5865   t3727 = t844 * t839;
5866   t3730 = t2577 * t845;
5867   t3753 = t295 * t3406;
5868   t3756 = t864 * t1283;
5869   t3761 = t2610 * t531;
5870   t3764 = t839 * t77;
5871   t3774 = 0.15e2 / 0.2e1 * t3653 - 0.4e1 * t3656 - t3660 - 0.2e1 * t3661 + t3753 * t76 / 0.2e1 + t3756 * t327 / 0.2e1 + t1372 * t913 / 0.4e1 + t3761 * t910 / 0.8e1 - 0.4e1 * t3764 * t531 - 0.8e1 * t1375 * t1283 - t1016 * t561 - 0.2e1 * t385 * t1307 - 0.4e1 * t299 * t3406 - t3664;
5872   t3777 = 0.7e1 / 0.2e1 * t865 * t561 - t3727 * t561 / 0.2e1 - t3730 * t561 / 0.4e1 - t1356 * t1307 - 0.6e1 * t3451 + 0.4e1 * t849 * t3436 + 0.2e1 * t849 * t3439 - t291 * t3406 + 0.2e1 * t3406 * t80 + 0.4e1 * t1283 * t304 + 0.2e1 * t531 * t876 + 0.2e1 * t839 * t543 + 0.4e1 * t289 * t1381 + 0.2e1 * t67 * t3774;
5873   t3780 = -0.8e1 / 0.3e1 * t3406 * t83 - 0.16e2 / 0.3e1 * t1283 * t307 - 0.8e1 / 0.3e1 * t531 * t879 - 0.8e1 / 0.3e1 * t839 * t546 - 0.16e2 / 0.3e1 * t289 * t1384 - 0.8e1 / 0.3e1 * t67 * t3777;
5874   t3782 = t1387 * t313;
5875   t3793 = t351 * t3251;
5876   t3794 = t42 * t3793;
5877   t3801 = t274 * t1256;
5878   t3806 = t3084 * t113;
5879   t3809 = t102 * t788;
5880   t3812 = 0.14744579111111111111e-1 * t146 * t3261 + 0.25744503209876543210e0 * t616 * t790 + t3780 * t88 - 0.2e1 / 0.5e1 * t3782 * t283 - t2630 * t526 / 0.5e1 + 0.12e2 / 0.25e2 * t2640 * t1262 + 0.12e2 / 0.25e2 * t938 * t3276 + 0.6e1 / 0.25e2 * t938 * t3279 - 0.10531842222222222222e-1 * t146 * t3794 - 0.21063684444444444444e-1 * t393 * t1257 - 0.10531842222222222222e-1 * t1024 * t624 + 0.56169825185185185184e-1 * t146 * t3801 + 0.56169825185185185184e-1 * t393 * t1245 + 0.25744503209876543210e0 * t145 * t3806 + 0.17870032546867855510e0 * t3809 * t114;
5881   t3813 = t2873 * t3273;
5882   t3818 = t789 * t623;
5883   t3823 = t813 * t3276;
5884   t3826 = t813 * t3279;
5885   t3837 = t338 * t273;
5886   t3840 = t1346 * t3276;
5887   t3843 = t1346 * t3279;
5888   t3846 = t273 * t781;
5889   t3847 = t3846 * t1262;
5890   t3850 = t392 * t199;
5891   t3853 = t41 * t2472;
5892   t3854 = t3853 * t3273;
5893   t3857 = -0.392e3 / 0.675e3 * t349 * t3813 + 0.14744579111111111111e-1 * t616 * t784 - 0.10297801283950617284e0 * t146 * t3818 + 0.196e3 / 0.405e3 * t944 * t1263 + 0.196e3 / 0.405e3 * t349 * t3823 + 0.98e2 / 0.405e3 * t349 * t3826 - 0.10531842222222222222e-1 * t616 * t806 + 0.196e3 / 0.405e3 * t941 * t1263 + 0.56169825185185185185e-1 * t616 * t793 - 0.21063684444444444444e-1 * t1481 * t400 - 0.97472904801097393690e-1 * t3837 * t114 + 0.29489158222222222222e-1 * t1345 * t3840 + 0.14744579111111111111e-1 * t1345 * t3843 - 0.78637755259259259258e-1 * t1345 * t3847 + 0.29489158222222222222e-1 * t3850 * t1347 - 0.35386989866666666666e-1 * t1345 * t3854;
5894   t3859 = t3379 + t3709 + t3812 + t3857;
5895   t3861 = t1105 * t1550;
5896   t3862 = t3861 * t473;
5897   t3865 = t1515 * t1141;
5898   t3868 = -0.12e2 * t256 * t3292 + 0.324e3 * t1226 * t3171 + t516 * t1032 - 0.9e1 / 0.50e2 * t444 * t1516 - 0.9e1 / 0.50e2 * t408 * t1516 + 0.2e1 * t3302 * t217 + t3305 * t217 + t3340 * t217 - 0.6e1 * t256 * t3342 + t24 * t3859 - 0.9e1 / 0.50e2 * t195 * t3862 - 0.9e1 / 0.100e3 * t195 * t3865;
5899   t3872 = t2989 * t510;
5900   t3875 = t762 * t403;
5901   t3878 = t256 * t403;
5902   t3889 = t2372 * t150;
5903   t3892 = t755 * t150;
5904   t3895 = t2338 * t150;
5905   t3898 = t1492 * t17;
5906   t3899 = t3898 * t246;
5907   t3902 = -0.24e2 * t3878 * t1213 - 0.24e2 * t3892 * t1213 + 0.2e1 * t1218 * t403 + 0.108e3 * t1226 * t3184 + 0.54e2 * t1226 * t3187 + 0.108e3 * t3875 * t1228 + 0.108e3 * t3895 * t1228 - 0.24e2 * t1234 * t3200 - 0.12e2 * t1234 * t3203 + t3235 * t150 - 0.6e1 * t256 * t3872 - 0.12e2 * t256 * t3899 - 0.648e3 * t3889 * t3192;
5908   t3904 = t257 * t3110;
5909   t3909 = t627 * t763;
5910   t3910 = t3909 * t739;
5911   t3933 = -0.6e1 * t256 * t3904 - 0.12e2 * t755 * t1242 + 0.54e2 * t762 * t3910 - 0.12e2 * t755 * t1237 - 0.6e1 * t1220 * t776 + 0.54e2 * t3152 * t765 - 0.12e2 * t3167 * t258 - 0.6e1 * t2355 * t518 - 0.12e2 * t755 * t1231 + 0.2e1 * t252 * t1492 + t1505 * t474 / 0.5e1 + t1507 * t474 / 0.5e1 + t632 * t1142 / 0.10e2;
5912   t3938 = t150 * t739;
5913   t3939 = t3938 * t510;
5914   t3947 = t2425 * t649 * t1106;
5915   t3950 = t627 * t16;
5916   t3951 = t3950 * t739;
5917   t3961 = t450 * t3140;
5918   t3966 = t408 * t1551 / 0.5e1 + t1100 * t650 / 0.10e2 - 0.12e2 * t256 * t3939 - 0.12e2 * t1220 * t769 - 0.9e1 / 0.100e3 * t632 * t1107 + 0.171e3 / 0.1000e4 * t195 * t3947 - 0.12e2 * t256 * t3951 - 0.12e2 * t1220 * t773 + t753 * t627 + t1044 * t650 / 0.10e2 + t1046 * t650 / 0.5e1 + t195 * t3961 / 0.10e2 + t444 * t1551 / 0.5e1;
5919   t3973 = t480 * t3110;
5920   t3976 = t666 * t16;
5921   t3977 = t3976 * t739;
5922   t3982 = t1550 * t473;
5923   t3985 = t1156 * t1210;
5924   t3988 = t24 * t3284 + t1191 * t1550 / 0.5e1 + t3288 * t473 / 0.5e1 + t753 * t666 - p->cam_beta * (t3868 + t3902 + t3933 + t3966) - 0.9e1 / 0.50e2 * t2420 * t1603 + t3339 * t217 - 0.6e1 * t256 * t3973 - 0.12e2 * t256 * t3977 - 0.12e2 * t1220 * t1161 - 0.9e1 / 0.50e2 * t1194 * t3982 - 0.12e2 * t256 * t3985;
5925   t3991 = t241 * (t3157 + t3195 + t3239 + t3988);
5926   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5927     v3rho2sigma[0] = -t3068 * t672 / 0.6e1 - t1203 * t1609 - 0.3e1 / 0.8e1 * t240 * t3991;
5928 
5929   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
5930     v3rho2lapl[0] = 0.0e0;
5931 
5932   t4001 = t684 * t761;
5933   t4026 = t1123 * t679;
5934   t4029 = t462 * t1618;
5935   t4036 = my_piecewise3(t15, -t742 * t676 / 0.4e1, 0);
5936   t4037 = t209 * t4036;
5937   t4050 = -0.292e3 / 0.243e3 * t1523 + 0.1168e4 / 0.729e3 * t1525 + 0.73e2 / 0.81e2 * t1533 - 0.73e2 / 0.81e2 * t1536 + 0.146e3 / 0.405e3 * t1123 * t104 * t37 + 0.73e2 / 0.135e3 * t691 * t36 * t739 - 0.73e2 / 0.270e3 * t691 * t36 * t745 * t213 + 0.73e2 / 0.270e3 * t691 * t704 * t745 - 0.292e3 / 0.243e3 * t1529 - 0.146e3 / 0.135e3 * t4026 * t213 - 0.292e3 / 0.135e3 * t4029 * t213 + 0.584e3 / 0.135e3 * t1702 * t246 - 0.146e3 / 0.135e3 * t4037 * t213 + 0.584e3 / 0.135e3 * t1705 * t246 + 0.292e3 / 0.135e3 * t708 * t745 + 0.146e3 / 0.135e3 * t1126 * t679 + 0.292e3 / 0.135e3 * t465 * t1618 + 0.146e3 / 0.135e3 * t212 * t4036;
5938   t4051 = t450 * t4050;
5939   t4062 = t256 * t576;
5940   t4065 = t113 * t16;
5941   t4067 = t37 * t4065 * t739;
5942   t4071 = t37 * t1651 * t745;
5943   t4074 = t762 * t1649;
5944   t4075 = t113 * t763;
5945   t4077 = t37 * t4075 * t739;
5946   t4080 = t755 * t1649;
5947   t4083 = t338 * t104;
5948   t4084 = t256 * t4083;
5949   t4089 = t745 * t679;
5950   t4091 = t246 * t1618;
5951   t4093 = t16 * t4036;
5952   t4095 = t739 * t679;
5953   t4097 = t1619 * t246;
5954   t4099 = t680 * t745;
5955   t4101 = t17 * t4036;
5956   t4103 = 0.2e1 * t4089 + 0.4e1 * t4091 + 0.2e1 * t4093 + 0.18e2 * t4095 + 0.36e2 * t4097 + 0.18e2 * t4099 + 0.9e1 * t4101;
5957   t4104 = t4103 * t23;
5958   t4106 = t1634 * t745;
5959   t4109 = t2373 * t679;
5960   t4110 = t4109 * t739;
5961   t4113 = t195 * t4051 / 0.10e2 - 0.6e1 * t2355 * t687 - 0.12e2 * t755 * t1638 - 0.9e1 / 0.100e3 * t699 * t1107 - 0.9e1 / 0.50e2 * t444 * t1687 - 0.12577644938271604938e1 * t4062 * t1653 + 0.75465869629629629630e0 * t1650 * t4067 + 0.37732934814814814815e0 * t1650 * t4071 - 0.33959641333333333334e1 * t4074 * t4077 + 0.75465869629629629630e0 * t4080 * t1653 + 0.75465869629629629630e0 * t4084 * t1653 + 0.2e1 * t1626 * t403 + t4104 * t150 + 0.54e2 * t1226 * t4106 - 0.648e3 * t3889 * t4110;
5962   t4126 = t763 * t1618;
5963   t4127 = t4126 * t246;
5964   t4130 = t252 * t338;
5965   t4139 = t24 * t929;
5966   t4142 = t753 * t102;
5967   t4148 = -0.24e2 * t1234 * t4097 - 0.12e2 * t1234 * t4099 - 0.24e2 * t3878 * t1621 - 0.24e2 * t3892 * t1621 + 0.108e3 * t3895 * t1635 + 0.108e3 * t3875 * t1635 + 0.108e3 * t1226 * t4127 - 0.12577644938271604938e0 * t4130 * t693 - 0.27950322085048010973e0 * t690 * t1585 + 0.20962741563786008230e0 * t1656 * t662 + 0.20962741563786008230e0 * t1646 * t662 - 0.62888224691358024691e-1 * t4139 * t693 - 0.62888224691358024691e-1 * t4142 * t693 + t685 * t1032 + t1676 * t474 / 0.5e1;
5968   t4158 = t1625 * t255;
5969   t4161 = t18 * t679;
5970   t4162 = t4161 * t739;
5971   t4167 = t1649 * t32;
5972   t4168 = t256 * t4167;
5973   t4169 = t249 * t283;
5974   t4170 = t352 * t4169;
5975   t4173 = t1675 * t443;
5976   t4176 = t698 * t1099;
5977   t4188 = t699 * t1142 / 0.10e2 - 0.12e2 * t755 * t1643 - 0.6e1 * t1628 * t776 + 0.54e2 * t4001 * t765 - 0.12e2 * t4158 * t258 + 0.324e3 * t1226 * t4162 - 0.12e2 * t1628 * t773 - 0.30186347851851851852e0 * t4168 * t4170 + 0.2e1 * t4173 * t217 + t4176 * t217 + t408 * t1715 / 0.5e1 + t1100 * t714 / 0.10e2 + t1678 * t474 / 0.5e1 + t1044 * t714 / 0.10e2 + t1046 * t714 / 0.5e1;
5978   t4189 = t768 * t1618;
5979   t4194 = t2425 * t713;
5980   t4195 = t4194 * t1106;
5981   t4198 = t3938 * t679;
5982   t4201 = t257 * t4036;
5983   t4206 = t2989 * t679;
5984   t4209 = t1105 * t1714;
5985   t4210 = t4209 * t473;
5986   t4213 = t37 * t805;
5987   t4216 = t24 * t576;
5988   t4219 = t24 * t4083;
5989   t4222 = t252 * t1649;
5990   t4225 = t37 * t783;
5991   t4262 = -0.54e2 * t4001 * t1036 + 0.24e2 * t755 * t1621 + 0.12e2 * t755 * t1623 + 0.12e2 * t1628 * t748 + 0.6e1 * t1628 * t750 - 0.108e3 * t2338 * t1635 + 0.6e1 * t2355 * t682 + 0.648e3 * t2372 * t4110 + 0.12e2 * t4158 * t249 + 0.12e2 * t256 * t4095 + 0.24e2 * t256 * t4097 + 0.12e2 * t256 * t4099 + 0.6e1 * t256 * t4101 - 0.54e2 * t762 * t4106 - 0.108e3 * t762 * t4127 - 0.324e3 * t762 * t4162 - t4104;
5992   t4263 = t4262 * t194;
5993   t4265 = t1686 * t1141;
5994   t4268 = -0.12e2 * t256 * t4189 - 0.12e2 * t1628 * t769 + 0.171e3 / 0.1000e4 * t195 * t4195 - 0.12e2 * t256 * t4198 - 0.6e1 * t256 * t4201 - 0.9e1 / 0.50e2 * t408 * t1687 - 0.6e1 * t256 * t4206 - 0.9e1 / 0.50e2 * t195 * t4210 + 0.25155289876543209876e-1 * t1661 * t4213 - 0.83850966255144032920e-1 * t4216 * t1662 + 0.50310579753086419752e-1 * t4219 * t1662 + 0.50310579753086419752e-1 * t4222 * t1662 - 0.35217405827160493826e-1 * t1661 * t4225 + t444 * t1715 / 0.5e1 + t4263 * t217 - 0.9e1 / 0.100e3 * t195 * t4265;
5995   t4272 = t2358 * t679;
5996   t4275 = t1156 * t1618;
5997   t4278 = t480 * t4036;
5998   t4287 = -0.12e2 * t1628 * t1157 - 0.6e1 * t1628 * t1164 + 0.54e2 * t4001 * t1153 - 0.6e1 * t2355 * t720 - 0.9e1 / 0.50e2 * t2420 * t1754 - p->cam_beta * (t4113 + t4148 + t4188 + t4268) - 0.6e1 * t256 * t4272 - 0.12e2 * t256 * t4275 - 0.6e1 * t256 * t4278 - 0.12e2 * t4158 * t481 - 0.12e2 * t755 * t1728 - 0.12e2 * t755 * t1733;
5999   t4294 = t1675 * t450;
6000   t4304 = t1714 * t473;
6001   t4307 = t713 * t1141;
6002   t4310 = t3206 * t679;
6003   t4313 = t713 * t1106;
6004   t4316 = -0.30186347851851851852e0 * t1739 * t4170 + t3056 * t713 / 0.10e2 + t1191 * t1714 / 0.5e1 + t4294 * t473 / 0.5e1 + t1749 * t1141 / 0.10e2 + 0.2e1 * t1626 * t498 + t685 * t1188 + t4104 * t231 + t4262 * t217 - 0.9e1 / 0.50e2 * t1194 * t4304 - 0.9e1 / 0.100e3 * t1194 * t4307 - 0.12e2 * t256 * t4310 + 0.171e3 / 0.1000e4 * t2426 * t4313;
6005   t4342 = -0.12e2 * t1628 * t1161 + 0.50310579753086419752e-1 * t1736 * t1662 - 0.83850966255144032920e-1 * t1743 * t1662 + 0.25155289876543209876e-1 * t723 * t4213 - 0.35217405827160493826e-1 * t723 * t4225 + t501 * t4050 / 0.10e2 - 0.24e2 * t3174 * t1621 + 0.108e3 * t3177 * t1635 + 0.108e3 * t3180 * t1635 + 0.108e3 * t1562 * t4127 + 0.54e2 * t1562 * t4106 - 0.648e3 * t3190 * t4110;
6006   t4349 = t753 * t104;
6007   t4354 = t252 * t41;
6008   t4357 = t24 * t273;
6009   t4360 = t698 * t1105;
6010   t4363 = t41 * t32;
6011   t4364 = t256 * t4363;
6012   t4367 = t692 * t748;
6013   t4370 = t755 * t691;
6014   t4373 = t692 * t750;
6015   t4376 = t762 * t691;
6016   t4377 = t692 * t1036;
6017   t4380 = -0.24e2 * t3197 * t1621 - 0.24e2 * t1568 * t4097 - 0.12e2 * t1568 * t4099 - 0.62888224691358024691e-1 * t4349 * t114 + 0.324e3 * t1562 * t4162 + 0.20962741563786008230e0 * t4354 * t114 - 0.27950322085048010973e0 * t4357 * t114 - 0.9e1 / 0.100e3 * t4360 * t1106 - 0.12577644938271604938e1 * t4364 * t1740 + 0.75465869629629629630e0 * t1739 * t4367 + 0.75465869629629629630e0 * t4370 * t1740 + 0.37732934814814814815e0 * t1739 * t4373 - 0.33959641333333333334e1 * t4376 * t4377;
6018   t4383 = t241 * (t4287 + t4316 + t4342 + t4380);
6019   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6020     v3rho2tau[0] = -t3068 * t730 / 0.6e1 - t1203 * t1760 - 0.3e1 / 0.8e1 * t240 * t4383;
6021 
6022   t4388 = t2003 * t450;
6023   t4395 = t1772 * t255;
6024   t4402 = t1156 * t1765;
6025   t4403 = t256 * t4402;
6026   t4404 = 0.6e1 * t4403;
6027   t4405 = t2062 * t17;
6028   t4406 = t4405 * t246;
6029   t4411 = t2330 * t1763;
6030   t4414 = -t2049 + t4388 * t473 / 0.10e2 + 0.2e1 * t1218 * t666 - 0.12e2 * t1220 * t1571 - 0.6e1 * t4395 * t481 - 0.12e2 * t3167 * t656 - 0.12e2 * t1220 * t1565 - t4404 - 0.6e1 * t256 * t4406 - 0.12e2 * t755 * t2044 - 0.12e2 * t256 * t4411;
6031   t4415 = t231 * t246;
6032   t4416 = t4415 * t1763;
6033   t4419 = t755 * t2047;
6034   t4420 = 0.6e1 * t4419;
6035   t4421 = t3074 * t510;
6036   t4424 = t1575 * t1210;
6037   t4427 = t2027 * t473;
6038   t4430 = t2008 * t473;
6039   t4433 = t649 * t1550;
6040   t4440 = t510 * t1210;
6041   t4442 = t246 * t1765;
6042   t4443 = 0.2e1 * t4442;
6043   t4444 = t246 * t1763;
6044   t4446 = t511 * t1210;
6045   t4448 = t1766 * t246;
6046   t4449 = 0.18e2 * t4448;
6047   t4450 = 0.4e1 * t4440 + t4443 + t1767 + 0.18e2 * t4444 + 0.36e2 * t4446 + t4449 + t1771;
6048   t4451 = t4450 * t23;
6049   t4454 = -0.12e2 * t256 * t4416 - t4420 - 0.12e2 * t256 * t4421 - 0.12e2 * t256 * t4424 - 0.9e1 / 0.100e3 * t1194 * t4427 + 0.171e3 / 0.1000e4 * t2426 * t4430 - 0.9e1 / 0.50e2 * t1194 * t4433 - 0.9e1 / 0.50e2 * t3216 * t1603 + 0.2e1 * t516 * t1595 + t4451 * t231 + t1773 * t498;
6050   t4456 = t2434 * t1791;
6051   t4461 = t937 * t45;
6052   t4462 = t2053 * t283;
6053   t4465 = t47 * t279;
6054   t4468 = t3257 * t526;
6055   t4471 = t781 * t526;
6056   t4472 = t4471 * t283;
6057   t4475 = t1391 * t1255;
6058   t4480 = t1791 * t283;
6059   t4483 = t526 * t1255;
6060   t4488 = t1183 * t45;
6061   t4491 = t48 * t279;
6062   t4494 = -0.66e2 / 0.125e3 * t4456 * t283 + 0.12e2 / 0.25e2 * t1579 * t1255 + 0.12911755421886215040e-2 * t4461 * t4462 + 0.57385579652827622400e-2 * t2052 * t4465 + 0.95158987105624142661e-1 * t37 * t4468 + 0.49958468230452674897e-1 * t521 * t4472 - 0.35684620164609053498e-1 * t37 * t4475 + 0.98e2 / 0.225e3 * t2466 * t1791 - 0.392e3 / 0.375e3 * t2473 * t4480 + 0.196e3 / 0.225e3 * t1183 * t4483 - 0.16737460732074723200e-2 * t1180 * t1850 + 0.23432445024904612480e-2 * t4488 * t4462 + 0.89266457237731857067e-2 * t495 * t4491;
6063   t4496 = t1220 * t231;
6064   t4499 = t3152 * t231;
6065   t4502 = t18 * t1763;
6066   t4503 = t4502 * t246;
6067   t4506 = t1227 * t1210;
6068   t4509 = t2373 * t1763;
6069   t4510 = t4509 * t246;
6070   t4513 = t256 * t666;
6071   t4516 = t762 * t666;
6072   t4521 = t1568 * t4448;
6073   t4522 = 0.12e2 * t4521;
6074   t4523 = t763 * t1765;
6075   t4524 = t4523 * t246;
6076   t4525 = t1562 * t4524;
6077   t4526 = 0.54e2 * t4525;
6078   t4527 = -0.24e2 * t4496 * t1213 - 0.24e2 * t4513 * t1213 + 0.108e3 * t4499 * t1228 + 0.108e3 * t4516 * t1228 + 0.324e3 * t1562 * t4503 + 0.108e3 * t1562 * t4506 - 0.24e2 * t1568 * t4446 + t24 * t4494 - 0.648e3 * t3190 * t4510 - t4522 + t4526;
6079   t4529 = t273 * t510;
6080   t4531 = t37 * t4529 * t213;
6081   t4533 = t41 * t1210;
6082   t4535 = t37 * t4533 * t213;
6083   t4538 = t37 * t2013 * t246;
6084   t4541 = t37 * t1527 * t510;
6085   t4544 = t37 * t640 * t1210;
6086   t4546 = t462 * t1765;
6087   t4547 = t4546 * t213;
6088   t4548 = 0.146e3 / 0.135e3 * t4547;
6089   t4549 = t2020 * t246;
6090   t4550 = 0.292e3 / 0.135e3 * t4549;
6091   t4555 = t465 * t1765;
6092   t4556 = 0.146e3 / 0.135e3 * t4555;
6093   t4557 = -0.10073e5 / 0.787320e6 * t4491 - 0.73e2 / 0.3645e4 * t4531 + 0.73e2 / 0.9720e4 * t4535 - 0.73e2 / 0.4860e4 * t4538 + 0.73e2 / 0.3645e4 * t4541 - 0.73e2 / 0.9720e4 * t4544 - t4548 - t2022 + t4550 + 0.292e3 / 0.135e3 * t462 * t1763 + 0.584e3 / 0.135e3 * t644 * t1210 + t4556 + t2026;
6094   t4566 = t450 * t4557;
6095   t4571 = t256 * t627;
6096   t4574 = t762 * t627;
6097   t4579 = t1234 * t4448;
6098   t4580 = 0.12e2 * t4579;
6099   t4581 = t1226 * t4524;
6100   t4582 = 0.54e2 * t4581;
6101   t4589 = t1220 * t150;
6102   t4592 = t444 * t2028 / 0.10e2 + t195 * t4566 / 0.10e2 + t1507 * t650 / 0.5e1 - 0.24e2 * t4571 * t1213 + 0.108e3 * t4574 * t1228 - 0.24e2 * t1234 * t4446 - t4580 + t4582 + 0.324e3 * t1226 * t4503 + 0.108e3 * t1226 * t4506 - 0.648e3 * t3889 * t4510 - 0.24e2 * t4589 * t1213;
6103   t4593 = t1992 * t17;
6104   t4594 = t4593 * t246;
6105   t4597 = t1515 * t1550;
6106   t4604 = t2995 * t1763;
6107   t4607 = t1241 * t1210;
6108   t4612 = t768 * t1765;
6109   t4613 = t256 * t4612;
6110   t4614 = 0.6e1 * t4613;
6111   t4615 = t755 * t1788;
6112   t4616 = 0.6e1 * t4615;
6113   t4617 = t572 * t273;
6114   t4620 = t531 * t99;
6115   t4625 = t289 * t569;
6116   t4639 = t1792 * t283;
6117   t4643 = t527 * t1255;
6118   t4648 = 0.1e1 / t39 / t277;
6119   t4654 = t28 * t266 * t1797;
6120   t4655 = t828 * t61;
6121   t4656 = t48 * t283;
6122   t4657 = t4655 * t4656;
6123   t4661 = my_piecewise3(t66, 0, -0.11e2 / 0.10800e5 * t267 * t2541 * t1792 - 0.77e2 / 0.12000e5 * t267 * t2550 * t4639 + 0.11e2 / 0.1800e4 * t267 * t829 * t4643 + 0.84683581084901873333e-4 * t267 * t4648 * t269 * t1800 + 0.16438577504716246000e-4 * t4654 * t4657);
6124   t4664 = t67 * t1884;
6125   t4667 = t1810 * t289;
6126   t4668 = t4667 * t76;
6127   t4671 = t1872 * t289;
6128   t4676 = t561 * t1283;
6129   t4689 = t1811 * t327;
6130   t4691 = t1320 * t1307;
6131   t4693 = t2600 * t1810;
6132   t4695 = 0.5e1 / 0.2e1 * t4693 * t327;
6133   t4696 = t857 * t1805;
6134   t4697 = t4696 * t327;
6135   t4699 = t1909 * t289;
6136   t4700 = 0.1536e4 * t4699;
6137   t4701 = t584 * t1283;
6138   t4702 = 0.1536e4 * t4701;
6139   t4703 = -0.9e1 / 0.4e1 * t2678 * t4668 - 0.3e1 / 0.2e1 * t909 * t4671 + t916 * t4671 / 0.4e1 + t916 * t4676 / 0.2e1 + t2674 * t4668 / 0.8e1 - 0.3e1 * t3649 * t1304 + t3643 * t1304 / 0.2e1 + 0.6e1 * t2702 * t4668 - 0.3e1 * t909 * t4676 + 0.20e2 * t4689 - 0.10e2 * t4691 - t4695 - 0.5e1 * t4697 + t4700 + t4702;
6140   t4704 = t1911 * t289;
6141   t4705 = 0.768e3 * t4704;
6142   t4709 = t69 * t4661;
6143   t4710 = t4709 * t76;
6144   t4714 = t1866 * t295;
6145   t4723 = t4661 * t76;
6146   t4726 = t118 * t4661;
6147   t4727 = 0.256e3 * t4726;
6148   t4728 = t531 * t1283;
6149   t4730 = t289 * t1805;
6150   t4732 = t67 * t4661;
6151   t4734 = 0.80e2 * t4728 + 0.40e2 * t4730 + 0.40e2 * t4732 - t4700 - t4702 - t4705 - t4727;
6152   t4739 = t4705 + 0.10e2 * t68 * t4661 * t71 - 0.10e2 * t4710 + t2689 * t1869 / 0.4e1 + t4714 * t327 / 0.2e1 + t3639 * t561 + t1299 * t1307 - 0.3e1 / 0.2e1 * t2699 * t1869 + t907 * t1872 / 0.2e1 + t326 * t4723 / 0.2e1 + t4727 + t4734 * t76 - 0.144e3 * t4728 - 0.72e2 * t4730 - 0.72e2 * t4732;
6153   t4740 = t4703 + t4739;
6154   t4743 = 0.48e2 * t1266 * t1805 + 0.96e2 * t1286 * t1283 + 0.96e2 * t4620 * t1283 + 0.48e2 * t893 * t1805 + 0.48e2 * t1810 * t335 + 0.48e2 * t4664 * t289 + 0.48e2 * t317 * t4661 + 0.96e2 * t3613 * t531 + 0.96e2 * t4625 * t531 + 0.24e2 * t73 * t4740;
6155   t4744 = t4743 * t110;
6156   t4751 = t1326 * t41;
6157   t4754 = t781 * t53;
6158   t4755 = t4754 * t283;
6159   t4758 = t1887 * t345;
6160   t4763 = t1988 * t781;
6161   t4764 = t4763 * t283;
6162   t4773 = t1987 * rho[0];
6163   t4774 = 0.1e1 / t4773;
6164   t4775 = t4774 * t351;
6165   t4778 = -0.97472904801097393691e-1 * t4617 * t114 + 0.35e2 / 0.81e2 * t4744 * t114 - 0.10759796184905179200e-2 * t1027 * t1850 - 0.14042456296296296297e0 * t615 * t1331 + 0.36552339300411522634e-1 * t4751 * t114 + 0.80185688269845662151e-4 * t111 * t4755 + 0.35e2 / 0.81e2 * t4758 * t114 + 0.52659211111111111112e-1 * t1480 * t620 + 0.48860531717430776419e-5 * t1986 * t4764 - 0.14620935720164609054e-1 * t1398 * t1405 + 0.98e2 / 0.405e3 * t941 * t1898 + 0.98e2 / 0.405e3 * t944 * t1898 + 0.27920303838531872239e-4 * t1986 * t4775;
6166   t4805 = t1925 * t295;
6167   t4813 = t2581 * t4667;
6168   t4833 = t1431 * t1307 - 0.3e1 / 0.2e1 * t2765 * t1869 - 0.360e3 * t4813 - t2771 * t4668 / 0.2e1 - 0.12e2 * t384 * t1821 * t289 + 0.8e1 * t384 * t536 * t1283 - 0.3e1 * t3573 * t1304 + 0.4e1 * t384 * t1824 * t289 - t1011 * t4671 + t3570 * t1304 / 0.2e1 + 0.6e1 * t2756 * t4668;
6169   t4858 = -0.3e1 * t975 * t4676 - 0.9e1 / 0.4e1 * t2790 * t4668 - 0.3e1 / 0.2e1 * t975 * t4671 + t980 * t4671 / 0.4e1 + t980 * t4676 / 0.2e1 + t2782 * t4668 / 0.8e1 + 0.7e1 * t2759 * t4668 - 0.2e1 * t1011 * t4676 - 0.2e1 * t384 * t74 * t4661 + 0.720e3 * t1869 * t385 + 0.240e3 * t331 * t1954;
6170   t4859 = t4661 * t71;
6171   t4877 = t120 * t4661;
6172   t4879 = 0.307200e6 * t586 * t1283 + 0.614400e6 * t1913 * t289 + 0.153600e6 * t1915 * t289 - 0.34560e5 * t4699 - 0.34560e5 * t4701 - 0.17280e5 * t4704 - 0.5760e4 * t4726 + 0.896e3 * t4728 + 0.448e3 * t4730 + 0.448e3 * t4732 + 0.30720e5 * t4877;
6173   t4888 = t73 * t4661;
6174   t4896 = t91 * t4661;
6175   t4906 = t131 * t1810;
6176   t4911 = t122 * t1805;
6177   t4916 = -0.1105920e7 * t124 * t4661 - 0.17694720e8 * t1424 * t1283 + 0.3072e4 * t555 * t1283 - 0.23040e5 * t557 * t1283 + 0.323316e6 * t600 * t1283 + 0.26943e5 * t131 * t4661 + 0.1536e4 * t1860 * t289 - 0.34560e5 * t1862 * t289 - 0.11520e5 * t1864 * t289 + 0.808290e6 * t1944 * t289 + 0.161658e6 * t1946 * t289 - 0.61931520e8 * t4906 * t289 - 0.8847360e7 * t4911 * t289 - 0.8e1 * t4661 + 0.1536e4 * t4667 + 0.768e3 * t4888 - 0.2880e4 * t4896;
6178   t4924 = t73 * t1948;
6179   t4927 = t289 * t133;
6180   t4934 = 0.24e2 * t118 * t4879 + 0.144e3 * t1448 * t1283 + 0.72e2 * t986 * t1805 + 0.144e3 * t2747 * t1810 + 0.144e3 * t4927 * t1810 - 0.480e3 * t1836 * t327 + 0.72e2 * t4924 * t289 + 0.144e3 * t3561 * t531 + 0.72e2 * t371 * t4661 + 0.240e3 * t96 * t4859 + t4916 * t76;
6181   t4936 = -0.960e3 * t541 * t1307 + 0.480e3 * t565 * t1464 + 0.288e3 * t983 * t4728 + 0.288e3 * t3551 * t1289 + 0.144e3 * t983 * t4730 + t973 * t1872 / 0.2e1 + t368 * t4723 / 0.2e1 + t2787 * t1869 / 0.4e1 + t4805 * t327 / 0.2e1 + t3449 * t561 + t4833 + t4858 + t4934;
6182   t4940 = (0.8e1 / 0.7e1 * t4661 * t141 + 0.8e1 / 0.7e1 * t1805 * t388 + 0.16e2 / 0.7e1 * t1283 * t611 + 0.16e2 / 0.7e1 * t531 * t1476 + 0.8e1 / 0.7e1 * t289 * t1967 + 0.8e1 / 0.7e1 * t67 * t4936) * t32;
6183   t4941 = t4940 * t36;
6184   t4944 = t938 * t45;
6185   t4947 = t274 * t1982;
6186   t4962 = t2873 * t4480;
6187   t4965 = t813 * t4483;
6188   t4974 = 0.26329605555555555556e-1 * t4941 * t147 + 0.12911755421886215040e-2 * t4944 * t4462 - 0.39318877629629629629e-1 * t146 * t4947 + 0.56169825185185185184e-1 * t616 * t1245 + 0.29489158222222222222e-1 * t146 * t1347 + 0.14744579111111111111e-1 * t393 * t1983 - 0.21063684444444444444e-1 * t616 * t1257 - 0.21063684444444444444e-1 * t1481 * t624 - 0.10531842222222222222e-1 * t1972 * t400 - 0.392e3 / 0.675e3 * t349 * t4962 + 0.196e3 / 0.405e3 * t349 * t4965 + 0.196e3 / 0.405e3 * t1395 * t1263 + 0.20469310008230452676e-1 * t1398 * t1263 - 0.2e1 / 0.5e1 * t1484 * t1255;
6189   t4976 = t1844 * t313;
6190   t4989 = t391 * sigma[0];
6191   t5004 = -t4976 * t283 / 0.5e1 - 0.2e1 / 0.5e1 * t3782 * t526 + 0.56169825185185185184e-1 * t146 * t4468 - 0.70212281481481481483e-1 * t1972 * t396 + 0.38989161920438957477e-1 * t3366 * t579 + 0.57385579652827622400e-2 * t314 * t4491 - 0.34900379798164840299e-5 * t4989 * t1989 + 0.12e2 / 0.25e2 * t3699 * t1262 - 0.66e2 / 0.125e3 * t2637 * t4480 + 0.12e2 / 0.25e2 * t938 * t4483 - 0.57275491621318330108e-4 * t346 * t1901 - 0.57275491621318330108e-4 * t339 * t1901 + 0.6e1 / 0.25e2 * t2640 * t1791;
6192   t5018 = t2577 * t1810;
6193   t5042 = t295 * t4661;
6194   t5045 = t864 * t1805;
6195   t5050 = t2610 * t1810;
6196   t5053 = t531 * t77;
6197   t5063 = 0.15e2 / 0.2e1 * t4689 - 0.4e1 * t4691 - t4695 - 0.2e1 * t4697 + t5042 * t76 / 0.2e1 + t5045 * t327 / 0.4e1 + t1372 * t1307 / 0.2e1 + t5050 * t327 / 0.8e1 - 0.8e1 * t5053 * t1283 - 0.2e1 * t608 * t1307 - 0.4e1 * t1375 * t1805 - t385 * t1872 - 0.4e1 * t299 * t4661 - t4710;
6198   t5066 = 0.7e1 / 0.2e1 * t1827 * t327 - t3652 * t1307 - t5018 * t327 / 0.4e1 - 0.6e1 * t4813 + 0.4e1 * t849 * t4728 - t1356 * t1872 / 0.2e1 + 0.2e1 * t849 * t4730 - t291 * t4661 + 0.2e1 * t4661 * t80 + 0.2e1 * t1805 * t304 + 0.4e1 * t1283 * t543 + 0.4e1 * t531 * t1381 + 0.2e1 * t289 * t1838 + 0.2e1 * t67 * t5063;
6199   t5069 = -0.8e1 / 0.3e1 * t4661 * t83 - 0.8e1 / 0.3e1 * t1805 * t307 - 0.16e2 / 0.3e1 * t1283 * t546 - 0.16e2 / 0.3e1 * t531 * t1384 - 0.8e1 / 0.3e1 * t289 * t1841 - 0.8e1 / 0.3e1 * t67 * t5066;
6200   t5071 = t3853 * t4480;
6201   t5074 = t1346 * t4483;
6202   t5077 = t615 * t199;
6203   t5086 = t1888 * t32;
6204   t5089 = t1891 * t32;
6205   t5100 = t351 * t279;
6206   t5103 = t5069 * t88 - 0.35386989866666666666e-1 * t1345 * t5071 + 0.29489158222222222222e-1 * t1345 * t5074 + 0.29489158222222222222e-1 * t5077 * t1347 - 0.21063684444444444445e-1 * t616 * t1392 - 0.21063684444444444444e-1 * t393 * t1979 - 0.21063684444444444444e-1 * t146 * t4475 - 0.14e2 / 0.81e2 * t5086 * t353 - 0.14620935720164609054e-1 * t5089 * t353 - 0.28e2 / 0.81e2 * t3352 * t579 - 0.28e2 / 0.81e2 * t3355 * t579 - 0.28e2 / 0.81e2 * t1395 * t1405 - 0.14620935720164609054e-1 * t3347 * t579 + 0.30546928864703109391e-3 * t111 * t5100;
6207   t5105 = t4778 + t4974 + t5004 + t5103;
6208   t5107 = t150 * t246;
6209   t5108 = t5107 * t1763;
6210   t5111 = -t1790 - 0.6e1 * t256 * t4594 - 0.9e1 / 0.50e2 * t195 * t4597 + t632 * t1551 / 0.5e1 - 0.12e2 * t755 * t1782 - 0.12e2 * t256 * t4604 - 0.12e2 * t256 * t4607 - 0.12e2 * t755 * t1785 - t4614 - t4616 + t24 * t5105 - 0.12e2 * t256 * t5108;
6211   t5113 = t2425 * t2008;
6212   t5114 = t5113 * t473;
6213   t5117 = t1105 * t2027;
6214   t5118 = t5117 * t473;
6215   t5131 = t3152 * t150;
6216   t5134 = t3898 * t510;
6217   t5142 = 0.171e3 / 0.1000e4 * t195 * t5114 - 0.9e1 / 0.100e3 * t195 * t5118 - 0.9e1 / 0.50e2 * t632 * t1516 - 0.9e1 / 0.100e3 * t408 * t2009 - 0.9e1 / 0.100e3 * t444 * t2009 + t2004 * t474 / 0.10e2 + t1505 * t650 / 0.5e1 + 0.108e3 * t5131 * t1228 - 0.12e2 * t256 * t5134 + t252 * t1992 + t408 * t2028 / 0.10e2 - 0.12e2 * t1220 * t1237;
6218   t5147 = t3015 * t1763;
6219   t5182 = t755 * t1770;
6220   t5183 = 0.6e1 * t5182;
6221   t5184 = t762 * t4524;
6222   t5185 = 0.54e2 * t5184;
6223   t5186 = t256 * t4448;
6224   t5187 = 0.12e2 * t5186;
6225   t5188 = 0.24e2 * t1220 * t1213 + 0.12e2 * t1220 * t1215 - 0.108e3 * t3152 * t1228 + 0.12e2 * t755 * t1768 - 0.54e2 * t2338 * t1996 + 0.648e3 * t2372 * t4510 + 0.6e1 * t4395 * t249 + 0.12e2 * t256 * t4444 + 0.24e2 * t256 * t4446 + 0.12e2 * t3167 * t513 - 0.324e3 * t762 * t4503 - 0.108e3 * t762 * t4506 + t2002 - t4451 + t5183 - t5185 + t5187;
6226   t5189 = t5188 * t194;
6227   t5191 = t2003 * t443;
6228   t5197 = 0.2e1 * t1218 * t627 - 0.12e2 * t1220 * t1231 - 0.12e2 * t1220 * t1242 + 0.2e1 * t516 * t1492 + t4451 * t150 + t1773 * t403 + 0.54e2 * t2338 * t1779 + t5189 * t217 + t5191 * t217 - 0.6e1 * t4395 * t258 - 0.12e2 * t3167 * t518 + 0.54e2 * t762 * t5147;
6229   t5201 = t2365 * t1763;
6230   t5216 = t501 * t4557 / 0.10e2 + t3288 * t649 / 0.5e1 + t1191 * t2027 / 0.10e2 - p->cam_beta * (t4592 + t5111 + t5142 + t5197) + 0.54e2 * t762 * t5201 - 0.12e2 * t755 * t2041 - 0.12e2 * t1220 * t1576 + 0.54e2 * t2338 * t2038 + t5188 * t217 + t1598 * t1550 / 0.5e1 - 0.9e1 / 0.100e3 * t2420 * t2008 + t252 * t2062;
6231   t5219 = t241 * (t4414 + t4454 + t4527 + t5216);
6232   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6233     v3rhosigma2[0] = -t1203 * t2072 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t5219;
6234 
6235   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6236     v3rhosigmalapl[0] = 0.0e0;
6237 
6238   t5224 = t4161 * t1206;
6239   t5227 = t4109 * t1206;
6240   t5234 = t37 * t1256;
6241   t5243 = t510 * t1618;
6242   t5245 = t246 * t2079;
6243   t5249 = my_piecewise3(t15, t242 * t676 / 0.8e1, 0);
6244   t5250 = t16 * t5249;
6245   t5252 = t1614 * t510;
6246   t5254 = t1619 * t510;
6247   t5256 = t680 * t1210;
6248   t5258 = t2080 * t246;
6249   t5260 = t17 * t5249;
6250   t5262 = 0.2e1 * t1210 * t679 + 0.2e1 * t5243 + 0.2e1 * t5245 + 0.2e1 * t5250 + 0.18e2 * t5252 + 0.18e2 * t5254 + 0.18e2 * t5256 + 0.18e2 * t5258 + 0.9e1 * t5260;
6251   t5263 = t5262 * t23;
6252   t5270 = t2128 * t450;
6253   t5277 = t36 * t1210;
6254   t5288 = t273 * t679;
6255   t5290 = t37 * t5288 * t213;
6256   t5292 = t41 * t1618;
6257   t5294 = t37 * t5292 * t213;
6258   t5297 = t37 * t2149 * t246;
6259   t5299 = t462 * t2079;
6260   t5302 = t209 * t5249;
6261   t5314 = t37 * t1527 * t679;
6262   t5317 = t37 * t640 * t1618;
6263   t5323 = 0.949e3 / 0.174960e6 * t1850 + 0.73e2 / 0.162e3 * t2015 - 0.73e2 / 0.270e3 * t691 * t5277 * t213 + 0.73e2 / 0.135e3 * t691 * t2142 * t246 - 0.73e2 / 0.162e3 * t2018 + 0.73e2 / 0.270e3 * t691 * t704 * t1210 - 0.73e2 / 0.7290e4 * t5290 + 0.73e2 / 0.19440e5 * t5294 - 0.73e2 / 0.9720e4 * t5297 - 0.146e3 / 0.135e3 * t5299 * t213 - 0.146e3 / 0.135e3 * t5302 * t213 + 0.292e3 / 0.135e3 * t2153 * t246 + 0.292e3 / 0.135e3 * t1702 * t510 + 0.292e3 / 0.135e3 * t1705 * t510 + 0.292e3 / 0.135e3 * t708 * t1210 + 0.73e2 / 0.7290e4 * t5314 - 0.73e2 / 0.19440e5 * t5317 + 0.146e3 / 0.135e3 * t465 * t2079 + 0.146e3 / 0.135e3 * t212 * t5249;
6264   t5328 = t2086 * t255;
6265   t5349 = 0.12e2 * t1628 * t1213 + 0.6e1 * t1628 * t1215 + 0.12e2 * t1220 * t1621 + 0.6e1 * t1220 * t1623 - 0.54e2 * t4001 * t1228 - 0.54e2 * t3152 * t1635 - 0.54e2 * t2338 * t2094 + 0.6e1 * t5328 * t249 + 0.6e1 * t3167 * t682 + 0.6e1 * t4158 * t513 - t5263;
6266   t5350 = t2372 * t2373;
6267   t5353 = t762 * t18;
6268   t5356 = t4126 * t510;
6269   t5359 = t1634 * t1210;
6270   t5372 = t763 * t2079;
6271   t5373 = t5372 * t246;
6272   t5380 = 0.12e2 * t755 * t2082 + 0.6e1 * t755 * t2084 + 0.12e2 * t256 * t5252 + 0.12e2 * t256 * t5254 + 0.12e2 * t256 * t5256 + 0.12e2 * t256 * t5258 + 0.6e1 * t256 * t5260 + 0.648e3 * t5350 * t5252 - 0.324e3 * t5353 * t5252 - 0.54e2 * t762 * t5356 - 0.54e2 * t762 * t5359 - 0.54e2 * t762 * t5373;
6273   t5381 = t5349 + t5380;
6274   t5383 = 0.324e3 * t1562 * t5224 - 0.648e3 * t3190 * t5227 + 0.25155289876543209876e-1 * t2185 * t1662 + 0.25155289876543209876e-1 * t1736 * t2115 + 0.25155289876543209876e-1 * t723 * t5234 + t1626 * t666 + t685 * t1595 + t1598 * t1714 / 0.10e2 + t5263 * t231 + t2087 * t498 + t1749 * t1550 / 0.10e2 + t3288 * t713 / 0.10e2 + t5270 * t473 / 0.10e2 + t4294 * t649 / 0.10e2 + t501 * t5323 / 0.10e2 + t1191 * t2163 / 0.10e2 + t5381 * t217;
6275   t5384 = t252 * t572;
6276   t5387 = t24 * t1326;
6277   t5390 = t1218 * t102;
6278   t5393 = t516 * t338;
6279   t5396 = t1105 * t2163;
6280   t5397 = t5396 * t473;
6281   t5404 = t5381 * t194;
6282   t5406 = t2128 * t443;
6283   t5412 = t3898 * t679;
6284   t5427 = t1241 * t1618;
6285   t5432 = -0.62888224691358024691e-1 * t5384 * t693 - 0.62888224691358024691e-1 * t5387 * t693 - 0.62888224691358024691e-1 * t5390 * t693 - 0.62888224691358024691e-1 * t5393 * t693 - 0.9e1 / 0.100e3 * t195 * t5397 + 0.10481370781893004115e0 * t2112 * t662 + 0.10481370781893004115e0 * t2105 * t662 + t5404 * t217 + t5406 * t217 - 0.6e1 * t1628 * t1231 - 0.6e1 * t1628 * t1237 - 0.6e1 * t256 * t5412 - 0.6e1 * t5328 * t258 - 0.6e1 * t4158 * t518 - 0.6e1 * t1220 * t1638 - 0.6e1 * t1220 * t1643 - 0.6e1 * t1628 * t1242 - 0.6e1 * t3167 * t687 - 0.6e1 * t256 * t5427 - 0.6e1 * t755 * t2102;
6286   t5433 = t768 * t2079;
6287   t5436 = t257 * t5249;
6288   t5443 = t4209 * t649;
6289   t5458 = t526 * t17;
6290   t5460 = t352 * t5458 * t246;
6291   t5464 = t352 * t513 * t283;
6292   t5467 = t692 * t1213;
6293   t5470 = t762 * t4167;
6294   t5471 = t692 * t1228;
6295   t5480 = -0.6e1 * t256 * t5433 - 0.6e1 * t256 * t5436 - 0.9e1 / 0.100e3 * t699 * t1516 - 0.9e1 / 0.100e3 * t444 * t2135 - 0.9e1 / 0.100e3 * t195 * t5443 + t5263 * t150 + t2087 * t403 + t685 * t1492 + 0.324e3 * t1226 * t5224 - 0.648e3 * t3889 * t5227 - 0.9e1 / 0.100e3 * t632 * t1687 - 0.9e1 / 0.100e3 * t408 * t2135 + t1626 * t627 - 0.15093173925925925926e0 * t4168 * t5460 - 0.15093173925925925926e0 * t4168 * t5464 + 0.75465869629629629630e0 * t4168 * t5467 - 0.33959641333333333334e1 * t5470 * t5471 - 0.12e2 * t3878 * t2082 - 0.12e2 * t1234 * t5252 - 0.12e2 * t1234 * t5254;
6296   t5490 = t1628 * t150;
6297   t5493 = t4001 * t150;
6298   t5496 = t1686 * t1550;
6299   t5519 = t450 * t5323;
6300   t5526 = -0.12e2 * t1234 * t5256 + 0.54e2 * t5131 * t1635 + 0.54e2 * t3895 * t2094 - 0.12e2 * t4589 * t1621 - 0.12e2 * t5490 * t1213 + 0.54e2 * t5493 * t1228 - 0.9e1 / 0.100e3 * t195 * t5496 + 0.54e2 * t3875 * t2094 + 0.54e2 * t1226 * t5356 + 0.54e2 * t1226 * t5359 + t2129 * t474 / 0.10e2 + t1507 * t714 / 0.10e2 + t699 * t1551 / 0.10e2 + t1505 * t714 / 0.10e2 + t1678 * t650 / 0.10e2 + t632 * t1715 / 0.10e2 + t1676 * t650 / 0.10e2 + t195 * t5519 / 0.10e2 + t408 * t2164 / 0.10e2 + t444 * t2164 / 0.10e2;
6301   t5531 = t572 * t104;
6302   t5532 = t24 * t5531;
6303   t5539 = t516 * t1649;
6304   t5544 = t195 * t2425;
6305   t5545 = t2198 * t473;
6306   t5558 = t37 * t4472;
6307   t5561 = t256 * t5531;
6308   t5565 = t37 * t1651 * t1210;
6309   t5568 = t1220 * t1649;
6310   t5577 = 0.25155289876543209876e-1 * t1661 * t5234 - 0.41925483127572016460e-1 * t4216 * t2115 + 0.25155289876543209876e-1 * t5532 * t1662 + 0.25155289876543209876e-1 * t4222 * t2115 + 0.25155289876543209876e-1 * t4219 * t2115 + 0.25155289876543209876e-1 * t5539 * t1662 - 0.6e1 * t755 * t2097 + 0.171e3 / 0.1000e4 * t5544 * t5545 - 0.12e2 * t1234 * t5258 + 0.54e2 * t1226 * t5373 - 0.12e2 * t4571 * t1621 + 0.54e2 * t4574 * t1635 - 0.12e2 * t3892 * t2082 - 0.35217405827160493826e-1 * t1661 * t5558 + 0.37732934814814814815e0 * t5561 * t1653 + 0.37732934814814814815e0 * t1650 * t5565 + 0.37732934814814814815e0 * t5568 * t1653 + 0.37732934814814814815e0 * t4080 * t2109 + 0.37732934814814814815e0 * t4084 * t2109 - 0.62888224691358024692e0 * t4062 * t2109;
6311   t5587 = t1156 * t2079;
6312   t5590 = t480 * t5249;
6313   t5595 = t3074 * t679;
6314   t5598 = t1575 * t1618;
6315   t5617 = -p->cam_beta * (t5432 + t5480 + t5526 + t5577) + 0.171e3 / 0.1000e4 * t2426 * t5545 - 0.6e1 * t4158 * t656 - 0.6e1 * t1628 * t1565 - 0.6e1 * t256 * t5587 - 0.6e1 * t256 * t5590 - 0.6e1 * t5328 * t481 - 0.6e1 * t256 * t5595 - 0.6e1 * t256 * t5598 - 0.6e1 * t755 * t2182 - 0.12e2 * t4496 * t1621 + 0.54e2 * t4499 * t1635 + 0.54e2 * t3177 * t2094 + 0.54e2 * t3180 * t2094 + 0.54e2 * t1562 * t5356 + 0.54e2 * t1562 * t5359 - 0.12e2 * t4513 * t1621;
6316   t5635 = t1218 * t104;
6317   t5638 = t1628 * t231;
6318   t5641 = t4001 * t231;
6319   t5646 = t1714 * t649;
6320   t5655 = t516 * t41;
6321   t5658 = 0.54e2 * t4516 * t1635 - 0.12e2 * t3174 * t2082 - 0.12e2 * t3197 * t2082 - 0.12e2 * t1568 * t5252 - 0.12e2 * t1568 * t5254 - 0.12e2 * t1568 * t5256 - 0.12e2 * t1568 * t5258 + 0.54e2 * t1562 * t5373 - 0.62888224691358024691e-1 * t5635 * t114 - 0.12e2 * t5638 * t1213 + 0.54e2 * t5641 * t1228 - 0.41925483127572016460e-1 * t1743 * t2115 - 0.9e1 / 0.100e3 * t1194 * t5646 - 0.9e1 / 0.100e3 * t4360 * t1603 - 0.9e1 / 0.100e3 * t2420 * t2198 - 0.9e1 / 0.100e3 * t3216 * t1754 + 0.10481370781893004115e0 * t5655 * t114;
6322   t5659 = t713 * t1550;
6323   t5662 = t2163 * t473;
6324   t5665 = t1220 * t691;
6325   t5670 = t692 * t1215;
6326   t5673 = t24 * t691;
6327   t5698 = -0.9e1 / 0.100e3 * t1194 * t5659 - 0.9e1 / 0.100e3 * t1194 * t5662 + 0.37732934814814814815e0 * t5665 * t1740 + 0.37732934814814814815e0 * t4370 * t2188 + 0.37732934814814814815e0 * t1739 * t5670 - 0.35217405827160493826e-1 * t5673 * t1263 - 0.62888224691358024692e0 * t4364 * t2188 - 0.6e1 * t1220 * t1733 - 0.6e1 * t755 * t2177 - 0.6e1 * t1628 * t1571 - 0.6e1 * t1628 * t1576 - 0.6e1 * t3167 * t720 - 0.6e1 * t1220 * t1728 - 0.15093173925925925926e0 * t1739 * t5464 + 0.75465869629629629630e0 * t1739 * t5467 - 0.33959641333333333334e1 * t4376 * t5471 - 0.15093173925925925926e0 * t1739 * t5460;
6328   t5701 = t241 * (t5383 + t5617 + t5658 + t5698);
6329   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6330     v3rhosigmatau[0] = -t1203 * t2204 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t5701;
6331 
6332   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6333     v3rholapl2[0] = 0.0e0;
6334 
6335   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6336     v3rholapltau[0] = 0.0e0;
6337 
6338   t5706 = t685 * t41;
6339   t5713 = t1626 * t104;
6340   t5716 = t18 * t2207;
6341   t5717 = t5716 * t246;
6342   t5720 = t1634 * t1618;
6343   t5723 = t2373 * t2207;
6344   t5724 = t5723 * t246;
6345   t5727 = t680 * t1618;
6346   t5730 = t2214 * t246;
6347   t5733 = t763 * t2213;
6348   t5734 = t5733 * t246;
6349   t5739 = t246 * t2213;
6350   t5743 = my_piecewise3(t15, -t243 * t2210 / 0.4e1, 0);
6351   t5744 = t16 * t5743;
6352   t5746 = t246 * t2207;
6353   t5750 = t17 * t5743;
6354   t5752 = 0.4e1 * t679 * t1618 + 0.36e2 * t5727 + 0.18e2 * t5730 + 0.2e1 * t5739 + 0.2e1 * t5744 + 0.18e2 * t5746 + 0.9e1 * t5750;
6355   t5753 = t5752 * t23;
6356   t5754 = t2220 * t255;
6357   t5787 = 0.24e2 * t1628 * t1621 + 0.12e2 * t1628 * t1623 - 0.108e3 * t4001 * t1635 + 0.12e2 * t755 * t2216 + 0.6e1 * t755 * t2218 - 0.54e2 * t2338 * t2243 + 0.648e3 * t2372 * t5724 + 0.6e1 * t5754 * t249 + 0.24e2 * t256 * t5727 + 0.12e2 * t256 * t5730 + 0.12e2 * t256 * t5746 + 0.6e1 * t256 * t5750 + 0.12e2 * t4158 * t682 - 0.324e3 * t762 * t5717 - 0.108e3 * t762 * t5720 - 0.54e2 * t762 * t5734 - t5753;
6358   t5789 = 0.20962741563786008230e0 * t5706 * t114 - 0.24e2 * t5638 * t1621 + 0.108e3 * t5641 * t1635 - 0.12577644938271604938e0 * t5713 * t114 + 0.324e3 * t1562 * t5717 + 0.108e3 * t1562 * t5720 - 0.648e3 * t3190 * t5724 - 0.24e2 * t1568 * t5727 - 0.12e2 * t1568 * t5730 + 0.54e2 * t1562 * t5734 + t5787 * t217;
6359   t5790 = t5107 * t2207;
6360   t5795 = t2995 * t2207;
6361   t5802 = t3015 * t2207;
6362   t5816 = -0.12e2 * t256 * t5790 - 0.6e1 * t755 * t2238 - 0.12e2 * t256 * t5795 - 0.6e1 * t5754 * t258 - 0.12e2 * t4158 * t687 + 0.54e2 * t762 * t5802 - 0.12e2 * t755 * t2235 + t2221 * t403 - 0.12e2 * t1628 * t1638 - 0.9e1 / 0.100e3 * t408 * t2256 - 0.9e1 / 0.100e3 * t444 * t2256 + t1678 * t714 / 0.5e1;
6363   t5821 = t2425 * t2255;
6364   t5822 = t5821 * t473;
6365   t5835 = t36 * t1618;
6366   t5846 = t462 * t2213;
6367   t5849 = t209 * t5743;
6368   t5862 = -0.73e2 / 0.243e3 * t2140 + 0.73e2 / 0.81e2 * t2151 - 0.73e2 / 0.135e3 * t691 * t5835 * t213 + 0.146e3 / 0.135e3 * t691 * t2264 * t246 - 0.73e2 / 0.81e2 * t2159 + 0.73e2 / 0.135e3 * t691 * t704 * t1618 - 0.146e3 / 0.135e3 * t5846 * t213 - 0.146e3 / 0.135e3 * t5849 * t213 + 0.292e3 / 0.135e3 * t2271 * t246 + 0.292e3 / 0.135e3 * t462 * t2207 + 0.584e3 / 0.135e3 * t708 * t1618 + 0.146e3 / 0.135e3 * t465 * t2213 + 0.146e3 / 0.135e3 * t212 * t5743;
6369   t5863 = t450 * t5862;
6370   t5868 = t692 * t1621;
6371   t5871 = t692 * t1635;
6372   t5874 = t768 * t2213;
6373   t5877 = t699 * t1715 / 0.5e1 - 0.9e1 / 0.50e2 * t699 * t1687 + 0.171e3 / 0.1000e4 * t195 * t5822 + 0.20962741563786008230e0 * t2225 * t662 + t2251 * t474 / 0.10e2 + t1676 * t714 / 0.5e1 + t444 * t2279 / 0.10e2 + t195 * t5863 / 0.10e2 + t408 * t2279 / 0.10e2 + 0.15093173925925925926e1 * t4168 * t5868 - 0.67919282666666666667e1 * t5470 * t5871 - 0.6e1 * t256 * t5874;
6374   t5879 = t257 * t5743;
6375   t5884 = t1686 * t1714;
6376   t5887 = t1105 * t2278;
6377   t5888 = t5887 * t473;
6378   t5899 = t1626 * t102;
6379   t5902 = t685 * t338;
6380   t5906 = t352 * t682 * t283;
6381   t5909 = t685 * t1649;
6382   t5912 = -0.6e1 * t256 * t5879 - 0.12e2 * t1628 * t1643 - 0.9e1 / 0.50e2 * t195 * t5884 - 0.9e1 / 0.100e3 * t195 * t5888 - 0.24e2 * t5490 * t1621 + 0.108e3 * t5493 * t1635 + 0.324e3 * t1226 * t5717 + 0.54e2 * t2338 * t2228 - 0.12577644938271604938e0 * t5899 * t693 - 0.12577644938271604938e0 * t5902 * t693 - 0.30186347851851851852e0 * t4168 * t5906 + 0.50310579753086419752e-1 * t5909 * t1662;
6383   t5924 = t37 * t1651 * t1618;
6384   t5931 = t1628 * t1649;
6385   t5936 = t2250 * t443;
6386   t5939 = t5787 * t194;
6387   t5941 = 0.108e3 * t1226 * t5720 - 0.648e3 * t3889 * t5724 - 0.24e2 * t1234 * t5727 - 0.12e2 * t1234 * t5730 + 0.54e2 * t1226 * t5734 + 0.75465869629629629630e0 * t1650 * t5924 + 0.75465869629629629630e0 * t4080 * t2232 + 0.75465869629629629630e0 * t4084 * t2232 + 0.75465869629629629628e0 * t5931 * t1653 - 0.12577644938271604938e1 * t4062 * t2232 + t5936 * t217 + t5753 * t150 + t5939 * t217;
6388   t5955 = t2365 * t2207;
6389   t5958 = t713 * t1714;
6390   t5963 = t2255 * t473;
6391   t5966 = t2278 * t473;
6392   t5969 = -p->cam_beta * (t5816 + t5877 + t5912 + t5941) - 0.6e1 * t5754 * t481 - 0.12e2 * t4158 * t720 - 0.12e2 * t1628 * t1728 - 0.12e2 * t1628 * t1733 + 0.54e2 * t2338 * t2290 + 0.54e2 * t762 * t5955 - 0.9e1 / 0.50e2 * t1194 * t5958 - 0.9e1 / 0.50e2 * t4360 * t1754 + 0.171e3 / 0.1000e4 * t2426 * t5963 - 0.9e1 / 0.100e3 * t1194 * t5966;
6393   t5971 = t2250 * t450;
6394   t5974 = t1628 * t691;
6395   t5979 = t692 * t1623;
6396   t5994 = t5971 * t473 / 0.10e2 + 0.75465869629629629628e0 * t5974 * t1740 + 0.75465869629629629630e0 * t4370 * t2293 + 0.75465869629629629630e0 * t1739 * t5979 - 0.12577644938271604938e1 * t4364 * t2293 + 0.50310579753086419752e-1 * t2287 * t1662 + t1749 * t1714 / 0.5e1 - 0.9e1 / 0.100e3 * t2420 * t2255 + t4294 * t713 / 0.5e1 + t5753 * t231 + t2221 * t498;
6397   t6007 = t2330 * t2207;
6398   t6010 = t4415 * t2207;
6399   t6015 = t1156 * t2213;
6400   t6018 = t480 * t5743;
6401   t6021 = t1191 * t2278 / 0.10e2 + t501 * t5862 / 0.10e2 - 0.12e2 * t755 * t2296 - 0.30186347851851851852e0 * t1739 * t5906 + 0.15093173925925925926e1 * t1739 * t5868 - 0.67919282666666666667e1 * t4376 * t5871 - 0.12e2 * t256 * t6007 - 0.12e2 * t256 * t6010 - 0.6e1 * t755 * t2299 - 0.6e1 * t256 * t6015 - 0.6e1 * t256 * t6018;
6402   t6024 = t241 * (t5789 + t5969 + t5994 + t6021);
6403   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6404     v3rhotau2[0] = -t1203 * t2310 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t6024;
6405 
6406   t6027 = t1763 * t510;
6407   t6028 = t231 * t6027;
6408   t6033 = t2008 * t649;
6409   t6036 = t150 * t6027;
6410   t6041 = t144 * t1988;
6411   t6044 = t102 * t1988;
6412   t6045 = t6044 * t351;
6413   t6051 = t1791 * t526;
6414   t6052 = t2472 * t6051;
6415   t6053 = t42 * t6052;
6416   t6058 = t61 * t6051;
6417   t6064 = t4655 * t526 * t45 * t47;
6418   t6068 = my_piecewise3(t66, 0, -0.77e2 / 0.12000e5 * t267 * t2550 * t6058 + 0.49315732514148738000e-4 * t4654 * t6064);
6419   t6075 = t1810 * t531;
6420   t6076 = t864 * t6075;
6421   t6081 = t2577 * t6075;
6422   t6084 = t2581 * t6075;
6423   t6086 = t531 * t1805;
6424   t6096 = t844 * t6075;
6425   t6097 = t6096 * t76;
6426   t6099 = t1320 * t1872;
6427   t6103 = 0.5e1 / 0.2e1 * t2600 * t6075 * t76;
6428   t6104 = t295 * t6068;
6429   t6109 = t2610 * t6075;
6430   t6119 = t69 * t6068 * t76;
6431   t6120 = 0.15e2 / 0.2e1 * t6097 - 0.6e1 * t6099 - t6103 + t6104 * t76 / 0.2e1 + 0.3e1 / 0.4e1 * t5045 * t561 + t6109 * t76 / 0.8e1 - 0.12e2 * t5053 * t1805 - 0.3e1 * t608 * t1872 - 0.4e1 * t299 * t6068 - t6119;
6432   t6123 = 0.7e1 / 0.2e1 * t6076 * t76 - 0.3e1 / 0.2e1 * t3652 * t1872 - t6081 * t76 / 0.4e1 - 0.6e1 * t6084 + 0.6e1 * t849 * t6086 - t291 * t6068 + 0.2e1 * t6068 * t80 + 0.6e1 * t1805 * t543 + 0.6e1 * t531 * t1838 + 0.2e1 * t67 * t6120;
6433   t6126 = -0.8e1 / 0.3e1 * t6068 * t83 - 0.8e1 * t1805 * t546 - 0.8e1 * t531 * t1841 - 0.8e1 / 0.3e1 * t67 * t6123;
6434   t6132 = t4763 * t526;
6435   t6145 = t118 * t6068;
6436   t6146 = 0.256e3 * t6145;
6437   t6148 = t67 * t6068;
6438   t6150 = t67 * t6075;
6439   t6151 = 0.1536e4 * t6150;
6440   t6152 = t584 * t1805;
6441   t6153 = 0.2304e4 * t6152;
6442   t6154 = 0.120e3 * t6086 + 0.40e2 * t6148 - t6151 - t6153 - t6146;
6443   t6165 = t6075 * t76;
6444   t6168 = t561 * t1805;
6445   t6175 = t6068 * t76;
6446   t6188 = 0.6e1 * t2702 * t6165 - 0.9e1 / 0.2e1 * t909 * t6168 + 0.3e1 / 0.4e1 * t916 * t6168 - 0.9e1 / 0.4e1 * t2678 * t6165 + t326 * t6175 / 0.2e1 + t2674 * t6165 / 0.8e1 + 0.3e1 / 0.2e1 * t4714 * t561 + 0.3e1 / 0.2e1 * t1299 * t1872 + 0.3e1 / 0.4e1 * t3643 * t1869 + 0.20e2 * t6097 - 0.15e2 * t6099;
6447   t6189 = t6146 + t6154 * t76 - 0.216e3 * t6086 - 0.72e2 * t6148 + 0.10e2 * t68 * t6068 * t71 + t6151 + t6153 - 0.10e2 * t6119 - t6103 - 0.9e1 / 0.2e1 * t3649 * t1869 + t6188;
6448   t6192 = 0.144e3 * t1286 * t1805 + 0.144e3 * t4620 * t1805 + 0.144e3 * t1810 * t569 + 0.48e2 * t317 * t6068 + 0.144e3 * t4664 * t531 + 0.24e2 * t73 * t6189;
6449   t6193 = t6192 * t110;
6450   t6196 = t4471 * t53;
6451   t6199 = t1887 * t41;
6452   t6202 = -0.10470113939449452090e-4 * t6041 * t351 - 0.72676204058813440717e-5 * t6045 - 0.3e1 / 0.5e1 * t4976 * t526 - 0.31595526666666666666e-1 * t1972 * t624 - 0.35386989866666666666e-1 * t146 * t6053 + 0.44233737333333333333e-1 * t616 * t1983 + t6126 * t88 + 0.18e2 / 0.25e2 * t3699 * t1791 - 0.66e2 / 0.125e3 * t2637 * t6051 + 0.14658159515229232926e-4 * t1986 * t6132 + 0.35e2 / 0.81e2 * t6193 * t114 + 0.24055706480953698645e-3 * t111 * t6196 + 0.54828508950617283951e-1 * t6199 * t114;
6453   t6205 = t2873 * t6051;
6454   t6210 = t1346 * t1791;
6455   t6247 = 0.216e3 * t1448 * t1805 + 0.72e2 * t371 * t6068 + 0.720e3 * t6165 * t74 + 0.432e3 * t3551 * t1810 + 0.216e3 * t4924 * t531 - 0.360e3 * t6084 + 0.3e1 / 0.2e1 * t4805 * t561 + 0.3e1 / 0.2e1 * t1431 * t1872 + 0.3e1 / 0.4e1 * t3570 * t1869 - 0.9e1 / 0.2e1 * t3573 * t1869 + 0.6e1 * t2756 * t6165 + 0.7e1 * t2759 * t6165 - 0.12e2 * t384 * t857 * t6075 - t2771 * t6165 / 0.2e1;
6456   t6253 = t6068 * t71;
6457   t6273 = t118 * t6075;
6458   t6277 = t120 * t6068;
6459   t6279 = 0.460800e6 * t586 * t1805 + 0.1344e4 * t6086 - 0.5760e4 * t6145 + 0.448e3 * t6148 - 0.34560e5 * t6150 - 0.51840e5 * t6152 + 0.614400e6 * t6273 + 0.30720e5 * t6277;
6460   t6286 = t73 * t6068;
6461   t6288 = t73 * t6075;
6462   t6292 = t91 * t6068;
6463   t6306 = -0.1105920e7 * t124 * t6068 + 0.26943e5 * t131 * t6068 - 0.61931520e8 * t131 * t6075 - 0.26542080e8 * t1424 * t1805 + 0.4608e4 * t555 * t1805 - 0.34560e5 * t557 * t1805 + 0.484974e6 * t600 * t1805 + 0.808290e6 * t91 * t6075 - 0.8e1 * t6068 + 0.1536e4 * t6075 + 0.768e3 * t6286 - 0.34560e5 * t6288 - 0.2880e4 * t6292;
6464   t6317 = -0.2e1 * t384 * t74 * t6068 + 0.720e3 * t565 * t1954 + 0.240e3 * t96 * t6253 - 0.1440e4 * t1836 * t561 + 0.432e3 * t983 * t6086 - 0.9e1 / 0.4e1 * t2790 * t6165 + t368 * t6175 / 0.2e1 + t2782 * t6165 / 0.8e1 + 0.144e3 * t6075 * t133 + 0.24e2 * t118 * t6279 + t6306 * t76 - 0.9e1 / 0.2e1 * t975 * t6168 + 0.3e1 / 0.4e1 * t980 * t6168 - 0.3e1 * t1011 * t6168 + 0.12e2 * t384 * t536 * t1805;
6465   t6318 = t6247 + t6317;
6466   t6322 = (0.8e1 / 0.7e1 * t6068 * t141 + 0.24e2 / 0.7e1 * t1805 * t611 + 0.24e2 / 0.7e1 * t531 * t1967 + 0.8e1 / 0.7e1 * t67 * t6318) * t32;
6467   t6323 = t6322 * t36;
6468   t6328 = t938 * t526;
6469   t6341 = t614 * sigma[0];
6470   t6344 = -0.32279388554715537600e-2 * t1484 * t1850 - 0.392e3 / 0.675e3 * t349 * t6205 + 0.98e2 / 0.135e3 * t1395 * t1898 + 0.44233737333333333333e-1 * t146 * t6210 + 0.26329605555555555556e-1 * t6323 * t147 - 0.63191053333333333333e-1 * t616 * t1979 + 0.38735266265658645120e-2 * t6328 * t1850 - 0.14e2 / 0.27e2 * t5086 * t579 - 0.43862807160493827161e-1 * t5089 * t579 + 0.30703965012345679013e-1 * t1398 * t1898 + 0.78988816666666666668e-1 * t1971 * t620 - 0.17182647486395499033e-3 * t573 * t1901 - 0.10470113939449452090e-4 * t6341 * t1989;
6471   t6345 = t6202 + t6344;
6472   t6347 = t510 * t1765;
6473   t6348 = 0.6e1 * t6347;
6474   t6350 = t511 * t1765;
6475   t6351 = 0.54e2 * t6350;
6476   t6352 = t6348 + t1767 + 0.18e2 * t6027 + t6351 + t1771;
6477   t6353 = t6352 * t23;
6478   t6357 = t41 * t1765;
6479   t6359 = t37 * t6357 * t213;
6480   t6360 = 0.73e2 / 0.6480e4 * t6359;
6481   t6362 = t37 * t41 * t1763;
6482   t6365 = t37 * t640 * t1765;
6483   t6366 = 0.73e2 / 0.6480e4 * t6365;
6484   t6367 = t2020 * t510;
6485   t6368 = 0.292e3 / 0.45e2 * t6367;
6486   t6369 = t6360 - 0.73e2 / 0.3240e4 * t6362 - t6366 - t2022 + t6368 + t2026;
6487   t6370 = t450 * t6369;
6488   t6379 = t1220 * t1770;
6489   t6380 = 0.18e2 * t6379;
6490   t6381 = t2373 * t6027;
6491   t6384 = t18 * t6027;
6492   t6387 = t1227 * t1765;
6493   t6388 = t762 * t6387;
6494   t6389 = 0.162e3 * t6388;
6495   t6392 = t256 * t6350;
6496   t6393 = 0.36e2 * t6392;
6497   t6394 = 0.36e2 * t1220 * t1768 - 0.162e3 * t3152 * t1996 + 0.648e3 * t2372 * t6381 + 0.12e2 * t256 * t6027 + 0.18e2 * t4395 * t513 - 0.324e3 * t762 * t6384 + t2002 - t6353 + t6380 - t6389 + t6393;
6498   t6395 = t6394 * t194;
6499   t6397 = t1234 * t6350;
6500   t6398 = 0.36e2 * t6397;
6501   t6405 = t2425 * t6033;
6502   t6408 = -0.12e2 * t256 * t6036 + 0.3e1 * t1773 * t627 + t24 * t6345 + t6353 * t150 + 0.3e1 * t516 * t1992 + t195 * t6370 / 0.10e2 + t6395 * t217 - t6398 - t1790 + 0.3e1 / 0.10e2 * t632 * t2028 + 0.3e1 / 0.10e2 * t2004 * t650 - 0.27e2 / 0.100e3 * t632 * t2009 + 0.171e3 / 0.1000e4 * t195 * t6405;
6503   t6409 = t1515 * t2027;
6504   t6412 = t1226 * t6387;
6505   t6413 = 0.162e3 * t6412;
6506   t6414 = t1220 * t1788;
6507   t6415 = 0.18e2 * t6414;
6508   t6420 = t3909 * t1763;
6509   t6425 = t4593 * t510;
6510   t6428 = t1241 * t1765;
6511   t6429 = t256 * t6428;
6512   t6430 = 0.18e2 * t6429;
6513   t6431 = t3019 * t6027;
6514   t6436 = t3036 * t6027;
6515   t6439 = t3950 * t1763;
6516   t6442 = -0.27e2 / 0.100e3 * t195 * t6409 + t6413 - t6415 + 0.162e3 * t3152 * t1779 - 0.36e2 * t1220 * t1782 + 0.162e3 * t762 * t6420 - 0.18e2 * t4395 * t518 - 0.18e2 * t256 * t6425 - t6430 - 0.648e3 * t2372 * t6431 - 0.36e2 * t1220 * t1785 + 0.324e3 * t762 * t6436 - 0.36e2 * t256 * t6439;
6517   t6445 = t649 * t2027;
6518   t6448 = t4405 * t510;
6519   t6451 = t2374 * t6027;
6520   t6456 = t1220 * t2047;
6521   t6457 = 0.18e2 * t6456;
6522   t6460 = t3163 * t1763;
6523   t6464 = -t2049 - 0.12e2 * t256 * t6028 - 0.27e2 / 0.100e3 * t3216 * t2008 + 0.171e3 / 0.1000e4 * t2426 * t6033 - p->cam_beta * (t6408 + t6442) - 0.27e2 / 0.100e3 * t1194 * t6445 - 0.18e2 * t256 * t6448 - 0.648e3 * t2372 * t6451 - 0.36e2 * t1220 * t2041 - t6457 + 0.162e3 * t3152 * t2038 + 0.162e3 * t762 * t6460 + t6394 * t217;
6524   t6465 = t1575 * t1765;
6525   t6466 = t256 * t6465;
6526   t6467 = 0.18e2 * t6466;
6527   t6472 = t2343 * t6027;
6528   t6475 = t3976 * t1763;
6529   t6494 = t1183 * t526;
6530   t6497 = -0.66e2 / 0.125e3 * t2434 * t6051 + 0.38735266265658645120e-2 * t1579 * t1850 + 0.74937702345679012345e-1 * t37 * t6210 - 0.17737734345330796161e-4 * t1989 - 0.392e3 / 0.375e3 * t2473 * t6051 + 0.70297335074713837440e-2 * t6494 * t1850;
6531   t6503 = t1568 * t6350;
6532   t6504 = 0.36e2 * t6503;
6533   t6505 = t1562 * t6387;
6534   t6506 = 0.162e3 * t6505;
6535   t6507 = -t6467 - 0.18e2 * t4395 * t656 - 0.36e2 * t1220 * t2044 + 0.324e3 * t762 * t6472 - 0.36e2 * t256 * t6475 + 0.3e1 * t1773 * t666 + 0.3e1 * t516 * t2062 + t6353 * t231 + 0.3e1 / 0.10e2 * t1598 * t2027 + t24 * t6497 + 0.3e1 / 0.10e2 * t4388 * t649 + t501 * t6369 / 0.10e2 - t6504 + t6506;
6536   t6509 = t241 * (t6464 + t6507);
6537   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6538     v3sigma3[0] = -0.3e1 / 0.8e1 * t240 * t6509;
6539 
6540   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6541     v3sigma2lapl[0] = 0.0e0;
6542 
6543   t6514 = t1628 * t2047;
6544   t6515 = 0.6e1 * t6514;
6545   t6530 = t1765 * t679;
6546   t6531 = 0.2e1 * t6530;
6547   t6532 = t510 * t2079;
6548   t6534 = t1763 * t679;
6549   t6536 = t2080 * t510;
6550   t6538 = t680 * t1765;
6551   t6539 = 0.18e2 * t6538;
6552   t6540 = t6531 + 0.4e1 * t6532 + t1767 + 0.18e2 * t6534 + 0.36e2 * t6536 + t6539 + t1771;
6553   t6541 = t6540 * t23;
6554   t6548 = t1628 * t1770;
6555   t6549 = 0.6e1 * t6548;
6556   t6558 = t4109 * t1763;
6557   t6561 = t4161 * t1763;
6558   t6564 = t5372 * t510;
6559   t6567 = t1634 * t1765;
6560   t6568 = t762 * t6567;
6561   t6569 = 0.54e2 * t6568;
6562   t6574 = t256 * t6538;
6563   t6575 = 0.12e2 * t6574;
6564   t6576 = 0.24e2 * t1220 * t2082 + 0.12e2 * t1220 * t2084 + 0.12e2 * t1628 * t1768 - 0.54e2 * t4001 * t1996 - 0.108e3 * t3152 * t2094 + 0.648e3 * t2372 * t6558 + 0.12e2 * t256 * t6534 + 0.24e2 * t256 * t6536 + 0.6e1 * t4395 * t682 + 0.12e2 * t5328 * t513 - 0.324e3 * t762 * t6561 - 0.108e3 * t762 * t6564 + t2002 - t6541 + t6549 - t6569 + t6575;
6565   t6578 = -0.12e2 * t1628 * t2041 - t6515 + 0.54e2 * t4001 * t2038 - 0.6e1 * t4395 * t720 - 0.12e2 * t1220 * t2177 - 0.12e2 * t5328 * t656 + t1598 * t2163 / 0.5e1 + t5270 * t649 / 0.5e1 + t1749 * t2027 / 0.10e2 - t2049 + t6576 * t217;
6566   t6579 = t231 * t1763;
6567   t6580 = t6579 * t679;
6568   t6585 = t1575 * t2079;
6569   t6590 = t4405 * t679;
6570   t6593 = t36 * t1765;
6571   t6595 = t691 * t6593 * t213;
6572   t6596 = 0.73e2 / 0.270e3 * t6595;
6573   t6601 = t691 * t704 * t1765;
6574   t6602 = 0.73e2 / 0.270e3 * t6601;
6575   t6603 = t41 * t2079;
6576   t6605 = t37 * t6603 * t213;
6577   t6608 = t37 * t2149 * t510;
6578   t6612 = t708 * t1765;
6579   t6613 = 0.292e3 / 0.135e3 * t6612;
6580   t6615 = t37 * t640 * t2079;
6581   t6617 = -t6596 + 0.73e2 / 0.135e3 * t691 * t36 * t1763 + t6602 + 0.73e2 / 0.9720e4 * t6605 - 0.73e2 / 0.4860e4 * t6608 - t2022 + 0.584e3 / 0.135e3 * t2153 * t510 + t6613 - 0.73e2 / 0.9720e4 * t6615 + t2026;
6582   t6622 = t692 * t1770;
6583   t6623 = t1739 * t6622;
6584   t6624 = 0.37732934814814814815e0 * t6623;
6585   t6625 = t692 * t1996;
6586   t6628 = t692 * t1768;
6587   t6633 = 0.1e1 / t798;
6588   t6634 = t6633 * t351;
6589   t6637 = -0.12e2 * t256 * t6580 - 0.12e2 * t1628 * t2044 - 0.12e2 * t256 * t6585 - 0.12e2 * t1220 * t2182 - 0.6e1 * t256 * t6590 + t501 * t6617 / 0.10e2 + 0.75465869629629629630e0 * t5665 * t2188 + t6624 - 0.33959641333333333334e1 * t4376 * t6625 + 0.75465869629629629630e0 * t1739 * t6628 - 0.9e1 / 0.50e2 * t3216 * t2198 + 0.83359506542156099039e-5 * t24 * t6634;
6590   t6639 = t713 * t2008;
6591   t6642 = t2163 * t649;
6592   t6645 = t713 * t2027;
6593   t6648 = t37 * t1982;
6594   t6661 = t150 * t1763;
6595   t6662 = t6661 * t679;
6596   t6665 = t4194 * t2008;
6597   t6670 = t6576 * t194;
6598   t6675 = t4593 * t679;
6599   t6680 = t1628 * t1788;
6600   t6681 = 0.6e1 * t6680;
6601   t6682 = -0.12e2 * t1628 * t1785 - 0.9e1 / 0.100e3 * t699 * t2009 - 0.12e2 * t256 * t6662 - t1790 + 0.171e3 / 0.1000e4 * t195 * t6665 - 0.12e2 * t1628 * t1782 + t6670 * t217 + t685 * t1992 - 0.12e2 * t5328 * t518 - 0.6e1 * t256 * t6675 - 0.6e1 * t4395 * t687 - t6681;
6602   t6695 = t1241 * t2079;
6603   t6698 = t5396 * t649;
6604   t6702 = t102 * t6633 * t351;
6605   t6707 = t1686 * t2027;
6606   t6711 = t352 * t513 * t526;
6607   t6714 = 0.54e2 * t4001 * t1779 - 0.12e2 * t1220 * t2102 - 0.12e2 * t1220 * t2097 + 0.50310579753086419752e-1 * t5532 * t2115 + 0.50310579753086419752e-1 * t5539 * t2115 - 0.35217405827160493826e-1 * t1661 * t6648 - 0.12e2 * t256 * t6695 - 0.9e1 / 0.50e2 * t195 * t6698 + 0.83359506542156099039e-5 * t24 * t6702 - 0.9e1 / 0.50e2 * t632 * t2135 - 0.9e1 / 0.100e3 * t195 * t6707 - 0.30186347851851851852e0 * t4168 * t6711;
6608   t6716 = t1773 * t102;
6609   t6719 = t24 * t1887;
6610   t6722 = t516 * t572;
6611   t6729 = t37 * t1651 * t1765;
6612   t6730 = t1650 * t6729;
6613   t6731 = 0.37732934814814814815e0 * t6730;
6614   t6733 = t37 * t4075 * t1763;
6615   t6741 = t37 * t4065 * t1763;
6616   t6748 = -0.62888224691358024691e-1 * t6716 * t693 - 0.62888224691358024691e-1 * t6719 * t693 - 0.12577644938271604938e0 * t6722 * t693 + 0.2e1 * t2087 * t627 + t6541 * t150 + t6731 - 0.33959641333333333334e1 * t4074 * t6733 + 0.75465869629629629630e0 * t5568 * t2109 + 0.75465869629629629630e0 * t5561 * t2109 + 0.75465869629629629630e0 * t1650 * t6741 + t2129 * t650 / 0.5e1 + t699 * t2028 / 0.10e2;
6617   t6749 = t450 * t6617;
6618   t6760 = t1226 * t6567;
6619   t6761 = 0.54e2 * t6760;
6620   t6768 = t1234 * t6538;
6621   t6769 = 0.12e2 * t6768;
6622   t6776 = t195 * t6749 / 0.10e2 + t2004 * t714 / 0.10e2 + t632 * t2164 / 0.5e1 + 0.108e3 * t4574 * t2094 + 0.108e3 * t1226 * t6564 + t6761 - 0.648e3 * t3889 * t6558 + 0.324e3 * t1226 * t6561 - 0.24e2 * t1234 * t6536 - t6769 - 0.24e2 * t4589 * t2082 + 0.108e3 * t5131 * t2094 - 0.24e2 * t4571 * t2082;
6623   t6786 = 0.171e3 / 0.1000e4 * t2426 * t6639 - 0.9e1 / 0.50e2 * t1194 * t6642 - 0.9e1 / 0.100e3 * t1194 * t6645 - 0.35217405827160493826e-1 * t723 * t6648 + 0.50310579753086419752e-1 * t2185 * t2115 - 0.9e1 / 0.100e3 * t4360 * t2008 + t4388 * t713 / 0.10e2 - p->cam_beta * (t6682 + t6714 + t6748 + t6776) - 0.30186347851851851852e0 * t1739 * t6711 + 0.324e3 * t1562 * t6561 - 0.24e2 * t4496 * t2082;
6624   t6793 = t1562 * t6567;
6625   t6794 = 0.54e2 * t6793;
6626   t6801 = t1568 * t6538;
6627   t6802 = 0.12e2 * t6801;
6628   t6803 = t1773 * t104;
6629   t6810 = 0.108e3 * t4499 * t2094 + 0.108e3 * t4516 * t2094 + 0.108e3 * t1562 * t6564 + t6794 - 0.648e3 * t3190 * t6558 - 0.24e2 * t4513 * t2082 - 0.24e2 * t1568 * t6536 - t6802 - 0.62888224691358024691e-1 * t6803 * t114 + 0.2e1 * t2087 * t666 + t685 * t2062 + t6541 * t231;
6630   t6813 = t241 * (t6578 + t6637 + t6786 + t6810);
6631   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6632     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t240 * t6813;
6633 
6634   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6635     v3sigmalapl2[0] = 0.0e0;
6636 
6637   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6638     v3sigmalapltau[0] = 0.0e0;
6639 
6640   t6820 = t692 * t2084;
6641   t6831 = t510 * t2213;
6642   t6835 = my_piecewise3(t15, t10 * t2210 / 0.4e1, 0);
6643   t6836 = t16 * t6835;
6644   t6838 = t510 * t2207;
6645   t6840 = t680 * t2079;
6646   t6842 = t2214 * t510;
6647   t6844 = t17 * t6835;
6648   t6846 = 0.4e1 * t679 * t2079 + 0.2e1 * t6831 + 0.2e1 * t6836 + 0.18e2 * t6838 + 0.36e2 * t6840 + 0.18e2 * t6842 + 0.9e1 * t6844;
6649   t6847 = t6846 * t23;
6650   t6859 = t1575 * t2213;
6651   t6862 = t480 * t6835;
6652   t6867 = t3163 * t2207;
6653   t6872 = t3976 * t2207;
6654   t6876 = t231 * t510 * t2207;
6655   t6897 = t5723 * t510;
6656   t6900 = t5716 * t510;
6657   t6903 = t1634 * t2079;
6658   t6914 = t5733 * t510;
6659   t6921 = 0.12e2 * t1220 * t2216 + 0.6e1 * t1220 * t2218 + 0.24e2 * t1628 * t2082 + 0.12e2 * t1628 * t2084 - 0.108e3 * t4001 * t2094 - 0.54e2 * t3152 * t2243 + 0.648e3 * t2372 * t6897 + 0.12e2 * t256 * t6838 + 0.24e2 * t256 * t6840 + 0.12e2 * t256 * t6842 + 0.6e1 * t256 * t6844 + 0.6e1 * t5754 * t513 + 0.12e2 * t5328 * t682 - 0.324e3 * t762 * t6900 - 0.108e3 * t762 * t6903 - 0.54e2 * t762 * t6914 - t6847;
6660   t6922 = t6921 * t194;
6661   t6932 = t36 * t2079;
6662   t6942 = t41 * t2213;
6663   t6944 = t37 * t6942 * t213;
6664   t6946 = t209 * t6835;
6665   t6952 = t37 * t41 * t2207;
6666   t6957 = t37 * t640 * t2213;
6667   t6961 = -0.73e2 / 0.135e3 * t691 * t6932 * t213 + 0.146e3 / 0.135e3 * t691 * t2264 * t510 + 0.73e2 / 0.135e3 * t691 * t704 * t2079 + 0.73e2 / 0.19440e5 * t6944 - 0.146e3 / 0.135e3 * t6946 * t213 + 0.292e3 / 0.135e3 * t2271 * t510 - 0.73e2 / 0.9720e4 * t6952 + 0.584e3 / 0.135e3 * t708 * t2079 - 0.73e2 / 0.19440e5 * t6957 + 0.146e3 / 0.135e3 * t212 * t6835;
6668   t6962 = t450 * t6961;
6669   t6970 = t1686 * t2163;
6670   t6973 = t5887 * t649;
6671   t6976 = t2087 * t102;
6672   t6979 = t685 * t572;
6673   t6994 = -0.9e1 / 0.50e2 * t699 * t2135 - 0.9e1 / 0.50e2 * t195 * t6970 - 0.9e1 / 0.100e3 * t195 * t6973 - 0.12577644938271604938e0 * t6976 * t693 - 0.12577644938271604938e0 * t6979 * t693 - 0.648e3 * t3889 * t6897 - 0.24e2 * t1234 * t6840 - 0.12e2 * t1234 * t6842 + 0.54e2 * t1226 * t6914 - 0.24e2 * t5490 * t2082 + 0.108e3 * t5493 * t2094;
6674   t7001 = t352 * t682 * t526;
6675   t7004 = t692 * t2082;
6676   t7007 = t692 * t2094;
6677   t7010 = t3950 * t2207;
6678   t7015 = t3909 * t2207;
6679   t7022 = t1241 * t2213;
6680   t7025 = 0.324e3 * t1226 * t6900 + 0.108e3 * t1226 * t6903 - 0.30186347851851851852e0 * t4168 * t7001 + 0.15093173925925925926e1 * t4168 * t7004 - 0.67919282666666666667e1 * t5470 * t7007 - 0.12e2 * t256 * t7010 - 0.6e1 * t5754 * t518 + 0.54e2 * t762 * t7015 - 0.12e2 * t1220 * t2235 + 0.54e2 * t3152 * t2228 - 0.6e1 * t256 * t7022;
6681   t7026 = t257 * t6835;
6682   t7032 = t150 * t510 * t2207;
6683   t7037 = t5821 * t649;
6684   t7045 = t37 * t1651 * t2079;
6685   t7054 = -0.6e1 * t256 * t7026 - 0.12e2 * t1628 * t2102 - 0.12e2 * t256 * t7032 - 0.6e1 * t1220 * t2238 + 0.171e3 / 0.1000e4 * t195 * t7037 - 0.12e2 * t1628 * t2097 - 0.12e2 * t5328 * t687 + 0.75465869629629629630e0 * t1650 * t7045 + 0.75465869629629629630e0 * t5568 * t2232 + 0.75465869629629629630e0 * t5561 * t2232 + 0.75465869629629629628e0 * t5931 * t2109;
6686   t7058 = -0.12e2 * t1628 * t2182 - 0.6e1 * t1220 * t2299 - 0.6e1 * t256 * t6859 - 0.6e1 * t256 * t6862 - 0.6e1 * t5754 * t656 + 0.54e2 * t762 * t6867 - 0.12e2 * t1220 * t2296 - 0.12e2 * t256 * t6872 - 0.12e2 * t256 * t6876 + 0.54e2 * t3152 * t2290 - p->cam_beta * (0.50310579753086419752e-1 * t5909 * t2115 + t6847 * t150 + t2221 * t627 + t6922 * t217 + t2251 * t650 / 0.10e2 + t699 * t2164 / 0.5e1 - 0.9e1 / 0.100e3 * t632 * t2256 + t632 * t2279 / 0.10e2 + t195 * t6962 / 0.10e2 + t2129 * t714 / 0.5e1 + t6994 + t7025 + t7054);
6687   t7072 = t2087 * t104;
6688   t7088 = t2255 * t649;
6689   t7091 = t713 * t2163;
6690   t7101 = t2278 * t649;
6691   t7106 = -0.24e2 * t1568 * t6840 - 0.12e2 * t1568 * t6842 + 0.54e2 * t1562 * t6914 + 0.171e3 / 0.1000e4 * t2426 * t7088 - 0.9e1 / 0.50e2 * t1194 * t7091 + t6921 * t217 - 0.30186347851851851852e0 * t1739 * t7001 + 0.15093173925925925926e1 * t1739 * t7004 - 0.67919282666666666667e1 * t4376 * t7007 - 0.9e1 / 0.100e3 * t1194 * t7101 - 0.9e1 / 0.50e2 * t4360 * t2198;
6692   t7109 = t241 * (0.75465869629629629628e0 * t5974 * t2188 + 0.75465869629629629630e0 * t5665 * t2293 + 0.75465869629629629630e0 * t1739 * t6820 + t1749 * t2163 / 0.5e1 - 0.9e1 / 0.100e3 * t3216 * t2255 + t5971 * t649 / 0.10e2 + t6847 * t231 + t2221 * t666 - 0.12e2 * t5328 * t720 - 0.12e2 * t1628 * t2177 + t7058 + 0.50310579753086419752e-1 * t2287 * t2115 + t1598 * t2278 / 0.10e2 + t501 * t6961 / 0.10e2 + t5270 * t713 / 0.5e1 - 0.24e2 * t5638 * t2082 + 0.108e3 * t5641 * t2094 - 0.12577644938271604938e0 * t7072 * t114 + 0.324e3 * t1562 * t6900 + 0.108e3 * t1562 * t6903 - 0.648e3 * t3190 * t6897 + t7106);
6693   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6694     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t240 * t7109;
6695 
6696   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6697     v3lapl3[0] = 0.0e0;
6698 
6699   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6700     v3lapl2tau[0] = 0.0e0;
6701 
6702   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6703     v3lapltau2[0] = 0.0e0;
6704 
6705   t7112 = t2221 * t104;
6706   t7117 = t2207 * t679;
6707   t7118 = t2343 * t7117;
6708   t7121 = t1634 * t2213;
6709   t7124 = t680 * t2213;
6710   t7127 = t692 * t2216;
6711   t7132 = t692 * t2243;
6712   t7135 = t2374 * t7117;
6713   t7138 = t231 * t7117;
6714   t7141 = t675 * t675;
6715   t7142 = 0.1e1 / t7141;
6716   t7145 = my_piecewise3(t15, -0.3e1 / 0.4e1 * t11 * t7142, 0);
6717   t7146 = t480 * t7145;
6718   t7151 = -0.18866467407407407407e0 * t7112 * t114 - 0.36e2 * t1628 * t2296 + 0.324e3 * t762 * t7118 + 0.162e3 * t1562 * t7121 - 0.36e2 * t1568 * t7124 + 0.22639760888888888889e1 * t1739 * t7127 + 0.22639760888888888889e1 * t5974 * t2293 - 0.10187892400000000000e2 * t4376 * t7132 - 0.648e3 * t2372 * t7135 - 0.12e2 * t256 * t7138 - 0.6e1 * t256 * t7146 - 0.18e2 * t5754 * t720;
6719   t7158 = t16 * t7145;
6720   t7162 = t17 * t7145;
6721   t7164 = 0.6e1 * t679 * t2213 + 0.18e2 * t7117 + 0.54e2 * t7124 + 0.2e1 * t7158 + 0.9e1 * t7162;
6722   t7165 = t7164 * t23;
6723   t7174 = t2373 * t7117;
6724   t7177 = t18 * t7117;
6725   t7188 = 0.36e2 * t1628 * t2216 + 0.18e2 * t1628 * t2218 - 0.162e3 * t4001 * t2243 + 0.648e3 * t2372 * t7174 + 0.12e2 * t256 * t7117 + 0.36e2 * t256 * t7124 + 0.6e1 * t256 * t7162 + 0.18e2 * t5754 * t682 - 0.162e3 * t762 * t7121 - 0.324e3 * t762 * t7177 - t7165;
6726   t7190 = t2255 * t713;
6727   t7193 = t713 * t2278;
6728   t7200 = t3036 * t7117;
6729   t7210 = t37 * t4075 * t2207;
6730   t7214 = t37 * t1651 * t2213;
6731   t7217 = t2221 * t102;
6732   t7221 = t37 * t4065 * t2207;
6733   t7226 = t2425 * t7190;
6734   t7229 = -0.36e2 * t1628 * t2235 + 0.324e3 * t762 * t7200 + 0.162e3 * t1226 * t7121 - 0.36e2 * t1234 * t7124 + 0.22639760888888888889e1 * t5931 * t2232 - 0.10187892400000000000e2 * t4074 * t7210 + 0.11319880444444444444e1 * t1650 * t7214 - 0.18866467407407407407e0 * t7217 * t693 + 0.22639760888888888889e1 * t1650 * t7221 - 0.27e2 / 0.100e3 * t699 * t2256 + 0.171e3 / 0.1000e4 * t195 * t7226;
6735   t7230 = t1686 * t2278;
6736   t7237 = t3019 * t7117;
6737   t7240 = t150 * t7117;
6738   t7243 = t257 * t7145;
6739   t7248 = t36 * t2213;
6740   t7258 = t209 * t7145;
6741   t7265 = -0.73e2 / 0.90e2 * t691 * t7248 * t213 + 0.73e2 / 0.45e2 * t691 * t36 * t2207 + 0.73e2 / 0.90e2 * t691 * t704 * t2213 - 0.146e3 / 0.135e3 * t7258 * t213 + 0.292e3 / 0.45e2 * t2271 * t679 + 0.146e3 / 0.135e3 * t212 * t7145;
6742   t7266 = t450 * t7265;
6743   t7274 = t7188 * t194;
6744   t7276 = -0.27e2 / 0.100e3 * t195 * t7230 - 0.18e2 * t1628 * t2238 + 0.162e3 * t4001 * t2228 - 0.648e3 * t2372 * t7237 - 0.12e2 * t256 * t7240 - 0.6e1 * t256 * t7243 - 0.18e2 * t5754 * t687 + t195 * t7266 / 0.10e2 + 0.3e1 / 0.10e2 * t699 * t2279 + 0.3e1 / 0.10e2 * t2251 * t714 + t7165 * t150 + t7274 * t217;
6745   t7279 = t692 * t2218;
6746   t7289 = -0.18e2 * t1628 * t2299 + 0.162e3 * t4001 * t2290 + t7188 * t217 + 0.171e3 / 0.1000e4 * t2426 * t7190 - 0.27e2 / 0.100e3 * t1194 * t7193 - 0.27e2 / 0.100e3 * t4360 * t2255 - p->cam_beta * (t7229 + t7276) + 0.11319880444444444444e1 * t1739 * t7279 + t7165 * t231 + 0.3e1 / 0.10e2 * t5971 * t713 + 0.3e1 / 0.10e2 * t1749 * t2278 + t501 * t7265 / 0.10e2;
6747   t7291 = t241 * (t7151 + t7289);
6748   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6749     v3tau3[0] = -0.3e1 / 0.8e1 * t240 * t7291;
6750 
6751 #ifndef XC_DONT_COMPILE_LXC
6752 
6753   if(order < 4) return;
6754 
6755 
6756   t7311 = t18 * t739 * t745;
6757   t7317 = t2373 * t739 * t745;
6758   t7322 = t247 * t2351;
6759   t7326 = t763 * t2351 * t246;
6760   t7331 = t2387 * t255;
6761   t7355 = my_piecewise3(t15, 0.3e1 * sigma[0] / t51 * t12, 0);
6762   t7367 = t1032 * t763;
6763   t7375 = -0.72e2 * t755 * t2990 - 0.24e2 * t7331 * t258 - 0.27e2 / 0.25e2 * t1046 * t1107 - 0.27e2 / 0.50e2 * t1100 * t1107 - 0.48e2 * t256 * t403 * t2323 - 0.72e2 * t2355 * t769 - 0.36e2 * t256 * t2989 * t745 - 0.72e2 * t755 * t3023 - 0.24e2 * t256 * t768 * t2351 - 0.6e1 * t256 * t257 * t7355 - 0.24e2 * t755 * t3026 + 0.6e1 * t753 * t1032 - 0.9e1 / 0.25e2 * t195 * t1105 * t2529 * t473 + 0.324e3 * t762 * t7367 * t739 + 0.648e3 * t2338 * t3016 + 0.4e1 * t2388 * t403;
6764   t7376 = t745 * t745;
6765   t7382 = t739 * t745;
6766   t7384 = t16 * t7376;
6767   t7387 = t17 * t7355;
6768   t7390 = (0.2e1 * t16 * t7355 + 0.8e1 * t246 * t2351 + 0.72e2 * t7322 + 0.6e1 * t7376 + 0.108e3 * t7382 + 0.54e2 * t7384 + 0.9e1 * t7387) * t23;
6769   t7392 = t251 * t2371;
6770   t7397 = t20 / t760 / t22;
6771   t7398 = t763 * t763;
6772   t7399 = t150 * t7398;
6773   t7400 = t739 * t739;
6774   t7404 = t403 * t2373;
6775   t7408 = t752 * t761;
6776   t7437 = t7390 * t150 - 0.2592e4 * t7392 * t3020 + 0.9720e4 * t7397 * t7399 * t7400 - 0.2592e4 * t2372 * t7404 * t2323 + 0.324e3 * t7408 * t765 - 0.72e2 * t2355 * t773 - 0.36e2 * t2355 * t776 - 0.144e3 * t3892 * t2383 - 0.48e2 * t1234 * t7322 + 0.1944e4 * t1226 * t7311 + 0.648e3 * t3895 * t2404 + 0.648e3 * t3875 * t2404 + 0.216e3 * t1226 * t7326 - 0.3888e4 * t3889 * t7317 - 0.144e3 * t3878 * t2383 - 0.36e2 * t256 * t772 * t7376 - 0.72e2 * t256 * t3938 * t745;
6777   t7447 = t1032 * t16;
6778   t7459 = t2912 * t17;
6779   t7478 = t1123 * t1123;
6780   t7482 = tau[0] * t1797;
6781   t7484 = sigma[0] * t4648;
6782   t7490 = t37 * t7484;
6783   t7492 = (0.6160e4 / 0.81e2 * t7482 - 0.2618e4 / 0.81e2 * t7484) * t32 * t36 / 0.4e1 + 0.5236e4 / 0.729e3 * t7490;
6784   t7527 = t48 * t49 / t8 / t4773;
6785   t7529 = 0.26180e5 / 0.243e3 * t198 * t199 * t4648 + 0.584e3 / 0.45e2 * t1123 * t739 + 0.584e3 / 0.135e3 * t7478 + 0.2336e4 / 0.405e3 * t462 * t2504 + 0.584e3 / 0.405e3 * t209 * t7492 - 0.146e3 / 0.135e3 * t209 * t7355 * t213 + 0.1168e4 / 0.135e3 * t2522 * t246 + 0.292e3 / 0.45e2 * t209 * t7376 + 0.146e3 / 0.135e3 * t212 * t7355 - 0.146e3 / 0.135e3 * t7492 * t16 * t213 - 0.584e3 / 0.135e3 * t2504 * t246 * t213 + 0.584e3 / 0.135e3 * t2507 * t246 - 0.292e3 / 0.45e2 * t1123 * t745 * t213 + 0.292e3 / 0.45e2 * t1126 * t745 - 0.584e3 / 0.135e3 * t462 * t2351 * t213 + 0.1168e4 / 0.45e2 * t2515 * t246 + 0.584e3 / 0.135e3 * t465 * t2351 + 0.380875e6 / 0.177147e6 * t7527;
6786   t7537 = 0.162e3 * t762 * t764 * t7376 + 0.1080e4 * t762 * t257 * t7400 - 0.27e2 / 0.25e2 * t444 * t3000 - 0.72e2 * t256 * t7447 * t739 + 0.6e1 / 0.5e1 * t2914 * t474 + 0.2e1 / 0.5e1 * t2920 * t474 + 0.3e1 / 0.5e1 * t1044 * t1142 - 0.144e3 * t755 * t2996 - 0.24e2 * t256 * t7459 * t246 - 0.27e2 / 0.25e2 * t408 * t3000 - 0.27e2 / 0.50e2 * t1044 * t1107 + 0.171e3 / 0.250e3 * t408 * t3031 + 0.2e1 / 0.5e1 * t444 * t2530 + 0.2e1 / 0.5e1 * t408 * t2530 + t195 * t450 * t7529 / 0.10e2 + 0.6e1 / 0.5e1 * t1046 * t1142 + 0.3e1 / 0.5e1 * t1100 * t1142;
6787   t7544 = 0.1e1 / t449 / t2423 / t216;
6788   t7545 = t1106 * t1106;
6789   t7549 = t1141 * t1141;
6790   t7557 = t403 * t18;
6791   t7561 = t763 * t16;
6792   t7562 = t150 * t7561;
6793   t7591 = -0.1080e4 * t762 * t17 * t7400 + 0.7776e4 * t2372 * t7561 * t7400 - 0.162e3 * t762 * t763 * t7376 - 0.1296e4 * t2338 * t2400 - 0.648e3 * t2338 * t2404 + 0.72e2 * t2355 * t748 + 0.3888e4 * t2372 * t7317 + 0.144e3 * t755 * t2383 + 0.36e2 * t256 * t7384 - 0.1944e4 * t762 * t7311 - 0.216e3 * t762 * t7326;
6794   t7613 = -0.9720e4 * t7397 * t7398 * t7400 - 0.324e3 * t7408 * t1036 + 0.48e2 * t755 * t2323 + 0.36e2 * t2355 * t750 + 0.24e2 * t755 * t2385 + 0.2592e4 * t7392 * t2397 + 0.24e2 * t7331 * t249 + 0.48e2 * t256 * t7322 + 0.72e2 * t256 * t7382 + 0.6e1 * t256 * t7387 - t7390;
6795   t7614 = t7591 + t7613;
6796   t7626 = t2 * t2139;
6797   t7674 = t1076 * t1076;
6798   t7705 = t804 * t804;
6799   t7714 = t779 * t779;
6800   t7716 = 0.1e1 / t112 / t7714;
6801   t7717 = t36 * t7716;
6802   t7718 = t782 * t782;
6803   t7728 = t2721 * t32;
6804   t7743 = t782 * t804;
6805   t7748 = 0.98e2 / 0.135e3 * t349 * t813 * t7705 - 0.28084912592592592593e0 * t2858 * t396 + 0.68079908488340192042e1 * t146 * t7484 * t113 + 0.6664e4 / 0.3375e4 * t349 * t7717 * t7718 - 0.48056405991769547326e1 * t393 * t2877 + 0.392e3 / 0.135e3 * t2727 * t814 + 0.196e3 / 0.135e3 * t2724 * t814 - 0.56e2 / 0.27e2 * t7728 * t353 - 0.56e2 / 0.27e2 * t2727 * t947 - 0.56e2 / 0.81e2 * t941 * t2734 - 0.28e2 / 0.27e2 * t2866 * t947 - 0.56e2 / 0.81e2 * t944 * t2734 - 0.1568e4 / 0.675e3 * t941 * t2874 - 0.1568e4 / 0.675e3 * t944 * t2874 - 0.396e3 / 0.125e3 * t2637 * t7743 + 0.72e2 / 0.25e2 * t2640 * t2476;
6806   t7749 = t2449 * t283;
6807   t7789 = 0.24e2 / 0.25e2 * t938 * t7749 + 0.33701895111111111110e0 * t393 * t2896 - 0.42127368888888888888e-1 * t393 * t2893 - 0.14154795946666666667e0 * t393 * t2889 - 0.63191053333333333332e-1 * t1024 * t806 - 0.47182653155555555555e0 * t393 * t2885 + 0.33701895111111111111e0 * t1024 * t793 + 0.88467474666666666665e-1 * t1024 * t784 + 0.12031576554666666666e0 * t146 * t42 * t7716 * t7718 + 0.44233737333333333333e-1 * t146 * t42 * t781 * t7705 - 0.784e3 / 0.225e3 * t349 * t2873 * t7743 + 0.392e3 / 0.135e3 * t941 * t2880 + 0.392e3 / 0.135e3 * t944 * t2880 + 0.392e3 / 0.405e3 * t349 * t813 * t7749 - 0.42127368888888888888e-1 * t2858 * t400 + 0.140e3 / 0.81e2 * t338 * t2646 * t114;
6808   t7791 = 0.11068327545679012346e2 * t7482;
6809   t7800 = t2260 * t269;
6810   t7804 = t818 * t828;
6811   t7811 = t261 * t2549;
6812   t7823 = t30 / t58 / t7714;
6813   t7842 = 0.38902804850480109738e2 * t7490 + 0.55525861793708208711e1 * t7527;
6814   t7847 = 0.70e2 / 0.729e3 * t29 * t7626 * t62 + 0.14e2 / 0.1215e4 * t267 * t7800 * t284 + 0.11e2 / 0.1350e4 * t267 * t7804 * t830 - t267 * t2537 * t834 / 0.135e3 + 0.77e2 / 0.9000e4 * t267 * t7811 * t2551 - 0.11e2 / 0.900e3 * t267 * t2541 * t2555 + t267 * t823 * t2559 / 0.270e3 + 0.2387e4 / 0.120000e6 * t267 * t7823 * t61 * t7718 - 0.77e2 / 0.2000e4 * t267 * t2550 * t830 * t804 + 0.11e2 / 0.1200e4 * t267 * t829 * t61 * t7705 + 0.11e2 / 0.900e3 * t267 * t829 * t284 * t2449 - t267 * t270 * t61 * t7842 / 0.360e3;
6815   t7848 = my_piecewise3(t66, 0, t7847);
6816   t7857 = t839 * t845;
6817   t7858 = t7857 * t76;
6818   t7863 = t327 * t2564;
6819   t7871 = t839 * t839;
6820   t7872 = t7871 * t76;
6821   t7877 = t137 * t2600;
6822   t7878 = t845 * t845;
6823   t7879 = t7878 * t76;
6824   t7893 = t7848 * t76;
6825   t7896 = 0.3e1 / 0.4e1 * t2782 * t7858 + 0.42e2 * t2759 * t7858 - 0.4e1 * t1011 * t7863 - 0.3e1 * t2771 * t7858 - 0.72e2 * t384 * t858 * t839 - 0.9e1 / 0.2e1 * t975 * t7872 + 0.3e1 / 0.4e1 * t980 * t7872 - 0.48e2 * t7877 * t7879 - 0.3e1 * t1011 * t7872 + 0.48e2 * t384 * t844 * t7878 - 0.30e2 * t980 * t7879 + 0.3e1 * t2795 * t913 + 0.2e1 * t973 * t2681 + t368 * t7893 / 0.2e1;
6826   t7898 = 0.1e1 / t124 / t91;
6827   t7899 = t127 * t7898;
6828   t7902 = t971 * t864;
6829   t7905 = t2581 * t7857;
6830   t7921 = t366 * t2610;
6831   t7925 = 0.1e1 / t124 / t118;
6832   t7926 = t137 * t7925;
6833   t7934 = t7899 * t7879 / 0.16e2 + 0.3e1 / 0.2e1 * t7902 * t910 - 0.2160e4 * t7905 + 0.16e2 * t384 * t296 * t2564 + 0.36e2 * t2756 * t7858 - 0.18e2 * t2765 * t2705 - 0.6e1 * t975 * t7863 - 0.27e2 / 0.2e1 * t2790 * t7858 + 0.3e1 * t2787 * t2705 + t980 * t7863 + t7921 * t2675 / 0.2e1 - t7926 * t7879 / 0.4e1 + 0.960e3 * t331 * t2776 + 0.240e3 * t96 * t7848 * t71;
6834   t7941 = t2850 * t295;
6835   t7944 = t366 * t2600;
6836   t7948 = 0.1e1 / t124 / t73;
6837   t7949 = t127 * t7948;
6838   t7952 = t971 * t857;
6839   t7955 = t137 * t2610;
6840   t7958 = t127 * t2577;
6841   t7961 = t366 * t844;
6842   t7966 = t289 * t2564;
6843   t8013 = -0.371589120e9 * t131 * t845 * t839 - 0.34560e5 * t118 * t7871 + 0.3233160e7 * t118 * t7878 + 0.484974e6 * t120 * t7871 - 0.371589120e9 * t120 * t7878 - 0.26542080e8 * t122 * t7871 - 0.1105920e7 * t124 * t7848 + 0.26943e5 * t131 * t7848 - 0.35389440e8 * t2845 * t2564 + 0.6144e4 * t320 * t2564 - 0.46080e5 * t322 * t2564 + 0.646632e6 * t376 * t2564 + 0.4608e4 * t67 * t7871 - 0.69120e5 * t67 * t7878 + 0.768e3 * t73 * t7848 - 0.2880e4 * t91 * t7848 - 0.207360e6 * t901 * t839 + 0.4849740e7 * t995 * t839 - 0.8e1 * t7848 + 0.9216e4 * t7857;
6844   t8015 = -0.2e1 * t384 * t74 * t7848 - 0.1920e4 * t302 * t2681 + 0.2e1 * t7941 * t327 - 0.9e1 * t7944 * t2675 - 0.9e1 / 0.4e1 * t7949 * t7879 - 0.9e1 * t7952 * t910 + 0.15e2 / 0.2e1 * t7955 * t7879 + 0.75e2 / 0.4e1 * t7958 * t7879 + 0.24e2 * t7961 * t2675 + 0.1728e4 * t2747 * t2584 + 0.576e3 * t983 * t7966 + 0.4320e4 * t910 * t1016 + 0.12e2 * t384 * t295 * t7871 + t8013 * t76;
6845   t8020 = t67 * t7848;
6846   t8023 = t955 * t839;
6847   t8025 = t73 * t7871;
6848   t8027 = t358 * t2564;
6849   t8029 = t118 * t7848;
6850   t8041 = 0.30720e5 * t120 * t7848 + 0.614400e6 * t360 * t2564 + 0.1843200e7 * t73 * t7878 + 0.460800e6 * t91 * t7871 + 0.3686400e7 * t959 * t839 + 0.1344e4 * t7871 - 0.34560e5 * t7878 + 0.1792e4 * t7966 + 0.448e3 * t8020 - 0.207360e6 * t8023 - 0.51840e5 * t8025 - 0.69120e5 * t8027 - 0.5760e4 * t8029;
6851   t8058 = t67 * t999;
6852   t8063 = t73 * t2820;
6853   t8068 = t76 * t844;
6854   t8069 = t8068 * t7878;
6855   t8072 = t2600 * t7878 * t76;
6856   t8074 = 0.720e3 * t68 * t7871 * t71 - 0.1440e4 * t69 * t7871 * t76 + 0.24e2 * t118 * t8041 + 0.288e3 * t986 * t2564 + 0.576e3 * t2571 * t378 + 0.432e3 * t2750 * t839 + 0.288e3 * t8063 * t289 - 0.2880e4 * t7879 * t295 + 0.864e3 * t3554 * t839 + 0.72e2 * t371 * t7848 + 0.432e3 * t983 * t7871 + 0.864e3 * t8058 * t845 + 0.2640e4 * t8069 - 0.240e3 * t8072;
6857   t8084 = t2715 * t32;
6858   t8087 = t2718 * t32;
6859   t8111 = t2647 * t32;
6860   t8122 = 0.35e2 / 0.81e2 * t102 * (-t7791 + 0.10936459918683127572e2 * t7484) * t114 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t7848 * t141 + 0.32e2 / 0.7e1 * t2564 * t388 + 0.48e2 / 0.7e1 * t839 * t1019 + 0.32e2 / 0.7e1 * t289 * t2853 + 0.8e1 / 0.7e1 * t67 * (t7896 + t7934 + t8015 + t8074)) * t32 * t36 * t147 - 0.56e2 / 0.81e2 * t8084 * t353 - 0.56e2 / 0.27e2 * t8087 * t353 - 0.28e2 / 0.27e2 * t2724 * t947 + 0.70e2 / 0.27e2 * t929 * t887 * t114 + 0.140e3 / 0.81e2 * t2714 * t345 * t114 - 0.47182653155555555556e0 * t1345 * t3846 * t2476 - 0.21232193920000000000e0 * t1345 * t3853 * t7743 + 0.17693494933333333333e0 * t3850 * t2908 + 0.58978316444444444444e-1 * t1345 * t1346 * t7749 + 0.196e3 / 0.135e3 * t2866 * t814 - 0.56e2 / 0.81e2 * t8111 * t353 + 0.15446701925925925926e1 * t1024 * t790 - 0.14e2 / 0.81e2 * t349 * t352 * t7842 + 0.86501530785185185186e0 * t146 * t789 * t783;
6861   t8142 = 0.1e1 / t87 / t7714;
6862   t8143 = t86 * t8142;
6863   t8159 = t69 * t7848 * t76;
6864   t8168 = t2577 * t7878 * t76;
6865   t8171 = t7948 * t7878 * t76;
6866   t8190 = t857 * t7871 * t76;
6867   t8192 = t2597 * t2681;
6868   t8196 = 0.15e2 * t2600 * t845 * t913;
6869   t8198 = t864 * t7878 * t76;
6870   t8200 = t846 * t913;
6871   t8202 = -0.4e1 * t299 * t7848 - t8159 + t7898 * t7878 * t76 / 0.16e2 - 0.12e2 * t7871 * t77 - 0.16e2 * t1375 * t2564 + 0.85e2 / 0.4e1 * t8168 - 0.19e2 / 0.8e1 * t8171 + t295 * t7848 * t76 / 0.2e1 - 0.3e1 * t74 * t7871 * t76 - 0.4e1 * t385 * t2681 + t864 * t2564 * t327 + 0.3e1 / 0.4e1 * t864 * t7871 * t76 + 0.3e1 / 0.4e1 * t2610 * t839 * t910 - 0.6e1 * t8190 - 0.8e1 * t8192 - t8196 - 0.75e2 / 0.2e1 * t8198 + 0.45e2 * t8200;
6872   t8236 = 0.2e1 * t67 * t8202 + 0.8e1 * t289 * t2622 + 0.12e2 * t839 * t876 + 0.8e1 * t2564 * t304 + 0.2e1 * t7848 * t80 - t7925 * t7878 * t76 / 0.8e1 - t291 * t7848 + 0.15e2 / 0.4e1 * t2610 * t7878 * t76 - 0.3e1 / 0.2e1 * t3730 * t913 + 0.24e2 * t8069 - 0.36e2 * t7905 + 0.6e1 * t849 * t7871 + 0.8e1 * t849 * t7966 - 0.24e2 * t8072 + 0.21e2 * t865 * t913 - 0.3e1 / 0.2e1 * t844 * t7871 * t76 - 0.2e1 * t1356 * t2681;
6873   t8249 = t67 * t2711;
6874   t8261 = t905 * t864;
6875   t8268 = t324 * t2610;
6876   t8271 = t93 * t7898;
6877   t8274 = t324 * t2600;
6878   t8277 = t2670 * t295;
6879   t8280 = t324 * t844;
6880   t8289 = t93 * t7948;
6881   t8292 = t93 * t2577;
6882   t8295 = t905 * t857;
6883   t8299 = 0.1536e4 * t7878;
6884   t8301 = -0.216e3 * t7871 + 0.3e1 * t2684 * t913 + 0.3e1 / 0.2e1 * t8261 * t910 + 0.2e1 * t907 * t2681 + t326 * t7893 / 0.2e1 + t8268 * t2675 / 0.2e1 + t8271 * t7879 / 0.16e2 - 0.9e1 * t8274 * t2675 + 0.2e1 * t8277 * t327 + 0.24e2 * t8280 * t2675 - 0.30e2 * t916 * t7879 - 0.9e1 / 0.2e1 * t909 * t7872 + 0.3e1 / 0.4e1 * t916 * t7872 - 0.9e1 / 0.4e1 * t8289 * t7879 + 0.75e2 / 0.4e1 * t8292 * t7879 - 0.9e1 * t8295 * t910 - 0.20e2 * t8192 - t8196 + t8299 + 0.120e3 * t8200;
6885   t8305 = 0.9216e4 * t8023;
6886   t8306 = 0.2304e4 * t8025;
6887   t8307 = 0.3072e4 * t8027;
6888   t8308 = 0.256e3 * t8029;
6889   t8334 = (0.120e3 * t7871 + 0.160e3 * t7966 + 0.40e2 * t8020 - t8299 - t8305 - t8306 - t8307 - t8308) * t76 + 0.36e2 * t2702 * t7858 + 0.3e1 / 0.4e1 * t2674 * t7858 - 0.27e2 / 0.2e1 * t2678 * t7858 - 0.6e1 * t909 * t7863 + t916 * t7863 - 0.18e2 * t2699 * t2705 + 0.3e1 * t2689 * t2705 - 0.288e3 * t7966 - 0.72e2 * t8020 + t8306 + t8308 + t8305 + t8307 + 0.10e2 * t68 * t7848 * t71 - 0.10e2 * t8159 + 0.55e2 / 0.2e1 * t8168 - 0.5e1 / 0.4e1 * t8171 - 0.15e2 * t8190 - 0.100e3 * t8198;
6890   t8342 = t2628 * t313;
6891   t8345 = t882 * t937;
6892   t8350 = t310 * t2434;
6893   t8357 = 0.37746122524444444445e0 * t146 * t274 * t2888 - 0.61786807703703703704e0 * t146 * t789 * t805 + 0.11233965037037037037e0 * t146 * t274 * t2892 + 0.19222562396707818930e1 * t146 * t2441 * t399 - 0.12357361540740740741e1 * t393 * t2901 - 0.10531842222222222222e-1 * t146 * t42 * t351 * t7842 + 0.1056e4 / 0.625e3 * t8143 * t7718 + 0.18e2 / 0.25e2 * t938 * t7705 + (-0.8e1 / 0.3e1 * t7848 * t83 - 0.32e2 / 0.3e1 * t2564 * t307 - 0.16e2 * t839 * t879 - 0.32e2 / 0.3e1 * t289 * t2625 - 0.8e1 / 0.3e1 * t67 * t8236) * t88 + 0.35e2 / 0.81e2 * (0.144e3 * t7871 * t99 + 0.576e3 * t3600 * t839 + 0.192e3 * t1266 * t2564 + 0.288e3 * t845 * t926 + 0.192e3 * t8249 * t289 + 0.288e3 * t2654 * t839 + 0.192e3 * t893 * t2564 + 0.48e2 * t317 * t7848 + 0.24e2 * t73 * (t8301 + t8334)) * t110 * t114 - 0.4e1 / 0.5e1 * t8342 * t283 + 0.36e2 / 0.25e2 * t8345 * t782 - t314 * t7842 / 0.5e1 - 0.264e3 / 0.125e3 * t8350 * t2435 - 0.4e1 / 0.5e1 * t1027 * t2449 - 0.6e1 / 0.5e1 * t2630 * t804;
6894   t8367 = 0.6e1 / 0.5e1 * t2917 * t474 + 0.2e1 / 0.5e1 * t2987 * t474 - 0.4959e4 / 0.10000e5 * t195 * t7544 * t7545 - 0.27e2 / 0.100e3 * t195 * t1105 * t7549 - 0.48e2 * t755 * t3048 + 0.171e3 / 0.250e3 * t444 * t3031 + 0.1296e4 * t762 * t7557 * t2323 - 0.7776e4 * t2372 * t7562 * t7400 + t7614 * t194 * t217 + 0.4e1 * t2413 * t443 * t217 + 0.6e1 * t1043 * t1099 * t217 + 0.4e1 * t407 * t2986 * t217 + t152 * (-0.560e3 / 0.2187e4 * t29 * t7626 * t190 + 0.224e3 / 0.729e3 * t29 * t2533 * t439 - 0.16e2 / 0.81e2 * t29 * t819 * t1095 + 0.8e1 / 0.81e2 * t29 * t262 * t2982 - 0.2e1 / 0.27e2 * t29 * t31 * t61 * (-0.320e3 / 0.27e2 * t1059 * t2968 - 0.16e2 / 0.9e1 * t2935 * t2970 * t2939 - 0.64e2 / 0.27e2 * t33 / t1076 / t1057 * t104 * t25 * t1074 * t157 * t1079 - 0.160e3 / 0.243e3 * t414 * t415 * t273 * t60 + 0.140e3 / 0.729e3 * t29 * t7626 * t185 - 0.56e2 / 0.243e3 * t29 * t2533 * t434 + 0.4e1 / 0.27e2 * t29 * t819 * t1090 - 0.2e1 / 0.27e2 * t29 * t262 * t2977 + t29 * t31 * t61 * (0.40e2 / 0.81e2 * t1078 * t1083 * t1079 + 0.160e3 / 0.9e1 * t2961 * t1087 + 0.64e2 / 0.27e2 * t2958 / t7674 * t2936 * t2939 - 0.220e3 / 0.729e3 * t176 * t157 * t788 * t180 - 0.440e3 / 0.81e2 * t2347 * t174 - 0.50e2 / 0.81e2 * t2260 * t26 * t165 * t2973) / 0.18e2)) * t217 + 0.4e1 * t252 * t2912 + t24 * (t7748 + t7789 + t8122 + t8357) + 0.513e3 / 0.500e3 * t195 * t2425 * t1106 * t1141 + 0.1296e4 * t2338 * t3037;
6895   t8381 = -0.144e3 * t3174 * t2383 + 0.648e3 * t3177 * t2404 + 0.1944e4 * t1562 * t7311 + 0.648e3 * t3180 * t2404 - 0.3888e4 * t3190 * t7317 - 0.144e3 * t3197 * t2383 - 0.48e2 * t1568 * t7322 + 0.216e3 * t1562 * t7326 - p->cam_beta * (t7375 + t7437 + t7537 + t8367) - 0.9e1 / 0.25e2 * t1194 * t2529 * t473 - 0.27e2 / 0.25e2 * t2420 * t2327 - 0.48e2 * t755 * t2324 - 0.48e2 * t256 * t498 * t2323;
6896   t8390 = t1188 * t763;
6897   t8394 = t498 * t2373;
6898   t8400 = t231 * t7398;
6899   t8420 = 0.513e3 / 0.500e3 * t2426 * t1106 * t1141 + 0.4e1 * t2388 * t498 + 0.6e1 * t753 * t1188 + t7390 * t231 + 0.324e3 * t762 * t8390 * t739 - 0.2592e4 * t2372 * t8394 * t2323 - 0.2592e4 * t7392 * t2375 + 0.9720e4 * t7397 * t8400 * t7400 - 0.72e2 * t256 * t3206 * t745 + 0.1080e4 * t762 * t231 * t7400 * t17 - 0.24e2 * t755 * t2352 - 0.72e2 * t755 * t2359 + 0.648e3 * t2338 * t2366 + 0.162e3 * t762 * t1152 * t7376;
6900   t8425 = t498 * t18;
6901   t8429 = t231 * t7561;
6902   t8433 = t2481 * t17;
6903   t8452 = t1188 * t16;
6904   t8458 = -0.24e2 * t256 * t1156 * t2351 - 0.36e2 * t256 * t1160 * t7376 + 0.1296e4 * t762 * t8425 * t2323 - 0.36e2 * t256 * t2358 * t745 - 0.7776e4 * t2372 * t8429 * t7400 - 0.24e2 * t256 * t8433 * t246 - 0.72e2 * t256 * t8452 * t739 - 0.72e2 * t2355 * t1161 + t7614 * t217 - 0.144e3 * t755 * t2331 + 0.1296e4 * t2338 * t2344 - 0.72e2 * t755 * t2362 + 0.4e1 * t252 * t2481;
6905   t8470 = t2460 * t351;
6906   t8488 = t1177 * t781;
6907   t8491 = t492 * t2472;
6908   t8496 = t228 * t7716;
6909   t8505 = 0.7e1 / 0.9e1 * (0.16533692061454046639e2 * t7490 - 0.5e1 / 0.9e1 * (t7791 + 0.30685498274897119342e1 * t7484) * t32 * t36) * t113 - t313 * t7842 / 0.5e1 - 0.56e2 / 0.45e2 * t8470 * t283 - 0.28e2 / 0.15e2 * t2463 * t804 - 0.56e2 / 0.45e2 * t1180 * t2449 - 0.14e2 / 0.45e2 * t495 * t7842 + 0.1056e4 / 0.625e3 * t8142 * t7718 - 0.396e3 / 0.125e3 * t2434 * t782 * t804 + 0.18e2 / 0.25e2 * t937 * t7705 + 0.24e2 / 0.25e2 * t2438 * t2449 + 0.196e3 / 0.75e2 * t8488 * t782 - 0.1568e4 / 0.375e3 * t8491 * t2435 + 0.392e3 / 0.75e2 * t2466 * t2476 + 0.6664e4 / 0.1875e4 * t8496 * t7718 - 0.784e3 / 0.125e3 * t2473 * t7743 + 0.98e2 / 0.75e2 * t1183 * t7705 + 0.392e3 / 0.225e3 * t1183 * t7749;
6910   t8507 = t2413 * t450;
6911   t8516 = t152 * t7544;
6912   t8519 = t407 * t2425;
6913   t8524 = t1043 * t1105;
6914   t8538 = t24 * t8505 + 0.2e1 / 0.5e1 * t8507 * t473 + 0.3e1 / 0.5e1 * t3056 * t1141 + 0.2e1 / 0.5e1 * t1191 * t2529 + t501 * t7529 / 0.10e2 - 0.4959e4 / 0.10000e5 * t8516 * t7545 + 0.171e3 / 0.250e3 * t8519 * t2427 - 0.27e2 / 0.100e3 * t1194 * t7549 - 0.27e2 / 0.50e2 * t8524 * t1106 - 0.6e1 * t256 * t480 * t7355 - 0.36e2 * t2355 * t1164 + 0.324e3 * t7408 * t1153 - 0.24e2 * t7331 * t481 - 0.72e2 * t2355 * t1157;
6915   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
6916     v4rho4[0] = -0.5e1 / 0.27e2 * t5 * t7 * t41 * t234 + 0.4e1 / 0.9e1 * t5 * t2313 * t504 - t5 * t733 * t1199 - 0.2e1 * t5 * t9 * t3064 - 0.3e1 / 0.8e1 * t240 * t241 * (t8381 + t8420 + t8458 + t8538);
6917 
6918   t8544 = t104 * t2;
6919   t8554 = t666 * t18;
6920   t8566 = my_piecewise3(t15, -0.3e1 / 0.4e1 * t2347 * t12, 0);
6921   t8584 = -0.4959e4 / 0.10000e5 * t8516 * t649 * t2427 + 0.324e3 * t762 * t8554 * t2323 - 0.36e2 * t3167 * t1161 - 0.36e2 * t1220 * t2331 - 0.36e2 * t755 * t3075 - 0.6e1 * t256 * t480 * t8566 - 0.18e2 * t2355 * t1576 - 0.18e2 * t755 * t3973 - 0.18e2 * t256 * t1156 * t3110 + 0.3e1 * t753 * t1595 + 0.3e1 * t252 * t3284 + t2388 * t666 - 0.36e2 * t755 * t3977;
6922   t8591 = t3191 * t2378;
6923   t8594 = t3170 * t2378;
6924   t8611 = t2373 * t1210 * t739;
6925   t8618 = t1227 * t2351;
6926   t8621 = t7392 * t150;
6927   t8624 = t2372 * t403;
6928   t8640 = t7561 * t510 * t2323;
6929   t8643 = t513 * t2323;
6930   t8669 = t7398 * t510 * t2323;
6931   t8673 = t18 * t1210 * t739;
6932   t8677 = t763 * t3110 * t246;
6933   t8680 = t3183 * t745;
6934   t8685 = 0.36e2 * t2355 * t1213 + 0.12e2 * t1220 * t2323 + 0.36e2 * t1220 * t2383 - 0.162e3 * t7408 * t1228 - 0.972e3 * t2338 * t3171 - 0.324e3 * t2338 * t3184 - 0.162e3 * t2338 * t3187 + 0.1944e4 * t2372 * t8611 + 0.7776e4 * t2372 * t8640 - 0.162e3 * t3152 * t2404 + 0.1944e4 * t7392 * t3192 + 0.72e2 * t755 * t3200 + 0.36e2 * t755 * t3203 - 0.9720e4 * t7397 * t8669 - 0.54e2 * t762 * t8618 - 0.1080e4 * t762 * t8643 - 0.972e3 * t762 * t8673 - 0.162e3 * t762 * t8677 - 0.162e3 * t762 * t8680;
6935   t8686 = t1206 * t745;
6936   t8689 = t3226 * t246;
6937   t8692 = t1211 * t745;
6938   t8695 = t511 * t2351;
6939   t8708 = t739 * t1210;
6940   t8711 = t17 * t8566;
6941   t8714 = t3234 * t255;
6942   t8719 = t1217 * t761;
6943   t8722 = t515 * t2371;
6944   t8744 = (0.6e1 * t745 * t1210 + 0.2e1 * t16 * t8566 + 0.2e1 * t2351 * t510 + 0.6e1 * t246 * t3110 + 0.54e2 * t8686 + 0.54e2 * t8689 + 0.54e2 * t8692 + 0.18e2 * t8695 + 0.54e2 * t8708 + 0.9e1 * t8711) * t23;
6945   t8749 = -0.162e3 * t8719 * t1036 + 0.18e2 * t2355 * t1215 + 0.6e1 * t1220 * t2385 + 0.648e3 * t8722 * t2397 - 0.324e3 * t3152 * t2400 + 0.18e2 * t8714 * t249 + 0.36e2 * t256 * t8686 + 0.36e2 * t256 * t8689 + 0.36e2 * t256 * t8692 + 0.12e2 * t256 * t8695 + 0.36e2 * t256 * t8708 + 0.6e1 * t256 * t8711 + 0.36e2 * t3167 * t748 + 0.18e2 * t3167 * t750 + 0.36e2 * t755 * t3228 + 0.18e2 * t755 * t3232 + 0.6e1 * t7331 * t513 + 0.1944e4 * t5350 * t8686 - 0.972e3 * t5353 * t8686 - t8744;
6946   t8750 = t8685 + t8749;
6947   t8753 = t632 * t2530 / 0.10e2 + t2987 * t650 / 0.10e2 - 0.18e2 * t2355 * t1242 - 0.1944e4 * t3889 * t8591 - 0.1944e4 * t3889 * t8611 + 0.162e3 * t3895 * t3187 + 0.162e3 * t3875 * t3187 + 0.54e2 * t1226 * t8618 - 0.1944e4 * t8621 * t3192 - 0.1944e4 * t8624 * t3192 + 0.3e1 * t3339 * t443 * t217 + 0.3e1 * t1504 * t1099 * t217 + t631 * t2986 * t217 + 0.3e1 * t753 * t1492 + t8750 * t194 * t217;
6948   t8756 = t3859 * t17;
6949   t8784 = -0.18e2 * t755 * t3342 - 0.18e2 * t256 * t8756 * t246 + 0.3e1 * t1218 * t1032 + t516 * t2912 + 0.3e1 * t3235 * t403 + t2388 * t627 + t8744 * t150 - 0.36e2 * t1220 * t2996 + 0.324e3 * t3152 * t3037 - 0.36e2 * t3167 * t773 + 0.3e1 / 0.5e1 * t3302 * t474 + 0.3e1 / 0.10e2 * t3305 * t474 + 0.171e3 / 0.1000e4 * t632 * t3031 - 0.12e2 * t256 * t627 * t2323 + 0.3e1 / 0.10e2 * t1044 * t1551;
6950   t8804 = t403 * t739;
6951   t8819 = t36 * t1797;
6952   t8848 = 0.146e3 / 0.3645e4 * t3127 * t1330 + 0.73e2 / 0.1215e4 * t37 * t273 * t739 - 0.1540e4 / 0.81e2 * t198 * t8819 - 0.1606e4 / 0.10935e5 * t1522 * t3084 + 0.22484e5 / 0.98415e5 * t637 * t8819 - 0.73e2 / 0.14580e5 * t2504 * t32 * t619 - 0.146e3 / 0.45e2 * t1123 * t1210 * t213 - 0.146e3 / 0.45e2 * t462 * t3110 * t213 + 0.584e3 / 0.45e2 * t3103 * t246 + 0.292e3 / 0.45e2 * t3124 * t246 + 0.292e3 / 0.45e2 * t1538 * t745 - 0.146e3 / 0.135e3 * t209 * t8566 * t213 + 0.292e3 / 0.45e2 * t3111 * t246 + 0.292e3 / 0.45e2 * t1541 * t745;
6953   t8860 = t48 * sigma[0] * t2445;
6954   t8893 = 0.292e3 / 0.135e3 * t644 * t2351 + 0.146e3 / 0.135e3 * t2507 * t510 + 0.146e3 / 0.45e2 * t1126 * t1210 + 0.146e3 / 0.45e2 * t465 * t3110 + 0.146e3 / 0.135e3 * t212 * t8566 - 0.31625e5 / 0.59049e5 * t8860 + 0.803e3 / 0.7290e4 * t37 * t788 * t246 * t213 - 0.803e3 / 0.7290e4 * t37 * t3136 * t246 - 0.5621e4 / 0.32805e5 * t37 * t1797 * t16 * t213 - 0.73e2 / 0.2430e4 * t37 * t273 * t745 * t213 + 0.73e2 / 0.2430e4 * t37 * t1527 * t745 + 0.73e2 / 0.19440e5 * t37 * t41 * t2351 * t213 - 0.73e2 / 0.3240e4 * t37 * t3094 * t246 - 0.73e2 / 0.19440e5 * t37 * t640 * t2351 - 0.146e3 / 0.135e3 * t2504 * t510 * t213;
6955   t8894 = t8848 + t8893;
6956   t8902 = 0.3e1 / 0.5e1 * t1046 * t1551 + 0.3e1 / 0.10e2 * t2914 * t650 + 0.3e1 / 0.10e2 * t2917 * t650 + t2920 * t650 / 0.10e2 - 0.27e2 / 0.100e3 * t1505 * t1107 - 0.27e2 / 0.100e3 * t1507 * t1107 - 0.18e2 * t755 * t3872 - 0.4959e4 / 0.10000e5 * t195 * t7544 * t649 * t2427 - 0.36e2 * t256 * t8804 * t510 + 0.3e1 / 0.10e2 * t444 * t3961 + 0.3e1 / 0.10e2 * t408 * t3961 + 0.3e1 / 0.10e2 * t3340 * t474 + t195 * t450 * t8894 / 0.10e2 + 0.3e1 / 0.10e2 * t1100 * t1551 - 0.18e2 * t1220 * t2990;
6957   t8933 = t3213 * t473;
6958   t8942 = -0.18e2 * t8714 * t258 - 0.18e2 * t256 * t2989 * t1210 - 0.36e2 * t755 * t3292 + 0.513e3 / 0.1000e4 * t195 * t2425 * t1550 * t1106 - 0.36e2 * t3167 * t769 - 0.6e1 * t256 * t7459 * t510 - 0.27e2 / 0.50e2 * t408 * t3862 - 0.27e2 / 0.50e2 * t444 * t3862 - 0.27e2 / 0.100e3 * t444 * t3865 - 0.27e2 / 0.100e3 * t195 * t3861 * t1141 - 0.27e2 / 0.100e3 * t408 * t3865 - 0.18e2 * t256 * t768 * t3110 + 0.513e3 / 0.1000e4 * t5544 * t8933 + 0.162e3 * t5131 * t2404 + 0.513e3 / 0.1000e4 * t408 * t3947 + 0.513e3 / 0.1000e4 * t444 * t3947;
6959   t8953 = t2338 * t403;
6960   t8956 = t762 * t1032;
6961   t8976 = t1492 * t16;
6962   t8982 = -0.27e2 / 0.100e3 * t195 * t1105 * t3140 * t473 - 0.12e2 * t1220 * t3048 - 0.27e2 / 0.100e3 * t1044 * t1516 + 0.324e3 * t8953 * t1228 + 0.162e3 * t8956 * t1228 + 0.324e3 * t3895 * t3184 + 0.324e3 * t3875 * t3184 + 0.162e3 * t1226 * t8680 - 0.36e2 * t1234 * t8686 + 0.3e1 / 0.10e2 * t1505 * t1142 + 0.3e1 / 0.10e2 * t1507 * t1142 - 0.18e2 * t256 * t3898 * t745 + 0.972e3 * t1226 * t8594 - 0.36e2 * t256 * t8976 * t739 - 0.36e2 * t1234 * t8689;
6963   t9015 = 0.162e3 * t1226 * t8677 + 0.972e3 * t3895 * t3171 + 0.972e3 * t3875 * t3171 + 0.972e3 * t1226 * t8673 - 0.7776e4 * t3889 * t8640 - 0.6e1 * t256 * t257 * t8566 - 0.18e2 * t2355 * t1237 - 0.18e2 * t2355 * t1231 - 0.6e1 * t7331 * t518 - 0.18e2 * t1220 * t3023 - 0.36e2 * t755 * t3899 - 0.6e1 * t256 * t1241 * t2351 - 0.18e2 * t3167 * t776 - 0.18e2 * t755 * t3904 - 0.27e2 / 0.50e2 * t1046 * t1516;
6964   t9019 = t1492 * t763;
6965   t9023 = t627 * t2373;
6966   t9039 = t627 * t18;
6967   t9058 = -0.68652008559670781891e1 * t37 * t1797 - 0.13326206830489970091e1 * t8860;
6968   t9070 = t788 * t351;
6969   t9071 = t9070 * t283;
6970   t9076 = t3257 * t804;
6971   t9081 = t1391 * t2449;
6972   t9086 = -0.14e2 / 0.81e2 * t8084 * t579 - 0.31595526666666666666e-1 * t1024 * t1392 - 0.14e2 / 0.27e2 * t941 * t3702 - 0.14e2 / 0.27e2 * t944 * t3702 - 0.14e2 / 0.81e2 * t349 * t352 * t9058 - 0.21931403580246913581e-1 * t3347 * t947 - 0.73104678600823045268e-2 * t1398 * t2734 - 0.14e2 / 0.81e2 * t8111 * t579 - 0.14e2 / 0.27e2 * t2866 * t1405 - 0.30893403851851851852e0 * t146 * t9071 + 0.16850947555555555555e0 * t393 * t3258 + 0.84254737777777777777e-1 * t146 * t9076 - 0.31595526666666666666e-1 * t393 * t3264 - 0.10531842222222222222e-1 * t146 * t9081 - 0.14e2 / 0.27e2 * t3352 * t947;
6973   t9091 = t3809 * t32;
6974   t9094 = t3837 * t32;
6975   t9102 = t1387 * t937;
6976   t9113 = t3251 * t283;
6977   t9117 = t1255 * t804;
6978   t9123 = t526 * t2449;
6979   t9131 = -0.14e2 / 0.27e2 * t3355 * t947 - 0.14e2 / 0.81e2 * t1395 * t2734 - 0.21444039056241426612e0 * t9091 * t353 + 0.11696748576131687243e0 * t9094 * t353 + 0.58483742880658436214e-1 * t3366 * t947 - 0.14620935720164609054e0 * t929 * t273 * t114 + 0.18e2 / 0.25e2 * t9102 * t782 - 0.12014101497942386831e1 * t145 * t8819 * t113 + 0.77233509629629629632e0 * t392 * t3806 + 0.53610097640603566530e0 * t338 * t788 * t114 + 0.98e2 / 0.135e3 * t349 * t813 * t9113 + 0.98e2 / 0.135e3 * t349 * t813 * t9117 + 0.98e2 / 0.135e3 * t941 * t3826 + 0.98e2 / 0.405e3 * t349 * t813 * t9123 - 0.31595526666666666666e-1 * t1481 * t806 + 0.98e2 / 0.135e3 * t2866 * t1263;
6980   t9163 = t1255 * t782;
6981   t9170 = 0.196e3 / 0.135e3 * t944 * t3823 + 0.98e2 / 0.135e3 * t944 * t3826 + 0.196e3 / 0.135e3 * t941 * t3823 - 0.11795663288888888889e0 * t616 * t2885 - 0.35386989866666666666e-1 * t616 * t2889 - 0.31595526666666666666e-1 * t3583 * t400 - 0.10531842222222222222e-1 * t2858 * t624 - 0.10531842222222222222e-1 * t146 * t42 * t351 * t9058 - 0.31595526666666666666e-1 * t1024 * t1257 - 0.31595526666666666666e-1 * t393 * t3794 - 0.30893403851851851852e0 * t616 * t2901 + 0.16850947555555555556e0 * t1481 * t793 - 0.392e3 / 0.225e3 * t941 * t3813 - 0.392e3 / 0.225e3 * t944 * t3813 - 0.392e3 / 0.225e3 * t349 * t2873 * t9163 + 0.44233737333333333333e-1 * t1023 * t199 * t1347;
6982   t9205 = t3846 * t782;
6983   t9208 = t3853 * t2435;
6984   t9211 = 0.43250765392592592593e0 * t1345 * t788 * t781 * t1262 + 0.35e2 / 0.27e2 * t3685 * t345 * t114 + 0.18276169650205761317e-1 * t2714 * t41 * t114 + 0.26329605555555555556e-1 * t2857 * t620 + 0.35e2 / 0.27e2 * t1326 * t887 * t114 + 0.35e2 / 0.81e2 * t572 * t2646 * t114 - 0.21063684444444444445e0 * t3583 * t396 - 0.12014101497942386831e1 * t616 * t2877 - 0.14e2 / 0.27e2 * t8087 * t579 - 0.14e2 / 0.27e2 * t2724 * t1405 - 0.14e2 / 0.27e2 * t7728 * t579 - 0.28e2 / 0.27e2 * t2727 * t1405 - 0.81877240032921810701e-1 * t3366 * t814 - 0.24563172009876543211e-1 * t1398 * t2874 - 0.11795663288888888889e0 * t146 * t9205 - 0.35386989866666666666e-1 * t146 * t9208;
6985   t9216 = t3686 * t32;
6986   t9220 = t28 * t266 * t30;
6987   t9221 = t2549 * t61;
6988   t9222 = t1262 * t804;
6989   t9271 = -0.77e2 / 0.4000e4 * t9220 * t9221 * t9222 + 0.77e2 / 0.12000e5 * t267 * t7811 * t3389 + 0.2387e4 / 0.120000e6 * t267 * t7823 * t527 * t2435 - t267 * t2537 * t1278 / 0.270e3 + t267 * t823 * t3401 / 0.360e3 - t267 * t270 * t61 * t9058 / 0.360e3 - 0.77e2 / 0.4000e4 * t267 * t2550 * t1278 * t782 + 0.11e2 / 0.1200e4 * t267 * t829 * t3401 * t283 + 0.11e2 / 0.1200e4 * t267 * t829 * t1278 * t804 + 0.11e2 / 0.3600e4 * t267 * t829 * t527 * t2449 + 0.7e1 / 0.2430e4 * t267 * t7800 * t527 + 0.11e2 / 0.2700e4 * t267 * t7804 * t1274 - 0.11e2 / 0.1800e4 * t267 * t2541 * t3393 - 0.11e2 / 0.3600e4 * t267 * t2541 * t3397;
6990   t9272 = my_piecewise3(t66, 0, t9271);
6991   t9289 = t561 * t2571;
6992   t9302 = t1307 * t845;
6993   t9307 = t1289 * t839;
6994   t9308 = t2581 * t9307;
6995   t9314 = 0.18e2 * t7961 * t3453 - 0.30e2 * t980 * t9289 - 0.48e2 * t7877 * t9289 + 0.48e2 * t384 * t3652 * t2571 + 0.15e2 / 0.2e1 * t7955 * t9289 - 0.36e2 * t384 * t3655 * t845 + 0.18e2 * t2756 * t9302 + 0.75e2 / 0.4e1 * t7958 * t9289 - 0.1080e4 * t9308 + 0.216e3 * t3561 * t839 + 0.72e2 * t1448 * t2564;
6996   t9323 = t67 * t1459;
6997   t9331 = t73 * t3512;
6998   t9341 = 0.72e2 * t8063 * t531 + 0.216e3 * t986 * t3406 + 0.72e2 * t371 * t9272 + 0.216e3 * t2750 * t1283 + 0.432e3 * t9323 * t845 + 0.432e3 * t845 * t378 * t531 + 0.432e3 * t3554 * t1283 + 0.216e3 * t9331 * t289 - 0.3e1 / 0.2e1 * t2771 * t9302 - t7926 * t9289 / 0.4e1 + 0.12e2 * t384 * t1369 * t839;
6999   t9348 = t1307 * t839;
7000   t9355 = t561 * t2564;
7001   t9368 = 0.21e2 * t2759 * t9302 + 0.4e1 * t384 * t536 * t2564 - 0.9e1 / 0.2e1 * t975 * t9348 - 0.27e2 / 0.4e1 * t2790 * t9302 - 0.9e1 / 0.2e1 * t2765 * t3465 - 0.3e1 / 0.2e1 * t975 * t9355 - 0.27e2 / 0.4e1 * t7944 * t3453 - 0.9e1 / 0.4e1 * t7949 * t9289 - 0.9e1 / 0.2e1 * t7952 * t1304 + 0.3e1 / 0.4e1 * t7902 * t1304 - 0.9e1 * t2765 * t3462;
7002   t9375 = t3443 * t289;
7003   t9395 = 0.3e1 / 0.2e1 * t2787 * t3462 - 0.9e1 / 0.2e1 * t3573 * t2705 + 0.3e1 / 0.4e1 * t3570 * t2705 - 0.9e1 / 0.2e1 * t975 * t9375 + 0.3e1 / 0.4e1 * t980 * t9375 + 0.12e2 * t384 * t3753 * t289 - 0.3e1 * t1011 * t9375 + 0.2160e4 * t608 * t2705 + 0.3e1 / 0.4e1 * t980 * t9348 + 0.3e1 / 0.8e1 * t2782 * t9302 + 0.3e1 / 0.4e1 * t2787 * t3465 + t980 * t9355 / 0.4e1;
7004   t9405 = t2782 * t531;
7005   t9411 = t384 * t857;
7006   t9417 = t2756 * t531;
7007   t9420 = t2790 * t531;
7008   t9423 = t839 * t1283;
7009   t9425 = t2564 * t531;
7010   t9427 = t289 * t3406;
7011   t9429 = t67 * t9272;
7012   t9431 = t118 * t9272;
7013   t9433 = t2571 * t531;
7014   t9435 = t1291 * t845;
7015   t9437 = t1414 * t839;
7016   t9439 = t584 * t2564;
7017   t9441 = t3522 * t289;
7018   t9455 = t555 * t2584;
7019   t9459 = 0.30720e5 * t120 * t9272 + 0.1843200e7 * t1295 * t845 + 0.460800e6 * t1418 * t839 + 0.153600e6 * t586 * t2564 + 0.1843200e7 * t584 * t2571 + 0.1843200e7 * t557 * t2584 + 0.460800e6 * t3530 * t289 + 0.1344e4 * t9423 + 0.448e3 * t9425 + 0.1344e4 * t9427 + 0.448e3 * t9429 - 0.5760e4 * t9431 - 0.34560e5 * t9433 - 0.103680e6 * t9435 - 0.51840e5 * t9437 - 0.17280e5 * t9439 - 0.51840e5 * t9441 - 0.103680e6 * t9455;
7020   t9462 = 0.3e1 / 0.8e1 * t7921 * t3453 + t7899 * t9289 / 0.16e2 - t1011 * t9355 - 0.3e1 * t1011 * t9348 + 0.3e1 / 0.8e1 * t9405 * t2705 - 0.3e1 / 0.2e1 * t2771 * t289 * t3465 - 0.36e2 * t9411 * t9307 + 0.21e2 * t2759 * t289 * t3465 + 0.18e2 * t9417 * t2705 - 0.27e2 / 0.4e1 * t9420 * t2705 + 0.24e2 * t118 * t9459;
7021   t9492 = -0.26542080e8 * t122 * t3406 * t289 - 0.34560e5 * t1295 * t839 + 0.2424870e7 * t1418 * t845 - 0.185794560e9 * t1422 * t845 - 0.8847360e7 * t1424 * t2564 + 0.484974e6 * t1457 * t839 + 0.1536e4 * t555 * t2564 - 0.11520e5 * t557 * t2564 + 0.161658e6 * t600 * t2564 - 0.69120e5 * t555 * t2571 + 0.3233160e7 * t557 * t2571 - 0.371589120e9 * t600 * t2571 + 0.484974e6 * t3510 * t289 - 0.26542080e8 * t3542 * t839;
7022   t9510 = t845 * t1283;
7023   t9519 = -0.1105920e7 * t124 * t9272 + 0.4608e4 * t1291 * t839 + 0.26943e5 * t131 * t9272 - 0.103680e6 * t1414 * t845 - 0.103680e6 * t584 * t2584 + 0.2424870e7 * t586 * t2584 - 0.185794560e9 * t588 * t2584 + 0.4608e4 * t3494 * t289 - 0.34560e5 * t3502 * t289 + 0.768e3 * t73 * t9272 - 0.2880e4 * t91 * t9272 - 0.8e1 * t9272 + 0.4608e4 * t9307 + 0.4608e4 * t9510;
7024   t9524 = t1429 * t864;
7025   t9535 = t9272 * t76;
7026   t9544 = t3549 * t295;
7027   t9547 = (t9492 + t9519) * t76 + 0.144e3 * t2571 * t602 + 0.3e1 / 0.4e1 * t9524 * t910 + 0.3e1 / 0.2e1 * t2795 * t1307 - 0.2880e4 * t9433 * t849 + t7941 * t561 / 0.2e1 + 0.3e1 / 0.2e1 * t973 * t3443 + t368 * t9535 / 0.2e1 + 0.432e3 * t983 * t9427 + 0.432e3 * t983 * t9423 + 0.144e3 * t983 * t9425 + 0.3e1 / 0.2e1 * t9544 * t327;
7028   t9549 = t592 * t2610;
7029   t9573 = t9549 * t2675 / 0.8e1 + t1431 * t2681 / 0.2e1 + 0.3e1 / 0.2e1 * t3449 * t913 + 0.432e3 * t8058 * t1289 + 0.864e3 * t2747 * t3436 + 0.432e3 * t2747 * t3439 + 0.432e3 * t3551 * t2584 + 0.432e3 * t4927 * t3439 + 0.720e3 * t331 * t3431 + 0.240e3 * t96 * t9272 * t71 - 0.480e3 * t541 * t2681;
7030   t9585 = t592 * t844;
7031   t9588 = t1429 * t857;
7032   t9591 = t592 * t2600;
7033   t9596 = t2601 * t561;
7034   t9598 = t8068 * t9433;
7035   t9600 = t2581 * t9510;
7036   t9602 = 0.240e3 * t2695 * t605 + 0.720e3 * t921 * t1464 - 0.2e1 * t384 * t74 * t9272 - 0.1440e4 * t302 * t3443 - 0.1440e4 * t1317 * t913 + 0.6e1 * t9585 * t2675 - 0.9e1 / 0.2e1 * t9588 * t910 - 0.9e1 / 0.4e1 * t9591 * t2675 + 0.2160e4 * t1473 * t910 - 0.240e3 * t9596 + 0.2640e4 * t9598 - 0.1080e4 * t9600;
7037   t9613 = t3588 * t32;
7038   t9616 = t3591 * t32;
7039   t9619 = t3594 * t32;
7040   t9624 = t3652 * t2705;
7041   t9627 = 0.15e2 / 0.2e1 * t3658 * t2705;
7042   t9628 = t2678 * t531;
7043   t9631 = t2674 * t531;
7044   t9634 = t2702 * t531;
7045   t9657 = 0.60e2 * t9624 - t9627 - 0.27e2 / 0.4e1 * t9628 * t2705 + 0.3e1 / 0.8e1 * t9631 * t2705 + 0.18e2 * t9634 * t2705 - 0.27e2 / 0.4e1 * t8274 * t3453 - 0.9e1 * t2699 * t3462 + 0.3e1 / 0.2e1 * t2689 * t3462 - 0.9e1 / 0.2e1 * t909 * t9375 + 0.3e1 / 0.4e1 * t916 * t9375 - 0.9e1 / 0.2e1 * t3649 * t2705 + 0.3e1 / 0.4e1 * t3643 * t2705 - 0.9e1 / 0.2e1 * t8295 * t1304 + 0.3e1 / 0.4e1 * t8261 * t1304 - 0.9e1 / 0.4e1 * t8289 * t9289;
7046   t9689 = 0.4608e4 * t9435;
7047   t9690 = 0.18e2 * t8280 * t3453 + 0.18e2 * t2702 * t9302 + 0.75e2 / 0.4e1 * t8292 * t9289 - 0.30e2 * t916 * t9289 - 0.9e1 / 0.2e1 * t909 * t9348 - 0.27e2 / 0.4e1 * t2678 * t9302 - 0.3e1 / 0.2e1 * t909 * t9355 + 0.3e1 / 0.4e1 * t2689 * t3465 + 0.3e1 / 0.4e1 * t916 * t9348 + t916 * t9355 / 0.4e1 + 0.3e1 / 0.8e1 * t8268 * t3453 + 0.3e1 / 0.8e1 * t2674 * t9302 + t8271 * t9289 / 0.16e2 - 0.9e1 / 0.2e1 * t2699 * t3465 + 0.10e2 * t68 * t9272 * t71 + t9689;
7048   t9692 = 0.2304e4 * t9441;
7049   t9693 = 0.2304e4 * t9437;
7050   t9694 = 0.768e3 * t9439;
7051   t9696 = t69 * t9272 * t76;
7052   t9703 = 0.1536e4 * t9433;
7053   t9704 = 0.4608e4 * t9455;
7054   t9705 = 0.256e3 * t9431;
7055   t9706 = 0.40e2 * t9425 + 0.120e3 * t9423 + 0.120e3 * t9427 + 0.40e2 * t9429 - t9703 - t9689 - t9704 - t9692 - t9693 - t9694 - t9705;
7056   t9711 = t559 * t844;
7057   t9714 = t1297 * t857;
7058   t9717 = t559 * t2600;
7059   t9720 = t559 * t2610;
7060   t9723 = t9692 + t9693 + t9694 - 0.10e2 * t9696 - 0.216e3 * t9423 + t9706 * t76 - 0.72e2 * t9425 - 0.216e3 * t9427 - 0.72e2 * t9429 + t9703 + t9705 + t9704 + 0.6e1 * t9711 * t2675 - 0.9e1 / 0.2e1 * t9714 * t910 - 0.9e1 / 0.4e1 * t9717 * t2675 + t9720 * t2675 / 0.8e1;
7061   t9728 = t1297 * t864;
7062   t9739 = t3674 * t295;
7063   t9743 = t7948 * t531 * t2675;
7064   t9745 = t1320 * t2681;
7065   t9747 = t2577 * t531;
7066   t9748 = t9747 * t2675;
7067   t9751 = t857 * t3406 * t327;
7068   t9753 = t3655 * t913;
7069   t9757 = 0.15e2 / 0.2e1 * t2600 * t1283 * t910;
7070   t9758 = t844 * t1283;
7071   t9759 = t9758 * t910;
7072   t9761 = t1372 * t2675;
7073   t9763 = t8277 * t561 / 0.2e1 + 0.3e1 / 0.2e1 * t3639 * t913 + 0.3e1 / 0.4e1 * t9728 * t910 + t1299 * t2681 / 0.2e1 + 0.3e1 / 0.2e1 * t2684 * t1307 + 0.3e1 / 0.2e1 * t907 * t3443 + t326 * t9535 / 0.2e1 + 0.3e1 / 0.2e1 * t9739 * t327 - 0.5e1 / 0.4e1 * t9743 - 0.5e1 * t9745 + 0.55e2 / 0.2e1 * t9748 - 0.15e2 * t9751 - 0.15e2 * t9753 - t9757 + 0.60e2 * t9759 - 0.100e3 * t9761;
7074   t9772 = t67 * t3682;
7075   t9800 = 0.144e3 * t845 * t1323 + 0.24e2 * t73 * (t9657 + t9690 + t9723 + t9763) + 0.48e2 * t1286 * t2564 + 0.144e3 * t3613 * t839 + 0.144e3 * t9772 * t289 + 0.144e3 * t4625 * t839 + 0.144e3 * t893 * t3406 + 0.48e2 * t317 * t9272 + 0.144e3 * t2654 * t1283 + 0.144e3 * t1266 * t3406 + 0.48e2 * t8249 * t531 + 0.288e3 * t3600 * t1283 + 0.48e2 * t2564 * t99 * t531 + 0.144e3 * t839 * t335 * t531 + 0.144e3 * t3597 * t1283 + 0.144e3 * t289 * t926 * t531;
7076   t9808 = t111 * t37;
7077   t9809 = t2472 * t526;
7078   t9825 = -0.392e3 / 0.675e3 * t1395 * t2874 - 0.14e2 / 0.27e2 * t9216 * t353 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t9272 * t141 + 0.24e2 / 0.7e1 * t3406 * t388 + 0.24e2 / 0.7e1 * t1283 * t1019 + 0.8e1 / 0.7e1 * t531 * t2853 + 0.8e1 / 0.7e1 * t2564 * t611 + 0.24e2 / 0.7e1 * t839 * t1476 + 0.24e2 / 0.7e1 * t289 * t3578 + 0.8e1 / 0.7e1 * t67 * (t9314 + t9341 + t9368 + t9395 + t9462 + t9547 + t9573 + t9602)) * t32 * t36 * t147 - 0.28e2 / 0.27e2 * t9613 * t353 - 0.14e2 / 0.27e2 * t9616 * t353 - 0.21931403580246913581e-1 * t9619 * t353 + 0.35e2 / 0.81e2 * t9800 * t110 * t114 + 0.44233737333333333333e-1 * t5077 * t2908 - 0.23591326577777777778e0 * t3850 * t3847 - 0.392e3 / 0.225e3 * t9808 * t9809 * t2476 + 0.88467474666666666666e-1 * t3850 * t3840 - 0.3e1 / 0.5e1 * t2630 * t1255 - 0.3e1 / 0.5e1 * t1027 * t3251 - t314 * t9058 / 0.5e1 - 0.3e1 / 0.5e1 * t3782 * t804 - t8342 * t526 / 0.5e1;
7079   t9837 = t41 * t7716;
7080   t9838 = t526 * t2435;
7081   t9850 = t273 * t2472;
7082   t9869 = -t1484 * t2449 / 0.5e1 - 0.198e3 / 0.125e3 * t8350 * t3273 - 0.198e3 / 0.125e3 * t2637 * t9163 + 0.14744579111111111111e-1 * t1345 * t1346 * t9123 - 0.10616096960000000000e0 * t3850 * t3854 + 0.12031576554666666666e0 * t1345 * t9837 * t9838 + 0.44233737333333333333e-1 * t1345 * t1346 * t9113 + 0.44233737333333333333e-1 * t1345 * t1346 * t9117 + 0.44233737333333333333e-1 * t3850 * t3843 + 0.28309591893333333333e0 * t1345 * t9850 * t3273 - 0.11795663288888888889e0 * t1345 * t3846 * t3279 - 0.23591326577777777778e0 * t1345 * t3846 * t3276 - 0.10616096960000000000e0 * t1345 * t3853 * t9163 + 0.77233509629629629632e0 * t1481 * t790 + 0.30703965012345679014e-1 * t3347 * t814 + 0.98e2 / 0.135e3 * t3352 * t814;
7083   t9906 = 0.98e2 / 0.135e3 * t3355 * t814 + 0.44233737333333333333e-1 * t393 * t3261 + 0.84254737777777777776e-1 * t146 * t274 * t3793 - 0.30893403851851851851e0 * t146 * t789 * t1256 - 0.30893403851851851851e0 * t393 * t3818 + 0.48056405991769547325e0 * t146 * t2441 * t623 + 0.44233737333333333333e-1 * t1481 * t784 + 0.44233737333333333333e-1 * t146 * t2908 + 0.98e2 / 0.135e3 * t1395 * t2880 + 0.30703965012345679014e-1 * t1398 * t2880 - 0.10531842222222222222e-1 * t616 * t2893 + 0.98e2 / 0.135e3 * t2724 * t1263 + 0.16850947555555555555e0 * t393 * t3801 + 0.84254737777777777776e-1 * t1024 * t1245 + 0.196e3 / 0.135e3 * t2727 * t1263 + 0.84254737777777777777e-1 * t616 * t2896;
7084   t9917 = t549 * t2434;
7085   t9965 = 0.45e2 / 0.2e1 * t9624 - t9627 + 0.3e1 / 0.8e1 * t3761 * t2705 - t9696 - 0.4e1 * t299 * t9272 - 0.4e1 * t2564 * t77 * t531 - 0.12e2 * t3764 * t1283 - 0.12e2 * t1375 * t3406 + t295 * t9272 * t76 / 0.2e1 - 0.3e1 * t385 * t3443 + t7898 * t531 * t2675 / 0.16e2 + 0.3e1 / 0.4e1 * t864 * t3406 * t327;
7086   t9983 = 0.3e1 / 0.4e1 * t3756 * t913 + 0.3e1 / 0.8e1 * t2610 * t1283 * t910 + t1372 * t2681 / 0.4e1 - 0.19e2 / 0.8e1 * t9743 - 0.2e1 * t9745 + 0.85e2 / 0.4e1 * t9748 - 0.6e1 * t9751 - 0.6e1 * t9753 - t9757 + 0.45e2 / 0.2e1 * t9759 - 0.75e2 / 0.2e1 * t9761 - t2768 * t561 - 0.3e1 * t1016 * t1307;
7087   t10001 = 0.21e2 / 0.2e1 * t864 * t289 * t3465 - 0.3e1 / 0.4e1 * t2577 * t839 * t1304 - 0.18e2 * t9308 - t291 * t9272 + 0.2e1 * t67 * (t9965 + t9983) + 0.2e1 * t531 * t2622 + 0.6e1 * t1283 * t876 + 0.6e1 * t3406 * t304 + 0.2e1 * t9272 * t80 + 0.6e1 * t289 * t3774 + 0.6e1 * t839 * t1381 + 0.2e1 * t2564 * t543;
7088   t10027 = -0.24e2 * t9596 + 0.24e2 * t9598 + 0.6e1 * t849 * t9423 + 0.2e1 * t849 * t9425 - 0.3e1 / 0.2e1 * t1356 * t3443 - 0.18e2 * t9600 + 0.6e1 * t849 * t9427 - t844 * t2564 * t561 / 0.2e1 - 0.3e1 / 0.2e1 * t3727 * t1307 - 0.3e1 / 0.4e1 * t3730 * t1307 - t7925 * t2571 * t561 / 0.8e1 + 0.21e2 / 0.2e1 * t865 * t1307 + 0.15e2 / 0.4e1 * t2611 * t561;
7089   t10033 = t3780 * t313;
7090   t10055 = 0.6664e4 / 0.3375e4 * t349 * t7717 * t9838 - 0.10616096960000000000e0 * t1345 * t3853 * t9222 - 0.198e3 / 0.125e3 * t2637 * t9222 - 0.21063684444444444445e0 * t1023 * t1331 - 0.66e2 / 0.125e3 * t9917 * t2435 + (-0.8e1 / 0.3e1 * t9272 * t83 - 0.8e1 * t3406 * t307 - 0.8e1 * t1283 * t879 - 0.8e1 / 0.3e1 * t531 * t2625 - 0.8e1 / 0.3e1 * t2564 * t546 - 0.8e1 * t839 * t1384 - 0.8e1 * t289 * t3777 - 0.8e1 / 0.3e1 * t67 * (t10001 + t10027)) * t88 - 0.3e1 / 0.5e1 * t10033 * t283 + 0.1056e4 / 0.625e3 * t8143 * t9838 + 0.18e2 / 0.25e2 * t3699 * t2476 + 0.18e2 / 0.25e2 * t938 * t9113 + 0.36e2 / 0.25e2 * t2640 * t3276 + 0.18e2 / 0.25e2 * t938 * t9117 + 0.6e1 / 0.25e2 * t938 * t9123 + 0.18e2 / 0.25e2 * t2640 * t3279 + 0.18e2 / 0.25e2 * t8345 * t1262 - 0.83393485218716659047e0 * t102 * t1797 * t114;
7091   t10066 = -0.27e2 / 0.100e3 * t1100 * t1516 + 0.162e3 * t762 * t9019 * t739 - 0.648e3 * t2372 * t9023 * t2323 - 0.36e2 * t256 * t3938 * t1210 - 0.36e2 * t755 * t3939 + 0.162e3 * t2338 * t3910 - 0.9e1 / 0.100e3 * t195 * t1515 * t2529 - 0.27e2 / 0.100e3 * t632 * t3000 + 0.324e3 * t762 * t9039 * t2323 - 0.36e2 * t755 * t3951 + 0.3e1 * t252 * t3859 + t24 * (t9086 + t9131 + t9170 + t9211 + t9825 + t9869 + t9906 + t10055) - 0.648e3 * t8722 * t3020 + 0.162e3 * t3152 * t3016 - 0.6e1 * t1220 * t3026;
7092   t10079 = t7397 * t150;
7093   t10082 = t2355 * t150;
7094   t10085 = t7408 * t150;
7095   t10088 = t256 * t1032;
7096   t10091 = t755 * t403;
7097   t10104 = 0.9720e4 * t10079 * t8669 - 0.36e2 * t10082 * t1213 + 0.162e3 * t10085 * t1228 - 0.36e2 * t10088 * t1213 - 0.72e2 * t10091 * t1213 + 0.1080e4 * t1226 * t8643 - 0.36e2 * t1234 * t8692 - 0.12e2 * t1234 * t8695 - 0.36e2 * t4571 * t2383 - 0.36e2 * t4589 * t2383 + 0.162e3 * t4574 * t2404 - 0.72e2 * t3878 * t3200 - 0.72e2 * t3892 * t3200 - 0.36e2 * t3878 * t3203 - 0.36e2 * t3892 * t3203 + 0.162e3 * t8719 * t765;
7098   t10119 = t8507 * t649 / 0.10e2 + 0.3e1 / 0.10e2 * t3056 * t1550 + t1598 * t2529 / 0.10e2 - 0.1944e4 * t3190 * t8591 + 0.972e3 * t1562 * t8594 - 0.12e2 * t256 * t666 * t2323 - 0.12e2 * t1220 * t2324 - p->cam_beta * (t8753 + t8784 + t8902 + t8942 + t8982 + t9015 + t10066 + t10104) + 0.972e3 * t3177 * t3171 + 0.972e3 * t3180 * t3171 + 0.972e3 * t1562 * t8673 - 0.7776e4 * t3190 * t8640 - 0.36e2 * t4513 * t2383;
7099   t10127 = t1595 * t16;
7100   t10166 = -t313 * t9058 / 0.5e1 - 0.392e3 / 0.125e3 * t8491 * t3273 + 0.6664e4 / 0.1875e4 * t8496 * t9838 - 0.20353450019814052736e1 * t37 * t1797 * t113 + 0.1056e4 / 0.625e3 * t8142 * t526 * t2435 - 0.14e2 / 0.15e2 * t1180 * t3251 - 0.14e2 / 0.45e2 * t495 * t9058 - 0.198e3 / 0.125e3 * t2434 * t1255 * t782 + 0.18e2 / 0.25e2 * t937 * t3251 * t283 + 0.18e2 / 0.25e2 * t3243 * t804 + 0.6e1 / 0.25e2 * t1579 * t2449 - 0.14e2 / 0.45e2 * t8470 * t526 - 0.14e2 / 0.15e2 * t2463 * t1255 + 0.14273848065843621399e0 * t37 * t9076;
7101   t10193 = t781 * t283;
7102   t10194 = t10193 * t804;
7103   t10197 = -0.17842310082304526749e-1 * t37 * t9081 + 0.98e2 / 0.75e2 * t1183 * t9113 + 0.98e2 / 0.75e2 * t1183 * t9117 - 0.198e3 / 0.125e3 * t3240 * t2476 - 0.19983387292181069959e0 * t37 * t9205 - 0.59950161876543209878e-1 * t37 * t9208 + 0.98e2 / 0.225e3 * t1183 * t9123 + 0.98e2 / 0.75e2 * t8488 * t1262 + 0.196e3 / 0.75e2 * t2466 * t3276 + 0.98e2 / 0.75e2 * t2466 * t3279 - 0.392e3 / 0.125e3 * t2473 * t9163 - 0.392e3 / 0.125e3 * t2473 * t9222 - 0.52337442908093278464e0 * t37 * t9071 + 0.74937702345679012347e-1 * t521 * t10194;
7104   t10205 = t1504 * t1105;
7105   t10208 = t631 * t2425;
7106   t10212 = 0.162e3 * t4516 * t2404 - 0.36e2 * t4496 * t2383 + 0.162e3 * t4499 * t2404 - 0.36e2 * t256 * t10127 * t739 + 0.324e3 * t3152 * t2344 + t8744 * t231 + t24 * (t10166 + t10197) + 0.3e1 * t1218 * t1188 + t516 * t2481 + 0.3e1 * t3235 * t498 - 0.27e2 / 0.100e3 * t10205 * t1106 + 0.171e3 / 0.1000e4 * t10208 * t2427 + t8750 * t217;
7107   t10213 = t2355 * t231;
7108   t10216 = t7408 * t231;
7109   t10219 = t755 * t498;
7110   t10222 = t2338 * t498;
7111   t10229 = t256 * t1188;
7112   t10232 = t762 * t1188;
7113   t10245 = -0.36e2 * t10213 * t1213 + 0.162e3 * t10216 * t1228 - 0.72e2 * t10219 * t1213 + 0.324e3 * t10222 * t1228 - 0.36e2 * t10229 * t1213 + 0.162e3 * t10232 * t1228 - 0.18e2 * t1220 * t2359 + 0.162e3 * t1562 * t8677 - 0.36e2 * t1568 * t8689 - 0.72e2 * t3174 * t3200 + 0.324e3 * t3177 * t3184 + 0.324e3 * t3180 * t3184 - 0.72e2 * t3197 * t3200;
7114   t10278 = -0.18e2 * t1220 * t2362 - 0.18e2 * t256 * t2358 * t1210 - 0.9e1 / 0.100e3 * t1194 * t649 * t2529 - 0.6e1 * t256 * t8433 * t510 - 0.18e2 * t755 * t3160 + 0.162e3 * t2338 * t3164 - 0.36e2 * t256 * t3206 * t1210 - 0.36e2 * t755 * t3207 - 0.18e2 * t755 * t3145 - 0.36e2 * t755 * t3985 + 0.162e3 * t3152 * t2366 - 0.6e1 * t1220 * t2352 - 0.648e3 * t8722 * t2375;
7115   t10285 = t3284 * t17;
7116   t10309 = -0.6e1 * t7331 * t656 - 0.18e2 * t2355 * t1565 - 0.18e2 * t2355 * t1571 - 0.18e2 * t256 * t10285 * t246 - 0.36e2 * t3197 * t3203 - 0.36e2 * t1568 * t8686 - 0.36e2 * t1568 * t8692 - 0.27e2 / 0.100e3 * t2420 * t3213 + 0.513e3 / 0.1000e4 * t2426 * t1550 * t1106 - 0.27e2 / 0.100e3 * t1194 * t3140 * t473 + 0.513e3 / 0.1000e4 * t8519 * t3210 - 0.27e2 / 0.100e3 * t3216 * t2327 - 0.36e2 * t3174 * t3203;
7117   t10313 = t7392 * t231;
7118   t10318 = t2372 * t498;
7119   t10329 = t7397 * t231;
7120   t10332 = t3339 * t450;
7121   t10342 = 0.162e3 * t3177 * t3187 - 0.1944e4 * t10313 * t3192 + 0.162e3 * t3180 * t3187 - 0.1944e4 * t10318 * t3192 + 0.162e3 * t1562 * t8680 - 0.1944e4 * t3190 * t8611 - 0.12e2 * t1568 * t8695 + 0.54e2 * t1562 * t8618 + 0.9720e4 * t10329 * t8669 + 0.3e1 / 0.10e2 * t10332 * t473 + 0.3e1 / 0.10e2 * t1191 * t3140 - 0.18e2 * t256 * t3074 * t745 + 0.513e3 / 0.1000e4 * t2426 * t8933;
7122   t10343 = t498 * t739;
7123   t10355 = t1595 * t763;
7124   t10362 = t666 * t2373;
7125   t10379 = -0.36e2 * t256 * t10343 * t510 - 0.18e2 * t8714 * t481 - 0.36e2 * t3167 * t1157 - 0.18e2 * t3167 * t1164 + 0.162e3 * t8719 * t1153 + 0.162e3 * t762 * t10355 * t739 - 0.6e1 * t256 * t1575 * t2351 - 0.648e3 * t2372 * t10362 * t2323 + t501 * t8894 / 0.10e2 + 0.3e1 / 0.10e2 * t3288 * t1141 - 0.27e2 / 0.50e2 * t2420 * t3982 - 0.27e2 / 0.100e3 * t8524 * t1603 + 0.1080e4 * t1562 * t8643 - 0.27e2 / 0.100e3 * t1194 * t1550 * t1141;
7126   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7127     v4rho3sigma[0] = t8544 * t672 / 0.9e1 - t3068 * t1609 / 0.2e1 - 0.3e1 / 0.2e1 * t1203 * t3991 - 0.3e1 / 0.8e1 * t240 * t241 * (t8584 + t10119 + t10212 + t10245 + t10278 + t10309 + t10342 + t10379);
7128 
7129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7130     v4rho3lapl[0] = 0.0e0;
7131 
7132   t10394 = t4093 * t246;
7133   t10397 = t1619 * t745;
7134   t10400 = t680 * t2351;
7135   t10408 = t763 * t4036;
7136   t10409 = t10408 * t246;
7137   t10412 = t4126 * t745;
7138   t10415 = t2373 * t1618;
7139   t10416 = t10415 * t739;
7140   t10419 = t1634 * t2351;
7141   t10422 = t7398 * t679;
7142   t10423 = t10422 * t2323;
7143   t10432 = t1614 * t745;
7144   t10435 = 0.162e3 * t5641 * t2404 - 0.36e2 * t1568 * t10394 - 0.36e2 * t1568 * t10397 - 0.12e2 * t1568 * t10400 - 0.62888224691358024691e-1 * t2388 * t104 * t114 - 0.1944e4 * t10318 * t4110 + 0.162e3 * t1562 * t10409 + 0.162e3 * t1562 * t10412 - 0.1944e4 * t3190 * t10416 + 0.54e2 * t1562 * t10419 + 0.9720e4 * t10329 * t10423 - 0.36e2 * t10229 * t1621 - 0.72e2 * t3197 * t4097 - 0.36e2 * t3197 * t4099 - 0.36e2 * t1568 * t10432;
7145   t10437 = t2323 * t679 * t17;
7146   t10468 = -0.36e2 * t10213 * t1621 + 0.162e3 * t10216 * t1635 - 0.72e2 * t10219 * t1621 + 0.324e3 * t10222 * t1635 + 0.162e3 * t10232 * t1635 - 0.1944e4 * t10313 * t4110 + 0.1080e4 * t1562 * t10437 - 0.36e2 * t5638 * t2383 - 0.72e2 * t3174 * t4097 - 0.36e2 * t3174 * t4099 + 0.162e3 * t3177 * t4106 + 0.324e3 * t3177 * t4127 + 0.972e3 * t3177 * t4162 + 0.162e3 * t3180 * t4106 + 0.324e3 * t3180 * t4127;
7147   t10472 = t2355 * t691;
7148   t10498 = t4109 * t2378;
7149   t10528 = -0.27e2 / 0.100e3 * t444 * t4265 - 0.27e2 / 0.50e2 * t444 * t4210 - 0.27e2 / 0.50e2 * t1046 * t1687 - 0.27e2 / 0.100e3 * t1100 * t1687 - 0.27e2 / 0.100e3 * t195 * t4209 * t1141 + 0.10248451431184270690e1 * t690 * t3255 - 0.1944e4 * t3889 * t10498 + 0.62888224691358024690e0 * t4130 * t662 + 0.31444112345679012345e0 * t4142 * t662 - 0.27e2 / 0.50e2 * t408 * t4210 - 0.9e1 / 0.100e3 * t195 * t1686 * t2529 - 0.27e2 / 0.100e3 * t1044 * t1687 - 0.27e2 / 0.100e3 * t408 * t4265 - 0.83850966255144032920e0 * t1646 * t1585 - 0.83850966255144032920e0 * t1656 * t1585 - 0.62888224691358024691e-1 * t2388 * t102 * t693 - 0.18866467407407407407e0 * t753 * t338 * t693 - 0.36e2 * t755 * t4189 - 0.18e2 * t2355 * t1643;
7150   t10531 = t1625 * t761;
7151   t10548 = t4161 * t2378;
7152   t10551 = t929 * t104;
7153   t10552 = t24 * t10551;
7154   t10555 = t24 * t1334;
7155   t10558 = t252 * t576;
7156   t10591 = 0.146e3 / 0.405e3 * t2504 * t104 * t37 - 0.12848e5 / 0.2187e4 * t3085 - 0.146e3 / 0.81e2 * t3128 - 0.73e2 / 0.27e2 * t3131 + 0.1168e4 / 0.243e3 * t3082 + 0.73e2 / 0.45e2 * t691 * t1695 * t745 - 0.73e2 / 0.270e3 * t691 * t36 * t2351 * t213 + 0.73e2 / 0.270e3 * t691 * t704 * t2351 - 0.146e3 / 0.135e3 * t2504 * t679 * t213 - 0.146e3 / 0.45e2 * t1123 * t1618 * t213 + 0.292e3 / 0.45e2 * t4026 * t246 - 0.146e3 / 0.45e2 * t462 * t4036 * t213 + 0.584e3 / 0.45e2 * t4029 * t246;
7157   t10596 = my_piecewise3(t15, 0.3e1 / 0.4e1 * t2348 * t676, 0);
7158   t10619 = 0.292e3 / 0.45e2 * t1702 * t745 - 0.146e3 / 0.135e3 * t209 * t10596 * t213 + 0.292e3 / 0.45e2 * t4037 * t246 + 0.292e3 / 0.45e2 * t1705 * t745 + 0.292e3 / 0.135e3 * t708 * t2351 + 0.146e3 / 0.135e3 * t2507 * t679 + 0.146e3 / 0.45e2 * t1126 * t1618 + 0.146e3 / 0.45e2 * t465 * t4036 + 0.146e3 / 0.135e3 * t212 * t10596 - 0.292e3 / 0.81e2 * t3089 + 0.292e3 / 0.81e2 * t3092 + 0.73e2 / 0.54e2 * t3096 - 0.73e2 / 0.54e2 * t3099 + 0.3212e4 / 0.729e3 * t3138;
7159   t10620 = t10591 + t10619;
7160   t10638 = 0.162e3 * t4001 * t3016 + 0.162e3 * t10531 * t765 - 0.18e2 * t1628 * t3023 - 0.6e1 * t1628 * t3026 - 0.18e2 * t755 * t4201 - 0.18e2 * t4158 * t776 - 0.18e2 * t1628 * t2990 + t2987 * t714 / 0.10e2 + 0.3e1 / 0.10e2 * t2917 * t714 + 0.972e3 * t1226 * t10548 + 0.75465869629629629628e-1 * t10552 * t1662 + 0.33540386502057613168e0 * t10555 * t1662 - 0.25155289876543209876e0 * t10558 * t1662 + t195 * t450 * t10620 / 0.10e2 + 0.3e1 / 0.10e2 * t444 * t4051 + 0.3e1 / 0.10e2 * t408 * t4051 + 0.17608702913580246913e0 * t4216 * t4225 - 0.10565221748148148148e0 * t4219 * t4225 + 0.3e1 * t4262 * t443 * t217 + 0.3e1 * t1675 * t1099 * t217;
7161   t10644 = t739 * t1618;
7162   t10647 = t17 * t10596;
7163   t10650 = t4103 * t255;
7164   t10657 = t684 * t2371;
7165   t10684 = -0.162e3 * t10531 * t1036 - 0.162e3 * t762 * t10412 - 0.54e2 * t762 * t10419 + 0.36e2 * t256 * t10432 + 0.1944e4 * t5350 * t10432 - 0.972e3 * t5353 * t10432 + 0.36e2 * t256 * t10644 + 0.6e1 * t256 * t10647 + 0.18e2 * t10650 * t249 + 0.648e3 * t10657 * t2397 + 0.18e2 * t2355 * t1623 + 0.6e1 * t1628 * t2385 - 0.324e3 * t4001 * t2400 - 0.162e3 * t4001 * t2404 + 0.36e2 * t755 * t4095 + 0.18e2 * t755 * t4101 + 0.36e2 * t4158 * t748 + 0.18e2 * t4158 * t750 + 0.6e1 * t7331 * t682;
7166   t10699 = t7561 * t679;
7167   t10700 = t10699 * t2323;
7168   t10719 = t18 * t1618;
7169   t10720 = t10719 * t739;
7170   t10742 = (0.2e1 * t16 * t10596 + 0.6e1 * t745 * t1618 + 0.2e1 * t2351 * t679 + 0.6e1 * t246 * t4036 + 0.54e2 * t10394 + 0.54e2 * t10397 + 0.18e2 * t10400 + 0.54e2 * t10432 + 0.54e2 * t10644 + 0.9e1 * t10647) * t23;
7171   t10743 = 0.36e2 * t256 * t10394 + 0.36e2 * t256 * t10397 + 0.12e2 * t256 * t10400 - 0.162e3 * t762 * t10409 + 0.1944e4 * t2372 * t10416 - 0.9720e4 * t7397 * t10423 - 0.1080e4 * t762 * t10437 + 0.7776e4 * t2372 * t10700 - 0.972e3 * t762 * t10720 + 0.36e2 * t2355 * t1621 + 0.12e2 * t1628 * t2323 + 0.36e2 * t1628 * t2383 - 0.162e3 * t7408 * t1635 - 0.162e3 * t2338 * t4106 - 0.324e3 * t2338 * t4127 - 0.972e3 * t2338 * t4162 + 0.72e2 * t755 * t4097 + 0.36e2 * t755 * t4099 + 0.1944e4 * t7392 * t4110 - t10742;
7172   t10744 = t10684 + t10743;
7173   t10784 = t7544 * t713;
7174   t10788 = t698 * t2986 * t217 + t10744 * t194 * t217 - 0.18e2 * t755 * t4206 - 0.6e1 * t7331 * t687 - 0.27e2 / 0.100e3 * t699 * t3000 - 0.6e1 * t256 * t7459 * t679 + 0.3e1 / 0.10e2 * t1676 * t1142 + 0.3e1 / 0.10e2 * t4176 * t474 + 0.3e1 / 0.10e2 * t1678 * t1142 + 0.3e1 / 0.10e2 * t4263 * t474 + 0.3e1 / 0.5e1 * t4173 * t474 + t699 * t2530 / 0.10e2 - 0.36e2 * t256 * t3938 * t1618 + 0.513e3 / 0.1000e4 * t408 * t4195 - 0.36e2 * t256 * t8804 * t679 - 0.36e2 * t755 * t4198 - 0.18e2 * t256 * t2989 * t1618 - 0.18e2 * t256 * t768 * t4036 - 0.4959e4 / 0.10000e5 * t195 * t10784 * t2427;
7175   t10798 = t1105 * t4050;
7176   t10802 = t24 * t1340;
7177   t10805 = t37 * t2892;
7178   t10810 = t252 * t4083;
7179   t10817 = t753 * t1649;
7180   t10838 = 0.324e3 * t4001 * t3037 - 0.36e2 * t4158 * t773 - 0.36e2 * t1628 * t2996 - 0.6e1 * t256 * t257 * t10596 - 0.27e2 / 0.100e3 * t195 * t10798 * t473 - 0.25155289876543209876e0 * t10802 * t1662 + 0.25155289876543209876e-1 * t1661 * t10805 - 0.12577644938271604938e0 * t4216 * t4213 + 0.15093173925925925925e0 * t10810 * t1662 + 0.75465869629629629628e-1 * t4222 * t4213 + 0.75465869629629629628e-1 * t4219 * t4213 + 0.75465869629629629628e-1 * t10817 * t1662 + 0.3e1 / 0.10e2 * t1100 * t1715 + t2920 * t714 / 0.10e2 - 0.18866467407407407407e0 * t252 * t929 * t693 - 0.62888224691358024691e-1 * t24 * t2714 * t693 + 0.324e3 * t3875 * t4127 + 0.162e3 * t3875 * t4106 - 0.1944e4 * t8624 * t4110 + 0.162e3 * t1226 * t10409;
7181   t10853 = t256 * t1398;
7182   t10856 = t755 * t4167;
7183   t10859 = t4083 * t32;
7184   t10860 = t256 * t10859;
7185   t10864 = t352 * t750 * t283;
7186   t10868 = t352 * t249 * t804;
7187   t10872 = t352 * t1036 * t283;
7188   t10875 = t692 * t2383;
7189   t10886 = t692 * t2404;
7190   t10890 = t813 * t249 * t782;
7191   t10893 = 0.162e3 * t1226 * t10412 - 0.1944e4 * t3889 * t10416 + 0.162e3 * t3895 * t4106 - 0.1944e4 * t8621 * t4110 + 0.31444112345679012345e0 * t4139 * t662 - 0.18e2 * t2355 * t1638 + 0.15093173925925925925e1 * t10853 * t4170 - 0.90559043555555555555e0 * t10856 * t4170 - 0.90559043555555555555e0 * t10860 * t4170 - 0.45279521777777777778e0 * t4168 * t10864 - 0.45279521777777777778e0 * t4168 * t10868 + 0.40751569600000000001e1 * t5470 * t10872 + 0.22639760888888888889e1 * t4168 * t10875 - 0.27e2 / 0.100e3 * t1676 * t1107 - 0.27e2 / 0.100e3 * t1678 * t1107 + 0.54e2 * t1226 * t10419 + 0.9720e4 * t10079 * t10423 - 0.10187892400000000000e2 * t5470 * t10886 + 0.63391330488888888889e0 * t4168 * t10890;
7192   t10895 = t352 * t748 * t283;
7193   t10916 = t2425 * t1714;
7194   t10922 = t1754 * t1141;
7195   t10933 = t37 * t2888;
7196   t10940 = -0.90559043555555555556e0 * t4168 * t10895 - 0.36e2 * t5490 * t2383 + 0.162e3 * t5493 * t2404 - 0.72e2 * t10091 * t1621 + 0.324e3 * t8953 * t1635 - 0.36e2 * t10082 * t1621 + 0.162e3 * t10085 * t1635 - 0.72e2 * t3892 * t4097 + 0.324e3 * t3895 * t4127 + 0.513e3 / 0.1000e4 * t444 * t4195 + 0.513e3 / 0.1000e4 * t195 * t10916 * t1106 - 0.12e2 * t1628 * t3048 + 0.513e3 / 0.1000e4 * t5544 * t10922 - 0.36e2 * t1234 * t10432 + 0.1080e4 * t1226 * t10437 - 0.72e2 * t3878 * t4097 - 0.36e2 * t10088 * t1621 + 0.84521773985185185182e-1 * t1661 * t10933 + 0.162e3 * t8956 * t1635 + 0.3e1 / 0.5e1 * t1046 * t1715;
7197   t10955 = t256 * t1334;
7198   t10966 = t762 * t576;
7199   t10969 = t755 * t576;
7200   t10972 = t256 * t1340;
7201   t10975 = t113 * t18;
7202   t10983 = t755 * t4083;
7203   t10986 = t256 * t10551;
7204   t10989 = t2372 * t1649;
7205   t10990 = t113 * t2373;
7206   t10995 = 0.3e1 / 0.10e2 * t2914 * t714 + 0.3e1 / 0.10e2 * t1044 * t1715 + 0.3e1 * t1626 * t1032 + t685 * t2912 - 0.36e2 * t4158 * t769 - 0.648e3 * t10657 * t3020 - 0.18e2 * t10650 * t258 + 0.50310579753086419752e1 * t10955 * t1653 - 0.37732934814814814814e1 * t4062 * t4067 + 0.22639760888888888889e1 * t4080 * t4067 + 0.22639760888888888889e1 * t4084 * t4067 - 0.18866467407407407407e1 * t4062 * t4071 + 0.16979820666666666666e2 * t10966 * t4077 - 0.37732934814814814814e1 * t10969 * t1653 - 0.37732934814814814814e1 * t10972 * t1653 - 0.20375784800000000001e2 * t4074 * t37 * t10975 * t2323 - 0.10565221748148148148e0 * t1661 * t37 * t10194 + 0.22639760888888888889e1 * t10983 * t1653 + 0.11319880444444444444e1 * t10986 * t1653 + 0.40751569600000000001e2 * t10989 * t37 * t10990 * t2323;
7207   t11000 = t2338 * t1649;
7208   t11003 = t762 * t4083;
7209   t11010 = t2355 * t1649;
7210   t11014 = t37 * t113 * t2323;
7211   t11042 = 0.37732934814814814815e0 * t1650 * t37 * t1651 * t2351 - 0.10187892400000000000e2 * t11000 * t4077 - 0.10187892400000000000e2 * t11003 * t4077 + 0.11319880444444444444e1 * t4080 * t4071 + 0.11319880444444444444e1 * t4084 * t4071 + 0.11319880444444444444e1 * t11010 * t1653 + 0.75465869629629629630e0 * t1650 * t11014 - 0.10565221748148148148e0 * t4222 * t4225 + 0.972e3 * t3875 * t4162 + 0.972e3 * t3895 * t4162 - 0.36e2 * t1234 * t10394 - 0.36e2 * t1234 * t10397 + 0.972e3 * t1226 * t10720 - 0.36e2 * t3892 * t4099 - 0.36e2 * t3878 * t4099 - 0.12e2 * t1234 * t10400 - 0.7776e4 * t3889 * t10700 + t10742 * t150 + 0.3e1 * t4104 * t403 + 0.171e3 / 0.1000e4 * t699 * t3031;
7212   t11047 = t4262 * t450;
7213   t11052 = t1675 * t1105;
7214   t11063 = -0.10565221748148148148e0 * t5673 * t2880 + 0.11319880444444444444e1 * t10472 * t1740 + 0.513e3 / 0.1000e4 * t2426 * t1714 * t1106 - 0.36e2 * t1628 * t2331 + 0.324e3 * t4001 * t2344 - 0.4959e4 / 0.10000e5 * t8516 * t713 * t2427 - p->cam_beta * (t10528 + t10638 + t10788 + t10838 + t10893 + t10940 + t10995 + t11042) + 0.3e1 / 0.10e2 * t11047 * t473 + 0.3e1 * t1626 * t1188 - 0.27e2 / 0.100e3 * t11052 * t1106 + 0.3e1 * t4104 * t498 + t685 * t2481 + t10742 * t231 + t1749 * t2529 / 0.10e2 + 0.3e1 / 0.10e2 * t4294 * t1141;
7215   t11100 = 0.3e1 / 0.10e2 * t3056 * t1714 + t501 * t10620 / 0.10e2 + t8507 * t713 / 0.10e2 - 0.18e2 * t1628 * t2359 - 0.18e2 * t1628 * t2362 - 0.36e2 * t4158 * t1157 - 0.18e2 * t256 * t2358 * t1618 - 0.18e2 * t256 * t1156 * t4036 - 0.6e1 * t256 * t480 * t10596 - 0.18e2 * t10650 * t481 + 0.3e1 / 0.10e2 * t1191 * t4050 + 0.513e3 / 0.1000e4 * t2426 * t10922 - 0.36e2 * t256 * t3206 * t1618 - 0.36e2 * t4158 * t1161 - 0.36e2 * t755 * t4310 - 0.27e2 / 0.100e3 * t4360 * t2327;
7216   t11103 = t698 * t2425;
7217   t11110 = t762 * t4363;
7218   t11120 = t2338 * t691;
7219   t11126 = t2372 * t691;
7220   t11130 = t755 * t4363;
7221   t11134 = t256 * t273 * t32;
7222   t11143 = 0.171e3 / 0.1000e4 * t11103 * t2427 - 0.37732934814814814814e1 * t4364 * t4367 - 0.18866467407407407407e1 * t4364 * t4373 + 0.16979820666666666666e2 * t11110 * t4377 + 0.22639760888888888889e1 * t4370 * t4367 - 0.20375784800000000001e2 * t4376 * t692 * t2400 + 0.11319880444444444444e1 * t4370 * t4373 - 0.10187892400000000000e2 * t11120 * t4377 + 0.37732934814814814815e0 * t1739 * t692 * t2385 + 0.40751569600000000001e2 * t11126 * t692 * t2397 - 0.37732934814814814814e1 * t11130 * t1740 + 0.50310579753086419752e1 * t11134 * t1740 - 0.12e2 * t1628 * t2324 + 0.513e3 / 0.1000e4 * t8519 * t4313 - 0.18e2 * t755 * t4278;
7223   t11177 = -0.18e2 * t755 * t4272 - 0.36e2 * t755 * t4275 - 0.83850966255144032920e0 * t252 * t273 * t114 + 0.10248451431184270690e1 * t24 * t788 * t114 - 0.7776e4 * t3190 * t10700 + 0.31444112345679012345e0 * t753 * t41 * t114 + 0.972e3 * t3180 * t4162 + 0.972e3 * t1562 * t10720 + 0.75465869629629629628e-1 * t1736 * t4213 + 0.33540386502057613168e0 * t4357 * t1662 - 0.12577644938271604938e0 * t1743 * t4213 + 0.25155289876543209876e-1 * t723 * t10805 + 0.972e3 * t1562 * t10548 - 0.1944e4 * t3190 * t10498 + 0.75465869629629629628e-1 * t4349 * t1662;
7224   t11179 = t256 * t104;
7225   t11211 = 0.75465869629629629630e0 * t11179 * t11014 + 0.84521773985185185182e-1 * t723 * t10933 - 0.10565221748148148148e0 * t1736 * t4225 + 0.17608702913580246913e0 * t1743 * t4225 - 0.36e2 * t256 * t10343 * t679 - 0.27e2 / 0.100e3 * t1194 * t1714 * t1141 - 0.25155289876543209876e0 * t4354 * t1662 + t10744 * t217 + 0.22639760888888888889e1 * t1739 * t10875 - 0.10187892400000000000e2 * t4376 * t10886 + 0.63391330488888888889e0 * t1739 * t10890 - 0.90559043555555555556e0 * t1739 * t10895 - 0.27e2 / 0.50e2 * t2420 * t4304 - 0.27e2 / 0.100e3 * t2420 * t4307 - 0.27e2 / 0.100e3 * t8524 * t1754;
7226   t11247 = -0.27e2 / 0.100e3 * t1194 * t4050 * t473 - 0.90559043555555555555e0 * t4370 * t4170 + 0.15093173925925925925e1 * t4364 * t4170 - 0.45279521777777777778e0 * t1739 * t10868 - 0.45279521777777777778e0 * t1739 * t10864 + 0.40751569600000000001e1 * t4376 * t10872 - 0.9e1 / 0.100e3 * t1194 * t713 * t2529 - 0.6e1 * t256 * t8433 * t679 - 0.18e2 * t2355 * t1728 - 0.18e2 * t2355 * t1733 + 0.162e3 * t4001 * t2366 - 0.18e2 * t4158 * t1164 - 0.6e1 * t1628 * t2352 + 0.162e3 * t10531 * t1153 - 0.648e3 * t10657 * t2375 - 0.6e1 * t7331 * t720;
7227   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7228     v4rho3tau[0] = t8544 * t730 / 0.9e1 - t3068 * t1760 / 0.2e1 - 0.3e1 / 0.2e1 * t1203 * t4383 - 0.3e1 / 0.8e1 * t240 * t241 * (t10435 + t10468 + t11063 + t11100 + t11143 + t11177 + t11211 + t11247);
7229 
7230   t11265 = t4450 * t255;
7231   t11272 = t511 * t3110;
7232   t11275 = t1766 * t745;
7233   t11279 = t18 * t1765 * t739;
7234   t11282 = t4523 * t745;
7235   t11286 = t2373 * t1765 * t739;
7236   t11293 = 0.171e3 / 0.500e3 * t8519 * t4430 - t2049 - 0.24e2 * t3167 * t1576 - 0.12e2 * t755 * t4406 - 0.24e2 * t1220 * t3075 - 0.12e2 * t11265 * t481 - 0.12e2 * t4395 * t1157 - 0.12e2 * t4403 - 0.12e2 * t4419 - 0.24e2 * t1568 * t11272 - 0.12e2 * t1568 * t11275 + 0.324e3 * t1562 * t11279 + 0.54e2 * t1562 * t11282 - 0.648e3 * t3190 * t11286 + 0.216e3 * t4499 * t3184 - 0.24e2 * t4496 * t3203;
7237   t11298 = t8722 * t231;
7238   t11301 = t4502 * t745;
7239   t11305 = t7561 * t1763 * t739;
7240   t11308 = t1227 * t3110;
7241   t11311 = t4509 * t745;
7242   t11315 = t7398 * t1763 * t739;
7243   t11368 = t5189 * t474 / 0.5e1 - 0.48e2 * t4571 * t3200 + 0.216e3 * t4574 * t3184 - 0.24e2 * t3167 * t1242 - 0.6e1 * t256 * t4593 * t745 + t753 * t1992 + 0.648e3 * t3875 * t4503 - 0.48e2 * t3878 * t4446 - 0.9e1 / 0.50e2 * t1046 * t2009 + t3305 * t650 / 0.5e1 + t632 * t3961 / 0.5e1 - 0.9e1 / 0.100e3 * t1044 * t2009 + 0.54e2 * t762 * t7367 * t1763 - 0.24e2 * t755 * t4607 - 0.24e2 * t1220 * t3899 - 0.9e1 / 0.100e3 * t1100 * t2009 + t5191 * t474 / 0.5e1 + t2004 * t1142 / 0.10e2;
7244   t11371 = t3152 * t403;
7245   t11378 = t3167 * t150;
7246   t11381 = t8719 * t150;
7247   t11386 = t1603 * t1550;
7248   t11393 = t1220 * t403;
7249   t11409 = -0.1296e4 * t8624 * t4510 + 0.216e3 * t11371 * t1228 - 0.48e2 * t4589 * t3200 + 0.216e3 * t5131 * t3184 - 0.48e2 * t11378 * t1213 + 0.216e3 * t11381 * t1228 + 0.216e3 * t3875 * t4506 + 0.171e3 / 0.250e3 * t5544 * t11386 - 0.24e2 * t4571 * t3203 + 0.648e3 * t4574 * t3171 - 0.48e2 * t11393 * t1213 - 0.24e2 * t4579 + 0.108e3 * t4581 - t1790 - 0.24e2 * t1220 * t3951 - 0.12e2 * t256 * t7447 * t1763 - 0.9e1 / 0.50e2 * t408 * t5118 - 0.9e1 / 0.50e2 * t195 * t1105 * t4557 * t473;
7250   t11422 = t755 * t627;
7251   t11425 = t1550 * t1550;
7252   t11434 = t1210 * t1210;
7253   t11450 = t627 * t739;
7254   t11456 = -0.9e1 / 0.25e2 * t1507 * t1516 - 0.12e2 * t256 * t8756 * t510 - 0.9e1 / 0.25e2 * t632 * t3862 - 0.12e2 * t4613 - 0.12e2 * t4615 - 0.24e2 * t755 * t4604 - 0.48e2 * t11422 * t1213 - 0.9e1 / 0.50e2 * t195 * t1105 * t11425 - 0.12e2 * t256 * t1241 * t3110 - 0.12e2 * t2355 * t1785 - 0.24e2 * t256 * t772 * t11434 - 0.12e2 * t256 * t3938 * t1765 + 0.108e3 * t762 * t764 * t11434 + 0.171e3 / 0.500e3 * t444 * t5114 - 0.9e1 / 0.25e2 * t408 * t4597 + 0.171e3 / 0.500e3 * t408 * t5114 - 0.24e2 * t256 * t11450 * t510 - 0.9e1 / 0.25e2 * t444 * t4597;
7255   t11477 = t3170 * t3224;
7256   t11486 = t256 * t1492;
7257   t11489 = t762 * t1492;
7258   t11497 = t739 * t1763 * t17;
7259   t11502 = 0.171e3 / 0.1000e4 * t195 * t2425 * t2027 * t1106 - 0.4959e4 / 0.10000e5 * t195 * t7544 * t2008 * t1106 + 0.171e3 / 0.500e3 * t632 * t3947 - 0.9e1 / 0.25e2 * t1505 * t1516 - 0.9e1 / 0.100e3 * t2004 * t1107 - 0.648e3 * t3889 * t11311 + 0.9720e4 * t10079 * t11315 + t3340 * t650 / 0.5e1 + 0.1296e4 * t1226 * t11477 + 0.2e1 * t516 * t3859 + t444 * t4566 / 0.5e1 + t1044 * t2028 / 0.10e2 - 0.48e2 * t11486 * t1213 + 0.216e3 * t11489 * t1228 + 0.216e3 * t3895 * t4506 - 0.1296e4 * t8621 * t4510 + 0.1080e4 * t1226 * t11497 - 0.24e2 * t3892 * t4448;
7260   t11511 = t1206 * t1210;
7261   t11535 = t5105 * t17;
7262   t11547 = 0.108e3 * t3895 * t4524 - 0.24e2 * t3878 * t4448 + 0.108e3 * t3875 * t4524 - 0.48e2 * t1234 * t11511 - 0.48e2 * t3892 * t4446 + 0.648e3 * t3895 * t4503 - 0.9e1 / 0.100e3 * t195 * t5117 * t1141 - 0.24e2 * t1220 * t3939 - 0.9e1 / 0.50e2 * t632 * t3865 + 0.171e3 / 0.1000e4 * t195 * t5113 * t1141 - 0.9e1 / 0.50e2 * t195 * t1515 * t3140 - 0.12e2 * t1220 * t3904 - 0.9e1 / 0.50e2 * t444 * t5118 - 0.12e2 * t256 * t11535 * t246 + 0.2e1 / 0.5e1 * t1507 * t1551 + t408 * t4566 / 0.5e1 + t1100 * t2028 / 0.10e2 + 0.2e1 / 0.5e1 * t3302 * t650;
7263   t11554 = t8722 * t150;
7264   t11563 = t2372 * t627;
7265   t11586 = t1046 * t2028 / 0.5e1 + 0.2e1 * t252 * t5105 + 0.108e3 * t5131 * t3187 - 0.1296e4 * t11554 * t3192 - 0.12e2 * t1234 * t11275 + 0.324e3 * t1226 * t11279 + 0.108e3 * t4574 * t3187 - 0.1296e4 * t11563 * t3192 + 0.108e3 * t1226 * t11308 - 0.24e2 * t1234 * t11272 + 0.54e2 * t1226 * t11282 - 0.648e3 * t3889 * t11286 + 0.324e3 * t1226 * t11301 - 0.7776e4 * t3889 * t11305 - 0.24e2 * t4589 * t3203 + 0.648e3 * t5131 * t3171 - 0.12e2 * t2355 * t1782 - 0.12e2 * t4395 * t769;
7266   t11594 = t1772 * t761;
7267   t11601 = t150 * t745;
7268   t11620 = t1992 * t763;
7269   t11624 = t3191 * t3224;
7270   t11631 = -0.24e2 * t3167 * t1231 - 0.12e2 * t11265 * t258 - 0.6e1 * t4395 * t776 + 0.54e2 * t11594 * t765 - 0.12e2 * t755 * t4612 - 0.12e2 * t8714 * t518 - 0.12e2 * t256 * t11601 * t1763 - 0.6e1 * t2355 * t1788 - 0.12e2 * t1220 * t3872 - 0.24e2 * t3167 * t1237 - 0.24e2 * t256 * t3898 * t1210 - 0.12e2 * t1220 * t3342 - 0.24e2 * t1220 * t3292 - 0.24e2 * t755 * t5134 + 0.54e2 * t762 * t11620 * t739 - 0.2592e4 * t3889 * t11624 + 0.108e3 * t2338 * t5147 + 0.108e3 * t3152 * t3910;
7271   t11634 = t403 * t246;
7272   t11643 = t1992 * t16;
7273   t11660 = t745 * t1763;
7274   t11663 = t16 * t11434;
7275   t11666 = t739 * t1765;
7276   t11670 = 0.2e1 * t745 * t1765 + 0.4e1 * t510 * t3110 + 0.36e2 * t11272 + 0.18e2 * t11275 + 0.4e1 * t11434 + 0.72e2 * t11511 + 0.18e2 * t11660 + 0.36e2 * t11663 + 0.18e2 * t11666 + t1767 + t1771 + 0.4e1 * t4442 + 0.36e2 * t4448;
7277   t11671 = t11670 * t23;
7278   t11688 = t1262 * t1255;
7279   t11696 = t1255 * t1255;
7280   t11712 = t28 * t266 * t4648;
7281   t11723 = 0.11e2 / 0.8100e4 * t267 * t7804 * t1792 + 0.77e2 / 0.18000e5 * t267 * t7811 * t4639 - 0.11e2 / 0.2700e4 * t267 * t2541 * t4643 + 0.2387e4 / 0.120000e6 * t267 * t7823 * t1792 * t782 - 0.77e2 / 0.3000e4 * t9220 * t9221 * t11688 - 0.77e2 / 0.12000e5 * t267 * t2550 * t1792 * t804 + 0.11e2 / 0.1800e4 * t267 * t829 * t61 * t11696 + 0.11e2 / 0.1800e4 * t267 * t829 * t527 * t3251 - 0.56455720723267915555e-3 * t267 / t39 / t798 * t269 * t1800 - 0.18630387838678412133e-3 * t11712 * t4657 - 0.34521012759904116600e-4 * t4654 * t9221 * t48 * t782 + 0.16438577504716246000e-4 * t4654 * t4655 * t48 * t804;
7282   t11724 = my_piecewise3(t66, 0, t11723);
7283   t11741 = t1289 * t1283;
7284   t11750 = t2759 * t531;
7285   t11753 = t2771 * t531;
7286   t11756 = t839 * t1810;
7287   t11757 = t2581 * t11756;
7288   t11761 = t1925 * t864;
7289   t11769 = t4916 * t295;
7290   t11772 = -0.48e2 * t9411 * t11741 + 0.24e2 * t9417 * t3462 - 0.9e1 * t9420 * t3462 + t9405 * t3462 / 0.2e1 + 0.28e2 * t11750 * t3462 - 0.2e1 * t11753 * t3462 - 0.360e3 * t11757 - 0.2880e4 * t1869 * t1013 + t11761 * t910 / 0.4e1 + t9544 * t561 + t4805 * t913 / 0.2e1 + t7902 * t1869 / 0.4e1 + t11769 * t327 + t973 * t4723;
7291   t11773 = t11724 * t76;
7292   t11778 = t289 * t4661;
7293   t11781 = t839 * t1805;
7294   t11790 = t845 * t1810;
7295   t11791 = t8068 * t11790;
7296   t11793 = t845 * t1805;
7297   t11794 = t2581 * t11793;
7298   t11796 = t4693 * t910;
7299   t11798 = t1283 * t1283;
7300   t11802 = t11798 * t76;
7301   t11809 = t368 * t11773 / 0.2e1 + 0.288e3 * t2747 * t4730 + 0.288e3 * t983 * t11778 + 0.144e3 * t983 * t11781 + t2795 * t1872 / 0.2e1 + 0.720e3 * t1869 * t1016 + 0.240e3 * t921 * t1954 + 0.2640e4 * t11791 - 0.360e3 * t11794 - 0.240e3 * t11796 + 0.8e1 * t384 * t295 * t11798 + t980 * t11802 / 0.2e1 - 0.2e1 * t1011 * t11802 - 0.3e1 * t975 * t11802;
7302   t11811 = t1925 * t857;
7303   t11821 = t531 * t3406;
7304   t11840 = -0.3e1 / 0.2e1 * t11811 * t910 + 0.2e1 * t3449 * t1307 + t1431 * t3443 + 0.576e3 * t4927 * t4728 + 0.576e3 * t2747 * t4728 + 0.288e3 * t983 * t11821 + 0.576e3 * t9323 * t1289 + 0.576e3 * t3551 * t3436 + 0.288e3 * t3551 * t3439 - 0.480e3 * t1836 * t913 - 0.960e3 * t541 * t3443 + 0.480e3 * t565 * t3431 + 0.480e3 * t331 * t4859 + 0.720e3 * t11793 * t291;
7305   t11855 = t561 * t3406;
7306   t11858 = t11756 * t76;
7307   t11861 = t11790 * t76;
7308   t11864 = t1872 * t839;
7309   t11867 = t11793 * t76;
7310   t11878 = 0.240e3 * t96 * t11724 * t71 - 0.3e1 / 0.2e1 * t7952 * t1869 - 0.2e1 * t384 * t74 * t11724 - 0.960e3 * t302 * t4723 + 0.12e2 * t7961 * t4668 - 0.6e1 * t2765 * t4676 - 0.3e1 * t975 * t11855 - 0.9e1 / 0.4e1 * t2790 * t11858 - 0.9e1 / 0.4e1 * t7949 * t11861 - 0.3e1 / 0.2e1 * t975 * t11864 - 0.9e1 / 0.4e1 * t2790 * t11867 + 0.4e1 * t384 * t1824 * t839 + 0.7e1 * t2759 * t11867 - t1011 * t11864 - t2771 * t11867 / 0.2e1;
7311   t11905 = t2581 * t11741;
7312   t11909 = t3570 * t3465 / 0.2e1 + t9549 * t3453 / 0.4e1 + t7921 * t4668 / 0.4e1 - 0.6e1 * t9588 * t1304 + t9524 * t1304 - 0.6e1 * t3573 * t3462 + t3570 * t3462 + 0.6e1 * t2756 * t11867 - 0.48e2 * t7877 * t11861 + 0.48e2 * t384 * t1811 * t845 - 0.12e2 * t384 * t4696 * t845 - 0.9e1 / 0.2e1 * t9591 * t3453 - 0.1440e4 * t11905 - t7926 * t11861 / 0.4e1;
7313   t11942 = -0.12e2 * t384 * t1821 * t839 + 0.8e1 * t384 * t536 * t3406 - 0.3e1 * t3573 * t3465 + t980 * t11864 / 0.4e1 + t2782 * t11867 / 0.8e1 + t980 * t11855 / 0.2e1 + t2782 * t11858 / 0.8e1 + t7899 * t11861 / 0.16e2 + 0.7e1 * t2759 * t11858 + 0.15e2 / 0.2e1 * t7955 * t11861 - 0.2e1 * t1011 * t11855 - t2771 * t11858 / 0.2e1 + 0.6e1 * t2756 * t11858 + 0.75e2 / 0.4e1 * t7958 * t11861 + 0.12e2 * t9585 * t3453;
7314   t11962 = t1911 * t839;
7315   t11965 = t1909 * t839;
7316   t11967 = 0.307200e6 * t91 * t11798 + 0.1843200e7 * t1862 * t845 + 0.614400e6 * t1864 * t845 + 0.614400e6 * t1913 * t839 + 0.153600e6 * t1915 * t839 + 0.307200e6 * t4896 * t289 + 0.307200e6 * t586 * t3406 + 0.2457600e7 * t557 * t3436 - 0.34560e5 * t11790 - 0.17280e5 * t11962 - 0.34560e5 * t11965;
7317   t11968 = t73 * t11798;
7318   t11970 = t584 * t3406;
7319   t11972 = t4888 * t289;
7320   t11974 = t1860 * t845;
7321   t11976 = t555 * t3436;
7322   t11978 = t118 * t11724;
7323   t11981 = t67 * t11724;
7324   t11988 = 0.30720e5 * t120 * t11724 + 0.896e3 * t11778 + 0.448e3 * t11781 + 0.896e3 * t11798 + 0.896e3 * t11821 - 0.34560e5 * t11968 - 0.34560e5 * t11970 - 0.34560e5 * t11972 - 0.34560e5 * t11974 - 0.138240e6 * t11976 - 0.5760e4 * t11978 + 0.448e3 * t11981;
7325   t12026 = -0.17694720e8 * t122 * t4661 * t289 - 0.1105920e7 * t124 * t11724 + 0.26943e5 * t131 * t11724 + 0.768e3 * t73 * t11724 - 0.2880e4 * t91 * t11724 - 0.23040e5 * t118 * t11798 + 0.323316e6 * t120 * t11798 - 0.17694720e8 * t122 * t11798 + 0.3072e4 * t67 * t11798 - 0.17694720e8 * t1424 * t3406 - 0.138240e6 * t584 * t3436 + 0.3233160e7 * t586 * t3436 - 0.247726080e9 * t588 * t3436 - 0.61931520e8 * t4906 * t839 - 0.8847360e7 * t4911 * t839 - 0.8e1 * t11724 + 0.1536e4 * t11756 + 0.1536e4 * t11793;
7326   t12062 = 0.1536e4 * t1860 * t839 - 0.34560e5 * t1862 * t839 - 0.11520e5 * t1864 * t839 - 0.69120e5 * t1909 * t845 - 0.34560e5 * t1911 * t845 + 0.3233160e7 * t1913 * t845 + 0.808290e6 * t1915 * t845 - 0.371589120e9 * t1917 * t845 - 0.61931520e8 * t1919 * t845 + 0.808290e6 * t1944 * t839 + 0.161658e6 * t1946 * t839 - 0.23040e5 * t4726 * t289 + 0.3072e4 * t4732 * t289 + 0.323316e6 * t4877 * t289 + 0.3072e4 * t555 * t3406 - 0.23040e5 * t557 * t3406 + 0.323316e6 * t600 * t3406 + 0.6144e4 * t11741;
7327   t12069 = t4723 * t289;
7328   t12090 = -0.30e2 * t980 * t11861 + 0.24e2 * t118 * (t11967 + t11988) + (t12026 + t12062) * t76 - 0.3e1 * t2765 * t4671 + t2787 * t4671 / 0.2e1 - 0.3e1 * t975 * t12069 + t980 * t12069 / 0.2e1 - 0.9e1 / 0.2e1 * t7944 * t4668 + t2787 * t4676 + 0.8e1 * t384 * t5042 * t289 - 0.2e1 * t1011 * t12069 + 0.2880e4 * t561 * t385 * t1283 + 0.288e3 * t983 * t11798 + 0.288e3 * t845 * t602 * t531;
7329   t12101 = t67 * t1948;
7330   t12116 = t73 * t4879;
7331   t12127 = 0.480e3 * t68 * t11798 * t71 - 0.960e3 * t69 * t11798 * t76 + 0.144e3 * t839 * t133 * t1810 + 0.288e3 * t289 * t378 * t1810 + 0.72e2 * t371 * t11724 + 0.144e3 * t12101 * t845 + 0.144e3 * t12116 * t289 + 0.288e3 * t3561 * t1283 + 0.144e3 * t1448 * t3406 + 0.72e2 * t2750 * t1805 + 0.144e3 * t3554 * t1805 + 0.144e3 * t8058 * t1810 + 0.144e3 * t986 * t4661 + 0.72e2 * t4924 * t839 + 0.144e3 * t9331 * t531;
7332   t12140 = t48 * t800;
7333   t12156 = t4774 * t781;
7334   t12172 = t2053 * t804;
7335   t12179 = 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t11724 * t141 + 0.16e2 / 0.7e1 * t4661 * t388 + 0.8e1 / 0.7e1 * t1805 * t1019 + 0.16e2 / 0.7e1 * t3406 * t611 + 0.32e2 / 0.7e1 * t1283 * t1476 + 0.16e2 / 0.7e1 * t531 * t3578 + 0.8e1 / 0.7e1 * t839 * t1967 + 0.16e2 / 0.7e1 * t289 * t4936 + 0.8e1 / 0.7e1 * t67 * (t11772 + t11809 + t11840 + t11878 + t11909 + t11942 + t12090 + t12127)) * t32 * t36 * t147 - 0.14620935720164609054e-1 * t5089 * t947 - 0.36344200446790827520e-1 * t314 * t12140 - 0.28084912592592592594e0 * t1480 * t1331 - 0.19494580960219478738e0 * t1326 * t273 * t114 - 0.34900379798164840299e-5 * t1022 * sigma[0] * t1989 + 0.52659211111111111112e-1 * t3582 * t620 + 0.70e2 / 0.81e2 * t4743 * t345 * t114 - 0.78176850747889242270e-4 * t1986 * t12156 * t283 + 0.97721063434861552838e-5 * t4989 * t4764 + 0.48860531717430776419e-5 * t1986 * t4763 * t804 - 0.14296026037494284408e0 * t9091 * t579 + 0.196e3 / 0.405e3 * t349 * t813 * t11696 + 0.29489158222222222223e-1 * t616 * t3261 + 0.12911755421886215040e-2 * t4944 * t12172 - 0.29241871440329218108e-1 * t3347 * t1405 - 0.14620935720164609054e-1 * t1398 * t3702;
7336   t12214 = t1827 * t910;
7337   t12217 = t844 * t1805 * t910;
7338   t12219 = t4696 * t913;
7339   t12223 = 0.5e1 / 0.2e1 * t2600 * t1805 * t910;
7340   t12224 = t5018 * t910;
7341   t12226 = t1320 * t3443;
7342   t12229 = 0.5e1 / 0.2e1 * t4693 * t913;
7343   t12231 = t7948 * t1810 * t910;
7344   t12234 = t857 * t4661 * t327;
7345   t12236 = t1811 * t913;
7346   t12238 = t2610 * t1805;
7347   t12248 = t864 * t4661;
7348   t12251 = -0.8e1 * t11798 * t77 - 0.75e2 / 0.2e1 * t12214 + 0.15e2 / 0.2e1 * t12217 - 0.2e1 * t12219 - t12223 + 0.85e2 / 0.4e1 * t12224 - 0.4e1 * t12226 - t12229 - 0.19e2 / 0.8e1 * t12231 - 0.4e1 * t12234 + 0.15e2 / 0.2e1 * t12236 + t12238 * t910 / 0.8e1 + t1372 * t3443 / 0.2e1 + t5050 * t913 / 0.8e1 + t7898 * t1810 * t910 / 0.16e2 + t12248 * t327 / 0.2e1;
7349   t12259 = t3652 * t3462;
7350   t12262 = 0.10e2 * t3658 * t3462;
7351   t12281 = t857 * t11798 * t76;
7352   t12284 = t69 * t11724 * t76;
7353   t12287 = t5045 * t913 / 0.4e1 - t1016 * t1872 - 0.2e1 * t385 * t4723 - 0.2e1 * t608 * t3443 + 0.30e2 * t12259 - t12262 - 0.2e1 * t74 * t11798 * t76 - 0.4e1 * t3764 * t1805 - 0.8e1 * t1375 * t4661 - 0.4e1 * t299 * t11724 - 0.8e1 * t5053 * t3406 + t295 * t11724 * t76 / 0.2e1 + t864 * t11798 * t76 / 0.2e1 - 0.4e1 * t12281 - t12284 + t3761 * t3462 / 0.2e1;
7354   t12313 = -0.6e1 * t11757 + 0.2e1 * t67 * (t12251 + t12287) + 0.24e2 * t11791 - 0.6e1 * t11794 - 0.24e2 * t11796 + 0.4e1 * t531 * t3774 + 0.8e1 * t1283 * t1381 + 0.4e1 * t3406 * t543 + 0.2e1 * t1805 * t876 + 0.4e1 * t4661 * t304 + 0.2e1 * t839 * t1838 + 0.4e1 * t289 * t5063 + 0.2e1 * t11724 * t80 + 0.14e2 * t1372 * t3462 - t9747 * t3462;
7355   t12343 = 0.4e1 * t849 * t11821 - t3727 * t1872 / 0.2e1 - t1356 * t4723 - t3730 * t1872 / 0.4e1 + 0.4e1 * t849 * t11778 - t3652 * t3443 - t5018 * t913 / 0.4e1 - t7925 * t1810 * t910 / 0.8e1 + 0.7e1 / 0.2e1 * t1827 * t913 + 0.15e2 / 0.4e1 * t5050 * t910 + 0.2e1 * t849 * t11781 - 0.24e2 * t11905 + 0.4e1 * t849 * t11798 - t844 * t11798 * t76 - t291 * t11724 + 0.7e1 / 0.2e1 * t865 * t1872;
7356   t12377 = t531 * t335;
7357   t12386 = t67 * t4740;
7358   t12397 = 0.6144e4 * t11976;
7359   t12417 = -0.9e1 * t9628 * t3462 + t9631 * t3462 / 0.2e1 + 0.24e2 * t9634 * t3462 + t12397 - 0.3e1 * t909 * t11802 + t916 * t11802 / 0.2e1 - 0.100e3 * t12214 + 0.20e2 * t12217 + t907 * t4723 + t326 * t11773 / 0.2e1 + t1299 * t3443 - 0.3e1 / 0.2e1 * t8295 * t1869 + t2684 * t1872 / 0.2e1 + t8261 * t1869 / 0.4e1 - 0.5e1 * t12219 - t12223 + 0.55e2 / 0.2e1 * t12224 - 0.10e2 * t12226 - t12229;
7360   t12421 = t1866 * t857;
7361   t12426 = t4734 * t295;
7362   t12430 = t1866 * t864;
7363   t12440 = 0.1536e4 * t11790;
7364   t12441 = 0.1536e4 * t11965;
7365   t12442 = 0.1536e4 * t11968;
7366   t12443 = 0.1536e4 * t11970;
7367   t12444 = 0.1536e4 * t11974;
7368   t12445 = 0.1536e4 * t11972;
7369   t12446 = 0.768e3 * t11962;
7370   t12447 = 0.256e3 * t11978;
7371   t12448 = 0.80e2 * t11798 + 0.80e2 * t11821 + 0.40e2 * t11781 + 0.80e2 * t11778 + 0.40e2 * t11981 - t12440 - t12397 - t12441 - t12442 - t12443 - t12444 - t12445 - t12446 - t12447;
7372   t12466 = -0.5e1 / 0.4e1 * t12231 - 0.10e2 * t12234 + 0.20e2 * t12236 - 0.3e1 / 0.2e1 * t12421 * t910 + 0.2e1 * t3639 * t1307 + t12426 * t327 + t4714 * t913 / 0.2e1 + t12430 * t910 / 0.4e1 + t9739 * t561 - 0.144e3 * t11798 + t12448 * t76 - 0.6e1 * t9714 * t1304 + t9728 * t1304 - 0.6e1 * t3649 * t3462 + t3643 * t3462 + 0.12e2 * t8280 * t4668 - 0.6e1 * t2699 * t4676 - 0.3e1 / 0.2e1 * t909 * t11864 - 0.9e1 / 0.4e1 * t2678 * t11867 + t916 * t11864 / 0.4e1;
7373   t12505 = t2674 * t11867 / 0.8e1 + t3643 * t3465 / 0.2e1 + t9720 * t3453 / 0.4e1 + 0.6e1 * t2702 * t11858 + 0.75e2 / 0.4e1 * t8292 * t11861 - 0.3e1 * t909 * t11855 - 0.9e1 / 0.4e1 * t2678 * t11858 + t916 * t11855 / 0.2e1 + t2674 * t11858 / 0.8e1 + t8271 * t11861 / 0.16e2 - 0.3e1 * t3649 * t3465 - 0.9e1 / 0.2e1 * t9717 * t3453 + 0.80e2 * t12259 - t12262 - 0.9e1 / 0.4e1 * t8289 * t11861 + 0.12e2 * t9711 * t3453 - 0.30e2 * t916 * t11861 + 0.6e1 * t2702 * t11867 - 0.3e1 * t2699 * t4671 + t2689 * t4671 / 0.2e1;
7374   t12524 = -0.3e1 * t909 * t12069 + t916 * t12069 / 0.2e1 - 0.9e1 / 0.2e1 * t8274 * t4668 + t2689 * t4676 + t8268 * t4668 / 0.4e1 + t12440 + t12442 + t12447 - 0.144e3 * t11778 - 0.72e2 * t11981 - 0.144e3 * t11821 - 0.72e2 * t11781 - 0.10e2 * t12281 + 0.10e2 * t68 * t11724 * t71 - 0.10e2 * t12284 + t12446 + t12441 + t12443 + t12445 + t12444;
7375   t12529 = 0.96e2 * t893 * t4661 + 0.48e2 * t317 * t11724 + 0.48e2 * t845 * t1884 + 0.48e2 * t2654 * t1805 + 0.96e2 * t1286 * t3406 + 0.48e2 * t3597 * t1805 + 0.96e2 * t3600 * t1805 + 0.96e2 * t1266 * t4661 + 0.48e2 * t1810 * t926 + 0.192e3 * t4625 * t1283 + 0.96e2 * t9772 * t531 + 0.96e2 * t839 * t569 * t531 + 0.192e3 * t289 * t1323 * t531 + 0.192e3 * t12377 * t1283 + 0.96e2 * t4620 * t3406 + 0.96e2 * t11798 * t99 + 0.48e2 * t4664 * t839 + 0.96e2 * t12386 * t289 + 0.192e3 * t3613 * t1283 + 0.24e2 * t73 * (t12417 + t12466 + t12505 + t12524);
7376   t12553 = 0.98e2 / 0.405e3 * t2724 * t1898 + 0.196e3 / 0.405e3 * t2727 * t1898 + 0.98e2 / 0.405e3 * t2866 * t1898 + 0.80185688269845662151e-4 * t111 * t4754 * t804 + 0.35e2 / 0.81e2 * t1887 * t887 * t114 + 0.36552339300411522634e-1 * t3685 * t41 * t114 + (-0.8e1 / 0.3e1 * t11724 * t83 - 0.16e2 / 0.3e1 * t4661 * t307 - 0.8e1 / 0.3e1 * t1805 * t879 - 0.16e2 / 0.3e1 * t3406 * t546 - 0.32e2 / 0.3e1 * t1283 * t1384 - 0.16e2 / 0.3e1 * t531 * t3777 - 0.8e1 / 0.3e1 * t839 * t1841 - 0.16e2 / 0.3e1 * t289 * t5066 - 0.8e1 / 0.3e1 * t67 * (t12313 + t12343)) * t88 + 0.35e2 / 0.81e2 * t12529 * t110 * t114 - 0.56e2 / 0.81e2 * t3352 * t1405 - 0.28e2 / 0.81e2 * t9616 * t579 - 0.56e2 / 0.81e2 * t3355 * t1405 - 0.28e2 / 0.81e2 * t1395 * t3702 - 0.14620935720164609054e-1 * t9619 * t579 + 0.25744503209876543210e0 * t1972 * t790 - 0.28e2 / 0.81e2 * t9216 * t579 - 0.56e2 / 0.81e2 * t9613 * t579 + 0.20469310008230452676e-1 * t5089 * t814 + 0.11233965037037037037e0 * t393 * t4468;
7377   t12555 = t3257 * t1255;
7378   t12558 = t9070 * t526;
7379   t12563 = t526 * t3251;
7380   t12566 = t1791 * t804;
7381   t12573 = t1791 * t782;
7382   t12584 = t1844 * t937;
7383   t12590 = t2053 * t782;
7384   t12593 = t4465 * t283;
7385   t12598 = 0.11233965037037037037e0 * t146 * t12555 - 0.20595602567901234567e0 * t146 * t12558 + 0.98e2 / 0.405e3 * t5086 * t814 + 0.12e2 / 0.25e2 * t938 * t12563 - 0.66e2 / 0.125e3 * t2637 * t12566 + 0.24e2 / 0.25e2 * t2640 * t4483 - 0.132e3 / 0.125e3 * t9917 * t3273 + 0.1056e4 / 0.625e3 * t8143 * t12573 + 0.61093857729406218782e-3 * t346 * t5100 + 0.61093857729406218782e-3 * t339 * t5100 + 0.12e2 / 0.25e2 * t938 * t11696 - 0.2e1 / 0.5e1 * t10033 * t526 + 0.6e1 / 0.25e2 * t12584 * t782 - t4976 * t804 / 0.5e1 - 0.28405861928149673088e-2 * t2637 * t45 * t12590 - 0.13772539116678629376e-1 * t4944 * t12593 - 0.57275491621318330108e-4 * t930 * t1901;
7386   t12642 = t1988 * t2472;
7387   t12646 = 0.55840607677063744478e-4 * t4989 * t4775 + 0.24e2 / 0.25e2 * t9102 * t1262 - 0.11455098324263666022e-3 * t933 * t1901 - 0.57275491621318330108e-4 * t888 * t1901 + 0.24e2 / 0.25e2 * t3699 * t3276 + 0.12e2 / 0.25e2 * t3699 * t3279 - 0.132e3 / 0.125e3 * t8350 * t4480 - 0.70773979733333333332e-1 * t3850 * t5071 + 0.18873061262222222222e0 * t1345 * t9850 * t4480 + 0.12031576554666666666e0 * t1345 * t9837 * t12573 - 0.15727551051851851852e0 * t1345 * t3846 * t4483 - 0.35386989866666666666e-1 * t1345 * t3853 * t12566 + 0.58978316444444444444e-1 * t3850 * t5074 - 0.15727551051851851852e0 * t5077 * t3847 + 0.58978316444444444444e-1 * t1480 * t199 * t1347 - 0.19244565184762958916e-3 * t111 * t2472 * t53 * t782 - 0.85531400821168706294e-3 * t111 * t781 * t279 * t283 - 0.11726527612183386341e-4 * t1986 * t12642 * t782;
7388   t12661 = t4758 * t32;
7389   t12664 = t4744 * t32;
7390   t12672 = t4751 * t32;
7391   t12681 = t1391 * t3251;
7392   t12686 = t4617 * t32;
7393   t12689 = -0.2e1 / 0.5e1 * t1484 * t3251 - 0.4e1 / 0.5e1 * t3782 * t1255 - 0.14042456296296296297e0 * t4941 * t396 + 0.77978323840877914954e-1 * t9094 * t579 + 0.77978323840877914954e-1 * t3366 * t1405 - 0.42127368888888888890e-1 * t1481 * t1392 - 0.28e2 / 0.81e2 * t12661 * t353 - 0.28e2 / 0.81e2 * t12664 * t353 + 0.25823510843772430080e-2 * t2640 * t45 * t4462 + 0.11233965037037037038e0 * t616 * t3258 - 0.29241871440329218108e-1 * t12672 * t353 - 0.21063684444444444445e-1 * t616 * t3264 - 0.21063684444444444444e-1 * t1024 * t1979 - 0.42127368888888888888e-1 * t393 * t4475 - 0.21063684444444444444e-1 * t146 * t12681 - 0.14e2 / 0.81e2 * t5086 * t947 + 0.77978323840877914953e-1 * t12686 * t353;
7394   t12717 = t5069 * t313;
7395   t12735 = 0.11477115930565524480e-1 * t1027 * t4491 + 0.51489006419753086422e0 * t615 * t3806 + 0.35740065093735711020e0 * t572 * t788 * t114 - 0.19346388280978635948e-2 * t111 * t351 * t800 + 0.58978316444444444444e-1 * t5077 * t3840 + 0.29489158222222222222e-1 * t5077 * t3843 + 0.29489158222222222222e-1 * t1345 * t1346 * t12563 - 0.1568e4 / 0.675e3 * t9808 * t9809 * t3276 - 0.70773979733333333333e-1 * t5077 * t3854 - 0.14154795946666666666e0 * t1345 * t3853 * t11688 + 0.6e1 / 0.25e2 * t8345 * t1791 - 0.2e1 / 0.5e1 * t12717 * t283 - 0.784e3 / 0.675e3 * t1395 * t3813 + 0.14416921797530864197e0 * t146 * t789 * t1982 + 0.29489158222222222222e-1 * t146 * t42 * t781 * t11696 + 0.40938620016460905352e-1 * t1398 * t3823 + 0.20469310008230452676e-1 * t1398 * t3826 - 0.21063684444444444444e-1 * t3583 * t624;
7396   t12773 = 0.6664e4 / 0.3375e4 * t349 * t7717 * t12573 + 0.14744579111111111111e-1 * t1972 * t784 - 0.15727551051851851852e0 * t146 * t3847 + 0.58978316444444444444e-1 * t393 * t1347 - 0.10531842222222222222e-1 * t1972 * t806 - 0.784e3 / 0.675e3 * t941 * t4962 - 0.784e3 / 0.675e3 * t944 * t4962 - 0.392e3 / 0.675e3 * t349 * t2873 * t12566 + 0.392e3 / 0.405e3 * t941 * t4965 - 0.21063684444444444444e-1 * t616 * t3794 - 0.42127368888888888888e-1 * t1481 * t1257 - 0.49126344019753086422e-1 * t1398 * t3813 - 0.78637755259259259258e-1 * t393 * t4947 + 0.58978316444444444444e-1 * t146 * t3840 + 0.29489158222222222222e-1 * t146 * t3843 + 0.14744579111111111111e-1 * t1024 * t1983 + 0.11233965037037037037e0 * t616 * t3801;
7397   t12807 = t1987 * t38;
7398   t12814 = 0.11233965037037037037e0 * t1481 * t1245 + 0.56169825185185185185e-1 * t1972 * t793 - 0.21063684444444444444e-1 * t4941 * t400 - 0.20595602567901234567e0 * t616 * t3818 - 0.10916965337722908094e0 * t3366 * t1263 + 0.40938620016460905352e-1 * t3347 * t1263 + 0.392e3 / 0.405e3 * t3355 * t1263 + 0.392e3 / 0.405e3 * t1395 * t3823 + 0.196e3 / 0.405e3 * t1395 * t3826 + 0.392e3 / 0.405e3 * t944 * t4965 + 0.196e3 / 0.405e3 * t349 * t813 * t12563 + 0.392e3 / 0.405e3 * t3352 * t1263 - 0.70773979733333333333e-1 * t146 * t3854 - 0.264e3 / 0.125e3 * t2637 * t11688 + 0.16037137653969132430e-3 * t346 * t4755 + 0.16037137653969132430e-3 * t339 * t4755 - 0.25128273454678685015e-3 * t1986 / t12807 * t351 - 0.10759796184905179200e-2 * t2630 * t1850;
7399   t12843 = -0.54e2 * t11594 * t1036 + 0.12e2 * t11265 * t249 + 0.12e2 * t256 * t11660 + 0.24e2 * t256 * t11663 + 0.24e2 * t3167 * t1215 + 0.12e2 * t1220 * t3232 + 0.12e2 * t2355 * t1768 + 0.6e1 * t2355 * t1770 - 0.54e2 * t7408 * t1996 + 0.6e1 * t4395 * t750 + 0.24e2 * t755 * t4444 + 0.12e2 * t8714 * t513;
7400   t12862 = -0.108e3 * t762 * t763 * t11434 + 0.48e2 * t256 * t11511 + 0.2592e4 * t5350 * t11511 - 0.1296e4 * t5353 * t11511 + 0.12e2 * t256 * t11666 + 0.24e2 * t1220 * t3228 + 0.12e2 * t4395 * t748 - t11671 + t2002 + 0.12e2 * t5182 - 0.108e3 * t5184 + 0.24e2 * t5186;
7401   t12888 = 0.24e2 * t256 * t11272 + 0.12e2 * t256 * t11275 - 0.54e2 * t762 * t11282 + 0.648e3 * t2372 * t11286 + 0.48e2 * t1220 * t3200 + 0.24e2 * t1220 * t3203 - 0.648e3 * t2338 * t4503 - 0.216e3 * t2338 * t4506 - 0.108e3 * t2338 * t4524 + 0.1296e4 * t8722 * t3192 + 0.24e2 * t755 * t4448 + 0.1296e4 * t7392 * t4510;
7402   t12915 = -0.324e3 * t762 * t11279 - 0.324e3 * t762 * t11301 + 0.7776e4 * t2372 * t11305 - 0.108e3 * t762 * t11308 + 0.648e3 * t2372 * t11311 - 0.9720e4 * t7397 * t11315 - 0.1080e4 * t762 * t11497 + 0.48e2 * t3167 * t1213 - 0.216e3 * t8719 * t1228 - 0.648e3 * t3152 * t3171 - 0.216e3 * t3152 * t3184 - 0.108e3 * t3152 * t3187 + 0.48e2 * t755 * t4446;
7403   t12917 = t12843 + t12862 + t12888 + t12915;
7404   t12927 = t2338 * t627;
7405   t12954 = -0.292e3 / 0.135e3 * t4547 + 0.584e3 / 0.135e3 * t4549 + 0.292e3 / 0.135e3 * t4555 + 0.292e3 / 0.135e3 * t1123 * t1763 + t2026 - t2022 - 0.73e2 / 0.9720e4 * t37 * t640 * t3110 - 0.146e3 / 0.3645e4 * t37 * t273 * t1210 * t213 + 0.292e3 / 0.3645e4 * t37 * t4529 * t246 + 0.73e2 / 0.9720e4 * t37 * t41 * t3110 * t213 - 0.73e2 / 0.2430e4 * t37 * t4533 * t246;
7406   t12984 = -0.73e2 / 0.4860e4 * t37 * t2013 * t745 + 0.146e3 / 0.3645e4 * t37 * t1527 * t1210 - 0.803e3 / 0.10935e5 * t37 * t3136 * t510 + 0.803e3 / 0.10935e5 * t37 * t788 * t510 * t213 + 0.191387e6 / 0.2361960e7 * t12140 - 0.146e3 / 0.135e3 * t1123 * t1765 * t213 + 0.584e3 / 0.135e3 * t4546 * t246 + 0.292e3 / 0.135e3 * t2020 * t745 + 0.1168e4 / 0.135e3 * t1538 * t1210 + 0.584e3 / 0.135e3 * t209 * t11434 + 0.584e3 / 0.135e3 * t644 * t3110 + 0.146e3 / 0.135e3 * t1126 * t1765;
7407   t12985 = t12954 + t12984;
7408   t12989 = 0.54e2 * t7408 * t1779 - 0.24e2 * t256 * t11634 * t1763 - 0.6e1 * t256 * t2989 * t1765 - 0.24e2 * t755 * t5108 - 0.12e2 * t256 * t11643 * t739 - 0.12e2 * t755 * t4594 + t1773 * t1032 + 0.2e1 * t3235 * t627 + 0.4e1 * t1218 * t1492 + t11671 * t150 + 0.2e1 * t4451 * t403 + t24 * (t12179 + t12553 + t12598 + t12646 + t12689 + t12735 + t12773 + t12814) + t12917 * t194 * t217 - 0.12e2 * t4395 * t773 + 0.2e1 * t5188 * t443 * t217 + t2003 * t1099 * t217 + 0.216e3 * t12927 * t1228 + 0.2e1 / 0.5e1 * t1505 * t1551 + t195 * t450 * t12985 / 0.10e2;
7409   t12995 = 0.648e3 * t4499 * t3171 + 0.108e3 * t4499 * t3187 - 0.1296e4 * t11298 * t3192 + 0.324e3 * t1562 * t11301 - 0.7776e4 * t3190 * t11305 + 0.108e3 * t1562 * t11308 - 0.648e3 * t3190 * t11311 + 0.9720e4 * t10329 * t11315 - 0.24e2 * t4513 * t3203 + 0.648e3 * t4516 * t3171 - 0.24e2 * t3174 * t4448 + 0.108e3 * t3177 * t4524 - 0.9e1 / 0.50e2 * t1194 * t649 * t3140 - 0.9e1 / 0.50e2 * t2420 * t4427 - p->cam_beta * (t11368 + t11409 + t11456 + t11502 + t11547 + t11586 + t11631 + t12989) + t12917 * t217;
7410   t12997 = t4494 * t17;
7411   t13003 = t666 * t739;
7412   t13038 = -0.12e2 * t256 * t12997 * t246 + 0.171e3 / 0.500e3 * t10208 * t3210 - 0.24e2 * t256 * t13003 * t510 + 0.108e3 * t762 * t1152 * t11434 - 0.24e2 * t1220 * t3207 - 0.24e2 * t256 * t1160 * t11434 - 0.12e2 * t256 * t3206 * t1765 - 0.24e2 * t1220 * t3977 - 0.24e2 * t256 * t3074 * t1210 - 0.12e2 * t256 * t10285 * t510 - 0.9e1 / 0.25e2 * t2420 * t4433 + 0.1296e4 * t1562 * t11477 - 0.2592e4 * t3190 * t11624 - 0.24e2 * t755 * t4421 - 0.24e2 * t755 * t4424 - 0.12e2 * t2355 * t2041;
7413   t13056 = t2062 * t16;
7414   t13076 = 0.54e2 * t762 * t8390 * t1763 + 0.108e3 * t3152 * t3164 + 0.54e2 * t7408 * t2038 + 0.108e3 * t2338 * t5201 + 0.171e3 / 0.250e3 * t2426 * t11386 + 0.2e1 * t4451 * t498 + t1773 * t1188 + 0.2e1 * t516 * t3284 + t11671 * t231 - 0.12e2 * t256 * t13056 * t739 - 0.12e2 * t4395 * t1161 + 0.4e1 * t1218 * t1595 + t4388 * t1141 / 0.10e2 + 0.2e1 * t3235 * t666 + 0.171e3 / 0.1000e4 * t2426 * t2008 * t1141 - 0.6e1 * t256 * t2358 * t1765 - 0.12e2 * t1220 * t3160;
7415   t13086 = t498 * t246;
7416   t13090 = t231 * t745;
7417   t13113 = t3167 * t231;
7418   t13116 = -0.24e2 * t256 * t13086 * t1763 - 0.12e2 * t256 * t13090 * t1763 - 0.12e2 * t256 * t1575 * t3110 - 0.12e2 * t256 * t8452 * t1763 - 0.48e2 * t13113 * t1213 - 0.12e2 * t1220 * t3145 - 0.24e2 * t1220 * t3985 - 0.12e2 * t2355 * t2044 - 0.6e1 * t2355 * t2047 + 0.108e3 * t3180 * t4524 - 0.24e2 * t3197 * t4448 - 0.12e2 * t755 * t4402 - 0.24e2 * t755 * t4411 - 0.24e2 * t755 * t4416 - 0.24e2 * t4521 + 0.108e3 * t4525;
7419   t13117 = t8719 * t231;
7420   t13120 = t1220 * t498;
7421   t13123 = t3152 * t498;
7422   t13128 = t256 * t1595;
7423   t13131 = t762 * t1595;
7424   t13146 = t2338 * t666;
7425   t13157 = -0.1296e4 * t10313 * t4510 + 0.1080e4 * t1562 * t11497 - 0.48e2 * t1568 * t11511 - 0.48e2 * t13120 * t1213 - 0.48e2 * t13128 * t1213 + 0.216e3 * t13117 * t1228 + 0.216e3 * t13123 * t1228 + 0.216e3 * t13131 * t1228 + 0.216e3 * t13146 * t1228 - 0.48e2 * t3174 * t4446 + 0.648e3 * t3177 * t4503 + 0.216e3 * t3177 * t4506 + 0.648e3 * t3180 * t4503 + 0.216e3 * t4516 * t3184 - 0.48e2 * t3197 * t4446 - 0.48e2 * t4496 * t3200 - 0.48e2 * t4513 * t3200;
7426   t13163 = t755 * t666;
7427   t13168 = t2372 * t666;
7428   t13185 = t2062 * t763;
7429   t13197 = 0.216e3 * t3180 * t4506 - 0.1296e4 * t10318 * t4510 - 0.48e2 * t13163 * t1213 + 0.108e3 * t4516 * t3187 - 0.1296e4 * t13168 * t3192 - 0.9e1 / 0.50e2 * t1194 * t4557 * t473 - 0.9e1 / 0.50e2 * t3216 * t3213 - 0.12e2 * t8714 * t656 - 0.24e2 * t3167 * t1565 - 0.24e2 * t3167 * t1571 - 0.6e1 * t256 * t4405 * t745 + 0.54e2 * t762 * t13185 * t739 - 0.6e1 * t4395 * t1164 + 0.54e2 * t11594 * t1153 - 0.12e2 * t1220 * t3973 + 0.2e1 * t252 * t4494;
7430   t13221 = t781 * t1255;
7431   t13222 = t13221 * t283;
7432   t13225 = t4471 * t804;
7433   t13233 = 0.12911755421886215040e-2 * t4461 * t12172 + 0.19031797421124828532e0 * t37 * t12555 - 0.35684620164609053498e-1 * t37 * t12681 - 0.1568e4 / 0.375e3 * t2473 * t11688 + 0.17853291447546371413e-1 * t1180 * t4491 - 0.13772539116678629376e-1 * t4461 * t12593 - 0.34891628605395518976e0 * t37 * t12558 - 0.16737460732074723200e-2 * t2463 * t1850 - 0.56535422917230176142e-1 * t495 * t12140 - 0.28405861928149673088e-2 * t2434 * t45 * t12590 - 0.26644516389574759946e0 * t1250 * t4472 + 0.99916936460905349794e-1 * t521 * t13222 + 0.49958468230452674897e-1 * t521 * t13225 + 0.46864890049809224960e-2 * t2466 * t45 * t4462 + 0.23432445024904612480e-2 * t4488 * t12172;
7434   t13245 = t9809 * t782;
7435   t13270 = -0.66e2 / 0.125e3 * t4456 * t804 + 0.12e2 / 0.25e2 * t1579 * t3251 + 0.98e2 / 0.225e3 * t8488 * t1791 + 0.1056e4 / 0.625e3 * t8142 * t1791 * t782 + 0.196e3 / 0.225e3 * t1183 * t11696 - 0.11990032375308641975e0 * t521 * t13245 - 0.56237868059771069952e-2 * t2473 * t45 * t12590 - 0.24994608026564919978e-1 * t4488 * t12593 + 0.6664e4 / 0.1875e4 * t8496 * t12573 + 0.196e3 / 0.225e3 * t1183 * t12563 - 0.264e3 / 0.125e3 * t3240 * t3276 - 0.784e3 / 0.375e3 * t8491 * t4480 + 0.392e3 / 0.225e3 * t2466 * t4483 - 0.392e3 / 0.375e3 * t2473 * t12566 - 0.36344200446790827520e-1 * t2052 * t47 * t800 + 0.12e2 / 0.25e2 * t937 * t11696;
7436   t13293 = t5188 * t450;
7437   t13306 = t2003 * t1105;
7438   t13309 = t24 * (t13233 + t13270) - 0.9e1 / 0.100e3 * t1194 * t2027 * t1141 - 0.9e1 / 0.25e2 * t10205 * t1603 - 0.9e1 / 0.25e2 * t3216 * t3982 + t1598 * t3140 / 0.5e1 - 0.9e1 / 0.100e3 * t8524 * t2008 + t753 * t2062 + t10332 * t649 / 0.5e1 + 0.2e1 / 0.5e1 * t3288 * t1550 + t501 * t12985 / 0.10e2 + t1191 * t4557 / 0.5e1 + t13293 * t473 / 0.5e1 + t3056 * t2027 / 0.10e2 - 0.9e1 / 0.50e2 * t1194 * t11425 + 0.171e3 / 0.1000e4 * t2426 * t2027 * t1106 - 0.4959e4 / 0.10000e5 * t8516 * t2008 * t1106 - 0.9e1 / 0.100e3 * t13306 * t1106;
7439   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7440     v4rho2sigma2[0] = -t3068 * t2072 / 0.6e1 - t1203 * t5219 - 0.3e1 / 0.8e1 * t240 * t241 * (t11293 + t12995 + t13038 + t13076 + t13116 + t13157 + t13197 + t13309);
7441 
7442   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7443     v4rho2sigmalapl[0] = 0.0e0;
7444 
7445   t13350 = my_piecewise3(t15, -t741 * t676 / 0.4e1, 0);
7446   t13353 = t4089 * t510;
7447   t13355 = t4091 * t510;
7448   t13357 = t1614 * t1210;
7449   t13359 = t4093 * t510;
7450   t13361 = t1619 * t1210;
7451   t13363 = t680 * t3110;
7452   t13365 = t739 * t2079;
7453   t13367 = t5250 * t246;
7454   t13369 = t2080 * t745;
7455   t13371 = t17 * t13350;
7456   t13373 = 0.4e1 * t1210 * t1618 + 0.2e1 * t16 * t13350 + 0.2e1 * t745 * t2079 + 0.4e1 * t246 * t5249 + 0.2e1 * t3110 * t679 + 0.2e1 * t510 * t4036 + 0.18e2 * t13353 + 0.36e2 * t13355 + 0.36e2 * t13357 + 0.18e2 * t13359 + 0.36e2 * t13361 + 0.18e2 * t13363 + 0.18e2 * t13365 + 0.36e2 * t13367 + 0.18e2 * t13369 + 0.9e1 * t13371;
7457   t13374 = t13373 * t23;
7458   t13380 = -0.12e2 * t256 * t3206 * t2079 + 0.20962741563786008230e0 * t1218 * t41 * t114 + t1749 * t3140 / 0.10e2 + t1598 * t4050 / 0.10e2 + t3288 * t1714 / 0.5e1 + t10332 * t713 / 0.10e2 + 0.2e1 * t5263 * t498 + t2087 * t1188 + 0.171e3 / 0.1000e4 * t11103 * t3210 + t13374 * t231 + t4104 * t666 + 0.2e1 * t1626 * t1595 + t685 * t3284;
7459   t13381 = t5381 * t450;
7460   t13392 = t10719 * t1206;
7461   t13395 = t10415 * t1206;
7462   t13398 = t4161 * t3224;
7463   t13401 = t4109 * t3224;
7464   t13404 = t4095 * t513;
7465   t13415 = t13381 * t473 / 0.5e1 + 0.648e3 * t3177 * t5224 - 0.1296e4 * t10313 * t5227 + 0.648e3 * t3180 * t5224 - 0.1296e4 * t10318 * t5227 + 0.648e3 * t1562 * t13392 - 0.1296e4 * t3190 * t13395 + 0.648e3 * t1562 * t13398 - 0.1296e4 * t3190 * t13401 + 0.1080e4 * t1562 * t13404 - 0.9e1 / 0.100e3 * t1194 * t4050 * t649 - 0.9e1 / 0.100e3 * t4360 * t3213 - 0.9e1 / 0.50e2 * t1194 * t1714 * t1550;
7466   t13427 = t2128 * t1105;
7467   t13435 = t1220 * t4363;
7468   t13440 = t3152 * t691;
7469   t13447 = -0.9e1 / 0.50e2 * t2420 * t5659 - 0.12e2 * t1628 * t3207 - 0.9e1 / 0.50e2 * t4360 * t3982 - 0.9e1 / 0.50e2 * t11052 * t1603 + t5270 * t1141 / 0.10e2 - 0.9e1 / 0.100e3 * t13427 * t1106 + 0.16770193251028806585e1 * t11134 * t2188 - 0.27950322085048010973e0 * t516 * t273 * t114 - 0.12577644938271604938e1 * t13435 * t1740 + 0.37732934814814814815e0 * t5665 * t4373 - 0.33959641333333333334e1 * t13440 * t4377 + 0.37732934814814814815e0 * t10472 * t2188 + 0.75465869629629629630e0 * t4370 * t5670;
7470   t13456 = t3167 * t691;
7471   t13510 = -0.146e3 / 0.135e3 * t1123 * t2079 * t213 - 0.292e3 / 0.135e3 * t462 * t5249 * t213 + 0.584e3 / 0.135e3 * t5299 * t246 - 0.146e3 / 0.135e3 * t209 * t13350 * t213 + 0.584e3 / 0.135e3 * t5302 * t246 + 0.292e3 / 0.135e3 * t2153 * t745 + 0.292e3 / 0.135e3 * t4026 * t510 + 0.584e3 / 0.135e3 * t4029 * t510 + 0.584e3 / 0.135e3 * t1702 * t1210 + 0.292e3 / 0.135e3 * t4037 * t510 + 0.584e3 / 0.135e3 * t1705 * t1210 + 0.292e3 / 0.135e3 * t708 * t3110 + 0.146e3 / 0.135e3 * t1126 * t2079 + 0.292e3 / 0.135e3 * t465 * t5249 + 0.146e3 / 0.135e3 * t212 * t13350 - 0.73e2 / 0.19440e5 * t37 * t640 * t4036 - 0.73e2 / 0.270e3 * t691 * t36 * t3110 * t213;
7472   t13553 = 0.146e3 / 0.135e3 * t691 * t5277 * t246 + 0.73e2 / 0.135e3 * t691 * t2142 * t745 + 0.73e2 / 0.270e3 * t691 * t704 * t3110 - 0.73e2 / 0.3645e4 * t37 * t273 * t1618 * t213 + 0.146e3 / 0.3645e4 * t37 * t5288 * t246 + 0.73e2 / 0.19440e5 * t37 * t41 * t4036 * t213 - 0.73e2 / 0.4860e4 * t37 * t5292 * t246 + 0.803e3 / 0.21870e5 * t37 * t788 * t679 * t213 - 0.803e3 / 0.21870e5 * t37 * t3136 * t679 - 0.73e2 / 0.9720e4 * t37 * t2149 * t745 + 0.73e2 / 0.3645e4 * t37 * t1527 * t1618 - 0.292e3 / 0.243e3 * t4531 + 0.73e2 / 0.81e2 * t4535 - 0.146e3 / 0.81e2 * t4538 + 0.292e3 / 0.243e3 * t4541 - 0.73e2 / 0.81e2 * t4544 - 0.949e3 / 0.32805e5 * t4491;
7473   t13554 = t13510 + t13553;
7474   t13567 = 0.37732934814814814815e0 * t1739 * t692 * t3232 + 0.11739135275720164609e0 * t24 * t4363 * t1263 - 0.35217405827160493826e-1 * t5673 * t3826 + 0.75465869629629629630e0 * t13456 * t1740 + 0.75465869629629629630e0 * t1739 * t692 * t3228 + 0.75465869629629629630e0 * t5665 * t4367 - 0.12577644938271604938e1 * t11130 * t2188 - 0.12577644938271604938e1 * t4364 * t5670 + 0.84521773985185185182e-1 * t5673 * t3813 + t501 * t13554 / 0.10e2 + t3056 * t2163 / 0.10e2 + t1191 * t5323 / 0.5e1 - 0.12e2 * t256 * t13003 * t679 + 0.171e3 / 0.1000e4 * t2426 * t2163 * t1106;
7475   t13576 = t2198 * t1141;
7476   t13579 = t5659 * t473;
7477   t13582 = t5646 * t473;
7478   t13599 = 0.171e3 / 0.1000e4 * t10208 * t4313 - 0.12e2 * t5328 * t1161 - 0.12e2 * t1628 * t3977 + 0.171e3 / 0.1000e4 * t2426 * t13576 + 0.171e3 / 0.500e3 * t2426 * t13579 + 0.171e3 / 0.500e3 * t2426 * t13582 + 0.171e3 / 0.500e3 * t8519 * t5545 + t11047 * t649 / 0.10e2 + t4294 * t1550 / 0.5e1 - 0.30186347851851851852e0 * t5665 * t4170 - 0.12e2 * t10229 * t2082 - 0.24e2 * t3197 * t5252 - 0.24e2 * t13113 * t1621;
7479   t13628 = 0.54e2 * t10216 * t2094 + 0.108e3 * t10222 * t2094 - 0.648e3 * t11298 * t4110 + 0.108e3 * t13117 * t1635 - 0.24e2 * t13120 * t1621 + 0.108e3 * t13123 * t1635 + 0.108e3 * t13146 * t1635 + 0.108e3 * t3177 * t5356 + 0.108e3 * t3177 * t5359 - 0.24e2 * t4496 * t4097 - 0.12e2 * t4496 * t4099 + 0.54e2 * t4499 * t4106 + 0.108e3 * t4499 * t4127 + 0.324e3 * t4499 * t4162;
7480   t13656 = -0.12e2 * t10213 * t2082 - 0.24e2 * t10219 * t2082 - 0.24e2 * t13128 * t1621 + 0.108e3 * t13131 * t1635 - 0.648e3 * t13168 * t4110 - 0.24e2 * t3174 * t5252 - 0.24e2 * t3174 * t5254 - 0.24e2 * t3174 * t5256 - 0.24e2 * t4513 * t4097 - 0.12e2 * t4513 * t4099 + 0.54e2 * t4516 * t4106 + 0.108e3 * t4516 * t4127 + 0.324e3 * t4516 * t4162;
7481   t13657 = t1628 * t498;
7482   t13666 = t10408 * t510;
7483   t13669 = t4126 * t1210;
7484   t13672 = t1634 * t3110;
7485   t13687 = t18 * t2079;
7486   t13688 = t13687 * t739;
7487   t13691 = 0.54e2 * t10232 * t2094 - 0.24e2 * t13657 * t1213 - 0.24e2 * t13163 * t1621 - 0.12e2 * t1568 * t13363 - 0.24e2 * t1568 * t13367 - 0.12e2 * t1568 * t13369 + 0.54e2 * t1562 * t13666 + 0.108e3 * t1562 * t13669 + 0.54e2 * t1562 * t13672 + 0.324e3 * t1562 * t13688 - 0.24e2 * t3174 * t5258 + 0.108e3 * t3180 * t5356 + 0.108e3 * t3180 * t5359 - 0.24e2 * t3197 * t5258;
7488   t13699 = t763 * t5249;
7489   t13700 = t13699 * t246;
7490   t13703 = t5372 * t745;
7491   t13706 = t2373 * t2079;
7492   t13707 = t13706 * t739;
7493   t13713 = t4158 * t231;
7494   t13722 = t10531 * t231;
7495   t13725 = t4001 * t498;
7496   t13730 = 0.108e3 * t3177 * t5373 + 0.108e3 * t3180 * t5373 + 0.108e3 * t1562 * t13700 + 0.54e2 * t1562 * t13703 - 0.648e3 * t3190 * t13707 - 0.62888224691358024691e-1 * t3235 * t104 * t114 - 0.24e2 * t13713 * t1213 - 0.24e2 * t5638 * t3200 - 0.12e2 * t5638 * t3203 + 0.324e3 * t5641 * t3171 + 0.108e3 * t13722 * t1228 + 0.108e3 * t13725 * t1228 + 0.108e3 * t5641 * t3184;
7497   t13733 = t10657 * t231;
7498   t13758 = -0.6e1 * t1220 * t4272 - 0.12e2 * t1220 * t4275 - 0.12e2 * t1220 * t4310 - 0.12e2 * t1568 * t13353 - 0.24e2 * t1568 * t13355 - 0.24e2 * t1568 * t13357 - 0.12e2 * t1568 * t13359 - 0.24e2 * t1568 * t13361 - 0.648e3 * t13733 * t3192 - 0.12e2 * t3167 * t1728 + 0.54e2 * t5641 * t3187 - 0.24e2 * t3197 * t5254 - 0.24e2 * t3197 * t5256;
7499   t13786 = -0.12e2 * t4158 * t1565 - 0.12e2 * t4158 * t1571 - 0.12e2 * t4158 * t1576 - 0.12e2 * t1628 * t3075 - 0.6e1 * t1628 * t3145 - 0.6e1 * t1628 * t3160 - 0.6e1 * t1628 * t3973 - 0.12e2 * t1628 * t3985 - 0.12e2 * t3167 * t1733 + 0.54e2 * t4001 * t3164 - 0.12e2 * t755 * t5587 - 0.12e2 * t755 * t5590 - 0.6e1 * t8714 * t720;
7500   t13797 = t691 * t36;
7501   t13798 = t256 * t13797;
7502   t13799 = t351 * t16;
7503   t13801 = t510 * t283 * t246;
7504   t13805 = t762 * t13797;
7505   t13806 = t351 * t763;
7506   t13818 = t352 * t513 * t804;
7507   t13821 = t692 * t3203;
7508   t13824 = t692 * t3171;
7509   t13827 = t692 * t3187;
7510   t13830 = t692 * t3192;
7511   t13833 = -0.6e1 * t10650 * t656 - 0.12e2 * t256 * t3074 * t1618 - 0.6e1 * t256 * t1575 * t4036 - 0.6e1 * t2355 * t2182 - 0.60372695703703703704e0 * t13798 * t13799 * t13801 + 0.27167713066666666667e1 * t13805 * t13806 * t13801 + 0.42260886992592592592e0 * t13798 * t4471 * t4169 - 0.25155289876543209876e1 * t4364 * t5467 + 0.11319880444444444445e2 * t11110 * t5471 - 0.15093173925925925926e0 * t1739 * t13818 + 0.75465869629629629630e0 * t1739 * t13821 - 0.20375784800000000001e2 * t4376 * t13824 - 0.33959641333333333334e1 * t4376 * t13827 + 0.40751569600000000001e2 * t11126 * t13830;
7512   t13837 = t352 * t5458 * t745;
7513   t13842 = t352 * t526 * t763 * t739;
7514   t13852 = t352 * t1215 * t283;
7515   t13855 = t692 * t3200;
7516   t13858 = t692 * t3184;
7517   t13867 = t352 * t1255 * t17 * t246;
7518   t13875 = -0.15093173925925925926e0 * t1739 * t13837 + 0.13583856533333333333e1 * t4376 * t13842 - 0.30186347851851851852e0 * t4370 * t5464 + 0.15093173925925925926e1 * t4370 * t5467 - 0.67919282666666666668e1 * t11120 * t5471 - 0.30186347851851851852e0 * t1739 * t13852 + 0.15093173925925925926e1 * t1739 * t13855 - 0.67919282666666666668e1 * t4376 * t13858 + 0.50310579753086419753e0 * t4364 * t5460 - 0.30186347851851851852e0 * t4370 * t5460 - 0.30186347851851851852e0 * t1739 * t13867 - 0.9e1 / 0.100e3 * t8524 * t2198 - 0.6e1 * t256 * t10285 * t679;
7519   t13883 = t352 * t526 * t16 * t739;
7520   t13887 = t813 * t513 * t782;
7521   t13900 = t2086 * t761;
7522   t13908 = t5262 * t255;
7523   t13913 = -0.70434811654320987652e-1 * t252 * t691 * t1263 - 0.70434811654320987652e-1 * t5673 * t3823 - 0.30186347851851851852e0 * t1739 * t13883 + 0.21130443496296296296e0 * t1739 * t13887 + 0.50310579753086419754e0 * t4364 * t5464 - 0.12e2 * t755 * t5595 - 0.12e2 * t755 * t5598 - 0.6e1 * t2355 * t2177 - 0.6e1 * t5328 * t1164 + 0.54e2 * t13900 * t1153 - 0.6e1 * t1220 * t4278 - 0.6e1 * t256 * t480 * t13350 - 0.12e2 * t13908 * t481 - 0.12e2 * t5328 * t1157;
7524   t13915 = t2198 * t1106;
7525   t13966 = -0.108e3 * t10531 * t1228 + 0.24e2 * t4158 * t1213 + 0.24e2 * t1220 * t4097 + 0.12e2 * t1220 * t4099 + 0.12e2 * t256 * t13353 + 0.24e2 * t256 * t13355 - 0.54e2 * t762 * t13666 - 0.108e3 * t762 * t13669 - 0.54e2 * t762 * t13672 + 0.12e2 * t2355 * t2082 - 0.54e2 * t7408 * t2094 - 0.108e3 * t2338 * t5356 - 0.108e3 * t2338 * t5359 - 0.324e3 * t3152 * t4162 + 0.24e2 * t755 * t5252 + 0.24e2 * t755 * t5254 + 0.24e2 * t755 * t5256;
7526   t14001 = 0.648e3 * t10657 * t3192 + 0.24e2 * t256 * t13357 + 0.12e2 * t256 * t13359 + 0.24e2 * t256 * t13361 + 0.12e2 * t256 * t13363 - 0.108e3 * t762 * t13700 + 0.24e2 * t3167 * t1621 + 0.24e2 * t1628 * t3200 + 0.12e2 * t1628 * t3203 - 0.108e3 * t8719 * t1635 - 0.108e3 * t2338 * t5373 - 0.54e2 * t3152 * t4106 - 0.108e3 * t3152 * t4127 - 0.108e3 * t4001 * t3184 - 0.54e2 * t4001 * t3187 + 0.648e3 * t8722 * t4110 + 0.24e2 * t755 * t5258;
7527   t14007 = t2372 * t7561;
7528   t14008 = t2075 * t739;
7529   t14011 = t762 * t17;
7530   t14018 = t7397 * t7398;
7531   t14043 = -0.648e3 * t2338 * t18 * t5252 + 0.1296e4 * t7392 * t2373 * t5252 - 0.54e2 * t13900 * t1036 + 0.6e1 * t10650 * t513 + 0.12e2 * t4158 * t1215 + 0.648e3 * t5350 * t13353 - 0.324e3 * t5353 * t13353 - 0.648e3 * t5353 * t13355 + 0.1296e4 * t5350 * t13357 - 0.648e3 * t5353 * t13357 - 0.54e2 * t762 * t13703 + 0.648e3 * t2372 * t13707 + 0.7776e4 * t14007 * t14008 - 0.1080e4 * t14011 * t14008 - 0.9720e4 * t14018 * t14008 + 0.6e1 * t1628 * t3232 + 0.6e1 * t5328 * t750;
7532   t14076 = 0.12e2 * t1220 * t4095 + 0.6e1 * t1220 * t4101 + 0.1296e4 * t5350 * t13355 + 0.12e2 * t256 * t13365 + 0.24e2 * t256 * t13367 + 0.12e2 * t256 * t13369 + 0.6e1 * t256 * t13371 - 0.324e3 * t762 * t13688 + 0.12e2 * t13908 * t249 + 0.12e2 * t3167 * t1623 + 0.12e2 * t1628 * t3228 + 0.6e1 * t2355 * t2084 - 0.324e3 * t4001 * t3171 + 0.12e2 * t755 * t5260 + 0.12e2 * t5328 * t748 + 0.6e1 * t8714 * t682 - t13374;
7533   t14078 = t13966 + t14001 + t14043 + t14076;
7534   t14123 = t2425 * t2163;
7535   t14127 = t444 * t5519 / 0.5e1 + t632 * t4051 / 0.10e2 + t1505 * t1715 / 0.5e1 + t1507 * t1715 / 0.5e1 + t1676 * t1551 / 0.5e1 + t4176 * t650 / 0.10e2 + t4173 * t650 / 0.5e1 - 0.12e2 * t755 * t5433 - 0.9e1 / 0.100e3 * t699 * t3865 - 0.9e1 / 0.50e2 * t699 * t3862 + t2129 * t1142 / 0.10e2 + 0.171e3 / 0.500e3 * t408 * t2425 * t5545 + 0.171e3 / 0.500e3 * t5544 * t13579 + 0.171e3 / 0.500e3 * t5544 * t13582 + 0.171e3 / 0.500e3 * t444 * t2425 * t5545 + 0.171e3 / 0.1000e4 * t195 * t14123 * t1106;
7536   t14144 = t1105 * t5323;
7537   t14168 = 0.171e3 / 0.1000e4 * t632 * t4195 + 0.50310579753086419752e-1 * t4222 * t5234 + 0.50310579753086419752e-1 * t4219 * t5234 - 0.9e1 / 0.50e2 * t195 * t4209 * t1550 - 0.9e1 / 0.50e2 * t444 * t5496 - 0.9e1 / 0.50e2 * t408 * t5496 - 0.9e1 / 0.100e3 * t195 * t5396 * t1141 - 0.9e1 / 0.50e2 * t195 * t14144 * t473 - 0.9e1 / 0.50e2 * t444 * t5397 - 0.9e1 / 0.50e2 * t408 * t5397 - 0.9e1 / 0.100e3 * t1044 * t2135 - 0.9e1 / 0.50e2 * t632 * t4210 - 0.9e1 / 0.100e3 * t632 * t4265 - 0.12e2 * t4158 * t1242 + t14078 * t194 * t217 - 0.12e2 * t256 * t3898 * t1618 - 0.35217405827160493826e-1 * t1661 * t37 * t13225;
7538   t14170 = t755 * t5531;
7539   t14173 = t1326 * t104;
7540   t14174 = t256 * t14173;
7541   t14188 = t352 * t763;
7542   t14192 = t352 * t16;
7543   t14203 = t256 * t1891;
7544   t14214 = t4158 * t150;
7545   t14217 = 0.75465869629629629630e0 * t14170 * t1653 + 0.75465869629629629630e0 * t14174 * t1653 - 0.35217405827160493826e-1 * t5532 * t4225 - 0.6e1 * t10650 * t518 - 0.12e2 * t4158 * t1231 + 0.25155289876543209876e-1 * t10552 * t2115 - 0.12e2 * t256 * t768 * t5249 + 0.27167713066666666667e1 * t5470 * t14188 * t13801 - 0.60372695703703703704e0 * t4168 * t14192 * t13801 + 0.42260886992592592592e0 * t4168 * t813 * t526 * t4169 - 0.12e2 * t256 * t3938 * t2079 - 0.12577644938271604938e1 * t14203 * t1653 + 0.75465869629629629630e0 * t5561 * t4067 - 0.12577644938271604938e1 * t4062 * t5565 - 0.24e2 * t11486 * t1621 + 0.108e3 * t11489 * t1635 - 0.24e2 * t14214 * t1213;
7546   t14218 = t10531 * t150;
7547   t14225 = t113 * t739;
7548   t14232 = t1220 * t576;
7549   t14241 = t3152 * t1649;
7550   t14248 = t1220 * t4083;
7551   t14261 = 0.108e3 * t14218 * t1228 - 0.6e1 * t1628 * t3872 + 0.16770193251028806585e1 * t10955 * t2109 + 0.75465869629629629630e0 * t1650 * t37 * t14225 * t510 - 0.12577644938271604938e1 * t10972 * t2109 - 0.12577644938271604938e1 * t14232 * t1653 + 0.75465869629629629630e0 * t5568 * t4067 - 0.12577644938271604938e1 * t10969 * t2109 + 0.37732934814814814815e0 * t10986 * t2109 - 0.33959641333333333334e1 * t14241 * t4077 + 0.37732934814814814815e0 * t11010 * t2109 + 0.75465869629629629630e0 * t10983 * t2109 + 0.75465869629629629630e0 * t14248 * t1653 + 0.37732934814814814815e0 * t5568 * t4071 - 0.9e1 / 0.100e3 * t195 * t1686 * t3140 + 0.108e3 * t5131 * t4127 - 0.12577644938271604938e0 * t1218 * t338 * t693;
7552   t14275 = t37 * t3793;
7553   t14299 = -0.62888224691358024691e-1 * t516 * t929 * t693 + 0.20962741563786008230e0 * t5384 * t662 + 0.20962741563786008230e0 * t5387 * t662 + 0.11180128834019204389e0 * t10555 * t2115 - 0.83850966255144032920e-1 * t4216 * t5234 + 0.25155289876543209876e-1 * t1661 * t14275 - 0.83850966255144032920e-1 * t10558 * t2115 - 0.83850966255144032920e-1 * t10802 * t2115 - 0.12e2 * t1628 * t3899 - 0.9e1 / 0.100e3 * t1100 * t2135 - 0.12e2 * t1220 * t4198 - 0.9e1 / 0.50e2 * t408 * t5443 - 0.9e1 / 0.50e2 * t1046 * t2135 - 0.9e1 / 0.100e3 * t195 * t10798 * t649 - 0.9e1 / 0.50e2 * t444 * t5443 - 0.9e1 / 0.50e2 * t1676 * t1516;
7554   t14305 = t1628 * t403;
7555   t14308 = t4001 * t403;
7556   t14335 = t3167 * t1649;
7557   t14340 = -0.9e1 / 0.50e2 * t1678 * t1516 - 0.6e1 * t256 * t2989 * t2079 - 0.24e2 * t14305 * t1213 + 0.108e3 * t14308 * t1228 - 0.24e2 * t5490 * t3200 + 0.108e3 * t5493 * t3184 + 0.324e3 * t1226 * t13688 + 0.171e3 / 0.1000e4 * t5544 * t13576 + 0.324e3 * t4574 * t4162 + 0.54e2 * t1226 * t13703 - 0.648e3 * t3889 * t13707 - 0.12e2 * t1234 * t13369 - 0.12e2 * t4571 * t4099 + 0.324e3 * t5131 * t4162 + 0.37732934814814814815e0 * t1650 * t37 * t1651 * t3110 + 0.75465869629629629630e0 * t14335 * t1653 + 0.37732934814814814815e0 * t5561 * t4071;
7558   t14342 = t762 * t5531;
7559   t14363 = t4161 * t3222;
7560   t14366 = t10699 * t3228;
7561   t14381 = -0.33959641333333333334e1 * t14342 * t4077 + 0.75465869629629629630e0 * t4080 * t5565 + 0.75465869629629629630e0 * t4084 * t5565 + t4263 * t650 / 0.10e2 - 0.12e2 * t3167 * t1638 + 0.54e2 * t4001 * t3910 - 0.6e1 * t8714 * t687 - 0.6e1 * t1628 * t3342 + 0.648e3 * t1226 * t13392 + 0.648e3 * t1226 * t13398 + 0.324e3 * t1226 * t14363 - 0.7776e4 * t3889 * t14366 - 0.1296e4 * t8621 * t5227 - 0.62888224691358024691e-1 * t753 * t572 * t693 - 0.12577644938271604938e0 * t252 * t1326 * t693 + 0.20962741563786008230e0 * t5390 * t662 + 0.20962741563786008230e0 * t5393 * t662;
7562   t14390 = t4109 * t3222;
7563   t14393 = t10422 * t3228;
7564   t14420 = -0.27950322085048010973e0 * t2105 * t1585 - 0.12e2 * t755 * t5412 - 0.1296e4 * t3889 * t13395 - 0.1296e4 * t3889 * t13401 - 0.648e3 * t3889 * t14390 + 0.9720e4 * t10079 * t14393 - 0.6e1 * t256 * t1241 * t4036 - 0.6e1 * t2355 * t2102 - 0.6e1 * t256 * t257 * t13350 - 0.24e2 * t1234 * t13355 - 0.24e2 * t1234 * t13357 - 0.24e2 * t3878 * t5252 - 0.24e2 * t3878 * t5254 - 0.24e2 * t3878 * t5256 - 0.12e2 * t1234 * t13353 + 0.54e2 * t8956 * t2094 - 0.12e2 * t1234 * t13359;
7565   t14456 = -0.24e2 * t1234 * t13361 - 0.12e2 * t1234 * t13363 - 0.12e2 * t256 * t11450 * t679 - 0.12e2 * t1628 * t3951 - 0.12e2 * t1220 * t4189 + 0.2e1 * t5263 * t403 + t1100 * t2164 / 0.10e2 + t1046 * t2164 / 0.5e1 + t408 * t5519 / 0.5e1 + t195 * t450 * t13554 / 0.10e2 + t1044 * t2164 / 0.10e2 + t13374 * t150 + 0.2e1 * t1626 * t1492 + t2087 * t1032 + 0.108e3 * t12927 * t1635 - 0.24e2 * t11393 * t1621;
7566   t14477 = t516 * t576;
7567   t14480 = t1218 * t1649;
7568   t14483 = t516 * t4083;
7569   t14490 = t252 * t5531;
7570   t14493 = t24 * t14173;
7571   t14496 = t24 * t1891;
7572   t14499 = 0.108e3 * t11371 * t1635 - 0.24e2 * t4589 * t4097 + 0.11739135275720164609e0 * t4216 * t5558 - 0.70434811654320987652e-1 * t4222 * t5558 - 0.70434811654320987652e-1 * t4219 * t5558 - 0.70434811654320987652e-1 * t1661 * t37 * t13222 + 0.84521773985185185182e-1 * t1661 * t37 * t13245 - 0.9e1 / 0.100e3 * t2129 * t1107 - 0.12e2 * t13908 * t258 - 0.83850966255144032920e-1 * t14477 * t1662 + 0.50310579753086419752e-1 * t14480 * t1662 + 0.50310579753086419752e-1 * t14483 * t1662 + 0.25155289876543209876e-1 * t10817 * t2115 + 0.50310579753086419752e-1 * t10810 * t2115 + 0.50310579753086419752e-1 * t14490 * t1662 + 0.50310579753086419752e-1 * t14493 * t1662 - 0.83850966255144032920e-1 * t14496 * t1662;
7573   t14535 = -0.35217405827160493826e-1 * t5539 * t4225 + 0.25155289876543209876e-1 * t5539 * t4213 - 0.6e1 * t1220 * t4201 + t3340 * t714 / 0.10e2 + t3302 * t714 / 0.5e1 + t3305 * t714 / 0.10e2 + t5404 * t474 / 0.5e1 + t5406 * t474 / 0.5e1 + t699 * t3961 / 0.10e2 + t1678 * t1551 / 0.5e1 + 0.1080e4 * t1226 * t13404 - 0.1296e4 * t8624 * t5227 + 0.648e3 * t3895 * t5224 + 0.648e3 * t3875 * t5224 + 0.108e3 * t8953 * t2094 + 0.108e3 * t3895 * t5356 + 0.108e3 * t3895 * t5359;
7574   t14552 = t10657 * t150;
7575   t14563 = t195 * t7544;
7576   t14572 = 0.108e3 * t3875 * t5356 + 0.108e3 * t3875 * t5359 + 0.54e2 * t5131 * t4106 - 0.648e3 * t11554 * t4110 + 0.54e2 * t10085 * t2094 - 0.12e2 * t5490 * t3203 + 0.324e3 * t5493 * t3171 + 0.54e2 * t5493 * t3187 - 0.648e3 * t14552 * t3192 + 0.54e2 * t1226 * t13666 + 0.108e3 * t1226 * t13669 + 0.54e2 * t1226 * t13672 - 0.12e2 * t4589 * t4099 - 0.4959e4 / 0.10000e5 * t14563 * t13915 - 0.12e2 * t755 * t5427 - 0.24e2 * t1234 * t13367 + 0.108e3 * t1226 * t13700;
7577   t14610 = -0.24e2 * t11422 * t1621 - 0.6e1 * t2355 * t2097 - 0.12e2 * t1628 * t3939 + 0.54e2 * t4574 * t4106 + 0.171e3 / 0.1000e4 * t699 * t3947 + t2128 * t1099 * t217 + t4104 * t627 - 0.15093173925925925926e0 * t4168 * t13837 + 0.13583856533333333333e1 * t5470 * t13842 - 0.30186347851851851852e0 * t4168 * t13867 - 0.62888224691358024691e-1 * t24 * t3685 * t693 - 0.62888224691358024691e-1 * t3235 * t102 * t693 - 0.27950322085048010973e0 * t2112 * t1585 + 0.108e3 * t4574 * t4127 - 0.24e2 * t3878 * t5258 + 0.108e3 * t3875 * t5373 - 0.24e2 * t11378 * t1621;
7578   t14646 = 0.108e3 * t11381 * t1635 - 0.24e2 * t3892 * t5258 + 0.108e3 * t3895 * t5373 - 0.24e2 * t4571 * t4097 - 0.12e2 * t1628 * t3292 - 0.6e1 * t1628 * t3904 - 0.12e2 * t4158 * t1237 - 0.6e1 * t1220 * t4206 - 0.12e2 * t5328 * t773 + 0.2e1 * t5381 * t443 * t217 - 0.12e2 * t10088 * t2082 - 0.12e2 * t3167 * t1643 - 0.9e1 / 0.50e2 * t1507 * t1687 - 0.9e1 / 0.50e2 * t1505 * t1687 - 0.30186347851851851852e0 * t10856 * t5460 - 0.30186347851851851852e0 * t4168 * t13883 + 0.21130443496296296296e0 * t4168 * t13887;
7579   t14648 = t5531 * t32;
7580   t14649 = t256 * t14648;
7581   t14662 = t762 * t10859;
7582   t14665 = t1220 * t4167;
7583   t14672 = t2338 * t4167;
7584   t14683 = t2372 * t4167;
7585   t14688 = -0.30186347851851851852e0 * t14649 * t4170 - 0.30186347851851851852e0 * t4168 * t13852 + 0.15093173925925925926e1 * t4168 * t13855 - 0.67919282666666666668e1 * t5470 * t13858 - 0.30186347851851851852e0 * t10860 * t5464 + 0.15093173925925925926e1 * t10860 * t5467 - 0.67919282666666666668e1 * t14662 * t5471 - 0.30186347851851851852e0 * t14665 * t4170 - 0.30186347851851851852e0 * t10856 * t5464 + 0.15093173925925925926e1 * t10856 * t5467 - 0.67919282666666666668e1 * t14672 * t5471 - 0.30186347851851851852e0 * t10860 * t5460 - 0.6e1 * t256 * t8756 * t679 - 0.12e2 * t755 * t5436 + t685 * t3859 + 0.40751569600000000001e2 * t14683 * t13830 + 0.50310579753086419754e0 * t10853 * t5464;
7586   t14691 = t762 * t1398;
7587   t14724 = -0.25155289876543209876e1 * t10853 * t5467 + 0.11319880444444444445e2 * t14691 * t5471 - 0.15093173925925925926e0 * t4168 * t13818 + 0.75465869629629629630e0 * t4168 * t13821 - 0.20375784800000000001e2 * t5470 * t13824 - 0.33959641333333333334e1 * t5470 * t13827 + 0.50310579753086419753e0 * t10853 * t5460 - 0.12e2 * t5328 * t769 - 0.6e1 * t5328 * t776 + 0.54e2 * t13900 * t765 - 0.648e3 * t11563 * t4110 - 0.12e2 * t10082 * t2082 - 0.24e2 * t10091 * t2082 - 0.24e2 * t3892 * t5252 - 0.24e2 * t3892 * t5254 - 0.24e2 * t3892 * t5256 + 0.25155289876543209876e-1 * t5532 * t4213;
7588   t14730 = -0.4959e4 / 0.10000e5 * t8516 * t13915 - 0.6e1 * t256 * t2358 * t2079 - 0.12e2 * t256 * t1156 * t5249 - 0.9e1 / 0.100e3 * t1194 * t2163 * t1141 - 0.9e1 / 0.50e2 * t1194 * t5323 * t473 - 0.9e1 / 0.50e2 * t2420 * t5662 + t14078 * t217 - 0.9e1 / 0.100e3 * t1194 * t713 * t3140 - 0.9e1 / 0.50e2 * t2420 * t5646 - 0.9e1 / 0.50e2 * t10205 * t1754 - 0.9e1 / 0.50e2 * t3216 * t4304 - 0.9e1 / 0.100e3 * t3216 * t4307 - p->cam_beta * (t14127 + t14168 + t14217 + t14261 + t14299 + t14340 + t14381 + t14420 + t14456 + t14499 + t14535 + t14572 + t14610 + t14646 + t14688 + t14724);
7589   t14759 = -0.35217405827160493826e-1 * t2185 * t4225 - 0.83850966255144032920e-1 * t4354 * t2115 - 0.83850966255144032920e-1 * t1743 * t5234 + 0.25155289876543209876e-1 * t723 * t14275 + 0.324e3 * t1562 * t14363 - 0.7776e4 * t3190 * t14366 - 0.648e3 * t3190 * t14390 + 0.9720e4 * t10329 * t14393 - 0.83850966255144032920e-1 * t5655 * t1662 + 0.25155289876543209876e-1 * t2185 * t4213 + 0.25155289876543209876e-1 * t4349 * t2115 + 0.50310579753086419752e-1 * t1736 * t5234 + 0.11180128834019204389e0 * t4357 * t2115 + 0.50310579753086419752e-1 * t5635 * t1662;
7590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7591     v4rho2sigmatau[0] = -t3068 * t2204 / 0.6e1 - t1203 * t5701 - 0.3e1 / 0.8e1 * t240 * t241 * (t13380 + t13415 + t13447 + t13567 + t13599 + t13628 + t13656 + t13691 + t13730 + t13758 + t13786 + t13833 + t13875 + t13913 + t14730 + t14759);
7592 
7593   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7594     v4rho2lapl2[0] = 0.0e0;
7595 
7596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7597     v4rho2lapltau[0] = 0.0e0;
7598 
7599   t14789 = my_piecewise3(t15, t742 * t2210 / 0.2e1, 0);
7600   t14810 = 0.108e3 * t2338 * t5955 - 0.12e2 * t1628 * t4272 - 0.24e2 * t1628 * t4275 - 0.12e2 * t1628 * t4278 + 0.54e2 * t7408 * t2290 - 0.24e2 * t4158 * t1728 - 0.24e2 * t4158 * t1733 - 0.12e2 * t256 * t1156 * t5743 - 0.6e1 * t256 * t480 * t14789 - 0.12e2 * t10650 * t720 - 0.60372695703703703702e0 * t5974 * t4170 - 0.55900644170096021947e0 * t685 * t273 * t114 - 0.6e1 * t256 * t2358 * t2213 - 0.12e2 * t755 * t6015 - 0.12e2 * t755 * t6018 - 0.24e2 * t256 * t13086 * t2207;
7601   t14825 = t1754 * t1714;
7602   t14840 = t1618 * t1618;
7603   t14855 = -0.12e2 * t256 * t13090 * t2207 - 0.6e1 * t2355 * t2299 - 0.24e2 * t755 * t6010 - 0.12e2 * t256 * t8452 * t2207 - 0.12e2 * t2355 * t2296 - 0.24e2 * t755 * t6007 + 0.171e3 / 0.250e3 * t2426 * t14825 - 0.9e1 / 0.100e3 * t1194 * t2278 * t1141 - 0.9e1 / 0.50e2 * t1194 * t5862 * t473 - 0.9e1 / 0.50e2 * t2420 * t5966 - 0.9e1 / 0.50e2 * t4360 * t4307 - 0.24e2 * t1628 * t4310 + 0.108e3 * t762 * t1152 * t14840 - 0.12e2 * t256 * t3206 * t2213 - 0.24e2 * t256 * t1160 * t14840 + 0.54e2 * t762 * t8390 * t2207 - 0.6e1 * t5754 * t1164;
7604   t14857 = t2220 * t761;
7605   t14884 = t1628 * t576;
7606   t14895 = t4001 * t1649;
7607   t14898 = t4158 * t1649;
7608   t14901 = t1628 * t4083;
7609   t14909 = t679 * t283 * t246;
7610   t14923 = 0.75465869629629629630e0 * t10986 * t2232 + 0.75465869629629629630e0 * t1650 * t37 * t1651 * t4036 + 0.75465869629629629630e0 * t11010 * t2232 + 0.15093173925925925926e1 * t10983 * t2232 - 0.25155289876543209876e1 * t10972 * t2232 - 0.25155289876543209876e1 * t14884 * t1653 + 0.15093173925925925926e1 * t5931 * t4067 - 0.25155289876543209876e1 * t4062 * t5924 - 0.25155289876543209876e1 * t10969 * t2232 + 0.75465869629629629628e0 * t5931 * t4071 - 0.67919282666666666665e1 * t14895 * t4077 + 0.15093173925925925926e1 * t14898 * t1653 + 0.15093173925925925926e1 * t14901 * t1653 + 0.15093173925925925926e1 * t4084 * t5924 + 0.15093173925925925926e1 * t4080 * t5924 - 0.12074539140740740741e1 * t4168 * t14192 * t14909 + 0.54335426133333333334e1 * t5470 * t14188 * t14909 - 0.12e2 * t2355 * t2235 - 0.12e2 * t256 * t3938 * t2213 - 0.12e2 * t5754 * t773;
7611   t14951 = t5752 * t255;
7612   t14966 = 0.2e1 / 0.5e1 * t1678 * t1715 - 0.9e1 / 0.50e2 * t1046 * t2256 + t4176 * t714 / 0.5e1 - 0.24e2 * t256 * t772 * t14840 - 0.24e2 * t1628 * t4189 - 0.12e2 * t1628 * t4201 + 0.54e2 * t7408 * t2228 - 0.9e1 / 0.100e3 * t1044 * t2256 + t699 * t4051 / 0.5e1 - 0.9e1 / 0.100e3 * t1100 * t2256 + 0.171e3 / 0.500e3 * t444 * t5822 - 0.9e1 / 0.25e2 * t444 * t5884 - 0.12e2 * t5754 * t769 - 0.12e2 * t14951 * t258 - 0.24e2 * t755 * t5795 - 0.24e2 * t1628 * t4198 - 0.48e2 * t14305 * t1621 + 0.216e3 * t14218 * t1635 + 0.216e3 * t14308 * t1635 - 0.48e2 * t14214 * t1621;
7613   t14968 = t7561 * t2207;
7614   t14969 = t14968 * t739;
7615   t14988 = t5716 * t745;
7616   t14999 = t1614 * t1618;
7617   t15002 = t680 * t4036;
7618   t15005 = t1634 * t4036;
7619   t15008 = t5723 * t745;
7620   t15011 = t7398 * t2207;
7621   t15012 = t15011 * t739;
7622   t15017 = 0.9720e4 * t10079 * t15012 + 0.324e3 * t1226 * t14988 + 0.108e3 * t1226 * t15005 - 0.48e2 * t1234 * t14999 - 0.24e2 * t1234 * t15002 - 0.1296e4 * t14552 * t4110 - 0.7776e4 * t3889 * t14969 - 0.648e3 * t3889 * t15008 + 0.648e3 * t3875 * t5717 + 0.216e3 * t3875 * t5720 - 0.48e2 * t3892 * t5727 + 0.648e3 * t3895 * t5717 + 0.216e3 * t3895 * t5720 - 0.48e2 * t5490 * t4097 - 0.24e2 * t5490 * t4099 + 0.108e3 * t5493 * t4106 + 0.216e3 * t5493 * t4127 + 0.648e3 * t5493 * t4162 - 0.1296e4 * t8621 * t5724 - 0.1296e4 * t8624 * t5724;
7623   t15056 = t1714 * t1714;
7624   t15068 = -0.48e2 * t3878 * t5727 - 0.9e1 / 0.50e2 * t444 * t5888 + 0.108e3 * t762 * t764 * t14840 - 0.24e2 * t256 * t11634 * t2207 - 0.6e1 * t256 * t2989 * t2213 - 0.24e2 * t755 * t5790 - 0.12e2 * t755 * t5874 - 0.12e2 * t755 * t5879 - 0.12e2 * t256 * t11601 * t2207 - 0.6e1 * t2355 * t2238 - 0.9e1 / 0.25e2 * t1678 * t1687 - 0.9e1 / 0.25e2 * t1676 * t1687 - 0.9e1 / 0.25e2 * t699 * t4210 - 0.12577644938271604938e0 * t4104 * t102 * t693 - 0.25155289876543209876e0 * t1626 * t338 * t693 - 0.9e1 / 0.100e3 * t2251 * t1107 - 0.9e1 / 0.50e2 * t195 * t1105 * t15056 - 0.12e2 * t256 * t768 * t5743 + 0.108e3 * t2338 * t5802 - 0.12e2 * t256 * t7447 * t2207;
7625   t15075 = t4161 * t4091;
7626   t15078 = t4109 * t4091;
7627   t15081 = t763 * t5743;
7628   t15082 = t15081 * t246;
7629   t15085 = t5733 * t745;
7630   t15088 = t2373 * t2213;
7631   t15089 = t15088 * t739;
7632   t15096 = t5744 * t246;
7633   t15103 = t2214 * t745;
7634   t15106 = t18 * t2213;
7635   t15107 = t15106 * t739;
7636   t15122 = -0.9e1 / 0.25e2 * t408 * t5884 + 0.171e3 / 0.500e3 * t408 * t5822 + 0.1296e4 * t1226 * t15075 - 0.2592e4 * t3889 * t15078 + 0.108e3 * t1226 * t15082 + 0.54e2 * t1226 * t15085 - 0.648e3 * t3889 * t15089 - 0.24e2 * t3892 * t5730 - 0.24e2 * t3878 * t5730 - 0.24e2 * t1234 * t15096 + 0.108e3 * t3895 * t5734 + 0.108e3 * t3875 * t5734 - 0.12e2 * t1234 * t15103 + 0.324e3 * t1226 * t15107 + t4263 * t714 / 0.5e1 + 0.2e1 / 0.5e1 * t4173 * t714 - 0.9e1 / 0.50e2 * t699 * t4265 - 0.6e1 * t5754 * t776 + 0.54e2 * t14857 * t765 - 0.12e2 * t10650 * t687;
7637   t15134 = t2425 * t2278;
7638   t15138 = t7544 * t2255;
7639   t15147 = t739 * t2213;
7640   t15153 = t16 * t14840;
7641   t15162 = t17 * t14789;
7642   t15175 = -0.108e3 * t762 * t763 * t14840 - 0.54e2 * t14857 * t1036 + 0.12e2 * t10650 * t682 + 0.12e2 * t14951 * t249 + 0.12e2 * t256 * t15147 + 0.24e2 * t256 * t15153 + 0.6e1 * t256 * t15162 + 0.24e2 * t4158 * t1623 + 0.24e2 * t1628 * t4095 + 0.12e2 * t755 * t5750 + 0.12e2 * t5754 * t748 + 0.6e1 * t5754 * t750;
7643   t15184 = t745 * t2207;
7644   t15201 = 0.48e2 * t256 * t14999 + 0.24e2 * t256 * t15002 - 0.108e3 * t762 * t15082 + 0.12e2 * t256 * t15184 + 0.12e2 * t1628 * t4101 + 0.12e2 * t2355 * t2216 + 0.6e1 * t2355 * t2218 - 0.54e2 * t7408 * t2243 - 0.108e3 * t2338 * t5734 + 0.48e2 * t755 * t5727 + 0.24e2 * t755 * t5730 + 0.24e2 * t755 * t5746;
7645   t15227 = -0.216e3 * t10531 * t1635 + 0.7776e4 * t2372 * t14969 + 0.648e3 * t2372 * t15008 - 0.54e2 * t762 * t15085 + 0.648e3 * t2372 * t15089 + 0.24e2 * t256 * t15096 + 0.12e2 * t256 * t15103 - 0.324e3 * t762 * t15107 + 0.48e2 * t4158 * t1621 - 0.108e3 * t4001 * t4106 - 0.216e3 * t4001 * t4127 - 0.648e3 * t4001 * t4162;
7646   t15235 = t17 * t2207 * t739;
7647   t15255 = 0.2e1 * t16 * t14789 + 0.2e1 * t745 * t2213 + 0.4e1 * t246 * t5743 + 0.4e1 * t679 * t4036 + 0.4e1 * t14840 + 0.72e2 * t14999 + 0.36e2 * t15002 + 0.36e2 * t15096 + 0.18e2 * t15103 + 0.18e2 * t15147 + 0.36e2 * t15153 + 0.9e1 * t15162 + 0.18e2 * t15184;
7648   t15256 = t15255 * t23;
7649   t15273 = 0.1296e4 * t10657 * t4110 - 0.324e3 * t762 * t14988 + 0.2592e4 * t5350 * t14999 - 0.1296e4 * t5353 * t14999 - 0.108e3 * t762 * t15005 - 0.9720e4 * t7397 * t15012 - 0.1080e4 * t762 * t15235 + 0.48e2 * t1628 * t4097 + 0.24e2 * t1628 * t4099 - 0.648e3 * t2338 * t5717 - 0.216e3 * t2338 * t5720 + 0.1296e4 * t7392 * t5724 - t15256;
7650   t15275 = t15175 + t15201 + t15227 + t15273;
7651   t15289 = t692 * t4106;
7652   t15292 = t692 * t4110;
7653   t15302 = t813 * t682 * t782;
7654   t15305 = 0.171e3 / 0.1000e4 * t195 * t5821 * t1141 - 0.9e1 / 0.50e2 * t195 * t1686 * t4050 - 0.9e1 / 0.100e3 * t195 * t5887 * t1141 + 0.171e3 / 0.500e3 * t699 * t4195 + 0.171e3 / 0.1000e4 * t195 * t15134 * t1106 - 0.4959e4 / 0.10000e5 * t195 * t15138 * t1106 + 0.2e1 * t5787 * t443 * t217 + 0.2e1 * t5753 * t403 + t15275 * t194 * t217 + t15256 * t150 + t2250 * t1099 * t217 - 0.6e1 * t256 * t257 * t14789 - 0.24e2 * t4158 * t1643 + 0.54e2 * t762 * t7367 * t2207 - 0.67919282666666666667e1 * t5470 * t15289 + 0.81503139200000000000e2 * t14683 * t15292 + 0.10062115950617283950e1 * t10853 * t5906 - 0.50310579753086419753e1 * t10853 * t5868 + 0.22639760888888888889e2 * t14691 * t5871 + 0.42260886992592592593e0 * t4168 * t15302;
7655   t15308 = t352 * t682 * t804;
7656   t15311 = t692 * t4099;
7657   t15314 = t692 * t4162;
7658   t15323 = t1628 * t4167;
7659   t15327 = t352 * t1623 * t283;
7660   t15330 = t692 * t4097;
7661   t15333 = t692 * t4127;
7662   t15357 = -0.30186347851851851852e0 * t4168 * t15308 + 0.15093173925925925926e1 * t4168 * t15311 - 0.40751569600000000000e2 * t5470 * t15314 - 0.60372695703703703704e0 * t10860 * t5906 + 0.30186347851851851852e1 * t10860 * t5868 - 0.13583856533333333333e2 * t14662 * t5871 - 0.60372695703703703702e0 * t15323 * t4170 - 0.60372695703703703704e0 * t4168 * t15327 + 0.30186347851851851852e1 * t4168 * t15330 - 0.13583856533333333333e2 * t5470 * t15333 - 0.60372695703703703704e0 * t10856 * t5906 + 0.30186347851851851852e1 * t10856 * t5868 - 0.13583856533333333333e2 * t14672 * t5871 + t2221 * t1032 + 0.171e3 / 0.250e3 * t5544 * t14825 + 0.1080e4 * t1226 * t15235 - 0.55900644170096021947e0 * t2225 * t1585 - 0.12e2 * t1628 * t4206 - 0.24e2 * t4158 * t1638 + 0.15093173925925925926e1 * t1650 * t37 * t14225 * t679;
7663   t15387 = -0.584e3 / 0.243e3 * t5290 + 0.584e3 / 0.243e3 * t5314 + 0.146e3 / 0.81e2 * t5294 - 0.292e3 / 0.81e2 * t5297 - 0.146e3 / 0.81e2 * t5317 + 0.292e3 / 0.135e3 * t1123 * t2207 + 0.949e3 / 0.729e3 * t1850 - 0.73e2 / 0.135e3 * t691 * t36 * t4036 * t213 + 0.292e3 / 0.135e3 * t691 * t5835 * t246 + 0.146e3 / 0.135e3 * t691 * t2264 * t745 + 0.73e2 / 0.135e3 * t691 * t704 * t4036;
7664   t15415 = -0.146e3 / 0.135e3 * t1123 * t2213 * t213 - 0.292e3 / 0.135e3 * t462 * t5743 * t213 + 0.584e3 / 0.135e3 * t5846 * t246 - 0.146e3 / 0.135e3 * t209 * t14789 * t213 + 0.584e3 / 0.135e3 * t5849 * t246 + 0.292e3 / 0.135e3 * t2271 * t745 + 0.1168e4 / 0.135e3 * t1702 * t1618 + 0.584e3 / 0.135e3 * t209 * t14840 + 0.584e3 / 0.135e3 * t708 * t4036 + 0.146e3 / 0.135e3 * t1126 * t2213 + 0.292e3 / 0.135e3 * t465 * t5743 + 0.146e3 / 0.135e3 * t212 * t14789;
7665   t15416 = t15387 + t15415;
7666   t15435 = t685 * t576;
7667   t15438 = t1626 * t1649;
7668   t15441 = t685 * t4083;
7669   t15446 = t1105 * t5862;
7670   t15459 = t5936 * t474 / 0.5e1 + t2251 * t1142 / 0.10e2 - 0.16770193251028806584e0 * t15435 * t1662 + 0.10062115950617283950e0 * t15438 * t1662 + 0.10062115950617283950e0 * t15441 * t1662 + 0.50310579753086419752e-1 * t5909 * t4213 - 0.9e1 / 0.50e2 * t195 * t15446 * t473 - 0.9e1 / 0.50e2 * t408 * t5888 + 0.41925483127572016460e0 * t5899 * t662 + 0.41925483127572016460e0 * t5902 * t662 - 0.12577644938271604938e0 * t685 * t929 * t693;
7671   t15486 = 0.54e2 * t14857 * t1153 - 0.9e1 / 0.25e2 * t4360 * t4304 + 0.171e3 / 0.1000e4 * t2426 * t2255 * t1141 - 0.9e1 / 0.25e2 * t11052 * t1754 + 0.171e3 / 0.500e3 * t8519 * t5963 - 0.9e1 / 0.50e2 * t1194 * t713 * t4050 - p->cam_beta * (t14923 + t14966 + t15017 + t15068 + t15122 + t15305 + t15357 + 0.33540386502057613168e1 * t10955 * t2232 + t1100 * t2279 / 0.10e2 + t1046 * t2279 / 0.5e1 + t408 * t5863 / 0.5e1 + t195 * t450 * t15416 / 0.10e2 + t1044 * t2279 / 0.10e2 + t444 * t5863 / 0.5e1 - 0.70434811654320987653e-1 * t5909 * t4225 + 0.2e1 / 0.5e1 * t1676 * t1715 + t5939 * t474 / 0.5e1 + t15459) - 0.9e1 / 0.50e2 * t1194 * t15056 - 0.9e1 / 0.25e2 * t2420 * t5958 + 0.171e3 / 0.1000e4 * t2426 * t2278 * t1106 + 0.171e3 / 0.500e3 * t11103 * t4313 - 0.16770193251028806584e0 * t5706 * t1662 + 0.10062115950617283950e0 * t5713 * t1662 + 0.50310579753086419752e-1 * t2287 * t4213 + 0.1296e4 * t1562 * t15075 - 0.2592e4 * t3190 * t15078 - 0.70434811654320987653e-1 * t2287 * t4225;
7672   t15522 = t501 * t15416 / 0.10e2 + t3056 * t2278 / 0.10e2 - 0.12e2 * t5754 * t1157 - 0.12e2 * t14951 * t481 + t15275 * t217 - 0.12074539140740740741e1 * t13798 * t13799 * t14909 + 0.54335426133333333334e1 * t13805 * t13806 * t14909 - 0.12e2 * t5754 * t1161 - 0.67919282666666666667e1 * t4376 * t15289 + 0.81503139200000000000e2 * t11126 * t15292 - 0.60372695703703703704e0 * t1739 * t15327 + 0.30186347851851851852e1 * t1739 * t15330 - 0.13583856533333333333e2 * t4376 * t15333 + 0.10062115950617283950e1 * t4364 * t5906 - 0.50310579753086419753e1 * t4364 * t5868 + 0.22639760888888888889e2 * t11110 * t5871 - 0.30186347851851851852e0 * t1739 * t15308;
7673   t15542 = t4158 * t691;
7674   t15547 = t4001 * t691;
7675   t15557 = t1628 * t4363;
7676   t15564 = 0.15093173925925925926e1 * t1739 * t15311 - 0.40751569600000000000e2 * t4376 * t15314 + 0.42260886992592592593e0 * t1739 * t15302 - 0.60372695703703703704e0 * t4370 * t5906 + 0.30186347851851851852e1 * t4370 * t5868 - 0.13583856533333333333e2 * t11120 * t5871 - 0.4959e4 / 0.10000e5 * t8516 * t2255 * t1106 - 0.48e2 * t1568 * t14999 + 0.15093173925925925926e1 * t15542 * t1740 + 0.75465869629629629628e0 * t5974 * t4373 - 0.67919282666666666665e1 * t15547 * t4377 + 0.75465869629629629630e0 * t10472 * t2293 + 0.15093173925925925926e1 * t4370 * t5979 + 0.75465869629629629630e0 * t1739 * t692 * t4101 - 0.25155289876543209876e1 * t15557 * t1740 + 0.1080e4 * t1562 * t15235 - 0.24e2 * t5638 * t4099;
7677   t15601 = 0.648e3 * t5641 * t4162 + 0.216e3 * t13722 * t1635 + 0.216e3 * t13725 * t1635 + 0.216e3 * t5641 * t4127 + 0.108e3 * t5641 * t4106 - 0.1296e4 * t13733 * t4110 - 0.12577644938271604938e0 * t4104 * t104 * t114 + 0.108e3 * t1562 * t15005 - 0.1296e4 * t10313 * t5724 - 0.1296e4 * t10318 * t5724 - 0.648e3 * t3190 * t15008 + 0.9720e4 * t10329 * t15012 - 0.48e2 * t3174 * t5727 - 0.48e2 * t3197 * t5727 + 0.41925483127572016460e0 * t1626 * t41 * t114 - 0.48e2 * t13713 * t1621 - 0.48e2 * t13657 * t1621;
7678   t15637 = -0.7776e4 * t3190 * t14969 + 0.324e3 * t1562 * t14988 - 0.24e2 * t1568 * t15002 + 0.108e3 * t1562 * t15082 + 0.54e2 * t1562 * t15085 - 0.648e3 * t3190 * t15089 - 0.24e2 * t1568 * t15096 - 0.12e2 * t1568 * t15103 + 0.324e3 * t1562 * t15107 + 0.648e3 * t3177 * t5717 + 0.216e3 * t3177 * t5720 + 0.108e3 * t3177 * t5734 + 0.648e3 * t3180 * t5717 + 0.216e3 * t3180 * t5720 + 0.108e3 * t3180 * t5734 - 0.24e2 * t3197 * t5730 - 0.48e2 * t5638 * t4097;
7679   t15651 = t2250 * t1105;
7680   t15654 = t5787 * t450;
7681   t15673 = -0.24e2 * t3174 * t5730 - 0.25155289876543209876e1 * t4364 * t5979 + 0.33540386502057613168e1 * t11134 * t2293 + 0.15093173925925925926e1 * t1739 * t692 * t4095 + 0.15093173925925925926e1 * t5974 * t4367 - 0.25155289876543209876e1 * t11130 * t2293 - 0.9e1 / 0.100e3 * t15651 * t1106 + t15654 * t473 / 0.5e1 + t5971 * t1141 / 0.10e2 + t11047 * t713 / 0.5e1 + 0.2e1 / 0.5e1 * t4294 * t1714 + t15256 * t231 + t1749 * t4050 / 0.5e1 - 0.9e1 / 0.100e3 * t8524 * t2255 + 0.2e1 * t5753 * t498 + t2221 * t1188 + t1191 * t5862 / 0.5e1;
7682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7683     v4rho2tau2[0] = -t3068 * t2310 / 0.6e1 - t1203 * t6024 - 0.3e1 / 0.8e1 * t240 * t241 * (t14810 + t14855 + t15486 + t15522 + t15564 + t15601 + t15637 + t15673);
7684 
7685   t15684 = t6352 * t255;
7686   t15692 = t6445 * t473;
7687   t15695 = t3170 * t4442;
7688   t15698 = t3191 * t4442;
7689   t15703 = t1763 * t1210;
7690   t15705 = t1206 * t1765;
7691   t15707 = t1211 * t1765;
7692   t15710 = (0.6e1 * t1210 * t1765 + 0.54e2 * t15703 + 0.54e2 * t15705 + 0.54e2 * t15707 + t1767 + t1771 + t4443 + t4449 + t6348 + t6351) * t23;
7693   t15717 = t4395 * t150;
7694   t15720 = t11594 * t150;
7695   t15733 = t6345 * t17;
7696   t15745 = -0.18e2 * t755 * t6425 - 0.1944e4 * t11563 * t4510 - 0.36e2 * t15717 * t1213 + 0.162e3 * t15720 * t1228 + 0.324e3 * t4574 * t4506 + t6395 * t474 / 0.10e2 - 0.27e2 / 0.100e3 * t1505 * t2009 + 0.3e1 / 0.10e2 * t5189 * t650 + 0.3e1 / 0.10e2 * t5191 * t650 - 0.6e1 * t256 * t15733 * t246 - 0.648e3 * t2372 * t7404 * t6027 - 0.648e3 * t7392 * t6431 - 0.36e2 * t256 * t8976 * t1763;
7697   t15789 = 0.18e2 * t11265 * t513 + 0.18e2 * t4395 * t1215 + 0.36e2 * t1220 * t4444 + 0.6e1 * t15684 * t249 + 0.36e2 * t256 * t15703 + 0.1944e4 * t5350 * t15705 - 0.972e3 * t5353 * t15705 + 0.36e2 * t3167 * t1768 + 0.18e2 * t3167 * t1770 - 0.162e3 * t8719 * t1996 - 0.324e3 * t2338 * t6384 + 0.12e2 * t755 * t6027 + 0.648e3 * t7392 * t6381 - t15710 + t2002 + t5183 - t5185 + t5187 + t6380;
7698   t15790 = t3183 * t1765;
7699   t15816 = t7561 * t6027 * t246;
7700   t15819 = t4509 * t1210;
7701   t15823 = t7398 * t6027 * t246;
7702   t15827 = t17 * t6027 * t246;
7703   t15830 = t4502 * t1210;
7704   t15835 = -0.162e3 * t11594 * t1228 + 0.36e2 * t4395 * t1213 + 0.72e2 * t1220 * t4446 + 0.36e2 * t1220 * t4448 + 0.36e2 * t256 * t15705 + 0.36e2 * t256 * t15707 - 0.162e3 * t762 * t15790 + 0.7776e4 * t2372 * t15816 + 0.1944e4 * t2372 * t15819 - 0.9720e4 * t7397 * t15823 - 0.1080e4 * t762 * t15827 - 0.972e3 * t762 * t15830 - 0.162e3 * t2338 * t6387 - 0.972e3 * t3152 * t4503 - 0.324e3 * t3152 * t4506 - 0.162e3 * t3152 * t4524 + 0.1944e4 * t8722 * t4510 + 0.36e2 * t755 * t6350 - t6389 + t6393;
7705   t15836 = t15789 + t15835;
7706   t15841 = -0.36e2 * t3167 * t1782 - 0.18e2 * t4395 * t1237 - 0.18e2 * t4395 * t1242 + t252 * t6345 - 0.27e2 / 0.100e3 * t1507 * t2009 + 0.171e3 / 0.1000e4 * t408 * t6405 + 0.171e3 / 0.1000e4 * t444 * t6405 - t6398 + 0.3e1 * t516 * t5105 + t6394 * t443 * t217 + t15836 * t194 * t217 + 0.324e3 * t2338 * t6436 - t4580 + t4582;
7707   t15865 = 0.162e3 * t1226 * t15790 + 0.1080e4 * t1226 * t15827 + 0.972e3 * t1226 * t15830 - 0.7776e4 * t3889 * t15816 + 0.162e3 * t3895 * t6387 - 0.72e2 * t4571 * t4446 - 0.72e2 * t4589 * t4446 + 0.972e3 * t4574 * t4503 + 0.972e3 * t5131 * t4503 - 0.18e2 * t755 * t6428 - 0.36e2 * t755 * t6439 - t1790 - t4614 - t4616;
7708   t15900 = 0.513e3 / 0.1000e4 * t195 * t5113 * t1550 - 0.27e2 / 0.100e3 * t408 * t6409 - 0.27e2 / 0.100e3 * t195 * t1515 * t4557 - 0.27e2 / 0.50e2 * t632 * t4597 - 0.27e2 / 0.100e3 * t195 * t3861 * t2027 + 0.513e3 / 0.1000e4 * t632 * t5114 - 0.18e2 * t4395 * t1231 - 0.27e2 / 0.100e3 * t632 * t5118 - 0.36e2 * t256 * t6661 * t1210 - 0.27e2 / 0.100e3 * t2004 * t1516 + 0.324e3 * t762 * t7557 * t6027 + 0.972e3 * t1226 * t15695 + 0.162e3 * t2338 * t6420 - 0.18e2 * t256 * t4593 * t1210;
7709   t15919 = t627 * t246;
7710   t15932 = t531 * t569;
7711   t15977 = my_piecewise3(t66, 0, 0.77e2 / 0.36000e5 * t267 * t7811 * t6058 + 0.2387e4 / 0.120000e6 * t267 * t7823 * t6058 * t283 - 0.77e2 / 0.4000e4 * t267 * t2550 * t1792 * t1255 - 0.27945581758017618200e-3 * t11712 * t6064 - 0.10356303827971234980e-3 * t4654 * t9221 * t526 * t4656 + 0.49315732514148738000e-4 * t4654 * t4655 * t1255 * t45 * t47);
7712   t15980 = t67 * t6189;
7713   t15999 = t6154 * t295;
7714   t16002 = t555 * t4730;
7715   t16003 = 0.4608e4 * t16002;
7716   t16006 = t15977 * t76;
7717   t16011 = t6068 * t289;
7718   t16012 = t16011 * t76;
7719   t16015 = t1869 * t1283;
7720   t16018 = 0.3e1 / 0.2e1 * t12426 * t561 + 0.6e1 * t8280 * t6165 - 0.9e1 / 0.4e1 * t8274 * t6165 - 0.9e1 / 0.2e1 * t9714 * t1869 + 0.3e1 / 0.2e1 * t4714 * t1307 + 0.3e1 / 0.2e1 * t3639 * t1872 + 0.3e1 / 0.2e1 * t1299 * t4723 + 0.3e1 / 0.4e1 * t9728 * t1869 + t15999 * t327 / 0.2e1 + t16003 + t907 * t6175 / 0.2e1 + t326 * t16006 / 0.2e1 + t8268 * t6165 / 0.8e1 + t916 * t16012 / 0.4e1 + 0.3e1 / 0.8e1 * t2674 * t16015;
7721   t16019 = t6075 * t289;
7722   t16020 = t16019 * t76;
7723   t16049 = t1307 * t1805;
7724   t16052 = t561 * t4661;
7725   t16055 = t8271 * t16020 / 0.16e2 - 0.9e1 / 0.2e1 * t12421 * t1304 + 0.3e1 / 0.4e1 * t12430 * t1304 - 0.9e1 / 0.2e1 * t3649 * t4671 + 0.3e1 / 0.4e1 * t3643 * t4671 + 0.3e1 / 0.2e1 * t3643 * t4676 + 0.3e1 / 0.8e1 * t9720 * t4668 + 0.18e2 * t9711 * t4668 - 0.9e1 * t3649 * t4676 - 0.27e2 / 0.4e1 * t9717 * t4668 - 0.30e2 * t916 * t16020 + 0.18e2 * t2702 * t16015 + 0.75e2 / 0.4e1 * t8292 * t16020 - 0.9e1 / 0.2e1 * t2699 * t6168 - 0.9e1 / 0.2e1 * t909 * t16049 - 0.9e1 / 0.2e1 * t909 * t16052;
7726   t16069 = t1909 * t1283;
7727   t16070 = 0.4608e4 * t16069;
7728   t16071 = t1414 * t1805;
7729   t16072 = 0.2304e4 * t16071;
7730   t16073 = t584 * t4661;
7731   t16074 = 0.2304e4 * t16073;
7732   t16078 = t6286 * t289;
7733   t16079 = 0.768e3 * t16078;
7734   t16080 = t3652 * t4671;
7735   t16083 = 0.15e2 / 0.2e1 * t3658 * t4671;
7736   t16084 = t1283 * t1805;
7737   t16086 = t531 * t4661;
7738   t16089 = 0.3e1 / 0.4e1 * t2689 * t6168 + 0.3e1 / 0.4e1 * t916 * t16052 + 0.3e1 / 0.4e1 * t916 * t16049 - 0.27e2 / 0.4e1 * t2678 * t16015 - 0.9e1 / 0.4e1 * t8289 * t16020 - 0.3e1 / 0.2e1 * t909 * t16012 + t16070 + t16072 + t16074 + 0.10e2 * t68 * t15977 * t71 + t16079 + 0.60e2 * t16080 - t16083 - 0.216e3 * t16084 - 0.216e3 * t16086 - 0.72e2 * t16011;
7739   t16090 = t118 * t15977;
7740   t16091 = 0.256e3 * t16090;
7741   t16092 = t67 * t15977;
7742   t16094 = 0.1536e4 * t16019;
7743   t16099 = 0.120e3 * t16084 + 0.120e3 * t16086 + 0.40e2 * t16011 + 0.40e2 * t16092 - t16094 - t16070 - t16003 - t16072 - t16074 - t16079 - t16091;
7744   t16109 = t69 * t15977 * t76;
7745   t16111 = t6076 * t327;
7746   t16113 = t1811 * t1307;
7747   t16115 = t6081 * t327;
7748   t16117 = t3655 * t1872;
7749   t16119 = t1320 * t4723;
7750   t16122 = 0.15e2 / 0.2e1 * t4693 * t1307;
7751   t16124 = t7948 * t6075 * t327;
7752   t16127 = t857 * t6068 * t327;
7753   t16129 = t16091 - 0.72e2 * t16092 + t16094 + t16099 * t76 + 0.18e2 * t9634 * t4671 - 0.27e2 / 0.4e1 * t9628 * t4671 + 0.3e1 / 0.8e1 * t2674 * t1805 * t1304 - 0.10e2 * t16109 - 0.100e3 * t16111 + 0.60e2 * t16113 + 0.55e2 / 0.2e1 * t16115 - 0.15e2 * t16117 - 0.15e2 * t16119 - t16122 - 0.5e1 / 0.4e1 * t16124 - 0.5e1 * t16127;
7754   t16134 = 0.144e3 * t1283 * t99 * t1805 + 0.144e3 * t12377 * t1805 + 0.144e3 * t4620 * t4661 + 0.288e3 * t15932 * t1283 + 0.144e3 * t1810 * t1323 + 0.144e3 * t289 * t1884 * t531 + 0.144e3 * t12386 * t531 + 0.144e3 * t4664 * t1283 + 0.144e3 * t4625 * t1805 + 0.144e3 * t3613 * t1805 + 0.144e3 * t1286 * t4661 + 0.48e2 * t1266 * t6068 + 0.48e2 * t893 * t6068 + 0.48e2 * t317 * t15977 + 0.48e2 * t15980 * t289 + 0.24e2 * t73 * (t16018 + t16055 + t16089 + t16129);
7755   t16149 = t48 * t53 * t283;
7756   t16166 = 0.35e2 / 0.81e2 * t16134 * t110 * t114 + 0.24055706480953698645e-3 * t339 * t6196 + 0.24055706480953698645e-3 * t346 * t6196 + 0.24055706480953698645e-3 * t111 * t13221 * t53 + 0.88467474666666666666e-1 * t616 * t1347 - 0.85217585784449019264e-2 * t2637 * t526 * t16149 + 0.83760911515595616720e-4 * t144 * t4774 * t351 + 0.58140963247050752574e-4 * t102 * t4774 * t351 - 0.11726527612183386341e-3 * t1986 * t12156 * t526 - 0.14620935720164609054e0 * t1887 * t273 * t114 + 0.17215673895848286720e-1 * t1484 * t4491;
7757   t16176 = t6199 * t32;
7758   t16195 = t6193 * t32;
7759   t16198 = -0.12829710123175305944e-2 * t111 * t4471 * t279 + 0.18e2 / 0.25e2 * t9102 * t1791 - 0.10616096960000000000e0 * t146 * t5071 + 0.88467474666666666666e-1 * t146 * t5074 - 0.21931403580246913580e-1 * t16176 * t353 + 0.38735266265658645120e-2 * t3699 * t45 * t4462 + 0.44233737333333333333e-1 * t393 * t6210 - 0.57733695554288876748e-3 * t111 * t2472 * t526 * t53 * t283 - 0.14e2 / 0.27e2 * t12664 * t579 + 0.16850947555555555555e0 * t616 * t4468 - 0.20658808675017944064e-1 * t6328 * t4491 - 0.14e2 / 0.81e2 * t16195 * t353;
7760   t16226 = -0.35179582836550159022e-4 * t1986 * t1988 * t9809 * t283 - 0.392e3 / 0.675e3 * t941 * t6205 - 0.392e3 / 0.675e3 * t944 * t6205 + 0.98e2 / 0.135e3 * t3352 * t1898 + 0.98e2 / 0.135e3 * t3355 * t1898 - 0.31595526666666666667e-1 * t1972 * t1392 - 0.63191053333333333333e-1 * t1481 * t1979 - 0.63191053333333333333e-1 * t616 * t4475 + 0.38735266265658645120e-2 * t2640 * t526 * t1850 + 0.38735266265658645120e-2 * t938 * t1255 * t1850 - 0.70212281481481481483e-1 * t6323 * t396;
7761   t16243 = t3846 * t1791;
7762   t16253 = -0.14e2 / 0.27e2 * t12661 * t579 - 0.14e2 / 0.27e2 * t5086 * t1405 - 0.43862807160493827161e-1 * t12672 * t579 - 0.43862807160493827161e-1 * t5089 * t1405 + 0.30703965012345679013e-1 * t3347 * t1898 + 0.18e2 / 0.25e2 * t12584 * t1262 - 0.3e1 / 0.5e1 * t4976 * t1255 + 0.11696748576131687243e0 * t12686 * t579 - 0.11795663288888888889e0 * t146 * t16243 - 0.10470113939449452090e-4 * t1479 * sigma[0] * t1989 - 0.17182647486395499033e-3 * t1337 * t1901 - 0.21063684444444444445e0 * t1971 * t1331;
7763   t16262 = t6051 * t283;
7764   t16265 = t1791 * t1255;
7765   t16280 = 0.10174668568233881700e-4 * t6044 * t10193 - 0.198e3 / 0.125e3 * t9917 * t4480 + 0.36e2 / 0.25e2 * t3699 * t4483 + 0.1056e4 / 0.625e3 * t8143 * t16262 - 0.198e3 / 0.125e3 * t2637 * t16265 + 0.14658159515229232926e-4 * t6041 * t10193 - 0.392e3 / 0.225e3 * t1395 * t4962 + 0.196e3 / 0.135e3 * t1395 * t4965 + 0.44233737333333333333e-1 * t1481 * t1983 + 0.98e2 / 0.135e3 * t5086 * t1263 - 0.35386989866666666666e-1 * t393 * t6053;
7766   t16309 = 0.84254737777777777776e-1 * t1972 * t1245 + 0.6664e4 / 0.3375e4 * t349 * t7717 * t16262 - 0.392e3 / 0.225e3 * t349 * t2873 * t16265 - 0.31595526666666666666e-1 * t1972 * t1257 - 0.73689516029629629631e-1 * t1398 * t4962 + 0.61407930024691358026e-1 * t1398 * t4965 - 0.31595526666666666666e-1 * t4941 * t624 + 0.61407930024691358025e-1 * t5089 * t1263 + 0.94365306311111111109e-1 * t146 * t274 * t6052 - 0.32279388554715537600e-2 * t3782 * t1850 - 0.81877240032921810701e-1 * t3366 * t1898 + 0.54828508950617283951e-1 * t4743 * t41 * t114;
7767   t16317 = t6126 * t313;
7768   t16337 = -0.17182647486395499033e-3 * t1327 * t1901 + 0.24055706480953698646e-3 * t573 * t4755 + 0.14658159515229232926e-4 * t6341 * t4764 - t16317 * t283 / 0.5e1 - 0.66e2 / 0.125e3 * t8350 * t6051 - 0.10470113939449452090e-4 * t391 * t1988 * t351 + 0.35e2 / 0.81e2 * t6192 * t345 * t114 + 0.14658159515229232926e-4 * t4989 * t6132 + 0.14658159515229232926e-4 * t1986 * t4763 * t1255 - 0.10531842222222222222e-1 * t6323 * t400 - 0.11795663288888888889e0 * t616 * t4947;
7769   t16373 = t864 * t6068;
7770   t16382 = 0.45e2 / 0.2e1 * t16080 - t16083 + 0.3e1 / 0.8e1 * t12238 * t1304 - 0.4e1 * t1375 * t6068 - 0.4e1 * t299 * t15977 - t16109 - 0.3e1 * t608 * t4723 - t385 * t6175 + t16373 * t327 / 0.4e1 + 0.3e1 / 0.4e1 * t12248 * t561 + 0.3e1 / 0.4e1 * t5045 * t1307 + 0.3e1 / 0.8e1 * t5050 * t1307;
7771   t16403 = t7898 * t6075 * t327 / 0.16e2 - 0.3e1 * t1473 * t1872 - 0.75e2 / 0.2e1 * t16111 + 0.45e2 / 0.2e1 * t16113 + 0.85e2 / 0.4e1 * t16115 - 0.6e1 * t16117 - 0.6e1 * t16119 - t16122 - 0.19e2 / 0.8e1 * t16124 - 0.2e1 * t16127 + t295 * t15977 * t76 / 0.2e1 - 0.12e2 * t1283 * t77 * t1805 - 0.12e2 * t5053 * t4661;
7772   t16419 = t2597 * t6168;
7773   t16426 = 0.2e1 * t289 * t6120 + 0.2e1 * t67 * (t16382 + t16403) + 0.6e1 * t1283 * t1838 + 0.6e1 * t531 * t5063 + 0.6e1 * t4661 * t543 + 0.6e1 * t1805 * t1381 + 0.2e1 * t15977 * t80 + 0.2e1 * t6068 * t304 - 0.18e2 * t16419 + 0.21e2 / 0.2e1 * t1372 * t4671 - 0.3e1 / 0.4e1 * t9747 * t4671 - t291 * t15977;
7774   t16442 = t1810 * t1283;
7775   t16443 = t2581 * t16442;
7776   t16446 = t2600 * t289 * t6165;
7777   t16454 = t6096 * t327;
7778   t16456 = -t1356 * t6175 / 0.2e1 + 0.21e2 / 0.2e1 * t1827 * t1307 + 0.15e2 / 0.4e1 * t6109 * t327 - 0.3e1 / 0.2e1 * t9758 * t1872 - 0.3e1 / 0.2e1 * t3652 * t4723 - 0.3e1 / 0.4e1 * t5018 * t1307 - t7925 * t6075 * t327 / 0.8e1 - 0.18e2 * t16443 - 0.24e2 * t16446 + 0.6e1 * t849 * t16084 + 0.6e1 * t849 * t16086 + 0.2e1 * t849 * t16011 + 0.24e2 * t16454;
7779   t16476 = t73 * t6279;
7780   t16487 = t1810 * t133;
7781   t16501 = 0.432e3 * t289 * t602 * t1810 + 0.216e3 * t12116 * t531 + 0.432e3 * t16487 * t1283 + 0.216e3 * t4924 * t1283 + 0.216e3 * t1448 * t4661 + 0.72e2 * t371 * t15977 + 0.72e2 * t16476 * t289 + 0.216e3 * t3561 * t1805 + 0.432e3 * t9323 * t1810 - 0.1440e4 * t4709 * t561 + 0.72e2 * t986 * t6068;
7782   t16508 = t6306 * t295;
7783   t16542 = 0.30720e5 * t120 * t15977 + 0.1843200e7 * t1913 * t1283 + 0.460800e6 * t1418 * t1805 + 0.1843200e7 * t6288 * t289 + 0.153600e6 * t6292 * t289 + 0.460800e6 * t586 * t4661 + 0.1843200e7 * t557 * t4730 - 0.103680e6 * t16002 + 0.448e3 * t16011 - 0.34560e5 * t16019 - 0.103680e6 * t16069 - 0.51840e5 * t16071 - 0.51840e5 * t16073 - 0.17280e5 * t16078 + 0.1344e4 * t16084 + 0.1344e4 * t16086 - 0.5760e4 * t16090 + 0.448e3 * t16092;
7784   t16547 = t1289 * t1805;
7785   t16575 = -0.371589120e9 * t120 * t6075 * t289 - 0.8847360e7 * t122 * t6068 * t289 + 0.2424870e7 * t1944 * t1283 - 0.185794560e9 * t4906 * t1283 + 0.4608e4 * t1291 * t1805 - 0.26542080e8 * t1424 * t4661 + 0.484974e6 * t1457 * t1805 - 0.26542080e8 * t3542 * t1805 + 0.1536e4 * t6148 * t289 - 0.69120e5 * t6150 * t289 + 0.161658e6 * t6277 * t289 + 0.4608e4 * t555 * t4661 + 0.484974e6 * t600 * t4661 + 0.4608e4 * t16547;
7786   t16602 = -0.1105920e7 * t124 * t15977 - 0.103680e6 * t1862 * t1283 - 0.34560e5 * t1295 * t1805 + 0.26943e5 * t131 * t15977 + 0.768e3 * t73 * t15977 - 0.2880e4 * t91 * t15977 - 0.11520e5 * t6145 * t289 + 0.3233160e7 * t6273 * t289 - 0.34560e5 * t557 * t4661 - 0.103680e6 * t584 * t4730 + 0.2424870e7 * t586 * t4730 - 0.185794560e9 * t588 * t4730 - 0.8e1 * t15977 + 0.4608e4 * t16442;
7787   t16609 = -0.1440e4 * t1836 * t1307 + 0.432e3 * t4927 * t6086 + 0.432e3 * t2747 * t6086 + t16508 * t327 / 0.2e1 - 0.9e1 / 0.2e1 * t9588 * t1869 + 0.2160e4 * t1869 * t1473 - 0.2880e4 * t6165 * t296 + 0.24e2 * t118 * t16542 + (t16575 + t16602) * t76 + 0.3e1 / 0.2e1 * t11769 * t561 + 0.3e1 / 0.2e1 * t1431 * t4723;
7788   t16634 = 0.3e1 / 0.4e1 * t9524 * t1869 + 0.3e1 / 0.2e1 * t4805 * t1307 + 0.3e1 / 0.2e1 * t3449 * t1872 - 0.2e1 * t384 * t74 * t15977 - 0.480e3 * t302 * t6175 + 0.720e3 * t1314 * t1954 + 0.432e3 * t983 * t16084 + 0.432e3 * t983 * t16086 - 0.9e1 / 0.4e1 * t7944 * t6165 + t973 * t6175 / 0.2e1 + t368 * t16006 / 0.2e1;
7789   t16659 = 0.720e3 * t565 * t4859 + 0.240e3 * t331 * t6253 + 0.240e3 * t96 * t15977 * t71 + 0.864e3 * t3551 * t4728 + 0.432e3 * t12101 * t1289 + 0.432e3 * t3551 * t4730 + 0.144e3 * t983 * t16011 + 0.6e1 * t7961 * t6165 + t7921 * t6165 / 0.8e1 - 0.1080e4 * t16419 + 0.144e3 * t6075 * t378 - 0.9e1 / 0.2e1 * t2765 * t6168;
7790   t16685 = -0.9e1 / 0.2e1 * t975 * t16049 - 0.9e1 / 0.2e1 * t975 * t16052 + 0.3e1 / 0.4e1 * t2787 * t6168 + 0.3e1 / 0.4e1 * t980 * t16052 + 0.3e1 / 0.4e1 * t980 * t16049 - 0.48e2 * t7877 * t16020 + 0.21e2 * t2759 * t16015 + 0.15e2 / 0.2e1 * t7955 * t16020 - 0.3e1 * t1011 * t16049 - 0.3e1 * t1011 * t16052 + 0.48e2 * t384 * t6096 * t289;
7791   t16713 = -0.36e2 * t384 * t1821 * t1283 + 0.12e2 * t384 * t1369 * t1805 + 0.12e2 * t384 * t536 * t4661 + 0.2160e4 * t385 * t6168 - 0.3e1 / 0.2e1 * t2771 * t16015 - t7926 * t16020 / 0.4e1 + 0.4e1 * t384 * t6104 * t289 - t1011 * t16012 + 0.18e2 * t9585 * t4668 - 0.9e1 * t3573 * t4676 - 0.27e2 / 0.4e1 * t9591 * t4668 - 0.30e2 * t980 * t16020;
7792   t16737 = 0.18e2 * t2756 * t16015 + 0.75e2 / 0.4e1 * t7958 * t16020 - 0.27e2 / 0.4e1 * t2790 * t16015 - 0.9e1 / 0.4e1 * t7949 * t16020 - 0.3e1 / 0.2e1 * t975 * t16012 + t980 * t16012 / 0.4e1 + 0.3e1 / 0.8e1 * t2782 * t16015 + t7899 * t16020 / 0.16e2 - 0.9e1 / 0.2e1 * t11811 * t1304 + 0.3e1 / 0.4e1 * t11761 * t1304 - 0.9e1 / 0.2e1 * t3573 * t4671;
7793   t16760 = 0.3e1 / 0.4e1 * t3570 * t4671 + 0.3e1 / 0.2e1 * t3570 * t4676 + 0.3e1 / 0.8e1 * t9549 * t4668 - 0.1080e4 * t16443 - 0.240e3 * t16446 + 0.2640e4 * t16454 + 0.18e2 * t9417 * t4671 - 0.27e2 / 0.4e1 * t9420 * t4671 + 0.3e1 / 0.8e1 * t2782 * t1805 * t1304 + 0.21e2 * t11750 * t4671 - 0.3e1 / 0.2e1 * t11753 * t4671 - 0.36e2 * t9411 * t16547;
7794   t16786 = -0.3e1 / 0.5e1 * t12717 * t526 - 0.72676204058813440717e-5 * t338 * t1988 * t351 + 0.91640786594109328176e-3 * t573 * t5100 + 0.83760911515595616720e-4 * t6341 * t4775 + (-0.8e1 / 0.3e1 * t15977 * t83 - 0.8e1 / 0.3e1 * t6068 * t307 - 0.8e1 * t4661 * t546 - 0.8e1 * t1805 * t1384 - 0.8e1 * t1283 * t1841 - 0.8e1 * t531 * t5066 - 0.8e1 / 0.3e1 * t289 * t6123 - 0.8e1 / 0.3e1 * t67 * (t16426 + t16456)) * t88 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t15977 * t141 + 0.8e1 / 0.7e1 * t6068 * t388 + 0.24e2 / 0.7e1 * t4661 * t611 + 0.24e2 / 0.7e1 * t1805 * t1476 + 0.24e2 / 0.7e1 * t1283 * t1967 + 0.24e2 / 0.7e1 * t531 * t4936 + 0.8e1 / 0.7e1 * t289 * t6318 + 0.8e1 / 0.7e1 * t67 * (t16501 + t16609 + t16634 + t16659 + t16685 + t16713 + t16737 + t16760)) * t32 * t36 * t147 + 0.78988816666666666668e-1 * t4940 * t620 - 0.10616096960000000000e0 * t5077 * t5071 + 0.88467474666666666666e-1 * t5077 * t5074 + 0.44233737333333333332e-1 * t1971 * t199 * t1347 + 0.12031576554666666666e0 * t1345 * t9837 * t16262 - 0.10616096960000000000e0 * t1345 * t3853 * t16265;
7795   t16795 = -0.18e2 * t1220 * t4594 - 0.6e1 * t15684 * t258 + 0.3e1 * t1218 * t1992 + 0.3e1 * t4451 * t627 + t408 * t6370 / 0.10e2 + t444 * t6370 / 0.10e2 - 0.36e2 * t1220 * t5134 - 0.18e2 * t11265 * t518 - 0.36e2 * t256 * t15919 * t1763 - 0.1944e4 * t3889 * t15698 + t24 * (t16166 + t16198 + t16226 + t16253 + t16280 + t16309 + t16337 + t16786) + t6413 + 0.3e1 / 0.10e2 * t1507 * t2028 + 0.3e1 / 0.10e2 * t632 * t4566;
7796   t16825 = 0.3e1 / 0.10e2 * t2004 * t1551 + 0.3e1 / 0.10e2 * t1505 * t2028 - 0.18e2 * t256 * t3898 * t1765 - 0.1944e4 * t3889 * t15819 + 0.9720e4 * t10079 * t15823 - 0.27e2 / 0.100e3 * t444 * t6409 - 0.4959e4 / 0.10000e5 * t195 * t7544 * t6033 * t473 - t6415 + 0.162e3 * t3152 * t5147 - 0.18e2 * t1220 * t4612 + 0.162e3 * t8719 * t1779 + 0.162e3 * t3875 * t6387 - 0.36e2 * t1234 * t15705 - 0.36e2 * t1234 * t15707;
7797   t16853 = -0.73e2 / 0.2430e4 * t37 * t273 * t1765 * t213 + t6360 - 0.73e2 / 0.3240e4 * t37 * t6357 * t246 + 0.73e2 / 0.1215e4 * t37 * t273 * t1763 - 0.73e2 / 0.1620e4 * t37 * t2013 * t1210 + 0.73e2 / 0.2430e4 * t37 * t1527 * t1765 - t6366 - t4548 - t2022 + t4550 + 0.292e3 / 0.45e2 * t4546 * t510 + t6368 + 0.292e3 / 0.45e2 * t2020 * t1210 + t4556 + t2026;
7798   t16868 = t1105 * t6369;
7799   t16876 = -0.36e2 * t3892 * t6350 - 0.36e2 * t3878 * t6350 + 0.162e3 * t4574 * t4524 - t6430 + t195 * t450 * t16853 / 0.10e2 - 0.36e2 * t1220 * t4607 - 0.18e2 * t3167 * t1788 - 0.18e2 * t256 * t11535 * t510 - 0.36e2 * t4571 * t4448 + t6353 * t403 + t15710 * t150 - 0.9e1 / 0.100e3 * t195 * t16868 * t473 - 0.36e2 * t1220 * t5108 - 0.36e2 * t1220 * t4604;
7800   t16877 = t256 * t1992;
7801   t16880 = t762 * t1992;
7802   t16899 = t1220 * t627;
7803   t16902 = t3152 * t627;
7804   t16911 = -0.36e2 * t16877 * t1213 + 0.162e3 * t16880 * t1228 - 0.36e2 * t3167 * t1785 + 0.513e3 / 0.1000e4 * t5544 * t15692 - 0.1944e4 * t11554 * t4510 + 0.324e3 * t5131 * t4506 - 0.12e2 * t256 * t403 * t6027 - 0.12e2 * t755 * t6036 + 0.162e3 * t762 * t9019 * t1763 - 0.72e2 * t16899 * t1213 + 0.324e3 * t16902 * t1228 + 0.3e1 * t1773 * t1492 - 0.36e2 * t4589 * t4448 + 0.162e3 * t5131 * t4524;
7805   t16920 = -0.18e2 * t1220 * t4406 - 0.6e1 * t15684 * t481 - 0.18e2 * t4395 * t1576 - 0.36e2 * t256 * t10127 * t1763 + 0.513e3 / 0.1000e4 * t2426 * t15692 + 0.972e3 * t1562 * t15695 - 0.1944e4 * t3190 * t15698 - t2049 + t15710 * t231 + t6353 * t498 - p->cam_beta * (t15745 + t15841 + t15865 + t15900 + t16795 + t16825 + t16876 + t16911) - 0.27e2 / 0.50e2 * t3216 * t4433 + 0.513e3 / 0.1000e4 * t10208 * t4430;
7806   t16945 = t6497 * t17;
7807   t16951 = -0.27e2 / 0.100e3 * t2420 * t6445 - 0.4959e4 / 0.10000e5 * t8516 * t6033 * t473 + 0.513e3 / 0.1000e4 * t2426 * t2008 * t1550 - t4404 - t4420 - 0.18e2 * t256 * t4405 * t1210 - 0.27e2 / 0.100e3 * t1194 * t649 * t4557 - 0.27e2 / 0.100e3 * t1194 * t1550 * t2027 - 0.12e2 * t755 * t6028 - 0.12e2 * t256 * t498 * t6027 - 0.27e2 / 0.100e3 * t13306 * t1603 - 0.6e1 * t256 * t16945 * t246 - 0.18e2 * t4395 * t1571;
7808   t16965 = t4395 * t231;
7809   t16968 = t11594 * t231;
7810   t16971 = t1220 * t666;
7811   t16974 = t3152 * t666;
7812   t16977 = t256 * t2062;
7813   t16980 = t762 * t2062;
7814   t16985 = 0.9720e4 * t10329 * t15823 - 0.36e2 * t16965 * t1213 - 0.72e2 * t16971 * t1213 - 0.36e2 * t16977 * t1213 + 0.162e3 * t16968 * t1228 + 0.324e3 * t16974 * t1228 + 0.162e3 * t16980 * t1228 - 0.1944e4 * t13168 * t4510 - 0.1944e4 * t3190 * t15819 - 0.36e2 * t3167 * t2041 - 0.36e2 * t4496 * t4448 - 0.36e2 * t4513 * t4448 + 0.162e3 * t4516 * t4524;
7815   t17010 = -0.1944e4 * t11298 * t4510 + 0.3e1 * t1218 * t2062 - 0.36e2 * t1220 * t4421 - 0.36e2 * t1220 * t4424 + t15836 * t217 + 0.3e1 * t1773 * t1595 - 0.18e2 * t3167 * t2047 + t252 * t6497 + 0.3e1 * t4451 * t666 + 0.3e1 * t516 * t4494 + 0.324e3 * t4499 * t4506 + 0.162e3 * t4499 * t4524 + 0.324e3 * t4516 * t4506;
7816   t17025 = t6394 * t450;
7817   t17039 = -0.18e2 * t1220 * t4402 + 0.162e3 * t8719 * t2038 + 0.162e3 * t3152 * t5201 + 0.162e3 * t2338 * t6460 - 0.27e2 / 0.100e3 * t10205 * t2008 + 0.171e3 / 0.1000e4 * t8519 * t6033 + t17025 * t473 / 0.10e2 - t6457 - 0.9e1 / 0.100e3 * t1194 * t6369 * t473 + 0.3e1 / 0.10e2 * t3288 * t2027 + 0.3e1 / 0.10e2 * t1598 * t4557 + t501 * t16853 / 0.10e2 + 0.3e1 / 0.10e2 * t13293 * t649;
7818   t17056 = t2472 * t1791;
7819   t17057 = t17056 * t283;
7820   t17060 = t4471 * t1255;
7821   t17082 = 0.1056e4 / 0.625e3 * t8142 * t6051 * t283 - 0.198e3 / 0.125e3 * t4456 * t1255 - 0.85217585784449019264e-2 * t3240 * t45 * t4462 + 0.38735266265658645120e-2 * t3243 * t1850 - 0.20658808675017944064e-1 * t1579 * t4491 - 0.19983387292181069959e0 * t37 * t16243 - 0.17985048562962962963e0 * t521 * t17057 + 0.14987540469135802469e0 * t521 * t17060 + 0.14190187476264636929e-3 * t4775 + 0.24832828083463114625e-4 * t4764 - 0.392e3 / 0.375e3 * t8491 * t6051 + 0.6664e4 / 0.1875e4 * t8496 * t16262 - 0.392e3 / 0.125e3 * t2473 * t16265 + 0.70297335074713837440e-2 * t2466 * t526 * t1850 - 0.16871360417931320986e-1 * t2473 * t526 * t16149 + 0.70297335074713837440e-2 * t1183 * t1255 * t1850 - 0.37491912039847379968e-1 * t6494 * t4491;
7822   t17101 = t666 * t246;
7823   t17112 = t1191 * t6369 / 0.10e2 + t24 * t17082 - 0.648e3 * t2372 * t8394 * t6027 - 0.18e2 * t755 * t6448 + 0.162e3 * t762 * t10355 * t1763 - 0.648e3 * t7392 * t6451 - 0.36e2 * t256 * t6579 * t1210 - 0.18e2 * t11265 * t656 - 0.18e2 * t4395 * t1565 - 0.36e2 * t256 * t17101 * t1763 - 0.36e2 * t3167 * t2044 - 0.18e2 * t755 * t6465 - 0.18e2 * t256 * t3074 * t1765;
7824   t17132 = -0.18e2 * t256 * t12997 * t510 - t6467 - t4522 + t4526 - 0.27e2 / 0.100e3 * t3216 * t4427 - t6504 + t6506 - 0.36e2 * t1220 * t4411 - 0.36e2 * t1220 * t4416 + 0.324e3 * t2338 * t6472 + 0.324e3 * t762 * t8425 * t6027 - 0.36e2 * t755 * t6475 + 0.972e3 * t4516 * t4503;
7825   t17161 = -0.36e2 * t3174 * t6350 - 0.36e2 * t3197 * t6350 - 0.36e2 * t1568 * t15705 - 0.36e2 * t1568 * t15707 - 0.72e2 * t4496 * t4446 + 0.972e3 * t4499 * t4503 + 0.1080e4 * t1562 * t15827 + 0.972e3 * t1562 * t15830 - 0.7776e4 * t3190 * t15816 + 0.162e3 * t3177 * t6387 + 0.162e3 * t3180 * t6387 + 0.162e3 * t1562 * t15790 - 0.72e2 * t4513 * t4446 + 0.3e1 / 0.10e2 * t4388 * t1550;
7826   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7827     v4rhosigma3[0] = -t1203 * t6509 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t241 * (t16920 + t16951 + t16985 + t17010 + t17039 + t17112 + t17132 + t17161);
7828 
7829   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7830     v4rhosigma2lapl[0] = 0.0e0;
7831 
7832   t17191 = t4395 * t691;
7833   t17194 = -t6515 + 0.10481370781893004115e0 * t1773 * t41 * t114 - 0.35217405827160493826e-1 * t1736 * t6648 - t2049 + 0.75465869629629629630e0 * t13456 * t2188 + 0.75465869629629629630e0 * t5665 * t5670 + 0.37732934814814814815e0 * t4370 * t6622 - 0.33959641333333333334e1 * t11120 * t6625 + 0.75465869629629629630e0 * t4370 * t6628 + 0.75465869629629629630e0 * t1739 * t692 * t4444 - 0.70434811654320987653e-1 * t516 * t691 * t1263 + 0.37732934814814814815e0 * t17191 * t1740;
7834   t17197 = t10415 * t1763;
7835   t17202 = t10719 * t1763;
7836   t17207 = t13699 * t510;
7837   t17210 = t5372 * t1210;
7838   t17215 = t4126 * t1765;
7839   t17218 = t2075 * t1210;
7840   t17223 = t5245 * t510;
7841   t17226 = t5250 * t510;
7842   t17229 = t2080 * t1210;
7843   t17234 = 0.648e3 * t2372 * t17197 - 0.324e3 * t762 * t17202 - 0.108e3 * t762 * t17207 - 0.108e3 * t762 * t17210 - 0.54e2 * t762 * t17215 + 0.24e2 * t256 * t17218 + 0.24e2 * t256 * t17223 + 0.24e2 * t256 * t17226 + 0.24e2 * t256 * t17229 - 0.324e3 * t2338 * t6561 - 0.108e3 * t2338 * t6564 - 0.54e2 * t2338 * t6567 + 0.24e2 * t755 * t6536 + 0.12e2 * t755 * t6538 + 0.648e3 * t7392 * t6558 - t6569 + t6575;
7844   t17235 = t1614 * t1765;
7845   t17238 = t1619 * t1765;
7846   t17271 = 0.648e3 * t10657 * t4510 - 0.54e2 * t11594 * t1635 + 0.24e2 * t5328 * t1213 + 0.24e2 * t1220 * t5252 - 0.108e3 * t13900 * t1228 + 0.12e2 * t4395 * t1621 + 0.24e2 * t1628 * t4446 + 0.12e2 * t1628 * t4448 + 0.12e2 * t256 * t17235 + 0.12e2 * t256 * t17238 + 0.24e2 * t3167 * t2082 - 0.108e3 * t8719 * t2094 - 0.108e3 * t3152 * t5356 - 0.108e3 * t3152 * t5359 - 0.324e3 * t4001 * t4503 - 0.108e3 * t4001 * t4506 - 0.54e2 * t4001 * t4524;
7847   t17287 = t6534 * t246;
7848   t17306 = -0.648e3 * t3152 * t18 * t5252 + 0.1296e4 * t8722 * t2373 * t5252 + 0.24e2 * t1220 * t5254 + 0.24e2 * t1220 * t5256 + 0.24e2 * t1220 * t5258 + 0.7776e4 * t14007 * t17287 - 0.1080e4 * t14011 * t17287 - 0.9720e4 * t14018 * t17287 + 0.1296e4 * t5350 * t17218 - 0.648e3 * t5353 * t17218 + 0.1296e4 * t5350 * t17223 - 0.648e3 * t5353 * t17223 + 0.648e3 * t5350 * t17235 - 0.324e3 * t5353 * t17235 - 0.108e3 * t3152 * t5373 + t2002 + t6549;
7849   t17325 = t1763 * t1618;
7850   t17328 = t6540 * t255;
7851   t17348 = 0.4e1 * t1210 * t2079 + 0.2e1 * t1765 * t1618 + 0.4e1 * t510 * t5249 + 0.36e2 * t17218 + 0.36e2 * t17223 + 0.36e2 * t17226 + 0.36e2 * t17229 + 0.18e2 * t17235 + 0.18e2 * t17238 + 0.18e2 * t17325 + t1767 + t1771 + t4443 + t4449 + t6531 + t6539;
7852   t17349 = t17348 * t23;
7853   t17350 = -0.54e2 * t10531 * t1996 + 0.6e1 * t11265 * t682 + 0.12e2 * t5328 * t1215 + 0.12e2 * t1220 * t5260 + 0.12e2 * t13908 * t513 + 0.6e1 * t4395 * t1623 + 0.12e2 * t1628 * t4444 + 0.12e2 * t256 * t17325 + 0.6e1 * t17328 * t249 + 0.12e2 * t4158 * t1768 + 0.6e1 * t4158 * t1770 + 0.12e2 * t3167 * t2084 + 0.12e2 * t755 * t6534 - t17349 + t5183 - t5185 + t5187;
7854   t17352 = t17234 + t17271 + t17306 + t17350;
7855   t17360 = t6576 * t450;
7856   t17391 = t813 * t17;
7857   t17392 = t510 * t526;
7858   t17393 = t17392 * t283;
7859   t17397 = t17392 * t246;
7860   t17406 = 0.108e3 * t12927 * t2094 + 0.108e3 * t11381 * t2094 + 0.108e3 * t11371 * t2094 + 0.108e3 * t5131 * t5356 + 0.108e3 * t5131 * t5359 - 0.12e2 * t1220 * t5436 - 0.12e2 * t1220 * t5433 - 0.12e2 * t1220 * t5427 - 0.12e2 * t3167 * t2102 - 0.12577644938271604938e0 * t516 * t1326 * t693 - 0.12577644938271604938e0 * t1218 * t572 * t693 + 0.42260886992592592593e0 * t4168 * t17391 * t17393 - 0.60372695703703703704e0 * t4168 * t14192 * t17397 + 0.27167713066666666667e1 * t5470 * t14188 * t17397 + 0.54e2 * t4001 * t5147;
7861   t17435 = t692 * t4448;
7862   t17438 = t692 * t4524;
7863   t17442 = t352 * t1996 * t283;
7864   t17445 = -0.12e2 * t13908 * t518 - 0.12e2 * t1220 * t5412 - 0.9e1 / 0.50e2 * t632 * t5443 - 0.9e1 / 0.50e2 * t1505 * t2135 - 0.9e1 / 0.50e2 * t1507 * t2135 - 0.9e1 / 0.50e2 * t195 * t5396 * t1550 - 0.9e1 / 0.100e3 * t195 * t1686 * t4557 + t17352 * t194 * t217 + t6541 * t403 - 0.9e1 / 0.50e2 * t2129 * t1516 - 0.9e1 / 0.50e2 * t444 * t6698 - 0.12e2 * t256 * t3898 * t2079 - 0.9e1 / 0.50e2 * t408 * t6698 + 0.75465869629629629630e0 * t4168 * t17435 - 0.33959641333333333334e1 * t5470 * t17438 + 0.13583856533333333334e1 * t5470 * t17442;
7865   t17447 = t692 * t4503;
7866   t17450 = t692 * t4506;
7867   t17453 = t692 * t4510;
7868   t17460 = t3152 * t4167;
7869   t17467 = t1791 * t17;
7870   t17469 = t813 * t17467 * t246;
7871   t17477 = t352 * t1215 * t526;
7872   t17481 = t352 * t513 * t1255;
7873   t17485 = t352 * t1768 * t283;
7874   t17488 = t692 * t4446;
7875   t17491 = -0.20375784800000000001e2 * t5470 * t17447 - 0.67919282666666666668e1 * t5470 * t17450 + 0.40751569600000000001e2 * t14683 * t17453 - 0.30186347851851851852e0 * t14665 * t5464 + 0.15093173925925925926e1 * t14665 * t5467 - 0.67919282666666666667e1 * t17460 * t5471 - 0.30186347851851851851e0 * t14649 * t5460 - 0.30186347851851851851e0 * t14665 * t5460 + 0.21130443496296296296e0 * t4168 * t17469 - 0.30186347851851851852e0 * t10856 * t6711 - 0.30186347851851851852e0 * t10860 * t6711 - 0.30186347851851851852e0 * t4168 * t17477 - 0.30186347851851851852e0 * t4168 * t17481 - 0.30186347851851851852e0 * t4168 * t17485 + 0.15093173925925925926e1 * t4168 * t17488;
7876   t17504 = t516 * t5531;
7877   t17523 = -0.62888224691358024691e-1 * t252 * t1887 * t693 - 0.62888224691358024691e-1 * t24 * t4743 * t693 + 0.10481370781893004115e0 * t6716 * t662 + 0.50310579753086419752e-1 * t14490 * t2115 + 0.50310579753086419752e-1 * t14493 * t2115 + 0.50310579753086419752e-1 * t17504 * t1662 - 0.12e2 * t3878 * t6538 - 0.12e2 * t1234 * t17235 - 0.12e2 * t1234 * t17238 - 0.24e2 * t11378 * t2082 - 0.24e2 * t1234 * t17223 - 0.24e2 * t1234 * t17226 - 0.24e2 * t1234 * t17229 - 0.12e2 * t3892 * t6538 - t4580 + t4582;
7878   t17552 = t6576 * t443 * t217 - 0.12e2 * t755 * t6695 - t1790 - 0.12e2 * t1628 * t4607 - t4614 - t4616 - 0.6e1 * t755 * t6675 + 0.83359506542156099039e-5 * t24 * t338 * t6633 * t351 + 0.54e2 * t16880 * t1635 - 0.12e2 * t16877 * t1621 - 0.648e3 * t14552 * t4510 - 0.12e2 * t5490 * t4448 + 0.54e2 * t5493 * t4524 + 0.324e3 * t5493 * t4503 + 0.108e3 * t5493 * t4506;
7879   t17563 = t6639 * t473;
7880   t17566 = t2198 * t1550;
7881   t17586 = t632 * t5519 / 0.5e1 + t5404 * t650 / 0.5e1 + t1507 * t2164 / 0.5e1 + t1505 * t2164 / 0.5e1 - 0.6e1 * t1628 * t4594 - 0.4959e4 / 0.10000e5 * t14563 * t17563 + 0.171e3 / 0.500e3 * t5544 * t17566 + 0.171e3 / 0.1000e4 * t699 * t5114 - 0.9e1 / 0.50e2 * t699 * t4597 + 0.83359506542156099039e-5 * t252 * t6702 - 0.12e2 * t5328 * t1242 - 0.6e1 * t17328 * t258 - t6681 + 0.171e3 / 0.1000e4 * t195 * t10916 * t2008 + 0.171e3 / 0.1000e4 * t444 * t6665 + 0.171e3 / 0.1000e4 * t408 * t6665;
7882   t17609 = t1773 * t1649;
7883   t17620 = -0.83850966255144032920e-1 * t14477 * t2115 - 0.83850966255144032920e-1 * t14496 * t2115 - 0.12e2 * t755 * t6662 + t699 * t4566 / 0.10e2 - 0.6e1 * t256 * t4593 * t1618 - 0.6e1 * t11265 * t687 + t1676 * t2028 / 0.10e2 + t1678 * t2028 / 0.10e2 + t2129 * t1551 / 0.5e1 + t6670 * t474 / 0.10e2 + 0.25155289876543209876e-1 * t17609 * t1662 + 0.50310579753086419752e-1 * t5539 * t5234 - 0.35217405827160493826e-1 * t4222 * t6648 - 0.35217405827160493826e-1 * t4219 * t6648 + 0.50310579753086419752e-1 * t5532 * t5234;
7884   t17637 = t1220 * t5531;
7885   t17644 = t113 * t246;
7886   t17659 = 0.50310579753086419752e-1 * t14480 * t2115 + 0.50310579753086419752e-1 * t14483 * t2115 - 0.12e2 * t4158 * t1782 + 0.56599402222222222223e1 * t10966 * t6733 - 0.12577644938271604938e1 * t14232 * t2109 - 0.70434811654320987653e-1 * t5539 * t5558 - 0.70434811654320987653e-1 * t5532 * t5558 - 0.12577644938271604938e1 * t4062 * t6741 + 0.75465869629629629628e0 * t17637 * t1653 + 0.75465869629629629630e0 * t4080 * t6741 + 0.75465869629629629630e0 * t4084 * t6741 + 0.75465869629629629630e0 * t1650 * t37 * t17644 * t1763 + 0.84521773985185185182e-1 * t1661 * t37 * t17057 - 0.70434811654320987652e-1 * t1661 * t37 * t17060 + 0.37732934814814814815e0 * t4080 * t6729 + 0.37732934814814814815e0 * t4084 * t6729;
7887   t17663 = t1887 * t104;
7888   t17664 = t256 * t17663;
7889   t17669 = t4395 * t1649;
7890   t17696 = 0.37732934814814814815e0 * t17664 * t1653 + 0.75465869629629629630e0 * t5561 * t5565 + 0.37732934814814814815e0 * t17669 * t1653 - 0.12577644938271604938e1 * t14203 * t2109 - 0.62888224691358024692e0 * t4062 * t6729 + 0.75465869629629629630e0 * t5568 * t5565 + 0.75465869629629629630e0 * t14170 * t2109 + 0.75465869629629629630e0 * t14174 * t2109 + 0.75465869629629629630e0 * t14335 * t2109 + 0.75465869629629629630e0 * t14248 * t2109 - 0.33959641333333333334e1 * t11000 * t6733 - 0.33959641333333333334e1 * t11003 * t6733 + 0.108e3 * t4574 * t5356 + 0.108e3 * t4574 * t5359 + t444 * t6749 / 0.10e2;
7891   t17713 = t6642 * t473;
7892   t17719 = t6645 * t473;
7893   t17722 = t6534 * t249;
7894   t17731 = t762 * t14648;
7895   t17734 = -0.9e1 / 0.100e3 * t1676 * t2009 + t408 * t6749 / 0.10e2 - 0.9e1 / 0.100e3 * t1678 * t2009 - 0.9e1 / 0.50e2 * t632 * t5496 - 0.12e2 * t1628 * t5134 - 0.12e2 * t1628 * t4604 - 0.12e2 * t1628 * t5108 - 0.12e2 * t4158 * t1785 + 0.171e3 / 0.500e3 * t5544 * t17713 + 0.171e3 / 0.500e3 * t632 * t2425 * t5545 + 0.171e3 / 0.1000e4 * t5544 * t17719 + 0.1080e4 * t1226 * t17722 + 0.10481370781893004115e0 * t6719 * t662 - 0.30186347851851851852e0 * t14649 * t5464 + 0.15093173925925925926e1 * t14649 * t5467 - 0.67919282666666666667e1 * t17731 * t5471;
7896   t17737 = t352 * t1770 * t283;
7897   t17740 = t1105 * t6617;
7898   t17751 = t4109 * t4442;
7899   t17773 = -0.15093173925925925926e0 * t4168 * t17737 - 0.9e1 / 0.100e3 * t195 * t17740 * t473 - 0.9e1 / 0.100e3 * t408 * t6707 + 0.108e3 * t11489 * t2094 - 0.9e1 / 0.50e2 * t195 * t14144 * t649 - 0.648e3 * t3889 * t17751 + 0.2e1 * t2087 * t1492 + t17349 * t150 + 0.50310579753086419753e0 * t10853 * t6711 - 0.24e2 * t4589 * t5254 - 0.24e2 * t4589 * t5256 - 0.24e2 * t11393 * t2082 - 0.24e2 * t4589 * t5252 - 0.62888224691358024691e-1 * t4451 * t102 * t693 - 0.62888224691358024691e-1 * t1773 * t338 * t693;
7900   t17776 = t4161 * t4440;
7901   t17784 = t5328 * t150;
7902   t17787 = t13900 * t150;
7903   t17806 = t10699 * t4444;
7904   t17809 = -0.1296e4 * t11563 * t5227 + 0.648e3 * t1226 * t17776 - 0.24e2 * t11422 * t2082 + 0.58695676378600823043e-1 * t4216 * t6648 + t685 * t5105 - 0.24e2 * t17784 * t1213 + 0.108e3 * t17787 * t1228 - 0.12e2 * t15717 * t1621 + 0.54e2 * t15720 * t1635 + t5406 * t650 / 0.5e1 + t1626 * t1992 - 0.24e2 * t11486 * t2082 - 0.9e1 / 0.100e3 * t444 * t6707 - 0.9e1 / 0.100e3 * t195 * t4209 * t2027 - 0.58351654579509269327e-4 * t24 * t6045 - 0.7776e4 * t3889 * t17806;
7905   t17812 = t4109 * t4440;
7906   t17815 = t10422 * t4444;
7907   t17832 = t6633 * t781;
7908   t17833 = t17832 * t283;
7909   t17849 = -0.1296e4 * t3889 * t17812 + 0.9720e4 * t10079 * t17815 + 0.648e3 * t4574 * t5224 - 0.24e2 * t4571 * t5252 - 0.24e2 * t4571 * t5254 - 0.24e2 * t4571 * t5256 - 0.24e2 * t1234 * t17218 - 0.24e2 * t3892 * t6536 - 0.24e2 * t3878 * t6536 - 0.11670330915901853865e-4 * t690 * t17833 - 0.12e2 * t256 * t6661 * t1618 - 0.9e1 / 0.100e3 * t699 * t5118 - 0.12e2 * t256 * t403 * t1763 * t679 + 0.108e3 * t3895 * t6564 + 0.108e3 * t3875 * t6564;
7910   t17858 = t24 * t17663;
7911   t17875 = t4161 * t4442;
7912   t17882 = t13706 * t1206;
7913   t17885 = 0.108e3 * t1226 * t17207 + 0.108e3 * t1226 * t17210 + 0.54e2 * t3895 * t6567 + 0.54e2 * t3875 * t6567 + 0.25155289876543209876e-1 * t17858 * t1662 - 0.9e1 / 0.100e3 * t2004 * t1687 - 0.9e1 / 0.50e2 * t632 * t5397 + 0.2e1 * t5263 * t627 - 0.24e2 * t16899 * t1621 + 0.108e3 * t16902 * t1635 - 0.24e2 * t4589 * t5258 + 0.108e3 * t5131 * t5373 + 0.324e3 * t1226 * t17875 - 0.1296e4 * t11554 * t5227 + 0.648e3 * t5131 * t5224 - 0.1296e4 * t3889 * t17882;
7914   t17887 = t256 * t102;
7915   t17903 = t13687 * t1206;
7916   t17908 = t4001 * t627;
7917   t17921 = t1628 * t627;
7918   t17924 = -0.50015703925293659423e-4 * t17887 * t6634 * t249 - 0.12e2 * t3167 * t2097 - 0.12e2 * t256 * t1241 * t5249 - 0.6e1 * t256 * t11535 * t679 + t6731 - 0.12e2 * t5328 * t1231 - 0.12e2 * t5328 * t1237 + 0.648e3 * t1226 * t17903 + 0.20962741563786008230e0 * t6722 * t662 + 0.108e3 * t17908 * t1228 - 0.648e3 * t8624 * t6558 - 0.648e3 * t3889 * t17197 - 0.24e2 * t5490 * t4446 + 0.324e3 * t3895 * t6561 + 0.324e3 * t3875 * t6561 - 0.24e2 * t17921 * t1213;
7919   t17953 = 0.73e2 / 0.3645e4 * t37 * t1527 * t2079 - 0.73e2 / 0.81e2 * t6362 - t6596 + t6602 + 0.292e3 / 0.135e3 * t1705 * t1765 + 0.584e3 / 0.135e3 * t5299 * t510 + 0.584e3 / 0.135e3 * t5302 * t510 + 0.584e3 / 0.135e3 * t2153 * t1210 + 0.292e3 / 0.135e3 * t1702 * t1765 - t4548 + t4550 + t4556 - t2022;
7920   t17985 = t2026 + t6613 + 0.73e2 / 0.135e3 * t691 * t6593 * t246 + 0.146e3 / 0.135e3 * t691 * t2142 * t1210 + 0.73e2 / 0.9720e4 * t37 * t41 * t5249 * t213 - 0.73e2 / 0.4860e4 * t37 * t6603 * t246 - 0.73e2 / 0.4860e4 * t37 * t5292 * t510 - 0.73e2 / 0.4860e4 * t37 * t2149 * t1210 - 0.73e2 / 0.9720e4 * t37 * t640 * t5249 - 0.73e2 / 0.3645e4 * t37 * t273 * t2079 * t213 + 0.146e3 / 0.3645e4 * t37 * t5288 * t510 + 0.73e2 / 0.162e3 * t6359 - 0.73e2 / 0.162e3 * t6365;
7921   t17986 = t17953 + t17985;
7922   t18002 = 0.108e3 * t4574 * t5373 + 0.324e3 * t1226 * t17202 + 0.54e2 * t1226 * t17215 - 0.648e3 * t8621 * t6558 + t6761 - 0.24e2 * t4571 * t5258 - t6769 + t5191 * t714 / 0.10e2 + t2004 * t1715 / 0.10e2 + t195 * t450 * t17986 / 0.10e2 + t5189 * t714 / 0.10e2 - 0.6e1 * t4395 * t1638 - 0.6e1 * t4395 * t1643 - 0.6e1 * t4158 * t1788 - 0.6e1 * t1628 * t4612 + 0.54e2 * t10531 * t1779;
7923   t18011 = t17352 * t217 - t4404 - t4420 + 0.2e1 * t5263 * t666 + 0.2e1 * t2087 * t1595 + t17349 * t231 + t6541 * t498 + t17360 * t473 / 0.10e2 + t685 * t4494 - 0.12e2 * t256 * t3074 * t2079 - p->cam_beta * (t17406 + t17445 + t17491 + t17523 + t17552 + t17586 + t17620 + t17659 + t17696 + t17734 + t17773 + t17809 + t17849 + t17885 + t17924 + t18002) - 0.6e1 * t1628 * t4406 + t1626 * t2062;
7924   t18039 = -0.4959e4 / 0.10000e5 * t8516 * t17563 - 0.11670330915901853865e-4 * t24 * t17833 - 0.12e2 * t1220 * t5598 - 0.12e2 * t3167 * t2182 - 0.12e2 * t1220 * t5587 - 0.12e2 * t1220 * t5590 - 0.12e2 * t1220 * t5595 - 0.6e1 * t11265 * t720 - 0.6e1 * t4395 * t1728 - 0.6e1 * t4395 * t1733 - 0.12e2 * t3167 * t2177 - 0.6e1 * t4158 * t2047 - 0.6e1 * t1628 * t4402;
7925   t18066 = 0.54e2 * t10531 * t2038 + 0.54e2 * t4001 * t5201 + 0.171e3 / 0.1000e4 * t2426 * t17719 - 0.24e2 * t4513 * t5254 - 0.24e2 * t4513 * t5256 - 0.24e2 * t1568 * t17218 - 0.24e2 * t3174 * t6536 - 0.24e2 * t3197 * t6536 - 0.24e2 * t1568 * t17223 - 0.24e2 * t1568 * t17226 - 0.24e2 * t1568 * t17229 - 0.12e2 * t3174 * t6538 - 0.12e2 * t3197 * t6538;
7926   t18098 = -0.12e2 * t1568 * t17235 - 0.12e2 * t1568 * t17238 - 0.62888224691358024691e-1 * t4451 * t104 * t114 - 0.24e2 * t5638 * t4446 - 0.12e2 * t1628 * t4421 - 0.12e2 * t1628 * t4424 - 0.12e2 * t1628 * t4411 - 0.12e2 * t1628 * t4416 - 0.12e2 * t5328 * t1571 - 0.12e2 * t4158 * t2041 - 0.12e2 * t256 * t6579 * t1618 - 0.12e2 * t4158 * t2044 - 0.12e2 * t256 * t1575 * t5249;
7927   t18125 = t5328 * t231;
7928   t18128 = -0.12e2 * t256 * t498 * t1763 * t679 - 0.24e2 * t18125 * t1213 - 0.648e3 * t13733 * t4510 - 0.12e2 * t16965 * t1621 - 0.24e2 * t16971 * t1621 + 0.54e2 * t16968 * t1635 + 0.108e3 * t16974 * t1635 - 0.24e2 * t4496 * t5258 + 0.108e3 * t4499 * t5373 + 0.324e3 * t5641 * t4503 + 0.108e3 * t5641 * t4506 + 0.54e2 * t5641 * t4524 - 0.12e2 * t755 * t6580;
7929   t18130 = t13900 * t231;
7930   t18133 = t1628 * t666;
7931   t18136 = t4001 * t666;
7932   t18158 = 0.108e3 * t18130 * t1228 - 0.24e2 * t18133 * t1213 + 0.108e3 * t18136 * t1228 - 0.12e2 * t5638 * t4448 - 0.9e1 / 0.100e3 * t1194 * t6617 * t473 + t6624 + t501 * t17986 / 0.10e2 + t3288 * t2163 / 0.5e1 + t1191 * t6617 / 0.10e2 + t4388 * t1714 / 0.10e2 + t13293 * t713 / 0.10e2 + t4294 * t2027 / 0.10e2 + t1749 * t4557 / 0.10e2;
7933   t18186 = -0.9e1 / 0.100e3 * t11052 * t2008 - 0.9e1 / 0.50e2 * t13427 * t1603 - 0.9e1 / 0.50e2 * t3216 * t5662 - 0.9e1 / 0.100e3 * t1194 * t1714 * t2027 - 0.9e1 / 0.100e3 * t2420 * t6645 - 0.83850966255144032920e-1 * t5655 * t2115 + 0.58695676378600823043e-1 * t1743 * t6648 + 0.21130443496296296296e0 * t1739 * t17469 - 0.30186347851851851851e0 * t5665 * t5460 - 0.30186347851851851852e0 * t1739 * t17481 - 0.30186347851851851852e0 * t1739 * t17485 + 0.15093173925925925926e1 * t1739 * t17488 + 0.50310579753086419753e0 * t4364 * t6711;
7934   t18218 = -0.15093173925925925926e0 * t1739 * t17737 + 0.75465869629629629630e0 * t1739 * t17435 - 0.33959641333333333334e1 * t4376 * t17438 + 0.13583856533333333334e1 * t4376 * t17442 - 0.20375784800000000001e2 * t4376 * t17447 - 0.67919282666666666668e1 * t4376 * t17450 + 0.40751569600000000001e2 * t11126 * t17453 - 0.30186347851851851852e0 * t4370 * t6711 - 0.30186347851851851852e0 * t1739 * t17477 - 0.9e1 / 0.50e2 * t1194 * t2163 * t1550 - 0.9e1 / 0.100e3 * t13306 * t1754 - 0.9e1 / 0.50e2 * t1194 * t5323 * t649 - 0.9e1 / 0.50e2 * t2420 * t6642;
7935   t18246 = -0.6e1 * t256 * t4405 * t1618 - 0.12e2 * t755 * t6585 + 0.171e3 / 0.500e3 * t10208 * t5545 + t5270 * t1550 / 0.5e1 + t13381 * t649 / 0.5e1 + t1598 * t5323 / 0.5e1 + 0.54e2 * t3177 * t6567 + 0.54e2 * t3180 * t6567 + 0.54e2 * t1562 * t17215 - 0.648e3 * t10313 * t6558 - 0.648e3 * t10318 * t6558 - 0.648e3 * t3190 * t17197 - 0.24e2 * t13163 * t2082;
7936   t18266 = t256 * t6633;
7937   t18267 = t351 * t17;
7938   t18277 = -0.24e2 * t13128 * t2082 - 0.24e2 * t4513 * t5252 + 0.108e3 * t13131 * t2094 + 0.108e3 * t4516 * t5356 + 0.108e3 * t4516 * t5359 + 0.108e3 * t3177 * t6564 + 0.108e3 * t3180 * t6564 + 0.108e3 * t1562 * t17207 + 0.108e3 * t1562 * t17210 - 0.50015703925293659423e-4 * t18266 * t18267 * t246 + 0.54e2 * t16980 * t1635 - 0.24e2 * t4513 * t5258 + 0.108e3 * t4516 * t5373;
7939   t18304 = -0.24e2 * t13113 * t2082 + 0.108e3 * t13117 * t2094 - 0.24e2 * t13120 * t2082 + 0.108e3 * t13123 * t2094 + 0.108e3 * t13146 * t2094 + 0.324e3 * t1562 * t17202 + 0.324e3 * t3177 * t6561 + 0.324e3 * t3180 * t6561 - 0.24e2 * t4496 * t5252 - 0.24e2 * t4496 * t5254 - 0.24e2 * t4496 * t5256 + 0.108e3 * t4499 * t5356 + 0.108e3 * t4499 * t5359;
7940   t18315 = t781 * t17;
7941   t18334 = -0.12e2 * t16977 * t1621 - t4522 + t4526 - 0.6e1 * t17328 * t481 - 0.12e2 * t5328 * t1576 - 0.6e1 * t755 * t6590 + 0.42260886992592592593e0 * t13798 * t18315 * t17393 - 0.60372695703703703704e0 * t13798 * t13799 * t17397 + 0.27167713066666666667e1 * t13805 * t13806 * t17397 - 0.9e1 / 0.50e2 * t3216 * t5646 - 0.9e1 / 0.100e3 * t1194 * t713 * t4557 - 0.9e1 / 0.50e2 * t10205 * t2198 - 0.9e1 / 0.50e2 * t4360 * t4433;
7942   t18362 = 0.171e3 / 0.1000e4 * t11103 * t4430 + 0.171e3 / 0.500e3 * t2426 * t17713 - 0.30186347851851851852e0 * t5665 * t5464 + 0.15093173925925925926e1 * t5665 * t5467 - 0.67919282666666666667e1 * t13440 * t5471 - 0.6e1 * t256 * t12997 * t679 - 0.58351654579509269327e-4 * t24 * t1989 + 0.25155289876543209876e-1 * t6803 * t1662 + 0.50310579753086419752e-1 * t5635 * t2115 + 0.50310579753086419752e-1 * t2185 * t5234 + 0.1080e4 * t1562 * t17722 + 0.648e3 * t1562 * t17776 - 0.7776e4 * t3190 * t17806;
7943   t18391 = 0.648e3 * t4499 * t5224 - 0.1296e4 * t11298 * t5227 + 0.648e3 * t4516 * t5224 - 0.1296e4 * t13168 * t5227 + 0.648e3 * t1562 * t17903 - 0.1296e4 * t3190 * t17882 + 0.324e3 * t1562 * t17875 - 0.648e3 * t3190 * t17751 - 0.1296e4 * t3190 * t17812 + 0.9720e4 * t10329 * t17815 - 0.9e1 / 0.100e3 * t4360 * t4427 + 0.171e3 / 0.1000e4 * t2426 * t1714 * t2008 - 0.9e1 / 0.50e2 * t3216 * t5659;
7944   t18414 = 0.83359506542156099039e-5 * t252 * t6634 + 0.171e3 / 0.1000e4 * t8519 * t6639 - 0.12577644938271604938e1 * t13435 * t2188 - 0.62888224691358024692e0 * t4364 * t6622 + 0.56599402222222222223e1 * t11110 * t6625 + 0.84521773985185185182e-1 * t5673 * t4962 - 0.70434811654320987652e-1 * t5673 * t4965 - 0.12577644938271604938e1 * t4364 * t6628 + t6794 - t6802 + 0.171e3 / 0.500e3 * t2426 * t17566 - 0.12e2 * t13908 * t656 - 0.12e2 * t5328 * t1565;
7945   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7946     v4rhosigma2tau[0] = -t1203 * t6813 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t241 * (t17194 + t18011 + t18039 + t18066 + t18098 + t18128 + t18158 + t18186 + t18218 + t18246 + t18277 + t18304 + t18334 + t18362 + t18391 + t18414);
7947 
7948   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7949     v4rhosigmalapl2[0] = 0.0e0;
7950 
7951   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
7952     v4rhosigmalapltau[0] = 0.0e0;
7953 
7954   t18439 = t6846 * t255;
7955   t18448 = -0.9e1 / 0.50e2 * t4360 * t5659 - 0.9e1 / 0.100e3 * t3216 * t5966 - 0.9e1 / 0.100e3 * t15651 * t1603 - 0.9e1 / 0.50e2 * t3216 * t5958 - 0.9e1 / 0.50e2 * t2420 * t7091 - 0.9e1 / 0.50e2 * t1194 * t1714 * t2163 + 0.171e3 / 0.500e3 * t11103 * t5545 - 0.6e1 * t18439 * t481 - 0.6e1 * t5754 * t1576 - 0.6e1 * t5754 * t1571 - 0.12e2 * t13908 * t720;
7956   t18457 = my_piecewise3(t15, -t242 * t2210 / 0.4e1, 0);
7957   t18465 = t15106 * t1206;
7958   t18468 = t15088 * t1206;
7959   t18475 = t6838 * t249;
7960   t18481 = -0.12e2 * t5328 * t1728 - 0.12e2 * t5328 * t1733 - 0.12e2 * t4158 * t2177 - 0.6e1 * t256 * t480 * t18457 - 0.6e1 * t14951 * t656 - 0.6e1 * t5754 * t1565 + 0.324e3 * t1562 * t18465 - 0.648e3 * t3190 * t18468 + 0.50310579753086419752e-1 * t5713 * t2115 + 0.50310579753086419752e-1 * t2287 * t5234 + 0.1080e4 * t1562 * t18475 - 0.9e1 / 0.50e2 * t1194 * t713 * t5323;
7961   t18488 = t7088 * t473;
7962   t18491 = t2198 * t1714;
7963   t18499 = t352 * t1623 * t526;
7964   t18503 = t352 * t682 * t1255;
7965   t18508 = t692 * t5252;
7966   t18511 = t692 * t5254;
7967   t18514 = t692 * t5256;
7968   t18517 = 0.171e3 / 0.1000e4 * t2426 * t2255 * t1550 - 0.9e1 / 0.100e3 * t2420 * t7101 - 0.4959e4 / 0.10000e5 * t8516 * t18488 + 0.171e3 / 0.500e3 * t2426 * t18491 + 0.171e3 / 0.1000e4 * t8519 * t7088 - 0.30186347851851851852e0 * t4370 * t7001 - 0.30186347851851851852e0 * t1739 * t18499 - 0.30186347851851851852e0 * t1739 * t18503 + 0.15093173925925925926e1 * t4370 * t7004 + 0.15093173925925925926e1 * t1739 * t18508 + 0.15093173925925925926e1 * t1739 * t18511 + 0.15093173925925925926e1 * t1739 * t18514;
7969   t18520 = t692 * t5356;
7970   t18523 = t692 * t5359;
7971   t18533 = t352 * t2084 * t283;
7972   t18536 = t692 * t5258;
7973   t18539 = t692 * t5373;
7974   t18548 = -0.67919282666666666667e1 * t11120 * t7007 - 0.67919282666666666667e1 * t4376 * t18520 - 0.67919282666666666667e1 * t4376 * t18523 + 0.324e3 * t4499 * t5717 + 0.108e3 * t4499 * t5720 + 0.50310579753086419753e0 * t4364 * t7001 - 0.30186347851851851852e0 * t1739 * t18533 + 0.15093173925925925926e1 * t1739 * t18536 - 0.67919282666666666667e1 * t4376 * t18539 - 0.30186347851851851851e0 * t5974 * t5464 + 0.15093173925925925926e1 * t5974 * t5467 - 0.67919282666666666665e1 * t15547 * t5471;
7975   t18571 = t1210 * t2207;
7976   t18573 = t2075 * t1618;
7977   t18575 = t1614 * t2079;
7978   t18577 = t1619 * t2079;
7979   t18579 = t680 * t5249;
7980   t18581 = t5739 * t510;
7981   t18583 = t5744 * t510;
7982   t18585 = t2214 * t1210;
7983   t18587 = t6836 * t246;
7984   t18589 = t17 * t18457;
7985   t18591 = 0.2e1 * t1210 * t2213 + 0.2e1 * t16 * t18457 + 0.4e1 * t1618 * t2079 + 0.2e1 * t246 * t6835 + 0.2e1 * t510 * t5743 + 0.4e1 * t679 * t5249 + 0.18e2 * t18571 + 0.36e2 * t18573 + 0.36e2 * t18575 + 0.36e2 * t18577 + 0.36e2 * t18579 + 0.18e2 * t18581 + 0.18e2 * t18583 + 0.18e2 * t18585 + 0.18e2 * t18587 + 0.9e1 * t18589;
7986   t18592 = t18591 * t23;
7987   t18605 = -0.30186347851851851852e0 * t5665 * t5906 + 0.15093173925925925926e1 * t5665 * t5868 - 0.67919282666666666667e1 * t13440 * t5871 + t5971 * t1550 / 0.10e2 + t18592 * t231 + t6847 * t498 + t15654 * t649 / 0.10e2 + t2221 * t1595 + t5753 * t666 - 0.12e2 * t1628 * t5598 - 0.12e2 * t4158 * t2182 - 0.12e2 * t1628 * t5587;
7988   t18606 = t4161 * t5243;
7989   t18609 = t14968 * t1206;
7990   t18612 = t4161 * t5245;
7991   t18615 = t4109 * t5245;
7992   t18618 = t4109 * t5243;
7993   t18621 = t15011 * t1206;
7994   t18637 = 0.648e3 * t1562 * t18606 - 0.7776e4 * t3190 * t18609 + 0.648e3 * t1562 * t18612 - 0.1296e4 * t3190 * t18615 - 0.1296e4 * t3190 * t18618 + 0.9720e4 * t10329 * t18621 + 0.108e3 * t13722 * t2094 + 0.108e3 * t13725 * t2094 + 0.108e3 * t5641 * t5356 + 0.108e3 * t5641 * t5359 - 0.12577644938271604938e0 * t5263 * t104 * t114 + 0.324e3 * t3177 * t6900;
7995   t18641 = t5716 * t1210;
7996   t18644 = t679 * t526;
7997   t18645 = t18644 * t283;
7998   t18649 = t18644 * t246;
7999   t18653 = t6921 * t450;
8000   t18674 = 0.324e3 * t3180 * t6900 + 0.324e3 * t1562 * t18641 + 0.42260886992592592593e0 * t13798 * t18315 * t18645 - 0.60372695703703703704e0 * t13798 * t13799 * t18649 + t18653 * t473 / 0.10e2 - 0.12e2 * t256 * t498 * t510 * t2207 - 0.12e2 * t256 * t231 * t1210 * t2207 - 0.6e1 * t3167 * t2299 - 0.6e1 * t1220 * t6015 - 0.6e1 * t1220 * t6018 + t1749 * t5323 / 0.5e1 - 0.9e1 / 0.100e3 * t10205 * t2255;
8001   t18701 = t763 * t6835;
8002   t18702 = t18701 * t246;
8003   t18705 = t4294 * t2163 / 0.5e1 - 0.6e1 * t256 * t1575 * t5743 - 0.6e1 * t755 * t6862 - 0.6e1 * t256 * t1156 * t6835 - 0.9e1 / 0.50e2 * t4360 * t5646 - 0.9e1 / 0.50e2 * t11052 * t2198 - 0.9e1 / 0.100e3 * t1194 * t2278 * t1550 - 0.12e2 * t1628 * t5595 - 0.6e1 * t755 * t6859 - 0.6e1 * t256 * t3074 * t2213 - 0.12e2 * t1568 * t18587 + 0.54e2 * t1562 * t18702;
8004   t18709 = t5754 * t231;
8005   t18712 = t14857 * t231;
8006   t18735 = -0.648e3 * t11298 * t5724 - 0.12e2 * t18709 * t1213 + 0.54e2 * t18712 * t1228 - 0.648e3 * t13168 * t5724 - 0.24e2 * t18125 * t1621 - 0.24e2 * t18133 * t1621 + 0.108e3 * t18130 * t1635 + 0.108e3 * t18136 * t1635 + 0.324e3 * t4516 * t5717 + 0.108e3 * t4516 * t5720 - 0.24e2 * t5638 * t5258 + 0.108e3 * t5641 * t5373;
8007   t18740 = t5328 * t691;
8008   t18760 = t2075 * t283;
8009   t18767 = -0.24e2 * t4496 * t5727 - 0.24e2 * t4513 * t5727 + 0.75465869629629629628e0 * t18740 * t1740 - 0.70434811654320987653e-1 * t685 * t691 * t1263 + 0.54e2 * t762 * t10355 * t2207 - 0.12e2 * t3167 * t2296 + 0.54e2 * t2338 * t6867 + 0.54e2 * t8719 * t2290 + 0.54e2 * t3152 * t5955 + 0.27167713066666666667e1 * t13805 * t13806 * t18649 - 0.60372695703703703704e0 * t13798 * t13799 * t18760 - 0.40751569600000000000e2 * t13805 * t10975 * t5252;
8010   t18792 = t15081 * t510;
8011   t18795 = t5733 * t1210;
8012   t18798 = 0.27167713066666666667e1 * t13805 * t13806 * t18760 + 0.81503139200000000000e2 * t2372 * t13797 * t10990 * t5252 - 0.24e2 * t1568 * t18579 - 0.12e2 * t3174 * t6842 - 0.12e2 * t3197 * t6842 - 0.12e2 * t1568 * t18581 - 0.12e2 * t1568 * t18583 - 0.12e2 * t1568 * t18585 + 0.54e2 * t3177 * t6914 + 0.54e2 * t3180 * t6914 + 0.54e2 * t1562 * t18792 + 0.54e2 * t1562 * t18795;
8013   t18825 = -0.24e2 * t13713 * t2082 - 0.24e2 * t13657 * t2082 - 0.24e2 * t5638 * t5252 - 0.24e2 * t5638 * t5254 - 0.24e2 * t5638 * t5256 - 0.9e1 / 0.100e3 * t1194 * t5862 * t649 + 0.20962741563786008230e0 * t2087 * t41 * t114 - 0.12577644938271604938e1 * t4364 * t6820 + 0.75465869629629629628e0 * t15542 * t2188 + 0.75465869629629629628e0 * t5974 * t5670 + 0.75465869629629629630e0 * t13456 * t2293 + 0.75465869629629629630e0 * t5665 * t5979;
8014   t18837 = t7101 * t473;
8015   t18840 = t7091 * t473;
8016   t18857 = 0.75465869629629629630e0 * t4370 * t6820 + 0.75465869629629629630e0 * t1739 * t692 * t5260 - 0.12577644938271604938e1 * t15557 * t2188 - 0.12577644938271604938e1 * t13435 * t2293 + 0.171e3 / 0.1000e4 * t2426 * t18837 + 0.171e3 / 0.500e3 * t2426 * t18840 - 0.12e2 * t256 * t10127 * t2207 - 0.12e2 * t755 * t6872 - 0.12e2 * t1220 * t6007 - 0.12e2 * t1220 * t6010 - 0.12e2 * t1628 * t5590 - 0.12e2 * t256 * t17101 * t2207;
8017   t18906 = -0.6e1 * t256 * t768 * t6835 - 0.6e1 * t256 * t1241 * t5743 - 0.6e1 * t755 * t7026 - 0.6e1 * t3167 * t2238 - 0.6e1 * t1220 * t5874 - 0.6e1 * t5754 * t1242 - 0.9e1 / 0.100e3 * t195 * t15446 * t649 - 0.9e1 / 0.50e2 * t2129 * t1687 - 0.9e1 / 0.100e3 * t632 * t5888 + 0.54e2 * t3895 * t6914 + 0.54e2 * t3875 * t6914 + 0.54e2 * t1226 * t18792 + 0.54e2 * t1226 * t18795;
8018   t18909 = t4126 * t2079;
8019   t18912 = t1634 * t5249;
8020   t18919 = t1105 * t6961;
8021   t18939 = -0.24e2 * t14214 * t2082 + 0.108e3 * t1226 * t18909 + 0.108e3 * t1226 * t18912 - 0.648e3 * t8621 * t6897 - 0.648e3 * t8624 * t6897 - 0.9e1 / 0.100e3 * t195 * t18919 * t473 - 0.12e2 * t1220 * t5790 - 0.30186347851851851852e0 * t10856 * t7001 - 0.30186347851851851852e0 * t10860 * t7001 - 0.30186347851851851852e0 * t4168 * t18499 - 0.30186347851851851852e0 * t4168 * t18503 + 0.15093173925925925926e1 * t10856 * t7004 + 0.15093173925925925926e1 * t10860 * t7004 + 0.15093173925925925926e1 * t4168 * t18508;
8022   t18971 = 0.15093173925925925926e1 * t4168 * t18511 + 0.15093173925925925926e1 * t4168 * t18514 - 0.67919282666666666667e1 * t14672 * t7007 - 0.67919282666666666667e1 * t14662 * t7007 - 0.67919282666666666667e1 * t5470 * t18520 - 0.67919282666666666667e1 * t5470 * t18523 - 0.9e1 / 0.100e3 * t444 * t6973 - 0.9e1 / 0.100e3 * t408 * t6973 - 0.9e1 / 0.50e2 * t195 * t1686 * t5323 - 0.9e1 / 0.50e2 * t195 * t4209 * t2163 - 0.30186347851851851851e0 * t15323 * t5460 + 0.648e3 * t5493 * t5224 + 0.75465869629629629630e0 * t5568 * t5924 + 0.75465869629629629630e0 * t14170 * t2232;
8023   t18984 = t5328 * t1649;
8024   t18999 = t1628 * t5531;
8025   t19004 = 0.75465869629629629630e0 * t14174 * t2232 + 0.75465869629629629630e0 * t1650 * t37 * t1651 * t5249 + 0.75465869629629629630e0 * t14335 * t2232 + 0.75465869629629629630e0 * t14248 * t2232 - 0.70434811654320987653e-1 * t5909 * t5558 + 0.75465869629629629628e0 * t18984 * t1653 + 0.75465869629629629628e0 * t5931 * t5565 + 0.75465869629629629630e0 * t5561 * t5924 + 0.75465869629629629628e0 * t14898 * t2109 + 0.75465869629629629628e0 * t14901 * t2109 + 0.75465869629629629630e0 * t4080 * t7045 + 0.75465869629629629630e0 * t4084 * t7045 + 0.75465869629629629628e0 * t18999 * t1653 + 0.108e3 * t17787 * t1635;
8026   t19009 = t5754 * t150;
8027   t19012 = t14857 * t150;
8028   t19036 = -0.24e2 * t4571 * t5727 - 0.12e2 * t19009 * t1213 + 0.54e2 * t19012 * t1228 - 0.4959e4 / 0.10000e5 * t14563 * t18488 - 0.24e2 * t17921 * t1621 + 0.108e3 * t17908 * t1635 + 0.324e3 * t3895 * t6900 + 0.324e3 * t3875 * t6900 - 0.24e2 * t17784 * t1621 + 0.171e3 / 0.500e3 * t5544 * t18491 + 0.171e3 / 0.1000e4 * t5544 * t18837 + 0.171e3 / 0.500e3 * t699 * t2425 * t5545 - 0.6e1 * t755 * t7022;
8029   t19071 = 0.24e2 * t1220 * t5727 + 0.12e2 * t1220 * t5730 + 0.24e2 * t256 * t18573 + 0.24e2 * t256 * t18575 + 0.24e2 * t256 * t18577 + 0.24e2 * t256 * t18579 + 0.12e2 * t256 * t18581 - 0.324e3 * t762 * t18641 - 0.54e2 * t762 * t18792 - 0.54e2 * t762 * t18795 - 0.108e3 * t762 * t18909 - 0.108e3 * t762 * t18912 - 0.108e3 * t2338 * t6903 - 0.54e2 * t2338 * t6914 - 0.54e2 * t3152 * t5734 + 0.24e2 * t755 * t6840 + 0.12e2 * t755 * t6842;
8030   t19106 = -0.108e3 * t10531 * t2094 + 0.12e2 * t5754 * t1213 - 0.54e2 * t14857 * t1228 - 0.108e3 * t13900 * t1635 + 0.24e2 * t5328 * t1621 + 0.24e2 * t1628 * t5252 + 0.24e2 * t1628 * t5254 + 0.24e2 * t1628 * t5256 + 0.24e2 * t1628 * t5258 + 0.12e2 * t256 * t18583 + 0.12e2 * t256 * t18585 + 0.12e2 * t256 * t18587 - 0.54e2 * t762 * t18702 + 0.24e2 * t4158 * t2082 - 0.108e3 * t4001 * t5356 - 0.108e3 * t4001 * t5359 - 0.108e3 * t4001 * t5373;
8031   t19116 = t5723 * t1210;
8032   t19143 = 0.12e2 * t1220 * t5746 + 0.6e1 * t1220 * t5750 + 0.12e2 * t13908 * t682 + 0.12e2 * t5328 * t1623 + 0.12e2 * t1628 * t5260 + 0.12e2 * t256 * t18571 + 0.648e3 * t2372 * t19116 + 0.12e2 * t3167 * t2216 + 0.6e1 * t3167 * t2218 - 0.54e2 * t8719 * t2243 - 0.324e3 * t2338 * t6900 - 0.324e3 * t3152 * t5717 - 0.108e3 * t3152 * t5720 + 0.648e3 * t8722 * t5724 + 0.12e2 * t755 * t6838 + 0.6e1 * t755 * t6844 + 0.648e3 * t7392 * t6897;
8033   t19164 = t6838 * t246;
8034   t19179 = 0.1296e4 * t10657 * t2373 * t5252 - 0.648e3 * t4001 * t18 * t5252 + 0.6e1 * t5754 * t1215 + 0.7776e4 * t14007 * t19164 - 0.1080e4 * t14011 * t19164 - 0.9720e4 * t14018 * t19164 + 0.6e1 * t14951 * t513 + 0.6e1 * t18439 * t249 + 0.1296e4 * t5350 * t18573 - 0.648e3 * t5353 * t18573 + 0.1296e4 * t5350 * t18575 - 0.648e3 * t5353 * t18575 + 0.648e3 * t5350 * t18581 - 0.324e3 * t5353 * t18581 + 0.6e1 * t256 * t18589 + 0.12e2 * t4158 * t2084 - t18592;
8035   t19181 = t19071 + t19106 + t19143 + t19179;
8036   t19212 = t19181 * t194 * t217 + t6847 * t403 - 0.9e1 / 0.50e2 * t444 * t6970 - 0.9e1 / 0.50e2 * t408 * t6970 - 0.12e2 * t1220 * t5795 - 0.12e2 * t3167 * t2235 - 0.648e3 * t3889 * t18468 - 0.6e1 * t14951 * t518 - 0.12e2 * t256 * t15919 * t2207 - 0.9e1 / 0.50e2 * t699 * t5443 - 0.9e1 / 0.50e2 * t1678 * t2135 - 0.9e1 / 0.50e2 * t1676 * t2135 + 0.171e3 / 0.1000e4 * t195 * t5821 * t1550 - 0.9e1 / 0.100e3 * t195 * t5887 * t1550;
8037   t19240 = 0.171e3 / 0.1000e4 * t408 * t7037 + 0.171e3 / 0.1000e4 * t444 * t7037 - 0.9e1 / 0.50e2 * t699 * t5496 - 0.12e2 * t755 * t7010 + t18592 * t150 + t2221 * t1492 + 0.54e2 * t3152 * t5802 + 0.54e2 * t8719 * t2228 + 0.324e3 * t1226 * t18641 + 0.108e3 * t3895 * t6903 + 0.108e3 * t3875 * t6903 - 0.6e1 * t1220 * t5879 - 0.12e2 * t1628 * t5436 - 0.12e2 * t1628 * t5433;
8038   t19272 = t685 * t5531;
8039   t19277 = -0.12e2 * t4158 * t2102 + 0.54e2 * t762 * t9019 * t2207 - 0.6e1 * t256 * t257 * t18457 - 0.24e2 * t14305 * t2082 - 0.24e2 * t5490 * t5252 - 0.24e2 * t5490 * t5254 - 0.24e2 * t5490 * t5256 + 0.108e3 * t14218 * t2094 + 0.108e3 * t14308 * t2094 - 0.12e2 * t256 * t403 * t510 * t2207 - 0.12e2 * t256 * t150 * t1210 * t2207 - 0.60372695703703703704e0 * t4168 * t14192 * t18760 + 0.50310579753086419752e-1 * t19272 * t1662 - 0.83850966255144032920e-1 * t15435 * t2115;
8040   t19283 = t2087 * t1649;
8041   t19309 = 0.50310579753086419752e-1 * t5909 * t5234 + 0.50310579753086419752e-1 * t19283 * t1662 + 0.50310579753086419752e-1 * t15438 * t2115 + 0.50310579753086419752e-1 * t15441 * t2115 - 0.12e2 * t256 * t8976 * t2207 + t6921 * t443 * t217 + t2251 * t1551 / 0.10e2 + t5939 * t650 / 0.10e2 + t5936 * t650 / 0.10e2 + t6922 * t474 / 0.10e2 + 0.108e3 * t4574 * t5720 - 0.648e3 * t11563 * t5724 - 0.24e2 * t5490 * t5258;
8042   t19343 = 0.324e3 * t1226 * t18465 - 0.1296e4 * t3889 * t18618 + 0.9720e4 * t10079 * t18621 + 0.20962741563786008230e0 * t6979 * t662 + 0.1080e4 * t1226 * t18475 + 0.54e2 * t2338 * t7015 - 0.12e2 * t1628 * t5412 + 0.171e3 / 0.500e3 * t5544 * t18840 - 0.12e2 * t4571 * t5730 + 0.54e2 * t4574 * t5734 - 0.12e2 * t1234 * t18587 - 0.40751569600000000000e2 * t5470 * t692 * t18 * t5252 + 0.27167713066666666667e1 * t5470 * t14188 * t18760 + 0.81503139200000000000e2 * t14683 * t692 * t2373 * t5252;
8043   t19376 = 0.42260886992592592593e0 * t4168 * t17391 * t18645 - 0.60372695703703703704e0 * t4168 * t14192 * t18649 + 0.27167713066666666667e1 * t5470 * t14188 * t18649 - 0.6e1 * t5754 * t1231 + 0.108e3 * t5493 * t5356 + 0.108e3 * t5493 * t5359 + 0.324e3 * t4574 * t5717 - 0.12e2 * t4158 * t2097 + 0.15093173925925925926e1 * t4168 * t18536 - 0.67919282666666666667e1 * t5470 * t18539 - 0.30186347851851851852e0 * t14665 * t5906 + 0.15093173925925925926e1 * t14665 * t5868 - 0.67919282666666666667e1 * t17460 * t5871 + 0.11319880444444444445e2 * t14691 * t7007;
8044   t19404 = 0.50310579753086419753e0 * t10853 * t7001 - 0.25155289876543209877e1 * t10853 * t7004 + t5753 * t627 - 0.12e2 * t5328 * t1638 - 0.12e2 * t5328 * t1643 - 0.12e2 * t13908 * t687 - 0.6e1 * t5754 * t1237 + t1507 * t2279 / 0.10e2 + t632 * t5863 / 0.10e2 + t2129 * t1715 / 0.5e1 + t1505 * t2279 / 0.10e2 - 0.24e2 * t4589 * t5727 + 0.54e2 * t1226 * t18702 - 0.24e2 * t1234 * t18573;
8045   t19435 = -0.12e2 * t4589 * t5730 + 0.54e2 * t5131 * t5734 + t5404 * t714 / 0.5e1 + t5406 * t714 / 0.5e1 - 0.9e1 / 0.100e3 * t1505 * t2256 - 0.9e1 / 0.100e3 * t1507 * t2256 + 0.20962741563786008230e0 * t6976 * t662 - 0.12e2 * t1234 * t18583 - 0.12e2 * t1234 * t18585 - 0.24e2 * t3878 * t6840 - 0.24e2 * t1234 * t18575 - 0.24e2 * t1234 * t18577 - 0.24e2 * t1234 * t18579 - 0.12e2 * t3892 * t6842;
8046   t19464 = -0.12e2 * t3878 * t6842 - 0.12e2 * t1234 * t18581 - 0.648e3 * t3889 * t19116 - 0.24e2 * t3892 * t6840 - 0.9e1 / 0.50e2 * t699 * t5397 - 0.9e1 / 0.100e3 * t2251 * t1516 - 0.6e1 * t18439 * t258 + 0.648e3 * t1226 * t18612 - 0.1296e4 * t3889 * t18615 + 0.648e3 * t1226 * t18606 - 0.7776e4 * t3889 * t18609 - 0.67919282666666666667e1 * t17731 * t5871 - 0.30186347851851851851e0 * t15323 * t5464 + 0.15093173925925925926e1 * t15323 * t5467;
8047   t19466 = t4001 * t4167;
8048   t19496 = -0.67919282666666666665e1 * t19466 * t5471 - 0.30186347851851851852e0 * t14649 * t5906 + 0.15093173925925925926e1 * t14649 * t5868 - 0.30186347851851851852e0 * t4168 * t18533 - 0.6e1 * t256 * t3898 * t2213 - 0.12e2 * t755 * t7032 + 0.171e3 / 0.1000e4 * t632 * t5822 - 0.9e1 / 0.50e2 * t632 * t5884 - 0.12e2 * t1628 * t5427 + 0.108e3 * t5493 * t5373 + 0.324e3 * t5131 * t5717 + 0.108e3 * t5131 * t5720 - 0.648e3 * t11554 * t5724 - 0.1296e4 * t14552 * t5227;
8049   t19565 = -0.73e2 / 0.7290e4 * t37 * t273 * t2213 * t213 + 0.73e2 / 0.7290e4 * t37 * t1527 * t2213 + 0.146e3 / 0.135e3 * t691 * t5835 * t510 + 0.146e3 / 0.135e3 * t691 * t2264 * t1210 + 0.73e2 / 0.135e3 * t691 * t704 * t5249 + 0.73e2 / 0.19440e5 * t37 * t41 * t5743 * t213 - 0.73e2 / 0.9720e4 * t37 * t6942 * t246 - 0.73e2 / 0.4860e4 * t37 * t2149 * t1618 - 0.73e2 / 0.19440e5 * t37 * t640 * t5743 - 0.73e2 / 0.135e3 * t691 * t36 * t5249 * t213 + 0.146e3 / 0.135e3 * t691 * t6932 * t246 - 0.146e3 / 0.135e3 * t462 * t6835 * t213 - 0.146e3 / 0.135e3 * t209 * t18457 * t213;
8050   t19590 = 0.292e3 / 0.135e3 * t6946 * t246 + 0.292e3 / 0.135e3 * t5846 * t510 + 0.292e3 / 0.135e3 * t5849 * t510 + 0.292e3 / 0.135e3 * t2271 * t1210 + 0.584e3 / 0.135e3 * t1702 * t2079 + 0.584e3 / 0.135e3 * t1705 * t2079 + 0.584e3 / 0.135e3 * t708 * t5249 + 0.146e3 / 0.135e3 * t465 * t6835 + 0.146e3 / 0.135e3 * t212 * t18457 + 0.73e2 / 0.81e2 * t6605 - 0.146e3 / 0.81e2 * t6608 - 0.73e2 / 0.81e2 * t6615 + 0.73e2 / 0.3645e4 * t37 * t273 * t2207;
8051   t19591 = t19565 + t19590;
8052   t19599 = -0.12577644938271604938e0 * t5263 * t102 * t693 - 0.12577644938271604938e0 * t2087 * t338 * t693 + t1678 * t2164 / 0.5e1 + t699 * t5519 / 0.5e1 + t1676 * t2164 / 0.5e1 - 0.12577644938271604938e0 * t1626 * t572 * t693 - 0.12577644938271604938e0 * t685 * t1326 * t693 - 0.12577644938271604938e1 * t14884 * t2109 - 0.12577644938271604938e1 * t14203 * t2232 - 0.12577644938271604938e1 * t4062 * t7045 - 0.12577644938271604938e1 * t14232 * t2232 + t195 * t450 * t19591 / 0.10e2 + t408 * t6962 / 0.10e2 + t444 * t6962 / 0.10e2;
8053   t19608 = -0.12e2 * t755 * t6876 + 0.648e3 * t5641 * t5224 - 0.1296e4 * t13733 * t5227 + 0.50310579753086419752e-1 * t7072 * t1662 - 0.83850966255144032920e-1 * t5706 * t2115 - 0.9e1 / 0.100e3 * t1194 * t6961 * t473 - 0.9e1 / 0.50e2 * t13427 * t1754 + 0.171e3 / 0.1000e4 * t10208 * t5963 - 0.9e1 / 0.50e2 * t4360 * t5662 - p->cam_beta * (t18906 + t18939 + t18971 + t19004 + t19036 + t19212 + t19240 + t19277 + t19309 + t19343 + t19376 + t19404 + t19435 + t19464 + t19496 + t19599) + t19181 * t217 - 0.24e2 * t1568 * t18573;
8054   t19634 = -0.648e3 * t10313 * t6897 - 0.648e3 * t10318 * t6897 + 0.108e3 * t1562 * t18909 + 0.108e3 * t1562 * t18912 - 0.648e3 * t3190 * t19116 - 0.24e2 * t3174 * t6840 + 0.108e3 * t3177 * t6903 + 0.108e3 * t3180 * t6903 - 0.12e2 * t4496 * t5730 + 0.54e2 * t4499 * t5734 - 0.12e2 * t4513 * t5730 + 0.54e2 * t4516 * t5734;
8055   t19659 = -0.24e2 * t3197 * t6840 - 0.24e2 * t1568 * t18575 - 0.24e2 * t1568 * t18577 + t1191 * t6961 / 0.10e2 + t501 * t19591 / 0.10e2 + t13381 * t713 / 0.5e1 + t5270 * t1714 / 0.5e1 + t3288 * t2278 / 0.10e2 + t1598 * t5862 / 0.10e2 - 0.25155289876543209877e1 * t4364 * t7004 + 0.11319880444444444445e2 * t11110 * t7007 - 0.30186347851851851851e0 * t5974 * t5460;
8056   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8057     v4rhosigmatau2[0] = -t1203 * t7109 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t241 * (t18448 + t18481 + t18517 + t18548 + t18605 + t18637 + t18674 + t18705 + t18735 + t18767 + t18798 + t18825 + t18857 + t19608 + t19634 + t19659);
8058 
8059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8060     v4rholapl3[0] = 0.0e0;
8061 
8062   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8063     v4rholapl2tau[0] = 0.0e0;
8064 
8065   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8066     v4rholapltau2[0] = 0.0e0;
8067 
8068   t19669 = t7158 * t246;
8069   t19672 = t763 * t7145;
8070   t19673 = t19672 * t246;
8071   t19680 = t1619 * t2213;
8072   t19683 = t680 * t5743;
8073   t19686 = t5723 * t1618;
8074   t19689 = t7398 * t7117;
8075   t19690 = t19689 * t246;
8076   t19695 = t17 * t7117;
8077   t19696 = t19695 * t246;
8078   t19699 = t5716 * t1618;
8079   t19702 = t7561 * t7117;
8080   t19703 = t19702 * t246;
8081   t19706 = 0.9720e4 * t10329 * t19690 + 0.54e2 * t1562 * t19673 + 0.1080e4 * t1562 * t19696 + 0.972e3 * t1562 * t19699 - 0.12e2 * t1568 * t19669 - 0.36e2 * t1568 * t19680 - 0.36e2 * t1568 * t19683 - 0.36e2 * t18709 * t1621 + 0.162e3 * t18712 * t1635 - 0.1944e4 * t3190 * t19686 - 0.7776e4 * t3190 * t19703 + 0.972e3 * t5641 * t5717;
8082   t19711 = t4126 * t2213;
8083   t19714 = t1634 * t5743;
8084   t19721 = t1614 * t2213;
8085   t19724 = t692 * t5734;
8086   t19728 = t352 * t2243 * t283;
8087   t19731 = t692 * t5720;
8088   t19734 = t692 * t5724;
8089   t19738 = t352 * t2216 * t283;
8090   t19741 = 0.162e3 * t3177 * t7121 + 0.162e3 * t3180 * t7121 + 0.162e3 * t1562 * t19711 + 0.162e3 * t1562 * t19714 - 0.36e2 * t3174 * t7124 - 0.36e2 * t3197 * t7124 - 0.36e2 * t1568 * t19721 - 0.10187892400000000000e2 * t4376 * t19724 + 0.40751569600000000000e1 * t4376 * t19728 - 0.20375784800000000000e2 * t4376 * t19731 + 0.12225470880000000000e3 * t11126 * t19734 - 0.90559043555555555556e0 * t1739 * t19738;
8091   t19743 = t692 * t5727;
8092   t19746 = t692 * t5717;
8093   t19762 = my_piecewise3(t15, 0.3e1 / 0.4e1 * t243 * t7142, 0);
8094   t19768 = t7193 * t473;
8095   t19795 = 0.513e3 / 0.1000e4 * t5544 * t19768 + 0.1080e4 * t1226 * t19696 + 0.972e3 * t1226 * t19699 - 0.7776e4 * t3889 * t19703 + 0.162e3 * t3895 * t7121 + 0.162e3 * t3875 * t7121 - 0.12e2 * t1234 * t19669 + 0.54e2 * t1226 * t19673 - 0.36e2 * t5490 * t5730 + 0.162e3 * t5493 * t5734 + 0.324e3 * t5493 * t5720 - 0.1944e4 * t14552 * t5724 - 0.36e2 * t1234 * t19683;
8096   t19810 = t1105 * t7265;
8097   t19827 = -0.36e2 * t19009 * t1621 + 0.162e3 * t19012 * t1635 - 0.1944e4 * t3889 * t19686 + 0.9720e4 * t10079 * t19690 - 0.72e2 * t5490 * t5727 + 0.972e3 * t5493 * t5717 - 0.27e2 / 0.100e3 * t444 * t7230 - 0.9e1 / 0.100e3 * t195 * t19810 * t473 + 0.324e3 * t762 * t7557 * t7117 - 0.36e2 * t4158 * t2235 + 0.324e3 * t2338 * t7200 - 0.37732934814814814815e1 * t14884 * t2232 + 0.16979820666666666667e2 * t10966 * t7210 - 0.18866467407407407407e1 * t4062 * t7214;
8098   t19840 = t2207 * t1618;
8099   t19846 = t17 * t19762;
8100   t19849 = (0.2e1 * t16 * t19762 + 0.6e1 * t1618 * t2213 + 0.2e1 * t246 * t7145 + 0.6e1 * t679 * t5743 + 0.18e2 * t19669 + 0.54e2 * t19680 + 0.54e2 * t19683 + 0.54e2 * t19721 + 0.54e2 * t19840 + 0.9e1 * t19846) * t23;
8101   t19893 = 0.1944e4 * t10657 * t5724 - 0.162e3 * t14857 * t1635 + 0.36e2 * t5754 * t1621 + 0.72e2 * t1628 * t5727 + 0.36e2 * t1628 * t5730 + 0.1944e4 * t2372 * t19686 - 0.9720e4 * t7397 * t19690 - 0.1080e4 * t762 * t19696 - 0.972e3 * t762 * t19699 + 0.7776e4 * t2372 * t19703 - 0.162e3 * t762 * t19711 + 0.1944e4 * t5350 * t19721 - 0.972e3 * t5353 * t19721 - 0.162e3 * t2338 * t7121 - 0.972e3 * t4001 * t5717 - 0.324e3 * t4001 * t5720 - 0.162e3 * t4001 * t5734 + 0.12e2 * t755 * t7117 - t19849;
8102   t19930 = t7164 * t255;
8103   t19935 = -0.162e3 * t10531 * t2243 + 0.18e2 * t14951 * t682 + 0.18e2 * t5754 * t1623 + 0.36e2 * t1628 * t5746 + 0.18e2 * t1628 * t5750 + 0.12e2 * t256 * t19669 - 0.54e2 * t762 * t19673 + 0.36e2 * t256 * t19680 + 0.36e2 * t256 * t19683 - 0.162e3 * t762 * t19714 + 0.36e2 * t256 * t19721 + 0.36e2 * t256 * t19840 + 0.6e1 * t256 * t19846 + 0.6e1 * t19930 * t249 + 0.36e2 * t4158 * t2216 + 0.18e2 * t4158 * t2218 - 0.324e3 * t2338 * t7177 + 0.36e2 * t755 * t7124 + 0.6e1 * t755 * t7162 + 0.648e3 * t7392 * t7174;
8104   t19936 = t19893 + t19935;
8105   t19945 = t2221 * t1649;
8106   t19948 = t150 * t2207;
8107   t19956 = t7165 * t403 + t7188 * t443 * t217 + t19849 * t150 - 0.27e2 / 0.100e3 * t699 * t5888 + 0.513e3 / 0.1000e4 * t699 * t5822 - 0.36e2 * t1628 * t5790 + t19936 * t194 * t217 - 0.18e2 * t4158 * t2238 - 0.6e1 * t755 * t7243 - 0.36e2 * t1628 * t5795 + 0.75465869629629629628e-1 * t19945 * t1662 - 0.36e2 * t256 * t19948 * t1618 + t408 * t7266 / 0.10e2 + t444 * t7266 / 0.10e2;
8108   t20003 = 0.73e2 / 0.54e2 * t6944 - 0.73e2 / 0.90e2 * t691 * t36 * t5743 * t213 + 0.73e2 / 0.45e2 * t691 * t7248 * t246 - 0.73e2 / 0.27e2 * t6952 + 0.146e3 / 0.45e2 * t691 * t2264 * t1618 - 0.73e2 / 0.54e2 * t6957 + 0.73e2 / 0.90e2 * t691 * t704 * t5743 - 0.146e3 / 0.135e3 * t462 * t7145 * t213 - 0.146e3 / 0.135e3 * t209 * t19762 * t213 + 0.292e3 / 0.135e3 * t7258 * t246 + 0.292e3 / 0.45e2 * t5846 * t679 + 0.292e3 / 0.45e2 * t5849 * t679 + 0.292e3 / 0.45e2 * t2271 * t1618 + 0.146e3 / 0.135e3 * t465 * t7145 + 0.146e3 / 0.135e3 * t212 * t19762;
8109   t20021 = 0.3e1 / 0.10e2 * t5936 * t714 + 0.3e1 / 0.10e2 * t2251 * t1715 + 0.3e1 / 0.10e2 * t699 * t5863 + 0.3e1 / 0.10e2 * t5939 * t714 + 0.3e1 / 0.10e2 * t1676 * t2279 + 0.3e1 / 0.10e2 * t1678 * t2279 + t195 * t450 * t20003 / 0.10e2 - 0.18e2 * t5754 * t1638 - 0.6e1 * t19930 * t258 + 0.162e3 * t1226 * t19711 + 0.162e3 * t1226 * t19714 - 0.36e2 * t3892 * t7124 - 0.36e2 * t3878 * t7124 - 0.36e2 * t1234 * t19721;
8110   t20026 = t5754 * t1649;
8111   t20053 = -0.36e2 * t1234 * t19680 + 0.11319880444444444444e1 * t20026 * t1653 + 0.22639760888888888889e1 * t4080 * t7221 + 0.22639760888888888889e1 * t4084 * t7221 + 0.11319880444444444444e1 * t1650 * t37 * t1651 * t5743 + 0.11319880444444444444e1 * t4080 * t7214 + 0.11319880444444444444e1 * t4084 * t7214 - 0.10187892400000000000e2 * t11003 * t7210 + 0.22639760888888888889e1 * t5931 * t5924 - 0.10187892400000000000e2 * t11000 * t7210 - 0.37732934814814814815e1 * t4062 * t7221 + 0.22639760888888888889e1 * t14898 * t2232 + 0.22639760888888888889e1 * t14901 * t2232;
8112   t20085 = t4161 * t5739;
8113   t20088 = 0.22639760888888888889e1 * t1650 * t37 * t17644 * t2207 - 0.27e2 / 0.100e3 * t195 * t1686 * t5862 - 0.648e3 * t2372 * t7404 * t7117 - 0.27e2 / 0.100e3 * t195 * t4209 * t2278 - 0.648e3 * t7392 * t7237 + 0.171e3 / 0.1000e4 * t408 * t7226 + 0.171e3 / 0.1000e4 * t444 * t7226 - 0.27e2 / 0.100e3 * t1676 * t2256 - 0.27e2 / 0.100e3 * t1678 * t2256 - 0.18e2 * t1628 * t5874 - 0.18e2 * t1628 * t5879 + 0.162e3 * t10531 * t2228 + t7274 * t474 / 0.10e2 + 0.972e3 * t1226 * t20085;
8114   t20090 = t4109 * t5739;
8115   t20120 = -0.1944e4 * t3889 * t20090 + 0.162e3 * t4001 * t5802 - 0.12e2 * t256 * t403 * t7117 - 0.18e2 * t5754 * t1643 - 0.10187892400000000000e2 * t5470 * t19724 - 0.90559043555555555556e0 * t4168 * t19738 + 0.45279521777777777778e1 * t4168 * t19743 - 0.90559043555555555556e0 * t15323 * t5906 + 0.45279521777777777778e1 * t15323 * t5868 - 0.20375784800000000000e2 * t19466 * t5871 + 0.40751569600000000000e1 * t5470 * t19728 - 0.61127354400000000000e2 * t5470 * t19746 - 0.20375784800000000000e2 * t5470 * t19731 + 0.12225470880000000000e3 * t14683 * t19734;
8116   t20122 = t352 * t2218 * t283;
8117   t20125 = t692 * t5730;
8118   t20145 = t7544 * t7190;
8119   t20159 = -0.45279521777777777776e0 * t4168 * t20122 + 0.22639760888888888888e1 * t4168 * t20125 - 0.18866467407407407407e0 * t5753 * t102 * t693 - 0.18866467407407407407e0 * t2221 * t338 * t693 + 0.31444112345679012345e0 * t7217 * t662 - 0.12e2 * t755 * t7240 + 0.513e3 / 0.1000e4 * t195 * t5821 * t1714 - 0.27e2 / 0.100e3 * t408 * t7230 - 0.27e2 / 0.50e2 * t699 * t5884 - 0.4959e4 / 0.10000e5 * t195 * t20145 * t473 - 0.6e1 * t256 * t768 * t7145 - 0.6e1 * t256 * t257 * t19762 - 0.18e2 * t14951 * t687 - 0.27e2 / 0.100e3 * t2251 * t1687;
8120   t20167 = 0.45279521777777777778e1 * t1739 * t19743 - 0.61127354400000000000e2 * t4376 * t19746 - 0.90559043555555555556e0 * t5974 * t5906 + 0.45279521777777777778e1 * t5974 * t5868 - 0.20375784800000000000e2 * t15547 * t5871 - 0.6e1 * t755 * t7146 - 0.6e1 * t256 * t1156 * t7145 - 0.6e1 * t256 * t480 * t19762 - 0.18e2 * t14951 * t720 - p->cam_beta * (t19795 + t19827 + t19956 + t20021 + t20053 + t20088 + t20120 + t20159) + t19936 * t217 - 0.36e2 * t5638 * t5730;
8121   t20197 = 0.162e3 * t5641 * t5734 + 0.324e3 * t5641 * t5720 - 0.1944e4 * t13733 * t5724 - 0.18866467407407407407e0 * t5753 * t104 * t114 - 0.72e2 * t5638 * t5727 + 0.31444112345679012345e0 * t2221 * t41 * t114 - 0.36e2 * t1628 * t6007 - 0.36e2 * t1628 * t6010 + 0.324e3 * t2338 * t7118 + 0.324e3 * t762 * t8425 * t7117 + 0.162e3 * t10531 * t2290 + 0.162e3 * t4001 * t5955 - 0.36e2 * t4158 * t2296;
8122   t20210 = t5754 * t691;
8123   t20226 = -0.18e2 * t1628 * t6015 - 0.18e2 * t1628 * t6018 - 0.18e2 * t5754 * t1728 - 0.18e2 * t5754 * t1733 - 0.18e2 * t4158 * t2299 + 0.11319880444444444444e1 * t20210 * t1740 + 0.22639760888888888889e1 * t4370 * t7127 + 0.22639760888888888889e1 * t1739 * t692 * t5746 + 0.22639760888888888889e1 * t15542 * t2293 + 0.22639760888888888889e1 * t5974 * t5979 - 0.10187892400000000000e2 * t11120 * t7132 - 0.37732934814814814815e1 * t4364 * t7127;
8124   t20246 = t231 * t2207;
8125   t20256 = -0.37732934814814814815e1 * t15557 * t2293 + 0.16979820666666666667e2 * t11110 * t7132 - 0.18866467407407407407e1 * t4364 * t7279 + 0.11319880444444444444e1 * t4370 * t7279 + 0.11319880444444444444e1 * t1739 * t692 * t5750 - 0.12e2 * t256 * t498 * t7117 - 0.12e2 * t755 * t7138 - 0.648e3 * t2372 * t8394 * t7117 - 0.36e2 * t256 * t20246 * t1618 + 0.3e1 / 0.10e2 * t5971 * t1714 + 0.3e1 / 0.10e2 * t15654 * t713 + t19849 * t231 + t7165 * t498;
8126   t20268 = t7188 * t450;
8127   t20283 = t1191 * t7265 / 0.10e2 + t501 * t20003 / 0.10e2 + 0.3e1 / 0.10e2 * t4294 * t2278 + 0.3e1 / 0.10e2 * t1749 * t5862 - 0.27e2 / 0.100e3 * t11052 * t2255 + t20268 * t473 / 0.10e2 + 0.171e3 / 0.1000e4 * t8519 * t7190 - 0.27e2 / 0.100e3 * t4360 * t5966 - 0.27e2 / 0.100e3 * t15651 * t1754 + 0.75465869629629629628e-1 * t7112 * t1662 + 0.972e3 * t1562 * t20085 - 0.1944e4 * t3190 * t20090;
8128   t20315 = -0.6e1 * t19930 * t481 - 0.648e3 * t7392 * t7135 + 0.513e3 / 0.1000e4 * t2426 * t2255 * t1714 - 0.9e1 / 0.100e3 * t1194 * t7265 * t473 - 0.4959e4 / 0.10000e5 * t8516 * t7190 * t473 - 0.27e2 / 0.50e2 * t4360 * t5958 - 0.27e2 / 0.100e3 * t2420 * t7193 - 0.27e2 / 0.100e3 * t1194 * t1714 * t2278 - 0.27e2 / 0.100e3 * t1194 * t713 * t5862 + 0.513e3 / 0.1000e4 * t11103 * t5963 - 0.45279521777777777776e0 * t1739 * t20122 + 0.22639760888888888888e1 * t1739 * t20125 + 0.513e3 / 0.1000e4 * t2426 * t19768;
8129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8130     v4rhotau3[0] = -t1203 * t7291 / 0.2e1 - 0.3e1 / 0.8e1 * t240 * t241 * (t19706 + t19741 + t20167 + t20197 + t20226 + t20256 + t20283 + t20315);
8131 
8132   t20326 = t2027 * t2027;
8133   t20331 = t2008 * t2008;
8134   t20342 = t1763 * t1763;
8135   t20346 = t1763 * t1765;
8136   t20357 = -0.9720e4 * t7397 * t7398 * t20342 - 0.324e3 * t11594 * t1996 + 0.48e2 * t1220 * t6027 + 0.24e2 * t15684 * t513 + 0.72e2 * t4395 * t1768 + 0.36e2 * t4395 * t1770 + 0.72e2 * t256 * t20346 - 0.1296e4 * t3152 * t6384 - 0.648e3 * t3152 * t6387 + 0.2592e4 * t8722 * t6381 + t2002;
8137   t20363 = t4509 * t1765;
8138   t20369 = t4502 * t1765;
8139   t20372 = t1765 * t1765;
8140   t20376 = t16 * t20372;
8141   t20387 = (0.6e1 * t20372 + 0.8e1 * t6347 + t1767 + 0.108e3 * t20346 + 0.54e2 * t20376 + 0.72e2 * t6350 + t1771) * t23;
8142   t20389 = -0.1080e4 * t762 * t17 * t20342 + 0.7776e4 * t2372 * t7561 * t20342 - 0.162e3 * t762 * t763 * t20372 + 0.144e3 * t1220 * t6350 + 0.3888e4 * t2372 * t20363 - 0.1944e4 * t762 * t20369 + 0.36e2 * t256 * t20376 - t20387 + 0.24e2 * t6379 - 0.216e3 * t6388 + 0.48e2 * t6392;
8143   t20390 = t20357 + t20389;
8144   t20408 = -0.72e2 * t1220 * t6448 - 0.24e2 * t15684 * t656 - t2049 - 0.27e2 / 0.100e3 * t1194 * t20326 + 0.171e3 / 0.250e3 * t10208 * t6033 - 0.4959e4 / 0.10000e5 * t8516 * t20331 + t20390 * t217 - 0.9e1 / 0.25e2 * t1194 * t6369 * t649 + 0.513e3 / 0.500e3 * t2426 * t2008 * t2027 - 0.2592e4 * t8722 * t6451 + 0.324e3 * t762 * t13185 * t1763 - 0.2592e4 * t2372 * t10362 * t6027 - 0.27e2 / 0.25e2 * t3216 * t6445;
8145   t20435 = t1805 * t1805;
8146   t20450 = t1791 * t1791;
8147   t20465 = 0.1e1 / t35 / t2958;
8148   t20471 = my_piecewise3(t66, 0, 0.2387e4 / 0.120000e6 * t267 * t7823 * t61 * t20450 - 0.20712607655942469960e-3 * t4654 * t9221 * t1791 * t45 * t47 + 0.15918816916846256773e-5 * t267 / t1987 / t271 * t828 * t61 * t32 * t20465);
8149   t20474 = t531 * t6068;
8150   t20476 = t67 * t20471;
8151   t20478 = t73 * t20435;
8152   t20479 = 0.2304e4 * t20478;
8153   t20480 = t118 * t20471;
8154   t20481 = 0.256e3 * t20480;
8155   t20482 = t1869 * t1805;
8156   t20490 = t1810 * t1810;
8157   t20491 = 0.1536e4 * t20490;
8158   t20492 = t1909 * t1805;
8159   t20493 = 0.9216e4 * t20492;
8160   t20494 = t584 * t6068;
8161   t20495 = 0.3072e4 * t20494;
8162   t20499 = t20474 * t76;
8163   t20513 = t2577 * t20490 * t76;
8164   t20516 = t7948 * t20490 * t76;
8165   t20519 = t864 * t20490 * t76;
8166   t20521 = -0.288e3 * t20474 - 0.72e2 * t20476 + t20479 + t20481 + 0.36e2 * t2702 * t20482 - 0.18e2 * t3649 * t6168 + (0.120e3 * t20435 + 0.160e3 * t20474 + 0.40e2 * t20476 - t20491 - t20493 - t20479 - t20495 - t20481) * t76 + t20493 + t20495 - 0.216e3 * t20435 + t916 * t20499 + 0.3e1 / 0.4e1 * t2674 * t20482 - 0.6e1 * t909 * t20499 - 0.27e2 / 0.2e1 * t2678 * t20482 + 0.3e1 * t3643 * t6168 + t20491 + 0.10e2 * t68 * t20471 * t71 + 0.55e2 / 0.2e1 * t20513 - 0.5e1 / 0.4e1 * t20516 - 0.100e3 * t20519;
8167   t20523 = t857 * t20435 * t76;
8168   t20526 = t69 * t20471 * t76;
8169   t20530 = t20435 * t76;
8170   t20535 = t20490 * t76;
8171   t20550 = t20471 * t76;
8172   t20561 = t1811 * t1872;
8173   t20563 = t1320 * t6175;
8174   t20566 = 0.15e2 * t4693 * t1872;
8175   t20567 = -0.15e2 * t20523 - 0.10e2 * t20526 + 0.2e1 * t15999 * t561 + 0.3e1 / 0.4e1 * t916 * t20530 + 0.24e2 * t9711 * t6165 - 0.30e2 * t916 * t20535 - 0.9e1 / 0.2e1 * t909 * t20530 - 0.9e1 * t12421 * t1869 - 0.9e1 * t9717 * t6165 + 0.75e2 / 0.4e1 * t8292 * t20535 - 0.9e1 / 0.4e1 * t8289 * t20535 + 0.2e1 * t1299 * t6175 + t326 * t20550 / 0.2e1 + t9720 * t6165 / 0.2e1 + t8271 * t20535 / 0.16e2 + 0.3e1 * t4714 * t1872 + 0.3e1 / 0.2e1 * t12430 * t1869 + 0.120e3 * t20561 - 0.20e2 * t20563 - t20566;
8176   t20586 = 0.1e1 / t39 / t12807;
8177   t20587 = t32 * t20465 * t20586;
8178   t20645 = -0.3e1 * t74 * t20435 * t76 - 0.4e1 * t608 * t6175 + t16373 * t561 + 0.3e1 / 0.4e1 * t864 * t20435 * t76 + 0.3e1 / 0.4e1 * t12238 * t1869 - 0.75e2 / 0.2e1 * t20519 + 0.45e2 * t20561 - 0.6e1 * t20523 - 0.8e1 * t20563 - t20566 - t20526 + t7898 * t20490 * t76 / 0.16e2 - 0.12e2 * t20435 * t77 - 0.16e2 * t5053 * t6068 - 0.4e1 * t299 * t20471 + 0.85e2 / 0.4e1 * t20513 - 0.19e2 / 0.8e1 * t20516 + t295 * t20471 * t76 / 0.2e1;
8179   t20656 = t1821 * t1872;
8180   t20665 = t20490 * t844;
8181   t20666 = t20665 * t76;
8182   t20669 = t2600 * t20490 * t76;
8183   t20671 = 0.6e1 * t849 * t20435 + 0.8e1 * t849 * t20474 + 0.21e2 * t1827 * t1872 - 0.3e1 / 0.2e1 * t844 * t20435 * t76 - 0.2e1 * t3652 * t6175 - 0.3e1 / 0.2e1 * t5018 * t1872 + 0.2e1 * t67 * t20645 + 0.8e1 * t531 * t6120 + 0.2e1 * t20471 * t80 + 0.8e1 * t6068 * t543 + 0.12e2 * t1805 * t1838 - 0.36e2 * t20656 - t7925 * t20490 * t76 / 0.8e1 - t291 * t20471 + 0.15e2 / 0.4e1 * t2610 * t20490 * t76 + 0.24e2 * t20666 - 0.24e2 * t20669;
8184   t20696 = 0.36e2 / 0.25e2 * t12584 * t1791 + 0.10531842222222222222e0 * t6322 * t620 + 0.35e2 / 0.81e2 * (0.144e3 * t20435 * t99 + 0.576e3 * t15932 * t1805 + 0.192e3 * t4620 * t6068 + 0.288e3 * t1810 * t1884 + 0.192e3 * t15980 * t531 + 0.288e3 * t4664 * t1805 + 0.192e3 * t1286 * t6068 + 0.48e2 * t317 * t20471 + 0.24e2 * t73 * (t20521 + t20567)) * t110 * t114 - 0.64558777109431075200e-2 * t4976 * t1850 + 0.58632638060916931704e-4 * t6341 * t6132 - 0.11546739110857775350e-2 * t111 * t17056 * t53 + 0.96222825923814794581e-3 * t573 * t6196 + 0.12503507105595605320e-3 * t938 * t20587 - 0.12638210666666666667e0 * t1972 * t1979 + 0.15494106506263458048e-1 * t3699 * t526 * t1850 + (-0.8e1 / 0.3e1 * t20471 * t83 - 0.32e2 / 0.3e1 * t6068 * t546 - 0.16e2 * t1805 * t1841 - 0.32e2 / 0.3e1 * t531 * t6123 - 0.8e1 / 0.3e1 * t67 * t20671) * t88 - 0.29070481623525376287e-4 * t572 * t1988 * t351 + 0.1056e4 / 0.625e3 * t8143 * t20450 - 0.41880455757797808360e-4 * t614 * t1988 * t351 + 0.88467474666666666665e-1 * t1972 * t1983 - 0.42127368888888888888e-1 * t6323 * t624 - 0.14154795946666666667e0 * t616 * t6053 + 0.12031576554666666666e0 * t146 * t42 * t7716 * t20450 - 0.56e2 / 0.81e2 * t16195 * t579;
8185   t20742 = t3853 * t6051;
8186   t20792 = -0.34560e5 * t118 * t20435 + 0.3233160e7 * t118 * t20490 + 0.484974e6 * t120 * t20435 - 0.371589120e9 * t120 * t20490 - 0.26542080e8 * t122 * t20435 - 0.1105920e7 * t124 * t20471 + 0.26943e5 * t131 * t20471 - 0.35389440e8 * t1424 * t6068 + 0.9216e4 * t1810 * t1805 - 0.207360e6 * t1862 * t1805 + 0.4849740e7 * t1944 * t1805 - 0.371589120e9 * t4906 * t1805 + 0.4608e4 * t67 * t20435 + 0.768e3 * t73 * t20471 - 0.2880e4 * t91 * t20471 - 0.69120e5 * t67 * t20490 + 0.6144e4 * t555 * t6068 - 0.46080e5 * t557 * t6068 + 0.646632e6 * t600 * t6068 - 0.8e1 * t20471;
8187   t20812 = 0.30720e5 * t120 * t20471 + 0.3686400e7 * t1913 * t1805 + 0.460800e6 * t91 * t20435 + 0.1843200e7 * t73 * t20490 + 0.614400e6 * t586 * t6068 + 0.1344e4 * t20435 + 0.1792e4 * t20474 + 0.448e3 * t20476 - 0.51840e5 * t20478 - 0.5760e4 * t20480 - 0.34560e5 * t20490 - 0.207360e6 * t20492 - 0.69120e5 * t20494;
8188   t20837 = -0.4e1 * t1011 * t20499 + 0.24e2 * t118 * t20812 + 0.864e3 * t12101 * t1810 + 0.288e3 * t16476 * t531 + 0.864e3 * t16487 * t1805 + 0.36e2 * t2756 * t20482 + 0.42e2 * t2759 * t20482 - 0.3e1 * t2771 * t20482 - 0.2880e4 * t20535 * t295 + t20792 * t76 - 0.18e2 * t3573 * t6168 + 0.576e3 * t6075 * t602 + 0.2640e4 * t20666 - 0.240e3 * t20669;
8189   t20870 = 0.432e3 * t4924 * t1805 + 0.288e3 * t1448 * t6068 + 0.72e2 * t371 * t20471 - 0.1440e4 * t69 * t20435 * t76 + 0.432e3 * t983 * t20435 + 0.720e3 * t68 * t20435 * t71 - 0.72e2 * t384 * t1821 * t1805 + 0.16e2 * t384 * t536 * t6068 - 0.6e1 * t975 * t20499 - 0.27e2 / 0.2e1 * t2790 * t20482 + 0.3e1 * t3570 * t6168 + t980 * t20499 + 0.3e1 / 0.4e1 * t2782 * t20482 + 0.12e2 * t384 * t295 * t20435;
8190   t20900 = -0.9e1 / 0.2e1 * t975 * t20530 + 0.3e1 / 0.4e1 * t980 * t20530 - 0.48e2 * t7877 * t20535 - 0.3e1 * t1011 * t20530 + 0.48e2 * t384 * t20665 + 0.24e2 * t9585 * t6165 - 0.30e2 * t980 * t20535 + 0.3e1 * t4805 * t1872 + 0.3e1 / 0.2e1 * t11761 * t1869 - 0.9e1 / 0.4e1 * t7949 * t20535 + 0.2e1 * t1431 * t6175 + t368 * t20550 / 0.2e1 + t9549 * t6165 / 0.2e1 + t7899 * t20535 / 0.16e2;
8191   t20930 = -0.2e1 * t384 * t74 * t20471 - 0.1920e4 * t541 * t6175 + 0.960e3 * t565 * t6253 + 0.240e3 * t96 * t20471 * t71 - t7926 * t20535 / 0.4e1 + 0.15e2 / 0.2e1 * t7955 * t20535 - 0.2160e4 * t20656 + 0.75e2 / 0.4e1 * t7958 * t20535 + 0.2e1 * t16508 * t561 - 0.9e1 * t11811 * t1869 - 0.9e1 * t9591 * t6165 + 0.576e3 * t983 * t20474 + 0.4320e4 * t1869 * t1964 + 0.1728e4 * t3551 * t6086;
8192   t20944 = -0.87725614320987654321e-1 * t16176 * t579 + 0.78859404414847525713e-7 * t1986 / t8 / t1987 / t51 * t781 * t45 * t47 + 0.12941724940948220025e-5 * t111 * t781 * t48 * t20586 - 0.1568e4 / 0.675e3 * t1395 * t6205 - 0.4e1 / 0.5e1 * t16317 * t526 - 0.264e3 / 0.125e3 * t9917 * t6051 + 0.73104678600823045268e-1 * t6192 * t41 * t114 - 0.70359165673100318044e-4 * t1986 * t12642 * t1791 - 0.20940227878898904180e-4 * t1970 * sigma[0] * t1989 + 0.40698674272935526801e-4 * t6044 * t4471 + 0.58632638060916931704e-4 * t6041 * t4471 - 0.34365294972790998065e-3 * t1888 * t1901 - 0.17043517156889803853e-1 * t2637 * t1791 * t1850 + 0.17693494933333333333e0 * t616 * t6210 + 0.6664e4 / 0.3375e4 * t349 * t7717 * t20450 - 0.98252688039506172841e-1 * t1398 * t6205 - 0.14154795946666666667e0 * t146 * t20742 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t20471 * t141 + 0.32e2 / 0.7e1 * t6068 * t611 + 0.48e2 / 0.7e1 * t1805 * t1967 + 0.32e2 / 0.7e1 * t531 * t6318 + 0.8e1 / 0.7e1 * t67 * (t20837 + t20870 + t20900 + t20930)) * t32 * t36 * t147 + 0.12281586004938271605e0 * t5089 * t1898 + 0.196e3 / 0.135e3 * t5086 * t1898;
8193   t20951 = -0.36e2 * t4395 * t1788 + 0.1296e4 * t762 * t9039 * t6027 + 0.1296e4 * t3152 * t6436 - 0.48e2 * t1220 * t6036 + 0.4e1 * t6353 * t627 + t20387 * t150 + 0.171e3 / 0.250e3 * t632 * t6405 - 0.4959e4 / 0.10000e5 * t195 * t7544 * t20331 + 0.2e1 / 0.5e1 * t6395 * t650 - 0.27e2 / 0.100e3 * t195 * t1105 * t20326 + t24 * (t20696 + t20944) - 0.48e2 * t6397 + 0.162e3 * t762 * t764 * t20372;
8194   t20981 = -0.24e2 * t256 * t15733 * t510 - 0.36e2 * t256 * t4593 * t1765 - 0.7776e4 * t2372 * t7562 * t20342 + 0.1080e4 * t762 * t257 * t20342 - 0.48e2 * t256 * t627 * t6027 + 0.324e3 * t11594 * t1779 + 0.1944e4 * t1226 * t20369 + 0.6e1 * t1773 * t1992 - 0.3888e4 * t3889 * t20363 - 0.144e3 * t4571 * t6350 + 0.648e3 * t4574 * t6387 - 0.144e3 * t4589 * t6350 - t1790;
8195   t21003 = 0.73e2 / 0.4860e4 * t6359 - 0.73e2 / 0.810e3 * t37 * t6357 * t510 - 0.73e2 / 0.4860e4 * t6365 - t2022 + 0.1168e4 / 0.135e3 * t6367 + 0.292e3 / 0.45e2 * t209 * t20372 + t2026;
8196   t21023 = -0.2592e4 * t2372 * t9023 * t6027 + 0.9720e4 * t7397 * t7399 * t20342 - 0.72e2 * t1220 * t6428 - 0.72e2 * t4395 * t1782 + 0.2e1 / 0.5e1 * t632 * t6370 + t195 * t450 * t21003 / 0.10e2 - 0.27e2 / 0.50e2 * t2004 * t2009 + 0.3e1 / 0.5e1 * t2004 * t2028 - 0.72e2 * t4395 * t1785 - 0.9e1 / 0.25e2 * t195 * t16868 * t649 + 0.4e1 * t516 * t6345 + 0.648e3 * t5131 * t6387 - 0.72e2 * t256 * t6661 * t1765;
8197   t21053 = -0.36e2 * t256 * t772 * t20372 + t20390 * t194 * t217 + 0.216e3 * t6412 - 0.24e2 * t6414 + 0.648e3 * t3152 * t6420 - 0.2592e4 * t8722 * t6431 - 0.24e2 * t6429 + 0.324e3 * t762 * t11620 * t1763 - 0.24e2 * t15684 * t518 - 0.144e3 * t1220 * t6439 + 0.513e3 / 0.500e3 * t195 * t5113 * t2027 - 0.27e2 / 0.25e2 * t632 * t6409 - 0.72e2 * t1220 * t6425 - 0.72e2 * t256 * t11643 * t1763;
8198   t21088 = -p->cam_beta * (t20951 + t20981 + t21023 + t21053) - 0.24e2 * t6456 - 0.48e2 * t1220 * t6028 - 0.48e2 * t256 * t666 * t6027 - 0.36e2 * t4395 * t2047 + 0.324e3 * t11594 * t2038 + 0.648e3 * t3152 * t6460 + 0.9720e4 * t7397 * t8400 * t20342 - 0.72e2 * t1220 * t6465 - 0.36e2 * t256 * t4405 * t1765 + 0.1080e4 * t762 * t480 * t20342 + 0.162e3 * t762 * t1152 * t20372 + 0.1296e4 * t3152 * t6472 - 0.7776e4 * t2372 * t8429 * t20342;
8199   t21117 = -0.36e2 * t256 * t1160 * t20372 - 0.72e2 * t256 * t13056 * t1763 - 0.72e2 * t256 * t6579 * t1765 + 0.1296e4 * t762 * t8554 * t6027 - 0.144e3 * t1220 * t6475 + 0.1944e4 * t1562 * t20369 - 0.3888e4 * t3190 * t20363 - 0.72e2 * t4395 * t2044 + 0.648e3 * t4499 * t6387 + 0.648e3 * t4516 * t6387 - 0.24e2 * t6466 - 0.48e2 * t6503 + 0.216e3 * t6505;
8200   t21164 = -0.144e3 * t4513 * t6350 - 0.144e3 * t4496 * t6350 - 0.24e2 * t256 * t16945 * t510 - 0.72e2 * t4395 * t2041 + t501 * t21003 / 0.10e2 + 0.3e1 / 0.5e1 * t4388 * t2027 + 0.2e1 / 0.5e1 * t17025 * t649 + 0.2e1 / 0.5e1 * t1598 * t6369 + 0.4e1 * t516 * t6497 + t24 * (0.1056e4 / 0.625e3 * t8142 * t20450 - 0.17043517156889803853e-1 * t4456 * t1850 + 0.12503507105595605320e-3 * t937 * t32 * t20465 * t20586 - 0.23980064750617283951e0 * t37 * t20742 + 0.99331312333852458503e-4 * t6132 + 0.6664e4 / 0.1875e4 * t8496 * t20450 - 0.33742720835862641972e-1 * t2473 * t1791 * t1850 + 0.22691549932377209655e-3 * t1183 * t20587) - 0.27e2 / 0.50e2 * t13306 * t2008 + t20387 * t231 + 0.4e1 * t6353 * t666 + 0.6e1 * t1773 * t2062;
8201   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8202     v4sigma4[0] = -0.3e1 / 0.8e1 * t240 * t241 * (t20408 + t21088 + t21117 + t21164);
8203 
8204   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8205     v4sigma3lapl[0] = 0.0e0;
8206 
8207   t21190 = t4161 * t6347;
8208   t21195 = 0.324e3 * t4001 * t6472 - t6515 - 0.12e2 * t1628 * t6028 - 0.36e2 * t5328 * t2044 - 0.36e2 * t1628 * t6475 - 0.4959e4 / 0.10000e5 * t8516 * t713 * t6033 + 0.513e3 / 0.1000e4 * t10208 * t6639 - t2049 - 0.20375784800000000001e2 * t4376 * t692 * t6384 + 0.25007851962646829712e-4 * t516 * t6634 + 0.75465869629629629628e-1 * t6803 * t2115 + 0.972e3 * t1562 * t21190 - 0.27e2 / 0.100e3 * t13306 * t2198;
8209   t21224 = 0.3e1 / 0.10e2 * t17360 * t649 + 0.3e1 / 0.10e2 * t5270 * t2027 + t1749 * t6369 / 0.10e2 - 0.36e2 * t1220 * t6580 - 0.18e2 * t4395 * t2182 - 0.648e3 * t10657 * t6451 - 0.6e1 * t15684 * t720 - 0.18e2 * t4395 * t2177 - 0.18e2 * t1628 * t6448 - 0.18e2 * t1628 * t6465 + 0.162e3 * t4001 * t6460 - 0.18e2 * t5328 * t2047 + 0.162e3 * t13900 * t2038 - 0.18e2 * t17328 * t656;
8210   t21228 = t6645 * t649;
8211   t21231 = t17832 * t526;
8212   t21245 = t682 * t6027;
8213   t21250 = t5372 * t1765;
8214   t21253 = t13706 * t1763;
8215   t21258 = -0.36e2 * t5328 * t2041 + 0.513e3 / 0.1000e4 * t2426 * t21228 - 0.35010992747705561596e-4 * t24 * t21231 - 0.36e2 * t5638 * t6350 + 0.162e3 * t5641 * t6387 - 0.36e2 * t16965 * t2082 + 0.162e3 * t16968 * t2094 - 0.15004711177588097827e-3 * t18266 * t18267 * t510 + 0.1080e4 * t1562 * t21245 - 0.1944e4 * t13168 * t6558 + 0.162e3 * t1562 * t21250 - 0.1944e4 * t3190 * t21253 - 0.72e2 * t16971 * t2082;
8216   t21277 = t13687 * t1763;
8217   t21280 = t10699 * t6027;
8218   t21289 = -0.1944e4 * t11298 * t6558 + 0.972e3 * t1562 * t21277 + 0.324e3 * t16974 * t2094 - 0.36e2 * t16977 * t2082 + 0.162e3 * t16980 * t2094 - 0.7776e4 * t3190 * t21280 - 0.72e2 * t4496 * t6536 - 0.36e2 * t4496 * t6538 + 0.972e3 * t4499 * t6561 + 0.324e3 * t4499 * t6564 + 0.162e3 * t4499 * t6567 - 0.72e2 * t4513 * t6536 + 0.972e3 * t4516 * t6561 + 0.324e3 * t4516 * t6564;
8219   t21304 = t352 * t1770 * t526;
8220   t21307 = t692 * t6350;
8221   t21310 = t692 * t6387;
8222   t21314 = t352 * t1996 * t526;
8223   t21318 = t352 * t1768 * t526;
8224   t21322 = t813 * t17467 * t510;
8225   t21327 = 0.162e3 * t4516 * t6567 - 0.27e2 / 0.100e3 * t1194 * t2163 * t2027 - 0.27e2 / 0.50e2 * t3216 * t6642 - 0.27e2 / 0.100e3 * t3216 * t6645 - 0.27e2 / 0.100e3 * t4360 * t6445 + t6624 - 0.45279521777777777778e0 * t1739 * t21304 + 0.22639760888888888889e1 * t1739 * t21307 - 0.10187892400000000000e2 * t4376 * t21310 + 0.40751569600000000001e1 * t4376 * t21314 - 0.90559043555555555556e0 * t1739 * t21318 + 0.63391330488888888889e0 * t1739 * t21322 - 0.90559043555555555555e0 * t5665 * t6711;
8226   t21339 = t10422 * t6027;
8227   t21346 = t2075 * t1765;
8228   t21349 = t2080 * t1765;
8229   t21366 = 0.72e2 * t1220 * t6536 + 0.36e2 * t1220 * t6538 + 0.36e2 * t1628 * t6350 - 0.1080e4 * t762 * t21245 - 0.162e3 * t762 * t21250 + 0.1944e4 * t2372 * t21253 - 0.972e3 * t762 * t21277 + 0.7776e4 * t2372 * t21280 - 0.9720e4 * t7397 * t21339 + 0.36e2 * t256 * t21346 + 0.1944e4 * t5350 * t21346 - 0.972e3 * t5353 * t21346 + 0.36e2 * t256 * t21349 - 0.972e3 * t3152 * t6561 - 0.162e3 * t4001 * t6387 + 0.1944e4 * t8722 * t6558 + t6380 - t6569 + t6575;
8230   t21372 = t1763 * t2079;
8231   t21376 = (0.6e1 * t1765 * t2079 + t1767 + t1771 + 0.54e2 * t21346 + 0.54e2 * t21349 + 0.54e2 * t21372 + t6348 + t6351 + t6531 + t6539) * t23;
8232   t21405 = 0.12e2 * t1628 * t6027 + t2002 - t21376 + 0.36e2 * t4395 * t2082 - 0.162e3 * t11594 * t2094 - 0.324e3 * t3152 * t6564 - 0.162e3 * t3152 * t6567 + 0.36e2 * t1220 * t6534 + 0.36e2 * t5328 * t1768 - 0.324e3 * t4001 * t6384 + 0.18e2 * t17328 * t513 + 0.18e2 * t5328 * t1770 - 0.162e3 * t13900 * t1996 + 0.648e3 * t10657 * t6381 + 0.6e1 * t15684 * t682 + 0.18e2 * t4395 * t2084 + 0.36e2 * t256 * t21372 + t6549 - t6389 + t6393;
8233   t21406 = t21366 + t21405;
8234   t21416 = t37 * t113 * t6027;
8235   t21419 = t37 * t6052;
8236   t21424 = t4109 * t6347;
8237   t21436 = -0.18e2 * t256 * t4405 * t2079 - t6457 + t21406 * t217 - 0.36e2 * t256 * t666 * t1763 * t679 - 0.36e2 * t256 * t6579 * t2079 + 0.75465869629629629630e0 * t11179 * t21416 + 0.84521773985185185182e-1 * t723 * t21419 - 0.10565221748148148148e0 * t2185 * t6648 - 0.1944e4 * t3190 * t21424 - 0.27e2 / 0.100e3 * t1194 * t6617 * t649 - t6467 - 0.36e2 * t4513 * t6538 - 0.36e2 * t1568 * t21346 - 0.36e2 * t1568 * t21349;
8238   t21485 = 0.324e3 * t4001 * t6436 - 0.36e2 * t1628 * t6439 - 0.36e2 * t5328 * t1785 + t699 * t6370 / 0.10e2 - t6398 + 0.3e1 * t6541 * t627 - 0.36e2 * t15717 * t2082 + 0.162e3 * t15720 * t2094 - 0.36e2 * t5490 * t6350 + 0.162e3 * t5493 * t6387 - 0.4959e4 / 0.10000e5 * t195 * t10784 * t6033 - t1790 - 0.27e2 / 0.100e3 * t195 * t17740 * t649 - 0.18e2 * t256 * t4593 * t2079 - 0.36e2 * t1220 * t6695;
8239   t21518 = 0.972e3 * t1226 * t21190 - 0.62888224691358024691e-1 * t6353 * t102 * t693 - 0.72e2 * t4589 * t6536 + 0.324e3 * t5131 * t6564 + 0.9720e4 * t10079 * t21339 + 0.25007851962646829712e-4 * t24 * t572 * t6633 * t351 - t6681 - 0.18e2 * t1220 * t6675 + 0.25007851962646829712e-4 * t516 * t6702 - 0.18e2 * t4395 * t2097 - 0.15004711177588097827e-3 * t17887 * t6634 * t513 + 0.11319880444444444444e1 * t17669 * t2109 + 0.22639760888888888889e1 * t5561 * t6741 + 0.11319880444444444444e1 * t17664 * t2109 + 0.22639760888888888889e1 * t17637 * t2109;
8240   t21553 = t21406 * t194 * t217 - 0.20375784800000000001e2 * t4074 * t37 * t10975 * t6027 + 0.22639760888888888889e1 * t5568 * t6741 + 0.40751569600000000001e2 * t10989 * t37 * t10990 * t6027 - 0.10187892400000000000e2 * t14241 * t6733 - 0.10187892400000000000e2 * t14342 * t6733 + 0.11319880444444444444e1 * t5568 * t6729 + 0.11319880444444444444e1 * t5561 * t6729 + 0.3e1 * t2087 * t1992 + t685 * t6345 + 0.162e3 * t4001 * t6420 - 0.18e2 * t1628 * t6428 + 0.162e3 * t13900 * t1779 - 0.18e2 * t5328 * t1788 - 0.18e2 * t1628 * t6425;
8241   t21567 = -t6596 + 0.73e2 / 0.45e2 * t691 * t6593 * t510 + t6602 + t6360 - 0.73e2 / 0.1620e4 * t37 * t6603 * t510 - 0.73e2 / 0.3240e4 * t37 * t2149 * t1765 - t2022 + t6368 + 0.292e3 / 0.45e2 * t2153 * t1765 + t6613 - t6366 + t2026;
8242   t21600 = 0.3e1 / 0.10e2 * t2004 * t2164 + t195 * t450 * t21567 / 0.10e2 + 0.3e1 / 0.10e2 * t6670 * t650 + 0.3e1 / 0.10e2 * t2129 * t2028 - 0.12e2 * t1628 * t6036 - 0.18866467407407407407e0 * t1773 * t572 * t693 - 0.1944e4 * t3889 * t21424 + 0.75465869629629629630e0 * t1650 * t21416 + 0.75465869629629629628e-1 * t17609 * t2115 - 0.18866467407407407407e0 * t516 * t1887 * t693 - 0.62888224691358024691e-1 * t24 * t6192 * t693 - 0.27e2 / 0.100e3 * t699 * t6409 + 0.3e1 / 0.10e2 * t632 * t6749 - 0.36e2 * t5328 * t1782 - 0.18e2 * t17328 * t518;
8243   t21631 = -0.648e3 * t10657 * t6431 + t6413 - 0.27e2 / 0.100e3 * t2129 * t2009 + 0.324e3 * t4574 * t6564 - 0.72e2 * t4571 * t6536 - 0.35010992747705561596e-4 * t690 * t21231 + 0.40751569600000000001e1 * t5470 * t21314 - 0.90559043555555555555e0 * t14649 * t6711 - 0.90559043555555555555e0 * t14665 * t6711 + 0.63391330488888888889e0 * t4168 * t21322 - 0.90559043555555555556e0 * t4168 * t21318 + 0.171e3 / 0.1000e4 * t699 * t6405 - t6415 - 0.36e2 * t256 * t627 * t1763 * t679 - 0.45279521777777777778e0 * t4168 * t21304;
8244   t21659 = 0.22639760888888888889e1 * t4168 * t21307 - 0.10187892400000000000e2 * t5470 * t21310 - 0.36e2 * t16877 * t2082 + 0.162e3 * t16880 * t2094 + t21376 * t150 - 0.36e2 * t1220 * t6662 - t6430 + 0.513e3 / 0.1000e4 * t5544 * t21228 - 0.6e1 * t15684 * t687 + 0.162e3 * t4574 * t6567 - 0.1944e4 * t11563 * t6558 - 0.36e2 * t1234 * t21346 + 0.1080e4 * t1226 * t21245 - 0.36e2 * t1234 * t21349 + 0.972e3 * t1226 * t21277;
8245   t21692 = -0.36e2 * t4571 * t6538 + 0.972e3 * t4574 * t6561 - 0.7776e4 * t3889 * t21280 + 0.162e3 * t5131 * t6567 - 0.1944e4 * t11554 * t6558 + t6395 * t714 / 0.10e2 + 0.513e3 / 0.1000e4 * t632 * t6665 + t6731 + 0.513e3 / 0.1000e4 * t195 * t14123 * t2008 - 0.9e1 / 0.100e3 * t195 * t1686 * t6369 - 0.27e2 / 0.100e3 * t632 * t6707 - 0.27e2 / 0.100e3 * t195 * t5396 * t2027 - 0.27e2 / 0.50e2 * t632 * t6698 - 0.27e2 / 0.100e3 * t2004 * t2135 + 0.324e3 * t16902 * t2094;
8246   t21721 = 0.162e3 * t1226 * t21250 - 0.1944e4 * t3889 * t21253 - 0.36e2 * t4589 * t6538 + 0.972e3 * t5131 * t6561 - 0.72e2 * t16899 * t2082 + t6761 - t6769 - 0.6e1 * t256 * t15733 * t679 - 0.18e2 * t4395 * t2102 - 0.36e2 * t256 * t6661 * t2079 + 0.84521773985185185182e-1 * t1661 * t21419 + 0.75465869629629629628e-1 * t17858 * t2115 - 0.10565221748148148148e0 * t5539 * t6648 - 0.10565221748148148148e0 * t5532 * t6648 + 0.15093173925925925925e0 * t17504 * t2115;
8247   t21728 = -0.62888224691358024691e-1 * t6353 * t104 * t114 + 0.9720e4 * t10329 * t21339 - t6504 + t6506 - 0.18e2 * t1220 * t6590 - 0.36e2 * t1220 * t6585 - 0.6e1 * t256 * t16945 * t679 - 0.9e1 / 0.100e3 * t1194 * t713 * t6369 + 0.513e3 / 0.1000e4 * t2426 * t2163 * t2008 - p->cam_beta * (t21485 + t21518 + t21553 + t21600 + t21631 + t21659 + t21692 + t21721) + t6794 - t6802 - 0.27e2 / 0.100e3 * t13427 * t2008;
8248   t21756 = 0.171e3 / 0.1000e4 * t11103 * t6033 + 0.3e1 * t2087 * t2062 + t685 * t6497 + t21376 * t231 + 0.3e1 * t6541 * t666 + t17025 * t713 / 0.10e2 + 0.22639760888888888889e1 * t5665 * t6628 + 0.11319880444444444444e1 * t17191 * t2188 + 0.11319880444444444444e1 * t5665 * t6622 - 0.10187892400000000000e2 * t13440 * t6625 + 0.40751569600000000001e2 * t11126 * t692 * t6381 + 0.3e1 / 0.10e2 * t1598 * t6617 + t501 * t21567 / 0.10e2 + 0.3e1 / 0.10e2 * t4388 * t2163;
8249   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8250     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t240 * t241 * (t21195 + t21224 + t21258 + t21289 + t21327 + t21436 + t21728 + t21756);
8251 
8252   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8253     v4sigma2lapl2[0] = 0.0e0;
8254 
8255   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8256     v4sigma2lapltau[0] = 0.0e0;
8257 
8258   t21774 = t2214 * t1765;
8259   t21777 = t15106 * t1763;
8260   t21780 = t5733 * t1765;
8261   t21783 = t15088 * t1763;
8262   t21793 = t5716 * t1765;
8263   t21796 = t14968 * t1763;
8264   t21799 = -0.12e2 * t6514 - 0.1296e4 * t11298 * t6897 + 0.648e3 * t4516 * t6900 + 0.216e3 * t4516 * t6903 - 0.1296e4 * t13168 * t6897 - 0.48e2 * t4496 * t6840 - 0.12e2 * t1568 * t21774 + 0.324e3 * t1562 * t21777 + 0.54e2 * t1562 * t21780 - 0.648e3 * t3190 * t21783 + 0.108e3 * t5641 * t6567 - 0.1296e4 * t13733 * t6558 - 0.12577644938271604938e0 * t6541 * t104 * t114 + 0.324e3 * t1562 * t21793 - 0.7776e4 * t3190 * t21796;
8265   t21800 = t5723 * t1765;
8266   t21803 = t15011 * t1763;
8267   t21816 = t2075 * t2079;
8268   t21820 = t1763 * t2207 * t17;
8269   t21831 = t18701 * t510;
8270   t21838 = 0.9720e4 * t10329 * t21803 - 0.24e2 * t1220 * t6876 + 0.1080e4 * t1562 * t21820 + 0.108e3 * t1562 * t21831 - 0.48e2 * t1568 * t21816 - 0.48e2 * t18125 * t2082 + 0.216e3 * t18130 * t2094 - 0.48e2 * t18133 * t2082 + 0.216e3 * t18136 * t2094 - 0.648e3 * t3190 * t21800 - 0.24e2 * t4496 * t6842 + 0.648e3 * t4499 * t6900 + 0.216e3 * t4499 * t6903 + 0.108e3 * t4499 * t6914 - 0.48e2 * t4513 * t6840 - 0.48e2 * t5638 * t6536;
8271   t21872 = -0.12e2 * t256 * t13056 * t2207 + 0.54e2 * t762 * t13185 * t2207 - 0.12e2 * t4395 * t2296 - 0.24e2 * t1220 * t6872 - t2049 + 0.15093173925925925926e1 * t1739 * t692 * t6534 + 0.15093173925925925926e1 * t18740 * t2188 + 0.75465869629629629628e0 * t5974 * t6622 - 0.67919282666666666665e1 * t15547 * t6625 + 0.75465869629629629630e0 * t17191 * t2293 + 0.15093173925925925926e1 * t5665 * t6820 - 0.12e2 * t5754 * t2044 - 0.24e2 * t1628 * t6580 - 0.12e2 * t256 * t1575 * t6835 - 0.12e2 * t18439 * t656;
8272   t21885 = t4161 * t6532;
8273   t21888 = t4109 * t6532;
8274   t21897 = t6836 * t510;
8275   t21909 = -0.12e2 * t5754 * t2041 - 0.6e1 * t5754 * t2047 + 0.54e2 * t14857 * t2038 - 0.12e2 * t17328 * t720 - 0.70434811654320987653e-1 * t2287 * t6648 + 0.10062115950617283950e0 * t7072 * t2115 + 0.1296e4 * t1562 * t21885 - 0.2592e4 * t3190 * t21888 + 0.216e3 * t5641 * t6564 - 0.24e2 * t4513 * t6842 + 0.108e3 * t4516 * t6914 - 0.24e2 * t1568 * t21897 - 0.10003140785058731885e-3 * t18266 * t18267 * t679 - 0.24e2 * t5638 * t6538 + 0.648e3 * t5641 * t6561 + 0.171e3 / 0.500e3 * t10208 * t7088;
8276   t21916 = t692 * t6564;
8277   t21920 = t813 * t682 * t1791;
8278   t21923 = t692 * t6538;
8279   t21926 = t692 * t6561;
8280   t21929 = t692 * t6567;
8281   t21932 = t692 * t6558;
8282   t21936 = t352 * t2084 * t526;
8283   t21939 = t692 * t6536;
8284   t21974 = 0.216e3 * t4574 * t6903 - 0.1296e4 * t11563 * t6897 - 0.48e2 * t4589 * t6840 + 0.648e3 * t5131 * t6900 + 0.216e3 * t5131 * t6903 - 0.1296e4 * t11554 * t6897 + 0.648e3 * t4574 * t6900 - 0.24e2 * t4571 * t6842 + 0.108e3 * t4574 * t6914 - 0.24e2 * t1234 * t21897 + 0.108e3 * t1226 * t21831 - 0.48e2 * t1234 * t21816 - 0.48e2 * t5490 * t6536 + 0.216e3 * t5493 * t6564 - 0.12e2 * t5754 * t1785 - 0.9e1 / 0.50e2 * t699 * t6707;
8285   t21993 = t2079 * t2079;
8286   t22000 = t1765 * t2207;
8287   t22003 = t16 * t21993;
8288   t22006 = t1763 * t2213;
8289   t22010 = 0.2e1 * t1765 * t2213 + 0.4e1 * t510 * t6835 + t1767 + t1771 + 0.18e2 * t21774 + 0.72e2 * t21816 + 0.36e2 * t21897 + 0.4e1 * t21993 + 0.18e2 * t22000 + 0.36e2 * t22003 + 0.18e2 * t22006 + 0.4e1 * t6530 + 0.36e2 * t6538;
8290   t22011 = t22010 * t23;
8291   t22032 = -0.24e2 * t1628 * t6695 - 0.24e2 * t1628 * t6662 - 0.9e1 / 0.25e2 * t699 * t6698 + 0.1296e4 * t1226 * t21885 - 0.12577644938271604938e0 * t6541 * t102 * t693 - 0.25155289876543209876e0 * t2087 * t572 * t693 - 0.2592e4 * t3889 * t21888 + 0.2e1 * t6847 * t627 + t22011 * t150 + t2221 * t1992 - 0.9e1 / 0.25e2 * t632 * t6970 - 0.24e2 * t256 * t772 * t21993 - 0.12e2 * t256 * t6661 * t2213 + 0.171e3 / 0.1000e4 * t195 * t15134 * t2008 - 0.4959e4 / 0.10000e5 * t195 * t15138 * t2008 + 0.171e3 / 0.500e3 * t699 * t6665 + 0.108e3 * t5493 * t6567;
8292   t22073 = -0.1296e4 * t14552 * t6558 - 0.24e2 * t5490 * t6538 + 0.648e3 * t5493 * t6561 - 0.48e2 * t4571 * t6840 - 0.10003140785058731885e-3 * t17887 * t6634 * t682 - 0.12577644938271604938e0 * t685 * t1887 * t693 - t1790 - 0.9e1 / 0.25e2 * t2129 * t2135 - 0.12e2 * t1220 * t7022 - 0.24e2 * t256 * t627 * t510 * t2207 - 0.12e2 * t256 * t150 * t1765 * t2207 - 0.6e1 * t4395 * t2238 - 0.6e1 * t256 * t4593 * t2213 - 0.24e2 * t1220 * t7032 - 0.12e2 * t1628 * t6675 - 0.60372695703703703702e0 * t15323 * t6711 - 0.60372695703703703704e0 * t4168 * t21936;
8293   t22109 = 0.30186347851851851852e1 * t4168 * t21939 - 0.13583856533333333333e2 * t5470 * t21916 - 0.60372695703703703704e0 * t14665 * t7001 + 0.30186347851851851852e1 * t14665 * t7004 - 0.13583856533333333333e2 * t17460 * t7007 - 0.60372695703703703704e0 * t14649 * t7001 + 0.15093173925925925926e1 * t4168 * t21923 - 0.40751569600000000000e2 * t5470 * t21926 - 0.67919282666666666667e1 * t5470 * t21929 + 0.81503139200000000000e2 * t14683 * t21932 + 0.171e3 / 0.500e3 * t632 * t7037 - 0.12e2 * t1220 * t7026 - 0.9e1 / 0.50e2 * t195 * t1686 * t6617 - 0.12e2 * t256 * t11643 * t2207 - 0.12e2 * t6680 + 0.75465869629629629628e0 * t5931 * t6729 - 0.67919282666666666665e1 * t14895 * t6733;
8294   t22155 = 0.1296e4 * t10657 * t6558 + 0.48e2 * t1628 * t6536 + 0.24e2 * t1628 * t6538 - 0.324e3 * t762 * t21777 + 0.648e3 * t2372 * t21800 - 0.648e3 * t3152 * t6900 - 0.216e3 * t3152 * t6903 - 0.216e3 * t4001 * t6564 - 0.108e3 * t4001 * t6567 + 0.1296e4 * t8722 * t6897 - 0.108e3 * t6568 + 0.24e2 * t6574;
8295   t22180 = 0.48e2 * t1220 * t6840 + 0.24e2 * t1220 * t6842 - 0.216e3 * t13900 * t2094 + 0.48e2 * t5328 * t2082 - 0.54e2 * t762 * t21780 + 0.648e3 * t2372 * t21783 - 0.324e3 * t762 * t21793 - 0.9720e4 * t7397 * t21803 + 0.48e2 * t256 * t21816 - 0.108e3 * t762 * t21831 + 0.24e2 * t256 * t21897 - 0.108e3 * t3152 * t6914;
8296   t22206 = -0.54e2 * t11594 * t2243 + 0.24e2 * t1220 * t6838 - 0.54e2 * t14857 * t1996 + 0.12e2 * t17328 * t682 + 0.6e1 * t5754 * t1770 + 0.12e2 * t18439 * t513 + 0.24e2 * t5328 * t2084 + 0.12e2 * t256 * t21774 + 0.7776e4 * t2372 * t21796 - 0.1080e4 * t762 * t21820 + 0.12e2 * t4395 * t2216 - 0.648e3 * t4001 * t6561;
8297   t22229 = -0.108e3 * t762 * t763 * t21993 + 0.12e2 * t1220 * t6844 + 0.24e2 * t1628 * t6534 + 0.12e2 * t5754 * t1768 + 0.2592e4 * t5350 * t21816 - 0.1296e4 * t5353 * t21816 + 0.12e2 * t256 * t22000 + 0.24e2 * t256 * t22003 + 0.12e2 * t256 * t22006 + 0.6e1 * t4395 * t2218 + t2002 - t22011 + 0.12e2 * t6548;
8298   t22231 = t22155 + t22180 + t22206 + t22229;
8299   t22244 = t7091 * t649;
8300   t22249 = 0.15093173925925925926e1 * t18984 * t2109 + 0.15093173925925925926e1 * t18999 * t2109 + 0.15093173925925925926e1 * t1650 * t37 * t113 * t1763 * t679 + 0.15093173925925925926e1 * t5568 * t7045 + 0.15093173925925925926e1 * t5561 * t7045 + 0.75465869629629629630e0 * t17669 * t2232 + 0.15093173925925925926e1 * t17637 * t2232 + 0.75465869629629629630e0 * t17664 * t2232 + 0.15093173925925925926e1 * t5931 * t6741 + t22231 * t194 * t217 - 0.70434811654320987653e-1 * t5909 * t6648 + 0.108e3 * t762 * t764 * t21993 - 0.9e1 / 0.100e3 * t2251 * t2009 - 0.9e1 / 0.100e3 * t195 * t5887 * t2027 + 0.171e3 / 0.250e3 * t5544 * t22244 - 0.48e2 * t17784 * t2082;
8301   t22284 = 0.9720e4 * t10079 * t21803 + 0.324e3 * t1226 * t21777 + 0.54e2 * t1226 * t21780 + 0.324e3 * t1226 * t21793 + 0.1080e4 * t1226 * t21820 - 0.12e2 * t1234 * t21774 + 0.216e3 * t17787 * t2094 - 0.12e2 * t5754 * t1782 - 0.6e1 * t5754 * t1788 + 0.216e3 * t17908 * t2094 - 0.48e2 * t17921 * t2082 - 0.12e2 * t18439 * t518 - 0.648e3 * t3889 * t21783 - 0.7776e4 * t3889 * t21796 - 0.648e3 * t3889 * t21800 - 0.24e2 * t4589 * t6842 + 0.108e3 * t5131 * t6914;
8302   t22292 = t18644 * t510;
8303   t22337 = -0.73e2 / 0.135e3 * t6595 + 0.292e3 / 0.135e3 * t691 * t6932 * t510 + 0.146e3 / 0.135e3 * t691 * t2264 * t1765 + 0.73e2 / 0.135e3 * t6601 + 0.73e2 / 0.9720e4 * t37 * t41 * t6835 * t213 - 0.73e2 / 0.4860e4 * t37 * t6942 * t510 - t2022 + 0.584e3 / 0.135e3 * t6946 * t510 + 0.292e3 / 0.135e3 * t2271 * t1765 - 0.73e2 / 0.2430e4 * t37 * t2149 * t2079 + 0.584e3 / 0.135e3 * t209 * t21993 + 0.584e3 / 0.135e3 * t6612 - 0.73e2 / 0.9720e4 * t37 * t640 * t6835 + t2026;
8304   t22354 = -0.24e2 * t5328 * t2097 + 0.54e2 * t14857 * t1779 - 0.12e2 * t17328 * t687 - 0.12074539140740740741e1 * t4168 * t14192 * t22292 + 0.54335426133333333334e1 * t5470 * t14188 * t22292 - 0.12e2 * t4395 * t2235 + t2004 * t2279 / 0.10e2 + t632 * t6962 / 0.5e1 + t6670 * t714 / 0.5e1 + 0.2e1 / 0.5e1 * t2129 * t2164 + t195 * t450 * t22337 / 0.10e2 - 0.24e2 * t1220 * t7010 + t699 * t6749 / 0.5e1 - 0.9e1 / 0.100e3 * t2004 * t2256 + 0.171e3 / 0.1000e4 * t195 * t5821 * t2027 + 0.16671901308431219808e-4 * t685 * t6702 + t6922 * t650 / 0.5e1;
8305   t22374 = t2163 * t2163;
8306   t22391 = t2251 * t2028 / 0.10e2 - 0.12e2 * t256 * t1241 * t6835 - 0.24e2 * t5328 * t2102 + 0.75465869629629629630e0 * t6730 - 0.9e1 / 0.50e2 * t632 * t6973 - 0.9e1 / 0.50e2 * t195 * t18919 * t649 + 0.30186347851851851852e1 * t14649 * t7004 - 0.13583856533333333333e2 * t17731 * t7007 + 0.42260886992592592593e0 * t4168 * t21920 - 0.9e1 / 0.50e2 * t195 * t1105 * t22374 + 0.108e3 * t6760 - 0.24e2 * t6768 + 0.54e2 * t762 * t11620 * t2207 + 0.10062115950617283950e0 * t19283 * t2115 + 0.10062115950617283950e0 * t19272 * t2115 + 0.108e3 * t3152 * t7015 + 0.54e2 * t11594 * t2228;
8307   t22405 = 0.171e3 / 0.1000e4 * t2426 * t2255 * t2027 + 0.75465869629629629630e0 * t6623 - 0.13583856533333333333e2 * t4376 * t21916 + 0.42260886992592592593e0 * t1739 * t21920 + 0.15093173925925925926e1 * t1739 * t21923 - 0.40751569600000000000e2 * t4376 * t21926 - 0.67919282666666666667e1 * t4376 * t21929 + 0.81503139200000000000e2 * t11126 * t21932 - 0.60372695703703703704e0 * t1739 * t21936 + 0.30186347851851851852e1 * t1739 * t21939 - p->cam_beta * (t21974 + t22032 + t22073 + t22109 + t22249 + t22284 + t22354 + t22391) - 0.9e1 / 0.25e2 * t3216 * t7091 + 0.171e3 / 0.500e3 * t11103 * t6639 + 0.171e3 / 0.1000e4 * t2426 * t2278 * t2008 - 0.9e1 / 0.50e2 * t1194 * t22374;
8308   t22447 = -0.60372695703703703702e0 * t5974 * t6711 - 0.60372695703703703704e0 * t5665 * t7001 + 0.30186347851851851852e1 * t5665 * t7004 - 0.13583856533333333333e2 * t13440 * t7007 - 0.24e2 * t256 * t666 * t510 * t2207 - 0.12e2 * t256 * t231 * t1765 * t2207 - 0.6e1 * t4395 * t2299 + 0.108e3 * t762 * t1152 * t21993 - 0.24e2 * t256 * t1160 * t21993 - 0.12e2 * t256 * t6579 * t2213 + 0.15093173925925925926e1 * t5974 * t6628 - 0.12e2 * t1220 * t6859 - 0.12e2 * t1220 * t6862 - 0.6e1 * t256 * t4405 * t2213 - 0.9e1 / 0.50e2 * t3216 * t7101 - 0.9e1 / 0.50e2 * t1194 * t6961 * t649;
8309   t22485 = 0.16671901308431219808e-4 * t685 * t6634 - 0.24e2 * t5328 * t2177 - 0.24e2 * t5328 * t2182 - 0.12e2 * t1628 * t6590 - 0.12074539140740740741e1 * t13798 * t13799 * t22292 + 0.54335426133333333334e1 * t13805 * t13806 * t22292 - 0.4959e4 / 0.10000e5 * t8516 * t2255 * t2008 - 0.9e1 / 0.25e2 * t4360 * t6642 - 0.9e1 / 0.50e2 * t1194 * t713 * t6617 - 0.9e1 / 0.25e2 * t13427 * t2198 - 0.9e1 / 0.50e2 * t4360 * t6645 - 0.9e1 / 0.100e3 * t1194 * t2278 * t2027 + 0.171e3 / 0.250e3 * t2426 * t22244 - 0.9e1 / 0.100e3 * t15651 * t2008 - 0.24e2 * t1628 * t6585 + t22231 * t217;
8310   t22514 = 0.108e3 * t3152 * t6867 + 0.54e2 * t11594 * t2290 + 0.108e3 * t6793 - 0.24e2 * t6801 + t18653 * t649 / 0.5e1 + t4388 * t2278 / 0.10e2 + t1598 * t6961 / 0.5e1 + t5971 * t2027 / 0.10e2 + t22011 * t231 + 0.2e1 * t6847 * t666 + t2221 * t2062 - 0.9e1 / 0.100e3 * t13306 * t2255 + 0.2e1 / 0.5e1 * t5270 * t2163 + t1749 * t6617 / 0.5e1 + t501 * t22337 / 0.10e2 + t17360 * t713 / 0.5e1;
8311   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8312     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t240 * t241 * (t21799 + t21838 + t21872 + t21909 + t22405 + t22447 + t22485 + t22514);
8313 
8314   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8315     v4sigmalapl3[0] = 0.0e0;
8316 
8317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8318     v4sigmalapl2tau[0] = 0.0e0;
8319 
8320   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8321     v4sigmalapltau2[0] = 0.0e0;
8322 
8323   t22544 = t4161 * t6831;
8324   t22547 = t4109 * t6831;
8325   t22550 = -0.4959e4 / 0.10000e5 * t8516 * t7190 * t649 - 0.27e2 / 0.100e3 * t3216 * t7193 - 0.27e2 / 0.100e3 * t1194 * t2163 * t2278 + 0.513e3 / 0.1000e4 * t2426 * t2255 * t2163 - 0.12e2 * t1220 * t7138 - 0.12e2 * t256 * t666 * t7117 - 0.9e1 / 0.100e3 * t1194 * t7265 * t649 - 0.27e2 / 0.100e3 * t15651 * t2198 + 0.75465869629629629628e-1 * t7112 * t2115 + 0.972e3 * t1562 * t22544 - 0.1944e4 * t3190 * t22547;
8326   t22571 = t2207 * t2079;
8327   t22578 = my_piecewise3(t15, -0.3e1 / 0.4e1 * t10 * t7142, 0);
8328   t22579 = t17 * t22578;
8329   t22594 = 0.6e1 * t19930 * t513 + 0.18e2 * t18439 * t682 + 0.18e2 * t5754 * t2084 - 0.162e3 * t13900 * t2243 + 0.36e2 * t5328 * t2216 + 0.36e2 * t1628 * t6838 + 0.18e2 * t5328 * t2218 + 0.18e2 * t1628 * t6844 + 0.648e3 * t8722 * t7174 - 0.324e3 * t3152 * t7177 + 0.36e2 * t256 * t22571 + 0.6e1 * t1220 * t7162 + 0.6e1 * t256 * t22579 + 0.36e2 * t5754 * t2082 - 0.162e3 * t14857 * t2094 - 0.972e3 * t4001 * t6900 - 0.324e3 * t4001 * t6903 + 0.1944e4 * t10657 * t6897 + 0.72e2 * t1628 * t6840;
8330   t22599 = t19702 * t510;
8331   t22602 = t5723 * t2079;
8332   t22605 = t19689 * t510;
8333   t22608 = t19695 * t510;
8334   t22611 = t5716 * t2079;
8335   t22616 = t5372 * t2213;
8336   t22619 = t1634 * t6835;
8337   t22624 = t2075 * t2213;
8338   t22627 = t2080 * t2213;
8339   t22630 = t680 * t6835;
8340   t22633 = t7158 * t510;
8341   t22636 = t19672 * t510;
8342   t22660 = (0.2e1 * t16 * t22578 + 0.6e1 * t2079 * t2213 + 0.2e1 * t510 * t7145 + 0.6e1 * t679 * t6835 + 0.54e2 * t22571 + 0.9e1 * t22579 + 0.54e2 * t22624 + 0.54e2 * t22627 + 0.54e2 * t22630 + 0.18e2 * t22633) * t23;
8343   t22661 = 0.12e2 * t1220 * t7117 + 0.36e2 * t1220 * t7124 + 0.36e2 * t1628 * t6842 + 0.7776e4 * t2372 * t22599 + 0.1944e4 * t2372 * t22602 - 0.9720e4 * t7397 * t22605 - 0.1080e4 * t762 * t22608 - 0.972e3 * t762 * t22611 - 0.162e3 * t762 * t22616 - 0.162e3 * t762 * t22619 + 0.36e2 * t256 * t22624 + 0.1944e4 * t5350 * t22624 - 0.972e3 * t5353 * t22624 + 0.36e2 * t256 * t22627 + 0.36e2 * t256 * t22630 + 0.12e2 * t256 * t22633 - 0.54e2 * t762 * t22636 - 0.162e3 * t3152 * t7121 - 0.162e3 * t4001 * t6914 - t22660;
8344   t22662 = t22594 + t22661;
8345   t22677 = t352 * t2243 * t526;
8346   t22680 = t692 * t6900;
8347   t22683 = t692 * t6903;
8348   t22686 = t692 * t6897;
8349   t22690 = t352 * t2218 * t526;
8350   t22693 = t692 * t6842;
8351   t22696 = -0.27e2 / 0.100e3 * t2129 * t2256 - 0.36e2 * t19009 * t2082 + 0.162e3 * t19012 * t2094 - 0.36e2 * t5490 * t6842 + 0.162e3 * t5493 * t6914 + 0.324e3 * t5493 * t6903 + 0.40751569600000000000e1 * t5470 * t22677 - 0.61127354400000000000e2 * t5470 * t22680 - 0.20375784800000000000e2 * t5470 * t22683 + 0.12225470880000000000e3 * t14683 * t22686 - 0.45279521777777777776e0 * t4168 * t22690 + 0.22639760888888888888e1 * t4168 * t22693;
8352   t22697 = t692 * t6914;
8353   t22724 = -0.10187892400000000000e2 * t5470 * t22697 + t7274 * t650 / 0.10e2 - 0.27e2 / 0.100e3 * t699 * t6973 - 0.18e2 * t5754 * t2102 - 0.9e1 / 0.100e3 * t195 * t19810 * t649 - 0.27e2 / 0.100e3 * t195 * t5396 * t2278 - 0.36e2 * t1628 * t7010 + t22660 * t150 + t7165 * t627 + 0.75465869629629629628e-1 * t19945 * t2115 - 0.18866467407407407407e0 * t6847 * t102 * t693 - 0.18866467407407407407e0 * t2221 * t572 * t693;
8354   t22753 = 0.972e3 * t1226 * t22544 - 0.1944e4 * t3889 * t22547 - 0.27e2 / 0.50e2 * t699 * t6970 - 0.36e2 * t1628 * t7032 + 0.324e3 * t3152 * t7200 + 0.513e3 / 0.1000e4 * t699 * t7037 - 0.648e3 * t2372 * t9023 * t7117 - 0.6e1 * t256 * t1241 * t7145 + t22662 * t194 * t217 + 0.513e3 / 0.1000e4 * t195 * t5821 * t2163 - 0.27e2 / 0.100e3 * t632 * t7230 - 0.36e2 * t5328 * t2235;
8355   t22803 = -0.73e2 / 0.90e2 * t691 * t36 * t6835 * t213 + 0.73e2 / 0.45e2 * t691 * t7248 * t510 + 0.146e3 / 0.45e2 * t691 * t2264 * t2079 + 0.73e2 / 0.90e2 * t691 * t704 * t6835 + 0.73e2 / 0.19440e5 * t37 * t41 * t7145 * t213 - 0.146e3 / 0.135e3 * t209 * t22578 * t213 + 0.292e3 / 0.135e3 * t7258 * t510 - 0.73e2 / 0.3240e4 * t37 * t6942 * t679 + 0.292e3 / 0.45e2 * t6946 * t679 + 0.292e3 / 0.45e2 * t2271 * t2079 - 0.73e2 / 0.19440e5 * t37 * t640 * t7145 + 0.146e3 / 0.135e3 * t212 * t22578;
8356   t22824 = -0.4959e4 / 0.10000e5 * t195 * t20145 * t649 + 0.324e3 * t762 * t9039 * t7117 - 0.6e1 * t256 * t257 * t22578 - 0.18e2 * t18439 * t687 + 0.3e1 / 0.10e2 * t2129 * t2279 + t632 * t7266 / 0.10e2 + t195 * t450 * t22803 / 0.10e2 + 0.3e1 / 0.10e2 * t6922 * t714 + 0.3e1 / 0.10e2 * t2251 * t2164 + 0.3e1 / 0.10e2 * t699 * t6962 + 0.22639760888888888889e1 * t1650 * t37 * t113 * t510 * t2207 + 0.11319880444444444444e1 * t1650 * t37 * t1651 * t6835 + 0.11319880444444444444e1 * t20026 * t2109;
8357   t22851 = 0.22639760888888888889e1 * t5568 * t7221 + 0.22639760888888888889e1 * t5561 * t7221 - 0.10187892400000000000e2 * t14342 * t7210 + 0.22639760888888888889e1 * t5931 * t7045 - 0.10187892400000000000e2 * t14241 * t7210 + 0.22639760888888888889e1 * t18984 * t2232 + 0.22639760888888888889e1 * t18999 * t2232 + 0.11319880444444444444e1 * t5568 * t7214 + 0.11319880444444444444e1 * t5561 * t7214 - 0.72e2 * t5490 * t6840 + 0.972e3 * t5493 * t6900 + 0.1080e4 * t1226 * t22608;
8358   t22862 = t352 * t2216 * t526;
8359   t22865 = t692 * t6840;
8360   t22880 = 0.972e3 * t1226 * t22611 - 0.7776e4 * t3889 * t22599 - 0.27e2 / 0.100e3 * t195 * t1686 * t6961 - 0.18e2 * t5328 * t2238 - 0.90559043555555555556e0 * t4168 * t22862 + 0.45279521777777777778e1 * t4168 * t22865 + 0.162e3 * t4574 * t7121 + 0.162e3 * t1226 * t22616 + 0.162e3 * t1226 * t22619 - 0.36e2 * t4589 * t7124 - 0.1944e4 * t3889 * t22602 + 0.9720e4 * t10079 * t22605;
8361   t22890 = t7193 * t649;
8362   t22908 = -0.12e2 * t1234 * t22633 + 0.54e2 * t1226 * t22636 - 0.18e2 * t1628 * t7022 - 0.1944e4 * t14552 * t6897 + 0.513e3 / 0.1000e4 * t5544 * t22890 + 0.162e3 * t5131 * t7121 - 0.36e2 * t256 * t19948 * t2079 - 0.6e1 * t1220 * t7243 + 0.162e3 * t4001 * t7015 - 0.648e3 * t8722 * t7237 + 0.171e3 / 0.1000e4 * t632 * t7226 - 0.6e1 * t19930 * t518;
8363   t22936 = -0.27e2 / 0.100e3 * t2251 * t2135 - 0.36e2 * t4571 * t7124 - 0.36e2 * t1234 * t22624 - 0.36e2 * t1234 * t22627 - 0.36e2 * t1234 * t22630 - 0.18e2 * t5754 * t2097 - 0.18e2 * t1628 * t7026 + 0.162e3 * t13900 * t2228 - 0.90559043555555555556e0 * t15323 * t7001 + 0.45279521777777777778e1 * t15323 * t7004 - 0.20375784800000000000e2 * t19466 * t7007 - 0.12e2 * t1220 * t7240 - 0.12e2 * t256 * t627 * t7117;
8364   t22962 = t22662 * t217 - p->cam_beta * (t22696 + t22724 + t22753 + t22824 + t22851 + t22880 + t22908 + t22936) - 0.6e1 * t19930 * t656 - 0.27e2 / 0.100e3 * t4360 * t7101 + 0.513e3 / 0.1000e4 * t11103 * t7088 - 0.27e2 / 0.50e2 * t4360 * t7091 - 0.27e2 / 0.100e3 * t1194 * t713 * t6961 + 0.40751569600000000000e1 * t4376 * t22677 - 0.20375784800000000000e2 * t4376 * t22683 + 0.12225470880000000000e3 * t11126 * t22686 - 0.90559043555555555556e0 * t1739 * t22862 + 0.45279521777777777778e1 * t1739 * t22865;
8365   t22990 = -0.61127354400000000000e2 * t4376 * t22680 - 0.90559043555555555556e0 * t5974 * t7001 + 0.45279521777777777778e1 * t5974 * t7004 - 0.20375784800000000000e2 * t15547 * t7007 - 0.45279521777777777776e0 * t1739 * t22690 + 0.22639760888888888888e1 * t1739 * t22693 - 0.10187892400000000000e2 * t4376 * t22697 + 0.11319880444444444444e1 * t5665 * t7279 + 0.11319880444444444444e1 * t1739 * t692 * t6844 + 0.11319880444444444444e1 * t20210 * t2188 + 0.22639760888888888889e1 * t5665 * t7127 + 0.22639760888888888889e1 * t1739 * t692 * t6838;
8366   t23015 = 0.22639760888888888889e1 * t18740 * t2293 + 0.22639760888888888889e1 * t5974 * t6820 - 0.10187892400000000000e2 * t13440 * t7132 - 0.1944e4 * t3190 * t22602 + 0.9720e4 * t10329 * t22605 - 0.12e2 * t1568 * t22633 + 0.54e2 * t1562 * t22636 - 0.36e2 * t18709 * t2082 + 0.162e3 * t18712 * t2094 - 0.36e2 * t5638 * t6842 + 0.162e3 * t5641 * t6914 - 0.27e2 / 0.100e3 * t13427 * t2255;
8367   t23038 = t20268 * t649 / 0.10e2 + 0.3e1 / 0.10e2 * t18653 * t713 + 0.3e1 / 0.10e2 * t5270 * t2278 + 0.3e1 / 0.10e2 * t1749 * t6961 + t22660 * t231 + t7165 * t666 + t501 * t22803 / 0.10e2 + 0.3e1 / 0.10e2 * t5971 * t2163 + t1598 * t7265 / 0.10e2 + 0.171e3 / 0.1000e4 * t10208 * t7190 + 0.324e3 * t3152 * t7118;
8368   t23065 = 0.324e3 * t762 * t8554 * t7117 - 0.36e2 * t1628 * t6872 + 0.513e3 / 0.1000e4 * t2426 * t22890 - 0.36e2 * t1628 * t6876 - 0.18866467407407407407e0 * t6847 * t104 * t114 + 0.162e3 * t1562 * t22616 + 0.162e3 * t1562 * t22619 - 0.36e2 * t4496 * t7124 - 0.36e2 * t4513 * t7124 - 0.36e2 * t1568 * t22624 - 0.36e2 * t1568 * t22627 - 0.36e2 * t1568 * t22630;
8369   t23091 = 0.162e3 * t13900 * t2290 + 0.1080e4 * t1562 * t22608 + 0.972e3 * t1562 * t22611 - 0.18e2 * t1628 * t6859 - 0.18e2 * t1628 * t6862 - 0.7776e4 * t3190 * t22599 - 0.36e2 * t5328 * t2296 - 0.18e2 * t5328 * t2299 + 0.162e3 * t4499 * t7121 + 0.162e3 * t4516 * t7121 - 0.72e2 * t5638 * t6840 + 0.972e3 * t5641 * t6900;
8370   t23120 = -0.648e3 * t2372 * t10362 * t7117 - 0.6e1 * t256 * t1575 * t7145 - 0.36e2 * t256 * t20246 * t2079 - 0.6e1 * t256 * t480 * t22578 - 0.6e1 * t1220 * t7146 - 0.1944e4 * t13733 * t6897 - 0.18e2 * t18439 * t720 - 0.18e2 * t5754 * t2177 - 0.18e2 * t5754 * t2182 + 0.162e3 * t4001 * t6867 + 0.324e3 * t5641 * t6903 - 0.648e3 * t8722 * t7135;
8371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8372     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t240 * t241 * (t22550 + t22962 + t22990 + t23015 + t23038 + t23065 + t23091 + t23120);
8373 
8374   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8375     v4lapl4[0] = 0.0e0;
8376 
8377   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8378     v4lapl3tau[0] = 0.0e0;
8379 
8380   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8381     v4lapl2tau2[0] = 0.0e0;
8382 
8383   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8384     v4lapltau3[0] = 0.0e0;
8385 
8386   t23132 = t5716 * t2213;
8387   t23137 = t1634 * t7145;
8388   t23140 = t5723 * t2213;
8389   t23143 = t680 * t7145;
8390   t23149 = t2213 * t2213;
8391   t23155 = t2207 * t2207;
8392   t23159 = -0.25155289876543209876e0 * t7165 * t104 * t114 - 0.144e3 * t5638 * t7124 + 0.1944e4 * t1562 * t23132 + 0.648e3 * t5641 * t7121 + 0.216e3 * t1562 * t23137 - 0.3888e4 * t3190 * t23140 - 0.48e2 * t1568 * t23143 - 0.72e2 * t256 * t20246 * t2213 - 0.36e2 * t256 * t1160 * t23149 - 0.48e2 * t1628 * t7138 + 0.1080e4 * t762 * t480 * t23155;
8393   t23196 = t37 * t113 * t7117;
8394   t23209 = -0.72e2 * t256 * t19948 * t2213 - 0.36e2 * t256 * t772 * t23149 - 0.25155289876543209876e0 * t7165 * t102 * t693 + 0.1080e4 * t762 * t257 * t23155 + 0.162e3 * t762 * t764 * t23149 + 0.30186347851851851852e1 * t1650 * t23196 - 0.72e2 * t5754 * t2235 + 0.1296e4 * t4001 * t7200 + 0.45279521777777777777e1 * t20026 * t2232 + 0.45279521777777777777e1 * t5931 * t7214 - 0.40751569600000000000e2 * t14895 * t7210;
8395   t23239 = 0.16300627840000000000e3 * t10989 * t37 * t10990 * t7117 + 0.15093173925925925926e1 * t1650 * t37 * t1651 * t7145 + 0.90559043555555555556e1 * t5931 * t7221 - 0.81503139200000000000e2 * t4074 * t37 * t10975 * t7117 - 0.36e2 * t5754 * t2238 - 0.24e2 * t1628 * t7243 + 0.324e3 * t14857 * t2228 - 0.2592e4 * t10657 * t7237 - 0.9e1 / 0.25e2 * t195 * t1686 * t7265 - 0.27e2 / 0.50e2 * t2251 * t2256 - 0.27e2 / 0.25e2 * t699 * t7230;
8396   t23254 = my_piecewise3(t15, 0.3e1 * t11 / t7141 / tau[0], 0);
8397   t23260 = t692 * t7121;
8398   t23263 = t692 * t7124;
8399   t23290 = -0.1080e4 * t762 * t17 * t23155 + 0.7776e4 * t2372 * t7561 * t23155 + 0.2592e4 * t10657 * t7174 - 0.324e3 * t14857 * t2243 + 0.144e3 * t1628 * t7124 + 0.24e2 * t19930 * t682 + 0.72e2 * t5754 * t2216 + 0.36e2 * t5754 * t2218 + 0.3888e4 * t2372 * t23140 - 0.648e3 * t4001 * t7121 - 0.1296e4 * t4001 * t7177;
8400   t23303 = t2207 * t2213;
8401   t23305 = t16 * t23149;
8402   t23308 = t17 * t23254;
8403   t23311 = (0.2e1 * t16 * t23254 + 0.8e1 * t679 * t7145 + 0.72e2 * t23143 + 0.6e1 * t23149 + 0.108e3 * t23303 + 0.54e2 * t23305 + 0.9e1 * t23308) * t23;
8404   t23327 = -0.162e3 * t762 * t763 * t23149 - 0.9720e4 * t7397 * t7398 * t23155 + 0.48e2 * t1628 * t7117 + 0.24e2 * t1628 * t7162 - 0.1944e4 * t762 * t23132 - 0.216e3 * t762 * t23137 + 0.48e2 * t256 * t23143 + 0.72e2 * t256 * t23303 + 0.36e2 * t256 * t23305 + 0.6e1 * t256 * t23308 - t23311;
8405   t23328 = t23290 + t23327;
8406   t23336 = 0.513e3 / 0.500e3 * t195 * t5821 * t2278 - 0.7776e4 * t2372 * t7562 * t23155 + 0.9720e4 * t7397 * t7399 * t23155 - 0.6e1 * t256 * t257 * t23254 - 0.24e2 * t19930 * t687 - 0.40751569600000000000e2 * t5470 * t23260 + 0.90559043555555555555e1 * t4168 * t23263 + t23328 * t194 * t217 + t23311 * t150 + 0.3e1 / 0.5e1 * t2251 * t2279 + 0.2e1 / 0.5e1 * t699 * t7266;
8407   t23356 = -0.146e3 / 0.135e3 * t691 * t36 * t7145 * t213 + 0.292e3 / 0.45e2 * t691 * t7248 * t679 + 0.146e3 / 0.135e3 * t691 * t704 * t7145 - 0.146e3 / 0.135e3 * t209 * t23254 * t213 + 0.1168e4 / 0.135e3 * t7258 * t679 + 0.292e3 / 0.45e2 * t209 * t23149 + 0.146e3 / 0.135e3 * t212 * t23254;
8408   t23360 = t2255 * t2255;
8409   t23370 = t2278 * t2278;
8410   t23386 = t195 * t450 * t23356 / 0.10e2 - 0.4959e4 / 0.10000e5 * t195 * t7544 * t23360 + 0.171e3 / 0.250e3 * t699 * t7226 + 0.2e1 / 0.5e1 * t7274 * t714 - 0.48e2 * t1628 * t7240 - 0.27e2 / 0.100e3 * t195 * t1105 * t23370 - 0.144e3 * t5490 * t7124 + 0.1944e4 * t1226 * t23132 + 0.648e3 * t5493 * t7121 + 0.216e3 * t1226 * t23137 - 0.3888e4 * t3889 * t23140 - 0.48e2 * t1234 * t23143;
8411   t23395 = 0.162e3 * t762 * t1152 * t23149 + 0.45279521777777777777e1 * t20210 * t2293 + 0.90559043555555555556e1 * t5974 * t7127 - 0.81503139200000000000e2 * t4376 * t692 * t7177 + 0.45279521777777777777e1 * t5974 * t7279 - 0.40751569600000000000e2 * t15547 * t7132 + 0.16300627840000000000e3 * t11126 * t692 * t7174 + 0.15093173925925925926e1 * t1739 * t692 * t7162 - p->cam_beta * (t23209 + t23239 + t23336 + t23386) + t23328 * t217 - 0.24e2 * t19930 * t720 - 0.36e2 * t5754 * t2299;
8412   t23420 = 0.324e3 * t14857 * t2290 - 0.40751569600000000000e2 * t4376 * t23260 + 0.90559043555555555555e1 * t1739 * t23263 + 0.513e3 / 0.500e3 * t2426 * t2255 * t2278 - 0.9e1 / 0.25e2 * t1194 * t713 * t7265 - 0.27e2 / 0.25e2 * t4360 * t7193 - 0.72e2 * t5754 * t2296 + 0.30186347851851851852e1 * t11179 * t23196 + t23311 * t231 - 0.27e2 / 0.50e2 * t15651 * t2255 + 0.2e1 / 0.5e1 * t1749 * t7265;
8413   t23448 = t501 * t23356 / 0.10e2 + 0.3e1 / 0.5e1 * t5971 * t2278 + 0.1296e4 * t4001 * t7118 - 0.7776e4 * t2372 * t8429 * t23155 - 0.2592e4 * t10657 * t7135 + 0.9720e4 * t7397 * t8400 * t23155 - 0.24e2 * t1628 * t7146 - 0.6e1 * t256 * t480 * t23254 - 0.4959e4 / 0.10000e5 * t8516 * t23360 + 0.171e3 / 0.250e3 * t11103 * t7190 - 0.27e2 / 0.100e3 * t1194 * t23370 + 0.2e1 / 0.5e1 * t20268 * t713;
8414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8415     v4tau4[0] = -0.3e1 / 0.8e1 * t240 * t241 * (t23159 + t23395 + t23420 + t23448);
8416 
8417 #ifndef XC_DONT_COMPILE_MXC
8418 
8419   if(order < 5) return;
8420 
8421 
8422 #endif
8423 
8424 #endif
8425 
8426 #endif
8427 
8428 #endif
8429 
8430 #endif
8431 
8432 
8433 }
8434 
8435 
8436 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 *))8437 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 *))
8438 {
8439 
8440 #ifndef XC_DONT_COMPILE_EXC
8441   double t2, t3, t4, t5, t6, t7, t8, t9;
8442   double t10, t11, t12, t13, t14, t15, t16, t17;
8443   double t18, t19, t20, t21, t23, t24, t25, t26;
8444   double t27, t29, t30, t31, t32, t33, t34, t35;
8445   double t36, t37, t38, t39, t40, t41, t42, t43;
8446   double t44, t45, t46, t47, t48, t49, t51, t52;
8447   double t53, t55, t57, t58, t59, t60, t61, t63;
8448   double t67, t68, t69, t70, t71, t72, t75, t76;
8449   double t77, t78, t79, t81, t83, t84, t86, t87;
8450   double t90, t93, t96, t97, t98, t101, t102, t103;
8451   double t106, t109, t112, t114, t115, t116, t117, t118;
8452   double t120, t121, t122, t123, t124, t128, t130, t132;
8453   double t134, t135, t137, t141, t143, t147, t151, t154;
8454   double t155, t156, t157, t160, t162, t164, t165, t166;
8455   double t167, t168, t172, t174, t176, t177, t178, t179;
8456   double t180, t181, t182, t186, t187, t188, t189, t190;
8457   double t191, t192, t193, t197, t198, t202, t203, t207;
8458   double t208, t211, t212, t222, t223, t225, t226, t229;
8459   double t230, t235, t241, t244, t247, t249, t250, t251;
8460   double t252, t253, t254, t255, t256, t257, t259, t260;
8461   double t261, t262, t263, t265, t266, t267, t268, t269;
8462   double t270, t271, t272, t274, t275, t276, t278, t279;
8463   double t280, t282, t286, t287, t288, t289, t290, t291;
8464   double t294, t295, t296, t297, t299, t301, t302, t304;
8465   double t305, t308, t311, t314, t315, t316, t319, t320;
8466   double t321, t324, t327, t330, t332, t333, t334, t336;
8467   double t337, t338, t339, t340, t344, t346, t348, t350;
8468   double t351, t353, t357, t359, t363, t367, t370, t371;
8469   double t372, t373, t376, t378, t382, t384, t388, t389;
8470   double t390, t391, t395, t396, t400, t401, t405, t406;
8471   double t409, t410, t420, t421, t423, t424, t427, t428;
8472   double t438, t441, t444, t446;
8473 
8474 #ifndef XC_DONT_COMPILE_VXC
8475   double t448, t449, t450, t451, t452, t453, t454, t455;
8476   double t456, t458, t459, t460, t462, t463, t464, t465;
8477   double t468, t469, t471, t473, t474, t477, t478, t479;
8478   double t480, t483, t484, t485, t487, t489, t490, t492;
8479   double t493, t494, t496, t497, t498, t500, t502, t504;
8480   double t506, t507, t511, t513, t514, t519, t521, t522;
8481   double t525, t526, t527, t529, t532, t533, t534, t537;
8482   double t540, t543, t544, t547, t550, t552, t553, t554;
8483   double t556, t557, t561, t565, t568, t569, t572, t573;
8484   double t575, t576, t579, t581, t582, t583, t588, t590;
8485   double t596, t598, t601, t606, t608, t614, t615, t618;
8486   double t621, t622, t623, t626, t629, t630, t633, t637;
8487   double t638, t642, t643, t644, t649, t650, t654, t659;
8488   double t660, t665, t666, t670, t671, t673, t674, t677;
8489   double t678, t679, t681, t682, t683, t687, t691, t692;
8490   double t696, t697, t701, t702, t704, t705, t706, t707;
8491   double t708, t720, t723, t726, t731, t732, t738, t739;
8492   double t750, t753, t756, t759, t762, t764, t765, t766;
8493   double t767, t768, t770, t771, t772, t774, t775, t777;
8494   double t778, t780, t781, t782, t787, t789, t790, t793;
8495   double t794, t797, t800, t801, t802, t805, t808, t810;
8496   double t813, t815, t816, t817, t819, t820, t824, t828;
8497   double t831, t832, t837, t839, t845, t847, t850, t855;
8498   double t857, t863, t864, t867, t870, t871, t872, t875;
8499   double t879, t880, t881, t886, t887, t891, t896, t897;
8500   double t902, t903, t907, t908, t911, t913, t914, t915;
8501   double t919, t923, t924, t928, t929, t933, t934, t936;
8502   double t937, t939, t940, t943, t944, t945, t947, t948;
8503   double t949, t954, t959, t964, t965, t966, t969, t972;
8504   double t976, t978, t979, t980, t982, t986, t990, t993;
8505   double t994, t999, t1001, t1003, t1007, t1015, t1017, t1020;
8506   double t1023, t1026, t1029, t1030, t1031, t1034, t1036, t1040;
8507   double t1044, t1045, t1047, t1051, t1055, t1056, t1057, t1064;
8508   double t1065, t1069, t1070, t1074, t1075, t1077, t1078, t1080;
8509   double t1081, t1082, t1083, t1085, t1086, t1087, t1088, t1091;
8510   double t1092, t1094, t1096, t1097, t1100, t1101, t1102, t1103;
8511   double t1108, t1109, t1110, t1112, t1113, t1114, t1116, t1118;
8512   double t1120, t1122, t1123, t1127, t1128, t1133, t1138, t1143;
8513   double t1144, t1145, t1148, t1151, t1154, t1155, t1160, t1162;
8514   double t1163, t1164, t1166, t1170, t1174, t1177, t1178, t1181;
8515   double t1182, t1184, t1185, t1188, t1190, t1191, t1192, t1197;
8516   double t1199, t1201, t1205, t1213, t1215, t1218, t1221, t1224;
8517   double t1227, t1228, t1229, t1232, t1235, t1236, t1239, t1243;
8518   double t1244, t1246, t1250, t1254, t1255, t1257, t1261, t1265;
8519   double t1266, t1267, t1274, t1275, t1279, t1280, t1284, t1285;
8520   double t1287, t1288, t1289, t1290, t1291, t1303, t1306, t1314;
8521   double t1315, t1321, t1322, t1333, t1336, t1339, t1342, t1345;
8522   double t1347, t1348, t1351, t1352, t1353, t1356, t1357, t1359;
8523   double t1361, t1362, t1364, t1367, t1370, t1372, t1373, t1377;
8524   double t1382, t1387, t1388, t1389, t1392, t1395, t1401, t1403;
8525   double t1404, t1405, t1407, t1411, t1415, t1418, t1419, t1422;
8526   double t1425, t1430, t1432, t1434, t1438, t1446, t1448, t1451;
8527   double t1454, t1457, t1460, t1461, t1462, t1465, t1466, t1469;
8528   double t1470, t1473, t1477, t1478, t1483, t1484, t1486, t1488;
8529   double t1490, t1495, t1496, t1502, t1508, t1512, t1517, t1521;
8530   double t1524, t1525, t1527, t1529, t1530, t1532, t1535, t1538;
8531   double t1540, t1541, t1545, t1550, t1555, t1556, t1557, t1560;
8532   double t1563, t1569, t1571, t1572, t1573, t1575, t1579, t1583;
8533   double t1586, t1587, t1590, t1593, t1598, t1600, t1602, t1606;
8534   double t1614, t1616, t1619, t1622, t1625, t1628, t1629, t1630;
8535   double t1633, t1634, t1637, t1638, t1641, t1645, t1646, t1651;
8536   double t1652, t1654, t1656, t1658, t1663, t1664, t1670, t1676;
8537   double t1680, t1685, t1689, t1690, t1693, t1694, t1696, t1698;
8538   double t1699, t1701, t1704, t1705, t1706, t1707, t1712, t1713;
8539   double t1718, t1722, t1727, t1728, t1734, t1737, t1743, t1747;
8540   double t1748, t1751, t1752, t1754, t1756, t1757, t1759, t1762;
8541   double t1763, t1764, t1765, t1770, t1771, t1776, t1780, t1785;
8542   double t1786, t1792, t1795, t1801;
8543 
8544 #ifndef XC_DONT_COMPILE_FXC
8545   double t1805, t1807, t1809, t1810, t1811, t1812, t1813, t1815;
8546   double t1816, t1817, t1819, t1820, t1821, t1823, t1824, t1825;
8547   double t1826, t1827, t1828, t1830, t1831, t1832, t1834, t1835;
8548   double t1837, t1838, t1839, t1841, t1842, t1845, t1848, t1850;
8549   double t1852, t1853, t1855, t1860, t1861, t1862, t1863, t1864;
8550   double t1865, t1868, t1869, t1872, t1873, t1876, t1879, t1881;
8551   double t1882, t1883, t1884, t1887, t1890, t1891, t1893, t1894;
8552   double t1896, t1897, t1900, t1903, t1905, t1907, t1909, t1911;
8553   double t1914, t1915, t1918, t1921, t1928, t1929, t1933, t1934;
8554   double t1938, t1939, t1942, t1943, t1945, t1947, t1949, t1952;
8555   double t1953, t1954, t1958, t1959, t1963, t1967, t1969, t1970;
8556   double t1971, t1975, t1976, t1981, t1986, t1987, t1988, t1991;
8557   double t1994, t1999, t2000, t2001, t2006, t2007, t2012, t2016;
8558   double t2017, t2018, t2021, t2024, t2028, t2034, t2036, t2037;
8559   double t2038, t2039, t2040, t2042, t2044, t2045, t2048, t2051;
8560   double t2056, t2061, t2064, t2065, t2068, t2071, t2074, t2082;
8561   double t2086, t2098, t2100, t2102, t2107, t2110, t2113, t2122;
8562   double t2126, t2132, t2138, t2140, t2143, t2146, t2149, t2150;
8563   double t2151, t2154, t2158, t2165, t2166, t2168, t2175, t2176;
8564   double t2178, t2181, t2183, t2184, t2188, t2192, t2200, t2202;
8565   double t2204, t2208, t2212, t2217, t2219, t2222, t2224, t2228;
8566   double t2232, t2238, t2240, t2242, t2246, t2250, t2251, t2252;
8567   double t2253, t2255, t2256, t2259, t2260, t2262, t2264, t2266;
8568   double t2269, t2270, t2271, t2275, t2279, t2289, t2290, t2294;
8569   double t2295, t2299, t2300, t2305, t2306, t2307, t2314, t2323;
8570   double t2326, t2334, t2341, t2342, t2345, t2352, t2353, t2356;
8571   double t2357, t2360, t2361, t2364, t2377, t2380, t2383, t2388;
8572   double t2391, t2394, t2399, t2401, t2402, t2403, t2404, t2405;
8573   double t2406, t2407, t2409, t2410, t2411, t2413, t2414, t2415;
8574   double t2416, t2417, t2418, t2420, t2421, t2422, t2424, t2425;
8575   double t2426, t2428, t2429, t2431, t2432, t2435, t2436, t2438;
8576   double t2440, t2442, t2443, t2444, t2448, t2449, t2454, t2459;
8577   double t2460, t2461, t2464, t2465, t2467, t2472, t2473, t2474;
8578   double t2479, t2480, t2485, t2489, t2490, t2491, t2494, t2497;
8579   double t2501, t2507, t2509, t2510, t2511, t2512, t2513, t2515;
8580   double t2517, t2518, t2521, t2524, t2529, t2534, t2537, t2538;
8581   double t2546, t2550, t2562, t2564, t2566, t2571, t2574, t2577;
8582   double t2586, t2590, t2596, t2602, t2604, t2607, t2610, t2613;
8583   double t2614, t2615, t2618, t2622, t2623, t2625, t2628, t2630;
8584   double t2631, t2635, t2639, t2647, t2649, t2651, t2655, t2659;
8585   double t2664, t2666, t2669, t2671, t2675, t2679, t2685, t2687;
8586   double t2689, t2693, t2697, t2698, t2699, t2700, t2703, t2704;
8587   double t2706, t2708, t2710, t2713, t2714, t2715, t2719, t2723;
8588   double t2733, t2734, t2738, t2739, t2743, t2744, t2746, t2747;
8589   double t2749, t2750, t2751, t2753, t2754, t2755, t2756, t2758;
8590   double t2761, t2763, t2765, t2767, t2768, t2770, t2774, t2775;
8591   double t2776, t2778, t2781, t2784, t2785, t2791, t2793, t2797;
8592   double t2798, t2803, t2804, t2805, t2810, t2814, t2817, t2820;
8593   double t2827, t2828, t2830, t2833, t2836, t2842, t2843, t2844;
8594   double t2847, t2850, t2852, t2855, t2862, t2866, t2868, t2869;
8595   double t2870, t2871, t2872, t2874, t2879, t2882, t2889, t2894;
8596   double t2897, t2898, t2901, t2904, t2913, t2917, t2921, t2923;
8597   double t2928, t2930, t2947, t2956, t2958, t2963, t2969, t2972;
8598   double t2975, t2978, t2979, t2980, t2987, t2989, t2994, t2996;
8599   double t3000, t3004, t3005, t3010, t3012, t3020, t3023, t3024;
8600   double t3025, t3029, t3033, t3034, t3039, t3041, t3045, t3049;
8601   double t3054, t3056, t3062, t3065, t3066, t3070, t3074, t3075;
8602   double t3076, t3077, t3081, t3083, t3087, t3092, t3093, t3094;
8603   double t3099, t3101, t3111, t3112, t3116, t3117, t3121, t3122;
8604   double t3126, t3127, t3129, t3131, t3132, t3133, t3134, t3136;
8605   double t3139, t3141, t3143, t3145, t3146, t3148, t3152, t3154;
8606   double t3157, t3160, t3161, t3165, t3167, t3169, t3170, t3175;
8607   double t3177, t3178, t3182, t3183, t3188, t3192, t3195, t3198;
8608   double t3205, t3206, t3208, t3211, t3214, t3220, t3221, t3222;
8609   double t3225, t3228, t3230, t3233, t3240, t3244, t3246, t3247;
8610   double t3248, t3249, t3250, t3252, t3257, t3260, t3267, t3272;
8611   double t3275, t3276, t3279, t3282, t3291, t3295, t3299, t3301;
8612   double t3306, t3308, t3325, t3334, t3336, t3341, t3350, t3353;
8613   double t3356, t3357, t3358, t3365, t3367, t3372, t3374, t3378;
8614   double t3382, t3383, t3388, t3390, t3398, t3400, t3401, t3405;
8615   double t3409, t3410, t3415, t3417, t3421, t3425, t3430, t3432;
8616   double t3438, t3440, t3444, t3448, t3449, t3450, t3451, t3455;
8617   double t3457, t3461, t3465, t3466, t3471, t3473, t3483, t3484;
8618   double t3488, t3489, t3493, t3494, t3498, t3499, t3501, t3503;
8619   double t3507, t3508, t3510, t3511, t3512, t3513, t3515, t3516;
8620   double t3517, t3519, t3520, t3521, t3523, t3524, t3528, t3529;
8621   double t3534, t3539, t3540, t3550, t3551, t3553, t3556, t3561;
8622   double t3565, t3566, t3567, t3570, t3573, t3582, t3584, t3585;
8623   double t3586, t3587, t3588, t3591, t3594, t3601, t3606, t3609;
8624   double t3610, t3618, t3620, t3622, t3624, t3626, t3628, t3634;
8625   double t3653, t3655, t3657, t3663, t3670, t3673, t3676, t3679;
8626   double t3680, t3681, t3684, t3688, t3692, t3696, t3703, t3707;
8627   double t3711, t3712, t3716, t3720, t3724, t3729, t3733, t3737;
8628   double t3738, t3739, t3740, t3743, t3747, t3751, t3761, t3762;
8629   double t3766, t3767, t3771, t3772, t3774, t3775, t3777, t3778;
8630   double t3779, t3780, t3782, t3783, t3784, t3785, t3787, t3788;
8631   double t3789, t3791, t3792, t3793, t3794, t3796, t3797, t3800;
8632   double t3803, t3805, t3807, t3808, t3810, t3815, t3816, t3817;
8633   double t3818, t3819, t3820, t3823, t3824, t3827, t3828, t3831;
8634   double t3834, t3836, t3837, t3838, t3839, t3843, t3844, t3845;
8635   double t3847, t3849, t3851, t3853, t3854, t3855, t3858, t3861;
8636   double t3869, t3870, t3875, t3881, t3882, t3883, t3887, t3891;
8637   double t3895, t3896, t3900, t3901, t3906, t3911, t3912, t3922;
8638   double t3923, t3925, t3928, t3933, t3937, t3938, t3939, t3942;
8639   double t3945, t3947, t3948, t3951, t3954, t3955, t3957, t3958;
8640   double t3968, t3970, t3971, t3972, t3973, t3974, t3977, t3980;
8641   double t3987, t3992, t3995, t3996, t3999, t4002, t4005, t4013;
8642   double t4015, t4017, t4019, t4021, t4023, t4029, t4048, t4050;
8643   double t4052, t4058, t4065, t4068, t4071, t4074, t4075, t4076;
8644   double t4079, t4083, t4090, t4091, t4093, t4100, t4104, t4108;
8645   double t4115, t4119, t4123, t4124, t4128, t4132, t4136, t4141;
8646   double t4145, t4149, t4150, t4151, t4152, t4155, t4159, t4163;
8647   double t4173, t4174, t4178, t4179, t4183, t4184, t4189, t4190;
8648   double t4191, t4198, t4207, t4210, t4218, t4225, t4226, t4229;
8649   double t4236, t4237, t4240, t4241, t4244, t4245, t4248, t4261;
8650   double t4264, t4267, t4272, t4275, t4278, t4283, t4285, t4286;
8651   double t4287, t4291, t4292, t4296, t4300, t4301, t4303, t4305;
8652   double t4307, t4308, t4310, t4316, t4317, t4318, t4321, t4324;
8653   double t4327, t4331, t4332, t4340, t4342, t4346, t4347, t4351;
8654   double t4354, t4356, t4357, t4362, t4365, t4368, t4370, t4372;
8655   double t4373, t4374, t4375, t4376, t4378, t4383, t4386, t4393;
8656   double t4396, t4397, t4399, t4400, t4402, t4405, t4406, t4409;
8657   double t4412, t4417, t4418, t4421, t4430, t4434, t4438, t4440;
8658   double t4445, t4447, t4464, t4473, t4475, t4480, t4489, t4492;
8659   double t4495, t4496, t4497, t4500, t4501, t4504, t4511, t4514;
8660   double t4517, t4535, t4538, t4546, t4549, t4552, t4554, t4557;
8661   double t4558, t4559, t4562, t4565, t4566, t4573, t4580, t4583;
8662   double t4584, t4596, t4597, t4599, t4607, t4608, t4614, t4615;
8663   double t4617, t4619, t4621, t4623, t4625, t4628, t4630, t4633;
8664   double t4642, t4643, t4646, t4654, t4657, t4660, t4663, t4667;
8665   double t4668, t4671, t4677, t4687, t4690, t4695, t4700, t4706;
8666   double t4707, t4712, t4716, t4717, t4718, t4723, t4729, t4739;
8667   double t4740, t4742, t4745, t4753, t4754, t4755, t4758, t4761;
8668   double t4771, t4775, t4777, t4778, t4779, t4780, t4781, t4783;
8669   double t4788, t4791, t4798, t4803, t4806, t4807, t4810, t4821;
8670   double t4825, t4829, t4831, t4836, t4838, t4855, t4864, t4866;
8671   double t4871, t4880, t4883, t4886, t4887, t4888, t4895, t4897;
8672   double t4901, t4902, t4907, t4911, t4914, t4919, t4923, t4926;
8673   double t4936, t4938, t4943, t4949, t4950, t4951, t4954, t4957;
8674   double t4961, t4971, t4973, t4974, t4975, t4976, t4977, t4983;
8675   double t4986, t4993, t4998, t5001, t5002, t5005, t5016, t5020;
8676   double t5024, t5030, t5056, t5058, t5063, t5072, t5075, t5078;
8677   double t5079, t5080, t5087, t5089, t5093, t5095, t5099, t5102;
8678   double t5106, t5107, t5109, t5111, t5113, t5114, t5116, t5122;
8679   double t5123, t5124, t5127, t5130, t5133, t5137, t5138, t5143;
8680   double t5146, t5152, t5156, t5160, t5163, t5165, t5166, t5171;
8681   double t5176, t5178, t5180, t5181, t5182, t5183, t5184, t5190;
8682   double t5193, t5200, t5203, t5204, t5206, t5208, t5211, t5212;
8683   double t5215, t5218, t5221, t5222, t5227, t5236, t5239, t5246;
8684   double t5250, t5254, t5260, t5286, t5288, t5293, t5302, t5305;
8685   double t5308, t5309, t5310, t5313, t5314, t5317, t5320, t5323;
8686   double t5324, t5325, t5326, t5333, t5336, t5341, t5342, t5350;
8687   double t5363, t5368, t5374, t5377, t5380, t5382, t5383, t5395;
8688   double t5396, t5398, t5406, t5407, t5413, t5414, t5416, t5418;
8689   double t5420, t5422, t5424, t5427, t5429, t5432, t5441, t5442;
8690   double t5445, t5453, t5456, t5459, t5462, t5466, t5467, t5470;
8691   double t5476, t5486, t5489, t5494, t5499, t5500, t5505, t5506;
8692   double t5510, t5514, t5515, t5517, t5519, t5521, t5522, t5524;
8693   double t5530, t5531, t5534, t5539, t5542, t5545, t5546, t5547;
8694   double t5549, t5552, t5557, t5558, t5571, t5572, t5574, t5582;
8695   double t5583, t5598, t5601, t5610, t5611, t5614, t5624, t5629;
8696   double t5632, t5635, t5636, t5639, t5645, t5650, t5655, t5661;
8697   double t5662, t5667, t5670, t5673, t5677, t5678, t5683, t5687;
8698   double t5690, t5693, t5697, t5699, t5703, t5706, t5710, t5711;
8699   double t5713, t5715, t5717, t5718, t5720, t5726, t5727, t5730;
8700   double t5735, t5738, t5741, t5742, t5743, t5745, t5748, t5753;
8701   double t5754, t5767, t5768, t5770, t5778, t5779, t5794, t5797;
8702   double t5806, t5807, t5810, t5820, t5825, t5828, t5831, t5832;
8703   double t5835, t5841, t5846, t5851, t5852, t5855, t5857, t5858;
8704   double t5859, t5860, t5862, t5863, t5864, t5865, t5871, t5874;
8705   double t5877, t5880, t5882, t5883, t5884, t5889, t5890, t5891;
8706   double t5892, t5896, t5901, t5902, t5912, t5913, t5915, t5918;
8707   double t5927, t5928, t5929, t5932, t5935, t5950, t5952, t5953;
8708   double t5954, t5955, t5956, t5959, t5962, t5974, t5977, t5978;
8709   double t5981, t5988, t5991, t5999, t6001, t6003, t6005, t6007;
8710   double t6009, t6015, t6034, t6036, t6038, t6044, t6054, t6057;
8711   double t6060, t6061, t6062, t6069, t6072, t6073, t6076, t6077;
8712   double t6078, t6079, t6082, t6086, t6092, t6093, t6094, t6098;
8713   double t6099, t6103, t6105, t6108, t6110, t6112, t6116, t6117;
8714   double t6118, t6121, t6128, t6131, t6134, t6137, t6139, t6142;
8715   double t6143, t6152, t6161, t6162, t6165, t6167, t6168, t6169;
8716   double t6170, t6172, t6173, t6174, t6175, t6181, t6184, t6187;
8717   double t6190, t6192, t6193, t6194, t6198, t6199, t6200, t6204;
8718   double t6209, t6210, t6220, t6221, t6223, t6226, t6235, t6236;
8719   double t6237, t6240, t6243, t6258, t6260, t6261, t6262, t6263;
8720   double t6264, t6267, t6270, t6282, t6285, t6286, t6289, t6296;
8721   double t6299, t6307, t6309, t6311, t6313, t6315, t6317, t6323;
8722   double t6342, t6344, t6346, t6352, t6362, t6365, t6368, t6369;
8723   double t6370, t6377, t6380, t6381, t6384, t6385, t6386, t6387;
8724   double t6390, t6394, t6400, t6401, t6402, t6406, t6407, t6411;
8725   double t6413, t6416, t6418, t6420, t6424, t6425, t6426, t6429;
8726   double t6436, t6439, t6442, t6445, t6447, t6450, t6451, t6460;
8727   double t6469, t6470, t6473, t6477, t6478, t6480, t6482, t6484;
8728   double t6485, t6492, t6495, t6500, t6503, t6507, t6510, t6513;
8729   double t6526, t6527, t6533, t6538, t6540, t6547, t6549, t6551;
8730   double t6557, t6561, t6562, t6565, t6575, t6580, t6583, t6586;
8731   double t6596, t6601, t6602, t6605, t6609, t6610, t6612, t6614;
8732   double t6616, t6617, t6624, t6627, t6632, t6635, t6639, t6642;
8733   double t6645, t6658, t6659, t6665, t6670, t6672, t6679, t6681;
8734   double t6683, t6689, t6693, t6694, t6697, t6707, t6712, t6715;
8735   double t6718, t6728, t6733, t6734, t6737, t6740, t6743, t6744;
8736   double t6746, t6748, t6750, t6751, t6755, t6758, t6762, t6765;
8737   double t6768, t6773, t6780, t6781, t6785, t6786, t6794, t6801;
8738   double t6808, t6809, t6812, t6817, t6820, t6823, t6826, t6829;
8739   double t6839, t6840, t6843, t6846, t6849, t6850, t6852, t6854;
8740   double t6856, t6857, t6861, t6864, t6868, t6871, t6874, t6879;
8741   double t6886, t6887, t6891, t6892, t6900, t6907, t6914, t6915;
8742   double t6918, t6923, t6926, t6929, t6932, t6935, t6945, t6946;
8743 
8744 #ifndef XC_DONT_COMPILE_KXC
8745   double t6949, t6951, t6952, t6954, t6955, t6956, t6959, t6960;
8746   double t6963, t6964, t6967, t6971, t6973, t6975, t6977, t6978;
8747   double t6980, t6983, t6986, t6994, t6995, t6996, t6997, t7000;
8748   double t7003, t7004, t7013, t7014, t7017, t7020, t7027, t7029;
8749   double t7030, t7031, t7044, t7045, t7052, t7055, t7059, t7060;
8750   double t7061, t7062, t7063, t7064, t7068, t7070, t7071, t7072;
8751   double t7073, t7077, t7081, t7083, t7085, t7089, t7094, t7096;
8752   double t7099, t7100, t7102, t7105, t7109, t7111, t7114, t7117;
8753   double t7119, t7123, t7127, t7131, t7134, t7138, t7142, t7146;
8754   double t7151, t7155, t7157, t7160, t7162, t7166, t7171, t7177;
8755   double t7179, t7182, t7185, t7187, t7194, t7198, t7199, t7200;
8756   double t7207, t7210, t7211, t7213, t7215, t7217, t7220, t7223;
8757   double t7225, t7226, t7230, t7231, t7237, t7240, t7243, t7244;
8758   double t7245, t7249, t7253, t7257, t7261, t7265, t7267, t7269;
8759   double t7274, t7275, t7276, t7281, t7284, t7290, t7291, t7296;
8760   double t7299, t7301, t7302, t7304, t7305, t7308, t7309, t7314;
8761   double t7315, t7319, t7321, t7324, t7330, t7332, t7338, t7340;
8762   double t7343, t7351, t7358, t7365, t7366, t7377, t7378, t7381;
8763   double t7384, t7389, t7396, t7402, t7406, t7408, t7409, t7410;
8764   double t7411, t7415, t7416, t7420, t7424, t7425, t7429, t7433;
8765   double t7437, t7438, t7442, t7444, t7447, t7450, t7452, t7458;
8766   double t7459, t7461, t7463, t7465, t7468, t7471, t7475, t7476;
8767   double t7480, t7481, t7484, t7485, t7486, t7488, t7491, t7492;
8768   double t7493, t7494, t7495, t7496, t7499, t7500, t7501, t7504;
8769   double t7505, t7508, t7511, t7516, t7520, t7521, t7523, t7524;
8770   double t7526, t7530, t7532, t7534, t7535, t7538, t7541, t7546;
8771   double t7547, t7550, t7551, t7554, t7557, t7559, t7560, t7563;
8772   double t7566, t7569, t7573, t7574, t7575, t7578, t7581, t7610;
8773   double t7615, t7634, t7637, t7640, t7643, t7644, t7649, t7650;
8774   double t7655, t7664, t7667, t7670, t7673, t7679, t7682, t7696;
8775   double t7699, t7700, t7702, t7703, t7707, t7708, t7711, t7726;
8776   double t7727, t7734, t7763, t7769, t7778, t7781, t7784, t7786;
8777   double t7787, t7792, t7797, t7798, t7803, t7806, t7809, t7810;
8778   double t7815, t7819, t7820, t7825, t7826, t7828, t7839, t7840;
8779   double t7846, t7853, t7854, t7861, t7872, t7875, t7878, t7883;
8780   double t7890, t7894, t7899, t7900, t7903, t7904, t7907, t7908;
8781   double t7911, t7912, t7915, t7920, t7924, t7925, t7927, t7928;
8782   double t7929, t7931, t7932, t7933, t7935, t7936, t7937, t7939;
8783   double t7940, t7942, t7943, t7944, t7945, t7947, t7948, t7950;
8784   double t7952, t7953, t7955, t7956, t7958, t7960, t7962, t7965;
8785   double t7966, t7967, t7969, t7970, t7971, t7972, t7974, t7975;
8786   double t7977, t7978, t7979, t7980, t7982, t7983, t7984, t7986;
8787   double t7989, t7992, t7993, t7995, t7998, t8001, t8003, t8005;
8788   double t8006, t8007, t8011, t8012, t8016, t8017, t8022, t8029;
8789   double t8035, t8039, t8040, t8042, t8053, t8055, t8056, t8058;
8790   double t8059, t8061, t8062, t8068, t8069, t8079, t8080, t8083;
8791   double t8086, t8092, t8100, t8102, t8103, t8104, t8105, t8106;
8792   double t8107, t8108, t8112, t8117, t8120, t8121, t8124, t8127;
8793   double t8133, t8137, t8140, t8143, t8148, t8149, t8152, t8153;
8794   double t8182, t8205, t8210, t8214, t8219, t8222, t8227, t8232;
8795   double t8235, t8240, t8243, t8249, t8252, t8255, t8260, t8263;
8796   double t8271, t8272, t8276, t8277, t8280, t8289, t8291, t8292;
8797   double t8295, t8297, t8300, t8303, t8305, t8309, t8313, t8317;
8798   double t8318, t8319, t8328, t8329, t8331, t8333, t8335, t8338;
8799   double t8341, t8347, t8354, t8356, t8359, t8362, t8365, t8366;
8800   double t8367, t8371, t8375, t8379, t8383, t8387, t8388, t8389;
8801   double t8394, t8397, t8401, t8403, t8406, t8409, t8411, t8418;
8802   double t8422, t8425, t8429, t8433, t8437, t8443, t8444, t8446;
8803   double t8449, t8452, t8454, t8455, t8459, t8463, t8465, t8467;
8804   double t8468, t8472, t8476, t8480, t8484, t8490, t8492, t8495;
8805   double t8498, t8500, t8504, t8509, t8512, t8515, t8517, t8518;
8806   double t8520, t8521, t8523, t8524, t8525, t8527, t8528, t8530;
8807   double t8532, t8534, t8535, t8536, t8538, t8539, t8540, t8542;
8808   double t8543, t8544, t8546, t8547, t8549, t8550, t8551, t8552;
8809   double t8554, t8555, t8556, t8558, t8559, t8561, t8563, t8571;
8810   double t8572, t8582, t8583, t8584, t8585, t8587, t8589, t8591;
8811   double t8594, t8596, t8598, t8601, t8602, t8603, t8605, t8607;
8812   double t8609, t8611, t8613, t8615, t8617, t8619, t8620, t8621;
8813   double t8622, t8624, t8626, t8628, t8630, t8631, t8633, t8635;
8814   double t8636, t8637, t8639, t8641, t8643, t8644, t8645, t8647;
8815   double t8649, t8650, t8652, t8653, t8654, t8655, t8657, t8659;
8816   double t8661, t8662, t8667, t8669, t8673, t8675, t8678, t8679;
8817   double t8681, t8682, t8687, t8690, t8691, t8692, t8694, t8701;
8818   double t8702, t8705, t8706, t8709, t8710, t8713, t8718, t8722;
8819   double t8723, t8725, t8727, t8731, t8735, t8736, t8737, t8738;
8820   double t8742, t8747, t8751, t8754, t8755, t8759, t8760, t8764;
8821   double t8768, t8769, t8780, t8781, t8794, t8797, t8801, t8802;
8822   double t8804, t8807, t8821, t8823, t8824, t8826, t8828, t8829;
8823   double t8831, t8834, t8839, t8842, t8853, t8854, t8857, t8860;
8824   double t8874, t8881, t8898, t8901, t8906, t8910, t8914, t8922;
8825   double t8924, t8926, t8949, t8954, t8957, t8960, t8977, t8985;
8826   double t8997, t9004, t9008, t9010, t9012, t9014, t9016, t9024;
8827   double t9026, t9029, t9031, t9035, t9036, t9039, t9042, t9047;
8828   double t9062, t9065, t9068, t9071, t9084, t9089, t9094, t9100;
8829   double t9107, t9108, t9109, t9112, t9115, t9136, t9140, t9142;
8830   double t9143, t9146, t9147, t9150, t9152, t9154, t9159, t9160;
8831   double t9166, t9167, t9171, t9176, t9184, t9188, t9191, t9192;
8832   double t9194, t9197, t9199, t9205, t9208, t9209, t9213, t9217;
8833   double t9221, t9225, t9229, t9235, t9242, t9243, t9244, t9246;
8834   double t9247, t9248, t9249, t9253, t9256, t9257, t9261, t9262;
8835   double t9266, t9270, t9277, t9281, t9288, t9295, t9301, t9302;
8836   double t9305, t9306, t9317, t9321, t9323, t9325, t9326, t9330;
8837   double t9334, t9341, t9342, t9343, t9349, t9351, t9354, t9360;
8838   double t9361, t9363, t9369, t9370, t9371, t9374, t9375, t9376;
8839   double t9377, t9380, t9381, t9382, t9389, t9391, t9392, t9398;
8840   double t9399, t9405, t9407, t9409, t9413, t9417, t9422, t9424;
8841   double t9428, t9436, t9440, t9442, t9444, t9457, t9466, t9467;
8842   double t9468, t9472, t9476, t9480, t9481, t9482, t9490, t9491;
8843   double t9493, t9495, t9497, t9498, t9504, t9506, t9510, t9511;
8844   double t9512, t9516, t9521, t9525, t9526, t9528, t9531, t9535;
8845   double t9536, t9540, t9544, t9548, t9549, t9562, t9565, t9569;
8846   double t9570, t9572, t9575, t9589, t9591, t9592, t9594, t9596;
8847   double t9597, t9599, t9602, t9607, t9610, t9621, t9622, t9625;
8848   double t9628, t9630, t9633, t9636, t9649, t9657, t9659, t9660;
8849   double t9664, t9665, t9666, t9667, t9668, t9669, t9670, t9675;
8850   double t9678, t9681, t9682, t9697, t9700, t9704, t9710, t9713;
8851   double t9716, t9717, t9720, t9721, t9724, t9727, t9740, t9745;
8852   double t9766, t9773, t9775, t9791, t9793, t9802, t9810, t9822;
8853   double t9829, t9834, t9858, t9869, t9872, t9881, t9886, t9888;
8854   double t9892, t9893, t9900, t9902, t9904, t9909, t9911, t9915;
8855   double t9921, t9922, t9924, t9926, t9934, t9938, t9940, t9942;
8856   double t9943, t9947, t9951, t9958, t9961, t9966, t9970, t9973;
8857   double t9975, t9980, t9984, t9987, t9988, t9992, t9998, t10001;
8858   double t10002, t10006, t10007, t10011, t10015, t10019, t10027, t10031;
8859   double t10033, t10035, t10048, t10049, t10051, t10054, t10059, t10060;
8860   double t10062, t10064, t10065, t10069, t10073, t10077, t10081, t10082;
8861   double t10086, t10087, t10096, t10097, t10100, t10101, t10102, t10103;
8862   double t10107, t10108, t10109, t10113, t10118, t10124, t10125, t10129;
8863   double t10130, t10136, t10137, t10141, t10145, t10146, t10150, t10164;
8864   double t10168, t10172, t10173, t10174, t10180, t10184, t10190, t10191;
8865   double t10195, t10199, t10203, t10209, t10210, t10214, t10219, t10221;
8866   double t10222, t10223, t10227, t10228, t10230, t10234, t10236, t10239;
8867   double t10242, t10243, t10244, t10246, t10248, t10250, t10252, t10253;
8868   double t10255, t10258, t10260, t10262, t10264, t10268, t10269, t10270;
8869   double t10272, t10275, t10277, t10279, t10282, t10283, t10285, t10288;
8870   double t10291, t10293, t10295, t10297, t10300, t10303, t10306, t10307;
8871   double t10309, t10312, t10315, t10317, t10320, t10327, t10328, t10331;
8872   double t10332, t10335, t10336, t10339, t10354, t10359, t10366, t10368;
8873   double t10370, t10371, t10376, t10378, t10379, t10380, t10381, t10384;
8874   double t10385, t10390, t10392, t10393, t10398, t10400, t10401, t10405;
8875   double t10410, t10412, t10413, t10419, t10420, t10424, t10425, t10439;
8876   double t10442, t10443, t10445, t10450, t10464, t10466, t10468, t10470;
8877   double t10471, t10472, t10474, t10477, t10482, t10494, t10495, t10496;
8878   double t10499, t10502, t10506, t10509, t10516, t10529, t10536, t10544;
8879   double t10552, t10554, t10555, t10556, t10557, t10558, t10559, t10560;
8880   double t10561, t10562, t10566, t10572, t10575, t10580, t10589, t10592;
8881   double t10593, t10596, t10597, t10600, t10603, t10622, t10629, t10632;
8882   double t10662, t10689, t10698, t10701, t10714, t10722, t10732, t10737;
8883   double t10742, t10757, t10759, t10762, t10764, t10768, t10769, t10772;
8884   double t10774, t10776, t10783, t10787, t10791, t10795, t10799, t10804;
8885   double t10806, t10810, t10811, t10815, t10819, t10823, t10824, t10828;
8886   double t10832, t10837, t10838, t10839, t10842, t10845, t10853, t10855;
8887   double t10859, t10864, t10866, t10870, t10874, t10875, t10880, t10883;
8888   double t10889, t10892, t10896, t10897, t10898, t10902, t10906, t10910;
8889   double t10914, t10921, t10925, t10929, t10933, t10937, t10938, t10950;
8890   double t10956, t10965, t10970, t10974, t10977, t10983, t10986, t10989;
8891   double t10991, t10992, t10993, t10997, t11001, t11006, t11010, t11014;
8892   double t11019, t11023, t11027, t11030, t11034, t11037, t11040, t11042;
8893   double t11046, t11050, t11055, t11056, t11057, t11065, t11066, t11068;
8894   double t11071, t11073, t11074, t11076, t11078, t11080, t11082, t11083;
8895   double t11084, t11086, t11088, t11090, t11091, t11093, t11098, t11099;
8896   double t11107, t11109, t11113, t11114, t11118, t11123, t11125, t11129;
8897   double t11130, t11134, t11135, t11139, t11140, t11154, t11157, t11158;
8898   double t11160, t11165, t11179, t11181, t11183, t11185, t11186, t11187;
8899   double t11189, t11192, t11197, t11209, t11210, t11211, t11214, t11217;
8900   double t11219, t11226, t11239, t11246, t11251, t11256, t11265, t11270;
8901   double t11275, t11279, t11280, t11281, t11286, t11287, t11288, t11289;
8902   double t11290, t11291, t11292, t11296, t11302, t11303, t11306, t11307;
8903   double t11310, t11313, t11327, t11338, t11356, t11358, t11367, t11375;
8904   double t11385, t11390, t11395, t11398, t11424, t11447, t11448, t11465;
8905   double t11470, t11472, t11476, t11477, t11484, t11486, t11488, t11492;
8906   double t11496, t11500, t11505, t11507, t11513, t11524, t11528, t11530;
8907   double t11531, t11532, t11533, t11535, t11538, t11542, t11543, t11546;
8908   double t11552, t11553, t11560, t11570, t11574, t11578, t11582, t11586;
8909   double t11590, t11594, t11599, t11605, t11607, t11611, t11616, t11618;
8910   double t11622, t11626, t11627, t11629, t11632, t11634, t11641, t11642;
8911   double t11643, t11653, t11662, t11667, t11671, t11675, t11678, t11681;
8912   double t11684, t11686, t11690, t11694, t11698, t11702, t11706, t11710;
8913   double t11714, t11720, t11724, t11728, t11729, t11730, t11734, t11737;
8914   double t11741, t11745, t11749, t11754, t11757, t11760, t11762, t11763;
8915   double t11764, t11768, t11769, t11771, t11774, t11776, t11777, t11779;
8916   double t11781, t11783, t11786, t11789, t11791, t11793, t11795, t11797;
8917   double t11799, t11801, t11803, t11807, t11809, t11811, t11816, t11820;
8918   double t11821, t11823, t11824, t11825, t11826, t11828, t11829, t11831;
8919   double t11833, t11834, t11835, t11836, t11837, t11839, t11840, t11841;
8920   double t11842, t11844, t11845, t11846, t11847, t11849, t11850, t11852;
8921   double t11854, t11855, t11856, t11858, t11859, t11860, t11862, t11863;
8922   double t11865, t11866, t11872, t11873, t11877, t11881, t11882, t11887;
8923   double t11894, t11895, t11900, t11903, t11905, t11915, t11916, t11918;
8924   double t11920, t11922, t11923, t11928, t11937, t11938, t11939, t11942;
8925   double t11945, t11961, t11964, t11969, t11970, t11972, t11974, t11975;
8926   double t11976, t11977, t11978, t11991, t11996, t12000, t12001, t12004;
8927   double t12005, t12043, t12058, t12062, t12064, t12071, t12073, t12077;
8928   double t12091, t12101, t12108, t12112, t12113, t12117, t12118, t12121;
8929   double t12123, t12127, t12131, t12135, t12142, t12146, t12150, t12154;
8930   double t12159, t12163, t12170, t12177, t12181, t12182, t12184, t12190;
8931   double t12202, t12203, t12205, t12206, t12213, t12217, t12221, t12225;
8932   double t12229, t12233, t12234, t12235, t12241, t12245, t12249, t12253;
8933   double t12265, t12266, t12271, t12275, t12284, t12285, t12287, t12288;
8934   double t12290, t12291, t12292, t12294, t12295, t12298, t12301, t12303;
8935   double t12305, t12307, t12308, t12309, t12312, t12320, t12321, t12322;
8936   double t12323, t12326, t12330, t12339, t12341, t12346, t12348, t12349;
8937   double t12352, t12356, t12357, t12358, t12361, t12363, t12365, t12369;
8938   double t12370, t12376, t12379, t12382, t12388, t12389, t12392, t12397;
8939   double t12412, t12415, t12423, t12430, t12437, t12440, t12443, t12446;
8940   double t12451, t12452, t12455, t12456, t12459, t12460, t12463, t12464;
8941   double t12467, t12476, t12477, t12485, t12492, t12494, t12495, t12496;
8942   double t12499, t12502, t12518, t12522, t12526, t12530, t12531, t12535;
8943   double t12539, t12543, t12544, t12552, t12553, t12554, t12558, t12566;
8944   double t12570, t12571, t12574, t12576, t12578, t12579, t12580, t12581;
8945   double t12582, t12583, t12584, t12585, t12588, t12591, t12602, t12603;
8946   double t12605, t12609, t12613, t12615, t12617, t12622, t12627, t12628;
8947   double t12631, t12632, t12635, t12638, t12642, t12643, t12646, t12649;
8948   double t12656, t12665, t12670, t12673, t12686, t12691, t12700, t12703;
8949   double t12706, t12708, t12711, t12712, t12719, t12720, t12723, t12726;
8950   double t12729, t12752, t12756, t12758, t12767, t12769, t12773, t12787;
8951   double t12800, t12810, t12813, t12834, t12835, t12839, t12840, t12847;
8952   double t12850, t12853, t12862, t12867, t12872, t12873, t12880, t12883;
8953   double t12886, t12887, t12889, t12890, t12895, t12896, t12905, t12906;
8954   double t12911, t12915, t12918, t12919, t12922, t12931, t12936, t12940;
8955   double t12944, t12948, t12952, t12959, t12963, t12967, t12971, t12980;
8956   double t12989, t12990, t12992, t12993, t12997, t13004, t13008, t13012;
8957   double t13016, t13017, t13027, t13031, t13035, t13039, t13043, t13047;
8958   double t13048, t13049, t13058, t13062, t13071, t13078, t13082, t13085;
8959   double t13086, t13090, t13094, t13100, t13101, t13107, t13110, t13112;
8960   double t13119, t13120, t13123, t13126, t13129, t13130, t13132, t13133;
8961   double t13134, t13135, t13137, t13138, t13140, t13141, t13143, t13144;
8962   double t13145, t13146, t13148, t13149, t13150, t13164, t13168, t13170;
8963   double t13171, t13175, t13178, t13187, t13190, t13195, t13196, t13201;
8964   double t13204, t13205, t13212, t13213, t13220, t13225, t13228, t13229;
8965   double t13234, t13236, t13238, t13240, t13242, t13244, t13246, t13248;
8966   double t13249, t13251, t13254, t13255, t13256, t13259, t13261, t13269;
8967   double t13272, t13277, t13296, t13297, t13300, t13301, t13314, t13316;
8968   double t13317, t13320, t13321, t13326, t13333, t13336, t13339, t13344;
8969   double t13349, t13354, t13357, t13362, t13365, t13366, t13369, t13370;
8970   double t13376, t13385, t13392, t13394, t13395, t13397, t13400, t13405;
8971   double t13418, t13421, t13423, t13427, t13430, t13434, t13437, t13439;
8972   double t13441, t13444, t13446, t13447, t13454, t13463, t13464, t13473;
8973   double t13481, t13492, t13497, t13499, t13502, t13505, t13507, t13511;
8974   double t13513, t13516, t13520, t13524, t13525, t13529, t13530, t13534;
8975   double t13541, t13542, t13546, t13547, t13558, t13559, t13562, t13564;
8976   double t13597, t13599, t13601, t13603, t13605, t13607, t13609, t13617;
8977   double t13619, t13628, t13636, t13648, t13655, t13663, t13665, t13671;
8978   double t13676, t13678, t13686, t13691, t13694, t13704, t13711, t13716;
8979   double t13718, t13722, t13723, t13726, t13729, t13730, t13735, t13738;
8980   double t13743, t13746, t13757, t13762, t13773, t13776, t13795, t13822;
8981   double t13828, t13830, t13831, t13834, t13835, t13837, t13838, t13840;
8982   double t13842, t13844, t13845, t13852, t13853, t13854, t13855, t13857;
8983   double t13858, t13863, t13864, t13867, t13868, t13871, t13874, t13877;
8984   double t13880, t13883, t13885, t13890, t13891, t13896, t13901, t13940;
8985   double t13943, t13948, t13960, t13963, t13966, t13968, t13971, t13974;
8986   double t13975, t13978, t13981, t13982, t13987, t13990, t13991, t14002;
8987   double t14005, t14008, t14017, t14020, t14029, t14031, t14033, t14035;
8988   double t14037, t14040, t14044, t14045, t14050, t14053, t14060, t14063;
8989   double t14071, t14093, t14097, t14100, t14101, t14106, t14109, t14114;
8990   double t14116, t14121, t14125, t14127, t14128, t14132, t14133, t14134;
8991   double t14135, t14138, t14143, t14148, t14150, t14152, t14153, t14157;
8992   double t14162, t14180, t14181, t14183, t14186, t14200, t14201, t14203;
8993   double t14204, t14206, t14208, t14209, t14211, t14214, t14219, t14231;
8994   double t14232, t14233, t14236, t14239, t14257, t14262, t14265, t14269;
8995   double t14275, t14278, t14279, t14282, t14284, t14285, t14286, t14287;
8996   double t14288, t14289, t14290, t14295, t14303, t14306, t14315, t14324;
8997   double t14325, t14328, t14329, t14332, t14355, t14358, t14368, t14373;
8998   double t14387, t14394, t14398, t14409, t14417, t14429, t14436, t14451;
8999   double t14453, t14466, t14492, t14494, t14498, t14499, t14506, t14508;
9000   double t14512, t14513, t14519, t14520, t14521, t14523, t14524, t14528;
9001   double t14531, t14532, t14534, t14537, t14539, t14541, t14550, t14553;
9002   double t14556, t14559, t14563, t14564, t14581, t14583, t14585, t14589;
9003   double t14592, t14596, t14601, t14609, t14619, t14634, t14637, t14642;
9004   double t14643, t14648, t14661, t14664, t14667, t14670, t14673, t14676;
9005   double t14677, t14680, t14685, t14687, t14689, t14691, t14693, t14695;
9006   double t14705, t14707, t14718, t14729, t14747, t14752, t14753, t14755;
9007   double t14758, t14765, t14770, t14783, t14796, t14814, t14816, t14820;
9008   double t14821, t14824, t14831, t14834, t14837, t14854, t14861, t14870;
9009   double t14879, t14902, t14912, t14917, t14918, t14919, t14920, t14922;
9010   double t14923, t14925, t14928, t14931, t14934, t14937, t14938, t14940;
9011   double t14941, t14943, t14945, t14946, t14949, t14950, t14955, t14956;
9012   double t14961, t14975, t14978, t15011, t15014, t15023, t15035, t15038;
9013   double t15041, t15043, t15048, t15053, t15062, t15063, t15065, t15067;
9014   double t15079, t15081, t15086, t15088, t15089, t15092, t15093, t15097;
9015   double t15100, t15103, t15112, t15115, t15118, t15121, t15125, t15126;
9016   double t15129, t15132, t15149, t15151, t15153, t15157, t15159, t15161;
9017   double t15164, t15169, t15171, t15172, t15177, t15180, t15187, t15192;
9018   double t15193, t15196, t15197, t15214, t15219, t15220, t15223, t15225;
9019   double t15227, t15228, t15229, t15230, t15231, t15232, t15233, t15234;
9020   double t15235, t15241, t15244, t15255, t15258, t15261, t15265, t15266;
9021   double t15268, t15270, t15272, t15273, t15275, t15278, t15281, t15284;
9022   double t15285, t15288, t15289, t15296, t15299, t15311, t15314, t15319;
9023   double t15320, t15349, t15352, t15361, t15373, t15376, t15379, t15389;
9024   double t15394, t15428, t15459, t15463, t15475, t15490, t15493, t15494;
9025   double t15497, t15500, t15503, t15506, t15517, t15528, t15546, t15551;
9026   double t15552, t15571, t15573, t15589, t15592, t15594, t15598, t15599;
9027   double t15606, t15609, t15614, t15627, t15630, t15631, t15633, t15635;
9028   double t15647, t15649, t15654, t15657, t15658, t15661, t15665, t15669;
9029   double t15673, t15678, t15691, t15697, t15698, t15700, t15703, t15717;
9030   double t15719, t15722, t15723, t15725, t15734, t15744, t15745, t15746;
9031   double t15749, t15752, t15756, t15759, t15783, t15786, t15789, t15803;
9032   double t15804, t15805, t15806, t15807, t15808, t15809, t15813, t15815;
9033   double t15816, t15817, t15832, t15835, t15836, t15839, t15840, t15843;
9034   double t15885, t15903, t15917, t15925, t15943, t15958, t15960, t15975;
9035   double t15976, t15998, t16000, t16004, t16005, t16012, t16014, t16018;
9036   double t16020, t16025, t16029, t16032, t16040, t16042, t16044, t16046;
9037   double t16047, t16050, t16052, t16055, t16057, t16061, t16064, t16068;
9038   double t16071, t16073, t16076, t16083, t16084, t16097, t16102, t16105;
9039   double t16110, t16115, t16120, t16125, t16128, t16136, t16140, t16142;
9040   double t16143, t16146, t16149, t16158, t16161, t16164, t16169, t16173;
9041   double t16180, t16181, t16184, t16187, t16188, t16191, t16193, t16194;
9042   double t16197, t16200, t16205, t16206, t16211, t16216, t16219, t16222;
9043   double t16225, t16226, t16229, t16230, t16233, t16236, t16237, t16238;
9044   double t16241, t16244, t16247, t16250, t16251, t16254, t16256, t16258;
9045   double t16260, t16264, t16266, t16267, t16300, t16305, t16311, t16318;
9046   double t16321, t16324, t16337, t16340, t16343, t16352, t16353, t16362;
9047   double t16370, t16375, t16378, t16382, t16386, t16390, t16394, t16398;
9048   double t16402, t16403, t16414, t16415, t16418, t16419, t16423, t16460;
9049   double t16468, t16486, t16489, t16491, t16493, t16495, t16497, t16499;
9050   double t16507, t16509, t16518, t16525, t16540, t16543, t16550, t16552;
9051   double t16567, t16569, t16573, t16574, t16577, t16586, t16595, t16599;
9052   double t16602, t16607, t16610, t16631, t16633, t16634, t16635, t16654;
9053   double t16655, t16659, t16665, t16666, t16668, t16680, t16684, t16685;
9054   double t16688, t16689, t16692, t16711, t16736, t16745, t16755, t16758;
9055   double t16761, t16765, t16766, t16769, t16770, t16773, t16776, t16779;
9056   double t16782, t16785, t16796, t16797, t16802, t16807, t16814, t16819;
9057   double t16822, t16824, t16826, t16827, t16830, t16831, t16834, t16835;
9058   double t16840, t16843, t16849, t16854, t16857, t16862, t16870, t16873;
9059   double t16875, t16890, t16895, t16898, t16905, t16906, t16917, t16918;
9060   double t16921, t16922, t16925, t16928, t16937, t16942, t16945, t16947;
9061   double t16948, t16952, t16956, t16958, t16959, t16963, t16966, t16972;
9062   double t16987, t16990, t16993, t16998, t17014, t17019, t17022, t17025;
9063   double t17032, t17033, t17036, t17039, t17042, t17045, t17046, t17049;
9064   double t17058, t17059, t17062, t17065, t17066, t17071, t17074, t17079;
9065   double t17081, t17083, t17085, t17089, t17091, t17092, t17094, t17099;
9066   double t17102, t17111, t17116, t17119, t17154, t17156, t17157, t17160;
9067   double t17162, t17171, t17174, t17180, t17185, t17188, t17193, t17202;
9068   double t17205, t17206, t17209, t17212, t17213, t17216, t17219, t17222;
9069   double t17225, t17227, t17230, t17233, t17237, t17240, t17242, t17243;
9070   double t17245, t17248, t17273, t17278, t17281, t17282, t17283, t17284;
9071   double t17287, t17292, t17297, t17300, t17301, t17320, t17330, t17331;
9072   double t17334, t17337, t17338, t17347, t17350, t17353, t17355, t17360;
9073   double t17364, t17366, t17367, t17371, t17374, t17379, t17382, t17385;
9074   double t17389, t17390, t17396, t17398, t17399, t17403, t17407, t17410;
9075   double t17413, t17424, t17429, t17432, t17435, t17436, t17439, t17444;
9076   double t17447, t17449, t17461, t17463, t17468, t17470, t17471, t17474;
9077   double t17475, t17479, t17482, t17485, t17496, t17501, t17504, t17507;
9078   double t17508, t17511, t17516, t17519, t17521, t17533, t17535, t17540;
9079   double t17543, t17544, t17547, t17551, t17554, t17557, t17561, t17563;
9080   double t17568, t17572, t17575, t17578, t17583, t17584, t17587, t17592;
9081   double t17597, t17602, t17611, t17612, t17613, t17616, t17619, t17622;
9082   double t17627, t17630, t17633, t17636, t17643, t17644, t17645, t17646;
9083   double t17651, t17656, t17659, t17670, t17671, t17678, t17679, t17690;
9084   double t17693, t17698, t17718, t17719, t17728, t17731, t17738, t17741;
9085   double t17744, t17753, t17755, t17761, t17768, t17770, t17772, t17774;
9086   double t17776, t17778, t17780, t17782, t17783, t17800, t17801, t17806;
9087   double t17807, t17810, t17821, t17822, t17842, t17845, t17848, t17850;
9088   double t17854, t17857, t17858, t17860, t17863, t17866, t17867, t17874;
9089   double t17877, t17880, t17883, t17884, t17887, t17892, t17902, t17927;
9090   double t17929, t17939, t17944, t17947, t17948, t17951, t17954, t17955;
9091   double t17958, t17961, t17963, t17964, t17968, t17970, t17973, t17978;
9092   double t17981, t17984, t17989, t17990, t17993, t17996, t17999, t18000;
9093   double t18003, t18008, t18011, t18016, t18019, t18022, t18026, t18028;
9094   double t18029, t18030, t18032, t18034, t18035, t18036, t18037, t18044;
9095   double t18045, t18048, t18051, t18054, t18055, t18058, t18061, t18062;
9096   double t18065, t18068, t18073, t18074, t18075, t18076, t18077, t18078;
9097   double t18079, t18087, t18089, t18091, t18093, t18096, t18099, t18102;
9098   double t18104, t18105, t18106, t18107, t18108, t18113, t18114, t18115;
9099   double t18120, t18127, t18128, t18131, t18136, t18161, t18162, t18163;
9100   double t18164, t18165, t18166, t18167, t18175, t18178, t18181, t18182;
9101   double t18185, t18186, t18187, t18188, t18189, t18190, t18195, t18196;
9102   double t18199, t18200, t18203, t18206, t18211, t18212, t18223, t18228;
9103   double t18243, t18250, t18251, t18252, t18253, t18256, t18258, t18263;
9104   double t18264, t18265, t18266, t18271, t18276, t18278, t18281, t18288;
9105   double t18289, t18290, t18295, t18296, t18299, t18302, t18305, t18308;
9106   double t18311, t18316, t18319, t18320, t18323, t18324, t18351, t18354;
9107   double t18356, t18359, t18366, t18375, t18378, t18387, t18390, t18391;
9108   double t18395, t18396, t18400, t18405, t18407, t18408, t18409, t18410;
9109   double t18414, t18415, t18416, t18419, t18423, t18437, t18440, t18441;
9110   double t18443, t18448, t18462, t18464, t18466, t18468, t18469, t18470;
9111   double t18472, t18475, t18480, t18483, t18493, t18494, t18495, t18498;
9112   double t18501, t18511, t18516, t18533, t18542, t18554, t18562, t18566;
9113   double t18574, t18576, t18582, t18585, t18602, t18628, t18636, t18646;
9114   double t18651, t18656, t18660, t18662, t18664, t18666, t18668, t18676;
9115   double t18678, t18681, t18683, t18687, t18688, t18697, t18714, t18720;
9116   double t18741, t18759, t18760, t18761, t18762, t18766, t18768, t18769;
9117   double t18772, t18773, t18778, t18780, t18783, t18784, t18792, t18797;
9118   double t18798, t18799, t18800, t18805, t18809, t18811, t18812, t18816;
9119   double t18818, t18826, t18829, t18832, t18835, t18837, t18840, t18841;
9120   double t18842, t18847, t18849, t18850, t18851, t18855, t18869, t18872;
9121   double t18873, t18875, t18880, t18894, t18896, t18898, t18900, t18901;
9122   double t18902, t18904, t18907, t18912, t18915, t18925, t18926, t18927;
9123   double t18930, t18933, t18941, t18958, t18961, t18962, t18963, t18964;
9124   double t18965, t18966, t18975, t18978, t18983, t18992, t18995, t19002;
9125   double t19012, t19014, t19015, t19016, t19021, t19022, t19025, t19026;
9126   double t19029, t19060, t19080, t19090, t19095, t19118, t19152, t19154;
9127   double t19163, t19171, t19181, t19186, t19191, t19193, t19195, t19199;
9128   double t19200, t19211, t19214, t19216, t19224, t19226, t19230, t19238;
9129   double t19241, t19244, t19247, t19249, t19250, t19254, t19255, t19259;
9130   double t19275, t19276, t19278, t19283, t19297, t19299, t19302, t19303;
9131   double t19305, t19323, t19324, t19325, t19328, t19331, t19343, t19360;
9132   double t19363, t19368, t19385, t19390, t19395, t19396, t19397, t19398;
9133   double t19399, t19400, t19406, t19408, t19409, t19410, t19417, t19418;
9134   double t19421, t19422, t19425, t19483, t19485, t19494, t19502, t19520;
9135   double t19537, t19551, t19558, t19563, t19586, t19588, t19592, t19593;
9136   double t19604, t19607, t19609, t19617, t19619, t19623, t19626, t19629;
9137   double t19632, t19634, t19635, t19636, t19638, t19640, t19641, t19642;
9138   double t19643, t19644, t19657, t19658, t19661, t19662, t19665, t19674;
9139   double t19675, t19676, t19677, t19678, t19679, t19680, t19681, t19682;
9140   double t19692, t19695, t19696, t19697, t19698, t19699, t19700, t19701;
9141   double t19702, t19707, t19722, t19727, t19728, t19731, t19734, t19737;
9142   double t19738, t19741, t19746, t19749, t19754, t19757, t19760, t19764;
9143   double t19772, t19774, t19776, t19778, t19781, t19784, t19787, t19789;
9144   double t19790, t19791, t19792, t19793, t19798, t19799, t19800, t19803;
9145   double t19808, t19811, t19812, t19815, t19818, t19821, t19822, t19827;
9146   double t19828, t19831, t19832, t19833, t19836, t19845, t19846, t19847;
9147   double t19851, t19855, t19859, t19860, t19861, t19864, t19865, t19868;
9148   double t19872, t19888, t19889, t19891, t19896, t19910, t19912, t19915;
9149   double t19916, t19918, t19936, t19937, t19938, t19941, t19944, t19946;
9150   double t19949, t19952, t19961, t19964, t19967, t19976, t19981, t20000;
9151   double t20003, t20008, t20023, t20029, t20034, t20035, t20036, t20037;
9152   double t20038, t20039, t20044, t20045, t20047, t20052, t20055, t20056;
9153   double t20059, t20060, t20071, t20074, t20075, t20076, t20081, t20092;
9154   double t20095, t20107, t20108, t20111, t20114, t20139, t20152, t20160;
9155   double t20178, t20193, t20195, t20212, t20222, t20248, t20271, t20273;
9156   double t20277, t20278, t20283, t20284, t20287, t20290, t20305, t20308;
9157   double t20311, t20320, t20322, t20324, t20339, t20342, t20343, t20344;
9158   double t20345, t20348, t20351, t20352, t20361, t20362, t20369, t20372;
9159   double t20373, t20374, t20375, t20376, t20378, t20380, t20386, t20389;
9160   double t20398, t20399, t20402, t20403, t20406, t20409, t20419, t20422;
9161   double t20425, t20434, t20438, t20441, t20443, t20444, t20448, t20450;
9162   double t20457, t20468, t20471, t20480, t20485, t20488, t20493, t20496;
9163   double t20499, t20502, t20505, t20508, t20509, t20512, t20515, t20518;
9164   double t20521, t20528, t20539, t20541, t20543, t20545, t20548, t20550;
9165   double t20555, t20556, t20568, t20571, t20577, t20582, t20584, t20586;
9166   double t20592, t20594, t20595, t20600, t20602, t20605, t20608, t20611;
9167   double t20614, t20617, t20620, t20627, t20632, t20635, t20638, t20643;
9168   double t20652, t20657, t20662, t20667, t20676, t20679, t20700, t20701;
9169   double t20704, t20727, t20728, t20734, t20737, t20762, t20770, t20772;
9170   double t20773, t20785, t20786, t20795, t20803, t20806, t20809, t20812;
9171   double t20819, t20820, t20823, t20825, t20828, t20836, t20839, t20842;
9172   double t20845, t20848, t20858, t20861, t20864, t20869, t20874, t20905;
9173   double t20915, t20927, t20929, t20930, t20934, t20936, t20947, t20952;
9174   double t20955, t20960, t20965, t20975, t20977, t20981, t20992, t20997;
9175   double t21000, t21005, t21010, t21020, t21022, t21026, t21031, t21036;
9176   double t21039, t21044, t21047, t21058, t21061, t21064, t21067, t21070;
9177   double t21071, t21074, t21075, t21078, t21081, t21090, t21093, t21096;
9178   double t21099, t21106, t21115, t21119, t21121, t21125, t21126, t21132;
9179   double t21134, t21135, t21142, t21149, t21160, t21162, t21164, t21166;
9180   double t21169, t21171, t21174, t21186, t21189, t21195, t21208, t21211;
9181   double t21214, t21219, t21222, t21223, t21227, t21230, t21233, t21236;
9182   double t21238, t21241, t21244, t21259, t21284, t21285, t21288, t21311;
9183   double t21312, t21318, t21323, t21326, t21327, t21338, t21339, t21352;
9184   double t21359, t21362, t21363, t21366, t21369, t21374, t21377, t21386;
9185   double t21389, t21398, t21411, t21423, t21427, t21430, t21441, t21446;
9186   double t21451, t21453, t21457, t21464, t21481, t21496, t21499, t21503;
9187   double t21505, t21506, t21510, t21512, t21515, t21520, t21525, t21526;
9188   double t21529, t21534, t21539, t21544, t21547, t21550, t21553, t21558;
9189   double t21560, t21562, t21564, t21566, t21568, t21570, t21571, t21586;
9190   double t21593, t21598, t21602, t21605, t21608, t21611, t21612, t21615;
9191   double t21618, t21619, t21624, t21625, t21630, t21631, t21638, t21639;
9192   double t21642, t21645, t21646, t21649, t21651, t21654, t21657, t21660;
9193   double t21679, t21690, t21693, t21706, t21707, t21710, t21716, t21751;
9194   double t21752, t21756, t21762, t21771, t21779, t21783, t21804, t21811;
9195   double t21814, t21817, t21820, t21830, t21832, t21833, t21837, t21839;
9196   double t21845, t21848, t21853, t21856, t21859, t21867, t21869, t21873;
9197   double t21879, t21882, t21887, t21890, t21893, t21901, t21903, t21907;
9198   double t21910, t21917, t21922, t21925, t21932, t21937, t21938, t21941;
9199   double t21944, t21945, t21948, t21951, t21952, t21955, t21958, t21961;
9200   double t21962, t21965, t21974, t21976, t21981, t21983, t21985, t21989;
9201   double t21991, t21992, t21996, t21997, t22002, t22003, t22006, t22023;
9202   double t22026, t22029, t22032, t22035, t22054, t22061, t22064, t22067;
9203   double t22070, t22073, t22082, t22093, t22096, t22109, t22110, t22113;
9204   double t22117, t22154, t22155, t22157, t22162, t22169, t22177, t22180;
9205   double t22187, t22192, t22195, t22200, t22207, t22218, t22221, t22225;
9206   double t22227, t22228, t22231, t22232, t22233, t22234, t22235, t22236;
9207   double t22239, t22240, t22243, t22246, t22249, t22252, t22257, t22260;
9208   double t22263, t22264, t22265, t22266, t22271, t22272, t22273, t22274;
9209   double t22276, t22277, t22278, t22282, t22284, t22285, t22287, t22290;
9210   double t22291, t22292, t22293, t22294, t22301, t22306, t22312, t22315;
9211   double t22319, t22330, t22331, t22332, t22335, t22338, t22339, t22342;
9212   double t22343, t22344, t22350, t22353, t22356, t22361, t22366, t22371;
9213   double t22374, t22379, t22380, t22383, t22384, t22385, t22386, t22387;
9214   double t22388, t22394, t22395, t22400, t22401, t22402, t22404, t22419;
9215   double t22423, t22424, t22428, t22433, t22434, t22437, t22446, t22447;
9216   double t22449, t22456, t22461, t22463, t22465, t22466, t22467, t22468;
9217   double t22469, t22470, t22471, t22479, t22481, t22483, t22484, t22485;
9218   double t22488, t22489, t22516, t22533, t22552, t22556, t22558, t22565;
9219   double t22567, t22571, t22585, t22599, t22601, t22602, t22606, t22607;
9220   double t22612, t22621, t22624, t22627, t22628, t22635, t22638, t22641;
9221   double t22650, t22655, t22670, t22675, t22684, t22687, t22690, t22694;
9222   double t22697, t22698, t22704, t22705, t22707, t22710, t22711, t22712;
9223   double t22719, t22720, t22721, t22722, t22723, t22726, t22729, t22734;
9224   double t22737, t22738, t22741, t22744, t22747, t22750, t22751, t22752;
9225   double t22753, t22754, t22755, t22756, t22759, t22762, t22765, t22766;
9226   double t22771, t22774, t22777, t22778, t22779, t22784, t22785, t22788;
9227   double t22791, t22792, t22797, t22802, t22805, t22820, t22821, t22825;
9228   double t22826, t22830, t22833, t22834, t22835, t22837, t22842, t22843;
9229   double t22844, t22845, t22846, t22848, t22849, t22850, t22853, t22857;
9230   double t22862, t22865, t22872, t22875, t22886, t22887, t22890, t22891;
9231   double t22894, t22897, t22904, t22911, t22912, t22915, t22942, t22946;
9232   double t22948, t22955, t22957, t22961, t22975, t22989, t22994, t22995;
9233   double t23027, t23028, t23032, t23033, t23036, t23043, t23044, t23046;
9234   double t23047, t23060, t23065, t23080, t23085, t23094, t23097, t23100;
9235   double t23102, t23103, t23105, t23107, t23108, t23110, t23113, t23114;
9236   double t23115, t23116, t23117, t23118, t23125, t23126, t23128, t23129;
9237   double t23130, t23132, t23135, t23136, t23137, t23144, t23145, t23146;
9238   double t23149, t23152, t23153, t23156, t23157, t23158, t23159, t23161;
9239   double t23187, t23190, t23194, t23195, t23196, t23203, t23206, t23213;
9240   double t23214, t23221, t23222, t23225, t23231, t23232, t23233, t23235;
9241   double t23237, t23239, t23240, t23241, t23242, t23244, t23249, t23251;
9242   double t23252, t23257, t23258, t23259, t23261, t23264, t23268, t23269;
9243   double t23271, t23273, t23278, t23283, t23284, t23285, t23286, t23289;
9244   double t23291, t23294, t23297, t23298, t23306, t23307, t23312, t23315;
9245   double t23320, t23321, t23324, t23329, t23332, t23340, t23343, t23348;
9246   double t23355, t23358, t23361, t23364, t23366, t23373, t23379, t23380;
9247   double t23381, t23383, t23391, t23396, t23407, t23408, t23417, t23422;
9248   double t23425, t23426, t23427, t23432, t23433, t23434, t23435, t23437;
9249   double t23438, t23451, t23452, t23457, t23461, t23472, t23477, t23478;
9250   double t23479, t23490, t23491, t23497, t23499, t23500, t23503, t23508;
9251   double t23511, t23512, t23513, t23515, t23517, t23519, t23520, t23521;
9252   double t23522, t23529, t23530, t23539, t23542, t23545, t23548, t23549;
9253   double t23550, t23555, t23556, t23557, t23565, t23567, t23568, t23573;
9254   double t23574, t23575, t23577, t23580, t23584, t23585, t23587, t23589;
9255   double t23592, t23597, t23600, t23601, t23608, t23609, t23612, t23613;
9256   double t23620, t23627, t23628, t23629, t23634, t23647, t23648, t23655;
9257   double t23656, t23657, t23658, t23665, t23668, t23673, t23674, t23678;
9258   double t23683, t23687, t23688, t23689, t23692, t23695, t23698, t23711;
9259   double t23718, t23722, t23723, t23729, t23736, t23739, t23747, t23749;
9260   double t23753, t23754, t23755, t23757, t23768, t23769, t23778, t23786;
9261   double t23787, t23788, t23789, t23792, t23801, t23803, t23804, t23809;
9262   double t23813, t23814, t23816, t23818, t23820, t23822, t23824, t23825;
9263   double t23838, t23841, t23844, t23855, t23862, t23868, t23871, t23876;
9264   double t23879, t23889, t23891, t23893, t23899, t23904, t23908, t23909;
9265   double t23919, t23922, t23933, t23942, t23944, t23963, t23968, t23974;
9266   double t23977, t23980, t23983, t23986, t23991, t23995, t24000, t24008;
9267   double t24017, t24023, t24027, t24046, t24054, t24057, t24060, t24069;
9268   double t24089, t24092, t24097, t24099, t24100, t24107, t24111, t24116;
9269   double t24119, t24124, t24128, t24129, t24131, t24133, t24135, t24137;
9270   double t24139, t24140, t24153, t24156, t24159, t24170, t24177, t24179;
9271   double t24189, t24191, t24193, t24199, t24204, t24208, t24220, t24223;
9272   double t24226, t24235, t24238, t24246, t24255, t24273, t24280, t24285;
9273   double t24290, t24295, t24299, t24303, t24313, t24316, t24319, t24323;
9274   double t24326, t24329, t24342, t24345, t24348, t24355, t24370, t24379;
9275   double t24393, t24395, t24396, t24399, t24402, t24405, t24412, t24413;
9276   double t24416, t24417, t24419, t24421, t24423, t24425, t24426, t24435;
9277   double t24438, t24441, t24450, t24452, t24455, t24466, t24472, t24476;
9278   double t24479, t24489, t24496, t24497, t24500, t24505, t24508, t24512;
9279   double t24516, t24518, t24523, t24530, t24539, t24546, t24552, t24555;
9280   double t24558, t24563, t24570, t24573, t24576, t24577, t24578, t24581;
9281   double t24584, t24589, t24592, t24593, t24596, t24597, t24600, t24601;
9282   double t24610, t24615, t24618, t24620, t24622, t24623, t24632, t24635;
9283   double t24638, t24647, t24650, t24656, t24659, t24669, t24676, t24677;
9284   double t24686, t24689, t24693, t24698, t24701, t24704, t24707, t24711;
9285   double t24717, t24724, t24727, t24730, t24731, t24736, t24752, t24755;
9286   double t24758, t24759, t24760;
9287 
9288 #ifndef XC_DONT_COMPILE_LXC
9289   double t24763, t24775, t24789, t24791, t24797, t24800, t24802, t24804;
9290   double t24805, t24806, t24811, t24813, t24815, t24817, t24818, t24819;
9291   double t24824, t24827, t24829, t24832, t24835, t24838, t24841, t24844;
9292   double t24846, t24848, t24849, t24859, t24869, t24874, t24875, t24884;
9293   double t24889, t24895, t24899, t24907, t24908, t24910, t24911, t24915;
9294   double t24919, t24921, t24925, t24940, t24942, t24945, t24956, t24958;
9295   double t24961, t24963, t24968, t24979, t24992, t25001, t25004, t25005;
9296   double t25008, t25015, t25018, t25021, t25024, t25027, t25032, t25038;
9297   double t25041, t25048, t25049, t25052, t25067, t25068, t25069, t25070;
9298   double t25071, t25075, t25076, t25078, t25083, t25084, t25087, t25112;
9299   double t25115, t25127, t25130, t25137, t25156, t25159, t25162, t25165;
9300   double t25174, t25176, t25183, t25186, t25189, t25192, t25197, t25241;
9301   double t25261, t25268, t25295, t25308, t25311, t25318, t25321, t25324;
9302   double t25339, t25347, t25349, t25351, t25353, t25360, t25363, t25373;
9303   double t25375, t25377, t25379, t25381, t25391, t25397, t25400, t25427;
9304   double t25430, t25441, t25445, t25453, t25456, t25463, t25471, t25473;
9305   double t25476, t25479, t25482, t25485, t25488, t25494, t25502, t25510;
9306   double t25518, t25522, t25525, t25527, t25530, t25533, t25535, t25537;
9307   double t25540, t25543, t25550, t25551, t25553, t25554, t25560, t25563;
9308   double t25566, t25569, t25582, t25584, t25586, t25588, t25591, t25594;
9309   double t25597, t25605, t25607, t25610, t25613, t25616, t25619, t25622;
9310   double t25642, t25643, t25648, t25650, t25652, t25656, t25667, t25689;
9311   double t25700, t25706, t25714, t25717, t25726, t25730, t25732, t25734;
9312   double t25741, t25747, t25761, t25764, t25767, t25769, t25771, t25772;
9313   double t25773, t25778, t25779, t25781, t25784, t25787, t25793, t25801;
9314   double t25804, t25808, t25813, t25818, t25827, t25828, t25850, t25874;
9315   double t25875, t25876, t25886, t25900, t25901, t25907, t25912, t25920;
9316   double t25932, t25938, t25942, t25950, t25952, t25955, t25958, t25962;
9317   double t25988, t26007, t26009, t26010, t26019, t26025, t26027, t26028;
9318   double t26029, t26034, t26036, t26043, t26052, t26061, t26071, t26074;
9319   double t26077, t26090, t26093, t26096, t26099, t26132, t26139, t26141;
9320   double t26143, t26144, t26149, t26154, t26156, t26158, t26160, t26164;
9321   double t26169, t26174, t26180, t26183, t26186, t26189, t26192, t26199;
9322   double t26202, t26204, t26213, t26215, t26219, t26227, t26237, t26238;
9323   double t26239, t26240, t26242, t26244, t26246, t26249, t26252, t26254;
9324   double t26257, t26260, t26262, t26264, t26265, t26266, t26267, t26268;
9325   double t26271, t26274, t26277, t26280, t26281, t26284, t26287, t26292;
9326   double t26296, t26297, t26300, t26305, t26308, t26311, t26318, t26320;
9327   double t26322, t26324, t26325, t26341, t26359, t26360, t26380, t26388;
9328   double t26389, t26391, t26392, t26430, t26434, t26447, t26455, t26456;
9329   double t26459, t26461, t26484, t26487, t26494, t26501, t26506, t26555;
9330   double t26558, t26563, t26574, t26577, t26580, t26591, t26593, t26606;
9331   double t26627, t26671, t26673, t26676, t26679, t26686, t26687, t26699;
9332   double t26708, t26714, t26720, t26738, t26741, t26746, t26758, t26764;
9333   double t26765, t26778, t26782, t26784, t26786, t26787, t26788, t26789;
9334   double t26792, t26796, t26802, t26804, t26807, t26831, t26834, t26837;
9335   double t26840, t26846, t26859, t26862, t26865, t26881, t26883, t26886;
9336   double t26889, t26892, t26895, t26898, t26904, t26912, t26920, t26921;
9337   double t26925, t26927, t26930, t26942, t26943, t26945, t26949, t26959;
9338   double t26961, t26963, t26966, t26969, t26972, t26975, t26978, t26980;
9339   double t26988, t26991, t26994, t27008, t27011, t27013, t27016, t27019;
9340   double t27022, t27025, t27028, t27048, t27064, t27070, t27087, t27089;
9341   double t27092, t27095, t27101, t27103, t27105, t27111, t27114, t27117;
9342   double t27120, t27123, t27132, t27139, t27142, t27145, t27156, t27159;
9343   double t27162, t27165, t27167, t27173, t27200, t27207, t27210, t27216;
9344   double t27220, t27243, t27273, t27281, t27298, t27312, t27335, t27339;
9345   double t27340, t27355, t27364, t27378, t27392, t27399, t27403, t27407;
9346   double t27411, t27414, t27417, t27418, t27431, t27450, t27459, t27462;
9347   double t27482, t27485, t27492, t27495, t27501, t27506, t27508, t27511;
9348   double t27518, t27521, t27523, t27525, t27531, t27533, t27546, t27548;
9349   double t27553, t27554, t27556, t27562, t27569, t27579, t27581, t27583;
9350   double t27594, t27606, t27613, t27616, t27630, t27634, t27636, t27645;
9351   double t27647, t27651, t27656, t27660, t27661, t27667, t27685, t27691;
9352   double t27693, t27701, t27706, t27712, t27718, t27726, t27754, t27761;
9353   double t27764, t27767, t27773, t27776, t27779, t27782, t27791, t27798;
9354   double t27809, t27825, t27833, t27853, t27859, t27860, t27864, t27866;
9355   double t27867, t27869, t27870, t27872, t27875, t27885, t27887, t27890;
9356   double t27892, t27902, t27904, t27909, t27912, t27919, t27922, t27924;
9357   double t27926, t27929, t27930, t27933, t27934, t27937, t27938, t27949;
9358   double t27956, t27957, t27958, t27959, t27960, t27961, t27964, t27967;
9359   double t27970, t27971, t27972, t27973, t27974, t27977, t27979, t27981;
9360   double t27984, t27986, t27990, t27991, t27993, t27994, t27995, t27997;
9361   double t27999, t28000, t28003, t28029, t28036, t28037, t28038, t28042;
9362   double t28047, t28050, t28053, t28058, t28061, t28068, t28074, t28079;
9363   double t28116, t28133, t28157, t28181, t28184, t28187, t28190, t28193;
9364   double t28196, t28199, t28202, t28204, t28206, t28213, t28216, t28219;
9365   double t28247, t28280, t28307, t28310, t28324, t28346, t28349, t28352;
9366   double t28357, t28359, t28362, t28367, t28380, t28405, t28424, t28427;
9367   double t28428, t28431, t28457, t28474, t28477, t28489, t28503, t28524;
9368   double t28540, t28549, t28556, t28567, t28573, t28578, t28581, t28588;
9369   double t28594, t28607, t28609, t28610, t28613, t28621, t28624, t28625;
9370   double t28627, t28629, t28631, t28634, t28644, t28646, t28649, t28686;
9371   double t28688, t28700, t28702, t28708, t28715, t28716, t28717, t28719;
9372   double t28722, t28724, t28727, t28736, t28737, t28739, t28753, t28758;
9373   double t28761, t28767, t28770, t28773, t28776, t28779, t28781, t28784;
9374   double t28786, t28791, t28794, t28795, t28797, t28800, t28802, t28809;
9375   double t28817, t28819, t28820, t28830, t28831, t28837, t28840, t28843;
9376   double t28850, t28852, t28854, t28857, t28876, t28877, t28878, t28881;
9377   double t28882, t28884, t28885, t28887, t28888, t28890, t28893, t28896;
9378   double t28936, t28940, t28941, t28949, t28951, t28956, t28959, t28962;
9379   double t28965, t28982, t28983, t28987, t28998, t29008, t29013, t29014;
9380   double t29016, t29026, t29030, t29042, t29045, t29047, t29057, t29060;
9381   double t29062, t29077, t29078, t29080, t29087, t29094, t29108, t29111;
9382   double t29126, t29135, t29138, t29139, t29152, t29155, t29156, t29158;
9383   double t29161, t29164, t29180, t29186, t29189, t29190, t29192, t29195;
9384   double t29208, t29211, t29214, t29222, t29229, t29237, t29248, t29249;
9385   double t29251, t29258, t29265, t29271, t29275, t29282, t29287, t29324;
9386   double t29344, t29347, t29348, t29353, t29362, t29363, t29373, t29378;
9387   double t29387, t29393, t29397, t29400, t29404, t29407, t29413, t29420;
9388   double t29422, t29424, t29426, t29436, t29437, t29440, t29446, t29452;
9389   double t29458, t29460, t29465, t29473, t29474, t29476, t29483, t29484;
9390   double t29486, t29489, t29505, t29512, t29515, t29518, t29521, t29527;
9391   double t29528, t29543, t29545, t29547, t29562, t29564, t29565, t29570;
9392   double t29572, t29592, t29594, t29596, t29597, t29600, t29602, t29606;
9393   double t29607, t29620, t29621, t29624, t29627, t29644, t29647, t29648;
9394   double t29651, t29652, t29654, t29661, t29668, t29673, t29674, t29676;
9395   double t29679, t29682, t29688, t29703, t29706, t29709, t29723, t29726;
9396   double t29727, t29728, t29729, t29734, t29739, t29745, t29748, t29751;
9397   double t29754, t29755, t29756, t29757, t29758, t29759, t29760, t29761;
9398   double t29765, t29768, t29772, t29775, t29788, t29797, t29806, t29824;
9399   double t29826, t29827, t29828, t29829, t29836, t29843, t29852, t29855;
9400   double t29860, t29863, t29870, t29897, t29906, t29909, t29910, t29913;
9401   double t29916, t29921, t29924, t29927, t29955, t29958, t29961, t29964;
9402   double t29967, t29973, t29994, t29999, t30006, t30009, t30022, t30046;
9403   double t30072, t30098, t30144, t30172, t30179, t30198, t30211, t30214;
9404   double t30216, t30218, t30221, t30222, t30223, t30225, t30227, t30236;
9405   double t30238, t30239, t30241, t30266, t30267, t30277, t30279, t30282;
9406   double t30287, t30301, t30318, t30321, t30323, t30326, t30329, t30333;
9407   double t30354, t30355, t30357, t30358, t30360, t30363, t30366, t30371;
9408   double t30379, t30380, t30382, t30383, t30385, t30387, t30389, t30392;
9409   double t30395, t30410, t30412, t30417, t30427, t30431, t30432, t30440;
9410   double t30444, t30448, t30458, t30461, t30464, t30465, t30467, t30470;
9411   double t30472, t30479, t30483, t30491, t30493, t30494, t30502, t30505;
9412   double t30510, t30511, t30524, t30532, t30535, t30536, t30537, t30542;
9413   double t30557, t30578, t30584, t30591, t30594, t30601, t30604, t30614;
9414   double t30631, t30636, t30637, t30638, t30646, t30647, t30662, t30665;
9415   double t30668, t30671, t30679, t30707, t30710, t30713, t30722, t30725;
9416   double t30728, t30730, t30731, t30734, t30737, t30738, t30740, t30743;
9417   double t30759, t30761, t30775, t30778, t30780, t30796, t30799, t30802;
9418   double t30805, t30812, t30813, t30815, t30823, t30825, t30827, t30830;
9419   double t30844, t30847, t30848, t30850, t30858, t30868, t30886, t30890;
9420   double t30894, t30897, t30900, t30911, t30917, t30920, t30923, t30926;
9421   double t30933, t30940, t30941, t30943, t30944, t30958, t30961, t30967;
9422   double t30968, t30973, t30975, t30978, t30981, t30982, t30988, t30990;
9423   double t31002, t31003, t31004, t31011, t31026, t31047, t31055, t31064;
9424   double t31070, t31074, t31084, t31092, t31095, t31099, t31109, t31119;
9425   double t31125, t31136, t31143, t31151, t31157, t31159, t31170, t31178;
9426   double t31182, t31185, t31188, t31191, t31195, t31198, t31206, t31220;
9427   double t31225, t31231, t31242, t31254, t31260, t31267, t31302, t31306;
9428   double t31310, t31329, t31334, t31348, t31350, t31364, t31366, t31369;
9429   double t31375, t31381, t31384, t31387, t31393, t31396, t31402, t31408;
9430   double t31410, t31412, t31419, t31421, t31423, t31428, t31430, t31441;
9431   double t31445, t31455, t31466, t31468, t31471, t31488, t31489, t31494;
9432   double t31500, t31503, t31504, t31506, t31514, t31517, t31522, t31528;
9433   double t31529, t31533, t31534, t31536, t31555, t31563, t31566, t31569;
9434   double t31578, t31581, t31583, t31585, t31587, t31589, t31592, t31594;
9435   double t31597, t31599, t31603, t31604, t31609, t31616, t31632, t31654;
9436   double t31671, t31684, t31694, t31701, t31706, t31711, t31722, t31729;
9437   double t31732, t31733, t31734, t31735, t31736, t31737, t31738, t31739;
9438   double t31743, t31744, t31754, t31756, t31757, t31763, t31768, t31772;
9439   double t31779, t31784, t31791, t31793, t31794, t31795, t31796, t31797;
9440   double t31798, t31802, t31811, t31837, t31842, t31846, t31849, t31899;
9441   double t31905, t31907, t31919, t31924, t31927, t31930, t31948, t31965;
9442   double t32003, t32039, t32066, t32096, t32113, t32120, t32127, t32157;
9443   double t32191, t32216, t32224, t32235, t32245, t32248, t32259, t32266;
9444   double t32272, t32274, t32280, t32285, t32290, t32293, t32295, t32296;
9445   double t32301, t32303, t32307, t32311, t32325, t32327, t32332, t32338;
9446   double t32346, t32353, t32360, t32361, t32366, t32369, t32376, t32379;
9447   double t32380, t32384, t32390, t32392, t32400, t32403, t32405, t32425;
9448   double t32428, t32431, t32434, t32437, t32443, t32455, t32460, t32463;
9449   double t32466, t32495, t32497, t32504, t32507, t32529, t32536, t32547;
9450   double t32555, t32556, t32578, t32584, t32587, t32590, t32603, t32607;
9451   double t32609, t32611, t32621, t32628, t32631, t32634, t32641, t32648;
9452   double t32650, t32656, t32662, t32675, t32678, t32684, t32692, t32714;
9453   double t32719, t32722, t32725, t32733, t32751, t32761, t32768, t32771;
9454   double t32786, t32804, t32811, t32852, t32854, t32860, t32869, t32872;
9455   double t32895, t32898, t32908, t32913, t32916, t32923, t32929, t32941;
9456   double t32943, t32946, t32961, t32970, t32990, t33005, t33024, t33035;
9457   double t33041, t33047, t33065, t33080, t33095, t33105, t33109, t33113;
9458   double t33124, t33150, t33153, t33156, t33158, t33168, t33171, t33180;
9459   double t33198, t33225, t33227, t33230, t33236, t33245, t33248, t33267;
9460   double t33280, t33283, t33286, t33287, t33290, t33291, t33300, t33314;
9461   double t33332, t33344, t33346, t33363, t33374, t33383, t33401, t33438;
9462   double t33467, t33474, t33482, t33489, t33494, t33501, t33521, t33527;
9463   double t33529, t33531, t33533, t33542, t33545, t33549, t33555, t33566;
9464   double t33569, t33580, t33585, t33590, t33592, t33594, t33596, t33600;
9465   double t33612, t33619, t33621, t33624, t33626, t33628, t33630, t33634;
9466   double t33648, t33659, t33666, t33687, t33711, t33736, t33739, t33740;
9467   double t33742, t33754, t33759, t33765, t33767, t33769, t33772, t33773;
9468   double t33776, t33778, t33780, t33782, t33791, t33800, t33808, t33816;
9469   double t33826, t33835, t33838, t33894, t33929, t33940, t33941, t33942;
9470   double t33943, t33944, t33945, t33946, t33947, t33948, t33949, t33965;
9471   double t33973, t33980, t33984, t33994, t34001, t34010, t34022, t34035;
9472   double t34054, t34065, t34079, t34085, t34108, t34132, t34135, t34142;
9473   double t34155, t34158, t34166, t34170, t34172, t34182, t34183, t34188;
9474   double t34190, t34193, t34196, t34203, t34215, t34221, t34223, t34229;
9475   double t34233, t34238, t34241, t34243, t34251, t34253, t34257, t34261;
9476   double t34265, t34267, t34274, t34295, t34303, t34311, t34315, t34316;
9477   double t34324, t34326, t34333, t34338, t34353, t34381, t34389, t34400;
9478   double t34403, t34406, t34419, t34422, t34428, t34437, t34439, t34442;
9479   double t34448, t34454, t34462, t34467, t34472, t34475, t34478, t34480;
9480   double t34486, t34496, t34507, t34524, t34530, t34536, t34538, t34544;
9481   double t34547, t34558, t34567, t34569, t34571, t34586, t34595, t34604;
9482   double t34616, t34627, t34630, t34634, t34644, t34662, t34664, t34667;
9483   double t34670, t34673, t34676, t34679, t34686, t34698, t34704, t34711;
9484   double t34743, t34747, t34754, t34757, t34799, t34802, t34807, t34818;
9485   double t34827, t34830, t34842, t34860, t34881, t34890, t34897, t34912;
9486   double t34915, t34933, t34937, t34958, t34961, t34969, t34983, t34986;
9487   double t34988, t34991, t35030, t35032, t35034, t35058, t35066, t35069;
9488   double t35077, t35078, t35090, t35092, t35095, t35097, t35100, t35102;
9489   double t35104, t35106, t35108, t35127, t35128, t35130, t35131, t35134;
9490   double t35137, t35144, t35147, t35148, t35150, t35151, t35153, t35163;
9491   double t35169, t35182, t35201, t35210, t35224, t35229, t35232, t35239;
9492   double t35254, t35259, t35267, t35269, t35270, t35271, t35272, t35273;
9493   double t35274, t35275, t35276, t35277, t35278, t35279, t35280, t35281;
9494   double t35282, t35286, t35309, t35325, t35330, t35335, t35342, t35382;
9495   double t35396, t35408, t35420, t35433, t35451, t35458, t35491, t35523;
9496   double t35550, t35565, t35592, t35616, t35642, t35673, t35710, t35729;
9497   double t35732, t35734, t35748, t35750, t35754, t35759, t35764, t35768;
9498   double t35773, t35775, t35783, t35813, t35819, t35839, t35868, t35895;
9499   double t35898, t35934, t35939, t35947, t35965, t35968, t35989, t35992;
9500   double t35995, t35999, t36002, t36005, t36024, t36032, t36040, t36057;
9501   double t36070, t36079, t36091, t36100, t36102, t36128, t36130, t36133;
9502   double t36136, t36146, t36153, t36162, t36168, t36175, t36178, t36207;
9503   double t36217, t36225, t36228, t36231, t36239, t36248, t36263, t36278;
9504   double t36282, t36288, t36298, t36303, t36312, t36314, t36318, t36331;
9505   double t36356, t36367, t36395, t36398, t36401, t36405, t36412, t36438;
9506   double t36445, t36448, t36452, t36458, t36476, t36479, t36493, t36507;
9507   double t36512, t36517, t36520, t36523, t36526, t36532, t36535, t36544;
9508   double t36548, t36551, t36567, t36569, t36573, t36578, t36580, t36584;
9509   double t36588, t36593, t36595, t36603, t36605, t36612, t36629, t36665;
9510   double t36672, t36700, t36703, t36711, t36741, t36742, t36761, t36779;
9511   double t36782, t36794, t36796, t36798, t36847, t36864, t36873, t36885;
9512   double t36894, t36912, t36915, t36922, t36937, t36943, t36966, t36984;
9513   double t37002, t37005, t37010, t37044, t37065, t37081, t37089, t37101;
9514   double t37104, t37107, t37110, t37120, t37127, t37138, t37140, t37143;
9515   double t37146, t37149, t37156, t37158, t37163, t37168, t37182, t37193;
9516   double t37205, t37208, t37232, t37250, t37255, t37281, t37286, t37288;
9517   double t37290, t37292, t37294, t37296, t37298, t37300, t37302, t37304;
9518   double t37306, t37322, t37327, t37342, t37345, t37348, t37353, t37356;
9519   double t37369, t37394, t37409, t37422, t37447, t37452, t37461, t37463;
9520   double t37465, t37466, t37468, t37474, t37476, t37479, t37504, t37529;
9521   double t37542, t37557, t37576, t37580, t37586, t37587, t37588, t37589;
9522   double t37590, t37591, t37592, t37593, t37603, t37614, t37638, t37672;
9523   double t37686, t37689, t37690, t37692, t37694, t37696, t37698, t37701;
9524   double t37703, t37706, t37708, t37713, t37717, t37720, t37759, t37764;
9525   double t37781, t37803, t37816, t37827, t37841, t37866, t37873, t37883;
9526   double t37890, t37894, t37899, t37906, t37915, t37954, t37959, t37966;
9527   double t37981, t37991, t38016, t38019, t38025, t38028, t38040, t38046;
9528   double t38051, t38053, t38059, t38061, t38078, t38086, t38091, t38097;
9529   double t38101, t38108, t38111, t38113, t38127, t38143, t38149, t38178;
9530   double t38182, t38183, t38188, t38189, t38190, t38196, t38203, t38225;
9531   double t38228, t38237, t38242, t38251, t38258, t38278, t38279, t38290;
9532   double t38297, t38300, t38303, t38304, t38309, t38314, t38319, t38324;
9533   double t38325, t38332, t38350, t38411, t38413, t38428, t38431, t38455;
9534   double t38456, t38458, t38460, t38463, t38465, t38468, t38479, t38485;
9535   double t38487, t38497, t38499, t38500, t38505, t38507, t38515, t38526;
9536   double t38529, t38539, t38540, t38546, t38547, t38558, t38569, t38586;
9537   double t38637, t38647, t38668, t38671, t38735, t38739, t38743, t38746;
9538   double t38748, t38750, t38752, t38764, t38793, t38797, t38800, t38824;
9539   double t38834, t38855, t38856, t38859, t38878, t38881, t38882, t38888;
9540   double t38889, t38905, t38945, t38956, t38966, t38970, t39010, t39043;
9541   double t39051, t39059, t39091, t39114, t39115, t39117, t39118, t39143;
9542   double t39144, t39150, t39158, t39174, t39212, t39241, t39271, t39287;
9543   double t39293, t39318, t39325, t39326, t39346, t39350, t39364, t39368;
9544   double t39373, t39379, t39388, t39396, t39399, t39403, t39413, t39416;
9545   double t39425, t39429, t39457, t39460, t39465, t39479, t39486, t39497;
9546   double t39508, t39519, t39528, t39537, t39542, t39543, t39554, t39555;
9547   double t39557, t39558, t39560, t39563, t39567, t39588, t39590, t39593;
9548   double t39595, t39598, t39613, t39615, t39628, t39630, t39637, t39658;
9549   double t39659, t39663, t39664, t39672, t39674, t39679, t39681, t39682;
9550   double t39683, t39684, t39691, t39692, t39695, t39717, t39730, t39735;
9551   double t39783, t39811, t39844, t39867, t39910, t39929, t39980, t40039;
9552   double t40068, t40076, t40084, t40095, t40096, t40100, t40101, t40112;
9553   double t40115, t40144, t40180, t40213, t40214, t40218, t40233, t40243;
9554   double t40274, t40279, t40289, t40299, t40318, t40323, t40340, t40350;
9555   double t40352, t40356, t40358, t40361, t40364, t40379, t40383, t40387;
9556   double t40390, t40394, t40403, t40406, t40410, t40413, t40416, t40418;
9557   double t40421, t40422, t40427, t40434, t40442, t40446, t40455, t40468;
9558   double t40476, t40487, t40488, t40491, t40494, t40497, t40504, t40507;
9559   double t40517, t40523, t40530, t40542, t40545, t40548, t40559, t40565;
9560   double t40578, t40583, t40586, t40588, t40595, t40613, t40621, t40653;
9561   double t40692, t40698, t40699, t40702, t40716, t40717, t40728, t40745;
9562   double t40748, t40751, t40754, t40757, t40758, t40759, t40762, t40769;
9563   double t40776, t40779, t40782, t40787, t40795, t40805, t40807, t40811;
9564   double t40822, t40825, t40830, t40872, t40913, t40914, t40916, t40948;
9565   double t40955, t40981, t40985, t40996, t41007, t41013, t41016, t41017;
9566   double t41057, t41096, t41106, t41107, t41111, t41122, t41142, t41146;
9567   double t41149, t41157, t41158, t41183, t41188, t41202, t41204, t41206;
9568   double t41209, t41212, t41215, t41218, t41221, t41224, t41230, t41235;
9569   double t41240, t41256, t41258, t41260, t41269, t41272, t41273, t41274;
9570   double t41297, t41300, t41301, t41304, t41307, t41308, t41317, t41320;
9571   double t41329, t41332, t41335, t41340, t41343, t41346, t41348, t41349;
9572   double t41358, t41359, t41360, t41361, t41362, t41363, t41364, t41365;
9573   double t41366, t41380, t41382, t41383, t41385, t41388, t41393, t41394;
9574   double t41395, t41396, t41399, t41400, t41402, t41403, t41405, t41407;
9575   double t41408, t41410, t41412, t41414, t41415, t41417, t41418, t41423;
9576   double t41444, t41454, t41457, t41458, t41463, t41466, t41469, t41494;
9577   double t41512, t41529, t41531, t41540, t41549, t41554, t41595, t41609;
9578   double t41626, t41653, t41656, t41658, t41660, t41662, t41664, t41667;
9579   double t41670, t41688, t41717, t41741, t41766, t41783, t41786, t41791;
9580   double t41796, t41821, t41836, t41843, t41846, t41881, t41919, t41955;
9581   double t41958, t41961, t41975, t41979, t41998, t42022, t42054, t42061;
9582   double t42103, t42143, t42157, t42172, t42174, t42192, t42200, t42203;
9583   double t42206, t42212, t42224, t42247, t42250, t42257, t42265, t42280;
9584   double t42281, t42291, t42303, t42305, t42308, t42311, t42313, t42328;
9585   double t42347, t42348, t42351, t42354, t42357, t42360, t42362, t42363;
9586   double t42371, t42380, t42381, t42383, t42386, t42394, t42400, t42401;
9587   double t42403, t42404, t42406, t42407, t42409, t42411, t42412, t42414;
9588   double t42416, t42417, t42418, t42420, t42422, t42427, t42432, t42442;
9589   double t42460, t42480, t42491, t42494, t42497, t42516, t42523, t42526;
9590   double t42545, t42546, t42547, t42548, t42549, t42550, t42554, t42555;
9591   double t42557, t42571, t42572, t42573, t42576, t42579, t42582, t42583;
9592   double t42588, t42593, t42598, t42605, t42607, t42608, t42613, t42614;
9593   double t42619, t42634, t42678, t42688, t42691, t42700, t42726, t42733;
9594   double t42753, t42763, t42768, t42773, t42782, t42809, t42820, t42838;
9595   double t42866, t42889, t42914, t42924, t42939, t42942, t42969, t42972;
9596   double t42975, t42978, t42984, t42995, t43005, t43006, t43008, t43016;
9597   double t43018, t43020, t43021, t43023, t43024, t43035, t43037, t43049;
9598   double t43082, t43092, t43094, t43105, t43116, t43132, t43134, t43135;
9599   double t43144, t43162, t43164, t43187, t43193, t43196, t43203, t43217;
9600   double t43229, t43230, t43235, t43250, t43251, t43257, t43270, t43279;
9601   double t43285, t43305, t43318, t43321, t43326, t43349, t43351, t43353;
9602   double t43362, t43364, t43365, t43377, t43379, t43381, t43383, t43386;
9603   double t43388, t43392, t43407, t43410, t43413, t43438, t43458, t43470;
9604   double t43481, t43504, t43508, t43511, t43514, t43531, t43545, t43548;
9605   double t43559, t43560, t43563, t43566, t43586, t43595, t43597, t43601;
9606   double t43610, t43614, t43640, t43664, t43669, t43676, t43685, t43691;
9607   double t43698, t43705, t43715, t43728, t43739, t43742, t43751, t43752;
9608   double t43753, t43754, t43755, t43756, t43757, t43758, t43759, t43760;
9609   double t43761, t43762, t43765, t43766, t43768, t43770, t43772, t43774;
9610   double t43784, t43788, t43791, t43793, t43812, t43839, t43866, t43873;
9611   double t43874, t43878, t43882, t43891, t43893, t43894, t43896, t43898;
9612   double t43900, t43901, t43903, t43905, t43911, t43915, t43922, t43927;
9613   double t43935, t43946, t43949, t43960, t43992, t44005, t44073, t44097;
9614   double t44102, t44114, t44146, t44168, t44172, t44174, t44209, t44217;
9615   double t44220, t44223, t44226, t44247, t44272, t44275, t44301, t44305;
9616   double t44308, t44311, t44314, t44321, t44330, t44337, t44345, t44361;
9617   double t44370, t44377, t44381, t44383, t44386, t44394, t44402, t44409;
9618   double t44415, t44422, t44455, t44458, t44459, t44472, t44481, t44487;
9619   double t44493, t44496, t44507, t44515, t44519, t44525, t44536, t44537;
9620   double t44545, t44554, t44559, t44564, t44570, t44577, t44582, t44587;
9621   double t44590, t44592, t44595, t44608, t44622, t44625, t44638, t44659;
9622   double t44661, t44664, t44665, t44669, t44671, t44672, t44674, t44676;
9623   double t44682, t44683, t44684, t44685, t44686, t44687, t44688, t44689;
9624   double t44690, t44691, t44692, t44693, t44694, t44695, t44696, t44716;
9625   double t44719, t44721, t44723, t44725, t44726, t44728, t44730, t44732;
9626   double t44734, t44735, t44737, t44738, t44739, t44741, t44743, t44745;
9627   double t44747, t44750, t44751, t44752, t44753, t44754, t44755, t44756;
9628   double t44763, t44764, t44766, t44769, t44771, t44774, t44790, t44796;
9629   double t44826, t44828, t44830, t44831, t44833, t44834, t44836, t44837;
9630   double t44839, t44847, t44868, t44906, t44923, t44947, t44987, t45002;
9631   double t45030, t45061, t45073, t45075, t45080, t45107, t45118, t45119;
9632   double t45131, t45134, t45136, t45183, t45196, t45205, t45229, t45249;
9633   double t45274, t45293, t45297, t45300, t45306, t45311, t45320, t45332;
9634   double t45355, t45415, t45459, t45468, t45473, t45489, t45515, t45519;
9635   double t45521, t45538, t45544, t45546, t45562, t45563, t45568, t45577;
9636   double t45603, t45609, t45616, t45628, t45630, t45648, t45650, t45667;
9637   double t45668, t45694, t45707, t45710, t45725, t45728, t45737, t45759;
9638   double t45762, t45772, t45777, t45780, t45783, t45787, t45788, t45793;
9639   double t45794, t45799, t45801, t45803, t45805, t45807, t45825, t45836;
9640   double t45863, t45865, t45867, t45870, t45871, t45873, t45875, t45877;
9641   double t45880, t45882, t45884, t45886, t45888, t45892, t45894, t45896;
9642   double t45898, t45913, t45924, t45946, t45967, t45990, t46010, t46017;
9643   double t46053, t46096, t46098, t46108, t46136, t46139, t46182, t46188;
9644   double t46201, t46204, t46245, t46272, t46300, t46333, t46344, t46346;
9645   double t46348, t46351, t46352, t46354, t46356, t46357, t46359, t46361;
9646   double t46363, t46364, t46366, t46369, t46371, t46372, t46374, t46377;
9647   double t46378, t46379, t46380, t46381, t46382, t46386, t46388, t46389;
9648   double t46391, t46399, t46400, t46401, t46402, t46403, t46414, t46430;
9649   double t46433, t46463, t46474, t46477, t46494, t46502, t46512, t46568;
9650   double t46585, t46614, t46633, t46663, t46682, t46686, t46688, t46705;
9651   double t46710, t46724, t46729, t46731, t46733, t46740, t46755, t46758;
9652   double t46771, t46777, t46806, t46815, t46819, t46826, t46830, t46838;
9653   double t46841, t46844, t46901, t46934, t46942, t46945, t46960, t46967;
9654   double t46970, t46974, t46977, t46980, t46983, t46986, t46989, t46991;
9655   double t47005, t47025, t47043, t47049, t47055, t47057, t47086, t47097;
9656   double t47098, t47114, t47117, t47118, t47120, t47123, t47124, t47127;
9657   double t47128, t47130, t47132, t47134, t47135, t47138, t47139, t47141;
9658   double t47146, t47161, t47163, t47165, t47185, t47186, t47202, t47209;
9659   double t47212, t47215, t47218, t47221, t47235, t47236, t47238, t47240;
9660   double t47242, t47244, t47245, t47248, t47252, t47258, t47279, t47296;
9661   double t47309, t47326, t47329, t47334, t47349, t47350, t47358, t47374;
9662   double t47377, t47382, t47388, t47394, t47395, t47396, t47397, t47406;
9663   double t47409, t47432, t47435, t47440, t47456, t47457, t47458, t47459;
9664   double t47460, t47461, t47462, t47463, t47464, t47465, t47467, t47468;
9665   double t47469, t47470, t47476, t47478, t47479, t47480, t47505, t47527;
9666   double t47553, t47558, t47624, t47659, t47677, t47682, t47703, t47708;
9667   double t47740, t47781, t47818, t47860, t47876, t47901, t47924, t47931;
9668   double t47937, t47947, t47958, t47970, t47994, t48011, t48014, t48042;
9669   double t48048, t48053, t48057, t48067, t48069, t48071, t48076, t48078;
9670   double t48106, t48135, t48155, t48156, t48172, t48175, t48181, t48196;
9671   double t48204, t48206, t48208, t48210, t48213, t48214, t48216, t48220;
9672   double t48222, t48228, t48229, t48232, t48235, t48237, t48238, t48240;
9673   double t48258, t48259, t48261, t48302, t48303, t48326, t48329, t48332;
9674   double t48333, t48338, t48341, t48365, t48366, t48367, t48369, t48370;
9675   double t48371, t48372, t48373, t48392, t48393, t48400, t48406, t48407;
9676   double t48408, t48409, t48415, t48426, t48431, t48476, t48501, t48525;
9677   double t48550, t48575, t48599, t48626, t48671, t48701, t48728, t48731;
9678   double t48791, t48794, t48802, t48805, t48811, t48815, t48827, t48834;
9679   double t48839, t48842, t48845, t48852, t48855, t48860, t48864, t48868;
9680   double t48890, t48908, t48937, t48953, t48955, t48956, t48962, t48966;
9681   double t48977, t48983, t48987, t48991, t48994, t48995, t49000, t49029;
9682   double t49034, t49061, t49068, t49081, t49085, t49096, t49106, t49123;
9683   double t49126, t49142, t49145, t49147, t49149, t49152, t49158, t49161;
9684   double t49190, t49216, t49220, t49225, t49264, t49265, t49276, t49285;
9685   double t49296, t49301, t49321, t49329, t49332, t49340, t49349, t49360;
9686   double t49361, t49368, t49388, t49394, t49456, t49474, t49497, t49505;
9687   double t49507, t49525, t49526, t49530, t49531, t49533, t49536, t49537;
9688   double t49542, t49543, t49562, t49563, t49586, t49587, t49588, t49589;
9689   double t49590, t49591, t49592, t49593, t49594, t49596, t49598, t49600;
9690   double t49603, t49604, t49606, t49608, t49610, t49618, t49619, t49626;
9691   double t49627, t49629, t49632, t49634, t49635, t49636, t49638, t49650;
9692   double t49652, t49668, t49673, t49683, t49724, t49750, t49766, t49775;
9693   double t49799, t49801, t49828, t49856, t49885, t49913, t49935, t49959;
9694   double t49966, t49968, t49970, t49984, t50006, t50009, t50014, t50018;
9695   double t50019, t50025, t50030, t50033, t50068, t50077, t50100, t50109;
9696   double t50112, t50130, t50131, t50138, t50158, t50164, t50167, t50170;
9697   double t50224, t50246, t50251, t50276, t50282, t50302, t50314, t50339;
9698   double t50344, t50347, t50352, t50368, t50399, t50414, t50425, t50428;
9699   double t50431, t50448, t50456, t50464, t50472, t50492, t50500, t50503;
9700   double t50514, t50515, t50543, t50575, t50585, t50588, t50619, t50658;
9701   double t50661, t50664, t50667, t50670, t50677, t50681, t50709, t50713;
9702   double t50722, t50727, t50736, t50745, t50760, t50766, t50767, t50811;
9703   double t50843, t50870, t50871, t50887, t50888, t50891, t50892, t50895;
9704   double t50906, t50912, t50915, t50916, t50919, t50924, t50948, t50951;
9705   double t50955, t50960, t50965, t50981, t50984, t50986, t50988, t50991;
9706   double t50998, t51023, t51026, t51027, t51066, t51067, t51072, t51096;
9707   double t51101, t51104, t51105, t51120, t51146, t51150, t51154, t51158;
9708   double t51161, t51164, t51167, t51172, t51177, t51182, t51185, t51194;
9709   double t51199, t51224, t51233, t51240, t51243, t51257, t51260, t51263;
9710   double t51264, t51267, t51268, t51277, t51280, t51281, t51286, t51289;
9711   double t51292, t51299, t51302, t51324, t51332, t51363, t51364, t51367;
9712   double t51392, t51397, t51412, t51431, t51459, t51464, t51467, t51471;
9713   double t51479, t51482, t51489, t51506, t51541, t51553, t51556, t51559;
9714   double t51577, t51581, t51603, t51606, t51610, t51644, t51665, t51668;
9715   double t51673, t51676, t51677, t51680, t51706, t51709, t51714, t51717;
9716   double t51750, t51751, t51754, t51761, t51762, t51774, t51781, t51783;
9717   double t51796, t51802, t51807, t51812, t51816, t51818, t51823, t51825;
9718   double t51846, t51847, t51855, t51872, t51887, t51888, t51896, t51900;
9719   double t51910, t51918, t51921, t51923, t51945, t51955, t51981, t51982;
9720   double t51990, t52007, t52013, t52018, t52042, t52059, t52061, t52064;
9721   double t52083, t52084, t52100, t52131, t52132, t52135, t52141, t52148;
9722   double t52166, t52169, t52170, t52173, t52190, t52208, t52215, t52217;
9723   double t52271, t52295, t52305, t52334, t52335, t52348, t52363, t52374;
9724   double t52376, t52378, t52380, t52382, t52384, t52387, t52415, t52427;
9725   double t52428, t52436, t52448, t52453, t52454, t52463, t52466, t52470;
9726   double t52475, t52494, t52498, t52501, t52509, t52512, t52516, t52519;
9727   double t52541, t52548, t52551, t52552, t52555, t52558, t52559, t52577;
9728   double t52580, t52583, t52595, t52599, t52603, t52606, t52646, t52647;
9729   double t52652, t52661, t52662, t52673, t52676, t52695, t52696, t52721;
9730   double t52722, t52725, t52743, t52747, t52756, t52761, t52769, t52770;
9731   double t52773, t52793, t52836, t52850, t52861, t52881, t52902, t52905;
9732   double t52906, t52911, t52914, t52921, t52927, t52936, t52958, t52965;
9733   double t52968, t52985, t52991, t53023, t53028, t53031, t53032, t53035;
9734   double t53042, t53049, t53052, t53079, t53091, t53104, t53127, t53156;
9735   double t53157, t53159, t53181, t53184, t53187, t53202, t53206, t53209;
9736   double t53214, t53217, t53221, t53225, t53243, t53247, t53256, t53281;
9737   double t53297, t53298, t53301, t53304, t53308, t53311, t53324, t53327;
9738   double t53331, t53334, t53337, t53340, t53343, t53346, t53363, t53371;
9739   double t53374, t53388, t53399, t53431, t53432, t53437, t53441, t53449;
9740   double t53452, t53455, t53458, t53481, t53483, t53505, t53508, t53513;
9741   double t53543, t53566, t53577, t53585, t53588, t53593, t53631, t53632;
9742   double t53633, t53635, t53638, t53641, t53644, t53654, t53657, t53660;
9743   double t53668, t53673, t53674, t53677, t53683, t53684, t53689, t53692;
9744   double t53695, t53698, t53710, t53724, t53731, t53780, t53790, t53793;
9745   double t53796, t53799, t53802, t53805, t53822, t53828, t53837, t53840;
9746   double t53847, t53864, t53928, t53941, t53944, t53969, t54005, t54018;
9747   double t54030, t54036, t54038, t54039, t54045, t54063, t54068, t54074;
9748   double t54077, t54080, t54091, t54093, t54094, t54099, t54101, t54124;
9749   double t54127, t54130, t54133, t54136, t54142, t54143, t54146, t54147;
9750   double t54153, t54156, t54159, t54160, t54186, t54218, t54227, t54229;
9751   double t54231, t54233, t54235, t54237, t54239, t54240, t54245, t54247;
9752   double t54251, t54257, t54261, t54265, t54294, t54299, t54306, t54313;
9753   double t54325, t54331, t54344, t54346, t54362, t54393, t54402, t54404;
9754   double t54406, t54408, t54425, t54453, t54489, t54492, t54497, t54500;
9755   double t54511, t54556, t54587, t54595, t54606, t54625, t54632, t54687;
9756   double t54722, t54725, t54726, t54728, t54729, t54731, t54732, t54735;
9757   double t54736, t54737, t54739, t54741, t54743, t54744, t54746, t54748;
9758   double t54750, t54752, t54754, t54757, t54759, t54760, t54761, t54762;
9759   double t54766, t54767, t54769, t54773, t54778, t54782, t54792, t54800;
9760   double t54807, t54809, t54814, t54836, t54845, t54851, t54862, t54889;
9761   double t54913, t54924, t54950, t54963, t54966, t54974, t54997, t55023;
9762   double t55040, t55052, t55058, t55074, t55102, t55108, t55121, t55152;
9763   double t55158, t55164, t55166, t55210, t55228, t55252, t55266, t55274;
9764   double t55275, t55277, t55308, t55310, t55312, t55322, t55323, t55325;
9765   double t55335, t55355, t55356, t55365, t55368, t55369, t55371, t55379;
9766   double t55382, t55385, t55388, t55389, t55391, t55393, t55394, t55410;
9767   double t55413, t55414, t55418, t55423, t55439, t55440, t55442, t55443;
9768   double t55445, t55447, t55448, t55450, t55451, t55456, t55463, t55471;
9769   double t55473, t55474, t55476, t55478, t55480, t55483, t55484, t55497;
9770   double t55511, t55545, t55548, t55555, t55560, t55563, t55568, t55569;
9771   double t55570, t55575, t55577, t55578, t55579, t55580, t55581, t55582;
9772   double t55583, t55584, t55585, t55586, t55587, t55588, t55589, t55590;
9773   double t55591, t55597, t55617, t55629, t55646, t55658, t55663, t55666;
9774   double t55669, t55672, t55692, t55699, t55704, t55740, t55743, t55763;
9775   double t55793, t55822, t55824, t55827, t55855, t55884, t55909, t55912;
9776   double t55919, t55949, t55962, t55994, t56010, t56019, t56049, t56084;
9777   double t56087, t56109, t56119, t56126, t56140, t56150, t56159, t56172;
9778   double t56189, t56202, t56206, t56245, t56250, t56252, t56272, t56274;
9779   double t56295, t56296, t56349, t56352, t56355, t56358, t56369, t56377;
9780   double t56393, t56398, t56399, t56406, t56409, t56416, t56422, t56459;
9781   double t56462, t56504, t56523, t56529, t56536, t56539, t56545, t56558;
9782   double t56580, t56585, t56589, t56612, t56629, t56636, t56662, t56677;
9783   double t56699, t56722, t56745, t56762, t56764, t56766, t56768, t56770;
9784   double t56772, t56776, t56785, t56792, t56794, t56796, t56798, t56800;
9785   double t56804, t56806, t56808, t56810, t56812, t56814, t56820, t56839;
9786   double t56855, t56866, t56874, t56883, t56890, t56912, t56914, t56916;
9787   double t56918, t56921, t56923, t56924, t56926, t56929, t56938, t56965;
9788   double t56993, t57012, t57014, t57016, t57017, t57019, t57021, t57024;
9789   double t57026, t57029, t57030, t57036, t57037, t57038, t57039, t57040;
9790   double t57041, t57042, t57045, t57059, t57081, t57095, t57107, t57108;
9791   double t57109, t57110, t57111, t57115, t57130, t57136, t57141, t57172;
9792   double t57179, t57194, t57250, t57298, t57310, t57322, t57332, t57348;
9793   double t57352, t57358, t57371, t57391, t57394, t57397, t57406, t57420;
9794   double t57431, t57438, t57447, t57452, t57459, t57463, t57482, t57508;
9795   double t57525, t57537, t57540, t57541, t57543, t57545, t57547, t57550;
9796   double t57552, t57553, t57563, t57564, t57565, t57570, t57573, t57584;
9797   double t57587, t57596, t57624, t57639, t57644, t57646, t57648, t57650;
9798   double t57652, t57656, t57657, t57658, t57660, t57662, t57680, t57687;
9799   double t57699, t57706, t57709, t57711, t57712, t57717, t57732, t57738;
9800   double t57739, t57740, t57743, t57749, t57750, t57751, t57752, t57753;
9801   double t57754, t57755, t57757, t57759, t57761, t57763, t57765, t57771;
9802   double t57772, t57773, t57774, t57775, t57776, t57777, t57778, t57779;
9803   double t57780, t57781, t57782, t57783, t57784, t57785, t57786, t57787;
9804   double t57791, t57803, t57808, t57809, t57842, t57848, t57855, t57878;
9805   double t57895, t57902, t57909, t57930, t57974, t57988, t57990, t57991;
9806   double t57993, t57994, t58000, t58001, t58019, t58028, t58049, t58062;
9807   double t58073, t58077, t58112, t58116, t58127, t58189, t58211, t58236;
9808   double t58259, t58263, t58280, t58303, t58322, t58364, t58405, t58422;
9809   double t58447, t58481, t58495, t58536, t58559, t58577, t58617, t58623;
9810   double t58634, t58637, t58648, t58664, t58679, t58687, t58742, t58762;
9811   double t58765, t58768, t58769, t58773, t58774, t58776, t58787, t58788;
9812   double t58790, t58793, t58796, t58797, t58802, t58813, t58815, t58817;
9813   double t58820, t58821, t58823, t58825, t58828, t58839, t58842, t58844;
9814   double t58846, t58849, t58856, t58873, t58876, t58896, t58925, t58928;
9815   double t58935, t58938, t58943, t58950, t58977, t58982, t58998, t59000;
9816   double t59001, t59002, t59003, t59004, t59005, t59006, t59007, t59008;
9817   double t59009, t59010, t59011, t59012, t59013, t59014, t59015, t59016;
9818   double t59017, t59025, t59028, t59042, t59055, t59100, t59162, t59189;
9819   double t59222, t59255, t59285, t59313, t59344, t59390, t59425, t59445;
9820   double t59461, t59479, t59501, t59511, t59528, t59543, t59545, t59547;
9821   double t59549, t59551, t59554, t59556, t59557, t59561, t59567, t59573;
9822   double t59577, t59580, t59591, t59594, t59612, t59624, t59627, t59635;
9823   double t59642, t59646, t59655, t59658, t59662, t59665, t59668, t59671;
9824   double t59678, t59681, t59684, t59687, t59713, t59721, t59735, t59739;
9825   double t59745, t59749, t59775, t59779, t59782, t59791, t59795, t59803;
9826   double t59832, t59854, t59875, t59905, t59914, t59935, t59936, t59952;
9827   double t59965, t59985, t59988, t59997, t59998, t60023, t60035, t60041;
9828   double t60070, t60075, t60077, t60102, t60125, t60128, t60139, t60141;
9829   double t60147, t60158, t60161, t60163, t60176, t60181, t60182, t60196;
9830   double t60226, t60228, t60230, t60232, t60245, t60247, t60248, t60250;
9831   double t60252, t60254, t60262, t60264, t60266, t60268, t60272, t60276;
9832   double t60314, t60339, t60349, t60354, t60377, t60382, t60412, t60442;
9833   double t60463, t60465, t60467, t60469, t60471, t60490, t60497, t60500;
9834   double t60506, t60511, t60520, t60522, t60534, t60548, t60563, t60567;
9835   double t60578, t60611, t60617, t60654, t60699, t60749, t60751, t60767;
9836   double t60770, t60779, t60780, t60781, t60783, t60785, t60787, t60790;
9837   double t60791, t60793, t60795, t60797, t60813, t60833, t60860, t60880;
9838   double t60893, t60894, t60895, t60896, t60897, t60906, t60912, t60913;
9839   double t60914, t60915, t60917, t60947, t60986, t61015, t61058, t61074;
9840   double t61096, t61101, t61118, t61125, t61136, t61161, t61201, t61215;
9841   double t61240, t61263, t61289, t61313, t61337, t61339, t61344, t61347;
9842   double t61352, t61355, t61358, t61361, t61370, t61383, t61398, t61425;
9843   double t61428, t61435, t61455, t61459, t61475, t61513, t61519, t61529;
9844   double t61530, t61533, t61554, t61564, t61574, t61577, t61584, t61592;
9845   double t61593, t61595, t61630, t61635, t61656, t61659, t61661, t61663;
9846   double t61665, t61667, t61669, t61671, t61673, t61675, t61677, t61679;
9847   double t61680, t61683, t61699, t61719, t61744, t61747, t61754, t61759;
9848   double t61806, t61847, t61848, t61859, t61864, t61877, t61886, t61915;
9849   double t61922, t61925, t61928, t61931, t61936, t61956, t61961, t61986;
9850   double t62009, t62010, t62013, t62016, t62017, t62026, t62054, t62055;
9851   double t62062, t62065, t62094, t62095, t62098, t62101, t62104, t62106;
9852   double t62119, t62126, t62135, t62138, t62139, t62152, t62162, t62180;
9853   double t62183, t62186, t62199, t62214, t62222, t62229, t62244, t62265;
9854   double t62268, t62271, t62274, t62287, t62302, t62318, t62319, t62323;
9855   double t62328, t62331, t62340, t62343, t62346, t62349, t62359, t62362;
9856   double t62365, t62368, t62375, t62405, t62406, t62416, t62423, t62428;
9857   double t62440, t62457, t62460, t62498, t62513, t62536, t62538, t62541;
9858   double t62548, t62565, t62569, t62572, t62581, t62584, t62591, t62592;
9859   double t62595, t62602, t62605, t62608, t62613, t62617, t62632, t62642;
9860   double t62671, t62700, t62703, t62706, t62713, t62732, t62737, t62740;
9861   double t62753, t62754, t62758, t62762, t62763, t62771, t62800, t62830;
9862   double t62847, t62861, t62888, t62918, t62947, t62962, t62977, t62980;
9863   double t63012, t63037, t63046, t63055, t63056, t63058, t63106, t63113;
9864   double t63127, t63142, t63163, t63166, t63175, t63215, t63241, t63261;
9865   double t63264, t63271, t63272, t63275, t63310, t63319, t63333, t63352;
9866   double t63353, t63360, t63383, t63401, t63425, t63429, t63467, t63478;
9867   double t63499, t63511, t63516, t63571, t63588, t63595, t63598, t63604;
9868   double t63607, t63614, t63617, t63620, t63621, t63626, t63629, t63630;
9869   double t63633, t63636, t63637, t63643, t63646, t63655, t63658, t63661;
9870   double t63664, t63680, t63691, t63694, t63717, t63724, t63727, t63757;
9871   double t63776, t63781, t63784, t63787, t63790, t63794, t63797, t63800;
9872   double t63807, t63811, t63816, t63830, t63833, t63834, t63837, t63844;
9873   double t63852, t63863, t63866, t63869, t63873, t63876, t63879, t63882;
9874   double t63898, t63902, t63907, t63927, t63930, t63937, t63941, t63943;
9875   double t63944, t63946, t63956, t63995, t64020, t64023, t64032, t64068;
9876   double t64085, t64086, t64101, t64104, t64107, t64109, t64113, t64121;
9877   double t64124, t64131, t64169, t64217, t64218, t64227, t64234, t64237;
9878   double t64252, t64259, t64263, t64299, t64320, t64322, t64326, t64345;
9879   double t64366, t64382, t64387, t64397, t64400, t64401, t64408, t64411;
9880   double t64428, t64465, t64498, t64503, t64510, t64540, t64555, t64579;
9881   double t64588, t64593, t64596, t64599, t64618, t64624, t64627, t64634;
9882   double t64639, t64642, t64649, t64652, t64661, t64676, t64701, t64704;
9883   double t64705, t64718, t64738, t64743, t64778, t64818, t64850, t64854;
9884   double t64866, t64898, t64923, t64932, t64947, t64948, t64966, t64994;
9885   double t65011, t65019, t65023, t65024, t65028, t65037, t65038, t65040;
9886   double t65072, t65075, t65088, t65095, t65102, t65105, t65108, t65111;
9887   double t65116, t65119, t65122, t65131, t65132, t65135, t65138, t65141;
9888   double t65144, t65146, t65147, t65161, t65164, t65165, t65168, t65171;
9889   double t65179, t65183, t65192, t65200, t65205, t65215, t65218, t65221;
9890   double t65223, t65226, t65228, t65229, t65238, t65239, t65250, t65267;
9891   double t65272, t65277, t65304, t65307, t65308, t65316, t65335, t65337;
9892   double t65365, t65386, t65405, t65414, t65465, t65468, t65477, t65514;
9893   double t65528, t65531, t65534, t65557, t65562, t65588, t65607, t65630;
9894   double t65633, t65636, t65655, t65700, t65738, t65742, t65750, t65792;
9895   double t65816, t65817, t65848, t65872, t65888, t65912, t65913, t65918;
9896   double t65923, t65936, t65955, t65963, t65964, t65966, t66003, t66010;
9897   double t66024, t66057, t66065, t66082, t66096, t66109, t66139, t66148;
9898   double t66162, t66188, t66193, t66221, t66227, t66249, t66277, t66321;
9899   double t66338, t66350, t66353, t66356, t66359, t66362, t66365, t66378;
9900   double t66381, t66383, t66385, t66387, t66389, t66391, t66393, t66395;
9901   double t66397, t66398, t66406, t66409, t66424, t66434, t66439, t66450;
9902   double t66454, t66486, t66510, t66511, t66534, t66539, t66541, t66561;
9903   double t66562, t66565, t66568, t66569, t66576, t66593, t66596, t66599;
9904   double t66602, t66608, t66614, t66635, t66638, t66641, t66648, t66692;
9905   double t66710, t66713, t66714, t66721, t66739, t66745, t66766, t66791;
9906   double t66809, t66810, t66814, t66818, t66829, t66834, t66840, t66883;
9907   double t66898, t66913, t66920, t66947, t66950, t66951, t66954, t66977;
9908   double t67003, t67031, t67033, t67036, t67044, t67081, t67121, t67153;
9909   double t67162, t67203, t67241, t67249, t67274, t67297, t67323, t67325;
9910   double t67350, t67352, t67354, t67357, t67358, t67379, t67381, t67384;
9911   double t67388, t67392, t67395, t67400, t67429, t67430, t67432, t67436;
9912   double t67447, t67464, t67467, t67468, t67471, t67478, t67481, t67488;
9913   double t67496, t67527, t67530, t67535, t67538, t67566, t67578, t67607;
9914   double t67626, t67649, t67654, t67664, t67671, t67683, t67686, t67697;
9915   double t67700, t67709, t67712, t67713, t67724, t67729, t67732, t67733;
9916   double t67734, t67736, t67754, t67759, t67771, t67782, t67787, t67789;
9917   double t67791, t67793, t67795, t67796, t67798, t67799, t67802, t67803;
9918   double t67804, t67806, t67808, t67810, t67812, t67814, t67815, t67816;
9919   double t67817, t67818, t67819, t67820, t67821, t67822, t67823, t67824;
9920   double t67825, t67834, t67839, t67861, t67862, t67872, t67885, t67910;
9921   double t67934, t67961, t67986, t68013, t68029, t68031, t68032, t68034;
9922   double t68038, t68064, t68092, t68095, t68104, t68123, t68134, t68137;
9923   double t68148, t68163, t68188, t68194, t68211, t68224, t68254, t68280;
9924   double t68327, t68339, t68376, t68381, t68388, t68398, t68406, t68414;
9925   double t68419, t68424, t68434, t68436, t68457, t68484, t68521, t68524;
9926   double t68540, t68548, t68551, t68575, t68585, t68607, t68612, t68617;
9927   double t68634, t68650, t68679, t68689, t68692, t68705, t68708, t68711;
9928   double t68712, t68717, t68738, t68746, t68780, t68823, t68846, t68847;
9929   double t68853, t68854, t68859, t68862, t68865, t68868, t68869, t68872;
9930   double t68873, t68876, t68899, t68912, t68915, t68925, t68927, t68936;
9931   double t68940, t68955, t68957, t68959, t68961, t68963, t68966, t68967;
9932   double t68968, t68970, t68971, t68973, t68977, t68979, t68981, t68983;
9933   double t68985, t68986, t68987, t68998, t68999, t69000, t69001, t69002;
9934   double t69003, t69004, t69005, t69006, t69007, t69008, t69010, t69015;
9935   double t69035, t69060, t69073, t69083, t69102, t69121, t69130, t69133;
9936   double t69161, t69180, t69202, t69204, t69205, t69207, t69209, t69232;
9937   double t69253, t69258, t69269, t69285, t69306, t69308, t69337, t69372;
9938   double t69387, t69394, t69403, t69413, t69433, t69450, t69480, t69483;
9939   double t69522, t69537, t69550, t69553, t69561, t69563, t69574, t69578;
9940   double t69581, t69588, t69612, t69641, t69665, t69667, t69668, t69669;
9941   double t69671, t69672, t69680, t69683, t69690, t69697, t69721, t69722;
9942   double t69771, t69799, t69805, t69808, t69810, t69812, t69814, t69816;
9943   double t69818, t69834, t69837, t69868, t69919, t69942, t69961, t69963;
9944   double t69964, t69965, t69966, t69971, t69972, t69973, t69974, t69978;
9945   double t69986, t69988, t69990, t69992, t69994, t70002, t70004, t70006;
9946   double t70021, t70035, t70037, t70042, t70096, t70122, t70137, t70160;
9947   double t70166, t70179, t70209, t70223, t70231, t70234, t70238, t70243;
9948   double t70245, t70247, t70250, t70257, t70268, t70272, t70275, t70280;
9949   double t70309, t70310, t70323, t70329, t70357, t70359, t70383, t70401;
9950   double t70412, t70429, t70437, t70453, t70456, t70469, t70484, t70487;
9951   double t70488, t70491, t70498, t70501, t70508, t70516, t70537, t70553;
9952   double t70556, t70559, t70562, t70569, t70593, t70608, t70617, t70626;
9953   double t70639, t70642, t70645, t70670, t70680, t70694, t70704, t70737;
9954   double t70768, t70777, t70799, t70807, t70838, t70914, t70919, t70924;
9955   double t70927, t70928, t70949, t70952, t70953, t70972, t70974, t70976;
9956   double t70979, t70980, t70982, t70986, t70990, t70992, t70994, t70995;
9957   double t71002, t71009, t71011, t71012, t71013, t71014, t71015, t71016;
9958   double t71017, t71018, t71023, t71028, t71031, t71044, t71046, t71048;
9959   double t71050, t71052, t71053, t71054, t71055, t71061, t71066, t71076;
9960   double t71082, t71151, t71171, t71183, t71200, t71202, t71203, t71205;
9961   double t71207, t71210, t71216, t71244, t71271, t71297, t71351, t71387;
9962   double t71392, t71402, t71426, t71451, t71476, t71500, t71523, t71572;
9963   double t71600, t71603, t71620, t71627, t71639, t71648, t71677, t71680;
9964   double t71687, t71695, t71704, t71714, t71717, t71720, t71724, t71729;
9965   double t71730, t71733, t71738, t71744, t71747, t71756, t71759, t71762;
9966   double t71764, t71767, t71792, t71797, t71800, t71807, t71814, t71823;
9967   double t71830, t71855, t71870, t71873, t71876, t71879, t71882, t71886;
9968   double t71887, t71888, t71892, t71899, t71902, t71905, t71908, t71911;
9969   double t71922, t71926, t71946, t71953, t71965, t71986, t72000, t72016;
9970   double t72032, t72043, t72060, t72092, t72095, t72118, t72121, t72128;
9971   double t72131, t72132, t72166, t72169, t72172, t72177, t72180, t72193;
9972   double t72226, t72234, t72259, t72267, t72274, t72275, t72302, t72304;
9973   double t72317, t72351, t72387, t72418, t72456, t72464, t72467, t72478;
9974   double t72491, t72504, t72525, t72557, t72590, t72595, t72596, t72610;
9975   double t72626, t72627, t72647, t72651, t72660, t72663, t72666, t72669;
9976   double t72723, t72734, t72735, t72753, t72764, t72782, t72803, t72833;
9977   double t72859, t72889, t72910, t72913, t72914, t72918, t72921, t72924;
9978   double t72927, t72944, t72953, t72980, t73011, t73039, t73065, t73102;
9979   double t73125, t73151, t73183, t73212, t73214, t73216, t73218, t73220;
9980   double t73222, t73224, t73226, t73227, t73238, t73239, t73250, t73267;
9981   double t73283, t73286, t73293, t73298, t73315, t73322, t73327, t73351;
9982   double t73354, t73355, t73358, t73361, t73374, t73375, t73379, t73390;
9983   double t73423, t73448, t73462, t73465, t73466, t73467, t73471, t73481;
9984   double t73486, t73514, t73539, t73552, t73567, t73584, t73587, t73594;
9985   double t73602, t73616, t73619, t73638, t73673, t73701, t73727, t73730;
9986   double t73737, t73742, t73746, t73750, t73753, t73756, t73759, t73761;
9987   double t73765, t73768, t73771, t73775, t73778, t73788, t73791, t73795;
9988   double t73798, t73817, t73826, t73868, t73897, t73906, t73934, t73965;
9989   double t73967, t73993, t73998, t74001, t74004, t74045, t74069, t74070;
9990   double t74081, t74115, t74148, t74159, t74168, t74169, t74172, t74187;
9991   double t74188, t74199, t74206, t74219, t74240, t74251, t74252, t74255;
9992   double t74262, t74267, t74270, t74295, t74301, t74324, t74351, t74354;
9993   double t74376, t74383, t74411, t74438, t74447, t74452, t74455, t74464;
9994   double t74478, t74503, t74506, t74508, t74517, t74520, t74523, t74526;
9995   double t74529, t74532, t74548, t74559, t74564, t74567, t74574, t74577;
9996   double t74578, t74597, t74643, t74649, t74677, t74678, t74702, t74733;
9997   double t74764, t74767, t74792, t74795, t74798, t74801, t74823, t74832;
9998   double t74837, t74846, t74849, t74852, t74859, t74862, t74867, t74886;
9999   double t74892, t74894, t74896, t74899, t74901, t74902, t74934, t74943;
10000   double t74944, t74947, t74968, t74971, t74982, t75018, t75029, t75054;
10001   double t75056, t75074, t75077, t75092, t75093, t75097, t75107, t75112;
10002   double t75115, t75118, t75134, t75151, t75162, t75165, t75173, t75177;
10003   double t75188, t75224, t75230, t75237, t75256, t75287, t75295, t75298;
10004   double t75301, t75320, t75328, t75359, t75388, t75414, t75441, t75466;
10005   double t75493, t75521, t75548, t75573, t75586, t75589, t75602, t75628;
10006   double t75653, t75660, t75687, t75696, t75751, t75774, t75797, t75858;
10007   double t75881, t75904, t75926, t75933, t75940, t75959, t75966, t75970;
10008   double t75973, t75976, t75979, t75996, t75997, t76023, t76028, t76033;
10009   double t76040, t76047, t76050, t76053, t76056, t76061, t76064, t76067;
10010   double t76070, t76073, t76086, t76116, t76124, t76135, t76138, t76139;
10011   double t76154, t76177, t76180, t76187, t76190, t76193, t76198, t76217;
10012   double t76225, t76246, t76255, t76258, t76273, t76298, t76299, t76302;
10013   double t76331, t76369, t76404, t76406, t76416, t76429, t76432, t76459;
10014   double t76487, t76494, t76523, t76526, t76546, t76549, t76552, t76559;
10015   double t76561, t76585, t76588, t76593, t76613, t76621, t76622, t76626;
10016   double t76636, t76667, t76695, t76698, t76707, t76728, t76763, t76803;
10017   double t76836, t76837, t76865, t76887, t76896, t76899, t76902, t76905;
10018   double t76912, t76915, t76918, t76923, t76932, t76960, t76972, t76987;
10019   double t77013, t77039, t77073, t77097, t77123, t77140, t77143, t77150;
10020   double t77159, t77168, t77171, t77178, t77181, t77184, t77187, t77190;
10021   double t77191, t77196, t77209, t77212, t77226, t77233, t77234, t77237;
10022   double t77249, t77250, t77253, t77256, t77257, t77262, t77279, t77283;
10023   double t77286, t77316, t77321, t77332, t77386, t77387, t77388, t77416;
10024   double t77445, t77497, t77508, t77511, t77516, t77522, t77550, t77553;
10025   double t77582, t77603, t77615, t77622, t77625, t77628, t77631, t77646;
10026   double t77649, t77652, t77655, t77657, t77660, t77669, t77690, t77697;
10027   double t77726, t77752, t77755, t77781, t77794, t77810, t77818, t77845;
10028   double t77874, t77909, t77935, t77945, t77948, t77959, t77971, t77974;
10029   double t77979, t78012, t78017, t78020, t78037, t78039, t78041, t78045;
10030   double t78046, t78047, t78050, t78051, t78054, t78055, t78060, t78075;
10031   double t78076, t78079, t78082, t78087, t78090, t78103, t78108, t78109;
10032   double t78120, t78137, t78147, t78192, t78207, t78210, t78213, t78216;
10033   double t78220, t78223, t78226, t78230, t78233, t78236, t78275, t78300;
10034   double t78308, t78338, t78367, t78370, t78404, t78416, t78420, t78437;
10035   double t78467, t78494, t78498, t78508, t78536, t78538, t78565, t78591;
10036   double t78600, t78603, t78605, t78609, t78629, t78641, t78645, t78668;
10037   double t78671, t78674, t78680, t78692, t78707, t78723, t78729, t78731;
10038   double t78733, t78737, t78746, t78747, t78787, t78804, t78805, t78837;
10039   double t78901, t78905, t78932, t78935, t78937, t78939, t78940, t78941;
10040   double t78942, t78944, t78947, t78953, t78958, t78961, t78971, t78973;
10041   double t78974, t78976, t78979, t78980, t78981, t78985, t78987, t78991;
10042   double t79000, t79005, t79007, t79016, t79025, t79028, t79083, t79111;
10043   double t79128, t79161, t79164, t79166, t79183, t79197, t79214, t79246;
10044   double t79331, t79343, t79350, t79367, t79396, t79430, t79438, t79444;
10045   double t79459, t79471, t79474, t79478, t79503, t79532, t79551, t79557;
10046   double t79561, t79571, t79593, t79594, t79617, t79631, t79655, t79656;
10047   double t79661, t79680, t79682, t79688, t79689, t79691, t79692, t79704;
10048   double t79712, t79715, t79732, t79739, t79767, t79772, t79773, t79795;
10049   double t79799, t79802, t79804, t79806, t79808, t79820, t79863, t79865;
10050   double t79900, t79935, t79936, t79937, t79938, t79940, t79943, t79950;
10051   double t79951, t79956, t79958, t79961, t79964, t79967, t79970, t80002;
10052   double t80014, t80112, t80123, t80135, t80148, t80154, t80172, t80182;
10053   double t80195, t80232, t80278, t80292, t80295, t80302, t80305, t80308;
10054   double t80319, t80322, t80338, t80341, t80344, t80357, t80360, t80367;
10055   double t80386, t80389, t80393, t80397, t80400, t80404, t80408, t80411;
10056   double t80414, t80426, t80430, t80453, t80490, t80491, t80519, t80528;
10057   double t80531, t80567, t80602, t80629, t80660, t80696, t80720, t80729;
10058   double t80761, t80788, t80816, t80843, t80870, t80887, t80892, t80906;
10059   double t80907, t80919, t80922, t80925, t80928, t80932, t80935, t80940;
10060   double t80967, t80982, t81003, t81023, t81027, t81040, t81041, t81045;
10061   double t81057, t81060, t81070, t81095, t81103, t81106, t81109, t81113;
10062   double t81116, t81118, t81122, t81169, t81197, t81233, t81262, t81265;
10063   double t81301, t81337, t81364, t81393, t81404, t81433, t81463, t81498;
10064   double t81501, t81506, t81509, t81513, t81518, t81521, t81544, t81575;
10065   double t81576, t81583, t81586, t81589, t81592, t81594, t81595, t81612;
10066   double t81622, t81625, t81628, t81631, t81634, t81643, t81678, t81700;
10067   double t81703, t81704, t81715, t81719, t81723, t81726, t81729, t81732;
10068   double t81762, t81771, t81797, t81819, t81838, t81845, t81847, t81849;
10069   double t81851, t81885, t81922, t81958, t81998, t81999, t82044, t82083;
10070   double t82119, t82155, t82188, t82221, t82230, t82234, t82255, t82264;
10071   double t82284, t82291, t82294, t82297, t82299, t82301, t82303, t82304;
10072   double t82344, t82354, t82355, t82377, t82384, t82393, t82426, t82449;
10073   double t82473, t82476, t82477, t82486, t82493, t82496, t82505, t82507;
10074   double t82510, t82536, t82539, t82577, t82609, t82612, t82615, t82618;
10075   double t82619, t82651, t82657, t82661, t82694, t82697, t82700, t82704;
10076   double t82709, t82742, t82772, t82803, t82839, t82874, t82908, t82947;
10077   double t82979, t82990, t82993, t83000, t83003, t83006, t83009, t83012;
10078   double t83015, t83018, t83021, t83038, t83041, t83044, t83046, t83061;
10079   double t83064, t83070, t83073, t83106, t83147, t83148, t83160, t83183;
10080   double t83212, t83215, t83217, t83243, t83274, t83297, t83300, t83303;
10081   double t83306, t83307, t83311, t83314, t83317, t83321, t83324, t83339;
10082   double t83387, t83402, t83428, t83450, t83477, t83502, t83529, t83555;
10083   double t83585, t83598, t83601, t83604, t83635, t83642, t83665, t83669;
10084   double t83676, t83688, t83691, t83694, t83697, t83700, t83732, t83735;
10085   double t83740, t83743, t83746, t83765, t83771, t83774, t83803, t83804;
10086   double t83822, t83825, t83830, t83890, t83896, t83897, t83907, t83910;
10087   double t83913, t83916, t83920, t83923, t83933, t83961, t83970, t83973;
10088   double t83992, t84004, t84032, t84060, t84086, t84111, t84137, t84164;
10089   double t84191, t84198, t84204, t84243, t84247, t84257, t84260, t84263;
10090   double t84267, t84296, t84300, t84304, t84307, t84318, t84321, t84329;
10091   double t84357, t84359, t84362, t84365, t84390, t84414, t84415, t84419;
10092   double t84425, t84437, t84465, t84491, t84520, t84526, t84541, t84547;
10093   double t84560, t84562, t84564, t84566, t84569, t84576, t84596, t84621;
10094   double t84647, t84651, t84657, t84663, t84676, t84677, t84704, t84706;
10095   double t84711, t84714, t84719, t84725, t84739, t84762, t84789, t84817;
10096   double t84849;
10097 #endif
10098 
10099 #endif
10100 
10101 #endif
10102 
10103 #endif
10104 
10105 #endif
10106 
10107 
10108 
10109   t2 = M_CBRT3;
10110   t3 = 0.1e1 / M_PI;
10111   t4 = POW_1_3(t3);
10112   t5 = t2 * t4;
10113   t6 = M_CBRT4;
10114   t7 = t6 * t6;
10115   t8 = t5 * t7;
10116   t9 = rho[0] - rho[1];
10117   t10 = rho[0] + rho[1];
10118   t11 = 0.1e1 / t10;
10119   t12 = t9 * t11;
10120   t13 = 0.1e1 + t12;
10121   t14 = t13 / 0.2e1;
10122   t15 = POW_1_3(t14);
10123   t16 = t15 * t14;
10124   t17 = POW_1_3(t10);
10125   t18 = t16 * t17;
10126   t19 = 0.1e1 / rho[0];
10127   t20 = sigma[0] * t19;
10128   t21 = 0.1e1 / tau[0];
10129   t23 = t20 * t21 / 0.8e1;
10130   t24 = t23 < 0.10e1;
10131   t25 = my_piecewise3(t24, t23, 0.10e1);
10132   t26 = t25 * t25;
10133   t27 = t26 * t25;
10134   t29 = t26 + 0.3e1 * t27;
10135   t30 = 0.1e1 + t27;
10136   t31 = t30 * t30;
10137   t32 = 0.1e1 / t31;
10138   t33 = t29 * t32;
10139   t34 = POW_1_3(0.9e1);
10140   t35 = t34 * t34;
10141   t36 = t4 * t4;
10142   t37 = t35 * t36;
10143   t38 = t37 * p->cam_omega;
10144   t39 = 0.1e1 / t17;
10145   t40 = t2 * t39;
10146   t41 = M_CBRT6;
10147   t42 = M_PI * M_PI;
10148   t43 = POW_1_3(t42);
10149   t44 = t43 * t43;
10150   t45 = 0.1e1 / t44;
10151   t46 = t41 * t45;
10152   t47 = rho[0] * rho[0];
10153   t48 = POW_1_3(rho[0]);
10154   t49 = t48 * t48;
10155   t51 = 0.1e1 / t49 / t47;
10156   t52 = sigma[0] * t51;
10157   t53 = t46 * t52;
10158   t55 = t41 * t41;
10159   t57 = 0.1e1 / t43 / t42;
10160   t58 = t55 * t57;
10161   t59 = sigma[0] * sigma[0];
10162   t60 = t47 * t47;
10163   t61 = t60 * rho[0];
10164   t63 = 0.1e1 / t48 / t61;
10165   t67 = 0.1e1 + 0.15045488888888888889e0 * t53 + 0.26899490462262948000e-2 * t58 * t59 * t63;
10166   t68 = pow(t67, 0.1e1 / 0.10e2);
10167   t69 = 0.1e1 / t68;
10168   t70 = POW_1_3(t13);
10169   t71 = 0.1e1 / t70;
10170   t72 = t69 * t71;
10171   t75 = t38 * t40 * t72 / 0.18e2;
10172   t76 = t75 < 0.1e-9;
10173   t77 = my_piecewise3(t76, 0.1e-9, t75);
10174   t78 = sqrt(M_PI);
10175   t79 = 0.1e1 / t77;
10176   t81 = erf(t79 / 0.2e1);
10177   t83 = t77 * t77;
10178   t84 = 0.1e1 / t83;
10179   t86 = exp(-t84 / 0.4e1);
10180   t87 = t86 - 0.1e1;
10181   t90 = t86 - 0.3e1 / 0.2e1 - 0.2e1 * t83 * t87;
10182   t93 = 0.2e1 * t77 * t90 + t78 * t81;
10183   t96 = 0.1e1 - 0.8e1 / 0.3e1 * t77 * t93;
10184   t97 = pow(t67, 0.1e1 / 0.5e1);
10185   t98 = 0.1e1 / t97;
10186   t101 = t83 * t83;
10187   t102 = 0.64e2 * t101;
10188   t103 = 0.20e2 * t83 - t102;
10189   t106 = t78 * t77;
10190   t109 = t103 * t86 + 0.10e2 * t106 * t81 + t102 - 0.36e2 * t83 - 0.3e1;
10191   t112 = 0.24e2 * t109 * t83 + 0.1e1;
10192   t114 = 0.1e1 / t49 / rho[0];
10193   t115 = tau[0] * t114;
10194   t116 = 0.14554132000000000000e0 * t115;
10195   t117 = t55 * t44;
10196   t118 = 0.4366239600000000000e-1 * t117;
10197   t120 = -t116 + t118 + 0.42296278333333333333e-1 * t52;
10198   t121 = t112 * t120;
10199   t122 = t97 * t97;
10200   t123 = 0.1e1 / t122;
10201   t124 = t46 * t123;
10202   t128 = t83 * t77;
10203   t130 = t101 * t77;
10204   t132 = t101 * t128;
10205   t134 = t101 * t101;
10206   t135 = t134 * t77;
10207   t137 = -0.8e1 * t77 + 0.256e3 * t128 - 0.576e3 * t130 + 0.3849e4 * t132 - 0.122880e6 * t135;
10208   t141 = t101 * t83;
10209   t143 = -0.35e2 + 0.224e3 * t83 - 0.1440e4 * t101 + 0.5120e4 * t141;
10210   t147 = -0.2e1 + 0.60e2 * t83;
10211   t151 = 0.2e1 * t147 * t78 * t81 + 0.24e2 * t128 * t143 + t137 * t86;
10212   t154 = 0.1e1 + 0.8e1 / 0.7e1 * t77 * t151;
10213   t155 = t154 * t41;
10214   t156 = t155 * t45;
10215   t157 = t52 * t123;
10216   t160 = t96 * t98 + 0.35e2 / 0.81e2 * t121 * t124 + 0.26329605555555555556e-1 * t156 * t157;
10217   t162 = 0.1e1 - t33;
10218   t164 = t34 / t36;
10219   t165 = 0.1e1 / p->cam_omega;
10220   t166 = t164 * t165;
10221   t167 = t2 * t2;
10222   t168 = t167 * t17;
10223   t172 = erf(t166 * t168 * t70 / 0.3e1);
10224   t174 = t4 * t3;
10225   t176 = t35 / t174;
10226   t177 = p->cam_omega * p->cam_omega;
10227   t178 = 0.1e1 / t177;
10228   t179 = t176 * t178;
10229   t180 = t17 * t17;
10230   t181 = t2 * t180;
10231   t182 = t70 * t70;
10232   t186 = exp(-t179 * t181 * t182 / 0.3e1);
10233   t187 = t34 * t174;
10234   t188 = t187 * t177;
10235   t189 = 0.1e1 / t180;
10236   t190 = t167 * t189;
10237   t191 = 0.1e1 / t182;
10238   t192 = t186 - 0.1e1;
10239   t193 = t191 * t192;
10240   t197 = t186 - 0.3e1 / 0.2e1 - t188 * t190 * t193 / 0.18e2;
10241   t198 = t71 * t197;
10242   t202 = t78 * t172 + t38 * t40 * t198 / 0.9e1;
10243   t203 = t71 * t202;
10244   t207 = 0.1e1 - 0.4e1 / 0.27e2 * t38 * t40 * t203;
10245   t208 = t162 * t207;
10246   t211 = (0.10e2 / 0.81e2 + 0.25e2 / 0.8748e4 * t53) * t41;
10247   t212 = t45 * sigma[0];
10248   t222 = (t115 - t52 / 0.8e1) * t41 * t45 / 0.4e1 - 0.9e1 / 0.20e2 + t53 / 0.36e2;
10249   t223 = t222 * t222;
10250   t225 = t222 * t25;
10251   t226 = 0.1e1 - t25;
10252   t229 = 0.1e1 + 0.5e1 / 0.12e2 * t211 * t212 * t51 + 0.292e3 / 0.405e3 * t223 - 0.146e3 / 0.135e3 * t225 * t226;
10253   t230 = pow(t229, 0.1e1 / 0.10e2);
10254   t235 = 0.25633760400000000000e0 * t117;
10255   t241 = 0.1e1 + 0.63943327777777777778e-1 * t53 - 0.5e1 / 0.9e1 * (t116 + t235 + 0.11867481666666666667e-1 * t52) * t41 * t45;
10256   t244 = t98 + 0.7e1 / 0.9e1 * t241 * t123;
10257   t247 = -p->cam_beta * (t160 * t33 + t208 * t230) + t33 * t244 + t162 * t230;
10258   t249 = t8 * t18 * t247;
10259   t250 = 0.1e1 - t12;
10260   t251 = t250 / 0.2e1;
10261   t252 = POW_1_3(t251);
10262   t253 = t252 * t251;
10263   t254 = t253 * t17;
10264   t255 = 0.1e1 / rho[1];
10265   t256 = sigma[2] * t255;
10266   t257 = 0.1e1 / tau[1];
10267   t259 = t256 * t257 / 0.8e1;
10268   t260 = t259 < 0.10e1;
10269   t261 = my_piecewise3(t260, t259, 0.10e1);
10270   t262 = t261 * t261;
10271   t263 = t262 * t261;
10272   t265 = t262 + 0.3e1 * t263;
10273   t266 = 0.1e1 + t263;
10274   t267 = t266 * t266;
10275   t268 = 0.1e1 / t267;
10276   t269 = t265 * t268;
10277   t270 = rho[1] * rho[1];
10278   t271 = POW_1_3(rho[1]);
10279   t272 = t271 * t271;
10280   t274 = 0.1e1 / t272 / t270;
10281   t275 = sigma[2] * t274;
10282   t276 = t46 * t275;
10283   t278 = sigma[2] * sigma[2];
10284   t279 = t270 * t270;
10285   t280 = t279 * rho[1];
10286   t282 = 0.1e1 / t271 / t280;
10287   t286 = 0.1e1 + 0.15045488888888888889e0 * t276 + 0.26899490462262948000e-2 * t58 * t278 * t282;
10288   t287 = pow(t286, 0.1e1 / 0.10e2);
10289   t288 = 0.1e1 / t287;
10290   t289 = POW_1_3(t250);
10291   t290 = 0.1e1 / t289;
10292   t291 = t288 * t290;
10293   t294 = t38 * t40 * t291 / 0.18e2;
10294   t295 = t294 < 0.1e-9;
10295   t296 = my_piecewise3(t295, 0.1e-9, t294);
10296   t297 = 0.1e1 / t296;
10297   t299 = erf(t297 / 0.2e1);
10298   t301 = t296 * t296;
10299   t302 = 0.1e1 / t301;
10300   t304 = exp(-t302 / 0.4e1);
10301   t305 = t304 - 0.1e1;
10302   t308 = t304 - 0.3e1 / 0.2e1 - 0.2e1 * t301 * t305;
10303   t311 = 0.2e1 * t296 * t308 + t299 * t78;
10304   t314 = 0.1e1 - 0.8e1 / 0.3e1 * t296 * t311;
10305   t315 = pow(t286, 0.1e1 / 0.5e1);
10306   t316 = 0.1e1 / t315;
10307   t319 = t301 * t301;
10308   t320 = 0.64e2 * t319;
10309   t321 = 0.20e2 * t301 - t320;
10310   t324 = t78 * t296;
10311   t327 = 0.10e2 * t299 * t324 + t304 * t321 - 0.36e2 * t301 + t320 - 0.3e1;
10312   t330 = 0.24e2 * t301 * t327 + 0.1e1;
10313   t332 = 0.1e1 / t272 / rho[1];
10314   t333 = tau[1] * t332;
10315   t334 = 0.14554132000000000000e0 * t333;
10316   t336 = -t334 + t118 + 0.42296278333333333333e-1 * t275;
10317   t337 = t330 * t336;
10318   t338 = t315 * t315;
10319   t339 = 0.1e1 / t338;
10320   t340 = t46 * t339;
10321   t344 = t301 * t296;
10322   t346 = t319 * t296;
10323   t348 = t319 * t344;
10324   t350 = t319 * t319;
10325   t351 = t350 * t296;
10326   t353 = -0.8e1 * t296 + 0.256e3 * t344 - 0.576e3 * t346 + 0.3849e4 * t348 - 0.122880e6 * t351;
10327   t357 = t319 * t301;
10328   t359 = -0.35e2 + 0.224e3 * t301 - 0.1440e4 * t319 + 0.5120e4 * t357;
10329   t363 = -0.2e1 + 0.60e2 * t301;
10330   t367 = 0.2e1 * t299 * t363 * t78 + t304 * t353 + 0.24e2 * t344 * t359;
10331   t370 = 0.1e1 + 0.8e1 / 0.7e1 * t296 * t367;
10332   t371 = t370 * t41;
10333   t372 = t371 * t45;
10334   t373 = t275 * t339;
10335   t376 = t314 * t316 + 0.35e2 / 0.81e2 * t337 * t340 + 0.26329605555555555556e-1 * t372 * t373;
10336   t378 = 0.1e1 - t269;
10337   t382 = erf(t166 * t168 * t289 / 0.3e1);
10338   t384 = t289 * t289;
10339   t388 = exp(-t179 * t181 * t384 / 0.3e1);
10340   t389 = 0.1e1 / t384;
10341   t390 = t388 - 0.1e1;
10342   t391 = t389 * t390;
10343   t395 = t388 - 0.3e1 / 0.2e1 - t188 * t190 * t391 / 0.18e2;
10344   t396 = t290 * t395;
10345   t400 = t78 * t382 + t38 * t40 * t396 / 0.9e1;
10346   t401 = t290 * t400;
10347   t405 = 0.1e1 - 0.4e1 / 0.27e2 * t38 * t40 * t401;
10348   t406 = t378 * t405;
10349   t409 = (0.10e2 / 0.81e2 + 0.25e2 / 0.8748e4 * t276) * t41;
10350   t410 = t45 * sigma[2];
10351   t420 = (t333 - t275 / 0.8e1) * t41 * t45 / 0.4e1 - 0.9e1 / 0.20e2 + t276 / 0.36e2;
10352   t421 = t420 * t420;
10353   t423 = t420 * t261;
10354   t424 = 0.1e1 - t261;
10355   t427 = 0.1e1 + 0.5e1 / 0.12e2 * t409 * t410 * t274 + 0.292e3 / 0.405e3 * t421 - 0.146e3 / 0.135e3 * t423 * t424;
10356   t428 = pow(t427, 0.1e1 / 0.10e2);
10357   t438 = 0.1e1 + 0.63943327777777777778e-1 * t276 - 0.5e1 / 0.9e1 * (t334 + t235 + 0.11867481666666666667e-1 * t275) * t41 * t45;
10358   t441 = t316 + 0.7e1 / 0.9e1 * t438 * t339;
10359   t444 = -p->cam_beta * (t269 * t376 + t406 * t428) + t269 * t441 + t378 * t428;
10360   t446 = t8 * t254 * t444;
10361   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
10362     zk[0] = -0.3e1 / 0.8e1 * t249 - 0.3e1 / 0.8e1 * t446;
10363 
10364 #ifndef XC_DONT_COMPILE_VXC
10365 
10366   if(order < 1) return;
10367 
10368 
10369   t448 = 0.3e1 / 0.8e1 * t249;
10370   t449 = 0.3e1 / 0.8e1 * t446;
10371   t450 = t15 * t17;
10372   t451 = t10 * t10;
10373   t452 = 0.1e1 / t451;
10374   t453 = t9 * t452;
10375   t454 = t11 - t453;
10376   t455 = t454 / 0.2e1;
10377   t456 = t247 * t455;
10378   t458 = t8 * t450 * t456;
10379   t459 = t458 / 0.2e1;
10380   t460 = t16 * t189;
10381   t462 = t8 * t460 * t247;
10382   t463 = t462 / 0.8e1;
10383   t464 = 0.1e1 / t47;
10384   t465 = sigma[0] * t464;
10385   t468 = my_piecewise3(t24, -t465 * t21 / 0.8e1, 0);
10386   t469 = t25 * t468;
10387   t471 = t26 * t468;
10388   t473 = 0.2e1 * t469 + 0.9e1 * t471;
10389   t474 = t473 * t32;
10390   t477 = 0.1e1 / t31 / t30;
10391   t478 = t29 * t477;
10392   t479 = t160 * t26;
10393   t480 = t479 * t468;
10394   t483 = t17 * t10;
10395   t484 = 0.1e1 / t483;
10396   t485 = t2 * t484;
10397   t487 = t38 * t485 * t72;
10398   t489 = p->cam_omega * t2;
10399   t490 = t37 * t489;
10400   t492 = 0.1e1 / t68 / t67;
10401   t493 = t39 * t492;
10402   t494 = t47 * rho[0];
10403   t496 = 0.1e1 / t49 / t494;
10404   t497 = sigma[0] * t496;
10405   t498 = t46 * t497;
10406   t500 = t60 * t47;
10407   t502 = 0.1e1 / t48 / t500;
10408   t504 = t58 * t59 * t502;
10409   t506 = -0.40121303703703703704e0 * t498 - 0.14346394913206905600e-1 * t504;
10410   t507 = t71 * t506;
10411   t511 = t39 * t69;
10412   t513 = 0.1e1 / t70 / t13;
10413   t514 = t513 * t454;
10414   t519 = my_piecewise3(t76, 0, -t487 / 0.54e2 - t490 * t493 * t507 / 0.180e3 - t490 * t511 * t514 / 0.54e2);
10415   t521 = t86 * t84;
10416   t522 = t521 * t519;
10417   t525 = 0.1e1 / t128;
10418   t526 = t525 * t519;
10419   t527 = t526 * t86;
10420   t529 = t77 * t87;
10421   t532 = t79 * t519;
10422   t533 = t532 * t86;
10423   t534 = t527 / 0.2e1 - 0.4e1 * t529 * t519 - t533;
10424   t537 = 0.2e1 * t519 * t90 + 0.2e1 * t534 * t77 - t522;
10425   t540 = -0.8e1 / 0.3e1 * t519 * t93 - 0.8e1 / 0.3e1 * t77 * t537;
10426   t543 = 0.1e1 / t97 / t67;
10427   t544 = t96 * t543;
10428   t547 = t77 * t109;
10429   t550 = t77 * t519;
10430   t552 = t128 * t519;
10431   t553 = 0.256e3 * t552;
10432   t554 = 0.40e2 * t550 - t553;
10433   t556 = t103 * t525;
10434   t557 = t519 * t86;
10435   t561 = t78 * t519;
10436   t565 = t554 * t86 + t556 * t557 / 0.2e1 - 0.72e2 * t550 + t553 + 0.10e2 * t561 * t81 - 0.10e2 * t533;
10437   t568 = 0.48e2 * t519 * t547 + 0.24e2 * t565 * t83;
10438   t569 = t568 * t120;
10439   t572 = tau[0] * t51;
10440   t573 = 0.24256886666666666667e0 * t572;
10441   t575 = t573 - 0.11279007555555555555e0 * t497;
10442   t576 = t112 * t575;
10443   t579 = t121 * t41;
10444   t581 = 0.1e1 / t122 / t67;
10445   t582 = t45 * t581;
10446   t583 = t582 * t506;
10447   t588 = t83 * t519;
10448   t590 = t101 * t519;
10449   t596 = -0.1105920e7 * t134 * t519 + 0.26943e5 * t141 * t519 - 0.8e1 * t519 + 0.768e3 * t588 - 0.2880e4 * t590;
10450   t598 = t137 * t525;
10451   t601 = t83 * t143;
10452   t606 = t130 * t519;
10453   t608 = 0.448e3 * t550 - 0.5760e4 * t552 + 0.30720e5 * t606;
10454   t614 = t147 * t86;
10455   t615 = t84 * t519;
10456   t618 = t596 * t86 + t598 * t557 / 0.2e1 + 0.72e2 * t601 * t519 + 0.24e2 * t128 * t608 + 0.240e3 * t106 * t519 * t81 - 0.2e1 * t614 * t615;
10457   t621 = 0.8e1 / 0.7e1 * t519 * t151 + 0.8e1 / 0.7e1 * t77 * t618;
10458   t622 = t621 * t41;
10459   t623 = t622 * t45;
10460   t626 = t497 * t123;
10461   t629 = t581 * t506;
10462   t630 = t52 * t629;
10463   t633 = t540 * t98 - t544 * t506 / 0.5e1 + 0.35e2 / 0.81e2 * t569 * t124 + 0.35e2 / 0.81e2 * t576 * t124 - 0.14e2 / 0.81e2 * t579 * t583 + 0.26329605555555555556e-1 * t623 * t157 - 0.70212281481481481483e-1 * t156 * t626 - 0.10531842222222222222e-1 * t156 * t630;
10464   t637 = 0.6e1 * t471 * t478 - t474;
10465   t638 = t637 * t207;
10466   t642 = 0.4e1 / 0.81e2 * t38 * t485 * t203;
10467   t643 = t39 * t513;
10468   t644 = t202 * t454;
10469   t649 = t166 * t190 * t70;
10470   t650 = t191 * t454;
10471   t654 = t166 * t168 * t650 / 0.9e1 + t649 / 0.9e1;
10472   t659 = t38 * t485 * t198 / 0.27e2;
10473   t660 = t197 * t454;
10474   t665 = t179 * t40 * t182;
10475   t666 = t71 * t454;
10476   t670 = -0.2e1 / 0.9e1 * t179 * t181 * t666 - 0.2e1 / 0.9e1 * t665;
10477   t671 = t670 * t186;
10478   t673 = 0.1e1 / t180 / t10;
10479   t674 = t167 * t673;
10480   t677 = t188 * t674 * t193 / 0.27e2;
10481   t678 = t177 * t167;
10482   t679 = t187 * t678;
10483   t681 = 0.1e1 / t182 / t13;
10484   t682 = t189 * t681;
10485   t683 = t192 * t454;
10486   t687 = t189 * t191;
10487   t691 = t671 + t677 + t679 * t682 * t683 / 0.27e2 - t679 * t687 * t671 / 0.18e2;
10488   t692 = t71 * t691;
10489   t696 = 0.2e1 * t186 * t654 - t659 - t490 * t643 * t660 / 0.27e2 + t38 * t40 * t692 / 0.9e1;
10490   t697 = t71 * t696;
10491   t701 = t642 + 0.4e1 / 0.81e2 * t490 * t643 * t644 - 0.4e1 / 0.27e2 * t38 * t40 * t697;
10492   t702 = t162 * t701;
10493   t704 = t230 * t230;
10494   t705 = t704 * t704;
10495   t706 = t705 * t705;
10496   t707 = t706 * t230;
10497   t708 = 0.1e1 / t707;
10498   t720 = (-0.5e1 / 0.3e1 * t572 + t497 / 0.3e1) * t41 * t45 / 0.4e1 - 0.2e1 / 0.27e2 * t498;
10499   t723 = t720 * t25;
10500   t726 = t222 * t468;
10501   t731 = -0.125e3 / 0.39366e5 * t504 - 0.10e2 / 0.9e1 * t211 * t212 * t496 + 0.584e3 / 0.405e3 * t222 * t720 - 0.146e3 / 0.135e3 * t723 * t226 - 0.146e3 / 0.135e3 * t726 * t226 + 0.146e3 / 0.135e3 * t225 * t468;
10502   t732 = t708 * t731;
10503   t738 = t244 * t26;
10504   t739 = t738 * t468;
10505   t750 = -0.17051554074074074074e0 * t498 - 0.5e1 / 0.9e1 * (-t573 - 0.31646617777777777779e-1 * t497) * t41 * t45;
10506   t753 = t241 * t581;
10507   t756 = -t543 * t506 / 0.5e1 + 0.7e1 / 0.9e1 * t750 * t123 - 0.14e2 / 0.45e2 * t753 * t506;
10508   t759 = t162 * t708;
10509   t762 = -p->cam_beta * (t474 * t160 - 0.6e1 * t478 * t480 + t33 * t633 + t638 * t230 + t702 * t230 + t208 * t732 / 0.10e2) + t474 * t244 - 0.6e1 * t478 * t739 + t33 * t756 + t637 * t230 + t759 * t731 / 0.10e2;
10510   t764 = t8 * t18 * t762;
10511   t765 = 0.3e1 / 0.8e1 * t764;
10512   t766 = t252 * t17;
10513   t767 = -t455;
10514   t768 = t444 * t767;
10515   t770 = t8 * t766 * t768;
10516   t771 = t770 / 0.2e1;
10517   t772 = t253 * t189;
10518   t774 = t8 * t772 * t444;
10519   t775 = t774 / 0.8e1;
10520   t777 = t38 * t485 * t291;
10521   t778 = t39 * t288;
10522   t780 = 0.1e1 / t289 / t250;
10523   t781 = -t454;
10524   t782 = t780 * t781;
10525   t787 = my_piecewise3(t295, 0, -t490 * t778 * t782 / 0.54e2 - t777 / 0.54e2);
10526   t789 = t304 * t302;
10527   t790 = t789 * t787;
10528   t793 = 0.1e1 / t344;
10529   t794 = t793 * t787;
10530   t797 = t296 * t305;
10531   t800 = t297 * t787;
10532   t801 = t800 * t304;
10533   t802 = t794 * t304 / 0.2e1 - 0.4e1 * t797 * t787 - t801;
10534   t805 = 0.2e1 * t296 * t802 + 0.2e1 * t308 * t787 - t790;
10535   t808 = -0.8e1 / 0.3e1 * t296 * t805 - 0.8e1 / 0.3e1 * t787 * t311;
10536   t810 = t296 * t327;
10537   t813 = t296 * t787;
10538   t815 = t344 * t787;
10539   t816 = 0.256e3 * t815;
10540   t817 = 0.40e2 * t813 - t816;
10541   t819 = t321 * t793;
10542   t820 = t787 * t304;
10543   t824 = t78 * t787;
10544   t828 = t817 * t304 + t819 * t820 / 0.2e1 - 0.72e2 * t813 + t816 + 0.10e2 * t824 * t299 - 0.10e2 * t801;
10545   t831 = 0.24e2 * t301 * t828 + 0.48e2 * t787 * t810;
10546   t832 = t831 * t336;
10547   t837 = t301 * t787;
10548   t839 = t319 * t787;
10549   t845 = -0.1105920e7 * t350 * t787 + 0.26943e5 * t357 * t787 - 0.8e1 * t787 + 0.768e3 * t837 - 0.2880e4 * t839;
10550   t847 = t353 * t793;
10551   t850 = t301 * t359;
10552   t855 = t346 * t787;
10553   t857 = 0.448e3 * t813 - 0.5760e4 * t815 + 0.30720e5 * t855;
10554   t863 = t363 * t304;
10555   t864 = t302 * t787;
10556   t867 = t845 * t304 + t847 * t820 / 0.2e1 + 0.72e2 * t850 * t787 + 0.24e2 * t344 * t857 + 0.240e3 * t324 * t787 * t299 - 0.2e1 * t863 * t864;
10557   t870 = 0.8e1 / 0.7e1 * t296 * t867 + 0.8e1 / 0.7e1 * t787 * t367;
10558   t871 = t870 * t41;
10559   t872 = t871 * t45;
10560   t875 = t808 * t316 + 0.35e2 / 0.81e2 * t832 * t340 + 0.26329605555555555556e-1 * t872 * t373;
10561   t879 = 0.4e1 / 0.81e2 * t38 * t485 * t401;
10562   t880 = t39 * t780;
10563   t881 = t400 * t781;
10564   t886 = t166 * t190 * t289;
10565   t887 = t389 * t781;
10566   t891 = t166 * t168 * t887 / 0.9e1 + t886 / 0.9e1;
10567   t896 = t38 * t485 * t396 / 0.27e2;
10568   t897 = t395 * t781;
10569   t902 = t179 * t40 * t384;
10570   t903 = t290 * t781;
10571   t907 = -0.2e1 / 0.9e1 * t179 * t181 * t903 - 0.2e1 / 0.9e1 * t902;
10572   t908 = t907 * t388;
10573   t911 = t188 * t674 * t391 / 0.27e2;
10574   t913 = 0.1e1 / t384 / t250;
10575   t914 = t189 * t913;
10576   t915 = t390 * t781;
10577   t919 = t189 * t389;
10578   t923 = t908 + t911 + t679 * t914 * t915 / 0.27e2 - t679 * t919 * t908 / 0.18e2;
10579   t924 = t290 * t923;
10580   t928 = 0.2e1 * t388 * t891 - t896 - t490 * t880 * t897 / 0.27e2 + t38 * t40 * t924 / 0.9e1;
10581   t929 = t290 * t928;
10582   t933 = t879 + 0.4e1 / 0.81e2 * t490 * t880 * t881 - 0.4e1 / 0.27e2 * t38 * t40 * t929;
10583   t934 = t378 * t933;
10584   t936 = t269 * t875 + t428 * t934;
10585   t937 = p->cam_beta * t936;
10586   t939 = t8 * t254 * t937;
10587   t940 = 0.3e1 / 0.8e1 * t939;
10588   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
10589     vrho[0] = -t448 - t449 + t10 * (-t459 - t463 - t765 - t771 - t775 + t940);
10590 
10591   t943 = -t11 - t453;
10592   t944 = t943 / 0.2e1;
10593   t945 = t247 * t944;
10594   t947 = t8 * t450 * t945;
10595   t948 = t947 / 0.2e1;
10596   t949 = t513 * t943;
10597   t954 = my_piecewise3(t76, 0, -t490 * t511 * t949 / 0.54e2 - t487 / 0.54e2);
10598   t959 = t525 * t954;
10599   t964 = t79 * t954;
10600   t965 = t964 * t86;
10601   t966 = t959 * t86 / 0.2e1 - 0.4e1 * t529 * t954 - t965;
10602   t969 = -t521 * t954 + 0.2e1 * t77 * t966 + 0.2e1 * t90 * t954;
10603   t972 = -0.8e1 / 0.3e1 * t77 * t969 - 0.8e1 / 0.3e1 * t954 * t93;
10604   t976 = t77 * t954;
10605   t978 = t128 * t954;
10606   t979 = 0.256e3 * t978;
10607   t980 = 0.40e2 * t976 - t979;
10608   t982 = t954 * t86;
10609   t986 = t78 * t954;
10610   t990 = t980 * t86 + t556 * t982 / 0.2e1 - 0.72e2 * t976 + t979 + 0.10e2 * t986 * t81 - 0.10e2 * t965;
10611   t993 = 0.48e2 * t547 * t954 + 0.24e2 * t83 * t990;
10612   t994 = t993 * t120;
10613   t999 = t83 * t954;
10614   t1001 = t101 * t954;
10615   t1003 = t141 * t954;
10616   t1007 = -0.1105920e7 * t134 * t954 - 0.2880e4 * t1001 + 0.26943e5 * t1003 - 0.8e1 * t954 + 0.768e3 * t999;
10617   t1015 = t130 * t954;
10618   t1017 = 0.448e3 * t976 - 0.5760e4 * t978 + 0.30720e5 * t1015;
10619   t1020 = t954 * t81;
10620   t1023 = t84 * t954;
10621   t1026 = t1007 * t86 + t598 * t982 / 0.2e1 + 0.72e2 * t601 * t954 + 0.24e2 * t128 * t1017 + 0.240e3 * t106 * t1020 - 0.2e1 * t614 * t1023;
10622   t1029 = 0.8e1 / 0.7e1 * t77 * t1026 + 0.8e1 / 0.7e1 * t954 * t151;
10623   t1030 = t1029 * t41;
10624   t1031 = t1030 * t45;
10625   t1034 = t972 * t98 + 0.35e2 / 0.81e2 * t994 * t124 + 0.26329605555555555556e-1 * t1031 * t157;
10626   t1036 = t202 * t943;
10627   t1040 = t191 * t943;
10628   t1044 = t166 * t168 * t1040 / 0.9e1 + t649 / 0.9e1;
10629   t1045 = t186 * t1044;
10630   t1047 = t197 * t943;
10631   t1051 = t71 * t943;
10632   t1055 = -0.2e1 / 0.9e1 * t179 * t181 * t1051 - 0.2e1 / 0.9e1 * t665;
10633   t1056 = t1055 * t186;
10634   t1057 = t192 * t943;
10635   t1064 = t1056 + t677 + t679 * t682 * t1057 / 0.27e2 - t679 * t687 * t1056 / 0.18e2;
10636   t1065 = t71 * t1064;
10637   t1069 = 0.2e1 * t1045 - t659 - t490 * t643 * t1047 / 0.27e2 + t38 * t40 * t1065 / 0.9e1;
10638   t1070 = t71 * t1069;
10639   t1074 = t642 + 0.4e1 / 0.81e2 * t490 * t643 * t1036 - 0.4e1 / 0.27e2 * t38 * t40 * t1070;
10640   t1075 = t162 * t1074;
10641   t1077 = t1034 * t33 + t1075 * t230;
10642   t1078 = p->cam_beta * t1077;
10643   t1080 = t8 * t18 * t1078;
10644   t1081 = 0.3e1 / 0.8e1 * t1080;
10645   t1082 = -t944;
10646   t1083 = t444 * t1082;
10647   t1085 = t8 * t766 * t1083;
10648   t1086 = t1085 / 0.2e1;
10649   t1087 = 0.1e1 / t270;
10650   t1088 = sigma[2] * t1087;
10651   t1091 = my_piecewise3(t260, -t1088 * t257 / 0.8e1, 0);
10652   t1092 = t261 * t1091;
10653   t1094 = t262 * t1091;
10654   t1096 = 0.2e1 * t1092 + 0.9e1 * t1094;
10655   t1097 = t1096 * t268;
10656   t1100 = 0.1e1 / t267 / t266;
10657   t1101 = t265 * t1100;
10658   t1102 = t376 * t262;
10659   t1103 = t1102 * t1091;
10660   t1108 = 0.1e1 / t287 / t286;
10661   t1109 = t39 * t1108;
10662   t1110 = t270 * rho[1];
10663   t1112 = 0.1e1 / t272 / t1110;
10664   t1113 = sigma[2] * t1112;
10665   t1114 = t46 * t1113;
10666   t1116 = t279 * t270;
10667   t1118 = 0.1e1 / t271 / t1116;
10668   t1120 = t58 * t278 * t1118;
10669   t1122 = -0.40121303703703703704e0 * t1114 - 0.14346394913206905600e-1 * t1120;
10670   t1123 = t290 * t1122;
10671   t1127 = -t943;
10672   t1128 = t780 * t1127;
10673   t1133 = my_piecewise3(t295, 0, -t777 / 0.54e2 - t490 * t1109 * t1123 / 0.180e3 - t490 * t778 * t1128 / 0.54e2);
10674   t1138 = t793 * t1133;
10675   t1143 = t297 * t1133;
10676   t1144 = t1143 * t304;
10677   t1145 = t1138 * t304 / 0.2e1 - 0.4e1 * t797 * t1133 - t1144;
10678   t1148 = 0.2e1 * t1133 * t308 - t1133 * t789 + 0.2e1 * t1145 * t296;
10679   t1151 = -0.8e1 / 0.3e1 * t1133 * t311 - 0.8e1 / 0.3e1 * t296 * t1148;
10680   t1154 = 0.1e1 / t315 / t286;
10681   t1155 = t314 * t1154;
10682   t1160 = t296 * t1133;
10683   t1162 = t344 * t1133;
10684   t1163 = 0.256e3 * t1162;
10685   t1164 = 0.40e2 * t1160 - t1163;
10686   t1166 = t1133 * t304;
10687   t1170 = t78 * t1133;
10688   t1174 = t1164 * t304 + t819 * t1166 / 0.2e1 - 0.72e2 * t1160 + t1163 + 0.10e2 * t1170 * t299 - 0.10e2 * t1144;
10689   t1177 = 0.48e2 * t1133 * t810 + 0.24e2 * t1174 * t301;
10690   t1178 = t1177 * t336;
10691   t1181 = tau[1] * t274;
10692   t1182 = 0.24256886666666666667e0 * t1181;
10693   t1184 = t1182 - 0.11279007555555555555e0 * t1113;
10694   t1185 = t330 * t1184;
10695   t1188 = t337 * t41;
10696   t1190 = 0.1e1 / t338 / t286;
10697   t1191 = t45 * t1190;
10698   t1192 = t1191 * t1122;
10699   t1197 = t301 * t1133;
10700   t1199 = t319 * t1133;
10701   t1201 = t357 * t1133;
10702   t1205 = -0.1105920e7 * t1133 * t350 - 0.8e1 * t1133 + 0.768e3 * t1197 - 0.2880e4 * t1199 + 0.26943e5 * t1201;
10703   t1213 = t346 * t1133;
10704   t1215 = 0.448e3 * t1160 - 0.5760e4 * t1162 + 0.30720e5 * t1213;
10705   t1218 = t1133 * t299;
10706   t1221 = t302 * t1133;
10707   t1224 = t1205 * t304 + t847 * t1166 / 0.2e1 + 0.72e2 * t850 * t1133 + 0.24e2 * t344 * t1215 + 0.240e3 * t324 * t1218 - 0.2e1 * t863 * t1221;
10708   t1227 = 0.8e1 / 0.7e1 * t1133 * t367 + 0.8e1 / 0.7e1 * t296 * t1224;
10709   t1228 = t1227 * t41;
10710   t1229 = t1228 * t45;
10711   t1232 = t1113 * t339;
10712   t1235 = t1190 * t1122;
10713   t1236 = t275 * t1235;
10714   t1239 = t1151 * t316 - t1155 * t1122 / 0.5e1 + 0.35e2 / 0.81e2 * t1178 * t340 + 0.35e2 / 0.81e2 * t1185 * t340 - 0.14e2 / 0.81e2 * t1188 * t1192 + 0.26329605555555555556e-1 * t1229 * t373 - 0.70212281481481481483e-1 * t372 * t1232 - 0.10531842222222222222e-1 * t372 * t1236;
10715   t1243 = 0.6e1 * t1094 * t1101 - t1097;
10716   t1244 = t1243 * t405;
10717   t1246 = t400 * t1127;
10718   t1250 = t389 * t1127;
10719   t1254 = t166 * t168 * t1250 / 0.9e1 + t886 / 0.9e1;
10720   t1255 = t388 * t1254;
10721   t1257 = t395 * t1127;
10722   t1261 = t290 * t1127;
10723   t1265 = -0.2e1 / 0.9e1 * t179 * t181 * t1261 - 0.2e1 / 0.9e1 * t902;
10724   t1266 = t1265 * t388;
10725   t1267 = t390 * t1127;
10726   t1274 = t1266 + t911 + t679 * t914 * t1267 / 0.27e2 - t679 * t919 * t1266 / 0.18e2;
10727   t1275 = t290 * t1274;
10728   t1279 = 0.2e1 * t1255 - t896 - t490 * t880 * t1257 / 0.27e2 + t38 * t40 * t1275 / 0.9e1;
10729   t1280 = t290 * t1279;
10730   t1284 = t879 + 0.4e1 / 0.81e2 * t490 * t880 * t1246 - 0.4e1 / 0.27e2 * t38 * t40 * t1280;
10731   t1285 = t378 * t1284;
10732   t1287 = t428 * t428;
10733   t1288 = t1287 * t1287;
10734   t1289 = t1288 * t1288;
10735   t1290 = t1289 * t428;
10736   t1291 = 0.1e1 / t1290;
10737   t1303 = (-0.5e1 / 0.3e1 * t1181 + t1113 / 0.3e1) * t41 * t45 / 0.4e1 - 0.2e1 / 0.27e2 * t1114;
10738   t1306 = t1303 * t261;
10739   t1314 = -0.125e3 / 0.39366e5 * t1120 - 0.10e2 / 0.9e1 * t409 * t410 * t1112 + 0.584e3 / 0.405e3 * t420 * t1303 - 0.146e3 / 0.135e3 * t1306 * t424 - 0.146e3 / 0.135e3 * t420 * t1091 * t424 + 0.146e3 / 0.135e3 * t423 * t1091;
10740   t1315 = t1291 * t1314;
10741   t1321 = t441 * t262;
10742   t1322 = t1321 * t1091;
10743   t1333 = -0.17051554074074074074e0 * t1114 - 0.5e1 / 0.9e1 * (-t1182 - 0.31646617777777777779e-1 * t1113) * t41 * t45;
10744   t1336 = t438 * t1190;
10745   t1339 = -t1154 * t1122 / 0.5e1 + 0.7e1 / 0.9e1 * t1333 * t339 - 0.14e2 / 0.45e2 * t1336 * t1122;
10746   t1342 = t378 * t1291;
10747   t1345 = -p->cam_beta * (t1097 * t376 - 0.6e1 * t1101 * t1103 + t269 * t1239 + t1244 * t428 + t1285 * t428 + t406 * t1315 / 0.10e2) + t1097 * t441 - 0.6e1 * t1101 * t1322 + t269 * t1339 + t1243 * t428 + t1342 * t1314 / 0.10e2;
10748   t1347 = t8 * t254 * t1345;
10749   t1348 = 0.3e1 / 0.8e1 * t1347;
10750   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
10751     vrho[1] = -t448 - t449 + t10 * (-t948 - t463 + t1081 - t1086 - t775 - t1348);
10752 
10753   t1351 = t483 * t2;
10754   t1352 = t1351 * t4;
10755   t1353 = t7 * t16;
10756   t1356 = my_piecewise3(t24, t19 * t21 / 0.8e1, 0);
10757   t1357 = t25 * t1356;
10758   t1359 = t26 * t1356;
10759   t1361 = 0.2e1 * t1357 + 0.9e1 * t1359;
10760   t1362 = t1361 * t32;
10761   t1364 = t479 * t1356;
10762   t1367 = t46 * t51;
10763   t1370 = t58 * sigma[0] * t63;
10764   t1372 = 0.15045488888888888889e0 * t1367 + 0.53798980924525896000e-2 * t1370;
10765   t1373 = t71 * t1372;
10766   t1377 = my_piecewise3(t76, 0, -t490 * t493 * t1373 / 0.180e3);
10767   t1382 = t525 * t1377;
10768   t1387 = t79 * t1377;
10769   t1388 = t1387 * t86;
10770   t1389 = t1382 * t86 / 0.2e1 - 0.4e1 * t529 * t1377 - t1388;
10771   t1392 = -t1377 * t521 + 0.2e1 * t1377 * t90 + 0.2e1 * t1389 * t77;
10772   t1395 = -0.8e1 / 0.3e1 * t1377 * t93 - 0.8e1 / 0.3e1 * t77 * t1392;
10773   t1401 = t77 * t1377;
10774   t1403 = t128 * t1377;
10775   t1404 = 0.256e3 * t1403;
10776   t1405 = 0.40e2 * t1401 - t1404;
10777   t1407 = t1377 * t86;
10778   t1411 = t78 * t1377;
10779   t1415 = t1405 * t86 + t556 * t1407 / 0.2e1 - 0.72e2 * t1401 + t1404 + 0.10e2 * t1411 * t81 - 0.10e2 * t1388;
10780   t1418 = 0.48e2 * t1377 * t547 + 0.24e2 * t1415 * t83;
10781   t1419 = t1418 * t120;
10782   t1422 = t112 * t51;
10783   t1425 = t582 * t1372;
10784   t1430 = t83 * t1377;
10785   t1432 = t101 * t1377;
10786   t1434 = t141 * t1377;
10787   t1438 = -0.1105920e7 * t134 * t1377 - 0.8e1 * t1377 + 0.768e3 * t1430 - 0.2880e4 * t1432 + 0.26943e5 * t1434;
10788   t1446 = t130 * t1377;
10789   t1448 = 0.448e3 * t1401 - 0.5760e4 * t1403 + 0.30720e5 * t1446;
10790   t1451 = t1377 * t81;
10791   t1454 = t84 * t1377;
10792   t1457 = t1438 * t86 + t598 * t1407 / 0.2e1 + 0.72e2 * t601 * t1377 + 0.24e2 * t128 * t1448 + 0.240e3 * t106 * t1451 - 0.2e1 * t614 * t1454;
10793   t1460 = 0.8e1 / 0.7e1 * t1377 * t151 + 0.8e1 / 0.7e1 * t77 * t1457;
10794   t1461 = t1460 * t41;
10795   t1462 = t1461 * t45;
10796   t1465 = t45 * t51;
10797   t1466 = t1465 * t123;
10798   t1469 = t581 * t1372;
10799   t1470 = t52 * t1469;
10800   t1473 = t1395 * t98 - t544 * t1372 / 0.5e1 + 0.35e2 / 0.81e2 * t1419 * t124 + 0.18276169650205761317e-1 * t1422 * t124 - 0.14e2 / 0.81e2 * t579 * t1425 + 0.26329605555555555556e-1 * t1462 * t157 + 0.26329605555555555556e-1 * t155 * t1466 - 0.10531842222222222222e-1 * t156 * t1470;
10801   t1477 = 0.6e1 * t1359 * t478 - t1362;
10802   t1478 = t1477 * t207;
10803   t1483 = t222 * t41;
10804   t1484 = t1483 * t1465;
10805   t1486 = t51 * t25;
10806   t1488 = t46 * t1486 * t226;
10807   t1490 = t222 * t1356;
10808   t1495 = 0.125e3 / 0.104976e6 * t1370 + 0.5e1 / 0.12e2 * t211 * t1465 - 0.73e2 / 0.14580e5 * t1484 + 0.73e2 / 0.19440e5 * t1488 - 0.146e3 / 0.135e3 * t1490 * t226 + 0.146e3 / 0.135e3 * t225 * t1356;
10809   t1496 = t708 * t1495;
10810   t1502 = t738 * t1356;
10811   t1508 = t46 * t51 * t123;
10812   t1512 = -t543 * t1372 / 0.5e1 + 0.44605775205761316872e-1 * t1508 - 0.14e2 / 0.45e2 * t753 * t1372;
10813   t1517 = -p->cam_beta * (t1362 * t160 - 0.6e1 * t478 * t1364 + t33 * t1473 + t1478 * t230 + t208 * t1496 / 0.10e2) + t1362 * t244 - 0.6e1 * t478 * t1502 + t33 * t1512 + t1477 * t230 + t759 * t1495 / 0.10e2;
10814   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
10815     vsigma[0] = -0.3e1 / 0.8e1 * t1352 * t1353 * t1517;
10816 
10817   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
10818     vsigma[1] = 0.0e0;
10819 
10820   t1521 = t7 * t253;
10821   t1524 = my_piecewise3(t260, t255 * t257 / 0.8e1, 0);
10822   t1525 = t261 * t1524;
10823   t1527 = t262 * t1524;
10824   t1529 = 0.2e1 * t1525 + 0.9e1 * t1527;
10825   t1530 = t1529 * t268;
10826   t1532 = t1102 * t1524;
10827   t1535 = t46 * t274;
10828   t1538 = t58 * sigma[2] * t282;
10829   t1540 = 0.15045488888888888889e0 * t1535 + 0.53798980924525896000e-2 * t1538;
10830   t1541 = t290 * t1540;
10831   t1545 = my_piecewise3(t295, 0, -t490 * t1109 * t1541 / 0.180e3);
10832   t1550 = t793 * t1545;
10833   t1555 = t297 * t1545;
10834   t1556 = t1555 * t304;
10835   t1557 = t1550 * t304 / 0.2e1 - 0.4e1 * t797 * t1545 - t1556;
10836   t1560 = 0.2e1 * t1545 * t308 - t1545 * t789 + 0.2e1 * t1557 * t296;
10837   t1563 = -0.8e1 / 0.3e1 * t1545 * t311 - 0.8e1 / 0.3e1 * t296 * t1560;
10838   t1569 = t296 * t1545;
10839   t1571 = t344 * t1545;
10840   t1572 = 0.256e3 * t1571;
10841   t1573 = 0.40e2 * t1569 - t1572;
10842   t1575 = t1545 * t304;
10843   t1579 = t78 * t1545;
10844   t1583 = t1573 * t304 + t819 * t1575 / 0.2e1 - 0.72e2 * t1569 + t1572 + 0.10e2 * t1579 * t299 - 0.10e2 * t1556;
10845   t1586 = 0.48e2 * t1545 * t810 + 0.24e2 * t1583 * t301;
10846   t1587 = t1586 * t336;
10847   t1590 = t330 * t274;
10848   t1593 = t1191 * t1540;
10849   t1598 = t301 * t1545;
10850   t1600 = t319 * t1545;
10851   t1602 = t357 * t1545;
10852   t1606 = -0.1105920e7 * t1545 * t350 - 0.8e1 * t1545 + 0.768e3 * t1598 - 0.2880e4 * t1600 + 0.26943e5 * t1602;
10853   t1614 = t346 * t1545;
10854   t1616 = 0.448e3 * t1569 - 0.5760e4 * t1571 + 0.30720e5 * t1614;
10855   t1619 = t1545 * t299;
10856   t1622 = t302 * t1545;
10857   t1625 = t1606 * t304 + t847 * t1575 / 0.2e1 + 0.72e2 * t850 * t1545 + 0.24e2 * t344 * t1616 + 0.240e3 * t324 * t1619 - 0.2e1 * t863 * t1622;
10858   t1628 = 0.8e1 / 0.7e1 * t1545 * t367 + 0.8e1 / 0.7e1 * t296 * t1625;
10859   t1629 = t1628 * t41;
10860   t1630 = t1629 * t45;
10861   t1633 = t45 * t274;
10862   t1634 = t1633 * t339;
10863   t1637 = t1190 * t1540;
10864   t1638 = t275 * t1637;
10865   t1641 = t1563 * t316 - t1155 * t1540 / 0.5e1 + 0.35e2 / 0.81e2 * t1587 * t340 + 0.18276169650205761317e-1 * t1590 * t340 - 0.14e2 / 0.81e2 * t1188 * t1593 + 0.26329605555555555556e-1 * t1630 * t373 + 0.26329605555555555556e-1 * t371 * t1634 - 0.10531842222222222222e-1 * t372 * t1638;
10866   t1645 = 0.6e1 * t1101 * t1527 - t1530;
10867   t1646 = t1645 * t405;
10868   t1651 = t420 * t41;
10869   t1652 = t1651 * t1633;
10870   t1654 = t274 * t261;
10871   t1656 = t46 * t1654 * t424;
10872   t1658 = t420 * t1524;
10873   t1663 = 0.125e3 / 0.104976e6 * t1538 + 0.5e1 / 0.12e2 * t409 * t1633 - 0.73e2 / 0.14580e5 * t1652 + 0.73e2 / 0.19440e5 * t1656 - 0.146e3 / 0.135e3 * t1658 * t424 + 0.146e3 / 0.135e3 * t423 * t1524;
10874   t1664 = t1291 * t1663;
10875   t1670 = t1321 * t1524;
10876   t1676 = t46 * t274 * t339;
10877   t1680 = -t1154 * t1540 / 0.5e1 + 0.44605775205761316872e-1 * t1676 - 0.14e2 / 0.45e2 * t1336 * t1540;
10878   t1685 = -p->cam_beta * (t1530 * t376 - 0.6e1 * t1101 * t1532 + t269 * t1641 + t1646 * t428 + t406 * t1664 / 0.10e2) + t1530 * t441 - 0.6e1 * t1101 * t1670 + t269 * t1680 + t1645 * t428 + t1342 * t1663 / 0.10e2;
10879   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
10880     vsigma[2] = -0.3e1 / 0.8e1 * t1352 * t1521 * t1685;
10881 
10882   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
10883     vlapl[0] = 0.0e0;
10884 
10885   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
10886     vlapl[1] = 0.0e0;
10887 
10888   t1689 = tau[0] * tau[0];
10889   t1690 = 0.1e1 / t1689;
10890   t1693 = my_piecewise3(t24, -t20 * t1690 / 0.8e1, 0);
10891   t1694 = t25 * t1693;
10892   t1696 = t26 * t1693;
10893   t1698 = 0.2e1 * t1694 + 0.9e1 * t1696;
10894   t1699 = t1698 * t32;
10895   t1701 = t479 * t1693;
10896   t1704 = t33 * t112;
10897   t1705 = t114 * t41;
10898   t1706 = t45 * t123;
10899   t1707 = t1705 * t1706;
10900   t1712 = 0.6e1 * t1696 * t478 - t1699;
10901   t1713 = t1712 * t207;
10902   t1718 = t45 * t25;
10903   t1722 = t222 * t1693;
10904   t1727 = 0.146e3 / 0.405e3 * t222 * t114 * t46 - 0.73e2 / 0.270e3 * t1705 * t1718 * t226 - 0.146e3 / 0.135e3 * t1722 * t226 + 0.146e3 / 0.135e3 * t225 * t1693;
10905   t1728 = t708 * t1727;
10906   t1734 = t738 * t1693;
10907   t1737 = t33 * t114;
10908   t1743 = -p->cam_beta * (t1699 * t160 - 0.6e1 * t478 * t1701 - 0.62888224691358024691e-1 * t1704 * t1707 + t1713 * t230 + t208 * t1728 / 0.10e2) + t1699 * t244 - 0.6e1 * t478 * t1734 - 0.62888224691358024691e-1 * t1737 * t124 + t1712 * t230 + t759 * t1727 / 0.10e2;
10909   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
10910     vtau[0] = -0.3e1 / 0.8e1 * t1352 * t1353 * t1743;
10911 
10912   t1747 = tau[1] * tau[1];
10913   t1748 = 0.1e1 / t1747;
10914   t1751 = my_piecewise3(t260, -t256 * t1748 / 0.8e1, 0);
10915   t1752 = t261 * t1751;
10916   t1754 = t262 * t1751;
10917   t1756 = 0.2e1 * t1752 + 0.9e1 * t1754;
10918   t1757 = t1756 * t268;
10919   t1759 = t1102 * t1751;
10920   t1762 = t269 * t330;
10921   t1763 = t332 * t41;
10922   t1764 = t45 * t339;
10923   t1765 = t1763 * t1764;
10924   t1770 = 0.6e1 * t1101 * t1754 - t1757;
10925   t1771 = t1770 * t405;
10926   t1776 = t45 * t261;
10927   t1780 = t420 * t1751;
10928   t1785 = 0.146e3 / 0.405e3 * t420 * t332 * t46 - 0.73e2 / 0.270e3 * t1763 * t1776 * t424 - 0.146e3 / 0.135e3 * t1780 * t424 + 0.146e3 / 0.135e3 * t423 * t1751;
10929   t1786 = t1291 * t1785;
10930   t1792 = t1321 * t1751;
10931   t1795 = t269 * t332;
10932   t1801 = -p->cam_beta * (t1757 * t376 - 0.6e1 * t1101 * t1759 - 0.62888224691358024691e-1 * t1762 * t1765 + t1771 * t428 + t406 * t1786 / 0.10e2) + t1757 * t441 - 0.6e1 * t1101 * t1792 - 0.62888224691358024691e-1 * t1795 * t340 + t1770 * t428 + t1342 * t1785 / 0.10e2;
10933   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
10934     vtau[1] = -0.3e1 / 0.8e1 * t1352 * t1521 * t1801;
10935 
10936 #ifndef XC_DONT_COMPILE_FXC
10937 
10938   if(order < 2) return;
10939 
10940 
10941   t1805 = t462 / 0.4e1;
10942   t1807 = t774 / 0.4e1;
10943   t1809 = t15 * t15;
10944   t1810 = 0.1e1 / t1809;
10945   t1811 = t1810 * t17;
10946   t1812 = t455 * t455;
10947   t1813 = t247 * t1812;
10948   t1815 = t8 * t1811 * t1813;
10949   t1816 = t1815 / 0.6e1;
10950   t1817 = t15 * t189;
10951   t1819 = t8 * t1817 * t456;
10952   t1820 = t1819 / 0.3e1;
10953   t1821 = t762 * t455;
10954   t1823 = t8 * t450 * t1821;
10955   t1824 = t451 * t10;
10956   t1825 = 0.1e1 / t1824;
10957   t1826 = t9 * t1825;
10958   t1827 = -t452 + t1826;
10959   t1828 = t247 * t1827;
10960   t1830 = t8 * t450 * t1828;
10961   t1831 = t1830 / 0.2e1;
10962   t1832 = t16 * t673;
10963   t1834 = t8 * t1832 * t247;
10964   t1835 = t1834 / 0.12e2;
10965   t1837 = t8 * t460 * t762;
10966   t1838 = t1837 / 0.4e1;
10967   t1839 = t468 * t468;
10968   t1841 = 0.1e1 / t494;
10969   t1842 = sigma[0] * t1841;
10970   t1845 = my_piecewise3(t24, t1842 * t21 / 0.4e1, 0);
10971   t1848 = t25 * t1839;
10972   t1850 = t26 * t1845;
10973   t1852 = 0.2e1 * t1845 * t25 + 0.2e1 * t1839 + 0.18e2 * t1848 + 0.9e1 * t1850;
10974   t1853 = t1852 * t32;
10975   t1855 = t473 * t477;
10976   t1860 = t31 * t31;
10977   t1861 = 0.1e1 / t1860;
10978   t1862 = t29 * t1861;
10979   t1863 = t26 * t26;
10980   t1864 = t160 * t1863;
10981   t1865 = t1864 * t1839;
10982   t1868 = t633 * t26;
10983   t1869 = t1868 * t468;
10984   t1872 = t160 * t25;
10985   t1873 = t1872 * t1839;
10986   t1876 = t479 * t1845;
10987   t1879 = t67 * t67;
10988   t1881 = 0.1e1 / t122 / t1879;
10989   t1882 = t506 * t506;
10990   t1883 = t1881 * t1882;
10991   t1884 = t52 * t1883;
10992   t1887 = t568 * t575;
10993   t1890 = tau[0] * t496;
10994   t1891 = 0.64685031111111111112e0 * t1890;
10995   t1893 = 0.1e1 / t49 / t60;
10996   t1894 = sigma[0] * t1893;
10997   t1896 = -t1891 + 0.41356361037037037035e0 * t1894;
10998   t1897 = t112 * t1896;
10999   t1900 = t540 * t543;
11000   t1903 = t46 * t1894;
11001   t1905 = t60 * t494;
11002   t1907 = 0.1e1 / t48 / t1905;
11003   t1909 = t58 * t59 * t1907;
11004   t1911 = 0.14711144691358024691e1 * t1903 + 0.90860501116977068800e-1 * t1909;
11005   t1914 = t581 * t1911;
11006   t1915 = t52 * t1914;
11007   t1918 = t1894 * t123;
11008   t1921 = t497 * t629;
11009   t1928 = t45 * t1881;
11010   t1929 = t1928 * t1882;
11011   t1933 = 0.1e1 / t97 / t1879;
11012   t1934 = t96 * t1933;
11013   t1938 = 0.1e1 / t17 / t451;
11014   t1939 = t2 * t1938;
11015   t1942 = 0.2e1 / 0.81e2 * t38 * t1939 * t72;
11016   t1943 = t484 * t492;
11017   t1945 = t490 * t1943 * t507;
11018   t1947 = t484 * t69;
11019   t1949 = t490 * t1947 * t514;
11020   t1952 = 0.1e1 / t68 / t1879;
11021   t1953 = t39 * t1952;
11022   t1954 = t71 * t1882;
11023   t1958 = t513 * t506;
11024   t1959 = t1958 * t454;
11025   t1963 = t71 * t1911;
11026   t1967 = t13 * t13;
11027   t1969 = 0.1e1 / t70 / t1967;
11028   t1970 = t454 * t454;
11029   t1971 = t1969 * t1970;
11030   t1975 = 0.2e1 * t1827;
11031   t1976 = t513 * t1975;
11032   t1981 = my_piecewise3(t76, 0, t1942 + t1945 / 0.270e3 + t1949 / 0.81e2 + 0.11e2 / 0.1800e4 * t490 * t1953 * t1954 + t490 * t493 * t1959 / 0.270e3 - t490 * t493 * t1963 / 0.180e3 + 0.2e1 / 0.81e2 * t490 * t511 * t1971 - t490 * t511 * t1976 / 0.54e2);
11033   t1986 = 0.1e1 / t130;
11034   t1987 = t519 * t519;
11035   t1988 = t1986 * t1987;
11036   t1991 = t86 * t525;
11037   t1994 = t521 * t1981;
11038   t1999 = 0.1e1 / t101;
11039   t2000 = t1999 * t1987;
11040   t2001 = t2000 * t86;
11041   t2006 = 0.1e1 / t141;
11042   t2007 = t2006 * t1987;
11043   t2012 = t84 * t1987;
11044   t2016 = t79 * t1981;
11045   t2017 = t2016 * t86;
11046   t2018 = -0.2e1 * t2001 + t525 * t1981 * t86 / 0.2e1 + t2007 * t86 / 0.4e1 - 0.4e1 * t1987 * t87 - t2012 * t86 - 0.4e1 * t529 * t1981 - t2017;
11047   t2021 = -t1988 * t86 / 0.2e1 + 0.2e1 * t1991 * t1987 - t1994 + 0.2e1 * t1981 * t90 + 0.4e1 * t519 * t534 + 0.2e1 * t77 * t2018;
11048   t2024 = -0.8e1 / 0.3e1 * t1981 * t93 - 0.16e2 / 0.3e1 * t519 * t537 - 0.8e1 / 0.3e1 * t77 * t2021;
11049   t2028 = t77 * t565;
11050   t2034 = t77 * t1981;
11051   t2036 = t83 * t1987;
11052   t2037 = 0.768e3 * t2036;
11053   t2038 = t128 * t1981;
11054   t2039 = 0.256e3 * t2038;
11055   t2040 = 0.40e2 * t1987 + 0.40e2 * t2034 - t2037 - t2039;
11056   t2042 = t554 * t525;
11057   t2044 = t103 * t1999;
11058   t2045 = t1987 * t86;
11059   t2048 = t1981 * t86;
11060   t2051 = t103 * t2006;
11061   t2056 = t78 * t1981;
11062   t2061 = t2040 * t86 + t2042 * t557 - 0.3e1 / 0.2e1 * t2044 * t2045 + t556 * t2048 / 0.2e1 + t2051 * t2045 / 0.4e1 - 0.72e2 * t1987 - 0.72e2 * t2034 + t2037 + t2039 + 0.10e2 * t2056 * t81 - 0.10e2 * t2017 - 0.5e1 * t2001;
11063   t2064 = 0.48e2 * t109 * t1987 + 0.48e2 * t1981 * t547 + 0.96e2 * t2028 * t519 + 0.24e2 * t2061 * t83;
11064   t2065 = t2064 * t120;
11065   t2068 = t569 * t41;
11066   t2071 = t576 * t41;
11067   t2074 = t582 * t1911;
11068   t2082 = t77 * t1987;
11069   t2086 = t128 * t1987;
11070   t2098 = -0.2880e4 * t101 * t1981 + 0.161658e6 * t130 * t1987 - 0.8847360e7 * t132 * t1987 - 0.1105920e7 * t134 * t1981 + 0.26943e5 * t141 * t1981 + 0.768e3 * t1981 * t83 - 0.8e1 * t1981 + 0.1536e4 * t2082 - 0.11520e5 * t2086;
11071   t2100 = t596 * t525;
11072   t2102 = t137 * t1999;
11073   t2107 = t137 * t2006;
11074   t2110 = t77 * t143;
11075   t2113 = t83 * t608;
11076   t2122 = t101 * t1987;
11077   t2126 = 0.30720e5 * t130 * t1981 + 0.448e3 * t1987 + 0.448e3 * t2034 - 0.17280e5 * t2036 - 0.5760e4 * t2038 + 0.153600e6 * t2122;
11078   t2132 = t1981 * t81;
11079   t2138 = t147 * t1986;
11080   t2140 = t525 * t1987;
11081   t2143 = t84 * t1981;
11082   t2146 = t2098 * t86 + t2100 * t557 - 0.3e1 / 0.2e1 * t2102 * t2045 + t598 * t2048 / 0.2e1 + t2107 * t2045 / 0.4e1 + 0.144e3 * t2110 * t1987 + 0.144e3 * t2113 * t519 + 0.72e2 * t601 * t1981 + 0.24e2 * t128 * t2126 + 0.240e3 * t78 * t1987 * t81 + 0.240e3 * t106 * t2132 - 0.480e3 * t79 * t1987 * t86 - t2138 * t2045 + 0.4e1 * t614 * t2140 - 0.2e1 * t614 * t2143;
11083   t2149 = 0.8e1 / 0.7e1 * t1981 * t151 + 0.16e2 / 0.7e1 * t519 * t618 + 0.8e1 / 0.7e1 * t77 * t2146;
11084   t2150 = t2149 * t41;
11085   t2151 = t2150 * t45;
11086   t2154 = 0.14744579111111111111e-1 * t156 * t1884 + 0.70e2 / 0.81e2 * t1887 * t124 + 0.35e2 / 0.81e2 * t1897 * t124 - 0.2e1 / 0.5e1 * t1900 * t506 - t544 * t1911 / 0.5e1 - 0.10531842222222222222e-1 * t156 * t1915 + 0.25744503209876543210e0 * t156 * t1918 + 0.56169825185185185185e-1 * t156 * t1921 - 0.14042456296296296297e0 * t623 * t626 - 0.21063684444444444444e-1 * t623 * t630 + 0.98e2 / 0.405e3 * t579 * t1929 + 0.6e1 / 0.25e2 * t1934 * t1882 + t2024 * t98 + 0.35e2 / 0.81e2 * t2065 * t124 - 0.28e2 / 0.81e2 * t2068 * t583 - 0.28e2 / 0.81e2 * t2071 * t583 - 0.14e2 / 0.81e2 * t579 * t2074 + 0.26329605555555555556e-1 * t2151 * t157;
11087   t2158 = t1863 * t1839;
11088   t2165 = 0.12e2 * t1848 * t478 + 0.6e1 * t1850 * t478 + 0.12e2 * t1855 * t471 - 0.54e2 * t1862 * t2158 - t1853;
11089   t2166 = t2165 * t207;
11090   t2168 = t637 * t701;
11091   t2175 = 0.16e2 / 0.243e3 * t38 * t1939 * t203;
11092   t2176 = t484 * t513;
11093   t2178 = t490 * t2176 * t644;
11094   t2181 = t38 * t485 * t697;
11095   t2183 = t39 * t1969;
11096   t2184 = t202 * t1970;
11097   t2188 = t696 * t454;
11098   t2192 = t202 * t1975;
11099   t2200 = 0.2e1 / 0.27e2 * t166 * t674 * t70;
11100   t2202 = t166 * t190 * t650;
11101   t2204 = t681 * t1970;
11102   t2208 = t191 * t1975;
11103   t2212 = -t2200 + 0.2e1 / 0.27e2 * t2202 - 0.2e1 / 0.27e2 * t166 * t168 * t2204 + t166 * t168 * t2208 / 0.9e1;
11104   t2217 = 0.4e1 / 0.81e2 * t38 * t1939 * t198;
11105   t2219 = t490 * t2176 * t660;
11106   t2222 = t38 * t485 * t692;
11107   t2224 = t197 * t1970;
11108   t2228 = t691 * t454;
11109   t2232 = t197 * t1975;
11110   t2238 = 0.2e1 / 0.27e2 * t179 * t485 * t182;
11111   t2240 = t179 * t40 * t666;
11112   t2242 = t513 * t1970;
11113   t2246 = t71 * t1975;
11114   t2250 = t2238 - 0.8e1 / 0.27e2 * t2240 + 0.2e1 / 0.27e2 * t179 * t181 * t2242 - 0.2e1 / 0.9e1 * t179 * t181 * t2246;
11115   t2251 = t2250 * t186;
11116   t2252 = t670 * t670;
11117   t2253 = t2252 * t186;
11118   t2255 = 0.1e1 / t180 / t451;
11119   t2256 = t167 * t2255;
11120   t2259 = 0.5e1 / 0.81e2 * t188 * t2256 * t193;
11121   t2260 = t673 * t681;
11122   t2262 = t679 * t2260 * t683;
11123   t2264 = t673 * t191;
11124   t2266 = t679 * t2264 * t671;
11125   t2269 = 0.1e1 / t182 / t1967;
11126   t2270 = t189 * t2269;
11127   t2271 = t192 * t1970;
11128   t2275 = t671 * t454;
11129   t2279 = t192 * t1975;
11130   t2289 = t2251 + t2253 - t2259 - 0.4e1 / 0.81e2 * t2262 + 0.2e1 / 0.27e2 * t2266 - 0.5e1 / 0.81e2 * t679 * t2270 * t2271 + 0.2e1 / 0.27e2 * t679 * t682 * t2275 + t679 * t682 * t2279 / 0.27e2 - t679 * t687 * t2251 / 0.18e2 - t679 * t687 * t2253 / 0.18e2;
11131   t2290 = t71 * t2289;
11132   t2294 = 0.2e1 * t671 * t654 + 0.2e1 * t186 * t2212 + t2217 + 0.2e1 / 0.81e2 * t2219 - 0.2e1 / 0.27e2 * t2222 + 0.4e1 / 0.81e2 * t490 * t2183 * t2224 - 0.2e1 / 0.27e2 * t490 * t643 * t2228 - t490 * t643 * t2232 / 0.27e2 + t38 * t40 * t2290 / 0.9e1;
11133   t2295 = t71 * t2294;
11134   t2299 = -t2175 - 0.8e1 / 0.243e3 * t2178 + 0.8e1 / 0.81e2 * t2181 - 0.16e2 / 0.243e3 * t490 * t2183 * t2184 + 0.8e1 / 0.81e2 * t490 * t643 * t2188 + 0.4e1 / 0.81e2 * t490 * t643 * t2192 - 0.4e1 / 0.27e2 * t38 * t40 * t2295;
11135   t2300 = t162 * t2299;
11136   t2305 = 0.1e1 / t707 / t229;
11137   t2306 = t731 * t731;
11138   t2307 = t2305 * t2306;
11139   t2314 = t720 * t720;
11140   t2323 = (0.40e2 / 0.9e1 * t1890 - 0.11e2 / 0.9e1 * t1894) * t41 * t45 / 0.4e1 + 0.22e2 / 0.81e2 * t1903;
11141   t2326 = t2323 * t25;
11142   t2334 = t222 * t1845;
11143   t2341 = 0.125e3 / 0.4374e4 * t1909 + 0.110e3 / 0.27e2 * t211 * t212 * t1893 + 0.584e3 / 0.405e3 * t2314 + 0.584e3 / 0.405e3 * t222 * t2323 - 0.146e3 / 0.135e3 * t2326 * t226 - 0.292e3 / 0.135e3 * t720 * t468 * t226 + 0.292e3 / 0.135e3 * t723 * t468 - 0.146e3 / 0.135e3 * t2334 * t226 + 0.292e3 / 0.135e3 * t222 * t1839 + 0.146e3 / 0.135e3 * t225 * t1845;
11144   t2342 = t708 * t2341;
11145   t2345 = t1853 * t160 - 0.12e2 * t1855 * t480 + 0.2e1 * t474 * t633 + 0.54e2 * t1862 * t1865 - 0.12e2 * t478 * t1869 - 0.12e2 * t478 * t1873 - 0.6e1 * t478 * t1876 + t33 * t2154 + t2166 * t230 + 0.2e1 * t2168 * t230 + t638 * t732 / 0.5e1 + t2300 * t230 + t702 * t732 / 0.5e1 - 0.9e1 / 0.100e3 * t208 * t2307 + t208 * t2342 / 0.10e2;
11146   t2352 = t244 * t1863;
11147   t2353 = t2352 * t1839;
11148   t2356 = t756 * t26;
11149   t2357 = t2356 * t468;
11150   t2360 = t244 * t25;
11151   t2361 = t2360 * t1839;
11152   t2364 = t738 * t1845;
11153   t2377 = 0.62522364938271604938e0 * t1903 - 0.5e1 / 0.9e1 * (t1891 + 0.11603759851851851852e0 * t1894) * t41 * t45;
11154   t2380 = t750 * t581;
11155   t2383 = t241 * t1881;
11156   t2388 = 0.6e1 / 0.25e2 * t1933 * t1882 - t543 * t1911 / 0.5e1 + 0.7e1 / 0.9e1 * t2377 * t123 - 0.28e2 / 0.45e2 * t2380 * t506 + 0.98e2 / 0.225e3 * t2383 * t1882 - 0.14e2 / 0.45e2 * t753 * t1911;
11157   t2391 = t637 * t708;
11158   t2394 = t162 * t2305;
11159   t2399 = -p->cam_beta * t2345 + t1853 * t244 - 0.12e2 * t1855 * t739 + 0.2e1 * t474 * t756 + 0.54e2 * t1862 * t2353 - 0.12e2 * t478 * t2357 - 0.12e2 * t478 * t2361 - 0.6e1 * t478 * t2364 + t33 * t2388 + t2165 * t230 + t2391 * t731 / 0.5e1 - 0.9e1 / 0.100e3 * t2394 * t2306 + t759 * t2341 / 0.10e2;
11160   t2401 = t8 * t18 * t2399;
11161   t2402 = 0.3e1 / 0.8e1 * t2401;
11162   t2403 = t252 * t252;
11163   t2404 = 0.1e1 / t2403;
11164   t2405 = t2404 * t17;
11165   t2406 = t767 * t767;
11166   t2407 = t444 * t2406;
11167   t2409 = t8 * t2405 * t2407;
11168   t2410 = t2409 / 0.6e1;
11169   t2411 = t252 * t189;
11170   t2413 = t8 * t2411 * t768;
11171   t2414 = t2413 / 0.3e1;
11172   t2415 = t7 * t252;
11173   t2416 = t5 * t2415;
11174   t2417 = t17 * p->cam_beta;
11175   t2418 = t936 * t767;
11176   t2420 = t2416 * t2417 * t2418;
11177   t2421 = -t1827;
11178   t2422 = t444 * t2421;
11179   t2424 = t8 * t766 * t2422;
11180   t2425 = t2424 / 0.2e1;
11181   t2426 = t253 * t673;
11182   t2428 = t8 * t2426 * t444;
11183   t2429 = t2428 / 0.12e2;
11184   t2431 = t8 * t772 * t937;
11185   t2432 = t2431 / 0.4e1;
11186   t2435 = 0.2e1 / 0.81e2 * t38 * t1939 * t291;
11187   t2436 = t484 * t288;
11188   t2438 = t490 * t2436 * t782;
11189   t2440 = t250 * t250;
11190   t2442 = 0.1e1 / t289 / t2440;
11191   t2443 = t781 * t781;
11192   t2444 = t2442 * t2443;
11193   t2448 = -t1975;
11194   t2449 = t780 * t2448;
11195   t2454 = my_piecewise3(t295, 0, t2435 + t2438 / 0.81e2 + 0.2e1 / 0.81e2 * t490 * t778 * t2444 - t490 * t778 * t2449 / 0.54e2);
11196   t2459 = 0.1e1 / t346;
11197   t2460 = t787 * t787;
11198   t2461 = t2459 * t2460;
11199   t2464 = t304 * t793;
11200   t2465 = t2464 * t2460;
11201   t2467 = t789 * t2454;
11202   t2472 = 0.1e1 / t319;
11203   t2473 = t2472 * t2460;
11204   t2474 = t2473 * t304;
11205   t2479 = 0.1e1 / t357;
11206   t2480 = t2479 * t2460;
11207   t2485 = t302 * t2460;
11208   t2489 = t297 * t2454;
11209   t2490 = t2489 * t304;
11210   t2491 = -0.2e1 * t2474 + t793 * t2454 * t304 / 0.2e1 + t2480 * t304 / 0.4e1 - 0.4e1 * t2460 * t305 - t2485 * t304 - 0.4e1 * t797 * t2454 - t2490;
11211   t2494 = -t2461 * t304 / 0.2e1 + 0.2e1 * t2465 - t2467 + 0.2e1 * t2454 * t308 + 0.4e1 * t787 * t802 + 0.2e1 * t296 * t2491;
11212   t2497 = -0.8e1 / 0.3e1 * t2454 * t311 - 0.16e2 / 0.3e1 * t787 * t805 - 0.8e1 / 0.3e1 * t296 * t2494;
11213   t2501 = t296 * t828;
11214   t2507 = t296 * t2454;
11215   t2509 = t301 * t2460;
11216   t2510 = 0.768e3 * t2509;
11217   t2511 = t344 * t2454;
11218   t2512 = 0.256e3 * t2511;
11219   t2513 = 0.40e2 * t2460 + 0.40e2 * t2507 - t2510 - t2512;
11220   t2515 = t817 * t793;
11221   t2517 = t321 * t2472;
11222   t2518 = t2460 * t304;
11223   t2521 = t2454 * t304;
11224   t2524 = t321 * t2479;
11225   t2529 = t78 * t2454;
11226   t2534 = t2513 * t304 + t2515 * t820 - 0.3e1 / 0.2e1 * t2517 * t2518 + t819 * t2521 / 0.2e1 + t2524 * t2518 / 0.4e1 - 0.72e2 * t2460 - 0.72e2 * t2507 + t2510 + t2512 + 0.10e2 * t2529 * t299 - 0.10e2 * t2490 - 0.5e1 * t2474;
11227   t2537 = 0.48e2 * t2454 * t810 + 0.48e2 * t2460 * t327 + 0.96e2 * t2501 * t787 + 0.24e2 * t2534 * t301;
11228   t2538 = t2537 * t336;
11229   t2546 = t296 * t2460;
11230   t2550 = t344 * t2460;
11231   t2562 = 0.768e3 * t2454 * t301 - 0.2880e4 * t2454 * t319 - 0.1105920e7 * t2454 * t350 + 0.26943e5 * t2454 * t357 + 0.161658e6 * t2460 * t346 - 0.8847360e7 * t2460 * t348 - 0.8e1 * t2454 + 0.1536e4 * t2546 - 0.11520e5 * t2550;
11232   t2564 = t845 * t793;
11233   t2566 = t353 * t2472;
11234   t2571 = t353 * t2479;
11235   t2574 = t296 * t359;
11236   t2577 = t301 * t857;
11237   t2586 = t319 * t2460;
11238   t2590 = 0.30720e5 * t2454 * t346 + 0.448e3 * t2460 + 0.448e3 * t2507 - 0.17280e5 * t2509 - 0.5760e4 * t2511 + 0.153600e6 * t2586;
11239   t2596 = t2454 * t299;
11240   t2602 = t363 * t2459;
11241   t2604 = t793 * t2460;
11242   t2607 = t302 * t2454;
11243   t2610 = t2562 * t304 + t2564 * t820 - 0.3e1 / 0.2e1 * t2566 * t2518 + t847 * t2521 / 0.2e1 + t2571 * t2518 / 0.4e1 + 0.144e3 * t2574 * t2460 + 0.144e3 * t2577 * t787 + 0.72e2 * t850 * t2454 + 0.24e2 * t344 * t2590 + 0.240e3 * t78 * t2460 * t299 + 0.240e3 * t324 * t2596 - 0.480e3 * t297 * t2460 * t304 - t2602 * t2518 + 0.4e1 * t863 * t2604 - 0.2e1 * t863 * t2607;
11244   t2613 = 0.8e1 / 0.7e1 * t2454 * t367 + 0.16e2 / 0.7e1 * t787 * t867 + 0.8e1 / 0.7e1 * t296 * t2610;
11245   t2614 = t2613 * t41;
11246   t2615 = t2614 * t45;
11247   t2618 = t2497 * t316 + 0.35e2 / 0.81e2 * t2538 * t340 + 0.26329605555555555556e-1 * t2615 * t373;
11248   t2622 = 0.16e2 / 0.243e3 * t38 * t1939 * t401;
11249   t2623 = t484 * t780;
11250   t2625 = t490 * t2623 * t881;
11251   t2628 = t38 * t485 * t929;
11252   t2630 = t39 * t2442;
11253   t2631 = t400 * t2443;
11254   t2635 = t928 * t781;
11255   t2639 = t400 * t2448;
11256   t2647 = 0.2e1 / 0.27e2 * t166 * t674 * t289;
11257   t2649 = t166 * t190 * t887;
11258   t2651 = t913 * t2443;
11259   t2655 = t389 * t2448;
11260   t2659 = -t2647 + 0.2e1 / 0.27e2 * t2649 - 0.2e1 / 0.27e2 * t166 * t168 * t2651 + t166 * t168 * t2655 / 0.9e1;
11261   t2664 = 0.4e1 / 0.81e2 * t38 * t1939 * t396;
11262   t2666 = t490 * t2623 * t897;
11263   t2669 = t38 * t485 * t924;
11264   t2671 = t395 * t2443;
11265   t2675 = t923 * t781;
11266   t2679 = t395 * t2448;
11267   t2685 = 0.2e1 / 0.27e2 * t179 * t485 * t384;
11268   t2687 = t179 * t40 * t903;
11269   t2689 = t780 * t2443;
11270   t2693 = t290 * t2448;
11271   t2697 = t2685 - 0.8e1 / 0.27e2 * t2687 + 0.2e1 / 0.27e2 * t179 * t181 * t2689 - 0.2e1 / 0.9e1 * t179 * t181 * t2693;
11272   t2698 = t2697 * t388;
11273   t2699 = t907 * t907;
11274   t2700 = t2699 * t388;
11275   t2703 = 0.5e1 / 0.81e2 * t188 * t2256 * t391;
11276   t2704 = t673 * t913;
11277   t2706 = t679 * t2704 * t915;
11278   t2708 = t673 * t389;
11279   t2710 = t679 * t2708 * t908;
11280   t2713 = 0.1e1 / t384 / t2440;
11281   t2714 = t189 * t2713;
11282   t2715 = t390 * t2443;
11283   t2719 = t908 * t781;
11284   t2723 = t390 * t2448;
11285   t2733 = t2698 + t2700 - t2703 - 0.4e1 / 0.81e2 * t2706 + 0.2e1 / 0.27e2 * t2710 - 0.5e1 / 0.81e2 * t679 * t2714 * t2715 + 0.2e1 / 0.27e2 * t679 * t914 * t2719 + t679 * t914 * t2723 / 0.27e2 - t679 * t919 * t2698 / 0.18e2 - t679 * t919 * t2700 / 0.18e2;
11286   t2734 = t290 * t2733;
11287   t2738 = 0.2e1 * t908 * t891 + 0.2e1 * t388 * t2659 + t2664 + 0.2e1 / 0.81e2 * t2666 - 0.2e1 / 0.27e2 * t2669 + 0.4e1 / 0.81e2 * t490 * t2630 * t2671 - 0.2e1 / 0.27e2 * t490 * t880 * t2675 - t490 * t880 * t2679 / 0.27e2 + t38 * t40 * t2734 / 0.9e1;
11288   t2739 = t290 * t2738;
11289   t2743 = -t2622 - 0.8e1 / 0.243e3 * t2625 + 0.8e1 / 0.81e2 * t2628 - 0.16e2 / 0.243e3 * t490 * t2630 * t2631 + 0.8e1 / 0.81e2 * t490 * t880 * t2635 + 0.4e1 / 0.81e2 * t490 * t880 * t2639 - 0.4e1 / 0.27e2 * t38 * t40 * t2739;
11290   t2744 = t378 * t2743;
11291   t2746 = t2618 * t269 + t2744 * t428;
11292   t2747 = p->cam_beta * t2746;
11293   t2749 = t8 * t254 * t2747;
11294   t2750 = 0.3e1 / 0.8e1 * t2749;
11295   t2751 = -t1816 - t1820 - t1823 - t1831 + t1835 - t1838 - t2402 - t2410 - t2414 + t2420 - t2425 + t2429 + t2432 + t2750;
11296   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
11297     v2rho2[0] = -t458 - t1805 - 0.3e1 / 0.4e1 * t764 - t770 - t1807 + 0.3e1 / 0.4e1 * t939 + t10 * t2751;
11298 
11299   t2753 = t7 * t1810;
11300   t2754 = t5 * t2753;
11301   t2755 = t17 * t247;
11302   t2756 = t944 * t455;
11303   t2758 = t2754 * t2755 * t2756;
11304   t2761 = t8 * t1817 * t945;
11305   t2763 = t762 * t944;
11306   t2765 = t8 * t450 * t2763;
11307   t2767 = t15 * t2255;
11308   t2768 = t247 * t9;
11309   t2770 = t8 * t2767 * t2768;
11310   t2774 = t7 * t15;
11311   t2775 = t5 * t2774;
11312   t2776 = t1077 * t455;
11313   t2778 = t2775 * t2417 * t2776;
11314   t2781 = t8 * t460 * t1078;
11315   t2784 = t1034 * t26;
11316   t2785 = t2784 * t468;
11317   t2791 = t490 * t1947 * t949;
11318   t2793 = t949 * t506;
11319   t2797 = t1969 * t943;
11320   t2798 = t2797 * t454;
11321   t2803 = 0.1e1 / t17 / t1824;
11322   t2804 = t2803 * t69;
11323   t2805 = t513 * t9;
11324   t2810 = my_piecewise3(t76, 0, t1942 + t1945 / 0.540e3 + t1949 / 0.162e3 + t2791 / 0.162e3 + t490 * t493 * t2793 / 0.540e3 + 0.2e1 / 0.81e2 * t490 * t511 * t2798 - t490 * t2804 * t2805 / 0.27e2);
11325   t2814 = t1986 * t519;
11326   t2817 = t519 * t954;
11327   t2820 = t521 * t2810;
11328   t2827 = t1999 * t954;
11329   t2828 = t2827 * t557;
11330   t2830 = t525 * t2810;
11331   t2833 = t2006 * t954;
11332   t2836 = t519 * t87;
11333   t2842 = t79 * t2810;
11334   t2843 = t2842 * t86;
11335   t2844 = -0.2e1 * t2828 + t2830 * t86 / 0.2e1 + t2833 * t557 / 0.4e1 - 0.4e1 * t2836 * t954 - t615 * t982 - 0.4e1 * t529 * t2810 - t2843;
11336   t2847 = -t2814 * t982 / 0.2e1 + 0.2e1 * t1991 * t2817 - t2820 + 0.2e1 * t2810 * t90 + 0.2e1 * t954 * t534 + 0.2e1 * t519 * t966 + 0.2e1 * t77 * t2844;
11337   t2850 = -0.8e1 / 0.3e1 * t2810 * t93 - 0.8e1 / 0.3e1 * t77 * t2847 - 0.8e1 / 0.3e1 * t519 * t969 - 0.8e1 / 0.3e1 * t954 * t537;
11338   t2852 = t972 * t543;
11339   t2855 = t519 * t109;
11340   t2862 = t77 * t990;
11341   t2866 = t77 * t2810;
11342   t2868 = t999 * t519;
11343   t2869 = 0.768e3 * t2868;
11344   t2870 = t128 * t2810;
11345   t2871 = 0.256e3 * t2870;
11346   t2872 = 0.40e2 * t2817 + 0.40e2 * t2866 - t2869 - t2871;
11347   t2874 = t980 * t525;
11348   t2879 = t982 * t519;
11349   t2882 = t2810 * t86;
11350   t2889 = t78 * t2810;
11351   t2894 = t2872 * t86 + t2874 * t557 / 0.2e1 + t2042 * t982 / 0.2e1 - 0.3e1 / 0.2e1 * t2044 * t2879 + t556 * t2882 / 0.2e1 + t2051 * t2879 / 0.4e1 - 0.72e2 * t2817 - 0.72e2 * t2866 + t2869 + t2871 + 0.10e2 * t2889 * t81 - 0.10e2 * t2843 - 0.5e1 * t2828;
11352   t2897 = 0.48e2 * t2028 * t954 + 0.48e2 * t2810 * t547 + 0.48e2 * t2855 * t954 + 0.48e2 * t2862 * t519 + 0.24e2 * t2894 * t83;
11353   t2898 = t2897 * t120;
11354   t2901 = t993 * t575;
11355   t2904 = t994 * t41;
11356   t2913 = t83 * t2810;
11357   t2917 = t101 * t2810;
11358   t2921 = t141 * t2810;
11359   t2923 = t132 * t954;
11360   t2928 = 0.161658e6 * t1015 * t519 - 0.1105920e7 * t134 * t2810 - 0.8847360e7 * t2923 * t519 + 0.1536e4 * t519 * t976 - 0.11520e5 * t519 * t978 - 0.8e1 * t2810 + 0.768e3 * t2913 - 0.2880e4 * t2917 + 0.26943e5 * t2921;
11361   t2930 = t1007 * t525;
11362   t2947 = t83 * t1017;
11363   t2956 = t130 * t2810;
11364   t2958 = 0.153600e6 * t1001 * t519 + 0.448e3 * t2817 + 0.448e3 * t2866 - 0.17280e5 * t2868 - 0.5760e4 * t2870 + 0.30720e5 * t2956;
11365   t2963 = t2810 * t81;
11366   t2969 = t959 * t519;
11367   t2972 = t84 * t2810;
11368   t2975 = t2928 * t86 + t2930 * t557 / 0.2e1 + t2100 * t982 / 0.2e1 - 0.3e1 / 0.2e1 * t2102 * t2879 + t598 * t2882 / 0.2e1 + t2107 * t2879 / 0.4e1 + 0.144e3 * t2110 * t2817 + 0.72e2 * t2113 * t954 + 0.72e2 * t601 * t2810 + 0.72e2 * t2947 * t519 + 0.24e2 * t128 * t2958 + 0.240e3 * t561 * t1020 + 0.240e3 * t106 * t2963 - 0.480e3 * t964 * t557 - t2138 * t2879 + 0.4e1 * t614 * t2969 - 0.2e1 * t614 * t2972;
11369   t2978 = 0.8e1 / 0.7e1 * t519 * t1026 + 0.8e1 / 0.7e1 * t2810 * t151 + 0.8e1 / 0.7e1 * t77 * t2975 + 0.8e1 / 0.7e1 * t954 * t618;
11370   t2979 = t2978 * t41;
11371   t2980 = t2979 * t45;
11372   t2987 = t2850 * t98 - t2852 * t506 / 0.5e1 + 0.35e2 / 0.81e2 * t2898 * t124 + 0.35e2 / 0.81e2 * t2901 * t124 - 0.14e2 / 0.81e2 * t2904 * t583 + 0.26329605555555555556e-1 * t2980 * t157 - 0.70212281481481481483e-1 * t1031 * t626 - 0.10531842222222222222e-1 * t1031 * t630;
11373   t2989 = t637 * t1074;
11374   t2994 = t490 * t2176 * t1036;
11375   t2996 = t1036 * t454;
11376   t3000 = t696 * t943;
11377   t3004 = t2803 * t513;
11378   t3005 = t202 * t9;
11379   t3010 = t38 * t485 * t1070;
11380   t3012 = t1069 * t454;
11381   t3020 = t166 * t190 * t1040;
11382   t3023 = t164 * t165 * t167;
11383   t3024 = t17 * t681;
11384   t3025 = t943 * t454;
11385   t3029 = t191 * t9;
11386   t3033 = -t2200 + t2202 / 0.27e2 + t3020 / 0.27e2 - 0.2e1 / 0.27e2 * t3023 * t3024 * t3025 + 0.2e1 / 0.9e1 * t166 * t2256 * t3029;
11387   t3034 = t186 * t3033;
11388   t3039 = t490 * t2176 * t1047;
11389   t3041 = t1047 * t454;
11390   t3045 = t691 * t943;
11391   t3049 = t197 * t9;
11392   t3054 = t38 * t485 * t1065;
11393   t3056 = t1064 * t454;
11394   t3062 = t179 * t40 * t1051;
11395   t3065 = t176 * t178 * t2;
11396   t3066 = t180 * t513;
11397   t3070 = t71 * t9;
11398   t3074 = t2238 - 0.4e1 / 0.27e2 * t2240 - 0.4e1 / 0.27e2 * t3062 + 0.2e1 / 0.27e2 * t3065 * t3066 * t3025 - 0.4e1 / 0.9e1 * t179 * t1939 * t3070;
11399   t3075 = t3074 * t186;
11400   t3076 = t1055 * t670;
11401   t3077 = t3076 * t186;
11402   t3081 = t679 * t2260 * t1057;
11403   t3083 = t1057 * t454;
11404   t3087 = t671 * t943;
11405   t3092 = 0.1e1 / t180 / t1824;
11406   t3093 = t3092 * t681;
11407   t3094 = t192 * t9;
11408   t3099 = t679 * t2264 * t1056;
11409   t3101 = t1056 * t454;
11410   t3111 = t3075 + t3077 - t2259 - 0.2e1 / 0.81e2 * t2262 + t2266 / 0.27e2 - 0.2e1 / 0.81e2 * t3081 - 0.5e1 / 0.81e2 * t679 * t2270 * t3083 + t679 * t682 * t3087 / 0.27e2 + 0.2e1 / 0.27e2 * t679 * t3093 * t3094 + t3099 / 0.27e2 + t679 * t682 * t3101 / 0.27e2 - t679 * t687 * t3075 / 0.18e2 - t679 * t687 * t3077 / 0.18e2;
11411   t3112 = t71 * t3111;
11412   t3116 = 0.2e1 * t671 * t1044 + 0.2e1 * t3034 + t2217 + t2219 / 0.81e2 - t2222 / 0.27e2 + t3039 / 0.81e2 + 0.4e1 / 0.81e2 * t490 * t2183 * t3041 - t490 * t643 * t3045 / 0.27e2 - 0.2e1 / 0.27e2 * t490 * t3004 * t3049 - t3054 / 0.27e2 - t490 * t643 * t3056 / 0.27e2 + t38 * t40 * t3112 / 0.9e1;
11413   t3117 = t71 * t3116;
11414   t3121 = -t2175 - 0.4e1 / 0.243e3 * t2178 + 0.4e1 / 0.81e2 * t2181 - 0.4e1 / 0.243e3 * t2994 - 0.16e2 / 0.243e3 * t490 * t2183 * t2996 + 0.4e1 / 0.81e2 * t490 * t643 * t3000 + 0.8e1 / 0.81e2 * t490 * t3004 * t3005 + 0.4e1 / 0.81e2 * t3010 + 0.4e1 / 0.81e2 * t490 * t643 * t3012 - 0.4e1 / 0.27e2 * t38 * t40 * t3117;
11415   t3122 = t162 * t3121;
11416   t3126 = t474 * t1034 - 0.6e1 * t478 * t2785 + t33 * t2987 + t2989 * t230 + t3122 * t230 + t1075 * t732 / 0.10e2;
11417   t3127 = p->cam_beta * t3126;
11418   t3129 = t8 * t18 * t3127;
11419   t3131 = t7 * t2404;
11420   t3132 = t5 * t3131;
11421   t3133 = t17 * t444;
11422   t3134 = t1082 * t767;
11423   t3136 = t3132 * t3133 * t3134;
11424   t3139 = t8 * t2411 * t1083;
11425   t3141 = t936 * t1082;
11426   t3143 = t2416 * t2417 * t3141;
11427   t3145 = t252 * t2255;
11428   t3146 = t444 * t9;
11429   t3148 = t8 * t3145 * t3146;
11430   t3152 = t1345 * t767;
11431   t3154 = t8 * t766 * t3152;
11432   t3157 = t8 * t772 * t1345;
11433   t3160 = t875 * t262;
11434   t3161 = t3160 * t1091;
11435   t3165 = t484 * t1108;
11436   t3167 = t490 * t3165 * t1123;
11437   t3169 = t780 * t1122;
11438   t3170 = t3169 * t781;
11439   t3175 = t490 * t2436 * t1128;
11440   t3177 = t2442 * t1127;
11441   t3178 = t3177 * t781;
11442   t3182 = t2803 * t288;
11443   t3183 = t780 * t9;
11444   t3188 = my_piecewise3(t295, 0, t2435 + t2438 / 0.162e3 + t3167 / 0.540e3 + t490 * t1109 * t3170 / 0.540e3 + t3175 / 0.162e3 + 0.2e1 / 0.81e2 * t490 * t778 * t3178 + t490 * t3182 * t3183 / 0.27e2);
11445   t3192 = t2459 * t787;
11446   t3195 = t787 * t1133;
11447   t3198 = t789 * t3188;
11448   t3205 = t2472 * t1133;
11449   t3206 = t3205 * t820;
11450   t3208 = t793 * t3188;
11451   t3211 = t2479 * t1133;
11452   t3214 = t787 * t305;
11453   t3220 = t297 * t3188;
11454   t3221 = t3220 * t304;
11455   t3222 = -0.2e1 * t3206 + t3208 * t304 / 0.2e1 + t3211 * t820 / 0.4e1 - 0.4e1 * t3214 * t1133 - t864 * t1166 - 0.4e1 * t797 * t3188 - t3221;
11456   t3225 = -t3192 * t1166 / 0.2e1 + 0.2e1 * t2464 * t3195 - t3198 + 0.2e1 * t3188 * t308 + 0.2e1 * t1133 * t802 + 0.2e1 * t787 * t1145 + 0.2e1 * t296 * t3222;
11457   t3228 = -0.8e1 / 0.3e1 * t1133 * t805 - 0.8e1 / 0.3e1 * t787 * t1148 - 0.8e1 / 0.3e1 * t296 * t3225 - 0.8e1 / 0.3e1 * t3188 * t311;
11458   t3230 = t808 * t1154;
11459   t3233 = t787 * t327;
11460   t3240 = t296 * t1174;
11461   t3244 = t296 * t3188;
11462   t3246 = t1197 * t787;
11463   t3247 = 0.768e3 * t3246;
11464   t3248 = t344 * t3188;
11465   t3249 = 0.256e3 * t3248;
11466   t3250 = 0.40e2 * t3195 + 0.40e2 * t3244 - t3247 - t3249;
11467   t3252 = t1164 * t793;
11468   t3257 = t1166 * t787;
11469   t3260 = t3188 * t304;
11470   t3267 = t78 * t3188;
11471   t3272 = t3250 * t304 + t3252 * t820 / 0.2e1 + t2515 * t1166 / 0.2e1 - 0.3e1 / 0.2e1 * t2517 * t3257 + t819 * t3260 / 0.2e1 + t2524 * t3257 / 0.4e1 - 0.72e2 * t3195 - 0.72e2 * t3244 + t3247 + t3249 + 0.10e2 * t3267 * t299 - 0.10e2 * t3221 - 0.5e1 * t3206;
11472   t3275 = 0.48e2 * t1133 * t2501 + 0.48e2 * t1133 * t3233 + 0.24e2 * t301 * t3272 + 0.48e2 * t3188 * t810 + 0.48e2 * t3240 * t787;
11473   t3276 = t3275 * t336;
11474   t3279 = t831 * t1184;
11475   t3282 = t832 * t41;
11476   t3291 = t301 * t3188;
11477   t3295 = t319 * t3188;
11478   t3299 = t357 * t3188;
11479   t3301 = t348 * t1133;
11480   t3306 = 0.1536e4 * t1160 * t787 - 0.11520e5 * t1162 * t787 + 0.161658e6 * t1213 * t787 - 0.1105920e7 * t3188 * t350 - 0.8847360e7 * t3301 * t787 - 0.8e1 * t3188 + 0.768e3 * t3291 - 0.2880e4 * t3295 + 0.26943e5 * t3299;
11481   t3308 = t1205 * t793;
11482   t3325 = t301 * t1215;
11483   t3334 = t346 * t3188;
11484   t3336 = 0.153600e6 * t1199 * t787 + 0.448e3 * t3195 + 0.448e3 * t3244 - 0.17280e5 * t3246 - 0.5760e4 * t3248 + 0.30720e5 * t3334;
11485   t3341 = t3188 * t299;
11486   t3350 = t302 * t3188;
11487   t3353 = t3306 * t304 + t3308 * t820 / 0.2e1 + t2564 * t1166 / 0.2e1 - 0.3e1 / 0.2e1 * t2566 * t3257 + t847 * t3260 / 0.2e1 + t2571 * t3257 / 0.4e1 + 0.144e3 * t2574 * t3195 + 0.72e2 * t2577 * t1133 + 0.72e2 * t850 * t3188 + 0.72e2 * t3325 * t787 + 0.24e2 * t344 * t3336 + 0.240e3 * t824 * t1218 + 0.240e3 * t324 * t3341 - 0.480e3 * t1143 * t820 - t2602 * t3257 + 0.4e1 * t863 * t1138 * t787 - 0.2e1 * t863 * t3350;
11488   t3356 = 0.8e1 / 0.7e1 * t1133 * t867 + 0.8e1 / 0.7e1 * t787 * t1224 + 0.8e1 / 0.7e1 * t296 * t3353 + 0.8e1 / 0.7e1 * t3188 * t367;
11489   t3357 = t3356 * t41;
11490   t3358 = t3357 * t45;
11491   t3365 = t3228 * t316 - t3230 * t1122 / 0.5e1 + 0.35e2 / 0.81e2 * t3276 * t340 + 0.35e2 / 0.81e2 * t3279 * t340 - 0.14e2 / 0.81e2 * t3282 * t1192 + 0.26329605555555555556e-1 * t3358 * t373 - 0.70212281481481481483e-1 * t872 * t1232 - 0.10531842222222222222e-1 * t872 * t1236;
11492   t3367 = t1243 * t933;
11493   t3372 = t490 * t2623 * t1246;
11494   t3374 = t1246 * t781;
11495   t3378 = t928 * t1127;
11496   t3382 = t2803 * t780;
11497   t3383 = t400 * t9;
11498   t3388 = t38 * t485 * t1280;
11499   t3390 = t1279 * t781;
11500   t3398 = t166 * t190 * t1250;
11501   t3400 = t17 * t913;
11502   t3401 = t1127 * t781;
11503   t3405 = t389 * t9;
11504   t3409 = -t2647 + t2649 / 0.27e2 + t3398 / 0.27e2 - 0.2e1 / 0.27e2 * t3023 * t3400 * t3401 - 0.2e1 / 0.9e1 * t166 * t2256 * t3405;
11505   t3410 = t388 * t3409;
11506   t3415 = t490 * t2623 * t1257;
11507   t3417 = t1257 * t781;
11508   t3421 = t923 * t1127;
11509   t3425 = t395 * t9;
11510   t3430 = t38 * t485 * t1275;
11511   t3432 = t1274 * t781;
11512   t3438 = t179 * t40 * t1261;
11513   t3440 = t180 * t780;
11514   t3444 = t290 * t9;
11515   t3448 = t2685 - 0.4e1 / 0.27e2 * t2687 - 0.4e1 / 0.27e2 * t3438 + 0.2e1 / 0.27e2 * t3065 * t3440 * t3401 + 0.4e1 / 0.9e1 * t179 * t1939 * t3444;
11516   t3449 = t3448 * t388;
11517   t3450 = t1265 * t907;
11518   t3451 = t3450 * t388;
11519   t3455 = t679 * t2704 * t1267;
11520   t3457 = t1267 * t781;
11521   t3461 = t908 * t1127;
11522   t3465 = t3092 * t913;
11523   t3466 = t390 * t9;
11524   t3471 = t679 * t2708 * t1266;
11525   t3473 = t1266 * t781;
11526   t3483 = t3449 + t3451 - t2703 - 0.2e1 / 0.81e2 * t2706 + t2710 / 0.27e2 - 0.2e1 / 0.81e2 * t3455 - 0.5e1 / 0.81e2 * t679 * t2714 * t3457 + t679 * t914 * t3461 / 0.27e2 - 0.2e1 / 0.27e2 * t679 * t3465 * t3466 + t3471 / 0.27e2 + t679 * t914 * t3473 / 0.27e2 - t679 * t919 * t3449 / 0.18e2 - t679 * t919 * t3451 / 0.18e2;
11527   t3484 = t290 * t3483;
11528   t3488 = 0.2e1 * t908 * t1254 + 0.2e1 * t3410 + t2664 + t2666 / 0.81e2 - t2669 / 0.27e2 + t3415 / 0.81e2 + 0.4e1 / 0.81e2 * t490 * t2630 * t3417 - t490 * t880 * t3421 / 0.27e2 + 0.2e1 / 0.27e2 * t490 * t3382 * t3425 - t3430 / 0.27e2 - t490 * t880 * t3432 / 0.27e2 + t38 * t40 * t3484 / 0.9e1;
11529   t3489 = t290 * t3488;
11530   t3493 = -t2622 - 0.4e1 / 0.243e3 * t2625 + 0.4e1 / 0.81e2 * t2628 - 0.4e1 / 0.243e3 * t3372 - 0.16e2 / 0.243e3 * t490 * t2630 * t3374 + 0.4e1 / 0.81e2 * t490 * t880 * t3378 - 0.8e1 / 0.81e2 * t490 * t3382 * t3383 + 0.4e1 / 0.81e2 * t3388 + 0.4e1 / 0.81e2 * t490 * t880 * t3390 - 0.4e1 / 0.27e2 * t38 * t40 * t3489;
11531   t3494 = t378 * t3493;
11532   t3498 = t1097 * t875 - 0.6e1 * t1101 * t3161 + t269 * t3365 + t3367 * t428 + t3494 * t428 + t934 * t1315 / 0.10e2;
11533   t3499 = p->cam_beta * t3498;
11534   t3501 = t8 * t254 * t3499;
11535   t3503 = -t2758 / 0.6e1 - t2761 / 0.6e1 - t2765 / 0.2e1 - t2770 / 0.2e1 - t1819 / 0.6e1 + t1835 - t1837 / 0.8e1 + t2778 / 0.2e1 + t2781 / 0.8e1 + 0.3e1 / 0.8e1 * t3129 - t3136 / 0.6e1 - t3139 / 0.6e1 + t3143 / 0.2e1 + t3148 / 0.2e1 - t2413 / 0.6e1 + t2429 + t2431 / 0.8e1 - t3154 / 0.2e1 - t3157 / 0.8e1 + 0.3e1 / 0.8e1 * t3501;
11536   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
11537     v2rho2[1] = t10 * t3503 + t1081 - t1086 - t1348 - t1805 - t1807 - t459 - t765 - t771 + t940 - t948;
11538 
11539   t3507 = t944 * t944;
11540   t3508 = t247 * t3507;
11541   t3510 = t8 * t1811 * t3508;
11542   t3511 = t3510 / 0.6e1;
11543   t3512 = t2761 / 0.3e1;
11544   t3513 = t1077 * t944;
11545   t3515 = t2775 * t2417 * t3513;
11546   t3516 = t452 + t1826;
11547   t3517 = t247 * t3516;
11548   t3519 = t8 * t450 * t3517;
11549   t3520 = t3519 / 0.2e1;
11550   t3521 = t2781 / 0.4e1;
11551   t3523 = t943 * t943;
11552   t3524 = t1969 * t3523;
11553   t3528 = 0.2e1 * t3516;
11554   t3529 = t513 * t3528;
11555   t3534 = my_piecewise3(t76, 0, t1942 + t2791 / 0.81e2 + 0.2e1 / 0.81e2 * t490 * t511 * t3524 - t490 * t511 * t3529 / 0.54e2);
11556   t3539 = t954 * t954;
11557   t3540 = t1986 * t3539;
11558   t3550 = t1999 * t3539;
11559   t3551 = t3550 * t86;
11560   t3553 = t525 * t3534;
11561   t3556 = t2006 * t3539;
11562   t3561 = t84 * t3539;
11563   t3565 = t79 * t3534;
11564   t3566 = t3565 * t86;
11565   t3567 = -0.2e1 * t3551 + t3553 * t86 / 0.2e1 + t3556 * t86 / 0.4e1 - 0.4e1 * t3539 * t87 - t3561 * t86 - 0.4e1 * t529 * t3534 - t3566;
11566   t3570 = -t3540 * t86 / 0.2e1 + 0.2e1 * t1991 * t3539 - t521 * t3534 + 0.2e1 * t3534 * t90 + 0.4e1 * t954 * t966 + 0.2e1 * t77 * t3567;
11567   t3573 = -0.8e1 / 0.3e1 * t3534 * t93 - 0.16e2 / 0.3e1 * t954 * t969 - 0.8e1 / 0.3e1 * t77 * t3570;
11568   t3582 = t77 * t3534;
11569   t3584 = t83 * t3539;
11570   t3585 = 0.768e3 * t3584;
11571   t3586 = t128 * t3534;
11572   t3587 = 0.256e3 * t3586;
11573   t3588 = 0.40e2 * t3539 + 0.40e2 * t3582 - t3585 - t3587;
11574   t3591 = t3539 * t86;
11575   t3594 = t3534 * t86;
11576   t3601 = t78 * t3534;
11577   t3606 = t3588 * t86 + t2874 * t982 - 0.3e1 / 0.2e1 * t2044 * t3591 + t556 * t3594 / 0.2e1 + t2051 * t3591 / 0.4e1 - 0.72e2 * t3539 - 0.72e2 * t3582 + t3585 + t3587 + 0.10e2 * t3601 * t81 - 0.10e2 * t3566 - 0.5e1 * t3551;
11578   t3609 = 0.48e2 * t109 * t3539 + 0.96e2 * t2862 * t954 + 0.48e2 * t3534 * t547 + 0.24e2 * t3606 * t83;
11579   t3610 = t3609 * t120;
11580   t3618 = t77 * t3539;
11581   t3620 = t83 * t3534;
11582   t3622 = t128 * t3539;
11583   t3624 = t101 * t3534;
11584   t3626 = t130 * t3539;
11585   t3628 = t141 * t3534;
11586   t3634 = -0.8847360e7 * t132 * t3539 - 0.1105920e7 * t134 * t3534 - 0.8e1 * t3534 + 0.1536e4 * t3618 + 0.768e3 * t3620 - 0.11520e5 * t3622 - 0.2880e4 * t3624 + 0.161658e6 * t3626 + 0.26943e5 * t3628;
11587   t3653 = t101 * t3539;
11588   t3655 = t130 * t3534;
11589   t3657 = 0.448e3 * t3539 + 0.448e3 * t3582 - 0.17280e5 * t3584 - 0.5760e4 * t3586 + 0.153600e6 * t3653 + 0.30720e5 * t3655;
11590   t3663 = t3534 * t81;
11591   t3670 = t525 * t3539;
11592   t3673 = t84 * t3534;
11593   t3676 = t3634 * t86 + t2930 * t982 - 0.3e1 / 0.2e1 * t2102 * t3591 + t598 * t3594 / 0.2e1 + t2107 * t3591 / 0.4e1 + 0.144e3 * t2110 * t3539 + 0.144e3 * t2947 * t954 + 0.72e2 * t601 * t3534 + 0.24e2 * t128 * t3657 + 0.240e3 * t78 * t3539 * t81 + 0.240e3 * t106 * t3663 - 0.480e3 * t79 * t3539 * t86 - t2138 * t3591 + 0.4e1 * t614 * t3670 - 0.2e1 * t614 * t3673;
11594   t3679 = 0.8e1 / 0.7e1 * t3534 * t151 + 0.16e2 / 0.7e1 * t954 * t1026 + 0.8e1 / 0.7e1 * t77 * t3676;
11595   t3680 = t3679 * t41;
11596   t3681 = t3680 * t45;
11597   t3684 = t3573 * t98 + 0.35e2 / 0.81e2 * t3610 * t124 + 0.26329605555555555556e-1 * t3681 * t157;
11598   t3688 = t202 * t3523;
11599   t3692 = t1069 * t943;
11600   t3696 = t202 * t3528;
11601   t3703 = t681 * t3523;
11602   t3707 = t191 * t3528;
11603   t3711 = -t2200 + 0.2e1 / 0.27e2 * t3020 - 0.2e1 / 0.27e2 * t166 * t168 * t3703 + t166 * t168 * t3707 / 0.9e1;
11604   t3712 = t186 * t3711;
11605   t3716 = t197 * t3523;
11606   t3720 = t1064 * t943;
11607   t3724 = t197 * t3528;
11608   t3729 = t513 * t3523;
11609   t3733 = t71 * t3528;
11610   t3737 = t2238 - 0.8e1 / 0.27e2 * t3062 + 0.2e1 / 0.27e2 * t179 * t181 * t3729 - 0.2e1 / 0.9e1 * t179 * t181 * t3733;
11611   t3738 = t3737 * t186;
11612   t3739 = t1055 * t1055;
11613   t3740 = t3739 * t186;
11614   t3743 = t192 * t3523;
11615   t3747 = t1056 * t943;
11616   t3751 = t192 * t3528;
11617   t3761 = t3738 + t3740 - t2259 - 0.4e1 / 0.81e2 * t3081 + 0.2e1 / 0.27e2 * t3099 - 0.5e1 / 0.81e2 * t679 * t2270 * t3743 + 0.2e1 / 0.27e2 * t679 * t682 * t3747 + t679 * t682 * t3751 / 0.27e2 - t679 * t687 * t3738 / 0.18e2 - t679 * t687 * t3740 / 0.18e2;
11618   t3762 = t71 * t3761;
11619   t3766 = 0.2e1 * t1056 * t1044 + 0.2e1 * t3712 + t2217 + 0.2e1 / 0.81e2 * t3039 - 0.2e1 / 0.27e2 * t3054 + 0.4e1 / 0.81e2 * t490 * t2183 * t3716 - 0.2e1 / 0.27e2 * t490 * t643 * t3720 - t490 * t643 * t3724 / 0.27e2 + t38 * t40 * t3762 / 0.9e1;
11620   t3767 = t71 * t3766;
11621   t3771 = -t2175 - 0.8e1 / 0.243e3 * t2994 + 0.8e1 / 0.81e2 * t3010 - 0.16e2 / 0.243e3 * t490 * t2183 * t3688 + 0.8e1 / 0.81e2 * t490 * t643 * t3692 + 0.4e1 / 0.81e2 * t490 * t643 * t3696 - 0.4e1 / 0.27e2 * t38 * t40 * t3767;
11622   t3772 = t162 * t3771;
11623   t3774 = t230 * t3772 + t33 * t3684;
11624   t3775 = p->cam_beta * t3774;
11625   t3777 = t8 * t18 * t3775;
11626   t3778 = 0.3e1 / 0.8e1 * t3777;
11627   t3779 = t1082 * t1082;
11628   t3780 = t444 * t3779;
11629   t3782 = t8 * t2405 * t3780;
11630   t3783 = t3782 / 0.6e1;
11631   t3784 = t3139 / 0.3e1;
11632   t3785 = t1345 * t1082;
11633   t3787 = t8 * t766 * t3785;
11634   t3788 = -t3516;
11635   t3789 = t444 * t3788;
11636   t3791 = t8 * t766 * t3789;
11637   t3792 = t3791 / 0.2e1;
11638   t3793 = t3157 / 0.4e1;
11639   t3794 = t1091 * t1091;
11640   t3796 = 0.1e1 / t1110;
11641   t3797 = sigma[2] * t3796;
11642   t3800 = my_piecewise3(t260, t3797 * t257 / 0.4e1, 0);
11643   t3803 = t261 * t3794;
11644   t3805 = t262 * t3800;
11645   t3807 = 0.2e1 * t261 * t3800 + 0.2e1 * t3794 + 0.18e2 * t3803 + 0.9e1 * t3805;
11646   t3808 = t3807 * t268;
11647   t3810 = t1096 * t1100;
11648   t3815 = t267 * t267;
11649   t3816 = 0.1e1 / t3815;
11650   t3817 = t265 * t3816;
11651   t3818 = t262 * t262;
11652   t3819 = t376 * t3818;
11653   t3820 = t3819 * t3794;
11654   t3823 = t1239 * t262;
11655   t3824 = t3823 * t1091;
11656   t3827 = t376 * t261;
11657   t3828 = t3827 * t3794;
11658   t3831 = t1102 * t3800;
11659   t3834 = t286 * t286;
11660   t3836 = 0.1e1 / t338 / t3834;
11661   t3837 = t1122 * t1122;
11662   t3838 = t3836 * t3837;
11663   t3839 = t275 * t3838;
11664   t3843 = 0.1e1 / t272 / t279;
11665   t3844 = sigma[2] * t3843;
11666   t3845 = t46 * t3844;
11667   t3847 = t279 * t1110;
11668   t3849 = 0.1e1 / t271 / t3847;
11669   t3851 = t58 * t278 * t3849;
11670   t3853 = 0.14711144691358024691e1 * t3845 + 0.90860501116977068800e-1 * t3851;
11671   t3854 = t1190 * t3853;
11672   t3855 = t275 * t3854;
11673   t3858 = t3844 * t339;
11674   t3861 = t1113 * t1235;
11675   t3869 = 0.1e1 / t315 / t3834;
11676   t3870 = t314 * t3869;
11677   t3875 = t1151 * t1154;
11678   t3881 = 0.1e1 / t287 / t3834;
11679   t3882 = t39 * t3881;
11680   t3883 = t290 * t3837;
11681   t3887 = t3169 * t1127;
11682   t3891 = t290 * t3853;
11683   t3895 = t1127 * t1127;
11684   t3896 = t2442 * t3895;
11685   t3900 = -t3528;
11686   t3901 = t780 * t3900;
11687   t3906 = my_piecewise3(t295, 0, t2435 + t3167 / 0.270e3 + t3175 / 0.81e2 + 0.11e2 / 0.1800e4 * t490 * t3882 * t3883 + t490 * t1109 * t3887 / 0.270e3 - t490 * t1109 * t3891 / 0.180e3 + 0.2e1 / 0.81e2 * t490 * t778 * t3896 - t490 * t778 * t3901 / 0.54e2);
11688   t3911 = t1133 * t1133;
11689   t3912 = t2459 * t3911;
11690   t3922 = t2472 * t3911;
11691   t3923 = t3922 * t304;
11692   t3925 = t793 * t3906;
11693   t3928 = t2479 * t3911;
11694   t3933 = t302 * t3911;
11695   t3937 = t297 * t3906;
11696   t3938 = t3937 * t304;
11697   t3939 = -0.2e1 * t3923 + t3925 * t304 / 0.2e1 + t3928 * t304 / 0.4e1 - 0.4e1 * t3911 * t305 - t3933 * t304 - 0.4e1 * t797 * t3906 - t3938;
11698   t3942 = -t3912 * t304 / 0.2e1 + 0.2e1 * t2464 * t3911 - t789 * t3906 + 0.2e1 * t3906 * t308 + 0.4e1 * t1133 * t1145 + 0.2e1 * t296 * t3939;
11699   t3945 = -0.8e1 / 0.3e1 * t3906 * t311 - 0.16e2 / 0.3e1 * t1133 * t1148 - 0.8e1 / 0.3e1 * t296 * t3942;
11700   t3947 = t45 * t3836;
11701   t3948 = t3947 * t3837;
11702   t3951 = t1177 * t1184;
11703   t3954 = tau[1] * t1112;
11704   t3955 = 0.64685031111111111112e0 * t3954;
11705   t3957 = -t3955 + 0.41356361037037037035e0 * t3844;
11706   t3958 = t330 * t3957;
11707   t3968 = t296 * t3906;
11708   t3970 = t301 * t3911;
11709   t3971 = 0.768e3 * t3970;
11710   t3972 = t344 * t3906;
11711   t3973 = 0.256e3 * t3972;
11712   t3974 = 0.40e2 * t3911 + 0.40e2 * t3968 - t3971 - t3973;
11713   t3977 = t3911 * t304;
11714   t3980 = t3906 * t304;
11715   t3987 = t78 * t3906;
11716   t3992 = t3974 * t304 + t3252 * t1166 - 0.3e1 / 0.2e1 * t2517 * t3977 + t819 * t3980 / 0.2e1 + t2524 * t3977 / 0.4e1 - 0.72e2 * t3911 - 0.72e2 * t3968 + t3971 + t3973 + 0.10e2 * t3987 * t299 - 0.10e2 * t3938 - 0.5e1 * t3923;
11717   t3995 = 0.96e2 * t1133 * t3240 + 0.24e2 * t301 * t3992 + 0.48e2 * t327 * t3911 + 0.48e2 * t3906 * t810;
11718   t3996 = t3995 * t336;
11719   t3999 = t1178 * t41;
11720   t4002 = t1185 * t41;
11721   t4005 = t1191 * t3853;
11722   t4013 = t296 * t3911;
11723   t4015 = t301 * t3906;
11724   t4017 = t344 * t3911;
11725   t4019 = t319 * t3906;
11726   t4021 = t346 * t3911;
11727   t4023 = t357 * t3906;
11728   t4029 = -0.8847360e7 * t348 * t3911 - 0.1105920e7 * t350 * t3906 - 0.8e1 * t3906 + 0.1536e4 * t4013 + 0.768e3 * t4015 - 0.11520e5 * t4017 - 0.2880e4 * t4019 + 0.161658e6 * t4021 + 0.26943e5 * t4023;
11729   t4048 = t319 * t3911;
11730   t4050 = t346 * t3906;
11731   t4052 = 0.448e3 * t3911 + 0.448e3 * t3968 - 0.17280e5 * t3970 - 0.5760e4 * t3972 + 0.153600e6 * t4048 + 0.30720e5 * t4050;
11732   t4058 = t3906 * t299;
11733   t4065 = t793 * t3911;
11734   t4068 = t302 * t3906;
11735   t4071 = t4029 * t304 + t3308 * t1166 - 0.3e1 / 0.2e1 * t2566 * t3977 + t847 * t3980 / 0.2e1 + t2571 * t3977 / 0.4e1 + 0.144e3 * t2574 * t3911 + 0.144e3 * t3325 * t1133 + 0.72e2 * t850 * t3906 + 0.24e2 * t344 * t4052 + 0.240e3 * t78 * t3911 * t299 + 0.240e3 * t324 * t4058 - 0.480e3 * t297 * t3911 * t304 - t2602 * t3977 + 0.4e1 * t863 * t4065 - 0.2e1 * t863 * t4068;
11736   t4074 = 0.8e1 / 0.7e1 * t3906 * t367 + 0.16e2 / 0.7e1 * t1133 * t1224 + 0.8e1 / 0.7e1 * t296 * t4071;
11737   t4075 = t4074 * t41;
11738   t4076 = t4075 * t45;
11739   t4079 = 0.14744579111111111111e-1 * t372 * t3839 - 0.10531842222222222222e-1 * t372 * t3855 + 0.25744503209876543210e0 * t372 * t3858 + 0.56169825185185185185e-1 * t372 * t3861 - 0.14042456296296296297e0 * t1229 * t1232 - 0.21063684444444444444e-1 * t1229 * t1236 + 0.6e1 / 0.25e2 * t3870 * t3837 - t1155 * t3853 / 0.5e1 - 0.2e1 / 0.5e1 * t3875 * t1122 + t3945 * t316 + 0.98e2 / 0.405e3 * t1188 * t3948 + 0.70e2 / 0.81e2 * t3951 * t340 + 0.35e2 / 0.81e2 * t3958 * t340 + 0.35e2 / 0.81e2 * t3996 * t340 - 0.28e2 / 0.81e2 * t3999 * t1192 - 0.28e2 / 0.81e2 * t4002 * t1192 - 0.14e2 / 0.81e2 * t1188 * t4005 + 0.26329605555555555556e-1 * t4076 * t373;
11740   t4083 = t3818 * t3794;
11741   t4090 = 0.12e2 * t1094 * t3810 + 0.12e2 * t1101 * t3803 + 0.6e1 * t1101 * t3805 - 0.54e2 * t3817 * t4083 - t3808;
11742   t4091 = t4090 * t405;
11743   t4093 = t1243 * t1284;
11744   t4100 = t400 * t3895;
11745   t4104 = t1279 * t1127;
11746   t4108 = t400 * t3900;
11747   t4115 = t913 * t3895;
11748   t4119 = t389 * t3900;
11749   t4123 = -t2647 + 0.2e1 / 0.27e2 * t3398 - 0.2e1 / 0.27e2 * t166 * t168 * t4115 + t166 * t168 * t4119 / 0.9e1;
11750   t4124 = t388 * t4123;
11751   t4128 = t395 * t3895;
11752   t4132 = t1274 * t1127;
11753   t4136 = t395 * t3900;
11754   t4141 = t780 * t3895;
11755   t4145 = t290 * t3900;
11756   t4149 = t2685 - 0.8e1 / 0.27e2 * t3438 + 0.2e1 / 0.27e2 * t179 * t181 * t4141 - 0.2e1 / 0.9e1 * t179 * t181 * t4145;
11757   t4150 = t4149 * t388;
11758   t4151 = t1265 * t1265;
11759   t4152 = t4151 * t388;
11760   t4155 = t390 * t3895;
11761   t4159 = t1266 * t1127;
11762   t4163 = t390 * t3900;
11763   t4173 = t4150 + t4152 - t2703 - 0.4e1 / 0.81e2 * t3455 + 0.2e1 / 0.27e2 * t3471 - 0.5e1 / 0.81e2 * t679 * t2714 * t4155 + 0.2e1 / 0.27e2 * t679 * t914 * t4159 + t679 * t914 * t4163 / 0.27e2 - t679 * t919 * t4150 / 0.18e2 - t679 * t919 * t4152 / 0.18e2;
11764   t4174 = t290 * t4173;
11765   t4178 = 0.2e1 * t1266 * t1254 + 0.2e1 * t4124 + t2664 + 0.2e1 / 0.81e2 * t3415 - 0.2e1 / 0.27e2 * t3430 + 0.4e1 / 0.81e2 * t490 * t2630 * t4128 - 0.2e1 / 0.27e2 * t490 * t880 * t4132 - t490 * t880 * t4136 / 0.27e2 + t38 * t40 * t4174 / 0.9e1;
11766   t4179 = t290 * t4178;
11767   t4183 = -t2622 - 0.8e1 / 0.243e3 * t3372 + 0.8e1 / 0.81e2 * t3388 - 0.16e2 / 0.243e3 * t490 * t2630 * t4100 + 0.8e1 / 0.81e2 * t490 * t880 * t4104 + 0.4e1 / 0.81e2 * t490 * t880 * t4108 - 0.4e1 / 0.27e2 * t38 * t40 * t4179;
11768   t4184 = t378 * t4183;
11769   t4189 = 0.1e1 / t1290 / t427;
11770   t4190 = t1314 * t1314;
11771   t4191 = t4189 * t4190;
11772   t4198 = t1303 * t1303;
11773   t4207 = (0.40e2 / 0.9e1 * t3954 - 0.11e2 / 0.9e1 * t3844) * t41 * t45 / 0.4e1 + 0.22e2 / 0.81e2 * t3845;
11774   t4210 = t4207 * t261;
11775   t4218 = t420 * t3800;
11776   t4225 = 0.125e3 / 0.4374e4 * t3851 + 0.110e3 / 0.27e2 * t409 * t410 * t3843 + 0.584e3 / 0.405e3 * t4198 + 0.584e3 / 0.405e3 * t420 * t4207 - 0.146e3 / 0.135e3 * t4210 * t424 - 0.292e3 / 0.135e3 * t1303 * t1091 * t424 + 0.292e3 / 0.135e3 * t1306 * t1091 - 0.146e3 / 0.135e3 * t4218 * t424 + 0.292e3 / 0.135e3 * t420 * t3794 + 0.146e3 / 0.135e3 * t423 * t3800;
11777   t4226 = t1291 * t4225;
11778   t4229 = t3808 * t376 - 0.12e2 * t3810 * t1103 + 0.2e1 * t1097 * t1239 + 0.54e2 * t3817 * t3820 - 0.12e2 * t1101 * t3824 - 0.12e2 * t1101 * t3828 - 0.6e1 * t1101 * t3831 + t269 * t4079 + t4091 * t428 + 0.2e1 * t4093 * t428 + t1244 * t1315 / 0.5e1 + t4184 * t428 + t1285 * t1315 / 0.5e1 - 0.9e1 / 0.100e3 * t406 * t4191 + t406 * t4226 / 0.10e2;
11779   t4236 = t441 * t3818;
11780   t4237 = t4236 * t3794;
11781   t4240 = t1339 * t262;
11782   t4241 = t4240 * t1091;
11783   t4244 = t441 * t261;
11784   t4245 = t4244 * t3794;
11785   t4248 = t1321 * t3800;
11786   t4261 = 0.62522364938271604938e0 * t3845 - 0.5e1 / 0.9e1 * (t3955 + 0.11603759851851851852e0 * t3844) * t41 * t45;
11787   t4264 = t1333 * t1190;
11788   t4267 = t438 * t3836;
11789   t4272 = 0.6e1 / 0.25e2 * t3869 * t3837 - t1154 * t3853 / 0.5e1 + 0.7e1 / 0.9e1 * t4261 * t339 - 0.28e2 / 0.45e2 * t4264 * t1122 + 0.98e2 / 0.225e3 * t4267 * t3837 - 0.14e2 / 0.45e2 * t1336 * t3853;
11790   t4275 = t1243 * t1291;
11791   t4278 = t378 * t4189;
11792   t4283 = -p->cam_beta * t4229 + t3808 * t441 - 0.12e2 * t3810 * t1322 + 0.2e1 * t1097 * t1339 + 0.54e2 * t3817 * t4237 - 0.12e2 * t1101 * t4241 - 0.12e2 * t1101 * t4245 - 0.6e1 * t1101 * t4248 + t269 * t4272 + t4090 * t428 + t4275 * t1314 / 0.5e1 - 0.9e1 / 0.100e3 * t4278 * t4190 + t1342 * t4225 / 0.10e2;
11793   t4285 = t8 * t254 * t4283;
11794   t4286 = 0.3e1 / 0.8e1 * t4285;
11795   t4287 = -t3511 - t3512 + t3515 - t3520 + t1835 + t3521 + t3778 - t3783 - t3784 - t3787 - t3792 + t2429 - t3793 - t4286;
11796   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
11797     v2rho2[2] = -t947 - t1805 + 0.3e1 / 0.4e1 * t1080 - t1085 - t1807 - 0.3e1 / 0.4e1 * t1347 + t10 * t4287;
11798 
11799   t4291 = t8 * t18 * t1517 / 0.2e1;
11800   t4292 = t1517 * t455;
11801   t4296 = t468 * t1356;
11802   t4300 = my_piecewise3(t24, -t464 * t21 / 0.8e1, 0);
11803   t4301 = t25 * t4300;
11804   t4303 = t1357 * t468;
11805   t4305 = t26 * t4300;
11806   t4307 = 0.2e1 * t4296 + 0.2e1 * t4301 + 0.18e2 * t4303 + 0.9e1 * t4305;
11807   t4308 = t4307 * t32;
11808   t4310 = t1361 * t477;
11809   t4316 = t1862 * t160;
11810   t4317 = t1863 * t1356;
11811   t4318 = t4317 * t468;
11812   t4321 = t1868 * t1356;
11813   t4324 = t478 * t160;
11814   t4327 = t479 * t4300;
11815   t4331 = t1473 * t26;
11816   t4332 = t4331 * t468;
11817   t4340 = t490 * t1943 * t1373;
11818   t4342 = t1373 * t506;
11819   t4346 = t513 * t1372;
11820   t4347 = t4346 * t454;
11821   t4351 = t46 * t496;
11822   t4354 = t58 * sigma[0] * t502;
11823   t4356 = -0.40121303703703703704e0 * t4351 - 0.28692789826413811200e-1 * t4354;
11824   t4357 = t71 * t4356;
11825   t4362 = my_piecewise3(t76, 0, t4340 / 0.540e3 + 0.11e2 / 0.1800e4 * t490 * t1953 * t4342 + t490 * t493 * t4347 / 0.540e3 - t490 * t493 * t4357 / 0.180e3);
11826   t4365 = t77 * t1415;
11827   t4368 = t519 * t1377;
11828   t4370 = t77 * t4362;
11829   t4372 = t1430 * t519;
11830   t4373 = 0.768e3 * t4372;
11831   t4374 = t128 * t4362;
11832   t4375 = 0.256e3 * t4374;
11833   t4376 = 0.40e2 * t4368 + 0.40e2 * t4370 - t4373 - t4375;
11834   t4378 = t1405 * t525;
11835   t4383 = t1407 * t519;
11836   t4386 = t4362 * t86;
11837   t4393 = t78 * t4362;
11838   t4396 = t79 * t4362;
11839   t4397 = t4396 * t86;
11840   t4399 = t1999 * t1377;
11841   t4400 = t4399 * t557;
11842   t4402 = t4376 * t86 + t4378 * t557 / 0.2e1 + t2042 * t1407 / 0.2e1 - 0.3e1 / 0.2e1 * t2044 * t4383 + t556 * t4386 / 0.2e1 + t2051 * t4383 / 0.4e1 - 0.72e2 * t4368 - 0.72e2 * t4370 + t4373 + t4375 + 0.10e2 * t4393 * t81 - 0.10e2 * t4397 - 0.5e1 * t4400;
11843   t4405 = 0.48e2 * t1377 * t2028 + 0.48e2 * t1377 * t2855 + 0.48e2 * t4362 * t547 + 0.48e2 * t4365 * t519 + 0.24e2 * t4402 * t83;
11844   t4406 = t4405 * t120;
11845   t4409 = t1418 * t575;
11846   t4412 = t568 * t51;
11847   t4417 = t45 * t496;
11848   t4418 = t4417 * t123;
11849   t4421 = t112 * t496;
11850   t4430 = t83 * t4362;
11851   t4434 = t101 * t4362;
11852   t4438 = t141 * t4362;
11853   t4440 = t132 * t1377;
11854   t4445 = -0.1105920e7 * t134 * t4362 + 0.1536e4 * t1401 * t519 - 0.11520e5 * t1403 * t519 + 0.161658e6 * t1446 * t519 - 0.8847360e7 * t4440 * t519 - 0.8e1 * t4362 + 0.768e3 * t4430 - 0.2880e4 * t4434 + 0.26943e5 * t4438;
11855   t4447 = t1438 * t525;
11856   t4464 = t83 * t1448;
11857   t4473 = t130 * t4362;
11858   t4475 = 0.153600e6 * t1432 * t519 + 0.448e3 * t4368 + 0.448e3 * t4370 - 0.17280e5 * t4372 - 0.5760e4 * t4374 + 0.30720e5 * t4473;
11859   t4480 = t4362 * t81;
11860   t4489 = t84 * t4362;
11861   t4492 = t4445 * t86 + t4447 * t557 / 0.2e1 + t2100 * t1407 / 0.2e1 - 0.3e1 / 0.2e1 * t2102 * t4383 + t598 * t4386 / 0.2e1 + t2107 * t4383 / 0.4e1 + 0.144e3 * t2110 * t4368 + 0.72e2 * t2113 * t1377 + 0.72e2 * t601 * t4362 + 0.72e2 * t4464 * t519 + 0.24e2 * t128 * t4475 + 0.240e3 * t561 * t1451 + 0.240e3 * t106 * t4480 - 0.480e3 * t1387 * t557 - t2138 * t4383 + 0.4e1 * t614 * t1382 * t519 - 0.2e1 * t614 * t4489;
11862   t4495 = 0.8e1 / 0.7e1 * t1377 * t618 + 0.8e1 / 0.7e1 * t519 * t1457 + 0.8e1 / 0.7e1 * t4362 * t151 + 0.8e1 / 0.7e1 * t77 * t4492;
11863   t4496 = t4495 * t41;
11864   t4497 = t4496 * t45;
11865   t4500 = t51 * t581;
11866   t4501 = t4500 * t506;
11867   t4504 = t1422 * t41;
11868   t4511 = t582 * t4356;
11869   t4514 = 0.35e2 / 0.81e2 * t4406 * t124 + 0.35e2 / 0.81e2 * t4409 * t124 + 0.18276169650205761317e-1 * t4412 * t124 + 0.26329605555555555556e-1 * t622 * t1466 - 0.70212281481481481483e-1 * t155 * t4418 - 0.48736452400548696845e-1 * t4421 * t124 + 0.26329605555555555556e-1 * t4497 * t157 - 0.10531842222222222222e-1 * t156 * t4501 - 0.73104678600823045268e-2 * t4504 * t583 - 0.14e2 / 0.81e2 * t2068 * t1425 - 0.14e2 / 0.81e2 * t2071 * t1425 - 0.14e2 / 0.81e2 * t579 * t4511;
11870   t4517 = t1419 * t41;
11871   t4535 = t525 * t4362;
11872   t4538 = t2006 * t1377;
11873   t4546 = -0.2e1 * t4400 + t4535 * t86 / 0.2e1 + t4538 * t557 / 0.4e1 - 0.4e1 * t2836 * t1377 - t615 * t1407 - 0.4e1 * t529 * t4362 - t4397;
11874   t4549 = -t2814 * t1407 / 0.2e1 + 0.2e1 * t1991 * t4368 - t521 * t4362 + 0.2e1 * t4362 * t90 + 0.2e1 * t1377 * t534 + 0.2e1 * t519 * t1389 + 0.2e1 * t77 * t4546;
11875   t4552 = -0.8e1 / 0.3e1 * t1377 * t537 - 0.8e1 / 0.3e1 * t519 * t1392 - 0.8e1 / 0.3e1 * t4362 * t93 - 0.8e1 / 0.3e1 * t77 * t4549;
11876   t4554 = t1372 * t506;
11877   t4557 = t155 * t212;
11878   t4558 = t51 * t1881;
11879   t4559 = t4558 * t4554;
11880   t4562 = t497 * t1469;
11881   t4565 = t581 * t4356;
11882   t4566 = t52 * t4565;
11883   t4573 = t1928 * t4554;
11884   t4580 = t1395 * t543;
11885   t4583 = -0.70212281481481481483e-1 * t1462 * t626 - 0.14e2 / 0.81e2 * t4517 * t583 + t4552 * t98 + 0.6e1 / 0.25e2 * t1934 * t4554 + 0.14744579111111111111e-1 * t4557 * t4559 + 0.28084912592592592592e-1 * t156 * t4562 - 0.10531842222222222222e-1 * t156 * t4566 - 0.10531842222222222222e-1 * t623 * t1470 - 0.10531842222222222222e-1 * t1462 * t630 + 0.98e2 / 0.405e3 * t579 * t4573 - t1900 * t1372 / 0.5e1 - t544 * t4356 / 0.5e1 - t4580 * t506 / 0.5e1;
11886   t4584 = t4514 + t4583;
11887   t4596 = 0.6e1 * t1359 * t1855 - 0.54e2 * t1862 * t4318 + 0.12e2 * t4303 * t478 + 0.6e1 * t4305 * t478 + 0.6e1 * t4310 * t471 - t4308;
11888   t4597 = t4596 * t207;
11889   t4599 = t1477 * t701;
11890   t4607 = t2305 * t1495;
11891   t4608 = t4607 * t731;
11892   t4614 = t720 * t41;
11893   t4615 = t4614 * t1465;
11894   t4617 = t1483 * t4417;
11895   t4619 = t496 * t25;
11896   t4621 = t46 * t4619 * t226;
11897   t4623 = t51 * t468;
11898   t4625 = t46 * t4623 * t226;
11899   t4628 = t46 * t1486 * t468;
11900   t4630 = t720 * t1356;
11901   t4633 = t222 * t4300;
11902   t4642 = -0.125e3 / 0.13122e5 * t4354 - 0.10e2 / 0.9e1 * t211 * t4417 - 0.73e2 / 0.14580e5 * t4615 + 0.146e3 / 0.10935e5 * t4617 - 0.73e2 / 0.7290e4 * t4621 + 0.73e2 / 0.19440e5 * t4625 - 0.73e2 / 0.19440e5 * t4628 - 0.146e3 / 0.135e3 * t4630 * t226 - 0.146e3 / 0.135e3 * t4633 * t226 + 0.292e3 / 0.135e3 * t1490 * t468 + 0.146e3 / 0.135e3 * t723 * t1356 + 0.146e3 / 0.135e3 * t225 * t4300;
11903   t4643 = t708 * t4642;
11904   t4646 = t4308 * t160 - 0.6e1 * t4310 * t480 + t1362 * t633 - 0.6e1 * t1855 * t1364 + 0.54e2 * t4316 * t4318 - 0.6e1 * t478 * t4321 - 0.12e2 * t4324 * t4303 - 0.6e1 * t478 * t4327 + t474 * t1473 - 0.6e1 * t478 * t4332 + t33 * t4584 + t4597 * t230 + t4599 * t230 + t1478 * t732 / 0.10e2 + t638 * t1496 / 0.10e2 + t702 * t1496 / 0.10e2 - 0.9e1 / 0.100e3 * t208 * t4608 + t208 * t4643 / 0.10e2;
11905   t4654 = t1862 * t244;
11906   t4657 = t2356 * t1356;
11907   t4660 = t478 * t244;
11908   t4663 = t738 * t4300;
11909   t4667 = t1512 * t26;
11910   t4668 = t4667 * t468;
11911   t4671 = t1933 * t1372;
11912   t4677 = t46 * t496 * t123;
11913   t4687 = 0.6e1 / 0.25e2 * t4671 * t506 - t543 * t4356 / 0.5e1 - 0.11894873388203017833e0 * t4677 - 0.17842310082304526749e-1 * t46 * t4501 - 0.14e2 / 0.45e2 * t2380 * t1372 + 0.98e2 / 0.225e3 * t2383 * t4554 - 0.14e2 / 0.45e2 * t753 * t4356;
11914   t4690 = t1477 * t708;
11915   t4695 = t1495 * t731;
11916   t4700 = -p->cam_beta * t4646 + t4308 * t244 - 0.6e1 * t4310 * t739 + t1362 * t756 - 0.6e1 * t1855 * t1502 + 0.54e2 * t4654 * t4318 - 0.6e1 * t478 * t4657 - 0.12e2 * t4660 * t4303 - 0.6e1 * t478 * t4663 + t474 * t1512 - 0.6e1 * t478 * t4668 + t33 * t4687 + t4596 * t230 + t4690 * t731 / 0.10e2 + t2391 * t1495 / 0.10e2 - 0.9e1 / 0.100e3 * t2394 * t4695 + t759 * t4642 / 0.10e2;
11917   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
11918     v2rhosigma[0] = -t4291 - t1352 * t2774 * t4292 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * t4700;
11919 
11920   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
11921     v2rhosigma[1] = 0.0e0;
11922 
11923   t4706 = t8 * t254 * t1685 / 0.2e1;
11924   t4707 = t1685 * t767;
11925   t4712 = t3160 * t1524;
11926   t4716 = t490 * t3165 * t1541;
11927   t4717 = t780 * t1540;
11928   t4718 = t4717 * t781;
11929   t4723 = my_piecewise3(t295, 0, t490 * t1109 * t4718 / 0.540e3 + t4716 / 0.540e3);
11930   t4729 = t787 * t1545;
11931   t4739 = t2472 * t1545;
11932   t4740 = t4739 * t820;
11933   t4742 = t793 * t4723;
11934   t4745 = t2479 * t1545;
11935   t4753 = t297 * t4723;
11936   t4754 = t4753 * t304;
11937   t4755 = -0.2e1 * t4740 + t4742 * t304 / 0.2e1 + t4745 * t820 / 0.4e1 - 0.4e1 * t3214 * t1545 - t864 * t1575 - 0.4e1 * t797 * t4723 - t4754;
11938   t4758 = -t3192 * t1575 / 0.2e1 + 0.2e1 * t2464 * t4729 - t789 * t4723 + 0.2e1 * t4723 * t308 + 0.2e1 * t1545 * t802 + 0.2e1 * t787 * t1557 + 0.2e1 * t296 * t4755;
11939   t4761 = -0.8e1 / 0.3e1 * t1545 * t805 - 0.8e1 / 0.3e1 * t787 * t1560 - 0.8e1 / 0.3e1 * t296 * t4758 - 0.8e1 / 0.3e1 * t4723 * t311;
11940   t4771 = t296 * t1583;
11941   t4775 = t296 * t4723;
11942   t4777 = t1598 * t787;
11943   t4778 = 0.768e3 * t4777;
11944   t4779 = t344 * t4723;
11945   t4780 = 0.256e3 * t4779;
11946   t4781 = 0.40e2 * t4729 + 0.40e2 * t4775 - t4778 - t4780;
11947   t4783 = t1573 * t793;
11948   t4788 = t1575 * t787;
11949   t4791 = t4723 * t304;
11950   t4798 = t78 * t4723;
11951   t4803 = t4781 * t304 + t4783 * t820 / 0.2e1 + t2515 * t1575 / 0.2e1 - 0.3e1 / 0.2e1 * t2517 * t4788 + t819 * t4791 / 0.2e1 + t2524 * t4788 / 0.4e1 - 0.72e2 * t4729 - 0.72e2 * t4775 + t4778 + t4780 + 0.10e2 * t4798 * t299 - 0.10e2 * t4754 - 0.5e1 * t4740;
11952   t4806 = 0.48e2 * t1545 * t2501 + 0.48e2 * t1545 * t3233 + 0.24e2 * t301 * t4803 + 0.48e2 * t4723 * t810 + 0.48e2 * t4771 * t787;
11953   t4807 = t4806 * t336;
11954   t4810 = t831 * t274;
11955   t4821 = t301 * t4723;
11956   t4825 = t319 * t4723;
11957   t4829 = t357 * t4723;
11958   t4831 = t348 * t1545;
11959   t4836 = 0.1536e4 * t1569 * t787 - 0.11520e5 * t1571 * t787 + 0.161658e6 * t1614 * t787 - 0.1105920e7 * t350 * t4723 - 0.8847360e7 * t4831 * t787 - 0.8e1 * t4723 + 0.768e3 * t4821 - 0.2880e4 * t4825 + 0.26943e5 * t4829;
11960   t4838 = t1606 * t793;
11961   t4855 = t301 * t1616;
11962   t4864 = t346 * t4723;
11963   t4866 = 0.153600e6 * t1600 * t787 + 0.448e3 * t4729 + 0.448e3 * t4775 - 0.17280e5 * t4777 - 0.5760e4 * t4779 + 0.30720e5 * t4864;
11964   t4871 = t4723 * t299;
11965   t4880 = t302 * t4723;
11966   t4883 = t4836 * t304 + t4838 * t820 / 0.2e1 + t2564 * t1575 / 0.2e1 - 0.3e1 / 0.2e1 * t2566 * t4788 + t847 * t4791 / 0.2e1 + t2571 * t4788 / 0.4e1 + 0.144e3 * t2574 * t4729 + 0.72e2 * t2577 * t1545 + 0.72e2 * t850 * t4723 + 0.72e2 * t4855 * t787 + 0.24e2 * t344 * t4866 + 0.240e3 * t824 * t1619 + 0.240e3 * t324 * t4871 - 0.480e3 * t1555 * t820 - t2602 * t4788 + 0.4e1 * t863 * t1550 * t787 - 0.2e1 * t863 * t4880;
11967   t4886 = 0.8e1 / 0.7e1 * t1545 * t867 + 0.8e1 / 0.7e1 * t787 * t1625 + 0.8e1 / 0.7e1 * t296 * t4883 + 0.8e1 / 0.7e1 * t4723 * t367;
11968   t4887 = t4886 * t41;
11969   t4888 = t4887 * t45;
11970   t4895 = t4761 * t316 - t3230 * t1540 / 0.5e1 + 0.35e2 / 0.81e2 * t4807 * t340 + 0.18276169650205761317e-1 * t4810 * t340 - 0.14e2 / 0.81e2 * t3282 * t1593 + 0.26329605555555555556e-1 * t4888 * t373 + 0.26329605555555555556e-1 * t871 * t1634 - 0.10531842222222222222e-1 * t872 * t1638;
11971   t4897 = t1645 * t933;
11972   t4901 = t1530 * t875 - 0.6e1 * t1101 * t4712 + t269 * t4895 + t4897 * t428 + t934 * t1664 / 0.10e2;
11973   t4902 = p->cam_beta * t4901;
11974   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
11975     v2rhosigma[2] = -t4706 - t1352 * t2415 * t4707 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * t4902;
11976 
11977   t4907 = t2774 * t1517 * t944;
11978   t4911 = t2784 * t1356;
11979   t4914 = t4346 * t943;
11980   t4919 = my_piecewise3(t76, 0, t490 * t493 * t4914 / 0.540e3 + t4340 / 0.540e3);
11981   t4923 = t1986 * t954;
11982   t4926 = t954 * t1377;
11983   t4936 = t4399 * t982;
11984   t4938 = t525 * t4919;
11985   t4943 = t954 * t87;
11986   t4949 = t79 * t4919;
11987   t4950 = t4949 * t86;
11988   t4951 = -0.2e1 * t4936 + t4938 * t86 / 0.2e1 + t4538 * t982 / 0.4e1 - 0.4e1 * t4943 * t1377 - t1023 * t1407 - 0.4e1 * t529 * t4919 - t4950;
11989   t4954 = -t4923 * t1407 / 0.2e1 + 0.2e1 * t1991 * t4926 - t521 * t4919 + 0.2e1 * t4919 * t90 + 0.2e1 * t1377 * t966 + 0.2e1 * t954 * t1389 + 0.2e1 * t77 * t4951;
11990   t4957 = -0.8e1 / 0.3e1 * t1377 * t969 - 0.8e1 / 0.3e1 * t954 * t1392 - 0.8e1 / 0.3e1 * t4919 * t93 - 0.8e1 / 0.3e1 * t77 * t4954;
11991   t4961 = t954 * t109;
11992   t4971 = t77 * t4919;
11993   t4973 = t1430 * t954;
11994   t4974 = 0.768e3 * t4973;
11995   t4975 = t128 * t4919;
11996   t4976 = 0.256e3 * t4975;
11997   t4977 = 0.40e2 * t4926 + 0.40e2 * t4971 - t4974 - t4976;
11998   t4983 = t1407 * t954;
11999   t4986 = t4919 * t86;
12000   t4993 = t78 * t4919;
12001   t4998 = t4977 * t86 + t4378 * t982 / 0.2e1 + t2874 * t1407 / 0.2e1 - 0.3e1 / 0.2e1 * t2044 * t4983 + t556 * t4986 / 0.2e1 + t2051 * t4983 / 0.4e1 - 0.72e2 * t4926 - 0.72e2 * t4971 + t4974 + t4976 + 0.10e2 * t4993 * t81 - 0.10e2 * t4950 - 0.5e1 * t4936;
12002   t5001 = 0.48e2 * t1377 * t2862 + 0.48e2 * t1377 * t4961 + 0.48e2 * t4365 * t954 + 0.48e2 * t4919 * t547 + 0.24e2 * t4998 * t83;
12003   t5002 = t5001 * t120;
12004   t5005 = t993 * t51;
12005   t5016 = t83 * t4919;
12006   t5020 = t101 * t4919;
12007   t5024 = t141 * t4919;
12008   t5030 = -0.1105920e7 * t134 * t4919 + 0.1536e4 * t1401 * t954 - 0.11520e5 * t1403 * t954 + 0.161658e6 * t1446 * t954 - 0.8847360e7 * t4440 * t954 - 0.8e1 * t4919 + 0.768e3 * t5016 - 0.2880e4 * t5020 + 0.26943e5 * t5024;
12009   t5056 = t130 * t4919;
12010   t5058 = 0.153600e6 * t1432 * t954 + 0.448e3 * t4926 + 0.448e3 * t4971 - 0.17280e5 * t4973 - 0.5760e4 * t4975 + 0.30720e5 * t5056;
12011   t5063 = t4919 * t81;
12012   t5072 = t84 * t4919;
12013   t5075 = t5030 * t86 + t4447 * t982 / 0.2e1 + t2930 * t1407 / 0.2e1 - 0.3e1 / 0.2e1 * t2102 * t4983 + t598 * t4986 / 0.2e1 + t2107 * t4983 / 0.4e1 + 0.144e3 * t2110 * t4926 + 0.72e2 * t2947 * t1377 + 0.72e2 * t601 * t4919 + 0.72e2 * t4464 * t954 + 0.24e2 * t128 * t5058 + 0.240e3 * t986 * t1451 + 0.240e3 * t106 * t5063 - 0.480e3 * t1387 * t982 - t2138 * t4983 + 0.4e1 * t614 * t1382 * t954 - 0.2e1 * t614 * t5072;
12014   t5078 = 0.8e1 / 0.7e1 * t1377 * t1026 + 0.8e1 / 0.7e1 * t954 * t1457 + 0.8e1 / 0.7e1 * t4919 * t151 + 0.8e1 / 0.7e1 * t77 * t5075;
12015   t5079 = t5078 * t41;
12016   t5080 = t5079 * t45;
12017   t5087 = t4957 * t98 - t2852 * t1372 / 0.5e1 + 0.35e2 / 0.81e2 * t5002 * t124 + 0.18276169650205761317e-1 * t5005 * t124 - 0.14e2 / 0.81e2 * t2904 * t1425 + 0.26329605555555555556e-1 * t5080 * t157 + 0.26329605555555555556e-1 * t1030 * t1466 - 0.10531842222222222222e-1 * t1031 * t1470;
12018   t5089 = t1477 * t1074;
12019   t5093 = t1362 * t1034 - 0.6e1 * t478 * t4911 + t33 * t5087 + t5089 * t230 + t1075 * t1496 / 0.10e2;
12020   t5095 = t1353 * p->cam_beta * t5093;
12021   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12022     v2rhosigma[3] = -t4291 - t1352 * t4907 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t5095;
12023 
12024   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12025     v2rhosigma[4] = 0.0e0;
12026 
12027   t5099 = t2415 * t1685 * t1082;
12028   t5102 = t1091 * t1524;
12029   t5106 = my_piecewise3(t260, -t1087 * t257 / 0.8e1, 0);
12030   t5107 = t261 * t5106;
12031   t5109 = t1525 * t1091;
12032   t5111 = t262 * t5106;
12033   t5113 = 0.2e1 * t5102 + 0.2e1 * t5107 + 0.18e2 * t5109 + 0.9e1 * t5111;
12034   t5114 = t5113 * t268;
12035   t5116 = t1529 * t1100;
12036   t5122 = t3817 * t376;
12037   t5123 = t3818 * t1524;
12038   t5124 = t5123 * t1091;
12039   t5127 = t3823 * t1524;
12040   t5130 = t1101 * t376;
12041   t5133 = t1102 * t5106;
12042   t5137 = t1641 * t262;
12043   t5138 = t5137 * t1091;
12044   t5143 = t330 * t1112;
12045   t5146 = t1133 * t327;
12046   t5152 = t1541 * t1122;
12047   t5156 = t4717 * t1127;
12048   t5160 = t46 * t1112;
12049   t5163 = t58 * sigma[2] * t1118;
12050   t5165 = -0.40121303703703703704e0 * t5160 - 0.28692789826413811200e-1 * t5163;
12051   t5166 = t290 * t5165;
12052   t5171 = my_piecewise3(t295, 0, t4716 / 0.540e3 + 0.11e2 / 0.1800e4 * t490 * t3882 * t5152 + t490 * t1109 * t5156 / 0.540e3 - t490 * t1109 * t5166 / 0.180e3);
12053   t5176 = t1133 * t1545;
12054   t5178 = t296 * t5171;
12055   t5180 = t1598 * t1133;
12056   t5181 = 0.768e3 * t5180;
12057   t5182 = t344 * t5171;
12058   t5183 = 0.256e3 * t5182;
12059   t5184 = 0.40e2 * t5176 + 0.40e2 * t5178 - t5181 - t5183;
12060   t5190 = t1575 * t1133;
12061   t5193 = t5171 * t304;
12062   t5200 = t78 * t5171;
12063   t5203 = t297 * t5171;
12064   t5204 = t5203 * t304;
12065   t5206 = t4739 * t1166;
12066   t5208 = t5184 * t304 + t4783 * t1166 / 0.2e1 + t3252 * t1575 / 0.2e1 - 0.3e1 / 0.2e1 * t2517 * t5190 + t819 * t5193 / 0.2e1 + t2524 * t5190 / 0.4e1 - 0.72e2 * t5176 - 0.72e2 * t5178 + t5181 + t5183 + 0.10e2 * t5200 * t299 - 0.10e2 * t5204 - 0.5e1 * t5206;
12067   t5211 = 0.48e2 * t1133 * t4771 + 0.48e2 * t1545 * t3240 + 0.48e2 * t1545 * t5146 + 0.24e2 * t301 * t5208 + 0.48e2 * t5171 * t810;
12068   t5212 = t5211 * t336;
12069   t5215 = t1586 * t1184;
12070   t5218 = t1177 * t274;
12071   t5221 = t45 * t1112;
12072   t5222 = t5221 * t339;
12073   t5227 = t1563 * t1154;
12074   t5236 = t1191 * t5165;
12075   t5239 = 0.26329605555555555556e-1 * t1228 * t1634 - 0.48736452400548696845e-1 * t5143 * t340 + 0.35e2 / 0.81e2 * t5212 * t340 + 0.35e2 / 0.81e2 * t5215 * t340 + 0.18276169650205761317e-1 * t5218 * t340 - 0.70212281481481481483e-1 * t371 * t5222 - t1155 * t5165 / 0.5e1 - t5227 * t1122 / 0.5e1 - t3875 * t1540 / 0.5e1 - 0.14e2 / 0.81e2 * t3999 * t1593 - 0.14e2 / 0.81e2 * t4002 * t1593 - 0.14e2 / 0.81e2 * t1188 * t5236;
12076   t5246 = t301 * t5171;
12077   t5250 = t319 * t5171;
12078   t5254 = t357 * t5171;
12079   t5260 = 0.1536e4 * t1133 * t1569 - 0.11520e5 * t1133 * t1571 + 0.161658e6 * t1133 * t1614 - 0.8847360e7 * t1133 * t4831 - 0.1105920e7 * t350 * t5171 - 0.8e1 * t5171 + 0.768e3 * t5246 - 0.2880e4 * t5250 + 0.26943e5 * t5254;
12080   t5286 = t346 * t5171;
12081   t5288 = 0.153600e6 * t1133 * t1600 + 0.448e3 * t5176 + 0.448e3 * t5178 - 0.17280e5 * t5180 - 0.5760e4 * t5182 + 0.30720e5 * t5286;
12082   t5293 = t5171 * t299;
12083   t5302 = t302 * t5171;
12084   t5305 = t5260 * t304 + t4838 * t1166 / 0.2e1 + t3308 * t1575 / 0.2e1 - 0.3e1 / 0.2e1 * t2566 * t5190 + t847 * t5193 / 0.2e1 + t2571 * t5190 / 0.4e1 + 0.144e3 * t2574 * t5176 + 0.72e2 * t3325 * t1545 + 0.72e2 * t850 * t5171 + 0.72e2 * t4855 * t1133 + 0.24e2 * t344 * t5288 + 0.240e3 * t1170 * t1619 + 0.240e3 * t324 * t5293 - 0.480e3 * t1555 * t1166 - t2602 * t5190 + 0.4e1 * t863 * t1550 * t1133 - 0.2e1 * t863 * t5302;
12085   t5308 = 0.8e1 / 0.7e1 * t1133 * t1625 + 0.8e1 / 0.7e1 * t1545 * t1224 + 0.8e1 / 0.7e1 * t296 * t5305 + 0.8e1 / 0.7e1 * t5171 * t367;
12086   t5309 = t5308 * t41;
12087   t5310 = t5309 * t45;
12088   t5313 = t274 * t1190;
12089   t5314 = t5313 * t1122;
12090   t5317 = t1587 * t41;
12091   t5320 = t1590 * t41;
12092   t5323 = t371 * t410;
12093   t5324 = t274 * t3836;
12094   t5325 = t1540 * t1122;
12095   t5326 = t5324 * t5325;
12096   t5333 = t3947 * t5325;
12097   t5336 = t1113 * t1637;
12098   t5341 = t1190 * t5165;
12099   t5342 = t275 * t5341;
12100   t5350 = t2459 * t1133;
12101   t5363 = t793 * t5171;
12102   t5368 = t1133 * t305;
12103   t5374 = -0.2e1 * t5206 + t5363 * t304 / 0.2e1 + t4745 * t1166 / 0.4e1 - 0.4e1 * t5368 * t1545 - t1221 * t1575 - 0.4e1 * t797 * t5171 - t5204;
12104   t5377 = -t5350 * t1575 / 0.2e1 + 0.2e1 * t2464 * t5176 - t789 * t5171 + 0.2e1 * t5171 * t308 + 0.2e1 * t1545 * t1145 + 0.2e1 * t1133 * t1557 + 0.2e1 * t296 * t5374;
12105   t5380 = -0.8e1 / 0.3e1 * t1133 * t1560 - 0.8e1 / 0.3e1 * t1545 * t1148 - 0.8e1 / 0.3e1 * t296 * t5377 - 0.8e1 / 0.3e1 * t5171 * t311;
12106   t5382 = 0.26329605555555555556e-1 * t5310 * t373 - 0.10531842222222222222e-1 * t372 * t5314 - 0.14e2 / 0.81e2 * t5317 * t1192 - 0.73104678600823045268e-2 * t5320 * t1192 + 0.14744579111111111111e-1 * t5323 * t5326 - 0.70212281481481481483e-1 * t1630 * t1232 + 0.6e1 / 0.25e2 * t3870 * t5325 + 0.98e2 / 0.405e3 * t1188 * t5333 + 0.28084912592592592592e-1 * t372 * t5336 - 0.10531842222222222222e-1 * t1229 * t1638 - 0.10531842222222222222e-1 * t372 * t5342 - 0.10531842222222222222e-1 * t1630 * t1236 + t5380 * t316;
12107   t5383 = t5239 + t5382;
12108   t5395 = 0.6e1 * t1094 * t5116 + 0.12e2 * t1101 * t5109 + 0.6e1 * t1101 * t5111 + 0.6e1 * t1527 * t3810 - 0.54e2 * t3817 * t5124 - t5114;
12109   t5396 = t5395 * t405;
12110   t5398 = t1645 * t1284;
12111   t5406 = t4189 * t1663;
12112   t5407 = t5406 * t1314;
12113   t5413 = t1303 * t41;
12114   t5414 = t5413 * t1633;
12115   t5416 = t1651 * t5221;
12116   t5418 = t1112 * t261;
12117   t5420 = t46 * t5418 * t424;
12118   t5422 = t274 * t1091;
12119   t5424 = t46 * t5422 * t424;
12120   t5427 = t46 * t1654 * t1091;
12121   t5429 = t1303 * t1524;
12122   t5432 = t420 * t5106;
12123   t5441 = -0.125e3 / 0.13122e5 * t5163 - 0.10e2 / 0.9e1 * t409 * t5221 - 0.73e2 / 0.14580e5 * t5414 + 0.146e3 / 0.10935e5 * t5416 - 0.73e2 / 0.7290e4 * t5420 + 0.73e2 / 0.19440e5 * t5424 - 0.73e2 / 0.19440e5 * t5427 - 0.146e3 / 0.135e3 * t5429 * t424 - 0.146e3 / 0.135e3 * t5432 * t424 + 0.292e3 / 0.135e3 * t1658 * t1091 + 0.146e3 / 0.135e3 * t1306 * t1524 + 0.146e3 / 0.135e3 * t423 * t5106;
12124   t5442 = t1291 * t5441;
12125   t5445 = t5114 * t376 - 0.6e1 * t5116 * t1103 + t1530 * t1239 - 0.6e1 * t3810 * t1532 + 0.54e2 * t5122 * t5124 - 0.6e1 * t1101 * t5127 - 0.12e2 * t5130 * t5109 - 0.6e1 * t1101 * t5133 + t1097 * t1641 - 0.6e1 * t1101 * t5138 + t269 * t5383 + t5396 * t428 + t5398 * t428 + t1646 * t1315 / 0.10e2 + t1244 * t1664 / 0.10e2 + t1285 * t1664 / 0.10e2 - 0.9e1 / 0.100e3 * t406 * t5407 + t406 * t5442 / 0.10e2;
12126   t5453 = t3817 * t441;
12127   t5456 = t4240 * t1524;
12128   t5459 = t1101 * t441;
12129   t5462 = t1321 * t5106;
12130   t5466 = t1680 * t262;
12131   t5467 = t5466 * t1091;
12132   t5470 = t3869 * t1540;
12133   t5476 = t46 * t1112 * t339;
12134   t5486 = 0.6e1 / 0.25e2 * t5470 * t1122 - t1154 * t5165 / 0.5e1 - 0.11894873388203017833e0 * t5476 - 0.17842310082304526749e-1 * t46 * t5314 - 0.14e2 / 0.45e2 * t4264 * t1540 + 0.98e2 / 0.225e3 * t4267 * t5325 - 0.14e2 / 0.45e2 * t1336 * t5165;
12135   t5489 = t1645 * t1291;
12136   t5494 = t1663 * t1314;
12137   t5499 = -p->cam_beta * t5445 + t5114 * t441 - 0.6e1 * t5116 * t1322 + t1530 * t1339 - 0.6e1 * t3810 * t1670 + 0.54e2 * t5453 * t5124 - 0.6e1 * t1101 * t5456 - 0.12e2 * t5459 * t5109 - 0.6e1 * t1101 * t5462 + t1097 * t1680 - 0.6e1 * t1101 * t5467 + t269 * t5486 + t5395 * t428 + t5489 * t1314 / 0.10e2 + t4275 * t1663 / 0.10e2 - 0.9e1 / 0.100e3 * t4278 * t5494 + t1342 * t5441 / 0.10e2;
12138   t5500 = t1521 * t5499;
12139   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12140     v2rhosigma[5] = -t4706 - t1352 * t5099 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t5500;
12141 
12142   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12143     v2rholapl[0] = 0.0e0;
12144 
12145   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12146     v2rholapl[1] = 0.0e0;
12147 
12148   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12149     v2rholapl[2] = 0.0e0;
12150 
12151   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12152     v2rholapl[3] = 0.0e0;
12153 
12154   t5505 = t8 * t18 * t1743 / 0.2e1;
12155   t5506 = t1743 * t455;
12156   t5510 = t468 * t1693;
12157   t5514 = my_piecewise3(t24, t465 * t1690 / 0.8e1, 0);
12158   t5515 = t25 * t5514;
12159   t5517 = t1694 * t468;
12160   t5519 = t26 * t5514;
12161   t5521 = 0.2e1 * t5510 + 0.2e1 * t5515 + 0.18e2 * t5517 + 0.9e1 * t5519;
12162   t5522 = t5521 * t32;
12163   t5524 = t1698 * t477;
12164   t5530 = t1863 * t1693;
12165   t5531 = t5530 * t468;
12166   t5534 = t1868 * t1693;
12167   t5539 = t479 * t5514;
12168   t5542 = t474 * t112;
12169   t5545 = t112 * t114;
12170   t5546 = t478 * t5545;
12171   t5547 = t123 * t26;
12172   t5549 = t46 * t5547 * t468;
12173   t5552 = t33 * t568;
12174   t5557 = t33 * t5545;
12175   t5558 = t46 * t629;
12176   t5571 = 0.6e1 * t1696 * t1855 - 0.54e2 * t1862 * t5531 + 0.6e1 * t471 * t5524 + 0.12e2 * t478 * t5517 + 0.6e1 * t478 * t5519 - t5522;
12177   t5572 = t5571 * t207;
12178   t5574 = t1712 * t701;
12179   t5582 = t2305 * t1727;
12180   t5583 = t5582 * t731;
12181   t5598 = t720 * t1693;
12182   t5601 = t222 * t5514;
12183   t5610 = 0.146e3 / 0.405e3 * t720 * t114 * t46 - 0.146e3 / 0.243e3 * t1484 + 0.73e2 / 0.162e3 * t1488 - 0.73e2 / 0.270e3 * t1705 * t45 * t468 * t226 + 0.73e2 / 0.270e3 * t1705 * t1718 * t468 - 0.146e3 / 0.135e3 * t5598 * t226 - 0.146e3 / 0.135e3 * t5601 * t226 + 0.292e3 / 0.135e3 * t1722 * t468 + 0.146e3 / 0.135e3 * t723 * t1693 + 0.146e3 / 0.135e3 * t225 * t5514;
12184   t5611 = t708 * t5610;
12185   t5614 = t5522 * t160 - 0.6e1 * t5524 * t480 + t1699 * t633 - 0.6e1 * t1855 * t1701 + 0.54e2 * t4316 * t5531 - 0.6e1 * t478 * t5534 - 0.12e2 * t4324 * t5517 - 0.6e1 * t478 * t5539 - 0.62888224691358024691e-1 * t5542 * t1707 + 0.37732934814814814815e0 * t5546 * t5549 - 0.62888224691358024691e-1 * t5552 * t1707 + 0.10481370781893004115e0 * t1704 * t1508 + 0.25155289876543209876e-1 * t5557 * t5558 + t5572 * t230 + t5574 * t230 + t1713 * t732 / 0.10e2 + t638 * t1728 / 0.10e2 + t702 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t208 * t5583 + t208 * t5611 / 0.10e2;
12186   t5624 = t2356 * t1693;
12187   t5629 = t738 * t5514;
12188   t5632 = t474 * t114;
12189   t5635 = t478 * t1705;
12190   t5636 = t1706 * t471;
12191   t5639 = t33 * t51;
12192   t5645 = t1712 * t708;
12193   t5650 = t1727 * t731;
12194   t5655 = -p->cam_beta * t5614 + t5522 * t244 - 0.6e1 * t5524 * t739 + t1699 * t756 - 0.6e1 * t1855 * t1734 + 0.54e2 * t4654 * t5531 - 0.6e1 * t478 * t5624 - 0.12e2 * t4660 * t5517 - 0.6e1 * t478 * t5629 - 0.62888224691358024691e-1 * t5632 * t124 + 0.37732934814814814815e0 * t5635 * t5636 + 0.10481370781893004115e0 * t5639 * t124 + 0.25155289876543209876e-1 * t1737 * t5558 + t5571 * t230 + t5645 * t731 / 0.10e2 + t2391 * t1727 / 0.10e2 - 0.9e1 / 0.100e3 * t2394 * t5650 + t759 * t5610 / 0.10e2;
12195   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12196     v2rhotau[0] = -t5505 - t1352 * t2774 * t5506 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * t5655;
12197 
12198   t5661 = t8 * t254 * t1801 / 0.2e1;
12199   t5662 = t1801 * t767;
12200   t5667 = t3160 * t1751;
12201   t5670 = t269 * t831;
12202   t5673 = t1770 * t933;
12203   t5677 = t1757 * t875 - 0.6e1 * t1101 * t5667 - 0.62888224691358024691e-1 * t5670 * t1765 + t5673 * t428 + t934 * t1786 / 0.10e2;
12204   t5678 = p->cam_beta * t5677;
12205   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12206     v2rhotau[1] = -t5661 - t1352 * t2415 * t5662 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * t5678;
12207 
12208   t5683 = t2774 * t1743 * t944;
12209   t5687 = t2784 * t1693;
12210   t5690 = t33 * t993;
12211   t5693 = t1712 * t1074;
12212   t5697 = t1699 * t1034 - 0.6e1 * t478 * t5687 - 0.62888224691358024691e-1 * t5690 * t1707 + t5693 * t230 + t1075 * t1728 / 0.10e2;
12213   t5699 = t1353 * p->cam_beta * t5697;
12214   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12215     v2rhotau[2] = -t5505 - t1352 * t5683 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t5699;
12216 
12217   t5703 = t2415 * t1801 * t1082;
12218   t5706 = t1091 * t1751;
12219   t5710 = my_piecewise3(t260, t1088 * t1748 / 0.8e1, 0);
12220   t5711 = t261 * t5710;
12221   t5713 = t1752 * t1091;
12222   t5715 = t262 * t5710;
12223   t5717 = 0.2e1 * t5706 + 0.2e1 * t5711 + 0.18e2 * t5713 + 0.9e1 * t5715;
12224   t5718 = t5717 * t268;
12225   t5720 = t1756 * t1100;
12226   t5726 = t3818 * t1751;
12227   t5727 = t5726 * t1091;
12228   t5730 = t3823 * t1751;
12229   t5735 = t1102 * t5710;
12230   t5738 = t1097 * t330;
12231   t5741 = t330 * t332;
12232   t5742 = t1101 * t5741;
12233   t5743 = t339 * t262;
12234   t5745 = t46 * t5743 * t1091;
12235   t5748 = t269 * t1177;
12236   t5753 = t269 * t5741;
12237   t5754 = t46 * t1235;
12238   t5767 = 0.6e1 * t1094 * t5720 + 0.12e2 * t1101 * t5713 + 0.6e1 * t1101 * t5715 + 0.6e1 * t1754 * t3810 - 0.54e2 * t3817 * t5727 - t5718;
12239   t5768 = t5767 * t405;
12240   t5770 = t1770 * t1284;
12241   t5778 = t4189 * t1785;
12242   t5779 = t5778 * t1314;
12243   t5794 = t1303 * t1751;
12244   t5797 = t420 * t5710;
12245   t5806 = 0.146e3 / 0.405e3 * t1303 * t332 * t46 - 0.146e3 / 0.243e3 * t1652 + 0.73e2 / 0.162e3 * t1656 - 0.73e2 / 0.270e3 * t1763 * t45 * t1091 * t424 + 0.73e2 / 0.270e3 * t1763 * t1776 * t1091 - 0.146e3 / 0.135e3 * t5794 * t424 - 0.146e3 / 0.135e3 * t5797 * t424 + 0.292e3 / 0.135e3 * t1780 * t1091 + 0.146e3 / 0.135e3 * t1306 * t1751 + 0.146e3 / 0.135e3 * t423 * t5710;
12246   t5807 = t1291 * t5806;
12247   t5810 = t5718 * t376 - 0.6e1 * t5720 * t1103 + t1757 * t1239 - 0.6e1 * t3810 * t1759 + 0.54e2 * t5122 * t5727 - 0.6e1 * t1101 * t5730 - 0.12e2 * t5130 * t5713 - 0.6e1 * t1101 * t5735 - 0.62888224691358024691e-1 * t5738 * t1765 + 0.37732934814814814815e0 * t5742 * t5745 - 0.62888224691358024691e-1 * t5748 * t1765 + 0.10481370781893004115e0 * t1762 * t1676 + 0.25155289876543209876e-1 * t5753 * t5754 + t5768 * t428 + t5770 * t428 + t1771 * t1315 / 0.10e2 + t1244 * t1786 / 0.10e2 + t1285 * t1786 / 0.10e2 - 0.9e1 / 0.100e3 * t406 * t5779 + t406 * t5807 / 0.10e2;
12248   t5820 = t4240 * t1751;
12249   t5825 = t1321 * t5710;
12250   t5828 = t1097 * t332;
12251   t5831 = t1101 * t1763;
12252   t5832 = t1764 * t1094;
12253   t5835 = t269 * t274;
12254   t5841 = t1770 * t1291;
12255   t5846 = t1785 * t1314;
12256   t5851 = -p->cam_beta * t5810 + t5718 * t441 - 0.6e1 * t5720 * t1322 + t1757 * t1339 - 0.6e1 * t3810 * t1792 + 0.54e2 * t5453 * t5727 - 0.6e1 * t1101 * t5820 - 0.12e2 * t5459 * t5713 - 0.6e1 * t1101 * t5825 - 0.62888224691358024691e-1 * t5828 * t340 + 0.37732934814814814815e0 * t5831 * t5832 + 0.10481370781893004115e0 * t5835 * t340 + 0.25155289876543209876e-1 * t1795 * t5754 + t5767 * t428 + t5841 * t1314 / 0.10e2 + t4275 * t1785 / 0.10e2 - 0.9e1 / 0.100e3 * t4278 * t5846 + t1342 * t5806 / 0.10e2;
12257   t5852 = t1521 * t5851;
12258   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12259     v2rhotau[3] = -t5661 - t1352 * t5703 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t5852;
12260 
12261   t5855 = t1356 * t1356;
12262   t5857 = my_piecewise3(t24, 0, 0);
12263   t5858 = t25 * t5857;
12264   t5859 = 0.2e1 * t5858;
12265   t5860 = t25 * t5855;
12266   t5862 = t26 * t5857;
12267   t5863 = 0.9e1 * t5862;
12268   t5864 = 0.2e1 * t5855 + t5859 + 0.18e2 * t5860 + t5863;
12269   t5865 = t5864 * t32;
12270   t5871 = t1864 * t5855;
12271   t5874 = t4331 * t1356;
12272   t5877 = t1872 * t5855;
12273   t5880 = t479 * t5857;
12274   t5882 = 0.6e1 * t478 * t5880;
12275   t5883 = t1372 * t1372;
12276   t5884 = t71 * t5883;
12277   t5889 = t37 * t489 * t39;
12278   t5890 = t492 * t71;
12279   t5891 = t58 * t63;
12280   t5892 = t5890 * t5891;
12281   t5896 = my_piecewise3(t76, 0, 0.11e2 / 0.1800e4 * t490 * t1953 * t5884 - 0.29888322735847720000e-4 * t5889 * t5892);
12282   t5901 = t1377 * t1377;
12283   t5902 = t1986 * t5901;
12284   t5912 = t1999 * t5901;
12285   t5913 = t5912 * t86;
12286   t5915 = t525 * t5896;
12287   t5918 = t2006 * t5901;
12288   t5927 = t79 * t5896;
12289   t5928 = t5927 * t86;
12290   t5929 = -0.2e1 * t5913 + t5915 * t86 / 0.2e1 + t5918 * t86 / 0.4e1 - 0.4e1 * t5901 * t87 - t84 * t5901 * t86 - 0.4e1 * t529 * t5896 - t5928;
12291   t5932 = -t5902 * t86 / 0.2e1 + 0.2e1 * t1991 * t5901 - t521 * t5896 + 0.2e1 * t5896 * t90 + 0.4e1 * t1377 * t1389 + 0.2e1 * t77 * t5929;
12292   t5935 = -0.8e1 / 0.3e1 * t5896 * t93 - 0.16e2 / 0.3e1 * t1377 * t1392 - 0.8e1 / 0.3e1 * t77 * t5932;
12293   t5950 = t77 * t5896;
12294   t5952 = t83 * t5901;
12295   t5953 = 0.768e3 * t5952;
12296   t5954 = t128 * t5896;
12297   t5955 = 0.256e3 * t5954;
12298   t5956 = 0.40e2 * t5901 + 0.40e2 * t5950 - t5953 - t5955;
12299   t5959 = t5901 * t86;
12300   t5962 = t5896 * t86;
12301   t5974 = t5956 * t86 + t4378 * t1407 - 0.3e1 / 0.2e1 * t2044 * t5959 + t556 * t5962 / 0.2e1 + t2051 * t5959 / 0.4e1 - 0.72e2 * t5901 - 0.72e2 * t5950 + t5953 + t5955 + 0.10e2 * t78 * t5896 * t81 - 0.10e2 * t5928 - 0.5e1 * t5913;
12302   t5977 = 0.48e2 * t109 * t5901 + 0.96e2 * t1377 * t4365 + 0.48e2 * t547 * t5896 + 0.24e2 * t5974 * t83;
12303   t5978 = t5977 * t120;
12304   t5981 = t1418 * t51;
12305   t5988 = t1928 * t5883;
12306   t5991 = t581 * t63;
12307   t5999 = t77 * t5901;
12308   t6001 = t83 * t5896;
12309   t6003 = t128 * t5901;
12310   t6005 = t101 * t5896;
12311   t6007 = t130 * t5901;
12312   t6009 = t141 * t5896;
12313   t6015 = -0.8847360e7 * t132 * t5901 - 0.1105920e7 * t134 * t5896 - 0.8e1 * t5896 + 0.1536e4 * t5999 + 0.768e3 * t6001 - 0.11520e5 * t6003 - 0.2880e4 * t6005 + 0.161658e6 * t6007 + 0.26943e5 * t6009;
12314   t6034 = t101 * t5901;
12315   t6036 = t130 * t5896;
12316   t6038 = 0.448e3 * t5901 + 0.448e3 * t5950 - 0.17280e5 * t5952 - 0.5760e4 * t5954 + 0.153600e6 * t6034 + 0.30720e5 * t6036;
12317   t6044 = t5896 * t81;
12318   t6054 = t84 * t5896;
12319   t6057 = t6015 * t86 + t4447 * t1407 - 0.3e1 / 0.2e1 * t2102 * t5959 + t598 * t5962 / 0.2e1 + t2107 * t5959 / 0.4e1 + 0.144e3 * t2110 * t5901 + 0.144e3 * t4464 * t1377 + 0.72e2 * t601 * t5896 + 0.24e2 * t128 * t6038 + 0.240e3 * t78 * t5901 * t81 + 0.240e3 * t106 * t6044 - 0.480e3 * t79 * t5901 * t86 - t2138 * t5959 + 0.4e1 * t614 * t525 * t5901 - 0.2e1 * t614 * t6054;
12320   t6060 = 0.8e1 / 0.7e1 * t5896 * t151 + 0.16e2 / 0.7e1 * t1377 * t1457 + 0.8e1 / 0.7e1 * t77 * t6057;
12321   t6061 = t6060 * t41;
12322   t6062 = t6061 * t45;
12323   t6069 = t4500 * t1372;
12324   t6072 = t1881 * t5883;
12325   t6073 = t52 * t6072;
12326   t6076 = t154 * sigma[0];
12327   t6077 = t60 * t60;
12328   t6078 = 0.1e1 / t6077;
12329   t6079 = t6078 * t581;
12330   t6082 = t5935 * t98 - 0.2e1 / 0.5e1 * t4580 * t1372 + 0.6e1 / 0.25e2 * t1934 * t5883 - 0.10759796184905179200e-2 * t544 * t5891 + 0.35e2 / 0.81e2 * t5978 * t124 + 0.36552339300411522634e-1 * t5981 * t124 - 0.28e2 / 0.81e2 * t4517 * t1425 - 0.14620935720164609054e-1 * t4504 * t1425 + 0.98e2 / 0.405e3 * t579 * t5988 - 0.57275491621318330108e-4 * t121 * t5991 + 0.26329605555555555556e-1 * t6062 * t157 + 0.52659211111111111112e-1 * t1461 * t1466 - 0.21063684444444444444e-1 * t1462 * t1470 - 0.21063684444444444444e-1 * t156 * t6069 + 0.14744579111111111111e-1 * t156 * t6073 - 0.34900379798164840299e-5 * t6076 * t6079;
12331   t6086 = t1863 * t5855;
12332   t6092 = 0.6e1 * t478 * t5862;
12333   t6093 = 0.12e2 * t1359 * t4310 - 0.54e2 * t1862 * t6086 + 0.12e2 * t478 * t5860 - t5865 + t6092;
12334   t6094 = t6093 * t207;
12335   t6098 = t1495 * t1495;
12336   t6099 = t2305 * t6098;
12337   t6103 = t51 * t1356;
12338   t6105 = t46 * t6103 * t226;
12339   t6108 = t46 * t1486 * t1356;
12340   t6110 = t222 * t5857;
12341   t6112 = 0.146e3 / 0.135e3 * t6110 * t226;
12342   t6116 = 0.146e3 / 0.135e3 * t225 * t5857;
12343   t6117 = 0.10073e5 / 0.4199040e7 * t5891 + 0.73e2 / 0.9720e4 * t6105 - 0.73e2 / 0.9720e4 * t6108 - t6112 + 0.292e3 / 0.135e3 * t222 * t5855 + t6116;
12344   t6118 = t708 * t6117;
12345   t6121 = t5865 * t160 - 0.12e2 * t4310 * t1364 + 0.2e1 * t1362 * t1473 + 0.54e2 * t1862 * t5871 - 0.12e2 * t478 * t5874 - 0.12e2 * t478 * t5877 - t5882 + t33 * t6082 + t6094 * t230 + t1478 * t1496 / 0.5e1 - 0.9e1 / 0.100e3 * t208 * t6099 + t208 * t6118 / 0.10e2;
12346   t6128 = t2352 * t5855;
12347   t6131 = t4667 * t1356;
12348   t6134 = t2360 * t5855;
12349   t6137 = t738 * t5857;
12350   t6139 = 0.6e1 * t478 * t6137;
12351   t6142 = t543 * t55;
12352   t6143 = t57 * t63;
12353   t6152 = 0.6e1 / 0.25e2 * t1933 * t5883 - 0.10759796184905179200e-2 * t6142 * t6143 - 0.35684620164609053498e-1 * t46 * t6069 + 0.98e2 / 0.225e3 * t2383 * t5883 - 0.16737460732074723200e-2 * t753 * t5891;
12354   t6161 = -p->cam_beta * t6121 + t5865 * t244 - 0.12e2 * t4310 * t1502 + 0.2e1 * t1362 * t1512 + 0.54e2 * t1862 * t6128 - 0.12e2 * t478 * t6131 - 0.12e2 * t478 * t6134 - t6139 + t33 * t6152 + t6093 * t230 + t4690 * t1495 / 0.5e1 - 0.9e1 / 0.100e3 * t2394 * t6098 + t759 * t6117 / 0.10e2;
12355   t6162 = t1353 * t6161;
12356   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12357     v2sigma2[0] = -0.3e1 / 0.8e1 * t1352 * t6162;
12358 
12359   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12360     v2sigma2[1] = 0.0e0;
12361 
12362   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12363     v2sigma2[2] = 0.0e0;
12364 
12365   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12366     v2sigma2[3] = 0.0e0;
12367 
12368   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12369     v2sigma2[4] = 0.0e0;
12370 
12371   t6165 = t1524 * t1524;
12372   t6167 = my_piecewise3(t260, 0, 0);
12373   t6168 = t261 * t6167;
12374   t6169 = 0.2e1 * t6168;
12375   t6170 = t261 * t6165;
12376   t6172 = t262 * t6167;
12377   t6173 = 0.9e1 * t6172;
12378   t6174 = 0.2e1 * t6165 + t6169 + 0.18e2 * t6170 + t6173;
12379   t6175 = t6174 * t268;
12380   t6181 = t3819 * t6165;
12381   t6184 = t5137 * t1524;
12382   t6187 = t3827 * t6165;
12383   t6190 = t1102 * t6167;
12384   t6192 = 0.6e1 * t1101 * t6190;
12385   t6193 = t1540 * t1540;
12386   t6194 = t290 * t6193;
12387   t6198 = t1108 * t290;
12388   t6199 = t58 * t282;
12389   t6200 = t6198 * t6199;
12390   t6204 = my_piecewise3(t295, 0, 0.11e2 / 0.1800e4 * t490 * t3882 * t6194 - 0.29888322735847720000e-4 * t5889 * t6200);
12391   t6209 = t1545 * t1545;
12392   t6210 = t2459 * t6209;
12393   t6220 = t2472 * t6209;
12394   t6221 = t6220 * t304;
12395   t6223 = t793 * t6204;
12396   t6226 = t2479 * t6209;
12397   t6235 = t297 * t6204;
12398   t6236 = t6235 * t304;
12399   t6237 = -0.2e1 * t6221 + t6223 * t304 / 0.2e1 + t6226 * t304 / 0.4e1 - 0.4e1 * t6209 * t305 - t302 * t6209 * t304 - 0.4e1 * t797 * t6204 - t6236;
12400   t6240 = -t6210 * t304 / 0.2e1 + 0.2e1 * t2464 * t6209 - t789 * t6204 + 0.2e1 * t6204 * t308 + 0.4e1 * t1545 * t1557 + 0.2e1 * t296 * t6237;
12401   t6243 = -0.8e1 / 0.3e1 * t6204 * t311 - 0.16e2 / 0.3e1 * t1545 * t1560 - 0.8e1 / 0.3e1 * t296 * t6240;
12402   t6258 = t296 * t6204;
12403   t6260 = t301 * t6209;
12404   t6261 = 0.768e3 * t6260;
12405   t6262 = t344 * t6204;
12406   t6263 = 0.256e3 * t6262;
12407   t6264 = 0.40e2 * t6209 + 0.40e2 * t6258 - t6261 - t6263;
12408   t6267 = t6209 * t304;
12409   t6270 = t6204 * t304;
12410   t6282 = t6264 * t304 + t4783 * t1575 - 0.3e1 / 0.2e1 * t2517 * t6267 + t819 * t6270 / 0.2e1 + t2524 * t6267 / 0.4e1 - 0.72e2 * t6209 - 0.72e2 * t6258 + t6261 + t6263 + 0.10e2 * t78 * t6204 * t299 - 0.10e2 * t6236 - 0.5e1 * t6221;
12411   t6285 = 0.96e2 * t1545 * t4771 + 0.24e2 * t301 * t6282 + 0.48e2 * t327 * t6209 + 0.48e2 * t6204 * t810;
12412   t6286 = t6285 * t336;
12413   t6289 = t1586 * t274;
12414   t6296 = t3947 * t6193;
12415   t6299 = t1190 * t282;
12416   t6307 = t296 * t6209;
12417   t6309 = t301 * t6204;
12418   t6311 = t344 * t6209;
12419   t6313 = t319 * t6204;
12420   t6315 = t346 * t6209;
12421   t6317 = t357 * t6204;
12422   t6323 = -0.8847360e7 * t348 * t6209 - 0.1105920e7 * t350 * t6204 - 0.8e1 * t6204 + 0.1536e4 * t6307 + 0.768e3 * t6309 - 0.11520e5 * t6311 - 0.2880e4 * t6313 + 0.161658e6 * t6315 + 0.26943e5 * t6317;
12423   t6342 = t319 * t6209;
12424   t6344 = t346 * t6204;
12425   t6346 = 0.448e3 * t6209 + 0.448e3 * t6258 - 0.17280e5 * t6260 - 0.5760e4 * t6262 + 0.153600e6 * t6342 + 0.30720e5 * t6344;
12426   t6352 = t6204 * t299;
12427   t6362 = t302 * t6204;
12428   t6365 = t6323 * t304 + t4838 * t1575 - 0.3e1 / 0.2e1 * t2566 * t6267 + t847 * t6270 / 0.2e1 + t2571 * t6267 / 0.4e1 + 0.144e3 * t2574 * t6209 + 0.144e3 * t4855 * t1545 + 0.72e2 * t850 * t6204 + 0.24e2 * t344 * t6346 + 0.240e3 * t78 * t6209 * t299 + 0.240e3 * t324 * t6352 - 0.480e3 * t297 * t6209 * t304 - t2602 * t6267 + 0.4e1 * t863 * t793 * t6209 - 0.2e1 * t863 * t6362;
12429   t6368 = 0.8e1 / 0.7e1 * t6204 * t367 + 0.16e2 / 0.7e1 * t1545 * t1625 + 0.8e1 / 0.7e1 * t296 * t6365;
12430   t6369 = t6368 * t41;
12431   t6370 = t6369 * t45;
12432   t6377 = t5313 * t1540;
12433   t6380 = t3836 * t6193;
12434   t6381 = t275 * t6380;
12435   t6384 = t370 * sigma[2];
12436   t6385 = t279 * t279;
12437   t6386 = 0.1e1 / t6385;
12438   t6387 = t6386 * t1190;
12439   t6390 = t6243 * t316 - 0.2e1 / 0.5e1 * t5227 * t1540 + 0.6e1 / 0.25e2 * t3870 * t6193 - 0.10759796184905179200e-2 * t1155 * t6199 + 0.35e2 / 0.81e2 * t6286 * t340 + 0.36552339300411522634e-1 * t6289 * t340 - 0.28e2 / 0.81e2 * t5317 * t1593 - 0.14620935720164609054e-1 * t5320 * t1593 + 0.98e2 / 0.405e3 * t1188 * t6296 - 0.57275491621318330108e-4 * t337 * t6299 + 0.26329605555555555556e-1 * t6370 * t373 + 0.52659211111111111112e-1 * t1629 * t1634 - 0.21063684444444444444e-1 * t1630 * t1638 - 0.21063684444444444444e-1 * t372 * t6377 + 0.14744579111111111111e-1 * t372 * t6381 - 0.34900379798164840299e-5 * t6384 * t6387;
12440   t6394 = t3818 * t6165;
12441   t6400 = 0.6e1 * t1101 * t6172;
12442   t6401 = 0.12e2 * t1101 * t6170 + 0.12e2 * t1527 * t5116 - 0.54e2 * t3817 * t6394 - t6175 + t6400;
12443   t6402 = t6401 * t405;
12444   t6406 = t1663 * t1663;
12445   t6407 = t4189 * t6406;
12446   t6411 = t274 * t1524;
12447   t6413 = t46 * t6411 * t424;
12448   t6416 = t46 * t1654 * t1524;
12449   t6418 = t420 * t6167;
12450   t6420 = 0.146e3 / 0.135e3 * t6418 * t424;
12451   t6424 = 0.146e3 / 0.135e3 * t423 * t6167;
12452   t6425 = 0.10073e5 / 0.4199040e7 * t6199 + 0.73e2 / 0.9720e4 * t6413 - 0.73e2 / 0.9720e4 * t6416 - t6420 + 0.292e3 / 0.135e3 * t420 * t6165 + t6424;
12453   t6426 = t1291 * t6425;
12454   t6429 = t6175 * t376 - 0.12e2 * t5116 * t1532 + 0.2e1 * t1530 * t1641 + 0.54e2 * t3817 * t6181 - 0.12e2 * t1101 * t6184 - 0.12e2 * t1101 * t6187 - t6192 + t269 * t6390 + t6402 * t428 + t1646 * t1664 / 0.5e1 - 0.9e1 / 0.100e3 * t406 * t6407 + t406 * t6426 / 0.10e2;
12455   t6436 = t4236 * t6165;
12456   t6439 = t5466 * t1524;
12457   t6442 = t4244 * t6165;
12458   t6445 = t1321 * t6167;
12459   t6447 = 0.6e1 * t1101 * t6445;
12460   t6450 = t1154 * t55;
12461   t6451 = t57 * t282;
12462   t6460 = 0.6e1 / 0.25e2 * t3869 * t6193 - 0.10759796184905179200e-2 * t6450 * t6451 - 0.35684620164609053498e-1 * t46 * t6377 + 0.98e2 / 0.225e3 * t4267 * t6193 - 0.16737460732074723200e-2 * t1336 * t6199;
12463   t6469 = -p->cam_beta * t6429 + t6175 * t441 - 0.12e2 * t5116 * t1670 + 0.2e1 * t1530 * t1680 + 0.54e2 * t3817 * t6436 - 0.12e2 * t1101 * t6439 - 0.12e2 * t1101 * t6442 - t6447 + t269 * t6460 + t6401 * t428 + t5489 * t1663 / 0.5e1 - 0.9e1 / 0.100e3 * t4278 * t6406 + t1342 * t6425 / 0.10e2;
12464   t6470 = t1521 * t6469;
12465   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12466     v2sigma2[5] = -0.3e1 / 0.8e1 * t1352 * t6470;
12467 
12468   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12469     v2sigmalapl[0] = 0.0e0;
12470 
12471   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12472     v2sigmalapl[1] = 0.0e0;
12473 
12474   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12475     v2sigmalapl[2] = 0.0e0;
12476 
12477   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12478     v2sigmalapl[3] = 0.0e0;
12479 
12480   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12481     v2sigmalapl[4] = 0.0e0;
12482 
12483   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12484     v2sigmalapl[5] = 0.0e0;
12485 
12486   t6473 = t1356 * t1693;
12487   t6477 = my_piecewise3(t24, -t19 * t1690 / 0.8e1, 0);
12488   t6478 = t25 * t6477;
12489   t6480 = t1694 * t1356;
12490   t6482 = t26 * t6477;
12491   t6484 = 0.2e1 * t6473 + 0.2e1 * t6478 + 0.18e2 * t6480 + 0.9e1 * t6482;
12492   t6485 = t6484 * t32;
12493   t6492 = t5530 * t1356;
12494   t6495 = t4331 * t1693;
12495   t6500 = t479 * t6477;
12496   t6503 = t1362 * t112;
12497   t6507 = t46 * t5547 * t1356;
12498   t6510 = t33 * t1418;
12499   t6513 = t46 * t1469;
12500   t6526 = 0.6e1 * t1359 * t5524 + 0.6e1 * t1696 * t4310 - 0.54e2 * t1862 * t6492 + 0.12e2 * t478 * t6480 + 0.6e1 * t478 * t6482 - t6485;
12501   t6527 = t6526 * t207;
12502   t6533 = t5582 * t1495;
12503   t6538 = t58 / t48 / t60;
12504   t6540 = t45 * t1356;
12505   t6547 = t51 * t1693;
12506   t6549 = t46 * t6547 * t226;
12507   t6551 = t222 * t6477;
12508   t6557 = t46 * t1486 * t1693;
12509   t6561 = -0.73e2 / 0.58320e5 * t6538 - 0.73e2 / 0.270e3 * t1705 * t6540 * t226 + 0.73e2 / 0.270e3 * t1705 * t1718 * t1356 + 0.73e2 / 0.19440e5 * t6549 - 0.146e3 / 0.135e3 * t6551 * t226 + 0.292e3 / 0.135e3 * t1722 * t1356 - 0.73e2 / 0.19440e5 * t6557 + 0.146e3 / 0.135e3 * t225 * t6477;
12510   t6562 = t708 * t6561;
12511   t6565 = t6485 * t160 - 0.6e1 * t5524 * t1364 + t1699 * t1473 - 0.6e1 * t4310 * t1701 + 0.54e2 * t4316 * t6492 - 0.6e1 * t478 * t6495 - 0.12e2 * t4324 * t6480 - 0.6e1 * t478 * t6500 - 0.62888224691358024691e-1 * t6503 * t1707 + 0.37732934814814814815e0 * t5546 * t6507 - 0.62888224691358024691e-1 * t6510 * t1707 + 0.25155289876543209876e-1 * t5557 * t6513 + t6527 * t230 + t1713 * t1496 / 0.10e2 + t1478 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t208 * t6533 + t208 * t6562 / 0.10e2;
12512   t6575 = t4667 * t1693;
12513   t6580 = t738 * t6477;
12514   t6583 = t1362 * t114;
12515   t6586 = t1706 * t1359;
12516   t6596 = t1727 * t1495;
12517   t6601 = -p->cam_beta * t6565 + t6485 * t244 - 0.6e1 * t5524 * t1502 + t1699 * t1512 - 0.6e1 * t4310 * t1734 + 0.54e2 * t4654 * t6492 - 0.6e1 * t478 * t6575 - 0.12e2 * t4660 * t6480 - 0.6e1 * t478 * t6580 - 0.62888224691358024691e-1 * t6583 * t124 + 0.37732934814814814815e0 * t5635 * t6586 + 0.25155289876543209876e-1 * t1737 * t6513 + t6526 * t230 + t5645 * t1495 / 0.10e2 + t4690 * t1727 / 0.10e2 - 0.9e1 / 0.100e3 * t2394 * t6596 + t759 * t6561 / 0.10e2;
12518   t6602 = t1353 * t6601;
12519   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12520     v2sigmatau[0] = -0.3e1 / 0.8e1 * t1352 * t6602;
12521 
12522   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12523     v2sigmatau[1] = 0.0e0;
12524 
12525   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12526     v2sigmatau[2] = 0.0e0;
12527 
12528   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12529     v2sigmatau[3] = 0.0e0;
12530 
12531   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12532     v2sigmatau[4] = 0.0e0;
12533 
12534   t6605 = t1524 * t1751;
12535   t6609 = my_piecewise3(t260, -t255 * t1748 / 0.8e1, 0);
12536   t6610 = t261 * t6609;
12537   t6612 = t1752 * t1524;
12538   t6614 = t262 * t6609;
12539   t6616 = 0.2e1 * t6605 + 0.2e1 * t6610 + 0.18e2 * t6612 + 0.9e1 * t6614;
12540   t6617 = t6616 * t268;
12541   t6624 = t5726 * t1524;
12542   t6627 = t5137 * t1751;
12543   t6632 = t1102 * t6609;
12544   t6635 = t1530 * t330;
12545   t6639 = t46 * t5743 * t1524;
12546   t6642 = t269 * t1586;
12547   t6645 = t46 * t1637;
12548   t6658 = 0.12e2 * t1101 * t6612 + 0.6e1 * t1101 * t6614 + 0.6e1 * t1527 * t5720 + 0.6e1 * t1754 * t5116 - 0.54e2 * t3817 * t6624 - t6617;
12549   t6659 = t6658 * t405;
12550   t6665 = t5778 * t1663;
12551   t6670 = t58 / t271 / t279;
12552   t6672 = t45 * t1524;
12553   t6679 = t274 * t1751;
12554   t6681 = t46 * t6679 * t424;
12555   t6683 = t420 * t6609;
12556   t6689 = t46 * t1654 * t1751;
12557   t6693 = -0.73e2 / 0.58320e5 * t6670 - 0.73e2 / 0.270e3 * t1763 * t6672 * t424 + 0.73e2 / 0.270e3 * t1763 * t1776 * t1524 + 0.73e2 / 0.19440e5 * t6681 - 0.146e3 / 0.135e3 * t6683 * t424 + 0.292e3 / 0.135e3 * t1780 * t1524 - 0.73e2 / 0.19440e5 * t6689 + 0.146e3 / 0.135e3 * t423 * t6609;
12558   t6694 = t1291 * t6693;
12559   t6697 = t6617 * t376 - 0.6e1 * t5720 * t1532 + t1757 * t1641 - 0.6e1 * t5116 * t1759 + 0.54e2 * t5122 * t6624 - 0.6e1 * t1101 * t6627 - 0.12e2 * t5130 * t6612 - 0.6e1 * t1101 * t6632 - 0.62888224691358024691e-1 * t6635 * t1765 + 0.37732934814814814815e0 * t5742 * t6639 - 0.62888224691358024691e-1 * t6642 * t1765 + 0.25155289876543209876e-1 * t5753 * t6645 + t6659 * t428 + t1771 * t1664 / 0.10e2 + t1646 * t1786 / 0.10e2 - 0.9e1 / 0.100e3 * t406 * t6665 + t406 * t6694 / 0.10e2;
12560   t6707 = t5466 * t1751;
12561   t6712 = t1321 * t6609;
12562   t6715 = t1530 * t332;
12563   t6718 = t1764 * t1527;
12564   t6728 = t1785 * t1663;
12565   t6733 = -p->cam_beta * t6697 + t6617 * t441 - 0.6e1 * t5720 * t1670 + t1757 * t1680 - 0.6e1 * t5116 * t1792 + 0.54e2 * t5453 * t6624 - 0.6e1 * t1101 * t6707 - 0.12e2 * t5459 * t6612 - 0.6e1 * t1101 * t6712 - 0.62888224691358024691e-1 * t6715 * t340 + 0.37732934814814814815e0 * t5831 * t6718 + 0.25155289876543209876e-1 * t1795 * t6645 + t6658 * t428 + t5841 * t1663 / 0.10e2 + t5489 * t1785 / 0.10e2 - 0.9e1 / 0.100e3 * t4278 * t6728 + t1342 * t6693 / 0.10e2;
12566   t6734 = t1521 * t6733;
12567   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12568     v2sigmatau[5] = -0.3e1 / 0.8e1 * t1352 * t6734;
12569 
12570   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12571     v2lapl2[0] = 0.0e0;
12572 
12573   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12574     v2lapl2[1] = 0.0e0;
12575 
12576   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12577     v2lapl2[2] = 0.0e0;
12578 
12579   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12580     v2lapltau[0] = 0.0e0;
12581 
12582   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12583     v2lapltau[1] = 0.0e0;
12584 
12585   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12586     v2lapltau[2] = 0.0e0;
12587 
12588   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
12589     v2lapltau[3] = 0.0e0;
12590 
12591   t6737 = t1693 * t1693;
12592   t6740 = 0.1e1 / t1689 / tau[0];
12593   t6743 = my_piecewise3(t24, t20 * t6740 / 0.4e1, 0);
12594   t6744 = t25 * t6743;
12595   t6746 = t25 * t6737;
12596   t6748 = t26 * t6743;
12597   t6750 = 0.2e1 * t6737 + 0.2e1 * t6744 + 0.18e2 * t6746 + 0.9e1 * t6748;
12598   t6751 = t6750 * t32;
12599   t6755 = t1699 * t112;
12600   t6758 = t1864 * t6737;
12601   t6762 = t46 * t5547 * t1693;
12602   t6765 = t1872 * t6737;
12603   t6768 = t479 * t6743;
12604   t6773 = t1863 * t6737;
12605   t6780 = 0.12e2 * t1696 * t5524 - 0.54e2 * t1862 * t6773 + 0.12e2 * t478 * t6746 + 0.6e1 * t478 * t6748 - t6751;
12606   t6781 = t6780 * t207;
12607   t6785 = t1727 * t1727;
12608   t6786 = t2305 * t6785;
12609   t6794 = t45 * t1693;
12610   t6801 = t222 * t6743;
12611   t6808 = 0.73e2 / 0.810e3 / t48 / t494 * t55 * t57 - 0.73e2 / 0.135e3 * t1705 * t6794 * t226 + 0.73e2 / 0.135e3 * t1705 * t1718 * t1693 - 0.146e3 / 0.135e3 * t6801 * t226 + 0.292e3 / 0.135e3 * t222 * t6737 + 0.146e3 / 0.135e3 * t225 * t6743;
12612   t6809 = t708 * t6808;
12613   t6812 = t6751 * t160 - 0.12e2 * t5524 * t1701 - 0.12577644938271604938e0 * t6755 * t1707 + 0.54e2 * t1862 * t6758 + 0.75465869629629629630e0 * t5546 * t6762 - 0.12e2 * t478 * t6765 - 0.6e1 * t478 * t6768 + t6781 * t230 + t1713 * t1728 / 0.5e1 - 0.9e1 / 0.100e3 * t208 * t6786 + t208 * t6809 / 0.10e2;
12614   t6817 = t1699 * t114;
12615   t6820 = t2352 * t6737;
12616   t6823 = t1706 * t1696;
12617   t6826 = t2360 * t6737;
12618   t6829 = t738 * t6743;
12619   t6839 = -p->cam_beta * t6812 + t6751 * t244 - 0.12e2 * t5524 * t1734 - 0.12577644938271604938e0 * t6817 * t124 + 0.54e2 * t1862 * t6820 + 0.75465869629629629630e0 * t5635 * t6823 - 0.12e2 * t478 * t6826 - 0.6e1 * t478 * t6829 + t6780 * t230 + t5645 * t1727 / 0.5e1 - 0.9e1 / 0.100e3 * t2394 * t6785 + t759 * t6808 / 0.10e2;
12620   t6840 = t1353 * t6839;
12621   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12622     v2tau2[0] = -0.3e1 / 0.8e1 * t1352 * t6840;
12623 
12624   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12625     v2tau2[1] = 0.0e0;
12626 
12627   t6843 = t1751 * t1751;
12628   t6846 = 0.1e1 / t1747 / tau[1];
12629   t6849 = my_piecewise3(t260, t256 * t6846 / 0.4e1, 0);
12630   t6850 = t261 * t6849;
12631   t6852 = t261 * t6843;
12632   t6854 = t262 * t6849;
12633   t6856 = 0.2e1 * t6843 + 0.2e1 * t6850 + 0.18e2 * t6852 + 0.9e1 * t6854;
12634   t6857 = t6856 * t268;
12635   t6861 = t1757 * t330;
12636   t6864 = t3819 * t6843;
12637   t6868 = t46 * t5743 * t1751;
12638   t6871 = t3827 * t6843;
12639   t6874 = t1102 * t6849;
12640   t6879 = t3818 * t6843;
12641   t6886 = 0.12e2 * t1101 * t6852 + 0.6e1 * t1101 * t6854 + 0.12e2 * t1754 * t5720 - 0.54e2 * t3817 * t6879 - t6857;
12642   t6887 = t6886 * t405;
12643   t6891 = t1785 * t1785;
12644   t6892 = t4189 * t6891;
12645   t6900 = t45 * t1751;
12646   t6907 = t420 * t6849;
12647   t6914 = 0.73e2 / 0.810e3 / t271 / t1110 * t55 * t57 - 0.73e2 / 0.135e3 * t1763 * t6900 * t424 + 0.73e2 / 0.135e3 * t1763 * t1776 * t1751 - 0.146e3 / 0.135e3 * t6907 * t424 + 0.292e3 / 0.135e3 * t420 * t6843 + 0.146e3 / 0.135e3 * t423 * t6849;
12648   t6915 = t1291 * t6914;
12649   t6918 = t6857 * t376 - 0.12e2 * t5720 * t1759 - 0.12577644938271604938e0 * t6861 * t1765 + 0.54e2 * t3817 * t6864 + 0.75465869629629629630e0 * t5742 * t6868 - 0.12e2 * t1101 * t6871 - 0.6e1 * t1101 * t6874 + t6887 * t428 + t1771 * t1786 / 0.5e1 - 0.9e1 / 0.100e3 * t406 * t6892 + t406 * t6915 / 0.10e2;
12650   t6923 = t1757 * t332;
12651   t6926 = t4236 * t6843;
12652   t6929 = t1764 * t1754;
12653   t6932 = t4244 * t6843;
12654   t6935 = t1321 * t6849;
12655   t6945 = -p->cam_beta * t6918 + t6857 * t441 - 0.12e2 * t5720 * t1792 - 0.12577644938271604938e0 * t6923 * t340 + 0.54e2 * t3817 * t6926 + 0.75465869629629629630e0 * t5831 * t6929 - 0.12e2 * t1101 * t6932 - 0.6e1 * t1101 * t6935 + t6886 * t428 + t5841 * t1785 / 0.5e1 - 0.9e1 / 0.100e3 * t4278 * t6891 + t1342 * t6914 / 0.10e2;
12656   t6946 = t1521 * t6945;
12657   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
12658     v2tau2[2] = -0.3e1 / 0.8e1 * t1352 * t6946;
12659 
12660 #ifndef XC_DONT_COMPILE_KXC
12661 
12662   if(order < 3) return;
12663 
12664 
12665   t6949 = t253 * t2255;
12666   t6951 = t8 * t6949 * t444;
12667   t6952 = 0.5e1 / 0.36e2 * t6951;
12668   t6954 = t8 * t1832 * t762;
12669   t6955 = t6954 / 0.4e1;
12670   t6956 = t2356 * t1845;
12671   t6959 = 0.1e1 / t60;
12672   t6960 = sigma[0] * t6959;
12673   t6963 = my_piecewise3(t24, -0.3e1 / 0.4e1 * t6960 * t21, 0);
12674   t6964 = t738 * t6963;
12675   t6967 = t468 * t1845;
12676   t6971 = t1839 * t468;
12677   t6973 = t469 * t1845;
12678   t6975 = t26 * t6963;
12679   t6977 = 0.2e1 * t25 * t6963 + 0.6e1 * t6967 + 0.18e2 * t6971 + 0.54e2 * t6973 + 0.9e1 * t6975;
12680   t6978 = t6977 * t32;
12681   t6980 = t2165 * t701;
12682   t6983 = t1852 * t477;
12683   t6986 = t473 * t1861;
12684   t6994 = 0.1e1 / t1860 / t30;
12685   t6995 = t29 * t6994;
12686   t6996 = t1863 * t26;
12687   t6997 = t6996 * t6971;
12688   t7000 = t27 * t6971;
12689   t7003 = t1863 * t468;
12690   t7004 = t7003 * t1845;
12691   t7013 = 0.36e2 * t1848 * t1855 + 0.18e2 * t1850 * t1855 - 0.324e3 * t1862 * t7000 - 0.162e3 * t1862 * t7004 - 0.162e3 * t2158 * t6986 + 0.18e2 * t471 * t6983 + 0.12e2 * t478 * t6971 + 0.36e2 * t478 * t6973 + 0.6e1 * t478 * t6975 + 0.648e3 * t6995 * t6997 - t6978;
12692   t7014 = t7013 * t207;
12693   t7017 = t2305 * t731 * t2341;
12694   t7020 = t160 * t6971;
12695   t7027 = t229 * t229;
12696   t7029 = 0.1e1 / t707 / t7027;
12697   t7030 = t2306 * t731;
12698   t7031 = t7029 * t7030;
12699   t7044 = t160 * t6996;
12700   t7045 = t7044 * t6971;
12701   t7052 = t6978 * t160 + 0.3e1 * t6980 * t230 + t7014 * t230 - 0.27e2 / 0.100e3 * t208 * t7017 - 0.12e2 * t478 * t7020 - 0.27e2 / 0.100e3 * t702 * t2307 - 0.27e2 / 0.100e3 * t638 * t2307 + 0.171e3 / 0.1000e4 * t208 * t7031 + 0.3e1 / 0.5e1 * t2168 * t732 + 0.3e1 / 0.10e2 * t2166 * t732 + 0.3e1 / 0.10e2 * t638 * t2342 + 0.3e1 / 0.10e2 * t2300 * t732 + 0.3e1 / 0.10e2 * t702 * t2342 - 0.648e3 * t6995 * t7045 - 0.18e2 * t1855 * t1876 + 0.162e3 * t6986 * t1865;
12702   t7055 = t696 * t1975;
12703   t7059 = t451 * t451;
12704   t7060 = 0.1e1 / t7059;
12705   t7061 = t9 * t7060;
12706   t7062 = t1825 - t7061;
12707   t7063 = 0.6e1 * t7062;
12708   t7064 = t202 * t7063;
12709   t7068 = t1967 * t13;
12710   t7070 = 0.1e1 / t70 / t7068;
12711   t7071 = t39 * t7070;
12712   t7072 = t1970 * t454;
12713   t7073 = t202 * t7072;
12714   t7077 = t644 * t1975;
12715   t7081 = t484 * t1969;
12716   t7083 = t490 * t7081 * t2184;
12717   t7085 = t2294 * t454;
12718   t7089 = t696 * t1970;
12719   t7094 = t490 * t2176 * t2192;
12720   t7096 = t2 * t2803;
12721   t7099 = 0.112e3 / 0.729e3 * t38 * t7096 * t203;
12722   t7100 = t1938 * t513;
12723   t7102 = t490 * t7100 * t644;
12724   t7105 = t490 * t2176 * t2188;
12725   t7109 = 0.10e2 / 0.81e2 * t166 * t2256 * t70;
12726   t7111 = t166 * t674 * t650;
12727   t7114 = t166 * t190 * t2204;
12728   t7117 = t166 * t190 * t2208;
12729   t7119 = t2269 * t7072;
12730   t7123 = t454 * t1975;
12731   t7127 = t191 * t7063;
12732   t7131 = t7109 - 0.2e1 / 0.27e2 * t7111 - 0.2e1 / 0.27e2 * t7114 + t7117 / 0.9e1 + 0.10e2 / 0.81e2 * t166 * t168 * t7119 - 0.2e1 / 0.9e1 * t3023 * t3024 * t7123 + t166 * t168 * t7127 / 0.9e1;
12733   t7134 = t197 * t7063;
12734   t7138 = t691 * t1975;
12735   t7142 = t691 * t1970;
12736   t7146 = t2289 * t454;
12737   t7151 = t490 * t2176 * t2232;
12738   t7155 = 0.28e2 / 0.243e3 * t38 * t7096 * t198;
12739   t7157 = t490 * t7100 * t660;
12740   t7160 = t490 * t2176 * t2228;
12741   t7162 = t197 * t7072;
12742   t7166 = t660 * t1975;
12743   t7171 = t490 * t7081 * t2224;
12744   t7177 = 0.8e1 / 0.81e2 * t179 * t1939 * t182;
12745   t7179 = t179 * t485 * t666;
12746   t7182 = t179 * t40 * t2242;
12747   t7185 = t179 * t40 * t2246;
12748   t7187 = t1969 * t7072;
12749   t7194 = t71 * t7063;
12750   t7198 = -t7177 + 0.4e1 / 0.27e2 * t7179 + 0.4e1 / 0.27e2 * t7182 - 0.4e1 / 0.9e1 * t7185 - 0.8e1 / 0.81e2 * t179 * t181 * t7187 + 0.2e1 / 0.9e1 * t3065 * t3066 * t7123 - 0.2e1 / 0.9e1 * t179 * t181 * t7194;
12751   t7199 = t7198 * t186;
12752   t7200 = t192 * t7063;
12753   t7207 = t167 * t3092;
12754   t7210 = 0.40e2 / 0.243e3 * t188 * t7207 * t193;
12755   t7211 = t2255 * t681;
12756   t7213 = t679 * t7211 * t683;
12757   t7215 = t2255 * t191;
12758   t7217 = t679 * t7215 * t671;
12759   t7220 = t679 * t2260 * t2279;
12760   t7223 = t679 * t2264 * t2251;
12761   t7225 = t2252 * t670;
12762   t7226 = t7225 * t186;
12763   t7230 = t2250 * t670;
12764   t7231 = t7230 * t186;
12765   t7237 = t679 * t2260 * t2275;
12766   t7240 = t679 * t2264 * t2253;
12767   t7243 = 0.1e1 / t182 / t7068;
12768   t7244 = t189 * t7243;
12769   t7245 = t192 * t7072;
12770   t7249 = t683 * t1975;
12771   t7253 = t671 * t1970;
12772   t7257 = t2251 * t454;
12773   t7261 = t671 * t1975;
12774   t7265 = t673 * t2269;
12775   t7267 = t679 * t7265 * t2271;
12776   t7269 = t2253 * t454;
12777   t7274 = -0.4e1 / 0.27e2 * t7237 + t7240 / 0.9e1 + 0.40e2 / 0.243e3 * t679 * t7244 * t7245 - 0.5e1 / 0.27e2 * t679 * t2270 * t7249 - 0.5e1 / 0.27e2 * t679 * t2270 * t7253 + t679 * t682 * t7257 / 0.9e1 + t679 * t682 * t7261 / 0.9e1 + 0.10e2 / 0.81e2 * t7267 + t679 * t682 * t7269 / 0.9e1 + 0.3e1 * t7231 + t7226;
12778   t7275 = t7199 + t679 * t682 * t7200 / 0.27e2 - t679 * t687 * t7199 / 0.18e2 + t7210 + 0.10e2 / 0.81e2 * t7213 - 0.5e1 / 0.27e2 * t7217 - 0.2e1 / 0.27e2 * t7220 + t7223 / 0.9e1 - t679 * t687 * t7226 / 0.18e2 - t679 * t687 * t7231 / 0.6e1 + t7274;
12779   t7276 = t71 * t7275;
12780   t7281 = t38 * t1939 * t692;
12781   t7284 = t38 * t485 * t2290;
12782   t7290 = 0.2e1 * t186 * t7131 - t490 * t643 * t7134 / 0.27e2 - t490 * t643 * t7138 / 0.9e1 + 0.4e1 / 0.27e2 * t490 * t2183 * t7142 - t490 * t643 * t7146 / 0.9e1 + t7151 / 0.27e2 - t7155 - 0.4e1 / 0.81e2 * t7157 + 0.2e1 / 0.27e2 * t7160 - 0.28e2 / 0.243e3 * t490 * t7071 * t7162 + 0.4e1 / 0.27e2 * t490 * t2183 * t7166 - 0.4e1 / 0.81e2 * t7171 + 0.2e1 * t2253 * t654 + t38 * t40 * t7276 / 0.9e1 + 0.4e1 / 0.27e2 * t7281 - t7284 / 0.9e1 + 0.2e1 * t2251 * t654 + 0.4e1 * t671 * t2212;
12783   t7291 = t71 * t7290;
12784   t7296 = t38 * t485 * t2295;
12785   t7299 = t38 * t1939 * t697;
12786   t7301 = 0.4e1 / 0.27e2 * t490 * t643 * t7055 + 0.4e1 / 0.81e2 * t490 * t643 * t7064 + 0.112e3 / 0.729e3 * t490 * t7071 * t7073 - 0.16e2 / 0.81e2 * t490 * t2183 * t7077 + 0.16e2 / 0.243e3 * t7083 + 0.4e1 / 0.27e2 * t490 * t643 * t7085 - 0.16e2 / 0.81e2 * t490 * t2183 * t7089 - 0.4e1 / 0.81e2 * t7094 + t7099 + 0.16e2 / 0.243e3 * t7102 - 0.8e1 / 0.81e2 * t7105 - 0.4e1 / 0.27e2 * t38 * t40 * t7291 + 0.4e1 / 0.27e2 * t7296 - 0.16e2 / 0.81e2 * t7299;
12787   t7302 = t162 * t7301;
12788   t7304 = t633 * t25;
12789   t7305 = t7304 * t1839;
12790   t7308 = t160 * t27;
12791   t7309 = t7308 * t6971;
12792   t7314 = t633 * t1863;
12793   t7315 = t7314 * t1839;
12794   t7319 = 0.1e1 / t48 / t6077;
12795   t7321 = t58 * t59 * t7319;
12796   t7324 = 0.1e1 / t49 / t61;
12797   t7330 = tau[0] * t1893;
12798   t7332 = sigma[0] * t7324;
12799   t7338 = t46 * t7332;
12800   t7340 = (-0.440e3 / 0.27e2 * t7330 + 0.154e3 / 0.27e2 * t7332) * t41 * t45 / 0.4e1 - 0.308e3 / 0.243e3 * t7338;
12801   t7343 = t7340 * t25;
12802   t7351 = t720 * t1845;
12803   t7358 = t222 * t6963;
12804   t7365 = -0.42625e5 / 0.177147e6 * t7321 - 0.1540e4 / 0.81e2 * t211 * t212 * t7324 + 0.584e3 / 0.135e3 * t720 * t2323 + 0.584e3 / 0.405e3 * t222 * t7340 - 0.146e3 / 0.135e3 * t7343 * t226 - 0.146e3 / 0.45e2 * t2323 * t468 * t226 + 0.146e3 / 0.45e2 * t2326 * t468 - 0.146e3 / 0.45e2 * t7351 * t226 + 0.292e3 / 0.45e2 * t720 * t1839 + 0.146e3 / 0.45e2 * t723 * t1845 - 0.146e3 / 0.135e3 * t7358 * t226 + 0.292e3 / 0.45e2 * t2334 * t468 + 0.146e3 / 0.135e3 * t225 * t6963;
12805   t7366 = t708 * t7365;
12806   t7377 = t2154 * t26;
12807   t7378 = t7377 * t468;
12808   t7381 = t479 * t6963;
12809   t7384 = t1868 * t1845;
12810   t7389 = t637 * t2299;
12811   t7396 = t77 * t2061;
12812   t7402 = t1969 * t506 * t1970;
12813   t7406 = t1879 * t67;
12814   t7408 = 0.1e1 / t68 / t7406;
12815   t7409 = t39 * t7408;
12816   t7410 = t1882 * t506;
12817   t7411 = t71 * t7410;
12818   t7415 = t513 * t1882;
12819   t7416 = t7415 * t454;
12820   t7420 = t507 * t1911;
12821   t7424 = t513 * t1911;
12822   t7425 = t7424 * t454;
12823   t7429 = t1958 * t1975;
12824   t7433 = t7070 * t7072;
12825   t7437 = t1969 * t454;
12826   t7438 = t7437 * t1975;
12827   t7442 = t484 * t1952;
12828   t7444 = t490 * t7442 * t1954;
12829   t7447 = t490 * t1943 * t1959;
12830   t7450 = t490 * t1947 * t1971;
12831   t7452 = t513 * t7063;
12832   t7458 = 0.14e2 / 0.243e3 * t38 * t7096 * t72;
12833   t7459 = t1938 * t492;
12834   t7461 = t490 * t7459 * t507;
12835   t7463 = t1938 * t69;
12836   t7465 = t490 * t7463 * t514;
12837   t7468 = t490 * t1943 * t1963;
12838   t7471 = t490 * t1947 * t1976;
12839   t7475 = -0.68652008559670781891e1 * t7338 - 0.66631034152449850453e0 * t7321;
12840   t7476 = t71 * t7475;
12841   t7480 = -t490 * t493 * t7402 / 0.135e3 - 0.77e2 / 0.6000e4 * t490 * t7409 * t7411 - 0.11e2 / 0.1800e4 * t490 * t1953 * t7416 + 0.11e2 / 0.600e3 * t490 * t1953 * t7420 + t490 * t493 * t7425 / 0.180e3 + t490 * t493 * t7429 / 0.180e3 - 0.14e2 / 0.243e3 * t490 * t511 * t7433 + 0.2e1 / 0.27e2 * t490 * t511 * t7438 - 0.11e2 / 0.1800e4 * t7444 - t7447 / 0.270e3 - 0.2e1 / 0.81e2 * t7450 - t490 * t511 * t7452 / 0.54e2 - t7458 - t7461 / 0.135e3 - 0.2e1 / 0.81e2 * t7465 + t7468 / 0.180e3 + t7471 / 0.54e2 - t490 * t493 * t7476 / 0.180e3;
12842   t7481 = my_piecewise3(t76, 0, t7480);
12843   t7484 = t128 * t7481;
12844   t7485 = 0.256e3 * t7484;
12845   t7486 = t77 * t7481;
12846   t7488 = t519 * t1981;
12847   t7491 = t1987 * t519;
12848   t7492 = t77 * t7491;
12849   t7493 = 0.1536e4 * t7492;
12850   t7494 = t588 * t1981;
12851   t7495 = 0.2304e4 * t7494;
12852   t7496 = 0.120e3 * t7488 + 0.40e2 * t7486 - t7493 - t7495 - t7485;
12853   t7499 = 0.1e1 / t135;
12854   t7500 = t103 * t7499;
12855   t7501 = t7491 * t86;
12856   t7504 = 0.1e1 / t132;
12857   t7505 = t103 * t7504;
12858   t7508 = t7481 * t86;
12859   t7511 = t2040 * t525;
12860   t7516 = t554 * t2006;
12861   t7520 = t1986 * t7491;
12862   t7521 = t7520 * t86;
12863   t7523 = t1999 * t519;
12864   t7524 = t7523 * t2048;
12865   t7526 = t78 * t7481;
12866   t7530 = t79 * t7481 * t86;
12867   t7532 = t7504 * t7491;
12868   t7534 = 0.5e1 / 0.2e1 * t7532 * t86;
12869   t7535 = t554 * t1999;
12870   t7538 = t103 * t1986;
12871   t7541 = t557 * t1981;
12872   t7546 = 0.20e2 * t7521 - 0.15e2 * t7524 + 0.10e2 * t7526 * t81 + t7493 + t7495 - 0.10e2 * t7530 - t7534 - 0.9e1 / 0.2e1 * t7535 * t2045 + 0.6e1 * t7538 * t7501 - 0.9e1 / 0.2e1 * t2044 * t7541 + 0.3e1 / 0.4e1 * t2051 * t7541;
12873   t7547 = t7485 - 0.72e2 * t7486 + t7496 * t86 - 0.216e3 * t7488 + t7500 * t7501 / 0.8e1 - 0.9e1 / 0.4e1 * t7505 * t7501 + t556 * t7508 / 0.2e1 + 0.3e1 / 0.2e1 * t7511 * t557 + 0.3e1 / 0.2e1 * t2042 * t2048 + 0.3e1 / 0.4e1 * t7516 * t2045 + t7546;
12874   t7550 = 0.144e3 * t1981 * t2028 + 0.144e3 * t1981 * t2855 + 0.144e3 * t1987 * t565 + 0.144e3 * t519 * t7396 + 0.48e2 * t547 * t7481 + 0.24e2 * t7547 * t83;
12875   t7551 = t7550 * t120;
12876   t7554 = t568 * t1896;
12877   t7557 = 0.23717844740740740741e1 * t7330;
12878   t7559 = t7557 - 0.19299635150617283950e1 * t7332;
12879   t7560 = t112 * t7559;
12880   t7563 = t2064 * t575;
12881   t7566 = t2024 * t543;
12882   t7569 = t1897 * t41;
12883   t7573 = 0.1e1 / t122 / t7406;
12884   t7574 = t45 * t7573;
12885   t7575 = t7574 * t7410;
12886   t7578 = t7332 * t123;
12887   t7581 = t582 * t7475;
12888   t7610 = t132 * t519;
12889   t7615 = -0.2880e4 * t101 * t7481 + 0.808290e6 * t101 * t7491 - 0.1105920e7 * t134 * t7481 + 0.26943e5 * t141 * t7481 - 0.61931520e8 * t141 * t7491 + 0.4608e4 * t1981 * t550 - 0.34560e5 * t1981 * t552 + 0.484974e6 * t1981 * t606 - 0.26542080e8 * t1981 * t7610 + 0.768e3 * t7481 * t83 - 0.34560e5 * t7491 * t83 - 0.8e1 * t7481 + 0.1536e4 * t7491;
12890   t7634 = t77 * t608;
12891   t7637 = t83 * t2126;
12892   t7640 = t84 * t7481;
12893   t7643 = 0.1e1 / t134;
12894   t7644 = t147 * t7643;
12895   t7649 = t7615 * t86 + 0.144e3 * t7491 * t143 + 0.3e1 / 0.4e1 * t2107 * t7541 - 0.3e1 * t2138 * t7541 + 0.12e2 * t614 * t526 * t1981 - 0.9e1 / 0.2e1 * t2102 * t7541 + 0.720e3 * t7501 * t84 + 0.216e3 * t2113 * t1981 + 0.72e2 * t601 * t7481 + 0.432e3 * t7634 * t1987 + 0.216e3 * t7637 * t519 - 0.2e1 * t614 * t7640 - t7644 * t7501 / 0.2e1 + 0.720e3 * t561 * t2132;
12896   t7650 = t7481 * t81;
12897   t7655 = t137 * t7499;
12898   t7664 = t596 * t2006;
12899   t7667 = t137 * t7504;
12900   t7670 = t2098 * t525;
12901   t7673 = t147 * t2006;
12902   t7679 = t596 * t1999;
12903   t7682 = t137 * t1986;
12904   t7696 = 0.614400e6 * t128 * t7491 + 0.30720e5 * t130 * t7481 + 0.460800e6 * t1981 * t590 - 0.5760e4 * t7484 + 0.448e3 * t7486 + 0.1344e4 * t7488 - 0.34560e5 * t7492 - 0.51840e5 * t7494;
12905   t7699 = t86 * t1999;
12906   t7700 = t7699 * t7491;
12907   t7702 = 0.240e3 * t106 * t7650 - 0.1440e4 * t2016 * t557 + t7655 * t7501 / 0.8e1 + 0.432e3 * t2110 * t7488 + t598 * t7508 / 0.2e1 + 0.3e1 / 0.2e1 * t2100 * t2048 + 0.3e1 / 0.4e1 * t7664 * t2045 - 0.9e1 / 0.4e1 * t7667 * t7501 + 0.3e1 / 0.2e1 * t7670 * t557 + 0.7e1 * t7673 * t7501 - 0.12e2 * t614 * t1999 * t7491 - 0.9e1 / 0.2e1 * t7679 * t2045 + 0.6e1 * t7682 * t7501 + 0.24e2 * t128 * t7696 - 0.360e3 * t7700;
12908   t7703 = t7649 + t7702;
12909   t7707 = (0.8e1 / 0.7e1 * t7481 * t151 + 0.24e2 / 0.7e1 * t1981 * t618 + 0.24e2 / 0.7e1 * t519 * t2146 + 0.8e1 / 0.7e1 * t77 * t7703) * t41;
12910   t7708 = t7707 * t45;
12911   t7711 = t2065 * t41;
12912   t7726 = 0.35e2 / 0.81e2 * t7551 * t124 + 0.35e2 / 0.27e2 * t7554 * t124 + 0.35e2 / 0.81e2 * t7560 * t124 + 0.35e2 / 0.27e2 * t7563 * t124 - 0.3e1 / 0.5e1 * t7566 * t506 - 0.14e2 / 0.27e2 * t7569 * t583 - 0.392e3 / 0.675e3 * t579 * t7575 - 0.12014101497942386831e1 * t156 * t7578 - 0.14e2 / 0.81e2 * t579 * t7581 + 0.26329605555555555556e-1 * t7708 * t157 - 0.14e2 / 0.27e2 * t7711 * t583 - 0.14e2 / 0.27e2 * t2068 * t2074 - 0.14e2 / 0.27e2 * t2071 * t2074 + 0.77233509629629629632e0 * t623 * t1918 - 0.21063684444444444445e0 * t2151 * t626 + 0.98e2 / 0.135e3 * t2068 * t1929 + 0.98e2 / 0.135e3 * t2071 * t1929;
12913   t7727 = t1887 * t41;
12914   t7734 = t540 * t1933;
12915   t7763 = t525 * t7481;
12916   t7769 = t7499 * t7491;
12917   t7778 = 0.15e2 / 0.2e1 * t7521 - 0.6e1 * t7524 - t7534 + t7763 * t86 / 0.2e1 + 0.3e1 / 0.4e1 * t2006 * t1981 * t557 + t7769 * t86 / 0.8e1 - 0.12e2 * t2836 * t1981 - 0.3e1 * t615 * t2048 - 0.4e1 * t529 * t7481 - t7530;
12918   t7781 = 0.7e1 / 0.2e1 * t2006 * t7491 * t86 - 0.3e1 / 0.2e1 * t2814 * t2048 - t7643 * t7491 * t86 / 0.4e1 - 0.6e1 * t7700 + 0.6e1 * t1991 * t7488 - t521 * t7481 + 0.2e1 * t7481 * t90 + 0.6e1 * t1981 * t534 + 0.6e1 * t519 * t2018 + 0.2e1 * t77 * t7778;
12919   t7784 = -0.8e1 / 0.3e1 * t7481 * t93 - 0.8e1 * t1981 * t537 - 0.8e1 * t519 * t2021 - 0.8e1 / 0.3e1 * t77 * t7781;
12920   t7786 = t506 * t1911;
12921   t7787 = t1928 * t7786;
12922   t7792 = t1894 * t629;
12923   t7797 = t581 * t7475;
12924   t7798 = t52 * t7797;
12925   t7803 = t497 * t1914;
12926   t7806 = t497 * t1883;
12927   t7809 = t7573 * t7410;
12928   t7810 = t52 * t7809;
12929   t7815 = t4558 * t7786;
12930   t7819 = 0.1e1 / t97 / t7406;
12931   t7820 = t96 * t7819;
12932   t7825 = -0.28e2 / 0.27e2 * t7727 * t583 - t544 * t7475 / 0.5e1 - 0.3e1 / 0.5e1 * t1900 * t1911 + 0.18e2 / 0.25e2 * t7734 * t1882 + t7784 * t98 + 0.98e2 / 0.135e3 * t579 * t7787 - 0.31595526666666666666e-1 * t2151 * t630 - 0.30893403851851851852e0 * t156 * t7792 + 0.16850947555555555555e0 * t623 * t1921 - 0.10531842222222222222e-1 * t156 * t7798 - 0.31595526666666666666e-1 * t623 * t1915 + 0.84254737777777777777e-1 * t156 * t7803 - 0.11795663288888888889e0 * t156 * t7806 - 0.35386989866666666666e-1 * t156 * t7810 + 0.44233737333333333333e-1 * t623 * t1884 + 0.44233737333333333333e-1 * t4557 * t7815 - 0.66e2 / 0.125e3 * t7820 * t7410 + 0.18e2 / 0.25e2 * t1934 * t7786;
12933   t7826 = t7726 + t7825;
12934   t7828 = 0.3e1 * t1853 * t633 + t7302 * t230 - 0.36e2 * t478 * t7305 + 0.324e3 * t1862 * t7309 - 0.36e2 * t1855 * t1873 + 0.162e3 * t1862 * t7315 + t208 * t7366 / 0.10e2 - 0.18e2 * t6983 * t480 - 0.36e2 * t1855 * t1869 - 0.36e2 * t4324 * t6973 + 0.162e3 * t4316 * t7004 - 0.18e2 * t478 * t7378 - 0.6e1 * t478 * t7381 - 0.18e2 * t478 * t7384 + 0.3e1 * t474 * t2154 + 0.3e1 * t7389 * t230 + t33 * t7826;
12935   t7839 = t756 * t1863;
12936   t7840 = t7839 * t1839;
12937   t7846 = t244 * t6971;
12938   t7853 = -0.18e2 * t478 * t6956 - 0.6e1 * t478 * t6964 - p->cam_beta * (t7052 + t7828) - 0.18e2 * t6983 * t739 - 0.36e2 * t1855 * t2357 - 0.18e2 * t1855 * t2364 + 0.162e3 * t6986 * t2353 + 0.162e3 * t1862 * t7840 + t6978 * t244 + 0.3e1 * t1853 * t756 - 0.12e2 * t478 * t7846 + 0.162e3 * t4654 * t7004 - 0.36e2 * t4660 * t6973;
12939   t7854 = t2165 * t708;
12940   t7861 = t1933 * t506;
12941   t7872 = -0.29177103637860082304e1 * t7338 - 0.5e1 / 0.9e1 * (-t7557 - 0.54150879308641975309e0 * t7332) * t41 * t45;
12942   t7875 = t2377 * t581;
12943   t7878 = t750 * t1881;
12944   t7883 = t241 * t7573;
12945   t7890 = -0.66e2 / 0.125e3 * t7819 * t7410 + 0.18e2 / 0.25e2 * t7861 * t1911 - t543 * t7475 / 0.5e1 + 0.7e1 / 0.9e1 * t7872 * t123 - 0.14e2 / 0.15e2 * t7875 * t506 + 0.98e2 / 0.75e2 * t7878 * t1882 - 0.14e2 / 0.15e2 * t2380 * t1911 - 0.392e3 / 0.375e3 * t7883 * t7410 + 0.98e2 / 0.75e2 * t2383 * t7786 - 0.14e2 / 0.45e2 * t753 * t7475;
12946   t7894 = t637 * t2305;
12947   t7899 = t244 * t27;
12948   t7900 = t7899 * t6971;
12949   t7903 = t244 * t6996;
12950   t7904 = t7903 * t6971;
12951   t7907 = t2388 * t26;
12952   t7908 = t7907 * t468;
12953   t7911 = t756 * t25;
12954   t7912 = t7911 * t1839;
12955   t7915 = t162 * t7029;
12956   t7920 = t731 * t2341;
12957   t7924 = 0.3e1 / 0.10e2 * t7854 * t731 + 0.3e1 / 0.10e2 * t2391 * t2341 + t33 * t7890 + t759 * t7365 / 0.10e2 - 0.27e2 / 0.100e3 * t7894 * t2306 - 0.36e2 * t1855 * t2361 + 0.324e3 * t1862 * t7900 - 0.648e3 * t6995 * t7904 - 0.18e2 * t478 * t7908 - 0.36e2 * t478 * t7912 + 0.171e3 / 0.1000e4 * t7915 * t7030 + 0.3e1 * t474 * t2388 - 0.27e2 / 0.100e3 * t2394 * t7920 + t7013 * t230;
12958   t7925 = t7853 + t7924;
12959   t7927 = t8 * t18 * t7925;
12960   t7928 = 0.3e1 / 0.8e1 * t7927;
12961   t7929 = t455 * t1827;
12962   t7931 = t2754 * t2755 * t7929;
12963   t7932 = t7931 / 0.2e1;
12964   t7933 = t936 * t2421;
12965   t7935 = t2416 * t2417 * t7933;
12966   t7936 = 0.3e1 / 0.2e1 * t7935;
12967   t7937 = t189 * p->cam_beta;
12968   t7939 = t2416 * t7937 * t2418;
12969   t7940 = t762 * t1827;
12970   t7942 = t8 * t450 * t7940;
12971   t7943 = 0.3e1 / 0.2e1 * t7942;
12972   t7944 = 0.3e1 * t7062;
12973   t7945 = t247 * t7944;
12974   t7947 = t8 * t450 * t7945;
12975   t7948 = t7947 / 0.2e1;
12976   t7950 = t8 * t772 * t2747;
12977   t7952 = -t7944;
12978   t7953 = t444 * t7952;
12979   t7955 = t8 * t766 * t7953;
12980   t7956 = t7955 / 0.2e1;
12981   t7958 = t8 * t2411 * t2422;
12982   t7960 = t2404 * t189;
12983   t7962 = t8 * t7960 * t2407;
12984   t7965 = t8 * t2426 * t937;
12985   t7966 = t7965 / 0.4e1;
12986   t7967 = t762 * t1812;
12987   t7969 = t8 * t1811 * t7967;
12988   t7970 = t7969 / 0.2e1;
12989   t7971 = -t6952 + t6955 - t7928 - t7932 + t7936 + t7939 - t7943 - t7948 + 0.3e1 / 0.8e1 * t7950 - t7956 - t7958 / 0.2e1 - t7962 / 0.6e1 - t7966 - t7970;
12990   t7972 = t15 * t673;
12991   t7974 = t8 * t7972 * t456;
12992   t7975 = t7974 / 0.3e1;
12993   t7977 = 0.1e1 / t1809 / t14;
12994   t7978 = t7977 * t17;
12995   t7979 = t1812 * t455;
12996   t7980 = t247 * t7979;
12997   t7982 = t8 * t7978 * t7980;
12998   t7983 = t7982 / 0.9e1;
12999   t7984 = t1810 * t189;
13000   t7986 = t8 * t7984 * t1813;
13001   t7989 = t8 * t1817 * t1821;
13002   t7992 = 0.14e2 / 0.243e3 * t38 * t7096 * t291;
13003   t7993 = t1938 * t288;
13004   t7995 = t490 * t7993 * t782;
13005   t7998 = t490 * t2436 * t2444;
13006   t8001 = t490 * t2436 * t2449;
13007   t8003 = t2440 * t250;
13008   t8005 = 0.1e1 / t289 / t8003;
13009   t8006 = t2443 * t781;
13010   t8007 = t8005 * t8006;
13011   t8011 = t2442 * t781;
13012   t8012 = t8011 * t2448;
13013   t8016 = -t7063;
13014   t8017 = t780 * t8016;
13015   t8022 = my_piecewise3(t295, 0, -t7992 - 0.2e1 / 0.81e2 * t7995 - 0.2e1 / 0.81e2 * t7998 + t8001 / 0.54e2 - 0.14e2 / 0.243e3 * t490 * t778 * t8007 + 0.2e1 / 0.27e2 * t490 * t778 * t8012 - t490 * t778 * t8017 / 0.54e2);
13016   t8029 = t2460 * t787;
13017   t8035 = 0.1e1 / t350;
13018   t8039 = t304 * t2472;
13019   t8040 = t8039 * t8029;
13020   t8042 = t787 * t2454;
13021   t8053 = t2459 * t8029 * t304;
13022   t8055 = t2472 * t787;
13023   t8056 = t8055 * t2521;
13024   t8058 = 0.1e1 / t348;
13025   t8059 = t8058 * t8029;
13026   t8061 = 0.5e1 / 0.2e1 * t8059 * t304;
13027   t8062 = t793 * t8022;
13028   t8068 = 0.1e1 / t351;
13029   t8069 = t8068 * t8029;
13030   t8079 = t297 * t8022 * t304;
13031   t8080 = 0.15e2 / 0.2e1 * t8053 - 0.6e1 * t8056 - t8061 + t8062 * t304 / 0.2e1 + 0.3e1 / 0.4e1 * t2479 * t2454 * t820 + t8069 * t304 / 0.8e1 - 0.12e2 * t3214 * t2454 - 0.3e1 * t864 * t2521 - 0.4e1 * t797 * t8022 - t8079;
13032   t8083 = 0.7e1 / 0.2e1 * t2479 * t8029 * t304 - 0.3e1 / 0.2e1 * t3192 * t2521 - t8035 * t8029 * t304 / 0.4e1 - 0.6e1 * t8040 + 0.6e1 * t2464 * t8042 - t789 * t8022 + 0.2e1 * t8022 * t308 + 0.6e1 * t2454 * t802 + 0.6e1 * t787 * t2491 + 0.2e1 * t296 * t8080;
13033   t8086 = -0.8e1 / 0.3e1 * t8022 * t311 - 0.8e1 * t2454 * t805 - 0.8e1 * t787 * t2494 - 0.8e1 / 0.3e1 * t296 * t8083;
13034   t8092 = t296 * t2534;
13035   t8100 = t296 * t8022;
13036   t8102 = t296 * t8029;
13037   t8103 = 0.1536e4 * t8102;
13038   t8104 = t837 * t2454;
13039   t8105 = 0.2304e4 * t8104;
13040   t8106 = t344 * t8022;
13041   t8107 = 0.256e3 * t8106;
13042   t8108 = 0.120e3 * t8042 + 0.40e2 * t8100 - t8103 - t8105 - t8107;
13043   t8112 = t2513 * t793;
13044   t8117 = t817 * t2479;
13045   t8120 = t321 * t8058;
13046   t8121 = t8029 * t304;
13047   t8124 = t8022 * t304;
13048   t8127 = t321 * t8068;
13049   t8133 = t78 * t8022;
13050   t8137 = t817 * t2472;
13051   t8140 = t321 * t2459;
13052   t8143 = t820 * t2454;
13053   t8148 = -0.15e2 * t8056 + 0.10e2 * t8133 * t299 + t8103 + t8105 - 0.10e2 * t8079 - t8061 + t8107 - 0.9e1 / 0.2e1 * t8137 * t2518 + 0.6e1 * t8140 * t8121 - 0.9e1 / 0.2e1 * t2517 * t8143 + 0.3e1 / 0.4e1 * t2524 * t8143;
13054   t8149 = t8108 * t304 - 0.216e3 * t8042 - 0.72e2 * t8100 + 0.3e1 / 0.2e1 * t8112 * t820 + 0.3e1 / 0.2e1 * t2515 * t2521 + 0.3e1 / 0.4e1 * t8117 * t2518 - 0.9e1 / 0.4e1 * t8120 * t8121 + t819 * t8124 / 0.2e1 + t8127 * t8121 / 0.8e1 + 0.20e2 * t8053 + t8148;
13055   t8152 = 0.144e3 * t2454 * t2501 + 0.144e3 * t2454 * t3233 + 0.144e3 * t2460 * t828 + 0.24e2 * t301 * t8149 + 0.144e3 * t787 * t8092 + 0.48e2 * t8022 * t810;
13056   t8153 = t8152 * t336;
13057   t8182 = 0.460800e6 * t2454 * t839 + 0.614400e6 * t344 * t8029 + 0.30720e5 * t346 * t8022 + 0.1344e4 * t8042 + 0.448e3 * t8100 - 0.34560e5 * t8102 - 0.51840e5 * t8104 - 0.5760e4 * t8106;
13058   t8205 = t348 * t787;
13059   t8210 = 0.4608e4 * t2454 * t813 - 0.34560e5 * t2454 * t815 - 0.26542080e8 * t2454 * t8205 + 0.484974e6 * t2454 * t855 + 0.768e3 * t301 * t8022 - 0.34560e5 * t301 * t8029 - 0.2880e4 * t319 * t8022 + 0.808290e6 * t319 * t8029 - 0.1105920e7 * t350 * t8022 + 0.26943e5 * t357 * t8022 - 0.61931520e8 * t357 * t8029 - 0.8e1 * t8022 + 0.1536e4 * t8029;
13060   t8214 = t302 * t8022;
13061   t8219 = t845 * t2479;
13062   t8222 = t353 * t8058;
13063   t8227 = t353 * t8068;
13064   t8232 = 0.12e2 * t863 * t794 * t2454 - 0.9e1 / 0.2e1 * t2566 * t8143 + 0.3e1 / 0.4e1 * t2571 * t8143 - 0.3e1 * t2602 * t8143 + 0.24e2 * t344 * t8182 + t8210 * t304 + 0.144e3 * t8029 * t359 - 0.2e1 * t863 * t8214 + 0.3e1 / 0.2e1 * t2564 * t2521 + 0.3e1 / 0.4e1 * t8219 * t2518 - 0.9e1 / 0.4e1 * t8222 * t8121 + t847 * t8124 / 0.2e1 + t8227 * t8121 / 0.8e1 + 0.432e3 * t2574 * t8042;
13065   t8235 = t8022 * t299;
13066   t8240 = t363 * t8035;
13067   t8243 = t2562 * t793;
13068   t8249 = t845 * t2472;
13069   t8252 = t353 * t2459;
13070   t8255 = t363 * t2479;
13071   t8260 = t296 * t857;
13072   t8263 = t301 * t2590;
13073   t8271 = 0.720e3 * t824 * t2596 + 0.240e3 * t324 * t8235 - 0.1440e4 * t2489 * t820 - t8240 * t8121 / 0.2e1 + 0.3e1 / 0.2e1 * t8243 * t820 - 0.12e2 * t863 * t2472 * t8029 - 0.9e1 / 0.2e1 * t8249 * t2518 + 0.6e1 * t8252 * t8121 + 0.7e1 * t8255 * t8121 + 0.720e3 * t8121 * t302 + 0.432e3 * t8260 * t2460 + 0.216e3 * t8263 * t787 + 0.216e3 * t2577 * t2454 + 0.72e2 * t850 * t8022 - 0.360e3 * t8040;
13074   t8272 = t8232 + t8271;
13075   t8276 = (0.8e1 / 0.7e1 * t8022 * t367 + 0.24e2 / 0.7e1 * t2454 * t867 + 0.24e2 / 0.7e1 * t787 * t2610 + 0.8e1 / 0.7e1 * t296 * t8272) * t41;
13076   t8277 = t8276 * t45;
13077   t8280 = t8086 * t316 + 0.35e2 / 0.81e2 * t8153 * t340 + 0.26329605555555555556e-1 * t8277 * t373;
13078   t8289 = t2697 * t907 * t388;
13079   t8291 = t2699 * t907;
13080   t8292 = t8291 * t388;
13081   t8295 = 0.8e1 / 0.81e2 * t179 * t1939 * t384;
13082   t8297 = t179 * t485 * t903;
13083   t8300 = t179 * t40 * t2689;
13084   t8303 = t179 * t40 * t2693;
13085   t8305 = t2442 * t8006;
13086   t8309 = t781 * t2448;
13087   t8313 = t290 * t8016;
13088   t8317 = -t8295 + 0.4e1 / 0.27e2 * t8297 + 0.4e1 / 0.27e2 * t8300 - 0.4e1 / 0.9e1 * t8303 - 0.8e1 / 0.81e2 * t179 * t181 * t8305 + 0.2e1 / 0.9e1 * t3065 * t3440 * t8309 - 0.2e1 / 0.9e1 * t179 * t181 * t8313;
13089   t8318 = t8317 * t388;
13090   t8319 = t390 * t8016;
13091   t8328 = 0.40e2 / 0.243e3 * t188 * t7207 * t391;
13092   t8329 = t2255 * t913;
13093   t8331 = t679 * t8329 * t915;
13094   t8333 = t2255 * t389;
13095   t8335 = t679 * t8333 * t908;
13096   t8338 = t679 * t2704 * t2723;
13097   t8341 = t679 * t2708 * t2698;
13098   t8347 = t908 * t2448;
13099   t8354 = t673 * t2713;
13100   t8356 = t679 * t8354 * t2715;
13101   t8359 = t679 * t2704 * t2719;
13102   t8362 = t679 * t2708 * t2700;
13103   t8365 = 0.1e1 / t384 / t8003;
13104   t8366 = t189 * t8365;
13105   t8367 = t390 * t8006;
13106   t8371 = t915 * t2448;
13107   t8375 = t908 * t2443;
13108   t8379 = t2698 * t781;
13109   t8383 = t2700 * t781;
13110   t8387 = -t679 * t919 * t8292 / 0.18e2 + t679 * t914 * t8347 / 0.9e1 - t679 * t919 * t8289 / 0.6e1 + 0.10e2 / 0.81e2 * t8356 - 0.4e1 / 0.27e2 * t8359 + t8362 / 0.9e1 + 0.40e2 / 0.243e3 * t679 * t8366 * t8367 - 0.5e1 / 0.27e2 * t679 * t2714 * t8371 - 0.5e1 / 0.27e2 * t679 * t2714 * t8375 + t679 * t914 * t8379 / 0.9e1 + t679 * t914 * t8383 / 0.9e1;
13111   t8388 = 0.3e1 * t8289 + t8292 + t8318 + t679 * t914 * t8319 / 0.27e2 - t679 * t919 * t8318 / 0.18e2 + t8328 + 0.10e2 / 0.81e2 * t8331 - 0.5e1 / 0.27e2 * t8335 - 0.2e1 / 0.27e2 * t8338 + t8341 / 0.9e1 + t8387;
13112   t8389 = t290 * t8388;
13113   t8394 = t38 * t1939 * t924;
13114   t8397 = t38 * t485 * t2734;
13115   t8401 = 0.10e2 / 0.81e2 * t166 * t2256 * t289;
13116   t8403 = t166 * t674 * t887;
13117   t8406 = t166 * t190 * t2651;
13118   t8409 = t166 * t190 * t2655;
13119   t8411 = t2713 * t8006;
13120   t8418 = t389 * t8016;
13121   t8422 = t8401 - 0.2e1 / 0.27e2 * t8403 - 0.2e1 / 0.27e2 * t8406 + t8409 / 0.9e1 + 0.10e2 / 0.81e2 * t166 * t168 * t8411 - 0.2e1 / 0.9e1 * t3023 * t3400 * t8309 + t166 * t168 * t8418 / 0.9e1;
13122   t8425 = t923 * t2448;
13123   t8429 = t395 * t8016;
13124   t8433 = t923 * t2443;
13125   t8437 = t2733 * t781;
13126   t8443 = 0.28e2 / 0.243e3 * t38 * t7096 * t396;
13127   t8444 = t1938 * t780;
13128   t8446 = t490 * t8444 * t897;
13129   t8449 = t490 * t2623 * t2675;
13130   t8452 = t490 * t2623 * t2679;
13131   t8454 = t39 * t8005;
13132   t8455 = t395 * t8006;
13133   t8459 = t897 * t2448;
13134   t8463 = t484 * t2442;
13135   t8465 = t490 * t8463 * t2671;
13136   t8467 = 0.2e1 * t2700 * t891 + 0.2e1 * t2698 * t891 + 0.4e1 * t908 * t2659 + t38 * t40 * t8389 / 0.9e1 + 0.4e1 / 0.27e2 * t8394 - t8397 / 0.9e1 + 0.2e1 * t388 * t8422 - t490 * t880 * t8425 / 0.9e1 - t490 * t880 * t8429 / 0.27e2 + 0.4e1 / 0.27e2 * t490 * t2630 * t8433 - t490 * t880 * t8437 / 0.9e1 - t8443 - 0.4e1 / 0.81e2 * t8446 + 0.2e1 / 0.27e2 * t8449 + t8452 / 0.27e2 - 0.28e2 / 0.243e3 * t490 * t8454 * t8455 + 0.4e1 / 0.27e2 * t490 * t2630 * t8459 - 0.4e1 / 0.81e2 * t8465;
13137   t8468 = t290 * t8467;
13138   t8472 = t928 * t2448;
13139   t8476 = t400 * t8016;
13140   t8480 = t928 * t2443;
13141   t8484 = t2738 * t781;
13142   t8490 = 0.112e3 / 0.729e3 * t38 * t7096 * t401;
13143   t8492 = t490 * t8444 * t881;
13144   t8495 = t490 * t2623 * t2635;
13145   t8498 = t490 * t2623 * t2639;
13146   t8500 = t400 * t8006;
13147   t8504 = t881 * t2448;
13148   t8509 = t490 * t8463 * t2631;
13149   t8512 = t38 * t1939 * t929;
13150   t8515 = t38 * t485 * t2739;
13151   t8517 = -0.4e1 / 0.27e2 * t38 * t40 * t8468 + 0.4e1 / 0.27e2 * t490 * t880 * t8472 + 0.4e1 / 0.81e2 * t490 * t880 * t8476 - 0.16e2 / 0.81e2 * t490 * t2630 * t8480 + 0.4e1 / 0.27e2 * t490 * t880 * t8484 + t8490 + 0.16e2 / 0.243e3 * t8492 - 0.8e1 / 0.81e2 * t8495 - 0.4e1 / 0.81e2 * t8498 + 0.112e3 / 0.729e3 * t490 * t8454 * t8500 - 0.16e2 / 0.81e2 * t490 * t2630 * t8504 + 0.16e2 / 0.243e3 * t8509 - 0.16e2 / 0.81e2 * t8512 + 0.4e1 / 0.27e2 * t8515;
13152   t8518 = t378 * t8517;
13153   t8520 = t269 * t8280 + t428 * t8518;
13154   t8521 = p->cam_beta * t8520;
13155   t8523 = t8 * t254 * t8521;
13156   t8524 = 0.3e1 / 0.8e1 * t8523;
13157   t8525 = t2399 * t455;
13158   t8527 = t8 * t450 * t8525;
13159   t8528 = 0.3e1 / 0.2e1 * t8527;
13160   t8530 = t8 * t1817 * t1828;
13161   t8532 = t936 * t2406;
13162   t8534 = t3132 * t2417 * t8532;
13163   t8535 = t8534 / 0.2e1;
13164   t8536 = t2746 * t767;
13165   t8538 = t2416 * t2417 * t8536;
13166   t8539 = 0.3e1 / 0.2e1 * t8538;
13167   t8540 = t767 * t2421;
13168   t8542 = t3132 * t3133 * t8540;
13169   t8543 = t8542 / 0.2e1;
13170   t8544 = t252 * t673;
13171   t8546 = t8 * t8544 * t768;
13172   t8547 = t8546 / 0.3e1;
13173   t8549 = 0.1e1 / t2403 / t251;
13174   t8550 = t8549 * t17;
13175   t8551 = t2406 * t767;
13176   t8552 = t444 * t8551;
13177   t8554 = t8 * t8550 * t8552;
13178   t8555 = t8554 / 0.9e1;
13179   t8556 = t16 * t2255;
13180   t8558 = t8 * t8556 * t247;
13181   t8559 = 0.5e1 / 0.36e2 * t8558;
13182   t8561 = t8 * t460 * t2399;
13183   t8563 = t7975 + t7983 - t7986 / 0.6e1 - t7989 + t8524 - t8528 - t8530 / 0.2e1 + t8535 + t8539 - t8543 + t8547 + t8555 - t8559 - 0.3e1 / 0.8e1 * t8561;
13184   t8571 = t2428 / 0.4e1;
13185   t8572 = t1834 / 0.4e1;
13186   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13187     v3rho3[0] = t10 * (t7971 + t8563) + 0.3e1 * t2420 - t2409 / 0.2e1 - t2413 + 0.3e1 / 0.4e1 * t2431 + 0.9e1 / 0.8e1 * t2749 - 0.3e1 / 0.2e1 * t2424 + t8571 + t8572 - t1815 / 0.2e1 - t1819 - 0.3e1 / 0.2e1 * t1830 - 0.3e1 * t1823 - 0.9e1 / 0.8e1 * t2401 - 0.3e1 / 0.4e1 * t1837;
13188 
13189   t8582 = t8571 - t1816 - 0.2e1 / 0.3e1 * t1819 + t2431 / 0.2e1 - t2425 + t8572 - t1837 / 0.2e1 - t2410 - 0.2e1 / 0.3e1 * t2413 + t2750 - t2402 - t1823 - t1831 - t3793;
13190   t8583 = t3136 / 0.3e1;
13191   t8584 = 0.3e1 / 0.4e1 * t3501;
13192   t8585 = 0.3e1 / 0.4e1 * t3129;
13193   t8587 = t8 * t2767 * t247;
13194   t8589 = t3141 * t767;
13195   t8591 = t3132 * t2417 * t8589;
13196   t8594 = t3126 * t455;
13197   t8596 = t2775 * t2417 * t8594;
13198   t8598 = t8 * t7972 * t945;
13199   t8601 = t2416 * t7937 * t3141;
13200   t8602 = t8601 / 0.3e1;
13201   t8603 = t1082 * t2421;
13202   t8605 = t3132 * t3133 * t8603;
13203   t8607 = t2746 * t1082;
13204   t8609 = t2416 * t2417 * t8607;
13205   t8611 = t944 * t1827;
13206   t8613 = t2754 * t2755 * t8611;
13207   t8615 = t762 * t9;
13208   t8617 = t8 * t2767 * t8615;
13209   t8619 = t8 * t1817 * t2763;
13210   t8620 = t8619 / 0.3e1;
13211   t8621 = -t6952 - t8587 / 0.2e1 + t8591 / 0.3e1 + t6954 / 0.6e1 + t8596 + t8598 / 0.9e1 + t8602 - t8605 / 0.6e1 + t8609 / 0.2e1 - t8613 / 0.6e1 - t8617 - t8620;
13212   t8622 = t15 * t3092;
13213   t8624 = t8 * t8622 * t2768;
13214   t8626 = t17 * t762;
13215   t8628 = t2754 * t8626 * t2756;
13216   t8630 = t2255 * t247;
13217   t8631 = t9 * t455;
13218   t8633 = t2754 * t8630 * t8631;
13219   t8635 = t7 * t7977;
13220   t8636 = t5 * t8635;
13221   t8637 = t944 * t1812;
13222   t8639 = t8636 * t2755 * t8637;
13223   t8641 = t189 * t247;
13224   t8643 = t2754 * t8641 * t2756;
13225   t8644 = t8643 / 0.9e1;
13226   t8645 = t2399 * t944;
13227   t8647 = t8 * t450 * t8645;
13228   t8649 = t2255 * p->cam_beta;
13229   t8650 = t936 * t9;
13230   t8652 = t2416 * t8649 * t8650;
13231   t8653 = t7 * t8549;
13232   t8654 = t5 * t8653;
13233   t8655 = t1082 * t2406;
13234   t8657 = t8654 * t3133 * t8655;
13235   t8659 = t189 * t444;
13236   t8661 = t3132 * t8659 * t3134;
13237   t8662 = t8661 / 0.9e1;
13238   t8667 = t8 * t3145 * t444;
13239   t8669 = 0.7e1 / 0.6e1 * t8624 - t8628 / 0.3e1 - t8633 / 0.3e1 + t8639 / 0.9e1 - t8644 - t8647 / 0.2e1 - t8652 + t8657 / 0.9e1 - t8662 + t7939 / 0.3e1 + t7950 / 0.8e1 - t7958 / 0.6e1 + t8667 / 0.2e1;
13240   t8673 = t1345 * t2421;
13241   t8675 = t8 * t766 * t8673;
13242   t8678 = t8 * t460 * t3127;
13243   t8679 = t8678 / 0.4e1;
13244   t8681 = t8 * t772 * t3499;
13245   t8682 = t8681 / 0.4e1;
13246   t8687 = t8 * t2426 * t1345;
13247   t8690 = t8 * t2411 * t3152;
13248   t8691 = t8690 / 0.3e1;
13249   t8692 = t1345 * t2406;
13250   t8694 = t8 * t2405 * t8692;
13251   t8701 = t1034 * t1863;
13252   t8702 = t8701 * t1839;
13253   t8705 = t2987 * t26;
13254   t8706 = t8705 * t468;
13255   t8709 = t1034 * t25;
13256   t8710 = t8709 * t1839;
13257   t8713 = t2784 * t1845;
13258   t8718 = t2850 * t543;
13259   t8722 = 0.1e1 / t17 / t7059;
13260   t8723 = t8722 * t69;
13261   t8725 = t490 * t8723 * t2805;
13262   t8727 = t69 * t513;
13263   t8731 = t949 * t1882;
13264   t8735 = t492 * t1969;
13265   t8736 = t943 * t506;
13266   t8737 = t8736 * t454;
13267   t8738 = t8735 * t8737;
13268   t8742 = t7070 * t943 * t1970;
13269   t8747 = t490 * t7463 * t949;
13270   t8751 = t490 * t1943 * t2793 / 0.810e3;
13271   t8754 = 0.4e1 / 0.243e3 * t490 * t1947 * t2798;
13272   t8755 = t949 * t1911;
13273   t8759 = t2803 * t492;
13274   t8760 = t2805 * t506;
13275   t8764 = t2797 * t1975;
13276   t8768 = t1969 * t9;
13277   t8769 = t8768 * t454;
13278   t8780 = 0.11e2 / 0.81e2 * t8725 - t38 * t7096 * t8727 / 0.27e2 - 0.11e2 / 0.5400e4 * t490 * t1953 * t8731 - 0.2e1 / 0.405e3 * t5889 * t8738 - 0.14e2 / 0.243e3 * t490 * t511 * t8742 - 0.2e1 / 0.243e3 * t8747 - t8751 - t8754 + t490 * t493 * t8755 / 0.540e3 + t490 * t8759 * t8760 / 0.135e3 + 0.2e1 / 0.81e2 * t490 * t511 * t8764 + 0.8e1 / 0.81e2 * t490 * t2804 * t8769 - 0.11e2 / 0.5400e4 * t7444 - t7447 / 0.810e3 - 0.2e1 / 0.243e3 * t7450 - t7458 - 0.2e1 / 0.405e3 * t7461 - 0.4e1 / 0.243e3 * t7465 + t7468 / 0.540e3 + t7471 / 0.162e3;
13279   t8781 = my_piecewise3(t76, 0, t8780);
13280   t8794 = t1986 * t1981;
13281   t8797 = t7643 * t1987;
13282   t8801 = t1987 * t954;
13283   t8802 = t7699 * t8801;
13284   t8804 = t519 * t2810;
13285   t8807 = t1981 * t954;
13286   t8821 = t4923 * t2045;
13287   t8823 = t1999 * t2810;
13288   t8824 = t8823 * t557;
13289   t8826 = t7504 * t954;
13290   t8828 = 0.5e1 / 0.2e1 * t8826 * t2045;
13291   t8829 = t2827 * t2048;
13292   t8831 = t525 * t8781;
13293   t8834 = t2006 * t2810;
13294   t8839 = t7499 * t954;
13295   t8842 = t1981 * t87;
13296   t8853 = t79 * t8781 * t86;
13297   t8854 = 0.15e2 / 0.2e1 * t8821 - 0.4e1 * t8824 - t8828 - 0.2e1 * t8829 + t8831 * t86 / 0.2e1 + t8834 * t557 / 0.2e1 + t2833 * t2048 / 0.4e1 + t8839 * t2045 / 0.8e1 - 0.4e1 * t8842 * t954 - 0.8e1 * t2836 * t2810 - t2143 * t982 - 0.2e1 * t615 * t2882 - 0.4e1 * t529 * t8781 - t8853;
13298   t8857 = 0.7e1 / 0.2e1 * t2007 * t982 - t8794 * t982 / 0.2e1 - t8797 * t982 / 0.4e1 - t2814 * t2882 - 0.6e1 * t8802 + 0.4e1 * t1991 * t8804 + 0.2e1 * t1991 * t8807 - t521 * t8781 + 0.2e1 * t8781 * t90 + 0.4e1 * t2810 * t534 + 0.2e1 * t954 * t2018 + 0.2e1 * t1981 * t966 + 0.4e1 * t519 * t2844 + 0.2e1 * t77 * t8854;
13299   t8860 = -0.8e1 / 0.3e1 * t8781 * t93 - 0.16e2 / 0.3e1 * t2810 * t537 - 0.8e1 / 0.3e1 * t954 * t2021 - 0.8e1 / 0.3e1 * t1981 * t969 - 0.16e2 / 0.3e1 * t519 * t2847 - 0.8e1 / 0.3e1 * t77 * t8857;
13300   t8874 = t84 * t8781;
13301   t8881 = t8781 * t81;
13302   t8898 = t8781 * t86;
13303   t8901 = t1007 * t2006;
13304   t8906 = t2928 * t525;
13305   t8910 = t1007 * t1999;
13306   t8914 = t982 * t1987;
13307   t8922 = t2100 * t2882 + t598 * t8898 / 0.2e1 + t8901 * t2045 / 0.4e1 + t7670 * t982 / 0.2e1 + t8906 * t557 + t2930 * t2048 / 0.2e1 - 0.3e1 / 0.2e1 * t8910 * t2045 - 0.360e3 * t8802 + 0.6e1 * t7682 * t8914 + 0.7e1 * t7673 * t8914 - 0.12e2 * t614 * t2827 * t1987;
13308   t8924 = t2048 * t954;
13309   t8926 = t557 * t2810;
13310   t8949 = -t2138 * t8924 - 0.2e1 * t2138 * t8926 - t7644 * t8914 / 0.2e1 + 0.8e1 * t614 * t2830 * t519 + 0.4e1 * t614 * t959 * t1981 - 0.3e1 * t7679 * t2879 + t7664 * t2879 / 0.2e1 - 0.3e1 * t2102 * t8926 - 0.3e1 / 0.2e1 * t2102 * t8924 - 0.9e1 / 0.4e1 * t7667 * t8914 + t2107 * t8926 / 0.2e1;
13311   t8954 = t77 * t1017;
13312   t8957 = t1987 * t143;
13313   t8960 = t83 * t2958;
13314   t8977 = t83 * t8781;
13315   t8985 = t101 * t8781;
13316   t8997 = t132 * t2810;
13317   t9004 = 0.808290e6 * t1001 * t1987 - 0.61931520e8 * t1003 * t1987 + 0.161658e6 * t1015 * t1981 - 0.1105920e7 * t134 * t8781 + 0.26943e5 * t141 * t8781 - 0.8847360e7 * t1981 * t2923 + 0.1536e4 * t1981 * t976 - 0.11520e5 * t1981 * t978 - 0.34560e5 * t1987 * t999 + 0.3072e4 * t2866 * t519 - 0.23040e5 * t2870 * t519 + 0.323316e6 * t2956 * t519 - 0.17694720e8 * t519 * t8997 - 0.8e1 * t8781 + 0.1536e4 * t8801 + 0.768e3 * t8977 - 0.2880e4 * t8985;
13318   t9008 = t77 * t8781;
13319   t9010 = t976 * t1987;
13320   t9012 = t2913 * t519;
13321   t9014 = t999 * t1981;
13322   t9016 = t128 * t8781;
13323   t9024 = t130 * t8781;
13324   t9026 = 0.153600e6 * t1001 * t1981 + 0.614400e6 * t1987 * t978 + 0.307200e6 * t2917 * t519 + 0.896e3 * t8804 + 0.448e3 * t8807 + 0.448e3 * t9008 - 0.34560e5 * t9010 - 0.34560e5 * t9012 - 0.17280e5 * t9014 - 0.5760e4 * t9016 + 0.30720e5 * t9024;
13325   t9029 = t2107 * t8924 / 0.4e1 + t7655 * t8914 / 0.8e1 + 0.144e3 * t8954 * t1987 + 0.144e3 * t8957 * t954 + 0.144e3 * t8960 * t519 + 0.72e2 * t2947 * t1981 + 0.72e2 * t7637 * t954 + 0.144e3 * t2113 * t2810 + 0.72e2 * t601 * t8781 + t9004 * t86 + 0.24e2 * t128 * t9026;
13326   t9031 = 0.240e3 * t1020 * t2056 + 0.240e3 * t106 * t8881 - 0.480e3 * t2048 * t964 + 0.288e3 * t2110 * t8804 + 0.144e3 * t2110 * t8807 + 0.288e3 * t2817 * t7634 - 0.960e3 * t2842 * t557 + 0.480e3 * t2963 * t561 + 0.720e3 * t521 * t8801 - 0.2e1 * t614 * t8874 + t8922 + t8949 + t9029;
13327   t9035 = (0.8e1 / 0.7e1 * t8781 * t151 + 0.16e2 / 0.7e1 * t2810 * t618 + 0.8e1 / 0.7e1 * t954 * t2146 + 0.8e1 / 0.7e1 * t1981 * t1026 + 0.16e2 / 0.7e1 * t519 * t2975 + 0.8e1 / 0.7e1 * t77 * t9031) * t41;
13328   t9036 = t9035 * t45;
13329   t9039 = t2898 * t41;
13330   t9042 = t2901 * t41;
13331   t9047 = t972 * t1933;
13332   t9062 = t993 * t1896;
13333   t9065 = t2897 * t575;
13334   t9068 = t1981 * t109;
13335   t9071 = t519 * t565;
13336   t9084 = t77 * t2894;
13337   t9089 = t980 * t2006;
13338   t9094 = t980 * t1999;
13339   t9100 = t2872 * t525;
13340   t9107 = 0.1536e4 * t9010;
13341   t9108 = 0.1536e4 * t9012;
13342   t9109 = 0.768e3 * t9014;
13343   t9112 = t9089 * t2045 / 0.4e1 + t556 * t8898 / 0.2e1 - 0.3e1 / 0.2e1 * t9094 * t2045 + t7511 * t982 / 0.2e1 + t2042 * t2882 + t9100 * t557 + t2874 * t2048 / 0.2e1 + 0.20e2 * t8821 - 0.10e2 * t8824 - t8828 - 0.5e1 * t8829 + t9107 + t9108 + t9109 + t2051 * t8924 / 0.4e1;
13344   t9115 = t78 * t8781;
13345   t9136 = 0.256e3 * t9016;
13346   t9140 = 0.40e2 * t8807 + 0.80e2 * t8804 + 0.40e2 * t9008 - t9107 - t9108 - t9109 - t9136;
13347   t9142 = t7500 * t8914 / 0.8e1 + 0.10e2 * t9115 * t81 + 0.6e1 * t7538 * t8914 - 0.3e1 * t7535 * t2879 + t7516 * t2879 / 0.2e1 - 0.3e1 * t2044 * t8926 - 0.3e1 / 0.2e1 * t2044 * t8924 - 0.9e1 / 0.4e1 * t7505 * t8914 + t2051 * t8926 / 0.2e1 - 0.10e2 * t8853 - 0.72e2 * t8807 - 0.144e3 * t8804 - 0.72e2 * t9008 + t9136 + t9140 * t86;
13348   t9143 = t9112 + t9142;
13349   t9146 = 0.48e2 * t1981 * t2862 + 0.48e2 * t1987 * t990 + 0.96e2 * t2028 * t2810 + 0.96e2 * t2810 * t2855 + 0.96e2 * t519 * t9084 + 0.48e2 * t547 * t8781 + 0.48e2 * t7396 * t954 + 0.24e2 * t83 * t9143 + 0.48e2 * t9068 * t954 + 0.96e2 * t9071 * t954;
13350   t9147 = t9146 * t120;
13351   t9150 = -t2852 * t1911 / 0.5e1 - 0.2e1 / 0.5e1 * t8718 * t506 + t8860 * t98 - 0.14e2 / 0.81e2 * t2904 * t2074 + 0.26329605555555555556e-1 * t9036 * t157 - 0.28e2 / 0.81e2 * t9039 * t583 - 0.28e2 / 0.81e2 * t9042 * t583 + 0.98e2 / 0.405e3 * t2904 * t1929 + 0.6e1 / 0.25e2 * t9047 * t1882 + 0.14744579111111111111e-1 * t1031 * t1884 - 0.10531842222222222222e-1 * t1031 * t1915 + 0.25744503209876543210e0 * t1031 * t1918 + 0.56169825185185185185e-1 * t1031 * t1921 - 0.14042456296296296297e0 * t2980 * t626 - 0.21063684444444444444e-1 * t2980 * t630 + 0.35e2 / 0.81e2 * t9062 * t124 + 0.70e2 / 0.81e2 * t9065 * t124 + 0.35e2 / 0.81e2 * t9147 * t124;
13352   t9152 = t2165 * t1074;
13353   t9154 = t637 * t3121;
13354   t9159 = t2803 * t1969;
13355   t9160 = t3005 * t454;
13356   t9166 = 0.32e2 / 0.729e3 * t490 * t7081 * t2996;
13357   t9167 = t3000 * t454;
13358   t9171 = t1036 * t1975;
13359   t9176 = t490 * t7100 * t1036;
13360   t9184 = t2294 * t943;
13361   t9188 = -0.64e2 / 0.243e3 * t490 * t9159 * t9160 + t9166 - 0.32e2 / 0.243e3 * t490 * t2183 * t9167 - 0.16e2 / 0.243e3 * t490 * t2183 * t9171 + 0.16e2 / 0.729e3 * t9176 - 0.8e1 / 0.243e3 * t7105 - 0.4e1 / 0.243e3 * t7094 + 0.32e2 / 0.729e3 * t7102 + 0.16e2 / 0.729e3 * t7083 + 0.4e1 / 0.81e2 * t7296 - 0.32e2 / 0.243e3 * t7299 + 0.4e1 / 0.81e2 * t490 * t643 * t9184;
13362   t9191 = 0.8e1 / 0.243e3 * t490 * t2176 * t3000;
13363   t9192 = t8722 * t513;
13364   t9194 = t490 * t9192 * t3005;
13365   t9197 = t38 * t1939 * t1070;
13366   t9199 = t513 * t202;
13367   t9205 = 0.8e1 / 0.81e2 * t38 * t485 * t3117;
13368   t9208 = 0.8e1 / 0.243e3 * t490 * t2176 * t3012;
13369   t9209 = t696 * t9;
13370   t9213 = t3116 * t454;
13371   t9217 = t1036 * t1970;
13372   t9221 = t3045 * t454;
13373   t9225 = t1047 * t1975;
13374   t9229 = t3049 * t454;
13375   t9235 = 0.8e1 / 0.243e3 * t490 * t7081 * t3041;
13376   t9242 = 0.2e1 / 0.27e2 * t38 * t485 * t3112;
13377   t9243 = t3074 * t670;
13378   t9244 = t9243 * t186;
13379   t9246 = t1055 * t2250;
13380   t9247 = t9246 * t186;
13381   t9248 = t1055 * t2252;
13382   t9249 = t9248 * t186;
13383   t9253 = 0.20e2 / 0.243e3 * t679 * t7265 * t3083;
13384   t9256 = 0.4e1 / 0.81e2 * t679 * t2260 * t3087;
13385   t9257 = t1057 * t1975;
13386   t9261 = t3092 * t2269;
13387   t9262 = t3094 * t454;
13388   t9266 = t2251 * t943;
13389   t9270 = t1056 * t1970;
13390   t9277 = t1057 * t1970;
13391   t9281 = t2253 * t943;
13392   t9288 = t1056 * t1975;
13393   t9295 = t671 * t9;
13394   t9301 = 0.4e1 / 0.81e2 * t679 * t2260 * t3101;
13395   t9302 = 0.2e1 * t9244 + t9247 + t9249 - 0.4e1 / 0.81e2 * t7237 + t9253 - t9256 - 0.5e1 / 0.81e2 * t679 * t2270 * t9257 - 0.20e2 / 0.81e2 * t679 * t9261 * t9262 + t679 * t682 * t9266 / 0.27e2 - 0.5e1 / 0.81e2 * t679 * t2270 * t9270 - t679 * t687 * t9249 / 0.18e2 + 0.40e2 / 0.243e3 * t679 * t7244 * t9277 + t679 * t682 * t9281 / 0.27e2 - t679 * t687 * t9247 / 0.18e2 + t679 * t682 * t9288 / 0.27e2 - t679 * t687 * t9244 / 0.9e1 + 0.4e1 / 0.27e2 * t679 * t3093 * t9295 - t9301;
13396   t9305 = 0.2e1 / 0.27e2 * t679 * t2264 * t3077;
13397   t9306 = t3075 * t454;
13398   t9317 = t179 * t485 * t1051;
13399   t9321 = 0.8e1 / 0.81e2 * t3065 * t643 * t3025;
13400   t9323 = t179 * t7096 * t3070;
13401   t9325 = t180 * t1969;
13402   t9326 = t943 * t1970;
13403   t9330 = t9 * t454;
13404   t9334 = t943 * t1975;
13405   t9341 = -t7177 + 0.8e1 / 0.81e2 * t7179 + 0.4e1 / 0.81e2 * t7182 - 0.4e1 / 0.27e2 * t7185 + 0.4e1 / 0.81e2 * t9317 + t9321 + 0.20e2 / 0.27e2 * t9323 - 0.8e1 / 0.81e2 * t3065 * t9325 * t9326 + 0.8e1 / 0.27e2 * t3065 * t7100 * t9330 + 0.2e1 / 0.27e2 * t3065 * t3066 * t9334 - 0.4e1 / 0.9e1 * t179 * t1939 * t71;
13406   t9342 = t9341 * t186;
13407   t9343 = t681 * t192;
13408   t9349 = 0.2e1 / 0.27e2 * t679 * t2264 * t3075;
13409   t9351 = t679 * t7215 * t1056;
13410   t9354 = t679 * t7211 * t1057;
13411   t9360 = 0.1e1 / t180 / t7059;
13412   t9361 = t9360 * t681;
13413   t9363 = t679 * t9361 * t3094;
13414   t9369 = t187 * t678 * t189;
13415   t9370 = t681 * t1055;
13416   t9371 = t9370 * t2275;
13417   t9374 = t2269 * t670;
13418   t9375 = t186 * t943;
13419   t9376 = t9375 * t454;
13420   t9377 = t9374 * t9376;
13421   t9380 = t9305 + 0.2e1 / 0.27e2 * t679 * t682 * t9306 + 0.20e2 / 0.243e3 * t7213 - 0.10e2 / 0.81e2 * t7217 - 0.2e1 / 0.81e2 * t7220 + t9342 + 0.2e1 / 0.27e2 * t188 * t7207 * t9343 + t9349 - 0.5e1 / 0.81e2 * t9351 + 0.10e2 / 0.243e3 * t9354 - t679 * t687 * t9342 / 0.18e2 - 0.26e2 / 0.81e2 * t9363 + t7210 + t7223 / 0.27e2 + t7240 / 0.27e2 + 0.10e2 / 0.243e3 * t7267 + 0.2e1 / 0.27e2 * t9369 * t9371 - 0.10e2 / 0.81e2 * t9369 * t9377;
13422   t9381 = t9302 + t9380;
13423   t9382 = t71 * t9381;
13424   t9389 = t38 * t1939 * t1065;
13425   t9391 = 0.8e1 / 0.81e2 * t490 * t2183 * t9221 + 0.4e1 / 0.81e2 * t490 * t2183 * t9225 + 0.16e2 / 0.81e2 * t490 * t9159 * t9229 - t9235 + 0.2e1 / 0.81e2 * t7160 - 0.4e1 / 0.243e3 * t7171 + t7151 / 0.81e2 - 0.8e1 / 0.243e3 * t7157 - t9242 + t38 * t40 * t9382 / 0.9e1 - t7284 / 0.27e2 + 0.8e1 / 0.81e2 * t7281 - t7155 + 0.4e1 / 0.81e2 * t9389;
13426   t9392 = t1047 * t1970;
13427   t9398 = 0.2e1 / 0.81e2 * t490 * t2176 * t3056;
13428   t9399 = t2289 * t943;
13429   t9405 = 0.2e1 / 0.81e2 * t490 * t2176 * t3045;
13430   t9407 = t490 * t9192 * t3049;
13431   t9409 = t513 * t197;
13432   t9413 = t3111 * t454;
13433   t9417 = t691 * t9;
13434   t9422 = t490 * t7100 * t1047;
13435   t9424 = t1064 * t1975;
13436   t9428 = t1064 * t1970;
13437   t9436 = t166 * t674 * t1040;
13438   t9440 = 0.4e1 / 0.81e2 * t3023 * t682 * t3025;
13439   t9442 = t166 * t7207 * t3029;
13440   t9444 = t17 * t2269;
13441   t9457 = t7109 - 0.4e1 / 0.81e2 * t7111 - 0.2e1 / 0.81e2 * t7114 + t7117 / 0.27e2 - 0.2e1 / 0.81e2 * t9436 - t9440 - 0.14e2 / 0.27e2 * t9442 + 0.10e2 / 0.81e2 * t3023 * t9444 * t9326 - 0.8e1 / 0.27e2 * t3023 * t7211 * t9330 - 0.2e1 / 0.27e2 * t3023 * t3024 * t9334 + 0.2e1 / 0.9e1 * t166 * t2256 * t191;
13442   t9466 = -0.28e2 / 0.243e3 * t490 * t7071 * t9392 + t9398 - t490 * t643 * t9399 / 0.27e2 + t9405 + 0.22e2 / 0.81e2 * t9407 - 0.2e1 / 0.27e2 * t38 * t7096 * t9409 - 0.2e1 / 0.27e2 * t490 * t643 * t9413 - 0.4e1 / 0.27e2 * t490 * t3004 * t9417 - 0.4e1 / 0.243e3 * t9422 - t490 * t643 * t9424 / 0.27e2 + 0.4e1 / 0.81e2 * t490 * t2183 * t9428 + 0.2e1 * t186 * t9457 + 0.2e1 * t2251 * t1044 + 0.4e1 * t671 * t3033 + 0.2e1 * t2253 * t1044;
13443   t9467 = t9391 + t9466;
13444   t9468 = t71 * t9467;
13445   t9472 = t1069 * t1970;
13446   t9476 = t1069 * t1975;
13447   t9480 = -t9191 - 0.88e2 / 0.243e3 * t9194 + t7099 - 0.16e2 / 0.243e3 * t9197 + 0.8e1 / 0.81e2 * t38 * t7096 * t9199 + t9205 - t9208 + 0.16e2 / 0.81e2 * t490 * t3004 * t9209 + 0.8e1 / 0.81e2 * t490 * t643 * t9213 + 0.112e3 / 0.729e3 * t490 * t7071 * t9217 - 0.4e1 / 0.27e2 * t38 * t40 * t9468 - 0.16e2 / 0.243e3 * t490 * t2183 * t9472 + 0.4e1 / 0.81e2 * t490 * t643 * t9476;
13448   t9481 = t9188 + t9480;
13449   t9482 = t162 * t9481;
13450   t9490 = t1853 * t1034 - 0.12e2 * t1855 * t2785 + 0.2e1 * t474 * t2987 + 0.54e2 * t1862 * t8702 - 0.12e2 * t478 * t8706 - 0.12e2 * t478 * t8710 - 0.6e1 * t478 * t8713 + t33 * t9150 + t9152 * t230 + 0.2e1 * t9154 * t230 + t2989 * t732 / 0.5e1 + t9482 * t230 + t3122 * t732 / 0.5e1 - 0.9e1 / 0.100e3 * t1075 * t2307 + t1075 * t2342 / 0.10e2;
13451   t9491 = p->cam_beta * t9490;
13452   t9493 = t8 * t18 * t9491;
13453   t9495 = -t7962 / 0.18e2 - t7965 / 0.6e1 - t8675 / 0.2e1 + t8679 + t8682 + 0.2e1 / 0.9e1 * t7974 - t7986 / 0.18e2 - t7989 / 0.3e1 + t8687 / 0.12e2 - t8691 - t8694 / 0.6e1 + 0.3e1 / 0.8e1 * t9493;
13454   t9497 = t2618 * t262;
13455   t9498 = t9497 * t1091;
13456   t9504 = t1938 * t1108;
13457   t9506 = t490 * t9504 * t1123;
13458   t9510 = t490 * t3165 * t3170 / 0.810e3;
13459   t9511 = t2442 * t1122;
13460   t9512 = t9511 * t2443;
13461   t9516 = t3169 * t2448;
13462   t9521 = t490 * t7993 * t1128;
13463   t9525 = 0.4e1 / 0.243e3 * t490 * t2436 * t3178;
13464   t9526 = t8722 * t288;
13465   t9528 = t490 * t9526 * t3183;
13466   t9531 = t8005 * t1127 * t2443;
13467   t9535 = t2442 * t9;
13468   t9536 = t9535 * t781;
13469   t9540 = t3177 * t2448;
13470   t9544 = t288 * t780;
13471   t9548 = -t7992 - 0.4e1 / 0.243e3 * t7995 - 0.2e1 / 0.243e3 * t7998 + t8001 / 0.162e3 - t9506 / 0.405e3 - t9510 - t490 * t1109 * t9512 / 0.405e3 + t490 * t1109 * t9516 / 0.540e3 - 0.2e1 / 0.243e3 * t9521 - t9525 - 0.11e2 / 0.81e2 * t9528 - 0.14e2 / 0.243e3 * t490 * t778 * t9531 - 0.8e1 / 0.81e2 * t490 * t3182 * t9536 + 0.2e1 / 0.81e2 * t490 * t778 * t9540 + t38 * t7096 * t9544 / 0.27e2;
13472   t9549 = my_piecewise3(t295, 0, t9548);
13473   t9562 = t2459 * t2454;
13474   t9565 = t8035 * t2460;
13475   t9569 = t2460 * t1133;
13476   t9570 = t8039 * t9569;
13477   t9572 = t787 * t3188;
13478   t9575 = t2454 * t1133;
13479   t9589 = t5350 * t2518;
13480   t9591 = t2472 * t3188;
13481   t9592 = t9591 * t820;
13482   t9594 = t8058 * t1133;
13483   t9596 = 0.5e1 / 0.2e1 * t9594 * t2518;
13484   t9597 = t3205 * t2521;
13485   t9599 = t793 * t9549;
13486   t9602 = t2479 * t3188;
13487   t9607 = t8068 * t1133;
13488   t9610 = t2454 * t305;
13489   t9621 = t297 * t9549 * t304;
13490   t9622 = 0.15e2 / 0.2e1 * t9589 - 0.4e1 * t9592 - t9596 - 0.2e1 * t9597 + t9599 * t304 / 0.2e1 + t9602 * t820 / 0.2e1 + t3211 * t2521 / 0.4e1 + t9607 * t2518 / 0.8e1 - 0.4e1 * t9610 * t1133 - 0.8e1 * t3214 * t3188 - t2607 * t1166 - 0.2e1 * t864 * t3260 - 0.4e1 * t797 * t9549 - t9621;
13491   t9625 = 0.7e1 / 0.2e1 * t2480 * t1166 - t9562 * t1166 / 0.2e1 - t9565 * t1166 / 0.4e1 - t3192 * t3260 - 0.6e1 * t9570 + 0.4e1 * t2464 * t9572 + 0.2e1 * t2464 * t9575 - t789 * t9549 + 0.2e1 * t9549 * t308 + 0.4e1 * t3188 * t802 + 0.2e1 * t1133 * t2491 + 0.2e1 * t2454 * t1145 + 0.4e1 * t787 * t3222 + 0.2e1 * t296 * t9622;
13492   t9628 = -0.8e1 / 0.3e1 * t9549 * t311 - 0.16e2 / 0.3e1 * t3188 * t805 - 0.8e1 / 0.3e1 * t1133 * t2494 - 0.8e1 / 0.3e1 * t2454 * t1148 - 0.16e2 / 0.3e1 * t787 * t3225 - 0.8e1 / 0.3e1 * t296 * t9625;
13493   t9630 = t2497 * t1154;
13494   t9633 = t2454 * t327;
13495   t9636 = t787 * t828;
13496   t9649 = t296 * t3272;
13497   t9657 = t296 * t9549;
13498   t9659 = t344 * t9549;
13499   t9660 = 0.256e3 * t9659;
13500   t9664 = t1160 * t2460;
13501   t9665 = 0.1536e4 * t9664;
13502   t9666 = t3291 * t787;
13503   t9667 = 0.1536e4 * t9666;
13504   t9668 = t1197 * t2454;
13505   t9669 = 0.768e3 * t9668;
13506   t9670 = 0.40e2 * t9575 + 0.80e2 * t9572 + 0.40e2 * t9657 - t9665 - t9667 - t9669 - t9660;
13507   t9675 = t3260 * t787;
13508   t9678 = t1166 * t2454;
13509   t9681 = 0.20e2 * t9589 - 0.10e2 * t9592 - t9596 - 0.5e1 * t9597 - 0.72e2 * t9657 + t9660 + t9670 * t304 - 0.72e2 * t9575 - 0.144e3 * t9572 - 0.10e2 * t9621 + t9665 + t9667 + t9669 - 0.3e1 * t2517 * t9675 - 0.3e1 / 0.2e1 * t2517 * t9678;
13510   t9682 = t9569 * t304;
13511   t9697 = t78 * t9549;
13512   t9700 = t3250 * t793;
13513   t9704 = t1164 * t2479;
13514   t9710 = t9549 * t304;
13515   t9713 = t1164 * t2472;
13516   t9716 = -0.9e1 / 0.4e1 * t8120 * t9682 + t2524 * t9675 / 0.2e1 + t2524 * t9678 / 0.4e1 + t8127 * t9682 / 0.8e1 - 0.3e1 * t8137 * t3257 + t8117 * t3257 / 0.2e1 + 0.6e1 * t8140 * t9682 + 0.10e2 * t9697 * t299 + t9700 * t820 + t3252 * t2521 / 0.2e1 + t9704 * t2518 / 0.4e1 + t8112 * t1166 / 0.2e1 + t2515 * t3260 + t819 * t9710 / 0.2e1 - 0.3e1 / 0.2e1 * t9713 * t2518;
13517   t9717 = t9681 + t9716;
13518   t9720 = 0.48e2 * t1133 * t8092 + 0.48e2 * t1133 * t9633 + 0.96e2 * t1133 * t9636 + 0.48e2 * t1174 * t2460 + 0.48e2 * t2454 * t3240 + 0.96e2 * t2501 * t3188 + 0.24e2 * t301 * t9717 + 0.96e2 * t3188 * t3233 + 0.96e2 * t787 * t9649 + 0.48e2 * t810 * t9549;
13519   t9721 = t9720 * t336;
13520   t9724 = t2537 * t1184;
13521   t9727 = t2538 * t41;
13522   t9740 = t302 * t9549;
13523   t9745 = t1205 * t2479;
13524   t9766 = t9549 * t299;
13525   t9773 = t3306 * t793;
13526   t9775 = t1205 * t2472;
13527   t9791 = t346 * t9549;
13528   t9793 = 0.614400e6 * t1162 * t2460 + 0.153600e6 * t1199 * t2454 + 0.307200e6 * t3295 * t787 + 0.896e3 * t9572 + 0.448e3 * t9575 + 0.448e3 * t9657 - 0.5760e4 * t9659 - 0.34560e5 * t9664 - 0.34560e5 * t9666 - 0.17280e5 * t9668 + 0.30720e5 * t9791;
13529   t9802 = t301 * t9549;
13530   t9810 = t319 * t9549;
13531   t9822 = t348 * t3188;
13532   t9829 = 0.1536e4 * t1160 * t2454 - 0.11520e5 * t1162 * t2454 - 0.34560e5 * t1197 * t2460 + 0.808290e6 * t1199 * t2460 - 0.61931520e8 * t1201 * t2460 + 0.161658e6 * t1213 * t2454 - 0.8847360e7 * t2454 * t3301 + 0.3072e4 * t3244 * t787 - 0.23040e5 * t3248 * t787 + 0.323316e6 * t3334 * t787 - 0.1105920e7 * t350 * t9549 + 0.26943e5 * t357 * t9549 - 0.17694720e8 * t787 * t9822 - 0.8e1 * t9549 + 0.1536e4 * t9569 + 0.768e3 * t9802 - 0.2880e4 * t9810;
13533   t9834 = 0.480e3 * t824 * t3341 + 0.720e3 * t9569 * t789 + 0.240e3 * t324 * t9766 - 0.960e3 * t3220 * t820 - 0.480e3 * t1143 * t2521 + t9773 * t820 - 0.3e1 / 0.2e1 * t9775 * t2518 + 0.24e2 * t344 * t9793 + t9829 * t304 - 0.360e3 * t9570 + t2571 * t9678 / 0.4e1;
13534   t9858 = -0.3e1 * t8249 * t3257 + t8219 * t3257 / 0.2e1 - 0.3e1 * t2566 * t9675 - 0.3e1 / 0.2e1 * t2566 * t9678 - 0.9e1 / 0.4e1 * t8222 * t9682 + t2571 * t9675 / 0.2e1 + t8227 * t9682 / 0.8e1 - t2602 * t9678 - 0.2e1 * t2602 * t9675 - t8240 * t9682 / 0.2e1 + 0.8e1 * t863 * t3208 * t787;
13535   t9869 = t2460 * t359;
13536   t9872 = t296 * t1215;
13537   t9881 = t301 * t3336;
13538   t9886 = 0.4e1 * t1138 * t2454 * t863 - 0.12e2 * t2460 * t3205 * t863 + 0.72e2 * t1133 * t8263 + 0.144e3 * t1133 * t9869 + 0.72e2 * t2454 * t3325 + 0.144e3 * t2460 * t9872 + 0.144e3 * t2577 * t3188 + 0.144e3 * t787 * t9881 + 0.6e1 * t8252 * t9682 + 0.7e1 * t8255 * t9682 + 0.72e2 * t850 * t9549;
13539   t9888 = -0.2e1 * t863 * t9740 + t3308 * t2521 / 0.2e1 + t9745 * t2518 / 0.4e1 + t8243 * t1166 / 0.2e1 + t2564 * t3260 + t847 * t9710 / 0.2e1 + 0.288e3 * t8260 * t3195 + 0.288e3 * t2574 * t9572 + 0.144e3 * t2574 * t9575 + 0.240e3 * t2529 * t1218 + t9834 + t9858 + t9886;
13540   t9892 = (0.8e1 / 0.7e1 * t9549 * t367 + 0.16e2 / 0.7e1 * t3188 * t867 + 0.8e1 / 0.7e1 * t1133 * t2610 + 0.8e1 / 0.7e1 * t2454 * t1224 + 0.16e2 / 0.7e1 * t787 * t3353 + 0.8e1 / 0.7e1 * t296 * t9888) * t41;
13541   t9893 = t9892 * t45;
13542   t9900 = t9628 * t316 - t9630 * t1122 / 0.5e1 + 0.35e2 / 0.81e2 * t9721 * t340 + 0.35e2 / 0.81e2 * t9724 * t340 - 0.14e2 / 0.81e2 * t9727 * t1192 + 0.26329605555555555556e-1 * t9893 * t373 - 0.70212281481481481483e-1 * t2615 * t1232 - 0.10531842222222222222e-1 * t2615 * t1236;
13543   t9902 = t1243 * t2743;
13544   t9904 = t1279 * t2448;
13545   t9909 = t490 * t8444 * t1246;
13546   t9911 = t1279 * t2443;
13547   t9915 = t2738 * t1127;
13548   t9921 = 0.8e1 / 0.243e3 * t490 * t2623 * t3378;
13549   t9922 = t8722 * t780;
13550   t9924 = t490 * t9922 * t3383;
13551   t9926 = t3488 * t781;
13552   t9934 = t166 * t674 * t1250;
13553   t9938 = 0.4e1 / 0.81e2 * t3023 * t914 * t3401;
13554   t9940 = t166 * t7207 * t3405;
13555   t9942 = t17 * t2713;
13556   t9943 = t1127 * t2443;
13557   t9947 = t9 * t781;
13558   t9951 = t1127 * t2448;
13559   t9958 = t8401 - 0.4e1 / 0.81e2 * t8403 - 0.2e1 / 0.81e2 * t8406 + t8409 / 0.27e2 - 0.2e1 / 0.81e2 * t9934 - t9938 + 0.14e2 / 0.27e2 * t9940 + 0.10e2 / 0.81e2 * t3023 * t9942 * t9943 + 0.8e1 / 0.27e2 * t3023 * t8329 * t9947 - 0.2e1 / 0.27e2 * t3023 * t3400 * t9951 - 0.2e1 / 0.9e1 * t166 * t2256 * t389;
13560   t9961 = t1274 * t2443;
13561   t9966 = t490 * t8444 * t1257;
13562   t9970 = 0.2e1 / 0.27e2 * t38 * t485 * t3484;
13563   t9973 = 0.2e1 / 0.81e2 * t490 * t2623 * t3421;
13564   t9975 = t490 * t9922 * t3425;
13565   t9980 = 0.2e1 / 0.27e2 * t679 * t2708 * t3449;
13566   t9984 = 0.4e1 / 0.81e2 * t679 * t2704 * t3473;
13567   t9987 = 0.2e1 / 0.27e2 * t679 * t2708 * t3451;
13568   t9988 = t3449 * t781;
13569   t9992 = t1266 * t2448;
13570   t9998 = 0.20e2 / 0.243e3 * t679 * t8354 * t3457;
13571   t10001 = 0.4e1 / 0.81e2 * t679 * t2704 * t3461;
13572   t10002 = t1267 * t2448;
13573   t10006 = t3092 * t2713;
13574   t10007 = t3466 * t781;
13575   t10011 = t2698 * t1127;
13576   t10015 = t908 * t9;
13577   t10019 = t913 * t390;
13578   t10027 = t179 * t485 * t1261;
13579   t10031 = 0.8e1 / 0.81e2 * t3065 * t880 * t3401;
13580   t10033 = t179 * t7096 * t3444;
13581   t10035 = t180 * t2442;
13582   t10048 = -t8295 + 0.8e1 / 0.81e2 * t8297 + 0.4e1 / 0.81e2 * t8300 - 0.4e1 / 0.27e2 * t8303 + 0.4e1 / 0.81e2 * t10027 + t10031 - 0.20e2 / 0.27e2 * t10033 - 0.8e1 / 0.81e2 * t3065 * t10035 * t9943 - 0.8e1 / 0.27e2 * t3065 * t8444 * t9947 + 0.2e1 / 0.27e2 * t3065 * t3440 * t9951 + 0.4e1 / 0.9e1 * t179 * t1939 * t290;
13583   t10049 = t10048 * t388;
13584   t10051 = t679 * t8333 * t1266;
13585   t10054 = t679 * t8329 * t1267;
13586   t10059 = -0.4e1 / 0.81e2 * t8359 + t9980 + 0.20e2 / 0.243e3 * t8331 - t9984 + t9987 + 0.2e1 / 0.27e2 * t679 * t914 * t9988 + t679 * t914 * t9992 / 0.27e2 + t9998 - t10001 - 0.5e1 / 0.81e2 * t679 * t2714 * t10002 + 0.20e2 / 0.81e2 * t679 * t10006 * t10007 + t679 * t914 * t10011 / 0.27e2 - 0.4e1 / 0.27e2 * t679 * t3465 * t10015 - 0.2e1 / 0.27e2 * t188 * t7207 * t10019 + t10049 - 0.5e1 / 0.81e2 * t10051 + 0.10e2 / 0.243e3 * t10054 - t679 * t919 * t10049 / 0.18e2;
13587   t10060 = t9360 * t913;
13588   t10062 = t679 * t10060 * t3466;
13589   t10064 = t1265 * t2699;
13590   t10065 = t10064 * t388;
13591   t10069 = t2700 * t1127;
13592   t10073 = t1266 * t2443;
13593   t10077 = t1267 * t2443;
13594   t10081 = t3448 * t907;
13595   t10082 = t10081 * t388;
13596   t10086 = t1265 * t2697;
13597   t10087 = t10086 * t388;
13598   t10096 = t913 * t1265;
13599   t10097 = t10096 * t2719;
13600   t10100 = t2713 * t907;
13601   t10101 = t388 * t1127;
13602   t10102 = t10101 * t781;
13603   t10103 = t10100 * t10102;
13604   t10107 = 0.26e2 / 0.81e2 * t10062 + t8328 - t679 * t919 * t10065 / 0.18e2 + t679 * t914 * t10069 / 0.27e2 - 0.5e1 / 0.81e2 * t679 * t2714 * t10073 + 0.40e2 / 0.243e3 * t679 * t8366 * t10077 - t679 * t919 * t10082 / 0.9e1 - t679 * t919 * t10087 / 0.18e2 - 0.10e2 / 0.81e2 * t8335 - 0.2e1 / 0.81e2 * t8338 + t8341 / 0.27e2 + 0.10e2 / 0.243e3 * t8356 + t8362 / 0.27e2 + 0.2e1 / 0.27e2 * t9369 * t10097 - 0.10e2 / 0.81e2 * t9369 * t10103 + t10065 + 0.2e1 * t10082 + t10087;
13605   t10108 = t10059 + t10107;
13606   t10109 = t290 * t10108;
13607   t10113 = t780 * t395;
13608   t10118 = t38 * t1939 * t1275;
13609   t10124 = 0.2e1 / 0.81e2 * t490 * t2623 * t3432;
13610   t10125 = t2733 * t1127;
13611   t10129 = 0.2e1 * t388 * t9958 + 0.4e1 / 0.81e2 * t490 * t2630 * t9961 - 0.4e1 / 0.243e3 * t9966 - t9970 + t9973 - 0.22e2 / 0.81e2 * t9975 + t38 * t40 * t10109 / 0.9e1 + 0.2e1 / 0.27e2 * t38 * t7096 * t10113 + 0.4e1 / 0.81e2 * t10118 - t8443 - t8397 / 0.27e2 + 0.8e1 / 0.81e2 * t8394 + t10124 - t490 * t880 * t10125 / 0.27e2;
13612   t10130 = t1257 * t2443;
13613   t10136 = 0.8e1 / 0.243e3 * t490 * t8463 * t3417;
13614   t10137 = t3421 * t781;
13615   t10141 = t1257 * t2448;
13616   t10145 = t2803 * t2442;
13617   t10146 = t3425 * t781;
13618   t10150 = t1274 * t2448;
13619   t10164 = t3483 * t781;
13620   t10168 = t923 * t9;
13621   t10172 = -0.28e2 / 0.243e3 * t490 * t8454 * t10130 - t10136 + 0.8e1 / 0.81e2 * t490 * t2630 * t10137 + 0.4e1 / 0.81e2 * t490 * t2630 * t10141 - 0.16e2 / 0.81e2 * t490 * t10145 * t10146 - t490 * t880 * t10150 / 0.27e2 - 0.8e1 / 0.243e3 * t8446 + 0.2e1 / 0.81e2 * t8449 + t8452 / 0.81e2 - 0.4e1 / 0.243e3 * t8465 + 0.2e1 * t2700 * t1254 + 0.2e1 * t2698 * t1254 + 0.4e1 * t908 * t3409 - 0.2e1 / 0.27e2 * t490 * t880 * t10164 + 0.4e1 / 0.27e2 * t490 * t3382 * t10168;
13622   t10173 = t10129 + t10172;
13623   t10174 = t290 * t10173;
13624   t10180 = 0.8e1 / 0.81e2 * t38 * t485 * t3489;
13625   t10184 = 0.4e1 / 0.81e2 * t490 * t880 * t9904 + 0.16e2 / 0.729e3 * t9909 - 0.16e2 / 0.243e3 * t490 * t2630 * t9911 + 0.4e1 / 0.81e2 * t490 * t880 * t9915 - t9921 + 0.88e2 / 0.243e3 * t9924 + 0.8e1 / 0.81e2 * t490 * t880 * t9926 - 0.4e1 / 0.27e2 * t38 * t40 * t10174 + t10180 - 0.4e1 / 0.243e3 * t8498 + 0.16e2 / 0.729e3 * t8509 + 0.32e2 / 0.729e3 * t8492;
13626   t10190 = 0.32e2 / 0.729e3 * t490 * t8463 * t3374;
13627   t10191 = t3378 * t781;
13628   t10195 = t1246 * t2448;
13629   t10199 = t3383 * t781;
13630   t10203 = t1246 * t2443;
13631   t10209 = 0.8e1 / 0.243e3 * t490 * t2623 * t3390;
13632   t10210 = t928 * t9;
13633   t10214 = t780 * t400;
13634   t10219 = t38 * t1939 * t1280;
13635   t10221 = -0.8e1 / 0.243e3 * t8495 + 0.4e1 / 0.81e2 * t8515 - 0.32e2 / 0.243e3 * t8512 + t8490 + t10190 - 0.32e2 / 0.243e3 * t490 * t2630 * t10191 - 0.16e2 / 0.243e3 * t490 * t2630 * t10195 + 0.64e2 / 0.243e3 * t490 * t10145 * t10199 + 0.112e3 / 0.729e3 * t490 * t8454 * t10203 - t10209 - 0.16e2 / 0.81e2 * t490 * t3382 * t10210 - 0.8e1 / 0.81e2 * t38 * t7096 * t10214 - 0.16e2 / 0.243e3 * t10219;
13636   t10222 = t10184 + t10221;
13637   t10223 = t378 * t10222;
13638   t10227 = t1097 * t2618 - 0.6e1 * t1101 * t9498 + t269 * t9900 + t9902 * t428 + t10223 * t428 + t2744 * t1315 / 0.10e2;
13639   t10228 = p->cam_beta * t10227;
13640   t10230 = t8 * t254 * t10228;
13641   t10234 = t1077 * t1827;
13642   t10236 = t2775 * t2417 * t10234;
13643   t10239 = t8 * t1832 * t1078;
13644   t10242 = t2775 * t7937 * t2776;
13645   t10243 = t10242 / 0.3e1;
13646   t10244 = t1077 * t1812;
13647   t10246 = t2754 * t2417 * t10244;
13648   t10248 = t3498 * t767;
13649   t10250 = t2416 * t2417 * t10248;
13650   t10252 = t2255 * t444;
13651   t10253 = t9 * t767;
13652   t10255 = t3132 * t10252 * t10253;
13653   t10258 = t8 * t8544 * t1083;
13654   t10260 = t252 * t3092;
13655   t10262 = t8 * t10260 * t3146;
13656   t10264 = 0.3e1 / 0.8e1 * t10230 - t8530 / 0.6e1 + 0.2e1 / 0.9e1 * t8546 + t10236 / 0.2e1 - t10239 / 0.12e2 - t8559 + t10243 + t10246 / 0.6e1 + t10250 - t8561 / 0.8e1 + t10255 / 0.3e1 + t10258 / 0.9e1 - 0.7e1 / 0.6e1 * t10262;
13657   t10268 = t2758 / 0.3e1;
13658   t10269 = -t8583 + t3143 + t8584 - t3154 + t3148 + t8585 - t3784 - t3512 + t10 * (t8621 + t8669 + t9495 + t10264) + t3521 - t2765 - t2770 + t2778 + t2420 - t10268;
13659   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
13660     v3rho3[1] = t8582 + t10269;
13661 
13662   t10270 = t3513 * t455;
13663   t10272 = t2754 * t2417 * t10270;
13664   t10275 = t8 * t2411 * t3789;
13665   t10277 = t762 * t3507;
13666   t10279 = t8 * t1811 * t10277;
13667   t10282 = -t1825 - 0.3e1 * t7061;
13668   t10283 = t247 * t10282;
13669   t10285 = t8 * t450 * t10283;
13670   t10288 = t8 * t2411 * t3785;
13671   t10291 = t762 * t3516;
13672   t10293 = t8 * t450 * t10291;
13673   t10295 = t3774 * t455;
13674   t10297 = t2775 * t2417 * t10295;
13675   t10300 = t8 * t7960 * t3780;
13676   t10303 = t8 * t772 * t4283;
13677   t10306 = -t6952 + t10272 / 0.3e1 - t10275 / 0.6e1 - t10279 / 0.6e1 - t10285 / 0.2e1 - t10288 / 0.3e1 + t6954 / 0.12e2 - t10293 / 0.2e1 + t10297 / 0.2e1 - t10300 / 0.18e2 - t10303 / 0.8e1 + 0.2e1 / 0.9e1 * t8598;
13678   t10307 = t4283 * t767;
13679   t10309 = t8 * t766 * t10307;
13680   t10312 = t8 * t460 * t3775;
13681   t10315 = t936 * t3788;
13682   t10317 = t2416 * t2417 * t10315;
13683   t10320 = t8 * t7984 * t3508;
13684   t10327 = t875 * t3818;
13685   t10328 = t10327 * t3794;
13686   t10331 = t3365 * t262;
13687   t10332 = t10331 * t1091;
13688   t10335 = t875 * t261;
13689   t10336 = t10335 * t3794;
13690   t10339 = t3160 * t3800;
13691   t10354 = t808 * t3869;
13692   t10359 = t3228 * t1154;
13693   t10366 = t484 * t3881;
13694   t10368 = t490 * t10366 * t3883;
13695   t10370 = t780 * t3837;
13696   t10371 = t10370 * t781;
13697   t10376 = t490 * t3165 * t3887;
13698   t10378 = t1108 * t2442;
13699   t10379 = t1122 * t1127;
13700   t10380 = t10379 * t781;
13701   t10381 = t10378 * t10380;
13702   t10384 = t2803 * t1108;
13703   t10385 = t3169 * t9;
13704   t10390 = t490 * t3165 * t3891;
13705   t10392 = t780 * t3853;
13706   t10393 = t10392 * t781;
13707   t10398 = t490 * t2436 * t3896;
13708   t10400 = t8005 * t3895;
13709   t10401 = t10400 * t781;
13710   t10405 = t3177 * t9;
13711   t10410 = t490 * t2436 * t3901;
13712   t10412 = t2442 * t3900;
13713   t10413 = t10412 * t781;
13714   t10419 = 0.2e1 * t1825 + 0.6e1 * t7061;
13715   t10420 = t780 * t10419;
13716   t10424 = -t7992 - 0.2e1 / 0.243e3 * t7995 - 0.2e1 / 0.405e3 * t9506 - t9510 - 0.4e1 / 0.243e3 * t9521 - t9525 - 0.2e1 / 0.81e2 * t9528 - 0.11e2 / 0.5400e4 * t10368 - 0.11e2 / 0.5400e4 * t490 * t3882 * t10371 - t10376 / 0.810e3 - 0.2e1 / 0.405e3 * t5889 * t10381 - t490 * t10384 * t10385 / 0.135e3 + t10390 / 0.540e3 + t490 * t1109 * t10393 / 0.540e3 - 0.2e1 / 0.243e3 * t10398 - 0.14e2 / 0.243e3 * t490 * t778 * t10401 - 0.8e1 / 0.81e2 * t490 * t3182 * t10405 + t10410 / 0.162e3 + 0.2e1 / 0.81e2 * t490 * t778 * t10413 - t490 * t778 * t10420 / 0.54e2;
13717   t10425 = my_piecewise3(t295, 0, t10424);
13718   t10439 = t8035 * t3911;
13719   t10442 = t787 * t3911;
13720   t10443 = t8039 * t10442;
13721   t10445 = t1133 * t3188;
13722   t10450 = t787 * t3906;
13723   t10464 = t3912 * t820;
13724   t10466 = t3205 * t3260;
13725   t10468 = t8058 * t3911;
13726   t10470 = 0.5e1 / 0.2e1 * t10468 * t820;
13727   t10471 = t2472 * t3906;
13728   t10472 = t10471 * t820;
13729   t10474 = t793 * t10425;
13730   t10477 = t2479 * t3906;
13731   t10482 = t8068 * t3911;
13732   t10494 = t297 * t10425;
13733   t10495 = t10494 * t304;
13734   t10496 = 0.15e2 / 0.2e1 * t10464 - 0.4e1 * t10466 - t10470 - 0.2e1 * t10472 + t10474 * t304 / 0.2e1 + t10477 * t820 / 0.4e1 + t3211 * t3260 / 0.2e1 + t10482 * t820 / 0.8e1 - 0.8e1 * t5368 * t3188 - 0.2e1 * t1221 * t3260 - 0.4e1 * t3214 * t3906 - t864 * t3980 - 0.4e1 * t797 * t10425 - t10495;
13735   t10499 = 0.7e1 / 0.2e1 * t3928 * t820 - t5350 * t3260 - t10439 * t820 / 0.4e1 - 0.6e1 * t10443 + 0.4e1 * t2464 * t10445 - t3192 * t3980 / 0.2e1 + 0.2e1 * t2464 * t10450 - t789 * t10425 + 0.2e1 * t10425 * t308 + 0.2e1 * t3906 * t802 + 0.4e1 * t3188 * t1145 + 0.4e1 * t1133 * t3222 + 0.2e1 * t787 * t3939 + 0.2e1 * t296 * t10496;
13736   t10502 = -0.8e1 / 0.3e1 * t10425 * t311 - 0.8e1 / 0.3e1 * t3906 * t805 - 0.16e2 / 0.3e1 * t3188 * t1148 - 0.16e2 / 0.3e1 * t1133 * t3225 - 0.8e1 / 0.3e1 * t787 * t3942 - 0.8e1 / 0.3e1 * t296 * t10499;
13737   t10506 = t3275 * t1184;
13738   t10509 = t831 * t3957;
13739   t10516 = t787 * t1174;
13740   t10529 = t296 * t3992;
13741   t10536 = t10425 * t304;
13742   t10544 = t3974 * t793;
13743   t10552 = t296 * t10425;
13744   t10554 = t4013 * t787;
13745   t10555 = 0.1536e4 * t10554;
13746   t10556 = t1197 * t3188;
13747   t10557 = 0.1536e4 * t10556;
13748   t10558 = t4015 * t787;
13749   t10559 = 0.768e3 * t10558;
13750   t10560 = t344 * t10425;
13751   t10561 = 0.256e3 * t10560;
13752   t10562 = 0.80e2 * t10445 + 0.40e2 * t10450 + 0.40e2 * t10552 - t10555 - t10557 - t10559 - t10561;
13753   t10566 = -0.3e1 / 0.2e1 * t8137 * t3977 + t2515 * t3980 / 0.2e1 + t819 * t10536 / 0.2e1 + t8117 * t3977 / 0.4e1 + 0.20e2 * t10464 - 0.10e2 * t10466 - t10470 - 0.5e1 * t10472 + t10544 * t820 / 0.2e1 + t9700 * t1166 + t3252 * t3260 - 0.10e2 * t10495 + t10562 * t304 - 0.144e3 * t10445 - 0.72e2 * t10450;
13754   t10572 = t3977 * t787;
13755   t10575 = t1166 * t3188;
13756   t10580 = t3980 * t787;
13757   t10589 = t78 * t10425;
13758   t10592 = -0.72e2 * t10552 + t10561 - 0.3e1 * t9713 * t3257 + t9704 * t3257 / 0.2e1 + 0.6e1 * t8140 * t10572 - 0.3e1 * t2517 * t10575 - 0.9e1 / 0.4e1 * t8120 * t10572 - 0.3e1 / 0.2e1 * t2517 * t10580 + t2524 * t10580 / 0.4e1 + t2524 * t10575 / 0.2e1 + t8127 * t10572 / 0.8e1 + 0.10e2 * t10589 * t299 + t10555 + t10557 + t10559;
13759   t10593 = t10566 + t10592;
13760   t10596 = 0.48e2 * t10425 * t810 + 0.96e2 * t10516 * t1133 + 0.48e2 * t10529 * t787 + 0.24e2 * t10593 * t301 + 0.96e2 * t1133 * t9649 + 0.48e2 * t2501 * t3906 + 0.96e2 * t3188 * t3240 + 0.96e2 * t3188 * t5146 + 0.48e2 * t3233 * t3906 + 0.48e2 * t3911 * t828;
13761   t10597 = t10596 * t336;
13762   t10600 = t3276 * t41;
13763   t10603 = t3279 * t41;
13764   t10622 = t10425 * t299;
13765   t10629 = t302 * t10425;
13766   t10632 = t4029 * t793;
13767   t10662 = t2564 * t3980 / 0.2e1 + t847 * t10536 / 0.2e1 + t8219 * t3977 / 0.4e1 + 0.288e3 * t2574 * t10445 + 0.288e3 * t9872 * t3195 + 0.144e3 * t2574 * t10450 + 0.480e3 * t1170 * t3341 - 0.3e1 * t9775 * t3257 + t9745 * t3257 / 0.2e1 + 0.6e1 * t8252 * t10572 - 0.3e1 * t2566 * t10575;
13768   t10689 = -0.9e1 / 0.4e1 * t8222 * t10572 - 0.3e1 / 0.2e1 * t2566 * t10580 + t2571 * t10580 / 0.4e1 + t2571 * t10575 / 0.2e1 + t8227 * t10572 / 0.8e1 + 0.7e1 * t8255 * t10572 - 0.2e1 * t2602 * t10575 - t8240 * t10572 / 0.2e1 - 0.12e2 * t863 * t3922 * t787 + 0.8e1 * t863 * t1138 * t3188 + 0.4e1 * t863 * t3925 * t787;
13769   t10698 = t301 * t4052;
13770   t10701 = t787 * t359;
13771   t10714 = t301 * t10425;
13772   t10722 = t319 * t10425;
13773   t10732 = t357 * t3911;
13774   t10737 = t348 * t3906;
13775   t10742 = -0.1105920e7 * t10425 * t350 + 0.26943e5 * t10425 * t357 - 0.61931520e8 * t10732 * t787 - 0.8847360e7 * t10737 * t787 + 0.3072e4 * t1160 * t3188 - 0.23040e5 * t1162 * t3188 + 0.323316e6 * t1213 * t3188 - 0.17694720e8 * t3188 * t3301 + 0.1536e4 * t3968 * t787 - 0.34560e5 * t3970 * t787 - 0.11520e5 * t3972 * t787 + 0.808290e6 * t4048 * t787 + 0.161658e6 * t4050 * t787 - 0.8e1 * t10425 + 0.1536e4 * t10442 + 0.768e3 * t10714 - 0.2880e4 * t10722;
13776   t10757 = t346 * t10425;
13777   t10759 = 0.307200e6 * t1199 * t3188 + 0.614400e6 * t4017 * t787 + 0.153600e6 * t4019 * t787 + 0.896e3 * t10445 + 0.448e3 * t10450 + 0.448e3 * t10552 - 0.34560e5 * t10554 - 0.34560e5 * t10556 - 0.17280e5 * t10558 - 0.5760e4 * t10560 + 0.30720e5 * t10757;
13778   t10762 = 0.72e2 * t10425 * t850 - t10580 * t2602 + 0.72e2 * t10698 * t787 + 0.144e3 * t10701 * t3911 + t10742 * t304 + 0.24e2 * t10759 * t344 + 0.144e3 * t1133 * t9881 + 0.72e2 * t2577 * t3906 + 0.144e3 * t3188 * t3325 + 0.144e3 * t3911 * t8260 - 0.360e3 * t10443;
13779   t10764 = 0.720e3 * t3977 * t864 + 0.240e3 * t824 * t4058 + 0.240e3 * t324 * t10622 - 0.480e3 * t3937 * t820 - 0.960e3 * t1143 * t3260 - 0.2e1 * t863 * t10629 + t10632 * t820 / 0.2e1 + t9773 * t1166 + t3308 * t3260 - 0.3e1 / 0.2e1 * t8249 * t3977 + t10662 + t10689 + t10762;
13780   t10768 = (0.8e1 / 0.7e1 * t10425 * t367 + 0.8e1 / 0.7e1 * t3906 * t867 + 0.16e2 / 0.7e1 * t3188 * t1224 + 0.16e2 / 0.7e1 * t1133 * t3353 + 0.8e1 / 0.7e1 * t787 * t4071 + 0.8e1 / 0.7e1 * t296 * t10764) * t41;
13781   t10769 = t10768 * t45;
13782   t10772 = 0.14744579111111111111e-1 * t872 * t3839 - 0.10531842222222222222e-1 * t872 * t3855 + 0.25744503209876543210e0 * t872 * t3858 + 0.56169825185185185185e-1 * t872 * t3861 - 0.14042456296296296297e0 * t3358 * t1232 - 0.21063684444444444444e-1 * t3358 * t1236 + 0.6e1 / 0.25e2 * t10354 * t3837 - t3230 * t3853 / 0.5e1 - 0.2e1 / 0.5e1 * t10359 * t1122 + t10502 * t316 + 0.98e2 / 0.405e3 * t3282 * t3948 + 0.70e2 / 0.81e2 * t10506 * t340 + 0.35e2 / 0.81e2 * t10509 * t340 + 0.35e2 / 0.81e2 * t10597 * t340 - 0.28e2 / 0.81e2 * t10600 * t1192 - 0.28e2 / 0.81e2 * t10603 * t1192 - 0.14e2 / 0.81e2 * t3282 * t4005 + 0.26329605555555555556e-1 * t10769 * t373;
13783   t10774 = t4090 * t933;
13784   t10776 = t1243 * t3493;
13785   t10783 = t1267 * t9;
13786   t10787 = t3449 * t1127;
13787   t10791 = t1266 * t9;
13788   t10795 = t4163 * t781;
13789   t10799 = t908 * t3900;
13790   t10804 = t679 * t2704 * t4159;
13791   t10806 = t4150 * t781;
13792   t10810 = t4149 * t907;
13793   t10811 = t10810 * t388;
13794   t10815 = t4152 * t781;
13795   t10819 = t1266 * t3448;
13796   t10823 = t4151 * t907;
13797   t10824 = t10823 * t388;
13798   t10828 = t4155 * t781;
13799   t10832 = t908 * t3895;
13800   t10837 = 0.20e2 / 0.81e2 * t679 * t10006 * t10783 + 0.2e1 / 0.27e2 * t679 * t914 * t10787 - 0.4e1 / 0.27e2 * t679 * t3465 * t10791 - 0.5e1 / 0.81e2 * t679 * t2714 * t10795 + t679 * t914 * t10799 / 0.27e2 - 0.4e1 / 0.81e2 * t10804 + t679 * t914 * t10806 / 0.27e2 - t679 * t919 * t10811 / 0.18e2 + t679 * t914 * t10815 / 0.27e2 - t679 * t919 * t10819 / 0.9e1 - t679 * t919 * t10824 / 0.18e2 + 0.40e2 / 0.243e3 * t679 * t8366 * t10828 - 0.5e1 / 0.81e2 * t679 * t2714 * t10832 + t9980 + 0.10e2 / 0.243e3 * t8331 - t9984 + t9987 + t9998;
13801   t10838 = t2713 * t1265;
13802   t10839 = t10838 * t10102;
13803   t10842 = t10096 * t3461;
13804   t10845 = t390 * t10419;
13805   t10853 = t179 * t40 * t4141;
13806   t10855 = t3895 * t781;
13807   t10859 = t1127 * t9;
13808   t10864 = t179 * t40 * t4145;
13809   t10866 = t3900 * t781;
13810   t10870 = t290 * t10419;
13811   t10874 = -t8295 + 0.4e1 / 0.81e2 * t8297 + 0.8e1 / 0.81e2 * t10027 + t10031 + 0.16e2 / 0.27e2 * t10033 + 0.4e1 / 0.81e2 * t10853 - 0.8e1 / 0.81e2 * t3065 * t10035 * t10855 - 0.8e1 / 0.27e2 * t3065 * t8444 * t10859 - 0.4e1 / 0.27e2 * t10864 + 0.2e1 / 0.27e2 * t3065 * t3440 * t10866 - 0.2e1 / 0.9e1 * t179 * t181 * t10870;
13812   t10875 = t10874 * t388;
13813   t10880 = t679 * t2708 * t4150;
13814   t10883 = t679 * t2708 * t4152;
13815   t10889 = t679 * t8354 * t4155;
13816   t10892 = t679 * t2704 * t4163;
13817   t10896 = -t10001 - 0.10e2 / 0.81e2 * t9369 * t10839 + 0.2e1 / 0.27e2 * t9369 * t10842 + t679 * t914 * t10845 / 0.27e2 - t679 * t919 * t10875 / 0.18e2 + t10880 / 0.27e2 + t10883 / 0.27e2 - 0.10e2 / 0.81e2 * t10051 + 0.20e2 / 0.243e3 * t10054 + 0.8e1 / 0.81e2 * t10062 + t8328 + t10875 + 0.10e2 / 0.243e3 * t10889 - 0.2e1 / 0.81e2 * t10892 - 0.5e1 / 0.81e2 * t8335 + t10811 + 0.2e1 * t10819 + t10824;
13818   t10897 = t10837 + t10896;
13819   t10898 = t290 * t10897;
13820   t10902 = t4136 * t781;
13821   t10906 = t4128 * t781;
13822   t10910 = t1257 * t9;
13823   t10914 = t4132 * t781;
13824   t10921 = t1274 * t9;
13825   t10925 = t923 * t3895;
13826   t10929 = t3483 * t1127;
13827   t10933 = t923 * t3900;
13828   t10937 = 0.2e1 * t3450 * t1255 + t38 * t40 * t10898 / 0.9e1 + 0.4e1 / 0.81e2 * t490 * t2630 * t10902 - 0.28e2 / 0.243e3 * t490 * t8454 * t10906 - 0.16e2 / 0.81e2 * t490 * t10145 * t10910 + 0.8e1 / 0.81e2 * t490 * t2630 * t10914 - 0.8e1 / 0.243e3 * t9966 - t9970 + t9973 - 0.4e1 / 0.81e2 * t9975 + 0.8e1 / 0.81e2 * t10118 + 0.4e1 / 0.27e2 * t490 * t3382 * t10921 + 0.4e1 / 0.81e2 * t490 * t2630 * t10925 - 0.2e1 / 0.27e2 * t490 * t880 * t10929 - t490 * t880 * t10933 / 0.27e2;
13829   t10938 = t395 * t10419;
13830   t10950 = t38 * t485 * t4174;
13831   t10956 = t166 * t190 * t4115;
13832   t10965 = t166 * t190 * t4119;
13833   t10970 = t389 * t10419;
13834   t10974 = t8401 - 0.2e1 / 0.81e2 * t8403 - 0.4e1 / 0.81e2 * t9934 - t9938 - 0.4e1 / 0.27e2 * t9940 - 0.2e1 / 0.81e2 * t10956 + 0.10e2 / 0.81e2 * t3023 * t9942 * t10855 + 0.8e1 / 0.27e2 * t3023 * t8329 * t10859 + t10965 / 0.27e2 - 0.2e1 / 0.27e2 * t3023 * t3400 * t10866 + t166 * t168 * t10970 / 0.9e1;
13835   t10977 = t4173 * t781;
13836   t10983 = t490 * t2623 * t4136;
13837   t10986 = t490 * t8463 * t4128;
13838   t10989 = t490 * t2623 * t4132;
13839   t10991 = -t490 * t880 * t10938 / 0.27e2 - t8443 + 0.4e1 / 0.81e2 * t8394 + 0.2e1 * t908 * t4123 + 0.2e1 * t3449 * t1254 + 0.2e1 * t1266 * t3409 + t10124 - t10950 / 0.27e2 + 0.2e1 * t388 * t10974 - t10136 - t490 * t880 * t10977 / 0.27e2 - 0.4e1 / 0.243e3 * t8446 + t10983 / 0.81e2 - 0.4e1 / 0.243e3 * t10986 + 0.2e1 / 0.81e2 * t10989;
13840   t10992 = t10937 + t10991;
13841   t10993 = t290 * t10992;
13842   t10997 = t1246 * t9;
13843   t11001 = t4178 * t781;
13844   t11006 = t1279 * t9;
13845   t11010 = t928 * t3900;
13846   t11014 = t400 * t10419;
13847   t11019 = t928 * t3895;
13848   t11023 = t3488 * t1127;
13849   t11027 = -0.4e1 / 0.27e2 * t38 * t40 * t10993 + 0.64e2 / 0.243e3 * t490 * t10145 * t10997 + 0.4e1 / 0.81e2 * t490 * t880 * t11001 + 0.32e2 / 0.729e3 * t9909 - 0.16e2 / 0.81e2 * t490 * t3382 * t11006 + 0.4e1 / 0.81e2 * t490 * t880 * t11010 + 0.4e1 / 0.81e2 * t490 * t880 * t11014 - t9921 + 0.16e2 / 0.243e3 * t9924 - 0.16e2 / 0.243e3 * t490 * t2630 * t11019 + 0.8e1 / 0.81e2 * t490 * t880 * t11023 + t10180;
13850   t11030 = t38 * t485 * t4179;
13851   t11034 = t490 * t2623 * t4108;
13852   t11037 = t490 * t2623 * t4104;
13853   t11040 = t490 * t8463 * t4100;
13854   t11042 = t4108 * t781;
13855   t11046 = t4104 * t781;
13856   t11050 = t4100 * t781;
13857   t11055 = 0.16e2 / 0.729e3 * t8492 + 0.4e1 / 0.81e2 * t11030 - 0.16e2 / 0.243e3 * t8512 + t8490 - 0.4e1 / 0.243e3 * t11034 - 0.8e1 / 0.243e3 * t11037 + 0.16e2 / 0.729e3 * t11040 - 0.16e2 / 0.243e3 * t490 * t2630 * t11042 - 0.32e2 / 0.243e3 * t490 * t2630 * t11046 + 0.112e3 / 0.729e3 * t490 * t8454 * t11050 + t10190 - t10209 - 0.32e2 / 0.243e3 * t10219;
13858   t11056 = t11027 + t11055;
13859   t11057 = t378 * t11056;
13860   t11065 = t3808 * t875 - 0.12e2 * t3810 * t3161 + 0.2e1 * t1097 * t3365 + 0.54e2 * t3817 * t10328 - 0.12e2 * t1101 * t10332 - 0.12e2 * t1101 * t10336 - 0.6e1 * t1101 * t10339 + t269 * t10772 + t10774 * t428 + 0.2e1 * t10776 * t428 + t3367 * t1315 / 0.5e1 + t11057 * t428 + t3494 * t1315 / 0.5e1 - 0.9e1 / 0.100e3 * t934 * t4191 + t934 * t4226 / 0.10e2;
13861   t11066 = p->cam_beta * t11065;
13862   t11068 = t8 * t254 * t11066;
13863   t11071 = t3126 * t944;
13864   t11073 = t2775 * t2417 * t11071;
13865   t11074 = t3507 * t455;
13866   t11076 = t8636 * t2755 * t11074;
13867   t11078 = t8602 - t10309 / 0.2e1 + t10312 / 0.8e1 - t8620 - t8624 / 0.3e1 - t8644 + t10317 / 0.2e1 - t10320 / 0.18e2 + 0.3e1 / 0.8e1 * t11068 - t8662 - t7965 / 0.12e2 + t11073 + t11076 / 0.9e1;
13868   t11080 = t1077 * t9;
13869   t11082 = t2775 * t8649 * t11080;
13870   t11083 = -t10282;
13871   t11084 = t444 * t11083;
13872   t11086 = t8 * t766 * t11084;
13873   t11088 = t1345 * t9;
13874   t11090 = t8 * t3145 * t11088;
13875   t11091 = t3516 * t455;
13876   t11093 = t2754 * t2755 * t11091;
13877   t11098 = t3684 * t26;
13878   t11099 = t11098 * t468;
13879   t11107 = t490 * t1947 * t3524;
13880   t11109 = t3524 * t506;
13881   t11113 = t7070 * t3523;
13882   t11114 = t11113 * t454;
13883   t11118 = t2797 * t9;
13884   t11123 = t490 * t1947 * t3529;
13885   t11125 = t3529 * t506;
13886   t11129 = t1969 * t3528;
13887   t11130 = t11129 * t454;
13888   t11134 = -t10419;
13889   t11135 = t513 * t11134;
13890   t11139 = -t7458 - t7461 / 0.405e3 - 0.2e1 / 0.243e3 * t7465 - 0.4e1 / 0.243e3 * t8747 - t8751 - t8754 + 0.2e1 / 0.81e2 * t8725 - 0.2e1 / 0.243e3 * t11107 - t490 * t493 * t11109 / 0.405e3 - 0.14e2 / 0.243e3 * t490 * t511 * t11114 + 0.8e1 / 0.81e2 * t490 * t2804 * t11118 + t11123 / 0.162e3 + t490 * t493 * t11125 / 0.540e3 + 0.2e1 / 0.81e2 * t490 * t511 * t11130 - t490 * t511 * t11135 / 0.54e2;
13891   t11140 = my_piecewise3(t76, 0, t11139);
13892   t11154 = t7643 * t3539;
13893   t11157 = t519 * t3539;
13894   t11158 = t7699 * t11157;
13895   t11160 = t954 * t2810;
13896   t11165 = t519 * t3534;
13897   t11179 = t3540 * t557;
13898   t11181 = t2827 * t2882;
13899   t11183 = t7504 * t3539;
13900   t11185 = 0.5e1 / 0.2e1 * t11183 * t557;
13901   t11186 = t1999 * t3534;
13902   t11187 = t11186 * t557;
13903   t11189 = t525 * t11140;
13904   t11192 = t2006 * t3534;
13905   t11197 = t7499 * t3539;
13906   t11209 = t79 * t11140;
13907   t11210 = t11209 * t86;
13908   t11211 = 0.15e2 / 0.2e1 * t11179 - 0.4e1 * t11181 - t11185 - 0.2e1 * t11187 + t11189 * t86 / 0.2e1 + t11192 * t557 / 0.4e1 + t2833 * t2882 / 0.2e1 + t11197 * t557 / 0.8e1 - 0.8e1 * t4943 * t2810 - 0.2e1 * t1023 * t2882 - 0.4e1 * t2836 * t3534 - t615 * t3594 - 0.4e1 * t529 * t11140 - t11210;
13909   t11214 = 0.7e1 / 0.2e1 * t3556 * t557 - t4923 * t2882 - t11154 * t557 / 0.4e1 - 0.6e1 * t11158 + 0.4e1 * t1991 * t11160 - t2814 * t3594 / 0.2e1 + 0.2e1 * t1991 * t11165 - t521 * t11140 + 0.2e1 * t11140 * t90 + 0.2e1 * t3534 * t534 + 0.4e1 * t2810 * t966 + 0.4e1 * t954 * t2844 + 0.2e1 * t519 * t3567 + 0.2e1 * t77 * t11211;
13910   t11217 = -0.8e1 / 0.3e1 * t11140 * t93 - 0.8e1 / 0.3e1 * t3534 * t537 - 0.16e2 / 0.3e1 * t2810 * t969 - 0.16e2 / 0.3e1 * t954 * t2847 - 0.8e1 / 0.3e1 * t519 * t3570 - 0.8e1 / 0.3e1 * t77 * t11214;
13911   t11219 = t3573 * t543;
13912   t11226 = t519 * t990;
13913   t11239 = t77 * t3606;
13914   t11246 = t11140 * t86;
13915   t11251 = t3588 * t525;
13916   t11256 = t11157 * t86;
13917   t11265 = t982 * t2810;
13918   t11270 = t3594 * t519;
13919   t11275 = -0.3e1 / 0.2e1 * t7535 * t3591 + t2042 * t3594 / 0.2e1 + t556 * t11246 / 0.2e1 + t7516 * t3591 / 0.4e1 + t11251 * t557 / 0.2e1 + t9100 * t982 + t2874 * t2882 + t7500 * t11256 / 0.8e1 - 0.3e1 * t9094 * t2879 + t9089 * t2879 / 0.2e1 + 0.6e1 * t7538 * t11256 - 0.3e1 * t2044 * t11265 - 0.9e1 / 0.4e1 * t7505 * t11256 - 0.3e1 / 0.2e1 * t2044 * t11270 + t2051 * t11270 / 0.4e1;
13920   t11279 = t128 * t11140;
13921   t11280 = 0.256e3 * t11279;
13922   t11281 = t77 * t11140;
13923   t11286 = t3618 * t519;
13924   t11287 = 0.1536e4 * t11286;
13925   t11288 = t999 * t2810;
13926   t11289 = 0.1536e4 * t11288;
13927   t11290 = t3620 * t519;
13928   t11291 = 0.768e3 * t11290;
13929   t11292 = 0.80e2 * t11160 + 0.40e2 * t11165 + 0.40e2 * t11281 - t11287 - t11289 - t11291 - t11280;
13930   t11296 = t78 * t11140;
13931   t11302 = t2051 * t11265 / 0.2e1 - 0.10e2 * t11210 + t11280 - 0.72e2 * t11281 + t11292 * t86 - 0.144e3 * t11160 - 0.72e2 * t11165 + 0.10e2 * t11296 * t81 + t11287 + t11289 + t11291 + 0.20e2 * t11179 - 0.10e2 * t11181 - t11185 - 0.5e1 * t11187;
13932   t11303 = t11275 + t11302;
13933   t11306 = 0.48e2 * t11140 * t547 + 0.96e2 * t11226 * t954 + 0.48e2 * t11239 * t519 + 0.24e2 * t11303 * t83 + 0.48e2 * t2028 * t3534 + 0.96e2 * t2810 * t2862 + 0.96e2 * t2810 * t4961 + 0.48e2 * t2855 * t3534 + 0.48e2 * t3539 * t565 + 0.96e2 * t9084 * t954;
13934   t11307 = t11306 * t120;
13935   t11310 = t3609 * t575;
13936   t11313 = t3610 * t41;
13937   t11327 = t84 * t11140;
13938   t11338 = t519 * t143;
13939   t11356 = t130 * t11140;
13940   t11358 = 0.307200e6 * t1001 * t2810 + 0.614400e6 * t3622 * t519 + 0.153600e6 * t3624 * t519 + 0.896e3 * t11160 + 0.448e3 * t11165 - 0.5760e4 * t11279 + 0.448e3 * t11281 - 0.34560e5 * t11286 - 0.34560e5 * t11288 - 0.17280e5 * t11290 + 0.30720e5 * t11356;
13941   t11367 = t83 * t11140;
13942   t11375 = t101 * t11140;
13943   t11385 = t141 * t3539;
13944   t11390 = t132 * t3534;
13945   t11395 = 0.323316e6 * t1015 * t2810 - 0.1105920e7 * t11140 * t134 + 0.26943e5 * t11140 * t141 - 0.61931520e8 * t11385 * t519 - 0.8847360e7 * t11390 * t519 - 0.17694720e8 * t2810 * t2923 + 0.3072e4 * t2810 * t976 - 0.23040e5 * t2810 * t978 + 0.1536e4 * t3582 * t519 - 0.34560e5 * t3584 * t519 - 0.11520e5 * t3586 * t519 + 0.808290e6 * t3653 * t519 + 0.161658e6 * t3655 * t519 - 0.8e1 * t11140 + 0.1536e4 * t11157 + 0.768e3 * t11367 - 0.2880e4 * t11375;
13946   t11398 = t83 * t3657;
13947   t11424 = 0.72e2 * t11398 * t519 + 0.144e3 * t8960 * t954 + t2107 * t11270 / 0.4e1 + t2107 * t11265 / 0.2e1 + t7655 * t11256 / 0.8e1 + 0.7e1 * t7673 * t11256 - 0.2e1 * t2138 * t11265 - t7644 * t11256 / 0.2e1 - 0.12e2 * t614 * t3550 * t519 + 0.8e1 * t614 * t959 * t2810 + 0.4e1 * t614 * t3553 * t519;
13948   t11447 = -t2138 * t11270 - 0.3e1 * t8910 * t2879 + t8901 * t2879 / 0.2e1 + 0.6e1 * t7682 * t11256 - 0.3e1 * t2102 * t11265 - 0.9e1 / 0.4e1 * t7667 * t11256 - 0.3e1 / 0.2e1 * t2102 * t11270 - 0.960e3 * t964 * t2882 + 0.480e3 * t986 * t2963 + 0.720e3 * t3591 * t615 + 0.240e3 * t561 * t3663;
13949   t11448 = t11140 * t81;
13950   t11465 = t3634 * t525;
13951   t11470 = 0.240e3 * t106 * t11448 + 0.144e3 * t2110 * t11165 + t7664 * t3591 / 0.4e1 + 0.288e3 * t2110 * t11160 + 0.288e3 * t8954 * t2817 - 0.3e1 / 0.2e1 * t7679 * t3591 + t2100 * t3594 / 0.2e1 + t598 * t11246 / 0.2e1 + t11465 * t557 / 0.2e1 + t8906 * t982 + t2930 * t2882;
13952   t11472 = 0.72e2 * t11140 * t601 - 0.2e1 * t11327 * t614 + 0.144e3 * t11338 * t3539 + 0.24e2 * t11358 * t128 + t11395 * t86 + 0.72e2 * t2113 * t3534 + 0.144e3 * t2810 * t2947 + 0.144e3 * t3539 * t7634 - 0.480e3 * t3565 * t557 - 0.360e3 * t11158 + t11424 + t11447 + t11470;
13953   t11476 = (0.8e1 / 0.7e1 * t11140 * t151 + 0.8e1 / 0.7e1 * t3534 * t618 + 0.16e2 / 0.7e1 * t2810 * t1026 + 0.16e2 / 0.7e1 * t954 * t2975 + 0.8e1 / 0.7e1 * t519 * t3676 + 0.8e1 / 0.7e1 * t77 * t11472) * t41;
13954   t11477 = t11476 * t45;
13955   t11484 = t11217 * t98 - t11219 * t506 / 0.5e1 + 0.35e2 / 0.81e2 * t11307 * t124 + 0.35e2 / 0.81e2 * t11310 * t124 - 0.14e2 / 0.81e2 * t11313 * t583 + 0.26329605555555555556e-1 * t11477 * t157 - 0.70212281481481481483e-1 * t3681 * t626 - 0.10531842222222222222e-1 * t3681 * t630;
13956   t11486 = t637 * t3771;
13957   t11488 = t3696 * t454;
13958   t11492 = t3688 * t454;
13959   t11496 = t1036 * t9;
13960   t11500 = t3692 * t454;
13961   t11505 = t38 * t485 * t3767;
13962   t11507 = t696 * t3528;
13963   t11513 = t202 * t11134;
13964   t11524 = t38 * t485 * t3762;
13965   t11528 = t1056 * t3074;
13966   t11530 = t3739 * t670;
13967   t11531 = t11530 * t186;
13968   t11532 = t3737 * t670;
13969   t11533 = t11532 * t186;
13970   t11535 = t679 * t2264 * t3740;
13971   t11538 = t679 * t2260 * t3751;
13972   t11542 = t2269 * t1055;
13973   t11543 = t11542 * t9376;
13974   t11546 = t9370 * t3087;
13975   t11552 = t9253 - t9256 - t9301 + t9305 + 0.2e1 * t11528 + t11531 + t11533 + t11535 / 0.27e2 - 0.2e1 / 0.81e2 * t11538 + 0.10e2 / 0.243e3 * t7213 - 0.5e1 / 0.81e2 * t7217 + t9349 - 0.10e2 / 0.81e2 * t9369 * t11543 + 0.2e1 / 0.27e2 * t9369 * t11546 - 0.10e2 / 0.81e2 * t9351 + 0.20e2 / 0.243e3 * t9354 - 0.8e1 / 0.81e2 * t9363 + t7210;
13976   t11553 = t3743 * t454;
13977   t11560 = t3740 * t454;
13978   t11570 = t671 * t3523;
13979   t11574 = t1057 * t9;
13980   t11578 = t3075 * t943;
13981   t11582 = t1056 * t9;
13982   t11586 = t3751 * t454;
13983   t11590 = t671 * t3528;
13984   t11594 = t3738 * t454;
13985   t11599 = t679 * t2260 * t3747;
13986   t11605 = t179 * t40 * t3729;
13987   t11607 = t3523 * t454;
13988   t11611 = t943 * t9;
13989   t11616 = t179 * t40 * t3733;
13990   t11618 = t3528 * t454;
13991   t11622 = t71 * t11134;
13992   t11626 = -t7177 + 0.4e1 / 0.81e2 * t7179 + 0.8e1 / 0.81e2 * t9317 + t9321 - 0.16e2 / 0.27e2 * t9323 + 0.4e1 / 0.81e2 * t11605 - 0.8e1 / 0.81e2 * t3065 * t9325 * t11607 + 0.8e1 / 0.27e2 * t3065 * t7100 * t11611 - 0.4e1 / 0.27e2 * t11616 + 0.2e1 / 0.27e2 * t3065 * t3066 * t11618 - 0.2e1 / 0.9e1 * t179 * t181 * t11622;
13993   t11627 = t11626 * t186;
13994   t11629 = t679 * t2264 * t3738;
13995   t11632 = t679 * t7265 * t3743;
13996   t11634 = t192 * t11134;
13997   t11641 = 0.40e2 / 0.243e3 * t679 * t7244 * t11553 - t679 * t687 * t11533 / 0.18e2 + t679 * t682 * t11560 / 0.27e2 - t679 * t687 * t11528 / 0.9e1 - t679 * t687 * t11531 / 0.18e2 - 0.5e1 / 0.81e2 * t679 * t2270 * t11570 - 0.20e2 / 0.81e2 * t679 * t9261 * t11574 + 0.2e1 / 0.27e2 * t679 * t682 * t11578 + 0.4e1 / 0.27e2 * t679 * t3093 * t11582 - 0.5e1 / 0.81e2 * t679 * t2270 * t11586 + t679 * t682 * t11590 / 0.27e2 + t679 * t682 * t11594 / 0.27e2 - 0.4e1 / 0.81e2 * t11599 + t11627 + t11629 / 0.27e2 + 0.10e2 / 0.243e3 * t11632 + t679 * t682 * t11634 / 0.27e2 - t679 * t687 * t11627 / 0.18e2;
13998   t11642 = t11552 + t11641;
13999   t11643 = t71 * t11642;
14000   t11653 = t166 * t190 * t3703;
14001   t11662 = t166 * t190 * t3707;
14002   t11667 = t191 * t11134;
14003   t11671 = t7109 - 0.2e1 / 0.81e2 * t7111 - 0.4e1 / 0.81e2 * t9436 - t9440 + 0.4e1 / 0.27e2 * t9442 - 0.2e1 / 0.81e2 * t11653 + 0.10e2 / 0.81e2 * t3023 * t9444 * t11607 - 0.8e1 / 0.27e2 * t3023 * t7211 * t11611 + t11662 / 0.27e2 - 0.2e1 / 0.27e2 * t3023 * t3024 * t11618 + t166 * t168 * t11667 / 0.9e1;
14004   t11675 = -t9235 + 0.2e1 * t1056 * t3033 + 0.2e1 * t671 * t3711 - 0.4e1 / 0.243e3 * t7157 - t11524 / 0.27e2 - t9242 + 0.2e1 * t3075 * t1044 + t38 * t40 * t11643 / 0.9e1 + 0.4e1 / 0.81e2 * t7281 - t7155 + 0.8e1 / 0.81e2 * t9389 + 0.2e1 * t186 * t11671 + t9398 + t9405 + 0.4e1 / 0.81e2 * t9407;
14005   t11678 = t490 * t2176 * t3724;
14006   t11681 = t490 * t2176 * t3720;
14007   t11684 = t490 * t7081 * t3716;
14008   t11686 = t1064 * t9;
14009   t11690 = t3724 * t454;
14010   t11694 = t3716 * t454;
14011   t11698 = t1047 * t9;
14012   t11702 = t3720 * t454;
14013   t11706 = t3111 * t943;
14014   t11710 = t691 * t3523;
14015   t11714 = t3761 * t454;
14016   t11720 = t691 * t3528;
14017   t11724 = t197 * t11134;
14018   t11728 = -0.8e1 / 0.243e3 * t9422 + t11678 / 0.81e2 + 0.2e1 / 0.81e2 * t11681 - 0.4e1 / 0.243e3 * t11684 - 0.4e1 / 0.27e2 * t490 * t3004 * t11686 + 0.4e1 / 0.81e2 * t490 * t2183 * t11690 - 0.28e2 / 0.243e3 * t490 * t7071 * t11694 + 0.16e2 / 0.81e2 * t490 * t9159 * t11698 + 0.8e1 / 0.81e2 * t490 * t2183 * t11702 - 0.2e1 / 0.27e2 * t490 * t643 * t11706 + 0.4e1 / 0.81e2 * t490 * t2183 * t11710 - t490 * t643 * t11714 / 0.27e2 + 0.2e1 * t3076 * t1045 - t490 * t643 * t11720 / 0.27e2 - t490 * t643 * t11724 / 0.27e2;
14019   t11729 = t11675 + t11728;
14020   t11730 = t71 * t11729;
14021   t11734 = -0.16e2 / 0.243e3 * t490 * t2183 * t11488 + 0.112e3 / 0.729e3 * t490 * t7071 * t11492 - 0.64e2 / 0.243e3 * t490 * t9159 * t11496 - 0.32e2 / 0.243e3 * t490 * t2183 * t11500 + 0.4e1 / 0.81e2 * t11505 + t9166 + 0.4e1 / 0.81e2 * t490 * t643 * t11507 + 0.32e2 / 0.729e3 * t9176 + 0.16e2 / 0.729e3 * t7102 + 0.4e1 / 0.81e2 * t490 * t643 * t11513 - 0.16e2 / 0.243e3 * t7299 - 0.4e1 / 0.27e2 * t38 * t40 * t11730;
14022   t11737 = t3766 * t454;
14023   t11741 = t1069 * t9;
14024   t11745 = t3116 * t943;
14025   t11749 = t696 * t3523;
14026   t11754 = t490 * t2176 * t3696;
14027   t11757 = t490 * t7081 * t3688;
14028   t11760 = t490 * t2176 * t3692;
14029   t11762 = -t9191 - 0.16e2 / 0.243e3 * t9194 + t7099 - 0.32e2 / 0.243e3 * t9197 + t9205 - t9208 + 0.4e1 / 0.81e2 * t490 * t643 * t11737 + 0.16e2 / 0.81e2 * t490 * t3004 * t11741 + 0.8e1 / 0.81e2 * t490 * t643 * t11745 - 0.16e2 / 0.243e3 * t490 * t2183 * t11749 - 0.4e1 / 0.243e3 * t11754 + 0.16e2 / 0.729e3 * t11757 - 0.8e1 / 0.243e3 * t11760;
14030   t11763 = t11734 + t11762;
14031   t11764 = t162 * t11763;
14032   t11768 = t474 * t3684 - 0.6e1 * t478 * t11099 + t33 * t11484 + t11486 * t230 + t11764 * t230 + t3772 * t732 / 0.10e2;
14033   t11769 = p->cam_beta * t11768;
14034   t11771 = t8 * t18 * t11769;
14035   t11774 = t3498 * t1082;
14036   t11776 = t2416 * t2417 * t11774;
14037   t11777 = t11082 - t11086 / 0.2e1 + t11090 + t8679 + t8682 - t11093 / 0.6e1 + t7974 / 0.9e1 + t8687 / 0.6e1 - t8691 + 0.3e1 / 0.8e1 * t11771 + t8546 / 0.9e1 + t11776;
14038   t11779 = t2775 * t7937 * t3513;
14039   t11781 = t944 * t9;
14040   t11783 = t2754 * t8630 * t11781;
14041   t11786 = t8 * t1817 * t3517;
14042   t11789 = t3779 * t767;
14043   t11791 = t8654 * t3133 * t11789;
14044   t11793 = t3788 * t767;
14045   t11795 = t3132 * t3133 * t11793;
14046   t11797 = t936 * t3779;
14047   t11799 = t3132 * t2417 * t11797;
14048   t11801 = t1082 * t9;
14049   t11803 = t3132 * t10252 * t11801;
14050   t11807 = t17 * t1345;
14051   t11809 = t3132 * t11807 * t3134;
14052   t11811 = t11779 / 0.3e1 - t11783 / 0.3e1 - t11786 / 0.6e1 - t10239 / 0.6e1 - t8559 + t10243 + t11791 / 0.9e1 - t11795 / 0.6e1 + t11799 / 0.6e1 + t11803 / 0.3e1 + 0.2e1 / 0.9e1 * t10258 + t10262 / 0.3e1 - t11809 / 0.3e1;
14053   t11816 = t8571 - t1820 + t10 * (t10306 + t11078 + t11777 + t11811) + t2432 + t8572 - t1838 - t2414 - t4286 - t3157 / 0.2e1 + t3515 - t3787 - t3792 + t3778 - t3783;
14054   t11820 = -t3520 - t3511 - t8583 + t3143 + t8584 - t3154 + t3148 + t8585 - 0.2e1 / 0.3e1 * t3139 - 0.2e1 / 0.3e1 * t2761 + t2781 / 0.2e1 - t2765 - t2770 + t2778 - t10268;
14055   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14056     v3rho3[2] = t11816 + t11820;
14057 
14058   t11821 = t4283 * t1082;
14059   t11823 = t8 * t766 * t11821;
14060   t11824 = 0.3e1 / 0.2e1 * t11823;
14061   t11825 = t3507 * t944;
14062   t11826 = t247 * t11825;
14063   t11828 = t8 * t7978 * t11826;
14064   t11829 = t11828 / 0.9e1;
14065   t11831 = t1345 * t3779;
14066   t11833 = t8 * t2405 * t11831;
14067   t11834 = t11833 / 0.2e1;
14068   t11835 = -t1825 - t7061;
14069   t11836 = 0.3e1 * t11835;
14070   t11837 = t247 * t11836;
14071   t11839 = t8 * t450 * t11837;
14072   t11840 = t11839 / 0.2e1;
14073   t11841 = t3779 * t1082;
14074   t11842 = t444 * t11841;
14075   t11844 = t8 * t8550 * t11842;
14076   t11845 = t11844 / 0.9e1;
14077   t11846 = -t11836;
14078   t11847 = t444 * t11846;
14079   t11849 = t8 * t766 * t11847;
14080   t11850 = t11849 / 0.2e1;
14081   t11852 = t1082 * t3788;
14082   t11854 = t3132 * t3133 * t11852;
14083   t11855 = t11854 / 0.2e1;
14084   t11856 = t944 * t3516;
14085   t11858 = t2754 * t2755 * t11856;
14086   t11859 = t11858 / 0.2e1;
14087   t11860 = t1077 * t3507;
14088   t11862 = t2754 * t2417 * t11860;
14089   t11863 = t11862 / 0.2e1;
14090   t11865 = -t11824 - t6952 + t11829 - t10275 / 0.2e1 - t10288 - t11834 - t11840 + t11845 - t11850 - t10300 / 0.6e1 - t11855 - t11859 + t11863 - 0.3e1 / 0.8e1 * t10303;
14091   t11866 = t8598 / 0.3e1;
14092   t11872 = t3523 * t943;
14093   t11873 = t7070 * t11872;
14094   t11877 = t2797 * t3528;
14095   t11881 = 0.6e1 * t11835;
14096   t11882 = t513 * t11881;
14097   t11887 = my_piecewise3(t76, 0, -t7458 - 0.2e1 / 0.81e2 * t8747 - 0.2e1 / 0.81e2 * t11107 + t11123 / 0.54e2 - 0.14e2 / 0.243e3 * t490 * t511 * t11873 + 0.2e1 / 0.27e2 * t490 * t511 * t11877 - t490 * t511 * t11882 / 0.54e2);
14098   t11894 = t3539 * t954;
14099   t11895 = t2006 * t11894;
14100   t11900 = t7643 * t11894;
14101   t11903 = t7699 * t11894;
14102   t11905 = t954 * t3534;
14103   t11915 = t1986 * t11894;
14104   t11916 = t11915 * t86;
14105   t11918 = t2827 * t3594;
14106   t11920 = t7504 * t11894;
14107   t11922 = 0.5e1 / 0.2e1 * t11920 * t86;
14108   t11923 = t525 * t11887;
14109   t11928 = t7499 * t11894;
14110   t11937 = t79 * t11887;
14111   t11938 = t11937 * t86;
14112   t11939 = 0.15e2 / 0.2e1 * t11916 - 0.6e1 * t11918 - t11922 + t11923 * t86 / 0.2e1 + 0.3e1 / 0.4e1 * t11192 * t982 + t11928 * t86 / 0.8e1 - 0.12e2 * t4943 * t3534 - 0.3e1 * t1023 * t3594 - 0.4e1 * t529 * t11887 - t11938;
14113   t11942 = 0.7e1 / 0.2e1 * t11895 * t86 - 0.3e1 / 0.2e1 * t4923 * t3594 - t11900 * t86 / 0.4e1 - 0.6e1 * t11903 + 0.6e1 * t1991 * t11905 - t521 * t11887 + 0.2e1 * t11887 * t90 + 0.6e1 * t3534 * t966 + 0.6e1 * t954 * t3567 + 0.2e1 * t77 * t11939;
14114   t11945 = -0.8e1 / 0.3e1 * t11887 * t93 - 0.8e1 * t3534 * t969 - 0.8e1 * t954 * t3570 - 0.8e1 / 0.3e1 * t77 * t11942;
14115   t11961 = t11894 * t86;
14116   t11964 = t982 * t3534;
14117   t11969 = t128 * t11887;
14118   t11970 = 0.256e3 * t11969;
14119   t11972 = t77 * t11887;
14120   t11974 = t77 * t11894;
14121   t11975 = 0.1536e4 * t11974;
14122   t11976 = t999 * t3534;
14123   t11977 = 0.2304e4 * t11976;
14124   t11978 = 0.120e3 * t11905 + 0.40e2 * t11972 - t11975 - t11977 - t11970;
14125   t11991 = t11887 * t86;
14126   t11996 = t78 * t11887;
14127   t12000 = 0.3e1 / 0.2e1 * t11251 * t982 + 0.3e1 / 0.2e1 * t2874 * t3594 + 0.3e1 / 0.4e1 * t9089 * t3591 - 0.9e1 / 0.4e1 * t7505 * t11961 + t556 * t11991 / 0.2e1 + t7500 * t11961 / 0.8e1 + t11975 + t11977 + 0.10e2 * t11996 * t81 - t11922 - 0.10e2 * t11938;
14128   t12001 = 0.20e2 * t11916 - 0.15e2 * t11918 - 0.9e1 / 0.2e1 * t9094 * t3591 + 0.6e1 * t7538 * t11961 - 0.9e1 / 0.2e1 * t2044 * t11964 + 0.3e1 / 0.4e1 * t2051 * t11964 + t11970 + t11978 * t86 - 0.216e3 * t11905 - 0.72e2 * t11972 + t12000;
14129   t12004 = 0.144e3 * t11239 * t954 + 0.48e2 * t11887 * t547 + 0.24e2 * t12001 * t83 + 0.144e3 * t2862 * t3534 + 0.144e3 * t3534 * t4961 + 0.144e3 * t3539 * t990;
14130   t12005 = t12004 * t120;
14131   t12043 = -0.9e1 / 0.2e1 * t2102 * t11964 + 0.3e1 / 0.4e1 * t2107 * t11964 - 0.3e1 * t2138 * t11964 + 0.12e2 * t614 * t959 * t3534 + 0.720e3 * t11961 * t84 + 0.432e3 * t8954 * t3539 + 0.216e3 * t11398 * t954 + 0.216e3 * t2947 * t3534 + 0.72e2 * t601 * t11887 + 0.3e1 / 0.2e1 * t11465 * t982 + 0.3e1 / 0.2e1 * t2930 * t3594 + 0.3e1 / 0.4e1 * t8901 * t3591 - 0.9e1 / 0.4e1 * t7667 * t11961 + t598 * t11991 / 0.2e1;
14132   t12058 = t128 * t11894;
14133   t12062 = t130 * t11887;
14134   t12064 = 0.460800e6 * t1001 * t3534 + 0.1344e4 * t11905 - 0.5760e4 * t11969 + 0.448e3 * t11972 - 0.34560e5 * t11974 - 0.51840e5 * t11976 + 0.614400e6 * t12058 + 0.30720e5 * t12062;
14135   t12071 = t83 * t11887;
14136   t12073 = t83 * t11894;
14137   t12077 = t101 * t11887;
14138   t12091 = 0.808290e6 * t101 * t11894 + 0.484974e6 * t1015 * t3534 - 0.1105920e7 * t11887 * t134 + 0.26943e5 * t11887 * t141 - 0.61931520e8 * t11894 * t141 - 0.26542080e8 * t2923 * t3534 + 0.4608e4 * t3534 * t976 - 0.34560e5 * t3534 * t978 - 0.8e1 * t11887 + 0.1536e4 * t11894 + 0.768e3 * t12071 - 0.34560e5 * t12073 - 0.2880e4 * t12077;
14139   t12101 = t11887 * t81;
14140   t12108 = t84 * t11887;
14141   t12112 = -0.9e1 / 0.2e1 * t8910 * t3591 + 0.6e1 * t7682 * t11961 + 0.7e1 * t7673 * t11961 - 0.12e2 * t614 * t1999 * t11894 + 0.24e2 * t128 * t12064 + t12091 * t86 + 0.144e3 * t11894 * t143 + t7655 * t11961 / 0.8e1 + 0.432e3 * t2110 * t11905 + 0.720e3 * t986 * t3663 + 0.240e3 * t106 * t12101 - 0.1440e4 * t3565 * t982 - t7644 * t11961 / 0.2e1 - 0.2e1 * t614 * t12108 - 0.360e3 * t11903;
14142   t12113 = t12043 + t12112;
14143   t12117 = (0.8e1 / 0.7e1 * t11887 * t151 + 0.24e2 / 0.7e1 * t3534 * t1026 + 0.24e2 / 0.7e1 * t954 * t3676 + 0.8e1 / 0.7e1 * t77 * t12113) * t41;
14144   t12118 = t12117 * t45;
14145   t12121 = t11945 * t98 + 0.35e2 / 0.81e2 * t12005 * t124 + 0.26329605555555555556e-1 * t12118 * t157;
14146   t12123 = t1069 * t3523;
14147   t12127 = t3766 * t943;
14148   t12131 = t202 * t11872;
14149   t12135 = t1036 * t3528;
14150   t12142 = t2269 * t11872;
14151   t12146 = t943 * t3528;
14152   t12150 = t191 * t11881;
14153   t12154 = t7109 - 0.2e1 / 0.27e2 * t9436 - 0.2e1 / 0.27e2 * t11653 + t11662 / 0.9e1 + 0.10e2 / 0.81e2 * t166 * t168 * t12142 - 0.2e1 / 0.9e1 * t3023 * t3024 * t12146 + t166 * t168 * t12150 / 0.9e1;
14154   t12159 = t197 * t11872;
14155   t12163 = t1047 * t3528;
14156   t12170 = t1969 * t11872;
14157   t12177 = t71 * t11881;
14158   t12181 = -t7177 + 0.4e1 / 0.27e2 * t9317 + 0.4e1 / 0.27e2 * t11605 - 0.4e1 / 0.9e1 * t11616 - 0.8e1 / 0.81e2 * t179 * t181 * t12170 + 0.2e1 / 0.9e1 * t3065 * t3066 * t12146 - 0.2e1 / 0.9e1 * t179 * t181 * t12177;
14159   t12182 = t12181 * t186;
14160   t12184 = t3740 * t943;
14161   t12190 = t192 * t11881;
14162   t12202 = t3737 * t1055;
14163   t12203 = t12202 * t186;
14164   t12205 = t3739 * t1055;
14165   t12206 = t12205 * t186;
14166   t12213 = t192 * t11872;
14167   t12217 = t1057 * t3528;
14168   t12221 = t1056 * t3523;
14169   t12225 = t3738 * t943;
14170   t12229 = t1056 * t3528;
14171   t12233 = t11629 / 0.9e1 + 0.10e2 / 0.81e2 * t11632 + 0.3e1 * t12203 + t12206 - t679 * t687 * t12203 / 0.6e1 - t679 * t687 * t12206 / 0.18e2 + 0.40e2 / 0.243e3 * t679 * t7244 * t12213 - 0.5e1 / 0.27e2 * t679 * t2270 * t12217 - 0.5e1 / 0.27e2 * t679 * t2270 * t12221 + t679 * t682 * t12225 / 0.9e1 + t679 * t682 * t12229 / 0.9e1;
14172   t12234 = t12182 - 0.4e1 / 0.27e2 * t11599 + t7210 + t679 * t682 * t12184 / 0.9e1 - 0.5e1 / 0.27e2 * t9351 + 0.10e2 / 0.81e2 * t9354 + t679 * t682 * t12190 / 0.27e2 - t679 * t687 * t12182 / 0.18e2 + t11535 / 0.9e1 - 0.2e1 / 0.27e2 * t11538 + t12233;
14173   t12235 = t71 * t12234;
14174   t12241 = t1064 * t3528;
14175   t12245 = t197 * t11881;
14176   t12249 = t3761 * t943;
14177   t12253 = t1064 * t3523;
14178   t12265 = 0.2e1 * t186 * t12154 + 0.2e1 * t3740 * t1044 - t7155 - 0.28e2 / 0.243e3 * t490 * t7071 * t12159 + 0.4e1 / 0.27e2 * t490 * t2183 * t12163 + t38 * t40 * t12235 / 0.9e1 - 0.4e1 / 0.81e2 * t9422 + 0.4e1 / 0.27e2 * t9389 - t490 * t643 * t12241 / 0.9e1 - t490 * t643 * t12245 / 0.27e2 - t490 * t643 * t12249 / 0.9e1 + 0.4e1 / 0.27e2 * t490 * t2183 * t12253 + t11678 / 0.27e2 + 0.2e1 / 0.27e2 * t11681 - 0.4e1 / 0.81e2 * t11684 + 0.2e1 * t3738 * t1044 + 0.4e1 * t1056 * t3711 - t11524 / 0.9e1;
14179   t12266 = t71 * t12265;
14180   t12271 = t202 * t11881;
14181   t12275 = t1069 * t3528;
14182   t12284 = -0.16e2 / 0.81e2 * t490 * t2183 * t12123 + 0.4e1 / 0.27e2 * t490 * t643 * t12127 + t7099 + 0.112e3 / 0.729e3 * t490 * t7071 * t12131 - 0.16e2 / 0.81e2 * t490 * t2183 * t12135 - 0.4e1 / 0.27e2 * t38 * t40 * t12266 - 0.16e2 / 0.81e2 * t9197 + 0.4e1 / 0.81e2 * t490 * t643 * t12271 + 0.4e1 / 0.27e2 * t490 * t643 * t12275 - 0.4e1 / 0.81e2 * t11754 + 0.16e2 / 0.243e3 * t11757 - 0.8e1 / 0.81e2 * t11760 + 0.16e2 / 0.243e3 * t9176 + 0.4e1 / 0.27e2 * t11505;
14183   t12285 = t162 * t12284;
14184   t12287 = t12121 * t33 + t12285 * t230;
14185   t12288 = p->cam_beta * t12287;
14186   t12290 = t8 * t18 * t12288;
14187   t12291 = 0.3e1 / 0.8e1 * t12290;
14188   t12292 = t1091 * t3800;
14189   t12294 = 0.1e1 / t279;
14190   t12295 = sigma[2] * t12294;
14191   t12298 = my_piecewise3(t260, -0.3e1 / 0.4e1 * t12295 * t257, 0);
14192   t12301 = t3794 * t1091;
14193   t12303 = t1092 * t3800;
14194   t12305 = t262 * t12298;
14195   t12307 = 0.2e1 * t12298 * t261 + 0.6e1 * t12292 + 0.18e2 * t12301 + 0.54e2 * t12303 + 0.9e1 * t12305;
14196   t12308 = t12307 * t268;
14197   t12309 = t3807 * t1100;
14198   t12312 = t1096 * t3816;
14199   t12320 = 0.1e1 / t3815 / t266;
14200   t12321 = t265 * t12320;
14201   t12322 = t3818 * t262;
14202   t12323 = t12322 * t12301;
14203   t12326 = t263 * t12301;
14204   t12330 = t3818 * t1091 * t3800;
14205   t12339 = 0.18e2 * t1094 * t12309 + 0.12e2 * t1101 * t12301 + 0.36e2 * t1101 * t12303 + 0.6e1 * t1101 * t12305 - 0.162e3 * t12312 * t4083 + 0.648e3 * t12321 * t12323 - 0.324e3 * t12326 * t3817 - 0.162e3 * t12330 * t3817 + 0.36e2 * t3803 * t3810 + 0.18e2 * t3805 * t3810 - t12308;
14206   t12341 = t4090 * t1291;
14207   t12346 = t3834 * t286;
14208   t12348 = 0.1e1 / t315 / t12346;
14209   t12349 = t3837 * t1122;
14210   t12352 = t3869 * t1122;
14211   t12356 = 0.1e1 / t272 / t280;
14212   t12357 = sigma[2] * t12356;
14213   t12358 = t46 * t12357;
14214   t12361 = 0.1e1 / t271 / t6385;
14215   t12363 = t58 * t278 * t12361;
14216   t12365 = -0.68652008559670781891e1 * t12358 - 0.66631034152449850453e0 * t12363;
14217   t12369 = tau[1] * t3843;
14218   t12370 = 0.23717844740740740741e1 * t12369;
14219   t12376 = -0.29177103637860082304e1 * t12358 - 0.5e1 / 0.9e1 * (-t12370 - 0.54150879308641975309e0 * t12357) * t41 * t45;
14220   t12379 = t4261 * t1190;
14221   t12382 = t1333 * t3836;
14222   t12388 = 0.1e1 / t338 / t12346;
14223   t12389 = t438 * t12388;
14224   t12392 = t1122 * t3853;
14225   t12397 = -0.66e2 / 0.125e3 * t12348 * t12349 + 0.18e2 / 0.25e2 * t12352 * t3853 - t1154 * t12365 / 0.5e1 + 0.7e1 / 0.9e1 * t12376 * t339 - 0.14e2 / 0.15e2 * t12379 * t1122 + 0.98e2 / 0.75e2 * t12382 * t3837 - 0.14e2 / 0.15e2 * t4264 * t3853 - 0.392e3 / 0.375e3 * t12389 * t12349 + 0.98e2 / 0.75e2 * t4267 * t12392 - 0.14e2 / 0.45e2 * t1336 * t12365;
14226   t12412 = (-0.440e3 / 0.27e2 * t12369 + 0.154e3 / 0.27e2 * t12357) * t41 * t45 / 0.4e1 - 0.308e3 / 0.243e3 * t12358;
14227   t12415 = t12412 * t261;
14228   t12423 = t1303 * t3800;
14229   t12430 = t420 * t12298;
14230   t12437 = -0.42625e5 / 0.177147e6 * t12363 - 0.1540e4 / 0.81e2 * t409 * t410 * t12356 + 0.584e3 / 0.135e3 * t1303 * t4207 + 0.584e3 / 0.405e3 * t420 * t12412 - 0.146e3 / 0.135e3 * t12415 * t424 - 0.146e3 / 0.45e2 * t4207 * t1091 * t424 + 0.146e3 / 0.45e2 * t4210 * t1091 - 0.146e3 / 0.45e2 * t12423 * t424 + 0.292e3 / 0.45e2 * t1303 * t3794 + 0.146e3 / 0.45e2 * t1306 * t3800 - 0.146e3 / 0.135e3 * t12430 * t424 + 0.292e3 / 0.45e2 * t4218 * t1091 + 0.146e3 / 0.135e3 * t423 * t12298;
14231   t12440 = t1243 * t4189;
14232   t12443 = t4240 * t3800;
14233   t12446 = t1321 * t12298;
14234   t12451 = t441 * t263;
14235   t12452 = t12451 * t12301;
14236   t12455 = t1339 * t261;
14237   t12456 = t12455 * t3794;
14238   t12459 = t441 * t12322;
14239   t12460 = t12459 * t12301;
14240   t12463 = t4272 * t262;
14241   t12464 = t12463 * t1091;
14242   t12467 = t12339 * t428 + 0.3e1 / 0.10e2 * t12341 * t1314 + 0.3e1 / 0.10e2 * t4275 * t4225 + t269 * t12397 + t1342 * t12437 / 0.10e2 - 0.27e2 / 0.100e3 * t12440 * t4190 - 0.18e2 * t1101 * t12443 - 0.6e1 * t1101 * t12446 - 0.18e2 * t12309 * t1322 + 0.324e3 * t3817 * t12452 - 0.36e2 * t1101 * t12456 - 0.648e3 * t12321 * t12460 - 0.18e2 * t1101 * t12464;
14243   t12476 = t1339 * t3818;
14244   t12477 = t12476 * t3794;
14245   t12485 = t1314 * t4225;
14246   t12492 = t427 * t427;
14247   t12494 = 0.1e1 / t1290 / t12492;
14248   t12495 = t378 * t12494;
14249   t12496 = t4190 * t1314;
14250   t12499 = t441 * t12301;
14251   t12502 = t3823 * t3800;
14252   t12518 = t1123 * t3853;
14253   t12522 = t10392 * t1127;
14254   t12526 = t3169 * t3900;
14255   t12530 = t3895 * t1127;
14256   t12531 = t8005 * t12530;
14257   t12535 = t3177 * t3900;
14258   t12539 = t290 * t12365;
14259   t12543 = -t11881;
14260   t12544 = t780 * t12543;
14261   t12552 = 0.1e1 / t287 / t12346;
14262   t12553 = t39 * t12552;
14263   t12554 = t290 * t12349;
14264   t12558 = t10370 * t1127;
14265   t12566 = t9511 * t3895;
14266   t12570 = -t7992 + 0.11e2 / 0.600e3 * t490 * t3882 * t12518 + t490 * t1109 * t12522 / 0.180e3 + t490 * t1109 * t12526 / 0.180e3 - 0.14e2 / 0.243e3 * t490 * t778 * t12531 + 0.2e1 / 0.27e2 * t490 * t778 * t12535 - t490 * t1109 * t12539 / 0.180e3 - t490 * t778 * t12544 / 0.54e2 + t10390 / 0.180e3 - 0.2e1 / 0.81e2 * t10398 + t10410 / 0.54e2 - 0.77e2 / 0.6000e4 * t490 * t12553 * t12554 - 0.11e2 / 0.1800e4 * t490 * t3882 * t12558 - 0.11e2 / 0.1800e4 * t10368 - 0.2e1 / 0.81e2 * t9521 - t9506 / 0.135e3 - t10376 / 0.270e3 - t490 * t1109 * t12566 / 0.135e3;
14267   t12571 = my_piecewise3(t295, 0, t12570);
14268   t12574 = t1133 * t3906;
14269   t12576 = t296 * t12571;
14270   t12578 = t3911 * t1133;
14271   t12579 = t296 * t12578;
14272   t12580 = 0.1536e4 * t12579;
14273   t12581 = t1197 * t3906;
14274   t12582 = 0.2304e4 * t12581;
14275   t12583 = t344 * t12571;
14276   t12584 = 0.256e3 * t12583;
14277   t12585 = 0.120e3 * t12574 + 0.40e2 * t12576 - t12580 - t12582 - t12584;
14278   t12588 = t12578 * t304;
14279   t12591 = t12571 * t304;
14280   t12602 = t2459 * t12578;
14281   t12603 = t12602 * t304;
14282   t12605 = t3205 * t3980;
14283   t12609 = t78 * t12571;
14284   t12613 = t297 * t12571 * t304;
14285   t12615 = t8058 * t12578;
14286   t12617 = 0.5e1 / 0.2e1 * t12615 * t304;
14287   t12622 = t1166 * t3906;
14288   t12627 = t12584 - 0.72e2 * t12576 + 0.10e2 * t12609 * t299 + t12580 + t12582 - 0.10e2 * t12613 - t12617 - 0.9e1 / 0.2e1 * t9713 * t3977 + 0.6e1 * t8140 * t12588 - 0.9e1 / 0.2e1 * t2517 * t12622 + 0.3e1 / 0.4e1 * t2524 * t12622;
14289   t12628 = t12585 * t304 - 0.216e3 * t12574 + t8127 * t12588 / 0.8e1 + t819 * t12591 / 0.2e1 + 0.3e1 / 0.2e1 * t3252 * t3980 + 0.3e1 / 0.4e1 * t9704 * t3977 - 0.9e1 / 0.4e1 * t8120 * t12588 + 0.3e1 / 0.2e1 * t10544 * t1166 + 0.20e2 * t12603 - 0.15e2 * t12605 + t12627;
14290   t12631 = 0.144e3 * t10529 * t1133 + 0.144e3 * t1174 * t3911 + 0.48e2 * t12571 * t810 + 0.24e2 * t12628 * t301 + 0.144e3 * t3240 * t3906 + 0.144e3 * t3906 * t5146;
14291   t12632 = t12631 * t336;
14292   t12635 = t3995 * t1184;
14293   t12638 = t1177 * t3957;
14294   t12642 = t12370 - 0.19299635150617283950e1 * t12357;
14295   t12643 = t330 * t12642;
14296   t12646 = t3945 * t1154;
14297   t12649 = t1151 * t3869;
14298   t12656 = t314 * t12348;
14299   t12665 = t2479 * t12578;
14300   t12670 = t8035 * t12578;
14301   t12673 = t8039 * t12578;
14302   t12686 = t793 * t12571;
14303   t12691 = t8068 * t12578;
14304   t12700 = 0.15e2 / 0.2e1 * t12603 - 0.6e1 * t12605 - t12617 + t12686 * t304 / 0.2e1 + 0.3e1 / 0.4e1 * t10477 * t1166 + t12691 * t304 / 0.8e1 - 0.12e2 * t5368 * t3906 - 0.3e1 * t1221 * t3980 - 0.4e1 * t797 * t12571 - t12613;
14305   t12703 = 0.7e1 / 0.2e1 * t12665 * t304 - 0.3e1 / 0.2e1 * t5350 * t3980 - t12670 * t304 / 0.4e1 - 0.6e1 * t12673 + 0.6e1 * t2464 * t12574 - t789 * t12571 + 0.2e1 * t12571 * t308 + 0.6e1 * t3906 * t1145 + 0.6e1 * t1133 * t3939 + 0.2e1 * t296 * t12700;
14306   t12706 = -0.8e1 / 0.3e1 * t12571 * t311 - 0.8e1 * t3906 * t1148 - 0.8e1 * t1133 * t3942 - 0.8e1 / 0.3e1 * t296 * t12703;
14307   t12708 = t1113 * t3838;
14308   t12711 = t12388 * t12349;
14309   t12712 = t275 * t12711;
14310   t12719 = t45 * t12388;
14311   t12720 = t12719 * t12349;
14312   t12723 = t12357 * t339;
14313   t12726 = t1191 * t12365;
14314   t12729 = 0.35e2 / 0.81e2 * t12632 * t340 + 0.35e2 / 0.27e2 * t12635 * t340 + 0.35e2 / 0.27e2 * t12638 * t340 + 0.35e2 / 0.81e2 * t12643 * t340 - 0.3e1 / 0.5e1 * t12646 * t1122 + 0.18e2 / 0.25e2 * t12649 * t3837 - 0.3e1 / 0.5e1 * t3875 * t3853 - t1155 * t12365 / 0.5e1 - 0.66e2 / 0.125e3 * t12656 * t12349 + t12706 * t316 - 0.11795663288888888889e0 * t372 * t12708 - 0.35386989866666666666e-1 * t372 * t12712 + 0.77233509629629629632e0 * t1229 * t3858 - 0.21063684444444444445e0 * t4076 * t1232 - 0.392e3 / 0.675e3 * t1188 * t12720 - 0.12014101497942386831e1 * t372 * t12723 - 0.14e2 / 0.81e2 * t1188 * t12726;
14315   t12752 = t344 * t12578;
14316   t12756 = t346 * t12571;
14317   t12758 = 0.460800e6 * t1199 * t3906 + 0.1344e4 * t12574 + 0.448e3 * t12576 - 0.34560e5 * t12579 - 0.51840e5 * t12581 - 0.5760e4 * t12583 + 0.614400e6 * t12752 + 0.30720e5 * t12756;
14318   t12767 = t301 * t12571;
14319   t12769 = t301 * t12578;
14320   t12773 = t319 * t12571;
14321   t12787 = 0.4608e4 * t1160 * t3906 - 0.34560e5 * t1162 * t3906 + 0.484974e6 * t1213 * t3906 - 0.1105920e7 * t12571 * t350 + 0.26943e5 * t12571 * t357 + 0.808290e6 * t12578 * t319 - 0.61931520e8 * t12578 * t357 - 0.26542080e8 * t3301 * t3906 - 0.8e1 * t12571 + 0.1536e4 * t12578 + 0.768e3 * t12767 - 0.34560e5 * t12769 - 0.2880e4 * t12773;
14322   t12800 = 0.720e3 * t12588 * t302 + 0.72e2 * t850 * t12571 + 0.216e3 * t10698 * t1133 + 0.216e3 * t3325 * t3906 + 0.432e3 * t9872 * t3911 - 0.360e3 * t12673 + 0.24e2 * t344 * t12758 + 0.144e3 * t12578 * t359 + t12787 * t304 - 0.3e1 * t2602 * t12622 + 0.12e2 * t863 * t1138 * t3906 - 0.9e1 / 0.2e1 * t2566 * t12622 + 0.3e1 / 0.4e1 * t2571 * t12622 + 0.7e1 * t8255 * t12588;
14323   t12810 = t302 * t12571;
14324   t12813 = t12571 * t299;
14325   t12834 = -0.12e2 * t863 * t2472 * t12578 - 0.9e1 / 0.2e1 * t9775 * t3977 + 0.6e1 * t8252 * t12588 - t8240 * t12588 / 0.2e1 - 0.2e1 * t863 * t12810 + 0.240e3 * t324 * t12813 - 0.1440e4 * t3937 * t1166 + 0.720e3 * t1170 * t4058 + 0.432e3 * t2574 * t12574 + t8227 * t12588 / 0.8e1 - 0.9e1 / 0.4e1 * t8222 * t12588 + t847 * t12591 / 0.2e1 + 0.3e1 / 0.2e1 * t3308 * t3980 + 0.3e1 / 0.4e1 * t9745 * t3977 + 0.3e1 / 0.2e1 * t10632 * t1166;
14326   t12835 = t12800 + t12834;
14327   t12839 = (0.8e1 / 0.7e1 * t12571 * t367 + 0.24e2 / 0.7e1 * t3906 * t1224 + 0.24e2 / 0.7e1 * t1133 * t4071 + 0.8e1 / 0.7e1 * t296 * t12835) * t41;
14328   t12840 = t12839 * t45;
14329   t12847 = t3951 * t41;
14330   t12850 = t3958 * t41;
14331   t12853 = t3996 * t41;
14332   t12862 = t3947 * t12392;
14333   t12867 = t3844 * t1235;
14334   t12872 = t1190 * t12365;
14335   t12873 = t275 * t12872;
14336   t12880 = t1113 * t3854;
14337   t12883 = t5324 * t12392;
14338   t12886 = 0.26329605555555555556e-1 * t12840 * t373 + 0.98e2 / 0.135e3 * t3999 * t3948 + 0.98e2 / 0.135e3 * t4002 * t3948 - 0.28e2 / 0.27e2 * t12847 * t1192 - 0.14e2 / 0.27e2 * t12850 * t1192 - 0.14e2 / 0.27e2 * t12853 * t1192 - 0.14e2 / 0.27e2 * t3999 * t4005 - 0.14e2 / 0.27e2 * t4002 * t4005 + 0.18e2 / 0.25e2 * t3870 * t12392 + 0.98e2 / 0.135e3 * t1188 * t12862 - 0.31595526666666666666e-1 * t4076 * t1236 - 0.30893403851851851852e0 * t372 * t12867 + 0.16850947555555555555e0 * t1229 * t3861 - 0.10531842222222222222e-1 * t372 * t12873 - 0.31595526666666666666e-1 * t1229 * t3855 + 0.44233737333333333333e-1 * t1229 * t3839 + 0.84254737777777777777e-1 * t372 * t12880 + 0.44233737333333333333e-1 * t5323 * t12883;
14339   t12887 = t12729 + t12886;
14340   t12889 = t376 * t263;
14341   t12890 = t12889 * t12301;
14342   t12895 = t1239 * t261;
14343   t12896 = t12895 * t3794;
14344   t12905 = t4079 * t262;
14345   t12906 = t12905 * t1091;
14346   t12911 = t1243 * t4183;
14347   t12915 = t4189 * t1314 * t4225;
14348   t12918 = t376 * t12322;
14349   t12919 = t12918 * t12301;
14350   t12922 = -0.18e2 * t1101 * t12502 + t12308 * t376 + 0.3e1 * t1097 * t4079 + 0.3e1 * t3808 * t1239 + t269 * t12887 + 0.324e3 * t3817 * t12890 - 0.36e2 * t3810 * t3828 - 0.36e2 * t1101 * t12896 - 0.18e2 * t3810 * t3831 + 0.162e3 * t12312 * t3820 - 0.18e2 * t12309 * t1103 - 0.18e2 * t1101 * t12906 - 0.36e2 * t3810 * t3824 + 0.3e1 * t12911 * t428 - 0.27e2 / 0.100e3 * t406 * t12915 - 0.648e3 * t12321 * t12919;
14351   t12931 = t1291 * t12437;
14352   t12936 = t12494 * t12496;
14353   t12940 = t400 * t12543;
14354   t12944 = t1279 * t3900;
14355   t12948 = t4178 * t1127;
14356   t12952 = t1279 * t3895;
14357   t12959 = t395 * t12543;
14358   t12963 = t1274 * t3900;
14359   t12967 = t1274 * t3895;
14360   t12971 = t4173 * t1127;
14361   t12980 = t4152 * t1127;
14362   t12989 = t4149 * t1265;
14363   t12990 = t12989 * t388;
14364   t12992 = t4151 * t1265;
14365   t12993 = t12992 * t388;
14366   t12997 = t390 * t12543;
14367   t13004 = t2442 * t12530;
14368   t13008 = t1127 * t3900;
14369   t13012 = t290 * t12543;
14370   t13016 = -t8295 + 0.4e1 / 0.27e2 * t10027 + 0.4e1 / 0.27e2 * t10853 - 0.4e1 / 0.9e1 * t10864 - 0.8e1 / 0.81e2 * t179 * t181 * t13004 + 0.2e1 / 0.9e1 * t3065 * t3440 * t13008 - 0.2e1 / 0.9e1 * t179 * t181 * t13012;
14371   t13017 = t13016 * t388;
14372   t13027 = t390 * t12530;
14373   t13031 = t1267 * t3900;
14374   t13035 = t1266 * t3895;
14375   t13039 = t4150 * t1127;
14376   t13043 = t1266 * t3900;
14377   t13047 = t679 * t914 * t12997 / 0.27e2 - t679 * t919 * t13017 / 0.18e2 - t679 * t919 * t12990 / 0.6e1 - t679 * t919 * t12993 / 0.18e2 + 0.40e2 / 0.243e3 * t679 * t8366 * t13027 - 0.5e1 / 0.27e2 * t679 * t2714 * t13031 - 0.5e1 / 0.27e2 * t679 * t2714 * t13035 + t679 * t914 * t13039 / 0.9e1 + t679 * t914 * t13043 / 0.9e1 + t8328 + t13017;
14378   t13048 = t679 * t914 * t12980 / 0.9e1 + t10880 / 0.9e1 + t10883 / 0.9e1 + 0.10e2 / 0.81e2 * t10889 - 0.2e1 / 0.27e2 * t10892 - 0.4e1 / 0.27e2 * t10804 + 0.3e1 * t12990 + t12993 - 0.5e1 / 0.27e2 * t10051 + 0.10e2 / 0.81e2 * t10054 + t13047;
14379   t13049 = t290 * t13048;
14380   t13058 = t395 * t12530;
14381   t13062 = t1257 * t3900;
14382   t13071 = t2713 * t12530;
14383   t13078 = t389 * t12543;
14384   t13082 = t8401 - 0.2e1 / 0.27e2 * t9934 - 0.2e1 / 0.27e2 * t10956 + t10965 / 0.9e1 + 0.10e2 / 0.81e2 * t166 * t168 * t13071 - 0.2e1 / 0.9e1 * t3023 * t3400 * t13008 + t166 * t168 * t13078 / 0.9e1;
14385   t13085 = -t490 * t880 * t12959 / 0.27e2 - t490 * t880 * t12963 / 0.9e1 + 0.4e1 / 0.27e2 * t490 * t2630 * t12967 - t490 * t880 * t12971 / 0.9e1 + t10983 / 0.27e2 - 0.4e1 / 0.81e2 * t10986 + 0.2e1 / 0.27e2 * t10989 + 0.2e1 * t4152 * t1254 + t38 * t40 * t13049 / 0.9e1 + 0.2e1 * t4150 * t1254 + 0.4e1 * t1266 * t4123 - t10950 / 0.9e1 - 0.28e2 / 0.243e3 * t490 * t8454 * t13058 + 0.4e1 / 0.27e2 * t490 * t2630 * t13062 - 0.4e1 / 0.81e2 * t9966 - t8443 + 0.4e1 / 0.27e2 * t10118 + 0.2e1 * t388 * t13082;
14386   t13086 = t290 * t13085;
14387   t13090 = t400 * t12530;
14388   t13094 = t1246 * t3900;
14389   t13100 = 0.16e2 / 0.243e3 * t9909 + 0.4e1 / 0.81e2 * t490 * t880 * t12940 + 0.4e1 / 0.27e2 * t490 * t880 * t12944 + 0.4e1 / 0.27e2 * t490 * t880 * t12948 - 0.16e2 / 0.81e2 * t490 * t2630 * t12952 - 0.4e1 / 0.81e2 * t11034 - 0.8e1 / 0.81e2 * t11037 + 0.16e2 / 0.243e3 * t11040 - 0.4e1 / 0.27e2 * t38 * t40 * t13086 + t8490 + 0.112e3 / 0.729e3 * t490 * t8454 * t13090 - 0.16e2 / 0.81e2 * t490 * t2630 * t13094 - 0.16e2 / 0.81e2 * t10219 + 0.4e1 / 0.27e2 * t11030;
14390   t13101 = t378 * t13100;
14391   t13107 = t4090 * t1284;
14392   t13110 = t12339 * t405;
14393   t13112 = t376 * t12301;
14394   t13119 = t1239 * t3818;
14395   t13120 = t13119 * t3794;
14396   t13123 = t1102 * t12298;
14397   t13126 = 0.3e1 / 0.5e1 * t4093 * t1315 + 0.3e1 / 0.10e2 * t1244 * t4226 + 0.3e1 / 0.10e2 * t1285 * t4226 + 0.3e1 / 0.10e2 * t4184 * t1315 + t406 * t12931 / 0.10e2 + 0.3e1 / 0.10e2 * t4091 * t1315 + 0.171e3 / 0.1000e4 * t406 * t12936 + t13101 * t428 - 0.36e2 * t5130 * t12303 + 0.162e3 * t5122 * t12330 + 0.3e1 * t13107 * t428 + t13110 * t428 - 0.12e2 * t1101 * t13112 - 0.27e2 / 0.100e3 * t1285 * t4191 - 0.27e2 / 0.100e3 * t1244 * t4191 + 0.162e3 * t3817 * t13120 - 0.6e1 * t1101 * t13123;
14398   t13129 = -0.36e2 * t3810 * t4245 - 0.36e2 * t3810 * t4241 - 0.18e2 * t3810 * t4248 + 0.162e3 * t12312 * t4237 + 0.162e3 * t3817 * t12477 + 0.3e1 * t1097 * t4272 + t12308 * t441 + 0.3e1 * t3808 * t1339 - 0.27e2 / 0.100e3 * t4278 * t12485 + 0.162e3 * t5453 * t12330 - 0.36e2 * t5459 * t12303 + 0.171e3 / 0.1000e4 * t12495 * t12496 - 0.12e2 * t1101 * t12499 - p->cam_beta * (t12922 + t13126);
14399   t13130 = t12467 + t13129;
14400   t13132 = t8 * t254 * t13130;
14401   t13133 = 0.3e1 / 0.8e1 * t13132;
14402   t13134 = t8687 / 0.4e1;
14403   t13135 = t1077 * t3516;
14404   t13137 = t2775 * t2417 * t13135;
14405   t13138 = 0.3e1 / 0.2e1 * t13137;
14406   t13140 = t10239 / 0.4e1;
14407   t13141 = t3774 * t944;
14408   t13143 = t2775 * t2417 * t13141;
14409   t13144 = 0.3e1 / 0.2e1 * t13143;
14410   t13145 = t10258 / 0.3e1;
14411   t13146 = t1345 * t3788;
14412   t13148 = t8 * t766 * t13146;
14413   t13149 = 0.3e1 / 0.2e1 * t13148;
14414   t13150 = t11866 + 0.3e1 / 0.8e1 * t10312 - t10320 / 0.6e1 + t12291 - t13133 + t13134 + t13138 + t11779 - t11786 / 0.2e1 - t13140 - t8559 + t13144 + t13145 - t13149;
14415   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14416     v3rho3[3] = t10 * (t11865 + t13150) - 0.3e1 / 0.2e1 * t3791 - 0.3e1 * t3787 - t3782 / 0.2e1 + 0.3e1 * t3515 - t3510 / 0.2e1 + 0.9e1 / 0.8e1 * t3777 - 0.3e1 / 0.2e1 * t3519 - t3139 - 0.3e1 / 0.4e1 * t3157 + 0.3e1 / 0.4e1 * t2781 - t2761 - 0.9e1 / 0.8e1 * t4285 + t8571 + t8572;
14417 
14418   t13164 = t8 * t450 * t4292;
14419   t13168 = t8 * t460 * t1517 / 0.6e1;
14420   t13170 = t8 * t18 * t4700;
14421   t13171 = t1517 * t1812;
14422   t13175 = t4700 * t455;
14423   t13178 = t1517 * t1827;
14424   t13187 = t7907 * t1356;
14425   t13190 = t2356 * t4300;
14426   t13195 = my_piecewise3(t24, t1841 * t21 / 0.4e1, 0);
14427   t13196 = t738 * t13195;
14428   t13201 = t1477 * t2305;
14429   t13204 = t244 * t1839;
14430   t13205 = t13204 * t1356;
14431   t13212 = 0.2e1 * t4308 * t756 + t1362 * t2388 - 0.12e2 * t1855 * t4663 - 0.6e1 * t478 * t13187 - 0.12e2 * t478 * t13190 - 0.6e1 * t478 * t13196 - 0.12e2 * t1855 * t4668 - 0.9e1 / 0.100e3 * t13201 * t2306 - 0.12e2 * t478 * t13205 - 0.12e2 * t4310 * t2357 - 0.6e1 * t4310 * t2364;
14432   t13213 = t1361 * t1861;
14433   t13220 = t1495 * t2341;
14434   t13225 = t4667 * t1845;
14435   t13228 = t1512 * t1863;
14436   t13229 = t13228 * t1839;
14437   t13234 = t1845 * t1356;
14438   t13236 = t468 * t4300;
14439   t13238 = t25 * t13195;
14440   t13240 = t1839 * t1356;
14441   t13242 = t4301 * t468;
14442   t13244 = t1357 * t1845;
14443   t13246 = t26 * t13195;
14444   t13248 = 0.2e1 * t13234 + 0.4e1 * t13236 + 0.2e1 * t13238 + 0.18e2 * t13240 + 0.36e2 * t13242 + 0.18e2 * t13244 + 0.9e1 * t13246;
14445   t13249 = t13248 * t32;
14446   t13251 = t4317 * t1845;
14447   t13254 = t6995 * t244;
14448   t13255 = t6996 * t1356;
14449   t13256 = t13255 * t1839;
14450   t13259 = 0.54e2 * t13213 * t2353 - 0.6e1 * t6983 * t1502 - 0.12e2 * t1855 * t4657 - 0.9e1 / 0.100e3 * t2394 * t13220 - 0.9e1 / 0.50e2 * t7894 * t4695 - 0.6e1 * t478 * t13225 + 0.54e2 * t1862 * t13229 + 0.2e1 * t474 * t4687 + t13249 * t244 + 0.54e2 * t4654 * t13251 - 0.648e3 * t13254 * t13256;
14451   t13261 = t478 * t756;
14452   t13269 = t4642 * t731;
14453   t13272 = t4596 * t708;
14454   t13277 = t4307 * t477;
14455   t13296 = t27 * t1356;
14456   t13297 = t13296 * t1839;
14457   t13300 = t1863 * t4300;
14458   t13301 = t13300 * t468;
14459   t13314 = -0.54e2 * t13213 * t2158 + 0.12e2 * t13240 * t478 + 0.24e2 * t13242 * t478 + 0.12e2 * t13244 * t478 + 0.6e1 * t13246 * t478 - 0.54e2 * t13251 * t1862 + 0.648e3 * t13256 * t6995 + 0.12e2 * t13277 * t471 - 0.324e3 * t13297 * t1862 - 0.108e3 * t13301 * t1862 + 0.6e1 * t1359 * t6983 + 0.12e2 * t1848 * t4310 + 0.6e1 * t1850 * t4310 + 0.24e2 * t1855 * t4303 + 0.12e2 * t1855 * t4305 - 0.108e3 * t4318 * t6986 - t13249;
14460   t13316 = t2305 * t4642;
14461   t13317 = t13316 * t731;
14462   t13320 = t1473 * t1863;
14463   t13321 = t13320 * t1839;
14464   t13326 = t1862 * t633;
14465   t13333 = t6995 * t160;
14466   t13336 = t1855 * t160;
14467   t13339 = t6986 * t160;
14468   t13344 = t478 * t633;
14469   t13349 = -0.9e1 / 0.50e2 * t208 * t13317 + 0.54e2 * t1862 * t13321 - 0.12e2 * t1855 * t4332 + 0.108e3 * t13326 * t4318 + 0.108e3 * t4316 * t13301 + 0.54e2 * t4316 * t13251 - 0.648e3 * t13333 * t13256 - 0.24e2 * t13336 * t4303 + 0.108e3 * t13339 * t4318 + 0.324e3 * t4316 * t13297 - 0.24e2 * t13344 * t4303 - 0.24e2 * t4324 * t13242;
14470   t13354 = t479 * t13195;
14471   t13357 = t4607 * t2341;
14472   t13362 = t4331 * t1845;
14473   t13365 = t160 * t1839;
14474   t13366 = t13365 * t1356;
14475   t13369 = t4584 * t26;
14476   t13370 = t13369 * t468;
14477   t13376 = t7029 * t1495 * t2306;
14478   t13385 = -0.12e2 * t4324 * t13244 - 0.9e1 / 0.100e3 * t1478 * t2307 - 0.6e1 * t478 * t13354 - 0.9e1 / 0.100e3 * t208 * t13357 - 0.9e1 / 0.50e2 * t702 * t4608 - 0.6e1 * t478 * t13362 - 0.12e2 * t478 * t13366 - 0.12e2 * t478 * t13370 - 0.12e2 * t4310 * t1873 + 0.171e3 / 0.1000e4 * t208 * t13376 - 0.9e1 / 0.50e2 * t638 * t4608 - 0.6e1 * t4310 * t1876 + 0.54e2 * t13213 * t1865;
14479   t13392 = t46 * t51 * t1839;
14480   t13394 = t2323 * t41;
14481   t13395 = t13394 * t1465;
14482   t13397 = t2323 * t1356;
14483   t13400 = t720 * t4300;
14484   t13405 = t222 * t13195;
14485   t13418 = t45 * t1893;
14486   t13421 = t4614 * t4417;
14487   t13423 = t1483 * t13418;
14488   t13427 = t46 * t496 * t468 * t226;
14489   t13430 = t46 * t4619 * t468;
14490   t13434 = t46 * t51 * t1845 * t226;
14491   t13437 = t46 * t1486 * t1845;
14492   t13439 = t1893 * t25;
14493   t13441 = t46 * t13439 * t226;
14494   t13444 = t58 * sigma[0] * t1907;
14495   t13446 = -0.73e2 / 0.9720e4 * t13392 - 0.73e2 / 0.14580e5 * t13395 - 0.146e3 / 0.135e3 * t13397 * t226 - 0.292e3 / 0.135e3 * t13400 * t226 + 0.584e3 / 0.135e3 * t4630 * t468 - 0.146e3 / 0.135e3 * t13405 * t226 + 0.584e3 / 0.135e3 * t4633 * t468 + 0.292e3 / 0.135e3 * t1490 * t1845 + 0.146e3 / 0.135e3 * t2326 * t1356 + 0.292e3 / 0.135e3 * t723 * t4300 + 0.146e3 / 0.135e3 * t225 * t13195 + 0.110e3 / 0.27e2 * t211 * t13418 + 0.292e3 / 0.10935e5 * t13421 - 0.1606e4 / 0.32805e5 * t13423 - 0.73e2 / 0.3645e4 * t13427 + 0.73e2 / 0.3645e4 * t13430 + 0.73e2 / 0.19440e5 * t13434 - 0.73e2 / 0.19440e5 * t13437 + 0.803e3 / 0.21870e5 * t13441 + 0.8125e4 / 0.118098e6 * t13444;
14496   t13447 = t708 * t13446;
14497   t13454 = t1868 * t4300;
14498   t13463 = t1473 * t25;
14499   t13464 = t13463 * t1839;
14500   t13473 = -0.12e2 * t13277 * t480 - 0.12e2 * t4310 * t1869 + t208 * t13447 / 0.10e2 + t4599 * t732 / 0.5e1 + t1478 * t2342 / 0.10e2 - 0.12e2 * t478 * t13454 + t2166 * t1496 / 0.10e2 + t2168 * t1496 / 0.5e1 + t4597 * t732 / 0.5e1 - 0.12e2 * t478 * t13464 + t702 * t4643 / 0.5e1 - 0.12e2 * t1855 * t4321 - 0.12e2 * t1855 * t4327;
14501   t13481 = t7377 * t1356;
14502   t13492 = t4406 * t41;
14503   t13497 = t490 * t7459 * t1373 / 0.405e3;
14504   t13499 = t490 * t7442 * t4342;
14505   t13502 = t490 * t1943 * t4347;
14506   t13505 = t490 * t1943 * t4357;
14507   t13507 = t1373 * t1882;
14508   t13511 = t1952 * t513;
14509   t13513 = t13511 * t4554 * t454;
14510   t13516 = t4357 * t506;
14511   t13520 = t1373 * t1911;
14512   t13524 = t1969 * t1372;
14513   t13525 = t13524 * t1970;
14514   t13529 = t513 * t4356;
14515   t13530 = t13529 * t454;
14516   t13534 = t4346 * t1975;
14517   t13541 = 0.14711144691358024691e1 * t46 * t1893 + 0.18172100223395413760e0 * t13444;
14518   t13542 = t71 * t13541;
14519   t13546 = -t13497 - 0.11e2 / 0.2700e4 * t13499 - t13502 / 0.810e3 + t13505 / 0.270e3 - 0.77e2 / 0.6000e4 * t490 * t7409 * t13507 - 0.11e2 / 0.2700e4 * t5889 * t13513 + 0.11e2 / 0.900e3 * t490 * t1953 * t13516 + 0.11e2 / 0.1800e4 * t490 * t1953 * t13520 - t490 * t493 * t13525 / 0.405e3 + t490 * t493 * t13530 / 0.270e3 + t490 * t493 * t13534 / 0.540e3 - t490 * t493 * t13542 / 0.180e3;
14520   t13547 = my_piecewise3(t76, 0, t13546);
14521   t13558 = t1377 * t1987;
14522   t13559 = t13558 * t86;
14523   t13562 = t2048 * t1377;
14524   t13564 = t557 * t4362;
14525   t13597 = t1981 * t1377;
14526   t13599 = t519 * t4362;
14527   t13601 = t77 * t13547;
14528   t13603 = t1401 * t1987;
14529   t13605 = t4430 * t519;
14530   t13607 = t1430 * t1981;
14531   t13609 = t128 * t13547;
14532   t13617 = t130 * t13547;
14533   t13619 = 0.614400e6 * t1403 * t1987 + 0.153600e6 * t1432 * t1981 + 0.307200e6 * t4434 * t519 + 0.448e3 * t13597 + 0.896e3 * t13599 + 0.448e3 * t13601 - 0.34560e5 * t13603 - 0.34560e5 * t13605 - 0.17280e5 * t13607 - 0.5760e4 * t13609 + 0.30720e5 * t13617;
14534   t13628 = t83 * t13547;
14535   t13636 = t101 * t13547;
14536   t13648 = t132 * t4362;
14537   t13655 = -0.1105920e7 * t134 * t13547 + 0.26943e5 * t13547 * t141 - 0.17694720e8 * t13648 * t519 + 0.1536e4 * t1401 * t1981 - 0.11520e5 * t1403 * t1981 - 0.34560e5 * t1430 * t1987 + 0.808290e6 * t1432 * t1987 - 0.61931520e8 * t1434 * t1987 + 0.161658e6 * t1446 * t1981 - 0.8847360e7 * t1981 * t4440 + 0.3072e4 * t4370 * t519 - 0.23040e5 * t4374 * t519 + 0.323316e6 * t4473 * t519 - 0.8e1 * t13547 + 0.1536e4 * t13558 + 0.768e3 * t13628 - 0.2880e4 * t13636;
14538   t13663 = -0.9e1 / 0.4e1 * t7667 * t13559 + t2107 * t13564 / 0.2e1 + t2107 * t13562 / 0.4e1 + 0.6e1 * t7682 * t13559 + 0.7e1 * t7673 * t13559 - 0.12e2 * t614 * t4399 * t1987 + 0.24e2 * t128 * t13619 + t13655 * t86 + 0.288e3 * t7634 * t4368 + 0.288e3 * t2110 * t13599 + 0.144e3 * t2110 * t13597;
14539   t13665 = t13547 * t86;
14540   t13671 = t1438 * t2006;
14541   t13676 = t4445 * t525;
14542   t13678 = t1438 * t1999;
14543   t13686 = t13547 * t81;
14544   t13691 = t598 * t13665 / 0.2e1 + t2100 * t4386 + t4447 * t2048 / 0.2e1 + t13671 * t2045 / 0.4e1 + t7670 * t1407 / 0.2e1 + t13676 * t557 - 0.3e1 / 0.2e1 * t13678 * t2045 - 0.2e1 * t614 * t84 * t13547 + 0.720e3 * t13558 * t521 + 0.240e3 * t106 * t13686 - 0.960e3 * t4396 * t557;
14545   t13694 = t4399 * t2045;
14546   t13704 = t83 * t4475;
14547   t13711 = t77 * t1448;
14548   t13716 = 0.72e2 * t13547 * t601 + 0.144e3 * t13704 * t519 + 0.144e3 * t13711 * t1987 + 0.72e2 * t1377 * t7637 + 0.144e3 * t1377 * t8957 - 0.480e3 * t1387 * t2048 + 0.240e3 * t1451 * t2056 + 0.72e2 * t1981 * t4464 + 0.144e3 * t2113 * t4362 + 0.480e3 * t4480 * t561 - 0.360e3 * t13694;
14549   t13718 = t7655 * t13559 / 0.8e1 - t2138 * t13562 - 0.2e1 * t2138 * t13564 - t7644 * t13559 / 0.2e1 + 0.8e1 * t614 * t4535 * t519 + 0.4e1 * t614 * t1382 * t1981 - 0.3e1 * t7679 * t4383 + t7664 * t4383 / 0.2e1 - 0.3e1 * t2102 * t13564 - 0.3e1 / 0.2e1 * t2102 * t13562 + t13663 + t13691 + t13716;
14550   t13722 = (0.8e1 / 0.7e1 * t13547 * t151 + 0.16e2 / 0.7e1 * t4362 * t618 + 0.8e1 / 0.7e1 * t1377 * t2146 + 0.8e1 / 0.7e1 * t1981 * t1457 + 0.16e2 / 0.7e1 * t519 * t4492 + 0.8e1 / 0.7e1 * t77 * t13718) * t41;
14551   t13723 = t13722 * t45;
14552   t13726 = t4558 * t1882;
14553   t13729 = t496 * t581;
14554   t13730 = t13729 * t506;
14555   t13735 = t4500 * t1911;
14556   t13738 = t4409 * t41;
14557   t13743 = t4421 * t41;
14558   t13746 = t4412 * t41;
14559   t13757 = -0.14042456296296296297e0 * t4497 * t626 - 0.28e2 / 0.81e2 * t13492 * t583 + 0.26329605555555555556e-1 * t13723 * t157 + 0.14744579111111111111e-1 * t156 * t13726 + 0.56169825185185185185e-1 * t156 * t13730 - 0.21063684444444444444e-1 * t623 * t4501 - 0.10531842222222222222e-1 * t156 * t13735 - 0.28e2 / 0.81e2 * t13738 * t583 - 0.14e2 / 0.81e2 * t4517 * t2074 + 0.38989161920438957476e-1 * t13743 * t583 - 0.14620935720164609054e-1 * t13746 * t583 - 0.73104678600823045268e-2 * t4504 * t2074 - 0.14e2 / 0.81e2 * t7711 * t1425 - 0.28e2 / 0.81e2 * t7727 * t1425 - 0.28e2 / 0.81e2 * t2068 * t4511;
14560   t13762 = t582 * t13541;
14561   t13773 = t568 * t496;
14562   t13776 = t2064 * t51;
14563   t13795 = t77 * t4402;
14564   t13822 = t1405 * t2006;
14565   t13828 = t4376 * t525;
14566   t13830 = -0.3e1 * t7535 * t4383 + t7516 * t4383 / 0.2e1 - 0.3e1 * t2044 * t13564 - 0.3e1 / 0.2e1 * t2044 * t13562 - 0.9e1 / 0.4e1 * t7505 * t13559 + t2051 * t13564 / 0.2e1 + t2051 * t13562 / 0.4e1 + t7500 * t13559 / 0.8e1 + 0.6e1 * t7538 * t13559 + t556 * t13665 / 0.2e1 + t4378 * t2048 / 0.2e1 + t13822 * t2045 / 0.4e1 + t7511 * t1407 / 0.2e1 + t2042 * t4386 + t13828 * t557;
14567   t13831 = t1405 * t1999;
14568   t13834 = t1986 * t1377;
14569   t13835 = t13834 * t2045;
14570   t13837 = t1999 * t4362;
14571   t13838 = t13837 * t557;
14572   t13840 = t4399 * t2048;
14573   t13842 = t7504 * t1377;
14574   t13844 = 0.5e1 / 0.2e1 * t13842 * t2045;
14575   t13845 = 0.256e3 * t13609;
14576   t13852 = 0.1536e4 * t13603;
14577   t13853 = 0.1536e4 * t13605;
14578   t13854 = 0.768e3 * t13607;
14579   t13855 = 0.40e2 * t13597 + 0.80e2 * t13599 + 0.40e2 * t13601 - t13852 - t13853 - t13854 - t13845;
14580   t13857 = t79 * t13547;
14581   t13858 = t13857 * t86;
14582   t13863 = -0.3e1 / 0.2e1 * t13831 * t2045 + 0.20e2 * t13835 - 0.10e2 * t13838 - 0.5e1 * t13840 - t13844 + t13845 - 0.144e3 * t13599 - 0.72e2 * t13601 - 0.72e2 * t13597 + t13855 * t86 + t13853 + t13854 + t13852 - 0.10e2 * t13858 + 0.10e2 * t78 * t13547 * t81;
14583   t13864 = t13830 + t13863;
14584   t13867 = 0.48e2 * t13547 * t547 + 0.48e2 * t1377 * t7396 + 0.48e2 * t1377 * t9068 + 0.96e2 * t1377 * t9071 + 0.96e2 * t13795 * t519 + 0.24e2 * t13864 * t83 + 0.48e2 * t1415 * t1987 + 0.48e2 * t1981 * t4365 + 0.96e2 * t2028 * t4362 + 0.96e2 * t2855 * t4362;
14585   t13868 = t13867 * t120;
14586   t13871 = t4405 * t575;
14587   t13874 = t1418 * t1896;
14588   t13877 = t4356 * t506;
14589   t13880 = t1372 * t1911;
14590   t13883 = -0.14e2 / 0.81e2 * t7569 * t1425 - 0.28e2 / 0.81e2 * t2071 * t4511 - 0.14e2 / 0.81e2 * t579 * t13762 + 0.10234655004115226338e-1 * t4504 * t1929 + 0.98e2 / 0.405e3 * t4517 * t1929 + 0.25744503209876543210e0 * t1462 * t1918 - 0.14042456296296296297e0 * t622 * t4418 - 0.97472904801097393690e-1 * t13773 * t124 + 0.18276169650205761317e-1 * t13776 * t124 + 0.26329605555555555556e-1 * t2150 * t1466 + 0.35e2 / 0.81e2 * t13868 * t124 + 0.70e2 / 0.81e2 * t13871 * t124 + 0.35e2 / 0.81e2 * t13874 * t124 + 0.12e2 / 0.25e2 * t1934 * t13877 + 0.6e1 / 0.25e2 * t1934 * t13880;
14591   t13885 = t13418 * t123;
14592   t13890 = t581 * t13541;
14593   t13891 = t52 * t13890;
14594   t13896 = t497 * t4565;
14595   t13901 = t1372 * t1882;
14596   t13940 = t525 * t13547;
14597   t13943 = t2006 * t4362;
14598   t13948 = t7499 * t1377;
14599   t13960 = 0.15e2 / 0.2e1 * t13835 - 0.4e1 * t13838 - t13844 - 0.2e1 * t13840 + t13940 * t86 / 0.2e1 + t13943 * t557 / 0.2e1 + t4538 * t2048 / 0.4e1 + t13948 * t2045 / 0.8e1 - 0.4e1 * t8842 * t1377 - 0.8e1 * t2836 * t4362 - t2143 * t1407 - 0.2e1 * t615 * t4386 - 0.4e1 * t529 * t13547 - t13858;
14600   t13963 = 0.7e1 / 0.2e1 * t2007 * t1407 - t8794 * t1407 / 0.2e1 - t8797 * t1407 / 0.4e1 - t2814 * t4386 - 0.6e1 * t13694 + 0.4e1 * t1991 * t13599 + 0.2e1 * t1991 * t13597 - t521 * t13547 + 0.2e1 * t13547 * t90 + 0.4e1 * t4362 * t534 + 0.2e1 * t1377 * t2018 + 0.2e1 * t1981 * t1389 + 0.4e1 * t519 * t4546 + 0.2e1 * t77 * t13960;
14601   t13966 = -0.8e1 / 0.3e1 * t13547 * t93 - 0.16e2 / 0.3e1 * t4362 * t537 - 0.8e1 / 0.3e1 * t1377 * t2021 - 0.8e1 / 0.3e1 * t1981 * t1392 - 0.16e2 / 0.3e1 * t519 * t4549 - 0.8e1 / 0.3e1 * t77 * t13963;
14602   t13968 = t4558 * t13877;
14603   t13971 = t4558 * t13880;
14604   t13974 = t496 * t1881;
14605   t13975 = t13974 * t4554;
14606   t13978 = t622 * t212;
14607   t13981 = t51 * t7573;
14608   t13982 = t13981 * t13901;
14609   t13987 = t112 * t1893;
14610   t13990 = 0.25744503209876543210e0 * t155 * t13885 - 0.21063684444444444444e-1 * t623 * t4566 - 0.10531842222222222222e-1 * t156 * t13891 - 0.10531842222222222222e-1 * t2151 * t1470 + 0.56169825185185185184e-1 * t156 * t13896 + 0.56169825185185185184e-1 * t623 * t4562 - 0.66e2 / 0.125e3 * t7820 * t13901 + t13966 * t98 + 0.29489158222222222222e-1 * t4557 * t13968 + 0.14744579111111111111e-1 * t4557 * t13971 - 0.78637755259259259258e-1 * t4557 * t13975 + 0.29489158222222222222e-1 * t13978 * t4559 - 0.35386989866666666666e-1 * t4557 * t13982 + 0.12e2 / 0.25e2 * t7734 * t4554 + 0.17870032546867855510e0 * t13987 * t124;
14611   t13991 = t1395 * t1933;
14612   t14002 = t4552 * t543;
14613   t14005 = t1894 * t1469;
14614   t14008 = t7574 * t13901;
14615   t14017 = t1928 * t13877;
14616   t14020 = t1928 * t13880;
14617   t14029 = 0.6e1 / 0.25e2 * t13991 * t1882 - t4580 * t1911 / 0.5e1 - t7566 * t1372 / 0.5e1 - 0.2e1 / 0.5e1 * t1900 * t4356 - t544 * t13541 / 0.5e1 - 0.2e1 / 0.5e1 * t14002 * t506 - 0.10297801283950617284e0 * t156 * t14005 - 0.392e3 / 0.675e3 * t579 * t14008 + 0.14744579111111111111e-1 * t1462 * t1884 + 0.196e3 / 0.405e3 * t2068 * t4573 + 0.196e3 / 0.405e3 * t2071 * t4573 + 0.196e3 / 0.405e3 * t579 * t14017 + 0.98e2 / 0.405e3 * t579 * t14020 - 0.10531842222222222222e-1 * t1462 * t1915 + 0.56169825185185185185e-1 * t1462 * t1921 - 0.21063684444444444444e-1 * t4497 * t630;
14618   t14031 = t13757 + t13883 + t13990 + t14029;
14619   t14033 = t1477 * t2299;
14620   t14035 = t13314 * t207;
14621   t14037 = t4596 * t701;
14622   t14040 = t638 * t4643 / 0.5e1 + t2300 * t1496 / 0.10e2 + 0.2e1 * t474 * t4584 + t1853 * t1473 - 0.6e1 * t478 * t13481 - 0.6e1 * t6983 * t1364 + t1362 * t2154 + t13249 * t160 + 0.2e1 * t4308 * t633 + t33 * t14031 + t14033 * t230 + t14035 * t230 + 0.2e1 * t14037 * t230;
14623   t14044 = t1512 * t25;
14624   t14045 = t14044 * t1839;
14625   t14050 = -0.24e2 * t13261 * t4303 - 0.24e2 * t4660 * t13242 - 0.12e2 * t4660 * t13244 + t1853 * t1512 - 0.9e1 / 0.50e2 * t2394 * t13269 + t13272 * t731 / 0.5e1 + t4690 * t2341 / 0.10e2 + t13314 * t230 - p->cam_beta * (t13349 + t13385 + t13473 + t14040) - 0.12e2 * t478 * t14045 - 0.12e2 * t4310 * t2361;
14626   t14053 = t1495 * t2306;
14627   t14060 = t7819 * t1372;
14628   t14063 = t1933 * t4356;
14629   t14071 = t46 * t1893 * t123;
14630   t14093 = -0.66e2 / 0.125e3 * t14060 * t1882 + 0.12e2 / 0.25e2 * t14063 * t506 + 0.6e1 / 0.25e2 * t4671 * t1911 - t543 * t13541 / 0.5e1 + 0.43614535756744398721e0 * t14071 + 0.95158987105624142663e-1 * t46 * t13730 + 0.24979234115226337449e-1 * t46 * t13726 - 0.17842310082304526749e-1 * t46 * t13735 - 0.14e2 / 0.45e2 * t7875 * t1372 + 0.196e3 / 0.225e3 * t7878 * t4554 - 0.28e2 / 0.45e2 * t2380 * t4356 - 0.392e3 / 0.375e3 * t7883 * t13901 + 0.196e3 / 0.225e3 * t2383 * t13877 + 0.98e2 / 0.225e3 * t2383 * t13880 - 0.14e2 / 0.45e2 * t753 * t13541;
14631   t14097 = t1855 * t244;
14632   t14100 = t4687 * t26;
14633   t14101 = t14100 * t468;
14634   t14106 = t6986 * t244;
14635   t14109 = t1862 * t756;
14636   t14114 = t759 * t13446 / 0.10e2 + 0.171e3 / 0.1000e4 * t7915 * t14053 + t7854 * t1495 / 0.10e2 + t2391 * t4642 / 0.5e1 + t33 * t14093 + 0.324e3 * t4654 * t13297 - 0.24e2 * t14097 * t4303 - 0.12e2 * t478 * t14101 - 0.12e2 * t13277 * t739 + 0.108e3 * t14106 * t4318 + 0.108e3 * t14109 * t4318 + 0.108e3 * t4654 * t13301;
14637   t14116 = t13212 + t13259 + t14050 + t14114;
14638   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14639     v3rho2sigma[0] = -0.4e1 / 0.3e1 * t13164 - t13168 - t13170 - t1352 * t2753 * t13171 / 0.6e1 - t1352 * t2774 * t13175 - t1352 * t2774 * t13178 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * t14116;
14640 
14641   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14642     v3rho2sigma[1] = 0.0e0;
14643 
14644   t14121 = t8 * t766 * t4707;
14645   t14125 = t8 * t772 * t1685 / 0.6e1;
14646   t14127 = t8 * t254 * t4902;
14647   t14128 = t1685 * t2406;
14648   t14132 = t4 * t7;
14649   t14133 = t1351 * t14132;
14650   t14134 = t252 * p->cam_beta;
14651   t14135 = t4901 * t767;
14652   t14138 = t1685 * t2421;
14653   t14143 = t9497 * t1524;
14654   t14148 = t490 * t9504 * t1541 / 0.405e3;
14655   t14150 = t490 * t3165 * t4718;
14656   t14152 = t2442 * t1540;
14657   t14153 = t14152 * t2443;
14658   t14157 = t4717 * t2448;
14659   t14162 = my_piecewise3(t295, 0, -t14148 - t14150 / 0.810e3 - t490 * t1109 * t14153 / 0.405e3 + t490 * t1109 * t14157 / 0.540e3);
14660   t14180 = t2460 * t1545;
14661   t14181 = t8039 * t14180;
14662   t14183 = t787 * t4723;
14663   t14186 = t2454 * t1545;
14664   t14200 = t2459 * t1545;
14665   t14201 = t14200 * t2518;
14666   t14203 = t2472 * t4723;
14667   t14204 = t14203 * t820;
14668   t14206 = t8058 * t1545;
14669   t14208 = 0.5e1 / 0.2e1 * t14206 * t2518;
14670   t14209 = t4739 * t2521;
14671   t14211 = t793 * t14162;
14672   t14214 = t2479 * t4723;
14673   t14219 = t8068 * t1545;
14674   t14231 = t297 * t14162;
14675   t14232 = t14231 * t304;
14676   t14233 = 0.15e2 / 0.2e1 * t14201 - 0.4e1 * t14204 - t14208 - 0.2e1 * t14209 + t14211 * t304 / 0.2e1 + t14214 * t820 / 0.2e1 + t4745 * t2521 / 0.4e1 + t14219 * t2518 / 0.8e1 - 0.4e1 * t9610 * t1545 - 0.8e1 * t3214 * t4723 - t2607 * t1575 - 0.2e1 * t864 * t4791 - 0.4e1 * t797 * t14162 - t14232;
14677   t14236 = 0.7e1 / 0.2e1 * t2480 * t1575 - t9562 * t1575 / 0.2e1 - t9565 * t1575 / 0.4e1 - t3192 * t4791 - 0.6e1 * t14181 + 0.4e1 * t2464 * t14183 + 0.2e1 * t2464 * t14186 - t789 * t14162 + 0.2e1 * t14162 * t308 + 0.4e1 * t4723 * t802 + 0.2e1 * t1545 * t2491 + 0.2e1 * t2454 * t1557 + 0.4e1 * t787 * t4755 + 0.2e1 * t296 * t14233;
14678   t14239 = -0.8e1 / 0.3e1 * t14162 * t311 - 0.16e2 / 0.3e1 * t4723 * t805 - 0.8e1 / 0.3e1 * t1545 * t2494 - 0.8e1 / 0.3e1 * t2454 * t1560 - 0.16e2 / 0.3e1 * t787 * t4758 - 0.8e1 / 0.3e1 * t296 * t14236;
14679   t14257 = t296 * t4803;
14680   t14262 = t14162 * t304;
14681   t14265 = t4781 * t793;
14682   t14269 = t1573 * t2479;
14683   t14275 = t1573 * t2472;
14684   t14278 = t344 * t14162;
14685   t14279 = 0.256e3 * t14278;
14686   t14282 = t296 * t14162;
14687   t14284 = t1569 * t2460;
14688   t14285 = 0.1536e4 * t14284;
14689   t14286 = t4821 * t787;
14690   t14287 = 0.1536e4 * t14286;
14691   t14288 = t1598 * t2454;
14692   t14289 = 0.768e3 * t14288;
14693   t14290 = 0.40e2 * t14186 + 0.80e2 * t14183 + 0.40e2 * t14282 - t14285 - t14287 - t14289 - t14279;
14694   t14295 = t819 * t14262 / 0.2e1 + t14265 * t820 + t4783 * t2521 / 0.2e1 + t14269 * t2518 / 0.4e1 + t8112 * t1575 / 0.2e1 + t2515 * t4791 - 0.3e1 / 0.2e1 * t14275 * t2518 + t14279 + t14290 * t304 - 0.72e2 * t14186 - 0.144e3 * t14183 - 0.72e2 * t14282 + t14285 + t14287 + t14289;
14695   t14303 = t1575 * t2460;
14696   t14306 = t14186 * t304;
14697   t14315 = t4791 * t787;
14698   t14324 = 0.10e2 * t78 * t14162 * t299 - 0.10e2 * t14232 + 0.20e2 * t14201 - 0.10e2 * t14204 - t14208 - 0.5e1 * t14209 + 0.6e1 * t8140 * t14303 + t2524 * t14306 / 0.4e1 + t8127 * t14303 / 0.8e1 - 0.3e1 * t8137 * t4788 + t8117 * t4788 / 0.2e1 - 0.3e1 * t2517 * t14315 - 0.3e1 / 0.2e1 * t2517 * t14306 - 0.9e1 / 0.4e1 * t8120 * t14303 + t2524 * t14315 / 0.2e1;
14699   t14325 = t14295 + t14324;
14700   t14328 = 0.48e2 * t14162 * t810 + 0.96e2 * t14257 * t787 + 0.24e2 * t14325 * t301 + 0.48e2 * t1545 * t8092 + 0.48e2 * t1545 * t9633 + 0.96e2 * t1545 * t9636 + 0.48e2 * t1583 * t2460 + 0.48e2 * t2454 * t4771 + 0.96e2 * t2501 * t4723 + 0.96e2 * t3233 * t4723;
14701   t14329 = t14328 * t336;
14702   t14332 = t2537 * t274;
14703   t14355 = t14162 * t299;
14704   t14358 = t1606 * t2472;
14705   t14368 = t4836 * t793;
14706   t14373 = t1606 * t2479;
14707   t14387 = t296 * t1616;
14708   t14394 = t4838 * t2521 / 0.2e1 + t14373 * t2518 / 0.4e1 + t8243 * t1575 / 0.2e1 + t2564 * t4791 + t847 * t14262 / 0.2e1 + 0.288e3 * t8260 * t4729 + 0.288e3 * t2574 * t14183 + 0.144e3 * t9869 * t1545 + 0.144e3 * t14387 * t2460 + 0.72e2 * t8263 * t1545 + 0.144e3 * t2577 * t4723;
14709   t14398 = t301 * t4866;
14710   t14409 = t301 * t14162;
14711   t14417 = t319 * t14162;
14712   t14429 = t348 * t4723;
14713   t14436 = -0.1105920e7 * t14162 * t350 + 0.26943e5 * t14162 * t357 - 0.17694720e8 * t14429 * t787 + 0.1536e4 * t1569 * t2454 - 0.11520e5 * t1571 * t2454 - 0.34560e5 * t1598 * t2460 + 0.808290e6 * t1600 * t2460 - 0.61931520e8 * t1602 * t2460 + 0.161658e6 * t1614 * t2454 - 0.8847360e7 * t2454 * t4831 + 0.3072e4 * t4775 * t787 - 0.23040e5 * t4779 * t787 + 0.323316e6 * t4864 * t787 - 0.8e1 * t14162 + 0.1536e4 * t14180 + 0.768e3 * t14409 - 0.2880e4 * t14417;
14714   t14451 = t346 * t14162;
14715   t14453 = 0.614400e6 * t1571 * t2460 + 0.153600e6 * t1600 * t2454 + 0.307200e6 * t4825 * t787 + 0.896e3 * t14183 + 0.448e3 * t14186 - 0.5760e4 * t14278 + 0.448e3 * t14282 - 0.34560e5 * t14284 - 0.34560e5 * t14286 - 0.17280e5 * t14288 + 0.30720e5 * t14451;
14716   t14466 = 0.72e2 * t850 * t14162 + 0.144e3 * t14398 * t787 + 0.72e2 * t4855 * t2454 + t14436 * t304 + 0.24e2 * t344 * t14453 - 0.360e3 * t14181 - 0.3e1 * t8249 * t4788 + t8219 * t4788 / 0.2e1 - t2602 * t14306 - 0.2e1 * t2602 * t14315 - t8240 * t14303 / 0.2e1;
14717   t14492 = 0.8e1 * t863 * t4742 * t787 + 0.4e1 * t863 * t1550 * t2454 - 0.3e1 * t2566 * t14315 - 0.3e1 / 0.2e1 * t2566 * t14306 - 0.9e1 / 0.4e1 * t8222 * t14303 + t2571 * t14315 / 0.2e1 + t2571 * t14306 / 0.4e1 + t8227 * t14303 / 0.8e1 + 0.6e1 * t8252 * t14303 + 0.7e1 * t8255 * t14303 - 0.12e2 * t863 * t4739 * t2460;
14718   t14494 = 0.144e3 * t2574 * t14186 + 0.240e3 * t2529 * t1619 + 0.480e3 * t824 * t4871 + 0.720e3 * t14180 * t789 + 0.240e3 * t324 * t14355 - 0.3e1 / 0.2e1 * t14358 * t2518 - 0.960e3 * t4753 * t820 - 0.480e3 * t1555 * t2521 - 0.2e1 * t863 * t302 * t14162 + t14368 * t820 + t14394 + t14466 + t14492;
14719   t14498 = (0.8e1 / 0.7e1 * t14162 * t367 + 0.16e2 / 0.7e1 * t4723 * t867 + 0.8e1 / 0.7e1 * t1545 * t2610 + 0.8e1 / 0.7e1 * t2454 * t1625 + 0.16e2 / 0.7e1 * t787 * t4883 + 0.8e1 / 0.7e1 * t296 * t14494) * t41;
14720   t14499 = t14498 * t45;
14721   t14506 = t14239 * t316 - t9630 * t1540 / 0.5e1 + 0.35e2 / 0.81e2 * t14329 * t340 + 0.18276169650205761317e-1 * t14332 * t340 - 0.14e2 / 0.81e2 * t9727 * t1593 + 0.26329605555555555556e-1 * t14499 * t373 + 0.26329605555555555556e-1 * t2614 * t1634 - 0.10531842222222222222e-1 * t2615 * t1638;
14722   t14508 = t1645 * t2743;
14723   t14512 = t1530 * t2618 - 0.6e1 * t1101 * t14143 + t269 * t14506 + t14508 * t428 + t2744 * t1664 / 0.10e2;
14724   t14513 = p->cam_beta * t14512;
14725   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14726     v3rho2sigma[2] = -0.4e1 / 0.3e1 * t14121 - t14125 + t14127 - t1352 * t3131 * t14128 / 0.6e1 + t14133 * t14134 * t14135 - t1352 * t2415 * t14138 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * t14513;
14727 
14728   t14519 = t17 * t2;
14729   t14520 = t14519 * t4;
14730   t14521 = t14520 * t4907;
14731   t14523 = t1810 * t1517;
14732   t14524 = t14523 * t2756;
14733   t14528 = t2774 * t4700 * t944;
14734   t14531 = t673 * t2;
14735   t14532 = t14531 * t4;
14736   t14534 = t2774 * t1517 * t9;
14737   t14537 = t14520 * t5095;
14738   t14539 = t15 * p->cam_beta;
14739   t14541 = t14539 * t5093 * t455;
14740   t14550 = t1862 * t1034;
14741   t14553 = t8705 * t1356;
14742   t14556 = t478 * t1034;
14743   t14559 = t2784 * t4300;
14744   t14563 = t5087 * t26;
14745   t14564 = t14563 * t468;
14746   t14581 = t490 * t1943 * t4914;
14747   t14583 = t1372 * t943;
14748   t14585 = t13511 * t14583 * t506;
14749   t14589 = t8735 * t14583 * t454;
14750   t14592 = t13529 * t943;
14751   t14596 = t4346 * t9;
14752   t14601 = my_piecewise3(t76, 0, -t13497 - 0.11e2 / 0.5400e4 * t13499 - t13502 / 0.1620e4 + t13505 / 0.540e3 - t14581 / 0.1620e4 - 0.11e2 / 0.5400e4 * t5889 * t14585 - t5889 * t14589 / 0.405e3 + t490 * t493 * t14592 / 0.540e3 + t490 * t8759 * t14596 / 0.270e3);
14753   t14609 = t5030 * t525;
14754   t14619 = t14601 * t81;
14755   t14634 = t954 * t4362;
14756   t14637 = t2810 * t1377;
14757   t14642 = t14609 * t557 / 0.2e1 + t13676 * t982 / 0.2e1 - 0.2e1 * t614 * t84 * t14601 + 0.240e3 * t561 * t5063 + 0.240e3 * t106 * t14619 - 0.480e3 * t4949 * t557 - 0.480e3 * t4396 * t982 - 0.480e3 * t1387 * t2882 + 0.240e3 * t2889 * t1451 + 0.240e3 * t986 * t4480 + 0.144e3 * t13711 * t2817 + 0.144e3 * t2110 * t14634 + 0.144e3 * t2110 * t14637 + 0.144e3 * t8954 * t4368;
14758   t14643 = t519 * t4919;
14759   t14648 = t14601 * t86;
14760   t14661 = t7682 * t1377;
14761   t14664 = t7667 * t1377;
14762   t14667 = t7655 * t1377;
14763   t14670 = t7673 * t954;
14764   t14673 = t7644 * t954;
14765   t14676 = t614 * t1999;
14766   t14677 = t4368 * t954;
14767   t14680 = 0.144e3 * t2110 * t14643 + t2100 * t4986 / 0.2e1 + t598 * t14648 / 0.2e1 + 0.144e3 * t11338 * t4926 + 0.144e3 * t7634 * t4926 + t2930 * t4386 / 0.2e1 + t4447 * t2882 / 0.2e1 + t8906 * t1407 / 0.2e1 + 0.6e1 * t14661 * t2879 - 0.9e1 / 0.4e1 * t14664 * t2879 + t14667 * t2879 / 0.8e1 + 0.7e1 * t14670 * t4383 - t14673 * t4383 / 0.2e1 - 0.12e2 * t14676 * t14677;
14768   t14685 = t77 * t14601;
14769   t14687 = t1401 * t2817;
14770   t14689 = t4430 * t954;
14771   t14691 = t1430 * t2810;
14772   t14693 = t5016 * t519;
14773   t14695 = t128 * t14601;
14774   t14705 = t130 * t14601;
14775   t14707 = 0.614400e6 * t1403 * t2817 + 0.153600e6 * t1432 * t2810 + 0.153600e6 * t4434 * t954 + 0.153600e6 * t5020 * t519 + 0.448e3 * t14634 + 0.448e3 * t14637 + 0.448e3 * t14643 + 0.448e3 * t14685 - 0.34560e5 * t14687 - 0.17280e5 * t14689 - 0.17280e5 * t14691 - 0.17280e5 * t14693 - 0.5760e4 * t14695 + 0.30720e5 * t14705;
14776   t14718 = t83 * t14601;
14777   t14729 = t101 * t14601;
14778   t14747 = t132 * t4919;
14779   t14752 = -0.1105920e7 * t134 * t14601 - 0.8847360e7 * t13648 * t954 + 0.26943e5 * t141 * t14601 + 0.808290e6 * t1432 * t2817 - 0.61931520e8 * t1434 * t2817 + 0.161658e6 * t1446 * t2810 - 0.8847360e7 * t14747 * t519 - 0.8847360e7 * t2810 * t4440 + 0.161658e6 * t4473 * t954 + 0.161658e6 * t5056 * t519 - 0.2880e4 * t14729;
14780   t14753 = 0.1536e4 * t1401 * t2810 - 0.11520e5 * t1403 * t2810 - 0.34560e5 * t1430 * t2817 + 0.1536e4 * t4370 * t954 - 0.11520e5 * t4374 * t954 + 0.1536e4 * t4971 * t519 - 0.11520e5 * t4975 * t519 - 0.8e1 * t14601 + 0.1536e4 * t14677 + 0.768e3 * t14718 + t14752;
14781   t14755 = t1407 * t2810;
14782   t14758 = t4986 * t519;
14783   t14765 = t14634 * t86;
14784   t14770 = t7699 * t14677;
14785   t14783 = 0.24e2 * t128 * t14707 + t14753 * t86 - 0.3e1 / 0.2e1 * t2102 * t14755 - 0.3e1 / 0.2e1 * t2102 * t14758 + t2107 * t14758 / 0.4e1 + t7664 * t4983 / 0.4e1 + t2107 * t14765 / 0.4e1 + t2107 * t14755 / 0.4e1 - 0.360e3 * t14770 - t2138 * t14755 - t2138 * t14765 + 0.4e1 * t614 * t4535 * t954 + 0.4e1 * t614 * t1382 * t2810 + 0.4e1 * t614 * t4938 * t519;
14786   t14796 = t83 * t5058;
14787   t14814 = -0.3e1 / 0.2e1 * t13678 * t2879 + t13671 * t2879 / 0.4e1 - 0.3e1 / 0.2e1 * t8910 * t4383 + t8901 * t4383 / 0.4e1 - 0.3e1 / 0.2e1 * t7679 * t4983 - 0.3e1 / 0.2e1 * t2102 * t14765 + 0.72e2 * t14796 * t519 + 0.72e2 * t2947 * t4362 + 0.72e2 * t2113 * t4919 + 0.72e2 * t601 * t14601 + 0.72e2 * t13704 * t954 + 0.72e2 * t4464 * t2810 + 0.72e2 * t8960 * t1377 - t2138 * t14758 + 0.720e3 * t4926 * t522;
14788   t14816 = t14642 + t14680 + t14783 + t14814;
14789   t14820 = (0.8e1 / 0.7e1 * t4362 * t1026 + 0.8e1 / 0.7e1 * t1377 * t2975 + 0.8e1 / 0.7e1 * t2810 * t1457 + 0.8e1 / 0.7e1 * t14601 * t151 + 0.8e1 / 0.7e1 * t77 * t14816 + 0.8e1 / 0.7e1 * t954 * t4492 + 0.8e1 / 0.7e1 * t4919 * t618 + 0.8e1 / 0.7e1 * t519 * t5075) * t41;
14790   t14821 = t14820 * t45;
14791   t14824 = t5002 * t41;
14792   t14831 = t5005 * t41;
14793   t14834 = t2810 * t109;
14794   t14837 = t954 * t565;
14795   t14854 = t519 * t1415;
14796   t14861 = t77 * t4998;
14797   t14870 = t4977 * t525;
14798   t14879 = 0.1536e4 * t14687;
14799   t14902 = t2874 * t4386 / 0.2e1 + t2042 * t4986 / 0.2e1 + t556 * t14648 / 0.2e1 + t14870 * t557 / 0.2e1 + t13828 * t982 / 0.2e1 + t4378 * t2882 / 0.2e1 + t9100 * t1407 / 0.2e1 + t14879 - 0.3e1 / 0.2e1 * t13831 * t2879 + t13822 * t2879 / 0.4e1 - 0.3e1 / 0.2e1 * t9094 * t4383 + t9089 * t4383 / 0.4e1 - 0.3e1 / 0.2e1 * t7535 * t4983 - 0.3e1 / 0.2e1 * t2044 * t14765 - 0.3e1 / 0.2e1 * t2044 * t14755 - 0.3e1 / 0.2e1 * t2044 * t14758 + t2051 * t14758 / 0.4e1 + t7516 * t4983 / 0.4e1 + t2051 * t14765 / 0.4e1;
14800   t14912 = 0.256e3 * t14695;
14801   t14917 = 0.768e3 * t14689;
14802   t14918 = 0.768e3 * t14691;
14803   t14919 = 0.768e3 * t14693;
14804   t14920 = 0.40e2 * t14637 + 0.40e2 * t14634 + 0.40e2 * t14643 + 0.40e2 * t14685 - t14879 - t14917 - t14918 - t14919 - t14912;
14805   t14922 = t79 * t14601;
14806   t14923 = t14922 * t86;
14807   t14925 = t7538 * t1377;
14808   t14928 = t7505 * t1377;
14809   t14931 = t7500 * t1377;
14810   t14934 = t13834 * t2879;
14811   t14937 = 0.5e1 / 0.2e1 * t13842 * t2879;
14812   t14938 = t4399 * t2882;
14813   t14940 = t1999 * t4919;
14814   t14941 = t14940 * t557;
14815   t14943 = t13837 * t982;
14816   t14945 = t2051 * t14755 / 0.4e1 + 0.10e2 * t78 * t14601 * t81 - 0.72e2 * t14637 - 0.72e2 * t14634 - 0.72e2 * t14643 - 0.72e2 * t14685 + t14912 + t14920 * t86 + t14917 + t14918 + t14919 - 0.10e2 * t14923 + 0.6e1 * t14925 * t2879 - 0.9e1 / 0.4e1 * t14928 * t2879 + t14931 * t2879 / 0.8e1 + 0.20e2 * t14934 - t14937 - 0.5e1 * t14938 - 0.5e1 * t14941 - 0.5e1 * t14943;
14817   t14946 = t14902 + t14945;
14818   t14949 = 0.48e2 * t11226 * t1377 + 0.48e2 * t1377 * t14834 + 0.48e2 * t1377 * t14837 + 0.48e2 * t1377 * t9084 + 0.48e2 * t13795 * t954 + 0.48e2 * t14601 * t547 + 0.48e2 * t14854 * t954 + 0.48e2 * t14861 * t519 + 0.24e2 * t14946 * t83 + 0.48e2 * t2028 * t4919 + 0.48e2 * t2810 * t4365 + 0.48e2 * t2855 * t4919 + 0.48e2 * t2862 * t4362 + 0.48e2 * t4362 * t4961;
14819   t14950 = t14949 * t120;
14820   t14955 = -0.10531842222222222222e-1 * t1031 * t4566 - 0.10531842222222222222e-1 * t2980 * t1470 - 0.10531842222222222222e-1 * t5080 * t630 + 0.98e2 / 0.405e3 * t2904 * t4573 + 0.6e1 / 0.25e2 * t9047 * t4554 + 0.26329605555555555556e-1 * t14821 * t157 - 0.14e2 / 0.81e2 * t14824 * t583 - 0.70212281481481481483e-1 * t5080 * t626 - 0.10531842222222222222e-1 * t1031 * t4501 - 0.73104678600823045268e-2 * t14831 * t583 + 0.35e2 / 0.81e2 * t14950 * t124 - t2852 * t4356 / 0.5e1;
14821   t14956 = t4957 * t543;
14822   t14961 = t2897 * t51;
14823   t14975 = t1986 * t2810;
14824   t14978 = t7643 * t954;
14825   t15011 = t525 * t14601;
14826   t15014 = t2006 * t4919;
14827   t15023 = t2810 * t87;
14828   t15035 = 0.15e2 / 0.2e1 * t14934 - 0.2e1 * t14943 - t14937 - 0.2e1 * t14938 - 0.2e1 * t14941 + t15011 * t86 / 0.2e1 + t15014 * t557 / 0.4e1 + t13943 * t982 / 0.4e1 + t4538 * t2882 / 0.4e1 + t13948 * t2879 / 0.8e1 - 0.4e1 * t15023 * t1377 - 0.4e1 * t4943 * t4362 - t2972 * t1407 - t1023 * t4386 - 0.4e1 * t2836 * t4919 - t615 * t4986 - 0.4e1 * t529 * t14601 - t14923;
14829   t15038 = 0.7e1 / 0.2e1 * t2833 * t4383 - t14975 * t1407 / 0.2e1 - t14978 * t4383 / 0.4e1 - t4923 * t4386 / 0.2e1 - 0.6e1 * t14770 + 0.2e1 * t1991 * t14634 + 0.2e1 * t1991 * t14637 - t2814 * t4986 / 0.2e1 + 0.2e1 * t1991 * t14643 - t521 * t14601 + 0.2e1 * t14601 * t90 + 0.2e1 * t4919 * t534 + 0.2e1 * t4362 * t966 + 0.2e1 * t1377 * t2844 + 0.2e1 * t2810 * t1389 + 0.2e1 * t954 * t4546 + 0.2e1 * t519 * t4951 + 0.2e1 * t77 * t15035;
14830   t15041 = -0.8e1 / 0.3e1 * t1377 * t2847 - 0.8e1 / 0.3e1 * t2810 * t1392 - 0.8e1 / 0.3e1 * t14601 * t93 - 0.8e1 / 0.3e1 * t77 * t15038 - 0.8e1 / 0.3e1 * t4362 * t969 - 0.8e1 / 0.3e1 * t954 * t4549 - 0.8e1 / 0.3e1 * t4919 * t537 - 0.8e1 / 0.3e1 * t519 * t4954;
14831   t15043 = t5001 * t575;
14832   t15048 = t993 * t496;
14833   t15053 = t1030 * t212;
14834   t15062 = -t14956 * t506 / 0.5e1 - t8718 * t1372 / 0.5e1 + 0.18276169650205761317e-1 * t14961 * t124 + 0.26329605555555555556e-1 * t2979 * t1466 + t15041 * t98 + 0.35e2 / 0.81e2 * t15043 * t124 - 0.70212281481481481483e-1 * t1030 * t4418 - 0.48736452400548696845e-1 * t15048 * t124 + 0.28084912592592592592e-1 * t1031 * t4562 + 0.14744579111111111111e-1 * t15053 * t4559 - 0.14e2 / 0.81e2 * t9039 * t1425 - 0.14e2 / 0.81e2 * t9042 * t1425 - 0.14e2 / 0.81e2 * t2904 * t4511;
14835   t15063 = t14955 + t15062;
14836   t15065 = t4596 * t1074;
14837   t15067 = t1477 * t3121;
14838   t15079 = t4308 * t1034 - 0.6e1 * t4310 * t2785 + t1362 * t2987 - 0.6e1 * t1855 * t4911 + 0.54e2 * t14550 * t4318 - 0.6e1 * t478 * t14553 - 0.12e2 * t14556 * t4303 - 0.6e1 * t478 * t14559 + t474 * t5087 - 0.6e1 * t478 * t14564 + t33 * t15063 + t15065 * t230 + t15067 * t230 + t5089 * t732 / 0.10e2 + t2989 * t1496 / 0.10e2 + t3122 * t1496 / 0.10e2 - 0.9e1 / 0.100e3 * t1075 * t4608 + t1075 * t4643 / 0.10e2;
14839   t15081 = t1353 * p->cam_beta * t15079;
14840   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14841     v3rho2sigma[3] = -0.2e1 / 0.3e1 * t13164 - t13168 - t13170 / 0.2e1 - 0.2e1 / 0.3e1 * t14521 - t14133 * t14524 / 0.6e1 - t1352 * t14528 / 0.2e1 - t14532 * t14534 / 0.2e1 + t14537 / 0.2e1 + t14133 * t14541 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t15081;
14842 
14843   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14844     v3rho2sigma[4] = 0.0e0;
14845 
14846   t15086 = t14520 * t5099;
14847   t15088 = t2404 * t1685;
14848   t15089 = t15088 * t3134;
14849   t15092 = t4901 * t1082;
14850   t15093 = t14134 * t15092;
14851   t15097 = t2415 * t1685 * t9;
14852   t15100 = t14520 * t5500;
14853   t15103 = t2415 * t5499 * t767;
14854   t15112 = t3817 * t875;
14855   t15115 = t10331 * t1524;
14856   t15118 = t1101 * t875;
14857   t15121 = t3160 * t5106;
14858   t15125 = t4895 * t262;
14859   t15126 = t15125 * t1091;
14860   t15129 = t3188 * t327;
14861   t15132 = t1133 * t828;
14862   t15149 = t490 * t10366 * t5152;
14863   t15151 = t3881 * t780;
14864   t15153 = t15151 * t5325 * t781;
14865   t15157 = t490 * t3165 * t5156;
14866   t15159 = t1540 * t1127;
14867   t15161 = t10378 * t15159 * t781;
14868   t15164 = t4717 * t9;
14869   t15169 = t490 * t3165 * t5166;
14870   t15171 = t780 * t5165;
14871   t15172 = t15171 * t781;
14872   t15177 = my_piecewise3(t295, 0, -t14148 - t14150 / 0.1620e4 - 0.11e2 / 0.5400e4 * t15149 - 0.11e2 / 0.5400e4 * t5889 * t15153 - t15157 / 0.1620e4 - t5889 * t15161 / 0.405e3 - t490 * t10384 * t15164 / 0.270e3 + t15169 / 0.540e3 + t490 * t1109 * t15172 / 0.540e3);
14873   t15180 = t787 * t1583;
14874   t15187 = t296 * t5208;
14875   t15192 = t4723 * t1133;
14876   t15193 = t15192 * t304;
14877   t15196 = t1545 * t3188;
14878   t15197 = t15196 * t304;
14879   t15214 = t5193 * t787;
14880   t15219 = t344 * t15177;
14881   t15220 = 0.256e3 * t15219;
14882   t15223 = t787 * t5171;
14883   t15225 = t296 * t15177;
14884   t15227 = t1569 * t3195;
14885   t15228 = 0.1536e4 * t15227;
14886   t15229 = t4821 * t1133;
14887   t15230 = 0.768e3 * t15229;
14888   t15231 = t1598 * t3188;
14889   t15232 = 0.768e3 * t15231;
14890   t15233 = t5246 * t787;
14891   t15234 = 0.768e3 * t15233;
14892   t15235 = 0.40e2 * t15196 + 0.40e2 * t15192 + 0.40e2 * t15223 + 0.40e2 * t15225 - t15228 - t15230 - t15232 - t15234 - t15220;
14893   t15241 = t5184 * t793;
14894   t15244 = t8117 * t5190 / 0.4e1 + t2524 * t15193 / 0.4e1 + t2524 * t15197 / 0.4e1 - 0.3e1 / 0.2e1 * t14275 * t3257 + t14269 * t3257 / 0.4e1 - 0.3e1 / 0.2e1 * t9713 * t4788 + t9704 * t4788 / 0.4e1 - 0.3e1 / 0.2e1 * t8137 * t5190 - 0.3e1 / 0.2e1 * t2517 * t15193 - 0.3e1 / 0.2e1 * t2517 * t15197 - 0.3e1 / 0.2e1 * t2517 * t15214 + t2524 * t15214 / 0.4e1 + t15220 + t15235 * t304 - 0.72e2 * t15196 - 0.72e2 * t15192 - 0.72e2 * t15223 - 0.72e2 * t15225 + t15241 * t820 / 0.2e1;
14895   t15255 = t15177 * t304;
14896   t15258 = t14200 * t3257;
14897   t15261 = 0.5e1 / 0.2e1 * t14206 * t3257;
14898   t15265 = t297 * t15177;
14899   t15266 = t15265 * t304;
14900   t15268 = t14203 * t1166;
14901   t15270 = t4739 * t3260;
14902   t15272 = t2472 * t5171;
14903   t15273 = t15272 * t820;
14904   t15275 = t8140 * t1545;
14905   t15278 = t8120 * t1545;
14906   t15281 = t8127 * t1545;
14907   t15284 = t14265 * t1166 / 0.2e1 + t4783 * t3260 / 0.2e1 + t9700 * t1575 / 0.2e1 + t3252 * t4791 / 0.2e1 + t2515 * t5193 / 0.2e1 + t819 * t15255 / 0.2e1 + t15228 + 0.20e2 * t15258 - t15261 + t15230 + t15232 + t15234 + 0.10e2 * t78 * t15177 * t299 - 0.10e2 * t15266 - 0.5e1 * t15268 - 0.5e1 * t15270 - 0.5e1 * t15273 + 0.6e1 * t15275 * t3257 - 0.9e1 / 0.4e1 * t15278 * t3257 + t15281 * t3257 / 0.8e1;
14908   t15285 = t15244 + t15284;
14909   t15288 = 0.48e2 * t10516 * t1545 + 0.48e2 * t1133 * t14257 + 0.48e2 * t1133 * t15180 + 0.48e2 * t15129 * t1545 + 0.48e2 * t15132 * t1545 + 0.48e2 * t15177 * t810 + 0.48e2 * t15187 * t787 + 0.24e2 * t15285 * t301 + 0.48e2 * t1545 * t9649 + 0.48e2 * t2501 * t5171 + 0.48e2 * t3188 * t4771 + 0.48e2 * t3233 * t5171 + 0.48e2 * t3240 * t4723 + 0.48e2 * t4723 * t5146;
14910   t15289 = t15288 * t336;
14911   t15296 = t4806 * t1184;
14912   t15299 = t3275 * t274;
14913   t15311 = t2459 * t3188;
14914   t15314 = t8035 * t1133;
14915   t15319 = t4729 * t1133;
14916   t15320 = t8039 * t15319;
14917   t15349 = t793 * t15177;
14918   t15352 = t2479 * t5171;
14919   t15361 = t3188 * t305;
14920   t15373 = 0.15e2 / 0.2e1 * t15258 - 0.2e1 * t15268 - t15261 - 0.2e1 * t15270 - 0.2e1 * t15273 + t15349 * t304 / 0.2e1 + t15352 * t820 / 0.4e1 + t14214 * t1166 / 0.4e1 + t4745 * t3260 / 0.4e1 + t14219 * t3257 / 0.8e1 - 0.4e1 * t15361 * t1545 - 0.4e1 * t5368 * t4723 - t3350 * t1575 - t1221 * t4791 - 0.4e1 * t3214 * t5171 - t864 * t5193 - 0.4e1 * t797 * t15177 - t15266;
14921   t15376 = 0.7e1 / 0.2e1 * t3211 * t4788 - t15311 * t1575 / 0.2e1 - t15314 * t4788 / 0.4e1 - t5350 * t4791 / 0.2e1 - 0.6e1 * t15320 + 0.2e1 * t2464 * t15192 + 0.2e1 * t2464 * t15196 - t3192 * t5193 / 0.2e1 + 0.2e1 * t2464 * t15223 - t789 * t15177 + 0.2e1 * t15177 * t308 + 0.2e1 * t5171 * t802 + 0.2e1 * t4723 * t1145 + 0.2e1 * t1545 * t3222 + 0.2e1 * t3188 * t1557 + 0.2e1 * t1133 * t4755 + 0.2e1 * t787 * t5374 + 0.2e1 * t296 * t15373;
14922   t15379 = -0.8e1 / 0.3e1 * t1133 * t4758 - 0.8e1 / 0.3e1 * t4723 * t1148 - 0.8e1 / 0.3e1 * t15177 * t311 - 0.8e1 / 0.3e1 * t296 * t15376 - 0.8e1 / 0.3e1 * t1545 * t3225 - 0.8e1 / 0.3e1 * t3188 * t1560 - 0.8e1 / 0.3e1 * t5171 * t805 - 0.8e1 / 0.3e1 * t787 * t5377;
14923   t15389 = t4807 * t41;
14924   t15394 = 0.35e2 / 0.81e2 * t15289 * t340 + 0.26329605555555555556e-1 * t3357 * t1634 - 0.70212281481481481483e-1 * t871 * t5222 + 0.35e2 / 0.81e2 * t15296 * t340 + 0.18276169650205761317e-1 * t15299 * t340 + t15379 * t316 - 0.14e2 / 0.81e2 * t10600 * t1593 - 0.14e2 / 0.81e2 * t10603 * t1593 - 0.14e2 / 0.81e2 * t3282 * t5236 - 0.10531842222222222222e-1 * t872 * t5314 - 0.14e2 / 0.81e2 * t15389 * t1192 - 0.70212281481481481483e-1 * t4888 * t1232;
14925   t15428 = t14373 * t3257 / 0.4e1 - 0.3e1 / 0.2e1 * t9775 * t4788 + t9745 * t4788 / 0.4e1 - 0.3e1 / 0.2e1 * t8249 * t5190 - 0.3e1 / 0.2e1 * t2566 * t15193 - 0.3e1 / 0.2e1 * t2566 * t15197 - 0.3e1 / 0.2e1 * t2566 * t15214 + t2571 * t15214 / 0.4e1 + t8219 * t5190 / 0.4e1 + t2571 * t15193 / 0.4e1 + t2571 * t15197 / 0.4e1 + 0.720e3 * t5176 * t790 - t2602 * t15197 - t2602 * t15193;
14926   t15459 = 0.4e1 * t863 * t4742 * t1133 + 0.4e1 * t863 * t1550 * t3188 + 0.4e1 * t863 * t5363 * t787 - t2602 * t15214 - 0.3e1 / 0.2e1 * t14358 * t3257 + 0.144e3 * t10701 * t5176 + 0.144e3 * t8260 * t5176 + 0.144e3 * t2574 * t15192 + 0.144e3 * t2574 * t15196 + 0.144e3 * t9872 * t4729 + 0.144e3 * t2574 * t15223 + 0.144e3 * t14387 * t3195 + 0.240e3 * t3267 * t1619 + 0.240e3 * t1170 * t4871;
14927   t15463 = t15177 * t299;
14928   t15475 = t5260 * t793;
14929   t15490 = t8252 * t1545;
14930   t15493 = 0.240e3 * t824 * t5293 + 0.240e3 * t324 * t15463 - 0.480e3 * t5203 * t820 - 0.480e3 * t4753 * t1166 - 0.480e3 * t1555 * t3260 - 0.2e1 * t863 * t302 * t15177 + t15475 * t820 / 0.2e1 + t14368 * t1166 / 0.2e1 + t4838 * t3260 / 0.2e1 + t9773 * t1575 / 0.2e1 + t3308 * t4791 / 0.2e1 + t2564 * t5193 / 0.2e1 + t847 * t15255 / 0.2e1 + 0.6e1 * t15490 * t3257;
14931   t15494 = t8222 * t1545;
14932   t15497 = t8227 * t1545;
14933   t15500 = t8255 * t1133;
14934   t15503 = t8240 * t1133;
14935   t15506 = t863 * t2472;
14936   t15517 = t301 * t15177;
14937   t15528 = t319 * t15177;
14938   t15546 = t348 * t5171;
14939   t15551 = -0.8847360e7 * t1133 * t14429 + 0.161658e6 * t1133 * t4864 - 0.1105920e7 * t15177 * t350 + 0.26943e5 * t15177 * t357 - 0.8847360e7 * t15546 * t787 + 0.808290e6 * t1600 * t3195 - 0.61931520e8 * t1602 * t3195 + 0.161658e6 * t1614 * t3188 - 0.8847360e7 * t3188 * t4831 + 0.161658e6 * t5286 * t787 - 0.2880e4 * t15528;
14940   t15552 = 0.1536e4 * t1133 * t4775 - 0.11520e5 * t1133 * t4779 + 0.1536e4 * t1569 * t3188 - 0.11520e5 * t1571 * t3188 - 0.34560e5 * t1598 * t3195 + 0.1536e4 * t5178 * t787 - 0.11520e5 * t5182 * t787 - 0.8e1 * t15177 + 0.1536e4 * t15319 + 0.768e3 * t15517 + t15551;
14941   t15571 = t346 * t15177;
14942   t15573 = 0.153600e6 * t1133 * t4825 + 0.614400e6 * t1571 * t3195 + 0.153600e6 * t1600 * t3188 + 0.153600e6 * t5250 * t787 + 0.448e3 * t15192 + 0.448e3 * t15196 - 0.5760e4 * t15219 + 0.448e3 * t15223 + 0.448e3 * t15225 - 0.34560e5 * t15227 - 0.17280e5 * t15229 - 0.17280e5 * t15231 - 0.17280e5 * t15233 + 0.30720e5 * t15571;
14943   t15589 = t301 * t5288;
14944   t15592 = -0.9e1 / 0.4e1 * t15494 * t3257 + t15497 * t3257 / 0.8e1 + 0.7e1 * t15500 * t4788 - t15503 * t4788 / 0.2e1 - 0.12e2 * t15506 * t15319 + t15552 * t304 + 0.24e2 * t344 * t15573 - 0.360e3 * t15320 + 0.72e2 * t9881 * t1545 + 0.72e2 * t3325 * t4723 + 0.72e2 * t2577 * t5171 + 0.72e2 * t850 * t15177 + 0.72e2 * t14398 * t1133 + 0.72e2 * t4855 * t3188 + 0.72e2 * t15589 * t787;
14945   t15594 = t15428 + t15459 + t15493 + t15592;
14946   t15598 = (0.8e1 / 0.7e1 * t1133 * t4883 + 0.8e1 / 0.7e1 * t4723 * t1224 + 0.8e1 / 0.7e1 * t15177 * t367 + 0.8e1 / 0.7e1 * t1545 * t3353 + 0.8e1 / 0.7e1 * t296 * t15594 + 0.8e1 / 0.7e1 * t3188 * t1625 + 0.8e1 / 0.7e1 * t5171 * t867 + 0.8e1 / 0.7e1 * t787 * t5305) * t41;
14947   t15599 = t15598 * t45;
14948   t15606 = t831 * t1112;
14949   t15609 = t4761 * t1154;
14950   t15614 = t4810 * t41;
14951   t15627 = t871 * t410;
14952   t15630 = 0.26329605555555555556e-1 * t15599 * t373 - t10359 * t1540 / 0.5e1 - t3230 * t5165 / 0.5e1 - 0.48736452400548696845e-1 * t15606 * t340 - t15609 * t1122 / 0.5e1 + 0.6e1 / 0.25e2 * t10354 * t5325 - 0.73104678600823045268e-2 * t15614 * t1192 - 0.10531842222222222222e-1 * t872 * t5342 - 0.10531842222222222222e-1 * t3358 * t1638 + 0.28084912592592592592e-1 * t872 * t5336 - 0.10531842222222222222e-1 * t4888 * t1236 + 0.98e2 / 0.405e3 * t3282 * t5333 + 0.14744579111111111111e-1 * t15627 * t5326;
14953   t15631 = t15394 + t15630;
14954   t15633 = t5395 * t933;
14955   t15635 = t1645 * t3493;
14956   t15647 = t5114 * t875 - 0.6e1 * t5116 * t3161 + t1530 * t3365 - 0.6e1 * t3810 * t4712 + 0.54e2 * t15112 * t5124 - 0.6e1 * t1101 * t15115 - 0.12e2 * t15118 * t5109 - 0.6e1 * t1101 * t15121 + t1097 * t4895 - 0.6e1 * t1101 * t15126 + t269 * t15631 + t15633 * t428 + t15635 * t428 + t4897 * t1315 / 0.10e2 + t3367 * t1664 / 0.10e2 + t3494 * t1664 / 0.10e2 - 0.9e1 / 0.100e3 * t934 * t5407 + t934 * t5442 / 0.10e2;
14957   t15649 = t1521 * p->cam_beta * t15647;
14958   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
14959     v3rho2sigma[5] = -0.2e1 / 0.3e1 * t14121 - t14125 + t14127 / 0.2e1 - 0.2e1 / 0.3e1 * t15086 - t14133 * t15089 / 0.6e1 + t14133 * t15093 / 0.2e1 + t14532 * t15097 / 0.2e1 - t15100 / 0.2e1 - t1352 * t15103 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t15649;
14960 
14961   t15654 = t2753 * t1517 * t3507;
14962   t15657 = t5093 * t944;
14963   t15658 = t14539 * t15657;
14964   t15661 = t2774 * t1517 * t3516;
14965   t15665 = t11098 * t1356;
14966   t15669 = t13524 * t3523;
14967   t15673 = t4346 * t3528;
14968   t15678 = my_piecewise3(t76, 0, -t13497 - t14581 / 0.810e3 - t490 * t493 * t15669 / 0.405e3 + t490 * t493 * t15673 / 0.540e3);
14969   t15691 = t1986 * t3534;
14970   t15697 = t3539 * t1377;
14971   t15698 = t7699 * t15697;
14972   t15700 = t954 * t4919;
14973   t15703 = t3534 * t1377;
14974   t15717 = t13834 * t3591;
14975   t15719 = t14940 * t982;
14976   t15722 = 0.5e1 / 0.2e1 * t13842 * t3591;
14977   t15723 = t4399 * t3594;
14978   t15725 = t525 * t15678;
14979   t15734 = t3534 * t87;
14980   t15744 = t79 * t15678;
14981   t15745 = t15744 * t86;
14982   t15746 = 0.15e2 / 0.2e1 * t15717 - 0.4e1 * t15719 - t15722 - 0.2e1 * t15723 + t15725 * t86 / 0.2e1 + t15014 * t982 / 0.2e1 + t4538 * t3594 / 0.4e1 + t13948 * t3591 / 0.8e1 - 0.4e1 * t15734 * t1377 - 0.8e1 * t4943 * t4919 - t3673 * t1407 - 0.2e1 * t1023 * t4986 - 0.4e1 * t529 * t15678 - t15745;
14983   t15749 = 0.7e1 / 0.2e1 * t3556 * t1407 - t15691 * t1407 / 0.2e1 - t11154 * t1407 / 0.4e1 - t4923 * t4986 - 0.6e1 * t15698 + 0.4e1 * t1991 * t15700 + 0.2e1 * t1991 * t15703 - t521 * t15678 + 0.2e1 * t15678 * t90 + 0.4e1 * t4919 * t966 + 0.2e1 * t1377 * t3567 + 0.2e1 * t3534 * t1389 + 0.4e1 * t954 * t4951 + 0.2e1 * t77 * t15746;
14984   t15752 = -0.8e1 / 0.3e1 * t15678 * t93 - 0.16e2 / 0.3e1 * t4919 * t969 - 0.8e1 / 0.3e1 * t1377 * t3570 - 0.8e1 / 0.3e1 * t3534 * t1392 - 0.16e2 / 0.3e1 * t954 * t4954 - 0.8e1 / 0.3e1 * t77 * t15749;
14985   t15756 = t3534 * t109;
14986   t15759 = t954 * t990;
14987   t15783 = t4986 * t954;
14988   t15786 = t1407 * t3534;
14989   t15789 = t15697 * t86;
14990   t15803 = t5016 * t954;
14991   t15804 = 0.1536e4 * t15803;
14992   t15805 = 0.20e2 * t15717 - 0.10e2 * t15719 - t15722 - 0.5e1 * t15723 - 0.3e1 * t9094 * t4983 + t9089 * t4983 / 0.2e1 - 0.3e1 * t2044 * t15783 - 0.3e1 / 0.2e1 * t2044 * t15786 - 0.9e1 / 0.4e1 * t7505 * t15789 + t2051 * t15783 / 0.2e1 + t2051 * t15786 / 0.4e1 + t7500 * t15789 / 0.8e1 + 0.6e1 * t7538 * t15789 + 0.10e2 * t78 * t15678 * t81 + t15804;
14993   t15806 = t1430 * t3534;
14994   t15807 = 0.768e3 * t15806;
14995   t15808 = t1401 * t3539;
14996   t15809 = 0.1536e4 * t15808;
14997   t15813 = t77 * t15678;
14998   t15815 = t128 * t15678;
14999   t15816 = 0.256e3 * t15815;
15000   t15817 = 0.40e2 * t15703 + 0.80e2 * t15700 + 0.40e2 * t15813 - t15809 - t15804 - t15807 - t15816;
15001   t15832 = t15678 * t86;
15002   t15835 = t15807 + t15809 - 0.10e2 * t15745 + t15817 * t86 - 0.72e2 * t15703 - 0.144e3 * t15700 - 0.72e2 * t15813 + t15816 - 0.3e1 / 0.2e1 * t13831 * t3591 + t14870 * t982 + t4378 * t3594 / 0.2e1 + t13822 * t3591 / 0.4e1 + t11251 * t1407 / 0.2e1 + t2874 * t4986 + t556 * t15832 / 0.2e1;
15003   t15836 = t15805 + t15835;
15004   t15839 = 0.48e2 * t11239 * t1377 + 0.48e2 * t1377 * t15756 + 0.96e2 * t1377 * t15759 + 0.48e2 * t1415 * t3539 + 0.96e2 * t14861 * t954 + 0.48e2 * t15678 * t547 + 0.24e2 * t15836 * t83 + 0.96e2 * t2862 * t4919 + 0.48e2 * t3534 * t4365 + 0.96e2 * t4919 * t4961;
15005   t15840 = t15839 * t120;
15006   t15843 = t3609 * t51;
15007   t15885 = t3539 * t143;
15008   t15903 = t2107 * t15783 / 0.2e1 + t2107 * t15786 / 0.4e1 + t7655 * t15789 / 0.8e1 + 0.144e3 * t15885 * t1377 + 0.144e3 * t13711 * t3539 + 0.144e3 * t2947 * t4919 + 0.72e2 * t601 * t15678 + 0.144e3 * t14796 * t954 - 0.3e1 * t8910 * t4983 - 0.12e2 * t614 * t4399 * t3539 + 0.6e1 * t7682 * t15789;
15009   t15917 = t83 * t15678;
15010   t15925 = t101 * t15678;
15011   t15943 = -0.1105920e7 * t134 * t15678 + 0.1536e4 * t1401 * t3534 - 0.11520e5 * t1403 * t3534 + 0.26943e5 * t141 * t15678 - 0.34560e5 * t1430 * t3539 + 0.808290e6 * t1432 * t3539 - 0.61931520e8 * t1434 * t3539 + 0.161658e6 * t1446 * t3534 - 0.17694720e8 * t14747 * t954 - 0.8847360e7 * t3534 * t4440 + 0.3072e4 * t4971 * t954 - 0.23040e5 * t4975 * t954 + 0.323316e6 * t5056 * t954 - 0.8e1 * t15678 + 0.1536e4 * t15697 + 0.768e3 * t15917 - 0.2880e4 * t15925;
15012   t15958 = t130 * t15678;
15013   t15960 = 0.614400e6 * t1403 * t3539 + 0.153600e6 * t1432 * t3534 + 0.307200e6 * t5020 * t954 + 0.896e3 * t15700 + 0.448e3 * t15703 - 0.34560e5 * t15803 - 0.17280e5 * t15806 - 0.34560e5 * t15808 + 0.448e3 * t15813 - 0.5760e4 * t15815 + 0.30720e5 * t15958;
15014   t15975 = 0.72e2 * t11398 * t1377 + 0.24e2 * t128 * t15960 + 0.240e3 * t1451 * t3601 + 0.720e3 * t15697 * t521 + 0.288e3 * t15700 * t2110 + 0.144e3 * t15703 * t2110 + 0.7e1 * t15789 * t7673 + t15943 * t86 + 0.72e2 * t3534 * t4464 + 0.288e3 * t4926 * t8954 + 0.480e3 * t5063 * t986;
15015   t15976 = t15678 * t81;
15016   t15998 = 0.240e3 * t106 * t15976 - 0.960e3 * t4949 * t982 - 0.480e3 * t1387 * t3594 - 0.2e1 * t614 * t84 * t15678 - 0.3e1 / 0.2e1 * t13678 * t3591 + t14609 * t982 + t4447 * t3594 / 0.2e1 + t13671 * t3591 / 0.4e1 + t11465 * t1407 / 0.2e1 + t2930 * t4986 + t598 * t15832 / 0.2e1;
15017   t16000 = -0.360e3 * t15698 - t2138 * t15786 - 0.2e1 * t2138 * t15783 - t7644 * t15789 / 0.2e1 + 0.8e1 * t614 * t4938 * t954 + 0.4e1 * t614 * t1382 * t3534 + t8901 * t4983 / 0.2e1 - 0.3e1 * t2102 * t15783 - 0.3e1 / 0.2e1 * t2102 * t15786 - 0.9e1 / 0.4e1 * t7667 * t15789 + t15903 + t15975 + t15998;
15018   t16004 = (0.8e1 / 0.7e1 * t15678 * t151 + 0.16e2 / 0.7e1 * t4919 * t1026 + 0.8e1 / 0.7e1 * t1377 * t3676 + 0.8e1 / 0.7e1 * t3534 * t1457 + 0.16e2 / 0.7e1 * t954 * t5075 + 0.8e1 / 0.7e1 * t77 * t16000) * t41;
15019   t16005 = t16004 * t45;
15020   t16012 = t15752 * t98 - t11219 * t1372 / 0.5e1 + 0.35e2 / 0.81e2 * t15840 * t124 + 0.18276169650205761317e-1 * t15843 * t124 - 0.14e2 / 0.81e2 * t11313 * t1425 + 0.26329605555555555556e-1 * t16005 * t157 + 0.26329605555555555556e-1 * t3680 * t1466 - 0.10531842222222222222e-1 * t3681 * t1470;
15021   t16014 = t1477 * t3771;
15022   t16018 = t1362 * t3684 - 0.6e1 * t478 * t15665 + t33 * t16012 + t16014 * t230 + t3772 * t1496 / 0.10e2;
15023   t16020 = t1353 * p->cam_beta * t16018;
15024   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15025     v3rho2sigma[6] = -0.4e1 / 0.3e1 * t14521 - t13168 + t14537 - t1352 * t15654 / 0.6e1 + t14133 * t15658 - t1352 * t15661 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t16020;
15026 
15027   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15028     v3rho2sigma[7] = 0.0e0;
15029 
15030   t16025 = t3131 * t1685 * t3779;
15031   t16029 = t2415 * t5499 * t1082;
15032   t16032 = t2415 * t1685 * t3788;
15033   t16040 = t58 * sigma[2] * t3849;
15034   t16042 = t3843 * t261;
15035   t16044 = t46 * t16042 * t424;
15036   t16046 = t4207 * t41;
15037   t16047 = t16046 * t1633;
15038   t16050 = t46 * t274 * t3794;
15039   t16052 = t45 * t3843;
15040   t16055 = t5413 * t5221;
15041   t16057 = t1651 * t16052;
15042   t16061 = t46 * t1112 * t1091 * t424;
15043   t16064 = t46 * t5418 * t1091;
15044   t16068 = t46 * t274 * t3800 * t424;
15045   t16071 = t46 * t1654 * t3800;
15046   t16073 = t4207 * t1524;
15047   t16076 = t1303 * t5106;
15048   t16083 = my_piecewise3(t260, t3796 * t257 / 0.4e1, 0);
15049   t16084 = t420 * t16083;
15050   t16097 = 0.8125e4 / 0.118098e6 * t16040 + 0.803e3 / 0.21870e5 * t16044 - 0.73e2 / 0.14580e5 * t16047 - 0.73e2 / 0.9720e4 * t16050 + 0.110e3 / 0.27e2 * t409 * t16052 + 0.292e3 / 0.10935e5 * t16055 - 0.1606e4 / 0.32805e5 * t16057 - 0.73e2 / 0.3645e4 * t16061 + 0.73e2 / 0.3645e4 * t16064 + 0.73e2 / 0.19440e5 * t16068 - 0.73e2 / 0.19440e5 * t16071 - 0.146e3 / 0.135e3 * t16073 * t424 - 0.292e3 / 0.135e3 * t16076 * t424 + 0.584e3 / 0.135e3 * t5429 * t1091 - 0.146e3 / 0.135e3 * t16084 * t424 + 0.584e3 / 0.135e3 * t5432 * t1091 + 0.292e3 / 0.135e3 * t1658 * t3800 + 0.146e3 / 0.135e3 * t4210 * t1524 + 0.292e3 / 0.135e3 * t1306 * t5106 + 0.146e3 / 0.135e3 * t423 * t16083;
15051   t16102 = t4240 * t5106;
15052   t16105 = t1321 * t16083;
15053   t16110 = t5113 * t1100;
15054   t16115 = t12463 * t1524;
15055   t16120 = t12341 * t1663 / 0.10e2 + t4275 * t5441 / 0.5e1 + t1342 * t16097 / 0.10e2 - 0.12e2 * t5116 * t4241 - 0.12e2 * t1101 * t16102 - 0.6e1 * t1101 * t16105 - 0.12e2 * t3810 * t5467 - 0.12e2 * t16110 * t1322 - 0.12e2 * t3810 * t5462 - 0.6e1 * t1101 * t16115 + 0.2e1 * t5114 * t1339;
15056   t16125 = t12348 * t1540;
15057   t16128 = t3869 * t5165;
15058   t16136 = 0.14711144691358024691e1 * t46 * t3843 + 0.18172100223395413760e0 * t16040;
15059   t16140 = t46 * t3843 * t339;
15060   t16142 = t1112 * t1190;
15061   t16143 = t16142 * t1122;
15062   t16146 = t5324 * t3837;
15063   t16149 = t5313 * t3853;
15064   t16158 = t1540 * t3837;
15065   t16161 = t5165 * t1122;
15066   t16164 = t1540 * t3853;
15067   t16169 = -0.66e2 / 0.125e3 * t16125 * t3837 + 0.12e2 / 0.25e2 * t16128 * t1122 + 0.6e1 / 0.25e2 * t5470 * t3853 - t1154 * t16136 / 0.5e1 + 0.43614535756744398721e0 * t16140 + 0.95158987105624142663e-1 * t46 * t16143 + 0.24979234115226337449e-1 * t46 * t16146 - 0.17842310082304526749e-1 * t46 * t16149 - 0.14e2 / 0.45e2 * t12379 * t1540 + 0.196e3 / 0.225e3 * t12382 * t5325 - 0.28e2 / 0.45e2 * t4264 * t5165 - 0.392e3 / 0.375e3 * t12389 * t16158 + 0.196e3 / 0.225e3 * t4267 * t16161 + 0.98e2 / 0.225e3 * t4267 * t16164 - 0.14e2 / 0.45e2 * t1336 * t16136;
15068   t16173 = t1529 * t3816;
15069   t16180 = t5486 * t262;
15070   t16181 = t16180 * t1091;
15071   t16184 = t5466 * t3800;
15072   t16187 = t1680 * t3818;
15073   t16188 = t16187 * t3794;
15074   t16191 = 0.2e1 * t1097 * t5486 - 0.12e2 * t1101 * t16181 - 0.6e1 * t1101 * t16184 - 0.6e1 * t12309 * t1670 + t1530 * t4272 + t16169 * t269 + 0.54e2 * t16173 * t4237 + 0.54e2 * t16188 * t3817 + t1680 * t3808 - 0.12e2 * t3810 * t5456 - 0.6e1 * t4248 * t5116;
15075   t16193 = t441 * t3794;
15076   t16194 = t16193 * t1524;
15077   t16197 = t3810 * t441;
15078   t16200 = t5395 * t1291;
15079   t16205 = t1680 * t261;
15080   t16206 = t16205 * t3794;
15081   t16211 = t1663 * t4190;
15082   t16216 = t5441 * t1314;
15083   t16219 = t1663 * t4225;
15084   t16222 = t12312 * t441;
15085   t16225 = -0.12e2 * t1101 * t16194 - 0.24e2 * t16197 * t5109 + t16200 * t1314 / 0.5e1 + t5489 * t4225 / 0.10e2 - 0.12e2 * t1101 * t16206 - 0.12e2 * t5116 * t4245 + 0.171e3 / 0.1000e4 * t12495 * t16211 - 0.9e1 / 0.50e2 * t12440 * t5494 - 0.9e1 / 0.50e2 * t4278 * t16216 - 0.9e1 / 0.100e3 * t4278 * t16219 + 0.108e3 * t16222 * t5124;
15086   t16226 = t3817 * t1339;
15087   t16229 = t3818 * t5106;
15088   t16230 = t16229 * t1091;
15089   t16233 = t5123 * t3800;
15090   t16236 = t12321 * t441;
15091   t16237 = t12322 * t1524;
15092   t16238 = t16237 * t3794;
15093   t16241 = t1101 * t1339;
15094   t16244 = t5107 * t1091;
15095   t16247 = t1525 * t3800;
15096   t16250 = t263 * t1524;
15097   t16251 = t16250 * t3794;
15098   t16254 = t3800 * t1524;
15099   t16256 = t1091 * t5106;
15100   t16258 = t261 * t16083;
15101   t16260 = t3794 * t1524;
15102   t16264 = t262 * t16083;
15103   t16266 = 0.2e1 * t16254 + 0.4e1 * t16256 + 0.2e1 * t16258 + 0.18e2 * t16260 + 0.36e2 * t16244 + 0.18e2 * t16247 + 0.9e1 * t16264;
15104   t16267 = t16266 * t268;
15105   t16300 = 0.12e2 * t1094 * t16110 + 0.24e2 * t1101 * t16244 + 0.12e2 * t1101 * t16247 + 0.12e2 * t1101 * t16260 + 0.6e1 * t1101 * t16264 + 0.6e1 * t12309 * t1527 - 0.108e3 * t12312 * t5124 + 0.648e3 * t12321 * t16238 - 0.54e2 * t16173 * t4083 - 0.108e3 * t16230 * t3817 - 0.54e2 * t16233 * t3817 - 0.324e3 * t16251 * t3817 + 0.12e2 * t3803 * t5116 + 0.6e1 * t3805 * t5116 + 0.24e2 * t3810 * t5109 + 0.12e2 * t3810 * t5111 - t16267;
15106   t16305 = t5137 * t3800;
15107   t16311 = t5406 * t4225;
15108   t16318 = t1177 * t1112;
15109   t16321 = t330 * t3843;
15110   t16324 = t16052 * t339;
15111   t16337 = t5211 * t1184;
15112   t16340 = t1586 * t3957;
15113   t16343 = t3995 * t274;
15114   t16352 = -0.14042456296296296297e0 * t1228 * t5222 - 0.97472904801097393690e-1 * t16318 * t340 + 0.17870032546867855510e0 * t16321 * t340 + 0.25744503209876543210e0 * t371 * t16324 - 0.14042456296296296297e0 * t5310 * t1232 + 0.98e2 / 0.405e3 * t5317 * t3948 + 0.14744579111111111111e-1 * t372 * t16146 + 0.25744503209876543210e0 * t1630 * t3858 + 0.10234655004115226338e-1 * t5320 * t3948 + 0.70e2 / 0.81e2 * t16337 * t340 + 0.35e2 / 0.81e2 * t16340 * t340 + 0.18276169650205761317e-1 * t16343 * t340 - 0.28e2 / 0.81e2 * t3999 * t5236 - 0.14e2 / 0.81e2 * t12850 * t1593 - 0.28e2 / 0.81e2 * t4002 * t5236;
15115   t16353 = t1191 * t16136;
15116   t16362 = t5380 * t1154;
15117   t16370 = t1541 * t3837;
15118   t16375 = t15151 * t5325 * t1127;
15119   t16378 = t5166 * t1122;
15120   t16382 = t1541 * t3853;
15121   t16386 = t14152 * t3895;
15122   t16390 = t15171 * t1127;
15123   t16394 = t4717 * t3900;
15124   t16398 = t290 * t16136;
15125   t16402 = -t14148 - 0.11e2 / 0.2700e4 * t15149 - t15157 / 0.810e3 + t15169 / 0.270e3 - 0.77e2 / 0.6000e4 * t490 * t12553 * t16370 - 0.11e2 / 0.2700e4 * t5889 * t16375 + 0.11e2 / 0.900e3 * t490 * t3882 * t16378 + 0.11e2 / 0.1800e4 * t490 * t3882 * t16382 - t490 * t1109 * t16386 / 0.405e3 + t490 * t1109 * t16390 / 0.270e3 + t490 * t1109 * t16394 / 0.540e3 - t490 * t1109 * t16398 / 0.180e3;
15126   t16403 = my_piecewise3(t295, 0, t16402);
15127   t16414 = t1545 * t3906;
15128   t16415 = t16414 * t304;
15129   t16418 = t1545 * t3911;
15130   t16419 = t16418 * t304;
15131   t16423 = t1166 * t5171;
15132   t16460 = t301 * t16403;
15133   t16468 = t319 * t16403;
15134   t16486 = -0.17694720e8 * t1133 * t15546 + 0.3072e4 * t1133 * t5178 - 0.23040e5 * t1133 * t5182 + 0.323316e6 * t1133 * t5286 + 0.1536e4 * t1569 * t3906 - 0.11520e5 * t1571 * t3906 - 0.34560e5 * t1598 * t3911 + 0.808290e6 * t1600 * t3911 - 0.61931520e8 * t1602 * t3911 + 0.161658e6 * t1614 * t3906 - 0.1105920e7 * t16403 * t350 + 0.26943e5 * t16403 * t357 - 0.8847360e7 * t3906 * t4831 - 0.8e1 * t16403 + 0.1536e4 * t16418 + 0.768e3 * t16460 - 0.2880e4 * t16468;
15135   t16489 = t1133 * t5171;
15136   t16491 = t296 * t16403;
15137   t16493 = t1569 * t3911;
15138   t16495 = t5246 * t1133;
15139   t16497 = t1598 * t3906;
15140   t16499 = t344 * t16403;
15141   t16507 = t346 * t16403;
15142   t16509 = 0.307200e6 * t1133 * t5250 + 0.614400e6 * t1571 * t3911 + 0.153600e6 * t1600 * t3906 + 0.448e3 * t16414 + 0.896e3 * t16489 + 0.448e3 * t16491 - 0.34560e5 * t16493 - 0.34560e5 * t16495 - 0.17280e5 * t16497 - 0.5760e4 * t16499 + 0.30720e5 * t16507;
15143   t16518 = -0.3e1 * t9775 * t5190 + t9745 * t5190 / 0.2e1 - 0.3e1 * t2566 * t16423 - 0.3e1 / 0.2e1 * t2566 * t16415 - 0.9e1 / 0.4e1 * t8222 * t16419 + t2571 * t16423 / 0.2e1 + t16486 * t304 + 0.24e2 * t344 * t16509 - 0.2e1 * t863 * t302 * t16403 + t15475 * t1166 + t4838 * t3980 / 0.2e1;
15144   t16525 = t16403 * t304;
15145   t16540 = t16403 * t299;
15146   t16543 = t14373 * t3977 / 0.4e1 + t10632 * t1575 / 0.2e1 + t3308 * t5193 + t847 * t16525 / 0.2e1 + 0.288e3 * t9872 * t5176 + 0.288e3 * t2574 * t16489 + 0.144e3 * t2574 * t16414 + 0.240e3 * t3987 * t1619 + 0.480e3 * t1170 * t5293 + 0.720e3 * t16418 * t789 + 0.240e3 * t324 * t16540;
15147   t16550 = t8039 * t16418;
15148   t16552 = t3911 * t359;
15149   t16567 = -0.960e3 * t5203 * t1166 - 0.480e3 * t1555 * t3980 - 0.3e1 / 0.2e1 * t14358 * t3977 - 0.360e3 * t16550 + 0.144e3 * t16552 * t1545 + 0.144e3 * t14387 * t3911 + 0.72e2 * t10698 * t1545 + 0.144e3 * t3325 * t5171 + 0.72e2 * t850 * t16403 + 0.144e3 * t15589 * t1133 + 0.72e2 * t4855 * t3906;
15150   t16569 = t2571 * t16415 / 0.4e1 + t8227 * t16419 / 0.8e1 - t2602 * t16415 - 0.2e1 * t2602 * t16423 - t8240 * t16419 / 0.2e1 + 0.8e1 * t863 * t5363 * t1133 + 0.4e1 * t863 * t1550 * t3906 + 0.6e1 * t8252 * t16419 + 0.7e1 * t8255 * t16419 - 0.12e2 * t863 * t4739 * t3911 + t16518 + t16543 + t16567;
15151   t16573 = (0.8e1 / 0.7e1 * t16403 * t367 + 0.16e2 / 0.7e1 * t5171 * t1224 + 0.8e1 / 0.7e1 * t1545 * t4071 + 0.8e1 / 0.7e1 * t3906 * t1625 + 0.16e2 / 0.7e1 * t1133 * t5305 + 0.8e1 / 0.7e1 * t296 * t16569) * t41;
15152   t16574 = t16573 * t45;
15153   t16577 = t5218 * t41;
15154   t16586 = t5143 * t41;
15155   t16595 = -0.14e2 / 0.81e2 * t1188 * t16353 - 0.2e1 / 0.5e1 * t3875 * t5165 - t12646 * t1540 / 0.5e1 - t1155 * t16136 / 0.5e1 - 0.2e1 / 0.5e1 * t16362 * t1122 - t5227 * t3853 / 0.5e1 + 0.26329605555555555556e-1 * t16574 * t373 - 0.14620935720164609054e-1 * t16577 * t1192 + 0.56169825185185185185e-1 * t372 * t16143 - 0.10531842222222222222e-1 * t372 * t16149 - 0.14e2 / 0.81e2 * t5317 * t4005 + 0.38989161920438957476e-1 * t16586 * t1192 - 0.73104678600823045268e-2 * t5320 * t4005 - 0.14e2 / 0.81e2 * t12853 * t1593 - 0.28e2 / 0.81e2 * t12847 * t1593;
15156   t16599 = t5212 * t41;
15157   t16602 = t5215 * t41;
15158   t16607 = t3906 * t327;
15159   t16610 = t1133 * t1174;
15160   t16631 = t297 * t16403 * t304;
15161   t16633 = 0.1536e4 * t16493;
15162   t16634 = 0.1536e4 * t16495;
15163   t16635 = 0.768e3 * t16497;
15164   t16654 = 0.256e3 * t16499;
15165   t16655 = 0.10e2 * t78 * t16403 * t299 - 0.10e2 * t16631 + t16633 + t16634 + t16635 + t2524 * t16415 / 0.4e1 + t8127 * t16419 / 0.8e1 - 0.3e1 * t9713 * t5190 + t9704 * t5190 / 0.2e1 - 0.3e1 * t2517 * t16423 - 0.3e1 / 0.2e1 * t2517 * t16415 - 0.9e1 / 0.4e1 * t8120 * t16419 + t2524 * t16423 / 0.2e1 + 0.6e1 * t8140 * t16419 + t16654;
15166   t16659 = 0.40e2 * t16414 + 0.80e2 * t16489 + 0.40e2 * t16491 - t16633 - t16634 - t16635 - t16654;
15167   t16665 = 0.5e1 / 0.2e1 * t14206 * t3977;
15168   t16666 = t15272 * t1166;
15169   t16668 = t4739 * t3980;
15170   t16680 = t14200 * t3977;
15171   t16684 = t16659 * t304 - 0.72e2 * t16414 - 0.144e3 * t16489 - 0.72e2 * t16491 - t16665 - 0.10e2 * t16666 - 0.5e1 * t16668 + t4783 * t3980 / 0.2e1 + t14269 * t3977 / 0.4e1 + t10544 * t1575 / 0.2e1 + t3252 * t5193 + t15241 * t1166 - 0.3e1 / 0.2e1 * t14275 * t3977 + 0.20e2 * t16680 + t819 * t16525 / 0.2e1;
15172   t16685 = t16655 + t16684;
15173   t16688 = 0.48e2 * t10529 * t1545 + 0.96e2 * t1133 * t15187 + 0.48e2 * t1545 * t16607 + 0.96e2 * t1545 * t16610 + 0.48e2 * t1583 * t3911 + 0.48e2 * t16403 * t810 + 0.24e2 * t16685 * t301 + 0.96e2 * t3240 * t5171 + 0.48e2 * t3906 * t4771 + 0.96e2 * t5146 * t5171;
15174   t16689 = t16688 * t336;
15175   t16692 = t1563 * t3869;
15176   t16711 = t2459 * t3906;
15177   t16736 = t793 * t16403;
15178   t16745 = t3906 * t305;
15179   t16755 = 0.15e2 / 0.2e1 * t16680 - 0.4e1 * t16666 - t16665 - 0.2e1 * t16668 + t16736 * t304 / 0.2e1 + t15352 * t1166 / 0.2e1 + t4745 * t3980 / 0.4e1 + t14219 * t3977 / 0.8e1 - 0.4e1 * t16745 * t1545 - 0.8e1 * t5368 * t5171 - t4068 * t1575 - 0.2e1 * t1221 * t5193 - 0.4e1 * t797 * t16403 - t16631;
15180   t16758 = 0.7e1 / 0.2e1 * t3928 * t1575 - t16711 * t1575 / 0.2e1 - t10439 * t1575 / 0.4e1 - t5350 * t5193 - 0.6e1 * t16550 + 0.4e1 * t2464 * t16489 + 0.2e1 * t2464 * t16414 - t789 * t16403 + 0.2e1 * t16403 * t308 + 0.4e1 * t5171 * t1145 + 0.2e1 * t1545 * t3939 + 0.2e1 * t3906 * t1557 + 0.4e1 * t1133 * t5374 + 0.2e1 * t296 * t16755;
15181   t16761 = -0.8e1 / 0.3e1 * t16403 * t311 - 0.16e2 / 0.3e1 * t5171 * t1148 - 0.8e1 / 0.3e1 * t1545 * t3942 - 0.8e1 / 0.3e1 * t3906 * t1560 - 0.16e2 / 0.3e1 * t1133 * t5377 - 0.8e1 / 0.3e1 * t296 * t16758;
15182   t16765 = t274 * t12388;
15183   t16766 = t16765 * t16158;
15184   t16769 = t1112 * t3836;
15185   t16770 = t16769 * t5325;
15186   t16773 = t1228 * t410;
15187   t16776 = t5324 * t16161;
15188   t16779 = t5324 * t16164;
15189   t16782 = -0.21063684444444444444e-1 * t1229 * t5314 - 0.28e2 / 0.81e2 * t16599 * t1192 - 0.28e2 / 0.81e2 * t16602 * t1192 + 0.26329605555555555556e-1 * t4075 * t1634 + 0.35e2 / 0.81e2 * t16689 * t340 + 0.6e1 / 0.25e2 * t16692 * t3837 + 0.12e2 / 0.25e2 * t3870 * t16161 + 0.6e1 / 0.25e2 * t3870 * t16164 + t16761 * t316 - 0.66e2 / 0.125e3 * t12656 * t16158 - 0.35386989866666666666e-1 * t5323 * t16766 - 0.78637755259259259258e-1 * t5323 * t16770 + 0.29489158222222222222e-1 * t16773 * t5326 + 0.29489158222222222222e-1 * t5323 * t16776 + 0.14744579111111111111e-1 * t5323 * t16779;
15190   t16785 = t3947 * t16164;
15191   t16796 = t1190 * t16136;
15192   t16797 = t275 * t16796;
15193   t16802 = t12719 * t16158;
15194   t16807 = t1113 * t5341;
15195   t16814 = t3844 * t1637;
15196   t16819 = t3947 * t16161;
15197   t16822 = 0.12e2 / 0.25e2 * t12649 * t5325 + 0.98e2 / 0.405e3 * t1188 * t16785 + 0.196e3 / 0.405e3 * t3999 * t5333 - 0.10531842222222222222e-1 * t1630 * t3855 + 0.56169825185185185185e-1 * t1630 * t3861 - 0.21063684444444444444e-1 * t5310 * t1236 - 0.10531842222222222222e-1 * t372 * t16797 - 0.21063684444444444444e-1 * t1229 * t5342 - 0.392e3 / 0.675e3 * t1188 * t16802 + 0.56169825185185185184e-1 * t1229 * t5336 + 0.56169825185185185184e-1 * t372 * t16807 - 0.10531842222222222222e-1 * t4076 * t1638 + 0.14744579111111111111e-1 * t1630 * t3839 - 0.10297801283950617284e0 * t372 * t16814 + 0.196e3 / 0.405e3 * t4002 * t5333 + 0.196e3 / 0.405e3 * t1188 * t16819;
15198   t16824 = t16352 + t16595 + t16782 + t16822;
15199   t16826 = t1641 * t261;
15200   t16827 = t16826 * t3794;
15201   t16830 = t376 * t3794;
15202   t16831 = t16830 * t1524;
15203   t16834 = t5383 * t262;
15204   t16835 = t16834 * t1091;
15205   t16840 = 0.2e1 * t1097 * t5383 + t1530 * t4079 - 0.6e1 * t1101 * t16305 + t16267 * t376 - 0.12e2 * t5116 * t3828 - 0.9e1 / 0.100e3 * t406 * t16311 - 0.12e2 * t3810 * t5133 + t269 * t16824 - 0.12e2 * t1101 * t16827 - 0.12e2 * t1101 * t16831 - 0.12e2 * t1101 * t16835 - 0.12e2 * t3810 * t5127;
15206   t16843 = t12905 * t1524;
15207   t16849 = t12494 * t1663 * t4190;
15208   t16854 = t3823 * t5106;
15209   t16857 = t1102 * t16083;
15210   t16862 = t16300 * t405;
15211   t16870 = t1101 * t1239;
15212   t16873 = -0.6e1 * t5116 * t3831 - 0.6e1 * t1101 * t16843 - 0.6e1 * t12309 * t1532 + 0.171e3 / 0.1000e4 * t406 * t16849 - 0.9e1 / 0.50e2 * t1285 * t5407 - 0.12e2 * t1101 * t16854 - 0.6e1 * t1101 * t16857 - 0.9e1 / 0.50e2 * t1244 * t5407 + t16862 * t428 - 0.12e2 * t5116 * t3824 - 0.24e2 * t5130 * t16244 - 0.12e2 * t5130 * t16247 - 0.24e2 * t16870 * t5109;
15213   t16875 = t3810 * t376;
15214   t16890 = t1291 * t16097;
15215   t16895 = t12312 * t376;
15216   t16898 = t3817 * t1239;
15217   t16905 = -0.24e2 * t16875 * t5109 + t1646 * t4226 / 0.10e2 + t1244 * t5442 / 0.5e1 + t5398 * t1315 / 0.5e1 + t4093 * t1664 / 0.5e1 + t1285 * t5442 / 0.5e1 + t4091 * t1664 / 0.10e2 + t406 * t16890 / 0.10e2 + t4184 * t1664 / 0.10e2 + 0.108e3 * t16895 * t5124 + 0.108e3 * t16898 * t5124 + 0.108e3 * t5122 * t16230 + 0.54e2 * t5122 * t16233;
15218   t16906 = t12321 * t376;
15219   t16917 = t4189 * t5441;
15220   t16918 = t16917 * t1314;
15221   t16921 = t1641 * t3818;
15222   t16922 = t16921 * t3794;
15223   t16925 = t5395 * t1284;
15224   t16928 = t1645 * t4183;
15225   t16937 = -0.648e3 * t16906 * t16238 - 0.12e2 * t3810 * t5138 - 0.9e1 / 0.100e3 * t1646 * t4191 + 0.54e2 * t16173 * t3820 - 0.12e2 * t16110 * t1103 - 0.9e1 / 0.50e2 * t406 * t16918 + 0.54e2 * t3817 * t16922 + 0.2e1 * t16925 * t428 + t16928 * t428 + t5396 * t1315 / 0.5e1 + 0.324e3 * t5122 * t16251 + 0.2e1 * t5114 * t1239 + t3808 * t1641;
15226   t16942 = t1645 * t4189;
15227   t16945 = 0.108e3 * t16226 * t5124 + 0.108e3 * t5453 * t16230 + 0.54e2 * t5453 * t16233 - 0.648e3 * t16236 * t16238 - 0.24e2 * t16241 * t5109 - 0.24e2 * t5459 * t16244 - 0.12e2 * t5459 * t16247 + 0.324e3 * t5453 * t16251 + t16300 * t428 - p->cam_beta * (t16840 + t16873 + t16905 + t16937) + t16267 * t441 - 0.9e1 / 0.100e3 * t16942 * t4190;
15228   t16947 = t16120 + t16191 + t16225 + t16945;
15229   t16948 = t1521 * t16947;
15230   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15231     v3rho2sigma[8] = -0.4e1 / 0.3e1 * t15086 - t14125 - t15100 - t1352 * t16025 / 0.6e1 - t1352 * t16029 - t1352 * t16032 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t16948;
15232 
15233   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15234     v3rho2lapl[0] = 0.0e0;
15235 
15236   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15237     v3rho2lapl[1] = 0.0e0;
15238 
15239   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15240     v3rho2lapl[2] = 0.0e0;
15241 
15242   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15243     v3rho2lapl[3] = 0.0e0;
15244 
15245   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15246     v3rho2lapl[4] = 0.0e0;
15247 
15248   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
15249     v3rho2lapl[5] = 0.0e0;
15250 
15251   t16952 = t8 * t450 * t5506;
15252   t16956 = t8 * t460 * t1743 / 0.6e1;
15253   t16958 = t8 * t18 * t5655;
15254   t16959 = t1743 * t1812;
15255   t16963 = t5655 * t455;
15256   t16966 = t1743 * t1827;
15257   t16972 = t45 * t1845;
15258   t16987 = my_piecewise3(t24, -t1842 * t1690 / 0.4e1, 0);
15259   t16990 = t2323 * t1693;
15260   t16993 = t720 * t5514;
15261   t16998 = t222 * t16987;
15262   t17014 = -0.73e2 / 0.270e3 * t1705 * t16972 * t226 + 0.73e2 / 0.270e3 * t1705 * t1718 * t1845 + 0.146e3 / 0.405e3 * t2323 * t114 * t46 + 0.73e2 / 0.135e3 * t1705 * t45 * t1839 + 0.146e3 / 0.135e3 * t225 * t16987 - 0.146e3 / 0.135e3 * t16990 * t226 - 0.292e3 / 0.135e3 * t16993 * t226 + 0.584e3 / 0.135e3 * t5598 * t468 - 0.146e3 / 0.135e3 * t16998 * t226 + 0.584e3 / 0.135e3 * t5601 * t468 + 0.292e3 / 0.135e3 * t1722 * t1845 + 0.146e3 / 0.135e3 * t2326 * t1693 + 0.292e3 / 0.135e3 * t723 * t5514 - 0.292e3 / 0.243e3 * t4621 - 0.292e3 / 0.243e3 * t4615 + 0.1168e4 / 0.729e3 * t4617 + 0.73e2 / 0.81e2 * t4625 - 0.73e2 / 0.81e2 * t4628;
15263   t17019 = t2356 * t5514;
15264   t17022 = t738 * t16987;
15265   t17025 = t5521 * t477;
15266   t17032 = t27 * t1693;
15267   t17033 = t17032 * t1839;
15268   t17036 = t474 * t51;
15269   t17039 = t33 * t496;
15270   t17042 = t5515 * t468;
15271   t17045 = t2391 * t5610 / 0.5e1 + t759 * t17014 / 0.10e2 + t7854 * t1727 / 0.10e2 - 0.12e2 * t478 * t17019 - 0.6e1 * t478 * t17022 - 0.12e2 * t17025 * t739 - 0.12e2 * t5524 * t2357 - 0.6e1 * t5524 * t2364 + 0.324e3 * t4654 * t17033 + 0.20962741563786008230e0 * t17036 * t124 - 0.27950322085048010973e0 * t17039 * t124 - 0.24e2 * t4660 * t17042;
15272   t17046 = t1694 * t1845;
15273   t17049 = t1853 * t114;
15274   t17058 = t1863 * t5514;
15275   t17059 = t17058 * t468;
15276   t17062 = t5530 * t1845;
15277   t17065 = t6996 * t1693;
15278   t17066 = t17065 * t1839;
15279   t17071 = t1855 * t1705;
15280   t17074 = t1706 * t1850;
15281   t17079 = t1845 * t1693;
15282   t17081 = t468 * t5514;
15283   t17083 = t25 * t16987;
15284   t17085 = t1839 * t1693;
15285   t17089 = t26 * t16987;
15286   t17091 = 0.2e1 * t17079 + 0.4e1 * t17081 + 0.2e1 * t17083 + 0.18e2 * t17085 + 0.36e2 * t17042 + 0.18e2 * t17046 + 0.9e1 * t17089;
15287   t17092 = t17091 * t32;
15288   t17094 = -0.12e2 * t4660 * t17046 - 0.62888224691358024691e-1 * t17049 * t124 - 0.24e2 * t14097 * t5517 + 0.108e3 * t14106 * t5531 + 0.108e3 * t14109 * t5531 + 0.108e3 * t4654 * t17059 + 0.54e2 * t4654 * t17062 - 0.648e3 * t13254 * t17066 - 0.24e2 * t13261 * t5517 + 0.75465869629629629630e0 * t17071 * t5636 + 0.37732934814814814815e0 * t5635 * t17074 + t5645 * t2341 / 0.10e2 + t17092 * t244;
15289   t17099 = t1727 * t2306;
15290   t17102 = t1698 * t1861;
15291   t17111 = t5571 * t708;
15292   t17116 = t13204 * t1693;
15293   t17119 = t7907 * t1693;
15294   t17154 = 0.6e1 * t1696 * t6983 + 0.12e2 * t17025 * t471 - 0.324e3 * t17033 * t1862 + 0.24e2 * t17042 * t478 + 0.12e2 * t17046 * t478 - 0.108e3 * t17059 * t1862 - 0.54e2 * t17062 * t1862 + 0.648e3 * t17066 * t6995 + 0.12e2 * t17085 * t478 + 0.6e1 * t17089 * t478 - 0.54e2 * t17102 * t2158 + 0.12e2 * t1848 * t5524 + 0.6e1 * t1850 * t5524 + 0.24e2 * t1855 * t5517 + 0.12e2 * t1855 * t5519 - 0.108e3 * t5531 * t6986 - t17092;
15295   t17156 = 0.2e1 * t5522 * t756 + t1699 * t2388 + 0.171e3 / 0.1000e4 * t7915 * t17099 + 0.54e2 * t17102 * t2353 - 0.6e1 * t6983 * t1734 - 0.12e2 * t1855 * t5624 - 0.12e2 * t1855 * t5629 + t17111 * t731 / 0.5e1 - 0.12e2 * t5524 * t2361 - 0.12e2 * t478 * t17116 - 0.6e1 * t478 * t17119 + t17154 * t230;
15296   t17157 = t1712 * t2305;
15297   t17160 = t1712 * t2299;
15298   t17162 = t46 * t1914;
15299   t17171 = t5571 * t701;
15300   t17174 = t17154 * t207;
15301   t17180 = t708 * t17014;
15302   t17185 = t33 * t1422;
15303   t17188 = t46 * t1883;
15304   t17193 = t17160 * t230 + 0.25155289876543209876e-1 * t5557 * t17162 + t1699 * t2154 - 0.24e2 * t13344 * t5517 - 0.24e2 * t4324 * t17042 + t17092 * t160 + 0.2e1 * t17171 * t230 + t17174 * t230 + t702 * t5611 / 0.5e1 + t2166 * t1728 / 0.10e2 + t208 * t17180 / 0.10e2 + t2300 * t1728 / 0.10e2 - 0.83850966255144032920e-1 * t17185 * t5558 - 0.35217405827160493826e-1 * t5557 * t17188 - 0.9e1 / 0.100e3 * t1713 * t2307;
15305   t17202 = t13365 * t1693;
15306   t17205 = t7029 * t1727;
15307   t17206 = t17205 * t2306;
15308   t17209 = t474 * t5545;
15309   t17212 = t568 * t114;
15310   t17213 = t33 * t17212;
15311   t17216 = t33 * t2064;
15312   t17219 = t1853 * t112;
15313   t17222 = t474 * t568;
15314   t17225 = t123 * t25;
15315   t17227 = t46 * t17225 * t1839;
15316   t17230 = t1855 * t5545;
15317   t17233 = t478 * t17212;
15318   t17237 = t46 * t5547 * t1845;
15319   t17240 = t1713 * t2342 / 0.10e2 + t5572 * t732 / 0.5e1 + 0.2e1 * t5522 * t633 + 0.324e3 * t4316 * t17033 - 0.12e2 * t478 * t17202 + 0.171e3 / 0.1000e4 * t208 * t17206 + 0.50310579753086419752e-1 * t17209 * t5558 + 0.50310579753086419752e-1 * t17213 * t5558 - 0.62888224691358024691e-1 * t17216 * t1707 - 0.62888224691358024691e-1 * t17219 * t1707 - 0.12577644938271604938e0 * t17222 * t1707 + 0.75465869629629629630e0 * t5546 * t17227 + 0.75465869629629629630e0 * t17230 * t5549 + 0.75465869629629629630e0 * t17233 * t5549 + 0.37732934814814814815e0 * t5546 * t17237;
15320   t17242 = t1862 * t5545;
15321   t17243 = t123 * t1863;
15322   t17245 = t46 * t17243 * t1839;
15323   t17248 = t478 * t1422;
15324   t17273 = t7377 * t1693;
15325   t17278 = -0.33959641333333333334e1 * t17242 * t17245 - 0.12577644938271604938e1 * t17248 * t5549 - 0.27950322085048010973e0 * t1704 * t4677 + 0.20962741563786008230e0 * t5542 * t1508 + 0.20962741563786008230e0 * t5552 * t1508 - 0.12e2 * t5524 * t1869 - 0.6e1 * t5524 * t1876 + 0.54e2 * t17102 * t1865 + t5574 * t732 / 0.5e1 + t2168 * t1728 / 0.5e1 + t638 * t5611 / 0.5e1 - 0.12e2 * t1855 * t5534 - 0.12e2 * t17025 * t480 - 0.6e1 * t478 * t17273 - 0.6e1 * t6983 * t1701;
15326   t17281 = t5545 * t41;
15327   t17282 = t478 * t17281;
15328   t17283 = t471 * t506;
15329   t17284 = t582 * t17283;
15330   t17287 = t1868 * t5514;
15331   t17292 = t479 * t16987;
15332   t17297 = t5582 * t2341;
15333   t17300 = t2305 * t5610;
15334   t17301 = t17300 * t731;
15335   t17320 = -0.12e2 * t1855 * t5539 - 0.30186347851851851852e0 * t17282 * t17284 - 0.12e2 * t478 * t17287 - 0.9e1 / 0.50e2 * t638 * t5583 - 0.6e1 * t478 * t17292 - 0.9e1 / 0.50e2 * t702 * t5583 - 0.9e1 / 0.100e3 * t208 * t17297 - 0.9e1 / 0.50e2 * t208 * t17301 - 0.12e2 * t4324 * t17046 - 0.24e2 * t13336 * t5517 + 0.108e3 * t13339 * t5531 + 0.108e3 * t13326 * t5531 + 0.108e3 * t4316 * t17059 + 0.54e2 * t4316 * t17062 - 0.648e3 * t13333 * t17066 - 0.12e2 * t5524 * t1873;
15336   t17330 = t51 * t41;
15337   t17331 = t478 * t17330;
15338   t17334 = t1706 * t1848;
15339   t17337 = t1862 * t1705;
15340   t17338 = t1706 * t2158;
15341   t17347 = t1727 * t2341;
15342   t17350 = t5610 * t731;
15343   t17353 = -0.9e1 / 0.100e3 * t17157 * t2306 - p->cam_beta * (t17193 + t17240 + t17278 + t17320) + 0.25155289876543209876e-1 * t1737 * t17162 + 0.50310579753086419752e-1 * t5632 * t5558 - 0.83850966255144032920e-1 * t5639 * t5558 - 0.12577644938271604938e1 * t17331 * t5636 + 0.75465869629629629630e0 * t5635 * t17334 - 0.33959641333333333334e1 * t17337 * t17338 - 0.30186347851851851852e0 * t5635 * t17284 - 0.35217405827160493826e-1 * t1737 * t17188 - 0.9e1 / 0.50e2 * t7894 * t5650 - 0.9e1 / 0.100e3 * t2394 * t17347 - 0.9e1 / 0.50e2 * t2394 * t17350;
15344   t17355 = t17045 + t17094 + t17156 + t17353;
15345   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15346     v3rho2tau[0] = -0.4e1 / 0.3e1 * t16952 - t16956 - t16958 - t1352 * t2753 * t16959 / 0.6e1 - t1352 * t2774 * t16963 - t1352 * t2774 * t16966 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * t17355;
15347 
15348   t17360 = t8 * t766 * t5662;
15349   t17364 = t8 * t772 * t1801 / 0.6e1;
15350   t17366 = t8 * t254 * t5678;
15351   t17367 = t1801 * t2406;
15352   t17371 = t5677 * t767;
15353   t17374 = t1801 * t2421;
15354   t17379 = t9497 * t1751;
15355   t17382 = t269 * t2537;
15356   t17385 = t1770 * t2743;
15357   t17389 = t1757 * t2618 - 0.6e1 * t1101 * t17379 - 0.62888224691358024691e-1 * t17382 * t1765 + t17385 * t428 + t2744 * t1786 / 0.10e2;
15358   t17390 = p->cam_beta * t17389;
15359   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15360     v3rho2tau[1] = -0.4e1 / 0.3e1 * t17360 - t17364 + t17366 - t1352 * t3131 * t17367 / 0.6e1 + t14133 * t14134 * t17371 - t1352 * t2415 * t17374 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * t17390;
15361 
15362   t17396 = t14520 * t5683;
15363   t17398 = t1810 * t1743;
15364   t17399 = t17398 * t2756;
15365   t17403 = t2774 * t5655 * t944;
15366   t17407 = t2774 * t1743 * t9;
15367   t17410 = t14520 * t5699;
15368   t17413 = t14539 * t5697 * t455;
15369   t17424 = t8705 * t1693;
15370   t17429 = t2784 * t5514;
15371   t17432 = t474 * t993;
15372   t17435 = t993 * t114;
15373   t17436 = t478 * t17435;
15374   t17439 = t33 * t2897;
15375   t17444 = t33 * t17435;
15376   t17447 = t5571 * t1074;
15377   t17449 = t1712 * t3121;
15378   t17461 = t5522 * t1034 - 0.6e1 * t5524 * t2785 + t1699 * t2987 - 0.6e1 * t1855 * t5687 + 0.54e2 * t14550 * t5531 - 0.6e1 * t478 * t17424 - 0.12e2 * t14556 * t5517 - 0.6e1 * t478 * t17429 - 0.62888224691358024691e-1 * t17432 * t1707 + 0.37732934814814814815e0 * t17436 * t5549 - 0.62888224691358024691e-1 * t17439 * t1707 + 0.10481370781893004115e0 * t5690 * t1508 + 0.25155289876543209876e-1 * t17444 * t5558 + t17447 * t230 + t17449 * t230 + t5693 * t732 / 0.10e2 + t2989 * t1728 / 0.10e2 + t3122 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t1075 * t5583 + t1075 * t5611 / 0.10e2;
15379   t17463 = t1353 * p->cam_beta * t17461;
15380   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15381     v3rho2tau[2] = -0.2e1 / 0.3e1 * t16952 - t16956 - t16958 / 0.2e1 - 0.2e1 / 0.3e1 * t17396 - t14133 * t17399 / 0.6e1 - t1352 * t17403 / 0.2e1 - t14532 * t17407 / 0.2e1 + t17410 / 0.2e1 + t14133 * t17413 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t17463;
15382 
15383   t17468 = t14520 * t5703;
15384   t17470 = t2404 * t1801;
15385   t17471 = t17470 * t3134;
15386   t17474 = t5677 * t1082;
15387   t17475 = t14134 * t17474;
15388   t17479 = t2415 * t1801 * t9;
15389   t17482 = t14520 * t5852;
15390   t17485 = t2415 * t5851 * t767;
15391   t17496 = t10331 * t1751;
15392   t17501 = t3160 * t5710;
15393   t17504 = t1097 * t831;
15394   t17507 = t831 * t332;
15395   t17508 = t1101 * t17507;
15396   t17511 = t269 * t3275;
15397   t17516 = t269 * t17507;
15398   t17519 = t5767 * t933;
15399   t17521 = t1770 * t3493;
15400   t17533 = t5718 * t875 - 0.6e1 * t5720 * t3161 + t1757 * t3365 - 0.6e1 * t3810 * t5667 + 0.54e2 * t15112 * t5727 - 0.6e1 * t1101 * t17496 - 0.12e2 * t15118 * t5713 - 0.6e1 * t1101 * t17501 - 0.62888224691358024691e-1 * t17504 * t1765 + 0.37732934814814814815e0 * t17508 * t5745 - 0.62888224691358024691e-1 * t17511 * t1765 + 0.10481370781893004115e0 * t5670 * t1676 + 0.25155289876543209876e-1 * t17516 * t5754 + t17519 * t428 + t17521 * t428 + t5673 * t1315 / 0.10e2 + t3367 * t1786 / 0.10e2 + t3494 * t1786 / 0.10e2 - 0.9e1 / 0.100e3 * t934 * t5779 + t934 * t5807 / 0.10e2;
15401   t17535 = t1521 * p->cam_beta * t17533;
15402   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15403     v3rho2tau[3] = -0.2e1 / 0.3e1 * t17360 - t17364 + t17366 / 0.2e1 - 0.2e1 / 0.3e1 * t17468 - t14133 * t17471 / 0.6e1 + t14133 * t17475 / 0.2e1 + t14532 * t17479 / 0.2e1 - t17482 / 0.2e1 - t1352 * t17485 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t17535;
15404 
15405   t17540 = t2753 * t1743 * t3507;
15406   t17543 = t5697 * t944;
15407   t17544 = t14539 * t17543;
15408   t17547 = t2774 * t1743 * t3516;
15409   t17551 = t11098 * t1693;
15410   t17554 = t33 * t3609;
15411   t17557 = t1712 * t3771;
15412   t17561 = t1699 * t3684 - 0.6e1 * t478 * t17551 - 0.62888224691358024691e-1 * t17554 * t1707 + t17557 * t230 + t3772 * t1728 / 0.10e2;
15413   t17563 = t1353 * p->cam_beta * t17561;
15414   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15415     v3rho2tau[4] = -0.4e1 / 0.3e1 * t17396 - t16956 + t17410 - t1352 * t17540 / 0.6e1 + t14133 * t17544 - t1352 * t17547 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t17563;
15416 
15417   t17568 = t3131 * t1801 * t3779;
15418   t17572 = t2415 * t5851 * t1082;
15419   t17575 = t2415 * t1801 * t3788;
15420   t17578 = t4240 * t5710;
15421   t17583 = my_piecewise3(t260, -t3797 * t1748 / 0.4e1, 0);
15422   t17584 = t1321 * t17583;
15423   t17587 = t5717 * t1100;
15424   t17592 = t16193 * t1751;
15425   t17597 = t1785 * t4190;
15426   t17602 = t1756 * t3816;
15427   t17611 = -0.12e2 * t1101 * t17578 - 0.6e1 * t1101 * t17584 - 0.12e2 * t17587 * t1322 - 0.12e2 * t5720 * t4241 - 0.12e2 * t1101 * t17592 - 0.12e2 * t5720 * t4245 + 0.171e3 / 0.1000e4 * t12495 * t17597 - 0.6e1 * t5720 * t4248 + 0.54e2 * t17602 * t4237 - 0.6e1 * t12309 * t1792 - 0.12e2 * t3810 * t5820 - 0.12e2 * t3810 * t5825;
15428   t17612 = t263 * t1751;
15429   t17613 = t17612 * t3794;
15430   t17616 = t1097 * t274;
15431   t17619 = t269 * t1112;
15432   t17622 = t3808 * t332;
15433   t17627 = t12463 * t1751;
15434   t17630 = t5806 * t1314;
15435   t17633 = t1785 * t4225;
15436   t17636 = t46 * t3838;
15437   t17643 = t5741 * t41;
15438   t17644 = t1101 * t17643;
15439   t17645 = t1094 * t1122;
15440   t17646 = t1191 * t17645;
15441   t17651 = t16830 * t1751;
15442   t17656 = t3823 * t5710;
15443   t17659 = t1102 * t17583;
15444   t17670 = t12494 * t1785;
15445   t17671 = t17670 * t4190;
15446   t17678 = t5768 * t1315 / 0.5e1 + t5770 * t1315 / 0.5e1 - 0.30186347851851851852e0 * t17644 * t17646 - 0.12e2 * t3810 * t5730 - 0.12e2 * t1101 * t17651 - 0.6e1 * t12309 * t1759 - 0.12e2 * t1101 * t17656 - 0.6e1 * t1101 * t17659 - 0.9e1 / 0.50e2 * t1244 * t5779 - 0.6e1 * t5720 * t3831 + 0.54e2 * t17602 * t3820 - 0.12e2 * t17587 * t1103 + 0.171e3 / 0.1000e4 * t406 * t17671 - 0.12e2 * t3810 * t5735 - 0.9e1 / 0.100e3 * t1771 * t4191;
15447   t17679 = t45 * t3800;
15448   t17690 = t4207 * t1751;
15449   t17693 = t1303 * t5710;
15450   t17698 = t420 * t17583;
15451   t17718 = -0.73e2 / 0.270e3 * t1763 * t17679 * t424 + 0.73e2 / 0.270e3 * t1763 * t1776 * t3800 - 0.292e3 / 0.243e3 * t5414 + 0.1168e4 / 0.729e3 * t5416 + 0.73e2 / 0.81e2 * t5424 - 0.73e2 / 0.81e2 * t5427 - 0.146e3 / 0.135e3 * t17690 * t424 - 0.292e3 / 0.135e3 * t17693 * t424 + 0.584e3 / 0.135e3 * t5794 * t1091 - 0.146e3 / 0.135e3 * t17698 * t424 + 0.584e3 / 0.135e3 * t5797 * t1091 + 0.292e3 / 0.135e3 * t1780 * t3800 + 0.146e3 / 0.135e3 * t4210 * t1751 + 0.292e3 / 0.135e3 * t1306 * t5710 + 0.146e3 / 0.135e3 * t423 * t17583 - 0.292e3 / 0.243e3 * t5420 + 0.146e3 / 0.405e3 * t4207 * t332 * t46 + 0.73e2 / 0.135e3 * t1763 * t45 * t3794;
15452   t17719 = t1291 * t17718;
15453   t17728 = t1097 * t5741;
15454   t17731 = t12905 * t1751;
15455   t17738 = t3808 * t330;
15456   t17741 = t1097 * t1177;
15457   t17744 = t269 * t3995;
15458   t17753 = t1770 * t4183;
15459   t17755 = t406 * t17719 / 0.10e2 + t1771 * t4226 / 0.10e2 + t4091 * t1786 / 0.10e2 + 0.324e3 * t5122 * t17613 + 0.50310579753086419752e-1 * t17728 * t5754 - 0.6e1 * t1101 * t17731 + t4093 * t1786 / 0.5e1 + t1244 * t5807 / 0.5e1 - 0.62888224691358024691e-1 * t17738 * t1765 - 0.12577644938271604938e0 * t17741 * t1765 - 0.62888224691358024691e-1 * t17744 * t1765 + t4184 * t1786 / 0.10e2 + t1285 * t5807 / 0.5e1 - 0.12e2 * t5720 * t3828 + t17753 * t428;
15460   t17761 = t5767 * t1284;
15461   t17768 = t3800 * t1751;
15462   t17770 = t1091 * t5710;
15463   t17772 = t261 * t17583;
15464   t17774 = t3794 * t1751;
15465   t17776 = t5711 * t1091;
15466   t17778 = t1752 * t3800;
15467   t17780 = t262 * t17583;
15468   t17782 = 0.2e1 * t17768 + 0.4e1 * t17770 + 0.2e1 * t17772 + 0.18e2 * t17774 + 0.36e2 * t17776 + 0.18e2 * t17778 + 0.9e1 * t17780;
15469   t17783 = t17782 * t268;
15470   t17800 = t12322 * t1751;
15471   t17801 = t17800 * t3794;
15472   t17806 = t3818 * t5710;
15473   t17807 = t17806 * t1091;
15474   t17810 = t5726 * t3800;
15475   t17821 = 0.12e2 * t1094 * t17587 + 0.12e2 * t1101 * t17774 + 0.24e2 * t1101 * t17776 + 0.12e2 * t1101 * t17778 + 0.6e1 * t1101 * t17780 + 0.6e1 * t12309 * t1754 - 0.108e3 * t12312 * t5727 + 0.648e3 * t12321 * t17801 - 0.54e2 * t17602 * t4083 - 0.324e3 * t17613 * t3817 - 0.108e3 * t17807 * t3817 - 0.54e2 * t17810 * t3817 + 0.12e2 * t3803 * t5720 + 0.6e1 * t3805 * t5720 + 0.24e2 * t3810 * t5713 + 0.12e2 * t3810 * t5715 - t17783;
15476   t17822 = t17821 * t405;
15477   t17842 = -0.27950322085048010973e0 * t1762 * t5476 + 0.20962741563786008230e0 * t5748 * t1676 + 0.2e1 * t17761 * t428 + 0.20962741563786008230e0 * t5738 * t1676 - 0.35217405827160493826e-1 * t5753 * t17636 + t17822 * t428 - 0.12e2 * t5130 * t17778 - 0.12e2 * t5720 * t3824 - 0.9e1 / 0.50e2 * t1285 * t5779 + 0.108e3 * t16898 * t5727 + 0.108e3 * t5122 * t17807 + 0.54e2 * t5122 * t17810 - 0.648e3 * t16906 * t17801 - 0.24e2 * t16875 * t5713 + 0.108e3 * t16895 * t5727;
15478   t17845 = t1101 * t1590;
15479   t17848 = t339 * t261;
15480   t17850 = t46 * t17848 * t3794;
15481   t17854 = t46 * t5743 * t3800;
15482   t17857 = t3817 * t5741;
15483   t17858 = t339 * t3818;
15484   t17860 = t46 * t17858 * t3794;
15485   t17863 = t3810 * t5741;
15486   t17866 = t1177 * t332;
15487   t17867 = t1101 * t17866;
15488   t17874 = t46 * t3854;
15489   t17877 = t269 * t1590;
15490   t17880 = t269 * t17866;
15491   t17883 = t4189 * t5806;
15492   t17884 = t17883 * t1314;
15493   t17887 = t5778 * t4225;
15494   t17892 = -0.24e2 * t16870 * t5713 - 0.12577644938271604938e1 * t17845 * t5745 + 0.75465869629629629630e0 * t5742 * t17850 + 0.37732934814814814815e0 * t5742 * t17854 - 0.33959641333333333334e1 * t17857 * t17860 + 0.75465869629629629630e0 * t17863 * t5745 + 0.75465869629629629630e0 * t17867 * t5745 + 0.2e1 * t5718 * t1239 + t1757 * t4079 + t17783 * t376 + 0.25155289876543209876e-1 * t5753 * t17874 - 0.83850966255144032920e-1 * t17877 * t5754 + 0.50310579753086419752e-1 * t17880 * t5754 - 0.9e1 / 0.50e2 * t406 * t17884 - 0.9e1 / 0.100e3 * t406 * t17887 - 0.24e2 * t5130 * t17776;
15495   t17902 = 0.324e3 * t5453 * t17613 + 0.20962741563786008230e0 * t17616 * t340 - 0.27950322085048010973e0 * t17619 * t340 - 0.62888224691358024691e-1 * t17622 * t340 - 0.24e2 * t16197 * t5713 - 0.6e1 * t1101 * t17627 - 0.9e1 / 0.50e2 * t4278 * t17630 - 0.9e1 / 0.100e3 * t4278 * t17633 - 0.35217405827160493826e-1 * t1795 * t17636 - p->cam_beta * (t17678 + t17755 + t17842 + t17892) + 0.50310579753086419752e-1 * t5828 * t5754 - 0.83850966255144032920e-1 * t5835 * t5754 + 0.25155289876543209876e-1 * t1795 * t17874;
15496   t17927 = t17821 * t428 - 0.9e1 / 0.50e2 * t12440 * t5846 + 0.108e3 * t16222 * t5727 + 0.108e3 * t16226 * t5727 + 0.108e3 * t5453 * t17807 + 0.54e2 * t5453 * t17810 - 0.648e3 * t16236 * t17801 - 0.24e2 * t16241 * t5713 - 0.24e2 * t5459 * t17776 - 0.12e2 * t5459 * t17778 - 0.30186347851851851852e0 * t5831 * t17646 + 0.2e1 * t5718 * t1339;
15497   t17929 = t1770 * t4189;
15498   t17939 = t5767 * t1291;
15499   t17944 = t1764 * t3805;
15500   t17947 = t3817 * t1763;
15501   t17948 = t1764 * t4083;
15502   t17951 = t3810 * t1763;
15503   t17954 = t274 * t41;
15504   t17955 = t1101 * t17954;
15505   t17958 = t1764 * t3803;
15506   t17961 = t1757 * t4272 - 0.9e1 / 0.100e3 * t17929 * t4190 + t17783 * t441 + t12341 * t1785 / 0.10e2 + t5841 * t4225 / 0.10e2 + t4275 * t5806 / 0.5e1 + t17939 * t1314 / 0.5e1 + t1342 * t17718 / 0.10e2 + 0.37732934814814814815e0 * t5831 * t17944 - 0.33959641333333333334e1 * t17947 * t17948 + 0.75465869629629629630e0 * t17951 * t5832 - 0.12577644938271604938e1 * t17955 * t5832 + 0.75465869629629629630e0 * t5831 * t17958;
15507   t17963 = t17611 + t17902 + t17927 + t17961;
15508   t17964 = t1521 * t17963;
15509   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15510     v3rho2tau[5] = -0.4e1 / 0.3e1 * t17468 - t17364 - t17482 - t1352 * t17568 / 0.6e1 - t1352 * t17572 - t1352 * t17575 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t17964;
15511 
15512   t17968 = t14520 * t6162 / 0.2e1;
15513   t17970 = t2774 * t6161 * t455;
15514   t17973 = t14100 * t1356;
15515   t17978 = t1495 * t4642;
15516   t17981 = t6098 * t731;
15517   t17984 = t7819 * t5883;
15518   t17989 = t1933 * t55;
15519   t17990 = t6143 * t506;
15520   t17993 = t57 * t502;
15521   t17996 = t13729 * t1372;
15522   t17999 = t1881 * t1372;
15523   t18000 = t17999 * t506;
15524   t18003 = t4500 * t4356;
15525   t18008 = t5883 * t506;
15526   t18011 = t1372 * t4356;
15527   t18016 = t2383 * t55;
15528   t18019 = t58 * t502;
15529   t18022 = -0.66e2 / 0.125e3 * t17984 * t506 + 0.12e2 / 0.25e2 * t4671 * t4356 + 0.12911755421886215040e-2 * t17989 * t17990 + 0.57385579652827622400e-2 * t6142 * t17993 + 0.95158987105624142661e-1 * t46 * t17996 + 0.49958468230452674897e-1 * t1367 * t18000 - 0.35684620164609053498e-1 * t46 * t18003 + 0.98e2 / 0.225e3 * t7878 * t5883 - 0.392e3 / 0.375e3 * t7883 * t18008 + 0.196e3 / 0.225e3 * t2383 * t18011 - 0.16737460732074723200e-2 * t2380 * t5891 + 0.23432445024904612480e-2 * t18016 * t17990 + 0.89266457237731857067e-2 * t753 * t18019;
15530   t18026 = t1356 * t4300;
15531   t18028 = t468 * t5857;
15532   t18029 = 0.2e1 * t18028;
15533   t18030 = t468 * t5855;
15534   t18032 = t1357 * t4300;
15535   t18034 = t5858 * t468;
15536   t18035 = 0.18e2 * t18034;
15537   t18036 = 0.4e1 * t18026 + t18029 + t5859 + 0.18e2 * t18030 + 0.36e2 * t18032 + t18035 + t5863;
15538   t18037 = t18036 * t32;
15539   t18044 = -0.12e2 * t478 * t17973 - 0.12e2 * t1855 * t6131 - 0.9e1 / 0.50e2 * t2394 * t17978 - t6139 + 0.171e3 / 0.1000e4 * t7915 * t17981 + t33 * t18022 + 0.2e1 * t1362 * t4687 + t18037 * t244 + t5865 * t756 + t13272 * t1495 / 0.5e1 + 0.2e1 * t4308 * t1512;
15540   t18045 = t6093 * t708;
15541   t18048 = t4310 * t244;
15542   t18051 = t13213 * t244;
15543   t18054 = t27 * t5855;
15544   t18055 = t18054 * t468;
15545   t18058 = t4317 * t4300;
15546   t18061 = t6996 * t5855;
15547   t18062 = t18061 * t468;
15548   t18065 = t478 * t1512;
15549   t18068 = t1862 * t1512;
15550   t18073 = t4660 * t18034;
15551   t18074 = 0.12e2 * t18073;
15552   t18075 = t1863 * t5857;
15553   t18076 = t18075 * t468;
15554   t18077 = t4654 * t18076;
15555   t18078 = 0.54e2 * t18077;
15556   t18079 = t18045 * t731 / 0.10e2 - 0.24e2 * t18048 * t4303 + 0.108e3 * t18051 * t4318 + 0.324e3 * t4654 * t18055 + 0.108e3 * t4654 * t18058 - 0.648e3 * t13254 * t18062 - 0.24e2 * t18065 * t4303 + 0.108e3 * t18068 * t4318 - 0.24e2 * t4660 * t18032 - t18074 + t18078;
15557   t18087 = t496 * t1356;
15558   t18089 = t46 * t18087 * t226;
15559   t18091 = t51 * t4300;
15560   t18093 = t46 * t18091 * t226;
15561   t18096 = t46 * t6103 * t468;
15562   t18099 = t46 * t4619 * t1356;
15563   t18102 = t46 * t1486 * t4300;
15564   t18104 = t720 * t5857;
15565   t18105 = t18104 * t226;
15566   t18106 = 0.146e3 / 0.135e3 * t18105;
15567   t18107 = t6110 * t468;
15568   t18108 = 0.292e3 / 0.135e3 * t18107;
15569   t18113 = t723 * t5857;
15570   t18114 = 0.146e3 / 0.135e3 * t18113;
15571   t18115 = -0.10073e5 / 0.787320e6 * t18019 - 0.73e2 / 0.3645e4 * t18089 + 0.73e2 / 0.9720e4 * t18093 - 0.73e2 / 0.4860e4 * t18096 + 0.73e2 / 0.3645e4 * t18099 - 0.73e2 / 0.9720e4 * t18102 - t18106 - t6112 + t18108 + 0.292e3 / 0.135e3 * t720 * t5855 + 0.584e3 / 0.135e3 * t1490 * t4300 + t18114 + t6116;
15572   t18120 = t5864 * t477;
15573   t18127 = t6152 * t26;
15574   t18128 = t18127 * t468;
15575   t18131 = t4667 * t4300;
15576   t18136 = -0.9e1 / 0.100e3 * t7894 * t6098 + t2391 * t6117 / 0.10e2 + t474 * t6152 + t759 * t18115 / 0.10e2 + t4690 * t4642 / 0.5e1 - 0.6e1 * t18120 * t739 - 0.12e2 * t13277 * t1502 - 0.12e2 * t4310 * t4657 - 0.6e1 * t478 * t18128 - 0.12e2 * t478 * t18131 - 0.12e2 * t1855 * t6134;
15577   t18161 = t1855 * t5862;
15578   t18162 = 0.6e1 * t18161;
15579   t18163 = t1862 * t18076;
15580   t18164 = 0.54e2 * t18163;
15581   t18165 = t478 * t18034;
15582   t18166 = 0.12e2 * t18165;
15583   t18167 = -0.108e3 * t13213 * t4318 + 0.12e2 * t13277 * t1359 + 0.12e2 * t18030 * t478 + 0.24e2 * t18032 * t478 - 0.324e3 * t18055 * t1862 - 0.108e3 * t18058 * t1862 + 0.648e3 * t18062 * t6995 + 0.6e1 * t18120 * t471 + 0.12e2 * t1855 * t5860 + 0.24e2 * t4303 * t4310 + 0.12e2 * t4305 * t4310 - 0.54e2 * t6086 * t6986 - t18037 + t18162 - t18164 + t18166 + t6092;
15584   t18175 = t7839 * t5855;
15585   t18178 = t7911 * t5855;
15586   t18181 = t244 * t468;
15587   t18182 = t18181 * t5855;
15588   t18185 = t1855 * t6137;
15589   t18186 = 0.6e1 * t18185;
15590   t18187 = t2356 * t5857;
15591   t18188 = t478 * t18187;
15592   t18189 = 0.6e1 * t18188;
15593   t18190 = t6117 * t731;
15594   t18195 = t2305 * t6117;
15595   t18196 = t18195 * t731;
15596   t18199 = t160 * t468;
15597   t18200 = t18199 * t5855;
15598   t18203 = t7304 * t5855;
15599   t18206 = t4607 * t4642;
15600   t18211 = t7029 * t6098;
15601   t18212 = t18211 * t731;
15602   t18223 = t7314 * t5855;
15603   t18228 = -0.9e1 / 0.100e3 * t208 * t18196 - 0.12e2 * t478 * t18200 - 0.12e2 * t478 * t18203 - 0.9e1 / 0.50e2 * t208 * t18206 - 0.9e1 / 0.50e2 * t1478 * t4608 + 0.171e3 / 0.1000e4 * t208 * t18212 - 0.12e2 * t13277 * t1364 - 0.12e2 * t4310 * t4321 - 0.12e2 * t4310 * t4327 - 0.6e1 * t18120 * t480 + 0.54e2 * t1862 * t18223 - 0.12e2 * t4310 * t4332;
15604   t18243 = t708 * t18115;
15605   t18250 = t1855 * t5880;
15606   t18251 = 0.6e1 * t18250;
15607   t18252 = t6082 * t26;
15608   t18253 = t18252 * t468;
15609   t18256 = 0.54e2 * t6986 * t5871 + t1478 * t4643 / 0.5e1 + t4597 * t1496 / 0.5e1 + t4599 * t1496 / 0.5e1 + t6094 * t732 / 0.10e2 + t638 * t6118 / 0.10e2 + t702 * t6118 / 0.10e2 + t208 * t18243 / 0.10e2 - 0.9e1 / 0.100e3 * t638 * t6099 - 0.9e1 / 0.100e3 * t702 * t6099 - t18251 - 0.6e1 * t478 * t18253;
15610   t18258 = t4331 * t4300;
15611   t18263 = t1868 * t5857;
15612   t18264 = t478 * t18263;
15613   t18265 = 0.6e1 * t18264;
15614   t18266 = t13369 * t1356;
15615   t18271 = t478 * t1473;
15616   t18276 = t18167 * t207;
15617   t18278 = t4310 * t160;
15618   t18281 = t13213 * t160;
15619   t18288 = t6077 * rho[0];
15620   t18289 = 0.1e1 / t18288;
15621   t18290 = t18289 * t581;
15622   t18295 = t1881 * t63;
15623   t18296 = t18295 * t506;
15624   t18299 = t5977 * t575;
15625   t18302 = t4405 * t51;
15626   t18305 = t1461 * t212;
15627   t18308 = t13981 * t18008;
15628   t18311 = t4558 * t18011;
15629   t18316 = t581 * t502;
15630   t18319 = t6078 * t1881;
15631   t18320 = t18319 * t506;
15632   t18323 = -0.57275491621318330108e-4 * t569 * t5991 - 0.57275491621318330108e-4 * t576 * t5991 + 0.27920303838531872239e-4 * t6076 * t18290 + 0.52659211111111111112e-1 * t4496 * t1466 + 0.80185688269845662151e-4 * t121 * t18296 + 0.35e2 / 0.81e2 * t18299 * t124 + 0.36552339300411522634e-1 * t18302 * t124 + 0.29489158222222222222e-1 * t18305 * t4559 - 0.35386989866666666666e-1 * t4557 * t18308 + 0.29489158222222222222e-1 * t4557 * t18311 - 0.14042456296296296297e0 * t1461 * t4418 + 0.30546928864703109391e-3 * t121 * t18316 + 0.48860531717430776419e-5 * t6076 * t18320;
15633   t18324 = t621 * sigma[0];
15634   t18351 = t1934 * t55;
15635   t18354 = -0.34900379798164840299e-5 * t18324 * t6079 - 0.66e2 / 0.125e3 * t7820 * t18008 + 0.12e2 / 0.25e2 * t1934 * t18011 + 0.12e2 / 0.25e2 * t13991 * t4554 - 0.21063684444444444444e-1 * t156 * t18003 - 0.70212281481481481483e-1 * t6062 * t626 - 0.28e2 / 0.81e2 * t4517 * t4511 - 0.14620935720164609054e-1 * t13746 * t1425 - 0.14620935720164609054e-1 * t4504 * t4511 + 0.98e2 / 0.405e3 * t2068 * t5988 - 0.2e1 / 0.5e1 * t4580 * t4356 + 0.6e1 / 0.25e2 * t7734 * t5883 + 0.38989161920438957477e-1 * t13743 * t1425 + 0.12911755421886215040e-2 * t18351 * t17990;
15636   t18356 = t5978 * t41;
15637   t18359 = t5981 * t41;
15638   t18366 = t5935 * t543;
15639   t18375 = t7574 * t18008;
15640   t18378 = t1928 * t18011;
15641   t18387 = -0.14e2 / 0.81e2 * t18356 * t583 - 0.14620935720164609054e-1 * t18359 * t583 - 0.28e2 / 0.81e2 * t13492 * t1425 - 0.28e2 / 0.81e2 * t13738 * t1425 - t18366 * t506 / 0.5e1 - 0.2e1 / 0.5e1 * t14002 * t1372 + 0.56169825185185185184e-1 * t156 * t17996 + 0.20469310008230452676e-1 * t4504 * t4573 - 0.392e3 / 0.675e3 * t579 * t18375 + 0.196e3 / 0.405e3 * t579 * t18378 + 0.196e3 / 0.405e3 * t4517 * t4573 - 0.21063684444444444444e-1 * t4497 * t1470 - 0.10531842222222222222e-1 * t6062 * t630;
15642   t18390 = 0.11e2 / 0.5400e4 * t490 * t7442 * t5884;
15643   t18391 = t5884 * t506;
15644   t18395 = t513 * t5883;
15645   t18396 = t18395 * t454;
15646   t18400 = t1373 * t4356;
15647   t18405 = t37 * t489 * t484;
15648   t18407 = 0.99627742452825733333e-5 * t18405 * t5892;
15649   t18408 = t1952 * t71;
15650   t18409 = t18408 * t55;
15651   t18410 = t18409 * t17990;
15652   t18414 = t492 * t513 * t55;
15653   t18415 = t6143 * t454;
15654   t18416 = t18414 * t18415;
15655   t18419 = t5890 * t18019;
15656   t18423 = my_piecewise3(t76, 0, -t18390 - 0.77e2 / 0.6000e4 * t490 * t7409 * t18391 - 0.11e2 / 0.5400e4 * t490 * t1953 * t18396 + 0.11e2 / 0.900e3 * t490 * t1953 * t18400 + t18407 + 0.32877155009432492000e-4 * t5889 * t18410 + 0.99627742452825733333e-5 * t5889 * t18416 + 0.15940438792452117333e-3 * t5889 * t18419);
15657   t18437 = t7643 * t5901;
15658   t18440 = t519 * t5901;
15659   t18441 = t7699 * t18440;
15660   t18443 = t1377 * t4362;
15661   t18448 = t519 * t5896;
15662   t18462 = t5902 * t557;
15663   t18464 = t4399 * t4386;
15664   t18466 = t7504 * t5901;
15665   t18468 = 0.5e1 / 0.2e1 * t18466 * t557;
15666   t18469 = t1999 * t5896;
15667   t18470 = t18469 * t557;
15668   t18472 = t525 * t18423;
15669   t18475 = t2006 * t5896;
15670   t18480 = t7499 * t5901;
15671   t18483 = t1377 * t87;
15672   t18493 = t79 * t18423;
15673   t18494 = t18493 * t86;
15674   t18495 = 0.15e2 / 0.2e1 * t18462 - 0.4e1 * t18464 - t18468 - 0.2e1 * t18470 + t18472 * t86 / 0.2e1 + t18475 * t557 / 0.4e1 + t4538 * t4386 / 0.2e1 + t18480 * t557 / 0.8e1 - 0.8e1 * t18483 * t4362 - 0.2e1 * t1454 * t4386 - 0.4e1 * t2836 * t5896 - t615 * t5962 - 0.4e1 * t529 * t18423 - t18494;
15675   t18498 = 0.7e1 / 0.2e1 * t5918 * t557 - t13834 * t4386 - t18437 * t557 / 0.4e1 - 0.6e1 * t18441 + 0.4e1 * t1991 * t18443 - t2814 * t5962 / 0.2e1 + 0.2e1 * t1991 * t18448 - t521 * t18423 + 0.2e1 * t18423 * t90 + 0.2e1 * t5896 * t534 + 0.4e1 * t4362 * t1389 + 0.4e1 * t1377 * t4546 + 0.2e1 * t519 * t5929 + 0.2e1 * t77 * t18495;
15676   t18501 = -0.8e1 / 0.3e1 * t18423 * t93 - 0.8e1 / 0.3e1 * t5896 * t537 - 0.16e2 / 0.3e1 * t4362 * t1392 - 0.16e2 / 0.3e1 * t1377 * t4549 - 0.8e1 / 0.3e1 * t519 * t5932 - 0.8e1 / 0.3e1 * t77 * t18498;
15677   t18511 = t497 * t6072;
15678   t18516 = t1418 * t496;
15679   t18533 = t84 * t18423;
15680   t18542 = t18423 * t81;
15681   t18554 = t18423 * t86;
15682   t18562 = t6015 * t525;
15683   t18566 = t83 * t6038;
15684   t18574 = t557 * t5896;
15685   t18576 = t2100 * t5962 / 0.2e1 + t598 * t18554 / 0.2e1 + t7664 * t5959 / 0.4e1 + t4447 * t4386 - 0.3e1 / 0.2e1 * t7679 * t5959 + t18562 * t557 / 0.2e1 + t13676 * t1407 + 0.72e2 * t18566 * t519 + 0.144e3 * t7634 * t5901 + 0.4e1 * t614 * t5915 * t519 - t2138 * t18574;
15686   t18582 = t5959 * t519;
15687   t18585 = t1407 * t4362;
15688   t18602 = -0.3e1 * t13678 * t4383 + t13671 * t4383 / 0.2e1 + 0.6e1 * t7682 * t18582 - 0.3e1 * t2102 * t18585 - 0.9e1 / 0.4e1 * t7667 * t18582 - 0.3e1 / 0.2e1 * t2102 * t18574 + t2107 * t18574 / 0.4e1 + t2107 * t18585 / 0.2e1 + t7655 * t18582 / 0.8e1 + 0.7e1 * t7673 * t18582 - 0.2e1 * t2138 * t18585;
15689   t18628 = t83 * t18423;
15690   t18636 = t101 * t18423;
15691   t18646 = t141 * t5901;
15692   t18651 = t132 * t5896;
15693   t18656 = -0.1105920e7 * t134 * t18423 + 0.3072e4 * t1401 * t4362 - 0.23040e5 * t1403 * t4362 + 0.26943e5 * t141 * t18423 + 0.323316e6 * t1446 * t4362 - 0.61931520e8 * t18646 * t519 - 0.8847360e7 * t18651 * t519 - 0.17694720e8 * t4362 * t4440 + 0.1536e4 * t519 * t5950 - 0.34560e5 * t519 * t5952 - 0.11520e5 * t519 * t5954 + 0.808290e6 * t519 * t6034 + 0.161658e6 * t519 * t6036 - 0.8e1 * t18423 + 0.1536e4 * t18440 + 0.768e3 * t18628 - 0.2880e4 * t18636;
15694   t18660 = t77 * t18423;
15695   t18662 = t5999 * t519;
15696   t18664 = t1430 * t4362;
15697   t18666 = t6001 * t519;
15698   t18668 = t128 * t18423;
15699   t18676 = t130 * t18423;
15700   t18678 = 0.307200e6 * t1432 * t4362 + 0.614400e6 * t519 * t6003 + 0.153600e6 * t519 * t6005 + 0.896e3 * t18443 + 0.448e3 * t18448 + 0.448e3 * t18660 - 0.34560e5 * t18662 - 0.34560e5 * t18664 - 0.17280e5 * t18666 - 0.5760e4 * t18668 + 0.30720e5 * t18676;
15701   t18681 = -t7644 * t18582 / 0.2e1 - 0.12e2 * t614 * t5912 * t519 + 0.8e1 * t614 * t1382 * t4362 - 0.360e3 * t18441 + 0.144e3 * t13704 * t1377 + 0.144e3 * t4464 * t4362 + 0.72e2 * t2113 * t5896 + 0.72e2 * t601 * t18423 + 0.144e3 * t11338 * t5901 + t18656 * t86 + 0.24e2 * t128 * t18678;
15702   t18683 = 0.240e3 * t106 * t18542 + 0.288e3 * t13711 * t4368 - 0.960e3 * t1387 * t4386 + 0.480e3 * t1411 * t4480 + 0.288e3 * t18443 * t2110 + 0.144e3 * t18448 * t2110 - 0.2e1 * t18533 * t614 - 0.480e3 * t557 * t5927 + 0.240e3 * t561 * t6044 + 0.720e3 * t5959 * t615 + t18576 + t18602 + t18681;
15703   t18687 = (0.8e1 / 0.7e1 * t18423 * t151 + 0.8e1 / 0.7e1 * t5896 * t618 + 0.16e2 / 0.7e1 * t4362 * t1457 + 0.16e2 / 0.7e1 * t1377 * t4492 + 0.8e1 / 0.7e1 * t519 * t6057 + 0.8e1 / 0.7e1 * t77 * t18683) * t41;
15704   t18688 = t18687 * t45;
15705   t18697 = t1377 * t109;
15706   t18714 = t77 * t5974;
15707   t18720 = t5956 * t525;
15708   t18741 = 0.20e2 * t18462 - 0.10e2 * t18464 - t18468 - 0.5e1 * t18470 + t18720 * t557 / 0.2e1 + t13828 * t1407 + t4378 * t4386 - 0.3e1 / 0.2e1 * t7535 * t5959 + t2042 * t5962 / 0.2e1 + t556 * t18554 / 0.2e1 + t7516 * t5959 / 0.4e1 - 0.10e2 * t18494 + 0.10e2 * t78 * t18423 * t81 - 0.3e1 * t13831 * t4383 + t13822 * t4383 / 0.2e1;
15709   t18759 = 0.256e3 * t18668;
15710   t18760 = 0.1536e4 * t18662;
15711   t18761 = 0.1536e4 * t18664;
15712   t18762 = 0.768e3 * t18666;
15713   t18766 = 0.80e2 * t18443 + 0.40e2 * t18448 + 0.40e2 * t18660 - t18760 - t18761 - t18762 - t18759;
15714   t18768 = 0.6e1 * t7538 * t18582 - 0.3e1 * t2044 * t18585 - 0.9e1 / 0.4e1 * t7505 * t18582 - 0.3e1 / 0.2e1 * t2044 * t18574 + t2051 * t18574 / 0.4e1 + t2051 * t18585 / 0.2e1 + t7500 * t18582 / 0.8e1 - 0.144e3 * t18443 - 0.72e2 * t18448 - 0.72e2 * t18660 + t18759 + t18760 + t18761 + t18762 + t18766 * t86;
15715   t18769 = t18741 + t18768;
15716   t18772 = 0.96e2 * t1377 * t13795 + 0.96e2 * t1377 * t14854 + 0.48e2 * t18423 * t547 + 0.96e2 * t18697 * t4362 + 0.48e2 * t18714 * t519 + 0.24e2 * t18769 * t83 + 0.48e2 * t2028 * t5896 + 0.48e2 * t2855 * t5896 + 0.96e2 * t4362 * t4365 + 0.48e2 * t565 * t5901;
15717   t18773 = t18772 * t120;
15718   t18778 = t18501 * t98 + 0.29489158222222222222e-1 * t156 * t4559 + 0.14744579111111111111e-1 * t623 * t6073 - 0.21063684444444444444e-1 * t1462 * t4566 + 0.56169825185185185184e-1 * t1462 * t4562 - 0.39318877629629629629e-1 * t156 * t18511 + 0.57385579652827622400e-2 * t544 * t18019 - 0.97472904801097393691e-1 * t18516 * t124 + 0.26329605555555555556e-1 * t18688 * t157 - 0.21063684444444444445e-1 * t1462 * t4501 - 0.21063684444444444444e-1 * t623 * t6069 - 0.10759796184905179200e-2 * t1900 * t5891 + 0.35e2 / 0.81e2 * t18773 * t124 + 0.98e2 / 0.405e3 * t2071 * t5988;
15719   t18780 = t18323 + t18354 + t18387 + t18778;
15720   t18783 = -0.648e3 * t13333 * t18062 + 0.2e1 * t1473 * t4308 - 0.12e2 * t18258 * t478 - 0.12e2 * t18266 * t478 - 0.24e2 * t18271 * t4303 + t18276 * t230 - 0.24e2 * t18278 * t4303 + 0.108e3 * t18281 * t4318 - 0.12e2 * t1855 * t5877 + t18780 * t33 + t474 * t6082 - t18265;
15721   t18784 = t6093 * t701;
15722   t18792 = t1862 * t1473;
15723   t18797 = t4324 * t18034;
15724   t18798 = 0.12e2 * t18797;
15725   t18799 = t4316 * t18076;
15726   t18800 = 0.54e2 * t18799;
15727   t18805 = 0.2e1 * t1362 * t4584 + t160 * t18037 - 0.24e2 * t18032 * t4324 + 0.324e3 * t18055 * t4316 + 0.108e3 * t18058 * t4316 - 0.12e2 * t1855 * t5874 + t18784 * t230 + 0.108e3 * t18792 * t4318 + t5865 * t633 - t18798 + t18800 - t5882;
15728   t18809 = t18167 * t230 - 0.12e2 * t4310 * t4663 - 0.12e2 * t4310 * t4668 + 0.54e2 * t6986 * t6128 + 0.54e2 * t1862 * t18175 - 0.12e2 * t478 * t18178 - 0.12e2 * t478 * t18182 - t18186 - t18189 - 0.9e1 / 0.100e3 * t2394 * t18190 - 0.9e1 / 0.50e2 * t13201 * t4695 - p->cam_beta * (t18228 + t18256 + t18783 + t18805);
15729   t18811 = t18044 + t18079 + t18136 + t18809;
15730   t18812 = t1353 * t18811;
15731   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15732     v3rhosigma2[0] = -t17968 - t1352 * t17970 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t18812;
15733 
15734   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15735     v3rhosigma2[1] = 0.0e0;
15736 
15737   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15738     v3rhosigma2[2] = 0.0e0;
15739 
15740   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15741     v3rhosigma2[3] = 0.0e0;
15742 
15743   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15744     v3rhosigma2[4] = 0.0e0;
15745 
15746   t18816 = t14520 * t6470 / 0.2e1;
15747   t18818 = t2415 * t6469 * t767;
15748   t18826 = t10327 * t6165;
15749   t18829 = t15125 * t1524;
15750   t18832 = t10335 * t6165;
15751   t18835 = t3160 * t6167;
15752   t18837 = 0.6e1 * t1101 * t18835;
15753   t18840 = 0.11e2 / 0.5400e4 * t490 * t10366 * t6194;
15754   t18841 = t780 * t6193;
15755   t18842 = t18841 * t781;
15756   t18847 = 0.99627742452825733333e-5 * t18405 * t6200;
15757   t18849 = t1108 * t780 * t55;
15758   t18850 = t6451 * t781;
15759   t18851 = t18849 * t18850;
15760   t18855 = my_piecewise3(t295, 0, -t18840 - 0.11e2 / 0.5400e4 * t490 * t3882 * t18842 + t18847 + 0.99627742452825733333e-5 * t5889 * t18851);
15761   t18869 = t8035 * t6209;
15762   t18872 = t787 * t6209;
15763   t18873 = t8039 * t18872;
15764   t18875 = t1545 * t4723;
15765   t18880 = t787 * t6204;
15766   t18894 = t6210 * t820;
15767   t18896 = t4739 * t4791;
15768   t18898 = t8058 * t6209;
15769   t18900 = 0.5e1 / 0.2e1 * t18898 * t820;
15770   t18901 = t2472 * t6204;
15771   t18902 = t18901 * t820;
15772   t18904 = t793 * t18855;
15773   t18907 = t2479 * t6204;
15774   t18912 = t8068 * t6209;
15775   t18915 = t1545 * t305;
15776   t18925 = t297 * t18855;
15777   t18926 = t18925 * t304;
15778   t18927 = 0.15e2 / 0.2e1 * t18894 - 0.4e1 * t18896 - t18900 - 0.2e1 * t18902 + t18904 * t304 / 0.2e1 + t18907 * t820 / 0.4e1 + t4745 * t4791 / 0.2e1 + t18912 * t820 / 0.8e1 - 0.8e1 * t18915 * t4723 - 0.2e1 * t1622 * t4791 - 0.4e1 * t3214 * t6204 - t864 * t6270 - 0.4e1 * t797 * t18855 - t18926;
15779   t18930 = 0.7e1 / 0.2e1 * t6226 * t820 - t14200 * t4791 - t18869 * t820 / 0.4e1 - 0.6e1 * t18873 + 0.4e1 * t2464 * t18875 - t3192 * t6270 / 0.2e1 + 0.2e1 * t2464 * t18880 - t789 * t18855 + 0.2e1 * t18855 * t308 + 0.2e1 * t6204 * t802 + 0.4e1 * t4723 * t1557 + 0.4e1 * t1545 * t4755 + 0.2e1 * t787 * t6237 + 0.2e1 * t296 * t18927;
15780   t18933 = -0.8e1 / 0.3e1 * t18855 * t311 - 0.8e1 / 0.3e1 * t6204 * t805 - 0.16e2 / 0.3e1 * t4723 * t1560 - 0.16e2 / 0.3e1 * t1545 * t4758 - 0.8e1 / 0.3e1 * t787 * t6240 - 0.8e1 / 0.3e1 * t296 * t18930;
15781   t18941 = t1545 * t327;
15782   t18958 = t296 * t6282;
15783   t18961 = t6307 * t787;
15784   t18962 = 0.1536e4 * t18961;
15785   t18963 = t6309 * t787;
15786   t18964 = 0.768e3 * t18963;
15787   t18965 = t1598 * t4723;
15788   t18966 = 0.1536e4 * t18965;
15789   t18975 = t6267 * t787;
15790   t18978 = t1575 * t4723;
15791   t18983 = t6270 * t787;
15792   t18992 = t6264 * t793;
15793   t18995 = t18962 + t18964 + t18966 + 0.10e2 * t78 * t18855 * t299 - 0.10e2 * t18926 - 0.3e1 * t14275 * t4788 + t14269 * t4788 / 0.2e1 + 0.6e1 * t8140 * t18975 - 0.3e1 * t2517 * t18978 - 0.9e1 / 0.4e1 * t8120 * t18975 - 0.3e1 / 0.2e1 * t2517 * t18983 + t2524 * t18983 / 0.4e1 + t2524 * t18978 / 0.2e1 + t8127 * t18975 / 0.8e1 + t18992 * t820 / 0.2e1;
15794   t19002 = t18855 * t304;
15795   t19012 = t296 * t18855;
15796   t19014 = t344 * t18855;
15797   t19015 = 0.256e3 * t19014;
15798   t19016 = 0.80e2 * t18875 + 0.40e2 * t18880 + 0.40e2 * t19012 - t18962 - t18966 - t18964 - t19015;
15799   t19021 = t14265 * t1575 + t4783 * t4791 - 0.3e1 / 0.2e1 * t8137 * t6267 + t2515 * t6270 / 0.2e1 + t819 * t19002 / 0.2e1 + t8117 * t6267 / 0.4e1 + 0.20e2 * t18894 - 0.10e2 * t18896 - t18900 - 0.5e1 * t18902 + t19016 * t304 - 0.144e3 * t18875 - 0.72e2 * t18880 - 0.72e2 * t19012 + t19015;
15800   t19022 = t18995 + t19021;
15801   t19025 = 0.96e2 * t14257 * t1545 + 0.96e2 * t15180 * t1545 + 0.48e2 * t18855 * t810 + 0.96e2 * t18941 * t4723 + 0.48e2 * t18958 * t787 + 0.24e2 * t19022 * t301 + 0.48e2 * t2501 * t6204 + 0.48e2 * t3233 * t6204 + 0.96e2 * t4723 * t4771 + 0.48e2 * t6209 * t828;
15802   t19026 = t19025 * t336;
15803   t19029 = t4806 * t274;
15804   t19060 = t301 * t6346;
15805   t19080 = t18855 * t299;
15806   t19090 = t6323 * t793;
15807   t19095 = 0.144e3 * t2574 * t18880 + 0.480e3 * t1579 * t4871 + 0.720e3 * t6267 * t864 + 0.240e3 * t824 * t6352 + 0.240e3 * t324 * t19080 - 0.480e3 * t6235 * t820 - 0.960e3 * t1555 * t4791 - 0.2e1 * t863 * t302 * t18855 + t19090 * t820 / 0.2e1 + t14368 * t1575 + t4838 * t4791;
15808   t19118 = -0.3e1 / 0.2e1 * t8249 * t6267 + t2564 * t6270 / 0.2e1 + t847 * t19002 / 0.2e1 - 0.360e3 * t18873 - 0.9e1 / 0.4e1 * t8222 * t18975 - 0.3e1 / 0.2e1 * t2566 * t18983 + t2571 * t18983 / 0.4e1 + t2571 * t18978 / 0.2e1 + t8227 * t18975 / 0.8e1 + 0.7e1 * t8255 * t18975 - 0.2e1 * t2602 * t18978;
15809   t19152 = t346 * t18855;
15810   t19154 = 0.307200e6 * t1600 * t4723 + 0.614400e6 * t6311 * t787 + 0.153600e6 * t6313 * t787 + 0.896e3 * t18875 + 0.448e3 * t18880 - 0.34560e5 * t18961 - 0.17280e5 * t18963 - 0.34560e5 * t18965 + 0.448e3 * t19012 - 0.5760e4 * t19014 + 0.30720e5 * t19152;
15811   t19163 = t301 * t18855;
15812   t19171 = t319 * t18855;
15813   t19181 = t357 * t6209;
15814   t19186 = t348 * t6204;
15815   t19191 = 0.3072e4 * t1569 * t4723 - 0.23040e5 * t1571 * t4723 + 0.323316e6 * t1614 * t4723 - 0.1105920e7 * t18855 * t350 + 0.26943e5 * t18855 * t357 - 0.61931520e8 * t19181 * t787 - 0.8847360e7 * t19186 * t787 - 0.17694720e8 * t4723 * t4831 + 0.1536e4 * t6258 * t787 - 0.34560e5 * t6260 * t787 - 0.11520e5 * t6262 * t787 + 0.808290e6 * t6342 * t787 + 0.161658e6 * t6344 * t787 - 0.8e1 * t18855 + 0.1536e4 * t18872 + 0.768e3 * t19163 - 0.2880e4 * t19171;
15816   t19193 = -t8240 * t18975 / 0.2e1 - 0.12e2 * t863 * t6220 * t787 + 0.8e1 * t863 * t1550 * t4723 + 0.4e1 * t863 * t6223 * t787 - t2602 * t18983 - 0.3e1 * t14358 * t4788 + t14373 * t4788 / 0.2e1 + 0.6e1 * t8252 * t18975 - 0.3e1 * t2566 * t18978 + 0.24e2 * t344 * t19154 + t19191 * t304;
15817   t19195 = 0.144e3 * t8260 * t6209 + 0.144e3 * t14398 * t1545 + 0.144e3 * t4855 * t4723 + 0.72e2 * t2577 * t6204 + 0.72e2 * t850 * t18855 + 0.72e2 * t19060 * t787 + 0.144e3 * t10701 * t6209 + t8219 * t6267 / 0.4e1 + 0.288e3 * t2574 * t18875 + 0.288e3 * t14387 * t4729 + t19095 + t19118 + t19193;
15818   t19199 = (0.8e1 / 0.7e1 * t18855 * t367 + 0.8e1 / 0.7e1 * t6204 * t867 + 0.16e2 / 0.7e1 * t4723 * t1625 + 0.16e2 / 0.7e1 * t1545 * t4883 + 0.8e1 / 0.7e1 * t787 * t6365 + 0.8e1 / 0.7e1 * t296 * t19195) * t41;
15819   t19200 = t19199 * t45;
15820   t19211 = t870 * sigma[2];
15821   t19214 = t18933 * t316 - 0.2e1 / 0.5e1 * t15609 * t1540 + 0.6e1 / 0.25e2 * t10354 * t6193 - 0.10759796184905179200e-2 * t3230 * t6199 + 0.35e2 / 0.81e2 * t19026 * t340 + 0.36552339300411522634e-1 * t19029 * t340 - 0.28e2 / 0.81e2 * t15389 * t1593 - 0.14620935720164609054e-1 * t15614 * t1593 + 0.98e2 / 0.405e3 * t3282 * t6296 - 0.57275491621318330108e-4 * t832 * t6299 + 0.26329605555555555556e-1 * t19200 * t373 + 0.52659211111111111112e-1 * t4887 * t1634 - 0.21063684444444444444e-1 * t4888 * t1638 - 0.21063684444444444444e-1 * t872 * t6377 + 0.14744579111111111111e-1 * t872 * t6381 - 0.34900379798164840299e-5 * t19211 * t6387;
15822   t19216 = t6401 * t933;
15823   t19224 = t6175 * t875 - 0.12e2 * t5116 * t4712 + 0.2e1 * t1530 * t4895 + 0.54e2 * t3817 * t18826 - 0.12e2 * t1101 * t18829 - 0.12e2 * t1101 * t18832 - t18837 + t269 * t19214 + t19216 * t428 + t4897 * t1664 / 0.5e1 - 0.9e1 / 0.100e3 * t934 * t6407 + t934 * t6426 / 0.10e2;
15824   t19226 = t1521 * p->cam_beta * t19224;
15825   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15826     v3rhosigma2[5] = -t18816 - t1352 * t18818 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t19226;
15827 
15828   t19230 = t2774 * t6161 * t944;
15829   t19238 = t8701 * t5855;
15830   t19241 = t14563 * t1356;
15831   t19244 = t8709 * t5855;
15832   t19247 = t2784 * t5857;
15833   t19249 = 0.6e1 * t478 * t19247;
15834   t19250 = t18395 * t943;
15835   t19254 = t6143 * t943;
15836   t19255 = t18414 * t19254;
15837   t19259 = my_piecewise3(t76, 0, -t18390 - 0.11e2 / 0.5400e4 * t490 * t1953 * t19250 + t18407 + 0.99627742452825733333e-5 * t5889 * t19255);
15838   t19275 = t954 * t5901;
15839   t19276 = t7699 * t19275;
15840   t19278 = t1377 * t4919;
15841   t19283 = t954 * t5896;
15842   t19297 = t5902 * t982;
15843   t19299 = t4399 * t4986;
15844   t19302 = 0.5e1 / 0.2e1 * t18466 * t982;
15845   t19303 = t18469 * t982;
15846   t19305 = t525 * t19259;
15847   t19323 = t79 * t19259;
15848   t19324 = t19323 * t86;
15849   t19325 = 0.15e2 / 0.2e1 * t19297 - 0.4e1 * t19299 - t19302 - 0.2e1 * t19303 + t19305 * t86 / 0.2e1 + t18475 * t982 / 0.4e1 + t4538 * t4986 / 0.2e1 + t18480 * t982 / 0.8e1 - 0.8e1 * t18483 * t4919 - 0.2e1 * t1454 * t4986 - 0.4e1 * t4943 * t5896 - t1023 * t5962 - 0.4e1 * t529 * t19259 - t19324;
15850   t19328 = 0.7e1 / 0.2e1 * t5918 * t982 - t13834 * t4986 - t18437 * t982 / 0.4e1 - 0.6e1 * t19276 + 0.4e1 * t1991 * t19278 - t4923 * t5962 / 0.2e1 + 0.2e1 * t1991 * t19283 - t521 * t19259 + 0.2e1 * t19259 * t90 + 0.2e1 * t5896 * t966 + 0.4e1 * t4919 * t1389 + 0.4e1 * t1377 * t4951 + 0.2e1 * t954 * t5929 + 0.2e1 * t77 * t19325;
15851   t19331 = -0.8e1 / 0.3e1 * t19259 * t93 - 0.8e1 / 0.3e1 * t5896 * t969 - 0.16e2 / 0.3e1 * t4919 * t1392 - 0.16e2 / 0.3e1 * t1377 * t4954 - 0.8e1 / 0.3e1 * t954 * t5932 - 0.8e1 / 0.3e1 * t77 * t19328;
15852   t19343 = t954 * t1415;
15853   t19360 = t5959 * t954;
15854   t19363 = t1407 * t4919;
15855   t19368 = t5962 * t954;
15856   t19385 = t13822 * t4983 / 0.2e1 + 0.6e1 * t7538 * t19360 - 0.3e1 * t2044 * t19363 - 0.9e1 / 0.4e1 * t7505 * t19360 - 0.3e1 / 0.2e1 * t2044 * t19368 + t2051 * t19368 / 0.4e1 + t2051 * t19363 / 0.2e1 + t7500 * t19360 / 0.8e1 - 0.3e1 * t13831 * t4983 + t18720 * t982 / 0.2e1 + t14870 * t1407 + 0.20e2 * t19297 - 0.10e2 * t19299 - t19302 + t4378 * t4986;
15857   t19390 = t19259 * t86;
15858   t19395 = t5999 * t954;
15859   t19396 = 0.1536e4 * t19395;
15860   t19397 = t1430 * t4919;
15861   t19398 = 0.1536e4 * t19397;
15862   t19399 = t6001 * t954;
15863   t19400 = 0.768e3 * t19399;
15864   t19406 = t77 * t19259;
15865   t19408 = t128 * t19259;
15866   t19409 = 0.256e3 * t19408;
15867   t19410 = 0.80e2 * t19278 + 0.40e2 * t19283 + 0.40e2 * t19406 - t19396 - t19398 - t19400 - t19409;
15868   t19417 = -0.3e1 / 0.2e1 * t9094 * t5959 + t2874 * t5962 / 0.2e1 + t556 * t19390 / 0.2e1 + t9089 * t5959 / 0.4e1 + t19396 + t19398 + t19400 + 0.10e2 * t78 * t19259 * t81 + t19410 * t86 - 0.144e3 * t19278 - 0.72e2 * t19283 - 0.72e2 * t19406 + t19409 - 0.10e2 * t19324 - 0.5e1 * t19303;
15869   t19418 = t19385 + t19417;
15870   t19421 = 0.96e2 * t1377 * t14861 + 0.96e2 * t1377 * t19343 + 0.96e2 * t18697 * t4919 + 0.48e2 * t18714 * t954 + 0.48e2 * t19259 * t547 + 0.24e2 * t19418 * t83 + 0.48e2 * t2862 * t5896 + 0.96e2 * t4365 * t4919 + 0.48e2 * t4961 * t5896 + 0.48e2 * t5901 * t990;
15871   t19422 = t19421 * t120;
15872   t19425 = t5001 * t51;
15873   t19483 = t130 * t19259;
15874   t19485 = 0.307200e6 * t1432 * t4919 + 0.614400e6 * t6003 * t954 + 0.153600e6 * t6005 * t954 + 0.896e3 * t19278 + 0.448e3 * t19283 - 0.34560e5 * t19395 - 0.34560e5 * t19397 - 0.17280e5 * t19399 + 0.448e3 * t19406 - 0.5760e4 * t19408 + 0.30720e5 * t19483;
15875   t19494 = t83 * t19259;
15876   t19502 = t101 * t19259;
15877   t19520 = -0.1105920e7 * t134 * t19259 + 0.3072e4 * t1401 * t4919 - 0.23040e5 * t1403 * t4919 + 0.26943e5 * t141 * t19259 + 0.323316e6 * t1446 * t4919 - 0.61931520e8 * t18646 * t954 - 0.8847360e7 * t18651 * t954 - 0.17694720e8 * t4440 * t4919 + 0.1536e4 * t5950 * t954 - 0.34560e5 * t5952 * t954 - 0.11520e5 * t5954 * t954 + 0.808290e6 * t6034 * t954 + 0.161658e6 * t6036 * t954 - 0.8e1 * t19259 + 0.1536e4 * t19275 + 0.768e3 * t19494 - 0.2880e4 * t19502;
15878   t19537 = -0.360e3 * t19276 + 0.24e2 * t128 * t19485 + t19520 * t86 - 0.2e1 * t614 * t84 * t19259 + t18562 * t982 / 0.2e1 + t14609 * t1407 + t4447 * t4986 - 0.3e1 / 0.2e1 * t8910 * t5959 + t2930 * t5962 / 0.2e1 + t598 * t19390 / 0.2e1 + t8901 * t5959 / 0.4e1;
15879   t19551 = t19259 * t81;
15880   t19558 = t954 * t143;
15881   t19563 = 0.720e3 * t1023 * t5959 + 0.240e3 * t106 * t19551 + 0.288e3 * t13711 * t4926 - 0.960e3 * t1387 * t4986 + 0.480e3 * t1411 * t5063 + 0.288e3 * t19278 * t2110 + 0.144e3 * t19283 * t2110 + 0.144e3 * t19558 * t5901 + 0.144e3 * t5901 * t8954 - 0.480e3 * t5927 * t982 + 0.240e3 * t6044 * t986;
15882   t19586 = 0.144e3 * t14796 * t1377 + 0.144e3 * t4464 * t4919 + 0.72e2 * t2947 * t5896 + 0.72e2 * t601 * t19259 + 0.72e2 * t18566 * t954 - 0.3e1 * t2102 * t19363 - 0.9e1 / 0.4e1 * t7667 * t19360 - 0.3e1 / 0.2e1 * t2102 * t19368 + t2107 * t19368 / 0.4e1 + t2107 * t19363 / 0.2e1 + t7655 * t19360 / 0.8e1;
15883   t19588 = 0.7e1 * t7673 * t19360 - 0.2e1 * t2138 * t19363 - t7644 * t19360 / 0.2e1 - 0.12e2 * t614 * t5912 * t954 + 0.8e1 * t614 * t1382 * t4919 + 0.4e1 * t614 * t5915 * t954 - t2138 * t19368 - 0.3e1 * t13678 * t4983 + t13671 * t4983 / 0.2e1 + 0.6e1 * t7682 * t19360 + t19537 + t19563 + t19586;
15884   t19592 = (0.8e1 / 0.7e1 * t19259 * t151 + 0.8e1 / 0.7e1 * t5896 * t1026 + 0.16e2 / 0.7e1 * t4919 * t1457 + 0.16e2 / 0.7e1 * t1377 * t5075 + 0.8e1 / 0.7e1 * t954 * t6057 + 0.8e1 / 0.7e1 * t77 * t19588) * t41;
15885   t19593 = t19592 * t45;
15886   t19604 = t1029 * sigma[0];
15887   t19607 = t19331 * t98 - 0.2e1 / 0.5e1 * t14956 * t1372 + 0.6e1 / 0.25e2 * t9047 * t5883 - 0.10759796184905179200e-2 * t2852 * t5891 + 0.35e2 / 0.81e2 * t19422 * t124 + 0.36552339300411522634e-1 * t19425 * t124 - 0.28e2 / 0.81e2 * t14824 * t1425 - 0.14620935720164609054e-1 * t14831 * t1425 + 0.98e2 / 0.405e3 * t2904 * t5988 - 0.57275491621318330108e-4 * t994 * t5991 + 0.26329605555555555556e-1 * t19593 * t157 + 0.52659211111111111112e-1 * t5079 * t1466 - 0.21063684444444444444e-1 * t5080 * t1470 - 0.21063684444444444444e-1 * t1031 * t6069 + 0.14744579111111111111e-1 * t1031 * t6073 - 0.34900379798164840299e-5 * t19604 * t6079;
15888   t19609 = t6093 * t1074;
15889   t19617 = t5865 * t1034 - 0.12e2 * t4310 * t4911 + 0.2e1 * t1362 * t5087 + 0.54e2 * t1862 * t19238 - 0.12e2 * t478 * t19241 - 0.12e2 * t478 * t19244 - t19249 + t33 * t19607 + t19609 * t230 + t5089 * t1496 / 0.5e1 - 0.9e1 / 0.100e3 * t1075 * t6099 + t1075 * t6118 / 0.10e2;
15890   t19619 = t1353 * p->cam_beta * t19617;
15891   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15892     v3rhosigma2[6] = -t17968 - t1352 * t19230 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t19619;
15893 
15894   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15895     v3rhosigma2[7] = 0.0e0;
15896 
15897   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15898     v3rhosigma2[8] = 0.0e0;
15899 
15900   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15901     v3rhosigma2[9] = 0.0e0;
15902 
15903   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
15904     v3rhosigma2[10] = 0.0e0;
15905 
15906   t19623 = t2415 * t6469 * t1082;
15907   t19626 = t1663 * t5441;
15908   t19629 = t6425 * t1314;
15909   t19632 = t1524 * t5106;
15910   t19634 = t1091 * t6167;
15911   t19635 = 0.2e1 * t19634;
15912   t19636 = t1091 * t6165;
15913   t19638 = t1525 * t5106;
15914   t19640 = t6168 * t1091;
15915   t19641 = 0.18e2 * t19640;
15916   t19642 = 0.4e1 * t19632 + t19635 + t6169 + 0.18e2 * t19636 + 0.36e2 * t19638 + t19641 + t6173;
15917   t19643 = t19642 * t268;
15918   t19644 = t6174 * t1100;
15919   t19657 = t12322 * t6165;
15920   t19658 = t19657 * t1091;
15921   t19661 = t263 * t6165;
15922   t19662 = t19661 * t1091;
15923   t19665 = t5123 * t5106;
15924   t19674 = t3810 * t6172;
15925   t19675 = 0.6e1 * t19674;
15926   t19676 = t3818 * t6167;
15927   t19677 = t19676 * t1091;
15928   t19678 = t3817 * t19677;
15929   t19679 = 0.54e2 * t19678;
15930   t19680 = t1101 * t19640;
15931   t19681 = 0.12e2 * t19680;
15932   t19682 = 0.6e1 * t1094 * t19644 + 0.12e2 * t1101 * t19636 + 0.24e2 * t1101 * t19638 - 0.54e2 * t12312 * t6394 + 0.648e3 * t12321 * t19658 + 0.12e2 * t1527 * t16110 - 0.108e3 * t16173 * t5124 - 0.324e3 * t19662 * t3817 - 0.108e3 * t19665 * t3817 + 0.12e2 * t3810 * t6170 + 0.24e2 * t5109 * t5116 + 0.12e2 * t5111 * t5116 - t19643 + t19675 - t19679 + t19681 + t6400;
15933   t19692 = t6401 * t1291;
15934   t19695 = t3810 * t6445;
15935   t19696 = 0.6e1 * t19695;
15936   t19697 = t4240 * t6167;
15937   t19698 = t1101 * t19697;
15938   t19699 = 0.6e1 * t19698;
15939   t19700 = -0.9e1 / 0.50e2 * t4278 * t19626 - 0.9e1 / 0.100e3 * t4278 * t19629 + t19682 * t428 + t6175 * t1339 + t16200 * t1663 / 0.5e1 + 0.2e1 * t5114 * t1680 + 0.2e1 * t1530 * t5486 + t19643 * t441 + t19692 * t1314 / 0.10e2 - t19696 - t19699;
15940   t19701 = t6460 * t262;
15941   t19702 = t19701 * t1091;
15942   t19707 = t12476 * t6165;
15943   t19722 = t12348 * t6193;
15944   t19727 = t3869 * t55;
15945   t19728 = t6451 * t1122;
15946   t19731 = t57 * t1118;
15947   t19734 = t16142 * t1540;
15948   t19737 = t3836 * t1540;
15949   t19738 = t19737 * t1122;
15950   t19741 = t5313 * t5165;
15951   t19746 = t6193 * t1122;
15952   t19749 = t1540 * t5165;
15953   t19754 = t4267 * t55;
15954   t19757 = t58 * t1118;
15955   t19760 = -0.66e2 / 0.125e3 * t19722 * t1122 + 0.12e2 / 0.25e2 * t5470 * t5165 + 0.12911755421886215040e-2 * t19727 * t19728 + 0.57385579652827622400e-2 * t6450 * t19731 + 0.95158987105624142661e-1 * t46 * t19734 + 0.49958468230452674897e-1 * t1535 * t19738 - 0.35684620164609053498e-1 * t46 * t19741 + 0.98e2 / 0.225e3 * t12382 * t6193 - 0.392e3 / 0.375e3 * t12389 * t19746 + 0.196e3 / 0.225e3 * t4267 * t19749 - 0.16737460732074723200e-2 * t4264 * t6199 + 0.23432445024904612480e-2 * t19754 * t19728 + 0.89266457237731857067e-2 * t1336 * t19757;
15956   t19764 = -0.6e1 * t1101 * t19702 - 0.6e1 * t19644 * t1322 + 0.54e2 * t3817 * t19707 - 0.12e2 * t3810 * t6439 - 0.12e2 * t16110 * t1670 - 0.12e2 * t5116 * t5456 - 0.12e2 * t5116 * t5462 - 0.12e2 * t5116 * t5467 + 0.54e2 * t12312 * t6436 + t269 * t19760 + t5489 * t5441 / 0.5e1;
15957   t19772 = t1112 * t1524;
15958   t19774 = t46 * t19772 * t424;
15959   t19776 = t274 * t5106;
15960   t19778 = t46 * t19776 * t424;
15961   t19781 = t46 * t6411 * t1091;
15962   t19784 = t46 * t5418 * t1524;
15963   t19787 = t46 * t1654 * t5106;
15964   t19789 = t1303 * t6167;
15965   t19790 = t19789 * t424;
15966   t19791 = 0.146e3 / 0.135e3 * t19790;
15967   t19792 = t6418 * t1091;
15968   t19793 = 0.292e3 / 0.135e3 * t19792;
15969   t19798 = t1306 * t6167;
15970   t19799 = 0.146e3 / 0.135e3 * t19798;
15971   t19800 = -0.10073e5 / 0.787320e6 * t19757 - 0.73e2 / 0.3645e4 * t19774 + 0.73e2 / 0.9720e4 * t19778 - 0.73e2 / 0.4860e4 * t19781 + 0.73e2 / 0.3645e4 * t19784 - 0.73e2 / 0.9720e4 * t19787 - t19791 - t6420 + t19793 + 0.292e3 / 0.135e3 * t1303 * t6165 + 0.584e3 / 0.135e3 * t1658 * t5106 + t19799 + t6424;
15972   t19803 = t5466 * t5106;
15973   t19808 = t12455 * t6165;
15974   t19811 = t441 * t1091;
15975   t19812 = t19811 * t6165;
15976   t19815 = t16180 * t1524;
15977   t19818 = t1101 * t1680;
15978   t19821 = -0.9e1 / 0.100e3 * t12440 * t6406 + t4275 * t6425 / 0.10e2 + t1097 * t6460 - t6447 + t1342 * t19800 / 0.10e2 - 0.12e2 * t1101 * t19803 - 0.12e2 * t3810 * t6442 - 0.12e2 * t1101 * t19808 - 0.12e2 * t1101 * t19812 - 0.12e2 * t1101 * t19815 - 0.24e2 * t19818 * t5109;
15979   t19822 = t3817 * t1680;
15980   t19827 = t5459 * t19640;
15981   t19828 = 0.12e2 * t19827;
15982   t19831 = t5453 * t19677;
15983   t19832 = 0.54e2 * t19831;
15984   t19833 = t5116 * t441;
15985   t19836 = t16173 * t441;
15986   t19845 = t3810 * t6190;
15987   t19846 = 0.6e1 * t19845;
15988   t19847 = t6194 * t1122;
15989   t19851 = t18841 * t1127;
15990   t19855 = t1541 * t5165;
15991   t19859 = t3881 * t290;
15992   t19860 = t19859 * t55;
15993   t19861 = t19860 * t19728;
15994   t19864 = t6451 * t1127;
15995   t19865 = t18849 * t19864;
15996   t19868 = t6198 * t19757;
15997   t19872 = my_piecewise3(t295, 0, -t18840 - 0.77e2 / 0.6000e4 * t490 * t12553 * t19847 - 0.11e2 / 0.5400e4 * t490 * t3882 * t19851 + 0.11e2 / 0.900e3 * t490 * t3882 * t19855 + t18847 + 0.32877155009432492000e-4 * t5889 * t19861 + 0.99627742452825733333e-5 * t5889 * t19865 + 0.15940438792452117333e-3 * t5889 * t19868);
15998   t19888 = t1133 * t6209;
15999   t19889 = t8039 * t19888;
16000   t19891 = t1545 * t5171;
16001   t19896 = t1133 * t6204;
16002   t19910 = t6210 * t1166;
16003   t19912 = t4739 * t5193;
16004   t19915 = 0.5e1 / 0.2e1 * t18898 * t1166;
16005   t19916 = t18901 * t1166;
16006   t19918 = t793 * t19872;
16007   t19936 = t297 * t19872;
16008   t19937 = t19936 * t304;
16009   t19938 = 0.15e2 / 0.2e1 * t19910 - 0.4e1 * t19912 - t19915 - 0.2e1 * t19916 + t19918 * t304 / 0.2e1 + t18907 * t1166 / 0.4e1 + t4745 * t5193 / 0.2e1 + t18912 * t1166 / 0.8e1 - 0.8e1 * t18915 * t5171 - 0.2e1 * t1622 * t5193 - 0.4e1 * t5368 * t6204 - t1221 * t6270 - 0.4e1 * t797 * t19872 - t19937;
16010   t19941 = 0.7e1 / 0.2e1 * t6226 * t1166 - t14200 * t5193 - t18869 * t1166 / 0.4e1 - 0.6e1 * t19889 + 0.4e1 * t2464 * t19891 - t5350 * t6270 / 0.2e1 + 0.2e1 * t2464 * t19896 - t789 * t19872 + 0.2e1 * t19872 * t308 + 0.2e1 * t6204 * t1145 + 0.4e1 * t5171 * t1557 + 0.4e1 * t1545 * t5374 + 0.2e1 * t1133 * t6237 + 0.2e1 * t296 * t19938;
16011   t19944 = -0.8e1 / 0.3e1 * t19872 * t311 - 0.8e1 / 0.3e1 * t6204 * t1148 - 0.16e2 / 0.3e1 * t5171 * t1560 - 0.16e2 / 0.3e1 * t1545 * t5377 - 0.8e1 / 0.3e1 * t1133 * t6240 - 0.8e1 / 0.3e1 * t296 * t19941;
16012   t19946 = t16765 * t19746;
16013   t19949 = t5324 * t19749;
16014   t19952 = t1629 * t410;
16015   t19961 = t3870 * t55;
16016   t19964 = t6286 * t41;
16017   t19967 = t6289 * t41;
16018   t19976 = t19944 * t316 - 0.35386989866666666666e-1 * t5323 * t19946 + 0.29489158222222222222e-1 * t5323 * t19949 + 0.29489158222222222222e-1 * t19952 * t5326 - 0.21063684444444444445e-1 * t1630 * t5314 - 0.21063684444444444444e-1 * t1229 * t6377 - 0.21063684444444444444e-1 * t372 * t19741 + 0.12911755421886215040e-2 * t19961 * t19728 - 0.14e2 / 0.81e2 * t19964 * t1192 - 0.14620935720164609054e-1 * t19967 * t1192 - 0.28e2 / 0.81e2 * t16599 * t1593 - 0.28e2 / 0.81e2 * t16602 * t1593 - 0.28e2 / 0.81e2 * t5317 * t5236;
16019   t19981 = t1133 * t1583;
16020   t20000 = t6267 * t1133;
16021   t20003 = t1575 * t5171;
16022   t20008 = t6270 * t1133;
16023   t20023 = t19872 * t304;
16024   t20029 = -0.3e1 * t14275 * t5190 + t14269 * t5190 / 0.2e1 + 0.6e1 * t8140 * t20000 - 0.3e1 * t2517 * t20003 - 0.9e1 / 0.4e1 * t8120 * t20000 - 0.3e1 / 0.2e1 * t2517 * t20008 + t2524 * t20008 / 0.4e1 + t2524 * t20003 / 0.2e1 + t8127 * t20000 / 0.8e1 + t9704 * t6267 / 0.4e1 - 0.3e1 / 0.2e1 * t9713 * t6267 + t3252 * t6270 / 0.2e1 + t819 * t20023 / 0.2e1 + t18992 * t1166 / 0.2e1 + t15241 * t1575;
16025   t20034 = t6307 * t1133;
16026   t20035 = 0.1536e4 * t20034;
16027   t20036 = t1598 * t5171;
16028   t20037 = 0.1536e4 * t20036;
16029   t20038 = t6309 * t1133;
16030   t20039 = 0.768e3 * t20038;
16031   t20044 = t344 * t19872;
16032   t20045 = 0.256e3 * t20044;
16033   t20047 = t296 * t19872;
16034   t20052 = 0.80e2 * t19891 + 0.40e2 * t19896 + 0.40e2 * t20047 - t20035 - t20037 - t20039 - t20045;
16035   t20055 = 0.10e2 * t19872 * t299 * t78 + t20052 * t304 + t4783 * t5193 - 0.144e3 * t19891 - 0.72e2 * t19896 + 0.20e2 * t19910 - 0.10e2 * t19912 - t19915 - 0.5e1 * t19916 - 0.10e2 * t19937 + t20035 + t20037 + t20039 + t20045 - 0.72e2 * t20047;
16036   t20056 = t20029 + t20055;
16037   t20059 = 0.48e2 * t1133 * t18958 + 0.48e2 * t1174 * t6209 + 0.96e2 * t15187 * t1545 + 0.96e2 * t1545 * t19981 + 0.96e2 * t18941 * t5171 + 0.48e2 * t19872 * t810 + 0.24e2 * t20056 * t301 + 0.48e2 * t3240 * t6204 + 0.96e2 * t4771 * t5171 + 0.48e2 * t5146 * t6204;
16038   t20060 = t20059 * t336;
16039   t20071 = t1227 * sigma[2];
16040   t20074 = t6385 * rho[1];
16041   t20075 = 0.1e1 / t20074;
16042   t20076 = t20075 * t1190;
16043   t20081 = t1586 * t1112;
16044   t20092 = t1190 * t1118;
16045   t20095 = 0.35e2 / 0.81e2 * t20060 * t340 - 0.57275491621318330108e-4 * t1178 * t6299 - 0.57275491621318330108e-4 * t1185 * t6299 - 0.14620935720164609054e-1 * t16577 * t1593 - 0.14620935720164609054e-1 * t5320 * t5236 - 0.34900379798164840299e-5 * t20071 * t6387 + 0.27920303838531872239e-4 * t6384 * t20076 + 0.57385579652827622400e-2 * t1155 * t19757 - 0.97472904801097393691e-1 * t20081 * t340 - 0.14042456296296296297e0 * t1629 * t5222 + 0.12e2 / 0.25e2 * t16692 * t5325 - 0.66e2 / 0.125e3 * t12656 * t19746 + 0.12e2 / 0.25e2 * t3870 * t19749 + 0.30546928864703109391e-3 * t337 * t20092;
16046   t20107 = t3836 * t282;
16047   t20108 = t20107 * t1122;
16048   t20111 = t6285 * t1184;
16049   t20114 = t5211 * t274;
16050   t20139 = t1133 * t359;
16051   t20152 = t301 * t19872;
16052   t20160 = t319 * t19872;
16053   t20178 = -0.61931520e8 * t1133 * t19181 - 0.8847360e7 * t1133 * t19186 + 0.1536e4 * t1133 * t6258 - 0.34560e5 * t1133 * t6260 - 0.11520e5 * t1133 * t6262 + 0.808290e6 * t1133 * t6342 + 0.161658e6 * t1133 * t6344 + 0.3072e4 * t1569 * t5171 - 0.23040e5 * t1571 * t5171 + 0.323316e6 * t1614 * t5171 - 0.1105920e7 * t19872 * t350 + 0.26943e5 * t19872 * t357 - 0.17694720e8 * t4831 * t5171 - 0.8e1 * t19872 + 0.1536e4 * t19888 + 0.768e3 * t20152 - 0.2880e4 * t20160;
16054   t20193 = t346 * t19872;
16055   t20195 = 0.614400e6 * t1133 * t6311 + 0.153600e6 * t1133 * t6313 + 0.307200e6 * t1600 * t5171 + 0.896e3 * t19891 + 0.448e3 * t19896 - 0.34560e5 * t20034 - 0.34560e5 * t20036 - 0.17280e5 * t20038 - 0.5760e4 * t20044 + 0.448e3 * t20047 + 0.30720e5 * t20193;
16056   t20212 = t19872 * t299;
16057   t20222 = t19090 * t1166 / 0.2e1 + t15475 * t1575 + t4838 * t5193 + 0.480e3 * t1579 * t5293 + 0.720e3 * t6267 * t1221 + 0.240e3 * t1170 * t6352 + 0.240e3 * t324 * t20212 - 0.480e3 * t6235 * t1166 - 0.960e3 * t1555 * t5193 - 0.360e3 * t19889 + 0.144e3 * t2574 * t19896;
16058   t20248 = 0.288e3 * t2574 * t19891 + 0.288e3 * t14387 * t5176 - 0.3e1 / 0.2e1 * t9775 * t6267 + t3308 * t6270 / 0.2e1 + t847 * t20023 / 0.2e1 + t9745 * t6267 / 0.4e1 - 0.12e2 * t863 * t6220 * t1133 + 0.8e1 * t863 * t1550 * t5171 + 0.4e1 * t863 * t6223 * t1133 - t2602 * t20008 - 0.3e1 * t2566 * t20003;
16059   t20271 = -0.9e1 / 0.4e1 * t8222 * t20000 - 0.3e1 / 0.2e1 * t2566 * t20008 + t2571 * t20008 / 0.4e1 + t2571 * t20003 / 0.2e1 + t8227 * t20000 / 0.8e1 + 0.7e1 * t8255 * t20000 - 0.2e1 * t2602 * t20003 - t8240 * t20000 / 0.2e1 - 0.3e1 * t14358 * t5190 + t14373 * t5190 / 0.2e1 + 0.6e1 * t8252 * t20000;
16060   t20273 = -0.2e1 * t19872 * t302 * t863 + 0.72e2 * t1133 * t19060 + 0.144e3 * t1545 * t15589 + 0.72e2 * t19872 * t850 + 0.144e3 * t20139 * t6209 + t20178 * t304 + 0.24e2 * t20195 * t344 + 0.72e2 * t3325 * t6204 + 0.144e3 * t4855 * t5171 + 0.144e3 * t6209 * t9872 + t20222 + t20248 + t20271;
16061   t20277 = (0.8e1 / 0.7e1 * t19872 * t367 + 0.8e1 / 0.7e1 * t6204 * t1224 + 0.16e2 / 0.7e1 * t5171 * t1625 + 0.16e2 / 0.7e1 * t1545 * t5305 + 0.8e1 / 0.7e1 * t1133 * t6365 + 0.8e1 / 0.7e1 * t296 * t20273) * t41;
16062   t20278 = t20277 * t45;
16063   t20283 = t6386 * t3836;
16064   t20284 = t20283 * t1122;
16065   t20287 = -0.2e1 / 0.5e1 * t5227 * t5165 - 0.70212281481481481483e-1 * t6370 * t1232 + 0.38989161920438957477e-1 * t16586 * t1593 + 0.98e2 / 0.405e3 * t3999 * t6296 + 0.98e2 / 0.405e3 * t4002 * t6296 + 0.80185688269845662151e-4 * t337 * t20108 + 0.35e2 / 0.81e2 * t20111 * t340 + 0.36552339300411522634e-1 * t20114 * t340 - 0.10759796184905179200e-2 * t3875 * t6199 + 0.52659211111111111112e-1 * t5309 * t1634 + 0.26329605555555555556e-1 * t20278 * t373 - 0.2e1 / 0.5e1 * t16362 * t1540 + 0.48860531717430776419e-5 * t6384 * t20284;
16066   t20290 = t6243 * t1154;
16067   t20305 = t12719 * t19746;
16068   t20308 = t3947 * t19749;
16069   t20311 = t1113 * t6380;
16070   t20320 = 0.6e1 / 0.25e2 * t12649 * t6193 - t20290 * t1122 / 0.5e1 + 0.29489158222222222222e-1 * t372 * t5326 + 0.14744579111111111111e-1 * t1229 * t6381 - 0.10531842222222222222e-1 * t6370 * t1236 + 0.196e3 / 0.405e3 * t5317 * t5333 - 0.21063684444444444444e-1 * t5310 * t1638 + 0.20469310008230452676e-1 * t5320 * t5333 - 0.392e3 / 0.675e3 * t1188 * t20305 + 0.196e3 / 0.405e3 * t1188 * t20308 - 0.39318877629629629629e-1 * t372 * t20311 + 0.56169825185185185184e-1 * t1630 * t5336 - 0.21063684444444444444e-1 * t1630 * t5342 + 0.56169825185185185184e-1 * t372 * t19734;
16071   t20322 = t19976 + t20095 + t20287 + t20320;
16072   t20324 = t13119 * t6165;
16073   t20339 = t5406 * t5441;
16074   t20342 = t3823 * t6167;
16075   t20343 = t1101 * t20342;
16076   t20344 = 0.6e1 * t20343;
16077   t20345 = t1291 * t19800;
16078   t20348 = -t19846 + t269 * t20322 + 0.54e2 * t3817 * t20324 - 0.12e2 * t3810 * t6184 + 0.54e2 * t12312 * t6181 + 0.2e1 * t5114 * t1641 - 0.12e2 * t5116 * t5127 + t5396 * t1664 / 0.5e1 + t5398 * t1664 / 0.5e1 - 0.9e1 / 0.50e2 * t406 * t20339 - t20344 + t406 * t20345 / 0.10e2;
16079   t20351 = t376 * t1091;
16080   t20352 = t20351 * t6165;
16081   t20361 = t12494 * t6406;
16082   t20362 = t20361 * t1314;
16083   t20369 = t1101 * t1641;
16084   t20372 = t5130 * t19640;
16085   t20373 = 0.12e2 * t20372;
16086   t20374 = t5122 * t19677;
16087   t20375 = 0.54e2 * t20374;
16088   t20376 = -0.9e1 / 0.50e2 * t1646 * t5407 - 0.12e2 * t1101 * t20352 + t1244 * t6426 / 0.10e2 + t1285 * t6426 / 0.10e2 - 0.12e2 * t5116 * t5138 + 0.171e3 / 0.1000e4 * t406 * t20362 + 0.2e1 * t1530 * t5383 + t19643 * t376 + t6175 * t1239 - 0.24e2 * t20369 * t5109 - t20373 + t20375;
16089   t20378 = t19682 * t405;
16090   t20380 = t6401 * t1284;
16091   t20386 = t12895 * t6165;
16092   t20389 = t5137 * t5106;
16093   t20398 = t4189 * t6425;
16094   t20399 = t20398 * t1314;
16095   t20402 = t6390 * t262;
16096   t20403 = t20402 * t1091;
16097   t20406 = t16834 * t1524;
16098   t20409 = t20378 * t428 + t20380 * t428 - 0.9e1 / 0.100e3 * t1285 * t6407 + t6402 * t1315 / 0.10e2 - 0.12e2 * t1101 * t20386 - 0.12e2 * t1101 * t20389 - 0.12e2 * t3810 * t6187 + t1646 * t5442 / 0.5e1 - 0.9e1 / 0.100e3 * t1244 * t6407 - 0.9e1 / 0.100e3 * t406 * t20399 - 0.6e1 * t1101 * t20403 - 0.12e2 * t1101 * t20406;
16099   t20419 = t5116 * t376;
16100   t20422 = t16173 * t376;
16101   t20425 = t3817 * t1641;
16102   t20434 = t1097 * t6390 - 0.6e1 * t1103 * t19644 - 0.12e2 * t1532 * t16110 - 0.648e3 * t16906 * t19658 - 0.24e2 * t19638 * t5130 + 0.324e3 * t19662 * t5122 + 0.108e3 * t19665 * t5122 - 0.24e2 * t20419 * t5109 + 0.108e3 * t20422 * t5124 + 0.108e3 * t20425 * t5124 - 0.12e2 * t5116 * t5133 - t6192;
16103   t20438 = t6406 * t1314;
16104   t20441 = 0.108e3 * t19822 * t5124 - 0.24e2 * t5459 * t19638 - t19828 - 0.9e1 / 0.50e2 * t16942 * t5494 + t19832 - 0.24e2 * t19833 * t5109 + 0.108e3 * t19836 * t5124 + 0.324e3 * t5453 * t19662 + 0.108e3 * t5453 * t19665 - 0.648e3 * t16236 * t19658 - p->cam_beta * (t20348 + t20376 + t20409 + t20434) + 0.171e3 / 0.1000e4 * t12495 * t20438;
16105   t20443 = t19700 + t19764 + t19821 + t20441;
16106   t20444 = t1521 * t20443;
16107   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16108     v3rhosigma2[11] = -t18816 - t1352 * t19623 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t20444;
16109 
16110   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16111     v3rhosigmalapl[0] = 0.0e0;
16112 
16113   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16114     v3rhosigmalapl[1] = 0.0e0;
16115 
16116   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16117     v3rhosigmalapl[2] = 0.0e0;
16118 
16119   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16120     v3rhosigmalapl[3] = 0.0e0;
16121 
16122   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16123     v3rhosigmalapl[4] = 0.0e0;
16124 
16125   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16126     v3rhosigmalapl[5] = 0.0e0;
16127 
16128   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16129     v3rhosigmalapl[6] = 0.0e0;
16130 
16131   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16132     v3rhosigmalapl[7] = 0.0e0;
16133 
16134   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16135     v3rhosigmalapl[8] = 0.0e0;
16136 
16137   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16138     v3rhosigmalapl[9] = 0.0e0;
16139 
16140   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16141     v3rhosigmalapl[10] = 0.0e0;
16142 
16143   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16144     v3rhosigmalapl[11] = 0.0e0;
16145 
16146   t20448 = t14520 * t6602 / 0.2e1;
16147   t20450 = t2774 * t6601 * t455;
16148   t20457 = t1362 * t51;
16149   t20468 = t17058 * t1356;
16150   t20471 = t5530 * t4300;
16151   t20480 = t4310 * t1705;
16152   t20485 = t1706 * t4305;
16153   t20488 = t33 * t1705;
16154   t20493 = t13272 * t1727 / 0.10e2 + t4690 * t5610 / 0.10e2 + 0.10481370781893004115e0 * t20457 * t124 - 0.12e2 * t18048 * t5517 + 0.54e2 * t18051 * t5531 + 0.54e2 * t14106 * t6492 + 0.54e2 * t14109 * t6492 + 0.54e2 * t4654 * t20468 + 0.54e2 * t4654 * t20471 - 0.12e2 * t18065 * t5517 + 0.54e2 * t18068 * t5531 - 0.62888224691358024692e0 * t17331 * t6586 + 0.37732934814814814815e0 * t20480 * t5636 + 0.37732934814814814815e0 * t17071 * t6586 + 0.37732934814814814815e0 * t5635 * t20485 - 0.35217405827160493826e-1 * t20488 * t4573 - 0.12e2 * t14097 * t6480;
16155   t20496 = t5510 * t1356;
16156   t20499 = t5515 * t1356;
16157   t20502 = t1694 * t4300;
16158   t20505 = t6478 * t468;
16159   t20508 = t1863 * t6477;
16160   t20509 = t20508 * t468;
16161   t20512 = t4308 * t114;
16162   t20515 = t5524 * t244;
16163   t20518 = t17102 * t244;
16164   t20521 = t6526 * t708;
16165   t20528 = t45 * t4300;
16166   t20539 = t496 * t1693;
16167   t20541 = t46 * t20539 * t226;
16168   t20543 = t51 * t5514;
16169   t20545 = t46 * t20543 * t226;
16170   t20548 = t46 * t6547 * t468;
16171   t20550 = t720 * t6477;
16172   t20555 = my_piecewise3(t24, t464 * t1690 / 0.8e1, 0);
16173   t20556 = t222 * t20555;
16174   t20568 = t46 * t4619 * t1693;
16175   t20571 = t46 * t1486 * t5514;
16176   t20577 = 0.949e3 / 0.174960e6 * t5891 + 0.73e2 / 0.162e3 * t6105 - 0.73e2 / 0.270e3 * t1705 * t20528 * t226 + 0.73e2 / 0.135e3 * t1705 * t6540 * t468 - 0.73e2 / 0.162e3 * t6108 + 0.73e2 / 0.270e3 * t1705 * t1718 * t4300 - 0.73e2 / 0.7290e4 * t20541 + 0.73e2 / 0.19440e5 * t20545 - 0.73e2 / 0.9720e4 * t20548 - 0.146e3 / 0.135e3 * t20550 * t226 - 0.146e3 / 0.135e3 * t20556 * t226 + 0.292e3 / 0.135e3 * t6551 * t468 + 0.292e3 / 0.135e3 * t5598 * t1356 + 0.292e3 / 0.135e3 * t5601 * t1356 + 0.292e3 / 0.135e3 * t1722 * t4300 + 0.73e2 / 0.7290e4 * t20568 - 0.73e2 / 0.19440e5 * t20571 + 0.146e3 / 0.135e3 * t723 * t6477 + 0.146e3 / 0.135e3 * t225 * t20555;
16177   t20582 = t1356 * t5514;
16178   t20584 = t468 * t6477;
16179   t20586 = t25 * t20555;
16180   t20592 = t26 * t20555;
16181   t20594 = 0.2e1 * t1693 * t4300 + 0.18e2 * t20496 + 0.18e2 * t20499 + 0.18e2 * t20502 + 0.18e2 * t20505 + 0.2e1 * t20582 + 0.2e1 * t20584 + 0.2e1 * t20586 + 0.9e1 * t20592;
16182   t20595 = t20594 * t32;
16183   t20600 = t1372 * t26;
16184   t20602 = t582 * t20600 * t468;
16185   t20605 = -0.12e2 * t13261 * t6480 - 0.12e2 * t4660 * t20496 - 0.12e2 * t4660 * t20499 - 0.12e2 * t4660 * t20502 - 0.12e2 * t4660 * t20505 + 0.54e2 * t4654 * t20509 - 0.62888224691358024691e-1 * t20512 * t124 - 0.12e2 * t20515 * t4303 + 0.54e2 * t20518 * t4318 + t20521 * t731 / 0.10e2 + t2391 * t6561 / 0.10e2 + t759 * t20577 / 0.10e2 + t20595 * t244 + t6485 * t756 + t5522 * t1512 + t1699 * t4687 - 0.15093173925925925926e0 * t5635 * t20602;
16186   t20608 = t582 * t1359 * t506;
16187   t20611 = t1706 * t4303;
16188   t20614 = t1706 * t4318;
16189   t20617 = t17032 * t4296;
16190   t20620 = t17065 * t4296;
16191   t20627 = t46 * t4565;
16192   t20632 = t14100 * t1693;
16193   t20635 = t738 * t20555;
16194   t20638 = t4667 * t5514;
16195   t20643 = t2356 * t6477;
16196   t20652 = -0.15093173925925925926e0 * t5635 * t20608 + 0.75465869629629629630e0 * t5635 * t20611 - 0.33959641333333333334e1 * t17337 * t20614 + 0.324e3 * t4654 * t20617 - 0.648e3 * t13254 * t20620 + 0.25155289876543209876e-1 * t6583 * t5558 + 0.25155289876543209876e-1 * t5632 * t6513 + 0.25155289876543209876e-1 * t1737 * t20627 - 0.41925483127572016460e-1 * t5639 * t6513 - 0.6e1 * t478 * t20632 - 0.6e1 * t478 * t20635 - 0.6e1 * t478 * t20638 - 0.6e1 * t1855 * t6580 - 0.6e1 * t478 * t20643 - 0.6e1 * t4310 * t5629 - 0.6e1 * t1855 * t6575 + t17111 * t1495 / 0.10e2;
16197   t20657 = t1727 * t4642;
16198   t20662 = t5610 * t1495;
16199   t20667 = t6561 * t731;
16200   t20676 = t6596 * t731;
16201   t20679 = t6484 * t477;
16202   t20700 = -0.54e2 * t13213 * t5531 + 0.6e1 * t13277 * t1696 + 0.6e1 * t1359 * t17025 - 0.54e2 * t17102 * t4318 + 0.6e1 * t20679 * t471 + 0.12e2 * t4303 * t5524 + 0.6e1 * t4305 * t5524 + 0.12e2 * t4310 * t5517 + 0.6e1 * t4310 * t5519 - 0.54e2 * t6492 * t6986 - t20595;
16203   t20701 = t6995 * t6996;
16204   t20704 = t1862 * t27;
16205   t20727 = 0.12e2 * t1855 * t6480 + 0.6e1 * t1855 * t6482 - 0.54e2 * t1862 * t20468 - 0.54e2 * t1862 * t20471 - 0.54e2 * t1862 * t20509 + 0.648e3 * t20496 * t20701 - 0.324e3 * t20496 * t20704 + 0.12e2 * t20496 * t478 + 0.12e2 * t20499 * t478 + 0.12e2 * t20502 * t478 + 0.12e2 * t20505 * t478 + 0.6e1 * t20592 * t478;
16206   t20728 = t20700 + t20727;
16207   t20734 = t5524 * t160;
16208   t20737 = t17102 * t160;
16209   t20762 = t1862 * t17281;
16210   t20770 = t6526 * t701;
16211   t20772 = 0.54e2 * t13339 * t6492 + 0.54e2 * t13326 * t6492 - 0.12e2 * t20734 * t4303 + 0.54e2 * t20737 * t4318 + 0.54e2 * t18792 * t5531 - 0.12e2 * t13336 * t6480 - 0.12e2 * t13344 * t6480 - 0.12e2 * t4324 * t20496 - 0.12e2 * t4324 * t20499 - 0.12e2 * t4324 * t20502 + 0.54e2 * t4316 * t20468 + 0.54e2 * t4316 * t20471 - 0.12e2 * t18278 * t5517 + 0.54e2 * t18281 * t5531 + 0.75465869629629629630e0 * t17282 * t20611 - 0.33959641333333333334e1 * t20762 * t20614 - 0.15093173925925925926e0 * t17282 * t20602 - 0.15093173925925925926e0 * t17282 * t20608 + t5522 * t1473 + t20770 * t230;
16212   t20773 = t208 * t7029;
16213   t20785 = t1418 * t114;
16214   t20786 = t33 * t20785;
16215   t20795 = t478 * t20785;
16216   t20803 = t46 * t5547 * t4300;
16217   t20806 = t4310 * t5545;
16218   t20809 = t46 * t18000;
16219   t20812 = t1362 * t5545;
16220   t20819 = t2305 * t6561;
16221   t20820 = t20819 * t731;
16222   t20823 = 0.171e3 / 0.1000e4 * t20773 * t20676 - 0.12e2 * t4324 * t20505 + 0.54e2 * t4316 * t20509 - 0.12e2 * t18271 * t5517 + t20595 * t160 + 0.25155289876543209876e-1 * t5557 * t20627 + 0.25155289876543209876e-1 * t20786 * t5558 + 0.25155289876543209876e-1 * t17209 * t6513 + 0.25155289876543209876e-1 * t17213 * t6513 - 0.62888224691358024692e0 * t17248 * t6507 + 0.37732934814814814815e0 * t20795 * t5549 + 0.37732934814814814815e0 * t17230 * t6507 + 0.37732934814814814815e0 * t17233 * t6507 + 0.37732934814814814815e0 * t5546 * t20803 + 0.37732934814814814815e0 * t20806 * t5549 - 0.35217405827160493826e-1 * t5557 * t20809 + 0.25155289876543209876e-1 * t20812 * t5558 - 0.41925483127572016460e-1 * t17185 * t6513 + 0.10481370781893004115e0 * t6510 * t1508 - 0.9e1 / 0.100e3 * t208 * t20820;
16223   t20825 = t5582 * t4642;
16224   t20828 = t20728 * t207;
16225   t20836 = t4308 * t112;
16226   t20839 = t1362 * t568;
16227   t20842 = t474 * t1418;
16228   t20845 = t33 * t4405;
16229   t20848 = t708 * t20577;
16230   t20858 = t4331 * t5514;
16231   t20861 = t1868 * t6477;
16232   t20864 = t479 * t20555;
16233   t20869 = t17300 * t1495;
16234   t20874 = -0.9e1 / 0.100e3 * t208 * t20825 + t20828 * t230 + 0.324e3 * t4316 * t20617 - 0.648e3 * t13333 * t20620 + 0.10481370781893004115e0 * t6503 * t1508 - 0.62888224691358024691e-1 * t20836 * t1707 - 0.62888224691358024691e-1 * t20839 * t1707 - 0.62888224691358024691e-1 * t20842 * t1707 - 0.62888224691358024691e-1 * t20845 * t1707 + t208 * t20848 / 0.10e2 + t702 * t6562 / 0.10e2 + t638 * t6562 / 0.10e2 + t1699 * t4584 + t1478 * t5611 / 0.10e2 - 0.6e1 * t478 * t20858 - 0.6e1 * t478 * t20861 - 0.6e1 * t478 * t20864 - 0.6e1 * t1855 * t6500 - 0.9e1 / 0.100e3 * t208 * t20869 - 0.9e1 / 0.100e3 * t1713 * t4608;
16235   t20905 = t13369 * t1693;
16236   t20915 = t4599 * t1728 / 0.10e2 + t4597 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t638 * t6533 - 0.9e1 / 0.100e3 * t702 * t6533 - 0.9e1 / 0.100e3 * t1478 * t5583 - 0.6e1 * t5524 * t4321 - 0.6e1 * t5524 * t4327 - 0.6e1 * t20679 * t480 - 0.6e1 * t17025 * t1364 + t5574 * t1496 / 0.10e2 + t1713 * t4643 / 0.10e2 - 0.6e1 * t4310 * t5534 - 0.6e1 * t4310 * t5539 - 0.6e1 * t13277 * t1701 - 0.6e1 * t5524 * t4332 - 0.6e1 * t478 * t20905 + t6527 * t732 / 0.10e2 + t5572 * t1496 / 0.10e2 - 0.6e1 * t1855 * t6495 + t6485 * t633;
16237   t20927 = t5645 * t4642 / 0.10e2 - 0.9e1 / 0.100e3 * t13201 * t5650 - 0.9e1 / 0.100e3 * t2394 * t20657 - 0.9e1 / 0.100e3 * t17157 * t4695 - 0.9e1 / 0.100e3 * t2394 * t20662 - 0.9e1 / 0.100e3 * t7894 * t6596 - 0.9e1 / 0.100e3 * t2394 * t20667 - 0.6e1 * t5524 * t4668 - 0.6e1 * t13277 * t1734 - 0.6e1 * t4310 * t5624 + 0.171e3 / 0.1000e4 * t7915 * t20676 + t20728 * t230 - p->cam_beta * (t20772 + t20823 + t20874 + t20915) - 0.6e1 * t5524 * t4657 - 0.6e1 * t5524 * t4663 - 0.6e1 * t20679 * t739 - 0.6e1 * t17025 * t1502;
16238   t20929 = t20493 + t20605 + t20652 + t20927;
16239   t20930 = t1353 * t20929;
16240   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16241     v3rhosigmatau[0] = -t20448 - t1352 * t20450 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t20930;
16242 
16243   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16244     v3rhosigmatau[1] = 0.0e0;
16245 
16246   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16247     v3rhosigmatau[2] = 0.0e0;
16248 
16249   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16250     v3rhosigmatau[3] = 0.0e0;
16251 
16252   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16253     v3rhosigmatau[4] = 0.0e0;
16254 
16255   t20934 = t14520 * t6734 / 0.2e1;
16256   t20936 = t2415 * t6733 * t767;
16257   t20947 = t15125 * t1751;
16258   t20952 = t3160 * t6609;
16259   t20955 = t1530 * t831;
16260   t20960 = t269 * t4806;
16261   t20965 = t6658 * t933;
16262   t20975 = t6617 * t875 - 0.6e1 * t5720 * t4712 + t1757 * t4895 - 0.6e1 * t5116 * t5667 + 0.54e2 * t15112 * t6624 - 0.6e1 * t1101 * t20947 - 0.12e2 * t15118 * t6612 - 0.6e1 * t1101 * t20952 - 0.62888224691358024691e-1 * t20955 * t1765 + 0.37732934814814814815e0 * t17508 * t6639 - 0.62888224691358024691e-1 * t20960 * t1765 + 0.25155289876543209876e-1 * t17516 * t6645 + t20965 * t428 + t5673 * t1664 / 0.10e2 + t4897 * t1786 / 0.10e2 - 0.9e1 / 0.100e3 * t934 * t6665 + t934 * t6694 / 0.10e2;
16263   t20977 = t1521 * p->cam_beta * t20975;
16264   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16265     v3rhosigmatau[5] = -t20934 - t1352 * t20936 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t20977;
16266 
16267   t20981 = t2774 * t6601 * t944;
16268   t20992 = t14563 * t1693;
16269   t20997 = t2784 * t6477;
16270   t21000 = t1362 * t993;
16271   t21005 = t33 * t5001;
16272   t21010 = t6526 * t1074;
16273   t21020 = t6485 * t1034 - 0.6e1 * t5524 * t4911 + t1699 * t5087 - 0.6e1 * t4310 * t5687 + 0.54e2 * t14550 * t6492 - 0.6e1 * t478 * t20992 - 0.12e2 * t14556 * t6480 - 0.6e1 * t478 * t20997 - 0.62888224691358024691e-1 * t21000 * t1707 + 0.37732934814814814815e0 * t17436 * t6507 - 0.62888224691358024691e-1 * t21005 * t1707 + 0.25155289876543209876e-1 * t17444 * t6513 + t21010 * t230 + t5693 * t1496 / 0.10e2 + t5089 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t1075 * t6533 + t1075 * t6562 / 0.10e2;
16274   t21022 = t1353 * p->cam_beta * t21020;
16275   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16276     v3rhosigmatau[6] = -t20448 - t1352 * t20981 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t21022;
16277 
16278   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16279     v3rhosigmatau[7] = 0.0e0;
16280 
16281   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16282     v3rhosigmatau[8] = 0.0e0;
16283 
16284   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16285     v3rhosigmatau[9] = 0.0e0;
16286 
16287   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16288     v3rhosigmatau[10] = 0.0e0;
16289 
16290   t21026 = t2415 * t6733 * t1082;
16291   t21031 = t5116 * t1763;
16292   t21036 = t1764 * t5111;
16293   t21039 = t269 * t1763;
16294   t21044 = t17806 * t1524;
16295   t21047 = t5726 * t5106;
16296   t21058 = t5706 * t1524;
16297   t21061 = t5711 * t1524;
16298   t21064 = t1752 * t5106;
16299   t21067 = t6610 * t1091;
16300   t21070 = t3818 * t6609;
16301   t21071 = t21070 * t1091;
16302   t21074 = -0.62888224691358024692e0 * t17955 * t6718 + 0.37732934814814814815e0 * t21031 * t5832 + 0.37732934814814814815e0 * t17951 * t6718 + 0.37732934814814814815e0 * t5831 * t21036 - 0.35217405827160493826e-1 * t21039 * t5333 + 0.54e2 * t16226 * t6624 + 0.54e2 * t5453 * t21044 + 0.54e2 * t5453 * t21047 - 0.12e2 * t19818 * t5713 + 0.54e2 * t19822 * t5727 - 0.12e2 * t16197 * t6612 - 0.12e2 * t16241 * t6612 - 0.12e2 * t5459 * t21058 - 0.12e2 * t5459 * t21061 - 0.12e2 * t5459 * t21064 - 0.12e2 * t5459 * t21067 + 0.54e2 * t5453 * t21071;
16303   t21075 = t5114 * t332;
16304   t21078 = t5720 * t441;
16305   t21081 = t17602 * t441;
16306   t21090 = t1785 * t5441;
16307   t21093 = t5806 * t1663;
16308   t21096 = t17612 * t5102;
16309   t21099 = t17800 * t5102;
16310   t21106 = t46 * t5341;
16311   t21115 = -0.62888224691358024691e-1 * t21075 * t340 - 0.12e2 * t21078 * t5109 + 0.54e2 * t21081 * t5124 - 0.12e2 * t19833 * t5713 + 0.54e2 * t19836 * t5727 + 0.54e2 * t16222 * t6624 - 0.9e1 / 0.100e3 * t4278 * t21090 - 0.9e1 / 0.100e3 * t4278 * t21093 + 0.324e3 * t5453 * t21096 - 0.648e3 * t16236 * t21099 + 0.25155289876543209876e-1 * t6715 * t5754 + 0.25155289876543209876e-1 * t5828 * t6645 + 0.25155289876543209876e-1 * t1795 * t21106 - 0.41925483127572016460e-1 * t5835 * t6645 + t5718 * t1680 + t1757 * t5486 + t5489 * t5806 / 0.10e2;
16312   t21119 = t1524 * t5710;
16313   t21121 = t1091 * t6609;
16314   t21125 = my_piecewise3(t260, t1087 * t1748 / 0.8e1, 0);
16315   t21126 = t261 * t21125;
16316   t21132 = t262 * t21125;
16317   t21134 = 0.2e1 * t1751 * t5106 + 0.18e2 * t21058 + 0.18e2 * t21061 + 0.18e2 * t21064 + 0.18e2 * t21067 + 0.2e1 * t21119 + 0.2e1 * t21121 + 0.2e1 * t21126 + 0.9e1 * t21132;
16318   t21135 = t21134 * t268;
16319   t21142 = t6658 * t1291;
16320   t21149 = t45 * t5106;
16321   t21160 = t1112 * t1751;
16322   t21162 = t46 * t21160 * t424;
16323   t21164 = t274 * t5710;
16324   t21166 = t46 * t21164 * t424;
16325   t21169 = t46 * t6679 * t1091;
16326   t21171 = t1303 * t6609;
16327   t21174 = t420 * t21125;
16328   t21186 = t46 * t5418 * t1751;
16329   t21189 = t46 * t1654 * t5710;
16330   t21195 = 0.949e3 / 0.174960e6 * t6199 + 0.73e2 / 0.162e3 * t6413 - 0.73e2 / 0.270e3 * t1763 * t21149 * t424 + 0.73e2 / 0.135e3 * t1763 * t6672 * t1091 - 0.73e2 / 0.162e3 * t6416 + 0.73e2 / 0.270e3 * t1763 * t1776 * t5106 - 0.73e2 / 0.7290e4 * t21162 + 0.73e2 / 0.19440e5 * t21166 - 0.73e2 / 0.9720e4 * t21169 - 0.146e3 / 0.135e3 * t21171 * t424 - 0.146e3 / 0.135e3 * t21174 * t424 + 0.292e3 / 0.135e3 * t6683 * t1091 + 0.292e3 / 0.135e3 * t5794 * t1524 + 0.292e3 / 0.135e3 * t5797 * t1524 + 0.292e3 / 0.135e3 * t1780 * t5106 + 0.73e2 / 0.7290e4 * t21186 - 0.73e2 / 0.19440e5 * t21189 + 0.146e3 / 0.135e3 * t1306 * t6609 + 0.146e3 / 0.135e3 * t423 * t21125;
16331   t21208 = t4240 * t6609;
16332   t21211 = t1321 * t21125;
16333   t21214 = t6616 * t1100;
16334   t21219 = t16180 * t1751;
16335   t21222 = t21135 * t441 + t6617 * t1339 + t5841 * t5441 / 0.10e2 + t16200 * t1785 / 0.10e2 + t21142 * t1314 / 0.10e2 + t17939 * t1663 / 0.10e2 + t1342 * t21195 / 0.10e2 + t4275 * t6693 / 0.10e2 - 0.6e1 * t5720 * t5456 - 0.6e1 * t5720 * t5462 - 0.6e1 * t5720 * t5467 - 0.6e1 * t3810 * t6712 - 0.6e1 * t1101 * t21208 - 0.6e1 * t1101 * t21211 - 0.6e1 * t21214 * t1322 - 0.6e1 * t17587 * t1670 - 0.6e1 * t1101 * t21219;
16336   t21223 = t5466 * t5710;
16337   t21227 = t1191 * t1527 * t1122;
16338   t21230 = t1764 * t5109;
16339   t21233 = t1764 * t5124;
16340   t21236 = t1540 * t262;
16341   t21238 = t1191 * t21236 * t1091;
16342   t21241 = t1530 * t274;
16343   t21244 = t6728 * t1314;
16344   t21259 = t6693 * t1314;
16345   t21284 = 0.6e1 * t1094 * t21214 - 0.54e2 * t12312 * t6624 + 0.6e1 * t1527 * t17587 + 0.6e1 * t16110 * t1754 - 0.54e2 * t16173 * t5727 - 0.54e2 * t17602 * t5124 + 0.12e2 * t5109 * t5720 + 0.6e1 * t5111 * t5720 + 0.12e2 * t5116 * t5713 + 0.6e1 * t5116 * t5715 - t21135;
16346   t21285 = t12321 * t12322;
16347   t21288 = t3817 * t263;
16348   t21311 = 0.12e2 * t1101 * t21058 + 0.12e2 * t1101 * t21061 + 0.12e2 * t1101 * t21064 + 0.12e2 * t1101 * t21067 + 0.6e1 * t1101 * t21132 - 0.54e2 * t21044 * t3817 - 0.54e2 * t21047 * t3817 + 0.648e3 * t21058 * t21285 - 0.324e3 * t21058 * t21288 - 0.54e2 * t21071 * t3817 + 0.12e2 * t3810 * t6612 + 0.6e1 * t3810 * t6614;
16349   t21312 = t21284 + t21311;
16350   t21318 = t3817 * t17643;
16351   t21323 = t5778 * t5441;
16352   t21326 = t4189 * t6693;
16353   t21327 = t21326 * t1314;
16354   t21338 = t1586 * t332;
16355   t21339 = t269 * t21338;
16356   t21352 = t1102 * t21125;
16357   t21359 = t17883 * t1663;
16358   t21362 = -0.15093173925925925926e0 * t17644 * t21227 + 0.75465869629629629630e0 * t17644 * t21230 - 0.33959641333333333334e1 * t21318 * t21233 - 0.15093173925925925926e0 * t17644 * t21238 - 0.9e1 / 0.100e3 * t406 * t21323 - 0.9e1 / 0.100e3 * t406 * t21327 - 0.9e1 / 0.100e3 * t1771 * t5407 - 0.9e1 / 0.100e3 * t1646 * t5779 - 0.9e1 / 0.100e3 * t1244 * t6665 - 0.9e1 / 0.100e3 * t1285 * t6665 + 0.25155289876543209876e-1 * t21339 * t5754 + 0.25155289876543209876e-1 * t17728 * t6645 + 0.25155289876543209876e-1 * t17880 * t6645 - 0.6e1 * t3810 * t6627 - 0.6e1 * t5116 * t5735 - 0.6e1 * t5116 * t5730 - 0.6e1 * t1101 * t21352 - 0.6e1 * t5720 * t5133 - 0.41925483127572016460e-1 * t17877 * t6645 - 0.9e1 / 0.100e3 * t406 * t21359;
16359   t21363 = t3823 * t6609;
16360   t21366 = t1097 * t1586;
16361   t21369 = t269 * t5211;
16362   t21374 = t5114 * t330;
16363   t21377 = t1530 * t1177;
16364   t21386 = t5720 * t376;
16365   t21389 = t17602 * t376;
16366   t21398 = t1530 * t5741;
16367   t21411 = -0.6e1 * t1101 * t21363 - 0.62888224691358024691e-1 * t21366 * t1765 - 0.62888224691358024691e-1 * t21369 * t1765 + 0.10481370781893004115e0 * t6642 * t1676 - 0.62888224691358024691e-1 * t21374 * t1765 - 0.62888224691358024691e-1 * t21377 * t1765 + 0.10481370781893004115e0 * t6635 * t1676 - 0.12e2 * t5130 * t21067 + 0.54e2 * t5122 * t21071 - 0.12e2 * t21386 * t5109 + 0.54e2 * t21389 * t5124 - 0.12e2 * t20369 * t5713 + 0.54e2 * t20425 * t5727 - 0.12e2 * t16875 * t6612 + 0.25155289876543209876e-1 * t21398 * t5754 + 0.25155289876543209876e-1 * t5753 * t21106 - 0.12e2 * t16870 * t6612 - 0.12e2 * t5130 * t21058 - 0.12e2 * t5130 * t21061 - 0.12e2 * t5130 * t21064;
16368   t21423 = t46 * t19738;
16369   t21427 = t46 * t5743 * t5106;
16370   t21430 = t5116 * t5741;
16371   t21441 = t1101 * t21338;
16372   t21446 = t16834 * t1751;
16373   t21451 = t6658 * t1284;
16374   t21453 = t21312 * t405;
16375   t21457 = 0.54e2 * t5122 * t21044 + 0.54e2 * t5122 * t21047 - 0.12e2 * t20419 * t5713 + 0.54e2 * t20422 * t5727 + 0.54e2 * t16895 * t6624 - 0.35217405827160493826e-1 * t5753 * t21423 + 0.37732934814814814815e0 * t5742 * t21427 + 0.37732934814814814815e0 * t21430 * t5745 + 0.37732934814814814815e0 * t17863 * t6639 + 0.37732934814814814815e0 * t17867 * t6639 + t21135 * t376 + t6617 * t1239 - 0.62888224691358024692e0 * t17845 * t6639 + 0.37732934814814814815e0 * t21441 * t5745 + 0.54e2 * t16898 * t6624 - 0.6e1 * t1101 * t21446 - 0.6e1 * t21214 * t1103 + t21451 * t428 + t21453 * t428 + t5770 * t1664 / 0.10e2;
16376   t21464 = t5137 * t5710;
16377   t21481 = t1291 * t21195;
16378   t21496 = t406 * t12494;
16379   t21499 = t1771 * t5442 / 0.10e2 + t6659 * t1315 / 0.10e2 + t5768 * t1664 / 0.10e2 - 0.6e1 * t1101 * t21464 - 0.6e1 * t3810 * t6632 + t1757 * t5383 + t5718 * t1641 + 0.324e3 * t5122 * t21096 - 0.648e3 * t16906 * t21099 + t1646 * t5807 / 0.10e2 + t5396 * t1786 / 0.10e2 + t5398 * t1786 / 0.10e2 + t406 * t21481 / 0.10e2 - 0.6e1 * t5720 * t5127 + t1244 * t6694 / 0.10e2 + t1285 * t6694 / 0.10e2 - 0.6e1 * t5720 * t5138 - 0.6e1 * t16110 * t1759 - 0.6e1 * t17587 * t1532 + 0.171e3 / 0.1000e4 * t21496 * t21244;
16380   t21503 = -0.6e1 * t1101 * t21223 - 0.15093173925925925926e0 * t5831 * t21227 + 0.75465869629629629630e0 * t5831 * t21230 - 0.33959641333333333334e1 * t17947 * t21233 - 0.15093173925925925926e0 * t5831 * t21238 + 0.10481370781893004115e0 * t21241 * t340 + 0.171e3 / 0.1000e4 * t12495 * t21244 - 0.6e1 * t16110 * t1792 - 0.6e1 * t5116 * t5820 - 0.6e1 * t5116 * t5825 - 0.6e1 * t3810 * t6707 - 0.9e1 / 0.100e3 * t17929 * t5494 - 0.9e1 / 0.100e3 * t12440 * t6728 - 0.9e1 / 0.100e3 * t4278 * t21259 - 0.9e1 / 0.100e3 * t16942 * t5846 + t21312 * t428 - p->cam_beta * (t21362 + t21411 + t21457 + t21499);
16381   t21505 = t21074 + t21115 + t21222 + t21503;
16382   t21506 = t1521 * t21505;
16383   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16384     v3rhosigmatau[11] = -t20934 - t1352 * t21026 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t21506;
16385 
16386   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16387     v3rholapl2[0] = 0.0e0;
16388 
16389   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16390     v3rholapl2[1] = 0.0e0;
16391 
16392   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16393     v3rholapl2[2] = 0.0e0;
16394 
16395   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16396     v3rholapl2[3] = 0.0e0;
16397 
16398   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16399     v3rholapl2[4] = 0.0e0;
16400 
16401   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16402     v3rholapl2[5] = 0.0e0;
16403 
16404   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16405     v3rholapltau[0] = 0.0e0;
16406 
16407   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16408     v3rholapltau[1] = 0.0e0;
16409 
16410   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16411     v3rholapltau[2] = 0.0e0;
16412 
16413   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16414     v3rholapltau[3] = 0.0e0;
16415 
16416   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16417     v3rholapltau[4] = 0.0e0;
16418 
16419   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16420     v3rholapltau[5] = 0.0e0;
16421 
16422   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16423     v3rholapltau[6] = 0.0e0;
16424 
16425   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16426     v3rholapltau[7] = 0.0e0;
16427 
16428   t21510 = t14520 * t6840 / 0.2e1;
16429   t21512 = t2774 * t6839 * t455;
16430   t21515 = t5524 * t1705;
16431   t21520 = t1706 * t5519;
16432   t21525 = my_piecewise3(t24, -t465 * t6740 / 0.4e1, 0);
16433   t21526 = t738 * t21525;
16434   t21529 = t6750 * t477;
16435   t21534 = t18181 * t6737;
16436   t21539 = t2356 * t6743;
16437   t21544 = t7839 * t6737;
16438   t21547 = 0.75465869629629629628e0 * t21515 * t5636 + 0.75465869629629629630e0 * t17071 * t6823 + 0.75465869629629629630e0 * t5635 * t21520 - 0.6e1 * t478 * t21526 - 0.6e1 * t21529 * t739 - 0.12e2 * t17025 * t1734 - 0.12e2 * t478 * t21534 - 0.6e1 * t1855 * t6829 - 0.6e1 * t478 * t21539 - 0.12577644938271604938e1 * t17331 * t6823 + 0.54e2 * t1862 * t21544;
16439   t21550 = t7911 * t6737;
16440   t21553 = t6780 * t708;
16441   t21558 = t468 * t6743;
16442   t21560 = t25 * t21525;
16443   t21562 = t468 * t6737;
16444   t21564 = t1694 * t5514;
16445   t21566 = t6744 * t468;
16446   t21568 = t26 * t21525;
16447   t21570 = 0.4e1 * t1693 * t5514 + 0.2e1 * t21558 + 0.2e1 * t21560 + 0.18e2 * t21562 + 0.36e2 * t21564 + 0.18e2 * t21566 + 0.9e1 * t21568;
16448   t21571 = t21570 * t32;
16449   t21586 = t479 * t21525;
16450   t21593 = t1868 * t6743;
16451   t21598 = t7314 * t6737;
16452   t21602 = t582 * t1696 * t506;
16453   t21605 = t1706 * t5517;
16454   t21608 = t1706 * t5531;
16455   t21611 = -0.12e2 * t5524 * t5534 - 0.12e2 * t5524 * t5539 + 0.54e2 * t6986 * t6758 - 0.6e1 * t478 * t21586 - 0.12e2 * t17025 * t1701 - 0.6e1 * t1855 * t6768 - 0.6e1 * t478 * t21593 - 0.6e1 * t21529 * t480 + 0.54e2 * t1862 * t21598 - 0.30186347851851851852e0 * t17282 * t21602 + 0.15093173925925925926e1 * t17282 * t21605 - 0.67919282666666666667e1 * t20762 * t21608;
16456   t21612 = t1699 * t5545;
16457   t21615 = t5582 * t5610;
16458   t21618 = t2305 * t6808;
16459   t21619 = t21618 * t731;
16460   t21624 = t7029 * t6785;
16461   t21625 = t21624 * t731;
16462   t21630 = t1863 * t6743;
16463   t21631 = t21630 * t468;
16464   t21638 = t27 * t6737;
16465   t21639 = t21638 * t468;
16466   t21642 = t5530 * t5514;
16467   t21645 = t6996 * t6737;
16468   t21646 = t21645 * t468;
16469   t21649 = 0.50310579753086419752e-1 * t21612 * t5558 - 0.9e1 / 0.50e2 * t208 * t21615 - 0.9e1 / 0.100e3 * t208 * t21619 - 0.9e1 / 0.50e2 * t1713 * t5583 + 0.171e3 / 0.1000e4 * t208 * t21625 - 0.12e2 * t4324 * t21566 + 0.54e2 * t4316 * t21631 - 0.24e2 * t20734 * t5517 + 0.108e3 * t20737 * t5531 + 0.324e3 * t4316 * t21639 + 0.108e3 * t4316 * t21642 - 0.648e3 * t13333 * t21646;
16470   t21651 = t7304 * t6737;
16471   t21654 = t18199 * t6737;
16472   t21657 = t5522 * t112;
16473   t21660 = t1699 * t568;
16474   t21679 = t45 * t5514;
16475   t21690 = t720 * t6743;
16476   t21693 = t222 * t21525;
16477   t21706 = -0.73e2 / 0.243e3 * t6538 + 0.73e2 / 0.81e2 * t6549 - 0.73e2 / 0.135e3 * t1705 * t21679 * t226 + 0.146e3 / 0.135e3 * t1705 * t6794 * t468 - 0.73e2 / 0.81e2 * t6557 + 0.73e2 / 0.135e3 * t1705 * t1718 * t5514 - 0.146e3 / 0.135e3 * t21690 * t226 - 0.146e3 / 0.135e3 * t21693 * t226 + 0.292e3 / 0.135e3 * t6801 * t468 + 0.292e3 / 0.135e3 * t720 * t6737 + 0.584e3 / 0.135e3 * t1722 * t5514 + 0.146e3 / 0.135e3 * t723 * t6743 + 0.146e3 / 0.135e3 * t225 * t21525;
16478   t21707 = t708 * t21706;
16479   t21710 = -0.12e2 * t478 * t21651 - 0.12e2 * t478 * t21654 - 0.12577644938271604938e0 * t21657 * t1707 - 0.12577644938271604938e0 * t21660 * t1707 + 0.20962741563786008230e0 * t6755 * t1508 + t6781 * t732 / 0.10e2 + t5572 * t1728 / 0.5e1 - 0.9e1 / 0.100e3 * t638 * t6786 - 0.9e1 / 0.100e3 * t702 * t6786 + t5574 * t1728 / 0.5e1 + t1713 * t5611 / 0.5e1 + t208 * t21707 / 0.10e2;
16480   t21716 = t6780 * t701;
16481   t21751 = 0.12e2 * t1696 * t17025 - 0.108e3 * t17102 * t5531 + 0.12e2 * t1855 * t6746 + 0.6e1 * t1855 * t6748 - 0.54e2 * t1862 * t21631 - 0.324e3 * t1862 * t21639 - 0.108e3 * t1862 * t21642 + 0.6e1 * t21529 * t471 + 0.12e2 * t21562 * t478 + 0.24e2 * t21564 * t478 + 0.12e2 * t21566 * t478 + 0.6e1 * t21568 * t478 + 0.648e3 * t21646 * t6995 + 0.24e2 * t5517 * t5524 + 0.12e2 * t5519 * t5524 - 0.54e2 * t6773 * t6986 - t21571;
16482   t21752 = t21751 * t207;
16483   t21756 = t5524 * t5545;
16484   t21762 = t46 * t5547 * t5514;
16485   t21771 = -0.12e2 * t1855 * t6765 - 0.24e2 * t4324 * t21564 + t6751 * t633 + t21716 * t230 + t21571 * t160 + t21752 * t230 + 0.75465869629629629630e0 * t17233 * t6762 + 0.75465869629629629628e0 * t21756 * t5549 - 0.12577644938271604938e1 * t17248 * t6762 + 0.75465869629629629630e0 * t5546 * t21762 + 0.75465869629629629630e0 * t17230 * t6762 + t638 * t6809 / 0.10e2 + t702 * t6809 / 0.10e2;
16486   t21779 = -0.12e2 * t1855 * t6826 - 0.12e2 * t478 * t21550 + t21553 * t731 / 0.10e2 + t21571 * t244 + t5645 * t5610 / 0.5e1 - 0.9e1 / 0.100e3 * t7894 * t6785 + t2391 * t6808 / 0.10e2 + t6751 * t756 - p->cam_beta * (t21611 + t21649 + t21710 + t21771) + 0.54e2 * t4654 * t21631 - 0.24e2 * t20515 * t5517;
16487   t21783 = t5522 * t114;
16488   t21804 = 0.108e3 * t20518 * t5531 - 0.12577644938271604938e0 * t21783 * t124 + 0.324e3 * t4654 * t21639 + 0.108e3 * t4654 * t21642 - 0.648e3 * t13254 * t21646 - 0.24e2 * t4660 * t21564 - 0.12e2 * t4660 * t21566 + 0.50310579753086419752e-1 * t6817 * t5558 - 0.9e1 / 0.50e2 * t17157 * t5650 + t759 * t21706 / 0.10e2 + t17111 * t1727 / 0.5e1;
16489   t21811 = t6785 * t731;
16490   t21814 = t6808 * t731;
16491   t21817 = t1727 * t5610;
16492   t21820 = t1699 * t51;
16493   t21830 = -0.12e2 * t5524 * t5624 - 0.12e2 * t5524 * t5629 + 0.54e2 * t6986 * t6820 + 0.171e3 / 0.1000e4 * t7915 * t21811 - 0.9e1 / 0.100e3 * t2394 * t21814 - 0.9e1 / 0.50e2 * t2394 * t21817 + 0.20962741563786008230e0 * t21820 * t124 - 0.30186347851851851852e0 * t5635 * t21602 + 0.15093173925925925926e1 * t5635 * t21605 - 0.67919282666666666667e1 * t17337 * t21608 + t21751 * t230;
16494   t21832 = t21547 + t21779 + t21804 + t21830;
16495   t21833 = t1353 * t21832;
16496   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16497     v3rhotau2[0] = -t21510 - t1352 * t21512 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t21833;
16498 
16499   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16500     v3rhotau2[1] = 0.0e0;
16501 
16502   t21837 = t14520 * t6946 / 0.2e1;
16503   t21839 = t2415 * t6945 * t767;
16504   t21845 = t1757 * t831;
16505   t21848 = t10327 * t6843;
16506   t21853 = t10335 * t6843;
16507   t21856 = t3160 * t6849;
16508   t21859 = t6886 * t933;
16509   t21867 = t6857 * t875 - 0.12e2 * t5720 * t5667 - 0.12577644938271604938e0 * t21845 * t1765 + 0.54e2 * t3817 * t21848 + 0.75465869629629629630e0 * t17508 * t6868 - 0.12e2 * t1101 * t21853 - 0.6e1 * t1101 * t21856 + t21859 * t428 + t5673 * t1786 / 0.5e1 - 0.9e1 / 0.100e3 * t934 * t6892 + t934 * t6915 / 0.10e2;
16510   t21869 = t1521 * p->cam_beta * t21867;
16511   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16512     v3rhotau2[2] = -t21837 - t1352 * t21839 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t21869;
16513 
16514   t21873 = t2774 * t6839 * t944;
16515   t21879 = t1699 * t993;
16516   t21882 = t8701 * t6737;
16517   t21887 = t8709 * t6737;
16518   t21890 = t2784 * t6743;
16519   t21893 = t6780 * t1074;
16520   t21901 = t6751 * t1034 - 0.12e2 * t5524 * t5687 - 0.12577644938271604938e0 * t21879 * t1707 + 0.54e2 * t1862 * t21882 + 0.75465869629629629630e0 * t17436 * t6762 - 0.12e2 * t478 * t21887 - 0.6e1 * t478 * t21890 + t21893 * t230 + t5693 * t1728 / 0.5e1 - 0.9e1 / 0.100e3 * t1075 * t6786 + t1075 * t6809 / 0.10e2;
16521   t21903 = t1353 * p->cam_beta * t21901;
16522   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16523     v3rhotau2[3] = -t21510 - t1352 * t21873 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t21903;
16524 
16525   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16526     v3rhotau2[4] = 0.0e0;
16527 
16528   t21907 = t2415 * t6945 * t1082;
16529   t21910 = t1757 * t274;
16530   t21917 = t5718 * t332;
16531   t21922 = t1764 * t5715;
16532   t21925 = t5720 * t1763;
16533   t21932 = t4240 * t6849;
16534   t21937 = my_piecewise3(t260, -t1088 * t6846 / 0.4e1, 0);
16535   t21938 = t1321 * t21937;
16536   t21941 = 0.20962741563786008230e0 * t21910 * t340 - 0.24e2 * t21078 * t5713 + 0.108e3 * t21081 * t5727 - 0.12577644938271604938e0 * t21917 * t340 + 0.75465869629629629630e0 * t17951 * t6929 + 0.75465869629629629630e0 * t5831 * t21922 + 0.75465869629629629628e0 * t21925 * t5832 - 0.12577644938271604938e1 * t17955 * t6929 - 0.6e1 * t3810 * t6935 - 0.6e1 * t1101 * t21932 - 0.6e1 * t1101 * t21938;
16537   t21944 = t263 * t6843;
16538   t21945 = t21944 * t1091;
16539   t21948 = t5726 * t5710;
16540   t21951 = t12322 * t6843;
16541   t21952 = t21951 * t1091;
16542   t21955 = t1752 * t5710;
16543   t21958 = t6850 * t1091;
16544   t21961 = t3818 * t6849;
16545   t21962 = t21961 * t1091;
16546   t21965 = t6856 * t1100;
16547   t21974 = 0.50310579753086419752e-1 * t6923 * t5754 + 0.324e3 * t5453 * t21945 + 0.108e3 * t5453 * t21948 - 0.648e3 * t16236 * t21952 - 0.24e2 * t5459 * t21955 - 0.12e2 * t5459 * t21958 + 0.54e2 * t5453 * t21962 - 0.6e1 * t21965 * t1322 - 0.12e2 * t17587 * t1792 - 0.12e2 * t5720 * t5820 - 0.12e2 * t5720 * t5825;
16548   t21976 = t6914 * t1314;
16549   t21981 = t1091 * t6849;
16550   t21983 = t261 * t21937;
16551   t21985 = t1091 * t6843;
16552   t21989 = t262 * t21937;
16553   t21991 = 0.4e1 * t1751 * t5710 + 0.36e2 * t21955 + 0.18e2 * t21958 + 0.2e1 * t21981 + 0.2e1 * t21983 + 0.18e2 * t21985 + 0.9e1 * t21989;
16554   t21992 = t21991 * t268;
16555   t21996 = t4189 * t6914;
16556   t21997 = t21996 * t1314;
16557   t22002 = t12494 * t6891;
16558   t22003 = t22002 * t1314;
16559   t22006 = t5778 * t5806;
16560   t22023 = t20351 * t6843;
16561   t22026 = -0.9e1 / 0.100e3 * t406 * t21997 - 0.12e2 * t3810 * t6871 + 0.171e3 / 0.1000e4 * t406 * t22003 - 0.9e1 / 0.50e2 * t406 * t22006 - 0.12e2 * t5720 * t5730 - 0.12e2 * t5720 * t5735 - 0.12e2 * t17587 * t1759 + t6887 * t1315 / 0.10e2 + t5768 * t1786 / 0.5e1 - 0.9e1 / 0.100e3 * t1285 * t6892 - 0.9e1 / 0.50e2 * t1771 * t5779 - 0.12e2 * t1101 * t22023;
16562   t22029 = t1757 * t5741;
16563   t22032 = t1102 * t21937;
16564   t22035 = t3823 * t6849;
16565   t22054 = -0.6e1 * t3810 * t6874 + 0.50310579753086419752e-1 * t22029 * t5754 - 0.6e1 * t1101 * t22032 - 0.6e1 * t1101 * t22035 - 0.6e1 * t21965 * t1103 + 0.20962741563786008230e0 * t6861 * t1676 - 0.24e2 * t5130 * t21955 - 0.12e2 * t5130 * t21958 + 0.54e2 * t5122 * t21962 - 0.24e2 * t21386 * t5713 + 0.108e3 * t21389 * t5727 + 0.324e3 * t5122 * t21945;
16566   t22061 = t1191 * t1754 * t1122;
16567   t22064 = t1764 * t5713;
16568   t22067 = t1764 * t5727;
16569   t22070 = t5718 * t330;
16570   t22073 = t1757 * t1177;
16571   t22082 = t45 * t5710;
16572   t22093 = t1303 * t6849;
16573   t22096 = t420 * t21937;
16574   t22109 = -0.73e2 / 0.243e3 * t6670 + 0.73e2 / 0.81e2 * t6681 - 0.73e2 / 0.135e3 * t1763 * t22082 * t424 + 0.146e3 / 0.135e3 * t1763 * t6900 * t1091 - 0.73e2 / 0.81e2 * t6689 + 0.73e2 / 0.135e3 * t1763 * t1776 * t5710 - 0.146e3 / 0.135e3 * t22093 * t424 - 0.146e3 / 0.135e3 * t22096 * t424 + 0.292e3 / 0.135e3 * t6907 * t1091 + 0.292e3 / 0.135e3 * t1303 * t6843 + 0.584e3 / 0.135e3 * t1780 * t5710 + 0.146e3 / 0.135e3 * t1306 * t6849 + 0.146e3 / 0.135e3 * t423 * t21937;
16575   t22110 = t1291 * t22109;
16576   t22113 = t13119 * t6843;
16577   t22117 = 0.108e3 * t5122 * t21948 - 0.648e3 * t16906 * t21952 - 0.30186347851851851852e0 * t17644 * t22061 + 0.15093173925925925926e1 * t17644 * t22064 - 0.67919282666666666667e1 * t21318 * t22067 - 0.12577644938271604938e0 * t22070 * t1765 - 0.12577644938271604938e0 * t22073 * t1765 + t1771 * t5807 / 0.5e1 - 0.9e1 / 0.100e3 * t1244 * t6892 + t406 * t22110 / 0.10e2 + 0.54e2 * t3817 * t22113 + t6857 * t1239;
16578   t22154 = 0.6e1 * t1094 * t21965 + 0.24e2 * t1101 * t21955 + 0.12e2 * t1101 * t21958 + 0.12e2 * t1101 * t21985 + 0.6e1 * t1101 * t21989 - 0.54e2 * t12312 * t6879 + 0.648e3 * t12321 * t21952 + 0.12e2 * t1754 * t17587 - 0.108e3 * t17602 * t5727 - 0.324e3 * t21945 * t3817 - 0.108e3 * t21948 * t3817 - 0.54e2 * t21962 * t3817 + 0.12e2 * t3810 * t6852 + 0.6e1 * t3810 * t6854 + 0.24e2 * t5713 * t5720 + 0.12e2 * t5715 * t5720 - t21992;
16579   t22155 = t22154 * t405;
16580   t22157 = t6886 * t1284;
16581   t22162 = t12895 * t6843;
16582   t22169 = t5720 * t5741;
16583   t22177 = t46 * t5743 * t5710;
16584   t22180 = t1244 * t6915 / 0.10e2 + t1285 * t6915 / 0.10e2 + t22155 * t428 + t22157 * t428 + t21992 * t376 + t5770 * t1786 / 0.5e1 - 0.12e2 * t1101 * t22162 + 0.54e2 * t12312 * t6864 - 0.12577644938271604938e1 * t17845 * t6868 + 0.75465869629629629628e0 * t22169 * t5745 + 0.75465869629629629630e0 * t17863 * t6868 + 0.75465869629629629630e0 * t17867 * t6868 + 0.75465869629629629630e0 * t5742 * t22177;
16585   t22187 = t12476 * t6843;
16586   t22192 = t12455 * t6843;
16587   t22195 = t19811 * t6843;
16588   t22200 = -0.9e1 / 0.100e3 * t4278 * t21976 + t21992 * t441 - 0.9e1 / 0.50e2 * t17929 * t5846 - p->cam_beta * (t22026 + t22054 + t22117 + t22180) + t6857 * t1339 + 0.54e2 * t12312 * t6926 + 0.54e2 * t3817 * t22187 - 0.12e2 * t3810 * t6932 - 0.12e2 * t1101 * t22192 - 0.12e2 * t1101 * t22195 + t1342 * t22109 / 0.10e2;
16589   t22207 = t6886 * t1291;
16590   t22218 = t6891 * t1314;
16591   t22221 = t1785 * t5806;
16592   t22225 = t5841 * t5806 / 0.5e1 - 0.9e1 / 0.100e3 * t12440 * t6891 + t4275 * t6914 / 0.10e2 + t22207 * t1314 / 0.10e2 + t17939 * t1785 / 0.5e1 - 0.30186347851851851852e0 * t5831 * t22061 + 0.15093173925925925926e1 * t5831 * t22064 - 0.67919282666666666667e1 * t17947 * t22067 + 0.171e3 / 0.1000e4 * t12495 * t22218 - 0.9e1 / 0.50e2 * t4278 * t22221 + t22154 * t428;
16593   t22227 = t21941 + t21974 + t22200 + t22225;
16594   t22228 = t1521 * t22227;
16595   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16596     v3rhotau2[5] = -t21837 - t1352 * t21907 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t22228;
16597 
16598   t22231 = t1357 * t5857;
16599   t22232 = t4660 * t22231;
16600   t22233 = 0.36e2 * t22232;
16601   t22234 = t4317 * t5857;
16602   t22235 = t4654 * t22234;
16603   t22236 = 0.162e3 * t22235;
16604   t22239 = t5855 * t1356;
16605   t22240 = t7899 * t22239;
16606   t22243 = t14044 * t5855;
16607   t22246 = t18127 * t1356;
16608   t22249 = t244 * t22239;
16609   t22252 = t1495 * t6117;
16610   t22257 = t13228 * t5855;
16611   t22260 = t7903 * t22239;
16612   t22263 = t4667 * t5857;
16613   t22264 = t478 * t22263;
16614   t22265 = 0.18e2 * t22264;
16615   t22266 = -t22233 + t22236 - 0.36e2 * t4310 * t6134 + 0.324e3 * t1862 * t22240 - 0.36e2 * t478 * t22243 - 0.18e2 * t478 * t22246 - 0.12e2 * t478 * t22249 - 0.27e2 / 0.100e3 * t2394 * t22252 + 0.162e3 * t13213 * t6128 + 0.162e3 * t1862 * t22257 - 0.648e3 * t6995 * t22260 - t6139 - t22265;
16616   t22271 = t4310 * t6137;
16617   t22272 = 0.18e2 * t22271;
16618   t22273 = t1356 * t5857;
16619   t22274 = 0.6e1 * t22273;
16620   t22276 = 0.54e2 * t22231;
16621   t22277 = t22274 + t5859 + 0.18e2 * t22239 + t22276 + t5863;
16622   t22278 = t22277 * t32;
16623   t22282 = t51 * t5857;
16624   t22284 = t46 * t22282 * t226;
16625   t22285 = 0.73e2 / 0.6480e4 * t22284;
16626   t22287 = t46 * t51 * t5855;
16627   t22290 = t46 * t1486 * t5857;
16628   t22291 = 0.73e2 / 0.6480e4 * t22290;
16629   t22292 = t6110 * t1356;
16630   t22293 = 0.292e3 / 0.45e2 * t22292;
16631   t22294 = t22285 - 0.73e2 / 0.3240e4 * t22287 - t22291 - t6112 + t22293 + t6116;
16632   t22301 = t5883 * t1372;
16633   t22306 = t4558 * t5883;
16634   t22312 = t2383 * t1372;
16635   t22315 = -0.66e2 / 0.125e3 * t7819 * t22301 + 0.38735266265658645120e-2 * t4671 * t5891 + 0.74937702345679012345e-1 * t46 * t22306 - 0.17737734345330796161e-4 * t6079 - 0.392e3 / 0.375e3 * t7883 * t22301 + 0.70297335074713837440e-2 * t22312 * t5891;
16636   t22319 = t6098 * t1495;
16637   t22330 = t4310 * t5862;
16638   t22331 = 0.18e2 * t22330;
16639   t22332 = t6996 * t22239;
16640   t22335 = t27 * t22239;
16641   t22338 = t1862 * t22234;
16642   t22339 = 0.162e3 * t22338;
16643   t22342 = t478 * t22231;
16644   t22343 = 0.36e2 * t22342;
16645   t22344 = -0.162e3 * t13213 * t6086 + 0.18e2 * t1359 * t18120 - 0.324e3 * t1862 * t22335 + 0.12e2 * t22239 * t478 + 0.648e3 * t22332 * t6995 + 0.36e2 * t4310 * t5860 - t22278 + t22331 - t22339 + t22343 + t6092;
16646   t22350 = t18252 * t1356;
16647   t22353 = t13320 * t5855;
16648   t22356 = t160 * t22239;
16649   t22361 = t7029 * t22319;
16650   t22366 = t708 * t22294;
16651   t22371 = t7308 * t22239;
16652   t22374 = t4607 * t6117;
16653   t22379 = 0.162e3 * t13213 * t5871 - 0.18e2 * t18120 * t1364 - 0.18e2 * t478 * t22350 + 0.162e3 * t1862 * t22353 - 0.12e2 * t478 * t22356 - 0.27e2 / 0.100e3 * t1478 * t6099 + 0.171e3 / 0.1000e4 * t208 * t22361 + 0.3e1 / 0.10e2 * t1478 * t6118 + t208 * t22366 / 0.10e2 + 0.3e1 / 0.10e2 * t6094 * t1496 + 0.324e3 * t1862 * t22371 - 0.27e2 / 0.100e3 * t208 * t22374 - 0.36e2 * t4310 * t5877;
16654   t22380 = t13463 * t5855;
16655   t22383 = t4324 * t22231;
16656   t22384 = 0.36e2 * t22383;
16657   t22385 = t4331 * t5857;
16658   t22386 = t478 * t22385;
16659   t22387 = 0.18e2 * t22386;
16660   t22388 = t7044 * t22239;
16661   t22394 = t4316 * t22234;
16662   t22395 = 0.162e3 * t22394;
16663   t22400 = t4310 * t5880;
16664   t22401 = 0.18e2 * t22400;
16665   t22402 = t22344 * t207;
16666   t22404 = t1460 * sigma[0];
16667   t22419 = t71 * t22301;
16668   t22423 = t18408 * t1372;
16669   t22424 = t22423 * t5891;
16670   t22428 = my_piecewise3(t76, 0, -0.77e2 / 0.6000e4 * t490 * t7409 * t22419 + 0.98631465028297476000e-4 * t5889 * t22424);
16671   t22433 = t5901 * t1377;
16672   t22434 = t22433 * t86;
16673   t22437 = t22428 * t86;
16674   t22446 = t1986 * t22433;
16675   t22447 = t22446 * t86;
16676   t22449 = t4399 * t5962;
16677   t22456 = t1407 * t5896;
16678   t22461 = t1377 * t5896;
16679   t22463 = t77 * t22428;
16680   t22465 = t77 * t22433;
16681   t22466 = 0.1536e4 * t22465;
16682   t22467 = t1430 * t5896;
16683   t22468 = 0.2304e4 * t22467;
16684   t22469 = t128 * t22428;
16685   t22470 = 0.256e3 * t22469;
16686   t22471 = 0.120e3 * t22461 + 0.40e2 * t22463 - t22466 - t22468 - t22470;
16687   t22479 = t79 * t22428 * t86;
16688   t22481 = t7504 * t22433;
16689   t22483 = 0.5e1 / 0.2e1 * t22481 * t86;
16690   t22484 = -0.9e1 / 0.2e1 * t2044 * t22456 + 0.3e1 / 0.4e1 * t2051 * t22456 + t22471 * t86 - 0.216e3 * t22461 - 0.72e2 * t22463 + t22470 + 0.10e2 * t78 * t22428 * t81 + t22466 + t22468 - 0.10e2 * t22479 - t22483;
16691   t22485 = 0.3e1 / 0.4e1 * t13822 * t5959 - 0.9e1 / 0.4e1 * t7505 * t22434 + t556 * t22437 / 0.2e1 + t7500 * t22434 / 0.8e1 + 0.3e1 / 0.2e1 * t18720 * t1407 + 0.3e1 / 0.2e1 * t4378 * t5962 + 0.20e2 * t22447 - 0.15e2 * t22449 - 0.9e1 / 0.2e1 * t13831 * t5959 + 0.6e1 * t7538 * t22434 + t22484;
16692   t22488 = 0.144e3 * t1377 * t18714 + 0.144e3 * t1415 * t5901 + 0.144e3 * t18697 * t5896 + 0.48e2 * t22428 * t547 + 0.24e2 * t22485 * t83 + 0.144e3 * t4365 * t5896;
16693   t22489 = t22488 * t120;
16694   t22516 = t22428 * t81;
16695   t22533 = 0.12e2 * t614 * t1382 * t5896 - 0.9e1 / 0.2e1 * t2102 * t22456 + 0.3e1 / 0.4e1 * t2107 * t22456 - 0.3e1 * t2138 * t22456 - t7644 * t22434 / 0.2e1 - 0.2e1 * t614 * t84 * t22428 + 0.240e3 * t106 * t22516 - 0.1440e4 * t5927 * t1407 + 0.720e3 * t1411 * t6044 + t7655 * t22434 / 0.8e1 + 0.432e3 * t2110 * t22461 - 0.9e1 / 0.4e1 * t7667 * t22434 + t598 * t22437 / 0.2e1 + 0.3e1 / 0.2e1 * t18562 * t1407;
16696   t22552 = t128 * t22433;
16697   t22556 = t130 * t22428;
16698   t22558 = 0.460800e6 * t1432 * t5896 + 0.1344e4 * t22461 + 0.448e3 * t22463 - 0.34560e5 * t22465 - 0.51840e5 * t22467 - 0.5760e4 * t22469 + 0.614400e6 * t22552 + 0.30720e5 * t22556;
16699   t22565 = t83 * t22428;
16700   t22567 = t83 * t22433;
16701   t22571 = t101 * t22428;
16702   t22585 = 0.808290e6 * t101 * t22433 - 0.1105920e7 * t134 * t22428 + 0.4608e4 * t1401 * t5896 - 0.34560e5 * t1403 * t5896 + 0.26943e5 * t141 * t22428 - 0.61931520e8 * t141 * t22433 + 0.484974e6 * t1446 * t5896 - 0.26542080e8 * t4440 * t5896 - 0.8e1 * t22428 + 0.1536e4 * t22433 + 0.768e3 * t22565 - 0.34560e5 * t22567 - 0.2880e4 * t22571;
16703   t22599 = t7699 * t22433;
16704   t22601 = 0.3e1 / 0.2e1 * t4447 * t5962 + 0.3e1 / 0.4e1 * t13671 * t5959 - 0.12e2 * t614 * t1999 * t22433 - 0.9e1 / 0.2e1 * t13678 * t5959 + 0.6e1 * t7682 * t22434 + 0.7e1 * t7673 * t22434 + 0.24e2 * t128 * t22558 + t22585 * t86 + 0.144e3 * t22433 * t143 + 0.432e3 * t13711 * t5901 + 0.216e3 * t18566 * t1377 + 0.216e3 * t4464 * t5896 + 0.72e2 * t601 * t22428 + 0.720e3 * t22434 * t84 - 0.360e3 * t22599;
16705   t22602 = t22533 + t22601;
16706   t22606 = (0.8e1 / 0.7e1 * t22428 * t151 + 0.24e2 / 0.7e1 * t5896 * t1457 + 0.24e2 / 0.7e1 * t1377 * t6057 + 0.8e1 / 0.7e1 * t77 * t22602) * t41;
16707   t22607 = t22606 * t45;
16708   t22612 = t1934 * t1372;
16709   t22621 = t7574 * t22301;
16710   t22624 = -0.10470113939449452090e-4 * t22404 * t6079 - 0.17182647486395499033e-3 * t1419 * t5991 - 0.32279388554715537600e-2 * t4580 * t5891 + 0.35e2 / 0.81e2 * t22489 * t124 + 0.78988816666666666668e-1 * t6061 * t1466 - 0.63191053333333333333e-1 * t1462 * t6069 + 0.26329605555555555556e-1 * t22607 * t157 - 0.43862807160493827161e-1 * t18359 * t1425 + 0.38735266265658645120e-2 * t22612 * t5891 - 0.14e2 / 0.27e2 * t18356 * t1425 + 0.44233737333333333333e-1 * t156 * t22306 + 0.30703965012345679013e-1 * t4504 * t5988 - 0.392e3 / 0.675e3 * t579 * t22621;
16711   t22627 = t7573 * t22301;
16712   t22628 = t52 * t22627;
16713   t22635 = t18319 * t1372;
16714   t22638 = t17999 * t63;
16715   t22641 = t5977 * t51;
16716   t22650 = t2006 * t22433;
16717   t22655 = t7643 * t22433;
16718   t22670 = t525 * t22428;
16719   t22675 = t7499 * t22433;
16720   t22684 = 0.15e2 / 0.2e1 * t22447 - 0.6e1 * t22449 - t22483 + t22670 * t86 / 0.2e1 + 0.3e1 / 0.4e1 * t18475 * t1407 + t22675 * t86 / 0.8e1 - 0.12e2 * t18483 * t5896 - 0.3e1 * t1454 * t5962 - 0.4e1 * t529 * t22428 - t22479;
16721   t22687 = 0.7e1 / 0.2e1 * t22650 * t86 - 0.3e1 / 0.2e1 * t13834 * t5962 - t22655 * t86 / 0.4e1 - 0.6e1 * t22599 + 0.6e1 * t1991 * t22461 - t521 * t22428 + 0.2e1 * t22428 * t90 + 0.6e1 * t5896 * t1389 + 0.6e1 * t1377 * t5929 + 0.2e1 * t77 * t22684;
16722   t22690 = -0.8e1 / 0.3e1 * t22428 * t93 - 0.8e1 * t5896 * t1392 - 0.8e1 * t1377 * t5932 - 0.8e1 / 0.3e1 * t77 * t22687;
16723   t22694 = t154 * t6078;
16724   t22697 = t112 * t6078;
16725   t22698 = t22697 * t581;
16726   t22704 = 0.98e2 / 0.135e3 * t4517 * t5988 - 0.35386989866666666666e-1 * t156 * t22628 + 0.44233737333333333333e-1 * t1462 * t6073 - 0.31595526666666666666e-1 * t6062 * t1470 + 0.14658159515229232926e-4 * t6076 * t22635 + 0.24055706480953698645e-3 * t121 * t22638 + 0.54828508950617283951e-1 * t22641 * t124 + t22690 * t98 - 0.3e1 / 0.5e1 * t18366 * t1372 - 0.10470113939449452090e-4 * t22694 * t581 - 0.72676204058813440717e-5 * t22698 + 0.18e2 / 0.25e2 * t13991 * t5883 - 0.66e2 / 0.125e3 * t7820 * t22301;
16727   t22705 = t22624 + t22704;
16728   t22707 = 0.3e1 * t1362 * t6082 + 0.3e1 * t1473 * t5865 + t160 * t22278 - 0.36e2 * t22380 * t478 - 0.648e3 * t22388 * t6995 + t22402 * t230 + t22705 * t33 - 0.36e2 * t4310 * t5874 - t22384 - t22387 + t22395 - t22401 - t5882;
16729   t22710 = -0.18e2 * t18120 * t1502 - 0.36e2 * t4310 * t6131 - t22272 + t22278 * t244 + 0.3e1 * t5865 * t1512 + t759 * t22294 / 0.10e2 + 0.3e1 / 0.10e2 * t4690 * t6117 + 0.3e1 / 0.10e2 * t18045 * t1495 + t33 * t22315 + 0.3e1 * t1362 * t6152 + 0.171e3 / 0.1000e4 * t7915 * t22319 - 0.27e2 / 0.100e3 * t13201 * t6098 + t22344 * t230 - p->cam_beta * (t22379 + t22707);
16730   t22711 = t22266 + t22710;
16731   t22712 = t1353 * t22711;
16732   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16733     v3sigma3[0] = -0.3e1 / 0.8e1 * t1352 * t22712;
16734 
16735   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16736     v3sigma3[1] = 0.0e0;
16737 
16738   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16739     v3sigma3[2] = 0.0e0;
16740 
16741   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16742     v3sigma3[3] = 0.0e0;
16743 
16744   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16745     v3sigma3[4] = 0.0e0;
16746 
16747   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16748     v3sigma3[5] = 0.0e0;
16749 
16750   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16751     v3sigma3[6] = 0.0e0;
16752 
16753   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16754     v3sigma3[7] = 0.0e0;
16755 
16756   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16757     v3sigma3[8] = 0.0e0;
16758 
16759   t22719 = t5466 * t6167;
16760   t22720 = t1101 * t22719;
16761   t22721 = 0.18e2 * t22720;
16762   t22722 = t6165 * t1524;
16763   t22723 = t12459 * t22722;
16764   t22726 = t19701 * t1524;
16765   t22729 = t16205 * t6165;
16766   t22734 = t12451 * t22722;
16767   t22737 = t5116 * t6445;
16768   t22738 = 0.18e2 * t22737;
16769   t22741 = t16187 * t6165;
16770   t22744 = t441 * t22722;
16771   t22747 = t1663 * t6425;
16772   t22750 = -0.18e2 * t19644 * t1670 - 0.36e2 * t5116 * t6439 - t22721 - 0.648e3 * t12321 * t22723 - 0.18e2 * t1101 * t22726 - 0.36e2 * t1101 * t22729 - 0.36e2 * t5116 * t6442 + 0.324e3 * t3817 * t22734 - t22738 + 0.162e3 * t16173 * t6436 + 0.162e3 * t3817 * t22741 - 0.12e2 * t1101 * t22744 - 0.27e2 / 0.100e3 * t4278 * t22747;
16773   t22751 = t1525 * t6167;
16774   t22752 = t5459 * t22751;
16775   t22753 = 0.36e2 * t22752;
16776   t22754 = t5123 * t6167;
16777   t22755 = t5453 * t22754;
16778   t22756 = 0.162e3 * t22755;
16779   t22759 = t16826 * t6165;
16780   t22762 = t12889 * t22722;
16781   t22765 = t5122 * t22754;
16782   t22766 = 0.162e3 * t22765;
16783   t22771 = t16921 * t6165;
16784   t22774 = t12918 * t22722;
16785   t22777 = t5130 * t22751;
16786   t22778 = 0.36e2 * t22777;
16787   t22779 = t20402 * t1524;
16788   t22784 = t5116 * t6190;
16789   t22785 = 0.18e2 * t22784;
16790   t22788 = -0.36e2 * t5116 * t6187 - 0.36e2 * t1101 * t22759 + 0.324e3 * t3817 * t22762 + t22766 + 0.3e1 / 0.10e2 * t1646 * t6426 + 0.3e1 / 0.10e2 * t6402 * t1664 + 0.162e3 * t3817 * t22771 - 0.648e3 * t12321 * t22774 - t22778 - 0.18e2 * t1101 * t22779 - 0.36e2 * t5116 * t6184 - t22785 + 0.162e3 * t16173 * t6181;
16791   t22791 = t6406 * t1663;
16792   t22792 = t12494 * t22791;
16793   t22797 = t376 * t22722;
16794   t22802 = t1628 * sigma[2];
16795   t22805 = t19737 * t282;
16796   t22820 = t6193 * t1540;
16797   t22821 = t290 * t22820;
16798   t22825 = t19859 * t1540;
16799   t22826 = t22825 * t6199;
16800   t22830 = my_piecewise3(t295, 0, -0.77e2 / 0.6000e4 * t490 * t12553 * t22821 + 0.98631465028297476000e-4 * t5889 * t22826);
16801   t22833 = t6209 * t1545;
16802   t22834 = t2459 * t22833;
16803   t22835 = t22834 * t304;
16804   t22837 = t4739 * t6270;
16805   t22842 = t296 * t22833;
16806   t22843 = 0.1536e4 * t22842;
16807   t22844 = t1598 * t6204;
16808   t22845 = 0.2304e4 * t22844;
16809   t22846 = t296 * t22830;
16810   t22848 = t344 * t22830;
16811   t22849 = 0.256e3 * t22848;
16812   t22850 = t1545 * t6204;
16813   t22853 = 0.120e3 * t22850 + 0.40e2 * t22846 - t22843 - t22845 - t22849;
16814   t22857 = t297 * t22830 * t304;
16815   t22862 = t22833 * t304;
16816   t22865 = t1575 * t6204;
16817   t22872 = 0.5e1 / 0.2e1 * t8058 * t22833 * t304;
16818   t22875 = t22830 * t304;
16819   t22886 = -0.9e1 / 0.2e1 * t14275 * t6267 + 0.6e1 * t8140 * t22862 - 0.9e1 / 0.2e1 * t2517 * t22865 + 0.3e1 / 0.4e1 * t2524 * t22865 - t22872 - 0.9e1 / 0.4e1 * t8120 * t22862 + t819 * t22875 / 0.2e1 + t8127 * t22862 / 0.8e1 + 0.3e1 / 0.2e1 * t18992 * t1575 + 0.3e1 / 0.2e1 * t4783 * t6270 + 0.3e1 / 0.4e1 * t14269 * t6267;
16820   t22887 = 0.10e2 * t22830 * t299 * t78 + t22853 * t304 + 0.20e2 * t22835 - 0.15e2 * t22837 + t22843 + t22845 - 0.72e2 * t22846 + t22849 - 0.216e3 * t22850 - 0.10e2 * t22857 + t22886;
16821   t22890 = 0.144e3 * t1545 * t18958 + 0.144e3 * t1583 * t6209 + 0.144e3 * t18941 * t6204 + 0.48e2 * t22830 * t810 + 0.24e2 * t22887 * t301 + 0.144e3 * t4771 * t6204;
16822   t22891 = t22890 * t336;
16823   t22894 = t20283 * t1540;
16824   t22897 = t6285 * t274;
16825   t22904 = t12719 * t22820;
16826   t22911 = -0.17182647486395499033e-3 * t1587 * t6299 - 0.10470113939449452090e-4 * t22802 * t6387 + 0.24055706480953698645e-3 * t337 * t22805 + 0.78988816666666666668e-1 * t6369 * t1634 - 0.32279388554715537600e-2 * t5227 * t6199 + 0.35e2 / 0.81e2 * t22891 * t340 + 0.14658159515229232926e-4 * t6384 * t22894 + 0.54828508950617283951e-1 * t22897 * t340 + 0.98e2 / 0.135e3 * t5317 * t6296 + 0.30703965012345679013e-1 * t5320 * t6296 - 0.392e3 / 0.675e3 * t1188 * t22904 - 0.66e2 / 0.125e3 * t12656 * t22820 + 0.18e2 / 0.25e2 * t16692 * t6193;
16827   t22912 = t370 * t6386;
16828   t22915 = t5324 * t6193;
16829   t22942 = t344 * t22833;
16830   t22946 = t346 * t22830;
16831   t22948 = 0.460800e6 * t1600 * t6204 - 0.34560e5 * t22842 - 0.51840e5 * t22844 + 0.448e3 * t22846 - 0.5760e4 * t22848 + 0.1344e4 * t22850 + 0.614400e6 * t22942 + 0.30720e5 * t22946;
16832   t22955 = t301 * t22830;
16833   t22957 = t301 * t22833;
16834   t22961 = t319 * t22830;
16835   t22975 = 0.4608e4 * t1569 * t6204 - 0.34560e5 * t1571 * t6204 + 0.484974e6 * t1614 * t6204 - 0.1105920e7 * t22830 * t350 + 0.26943e5 * t22830 * t357 + 0.808290e6 * t22833 * t319 - 0.61931520e8 * t22833 * t357 - 0.26542080e8 * t4831 * t6204 - 0.8e1 * t22830 + 0.1536e4 * t22833 + 0.768e3 * t22955 - 0.34560e5 * t22957 - 0.2880e4 * t22961;
16836   t22989 = t8039 * t22833;
16837   t22994 = 0.3e1 / 0.4e1 * t2571 * t22865 - 0.3e1 * t2602 * t22865 + 0.12e2 * t863 * t1550 * t6204 - 0.9e1 / 0.2e1 * t14358 * t6267 + 0.24e2 * t344 * t22948 + t22975 * t304 + 0.144e3 * t22833 * t359 + 0.216e3 * t4855 * t6204 + 0.72e2 * t850 * t22830 + 0.720e3 * t22862 * t302 + 0.432e3 * t14387 * t6209 + 0.216e3 * t19060 * t1545 - 0.360e3 * t22989 - 0.2e1 * t863 * t302 * t22830;
16838   t22995 = t22830 * t299;
16839   t23027 = 0.240e3 * t324 * t22995 - 0.1440e4 * t6235 * t1575 - t8240 * t22862 / 0.2e1 + 0.720e3 * t1579 * t6352 + 0.6e1 * t8252 * t22862 + 0.7e1 * t8255 * t22862 - 0.12e2 * t863 * t2472 * t22833 + 0.432e3 * t2574 * t22850 - 0.9e1 / 0.4e1 * t8222 * t22862 + t847 * t22875 / 0.2e1 + t8227 * t22862 / 0.8e1 + 0.3e1 / 0.2e1 * t4838 * t6270 + 0.3e1 / 0.4e1 * t14373 * t6267 + 0.3e1 / 0.2e1 * t19090 * t1575 - 0.9e1 / 0.2e1 * t2566 * t22865;
16840   t23028 = t22994 + t23027;
16841   t23032 = (0.8e1 / 0.7e1 * t22830 * t367 + 0.24e2 / 0.7e1 * t6204 * t1625 + 0.24e2 / 0.7e1 * t1545 * t6365 + 0.8e1 / 0.7e1 * t296 * t23028) * t41;
16842   t23033 = t23032 * t45;
16843   t23036 = t3870 * t1540;
16844   t23043 = t330 * t6386;
16845   t23044 = t23043 * t1190;
16846   t23046 = t12388 * t22820;
16847   t23047 = t275 * t23046;
16848   t23060 = t2479 * t22833;
16849   t23065 = t8035 * t22833;
16850   t23080 = t793 * t22830;
16851   t23085 = t8068 * t22833;
16852   t23094 = 0.15e2 / 0.2e1 * t22835 - 0.6e1 * t22837 - t22872 + t23080 * t304 / 0.2e1 + 0.3e1 / 0.4e1 * t18907 * t1575 + t23085 * t304 / 0.8e1 - 0.12e2 * t18915 * t6204 - 0.3e1 * t1622 * t6270 - 0.4e1 * t797 * t22830 - t22857;
16853   t23097 = 0.7e1 / 0.2e1 * t23060 * t304 - 0.3e1 / 0.2e1 * t14200 * t6270 - t23065 * t304 / 0.4e1 - 0.6e1 * t22989 + 0.6e1 * t2464 * t22850 - t789 * t22830 + 0.2e1 * t22830 * t308 + 0.6e1 * t6204 * t1557 + 0.6e1 * t1545 * t6237 + 0.2e1 * t296 * t23094;
16854   t23100 = -0.8e1 / 0.3e1 * t22830 * t311 - 0.8e1 * t6204 * t1560 - 0.8e1 * t1545 * t6240 - 0.8e1 / 0.3e1 * t296 * t23097;
16855   t23102 = -0.10470113939449452090e-4 * t22912 * t1190 + 0.44233737333333333333e-1 * t372 * t22915 - 0.63191053333333333333e-1 * t1630 * t6377 - 0.43862807160493827161e-1 * t19967 * t1593 + 0.26329605555555555556e-1 * t23033 * t373 + 0.38735266265658645120e-2 * t23036 * t6199 - 0.14e2 / 0.27e2 * t19964 * t1593 - 0.3e1 / 0.5e1 * t20290 * t1540 - 0.72676204058813440717e-5 * t23044 - 0.35386989866666666666e-1 * t372 * t23047 + 0.44233737333333333333e-1 * t1630 * t6381 - 0.31595526666666666666e-1 * t6370 * t1638 + t23100 * t316;
16856   t23103 = t22911 + t23102;
16857   t23105 = t274 * t6167;
16858   t23107 = t46 * t23105 * t424;
16859   t23108 = 0.73e2 / 0.6480e4 * t23107;
16860   t23110 = t46 * t274 * t6165;
16861   t23113 = t46 * t1654 * t6167;
16862   t23114 = 0.73e2 / 0.6480e4 * t23113;
16863   t23115 = t6418 * t1524;
16864   t23116 = 0.292e3 / 0.45e2 * t23115;
16865   t23117 = t23108 - 0.73e2 / 0.3240e4 * t23110 - t23114 - t6420 + t23116 + t6424;
16866   t23118 = t1291 * t23117;
16867   t23125 = t1524 * t6167;
16868   t23126 = 0.6e1 * t23125;
16869   t23128 = 0.54e2 * t22751;
16870   t23129 = t23126 + t6169 + 0.18e2 * t22722 + t23128 + t6173;
16871   t23130 = t23129 * t268;
16872   t23132 = t5406 * t6425;
16873   t23135 = t5137 * t6167;
16874   t23136 = t1101 * t23135;
16875   t23137 = 0.18e2 * t23136;
16876   t23144 = t5116 * t6172;
16877   t23145 = 0.18e2 * t23144;
16878   t23146 = t12322 * t22722;
16879   t23149 = t263 * t22722;
16880   t23152 = t3817 * t22754;
16881   t23153 = 0.162e3 * t23152;
16882   t23156 = t1101 * t22751;
16883   t23157 = 0.36e2 * t23156;
16884   t23158 = 0.12e2 * t1101 * t22722 + 0.648e3 * t12321 * t23146 + 0.18e2 * t1527 * t19644 - 0.162e3 * t16173 * t6394 - 0.324e3 * t23149 * t3817 + 0.36e2 * t5116 * t6170 - t23130 + t23145 - t23153 + t23157 + t6400;
16885   t23159 = t23158 * t405;
16886   t23161 = -0.18e2 * t19644 * t1532 + 0.171e3 / 0.1000e4 * t406 * t22792 - 0.27e2 / 0.100e3 * t1646 * t6407 - 0.12e2 * t1101 * t22797 + t269 * t23103 + t406 * t23118 / 0.10e2 + 0.3e1 * t6175 * t1641 + 0.3e1 * t1530 * t6390 + t23130 * t376 - 0.27e2 / 0.100e3 * t406 * t23132 - t6192 - t23137 + t23159 * t428;
16887   t23187 = t4267 * t1540;
16888   t23190 = -0.66e2 / 0.125e3 * t12348 * t22820 + 0.38735266265658645120e-2 * t5470 * t6199 + 0.74937702345679012345e-1 * t46 * t22915 - 0.17737734345330796161e-4 * t6387 - 0.392e3 / 0.375e3 * t12389 * t22820 + 0.70297335074713837440e-2 * t23187 * t6199;
16889   t23194 = -t6447 - t22753 + t22756 - p->cam_beta * (t22788 + t23161) - 0.27e2 / 0.100e3 * t16942 * t6406 + 0.171e3 / 0.1000e4 * t12495 * t22791 + t1342 * t23117 / 0.10e2 + t23130 * t441 + 0.3e1 * t6175 * t1680 + t23158 * t428 + 0.3e1 / 0.10e2 * t19692 * t1663 + 0.3e1 / 0.10e2 * t5489 * t6425 + t269 * t23190 + 0.3e1 * t1530 * t6460;
16890   t23195 = t22750 + t23194;
16891   t23196 = t1521 * t23195;
16892   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
16893     v3sigma3[9] = -0.3e1 / 0.8e1 * t1352 * t23196;
16894 
16895   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16896     v3sigma2lapl[0] = 0.0e0;
16897 
16898   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16899     v3sigma2lapl[1] = 0.0e0;
16900 
16901   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16902     v3sigma2lapl[2] = 0.0e0;
16903 
16904   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16905     v3sigma2lapl[3] = 0.0e0;
16906 
16907   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16908     v3sigma2lapl[4] = 0.0e0;
16909 
16910   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16911     v3sigma2lapl[5] = 0.0e0;
16912 
16913   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16914     v3sigma2lapl[6] = 0.0e0;
16915 
16916   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16917     v3sigma2lapl[7] = 0.0e0;
16918 
16919   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16920     v3sigma2lapl[8] = 0.0e0;
16921 
16922   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16923     v3sigma2lapl[9] = 0.0e0;
16924 
16925   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16926     v3sigma2lapl[10] = 0.0e0;
16927 
16928   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
16929     v3sigma2lapl[11] = 0.0e0;
16930 
16931   t23203 = t18127 * t1693;
16932   t23206 = t4667 * t6477;
16933   t23213 = t5524 * t6137;
16934   t23214 = 0.6e1 * t23213;
16935   t23221 = t244 * t5855;
16936   t23222 = t23221 * t1693;
16937   t23225 = t20521 * t1495 / 0.5e1 - 0.12e2 * t4310 * t6580 - 0.6e1 * t478 * t23203 - 0.12e2 * t478 * t23206 - 0.12e2 * t20679 * t1502 - 0.12e2 * t5524 * t6131 - t23214 + 0.54e2 * t17102 * t6128 - 0.6e1 * t18120 * t1734 - 0.12e2 * t4310 * t6575 - 0.12e2 * t478 * t23222;
16938   t23231 = t5857 * t1693;
16939   t23232 = 0.2e1 * t23231;
16940   t23233 = t1356 * t6477;
16941   t23235 = t5855 * t1693;
16942   t23237 = t6478 * t1356;
16943   t23239 = t1694 * t5857;
16944   t23240 = 0.18e2 * t23239;
16945   t23241 = t23232 + 0.4e1 * t23233 + t5859 + 0.18e2 * t23235 + 0.36e2 * t23237 + t23240 + t5863;
16946   t23242 = t23241 * t32;
16947   t23244 = t17032 * t5855;
16948   t23249 = t45 * t5857;
16949   t23251 = t1705 * t23249 * t226;
16950   t23252 = 0.73e2 / 0.270e3 * t23251;
16951   t23257 = t1705 * t1718 * t5857;
16952   t23258 = 0.73e2 / 0.270e3 * t23257;
16953   t23259 = t51 * t6477;
16954   t23261 = t46 * t23259 * t226;
16955   t23264 = t46 * t6547 * t1356;
16956   t23268 = t1722 * t5857;
16957   t23269 = 0.292e3 / 0.135e3 * t23268;
16958   t23271 = t46 * t1486 * t6477;
16959   t23273 = -t23252 + 0.73e2 / 0.135e3 * t1705 * t45 * t5855 + t23258 + 0.73e2 / 0.9720e4 * t23261 - 0.73e2 / 0.4860e4 * t23264 - t6112 + 0.584e3 / 0.135e3 * t6551 * t1356 + t23269 - 0.73e2 / 0.9720e4 * t23271 + t6116;
16960   t23278 = t1706 * t5860;
16961   t23283 = t1706 * t5862;
16962   t23284 = t5635 * t23283;
16963   t23285 = 0.37732934814814814815e0 * t23284;
16964   t23286 = t1706 * t6086;
16965   t23289 = -0.12e2 * t5524 * t6134 + 0.2e1 * t6485 * t1512 + t1699 * t6152 + t23242 * t244 + 0.324e3 * t4654 * t23244 + t18045 * t1727 / 0.10e2 + t759 * t23273 / 0.10e2 + t5645 * t6117 / 0.10e2 + 0.75465869629629629630e0 * t5635 * t23278 + 0.75465869629629629630e0 * t20480 * t6586 + t23285 - 0.33959641333333333334e1 * t17337 * t23286;
16966   t23291 = t6561 * t1495;
16967   t23294 = t1727 * t6117;
16968   t23297 = 0.1e1 / t1905;
16969   t23298 = t23297 * t581;
16970   t23306 = t160 * t5855;
16971   t23307 = t23306 * t1693;
16972   t23312 = t20819 * t1495;
16973   t23315 = t5582 * t6117;
16974   t23320 = t5524 * t5880;
16975   t23321 = 0.6e1 * t23320;
16976   t23324 = t17205 * t6098;
16977   t23329 = t46 * t6072;
16978   t23332 = t1699 * t6082 - 0.12e2 * t4310 * t6500 - 0.12e2 * t478 * t23307 - 0.12e2 * t5524 * t5877 - 0.9e1 / 0.50e2 * t208 * t23312 - 0.9e1 / 0.100e3 * t208 * t23315 - 0.12e2 * t4310 * t6495 - t23321 + 0.54e2 * t17102 * t5871 + 0.171e3 / 0.1000e4 * t208 * t23324 + 0.50310579753086419752e-1 * t20812 * t6513 - 0.35217405827160493826e-1 * t5557 * t23329;
16979   t23340 = t112 * t23297 * t581;
16980   t23343 = t4331 * t6477;
16981   t23348 = t708 * t23273;
16982   t23355 = t33 * t5977;
16983   t23358 = t5865 * t112;
16984   t23361 = t1362 * t1418;
16985   t23364 = 0.50310579753086419752e-1 * t20786 * t6513 + t1478 * t6562 / 0.5e1 - 0.9e1 / 0.50e2 * t1478 * t6533 + 0.83359506542156099039e-5 * t33 * t23340 - 0.12e2 * t478 * t23343 + t1713 * t6118 / 0.10e2 + t208 * t23348 / 0.10e2 + t6094 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t1713 * t6099 - 0.62888224691358024691e-1 * t23355 * t1707 - 0.62888224691358024691e-1 * t23358 * t1707 - 0.12577644938271604938e0 * t23361 * t1707;
16986   t23366 = t18252 * t1693;
16987   t23373 = t582 * t1359 * t1372;
16988   t23379 = t46 * t5547 * t5857;
16989   t23380 = t5546 * t23379;
16990   t23381 = 0.37732934814814814815e0 * t23380;
16991   t23383 = t46 * t17243 * t5855;
16992   t23391 = t46 * t17225 * t5855;
16993   t23396 = -0.6e1 * t478 * t23366 + t6527 * t1496 / 0.5e1 + t23242 * t160 - t5882 - 0.30186347851851851852e0 * t17282 * t23373 - 0.6e1 * t18120 * t1701 + t23381 - 0.33959641333333333334e1 * t17242 * t23383 + 0.75465869629629629630e0 * t20806 * t6507 + 0.75465869629629629630e0 * t20795 * t6507 + 0.75465869629629629630e0 * t5546 * t23391 + 0.2e1 * t6485 * t1473;
16994   t23407 = t5524 * t5862;
16995   t23408 = 0.6e1 * t23407;
16996   t23417 = t17065 * t5855;
16997   t23422 = t20508 * t1356;
16998   t23425 = t5530 * t5857;
16999   t23426 = t1862 * t23425;
17000   t23427 = 0.54e2 * t23426;
17001   t23432 = t478 * t23239;
17002   t23433 = 0.12e2 * t23432;
17003   t23434 = -0.108e3 * t13213 * t6492 + 0.12e2 * t1359 * t20679 + 0.6e1 * t1696 * t18120 - 0.54e2 * t17102 * t6086 - 0.324e3 * t1862 * t23244 - 0.108e3 * t1862 * t23422 + 0.12e2 * t23235 * t478 + 0.24e2 * t23237 * t478 + 0.648e3 * t23417 * t6995 + 0.24e2 * t4310 * t6480 + 0.12e2 * t4310 * t6482 + 0.12e2 * t5524 * t5860 - t23242 + t23408 - t23427 + t23433 + t6092;
17004   t23435 = t23434 * t207;
17005   t23437 = t4316 * t23425;
17006   t23438 = 0.54e2 * t23437;
17007   t23451 = t4324 * t23239;
17008   t23452 = 0.12e2 * t23451;
17009   t23457 = -0.648e3 * t13333 * t23417 - 0.12e2 * t1364 * t20679 - 0.24e2 * t18271 * t6480 - 0.24e2 * t18278 * t6480 + 0.108e3 * t18281 * t6492 + 0.108e3 * t18792 * t6492 + t230 * t23435 - 0.24e2 * t23237 * t4324 + 0.324e3 * t23244 * t4316 + 0.108e3 * t23422 * t4316 - 0.12e2 * t5524 * t5874 + t23438 - t23452;
17010   t23461 = t1727 * t6098;
17011   t23472 = -0.9e1 / 0.50e2 * t2394 * t23291 - 0.9e1 / 0.100e3 * t2394 * t23294 - t6139 + 0.83359506542156099039e-5 * t33 * t23298 + 0.50310579753086419752e-1 * t6583 * t6513 - p->cam_beta * (t23332 + t23364 + t23396 + t23457) + 0.171e3 / 0.1000e4 * t7915 * t23461 - 0.9e1 / 0.100e3 * t17157 * t6098 + t4690 * t6561 / 0.5e1 - 0.35217405827160493826e-1 * t1737 * t23329 - 0.9e1 / 0.50e2 * t13201 * t6596;
17012   t23477 = t4660 * t23239;
17013   t23478 = 0.12e2 * t23477;
17014   t23479 = t5865 * t114;
17015   t23490 = t4654 * t23425;
17016   t23491 = 0.54e2 * t23490;
17017   t23497 = -0.30186347851851851852e0 * t5635 * t23373 - 0.24e2 * t4660 * t23237 - t23478 - 0.62888224691358024691e-1 * t23479 * t124 - 0.24e2 * t18048 * t6480 + 0.108e3 * t18051 * t6492 + 0.108e3 * t18068 * t6492 + 0.108e3 * t4654 * t23422 + t23491 - 0.648e3 * t13254 * t23417 - 0.24e2 * t18065 * t6480 + t23434 * t230;
17018   t23499 = t23225 + t23289 + t23472 + t23497;
17019   t23500 = t1353 * t23499;
17020   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17021     v3sigma2tau[0] = -0.3e1 / 0.8e1 * t1352 * t23500;
17022 
17023   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17024     v3sigma2tau[1] = 0.0e0;
17025 
17026   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17027     v3sigma2tau[2] = 0.0e0;
17028 
17029   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17030     v3sigma2tau[3] = 0.0e0;
17031 
17032   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17033     v3sigma2tau[4] = 0.0e0;
17034 
17035   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17036     v3sigma2tau[5] = 0.0e0;
17037 
17038   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17039     v3sigma2tau[6] = 0.0e0;
17040 
17041   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17042     v3sigma2tau[7] = 0.0e0;
17043 
17044   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17045     v3sigma2tau[8] = 0.0e0;
17046 
17047   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17048     v3sigma2tau[9] = 0.0e0;
17049 
17050   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17051     v3sigma2tau[10] = 0.0e0;
17052 
17053   t23503 = t1785 * t6425;
17054   t23508 = t6693 * t1663;
17055   t23511 = t6167 * t1751;
17056   t23512 = 0.2e1 * t23511;
17057   t23513 = t1524 * t6609;
17058   t23515 = t6165 * t1751;
17059   t23517 = t6610 * t1524;
17060   t23519 = t1752 * t6167;
17061   t23520 = 0.18e2 * t23519;
17062   t23521 = t23512 + 0.4e1 * t23513 + t6169 + 0.18e2 * t23515 + 0.36e2 * t23517 + t23520 + t6173;
17063   t23522 = t23521 * t268;
17064   t23529 = t5720 * t6172;
17065   t23530 = 0.6e1 * t23529;
17066   t23539 = t17800 * t6165;
17067   t23542 = t17612 * t6165;
17068   t23545 = t21070 * t1524;
17069   t23548 = t5726 * t6167;
17070   t23549 = t3817 * t23548;
17071   t23550 = 0.54e2 * t23549;
17072   t23555 = t1101 * t23519;
17073   t23556 = 0.12e2 * t23555;
17074   t23557 = 0.12e2 * t1101 * t23515 + 0.24e2 * t1101 * t23517 + 0.648e3 * t12321 * t23539 + 0.12e2 * t1527 * t21214 - 0.108e3 * t16173 * t6624 + 0.6e1 * t1754 * t19644 - 0.54e2 * t17602 * t6394 - 0.324e3 * t23542 * t3817 - 0.108e3 * t23545 * t3817 + 0.24e2 * t5116 * t6612 + 0.12e2 * t5116 * t6614 + 0.12e2 * t5720 * t6170 - t23522 + t23530 - t23550 + t23556 + t6400;
17075   t23565 = t45 * t6167;
17076   t23567 = t1763 * t23565 * t424;
17077   t23568 = 0.73e2 / 0.270e3 * t23567;
17078   t23573 = t1763 * t1776 * t6167;
17079   t23574 = 0.73e2 / 0.270e3 * t23573;
17080   t23575 = t274 * t6609;
17081   t23577 = t46 * t23575 * t424;
17082   t23580 = t46 * t6679 * t1524;
17083   t23584 = t1780 * t6167;
17084   t23585 = 0.292e3 / 0.135e3 * t23584;
17085   t23587 = t46 * t1654 * t6609;
17086   t23589 = -t23568 + 0.73e2 / 0.135e3 * t1763 * t45 * t6165 + t23574 + 0.73e2 / 0.9720e4 * t23577 - 0.73e2 / 0.4860e4 * t23580 - t6420 + 0.584e3 / 0.135e3 * t6683 * t1524 + t23585 - 0.73e2 / 0.9720e4 * t23587 + t6424;
17087   t23592 = t1785 * t6406;
17088   t23597 = t19701 * t1751;
17089   t23600 = -0.9e1 / 0.100e3 * t4278 * t23503 - 0.9e1 / 0.50e2 * t16942 * t6728 - 0.9e1 / 0.50e2 * t4278 * t23508 + t23557 * t428 + t5489 * t6693 / 0.5e1 + t5841 * t6425 / 0.10e2 + t19692 * t1785 / 0.10e2 + t1342 * t23589 / 0.10e2 + 0.171e3 / 0.1000e4 * t12495 * t23592 - 0.12e2 * t5116 * t6712 - 0.6e1 * t1101 * t23597;
17090   t23601 = t5466 * t6609;
17091   t23608 = t441 * t6165;
17092   t23609 = t23608 * t1751;
17093   t23612 = 0.1e1 / t3847;
17094   t23613 = t23612 * t1190;
17095   t23620 = t46 * t6380;
17096   t23627 = t5720 * t6445;
17097   t23628 = 0.6e1 * t23627;
17098   t23629 = -0.12e2 * t1101 * t23601 - 0.6e1 * t19644 * t1792 - 0.12e2 * t5116 * t6707 - 0.12e2 * t1101 * t23609 + 0.83359506542156099039e-5 * t269 * t23613 - t6447 - 0.9e1 / 0.100e3 * t17929 * t6406 + 0.50310579753086419752e-1 * t6715 * t6645 - 0.35217405827160493826e-1 * t1795 * t23620 - 0.12e2 * t21214 * t1670 - 0.12e2 * t5720 * t6439 - t23628;
17099   t23634 = t1191 * t1527 * t1540;
17100   t23647 = t5453 * t23548;
17101   t23648 = 0.54e2 * t23647;
17102   t23655 = 0.54e2 * t17602 * t6436 - 0.30186347851851851852e0 * t5831 * t23634 + 0.324e3 * t5453 * t23542 - 0.24e2 * t19833 * t6612 + 0.108e3 * t19836 * t6624 + 0.108e3 * t19822 * t6624 + 0.108e3 * t5453 * t23545 + t23648 - 0.648e3 * t16236 * t23539 - 0.24e2 * t19818 * t6612 - 0.24e2 * t5459 * t23517;
17103   t23656 = t5459 * t23519;
17104   t23657 = 0.12e2 * t23656;
17105   t23658 = t6175 * t332;
17106   t23665 = t17670 * t6406;
17107   t23668 = t20402 * t1751;
17108   t23673 = t376 * t6165;
17109   t23674 = t23673 * t1751;
17110   t23678 = t5137 * t6609;
17111   t23683 = t23557 * t405;
17112   t23687 = t5720 * t6190;
17113   t23688 = 0.6e1 * t23687;
17114   t23689 = -0.35217405827160493826e-1 * t5753 * t23620 + 0.50310579753086419752e-1 * t21339 * t6645 + 0.171e3 / 0.1000e4 * t406 * t23665 - 0.6e1 * t1101 * t23668 - 0.6e1 * t19644 * t1759 - 0.12e2 * t1101 * t23674 + t1757 * t6390 - 0.12e2 * t1101 * t23678 - 0.12e2 * t5720 * t6187 + t23683 * t428 - 0.12e2 * t5720 * t6184 - t23688;
17115   t23692 = t269 * t6285;
17116   t23695 = t6175 * t330;
17117   t23698 = t1530 * t1586;
17118   t23711 = t1291 * t23589;
17119   t23718 = 0.54e2 * t17602 * t6181 - 0.62888224691358024691e-1 * t23692 * t1765 - 0.62888224691358024691e-1 * t23695 * t1765 - 0.12577644938271604938e0 * t23698 * t1765 - 0.12e2 * t5116 * t6627 - 0.12e2 * t5116 * t6632 - 0.12e2 * t21214 * t1532 - 0.9e1 / 0.100e3 * t1771 * t6407 + t1771 * t6426 / 0.10e2 + t406 * t23711 / 0.10e2 + t6659 * t1664 / 0.5e1 + t6402 * t1786 / 0.10e2;
17120   t23722 = t5130 * t23519;
17121   t23723 = 0.12e2 * t23722;
17122   t23729 = t330 * t23612 * t1190;
17123   t23736 = t21326 * t1663;
17124   t23739 = t5778 * t6425;
17125   t23747 = t1646 * t6694 / 0.5e1 - t23723 - 0.24e2 * t5130 * t23517 - 0.9e1 / 0.50e2 * t1646 * t6665 + 0.83359506542156099039e-5 * t269 * t23729 + 0.324e3 * t5122 * t23542 + 0.50310579753086419752e-1 * t21398 * t6645 - 0.9e1 / 0.50e2 * t406 * t23736 - 0.9e1 / 0.100e3 * t406 * t23739 - 0.30186347851851851852e0 * t17644 * t23634 + 0.2e1 * t6617 * t1641 + t23522 * t376;
17126   t23749 = t46 * t17848 * t6165;
17127   t23753 = t46 * t5743 * t6167;
17128   t23754 = t5742 * t23753;
17129   t23755 = 0.37732934814814814815e0 * t23754;
17130   t23757 = t46 * t17858 * t6165;
17131   t23768 = t5122 * t23548;
17132   t23769 = 0.54e2 * t23768;
17133   t23778 = 0.75465869629629629630e0 * t5742 * t23749 + t23755 - 0.33959641333333333334e1 * t17857 * t23757 + 0.75465869629629629630e0 * t21430 * t6639 + 0.75465869629629629630e0 * t21441 * t6639 + 0.108e3 * t20425 * t6624 + 0.108e3 * t5122 * t23545 + t23769 - 0.648e3 * t16906 * t23539 - 0.24e2 * t20369 * t6612 - 0.24e2 * t20419 * t6612 + 0.108e3 * t20422 * t6624 - t6192;
17134   t23786 = t1764 * t6172;
17135   t23787 = t5831 * t23786;
17136   t23788 = 0.37732934814814814815e0 * t23787;
17137   t23789 = t1764 * t6394;
17138   t23792 = t1764 * t6170;
17139   t23801 = -t23657 - 0.62888224691358024691e-1 * t23658 * t340 - p->cam_beta * (t23689 + t23718 + t23747 + t23778) - 0.12e2 * t5720 * t6442 + 0.75465869629629629630e0 * t21031 * t6718 + t23788 - 0.33959641333333333334e1 * t17947 * t23789 + 0.75465869629629629630e0 * t5831 * t23792 + t21142 * t1663 / 0.5e1 + t23522 * t441 + 0.2e1 * t6617 * t1680 + t1757 * t6460;
17140   t23803 = t23600 + t23629 + t23655 + t23801;
17141   t23804 = t1521 * t23803;
17142   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17143     v3sigma2tau[11] = -0.3e1 / 0.8e1 * t1352 * t23804;
17144 
17145   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17146     v3sigmalapl2[0] = 0.0e0;
17147 
17148   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17149     v3sigmalapl2[1] = 0.0e0;
17150 
17151   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17152     v3sigmalapl2[2] = 0.0e0;
17153 
17154   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17155     v3sigmalapl2[3] = 0.0e0;
17156 
17157   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17158     v3sigmalapl2[4] = 0.0e0;
17159 
17160   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17161     v3sigmalapl2[5] = 0.0e0;
17162 
17163   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17164     v3sigmalapl2[6] = 0.0e0;
17165 
17166   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17167     v3sigmalapl2[7] = 0.0e0;
17168 
17169   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17170     v3sigmalapl2[8] = 0.0e0;
17171 
17172   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17173     v3sigmalapltau[0] = 0.0e0;
17174 
17175   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17176     v3sigmalapltau[1] = 0.0e0;
17177 
17178   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17179     v3sigmalapltau[2] = 0.0e0;
17180 
17181   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17182     v3sigmalapltau[3] = 0.0e0;
17183 
17184   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17185     v3sigmalapltau[4] = 0.0e0;
17186 
17187   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17188     v3sigmalapltau[5] = 0.0e0;
17189 
17190   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17191     v3sigmalapltau[6] = 0.0e0;
17192 
17193   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17194     v3sigmalapltau[7] = 0.0e0;
17195 
17196   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17197     v3sigmalapltau[8] = 0.0e0;
17198 
17199   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17200     v3sigmalapltau[9] = 0.0e0;
17201 
17202   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17203     v3sigmalapltau[10] = 0.0e0;
17204 
17205   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17206     v3sigmalapltau[11] = 0.0e0;
17207 
17208   t23809 = t1356 * t6743;
17209   t23813 = my_piecewise3(t24, t19 * t6740 / 0.4e1, 0);
17210   t23814 = t25 * t23813;
17211   t23816 = t1356 * t6737;
17212   t23818 = t1694 * t6477;
17213   t23820 = t6744 * t1356;
17214   t23822 = t26 * t23813;
17215   t23824 = 0.4e1 * t1693 * t6477 + 0.2e1 * t23809 + 0.2e1 * t23814 + 0.18e2 * t23816 + 0.36e2 * t23818 + 0.18e2 * t23820 + 0.9e1 * t23822;
17216   t23825 = t23824 * t32;
17217   t23838 = t21645 * t1356;
17218   t23841 = t21638 * t1356;
17219   t23844 = t5530 * t6477;
17220   t23855 = t21630 * t1356;
17221   t23862 = -0.54e2 * t13213 * t6773 + 0.6e1 * t1359 * t21529 + 0.12e2 * t1696 * t20679 - 0.108e3 * t17102 * t6492 - 0.324e3 * t1862 * t23841 - 0.108e3 * t1862 * t23844 - 0.54e2 * t1862 * t23855 + 0.12e2 * t23816 * t478 + 0.24e2 * t23818 * t478 + 0.12e2 * t23820 * t478 + 0.6e1 * t23822 * t478 + 0.648e3 * t23838 * t6995 + 0.12e2 * t4310 * t6746 + 0.6e1 * t4310 * t6748 + 0.24e2 * t5524 * t6480 + 0.12e2 * t5524 * t6482 - t23825;
17222   t23868 = t21618 * t1495;
17223   t23871 = t479 * t23813;
17224   t23876 = t4331 * t6743;
17225   t23879 = t45 * t6477;
17226   t23889 = t51 * t6743;
17227   t23891 = t46 * t23889 * t226;
17228   t23893 = t222 * t23813;
17229   t23899 = t46 * t51 * t6737;
17230   t23904 = t46 * t1486 * t6743;
17231   t23908 = -0.73e2 / 0.135e3 * t1705 * t23879 * t226 + 0.146e3 / 0.135e3 * t1705 * t6794 * t1356 + 0.73e2 / 0.135e3 * t1705 * t1718 * t6477 + 0.73e2 / 0.19440e5 * t23891 - 0.146e3 / 0.135e3 * t23893 * t226 + 0.292e3 / 0.135e3 * t6801 * t1356 - 0.73e2 / 0.9720e4 * t23899 + 0.584e3 / 0.135e3 * t1722 * t6477 - 0.73e2 / 0.19440e5 * t23904 + 0.146e3 / 0.135e3 * t225 * t23813;
17232   t23909 = t708 * t23908;
17233   t23919 = t21624 * t1495;
17234   t23922 = t5582 * t6561;
17235   t23933 = t13320 * t6737;
17236   t23942 = 0.171e3 / 0.1000e4 * t208 * t23919 - 0.9e1 / 0.50e2 * t208 * t23922 + t23825 * t160 + t6751 * t1473 + t6781 * t1496 / 0.10e2 + t6527 * t1728 / 0.5e1 + 0.50310579753086419752e-1 * t21612 * t6513 + 0.54e2 * t1862 * t23933 - 0.12e2 * t5524 * t6495 - 0.12e2 * t5524 * t6500 + 0.54e2 * t13213 * t6758;
17237   t23944 = t23862 * t207;
17238   t23963 = t46 * t5547 * t6477;
17239   t23968 = t23944 * t230 - 0.24e2 * t4324 * t23818 - 0.12e2 * t4324 * t23820 + 0.54e2 * t4316 * t23855 + 0.324e3 * t4316 * t23841 + 0.108e3 * t4316 * t23844 - 0.648e3 * t13333 * t23838 - 0.24e2 * t20734 * t6480 + 0.108e3 * t20737 * t6492 + 0.75465869629629629630e0 * t5546 * t23963 + 0.75465869629629629630e0 * t20806 * t6762;
17240   t23974 = t582 * t1696 * t1372;
17241   t23977 = t1706 * t6480;
17242   t23980 = t1706 * t6492;
17243   t23983 = t6485 * t112;
17244   t23986 = t1699 * t1418;
17245   t23991 = t13463 * t6737;
17246   t23995 = t160 * t1356 * t6737;
17247   t24000 = 0.75465869629629629630e0 * t20795 * t6762 + 0.75465869629629629628e0 * t21756 * t6507 - 0.30186347851851851852e0 * t17282 * t23974 + 0.15093173925925925926e1 * t17282 * t23977 - 0.67919282666666666667e1 * t20762 * t23980 - 0.12577644938271604938e0 * t23983 * t1707 - 0.12577644938271604938e0 * t23986 * t1707 + t1713 * t6562 / 0.5e1 - 0.12e2 * t478 * t23991 - 0.12e2 * t478 * t23995 - 0.6e1 * t4310 * t6768;
17248   t24008 = t13228 * t6737;
17249   t24017 = t6808 * t1495;
17250   t24023 = t14044 * t6737;
17251   t24027 = t244 * t1356 * t6737;
17252   t24046 = -0.12e2 * t478 * t24023 - 0.12e2 * t478 * t24027 - 0.6e1 * t4310 * t6829 + t5645 * t6561 / 0.5e1 + t23825 * t244 + t6751 * t1512 + t21553 * t1495 / 0.10e2 + t20521 * t1727 / 0.5e1 + 0.50310579753086419752e-1 * t6817 * t6513 - 0.9e1 / 0.100e3 * t13201 * t6785 + t4690 * t6808 / 0.10e2;
17253   t24054 = t1706 * t6482;
17254   t24057 = t4667 * t6743;
17255   t24060 = t738 * t23813;
17256   t24069 = t6485 * t114;
17257   t24089 = t6785 * t1495;
17258   t24092 = t1727 * t6561;
17259   t24097 = 0.324e3 * t4654 * t23841 + 0.108e3 * t4654 * t23844 - 0.648e3 * t13254 * t23838 - 0.24e2 * t4660 * t23818 - 0.12e2 * t4660 * t23820 - 0.67919282666666666667e1 * t17337 * t23980 - 0.30186347851851851852e0 * t5635 * t23974 + 0.15093173925925925926e1 * t5635 * t23977 + 0.171e3 / 0.1000e4 * t7915 * t24089 - 0.9e1 / 0.50e2 * t2394 * t24092 - 0.9e1 / 0.50e2 * t17157 * t6596;
17260   t24099 = t23862 * t230 - p->cam_beta * (-0.6e1 * t21529 * t1364 - 0.12e2 * t4310 * t6765 - 0.9e1 / 0.100e3 * t208 * t23868 - 0.6e1 * t478 * t23871 - 0.9e1 / 0.50e2 * t1713 * t6533 - 0.6e1 * t478 * t23876 + t208 * t23909 / 0.10e2 - 0.9e1 / 0.100e3 * t1478 * t6786 + t1478 * t6809 / 0.10e2 - 0.12e2 * t20679 * t1701 + t23942 + t23968 + t24000) - 0.12e2 * t5524 * t6580 + 0.54e2 * t13213 * t6820 + 0.54e2 * t1862 * t24008 - 0.6e1 * t21529 * t1502 - 0.12e2 * t20679 * t1734 - 0.12e2 * t5524 * t6575 - 0.9e1 / 0.100e3 * t2394 * t24017 - 0.12e2 * t4310 * t6826 + t24046 + t759 * t23908 / 0.10e2 + 0.75465869629629629628e0 * t21515 * t6586 + 0.75465869629629629630e0 * t20480 * t6823 + 0.75465869629629629630e0 * t5635 * t24054 - 0.6e1 * t478 * t24057 - 0.6e1 * t478 * t24060 + 0.54e2 * t4654 * t23855 - 0.24e2 * t20515 * t6480 + 0.108e3 * t20518 * t6492 - 0.12577644938271604938e0 * t24069 * t124 + t24097;
17261   t24100 = t1353 * t24099;
17262   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17263     v3sigmatau2[0] = -0.3e1 / 0.8e1 * t1352 * t24100;
17264 
17265   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17266     v3sigmatau2[1] = 0.0e0;
17267 
17268   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17269     v3sigmatau2[2] = 0.0e0;
17270 
17271   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17272     v3sigmatau2[3] = 0.0e0;
17273 
17274   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17275     v3sigmatau2[4] = 0.0e0;
17276 
17277   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17278     v3sigmatau2[5] = 0.0e0;
17279 
17280   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17281     v3sigmatau2[6] = 0.0e0;
17282 
17283   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17284     v3sigmatau2[7] = 0.0e0;
17285 
17286   t24107 = t16205 * t6843;
17287   t24111 = t441 * t1524 * t6843;
17288   t24116 = t6891 * t1663;
17289   t24119 = t1785 * t6693;
17290   t24124 = t1524 * t6849;
17291   t24128 = my_piecewise3(t260, t255 * t6846 / 0.4e1, 0);
17292   t24129 = t261 * t24128;
17293   t24131 = t1524 * t6843;
17294   t24133 = t1752 * t6609;
17295   t24135 = t6850 * t1524;
17296   t24137 = t262 * t24128;
17297   t24139 = 0.4e1 * t1751 * t6609 + 0.2e1 * t24124 + 0.2e1 * t24129 + 0.18e2 * t24131 + 0.36e2 * t24133 + 0.18e2 * t24135 + 0.9e1 * t24137;
17298   t24140 = t24139 * t268;
17299   t24153 = t21951 * t1524;
17300   t24156 = t21944 * t1524;
17301   t24159 = t5726 * t6609;
17302   t24170 = t21961 * t1524;
17303   t24177 = 0.12e2 * t1101 * t24131 + 0.24e2 * t1101 * t24133 + 0.12e2 * t1101 * t24135 + 0.6e1 * t1101 * t24137 + 0.648e3 * t12321 * t24153 + 0.6e1 * t1527 * t21965 - 0.54e2 * t16173 * t6879 + 0.12e2 * t1754 * t21214 - 0.108e3 * t17602 * t6624 - 0.324e3 * t24156 * t3817 - 0.108e3 * t24159 * t3817 - 0.54e2 * t24170 * t3817 + 0.12e2 * t5116 * t6852 + 0.6e1 * t5116 * t6854 + 0.24e2 * t5720 * t6612 + 0.12e2 * t5720 * t6614 - t24140;
17304   t24179 = t45 * t6609;
17305   t24189 = t274 * t6849;
17306   t24191 = t46 * t24189 * t424;
17307   t24193 = t420 * t24128;
17308   t24199 = t46 * t274 * t6843;
17309   t24204 = t46 * t1654 * t6849;
17310   t24208 = -0.73e2 / 0.135e3 * t1763 * t24179 * t424 + 0.146e3 / 0.135e3 * t1763 * t6900 * t1524 + 0.73e2 / 0.135e3 * t1763 * t1776 * t6609 + 0.73e2 / 0.19440e5 * t24191 - 0.146e3 / 0.135e3 * t24193 * t424 + 0.292e3 / 0.135e3 * t6907 * t1524 - 0.73e2 / 0.9720e4 * t24199 + 0.584e3 / 0.135e3 * t1780 * t6609 - 0.73e2 / 0.19440e5 * t24204 + 0.146e3 / 0.135e3 * t423 * t24128;
17311   t24220 = t1764 * t6614;
17312   t24223 = t5466 * t6849;
17313   t24226 = t1321 * t24128;
17314   t24235 = t16187 * t6843;
17315   t24238 = t6857 * t1680 - 0.9e1 / 0.50e2 * t17929 * t6728 + 0.75465869629629629628e0 * t21925 * t6718 + 0.75465869629629629630e0 * t21031 * t6929 + 0.75465869629629629630e0 * t5831 * t24220 - 0.6e1 * t1101 * t24223 - 0.6e1 * t1101 * t24226 - 0.12e2 * t5720 * t6707 - 0.12e2 * t5720 * t6712 + 0.54e2 * t16173 * t6926 + 0.54e2 * t3817 * t24235;
17316   t24246 = t6914 * t1663;
17317   t24255 = t6617 * t332;
17318   t24273 = t16826 * t6843;
17319   t24280 = t1102 * t24128;
17320   t24285 = t21996 * t1663;
17321   t24290 = t22002 * t1663;
17322   t24295 = t5137 * t6849;
17323   t24299 = t5778 * t6693;
17324   t24303 = t376 * t1524 * t6843;
17325   t24313 = t1191 * t1754 * t1540;
17326   t24316 = t1764 * t6612;
17327   t24319 = t1764 * t6624;
17328   t24323 = t6617 * t330;
17329   t24326 = t1757 * t1586;
17330   t24329 = -0.9e1 / 0.50e2 * t406 * t24299 - 0.12e2 * t1101 * t24303 - 0.6e1 * t5116 * t6874 - 0.12e2 * t5720 * t6627 - 0.12e2 * t5720 * t6632 - 0.30186347851851851852e0 * t17644 * t24313 + 0.15093173925925925926e1 * t17644 * t24316 - 0.67919282666666666667e1 * t21318 * t24319 + t6857 * t1641 - 0.12577644938271604938e0 * t24323 * t1765 - 0.12577644938271604938e0 * t24326 * t1765;
17331   t24342 = t46 * t5743 * t6609;
17332   t24345 = t24177 * t405;
17333   t24348 = t16921 * t6843;
17334   t24355 = 0.54e2 * t5122 * t24170 - 0.12e2 * t5130 * t24135 + 0.75465869629629629628e0 * t22169 * t6639 + 0.75465869629629629630e0 * t21430 * t6868 + 0.75465869629629629630e0 * t21441 * t6868 + 0.75465869629629629630e0 * t5742 * t24342 + t24345 * t428 + t24140 * t376 + 0.54e2 * t3817 * t24348 - 0.12e2 * t5116 * t6871 - 0.24e2 * t5130 * t24133;
17335   t24370 = t1291 * t24208;
17336   t24379 = -0.24e2 * t21386 * t6612 + 0.108e3 * t21389 * t6624 + 0.324e3 * t5122 * t24156 + 0.108e3 * t5122 * t24159 - 0.648e3 * t16906 * t24153 + t6887 * t1664 / 0.10e2 + t1646 * t6915 / 0.10e2 + t406 * t24370 / 0.10e2 + t6659 * t1786 / 0.5e1 + t1771 * t6694 / 0.5e1 - 0.9e1 / 0.100e3 * t1646 * t6892;
17337   t24393 = -0.648e3 * t16236 * t24153 - 0.24e2 * t5459 * t24133 - 0.12e2 * t5459 * t24135 + 0.54e2 * t5453 * t24170 + t22207 * t1663 / 0.10e2 - p->cam_beta * (-0.12e2 * t1101 * t24273 - 0.6e1 * t21965 * t1532 - 0.12e2 * t21214 * t1759 - 0.6e1 * t1101 * t24280 + 0.54e2 * t16173 * t6864 - 0.9e1 / 0.100e3 * t406 * t24285 - 0.9e1 / 0.50e2 * t1771 * t6665 + 0.171e3 / 0.1000e4 * t406 * t24290 + 0.50310579753086419752e-1 * t22029 * t6645 - 0.6e1 * t1101 * t24295 + t24329 + t24355 + t24379) - 0.30186347851851851852e0 * t5831 * t24313 + 0.15093173925925925926e1 * t5831 * t24316 - 0.67919282666666666667e1 * t17947 * t24319 + t21142 * t1785 / 0.5e1 + t5841 * t6693 / 0.5e1;
17338   t24395 = -0.9e1 / 0.100e3 * t16942 * t6891 + t5489 * t6914 / 0.10e2 - 0.12e2 * t1101 * t24107 - 0.12e2 * t1101 * t24111 - 0.6e1 * t5116 * t6935 + 0.171e3 / 0.1000e4 * t12495 * t24116 - 0.9e1 / 0.50e2 * t4278 * t24119 + t24177 * t428 + t1342 * t24208 / 0.10e2 + t24140 * t441 + t24238 - 0.12e2 * t5116 * t6932 - 0.6e1 * t21965 * t1670 - 0.12e2 * t21214 * t1792 - 0.9e1 / 0.100e3 * t4278 * t24246 + 0.50310579753086419752e-1 * t6923 * t6645 - 0.24e2 * t21078 * t6612 + 0.108e3 * t21081 * t6624 - 0.12577644938271604938e0 * t24255 * t340 + 0.324e3 * t5453 * t24156 + 0.108e3 * t5453 * t24159 + t24393;
17339   t24396 = t1521 * t24395;
17340   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17341     v3sigmatau2[8] = -0.3e1 / 0.8e1 * t1352 * t24396;
17342 
17343   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17344     v3lapl3[0] = 0.0e0;
17345 
17346   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17347     v3lapl3[1] = 0.0e0;
17348 
17349   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17350     v3lapl3[2] = 0.0e0;
17351 
17352   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17353     v3lapl3[3] = 0.0e0;
17354 
17355   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17356     v3lapl2tau[0] = 0.0e0;
17357 
17358   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17359     v3lapl2tau[1] = 0.0e0;
17360 
17361   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17362     v3lapl2tau[2] = 0.0e0;
17363 
17364   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17365     v3lapl2tau[3] = 0.0e0;
17366 
17367   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17368     v3lapl2tau[4] = 0.0e0;
17369 
17370   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17371     v3lapl2tau[5] = 0.0e0;
17372 
17373   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17374     v3lapltau2[0] = 0.0e0;
17375 
17376   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17377     v3lapltau2[1] = 0.0e0;
17378 
17379   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17380     v3lapltau2[2] = 0.0e0;
17381 
17382   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17383     v3lapltau2[3] = 0.0e0;
17384 
17385   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17386     v3lapltau2[4] = 0.0e0;
17387 
17388   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
17389     v3lapltau2[5] = 0.0e0;
17390 
17391   t24399 = t1706 * t6746;
17392   t24402 = t6785 * t1727;
17393   t24405 = t1727 * t6808;
17394   t24412 = t1689 * t1689;
17395   t24413 = 0.1e1 / t24412;
17396   t24416 = my_piecewise3(t24, -0.3e1 / 0.4e1 * t20 * t24413, 0);
17397   t24417 = t25 * t24416;
17398   t24419 = t6737 * t1693;
17399   t24421 = t1694 * t6743;
17400   t24423 = t26 * t24416;
17401   t24425 = 0.6e1 * t1693 * t6743 + 0.2e1 * t24417 + 0.18e2 * t24419 + 0.54e2 * t24421 + 0.9e1 * t24423;
17402   t24426 = t24425 * t32;
17403   t24435 = t6996 * t24419;
17404   t24438 = t27 * t24419;
17405   t24441 = t5530 * t6743;
17406   t24450 = 0.18e2 * t1696 * t21529 - 0.162e3 * t17102 * t6773 - 0.324e3 * t1862 * t24438 - 0.162e3 * t1862 * t24441 + 0.12e2 * t24419 * t478 + 0.36e2 * t24421 * t478 + 0.6e1 * t24423 * t478 + 0.648e3 * t24435 * t6995 + 0.36e2 * t5524 * t6746 + 0.18e2 * t5524 * t6748 - t24426;
17407   t24452 = t160 * t24419;
17408   t24455 = t479 * t24416;
17409   t24466 = t7044 * t24419;
17410   t24472 = t46 * t17243 * t6737;
17411   t24476 = t46 * t5547 * t6743;
17412   t24479 = t45 * t6743;
17413   t24489 = t222 * t24416;
17414   t24496 = -0.73e2 / 0.90e2 * t1705 * t24479 * t226 + 0.73e2 / 0.45e2 * t1705 * t45 * t6737 + 0.73e2 / 0.90e2 * t1705 * t1718 * t6743 - 0.146e3 / 0.135e3 * t24489 * t226 + 0.292e3 / 0.45e2 * t6801 * t1693 + 0.146e3 / 0.135e3 * t225 * t24416;
17415   t24497 = t708 * t24496;
17416   t24500 = -0.12e2 * t478 * t24452 - 0.6e1 * t478 * t24455 - 0.27e2 / 0.100e3 * t1713 * t6786 - 0.18e2 * t21529 * t1701 - 0.18e2 * t5524 * t6768 + 0.162e3 * t17102 * t6758 - 0.648e3 * t6995 * t24466 + 0.22639760888888888889e1 * t21756 * t6762 - 0.10187892400000000000e2 * t17242 * t24472 + 0.11319880444444444444e1 * t5546 * t24476 + t208 * t24497 / 0.10e2;
17417   t24505 = t7029 * t24402;
17418   t24508 = t5582 * t6808;
17419   t24512 = t46 * t17225 * t6737;
17420   t24516 = t24450 * t207;
17421   t24518 = t6751 * t112;
17422   t24523 = t7308 * t24419;
17423   t24530 = 0.3e1 / 0.10e2 * t1713 * t6809 + 0.3e1 / 0.10e2 * t6781 * t1728 + 0.171e3 / 0.1000e4 * t208 * t24505 - 0.27e2 / 0.100e3 * t208 * t24508 + 0.22639760888888888889e1 * t5546 * t24512 + t24426 * t160 + t24516 * t230 - 0.18866467407407407407e0 * t24518 * t1707 - 0.36e2 * t5524 * t6765 + 0.324e3 * t1862 * t24523 + 0.162e3 * t4316 * t24441 - 0.36e2 * t4324 * t24421;
17424   t24539 = t7903 * t24419;
17425   t24546 = 0.22639760888888888889e1 * t5635 * t24399 + 0.171e3 / 0.1000e4 * t7915 * t24402 - 0.27e2 / 0.100e3 * t2394 * t24405 - 0.27e2 / 0.100e3 * t17157 * t6785 + t24450 * t230 - p->cam_beta * (t24500 + t24530) - 0.18e2 * t21529 * t1734 - 0.18e2 * t5524 * t6829 + 0.162e3 * t17102 * t6820 - 0.648e3 * t6995 * t24539 + t759 * t24496 / 0.10e2 + 0.3e1 / 0.10e2 * t21553 * t1727;
17426   t24552 = t1706 * t6773;
17427   t24555 = t1706 * t6748;
17428   t24558 = t6751 * t114;
17429   t24563 = t7899 * t24419;
17430   t24570 = t244 * t24419;
17431   t24573 = t738 * t24416;
17432   t24576 = 0.3e1 / 0.10e2 * t5645 * t6808 + t24426 * t244 + 0.22639760888888888889e1 * t21515 * t6823 - 0.10187892400000000000e2 * t17337 * t24552 + 0.11319880444444444444e1 * t5635 * t24555 - 0.18866467407407407407e0 * t24558 * t124 - 0.36e2 * t5524 * t6826 + 0.324e3 * t1862 * t24563 + 0.162e3 * t4654 * t24441 - 0.36e2 * t4660 * t24421 - 0.12e2 * t478 * t24570 - 0.6e1 * t478 * t24573;
17433   t24577 = t24546 + t24576;
17434   t24578 = t1353 * t24577;
17435   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17436     v3tau3[0] = -0.3e1 / 0.8e1 * t1352 * t24578;
17437 
17438   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17439     v3tau3[1] = 0.0e0;
17440 
17441   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17442     v3tau3[2] = 0.0e0;
17443 
17444   t24581 = t1764 * t6852;
17445   t24584 = t1785 * t6914;
17446   t24589 = t6891 * t1785;
17447   t24592 = t6843 * t1751;
17448   t24593 = t441 * t24592;
17449   t24596 = t1747 * t1747;
17450   t24597 = 0.1e1 / t24596;
17451   t24600 = my_piecewise3(t260, -0.3e1 / 0.4e1 * t256 * t24597, 0);
17452   t24601 = t1321 * t24600;
17453   t24610 = t12459 * t24592;
17454   t24615 = t261 * t24600;
17455   t24618 = t1752 * t6849;
17456   t24620 = t262 * t24600;
17457   t24622 = 0.6e1 * t1751 * t6849 + 0.18e2 * t24592 + 0.2e1 * t24615 + 0.54e2 * t24618 + 0.9e1 * t24620;
17458   t24623 = t24622 * t268;
17459   t24632 = t12322 * t24592;
17460   t24635 = t263 * t24592;
17461   t24638 = t5726 * t6849;
17462   t24647 = 0.12e2 * t1101 * t24592 + 0.36e2 * t1101 * t24618 + 0.6e1 * t1101 * t24620 + 0.648e3 * t12321 * t24632 + 0.18e2 * t1754 * t21965 - 0.162e3 * t17602 * t6879 - 0.324e3 * t24635 * t3817 - 0.162e3 * t24638 * t3817 + 0.36e2 * t5720 * t6852 + 0.18e2 * t5720 * t6854 - t24623;
17463   t24650 = t46 * t5743 * t6849;
17464   t24656 = t46 * t17858 * t6843;
17465   t24659 = t45 * t6849;
17466   t24669 = t420 * t24600;
17467   t24676 = -0.73e2 / 0.90e2 * t1763 * t24659 * t424 + 0.73e2 / 0.45e2 * t1763 * t45 * t6843 + 0.73e2 / 0.90e2 * t1763 * t1776 * t6849 - 0.146e3 / 0.135e3 * t24669 * t424 + 0.292e3 / 0.45e2 * t6907 * t1751 + 0.146e3 / 0.135e3 * t423 * t24600;
17468   t24677 = t1291 * t24676;
17469   t24686 = t12494 * t24589;
17470   t24689 = t5778 * t6914;
17471   t24693 = t46 * t17848 * t6843;
17472   t24698 = 0.11319880444444444444e1 * t5742 * t24650 + 0.22639760888888888889e1 * t22169 * t6868 - 0.10187892400000000000e2 * t17857 * t24656 + t406 * t24677 / 0.10e2 + 0.3e1 / 0.10e2 * t6887 * t1786 + 0.3e1 / 0.10e2 * t1771 * t6915 - 0.27e2 / 0.100e3 * t1771 * t6892 + 0.171e3 / 0.1000e4 * t406 * t24686 - 0.27e2 / 0.100e3 * t406 * t24689 + 0.22639760888888888889e1 * t5742 * t24693 - 0.18e2 * t5720 * t6874;
17473   t24701 = t12918 * t24592;
17474   t24704 = t376 * t24592;
17475   t24707 = t1102 * t24600;
17476   t24711 = t24647 * t405;
17477   t24717 = t12889 * t24592;
17478   t24724 = t6857 * t330;
17479   t24727 = 0.162e3 * t17602 * t6864 - 0.648e3 * t12321 * t24701 - 0.12e2 * t1101 * t24704 - 0.6e1 * t1101 * t24707 + t24623 * t376 + t24711 * t428 - 0.18e2 * t21965 * t1759 - 0.36e2 * t5720 * t6871 + 0.324e3 * t3817 * t24717 + 0.162e3 * t5122 * t24638 - 0.36e2 * t5130 * t24618 - 0.18866467407407407407e0 * t24724 * t1765;
17480   t24730 = 0.22639760888888888889e1 * t5831 * t24581 - 0.27e2 / 0.100e3 * t4278 * t24584 - 0.27e2 / 0.100e3 * t17929 * t6891 + 0.171e3 / 0.1000e4 * t12495 * t24589 - 0.12e2 * t1101 * t24593 - 0.6e1 * t1101 * t24601 - 0.18e2 * t21965 * t1792 - 0.18e2 * t5720 * t6935 + 0.162e3 * t17602 * t6926 - 0.648e3 * t12321 * t24610 + t24647 * t428 - p->cam_beta * (t24698 + t24727);
17481   t24731 = t6857 * t332;
17482   t24736 = t12451 * t24592;
17483   t24752 = t1764 * t6879;
17484   t24755 = t1764 * t6854;
17485   t24758 = -0.18866467407407407407e0 * t24731 * t340 - 0.36e2 * t5720 * t6932 + 0.324e3 * t3817 * t24736 + 0.162e3 * t5453 * t24638 - 0.36e2 * t5459 * t24618 + t1342 * t24676 / 0.10e2 + 0.3e1 / 0.10e2 * t22207 * t1785 + 0.3e1 / 0.10e2 * t5841 * t6914 + t24623 * t441 + 0.22639760888888888889e1 * t21925 * t6929 - 0.10187892400000000000e2 * t17947 * t24752 + 0.11319880444444444444e1 * t5831 * t24755;
17486   t24759 = t24730 + t24758;
17487   t24760 = t1521 * t24759;
17488   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
17489     v3tau3[3] = -0.3e1 / 0.8e1 * t1352 * t24760;
17490 
17491 #ifndef XC_DONT_COMPILE_LXC
17492 
17493   if(order < 4) return;
17494 
17495 
17496   t24763 = 0.5e1 / 0.9e1 * t6951;
17497   t24775 = -t24763 + t6954 - 0.3e1 / 0.2e1 * t7927 - 0.2e1 * t7931 + 0.6e1 * t7935 + 0.4e1 * t7939 - 0.6e1 * t7942 - 0.2e1 * t7947 + 0.3e1 / 0.2e1 * t7950 - 0.2e1 * t7955 - 0.2e1 * t7958 - 0.2e1 / 0.3e1 * t7962 - t7965 - 0.2e1 * t7969;
17498   t24789 = t8 * t2426 * t2747;
17499   t24791 = t2421 * t2421;
17500   t24797 = t8 * t1832 * t2399;
17501   t24800 = t8 * t2411 * t7953;
17502   t24802 = t14 * t14;
17503   t24804 = 0.1e1 / t1809 / t24802;
17504   t24805 = t24804 * t17;
17505   t24806 = t1812 * t1812;
17506   t24811 = t7977 * t189;
17507   t24813 = t8 * t24811 * t7980;
17508   t24815 = t7059 * t10;
17509   t24817 = t9 / t24815;
17510   t24818 = -t7060 + t24817;
17511   t24819 = 0.12e2 * t24818;
17512   t24824 = t2 * t8722;
17513   t24827 = 0.140e3 / 0.729e3 * t38 * t24824 * t291;
17514   t24829 = t490 * t3182 * t782;
17515   t24832 = t490 * t7993 * t2444;
17516   t24835 = t490 * t7993 * t2449;
17517   t24838 = t490 * t2436 * t8007;
17518   t24841 = t490 * t2436 * t8012;
17519   t24844 = t490 * t2436 * t8017;
17520   t24846 = t2440 * t2440;
17521   t24848 = 0.1e1 / t289 / t24846;
17522   t24849 = t2443 * t2443;
17523   t24859 = t2448 * t2448;
17524   t24869 = -0.24e2 * t24818;
17525   t24874 = t24827 + 0.56e2 / 0.729e3 * t24829 + 0.16e2 / 0.243e3 * t24832 - 0.4e1 / 0.81e2 * t24835 + 0.56e2 / 0.729e3 * t24838 - 0.8e1 / 0.81e2 * t24841 + 0.2e1 / 0.81e2 * t24844 + 0.140e3 / 0.729e3 * t490 * t778 * t24848 * t24849 - 0.28e2 / 0.81e2 * t490 * t778 * t8005 * t2443 * t2448 + 0.2e1 / 0.27e2 * t490 * t778 * t2442 * t24859 + 0.8e1 / 0.81e2 * t490 * t778 * t8011 * t8016 - t490 * t778 * t780 * t24869 / 0.54e2;
17526   t24875 = my_piecewise3(t295, 0, t24874);
17527   t24884 = t2460 * t2460;
17528   t24889 = 0.1e1 / t350 / t344;
17529   t24895 = t8058 * t24884 * t304;
17530   t24899 = t2454 * t2454;
17531   t24907 = t304 * t2459;
17532   t24908 = t24907 * t24884;
17533   t24910 = t2460 * t2454;
17534   t24911 = t8039 * t24910;
17535   t24915 = t787 * t8022;
17536   t24919 = t2472 * t24899 * t304;
17537   t24921 = t8055 * t8124;
17538   t24925 = 0.15e2 * t8058 * t2460 * t2521;
17539   t24940 = t2479 * t24884 * t304;
17540   t24942 = t2461 * t2521;
17541   t24945 = 0.1e1 / t350 / t319;
17542   t24956 = t297 * t24875 * t304;
17543   t24958 = t8035 * t24884 * t304;
17544   t24961 = 0.1e1 / t350 / t301;
17545   t24963 = t24961 * t24884 * t304;
17546   t24968 = -0.6e1 * t24919 - 0.8e1 * t24921 - t24925 + t2479 * t8022 * t820 + 0.3e1 / 0.4e1 * t2479 * t24899 * t304 + 0.3e1 / 0.4e1 * t8068 * t2454 * t2518 - 0.3e1 * t302 * t24899 * t304 - 0.4e1 * t864 * t8124 - 0.75e2 / 0.2e1 * t24940 + 0.45e2 * t24942 + t24945 * t24884 * t304 / 0.16e2 - 0.12e2 * t24899 * t305 - 0.16e2 * t3214 * t8022 - 0.4e1 * t797 * t24875 - t24956 + 0.85e2 / 0.4e1 * t24958 - 0.19e2 / 0.8e1 * t24963 + t793 * t24875 * t304 / 0.2e1;
17547   t24979 = 0.15e2 / 0.4e1 * t8068 * t24884 * t304 - t24889 * t24884 * t304 / 0.8e1 - t789 * t24875 - 0.24e2 * t24895 + 0.21e2 * t2480 * t2521 - 0.3e1 / 0.2e1 * t2459 * t24899 * t304 - 0.2e1 * t3192 * t8124 - 0.3e1 / 0.2e1 * t9565 * t2521 + 0.24e2 * t24908 - 0.36e2 * t24911 + 0.6e1 * t2464 * t24899 + 0.8e1 * t2464 * t24915 + 0.2e1 * t296 * t24968 + 0.8e1 * t787 * t8080 + 0.8e1 * t8022 * t802 + 0.12e2 * t2454 * t2491 + 0.2e1 * t24875 * t308;
17548   t24992 = t296 * t8149;
17549   t25001 = t24899 * t304;
17550   t25004 = t321 * t8035;
17551   t25005 = t24884 * t304;
17552   t25008 = t817 * t2459;
17553   t25015 = t2513 * t2472;
17554   t25018 = t817 * t8058;
17555   t25021 = t24875 * t304;
17556   t25024 = t321 * t24945;
17557   t25027 = t8108 * t793;
17558   t25032 = t2513 * t2479;
17559   t25038 = t817 * t8068;
17560   t25041 = t321 * t24961;
17561   t25048 = 0.3e1 / 0.4e1 * t2524 * t25001 + 0.75e2 / 0.4e1 * t25004 * t25005 + 0.24e2 * t25008 * t8121 - 0.30e2 * t2524 * t25005 - 0.9e1 / 0.2e1 * t2517 * t25001 - 0.9e1 * t25015 * t2518 - 0.9e1 * t25018 * t8121 + t819 * t25021 / 0.2e1 + t25024 * t25005 / 0.16e2 + 0.2e1 * t25027 * t820 + 0.3e1 * t8112 * t2521 + 0.3e1 / 0.2e1 * t25032 * t2518 + 0.2e1 * t2515 * t8124 - 0.216e3 * t24899 + t25038 * t8121 / 0.2e1 - 0.9e1 / 0.4e1 * t25041 * t25005 - 0.20e2 * t24921 - t24925 + 0.120e3 * t24942 + 0.3e1 * t8117 * t8143;
17562   t25049 = t2518 * t2454;
17563   t25052 = t8124 * t787;
17564   t25067 = 0.1536e4 * t24884;
17565   t25068 = t2546 * t2454;
17566   t25069 = 0.9216e4 * t25068;
17567   t25070 = t837 * t8022;
17568   t25071 = 0.3072e4 * t25070;
17569   t25075 = t344 * t24875;
17570   t25076 = 0.256e3 * t25075;
17571   t25078 = t296 * t24875;
17572   t25083 = t301 * t24899;
17573   t25084 = 0.2304e4 * t25083;
17574   t25087 = -0.27e2 / 0.2e1 * t8120 * t25049 - 0.6e1 * t2517 * t25052 + t2524 * t25052 + 0.3e1 / 0.4e1 * t8127 * t25049 + 0.36e2 * t8140 * t25049 - 0.18e2 * t8137 * t8143 - 0.15e2 * t24919 - 0.100e3 * t24940 - 0.10e2 * t24956 + 0.55e2 / 0.2e1 * t24958 - 0.5e1 / 0.4e1 * t24963 + t25067 + t25069 + t25071 + 0.10e2 * t78 * t24875 * t299 + t25076 - 0.288e3 * t24915 - 0.72e2 * t25078 + (0.120e3 * t24899 + 0.160e3 * t24915 + 0.40e2 * t25078 - t25067 - t25069 - t25084 - t25071 - t25076) * t304 + t25084;
17575   t25112 = t363 * t24889;
17576   t25115 = t8210 * t793;
17577   t25127 = t301 * t8182;
17578   t25130 = t296 * t2590;
17579   t25137 = 0.576e3 * t2574 * t24915 + 0.960e3 * t824 * t8235 + 0.4320e4 * t2518 * t2607 + 0.240e3 * t324 * t24875 * t299 - t25112 * t25005 / 0.4e1 + 0.2e1 * t25115 * t820 - 0.2e1 * t863 * t302 * t24875 - 0.1920e4 * t800 * t8124 + 0.3e1 * t8243 * t2521 + 0.2e1 * t2564 * t8124 + 0.288e3 * t25127 * t787 + 0.864e3 * t25130 * t2460 + 0.432e3 * t8263 * t2454 + 0.288e3 * t2577 * t8022;
17580   t25156 = t363 * t8068;
17581   t25159 = t2562 * t2472;
17582   t25162 = t845 * t8058;
17583   t25165 = t353 * t8035;
17584   t25174 = 0.72e2 * t850 * t24875 - 0.2880e4 * t25005 * t793 + 0.864e3 * t9869 * t2454 + 0.432e3 * t2574 * t24899 + 0.720e3 * t78 * t24899 * t299 - 0.1440e4 * t297 * t24899 * t304 + 0.3e1 / 0.4e1 * t2571 * t25001 - 0.3e1 * t2602 * t25001 + 0.15e2 / 0.2e1 * t25156 * t25005 - 0.9e1 * t25159 * t2518 - 0.9e1 * t25162 * t8121 + 0.75e2 / 0.4e1 * t25165 * t25005 + 0.48e2 * t863 * t2459 * t24884 + 0.12e2 * t863 * t793 * t24899;
17585   t25176 = t845 * t2459;
17586   t25183 = t363 * t8058;
17587   t25186 = t2562 * t2479;
17588   t25189 = t845 * t8068;
17589   t25192 = t353 * t24961;
17590   t25197 = t353 * t24945;
17591   t25241 = -0.371589120e9 * t2454 * t2460 * t357 - 0.207360e6 * t2454 * t2509 + 0.4849740e7 * t2454 * t2586 + 0.768e3 * t24875 * t301 - 0.2880e4 * t24875 * t319 - 0.1105920e7 * t24875 * t350 + 0.26943e5 * t24875 * t357 - 0.69120e5 * t24884 * t296 + 0.3233160e7 * t24884 * t344 - 0.371589120e9 * t24884 * t346 + 0.4608e4 * t24899 * t296 - 0.34560e5 * t24899 * t344 + 0.484974e6 * t24899 * t346 - 0.26542080e8 * t24899 * t348 + 0.6144e4 * t8022 * t813 - 0.46080e5 * t8022 * t815 - 0.35389440e8 * t8022 * t8205 + 0.646632e6 * t8022 * t855 - 0.8e1 * t24875 + 0.9216e4 * t24910;
17592   t25261 = 0.3686400e7 * t2454 * t2550 + 0.30720e5 * t24875 * t346 + 0.1843200e7 * t24884 * t301 + 0.460800e6 * t24899 * t319 + 0.614400e6 * t8022 * t839 - 0.34560e5 * t24884 + 0.1344e4 * t24899 + 0.1792e4 * t24915 - 0.207360e6 * t25068 - 0.69120e5 * t25070 - 0.5760e4 * t25075 + 0.448e3 * t25078 - 0.51840e5 * t25083;
17593   t25268 = 0.24e2 * t25176 * t8121 - 0.30e2 * t2571 * t25005 - 0.9e1 / 0.2e1 * t2566 * t25001 - 0.48e2 * t25183 * t25005 + 0.3e1 / 0.2e1 * t25186 * t2518 + t25189 * t8121 / 0.2e1 - 0.9e1 / 0.4e1 * t25192 * t25005 + t847 * t25021 / 0.2e1 + t25197 * t25005 / 0.16e2 + 0.1728e4 * t8260 * t8042 + t25241 * t304 + 0.24e2 * t344 * t25261 + 0.576e3 * t8029 * t857 - 0.4e1 * t2602 * t25052;
17594   t25295 = -0.18e2 * t8249 * t8143 + 0.3e1 * t8219 * t8143 - 0.72e2 * t863 * t2473 * t2454 + 0.42e2 * t8255 * t25049 + 0.36e2 * t8252 * t25049 - 0.3e1 * t8240 * t25049 - 0.27e2 / 0.2e1 * t8222 * t25049 - 0.6e1 * t2566 * t25052 + t2571 * t25052 + 0.3e1 / 0.4e1 * t8227 * t25049 + 0.16e2 * t863 * t8062 * t787 - 0.240e3 * t24895 + 0.2640e4 * t24908 - 0.2160e4 * t24911;
17595   t25308 = t38 * t485 * t8468;
17596   t25311 = t490 * t8444 * t2639;
17597   t25318 = t490 * t2623 * t8476;
17598   t25321 = t490 * t2623 * t8472;
17599   t25324 = t490 * t2623 * t8484;
17600   t25339 = t490 * t8463 * t8504;
17601   t25347 = 0.1120e4 / 0.2187e4 * t38 * t24824 * t401;
17602   t25349 = t38 * t1939 * t2739;
17603   t25351 = 0.16e2 / 0.81e2 * t25308 + 0.32e2 / 0.243e3 * t25311 + 0.16e2 / 0.81e2 * t490 * t880 * t8467 * t781 - 0.16e2 / 0.243e3 * t25318 - 0.16e2 / 0.81e2 * t25321 - 0.16e2 / 0.81e2 * t25324 - 0.64e2 / 0.81e2 * t490 * t2630 * t8472 * t781 - 0.64e2 / 0.243e3 * t490 * t2630 * t8476 * t781 + 0.224e3 / 0.243e3 * t490 * t8454 * t2631 * t2448 + 0.64e2 / 0.243e3 * t25339 + 0.8e1 / 0.27e2 * t490 * t880 * t2738 * t2448 - t25347 - 0.32e2 / 0.81e2 * t25349;
17604   t25353 = t38 * t7096 * t929;
17605   t25360 = t490 * t3382 * t881;
17606   t25363 = t490 * t8444 * t2635;
17607   t25373 = t1938 * t2442;
17608   t25375 = t490 * t25373 * t2631;
17609   t25377 = t484 * t8005;
17610   t25379 = t490 * t25377 * t8500;
17611   t25381 = t39 * t24848;
17612   t25391 = t38 * t1939 * t2734;
17613   t25397 = t490 * t2623 * t8429;
17614   t25400 = t490 * t8463 * t8433;
17615   t25427 = t490 * t8444 * t2675;
17616   t25430 = t490 * t25377 * t8455;
17617   t25441 = t38 * t7096 * t924;
17618   t25445 = 0.8e1 / 0.27e2 * t25391 + 0.6e1 * t908 * t891 * t2697 + 0.4e1 / 0.81e2 * t25397 - 0.16e2 / 0.81e2 * t25400 - 0.112e3 / 0.243e3 * t490 * t8454 * t923 * t8006 + 0.8e1 / 0.27e2 * t490 * t2630 * t2733 * t2443 - 0.4e1 / 0.27e2 * t490 * t880 * t923 * t8016 - t490 * t880 * t395 * t24869 / 0.27e2 + 0.16e2 / 0.81e2 * t490 * t2630 * t8429 * t781 - 0.4e1 / 0.27e2 * t490 * t880 * t8388 * t781 - 0.16e2 / 0.81e2 * t25427 + 0.112e3 / 0.729e3 * t25430 + 0.280e3 / 0.729e3 * t490 * t25381 * t395 * t24849 + 0.4e1 / 0.27e2 * t490 * t2630 * t395 * t24859 - 0.112e3 / 0.243e3 * t25441 + 0.6e1 * t2698 * t2659;
17619   t25453 = t490 * t8444 * t2679;
17620   t25456 = t490 * t2623 * t8425;
17621   t25463 = t490 * t8463 * t8459;
17622   t25471 = 0.80e2 / 0.243e3 * t166 * t7207 * t289;
17623   t25473 = t166 * t2256 * t887;
17624   t25476 = t166 * t674 * t2651;
17625   t25479 = t166 * t674 * t2655;
17626   t25482 = t166 * t190 * t8411;
17627   t25485 = t3023 * t914 * t8309;
17628   t25488 = t166 * t190 * t8418;
17629   t25494 = t2443 * t2448;
17630   t25502 = t781 * t8016;
17631   t25510 = -t25471 + 0.40e2 / 0.243e3 * t25473 + 0.8e1 / 0.81e2 * t25476 - 0.4e1 / 0.27e2 * t25479 + 0.40e2 / 0.243e3 * t25482 - 0.8e1 / 0.27e2 * t25485 + 0.4e1 / 0.27e2 * t25488 - 0.80e2 / 0.243e3 * t166 * t168 * t8365 * t24849 + 0.20e2 / 0.27e2 * t3023 * t9942 * t25494 - 0.2e1 / 0.9e1 * t166 * t168 * t913 * t24859 - 0.8e1 / 0.27e2 * t3023 * t3400 * t25502 + t166 * t168 * t389 * t24869 / 0.9e1;
17632   t25518 = t388 * t2448 * t781;
17633   t25522 = t167 * t9360;
17634   t25525 = 0.440e3 / 0.729e3 * t188 * t25522 * t391;
17635   t25527 = t2697 * t2699 * t388;
17636   t25530 = t8317 * t907 * t388;
17637   t25533 = t679 * t3465 * t915;
17638   t25535 = t3092 * t389;
17639   t25537 = t679 * t25535 * t908;
17640   t25540 = t679 * t8329 * t2723;
17641   t25543 = t679 * t8333 * t2698;
17642   t25550 = t2697 * t2697;
17643   t25551 = t25550 * t388;
17644   t25553 = t2699 * t2699;
17645   t25554 = t25553 * t388;
17646   t25560 = t679 * t8354 * t8371;
17647   t25563 = t679 * t2704 * t8347;
17648   t25566 = t679 * t2704 * t8379;
17649   t25569 = t679 * t2708 * t8289;
17650   t25582 = t679 * t8329 * t2719;
17651   t25584 = 0.3e1 * t25551 + t25554 + 0.2e1 / 0.9e1 * t679 * t914 * t2700 * t2448 + 0.40e2 / 0.81e2 * t25560 - 0.8e1 / 0.27e2 * t25563 - 0.8e1 / 0.27e2 * t25566 + 0.4e1 / 0.9e1 * t25569 + 0.4e1 / 0.27e2 * t679 * t914 * t8292 * t781 - t679 * t919 * t25527 / 0.3e1 - 0.2e1 / 0.9e1 * t679 * t919 * t25530 + 0.40e2 / 0.81e2 * t25582;
17652   t25586 = t2255 * t2713;
17653   t25588 = t679 * t25586 * t2715;
17654   t25591 = t679 * t8333 * t2700;
17655   t25594 = t679 * t2704 * t8319;
17656   t25597 = t679 * t2708 * t8318;
17657   t25605 = 0.56e2 / 0.243e3 * t179 * t7096 * t384;
17658   t25607 = t179 * t1939 * t903;
17659   t25610 = t179 * t485 * t2689;
17660   t25613 = t179 * t485 * t2693;
17661   t25616 = t179 * t40 * t8305;
17662   t25619 = t3065 * t880 * t8309;
17663   t25622 = t179 * t40 * t8313;
17664   t25642 = t25605 - 0.64e2 / 0.243e3 * t25607 - 0.8e1 / 0.81e2 * t25610 + 0.8e1 / 0.27e2 * t25613 - 0.64e2 / 0.243e3 * t25616 + 0.16e2 / 0.27e2 * t25619 - 0.16e2 / 0.27e2 * t25622 + 0.56e2 / 0.243e3 * t179 * t181 * t8005 * t24849 - 0.16e2 / 0.27e2 * t3065 * t10035 * t25494 + 0.2e1 / 0.9e1 * t179 * t181 * t780 * t24859 + 0.8e1 / 0.27e2 * t3065 * t3440 * t25502 - 0.2e1 / 0.9e1 * t179 * t181 * t290 * t24869;
17665   t25643 = t25642 * t388;
17666   t25648 = t679 * t2708 * t8292;
17667   t25650 = t673 * t8365;
17668   t25652 = t679 * t25650 * t8367;
17669   t25656 = t189 / t384 / t24846;
17670   t25667 = -0.100e3 / 0.243e3 * t25588 - 0.10e2 / 0.27e2 * t25591 - 0.8e1 / 0.81e2 * t25594 + 0.4e1 / 0.27e2 * t25597 - 0.5e1 / 0.27e2 * t679 * t2714 * t390 * t24859 - t679 * t919 * t25643 / 0.18e2 + 0.4e1 / 0.27e2 * t25648 - 0.320e3 / 0.729e3 * t25652 - 0.440e3 / 0.729e3 * t679 * t25656 * t390 * t24849 - t679 * t919 * t25554 / 0.18e2 - t679 * t919 * t25551 / 0.6e1;
17671   t25689 = t679 * t8354 * t8375;
17672   t25700 = t679 * t2704 * t8383;
17673   t25706 = -0.20e2 / 0.81e2 * t679 * t2714 * t8319 * t781 + 0.4e1 / 0.27e2 * t679 * t914 * t908 * t8016 + 0.4e1 / 0.27e2 * t679 * t914 * t8318 * t781 + 0.160e3 / 0.243e3 * t679 * t8366 * t908 * t8006 - 0.10e2 / 0.27e2 * t679 * t2714 * t2698 * t2443 + 0.40e2 / 0.81e2 * t25689 + 0.80e2 / 0.81e2 * t679 * t8366 * t2715 * t2448 + 0.2e1 / 0.9e1 * t679 * t914 * t2698 * t2448 - 0.8e1 / 0.27e2 * t25700 - 0.10e2 / 0.27e2 * t679 * t2714 * t2700 * t2443 + t25643;
17674   t25714 = t38 * t485 * t8389;
17675   t25717 = t490 * t2623 * t8437;
17676   t25726 = t490 * t25373 * t2671;
17677   t25730 = 0.280e3 / 0.729e3 * t38 * t24824 * t396;
17678   t25732 = t490 * t3382 * t897;
17679   t25734 = 0.6e1 * t908 * t8422 - 0.2e1 / 0.9e1 * t490 * t880 * t2733 * t2448 - 0.8e1 / 0.81e2 * t25453 + 0.4e1 / 0.27e2 * t25456 - 0.56e2 / 0.81e2 * t490 * t8454 * t2671 * t2448 - 0.16e2 / 0.81e2 * t25463 + 0.16e2 / 0.27e2 * t490 * t2630 * t8425 * t781 + 0.2e1 * t388 * t25510 + t38 * t40 * t290 * (0.4e1 / 0.9e1 * t9369 * t913 * t2697 * t2719 - 0.20e2 / 0.27e2 * t9369 * t10100 * t25518 - t25525 + 0.6e1 * t25527 + 0.4e1 * t25530 - 0.320e3 / 0.729e3 * t25533 + 0.160e3 / 0.243e3 * t25537 + 0.20e2 / 0.81e2 * t25540 - 0.10e2 / 0.27e2 * t25543 + t679 * t914 * t390 * t24869 / 0.27e2 + t25584 + t25667 + t25706) / 0.9e1 - 0.4e1 / 0.27e2 * t25714 + 0.4e1 / 0.27e2 * t25717 + 0.2e1 * t8292 * t891 + 0.6e1 * t2700 * t2659 + 0.2e1 * t8318 * t891 + 0.32e2 / 0.243e3 * t25726 + t25730 + 0.112e3 / 0.729e3 * t25732;
17680   t25741 = t490 * t8463 * t8480;
17681   t25747 = 0.448e3 / 0.729e3 * t25353 - 0.32e2 / 0.81e2 * t490 * t2630 * t2738 * t2443 - 0.448e3 / 0.2187e4 * t25360 + 0.64e2 / 0.243e3 * t25363 + 0.16e2 / 0.81e2 * t490 * t880 * t928 * t8016 + 0.4e1 / 0.81e2 * t490 * t880 * t400 * t24869 - 0.128e3 / 0.729e3 * t25375 - 0.448e3 / 0.2187e4 * t25379 - 0.1120e4 / 0.2187e4 * t490 * t25381 * t400 * t24849 - 0.16e2 / 0.81e2 * t490 * t2630 * t400 * t24859 - 0.4e1 / 0.27e2 * t38 * t40 * t290 * (t25445 + t25734) + 0.64e2 / 0.243e3 * t25741 + 0.448e3 / 0.729e3 * t490 * t8454 * t928 * t8006;
17682   t25761 = t8 * t7984 * t7967;
17683   t25764 = t8 * t1817 * t7940;
17684   t25767 = t8 * t8544 * t2422;
17685   t25769 = t251 * t251;
17686   t25771 = 0.1e1 / t2403 / t25769;
17687   t25772 = t25771 * t17;
17688   t25773 = t2406 * t2406;
17689   t25778 = -t24789 / 0.2e1 - t8 * t2405 * t444 * t24791 / 0.2e1 + t24797 / 0.2e1 - 0.2e1 / 0.3e1 * t24800 - 0.5e1 / 0.27e2 * t8 * t24805 * t247 * t24806 + 0.4e1 / 0.27e2 * t24813 - t8 * t450 * t247 * t24819 / 0.2e1 + 0.3e1 / 0.8e1 * t8 * t254 * p->cam_beta * (t269 * ((-0.8e1 / 0.3e1 * t24875 * t311 - 0.32e2 / 0.3e1 * t8022 * t805 - 0.16e2 * t2454 * t2494 - 0.32e2 / 0.3e1 * t787 * t8083 - 0.8e1 / 0.3e1 * t296 * t24979) * t316 + 0.35e2 / 0.81e2 * (0.144e3 * t24899 * t327 + 0.576e3 * t9636 * t2454 + 0.192e3 * t3233 * t8022 + 0.288e3 * t2460 * t2534 + 0.192e3 * t24992 * t787 + 0.288e3 * t8092 * t2454 + 0.192e3 * t2501 * t8022 + 0.48e2 * t810 * t24875 + 0.24e2 * t301 * (t25048 + t25087)) * t336 * t340 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t24875 * t367 + 0.32e2 / 0.7e1 * t8022 * t867 + 0.48e2 / 0.7e1 * t2454 * t2610 + 0.32e2 / 0.7e1 * t787 * t8272 + 0.8e1 / 0.7e1 * t296 * (t25137 + t25174 + t25268 + t25295)) * t41 * t45 * t373) + t378 * (t25351 + t25747) * t428) + 0.4e1 / 0.9e1 * t8 * t7978 * t762 * t7979 - 0.2e1 / 0.3e1 * t25761 - 0.2e1 * t25764 + 0.2e1 / 0.3e1 * t25767 - 0.5e1 / 0.27e2 * t8 * t25772 * t444 * t25773;
17690   t25779 = t8549 * t189;
17691   t25781 = t8 * t25779 * t8552;
17692   t25784 = t8 * t8556 * t762;
17693   t25787 = t8 * t7972 * t1821;
17694   t25793 = t756 * t27;
17695   t25801 = t1852 * t1861;
17696   t25804 = t7890 * t26;
17697   t25808 = t6977 * t477;
17698   t25813 = t1845 * t1845;
17699   t25818 = t27 * t1839 * t1845;
17700   t25827 = -0.72e2 * t13204 * t1845 * t478 + 0.1296e4 * t1862 * t25793 * t6971 - 0.24e2 * t2356 * t478 * t6963 - 0.36e2 * t2360 * t25813 * t478 - 0.24e2 * t25804 * t468 * t478 - 0.72e2 * t1855 * t7908 - 0.144e3 * t1855 * t7912 + 0.324e3 * t2353 * t25801 - 0.72e2 * t2357 * t6983 - 0.36e2 * t2364 * t6983 - 0.24e2 * t25808 * t739 + 0.1944e4 * t25818 * t4654 + 0.1296e4 * t6986 * t7900;
17701   t25828 = t1839 * t1839;
17702   t25850 = my_piecewise3(t24, 0.3e1 * sigma[0] / t61 * t21, 0);
17703   t25874 = t29 / t1860 / t31;
17704   t25875 = t1863 * t1863;
17705   t25876 = t160 * t25875;
17706   t25886 = t7826 * t26;
17707   t25900 = -0.27e2 / 0.50e2 * t2300 * t2307 - 0.48e2 * t1855 * t7020 - 0.36e2 * t478 * t1872 * t25813 - 0.27e2 / 0.50e2 * t2166 * t2307 - 0.27e2 / 0.25e2 * t2168 * t2307 - 0.144e3 * t1855 * t7305 - 0.72e2 * t478 * t13365 * t1845 + 0.9720e4 * t25874 * t25876 * t25828 - 0.24e2 * t1855 * t7381 + 0.324e3 * t25801 * t1865 + 0.648e3 * t13339 * t7004 - 0.24e2 * t478 * t25886 * t468 + 0.1080e4 * t1862 * t479 * t25828 - 0.72e2 * t1855 * t7378 - 0.36e2 * t6983 * t1876 - 0.24e2 * t478 * t1868 * t6963;
17708   t25901 = t633 * t6996;
17709   t25907 = t469 * t6963;
17710   t25912 = t2154 * t1863;
17711   t25920 = t633 * t27;
17712   t25932 = t2154 * t25;
17713   t25938 = t7003 * t6963;
17714   t25942 = t6996 * t1839 * t1845;
17715   t25950 = t1839 * t1845;
17716   t25952 = t25 * t25813;
17717   t25955 = t26 * t25850;
17718   t25958 = (0.2e1 * t25 * t25850 + 0.8e1 * t468 * t6963 + 0.6e1 * t25813 + 0.72e2 * t25907 + 0.108e3 * t25950 + 0.54e2 * t25952 + 0.9e1 * t25955) * t32;
17719   t25962 = -0.2592e4 * t6995 * t25901 * t6971 - 0.144e3 * t13344 * t6973 - 0.48e2 * t4324 * t25907 - 0.27e2 / 0.25e2 * t702 * t7017 + 0.324e3 * t1862 * t25912 * t1839 - 0.27e2 / 0.25e2 * t638 * t7017 + 0.1944e4 * t4316 * t25818 + 0.1296e4 * t1862 * t25920 * t6971 + 0.1296e4 * t6986 * t7309 - 0.72e2 * t6983 * t1873 + 0.513e3 / 0.500e3 * t208 * t7029 * t2306 * t2341 - 0.72e2 * t478 * t25932 * t1839 + 0.648e3 * t13326 * t7004 + 0.216e3 * t4316 * t25938 - 0.3888e4 * t13333 * t25942 + t25958 * t160 + 0.4e1 * t6978 * t633;
17720   t25988 = t1882 * t1911;
17721   t26007 = t1879 * t1879;
17722   t26009 = 0.1e1 / t122 / t26007;
17723   t26010 = t1882 * t1882;
17724   t26019 = t506 * t7475;
17725   t26025 = 0.19222562396707818930e1 * t156 * t7332 * t629 - 0.12357361540740740741e1 * t623 * t7792 - 0.61786807703703703704e0 * t156 * t1894 * t1914 - 0.63191053333333333332e-1 * t2151 * t1915 - 0.784e3 / 0.225e3 * t579 * t7574 * t25988 + 0.392e3 / 0.135e3 * t2068 * t7787 + 0.37746122524444444445e0 * t156 * t497 * t7809 + 0.86501530785185185186e0 * t156 * t1894 * t1883 + 0.33701895111111111111e0 * t2151 * t1921 + 0.88467474666666666665e-1 * t2151 * t1884 + 0.11233965037037037037e0 * t156 * t497 * t7797 + 0.12031576554666666666e0 * t156 * t52 * t26009 * t26010 - 0.14154795946666666667e0 * t623 * t7810 + 0.392e3 / 0.135e3 * t2071 * t7787 + 0.392e3 / 0.405e3 * t579 * t1928 * t26019 - 0.42127368888888888888e-1 * t7708 * t630;
17726   t26027 = 0.1e1 / t49 / t500;
17727   t26028 = sigma[0] * t26027;
17728   t26029 = t46 * t26028;
17729   t26034 = t58 * t59 / t48 / t18288;
17730   t26036 = 0.38902804850480109738e2 * t26029 + 0.55525861793708208711e1 * t26034;
17731   t26043 = t1981 * t1981;
17732   t26052 = t77 * t7547;
17733   t26061 = 0.140e3 / 0.729e3 * t38 * t24824 * t72;
17734   t26071 = t490 * t1943 * t7429;
17735   t26074 = t490 * t1947 * t7438;
17736   t26077 = t490 * t7459 * t1959;
17737   t26090 = t490 * t7442 * t7416;
17738   t26093 = t490 * t7442 * t7420;
17739   t26096 = t490 * t1943 * t7425;
17740   t26099 = t490 * t1943 * t7402;
17741   t26132 = t26061 - 0.77e2 / 0.1000e4 * t490 * t7409 * t1954 * t1911 - 0.11e2 / 0.900e3 * t490 * t1953 * t7415 * t1975 - t26071 / 0.135e3 - 0.8e1 / 0.81e2 * t26074 + 0.4e1 / 0.405e3 * t26077 + 0.11e2 / 0.675e3 * t490 * t1953 * t1969 * t1882 * t1970 + 0.28e2 / 0.1215e4 * t490 * t493 * t7070 * t506 * t7072 + 0.11e2 / 0.1350e4 * t26090 - 0.11e2 / 0.450e3 * t26093 - t26096 / 0.135e3 + 0.4e1 / 0.405e3 * t26099 + 0.11e2 / 0.450e3 * t490 * t1953 * t507 * t7475 + t490 * t493 * t513 * t7475 * t454 / 0.135e3 + t490 * t493 * t7424 * t1975 / 0.90e2 + t490 * t493 * t1958 * t7063 / 0.135e3 - 0.28e2 / 0.81e2 * t490 * t511 * t7070 * t1970 * t1975 + 0.8e1 / 0.81e2 * t490 * t511 * t7437 * t7063 - 0.2e1 / 0.135e3 * t490 * t493 * t1969 * t1911 * t1970;
17742   t26139 = t490 * t1947 * t7433;
17743   t26141 = t1967 * t1967;
17744   t26143 = 0.1e1 / t70 / t26141;
17745   t26144 = t1970 * t1970;
17746   t26149 = t1975 * t1975;
17747   t26154 = t1938 * t1952;
17748   t26156 = t490 * t26154 * t1954;
17749   t26158 = t484 * t7408;
17750   t26160 = t490 * t26158 * t7411;
17751   t26164 = t39 / t68 / t26007;
17752   t26169 = t1911 * t1911;
17753   t26174 = -t24869;
17754   t26180 = t490 * t8759 * t507;
17755   t26183 = t490 * t2804 * t514;
17756   t26186 = t490 * t7459 * t1963;
17757   t26189 = t490 * t7463 * t1976;
17758   t26192 = t490 * t1943 * t7476;
17759   t26199 = t490 * t7463 * t1971;
17760   t26202 = t490 * t1947 * t7452;
17761   t26204 = t506 * t454;
17762   t26213 = 0.77e2 / 0.4500e4 * t490 * t7409 * t513 * t7410 * t454 + 0.56e2 / 0.729e3 * t26139 + 0.140e3 / 0.729e3 * t490 * t511 * t26143 * t26144 + 0.2e1 / 0.27e2 * t490 * t511 * t1969 * t26149 + 0.11e2 / 0.675e3 * t26156 + 0.77e2 / 0.4500e4 * t26160 + 0.2387e4 / 0.60000e5 * t490 * t26164 * t71 * t26010 + 0.11e2 / 0.600e3 * t490 * t1953 * t71 * t26169 - t490 * t511 * t513 * t26174 / 0.54e2 + 0.28e2 / 0.1215e4 * t26180 + 0.56e2 / 0.729e3 * t26183 - 0.2e1 / 0.135e3 * t26186 - 0.4e1 / 0.81e2 * t26189 + t26192 / 0.135e3 - t490 * t493 * t71 * t26036 / 0.180e3 + 0.16e2 / 0.243e3 * t26199 + 0.2e1 / 0.81e2 * t26202 - 0.4e1 / 0.135e3 * t5889 * t8735 * t26204 * t1975 - 0.11e2 / 0.450e3 * t5889 * t13511 * t26204 * t1911;
17763   t26215 = my_piecewise3(t76, 0, t26132 + t26213);
17764   t26219 = t7508 * t519;
17765   t26227 = t2045 * t1981;
17766   t26237 = t588 * t7481;
17767   t26238 = 0.3072e4 * t26237;
17768   t26239 = t2082 * t1981;
17769   t26240 = 0.9216e4 * t26239;
17770   t26242 = t79 * t26215 * t86;
17771   t26244 = t1987 * t1987;
17772   t26246 = t2006 * t26244 * t86;
17773   t26249 = t1999 * t26043 * t86;
17774   t26252 = 0.1e1 / t134 / t83;
17775   t26254 = t26252 * t26244 * t86;
17776   t26257 = t7643 * t26244 * t86;
17777   t26260 = t519 * t7481;
17778   t26262 = t77 * t26215;
17779   t26264 = 0.1536e4 * t26244;
17780   t26265 = t83 * t26043;
17781   t26266 = 0.2304e4 * t26265;
17782   t26267 = t128 * t26215;
17783   t26268 = 0.256e3 * t26267;
17784   t26271 = t2040 * t1999;
17785   t26274 = t554 * t1986;
17786   t26277 = t26244 * t86;
17787   t26280 = -0.216e3 * t26043 - 0.6e1 * t2044 * t26219 + t2051 * t26219 - 0.18e2 * t7535 * t7541 + 0.3e1 * t7516 * t7541 + 0.36e2 * t7538 * t26227 + 0.3e1 / 0.4e1 * t7500 * t26227 - 0.27e2 / 0.2e1 * t7505 * t26227 + 0.10e2 * t78 * t26215 * t81 + t26238 + t26240 - 0.10e2 * t26242 - 0.100e3 * t26246 - 0.15e2 * t26249 - 0.5e1 / 0.4e1 * t26254 + 0.55e2 / 0.2e1 * t26257 + (0.120e3 * t26043 + 0.160e3 * t26260 + 0.40e2 * t26262 - t26264 - t26240 - t26266 - t26238 - t26268) * t86 - 0.9e1 * t26271 * t2045 + 0.24e2 * t26274 * t7501 - 0.30e2 * t2051 * t26277;
17788   t26281 = t26043 * t86;
17789   t26284 = t103 * t26252;
17790   t26287 = t103 * t7643;
17791   t26292 = t2040 * t2006;
17792   t26296 = 0.1e1 / t134 / t101;
17793   t26297 = t103 * t26296;
17794   t26300 = t554 * t7504;
17795   t26305 = t26215 * t86;
17796   t26308 = t554 * t7499;
17797   t26311 = t7496 * t525;
17798   t26318 = t1988 * t2048;
17799   t26320 = t7523 * t7508;
17800   t26322 = t7504 * t1987;
17801   t26324 = 0.15e2 * t26322 * t2048;
17802   t26325 = -0.9e1 / 0.2e1 * t2044 * t26281 - 0.9e1 / 0.4e1 * t26284 * t26277 + 0.75e2 / 0.4e1 * t26287 * t26277 + 0.3e1 * t7511 * t2048 + 0.3e1 / 0.2e1 * t26292 * t2045 + t26297 * t26277 / 0.16e2 - 0.9e1 * t26300 * t7501 + 0.2e1 * t2042 * t7508 + t556 * t26305 / 0.2e1 + t26308 * t7501 / 0.2e1 + 0.2e1 * t26311 * t557 + t26268 - 0.288e3 * t26260 + t26266 - 0.72e2 * t26262 + t26264 + 0.3e1 / 0.4e1 * t2051 * t26281 + 0.120e3 * t26318 - 0.20e2 * t26320 - t26324;
17803   t26341 = t45 * t26009;
17804   t26359 = tau[0] * t7324;
17805   t26360 = 0.11068327545679012346e2 * t26359;
17806   t26380 = 0.1e1 / t134 / t128;
17807   t26388 = t86 * t1986;
17808   t26389 = t26388 * t26244;
17809   t26391 = t1987 * t1981;
17810   t26392 = t7699 * t26391;
17811   t26430 = -0.4e1 * t529 * t26215 - t26242 - 0.75e2 / 0.2e1 * t26246 + 0.45e2 * t26318 - 0.6e1 * t26249 - 0.8e1 * t26320 - t26324 - 0.19e2 / 0.8e1 * t26254 + t525 * t26215 * t86 / 0.2e1 + t26296 * t26244 * t86 / 0.16e2 - 0.12e2 * t26043 * t87 - 0.16e2 * t2836 * t7481 + 0.85e2 / 0.4e1 * t26257 + t2006 * t7481 * t557 - 0.3e1 * t84 * t26043 * t86 - 0.4e1 * t615 * t7508 + 0.3e1 / 0.4e1 * t2006 * t26043 * t86 + 0.3e1 / 0.4e1 * t7499 * t1981 * t2045;
17812   t26434 = t7504 * t26244 * t86;
17813   t26447 = 0.8e1 * t519 * t7778 + 0.15e2 / 0.4e1 * t7499 * t26244 * t86 - t26380 * t26244 * t86 / 0.8e1 + 0.8e1 * t1991 * t26260 - 0.3e1 / 0.2e1 * t8797 * t2048 + 0.24e2 * t26389 - 0.36e2 * t26392 + 0.6e1 * t1991 * t26043 + 0.8e1 * t7481 * t534 - t521 * t26215 + 0.2e1 * t77 * t26430 - 0.24e2 * t26434 + 0.21e2 * t2007 * t2048 - 0.3e1 / 0.2e1 * t1986 * t26043 * t86 - 0.2e1 * t2814 * t7508 + 0.12e2 * t1981 * t2018 + 0.2e1 * t26215 * t90;
17814   t26455 = 0.1e1 / t97 / t26007;
17815   t26456 = t96 * t26455;
17816   t26459 = -0.10531842222222222222e-1 * t156 * t52 * t581 * t26036 + 0.33701895111111111111e0 * t623 * t7803 + 0.35e2 / 0.81e2 * (0.144e3 * t26043 * t109 + 0.576e3 * t9071 * t1981 + 0.192e3 * t2855 * t7481 + 0.288e3 * t1987 * t2061 + 0.192e3 * t26052 * t519 + 0.288e3 * t7396 * t1981 + 0.192e3 * t2028 * t7481 + 0.48e2 * t547 * t26215 + 0.24e2 * t83 * (t26280 + t26325)) * t120 * t124 - 0.42127368888888888888e-1 * t623 * t7798 + 0.44233737333333333333e-1 * t156 * t52 * t1881 * t26169 - 0.47182653155555555555e0 * t623 * t7806 + 0.6664e4 / 0.3375e4 * t579 * t26341 * t26010 + 0.68079908488340192042e1 * t156 * t26028 * t123 - 0.28084912592592592593e0 * t7708 * t626 + 0.140e3 / 0.81e2 * t7550 * t575 * t124 + 0.70e2 / 0.27e2 * t2064 * t1896 * t124 + 0.140e3 / 0.81e2 * t568 * t7559 * t124 + 0.35e2 / 0.81e2 * t112 * (-t26360 + 0.10936459918683127572e2 * t26028) * t124 + (-0.8e1 / 0.3e1 * t26215 * t93 - 0.32e2 / 0.3e1 * t7481 * t537 - 0.16e2 * t1981 * t2021 - 0.32e2 / 0.3e1 * t519 * t7781 - 0.8e1 / 0.3e1 * t77 * t26447) * t98 + 0.18e2 / 0.25e2 * t1934 * t26169 + 0.1056e4 / 0.625e3 * t26456 * t26010;
17817   t26461 = t2024 * t1933;
17818   t26484 = t7554 * t41;
17819   t26487 = t7560 * t41;
17820   t26494 = t7563 * t41;
17821   t26501 = 0.36e2 / 0.25e2 * t26461 * t1882 + 0.58978316444444444444e-1 * t4557 * t4558 * t26019 - 0.47182653155555555556e0 * t4557 * t13974 * t7786 + 0.17693494933333333333e0 * t13978 * t7815 - 0.21232193920000000000e0 * t4557 * t13981 * t25988 + 0.98e2 / 0.135e3 * t579 * t1928 * t26169 - 0.396e3 / 0.125e3 * t7820 * t25988 + 0.72e2 / 0.25e2 * t7734 * t7786 + 0.24e2 / 0.25e2 * t1934 * t26019 - 0.56e2 / 0.27e2 * t26484 * t583 - 0.56e2 / 0.81e2 * t26487 * t583 + 0.392e3 / 0.135e3 * t7727 * t1929 + 0.196e3 / 0.135e3 * t7569 * t1929 - 0.56e2 / 0.27e2 * t26494 * t583 - 0.28e2 / 0.27e2 * t7711 * t2074 - 0.56e2 / 0.27e2 * t7727 * t2074;
17822   t26506 = t7551 * t41;
17823   t26555 = 0.16e2 * t614 * t7763 * t519 - 0.4e1 * t2138 * t26219 - 0.3e1 * t7644 * t26227 + 0.36e2 * t7682 * t26227 + 0.42e2 * t7673 * t26227 - 0.72e2 * t614 * t2000 * t1981 + 0.3e1 / 0.4e1 * t7655 * t26227 - 0.6e1 * t2102 * t26219 + t2107 * t26219 - 0.18e2 * t7679 * t7541 + 0.3e1 * t7664 * t7541 - 0.27e2 / 0.2e1 * t7667 * t26227 - 0.240e3 * t26434 + 0.2640e4 * t26389;
17824   t26558 = t2098 * t1999;
17825   t26563 = t147 * t7504;
17826   t26574 = t137 * t26252;
17827   t26577 = t596 * t7504;
17828   t26580 = t137 * t7643;
17829   t26591 = -0.9e1 / 0.2e1 * t2102 * t26281 - 0.9e1 * t26558 * t2045 + 0.3e1 / 0.4e1 * t2107 * t26281 - 0.48e2 * t26563 * t26277 - 0.3e1 * t2138 * t26281 + 0.48e2 * t614 * t1986 * t26244 - 0.2e1 * t614 * t84 * t26215 - 0.9e1 / 0.4e1 * t26574 * t26277 - 0.9e1 * t26577 * t7501 + 0.75e2 / 0.4e1 * t26580 * t26277 - 0.2880e4 * t26277 * t525 + 0.432e3 * t7637 * t1981 + 0.288e3 * t2113 * t7481 + 0.72e2 * t601 * t26215;
17830   t26593 = t77 * t2126;
17831   t26606 = t83 * t7696;
17832   t26627 = 0.460800e6 * t101 * t26043 + 0.30720e5 * t130 * t26215 + 0.3686400e7 * t1981 * t2086 + 0.1843200e7 * t26244 * t83 + 0.614400e6 * t590 * t7481 + 0.1344e4 * t26043 - 0.69120e5 * t26237 - 0.207360e6 * t26239 - 0.34560e5 * t26244 + 0.1792e4 * t26260 + 0.448e3 * t26262 - 0.51840e5 * t26265 - 0.5760e4 * t26267;
17833   t26671 = -0.371589120e9 * t141 * t1981 * t1987 - 0.2880e4 * t101 * t26215 - 0.34560e5 * t128 * t26043 + 0.3233160e7 * t128 * t26244 + 0.484974e6 * t130 * t26043 - 0.371589120e9 * t130 * t26244 - 0.26542080e8 * t132 * t26043 - 0.1105920e7 * t134 * t26215 + 0.26943e5 * t141 * t26215 - 0.207360e6 * t1981 * t2036 + 0.4849740e7 * t1981 * t2122 + 0.4608e4 * t26043 * t77 + 0.768e3 * t26215 * t83 - 0.69120e5 * t26244 * t77 + 0.6144e4 * t550 * t7481 - 0.46080e5 * t552 * t7481 + 0.646632e6 * t606 * t7481 - 0.35389440e8 * t7481 * t7610 - 0.8e1 * t26215 + 0.9216e4 * t26391;
17834   t26673 = t2098 * t2006;
17835   t26676 = t7615 * t525;
17836   t26679 = t137 * t26296;
17837   t26686 = 0.864e3 * t26593 * t1987 + 0.864e3 * t8957 * t1981 + 0.432e3 * t2110 * t26043 - 0.1440e4 * t79 * t26043 * t86 + 0.720e3 * t78 * t26043 * t81 + 0.288e3 * t26606 * t519 + 0.24e2 * t128 * t26627 + 0.576e3 * t7491 * t608 + t26671 * t86 + 0.3e1 / 0.2e1 * t26673 * t2045 + 0.2e1 * t26676 * t557 + t26679 * t26277 / 0.16e2 + 0.1728e4 * t7634 * t7488 + 0.576e3 * t2110 * t26260;
17838   t26687 = t596 * t7499;
17839   t26699 = t147 * t26380;
17840   t26708 = t147 * t7499;
17841   t26714 = t596 * t1986;
17842   t26720 = t26687 * t7501 / 0.2e1 + 0.960e3 * t561 * t7650 + 0.4320e4 * t2045 * t2143 + 0.240e3 * t106 * t26215 * t81 - 0.1920e4 * t532 * t7508 - t26699 * t26277 / 0.4e1 + 0.3e1 * t7670 * t2048 + 0.2e1 * t2100 * t7508 + t598 * t26305 / 0.2e1 + 0.15e2 / 0.2e1 * t26708 * t26277 + 0.12e2 * t614 * t525 * t26043 + 0.24e2 * t26714 * t7501 - 0.30e2 * t2107 * t26277 - 0.2160e4 * t26392;
17843   t26738 = t7784 * t543;
17844   t26741 = t540 * t7819;
17845   t26746 = -0.28e2 / 0.27e2 * t7569 * t2074 + 0.15446701925925925926e1 * t2151 * t1918 - 0.56e2 / 0.81e2 * t26506 * t583 - 0.56e2 / 0.81e2 * t2068 * t7581 - 0.56e2 / 0.81e2 * t2071 * t7581 - 0.14e2 / 0.81e2 * t579 * t582 * t26036 - 0.4e1 / 0.5e1 * t1900 * t7475 - 0.6e1 / 0.5e1 * t7566 * t1911 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t26215 * t151 + 0.32e2 / 0.7e1 * t7481 * t618 + 0.48e2 / 0.7e1 * t1981 * t2146 + 0.32e2 / 0.7e1 * t519 * t7703 + 0.8e1 / 0.7e1 * t77 * (t26555 + t26591 + t26686 + t26720)) * t41 * t45 * t157 - 0.48056405991769547326e1 * t623 * t7578 - 0.1568e4 / 0.675e3 * t2068 * t7575 - 0.1568e4 / 0.675e3 * t2071 * t7575 + 0.196e3 / 0.135e3 * t7711 * t1929 - 0.4e1 / 0.5e1 * t26738 * t506 - 0.264e3 / 0.125e3 * t26741 * t7410 - t544 * t26036 / 0.5e1;
17846   t26758 = t2341 * t2341;
17847   t26764 = 0.1e1 / t707 / t7027 / t229;
17848   t26765 = t2306 * t2306;
17849   t26778 = t38 * t1939 * t2295;
17850   t26782 = 0.1120e4 / 0.2187e4 * t38 * t24824 * t203;
17851   t26784 = t38 * t485 * t7291;
17852   t26786 = t2252 * t2252;
17853   t26787 = t26786 * t186;
17854   t26788 = t2250 * t2250;
17855   t26789 = t26788 * t186;
17856   t26792 = t186 * t454 * t1975;
17857   t26796 = t681 * t2250;
17858   t26802 = 0.440e3 / 0.729e3 * t188 * t25522 * t193;
17859   t26804 = t7198 * t670 * t186;
17860   t26807 = t2250 * t2252 * t186;
17861   t26831 = t679 * t7265 * t7249;
17862   t26834 = t679 * t2260 * t7261;
17863   t26837 = t679 * t2260 * t7257;
17864   t26840 = t679 * t2264 * t7231;
17865   t26846 = t679 * t7211 * t2275;
17866   t26859 = 0.160e3 / 0.243e3 * t679 * t7244 * t671 * t7072 - 0.10e2 / 0.27e2 * t679 * t2270 * t2251 * t1970 + 0.40e2 / 0.81e2 * t26831 - 0.8e1 / 0.27e2 * t26834 - 0.8e1 / 0.27e2 * t26837 + 0.4e1 / 0.9e1 * t26840 - 0.2e1 / 0.9e1 * t679 * t687 * t26804 + 0.40e2 / 0.81e2 * t26846 + 0.4e1 / 0.27e2 * t679 * t682 * t7226 * t454 - t679 * t687 * t26807 / 0.3e1 - 0.10e2 / 0.27e2 * t679 * t2270 * t2253 * t1970;
17867   t26862 = t679 * t7265 * t7253;
17868   t26865 = t679 * t2260 * t7269;
17869   t26881 = 0.56e2 / 0.243e3 * t179 * t7096 * t182;
17870   t26883 = t179 * t1939 * t666;
17871   t26886 = t179 * t485 * t2242;
17872   t26889 = t179 * t485 * t2246;
17873   t26892 = t179 * t40 * t7187;
17874   t26895 = t3065 * t643 * t7123;
17875   t26898 = t179 * t40 * t7194;
17876   t26904 = t1970 * t1975;
17877   t26912 = t454 * t7063;
17878   t26920 = t26881 - 0.64e2 / 0.243e3 * t26883 - 0.8e1 / 0.81e2 * t26886 + 0.8e1 / 0.27e2 * t26889 - 0.64e2 / 0.243e3 * t26892 + 0.16e2 / 0.27e2 * t26895 - 0.16e2 / 0.27e2 * t26898 + 0.56e2 / 0.243e3 * t179 * t181 * t7070 * t26144 - 0.16e2 / 0.27e2 * t3065 * t9325 * t26904 + 0.2e1 / 0.9e1 * t179 * t181 * t513 * t26149 + 0.8e1 / 0.27e2 * t3065 * t3066 * t26912 - 0.2e1 / 0.9e1 * t179 * t181 * t71 * t26174;
17879   t26921 = t26920 * t186;
17880   t26925 = t2255 * t2269;
17881   t26927 = t679 * t26925 * t2271;
17882   t26930 = t679 * t2264 * t7226;
17883   t26942 = 0.40e2 / 0.81e2 * t26862 - 0.8e1 / 0.27e2 * t26865 - 0.20e2 / 0.81e2 * t679 * t2270 * t7200 * t454 + 0.4e1 / 0.27e2 * t679 * t682 * t671 * t7063 + 0.4e1 / 0.27e2 * t679 * t682 * t7199 * t454 - t679 * t687 * t26921 / 0.18e2 - 0.100e3 / 0.243e3 * t26927 + 0.4e1 / 0.27e2 * t26930 - t679 * t687 * t26787 / 0.18e2 - t679 * t687 * t26789 / 0.6e1 + t679 * t682 * t192 * t26174 / 0.27e2;
17884   t26943 = t673 * t7243;
17885   t26945 = t679 * t26943 * t7245;
17886   t26949 = t189 / t182 / t26141;
17887   t26959 = t679 * t3093 * t683;
17888   t26961 = t3092 * t191;
17889   t26963 = t679 * t26961 * t671;
17890   t26966 = t679 * t7211 * t2279;
17891   t26969 = t679 * t7215 * t2251;
17892   t26972 = t679 * t7215 * t2253;
17893   t26975 = t679 * t2260 * t7200;
17894   t26978 = t679 * t2264 * t7199;
17895   t26980 = -0.320e3 / 0.729e3 * t26945 - 0.440e3 / 0.729e3 * t679 * t26949 * t192 * t26144 - 0.5e1 / 0.27e2 * t679 * t2270 * t192 * t26149 - 0.320e3 / 0.729e3 * t26959 + 0.160e3 / 0.243e3 * t26963 + 0.20e2 / 0.81e2 * t26966 - 0.10e2 / 0.27e2 * t26969 - 0.10e2 / 0.27e2 * t26972 - 0.8e1 / 0.81e2 * t26975 + 0.4e1 / 0.27e2 * t26978 + t26921;
17896   t26988 = t38 * t7096 * t692;
17897   t26991 = t38 * t1939 * t2290;
17898   t26994 = t38 * t485 * t7276;
17899   t27008 = 0.280e3 / 0.729e3 * t38 * t24824 * t198;
17900   t27011 = 0.80e2 / 0.243e3 * t166 * t7207 * t70;
17901   t27013 = t166 * t2256 * t650;
17902   t27016 = t166 * t674 * t2204;
17903   t27019 = t166 * t674 * t2208;
17904   t27022 = t166 * t190 * t7119;
17905   t27025 = t3023 * t682 * t7123;
17906   t27028 = t166 * t190 * t7127;
17907   t27048 = -t27011 + 0.40e2 / 0.243e3 * t27013 + 0.8e1 / 0.81e2 * t27016 - 0.4e1 / 0.27e2 * t27019 + 0.40e2 / 0.243e3 * t27022 - 0.8e1 / 0.27e2 * t27025 + 0.4e1 / 0.27e2 * t27028 - 0.80e2 / 0.243e3 * t166 * t168 * t7243 * t26144 + 0.20e2 / 0.27e2 * t3023 * t9444 * t26904 - 0.2e1 / 0.9e1 * t166 * t168 * t681 * t26149 - 0.8e1 / 0.27e2 * t3023 * t3024 * t26912 + t166 * t168 * t191 * t26174 / 0.9e1;
17908   t27064 = t490 * t7081 * t7166;
17909   t27070 = t38 * t40 * t71 * (t26787 + 0.3e1 * t26789 - 0.20e2 / 0.27e2 * t9369 * t9374 * t26792 + 0.4e1 / 0.9e1 * t9369 * t26796 * t2275 - t26802 + 0.4e1 * t26804 + 0.6e1 * t26807 + 0.2e1 / 0.9e1 * t679 * t682 * t2253 * t1975 + 0.2e1 / 0.9e1 * t679 * t682 * t2251 * t1975 + 0.80e2 / 0.81e2 * t679 * t7244 * t2271 * t1975 + t26859 + t26942 + t26980) / 0.9e1 - 0.112e3 / 0.243e3 * t26988 + 0.8e1 / 0.27e2 * t26991 - 0.4e1 / 0.27e2 * t26994 + 0.2e1 * t7226 * t654 + 0.2e1 * t7199 * t654 + 0.6e1 * t2251 * t2212 + 0.6e1 * t2253 * t2212 + 0.6e1 * t671 * t7131 + t27008 + 0.2e1 * t186 * t27048 - 0.4e1 / 0.27e2 * t490 * t643 * t7275 * t454 + 0.8e1 / 0.27e2 * t490 * t2183 * t2289 * t1970 - 0.56e2 / 0.81e2 * t490 * t7071 * t2224 * t1975 - 0.16e2 / 0.81e2 * t27064 + 0.16e2 / 0.81e2 * t490 * t2183 * t7134 * t454;
17910   t27087 = t1938 * t1969;
17911   t27089 = t490 * t27087 * t2224;
17912   t27092 = t490 * t3004 * t660;
17913   t27095 = t490 * t7100 * t2228;
17914   t27101 = t484 * t7070;
17915   t27103 = t490 * t27101 * t7162;
17916   t27105 = t39 * t26143;
17917   t27111 = t490 * t7100 * t2232;
17918   t27114 = t490 * t2176 * t7134;
17919   t27117 = t490 * t2176 * t7138;
17920   t27120 = t490 * t2176 * t7146;
17921   t27123 = t490 * t7081 * t7142;
17922   t27132 = 0.16e2 / 0.27e2 * t490 * t2183 * t7138 * t454 - 0.2e1 / 0.9e1 * t490 * t643 * t2289 * t1975 - 0.4e1 / 0.27e2 * t490 * t643 * t691 * t7063 - t490 * t643 * t197 * t26174 / 0.27e2 + 0.32e2 / 0.243e3 * t27089 + 0.112e3 / 0.729e3 * t27092 - 0.16e2 / 0.81e2 * t27095 + 0.4e1 / 0.27e2 * t490 * t2183 * t197 * t26149 + 0.112e3 / 0.729e3 * t27103 + 0.280e3 / 0.729e3 * t490 * t27105 * t197 * t26144 - 0.8e1 / 0.81e2 * t27111 + 0.4e1 / 0.81e2 * t27114 + 0.4e1 / 0.27e2 * t27117 + 0.4e1 / 0.27e2 * t27120 - 0.16e2 / 0.81e2 * t27123 - 0.112e3 / 0.243e3 * t490 * t7071 * t691 * t7072 + 0.6e1 * t671 * t654 * t2250;
17923   t27139 = t38 * t7096 * t697;
17924   t27142 = t490 * t2176 * t7085;
17925   t27145 = t490 * t27101 * t7073;
17926   t27156 = t490 * t27087 * t2184;
17927   t27159 = t490 * t2176 * t7064;
17928   t27162 = t490 * t2176 * t7055;
17929   t27165 = t490 * t7081 * t7089;
17930   t27167 = -0.32e2 / 0.81e2 * t26778 - t26782 + 0.16e2 / 0.81e2 * t26784 - 0.4e1 / 0.27e2 * t38 * t40 * t71 * (t27070 + t27132) + 0.448e3 / 0.729e3 * t27139 - 0.16e2 / 0.81e2 * t27142 - 0.448e3 / 0.2187e4 * t27145 - 0.1120e4 / 0.2187e4 * t490 * t27105 * t202 * t26144 - 0.16e2 / 0.81e2 * t490 * t2183 * t202 * t26149 - 0.128e3 / 0.729e3 * t27156 - 0.16e2 / 0.243e3 * t27159 - 0.16e2 / 0.81e2 * t27162 + 0.64e2 / 0.243e3 * t27165;
17931   t27173 = t490 * t7081 * t7077;
17932   t27200 = t490 * t7100 * t2192;
17933   t27207 = t490 * t3004 * t644;
17934   t27210 = t490 * t7100 * t2188;
17935   t27216 = 0.224e3 / 0.243e3 * t490 * t7071 * t2184 * t1975 + 0.64e2 / 0.243e3 * t27173 - 0.64e2 / 0.243e3 * t490 * t2183 * t7064 * t454 - 0.64e2 / 0.81e2 * t490 * t2183 * t7055 * t454 + 0.8e1 / 0.27e2 * t490 * t643 * t2294 * t1975 + 0.4e1 / 0.81e2 * t490 * t643 * t202 * t26174 + 0.448e3 / 0.729e3 * t490 * t7071 * t696 * t7072 + 0.16e2 / 0.81e2 * t490 * t643 * t696 * t7063 + 0.32e2 / 0.243e3 * t27200 + 0.16e2 / 0.81e2 * t490 * t643 * t7290 * t454 - 0.448e3 / 0.2187e4 * t27207 + 0.64e2 / 0.243e3 * t27210 - 0.32e2 / 0.81e2 * t490 * t2183 * t2294 * t1970;
17936   t27220 = -0.6e1 * t478 * t479 * t25850 - 0.72e2 * t6983 * t1869 + 0.4e1 * t474 * t7826 + 0.2e1 / 0.5e1 * t702 * t7366 + 0.6e1 * t1853 * t2154 - 0.36e2 * t478 * t7377 * t1845 + t33 * (t26025 + t26459 + t26501 + t26746) - 0.144e3 * t13336 * t6973 + 0.3e1 / 0.5e1 * t2300 * t2342 + 0.2e1 / 0.5e1 * t7302 * t732 + 0.6e1 / 0.5e1 * t7389 * t732 - 0.27e2 / 0.100e3 * t208 * t2305 * t26758 - 0.4959e4 / 0.10000e5 * t208 * t26764 * t26765 + 0.162e3 * t1862 * t1864 * t25813 - 0.72e2 * t1855 * t7384 + 0.4e1 * t637 * t7301 * t230 + t162 * (t27167 + t27216) * t230;
17937   t27243 = (0.6160e4 / 0.81e2 * t26359 - 0.2618e4 / 0.81e2 * t26028) * t41 * t45 / 0.4e1 + 0.5236e4 / 0.729e3 * t26029;
17938   t27273 = t2323 * t2323;
17939   t27281 = 0.26180e5 / 0.243e3 * t211 * t212 * t26027 + 0.380875e6 / 0.177147e6 * t26034 - 0.146e3 / 0.135e3 * t27243 * t25 * t226 - 0.584e3 / 0.135e3 * t7340 * t468 * t226 + 0.584e3 / 0.135e3 * t7343 * t468 - 0.292e3 / 0.45e2 * t2323 * t1845 * t226 + 0.292e3 / 0.45e2 * t2326 * t1845 - 0.584e3 / 0.135e3 * t720 * t6963 * t226 + 0.1168e4 / 0.45e2 * t7351 * t468 + 0.584e3 / 0.135e3 * t723 * t6963 - 0.146e3 / 0.135e3 * t222 * t25850 * t226 + 0.1168e4 / 0.135e3 * t7358 * t468 + 0.292e3 / 0.45e2 * t222 * t25813 + 0.146e3 / 0.135e3 * t225 * t25850 + 0.584e3 / 0.135e3 * t27273 + 0.2336e4 / 0.405e3 * t720 * t7340 + 0.584e3 / 0.405e3 * t222 * t27243 + 0.584e3 / 0.45e2 * t2323 * t1839;
17940   t27298 = t473 * t6994;
17941   t27312 = -0.9720e4 * t25828 * t25874 * t25875 + 0.36e2 * t1850 * t6983 + 0.48e2 * t1855 * t6971 + 0.24e2 * t1855 * t6975 - 0.324e3 * t2158 * t25801 + 0.24e2 * t25808 * t471 + 0.3888e4 * t25942 * t6995 + 0.72e2 * t25950 * t478 + 0.6e1 * t25955 * t478 + 0.2592e4 * t27298 * t6997 - t25958;
17942   t27335 = t1863 * t25;
17943   t27339 = -0.162e3 * t1862 * t1863 * t25813 - 0.1080e4 * t1862 * t25828 * t26 + 0.7776e4 * t25828 * t27335 * t6995 + 0.72e2 * t1848 * t6983 + 0.144e3 * t1855 * t6973 - 0.1944e4 * t1862 * t25818 - 0.216e3 * t1862 * t25938 + 0.48e2 * t25907 * t478 + 0.36e2 * t25952 * t478 - 0.1296e4 * t6986 * t7000 - 0.648e3 * t6986 * t7004;
17944   t27340 = t27312 + t27339;
17945   t27355 = t160 * t27335;
17946   t27364 = 0.3e1 / 0.5e1 * t2166 * t2342 - 0.48e2 * t478 * t633 * t6971 + 0.2e1 / 0.5e1 * t638 * t7366 + 0.171e3 / 0.250e3 * t702 * t7031 + 0.2e1 / 0.5e1 * t7014 * t732 + t208 * t708 * t27281 / 0.10e2 + 0.6e1 / 0.5e1 * t6980 * t732 + 0.6e1 * t2165 * t2299 * t230 + t27340 * t207 * t230 + 0.648e3 * t6986 * t7315 - 0.2592e4 * t27298 * t7045 - 0.24e2 * t25808 * t480 + 0.171e3 / 0.250e3 * t638 * t7031 - 0.9e1 / 0.25e2 * t208 * t2305 * t7365 * t731 - 0.7776e4 * t6995 * t27355 * t25828 + 0.6e1 / 0.5e1 * t2168 * t2342 + 0.4e1 * t7013 * t701 * t230;
17947   t27378 = 0.1080e4 * t1862 * t244 * t25828 * t26 + 0.513e3 / 0.500e3 * t7915 * t2306 * t2341 - 0.9e1 / 0.25e2 * t2394 * t731 * t7365 - 0.27e2 / 0.25e2 * t7894 * t7920 - 0.48e2 * t478 * t756 * t6971 - 0.48e2 * t1855 * t7846 - 0.6e1 * t478 * t738 * t25850 - 0.72e2 * t1855 * t6956 - p->cam_beta * (t25900 + t25962 + t27220 + t27364) - 0.72e2 * t6983 * t2361 - 0.3888e4 * t13254 * t25942 - 0.144e3 * t13261 * t6973 - 0.48e2 * t4660 * t25907 + 0.216e3 * t4654 * t25938;
17948   t27392 = t244 * t25875;
17949   t27399 = t2388 * t1863;
17950   t27403 = t756 * t6996;
17951   t27407 = t2388 * t25;
17952   t27411 = t7013 * t708;
17953   t27414 = t637 * t7029;
17954   t27417 = -0.144e3 * t14097 * t6973 + 0.648e3 * t14106 * t7004 + 0.648e3 * t14109 * t7004 + 0.648e3 * t6986 * t7840 - 0.24e2 * t1855 * t6964 - 0.2592e4 * t27298 * t7904 + 0.9720e4 * t25874 * t27392 * t25828 - 0.36e2 * t478 * t7907 * t1845 + 0.324e3 * t1862 * t27399 * t1839 - 0.2592e4 * t6995 * t27403 * t6971 - 0.72e2 * t478 * t27407 * t1839 + 0.2e1 / 0.5e1 * t27411 * t731 + 0.171e3 / 0.250e3 * t27414 * t7030;
17955   t27418 = t244 * t27335;
17956   t27431 = t2165 * t2305;
17957   t27450 = t241 * t26009;
17958   t27459 = t2377 * t1881;
17959   t27462 = t750 * t7573;
17960   t27482 = t7872 * t581;
17961   t27485 = -t543 * t26036 / 0.5e1 + 0.7e1 / 0.9e1 * (0.16533692061454046639e2 * t26029 - 0.5e1 / 0.9e1 * (t26360 + 0.30685498274897119342e1 * t26028) * t41 * t45) * t123 + 0.6664e4 / 0.1875e4 * t27450 * t26010 - 0.784e3 / 0.125e3 * t7883 * t25988 + 0.98e2 / 0.75e2 * t2383 * t26169 + 0.392e3 / 0.225e3 * t2383 * t26019 + 0.196e3 / 0.75e2 * t27459 * t1882 - 0.1568e4 / 0.375e3 * t27462 * t7410 + 0.392e3 / 0.75e2 * t7878 * t7786 - 0.28e2 / 0.15e2 * t7875 * t1911 - 0.56e2 / 0.45e2 * t2380 * t7475 - 0.14e2 / 0.45e2 * t753 * t26036 + 0.1056e4 / 0.625e3 * t26455 * t26010 - 0.396e3 / 0.125e3 * t7819 * t1882 * t1911 + 0.18e2 / 0.25e2 * t1933 * t26169 + 0.24e2 / 0.25e2 * t7861 * t7475 - 0.56e2 / 0.45e2 * t27482 * t506;
17962   t27492 = t162 * t26764;
17963   t27495 = -0.7776e4 * t6995 * t27418 * t25828 - 0.27e2 / 0.100e3 * t2394 * t26758 + 0.162e3 * t1862 * t2352 * t25813 + 0.2e1 / 0.5e1 * t2391 * t7365 + t759 * t27281 / 0.10e2 - 0.27e2 / 0.50e2 * t27431 * t2306 + 0.3e1 / 0.5e1 * t7854 * t2341 + t27340 * t230 + 0.4e1 * t474 * t7890 + t33 * t27485 + 0.4e1 * t6978 * t756 + 0.6e1 * t1853 * t2388 + t25958 * t244 - 0.4959e4 / 0.10000e5 * t27492 * t26765;
17964   t27501 = t1827 * t1827;
17965   t27506 = t1810 * t673;
17966   t27508 = t8 * t27506 * t1813;
17967   t27511 = t8 * t2767 * t456;
17968   t27518 = t8 * t772 * t8521;
17969   t27521 = t8 * t6949 * t937;
17970   t27523 = t2404 * t673;
17971   t27525 = t8 * t27523 * t2407;
17972   t27531 = t8 * t460 * t7925;
17973   t27533 = 0.4e1 / 0.27e2 * t25781 - 0.5e1 / 0.9e1 * t25784 + 0.4e1 / 0.3e1 * t25787 - 0.3e1 / 0.8e1 * t8 * t18 * (t25827 + t27378 + t27417 + t27495) - t8 * t1811 * t247 * t27501 / 0.2e1 + 0.2e1 / 0.9e1 * t27508 - 0.20e2 / 0.27e2 * t27511 - 0.2e1 * t8 * t450 * t762 * t7944 + t27518 / 0.2e1 + 0.5e1 / 0.9e1 * t27521 + 0.2e1 / 0.9e1 * t27525 - t8 * t1811 * t2399 * t1812 - t27531 / 0.2e1;
17974   t27546 = 0.10e2 / 0.27e2 * t8 * t253 * t3092 * t444;
17975   t27548 = t8 * t7972 * t1828;
17976   t27553 = 0.10e2 / 0.27e2 * t8 * t16 * t3092 * t247;
17977   t27554 = t673 * p->cam_beta;
17978   t27556 = t2416 * t27554 * t2418;
17979   t27562 = t2416 * t7937 * t8536;
17980   t27569 = t3132 * t7937 * t8532;
17981   t27579 = t3132 * t8659 * t8540;
17982   t27581 = 0.2e1 * t3132 * t2417 * t7933 * t767 + 0.2e1 / 0.3e1 * t8636 * t2755 * t1812 * t1827 + t27546 + 0.2e1 / 0.3e1 * t27548 + t27553 - 0.4e1 / 0.3e1 * t27556 + t3132 * t2417 * t2746 * t2406 + 0.2e1 * t27562 + 0.3e1 * t2416 * t2417 * t2746 * t2421 + 0.2e1 / 0.3e1 * t27569 - 0.2e1 * t2754 * t8626 * t7929 + 0.2e1 / 0.3e1 * t8654 * t3133 * t2406 * t2421 - 0.2e1 / 0.3e1 * t27579;
17983   t27583 = t2416 * t7937 * t7933;
17984   t27594 = t8 * t3145 * t768;
17985   t27606 = t8 * t1817 * t7945;
17986   t27613 = t8 * t1817 * t8525;
17987   t27616 = t2754 * t8641 * t7929;
17988   t27630 = 0.2e1 * t27583 - 0.2e1 / 0.3e1 * t3132 * t3133 * t767 * t7952 + 0.2e1 * t2416 * t2417 * t936 * t7952 - 0.20e2 / 0.27e2 * t27594 + t8 * t766 * t444 * t24819 / 0.2e1 - 0.2e1 * t8 * t450 * t7925 * t455 - 0.2e1 / 0.3e1 * t27606 - 0.4e1 / 0.9e1 * t8654 * t2417 * t936 * t8551 - 0.2e1 * t27613 - 0.2e1 / 0.3e1 * t27616 - 0.2e1 / 0.3e1 * t2754 * t2755 * t455 * t7944 - 0.3e1 * t8 * t450 * t2399 * t1827 + 0.2e1 * t2416 * t2417 * t8520 * t767;
17989   t27634 = 0.5e1 / 0.9e1 * t8558;
17990   t27636 = 0.4e1 / 0.3e1 * t7974 + 0.4e1 / 0.9e1 * t7982 - 0.2e1 / 0.3e1 * t7986 - 0.4e1 * t7989 + 0.3e1 / 0.2e1 * t8523 - 0.6e1 * t8527 - 0.2e1 * t8530 + 0.2e1 * t8534 + 0.6e1 * t8538 - 0.2e1 * t8542 + 0.4e1 / 0.3e1 * t8546 + 0.4e1 / 0.9e1 * t8554 + t10 * (t25778 + t27533 + t27581 + t27630) - t27634 - 0.3e1 / 0.2e1 * t8561;
17991   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
17992     v4rho4[0] = t24775 + t27636;
17993 
17994   t27645 = -t24763 - 0.3e1 / 0.2e1 * t8587 + t8591 + 0.3e1 / 0.4e1 * t6954 - t7928 + 0.3e1 * t8596 + t11866 + t8601 - t8605 / 0.2e1 + 0.3e1 / 0.2e1 * t8609 - t8613 / 0.2e1 - 0.3e1 * t8617 - t8619 + 0.7e1 / 0.2e1 * t8624 - t8628 - t8633;
17995   t27647 = t8643 / 0.3e1;
17996   t27651 = t8661 / 0.3e1;
17997   t27656 = t8639 / 0.3e1 - t27647 - 0.3e1 / 0.2e1 * t8647 - 0.3e1 * t8652 - t7932 + t8657 / 0.3e1 - t27651 + t7936 + 0.2e1 * t7939 - t7943 - t7948 + 0.3e1 / 0.4e1 * t7950 - t7956 - t7958 + 0.3e1 / 0.2e1 * t8667 - t7962 / 0.3e1;
17998   t27660 = 0.3e1 / 0.4e1 * t8678;
17999   t27661 = 0.3e1 / 0.4e1 * t8681;
18000   t27667 = -0.3e1 / 0.4e1 * t7965 - 0.3e1 / 0.2e1 * t8675 + t27660 + t27661 - t7970 + t7974 + t7983 - t7986 / 0.3e1 - 0.2e1 * t7989 + t8524 + t13134 - t8690 - t8694 / 0.2e1 - t8528 + 0.9e1 / 0.8e1 * t9493 + 0.9e1 / 0.8e1 * t10230;
18001   t27685 = t8 * t252 * t9360 * t3146;
18002   t27691 = t3092 * p->cam_beta;
18003   t27693 = t2416 * t27691 * t8650;
18004   t27701 = t8 * t2411 * t8673;
18005   t27706 = -t24789 / 0.4e1 - t8 * t450 * t7925 * t944 / 0.2e1 + t24797 / 0.4e1 + t8654 * t3133 * t8603 * t767 / 0.3e1 - t24800 / 0.6e1 + t24813 / 0.27e2 + 0.25e2 / 0.6e1 * t27685 + t8636 * t2755 * t8611 * t455 / 0.3e1 + 0.7e1 / 0.2e1 * t27693 + 0.3e1 / 0.2e1 * t2775 * t2417 * t9490 * t455 - t25761 / 0.6e1 - t27701 / 0.2e1 - 0.3e1 / 0.2e1 * t8 * t3145 * t937;
18006   t27712 = t8 * t2767 * t945;
18007   t27718 = t2987 * t25;
18008   t27726 = t2987 * t1863;
18009   t27754 = t77 * t9143;
18010   t27761 = t519 * t2061;
18011   t27764 = t7481 * t109;
18012   t27767 = t1981 * t565;
18013   t27773 = t490 * t2804 * t949;
18014   t27776 = 0.1e1 / t17 / t24815;
18015   t27779 = t490 * t27776 * t69 * t2805;
18016   t27782 = t38 * t24824 * t8727;
18017   t27791 = t490 * t7442 * t8731;
18018   t27798 = t490 * t1947 * t8742;
18019   t27809 = t26061 + 0.14e2 / 0.729e3 * t27773 - 0.49e2 / 0.81e2 * t27779 + 0.7e1 / 0.27e2 * t27782 + t490 * t8759 * t1958 / 0.90e2 + 0.4e1 / 0.27e2 * t490 * t2804 * t7437 + 0.11e2 / 0.5400e4 * t27791 + 0.77e2 / 0.18000e5 * t490 * t7409 * t949 * t7410 + 0.14e2 / 0.243e3 * t27798 + 0.140e3 / 0.729e3 * t490 * t511 * t26143 * t943 * t7072 + 0.2e1 / 0.81e2 * t490 * t511 * t2797 * t7063;
18020   t27825 = 0.4e1 / 0.27e2 * t490 * t2804 * t8768 * t1975 - t26071 / 0.540e3 - 0.2e1 / 0.81e2 * t26074 + 0.2e1 / 0.405e3 * t26077 + 0.11e2 / 0.5400e4 * t26090 - 0.11e2 / 0.1800e4 * t26093 - t26096 / 0.540e3 + t26099 / 0.405e3 + 0.14e2 / 0.729e3 * t26139 + 0.11e2 / 0.1350e4 * t26156 + 0.77e2 / 0.18000e5 * t26160 + 0.7e1 / 0.405e3 * t26180;
18021   t27833 = t1952 * t1969;
18022   t27853 = t37 * t489 * t2803;
18023   t27859 = t69 * t7070;
18024   t27860 = t3025 * t1975;
18025   t27864 = 0.14e2 / 0.243e3 * t26183 - t26186 / 0.135e3 - 0.2e1 / 0.81e2 * t26189 + t26192 / 0.540e3 + 0.8e1 / 0.243e3 * t26199 + t26202 / 0.162e3 + 0.11e2 / 0.1350e4 * t5889 * t27833 * t943 * t1882 * t454 - 0.11e2 / 0.1800e4 * t5889 * t13511 * t8736 * t1911 - t5889 * t8735 * t943 * t1911 * t454 / 0.135e3 - t5889 * t8735 * t8736 * t1975 / 0.135e3 - 0.4e1 / 0.135e3 * t27853 * t8735 * t9 * t506 * t454 - 0.14e2 / 0.81e2 * t5889 * t27859 * t27860;
18026   t27866 = t490 * t7459 * t2793;
18027   t27867 = t27866 / 0.405e3;
18028   t27869 = t490 * t7463 * t2798;
18029   t27870 = 0.8e1 / 0.243e3 * t27869;
18030   t27872 = t490 * t1943 * t8755;
18031   t27875 = t490 * t1947 * t8764;
18032   t27885 = t8722 * t492;
18033   t27887 = t490 * t27885 * t8760;
18034   t27890 = t490 * t8723 * t8769;
18035   t27892 = t2803 * t1952;
18036   t27902 = t18405 * t8738;
18037   t27904 = t492 * t7070;
18038   t27909 = t27867 + t27870 - t27872 / 0.540e3 - 0.2e1 / 0.81e2 * t27875 + t490 * t493 * t949 * t7475 / 0.540e3 + t490 * t8759 * t2805 * t1911 / 0.90e2 - 0.11e2 / 0.270e3 * t27887 - 0.44e2 / 0.81e2 * t27890 - 0.11e2 / 0.900e3 * t490 * t27892 * t2805 * t1882 - 0.28e2 / 0.81e2 * t490 * t2804 * t7070 * t9 * t1970 + 0.2e1 / 0.405e3 * t27902 + 0.7e1 / 0.405e3 * t5889 * t27904 * t8736 * t1970;
18039   t27912 = my_piecewise3(t76, 0, t27809 + t27825 + t27864 + t27909);
18040   t27919 = t4923 * t7541;
18041   t27922 = 0.15e2 / 0.2e1 * t8826 * t7541;
18042   t27924 = t79 * t27912 * t86;
18043   t27926 = t982 * t7481;
18044   t27929 = t954 * t7491;
18045   t27930 = t27929 * t86;
18046   t27933 = t2810 * t1981;
18047   t27934 = t27933 * t86;
18048   t27937 = t2810 * t1987;
18049   t27938 = t27937 * t86;
18050   t27949 = t8898 * t519;
18051   t27956 = t8977 * t519;
18052   t27957 = 0.2304e4 * t27956;
18053   t27958 = 0.60e2 * t27919 - t27922 - 0.10e2 * t27924 - 0.3e1 / 0.2e1 * t2044 * t27926 - 0.9e1 / 0.4e1 * t26284 * t27930 + 0.3e1 / 0.4e1 * t2051 * t27934 + 0.3e1 / 0.8e1 * t7500 * t27938 + t2051 * t27926 / 0.4e1 + 0.18e2 * t26274 * t8914 + 0.18e2 * t7538 * t27938 + 0.75e2 / 0.4e1 * t26287 * t27930 - 0.9e1 / 0.2e1 * t2044 * t27949 + 0.3e1 / 0.4e1 * t2051 * t27949 - 0.9e1 / 0.2e1 * t9094 * t7541 + t27957;
18054   t27959 = t2913 * t1981;
18055   t27960 = 0.2304e4 * t27959;
18056   t27961 = t7505 * t954;
18057   t27964 = t7500 * t954;
18058   t27967 = t7538 * t954;
18059   t27970 = t999 * t7481;
18060   t27971 = 0.768e3 * t27970;
18061   t27972 = t2866 * t1987;
18062   t27973 = 0.4608e4 * t27972;
18063   t27974 = t2833 * t7501;
18064   t27977 = t26252 * t954 * t7501;
18065   t27979 = t2827 * t7508;
18066   t27981 = t14978 * t7501;
18067   t27984 = t1999 * t8781 * t557;
18068   t27986 = t8823 * t2048;
18069   t27990 = 0.15e2 / 0.2e1 * t7504 * t2810 * t2045;
18070   t27991 = t14975 * t2045;
18071   t27993 = t128 * t27912;
18072   t27994 = 0.256e3 * t27993;
18073   t27995 = t77 * t27912;
18074   t27997 = t27960 - 0.27e2 / 0.4e1 * t27961 * t7541 + 0.3e1 / 0.8e1 * t27964 * t7541 + 0.18e2 * t27967 * t7541 + t27971 + t27973 - 0.100e3 * t27974 - 0.5e1 / 0.4e1 * t27977 - 0.5e1 * t27979 + 0.55e2 / 0.2e1 * t27981 - 0.15e2 * t27984 - 0.15e2 * t27986 - t27990 + 0.60e2 * t27991 + t27994 - 0.72e2 * t27995;
18075   t27999 = 0.1536e4 * t27929;
18076   t28000 = t519 * t8781;
18077   t28003 = t7481 * t954;
18078   t28029 = t27999 - 0.216e3 * t28000 - 0.216e3 * t27933 - 0.72e2 * t28003 + t26297 * t27930 / 0.16e2 + 0.3e1 / 0.4e1 * t9089 * t7541 - 0.30e2 * t2051 * t27930 - 0.9e1 / 0.2e1 * t26271 * t2879 - 0.9e1 * t7535 * t8926 - 0.9e1 / 0.2e1 * t7535 * t8924 - 0.27e2 / 0.4e1 * t26300 * t8914 + 0.3e1 / 0.4e1 * t26292 * t2879 + 0.3e1 / 0.2e1 * t7516 * t8926 + 0.3e1 / 0.4e1 * t7516 * t8924 + 0.3e1 / 0.8e1 * t26308 * t8914 - 0.9e1 / 0.2e1 * t2044 * t27934;
18079   t28036 = t976 * t7488;
18080   t28037 = 0.4608e4 * t28036;
18081   t28038 = 0.40e2 * t28003 + 0.120e3 * t27933 + 0.120e3 * t28000 + 0.40e2 * t27995 - t27999 - t27973 - t28037 - t27957 - t27960 - t27971 - t27994;
18082   t28042 = t9140 * t525;
18083   t28047 = t2872 * t1999;
18084   t28050 = t980 * t7504;
18085   t28053 = t980 * t1986;
18086   t28058 = t27912 * t86;
18087   t28061 = t980 * t7499;
18088   t28068 = t2872 * t2006;
18089   t28074 = -0.27e2 / 0.4e1 * t7505 * t27938 + t28038 * t86 + t28037 + t26311 * t982 / 0.2e1 + 0.3e1 / 0.2e1 * t28042 * t557 + 0.3e1 / 0.2e1 * t7511 * t2882 - 0.9e1 / 0.2e1 * t28047 * t2045 - 0.9e1 / 0.4e1 * t28050 * t7501 + 0.6e1 * t28053 * t7501 + 0.3e1 / 0.2e1 * t2042 * t8898 + t556 * t28058 / 0.2e1 + t28061 * t7501 / 0.8e1 + t2874 * t7508 / 0.2e1 + 0.3e1 / 0.2e1 * t9100 * t2048 + 0.3e1 / 0.4e1 * t28068 * t2045 + 0.10e2 * t78 * t27912 * t81;
18090   t28079 = 0.48e2 * t2862 * t7481 + 0.48e2 * t26052 * t954 + 0.288e3 * t9071 * t2810 + 0.144e3 * t2855 * t8781 + 0.144e3 * t1987 * t2894 + 0.144e3 * t27754 * t519 + 0.144e3 * t7396 * t2810 + 0.144e3 * t9068 * t2810 + 0.144e3 * t27761 * t954 + 0.48e2 * t27764 * t954 + 0.144e3 * t27767 * t954 + 0.144e3 * t11226 * t1981 + 0.48e2 * t547 * t27912 + 0.144e3 * t2028 * t8781 + 0.144e3 * t9084 * t1981 + 0.24e2 * t83 * (t27958 + t27997 + t28029 + t28074);
18091   t28116 = t83 * t9026;
18092   t28133 = -0.30e2 * t2107 * t27930 - 0.48e2 * t26563 * t27930 + 0.48e2 * t614 * t4923 * t7491 + 0.216e3 * t28116 * t519 + 0.18e2 * t26714 * t8914 + 0.18e2 * t7682 * t27938 + 0.75e2 / 0.4e1 * t26580 * t27930 + 0.21e2 * t7673 * t27938 + 0.15e2 / 0.2e1 * t26708 * t27930 - 0.36e2 * t614 * t8823 * t1987 - t2138 * t27926;
18093   t28157 = -0.3e1 * t2138 * t27934 - 0.3e1 / 0.2e1 * t7644 * t27938 - 0.9e1 * t7679 * t8926 + 0.3e1 / 0.2e1 * t7664 * t8926 - 0.9e1 / 0.2e1 * t2102 * t27949 + 0.3e1 / 0.4e1 * t2107 * t27949 + 0.3e1 / 0.4e1 * t8901 * t7541 - 0.9e1 / 0.2e1 * t26558 * t2879 + 0.3e1 / 0.4e1 * t26673 * t2879 - 0.9e1 / 0.2e1 * t8910 * t7541 + 0.12e2 * t614 * t8831 * t519;
18094   t28181 = -0.3e1 * t2138 * t27949 + 0.2160e4 * t2817 * t1994 + t26679 * t27930 / 0.16e2 - 0.9e1 / 0.2e1 * t2102 * t27934 - 0.27e2 / 0.4e1 * t7667 * t27938 + 0.216e3 * t8960 * t1981 + 0.432e3 * t8957 * t2810 + 0.216e3 * t2113 * t8781 + 0.216e3 * t7637 * t2810 + 0.72e2 * t2947 * t7481 + 0.72e2 * t26606 * t954;
18095   t28184 = t7682 * t954;
18096   t28187 = t7673 * t519;
18097   t28190 = t2817 * t1981;
18098   t28193 = t7644 * t1981;
18099   t28196 = t7667 * t954;
18100   t28199 = t7655 * t954;
18101   t28202 = t7532 * t982;
18102   t28204 = t26388 * t27929;
18103   t28206 = t1007 * t1986;
18104   t28213 = 0.72e2 * t601 * t27912 + 0.18e2 * t28184 * t7541 + 0.21e2 * t28187 * t8924 - 0.36e2 * t14676 * t28190 - 0.3e1 / 0.2e1 * t28193 * t2879 - 0.27e2 / 0.4e1 * t28196 * t7541 + 0.3e1 / 0.8e1 * t28199 * t7541 - 0.240e3 * t28202 + 0.2640e4 * t28204 + 0.6e1 * t28206 * t7501 + t2930 * t7508 / 0.2e1 + 0.3e1 / 0.2e1 * t8906 * t2048;
18105   t28216 = t1987 * t608;
18106   t28219 = t77 * t2958;
18107   t28247 = 0.153600e6 * t1001 * t7481 + 0.30720e5 * t130 * t27912 + 0.460800e6 * t1981 * t2917 + 0.1843200e7 * t1987 * t2870 + 0.460800e6 * t519 * t8985 + 0.1843200e7 * t7488 * t978 + 0.1843200e7 * t7491 * t999 - 0.34560e5 * t27929 + 0.1344e4 * t27933 - 0.51840e5 * t27956 - 0.51840e5 * t27959 - 0.17280e5 * t27970 - 0.103680e6 * t27972 - 0.5760e4 * t27993 + 0.448e3 * t27995 + 0.1344e4 * t28000 + 0.448e3 * t28003 - 0.103680e6 * t28036;
18108   t28280 = -0.26542080e8 * t132 * t519 * t8781 + 0.161658e6 * t1015 * t7481 - 0.371589120e9 * t1015 * t7491 + 0.484974e6 * t1981 * t2956 - 0.26542080e8 * t1981 * t8997 - 0.103680e6 * t1987 * t2913 + 0.2424870e7 * t1987 * t2917 - 0.185794560e9 * t1987 * t2921 - 0.8847360e7 * t2923 * t7481 + 0.484974e6 * t519 * t9024 - 0.11520e5 * t7481 * t978 - 0.69120e5 * t7491 * t976 + 0.3233160e7 * t7491 * t978 - 0.8e1 * t27912;
18109   t28307 = 0.2424870e7 * t1001 * t7488 - 0.185794560e9 * t1003 * t7488 - 0.2880e4 * t101 * t27912 - 0.1105920e7 * t134 * t27912 + 0.26943e5 * t141 * t27912 + 0.4608e4 * t1981 * t2866 - 0.34560e5 * t1981 * t2870 + 0.768e3 * t27912 * t83 + 0.4608e4 * t519 * t9008 - 0.34560e5 * t519 * t9016 + 0.1536e4 * t7481 * t976 - 0.103680e6 * t7488 * t999 + 0.4608e4 * t27937 + 0.4608e4 * t28190;
18110   t28310 = t7699 * t28190;
18111   t28324 = 0.432e3 * t28216 * t954 + 0.432e3 * t28219 * t1987 + 0.24e2 * t128 * t28247 + 0.144e3 * t7491 * t1017 + (t28280 + t28307) * t86 - 0.1080e4 * t28310 - t26699 * t27930 / 0.4e1 + 0.12e2 * t614 * t2830 * t1981 + 0.4e1 * t614 * t959 * t7481 - 0.9e1 / 0.2e1 * t7679 * t8924 - 0.27e2 / 0.4e1 * t26577 * t8914;
18112   t28346 = t1007 * t7504;
18113   t28349 = t2928 * t1999;
18114   t28352 = 0.3e1 / 0.4e1 * t7664 * t8924 + 0.3e1 / 0.8e1 * t26687 * t8914 - 0.1440e4 * t2842 * t2048 - 0.480e3 * t964 * t7508 + 0.240e3 * t106 * t27912 * t81 - 0.1440e4 * t532 * t8898 + 0.720e3 * t2056 * t2963 + 0.720e3 * t561 * t8881 + 0.2160e4 * t27937 * t521 - 0.2880e4 * t27929 * t1991 - 0.9e1 / 0.4e1 * t28346 * t7501 - 0.9e1 / 0.2e1 * t28349 * t2045;
18115   t28357 = t7699 * t27937;
18116   t28359 = t9004 * t525;
18117   t28362 = t1007 * t7499;
18118   t28367 = t2928 * t2006;
18119   t28380 = -0.2e1 * t614 * t84 * t27912 - 0.1080e4 * t28357 + 0.3e1 / 0.2e1 * t28359 * t557 + t28362 * t7501 / 0.8e1 + t26676 * t982 / 0.2e1 + 0.3e1 / 0.4e1 * t28367 * t2045 + t598 * t28058 / 0.2e1 + 0.3e1 / 0.2e1 * t2100 * t8898 + 0.3e1 / 0.2e1 * t7670 * t2882 + 0.144e3 * t2110 * t28003 + 0.432e3 * t26593 * t2817;
18120   t28405 = 0.432e3 * t2110 * t28000 + 0.432e3 * t2110 * t27933 + 0.432e3 * t11338 * t8807 + 0.432e3 * t7634 * t8807 + 0.432e3 * t8954 * t7488 + 0.864e3 * t7634 * t8804 + 0.240e3 * t7526 * t1020 - 0.3e1 / 0.2e1 * t2102 * t27926 - 0.9e1 / 0.4e1 * t26574 * t27930 + 0.3e1 / 0.4e1 * t2107 * t27934 + 0.3e1 / 0.8e1 * t7655 * t27938 + t2107 * t27926 / 0.4e1;
18121   t28424 = t9147 * t41;
18122   t28427 = -0.3e1 / 0.5e1 * t8718 * t1911 - 0.12014101497942386831e1 * t1031 * t7578 - 0.21063684444444444445e0 * t9036 * t626 + 0.98e2 / 0.135e3 * t9039 * t1929 + 0.84254737777777777777e-1 * t1031 * t7803 + 0.35e2 / 0.81e2 * t28079 * t120 * t124 + 0.35e2 / 0.27e2 * t2897 * t1896 * t124 + 0.35e2 / 0.81e2 * t993 * t7559 * t124 + 0.44233737333333333333e-1 * t15053 * t7815 - 0.392e3 / 0.675e3 * t2904 * t7575 + 0.98e2 / 0.135e3 * t9042 * t1929 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t27912 * t151 + 0.24e2 / 0.7e1 * t8781 * t618 + 0.24e2 / 0.7e1 * t2810 * t2146 + 0.8e1 / 0.7e1 * t954 * t7703 + 0.8e1 / 0.7e1 * t7481 * t1026 + 0.24e2 / 0.7e1 * t1981 * t2975 + 0.24e2 / 0.7e1 * t519 * t9031 + 0.8e1 / 0.7e1 * t77 * (t28133 + t28157 + t28181 + t28213 + t28324 + t28352 + t28380 + t28405)) * t41 * t45 * t157 - 0.14e2 / 0.27e2 * t9039 * t2074 - 0.14e2 / 0.27e2 * t9042 * t2074 - 0.14e2 / 0.81e2 * t2904 * t7581 + 0.77233509629629629632e0 * t2980 * t1918 - 0.14e2 / 0.27e2 * t28424 * t583;
18123   t28428 = t9065 * t41;
18124   t28431 = t9062 * t41;
18125   t28457 = t972 * t7819;
18126   t28474 = t2006 * t519;
18127   t28477 = t7643 * t1981;
18128   t28489 = t7481 * t87;
18129   t28503 = 0.3e1 / 0.8e1 * t8839 * t7541 + 0.45e2 / 0.2e1 * t27919 - t27922 + t525 * t27912 * t86 / 0.2e1 - 0.4e1 * t28489 * t954 - 0.12e2 * t8842 * t2810 - 0.12e2 * t2836 * t8781 - 0.4e1 * t529 * t27912 - t27924 - 0.75e2 / 0.2e1 * t27974 - 0.3e1 * t2143 * t2882 - 0.3e1 * t615 * t8898;
18130   t28524 = -t7640 * t982 + t26296 * t954 * t7501 / 0.16e2 + 0.3e1 / 0.8e1 * t7499 * t2810 * t2045 + t2833 * t7508 / 0.4e1 + 0.3e1 / 0.4e1 * t2006 * t8781 * t557 + 0.3e1 / 0.4e1 * t8834 * t2048 - 0.19e2 / 0.8e1 * t27977 - 0.2e1 * t27979 + 0.85e2 / 0.4e1 * t27981 - 0.6e1 * t27984 - 0.6e1 * t27986 - t27990 + 0.45e2 / 0.2e1 * t27991;
18131   t28540 = 0.21e2 / 0.2e1 * t28474 * t8924 - 0.3e1 / 0.4e1 * t28477 * t2879 - 0.24e2 * t28202 + 0.24e2 * t28204 - t521 * t27912 + 0.2e1 * t77 * (t28503 + t28524) + 0.6e1 * t519 * t8854 + 0.6e1 * t1981 * t2844 + 0.2e1 * t7481 * t966 + 0.2e1 * t954 * t7778 + 0.6e1 * t2810 * t2018 + 0.6e1 * t8781 * t534;
18132   t28549 = t1986 * t7481;
18133   t28556 = t26380 * t7491;
18134   t28567 = 0.2e1 * t27912 * t90 - 0.18e2 * t28310 - 0.18e2 * t28357 + 0.21e2 / 0.2e1 * t2007 * t2882 + 0.15e2 / 0.4e1 * t7769 * t982 - t28549 * t982 / 0.2e1 - 0.3e1 / 0.2e1 * t8794 * t2882 - 0.3e1 / 0.4e1 * t8797 * t2882 - t28556 * t982 / 0.8e1 - 0.3e1 / 0.2e1 * t2814 * t8898 + 0.6e1 * t1991 * t28000 + 0.6e1 * t1991 * t27933 + 0.2e1 * t1991 * t28003;
18135   t28573 = t8860 * t543;
18136   t28578 = t2850 * t1933;
18137   t28581 = -0.28e2 / 0.27e2 * t28428 * t583 - 0.14e2 / 0.27e2 * t28431 * t583 + 0.35e2 / 0.27e2 * t9146 * t575 * t124 + 0.18e2 / 0.25e2 * t9047 * t7786 - 0.30893403851851851852e0 * t1031 * t7792 + 0.16850947555555555555e0 * t2980 * t1921 - 0.11795663288888888889e0 * t1031 * t7806 - 0.35386989866666666666e-1 * t1031 * t7810 - 0.10531842222222222222e-1 * t1031 * t7798 - 0.31595526666666666666e-1 * t2980 * t1915 + 0.44233737333333333333e-1 * t2980 * t1884 - 0.31595526666666666666e-1 * t9036 * t630 + 0.98e2 / 0.135e3 * t2904 * t7787 - 0.66e2 / 0.125e3 * t28457 * t7410 + (-0.8e1 / 0.3e1 * t27912 * t93 - 0.8e1 * t8781 * t537 - 0.8e1 * t2810 * t2021 - 0.8e1 / 0.3e1 * t954 * t7781 - 0.8e1 / 0.3e1 * t7481 * t969 - 0.8e1 * t1981 * t2847 - 0.8e1 * t519 * t8857 - 0.8e1 / 0.3e1 * t77 * (t28540 + t28567)) * t98 - 0.3e1 / 0.5e1 * t28573 * t506 - t2852 * t7475 / 0.5e1 + 0.18e2 / 0.25e2 * t28578 * t1882;
18138   t28588 = t1034 * t6996;
18139   t28594 = t9150 * t26;
18140   t28607 = -0.36e2 * t478 * t27718 * t1839 - 0.27e2 / 0.100e3 * t1075 * t7017 - 0.18e2 * t6983 * t2785 + 0.162e3 * t1862 * t27726 * t1839 - 0.18e2 * t1855 * t8713 + 0.162e3 * t6986 * t8702 + t33 * (t28427 + t28581) + 0.3e1 * t1853 * t2987 - 0.36e2 * t14556 * t6973 - 0.648e3 * t6995 * t28588 * t6971 - 0.36e2 * t1855 * t8710 - 0.18e2 * t478 * t28594 * t468 + 0.3e1 / 0.10e2 * t3122 * t2342 + 0.3e1 / 0.5e1 * t9154 * t732 + 0.3e1 / 0.10e2 * t2989 * t2342 - 0.12e2 * t478 * t1034 * t6971;
18141   t28609 = t490 * t7100 * t3000;
18142   t28610 = 0.16e2 / 0.243e3 * t28609;
18143   t28613 = t38 * t7096 * t1070;
18144   t28621 = t490 * t2176 * t9213;
18145   t28624 = t490 * t27087 * t2996;
18146   t28625 = 0.64e2 / 0.729e3 * t28624;
18147   t28627 = t490 * t7081 * t9171;
18148   t28629 = t8722 * t1969;
18149   t28631 = t490 * t28629 * t9160;
18150   t28634 = t38 * t485 * t9468;
18151   t28644 = t28610 - 0.16e2 / 0.81e2 * t26778 - t26782 + 0.112e3 / 0.729e3 * t28613 + 0.4e1 / 0.27e2 * t490 * t643 * t9467 * t454 + 0.4e1 / 0.81e2 * t26784 - 0.8e1 / 0.81e2 * t28621 - t28625 + 0.16e2 / 0.243e3 * t28627 + 0.352e3 / 0.243e3 * t28631 + 0.4e1 / 0.27e2 * t28634 + 0.112e3 / 0.729e3 * t490 * t7071 * t1069 * t7072 + 0.8e1 / 0.27e2 * t38 * t7096 * t513 * t696;
18152   t28646 = t38 * t24824 * t9199;
18153   t28649 = t490 * t9192 * t9209;
18154   t28686 = t490 * t7081 * t9167;
18155   t28688 = -0.56e2 / 0.81e2 * t28646 - 0.88e2 / 0.81e2 * t28649 - 0.16e2 / 0.81e2 * t490 * t2183 * t3116 * t1970 + 0.4e1 / 0.27e2 * t490 * t643 * t3116 * t1975 + 0.112e3 / 0.243e3 * t27139 + 0.8e1 / 0.27e2 * t490 * t3004 * t2294 * t9 - 0.16e2 / 0.81e2 * t490 * t2183 * t9184 * t454 - 0.16e2 / 0.81e2 * t490 * t2183 * t3000 * t1975 - 0.16e2 / 0.243e3 * t490 * t2183 * t1036 * t7063 - 0.32e2 / 0.81e2 * t490 * t9159 * t3005 * t1975 + 0.4e1 / 0.81e2 * t490 * t643 * t1069 * t7063 - 0.4e1 / 0.81e2 * t27142 + 0.32e2 / 0.243e3 * t28686;
18156   t28700 = t490 * t7081 * t9472;
18157   t28702 = t2803 * t7070;
18158   t28708 = t490 * t27101 * t9217;
18159   t28715 = t38 * t1939 * t3117;
18160   t28716 = 0.16e2 / 0.81e2 * t28715;
18161   t28717 = t27776 * t513;
18162   t28719 = t490 * t28717 * t3005;
18163   t28722 = t490 * t3004 * t1036;
18164   t28724 = 0.4e1 / 0.81e2 * t490 * t643 * t7290 * t943 - 0.112e3 / 0.2187e4 * t27145 - 0.64e2 / 0.729e3 * t27156 - 0.4e1 / 0.243e3 * t27159 - 0.4e1 / 0.81e2 * t27162 + 0.16e2 / 0.243e3 * t27165 + 0.16e2 / 0.243e3 * t28700 + 0.224e3 / 0.243e3 * t490 * t28702 * t3005 * t1970 - 0.112e3 / 0.729e3 * t28708 + 0.112e3 / 0.243e3 * t490 * t7071 * t3000 * t1970 - t28716 + 0.392e3 / 0.243e3 * t28719 - 0.112e3 / 0.2187e4 * t28722;
18165   t28727 = t7070 * t202;
18166   t28736 = t490 * t7100 * t3012;
18167   t28737 = 0.16e2 / 0.243e3 * t28736;
18168   t28739 = t490 * t2176 * t9476;
18169   t28753 = t490 * t2176 * t9184;
18170   t28758 = t490 * t2176 * t9413;
18171   t28761 = t679 * t3093 * t1057;
18172   t28767 = t679 * t26961 * t1056;
18173   t28770 = t679 * t2264 * t9342;
18174   t28773 = t188 * t25522 * t9343;
18175   t28776 = t3074 * t2252 * t186;
18176   t28779 = t1055 * t7225 * t186;
18177   t28781 = t179 * t24824 * t3070;
18178   t28784 = t179 * t7096 * t71;
18179   t28786 = t943 * t7063;
18180   t28791 = t179 * t1939 * t1051;
18181   t28794 = t3065 * t2176 * t3025;
18182   t28795 = 0.4e1 / 0.81e2 * t28794;
18183   t28797 = t3065 * t643 * t9334;
18184   t28800 = t3065 * t3004 * t9330;
18185   t28802 = t9 * t1970;
18186   t28809 = t9 * t1975;
18187   t28817 = t3065 * t2183 * t9326;
18188   t28819 = t180 * t7070;
18189   t28820 = t943 * t7072;
18190   t28830 = -0.64e2 / 0.27e2 * t28781 + 0.16e2 / 0.9e1 * t28784 + 0.2e1 / 0.27e2 * t3065 * t3066 * t28786 - 0.16e2 / 0.243e3 * t28791 - t28795 + 0.4e1 / 0.27e2 * t28797 - 0.20e2 / 0.27e2 * t28800 - 0.16e2 / 0.27e2 * t3065 * t27087 * t28802 + 0.4e1 / 0.9e1 * t179 * t1939 * t514 + 0.4e1 / 0.9e1 * t3065 * t7100 * t28809 + t26881 - 0.16e2 / 0.81e2 * t26883 + 0.4e1 / 0.27e2 * t26889 - 0.4e1 / 0.27e2 * t26898 - 0.16e2 / 0.81e2 * t28817 + 0.56e2 / 0.243e3 * t3065 * t28819 * t28820 - 0.8e1 / 0.27e2 * t3065 * t9325 * t27860 - 0.4e1 / 0.81e2 * t26886 - 0.16e2 / 0.243e3 * t26892 + 0.4e1 / 0.27e2 * t26895;
18191   t28831 = t28830 * t186;
18192   t28837 = 0.1e1 / t180 / t24815;
18193   t28840 = t679 * t28837 * t681 * t3094;
18194   t28843 = t679 * t9361 * t9295;
18195   t28850 = t679 * t7265 * t9257;
18196   t28852 = t9360 * t2269;
18197   t28854 = t679 * t28852 * t9262;
18198   t28857 = t679 * t2260 * t9266;
18199   t28876 = t679 * t26925 * t3083;
18200   t28877 = 0.50e2 / 0.243e3 * t28876;
18201   t28878 = 0.128e3 / 0.81e2 * t28840 - 0.26e2 / 0.27e2 * t28843 + 0.2e1 / 0.9e1 * t679 * t3093 * t2253 * t9 + 0.10e2 / 0.81e2 * t28850 + 0.130e3 / 0.81e2 * t28854 - 0.2e1 / 0.27e2 * t28857 - 0.5e1 / 0.81e2 * t679 * t2270 * t1057 * t7063 - 0.10e2 / 0.27e2 * t679 * t9261 * t3094 * t1975 + t679 * t682 * t7199 * t943 / 0.27e2 + t679 * t682 * t9342 * t454 / 0.9e1 - t28877;
18202   t28881 = t679 * t7211 * t3087;
18203   t28882 = 0.10e2 / 0.81e2 * t28881;
18204   t28884 = t679 * t7211 * t3101;
18205   t28885 = 0.10e2 / 0.81e2 * t28884;
18206   t28887 = t679 * t7215 * t3077;
18207   t28888 = 0.5e1 / 0.27e2 * t28887;
18208   t28890 = t9341 * t670 * t186;
18209   t28893 = t3074 * t2250 * t186;
18210   t28896 = t1055 * t7198 * t186;
18211   t28936 = t679 * t682 * t3075 * t1975 / 0.9e1 - t679 * t687 * t28779 / 0.18e2 - 0.440e3 / 0.729e3 * t679 * t26949 * t1057 * t7072 + t679 * t682 * t7226 * t943 / 0.27e2 + 0.40e2 / 0.243e3 * t679 * t7244 * t1056 * t7072 + 0.10e2 / 0.81e2 * t26831 - 0.2e1 / 0.27e2 * t26834 - 0.2e1 / 0.27e2 * t26837 + t26840 / 0.9e1 + 0.20e2 / 0.81e2 * t26846 + 0.10e2 / 0.81e2 * t26862;
18212   t28940 = t7243 * t670;
18213   t28941 = t9375 * t1970;
18214   t28949 = t187 * t678 * t3092;
18215   t28951 = t186 * t9 * t454;
18216   t28956 = t679 * t2260 * t9306;
18217   t28959 = t679 * t2264 * t9247;
18218   t28962 = t679 * t2260 * t9288;
18219   t28965 = t679 * t2264 * t9244;
18220   t28982 = t679 * t7215 * t3075;
18221   t28983 = 0.5e1 / 0.27e2 * t28982;
18222   t28987 = t26930 / 0.27e2 - 0.80e2 / 0.729e3 * t26945 - 0.80e2 / 0.243e3 * t26959 + 0.40e2 / 0.81e2 * t26963 + 0.10e2 / 0.81e2 * t26966 - 0.5e1 / 0.27e2 * t26969 - 0.5e1 / 0.27e2 * t26972 - 0.2e1 / 0.81e2 * t26975 + t26978 / 0.27e2 - t28983 - 0.10e2 / 0.27e2 * t679 * t9261 * t683;
18223   t28998 = t191 * t1055;
18224   t29008 = t681 * t3074;
18225   t29013 = t187 * t678 * t673;
18226   t29014 = t29013 * t9377;
18227   t29016 = t29013 * t9371;
18228   t29026 = t7243 * t192;
18229   t29030 = t9375 * t1975;
18230   t29042 = t679 * t7265 * t9270;
18231   t29045 = t679 * t2264 * t9249;
18232   t29047 = t3092 * t7243;
18233   t29057 = t679 * t26943 * t9277;
18234   t29060 = t679 * t2260 * t9281;
18235   t29062 = -0.5e1 / 0.27e2 * t9369 * t2269 * t2252 * t9376 + 0.40e2 / 0.81e2 * t9369 * t29026 * t27860 - 0.5e1 / 0.27e2 * t9369 * t9374 * t29030 - 0.5e1 / 0.27e2 * t9369 * t2269 * t2250 * t9376 + t9369 * t26796 * t3087 / 0.9e1 + 0.10e2 / 0.81e2 * t29042 + t29045 / 0.9e1 + 0.80e2 / 0.81e2 * t679 * t29047 * t3094 * t1970 - 0.5e1 / 0.27e2 * t679 * t2270 * t3075 * t1970 - 0.80e2 / 0.243e3 * t29057 - 0.2e1 / 0.27e2 * t29060;
18236   t29077 = t490 * t7100 * t3045;
18237   t29078 = 0.4e1 / 0.81e2 * t29077;
18238   t29080 = t490 * t28717 * t3049;
18239   t29087 = t490 * t3004 * t1047;
18240   t29094 = t38 * t24824 * t9409;
18241   t29108 = 0.2e1 / 0.27e2 * t28758 + t38 * t40 * t71 * (-0.50e2 / 0.243e3 * t26927 - 0.2e1 / 0.27e2 * t26865 - t26802 - 0.16e2 / 0.27e2 * t28773 + t29062 - 0.4e1 / 0.27e2 * t28956 - 0.80e2 / 0.729e3 * t28761 + t28959 / 0.9e1 + 0.20e2 / 0.81e2 * t29014 + 0.2e1 / 0.9e1 * t28965 - 0.4e1 / 0.27e2 * t29016 + 0.40e2 / 0.243e3 * t28767 + 0.3e1 * t9246 * t671 + t28987 + 0.3e1 * t28893 + t28896 + t28882 + t28936 - 0.2e1 / 0.27e2 * t28962 + t28770 / 0.9e1 - t679 * t687 * t28890 / 0.6e1 - t679 * t687 * t28893 / 0.6e1 - t679 * t687 * t28896 / 0.18e2 + 0.40e2 / 0.81e2 * t9369 * t28940 * t28941 - 0.5e1 / 0.27e2 * t9369 * t11542 * t7253 - 0.20e2 / 0.27e2 * t28949 * t9374 * t28951 - t679 * t687 * t28776 / 0.6e1 + t9369 * t9370 * t7257 / 0.9e1 - t9369 * t28998 * t7231 / 0.6e1 - 0.5e1 / 0.27e2 * t9369 * t11542 * t26792 + t9369 * t9370 * t7261 / 0.9e1 + 0.2e1 / 0.9e1 * t9369 * t29008 * t2275 + t9369 * t9370 * t7269 / 0.9e1 + 0.2e1 / 0.9e1 * t679 * t3093 * t671 - t679 * t687 * t28831 / 0.18e2 + 0.3e1 * t28776 + t28779 + t28878 + t28831 + 0.2e1 / 0.9e1 * t679 * t3093 * t2251 * t9 + t679 * t682 * t1056 * t7063 / 0.27e2 - t28888 + 0.3e1 * t28890 + t28885) / 0.9e1 - 0.28e2 / 0.81e2 * t26988 + 0.4e1 / 0.27e2 * t26991 - t490 * t643 * t7275 * t943 / 0.27e2 - t29078 - 0.98e2 / 0.81e2 * t29080 + 0.4e1 / 0.27e2 * t490 * t2183 * t3111 * t1970 + 0.28e2 / 0.729e3 * t29087 - 0.2e1 / 0.9e1 * t38 * t7096 * t513 * t691 + 0.14e2 / 0.27e2 * t29094 - t490 * t643 * t9381 * t454 / 0.9e1 - t490 * t643 * t1064 * t7063 / 0.27e2 - 0.2e1 / 0.9e1 * t490 * t3004 * t2289 * t9;
18242   t29111 = t38 * t7096 * t1065;
18243   t29126 = t490 * t27101 * t9392;
18244   t29135 = t38 * t485 * t9382;
18245   t29138 = t38 * t1939 * t3112;
18246   t29139 = 0.4e1 / 0.27e2 * t29138;
18247   t29152 = -t26994 / 0.27e2 - 0.28e2 / 0.243e3 * t29111 + 0.4e1 / 0.27e2 * t490 * t2183 * t9399 * t454 - 0.28e2 / 0.81e2 * t490 * t7071 * t3045 * t1970 - 0.56e2 / 0.81e2 * t490 * t28702 * t3049 * t1970 + 0.28e2 / 0.243e3 * t29126 + 0.6e1 * t2253 * t3033 + 0.2e1 * t7226 * t1044 + 0.6e1 * t2251 * t3033 - t29135 / 0.9e1 + t27008 + t29139 + 0.4e1 / 0.27e2 * t490 * t2183 * t3045 * t1975 + 0.16e2 / 0.27e2 * t490 * t9159 * t9417 * t454 + 0.4e1 / 0.27e2 * t490 * t2183 * t3056 * t1975;
18248   t29155 = t490 * t27087 * t3041;
18249   t29156 = 0.16e2 / 0.243e3 * t29155;
18250   t29158 = t490 * t7081 * t9221;
18251   t29161 = t490 * t7081 * t9225;
18252   t29164 = t490 * t28629 * t9229;
18253   t29180 = t490 * t9192 * t9417;
18254   t29186 = t166 * t2256 * t1040;
18255   t29189 = t3023 * t2260 * t3025;
18256   t29190 = 0.4e1 / 0.81e2 * t29189;
18257   t29192 = t3023 * t682 * t9334;
18258   t29195 = t3023 * t3093 * t9330;
18259   t29208 = t166 * t25522 * t3029;
18260   t29211 = t166 * t7207 * t191;
18261   t29214 = t3023 * t2270 * t9326;
18262   t29222 = t17 * t7243;
18263   t29229 = -0.2e1 / 0.27e2 * t3023 * t3024 * t28786 + 0.10e2 / 0.243e3 * t29186 + t29190 - 0.2e1 / 0.27e2 * t29192 + 0.28e2 / 0.27e2 * t29195 + 0.20e2 / 0.27e2 * t3023 * t26925 * t28802 - 0.4e1 / 0.9e1 * t166 * t2256 * t681 * t454 - 0.4e1 / 0.9e1 * t3023 * t7211 * t28809 + 0.50e2 / 0.27e2 * t29208 - 0.10e2 / 0.9e1 * t29211 + 0.10e2 / 0.81e2 * t29214 - 0.2e1 / 0.27e2 * t27025 + 0.4e1 / 0.81e2 * t27016 + 0.10e2 / 0.243e3 * t27022 - t27011 + 0.10e2 / 0.81e2 * t27013 - 0.2e1 / 0.27e2 * t27019 + t27028 / 0.27e2 - 0.80e2 / 0.243e3 * t3023 * t29222 * t28820 + 0.10e2 / 0.27e2 * t3023 * t9444 * t27860;
18264   t29237 = t29156 - 0.8e1 / 0.81e2 * t29158 - 0.4e1 / 0.81e2 * t29161 - 0.88e2 / 0.81e2 * t29164 - 0.4e1 / 0.81e2 * t27064 + 0.4e1 / 0.81e2 * t490 * t2183 * t1047 * t7063 + 0.8e1 / 0.27e2 * t490 * t9159 * t3049 * t1975 + 0.280e3 / 0.729e3 * t490 * t27105 * t1047 * t7072 + 0.22e2 / 0.27e2 * t29180 + 0.2e1 * t186 * t29229 + 0.16e2 / 0.243e3 * t27089 + 0.28e2 / 0.243e3 * t27092 - 0.8e1 / 0.81e2 * t27095 + 0.28e2 / 0.729e3 * t27103 - 0.4e1 / 0.81e2 * t27111;
18265   t29248 = t490 * t7100 * t3056;
18266   t29249 = 0.4e1 / 0.81e2 * t29248;
18267   t29251 = t490 * t2176 * t9399;
18268   t29258 = t490 * t2176 * t9424;
18269   t29265 = t490 * t7081 * t9428;
18270   t29271 = t7070 * t197;
18271   t29275 = t27114 / 0.81e2 + t27117 / 0.27e2 + t27120 / 0.27e2 - 0.4e1 / 0.81e2 * t27123 + 0.8e1 / 0.27e2 * t490 * t9159 * t660 + 0.6e1 * t7230 * t1045 - t29249 + t29251 / 0.27e2 + 0.6e1 * t671 * t9457 + 0.2e1 * t7199 * t1044 + t29258 / 0.27e2 - t490 * t643 * t3111 * t1975 / 0.9e1 - 0.4e1 / 0.81e2 * t29265 - 0.28e2 / 0.243e3 * t490 * t7071 * t1064 * t7072 - 0.28e2 / 0.81e2 * t5889 * t29271 * t27860;
18272   t29282 = 0.16e2 / 0.243e3 * t27173 + 0.16e2 / 0.243e3 * t27200 + 0.112e3 / 0.243e3 * t5889 * t28727 * t27860 - 0.1120e4 / 0.2187e4 * t490 * t27105 * t1036 * t7072 + t28737 - 0.4e1 / 0.81e2 * t28739 - 0.32e2 / 0.81e2 * t490 * t9159 * t644 - 0.64e2 / 0.81e2 * t490 * t9159 * t9209 * t454 - 0.16e2 / 0.81e2 * t490 * t2183 * t3012 * t1975 - 0.4e1 / 0.81e2 * t28753 - 0.112e3 / 0.729e3 * t27207 + 0.32e2 / 0.243e3 * t27210 - 0.4e1 / 0.27e2 * t38 * t40 * t71 * (t29108 + t29152 + t29237 + t29275);
18273   t29287 = t1034 * t27;
18274   t29324 = t162 * (t28644 + t28688 + t28724 + t29282) * t230 + 0.324e3 * t1862 * t29287 * t6971 + 0.3e1 * t637 * t9481 * t230 + t7013 * t1074 * t230 + 0.162e3 * t14550 * t7004 - 0.36e2 * t1855 * t8706 + t1075 * t7366 / 0.10e2 + 0.3e1 / 0.10e2 * t9152 * t732 + 0.3e1 * t2165 * t3121 * t230 + t6978 * t1034 + 0.3e1 * t474 * t9150 + 0.3e1 / 0.10e2 * t9482 * t732 - 0.6e1 * t478 * t2784 * t6963 + 0.171e3 / 0.1000e4 * t1075 * t7031 - 0.27e2 / 0.100e3 * t3122 * t2307 - 0.27e2 / 0.100e3 * t2989 * t2307 - 0.18e2 * t478 * t8705 * t1845;
18275   t29344 = -t25764 / 0.2e1 + t25767 / 0.3e1 + t25781 / 0.27e2 - 0.5e1 / 0.12e2 * t25784 - 0.5e1 / 0.27e2 * t27712 + t3132 * t2417 * t3141 * t2421 / 0.2e1 + 0.3e1 / 0.8e1 * t8 * t18 * p->cam_beta * (t28607 + t29324) + t3132 * t10252 * t9 * t2421 / 0.2e1 - t3132 * t3133 * t1082 * t7952 / 0.6e1 + 0.2e1 / 0.3e1 * t25787 + t27508 / 0.9e1 - 0.5e1 / 0.9e1 * t27511 - 0.3e1 / 0.2e1 * t8 * t2767 * t762;
18276   t29347 = t8 * t1832 * t3127;
18277   t29348 = t29347 / 0.4e1;
18278   t29353 = t2775 * t7937 * t10234;
18279   t29362 = t2754 * t673 * t247 * t2756;
18280   t29363 = t29362 / 0.9e1;
18281   t29373 = t1810 * t2255;
18282   t29378 = t8 * t10260 * t444;
18283   t29387 = -t29348 - t3132 * t11807 * t8540 / 0.2e1 + t29353 / 0.2e1 + t27518 / 0.8e1 - t2754 * t2755 * t944 * t7944 / 0.6e1 + t29363 + t3132 * t2417 * t8607 * t767 / 0.2e1 + 0.5e1 / 0.12e2 * t27521 + t2754 * t2417 * t2776 * t1827 / 0.2e1 - t8 * t29373 * t456 / 0.2e1 - 0.5e1 / 0.2e1 * t29378 - t3132 * t8649 * t8650 * t767 + t8636 * t8630 * t9 * t1812 / 0.3e1;
18284   t29393 = t2754 * t7937 * t10244;
18285   t29397 = t8 * t460 * t9491;
18286   t29400 = t2255 * t762;
18287   t29404 = t2754 * t8641 * t8611;
18288   t29407 = t5 * t7 * t24804;
18289   t29413 = t8636 * t8641 * t8637;
18290   t29420 = t3132 * t7937 * t8589;
18291   t29422 = t3092 * t247;
18292   t29424 = t2754 * t29422 * t8631;
18293   t29426 = -t8636 * t2417 * t1077 * t7979 / 0.9e1 + t29393 / 0.6e1 + t27525 / 0.9e1 + 0.3e1 / 0.8e1 * t29397 - t27531 / 0.8e1 - t2754 * t29400 * t8631 - t29404 / 0.6e1 - 0.5e1 / 0.27e2 * t29407 * t2755 * t944 * t7979 + t29413 / 0.9e1 - t8654 * t2417 * t3141 * t2406 / 0.3e1 + t29420 / 0.3e1 + 0.7e1 / 0.6e1 * t29424 + t27546;
18294   t29436 = t8 * t7972 * t2763;
18295   t29437 = t29436 / 0.3e1;
18296   t29440 = t2404 * t2255;
18297   t29446 = t5 * t7 * t25771;
18298   t29452 = t8654 * t8659 * t8655;
18299   t29458 = t27548 / 0.3e1 + t8636 * t8626 * t8637 / 0.3e1 + t27553 - 0.2e1 / 0.3e1 * t27556 + t27562 / 0.2e1 + t29437 + t27569 / 0.6e1 - t27579 / 0.6e1 + t8 * t29440 * t768 / 0.2e1 + t27583 / 0.2e1 - 0.5e1 / 0.27e2 * t29446 * t3133 * t1082 * t8551 + t29452 / 0.9e1 + 0.3e1 / 0.2e1 * t2416 * t2417 * t10227 * t767;
18300   t29460 = t8280 * t262;
18301   t29465 = t490 * t2436 * t9531;
18302   t29473 = t490 * t9504 * t3170;
18303   t29474 = t29473 / 0.405e3;
18304   t29476 = t490 * t3165 * t9516;
18305   t29483 = t490 * t7993 * t3178;
18306   t29484 = 0.8e1 / 0.243e3 * t29483;
18307   t29486 = t490 * t2436 * t9540;
18308   t29489 = t490 * t9526 * t9536;
18309   t29505 = t490 * t3165 * t9512;
18310   t29512 = 0.14e2 / 0.243e3 * t29465 + 0.140e3 / 0.729e3 * t490 * t778 * t24848 * t1127 * t8006 + t29474 - t29476 / 0.540e3 + t490 * t1109 * t3169 * t8016 / 0.540e3 + t29484 - 0.2e1 / 0.81e2 * t29486 + 0.44e2 / 0.81e2 * t29489 + 0.28e2 / 0.81e2 * t490 * t3182 * t8005 * t9 * t2443 - 0.4e1 / 0.27e2 * t490 * t3182 * t9535 * t2448 + 0.2e1 / 0.81e2 * t490 * t778 * t3177 * t8016 + t29505 / 0.405e3 + 0.7e1 / 0.1215e4 * t490 * t1109 * t8005 * t1122 * t8006;
18311   t29515 = t490 * t27776 * t288 * t3183;
18312   t29518 = t490 * t3182 * t1128;
18313   t29521 = t490 * t10384 * t1123;
18314   t29527 = t288 * t8005;
18315   t29528 = t3401 * t2448;
18316   t29543 = t38 * t24824 * t9544;
18317   t29545 = 0.49e2 / 0.81e2 * t29515 + 0.14e2 / 0.729e3 * t29518 + 0.7e1 / 0.1215e4 * t29521 - 0.4e1 / 0.27e2 * t490 * t3182 * t8011 - 0.2e1 / 0.81e2 * t24841 - 0.14e2 / 0.81e2 * t5889 * t29527 * t29528 - t5889 * t10378 * t1122 * t781 * t2448 / 0.135e3 + 0.14e2 / 0.729e3 * t24838 + t24844 / 0.162e3 + 0.14e2 / 0.243e3 * t24829 + 0.8e1 / 0.243e3 * t24832 - 0.2e1 / 0.81e2 * t24835 - 0.7e1 / 0.27e2 * t29543 + t24827;
18318   t29547 = my_piecewise3(t295, 0, t29512 + t29545);
18319   t29562 = t8059 * t1166;
18320   t29564 = t8029 * t1133;
18321   t29565 = t24907 * t29564;
18322   t29570 = t24961 * t1133 * t8121;
18323   t29572 = t3205 * t8124;
18324   t29592 = t3211 * t8121;
18325   t29594 = t15311 * t2518;
18326   t29596 = -0.19e2 / 0.8e1 * t29570 - 0.2e1 * t29572 + 0.3e1 / 0.4e1 * t2479 * t9549 * t820 + 0.3e1 / 0.4e1 * t9602 * t2521 + 0.3e1 / 0.8e1 * t8068 * t3188 * t2518 + t3211 * t8124 / 0.4e1 + t24945 * t1133 * t8121 / 0.16e2 - t8214 * t1166 - 0.3e1 * t2607 * t3260 - 0.3e1 * t864 * t9710 - 0.75e2 / 0.2e1 * t29592 + 0.45e2 / 0.2e1 * t29594;
18327   t29597 = t15314 * t8121;
18328   t29600 = t2472 * t9549 * t820;
18329   t29602 = t9591 * t2521;
18330   t29606 = 0.15e2 / 0.2e1 * t8058 * t3188 * t2518;
18331   t29607 = t8022 * t305;
18332   t29620 = t297 * t29547 * t304;
18333   t29621 = t5350 * t8143;
18334   t29624 = 0.15e2 / 0.2e1 * t9594 * t8143;
18335   t29627 = 0.85e2 / 0.4e1 * t29597 - 0.6e1 * t29600 - 0.6e1 * t29602 - t29606 - 0.4e1 * t29607 * t1133 - 0.12e2 * t9610 * t3188 - 0.12e2 * t3214 * t9549 + t793 * t29547 * t304 / 0.2e1 - 0.4e1 * t797 * t29547 - t29620 + 0.45e2 / 0.2e1 * t29621 - t29624 + 0.3e1 / 0.8e1 * t9607 * t8143;
18336   t29644 = t2479 * t787;
18337   t29647 = -0.24e2 * t29562 + 0.24e2 * t29565 + 0.6e1 * t9549 * t802 + 0.2e1 * t296 * (t29596 + t29627) + 0.2e1 * t1133 * t8080 + 0.2e1 * t29547 * t308 + 0.6e1 * t787 * t9622 + 0.2e1 * t8022 * t1145 + 0.6e1 * t2454 * t3222 + 0.6e1 * t3188 * t2491 - t789 * t29547 + 0.21e2 / 0.2e1 * t29644 * t9678;
18338   t29648 = t8035 * t2454;
18339   t29651 = t3195 * t2454;
18340   t29652 = t8039 * t29651;
18341   t29654 = t8022 * t1133;
18342   t29661 = t2459 * t8022;
18343   t29668 = t24889 * t8029;
18344   t29673 = t2460 * t3188;
18345   t29674 = t8039 * t29673;
18346   t29676 = t787 * t9549;
18347   t29679 = t2454 * t3188;
18348   t29682 = -0.3e1 / 0.4e1 * t29648 * t3257 - 0.18e2 * t29652 + 0.2e1 * t2464 * t29654 + 0.21e2 / 0.2e1 * t2480 * t3260 + 0.15e2 / 0.4e1 * t8069 * t1166 - t29661 * t1166 / 0.2e1 - 0.3e1 / 0.2e1 * t9562 * t3260 - 0.3e1 / 0.4e1 * t9565 * t3260 - t29668 * t1166 / 0.8e1 - 0.3e1 / 0.2e1 * t3192 * t9710 - 0.18e2 * t29674 + 0.6e1 * t2464 * t29676 + 0.6e1 * t2464 * t29679;
18349   t29688 = t8086 * t1154;
18350   t29703 = t8140 * t1133;
18351   t29706 = t8120 * t1133;
18352   t29709 = t8127 * t1133;
18353   t29723 = t29547 * t304;
18354   t29726 = t1160 * t8042;
18355   t29727 = 0.4608e4 * t29726;
18356   t29728 = 0.18e2 * t29703 * t8143 - 0.27e2 / 0.4e1 * t29706 * t8143 + 0.3e1 / 0.8e1 * t29709 * t8143 - 0.5e1 / 0.4e1 * t29570 - 0.5e1 * t29572 - 0.100e3 * t29592 + 0.60e2 * t29594 + 0.55e2 / 0.2e1 * t29597 - 0.15e2 * t29600 - 0.15e2 * t29602 - t29606 + 0.3e1 / 0.2e1 * t8112 * t3260 + 0.3e1 / 0.2e1 * t2515 * t9710 + t819 * t29723 / 0.2e1 + t29727;
18357   t29729 = t9670 * t793;
18358   t29734 = t3250 * t2479;
18359   t29739 = t1164 * t8068;
18360   t29745 = t1164 * t2459;
18361   t29748 = t3250 * t2472;
18362   t29751 = t1164 * t8058;
18363   t29754 = t3291 * t2454;
18364   t29755 = 0.2304e4 * t29754;
18365   t29756 = t1197 * t8022;
18366   t29757 = 0.768e3 * t29756;
18367   t29758 = t9802 * t787;
18368   t29759 = 0.2304e4 * t29758;
18369   t29760 = t3244 * t2460;
18370   t29761 = 0.4608e4 * t29760;
18371   t29765 = t29676 * t304;
18372   t29768 = 0.3e1 / 0.2e1 * t29729 * t820 + 0.3e1 / 0.2e1 * t9700 * t2521 + 0.3e1 / 0.4e1 * t29734 * t2518 + t3252 * t8124 / 0.2e1 + t29739 * t8121 / 0.8e1 + t25027 * t1166 / 0.2e1 - 0.10e2 * t29620 + 0.6e1 * t29745 * t8121 - 0.9e1 / 0.2e1 * t29748 * t2518 - 0.9e1 / 0.4e1 * t29751 * t8121 + t29755 + t29757 + t29759 + t29761 + 0.10e2 * t78 * t29547 * t299 + 0.3e1 / 0.4e1 * t2524 * t29765;
18373   t29772 = t3260 * t2460;
18374   t29775 = t29564 * t304;
18375   t29788 = t3260 * t2454;
18376   t29797 = t29654 * t304;
18377   t29806 = 0.18e2 * t25008 * t9682 + 0.18e2 * t8140 * t29772 + 0.75e2 / 0.4e1 * t25004 * t29775 - 0.9e1 / 0.2e1 * t9713 * t8143 + 0.3e1 / 0.4e1 * t9704 * t8143 - 0.9e1 / 0.2e1 * t25015 * t3257 - 0.9e1 / 0.2e1 * t8137 * t9678 - 0.27e2 / 0.4e1 * t25018 * t9682 - 0.9e1 / 0.2e1 * t2517 * t29788 + 0.3e1 / 0.4e1 * t2524 * t29788 + 0.3e1 / 0.8e1 * t8127 * t29772 + 0.3e1 / 0.4e1 * t8117 * t9678 + t2524 * t29797 / 0.4e1 + 0.3e1 / 0.8e1 * t25038 * t9682 + t25024 * t29775 / 0.16e2 + 0.3e1 / 0.4e1 * t25032 * t3257;
18378   t29824 = t296 * t29547;
18379   t29826 = 0.1536e4 * t29564;
18380   t29827 = t344 * t29547;
18381   t29828 = 0.256e3 * t29827;
18382   t29829 = 0.40e2 * t29654 + 0.120e3 * t29679 + 0.120e3 * t29676 + 0.40e2 * t29824 - t29826 - t29761 - t29727 - t29759 - t29755 - t29757 - t29828;
18383   t29836 = -0.9e1 * t8137 * t9675 + 0.3e1 / 0.2e1 * t8117 * t9675 - 0.9e1 / 0.2e1 * t2517 * t29765 - 0.30e2 * t2524 * t29775 - 0.27e2 / 0.4e1 * t8120 * t29772 - 0.9e1 / 0.4e1 * t25041 * t29775 - 0.3e1 / 0.2e1 * t2517 * t29797 + t29829 * t304 - 0.72e2 * t29654 - 0.216e3 * t29679 - 0.216e3 * t29676 - 0.72e2 * t29824 + 0.60e2 * t29621 - t29624 + t29828 + t29826;
18384   t29843 = t296 * t9717;
18385   t29852 = t8022 * t327;
18386   t29855 = t2454 * t828;
18387   t29860 = t787 * t2534;
18388   t29863 = 0.48e2 * t3240 * t8022 + 0.144e3 * t2460 * t3272 + 0.144e3 * t9649 * t2454 + 0.288e3 * t9636 * t3188 + 0.144e3 * t3233 * t9549 + 0.48e2 * t24992 * t1133 + 0.24e2 * t301 * (t29728 + t29768 + t29806 + t29836) + 0.144e3 * t10516 * t2454 + 0.144e3 * t29843 * t787 + 0.144e3 * t8092 * t3188 + 0.144e3 * t2501 * t9549 + 0.48e2 * t810 * t29547 + 0.48e2 * t29852 * t1133 + 0.144e3 * t29855 * t1133 + 0.144e3 * t9633 * t3188 + 0.144e3 * t29860 * t1133;
18389   t29870 = t8153 * t41;
18390   t29897 = t2460 * t857;
18391   t29906 = t301 * t9793;
18392   t29909 = 0.72e2 * t1133 * t25127 + 0.432e3 * t1133 * t29897 + 0.144e3 * t1215 * t8029 + 0.144e3 * t2574 * t29654 + 0.216e3 * t2577 * t9549 + 0.72e2 * t29547 * t850 + 0.216e3 * t29906 * t787 + 0.216e3 * t3188 * t8263 + 0.432e3 * t3188 * t9869 - 0.240e3 * t29562 + 0.2640e4 * t29565;
18393   t29910 = t296 * t3336;
18394   t29913 = t8252 * t1133;
18395   t29916 = t8255 * t787;
18396   t29921 = t8222 * t1133;
18397   t29924 = t8227 * t1133;
18398   t29927 = t8240 * t2454;
18399   t29955 = 0.1843200e7 * t1162 * t8042 + 0.1843200e7 * t1197 * t8029 + 0.153600e6 * t1199 * t8022 + 0.460800e6 * t2454 * t3295 + 0.1843200e7 * t2460 * t3248 + 0.30720e5 * t29547 * t346 + 0.460800e6 * t787 * t9810 - 0.34560e5 * t29564 + 0.448e3 * t29654 + 0.1344e4 * t29676 + 0.1344e4 * t29679 - 0.103680e6 * t29726 - 0.51840e5 * t29754 - 0.17280e5 * t29756 - 0.51840e5 * t29758 - 0.103680e6 * t29760 + 0.448e3 * t29824 - 0.5760e4 * t29827;
18400   t29958 = t1205 * t2459;
18401   t29961 = t3306 * t2472;
18402   t29964 = t1205 * t8058;
18403   t29967 = 0.432e3 * t29910 * t2460 + 0.18e2 * t29913 * t8143 + 0.21e2 * t29916 * t9678 - 0.36e2 * t15506 * t29651 - 0.27e2 / 0.4e1 * t29921 * t8143 + 0.3e1 / 0.8e1 * t29924 * t8143 - 0.3e1 / 0.2e1 * t29927 * t3257 + 0.24e2 * t344 * t29955 + 0.6e1 * t29958 * t8121 - 0.9e1 / 0.2e1 * t29961 * t2518 - 0.9e1 / 0.4e1 * t29964 * t8121;
18404   t29973 = t793 * t8029;
18405   t29994 = 0.240e3 * t29547 * t299 * t324 - 0.2e1 * t29547 * t302 * t863 - 0.2880e4 * t1166 * t29973 + 0.240e3 * t1218 * t8133 + 0.216e3 * t2454 * t9881 + 0.720e3 * t2529 * t3341 + 0.2160e4 * t29673 * t789 + 0.72e2 * t3325 * t8022 - 0.1440e4 * t800 * t9710 + 0.432e3 * t8042 * t9872 + 0.720e3 * t824 * t9766;
18406   t29999 = t9829 * t793;
18407   t30006 = t3306 * t2479;
18408   t30009 = t1205 * t8068;
18409   t30022 = -0.1440e4 * t3220 * t2521 - 0.480e3 * t1143 * t8124 + 0.3e1 / 0.2e1 * t29999 * t820 + 0.3e1 / 0.2e1 * t9773 * t2521 + t3308 * t8124 / 0.2e1 + 0.3e1 / 0.4e1 * t30006 * t2518 + t30009 * t8121 / 0.8e1 + t25115 * t1166 / 0.2e1 + 0.3e1 / 0.2e1 * t8243 * t3260 + 0.3e1 / 0.2e1 * t2564 * t9710 + t847 * t29723 / 0.2e1 + 0.432e3 * t10701 * t9575;
18410   t30046 = 0.432e3 * t25130 * t3195 + 0.864e3 * t8260 * t9572 + 0.432e3 * t8260 * t9575 + 0.432e3 * t2574 * t29676 + 0.432e3 * t2574 * t29679 + 0.3e1 / 0.8e1 * t25189 * t9682 + 0.3e1 / 0.8e1 * t8227 * t29772 + t25197 * t29775 / 0.16e2 - t2602 * t29797 - 0.3e1 * t2602 * t29788 + 0.75e2 / 0.4e1 * t25165 * t29775;
18411   t30072 = 0.21e2 * t8255 * t29772 + 0.15e2 / 0.2e1 * t25156 * t29775 + 0.12e2 * t863 * t9599 * t787 - 0.3e1 * t2602 * t29765 - 0.9e1 / 0.2e1 * t9775 * t8143 + 0.3e1 / 0.4e1 * t9745 * t8143 - 0.9e1 / 0.2e1 * t25159 * t3257 + 0.3e1 / 0.4e1 * t25186 * t3257 - 0.9e1 * t8249 * t9675 + 0.3e1 / 0.2e1 * t8219 * t9675 - 0.9e1 / 0.2e1 * t2566 * t29765 + 0.18e2 * t25176 * t9682;
18412   t30098 = 0.18e2 * t8252 * t29772 - 0.27e2 / 0.4e1 * t25162 * t9682 - 0.9e1 / 0.4e1 * t25192 * t29775 - 0.30e2 * t2571 * t29775 - 0.48e2 * t25183 * t29775 + 0.48e2 * t863 * t5350 * t8029 + 0.3e1 / 0.4e1 * t2571 * t29765 + 0.2160e4 * t9575 * t790 + 0.3e1 / 0.4e1 * t2571 * t29788 + t2571 * t29797 / 0.4e1 - 0.36e2 * t863 * t9591 * t2460;
18413   t30144 = -0.26542080e8 * t348 * t787 * t9549 - 0.103680e6 * t1197 * t8042 + 0.2424870e7 * t1199 * t8042 - 0.185794560e9 * t1201 * t8042 - 0.26542080e8 * t2454 * t9822 + 0.2424870e7 * t2460 * t3295 - 0.185794560e9 * t2460 * t3299 + 0.768e3 * t29547 * t301 - 0.2880e4 * t29547 * t319 - 0.1105920e7 * t29547 * t350 + 0.26943e5 * t29547 * t357 - 0.8847360e7 * t3301 * t8022 - 0.8e1 * t29547 + 0.4608e4 * t29673;
18414   t30172 = 0.1536e4 * t1160 * t8022 - 0.69120e5 * t1160 * t8029 - 0.11520e5 * t1162 * t8022 + 0.3233160e7 * t1162 * t8029 + 0.161658e6 * t1213 * t8022 - 0.371589120e9 * t1213 * t8029 + 0.4608e4 * t2454 * t3244 - 0.34560e5 * t2454 * t3248 + 0.484974e6 * t2454 * t3334 - 0.103680e6 * t2460 * t3291 + 0.4608e4 * t787 * t9657 - 0.34560e5 * t787 * t9659 + 0.484974e6 * t787 * t9791 + 0.4608e4 * t29651;
18415   t30179 = 0.3e1 / 0.4e1 * t8219 * t9678 - 0.9e1 / 0.2e1 * t2566 * t29788 - 0.27e2 / 0.4e1 * t8222 * t29772 - 0.3e1 / 0.2e1 * t2566 * t29797 - t25112 * t29775 / 0.4e1 + 0.12e2 * t863 * t3208 * t2454 + 0.4e1 * t863 * t1138 * t8022 - 0.9e1 / 0.2e1 * t8249 * t9678 + (t30144 + t30172) * t304 - 0.1080e4 * t29652 - 0.3e1 / 0.2e1 * t8240 * t29772 - 0.1080e4 * t29674;
18416   t30198 = t8005 * t400;
18417   t30211 = t490 * t8463 * t10191;
18418   t30214 = t490 * t8463 * t10195;
18419   t30216 = t8722 * t2442;
18420   t30218 = t490 * t30216 * t10199;
18421   t30221 = t490 * t8444 * t3378;
18422   t30222 = 0.16e2 / 0.243e3 * t30221;
18423   t30223 = t27776 * t780;
18424   t30225 = t490 * t30223 * t3383;
18425   t30227 = t2803 * t8005;
18426   t30236 = 0.112e3 / 0.243e3 * t5889 * t30198 * t29528 + 0.4e1 / 0.81e2 * t25308 + 0.16e2 / 0.243e3 * t25311 - 0.4e1 / 0.243e3 * t25318 - 0.4e1 / 0.81e2 * t25321 - 0.16e2 / 0.81e2 * t490 * t2630 * t3390 * t2448 + 0.32e2 / 0.243e3 * t30211 + 0.16e2 / 0.243e3 * t30214 - 0.352e3 / 0.243e3 * t30218 + t30222 - 0.392e3 / 0.243e3 * t30225 - 0.224e3 / 0.243e3 * t490 * t30227 * t3383 * t2443 - 0.1120e4 / 0.2187e4 * t490 * t25381 * t1246 * t8006;
18427   t30238 = t490 * t25373 * t3374;
18428   t30239 = 0.64e2 / 0.729e3 * t30238;
18429   t30241 = t490 * t25377 * t10203;
18430   t30266 = t38 * t1939 * t3489;
18431   t30267 = 0.16e2 / 0.81e2 * t30266;
18432   t30277 = t38 * t7096 * t1280;
18433   t30279 = -t30239 - 0.112e3 / 0.729e3 * t30241 + 0.112e3 / 0.243e3 * t490 * t8454 * t3378 * t2443 - 0.4e1 / 0.81e2 * t25324 - 0.16e2 / 0.81e2 * t490 * t2630 * t3378 * t2448 + 0.64e2 / 0.81e2 * t490 * t10145 * t10210 * t781 - 0.16e2 / 0.243e3 * t490 * t2630 * t1246 * t8016 + 0.32e2 / 0.81e2 * t490 * t10145 * t3383 * t2448 + 0.16e2 / 0.243e3 * t25339 - t30267 - 0.16e2 / 0.81e2 * t490 * t2630 * t9915 * t781 + 0.112e3 / 0.729e3 * t490 * t8454 * t1279 * t8006 + 0.112e3 / 0.729e3 * t30277;
18434   t30282 = t38 * t24824 * t10214;
18435   t30287 = t490 * t2623 * t9926;
18436   t30301 = t8005 * t395;
18437   t30318 = t3448 * t2697 * t388;
18438   t30321 = t1265 * t8317 * t388;
18439   t30323 = t10048 * t907 * t388;
18440   t30326 = t3448 * t2699 * t388;
18441   t30329 = t1265 * t8291 * t388;
18442   t30333 = t188 * t25522 * t10019;
18443   t30354 = t679 * t8329 * t3473;
18444   t30355 = 0.10e2 / 0.81e2 * t30354;
18445   t30357 = t679 * t8333 * t3451;
18446   t30358 = 0.5e1 / 0.27e2 * t30357;
18447   t30360 = t679 * t2704 * t9988;
18448   t30363 = t679 * t2704 * t9992;
18449   t30366 = t679 * t25535 * t1266;
18450   t30371 = -t679 * t919 * t30318 / 0.6e1 - t679 * t919 * t30321 / 0.18e2 - 0.2e1 / 0.9e1 * t679 * t3465 * t2698 * t9 + t30355 - t30358 - 0.4e1 / 0.27e2 * t30360 - 0.2e1 / 0.27e2 * t30363 + 0.40e2 / 0.243e3 * t30366 - 0.80e2 / 0.243e3 * t25533 + 0.40e2 / 0.81e2 * t25537 + 0.10e2 / 0.81e2 * t25540;
18451   t30379 = t679 * t25586 * t3457;
18452   t30380 = 0.50e2 / 0.243e3 * t30379;
18453   t30382 = t679 * t8329 * t3461;
18454   t30383 = 0.10e2 / 0.81e2 * t30382;
18455   t30385 = t679 * t8354 * t10002;
18456   t30387 = t9360 * t2713;
18457   t30389 = t679 * t30387 * t10007;
18458   t30392 = t679 * t2704 * t10011;
18459   t30395 = t679 * t10060 * t10015;
18460   t30410 = t29013 * t10103;
18461   t30412 = t29013 * t10097;
18462   t30417 = t913 * t3448;
18463   t30427 = t8365 * t390;
18464   t30431 = t8365 * t907;
18465   t30432 = t10101 * t2443;
18466   t30440 = t10101 * t2448;
18467   t30444 = t679 * t914 * t8318 * t1127 / 0.27e2 + 0.20e2 / 0.81e2 * t30410 - 0.4e1 / 0.27e2 * t30412 - 0.5e1 / 0.27e2 * t9369 * t10838 * t8375 + 0.2e1 / 0.9e1 * t9369 * t30417 * t2719 + t9369 * t10096 * t8379 / 0.9e1 + t9369 * t10096 * t8347 / 0.9e1 + 0.40e2 / 0.81e2 * t9369 * t30427 * t29528 + 0.40e2 / 0.81e2 * t9369 * t30431 * t30432 - 0.5e1 / 0.27e2 * t9369 * t2713 * t2697 * t10102 - 0.5e1 / 0.27e2 * t9369 * t10100 * t30440;
18468   t30448 = t388 * t9 * t781;
18469   t30458 = t679 * t2708 * t10049;
18470   t30461 = t179 * t1939 * t1261;
18471   t30464 = t3065 * t2623 * t3401;
18472   t30465 = 0.4e1 / 0.81e2 * t30464;
18473   t30467 = t3065 * t880 * t9951;
18474   t30470 = t3065 * t3382 * t9947;
18475   t30472 = t9 * t2443;
18476   t30479 = t9 * t2448;
18477   t30483 = t1127 * t8016;
18478   t30491 = t3065 * t2630 * t9943;
18479   t30493 = t180 * t8005;
18480   t30494 = t1127 * t8006;
18481   t30502 = t179 * t24824 * t3444;
18482   t30505 = t179 * t7096 * t290;
18483   t30510 = -0.16e2 / 0.243e3 * t30461 - t30465 + 0.4e1 / 0.27e2 * t30467 + 0.20e2 / 0.27e2 * t30470 + 0.16e2 / 0.27e2 * t3065 * t25373 * t30472 - 0.4e1 / 0.9e1 * t179 * t1939 * t782 - 0.4e1 / 0.9e1 * t3065 * t8444 * t30479 + 0.2e1 / 0.27e2 * t3065 * t3440 * t30483 - 0.16e2 / 0.243e3 * t25616 + 0.4e1 / 0.27e2 * t25619 - 0.4e1 / 0.81e2 * t25610 - 0.16e2 / 0.81e2 * t30491 + 0.56e2 / 0.243e3 * t3065 * t30493 * t30494 - 0.8e1 / 0.27e2 * t3065 * t10035 * t29528 + 0.64e2 / 0.27e2 * t30502 - 0.16e2 / 0.9e1 * t30505 + t25605 - 0.16e2 / 0.81e2 * t25607 + 0.4e1 / 0.27e2 * t25613 - 0.4e1 / 0.27e2 * t25622;
18484   t30511 = t30510 * t388;
18485   t30524 = t679 * t28837 * t913 * t3466;
18486   t30532 = t679 * t3465 * t1267;
18487   t30535 = t679 * t8333 * t3449;
18488   t30536 = 0.5e1 / 0.27e2 * t30535;
18489   t30537 = -0.2e1 / 0.81e2 * t25594 + t25597 / 0.27e2 + t25648 / 0.27e2 - 0.80e2 / 0.729e3 * t25652 + 0.10e2 / 0.27e2 * t679 * t10006 * t915 - 0.128e3 / 0.81e2 * t30524 + 0.10e2 / 0.81e2 * t25689 - 0.2e1 / 0.27e2 * t25700 - t679 * t919 * t30511 / 0.18e2 - 0.80e2 / 0.729e3 * t30532 - t30536;
18490   t30542 = t389 * t1265;
18491   t30557 = t3092 * t8365;
18492   t30578 = t679 * t2708 * t10065;
18493   t30584 = t679 * t2704 * t10069;
18494   t30591 = t679 * t8354 * t10073;
18495   t30594 = t679 * t25650 * t10077;
18496   t30601 = t679 * t2708 * t10082;
18497   t30604 = t679 * t2708 * t10087;
18498   t30614 = t30578 / 0.9e1 - t679 * t919 * t30329 / 0.18e2 - 0.2e1 / 0.27e2 * t30584 + t679 * t914 * t8292 * t1127 / 0.27e2 + 0.10e2 / 0.81e2 * t30591 - 0.80e2 / 0.243e3 * t30594 - 0.440e3 / 0.729e3 * t679 * t25656 * t1267 * t8006 + 0.2e1 / 0.9e1 * t30601 + t30604 / 0.9e1 + t679 * t914 * t3449 * t2448 / 0.9e1 + t679 * t914 * t1266 * t8016 / 0.27e2;
18499   t30631 = t490 * t9922 * t10168;
18500   t30636 = t490 * t8444 * t3432;
18501   t30637 = 0.4e1 / 0.81e2 * t30636;
18502   t30638 = -0.28e2 / 0.81e2 * t5889 * t30301 * t29528 + 0.6e1 * t908 * t1254 * t2697 + 0.4e1 / 0.27e2 * t25391 + 0.6e1 * t908 * t9958 + 0.6e1 * t2698 * t3409 + 0.2e1 * t8318 * t1254 + t25397 / 0.81e2 - 0.4e1 / 0.81e2 * t25400 + t38 * t40 * t290 * (-0.50e2 / 0.243e3 * t25588 + 0.20e2 / 0.81e2 * t25582 + t25569 / 0.9e1 - 0.2e1 / 0.27e2 * t25566 + 0.10e2 / 0.81e2 * t25560 - 0.2e1 / 0.27e2 * t25563 - 0.5e1 / 0.27e2 * t25543 - t25525 + t30614 + t30537 + t30511 + t30458 / 0.9e1 + t30444 + 0.26e2 / 0.27e2 * t30395 - 0.130e3 / 0.81e2 * t30389 - 0.2e1 / 0.27e2 * t30392 + 0.10e2 / 0.81e2 * t30385 + t30383 - t30380 + t30371 + 0.16e2 / 0.27e2 * t30333 + 0.3e1 * t30326 + t30329 + t30321 + 0.3e1 * t30323 + 0.3e1 * t30318 - 0.5e1 / 0.27e2 * t25591 + 0.3e1 * t3450 * t2698 + 0.20e2 / 0.27e2 * t28949 * t10100 * t30448 + t9369 * t10096 * t8383 / 0.9e1 - t9369 * t30542 * t8289 / 0.6e1 - 0.5e1 / 0.27e2 * t9369 * t10838 * t25518 - t679 * t919 * t30323 / 0.6e1 - t679 * t919 * t30326 / 0.6e1 - 0.2e1 / 0.9e1 * t679 * t3465 * t908 + t679 * t914 * t10049 * t781 / 0.9e1 + 0.40e2 / 0.243e3 * t679 * t8366 * t1266 * t8006 - 0.5e1 / 0.81e2 * t679 * t2714 * t1267 * t8016 + 0.10e2 / 0.27e2 * t679 * t10006 * t3466 * t2448 - 0.5e1 / 0.27e2 * t9369 * t2713 * t2699 * t10102 + t9369 * t913 * t907 * t10011 / 0.9e1 - 0.80e2 / 0.81e2 * t679 * t30557 * t3466 * t2443 - 0.2e1 / 0.9e1 * t679 * t3465 * t2700 * t9 - 0.5e1 / 0.27e2 * t679 * t2714 * t3449 * t2443) / 0.9e1 - t490 * t880 * t3483 * t2448 / 0.9e1 - t490 * t880 * t10108 * t781 / 0.9e1 - 0.22e2 / 0.27e2 * t30631 + 0.6e1 * t2700 * t3409 - t30637;
18503   t30646 = t490 * t8444 * t3421;
18504   t30647 = 0.4e1 / 0.81e2 * t30646;
18505   t30662 = t38 * t24824 * t10113;
18506   t30665 = t38 * t7096 * t1275;
18507   t30668 = t38 * t485 * t10109;
18508   t30671 = t490 * t8463 * t9961;
18509   t30679 = 0.2e1 / 0.9e1 * t490 * t3382 * t2733 * t9 - 0.8e1 / 0.81e2 * t25427 + 0.28e2 / 0.729e3 * t25430 - t30647 - 0.28e2 / 0.81e2 * t25441 - t490 * t880 * t8388 * t1127 / 0.27e2 - t490 * t880 * t1274 * t8016 / 0.27e2 + 0.2e1 / 0.9e1 * t38 * t7096 * t780 * t923 - 0.14e2 / 0.27e2 * t30662 - 0.28e2 / 0.243e3 * t30665 - t30668 / 0.9e1 - 0.4e1 / 0.81e2 * t30671 - 0.28e2 / 0.243e3 * t490 * t8454 * t1274 * t8006 - 0.4e1 / 0.81e2 * t25453 + t25456 / 0.27e2;
18510   t30707 = t490 * t8463 * t10137;
18511   t30710 = t490 * t8463 * t10141;
18512   t30713 = t490 * t30216 * t10146;
18513   t30722 = t490 * t2623 * t10125;
18514   t30725 = t490 * t2623 * t10150;
18515   t30728 = -0.4e1 / 0.81e2 * t25463 + 0.4e1 / 0.27e2 * t490 * t2630 * t3421 * t2448 - 0.16e2 / 0.27e2 * t490 * t10145 * t10168 * t781 + 0.4e1 / 0.81e2 * t490 * t2630 * t1257 * t8016 - 0.8e1 / 0.27e2 * t490 * t10145 * t3425 * t2448 - 0.28e2 / 0.81e2 * t490 * t8454 * t3421 * t2443 + 0.56e2 / 0.81e2 * t490 * t30227 * t3425 * t2443 - 0.8e1 / 0.81e2 * t30707 - 0.4e1 / 0.81e2 * t30710 + 0.88e2 / 0.81e2 * t30713 + 0.4e1 / 0.27e2 * t490 * t2630 * t10125 * t781 + 0.2e1 * t8292 * t1254 + t30722 / 0.27e2 + t30725 / 0.27e2 - t25714 / 0.27e2;
18516   t30730 = t490 * t25373 * t3417;
18517   t30731 = 0.16e2 / 0.243e3 * t30730;
18518   t30734 = t166 * t2256 * t1250;
18519   t30737 = t3023 * t2704 * t3401;
18520   t30738 = 0.4e1 / 0.81e2 * t30737;
18521   t30740 = t3023 * t914 * t9951;
18522   t30743 = t3023 * t3465 * t9947;
18523   t30759 = t3023 * t2714 * t9943;
18524   t30761 = t17 * t8365;
18525   t30775 = t166 * t25522 * t3405;
18526   t30778 = t166 * t7207 * t389;
18527   t30780 = 0.10e2 / 0.243e3 * t30734 + t30738 - 0.2e1 / 0.27e2 * t30740 - 0.28e2 / 0.27e2 * t30743 - 0.20e2 / 0.27e2 * t3023 * t25586 * t30472 + 0.4e1 / 0.9e1 * t166 * t2256 * t913 * t781 + 0.4e1 / 0.9e1 * t3023 * t8329 * t30479 - 0.2e1 / 0.27e2 * t3023 * t3400 * t30483 + 0.10e2 / 0.81e2 * t30759 - 0.80e2 / 0.243e3 * t3023 * t30761 * t30494 + 0.10e2 / 0.27e2 * t3023 * t9942 * t29528 - t25471 + 0.10e2 / 0.81e2 * t25473 - 0.2e1 / 0.27e2 * t25479 + t25488 / 0.27e2 + 0.4e1 / 0.81e2 * t25476 + 0.10e2 / 0.243e3 * t25482 - 0.2e1 / 0.27e2 * t25485 - 0.50e2 / 0.27e2 * t30775 + 0.10e2 / 0.9e1 * t30778;
18528   t30796 = t490 * t2623 * t10164;
18529   t30799 = t490 * t30223 * t3425;
18530   t30802 = t490 * t3382 * t1257;
18531   t30805 = t490 * t25377 * t10130;
18532   t30812 = t38 * t1939 * t3484;
18533   t30813 = 0.4e1 / 0.27e2 * t30812;
18534   t30815 = t30731 + t25717 / 0.27e2 + 0.2e1 * t388 * t30780 + 0.4e1 / 0.27e2 * t490 * t2630 * t3432 * t2448 + 0.16e2 / 0.243e3 * t25726 - 0.8e1 / 0.27e2 * t490 * t10145 * t897 + 0.4e1 / 0.27e2 * t490 * t2630 * t3483 * t2443 + 0.2e1 / 0.27e2 * t30796 + 0.98e2 / 0.81e2 * t30799 + 0.28e2 / 0.729e3 * t30802 + t25730 + 0.28e2 / 0.243e3 * t30805 + 0.280e3 / 0.729e3 * t490 * t25381 * t1257 * t8006 + t30813 + 0.28e2 / 0.243e3 * t25732;
18535   t30823 = t38 * t485 * t10174;
18536   t30825 = 0.56e2 / 0.81e2 * t30282 - t25347 - 0.16e2 / 0.81e2 * t25349 + 0.112e3 / 0.243e3 * t25353 - 0.8e1 / 0.81e2 * t30287 - 0.112e3 / 0.729e3 * t25360 + 0.32e2 / 0.243e3 * t25363 - 0.64e2 / 0.729e3 * t25375 - 0.112e3 / 0.2187e4 * t25379 + 0.4e1 / 0.27e2 * t490 * t880 * t3488 * t2448 - 0.8e1 / 0.27e2 * t490 * t3382 * t2738 * t9 - 0.4e1 / 0.27e2 * t38 * t40 * t290 * (t30638 + t30679 + t30728 + t30815) + 0.4e1 / 0.27e2 * t30823;
18537   t30827 = t490 * t2623 * t9915;
18538   t30830 = t490 * t8463 * t9911;
18539   t30844 = t490 * t2623 * t9904;
18540   t30847 = t490 * t8444 * t3390;
18541   t30848 = 0.16e2 / 0.243e3 * t30847;
18542   t30850 = t490 * t9922 * t10210;
18543   t30858 = t490 * t3382 * t1246;
18544   t30868 = -0.4e1 / 0.81e2 * t30827 + 0.16e2 / 0.243e3 * t30830 - 0.8e1 / 0.27e2 * t38 * t7096 * t780 * t928 + 0.4e1 / 0.81e2 * t490 * t880 * t8467 * t1127 + 0.32e2 / 0.81e2 * t490 * t10145 * t881 - 0.4e1 / 0.81e2 * t30844 + t30848 + 0.88e2 / 0.81e2 * t30850 + 0.4e1 / 0.27e2 * t490 * t880 * t10173 * t781 + 0.16e2 / 0.243e3 * t25741 - 0.112e3 / 0.2187e4 * t30858 + 0.4e1 / 0.81e2 * t490 * t880 * t1279 * t8016 - 0.16e2 / 0.81e2 * t490 * t2630 * t3488 * t2443;
18545   t30886 = t2754 * t189 * t762 * t2756;
18546   t30890 = t8 * t8622 * t8615;
18547   t30894 = t8 * t15 * t9360 * t2768;
18548   t30897 = t8 * t8556 * t1078;
18549   t30900 = t8 * t3145 * t1083;
18550   t30911 = t2416 * t7937 * t10248;
18551   t30917 = 0.3e1 / 0.8e1 * t8 * t254 * p->cam_beta * (t1097 * t8280 - 0.6e1 * t1101 * t29460 * t1091 + t269 * ((-0.8e1 / 0.3e1 * t29547 * t311 - 0.8e1 * t9549 * t805 - 0.8e1 * t3188 * t2494 - 0.8e1 / 0.3e1 * t1133 * t8083 - 0.8e1 / 0.3e1 * t8022 * t1148 - 0.8e1 * t2454 * t3225 - 0.8e1 * t787 * t9625 - 0.8e1 / 0.3e1 * t296 * (t29647 + t29682)) * t316 - t29688 * t1122 / 0.5e1 + 0.35e2 / 0.81e2 * t29863 * t336 * t340 + 0.35e2 / 0.81e2 * t8152 * t1184 * t340 - 0.14e2 / 0.81e2 * t29870 * t1192 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t29547 * t367 + 0.24e2 / 0.7e1 * t9549 * t867 + 0.24e2 / 0.7e1 * t3188 * t2610 + 0.8e1 / 0.7e1 * t1133 * t8272 + 0.8e1 / 0.7e1 * t8022 * t1224 + 0.24e2 / 0.7e1 * t2454 * t3353 + 0.24e2 / 0.7e1 * t787 * t9888 + 0.8e1 / 0.7e1 * t296 * (t29909 + t29967 + t29994 + t30022 + t30046 + t30072 + t30098 + t30179)) * t41 * t45 * t373 - 0.70212281481481481483e-1 * t8277 * t1232 - 0.10531842222222222222e-1 * t8277 * t1236) + t1243 * t8517 * t428 + t378 * (t30236 + t30279 + t30825 + t30868) * t428 + t8518 * t1315 / 0.10e2) - t2754 * t17 * t2399 * t2756 / 0.2e1 - t30886 / 0.3e1 - 0.5e1 / 0.9e1 * t27594 + 0.7e1 / 0.2e1 * t30890 - 0.25e2 / 0.6e1 * t30894 + 0.5e1 / 0.36e2 * t30897 - 0.5e1 / 0.27e2 * t30900 + t2416 * t2417 * t8520 * t1082 / 0.2e1 + t3132 * t2417 * t3498 * t2406 / 0.2e1 + t30911 - 0.3e1 / 0.2e1 * t2416 * t8649 * t2746 * t9 - t27606 / 0.6e1;
18552   t30920 = t8 * t772 * t10228;
18553   t30923 = t8 * t1817 * t8645;
18554   t30926 = t8 * t8622 * t247;
18555   t30933 = t8 * t7960 * t8692;
18556   t30940 = t2775 * t27554 * t2776;
18557   t30941 = t30940 / 0.3e1;
18558   t30943 = t2416 * t27554 * t3141;
18559   t30944 = t30943 / 0.3e1;
18560   t30958 = t8 * t6949 * t1345;
18561   t30961 = 0.3e1 / 0.8e1 * t30920 - t30923 / 0.2e1 + 0.5e1 / 0.2e1 * t30926 - t8 * t766 * t1345 * t7952 / 0.2e1 - t30933 / 0.6e1 + t8 * t8550 * t1345 * t8551 / 0.9e1 - t30941 - t30944 - t2754 * t8630 * t9 * t1827 / 0.2e1 + 0.3e1 / 0.2e1 * t2775 * t2417 * t3126 * t1827 - 0.3e1 / 0.2e1 * t8 * t2767 * t2399 * t9 - 0.5e1 / 0.36e2 * t30958 - t27613 / 0.2e1;
18562   t30967 = t8 * t2426 * t3499;
18563   t30968 = t30967 / 0.4e1;
18564   t30973 = t3092 * t444;
18565   t30975 = t3132 * t30973 * t10253;
18566   t30978 = t3132 * t8659 * t8603;
18567   t30981 = t8 * t8544 * t3152;
18568   t30982 = t30981 / 0.3e1;
18569   t30988 = t2775 * t7937 * t8594;
18570   t30990 = t2416 * t7937 * t8607;
18571   t31002 = t3132 * t673 * t444 * t3134;
18572   t31003 = t31002 / 0.9e1;
18573   t31004 = -t2754 * t8626 * t8611 / 0.2e1 - t27616 / 0.6e1 - t30968 - t8654 * t10252 * t9 * t2406 / 0.3e1 - 0.7e1 / 0.6e1 * t30975 - t30978 / 0.6e1 + t30982 + t2754 * t2417 * t3126 * t1812 / 0.2e1 + t30988 + t30990 / 0.2e1 + 0.3e1 / 0.2e1 * t2416 * t2417 * t3498 * t2421 + t2775 * t2417 * t1077 * t7944 / 0.2e1 + t31003;
18574   t31011 = -t8530 + t8535 + t8539 - t8543 + t8546 + t8555 + 0.3e1 / 0.2e1 * t10236 - t13140 - t27634 + t10242 + t10246 / 0.2e1 + 0.3e1 * t10250 + t10 * (t27706 + t29344 + t29387 + t29426 + t29458 + t30917 + t30961 + t31004) - 0.3e1 / 0.4e1 * t8561 + t10255 + t13145 - 0.7e1 / 0.2e1 * t10262;
18575   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
18576     v4rho4[1] = t27645 + t27656 + t27667 + t31011;
18577 
18578   t31026 = -t24763 - t8587 + 0.2e1 / 0.3e1 * t10272 + 0.2e1 / 0.3e1 * t8591 - t10275 / 0.3e1 - t10279 / 0.3e1 - t10285 - 0.2e1 / 0.3e1 * t10288 + t6954 / 0.2e1 - t10293 + t10297 - t10300 / 0.9e1 - t10303 / 0.4e1 + 0.2e1 * t8596 + 0.2e1 / 0.3e1 * t8598 + 0.4e1 / 0.3e1 * t8601 - t8605 / 0.3e1 + t8609 - t8613 / 0.3e1 - t10309;
18579   t31047 = t2416 * t7937 * t10315;
18580   t31055 = t8 * t27523 * t3780;
18581   t31064 = t2775 * t27554 * t3513;
18582   t31070 = t8 * t2426 * t4283;
18583   t31074 = -t24789 / 0.12e2 + 0.2e1 * t2775 * t8649 * t3126 * t9 + t24797 / 0.12e2 - t3132 * t3133 * t3788 * t2421 / 0.6e1 + t31047 / 0.3e1 + 0.41e2 / 0.9e1 * t27685 - 0.2e1 / 0.3e1 * t27693 + t2775 * t2417 * t11768 * t455 + t31055 / 0.27e2 + t8 * t29440 * t1083 / 0.3e1 - t8 * t29373 * t945 / 0.3e1 - 0.2e1 / 0.9e1 * t31064 + t2416 * t2417 * t936 * t11083 + t31070 / 0.12e2 - t27701 / 0.3e1 + t25767 / 0.9e1;
18584   t31084 = t3132 * t30973 * t11801;
18585   t31092 = t2775 * t27691 * t11080;
18586   t31095 = t2754 * t29422 * t11781;
18587   t31099 = t9 * t9;
18588   t31109 = -0.5e1 / 0.18e2 * t25784 - 0.10e2 / 0.27e2 * t27712 + 0.2e1 / 0.9e1 * t25787 + t27508 / 0.27e2 - 0.10e2 / 0.27e2 * t27511 - 0.2e1 / 0.3e1 * t2754 * t29400 * t11781 - 0.7e1 / 0.9e1 * t31084 - t29347 / 0.3e1 + t3132 * t2417 * t2746 * t3779 / 0.6e1 - 0.7e1 / 0.3e1 * t31092 + 0.7e1 / 0.9e1 * t31095 + t29353 / 0.3e1 - t8 * t1810 * t28837 * t247 * t31099 / 0.3e1 + 0.4e1 / 0.27e2 * t29362 + 0.5e1 / 0.18e2 * t27521 - t2754 * t8626 * t11091 / 0.3e1;
18589   t31119 = t3132 * t8659 * t11793;
18590   t31125 = t8 * t460 * t11769;
18591   t31136 = t2754 * t8641 * t11091;
18592   t31143 = t2255 * t1345;
18593   t31151 = t2775 * t7937 * t11071;
18594   t31157 = -t3132 * t11807 * t8603 / 0.3e1 + t8654 * t3133 * t3788 * t2406 / 0.9e1 - t31119 / 0.9e1 + t29378 / 0.3e1 + t29393 / 0.9e1 + t27525 / 0.27e2 + t31125 / 0.4e1 + t2416 * t2417 * t2746 * t3788 / 0.2e1 + t8636 * t2755 * t3516 * t1812 / 0.9e1 - t31136 / 0.9e1 + 0.2e1 / 0.3e1 * t3132 * t2417 * t11774 * t767 + t29397 / 0.4e1 + 0.2e1 / 0.3e1 * t3132 * t31143 * t10253 + t2416 * t2417 * t11065 * t767 + 0.2e1 / 0.3e1 * t31151 - 0.5e1 / 0.27e2 * t29446 * t3133 * t3779 * t2406;
18595   t31159 = t8654 * t8659 * t11789;
18596   t31170 = t8 * t10260 * t11088;
18597   t31178 = t8636 * t8641 * t11074;
18598   t31182 = t8 * t8544 * t3789;
18599   t31185 = t8 * t2411 * t10307;
18600   t31188 = t8 * t7972 * t3517;
18601   t31191 = 0.2e1 / 0.27e2 * t31159 - t29404 / 0.9e1 + 0.2e1 / 0.27e2 * t29413 + 0.2e1 / 0.9e1 * t29420 - 0.2e1 / 0.9e1 * t29424 + t27546 + t2754 * t2417 * t3513 * t1827 / 0.3e1 - 0.7e1 / 0.3e1 * t31170 + t27548 / 0.9e1 - 0.5e1 / 0.27e2 * t29407 * t2755 * t3507 * t1812 + 0.2e1 / 0.27e2 * t31178 + t27553 - 0.2e1 / 0.9e1 * t27556 + t31182 / 0.9e1 - t31185 / 0.3e1 + t31188 / 0.9e1 + 0.4e1 / 0.9e1 * t29436;
18602   t31195 = t8 * t8544 * t3785;
18603   t31198 = t8 * t1817 * t10283;
18604   t31206 = t2416 * t7937 * t11774;
18605   t31220 = t8 * t772 * t11066;
18606   t31225 = t8 * t1817 * t10291;
18607   t31231 = 0.2e1 / 0.9e1 * t31195 - t31198 / 0.3e1 - t8 * t2405 * t4283 * t2406 / 0.6e1 + 0.2e1 / 0.27e2 * t29452 + 0.2e1 / 0.3e1 * t31206 - t3132 * t3133 * t11083 * t767 / 0.3e1 - t8 * t450 * t762 * t10282 - t8 * t450 * t2399 * t3516 / 0.2e1 + t31220 / 0.4e1 - 0.2e1 / 0.9e1 * t30886 - 0.10e2 / 0.27e2 * t27594 - t31225 / 0.3e1 - 0.2e1 / 0.3e1 * t30890 - 0.41e2 / 0.9e1 * t30894 + 0.5e1 / 0.18e2 * t30897 - 0.10e2 / 0.27e2 * t30900;
18608   t31242 = t2754 * t7937 * t10270;
18609   t31254 = t2775 * t7937 * t10295;
18610   t31260 = t8 * t2411 * t11084;
18611   t31267 = 0.2e1 / 0.3e1 * t2754 * t2417 * t11071 * t455 + 0.2e1 / 0.3e1 * t30911 - 0.2e1 / 0.9e1 * t8636 * t2417 * t3513 * t1812 + 0.2e1 / 0.9e1 * t31242 + t30920 / 0.4e1 + 0.2e1 / 0.3e1 * t2754 * t8649 * t11080 * t455 + t8 * t3145 * t1345 - t30923 / 0.3e1 - t30926 / 0.3e1 + t31254 / 0.3e1 - t30933 / 0.9e1 - 0.4e1 / 0.9e1 * t30940 - 0.4e1 / 0.9e1 * t30943 - t31260 / 0.3e1 - 0.5e1 / 0.18e2 * t30958 - t8 * t766 * t4283 * t2421 / 0.2e1;
18612   t31302 = t2618 * t3818;
18613   t31306 = t9900 * t262;
18614   t31310 = t2618 * t261;
18615   t31329 = t2497 * t3869;
18616   t31334 = t9628 * t1154;
18617   t31348 = t490 * t2436 * t10413;
18618   t31350 = 0.28e2 / 0.729e3 * t29465 + 0.4e1 / 0.1215e4 * t29473 - t29476 / 0.810e3 + 0.32e2 / 0.729e3 * t29483 - 0.4e1 / 0.243e3 * t29486 + 0.16e2 / 0.243e3 * t29489 + 0.2e1 / 0.1215e4 * t29505 + 0.142e3 / 0.243e3 * t29515 + 0.28e2 / 0.729e3 * t29518 + 0.14e2 / 0.1215e4 * t29521 - 0.4e1 / 0.243e3 * t31348;
18619   t31364 = t8722 * t1108;
18620   t31366 = t490 * t31364 * t10385;
18621   t31369 = t490 * t3165 * t10393;
18622   t31375 = t2442 * t3837;
18623   t31381 = t490 * t9504 * t3887;
18624   t31384 = t490 * t2436 * t10401;
18625   t31387 = t490 * t9526 * t10405;
18626   t31393 = 0.4e1 / 0.81e2 * t490 * t778 * t2442 * t10419 * t781 + 0.2e1 / 0.81e2 * t490 * t778 * t10412 * t2448 - 0.11e2 / 0.5400e4 * t490 * t3882 * t10370 * t2448 + 0.11e2 / 0.405e3 * t31366 - t31369 / 0.810e3 + t490 * t1109 * t10392 * t2448 / 0.540e3 + 0.11e2 / 0.4050e4 * t490 * t3882 * t31375 * t2443 + 0.2e1 / 0.1215e4 * t31381 + 0.28e2 / 0.729e3 * t31384 + 0.88e2 / 0.243e3 * t31387 - 0.14e2 / 0.243e3 * t490 * t778 * t10400 * t2448;
18627   t31396 = t490 * t7993 * t3896;
18628   t31402 = t490 * t7993 * t3901;
18629   t31408 = t490 * t9504 * t3891;
18630   t31410 = t7059 * t451;
18631   t31412 = 0.1e1 / t17 / t31410;
18632   t31419 = t490 * t2436 * t10420;
18633   t31421 = t1938 * t3881;
18634   t31423 = t490 * t31421 * t3883;
18635   t31428 = 0.8e1 / 0.729e3 * t31396 - 0.8e1 / 0.81e2 * t490 * t3182 * t3177 - 0.2e1 / 0.243e3 * t31402 - t490 * t10384 * t3169 / 0.135e3 - t31408 / 0.405e3 + 0.16e2 / 0.81e2 * t490 * t31412 * t288 * t2442 * t31099 + t31419 / 0.81e2 + 0.11e2 / 0.4050e4 * t31423 + 0.28e2 / 0.729e3 * t24829 + 0.8e1 / 0.729e3 * t24832 - 0.2e1 / 0.243e3 * t24835;
18636   t31430 = t18405 * t10381;
18637   t31441 = t3401 * t9;
18638   t31445 = t1108 * t8005;
18639   t31455 = t2442 * t3853;
18640   t31466 = t490 * t10366 * t10371;
18641   t31468 = -0.2e1 / 0.81e2 * t29543 + 0.4e1 / 0.1215e4 * t31430 - 0.2e1 / 0.405e3 * t5889 * t10378 * t10379 * t2448 + 0.8e1 / 0.405e3 * t27853 * t10378 * t1122 * t9 * t781 + 0.112e3 / 0.243e3 * t27853 * t29527 * t31441 + 0.14e2 / 0.1215e4 * t5889 * t31445 * t10379 * t2443 - 0.14e2 / 0.243e3 * t490 * t778 * t8005 * t3900 * t2443 - t490 * t1109 * t31455 * t2443 / 0.405e3 + 0.140e3 / 0.729e3 * t490 * t778 * t24848 * t3895 * t2443 + 0.11e2 / 0.8100e4 * t31466 + t24827;
18642   t31471 = my_piecewise3(t295, 0, t31350 + t31393 + t31428 + t31468);
18643   t31488 = t3195 * t3188;
18644   t31489 = t8039 * t31488;
18645   t31494 = t3188 * t3188;
18646   t31500 = t24889 * t3911;
18647   t31503 = t2454 * t3911;
18648   t31504 = t8039 * t31503;
18649   t31506 = t1133 * t9549;
18650   t31514 = t787 * t10425;
18651   t31517 = t2454 * t3906;
18652   t31522 = -0.24e2 * t31489 + 0.14e2 * t3211 * t9675 - t15314 * t9675 - t2459 * t31494 * t304 - t789 * t31471 + 0.4e1 * t2464 * t31494 - t31500 * t2518 / 0.8e1 - 0.6e1 * t31504 + 0.4e1 * t2464 * t31506 - t9562 * t3980 / 0.2e1 - t3192 * t10536 - t9565 * t3980 / 0.4e1 + 0.4e1 * t2464 * t31514 + 0.2e1 * t2464 * t31517 + 0.7e1 / 0.2e1 * t3928 * t2521;
18653   t31528 = t2460 * t3911;
18654   t31529 = t24907 * t31528;
18655   t31533 = t2460 * t3906;
18656   t31534 = t8039 * t31533;
18657   t31536 = t10468 * t2518;
18658   t31555 = t2472 * t31494 * t304;
18659   t31563 = t297 * t31471 * t304;
18660   t31566 = t5350 * t9675;
18661   t31569 = 0.10e2 * t9594 * t9675;
18662   t31578 = -0.2e1 * t302 * t31494 * t304 + t793 * t31471 * t304 / 0.2e1 - 0.8e1 * t5368 * t9549 - 0.4e1 * t9610 * t3906 - 0.8e1 * t3214 * t10425 - 0.4e1 * t31555 + t2479 * t31494 * t304 / 0.2e1 - 0.4e1 * t797 * t31471 - t31563 + t9607 * t9675 / 0.2e1 + 0.30e2 * t31566 - t31569 + t10482 * t2521 / 0.8e1 + t24945 * t3911 * t2518 / 0.16e2 - 0.2e1 * t1221 * t9710 - t2607 * t3980;
18663   t31581 = t16711 * t2518;
18664   t31583 = t3928 * t2518;
18665   t31585 = t3912 * t2521;
18666   t31587 = t10439 * t2518;
18667   t31589 = t3205 * t9710;
18668   t31592 = 0.5e1 / 0.2e1 * t10468 * t2521;
18669   t31594 = t24961 * t3911 * t2518;
18670   t31597 = t2472 * t10425 * t820;
18671   t31599 = t10471 * t2521;
18672   t31603 = 0.5e1 / 0.2e1 * t8058 * t3906 * t2518;
18673   t31604 = t2479 * t10425;
18674   t31609 = t8068 * t3906;
18675   t31616 = -0.2e1 * t864 * t10536 + 0.15e2 / 0.2e1 * t31581 - 0.75e2 / 0.2e1 * t31583 + 0.15e2 / 0.2e1 * t31585 + 0.85e2 / 0.4e1 * t31587 - 0.4e1 * t31589 - t31592 - 0.19e2 / 0.8e1 * t31594 - 0.4e1 * t31597 - 0.2e1 * t31599 - t31603 + t31604 * t820 / 0.2e1 + t10477 * t2521 / 0.4e1 + t31609 * t2518 / 0.8e1 + t3211 * t9710 / 0.2e1 - 0.8e1 * t31494 * t305;
18676   t31632 = 0.15e2 / 0.4e1 * t10482 * t2518 - t5350 * t9710 - t10439 * t2521 / 0.4e1 + 0.24e2 * t31529 + 0.7e1 / 0.2e1 * t2480 * t3980 - 0.6e1 * t31534 - 0.24e2 * t31536 + 0.4e1 * t10425 * t802 + 0.2e1 * t3906 * t2491 + 0.2e1 * t296 * (t31578 + t31616) + 0.2e1 * t31471 * t308 + 0.2e1 * t2454 * t3939 + 0.4e1 * t787 * t10496 + 0.4e1 * t1133 * t9622 + 0.4e1 * t9549 * t1145 + 0.8e1 * t3188 * t3222;
18677   t31654 = t296 * t10593;
18678   t31671 = t787 * t3272;
18679   t31684 = t2454 * t1174;
18680   t31694 = t31533 * t304;
18681   t31701 = t3977 * t2454;
18682   t31706 = t1166 * t9549;
18683   t31711 = t31528 * t304;
18684   t31722 = t3980 * t2454;
18685   t31729 = t29709 * t9675 / 0.2e1 - 0.144e3 * t31494 + 0.24e2 * t29703 * t9675 - 0.9e1 * t29706 * t9675 + t8127 * t31694 / 0.8e1 + t9704 * t9678 / 0.2e1 + t29739 * t9682 / 0.4e1 + 0.6e1 * t8140 * t31701 + t25038 * t10572 / 0.4e1 + t2524 * t31706 / 0.2e1 + t8127 * t31701 / 0.8e1 + t25024 * t31711 / 0.16e2 + 0.75e2 / 0.4e1 * t25004 * t31711 - 0.3e1 * t2517 * t31706 - 0.9e1 / 0.4e1 * t8120 * t31701 - 0.9e1 / 0.4e1 * t25041 * t31711 - 0.3e1 / 0.2e1 * t2517 * t31722 - 0.9e1 / 0.4e1 * t8120 * t31694 + t2524 * t31722 / 0.4e1;
18686   t31732 = t4013 * t2454;
18687   t31733 = 0.1536e4 * t31732;
18688   t31734 = t1197 * t9549;
18689   t31735 = 0.1536e4 * t31734;
18690   t31736 = t10714 * t787;
18691   t31737 = 0.1536e4 * t31736;
18692   t31738 = t4015 * t2454;
18693   t31739 = 0.768e3 * t31738;
18694   t31743 = t3968 * t2460;
18695   t31744 = 0.1536e4 * t31743;
18696   t31754 = -0.10e2 * t31555 - 0.10e2 * t31563 + t31733 + t31735 + t31737 + t31739 + 0.10e2 * t78 * t31471 * t299 + t31744 + 0.80e2 * t31566 - t31569 + 0.20e2 * t31581 - 0.100e3 * t31583 + 0.20e2 * t31585 + 0.55e2 / 0.2e1 * t31587 - 0.10e2 * t31589 - t31592 - 0.5e1 / 0.4e1 * t31594 - 0.10e2 * t31597 - 0.5e1 * t31599 - t31603;
18697   t31756 = t1160 * t9572;
18698   t31757 = 0.6144e4 * t31756;
18699   t31763 = t31471 * t304;
18700   t31768 = t10562 * t793;
18701   t31772 = t3974 * t2479;
18702   t31779 = t31494 * t304;
18703   t31784 = t3974 * t2472;
18704   t31791 = t296 * t31471;
18705   t31793 = 0.1536e4 * t31528;
18706   t31794 = t301 * t31494;
18707   t31795 = 0.1536e4 * t31794;
18708   t31796 = t344 * t31471;
18709   t31797 = 0.256e3 * t31796;
18710   t31798 = 0.80e2 * t31494 + 0.80e2 * t31506 + 0.40e2 * t31517 + 0.80e2 * t31514 + 0.40e2 * t31791 - t31793 - t31757 - t31733 - t31795 - t31735 - t31744 - t31737 - t31739 - t31797;
18711   t31802 = t31757 - 0.3e1 / 0.2e1 * t25015 * t3977 + t8112 * t3980 / 0.2e1 + t2515 * t10536 + t819 * t31763 / 0.2e1 + t25032 * t3977 / 0.4e1 + t31768 * t820 + t10544 * t2521 / 0.2e1 + t31772 * t2518 / 0.4e1 + t29729 * t1166 + 0.2e1 * t9700 * t3260 + t3252 * t9710 + t2524 * t31779 / 0.2e1 - 0.3e1 * t2517 * t31779 - 0.3e1 / 0.2e1 * t31784 * t2518 + t31798 * t304 - 0.144e3 * t31506 + t31793 + t31795 - 0.72e2 * t31517;
18712   t31811 = t10536 * t787;
18713   t31837 = -0.144e3 * t31514 - 0.72e2 * t31791 + t31797 - 0.9e1 / 0.2e1 * t25018 * t10572 - 0.3e1 * t8137 * t10580 + t8117 * t10580 / 0.2e1 - 0.3e1 * t2517 * t31811 + t2524 * t31811 / 0.2e1 + t8117 * t10575 - 0.6e1 * t29748 * t3257 - 0.6e1 * t9713 * t9675 - 0.30e2 * t2524 * t31711 + 0.6e1 * t8140 * t31694 + 0.12e2 * t29745 * t9682 + t29734 * t3257 + t9704 * t9675 - 0.3e1 * t9713 * t9678 - 0.9e1 / 0.2e1 * t29751 * t9682 + 0.12e2 * t25008 * t10572 - 0.6e1 * t8137 * t10575;
18714   t31842 = 0.48e2 * t3911 * t2534 + 0.48e2 * t10529 * t2454 + 0.48e2 * t810 * t31471 + 0.48e2 * t2460 * t3992 + 0.96e2 * t31654 * t787 + 0.96e2 * t3233 * t10425 + 0.48e2 * t8092 * t3906 + 0.96e2 * t2501 * t10425 + 0.192e3 * t9649 * t3188 + 0.96e2 * t3240 * t9549 + 0.48e2 * t9633 * t3906 + 0.96e2 * t9636 * t3906 + 0.192e3 * t31671 * t1133 + 0.192e3 * t10516 * t3188 + 0.96e2 * t29843 * t1133 + 0.96e2 * t31494 * t327 + 0.192e3 * t15132 * t3188 + 0.96e2 * t5146 * t9549 + 0.96e2 * t31684 * t1133 + 0.24e2 * t301 * (t31729 + t31754 + t31802 + t31837);
18715   t31846 = t9721 * t41;
18716   t31849 = t9724 * t41;
18717   t31899 = 0.144e3 * t25130 * t3911 + 0.72e2 * t8263 * t3906 + 0.144e3 * t2577 * t10425 + 0.72e2 * t850 * t31471 + 0.288e3 * t9881 * t3188 + 0.144e3 * t3325 * t9549 - 0.1440e4 * t31489 + 0.8e1 * t863 * t793 * t31494 - 0.2e1 * t2602 * t31779 + t2571 * t31779 / 0.2e1 - 0.3e1 * t2566 * t31779 + 0.240e3 * t324 * t31471 * t299 - 0.960e3 * t10494 * t820 - 0.480e3 * t3937 * t2521;
18718   t31905 = t10742 * t793;
18719   t31907 = t296 * t4052;
18720   t31919 = t301 * t10759;
18721   t31924 = t2454 * t359;
18722   t31927 = t787 * t857;
18723   t31930 = -0.960e3 * t297 * t304 * t31494 - 0.2e1 * t302 * t31471 * t863 + 0.72e2 * t10698 * t2454 + 0.144e3 * t1133 * t29906 - 0.960e3 * t1143 * t9710 + 0.144e3 * t2460 * t31907 + t31905 * t820 + 0.144e3 * t31919 * t787 + 0.144e3 * t31924 * t3911 + 0.288e3 * t31927 * t3911 - 0.360e3 * t31504 + 0.2640e4 * t31529 - 0.360e3 * t31534 - 0.240e3 * t31536;
18724   t31948 = 0.2457600e7 * t1162 * t9572 + 0.614400e6 * t2454 * t4017 + 0.1843200e7 * t2460 * t3970 + 0.614400e6 * t2460 * t3972 + 0.307200e6 * t31494 * t319 + 0.896e3 * t31514 + 0.448e3 * t31517 - 0.34560e5 * t31743 - 0.138240e6 * t31756 + 0.448e3 * t31791 - 0.5760e4 * t31796;
18725   t31965 = 0.307200e6 * t10722 * t787 + 0.307200e6 * t1199 * t9549 + 0.153600e6 * t2454 * t4019 + 0.30720e5 * t31471 * t346 + 0.896e3 * t31494 + 0.896e3 * t31506 - 0.34560e5 * t31528 - 0.34560e5 * t31732 - 0.34560e5 * t31734 - 0.34560e5 * t31736 - 0.17280e5 * t31738 - 0.34560e5 * t31794;
18726   t32003 = 0.3072e4 * t10552 * t787 - 0.23040e5 * t10560 * t787 + 0.323316e6 * t10757 * t787 + 0.3072e4 * t1160 * t9549 - 0.23040e5 * t1162 * t9549 + 0.323316e6 * t1213 * t9549 + 0.1536e4 * t2454 * t3968 - 0.34560e5 * t2454 * t3970 - 0.11520e5 * t2454 * t3972 + 0.808290e6 * t2454 * t4048 - 0.2880e4 * t31471 * t319 - 0.1105920e7 * t31471 * t350 - 0.23040e5 * t31494 * t344 + 0.323316e6 * t31494 * t346 - 0.17694720e8 * t31494 * t348 - 0.17694720e8 * t3301 * t9549 - 0.8e1 * t31471 + 0.6144e4 * t31488;
18727   t32039 = -0.17694720e8 * t10425 * t348 * t787 - 0.61931520e8 * t10732 * t2454 - 0.8847360e7 * t10737 * t2454 - 0.138240e6 * t1197 * t9572 + 0.3233160e7 * t1199 * t9572 - 0.247726080e9 * t1201 * t9572 + 0.161658e6 * t2454 * t4050 - 0.69120e5 * t2460 * t4013 - 0.34560e5 * t2460 * t4015 + 0.3233160e7 * t2460 * t4017 + 0.808290e6 * t2460 * t4019 - 0.371589120e9 * t2460 * t4021 - 0.61931520e8 * t2460 * t4023 + 0.3072e4 * t296 * t31494 + 0.768e3 * t301 * t31471 + 0.26943e5 * t31471 * t357 + 0.1536e4 * t31503 + 0.1536e4 * t31533;
18728   t32066 = 0.24e2 * t344 * (t31948 + t31965) + (t32003 + t32039) * t304 + 0.12e2 * t25176 * t10572 - 0.6e1 * t8249 * t10575 - 0.3e1 * t8249 * t10580 + t8219 * t10580 / 0.2e1 - 0.3e1 * t2566 * t31811 + t2571 * t31811 / 0.2e1 - 0.3e1 * t2566 * t31706 - 0.9e1 / 0.4e1 * t8222 * t31701 - 0.9e1 / 0.4e1 * t25192 * t31711 - 0.3e1 / 0.2e1 * t2566 * t31722 - 0.9e1 / 0.4e1 * t8222 * t31694 + t2571 * t31722 / 0.4e1;
18729   t32096 = -0.3e1 * t9775 * t9678 - 0.9e1 / 0.2e1 * t29964 * t9682 + t9745 * t9678 / 0.2e1 + t30009 * t9682 / 0.4e1 - 0.6e1 * t9775 * t9675 + t9745 * t9675 + t8227 * t31694 / 0.8e1 + t2571 * t31706 / 0.2e1 + t8227 * t31701 / 0.8e1 + 0.6e1 * t8252 * t31701 + 0.75e2 / 0.4e1 * t25165 * t31711 + 0.576e3 * t29910 * t3195 + 0.576e3 * t9872 * t9572 + 0.288e3 * t9872 * t9575 + 0.288e3 * t8260 * t10450;
18730   t32113 = t4029 * t2472;
18731   t32120 = t4029 * t2479;
18732   t32127 = 0.288e3 * t2574 * t31514 + 0.144e3 * t2574 * t31517 + 0.480e3 * t1170 * t9766 + 0.720e3 * t3977 * t2607 + 0.240e3 * t2529 * t4058 + 0.480e3 * t824 * t10622 + 0.720e3 * t31533 * t789 - 0.3e1 / 0.2e1 * t32113 * t2518 - 0.2880e4 * t3977 * t2604 + t10632 * t2521 / 0.2e1 + t32120 * t2518 / 0.4e1 + t29999 * t1166 + 0.2e1 * t9773 * t3260 + t3308 * t9710;
18733   t32157 = -0.3e1 / 0.2e1 * t25159 * t3977 + t8243 * t3980 / 0.2e1 + t2564 * t10536 + t847 * t31763 / 0.2e1 + t25186 * t3977 / 0.4e1 + 0.576e3 * t10701 * t10445 + 0.576e3 * t8260 * t10445 + 0.288e3 * t2574 * t31506 + 0.4e1 * t863 * t3925 * t2454 + 0.7e1 * t8255 * t31694 - t2602 * t31722 - t8240 * t31694 / 0.2e1 + t25197 * t31711 / 0.16e2 + 0.7e1 * t8255 * t31701 + 0.15e2 / 0.2e1 * t25156 * t31711;
18734   t32191 = -0.2e1 * t2602 * t31706 - t8240 * t31701 / 0.2e1 - t25112 * t31711 / 0.4e1 - 0.12e2 * t863 * t3922 * t2454 + t29924 * t9675 / 0.2e1 + 0.28e2 * t15500 * t9675 - 0.2e1 * t15503 * t9675 - 0.48e2 * t15506 * t31488 + 0.24e2 * t29913 * t9675 - 0.9e1 * t29921 * t9675 + 0.8e1 * t863 * t1138 * t9549 - 0.48e2 * t25183 * t31711 + 0.48e2 * t863 * t3912 * t2460 - 0.12e2 * t863 * t10471 * t2460;
18735   t32216 = t2460 * t1215;
18736   t32224 = 0.12e2 * t29958 * t9682 - 0.30e2 * t2571 * t31711 + 0.6e1 * t8252 * t31694 + 0.8e1 * t863 * t10474 * t787 - 0.2e1 * t2602 * t31811 - 0.6e1 * t29961 * t3257 + t30006 * t3257 + 0.2880e4 * t1166 * t864 * t3188 - 0.9e1 / 0.2e1 * t25162 * t10572 + t8219 * t10575 + t25189 * t10572 / 0.4e1 + 0.288e3 * t2574 * t31494 + 0.288e3 * t32216 * t1133 + 0.144e3 * t9869 * t3906 + 0.480e3 * t78 * t31494 * t299;
18737   t32235 = 0.14744579111111111111e-1 * t2615 * t3839 - 0.10531842222222222222e-1 * t2615 * t3855 + 0.25744503209876543210e0 * t2615 * t3858 + 0.56169825185185185185e-1 * t2615 * t3861 - 0.14042456296296296297e0 * t9893 * t1232 - 0.21063684444444444444e-1 * t9893 * t1236 + 0.6e1 / 0.25e2 * t31329 * t3837 - t9630 * t3853 / 0.5e1 - 0.2e1 / 0.5e1 * t31334 * t1122 + (-0.8e1 / 0.3e1 * t31471 * t311 - 0.16e2 / 0.3e1 * t10425 * t805 - 0.8e1 / 0.3e1 * t3906 * t2494 - 0.16e2 / 0.3e1 * t9549 * t1148 - 0.32e2 / 0.3e1 * t3188 * t3225 - 0.16e2 / 0.3e1 * t1133 * t9625 - 0.8e1 / 0.3e1 * t2454 * t3942 - 0.16e2 / 0.3e1 * t787 * t10499 - 0.8e1 / 0.3e1 * t296 * (t31522 + t31632)) * t316 + 0.98e2 / 0.405e3 * t9727 * t3948 + 0.70e2 / 0.81e2 * t9720 * t1184 * t340 + 0.35e2 / 0.81e2 * t2537 * t3957 * t340 + 0.35e2 / 0.81e2 * t31842 * t336 * t340 - 0.28e2 / 0.81e2 * t31846 * t1192 - 0.28e2 / 0.81e2 * t31849 * t1192 - 0.14e2 / 0.81e2 * t9727 * t4005 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t31471 * t367 + 0.16e2 / 0.7e1 * t10425 * t867 + 0.8e1 / 0.7e1 * t3906 * t2610 + 0.16e2 / 0.7e1 * t9549 * t1224 + 0.32e2 / 0.7e1 * t3188 * t3353 + 0.16e2 / 0.7e1 * t1133 * t9888 + 0.8e1 / 0.7e1 * t2454 * t4071 + 0.16e2 / 0.7e1 * t787 * t10764 + 0.8e1 / 0.7e1 * t296 * (t31899 + t31930 + t32066 + t32096 + t32127 + t32157 + t32191 + t32224)) * t41 * t45 * t373;
18738   t32245 = t38 * t1939 * t4179;
18739   t32248 = t38 * t485 * t10993;
18740   t32259 = t38 * t485 * t10898;
18741   t32266 = t179 * t485 * t4141;
18742   t32272 = t179 * t485 * t4145;
18743   t32274 = t2 * t27776;
18744   t32280 = t179 * t40 * t10870;
18745   t32285 = t3900 * t2443;
18746   t32290 = t3065 * t2630 * t10855;
18747   t32293 = t3065 * t3382 * t10859;
18748   t32295 = -0.4e1 / 0.243e3 * t32266 - 0.8e1 / 0.27e2 * t179 * t1939 * t1128 + 0.4e1 / 0.81e2 * t32272 + 0.16e2 / 0.27e2 * t179 * t32274 * t780 * t31099 - 0.8e1 / 0.27e2 * t32280 - 0.32e2 / 0.243e3 * t25607 - 0.4e1 / 0.243e3 * t25610 + 0.4e1 / 0.81e2 * t25613 + t25605 - 0.8e1 / 0.81e2 * t3065 * t10035 * t32285 - 0.32e2 / 0.243e3 * t32290 + 0.40e2 / 0.81e2 * t32293;
18749   t32296 = t3895 * t2448;
18750   t32301 = t3065 * t880 * t10866;
18751   t32303 = t10419 * t781;
18752   t32307 = t3900 * t2448;
18753   t32311 = t3895 * t2443;
18754   t32325 = -0.8e1 / 0.81e2 * t3065 * t10035 * t32296 + 0.8e1 / 0.81e2 * t32301 + 0.4e1 / 0.27e2 * t3065 * t3440 * t32303 + 0.2e1 / 0.27e2 * t3065 * t3440 * t32307 + 0.56e2 / 0.243e3 * t3065 * t30493 * t32311 + 0.16e2 / 0.27e2 * t30505 - 0.32e2 / 0.243e3 * t30461 + 0.256e3 / 0.81e2 * t30502 - 0.16e2 / 0.243e3 * t30464 + 0.8e1 / 0.81e2 * t30467 - 0.32e2 / 0.81e2 * t30470 - 0.32e2 / 0.243e3 * t30491 + 0.64e2 / 0.81e2 * t3065 * t25373 * t31441;
18755   t32327 = (t32295 + t32325) * t388;
18756   t32332 = t679 * t2708 * t10875;
18757   t32338 = t679 * t8329 * t4163;
18758   t32346 = t913 * t4149;
18759   t32353 = t913 * t4151;
18760   t32360 = -t25525 + 0.8e1 / 0.81e2 * t30333 + 0.20e2 / 0.81e2 * t679 * t10006 * t1267 - t679 * t919 * t32327 / 0.18e2 + 0.2e1 / 0.27e2 * t32332 - 0.4e1 / 0.27e2 * t679 * t3465 * t1266 + 0.10e2 / 0.243e3 * t32338 - 0.10e2 / 0.81e2 * t9369 * t10838 * t30440 + 0.2e1 / 0.27e2 * t9369 * t10096 * t10011 + 0.2e1 / 0.27e2 * t9369 * t32346 * t2719 + 0.4e1 / 0.27e2 * t9369 * t10096 * t9988 + 0.2e1 / 0.27e2 * t9369 * t32353 * t2719 + 0.2e1 / 0.27e2 * t9369 * t10096 * t10069;
18761   t32361 = t8365 * t1265;
18762   t32366 = t679 * t8333 * t4150;
18763   t32369 = t679 * t8333 * t4152;
18764   t32376 = t10874 * t907 * t388;
18765   t32379 = t4149 * t2697 * t388;
18766   t32380 = t1266 * t10048;
18767   t32384 = 0.80e2 / 0.243e3 * t9369 * t32361 * t30432 + t32327 - 0.5e1 / 0.81e2 * t32366 - 0.5e1 / 0.81e2 * t32369 + 0.40e2 / 0.243e3 * t30354 - 0.20e2 / 0.81e2 * t30357 - 0.8e1 / 0.81e2 * t30360 - 0.4e1 / 0.81e2 * t30363 + 0.2e1 * t32376 + t32379 + 0.2e1 * t32380 + 0.80e2 / 0.243e3 * t30366 - 0.160e3 / 0.729e3 * t25533;
18768   t32390 = t4149 * t2699 * t388;
18769   t32392 = t4151 * t2699 * t388;
18770   t32400 = t679 * t25586 * t4155;
18771   t32403 = t679 * t2704 * t10845;
18772   t32405 = 0.80e2 / 0.243e3 * t25537 + 0.10e2 / 0.243e3 * t25540 - 0.5e1 / 0.81e2 * t25543 + t32390 + t32392 - 0.200e3 / 0.729e3 * t30379 + 0.40e2 / 0.243e3 * t30382 + 0.20e2 / 0.243e3 * t30385 - 0.80e2 / 0.243e3 * t30389 - 0.4e1 / 0.81e2 * t30392 + 0.16e2 / 0.81e2 * t30395 - 0.50e2 / 0.729e3 * t32400 - 0.4e1 / 0.81e2 * t32403;
18773   t32425 = t679 * t2704 * t10815;
18774   t32428 = t679 * t2708 * t10819;
18775   t32431 = t679 * t2708 * t10824;
18776   t32434 = t679 * t2704 * t10806;
18777   t32437 = t679 * t2708 * t10811;
18778   t32443 = 0.40e2 / 0.243e3 * t30410 - 0.8e1 / 0.81e2 * t30412 + 0.20e2 / 0.243e3 * t25582 + 0.2e1 / 0.27e2 * t30458 - 0.20e2 / 0.81e2 * t9369 * t10838 * t907 * t10102 + t679 * t914 * t4152 * t2448 / 0.27e2 - t679 * t919 * t32380 / 0.9e1 - t679 * t919 * t32379 / 0.18e2 - 0.4e1 / 0.81e2 * t32425 + 0.4e1 / 0.27e2 * t32428 + 0.2e1 / 0.27e2 * t32431 - 0.4e1 / 0.81e2 * t32434 + 0.2e1 / 0.27e2 * t32437 + 0.2e1 / 0.27e2 * t679 * t914 * t10875 * t781;
18779   t32455 = t4151 * t2697 * t388;
18780   t32460 = t679 * t25650 * t10828;
18781   t32463 = t679 * t8354 * t10832;
18782   t32466 = t679 * t30387 * t10783;
18783   t32495 = t679 * t914 * t4150 * t2448 / 0.27e2 - 0.8e1 / 0.27e2 * t679 * t3465 * t3449 * t9 - t679 * t919 * t32455 / 0.18e2 - 0.160e3 / 0.729e3 * t32460 + 0.20e2 / 0.243e3 * t32463 - 0.260e3 / 0.243e3 * t32466 + 0.40e2 / 0.243e3 * t679 * t8366 * t4155 * t2448 - 0.5e1 / 0.81e2 * t679 * t2714 * t2698 * t3895 - 0.5e1 / 0.81e2 * t679 * t2714 * t4150 * t2443 - t679 * t919 * t32390 / 0.18e2 - 0.5e1 / 0.81e2 * t679 * t2714 * t4152 * t2443 + 0.40e2 / 0.243e3 * t679 * t8366 * t4163 * t2443 + t679 * t914 * t2700 * t3900 / 0.27e2;
18784   t32497 = t679 * t8329 * t4159;
18785   t32504 = t679 * t8354 * t10795;
18786   t32507 = t679 * t2704 * t10799;
18787   t32529 = t388 * t3895 * t781;
18788   t32536 = t10101 * t9;
18789   t32547 = 0.20e2 / 0.243e3 * t32497 + 0.2e1 / 0.27e2 * t679 * t914 * t10049 * t1127 + 0.20e2 / 0.243e3 * t32504 - 0.4e1 / 0.81e2 * t32507 - 0.10e2 / 0.81e2 * t679 * t2714 * t10845 * t781 - 0.5e1 / 0.81e2 * t679 * t2714 * t4163 * t2448 + t679 * t914 * t2698 * t3900 / 0.27e2 + 0.2e1 / 0.27e2 * t679 * t914 * t908 * t10419 - 0.2e1 / 0.9e1 * t9369 * t30542 * t10082 + 0.80e2 / 0.243e3 * t9369 * t30431 * t32529 - 0.320e3 / 0.243e3 * t28949 * t30427 * t31441 + 0.40e2 / 0.81e2 * t28949 * t10100 * t32536 - 0.20e2 / 0.81e2 * t9369 * t2713 * t3448 * t10102 + 0.4e1 / 0.27e2 * t9369 * t30417 * t3461;
18790   t32555 = t3448 * t3448;
18791   t32556 = t32555 * t388;
18792   t32578 = 0.40e2 / 0.81e2 * t28949 * t10838 * t30448 - 0.8e1 / 0.27e2 * t28949 * t10096 * t10015 + 0.2e1 * t32556 + 0.4e1 * t3450 * t3449 - 0.50e2 / 0.729e3 * t25588 - 0.5e1 / 0.81e2 * t25591 - 0.368e3 / 0.243e3 * t30524 - t679 * t919 * t32556 / 0.9e1 - 0.160e3 / 0.729e3 * t30532 - 0.20e2 / 0.81e2 * t30535 - t679 * t919 * t32376 / 0.9e1 - t679 * t919 * t32392 / 0.18e2 - 0.440e3 / 0.729e3 * t679 * t25656 * t4155 * t2443;
18793   t32584 = t679 * t2704 * t10787;
18794   t32587 = t679 * t10060 * t10791;
18795   t32590 = 0.1e1 / t180 / t31410;
18796   t32603 = t388 * t3900 * t781;
18797   t32607 = t29013 * t10839;
18798   t32609 = t29013 * t10842;
18799   t32611 = -0.5e1 / 0.81e2 * t679 * t2714 * t2700 * t3895 - 0.8e1 / 0.81e2 * t32584 + 0.52e2 / 0.81e2 * t32587 - 0.40e2 / 0.81e2 * t679 * t32590 * t2713 * t390 * t31099 + t32455 + 0.2e1 / 0.27e2 * t30578 - 0.4e1 / 0.81e2 * t30584 + 0.20e2 / 0.243e3 * t30591 - 0.160e3 / 0.729e3 * t30594 + 0.4e1 / 0.27e2 * t30601 + 0.2e1 / 0.27e2 * t30604 - 0.10e2 / 0.81e2 * t9369 * t10100 * t32603 + 0.40e2 / 0.243e3 * t32607 - 0.8e1 / 0.81e2 * t32609;
18800   t32621 = t38 * t1939 * t4174;
18801   t32628 = t490 * t9922 * t10921;
18802   t32631 = t490 * t2623 * t10933;
18803   t32634 = t490 * t2623 * t10938;
18804   t32641 = t166 * t674 * t4115;
18805   t32648 = t166 * t674 * t4119;
18806   t32650 = t167 * t28837;
18807   t32656 = t166 * t190 * t10970;
18808   t32662 = -0.4e1 / 0.27e2 * t30778 + 0.20e2 / 0.243e3 * t25473 + 0.4e1 / 0.243e3 * t25476 - 0.2e1 / 0.81e2 * t25479 + 0.4e1 / 0.243e3 * t32641 + 0.8e1 / 0.27e2 * t166 * t2256 * t913 * t1127 - 0.2e1 / 0.81e2 * t32648 - 0.16e2 / 0.27e2 * t166 * t32650 * t913 * t31099 + 0.2e1 / 0.27e2 * t32656 - t25471 - 0.164e3 / 0.81e2 * t30775 + 0.10e2 / 0.81e2 * t3023 * t9942 * t32285;
18809   t32675 = t3023 * t2714 * t10855;
18810   t32678 = t3023 * t3465 * t10859;
18811   t32684 = t3023 * t914 * t10866;
18812   t32692 = -0.80e2 / 0.243e3 * t3023 * t30761 * t32311 + 0.20e2 / 0.243e3 * t30734 - 0.80e2 / 0.81e2 * t3023 * t25586 * t31441 + 0.16e2 / 0.243e3 * t30737 - 0.4e1 / 0.81e2 * t30740 + 0.16e2 / 0.81e2 * t30743 + 0.20e2 / 0.243e3 * t30759 + 0.20e2 / 0.243e3 * t32675 - 0.56e2 / 0.81e2 * t32678 + 0.10e2 / 0.81e2 * t3023 * t9942 * t32296 - 0.4e1 / 0.81e2 * t32684 - 0.4e1 / 0.27e2 * t3023 * t3400 * t32303 - 0.2e1 / 0.27e2 * t3023 * t3400 * t32307;
18813   t32714 = 0.4e1 / 0.27e2 * t38 * t7096 * t780 * t1274 - 0.2e1 / 0.27e2 * t32259 + t38 * t40 * t290 * (t32360 + t32384 + t32405 + t32443 + t32495 + t32547 + t32578 + t32611) / 0.9e1 + 0.4e1 / 0.81e2 * t25391 + 0.4e1 / 0.81e2 * t32621 + 0.16e2 / 0.81e2 * t490 * t2630 * t10929 * t781 - 0.44e2 / 0.81e2 * t32628 + 0.2e1 / 0.81e2 * t32631 + 0.2e1 / 0.81e2 * t32634 + 0.2e1 * t388 * (t32662 + t32692) + 0.4e1 / 0.81e2 * t490 * t2630 * t4173 * t2443 - 0.8e1 / 0.81e2 * t30631 - 0.16e2 / 0.243e3 * t30636 - 0.8e1 / 0.243e3 * t25427 - 0.16e2 / 0.243e3 * t30646 + 0.224e3 / 0.243e3 * t27853 * t30301 * t31441 - 0.56e2 / 0.243e3 * t25441 + 0.2e1 * t10086 * t1255 - 0.2e1 / 0.27e2 * t490 * t880 * t10108 * t1127;
18814   t32719 = t490 * t8444 * t4132;
18815   t32722 = t490 * t8444 * t4136;
18816   t32725 = t490 * t25373 * t4128;
18817   t32733 = t490 * t2623 * t10929;
18818   t32751 = t490 * t8463 * t10902;
18819   t32761 = -0.16e2 / 0.81e2 * t490 * t10145 * t1257 - 0.8e1 / 0.243e3 * t32719 - 0.4e1 / 0.243e3 * t32722 + 0.16e2 / 0.729e3 * t32725 - 0.4e1 / 0.81e2 * t30662 - 0.56e2 / 0.243e3 * t30665 - 0.2e1 / 0.27e2 * t30668 - 0.8e1 / 0.243e3 * t30671 - 0.4e1 / 0.243e3 * t25453 + 0.4e1 / 0.81e2 * t32733 - 0.16e2 / 0.243e3 * t30707 - 0.8e1 / 0.243e3 * t30710 + 0.32e2 / 0.243e3 * t30713 - 0.56e2 / 0.243e3 * t490 * t8454 * t4132 * t2443 - 0.28e2 / 0.243e3 * t490 * t8454 * t4136 * t2443 + 0.280e3 / 0.729e3 * t490 * t25381 * t4128 * t2443 - 0.8e1 / 0.243e3 * t32751 + 0.8e1 / 0.81e2 * t490 * t2630 * t10933 * t781 + 0.8e1 / 0.81e2 * t490 * t2630 * t10938 * t781;
18820   t32768 = t490 * t25377 * t10906;
18821   t32771 = t490 * t30216 * t10910;
18822   t32786 = t490 * t8463 * t10914;
18823   t32804 = t490 * t2623 * t10977;
18824   t32811 = 0.4e1 / 0.81e2 * t490 * t2630 * t4136 * t2448 + 0.56e2 / 0.729e3 * t32768 + 0.176e3 / 0.243e3 * t32771 - 0.56e2 / 0.243e3 * t490 * t8454 * t10925 * t781 - 0.28e2 / 0.243e3 * t490 * t8454 * t4128 * t2448 - 0.32e2 / 0.81e2 * t490 * t10145 * t3421 * t9 - 0.16e2 / 0.243e3 * t32786 - 0.2e1 / 0.27e2 * t490 * t880 * t923 * t10419 + 0.2e1 * t2700 * t4123 + 0.2e1 / 0.81e2 * t30722 + 0.2e1 / 0.81e2 * t30725 + 0.2e1 * t10064 * t1255 + 0.4e1 * t10081 * t1255 + 0.4e1 * t3450 * t3410 + 0.64e2 / 0.729e3 * t30730 + 0.2e1 / 0.81e2 * t32804 + 0.16e2 / 0.729e3 * t25726 + 0.2e1 * t1266 * t9958 + 0.2e1 * t2698 * t4123;
18825   t32852 = t490 * t8463 * t10925;
18826   t32854 = t31412 * t2442;
18827   t32860 = 0.4e1 * t908 * t10974 + 0.2e1 * t10049 * t1254 + 0.4e1 * t3449 * t3409 + 0.8e1 / 0.81e2 * t490 * t2630 * t4132 * t2448 - 0.32e2 / 0.81e2 * t490 * t10145 * t10921 * t781 + 0.4e1 / 0.81e2 * t30796 - t490 * t880 * t2733 * t3900 / 0.27e2 + 0.284e3 / 0.243e3 * t30799 + 0.56e2 / 0.729e3 * t30802 + t25730 + 0.8e1 / 0.27e2 * t490 * t3382 * t3483 * t9 - t490 * t880 * t4173 * t2448 / 0.27e2 - 0.2e1 / 0.27e2 * t490 * t880 * t10897 * t781 + 0.56e2 / 0.729e3 * t30805 + 0.16e2 / 0.81e2 * t30812 + 0.4e1 / 0.81e2 * t490 * t2630 * t2733 * t3895 - 0.8e1 / 0.243e3 * t32852 + 0.32e2 / 0.81e2 * t490 * t32854 * t395 * t31099 + 0.56e2 / 0.729e3 * t25732;
18828   t32869 = t490 * t2623 * t11010;
18829   t32872 = t490 * t2623 * t11014;
18830   t32895 = t490 * t25377 * t11050;
18831   t32898 = t490 * t30216 * t10997;
18832   t32908 = -0.16e2 / 0.243e3 * t32245 + 0.8e1 / 0.81e2 * t32248 - 0.16e2 / 0.81e2 * t38 * t7096 * t780 * t1279 - 0.4e1 / 0.27e2 * t38 * t40 * t290 * (t32714 + t32761 + t32811 + t32860) + 0.16e2 / 0.729e3 * t25311 - 0.8e1 / 0.243e3 * t32869 - 0.8e1 / 0.243e3 * t32872 + 0.8e1 / 0.81e2 * t490 * t880 * t10992 * t781 + 0.112e3 / 0.729e3 * t490 * t8454 * t4108 * t2443 + 0.224e3 / 0.729e3 * t490 * t8454 * t4104 * t2443 - 0.32e2 / 0.243e3 * t490 * t2630 * t4104 * t2448 + 0.128e3 / 0.243e3 * t490 * t10145 * t11006 * t781 - 0.224e3 / 0.2187e4 * t32895 - 0.704e3 / 0.729e3 * t32898 + 0.224e3 / 0.729e3 * t490 * t8454 * t11019 * t781 + 0.112e3 / 0.729e3 * t490 * t8454 * t4100 * t2448;
18833   t32913 = t490 * t2623 * t11023;
18834   t32916 = t490 * t8444 * t4108;
18835   t32923 = t490 * t25373 * t4100;
18836   t32929 = t490 * t2623 * t11001;
18837   t32941 = t490 * t8463 * t11019;
18838   t32943 = 0.64e2 / 0.729e3 * t30211 + 0.32e2 / 0.729e3 * t30214 - 0.128e3 / 0.729e3 * t30218 - 0.16e2 / 0.243e3 * t32913 + 0.16e2 / 0.729e3 * t32916 + 0.64e2 / 0.729e3 * t30221 - 0.1136e4 / 0.729e3 * t30225 - 0.256e3 / 0.2187e4 * t30238 - 0.224e3 / 0.2187e4 * t30241 - 0.64e2 / 0.2187e4 * t32923 + 0.64e2 / 0.243e3 * t490 * t10145 * t1246 - 0.8e1 / 0.243e3 * t32929 - 0.64e2 / 0.243e3 * t30266 - 0.32e2 / 0.81e2 * t490 * t3382 * t3488 * t9 - 0.16e2 / 0.243e3 * t490 * t2630 * t4178 * t2443 + 0.32e2 / 0.729e3 * t32941;
18839   t32946 = t490 * t9922 * t11006;
18840   t32961 = t490 * t8444 * t4104;
18841   t32970 = 0.176e3 / 0.243e3 * t32946 - 0.128e3 / 0.243e3 * t490 * t32854 * t400 * t31099 + 0.224e3 / 0.729e3 * t30277 + 0.16e2 / 0.243e3 * t30282 - t25347 - 0.16e2 / 0.243e3 * t25349 + 0.224e3 / 0.729e3 * t25353 - 0.16e2 / 0.243e3 * t30287 - 0.224e3 / 0.2187e4 * t25360 + 0.32e2 / 0.729e3 * t25363 - 0.64e2 / 0.2187e4 * t25375 + 0.32e2 / 0.729e3 * t32961 + 0.8e1 / 0.81e2 * t490 * t880 * t928 * t10419 + 0.8e1 / 0.81e2 * t30823 - 0.8e1 / 0.243e3 * t30827 + 0.32e2 / 0.729e3 * t30830;
18842   t32990 = t490 * t8463 * t11046;
18843   t33005 = t490 * t8463 * t11042;
18844   t33024 = -0.1120e4 / 0.2187e4 * t490 * t25381 * t4100 * t2443 + 0.128e3 / 0.243e3 * t490 * t10145 * t3378 * t9 - 0.8e1 / 0.243e3 * t30844 + 0.4e1 / 0.81e2 * t490 * t880 * t4178 * t2448 + 0.8e1 / 0.81e2 * t490 * t880 * t10173 * t1127 + 0.64e2 / 0.729e3 * t30847 + 0.64e2 / 0.729e3 * t32990 - 0.896e3 / 0.729e3 * t27853 * t30198 * t31441 + 0.32e2 / 0.243e3 * t30850 - 0.16e2 / 0.243e3 * t490 * t2630 * t2738 * t3895 - 0.64e2 / 0.243e3 * t490 * t2630 * t11023 * t781 + 0.32e2 / 0.729e3 * t33005 - 0.32e2 / 0.243e3 * t490 * t2630 * t11010 * t781 - 0.32e2 / 0.243e3 * t490 * t2630 * t11014 * t781 - 0.16e2 / 0.243e3 * t490 * t2630 * t4108 * t2448 - 0.224e3 / 0.2187e4 * t30858 + 0.4e1 / 0.81e2 * t490 * t880 * t2738 * t3900;
18845   t33035 = t3808 * t2618 - 0.12e2 * t3810 * t9498 + 0.2e1 * t1097 * t9900 + 0.54e2 * t3817 * t31302 * t3794 - 0.12e2 * t1101 * t31306 * t1091 - 0.12e2 * t1101 * t31310 * t3794 - 0.6e1 * t1101 * t9497 * t3800 + t269 * t32235 + t4090 * t2743 * t428 + 0.2e1 * t1243 * t10222 * t428 + t9902 * t1315 / 0.5e1 + t378 * (t32908 + t32943 + t32970 + t33024) * t428 + t10223 * t1315 / 0.5e1 - 0.9e1 / 0.100e3 * t2744 * t4191 + t2744 * t4226 / 0.10e2;
18846   t33041 = t8 * t27506 * t3508;
18847   t33047 = t8 * t1832 * t3775;
18848   t33065 = -t2754 * t2755 * t10282 * t455 / 0.3e1 - t2754 * t2755 * t3516 * t1827 / 0.6e1 + t2416 * t2417 * t10227 * t1082 - 0.2e1 * t2416 * t8649 * t3498 * t9 - 0.2e1 / 0.3e1 * t3132 * t8649 * t3141 * t9 - 0.4e1 / 0.9e1 * t8654 * t10252 * t11801 * t767 - t8 * t2404 * t28837 * t444 * t31099 / 0.3e1 + 0.3e1 / 0.8e1 * t8 * t254 * p->cam_beta * t33035 + t33041 / 0.27e2 + t8 * t2767 * t1078 - t30967 / 0.3e1 - t33047 / 0.12e2 - 0.2e1 / 0.9e1 * t8654 * t2417 * t11797 * t767 + t3132 * t2417 * t10315 * t767 / 0.3e1 + t8636 * t2755 * t3507 * t1827 / 0.9e1 + t2754 * t2417 * t3774 * t1812 / 0.6e1;
18849   t33080 = t8 * t7984 * t10277;
18850   t33095 = t3132 * t189 * t1345 * t3134;
18851   t33105 = t3684 * t1863;
18852   t33109 = t11484 * t26;
18853   t33113 = t3684 * t25;
18854   t33124 = t11310 * t41;
18855   t33150 = t490 * t1943 * t11109;
18856   t33153 = t490 * t1947 * t11114;
18857   t33156 = t490 * t8723 * t11118;
18858   t33158 = t26061 + 0.28e2 / 0.729e3 * t27773 - 0.142e3 / 0.243e3 * t27779 + 0.2e1 / 0.81e2 * t27782 + t490 * t493 * t11135 * t506 / 0.270e3 + t490 * t493 * t3529 * t1911 / 0.540e3 + 0.4e1 / 0.81e2 * t490 * t511 * t1969 * t11134 * t454 + 0.2e1 / 0.81e2 * t490 * t511 * t11129 * t1975 + 0.2e1 / 0.1215e4 * t33150 + 0.28e2 / 0.729e3 * t33153 - 0.88e2 / 0.243e3 * t33156;
18859   t33168 = t490 * t1943 * t11125;
18860   t33171 = t490 * t1947 * t11130;
18861   t33180 = -t490 * t493 * t3524 * t1911 / 0.405e3 - 0.14e2 / 0.243e3 * t490 * t511 * t11113 * t1975 - t33168 / 0.810e3 - 0.4e1 / 0.243e3 * t33171 + 0.11e2 / 0.8100e4 * t27791 + 0.28e2 / 0.729e3 * t27798 + 0.2e1 / 0.1215e4 * t26077 + 0.11e2 / 0.4050e4 * t26156 + 0.14e2 / 0.1215e4 * t26180 + 0.28e2 / 0.729e3 * t26183 - t26186 / 0.405e3;
18862   t33198 = t3025 * t9;
18863   t33225 = -0.2e1 / 0.243e3 * t26189 + 0.8e1 / 0.729e3 * t26199 - 0.2e1 / 0.405e3 * t5889 * t8735 * t3528 * t506 * t454 + 0.14e2 / 0.1215e4 * t5889 * t27904 * t3523 * t506 * t454 - 0.8e1 / 0.405e3 * t27853 * t8735 * t8736 * t9 - 0.112e3 / 0.243e3 * t27853 * t27859 * t33198 - 0.11e2 / 0.5400e4 * t490 * t1953 * t3529 * t1882 - 0.14e2 / 0.243e3 * t490 * t511 * t7070 * t3528 * t1970 + 0.11e2 / 0.4050e4 * t490 * t1953 * t3524 * t1882 + 0.140e3 / 0.729e3 * t490 * t511 * t26143 * t3523 * t1970 + 0.16e2 / 0.81e2 * t490 * t31412 * t69 * t1969 * t31099;
18864   t33227 = t490 * t1947 * t11135;
18865   t33230 = t490 * t7463 * t3524;
18866   t33236 = t490 * t7463 * t3529;
18867   t33245 = t33227 / 0.81e2 + 0.8e1 / 0.729e3 * t33230 + 0.8e1 / 0.81e2 * t490 * t2804 * t2797 - 0.2e1 / 0.243e3 * t33236 + 0.4e1 / 0.1215e4 * t27866 + 0.32e2 / 0.729e3 * t27869 - t27872 / 0.810e3 - 0.4e1 / 0.243e3 * t27875 - 0.2e1 / 0.405e3 * t27887 - 0.16e2 / 0.243e3 * t27890 + 0.4e1 / 0.1215e4 * t27902;
18868   t33248 = my_piecewise3(t76, 0, t33158 + t33180 + t33225 + t33245);
18869   t33267 = t2817 * t2810;
18870   t33280 = t3594 * t1987;
18871   t33283 = t982 * t8781;
18872   t33286 = t3539 * t1981;
18873   t33287 = t33286 * t86;
18874   t33290 = t3539 * t1987;
18875   t33291 = t33290 * t86;
18876   t33300 = -0.2e1 * t14673 * t8926 - 0.48e2 * t14676 * t33267 + 0.24e2 * t28184 * t8926 - 0.9e1 * t28196 * t8926 + t28199 * t8926 / 0.2e1 + 0.28e2 * t14670 * t8926 + 0.2880e4 * t1023 * t8926 + 0.6e1 * t7682 * t33280 + t2107 * t33283 / 0.2e1 + t7655 * t33287 / 0.8e1 + t26679 * t33291 / 0.16e2 + 0.7e1 * t7673 * t33287 + 0.15e2 / 0.2e1 * t26708 * t33291 - 0.2e1 * t2138 * t33283;
18877   t33314 = t11246 * t519;
18878   t33332 = -0.9e1 / 0.2e1 * t26577 * t11256 + t7664 * t11265 + t26687 * t11256 / 0.4e1 + 0.12e2 * t26714 * t11256 - 0.6e1 * t7679 * t11265 - 0.3e1 * t7679 * t11270 + t7664 * t11270 / 0.2e1 - 0.3e1 * t2102 * t33314 + t2107 * t33314 / 0.2e1 - 0.6e1 * t28349 * t2879 + 0.8e1 * t614 * t11189 * t519 - 0.2e1 * t2138 * t33314 + 0.48e2 * t614 * t3540 * t1987 - 0.12e2 * t614 * t11186 * t1987;
18879   t33344 = t7699 * t33267;
18880   t33346 = t3594 * t1981;
18881   t33363 = 0.12e2 * t28206 * t8914 - 0.30e2 * t2107 * t33291 - 0.9e1 / 0.4e1 * t7667 * t33280 - 0.9e1 / 0.4e1 * t26574 * t33291 - 0.48e2 * t26563 * t33291 - 0.1440e4 * t33344 - 0.3e1 / 0.2e1 * t2102 * t33346 - 0.3e1 * t8910 * t8924 - 0.9e1 / 0.2e1 * t28346 * t8914 + t8901 * t8924 / 0.2e1 + t28362 * t8914 / 0.4e1 + 0.6e1 * t7682 * t33287 + 0.75e2 / 0.4e1 * t26580 * t33291 - 0.3e1 * t2102 * t33283;
18882   t33374 = t2810 * t2810;
18883   t33383 = t1987 * t3534;
18884   t33401 = -0.2880e4 * t101 * t33248 - 0.8847360e7 * t11390 * t1981 - 0.23040e5 * t128 * t33374 + 0.323316e6 * t130 * t33374 - 0.17694720e8 * t132 * t33374 - 0.1105920e7 * t134 * t33248 + 0.26943e5 * t141 * t33248 - 0.69120e5 * t1987 * t3618 - 0.34560e5 * t1987 * t3620 + 0.3233160e7 * t1987 * t3622 + 0.808290e6 * t1987 * t3624 - 0.371589120e9 * t1987 * t3626 - 0.61931520e8 * t1987 * t3628 + 0.768e3 * t33248 * t83 + 0.3072e4 * t33374 * t77 - 0.8e1 * t33248 + 0.1536e4 * t33286 + 0.1536e4 * t33383;
18885   t33438 = -0.17694720e8 * t11140 * t132 * t519 + 0.3233160e7 * t1001 * t8804 - 0.247726080e9 * t1003 * t8804 + 0.323316e6 * t1015 * t8781 - 0.23040e5 * t11279 * t519 + 0.3072e4 * t11281 * t519 + 0.323316e6 * t11356 * t519 - 0.61931520e8 * t11385 * t1981 + 0.1536e4 * t1981 * t3582 - 0.34560e5 * t1981 * t3584 - 0.11520e5 * t1981 * t3586 + 0.808290e6 * t1981 * t3653 + 0.161658e6 * t1981 * t3655 - 0.17694720e8 * t2923 * t8781 + 0.3072e4 * t8781 * t976 - 0.23040e5 * t8781 * t978 - 0.138240e6 * t8804 * t999 + 0.6144e4 * t33267;
18886   t33467 = -0.9e1 / 0.4e1 * t7667 * t33287 + (t33401 + t33438) * t86 - t7644 * t33287 / 0.2e1 - t26699 * t33291 / 0.4e1 - 0.12e2 * t614 * t3550 * t1981 + 0.8e1 * t614 * t959 * t8781 + 0.4e1 * t614 * t3553 * t1981 + 0.7e1 * t7673 * t33280 - t2138 * t33346 - t7644 * t33280 / 0.2e1 + t28367 * t2879 - 0.6e1 * t8910 * t8926 + t8901 * t8926 + t2107 * t33346 / 0.4e1 + t7655 * t33280 / 0.8e1;
18887   t33474 = t33248 * t86;
18888   t33482 = t33374 * t86;
18889   t33489 = t3634 * t1999;
18890   t33494 = t1987 * t1017;
18891   t33501 = t2930 * t8898 + 0.2e1 * t8906 * t2882 + t2100 * t11246 + t598 * t33474 / 0.2e1 + t7670 * t3594 / 0.2e1 + 0.8e1 * t614 * t525 * t33374 + t2107 * t33482 / 0.2e1 - 0.2e1 * t2138 * t33482 - 0.2880e4 * t3591 * t2140 - 0.3e1 / 0.2e1 * t33489 * t2045 + 0.720e3 * t3673 * t2045 + 0.288e3 * t33494 * t954 + 0.144e3 * t8957 * t3534 - 0.3e1 * t2102 * t33482;
18892   t33521 = t7699 * t33383;
18893   t33527 = t11183 * t2045;
18894   t33529 = t26388 * t33290;
18895   t33531 = t11395 * t525;
18896   t33533 = -0.3e1 / 0.2e1 * t26558 * t3591 + 0.576e3 * t28219 * t2817 + 0.576e3 * t8954 * t8804 + 0.288e3 * t8954 * t8807 + 0.240e3 * t106 * t33248 * t81 + 0.288e3 * t7634 * t11165 + 0.720e3 * t3591 * t2143 + 0.240e3 * t2056 * t3663 + 0.480e3 * t561 * t11448 - 0.360e3 * t33521 - 0.960e3 * t532 * t11246 - 0.480e3 * t3565 * t2048 - 0.240e3 * t33527 + 0.2640e4 * t33529 + t33531 * t557;
18897   t33542 = t954 * t8781;
18898   t33545 = t7699 * t33286;
18899   t33549 = t3634 * t2006;
18900   t33555 = t83 * t11358;
18901   t33566 = t1981 * t143;
18902   t33569 = -0.2e1 * t614 * t84 * t33248 + 0.576e3 * t11338 * t11160 + 0.576e3 * t7634 * t11160 + 0.288e3 * t2110 * t33542 - 0.360e3 * t33545 + t11465 * t2048 / 0.2e1 + t33549 * t2045 / 0.4e1 + t28359 * t982 + 0.144e3 * t28116 * t954 + 0.144e3 * t33555 * t519 - 0.960e3 * t79 * t33374 * t86 + 0.480e3 * t78 * t33374 * t81 + 0.72e2 * t11398 * t1981 + 0.144e3 * t33566 * t3539;
18903   t33580 = t77 * t3657;
18904   t33585 = t519 * t608;
18905   t33590 = t3582 * t1987;
18906   t33592 = t976 * t8804;
18907   t33594 = t519 * t11140;
18908   t33596 = t77 * t33248;
18909   t33600 = t128 * t33248;
18910   t33612 = 0.307200e6 * t1001 * t8781 + 0.307200e6 * t101 * t33374 + 0.307200e6 * t11375 * t519 + 0.30720e5 * t130 * t33248 + 0.614400e6 * t1981 * t3622 + 0.153600e6 * t1981 * t3624 - 0.34560e5 * t33590 - 0.138240e6 * t33592 + 0.896e3 * t33594 + 0.448e3 * t33596 - 0.5760e4 * t33600;
18911   t33619 = t1981 * t3534;
18912   t33621 = t3620 * t1981;
18913   t33624 = t3618 * t1981;
18914   t33626 = t83 * t33374;
18915   t33628 = t999 * t8781;
18916   t33630 = t11367 * t519;
18917   t33634 = 0.1843200e7 * t1987 * t3584 + 0.614400e6 * t1987 * t3586 + 0.2457600e7 * t8804 * t978 - 0.34560e5 * t33290 + 0.896e3 * t33374 + 0.896e3 * t33542 + 0.448e3 * t33619 - 0.17280e5 * t33621 - 0.34560e5 * t33624 - 0.34560e5 * t33626 - 0.34560e5 * t33628 - 0.34560e5 * t33630;
18918   t33648 = 0.144e3 * t2113 * t11140 + 0.72e2 * t601 * t33248 + 0.144e3 * t2947 * t8781 + 0.72e2 * t7637 * t3534 + 0.288e3 * t8960 * t2810 + 0.144e3 * t33580 * t1987 + 0.288e3 * t2110 * t33374 + 0.288e3 * t33585 * t3539 + 0.144e3 * t26593 * t3539 + 0.24e2 * t128 * (t33612 + t33634) + 0.288e3 * t2110 * t33594 + 0.144e3 * t2110 * t33619 + t26673 * t3591 / 0.4e1 - 0.960e3 * t964 * t8898 + 0.480e3 * t986 * t8881;
18919   t33659 = t11307 * t41;
18920   t33666 = t3573 * t1933;
18921   t33687 = t26380 * t3539;
18922   t33711 = -t11154 * t2048 / 0.4e1 - t33687 * t2045 / 0.8e1 + 0.7e1 / 0.2e1 * t3556 * t2048 + 0.15e2 / 0.4e1 * t11197 * t2045 - t4923 * t8898 + 0.14e2 * t2833 * t8926 - t14978 * t8926 - 0.24e2 * t33344 - t2814 * t11246 - t8797 * t3594 / 0.4e1 + 0.4e1 * t1991 * t33594 + 0.2e1 * t1991 * t33619 + 0.4e1 * t1991 * t33542 - t8794 * t3594 / 0.2e1 - 0.6e1 * t33521;
18923   t33736 = t4923 * t8926;
18924   t33739 = 0.10e2 * t8826 * t8926;
18925   t33740 = t15691 * t2045;
18926   t33742 = t3556 * t2045;
18927   t33754 = t7499 * t3534;
18928   t33759 = t2006 * t11140;
18929   t33765 = t1999 * t11140 * t557;
18930   t33767 = t11186 * t2048;
18931   t33769 = t8839 * t8926 / 0.2e1 + 0.30e2 * t33736 - t33739 + 0.15e2 / 0.2e1 * t33740 - 0.75e2 / 0.2e1 * t33742 - t2143 * t3594 - 0.2e1 * t615 * t11246 - 0.2e1 * t1023 * t8898 + t11197 * t2048 / 0.8e1 + t26296 * t3539 * t2045 / 0.16e2 + t33754 * t2045 / 0.8e1 + t2833 * t8898 / 0.2e1 + t33759 * t557 / 0.2e1 + t11192 * t2048 / 0.4e1 - 0.4e1 * t33765 - 0.2e1 * t33767;
18932   t33772 = 0.5e1 / 0.2e1 * t7504 * t3534 * t2045;
18933   t33773 = t2827 * t8898;
18934   t33776 = 0.5e1 / 0.2e1 * t11183 * t2048;
18935   t33778 = t26252 * t3539 * t2045;
18936   t33780 = t3540 * t2048;
18937   t33782 = t11154 * t2045;
18938   t33791 = t1999 * t33374 * t86;
18939   t33800 = t79 * t33248 * t86;
18940   t33808 = -t33772 - 0.4e1 * t33773 - t33776 - 0.19e2 / 0.8e1 * t33778 + 0.15e2 / 0.2e1 * t33780 + 0.85e2 / 0.4e1 * t33782 - 0.2e1 * t84 * t33374 * t86 + t2006 * t33374 * t86 / 0.2e1 - 0.4e1 * t33791 - 0.4e1 * t8842 * t3534 - 0.8e1 * t2836 * t11140 - 0.8e1 * t4943 * t8781 - t33800 - 0.4e1 * t529 * t33248 + t525 * t33248 * t86 / 0.2e1 - 0.8e1 * t33374 * t87;
18941   t33816 = -0.24e2 * t33527 + 0.24e2 * t33529 - 0.6e1 * t33545 - t521 * t33248 + 0.4e1 * t1991 * t33374 - t1986 * t33374 * t86 + 0.4e1 * t519 * t11211 + 0.2e1 * t1981 * t3567 + 0.4e1 * t954 * t8854 + 0.8e1 * t2810 * t2844 + 0.2e1 * t3534 * t2018 + 0.4e1 * t11140 * t534 + 0.2e1 * t33248 * t90 + 0.2e1 * t77 * (t33769 + t33808) + 0.4e1 * t8781 * t966 + 0.7e1 / 0.2e1 * t2007 * t3594;
18942   t33826 = t11217 * t543;
18943   t33835 = t1981 * t990;
18944   t33838 = t519 * t2894;
18945   t33894 = -0.144e3 * t33374 + 0.80e2 * t33736 - t33739 + 0.75e2 / 0.4e1 * t26287 * t33291 - 0.6e1 * t7535 * t11265 - 0.3e1 * t2044 * t33283 - 0.9e1 / 0.2e1 * t26300 * t11256 - 0.9e1 / 0.4e1 * t7505 * t33287 - 0.3e1 * t7535 * t11270 - 0.3e1 * t2044 * t33314 - 0.3e1 / 0.2e1 * t2044 * t33346 - 0.9e1 / 0.4e1 * t7505 * t33280 + t7516 * t11270 / 0.2e1 + t2051 * t33314 / 0.2e1 + t2051 * t33346 / 0.4e1 + t7500 * t33280 / 0.8e1 + t7516 * t11265 + t2051 * t33283 / 0.2e1 + t26308 * t11256 / 0.4e1;
18946   t33929 = t7500 * t33287 / 0.8e1 + t26297 * t33291 / 0.16e2 - 0.6e1 * t28047 * t2879 - 0.6e1 * t9094 * t8926 - 0.3e1 * t9094 * t8924 - 0.9e1 / 0.2e1 * t28050 * t8914 + t28068 * t2879 + t9089 * t8926 + t9089 * t8924 / 0.2e1 - 0.9e1 / 0.4e1 * t26284 * t33291 + 0.12e2 * t28053 * t8914 - 0.30e2 * t2051 * t33291 + 0.6e1 * t7538 * t33280 + t28061 * t8914 / 0.4e1 + 0.12e2 * t26274 * t11256 + 0.6e1 * t7538 * t33287 + 0.20e2 * t33740 - 0.100e3 * t33742 - 0.10e2 * t33765 - 0.5e1 * t33767;
18947   t33940 = 0.1536e4 * t33290;
18948   t33941 = 0.6144e4 * t33592;
18949   t33942 = 0.1536e4 * t33624;
18950   t33943 = 0.1536e4 * t33626;
18951   t33944 = 0.1536e4 * t33628;
18952   t33945 = 0.1536e4 * t33590;
18953   t33946 = 0.1536e4 * t33630;
18954   t33947 = 0.768e3 * t33621;
18955   t33948 = 0.256e3 * t33600;
18956   t33949 = 0.80e2 * t33374 + 0.80e2 * t33542 + 0.40e2 * t33619 + 0.80e2 * t33594 + 0.40e2 * t33596 - t33940 - t33941 - t33942 - t33943 - t33944 - t33945 - t33946 - t33947 - t33948;
18957   t33965 = -t33772 - 0.10e2 * t33773 - t33776 - 0.5e1 / 0.4e1 * t33778 + 0.20e2 * t33780 + 0.55e2 / 0.2e1 * t33782 + t33949 * t86 + t33947 + t33942 + t33944 + t33946 + 0.10e2 * t78 * t33248 * t81 + t27964 * t8926 / 0.2e1 + 0.24e2 * t27967 * t8926 - 0.9e1 * t27961 * t8926 + t33945 + t2874 * t8898 + 0.2e1 * t9100 * t2882 - 0.10e2 * t33791 - 0.10e2 * t33800;
18958   t33973 = t3588 * t1999;
18959   t33980 = t3588 * t2006;
18960   t33984 = t11292 * t525;
18961   t33994 = t2042 * t11246 + t556 * t33474 / 0.2e1 - 0.3e1 / 0.2e1 * t26271 * t3591 + t7511 * t3594 / 0.2e1 - 0.3e1 / 0.2e1 * t33973 * t2045 - 0.3e1 * t2044 * t33482 + t2051 * t33482 / 0.2e1 + t33980 * t2045 / 0.4e1 + t28042 * t982 + t33984 * t557 + t11251 * t2048 / 0.2e1 + t26292 * t3591 / 0.4e1 - 0.144e3 * t33594 - 0.72e2 * t33596 + t33948 - 0.72e2 * t33619 + t33940 + t33943 - 0.144e3 * t33542 + t33941;
18962   t34001 = t77 * t11303;
18963   t34010 = 0.96e2 * t33374 * t109 + 0.192e3 * t14837 * t2810 + 0.96e2 * t33835 * t954 + 0.192e3 * t33838 * t954 + 0.192e3 * t11226 * t2810 + 0.96e2 * t27754 * t954 + 0.48e2 * t3539 * t2061 + 0.96e2 * t4961 * t8781 + 0.48e2 * t11239 * t1981 + 0.96e2 * t2862 * t8781 + 0.48e2 * t9068 * t3534 + 0.96e2 * t9071 * t3534 + 0.96e2 * t2028 * t11140 + 0.48e2 * t547 * t33248 + 0.24e2 * t83 * (t33894 + t33929 + t33965 + t33994) + 0.48e2 * t1987 * t3606 + 0.96e2 * t34001 * t519 + 0.192e3 * t9084 * t2810 + 0.96e2 * t2855 * t11140 + 0.48e2 * t7396 * t3534;
18964   t34022 = -t11219 * t1911 / 0.5e1 + 0.98e2 / 0.405e3 * t11313 * t1929 - 0.28e2 / 0.81e2 * t33124 * t583 - 0.14e2 / 0.81e2 * t11313 * t2074 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t33248 * t151 + 0.16e2 / 0.7e1 * t11140 * t618 + 0.8e1 / 0.7e1 * t3534 * t2146 + 0.16e2 / 0.7e1 * t8781 * t1026 + 0.32e2 / 0.7e1 * t2810 * t2975 + 0.16e2 / 0.7e1 * t954 * t9031 + 0.8e1 / 0.7e1 * t1981 * t3676 + 0.16e2 / 0.7e1 * t519 * t11472 + 0.8e1 / 0.7e1 * t77 * (t33300 + t33332 + t33363 + t33467 + t33501 + t33533 + t33569 + t33648)) * t41 * t45 * t157 - 0.28e2 / 0.81e2 * t33659 * t583 - 0.14042456296296296297e0 * t11477 * t626 - 0.21063684444444444444e-1 * t11477 * t630 + 0.6e1 / 0.25e2 * t33666 * t1882 + (-0.8e1 / 0.3e1 * t33248 * t93 - 0.16e2 / 0.3e1 * t11140 * t537 - 0.8e1 / 0.3e1 * t3534 * t2021 - 0.16e2 / 0.3e1 * t8781 * t969 - 0.32e2 / 0.3e1 * t2810 * t2847 - 0.16e2 / 0.3e1 * t954 * t8857 - 0.8e1 / 0.3e1 * t1981 * t3570 - 0.16e2 / 0.3e1 * t519 * t11214 - 0.8e1 / 0.3e1 * t77 * (t33711 + t33816)) * t98 + 0.25744503209876543210e0 * t3681 * t1918 + 0.56169825185185185185e-1 * t3681 * t1921 - 0.2e1 / 0.5e1 * t33826 * t506 + 0.14744579111111111111e-1 * t3681 * t1884 + 0.35e2 / 0.81e2 * t34010 * t120 * t124 + 0.70e2 / 0.81e2 * t11306 * t575 * t124 + 0.35e2 / 0.81e2 * t3609 * t1896 * t124 - 0.10531842222222222222e-1 * t3681 * t1915;
18965   t34035 = t38 * t1939 * t3767;
18966   t34054 = t38 * t485 * t11643;
18967   t34065 = t38 * t1939 * t3762;
18968   t34079 = 0.4e1 / 0.81e2 * t28758 - 0.56e2 / 0.243e3 * t26988 + 0.4e1 / 0.81e2 * t26991 + 0.2e1 * t9248 * t1045 + 0.4e1 * t9243 * t1045 + 0.2e1 * t9246 * t1045 + 0.4e1 * t3076 * t3034 - 0.2e1 / 0.27e2 * t34054 - 0.16e2 / 0.243e3 * t29077 - 0.284e3 / 0.243e3 * t29080 + 0.56e2 / 0.729e3 * t29087 - 0.4e1 / 0.27e2 * t38 * t7096 * t513 * t1064 + 0.4e1 / 0.81e2 * t29094 + 0.4e1 / 0.81e2 * t34065 - 0.56e2 / 0.243e3 * t29111 + 0.56e2 / 0.729e3 * t29126 + 0.2e1 * t2253 * t3711 - 0.56e2 / 0.243e3 * t490 * t7071 * t11710 * t454 - 0.28e2 / 0.243e3 * t490 * t7071 * t3716 * t1975;
18969   t34085 = t490 * t7081 * t11690;
18970   t34108 = t490 * t9192 * t11686;
18971   t34132 = 0.32e2 / 0.81e2 * t490 * t9159 * t3045 * t9 - 0.8e1 / 0.243e3 * t34085 + 0.8e1 / 0.81e2 * t490 * t2183 * t11720 * t454 + 0.8e1 / 0.81e2 * t490 * t2183 * t11724 * t454 + 0.4e1 / 0.81e2 * t490 * t2183 * t3724 * t1975 - 0.2e1 / 0.27e2 * t490 * t643 * t691 * t11134 - 0.8e1 / 0.27e2 * t490 * t3004 * t3111 * t9 + 0.44e2 / 0.81e2 * t34108 - 0.2e1 / 0.27e2 * t29135 + t27008 + 0.16e2 / 0.81e2 * t29138 + 0.64e2 / 0.729e3 * t29155 - 0.16e2 / 0.243e3 * t29158 - 0.8e1 / 0.243e3 * t29161 - 0.32e2 / 0.243e3 * t29164 - t490 * t643 * t3761 * t1975 / 0.27e2 + 0.8e1 / 0.81e2 * t490 * t2183 * t3720 * t1975 + 0.32e2 / 0.81e2 * t490 * t9159 * t11686 * t454 - 0.28e2 / 0.243e3 * t490 * t7071 * t3724 * t1970;
18972   t34135 = t490 * t27101 * t11694;
18973   t34142 = t490 * t28629 * t11698;
18974   t34155 = t490 * t7081 * t11702;
18975   t34158 = t490 * t7081 * t11710;
18976   t34166 = t681 * t3737;
18977   t34170 = t29013 * t11543;
18978   t34172 = t29013 * t11546;
18979   t34182 = t3074 * t3074;
18980   t34183 = t34182 * t186;
18981   t34188 = -0.160e3 / 0.729e3 * t28761 + 0.80e2 / 0.243e3 * t28767 + 0.4e1 * t3076 * t3075 + 0.2e1 / 0.27e2 * t28770 - 0.8e1 / 0.81e2 * t28773 - t26802 + 0.2e1 / 0.27e2 * t9369 * t34166 * t2275 + 0.40e2 / 0.243e3 * t34170 - 0.8e1 / 0.81e2 * t34172 - 0.20e2 / 0.81e2 * t9369 * t2269 * t3074 * t9376 - 0.5e1 / 0.81e2 * t679 * t2270 * t3740 * t1970 - t679 * t687 * t34183 / 0.9e1 + 0.368e3 / 0.243e3 * t28840;
18982   t34190 = t679 * t7215 * t3740;
18983   t34193 = t679 * t7211 * t3747;
18984   t34196 = t679 * t7265 * t11570;
18985   t34203 = t679 * t28852 * t11574;
18986   t34215 = t179 * t485 * t3729;
18987   t34221 = t179 * t485 * t3733;
18988   t34223 = -0.32e2 / 0.243e3 * t26883 - 0.4e1 / 0.243e3 * t26886 + 0.4e1 / 0.81e2 * t26889 + t26881 - 0.16e2 / 0.27e2 * t28784 - 0.16e2 / 0.243e3 * t28794 + 0.8e1 / 0.81e2 * t28797 + 0.32e2 / 0.81e2 * t28800 - 0.32e2 / 0.243e3 * t28817 - 0.4e1 / 0.243e3 * t34215 + 0.8e1 / 0.27e2 * t179 * t1939 * t949 + 0.4e1 / 0.81e2 * t34221;
18989   t34229 = t179 * t40 * t11622;
18990   t34233 = t3528 * t1970;
18991   t34238 = t3065 * t2183 * t11607;
18992   t34241 = t3065 * t3004 * t11611;
18993   t34243 = t3523 * t1975;
18994   t34251 = t3065 * t643 * t11618;
18995   t34253 = t11134 * t454;
18996   t34257 = t3528 * t1975;
18997   t34261 = t3523 * t1970;
18998   t34265 = 0.16e2 / 0.27e2 * t179 * t32274 * t513 * t31099 - 0.8e1 / 0.27e2 * t34229 - 0.256e3 / 0.81e2 * t28781 - 0.32e2 / 0.243e3 * t28791 - 0.8e1 / 0.81e2 * t3065 * t9325 * t34233 - 0.32e2 / 0.243e3 * t34238 - 0.40e2 / 0.81e2 * t34241 - 0.8e1 / 0.81e2 * t3065 * t9325 * t34243 - 0.64e2 / 0.81e2 * t3065 * t27087 * t33198 + 0.8e1 / 0.81e2 * t34251 + 0.4e1 / 0.27e2 * t3065 * t3066 * t34253 + 0.2e1 / 0.27e2 * t3065 * t3066 * t34257 + 0.56e2 / 0.243e3 * t3065 * t28819 * t34261;
18999   t34267 = (t34223 + t34265) * t186;
19000   t34274 = -0.5e1 / 0.81e2 * t34190 + 0.20e2 / 0.243e3 * t34193 + 0.20e2 / 0.243e3 * t34196 - 0.5e1 / 0.81e2 * t679 * t2270 * t2253 * t3523 + 0.260e3 / 0.243e3 * t34203 - 0.16e2 / 0.81e2 * t28843 + t34267 + 0.20e2 / 0.243e3 * t28850 + 0.80e2 / 0.243e3 * t28854 - 0.4e1 / 0.81e2 * t28857 - 0.200e3 / 0.729e3 * t28876 + 0.40e2 / 0.243e3 * t28881 + 0.40e2 / 0.243e3 * t28884;
19001   t34295 = t681 * t3739;
19002   t34303 = t7243 * t1055;
19003   t34311 = t186 * t3523 * t454;
19004   t34315 = -0.20e2 / 0.81e2 * t28887 - 0.10e2 / 0.81e2 * t9369 * t11542 * t29030 - 0.40e2 / 0.81e2 * t28949 * t11542 * t28951 + 0.4e1 / 0.27e2 * t9369 * t29008 * t3087 + 0.2e1 / 0.27e2 * t9369 * t9370 * t9266 + 0.8e1 / 0.27e2 * t28949 * t9370 * t9295 + 0.4e1 / 0.27e2 * t9369 * t9370 * t9306 + 0.2e1 / 0.27e2 * t9369 * t34295 * t2275 - 0.2e1 / 0.9e1 * t9369 * t28998 * t9244 + 0.20e2 / 0.243e3 * t26846 + 0.80e2 / 0.243e3 * t9369 * t34303 * t28941 + 0.2e1 / 0.27e2 * t9369 * t9370 * t9281 + 0.80e2 / 0.243e3 * t9369 * t28940 * t34311;
19005   t34316 = t9375 * t9;
19006   t34324 = t3737 * t2252 * t186;
19007   t34326 = t3739 * t2252 * t186;
19008   t34333 = t186 * t3528 * t454;
19009   t34338 = t679 * t26925 * t3743;
19010   t34353 = -0.40e2 / 0.81e2 * t28949 * t9374 * t34316 + 0.320e3 / 0.243e3 * t28949 * t29026 * t33198 + t34324 + t34326 + 0.2e1 * t34183 - 0.8e1 / 0.81e2 * t28956 + 0.2e1 / 0.27e2 * t28959 - 0.4e1 / 0.81e2 * t28962 + 0.4e1 / 0.27e2 * t28965 - 0.10e2 / 0.81e2 * t9369 * t9374 * t34333 - 0.50e2 / 0.729e3 * t34338 - 0.40e2 / 0.81e2 * t679 * t32590 * t2269 * t192 * t31099 + t679 * t682 * t2253 * t3528 / 0.27e2 - 0.5e1 / 0.81e2 * t679 * t2270 * t3738 * t1970;
19011   t34381 = t679 * t2260 * t11594;
19012   t34389 = -0.440e3 / 0.729e3 * t679 * t26949 * t3743 * t1970 + 0.40e2 / 0.243e3 * t679 * t7244 * t3751 * t1970 - 0.10e2 / 0.81e2 * t679 * t2270 * t11634 * t454 - 0.5e1 / 0.81e2 * t679 * t2270 * t3751 * t1975 + t679 * t682 * t2251 * t3528 / 0.27e2 + 0.2e1 / 0.27e2 * t679 * t682 * t671 * t11134 - 0.4e1 / 0.81e2 * t34381 - 0.50e2 / 0.729e3 * t26927 - 0.160e3 / 0.729e3 * t26959 + 0.80e2 / 0.243e3 * t26963 + 0.10e2 / 0.243e3 * t26966 - 0.5e1 / 0.81e2 * t26969 - 0.5e1 / 0.81e2 * t26972;
19013   t34400 = t679 * t7265 * t11586;
19014   t34403 = t679 * t2260 * t11590;
19015   t34406 = t3739 * t2250 * t186;
19016   t34419 = t679 * t2260 * t11578;
19017   t34422 = t679 * t9361 * t11582;
19018   t34428 = t1056 * t9341;
19019   t34437 = t679 * t2260 * t11634;
19020   t34439 = -0.20e2 / 0.81e2 * t28982 + 0.2e1 / 0.27e2 * t679 * t682 * t11627 * t454 + 0.8e1 / 0.27e2 * t679 * t3093 * t3075 * t9 + 0.20e2 / 0.243e3 * t34400 - 0.4e1 / 0.81e2 * t34403 - t679 * t687 * t34406 / 0.18e2 - 0.5e1 / 0.81e2 * t679 * t2270 * t2251 * t3523 + 0.2e1 / 0.27e2 * t679 * t682 * t9342 * t943 - 0.8e1 / 0.81e2 * t34419 - 0.52e2 / 0.81e2 * t34422 + t679 * t682 * t3740 * t1975 / 0.27e2 - t679 * t687 * t34428 / 0.9e1 - 0.20e2 / 0.81e2 * t9369 * t11542 * t670 * t9376 - 0.4e1 / 0.81e2 * t34437;
19021   t34442 = t679 * t2264 * t11627;
19022   t34448 = t679 * t7215 * t3738;
19023   t34454 = t679 * t7211 * t3751;
19024   t34462 = t11626 * t670 * t186;
19025   t34467 = t3737 * t2250 * t186;
19026   t34472 = t679 * t2260 * t11560;
19027   t34475 = t679 * t2264 * t11528;
19028   t34478 = t679 * t2264 * t11531;
19029   t34480 = 0.2e1 / 0.27e2 * t34442 - 0.20e2 / 0.81e2 * t679 * t9261 * t1057 - 0.5e1 / 0.81e2 * t34448 + 0.4e1 / 0.27e2 * t679 * t3093 * t1056 + 0.10e2 / 0.243e3 * t34454 - t679 * t687 * t34267 / 0.18e2 + 0.40e2 / 0.243e3 * t29014 - 0.8e1 / 0.81e2 * t29016 - t679 * t687 * t34462 / 0.9e1 - t679 * t687 * t34467 / 0.18e2 - 0.4e1 / 0.81e2 * t34472 + 0.4e1 / 0.27e2 * t34475 + 0.2e1 / 0.27e2 * t34478;
19030   t34486 = t679 * t26943 * t11553;
19031   t34496 = t679 * t2264 * t11533;
19032   t34507 = t679 * t682 * t3738 * t1975 / 0.27e2 - 0.160e3 / 0.729e3 * t34486 + 0.40e2 / 0.243e3 * t679 * t7244 * t3743 * t1975 - t679 * t687 * t34326 / 0.18e2 + 0.2e1 / 0.27e2 * t34496 - t679 * t687 * t34324 / 0.18e2 + t34467 + 0.2e1 * t34428 + t34406 + 0.2e1 * t34462 + 0.20e2 / 0.243e3 * t29042 + 0.2e1 / 0.27e2 * t29045 - 0.160e3 / 0.729e3 * t29057 - 0.4e1 / 0.81e2 * t29060;
19033   t34524 = t31412 * t1969;
19034   t34530 = t490 * t2176 * t11706;
19035   t34536 = 0.56e2 / 0.729e3 * t34135 + 0.280e3 / 0.729e3 * t490 * t27105 * t3716 * t1970 - 0.176e3 / 0.243e3 * t34142 - 0.56e2 / 0.243e3 * t490 * t7071 * t3720 * t1970 + 0.2e1 * t9342 * t1044 + 0.4e1 * t3075 * t3033 + 0.2e1 * t1056 * t9457 - 0.16e2 / 0.243e3 * t34155 - 0.8e1 / 0.243e3 * t34158 + t38 * t40 * t71 * (t34188 + t34274 + t34315 + t34353 + t34389 + t34439 + t34480 + t34507) / 0.9e1 + 0.8e1 / 0.81e2 * t29180 - 0.2e1 / 0.27e2 * t490 * t643 * t11642 * t454 + 0.16e2 / 0.729e3 * t27089 + 0.56e2 / 0.729e3 * t27092 - 0.8e1 / 0.243e3 * t27095 - 0.4e1 / 0.243e3 * t27111 + 0.32e2 / 0.81e2 * t490 * t34524 * t197 * t31099 + 0.4e1 / 0.81e2 * t34530 + 0.4e1 / 0.81e2 * t490 * t2183 * t3761 * t1970;
19036   t34538 = t490 * t2176 * t11714;
19037   t34544 = t166 * t674 * t3707;
19038   t34547 = t166 * t674 * t3703;
19039   t34558 = t166 * t190 * t11667;
19040   t34567 = t3023 * t2270 * t11607;
19041   t34569 = -0.4e1 / 0.81e2 * t29192 - 0.16e2 / 0.81e2 * t29195 + 0.20e2 / 0.243e3 * t29214 - t27011 - 0.2e1 / 0.81e2 * t34544 + 0.4e1 / 0.243e3 * t34547 - 0.8e1 / 0.27e2 * t166 * t2256 * t681 * t943 - 0.16e2 / 0.27e2 * t166 * t32650 * t681 * t31099 + 0.2e1 / 0.27e2 * t34558 - 0.4e1 / 0.27e2 * t3023 * t3024 * t34253 - 0.2e1 / 0.27e2 * t3023 * t3024 * t34257 + 0.20e2 / 0.243e3 * t34567;
19042   t34571 = t3023 * t3093 * t11611;
19043   t34586 = t3023 * t682 * t11618;
19044   t34595 = 0.56e2 / 0.81e2 * t34571 + 0.10e2 / 0.81e2 * t3023 * t9444 * t34243 + 0.10e2 / 0.81e2 * t3023 * t9444 * t34233 - 0.80e2 / 0.243e3 * t3023 * t29222 * t34261 + 0.20e2 / 0.243e3 * t27013 + 0.4e1 / 0.243e3 * t27016 - 0.2e1 / 0.81e2 * t27019 - 0.4e1 / 0.81e2 * t34586 + 0.4e1 / 0.27e2 * t29211 + 0.20e2 / 0.243e3 * t29186 + 0.164e3 / 0.81e2 * t29208 + 0.16e2 / 0.243e3 * t29189 + 0.80e2 / 0.81e2 * t3023 * t26925 * t33198;
19045   t34604 = t490 * t7100 * t3724;
19046   t34616 = t490 * t7100 * t3720;
19047   t34627 = t490 * t2176 * t11720;
19048   t34630 = t490 * t2176 * t11724;
19049   t34634 = t490 * t27087 * t3716;
19050   t34644 = 0.2e1 / 0.81e2 * t34538 + 0.2e1 * t186 * (t34569 + t34595) + 0.2e1 * t2251 * t3711 + 0.4e1 * t671 * t11671 - 0.4e1 / 0.243e3 * t34604 + 0.16e2 / 0.81e2 * t490 * t9159 * t1047 - 0.16e2 / 0.243e3 * t29248 + 0.2e1 / 0.81e2 * t29251 - t490 * t643 * t2289 * t3528 / 0.27e2 - 0.8e1 / 0.243e3 * t34616 - 0.2e1 / 0.27e2 * t490 * t643 * t9381 * t943 + 0.4e1 / 0.81e2 * t490 * t2183 * t2289 * t3523 + 0.2e1 / 0.81e2 * t34627 + 0.2e1 / 0.81e2 * t34630 + 0.2e1 / 0.81e2 * t29258 + 0.16e2 / 0.729e3 * t34634 + 0.16e2 / 0.81e2 * t490 * t2183 * t11706 * t454 - 0.8e1 / 0.243e3 * t29265 - 0.224e3 / 0.243e3 * t27853 * t29271 * t33198;
19051   t34662 = 0.64e2 / 0.729e3 * t28609 - 0.16e2 / 0.243e3 * t26778 - t26782 + 0.224e3 / 0.729e3 * t28613 - 0.16e2 / 0.243e3 * t34035 - 0.16e2 / 0.243e3 * t28621 - 0.256e3 / 0.2187e4 * t28624 + 0.32e2 / 0.729e3 * t28627 + 0.128e3 / 0.729e3 * t28631 + 0.8e1 / 0.81e2 * t28634 - 0.4e1 / 0.27e2 * t38 * t40 * t71 * (t34079 + t34132 + t34536 + t34644) - 0.16e2 / 0.243e3 * t28646 - 0.32e2 / 0.243e3 * t28649 + 0.224e3 / 0.729e3 * t27139 + 0.16e2 / 0.81e2 * t38 * t7096 * t513 * t1069 - 0.16e2 / 0.243e3 * t490 * t2183 * t2294 * t3523;
19052   t34664 = t490 * t7081 * t11749;
19053   t34667 = t490 * t2176 * t11507;
19054   t34670 = t490 * t7100 * t3696;
19055   t34673 = t490 * t2176 * t11745;
19056   t34676 = t490 * t2176 * t11513;
19057   t34679 = t490 * t2176 * t11737;
19058   t34686 = t490 * t9192 * t11741;
19059   t34698 = t490 * t7100 * t3692;
19060   t34704 = t490 * t7081 * t11488;
19061   t34711 = 0.32e2 / 0.729e3 * t34664 - 0.8e1 / 0.243e3 * t34667 + 0.16e2 / 0.729e3 * t34670 - 0.16e2 / 0.243e3 * t34673 - 0.8e1 / 0.243e3 * t34676 - 0.8e1 / 0.243e3 * t34679 - 0.128e3 / 0.243e3 * t490 * t34524 * t202 * t31099 - 0.176e3 / 0.243e3 * t34686 + 0.4e1 / 0.81e2 * t490 * t643 * t2294 * t3528 + 0.8e1 / 0.81e2 * t490 * t643 * t9467 * t943 + 0.64e2 / 0.729e3 * t28686 + 0.32e2 / 0.729e3 * t34698 - 0.64e2 / 0.243e3 * t490 * t9159 * t1036 + 0.32e2 / 0.729e3 * t34704 - 0.32e2 / 0.243e3 * t490 * t2183 * t11507 * t454 - 0.64e2 / 0.2187e4 * t27156;
19062   t34743 = t490 * t27087 * t3688;
19063   t34747 = t490 * t7081 * t11500;
19064   t34754 = 0.32e2 / 0.729e3 * t28700 - 0.224e3 / 0.2187e4 * t28708 - 0.64e2 / 0.243e3 * t28715 + 0.1136e4 / 0.729e3 * t28719 - 0.224e3 / 0.2187e4 * t28722 - 0.32e2 / 0.243e3 * t490 * t2183 * t3692 * t1975 - 0.128e3 / 0.243e3 * t490 * t9159 * t11741 * t454 + 0.8e1 / 0.81e2 * t490 * t643 * t11729 * t454 + 0.32e2 / 0.81e2 * t490 * t3004 * t3116 * t9 + 0.4e1 / 0.81e2 * t490 * t643 * t3766 * t1975 - 0.64e2 / 0.243e3 * t490 * t2183 * t11745 * t454 - 0.64e2 / 0.2187e4 * t34743 + 0.16e2 / 0.729e3 * t27200 + 0.64e2 / 0.729e3 * t34747 + 0.8e1 / 0.81e2 * t490 * t643 * t696 * t11134 + 0.64e2 / 0.729e3 * t28736;
19065   t34757 = t38 * t485 * t11730;
19066   t34799 = t490 * t27101 * t11492;
19067   t34802 = t490 * t28629 * t11496;
19068   t34807 = -0.8e1 / 0.243e3 * t28739 + 0.8e1 / 0.81e2 * t34757 + 0.224e3 / 0.729e3 * t490 * t7071 * t11749 * t454 + 0.112e3 / 0.729e3 * t490 * t7071 * t3688 * t1975 - 0.128e3 / 0.243e3 * t490 * t9159 * t3000 * t9 - 0.1120e4 / 0.2187e4 * t490 * t27105 * t3688 * t1970 - 0.8e1 / 0.243e3 * t28753 - 0.16e2 / 0.243e3 * t490 * t2183 * t3766 * t1970 - 0.224e3 / 0.2187e4 * t27207 + 0.32e2 / 0.729e3 * t27210 + 0.224e3 / 0.729e3 * t490 * t7071 * t3692 * t1970 + 0.112e3 / 0.729e3 * t490 * t7071 * t3696 * t1970 - 0.32e2 / 0.243e3 * t490 * t2183 * t11513 * t454 - 0.16e2 / 0.243e3 * t490 * t2183 * t3696 * t1975 - 0.224e3 / 0.2187e4 * t34799 + 0.704e3 / 0.729e3 * t34802 + 0.896e3 / 0.729e3 * t27853 * t28727 * t33198;
19069   t34818 = t1853 * t3684 - 0.12e2 * t1855 * t11099 + 0.2e1 * t474 * t11484 + 0.54e2 * t1862 * t33105 * t1839 - 0.12e2 * t478 * t33109 * t468 - 0.12e2 * t478 * t33113 * t1839 - 0.6e1 * t478 * t11098 * t1845 + t33 * t34022 + t2165 * t3771 * t230 + 0.2e1 * t637 * t11763 * t230 + t11486 * t732 / 0.5e1 + t162 * (t34662 + t34711 + t34754 + t34807) * t230 + t11764 * t732 / 0.5e1 - 0.9e1 / 0.100e3 * t3772 * t2307 + t3772 * t2342 / 0.10e2;
19070   t34827 = t3132 * t7937 * t11797;
19071   t34830 = t8654 * t3133 * t3779 * t2421 / 0.9e1 + 0.2e1 / 0.9e1 * t30975 - t30978 / 0.9e1 + t2775 * t2417 * t3774 * t1827 / 0.2e1 + 0.4e1 / 0.9e1 * t30981 + 0.2e1 / 0.3e1 * t30988 + t30990 / 0.3e1 - t33080 / 0.9e1 + 0.4e1 / 0.9e1 * t8636 * t8630 * t11781 * t455 - t8 * t1811 * t2399 * t3507 / 0.6e1 + 0.2e1 / 0.9e1 * t8654 * t11807 * t8655 - 0.2e1 / 0.9e1 * t33095 + t2775 * t2417 * t9490 * t944 + 0.3e1 / 0.8e1 * t8 * t18 * p->cam_beta * t34818 + 0.2e1 / 0.9e1 * t8636 * t8626 * t11074 + t34827 / 0.9e1 + 0.4e1 / 0.27e2 * t31002;
19072   t34842 = t10312 / 0.4e1 - 0.2e1 * t8617 - 0.4e1 / 0.3e1 * t8619 + 0.5e1 / 0.3e1 * t8624 - 0.2e1 / 0.3e1 * t8628 - 0.2e1 / 0.3e1 * t8633 + 0.2e1 / 0.9e1 * t8639 - 0.4e1 / 0.9e1 * t8643 + t10317 - t10320 / 0.9e1 - t8647 + t10 * (t31074 + t31109 + t31157 + t31191 + t31231 + t31267 + t33065 + t34830) - 0.2e1 * t8652 + 0.3e1 / 0.4e1 * t11068 + 0.2e1 / 0.9e1 * t8657 - 0.4e1 / 0.9e1 * t8661 + 0.2e1 / 0.3e1 * t7939 + t7950 / 0.4e1 - t7958 / 0.3e1 + t8667;
19073   t34860 = -t7962 / 0.9e1 - t7965 / 0.2e1 - t8675 + 0.2e1 * t11073 + 0.2e1 / 0.9e1 * t11076 + 0.2e1 * t11082 - t11086 + 0.2e1 * t11090 + t8678 + t8681 - t11093 / 0.3e1 + 0.2e1 / 0.3e1 * t7974 - t7986 / 0.9e1 - 0.2e1 / 0.3e1 * t7989 + t8687 / 0.2e1 - 0.4e1 / 0.3e1 * t8690 - t8694 / 0.3e1 + 0.3e1 / 0.4e1 * t9493 + 0.3e1 / 0.4e1 * t10230 + 0.3e1 / 0.4e1 * t11771;
19074   t34881 = t10246 / 0.3e1 + 0.2e1 / 0.9e1 * t11791 - t11795 / 0.3e1 + t11799 / 0.3e1 + 0.2e1 / 0.3e1 * t11803 + 0.2e1 * t10250 - t8561 / 0.4e1 + 0.2e1 / 0.3e1 * t10255 + 0.2e1 / 0.3e1 * t10258 - 0.5e1 / 0.3e1 * t10262 - 0.2e1 / 0.3e1 * t11809;
19075   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19076     v4rho4[2] = t31026 + t34842 + t34860 - t8530 / 0.3e1 + 0.2e1 / 0.3e1 * t8546 + t10236 + 0.2e1 * t11776 + 0.2e1 / 0.3e1 * t11779 - 0.2e1 / 0.3e1 * t11783 - t11786 / 0.3e1 - t10239 / 0.2e1 - t27634 + 0.4e1 / 0.3e1 * t10242 + t34881;
19077 
19078   t34890 = -t11824 - t24763 + t11829 + t10272 - t10275 - t10279 / 0.2e1 - 0.3e1 / 0.2e1 * t10285 - 0.2e1 * t10288 + t6955 - t11834 - t11840 + t11845 - t11850 - 0.3e1 / 0.2e1 * t10293 + 0.3e1 / 0.2e1 * t10297 - t10300 / 0.3e1;
19079   t34897 = -t11855 - t11859 + t11863 - 0.3e1 / 0.4e1 * t10303 + t8598 + t8601 - 0.3e1 / 0.2e1 * t10309 + 0.3e1 / 0.4e1 * t10312 - t8619 - t8624 - t27647 + 0.3e1 / 0.2e1 * t10317 - t10320 / 0.3e1 + t12291 - t13133 + 0.9e1 / 0.8e1 * t11068;
19080   t34912 = t8 * t1817 * t11837;
19081   t34915 = t8 * t460 * t12288;
19082   t34933 = -0.5e1 / 0.27e2 * t29407 * t2755 * t11825 * t455 - t34912 / 0.6e1 + t34915 / 0.8e1 + t31047 / 0.2e1 - t27685 / 0.3e1 + t31055 / 0.9e1 - 0.2e1 / 0.3e1 * t31064 + t8636 * t2755 * t11856 * t455 / 0.3e1 + t31070 / 0.4e1 - 0.5e1 / 0.36e2 * t25784 - 0.5e1 / 0.9e1 * t27712 + t2754 * t2417 * t13135 * t455 / 0.2e1 - 0.5e1 / 0.27e2 * t27511;
19083   t34937 = t8 * t772 * t13130;
19084   t34958 = t31084 / 0.3e1 - t29348 + t31092 - t31095 / 0.3e1 + t29363 - t34937 / 0.8e1 - t8654 * t2417 * t936 * t11841 / 0.9e1 - t8654 * t10252 * t3779 * t9 / 0.3e1 + 0.5e1 / 0.36e2 * t27521 - t31119 / 0.6e1 - t3132 * t3133 * t1082 * t11083 / 0.2e1 + t3132 * t10252 * t9 * t3788 / 0.2e1 + 0.3e1 / 0.8e1 * t31125;
19085   t34961 = t12121 * t26;
19086   t34969 = t12146 * t454;
19087   t34983 = t490 * t1947 * t11882;
19088   t34986 = t490 * t1947 * t11873;
19089   t34988 = t26061 - t5889 * t8735 * t12146 * t506 / 0.135e3 - 0.14e2 / 0.81e2 * t5889 * t27859 * t34969 + 0.14e2 / 0.243e3 * t27773 - 0.4e1 / 0.81e2 * t27779 + t33150 / 0.405e3 + 0.14e2 / 0.243e3 * t33153 - 0.8e1 / 0.81e2 * t33156 - t33168 / 0.540e3 - 0.2e1 / 0.81e2 * t33171 + 0.7e1 / 0.1215e4 * t26180 + 0.14e2 / 0.729e3 * t26183 + t34983 / 0.162e3 + 0.14e2 / 0.729e3 * t34986;
19090   t34991 = 0.12e2 * t7060 + 0.24e2 * t24817;
19091   t35030 = t490 * t1947 * t11877;
19092   t35032 = -t490 * t511 * t513 * t34991 / 0.54e2 + t33227 / 0.54e2 + 0.8e1 / 0.243e3 * t33230 - 0.2e1 / 0.81e2 * t33236 + 0.7e1 / 0.1215e4 * t490 * t493 * t11873 * t506 + 0.140e3 / 0.729e3 * t490 * t511 * t26143 * t11872 * t454 - 0.28e2 / 0.81e2 * t490 * t2804 * t11113 * t9 + 0.2e1 / 0.27e2 * t490 * t511 * t2797 * t11134 + 0.4e1 / 0.27e2 * t490 * t2804 * t8768 * t3528 + t490 * t493 * t11882 * t506 / 0.540e3 + 0.2e1 / 0.81e2 * t490 * t511 * t1969 * t11881 * t454 - 0.2e1 / 0.81e2 * t35030 + t27867 + t27870;
19093   t35034 = my_piecewise3(t76, 0, t34988 + t35032);
19094   t35058 = t79 * t35034 * t86;
19095   t35066 = t4923 * t11270;
19096   t35069 = 0.15e2 / 0.2e1 * t8826 * t11270;
19097   t35077 = -0.4e1 * t2836 * t11887 - 0.4e1 * t529 * t35034 - t35058 - 0.12e2 * t15023 * t3534 - 0.12e2 * t4943 * t11140 + t525 * t35034 * t86 / 0.2e1 + 0.45e2 / 0.2e1 * t35066 - t35069 + 0.3e1 / 0.8e1 * t33754 * t2879 - t615 * t11991 - 0.3e1 * t2972 * t3594 - 0.3e1 * t1023 * t11246;
19098   t35078 = t2006 * t11887;
19099   t35090 = t8823 * t3594;
19100   t35092 = t2827 * t11246;
19101   t35095 = 0.15e2 / 0.2e1 * t11183 * t2882;
19102   t35097 = t26252 * t11894 * t557;
19103   t35100 = t1999 * t11887 * t557;
19104   t35102 = t11895 * t557;
19105   t35104 = t3540 * t2882;
19106   t35106 = t11900 * t557;
19107   t35108 = t35078 * t557 / 0.4e1 + 0.3e1 / 0.4e1 * t33759 * t982 + 0.3e1 / 0.4e1 * t11192 * t2882 + 0.3e1 / 0.8e1 * t11197 * t2882 + t26296 * t11894 * t557 / 0.16e2 - 0.6e1 * t35090 - 0.6e1 * t35092 - t35095 - 0.19e2 / 0.8e1 * t35097 - 0.2e1 * t35100 - 0.75e2 / 0.2e1 * t35102 + 0.45e2 / 0.2e1 * t35104 + 0.85e2 / 0.4e1 * t35106;
19108   t35127 = t2817 * t3534;
19109   t35128 = t7699 * t35127;
19110   t35130 = 0.2e1 * t35034 * t90 + 0.2e1 * t519 * t11939 + 0.2e1 * t77 * (t35077 + t35108) + 0.6e1 * t2810 * t3567 + 0.6e1 * t954 * t11211 + 0.6e1 * t11140 * t966 + 0.6e1 * t3534 * t2844 + 0.2e1 * t11887 * t534 - t521 * t35034 + 0.21e2 / 0.2e1 * t2833 * t11270 - 0.3e1 / 0.4e1 * t14978 * t11270 - 0.18e2 * t35128;
19111   t35131 = t2810 * t3534;
19112   t35134 = t954 * t11140;
19113   t35137 = t519 * t11887;
19114   t35144 = t26380 * t11894;
19115   t35147 = t519 * t11894;
19116   t35148 = t26388 * t35147;
19117   t35150 = t3539 * t2810;
19118   t35151 = t7699 * t35150;
19119   t35153 = t11920 * t557;
19120   t35163 = 0.6e1 * t1991 * t35131 + 0.6e1 * t1991 * t35134 + 0.2e1 * t1991 * t35137 - t2814 * t11991 / 0.2e1 - 0.3e1 / 0.4e1 * t11154 * t2882 - t35144 * t557 / 0.8e1 + 0.24e2 * t35148 - 0.18e2 * t35151 - 0.24e2 * t35153 + 0.21e2 / 0.2e1 * t3556 * t2882 + 0.15e2 / 0.4e1 * t11928 * t557 - 0.3e1 / 0.2e1 * t14975 * t3594 - 0.3e1 / 0.2e1 * t4923 * t11246;
19121   t35169 = t11945 * t543;
19122   t35182 = t519 * t3606;
19123   t35201 = t77 * t12001;
19124   t35210 = t35034 * t86;
19125   t35224 = t35147 * t86;
19126   t35229 = t2882 * t3534;
19127   t35232 = t982 * t11140;
19128   t35239 = t26308 * t11961 / 0.8e1 - 0.9e1 / 0.4e1 * t26300 * t11961 + t2042 * t11991 / 0.2e1 + t556 * t35210 / 0.2e1 + 0.6e1 * t26274 * t11961 - 0.9e1 / 0.2e1 * t28047 * t3591 + 0.18e2 * t27967 * t11270 - 0.27e2 / 0.4e1 * t27961 * t11270 + 0.3e1 / 0.8e1 * t7500 * t3534 * t2879 + t26297 * t35224 / 0.16e2 - 0.9e1 / 0.2e1 * t7535 * t11964 - 0.9e1 / 0.2e1 * t2044 * t35229 - 0.9e1 / 0.2e1 * t2044 * t35232 + 0.3e1 / 0.4e1 * t7516 * t11964 + 0.3e1 / 0.4e1 * t2051 * t35232;
19129   t35254 = t3591 * t2810;
19130   t35259 = t11991 * t519;
19131   t35267 = t77 * t35034;
19132   t35269 = 0.1536e4 * t35147;
19133   t35270 = t3618 * t2810;
19134   t35271 = 0.4608e4 * t35270;
19135   t35272 = t976 * t11165;
19136   t35273 = 0.4608e4 * t35272;
19137   t35274 = t2913 * t3534;
19138   t35275 = 0.2304e4 * t35274;
19139   t35276 = t999 * t11140;
19140   t35277 = 0.2304e4 * t35276;
19141   t35278 = t12071 * t519;
19142   t35279 = 0.768e3 * t35278;
19143   t35280 = t128 * t35034;
19144   t35281 = 0.256e3 * t35280;
19145   t35282 = 0.120e3 * t35131 + 0.120e3 * t35134 + 0.40e2 * t35137 + 0.40e2 * t35267 - t35269 - t35271 - t35273 - t35275 - t35277 - t35279 - t35281;
19146   t35286 = 0.3e1 / 0.4e1 * t2051 * t35229 - 0.9e1 / 0.2e1 * t33973 * t2879 + 0.3e1 / 0.4e1 * t33980 * t2879 - 0.9e1 / 0.2e1 * t9094 * t11270 + 0.3e1 / 0.4e1 * t9089 * t11270 + 0.3e1 / 0.2e1 * t9089 * t11265 + 0.3e1 / 0.8e1 * t28061 * t11256 - 0.27e2 / 0.4e1 * t7505 * t35254 - 0.9e1 / 0.4e1 * t26284 * t35224 - 0.3e1 / 0.2e1 * t2044 * t35259 + t2051 * t35259 / 0.4e1 + t35282 * t86 - 0.216e3 * t35131 - 0.216e3 * t35134 + t35269 + t35281;
19147   t35309 = -0.72e2 * t35137 - 0.72e2 * t35267 + 0.3e1 / 0.8e1 * t7500 * t35254 + 0.18e2 * t28053 * t11256 - 0.9e1 * t9094 * t11265 - 0.27e2 / 0.4e1 * t28050 * t11256 - 0.30e2 * t2051 * t35224 + 0.18e2 * t7538 * t35254 + 0.75e2 / 0.4e1 * t26287 * t35224 - 0.10e2 * t35058 + 0.60e2 * t35066 - t35069 + 0.10e2 * t78 * t35034 * t81 + t35271 + t35275 + t35277;
19148   t35325 = t11978 * t525;
19149   t35330 = t35279 - 0.15e2 * t35090 - 0.15e2 * t35092 - t35095 - 0.5e1 / 0.4e1 * t35097 - 0.5e1 * t35100 - 0.100e3 * t35102 + 0.60e2 * t35104 + 0.55e2 / 0.2e1 * t35106 + t35273 + 0.3e1 / 0.2e1 * t2874 * t11246 + 0.3e1 / 0.4e1 * t28068 * t3591 + 0.3e1 / 0.2e1 * t11251 * t2882 + 0.3e1 / 0.2e1 * t9100 * t3594 + t35325 * t557 / 0.2e1 + 0.3e1 / 0.2e1 * t33984 * t982;
19150   t35335 = 0.144e3 * t14834 * t3534 + 0.144e3 * t14837 * t3534 + 0.144e3 * t4961 * t11140 + 0.288e3 * t15759 * t2810 + 0.144e3 * t3539 * t2894 + 0.144e3 * t35182 * t954 + 0.144e3 * t34001 * t954 + 0.144e3 * t11239 * t2810 + 0.144e3 * t11226 * t3534 + 0.144e3 * t9084 * t3534 + 0.144e3 * t2862 * t11140 + 0.48e2 * t2855 * t11887 + 0.48e2 * t2028 * t11887 + 0.48e2 * t547 * t35034 + 0.48e2 * t35201 * t519 + 0.24e2 * t83 * (t35239 + t35286 + t35309 + t35330);
19151   t35342 = t12005 * t41;
19152   t35382 = 0.3e1 / 0.2e1 * t11465 * t2882 - 0.2e1 * t614 * t84 * t35034 + 0.3e1 / 0.2e1 * t33531 * t982 - 0.480e3 * t11937 * t557 - 0.1440e4 * t11209 * t982 - 0.1440e4 * t3565 * t2882 + 0.432e3 * t2110 * t35131 + 0.432e3 * t2110 * t35134 + 0.720e3 * t2889 * t3663 + 0.720e3 * t986 * t11448 + 0.240e3 * t561 * t12101;
19153   t35396 = t12091 * t525;
19154   t35408 = 0.240e3 * t106 * t35034 * t81 + 0.432e3 * t8954 * t11165 + 0.144e3 * t2110 * t35137 + 0.432e3 * t33580 * t2817 + 0.2160e4 * t3591 * t2972 + 0.864e3 * t8954 * t11160 + t35396 * t557 / 0.2e1 - 0.27e2 / 0.4e1 * t28196 * t11270 + 0.3e1 / 0.8e1 * t7655 * t3534 * t2879 + 0.21e2 * t14670 * t11270 - 0.3e1 / 0.2e1 * t14673 * t11270;
19155   t35420 = t519 * t1017;
19156   t35433 = -0.36e2 * t14676 * t35127 + 0.18e2 * t28184 * t11270 + 0.216e3 * t2947 * t11140 + 0.216e3 * t33555 * t954 + 0.432e3 * t15885 * t2810 + 0.432e3 * t35420 * t3539 + 0.432e3 * t28219 * t3539 + t26687 * t11961 / 0.8e1 + 0.432e3 * t11338 * t11905 + 0.432e3 * t7634 * t11905 - 0.2880e4 * t526 * t11961;
19157   t35451 = t83 * t12064;
19158   t35458 = 0.6e1 * t26714 * t11961 + t2100 * t11991 / 0.2e1 + t598 * t35210 / 0.2e1 - 0.9e1 / 0.2e1 * t28349 * t3591 - 0.9e1 / 0.4e1 * t26577 * t11961 + 0.3e1 / 0.2e1 * t8906 * t3594 + 0.3e1 / 0.2e1 * t2930 * t11246 + 0.3e1 / 0.4e1 * t28367 * t3591 - 0.1080e4 * t35128 + 0.72e2 * t35451 * t519 + 0.144e3 * t11894 * t608 + 0.216e3 * t11398 * t2810;
19159   t35491 = 0.460800e6 * t1001 * t11140 + 0.1843200e7 * t11165 * t978 + 0.1843200e7 * t12073 * t519 + 0.153600e6 * t12077 * t519 + 0.30720e5 * t130 * t35034 + 0.1843200e7 * t2810 * t3622 + 0.460800e6 * t2917 * t3534 + 0.1344e4 * t35131 + 0.1344e4 * t35134 + 0.448e3 * t35137 - 0.34560e5 * t35147 + 0.448e3 * t35267 - 0.103680e6 * t35270 - 0.103680e6 * t35272 - 0.51840e5 * t35274 - 0.51840e5 * t35276 - 0.17280e5 * t35278 - 0.5760e4 * t35280;
19160   t35523 = -0.8847360e7 * t11887 * t132 * t519 - 0.371589120e9 * t11894 * t130 * t519 + 0.2424870e7 * t1001 * t11165 - 0.185794560e9 * t1003 * t11165 + 0.484974e6 * t1015 * t11140 - 0.26542080e8 * t11140 * t2923 - 0.103680e6 * t11165 * t999 - 0.185794560e9 * t11385 * t2810 + 0.3233160e7 * t12058 * t519 + 0.161658e6 * t12062 * t519 + 0.2424870e7 * t2810 * t3653 + 0.484974e6 * t2956 * t3534 - 0.26542080e8 * t3534 * t8997 - 0.8e1 * t35034;
19161   t35550 = -0.2880e4 * t101 * t35034 + 0.4608e4 * t11140 * t976 - 0.34560e5 * t11140 * t978 - 0.11520e5 * t11969 * t519 + 0.1536e4 * t11972 * t519 - 0.69120e5 * t11974 * t519 - 0.1105920e7 * t134 * t35034 + 0.26943e5 * t141 * t35034 - 0.103680e6 * t2810 * t3584 + 0.4608e4 * t2866 * t3534 - 0.34560e5 * t2870 * t3534 + 0.768e3 * t35034 * t83 + 0.4608e4 * t35127 + 0.4608e4 * t35150;
19162   t35565 = 0.216e3 * t8960 * t3534 + 0.2640e4 * t35148 - 0.1080e4 * t35151 - 0.240e3 * t35153 + 0.24e2 * t128 * t35491 + (t35523 + t35550) * t86 - 0.9e1 / 0.4e1 * t26574 * t35224 - 0.3e1 * t2138 * t35229 - 0.3e1 * t2138 * t35232 + 0.48e2 * t614 * t11915 * t519 - 0.36e2 * t614 * t3550 * t2810;
19163   t35592 = 0.12e2 * t614 * t2830 * t3534 + 0.12e2 * t614 * t959 * t11140 + 0.72e2 * t2113 * t11887 + 0.72e2 * t601 * t35034 - 0.9e1 / 0.2e1 * t33489 * t2879 + 0.3e1 / 0.4e1 * t33549 * t2879 - 0.9e1 / 0.2e1 * t8910 * t11270 + 0.3e1 / 0.4e1 * t8901 * t11270 - 0.27e2 / 0.4e1 * t28346 * t11256 + 0.3e1 / 0.2e1 * t8901 * t11265 + 0.3e1 / 0.8e1 * t28362 * t11256 + 0.75e2 / 0.4e1 * t26580 * t35224;
19164   t35616 = -0.27e2 / 0.4e1 * t7667 * t35254 - 0.3e1 / 0.2e1 * t2102 * t35259 + t2107 * t35259 / 0.4e1 + 0.18e2 * t28206 * t11256 - 0.9e1 * t8910 * t11265 - 0.30e2 * t2107 * t35224 + 0.18e2 * t7682 * t35254 - 0.9e1 / 0.2e1 * t7679 * t11964 - 0.9e1 / 0.2e1 * t2102 * t35229 - 0.9e1 / 0.2e1 * t2102 * t35232 + 0.3e1 / 0.4e1 * t7664 * t11964;
19165   t35642 = 0.3e1 / 0.4e1 * t2107 * t35232 + 0.3e1 / 0.4e1 * t2107 * t35229 - 0.48e2 * t26563 * t35224 + 0.21e2 * t7673 * t35254 + 0.3e1 / 0.8e1 * t7655 * t35254 + t26679 * t35224 / 0.16e2 + 0.2160e4 * t982 * t615 * t3534 + 0.15e2 / 0.2e1 * t26708 * t35224 - 0.3e1 / 0.2e1 * t7644 * t35254 - t26699 * t35224 / 0.4e1 + 0.4e1 * t614 * t11923 * t519 - t2138 * t35259;
19166   t35673 = t28610 - t26782 + 0.112e3 / 0.243e3 * t28613 - 0.16e2 / 0.81e2 * t34035 - t28625 + 0.112e3 / 0.243e3 * t5889 * t28727 * t34969 + 0.112e3 / 0.729e3 * t27139 + 0.16e2 / 0.243e3 * t34664 - 0.4e1 / 0.81e2 * t34667 + 0.16e2 / 0.243e3 * t34670 - 0.8e1 / 0.81e2 * t34673 - 0.4e1 / 0.81e2 * t34676 - 0.4e1 / 0.81e2 * t34679;
19167   t35710 = t490 * t7081 * t12123;
19168   t35729 = t490 * t7081 * t12253;
19169   t35732 = t490 * t7081 * t12163;
19170   t35734 = -0.28e2 / 0.243e3 * t26988 - t34054 / 0.9e1 - t29078 - 0.8e1 / 0.81e2 * t29080 + 0.28e2 / 0.243e3 * t29087 + 0.4e1 / 0.27e2 * t34065 - 0.28e2 / 0.81e2 * t29111 - t490 * t643 * t12234 * t454 / 0.27e2 - 0.4e1 / 0.81e2 * t34085 + 0.4e1 / 0.27e2 * t34108 + 0.4e1 / 0.27e2 * t490 * t2183 * t3111 * t3523 + t27008 - 0.4e1 / 0.81e2 * t35729 + t29139 + t29156 - 0.4e1 / 0.81e2 * t35732;
19171   t35748 = t166 * t190 * t12142;
19172   t35750 = t11872 * t454;
19173   t35754 = t3523 * t9;
19174   t35759 = t3023 * t682 * t12146;
19175   t35764 = t9 * t3528;
19176   t35768 = t943 * t11134;
19177   t35773 = t166 * t190 * t12150;
19178   t35775 = t11881 * t454;
19179   t35783 = t34558 / 0.9e1 + 0.10e2 / 0.243e3 * t35748 - 0.80e2 / 0.243e3 * t3023 * t29222 * t35750 + 0.20e2 / 0.27e2 * t3023 * t26925 * t35754 - 0.2e1 / 0.27e2 * t35759 + 0.10e2 / 0.27e2 * t3023 * t9444 * t34969 - 0.4e1 / 0.9e1 * t3023 * t7211 * t35764 - 0.2e1 / 0.9e1 * t3023 * t3024 * t35768 + t35773 / 0.27e2 - 0.2e1 / 0.27e2 * t3023 * t3024 * t35775 + t166 * t168 * t191 * t34991 / 0.9e1;
19180   t35813 = t490 * t2176 * t12245;
19181   t35819 = 0.28e2 / 0.243e3 * t34135 - 0.16e2 / 0.81e2 * t34142 + 0.2e1 * t186 * (-t27011 + 0.10e2 / 0.243e3 * t27013 + 0.10e2 / 0.81e2 * t29186 + t29190 - 0.4e1 / 0.27e2 * t29208 + 0.4e1 / 0.81e2 * t34547 + 0.10e2 / 0.81e2 * t34567 - 0.8e1 / 0.27e2 * t34571 - 0.2e1 / 0.27e2 * t34544 - 0.2e1 / 0.27e2 * t34586 + t35783) + 0.2e1 * t3740 * t3033 + 0.2e1 * t671 * t12154 - 0.8e1 / 0.81e2 * t34155 - 0.4e1 / 0.81e2 * t34158 - 0.2e1 / 0.9e1 * t490 * t3004 * t3761 * t9 + 0.4e1 * t1056 * t11671 - 0.28e2 / 0.243e3 * t490 * t7071 * t691 * t11872 + 0.4e1 * t1056 * t1044 * t3074 + 0.2e1 * t11530 * t1045 + 0.2e1 * t11532 * t1045 + 0.4e1 * t3076 * t3712 + t35813 / 0.81e2 - t490 * t643 * t11642 * t943 / 0.9e1;
19182   t35839 = t38 * t485 * t12235;
19183   t35868 = 0.28e2 / 0.729e3 * t27092 - t490 * t643 * t3111 * t3528 / 0.9e1 - t490 * t643 * t1064 * t11134 / 0.9e1 - t490 * t643 * t691 * t11881 / 0.27e2 - t490 * t643 * t197 * t34991 / 0.27e2 - t35839 / 0.27e2 + 0.2e1 / 0.27e2 * t34530 + t34538 / 0.27e2 - 0.28e2 / 0.81e2 * t5889 * t29271 * t34969 + 0.2e1 * t11627 * t1044 + 0.2e1 * t3738 * t3033 + 0.4e1 * t3075 * t3711 + 0.4e1 / 0.27e2 * t490 * t2183 * t3045 * t3528 + 0.4e1 / 0.27e2 * t490 * t2183 * t1047 * t11134 + 0.8e1 / 0.27e2 * t490 * t9159 * t3049 * t3528 - 0.28e2 / 0.81e2 * t490 * t7071 * t12253 * t454;
19184   t35895 = t490 * t2176 * t12249;
19185   t35898 = t490 * t27101 * t12159;
19186   t35934 = t11626 * t1055 * t186;
19187   t35939 = t3737 * t3074 * t186;
19188   t35947 = t3740 * t3074;
19189   t35965 = t9369 * t34295 * t3087 / 0.9e1 - t26802 - t679 * t687 * t35934 / 0.6e1 - t679 * t687 * t35939 / 0.6e1 + t679 * t682 * t12206 * t454 / 0.27e2 - t679 * t687 * t35947 / 0.6e1 + 0.20e2 / 0.81e2 * t34170 - 0.4e1 / 0.27e2 * t34172 + 0.2e1 / 0.9e1 * t679 * t3093 * t3738 * t9 + t679 * t682 * t3075 * t3528 / 0.9e1 + t679 * t682 * t1056 * t11134 / 0.9e1;
19190   t35968 = t679 * t2260 * t12184;
19191   t35989 = t679 * t2264 * t12203;
19192   t35992 = t679 * t2260 * t12229;
19193   t35995 = t679 * t7265 * t12217;
19194   t35999 = t679 * t7265 * t12221;
19195   t36002 = t679 * t2260 * t12225;
19196   t36005 = t12205 * t670 * t186;
19197   t36024 = 0.10e2 / 0.81e2 * t35999 - 0.2e1 / 0.27e2 * t36002 - t679 * t687 * t36005 / 0.18e2 - 0.440e3 / 0.729e3 * t679 * t26949 * t12213 * t454 + 0.40e2 / 0.243e3 * t679 * t7244 * t671 * t11872 + 0.80e2 / 0.81e2 * t679 * t29047 * t3743 * t9 + 0.20e2 / 0.81e2 * t34193 + 0.10e2 / 0.81e2 * t34196 + 0.40e2 / 0.81e2 * t34203 - t28877 + t28882;
19198   t36032 = t12181 * t670 * t186;
19199   t36040 = t9375 * t3528;
19200   t36057 = 0.3e1 * t35947 + t36005 + 0.40e2 / 0.81e2 * t9369 * t29026 * t34969 - 0.5e1 / 0.27e2 * t9369 * t9374 * t36040 + 0.40e2 / 0.81e2 * t9369 * t34303 * t34311 - 0.5e1 / 0.27e2 * t9369 * t11542 * t11570 - 0.20e2 / 0.27e2 * t28949 * t11542 * t34316 + 0.10e2 / 0.81e2 * t34400 - 0.2e1 / 0.27e2 * t34403 - 0.4e1 / 0.27e2 * t34419 - 0.8e1 / 0.27e2 * t34422;
19201   t36070 = t179 * t40 * t12170;
19202   t36079 = t3065 * t643 * t12146;
19203   t36091 = t179 * t40 * t12177;
19204   t36100 = -0.4e1 / 0.9e1 * t34229 - 0.16e2 / 0.243e3 * t36070 + 0.56e2 / 0.243e3 * t3065 * t28819 * t35750 - 0.16e2 / 0.27e2 * t3065 * t27087 * t35754 + 0.4e1 / 0.27e2 * t36079 - 0.8e1 / 0.27e2 * t3065 * t9325 * t34969 + 0.4e1 / 0.9e1 * t3065 * t7100 * t35764 + 0.2e1 / 0.9e1 * t3065 * t3066 * t35768 - 0.4e1 / 0.27e2 * t36091 + 0.2e1 / 0.27e2 * t3065 * t3066 * t35775 - 0.2e1 / 0.9e1 * t179 * t181 * t71 * t34991;
19205   t36102 = (t26881 - 0.16e2 / 0.243e3 * t26883 - 0.16e2 / 0.81e2 * t28791 - t28795 + 0.8e1 / 0.27e2 * t28781 - 0.4e1 / 0.81e2 * t34215 - 0.16e2 / 0.81e2 * t34238 + 0.16e2 / 0.27e2 * t34241 + 0.4e1 / 0.27e2 * t34221 + 0.4e1 / 0.27e2 * t34251 + t36100) * t186;
19206   t36128 = t36102 + t679 * t682 * t12182 * t454 / 0.27e2 - t679 * t687 * t36032 / 0.18e2 - 0.5e1 / 0.81e2 * t679 * t2270 * t12190 * t454 + t679 * t682 * t671 * t11881 / 0.27e2 + 0.2e1 / 0.9e1 * t679 * t3093 * t3740 * t9 - 0.2e1 / 0.27e2 * t34437 + t34442 / 0.9e1 + 0.3e1 * t12202 * t671 - 0.5e1 / 0.27e2 * t34448 + 0.10e2 / 0.81e2 * t34454;
19207   t36130 = t679 * t2260 * t12190;
19208   t36133 = t679 * t2264 * t12182;
19209   t36136 = t679 * t2264 * t12206;
19210   t36146 = t679 * t26943 * t12213;
19211   t36153 = -0.2e1 / 0.81e2 * t36130 + t36133 / 0.27e2 + t36136 / 0.27e2 + t679 * t682 * t192 * t34991 / 0.27e2 - t679 * t687 * t36102 / 0.18e2 - 0.80e2 / 0.729e3 * t36146 - 0.2e1 / 0.27e2 * t34472 + 0.2e1 / 0.9e1 * t34475 + t34478 / 0.9e1 - 0.80e2 / 0.243e3 * t34486 + t34496 / 0.9e1;
19212   t36162 = t490 * t2176 * t12241;
19213   t36168 = 0.4e1 / 0.81e2 * t490 * t2183 * t12245 * t454 + 0.4e1 / 0.27e2 * t490 * t2183 * t12249 * t454 + 0.280e3 / 0.729e3 * t490 * t27105 * t12159 * t454 - 0.56e2 / 0.81e2 * t490 * t28702 * t3716 * t9 - 0.4e1 / 0.81e2 * t34604 + 0.4e1 / 0.27e2 * t490 * t2183 * t12241 * t454 + 0.16e2 / 0.27e2 * t490 * t9159 * t3720 * t9 - t29249 + t35895 / 0.27e2 + 0.28e2 / 0.729e3 * t35898 + t38 * t40 * t71 * (t36153 + t36128 + t36057 + t36032 + t36024 + 0.10e2 / 0.81e2 * t35995 - 0.2e1 / 0.27e2 * t35992 + t35989 / 0.9e1 - 0.2e1 / 0.27e2 * t35968 + t35965 + 0.3e1 * t35939 + 0.3e1 * t35934 - 0.2e1 / 0.27e2 * t34381 - 0.50e2 / 0.243e3 * t34338 - 0.5e1 / 0.27e2 * t34190 + 0.40e2 / 0.243e3 * t26963 - 0.80e2 / 0.729e3 * t26959 - 0.80e2 / 0.243e3 * t28761 - t28983 + 0.40e2 / 0.81e2 * t28767 + 0.20e2 / 0.81e2 * t28840 + t9369 * t34166 * t3101 / 0.9e1 + t9369 * t34166 * t3087 / 0.9e1 - 0.5e1 / 0.27e2 * t9369 * t11542 * t34333 + t9369 * t9370 * t11590 / 0.9e1 + 0.2e1 / 0.9e1 * t9369 * t9370 * t11578 - t9369 * t191 * t3737 * t3077 / 0.6e1 - 0.5e1 / 0.27e2 * t9369 * t2269 * t3737 * t9376 - 0.5e1 / 0.27e2 * t9369 * t2269 * t3739 * t9376 - 0.5e1 / 0.27e2 * t679 * t2270 * t1057 * t11134 - 0.10e2 / 0.27e2 * t679 * t9261 * t3094 * t3528 - 0.5e1 / 0.27e2 * t679 * t2270 * t3075 * t3523 + t679 * t682 * t11627 * t943 / 0.9e1 - t28888 + t28885) / 0.9e1 + t36162 / 0.27e2 - 0.8e1 / 0.81e2 * t34616 + t34627 / 0.27e2 + t34630 / 0.27e2 + 0.16e2 / 0.243e3 * t34634;
19214   t36175 = 0.4e1 / 0.27e2 * t490 * t643 * t11729 * t943 - 0.16e2 / 0.81e2 * t34686 + 0.32e2 / 0.243e3 * t34698 + 0.112e3 / 0.729e3 * t490 * t7071 * t696 * t11872 + 0.8e1 / 0.27e2 * t490 * t3004 * t3766 * t9 + 0.4e1 / 0.27e2 * t490 * t643 * t3116 * t3528 + 0.4e1 / 0.27e2 * t490 * t643 * t1069 * t11134 + 0.4e1 / 0.81e2 * t490 * t643 * t696 * t11881 + 0.4e1 / 0.81e2 * t490 * t643 * t202 * t34991 + 0.16e2 / 0.243e3 * t34704 - 0.16e2 / 0.81e2 * t490 * t2183 * t3116 * t3523 + 0.16e2 / 0.243e3 * t35710 - 0.4e1 / 0.27e2 * t38 * t40 * t71 * (t35734 + t35819 + t35868 + t36168);
19215   t36178 = t38 * t485 * t12266;
19216   t36207 = t490 * t7081 * t12135;
19217   t36217 = 0.4e1 / 0.81e2 * t36178 - t28716 + 0.32e2 / 0.243e3 * t28719 - 0.112e3 / 0.729e3 * t28722 - 0.16e2 / 0.81e2 * t490 * t2183 * t12275 * t454 - 0.1120e4 / 0.2187e4 * t490 * t27105 * t12131 * t454 + 0.224e3 / 0.243e3 * t490 * t28702 * t3688 * t9 - 0.16e2 / 0.81e2 * t490 * t2183 * t3000 * t3528 - 0.16e2 / 0.81e2 * t490 * t2183 * t1036 * t11134 - 0.32e2 / 0.81e2 * t490 * t9159 * t3005 * t3528 + 0.16e2 / 0.243e3 * t36207 - 0.16e2 / 0.243e3 * t490 * t2183 * t12271 * t454 + 0.4e1 / 0.81e2 * t490 * t643 * t12265 * t454;
19218   t36225 = t490 * t2176 * t12271;
19219   t36228 = t490 * t2176 * t12275;
19220   t36231 = t490 * t27101 * t12131;
19221   t36239 = t490 * t2176 * t12127;
19222   t36248 = 0.112e3 / 0.243e3 * t490 * t7071 * t12123 * t454 - 0.64e2 / 0.729e3 * t34743 + 0.32e2 / 0.243e3 * t34747 - 0.4e1 / 0.243e3 * t36225 - 0.4e1 / 0.81e2 * t36228 - 0.112e3 / 0.2187e4 * t36231 + t28737 - 0.16e2 / 0.81e2 * t490 * t2183 * t12127 * t454 + 0.4e1 / 0.27e2 * t34757 - 0.4e1 / 0.81e2 * t36239 - 0.112e3 / 0.2187e4 * t27207 - 0.64e2 / 0.81e2 * t490 * t9159 * t3692 * t9 - 0.112e3 / 0.729e3 * t34799 + 0.64e2 / 0.243e3 * t34802;
19223   t36263 = -0.6e1 * t7060 - 0.12e2 * t24817;
19224   t36278 = t2775 * t7937 * t13141;
19225   t36282 = t8 * t2411 * t13146;
19226   t36288 = 0.3e1 / 0.8e1 * t8 * t18 * p->cam_beta * (t474 * t12121 - 0.6e1 * t478 * t34961 * t468 + t33 * ((-0.8e1 / 0.3e1 * t35034 * t93 - 0.8e1 / 0.3e1 * t11887 * t537 - 0.8e1 * t11140 * t969 - 0.8e1 * t3534 * t2847 - 0.8e1 * t2810 * t3570 - 0.8e1 * t954 * t11214 - 0.8e1 / 0.3e1 * t519 * t11942 - 0.8e1 / 0.3e1 * t77 * (t35130 + t35163)) * t98 - t35169 * t506 / 0.5e1 + 0.35e2 / 0.81e2 * t35335 * t120 * t124 + 0.35e2 / 0.81e2 * t12004 * t575 * t124 - 0.14e2 / 0.81e2 * t35342 * t583 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t35034 * t151 + 0.8e1 / 0.7e1 * t11887 * t618 + 0.24e2 / 0.7e1 * t11140 * t1026 + 0.24e2 / 0.7e1 * t3534 * t2975 + 0.24e2 / 0.7e1 * t2810 * t3676 + 0.24e2 / 0.7e1 * t954 * t11472 + 0.8e1 / 0.7e1 * t519 * t12113 + 0.8e1 / 0.7e1 * t77 * (t35382 + t35408 + t35433 + t35458 + t35565 + t35592 + t35616 + t35642)) * t41 * t45 * t157 - 0.70212281481481481483e-1 * t12118 * t626 - 0.10531842222222222222e-1 * t12118 * t630) + t637 * t12284 * t230 + t162 * (t35673 + t36175 + t36217 + t36248) * t230 + t12285 * t732 / 0.10e2) - t31136 / 0.6e1 - t8 * t766 * t444 * t36263 / 0.2e1 + t31151 + t31159 / 0.9e1 + 0.3e1 / 0.2e1 * t2416 * t2417 * t3498 * t3788 + t27546 - t2754 * t2755 * t11836 * t455 / 0.6e1 + t31170 + t36278 / 0.2e1 + t31178 / 0.9e1 - t36282 / 0.2e1 + t8636 * t8630 * t3507 * t9 / 0.3e1;
19227   t36298 = t8 * t2411 * t11821;
19228   t36303 = t2754 * t8641 * t11856;
19229   t36312 = t8 * t7960 * t11831;
19230   t36314 = -t3132 * t11807 * t11793 / 0.2e1 + t27553 + t2416 * t2417 * t936 * t11846 / 0.2e1 + t31182 / 0.3e1 - t36298 / 0.2e1 - t31185 / 0.2e1 + t31188 / 0.3e1 + t29437 - t36303 / 0.6e1 + 0.2e1 / 0.3e1 * t31195 - t8 * t766 * t13130 * t767 / 0.2e1 - t31198 / 0.2e1 - t36312 / 0.6e1 + t31206;
19231   t36318 = t8 * t25779 * t11842;
19232   t36331 = t2754 * t7937 * t11860;
19233   t36356 = t36318 / 0.27e2 + t8 * t450 * t247 * t36263 / 0.2e1 + t2775 * t2417 * t12287 * t455 / 0.2e1 + 0.3e1 / 0.8e1 * t31220 + t36331 / 0.6e1 + t3132 * t2417 * t3498 * t3779 / 0.2e1 + t3132 * t31143 * t11801 - t2754 * t8630 * t9 * t3516 / 0.2e1 + 0.3e1 / 0.2e1 * t2775 * t2417 * t1077 * t10282 - t2754 * t8626 * t11856 / 0.2e1 - 0.5e1 / 0.27e2 * t27594 - t31225 / 0.2e1 + 0.3e1 / 0.2e1 * t2775 * t2417 * t3126 * t3516;
19234   t36367 = t3132 * t8659 * t11852;
19235   t36395 = -t3132 * t3133 * t11846 * t767 / 0.6e1 + t30894 / 0.3e1 + 0.3e1 / 0.2e1 * t2775 * t2417 * t11768 * t944 - t36367 / 0.6e1 + 0.5e1 / 0.12e2 * t30897 - 0.5e1 / 0.9e1 * t30900 + t2754 * t8649 * t3513 * t9 + t3132 * t2417 * t3141 * t3788 / 0.2e1 + t2754 * t2417 * t13141 * t455 / 0.2e1 + t31242 / 0.3e1 - 0.5e1 / 0.27e2 * t29446 * t3133 * t11841 * t767 - t8636 * t2417 * t11860 * t455 / 0.3e1 + t8654 * t3133 * t11852 * t767 / 0.3e1;
19236   t36398 = t8 * t2411 * t11847;
19237   t36401 = t2775 * t7937 * t13135;
19238   t36405 = t8 * t24811 * t11826;
19239   t36412 = t875 * t263;
19240   t36438 = t490 * t25377 * t13090;
19241   t36445 = t490 * t8463 * t13094;
19242   t36448 = t490 * t2623 * t12948;
19243   t36452 = t490 * t8463 * t12952;
19244   t36458 = 0.4e1 / 0.27e2 * t490 * t880 * t1279 * t10419 - 0.16e2 / 0.81e2 * t490 * t2630 * t12948 * t781 - 0.16e2 / 0.81e2 * t490 * t2630 * t3378 * t3900 - 0.16e2 / 0.81e2 * t490 * t2630 * t1246 * t10419 + 0.32e2 / 0.81e2 * t490 * t10145 * t3383 * t3900 - 0.16e2 / 0.81e2 * t32245 - 0.112e3 / 0.2187e4 * t36438 + 0.112e3 / 0.729e3 * t490 * t8454 * t928 * t12530 + 0.16e2 / 0.243e3 * t36445 - 0.4e1 / 0.81e2 * t36448 + 0.4e1 / 0.27e2 * t32248 + 0.16e2 / 0.243e3 * t36452 + 0.4e1 / 0.81e2 * t490 * t880 * t13085 * t781;
19245   t36476 = t490 * t2623 * t12940;
19246   t36479 = t490 * t2623 * t12944;
19247   t36493 = -t34991;
19248   t36507 = t13016 * t907 * t388;
19249   t36512 = t10874 * t1265 * t388;
19250   t36517 = t679 * t2704 * t12980;
19251   t36520 = t679 * t8354 * t13031;
19252   t36523 = t679 * t8354 * t13035;
19253   t36526 = t679 * t2704 * t13039;
19254   t36532 = t679 * t2708 * t12993;
19255   t36535 = t679 * t25650 * t13027;
19256   t36544 = t4149 * t3448 * t388;
19257   t36548 = t4152 * t3448;
19258   t36551 = t12992 * t907 * t388;
19259   t36567 = t179 * t40 * t13004;
19260   t36569 = t12530 * t781;
19261   t36573 = t3895 * t9;
19262   t36578 = t3065 * t880 * t13008;
19263   t36580 = t13008 * t781;
19264   t36584 = t9 * t3900;
19265   t36588 = t1127 * t10419;
19266   t36593 = t179 * t40 * t13012;
19267   t36595 = t12543 * t781;
19268   t36603 = -0.4e1 / 0.9e1 * t32280 - 0.16e2 / 0.243e3 * t36567 + 0.56e2 / 0.243e3 * t3065 * t30493 * t36569 + 0.16e2 / 0.27e2 * t3065 * t25373 * t36573 + 0.4e1 / 0.27e2 * t36578 - 0.8e1 / 0.27e2 * t3065 * t10035 * t36580 - 0.4e1 / 0.9e1 * t3065 * t8444 * t36584 + 0.2e1 / 0.9e1 * t3065 * t3440 * t36588 - 0.4e1 / 0.27e2 * t36593 + 0.2e1 / 0.27e2 * t3065 * t3440 * t36595 - 0.2e1 / 0.9e1 * t179 * t181 * t290 * t36493;
19269   t36605 = (t25605 - 0.16e2 / 0.243e3 * t25607 - 0.16e2 / 0.81e2 * t30461 - t30465 - 0.8e1 / 0.27e2 * t30502 - 0.4e1 / 0.81e2 * t32266 - 0.16e2 / 0.81e2 * t32290 - 0.16e2 / 0.27e2 * t32293 + 0.4e1 / 0.27e2 * t32272 + 0.4e1 / 0.27e2 * t32301 + t36603) * t388;
19270   t36612 = t36507 - t25525 - 0.2e1 / 0.9e1 * t679 * t3465 * t4152 * t9 + 0.3e1 * t36512 + 0.3e1 * t36544 + 0.3e1 * t12989 * t908 + 0.3e1 * t36548 + t36551 + t679 * t914 * t390 * t36493 / 0.27e2 - t679 * t919 * t36605 / 0.18e2 - t679 * t919 * t36544 / 0.6e1;
19271   t36629 = t679 * t2708 * t13017;
19272   t36665 = -0.5e1 / 0.27e2 * t9369 * t10838 * t32603 + t9369 * t10096 * t10799 / 0.9e1 - 0.5e1 / 0.27e2 * t9369 * t2713 * t4151 * t10102 + 0.2e1 / 0.9e1 * t9369 * t10096 * t10787 + t9369 * t32353 * t3461 / 0.9e1 - 0.5e1 / 0.27e2 * t32366 - 0.5e1 / 0.27e2 * t32369 + t30355 - t30358 + 0.40e2 / 0.81e2 * t30366 - 0.80e2 / 0.729e3 * t25533;
19273   t36672 = t679 * t2704 * t12997;
19274   t36700 = t679 * t2708 * t12990;
19275   t36703 = t679 * t2704 * t13043;
19276   t36711 = 0.10e2 / 0.27e2 * t679 * t10006 * t3466 * t3900 - 0.5e1 / 0.27e2 * t679 * t2714 * t3449 * t3895 + t679 * t914 * t10875 * t1127 / 0.9e1 + t36700 / 0.9e1 - 0.2e1 / 0.27e2 * t36703 - 0.2e1 / 0.27e2 * t32425 + 0.2e1 / 0.9e1 * t32428 + t32431 / 0.9e1 - 0.2e1 / 0.27e2 * t32434 + t32437 / 0.9e1 - 0.80e2 / 0.243e3 * t32460;
19277   t36741 = 0.10e2 / 0.81e2 * t32463 - 0.40e2 / 0.81e2 * t32466 + 0.20e2 / 0.81e2 * t32497 + 0.10e2 / 0.81e2 * t32504 - 0.2e1 / 0.27e2 * t32507 - 0.5e1 / 0.81e2 * t679 * t2714 * t12997 * t781 + t679 * t914 * t908 * t12543 / 0.27e2 - 0.2e1 / 0.9e1 * t679 * t3465 * t4150 * t9 + t679 * t914 * t3449 * t3900 / 0.9e1 + t679 * t914 * t1266 * t10419 / 0.9e1 + 0.40e2 / 0.81e2 * t9369 * t30427 * t36580;
19278   t36742 = t10101 * t3900;
19279   t36761 = -0.5e1 / 0.27e2 * t9369 * t10100 * t36742 + 0.40e2 / 0.81e2 * t9369 * t32361 * t32529 - 0.5e1 / 0.27e2 * t9369 * t10838 * t10832 + 0.20e2 / 0.27e2 * t28949 * t10838 * t32536 - 0.20e2 / 0.81e2 * t30524 - 0.80e2 / 0.243e3 * t30532 - t30536 - 0.4e1 / 0.27e2 * t32584 + 0.8e1 / 0.27e2 * t32587 + 0.20e2 / 0.81e2 * t32607 - 0.4e1 / 0.27e2 * t32609;
19280   t36779 = t38 * t485 * t13049;
19281   t36782 = t490 * t8463 * t13062;
19282   t36794 = t490 * t2623 * t12959;
19283   t36796 = 0.4e1 / 0.27e2 * t490 * t2630 * t3483 * t3895 - t490 * t880 * t923 * t12543 / 0.27e2 - t490 * t880 * t395 * t36493 / 0.27e2 - 0.8e1 / 0.27e2 * t490 * t10145 * t3425 * t3900 + t38 * t40 * t290 * (t36761 + t36741 + t36711 - 0.2e1 / 0.81e2 * t36672 + t36665 + t36629 / 0.27e2 + t36612 + t36605 - 0.80e2 / 0.729e3 * t36535 + t36532 / 0.27e2 - 0.2e1 / 0.27e2 * t36526 + 0.10e2 / 0.81e2 * t36520 + 0.10e2 / 0.81e2 * t36523 - 0.2e1 / 0.27e2 * t36517 + 0.40e2 / 0.243e3 * t25537 - 0.2e1 / 0.27e2 * t32403 - 0.50e2 / 0.243e3 * t32400 + 0.10e2 / 0.81e2 * t32338 + t32332 / 0.9e1 + t30383 - t30380 + t9369 * t32346 * t3461 / 0.9e1 - t679 * t919 * t36507 / 0.18e2 - t679 * t919 * t36512 / 0.6e1 + t9369 * t32346 * t3473 / 0.9e1 - t679 * t919 * t36548 / 0.6e1 - t679 * t919 * t36551 / 0.18e2 + t679 * t914 * t13017 * t781 / 0.27e2 + t679 * t914 * t12993 * t781 / 0.27e2 - 0.440e3 / 0.729e3 * t679 * t25656 * t13027 * t781 - t9369 * t389 * t4149 * t3451 / 0.6e1 - 0.5e1 / 0.27e2 * t9369 * t2713 * t4149 * t10102 + 0.40e2 / 0.243e3 * t679 * t8366 * t908 * t12530 - 0.80e2 / 0.81e2 * t679 * t30557 * t4155 * t9 - 0.5e1 / 0.27e2 * t679 * t2714 * t1267 * t10419) / 0.9e1 + 0.2e1 * t4150 * t3409 + 0.4e1 * t3449 * t4123 + 0.4e1 * t1266 * t10974 - t32259 / 0.9e1 + 0.2e1 * t4152 * t3409 - t36779 / 0.27e2 - 0.4e1 / 0.81e2 * t36782 + 0.4e1 * t1266 * t1254 * t3448 + 0.2e1 * t10823 * t1255 - t490 * t880 * t10897 * t1127 / 0.9e1 + t36794 / 0.81e2;
19284   t36798 = t490 * t2623 * t12963;
19285   t36847 = t36798 / 0.27e2 - t490 * t880 * t3483 * t3900 / 0.9e1 + 0.4e1 / 0.27e2 * t32621 + 0.4e1 / 0.27e2 * t490 * t2630 * t12971 * t781 - 0.16e2 / 0.27e2 * t490 * t10145 * t4132 * t9 + 0.280e3 / 0.729e3 * t490 * t25381 * t13058 * t781 + 0.56e2 / 0.81e2 * t490 * t30227 * t4128 * t9 + 0.4e1 / 0.27e2 * t490 * t2630 * t3421 * t3900 - 0.28e2 / 0.81e2 * t5889 * t30301 * t36580 - 0.28e2 / 0.81e2 * t490 * t8454 * t12967 * t781 + 0.4e1 / 0.81e2 * t490 * t2630 * t12959 * t781 + 0.4e1 / 0.27e2 * t490 * t2630 * t12963 * t781 + 0.4e1 / 0.27e2 * t490 * t2630 * t1257 * t10419 - 0.4e1 / 0.27e2 * t32628 + t32631 / 0.27e2 + t32634 / 0.27e2;
19286   t36864 = t166 * t190 * t13071;
19287   t36873 = t3023 * t914 * t13008;
19288   t36885 = t166 * t190 * t13078;
19289   t36894 = t32656 / 0.9e1 + 0.10e2 / 0.243e3 * t36864 - 0.80e2 / 0.243e3 * t3023 * t30761 * t36569 - 0.20e2 / 0.27e2 * t3023 * t25586 * t36573 - 0.2e1 / 0.27e2 * t36873 + 0.10e2 / 0.27e2 * t3023 * t9942 * t36580 + 0.4e1 / 0.9e1 * t3023 * t8329 * t36584 - 0.2e1 / 0.9e1 * t3023 * t3400 * t36588 + t36885 / 0.27e2 - 0.2e1 / 0.27e2 * t3023 * t3400 * t36595 + t166 * t168 * t389 * t36493 / 0.9e1;
19290   t36912 = 0.2e1 * t10810 * t1255 + 0.4e1 * t3450 * t4124 + 0.2e1 * t388 * (-t25471 + 0.10e2 / 0.243e3 * t25473 + 0.10e2 / 0.81e2 * t30734 + t30738 + 0.4e1 / 0.27e2 * t30775 + 0.4e1 / 0.81e2 * t32641 + 0.10e2 / 0.81e2 * t32675 + 0.8e1 / 0.27e2 * t32678 - 0.2e1 / 0.27e2 * t32648 - 0.2e1 / 0.27e2 * t32684 + t36894) - t30637 - t30647 - 0.28e2 / 0.243e3 * t25441 - 0.8e1 / 0.81e2 * t32719 - 0.4e1 / 0.81e2 * t32722 + 0.16e2 / 0.243e3 * t32725 - 0.28e2 / 0.81e2 * t30665 + 0.2e1 / 0.27e2 * t32733 - 0.4e1 / 0.81e2 * t32751 + 0.28e2 / 0.243e3 * t32768 + 0.16e2 / 0.81e2 * t32771 - 0.8e1 / 0.81e2 * t32786 - 0.28e2 / 0.243e3 * t490 * t8454 * t923 * t12530;
19291   t36915 = t490 * t2623 * t12971;
19292   t36922 = t490 * t8463 * t12967;
19293   t36937 = t490 * t25377 * t13058;
19294   t36943 = t30731 + t32804 / 0.27e2 + t36915 / 0.27e2 - t490 * t880 * t13048 * t781 / 0.27e2 - 0.4e1 / 0.81e2 * t36922 - t490 * t880 * t1274 * t10419 / 0.9e1 + 0.2e1 * t908 * t13082 + 0.2e1 * t10875 * t1254 + 0.2e1 / 0.9e1 * t490 * t3382 * t4173 * t9 + 0.28e2 / 0.729e3 * t36937 + 0.8e1 / 0.81e2 * t30799 + 0.28e2 / 0.243e3 * t30802 + t25730 + t30813 - 0.4e1 / 0.81e2 * t32852 + 0.28e2 / 0.729e3 * t25732;
19295   t36966 = -0.1120e4 / 0.2187e4 * t490 * t25381 * t13090 * t781 - 0.224e3 / 0.243e3 * t490 * t30227 * t4100 * t9 + 0.64e2 / 0.81e2 * t490 * t10145 * t4104 * t9 - 0.16e2 / 0.81e2 * t490 * t2630 * t3488 * t3895 - 0.4e1 / 0.243e3 * t36476 - 0.4e1 / 0.81e2 * t36479 + 0.4e1 / 0.81e2 * t490 * t880 * t928 * t12543 - 0.4e1 / 0.27e2 * t38 * t40 * t290 * (t36796 + t36847 + t36912 + t36943) + 0.4e1 / 0.27e2 * t490 * t880 * t3488 * t3900 + 0.112e3 / 0.243e3 * t5889 * t30198 * t36580 - 0.16e2 / 0.243e3 * t490 * t2630 * t12940 * t781 + 0.112e3 / 0.243e3 * t490 * t8454 * t12952 * t781 - 0.4e1 / 0.81e2 * t32869;
19296   t36984 = -0.4e1 / 0.81e2 * t32872 - 0.112e3 / 0.729e3 * t32895 - 0.64e2 / 0.243e3 * t32898 - 0.8e1 / 0.81e2 * t32913 - 0.8e1 / 0.27e2 * t490 * t3382 * t4178 * t9 + 0.16e2 / 0.243e3 * t32916 + t30222 - 0.32e2 / 0.243e3 * t30225 - t30239 + 0.4e1 / 0.27e2 * t490 * t880 * t10992 * t1127 - 0.64e2 / 0.729e3 * t32923 - 0.4e1 / 0.81e2 * t32929 - t30267;
19297   t37002 = t38 * t485 * t13086;
19298   t37005 = 0.16e2 / 0.243e3 * t32941 + 0.16e2 / 0.81e2 * t32946 + 0.112e3 / 0.243e3 * t30277 - t25347 + 0.112e3 / 0.729e3 * t25353 - 0.112e3 / 0.2187e4 * t25360 + 0.32e2 / 0.243e3 * t32961 - 0.16e2 / 0.81e2 * t490 * t2630 * t12944 * t781 + t30848 + 0.32e2 / 0.243e3 * t32990 + 0.4e1 / 0.81e2 * t490 * t880 * t400 * t36493 + 0.16e2 / 0.243e3 * t33005 + 0.4e1 / 0.81e2 * t37002 - 0.112e3 / 0.729e3 * t30858;
19299   t37010 = t10772 * t262;
19300   t37044 = 0.324e3 * t3817 * t36412 * t12301 + t378 * (t36458 + t36966 + t36984 + t37005) * t428 - 0.18e2 * t1101 * t37010 * t1091 + 0.3e1 * t4090 * t3493 * t428 - 0.27e2 / 0.100e3 * t3367 * t4191 + t12339 * t933 * t428 + 0.171e3 / 0.1000e4 * t934 * t12936 + 0.3e1 / 0.10e2 * t3367 * t4226 - 0.12e2 * t1101 * t875 * t12301 - 0.27e2 / 0.100e3 * t3494 * t4191 - 0.18e2 * t12309 * t3161 - 0.36e2 * t3810 * t10336 + 0.3e1 * t1243 * t11056 * t428 + 0.3e1 * t3808 * t3365 + 0.3e1 / 0.5e1 * t10776 * t1315 - 0.18e2 * t1101 * t10331 * t3800;
19301   t37065 = t10509 * t41;
19302   t37081 = t1122 * t3900;
19303   t37089 = t3881 * t2442;
19304   t37101 = t490 * t10366 * t12518;
19305   t37104 = t490 * t3165 * t12522;
19306   t37107 = t490 * t3165 * t12526;
19307   t37110 = t490 * t2436 * t12535;
19308   t37120 = -0.11e2 / 0.1800e4 * t5889 * t15151 * t12392 * t781 - t5889 * t10378 * t3853 * t1127 * t781 / 0.135e3 - t5889 * t10378 * t37081 * t781 / 0.135e3 - 0.14e2 / 0.81e2 * t5889 * t29527 * t36580 + 0.11e2 / 0.1350e4 * t5889 * t37089 * t3837 * t1127 * t781 + 0.2e1 / 0.81e2 * t490 * t778 * t2442 * t12543 * t781 - 0.11e2 / 0.1800e4 * t37101 - t37104 / 0.540e3 - t37107 / 0.540e3 - 0.2e1 / 0.81e2 * t37110 - t490 * t10384 * t10392 * t9 / 0.90e2 + t490 * t1109 * t3169 * t10419 / 0.180e3;
19309   t37127 = t490 * t3165 * t12566;
19310   t37138 = t484 * t12552;
19311   t37140 = t490 * t37138 * t12554;
19312   t37143 = t490 * t3165 * t12539;
19313   t37146 = t490 * t2436 * t12544;
19314   t37149 = t490 * t2436 * t12531;
19315   t37156 = t490 * t10366 * t12558;
19316   t37158 = t780 * t12349;
19317   t37163 = t2803 * t3881;
19318   t37168 = 0.140e3 / 0.729e3 * t490 * t778 * t24848 * t12530 * t781 + t37127 / 0.405e3 + 0.7e1 / 0.405e3 * t5889 * t31445 * t1122 * t3895 * t781 + 0.4e1 / 0.135e3 * t27853 * t10378 * t10379 * t9 + 0.77e2 / 0.18000e5 * t37140 + t37143 / 0.540e3 + t37146 / 0.162e3 + 0.14e2 / 0.729e3 * t37149 - t490 * t778 * t780 * t36493 / 0.54e2 + 0.11e2 / 0.5400e4 * t37156 + 0.77e2 / 0.18000e5 * t490 * t12553 * t37158 * t781 + 0.11e2 / 0.900e3 * t490 * t37163 * t10370 * t9;
19319   t37182 = t780 * t12365;
19320   t37193 = 0.28e2 / 0.81e2 * t490 * t3182 * t10400 * t9 + 0.2e1 / 0.27e2 * t490 * t778 * t3177 * t10419 - 0.4e1 / 0.27e2 * t490 * t3182 * t9535 * t3900 + t490 * t1109 * t37182 * t781 / 0.540e3 + t29474 + t29484 + 0.4e1 / 0.81e2 * t29515 + 0.14e2 / 0.243e3 * t29518 + 0.7e1 / 0.405e3 * t29521 - 0.2e1 / 0.81e2 * t31348 + t31366 / 0.135e3 - t31369 / 0.540e3;
19321   t37205 = 0.2e1 / 0.405e3 * t31381 + 0.14e2 / 0.243e3 * t31384 + 0.8e1 / 0.81e2 * t31387 + 0.8e1 / 0.243e3 * t31396 - 0.2e1 / 0.81e2 * t31402 - t31408 / 0.135e3 + t31419 / 0.54e2 + 0.11e2 / 0.1350e4 * t31423 + 0.14e2 / 0.729e3 * t24829 + 0.2e1 / 0.405e3 * t31430 + 0.11e2 / 0.5400e4 * t31466 + t24827;
19322   t37208 = my_piecewise3(t295, 0, t37120 + t37168 + t37193 + t37205);
19323   t37232 = t3911 * t3188;
19324   t37250 = -0.34560e5 * t10425 * t1162 - 0.103680e6 * t10450 * t1197 + 0.2424870e7 * t10450 * t1199 - 0.185794560e9 * t10450 * t1201 - 0.69120e5 * t12579 * t787 - 0.11520e5 * t12583 * t787 + 0.768e3 * t301 * t37208 - 0.103680e6 * t3188 * t3970 - 0.2880e4 * t319 * t37208 - 0.34560e5 * t3248 * t3906 - 0.1105920e7 * t350 * t37208 + 0.26943e5 * t357 * t37208 - 0.8e1 * t37208 + 0.4608e4 * t37232;
19325   t37255 = t3195 * t3906;
19326   t37281 = -0.8847360e7 * t12571 * t348 * t787 - 0.371589120e9 * t12578 * t346 * t787 + 0.4608e4 * t10425 * t1160 + 0.484974e6 * t10425 * t1213 - 0.26542080e8 * t10425 * t3301 - 0.185794560e9 * t10732 * t3188 + 0.1536e4 * t12576 * t787 + 0.3233160e7 * t12752 * t787 + 0.161658e6 * t12756 * t787 + 0.2424870e7 * t3188 * t4048 + 0.4608e4 * t3244 * t3906 + 0.484974e6 * t3334 * t3906 - 0.26542080e8 * t3906 * t9822 + 0.4608e4 * t37255;
19327   t37286 = t3188 * t3906;
19328   t37288 = t1133 * t10425;
19329   t37290 = t787 * t12571;
19330   t37292 = t296 * t37208;
19331   t37294 = t787 * t12578;
19332   t37296 = t4013 * t3188;
19333   t37298 = t1160 * t10450;
19334   t37300 = t3291 * t3906;
19335   t37302 = t1197 * t10425;
19336   t37304 = t12767 * t787;
19337   t37306 = t344 * t37208;
19338   t37322 = 0.460800e6 * t10425 * t1199 + 0.1843200e7 * t10450 * t1162 + 0.1843200e7 * t12769 * t787 + 0.153600e6 * t12773 * t787 + 0.1843200e7 * t3188 * t4017 + 0.460800e6 * t3295 * t3906 + 0.30720e5 * t346 * t37208 + 0.1344e4 * t37286 + 0.1344e4 * t37288 + 0.448e3 * t37290 + 0.448e3 * t37292 - 0.34560e5 * t37294 - 0.103680e6 * t37296 - 0.103680e6 * t37298 - 0.51840e5 * t37300 - 0.51840e5 * t37302 - 0.17280e5 * t37304 - 0.5760e4 * t37306;
19339   t37327 = t787 * t1215;
19340   t37342 = (t37250 + t37281) * t304 + 0.144e3 * t12578 * t857 + 0.24e2 * t344 * t37322 + 0.432e3 * t16552 * t3188 + 0.432e3 * t37327 * t3911 + 0.432e3 * t29910 * t3911 + 0.216e3 * t31919 * t1133 + 0.216e3 * t10698 * t3188 + 0.216e3 * t9881 * t3906 + 0.216e3 * t3325 * t10425 + 0.72e2 * t2577 * t12571;
19341   t37345 = t301 * t12758;
19342   t37348 = t37294 * t304;
19343   t37353 = t3977 * t3188;
19344   t37356 = t12591 * t787;
19345   t37369 = 0.72e2 * t850 * t37208 + 0.72e2 * t37345 * t787 + t25197 * t37348 / 0.16e2 + 0.75e2 / 0.4e1 * t25165 * t37348 - 0.27e2 / 0.4e1 * t8222 * t37353 - 0.3e1 / 0.2e1 * t2566 * t37356 + t2571 * t37356 / 0.4e1 - 0.9e1 / 0.2e1 * t9775 * t10580 + 0.3e1 / 0.4e1 * t9745 * t10580 + 0.15e2 / 0.2e1 * t25156 * t37348 - 0.3e1 / 0.2e1 * t8240 * t37353;
19346   t37394 = -t25112 * t37348 / 0.4e1 + 0.4e1 * t863 * t12686 * t787 - t2602 * t37356 - 0.30e2 * t2571 * t37348 - 0.36e2 * t15506 * t37255 + 0.18e2 * t29913 * t10580 - 0.27e2 / 0.4e1 * t29921 * t10580 + 0.3e1 / 0.8e1 * t8227 * t3906 * t3257 + 0.21e2 * t15500 * t10580 - 0.3e1 / 0.2e1 * t15503 * t10580 + 0.3e1 / 0.2e1 * t31905 * t1166;
19347   t37409 = t12787 * t793;
19348   t37422 = 0.3e1 / 0.2e1 * t10632 * t3260 + 0.2160e4 * t3977 * t3350 - 0.2880e4 * t12588 * t794 + 0.144e3 * t2574 * t37290 + 0.432e3 * t31907 * t3195 + 0.432e3 * t9872 * t10450 + 0.864e3 * t9872 * t10445 + t37409 * t820 / 0.2e1 - 0.2e1 * t863 * t302 * t37208 - 0.480e3 * t800 * t12591 + 0.240e3 * t824 * t12813 + 0.240e3 * t324 * t37208 * t299;
19349   t37447 = -0.1440e4 * t10494 * t1166 - 0.1440e4 * t3937 * t3260 + 0.720e3 * t3267 * t4058 + 0.720e3 * t1170 * t10622 + 0.432e3 * t10701 * t12574 + 0.432e3 * t8260 * t12574 + 0.432e3 * t2574 * t37286 + 0.432e3 * t2574 * t37288 + t25189 * t12588 / 0.8e1 - 0.9e1 / 0.4e1 * t25162 * t12588 - 0.9e1 / 0.2e1 * t29961 * t3977;
19350   t37452 = t37208 * t304;
19351   t37461 = t12602 * t820;
19352   t37463 = t8039 * t37232;
19353   t37465 = t8058 * t787;
19354   t37466 = t37465 * t12588;
19355   t37468 = t10471 * t3257;
19356   t37474 = 0.6e1 * t25176 * t12588 + t2564 * t12591 / 0.2e1 + t847 * t37452 / 0.2e1 + 0.3e1 / 0.2e1 * t9773 * t3980 + 0.3e1 / 0.2e1 * t3308 * t10536 + 0.3e1 / 0.4e1 * t30006 * t3977 + 0.2640e4 * t37461 - 0.1080e4 * t37463 - 0.240e3 * t37466 - 0.1080e4 * t37468 + 0.18e2 * t8252 * t37353 - 0.9e1 / 0.2e1 * t8249 * t12622;
19357   t37476 = t3260 * t3906;
19358   t37479 = t1166 * t10425;
19359   t37504 = -0.9e1 / 0.2e1 * t2566 * t37476 - 0.9e1 / 0.2e1 * t2566 * t37479 + 0.3e1 / 0.4e1 * t8219 * t12622 + 0.3e1 / 0.4e1 * t2571 * t37479 + 0.3e1 / 0.4e1 * t2571 * t37476 - 0.3e1 * t2602 * t37479 + 0.48e2 * t863 * t12602 * t787 - 0.36e2 * t863 * t3922 * t3188 + 0.12e2 * t863 * t3208 * t3906 + 0.12e2 * t863 * t1138 * t10425 + 0.18e2 * t29958 * t10572;
19360   t37529 = -0.9e1 * t9775 * t10575 - 0.27e2 / 0.4e1 * t29964 * t10572 + 0.3e1 / 0.2e1 * t9745 * t10575 + 0.3e1 / 0.8e1 * t30009 * t10572 - 0.9e1 / 0.2e1 * t32113 * t3257 + 0.3e1 / 0.4e1 * t32120 * t3257 - 0.48e2 * t25183 * t37348 + 0.21e2 * t8255 * t37353 - 0.3e1 * t2602 * t37476 + 0.2160e4 * t4068 * t3257 - 0.9e1 / 0.4e1 * t25192 * t37348 + 0.3e1 / 0.8e1 * t8227 * t37353;
19361   t37542 = t10502 * t1154;
19362   t37557 = t787 * t3992;
19363   t37576 = t296 * t12628;
19364   t37580 = t297 * t37208 * t304;
19365   t37586 = 0.1536e4 * t37294;
19366   t37587 = 0.4608e4 * t37296;
19367   t37588 = 0.4608e4 * t37298;
19368   t37589 = 0.2304e4 * t37300;
19369   t37590 = 0.2304e4 * t37302;
19370   t37591 = 0.768e3 * t37304;
19371   t37592 = 0.256e3 * t37306;
19372   t37593 = 0.120e3 * t37286 + 0.120e3 * t37288 + 0.40e2 * t37290 + 0.40e2 * t37292 - t37586 - t37587 - t37588 - t37589 - t37590 - t37591 - t37592;
19373   t37603 = t12585 * t793;
19374   t37614 = -0.10e2 * t37580 + t37593 * t304 - 0.216e3 * t37286 - 0.216e3 * t37288 - 0.72e2 * t37290 - 0.72e2 * t37292 + t37586 + t37592 - 0.9e1 / 0.2e1 * t29748 * t3977 + 0.6e1 * t25008 * t12588 + t37603 * t820 / 0.2e1 + t25038 * t12588 / 0.8e1 + t2515 * t12591 / 0.2e1 + t819 * t37452 / 0.2e1 + 0.3e1 / 0.2e1 * t9700 * t3980;
19375   t37638 = 0.3e1 / 0.2e1 * t3252 * t10536 + 0.3e1 / 0.4e1 * t29734 * t3977 - 0.9e1 / 0.4e1 * t25018 * t12588 + 0.3e1 / 0.2e1 * t31768 * t1166 + 0.3e1 / 0.2e1 * t10544 * t3260 + t37588 + t37587 + t37589 + t37590 + t37591 + 0.10e2 * t78 * t37208 * t299 - 0.9e1 / 0.2e1 * t8137 * t12622 - 0.9e1 / 0.2e1 * t2517 * t37476 - 0.9e1 / 0.2e1 * t2517 * t37479 + 0.3e1 / 0.4e1 * t8117 * t12622 + 0.3e1 / 0.4e1 * t2524 * t37479;
19376   t37672 = 0.3e1 / 0.4e1 * t2524 * t37476 + 0.3e1 / 0.8e1 * t8127 * t37353 + t25024 * t37348 / 0.16e2 - 0.3e1 / 0.2e1 * t2517 * t37356 + t2524 * t37356 / 0.4e1 - 0.9e1 / 0.2e1 * t9713 * t10580 + 0.3e1 / 0.4e1 * t9704 * t10580 - 0.27e2 / 0.4e1 * t29751 * t10572 + 0.3e1 / 0.2e1 * t9704 * t10575 + 0.3e1 / 0.8e1 * t29739 * t10572 + 0.75e2 / 0.4e1 * t25004 * t37348 - 0.27e2 / 0.4e1 * t8120 * t37353 - 0.9e1 / 0.2e1 * t31784 * t3257 + 0.3e1 / 0.4e1 * t31772 * t3257 + 0.18e2 * t29745 * t10572 - 0.9e1 * t9713 * t10575;
19377   t37686 = t5350 * t10580;
19378   t37689 = 0.15e2 / 0.2e1 * t9594 * t10580;
19379   t37690 = t12665 * t820;
19380   t37692 = t3912 * t3260;
19381   t37694 = t12670 * t820;
19382   t37696 = t9591 * t3980;
19383   t37698 = t3205 * t10536;
19384   t37701 = 0.15e2 / 0.2e1 * t10468 * t3260;
19385   t37703 = t24961 * t12578 * t820;
19386   t37706 = t2472 * t12571 * t820;
19387   t37708 = -0.30e2 * t2524 * t37348 + 0.18e2 * t8140 * t37353 - 0.9e1 / 0.4e1 * t25041 * t37348 + 0.18e2 * t29703 * t10580 - 0.27e2 / 0.4e1 * t29706 * t10580 + 0.3e1 / 0.8e1 * t8127 * t3906 * t3257 + 0.60e2 * t37686 - t37689 - 0.100e3 * t37690 + 0.60e2 * t37692 + 0.55e2 / 0.2e1 * t37694 - 0.15e2 * t37696 - 0.15e2 * t37698 - t37701 - 0.5e1 / 0.4e1 * t37703 - 0.5e1 * t37706;
19388   t37713 = 0.144e3 * t15129 * t3906 + 0.144e3 * t15132 * t3906 + 0.144e3 * t5146 * t10425 + 0.288e3 * t16610 * t3188 + 0.144e3 * t3911 * t3272 + 0.144e3 * t37557 * t1133 + 0.144e3 * t31654 * t1133 + 0.144e3 * t10529 * t3188 + 0.144e3 * t10516 * t3906 + 0.144e3 * t9649 * t3906 + 0.144e3 * t3240 * t10425 + 0.48e2 * t3233 * t12571 + 0.48e2 * t2501 * t12571 + 0.48e2 * t810 * t37208 + 0.48e2 * t37576 * t787 + 0.24e2 * t301 * (t37614 + t37638 + t37672 + t37708);
19389   t37717 = t808 * t12348;
19390   t37720 = t3228 * t3869;
19391   t37759 = -0.4e1 * t3214 * t12571 - 0.4e1 * t797 * t37208 - t37580 - 0.12e2 * t15361 * t3906 - 0.12e2 * t5368 * t10425 + t793 * t37208 * t304 / 0.2e1 + 0.45e2 / 0.2e1 * t37686 - t37689 + 0.3e1 / 0.8e1 * t31609 * t3257 - 0.75e2 / 0.2e1 * t37690 + 0.45e2 / 0.2e1 * t37692 + 0.85e2 / 0.4e1 * t37694;
19392   t37764 = t2479 * t12571;
19393   t37781 = -0.6e1 * t37696 - 0.6e1 * t37698 - t37701 - 0.19e2 / 0.8e1 * t37703 - 0.2e1 * t37706 + t37764 * t820 / 0.4e1 + 0.3e1 / 0.4e1 * t31604 * t1166 + 0.3e1 / 0.4e1 * t10477 * t3260 + 0.3e1 / 0.8e1 * t10482 * t3260 + t24945 * t12578 * t820 / 0.16e2 - 0.3e1 * t3350 * t3980 - 0.3e1 * t1221 * t10536 - t864 * t12591;
19394   t37803 = -t789 * t37208 + 0.2e1 * t787 * t12700 + 0.2e1 * t296 * (t37759 + t37781) + 0.6e1 * t3906 * t3222 + 0.6e1 * t3188 * t3939 + 0.6e1 * t1133 * t10496 + 0.2e1 * t12571 * t802 + 0.6e1 * t10425 * t1145 + 0.2e1 * t37208 * t308 + 0.6e1 * t2464 * t37286 + 0.6e1 * t2464 * t37288 + 0.2e1 * t2464 * t37290;
19395   t37816 = t24889 * t12578;
19396   t37827 = -t3192 * t12591 / 0.2e1 + 0.21e2 / 0.2e1 * t3928 * t3260 + 0.15e2 / 0.4e1 * t12691 * t820 - 0.3e1 / 0.2e1 * t15311 * t3980 - 0.3e1 / 0.2e1 * t5350 * t10536 - 0.3e1 / 0.4e1 * t10439 * t3260 - t37816 * t820 / 0.8e1 + 0.24e2 * t37461 - 0.18e2 * t37463 - 0.24e2 * t37466 + 0.21e2 / 0.2e1 * t3211 * t10580 - 0.3e1 / 0.4e1 * t15314 * t10580 - 0.18e2 * t37468;
19397   t37841 = -0.392e3 / 0.675e3 * t3282 * t12720 - 0.14e2 / 0.27e2 * t37065 * t1192 - 0.12014101497942386831e1 * t872 * t12723 + 0.44233737333333333333e-1 * t15627 * t12883 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t37208 * t367 + 0.8e1 / 0.7e1 * t12571 * t867 + 0.24e2 / 0.7e1 * t10425 * t1224 + 0.24e2 / 0.7e1 * t3906 * t3353 + 0.24e2 / 0.7e1 * t3188 * t4071 + 0.24e2 / 0.7e1 * t1133 * t10764 + 0.8e1 / 0.7e1 * t787 * t12835 + 0.8e1 / 0.7e1 * t296 * (t37342 + t37369 + t37394 + t37422 + t37447 + t37474 + t37504 + t37529)) * t41 * t45 * t373 - 0.14e2 / 0.27e2 * t10600 * t4005 - 0.3e1 / 0.5e1 * t37542 * t1122 - t3230 * t12365 / 0.5e1 + 0.35e2 / 0.81e2 * t37713 * t336 * t340 - 0.66e2 / 0.125e3 * t37717 * t12349 + 0.18e2 / 0.25e2 * t37720 * t3837 - 0.3e1 / 0.5e1 * t10359 * t3853 + (-0.8e1 / 0.3e1 * t37208 * t311 - 0.8e1 / 0.3e1 * t12571 * t805 - 0.8e1 * t10425 * t1148 - 0.8e1 * t3906 * t3225 - 0.8e1 * t3188 * t3942 - 0.8e1 * t1133 * t10499 - 0.8e1 / 0.3e1 * t787 * t12703 - 0.8e1 / 0.3e1 * t296 * (t37803 + t37827)) * t316 - 0.11795663288888888889e0 * t872 * t12708 - 0.35386989866666666666e-1 * t872 * t12712 + 0.84254737777777777777e-1 * t872 * t12880 + 0.44233737333333333333e-1 * t3358 * t3839;
19398   t37866 = t10506 * t41;
19399   t37873 = t10597 * t41;
19400   t37883 = -0.31595526666666666666e-1 * t3358 * t3855 - 0.10531842222222222222e-1 * t872 * t12873 + 0.16850947555555555555e0 * t3358 * t3861 - 0.30893403851851851852e0 * t872 * t12867 + 0.98e2 / 0.135e3 * t3282 * t12862 - 0.31595526666666666666e-1 * t10769 * t1236 + 0.35e2 / 0.27e2 * t10596 * t1184 * t340 + 0.35e2 / 0.81e2 * t831 * t12642 * t340 - 0.21063684444444444445e0 * t10769 * t1232 + 0.98e2 / 0.135e3 * t10600 * t3948 + 0.98e2 / 0.135e3 * t10603 * t3948 - 0.28e2 / 0.27e2 * t37866 * t1192 - 0.14e2 / 0.27e2 * t10603 * t4005 - 0.14e2 / 0.81e2 * t3282 * t12726 - 0.14e2 / 0.27e2 * t37873 * t1192 + 0.77233509629629629632e0 * t3358 * t3858 + 0.35e2 / 0.27e2 * t3275 * t3957 * t340 + 0.18e2 / 0.25e2 * t10354 * t12392;
19401   t37890 = t875 * t12322;
19402   t37894 = t3365 * t261;
19403   t37899 = t3365 * t3818;
19404   t37906 = -0.18e2 * t3810 * t10339 + 0.162e3 * t12312 * t10328 - 0.36e2 * t15118 * t12303 + 0.162e3 * t15112 * t12330 + 0.3e1 * t1097 * t10772 - 0.27e2 / 0.100e3 * t934 * t12915 - 0.36e2 * t3810 * t10332 + 0.3e1 / 0.10e2 * t11057 * t1315 + t934 * t12931 / 0.10e2 + t269 * (t37841 + t37883) + 0.3e1 / 0.10e2 * t3494 * t4226 + 0.3e1 / 0.10e2 * t10774 * t1315 - 0.648e3 * t12321 * t37890 * t12301 - 0.36e2 * t1101 * t37894 * t3794 + t12308 * t875 + 0.162e3 * t3817 * t37899 * t3794 - 0.6e1 * t1101 * t3160 * t12298;
19405   t37915 = -t36398 / 0.6e1 + t36401 / 0.2e1 + t31254 / 0.2e1 + t36405 / 0.27e2 - t8 * t450 * t762 * t11836 / 0.2e1 - t30941 - t30944 - t31260 / 0.2e1 + 0.3e1 / 0.8e1 * t8 * t254 * p->cam_beta * (t37044 + t37906) - 0.5e1 / 0.12e2 * t30958 + t33041 / 0.9e1 - t30968 - t33047 / 0.4e1;
19406   t37954 = -t3132 * t17 * t4283 * t3134 / 0.2e1 + t8 * t7978 * t762 * t11825 / 0.9e1 - 0.3e1 / 0.2e1 * t8 * t766 * t1345 * t11083 + t30982 - t33080 / 0.6e1 - t2754 * t2755 * t944 * t10282 / 0.2e1 - t33095 / 0.3e1 + 0.3e1 / 0.2e1 * t8 * t3145 * t4283 * t9 + t8654 * t11807 * t11789 / 0.3e1 + 0.3e1 / 0.2e1 * t2416 * t2417 * t11065 * t1082 + t34827 / 0.6e1 + t2754 * t2417 * t3126 * t3507 / 0.2e1 + 0.3e1 / 0.2e1 * t2775 * t8649 * t3774 * t9 + t31003;
19407   t37959 = -t27651 - t7966 + 0.3e1 * t11073 + t11076 / 0.3e1 + 0.3e1 * t11082 - 0.3e1 / 0.2e1 * t11086 + 0.3e1 * t11090 + t27660 + t27661 - t11093 / 0.2e1 + t7975 + 0.3e1 / 0.4e1 * t8687 - t8690 + t13138 + 0.9e1 / 0.8e1 * t11771 + t10 * (t34933 + t34958 + t36288 + t36314 + t36356 + t36395 + t37915 + t37954);
19408   t37966 = t8547 + 0.3e1 * t11776 + 0.2e1 * t11779 - t11783 - t11786 - 0.3e1 / 0.4e1 * t10239 - t27634 + t10242 + t11791 / 0.3e1 - t11795 / 0.2e1 + t11799 / 0.2e1 + t11803 + t13144 + t10258 + t10262 - t13149 - t11809;
19409   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19410     v4rho4[3] = t34890 + t34897 + t37959 + t37966;
19411 
19412   t37981 = -0.6e1 * t11823 - t24763 + 0.4e1 / 0.9e1 * t11828 - 0.2e1 * t10275 - 0.4e1 * t10288 - 0.2e1 * t11833 - 0.2e1 * t11839 + 0.4e1 / 0.9e1 * t11844 - 0.2e1 * t11849 - 0.2e1 / 0.3e1 * t10300 - 0.2e1 * t11854 - 0.2e1 * t11858 + 0.2e1 * t11862 - 0.3e1 / 0.2e1 * t10303;
19413   t37991 = t3516 * t3516;
19414   t38016 = t1243 * t12494;
19415   t38019 = t4090 * t4189;
19416   t38025 = t58 * t278 / t271 / t20074;
19417   t38028 = 0.1e1 / t272 / t1116;
19418   t38040 = my_piecewise3(t260, 0.3e1 * sigma[2] / t280 * t257, 0);
19419   t38046 = t3800 * t3800;
19420   t38051 = tau[1] * t12356;
19421   t38053 = sigma[2] * t38028;
19422   t38059 = t46 * t38053;
19423   t38061 = (0.6160e4 / 0.81e2 * t38051 - 0.2618e4 / 0.81e2 * t38053) * t41 * t45 / 0.4e1 + 0.5236e4 / 0.729e3 * t38059;
19424   t38078 = t4207 * t4207;
19425   t38086 = 0.380875e6 / 0.177147e6 * t38025 + 0.26180e5 / 0.243e3 * t409 * t410 * t38028 + 0.1168e4 / 0.45e2 * t12423 * t1091 + 0.584e3 / 0.135e3 * t1306 * t12298 - 0.146e3 / 0.135e3 * t420 * t38040 * t424 + 0.1168e4 / 0.135e3 * t12430 * t1091 + 0.292e3 / 0.45e2 * t420 * t38046 + 0.146e3 / 0.135e3 * t423 * t38040 - 0.146e3 / 0.135e3 * t38061 * t261 * t424 - 0.584e3 / 0.135e3 * t12412 * t1091 * t424 + 0.584e3 / 0.135e3 * t12415 * t1091 - 0.292e3 / 0.45e2 * t4207 * t3800 * t424 + 0.292e3 / 0.45e2 * t4210 * t3800 - 0.584e3 / 0.135e3 * t1303 * t12298 * t424 + 0.584e3 / 0.135e3 * t38078 + 0.2336e4 / 0.405e3 * t1303 * t12412 + 0.584e3 / 0.405e3 * t420 * t38061 + 0.584e3 / 0.45e2 * t4207 * t3794;
19426   t38091 = t12339 * t1291;
19427   t38097 = t12322 * t3794 * t3800;
19428   t38101 = t263 * t3794 * t3800;
19429   t38108 = t1092 * t12298;
19430   t38111 = -0.36e2 * t1101 * t12463 * t3800 - 0.24e2 * t1101 * t4240 * t12298 + 0.171e3 / 0.250e3 * t38016 * t12496 - 0.27e2 / 0.50e2 * t38019 * t4190 + t1342 * t38086 / 0.10e2 + 0.2e1 / 0.5e1 * t4275 * t12437 + 0.2e1 / 0.5e1 * t38091 * t1314 + 0.3e1 / 0.5e1 * t12341 * t4225 - 0.3888e4 * t16236 * t38097 + 0.1944e4 * t5453 * t38101 - 0.144e3 * t16241 * t12303 + 0.648e3 * t16226 * t12330 - 0.48e2 * t5459 * t38108;
19431   t38113 = t3818 * t12298 * t1091;
19432   t38127 = t3794 * t3794;
19433   t38143 = t4225 * t4225;
19434   t38149 = t12307 * t1100;
19435   t38178 = t1239 * t12322;
19436   t38182 = 0.6e1 / 0.5e1 * t13107 * t1315 - 0.27e2 / 0.100e3 * t406 * t4189 * t38143 - 0.72e2 * t12309 * t3824 - 0.24e2 * t38149 * t1103 - 0.36e2 * t1101 * t12905 * t3800 - 0.27e2 / 0.25e2 * t4093 * t4191 - 0.27e2 / 0.50e2 * t4184 * t4191 + t406 * t1291 * t38086 / 0.10e2 + 0.2e1 / 0.5e1 * t1285 * t12931 + 0.2e1 / 0.5e1 * t1244 * t12931 - 0.72e2 * t3810 * t12502 - 0.9e1 / 0.25e2 * t406 * t4189 * t12437 * t1314 - 0.27e2 / 0.50e2 * t4091 * t4191 + 0.171e3 / 0.250e3 * t1244 * t12936 + 0.171e3 / 0.250e3 * t1285 * t12936 - 0.2592e4 * t12321 * t38178 * t12301;
19437   t38183 = t1096 * t12320;
19438   t38188 = t265 / t3815 / t267;
19439   t38189 = t3818 * t3818;
19440   t38190 = t376 * t38189;
19441   t38196 = t3807 * t3816;
19442   t38203 = t1239 * t263;
19443   t38225 = t3794 * t3800;
19444   t38228 = t262 * t38040;
19445   t38237 = t261 * t38046;
19446   t38242 = (0.8e1 * t1091 * t12298 + 0.2e1 * t261 * t38040 + 0.6e1 * t38046 + 0.72e2 * t38108 + 0.108e3 * t38225 + 0.9e1 * t38228 + 0.54e2 * t38237) * t268;
19447   t38251 = -0.9720e4 * t38127 * t38188 * t38189 + 0.24e2 * t1094 * t38149 + 0.72e2 * t1101 * t38225 + 0.6e1 * t1101 * t38228 + 0.48e2 * t12301 * t3810 + 0.24e2 * t12305 * t3810 + 0.72e2 * t12309 * t3803 + 0.36e2 * t12309 * t3805 + 0.2592e4 * t12323 * t38183 - 0.324e3 * t38196 * t4083 - t38242;
19448   t38258 = t3818 * t261;
19449   t38278 = 0.7776e4 * t12321 * t38127 * t38258 - 0.1080e4 * t262 * t38127 * t3817 - 0.162e3 * t38046 * t3817 * t3818 + 0.48e2 * t1101 * t38108 + 0.36e2 * t1101 * t38237 + 0.144e3 * t12303 * t3810 - 0.1296e4 * t12312 * t12326 - 0.648e3 * t12312 * t12330 + 0.3888e4 * t12321 * t38097 - 0.1944e4 * t38101 * t3817 - 0.216e3 * t38113 * t3817;
19450   t38279 = t38251 + t38278;
19451   t38290 = t3837 * t3853;
19452   t38297 = t1122 * t12365;
19453   t38300 = t3834 * t3834;
19454   t38303 = t39 / t287 / t38300;
19455   t38304 = t3837 * t3837;
19456   t38309 = t3895 * t3895;
19457   t38314 = t3900 * t3900;
19458   t38319 = t3853 * t3853;
19459   t38324 = -t7060 - t24817;
19460   t38325 = 0.24e2 * t38324;
19461   t38332 = 0.38902804850480109738e2 * t38059 + 0.55525861793708208711e1 * t38025;
19462   t38350 = 0.2387e4 / 0.60000e5 * t490 * t38303 * t290 * t38304 + 0.140e3 / 0.729e3 * t490 * t778 * t24848 * t38309 + 0.2e1 / 0.27e2 * t490 * t778 * t2442 * t38314 + 0.11e2 / 0.600e3 * t490 * t3882 * t290 * t38319 - t490 * t778 * t780 * t38325 / 0.54e2 - t490 * t1109 * t290 * t38332 / 0.180e3 - 0.11e2 / 0.450e3 * t37101 - t37104 / 0.135e3 - t37107 / 0.135e3 - 0.8e1 / 0.81e2 * t37110 + 0.4e1 / 0.405e3 * t37127 + 0.77e2 / 0.4500e4 * t37140 + t37143 / 0.135e3 + 0.2e1 / 0.81e2 * t37146 + 0.56e2 / 0.729e3 * t37149 + 0.11e2 / 0.1350e4 * t37156 + 0.56e2 / 0.729e3 * t29518 + 0.28e2 / 0.1215e4 * t29521 + 0.4e1 / 0.405e3 * t31381;
19463   t38411 = t490 * t1109 * t10392 * t3900 / 0.90e2 + t490 * t1109 * t3169 * t12543 / 0.135e3 + 0.77e2 / 0.4500e4 * t490 * t12553 * t37158 * t1127 + 0.28e2 / 0.1215e4 * t490 * t1109 * t12531 * t1122 - 0.28e2 / 0.81e2 * t490 * t778 * t10400 * t3900 + 0.8e1 / 0.81e2 * t490 * t778 * t3177 * t12543 + 0.11e2 / 0.450e3 * t490 * t3882 * t1123 * t12365 + t490 * t1109 * t37182 * t1127 / 0.135e3 + 0.11e2 / 0.675e3 * t490 * t3882 * t31375 * t3895 - 0.77e2 / 0.1000e4 * t490 * t12553 * t3883 * t3853 - 0.2e1 / 0.135e3 * t490 * t1109 * t31455 * t3895 - 0.11e2 / 0.900e3 * t490 * t3882 * t10370 * t3900 + 0.16e2 / 0.243e3 * t31396 - 0.4e1 / 0.81e2 * t31402 - 0.2e1 / 0.135e3 * t31408 + 0.11e2 / 0.675e3 * t31423 + t24827 - 0.11e2 / 0.450e3 * t5889 * t15151 * t12392 * t1127 - 0.4e1 / 0.135e3 * t5889 * t10378 * t37081 * t1127;
19464   t38413 = my_piecewise3(t295, 0, t38350 + t38411);
19465   t38428 = t3906 * t3906;
19466   t38431 = t1133 * t12571;
19467   t38455 = 0.15e2 * t10468 * t3980;
19468   t38456 = t3911 * t3911;
19469   t38458 = t2479 * t38456 * t304;
19470   t38460 = t3912 * t3980;
19471   t38463 = t2472 * t38428 * t304;
19472   t38465 = t3205 * t12591;
19473   t38468 = t297 * t38413 * t304;
19474   t38479 = t24961 * t38456 * t304;
19475   t38485 = t8035 * t38456 * t304;
19476   t38487 = -0.3e1 * t302 * t38428 * t304 - 0.4e1 * t1221 * t12591 + t37764 * t1166 + 0.3e1 / 0.4e1 * t2479 * t38428 * t304 + 0.3e1 / 0.4e1 * t31609 * t3977 - t38455 - 0.75e2 / 0.2e1 * t38458 + 0.45e2 * t38460 - 0.6e1 * t38463 - 0.8e1 * t38465 - t38468 - 0.4e1 * t797 * t38413 + t24945 * t38456 * t304 / 0.16e2 - 0.12e2 * t38428 * t305 - 0.16e2 * t5368 * t12571 - 0.19e2 / 0.8e1 * t38479 + t793 * t38413 * t304 / 0.2e1 + 0.85e2 / 0.4e1 * t38485;
19477   t38497 = t10471 * t3977;
19478   t38499 = t38456 * t2459;
19479   t38500 = t38499 * t304;
19480   t38505 = t8058 * t38456 * t304;
19481   t38507 = 0.2e1 * t38413 * t308 + 0.12e2 * t3906 * t3939 + 0.8e1 * t12571 * t1145 + 0.6e1 * t2464 * t38428 + 0.8e1 * t2464 * t38431 - 0.2e1 * t5350 * t12591 - 0.3e1 / 0.2e1 * t10439 * t3980 + 0.21e2 * t3928 * t3980 - 0.3e1 / 0.2e1 * t2459 * t38428 * t304 + 0.2e1 * t296 * t38487 - t789 * t38413 - t24889 * t38456 * t304 / 0.8e1 + 0.15e2 / 0.4e1 * t8068 * t38456 * t304 - 0.36e2 * t38497 + 0.24e2 * t38500 + 0.8e1 * t1133 * t12700 - 0.24e2 * t38505;
19482   t38515 = t12632 * t41;
19483   t38526 = t12635 * t41;
19484   t38529 = t12638 * t41;
19485   t38539 = 0.1e1 / t338 / t38300;
19486   t38540 = t45 * t38539;
19487   t38546 = -0.21232193920000000000e0 * t5323 * t16765 * t38290 - 0.47182653155555555556e0 * t5323 * t16769 * t12392 + 0.24e2 / 0.25e2 * t3870 * t38297 + (-0.8e1 / 0.3e1 * t38413 * t311 - 0.32e2 / 0.3e1 * t12571 * t1148 - 0.16e2 * t3906 * t3942 - 0.32e2 / 0.3e1 * t1133 * t12703 - 0.8e1 / 0.3e1 * t296 * t38507) * t316 + 0.70e2 / 0.27e2 * t3995 * t3957 * t340 - 0.56e2 / 0.81e2 * t38515 * t1192 + 0.15446701925925925926e1 * t4076 * t3858 + 0.196e3 / 0.135e3 * t12853 * t3948 + 0.392e3 / 0.135e3 * t12847 * t3948 + 0.196e3 / 0.135e3 * t12850 * t3948 - 0.56e2 / 0.27e2 * t38526 * t1192 - 0.56e2 / 0.27e2 * t38529 * t1192 + 0.68079908488340192042e1 * t372 * t38053 * t339 + 0.98e2 / 0.135e3 * t1188 * t3947 * t38319 + 0.6664e4 / 0.3375e4 * t1188 * t38540 * t38304 - 0.48056405991769547326e1 * t1229 * t12723;
19488   t38547 = t12643 * t41;
19489   t38558 = t12706 * t1154;
19490   t38569 = t1151 * t12348;
19491   t38586 = -0.56e2 / 0.81e2 * t38547 * t1192 + 0.140e3 / 0.81e2 * t12631 * t1184 * t340 + 0.17693494933333333333e0 * t16773 * t12883 + 0.58978316444444444444e-1 * t5323 * t5324 * t38297 - 0.4e1 / 0.5e1 * t38558 * t1122 - t1155 * t38332 / 0.5e1 - 0.4e1 / 0.5e1 * t3875 * t12365 - 0.6e1 / 0.5e1 * t12646 * t3853 + 0.18e2 / 0.25e2 * t3870 * t38319 - 0.264e3 / 0.125e3 * t38569 * t12349 - 0.42127368888888888888e-1 * t12840 * t1236 + 0.392e3 / 0.135e3 * t4002 * t12862 + 0.392e3 / 0.405e3 * t1188 * t3947 * t38297 + 0.392e3 / 0.135e3 * t3999 * t12862 + 0.11233965037037037037e0 * t372 * t1113 * t12872 + 0.33701895111111111111e0 * t1229 * t12880;
19492   t38637 = t38428 * t304;
19493   t38647 = t38456 * t304;
19494   t38668 = -0.3e1 * t2602 * t38637 + 0.48e2 * t863 * t38499 + 0.12e2 * t863 * t793 * t38428 + 0.24e2 * t29958 * t12588 - 0.30e2 * t2571 * t38647 + 0.15e2 / 0.2e1 * t25156 * t38647 + 0.4320e4 * t4068 * t3977 - 0.9e1 / 0.4e1 * t25192 * t38647 + 0.75e2 / 0.4e1 * t25165 * t38647 - 0.9e1 / 0.2e1 * t2566 * t38637 + 0.3e1 / 0.4e1 * t2571 * t38637 + 0.2e1 * t37409 * t1166 + 0.3e1 / 0.2e1 * t32120 * t3977 + 0.3e1 * t10632 * t3980;
19495   t38671 = t38413 * t304;
19496   t38735 = -0.371589120e9 * t10732 * t3906 + 0.6144e4 * t1160 * t12571 - 0.46080e5 * t1162 * t12571 + 0.646632e6 * t1213 * t12571 - 0.35389440e8 * t12571 * t3301 + 0.4608e4 * t296 * t38428 - 0.69120e5 * t296 * t38456 + 0.768e3 * t301 * t38413 - 0.2880e4 * t319 * t38413 - 0.34560e5 * t344 * t38428 + 0.3233160e7 * t344 * t38456 + 0.484974e6 * t346 * t38428 - 0.371589120e9 * t346 * t38456 - 0.26542080e8 * t348 * t38428 - 0.1105920e7 * t350 * t38413 + 0.26943e5 * t357 * t38413 + 0.9216e4 * t3906 * t3911 - 0.207360e6 * t3906 * t3970 + 0.4849740e7 * t3906 * t4048 - 0.8e1 * t38413;
19497   t38739 = 0.2e1 * t3308 * t12591 + t847 * t38671 / 0.2e1 + t30009 * t12588 / 0.2e1 + t25197 * t38647 / 0.16e2 - 0.9e1 * t29964 * t12588 + 0.1728e4 * t9872 * t12574 + 0.576e3 * t2574 * t38431 + 0.960e3 * t1170 * t12813 + 0.240e3 * t324 * t38413 * t299 - 0.1920e4 * t1143 * t12591 - t25112 * t38647 / 0.4e1 - 0.2e1 * t863 * t302 * t38413 + t38735 * t304 + 0.576e3 * t12578 * t1215;
19498   t38743 = t296 * t38413;
19499   t38746 = t4013 * t3906;
19500   t38748 = t301 * t38428;
19501   t38750 = t1197 * t12571;
19502   t38752 = t344 * t38413;
19503   t38764 = 0.614400e6 * t1199 * t12571 + 0.1843200e7 * t301 * t38456 + 0.460800e6 * t319 * t38428 + 0.30720e5 * t346 * t38413 + 0.3686400e7 * t3906 * t4017 + 0.1344e4 * t38428 + 0.1792e4 * t38431 - 0.34560e5 * t38456 + 0.448e3 * t38743 - 0.207360e6 * t38746 - 0.51840e5 * t38748 - 0.69120e5 * t38750 - 0.5760e4 * t38752;
19504   t38793 = -0.1440e4 * t297 * t304 * t38428 + 0.720e3 * t299 * t38428 * t78 + 0.432e3 * t10698 * t3906 + 0.288e3 * t1133 * t37345 + 0.288e3 * t12571 * t3325 + 0.864e3 * t16552 * t3906 + 0.432e3 * t2574 * t38428 + 0.864e3 * t31907 * t3911 - 0.9e1 * t32113 * t3977 + 0.24e2 * t344 * t38764 + 0.72e2 * t38413 * t850 - 0.2880e4 * t38647 * t793 + 0.2640e4 * t38500 - 0.240e3 * t38505;
19505   t38797 = t3977 * t3906;
19506   t38800 = t12591 * t1133;
19507   t38824 = -0.48e2 * t25183 * t38647 - 0.2160e4 * t38497 - 0.27e2 / 0.2e1 * t8222 * t38797 - 0.6e1 * t2566 * t38800 + t2571 * t38800 - 0.18e2 * t9775 * t12622 + 0.3e1 * t9745 * t12622 + 0.36e2 * t8252 * t38797 + 0.42e2 * t8255 * t38797 - 0.72e2 * t863 * t3922 * t3906 - 0.3e1 * t8240 * t38797 + 0.16e2 * t863 * t12686 * t1133 - 0.4e1 * t2602 * t38800 + 0.3e1 / 0.4e1 * t8227 * t38797;
19508   t38834 = -0.42127368888888888888e-1 * t1229 * t12873 - 0.10531842222222222222e-1 * t372 * t275 * t1190 * t38332 - 0.47182653155555555555e0 * t1229 * t12708 + 0.12031576554666666666e0 * t372 * t275 * t38539 * t38304 + 0.37746122524444444445e0 * t372 * t1113 * t12711 - 0.61786807703703703704e0 * t372 * t3844 * t3854 + 0.19222562396707818930e1 * t372 * t12357 * t1235 + 0.88467474666666666665e-1 * t4076 * t3839 - 0.63191053333333333332e-1 * t4076 * t3855 + 0.86501530785185185186e0 * t372 * t3844 * t3838 - 0.784e3 / 0.225e3 * t1188 * t12719 * t38290 - 0.14154795946666666667e0 * t1229 * t12712 + 0.33701895111111111111e0 * t4076 * t3861 + 0.44233737333333333333e-1 * t372 * t275 * t3836 * t38319 - 0.12357361540740740741e1 * t1229 * t12867 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t38413 * t367 + 0.32e2 / 0.7e1 * t12571 * t1224 + 0.48e2 / 0.7e1 * t3906 * t4071 + 0.32e2 / 0.7e1 * t1133 * t12835 + 0.8e1 / 0.7e1 * t296 * (t38668 + t38739 + t38793 + t38824)) * t41 * t45 * t373;
19509   t38855 = 0.1e1 / t315 / t38300;
19510   t38856 = t314 * t38855;
19511   t38859 = t3945 * t3869;
19512   t38878 = 0.1536e4 * t38456;
19513   t38881 = 0.2304e4 * t38748;
19514   t38882 = 0.256e3 * t38752;
19515   t38888 = 0.9216e4 * t38746;
19516   t38889 = 0.3072e4 * t38750;
19517   t38905 = t38878 - 0.288e3 * t38431 - 0.72e2 * t38743 + t38881 + t38882 - t38455 + 0.120e3 * t38460 - 0.20e2 * t38465 + (0.120e3 * t38428 + 0.160e3 * t38431 + 0.40e2 * t38743 - t38878 - t38888 - t38881 - t38889 - t38882) * t304 + t38888 + t38889 - 0.100e3 * t38458 - 0.15e2 * t38463 - 0.10e2 * t38468 - 0.5e1 / 0.4e1 * t38479 + 0.55e2 / 0.2e1 * t38485 - 0.216e3 * t38428 + 0.10e2 * t78 * t38413 * t299 + 0.36e2 * t8140 * t38797 + 0.3e1 / 0.4e1 * t8127 * t38797;
19518   t38945 = -0.6e1 * t2517 * t38800 + t2524 * t38800 - 0.18e2 * t9713 * t12622 + 0.3e1 * t9704 * t12622 - 0.27e2 / 0.2e1 * t8120 * t38797 - 0.9e1 * t31784 * t3977 + 0.24e2 * t29745 * t12588 - 0.30e2 * t2524 * t38647 - 0.9e1 / 0.2e1 * t2517 * t38637 + 0.3e1 / 0.4e1 * t2524 * t38637 - 0.9e1 / 0.4e1 * t25041 * t38647 - 0.9e1 * t29751 * t12588 + 0.75e2 / 0.4e1 * t25004 * t38647 + 0.2e1 * t37603 * t1166 + t29739 * t12588 / 0.2e1 + 0.3e1 / 0.2e1 * t31772 * t3977 + 0.3e1 * t10544 * t3980 + t25024 * t38647 / 0.16e2 + 0.2e1 * t3252 * t12591 + t819 * t38671 / 0.2e1;
19519   t38956 = 0.11068327545679012346e2 * t38051;
19520   t38966 = -0.28e2 / 0.27e2 * t12853 * t4005 - 0.56e2 / 0.27e2 * t12847 * t4005 - 0.56e2 / 0.81e2 * t3999 * t12726 - 0.28e2 / 0.27e2 * t12850 * t4005 - 0.56e2 / 0.81e2 * t4002 * t12726 - 0.14e2 / 0.81e2 * t1188 * t1191 * t38332 - 0.1568e4 / 0.675e3 * t4002 * t12720 - 0.1568e4 / 0.675e3 * t3999 * t12720 - 0.28084912592592592593e0 * t12840 * t1232 + 0.1056e4 / 0.625e3 * t38856 * t38304 + 0.36e2 / 0.25e2 * t38859 * t3837 + 0.35e2 / 0.81e2 * (0.144e3 * t38428 * t327 + 0.576e3 * t16610 * t3906 + 0.192e3 * t5146 * t12571 + 0.288e3 * t3911 * t3992 + 0.192e3 * t37576 * t1133 + 0.288e3 * t10529 * t3906 + 0.192e3 * t3240 * t12571 + 0.48e2 * t810 * t38413 + 0.24e2 * t301 * (t38905 + t38945)) * t336 * t340 + 0.140e3 / 0.81e2 * t1177 * t12642 * t340 + 0.35e2 / 0.81e2 * t330 * (-t38956 + 0.10936459918683127572e2 * t38053) * t340 - 0.396e3 / 0.125e3 * t12656 * t38290 + 0.72e2 / 0.25e2 * t12649 * t12392;
19521   t38970 = -0.2592e4 * t38183 * t12919 + 0.9720e4 * t38188 * t38190 * t38127 - 0.24e2 * t3810 * t13123 + 0.324e3 * t38196 * t3820 - 0.36e2 * t12309 * t3831 - 0.27e2 / 0.25e2 * t1285 * t12915 + 0.1296e4 * t3817 * t38203 * t12301 - 0.144e3 * t16875 * t12303 + 0.648e3 * t16895 * t12330 - 0.27e2 / 0.25e2 * t1244 * t12915 + 0.4e1 * t12339 * t1284 * t428 + t38279 * t405 * t428 + 0.3e1 / 0.5e1 * t4184 * t4226 + 0.1944e4 * t5122 * t38101 + 0.6e1 / 0.5e1 * t4093 * t4226 + 0.4e1 * t1097 * t12887 + t269 * (t38546 + t38586 + t38834 + t38966);
19522   t39010 = -0.32e2 / 0.81e2 * t32245 - 0.448e3 / 0.2187e4 * t36438 + 0.64e2 / 0.243e3 * t36445 - 0.16e2 / 0.81e2 * t36448 + 0.64e2 / 0.243e3 * t36452 - 0.16e2 / 0.243e3 * t36476 - 0.16e2 / 0.81e2 * t36479 + 0.32e2 / 0.243e3 * t32916 - 0.128e3 / 0.729e3 * t32923 + 0.16e2 / 0.81e2 * t490 * t880 * t1279 * t12543 + 0.4e1 / 0.81e2 * t490 * t880 * t400 * t38325 - 0.1120e4 / 0.2187e4 * t490 * t25381 * t400 * t38309 - 0.16e2 / 0.81e2 * t490 * t2630 * t400 * t38314;
19523   t39043 = t3895 * t3900;
19524   t39051 = t1127 * t12543;
19525   t39059 = -t25471 + 0.40e2 / 0.243e3 * t30734 + 0.8e1 / 0.81e2 * t32641 - 0.4e1 / 0.27e2 * t32648 + 0.40e2 / 0.243e3 * t36864 - 0.8e1 / 0.27e2 * t36873 + 0.4e1 / 0.27e2 * t36885 - 0.80e2 / 0.243e3 * t166 * t168 * t8365 * t38309 + 0.20e2 / 0.27e2 * t3023 * t9942 * t39043 - 0.2e1 / 0.9e1 * t166 * t168 * t913 * t38314 - 0.8e1 / 0.27e2 * t3023 * t3400 * t39051 + t166 * t168 * t389 * t38325 / 0.9e1;
19526   t39091 = 0.2e1 * t388 * t39059 - 0.4e1 / 0.27e2 * t36779 - 0.16e2 / 0.81e2 * t36782 + 0.4e1 / 0.81e2 * t36794 + 0.4e1 / 0.27e2 * t36798 + 0.8e1 / 0.27e2 * t32621 + 0.6e1 * t4152 * t4123 + 0.8e1 / 0.27e2 * t490 * t2630 * t4173 * t3895 - 0.16e2 / 0.81e2 * t32719 - 0.8e1 / 0.81e2 * t32722 + 0.32e2 / 0.243e3 * t32725 + 0.16e2 / 0.81e2 * t490 * t2630 * t12959 * t1127 + 0.16e2 / 0.27e2 * t490 * t2630 * t12963 * t1127 - 0.112e3 / 0.243e3 * t30665 + 0.6e1 * t1266 * t13082 + 0.280e3 / 0.729e3 * t490 * t25381 * t395 * t38309;
19527   t39114 = t4149 * t4149;
19528   t39115 = t39114 * t388;
19529   t39117 = t4151 * t4151;
19530   t39118 = t39117 * t388;
19531   t39143 = t25605 - 0.64e2 / 0.243e3 * t30461 - 0.8e1 / 0.81e2 * t32266 + 0.8e1 / 0.27e2 * t32272 - 0.64e2 / 0.243e3 * t36567 + 0.16e2 / 0.27e2 * t36578 - 0.16e2 / 0.27e2 * t36593 + 0.56e2 / 0.243e3 * t179 * t181 * t8005 * t38309 - 0.16e2 / 0.27e2 * t3065 * t10035 * t39043 + 0.2e1 / 0.9e1 * t179 * t181 * t780 * t38314 + 0.8e1 / 0.27e2 * t3065 * t3440 * t39051 - 0.2e1 / 0.9e1 * t179 * t181 * t290 * t38325;
19532   t39144 = t39143 * t388;
19533   t39150 = t13016 * t1265 * t388;
19534   t39158 = t4149 * t4151 * t388;
19535   t39174 = 0.4e1 / 0.27e2 * t36629 + 0.4e1 * t39150 + 0.20e2 / 0.81e2 * t32338 - 0.10e2 / 0.27e2 * t32366 - 0.10e2 / 0.27e2 * t32369 + 0.160e3 / 0.243e3 * t30366 - 0.100e3 / 0.243e3 * t32400 - t679 * t919 * t39158 / 0.3e1 + 0.80e2 / 0.81e2 * t679 * t8366 * t4155 * t3900 + 0.160e3 / 0.243e3 * t679 * t8366 * t1266 * t12530 - 0.10e2 / 0.27e2 * t679 * t2714 * t4150 * t3895;
19536   t39212 = 0.2e1 / 0.9e1 * t679 * t914 * t4150 * t3900 - 0.2e1 / 0.9e1 * t679 * t919 * t39150 + 0.2e1 / 0.9e1 * t679 * t914 * t4152 * t3900 - 0.20e2 / 0.81e2 * t679 * t2714 * t12997 * t1127 + 0.4e1 / 0.27e2 * t679 * t914 * t1266 * t12543 + 0.4e1 / 0.27e2 * t679 * t914 * t13017 * t1127 - 0.8e1 / 0.81e2 * t36672 - 0.20e2 / 0.27e2 * t9369 * t10838 * t36742 - 0.10e2 / 0.27e2 * t679 * t2714 * t4152 * t3895 + 0.4e1 / 0.27e2 * t679 * t914 * t12993 * t1127 + 0.4e1 / 0.9e1 * t36700;
19537   t39241 = -0.8e1 / 0.27e2 * t36703 + 0.4e1 / 0.9e1 * t9369 * t10096 * t13039 + 0.40e2 / 0.81e2 * t32497 - 0.440e3 / 0.729e3 * t679 * t25656 * t390 * t38309 - 0.5e1 / 0.27e2 * t679 * t2714 * t390 * t38314 + 0.6e1 * t39158 - 0.320e3 / 0.729e3 * t30532 - t679 * t919 * t39115 / 0.6e1 - t679 * t919 * t39118 / 0.18e2 + t679 * t914 * t390 * t38325 / 0.27e2 - t679 * t919 * t39144 / 0.18e2;
19538   t39271 = 0.4e1 / 0.27e2 * t490 * t2630 * t395 * t38314 - 0.4e1 / 0.27e2 * t490 * t880 * t13048 * t1127 + 0.2e1 * t13017 * t1254 + 0.6e1 * t4150 * t4123 + 0.2e1 * t12993 * t1254 - 0.112e3 / 0.243e3 * t490 * t8454 * t1274 * t12530 + t38 * t40 * t290 * (-0.8e1 / 0.27e2 * t36517 + 0.40e2 / 0.81e2 * t36520 + 0.40e2 / 0.81e2 * t36523 - 0.8e1 / 0.27e2 * t36526 + 0.3e1 * t39115 + t39118 + t39144 + 0.4e1 / 0.27e2 * t36532 - 0.320e3 / 0.729e3 * t36535 - t25525 + t39174 + t39212 + t39241) / 0.9e1 - 0.56e2 / 0.81e2 * t490 * t8454 * t4128 * t3900 + 0.4e1 / 0.27e2 * t36915 - 0.16e2 / 0.81e2 * t36922 + 0.112e3 / 0.729e3 * t36937 + 0.112e3 / 0.729e3 * t30802 + t25730 - 0.4e1 / 0.27e2 * t490 * t880 * t1274 * t12543 - t490 * t880 * t395 * t38325 / 0.27e2 - 0.2e1 / 0.9e1 * t490 * t880 * t4173 * t3900 + 0.6e1 * t1266 * t1254 * t4149;
19539   t39287 = 0.448e3 / 0.729e3 * t30277 - t25347 - 0.64e2 / 0.81e2 * t490 * t2630 * t12944 * t1127 + 0.224e3 / 0.243e3 * t490 * t8454 * t4100 * t3900 - 0.64e2 / 0.243e3 * t490 * t2630 * t12940 * t1127 - 0.32e2 / 0.81e2 * t490 * t2630 * t4178 * t3895 + 0.64e2 / 0.243e3 * t32961 + 0.8e1 / 0.27e2 * t490 * t880 * t4178 * t3900 - 0.4e1 / 0.27e2 * t38 * t40 * t290 * (t39091 + t39271) + 0.448e3 / 0.729e3 * t490 * t8454 * t1279 * t12530 + 0.16e2 / 0.81e2 * t37002 + 0.16e2 / 0.81e2 * t490 * t880 * t13085 * t1127 - 0.448e3 / 0.2187e4 * t30858;
19540   t39293 = t4079 * t261;
19541   t39318 = 0.2e1 / 0.5e1 * t13101 * t1315 + 0.648e3 * t12312 * t13120 - 0.24e2 * t1101 * t3823 * t12298 - 0.6e1 * t1101 * t1102 * t38040 + 0.6e1 * t3808 * t4079 + t38242 * t376 + t378 * (t39010 + t39287) * t428 + 0.2e1 / 0.5e1 * t13110 * t1315 - 0.72e2 * t1101 * t39293 * t3794 - 0.72e2 * t12309 * t3828 - 0.144e3 * t3810 * t12896 + 0.1296e4 * t12312 * t12890 - 0.36e2 * t1101 * t3827 * t38046 - 0.72e2 * t1101 * t16830 * t3800 + 0.6e1 * t4090 * t4183 * t428 + 0.1080e4 * t3817 * t1102 * t38127 + 0.162e3 * t3817 * t3819 * t38046;
19542   t39325 = 0.1e1 / t1290 / t12492 / t427;
19543   t39326 = t4190 * t4190;
19544   t39346 = t4079 * t3818;
19545   t39350 = t376 * t38258;
19546   t39364 = t12887 * t262;
19547   t39368 = -0.72e2 * t3810 * t12906 + 0.3e1 / 0.5e1 * t4091 * t4226 - 0.4959e4 / 0.10000e5 * t406 * t39325 * t39326 - 0.48e2 * t1101 * t1239 * t12301 + 0.6e1 / 0.5e1 * t12911 * t1315 - 0.3888e4 * t16906 * t38097 + 0.648e3 * t16898 * t12330 + 0.4e1 * t1243 * t13100 * t428 + 0.513e3 / 0.500e3 * t406 * t12494 * t4190 * t4225 + 0.324e3 * t3817 * t39346 * t3794 - 0.7776e4 * t12321 * t39350 * t38127 + 0.4e1 * t12308 * t1239 + 0.216e3 * t5122 * t38113 - 0.144e3 * t16870 * t12303 - 0.48e2 * t5130 * t38108 - 0.48e2 * t3810 * t13112 - 0.24e2 * t1101 * t39364 * t1091;
19548   t39373 = t4272 * t3818;
19549   t39379 = 0.216e3 * t5453 * t38113 - 0.27e2 / 0.25e2 * t12440 * t12485 + 0.513e3 / 0.500e3 * t12495 * t4190 * t4225 - 0.9e1 / 0.25e2 * t4278 * t1314 * t12437 - 0.72e2 * t1101 * t16193 * t3800 + 0.1080e4 * t3817 * t441 * t38127 * t262 - 0.24e2 * t3810 * t12446 - 0.6e1 * t1101 * t1321 * t38040 - 0.36e2 * t12309 * t4248 - 0.72e2 * t3810 * t12443 - p->cam_beta * (t38182 + t38970 + t39318 + t39368) + t38279 * t428 + 0.324e3 * t3817 * t39373 * t3794 + 0.324e3 * t38196 * t4237;
19550   t39388 = t12397 * t262;
19551   t39396 = t378 * t39325;
19552   t39399 = t1339 * t12322;
19553   t39403 = t441 * t38189;
19554   t39413 = 0.648e3 * t12312 * t12477 - 0.2592e4 * t38183 * t12460 + t38242 * t441 + 0.4e1 * t12308 * t1339 - 0.24e2 * t1101 * t39388 * t1091 - 0.144e3 * t16197 * t12303 + 0.648e3 * t16222 * t12330 - 0.4959e4 / 0.10000e5 * t39396 * t39326 - 0.2592e4 * t12321 * t39399 * t12301 + 0.9720e4 * t38188 * t39403 * t38127 - 0.72e2 * t3810 * t12464 - 0.24e2 * t38149 * t1322 - 0.72e2 * t12309 * t4241;
19555   t39416 = t4272 * t261;
19556   t39425 = t1339 * t263;
19557   t39429 = t441 * t38258;
19558   t39457 = t4261 * t3836;
19559   t39460 = t1333 * t12388;
19560   t39465 = t438 * t38539;
19561   t39479 = t12376 * t1190;
19562   t39486 = -t1154 * t38332 / 0.5e1 + 0.7e1 / 0.9e1 * (0.16533692061454046639e2 * t38059 - 0.5e1 / 0.9e1 * (t38956 + 0.30685498274897119342e1 * t38053) * t41 * t45) * t339 - 0.784e3 / 0.125e3 * t12389 * t38290 + 0.98e2 / 0.75e2 * t4267 * t38319 + 0.392e3 / 0.225e3 * t4267 * t38297 + 0.196e3 / 0.75e2 * t39457 * t3837 - 0.1568e4 / 0.375e3 * t39460 * t12349 + 0.392e3 / 0.75e2 * t12382 * t12392 + 0.6664e4 / 0.1875e4 * t39465 * t38304 - 0.14e2 / 0.45e2 * t1336 * t38332 + 0.1056e4 / 0.625e3 * t38855 * t38304 - 0.396e3 / 0.125e3 * t12348 * t3837 * t3853 + 0.18e2 / 0.25e2 * t3869 * t38319 + 0.24e2 / 0.25e2 * t12352 * t12365 - 0.56e2 / 0.45e2 * t39479 * t1122 - 0.28e2 / 0.15e2 * t12379 * t3853 - 0.56e2 / 0.45e2 * t4264 * t12365;
19563   t39497 = -0.72e2 * t12309 * t4245 - 0.72e2 * t1101 * t39416 * t3794 + 0.162e3 * t3817 * t4236 * t38046 + 0.1296e4 * t12312 * t12452 + 0.1296e4 * t3817 * t39425 * t12301 - 0.7776e4 * t12321 * t39429 * t38127 - 0.36e2 * t1101 * t4244 * t38046 - 0.144e3 * t3810 * t12456 + 0.4e1 * t1097 * t12397 + t269 * t39486 - 0.27e2 / 0.100e3 * t4278 * t38143 - 0.48e2 * t3810 * t12499 - 0.48e2 * t1101 * t1339 * t12301 + 0.6e1 * t3808 * t4272;
19564   t39508 = 0.2e1 * t2775 * t2417 * t1077 * t11836 - t8 * t1811 * t247 * t37991 / 0.2e1 + 0.2e1 / 0.3e1 * t8654 * t3133 * t3779 * t3788 - 0.2e1 / 0.3e1 * t34912 + t34915 / 0.2e1 + 0.2e1 / 0.9e1 * t31055 - 0.4e1 / 0.3e1 * t31064 + t31070 / 0.2e1 - 0.20e2 / 0.27e2 * t27712 + 0.3e1 * t2775 * t2417 * t3774 * t3516 - 0.3e1 / 0.8e1 * t8 * t254 * (t38111 + t39379 + t39413 + t39497) + 0.2e1 * t2775 * t2417 * t12287 * t944 - t34937 / 0.2e1;
19565   t39519 = t3523 * t3523;
19566   t39528 = t3528 * t3528;
19567   t39537 = -t38325;
19568   t39542 = t26061 + 0.56e2 / 0.729e3 * t27773 + 0.16e2 / 0.243e3 * t33230 - 0.4e1 / 0.81e2 * t33236 + 0.56e2 / 0.729e3 * t34986 - 0.8e1 / 0.81e2 * t35030 + 0.2e1 / 0.81e2 * t34983 + 0.140e3 / 0.729e3 * t490 * t511 * t26143 * t39519 - 0.28e2 / 0.81e2 * t490 * t511 * t11113 * t3528 + 0.2e1 / 0.27e2 * t490 * t511 * t1969 * t39528 + 0.8e1 / 0.81e2 * t490 * t511 * t2797 * t11881 - t490 * t511 * t513 * t39537 / 0.54e2;
19569   t39543 = my_piecewise3(t76, 0, t39542);
19570   t39554 = t3539 * t3539;
19571   t39555 = t26388 * t39554;
19572   t39557 = t3539 * t3534;
19573   t39558 = t7699 * t39557;
19574   t39560 = t3534 * t3534;
19575   t39563 = t954 * t11887;
19576   t39567 = t7504 * t39554 * t86;
19577   t39588 = t2006 * t39554 * t86;
19578   t39590 = t3540 * t3594;
19579   t39593 = t1999 * t39560 * t86;
19580   t39595 = t2827 * t11991;
19581   t39598 = 0.15e2 * t11183 * t3594;
19582   t39613 = t79 * t39543 * t86;
19583   t39615 = t26252 * t39554 * t86;
19584   t39628 = t7643 * t39554 * t86;
19585   t39630 = -0.75e2 / 0.2e1 * t39588 + 0.45e2 * t39590 - 0.6e1 * t39593 - 0.8e1 * t39595 - t39598 + t35078 * t982 + 0.3e1 / 0.4e1 * t2006 * t39560 * t86 + 0.3e1 / 0.4e1 * t33754 * t3591 - 0.3e1 * t84 * t39560 * t86 - 0.4e1 * t1023 * t11991 - 0.4e1 * t529 * t39543 - t39613 - 0.19e2 / 0.8e1 * t39615 + t525 * t39543 * t86 / 0.2e1 + t26296 * t39554 * t86 / 0.16e2 - 0.12e2 * t39560 * t87 - 0.16e2 * t4943 * t11887 + 0.85e2 / 0.4e1 * t39628;
19586   t39637 = -0.3e1 / 0.2e1 * t11154 * t3594 + 0.24e2 * t39555 - 0.36e2 * t39558 + 0.6e1 * t1991 * t39560 + 0.8e1 * t1991 * t39563 - 0.24e2 * t39567 + 0.21e2 * t3556 * t3594 - 0.3e1 / 0.2e1 * t1986 * t39560 * t86 - 0.2e1 * t4923 * t11991 + 0.15e2 / 0.4e1 * t7499 * t39554 * t86 - t26380 * t39554 * t86 / 0.8e1 - t521 * t39543 + 0.2e1 * t39543 * t90 + 0.8e1 * t11887 * t966 + 0.2e1 * t77 * t39630 + 0.12e2 * t3534 * t3567 + 0.8e1 * t954 * t11939;
19587   t39658 = t12071 * t954;
19588   t39659 = 0.3072e4 * t39658;
19589   t39663 = t3618 * t3534;
19590   t39664 = 0.9216e4 * t39663;
19591   t39672 = 0.1536e4 * t39554;
19592   t39674 = t39554 * t86;
19593   t39679 = t77 * t39543;
19594   t39681 = t83 * t39560;
19595   t39682 = 0.2304e4 * t39681;
19596   t39683 = t128 * t39543;
19597   t39684 = 0.256e3 * t39683;
19598   t39691 = t39659 + 0.10e2 * t78 * t39543 * t81 + t39664 - 0.100e3 * t39588 - 0.15e2 * t39593 - 0.10e2 * t39613 - 0.5e1 / 0.4e1 * t39615 + 0.55e2 / 0.2e1 * t39628 + 0.120e3 * t39590 - 0.20e2 * t39595 - t39598 + t39672 - 0.216e3 * t39560 + 0.75e2 / 0.4e1 * t26287 * t39674 + (0.120e3 * t39560 + 0.160e3 * t39563 + 0.40e2 * t39679 - t39672 - t39664 - t39682 - t39659 - t39684) * t86 - 0.288e3 * t39563 - 0.72e2 * t39679 + t39682 + t39684 - 0.18e2 * t9094 * t11964;
19599   t39692 = t3591 * t3534;
19600   t39695 = t982 * t11887;
19601   t39717 = t39543 * t86;
19602   t39730 = t39560 * t86;
19603   t39735 = 0.36e2 * t7538 * t39692 - 0.6e1 * t2044 * t39695 - 0.27e2 / 0.2e1 * t7505 * t39692 + 0.3e1 * t9089 * t11964 + t2051 * t39695 + 0.3e1 / 0.4e1 * t7500 * t39692 + 0.2e1 * t35325 * t982 + 0.3e1 * t11251 * t3594 + 0.3e1 / 0.2e1 * t33980 * t3591 + 0.2e1 * t2874 * t11991 + t28061 * t11961 / 0.2e1 - 0.9e1 / 0.4e1 * t26284 * t39674 + t556 * t39717 / 0.2e1 + t26297 * t39674 / 0.16e2 - 0.9e1 * t33973 * t3591 - 0.9e1 * t28050 * t11961 + 0.24e2 * t28053 * t11961 - 0.30e2 * t2051 * t39674 - 0.9e1 / 0.2e1 * t2044 * t39730 + 0.3e1 / 0.4e1 * t2051 * t39730;
19604   t39783 = 0.288e3 * t2947 * t11887 + 0.72e2 * t601 * t39543 + 0.864e3 * t33580 * t3539 + 0.432e3 * t11398 * t3534 + 0.864e3 * t15885 * t3534 + 0.432e3 * t2110 * t39560 + 0.720e3 * t78 * t39560 * t81 - 0.2880e4 * t525 * t39554 * t86 + 0.288e3 * t35451 * t954 - 0.1440e4 * t79 * t39560 * t86 + 0.12e2 * t614 * t525 * t39560 + 0.3e1 / 0.4e1 * t2107 * t39730 - 0.48e2 * t26563 * t39674 - 0.3e1 * t2138 * t39730;
19605   t39811 = 0.48e2 * t614 * t1986 * t39554 + 0.75e2 / 0.4e1 * t26580 * t39674 + 0.24e2 * t28206 * t11961 - 0.30e2 * t2107 * t39674 + 0.2640e4 * t39555 - 0.240e3 * t39567 - 0.9e1 / 0.2e1 * t2102 * t39730 - 0.9e1 * t33489 * t3591 - 0.9e1 * t28346 * t11961 + 0.15e2 / 0.2e1 * t26708 * t39674 - 0.9e1 / 0.4e1 * t26574 * t39674 + t598 * t39717 / 0.2e1 + 0.960e3 * t986 * t12101 + 0.4320e4 * t3591 * t3673;
19606   t39844 = 0.240e3 * t106 * t39543 * t81 - 0.1920e4 * t11937 * t982 - t26699 * t39674 / 0.4e1 - 0.2e1 * t614 * t84 * t39543 - 0.3e1 * t7644 * t39692 + 0.16e2 * t614 * t11923 * t954 - 0.4e1 * t2138 * t39695 + 0.3e1 / 0.4e1 * t7655 * t39692 + 0.42e2 * t7673 * t39692 - 0.72e2 * t614 * t3550 * t3534 - 0.27e2 / 0.2e1 * t7667 * t39692 - 0.6e1 * t2102 * t39695 + t2107 * t39695 + 0.36e2 * t7682 * t39692;
19607   t39867 = 0.614400e6 * t1001 * t11887 + 0.460800e6 * t101 * t39560 + 0.30720e5 * t130 * t39543 + 0.3686400e7 * t3534 * t3622 + 0.1843200e7 * t39554 * t83 - 0.34560e5 * t39554 + 0.1344e4 * t39560 + 0.1792e4 * t39563 - 0.69120e5 * t39658 - 0.207360e6 * t39663 + 0.448e3 * t39679 - 0.51840e5 * t39681 - 0.5760e4 * t39683;
19608   t39910 = -0.2880e4 * t101 * t39543 + 0.646632e6 * t1015 * t11887 - 0.371589120e9 * t11385 * t3534 - 0.35389440e8 * t11887 * t2923 + 0.6144e4 * t11887 * t976 - 0.46080e5 * t11887 * t978 + 0.3233160e7 * t128 * t39554 - 0.34560e5 * t128 * t39560 - 0.371589120e9 * t130 * t39554 + 0.484974e6 * t130 * t39560 - 0.26542080e8 * t132 * t39560 - 0.1105920e7 * t134 * t39543 + 0.26943e5 * t141 * t39543 - 0.207360e6 * t3534 * t3584 + 0.4849740e7 * t3534 * t3653 + 0.768e3 * t39543 * t83 - 0.69120e5 * t39554 * t77 + 0.4608e4 * t39560 * t77 - 0.8e1 * t39543 + 0.9216e4 * t39557;
19609   t39929 = -0.18e2 * t8910 * t11964 + 0.3e1 * t8901 * t11964 + 0.24e2 * t128 * t39867 + 0.576e3 * t11894 * t1017 + t39910 * t86 + 0.2e1 * t35396 * t982 + 0.3e1 * t11465 * t3594 + 0.3e1 / 0.2e1 * t33549 * t3591 + 0.2e1 * t2930 * t11991 + t28362 * t11961 / 0.2e1 + t26679 * t39674 / 0.16e2 + 0.1728e4 * t8954 * t11905 + 0.576e3 * t2110 * t39563 - 0.2160e4 * t39558;
19610   t39980 = -t26782 + 0.448e3 / 0.729e3 * t28613 - 0.32e2 / 0.81e2 * t34035 + 0.16e2 / 0.81e2 * t490 * t643 * t1069 * t11881 + 0.4e1 / 0.81e2 * t490 * t643 * t202 * t39537 + 0.448e3 / 0.729e3 * t490 * t7071 * t1069 * t11872 - 0.1120e4 / 0.2187e4 * t490 * t27105 * t202 * t39519 - 0.16e2 / 0.81e2 * t490 * t2183 * t202 * t39528 + 0.16e2 / 0.81e2 * t490 * t643 * t12265 * t943 + 0.32e2 / 0.243e3 * t34670 + 0.224e3 / 0.243e3 * t490 * t7071 * t3688 * t3528 - 0.64e2 / 0.243e3 * t490 * t2183 * t1036 * t11881 - 0.64e2 / 0.81e2 * t490 * t2183 * t3692 * t3528;
19611   t40039 = 0.8e1 / 0.27e2 * t490 * t2183 * t3761 * t3523 - t490 * t643 * t197 * t39537 / 0.27e2 + 0.2e1 * t12206 * t1044 - 0.4e1 / 0.27e2 * t490 * t643 * t12234 * t943 + 0.280e3 / 0.729e3 * t490 * t27105 * t197 * t39519 + 0.6e1 * t1056 * t1044 * t3737 + 0.112e3 / 0.729e3 * t29087 - 0.4e1 / 0.27e2 * t490 * t643 * t1064 * t11881 - 0.112e3 / 0.243e3 * t490 * t7071 * t1064 * t11872 + 0.6e1 * t1056 * t12154 + 0.6e1 * t3740 * t3711 + 0.2e1 * t12182 * t1044 + 0.6e1 * t3738 * t3711 + 0.4e1 / 0.27e2 * t490 * t2183 * t197 * t39528 + 0.8e1 / 0.27e2 * t34065 - 0.112e3 / 0.243e3 * t29111;
19612   t40068 = t3523 * t3528;
19613   t40076 = t943 * t11881;
19614   t40084 = -t27011 + 0.40e2 / 0.243e3 * t29186 + 0.8e1 / 0.81e2 * t34547 - 0.4e1 / 0.27e2 * t34544 + 0.40e2 / 0.243e3 * t35748 - 0.8e1 / 0.27e2 * t35759 + 0.4e1 / 0.27e2 * t35773 - 0.80e2 / 0.243e3 * t166 * t168 * t7243 * t39519 + 0.20e2 / 0.27e2 * t3023 * t9444 * t40068 - 0.2e1 / 0.9e1 * t166 * t168 * t681 * t39528 - 0.8e1 / 0.27e2 * t3023 * t3024 * t40076 + t166 * t168 * t191 * t39537 / 0.9e1;
19615   t40095 = t3737 * t3737;
19616   t40096 = t40095 * t186;
19617   t40100 = t3739 * t3739;
19618   t40101 = t40100 * t186;
19619   t40112 = t12181 * t1055 * t186;
19620   t40115 = t3737 * t3739 * t186;
19621   t40144 = -0.8e1 / 0.27e2 * t35968 - t679 * t687 * t40115 / 0.3e1 - 0.10e2 / 0.27e2 * t34190 - 0.20e2 / 0.27e2 * t9369 * t11542 * t36040 + 0.4e1 / 0.9e1 * t9369 * t9370 * t12225 + 0.4e1 / 0.27e2 * t679 * t682 * t1056 * t11881 + 0.4e1 / 0.27e2 * t679 * t682 * t12182 * t943 + 0.2e1 / 0.9e1 * t679 * t682 * t3740 * t3528 + 0.4e1 / 0.9e1 * t35989 - 0.8e1 / 0.27e2 * t35992 + 0.40e2 / 0.81e2 * t35995;
19622   t40180 = 0.40e2 / 0.81e2 * t35999 - 0.8e1 / 0.27e2 * t36002 + 0.40e2 / 0.81e2 * t34193 + 0.80e2 / 0.81e2 * t679 * t7244 * t3743 * t3528 + 0.160e3 / 0.243e3 * t679 * t7244 * t1056 * t11872 - 0.10e2 / 0.27e2 * t679 * t2270 * t3738 * t3523 + 0.2e1 / 0.9e1 * t679 * t682 * t3738 * t3528 - 0.2e1 / 0.9e1 * t679 * t687 * t40112 - 0.10e2 / 0.27e2 * t679 * t2270 * t3740 * t3523 + 0.4e1 / 0.27e2 * t679 * t682 * t12206 * t943 - 0.20e2 / 0.81e2 * t679 * t2270 * t12190 * t943;
19623   t40213 = t26881 - 0.64e2 / 0.243e3 * t28791 - 0.8e1 / 0.81e2 * t34215 + 0.8e1 / 0.27e2 * t34221 - 0.64e2 / 0.243e3 * t36070 + 0.16e2 / 0.27e2 * t36079 - 0.16e2 / 0.27e2 * t36091 + 0.56e2 / 0.243e3 * t179 * t181 * t7070 * t39519 - 0.16e2 / 0.27e2 * t3065 * t9325 * t40068 + 0.2e1 / 0.9e1 * t179 * t181 * t513 * t39528 + 0.8e1 / 0.27e2 * t3065 * t3066 * t40076 - 0.2e1 / 0.9e1 * t179 * t181 * t71 * t39537;
19624   t40214 = t40213 * t186;
19625   t40218 = -0.100e3 / 0.243e3 * t34338 - 0.10e2 / 0.27e2 * t34448 + 0.20e2 / 0.81e2 * t34454 + 0.3e1 * t40096 + t40101 - 0.8e1 / 0.81e2 * t36130 + 0.4e1 / 0.27e2 * t36133 + 0.4e1 / 0.27e2 * t36136 - 0.320e3 / 0.729e3 * t36146 - t679 * t687 * t40214 / 0.18e2 + t40214;
19626   t40233 = -0.2e1 / 0.9e1 * t490 * t643 * t3761 * t3528 - 0.56e2 / 0.81e2 * t490 * t7071 * t3716 * t3528 + 0.16e2 / 0.27e2 * t490 * t2183 * t3720 * t3528 + 0.16e2 / 0.81e2 * t490 * t2183 * t1047 * t11881 + t27008 - 0.16e2 / 0.81e2 * t35729 - 0.16e2 / 0.81e2 * t35732 + 0.2e1 * t186 * t40084 + t38 * t40 * t71 * (-0.440e3 / 0.729e3 * t679 * t26949 * t192 * t39519 - 0.5e1 / 0.27e2 * t679 * t2270 * t192 * t39528 - t679 * t687 * t40096 / 0.6e1 - t679 * t687 * t40101 / 0.18e2 + t679 * t682 * t192 * t39537 / 0.27e2 - 0.320e3 / 0.729e3 * t28761 + 0.160e3 / 0.243e3 * t28767 + 0.4e1 * t40112 + 0.6e1 * t40115 - t26802 + t40144 + t40180 + t40218) / 0.9e1 + 0.4e1 / 0.81e2 * t35813 - 0.4e1 / 0.27e2 * t35839 - 0.8e1 / 0.81e2 * t34604 + 0.4e1 / 0.27e2 * t35895 + 0.112e3 / 0.729e3 * t35898 + 0.4e1 / 0.27e2 * t36162 - 0.16e2 / 0.81e2 * t34616 + 0.32e2 / 0.243e3 * t34634;
19627   t40243 = 0.64e2 / 0.243e3 * t34698 + 0.64e2 / 0.243e3 * t35710 + 0.16e2 / 0.81e2 * t36178 - 0.448e3 / 0.2187e4 * t28722 + 0.8e1 / 0.27e2 * t490 * t643 * t3766 * t3528 - 0.32e2 / 0.81e2 * t490 * t2183 * t3766 * t3523 + 0.64e2 / 0.243e3 * t36207 - 0.128e3 / 0.729e3 * t34743 - 0.4e1 / 0.27e2 * t38 * t40 * t71 * (t40039 + t40233) - 0.16e2 / 0.243e3 * t36225 - 0.16e2 / 0.81e2 * t36228 - 0.448e3 / 0.2187e4 * t36231 - 0.16e2 / 0.81e2 * t36239;
19628   t40274 = t3788 * t3788;
19629   t40279 = t3779 * t3779;
19630   t40289 = -0.2e1 * t8 * t766 * t13130 * t1082 + 0.3e1 / 0.8e1 * t8 * t18 * p->cam_beta * (t33 * ((-0.8e1 / 0.3e1 * t39543 * t93 - 0.32e2 / 0.3e1 * t11887 * t969 - 0.16e2 * t3534 * t3570 - 0.32e2 / 0.3e1 * t954 * t11942 - 0.8e1 / 0.3e1 * t77 * t39637) * t98 + 0.35e2 / 0.81e2 * (0.144e3 * t39560 * t109 + 0.576e3 * t15759 * t3534 + 0.192e3 * t4961 * t11887 + 0.288e3 * t3539 * t3606 + 0.192e3 * t35201 * t954 + 0.288e3 * t11239 * t3534 + 0.192e3 * t2862 * t11887 + 0.48e2 * t547 * t39543 + 0.24e2 * t83 * (t39691 + t39735)) * t120 * t124 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t39543 * t151 + 0.32e2 / 0.7e1 * t11887 * t1026 + 0.48e2 / 0.7e1 * t3534 * t3676 + 0.32e2 / 0.7e1 * t954 * t12113 + 0.8e1 / 0.7e1 * t77 * (t39783 + t39811 + t39844 + t39929)) * t41 * t45 * t157) + t162 * (t39980 + t40243) * t230) + 0.2e1 * t2754 * t2417 * t3513 * t3516 - 0.4e1 / 0.9e1 * t8636 * t2417 * t1077 * t11825 - 0.2e1 * t3132 * t11807 * t11852 - 0.2e1 / 0.3e1 * t2754 * t2755 * t944 * t11836 + t2754 * t2417 * t3774 * t3507 + 0.2e1 / 0.3e1 * t8636 * t2755 * t3507 * t3516 - t8 * t2405 * t444 * t40274 / 0.2e1 - 0.5e1 / 0.27e2 * t8 * t25772 * t444 * t40279 + t27546 + 0.2e1 * t36278 - 0.2e1 * t8 * t766 * t1345 * t11846;
19631   t40299 = 0.12e2 * t38324;
19632   t40318 = t3507 * t3507;
19633   t40323 = -0.2e1 * t36282 - 0.2e1 / 0.3e1 * t3132 * t3133 * t11846 * t1082 + t27553 - t8 * t2405 * t4283 * t3779 - t8 * t766 * t444 * t40299 / 0.2e1 + 0.2e1 / 0.3e1 * t31182 - 0.2e1 * t36298 + 0.2e1 / 0.3e1 * t31188 + 0.4e1 / 0.9e1 * t8 * t8550 * t1345 * t11841 + t8 * t450 * t247 * t40299 / 0.2e1 - 0.2e1 / 0.3e1 * t36303 + 0.4e1 / 0.3e1 * t31195 - 0.5e1 / 0.27e2 * t8 * t24805 * t247 * t40318;
19634   t40340 = -0.2e1 / 0.3e1 * t36312 + 0.4e1 / 0.27e2 * t36318 + 0.2e1 / 0.3e1 * t36331 - 0.3e1 * t8 * t766 * t4283 * t3788 - 0.2e1 / 0.3e1 * t36367 + 0.5e1 / 0.9e1 * t30897 - 0.20e2 / 0.27e2 * t30900 - 0.2e1 / 0.3e1 * t36398 + 0.2e1 * t36401 + 0.4e1 / 0.27e2 * t36405 - 0.5e1 / 0.9e1 * t30958 + 0.2e1 / 0.9e1 * t33041 - t33047 / 0.2e1;
19635   t40350 = 0.4e1 / 0.3e1 * t8598 + 0.3e1 / 0.2e1 * t10312 - 0.2e1 / 0.3e1 * t10320 + 0.3e1 / 0.2e1 * t12290 - 0.3e1 / 0.2e1 * t13132 + t10 * (t39508 + t40289 + t40323 + t40340) + t8687 + 0.6e1 * t13137 + 0.4e1 * t11779 - 0.2e1 * t11786 - t10239 - t27634 + 0.6e1 * t13143 + 0.4e1 / 0.3e1 * t10258 - 0.6e1 * t13148;
19636   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19637     v4rho4[4] = t37981 + t40350;
19638 
19639   t40352 = t8 * t450 * t13178;
19640   t40356 = t8 * t1832 * t1517 / 0.9e1;
19641   t40358 = t8 * t1811 * t13171;
19642   t40361 = t8 * t1817 * t4292;
19643   t40364 = t8 * t18 * t14116;
19644   t40379 = t8 * t460 * t4700;
19645   t40383 = t4296 * t1845;
19646   t40387 = t6971 * t1356 * t26;
19647   t40390 = t4301 * t1845;
19648   t40394 = t1863 * t13195 * t468;
19649   t40403 = t27298 * t244;
19650   t40406 = t13300 * t1845;
19651   t40410 = t6996 * t4300 * t1839;
19652   t40413 = t4317 * t6963;
19653   t40416 = t25874 * t244;
19654   t40418 = t25875 * t1356 * t6971;
19655   t40421 = -0.36e2 * t13244 * t13261 - 0.36e2 * t13244 * t14097 + 0.162e3 * t13251 * t14106 - 0.1944e4 * t13254 * t40410 - 0.1944e4 * t13256 * t40403 + 0.972e3 * t13297 * t14106 - 0.36e2 * t40383 * t4660 + 0.1080e4 * t40387 * t4654 - 0.36e2 * t40390 * t4660 + 0.162e3 * t40394 * t4654 + 0.162e3 * t40406 * t4654 + 0.54e2 * t40413 * t4654 + 0.9720e4 * t40416 * t40418;
19656   t40422 = t1357 * t6963;
19657   t40427 = t13238 * t468;
19658   t40434 = t13248 * t477;
19659   t40442 = t27 * t4300 * t1839;
19660   t40446 = t27335 * t1356 * t6971;
19661   t40455 = -0.7776e4 * t13254 * t40446 - 0.36e2 * t13277 * t2357 + 0.972e3 * t13297 * t14109 + 0.324e3 * t13301 * t14109 - 0.6e1 * t1502 * t25808 - 0.12e2 * t40422 * t4660 - 0.36e2 * t40427 * t4660 - 0.18e2 * t40434 * t739 + 0.972e3 * t40442 * t4654 - 0.18e2 * t4310 * t7908 - 0.18e2 * t4657 * t6983 - 0.18e2 * t4663 * t6983 - 0.18e2 * t4668 * t6983;
19662   t40468 = t756 * t1839;
19663   t40476 = t6995 * t756;
19664   t40487 = -0.18e2 * t1855 * t13225 - 0.18e2 * t478 * t14100 * t1845 - 0.18e2 * t1855 * t13187 - 0.36e2 * t1855 * t13190 - 0.18e2 * t1855 * t13196 - 0.36e2 * t478 * t40468 * t1356 - 0.27e2 / 0.100e3 * t13201 * t7920 + 0.162e3 * t14109 * t13251 - 0.1944e4 * t40476 * t13256 - 0.36e2 * t18065 * t6973 + 0.162e3 * t18068 * t7004 - 0.36e2 * t18048 * t6973 + 0.162e3 * t18051 * t7004;
19665   t40488 = t6983 * t244;
19666   t40491 = t25801 * t244;
19667   t40494 = t1855 * t756;
19668   t40497 = t6986 * t756;
19669   t40504 = t478 * t2388;
19670   t40507 = t1862 * t2388;
19671   t40517 = t1512 * t27;
19672   t40523 = -0.36e2 * t40488 * t4303 + 0.162e3 * t40491 * t4318 - 0.72e2 * t40494 * t4303 + 0.324e3 * t40497 * t4318 - 0.72e2 * t14097 * t13242 + 0.324e3 * t14106 * t13301 - 0.36e2 * t40504 * t4303 + 0.162e3 * t40507 * t4318 - 0.72e2 * t13261 * t13242 + 0.3e1 / 0.10e2 * t13272 * t2341 - 0.36e2 * t478 * t13204 * t4300 + 0.324e3 * t1862 * t40517 * t6971 - 0.36e2 * t4310 * t7912;
19673   t40530 = t4687 * t25;
19674   t40542 = t4307 * t1861;
19675   t40545 = t1361 * t6994;
19676   t40548 = t4695 * t2341;
19677   t40559 = 0.324e3 * t13213 * t7900 - 0.36e2 * t1855 * t13205 - 0.36e2 * t478 * t40530 * t1839 - 0.36e2 * t13277 * t2361 - 0.36e2 * t1855 * t14045 - 0.18e2 * t13277 * t2364 - 0.6e1 * t4310 * t6964 + 0.162e3 * t40542 * t2353 - 0.648e3 * t40545 * t7904 + 0.513e3 / 0.1000e4 * t7915 * t40548 - 0.27e2 / 0.100e3 * t7894 * t13220 - 0.6e1 * t478 * t25804 * t1356 - 0.18e2 * t478 * t7907 * t4300;
19678   t40565 = my_piecewise3(t24, -0.3e1 / 0.4e1 * t6959 * t21, 0);
19679   t40578 = t1839 * t4300;
19680   t40583 = t26 * t40565;
19681   t40586 = (0.6e1 * t13195 * t468 + 0.2e1 * t1356 * t6963 + 0.6e1 * t1845 * t4300 + 0.2e1 * t25 * t40565 + 0.54e2 * t40383 + 0.54e2 * t40390 + 0.18e2 * t40422 + 0.54e2 * t40427 + 0.54e2 * t40578 + 0.9e1 * t40583) * t32;
19682   t40588 = t13314 * t708;
19683   t40595 = t1477 * t7029;
19684   t40613 = -0.18e2 * t478 * t2356 * t13195 - 0.6e1 * t478 * t738 * t40565 + t40586 * t244 + 0.3e1 / 0.10e2 * t40588 * t731 + 0.3e1 * t13249 * t756 - 0.27e2 / 0.50e2 * t7894 * t13269 + 0.171e3 / 0.1000e4 * t40595 * t7030 - 0.36e2 * t1855 * t14101 - 0.6e1 * t478 * t4667 * t6963 + 0.162e3 * t6986 * t13229 + 0.513e3 / 0.1000e4 * t7915 * t4642 * t2306 - 0.12e2 * t478 * t1512 * t6971 - 0.12e2 * t4310 * t7846;
19685   t40621 = t45 * t7324;
19686   t40653 = 0.146e3 / 0.3645e4 * t13394 * t4417 - 0.1540e4 / 0.81e2 * t211 * t40621 - 0.1606e4 / 0.10935e5 * t4614 * t13418 + 0.22484e5 / 0.98415e5 * t1483 * t40621 + 0.73e2 / 0.1215e4 * t46 * t496 * t1839 + 0.146e3 / 0.45e2 * t723 * t13195 + 0.146e3 / 0.135e3 * t225 * t40565 - 0.146e3 / 0.135e3 * t7340 * t1356 * t226 - 0.146e3 / 0.45e2 * t2323 * t4300 * t226 + 0.292e3 / 0.45e2 * t13397 * t468 - 0.146e3 / 0.45e2 * t720 * t13195 * t226 + 0.584e3 / 0.45e2 * t13400 * t468 + 0.292e3 / 0.45e2 * t4630 * t1845 - 0.146e3 / 0.135e3 * t222 * t40565 * t226;
19687   t40692 = t58 * sigma[0] * t7319;
19688   t40698 = 0.292e3 / 0.45e2 * t13405 * t468 + 0.292e3 / 0.45e2 * t4633 * t1845 + 0.292e3 / 0.135e3 * t1490 * t6963 - 0.73e2 / 0.14580e5 * t7340 * t41 * t1465 - 0.73e2 / 0.2430e4 * t46 * t496 * t1845 * t226 - 0.73e2 / 0.3240e4 * t46 * t4623 * t1845 + 0.803e3 / 0.7290e4 * t46 * t1893 * t468 * t226 - 0.803e3 / 0.7290e4 * t46 * t13439 * t468 - 0.5621e4 / 0.32805e5 * t46 * t7324 * t25 * t226 + 0.73e2 / 0.2430e4 * t46 * t4619 * t1845 + 0.73e2 / 0.19440e5 * t46 * t51 * t6963 * t226 - 0.73e2 / 0.19440e5 * t46 * t1486 * t6963 - 0.31625e5 / 0.59049e5 * t40692 + 0.146e3 / 0.135e3 * t7343 * t1356 + 0.146e3 / 0.45e2 * t2326 * t4300;
19689   t40699 = t40653 + t40698;
19690   t40702 = t4596 * t2305;
19691   t40716 = t1881 * t506;
19692   t40717 = t40716 * t1911;
19693   t40728 = -0.68652008559670781891e1 * t46 * t7324 - 0.13326206830489970091e1 * t40692;
19694   t40745 = t13981 * t7410;
19695   t40748 = t4500 * t7475;
19696   t40751 = t4554 * t1911;
19697   t40754 = t13974 * t1882;
19698   t40757 = 0.74937702345679012347e-1 * t1367 * t40717 - 0.14e2 / 0.15e2 * t7875 * t4356 + 0.1056e4 / 0.625e3 * t26455 * t1372 * t7410 - 0.14e2 / 0.45e2 * t753 * t40728 - 0.14e2 / 0.15e2 * t2380 * t13541 - 0.198e3 / 0.125e3 * t7819 * t4356 * t1882 + 0.18e2 / 0.25e2 * t1933 * t13541 * t506 + 0.18e2 / 0.25e2 * t14063 * t1911 + 0.6e1 / 0.25e2 * t4671 * t7475 - 0.14e2 / 0.45e2 * t27482 * t1372 - 0.59950161876543209878e-1 * t46 * t40745 - 0.17842310082304526749e-1 * t46 * t40748 - 0.392e3 / 0.125e3 * t7883 * t40751 - 0.19983387292181069959e0 * t46 * t40754;
19699   t40758 = t1893 * t581;
19700   t40759 = t40758 * t506;
19701   t40762 = t13729 * t1911;
19702   t40769 = t1372 * t7475;
19703   t40776 = t4356 * t1882;
19704   t40779 = t13541 * t506;
19705   t40782 = t4356 * t1911;
19706   t40787 = t1372 * t7410;
19707   t40795 = -0.52337442908093278464e0 * t46 * t40759 + 0.14273848065843621399e0 * t46 * t40762 - 0.198e3 / 0.125e3 * t14060 * t7786 + 0.98e2 / 0.75e2 * t27459 * t4554 + 0.98e2 / 0.225e3 * t2383 * t40769 + 0.196e3 / 0.75e2 * t7878 * t13877 + 0.98e2 / 0.75e2 * t7878 * t13880 - 0.392e3 / 0.125e3 * t7883 * t40776 + 0.98e2 / 0.75e2 * t2383 * t40779 + 0.98e2 / 0.75e2 * t2383 * t40782 - 0.392e3 / 0.125e3 * t27462 * t13901 + 0.6664e4 / 0.1875e4 * t27450 * t40787 - 0.20353450019814052736e1 * t46 * t7324 * t123 - t543 * t40728 / 0.5e1;
19708   t40805 = -0.4959e4 / 0.10000e5 * t27492 * t1495 * t7030 + t6978 * t1512 + t759 * t40699 / 0.10e2 - 0.27e2 / 0.100e3 * t40702 * t2306 + t27411 * t1495 / 0.10e2 + 0.3e1 / 0.10e2 * t7854 * t4642 - 0.27e2 / 0.100e3 * t2394 * t4642 * t2341 + t4690 * t7365 / 0.10e2 + 0.3e1 * t474 * t14093 + t33 * (t40757 + t40795) - 0.27e2 / 0.100e3 * t27431 * t4695 - 0.9e1 / 0.100e3 * t2394 * t1495 * t7365 + 0.3e1 * t4308 * t2388;
19709   t40807 = t4687 * t1863;
19710   t40811 = t1512 * t6996;
19711   t40822 = t13296 * t6967;
19712   t40825 = t13255 * t6967;
19713   t40830 = t14093 * t26;
19714   t40872 = -0.324e3 * t13213 * t7000 + 0.36e2 * t13240 * t1855 + 0.18e2 * t13246 * t1855 + 0.36e2 * t13277 * t1848 + 0.18e2 * t13277 * t1850 + 0.6e1 * t1359 * t25808 - 0.162e3 * t1862 * t40394 - 0.162e3 * t1862 * t40406 - 0.972e3 * t1862 * t40442 + 0.1944e4 * t20701 * t40383 - 0.972e3 * t20704 * t40383 - 0.162e3 * t2158 * t40542 + 0.18e2 * t40434 * t471 + 0.648e3 * t40545 * t6997 + 0.36e2 * t40578 * t478 + 0.6e1 * t40583 * t478 + 0.18e2 * t4305 * t6983 + 0.6e1 * t4310 * t6975 - t40586;
19715   t40913 = -0.162e3 * t13213 * t7004 + 0.72e2 * t13242 * t1855 + 0.36e2 * t13244 * t1855 - 0.162e3 * t13251 * t6986 + 0.1944e4 * t13256 * t27298 - 0.972e3 * t13297 * t6986 - 0.324e3 * t13301 * t6986 - 0.1080e4 * t1862 * t40387 - 0.54e2 * t1862 * t40413 - 0.162e3 * t25801 * t4318 - 0.9720e4 * t25874 * t40418 + 0.36e2 * t40383 * t478 + 0.36e2 * t40390 * t478 + 0.1944e4 * t40410 * t6995 + 0.12e2 * t40422 * t478 + 0.36e2 * t40427 * t478 + 0.7776e4 * t40446 * t6995 + 0.36e2 * t4303 * t6983 + 0.12e2 * t4310 * t6971 + 0.36e2 * t4310 * t6973;
19716   t40914 = t40872 + t40913;
19717   t40916 = t4584 * t25;
19718   t40948 = -0.36e2 * t478 * t40916 * t1839 - 0.18e2 * t4310 * t7378 + 0.3e1 / 0.10e2 * t702 * t13447 - 0.27e2 / 0.50e2 * t702 * t13317 - 0.6e1 * t25808 * t1364 - 0.18e2 * t6983 * t4321 - 0.18e2 * t6983 * t4327 + t6978 * t1473 - 0.72e2 * t13344 * t13242 + t208 * t708 * t40699 / 0.10e2 + 0.3e1 / 0.10e2 * t638 * t13447 + 0.3e1 / 0.10e2 * t2300 * t4643 + 0.162e3 * t13213 * t7315 - 0.6e1 * t4310 * t7381 - 0.18e2 * t4310 * t7384;
19719   t40955 = t1473 * t27;
19720   t40981 = -0.27e2 / 0.100e3 * t2166 * t4608 - 0.27e2 / 0.50e2 * t2168 * t4608 - 0.648e3 * t40545 * t7045 + 0.324e3 * t1862 * t40955 * t6971 + 0.324e3 * t13326 * t13301 - 0.27e2 / 0.100e3 * t2300 * t4608 - 0.36e2 * t4324 * t40427 + 0.162e3 * t4316 * t40394 + t7302 * t1496 / 0.10e2 + 0.3e1 / 0.10e2 * t2166 * t4643 + 0.3e1 / 0.5e1 * t14037 * t732 + 0.3e1 / 0.10e2 * t14033 * t732 + 0.3e1 / 0.10e2 * t4597 * t2342 + 0.3e1 / 0.10e2 * t4599 * t2342 + 0.3e1 / 0.10e2 * t14035 * t732;
19721   t40985 = t633 * t1839;
19722   t40996 = t6995 * t633;
19723   t41007 = t27298 * t160;
19724   t41013 = t1855 * t633;
19725   t41016 = t1478 * t7366 / 0.10e2 - 0.36e2 * t478 * t40985 * t1356 + t7014 * t1496 / 0.10e2 + 0.3e1 / 0.10e2 * t7389 * t1496 + 0.3e1 * t4308 * t2154 + t1362 * t7826 - 0.1944e4 * t40996 * t13256 - 0.27e2 / 0.100e3 * t4597 * t2307 - 0.12e2 * t4310 * t7020 + 0.513e3 / 0.1000e4 * t638 * t13376 + 0.54e2 * t4316 * t40413 - 0.1944e4 * t41007 * t13256 + 0.3e1 * t13249 * t633 + t40586 * t160 - 0.72e2 * t41013 * t4303;
19726   t41017 = t6986 * t633;
19727   t41057 = 0.324e3 * t41017 * t4318 - 0.18e2 * t478 * t13369 * t1845 - 0.27e2 / 0.100e3 * t702 * t13357 - 0.27e2 / 0.100e3 * t638 * t13357 - 0.27e2 / 0.100e3 * t208 * t13316 * t2341 - 0.18e2 * t1855 * t13354 - 0.6e1 * t478 * t479 * t40565 - 0.18e2 * t478 * t1868 * t13195 - 0.4959e4 / 0.10000e5 * t208 * t26764 * t1495 * t7030 - 0.18e2 * t478 * t7377 * t4300 - 0.18e2 * t40434 * t480 + 0.171e3 / 0.1000e4 * t1478 * t7031 - 0.36e2 * t13336 * t13244 + 0.1080e4 * t4316 * t40387 + 0.162e3 * t13326 * t13251 - 0.36e2 * t4324 * t40383;
19728   t41096 = -0.36e2 * t4324 * t40390 + 0.162e3 * t4316 * t40406 - 0.1944e4 * t13333 * t40410 + 0.162e3 * t13339 * t13251 + 0.972e3 * t4316 * t40822 + 0.513e3 / 0.1000e4 * t208 * t7029 * t4642 * t2306 - 0.18e2 * t1855 * t13362 - 0.9e1 / 0.100e3 * t208 * t4607 * t7365 - 0.27e2 / 0.100e3 * t208 * t2305 * t13446 * t731 - 0.18e2 * t13277 * t1876 + 0.162e3 * t40542 * t1865 - 0.6e1 * t478 * t4331 * t6963 - 0.36e2 * t1855 * t13370 - 0.36e2 * t13277 * t1869 + 0.324e3 * t13213 * t7309;
19729   t41106 = t121 * t46;
19730   t41107 = t7573 * t1372;
19731   t41111 = t51 * t26009;
19732   t41122 = t496 * t7573;
19733   t41142 = t77 * t13864;
19734   t41146 = t490 * t7459 * t4357;
19735   t41149 = t490 * t1943 * t13542;
19736   t41157 = 0.7e1 / 0.1215e4 * t490 * t8759 * t1373;
19737   t41158 = t7070 * t1372;
19738   t41183 = t1969 * t4356;
19739   t41188 = t513 * t13541;
19740   t41202 = t490 * t26154 * t4342;
19741   t41204 = -t41146 / 0.135e3 + t41149 / 0.180e3 - t490 * t493 * t71 * t40728 / 0.180e3 + t41157 + 0.7e1 / 0.1215e4 * t490 * t493 * t41158 * t7072 + 0.2387e4 / 0.60000e5 * t490 * t26164 * t1373 * t7410 - 0.77e2 / 0.2000e4 * t490 * t7409 * t4357 * t1882 + 0.11e2 / 0.600e3 * t490 * t1953 * t13542 * t506 + 0.11e2 / 0.600e3 * t490 * t1953 * t4357 * t1911 + 0.11e2 / 0.1800e4 * t490 * t1953 * t1373 * t7475 - t490 * t493 * t41183 * t1970 / 0.135e3 + t490 * t493 * t41188 * t454 / 0.180e3 + t490 * t493 * t13529 * t1975 / 0.180e3 + t490 * t493 * t4346 * t7063 / 0.540e3 + 0.11e2 / 0.1350e4 * t41202;
19742   t41206 = t490 * t7459 * t4347;
19743   t41209 = t490 * t7442 * t13516;
19744   t41212 = t490 * t7442 * t13520;
19745   t41215 = t490 * t1943 * t13530;
19746   t41218 = t490 * t1943 * t13534;
19747   t41221 = t490 * t26158 * t13507;
19748   t41224 = t490 * t1943 * t13525;
19749   t41230 = t1372 * t454;
19750   t41235 = t7408 * t513;
19751   t41240 = t7408 * t71;
19752   t41256 = t18405 * t13513;
19753   t41258 = t41206 / 0.405e3 - 0.11e2 / 0.900e3 * t41209 - 0.11e2 / 0.1800e4 * t41212 - t41215 / 0.270e3 - t41218 / 0.540e3 + 0.77e2 / 0.6000e4 * t41221 + t41224 / 0.405e3 + 0.11e2 / 0.1350e4 * t5889 * t27833 * t4554 * t1970 - t5889 * t8735 * t41230 * t1975 / 0.135e3 + 0.77e2 / 0.6000e4 * t5889 * t41235 * t13901 * t454 - 0.77e2 / 0.2000e4 * t5889 * t41240 * t40751 - 0.11e2 / 0.900e3 * t5889 * t13511 * t13877 * t454 - 0.11e2 / 0.1800e4 * t5889 * t13511 * t13880 * t454 - 0.11e2 / 0.1800e4 * t5889 * t13511 * t4554 * t1975 + 0.11e2 / 0.2700e4 * t41256;
19754   t41260 = my_piecewise3(t76, 0, t41204 + t41258);
19755   t41269 = t13834 * t7541;
19756   t41272 = 0.15e2 / 0.2e1 * t13842 * t7541;
19757   t41273 = t13547 * t519;
19758   t41274 = t41273 * t86;
19759   t41297 = t4386 * t1981;
19760   t41300 = t4362 * t1987;
19761   t41301 = t41300 * t86;
19762   t41304 = 0.60e2 * t41269 - t41272 + 0.3e1 / 0.4e1 * t2051 * t41274 - 0.9e1 / 0.2e1 * t13831 * t7541 + 0.3e1 / 0.4e1 * t13822 * t7541 - 0.9e1 / 0.2e1 * t26271 * t4383 + 0.3e1 / 0.4e1 * t26292 * t4383 - 0.9e1 * t7535 * t13564 + 0.3e1 / 0.2e1 * t7516 * t13564 - 0.9e1 / 0.2e1 * t7535 * t13562 - 0.27e2 / 0.4e1 * t26300 * t13559 + 0.3e1 / 0.4e1 * t7516 * t13562 + 0.3e1 / 0.8e1 * t26308 * t13559 - 0.9e1 / 0.2e1 * t2044 * t41297 - 0.27e2 / 0.4e1 * t7505 * t41301;
19763   t41307 = t1377 * t7491;
19764   t41308 = t41307 * t86;
19765   t41317 = t1405 * t1986;
19766   t41320 = t13855 * t525;
19767   t41329 = t41260 * t86;
19768   t41332 = t4376 * t2006;
19769   t41335 = t1405 * t7499;
19770   t41340 = t1405 * t7504;
19771   t41343 = t4376 * t1999;
19772   t41346 = -0.9e1 / 0.2e1 * t2044 * t41274 + 0.75e2 / 0.4e1 * t26287 * t41308 - 0.30e2 * t2051 * t41308 + 0.18e2 * t26274 * t13559 + 0.18e2 * t7538 * t41301 + 0.6e1 * t41317 * t7501 + 0.3e1 / 0.2e1 * t41320 * t557 + 0.3e1 / 0.2e1 * t13828 * t2048 + t4378 * t7508 / 0.2e1 + 0.3e1 / 0.2e1 * t2042 * t13665 + t556 * t41329 / 0.2e1 + 0.3e1 / 0.4e1 * t41332 * t2045 + t41335 * t7501 / 0.8e1 + t26311 * t1407 / 0.2e1 - 0.9e1 / 0.4e1 * t41340 * t7501 - 0.9e1 / 0.2e1 * t41343 * t2045;
19773   t41348 = t1401 * t7488;
19774   t41349 = 0.4608e4 * t41348;
19775   t41358 = t4370 * t1987;
19776   t41359 = 0.4608e4 * t41358;
19777   t41360 = t13628 * t519;
19778   t41361 = 0.2304e4 * t41360;
19779   t41362 = t4430 * t1981;
19780   t41363 = 0.2304e4 * t41362;
19781   t41364 = t1430 * t7481;
19782   t41365 = 0.768e3 * t41364;
19783   t41366 = t1407 * t7481;
19784   t41380 = t79 * t41260 * t86;
19785   t41382 = t41349 + 0.3e1 / 0.2e1 * t7511 * t4386 + 0.18e2 * t14925 * t7541 - 0.27e2 / 0.4e1 * t14928 * t7541 + 0.3e1 / 0.8e1 * t14931 * t7541 + t41359 + t41361 + t41363 + t41365 - 0.3e1 / 0.2e1 * t2044 * t41366 - 0.9e1 / 0.4e1 * t26284 * t41308 + 0.3e1 / 0.4e1 * t2051 * t41297 + 0.3e1 / 0.8e1 * t7500 * t41301 + t2051 * t41366 / 0.4e1 + t26297 * t41308 / 0.16e2 - 0.10e2 * t41380;
19786   t41383 = t77 * t41260;
19787   t41385 = t1981 * t4362;
19788   t41388 = t7481 * t1377;
19789   t41393 = 0.1536e4 * t41307;
19790   t41394 = t128 * t41260;
19791   t41395 = 0.256e3 * t41394;
19792   t41396 = 0.40e2 * t41388 + 0.120e3 * t41385 + 0.120e3 * t41273 + 0.40e2 * t41383 - t41393 - t41359 - t41349 - t41361 - t41363 - t41365 - t41395;
19793   t41399 = t1986 * t4362;
19794   t41400 = t41399 * t2045;
19795   t41402 = t7643 * t1377;
19796   t41403 = t41402 * t7501;
19797   t41405 = t4538 * t7501;
19798   t41407 = t1999 * t13547;
19799   t41408 = t41407 * t557;
19800   t41410 = t13837 * t2048;
19801   t41412 = t7504 * t4362;
19802   t41414 = 0.15e2 / 0.2e1 * t41412 * t2045;
19803   t41415 = t4399 * t7508;
19804   t41417 = t26252 * t1377;
19805   t41418 = t41417 * t7501;
19806   t41423 = -0.72e2 * t41383 - 0.216e3 * t41385 - 0.216e3 * t41273 + t41396 * t86 - 0.72e2 * t41388 + t41393 + t41395 + 0.60e2 * t41400 + 0.55e2 / 0.2e1 * t41403 - 0.100e3 * t41405 - 0.15e2 * t41408 - 0.15e2 * t41410 - t41414 - 0.5e1 * t41415 - 0.5e1 / 0.4e1 * t41418 + 0.10e2 * t78 * t41260 * t81;
19807   t41444 = 0.144e3 * t14854 * t1981 + 0.144e3 * t13795 * t1981 + 0.144e3 * t41142 * t519 + 0.48e2 * t547 * t41260 + 0.144e3 * t2028 * t13547 + 0.144e3 * t7396 * t4362 + 0.48e2 * t26052 * t1377 + 0.24e2 * t83 * (t41304 + t41346 + t41382 + t41423) + 0.48e2 * t27764 * t1377 + 0.144e3 * t27767 * t1377 + 0.144e3 * t9068 * t4362 + 0.48e2 * t4365 * t7481 + 0.288e3 * t9071 * t4362 + 0.144e3 * t2855 * t13547 + 0.144e3 * t1987 * t4402 + 0.144e3 * t27761 * t1377;
19808   t41454 = t13868 * t41;
19809   t41457 = -0.198e3 / 0.125e3 * t7820 * t40751 - 0.392e3 / 0.225e3 * t41106 * t41107 * t7786 + 0.12031576554666666666e0 * t4557 * t41111 * t40787 - 0.10616096960000000000e0 * t4557 * t13981 * t40776 - 0.23591326577777777778e0 * t13978 * t13975 - 0.10616096960000000000e0 * t13978 * t13982 + 0.28309591893333333333e0 * t4557 * t41122 * t13901 - 0.23591326577777777778e0 * t4557 * t13974 * t13877 - 0.11795663288888888889e0 * t4557 * t13974 * t13880 + 0.44233737333333333333e-1 * t4557 * t4558 * t40782 + 0.18276169650205761317e-1 * t7550 * t51 * t124 + 0.35e2 / 0.81e2 * t41444 * t120 * t124 + 0.35e2 / 0.27e2 * t4405 * t1896 * t124 + 0.35e2 / 0.81e2 * t1418 * t7559 * t124 - 0.14e2 / 0.27e2 * t41454 * t583;
19810   t41458 = t13773 * t41;
19811   t41463 = t13776 * t41;
19812   t41466 = t13871 * t41;
19813   t41469 = t13874 * t41;
19814   t41494 = 0.11696748576131687243e0 * t41458 * t583 + 0.30703965012345679014e-1 * t13746 * t1929 - 0.21931403580246913581e-1 * t41463 * t583 - 0.28e2 / 0.27e2 * t41466 * t583 - 0.14e2 / 0.27e2 * t41469 * t583 + 0.77233509629629629632e0 * t4497 * t1918 - 0.31595526666666666666e-1 * t2151 * t4501 + 0.16850947555555555555e0 * t623 * t13730 - 0.14e2 / 0.27e2 * t13492 * t2074 - 0.14e2 / 0.81e2 * t4517 * t7581 - 0.30893403851851851852e0 * t156 * t40759 + 0.84254737777777777777e-1 * t156 * t40762 + 0.44233737333333333333e-1 * t623 * t13726 + 0.98e2 / 0.135e3 * t13492 * t1929 + 0.98e2 / 0.135e3 * t13738 * t1929 - 0.31595526666666666666e-1 * t623 * t13735;
19815   t41512 = t13987 * t41;
19816   t41529 = t7523 * t13562;
19817   t41531 = t77 * t4475;
19818   t41540 = t83 * t13619;
19819   t41549 = t4368 * t1981;
19820   t41554 = 0.216e3 * t13547 * t2113 + 0.216e3 * t13704 * t1981 + 0.72e2 * t1377 * t26606 + 0.18e2 * t14661 * t7541 - 0.36e2 * t14676 * t41549 + 0.432e3 * t1987 * t41531 + 0.72e2 * t41260 * t601 + 0.216e3 * t41540 * t519 + 0.216e3 * t4362 * t7637 + 0.72e2 * t4464 * t7481 - 0.1080e4 * t41529;
19821   t41595 = 0.30720e5 * t130 * t41260 + 0.460800e6 * t13636 * t519 + 0.1843200e7 * t1403 * t7488 + 0.1843200e7 * t1430 * t7491 + 0.153600e6 * t1432 * t7481 + 0.460800e6 * t1981 * t4434 + 0.1843200e7 * t1987 * t4374 + 0.1344e4 * t41273 - 0.34560e5 * t41307 - 0.103680e6 * t41348 - 0.103680e6 * t41358 - 0.51840e5 * t41360 - 0.51840e5 * t41362 - 0.17280e5 * t41364 + 0.448e3 * t41383 + 0.1344e4 * t41385 + 0.448e3 * t41388 - 0.5760e4 * t41394;
19822   t41609 = t132 * t13547;
19823   t41626 = 0.484974e6 * t13617 * t519 - 0.26542080e8 * t13648 * t1981 - 0.69120e5 * t1401 * t7491 - 0.11520e5 * t1403 * t7481 + 0.3233160e7 * t1403 * t7491 + 0.161658e6 * t1446 * t7481 - 0.34560e5 * t1981 * t4374 + 0.484974e6 * t1981 * t4473 - 0.103680e6 * t1987 * t4430 + 0.2424870e7 * t1987 * t4434 - 0.185794560e9 * t1987 * t4438 - 0.26542080e8 * t41609 * t519 - 0.8847360e7 * t4440 * t7481 - 0.8e1 * t41260;
19824   t41653 = -0.2880e4 * t101 * t41260 - 0.1105920e7 * t134 * t41260 + 0.4608e4 * t13601 * t519 - 0.34560e5 * t13609 * t519 + 0.1536e4 * t1401 * t7481 + 0.26943e5 * t141 * t41260 - 0.103680e6 * t1430 * t7488 + 0.2424870e7 * t1432 * t7488 - 0.185794560e9 * t1434 * t7488 - 0.371589120e9 * t1446 * t7491 + 0.4608e4 * t1981 * t4370 + 0.768e3 * t41260 * t83 + 0.4608e4 * t41300 + 0.4608e4 * t41549;
19825   t41656 = t7520 * t1407;
19826   t41658 = t2000 * t4386;
19827   t41660 = -0.27e2 / 0.4e1 * t14664 * t7541 + 0.3e1 / 0.8e1 * t14667 * t7541 + 0.21e2 * t7673 * t1981 * t4383 - 0.3e1 / 0.2e1 * t28193 * t4383 + 0.432e3 * t8957 * t4362 + 0.432e3 * t28216 * t1377 + 0.144e3 * t7491 * t1448 + 0.24e2 * t128 * t41595 + (t41626 + t41653) * t86 + 0.2640e4 * t41656 - 0.1080e4 * t41658;
19828   t41662 = t7532 * t1407;
19829   t41664 = t1438 * t1986;
19830   t41667 = t1438 * t7504;
19831   t41670 = t4445 * t1999;
19832   t41688 = -0.240e3 * t41662 + 0.6e1 * t41664 * t7501 - 0.9e1 / 0.4e1 * t41667 * t7501 - 0.9e1 / 0.2e1 * t41670 * t2045 + 0.720e3 * t2056 * t4480 + 0.240e3 * t7526 * t1451 - 0.1440e4 * t4396 * t2048 - 0.480e3 * t1387 * t7508 - 0.1440e4 * t532 * t13665 + 0.720e3 * t561 * t13686 + 0.240e3 * t106 * t41260 * t81;
19833   t41717 = -0.2e1 * t614 * t84 * t41260 - 0.2880e4 * t525 * t7491 * t1407 + 0.2160e4 * t2012 * t4386 + 0.75e2 / 0.4e1 * t26580 * t41308 - 0.9e1 / 0.4e1 * t26574 * t41308 + 0.21e2 * t7673 * t41301 - 0.30e2 * t2107 * t41308 - 0.48e2 * t26563 * t41308 + 0.48e2 * t614 * t13834 * t7491 + 0.15e2 / 0.2e1 * t26708 * t41308 - 0.36e2 * t614 * t13837 * t1987 + 0.18e2 * t26714 * t13559;
19834   t41741 = 0.18e2 * t7682 * t41301 - 0.9e1 / 0.2e1 * t26558 * t4383 + 0.3e1 / 0.4e1 * t26673 * t4383 + 0.3e1 / 0.8e1 * t26687 * t13559 + 0.3e1 / 0.8e1 * t7655 * t41301 + t26679 * t41308 / 0.16e2 - t2138 * t41366 - 0.3e1 * t2138 * t41297 - 0.3e1 * t2138 * t41274 - 0.3e1 / 0.2e1 * t7644 * t41301 - 0.9e1 / 0.2e1 * t2102 * t41274;
19835   t41766 = 0.3e1 / 0.4e1 * t2107 * t41274 - 0.9e1 * t7679 * t13564 + t2107 * t41366 / 0.4e1 + 0.3e1 / 0.2e1 * t7664 * t13564 - 0.9e1 / 0.2e1 * t13678 * t7541 + 0.3e1 / 0.4e1 * t13671 * t7541 - 0.9e1 / 0.2e1 * t7679 * t13562 - 0.27e2 / 0.4e1 * t26577 * t13559 + 0.3e1 / 0.4e1 * t7664 * t13562 - 0.9e1 / 0.2e1 * t2102 * t41297 - 0.27e2 / 0.4e1 * t7667 * t41301 - 0.3e1 / 0.2e1 * t2102 * t41366;
19836   t41783 = t13655 * t525;
19837   t41786 = t1438 * t7499;
19838   t41791 = t4445 * t2006;
19839   t41796 = 0.3e1 / 0.4e1 * t2107 * t41297 - t26699 * t41308 / 0.4e1 + 0.12e2 * t614 * t13940 * t519 + 0.12e2 * t614 * t4535 * t1981 + 0.4e1 * t614 * t1382 * t7481 + 0.2160e4 * t615 * t13562 + 0.3e1 / 0.2e1 * t41783 * t557 + t41786 * t7501 / 0.8e1 + t26676 * t1407 / 0.2e1 + 0.3e1 / 0.4e1 * t41791 * t2045 + 0.3e1 / 0.2e1 * t13676 * t2048;
19840   t41821 = t4447 * t7508 / 0.2e1 + 0.3e1 / 0.2e1 * t7670 * t4386 + 0.144e3 * t2110 * t41388 + 0.3e1 / 0.2e1 * t2100 * t13665 + t598 * t41329 / 0.2e1 + 0.432e3 * t2110 * t41385 + 0.432e3 * t11338 * t13597 + 0.432e3 * t7634 * t13597 + 0.432e3 * t26593 * t4368 + 0.432e3 * t13711 * t7488 + 0.432e3 * t2110 * t41273 + 0.864e3 * t7634 * t13599;
19841   t41836 = t4552 * t1933;
19842   t41843 = t13966 * t543;
19843   t41846 = -0.10531842222222222222e-1 * t156 * t40748 - 0.14e2 / 0.27e2 * t13738 * t2074 + 0.58483742880658436214e-1 * t13743 * t2074 - 0.21931403580246913581e-1 * t13746 * t2074 - 0.73104678600823045268e-2 * t4504 * t7581 - 0.14e2 / 0.81e2 * t26506 * t1425 - 0.14e2 / 0.27e2 * t26484 * t1425 - 0.28e2 / 0.27e2 * t7727 * t4511 - 0.21444039056241426612e0 * t41512 * t583 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t41260 * t151 + 0.24e2 / 0.7e1 * t13547 * t618 + 0.24e2 / 0.7e1 * t4362 * t2146 + 0.8e1 / 0.7e1 * t1377 * t7703 + 0.8e1 / 0.7e1 * t7481 * t1457 + 0.24e2 / 0.7e1 * t1981 * t4492 + 0.24e2 / 0.7e1 * t519 * t13718 + 0.8e1 / 0.7e1 * t77 * (t41554 + t41660 + t41688 + t41717 + t41741 + t41766 + t41796 + t41821)) * t41 * t45 * t157 - 0.14e2 / 0.27e2 * t26494 * t1425 - 0.14e2 / 0.27e2 * t7711 * t4511 + 0.18e2 / 0.25e2 * t41836 * t1882 + 0.18e2 / 0.25e2 * t13991 * t7786 + 0.26329605555555555556e-1 * t7707 * t1466 - 0.3e1 / 0.5e1 * t41843 * t506;
19844   t41881 = -0.3e1 / 0.5e1 * t14002 * t1911 - t26738 * t1372 / 0.5e1 + 0.36e2 / 0.25e2 * t7734 * t13877 + 0.18e2 / 0.25e2 * t7734 * t13880 + 0.18e2 / 0.25e2 * t1934 * t40779 + 0.18e2 / 0.25e2 * t1934 * t40782 + 0.6e1 / 0.25e2 * t1934 * t40769 - 0.198e3 / 0.125e3 * t26741 * t13901 - 0.198e3 / 0.125e3 * t7820 * t40776 + 0.18e2 / 0.25e2 * t26461 * t4554 + 0.16850947555555555555e0 * t623 * t13896 + 0.30703965012345679014e-1 * t4504 * t7787 - 0.30893403851851851851e0 * t156 * t1894 * t4565 - 0.30893403851851851851e0 * t623 * t14005 + 0.98e2 / 0.405e3 * t579 * t1928 * t40769 - 0.31595526666666666666e-1 * t4497 * t1915;
19845   t41919 = 0.98e2 / 0.135e3 * t579 * t1928 * t40779 + 0.98e2 / 0.135e3 * t579 * t1928 * t40782 + 0.98e2 / 0.135e3 * t4517 * t7787 + 0.98e2 / 0.135e3 * t7711 * t4573 - 0.392e3 / 0.225e3 * t2068 * t14008 + 0.98e2 / 0.135e3 * t7569 * t4573 + 0.196e3 / 0.135e3 * t2071 * t14017 + 0.98e2 / 0.135e3 * t2071 * t14020 + 0.196e3 / 0.135e3 * t7727 * t4573 + 0.196e3 / 0.135e3 * t2068 * t14017 + 0.98e2 / 0.135e3 * t2068 * t14020 - 0.31595526666666666666e-1 * t13723 * t630 - 0.30893403851851851852e0 * t1462 * t7792 + 0.16850947555555555556e0 * t4497 * t1921 + 0.84254737777777777777e-1 * t1462 * t7803 + 0.6664e4 / 0.3375e4 * t579 * t26341 * t40787;
19846   t41955 = t7499 * t4362;
19847   t41958 = 0.45e2 / 0.2e1 * t41269 - t41272 + 0.3e1 / 0.8e1 * t13948 * t7541 - t41380 - 0.4e1 * t529 * t41260 - 0.12e2 * t8842 * t4362 - 0.12e2 * t2836 * t13547 - 0.4e1 * t28489 * t1377 + t525 * t41260 * t86 / 0.2e1 + 0.45e2 / 0.2e1 * t41400 + 0.85e2 / 0.4e1 * t41403 + 0.3e1 / 0.8e1 * t41955 * t2045;
19848   t41961 = t2006 * t13547;
19849   t41975 = t26296 * t1377;
19850   t41979 = t4538 * t7508 / 0.4e1 + 0.3e1 / 0.4e1 * t41961 * t557 + 0.3e1 / 0.4e1 * t13943 * t2048 - 0.75e2 / 0.2e1 * t41405 - 0.3e1 * t615 * t13665 - t7640 * t1407 - 0.3e1 * t2143 * t4386 - 0.6e1 * t41408 - 0.6e1 * t41410 - t41414 - 0.2e1 * t41415 + t41975 * t7501 / 0.16e2 - 0.19e2 / 0.8e1 * t41418;
19851   t41998 = -0.18e2 * t41529 + 0.21e2 / 0.2e1 * t28474 * t13562 - 0.3e1 / 0.4e1 * t28477 * t4383 + 0.2e1 * t77 * (t41958 + t41979) + 0.6e1 * t4362 * t2018 + 0.6e1 * t13547 * t534 + 0.2e1 * t41260 * t90 + 0.6e1 * t519 * t13960 + 0.2e1 * t7481 * t1389 + 0.6e1 * t1981 * t4546 + 0.2e1 * t1377 * t7778 - t521 * t41260;
19852   t42022 = 0.24e2 * t41656 - 0.18e2 * t41658 - 0.24e2 * t41662 + 0.6e1 * t1991 * t41273 + 0.6e1 * t1991 * t41385 + 0.2e1 * t1991 * t41388 - 0.3e1 / 0.4e1 * t8797 * t4386 - t28556 * t1407 / 0.8e1 - 0.3e1 / 0.2e1 * t2814 * t13665 + 0.21e2 / 0.2e1 * t2007 * t4386 + 0.15e2 / 0.4e1 * t7769 * t1407 - t28549 * t1407 / 0.2e1 - 0.3e1 / 0.2e1 * t8794 * t4386;
19853   t42054 = t1395 * t7819;
19854   t42061 = (-0.8e1 / 0.3e1 * t41260 * t93 - 0.8e1 * t13547 * t537 - 0.8e1 * t4362 * t2021 - 0.8e1 / 0.3e1 * t1377 * t7781 - 0.8e1 / 0.3e1 * t7481 * t1392 - 0.8e1 * t1981 * t4549 - 0.8e1 * t519 * t13963 - 0.8e1 / 0.3e1 * t77 * (t41998 + t42022)) * t98 - 0.10616096960000000000e0 * t4557 * t13981 * t40751 - 0.14e2 / 0.27e2 * t2068 * t13762 - 0.14e2 / 0.81e2 * t26487 * t1425 - 0.14e2 / 0.27e2 * t7569 * t4511 - 0.14e2 / 0.27e2 * t2071 * t13762 - 0.14e2 / 0.81e2 * t579 * t582 * t40728 - 0.11795663288888888889e0 * t156 * t40754 - 0.35386989866666666666e-1 * t156 * t40745 - 0.392e3 / 0.675e3 * t4517 * t7575 - 0.24563172009876543211e-1 * t4504 * t7575 - 0.81877240032921810701e-1 * t13743 * t1929 - 0.12014101497942386831e1 * t1462 * t7578 - 0.66e2 / 0.125e3 * t42054 * t7410 - t4580 * t7475 / 0.5e1 - 0.3e1 / 0.5e1 * t1900 * t13541;
19855   t42103 = -0.3e1 / 0.5e1 * t7566 * t4356 - t544 * t40728 / 0.5e1 + 0.53610097640603566530e0 * t568 * t1893 * t124 - 0.14620935720164609054e0 * t2064 * t496 * t124 + 0.35e2 / 0.27e2 * t13867 * t575 * t124 + 0.77233509629629629632e0 * t622 * t13885 - 0.21063684444444444445e0 * t2150 * t4418 - 0.21063684444444444445e0 * t13723 * t626 - 0.12014101497942386831e1 * t155 * t40621 * t123 - 0.83393485218716659047e0 * t112 * t7324 * t124 + 0.84254737777777777776e-1 * t2151 * t4562 - 0.392e3 / 0.225e3 * t2071 * t14008 - 0.392e3 / 0.225e3 * t579 * t7574 * t40776 + 0.44233737333333333333e-1 * t4497 * t1884 - 0.10531842222222222222e-1 * t156 * t52 * t581 * t40728 - 0.10531842222222222222e-1 * t7708 * t1470;
19856   t42143 = -0.31595526666666666666e-1 * t623 * t13891 - 0.31595526666666666666e-1 * t2151 * t4566 - 0.10531842222222222222e-1 * t1462 * t7798 + 0.44233737333333333333e-1 * t156 * t7815 + 0.48056405991769547325e0 * t156 * t7332 * t1469 + 0.84254737777777777776e-1 * t156 * t497 * t13890 - 0.11795663288888888889e0 * t1462 * t7806 - 0.35386989866666666666e-1 * t1462 * t7810 + 0.14744579111111111111e-1 * t4557 * t4558 * t40769 + 0.43250765392592592593e0 * t4557 * t1893 * t1881 * t4554 + 0.88467474666666666666e-1 * t13978 * t13968 + 0.44233737333333333333e-1 * t13978 * t13971 + 0.44233737333333333333e-1 * t4557 * t4558 * t40779 + 0.44233737333333333333e-1 * t2150 * t212 * t4559 + 0.44233737333333333333e-1 * t18305 * t7815 + 0.1056e4 / 0.625e3 * t26456 * t40787;
19857   t42157 = t25874 * t160;
19858   t42172 = -0.36e2 * t1855 * t13366 - 0.36e2 * t478 * t13365 * t4300 + 0.3e1 * t474 * t14031 + t33 * (t41457 + t41494 + t41846 + t41881 + t41919 + t42061 + t42103 + t42143) - 0.36e2 * t1855 * t13454 + 0.3e1 / 0.10e2 * t6980 * t1496 + 0.3e1 * t4596 * t2299 * t230 + t1477 * t7301 * t230 + 0.9720e4 * t42157 * t40418 - 0.12e2 * t4324 * t40422 + 0.162e3 * t6986 * t13321 - 0.36e2 * t18278 * t6973 + 0.162e3 * t18281 * t7004 - 0.36e2 * t18271 * t6973 + 0.162e3 * t18792 * t7004;
19859   t42174 = t4584 * t1863;
19860   t42192 = t1473 * t6996;
19861   t42200 = t1862 * t2154;
19862   t42203 = t6983 * t160;
19863   t42206 = t25801 * t160;
19864   t42212 = 0.162e3 * t1862 * t42174 * t1839 + 0.513e3 / 0.1000e4 * t702 * t13376 + 0.972e3 * t13339 * t13297 + 0.972e3 * t13326 * t13297 - 0.36e2 * t13344 * t13244 + 0.972e3 * t4316 * t40442 - 0.7776e4 * t13333 * t40446 - 0.18e2 * t6983 * t4332 - 0.648e3 * t6995 * t42192 * t6971 - 0.27e2 / 0.100e3 * t1478 * t7017 + 0.3e1 * t1853 * t4584 + 0.162e3 * t42200 * t4318 - 0.36e2 * t42203 * t4303 + 0.162e3 * t42206 * t4318 - 0.12e2 * t478 * t1473 * t6971;
19865   t42224 = t14031 * t26;
19866   t42247 = t478 * t2154;
19867   t42250 = -0.18e2 * t1855 * t13481 - 0.6e1 * t478 * t25886 * t1356 - 0.27e2 / 0.50e2 * t638 * t13317 - 0.36e2 * t13277 * t1873 - 0.36e2 * t4310 * t7305 - 0.18e2 * t478 * t42224 * t468 + 0.3e1 * t13314 * t701 * t230 + t40914 * t207 * t230 + 0.324e3 * t13339 * t13301 - 0.72e2 * t13336 * t13242 + 0.513e3 / 0.1000e4 * t20773 * t40548 - 0.1944e4 * t13333 * t40825 - 0.36e2 * t1855 * t13464 - 0.27e2 / 0.100e3 * t4599 * t2307 + 0.3e1 / 0.5e1 * t2168 * t4643 - 0.36e2 * t42247 * t4303;
19868   t42257 = t1362 * t7890 + 0.162e3 * t1862 * t40807 * t1839 - 0.648e3 * t6995 * t40811 * t6971 + 0.162e3 * t13213 * t7840 + 0.3e1 * t1853 * t4687 - 0.27e2 / 0.100e3 * t2394 * t13446 * t731 + 0.972e3 * t4654 * t40822 - 0.1944e4 * t13254 * t40825 + 0.3e1 / 0.10e2 * t2391 * t13446 - 0.18e2 * t478 * t40830 * t468 - 0.18e2 * t4310 * t6956 + t40914 * t230 - p->cam_beta * (t40948 + t40981 + t41016 + t41057 + t41096 + t42172 + t42212 + t42250) + 0.513e3 / 0.1000e4 * t27414 * t14053;
19869   t42265 = t8 * t450 * t13175;
19870   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19871     v4rho3sigma[0] = -0.2e1 * t40352 + t40356 - 0.2e1 / 0.3e1 * t40358 - 0.2e1 / 0.3e1 * t40361 - 0.3e1 / 0.2e1 * t40364 - t1352 * t2753 * t4700 * t1812 / 0.2e1 - t1352 * t2774 * t1517 * t7944 / 0.2e1 - 0.3e1 / 0.2e1 * t1352 * t2774 * t4700 * t1827 - t40379 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t40421 + t40455 + t40487 + t40523 + t40559 + t40613 + t40805 + t42257) - 0.4e1 * t42265 - 0.3e1 / 0.2e1 * t1352 * t2774 * t14116 * t455 + t1352 * t8635 * t1517 * t7979 / 0.9e1 - t14133 * t14523 * t7929 / 0.2e1;
19872 
19873   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19874     v4rho3sigma[1] = 0.0e0;
19875 
19876   t42280 = t8 * t2426 * t1685 / 0.9e1;
19877   t42281 = t2404 * p->cam_beta;
19878   t42291 = t8 * t766 * t14138;
19879   t42303 = 0.7e1 / 0.1215e4 * t490 * t10384 * t1541;
19880   t42305 = t490 * t9504 * t4718;
19881   t42308 = t490 * t3165 * t14153;
19882   t42311 = t490 * t3165 * t14157;
19883   t42313 = t8005 * t1540;
19884   t42328 = my_piecewise3(t295, 0, t42303 + t42305 / 0.405e3 + t42308 / 0.405e3 - t42311 / 0.540e3 + 0.7e1 / 0.1215e4 * t490 * t1109 * t42313 * t8006 - t5889 * t10378 * t1540 * t781 * t2448 / 0.135e3 + t490 * t1109 * t4717 * t8016 / 0.540e3);
19885   t42347 = t4729 * t2454;
19886   t42348 = t8039 * t42347;
19887   t42351 = t787 * t14162;
19888   t42354 = t2454 * t4723;
19889   t42357 = t8022 * t1545;
19890   t42360 = t8059 * t1575;
19891   t42362 = t8029 * t1545;
19892   t42363 = t24907 * t42362;
19893   t42371 = 0.21e2 / 0.2e1 * t29644 * t14306 - 0.3e1 / 0.4e1 * t29648 * t4788 - 0.18e2 * t42348 - t789 * t42328 + 0.6e1 * t2464 * t42351 + 0.6e1 * t2464 * t42354 + 0.2e1 * t2464 * t42357 - 0.24e2 * t42360 + 0.24e2 * t42363 + 0.21e2 / 0.2e1 * t2480 * t4791 + 0.15e2 / 0.4e1 * t8069 * t1575 - t29661 * t1575 / 0.2e1;
19894   t42380 = t2460 * t4723;
19895   t42381 = t8039 * t42380;
19896   t42383 = t14200 * t8143;
19897   t42386 = 0.15e2 / 0.2e1 * t14206 * t8143;
19898   t42394 = t297 * t42328 * t304;
19899   t42400 = t2459 * t4723;
19900   t42401 = t42400 * t2518;
19901   t42403 = t8035 * t1545;
19902   t42404 = t42403 * t8121;
19903   t42406 = t2472 * t14162;
19904   t42407 = t42406 * t820;
19905   t42409 = t14203 * t2521;
19906   t42411 = 0.45e2 / 0.2e1 * t42383 - t42386 - 0.12e2 * t9610 * t4723 - 0.12e2 * t3214 * t14162 - 0.4e1 * t797 * t42328 - t42394 + t793 * t42328 * t304 / 0.2e1 - 0.4e1 * t29607 * t1545 + 0.45e2 / 0.2e1 * t42401 + 0.85e2 / 0.4e1 * t42404 - 0.6e1 * t42407 - 0.6e1 * t42409;
19907   t42412 = t4745 * t8121;
19908   t42414 = t8058 * t4723;
19909   t42416 = 0.15e2 / 0.2e1 * t42414 * t2518;
19910   t42417 = t24961 * t1545;
19911   t42418 = t42417 * t8121;
19912   t42420 = t4739 * t8124;
19913   t42422 = t2479 * t14162;
19914   t42427 = t8068 * t4723;
19915   t42432 = t24945 * t1545;
19916   t42442 = -0.75e2 / 0.2e1 * t42412 - t42416 - 0.19e2 / 0.8e1 * t42418 - 0.2e1 * t42420 + 0.3e1 / 0.4e1 * t42422 * t820 + 0.3e1 / 0.4e1 * t14214 * t2521 + 0.3e1 / 0.8e1 * t42427 * t2518 + t4745 * t8124 / 0.4e1 + t42432 * t8121 / 0.16e2 - t8214 * t1575 - 0.3e1 * t2607 * t4791 - 0.3e1 * t864 * t14262 + 0.3e1 / 0.8e1 * t14219 * t8143;
19917   t42460 = -0.3e1 / 0.2e1 * t9562 * t4791 - 0.3e1 / 0.4e1 * t9565 * t4791 - t29668 * t1575 / 0.8e1 - 0.3e1 / 0.2e1 * t3192 * t14262 - 0.18e2 * t42381 + 0.2e1 * t296 * (t42411 + t42442) + 0.2e1 * t8022 * t1557 + 0.6e1 * t2454 * t4755 + 0.6e1 * t787 * t14233 + 0.2e1 * t1545 * t8080 + 0.6e1 * t14162 * t802 + 0.6e1 * t4723 * t2491 + 0.2e1 * t42328 * t308;
19918   t42480 = t296 * t14325;
19919   t42491 = t4791 * t2460;
19920   t42494 = t1575 * t8022;
19921   t42497 = t4791 * t2454;
19922   t42516 = t42362 * t304;
19923   t42523 = 0.18e2 * t25008 * t14303 + 0.18e2 * t8140 * t42491 - 0.3e1 / 0.2e1 * t2517 * t42494 - 0.9e1 / 0.2e1 * t2517 * t42497 - 0.27e2 / 0.4e1 * t8120 * t42491 - 0.9e1 / 0.2e1 * t8137 * t14306 - 0.27e2 / 0.4e1 * t25018 * t14303 + 0.3e1 / 0.4e1 * t8117 * t14306 + 0.3e1 / 0.4e1 * t2524 * t42497 + t2524 * t42494 / 0.4e1 + 0.3e1 / 0.8e1 * t25038 * t14303 + 0.3e1 / 0.8e1 * t8127 * t42491 + t25024 * t42516 / 0.16e2 - 0.9e1 * t8137 * t14315 + 0.3e1 / 0.2e1 * t8117 * t14315;
19924   t42526 = t14262 * t787;
19925   t42545 = t4775 * t2460;
19926   t42546 = 0.4608e4 * t42545;
19927   t42547 = t4821 * t2454;
19928   t42548 = 0.2304e4 * t42547;
19929   t42549 = t1598 * t8022;
19930   t42550 = 0.768e3 * t42549;
19931   t42554 = t14409 * t787;
19932   t42555 = 0.2304e4 * t42554;
19933   t42557 = 0.75e2 / 0.4e1 * t25004 * t42516 - 0.9e1 / 0.2e1 * t2517 * t42526 + 0.3e1 / 0.4e1 * t2524 * t42526 - 0.9e1 / 0.2e1 * t14275 * t8143 + 0.3e1 / 0.4e1 * t14269 * t8143 - 0.9e1 / 0.2e1 * t25015 * t4788 + 0.3e1 / 0.4e1 * t25032 * t4788 + 0.18e2 * t15275 * t8143 - 0.27e2 / 0.4e1 * t15278 * t8143 + 0.3e1 / 0.8e1 * t15281 * t8143 + t42546 + t42548 + t42550 + 0.10e2 * t78 * t42328 * t299 + t42555 + 0.60e2 * t42383;
19934   t42571 = t1569 * t8042;
19935   t42572 = 0.4608e4 * t42571;
19936   t42573 = t14290 * t793;
19937   t42576 = t1573 * t2459;
19938   t42579 = t4781 * t2472;
19939   t42582 = -t42386 - 0.30e2 * t2524 * t42516 - 0.9e1 / 0.4e1 * t25041 * t42516 - 0.10e2 * t42394 + 0.60e2 * t42401 + 0.55e2 / 0.2e1 * t42404 - 0.15e2 * t42407 - 0.15e2 * t42409 - 0.100e3 * t42412 - t42416 - 0.5e1 / 0.4e1 * t42418 - 0.5e1 * t42420 + t42572 + 0.3e1 / 0.2e1 * t42573 * t820 + 0.6e1 * t42576 * t8121 - 0.9e1 / 0.2e1 * t42579 * t2518;
19940   t42583 = t1573 * t8058;
19941   t42588 = t42328 * t304;
19942   t42593 = t4781 * t2479;
19943   t42598 = t1573 * t8068;
19944   t42605 = t296 * t42328;
19945   t42607 = t344 * t42328;
19946   t42608 = 0.256e3 * t42607;
19947   t42613 = 0.1536e4 * t42362;
19948   t42614 = 0.40e2 * t42357 + 0.120e3 * t42354 + 0.120e3 * t42351 + 0.40e2 * t42605 - t42613 - t42546 - t42572 - t42555 - t42548 - t42550 - t42608;
19949   t42619 = -0.9e1 / 0.4e1 * t42583 * t8121 + 0.3e1 / 0.2e1 * t2515 * t14262 + t819 * t42588 / 0.2e1 + 0.3e1 / 0.2e1 * t14265 * t2521 + 0.3e1 / 0.4e1 * t42593 * t2518 + t4783 * t8124 / 0.2e1 + t42598 * t8121 / 0.8e1 + t25027 * t1575 / 0.2e1 + 0.3e1 / 0.2e1 * t8112 * t4791 - 0.72e2 * t42605 + t42608 + t42614 * t304 - 0.72e2 * t42357 - 0.216e3 * t42354 - 0.216e3 * t42351 + t42613;
19950   t42634 = 0.48e2 * t29852 * t1545 + 0.144e3 * t29855 * t1545 + 0.144e3 * t9633 * t4723 + 0.144e3 * t29860 * t1545 + 0.144e3 * t14257 * t2454 + 0.48e2 * t4771 * t8022 + 0.144e3 * t42480 * t787 + 0.288e3 * t9636 * t4723 + 0.144e3 * t3233 * t14162 + 0.48e2 * t24992 * t1545 + 0.24e2 * t301 * (t42523 + t42557 + t42582 + t42619) + 0.144e3 * t2460 * t4803 + 0.144e3 * t8092 * t4723 + 0.144e3 * t2501 * t14162 + 0.48e2 * t810 * t42328 + 0.144e3 * t15180 * t2454;
19951   t42678 = -0.27e2 / 0.4e1 * t15494 * t8143 + 0.3e1 / 0.8e1 * t15497 * t8143 - 0.3e1 / 0.2e1 * t29927 * t4788 + 0.18e2 * t15490 * t8143 + 0.21e2 * t29916 * t14306 - 0.36e2 * t15506 * t42347 - 0.1080e4 * t42348 + 0.432e3 * t25130 * t4729 + 0.864e3 * t8260 * t14183 + 0.432e3 * t2574 * t42351 + 0.432e3 * t14387 * t8042;
19952   t42688 = t4836 * t2472;
19953   t42691 = t1606 * t8058;
19954   t42700 = -0.2880e4 * t29973 * t1575 - 0.1440e4 * t14231 * t820 - 0.1440e4 * t4753 * t2521 - 0.240e3 * t42360 + 0.2640e4 * t42363 - 0.1080e4 * t42381 - 0.9e1 / 0.2e1 * t42688 * t2518 - 0.9e1 / 0.4e1 * t42691 * t8121 + 0.2160e4 * t4880 * t2518 - 0.30e2 * t2571 * t42516 - 0.48e2 * t25183 * t42516;
19955   t42726 = 0.48e2 * t863 * t14200 * t8029 + t25197 * t42516 / 0.16e2 - 0.3e1 / 0.2e1 * t2566 * t42494 - 0.27e2 / 0.4e1 * t25162 * t14303 - 0.9e1 / 0.4e1 * t25192 * t42516 + 0.3e1 / 0.4e1 * t2571 * t42497 + 0.3e1 / 0.8e1 * t8227 * t42491 + 0.3e1 / 0.4e1 * t8219 * t14306 + t2571 * t42494 / 0.4e1 + 0.3e1 / 0.8e1 * t25189 * t14303 + 0.4e1 * t863 * t1550 * t8022;
19956   t42733 = t1606 * t2459;
19957   t42753 = -0.9e1 / 0.2e1 * t2566 * t42497 - 0.27e2 / 0.4e1 * t8222 * t42491 - 0.9e1 / 0.2e1 * t8249 * t14306 + 0.6e1 * t42733 * t8121 + 0.240e3 * t324 * t42328 * t299 + t847 * t42588 / 0.2e1 + 0.432e3 * t10701 * t14186 + 0.432e3 * t8260 * t14186 + 0.432e3 * t2574 * t42354 + 0.144e3 * t2574 * t42357 + 0.240e3 * t8133 * t1619 + 0.720e3 * t2529 * t4871;
19958   t42763 = t14436 * t793;
19959   t42768 = t4836 * t2479;
19960   t42773 = t1606 * t8068;
19961   t42782 = 0.720e3 * t824 * t14355 - 0.480e3 * t1555 * t8124 - 0.2e1 * t863 * t302 * t42328 + 0.3e1 / 0.2e1 * t42763 * t820 + 0.3e1 / 0.2e1 * t14368 * t2521 + 0.3e1 / 0.4e1 * t42768 * t2518 + t4838 * t8124 / 0.2e1 + t42773 * t8121 / 0.8e1 + t25115 * t1575 / 0.2e1 + 0.3e1 / 0.2e1 * t8243 * t4791 + 0.3e1 / 0.2e1 * t2564 * t14262;
19962   t42809 = -0.34560e5 * t14278 * t787 - 0.11520e5 * t1571 * t8022 - 0.103680e6 * t1598 * t8042 + 0.2424870e7 * t1600 * t8042 - 0.185794560e9 * t1602 * t8042 - 0.34560e5 * t2454 * t4779 - 0.103680e6 * t2460 * t4821 + 0.768e3 * t301 * t42328 - 0.2880e4 * t319 * t42328 - 0.1105920e7 * t350 * t42328 + 0.26943e5 * t357 * t42328 - 0.8847360e7 * t4831 * t8022 - 0.8e1 * t42328 + 0.4608e4 * t42380;
19963   t42820 = t348 * t14162;
19964   t42838 = 0.4608e4 * t14282 * t787 - 0.26542080e8 * t14429 * t2454 + 0.484974e6 * t14451 * t787 + 0.1536e4 * t1569 * t8022 - 0.69120e5 * t1569 * t8029 + 0.3233160e7 * t1571 * t8029 + 0.161658e6 * t1614 * t8022 - 0.371589120e9 * t1614 * t8029 + 0.4608e4 * t2454 * t4775 + 0.484974e6 * t2454 * t4864 + 0.2424870e7 * t2460 * t4825 - 0.185794560e9 * t2460 * t4829 - 0.26542080e8 * t42820 * t787 + 0.4608e4 * t42347;
19965   t42866 = 0.460800e6 * t14417 * t787 + 0.1843200e7 * t1571 * t8042 + 0.1843200e7 * t1598 * t8029 + 0.153600e6 * t1600 * t8022 + 0.460800e6 * t2454 * t4825 + 0.1843200e7 * t2460 * t4779 + 0.30720e5 * t346 * t42328 + 0.1344e4 * t42351 + 0.1344e4 * t42354 + 0.448e3 * t42357 - 0.34560e5 * t42362 - 0.103680e6 * t42545 - 0.51840e5 * t42547 - 0.17280e5 * t42549 - 0.51840e5 * t42554 - 0.103680e6 * t42571 + 0.448e3 * t42605 - 0.5760e4 * t42607;
19966   t42889 = (t42809 + t42838) * t304 + 0.24e2 * t344 * t42866 + 0.144e3 * t8029 * t1616 - t2602 * t42494 - 0.3e1 * t2602 * t42497 - 0.3e1 / 0.2e1 * t8240 * t42491 - t25112 * t42516 / 0.4e1 + 0.12e2 * t863 * t4742 * t2454 + 0.3e1 / 0.4e1 * t25186 * t4788 - 0.9e1 * t8249 * t14315 + 0.3e1 / 0.2e1 * t8219 * t14315 - 0.9e1 / 0.2e1 * t2566 * t42526;
19967   t42914 = 0.3e1 / 0.4e1 * t2571 * t42526 - 0.3e1 * t2602 * t42526 - 0.9e1 / 0.2e1 * t14358 * t8143 + 0.3e1 / 0.4e1 * t14373 * t8143 - 0.9e1 / 0.2e1 * t25159 * t4788 + 0.18e2 * t25176 * t14303 + 0.18e2 * t8252 * t42491 + 0.75e2 / 0.4e1 * t25165 * t42516 + 0.21e2 * t8255 * t42491 + 0.15e2 / 0.2e1 * t25156 * t42516 - 0.36e2 * t863 * t14203 * t2460;
19968   t42924 = t301 * t14453;
19969   t42939 = t296 * t4866;
19970   t42942 = 0.12e2 * t14211 * t787 * t863 + 0.216e3 * t14162 * t2577 + 0.216e3 * t14398 * t2454 + 0.72e2 * t1545 * t25127 + 0.432e3 * t1545 * t29897 + 0.2160e4 * t1622 * t8143 + 0.432e3 * t2460 * t42939 + 0.72e2 * t42328 * t850 + 0.216e3 * t42924 * t787 + 0.216e3 * t4723 * t8263 + 0.432e3 * t4723 * t9869 + 0.72e2 * t4855 * t8022;
19971   t42969 = t8 * t2405 * t14128;
19972   t42972 = t8 * t2411 * t4707;
19973   t42975 = t8 * t772 * t4902;
19974   t42978 = t8 * t254 * t14513;
19975   t42984 = t2416 * t2417 * t14135;
19976   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
19977     v4rho3sigma[2] = t42280 + t14133 * t42281 * t4901 * t2406 / 0.2e1 + 0.3e1 / 0.2e1 * t14133 * t14134 * t14512 * t767 - 0.2e1 * t42291 - t1352 * t2415 * t1685 * t7952 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t1530 * t8280 - 0.6e1 * t1101 * t29460 * t1524 + t269 * ((-0.8e1 / 0.3e1 * t42328 * t311 - 0.8e1 * t14162 * t805 - 0.8e1 * t4723 * t2494 - 0.8e1 / 0.3e1 * t1545 * t8083 - 0.8e1 / 0.3e1 * t8022 * t1560 - 0.8e1 * t2454 * t4758 - 0.8e1 * t787 * t14236 - 0.8e1 / 0.3e1 * t296 * (t42371 + t42460)) * t316 - t29688 * t1540 / 0.5e1 + 0.35e2 / 0.81e2 * t42634 * t336 * t340 + 0.18276169650205761317e-1 * t8152 * t274 * t340 - 0.14e2 / 0.81e2 * t29870 * t1593 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t42328 * t367 + 0.24e2 / 0.7e1 * t14162 * t867 + 0.24e2 / 0.7e1 * t4723 * t2610 + 0.8e1 / 0.7e1 * t1545 * t8272 + 0.8e1 / 0.7e1 * t8022 * t1625 + 0.24e2 / 0.7e1 * t2454 * t4883 + 0.24e2 / 0.7e1 * t787 * t14494 + 0.8e1 / 0.7e1 * t296 * (t42678 + t42700 + t42726 + t42753 + t42782 + t42889 + t42914 + t42942)) * t41 * t45 * t373 + 0.26329605555555555556e-1 * t8276 * t1634 - 0.10531842222222222222e-1 * t8277 * t1638) + t1645 * t8517 * t428 + t8518 * t1664 / 0.10e2) - 0.2e1 / 0.3e1 * t42969 - 0.2e1 / 0.3e1 * t42972 + t42975 / 0.2e1 + 0.3e1 / 0.2e1 * t42978 - t14133 * t15088 * t8540 / 0.2e1 + 0.4e1 * t42984 + 0.3e1 / 0.2e1 * t14133 * t14134 * t4901 * t2421 + t1352 * t8653 * t1685 * t8551 / 0.9e1;
19978 
19979   t42995 = 0.4e1 / 0.3e1 * t14520 * t14528;
19980   t43005 = t2255 * t2 * t4;
19981   t43006 = t43005 * t14534;
19982   t43008 = t14520 * t15081;
19983   t43016 = t14519 * t14132;
19984   t43018 = 0.4e1 / 0.9e1 * t43016 * t14524;
19985   t43020 = t189 * t2 * t4;
19986   t43021 = t43020 * t4907;
19987   t43023 = -t42995 - t14532 * t2774 * t4700 * t9 - t40364 / 0.2e1 - t40379 / 0.3e1 + t40356 - t14532 * t2774 * t1517 / 0.2e1 + t43006 / 0.6e1 + t43008 - t1352 * t2774 * t14116 * t944 / 0.2e1 - t14133 * t14523 * t8611 / 0.6e1 - t43018 - 0.2e1 / 0.9e1 * t43021;
19988   t43024 = t7977 * t1517;
19989   t43035 = 0.4e1 / 0.3e1 * t43016 * t14541;
19990   t43037 = t1810 * p->cam_beta;
19991   t43049 = t43020 * t5095;
19992   t43082 = -0.21063684444444444444e-1 * t2980 * t4566 + 0.14744579111111111111e-1 * t5080 * t1884 - 0.10531842222222222222e-1 * t1031 * t13891 - 0.10531842222222222222e-1 * t9036 * t1470 + 0.196e3 / 0.405e3 * t9042 * t4573 + 0.14744579111111111111e-1 * t1031 * t13726 + 0.10234655004115226338e-1 * t14831 * t1929 - 0.14042456296296296297e0 * t14821 * t626 + 0.12e2 / 0.25e2 * t28578 * t4554 - 0.66e2 / 0.125e3 * t28457 * t13901 + 0.12e2 / 0.25e2 * t9047 * t13877 + 0.6e1 / 0.25e2 * t9047 * t13880 + 0.26329605555555555556e-1 * t9035 * t1466 - 0.21063684444444444444e-1 * t14821 * t630 + 0.196e3 / 0.405e3 * t9039 * t4573;
19993   t43092 = t490 * t1943 * t14592 / 0.810e3;
19994   t43094 = t490 * t27885 * t14596;
19995   t43105 = t490 * t7459 * t4914;
19996   t43116 = -0.2e1 / 0.405e3 * t41146 + t41149 / 0.540e3 + t41157 - t43092 - 0.11e2 / 0.810e3 * t43094 + t490 * t493 * t41188 * t943 / 0.540e3 + t490 * t8759 * t13529 * t9 / 0.135e3 + t43105 / 0.1215e4 + 0.11e2 / 0.2025e4 * t5889 * t27833 * t1372 * t8737 + 0.11e2 / 0.2025e4 * t41202 + 0.2e1 / 0.1215e4 * t41206 - 0.11e2 / 0.2700e4 * t41209 - 0.11e2 / 0.5400e4 * t41212 - t41215 / 0.810e3;
19997   t43132 = 0.11e2 / 0.8100e4 * t18405 * t14585;
19998   t43134 = 0.2e1 / 0.1215e4 * t18405 * t14589;
19999   t43135 = t4356 * t943;
20000   t43144 = t1372 * t9;
20001   t43162 = -t41218 / 0.1620e4 + 0.77e2 / 0.18000e5 * t41221 + t41224 / 0.1215e4 + t490 * t8759 * t4346 / 0.270e3 + 0.77e2 / 0.18000e5 * t5889 * t41235 * t14583 * t1882 + 0.7e1 / 0.1215e4 * t5889 * t27904 * t14583 * t1970 + t43132 + t43134 - 0.11e2 / 0.2700e4 * t5889 * t13511 * t43135 * t506 - 0.11e2 / 0.5400e4 * t5889 * t13511 * t14583 * t1911 - 0.11e2 / 0.1350e4 * t27853 * t13511 * t43144 * t506 - 0.2e1 / 0.405e3 * t5889 * t8735 * t43135 * t454 - t5889 * t8735 * t14583 * t1975 / 0.405e3 - 0.4e1 / 0.405e3 * t27853 * t8735 * t43144 * t454 + 0.11e2 / 0.8100e4 * t41256;
20002   t43164 = my_piecewise3(t76, 0, t43116 + t43162);
20003   t43187 = t14753 * t525;
20004   t43193 = t519 * t14601;
20005   t43196 = t1981 * t4919;
20006   t43203 = t14940 * t2045;
20007   t43217 = t1987 * t4919;
20008   t43229 = t43187 * t557 + 0.144e3 * t8954 * t13597 + 0.288e3 * t7634 * t14643 + 0.288e3 * t2110 * t43193 + 0.144e3 * t2110 * t43196 + t7670 * t4986 / 0.2e1 - 0.480e3 * t4949 * t2048 - 0.360e3 * t43203 - 0.480e3 * t13857 * t982 - 0.960e3 * t4396 * t2882 - 0.480e3 * t1387 * t8898 - 0.960e3 * t532 * t14648 + 0.240e3 * t2056 * t5063 + 0.480e3 * t561 * t14619 + 0.720e3 * t43217 * t521 + 0.240e3 * t106 * t43164 * t81 - 0.2e1 * t614 * t84 * t43164 + t13676 * t2882 + t4447 * t8898 / 0.2e1;
20009   t43230 = t8781 * t1377;
20010   t43235 = t5030 * t2006;
20011   t43250 = t614 * t1986;
20012   t43251 = t13558 * t954;
20013   t43257 = t2107 * t1377;
20014   t43270 = t26574 * t1377;
20015   t43279 = 0.144e3 * t2110 * t43230 + t14609 * t2048 / 0.2e1 + t43235 * t2045 / 0.4e1 + t41783 * t982 / 0.2e1 + 0.240e3 * t9115 * t1451 + 0.480e3 * t2889 * t4480 + 0.240e3 * t986 * t13686 + 0.288e3 * t41531 * t2817 + 0.288e3 * t13711 * t8804 + 0.48e2 * t43250 * t43251 - 0.48e2 * t26563 * t954 * t13559 - 0.30e2 * t43257 * t8914 - 0.9e1 / 0.2e1 * t26577 * t1377 * t2879 - 0.9e1 / 0.2e1 * t7667 * t4362 * t2879 - 0.9e1 / 0.4e1 * t14664 * t8924 - 0.9e1 / 0.2e1 * t14664 * t8926 - 0.9e1 / 0.4e1 * t43270 * t8914 + t26687 * t1377 * t2879 / 0.4e1 + t7655 * t4362 * t2879 / 0.4e1;
20016   t43285 = t26679 * t1377;
20017   t43305 = t26580 * t1377;
20018   t43318 = t954 * t13547;
20019   t43321 = t2810 * t4362;
20020   t43326 = t14667 * t8926 / 0.4e1 + t14667 * t8924 / 0.8e1 + t43285 * t8914 / 0.16e2 + 0.14e2 * t7673 * t2810 * t4383 + 0.14e2 * t14670 * t13564 + 0.7e1 * t14670 * t13562 + 0.12e2 * t26714 * t1377 * t2879 + 0.12e2 * t7682 * t4362 * t2879 + 0.12e2 * t14661 * t8926 + 0.6e1 * t14661 * t8924 + 0.75e2 / 0.4e1 * t43305 * t8914 + 0.288e3 * t28219 * t4368 + 0.288e3 * t8954 * t13599 + 0.144e3 * t13711 * t8807 + 0.288e3 * t11338 * t14634 + 0.288e3 * t7634 * t14634 + 0.144e3 * t2110 * t43318 + 0.288e3 * t2110 * t43321 + 0.288e3 * t11338 * t14637;
20021   t43349 = t4370 * t2817;
20022   t43351 = t1401 * t8804;
20023   t43353 = t1401 * t8807;
20024   t43362 = t77 * t43164;
20025   t43364 = 0.30720e5 * t130 * t43164 + 0.1228800e7 * t1403 * t8804 + 0.614400e6 * t1403 * t8807 + 0.1843200e7 * t1430 * t8801 + 0.1228800e7 * t2817 * t4374 + 0.896e3 * t43193 + 0.448e3 * t43196 + 0.448e3 * t43230 + 0.448e3 * t43318 + 0.896e3 * t43321 - 0.69120e5 * t43349 - 0.69120e5 * t43351 - 0.34560e5 * t43353 + 0.448e3 * t43362;
20026   t43365 = t128 * t43164;
20027   t43377 = t4971 * t1987;
20028   t43379 = t1430 * t8781;
20029   t43381 = t14718 * t519;
20030   t43383 = t5016 * t1981;
20031   t43386 = t13628 * t954;
20032   t43388 = t4430 * t2810;
20033   t43392 = 0.153600e6 * t13636 * t954 + 0.153600e6 * t1432 * t8781 + 0.307200e6 * t14729 * t519 + 0.153600e6 * t1981 * t5020 + 0.614400e6 * t1987 * t4975 + 0.307200e6 * t2810 * t4434 - 0.34560e5 * t43251 - 0.5760e4 * t43365 - 0.34560e5 * t43377 - 0.17280e5 * t43379 - 0.34560e5 * t43381 - 0.17280e5 * t43383 - 0.17280e5 * t43386 - 0.34560e5 * t43388;
20034   t43407 = t13599 * t954;
20035   t43410 = t4368 * t2810;
20036   t43413 = t13597 * t954;
20037   t43438 = -0.69120e5 * t1401 * t8801 + 0.3233160e7 * t1403 * t8801 - 0.69120e5 * t1430 * t8804 + 0.1616580e7 * t1432 * t8804 + 0.808290e6 * t1432 * t8807 - 0.123863040e9 * t1434 * t8804 - 0.61931520e8 * t1434 * t8807 - 0.371589120e9 * t1446 * t8801 - 0.69120e5 * t2817 * t4430 + 0.1616580e7 * t2817 * t4434 - 0.123863040e9 * t2817 * t4438;
20038   t43458 = -0.2880e4 * t101 * t43164 - 0.1105920e7 * t134 * t43164 + 0.1536e4 * t1401 * t8781 + 0.26943e5 * t141 * t43164 - 0.34560e5 * t1430 * t8807 + 0.3072e4 * t14685 * t519 + 0.1536e4 * t1981 * t4971 + 0.768e3 * t43164 * t83 - 0.8e1 * t43164 + 0.1536e4 * t43217 + 0.1536e4 * t43413;
20039   t43470 = t132 * t14601;
20040   t43481 = 0.1536e4 * t13601 * t954 - 0.17694720e8 * t13648 * t2810 - 0.8847360e7 * t14747 * t1981 - 0.34560e5 * t1987 * t5016 + 0.808290e6 * t1987 * t5020 + 0.3072e4 * t2810 * t4370 - 0.8847360e7 * t41609 * t954 - 0.17694720e8 * t43470 * t519 - 0.8847360e7 * t4440 * t8781 + 0.3072e4 * t43407 + 0.3072e4 * t43410;
20041   t43504 = -0.11520e5 * t13609 * t954 + 0.161658e6 * t13617 * t954 - 0.11520e5 * t1403 * t8781 + 0.161658e6 * t1446 * t8781 - 0.23040e5 * t14695 * t519 + 0.323316e6 * t14705 * t519 - 0.11520e5 * t1981 * t4975 + 0.161658e6 * t1981 * t5056 - 0.61931520e8 * t1987 * t5024 - 0.23040e5 * t2810 * t4374 + 0.323316e6 * t2810 * t4473;
20042   t43508 = t5030 * t1999;
20043   t43511 = 0.288e3 * t7634 * t14637 + t28359 * t1407 / 0.2e1 + t8906 * t4386 + t2930 * t13665 / 0.2e1 + 0.144e3 * t26593 * t4926 + 0.144e3 * t33566 * t4926 + 0.288e3 * t33585 * t4926 + t2100 * t14648 + 0.24e2 * t128 * (t43364 + t43392) + 0.15e2 / 0.2e1 * t26708 * t954 * t13559 - t7644 * t2810 * t4383 - t14673 * t13562 / 0.2e1 - t14673 * t13564 - t26699 * t954 * t13559 / 0.4e1 - 0.24e2 * t14676 * t43407 - 0.24e2 * t14676 * t43410 - 0.12e2 * t14676 * t43413 + (t43438 + t43458 + t43481 + t43504) * t86 - 0.3e1 / 0.2e1 * t43508 * t2045;
20044   t43514 = t43164 * t86;
20045   t43531 = t982 * t13547;
20046   t43545 = t43196 * t86;
20047   t43548 = t43217 * t86;
20048   t43559 = t598 * t43514 / 0.2e1 - 0.3e1 / 0.2e1 * t8910 * t13562 - 0.9e1 / 0.4e1 * t28346 * t13559 + t8901 * t13562 / 0.4e1 + t28362 * t13559 / 0.8e1 - 0.3e1 / 0.2e1 * t26558 * t4983 - 0.3e1 * t7679 * t14765 + t41786 * t8914 / 0.8e1 - t2138 * t43531 + 0.4e1 * t614 * t13940 * t954 + 0.8e1 * t614 * t4535 * t2810 + 0.4e1 * t614 * t1382 * t8781 + 0.4e1 * t614 * t4938 * t1981 + t2107 * t43545 / 0.4e1 + t7655 * t43548 / 0.8e1 + t26673 * t4983 / 0.4e1 + t7664 * t14765 / 0.2e1 + t7664 * t14755 / 0.2e1 + t2107 * t43531 / 0.4e1;
20049   t43560 = t43321 * t86;
20050   t43563 = t43230 * t86;
20051   t43566 = t7699 * t43413;
20052   t43586 = t43193 * t86;
20053   t43595 = t1988 * t4983;
20054   t43597 = t26322 * t4983;
20055   t43601 = t2107 * t43560 / 0.2e1 + t2107 * t43563 / 0.4e1 - 0.360e3 * t43566 - 0.3e1 * t7679 * t14755 - 0.3e1 / 0.2e1 * t2102 * t43531 - 0.3e1 * t2102 * t43560 - 0.3e1 / 0.2e1 * t2102 * t43563 - 0.3e1 / 0.2e1 * t2102 * t43545 - 0.9e1 / 0.4e1 * t7667 * t43548 - 0.3e1 / 0.2e1 * t13678 * t8924 - 0.9e1 / 0.4e1 * t41667 * t8914 + t13671 * t8924 / 0.4e1 + t2107 * t43586 / 0.2e1 - 0.3e1 * t8910 * t13564 + t8901 * t13564 / 0.2e1 - 0.3e1 * t13678 * t8926 + 0.2640e4 * t43595 - 0.240e3 * t43597 - 0.2880e4 * t2140 * t4983;
20056   t43610 = t13837 * t2879;
20057   t43614 = t4399 * t8926;
20058   t43640 = 0.8e1 * t614 * t15011 * t519 - 0.2e1 * t2138 * t43586 + 0.1440e4 * t4489 * t2879 - 0.720e3 * t43610 + 0.1440e4 * t1454 * t8926 - 0.720e3 * t43614 - t7644 * t43548 / 0.2e1 + 0.720e3 * t4926 * t1994 - t2138 * t43563 - 0.2e1 * t2138 * t43560 + t13671 * t8926 / 0.2e1 - 0.3e1 * t28349 * t4383 + t28367 * t4383 / 0.2e1 - 0.3e1 * t41670 * t2879 + t41791 * t2879 / 0.2e1 - t2138 * t43545 - 0.3e1 * t7679 * t14758 + t7664 * t14758 / 0.2e1 - 0.3e1 * t2102 * t43586;
20059   t43664 = t83 * t14707;
20060   t43669 = t1987 * t1448;
20061   t43676 = t77 * t5058;
20062   t43685 = 0.6e1 * t7682 * t43548 - 0.12e2 * t614 * t14940 * t1987 + 0.6e1 * t41664 * t8914 + 0.6e1 * t28206 * t13559 + 0.7e1 * t7673 * t43548 + 0.72e2 * t2947 * t13547 + 0.72e2 * t7637 * t4919 + 0.144e3 * t2113 * t14601 + 0.72e2 * t601 * t43164 + 0.72e2 * t4464 * t8781 + 0.72e2 * t28116 * t1377 + 0.144e3 * t43664 * t519 + 0.72e2 * t41540 * t954 + 0.144e3 * t43669 * t954 + 0.72e2 * t14796 * t1981 + 0.144e3 * t8960 * t4362 + 0.144e3 * t43676 * t1987 + 0.144e3 * t8957 * t4919 + 0.144e3 * t33494 * t1377 + 0.144e3 * t13704 * t2810;
20063   t43691 = 0.8e1 / 0.7e1 * t43164 * t151 + 0.16e2 / 0.7e1 * t14601 * t618 + 0.8e1 / 0.7e1 * t4919 * t2146 + 0.8e1 / 0.7e1 * t13547 * t1026 + 0.16e2 / 0.7e1 * t4362 * t2975 + 0.8e1 / 0.7e1 * t1377 * t9031 + 0.8e1 / 0.7e1 * t8781 * t1457 + 0.16e2 / 0.7e1 * t2810 * t4492 + 0.8e1 / 0.7e1 * t954 * t13718 + 0.8e1 / 0.7e1 * t1981 * t5075 + 0.16e2 / 0.7e1 * t519 * t14816 + 0.8e1 / 0.7e1 * t77 * (t43229 + t43279 + t43326 + t43511 + t43559 + t43601 + t43640 + t43685);
20064   t43698 = t14950 * t41;
20065   t43705 = t2051 * t1377;
20066   t43715 = t26287 * t1377;
20067   t43728 = t26284 * t1377;
20068   t43739 = -0.30e2 * t43705 * t8914 + 0.12e2 * t7538 * t4362 * t2879 + 0.12e2 * t14925 * t8926 + 0.6e1 * t14925 * t8924 + 0.75e2 / 0.4e1 * t43715 * t8914 - 0.9e1 / 0.2e1 * t26300 * t1377 * t2879 - 0.9e1 / 0.2e1 * t7505 * t4362 * t2879 - 0.9e1 / 0.4e1 * t14928 * t8924 - 0.9e1 / 0.2e1 * t14928 * t8926 - 0.9e1 / 0.4e1 * t43728 * t8914 + t26308 * t1377 * t2879 / 0.4e1 + t7500 * t4362 * t2879 / 0.4e1 + t14931 * t8926 / 0.4e1;
20069   t43742 = t26297 * t1377;
20070   t43751 = 0.1536e4 * t43251;
20071   t43752 = 0.3072e4 * t43349;
20072   t43753 = 0.3072e4 * t43351;
20073   t43754 = 0.1536e4 * t43353;
20074   t43755 = 0.768e3 * t43386;
20075   t43756 = 0.1536e4 * t43388;
20076   t43757 = 0.768e3 * t43379;
20077   t43758 = 0.1536e4 * t43377;
20078   t43759 = 0.1536e4 * t43381;
20079   t43760 = 0.768e3 * t43383;
20080   t43761 = 0.256e3 * t43365;
20081   t43762 = 0.40e2 * t43230 + 0.80e2 * t43321 + 0.40e2 * t43318 + 0.40e2 * t43196 + 0.80e2 * t43193 + 0.40e2 * t43362 - t43751 - t43752 - t43753 - t43754 - t43755 - t43756 - t43757 - t43758 - t43759 - t43760 - t43761;
20082   t43765 = 0.5e1 * t13842 * t8926;
20083   t43766 = t41417 * t8914;
20084   t43768 = t41399 * t2879;
20085   t43770 = t13834 * t8926;
20086   t43772 = t13834 * t8924;
20087   t43774 = t4538 * t8914;
20088   t43784 = t14931 * t8924 / 0.8e1 + t43742 * t8914 / 0.16e2 + t43762 * t86 - t43765 - 0.5e1 / 0.4e1 * t43766 + 0.40e2 * t43768 + 0.40e2 * t43770 + 0.20e2 * t43772 - 0.100e3 * t43774 + 0.6e1 * t41317 * t8914 + 0.6e1 * t28053 * t13559 + 0.6e1 * t7538 * t43548 - 0.3e1 * t28047 * t4383;
20089   t43788 = t41402 * t8914;
20090   t43791 = 0.5e1 * t41412 * t2879;
20091   t43793 = 0.5e1 / 0.2e1 * t13842 * t8924;
20092   t43812 = t28068 * t4383 / 0.2e1 + 0.55e2 / 0.2e1 * t43788 - t43791 - t43793 - 0.3e1 / 0.2e1 * t13831 * t8924 - 0.9e1 / 0.4e1 * t41340 * t8914 + t13822 * t8924 / 0.4e1 + t41335 * t8914 / 0.8e1 - 0.3e1 / 0.2e1 * t9094 * t13562 - 0.9e1 / 0.4e1 * t28050 * t13559 + t9089 * t13562 / 0.4e1 + t28061 * t13559 / 0.8e1 - 0.3e1 / 0.2e1 * t26271 * t4983;
20093   t43839 = -0.3e1 * t7535 * t14765 - 0.3e1 * t7535 * t14755 - 0.3e1 * t9094 * t13564 + t9089 * t13564 / 0.2e1 - 0.3e1 * t7535 * t14758 + t7516 * t14758 / 0.2e1 - 0.3e1 * t2044 * t43586 + t2051 * t43586 / 0.2e1 - 0.3e1 * t41343 * t2879 + t41332 * t2879 / 0.2e1 - 0.3e1 * t13831 * t8926 + t13822 * t8926 / 0.2e1 + t2051 * t43563 / 0.4e1;
20094   t43866 = -0.3e1 / 0.2e1 * t2044 * t43531 - 0.3e1 * t2044 * t43560 - 0.3e1 / 0.2e1 * t2044 * t43563 - 0.3e1 / 0.2e1 * t2044 * t43545 - 0.9e1 / 0.4e1 * t7505 * t43548 + t2051 * t43545 / 0.4e1 + t7500 * t43548 / 0.8e1 + t26292 * t4983 / 0.4e1 + t7516 * t14765 / 0.2e1 + t7516 * t14755 / 0.2e1 + t2051 * t43531 / 0.4e1 + t2051 * t43560 / 0.2e1 + t43752;
20095   t43873 = t1986 * t4919;
20096   t43874 = t43873 * t2045;
20097   t43878 = t4977 * t1999;
20098   t43882 = t43753 + t43754 - 0.72e2 * t43196 - 0.144e3 * t43193 - 0.72e2 * t43318 - 0.144e3 * t43321 - 0.72e2 * t43230 - 0.72e2 * t43362 + t43761 + 0.20e2 * t43874 + t41320 * t982 / 0.2e1 - 0.3e1 / 0.2e1 * t43878 * t2045 + t2042 * t14648;
20099   t43891 = t14920 * t525;
20100   t43893 = t1999 * t14601;
20101   t43894 = t43893 * t557;
20102   t43896 = t14940 * t2048;
20103   t43898 = t7504 * t4919;
20104   t43900 = 0.5e1 / 0.2e1 * t43898 * t2045;
20105   t43901 = t4399 * t8898;
20106   t43903 = t41407 * t982;
20107   t43905 = t13837 * t2882;
20108   t43911 = t556 * t43514 / 0.2e1 + t9100 * t4386 + t2874 * t13665 / 0.2e1 + t7511 * t4986 / 0.2e1 + t43891 * t557 - 0.10e2 * t43894 - 0.5e1 * t43896 - t43900 - 0.5e1 * t43901 - 0.5e1 * t43903 - 0.10e2 * t43905 + t4378 * t8898 / 0.2e1 + t28042 * t1407 / 0.2e1;
20109   t43915 = t4977 * t2006;
20110   t43922 = t79 * t43164 * t86;
20111   t43927 = t13828 * t2882 + t14870 * t2048 / 0.2e1 + t43915 * t2045 / 0.4e1 + 0.12e2 * t26274 * t1377 * t2879 + t43758 + t43757 + t43759 + t43760 + t43751 + t43755 + t43756 - 0.10e2 * t43922 + 0.10e2 * t78 * t43164 * t81;
20112   t43935 = t77 * t14946;
20113   t43946 = t1981 * t1415;
20114   t43949 = t519 * t4402;
20115   t43960 = 0.48e2 * t1987 * t4998 + 0.24e2 * t83 * (t43739 + t43784 + t43812 + t43839 + t43866 + t43882 + t43911 + t43927) + 0.48e2 * t14861 * t1981 + 0.96e2 * t43935 * t519 + 0.48e2 * t4365 * t8781 + 0.96e2 * t13795 * t2810 + 0.96e2 * t14854 * t2810 + 0.48e2 * t41142 * t954 + 0.48e2 * t43946 * t954 + 0.96e2 * t43949 * t954 + 0.48e2 * t547 * t43164 + 0.96e2 * t2028 * t14601 + 0.96e2 * t9071 * t4919 + 0.96e2 * t2855 * t14601;
20116   t43992 = 0.48e2 * t109 * t1377 * t8781 + 0.48e2 * t1377 * t2061 * t954 + 0.96e2 * t1377 * t2810 * t565 + 0.96e2 * t11226 * t4362 + 0.48e2 * t13547 * t2862 + 0.48e2 * t13547 * t4961 + 0.48e2 * t1377 * t27754 + 0.48e2 * t1377 * t33835 + 0.96e2 * t1377 * t33838 + 0.96e2 * t14834 * t4362 + 0.96e2 * t14837 * t4362 + 0.96e2 * t4362 * t9084 + 0.48e2 * t4919 * t7396 + 0.48e2 * t4919 * t9068;
20117   t44005 = t15043 * t41;
20118   t44073 = -0.6e1 * t43203 + 0.2e1 * t1991 * t43230 - t8794 * t4986 / 0.2e1 - t2814 * t14648 + 0.2e1 * t1991 * t43318 + 0.4e1 * t1991 * t43321 - t4923 * t13665 / 0.2e1 - t1986 * t8781 * t1407 / 0.2e1 - t14975 * t4386 + 0.7e1 / 0.2e1 * t2007 * t4986 - t8797 * t4986 / 0.4e1 + 0.4e1 * t1991 * t43193 + 0.2e1 * t1991 * t43196 - t26380 * t954 * t13559 / 0.8e1 + 0.7e1 * t8834 * t4383 + 0.7e1 * t2833 * t13564 + 0.7e1 / 0.2e1 * t2833 * t13562 + 0.15e2 / 0.4e1 * t8839 * t13559 - t7643 * t2810 * t4383 / 0.2e1;
20119   t44097 = t2006 * t14601;
20120   t44102 = t7499 * t4919;
20121   t44114 = -0.2e1 * t2972 * t4386 - t1023 * t13665 + t41961 * t982 / 0.4e1 + t13943 * t2882 / 0.2e1 + t4538 * t8898 / 0.4e1 + t44097 * t557 / 0.2e1 + t15014 * t2048 / 0.4e1 + t44102 * t2045 / 0.8e1 - t43765 - 0.19e2 / 0.8e1 * t43766 + 0.15e2 * t43768 + 0.15e2 * t43770 + 0.15e2 / 0.2e1 * t43772 - 0.75e2 / 0.2e1 * t43774 + 0.85e2 / 0.4e1 * t43788 - t43791 - t43793 - 0.2e1 * t615 * t14648 - t2143 * t4986;
20122   t44146 = -t8874 * t1407 + t41955 * t2879 / 0.4e1 + t13948 * t8926 / 0.4e1 + t13948 * t8924 / 0.8e1 + t41975 * t8914 / 0.16e2 + 0.15e2 / 0.2e1 * t43874 - 0.4e1 * t43894 - 0.2e1 * t43896 - t43900 - 0.2e1 * t43901 - 0.2e1 * t43903 - 0.4e1 * t43905 - 0.4e1 * t529 * t43164 - 0.4e1 * t8842 * t4919 - 0.8e1 * t2836 * t14601 - 0.8e1 * t15023 * t4362 - 0.4e1 * t4943 * t13547 - 0.4e1 * t8781 * t87 * t1377 + t525 * t43164 * t86 / 0.2e1 - t43922;
20123   t44168 = -t14978 * t13562 / 0.4e1 - t14978 * t13564 / 0.2e1 + 0.4e1 * t4362 * t2844 + 0.2e1 * t13547 * t966 + 0.2e1 * t4919 * t2018 + 0.2e1 * t43164 * t90 + 0.2e1 * t954 * t13960 + 0.2e1 * t77 * (t44114 + t44146) + 0.4e1 * t14601 * t534 + 0.4e1 * t2810 * t4546 + 0.2e1 * t8781 * t1389 + 0.2e1 * t1981 * t4951 + 0.4e1 * t519 * t15035 + 0.2e1 * t1377 * t8854 - 0.6e1 * t43566 + 0.24e2 * t43595 - 0.24e2 * t43597 - 0.12e2 * t43610 - 0.12e2 * t43614 - t521 * t43164;
20124   t44172 = -0.8e1 / 0.3e1 * t43164 * t93 - 0.16e2 / 0.3e1 * t14601 * t537 - 0.8e1 / 0.3e1 * t4919 * t2021 - 0.8e1 / 0.3e1 * t13547 * t969 - 0.16e2 / 0.3e1 * t4362 * t2847 - 0.8e1 / 0.3e1 * t1377 * t8857 - 0.8e1 / 0.3e1 * t8781 * t1392 - 0.16e2 / 0.3e1 * t2810 * t4549 - 0.8e1 / 0.3e1 * t954 * t13963 - 0.8e1 / 0.3e1 * t1981 * t4954 - 0.16e2 / 0.3e1 * t519 * t15038 - 0.8e1 / 0.3e1 * t77 * (t44073 + t44168);
20125   t44174 = 0.56169825185185185184e-1 * t1031 * t13896 + 0.70e2 / 0.81e2 * t14949 * t575 * t124 + 0.26329605555555555556e-1 * t43691 * t41 * t45 * t157 - 0.28e2 / 0.81e2 * t28428 * t1425 - 0.28e2 / 0.81e2 * t43698 * t583 - 0.14e2 / 0.81e2 * t14824 * t2074 + 0.35e2 / 0.81e2 * (t43960 + t43992) * t120 * t124 - t2852 * t13541 / 0.5e1 + 0.29489158222222222222e-1 * t15053 * t13968 + 0.14744579111111111111e-1 * t15053 * t13971 - 0.35386989866666666666e-1 * t15053 * t13982 - 0.28e2 / 0.81e2 * t44005 * t583 - 0.14042456296296296297e0 * t2979 * t4418 - 0.97472904801097393690e-1 * t2897 * t496 * t124 + t44172 * t98;
20126   t44209 = 0.35e2 / 0.81e2 * t5001 * t1896 * t124 + 0.17870032546867855510e0 * t993 * t1893 * t124 - 0.10297801283950617284e0 * t1031 * t14005 + 0.56169825185185185185e-1 * t5080 * t1921 + 0.56169825185185185184e-1 * t2980 * t4562 + 0.196e3 / 0.405e3 * t2904 * t14017 - 0.392e3 / 0.675e3 * t2904 * t14008 + 0.98e2 / 0.405e3 * t2904 * t14020 - 0.10531842222222222222e-1 * t5080 * t1915 - 0.78637755259259259258e-1 * t15053 * t13975 + 0.29489158222222222222e-1 * t2979 * t212 * t4559 + 0.25744503209876543210e0 * t1030 * t13885 + 0.25744503209876543210e0 * t5080 * t1918 - 0.14e2 / 0.81e2 * t2904 * t13762 - 0.14e2 / 0.81e2 * t28424 * t1425;
20127   t44217 = t4957 * t1933;
20128   t44220 = t15041 * t543;
20129   t44223 = t15048 * t41;
20130   t44226 = t14961 * t41;
20131   t44247 = 0.18276169650205761317e-1 * t9146 * t51 * t124 - t28573 * t1372 / 0.5e1 - t14956 * t1911 / 0.5e1 + 0.6e1 / 0.25e2 * t44217 * t1882 - 0.2e1 / 0.5e1 * t44220 * t506 + 0.38989161920438957476e-1 * t44223 * t583 - 0.14620935720164609054e-1 * t44226 * t583 - 0.73104678600823045268e-2 * t14831 * t2074 + 0.98e2 / 0.405e3 * t14824 * t1929 - 0.2e1 / 0.5e1 * t8718 * t4356 - 0.28e2 / 0.81e2 * t9039 * t4511 - 0.14e2 / 0.81e2 * t28431 * t1425 - 0.28e2 / 0.81e2 * t9042 * t4511 + 0.56169825185185185185e-1 * t1031 * t13730 - 0.21063684444444444444e-1 * t2980 * t4501 - 0.10531842222222222222e-1 * t1031 * t13735;
20132   t44272 = t33 * (t43082 + t44174 + t44209 + t44247) + t1362 * t9150 - 0.12e2 * t1855 * t14553 + t3122 * t4643 / 0.5e1 + t2989 * t4643 / 0.5e1 - 0.9e1 / 0.100e3 * t5089 * t2307 + 0.2e1 * t4596 * t3121 * t230 + t1477 * t9481 * t230 + 0.171e3 / 0.1000e4 * t1075 * t13376 + 0.324e3 * t14550 * t13297 + t13249 * t1034 - 0.9e1 / 0.50e2 * t2989 * t4608;
20133   t44275 = t5087 * t25;
20134   t44301 = 0.2e1 * t4308 * t2987 - 0.12e2 * t478 * t44275 * t1839 - 0.9e1 / 0.50e2 * t1075 * t13317 - 0.9e1 / 0.100e3 * t1075 * t13357 + t1075 * t13447 / 0.10e2 + t15067 * t732 / 0.5e1 + t15065 * t732 / 0.5e1 + t9154 * t1496 / 0.5e1 + t5089 * t2342 / 0.10e2 + t9152 * t1496 / 0.10e2 + t9482 * t1496 / 0.10e2 + 0.54e2 * t13213 * t8702 - 0.12e2 * t4310 * t8710;
20135   t44305 = t1862 * t2987;
20136   t44308 = t6995 * t1034;
20137   t44311 = t1855 * t1034;
20138   t44314 = t6986 * t1034;
20139   t44321 = t478 * t2987;
20140   t44330 = t1034 * t1839;
20141   t44337 = -0.6e1 * t1356 * t28594 * t478 - 0.12e2 * t1356 * t44330 * t478 - 0.24e2 * t13242 * t14556 - 0.12e2 * t13244 * t14556 + 0.54e2 * t13251 * t14550 - 0.648e3 * t13256 * t44308 + 0.108e3 * t13301 * t14550 - 0.24e2 * t4303 * t44311 - 0.24e2 * t4303 * t44321 - 0.12e2 * t4310 * t8706 - 0.6e1 * t4310 * t8713 + 0.108e3 * t4318 * t44305 + 0.108e3 * t4318 * t44314;
20142   t44345 = t15063 * t26;
20143   t44361 = t5087 * t1863;
20144   t44370 = -0.12e2 * t1855 * t14559 - 0.6e1 * t6983 * t4911 - 0.12e2 * t478 * t8705 * t4300 - 0.12e2 * t478 * t44345 * t468 - 0.6e1 * t478 * t2784 * t13195 - 0.9e1 / 0.50e2 * t3122 * t4608 - 0.12e2 * t13277 * t2785 + 0.2e1 * t474 * t15063 - 0.12e2 * t1855 * t14564 + t1853 * t5087 + 0.54e2 * t1862 * t44361 * t1839 - 0.6e1 * t478 * t14563 * t1845 + t13314 * t1074 * t230;
20145   t44377 = t14531 * t14132;
20146   t44381 = t14133 * t43024 * t8637 / 0.9e1 + t14133 * t14539 * t5093 * t1827 / 0.2e1 - 0.4e1 / 0.9e1 * t40361 - 0.2e1 / 0.9e1 * t40358 + t43035 - 0.2e1 / 0.3e1 * t40352 + t14133 * t43037 * t5093 * t1812 / 0.6e1 - t14133 * t1810 * t4700 * t2756 / 0.3e1 + t14133 * t14539 * t15079 * t455 + t43049 / 0.6e1 - 0.4e1 / 0.3e1 * t42265 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t44272 + t44301 + t44337 + t44370) - t44377 * t14523 * t8631 / 0.3e1;
20147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20148     v4rho3sigma[3] = t43023 + t44381;
20149 
20150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20151     v4rho3sigma[4] = 0.0e0;
20152 
20153   t44383 = t14520 * t15649;
20154   t44386 = 0.4e1 / 0.9e1 * t43016 * t15089;
20155   t44394 = t43020 * t5500;
20156   t44402 = -0.2e1 / 0.3e1 * t42291 + t42280 + t44383 + t42978 / 0.2e1 - t44386 + t14133 * t14134 * t15647 * t767 + t14532 * t2415 * t1685 / 0.2e1 + t42975 / 0.3e1 - t44394 / 0.6e1 - 0.4e1 / 0.9e1 * t42972 - t1352 * t2415 * t5499 * t2421 / 0.2e1 + 0.4e1 / 0.3e1 * t42984;
20157   t44409 = t3817 * t2618;
20158   t44415 = t1101 * t2618;
20159   t44422 = t14506 * t262;
20160   t44455 = t2454 * t1583;
20161   t44458 = 0.48e2 * t1133 * t1545 * t2534 + 0.96e2 * t1545 * t3188 * t828 + 0.48e2 * t1545 * t327 * t9549 + 0.96e2 * t10516 * t4723 + 0.48e2 * t1133 * t44455 + 0.48e2 * t14162 * t5146 + 0.96e2 * t15129 * t4723 + 0.96e2 * t15132 * t4723 + 0.48e2 * t15187 * t2454 + 0.48e2 * t1545 * t29843 + 0.96e2 * t1545 * t31671 + 0.48e2 * t1545 * t31684 + 0.48e2 * t2460 * t5208 + 0.48e2 * t5171 * t8092;
20162   t44459 = t787 * t4803;
20163   t44472 = t296 * t15285;
20164   t44481 = t2442 * t5165;
20165   t44487 = 0.11e2 / 0.8100e4 * t18405 * t15153;
20166   t44493 = t490 * t9504 * t5156;
20167   t44496 = 0.2e1 / 0.1215e4 * t18405 * t15161;
20168   t44507 = t490 * t31421 * t5152;
20169   t44515 = t490 * t9504 * t5166;
20170   t44519 = t490 * t3165 * t15172 / 0.810e3;
20171   t44525 = t490 * t31364 * t15164;
20172   t44536 = -t490 * t1109 * t44481 * t2443 / 0.405e3 + t44487 - 0.11e2 / 0.5400e4 * t5889 * t15151 * t5325 * t2448 + t44493 / 0.1215e4 + t44496 - t5889 * t10378 * t15159 * t2448 / 0.405e3 + 0.4e1 / 0.405e3 * t27853 * t10378 * t1540 * t9 * t781 + 0.11e2 / 0.4050e4 * t44507 + t42303 + 0.2e1 / 0.1215e4 * t42305 - t42311 / 0.1620e4 - t490 * t10384 * t4717 / 0.270e3 - t44515 / 0.405e3 - t44519 + t490 * t1109 * t15171 * t2448 / 0.540e3 + 0.11e2 / 0.810e3 * t44525 + t42308 / 0.1215e4 + 0.11e2 / 0.4050e4 * t5889 * t37089 * t5325 * t2443 + 0.7e1 / 0.1215e4 * t5889 * t31445 * t15159 * t2443;
20173   t44537 = my_piecewise3(t295, 0, t44536);
20174   t44545 = t297 * t44537 * t304;
20175   t44554 = t25004 * t1545;
20176   t44559 = t25041 * t1545;
20177   t44564 = t25024 * t1545;
20178   t44570 = t2524 * t1545;
20179   t44577 = -0.10e2 * t44545 + 0.12e2 * t8140 * t4723 * t3257 + 0.12e2 * t15275 * t9675 + 0.6e1 * t15275 * t9678 + 0.75e2 / 0.4e1 * t44554 * t9682 - 0.9e1 / 0.4e1 * t15278 * t9678 - 0.9e1 / 0.4e1 * t44559 * t9682 + t15281 * t9678 / 0.8e1 + t44564 * t9682 / 0.16e2 + 0.12e2 * t25008 * t1545 * t3257 - 0.30e2 * t44570 * t9682 - 0.3e1 * t9713 * t14315 + t9704 * t14315 / 0.2e1;
20180   t44582 = t15255 * t787;
20181   t44587 = t5193 * t2460;
20182   t44590 = t4745 * t9682;
20183   t44592 = t1575 * t9549;
20184   t44595 = t5193 * t2454;
20185   t44608 = -0.3e1 * t8137 * t15214 + t8117 * t15214 / 0.2e1 - 0.3e1 * t2517 * t44582 + t2524 * t44582 / 0.2e1 + 0.6e1 * t8140 * t44587 - 0.100e3 * t44590 - 0.3e1 / 0.2e1 * t2517 * t44592 - 0.3e1 / 0.2e1 * t2517 * t44595 - 0.9e1 / 0.4e1 * t8120 * t44587 + t2524 * t44595 / 0.4e1 + t8127 * t44587 / 0.8e1 + t42598 * t9682 / 0.8e1 - 0.3e1 / 0.2e1 * t9713 * t14306;
20186   t44622 = t14262 * t1133;
20187   t44625 = t4791 * t3188;
20188   t44638 = -0.9e1 / 0.4e1 * t29751 * t14303 + t9704 * t14306 / 0.4e1 + t29739 * t14303 / 0.8e1 - 0.3e1 / 0.2e1 * t25015 * t5190 - 0.3e1 * t8137 * t15193 - 0.3e1 * t8137 * t15197 - 0.3e1 / 0.2e1 * t2517 * t44622 - 0.3e1 * t2517 * t44625 + t25032 * t5190 / 0.4e1 + t8117 * t15193 / 0.2e1 + t8117 * t15197 / 0.2e1 + t2524 * t44622 / 0.4e1 + t2524 * t44625 / 0.2e1;
20189   t44659 = t14200 * t9678;
20190   t44661 = t42403 * t9682;
20191   t44664 = 0.5e1 * t42414 * t3257;
20192   t44665 = t2524 * t44592 / 0.4e1 - 0.3e1 / 0.2e1 * t14275 * t9678 - 0.9e1 / 0.4e1 * t42583 * t9682 + t14269 * t9678 / 0.4e1 - 0.3e1 * t42579 * t3257 + t42593 * t3257 / 0.2e1 - 0.3e1 * t14275 * t9675 + t14269 * t9675 / 0.2e1 - 0.3e1 * t29748 * t4788 + t29734 * t4788 / 0.2e1 + 0.20e2 * t44659 + 0.55e2 / 0.2e1 * t44661 - t44664;
20193   t44669 = 0.5e1 / 0.2e1 * t14206 * t9678;
20194   t44671 = 0.5e1 * t14206 * t9675;
20195   t44672 = t42417 * t9682;
20196   t44674 = t42400 * t3257;
20197   t44676 = t14200 * t9675;
20198   t44682 = t14180 * t1133;
20199   t44683 = 0.1536e4 * t44682;
20200   t44684 = t14409 * t1133;
20201   t44685 = 0.768e3 * t44684;
20202   t44686 = t4821 * t3188;
20203   t44687 = 0.1536e4 * t44686;
20204   t44688 = t1598 * t9549;
20205   t44689 = 0.768e3 * t44688;
20206   t44690 = t5178 * t2460;
20207   t44691 = 0.1536e4 * t44690;
20208   t44692 = t15517 * t787;
20209   t44693 = 0.1536e4 * t44692;
20210   t44694 = -t44669 - t44671 - 0.5e1 / 0.4e1 * t44672 + 0.40e2 * t44674 + 0.40e2 * t44676 + 0.6e1 * t42576 * t9682 + 0.6e1 * t29745 * t14303 + t44683 + t44685 + t44687 + t44689 + t44691 + t44693;
20211   t44695 = t5246 * t2454;
20212   t44696 = 0.768e3 * t44695;
20213   t44716 = t44537 * t304;
20214   t44719 = t42406 * t1166;
20215   t44721 = t14203 * t3260;
20216   t44723 = t4739 * t9710;
20217   t44725 = t2472 * t15177;
20218   t44726 = t44725 * t820;
20219   t44728 = t44696 + 0.10e2 * t78 * t44537 * t299 - 0.9e1 / 0.2e1 * t25018 * t1545 * t3257 + t25038 * t1545 * t3257 / 0.4e1 - 0.9e1 / 0.2e1 * t8120 * t4723 * t3257 + t8127 * t4723 * t3257 / 0.4e1 - 0.9e1 / 0.2e1 * t15278 * t9675 + t15281 * t9675 / 0.4e1 + t819 * t44716 / 0.2e1 - 0.5e1 * t44719 - 0.10e2 * t44721 - 0.5e1 * t44723 - 0.10e2 * t44726;
20220   t44730 = t15272 * t2521;
20221   t44732 = t8058 * t5171;
20222   t44734 = 0.5e1 / 0.2e1 * t44732 * t2518;
20223   t44735 = t296 * t44537;
20224   t44737 = t344 * t44537;
20225   t44738 = 0.256e3 * t44737;
20226   t44739 = t9549 * t1545;
20227   t44741 = t3188 * t4723;
20228   t44743 = t1133 * t14162;
20229   t44745 = t2454 * t5171;
20230   t44747 = t787 * t15177;
20231   t44750 = t4775 * t3195;
20232   t44751 = 0.3072e4 * t44750;
20233   t44752 = t1569 * t9572;
20234   t44753 = 0.3072e4 * t44752;
20235   t44754 = t1569 * t9575;
20236   t44755 = 0.1536e4 * t44754;
20237   t44756 = 0.40e2 * t44739 + 0.80e2 * t44741 + 0.40e2 * t44743 + 0.40e2 * t44745 + 0.80e2 * t44747 + 0.40e2 * t44735 - t44683 - t44751 - t44753 - t44755 - t44685 - t44687 - t44689 - t44691 - t44693 - t44696 - t44738;
20238   t44763 = t2459 * t5171;
20239   t44764 = t44763 * t2518;
20240   t44766 = t5184 * t2472;
20241   t44769 = t15235 * t793;
20242   t44771 = -0.5e1 * t44730 - t44734 - 0.72e2 * t44735 + t44738 + t44756 * t304 - 0.72e2 * t44739 - 0.144e3 * t44741 - 0.72e2 * t44743 - 0.72e2 * t44745 - 0.144e3 * t44747 + 0.20e2 * t44764 - 0.3e1 / 0.2e1 * t44766 * t2518 + t44769 * t820;
20243   t44774 = t5184 * t2479;
20244   t44790 = t15241 * t2521 / 0.2e1 + t44774 * t2518 / 0.4e1 + t42573 * t1166 / 0.2e1 + t14265 * t3260 + t4783 * t9710 / 0.2e1 + t29729 * t1575 / 0.2e1 + t9700 * t4791 + t3252 * t14262 / 0.2e1 + t8112 * t5193 / 0.2e1 + t2515 * t15255 + t44751 + t44753 + t44755;
20245   t44796 = 0.96e2 * t44459 * t1133 + 0.96e2 * t9649 * t4723 + 0.48e2 * t3240 * t14162 + 0.48e2 * t9633 * t5171 + 0.96e2 * t9636 * t5171 + 0.96e2 * t3233 * t15177 + 0.96e2 * t44472 * t787 + 0.96e2 * t15180 * t3188 + 0.48e2 * t42480 * t1133 + 0.96e2 * t2501 * t15177 + 0.48e2 * t810 * t44537 + 0.96e2 * t14257 * t3188 + 0.48e2 * t4771 * t9549 + 0.24e2 * t301 * (t44577 + t44608 + t44638 + t44665 + t44694 + t44728 + t44771 + t44790);
20246   t44826 = t9594 * t14303;
20247   t44828 = t24907 * t44682;
20248   t44830 = t14183 * t1133;
20249   t44831 = t8039 * t44830;
20250   t44833 = t4729 * t3188;
20251   t44834 = t8039 * t44833;
20252   t44836 = t14186 * t1133;
20253   t44837 = t8039 * t44836;
20254   t44839 = t2460 * t5171;
20255   t44847 = t15552 * t793;
20256   t44868 = -0.240e3 * t44826 + 0.2640e4 * t44828 - 0.720e3 * t44831 - 0.720e3 * t44834 - 0.360e3 * t44837 + 0.720e3 * t44839 * t789 + 0.240e3 * t324 * t44537 * t299 - 0.960e3 * t15265 * t820 + t44847 * t820 + t2564 * t15255 + t847 * t44716 / 0.2e1 + 0.144e3 * t31924 * t5176 + 0.288e3 * t31927 * t5176 + 0.288e3 * t10701 * t15192 + 0.288e3 * t10701 * t15196 + 0.144e3 * t25130 * t5176 + 0.288e3 * t8260 * t15192 + 0.288e3 * t8260 * t15196 + 0.144e3 * t2574 * t44743;
20257   t44906 = 0.288e3 * t2574 * t44741 + t42763 * t1166 / 0.2e1 + t14368 * t3260 + t4838 * t9710 / 0.2e1 + t29999 * t1575 / 0.2e1 + 0.144e3 * t2574 * t44739 + 0.288e3 * t29910 * t4729 + 0.288e3 * t9872 * t14183 + 0.144e3 * t9872 * t14186 + 0.288e3 * t8260 * t15223 + 0.288e3 * t2574 * t44747 + 0.144e3 * t2574 * t44745 + 0.288e3 * t42939 * t3195 + 0.288e3 * t14387 * t9572 + 0.144e3 * t14387 * t9575 + 0.240e3 * t9697 * t1619 + 0.480e3 * t3267 * t4871 + 0.240e3 * t1170 * t14355 + 0.240e3 * t2529 * t5293;
20258   t44923 = t5260 * t2479;
20259   t44947 = 0.480e3 * t824 * t15463 - 0.480e3 * t5203 * t2521 - 0.480e3 * t14231 * t1166 - 0.960e3 * t4753 * t3260 - 0.480e3 * t1555 * t9710 - 0.2e1 * t863 * t302 * t44537 + t15475 * t2521 / 0.2e1 + t44923 * t2518 / 0.4e1 + t9773 * t4791 + t3308 * t14262 / 0.2e1 + t8243 * t5193 / 0.2e1 + 0.8e1 * t863 * t4742 * t3188 + t2571 * t44592 / 0.4e1 + 0.720e3 * t5176 * t2467 - t2602 * t44592 - 0.2e1 * t2602 * t44625 - 0.3e1 / 0.2e1 * t2566 * t44592 - 0.3e1 / 0.2e1 * t2566 * t44595 - 0.9e1 / 0.4e1 * t8222 * t44587;
20260   t44987 = t2571 * t44595 / 0.4e1 + t8227 * t44587 / 0.8e1 + t30009 * t14303 / 0.8e1 - 0.3e1 / 0.2e1 * t25159 * t5190 - 0.3e1 * t8249 * t15193 - 0.3e1 * t8249 * t15197 - 0.3e1 / 0.2e1 * t2566 * t44622 - 0.3e1 * t2566 * t44625 - 0.9e1 / 0.4e1 * t42691 * t9682 + t14373 * t9678 / 0.4e1 + t42773 * t9682 / 0.8e1 - 0.3e1 / 0.2e1 * t9775 * t14306 - 0.9e1 / 0.4e1 * t29964 * t14303 + t9745 * t14306 / 0.4e1 + 0.4e1 * t863 * t5363 * t2454 + 0.7e1 * t8255 * t44587 + t8219 * t15193 / 0.2e1 + t8219 * t15197 / 0.2e1 + t2571 * t44622 / 0.4e1;
20261   t45002 = t2460 * t1616;
20262   t45030 = t2571 * t44625 / 0.2e1 - 0.3e1 * t8249 * t15214 + t8219 * t15214 / 0.2e1 + t25186 * t5190 / 0.4e1 + 0.144e3 * t32216 * t1545 + 0.144e3 * t9869 * t5171 + 0.144e3 * t45002 * t1133 - 0.3e1 * t29961 * t4788 + t30006 * t4788 / 0.2e1 - 0.3e1 * t9775 * t14315 + t9745 * t14315 / 0.2e1 - 0.3e1 * t42688 * t3257 + t42768 * t3257 / 0.2e1 - 0.3e1 * t14358 * t9675 + t14373 * t9675 / 0.2e1 + 0.8e1 * t863 * t15349 * t787 - 0.2e1 * t2602 * t44582 + t2571 * t44582 / 0.2e1 + 0.1440e4 * t15196 * t790;
20263   t45061 = t25197 * t1545;
20264   t45073 = 0.1440e4 * t15192 * t790 - 0.3e1 * t2566 * t44582 + t8227 * t4723 * t3257 / 0.4e1 - 0.9e1 / 0.2e1 * t15494 * t9675 + t15497 * t9675 / 0.4e1 + 0.14e2 * t8255 * t3188 * t4788 - t8240 * t3188 * t4788 + 0.14e2 * t15500 * t14315 - t15503 * t14315 - 0.24e2 * t15506 * t44830 - 0.24e2 * t15506 * t44833 - t25112 * t1133 * t14303 / 0.4e1 - 0.12e2 * t15506 * t44836 + t15497 * t9678 / 0.8e1 + t45061 * t9682 / 0.16e2 + 0.7e1 * t15500 * t14306 + 0.15e2 / 0.2e1 * t25156 * t1133 * t14303 - t15503 * t14306 / 0.2e1 + 0.6e1 * t15490 * t9678;
20265   t45075 = t25165 * t1545;
20266   t45080 = t25192 * t1545;
20267   t45107 = t301 * t15573;
20268   t45118 = 0.75e2 / 0.4e1 * t45075 * t9682 - 0.9e1 / 0.4e1 * t15494 * t9678 - 0.9e1 / 0.4e1 * t45080 * t9682 + 0.12e2 * t8252 * t4723 * t3257 + 0.12e2 * t15490 * t9675 + 0.12e2 * t25176 * t1545 * t3257 - t2602 * t44622 + 0.4e1 * t863 * t14211 * t1133 + 0.72e2 * t8263 * t5171 + 0.144e3 * t2577 * t15177 + 0.72e2 * t850 * t44537 + 0.72e2 * t42924 * t1133 + 0.144e3 * t9881 * t4723 + 0.72e2 * t29906 * t1545 + 0.144e3 * t45107 * t787 + 0.144e3 * t14398 * t3188 + 0.72e2 * t4855 * t9549 + 0.72e2 * t15589 * t2454 + 0.72e2 * t3325 * t14162;
20269   t45119 = t5260 * t2472;
20270   t45131 = t863 * t2459;
20271   t45134 = t8039 * t44839;
20272   t45136 = t2571 * t1545;
20273   t45183 = -0.69120e5 * t1569 * t9569 - 0.69120e5 * t1598 * t9572 - 0.34560e5 * t1598 * t9575 + 0.1616580e7 * t1600 * t9572 + 0.808290e6 * t1600 * t9575 - 0.123863040e9 * t1602 * t9572 - 0.61931520e8 * t1602 * t9575 - 0.371589120e9 * t1614 * t9569 - 0.69120e5 * t3195 * t4821 + 0.1616580e7 * t3195 * t4825 - 0.123863040e9 * t3195 * t4829;
20274   t45196 = t348 * t15177;
20275   t45205 = -0.8847360e7 * t15546 * t2454 + 0.323316e6 * t15571 * t787 + 0.3233160e7 * t1571 * t9569 + 0.161658e6 * t2454 * t5286 + 0.768e3 * t301 * t44537 - 0.2880e4 * t319 * t44537 - 0.1105920e7 * t350 * t44537 + 0.26943e5 * t357 * t44537 - 0.17694720e8 * t45196 * t787 - 0.8e1 * t44537 + 0.1536e4 * t44839;
20276   t45229 = -0.11520e5 * t1133 * t14278 + 0.161658e6 * t1133 * t14451 - 0.8847360e7 * t1133 * t42820 - 0.17694720e8 * t14429 * t3188 - 0.23040e5 * t15219 * t787 - 0.11520e5 * t1571 * t9549 + 0.161658e6 * t1614 * t9549 - 0.11520e5 * t2454 * t5182 - 0.23040e5 * t3188 * t4779 + 0.323316e6 * t3188 * t4864 - 0.8847360e7 * t4831 * t9549;
20277   t45249 = 0.1536e4 * t1133 * t14282 + 0.3072e4 * t15225 * t787 + 0.1536e4 * t1569 * t9549 + 0.1536e4 * t2454 * t5178 - 0.34560e5 * t2460 * t5246 + 0.808290e6 * t2460 * t5250 - 0.61931520e8 * t2460 * t5254 + 0.3072e4 * t3188 * t4775 + 0.3072e4 * t44830 + 0.3072e4 * t44833 + 0.1536e4 * t44836;
20278   t45274 = 0.153600e6 * t1133 * t14417 + 0.307200e6 * t15528 * t787 + 0.1843200e7 * t1598 * t9569 + 0.153600e6 * t1600 * t9549 + 0.153600e6 * t2454 * t5250 + 0.614400e6 * t2460 * t5182 + 0.307200e6 * t3188 * t4825 - 0.34560e5 * t44682 - 0.17280e5 * t44684 - 0.34560e5 * t44686 - 0.17280e5 * t44688 - 0.34560e5 * t44690 - 0.34560e5 * t44692 - 0.17280e5 * t44695;
20279   t45293 = 0.1228800e7 * t1571 * t9572 + 0.614400e6 * t1571 * t9575 + 0.1228800e7 * t3195 * t4779 + 0.30720e5 * t346 * t44537 + 0.448e3 * t44735 - 0.5760e4 * t44737 + 0.448e3 * t44739 + 0.896e3 * t44741 + 0.448e3 * t44743 + 0.448e3 * t44745 + 0.896e3 * t44747 - 0.69120e5 * t44750 - 0.69120e5 * t44752 - 0.34560e5 * t44754;
20280   t45297 = t296 * t5288;
20281   t45300 = -0.3e1 / 0.2e1 * t45119 * t2518 - 0.9e1 / 0.2e1 * t25162 * t1545 * t3257 + t25189 * t1545 * t3257 / 0.4e1 - 0.9e1 / 0.2e1 * t8222 * t4723 * t3257 + 0.48e2 * t45131 * t44682 - 0.360e3 * t45134 - 0.30e2 * t45136 * t9682 - 0.48e2 * t25183 * t1133 * t14303 - t2602 * t44595 - t8240 * t44587 / 0.2e1 - 0.3e1 / 0.2e1 * t14358 * t9678 - 0.2880e4 * t5176 * t2465 + 0.6e1 * t8252 * t44587 - 0.12e2 * t863 * t15272 * t2460 + 0.6e1 * t42733 * t9682 + 0.6e1 * t29958 * t14303 + 0.4e1 * t863 * t1550 * t9549 + (t45183 + t45205 + t45229 + t45249) * t304 + 0.24e2 * t344 * (t45274 + t45293) + 0.144e3 * t45297 * t2460;
20282   t45306 = 0.8e1 / 0.7e1 * t44537 * t367 + 0.16e2 / 0.7e1 * t15177 * t867 + 0.8e1 / 0.7e1 * t5171 * t2610 + 0.8e1 / 0.7e1 * t14162 * t1224 + 0.16e2 / 0.7e1 * t4723 * t3353 + 0.8e1 / 0.7e1 * t1545 * t9888 + 0.8e1 / 0.7e1 * t9549 * t1625 + 0.16e2 / 0.7e1 * t3188 * t4883 + 0.8e1 / 0.7e1 * t1133 * t14494 + 0.8e1 / 0.7e1 * t2454 * t5305 + 0.16e2 / 0.7e1 * t787 * t15594 + 0.8e1 / 0.7e1 * t296 * (t44868 + t44906 + t44947 + t44987 + t45030 + t45073 + t45118 + t45300);
20283   t45311 = t14332 * t41;
20284   t45320 = t14239 * t1154;
20285   t45332 = 0.35e2 / 0.81e2 * (t44458 + t44796) * t336 * t340 + 0.35e2 / 0.81e2 * t14328 * t1184 * t340 + 0.26329605555555555556e-1 * t45306 * t41 * t45 * t373 - 0.73104678600823045268e-2 * t45311 * t1192 - 0.14e2 / 0.81e2 * t31846 * t1593 - 0.14e2 / 0.81e2 * t31849 * t1593 + 0.26329605555555555556e-1 * t9892 * t1634 - t45320 * t1122 / 0.5e1 - 0.70212281481481481483e-1 * t2614 * t5222 - 0.48736452400548696845e-1 * t2537 * t1112 * t340 - 0.70212281481481481483e-1 * t14499 * t1232 - 0.10531842222222222222e-1 * t2615 * t5314;
20286   t45355 = t14329 * t41;
20287   t45415 = -t789 * t44537 - 0.24e2 * t44826 + 0.24e2 * t44828 + 0.7e1 * t9602 * t4788 + 0.7e1 * t3211 * t14315 + 0.7e1 / 0.2e1 * t3211 * t14306 + 0.15e2 / 0.4e1 * t9607 * t14303 - t8035 * t3188 * t4788 / 0.2e1 - t15314 * t14306 / 0.4e1 - t15314 * t14315 / 0.2e1 - t24889 * t1133 * t14303 / 0.8e1 - 0.12e2 * t44831 - 0.12e2 * t44834 - 0.6e1 * t44837 - t2459 * t9549 * t1575 / 0.2e1 - t15311 * t4791 - t5350 * t14262 / 0.2e1 + 0.7e1 / 0.2e1 * t2480 * t5193 - 0.6e1 * t45134;
20288   t45459 = t793 * t44537 * t304 / 0.2e1 - 0.4e1 * t9549 * t305 * t1545 - 0.8e1 * t15361 * t4723 - 0.4e1 * t5368 * t14162 - 0.4e1 * t9610 * t5171 - 0.8e1 * t3214 * t15177 - 0.4e1 * t797 * t44537 - t44545 + t42427 * t3257 / 0.4e1 + t14219 * t9675 / 0.4e1 + t14219 * t9678 / 0.8e1 + t42432 * t9682 / 0.16e2 - 0.75e2 / 0.2e1 * t44590 + 0.15e2 / 0.2e1 * t44659 + 0.85e2 / 0.4e1 * t44661 - t44664 - t44669 - t44671 - 0.19e2 / 0.8e1 * t44672;
20289   t45468 = t2479 * t15177;
20290   t45473 = t8068 * t5171;
20291   t45489 = 0.15e2 * t44674 + 0.15e2 * t44676 - 0.2e1 * t44719 - 0.4e1 * t44721 - 0.2e1 * t44723 - 0.4e1 * t44726 - 0.2e1 * t44730 - t44734 + 0.15e2 / 0.2e1 * t44764 + t45468 * t820 / 0.2e1 + t15352 * t2521 / 0.4e1 + t45473 * t2518 / 0.8e1 + t42422 * t1166 / 0.4e1 + t14214 * t3260 / 0.2e1 + t4745 * t9710 / 0.4e1 - t9740 * t1575 - 0.2e1 * t3350 * t4791 - t1221 * t14262 - t2607 * t5193 - 0.2e1 * t864 * t15255;
20292   t45515 = 0.2e1 * t2464 * t44743 + 0.4e1 * t2464 * t44741 + 0.2e1 * t2464 * t44739 - t9562 * t5193 / 0.2e1 - t3192 * t15255 - t9565 * t5193 / 0.4e1 + 0.4e1 * t2464 * t44747 + 0.2e1 * t2464 * t44745 + 0.2e1 * t296 * (t45459 + t45489) + 0.2e1 * t2454 * t5374 + 0.4e1 * t787 * t15373 + 0.4e1 * t3188 * t4755 + 0.2e1 * t1133 * t14233 + 0.2e1 * t9549 * t1557 + 0.2e1 * t1545 * t9622 + 0.2e1 * t5171 * t2491 + 0.2e1 * t14162 * t1145 + 0.4e1 * t4723 * t3222 + 0.2e1 * t44537 * t308 + 0.4e1 * t15177 * t802;
20293   t45519 = -0.8e1 / 0.3e1 * t44537 * t311 - 0.16e2 / 0.3e1 * t15177 * t805 - 0.8e1 / 0.3e1 * t5171 * t2494 - 0.8e1 / 0.3e1 * t14162 * t1148 - 0.16e2 / 0.3e1 * t4723 * t3225 - 0.8e1 / 0.3e1 * t1545 * t9625 - 0.8e1 / 0.3e1 * t9549 * t1560 - 0.16e2 / 0.3e1 * t3188 * t4758 - 0.8e1 / 0.3e1 * t1133 * t14236 - 0.8e1 / 0.3e1 * t2454 * t5377 - 0.16e2 / 0.3e1 * t787 * t15376 - 0.8e1 / 0.3e1 * t296 * (t45415 + t45515);
20294   t45521 = -t9630 * t5165 / 0.5e1 + 0.6e1 / 0.25e2 * t31329 * t5325 + 0.18276169650205761317e-1 * t9720 * t274 * t340 + 0.28084912592592592592e-1 * t2615 * t5336 - 0.10531842222222222222e-1 * t9893 * t1638 - 0.10531842222222222222e-1 * t2615 * t5342 + 0.98e2 / 0.405e3 * t9727 * t5333 - 0.10531842222222222222e-1 * t14499 * t1236 + 0.14744579111111111111e-1 * t2614 * t410 * t5326 - t31334 * t1540 / 0.5e1 - 0.14e2 / 0.81e2 * t45355 * t1192 - 0.14e2 / 0.81e2 * t9727 * t5236 + t45519 * t316;
20295   t45538 = t5114 * t2618 - 0.6e1 * t5116 * t9498 + t1530 * t9900 - 0.6e1 * t3810 * t14143 + 0.54e2 * t44409 * t5124 - 0.6e1 * t1101 * t31306 * t1524 - 0.12e2 * t44415 * t5109 - 0.6e1 * t1101 * t9497 * t5106 + t1097 * t14506 - 0.6e1 * t1101 * t44422 * t1091 + t269 * (t45332 + t45521) + t5395 * t2743 * t428 + t1645 * t10222 * t428 + t14508 * t1315 / 0.10e2 + t9902 * t1664 / 0.10e2 + t10223 * t1664 / 0.10e2 - 0.9e1 / 0.100e3 * t2744 * t5407 + t2744 * t5442 / 0.10e2;
20296   t45544 = t43005 * t15097;
20297   t45546 = t43020 * t5099;
20298   t45562 = 0.4e1 / 0.3e1 * t14520 * t15103;
20299   t45563 = t8549 * t1685;
20300   t45568 = 0.4e1 / 0.3e1 * t43016 * t15093;
20301   t45577 = 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * t45538 - 0.2e1 / 0.9e1 * t42969 - t45544 / 0.6e1 - 0.2e1 / 0.9e1 * t45546 + t14133 * t42281 * t15092 * t767 / 0.3e1 - t44377 * t14134 * t4901 * t9 - t14133 * t15088 * t8603 / 0.6e1 + t44377 * t15088 * t10253 / 0.3e1 - t45562 + t14133 * t45563 * t8655 / 0.9e1 + t45568 - t1352 * t3131 * t5499 * t2406 / 0.6e1 + t14133 * t14134 * t14512 * t1082 / 0.2e1;
20302   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20303     v4rho3sigma[5] = t44402 + t45577;
20304 
20305   t45603 = t1862 * t3684;
20306   t45609 = t478 * t3684;
20307   t45616 = t16012 * t26;
20308   t45628 = t490 * t1943 * t15669;
20309   t45630 = t1372 * t3523;
20310   t45648 = t490 * t1943 * t15673;
20311   t45650 = t1372 * t3528;
20312   t45667 = t41157 + 0.11e2 / 0.4050e4 * t41202 + t41206 / 0.1215e4 - t41146 / 0.405e3 + 0.2e1 / 0.1215e4 * t43105 + t43132 + t43134 - t43092 - t43094 / 0.405e3 + t45628 / 0.1215e4 + 0.11e2 / 0.4050e4 * t5889 * t27833 * t45630 * t506 + 0.7e1 / 0.1215e4 * t5889 * t27904 * t45630 * t454 - t490 * t493 * t41183 * t3523 / 0.405e3 - 0.4e1 / 0.405e3 * t27853 * t8735 * t14583 * t9 - t45648 / 0.1620e4 - 0.11e2 / 0.5400e4 * t5889 * t13511 * t45650 * t506 - t5889 * t8735 * t45650 * t454 / 0.405e3 + t490 * t493 * t13529 * t3528 / 0.540e3 + t490 * t493 * t4346 * t11134 / 0.540e3;
20313   t45668 = my_piecewise3(t76, 0, t45667);
20314   t45694 = t45668 * t86;
20315   t45707 = t4368 * t3539;
20316   t45710 = t4926 * t2810;
20317   t45725 = t14643 * t954;
20318   t45728 = t4368 * t3534;
20319   t45737 = t2930 * t14648 + t2100 * t15832 / 0.2e1 + t598 * t45694 / 0.2e1 + t11465 * t4386 / 0.2e1 + t8906 * t4986 + t14667 * t11265 / 0.4e1 + t43285 * t11256 / 0.16e2 + 0.12e2 * t28206 * t1377 * t2879 + 0.48e2 * t43250 * t45707 - 0.24e2 * t14676 * t45710 - 0.48e2 * t26563 * t519 * t15789 - 0.30e2 * t43257 * t11256 + 0.12e2 * t14661 * t11265 + 0.14e2 * t14670 * t14755 - t26699 * t3539 * t4383 / 0.4e1 - 0.24e2 * t14676 * t45725 - 0.12e2 * t14676 * t45728 - 0.9e1 / 0.2e1 * t28346 * t1377 * t2879 + t28362 * t1377 * t2879 / 0.4e1;
20320   t45759 = t7673 * t3534;
20321   t45762 = t7644 * t3534;
20322   t45772 = t4986 * t2810;
20323   t45777 = t4386 * t3534;
20324   t45780 = t1407 * t11140;
20325   t45783 = 0.12e2 * t7682 * t4919 * t2879 - 0.9e1 / 0.2e1 * t7667 * t4919 * t2879 + 0.6e1 * t14661 * t11270 - 0.9e1 / 0.4e1 * t14664 * t11270 + 0.75e2 / 0.4e1 * t43305 * t11256 - 0.9e1 / 0.2e1 * t14664 * t11265 - 0.9e1 / 0.4e1 * t43270 * t11256 + t7655 * t4919 * t2879 / 0.4e1 + t14667 * t11270 / 0.8e1 + 0.7e1 * t45759 * t4383 - t45762 * t4383 / 0.2e1 + 0.14e2 * t14670 * t14758 - t14673 * t14758 + 0.15e2 / 0.2e1 * t26708 * t3539 * t4383 - t14673 * t14755 - 0.3e1 * t2102 * t45772 - 0.3e1 / 0.2e1 * t7679 * t15786 - 0.3e1 / 0.2e1 * t2102 * t45777 - 0.3e1 / 0.2e1 * t2102 * t45780;
20326   t45787 = t4362 * t3539;
20327   t45788 = t45787 * t86;
20328   t45793 = t14601 * t954;
20329   t45794 = t45793 * t86;
20330   t45799 = t7699 * t45728;
20331   t45801 = t11183 * t4383;
20332   t45803 = t26388 * t45707;
20333   t45805 = t7699 * t45710;
20334   t45807 = t7699 * t45725;
20335   t45825 = -0.9e1 / 0.4e1 * t26577 * t15789 - 0.9e1 / 0.4e1 * t7667 * t45788 + t7664 * t15783 / 0.2e1 + t2107 * t45794 / 0.2e1 + t2107 * t45772 / 0.2e1 - 0.360e3 * t45799 - 0.240e3 * t45801 + 0.2640e4 * t45803 - 0.720e3 * t45805 - 0.720e3 * t45807 + t4447 * t11246 / 0.2e1 + t41791 * t3591 / 0.4e1 + t14609 * t2882 + t13676 * t3594 / 0.2e1 + t43187 * t982 + t33531 * t1407 / 0.2e1 + 0.72e2 * t13704 * t3534 + 0.72e2 * t4464 * t11140 + 0.72e2 * t33555 * t1377;
20336   t45836 = t83 * t15960;
20337   t45863 = t4430 * t3534;
20338   t45865 = t1430 * t11140;
20339   t45867 = t15917 * t519;
20340   t45870 = 0.153600e6 * t11140 * t1432 + 0.1843200e7 * t11157 * t1430 + 0.1228800e7 * t11160 * t1403 + 0.614400e6 * t11165 * t1403 + 0.307200e6 * t14729 * t954 + 0.153600e6 * t15925 * t519 + 0.307200e6 * t2810 * t5020 + 0.1228800e7 * t2817 * t4975 + 0.153600e6 * t3534 * t4434 + 0.614400e6 * t3539 * t4374 - 0.34560e5 * t45707 - 0.17280e5 * t45863 - 0.17280e5 * t45865 - 0.17280e5 * t45867;
20341   t45871 = t4370 * t3539;
20342   t45873 = t14718 * t954;
20343   t45875 = t5016 * t2810;
20344   t45877 = t11140 * t1377;
20345   t45880 = t519 * t15678;
20346   t45882 = t77 * t45668;
20347   t45884 = t128 * t45668;
20348   t45886 = t3534 * t4362;
20349   t45888 = t2810 * t4919;
20350   t45892 = t4971 * t2817;
20351   t45894 = t1401 * t11165;
20352   t45896 = t1401 * t11160;
20353   t45898 = 0.30720e5 * t130 * t45668 + 0.896e3 * t45793 - 0.34560e5 * t45871 - 0.34560e5 * t45873 - 0.34560e5 * t45875 + 0.448e3 * t45877 + 0.448e3 * t45880 + 0.448e3 * t45882 - 0.5760e4 * t45884 + 0.448e3 * t45886 + 0.896e3 * t45888 - 0.69120e5 * t45892 - 0.34560e5 * t45894 - 0.69120e5 * t45896;
20354   t45913 = t132 * t15678;
20355   t45924 = 0.161658e6 * t11140 * t1446 - 0.8847360e7 * t11140 * t4440 - 0.371589120e9 * t11157 * t1446 - 0.8847360e7 * t13648 * t3534 - 0.17694720e8 * t14747 * t2810 + 0.161658e6 * t15958 * t519 + 0.323316e6 * t2810 * t5056 + 0.161658e6 * t3534 * t4473 - 0.17694720e8 * t43470 * t954 - 0.8847360e7 * t45913 * t519 - 0.8e1 * t45668;
20356   t45946 = -0.11520e5 * t11140 * t1403 - 0.23040e5 * t14695 * t954 + 0.323316e6 * t14705 * t954 + 0.1536e4 * t15813 * t519 - 0.11520e5 * t15815 * t519 - 0.23040e5 * t2810 * t4975 - 0.11520e5 * t3534 * t4374 - 0.34560e5 * t3539 * t4430 + 0.808290e6 * t3539 * t4434 - 0.61931520e8 * t3539 * t4438 + 0.3072e4 * t45710;
20357   t45967 = -0.2880e4 * t101 * t45668 + 0.1536e4 * t11140 * t1401 - 0.1105920e7 * t134 * t45668 + 0.26943e5 * t141 * t45668 + 0.3072e4 * t14685 * t954 + 0.3072e4 * t2810 * t4971 + 0.1536e4 * t3534 * t4370 + 0.768e3 * t45668 * t83 + 0.3072e4 * t45725 + 0.1536e4 * t45728 + 0.1536e4 * t45787;
20358   t45990 = -0.69120e5 * t11157 * t1401 + 0.3233160e7 * t11157 * t1403 - 0.69120e5 * t11160 * t1430 + 0.1616580e7 * t11160 * t1432 - 0.123863040e9 * t11160 * t1434 - 0.34560e5 * t11165 * t1430 + 0.808290e6 * t11165 * t1432 - 0.61931520e8 * t11165 * t1434 - 0.69120e5 * t2817 * t5016 + 0.1616580e7 * t2817 * t5020 - 0.123863040e9 * t2817 * t5024;
20359   t46010 = 0.144e3 * t2947 * t14601 + 0.72e2 * t2113 * t15678 + 0.72e2 * t601 * t45668 + 0.144e3 * t43664 * t954 + 0.144e3 * t8960 * t4919 + 0.72e2 * t45836 * t519 + 0.72e2 * t11398 * t4362 + 0.144e3 * t14796 * t2810 + 0.24e2 * t128 * (t45870 + t45898) + (t45924 + t45946 + t45967 + t45990) * t86 + t7664 * t15786 / 0.4e1 + t2107 * t45777 / 0.4e1 + t2107 * t45780 / 0.4e1 + t26687 * t15789 / 0.8e1 + t7655 * t45788 / 0.8e1 - t2138 * t45780 - t2138 * t45777 - 0.2e1 * t2138 * t45772 + t33549 * t4383 / 0.4e1;
20360   t46017 = t15832 * t519;
20361   t46053 = -0.3e1 * t8910 * t14758 + t8901 * t14758 / 0.2e1 - 0.3e1 / 0.2e1 * t2102 * t46017 + t2107 * t46017 / 0.4e1 - 0.12e2 * t614 * t13837 * t3539 + 0.6e1 * t26714 * t15789 + 0.6e1 * t7682 * t45788 + 0.7e1 * t7673 * t45788 - 0.3e1 * t43508 * t2879 + t43235 * t2879 / 0.2e1 - 0.3e1 / 0.2e1 * t13678 * t11270 + t13671 * t11270 / 0.4e1 + t13671 * t11265 / 0.2e1 + t41786 * t11256 / 0.8e1 - 0.3e1 / 0.2e1 * t33489 * t4383 + 0.1440e4 * t4926 * t2820 - 0.2880e4 * t15697 * t527 + 0.4e1 * t614 * t15725 * t519 - t2138 * t46017;
20362   t46096 = 0.6e1 * t41664 * t11256 - 0.3e1 * t13678 * t11265 - 0.9e1 / 0.4e1 * t41667 * t11256 - 0.3e1 * t28349 * t4983 - 0.3e1 * t8910 * t14765 - 0.3e1 * t8910 * t14755 - 0.2e1 * t2138 * t45794 - t7644 * t45788 / 0.2e1 + 0.8e1 * t614 * t15011 * t954 + 0.8e1 * t614 * t4938 * t2810 + 0.1440e4 * t615 * t15783 + 0.4e1 * t614 * t4535 * t3534 + 0.4e1 * t614 * t1382 * t11140 + 0.720e3 * t615 * t15786 + t28367 * t4983 / 0.2e1 + t8901 * t14765 / 0.2e1 + t8901 * t14755 / 0.2e1 - 0.3e1 * t7679 * t15783 - 0.3e1 * t2102 * t45794;
20363   t46098 = t519 * t1448;
20364   t46108 = t7699 * t45787;
20365   t46136 = t15943 * t525;
20366   t46139 = 0.144e3 * t46098 * t3539 + 0.144e3 * t41531 * t3539 + 0.144e3 * t3539 * t608 * t1377 + 0.144e3 * t15885 * t4362 - 0.360e3 * t46108 + 0.288e3 * t8954 * t14634 + 0.288e3 * t8954 * t14637 + 0.288e3 * t11338 * t15700 + 0.288e3 * t7634 * t15700 + 0.288e3 * t2110 * t45793 + 0.288e3 * t2110 * t45888 + 0.144e3 * t11338 * t15703 + 0.144e3 * t7634 * t15703 + 0.144e3 * t2110 * t45886 + 0.144e3 * t2110 * t45877 + 0.288e3 * t19558 * t14637 + 0.288e3 * t35420 * t4926 + 0.288e3 * t28219 * t4926 + t46136 * t557 / 0.2e1;
20367   t46182 = 0.144e3 * t33580 * t4368 + 0.144e3 * t13711 * t11165 + 0.144e3 * t2110 * t45880 + 0.288e3 * t43676 * t2817 + 0.288e3 * t8954 * t14643 - 0.3e1 / 0.2e1 * t41670 * t3591 - 0.960e3 * t14922 * t982 - 0.960e3 * t4949 * t2882 - 0.480e3 * t4396 * t3594 - 0.480e3 * t1387 * t11246 - 0.2e1 * t614 * t84 * t45668 + 0.480e3 * t986 * t14619 + 0.720e3 * t45787 * t521 + 0.240e3 * t561 * t15976 + 0.240e3 * t106 * t45668 * t81 - 0.480e3 * t15744 * t557 + 0.288e3 * t13711 * t11160 + 0.240e3 * t11296 * t1451 + 0.240e3 * t3601 * t4480 + 0.480e3 * t2889 * t5063;
20368   t46188 = 0.8e1 / 0.7e1 * t45668 * t151 + 0.8e1 / 0.7e1 * t15678 * t618 + 0.16e2 / 0.7e1 * t14601 * t1026 + 0.16e2 / 0.7e1 * t4919 * t2975 + 0.8e1 / 0.7e1 * t4362 * t3676 + 0.8e1 / 0.7e1 * t1377 * t11472 + 0.8e1 / 0.7e1 * t11140 * t1457 + 0.8e1 / 0.7e1 * t3534 * t4492 + 0.16e2 / 0.7e1 * t2810 * t5075 + 0.16e2 / 0.7e1 * t954 * t14816 + 0.8e1 / 0.7e1 * t519 * t16000 + 0.8e1 / 0.7e1 * t77 * (t45737 + t45783 + t45825 + t46010 + t46053 + t46096 + t46139 + t46182);
20369   t46201 = t15840 * t41;
20370   t46204 = t15843 * t41;
20371   t46245 = 0.6e1 * t26274 * t15789 + 0.6e1 * t7538 * t45788 - 0.3e1 * t43878 * t2879 + t43915 * t2879 / 0.2e1 - 0.3e1 / 0.2e1 * t13831 * t11270 + t13822 * t11270 / 0.4e1 + t13822 * t11265 / 0.2e1 + t41335 * t11256 / 0.8e1 - 0.3e1 / 0.2e1 * t33973 * t4383 + t33980 * t4383 / 0.4e1 - 0.3e1 * t9094 * t14758 + t9089 * t14758 / 0.2e1 - 0.3e1 / 0.2e1 * t2044 * t46017;
20372   t46272 = t2051 * t46017 / 0.4e1 + 0.6e1 * t41317 * t11256 - 0.3e1 * t13831 * t11265 - 0.9e1 / 0.4e1 * t41340 * t11256 - 0.3e1 * t28047 * t4983 - 0.3e1 * t9094 * t14765 - 0.3e1 * t9094 * t14755 + t28068 * t4983 / 0.2e1 + t9089 * t14765 / 0.2e1 + t9089 * t14755 / 0.2e1 - 0.3e1 * t7535 * t15783 - 0.3e1 * t2044 * t45794 - 0.3e1 * t2044 * t45772;
20373   t46300 = -0.3e1 / 0.2e1 * t7535 * t15786 - 0.3e1 / 0.2e1 * t2044 * t45777 - 0.3e1 / 0.2e1 * t2044 * t45780 - 0.9e1 / 0.4e1 * t26300 * t15789 - 0.9e1 / 0.4e1 * t7505 * t45788 + t7516 * t15783 / 0.2e1 + t2051 * t45794 / 0.2e1 + t2051 * t45772 / 0.2e1 + t7516 * t15786 / 0.4e1 + t2051 * t45777 / 0.4e1 + t2051 * t45780 / 0.4e1 + t26308 * t15789 / 0.8e1 + t7500 * t45788 / 0.8e1;
20374   t46333 = t7500 * t4919 * t2879 / 0.4e1 + t14931 * t11270 / 0.8e1 + t14931 * t11265 / 0.4e1 + t43742 * t11256 / 0.16e2 - 0.30e2 * t43705 * t11256 + 0.12e2 * t14925 * t11265 + 0.12e2 * t28053 * t1377 * t2879 - 0.9e1 / 0.2e1 * t28050 * t1377 * t2879 + t28061 * t1377 * t2879 / 0.4e1 + 0.12e2 * t7538 * t4919 * t2879 - 0.9e1 / 0.2e1 * t7505 * t4919 * t2879 + 0.6e1 * t14925 * t11270 - 0.9e1 / 0.4e1 * t14928 * t11270;
20375   t46344 = t41399 * t3591;
20376   t46346 = t43893 * t982;
20377   t46348 = t14940 * t2882;
20378   t46351 = 0.5e1 / 0.2e1 * t41412 * t3591;
20379   t46352 = t13837 * t3594;
20380   t46354 = t4399 * t11246;
20381   t46356 = t1999 * t15678;
20382   t46357 = t46356 * t557;
20383   t46359 = t4538 * t11256;
20384   t46361 = t13834 * t11265;
20385   t46363 = 0.75e2 / 0.4e1 * t43715 * t11256 - 0.9e1 / 0.2e1 * t14928 * t11265 - 0.9e1 / 0.4e1 * t43728 * t11256 - 0.3e1 / 0.2e1 * t41343 * t3591 + 0.20e2 * t46344 - 0.10e2 * t46346 - 0.10e2 * t46348 - t46351 - 0.5e1 * t46352 - 0.5e1 * t46354 - 0.5e1 * t46357 - 0.100e3 * t46359 + 0.40e2 * t46361;
20386   t46364 = t41402 * t11256;
20387   t46366 = t43873 * t2879;
20388   t46369 = 0.5e1 * t43898 * t2879;
20389   t46371 = 0.5e1 * t13842 * t11265;
20390   t46372 = t41417 * t11256;
20391   t46374 = t13834 * t11270;
20392   t46377 = 0.5e1 / 0.2e1 * t13842 * t11270;
20393   t46378 = 0.768e3 * t45863;
20394   t46379 = 0.768e3 * t45865;
20395   t46380 = 0.768e3 * t45867;
20396   t46381 = 0.1536e4 * t45707;
20397   t46382 = 0.1536e4 * t45871;
20398   t46386 = 0.55e2 / 0.2e1 * t46364 + 0.40e2 * t46366 - t46369 - t46371 - 0.5e1 / 0.4e1 * t46372 + 0.20e2 * t46374 - t46377 + t46378 + t46379 + t46380 + t46381 + t46382 + 0.10e2 * t78 * t45668 * t81;
20399   t46388 = 0.1536e4 * t45873;
20400   t46389 = 0.1536e4 * t45875;
20401   t46391 = t79 * t45668 * t86;
20402   t46399 = 0.3072e4 * t45896;
20403   t46400 = 0.3072e4 * t45892;
20404   t46401 = 0.1536e4 * t45894;
20405   t46402 = 0.256e3 * t45884;
20406   t46403 = 0.40e2 * t45877 + 0.40e2 * t45886 + 0.80e2 * t45888 + 0.80e2 * t45793 + 0.40e2 * t45880 + 0.40e2 * t45882 - t46381 - t46382 - t46399 - t46400 - t46388 - t46389 - t46401 - t46378 - t46379 - t46380 - t46402;
20407   t46414 = t46388 + t46389 - 0.10e2 * t46391 + t46403 * t86 - 0.72e2 * t45877 - 0.144e3 * t45793 - 0.72e2 * t45880 - 0.72e2 * t45882 + t46402 - 0.72e2 * t45886 - 0.144e3 * t45888 + t14870 * t2882 + t13828 * t3594 / 0.2e1;
20408   t46430 = t15817 * t525;
20409   t46433 = t4378 * t11246 / 0.2e1 + t41332 * t3591 / 0.4e1 + t46400 + t46401 + t46399 + t33984 * t1407 / 0.2e1 + t43891 * t982 + t11251 * t4386 / 0.2e1 + t9100 * t4986 + t2874 * t14648 + t2042 * t15832 / 0.2e1 + t556 * t45694 / 0.2e1 + t46430 * t557 / 0.2e1;
20410   t46463 = 0.48e2 * t35182 * t1377 + 0.48e2 * t34001 * t1377 + 0.48e2 * t3539 * t4402 + 0.24e2 * t83 * (t46245 + t46272 + t46300 + t46333 + t46363 + t46386 + t46414 + t46433) + 0.48e2 * t11140 * t109 * t1377 + 0.48e2 * t3534 * t565 * t1377 + 0.48e2 * t15756 * t4362 + 0.96e2 * t2810 * t990 * t1377 + 0.96e2 * t954 * t2894 * t1377 + 0.48e2 * t13795 * t3534 + 0.48e2 * t11239 * t4362 + 0.96e2 * t11226 * t4919 + 0.96e2 * t9084 * t4919 + 0.96e2 * t43935 * t954;
20411   t46474 = t519 * t4998;
20412   t46477 = t77 * t15836;
20413   t46494 = 0.48e2 * t11140 * t4365 + 0.96e2 * t14601 * t2862 + 0.96e2 * t14601 * t4961 + 0.96e2 * t14834 * t4919 + 0.96e2 * t14837 * t4919 + 0.48e2 * t14854 * t3534 + 0.96e2 * t14861 * t2810 + 0.48e2 * t15678 * t2028 + 0.48e2 * t15678 * t2855 + 0.96e2 * t15759 * t4362 + 0.96e2 * t19343 * t2810 + 0.48e2 * t45668 * t547 + 0.96e2 * t46474 * t954 + 0.48e2 * t46477 * t519;
20414   t46502 = 0.26329605555555555556e-1 * t11476 * t1466 + 0.26329605555555555556e-1 * t46188 * t41 * t45 * t157 - 0.10531842222222222222e-1 * t3681 * t4501 - 0.14e2 / 0.81e2 * t33659 * t1425 - 0.14e2 / 0.81e2 * t33124 * t1425 - 0.14e2 / 0.81e2 * t11313 * t4511 - 0.14e2 / 0.81e2 * t46201 * t583 - 0.73104678600823045268e-2 * t46204 * t583 + 0.35e2 / 0.81e2 * t15839 * t575 * t124 + 0.18276169650205761317e-1 * t11306 * t51 * t124 + 0.35e2 / 0.81e2 * (t46463 + t46494) * t120 * t124 - 0.48736452400548696845e-1 * t3609 * t496 * t124;
20415   t46512 = t15752 * t543;
20416   t46568 = t7643 * t3534;
20417   t46585 = 0.7e1 / 0.2e1 * t3556 * t4386 - t1986 * t11140 * t1407 / 0.2e1 - t15691 * t4386 / 0.2e1 - t11154 * t4386 / 0.4e1 - 0.6e1 * t45799 - 0.24e2 * t45801 + 0.7e1 * t2833 * t14755 + 0.15e2 / 0.4e1 * t11197 * t4383 + 0.7e1 / 0.2e1 * t11192 * t4383 - t46568 * t4383 / 0.4e1 - t14978 * t14755 / 0.2e1 - t33687 * t4383 / 0.8e1 + 0.7e1 * t2833 * t14758 - t14978 * t14758 / 0.2e1 + 0.24e2 * t45803 - 0.12e2 * t45805 - 0.12e2 * t45807 - t521 * t45668 + 0.4e1 * t14601 * t966;
20418   t46614 = t2006 * t15678;
20419   t46633 = 0.15e2 / 0.2e1 * t46344 - 0.4e1 * t46346 - 0.4e1 * t46348 - 0.2e1 * t2972 * t4986 - 0.2e1 * t1023 * t14648 - t615 * t15832 + t46614 * t557 / 0.4e1 + t44097 * t982 / 0.2e1 + t15014 * t2882 / 0.2e1 + t13943 * t3594 / 0.4e1 + t4538 * t11246 / 0.4e1 + t41955 * t3591 / 0.8e1 - t11327 * t1407 - t3673 * t4386 - t46351 - 0.2e1 * t46352 - 0.2e1 * t46354 - 0.2e1 * t46357 - 0.75e2 / 0.2e1 * t46359;
20420   t46663 = 0.15e2 * t46361 + 0.85e2 / 0.4e1 * t46364 + 0.15e2 * t46366 - t46369 - t46371 - 0.19e2 / 0.8e1 * t46372 + 0.15e2 / 0.2e1 * t46374 - t46377 + t44102 * t2879 / 0.4e1 + t13948 * t11270 / 0.8e1 + t13948 * t11265 / 0.4e1 + t41975 * t11256 / 0.16e2 - 0.4e1 * t2836 * t15678 - 0.4e1 * t529 * t45668 - t46391 - 0.4e1 * t15734 * t4362 - 0.8e1 * t15023 * t4919 - 0.8e1 * t4943 * t14601 - 0.4e1 * t11140 * t87 * t1377 + t525 * t45668 * t86 / 0.2e1;
20421   t46682 = 0.4e1 * t4919 * t2844 + 0.2e1 * t15678 * t534 + 0.2e1 * t45668 * t90 + 0.2e1 * t3534 * t4546 + 0.2e1 * t4362 * t3567 + 0.2e1 * t1377 * t11211 + 0.4e1 * t2810 * t4951 + 0.4e1 * t954 * t15035 + 0.2e1 * t11140 * t1389 + 0.2e1 * t519 * t15746 + 0.2e1 * t77 * (t46633 + t46663) + 0.2e1 * t1991 * t45886 + 0.2e1 * t1991 * t45877 + 0.2e1 * t1991 * t45880 - t2814 * t15832 / 0.2e1 - t14975 * t4986 - t4923 * t14648 - 0.6e1 * t46108 + 0.4e1 * t1991 * t45793 + 0.4e1 * t1991 * t45888;
20422   t46686 = -0.8e1 / 0.3e1 * t45668 * t93 - 0.8e1 / 0.3e1 * t15678 * t537 - 0.16e2 / 0.3e1 * t14601 * t969 - 0.16e2 / 0.3e1 * t4919 * t2847 - 0.8e1 / 0.3e1 * t4362 * t3570 - 0.8e1 / 0.3e1 * t1377 * t11214 - 0.8e1 / 0.3e1 * t11140 * t1392 - 0.8e1 / 0.3e1 * t3534 * t4549 - 0.16e2 / 0.3e1 * t2810 * t4954 - 0.16e2 / 0.3e1 * t954 * t15038 - 0.8e1 / 0.3e1 * t519 * t15749 - 0.8e1 / 0.3e1 * t77 * (t46585 + t46682);
20423   t46688 = -0.70212281481481481483e-1 * t3680 * t4418 - t33826 * t1372 / 0.5e1 + 0.6e1 / 0.25e2 * t33666 * t4554 + 0.14744579111111111111e-1 * t3680 * t212 * t4559 - t46512 * t506 / 0.5e1 - 0.10531842222222222222e-1 * t3681 * t4566 + 0.98e2 / 0.405e3 * t11313 * t4573 + 0.28084912592592592592e-1 * t3681 * t4562 - 0.10531842222222222222e-1 * t16005 * t630 - 0.10531842222222222222e-1 * t11477 * t1470 - t11219 * t4356 / 0.5e1 - 0.70212281481481481483e-1 * t16005 * t626 + t46686 * t98;
20424   t46705 = t4308 * t3684 - 0.6e1 * t4310 * t11099 + t1362 * t11484 - 0.6e1 * t1855 * t15665 + 0.54e2 * t45603 * t4318 - 0.6e1 * t478 * t33109 * t1356 - 0.12e2 * t45609 * t4303 - 0.6e1 * t478 * t11098 * t4300 + t474 * t16012 - 0.6e1 * t478 * t45616 * t468 + t33 * (t46502 + t46688) + t4596 * t3771 * t230 + t1477 * t11763 * t230 + t16014 * t732 / 0.10e2 + t11486 * t1496 / 0.10e2 + t11764 * t1496 / 0.10e2 - 0.9e1 / 0.100e3 * t3772 * t4608 + t3772 * t4643 / 0.10e2;
20425   t46710 = -t42995 + t14133 * t43037 * t15657 * t455 / 0.3e1 - t40379 / 0.6e1 + t40356 + t14133 * t14539 * t16018 * t455 / 0.2e1 - t14133 * t14523 * t11091 / 0.6e1 - 0.4e1 / 0.3e1 * t43006 - t44377 * t14523 * t11781 / 0.3e1 + t44377 * t14539 * t5093 * t9 + t43008 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * t46705 - t43018;
20426   t46724 = t14520 * t16020;
20427   t46729 = t43016 * t15658;
20428   t46731 = t14520 * t15654;
20429   t46733 = t14520 * t15661;
20430   t46740 = -0.4e1 / 0.9e1 * t43021 - 0.2e1 / 0.9e1 * t40361 + t43035 - t1352 * t2753 * t4700 * t3507 / 0.6e1 - t1352 * t2774 * t4700 * t3516 / 0.2e1 + t14133 * t14539 * t15079 * t944 + t46724 / 0.2e1 + t14133 * t43024 * t11074 / 0.9e1 + 0.4e1 / 0.3e1 * t46729 - 0.2e1 / 0.9e1 * t46731 - 0.2e1 / 0.3e1 * t46733 - t1352 * t2774 * t1517 * t10282 / 0.2e1 + t43049 / 0.3e1;
20431   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20432     v4rho3sigma[6] = t46710 + t46740;
20433 
20434   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20435     v4rho3sigma[7] = 0.0e0;
20436 
20437   t46755 = t3810 * t875;
20438   t46758 = t12312 * t875;
20439   t46771 = t4895 * t3818;
20440   t46777 = -0.6e1 * t1101 * t3160 * t16083 + t3494 * t5442 / 0.5e1 + t15633 * t1315 / 0.5e1 - 0.24e2 * t46755 * t5109 + 0.108e3 * t46758 * t5124 + t934 * t16890 / 0.10e2 + t10774 * t1664 / 0.10e2 + t10776 * t1664 / 0.5e1 - 0.12e2 * t3810 * t15121 - 0.12e2 * t3810 * t15126 + 0.54e2 * t3817 * t46771 * t3794 + 0.324e3 * t15112 * t16251;
20441   t46806 = 0.54e2 * t16173 * t10328 - 0.12e2 * t16110 * t3161 - 0.9e1 / 0.50e2 * t3367 * t5407 - 0.9e1 / 0.50e2 * t3494 * t5407 - 0.6e1 * t1101 * t15125 * t3800 + 0.171e3 / 0.1000e4 * t934 * t16849 + t4897 * t4226 / 0.10e2 + t3367 * t5442 / 0.5e1 - 0.12e2 * t3810 * t15115 - 0.6e1 * t12309 * t4712 - 0.12e2 * t5116 * t10332 - 0.6e1 * t5116 * t10339 - 0.6e1 * t1101 * t37010 * t1524;
20442   t46815 = t4895 * t261;
20443   t46819 = t3817 * t3365;
20444   t46826 = t875 * t3794;
20445   t46830 = t15631 * t262;
20446   t46838 = t12321 * t875;
20447   t46841 = t1101 * t3365;
20448   t46844 = -0.12e2 * t1101 * t10331 * t5106 - 0.9e1 / 0.100e3 * t934 * t16311 - 0.9e1 / 0.50e2 * t934 * t16918 - 0.12e2 * t1101 * t46815 * t3794 + 0.108e3 * t46819 * t5124 - 0.12e2 * t5116 * t10336 + 0.2e1 * t1097 * t15631 - 0.12e2 * t1101 * t46826 * t1524 - 0.12e2 * t1101 * t46830 * t1091 + t16300 * t933 * t428 + t15635 * t1315 / 0.5e1 - 0.648e3 * t46838 * t16238 - 0.24e2 * t46841 * t5109;
20449   t46901 = 0.12e2 / 0.25e2 * t10354 * t16161 + 0.6e1 / 0.25e2 * t10354 * t16164 - 0.66e2 / 0.125e3 * t37717 * t16158 + 0.70e2 / 0.81e2 * t15288 * t1184 * t340 + 0.35e2 / 0.81e2 * t4806 * t3957 * t340 + 0.18276169650205761317e-1 * t10596 * t274 * t340 + 0.12e2 / 0.25e2 * t37720 * t5325 - 0.35386989866666666666e-1 * t15627 * t16766 + 0.29489158222222222222e-1 * t3357 * t410 * t5326 + 0.29489158222222222222e-1 * t15627 * t16776 + 0.14744579111111111111e-1 * t15627 * t16779 - 0.78637755259259259258e-1 * t15627 * t16770 - 0.21063684444444444444e-1 * t15599 * t1236 + 0.56169825185185185185e-1 * t4888 * t3861 - 0.10531842222222222222e-1 * t4888 * t3855;
20450   t46934 = 0.98e2 / 0.405e3 * t3282 * t16785 + 0.196e3 / 0.405e3 * t10600 * t5333 + 0.196e3 / 0.405e3 * t3282 * t16819 + 0.196e3 / 0.405e3 * t10603 * t5333 - 0.14e2 / 0.81e2 * t37065 * t1593 - 0.28e2 / 0.81e2 * t10603 * t5236 - 0.14e2 / 0.81e2 * t3282 * t16353 - 0.14e2 / 0.81e2 * t37873 * t1593 - 0.97472904801097393690e-1 * t3275 * t1112 * t340 + 0.25744503209876543210e0 * t871 * t16324 - 0.14042456296296296297e0 * t3357 * t5222 + 0.17870032546867855510e0 * t831 * t3843 * t340 - 0.10531842222222222222e-1 * t872 * t16797 - 0.10531842222222222222e-1 * t10769 * t1638 - 0.21063684444444444444e-1 * t3358 * t5342;
20451   t46942 = t4761 * t3869;
20452   t46945 = t15379 * t1154;
20453   t46960 = t15606 * t41;
20454   t46967 = t15299 * t41;
20455   t46970 = -0.28e2 / 0.81e2 * t10600 * t5236 + 0.56169825185185185184e-1 * t3358 * t5336 - 0.10297801283950617284e0 * t872 * t16814 + 0.6e1 / 0.25e2 * t46942 * t3837 - 0.2e1 / 0.5e1 * t46945 * t1122 + 0.56169825185185185184e-1 * t872 * t16807 - 0.392e3 / 0.675e3 * t3282 * t16802 + 0.14744579111111111111e-1 * t4888 * t3839 + 0.56169825185185185185e-1 * t872 * t16143 - 0.10531842222222222222e-1 * t872 * t16149 - 0.14e2 / 0.81e2 * t15389 * t4005 + 0.38989161920438957476e-1 * t46960 * t1192 - 0.73104678600823045268e-2 * t15614 * t4005 + 0.26329605555555555556e-1 * t10768 * t1634 - 0.14620935720164609054e-1 * t46967 * t1192;
20456   t46974 = t490 * t3165 * t16390;
20457   t46977 = t490 * t3165 * t16394;
20458   t46980 = t490 * t10366 * t16378;
20459   t46983 = t490 * t10366 * t16382;
20460   t46986 = t490 * t3165 * t16386;
20461   t46989 = t490 * t37138 * t16370;
20462   t46991 = t780 * t16136;
20463   t47005 = t490 * t3165 * t16398;
20464   t47025 = -t46974 / 0.810e3 - t46977 / 0.1620e4 - 0.11e2 / 0.2700e4 * t46980 - 0.11e2 / 0.5400e4 * t46983 + t46986 / 0.1215e4 + 0.77e2 / 0.18000e5 * t46989 + t490 * t1109 * t46991 * t781 / 0.540e3 - t490 * t10384 * t15171 * t9 / 0.135e3 + t490 * t1109 * t4717 * t10419 / 0.540e3 + t47005 / 0.540e3 + 0.11e2 / 0.2025e4 * t5889 * t37089 * t1540 * t10380 + 0.4e1 / 0.405e3 * t27853 * t10378 * t15159 * t9 - 0.2e1 / 0.405e3 * t5889 * t10378 * t5165 * t1127 * t781 - t5889 * t10378 * t1540 * t3900 * t781 / 0.405e3;
20465   t47043 = t12552 * t780;
20466   t47049 = t18405 * t16375;
20467   t47055 = 0.11e2 / 0.1350e4 * t27853 * t15151 * t5325 * t9 - 0.11e2 / 0.2700e4 * t5889 * t15151 * t16161 * t781 - 0.11e2 / 0.5400e4 * t5889 * t15151 * t16164 * t781 + 0.7e1 / 0.1215e4 * t5889 * t31445 * t1540 * t3895 * t781 + 0.77e2 / 0.18000e5 * t5889 * t47043 * t16158 * t781 + t42305 / 0.1215e4 + 0.11e2 / 0.8100e4 * t47049 + t44487 + t44496 + t42303 - 0.2e1 / 0.405e3 * t44515 + 0.2e1 / 0.1215e4 * t44493 + 0.11e2 / 0.2025e4 * t44507 - t44519 + t44525 / 0.405e3;
20468   t47057 = my_piecewise3(t295, 0, t47025 + t47055);
20469   t47086 = t8035 * t3906;
20470   t47097 = t3911 * t4723;
20471   t47098 = t8039 * t47097;
20472   t47114 = t42403 * t10572;
20473   t47117 = 0.5e1 * t14206 * t10575;
20474   t47118 = t42417 * t10572;
20475   t47120 = t44763 * t3257;
20476   t47123 = 0.5e1 * t44732 * t3257;
20477   t47124 = t14200 * t10580;
20478   t47127 = 0.5e1 / 0.2e1 * t14206 * t10580;
20479   t47128 = t14200 * t10575;
20480   t47130 = t4745 * t10572;
20481   t47132 = t42400 * t3977;
20482   t47134 = t2472 * t16403;
20483   t47135 = t47134 * t820;
20484   t47138 = 0.5e1 / 0.2e1 * t42414 * t3977;
20485   t47139 = t44725 * t1166;
20486   t47141 = t2479 * t16403;
20487   t47146 = t45473 * t3257 / 0.4e1 + t14219 * t10580 / 0.8e1 + t14219 * t10575 / 0.4e1 + t42432 * t10572 / 0.16e2 + 0.85e2 / 0.4e1 * t47114 - t47117 - 0.19e2 / 0.8e1 * t47118 + 0.15e2 * t47120 - t47123 + 0.15e2 / 0.2e1 * t47124 - t47127 + 0.15e2 * t47128 - 0.75e2 / 0.2e1 * t47130 + 0.15e2 / 0.2e1 * t47132 - 0.2e1 * t47135 - t47138 - 0.4e1 * t47139 + t47141 * t820 / 0.4e1 + t45468 * t1166 / 0.2e1;
20488   t47161 = t15272 * t3260;
20489   t47163 = t14203 * t3980;
20490   t47165 = t4739 * t10536;
20491   t47185 = t297 * t47057 * t304;
20492   t47186 = t15352 * t3260 / 0.2e1 + t14214 * t3980 / 0.4e1 + t4745 * t10536 / 0.4e1 + t42427 * t3977 / 0.8e1 - t10629 * t1575 - t4068 * t4791 - 0.2e1 * t3350 * t5193 - 0.2e1 * t1221 * t15255 - 0.4e1 * t47161 - 0.2e1 * t47163 - 0.2e1 * t47165 - t16525 * t864 - 0.4e1 * t10425 * t305 * t1545 - 0.4e1 * t16745 * t4723 - 0.8e1 * t15361 * t5171 - 0.8e1 * t5368 * t15177 - 0.4e1 * t3214 * t16403 - 0.4e1 * t797 * t47057 + t793 * t47057 * t304 / 0.2e1 - t47185;
20493   t47202 = 0.7e1 * t3211 * t15197 + 0.15e2 / 0.4e1 * t10482 * t4788 + 0.7e1 / 0.2e1 * t10477 * t4788 - t47086 * t4788 / 0.4e1 - t15314 * t15197 / 0.2e1 - t31500 * t4788 / 0.8e1 + 0.7e1 * t3211 * t15214 - t15314 * t15214 / 0.2e1 - 0.6e1 * t47098 + 0.2e1 * t4723 * t3939 + 0.2e1 * t1545 * t10496 + 0.2e1 * t787 * t16755 + 0.2e1 * t296 * (t47146 + t47186) + 0.2e1 * t47057 * t308 + 0.2e1 * t16403 * t802 + 0.4e1 * t15177 * t1145 + 0.4e1 * t5171 * t3222 + 0.2e1 * t3906 * t4755 + 0.4e1 * t3188 * t5374;
20494   t47209 = t1133 * t15177;
20495   t47212 = t3188 * t5171;
20496   t47215 = t3906 * t4723;
20497   t47218 = t10425 * t1545;
20498   t47221 = t787 * t16403;
20499   t47235 = t5176 * t3188;
20500   t47236 = t8039 * t47235;
20501   t47238 = t8055 * t16415;
20502   t47240 = t8055 * t16423;
20503   t47242 = t37465 * t16419;
20504   t47244 = t4729 * t3911;
20505   t47245 = t24907 * t47244;
20506   t47248 = 0.4e1 * t1133 * t15373 + 0.2e1 * t10425 * t1557 - t15311 * t5193 - t5350 * t15255 + 0.4e1 * t2464 * t47209 + 0.4e1 * t2464 * t47212 + 0.2e1 * t2464 * t47215 + 0.2e1 * t2464 * t47218 + 0.2e1 * t2464 * t47221 - t3192 * t16525 / 0.2e1 + 0.7e1 / 0.2e1 * t3928 * t4791 - t2459 * t10425 * t1575 / 0.2e1 - t16711 * t4791 / 0.2e1 - t10439 * t4791 / 0.4e1 - 0.12e2 * t47236 - 0.6e1 * t47238 - 0.12e2 * t47240 - 0.24e2 * t47242 + 0.24e2 * t47245 - t789 * t47057;
20507   t47252 = -0.8e1 / 0.3e1 * t47057 * t311 - 0.8e1 / 0.3e1 * t16403 * t805 - 0.16e2 / 0.3e1 * t15177 * t1148 - 0.16e2 / 0.3e1 * t5171 * t3225 - 0.8e1 / 0.3e1 * t4723 * t3942 - 0.8e1 / 0.3e1 * t1545 * t10499 - 0.8e1 / 0.3e1 * t10425 * t1560 - 0.8e1 / 0.3e1 * t3906 * t4758 - 0.16e2 / 0.3e1 * t3188 * t5377 - 0.16e2 / 0.3e1 * t1133 * t15376 - 0.8e1 / 0.3e1 * t787 * t16758 - 0.8e1 / 0.3e1 * t296 * (t47202 + t47248);
20508   t47258 = t15289 * t41;
20509   t47279 = t787 * t5208;
20510   t47296 = t296 * t16685;
20511   t47309 = 0.96e2 * t1133 * t1545 * t3272 + 0.96e2 * t1174 * t1545 * t3188 + 0.48e2 * t10425 * t4771 + 0.48e2 * t10529 * t4723 + 0.96e2 * t1133 * t44472 + 0.96e2 * t1133 * t47279 + 0.48e2 * t14257 * t3906 + 0.48e2 * t15180 * t3906 + 0.96e2 * t15187 * t3188 + 0.48e2 * t1545 * t31654 + 0.48e2 * t16403 * t2501 + 0.96e2 * t19981 * t3188 + 0.48e2 * t47057 * t810 + 0.48e2 * t47296 * t787;
20512   t47326 = t47057 * t304;
20513   t47329 = t16659 * t793;
20514   t47334 = 0.55e2 / 0.2e1 * t47114 - t47117 - 0.5e1 / 0.4e1 * t47118 + 0.40e2 * t47120 - t47123 + 0.20e2 * t47124 - t47127 + 0.40e2 * t47128 - 0.100e3 * t47130 + t2515 * t16525 / 0.2e1 + t819 * t47326 / 0.2e1 + t47329 * t820 / 0.2e1 + t14265 * t3980 / 0.2e1;
20515   t47349 = t1569 * t10450;
20516   t47350 = 0.1536e4 * t47349;
20517   t47358 = t4783 * t10536 / 0.2e1 + t42593 * t3977 / 0.4e1 + t31768 * t1575 / 0.2e1 + t10544 * t4791 / 0.2e1 + t9700 * t5193 + t3252 * t15255 + t44769 * t1166 + t15241 * t3260 - 0.3e1 / 0.2e1 * t42579 * t3977 + t47350 + 0.10e2 * t78 * t47057 * t299 + t14269 * t10575 / 0.2e1 + t42598 * t10572 / 0.8e1;
20518   t47374 = t47215 * t304;
20519   t47377 = t47218 * t304;
20520   t47382 = t47097 * t304;
20521   t47388 = -0.3e1 / 0.2e1 * t31784 * t4788 + t31772 * t4788 / 0.4e1 - 0.3e1 * t9713 * t15214 + t9704 * t15214 / 0.2e1 - 0.3e1 * t44766 * t3257 + t44774 * t3257 / 0.2e1 + t8117 * t16415 / 0.4e1 + t2524 * t47374 / 0.4e1 + t2524 * t47377 / 0.4e1 + t25038 * t16419 / 0.8e1 + t8127 * t47382 / 0.8e1 - 0.3e1 / 0.2e1 * t14275 * t10580 + 0.20e2 * t47132;
20522   t47394 = t1569 * t10445;
20523   t47395 = 0.3072e4 * t47394;
20524   t47396 = t5178 * t3195;
20525   t47397 = 0.3072e4 * t47396;
20526   t47406 = t16525 * t787;
20527   t47409 = -0.5e1 * t47135 - t47138 - 0.10e2 * t47139 - 0.10e2 * t47161 - 0.5e1 * t47163 - 0.5e1 * t47165 + t47395 + t47397 + t14269 * t10580 / 0.4e1 - 0.9e1 / 0.4e1 * t42583 * t10572 + 0.6e1 * t25008 * t16419 + 0.6e1 * t8140 * t47382 - 0.3e1 / 0.2e1 * t2517 * t47406;
20528   t47432 = t15255 * t1133;
20529   t47435 = t5193 * t3188;
20530   t47440 = t2524 * t47406 / 0.4e1 + 0.6e1 * t42576 * t10572 - 0.3e1 * t14275 * t10575 - 0.3e1 * t29748 * t5190 - 0.3e1 * t9713 * t15193 - 0.3e1 * t9713 * t15197 + t29734 * t5190 / 0.2e1 + t9704 * t15193 / 0.2e1 + t9704 * t15197 / 0.2e1 - 0.3e1 * t8137 * t16423 - 0.3e1 * t2517 * t47432 - 0.3e1 * t2517 * t47435 - 0.3e1 / 0.2e1 * t8137 * t16415;
20531   t47456 = t16460 * t787;
20532   t47457 = 0.768e3 * t47456;
20533   t47458 = 0.1536e4 * t47244;
20534   t47459 = t4775 * t3911;
20535   t47460 = 0.1536e4 * t47459;
20536   t47461 = t15517 * t1133;
20537   t47462 = 0.1536e4 * t47461;
20538   t47463 = t5246 * t3188;
20539   t47464 = 0.1536e4 * t47463;
20540   t47465 = -0.3e1 / 0.2e1 * t2517 * t47374 - 0.3e1 / 0.2e1 * t2517 * t47377 - 0.9e1 / 0.4e1 * t25018 * t16419 - 0.9e1 / 0.4e1 * t8120 * t47382 + t8117 * t16423 / 0.2e1 + t2524 * t47432 / 0.2e1 + t2524 * t47435 / 0.2e1 - 0.10e2 * t47185 + t47457 + t47458 + t47460 + t47462 + t47464;
20541   t47467 = t4821 * t3906;
20542   t47468 = 0.768e3 * t47467;
20543   t47469 = t1598 * t10425;
20544   t47470 = 0.768e3 * t47469;
20545   t47476 = t296 * t47057;
20546   t47478 = t344 * t47057;
20547   t47479 = 0.256e3 * t47478;
20548   t47480 = 0.40e2 * t47218 + 0.40e2 * t47215 + 0.80e2 * t47212 + 0.80e2 * t47209 + 0.40e2 * t47221 + 0.40e2 * t47476 - t47458 - t47460 - t47395 - t47397 - t47462 - t47464 - t47350 - t47468 - t47470 - t47457 - t47479;
20549   t47505 = t47468 + t47470 + t47480 * t304 + 0.12e2 * t8140 * t5171 * t3257 - 0.9e1 / 0.2e1 * t8120 * t5171 * t3257 + 0.6e1 * t15275 * t10580 + 0.75e2 / 0.4e1 * t44554 * t10572 - 0.9e1 / 0.2e1 * t15278 * t10575 + t8127 * t5171 * t3257 / 0.4e1 - 0.30e2 * t44570 * t10572 + 0.12e2 * t15275 * t10575 + t29739 * t1545 * t3257 / 0.4e1 - 0.72e2 * t47218;
20550   t47527 = -0.72e2 * t47215 - 0.144e3 * t47212 - 0.144e3 * t47209 - 0.72e2 * t47221 - 0.72e2 * t47476 + t47479 + t44564 * t10572 / 0.16e2 + 0.12e2 * t29745 * t1545 * t3257 - 0.9e1 / 0.2e1 * t29751 * t1545 * t3257 - 0.9e1 / 0.4e1 * t15278 * t10580 + t15281 * t10580 / 0.8e1 - 0.9e1 / 0.4e1 * t44559 * t10572 + t15281 * t10575 / 0.4e1;
20551   t47553 = 0.48e2 * t10425 * t327 * t1545 + 0.48e2 * t3906 * t828 * t1545 + 0.48e2 * t16607 * t4723 + 0.24e2 * t301 * (t47334 + t47358 + t47388 + t47409 + t47440 + t47465 + t47505 + t47527) + 0.48e2 * t3911 * t4803 + 0.96e2 * t16610 * t4723 + 0.96e2 * t15129 * t5171 + 0.96e2 * t15132 * t5171 + 0.96e2 * t5146 * t15177 + 0.48e2 * t37557 * t1545 + 0.96e2 * t10516 * t5171 + 0.96e2 * t9649 * t5171 + 0.96e2 * t3240 * t15177 + 0.48e2 * t3233 * t16403;
20552   t47558 = t15296 * t41;
20553   t47624 = -t2602 * t47374 - 0.2e1 * t2602 * t47435 - 0.2e1 * t2602 * t47432 - t8240 * t47382 / 0.2e1 + 0.8e1 * t863 * t15349 * t1133 + 0.8e1 * t863 * t5363 * t3188 + 0.1440e4 * t864 * t16423 + 0.4e1 * t863 * t4742 * t3906 + 0.4e1 * t863 * t1550 * t10425 + 0.720e3 * t864 * t16415 - 0.9e1 / 0.4e1 * t8222 * t47382 + t8219 * t16423 / 0.2e1 + t2571 * t47432 / 0.2e1 + t2571 * t47435 / 0.2e1 + t8219 * t16415 / 0.4e1 + t2571 * t47374 / 0.4e1 + t2571 * t47377 / 0.4e1 + t25189 * t16419 / 0.8e1 + t8227 * t47382 / 0.8e1;
20554   t47659 = -t2602 * t47377 - 0.360e3 * t47098 + 0.144e3 * t31907 * t4729 + 0.288e3 * t9872 * t15223 + 0.144e3 * t2574 * t47221 + 0.288e3 * t45297 * t3195 + 0.144e3 * t14387 * t10450 + t44847 * t1166 + t15475 * t3260 + 0.144e3 * t8260 * t16414 + 0.144e3 * t2574 * t47215 + 0.144e3 * t2574 * t47218 + 0.288e3 * t14387 * t10445 + 0.240e3 * t10589 * t1619 + 0.240e3 * t3987 * t4871 + 0.480e3 * t3267 * t5293 + 0.480e3 * t1170 * t15463 + 0.720e3 * t47097 * t789 + 0.240e3 * t824 * t16540;
20555   t47677 = t787 * t1616;
20556   t47682 = t301 * t16509;
20557   t47703 = 0.240e3 * t324 * t47057 * t299 - 0.960e3 * t15265 * t1166 - 0.960e3 * t5203 * t3260 - 0.480e3 * t4753 * t3980 - 0.480e3 * t1555 * t10536 + 0.144e3 * t3911 * t857 * t1545 + 0.144e3 * t16552 * t4723 + 0.144e3 * t47677 * t3911 + 0.144e3 * t42939 * t3911 + 0.72e2 * t47682 * t787 + 0.72e2 * t31919 * t1545 + 0.72e2 * t10698 * t4723 + 0.144e3 * t9881 * t5171 + 0.288e3 * t29910 * t5176 + 0.288e3 * t9872 * t15192 + 0.288e3 * t9872 * t15196 + 0.288e3 * t10701 * t16489 + 0.288e3 * t8260 * t16489 + 0.288e3 * t2574 * t47209;
20558   t47708 = t16486 * t793;
20559   t47740 = 0.288e3 * t2574 * t47212 + 0.144e3 * t10701 * t16414 + t47708 * t820 / 0.2e1 - 0.2e1 * t863 * t302 * t47057 - 0.480e3 * t800 * t16525 - 0.3e1 / 0.2e1 * t42688 * t3977 - 0.720e3 * t47236 - 0.360e3 * t47238 - 0.720e3 * t47240 - 0.240e3 * t47242 + 0.2640e4 * t47245 + 0.6e1 * t42733 * t10572 - 0.3e1 * t14358 * t10575 - 0.9e1 / 0.4e1 * t42691 * t10572 + 0.6e1 * t25176 * t16419 + 0.6e1 * t8252 * t47382 + 0.7e1 * t8255 * t47382 - 0.12e2 * t863 * t14203 * t3911 - 0.2880e4 * t794 * t16419;
20560   t47781 = 0.4e1 * t863 * t16736 * t787 - t2602 * t47406 - 0.3e1 * t45119 * t3257 + t44923 * t3257 / 0.2e1 - 0.3e1 / 0.2e1 * t14358 * t10580 + t14373 * t10580 / 0.4e1 + t14373 * t10575 / 0.2e1 + t42773 * t10572 / 0.8e1 - 0.3e1 / 0.2e1 * t32113 * t4788 + t32120 * t4788 / 0.4e1 - 0.3e1 * t9775 * t15214 + t9745 * t15214 / 0.2e1 - 0.3e1 / 0.2e1 * t2566 * t47406 + t2571 * t47406 / 0.4e1 + 0.1440e4 * t5176 * t3198 - 0.3e1 * t29961 * t5190 - 0.3e1 * t9775 * t15193 - 0.3e1 * t9775 * t15197 + t30006 * t5190 / 0.2e1;
20561   t47818 = t9745 * t15193 / 0.2e1 + t9745 * t15197 / 0.2e1 - 0.3e1 * t8249 * t16423 - 0.3e1 * t2566 * t47432 - 0.3e1 * t2566 * t47435 - 0.3e1 / 0.2e1 * t8249 * t16415 - 0.3e1 / 0.2e1 * t2566 * t47374 - 0.3e1 / 0.2e1 * t2566 * t47377 - 0.9e1 / 0.4e1 * t25162 * t16419 + t14368 * t3980 / 0.2e1 + t4838 * t10536 / 0.2e1 + t42768 * t3977 / 0.4e1 + t31905 * t1575 / 0.2e1 + t10632 * t4791 / 0.2e1 + t9773 * t5193 + t3308 * t15255 + t2564 * t16525 / 0.2e1 + t847 * t47326 / 0.2e1 + 0.288e3 * t20139 * t15196;
20562   t47860 = 0.153600e6 * t10425 * t1600 + 0.1843200e7 * t10442 * t1598 + 0.1228800e7 * t10445 * t1571 + 0.614400e6 * t10450 * t1571 + 0.307200e6 * t1133 * t15528 + 0.153600e6 * t16468 * t787 + 0.307200e6 * t3188 * t5250 + 0.1228800e7 * t3195 * t5182 + 0.153600e6 * t3906 * t4825 + 0.614400e6 * t3911 * t4779 - 0.34560e5 * t47349 - 0.69120e5 * t47394 - 0.69120e5 * t47396 - 0.17280e5 * t47456;
20563   t47876 = 0.30720e5 * t346 * t47057 + 0.896e3 * t47209 + 0.896e3 * t47212 + 0.448e3 * t47215 + 0.448e3 * t47218 + 0.448e3 * t47221 - 0.34560e5 * t47244 - 0.34560e5 * t47459 - 0.34560e5 * t47461 - 0.34560e5 * t47463 - 0.17280e5 * t47467 - 0.17280e5 * t47469 + 0.448e3 * t47476 - 0.5760e4 * t47478;
20564   t47901 = -0.69120e5 * t10442 * t1569 + 0.3233160e7 * t10442 * t1571 - 0.371589120e9 * t10442 * t1614 - 0.69120e5 * t10445 * t1598 + 0.1616580e7 * t10445 * t1600 - 0.123863040e9 * t10445 * t1602 - 0.34560e5 * t10450 * t1598 + 0.808290e6 * t10450 * t1600 - 0.69120e5 * t3195 * t5246 + 0.1616580e7 * t3195 * t5250 - 0.8e1 * t47057;
20565   t47924 = -0.11520e5 * t10425 * t1571 + 0.161658e6 * t10425 * t1614 - 0.61931520e8 * t10450 * t1602 + 0.323316e6 * t1133 * t15571 - 0.11520e5 * t16499 * t787 - 0.23040e5 * t3188 * t5182 + 0.323316e6 * t3188 * t5286 - 0.123863040e9 * t3195 * t5254 - 0.11520e5 * t3906 * t4779 + 0.161658e6 * t3906 * t4864 + 0.808290e6 * t3911 * t4825;
20566   t47931 = t15223 * t1133;
20567   t47937 = t4729 * t3906;
20568   t47947 = 0.1536e4 * t10425 * t1569 + 0.3072e4 * t1133 * t15225 + 0.1536e4 * t16491 * t787 + 0.161658e6 * t16507 * t787 + 0.3072e4 * t3188 * t5178 + 0.1536e4 * t3906 * t4775 - 0.34560e5 * t3911 * t4821 - 0.61931520e8 * t3911 * t4829 + 0.3072e4 * t47235 + 0.3072e4 * t47931 + 0.1536e4 * t47937;
20569   t47958 = t348 * t16403;
20570   t47970 = -0.8847360e7 * t10425 * t4831 - 0.23040e5 * t1133 * t15219 - 0.17694720e8 * t1133 * t45196 - 0.8847360e7 * t14429 * t3906 - 0.17694720e8 * t15546 * t3188 + 0.768e3 * t301 * t47057 - 0.2880e4 * t319 * t47057 - 0.1105920e7 * t350 * t47057 + 0.26943e5 * t357 * t47057 - 0.8847360e7 * t47958 * t787 + 0.1536e4 * t47097;
20571   t47994 = 0.288e3 * t37327 * t5176 + 0.144e3 * t3325 * t15177 + 0.72e2 * t2577 * t16403 + 0.72e2 * t850 * t47057 + 0.144e3 * t45107 * t1133 + 0.144e3 * t15589 * t3188 + 0.72e2 * t14398 * t3906 + 0.72e2 * t4855 * t10425 + 0.24e2 * t344 * (t47860 + t47876) + (t47901 + t47924 + t47947 + t47970) * t304 + 0.48e2 * t45131 * t47244 - 0.24e2 * t15506 * t47235 - 0.24e2 * t15506 * t47931 - 0.12e2 * t15506 * t47937 - 0.30e2 * t45136 * t10572 + 0.12e2 * t15490 * t10575 - 0.48e2 * t25183 * t3911 * t4788 + 0.14e2 * t15500 * t15197 - t25112 * t3911 * t4788 / 0.4e1;
20572   t48011 = t8255 * t3906;
20573   t48014 = t8240 * t3906;
20574   t48042 = 0.15e2 / 0.2e1 * t25156 * t3911 * t4788 - t15503 * t15197 + 0.12e2 * t29958 * t1545 * t3257 + t8227 * t5171 * t3257 / 0.4e1 + t15497 * t10580 / 0.8e1 + t15497 * t10575 / 0.4e1 + t45061 * t10572 / 0.16e2 + 0.7e1 * t48011 * t4788 - t48014 * t4788 / 0.2e1 + 0.14e2 * t15500 * t15214 - t15503 * t15214 - 0.9e1 / 0.2e1 * t29964 * t1545 * t3257 + t30009 * t1545 * t3257 / 0.4e1 + 0.12e2 * t8252 * t5171 * t3257 - 0.9e1 / 0.2e1 * t8222 * t5171 * t3257 + 0.6e1 * t15490 * t10580 - 0.9e1 / 0.4e1 * t15494 * t10580 + 0.75e2 / 0.4e1 * t45075 * t10572 - 0.9e1 / 0.2e1 * t15494 * t10575 - 0.9e1 / 0.4e1 * t45080 * t10572;
20575   t48048 = 0.8e1 / 0.7e1 * t47057 * t367 + 0.8e1 / 0.7e1 * t16403 * t867 + 0.16e2 / 0.7e1 * t15177 * t1224 + 0.16e2 / 0.7e1 * t5171 * t3353 + 0.8e1 / 0.7e1 * t4723 * t4071 + 0.8e1 / 0.7e1 * t1545 * t10764 + 0.8e1 / 0.7e1 * t10425 * t1625 + 0.8e1 / 0.7e1 * t3906 * t4883 + 0.16e2 / 0.7e1 * t3188 * t5305 + 0.16e2 / 0.7e1 * t1133 * t15594 + 0.8e1 / 0.7e1 * t787 * t16569 + 0.8e1 / 0.7e1 * t296 * (t47624 + t47659 + t47703 + t47740 + t47781 + t47818 + t47994 + t48042);
20576   t48053 = -0.2e1 / 0.5e1 * t10359 * t5165 + t47252 * t316 - t37542 * t1540 / 0.5e1 - t3230 * t16136 / 0.5e1 - 0.28e2 / 0.81e2 * t47258 * t1192 - 0.21063684444444444444e-1 * t3358 * t5314 + 0.98e2 / 0.405e3 * t15389 * t3948 + 0.14744579111111111111e-1 * t872 * t16146 + 0.25744503209876543210e0 * t4888 * t3858 + 0.10234655004115226338e-1 * t15614 * t3948 - 0.28e2 / 0.81e2 * t37866 * t1593 - 0.14042456296296296297e0 * t15599 * t1232 - t15609 * t3853 / 0.5e1 + 0.35e2 / 0.81e2 * (t47309 + t47553) * t336 * t340 - 0.28e2 / 0.81e2 * t47558 * t1192 + 0.26329605555555555556e-1 * t48048 * t41 * t45 * t373;
20577   t48057 = 0.2e1 * t5395 * t3493 * t428 + t1645 * t11056 * t428 + 0.2e1 * t5114 * t3365 + t16267 * t875 + t3808 * t4895 - 0.24e2 * t15118 * t16244 - 0.12e2 * t15118 * t16247 + 0.108e3 * t15112 * t16230 + 0.54e2 * t15112 * t16233 - 0.9e1 / 0.100e3 * t4897 * t4191 + t1530 * t10772 + t11057 * t1664 / 0.10e2 + t269 * (t46901 + t46934 + t46970 + t48053);
20578   t48067 = t14520 * t16025;
20579   t48069 = t14520 * t16948;
20580   t48071 = t14520 * t16032;
20581   t48076 = t14520 * t16029;
20582   t48078 = -t14133 * t15088 * t11793 / 0.6e1 + t14133 * t14134 * t4901 * t3788 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t46777 + t46806 + t46844 + t48057) + t14532 * t2415 * t5499 * t9 - 0.2e1 / 0.9e1 * t48067 - t48069 / 0.2e1 - 0.2e1 / 0.3e1 * t48071 + t42280 + t44383 + t14133 * t45563 * t11789 / 0.9e1 - t44386 - 0.4e1 / 0.3e1 * t48076;
20583   t48106 = -t14133 * t2404 * t5499 * t3134 / 0.3e1 + t14133 * t14134 * t15647 * t1082 + t42975 / 0.6e1 - t44394 / 0.3e1 - t1352 * t2415 * t16947 * t767 / 0.2e1 - 0.2e1 / 0.9e1 * t42972 + t44377 * t15088 * t11801 / 0.3e1 - t1352 * t2415 * t1685 * t11083 / 0.2e1 + 0.4e1 / 0.3e1 * t45544 - 0.4e1 / 0.9e1 * t45546 - t45562 + t45568 + t14133 * t42281 * t4901 * t3779 / 0.6e1;
20584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20585     v4rho3sigma[8] = t48078 + t48106;
20586 
20587   t48135 = my_piecewise3(t76, 0, t41157 + t43105 / 0.405e3 + t45628 / 0.405e3 - t45648 / 0.540e3 + 0.7e1 / 0.1215e4 * t490 * t493 * t41158 * t11872 - t5889 * t8735 * t14583 * t3528 / 0.135e3 + t490 * t493 * t4346 * t11881 / 0.540e3);
20588   t48155 = t4926 * t3534;
20589   t48156 = t7699 * t48155;
20590   t48172 = t13834 * t11964;
20591   t48175 = 0.15e2 / 0.2e1 * t13842 * t11964;
20592   t48181 = t79 * t48135 * t86;
20593   t48196 = 0.3e1 / 0.8e1 * t13948 * t11964 + 0.45e2 / 0.2e1 * t48172 - t48175 - 0.12e2 * t4943 * t15678 - 0.4e1 * t529 * t48135 - t48181 + t525 * t48135 * t86 / 0.2e1 - 0.4e1 * t11887 * t87 * t1377 - 0.12e2 * t15734 * t4919 + 0.3e1 / 0.4e1 * t15014 * t3594 + 0.3e1 / 0.8e1 * t44102 * t3591 + t4538 * t11991 / 0.4e1;
20594   t48204 = t43873 * t3591;
20595   t48206 = t41402 * t11961;
20596   t48208 = t46356 * t982;
20597   t48210 = t14940 * t3594;
20598   t48213 = 0.15e2 / 0.2e1 * t43898 * t3591;
20599   t48214 = t41417 * t11961;
20600   t48216 = t4399 * t11991;
20601   t48220 = t4538 * t11961;
20602   t48222 = t41975 * t11961 / 0.16e2 - t12108 * t1407 - 0.3e1 * t3673 * t4986 - 0.3e1 * t1023 * t15832 + 0.45e2 / 0.2e1 * t48204 + 0.85e2 / 0.4e1 * t48206 - 0.6e1 * t48208 - 0.6e1 * t48210 - t48213 - 0.19e2 / 0.8e1 * t48214 - 0.2e1 * t48216 + 0.3e1 / 0.4e1 * t46614 * t982 - 0.75e2 / 0.2e1 * t48220;
20603   t48228 = -t521 * t48135 + 0.21e2 / 0.2e1 * t2833 * t15786 - 0.3e1 / 0.4e1 * t46568 * t4983 - 0.18e2 * t48156 + 0.2e1 * t1377 * t11939 + 0.2e1 * t11887 * t1389 + 0.6e1 * t3534 * t4951 + 0.2e1 * t48135 * t90 + 0.6e1 * t15678 * t966 + 0.6e1 * t4919 * t3567 + 0.2e1 * t77 * (t48196 + t48222) + 0.6e1 * t954 * t15746;
20604   t48229 = t954 * t15678;
20605   t48232 = t3534 * t4919;
20606   t48235 = t11920 * t1407;
20607   t48237 = t11894 * t1377;
20608   t48238 = t26388 * t48237;
20609   t48240 = t11887 * t1377;
20610   t48258 = t3539 * t4919;
20611   t48259 = t7699 * t48258;
20612   t48261 = 0.6e1 * t1991 * t48229 + 0.6e1 * t1991 * t48232 - 0.24e2 * t48235 + 0.24e2 * t48238 + 0.2e1 * t1991 * t48240 + 0.21e2 / 0.2e1 * t3556 * t4986 + 0.15e2 / 0.4e1 * t11928 * t1407 - t1986 * t11887 * t1407 / 0.2e1 - 0.3e1 / 0.2e1 * t15691 * t4986 - 0.3e1 / 0.4e1 * t11154 * t4986 - t35144 * t1407 / 0.8e1 - 0.3e1 / 0.2e1 * t4923 * t15832 - 0.18e2 * t48259;
20613   t48302 = t1430 * t11887;
20614   t48303 = 0.768e3 * t48302;
20615   t48326 = t15832 * t954;
20616   t48329 = t4986 * t3534;
20617   t48332 = t48303 + 0.10e2 * t78 * t48135 * t81 + 0.60e2 * t48172 - t48175 - 0.9e1 / 0.2e1 * t13831 * t11964 - 0.9e1 / 0.2e1 * t33973 * t4983 - 0.9e1 * t9094 * t15783 - 0.9e1 / 0.2e1 * t9094 * t15786 - 0.27e2 / 0.4e1 * t28050 * t15789 + 0.3e1 / 0.4e1 * t33980 * t4983 + 0.3e1 / 0.2e1 * t9089 * t15783 + 0.3e1 / 0.4e1 * t9089 * t15786 + 0.3e1 / 0.8e1 * t28061 * t15789 - 0.9e1 / 0.2e1 * t2044 * t48326 - 0.9e1 / 0.2e1 * t2044 * t48329;
20618   t48333 = t48258 * t86;
20619   t48338 = t1407 * t11887;
20620   t48341 = t48237 * t86;
20621   t48365 = t4971 * t3539;
20622   t48366 = 0.4608e4 * t48365;
20623   t48367 = -0.27e2 / 0.4e1 * t7505 * t48333 + 0.3e1 / 0.4e1 * t13822 * t11964 - 0.3e1 / 0.2e1 * t2044 * t48338 - 0.9e1 / 0.4e1 * t26284 * t48341 + 0.3e1 / 0.4e1 * t2051 * t48326 + 0.3e1 / 0.4e1 * t2051 * t48329 + 0.3e1 / 0.8e1 * t7500 * t48333 + 0.6e1 * t41317 * t11961 + t2051 * t48338 / 0.4e1 + t26297 * t48341 / 0.16e2 - 0.30e2 * t2051 * t48341 + 0.18e2 * t28053 * t15789 + 0.18e2 * t7538 * t48333 + 0.75e2 / 0.4e1 * t26287 * t48341 - 0.10e2 * t48181 + t48366;
20624   t48369 = t15917 * t954;
20625   t48370 = 0.2304e4 * t48369;
20626   t48371 = t5016 * t3534;
20627   t48372 = 0.2304e4 * t48371;
20628   t48373 = t48135 * t86;
20629   t48392 = t1401 * t11905;
20630   t48393 = 0.4608e4 * t48392;
20631   t48400 = t48370 + t48372 + t556 * t48373 / 0.2e1 + 0.3e1 / 0.2e1 * t46430 * t982 + 0.3e1 / 0.2e1 * t14870 * t3594 + 0.3e1 / 0.4e1 * t43915 * t3591 + t4378 * t11991 / 0.2e1 + t41335 * t11961 / 0.8e1 + t35325 * t1407 / 0.2e1 + 0.3e1 / 0.2e1 * t11251 * t4986 + 0.3e1 / 0.2e1 * t2874 * t15832 + t48393 - 0.9e1 / 0.2e1 * t43878 * t3591 - 0.9e1 / 0.4e1 * t41340 * t11961 + 0.60e2 * t48204 + 0.55e2 / 0.2e1 * t48206;
20632   t48406 = 0.1536e4 * t48237;
20633   t48407 = t128 * t48135;
20634   t48408 = 0.256e3 * t48407;
20635   t48409 = t77 * t48135;
20636   t48415 = 0.40e2 * t48240 + 0.120e3 * t48232 + 0.120e3 * t48229 + 0.40e2 * t48409 - t48406 - t48366 - t48393 - t48370 - t48372 - t48303 - t48408;
20637   t48426 = -0.15e2 * t48208 - 0.15e2 * t48210 - t48213 - 0.5e1 / 0.4e1 * t48214 - 0.5e1 * t48216 - 0.100e3 * t48220 + t48406 + t48408 - 0.72e2 * t48409 + t48415 * t86 - 0.72e2 * t48240 - 0.216e3 * t48232 - 0.216e3 * t48229 + 0.3e1 / 0.8e1 * t14931 * t11964 + 0.18e2 * t14925 * t11964 - 0.27e2 / 0.4e1 * t14928 * t11964;
20638   t48431 = 0.288e3 * t15759 * t4919 + 0.144e3 * t4961 * t15678 + 0.48e2 * t35201 * t1377 + 0.48e2 * t11887 * t109 * t1377 + 0.144e3 * t3534 * t990 * t1377 + 0.144e3 * t15756 * t4919 + 0.144e3 * t954 * t3606 * t1377 + 0.144e3 * t3539 * t4998 + 0.144e3 * t14861 * t3534 + 0.48e2 * t4365 * t11887 + 0.48e2 * t547 * t48135 + 0.144e3 * t19343 * t3534 + 0.144e3 * t46477 * t954 + 0.144e3 * t11239 * t4919 + 0.144e3 * t2862 * t15678 + 0.24e2 * t83 * (t48332 + t48367 + t48400 + t48426);
20639   t48476 = -0.30e2 * t2107 * t48341 - 0.27e2 / 0.4e1 * t28346 * t15789 + 0.18e2 * t7682 * t48333 + 0.75e2 / 0.4e1 * t26580 * t48341 + 0.18e2 * t28206 * t15789 + 0.48e2 * t614 * t13834 * t11894 - t2138 * t48338 - 0.3e1 * t2138 * t48329 - 0.3e1 * t2138 * t48326 - 0.3e1 / 0.2e1 * t7644 * t48333 - t26699 * t48341 / 0.4e1;
20640   t48501 = 0.240e3 * t106 * t48135 * t81 - 0.1440e4 * t15744 * t982 - 0.1440e4 * t4949 * t3594 - 0.480e3 * t1387 * t11991 - 0.2e1 * t614 * t84 * t48135 - 0.9e1 / 0.2e1 * t43508 * t3591 - 0.9e1 / 0.4e1 * t41667 * t11961 + 0.432e3 * t19558 * t15703 + 0.432e3 * t33580 * t4926 + 0.864e3 * t8954 * t15700 + 0.432e3 * t8954 * t15703;
20641   t48525 = 0.432e3 * t11905 * t13711 + 0.6e1 * t11961 * t41664 + 0.18e2 * t11964 * t14661 + 0.240e3 * t11996 * t1451 + 0.720e3 * t15976 * t986 - 0.2880e4 * t1991 * t48237 + 0.432e3 * t2110 * t48229 + 0.432e3 * t2110 * t48232 + 0.144e3 * t2110 * t48240 + 0.2160e4 * t3561 * t4986 + 0.720e3 * t3601 * t5063;
20642   t48550 = -0.27e2 / 0.4e1 * t14664 * t11964 + 0.3e1 / 0.8e1 * t14667 * t11964 + 0.21e2 * t45759 * t4983 - 0.3e1 / 0.2e1 * t45762 * t4983 - 0.36e2 * t14676 * t48155 + t2107 * t48338 / 0.4e1 + 0.3e1 / 0.2e1 * t8901 * t15783 + 0.3e1 / 0.4e1 * t8901 * t15786 + 0.3e1 / 0.8e1 * t28362 * t15789 - 0.9e1 * t8910 * t15783 - 0.9e1 / 0.2e1 * t2102 * t48326 - 0.9e1 / 0.2e1 * t2102 * t48329;
20643   t48575 = -0.27e2 / 0.4e1 * t7667 * t48333 - 0.9e1 / 0.2e1 * t8910 * t15786 + 0.3e1 / 0.4e1 * t13671 * t11964 + 0.3e1 / 0.2e1 * t14609 * t3594 + 0.3e1 / 0.4e1 * t43235 * t3591 + t4447 * t11991 / 0.2e1 + t41786 * t11961 / 0.8e1 + t35396 * t1407 / 0.2e1 + 0.3e1 / 0.2e1 * t11465 * t4986 + 0.3e1 / 0.2e1 * t2930 * t15832 + t598 * t48373 / 0.2e1;
20644   t48599 = 0.3e1 / 0.2e1 * t46136 * t982 - 0.48e2 * t26563 * t48341 - 0.9e1 / 0.2e1 * t13678 * t11964 - 0.9e1 / 0.2e1 * t33489 * t4983 + t26679 * t48341 / 0.16e2 - 0.3e1 / 0.2e1 * t2102 * t48338 - 0.9e1 / 0.4e1 * t26574 * t48341 + 0.3e1 / 0.4e1 * t2107 * t48326 + 0.3e1 / 0.4e1 * t2107 * t48329 + 0.3e1 / 0.8e1 * t7655 * t48333 - 0.1080e4 * t48156 + 0.216e3 * t45836 * t954;
20645   t48626 = 0.432e3 * t1017 * t1377 * t3539 + 0.12e2 * t15725 * t614 * t954 + 0.12e2 * t3534 * t4938 * t614 + 0.216e3 * t11398 * t4919 + 0.72e2 * t11887 * t4464 + 0.72e2 * t1377 * t35451 + 0.216e3 * t14796 * t3534 + 0.216e3 * t15678 * t2947 + 0.432e3 * t15885 * t4919 + 0.432e3 * t3539 * t43676 + 0.72e2 * t48135 * t601;
20646   t48671 = 0.153600e6 * t11887 * t1432 + 0.1843200e7 * t11894 * t1430 + 0.1843200e7 * t11905 * t1403 + 0.30720e5 * t130 * t48135 + 0.460800e6 * t15925 * t954 + 0.460800e6 * t3534 * t5020 + 0.1843200e7 * t3539 * t4975 + 0.1344e4 * t48229 + 0.1344e4 * t48232 - 0.34560e5 * t48237 + 0.448e3 * t48240 - 0.17280e5 * t48302 - 0.103680e6 * t48365 - 0.51840e5 * t48369 - 0.51840e5 * t48371 - 0.103680e6 * t48392 - 0.5760e4 * t48407 + 0.448e3 * t48409;
20647   t48701 = 0.1536e4 * t11887 * t1401 + 0.161658e6 * t11887 * t1446 - 0.8847360e7 * t11887 * t4440 - 0.103680e6 * t11905 * t1430 + 0.2424870e7 * t11905 * t1432 - 0.185794560e9 * t11905 * t1434 - 0.26542080e8 * t14747 * t3534 + 0.4608e4 * t15813 * t954 + 0.484974e6 * t15958 * t954 + 0.4608e4 * t3534 * t4971 + 0.484974e6 * t3534 * t5056 - 0.185794560e9 * t3539 * t5024 - 0.26542080e8 * t45913 * t954 + 0.4608e4 * t48155;
20648   t48728 = -0.2880e4 * t101 * t48135 - 0.11520e5 * t11887 * t1403 - 0.69120e5 * t11894 * t1401 + 0.3233160e7 * t11894 * t1403 - 0.371589120e9 * t11894 * t1446 - 0.1105920e7 * t134 * t48135 + 0.26943e5 * t141 * t48135 - 0.34560e5 * t15815 * t954 - 0.34560e5 * t3534 * t4975 - 0.103680e6 * t3539 * t5016 + 0.2424870e7 * t3539 * t5020 + 0.768e3 * t48135 * t83 - 0.8e1 * t48135 + 0.4608e4 * t48258;
20649   t48731 = 0.4e1 * t614 * t1382 * t11887 + 0.2160e4 * t1023 * t15786 + 0.3e1 / 0.4e1 * t33549 * t4983 + 0.21e2 * t7673 * t48333 + 0.15e2 / 0.2e1 * t26708 * t48341 - 0.36e2 * t614 * t14940 * t3539 - 0.240e3 * t48235 + 0.2640e4 * t48238 + 0.144e3 * t11894 * t1448 - 0.1080e4 * t48259 + 0.24e2 * t128 * t48671 + (t48701 + t48728) * t86;
20650   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20651     v4rho3sigma[9] = 0.3e1 / 0.2e1 * t14133 * t14539 * t5093 * t3516 - t1352 * t2774 * t1517 * t11836 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t1362 * t12121 - 0.6e1 * t478 * t34961 * t1356 + t33 * ((-0.8e1 / 0.3e1 * t48135 * t93 - 0.8e1 * t15678 * t969 - 0.8e1 * t4919 * t3570 - 0.8e1 / 0.3e1 * t1377 * t11942 - 0.8e1 / 0.3e1 * t11887 * t1392 - 0.8e1 * t3534 * t4954 - 0.8e1 * t954 * t15749 - 0.8e1 / 0.3e1 * t77 * (t48228 + t48261)) * t98 - t35169 * t1372 / 0.5e1 + 0.35e2 / 0.81e2 * t48431 * t120 * t124 + 0.18276169650205761317e-1 * t12004 * t51 * t124 - 0.14e2 / 0.81e2 * t35342 * t1425 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t48135 * t151 + 0.24e2 / 0.7e1 * t15678 * t1026 + 0.24e2 / 0.7e1 * t4919 * t3676 + 0.8e1 / 0.7e1 * t1377 * t12113 + 0.8e1 / 0.7e1 * t11887 * t1457 + 0.24e2 / 0.7e1 * t3534 * t5075 + 0.24e2 / 0.7e1 * t954 * t16000 + 0.8e1 / 0.7e1 * t77 * (t48476 + t48501 + t48525 + t48550 + t48575 + t48599 + t48626 + t48731)) * t41 * t45 * t157 + 0.26329605555555555556e-1 * t12117 * t1466 - 0.10531842222222222222e-1 * t12118 * t1470) + t1477 * t12284 * t230 + t12285 * t1496 / 0.10e2) + t1352 * t8635 * t1517 * t11825 / 0.9e1 - 0.2e1 / 0.3e1 * t46731 + 0.3e1 / 0.2e1 * t46724 - 0.2e1 * t46733 + t40356 + t43049 / 0.2e1 - t14133 * t14523 * t11856 / 0.2e1 + t14133 * t43037 * t5093 * t3507 / 0.2e1 + 0.3e1 / 0.2e1 * t14133 * t14539 * t16018 * t944 + 0.4e1 * t46729 - 0.2e1 / 0.3e1 * t43021;
20652 
20653   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20654     v4rho3sigma[10] = 0.0e0;
20655 
20656   t48791 = t16300 * t1291;
20657   t48794 = t16169 * t262;
20658   t48802 = t16219 * t1314;
20659   t48805 = t1680 * t263;
20660   t48811 = t5486 * t261;
20661   t48815 = t1339 * t3794;
20662   t48827 = 0.3e1 / 0.10e2 * t48791 * t1314 - 0.18e2 * t1101 * t48794 * t1091 - 0.36e2 * t5116 * t12456 + 0.324e3 * t16173 * t12452 + 0.513e3 / 0.1000e4 * t12495 * t48802 + 0.324e3 * t3817 * t48805 * t12301 - 0.36e2 * t16110 * t4245 - 0.36e2 * t1101 * t48811 * t3794 - 0.36e2 * t1101 * t48815 * t1524 - 0.18e2 * t3810 * t16115 - 0.36e2 * t3810 * t16102 - 0.6e1 * t38149 * t1670 - 0.18e2 * t12309 * t5456;
20663   t48834 = t5113 * t3816;
20664   t48839 = t1529 * t12320;
20665   t48842 = t38196 * t441;
20666   t48845 = t12312 * t1339;
20667   t48852 = t38183 * t441;
20668   t48855 = t3817 * t4272;
20669   t48860 = -0.18e2 * t12309 * t5462 - 0.18e2 * t12443 * t5116 - 0.6e1 * t12446 * t5116 - 0.648e3 * t12460 * t48839 + 0.162e3 * t12477 * t16173 + 0.324e3 * t16222 * t16230 + 0.162e3 * t16222 * t16233 + 0.324e3 * t16226 * t16230 - 0.1944e4 * t16238 * t48852 + 0.162e3 * t4237 * t48834 + 0.162e3 * t48842 * t5124 + 0.324e3 * t48845 * t5124 + 0.162e3 * t48855 * t5124;
20670   t48864 = t5102 * t3800;
20671   t48868 = t12301 * t1524 * t262;
20672   t48890 = my_piecewise3(t260, -0.3e1 / 0.4e1 * t12294 * t257, 0);
20673   t48908 = -0.146e3 / 0.135e3 * t12412 * t1524 * t424 - 0.146e3 / 0.45e2 * t4207 * t5106 * t424 + 0.292e3 / 0.45e2 * t16073 * t1091 - 0.146e3 / 0.45e2 * t1303 * t16083 * t424 + 0.584e3 / 0.45e2 * t16076 * t1091 + 0.292e3 / 0.45e2 * t5429 * t3800 - 0.146e3 / 0.135e3 * t420 * t48890 * t424 + 0.292e3 / 0.45e2 * t16084 * t1091 + 0.292e3 / 0.45e2 * t5432 * t3800 + 0.292e3 / 0.135e3 * t1658 * t12298 + 0.146e3 / 0.135e3 * t12415 * t1524 + 0.146e3 / 0.45e2 * t4210 * t5106 + 0.146e3 / 0.45e2 * t1306 * t16083 + 0.146e3 / 0.135e3 * t423 * t48890;
20674   t48937 = t45 * t12356;
20675   t48953 = t58 * sigma[2] * t12361;
20676   t48955 = 0.803e3 / 0.7290e4 * t46 * t3843 * t1091 * t424 - 0.73e2 / 0.19440e5 * t46 * t1654 * t12298 - 0.803e3 / 0.7290e4 * t46 * t16042 * t1091 - 0.73e2 / 0.3240e4 * t46 * t5422 * t3800 - 0.73e2 / 0.2430e4 * t46 * t1112 * t3800 * t424 + 0.73e2 / 0.2430e4 * t46 * t5418 * t3800 + 0.73e2 / 0.19440e5 * t46 * t274 * t12298 * t424 - 0.5621e4 / 0.32805e5 * t46 * t12356 * t261 * t424 + 0.22484e5 / 0.98415e5 * t1651 * t48937 - 0.73e2 / 0.14580e5 * t12412 * t41 * t1633 + 0.146e3 / 0.3645e4 * t16046 * t5221 + 0.73e2 / 0.1215e4 * t46 * t1112 * t3794 - 0.1540e4 / 0.81e2 * t409 * t48937 - 0.1606e4 / 0.10935e5 * t5413 * t16052 - 0.31625e5 / 0.59049e5 * t48953;
20677   t48956 = t48908 + t48955;
20678   t48962 = t16824 * t262;
20679   t48966 = t1641 * t12322;
20680   t48977 = t1239 * t3794;
20681   t48983 = t1641 * t263;
20682   t48987 = t16229 * t3800;
20683   t48991 = t12322 * t5106 * t3794;
20684   t48994 = -0.36e2 * t5130 * t48864 + 0.1080e4 * t5122 * t48868 - 0.27e2 / 0.50e2 * t4093 * t5407 + t406 * t1291 * t48956 / 0.10e2 + 0.3e1 * t3808 * t5383 - 0.18e2 * t1101 * t48962 * t1091 - 0.648e3 * t12321 * t48966 * t12301 - 0.6e1 * t1101 * t39364 * t1524 + 0.513e3 / 0.1000e4 * t21496 * t48802 - 0.27e2 / 0.50e2 * t1244 * t16918 - 0.36e2 * t1101 * t48977 * t1524 - 0.36e2 * t3810 * t16827 + 0.324e3 * t3817 * t48983 * t12301 + 0.162e3 * t5122 * t48987 - 0.1944e4 * t16906 * t48991;
20685   t48995 = t5123 * t12298;
20686   t49000 = t5383 * t3818;
20687   t49029 = 0.54e2 * t5122 * t48995 - 0.18e2 * t3810 * t16305 + 0.162e3 * t3817 * t49000 * t3794 + 0.3e1 / 0.10e2 * t4091 * t5442 - 0.6e1 * t1101 * t5137 * t12298 - 0.27e2 / 0.100e3 * t5396 * t4191 - 0.27e2 / 0.100e3 * t5398 * t4191 + 0.162e3 * t12312 * t16922 + 0.3e1 / 0.10e2 * t1285 * t16890 + 0.3e1 / 0.10e2 * t1244 * t16890 + t13101 * t1664 / 0.10e2 + 0.3e1 / 0.10e2 * t12911 * t1664 + 0.3e1 / 0.5e1 * t4093 * t5442 + 0.3e1 / 0.10e2 * t4184 * t5442 + 0.171e3 / 0.1000e4 * t1646 * t12936;
20688   t49034 = t16266 * t1100;
20689   t49061 = t5383 * t261;
20690   t49068 = -0.12e2 * t1101 * t1641 * t12301 - 0.18e2 * t49034 * t1103 - 0.18e2 * t12309 * t5133 - 0.18e2 * t12309 * t5138 - 0.27e2 / 0.100e3 * t4184 * t5407 - 0.36e2 * t16110 * t3828 + 0.513e3 / 0.1000e4 * t406 * t12494 * t5441 * t4190 - 0.27e2 / 0.100e3 * t1646 * t12915 - 0.27e2 / 0.100e3 * t1285 * t16311 + 0.3e1 / 0.10e2 * t5398 * t4226 + 0.3e1 / 0.10e2 * t16928 * t1315 + 0.3e1 / 0.5e1 * t16925 * t1315 - 0.27e2 / 0.100e3 * t4091 * t5407 - 0.36e2 * t1101 * t49061 * t3794 - 0.36e2 * t1101 * t16830 * t5106;
20691   t49081 = t16258 * t1091;
20692   t49085 = t3818 * t16083 * t1091;
20693   t49096 = t12309 * t376;
20694   t49106 = -0.27e2 / 0.50e2 * t1285 * t16918 - 0.36e2 * t3810 * t16854 - 0.36e2 * t3810 * t16835 + 0.3e1 * t16267 * t1239 - 0.27e2 / 0.100e3 * t1244 * t16311 + 0.324e3 * t16898 * t16230 - 0.36e2 * t5130 * t49081 + 0.162e3 * t5122 * t49085 - 0.72e2 * t16870 * t16244 + 0.3e1 / 0.10e2 * t13107 * t1664 + t13110 * t1664 / 0.10e2 + 0.972e3 * t16898 * t16251 - 0.36e2 * t49096 * t5109 + 0.513e3 / 0.1000e4 * t1285 * t16849 + 0.162e3 * t20422 * t12330 - 0.27e2 / 0.100e3 * t406 * t16917 * t4225;
20695   t49123 = t38196 * t376;
20696   t49126 = t12312 * t1239;
20697   t49142 = t3794 * t5106;
20698   t49145 = t5107 * t3800;
20699   t49147 = t1525 * t12298;
20700   t49149 = t262 * t48890;
20701   t49152 = (0.6e1 * t1091 * t16083 + 0.2e1 * t12298 * t1524 + 0.2e1 * t261 * t48890 + 0.6e1 * t3800 * t5106 + 0.54e2 * t48864 + 0.54e2 * t49081 + 0.54e2 * t49142 + 0.54e2 * t49145 + 0.18e2 * t49147 + 0.9e1 * t49149) * t268;
20702   t49158 = t3810 * t1239;
20703   t49161 = 0.513e3 / 0.1000e4 * t1244 * t16849 - 0.36e2 * t16110 * t3824 - 0.18e2 * t5116 * t12502 - 0.6e1 * t5116 * t13123 - 0.648e3 * t48839 * t12919 - 0.18e2 * t16110 * t3831 + 0.972e3 * t16895 * t16251 + 0.162e3 * t49123 * t5124 + 0.324e3 * t49126 * t5124 + 0.324e3 * t16895 * t16230 + 0.3e1 * t5114 * t4079 + t49152 * t376 + 0.3e1 / 0.10e2 * t16862 * t1315 + 0.324e3 * t16173 * t12890 - 0.72e2 * t49158 * t5109;
20704   t49190 = t38258 * t1524 * t12301;
20705   t49216 = t38189 * t1524 * t12301;
20706   t49220 = t263 * t5106 * t3794;
20707   t49225 = 0.36e2 * t1101 * t49081 + 0.36e2 * t1101 * t49145 + 0.12e2 * t1101 * t49147 + 0.36e2 * t12303 * t5116 + 0.36e2 * t12309 * t5109 - 0.324e3 * t12312 * t16230 - 0.162e3 * t12312 * t16233 - 0.972e3 * t12312 * t16251 + 0.1944e4 * t12321 * t48991 + 0.7776e4 * t12321 * t49190 - 0.162e3 * t12330 * t16173 + 0.1944e4 * t16238 * t38183 + 0.72e2 * t16244 * t3810 + 0.36e2 * t16247 * t3810 - 0.1080e4 * t3817 * t48868 - 0.162e3 * t3817 * t49085 - 0.972e3 * t3817 * t49220 - 0.9720e4 * t38188 * t49216 - 0.162e3 * t38196 * t5124;
20708   t49264 = 0.18e2 * t1094 * t49034 + 0.36e2 * t1101 * t48864 + 0.36e2 * t1101 * t49142 + 0.6e1 * t1101 * t49149 + 0.12e2 * t12301 * t5116 + 0.6e1 * t12305 * t5116 + 0.18e2 * t12309 * t5111 + 0.648e3 * t12323 * t48839 - 0.324e3 * t12326 * t16173 + 0.6e1 * t1527 * t38149 + 0.36e2 * t16110 * t3803 + 0.18e2 * t16110 * t3805 + 0.36e2 * t16260 * t3810 + 0.18e2 * t16264 * t3810 + 0.1944e4 * t21285 * t48864 - 0.972e3 * t21288 * t48864 - 0.162e3 * t3817 * t48987 - 0.54e2 * t3817 * t48995 - 0.162e3 * t4083 * t48834 - t49152;
20709   t49265 = t49225 + t49264;
20710   t49276 = t1101 * t4079;
20711   t49285 = -0.36e2 * t5116 * t12896 - 0.36e2 * t20369 * t12303 + 0.162e3 * t20425 * t12330 + 0.3e1 * t5395 * t4183 * t428 + 0.3e1 * t16300 * t1284 * t428 - 0.27e2 / 0.100e3 * t406 * t4189 * t16097 * t1314 - 0.18e2 * t1101 * t16834 * t3800 + t49265 * t405 * t428 - 0.18e2 * t1101 * t3823 * t16083 - 0.18e2 * t3810 * t16857 - 0.6e1 * t1101 * t1102 * t48890 - 0.36e2 * t49276 * t5109 - 0.72e2 * t16875 * t16244 - 0.36e2 * t5130 * t49145 + 0.972e3 * t5122 * t49220;
20712   t49296 = t16250 * t12292;
20713   t49301 = t38188 * t376;
20714   t49321 = -0.36e2 * t16875 * t16247 - 0.36e2 * t16870 * t16247 - 0.12e2 * t5130 * t49147 - 0.9e1 / 0.100e3 * t406 * t5406 * t12437 + 0.972e3 * t5122 * t49296 - 0.7776e4 * t16906 * t49190 + 0.9720e4 * t49301 * t49216 - 0.36e2 * t20419 * t12303 - 0.12e2 * t5116 * t13112 + t1646 * t12931 / 0.10e2 + 0.162e3 * t16173 * t13120 + t12308 * t1641 - 0.36e2 * t3810 * t16831 - 0.4959e4 / 0.10000e5 * t406 * t39325 * t1663 * t12496 + 0.162e3 * t48834 * t3820;
20715   t49329 = t16237 * t12292;
20716   t49332 = t5325 * t3853;
20717   t49340 = t5313 * t12365;
20718   t49349 = t16321 * t41;
20719   t49360 = t3843 * t1190;
20720   t49361 = t49360 * t1122;
20721   t49368 = -0.198e3 / 0.125e3 * t12656 * t49332 + 0.35e2 / 0.27e2 * t5211 * t3957 * t340 - 0.31595526666666666666e-1 * t1229 * t16149 - 0.10531842222222222222e-1 * t372 * t49340 - 0.14e2 / 0.27e2 * t16599 * t4005 - 0.14e2 / 0.27e2 * t16602 * t4005 - 0.14e2 / 0.81e2 * t5317 * t12726 - 0.21444039056241426612e0 * t49349 * t1192 + 0.58483742880658436214e-1 * t16586 * t4005 - 0.73104678600823045268e-2 * t5320 * t12726 - 0.14e2 / 0.81e2 * t38515 * t1593 - 0.21931403580246913581e-1 * t16577 * t4005 - 0.30893403851851851852e0 * t372 * t49361 + 0.16850947555555555555e0 * t1229 * t16143 - 0.21063684444444444445e0 * t4075 * t5222;
20722   t49388 = t5165 * t3853;
20723   t49394 = t1540 * t12365;
20724   t49456 = -t46974 / 0.270e3 - t46977 / 0.540e3 - 0.11e2 / 0.900e3 * t46980 - 0.11e2 / 0.1800e4 * t46983 + t46986 / 0.405e3 + 0.77e2 / 0.6000e4 * t46989 + 0.2387e4 / 0.60000e5 * t490 * t38303 * t1541 * t12349 - 0.77e2 / 0.2000e4 * t490 * t12553 * t5166 * t3837 + 0.11e2 / 0.600e3 * t490 * t3882 * t16398 * t1122 + 0.11e2 / 0.600e3 * t490 * t3882 * t5166 * t3853 + t47005 / 0.180e3 + 0.11e2 / 0.1800e4 * t490 * t3882 * t1541 * t12365 - t490 * t1109 * t44481 * t3895 / 0.135e3 + t490 * t1109 * t46991 * t1127 / 0.180e3 + t490 * t1109 * t15171 * t3900 / 0.180e3;
20725   t49474 = t12552 * t290;
20726   t49497 = -0.68652008559670781891e1 * t46 * t12356 - 0.13326206830489970091e1 * t48953;
20727   t49505 = t490 * t1109 * t4717 * t12543 / 0.540e3 + 0.7e1 / 0.1215e4 * t490 * t1109 * t42313 * t12530 + 0.11e2 / 0.2700e4 * t47049 + 0.11e2 / 0.1350e4 * t5889 * t37089 * t5325 * t3895 + 0.77e2 / 0.6000e4 * t5889 * t47043 * t16158 * t1127 - 0.77e2 / 0.2000e4 * t5889 * t49474 * t49332 - 0.11e2 / 0.900e3 * t5889 * t15151 * t16161 * t1127 - 0.11e2 / 0.1800e4 * t5889 * t15151 * t16164 * t1127 - 0.11e2 / 0.1800e4 * t5889 * t15151 * t5325 * t3900 - t5889 * t10378 * t15159 * t3900 / 0.135e3 - t490 * t1109 * t290 * t49497 / 0.180e3 + t42303 - t44515 / 0.135e3 + t44493 / 0.405e3 + 0.11e2 / 0.1350e4 * t44507;
20728   t49507 = my_piecewise3(t295, 0, t49456 + t49505);
20729   t49525 = t5171 * t3911;
20730   t49526 = t49525 * t304;
20731   t49530 = 0.15e2 / 0.2e1 * t14206 * t12622;
20732   t49531 = t14200 * t12622;
20733   t49533 = t1575 * t12571;
20734   t49536 = t16403 * t1133;
20735   t49537 = t49536 * t304;
20736   t49542 = t1545 * t12578;
20737   t49543 = t49542 * t304;
20738   t49562 = -0.27e2 / 0.4e1 * t8120 * t49526 - t49530 + 0.60e2 * t49531 - 0.3e1 / 0.2e1 * t2517 * t49533 + 0.3e1 / 0.4e1 * t2524 * t49537 + 0.18e2 * t8140 * t49526 + 0.75e2 / 0.4e1 * t25004 * t49543 - 0.30e2 * t2524 * t49543 - 0.9e1 / 0.4e1 * t25041 * t49543 + 0.18e2 * t29745 * t16419 + 0.3e1 / 0.8e1 * t8127 * t49526 + t25024 * t49543 / 0.16e2 - 0.9e1 / 0.2e1 * t9713 * t16415 - 0.27e2 / 0.4e1 * t29751 * t16419 - 0.9e1 / 0.2e1 * t2517 * t49537;
20739   t49563 = t5193 * t3906;
20740   t49586 = t1598 * t12571;
20741   t49587 = 0.768e3 * t49586;
20742   t49588 = t5178 * t3911;
20743   t49589 = 0.4608e4 * t49588;
20744   t49590 = t5246 * t3906;
20745   t49591 = 0.2304e4 * t49590;
20746   t49592 = t16460 * t1133;
20747   t49593 = 0.2304e4 * t49592;
20748   t49594 = t4745 * t12588;
20749   t49596 = -0.9e1 / 0.2e1 * t2517 * t49563 - 0.9e1 / 0.2e1 * t14275 * t12622 + 0.3e1 / 0.4e1 * t14269 * t12622 - 0.9e1 / 0.2e1 * t31784 * t5190 + 0.3e1 / 0.4e1 * t31772 * t5190 - 0.9e1 * t9713 * t16423 + 0.3e1 / 0.2e1 * t9704 * t16423 + 0.3e1 / 0.4e1 * t9704 * t16415 + 0.3e1 / 0.4e1 * t2524 * t49563 + t2524 * t49533 / 0.4e1 + 0.3e1 / 0.8e1 * t29739 * t16419 + t49587 + t49589 + t49591 + t49593 - 0.100e3 * t49594;
20750   t49598 = t42403 * t12588;
20751   t49600 = t44763 * t3977;
20752   t49603 = 0.15e2 / 0.2e1 * t44732 * t3977;
20753   t49604 = t42417 * t12588;
20754   t49606 = t47134 * t1166;
20755   t49608 = t15272 * t3980;
20756   t49610 = t4739 * t12591;
20757   t49618 = t1569 * t12574;
20758   t49619 = 0.4608e4 * t49618;
20759   t49626 = 0.1536e4 * t49542;
20760   t49627 = t12571 * t1545;
20761   t49629 = t3906 * t5171;
20762   t49632 = t296 * t49507;
20763   t49634 = t344 * t49507;
20764   t49635 = 0.256e3 * t49634;
20765   t49636 = 0.40e2 * t49627 + 0.120e3 * t49629 + 0.120e3 * t49536 + 0.40e2 * t49632 - t49626 - t49589 - t49619 - t49593 - t49591 - t49587 - t49635;
20766   t49638 = 0.55e2 / 0.2e1 * t49598 + 0.60e2 * t49600 - t49603 - 0.5e1 / 0.4e1 * t49604 - 0.15e2 * t49606 - 0.15e2 * t49608 - 0.5e1 * t49610 + 0.3e1 / 0.2e1 * t15241 * t3980 + t4783 * t12591 / 0.2e1 + 0.3e1 / 0.2e1 * t47329 * t1166 + t49619 + 0.6e1 * t42576 * t12588 - 0.9e1 / 0.4e1 * t42583 * t12588 - 0.9e1 / 0.2e1 * t44766 * t3977 + t49626 + t49636 * t304;
20767   t49650 = t297 * t49507 * t304;
20768   t49652 = t49507 * t304;
20769   t49668 = -0.72e2 * t49627 - 0.216e3 * t49629 - 0.216e3 * t49536 - 0.72e2 * t49632 + t49635 + 0.18e2 * t15275 * t12622 - 0.27e2 / 0.4e1 * t15278 * t12622 + 0.3e1 / 0.8e1 * t15281 * t12622 - 0.10e2 * t49650 + t819 * t49652 / 0.2e1 + 0.3e1 / 0.2e1 * t10544 * t5193 + 0.3e1 / 0.2e1 * t3252 * t16525 + 0.3e1 / 0.4e1 * t44774 * t3977 + t42598 * t12588 / 0.8e1 + t37603 * t1575 / 0.2e1 + 0.10e2 * t78 * t49507 * t299;
20770   t49673 = 0.48e2 * t4771 * t12571 + 0.144e3 * t3906 * t1174 * t1545 + 0.144e3 * t16607 * t5171 + 0.144e3 * t1133 * t3992 * t1545 + 0.144e3 * t47296 * t1133 + 0.144e3 * t19981 * t3906 + 0.144e3 * t3240 * t16403 + 0.48e2 * t810 * t49507 + 0.144e3 * t10529 * t5171 + 0.144e3 * t5146 * t16403 + 0.48e2 * t37576 * t1545 + 0.288e3 * t16610 * t5171 + 0.144e3 * t15187 * t3906 + 0.48e2 * t12571 * t327 * t1545 + 0.144e3 * t3911 * t5208 + 0.24e2 * t301 * (t49562 + t49596 + t49638 + t49668);
20771   t49683 = 0.196e3 / 0.135e3 * t12847 * t5333 + 0.98e2 / 0.135e3 * t12853 * t5333 + 0.30703965012345679014e-1 * t5320 * t12862 + 0.98e2 / 0.135e3 * t5317 * t12862 + 0.44233737333333333333e-1 * t372 * t12883 + 0.44233737333333333333e-1 * t5310 * t3839 - 0.30893403851851851851e0 * t372 * t3844 * t5341 - 0.10531842222222222222e-1 * t1630 * t12873 + 0.84254737777777777776e-1 * t4076 * t5336 + 0.98e2 / 0.135e3 * t1188 * t3947 * t49388 + 0.98e2 / 0.135e3 * t3999 * t16785 + 0.98e2 / 0.405e3 * t1188 * t3947 * t49394 - 0.10616096960000000000e0 * t5323 * t16765 * t49332 + 0.35e2 / 0.81e2 * t49673 * t336 * t340 + 0.35e2 / 0.81e2 * t1586 * t12642 * t340 + 0.18276169650205761317e-1 * t12631 * t274 * t340;
20772   t49724 = -0.9e1 / 0.4e1 * t25192 * t49543 + 0.3e1 / 0.4e1 * t2571 * t49537 + 0.3e1 / 0.4e1 * t2571 * t49563 + 0.3e1 / 0.8e1 * t8227 * t49526 + 0.18e2 * t8252 * t49526 + 0.75e2 / 0.4e1 * t25165 * t49543 + 0.21e2 * t8255 * t49526 + 0.15e2 / 0.2e1 * t25156 * t49543 - 0.36e2 * t863 * t15272 * t3911 + 0.18e2 * t29958 * t16419 - 0.9e1 / 0.2e1 * t2566 * t49563;
20773   t49750 = -0.27e2 / 0.4e1 * t8222 * t49526 - 0.3e1 / 0.2e1 * t2566 * t49533 + 0.3e1 / 0.2e1 * t47708 * t1166 - 0.2e1 * t863 * t302 * t49507 - 0.2880e4 * t793 * t12578 * t1575 + 0.720e3 * t1170 * t16540 + 0.240e3 * t324 * t49507 * t299 + t42773 * t12588 / 0.8e1 + t37409 * t1575 / 0.2e1 - 0.9e1 / 0.4e1 * t42691 * t12588 + t847 * t49652 / 0.2e1;
20774   t49766 = t5176 * t3906;
20775   t49775 = t4838 * t12591 / 0.2e1 - 0.1440e4 * t1143 * t16525 + 0.18e2 * t15490 * t12622 - 0.27e2 / 0.4e1 * t15494 * t12622 + 0.3e1 / 0.8e1 * t15497 * t12622 + 0.21e2 * t48011 * t5190 - 0.3e1 / 0.2e1 * t48014 * t5190 - 0.36e2 * t15506 * t49766 - 0.9e1 / 0.2e1 * t14358 * t12622 - 0.9e1 / 0.2e1 * t32113 * t5190 - 0.9e1 * t9775 * t16423;
20776   t49799 = t3205 * t16415;
20777   t49801 = -0.9e1 / 0.2e1 * t9775 * t16415 - 0.27e2 / 0.4e1 * t29964 * t16419 + 0.3e1 / 0.4e1 * t32120 * t5190 + 0.3e1 / 0.2e1 * t9745 * t16423 + 0.3e1 / 0.4e1 * t9745 * t16415 + 0.3e1 / 0.8e1 * t30009 * t16419 - 0.9e1 / 0.2e1 * t2566 * t49537 + 0.3e1 / 0.4e1 * t14373 * t12622 - 0.30e2 * t2571 * t49543 - 0.48e2 * t25183 * t49543 + 0.48e2 * t863 * t14200 * t12578 - 0.1080e4 * t49799;
20778   t49828 = 0.12e2 * t863 * t16736 * t1133 + 0.12e2 * t863 * t5363 * t3906 + 0.4e1 * t863 * t1550 * t12571 + 0.2160e4 * t1221 * t16415 + t2571 * t49533 / 0.4e1 + t25197 * t49543 / 0.16e2 - t2602 * t49533 - 0.3e1 * t2602 * t49563 - 0.3e1 * t2602 * t49537 - 0.3e1 / 0.2e1 * t8240 * t49526 - t25112 * t49543 / 0.4e1;
20779   t49856 = 0.460800e6 * t1133 * t16468 + 0.153600e6 * t12571 * t1600 + 0.1843200e7 * t12574 * t1571 + 0.1843200e7 * t12578 * t1598 + 0.30720e5 * t346 * t49507 + 0.460800e6 * t3906 * t5250 + 0.1843200e7 * t3911 * t5182 + 0.1344e4 * t49536 - 0.34560e5 * t49542 - 0.17280e5 * t49586 - 0.103680e6 * t49588 - 0.51840e5 * t49590 - 0.51840e5 * t49592 - 0.103680e6 * t49618 + 0.448e3 * t49627 + 0.1344e4 * t49629 + 0.448e3 * t49632 - 0.5760e4 * t49634;
20780   t49885 = 0.4608e4 * t1133 * t16491 - 0.34560e5 * t1133 * t16499 - 0.11520e5 * t12571 * t1571 - 0.103680e6 * t12574 * t1598 + 0.2424870e7 * t12574 * t1600 - 0.185794560e9 * t12574 * t1602 + 0.768e3 * t301 * t49507 - 0.2880e4 * t319 * t49507 - 0.1105920e7 * t350 * t49507 + 0.26943e5 * t357 * t49507 - 0.34560e5 * t3906 * t5182 - 0.103680e6 * t3911 * t5246 - 0.8e1 * t49507 + 0.4608e4 * t49525;
20781   t49913 = 0.484974e6 * t1133 * t16507 - 0.26542080e8 * t1133 * t47958 + 0.1536e4 * t12571 * t1569 + 0.161658e6 * t12571 * t1614 - 0.8847360e7 * t12571 * t4831 - 0.69120e5 * t12578 * t1569 + 0.3233160e7 * t12578 * t1571 - 0.371589120e9 * t12578 * t1614 - 0.26542080e8 * t15546 * t3906 + 0.4608e4 * t3906 * t5178 + 0.484974e6 * t3906 * t5286 + 0.2424870e7 * t3911 * t5250 - 0.185794560e9 * t3911 * t5254 + 0.4608e4 * t49766;
20782   t49935 = 0.144e3 * t12578 * t1616 + 0.24e2 * t344 * t49856 + (t49885 + t49913) * t304 + 0.216e3 * t47682 * t1133 + 0.432e3 * t45297 * t3911 + 0.432e3 * t3911 * t1215 * t1545 + 0.432e3 * t16552 * t5171 + 0.6e1 * t42733 * t12588 + 0.432e3 * t14387 * t12574 + 0.240e3 * t12609 * t1619 + 0.720e3 * t3987 * t5293 + 0.3e1 / 0.2e1 * t3308 * t16525;
20783   t49959 = 0.144e3 * t2574 * t49627 + 0.864e3 * t9872 * t16489 + 0.432e3 * t9872 * t16414 + 0.432e3 * t2574 * t49536 + 0.432e3 * t2574 * t49629 + 0.432e3 * t20139 * t16414 + 0.432e3 * t31907 * t5176 + 0.2160e4 * t3933 * t5193 + 0.3e1 / 0.2e1 * t10632 * t5193 - 0.1440e4 * t5203 * t3980 - 0.480e3 * t1555 * t12591;
20784   t49966 = t24907 * t49542;
20785   t49968 = t3922 * t5193;
20786   t49970 = t12615 * t1575;
20787   t49984 = 0.3e1 / 0.2e1 * t15475 * t3980 + 0.3e1 / 0.4e1 * t44923 * t3977 - 0.9e1 / 0.2e1 * t45119 * t3977 + 0.2640e4 * t49966 - 0.1080e4 * t49968 - 0.240e3 * t49970 + 0.72e2 * t4855 * t12571 + 0.216e3 * t15589 * t3906 + 0.216e3 * t3325 * t16403 + 0.72e2 * t850 * t49507 + 0.216e3 * t10698 * t5171 + 0.72e2 * t37345 * t1545;
20788   t50006 = t16337 * t41;
20789   t50009 = t16340 * t41;
20790   t50014 = t1112 * t12388;
20791   t50018 = t274 * t38539;
20792   t50019 = t1540 * t12349;
20793   t50025 = t16765 * t12349;
20794   t50030 = t16769 * t3837;
20795   t50033 = 0.26329605555555555556e-1 * t12839 * t1634 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t49507 * t367 + 0.24e2 / 0.7e1 * t16403 * t1224 + 0.24e2 / 0.7e1 * t5171 * t4071 + 0.8e1 / 0.7e1 * t1545 * t12835 + 0.8e1 / 0.7e1 * t12571 * t1625 + 0.24e2 / 0.7e1 * t3906 * t5305 + 0.24e2 / 0.7e1 * t1133 * t16569 + 0.8e1 / 0.7e1 * t296 * (t49724 + t49750 + t49775 + t49801 + t49828 + t49935 + t49959 + t49984)) * t41 * t45 * t373 - 0.14620935720164609054e0 * t3995 * t1112 * t340 - 0.81877240032921810701e-1 * t16586 * t3948 + 0.98e2 / 0.135e3 * t16599 * t3948 + 0.98e2 / 0.135e3 * t16602 * t3948 - 0.12014101497942386831e1 * t1630 * t12723 - 0.28e2 / 0.27e2 * t50006 * t1192 - 0.14e2 / 0.27e2 * t50009 * t1192 + 0.44233737333333333333e-1 * t19952 * t12883 + 0.28309591893333333333e0 * t5323 * t50014 * t16158 + 0.12031576554666666666e0 * t5323 * t50018 * t50019 - 0.392e3 / 0.675e3 * t5317 * t12720 - 0.35386989866666666666e-1 * t372 * t50025 + 0.44233737333333333333e-1 * t1229 * t16146 - 0.11795663288888888889e0 * t372 * t50030;
20796   t50068 = -0.24563172009876543211e-1 * t5320 * t12720 - 0.14e2 / 0.27e2 * t38526 * t1593 - 0.31595526666666666666e-1 * t4076 * t5314 - 0.14e2 / 0.27e2 * t12853 * t5236 - 0.28e2 / 0.27e2 * t12847 * t5236 - 0.14e2 / 0.27e2 * t3999 * t16353 - 0.14e2 / 0.27e2 * t38529 * t1593 - 0.14e2 / 0.81e2 * t38547 * t1593 - 0.14e2 / 0.27e2 * t12850 * t5236 - 0.14e2 / 0.27e2 * t4002 * t16353 + 0.16850947555555555555e0 * t5310 * t3861 - 0.30893403851851851851e0 * t1229 * t16814 + 0.16850947555555555555e0 * t1229 * t16807 + 0.84254737777777777776e-1 * t372 * t1113 * t16796 + 0.48056405991769547325e0 * t372 * t12357 * t1637 - 0.31595526666666666666e-1 * t4076 * t5342;
20797   t50077 = t5165 * t3837;
20798   t50100 = t16761 * t1154;
20799   t50109 = t1563 * t12348;
20800   t50112 = -0.31595526666666666666e-1 * t1229 * t16797 - 0.10531842222222222222e-1 * t372 * t275 * t1190 * t49497 - 0.392e3 / 0.225e3 * t1188 * t12719 * t50077 - 0.392e3 / 0.225e3 * t4002 * t16802 - 0.392e3 / 0.225e3 * t3999 * t16802 + 0.84254737777777777777e-1 * t1630 * t12880 - 0.83393485218716659047e0 * t330 * t12356 * t340 - 0.12014101497942386831e1 * t371 * t48937 * t339 + 0.35e2 / 0.27e2 * t16688 * t1184 * t340 - 0.3e1 / 0.5e1 * t16362 * t3853 - 0.21063684444444444445e0 * t16574 * t1232 - 0.3e1 / 0.5e1 * t50100 * t1122 - 0.3e1 / 0.5e1 * t12646 * t5165 - 0.3e1 / 0.5e1 * t3875 * t16136 - t1155 * t49497 / 0.5e1 - 0.66e2 / 0.125e3 * t50109 * t12349;
20801   t50130 = t337 * t46;
20802   t50131 = t12388 * t1540;
20803   t50138 = t16136 * t1122;
20804   t50158 = -0.10616096960000000000e0 * t16773 * t16766 - 0.23591326577777777778e0 * t5323 * t16769 * t16161 - 0.11795663288888888889e0 * t5323 * t16769 * t16164 + 0.44233737333333333333e-1 * t4075 * t410 * t5326 + 0.43250765392592592593e0 * t5323 * t3843 * t3836 * t5325 - 0.23591326577777777778e0 * t16773 * t16770 - 0.392e3 / 0.225e3 * t50130 * t50131 * t12392 + 0.14744579111111111111e-1 * t5323 * t5324 * t49394 + 0.44233737333333333333e-1 * t5323 * t5324 * t50138 + 0.44233737333333333333e-1 * t5323 * t5324 * t49388 - 0.31595526666666666666e-1 * t16574 * t1236 - 0.11795663288888888889e0 * t1630 * t12708 - 0.35386989866666666666e-1 * t1630 * t12712 + 0.98e2 / 0.135e3 * t1188 * t3947 * t50138 - 0.30893403851851851852e0 * t1630 * t12867 + 0.36e2 / 0.25e2 * t12649 * t16161;
20805   t50164 = t16689 * t41;
20806   t50167 = t16343 * t41;
20807   t50170 = t16142 * t3853;
20808   t50224 = 0.3e1 / 0.8e1 * t14219 * t12622 - t49530 + 0.45e2 / 0.2e1 * t49531 - 0.75e2 / 0.2e1 * t49594 + 0.85e2 / 0.4e1 * t49598 + 0.45e2 / 0.2e1 * t49600 - t49603 + 0.3e1 / 0.4e1 * t47141 * t1166 + 0.3e1 / 0.4e1 * t15352 * t3980 + 0.3e1 / 0.8e1 * t45473 * t3977 + t4745 * t12591 / 0.4e1 + t42432 * t12588 / 0.16e2;
20809   t50246 = -t12810 * t1575 - 0.3e1 * t4068 * t5193 - 0.3e1 * t1221 * t16525 - 0.19e2 / 0.8e1 * t49604 - 0.6e1 * t49606 - 0.6e1 * t49608 - 0.2e1 * t49610 - t49650 + t793 * t49507 * t304 / 0.2e1 - 0.4e1 * t12571 * t305 * t1545 - 0.12e2 * t16745 * t5171 - 0.12e2 * t5368 * t16403 - 0.4e1 * t797 * t49507;
20810   t50251 = -0.18e2 * t49799 + 0.21e2 / 0.2e1 * t3211 * t16415 - 0.3e1 / 0.4e1 * t47086 * t5190 + 0.2e1 * t1545 * t12700 + 0.2e1 * t49507 * t308 + 0.6e1 * t16403 * t1145 + 0.6e1 * t3906 * t5374 + 0.2e1 * t12571 * t1557 + 0.6e1 * t5171 * t3939 + 0.6e1 * t1133 * t16755 + 0.2e1 * t296 * (t50224 + t50246) - t789 * t49507;
20811   t50276 = -0.3e1 / 0.4e1 * t10439 * t5193 - t37816 * t1575 / 0.8e1 - 0.3e1 / 0.2e1 * t5350 * t16525 + 0.21e2 / 0.2e1 * t3928 * t5193 + 0.15e2 / 0.4e1 * t12691 * t1575 - t2459 * t12571 * t1575 / 0.2e1 + 0.24e2 * t49966 - 0.18e2 * t49968 - 0.24e2 * t49970 + 0.2e1 * t2464 * t49627 + 0.6e1 * t2464 * t49536 + 0.6e1 * t2464 * t49629 - 0.3e1 / 0.2e1 * t16711 * t5193;
20812   t50282 = t5380 * t3869;
20813   t50302 = 0.18e2 / 0.25e2 * t12649 * t16164 + 0.18e2 / 0.25e2 * t16692 * t12392 - 0.14e2 / 0.27e2 * t50164 * t1192 - 0.21931403580246913581e-1 * t50167 * t1192 + 0.84254737777777777777e-1 * t372 * t50170 - 0.198e3 / 0.125e3 * t38569 * t16158 + (-0.8e1 / 0.3e1 * t49507 * t311 - 0.8e1 * t16403 * t1148 - 0.8e1 * t5171 * t3942 - 0.8e1 / 0.3e1 * t1545 * t12703 - 0.8e1 / 0.3e1 * t12571 * t1560 - 0.8e1 * t3906 * t5377 - 0.8e1 * t1133 * t16758 - 0.8e1 / 0.3e1 * t296 * (t50251 + t50276)) * t316 + 0.18e2 / 0.25e2 * t50282 * t3837 - t38558 * t1540 / 0.5e1 - t5227 * t12365 / 0.5e1 + 0.1056e4 / 0.625e3 * t38856 * t50019 - 0.31595526666666666666e-1 * t5310 * t3855 + 0.98e2 / 0.135e3 * t12850 * t5333 + 0.196e3 / 0.135e3 * t4002 * t16819 + 0.196e3 / 0.135e3 * t3999 * t16819 + 0.6664e4 / 0.3375e4 * t1188 * t38540 * t50019;
20814   t50314 = t16318 * t41;
20815   t50339 = 0.98e2 / 0.135e3 * t4002 * t16785 + 0.88467474666666666666e-1 * t16773 * t16776 + 0.44233737333333333333e-1 * t16773 * t16779 - 0.10616096960000000000e0 * t5323 * t16765 * t50077 - 0.198e3 / 0.125e3 * t12656 * t50077 + 0.11696748576131687243e0 * t50314 * t1192 + 0.30703965012345679014e-1 * t16577 * t3948 - 0.14e2 / 0.81e2 * t1188 * t1191 * t49497 + 0.6e1 / 0.25e2 * t3870 * t49394 + 0.18e2 / 0.25e2 * t3870 * t49388 + 0.77233509629629629632e0 * t5310 * t3858 + 0.18e2 / 0.25e2 * t38859 * t5325 + 0.53610097640603566530e0 * t1177 * t3843 * t340 + 0.77233509629629629632e0 * t1228 * t16324 + 0.18e2 / 0.25e2 * t3870 * t50138 - 0.10531842222222222222e-1 * t12840 * t1638;
20816   t50344 = t3817 * t4079;
20817   t50347 = t12321 * t1239;
20818   t50352 = t38183 * t376;
20819   t50368 = -0.18e2 * t5116 * t12906 - 0.6e1 * t38149 * t1532 + 0.3e1 / 0.10e2 * t5396 * t4226 + t1530 * t12887 - 0.1944e4 * t16906 * t49329 + t269 * (t49368 + t49683 + t50033 + t50068 + t50112 + t50158 + t50302 + t50339) + 0.162e3 * t50344 * t5124 - 0.1944e4 * t50347 * t16238 + 0.162e3 * t16895 * t16233 - 0.1944e4 * t50352 * t16238 + 0.162e3 * t16898 * t16233 - 0.18e2 * t3810 * t16843 - 0.18e2 * t12309 * t5127 + 0.3e1 * t1097 * t16824 + t1645 * t13100 * t428 - 0.18e2 * t1101 * t12905 * t5106;
20820   t50399 = 0.162e3 * t16226 * t16233 - p->cam_beta * (t48994 + t49029 + t49068 + t49106 + t49161 + t49285 + t49321 + t50368) - 0.18e2 * t3810 * t16105 - 0.36e2 * t3810 * t16206 - 0.36e2 * t16110 * t4241 - 0.18e2 * t5116 * t12464 - 0.18e2 * t1101 * t4240 * t16083 - 0.6e1 * t1101 * t1321 * t48890 - 0.18e2 * t12309 * t5467 - 0.18e2 * t49034 * t1322 - 0.18e2 * t1101 * t12463 * t5106 - 0.6e1 * t1101 * t39388 * t1524 + 0.972e3 * t5453 * t49296;
20821   t50414 = t12321 * t1339;
20822   t50425 = t38188 * t441;
20823   t50428 = t1101 * t4272;
20824   t50431 = -0.1944e4 * t16236 * t49329 - 0.36e2 * t3810 * t16194 + t1342 * t48956 / 0.10e2 + 0.3e1 / 0.10e2 * t4275 * t16097 - 0.36e2 * t1101 * t16193 * t5106 - 0.12e2 * t1101 * t1680 * t12301 - 0.1944e4 * t50414 * t16238 + 0.162e3 * t5453 * t49085 + 0.162e3 * t5453 * t48987 - 0.1944e4 * t16236 * t48991 + 0.54e2 * t5453 * t48995 + 0.9720e4 * t50425 * t49216 - 0.36e2 * t50428 * t5109;
20825   t50448 = t1645 * t12494;
20826   t50456 = t5395 * t4189;
20827   t50464 = -0.72e2 * t16241 * t16244 - 0.36e2 * t16241 * t16247 - 0.36e2 * t5459 * t48864 + 0.1080e4 * t5453 * t48868 + 0.3e1 / 0.10e2 * t12341 * t5441 + t38091 * t1663 / 0.10e2 + 0.3e1 / 0.10e2 * t16200 * t4225 + 0.171e3 / 0.1000e4 * t50448 * t12496 - 0.18e2 * t1101 * t16180 * t3800 + t5489 * t12437 / 0.10e2 - 0.27e2 / 0.100e3 * t50456 * t4190 - 0.27e2 / 0.100e3 * t4278 * t16097 * t1314 - 0.27e2 / 0.50e2 * t12440 * t16216;
20828   t50472 = t5486 * t3818;
20829   t50492 = t49265 * t428 - 0.36e2 * t3810 * t16181 - 0.27e2 / 0.100e3 * t16942 * t12485 - 0.27e2 / 0.100e3 * t38019 * t5494 + 0.162e3 * t3817 * t50472 * t3794 - 0.18e2 * t3810 * t16184 - 0.6e1 * t1101 * t5466 * t12298 + t12308 * t1680 + 0.3e1 * t3808 * t5486 - 0.36e2 * t5459 * t49081 - 0.36e2 * t5459 * t49145 + 0.162e3 * t19822 * t12330 + 0.162e3 * t19836 * t12330;
20830   t50500 = t12309 * t441;
20831   t50503 = t3810 * t1339;
20832   t50514 = t3836 * t1122;
20833   t50515 = t50514 * t3853;
20834   t50543 = -0.59950161876543209878e-1 * t46 * t50025 + 0.74937702345679012347e-1 * t1535 * t50515 - 0.17842310082304526749e-1 * t46 * t49340 - 0.19983387292181069959e0 * t46 * t50030 - t1154 * t49497 / 0.5e1 + 0.1056e4 / 0.625e3 * t38855 * t1540 * t12349 - 0.14e2 / 0.45e2 * t1336 * t49497 - 0.392e3 / 0.125e3 * t12389 * t49332 - 0.52337442908093278464e0 * t46 * t49361 + 0.14273848065843621399e0 * t46 * t50170 + 0.6e1 / 0.25e2 * t5470 * t12365 - 0.14e2 / 0.45e2 * t39479 * t1540 - 0.14e2 / 0.15e2 * t12379 * t5165 - 0.14e2 / 0.15e2 * t4264 * t16136;
20835   t50575 = -0.198e3 / 0.125e3 * t12348 * t5165 * t3837 + 0.18e2 / 0.25e2 * t3869 * t16136 * t1122 + 0.18e2 / 0.25e2 * t16128 * t3853 - 0.392e3 / 0.125e3 * t39460 * t16158 + 0.6664e4 / 0.1875e4 * t39465 * t50019 + 0.98e2 / 0.75e2 * t4267 * t50138 + 0.98e2 / 0.75e2 * t4267 * t49388 + 0.98e2 / 0.225e3 * t4267 * t49394 - 0.20353450019814052736e1 * t46 * t12356 * t339 - 0.198e3 / 0.125e3 * t16125 * t12392 + 0.98e2 / 0.75e2 * t39457 * t5325 + 0.196e3 / 0.75e2 * t12382 * t16161 + 0.98e2 / 0.75e2 * t12382 * t16164 - 0.392e3 / 0.125e3 * t12389 * t50077;
20836   t50585 = -0.12e2 * t5459 * t49147 - 0.36e2 * t19818 * t12303 - 0.36e2 * t19833 * t12303 - 0.36e2 * t50500 * t5109 - 0.72e2 * t50503 * t5109 - 0.72e2 * t16197 * t16244 - 0.36e2 * t16197 * t16247 + 0.972e3 * t16222 * t16251 + t269 * (t50543 + t50575) + 0.3e1 * t5114 * t4272 + t1530 * t12397 + 0.3e1 * t1097 * t16169 + 0.3e1 * t16267 * t1339;
20837   t50588 = t1680 * t12322;
20838   t50619 = 0.162e3 * t12312 * t16188 - 0.648e3 * t12321 * t50588 * t12301 - 0.18e2 * t16110 * t4248 - 0.27e2 / 0.100e3 * t4278 * t5441 * t4225 - 0.27e2 / 0.100e3 * t12440 * t16219 - 0.12e2 * t5116 * t12499 + 0.513e3 / 0.1000e4 * t12495 * t5441 * t4190 + 0.513e3 / 0.1000e4 * t38016 * t16211 - 0.4959e4 / 0.10000e5 * t39396 * t1663 * t12496 + 0.972e3 * t16226 * t16251 + 0.972e3 * t5453 * t49220 - 0.7776e4 * t16236 * t49190 - 0.9e1 / 0.100e3 * t4278 * t1663 * t12437 + t49152 * t441;
20839   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20840     v4rho3sigma[11] = -t44394 / 0.2e1 - 0.2e1 / 0.3e1 * t45546 - 0.3e1 / 0.2e1 * t48069 - t1352 * t3131 * t5499 * t3779 / 0.2e1 - 0.4e1 * t48076 + t42280 - 0.2e1 * t48071 - 0.3e1 / 0.2e1 * t1352 * t2415 * t5499 * t3788 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t48827 + t48860 + t50399 + t50431 + t50464 + t50492 + t50585 + t50619) - t14133 * t15088 * t11852 / 0.2e1 - t1352 * t2415 * t1685 * t11846 / 0.2e1 - 0.3e1 / 0.2e1 * t1352 * t2415 * t16947 * t1082 + t1352 * t8653 * t1685 * t11841 / 0.9e1 - 0.2e1 / 0.3e1 * t48067;
20841 
20842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20843     v4rho3lapl[0] = 0.0e0;
20844 
20845   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20846     v4rho3lapl[1] = 0.0e0;
20847 
20848   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20849     v4rho3lapl[2] = 0.0e0;
20850 
20851   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20852     v4rho3lapl[3] = 0.0e0;
20853 
20854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20855     v4rho3lapl[4] = 0.0e0;
20856 
20857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20858     v4rho3lapl[5] = 0.0e0;
20859 
20860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20861     v4rho3lapl[6] = 0.0e0;
20862 
20863   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
20864     v4rho3lapl[7] = 0.0e0;
20865 
20866   t50658 = t8 * t18 * t17355;
20867   t50661 = t8 * t460 * t5655;
20868   t50664 = t8 * t450 * t16963;
20869   t50667 = t8 * t1811 * t16959;
20870   t50670 = t8 * t1817 * t5506;
20871   t50677 = t8 * t450 * t16966;
20872   t50681 = t8 * t1832 * t1743 / 0.9e1;
20873   t50709 = my_piecewise3(t24, 0.3e1 / 0.4e1 * t6960 * t1690, 0);
20874   t50713 = t5650 * t2341;
20875   t50722 = t1698 * t6994;
20876   t50727 = -0.36e2 * t1855 * t17116 - 0.36e2 * t478 * t40468 * t1693 - 0.36e2 * t478 * t13204 * t5514 - 0.18e2 * t478 * t7907 * t5514 - 0.36e2 * t1855 * t17019 - 0.6e1 * t478 * t25804 * t1693 - 0.18e2 * t478 * t2356 * t16987 - 0.18e2 * t1855 * t17022 - 0.6e1 * t478 * t738 * t50709 + 0.513e3 / 0.1000e4 * t7915 * t50713 - 0.18e2 * t1855 * t17119 - 0.18e2 * t6983 * t5629 - 0.6e1 * t5524 * t6964 - 0.648e3 * t50722 * t7904 - 0.6e1 * t25808 * t1734;
20877   t50736 = t17091 * t477;
20878   t50745 = t5521 * t1861;
20879   t50760 = -0.36e2 * t17025 * t2357 - 0.36e2 * t17025 * t2361 - 0.18e2 * t17025 * t2364 + 0.162e3 * t17102 * t7840 - 0.36e2 * t20515 * t6973 + 0.162e3 * t20518 * t7004 + 0.162e3 * t2353 * t50745 - 0.36e2 * t40488 * t5517 + 0.162e3 * t40491 * t5531 - 0.72e2 * t40494 * t5517 + 0.324e3 * t40497 * t5531 - 0.18e2 * t50736 * t739 - 0.18e2 * t5524 * t6956 - 0.18e2 * t5524 * t7908 - 0.18e2 * t5624 * t6983;
20880   t50766 = t1863 * t16987;
20881   t50767 = t50766 * t468;
20882   t50811 = -0.12e2 * t5524 * t7020 - 0.36e2 * t5524 * t7305 - 0.18e2 * t1855 * t17292 - 0.18e2 * t478 * t1868 * t16987 + 0.513e3 / 0.1000e4 * t702 * t17206 - 0.27e2 / 0.100e3 * t1713 * t7017 - 0.18e2 * t6983 * t5534 - 0.36e2 * t17025 * t1869 - 0.18e2 * t17025 * t1876 + 0.162e3 * t50745 * t1865 - 0.18e2 * t50736 * t480 - 0.6e1 * t25808 * t1701 - 0.18e2 * t478 * t7377 * t5514 - 0.18e2 * t6983 * t5539 + 0.972e3 * t13339 * t17033 - 0.27e2 / 0.100e3 * t2166 * t5583 - 0.27e2 / 0.50e2 * t2168 * t5583 - 0.6e1 * t478 * t25886 * t1693 - 0.18e2 * t5524 * t7378;
20883   t50843 = -0.292e3 / 0.81e2 * t13427 + 0.292e3 / 0.81e2 * t13430 + 0.73e2 / 0.54e2 * t13434 - 0.73e2 / 0.54e2 * t13437 + 0.3212e4 / 0.729e3 * t13441 - 0.73e2 / 0.270e3 * t1705 * t45 * t6963 * t226 + 0.73e2 / 0.45e2 * t1705 * t16972 * t468 + 0.73e2 / 0.270e3 * t1705 * t1718 * t6963 - 0.146e3 / 0.135e3 * t7340 * t1693 * t226 - 0.146e3 / 0.45e2 * t2323 * t5514 * t226 + 0.292e3 / 0.45e2 * t16990 * t468 - 0.146e3 / 0.45e2 * t720 * t16987 * t226 + 0.584e3 / 0.45e2 * t16993 * t468;
20884   t50870 = 0.292e3 / 0.45e2 * t5598 * t1845 - 0.146e3 / 0.135e3 * t222 * t50709 * t226 + 0.292e3 / 0.45e2 * t5601 * t1845 + 0.292e3 / 0.135e3 * t1722 * t6963 + 0.146e3 / 0.135e3 * t7343 * t1693 + 0.146e3 / 0.45e2 * t2326 * t5514 + 0.146e3 / 0.45e2 * t723 * t16987 + 0.292e3 / 0.45e2 * t726 * t16987 + 0.146e3 / 0.135e3 * t225 * t50709 - 0.12848e5 / 0.2187e4 * t13423 - 0.73e2 / 0.27e2 * t13392 - 0.146e3 / 0.81e2 * t13395 + 0.1168e4 / 0.243e3 * t13421 + 0.146e3 / 0.405e3 * t7340 * t114 * t46;
20885   t50871 = t50843 + t50870;
20886   t50887 = t27 * t5514;
20887   t50888 = t50887 * t1839;
20888   t50891 = t27335 * t1693;
20889   t50892 = t50891 * t6971;
20890   t50895 = t26764 * t1727;
20891   t50906 = t7029 * t5610;
20892   t50912 = t17058 * t1845;
20893   t50915 = t6996 * t5514;
20894   t50916 = t50915 * t1839;
20895   t50919 = t5530 * t6963;
20896   t50924 = -0.36e2 * t478 * t40985 * t1693 + t208 * t708 * t50871 / 0.10e2 + 0.3e1 / 0.10e2 * t2300 * t5611 + t7302 * t1728 / 0.10e2 - 0.36e2 * t20734 * t6973 - 0.36e2 * t1855 * t17202 - 0.36e2 * t17025 * t1873 + 0.972e3 * t13326 * t17033 + 0.972e3 * t4316 * t50888 - 0.7776e4 * t13333 * t50892 - 0.4959e4 / 0.10000e5 * t208 * t50895 * t7030 - 0.27e2 / 0.50e2 * t702 * t17301 - 0.36e2 * t478 * t13365 * t5514 + 0.513e3 / 0.1000e4 * t20773 * t50713 + 0.513e3 / 0.1000e4 * t208 * t50906 * t2306 - 0.1944e4 * t40996 * t17066 + 0.162e3 * t4316 * t50912 - 0.1944e4 * t13333 * t50916 + 0.54e2 * t4316 * t50919 + 0.162e3 * t13339 * t17062;
20897   t50948 = t17083 * t468;
20898   t50951 = t1855 * t17281;
20899   t50955 = t582 * t1848 * t506;
20900   t50960 = t17065 * t6967;
20901   t50965 = t5510 * t1845;
20902   t50981 = t1839 * t5514;
20903   t50984 = t5515 * t1845;
20904   t50986 = t1694 * t6963;
20905   t50988 = t26 * t50709;
20906   t50991 = (0.2e1 * t1693 * t6963 + 0.6e1 * t16987 * t468 + 0.6e1 * t1845 * t5514 + 0.2e1 * t25 * t50709 + 0.54e2 * t50948 + 0.54e2 * t50965 + 0.54e2 * t50981 + 0.54e2 * t50984 + 0.18e2 * t50986 + 0.9e1 * t50988) * t32;
20907   t50998 = t1696 * t6971;
20908   t51023 = -0.972e3 * t17033 * t6986 + 0.72e2 * t17042 * t1855 + 0.36e2 * t17046 * t1855 - 0.324e3 * t17059 * t6986 - 0.162e3 * t17062 * t6986 + 0.1944e4 * t17066 * t27298 - 0.162e3 * t17102 * t7004 - 0.1080e4 * t1862 * t50998 + 0.1944e4 * t20701 * t50965 - 0.972e3 * t20704 * t50965 - 0.162e3 * t25801 * t5531 + 0.36e2 * t478 * t50948 + 0.36e2 * t478 * t50984 + 0.12e2 * t478 * t50986 + 0.7776e4 * t50892 * t6995 + 0.36e2 * t5517 * t6983 + 0.12e2 * t5524 * t6971 + 0.36e2 * t5524 * t6973 - t50991;
20909   t51026 = t25875 * t1693;
20910   t51027 = t51026 * t6971;
20911   t51066 = 0.1944e4 * t6995 * t50916 - 0.9720e4 * t25874 * t51027 - 0.972e3 * t1862 * t50888 - 0.162e3 * t1862 * t50767 - 0.162e3 * t1862 * t50912 - 0.54e2 * t1862 * t50919 + 0.36e2 * t478 * t50965 + 0.648e3 * t50722 * t6997 + 0.6e1 * t5524 * t6975 + 0.6e1 * t25808 * t1696 + 0.18e2 * t6983 * t5519 + 0.18e2 * t1855 * t17089 + 0.36e2 * t478 * t50981 + 0.6e1 * t478 * t50988 + 0.36e2 * t1855 * t17085 + 0.36e2 * t17025 * t1848 - 0.324e3 * t17102 * t7000 + 0.18e2 * t50736 * t471 + 0.18e2 * t17025 * t1850 - 0.162e3 * t50745 * t2158;
20912   t51067 = t51023 + t51066;
20913   t51072 = -0.1944e4 * t41007 * t17066 - 0.36e2 * t13336 * t17046 - 0.6e1 * t5524 * t7381 + 0.162e3 * t20737 * t7004 + 0.162e3 * t42200 * t5531 - 0.36e2 * t42203 * t5517 + 0.162e3 * t42206 * t5531 - 0.72e2 * t13344 * t17042 + 0.324e3 * t13326 * t17059 - 0.72e2 * t13336 * t17042 + 0.324e3 * t13339 * t17059 - 0.36e2 * t4324 * t50948 - 0.90559043555555555555e0 * t50951 * t17284 - 0.90559043555555555556e0 * t17282 * t50955 - 0.27e2 / 0.100e3 * t5574 * t2307 - 0.1944e4 * t13333 * t50960 + 0.324e3 * t17102 * t7309 + t51067 * t207 * t230 + 0.162e3 * t17102 * t7315;
20914   t51096 = t478 * t4504;
20915   t51101 = t1928 * t1882 * t26 * t468;
20916   t51104 = t17212 * t41;
20917   t51105 = t478 * t51104;
20918   t51120 = -0.72e2 * t41013 * t5517 + 0.324e3 * t41017 * t5531 - 0.12e2 * t4324 * t50986 - 0.36e2 * t13344 * t17046 - 0.36e2 * t4324 * t50965 - 0.36e2 * t4324 * t50984 - 0.27e2 / 0.100e3 * t702 * t17297 - 0.9e1 / 0.100e3 * t208 * t5582 * t7365 + 0.3e1 / 0.10e2 * t6980 * t1728 + 0.171e3 / 0.1000e4 * t1713 * t7031 - 0.18e2 * t5524 * t7384 + 0.15093173925925925925e1 * t51096 * t17284 + 0.63391330488888888889e0 * t17282 * t51101 - 0.90559043555555555555e0 * t51105 * t17284 + 0.3e1 * t5522 * t2154 + t1699 * t7826 + 0.3e1 * t17154 * t701 * t230 + t7014 * t1728 / 0.10e2 + 0.3e1 / 0.10e2 * t7389 * t1728 + 0.3e1 / 0.10e2 * t5574 * t2342;
20919   t51146 = t1855 * t17212;
20920   t51150 = t582 * t1850 * t506;
20921   t51154 = t582 * t471 * t1911;
20922   t51158 = t582 * t2158 * t506;
20923   t51161 = t1706 * t6973;
20924   t51164 = t1706 * t7004;
20925   t51167 = t17032 * t6967;
20926   t51172 = 0.1080e4 * t4316 * t50998 + 0.3e1 / 0.10e2 * t702 * t17180 + 0.31444112345679012345e0 * t17219 * t1508 + 0.62888224691358024690e0 * t17222 * t1508 - 0.83850966255144032920e0 * t5552 * t4677 - 0.83850966255144032920e0 * t5542 * t4677 + 0.513e3 / 0.1000e4 * t638 * t17206 + 0.3e1 / 0.10e2 * t2166 * t5611 + 0.3e1 / 0.10e2 * t17174 * t732 + 0.3e1 * t5571 * t2299 * t230 + t1712 * t7301 * t230 + 0.22639760888888888889e1 * t51146 * t5549 - 0.45279521777777777778e0 * t17282 * t51150 - 0.45279521777777777778e0 * t17282 * t51154 + 0.40751569600000000001e1 * t20762 * t51158 + 0.22639760888888888889e1 * t17282 * t51161 - 0.10187892400000000000e2 * t20762 * t51164 + 0.972e3 * t4316 * t51167 + 0.3e1 / 0.10e2 * t5572 * t2342;
20927   t51177 = t478 * t4412;
20928   t51182 = t1862 * t17212;
20929   t51185 = t1855 * t1422;
20930   t51194 = t478 * t4421;
20931   t51199 = t2305 * t17014;
20932   t51224 = 0.3e1 / 0.5e1 * t17171 * t732 + 0.3e1 / 0.10e2 * t17160 * t732 - 0.37732934814814814814e1 * t51177 * t5549 + 0.11319880444444444444e1 * t17233 * t17237 - 0.10187892400000000000e2 * t51182 * t17245 - 0.37732934814814814814e1 * t51185 * t5549 + 0.37732934814814814815e0 * t5546 * t46 * t5547 * t6963 - 0.37732934814814814814e1 * t17248 * t17227 + 0.50310579753086419752e1 * t51194 * t5549 - 0.648e3 * t50722 * t7045 - 0.27e2 / 0.100e3 * t208 * t51199 * t731 - 0.18e2 * t1855 * t17273 + 0.3e1 / 0.5e1 * t2168 * t5611 - 0.27e2 / 0.100e3 * t208 * t17300 * t2341 - 0.36e2 * t42247 * t5517 + 0.75465869629629629628e-1 * t17213 * t17162 - 0.10565221748148148148e0 * t17209 * t17188 - 0.18866467407407407407e0 * t474 * t2064 * t1707 - 0.62888224691358024691e-1 * t33 * t7550 * t1707 + 0.3e1 / 0.10e2 * t638 * t17180;
20933   t51233 = t1862 * t1422;
20934   t51240 = t33 * t4421;
20935   t51243 = t123 * t27;
20936   t51257 = t6986 * t5545;
20937   t51260 = t6983 * t5545;
20938   t51263 = t2064 * t114;
20939   t51264 = t478 * t51263;
20940   t51267 = t6995 * t5545;
20941   t51268 = t123 * t6996;
20942   t51277 = t33 * t4412;
20943   t51280 = t1713 * t7366 / 0.10e2 - 0.10565221748148148148e0 * t5557 * t46 * t40717 - 0.18866467407407407407e1 * t17248 * t17237 + 0.16979820666666666666e2 * t51233 * t17245 - 0.12577644938271604938e0 * t17185 * t17162 - 0.27e2 / 0.100e3 * t5572 * t2307 + 0.33540386502057613168e0 * t51240 * t5558 - 0.20375784800000000001e2 * t17242 * t46 * t51243 * t6971 + 0.22639760888888888889e1 * t17230 * t17227 + 0.22639760888888888889e1 * t17233 * t17227 + 0.3e1 * t17092 * t633 + t50991 * t160 + 0.11319880444444444444e1 * t17230 * t17237 - 0.10187892400000000000e2 * t51257 * t17245 + 0.11319880444444444444e1 * t51260 * t5549 + 0.11319880444444444444e1 * t51264 * t5549 + 0.40751569600000000001e2 * t51267 * t46 * t51268 * t6971 - 0.27e2 / 0.100e3 * t638 * t17297 - 0.10565221748148148148e0 * t17213 * t17188 - 0.25155289876543209876e0 * t51277 * t5558;
20944   t51281 = t33 * t51263;
20945   t51286 = t474 * t1422;
20946   t51289 = t1853 * t5545;
20947   t51292 = t474 * t17212;
20948   t51299 = t46 * t7797;
20949   t51302 = t46 * t7809;
20950   t51324 = t46 * t123 * t6971;
20951   t51332 = 0.75465869629629629628e-1 * t51281 * t5558 + 0.75465869629629629628e-1 * t17209 * t17162 - 0.25155289876543209876e0 * t51286 * t5558 + 0.75465869629629629628e-1 * t51289 * t5558 + 0.15093173925925925925e0 * t51292 * t5558 - 0.27e2 / 0.100e3 * t2300 * t5583 - 0.27e2 / 0.50e2 * t638 * t17301 + 0.25155289876543209876e-1 * t5557 * t51299 + 0.84521773985185185182e-1 * t5557 * t51302 + 0.17608702913580246913e0 * t17185 * t17188 - 0.62888224691358024691e-1 * t6978 * t112 * t1707 - 0.18866467407407407407e0 * t1853 * t568 * t1707 + 0.10248451431184270690e1 * t1704 * t14071 + 0.162e3 * t4316 * t50767 + 0.9720e4 * t42157 * t51027 + 0.162e3 * t13326 * t17062 + 0.31444112345679012345e0 * t17216 * t1508 + 0.75465869629629629630e0 * t5546 * t51324 - 0.6e1 * t478 * t479 * t50709 - 0.36e2 * t1855 * t17287;
20952   t51363 = -0.72e2 * t14097 * t17042 + 0.324e3 * t14106 * t17059 + 0.162e3 * t4654 * t50767 - p->cam_beta * (t50811 + t50924 + t51072 + t51120 + t51172 + t51224 + t51280 + t51332) - 0.27e2 / 0.100e3 * t7894 * t17347 - 0.27e2 / 0.100e3 * t2394 * t5610 * t2341 + 0.1080e4 * t4654 * t50998 - 0.83850966255144032920e0 * t474 * t496 * t124 + 0.10248451431184270690e1 * t33 * t1893 * t124 - 0.36e2 * t40504 * t5517 + 0.162e3 * t40507 * t5531 - 0.72e2 * t13261 * t17042 + 0.324e3 * t14109 * t17059 - 0.36e2 * t4660 * t50948 - 0.9e1 / 0.100e3 * t2394 * t1727 * t7365;
20953   t51364 = t1712 * t7029;
20954   t51367 = t5571 * t2305;
20955   t51392 = t17154 * t708;
20956   t51397 = 0.171e3 / 0.1000e4 * t51364 * t7030 - 0.27e2 / 0.100e3 * t51367 * t2306 + t759 * t50871 / 0.10e2 + 0.3e1 / 0.10e2 * t2391 * t17014 + 0.3e1 / 0.10e2 * t17111 * t2341 + 0.3e1 * t17092 * t756 + t5645 * t7365 / 0.10e2 + t50991 * t244 + 0.3e1 * t5522 * t2388 + t1699 * t7890 + t51067 * t230 - 0.12e2 * t5524 * t7846 - 0.4959e4 / 0.10000e5 * t27492 * t1727 * t7030 - 0.27e2 / 0.100e3 * t27431 * t5650 + 0.3e1 / 0.10e2 * t51392 * t731 + 0.3e1 / 0.10e2 * t7854 * t5610;
20957   t51412 = t478 * t114;
20958   t51431 = -0.25155289876543209876e0 * t17036 * t5558 + 0.75465869629629629628e-1 * t17049 * t5558 + 0.75465869629629629628e-1 * t5632 * t17162 + 0.33540386502057613168e0 * t17039 * t5558 - 0.12577644938271604938e0 * t5639 * t17162 + 0.84521773985185185182e-1 * t1737 * t51302 + 0.75465869629629629630e0 * t51412 * t51324 + 0.25155289876543209876e-1 * t1737 * t51299 - 0.1944e4 * t13254 * t50960 - 0.10565221748148148148e0 * t5632 * t17188 + 0.972e3 * t4654 * t51167 + 0.17608702913580246913e0 * t5639 * t17188 + 0.513e3 / 0.1000e4 * t27414 * t17099 + 0.15093173925925925925e1 * t17331 * t17284 - 0.90559043555555555555e0 * t17071 * t17284;
20959   t51459 = t478 * t496 * t41;
20960   t51464 = t1855 * t17330;
20961   t51467 = -0.45279521777777777778e0 * t5635 * t51150 - 0.45279521777777777778e0 * t5635 * t51154 + 0.40751569600000000001e1 * t17337 * t51158 + 0.22639760888888888889e1 * t5635 * t51161 - 0.10187892400000000000e2 * t17337 * t51164 + 0.63391330488888888889e0 * t5635 * t51101 - 0.90559043555555555556e0 * t5635 * t50955 + t27411 * t1727 / 0.10e2 - 0.27e2 / 0.100e3 * t17157 * t7920 + 0.513e3 / 0.1000e4 * t7915 * t5610 * t2306 - 0.27e2 / 0.100e3 * t2394 * t17014 * t731 - 0.27e2 / 0.50e2 * t7894 * t17350 + 0.50310579753086419752e1 * t51459 * t5636 - 0.10565221748148148148e0 * t20488 * t7787 - 0.37732934814814814814e1 * t51464 * t5636;
20962   t51471 = t1862 * t17330;
20963   t51479 = t6986 * t1705;
20964   t51482 = t6995 * t1705;
20965   t51489 = t6983 * t1705;
20966   t51506 = -0.18866467407407407407e1 * t17331 * t17074 + 0.16979820666666666666e2 * t51471 * t17338 + 0.22639760888888888889e1 * t17071 * t17334 - 0.20375784800000000001e2 * t17337 * t1706 * t7000 - 0.10187892400000000000e2 * t51479 * t17338 + 0.40751569600000000001e2 * t51482 * t1706 * t6997 + 0.37732934814814814815e0 * t5635 * t1706 * t6975 + 0.11319880444444444444e1 * t51489 * t5636 + 0.11319880444444444444e1 * t17071 * t17074 - 0.37732934814814814814e1 * t17331 * t17334 - 0.36e2 * t5524 * t7912 + 0.324e3 * t17102 * t7900 + 0.162e3 * t14106 * t17062 - 0.1944e4 * t40403 * t17066 + 0.162e3 * t14109 * t17062;
20967   t51541 = -0.1944e4 * t40476 * t17066 + 0.162e3 * t4654 * t50912 - 0.1944e4 * t13254 * t50916 + 0.54e2 * t4654 * t50919 + 0.9720e4 * t40416 * t51027 + 0.972e3 * t14106 * t17033 + 0.972e3 * t14109 * t17033 + 0.972e3 * t4654 * t50888 - 0.7776e4 * t13254 * t50892 + 0.31444112345679012345e0 * t1853 * t51 * t124 - 0.36e2 * t4660 * t50965 - 0.36e2 * t4660 * t50984 - 0.36e2 * t14097 * t17046 - 0.36e2 * t13261 * t17046 - 0.12e2 * t4660 * t50986 - 0.62888224691358024691e-1 * t6978 * t114 * t124;
20968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20969     v4rho3tau[0] = t1352 * t8635 * t1743 * t7979 / 0.9e1 - t14133 * t17398 * t7929 / 0.2e1 - t1352 * t2774 * t1743 * t7944 / 0.2e1 - 0.3e1 / 0.2e1 * t1352 * t2774 * t17355 * t455 - 0.3e1 / 0.2e1 * t50658 - t50661 / 0.2e1 - 0.4e1 * t50664 - 0.2e1 / 0.3e1 * t50667 - 0.2e1 / 0.3e1 * t50670 - 0.3e1 / 0.2e1 * t1352 * t2774 * t5655 * t1827 - 0.2e1 * t50677 + t50681 - t1352 * t2753 * t5655 * t1812 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t50727 + t50760 + t51363 + t51397 + t51431 + t51467 + t51506 + t51541);
20970 
20971   t51553 = t8 * t772 * t5678;
20972   t51556 = t8 * t254 * t17390;
20973   t51559 = t2416 * t2417 * t17371;
20974   t51577 = t8 * t766 * t17374;
20975   t51581 = t8 * t2426 * t1801 / 0.9e1;
20976   t51603 = t8 * t2405 * t17367;
20977   t51606 = t8 * t2411 * t5662;
20978   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
20979     v4rho3tau[1] = 0.3e1 / 0.2e1 * t14133 * t14134 * t5677 * t2421 + t51553 / 0.2e1 + 0.3e1 / 0.2e1 * t51556 + 0.4e1 * t51559 - t1352 * t2415 * t1801 * t7952 / 0.2e1 - t14133 * t17470 * t8540 / 0.2e1 + t14133 * t42281 * t5677 * t2406 / 0.2e1 + 0.3e1 / 0.2e1 * t14133 * t14134 * t17389 * t767 - 0.2e1 * t51577 + t51581 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t1757 * t8280 - 0.6e1 * t1101 * t29460 * t1751 - 0.62888224691358024691e-1 * t269 * t8152 * t1765 + t1770 * t8517 * t428 + t8518 * t1786 / 0.10e2) + t1352 * t8653 * t1801 * t8551 / 0.9e1 - 0.2e1 / 0.3e1 * t51603 - 0.2e1 / 0.3e1 * t51606;
20980 
20981   t51610 = t43005 * t17407;
20982   t51644 = t17154 * t1074 * t230 + 0.324e3 * t14550 * t17033 - 0.12e2 * t5524 * t8710 - 0.6e1 * t478 * t2784 * t16987 + 0.171e3 / 0.1000e4 * t1075 * t17206 - 0.6e1 * t6983 * t5687 - 0.12e2 * t478 * t8705 * t5514 - 0.6e1 * t5524 * t8713 + 0.54e2 * t17102 * t8702 - 0.9e1 / 0.50e2 * t1075 * t17301 - 0.9e1 / 0.100e3 * t1075 * t17297 + 0.108e3 * t44305 * t5531 - 0.12e2 * t1855 * t17429 + t3122 * t5611 / 0.5e1 + t17447 * t732 / 0.5e1;
20983   t51665 = t1862 * t17435;
20984   t51668 = t478 * t5005;
20985   t51673 = t1855 * t17435;
20986   t51676 = t2897 * t114;
20987   t51677 = t478 * t51676;
20988   t51680 = -0.12e2 * t17025 * t2785 + t1699 * t9150 + t9482 * t1728 / 0.10e2 - 0.12e2 * t1855 * t17424 + 0.2e1 * t5522 * t2987 - 0.9e1 / 0.50e2 * t2989 * t5583 - 0.6e1 * t478 * t28594 * t1693 - 0.9e1 / 0.100e3 * t5693 * t2307 - 0.12e2 * t5524 * t8706 + 0.37732934814814814815e0 * t17436 * t17237 - 0.33959641333333333334e1 * t51665 * t17245 - 0.12577644938271604938e1 * t51668 * t5549 + 0.75465869629629629630e0 * t17436 * t17227 + 0.75465869629629629630e0 * t51673 * t5549 + 0.75465869629629629630e0 * t51677 * t5549;
20989   t51706 = t33 * t51676;
20990   t51709 = t474 * t17435;
20991   t51714 = -0.12e2 * t478 * t44330 * t1693 - 0.24e2 * t14556 * t17042 - 0.12e2 * t14556 * t17046 + 0.108e3 * t14550 * t17059 + 0.54e2 * t14550 * t17062 - 0.648e3 * t44308 * t17066 - 0.24e2 * t44311 * t5517 + 0.108e3 * t44314 * t5531 + t17092 * t1034 - 0.9e1 / 0.50e2 * t3122 * t5583 - 0.35217405827160493826e-1 * t17444 * t17188 + 0.25155289876543209876e-1 * t17444 * t17162 + 0.50310579753086419752e-1 * t51706 * t5558 + 0.50310579753086419752e-1 * t51709 * t5558 + 0.20962741563786008230e0 * t17439 * t1508;
20992   t51717 = t33 * t5005;
20993   t51750 = t17435 * t41;
20994   t51751 = t478 * t51750;
20995   t51754 = 0.20962741563786008230e0 * t17432 * t1508 - 0.83850966255144032920e-1 * t51717 * t5558 - 0.24e2 * t44321 * t5517 + t1075 * t17180 / 0.10e2 - 0.62888224691358024691e-1 * t33 * t9146 * t1707 - 0.27950322085048010973e0 * t5690 * t4677 - 0.62888224691358024691e-1 * t1853 * t993 * t1707 - 0.12577644938271604938e0 * t474 * t2897 * t1707 + t2989 * t5611 / 0.5e1 + t17449 * t732 / 0.5e1 + t5693 * t2342 / 0.10e2 + t9152 * t1728 / 0.10e2 + t9154 * t1728 / 0.5e1 + 0.2e1 * t5571 * t3121 * t230 + t1712 * t9481 * t230 - 0.30186347851851851852e0 * t51751 * t17284;
20996   t51761 = t14520 * t17463;
20997   t51762 = t43020 * t5699;
20998   t51774 = t7977 * t1743;
20999   t51781 = -t50661 / 0.3e1 - t50658 / 0.2e1 + t51610 / 0.6e1 + t50681 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t51644 + t51680 + t51714 + t51754) + t51761 + t51762 / 0.6e1 + t14133 * t43037 * t5697 * t1812 / 0.6e1 + t14133 * t14539 * t17461 * t455 - t14532 * t2774 * t5655 * t9 + t14133 * t51774 * t8637 / 0.9e1 - t44377 * t17398 * t8631 / 0.3e1;
21000   t51783 = 0.4e1 / 0.9e1 * t43016 * t17399;
21001   t51796 = 0.4e1 / 0.3e1 * t14520 * t17403;
21002   t51802 = 0.4e1 / 0.3e1 * t43016 * t17413;
21003   t51807 = t43020 * t5683;
21004   t51812 = -t51783 - t14133 * t17398 * t8611 / 0.6e1 - 0.2e1 / 0.3e1 * t50677 - t14133 * t1810 * t5655 * t2756 / 0.3e1 - 0.2e1 / 0.9e1 * t50667 - 0.4e1 / 0.9e1 * t50670 - 0.4e1 / 0.3e1 * t50664 - t51796 + t14133 * t14539 * t5697 * t1827 / 0.2e1 + t51802 - t1352 * t2774 * t17355 * t944 / 0.2e1 - 0.2e1 / 0.9e1 * t51807 - t14532 * t2774 * t1743 / 0.2e1;
21005   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21006     v4rho3tau[2] = t51781 + t51812;
21007 
21008   t51816 = t43020 * t5852;
21009   t51818 = t14520 * t17535;
21010   t51823 = t43005 * t17479;
21011   t51825 = t43020 * t5703;
21012   t51846 = t2537 * t332;
21013   t51847 = t1101 * t51846;
21014   t51855 = t269 * t51846;
21015   t51872 = t5718 * t2618 - 0.6e1 * t5720 * t9498 + t1757 * t9900 - 0.6e1 * t3810 * t17379 + 0.54e2 * t44409 * t5727 - 0.6e1 * t1101 * t31306 * t1751 - 0.12e2 * t44415 * t5713 - 0.6e1 * t1101 * t9497 * t5710 - 0.62888224691358024691e-1 * t1097 * t2537 * t1765 + 0.37732934814814814815e0 * t51847 * t5745 - 0.62888224691358024691e-1 * t269 * t9720 * t1765 + 0.10481370781893004115e0 * t17382 * t1676 + 0.25155289876543209876e-1 * t51855 * t5754 + t5767 * t2743 * t428 + t1770 * t10222 * t428 + t17385 * t1315 / 0.10e2 + t9902 * t1786 / 0.10e2 + t10223 * t1786 / 0.10e2 - 0.9e1 / 0.100e3 * t2744 * t5779 + t2744 * t5807 / 0.10e2;
21016   t51887 = 0.4e1 / 0.3e1 * t43016 * t17475;
21017   t51888 = t14532 * t2415 * t1801 / 0.2e1 - t51816 / 0.6e1 + t51581 + t51818 - t1352 * t3131 * t5851 * t2406 / 0.6e1 - t51823 / 0.6e1 - 0.2e1 / 0.9e1 * t51825 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * t51872 - t1352 * t2415 * t5851 * t2421 / 0.2e1 - 0.2e1 / 0.3e1 * t51577 + t14133 * t42281 * t17474 * t767 / 0.3e1 + t51887;
21018   t51896 = 0.4e1 / 0.3e1 * t14520 * t17485;
21019   t51900 = 0.4e1 / 0.9e1 * t43016 * t17471;
21020   t51910 = t8549 * t1801;
21021   t51918 = -t44377 * t14134 * t5677 * t9 + t51553 / 0.3e1 - 0.2e1 / 0.9e1 * t51603 - 0.4e1 / 0.9e1 * t51606 - t51896 + 0.4e1 / 0.3e1 * t51559 + t51556 / 0.2e1 - t51900 + t14133 * t14134 * t17533 * t767 - t14133 * t17470 * t8603 / 0.6e1 + t44377 * t17470 * t10253 / 0.3e1 + t14133 * t51910 * t8655 / 0.9e1 + t14133 * t14134 * t17389 * t1082 / 0.2e1;
21022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21023     v4rho3tau[3] = t51888 + t51918;
21024 
21025   t51921 = t14520 * t17563;
21026   t51923 = t14520 * t17547;
21027   t51945 = -t50661 / 0.6e1 - 0.4e1 / 0.3e1 * t51610 + t51921 / 0.2e1 + t50681 - 0.2e1 / 0.3e1 * t51923 - t1352 * t2774 * t1743 * t10282 / 0.2e1 + t44377 * t14539 * t5697 * t9 - t14133 * t17398 * t11091 / 0.6e1 - t44377 * t17398 * t11781 / 0.3e1 + t14133 * t14539 * t17561 * t455 / 0.2e1 + t14133 * t14539 * t17461 * t944 + t51761;
21028   t51955 = t14520 * t17540;
21029   t51981 = t3609 * t114;
21030   t51982 = t478 * t51981;
21031   t51990 = t33 * t51981;
21032   t52007 = t5522 * t3684 - 0.6e1 * t5524 * t11099 + t1699 * t11484 - 0.6e1 * t1855 * t17551 + 0.54e2 * t45603 * t5531 - 0.6e1 * t478 * t33109 * t1693 - 0.12e2 * t45609 * t5517 - 0.6e1 * t478 * t11098 * t5514 - 0.62888224691358024691e-1 * t474 * t3609 * t1707 + 0.37732934814814814815e0 * t51982 * t5549 - 0.62888224691358024691e-1 * t33 * t11306 * t1707 + 0.10481370781893004115e0 * t17554 * t1508 + 0.25155289876543209876e-1 * t51990 * t5558 + t5571 * t3771 * t230 + t1712 * t11763 * t230 + t17557 * t732 / 0.10e2 + t11486 * t1728 / 0.10e2 + t11764 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t3772 * t5583 + t3772 * t5611 / 0.10e2;
21033   t52013 = t43016 * t17544;
21034   t52018 = t51762 / 0.3e1 + t14133 * t43037 * t17543 * t455 / 0.3e1 - t1352 * t2753 * t5655 * t3507 / 0.6e1 - 0.2e1 / 0.9e1 * t51955 - t51783 - 0.2e1 / 0.9e1 * t50670 - t1352 * t2774 * t5655 * t3516 / 0.2e1 - t51796 + t51802 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * t52007 - 0.4e1 / 0.9e1 * t51807 + 0.4e1 / 0.3e1 * t52013 + t14133 * t51774 * t11074 / 0.9e1;
21035   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21036     v4rho3tau[4] = t51945 + t52018;
21037 
21038   t52042 = t14133 * t51910 * t11789 / 0.9e1 - t51816 / 0.3e1 + t14133 * t14134 * t17533 * t1082 + t51581 + t51818 + 0.4e1 / 0.3e1 * t51823 - 0.4e1 / 0.9e1 * t51825 - t14133 * t17470 * t11793 / 0.6e1 + t14133 * t14134 * t5677 * t3788 / 0.2e1 - t1352 * t2415 * t17963 * t767 / 0.2e1 + t14532 * t2415 * t5851 * t9 + t51887;
21039   t52059 = t14520 * t17575;
21040   t52061 = t14520 * t17568;
21041   t52064 = t14520 * t17572;
21042   t52083 = t17507 * t41;
21043   t52084 = t1101 * t52083;
21044   t52100 = -0.6e1 * t1101 * t37010 * t1751 - 0.24e2 * t46841 * t5713 - 0.9e1 / 0.100e3 * t934 * t17887 - 0.9e1 / 0.50e2 * t3367 * t5779 - 0.12e2 * t1101 * t10331 * t5710 + 0.2e1 * t5767 * t3493 * t428 + t17821 * t933 * t428 - 0.30186347851851851852e0 * t52084 * t17646 + 0.171e3 / 0.1000e4 * t934 * t17671 - 0.12e2 * t15118 * t17778 + 0.108e3 * t46758 * t5727 + 0.108e3 * t46819 * t5727 - 0.24e2 * t46755 * t5713 + 0.2e1 * t5718 * t3365 + t17783 * t875;
21045   t52131 = t3275 * t332;
21046   t52132 = t269 * t52131;
21047   t52135 = 0.54e2 * t17602 * t10328 - 0.12e2 * t5720 * t10336 - 0.12e2 * t5720 * t10332 - 0.12e2 * t17587 * t3161 - 0.6e1 * t5720 * t10339 + t17521 * t1315 / 0.5e1 - 0.12e2 * t1101 * t46826 * t1751 - 0.6e1 * t1101 * t3160 * t17583 - 0.6e1 * t12309 * t5667 + t1770 * t11056 * t428 + t10776 * t1786 / 0.5e1 + t3367 * t5807 / 0.5e1 + t5673 * t4226 / 0.10e2 + t10774 * t1786 / 0.10e2 + 0.50310579753086419752e-1 * t52132 * t5754;
21048   t52141 = t1097 * t17507;
21049   t52148 = t269 * t4810;
21050   t52166 = t1101 * t52131;
21051   t52169 = -0.35217405827160493826e-1 * t17516 * t17636 + 0.25155289876543209876e-1 * t17516 * t17874 + 0.50310579753086419752e-1 * t52141 * t5754 + t17519 * t1315 / 0.5e1 + 0.324e3 * t15112 * t17613 - 0.83850966255144032920e-1 * t52148 * t5754 + t1757 * t10772 - 0.24e2 * t15118 * t17776 - 0.12e2 * t3810 * t17496 + t3494 * t5807 / 0.5e1 + t11057 * t1786 / 0.10e2 - 0.12e2 * t3810 * t17501 - 0.9e1 / 0.100e3 * t5673 * t4191 - 0.9e1 / 0.50e2 * t3494 * t5779 + 0.75465869629629629630e0 * t52166 * t5745;
21052   t52170 = t3810 * t17507;
21053   t52173 = t3817 * t17507;
21054   t52190 = t1101 * t4810;
21055   t52208 = 0.75465869629629629630e0 * t52170 * t5745 - 0.33959641333333333334e1 * t52173 * t17860 + 0.37732934814814814815e0 * t17508 * t17854 - 0.9e1 / 0.50e2 * t934 * t17884 + 0.20962741563786008230e0 * t17504 * t1676 + 0.54e2 * t15112 * t17810 - 0.648e3 * t46838 * t17801 + 0.108e3 * t15112 * t17807 + 0.75465869629629629630e0 * t17508 * t17850 - 0.12577644938271604938e1 * t52190 * t5745 + 0.20962741563786008230e0 * t17511 * t1676 - 0.27950322085048010973e0 * t5670 * t5476 - 0.12577644938271604938e0 * t1097 * t3275 * t1765 - 0.62888224691358024691e-1 * t3808 * t831 * t1765 - 0.62888224691358024691e-1 * t269 * t10596 * t1765 + t934 * t17719 / 0.10e2;
21056   t52215 = t14520 * t17964;
21057   t52217 = -t14133 * t2404 * t5851 * t3134 / 0.3e1 + t14133 * t42281 * t5677 * t3779 / 0.6e1 + t44377 * t17470 * t11801 / 0.3e1 - t1352 * t2415 * t1801 * t11083 / 0.2e1 + t51553 / 0.6e1 - 0.2e1 / 0.3e1 * t52059 - 0.2e1 / 0.9e1 * t52061 - 0.2e1 / 0.9e1 * t51606 - 0.4e1 / 0.3e1 * t52064 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t52100 + t52135 + t52169 + t52208) - t51896 - t51900 - t52215 / 0.2e1;
21058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21059     v4rho3tau[5] = t52042 + t52217;
21060 
21061   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21062     v4rho3tau[6] = -0.2e1 * t51923 + 0.4e1 * t52013 + 0.3e1 / 0.2e1 * t14133 * t14539 * t5697 * t3516 + 0.3e1 / 0.2e1 * t51921 - 0.2e1 / 0.3e1 * t51955 - t14133 * t17398 * t11856 / 0.2e1 + t14133 * t43037 * t5697 * t3507 / 0.2e1 + 0.3e1 / 0.2e1 * t14133 * t14539 * t17561 * t944 - 0.2e1 / 0.3e1 * t51807 + t1352 * t8635 * t1743 * t11825 / 0.9e1 - t1352 * t2774 * t1743 * t11836 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t1699 * t12121 - 0.6e1 * t478 * t34961 * t1693 - 0.62888224691358024691e-1 * t33 * t12004 * t1707 + t1712 * t12284 * t230 + t12285 * t1728 / 0.10e2) + t50681 + t51762 / 0.2e1;
21063 
21064   t52271 = t5846 * t4225;
21065   t52295 = my_piecewise3(t260, 0.3e1 / 0.4e1 * t12295 * t1748, 0);
21066   t52305 = 0.3212e4 / 0.729e3 * t16044 - 0.292e3 / 0.81e2 * t16061 + 0.292e3 / 0.81e2 * t16064 + 0.73e2 / 0.54e2 * t16068 - 0.73e2 / 0.54e2 * t16071 - 0.73e2 / 0.270e3 * t1763 * t45 * t12298 * t424 + 0.73e2 / 0.45e2 * t1763 * t17679 * t1091 + 0.73e2 / 0.270e3 * t1763 * t1776 * t12298 + 0.292e3 / 0.45e2 * t5794 * t3800 - 0.146e3 / 0.135e3 * t420 * t52295 * t424 + 0.292e3 / 0.45e2 * t17698 * t1091 + 0.292e3 / 0.45e2 * t5797 * t3800 + 0.292e3 / 0.135e3 * t1780 * t12298;
21067   t52334 = 0.146e3 / 0.135e3 * t12415 * t1751 + 0.146e3 / 0.45e2 * t4210 * t5710 + 0.146e3 / 0.45e2 * t1306 * t17583 + 0.146e3 / 0.135e3 * t423 * t52295 - 0.146e3 / 0.135e3 * t12412 * t1751 * t424 - 0.146e3 / 0.45e2 * t4207 * t5710 * t424 + 0.292e3 / 0.45e2 * t17690 * t1091 - 0.146e3 / 0.45e2 * t1303 * t17583 * t424 + 0.584e3 / 0.45e2 * t17693 * t1091 - 0.146e3 / 0.81e2 * t16047 - 0.73e2 / 0.27e2 * t16050 + 0.1168e4 / 0.243e3 * t16055 - 0.12848e5 / 0.2187e4 * t16057 + 0.146e3 / 0.405e3 * t12412 * t332 * t46;
21068   t52335 = t52305 + t52334;
21069   t52348 = t17782 * t1100;
21070   t52363 = 0.513e3 / 0.1000e4 * t12495 * t52271 - 0.18e2 * t17587 * t4248 + t1342 * t52335 / 0.10e2 + 0.3e1 / 0.10e2 * t4275 * t17718 - 0.18e2 * t5720 * t12464 - 0.36e2 * t17587 * t4245 - 0.36e2 * t5720 * t12456 + 0.324e3 * t17602 * t12452 - 0.18e2 * t52348 * t1322 - 0.36e2 * t17587 * t4241 - 0.36e2 * t16241 * t17778 - 0.36e2 * t3810 * t17578 - 0.18e2 * t3810 * t17584 - 0.18e2 * t12309 * t5820 - 0.18e2 * t12309 * t5825;
21071   t52374 = t5706 * t3800;
21072   t52376 = t3794 * t5710;
21073   t52378 = t17772 * t1091;
21074   t52380 = t5711 * t3800;
21075   t52382 = t1752 * t12298;
21076   t52384 = t262 * t52295;
21077   t52387 = (0.6e1 * t1091 * t17583 + 0.2e1 * t12298 * t1751 + 0.2e1 * t261 * t52295 + 0.6e1 * t3800 * t5710 + 0.54e2 * t52374 + 0.54e2 * t52376 + 0.54e2 * t52378 + 0.54e2 * t52380 + 0.18e2 * t52382 + 0.9e1 * t52384) * t268;
21078   t52415 = -0.18e2 * t3810 * t17627 + t52387 * t441 + 0.3e1 * t5718 * t4272 + t1757 * t12397 - 0.36e2 * t1101 * t48815 * t1751 - 0.36e2 * t3810 * t17592 + t5841 * t12437 / 0.10e2 + t38091 * t1785 / 0.10e2 + 0.162e3 * t21081 * t12330 - 0.36e2 * t50500 * t5713 + 0.162e3 * t48842 * t5727 - 0.72e2 * t50503 * t5713 + 0.324e3 * t48845 * t5727 - 0.72e2 * t16197 * t17776 + 0.324e3 * t16222 * t17807;
21079   t52427 = t3818 * t17583;
21080   t52428 = t52427 * t1091;
21081   t52436 = t1754 * t12301;
21082   t52448 = t46 * t12872;
21083   t52453 = -0.36e2 * t50428 * t5713 + 0.162e3 * t48855 * t5727 - 0.72e2 * t16241 * t17776 + 0.324e3 * t16226 * t17807 - 0.36e2 * t5459 * t52378 + 0.162e3 * t5453 * t52428 - 0.36e2 * t21078 * t12303 + 0.10248451431184270690e1 * t269 * t3843 * t340 + 0.1080e4 * t5453 * t52436 - 0.83850966255144032920e0 * t1097 * t1112 * t340 + 0.3e1 / 0.10e2 * t12341 * t5806 + 0.33540386502057613168e0 * t17619 * t5754 - 0.12577644938271604938e0 * t5835 * t17874 + 0.25155289876543209876e-1 * t1795 * t52448 + 0.3e1 * t17783 * t1339;
21084   t52454 = t17800 * t12292;
21085   t52463 = t1191 * t3853 * t262 * t1091;
21086   t52466 = t1764 * t12330;
21087   t52470 = t1191 * t4083 * t1122;
21088   t52475 = t3947 * t3837 * t262 * t1091;
21089   t52494 = t3810 * t17954;
21090   t52498 = t1101 * t1112 * t41;
21091   t52501 = -0.1944e4 * t16236 * t52454 - 0.90559043555555555555e0 * t17951 * t17646 + 0.15093173925925925925e1 * t17955 * t17646 - 0.45279521777777777778e0 * t5831 * t52463 - 0.10187892400000000000e2 * t17947 * t52466 + 0.40751569600000000001e1 * t17947 * t52470 + 0.63391330488888888889e0 * t5831 * t52475 + 0.3e1 / 0.10e2 * t17939 * t4225 - 0.18e2 * t1101 * t4240 * t17583 - 0.6e1 * t1101 * t1321 * t52295 + 0.513e3 / 0.1000e4 * t38016 * t17597 - 0.27e2 / 0.100e3 * t17929 * t12485 - 0.27e2 / 0.100e3 * t38019 * t5846 - 0.27e2 / 0.100e3 * t12440 * t17633 - 0.37732934814814814814e1 * t52494 * t5832 + 0.50310579753086419752e1 * t52498 * t5832;
21092   t52509 = t12312 * t1763;
21093   t52512 = t12321 * t1763;
21094   t52516 = t12309 * t1763;
21095   t52519 = t3817 * t17954;
21096   t52541 = 0.11319880444444444444e1 * t17951 * t17944 + 0.37732934814814814815e0 * t5831 * t1764 * t12305 - 0.10187892400000000000e2 * t52509 * t17948 + 0.40751569600000000001e2 * t52512 * t1764 * t12323 + 0.11319880444444444444e1 * t52516 * t5832 + 0.16979820666666666666e2 * t52519 * t17948 - 0.20375784800000000001e2 * t17947 * t1764 * t12326 + 0.22639760888888888889e1 * t17951 * t17958 - 0.10565221748148148148e0 * t21039 * t12862 - 0.37732934814814814814e1 * t17955 * t17958 - 0.18866467407407407407e1 * t17955 * t17944 - 0.36e2 * t5459 * t52374 - 0.36e2 * t5459 * t52380 - 0.12e2 * t5459 * t52382 + 0.162e3 * t16222 * t17810;
21097   t52548 = t17806 * t3800;
21098   t52551 = t12322 * t5710;
21099   t52552 = t52551 * t3794;
21100   t52555 = t5726 * t12298;
21101   t52558 = t38189 * t1751;
21102   t52559 = t52558 * t12301;
21103   t52577 = t17821 * t1291;
21104   t52580 = t5767 * t4189;
21105   t52583 = -0.1944e4 * t48852 * t17801 + 0.162e3 * t16226 * t17810 - 0.1944e4 * t50414 * t17801 + 0.162e3 * t5453 * t52548 - 0.1944e4 * t16236 * t52552 + 0.54e2 * t5453 * t52555 + 0.9720e4 * t50425 * t52559 - 0.62888224691358024691e-1 * t12308 * t332 * t340 - 0.36e2 * t16197 * t17778 - 0.12e2 * t5720 * t12499 - 0.6e1 * t38149 * t1792 - 0.18e2 * t1101 * t12463 * t5710 - 0.36e2 * t1101 * t16193 * t5710 + 0.3e1 / 0.10e2 * t52577 * t1314 - 0.27e2 / 0.100e3 * t52580 * t4190;
21106   t52595 = t1770 * t12494;
21107   t52599 = t1191 * t3803 * t1122;
21108   t52603 = t1191 * t3805 * t1122;
21109   t52606 = t1764 * t12303;
21110   t52646 = t263 * t5710;
21111   t52647 = t52646 * t3794;
21112   t52652 = 0.36e2 * t1101 * t52378 + 0.36e2 * t1101 * t52380 + 0.12e2 * t1101 * t52382 + 0.12e2 * t12301 * t5720 + 0.36e2 * t12303 * t5720 + 0.36e2 * t12309 * t5713 - 0.324e3 * t12312 * t17807 - 0.162e3 * t12312 * t17810 + 0.1944e4 * t12321 * t52552 - 0.162e3 * t12330 * t17602 + 0.72e2 * t17776 * t3810 + 0.36e2 * t17778 * t3810 + 0.1944e4 * t17801 * t38183 + 0.1944e4 * t21285 * t52374 - 0.972e3 * t21288 * t52374 - 0.162e3 * t3817 * t52428 - 0.972e3 * t3817 * t52647 - 0.9720e4 * t38188 * t52559 - 0.162e3 * t38196 * t5727;
21113   t52661 = t38258 * t1751;
21114   t52662 = t52661 * t12301;
21115   t52673 = t5717 * t3816;
21116   t52676 = t1756 * t12320;
21117   t52695 = -0.162e3 * t3817 * t52548 - 0.54e2 * t3817 * t52555 + 0.36e2 * t1101 * t52374 - 0.972e3 * t12312 * t17613 + 0.7776e4 * t12321 * t52662 - 0.1080e4 * t3817 * t52436 + 0.6e1 * t1101 * t52384 + 0.18e2 * t52348 * t1094 + 0.18e2 * t17587 * t3805 - 0.162e3 * t52673 * t4083 + 0.648e3 * t52676 * t12323 + 0.6e1 * t5720 * t12305 + 0.6e1 * t38149 * t1754 + 0.18e2 * t12309 * t5715 + 0.18e2 * t3810 * t17780 + 0.36e2 * t17587 * t3803 - 0.324e3 * t17602 * t12326 + 0.36e2 * t3810 * t17774 + 0.36e2 * t1101 * t52376 - t52387;
21118   t52696 = t52652 + t52695;
21119   t52721 = t3995 * t332;
21120   t52722 = t269 * t52721;
21121   t52725 = t3810 * t17643;
21122   t52743 = 0.3e1 * t5767 * t4183 * t428 + t1770 * t13100 * t428 + 0.3e1 * t17821 * t1284 * t428 - 0.18e2 * t5720 * t12502 - 0.6e1 * t5720 * t13123 - 0.6e1 * t38149 * t1759 + 0.162e3 * t17602 * t13120 + 0.162e3 * t52673 * t3820 - 0.18e2 * t3810 * t17731 + 0.75465869629629629628e-1 * t52722 * t5754 - 0.90559043555555555555e0 * t52725 * t17646 + 0.63391330488888888889e0 * t17644 * t52475 + t52696 * t405 * t428 - 0.36e2 * t49276 * t5713 + t1757 * t12887 - 0.36e2 * t5720 * t12896 + 0.9720e4 * t49301 * t52559 + 0.324e3 * t16898 * t17807 + 0.162e3 * t16898 * t17810;
21123   t52747 = t269 * t5143;
21124   t52756 = t269 * t5218;
21125   t52761 = t12494 * t5806;
21126   t52769 = t17866 * t41;
21127   t52770 = t1101 * t52769;
21128   t52773 = t1101 * t5320;
21129   t52793 = -0.6e1 * t1101 * t1102 * t52295 + 0.33540386502057613168e0 * t52747 * t5754 + 0.25155289876543209876e-1 * t5753 * t52448 + 0.75465869629629629628e-1 * t17880 * t17874 - 0.12577644938271604938e0 * t17877 * t17874 - 0.25155289876543209876e0 * t52756 * t5754 + 0.513e3 / 0.1000e4 * t1285 * t17671 + 0.513e3 / 0.1000e4 * t406 * t52761 * t4190 + 0.162e3 * t50344 * t5727 - 0.90559043555555555556e0 * t17644 * t52599 - 0.90559043555555555555e0 * t52770 * t17646 + 0.15093173925925925925e1 * t52773 * t17646 - 0.45279521777777777778e0 * t17644 * t52603 + 0.22639760888888888889e1 * t17644 * t52606 - 0.10187892400000000000e2 * t21318 * t52466 + 0.40751569600000000001e1 * t21318 * t52470 - 0.45279521777777777778e0 * t17644 * t52463 - 0.18e2 * t1101 * t12905 * t5710 + 0.3e1 * t5718 * t4079 - 0.72e2 * t49158 * t5713;
21130   t52836 = -0.18e2 * t1101 * t3823 * t17583 - 0.36e2 * t1101 * t16830 * t5710 + 0.3e1 * t17783 * t1239 + t52387 * t376 - 0.72e2 * t16870 * t17776 - 0.36e2 * t16870 * t17778 + 0.972e3 * t5122 * t52647 - 0.7776e4 * t16906 * t52662 + 0.972e3 * t16895 * t17613 + 0.972e3 * t16898 * t17613 - 0.9e1 / 0.100e3 * t406 * t5778 * t12437 - 0.27e2 / 0.100e3 * t406 * t17883 * t4225 + 0.162e3 * t5122 * t52428 + 0.162e3 * t5122 * t52548 - 0.1944e4 * t16906 * t52552 + 0.54e2 * t5122 * t52555 + 0.324e3 * t49126 * t5727 + 0.162e3 * t16895 * t17810 - 0.1944e4 * t50352 * t17801;
21131   t52850 = t46 * t339 * t12301;
21132   t52861 = t4189 * t17718;
21133   t52881 = -0.36e2 * t49096 * t5713 - 0.1944e4 * t50347 * t17801 - 0.36e2 * t16875 * t17778 + 0.162e3 * t49123 * t5727 - 0.18e2 * t12309 * t5730 + 0.75465869629629629628e-1 * t17728 * t17874 + 0.75465869629629629630e0 * t5742 * t52850 - 0.10565221748148148148e0 * t17728 * t17636 - 0.10565221748148148148e0 * t17880 * t17636 + 0.324e3 * t17602 * t12890 - 0.36e2 * t17587 * t3828 - 0.27e2 / 0.100e3 * t406 * t52861 * t1314 + 0.513e3 / 0.1000e4 * t1244 * t17671 - 0.27e2 / 0.100e3 * t1285 * t17887 - 0.27e2 / 0.100e3 * t1244 * t17887 - 0.36e2 * t3810 * t17656 - 0.18e2 * t3810 * t17659 - 0.18e2 * t12309 * t5735 + 0.162e3 * t21389 * t12330 - 0.18e2 * t5720 * t12906;
21134   t52902 = t1101 * t52721;
21135   t52905 = t12321 * t5741;
21136   t52906 = t339 * t12322;
21137   t52911 = t12309 * t5741;
21138   t52914 = t3810 * t17866;
21139   t52921 = t3810 * t1590;
21140   t52927 = t39325 * t1785;
21141   t52936 = 0.513e3 / 0.1000e4 * t21496 * t52271 + t1771 * t12931 / 0.10e2 + t13110 * t1786 / 0.10e2 + 0.3e1 / 0.10e2 * t4091 * t5807 + 0.3e1 / 0.10e2 * t1244 * t17719 + 0.3e1 / 0.10e2 * t13107 * t1786 - 0.6e1 * t1101 * t39364 * t1751 + t406 * t1291 * t52335 / 0.10e2 + 0.11319880444444444444e1 * t52902 * t5745 + 0.40751569600000000001e2 * t52905 * t46 * t52906 * t12301 + 0.11319880444444444444e1 * t52911 * t5745 + 0.22639760888888888889e1 * t52914 * t5745 + 0.11319880444444444444e1 * t17863 * t17854 + 0.11319880444444444444e1 * t17867 * t17854 - 0.37732934814814814814e1 * t52921 * t5745 - 0.10565221748148148148e0 * t5753 * t46 * t50515 - 0.4959e4 / 0.10000e5 * t406 * t52927 * t12496 + 0.171e3 / 0.1000e4 * t1771 * t12936 - 0.62888224691358024691e-1 * t12308 * t330 * t1765;
21142   t52958 = t17612 * t12292;
21143   t52965 = t3817 * t1590;
21144   t52968 = t339 * t263;
21145   t52985 = -0.18866467407407407407e0 * t3808 * t1177 * t1765 + 0.3e1 / 0.10e2 * t4184 * t5807 - 0.18866467407407407407e0 * t1097 * t3995 * t1765 - 0.62888224691358024691e-1 * t269 * t12631 * t1765 - 0.12e2 * t5720 * t13112 - 0.27e2 / 0.100e3 * t5770 * t4191 - 0.27e2 / 0.100e3 * t5768 * t4191 + 0.3e1 / 0.10e2 * t17822 * t1315 + 0.3e1 / 0.5e1 * t17761 * t1315 + 0.972e3 * t5122 * t52958 - 0.37732934814814814814e1 * t17845 * t17850 - 0.18866467407407407407e1 * t17845 * t17854 + 0.16979820666666666666e2 * t52965 * t17860 - 0.20375784800000000001e2 * t17857 * t46 * t52968 * t12301 + 0.22639760888888888889e1 * t17863 * t17850 - 0.648e3 * t52676 * t12919 - 0.18e2 * t17587 * t3831 + 0.31444112345679012345e0 * t17744 * t1676 - 0.83850966255144032920e0 * t5748 * t5476 - 0.1944e4 * t16906 * t52454;
21146   t52991 = t1101 * t5143;
21147   t53023 = t1101 * t5218;
21148   t53028 = t1097 * t1590;
21149   t53031 = -0.27e2 / 0.50e2 * t4093 * t5779 - 0.27e2 / 0.50e2 * t1244 * t17884 + 0.50310579753086419752e1 * t52991 * t5745 - 0.36e2 * t3810 * t17651 - 0.18e2 * t52348 * t1103 - 0.27e2 / 0.50e2 * t1285 * t17884 + 0.3e1 / 0.10e2 * t17753 * t1315 - 0.36e2 * t1101 * t48977 * t1751 - 0.36e2 * t17587 * t3824 - 0.27e2 / 0.100e3 * t1771 * t12915 - 0.27e2 / 0.100e3 * t4184 * t5779 + 0.10248451431184270690e1 * t1762 * t16140 + 0.1080e4 * t5122 * t52436 - 0.72e2 * t16875 * t17776 + 0.324e3 * t16895 * t17807 + t13101 * t1786 / 0.10e2 + 0.3e1 / 0.10e2 * t12911 * t1786 - 0.37732934814814814814e1 * t53023 * t5745 + 0.22639760888888888889e1 * t17867 * t17850 - 0.25155289876543209876e0 * t53028 * t5754;
21150   t53032 = t3808 * t5741;
21151   t53035 = t1097 * t17866;
21152   t53042 = t46 * t12711;
21153   t53049 = t12312 * t5741;
21154   t53052 = t3817 * t17866;
21155   t53079 = 0.75465869629629629628e-1 * t53032 * t5754 + 0.15093173925925925925e0 * t53035 * t5754 - 0.27e2 / 0.100e3 * t4091 * t5779 + 0.17608702913580246913e0 * t17877 * t17636 + 0.84521773985185185182e-1 * t5753 * t53042 + 0.37732934814814814815e0 * t5742 * t46 * t5743 * t12298 - 0.10187892400000000000e2 * t53049 * t17860 - 0.10187892400000000000e2 * t53052 * t17860 + 0.3e1 / 0.5e1 * t4093 * t5807 + 0.31444112345679012345e0 * t17738 * t1676 + 0.62888224691358024690e0 * t17741 * t1676 - 0.83850966255144032920e0 * t5738 * t5476 + 0.3e1 / 0.10e2 * t5770 * t4226 + 0.3e1 / 0.10e2 * t5768 * t4226 + 0.3e1 / 0.10e2 * t1285 * t17719 - 0.12e2 * t5130 * t52382 - 0.36e2 * t5130 * t52380 - 0.36e2 * t5130 * t52378 - 0.36e2 * t5130 * t52374 - 0.36e2 * t21386 * t12303;
21156   t53091 = -0.18e2 * t5720 * t12443 - 0.6e1 * t5720 * t12446 - 0.9e1 / 0.100e3 * t4278 * t1785 * t12437 + 0.513e3 / 0.1000e4 * t12495 * t5806 * t4190 + 0.171e3 / 0.1000e4 * t52595 * t12496 - 0.90559043555555555556e0 * t5831 * t52599 - 0.45279521777777777778e0 * t5831 * t52603 + 0.22639760888888888889e1 * t5831 * t52606 - 0.27e2 / 0.100e3 * t4278 * t17718 * t1314 + t52696 * t428 - 0.6e1 * t1101 * t39388 * t1751 - p->cam_beta * (t52743 + t52793 + t52836 + t52881 + t52936 + t52985 + t53031 + t53079) - 0.27e2 / 0.50e2 * t12440 * t17630 - 0.4959e4 / 0.10000e5 * t39396 * t1785 * t12496 + 0.972e3 * t5453 * t52958;
21157   t53104 = t1101 * t332;
21158   t53127 = -0.25155289876543209876e0 * t17616 * t5754 + 0.75465869629629629628e-1 * t17622 * t5754 + 0.75465869629629629628e-1 * t5828 * t17874 - 0.10565221748148148148e0 * t5828 * t17636 + 0.17608702913580246913e0 * t5835 * t17636 + 0.84521773985185185182e-1 * t1795 * t53042 + 0.75465869629629629630e0 * t53104 * t52850 + 0.162e3 * t52673 * t4237 + 0.162e3 * t17602 * t12477 - 0.648e3 * t52676 * t12460 - 0.27e2 / 0.100e3 * t4278 * t5806 * t4225 + 0.31444112345679012345e0 * t3808 * t274 * t340 + 0.972e3 * t16222 * t17613 + 0.972e3 * t16226 * t17613 + 0.972e3 * t5453 * t52647 - 0.7776e4 * t16236 * t52662;
21159   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21160     v4rho3tau[7] = -0.3e1 / 0.2e1 * t1352 * t2415 * t17963 * t1082 - t1352 * t2415 * t1801 * t11846 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t52363 + t52415 + t52453 + t52501 + t52541 + t52583 + t53091 + t53127) - 0.2e1 * t52059 - t51816 / 0.2e1 - 0.2e1 / 0.3e1 * t51825 - t1352 * t3131 * t5851 * t3779 / 0.2e1 + t1352 * t8653 * t1801 * t11841 / 0.9e1 - 0.3e1 / 0.2e1 * t52215 - 0.3e1 / 0.2e1 * t1352 * t2415 * t5851 * t3788 + t51581 - 0.4e1 * t52064 - 0.2e1 / 0.3e1 * t52061 - t14133 * t17470 * t11852 / 0.2e1;
21161 
21162   t53156 = t43020 * t6162 / 0.6e1;
21163   t53157 = t14520 * t17970;
21164   t53159 = t14520 * t18812;
21165   t53181 = t6093 * t2305;
21166   t53184 = t478 * t4687;
21167   t53187 = t1862 * t4687;
21168   t53202 = t4296 * t4300;
21169   t53206 = t1839 * t5855 * t26;
21170   t53209 = -0.24e2 * t4310 * t14101 - 0.12e2 * t4310 * t13225 + 0.108e3 * t13213 * t13229 + 0.54e2 * t25801 * t6128 - 0.24e2 * t13277 * t4668 - 0.9e1 / 0.100e3 * t53181 * t2306 - 0.48e2 * t53184 * t4303 + 0.216e3 * t53187 * t4318 - 0.48e2 * t18065 * t13242 + 0.216e3 * t18068 * t13301 - 0.48e2 * t14097 * t18032 + 0.648e3 * t14106 * t18055 - 0.48e2 * t13261 * t18032 + 0.648e3 * t14109 * t18055 - 0.48e2 * t4660 * t53202 + 0.1080e4 * t4654 * t53206;
21171   t53214 = t1855 * t1512;
21172   t53217 = t6986 * t1512;
21173   t53221 = t6996 * t5857 * t1839;
21174   t53225 = t25875 * t5855 * t1839;
21175   t53243 = t756 * t468;
21176   t53247 = t244 * t1845;
21177   t53256 = -0.24e2 * t14097 * t18034 + 0.108e3 * t14106 * t18076 - 0.48e2 * t53214 * t4303 + 0.216e3 * t53217 * t4318 - 0.648e3 * t13254 * t53221 + 0.9720e4 * t40416 * t53225 - 0.24e2 * t18065 * t13244 + 0.648e3 * t18068 * t13297 + 0.108e3 * t18068 * t13251 + 0.171e3 / 0.1000e4 * t7915 * t6098 * t2341 - 0.12e2 * t478 * t40830 * t1356 - 0.12e2 * t478 * t27407 * t5855 - 0.24e2 * t478 * t53243 * t5855 - 0.12e2 * t478 * t53247 * t5855 - 0.6e1 * t6983 * t6137 - 0.9e1 / 0.100e3 * t2394 * t6117 * t2341;
21178   t53281 = t4300 * t4300;
21179   t53297 = 0.108e3 * t6986 * t18175 - 0.9e1 / 0.50e2 * t2394 * t1495 * t13446 - 0.24e2 * t1855 * t17973 - 0.12e2 * t1855 * t18187 - 0.12e2 * t6983 * t6131 + 0.171e3 / 0.500e3 * t40595 * t14053 + 0.171e3 / 0.1000e4 * t7915 * t6117 * t2306 - 0.24e2 * t478 * t14100 * t4300 - 0.9e1 / 0.25e2 * t40702 * t4695 - 0.24e2 * t4310 * t13205 - 0.24e2 * t478 * t2360 * t53281 - 0.12e2 * t478 * t13204 * t5857 - 0.24e2 * t1855 * t18178 - 0.24e2 * t1855 * t18182 - 0.12e2 * t478 * t4667 * t13195 - 0.12e2 * t6983 * t6134;
21180   t53298 = t6995 * t1512;
21181   t53301 = t1357 * t13195;
21182   t53304 = t5858 * t1845;
21183   t53308 = t27 * t5857 * t1839;
21184   t53311 = t18075 * t1845;
21185   t53324 = t40545 * t244;
21186   t53327 = t18054 * t1845;
21187   t53331 = t27335 * t5855 * t1839;
21188   t53334 = t4317 * t13195;
21189   t53337 = t18061 * t1845;
21190   t53340 = t4695 * t4642;
21191   t53343 = -t6139 - 0.1296e4 * t53298 * t13256 - 0.24e2 * t4660 * t53301 - 0.12e2 * t4660 * t53304 + 0.324e3 * t4654 * t53308 + 0.54e2 * t4654 * t53311 + 0.216e3 * t14109 * t18058 - 0.1296e4 * t40476 * t18062 - 0.24e2 * t18048 * t13244 + 0.648e3 * t18051 * t13297 + 0.108e3 * t18051 * t13251 - 0.1296e4 * t53324 * t13256 + 0.324e3 * t4654 * t53327 - 0.7776e4 * t13254 * t53331 + 0.108e3 * t4654 * t53334 - 0.648e3 * t13254 * t53337 + 0.171e3 / 0.250e3 * t7915 * t53340;
21192   t53346 = t6152 * t25;
21193   t53363 = t5864 * t1861;
21194   t53371 = t18036 * t477;
21195   t53374 = t18022 * t26;
21196   t53388 = t58 * t1907;
21197   t53399 = 0.292e3 / 0.135e3 * t6110 * t1845 + 0.1168e4 / 0.135e3 * t4630 * t4300 + 0.584e3 / 0.135e3 * t222 * t53281 + 0.584e3 / 0.135e3 * t1490 * t13195 + 0.146e3 / 0.135e3 * t2326 * t5857 + 0.191387e6 / 0.2361960e7 * t53388 - 0.146e3 / 0.135e3 * t2323 * t5857 * t226 + 0.584e3 / 0.135e3 * t18104 * t468 + 0.292e3 / 0.135e3 * t2323 * t5855 - 0.292e3 / 0.135e3 * t18105 + 0.584e3 / 0.135e3 * t18107;
21198   t53431 = 0.292e3 / 0.135e3 * t18113 - t6112 + t6116 + 0.803e3 / 0.10935e5 * t46 * t1893 * t1356 * t226 - 0.803e3 / 0.10935e5 * t46 * t13439 * t1356 - 0.146e3 / 0.3645e4 * t46 * t496 * t4300 * t226 + 0.292e3 / 0.3645e4 * t46 * t18087 * t468 + 0.73e2 / 0.9720e4 * t46 * t51 * t13195 * t226 - 0.73e2 / 0.2430e4 * t46 * t18091 * t468 - 0.73e2 / 0.4860e4 * t46 * t6103 * t1845 + 0.146e3 / 0.3645e4 * t46 * t4619 * t4300 - 0.73e2 / 0.9720e4 * t46 * t1486 * t13195;
21199   t53432 = t53399 + t53431;
21200   t53437 = t18167 * t708;
21201   t53441 = -0.12e2 * t478 * t53346 * t1839 + 0.108e3 * t1862 * t2352 * t53281 - 0.24e2 * t1855 * t18131 - 0.24e2 * t13277 * t4657 - 0.24e2 * t13277 * t4663 - 0.12e2 * t18120 * t2357 - 0.6e1 * t18120 * t2364 + 0.54e2 * t53363 * t2353 - 0.12e2 * t40434 * t1502 + 0.54e2 * t1862 * t27399 * t5855 - 0.12e2 * t53371 * t739 - 0.12e2 * t478 * t53374 * t468 + t759 * t53432 / 0.10e2 + t2391 * t18115 / 0.5e1 + t53437 * t731 / 0.5e1 - 0.24e2 * t18073;
21202   t53449 = t13277 * t244;
21203   t53452 = t40542 * t244;
21204   t53455 = t4310 * t756;
21205   t53458 = t13213 * t756;
21206   t53481 = -0.6e1 * t18127 * t1845 * t478 - 0.6e1 * t478 * t5857 * t7907 - 0.12e2 * t13187 * t4310 - 0.24e2 * t13190 * t4310 - 0.12e2 * t13196 * t4310 - 0.48e2 * t13242 * t18048 - 0.24e2 * t13261 * t18034 + 0.216e3 * t13301 * t18051 + 0.216e3 * t14106 * t18058 + 0.108e3 * t14109 * t18076 - 0.1296e4 * t18062 * t40403 - 0.12e2 * t18128 * t1855 - 0.48e2 * t4303 * t53449 - 0.48e2 * t4303 * t53455 + 0.216e3 * t4318 * t53452 + 0.216e3 * t4318 * t53458 + 0.108e3 * t18077;
21207   t53483 = t6152 * t1863;
21208   t53505 = t13296 * t13236;
21209   t53508 = t13255 * t13236;
21210   t53513 = t1512 * t1839;
21211   t53543 = -0.108e3 * t13213 * t13251 - 0.216e3 * t13213 * t13301 + 0.48e2 * t13242 * t4310 + 0.24e2 * t13244 * t4310 + 0.1296e4 * t13256 * t40545 + 0.48e2 * t13277 * t4303 + 0.24e2 * t18034 * t1855 - 0.108e3 * t18076 * t6986 - 0.54e2 * t1862 * t53311 - 0.216e3 * t40542 * t4318 + 0.12e2 * t478 * t53304 + 0.648e3 * t53221 * t6995;
21212   t53566 = 0.48e2 * t18032 * t1855 - 0.648e3 * t18055 * t6986 - 0.216e3 * t18058 * t6986 + 0.1296e4 * t18062 * t27298 - 0.324e3 * t1862 * t53327 - 0.108e3 * t1862 * t53334 - 0.9720e4 * t25874 * t53225 + 0.48e2 * t478 * t53202 + 0.24e2 * t478 * t53301 + 0.648e3 * t53337 * t6995 - 0.108e3 * t18163 + 0.24e2 * t18165;
21213   t53577 = t1845 * t5855;
21214   t53585 = t25 * t53281;
21215   t53588 = t1839 * t5857;
21216   t53593 = -0.108e3 * t1862 * t1863 * t53281 + 0.12e2 * t13246 * t4310 + 0.24e2 * t18030 * t1855 + 0.12e2 * t18120 * t1848 - 0.54e2 * t25801 * t6086 + 0.12e2 * t478 * t53577 + 0.24e2 * t478 * t53585 + 0.12e2 * t478 * t53588 + 0.12e2 * t5860 * t6983 + 0.6e1 * t5862 * t6983 + 0.12e2 * t18161 + t6092;
21217   t53631 = 0.4e1 * t13195 * t1356 + 0.2e1 * t1845 * t5857 + 0.4e1 * t18028 + 0.36e2 * t18034 + 0.72e2 * t53202 + 0.4e1 * t53281 + 0.36e2 * t53301 + 0.18e2 * t53304 + 0.18e2 * t53577 + 0.36e2 * t53585 + 0.18e2 * t53588 + t5859 + t5863;
21218   t53632 = t53631 * t32;
21219   t53633 = -0.648e3 * t13213 * t13297 + 0.24e2 * t13240 * t4310 + 0.24e2 * t13277 * t4305 + 0.12e2 * t1359 * t40434 + 0.6e1 * t18120 * t1850 - 0.1080e4 * t1862 * t53206 - 0.324e3 * t1862 * t53308 + 0.2592e4 * t20701 * t53202 - 0.1296e4 * t20704 * t53202 - 0.54e2 * t2158 * t53363 + 0.12e2 * t471 * t53371 + 0.7776e4 * t53331 * t6995 - t53632;
21220   t53635 = t53543 + t53566 + t53593 + t53633;
21221   t53638 = 0.54e2 * t1862 * t53483 * t1839 - 0.24e2 * t4310 * t14045 - 0.4959e4 / 0.10000e5 * t27492 * t6098 * t2306 - 0.9e1 / 0.50e2 * t7894 * t18190 - 0.9e1 / 0.25e2 * t7894 * t17978 + t4690 * t13446 / 0.5e1 + 0.171e3 / 0.500e3 * t27414 * t17981 - 0.9e1 / 0.50e2 * t13201 * t13220 - 0.9e1 / 0.50e2 * t2394 * t18115 * t731 + 0.1296e4 * t4654 * t53505 - 0.2592e4 * t13254 * t53508 - 0.12e2 * t18120 * t2361 - 0.24e2 * t478 * t53513 * t1356 + 0.2e1 / 0.5e1 * t13272 * t4642 + t53635 * t230 + t1853 * t6152;
21222   t53641 = t4500 * t13541;
21223   t53644 = t4554 * t4356;
21224   t53654 = t6143 * t1882;
21225   t53657 = t17993 * t506;
21226   t53660 = t40758 * t1372;
21227   t53668 = t6143 * t1911;
21228   t53673 = t1881 * t4356;
21229   t53674 = t53673 * t506;
21230   t53677 = t17999 * t1911;
21231   t53683 = -0.35684620164609053498e-1 * t46 * t53641 - 0.1568e4 / 0.375e3 * t7883 * t53644 - 0.16737460732074723200e-2 * t7875 * t5891 + 0.17853291447546371413e-1 * t2380 * t18019 - 0.56535422917230176142e-1 * t753 * t53388 - 0.28405861928149673088e-2 * t7819 * t55 * t53654 - 0.13772539116678629376e-1 * t17989 * t53657 - 0.34891628605395518976e0 * t46 * t53660 - 0.56237868059771069952e-2 * t7883 * t55 * t53654 - 0.24994608026564919978e-1 * t18016 * t53657 + 0.23432445024904612480e-2 * t18016 * t53668 - 0.26644516389574759946e0 * t4351 * t18000 + 0.99916936460905349794e-1 * t1367 * t53674 + 0.49958468230452674897e-1 * t1367 * t53677 + 0.46864890049809224960e-2 * t7878 * t55 * t17990;
21232   t53684 = t41107 * t1882;
21233   t53689 = t13729 * t4356;
21234   t53692 = t1372 * t13541;
21235   t53695 = t5883 * t1882;
21236   t53698 = t5883 * t1911;
21237   t53710 = t4356 * t4356;
21238   t53724 = -0.11990032375308641975e0 * t1367 * t53684 + 0.12911755421886215040e-2 * t17989 * t53668 + 0.19031797421124828532e0 * t46 * t53689 + 0.196e3 / 0.225e3 * t2383 * t53692 + 0.6664e4 / 0.1875e4 * t27450 * t53695 - 0.392e3 / 0.375e3 * t7883 * t53698 - 0.264e3 / 0.125e3 * t14060 * t13877 - 0.784e3 / 0.375e3 * t27462 * t18008 + 0.392e3 / 0.225e3 * t7878 * t18011 - 0.36344200446790827520e-1 * t6142 * t57 * t1907 + 0.12e2 / 0.25e2 * t1933 * t53710 - 0.66e2 / 0.125e3 * t17984 * t1911 + 0.12e2 / 0.25e2 * t4671 * t13541 + 0.98e2 / 0.225e3 * t27459 * t5883 + 0.1056e4 / 0.625e3 * t26455 * t5883 * t1882 + 0.196e3 / 0.225e3 * t2383 * t53710;
21239   t53731 = t4642 * t4642;
21240   t53780 = 0.2e1 * t18037 * t633 - 0.24e2 * t4310 * t13370 + 0.108e3 * t13326 * t18076 + 0.54e2 * t4316 * t53311 - 0.648e3 * t13333 * t53221 + 0.648e3 * t13339 * t18055 + 0.108e3 * t13213 * t13321 + 0.54e2 * t25801 * t5871 + t208 * t708 * t53432 / 0.10e2 + t702 * t18243 / 0.5e1 + t638 * t18243 / 0.5e1 - 0.1296e4 * t40996 * t18062 - 0.648e3 * t13333 * t53337 + 0.9720e4 * t42157 * t53225 + 0.1080e4 * t4316 * t53206 - 0.7776e4 * t13333 * t53331 + 0.216e3 * t13339 * t18058 + 0.216e3 * t13326 * t18058;
21241   t53790 = t6986 * t1473;
21242   t53793 = t13277 * t160;
21243   t53796 = t6995 * t1473;
21244   t53799 = t1862 * t4584;
21245   t53802 = t478 * t4584;
21246   t53805 = t1855 * t1473;
21247   t53822 = -0.48e2 * t13242 * t18271 - 0.24e2 * t13244 * t18271 - 0.1296e4 * t13256 * t53796 + 0.648e3 * t13297 * t18792 - 0.48e2 * t13336 * t18032 - 0.48e2 * t13344 * t18032 + 0.2e1 * t1362 * t14031 + t160 * t53632 - 0.1296e4 * t18062 * t41007 - 0.24e2 * t18203 * t1855 - 0.48e2 * t4303 * t53793 - 0.48e2 * t4303 * t53802 - 0.48e2 * t4303 * t53805 + 0.108e3 * t4316 * t53334 + 0.216e3 * t4318 * t53790 + 0.216e3 * t4318 * t53799 - 0.48e2 * t4324 * t53202 - 0.24e2 * t4324 * t53301;
21248   t53828 = t40545 * t160;
21249   t53837 = t40542 * t160;
21250   t53840 = t13213 * t633;
21251   t53847 = t4310 * t633;
21252   t53864 = -0.12e2 * t25932 * t478 * t5855 - 0.48e2 * t13242 * t18278 - 0.24e2 * t13244 * t18278 + 0.108e3 * t13251 * t18281 + 0.108e3 * t13251 * t18792 - 0.1296e4 * t13256 * t53828 - 0.24e2 * t13277 * t4332 + 0.648e3 * t13297 * t18281 + 0.216e3 * t13301 * t18281 + 0.216e3 * t13301 * t18792 + 0.648e3 * t13326 * t18055 - 0.24e2 * t13336 * t18034 - 0.24e2 * t13344 * t18034 - 0.48e2 * t4303 * t53847 + 0.324e3 * t4316 * t53327 + 0.216e3 * t4318 * t53837 + 0.216e3 * t4318 * t53840 - 0.12e2 * t18250;
21253   t53928 = 0.52659211111111111112e-1 * t13722 * t1466 + 0.14744579111111111111e-1 * t6062 * t1884 - 0.21063684444444444444e-1 * t13723 * t1470 + 0.6664e4 / 0.3375e4 * t579 * t26341 * t53695 + 0.29489158222222222222e-1 * t156 * t13971 + 0.14744579111111111111e-1 * t2151 * t6073 - 0.392e3 / 0.675e3 * t579 * t7574 * t53698 + 0.392e3 / 0.405e3 * t2068 * t18378 + 0.392e3 / 0.405e3 * t2071 * t18378 + 0.196e3 / 0.405e3 * t579 * t1928 * t53692 + 0.392e3 / 0.405e3 * t13492 * t4573 + 0.11233965037037037037e0 * t1462 * t13896 - 0.10531842222222222222e-1 * t6062 * t1915 + 0.58978316444444444444e-1 * t13978 * t18311 + 0.18873061262222222222e0 * t4557 * t41122 * t18008 - 0.15727551051851851852e0 * t4557 * t13974 * t18011 + 0.29489158222222222222e-1 * t4557 * t4558 * t53692;
21254   t53941 = t18516 * t41;
21255   t53944 = t18299 * t41;
21256   t53969 = 0.58978316444444444444e-1 * t18305 * t13968 - 0.1568e4 / 0.675e3 * t41106 * t41107 * t13877 - 0.70773979733333333333e-1 * t18305 * t13982 + 0.29489158222222222222e-1 * t18305 * t13971 - 0.19494580960219478738e0 * t4405 * t496 * t124 + 0.77978323840877914953e-1 * t53941 * t583 - 0.28e2 / 0.81e2 * t53944 * t583 - 0.14e2 / 0.81e2 * t18356 * t2074 - 0.28e2 / 0.81e2 * t41454 * t1425 - 0.14620935720164609054e-1 * t41463 * t1425 - 0.29241871440329218108e-1 * t13746 * t4511 - 0.14620935720164609054e-1 * t4504 * t13762 + 0.98e2 / 0.405e3 * t7711 * t5988 + 0.196e3 / 0.405e3 * t7727 * t5988 + 0.98e2 / 0.405e3 * t7569 * t5988 + 0.29489158222222222223e-1 * t1462 * t13726 + 0.77978323840877914954e-1 * t41458 * t1425 + 0.20469310008230452676e-1 * t18359 * t1929;
21257   t54005 = t18405 * t18416;
21258   t54018 = t8735 * t55;
21259   t54030 = t18405 * t18410;
21260   t54036 = t37 * t489 * t1938;
21261   t54038 = 0.13283698993710097778e-4 * t54036 * t5892;
21262   t54039 = t18405 * t18419;
21263   t54045 = -0.66418494968550488888e-5 * t54005 - 0.10626959194968078222e-3 * t5889 * t18414 * t17993 * t454 - 0.69042025519808233200e-4 * t5889 * t41240 * t55 * t53654 - 0.35068965343394658133e-3 * t5889 * t18409 * t53657 - 0.13283698993710097778e-4 * t5889 * t54018 * t6143 * t1970 + 0.32877155009432492000e-4 * t5889 * t18409 * t53668 + 0.99627742452825733333e-5 * t5889 * t18414 * t6143 * t1975 - 0.21918103339621661334e-4 * t54030 - 0.10095611235219674311e-2 * t5889 * t5890 * t53388 - t54038 - 0.10626959194968078222e-3 * t54039 + 0.77e2 / 0.9000e4 * t5889 * t41235 * t18008 * t454;
21264   t54063 = 0.11e2 / 0.4050e4 * t490 * t26154 * t5884;
21265   t54068 = t1969 * t5883;
21266   t54074 = t490 * t26158 * t18391;
21267   t54077 = t490 * t7442 * t18396;
21268   t54080 = t490 * t7442 * t18400;
21269   t54091 = t38 * t40 * t1952;
21270   t54093 = t513 * t55 * t57;
21271   t54094 = t63 * t506;
21272   t54099 = -0.77e2 / 0.1500e4 * t5889 * t41240 * t53644 - 0.11e2 / 0.1350e4 * t5889 * t13511 * t41230 * t4356 + 0.11e2 / 0.900e3 * t490 * t1953 * t1373 * t13541 + 0.2387e4 / 0.60000e5 * t490 * t26164 * t5884 * t1882 + t54063 + 0.11e2 / 0.900e3 * t490 * t1953 * t71 * t53710 + 0.11e2 / 0.4050e4 * t490 * t1953 * t54068 * t1970 + 0.77e2 / 0.9000e4 * t54074 + 0.11e2 / 0.8100e4 * t54077 - 0.11e2 / 0.1350e4 * t54080 - 0.77e2 / 0.6000e4 * t490 * t7409 * t5884 * t1911 - 0.11e2 / 0.5400e4 * t490 * t1953 * t18395 * t1975 - 0.21918103339621661334e-4 * t54091 * t54093 * t54094 * t454;
21273   t54101 = my_piecewise3(t76, 0, t54045 + t54099);
21274   t54124 = t7673 * t1377;
21275   t54127 = t7644 * t1377;
21276   t54130 = t4368 * t4362;
21277   t54133 = t5962 * t1987;
21278   t54136 = t5959 * t1987;
21279   t54142 = t18423 * t519;
21280   t54143 = t54142 * t86;
21281   t54146 = t5896 * t1981;
21282   t54147 = t54146 * t86;
21283   t54153 = t1407 * t13547;
21284   t54156 = 0.24e2 * t14661 * t13564 - 0.9e1 * t14664 * t13564 + t14667 * t13564 / 0.2e1 + 0.28e2 * t54124 * t13564 - 0.2e1 * t54127 * t13564 - 0.48e2 * t14676 * t54130 + 0.6e1 * t7682 * t54133 - 0.48e2 * t26563 * t54136 + 0.48e2 * t614 * t5902 * t1987 + t2107 * t54143 / 0.2e1 + t2107 * t54147 / 0.4e1 + t7655 * t54133 / 0.8e1 + t7664 * t18585 + t2107 * t54153 / 0.2e1;
21285   t54159 = t5901 * t1981;
21286   t54160 = t54159 * t86;
21287   t54186 = t26687 * t18582 / 0.4e1 + t7655 * t54160 / 0.8e1 + t26679 * t54136 / 0.16e2 - 0.3e1 * t13678 * t13562 - 0.9e1 / 0.2e1 * t41667 * t13559 + t41791 * t4383 + t13671 * t13564 + t13671 * t13562 / 0.2e1 + t41786 * t13559 / 0.4e1 + 0.12e2 * t26714 * t18582 + 0.6e1 * t7682 * t54160 - 0.12e2 * t614 * t18469 * t1987 + 0.12e2 * t41664 * t13559 - 0.30e2 * t2107 * t54136;
21288   t54218 = t4362 * t4362;
21289   t54227 = t18628 * t519;
21290   t54229 = t6001 * t1981;
21291   t54231 = t1987 * t5901;
21292   t54233 = t5999 * t1981;
21293   t54235 = t83 * t54218;
21294   t54237 = t1430 * t13547;
21295   t54239 = 0.307200e6 * t101 * t54218 + 0.307200e6 * t13547 * t1432 + 0.307200e6 * t18636 * t519 + 0.614400e6 * t1981 * t6003 + 0.153600e6 * t1981 * t6005 - 0.34560e5 * t54227 - 0.17280e5 * t54229 - 0.34560e5 * t54231 - 0.34560e5 * t54233 - 0.34560e5 * t54235 - 0.34560e5 * t54237;
21296   t54240 = t1377 * t13547;
21297   t54245 = t77 * t54101;
21298   t54247 = t128 * t54101;
21299   t54251 = t5950 * t1987;
21300   t54257 = t1401 * t13599;
21301   t54261 = 0.30720e5 * t130 * t54101 + 0.2457600e7 * t13599 * t1403 + 0.1843200e7 * t1987 * t5952 + 0.614400e6 * t1987 * t5954 + 0.896e3 * t54142 + 0.448e3 * t54146 + 0.896e3 * t54218 + 0.896e3 * t54240 + 0.448e3 * t54245 - 0.5760e4 * t54247 - 0.34560e5 * t54251 - 0.138240e6 * t54257;
21302   t54265 = 0.7e1 * t7673 * t54160 + 0.15e2 / 0.2e1 * t26708 * t54136 - 0.2e1 * t2138 * t54153 - t7644 * t54160 / 0.2e1 - t26699 * t54136 / 0.4e1 - 0.12e2 * t614 * t5912 * t1981 + 0.8e1 * t614 * t1382 * t13547 + 0.2880e4 * t615 * t18585 - 0.3e1 * t7679 * t18574 - 0.3e1 * t2102 * t54143 - 0.3e1 / 0.2e1 * t2102 * t54147 - 0.9e1 / 0.4e1 * t7667 * t54133 + t7664 * t18574 / 0.2e1 + 0.24e2 * t128 * (t54239 + t54261);
21303   t54294 = t6015 * t1999;
21304   t54299 = -0.2e1 * t614 * t84 * t54101 + 0.480e3 * t1411 * t13686 + 0.720e3 * t2012 * t5962 + 0.288e3 * t2110 * t54142 + 0.576e3 * t11338 * t18443 - 0.960e3 * t18493 * t557 - 0.480e3 * t5927 * t2048 - 0.960e3 * t1387 * t13665 + 0.720e3 * t5959 * t2143 + 0.240e3 * t2056 * t6044 + 0.480e3 * t561 * t18542 + 0.240e3 * t106 * t54101 * t81 + 0.288e3 * t2110 * t54240 - 0.3e1 / 0.2e1 * t54294 * t2045 + 0.2e1 * t13676 * t4386;
21305   t54306 = t54101 * t86;
21306   t54313 = t54218 * t86;
21307   t54325 = t6015 * t2006;
21308   t54331 = t4447 * t13665 + t26673 * t5959 / 0.4e1 + t2100 * t18554 + t598 * t54306 / 0.2e1 - 0.2880e4 * t2140 * t5959 + 0.288e3 * t7634 * t18448 - 0.2e1 * t2138 * t54313 + 0.8e1 * t614 * t525 * t54218 + t2107 * t54313 / 0.2e1 - 0.3e1 * t2102 * t54313 + t18562 * t2048 / 0.2e1 + t54325 * t2045 / 0.4e1 + t41783 * t1407 - 0.3e1 / 0.2e1 * t26558 * t5959;
21309   t54344 = t18656 * t525;
21310   t54346 = t7699 * t54130;
21311   t54362 = 0.144e3 * t2110 * t54146 + t7670 * t5962 / 0.2e1 + 0.288e3 * t13711 * t13597 + 0.576e3 * t13711 * t13599 + 0.576e3 * t7634 * t18443 + 0.576e3 * t41531 * t4368 + t54344 * t557 - 0.1440e4 * t54346 + 0.288e3 * t33585 * t5901 + 0.144e3 * t26593 * t5901 + 0.144e3 * t41540 * t1377 + 0.288e3 * t43669 * t1377 + 0.144e3 * t8957 * t5896 + 0.72e2 * t601 * t54101 + 0.144e3 * t33566 * t5901;
21312   t54393 = 0.72e2 * t7637 * t5896 + 0.144e3 * t2113 * t18423 + 0.288e3 * t13704 * t4362 + 0.144e3 * t4464 * t13547 + 0.75e2 / 0.4e1 * t26580 * t54136 - 0.6e1 * t7679 * t18585 - 0.3e1 * t2102 * t54153 - 0.9e1 / 0.2e1 * t26577 * t18582 - 0.9e1 / 0.4e1 * t7667 * t54160 - 0.9e1 / 0.4e1 * t26574 * t54136 + 0.8e1 * t614 * t18472 * t519 + 0.4e1 * t614 * t5915 * t1981 + 0.7e1 * t7673 * t54133 - t2138 * t54147;
21313   t54402 = t7699 * t54159;
21314   t54404 = t26322 * t5959;
21315   t54406 = t26388 * t54231;
21316   t54408 = t2000 * t5962;
21317   t54425 = t132 * t18423;
21318   t54453 = 0.3072e4 * t13547 * t1401 + 0.323316e6 * t13547 * t1446 - 0.17694720e8 * t13547 * t4440 - 0.138240e6 * t13599 * t1430 + 0.3233160e7 * t13599 * t1432 - 0.247726080e9 * t13599 * t1434 - 0.61931520e8 * t18646 * t1981 - 0.8847360e7 * t18651 * t1981 + 0.3072e4 * t18660 * t519 + 0.323316e6 * t18676 * t519 + 0.1536e4 * t1981 * t5950 - 0.34560e5 * t1981 * t5952 + 0.808290e6 * t1981 * t6034 + 0.161658e6 * t1981 * t6036 - 0.61931520e8 * t1987 * t6009 - 0.17694720e8 * t519 * t54425 - 0.8e1 * t54101 + 0.6144e4 * t54130;
21319   t54489 = -0.2880e4 * t101 * t54101 - 0.23040e5 * t128 * t54218 + 0.323316e6 * t130 * t54218 - 0.17694720e8 * t132 * t54218 - 0.1105920e7 * t134 * t54101 - 0.23040e5 * t13547 * t1403 + 0.26943e5 * t141 * t54101 - 0.23040e5 * t18668 * t519 - 0.11520e5 * t1981 * t5954 + 0.1536e4 * t1987 * t5896 - 0.69120e5 * t1987 * t5999 - 0.34560e5 * t1987 * t6001 + 0.3233160e7 * t1987 * t6003 + 0.808290e6 * t1987 * t6005 - 0.371589120e9 * t1987 * t6007 + 0.768e3 * t54101 * t83 + 0.3072e4 * t54218 * t77 + 0.1536e4 * t54159;
21320   t54492 = t77 * t6038;
21321   t54497 = t83 * t18678;
21322   t54500 = -0.2e1 * t2138 * t54143 - t7644 * t54133 / 0.2e1 - 0.6e1 * t41670 * t4383 - 0.6e1 * t13678 * t13564 - 0.360e3 * t54402 - 0.240e3 * t54404 + 0.2640e4 * t54406 - 0.360e3 * t54408 + 0.480e3 * t78 * t54218 * t81 - 0.960e3 * t79 * t54218 * t86 + 0.288e3 * t2110 * t54218 + (t54453 + t54489) * t86 + 0.144e3 * t54492 * t1987 + 0.72e2 * t18566 * t1981 + 0.144e3 * t54497 * t519;
21323   t54511 = 0.196e3 / 0.405e3 * t579 * t1928 * t53710 - 0.42127368888888888890e-1 * t4497 * t4501 - 0.21063684444444444445e-1 * t1462 * t13735 - 0.21063684444444444444e-1 * t2151 * t6069 - 0.56e2 / 0.81e2 * t13492 * t4511 - 0.28e2 / 0.81e2 * t41469 * t1425 - 0.56e2 / 0.81e2 * t13738 * t4511 - 0.42127368888888888888e-1 * t623 * t18003 - 0.21063684444444444444e-1 * t156 * t53641 - 0.28405861928149673088e-2 * t7820 * t55 * t53654 - 0.13772539116678629376e-1 * t18351 * t53657 + 0.11233965037037037038e0 * t1462 * t13730 - 0.14042456296296296297e0 * t18688 * t626 - 0.28e2 / 0.81e2 * t4517 * t13762 + 0.98e2 / 0.405e3 * t18356 * t1929 - 0.56e2 / 0.81e2 * t41466 * t1425 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t54101 * t151 + 0.16e2 / 0.7e1 * t18423 * t618 + 0.8e1 / 0.7e1 * t5896 * t2146 + 0.16e2 / 0.7e1 * t13547 * t1457 + 0.32e2 / 0.7e1 * t4362 * t4492 + 0.16e2 / 0.7e1 * t1377 * t13718 + 0.8e1 / 0.7e1 * t1981 * t6057 + 0.16e2 / 0.7e1 * t519 * t18683 + 0.8e1 / 0.7e1 * t77 * (t54156 + t54186 + t54265 + t54299 + t54331 + t54362 + t54393 + t54500)) * t41 * t45 * t157;
21324   t54556 = 0.35740065093735711020e0 * t1418 * t1893 * t124 - 0.28084912592592592594e0 * t4496 * t4418 - 0.264e3 / 0.125e3 * t7820 * t53644 - 0.19244565184762958916e-3 * t121 * t7573 * t63 * t1882 - 0.85531400821168706294e-3 * t121 * t1881 * t502 * t506 + 0.51489006419753086422e0 * t1461 * t13885 + 0.11233965037037037037e0 * t4497 * t4562 - 0.20595602567901234567e0 * t1462 * t14005 + 0.58978316444444444444e-1 * t623 * t4559 - 0.78637755259259259258e-1 * t623 * t18511 - 0.10916965337722908094e0 * t13743 * t4573 + 0.40938620016460905352e-1 * t13746 * t4573 - 0.21063684444444444444e-1 * t1462 * t13891 + 0.14416921797530864197e0 * t156 * t1894 * t6072 + 0.29489158222222222222e-1 * t156 * t52 * t1881 * t53710 - 0.784e3 / 0.675e3 * t4517 * t14008 - 0.49126344019753086422e-1 * t4504 * t14008 + 0.40938620016460905352e-1 * t4504 * t14017;
21325   t54587 = t18302 * t41;
21326   t54595 = 0.20469310008230452676e-1 * t4504 * t14020 - 0.784e3 / 0.675e3 * t2068 * t18375 - 0.784e3 / 0.675e3 * t2071 * t18375 + 0.58978316444444444444e-1 * t156 * t13968 - 0.15727551051851851852e0 * t156 * t13975 - 0.70773979733333333333e-1 * t156 * t13982 + 0.56169825185185185185e-1 * t6062 * t1921 - 0.21063684444444444444e-1 * t18688 * t630 + 0.392e3 / 0.405e3 * t13738 * t4573 + 0.392e3 / 0.405e3 * t4517 * t14017 + 0.196e3 / 0.405e3 * t4517 * t14020 - 0.42127368888888888888e-1 * t4497 * t4566 + 0.11477115930565524480e-1 * t1900 * t18019 + 0.97721063434861552838e-5 * t18324 * t18320 - 0.29241871440329218108e-1 * t54587 * t583 - 0.14620935720164609054e-1 * t18359 * t2074 + 0.80185688269845662151e-4 * t121 * t18295 * t1911;
21327   t54606 = t18289 * t1881;
21328   t54625 = t1377 * t565;
21329   t54632 = t77 * t18769;
21330   t54687 = t14931 * t13564 / 0.2e1 + 0.24e2 * t14925 * t13564 - 0.9e1 * t14928 * t13564 - 0.144e3 * t54218 + t7516 * t18585 + t2051 * t54153 / 0.2e1 + t26308 * t18582 / 0.4e1 + t7500 * t54160 / 0.8e1 + t13822 * t13562 / 0.2e1 + t41335 * t13559 / 0.4e1 + 0.6e1 * t7538 * t54160 + 0.75e2 / 0.4e1 * t26287 * t54136 - 0.3e1 * t2044 * t54153 - 0.9e1 / 0.4e1 * t7505 * t54160 - 0.6e1 * t41343 * t4383 + t41332 * t4383 - 0.6e1 * t13831 * t13564 + t13822 * t13564 + 0.12e2 * t26274 * t18582;
21331   t54722 = t13834 * t13564;
21332   t54725 = 0.10e2 * t13842 * t13564;
21333   t54726 = t7504 * t5896;
21334   t54728 = 0.5e1 / 0.2e1 * t54726 * t2045;
21335   t54729 = -0.6e1 * t7535 * t18585 - 0.9e1 / 0.2e1 * t26300 * t18582 - 0.3e1 * t13831 * t13562 - 0.9e1 / 0.2e1 * t41340 * t13559 + 0.6e1 * t7538 * t54133 + 0.12e2 * t41317 * t13559 - 0.30e2 * t2051 * t54136 + t26297 * t54136 / 0.16e2 - 0.9e1 / 0.4e1 * t26284 * t54136 - 0.3e1 * t7535 * t18574 - 0.3e1 * t2044 * t54143 - 0.3e1 / 0.2e1 * t2044 * t54147 - 0.9e1 / 0.4e1 * t7505 * t54133 + t7516 * t18574 / 0.2e1 + t2051 * t54143 / 0.2e1 + t2051 * t54147 / 0.4e1 + t7500 * t54133 / 0.8e1 + 0.80e2 * t54722 - t54725 - t54728;
21336   t54731 = t1999 * t18423;
21337   t54732 = t54731 * t557;
21338   t54735 = 0.5e1 / 0.2e1 * t18466 * t2048;
21339   t54736 = t26252 * t5901;
21340   t54737 = t54736 * t2045;
21341   t54739 = t18469 * t2048;
21342   t54741 = t5918 * t2045;
21343   t54743 = t1986 * t5896;
21344   t54744 = t54743 * t2045;
21345   t54746 = t5902 * t2048;
21346   t54748 = t18437 * t2045;
21347   t54750 = t4399 * t13665;
21348   t54752 = 0.1536e4 * t54251;
21349   t54754 = t1999 * t54218 * t86;
21350   t54757 = t79 * t54101 * t86;
21351   t54759 = 0.1536e4 * t54227;
21352   t54760 = 0.768e3 * t54229;
21353   t54761 = 0.1536e4 * t54233;
21354   t54762 = 0.1536e4 * t54237;
21355   t54766 = 0.1536e4 * t54231;
21356   t54767 = 0.1536e4 * t54235;
21357   t54769 = -0.10e2 * t54732 - t54735 - 0.5e1 / 0.4e1 * t54737 - 0.5e1 * t54739 - 0.100e3 * t54741 + 0.20e2 * t54744 + 0.20e2 * t54746 + 0.55e2 / 0.2e1 * t54748 - 0.10e2 * t54750 + t54752 - 0.10e2 * t54754 - 0.10e2 * t54757 + t54759 + t54760 + t54761 + t54762 + 0.10e2 * t78 * t54101 * t81 + t54766 + t54767 - 0.144e3 * t54240;
21358   t54773 = 0.256e3 * t54247;
21359   t54778 = t5956 * t2006;
21360   t54782 = t5956 * t1999;
21361   t54792 = 0.6144e4 * t54257;
21362   t54800 = t18766 * t525;
21363   t54807 = 0.80e2 * t54218 + 0.80e2 * t54240 + 0.40e2 * t54146 + 0.80e2 * t54142 + 0.40e2 * t54245 - t54766 - t54792 - t54761 - t54767 - t54762 - t54752 - t54759 - t54760 - t54773;
21364   t54809 = -0.72e2 * t54146 - 0.144e3 * t54142 - 0.72e2 * t54245 + t54773 + t26292 * t5959 / 0.4e1 + t18720 * t2048 / 0.2e1 + t54778 * t2045 / 0.4e1 + t41320 * t1407 - 0.3e1 / 0.2e1 * t54782 * t2045 + t2051 * t54313 / 0.2e1 - 0.3e1 * t2044 * t54313 + t7511 * t5962 / 0.2e1 + t2042 * t18554 + t54792 + t556 * t54306 / 0.2e1 + t4378 * t13665 - 0.3e1 / 0.2e1 * t26271 * t5959 + 0.2e1 * t13828 * t4386 + t54800 * t557 + t54807 * t86;
21365   t54814 = 0.48e2 * t5901 * t2061 + 0.192e3 * t14854 * t4362 + 0.96e2 * t41142 * t1377 + 0.96e2 * t43946 * t1377 + 0.192e3 * t43949 * t1377 + 0.96e2 * t54218 * t109 + 0.192e3 * t54625 * t4362 + 0.96e2 * t18697 * t13547 + 0.48e2 * t1987 * t5974 + 0.96e2 * t54632 * t519 + 0.48e2 * t547 * t54101 + 0.96e2 * t2028 * t18423 + 0.48e2 * t7396 * t5896 + 0.96e2 * t4365 * t13547 + 0.48e2 * t9068 * t5896 + 0.96e2 * t9071 * t5896 + 0.96e2 * t2855 * t18423 + 0.48e2 * t18714 * t1981 + 0.192e3 * t13795 * t4362 + 0.24e2 * t83 * (t54687 + t54729 + t54769 + t54809);
21366   t54836 = t6078 * t7573;
21367   t54845 = 0.70e2 / 0.81e2 * t18772 * t575 * t124 + 0.16037137653969132430e-3 * t569 * t18296 + 0.16037137653969132430e-3 * t576 * t18296 + 0.36552339300411522634e-1 * t13867 * t51 * t124 - 0.78176850747889242270e-4 * t6076 * t54606 * t506 + 0.35e2 / 0.81e2 * t5977 * t1896 * t124 + 0.35e2 / 0.81e2 * t54814 * t120 * t124 - 0.10759796184905179200e-2 * t7566 * t5891 + 0.1056e4 / 0.625e3 * t26456 * t53695 - 0.132e3 / 0.125e3 * t42054 * t13901 + 0.55840607677063744478e-4 * t18324 * t18290 - 0.19346388280978635948e-2 * t121 * t581 * t1907 + 0.6e1 / 0.25e2 * t26461 * t5883 - 0.2e1 / 0.5e1 * t4580 * t13541 + 0.48860531717430776419e-5 * t6076 * t18319 * t1911 - 0.11726527612183386341e-4 * t6076 * t54836 * t1882 + 0.12e2 / 0.25e2 * t13991 * t13880 - 0.34900379798164840299e-5 * t2149 * sigma[0] * t6079;
21368   t54851 = t6077 * t47;
21369   t54862 = t18501 * t543;
21370   t54889 = -0.66e2 / 0.125e3 * t7820 * t53698 + 0.12e2 / 0.25e2 * t1934 * t53692 - 0.25128273454678685015e-3 * t6076 / t54851 * t581 + 0.24e2 / 0.25e2 * t13991 * t13877 - 0.132e3 / 0.125e3 * t26741 * t18008 + 0.24e2 / 0.25e2 * t7734 * t18011 - 0.2e1 / 0.5e1 * t54862 * t506 - 0.35386989866666666666e-1 * t4557 * t13981 * t53698 + 0.12031576554666666666e0 * t4557 * t41111 * t53695 + 0.58978316444444444444e-1 * t4496 * t212 * t4559 - 0.15727551051851851852e0 * t18305 * t13975 - 0.70773979733333333332e-1 * t13978 * t18308 + 0.77978323840877914954e-1 * t13743 * t4511 + 0.25823510843772430080e-2 * t7734 * t55 * t17990 + 0.12911755421886215040e-2 * t18351 * t53668 - 0.57275491621318330108e-4 * t2065 * t5991 + 0.61093857729406218782e-3 * t569 * t18316;
21371   t54913 = t18773 * t41;
21372   t54924 = t5935 * t1933;
21373   t54950 = t26296 * t5901;
21374   t54963 = t7499 * t5896;
21375   t54966 = -0.8e1 * t54218 * t87 + 0.30e2 * t54722 - t54725 + t13948 * t13564 / 0.2e1 + t54950 * t2045 / 0.16e2 - 0.2e1 * t1454 * t13665 - t54728 - 0.4e1 * t54732 - t54735 - 0.19e2 / 0.8e1 * t54737 - 0.2e1 * t54739 - 0.75e2 / 0.2e1 * t54741 + 0.15e2 / 0.2e1 * t54744 - t2143 * t5962 + t18475 * t2048 / 0.4e1 + t54963 * t2045 / 0.8e1;
21376   t54974 = t2006 * t18423;
21377   t54997 = t4538 * t13665 / 0.2e1 - 0.2e1 * t18533 * t557 + 0.15e2 / 0.2e1 * t54746 + 0.85e2 / 0.4e1 * t54748 - 0.4e1 * t54750 + t54974 * t557 / 0.2e1 + t18480 * t2048 / 0.8e1 - 0.4e1 * t54754 - 0.2e1 * t84 * t54218 * t86 - t54757 - 0.8e1 * t18483 * t13547 + t2006 * t54218 * t86 / 0.2e1 + t525 * t54101 * t86 / 0.2e1 - 0.4e1 * t8842 * t5896 - 0.8e1 * t2836 * t18423 - 0.4e1 * t529 * t54101;
21378   t55023 = 0.4e1 * t519 * t18495 + 0.2e1 * t77 * (t54966 + t54997) + 0.4e1 * t1377 * t13960 + 0.2e1 * t54101 * t90 + 0.8e1 * t4362 * t4546 + 0.2e1 * t1981 * t5929 + 0.4e1 * t18423 * t534 + 0.4e1 * t13547 * t1389 + 0.2e1 * t5896 * t2018 - t41402 * t13564 + 0.14e2 * t4538 * t13564 - 0.24e2 * t54346 - 0.6e1 * t54402 - 0.24e2 * t54404 + 0.7e1 / 0.2e1 * t2007 * t5962;
21379   t55040 = t26380 * t5901;
21380   t55052 = 0.24e2 * t54406 - 0.6e1 * t54408 + 0.4e1 * t1991 * t54240 - t8794 * t5962 / 0.2e1 - t2814 * t18554 - t8797 * t5962 / 0.4e1 + 0.7e1 / 0.2e1 * t5918 * t2048 + 0.15e2 / 0.4e1 * t18480 * t2045 - t13834 * t13665 - t18437 * t2048 / 0.4e1 - t55040 * t2045 / 0.8e1 + 0.4e1 * t1991 * t54142 + 0.2e1 * t1991 * t54146 - t521 * t54101 + 0.4e1 * t1991 * t54218 - t1986 * t54218 * t86;
21381   t55058 = 0.61093857729406218782e-3 * t576 * t18316 + 0.24e2 / 0.25e2 * t41836 * t4554 - 0.57275491621318330108e-4 * t1897 * t5991 - 0.11455098324263666022e-3 * t1887 * t5991 - 0.2e1 / 0.5e1 * t41843 * t1372 - 0.14154795946666666666e0 * t4557 * t13981 * t53644 + 0.12e2 / 0.25e2 * t1934 * t53710 + 0.11233965037037037037e0 * t623 * t17996 - 0.14296026037494284408e0 * t41512 * t1425 - 0.36344200446790827520e-1 * t544 * t53388 - t18366 * t1911 / 0.5e1 - 0.28e2 / 0.81e2 * t54913 * t583 - 0.4e1 / 0.5e1 * t14002 * t4356 + 0.11233965037037037037e0 * t156 * t53689 - 0.20595602567901234567e0 * t156 * t53660 + 0.25744503209876543210e0 * t6062 * t1918 + 0.6e1 / 0.25e2 * t54924 * t1882 + (-0.8e1 / 0.3e1 * t54101 * t93 - 0.16e2 / 0.3e1 * t18423 * t537 - 0.8e1 / 0.3e1 * t5896 * t2021 - 0.16e2 / 0.3e1 * t13547 * t1392 - 0.32e2 / 0.3e1 * t4362 * t4549 - 0.16e2 / 0.3e1 * t1377 * t13963 - 0.8e1 / 0.3e1 * t1981 * t5932 - 0.16e2 / 0.3e1 * t519 * t18498 - 0.8e1 / 0.3e1 * t77 * (t55023 + t55052)) * t98;
21382   t55074 = -0.12e2 * t4324 * t53304 + 0.324e3 * t4316 * t53308 + 0.108e3 * t13339 * t18076 - 0.12e2 * t4310 * t13481 - 0.12e2 * t18120 * t1869 - 0.9e1 / 0.50e2 * t1478 * t13357 - 0.2592e4 * t13333 * t53508 - 0.12e2 * t18264 - 0.24e2 * t1855 * t18266 + 0.2e1 * t13249 * t1473 + 0.4e1 * t4308 * t4584 - 0.12e2 * t1855 * t18263 + t33 * (t53928 + t53969 + t54511 + t54556 + t54595 + t54845 + t54889 + t55058) + 0.2e1 / 0.5e1 * t4597 * t4643 - 0.12e2 * t1855 * t18253 - 0.24e2 * t4310 * t13454 + t2300 * t6118 / 0.10e2 - 0.12e2 * t478 * t42224 * t1356;
21383   t55102 = t18780 * t26;
21384   t55108 = t160 * t1845;
21385   t55121 = -0.6e1 * t478 * t18252 * t1845 + t2168 * t6118 / 0.5e1 + t53635 * t207 * t230 - 0.9e1 / 0.25e2 * t4597 * t4608 - 0.12e2 * t6983 * t5877 - 0.12e2 * t478 * t4331 * t13195 - 0.12e2 * t18120 * t1873 + 0.2e1 / 0.5e1 * t4599 * t4643 - 0.9e1 / 0.50e2 * t208 * t2305 * t53731 - 0.9e1 / 0.50e2 * t638 * t18196 - 0.9e1 / 0.50e2 * t702 * t18196 - 0.12e2 * t478 * t55102 * t468 - 0.24e2 * t4310 * t13464 - 0.12e2 * t478 * t55108 * t5855 - 0.6e1 * t6983 * t5880 - 0.12e2 * t478 * t13365 * t5857 + 0.2e1 / 0.5e1 * t14037 * t1496 - 0.9e1 / 0.25e2 * t1478 * t13317;
21386   t55152 = t1473 * t1839;
21387   t55158 = t6082 * t25;
21388   t55164 = -0.24e2 * t4310 * t13366 + t1478 * t13447 / 0.5e1 - t5882 - 0.9e1 / 0.100e3 * t208 * t18195 * t2341 - 0.9e1 / 0.50e2 * t208 * t2305 * t18115 * t731 - 0.24e2 * t478 * t13369 * t4300 + t14033 * t1496 / 0.5e1 + t6094 * t2342 / 0.10e2 - 0.24e2 * t1855 * t18258 - 0.6e1 * t478 * t7377 * t5857 - 0.9e1 / 0.25e2 * t4599 * t4608 + 0.2e1 * t474 * t18780 + t5865 * t2154 + 0.171e3 / 0.500e3 * t1478 * t13376 - 0.24e2 * t478 * t55152 * t1356 - 0.9e1 / 0.50e2 * t2168 * t6099 - 0.12e2 * t478 * t55158 * t1839 + t18784 * t732 / 0.5e1;
21389   t55166 = t633 * t468;
21390   t55210 = -0.24e2 * t478 * t55166 * t5855 - 0.24e2 * t13277 * t4321 - 0.24e2 * t1855 * t18200 - 0.12e2 * t40434 * t1364 - 0.12e2 * t4310 * t13354 - 0.6e1 * t18120 * t1876 + 0.54e2 * t53363 * t1865 - 0.9e1 / 0.50e2 * t208 * t4607 * t13446 - 0.4959e4 / 0.10000e5 * t208 * t26764 * t6098 * t2306 + 0.171e3 / 0.1000e4 * t208 * t7029 * t6117 * t2306 - 0.24e2 * t13277 * t4327 + t18276 * t732 / 0.5e1 - 0.9e1 / 0.100e3 * t2166 * t6099 - 0.9e1 / 0.100e3 * t2300 * t6099 + t2166 * t6118 / 0.10e2 + 0.2e1 * t18167 * t701 * t230 + t6093 * t2299 * t230 + t14035 * t1496 / 0.5e1;
21391   t55228 = t6082 * t1863;
21392   t55252 = t1853 * t6082 + 0.108e3 * t6986 * t18223 - 0.9e1 / 0.25e2 * t702 * t18206 - 0.9e1 / 0.25e2 * t638 * t18206 + 0.171e3 / 0.1000e4 * t208 * t18211 * t2341 + 0.171e3 / 0.500e3 * t702 * t18212 - 0.12e2 * t4310 * t13362 + 0.108e3 * t1862 * t1864 * t53281 + 0.54e2 * t1862 * t55228 * t1839 - 0.12e2 * t6983 * t5874 + 0.171e3 / 0.500e3 * t638 * t18212 - 0.12e2 * t53371 * t480 + 0.54e2 * t1862 * t25912 * t5855 + 0.171e3 / 0.250e3 * t20773 * t53340 - 0.24e2 * t478 * t1872 * t53281 - 0.9e1 / 0.100e3 * t6094 * t2307 - 0.24e2 * t18797 + 0.108e3 * t18799 + 0.1296e4 * t4316 * t53505;
21393   t55266 = 0.2e1 * t474 * t18022 + t33 * (t53683 + t53724) - 0.12e2 * t18185 - 0.12e2 * t18188 - 0.9e1 / 0.25e2 * t13201 * t13269 - 0.9e1 / 0.50e2 * t2394 * t53731 + 0.2e1 * t1362 * t14093 + t53632 * t244 + t40588 * t1495 / 0.5e1 + 0.2e1 * t13249 * t1512 + 0.4e1 * t4308 * t4687 - p->cam_beta * (t53780 + t53822 + t53864 + t55074 + t55121 + t55164 + t55210 + t55252) + 0.2e1 * t18037 * t756 + t5865 * t2388 + t18045 * t2341 / 0.10e2 - 0.9e1 / 0.100e3 * t27431 * t6098 + t7854 * t6117 / 0.10e2;
21394   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21395     v4rho2sigma2[0] = -t53156 - 0.4e1 / 0.3e1 * t53157 - t53159 - t1352 * t2753 * t6161 * t1812 / 0.6e1 - t1352 * t2774 * t18811 * t455 - t1352 * t2774 * t6161 * t1827 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t53209 + t53256 + t53297 + t53343 + t53441 + t53481 + t53638 + t55266);
21396 
21397   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21398     v4rho2sigma2[1] = 0.0e0;
21399 
21400   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21401     v4rho2sigma2[2] = 0.0e0;
21402 
21403   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21404     v4rho2sigma2[3] = 0.0e0;
21405 
21406   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21407     v4rho2sigma2[4] = 0.0e0;
21408 
21409   t55274 = t43020 * t6470 / 0.6e1;
21410   t55275 = t14520 * t18818;
21411   t55277 = t14520 * t19226;
21412   t55308 = 0.11e2 / 0.4050e4 * t490 * t31421 * t6194;
21413   t55310 = t490 * t10366 * t18842;
21414   t55312 = t2442 * t6193;
21415   t55322 = 0.13283698993710097778e-4 * t54036 * t6200;
21416   t55323 = t18405 * t18851;
21417   t55325 = t10378 * t55;
21418   t55335 = my_piecewise3(t295, 0, t55308 + 0.11e2 / 0.8100e4 * t55310 + 0.11e2 / 0.4050e4 * t490 * t3882 * t55312 * t2443 - 0.11e2 / 0.5400e4 * t490 * t3882 * t18841 * t2448 - t55322 - 0.66418494968550488888e-5 * t55323 - 0.13283698993710097778e-4 * t5889 * t55325 * t6451 * t2443 + 0.99627742452825733333e-5 * t5889 * t18849 * t6451 * t2448);
21419   t55355 = t4729 * t4723;
21420   t55356 = t8039 * t55355;
21421   t55365 = t24889 * t6209;
21422   t55368 = t2454 * t6209;
21423   t55369 = t8039 * t55368;
21424   t55371 = t1545 * t14162;
21425   t55379 = t787 * t18855;
21426   t55382 = t2454 * t6204;
21427   t55385 = 0.14e2 * t4745 * t14315 - t42403 * t14315 - 0.24e2 * t55356 + 0.7e1 / 0.2e1 * t6226 * t2521 + 0.15e2 / 0.4e1 * t18912 * t2518 - t14200 * t14262 - t18869 * t2521 / 0.4e1 - t55365 * t2518 / 0.8e1 - 0.6e1 * t55369 + 0.4e1 * t2464 * t55371 - t9562 * t6270 / 0.2e1 - t3192 * t19002 - t9565 * t6270 / 0.4e1 + 0.4e1 * t2464 * t55379 + 0.2e1 * t2464 * t55382;
21428   t55388 = t2460 * t6204;
21429   t55389 = t8039 * t55388;
21430   t55391 = t18898 * t2518;
21431   t55393 = t2460 * t6209;
21432   t55394 = t24907 * t55393;
21433   t55410 = t14200 * t14315;
21434   t55413 = 0.10e2 * t14206 * t14315;
21435   t55414 = t4723 * t4723;
21436   t55418 = t2472 * t55414 * t304;
21437   t55423 = t297 * t55335 * t304;
21438   t55439 = t24961 * t6209;
21439   t55440 = t55439 * t2518;
21440   t55442 = t2472 * t18855;
21441   t55443 = t55442 * t820;
21442   t55445 = t18901 * t2521;
21443   t55447 = t14219 * t14315 / 0.2e1 + 0.30e2 * t55410 - t55413 - 0.8e1 * t55414 * t305 - 0.4e1 * t55418 - 0.4e1 * t797 * t55335 - t55423 + t793 * t55335 * t304 / 0.2e1 - 0.8e1 * t18915 * t14162 - 0.4e1 * t9610 * t6204 - 0.8e1 * t3214 * t18855 + t2479 * t55414 * t304 / 0.2e1 - 0.2e1 * t302 * t55414 * t304 - 0.19e2 / 0.8e1 * t55440 - 0.4e1 * t55443 - 0.2e1 * t55445;
21444   t55448 = t8058 * t6204;
21445   t55450 = 0.5e1 / 0.2e1 * t55448 * t2518;
21446   t55451 = t2479 * t18855;
21447   t55456 = t8068 * t6204;
21448   t55463 = t24945 * t6209;
21449   t55471 = t6226 * t2518;
21450   t55473 = t2459 * t6204;
21451   t55474 = t55473 * t2518;
21452   t55476 = t6210 * t2521;
21453   t55478 = t18869 * t2518;
21454   t55480 = t4739 * t14262;
21455   t55483 = 0.5e1 / 0.2e1 * t18898 * t2521;
21456   t55484 = -t55450 + t55451 * t820 / 0.2e1 + t18907 * t2521 / 0.4e1 + t55456 * t2518 / 0.8e1 + t4745 * t14262 / 0.2e1 + t18912 * t2521 / 0.8e1 + t55463 * t2518 / 0.16e2 - 0.2e1 * t1622 * t14262 - t2607 * t6270 - 0.2e1 * t864 * t19002 - 0.75e2 / 0.2e1 * t55471 + 0.15e2 / 0.2e1 * t55474 + 0.15e2 / 0.2e1 * t55476 + 0.85e2 / 0.4e1 * t55478 - 0.4e1 * t55480 - t55483;
21457   t55497 = 0.7e1 / 0.2e1 * t2480 * t6270 - 0.6e1 * t55389 - 0.24e2 * t55391 + 0.24e2 * t55394 + 0.4e1 * t14162 * t1557 + 0.8e1 * t4723 * t4755 + 0.4e1 * t1545 * t14233 + 0.4e1 * t18855 * t802 + 0.2e1 * t6204 * t2491 + 0.2e1 * t55335 * t308 + 0.2e1 * t296 * (t55447 + t55484) + 0.2e1 * t2454 * t6237 + 0.4e1 * t787 * t18927 - t2459 * t55414 * t304 + 0.4e1 * t2464 * t55414 - t789 * t55335;
21458   t55511 = t296 * t19022;
21459   t55545 = t6267 * t2460;
21460   t55548 = t6270 * t2460;
21461   t55555 = t55382 * t304;
21462   t55560 = t1575 * t14162;
21463   t55563 = t55368 * t304;
21464   t55568 = 0.1536e4 * t55393;
21465   t55569 = t301 * t55414;
21466   t55570 = 0.1536e4 * t55569;
21467   t55575 = t296 * t55335;
21468   t55577 = t1569 * t14183;
21469   t55578 = 0.6144e4 * t55577;
21470   t55579 = t6307 * t2454;
21471   t55580 = 0.1536e4 * t55579;
21472   t55581 = t1598 * t14162;
21473   t55582 = 0.1536e4 * t55581;
21474   t55583 = t6258 * t2460;
21475   t55584 = 0.1536e4 * t55583;
21476   t55585 = t19163 * t787;
21477   t55586 = 0.1536e4 * t55585;
21478   t55587 = t6309 * t2454;
21479   t55588 = 0.768e3 * t55587;
21480   t55589 = t344 * t55335;
21481   t55590 = 0.256e3 * t55589;
21482   t55591 = 0.80e2 * t55414 + 0.80e2 * t55371 + 0.40e2 * t55382 + 0.80e2 * t55379 + 0.40e2 * t55575 - t55568 - t55578 - t55580 - t55570 - t55582 - t55584 - t55586 - t55588 - t55590;
21483   t55597 = -0.144e3 * t55414 + 0.12e2 * t42576 * t14303 - 0.30e2 * t2524 * t55545 + 0.6e1 * t8140 * t55548 - 0.6e1 * t42579 * t4788 - 0.6e1 * t14275 * t14315 + t2524 * t55555 / 0.4e1 + t8127 * t55548 / 0.8e1 + t2524 * t55560 / 0.2e1 + t8127 * t55563 / 0.8e1 + t25024 * t55545 / 0.16e2 + t55568 + t55570 + t55591 * t304 - 0.144e3 * t55371 - 0.72e2 * t55382 - 0.144e3 * t55379 - 0.72e2 * t55575 + t55590;
21484   t55617 = t19002 * t787;
21485   t55629 = 0.10e2 * t78 * t55335 * t299 + t55582 + t55580 + t55586 + t55588 + t55584 + t42598 * t14303 / 0.4e1 + 0.6e1 * t8140 * t55563 + 0.75e2 / 0.4e1 * t25004 * t55545 - 0.3e1 * t2517 * t55560 - 0.9e1 / 0.4e1 * t8120 * t55563 - 0.9e1 / 0.4e1 * t25041 * t55545 - 0.3e1 / 0.2e1 * t2517 * t55555 - 0.9e1 / 0.4e1 * t8120 * t55548 - 0.3e1 * t2517 * t55617 + t2524 * t55617 / 0.2e1 + t8117 * t18978 + t25038 * t18975 / 0.4e1 + t14269 * t14306 / 0.2e1 - 0.3e1 * t14275 * t14306;
21486   t55646 = t6264 * t2479;
21487   t55658 = t55335 * t304;
21488   t55663 = t55414 * t304;
21489   t55666 = -0.9e1 / 0.2e1 * t42583 * t14303 + t42593 * t4788 + t14269 * t14315 + 0.12e2 * t25008 * t18975 - 0.6e1 * t8137 * t18978 - 0.9e1 / 0.2e1 * t25018 * t18975 - 0.3e1 * t8137 * t18983 + t8117 * t18983 / 0.2e1 + 0.80e2 * t55410 - t55413 + t55646 * t2518 / 0.4e1 + t42573 * t1575 + 0.2e1 * t14265 * t4791 + t4783 * t14262 - 0.3e1 / 0.2e1 * t25015 * t6267 + t8112 * t6270 / 0.2e1 + t2515 * t19002 + t819 * t55658 / 0.2e1 + t25032 * t6267 / 0.4e1 + t2524 * t55663 / 0.2e1;
21490   t55669 = t6264 * t2472;
21491   t55672 = t19016 * t793;
21492   t55692 = t55578 - 0.3e1 * t2517 * t55663 - 0.3e1 / 0.2e1 * t55669 * t2518 + t55672 * t820 + t18992 * t2521 / 0.2e1 - 0.10e2 * t55418 - 0.10e2 * t55423 + 0.24e2 * t15275 * t14315 - 0.9e1 * t15278 * t14315 + t15281 * t14315 / 0.2e1 - 0.5e1 / 0.4e1 * t55440 - 0.10e2 * t55443 - 0.5e1 * t55445 - t55450 - 0.100e3 * t55471 + 0.20e2 * t55474 + 0.20e2 * t55476 + 0.55e2 / 0.2e1 * t55478 - 0.10e2 * t55480 - t55483;
21493   t55699 = t1545 * t828;
21494   t55704 = 0.48e2 * t2460 * t6282 + 0.96e2 * t55511 * t787 + 0.48e2 * t18958 * t2454 + 0.48e2 * t9633 * t6204 + 0.96e2 * t9636 * t6204 + 0.96e2 * t3233 * t18855 + 0.48e2 * t8092 * t6204 + 0.96e2 * t2501 * t18855 + 0.48e2 * t810 * t55335 + 0.192e3 * t14257 * t4723 + 0.96e2 * t4771 * t14162 + 0.48e2 * t6209 * t2534 + 0.96e2 * t44455 * t1545 + 0.192e3 * t44459 * t1545 + 0.192e3 * t15180 * t4723 + 0.96e2 * t42480 * t1545 + 0.24e2 * t301 * (t55597 + t55629 + t55666 + t55692) + 0.96e2 * t55414 * t327 + 0.192e3 * t55699 * t4723 + 0.96e2 * t18941 * t14162;
21495   t55740 = t8255 * t1545;
21496   t55743 = t8240 * t1545;
21497   t55763 = -0.1440e4 * t55356 - 0.9e1 * t15494 * t14315 + t15497 * t14315 / 0.2e1 + 0.28e2 * t55740 * t14315 - 0.2e1 * t55743 * t14315 + 0.24e2 * t15490 * t14315 - 0.360e3 * t55369 - 0.360e3 * t55389 - 0.240e3 * t55391 + 0.2640e4 * t55394 - 0.12e2 * t863 * t6220 * t2454 + 0.8e1 * t863 * t1550 * t14162 + 0.2880e4 * t864 * t18978 + 0.8e1 * t863 * t18904 * t787;
21498   t55793 = 0.4e1 * t863 * t6223 * t2454 + t25197 * t55545 / 0.16e2 + 0.7e1 * t8255 * t55563 + 0.15e2 / 0.2e1 * t25156 * t55545 - 0.2e1 * t2602 * t55560 - t8240 * t55563 / 0.2e1 - t25112 * t55545 / 0.4e1 - 0.9e1 / 0.2e1 * t25162 * t18975 - 0.9e1 / 0.4e1 * t8222 * t55563 - 0.9e1 / 0.4e1 * t25192 * t55545 - 0.3e1 * t8249 * t18983 - 0.3e1 * t2566 * t55617 - 0.3e1 / 0.2e1 * t2566 * t55555 - 0.9e1 / 0.4e1 * t8222 * t55548;
21499   t55822 = t19191 * t793;
21500   t55824 = t8219 * t18983 / 0.2e1 + t2571 * t55617 / 0.2e1 + t2571 * t55555 / 0.4e1 + t8227 * t55548 / 0.8e1 + t8219 * t18978 + t2571 * t55560 / 0.2e1 + t25189 * t18975 / 0.4e1 + t8227 * t55563 / 0.8e1 + 0.240e3 * t324 * t55335 * t299 - 0.960e3 * t18925 * t820 - 0.480e3 * t6235 * t2521 - 0.960e3 * t1555 * t14262 - 0.2e1 * t863 * t302 * t55335 + t55822 * t820;
21501   t55827 = t6323 * t2479;
21502   t55855 = t19090 * t2521 / 0.2e1 + t55827 * t2518 / 0.4e1 + t42763 * t1575 - 0.2e1 * t2602 * t55617 - t8240 * t55548 / 0.2e1 - 0.6e1 * t42688 * t4788 - 0.6e1 * t14358 * t14315 - 0.3e1 * t14358 * t14306 - 0.9e1 / 0.2e1 * t42691 * t14303 + t42768 * t4788 + t14373 * t14315 + t14373 * t14306 / 0.2e1 + 0.48e2 * t863 * t6210 * t2460 - 0.12e2 * t863 * t18901 * t2460 + 0.12e2 * t42733 * t14303;
21503   t55884 = -0.30e2 * t2571 * t55545 + 0.75e2 / 0.4e1 * t25165 * t55545 + 0.6e1 * t8252 * t55548 - 0.48e2 * t25183 * t55545 + t42773 * t14303 / 0.4e1 + 0.12e2 * t25176 * t18975 + 0.6e1 * t8252 * t55563 - 0.6e1 * t8249 * t18978 - 0.3e1 * t2566 * t55560 + 0.7e1 * t8255 * t55548 - t2602 * t55555 + 0.2e1 * t14368 * t4791 + t4838 * t14262 - 0.3e1 / 0.2e1 * t25159 * t6267;
21504   t55909 = t296 * t6346;
21505   t55912 = t301 * t19154;
21506   t55919 = t2571 * t55663 / 0.2e1 - 0.2e1 * t2602 * t55663 + 0.144e3 * t31924 * t6209 + 0.288e3 * t31927 * t6209 + 0.144e3 * t25130 * t6209 + 0.144e3 * t42924 * t1545 - 0.960e3 * t297 * t55414 * t304 + 0.288e3 * t2574 * t55414 + 0.288e3 * t45002 * t1545 + 0.144e3 * t9869 * t6204 + 0.480e3 * t78 * t55414 * t299 + 0.144e3 * t55909 * t2460 + 0.144e3 * t55912 * t787 + 0.72e2 * t19060 * t2454 - 0.48e2 * t15506 * t55355;
21507   t55949 = -0.2880e4 * t2604 * t6267 + 0.720e3 * t2485 * t6270 + t25186 * t6267 / 0.4e1 + 0.576e3 * t10701 * t18875 + 0.576e3 * t8260 * t18875 + 0.288e3 * t2574 * t55371 + 0.576e3 * t42939 * t4729 + 0.576e3 * t14387 * t14183 + 0.288e3 * t14387 * t14186 + 0.288e3 * t8260 * t18880 + 0.288e3 * t2574 * t55379 + 0.144e3 * t2574 * t55382 + 0.480e3 * t1579 * t14355 + 0.720e3 * t6267 * t2607;
21508   t55962 = t6323 * t2472;
21509   t55994 = 0.307200e6 * t14162 * t1600 + 0.307200e6 * t19171 * t787 + 0.614400e6 * t2454 * t6311 + 0.153600e6 * t2454 * t6313 + 0.307200e6 * t319 * t55414 + 0.30720e5 * t346 * t55335 - 0.34560e5 * t55393 - 0.34560e5 * t55579 - 0.34560e5 * t55581 - 0.34560e5 * t55585 - 0.17280e5 * t55587;
21510   t56010 = 0.2457600e7 * t14183 * t1571 + 0.1843200e7 * t2460 * t6260 + 0.614400e6 * t2460 * t6262 + 0.896e3 * t55371 + 0.896e3 * t55379 + 0.448e3 * t55382 + 0.896e3 * t55414 - 0.34560e5 * t55569 + 0.448e3 * t55575 - 0.138240e6 * t55577 - 0.34560e5 * t55583 - 0.5760e4 * t55589;
21511   t56019 = t348 * t18855;
21512   t56049 = 0.3072e4 * t14162 * t1569 - 0.23040e5 * t14162 * t1571 + 0.323316e6 * t14162 * t1614 - 0.17694720e8 * t14162 * t4831 + 0.3233160e7 * t14183 * t1600 + 0.3072e4 * t19012 * t787 - 0.23040e5 * t19014 * t787 + 0.323316e6 * t19152 * t787 - 0.61931520e8 * t19181 * t2454 - 0.8847360e7 * t19186 * t2454 + 0.1536e4 * t2454 * t6258 - 0.34560e5 * t2454 * t6260 - 0.11520e5 * t2454 * t6262 + 0.808290e6 * t2454 * t6342 + 0.161658e6 * t2454 * t6344 - 0.17694720e8 * t56019 * t787 - 0.8e1 * t55335 + 0.6144e4 * t55355;
21513   t56084 = -0.138240e6 * t14183 * t1598 - 0.247726080e9 * t14183 * t1602 - 0.69120e5 * t2460 * t6307 - 0.34560e5 * t2460 * t6309 + 0.3233160e7 * t2460 * t6311 + 0.808290e6 * t2460 * t6313 - 0.371589120e9 * t2460 * t6315 - 0.61931520e8 * t2460 * t6317 + 0.3072e4 * t296 * t55414 + 0.768e3 * t301 * t55335 - 0.2880e4 * t319 * t55335 - 0.23040e5 * t344 * t55414 + 0.323316e6 * t346 * t55414 - 0.17694720e8 * t348 * t55414 - 0.1105920e7 * t350 * t55335 + 0.26943e5 * t357 * t55335 + 0.1536e4 * t55368 + 0.1536e4 * t55388;
21514   t56087 = 0.240e3 * t2529 * t6352 + 0.480e3 * t824 * t19080 + 0.8e1 * t863 * t793 * t55414 + t8243 * t6270 / 0.2e1 + t2564 * t19002 + t847 * t55658 / 0.2e1 - 0.3e1 / 0.2e1 * t55962 * t2518 - 0.3e1 * t2566 * t55663 + 0.288e3 * t14398 * t4723 + 0.144e3 * t4855 * t14162 + 0.72e2 * t8263 * t6204 + 0.144e3 * t2577 * t18855 + 0.72e2 * t850 * t55335 + 0.24e2 * t344 * (t55994 + t56010) + (t56049 + t56084) * t304;
21515   t56109 = (-0.8e1 / 0.3e1 * t55335 * t311 - 0.16e2 / 0.3e1 * t18855 * t805 - 0.8e1 / 0.3e1 * t6204 * t2494 - 0.16e2 / 0.3e1 * t14162 * t1560 - 0.32e2 / 0.3e1 * t4723 * t4758 - 0.16e2 / 0.3e1 * t1545 * t14236 - 0.8e1 / 0.3e1 * t2454 * t6240 - 0.16e2 / 0.3e1 * t787 * t18930 - 0.8e1 / 0.3e1 * t296 * (t55385 + t55497)) * t316 - 0.2e1 / 0.5e1 * t45320 * t1540 + 0.6e1 / 0.25e2 * t31329 * t6193 - 0.10759796184905179200e-2 * t9630 * t6199 + 0.35e2 / 0.81e2 * t55704 * t336 * t340 + 0.36552339300411522634e-1 * t14328 * t274 * t340 - 0.28e2 / 0.81e2 * t45355 * t1593 - 0.14620935720164609054e-1 * t45311 * t1593 + 0.98e2 / 0.405e3 * t9727 * t6296 - 0.57275491621318330108e-4 * t2538 * t6299 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t55335 * t367 + 0.16e2 / 0.7e1 * t18855 * t867 + 0.8e1 / 0.7e1 * t6204 * t2610 + 0.16e2 / 0.7e1 * t14162 * t1625 + 0.32e2 / 0.7e1 * t4723 * t4883 + 0.16e2 / 0.7e1 * t1545 * t14494 + 0.8e1 / 0.7e1 * t2454 * t6365 + 0.16e2 / 0.7e1 * t787 * t19195 + 0.8e1 / 0.7e1 * t296 * (t55763 + t55793 + t55824 + t55855 + t55884 + t55919 + t55949 + t56087)) * t41 * t45 * t373 + 0.52659211111111111112e-1 * t14498 * t1634 - 0.21063684444444444444e-1 * t14499 * t1638 - 0.21063684444444444444e-1 * t2615 * t6377 + 0.14744579111111111111e-1 * t2615 * t6381 - 0.34900379798164840299e-5 * t2613 * sigma[2] * t6387;
21516   t56119 = t6175 * t2618 - 0.12e2 * t5116 * t14143 + 0.2e1 * t1530 * t14506 + 0.54e2 * t3817 * t31302 * t6165 - 0.12e2 * t1101 * t44422 * t1524 - 0.12e2 * t1101 * t31310 * t6165 - 0.6e1 * t1101 * t9497 * t6167 + t269 * t56109 + t6401 * t2743 * t428 + t14508 * t1664 / 0.5e1 - 0.9e1 / 0.100e3 * t2744 * t6407 + t2744 * t6426 / 0.10e2;
21517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21518     v4rho2sigma2[5] = -t55274 - 0.4e1 / 0.3e1 * t55275 + t55277 - t1352 * t3131 * t6469 * t2406 / 0.6e1 + t14133 * t14134 * t19224 * t767 - t1352 * t2415 * t6469 * t2421 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * t56119;
21519 
21520   t56126 = t14520 * t19230;
21521   t56140 = t14520 * t19619;
21522   t56150 = t478 * t5087;
21523   t56159 = t1862 * t5087;
21524   t56172 = -0.12e2 * t1855 * t19244 - 0.12e2 * t1855 * t19241 - 0.24e2 * t56150 * t4303 - 0.648e3 * t44308 * t18062 + 0.324e3 * t14550 * t18055 + 0.108e3 * t14550 * t18058 + 0.108e3 * t56159 * t4318 - 0.24e2 * t14556 * t18032 - 0.12e2 * t14556 * t18034 + 0.54e2 * t14550 * t18076 + t15067 * t1496 / 0.5e1 + t15065 * t1496 / 0.5e1;
21525   t56189 = t19607 * t26;
21526   t56202 = t19609 * t732 / 0.10e2 - 0.12e2 * t478 * t44345 * t1356 - 0.6e1 * t1855 * t19247 - 0.6e1 * t478 * t8705 * t5857 - 0.9e1 / 0.100e3 * t1075 * t18196 + 0.171e3 / 0.1000e4 * t1075 * t18212 - 0.9e1 / 0.50e2 * t1075 * t18206 - 0.6e1 * t478 * t56189 * t468 - 0.12e2 * t478 * t14563 * t4300 - 0.12e2 * t13277 * t4911 - 0.12e2 * t4310 * t14564 + 0.54e2 * t6986 * t19238;
21527   t56206 = t1034 * t468;
21528   t56245 = -0.97472904801097393691e-1 * t5001 * t496 * t124 - 0.21063684444444444444e-1 * t14821 * t1470 + 0.14744579111111111111e-1 * t2980 * t6073 + 0.56169825185185185184e-1 * t5080 * t4562 + 0.196e3 / 0.405e3 * t14824 * t4573 - 0.392e3 / 0.675e3 * t2904 * t18375 + 0.196e3 / 0.405e3 * t2904 * t18378 + 0.20469310008230452676e-1 * t14831 * t4573 - 0.10531842222222222222e-1 * t19593 * t630 + 0.29489158222222222222e-1 * t1031 * t4559 + 0.12911755421886215040e-2 * t9047 * t55 * t17990 + 0.52659211111111111112e-1 * t14820 * t1466 + 0.57385579652827622400e-2 * t2852 * t18019;
21529   t56250 = t490 * t7442 * t19250;
21530   t56252 = t5883 * t943;
21531   t56272 = t18405 * t19255;
21532   t56274 = t63 * t943;
21533   t56295 = t54063 + 0.77e2 / 0.18000e5 * t54074 + 0.11e2 / 0.16200e5 * t54077 - 0.11e2 / 0.2700e4 * t54080 + 0.11e2 / 0.16200e5 * t56250 + 0.77e2 / 0.18000e5 * t5889 * t41235 * t56252 * t506 + 0.11e2 / 0.4050e4 * t5889 * t27833 * t56252 * t454 - 0.11e2 / 0.2700e4 * t5889 * t13511 * t14583 * t4356 - 0.11e2 / 0.2700e4 * t490 * t27892 * t18395 * t9 - t54038 - 0.10959051669810830667e-4 * t54030 - 0.33209247484275244444e-5 * t54005 - 0.53134795974840391111e-4 * t54039 - 0.33209247484275244444e-5 * t56272 - 0.10959051669810830667e-4 * t54091 * t54093 * t56274 * t506 - 0.13283698993710097778e-4 * t38 * t40 * t492 * t1969 * t55 * t57 * t56274 * t454 - 0.53134795974840391111e-4 * t5889 * t18414 * t17993 * t943 + 0.19925548490565146667e-4 * t27853 * t18414 * t6143 * t9;
21534   t56296 = my_piecewise3(t76, 0, t56295);
21535   t56349 = t18440 * t954;
21536   t56352 = t4926 * t4362;
21537   t56355 = t4368 * t4919;
21538   t56358 = t18448 * t954;
21539   t56369 = 0.12e2 * t14661 * t14765 + 0.75e2 / 0.4e1 * t26580 * t5901 * t2879 + 0.12e2 * t14661 * t14758 - 0.9e1 / 0.2e1 * t14664 * t14758 - 0.9e1 / 0.2e1 * t14664 * t14765 - 0.9e1 / 0.4e1 * t26574 * t5901 * t2879 + 0.6e1 * t7682 * t5896 * t2879 - 0.9e1 / 0.4e1 * t7667 * t5896 * t2879 + 0.7e1 * t28187 * t19368 - t14673 * t18574 / 0.2e1 + 0.12e2 * t41664 * t1377 * t2879 - 0.9e1 / 0.2e1 * t41667 * t1377 * t2879 + 0.48e2 * t43250 * t56349 - 0.24e2 * t14676 * t56352 - 0.24e2 * t14676 * t56355 - 0.12e2 * t14676 * t56358 - 0.48e2 * t26563 * t5901 * t2879 + 0.14e2 * t54124 * t14765 + 0.15e2 / 0.2e1 * t26708 * t5901 * t2879;
21540   t56377 = t7655 * t5896;
21541   t56393 = t1407 * t14601;
21542   t56398 = t5901 * t2810;
21543   t56399 = t56398 * t86;
21544   t56406 = t18554 * t954;
21545   t56409 = t5962 * t2810;
21546   t56416 = 0.14e2 * t54124 * t14758 - t54127 * t14758 - t54127 * t14765 - t26699 * t5901 * t2879 / 0.4e1 + t56377 * t2879 / 0.8e1 + t14667 * t14758 / 0.4e1 + t14667 * t14765 / 0.4e1 + t26679 * t5901 * t2879 / 0.16e2 + t41786 * t1377 * t2879 / 0.4e1 - 0.30e2 * t2107 * t5901 * t2879 + t2107 * t56393 / 0.2e1 + t26687 * t19360 / 0.8e1 + t7655 * t56399 / 0.8e1 - 0.9e1 / 0.4e1 * t7667 * t56399 - 0.3e1 / 0.2e1 * t7679 * t19368 - 0.3e1 / 0.2e1 * t2102 * t56406 - 0.3e1 / 0.2e1 * t2102 * t56409 + t7664 * t19368 / 0.4e1 - 0.9e1 / 0.4e1 * t28346 * t18582;
21547   t56422 = t19390 * t519;
21548   t56459 = t4386 * t4919;
21549   t56462 = -0.3e1 / 0.2e1 * t8910 * t18574 + t8901 * t18574 / 0.4e1 - 0.3e1 / 0.2e1 * t2102 * t56422 + t2107 * t56422 / 0.4e1 + t8901 * t18585 / 0.2e1 + t28362 * t18582 / 0.8e1 + 0.4e1 * t614 * t19305 * t519 - t2138 * t56422 - 0.3e1 / 0.2e1 * t54294 * t2879 + t54325 * t2879 / 0.4e1 - 0.3e1 * t43508 * t4383 + t43235 * t4383 / 0.2e1 - 0.3e1 * t13678 * t14758 - 0.3e1 * t13678 * t14755 + 0.8e1 * t614 * t4535 * t4919 + 0.8e1 * t614 * t1382 * t14601 + 0.4e1 * t614 * t18472 * t954 + 0.4e1 * t614 * t5915 * t2810 - 0.2e1 * t2138 * t56459;
21550   t56504 = -0.2e1 * t2138 * t56393 - t7644 * t56399 / 0.2e1 - 0.12e2 * t614 * t5912 * t2810 + 0.7e1 * t7673 * t56399 + 0.1440e4 * t1407 * t615 * t4919 + 0.1440e4 * t1407 * t1023 * t4362 - 0.2880e4 * t5959 * t2969 + 0.720e3 * t19283 * t522 + t13671 * t14758 / 0.2e1 + 0.6e1 * t28206 * t18582 - 0.3e1 * t8910 * t18585 + t2107 * t56406 / 0.4e1 + t2107 * t56409 / 0.4e1 + t7664 * t19363 / 0.2e1 + t2107 * t56459 / 0.2e1 + t41791 * t4983 / 0.2e1 + t13671 * t14765 / 0.2e1 + t13671 * t14755 / 0.2e1 + 0.6e1 * t26714 * t19360;
21551   t56523 = t7699 * t56398;
21552   t56529 = t954 * t18423;
21553   t56536 = t4362 * t4919;
21554   t56539 = t1377 * t14601;
21555   t56545 = 0.6e1 * t7682 * t56399 - 0.3e1 * t7679 * t19363 - 0.3e1 * t2102 * t56459 - 0.3e1 * t2102 * t56393 - 0.9e1 / 0.4e1 * t26577 * t19360 - t2138 * t56409 - t2138 * t56406 - 0.3e1 * t41670 * t4983 - 0.3e1 * t13678 * t14765 - 0.360e3 * t56523 + 0.144e3 * t11338 * t19283 + 0.144e3 * t7634 * t19283 + 0.144e3 * t2110 * t56529 + 0.288e3 * t11338 * t19278 + 0.288e3 * t7634 * t19278 + 0.288e3 * t2110 * t56536 + 0.288e3 * t2110 * t56539 + t4447 * t14648 - 0.3e1 / 0.2e1 * t28349 * t5959;
21556   t56558 = t83 * t19485;
21557   t56580 = t519 * t19259;
21558   t56585 = t14609 * t4386 + t13676 * t4986 + t18562 * t2882 / 0.2e1 + t43187 * t1407 + 0.144e3 * t954 * t608 * t5901 + 0.144e3 * t35420 * t5901 + 0.144e3 * t28219 * t5901 + 0.72e2 * t56558 * t519 + 0.144e3 * t4464 * t14601 + 0.72e2 * t8960 * t5896 + 0.72e2 * t2947 * t18423 + 0.144e3 * t14796 * t4362 + 0.144e3 * t13704 * t4919 + 0.144e3 * t43664 * t1377 + 0.144e3 * t2810 * t143 * t5901 + 0.72e2 * t54497 * t954 + 0.144e3 * t8954 * t18448 + 0.144e3 * t2110 * t56580 + 0.288e3 * t13711 * t14643;
21559   t56589 = t2810 * t5896;
21560   t56612 = t19520 * t525;
21561   t56629 = 0.144e3 * t54492 * t2817 + 0.144e3 * t2110 * t56589 + 0.480e3 * t4393 * t5063 + 0.480e3 * t1411 * t14619 + 0.720e3 * t5959 * t2972 + 0.240e3 * t2889 * t6044 + 0.240e3 * t986 * t18542 + 0.288e3 * t8954 * t18443 + 0.288e3 * t43676 * t4368 + 0.288e3 * t19558 * t18443 - 0.480e3 * t532 * t19390 + t54344 * t982 / 0.2e1 + t56612 * t557 / 0.2e1 - 0.2e1 * t614 * t84 * t56296 - 0.960e3 * t4396 * t4986 - 0.960e3 * t1387 * t14648 + 0.240e3 * t561 * t19551 + 0.240e3 * t106 * t56296 * t81 - 0.480e3 * t18493 * t982;
21562   t56636 = t56296 * t86;
21563   t56662 = t132 * t19259;
21564   t56677 = -0.17694720e8 * t13648 * t4919 - 0.17694720e8 * t14601 * t4440 - 0.61931520e8 * t18646 * t2810 - 0.8847360e7 * t18651 * t2810 + 0.161658e6 * t19483 * t519 + 0.161658e6 * t2810 * t6036 - 0.8847360e7 * t519 * t56662 - 0.8847360e7 * t54425 * t954 - 0.8e1 * t56296 + 0.3072e4 * t56352 + 0.3072e4 * t56355;
21565   t56699 = 0.3072e4 * t1401 * t14601 + 0.323316e6 * t1446 * t14601 + 0.1536e4 * t18660 * t954 + 0.161658e6 * t18676 * t954 + 0.1536e4 * t19406 * t519 - 0.11520e5 * t19408 * t519 + 0.1536e4 * t2810 * t5950 + 0.808290e6 * t2810 * t6034 + 0.3072e4 * t4370 * t4919 + 0.323316e6 * t4473 * t4919 + 0.1536e4 * t56358;
21566   t56722 = -0.1105920e7 * t134 * t56296 - 0.23040e5 * t1403 * t14601 + 0.26943e5 * t141 * t56296 - 0.11520e5 * t18668 * t954 - 0.34560e5 * t2810 * t5952 - 0.11520e5 * t2810 * t5954 + 0.808290e6 * t2817 * t6005 - 0.61931520e8 * t2817 * t6009 - 0.23040e5 * t4374 * t4919 + 0.768e3 * t56296 * t83 + 0.1536e4 * t56398;
21567   t56745 = -0.2880e4 * t101 * t56296 - 0.69120e5 * t1430 * t14634 - 0.69120e5 * t1430 * t14643 + 0.1616580e7 * t1432 * t14634 + 0.1616580e7 * t1432 * t14643 - 0.123863040e9 * t1434 * t14634 - 0.123863040e9 * t1434 * t14643 - 0.69120e5 * t2817 * t5999 - 0.34560e5 * t2817 * t6001 + 0.3233160e7 * t2817 * t6003 - 0.371589120e9 * t2817 * t6007;
21568   t56762 = t5999 * t2810;
21569   t56764 = t4430 * t4919;
21570   t56766 = t1430 * t14601;
21571   t56768 = t18628 * t954;
21572   t56770 = t6001 * t2810;
21573   t56772 = t19494 * t519;
21574   t56776 = 0.30720e5 * t130 * t56296 + 0.307200e6 * t1432 * t14601 + 0.153600e6 * t18636 * t954 + 0.153600e6 * t19502 * t519 + 0.614400e6 * t2810 * t6003 + 0.153600e6 * t2810 * t6005 + 0.307200e6 * t4434 * t4919 - 0.34560e5 * t56349 - 0.34560e5 * t56762 - 0.34560e5 * t56764 - 0.34560e5 * t56766 - 0.17280e5 * t56768 - 0.17280e5 * t56770 - 0.17280e5 * t56772;
21575   t56785 = t77 * t56296;
21576   t56792 = t128 * t56296;
21577   t56794 = t1401 * t14634;
21578   t56796 = t1401 * t14643;
21579   t56798 = t5950 * t2817;
21580   t56800 = 0.1228800e7 * t1403 * t14634 + 0.1228800e7 * t1403 * t14643 + 0.1843200e7 * t2817 * t5952 + 0.614400e6 * t2817 * t5954 + 0.448e3 * t56529 + 0.896e3 * t56536 + 0.896e3 * t56539 + 0.448e3 * t56580 + 0.448e3 * t56589 + 0.448e3 * t56785 - 0.5760e4 * t56792 - 0.69120e5 * t56794 - 0.69120e5 * t56796 - 0.34560e5 * t56798;
21581   t56804 = t26388 * t56349;
21582   t56806 = t7699 * t56352;
21583   t56808 = t7699 * t56355;
21584   t56810 = t7699 * t56358;
21585   t56812 = t18466 * t2879;
21586   t56814 = -0.480e3 * t5927 * t2882 + t2930 * t18554 / 0.2e1 + t2100 * t19390 / 0.2e1 + t598 * t56636 / 0.2e1 + t28367 * t5959 / 0.4e1 + t8906 * t5962 / 0.2e1 + 0.288e3 * t46098 * t4926 + 0.288e3 * t41531 * t4926 + 0.288e3 * t13711 * t14634 + 0.288e3 * t13711 * t14637 + 0.72e2 * t18566 * t2810 + 0.72e2 * t2113 * t19259 + 0.72e2 * t601 * t56296 + (t56677 + t56699 + t56722 + t56745) * t86 + 0.24e2 * t128 * (t56776 + t56800) + 0.2640e4 * t56804 - 0.720e3 * t56806 - 0.720e3 * t56808 - 0.360e3 * t56810 - 0.240e3 * t56812;
21587   t56820 = 0.8e1 / 0.7e1 * t56296 * t151 + 0.8e1 / 0.7e1 * t19259 * t618 + 0.8e1 / 0.7e1 * t18423 * t1026 + 0.8e1 / 0.7e1 * t5896 * t2975 + 0.16e2 / 0.7e1 * t14601 * t1457 + 0.16e2 / 0.7e1 * t4919 * t4492 + 0.16e2 / 0.7e1 * t4362 * t5075 + 0.16e2 / 0.7e1 * t1377 * t14816 + 0.8e1 / 0.7e1 * t2810 * t6057 + 0.8e1 / 0.7e1 * t954 * t18683 + 0.8e1 / 0.7e1 * t519 * t19588 + 0.8e1 / 0.7e1 * t77 * (t56369 + t56416 + t56462 + t56504 + t56545 + t56585 + t56629 + t56814);
21588   t56839 = t19422 * t41;
21589   t56855 = t519 * t5974;
21590   t56866 = t77 * t19418;
21591   t56874 = t1377 * t990;
21592   t56883 = 0.96e2 * t1377 * t4402 * t954 + 0.48e2 * t11226 * t5896 + 0.96e2 * t14601 * t18697 + 0.48e2 * t18423 * t2862 + 0.48e2 * t18423 * t4961 + 0.48e2 * t18714 * t2810 + 0.48e2 * t19259 * t2028 + 0.48e2 * t19259 * t2855 + 0.96e2 * t4362 * t56874 + 0.48e2 * t519 * t56866 + 0.48e2 * t54632 * t954 + 0.48e2 * t547 * t56296 + 0.48e2 * t56855 * t954 + 0.48e2 * t5896 * t9084;
21593   t56890 = t4362 * t109;
21594   t56912 = t5918 * t2879;
21595   t56914 = t13834 * t14765;
21596   t56916 = t18437 * t2879;
21597   t56918 = t13834 * t14758;
21598   t56921 = 0.5e1 * t13842 * t14758;
21599   t56923 = 0.5e1 * t13842 * t14765;
21600   t56924 = t54736 * t2879;
21601   t56926 = t54743 * t2879;
21602   t56929 = 0.5e1 / 0.2e1 * t54726 * t2879;
21603   t56938 = -0.100e3 * t56912 + 0.40e2 * t56914 + 0.55e2 / 0.2e1 * t56916 + 0.40e2 * t56918 - t56921 - t56923 - 0.5e1 / 0.4e1 * t56924 + 0.20e2 * t56926 - t56929 + t43915 * t4383 / 0.2e1 - 0.3e1 * t13831 * t14758 + t13822 * t14758 / 0.2e1 + 0.6e1 * t28053 * t18582;
21604   t56965 = -0.3e1 * t9094 * t18585 - 0.9e1 / 0.4e1 * t28050 * t18582 - 0.3e1 / 0.2e1 * t9094 * t18574 + t2051 * t56409 / 0.4e1 + t7516 * t19363 / 0.2e1 + t2051 * t56459 / 0.2e1 + t2051 * t56393 / 0.2e1 + t26308 * t19360 / 0.8e1 + t7500 * t56399 / 0.8e1 - 0.3e1 * t41343 * t4983 - 0.3e1 * t13831 * t14765 - 0.3e1 * t13831 * t14755 + t41332 * t4983 / 0.2e1;
21605   t56993 = t13822 * t14765 / 0.2e1 + t13822 * t14755 / 0.2e1 + 0.6e1 * t26274 * t19360 + 0.6e1 * t7538 * t56399 - 0.3e1 * t7535 * t19363 - 0.3e1 * t2044 * t56459 - 0.3e1 * t2044 * t56393 - 0.9e1 / 0.4e1 * t26300 * t19360 - 0.9e1 / 0.4e1 * t7505 * t56399 - 0.3e1 / 0.2e1 * t7535 * t19368 - 0.3e1 / 0.2e1 * t2044 * t56406 - 0.3e1 / 0.2e1 * t2044 * t56409 + t7516 * t19368 / 0.4e1;
21606   t57012 = t54731 * t982;
21607   t57014 = t18469 * t2882;
21608   t57016 = t1999 * t19259;
21609   t57017 = t57016 * t557;
21610   t57019 = t5902 * t2882;
21611   t57021 = t2051 * t56406 / 0.4e1 + t9089 * t18574 / 0.4e1 - 0.3e1 / 0.2e1 * t2044 * t56422 + t2051 * t56422 / 0.4e1 + t9089 * t18585 / 0.2e1 + t28061 * t18582 / 0.8e1 - 0.3e1 / 0.2e1 * t54782 * t2879 + t54778 * t2879 / 0.4e1 - 0.3e1 * t43878 * t4383 - 0.5e1 * t57012 - 0.5e1 * t57014 - 0.5e1 * t57017 + 0.20e2 * t57019;
21612   t57024 = t13837 * t4986;
21613   t57026 = t4399 * t14648;
21614   t57029 = 0.5e1 / 0.2e1 * t18466 * t2882;
21615   t57030 = t19410 * t525;
21616   t57036 = 0.1536e4 * t56349;
21617   t57037 = 0.1536e4 * t56762;
21618   t57038 = 0.1536e4 * t56764;
21619   t57039 = 0.1536e4 * t56766;
21620   t57040 = 0.768e3 * t56768;
21621   t57041 = 0.768e3 * t56770;
21622   t57042 = 0.768e3 * t56772;
21623   t57045 = -0.10e2 * t57024 - 0.10e2 * t57026 - t57029 + t57030 * t557 / 0.2e1 + 0.10e2 * t78 * t56296 * t81 + t57036 + t57037 + t57038 + t57039 + t57040 + t57041 + t57042 + 0.12e2 * t14925 * t14758;
21624   t57059 = t7500 * t5896;
21625   t57081 = -0.9e1 / 0.2e1 * t14928 * t14758 - 0.9e1 / 0.2e1 * t14928 * t14765 - 0.9e1 / 0.4e1 * t26284 * t5901 * t2879 + 0.6e1 * t7538 * t5896 * t2879 - 0.9e1 / 0.4e1 * t7505 * t5896 * t2879 + t57059 * t2879 / 0.8e1 + t14931 * t14758 / 0.4e1 + t14931 * t14765 / 0.4e1 + t26297 * t5901 * t2879 / 0.16e2 + 0.12e2 * t41317 * t1377 * t2879 - 0.9e1 / 0.2e1 * t41340 * t1377 * t2879 + t41335 * t1377 * t2879 / 0.4e1 - 0.30e2 * t2051 * t5901 * t2879;
21626   t57095 = t79 * t56296 * t86;
21627   t57107 = 0.3072e4 * t56794;
21628   t57108 = 0.3072e4 * t56796;
21629   t57109 = 0.1536e4 * t56798;
21630   t57110 = 0.256e3 * t56792;
21631   t57111 = 0.80e2 * t56536 + 0.80e2 * t56539 + 0.40e2 * t56589 + 0.40e2 * t56529 + 0.40e2 * t56580 + 0.40e2 * t56785 - t57036 - t57107 - t57037 - t57108 - t57038 - t57039 - t57109 - t57040 - t57041 - t57042 - t57110;
21632   t57115 = 0.12e2 * t14925 * t14765 + 0.75e2 / 0.4e1 * t26287 * t5901 * t2879 + t2042 * t19390 / 0.2e1 + t556 * t56636 / 0.2e1 + t28068 * t5959 / 0.4e1 - 0.10e2 * t57095 - 0.72e2 * t56785 - 0.72e2 * t56589 - 0.72e2 * t56529 - 0.72e2 * t56580 + t57111 * t86 - 0.144e3 * t56536 - 0.144e3 * t56539;
21633   t57130 = t57110 - 0.3e1 / 0.2e1 * t28047 * t5959 + t9100 * t5962 / 0.2e1 + t2874 * t18554 / 0.2e1 + t14870 * t4386 + t13828 * t4986 + t4378 * t14648 + t54800 * t982 / 0.2e1 + t18720 * t2882 / 0.2e1 + t43891 * t1407 + t57107 + t57108 + t57109;
21634   t57136 = 0.96e2 * t4365 * t14601 + 0.48e2 * t14834 * t5896 + 0.48e2 * t14837 * t5896 + 0.96e2 * t56890 * t4919 + 0.96e2 * t54625 * t4919 + 0.96e2 * t46474 * t1377 + 0.96e2 * t43935 * t1377 + 0.96e2 * t2810 * t1415 * t1377 + 0.96e2 * t14861 * t4362 + 0.96e2 * t14854 * t4919 + 0.96e2 * t13795 * t4919 + 0.96e2 * t19343 * t4362 + 0.48e2 * t5901 * t2894 + 0.24e2 * t83 * (t56938 + t56965 + t56993 + t57021 + t57045 + t57081 + t57115 + t57130);
21635   t57141 = 0.26329605555555555556e-1 * t56820 * t41 * t45 * t157 - 0.14620935720164609054e-1 * t14831 * t4511 + 0.98e2 / 0.405e3 * t9039 * t5988 + 0.98e2 / 0.405e3 * t9042 * t5988 - 0.28e2 / 0.81e2 * t44005 * t1425 - 0.28e2 / 0.81e2 * t14824 * t4511 - 0.14620935720164609054e-1 * t44226 * t1425 - 0.28e2 / 0.81e2 * t43698 * t1425 - 0.14e2 / 0.81e2 * t56839 * t583 + 0.56169825185185185184e-1 * t1031 * t17996 + 0.36552339300411522634e-1 * t14949 * t51 * t124 - 0.21063684444444444444e-1 * t2980 * t6069 - 0.10759796184905179200e-2 * t8718 * t5891 + 0.35e2 / 0.81e2 * (t56883 + t57136) * t120 * t124;
21636   t57172 = -0.21063684444444444445e-1 * t5080 * t4501 + 0.35e2 / 0.81e2 * t19421 * t575 * t124 + 0.80185688269845662151e-4 * t994 * t18296 - 0.21063684444444444444e-1 * t1031 * t18003 - 0.70212281481481481483e-1 * t19593 * t626 - 0.14042456296296296297e0 * t5079 * t4418 + 0.29489158222222222222e-1 * t5079 * t212 * t4559 - 0.35386989866666666666e-1 * t15053 * t18308 + 0.29489158222222222222e-1 * t15053 * t18311 + 0.12e2 / 0.25e2 * t44217 * t4554 - 0.34900379798164840299e-5 * t2978 * sigma[0] * t6079 - 0.66e2 / 0.125e3 * t28457 * t18008 + 0.12e2 / 0.25e2 * t9047 * t18011;
21637   t57179 = t19331 * t543;
21638   t57194 = t19425 * t41;
21639   t57250 = 0.2e1 * t1991 * t56529 + 0.2e1 * t1991 * t56589 + 0.2e1 * t1991 * t56580 - t2814 * t19390 / 0.2e1 - 0.6e1 * t56523 + 0.4e1 * t1991 * t56536 + 0.4e1 * t1991 * t56539 - t14975 * t5962 / 0.2e1 - t4923 * t18554 / 0.2e1 + 0.7e1 / 0.2e1 * t5918 * t2882 - t41399 * t4986 - t13834 * t14648 - t18437 * t2882 / 0.4e1 - t521 * t56296 - t55040 * t2879 / 0.8e1 + 0.24e2 * t56804 - 0.12e2 * t56806 - 0.12e2 * t56808 + 0.7e1 / 0.2e1 * t2833 * t18574;
21640   t57298 = t54963 * t2879 / 0.8e1 + t13948 * t14758 / 0.4e1 + t13948 * t14765 / 0.4e1 + t54950 * t2879 / 0.16e2 - 0.75e2 / 0.2e1 * t56912 + 0.15e2 * t56914 + 0.85e2 / 0.4e1 * t56916 + 0.15e2 * t56918 - t56921 - t56923 - 0.19e2 / 0.8e1 * t56924 + 0.15e2 / 0.2e1 * t56926 - t56929 - t2972 * t5962 - t1023 * t18554 - t615 * t19390 + t18480 * t2882 / 0.8e1 - 0.2e1 * t4489 * t4986 - 0.2e1 * t1454 * t14648;
21641   t57310 = t2006 * t19259;
21642   t57322 = t4362 * t87;
21643   t57332 = t54974 * t982 / 0.4e1 + t18475 * t2882 / 0.4e1 + t13943 * t4986 / 0.2e1 + t4538 * t14648 / 0.2e1 - 0.2e1 * t57012 - 0.2e1 * t57014 - 0.2e1 * t57017 + t57310 * t557 / 0.4e1 + 0.15e2 / 0.2e1 * t57019 - 0.4e1 * t57024 - 0.4e1 * t57026 - t57029 - t57095 - 0.4e1 * t4943 * t18423 - 0.4e1 * t2836 * t19259 - 0.4e1 * t529 * t56296 - 0.8e1 * t57322 * t4919 - 0.8e1 * t18483 * t14601 - 0.4e1 * t15023 * t5896 + t525 * t56296 * t86 / 0.2e1;
21644   t57348 = -t14978 * t18574 / 0.4e1 - 0.6e1 * t56810 - 0.24e2 * t56812 + 0.7e1 * t4538 * t14765 + 0.15e2 / 0.4e1 * t18480 * t2879 + 0.7e1 * t4538 * t14758 - t41402 * t14758 / 0.2e1 - t41402 * t14765 / 0.2e1 + 0.2e1 * t18423 * t966 + 0.2e1 * t5896 * t2844 + 0.2e1 * t19259 * t534 + 0.2e1 * t56296 * t90 + 0.2e1 * t519 * t19325 + 0.2e1 * t77 * (t57298 + t57332) + 0.2e1 * t954 * t18495 + 0.2e1 * t2810 * t5929 + 0.4e1 * t1377 * t15035 + 0.4e1 * t14601 * t1389 + 0.4e1 * t4919 * t4546 + 0.4e1 * t4362 * t4951;
21645   t57352 = -0.8e1 / 0.3e1 * t56296 * t93 - 0.8e1 / 0.3e1 * t19259 * t537 - 0.8e1 / 0.3e1 * t18423 * t969 - 0.8e1 / 0.3e1 * t5896 * t2847 - 0.16e2 / 0.3e1 * t14601 * t1392 - 0.16e2 / 0.3e1 * t4919 * t4549 - 0.16e2 / 0.3e1 * t4362 * t4954 - 0.16e2 / 0.3e1 * t1377 * t15038 - 0.8e1 / 0.3e1 * t2810 * t5932 - 0.8e1 / 0.3e1 * t954 * t18498 - 0.8e1 / 0.3e1 * t519 * t19328 - 0.8e1 / 0.3e1 * t77 * (t57250 + t57348);
21646   t57358 = -0.21063684444444444444e-1 * t5080 * t4566 - 0.39318877629629629629e-1 * t1031 * t18511 - 0.2e1 / 0.5e1 * t44220 * t1372 - t57179 * t506 / 0.5e1 + 0.6e1 / 0.25e2 * t28578 * t5883 - 0.2e1 / 0.5e1 * t14956 * t4356 + 0.48860531717430776419e-5 * t19604 * t18320 + 0.27920303838531872239e-4 * t19604 * t18290 - 0.57275491621318330108e-4 * t2901 * t5991 + 0.30546928864703109391e-3 * t994 * t18316 - 0.14620935720164609054e-1 * t57194 * t583 + t57352 * t98 + 0.38989161920438957477e-1 * t44223 * t1425 - 0.57275491621318330108e-4 * t2898 * t5991;
21647   t57371 = -0.12e2 * t4310 * t14553 - 0.12e2 * t478 * t56206 * t5855 - 0.12e2 * t478 * t27718 * t5855 - t19249 - 0.9e1 / 0.100e3 * t3122 * t6099 - 0.9e1 / 0.50e2 * t5089 * t4608 + t33 * (t56245 + t57141 + t57172 + t57358) + t474 * t19607 - 0.6e1 * t18120 * t2785 + t5089 * t4643 / 0.5e1 - 0.9e1 / 0.100e3 * t2989 * t6099 + t6093 * t3121 * t230;
21648   t57391 = t4310 * t1034;
21649   t57394 = t13213 * t1034;
21650   t57397 = t18167 * t1074 * t230 + t1075 * t18243 / 0.10e2 + t2989 * t6118 / 0.10e2 + t3122 * t6118 / 0.10e2 + t5865 * t2987 + 0.2e1 * t1362 * t15063 + t18037 * t1034 + 0.54e2 * t1862 * t27726 * t5855 + 0.2e1 * t4308 * t5087 - 0.12e2 * t4310 * t14559 - 0.24e2 * t57391 * t4303 + 0.108e3 * t57394 * t4318;
21651   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21652     v4rho2sigma2[6] = -t53156 - 0.2e1 / 0.3e1 * t53157 - t53159 / 0.2e1 - 0.2e1 / 0.3e1 * t56126 - t14133 * t1810 * t6161 * t2756 / 0.6e1 - t1352 * t2774 * t18811 * t944 / 0.2e1 - t14532 * t2774 * t6161 * t9 / 0.2e1 + t56140 / 0.2e1 + t14133 * t14539 * t19617 * t455 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t56172 + t56202 + t57371 + t57397);
21653 
21654   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21655     v4rho2sigma2[7] = 0.0e0;
21656 
21657   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21658     v4rho2sigma2[8] = 0.0e0;
21659 
21660   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21661     v4rho2sigma2[9] = 0.0e0;
21662 
21663   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21664     v4rho2sigma2[10] = 0.0e0;
21665 
21666   t57406 = t14520 * t19623;
21667   t57420 = t14520 * t20444;
21668   t57431 = t3817 * t4895;
21669   t57438 = t5116 * t875;
21670   t57447 = t16173 * t875;
21671   t57452 = -0.6e1 * t10331 * t1101 * t6167 + 0.324e3 * t15112 * t19662 + 0.108e3 * t15112 * t19665 + 0.54e2 * t15112 * t19677 - 0.24e2 * t15118 * t19638 - 0.12e2 * t15118 * t19640 - 0.6e1 * t18835 * t3810 - 0.648e3 * t19658 * t46838 - 0.24e2 * t5109 * t57438 + 0.108e3 * t5124 * t57431 + 0.108e3 * t5124 * t57447 - t18837;
21672   t57459 = t19214 * t262;
21673   t57463 = t875 * t1091;
21674   t57482 = 0.54e2 * t12312 * t18826 - 0.12e2 * t5116 * t15115 - 0.9e1 / 0.100e3 * t934 * t20399 - 0.6e1 * t1101 * t57459 * t1091 - 0.12e2 * t1101 * t57463 * t6165 - 0.9e1 / 0.50e2 * t4897 * t5407 - 0.6e1 * t19644 * t3161 - 0.12e2 * t16110 * t4712 - 0.12e2 * t5116 * t15121 + 0.54e2 * t3817 * t37899 * t6165 - 0.12e2 * t3810 * t18829 + 0.2e1 * t5114 * t4895;
21675   t57508 = -0.12e2 * t5116 * t15126 + 0.2e1 * t1530 * t15631 - 0.12e2 * t1101 * t37894 * t6165 - 0.12e2 * t3810 * t18832 + t934 * t20345 / 0.10e2 + t1097 * t19214 + t19682 * t933 * t428 + t3494 * t6426 / 0.10e2 + t3367 * t6426 / 0.10e2 + t6401 * t3493 * t428 + t15633 * t1664 / 0.5e1 + t19216 * t1315 / 0.10e2;
21676   t57525 = t1101 * t4895;
21677   t57537 = t55473 * t3257;
21678   t57540 = 0.5e1 / 0.2e1 * t55448 * t3257;
21679   t57541 = t6226 * t3257;
21680   t57543 = t14200 * t15193;
21681   t57545 = t18869 * t3257;
21682   t57547 = t14200 * t15214;
21683   t57550 = 0.5e1 * t14206 * t15214;
21684   t57552 = 0.5e1 * t14206 * t15193;
21685   t57553 = t55439 * t3257;
21686   t57563 = 0.20e2 * t57537 - t57540 - 0.100e3 * t57541 + 0.40e2 * t57543 + 0.55e2 / 0.2e1 * t57545 + 0.40e2 * t57547 - t57550 - t57552 - 0.5e1 / 0.4e1 * t57553 - 0.3e1 * t42579 * t5190 - 0.3e1 * t14275 * t15193 - 0.3e1 * t14275 * t15197 - 0.9e1 / 0.4e1 * t25018 * t20000;
21687   t57564 = t6209 * t3188;
21688   t57565 = t57564 * t304;
21689   t57570 = t19002 * t1133;
21690   t57573 = t6270 * t3188;
21691   t57584 = t4791 * t5171;
21692   t57587 = t1575 * t15177;
21693   t57596 = -0.9e1 / 0.4e1 * t8120 * t57565 - 0.3e1 / 0.2e1 * t8137 * t20008 - 0.3e1 / 0.2e1 * t2517 * t57570 - 0.3e1 / 0.2e1 * t2517 * t57573 + t8117 * t20008 / 0.4e1 + t2524 * t57570 / 0.4e1 + t2524 * t57573 / 0.4e1 + t8117 * t20003 / 0.2e1 + t2524 * t57584 / 0.2e1 + t2524 * t57587 / 0.2e1 + t25038 * t20000 / 0.8e1 + t8127 * t57565 / 0.8e1 - 0.3e1 / 0.2e1 * t55669 * t3257;
21694   t57624 = t55646 * t3257 / 0.4e1 - 0.3e1 * t44766 * t4788 + t44774 * t4788 / 0.2e1 - 0.3e1 * t14275 * t15214 + t14269 * t15214 / 0.2e1 + t42593 * t5190 / 0.2e1 + t14269 * t15193 / 0.2e1 + t14269 * t15197 / 0.2e1 + 0.6e1 * t25008 * t20000 + 0.6e1 * t8140 * t57565 - 0.3e1 * t8137 * t20003 - 0.3e1 * t2517 * t57584 - 0.3e1 * t2517 * t57587;
21695   t57639 = t20023 * t787;
21696   t57644 = t18901 * t3260;
21697   t57646 = t6210 * t3260;
21698   t57648 = t14203 * t5193;
21699   t57650 = t4739 * t15255;
21700   t57652 = -0.9e1 / 0.4e1 * t29751 * t18975 + t9704 * t18978 / 0.2e1 + t29739 * t18975 / 0.8e1 + 0.6e1 * t29745 * t18975 - 0.3e1 * t9713 * t18978 - 0.3e1 / 0.2e1 * t9713 * t18983 + t9704 * t18983 / 0.4e1 - 0.3e1 / 0.2e1 * t2517 * t57639 + t2524 * t57639 / 0.4e1 - 0.5e1 * t57644 + 0.20e2 * t57646 - 0.10e2 * t57648 - 0.10e2 * t57650;
21701   t57656 = 0.5e1 / 0.2e1 * t18898 * t3260;
21702   t57657 = t2472 * t19872;
21703   t57658 = t57657 * t820;
21704   t57660 = t55442 * t1166;
21705   t57662 = t20052 * t793;
21706   t57680 = t490 * t37138 * t19847;
21707   t57687 = t490 * t10366 * t19851;
21708   t57699 = t490 * t10366 * t19855;
21709   t57706 = t18405 * t19861;
21710   t57709 = t38 * t40 * t3881;
21711   t57711 = t780 * t55 * t57;
21712   t57712 = t282 * t1122;
21713   t57717 = t18405 * t19865;
21714   t57732 = t18405 * t19868;
21715   t57738 = t55308 + 0.11e2 / 0.16200e5 * t55310 + 0.77e2 / 0.18000e5 * t57680 + 0.77e2 / 0.18000e5 * t5889 * t47043 * t19746 * t781 + 0.11e2 / 0.16200e5 * t57687 + 0.11e2 / 0.4050e4 * t5889 * t37089 * t6193 * t1127 * t781 + 0.11e2 / 0.2700e4 * t490 * t37163 * t18841 * t9 - 0.11e2 / 0.2700e4 * t57699 - 0.11e2 / 0.2700e4 * t5889 * t15151 * t19749 * t781 - t55322 - 0.33209247484275244444e-5 * t55323 - 0.10959051669810830667e-4 * t57706 - 0.10959051669810830667e-4 * t57709 * t57711 * t57712 * t781 - 0.33209247484275244444e-5 * t57717 - 0.13283698993710097778e-4 * t38 * t40 * t1108 * t2442 * t55 * t57 * t282 * t1127 * t781 - 0.19925548490565146667e-4 * t27853 * t18849 * t6451 * t9 - 0.53134795974840391110e-4 * t57732 - 0.53134795974840391110e-4 * t5889 * t18849 * t19731 * t781;
21716   t57739 = my_piecewise3(t295, 0, t57738);
21717   t57740 = t57739 * t304;
21718   t57743 = -t57656 - 0.5e1 * t57658 - 0.5e1 * t57660 + t57662 * t820 / 0.2e1 + t29734 * t6267 / 0.4e1 + t15241 * t4791 + t14265 * t5193 + t4783 * t15255 - 0.3e1 / 0.2e1 * t29748 * t6267 + t9700 * t6270 / 0.2e1 + t3252 * t19002 / 0.2e1 + t2515 * t20023 / 0.2e1 + t819 * t57740 / 0.2e1;
21719   t57749 = t1569 * t15192;
21720   t57750 = 0.3072e4 * t57749;
21721   t57751 = t1569 * t15223;
21722   t57752 = 0.3072e4 * t57751;
21723   t57753 = t6258 * t3195;
21724   t57754 = 0.1536e4 * t57753;
21725   t57755 = t3188 * t6204;
21726   t57757 = t1133 * t18855;
21727   t57759 = t787 * t19872;
21728   t57761 = t296 * t57739;
21729   t57763 = t4723 * t5171;
21730   t57765 = t1545 * t15177;
21731   t57771 = t18872 * t1133;
21732   t57772 = 0.1536e4 * t57771;
21733   t57773 = t6307 * t3188;
21734   t57774 = 0.1536e4 * t57773;
21735   t57775 = t4821 * t5171;
21736   t57776 = 0.1536e4 * t57775;
21737   t57777 = t1598 * t15177;
21738   t57778 = 0.1536e4 * t57777;
21739   t57779 = t19163 * t1133;
21740   t57780 = 0.768e3 * t57779;
21741   t57781 = t6309 * t3188;
21742   t57782 = 0.768e3 * t57781;
21743   t57783 = t20152 * t787;
21744   t57784 = 0.768e3 * t57783;
21745   t57785 = t344 * t57739;
21746   t57786 = 0.256e3 * t57785;
21747   t57787 = 0.80e2 * t57763 + 0.80e2 * t57765 + 0.40e2 * t57755 + 0.40e2 * t57757 + 0.40e2 * t57759 + 0.40e2 * t57761 - t57772 - t57750 - t57774 - t57752 - t57776 - t57778 - t57754 - t57780 - t57782 - t57784 - t57786;
21748   t57791 = t55672 * t1166 / 0.2e1 + t18992 * t3260 / 0.2e1 + t44769 * t1575 + t57750 + t57752 + t57754 - 0.72e2 * t57755 - 0.72e2 * t57757 - 0.72e2 * t57759 - 0.72e2 * t57761 + t57787 * t304 - 0.144e3 * t57763 - 0.144e3 * t57765;
21749   t57803 = t297 * t57739 * t304;
21750   t57808 = t57786 + 0.12e2 * t42576 * t1545 * t3257 - 0.9e1 / 0.2e1 * t42583 * t1545 * t3257 + t57772 + t57774 + t57776 + t57778 + t57780 + t57782 + 0.10e2 * t78 * t57739 * t299 + t57784 - 0.10e2 * t57803 - 0.9e1 / 0.4e1 * t8120 * t6204 * t3257;
21751   t57809 = t8127 * t6204;
21752   t57842 = t57809 * t3257 / 0.8e1 + t15281 * t15214 / 0.4e1 + t15281 * t15193 / 0.4e1 + t25024 * t6209 * t3257 / 0.16e2 + t42598 * t1545 * t3257 / 0.4e1 - 0.30e2 * t2524 * t6209 * t3257 + 0.12e2 * t15275 * t15193 + 0.75e2 / 0.4e1 * t25004 * t6209 * t3257 + 0.12e2 * t15275 * t15214 - 0.9e1 / 0.2e1 * t15278 * t15214 - 0.9e1 / 0.2e1 * t15278 * t15193 - 0.9e1 / 0.4e1 * t25041 * t6209 * t3257 + 0.6e1 * t8140 * t6204 * t3257;
21753   t57848 = t4723 * t327;
21754   t57855 = t1545 * t1174;
21755   t57878 = 0.24e2 * t301 * (t57563 + t57596 + t57624 + t57652 + t57743 + t57791 + t57808 + t57842) + 0.96e2 * t57848 * t5171 + 0.96e2 * t55699 * t5171 + 0.96e2 * t18941 * t15177 + 0.96e2 * t57855 * t4723 + 0.96e2 * t3188 * t1583 * t1545 + 0.96e2 * t47279 * t1545 + 0.96e2 * t44472 * t1545 + 0.96e2 * t1133 * t4803 * t1545 + 0.96e2 * t19981 * t4723 + 0.96e2 * t4771 * t15177 + 0.48e2 * t15129 * t6204 + 0.48e2 * t15132 * t6204 + 0.48e2 * t5146 * t18855;
21756   t57895 = t787 * t6282;
21757   t57902 = t296 * t20056;
21758   t57909 = 0.48e2 * t10516 * t6204 + 0.48e2 * t1133 * t55511 + 0.48e2 * t1133 * t57895 + 0.96e2 * t14257 * t5171 + 0.96e2 * t15180 * t5171 + 0.96e2 * t15187 * t4723 + 0.48e2 * t18855 * t3240 + 0.48e2 * t18958 * t3188 + 0.48e2 * t19872 * t2501 + 0.48e2 * t19872 * t3233 + 0.48e2 * t3272 * t6209 + 0.48e2 * t57739 * t810 + 0.48e2 * t57902 * t787 + 0.48e2 * t6204 * t9649;
21759   t57930 = 0.196e3 / 0.405e3 * t15389 * t5333 + 0.35e2 / 0.81e2 * t19025 * t1184 * t340 - 0.21063684444444444445e-1 * t4888 * t5314 - 0.21063684444444444444e-1 * t3358 * t6377 + 0.35e2 / 0.81e2 * (t57878 + t57909) * t336 * t340 + 0.14744579111111111111e-1 * t3358 * t6381 + 0.29489158222222222222e-1 * t872 * t5326 - 0.10531842222222222222e-1 * t19200 * t1236 - 0.10759796184905179200e-2 * t10359 * t6199 + 0.20469310008230452676e-1 * t15614 * t5333 - 0.392e3 / 0.675e3 * t3282 * t20305 + 0.196e3 / 0.405e3 * t3282 * t20308 - 0.21063684444444444444e-1 * t15599 * t1638;
21760   t57974 = t18898 * t3257;
21761   t57988 = t24907 * t57771;
21762   t57990 = t5176 * t4723;
21763   t57991 = t8039 * t57990;
21764   t57993 = t4729 * t5171;
21765   t57994 = t8039 * t57993;
21766   t58000 = t18880 * t1133;
21767   t58001 = t8039 * t58000;
21768   t58019 = t2479 * t19872;
21769   t58028 = t14219 * t15214 / 0.4e1 + t14219 * t15193 / 0.4e1 + t55463 * t3257 / 0.16e2 + t55456 * t3257 / 0.8e1 + 0.15e2 / 0.2e1 * t57537 - t57540 - 0.75e2 / 0.2e1 * t57541 + 0.15e2 * t57543 + 0.85e2 / 0.4e1 * t57545 + 0.15e2 * t57547 - t57550 - t57552 - 0.19e2 / 0.8e1 * t57553 + t58019 * t820 / 0.4e1 + t55451 * t1166 / 0.4e1 - 0.2e1 * t57644 + 0.15e2 / 0.2e1 * t57646 - 0.4e1 * t57648 - 0.4e1 * t57650;
21770   t58049 = t4723 * t305;
21771   t58062 = -t57656 - t20023 * t864 - 0.2e1 * t57658 - 0.2e1 * t57660 + t18907 * t3260 / 0.4e1 + t14214 * t5193 / 0.2e1 + t4745 * t15255 / 0.2e1 + t18912 * t3260 / 0.8e1 - 0.2e1 * t4880 * t5193 - 0.2e1 * t1622 * t15255 - t3350 * t6270 - t1221 * t19002 - t57803 + t793 * t57739 * t304 / 0.2e1 - 0.8e1 * t58049 * t5171 - 0.8e1 * t18915 * t15177 - 0.4e1 * t15361 * t6204 - 0.4e1 * t5368 * t18855 - 0.4e1 * t3214 * t19872 - 0.4e1 * t797 * t57739;
21772   t58073 = -0.24e2 * t57974 + 0.7e1 * t4745 * t15193 + 0.15e2 / 0.4e1 * t18912 * t3257 + 0.7e1 * t4745 * t15214 - t42403 * t15214 / 0.2e1 - t42403 * t15193 / 0.2e1 - t55365 * t3257 / 0.8e1 + 0.24e2 * t57988 - 0.12e2 * t57991 - 0.12e2 * t57994 + 0.7e1 / 0.2e1 * t3211 * t18983 - t15314 * t18983 / 0.4e1 - 0.6e1 * t58001 + 0.2e1 * t787 * t19938 + 0.2e1 * t296 * (t58028 + t58062) + 0.2e1 * t19872 * t802 + 0.2e1 * t18855 * t1145 + 0.7e1 / 0.2e1 * t6226 * t3260 - t42400 * t5193;
21773   t58077 = t8039 * t57564;
21774   t58112 = -t14200 * t15255 - t18869 * t3260 / 0.4e1 - 0.6e1 * t58077 + 0.4e1 * t2464 * t57763 + 0.4e1 * t2464 * t57765 - t15311 * t6270 / 0.2e1 - t5350 * t19002 / 0.2e1 + 0.2e1 * t2464 * t57757 + 0.2e1 * t2464 * t57755 + 0.2e1 * t2464 * t57759 - t3192 * t20023 / 0.2e1 + 0.2e1 * t6204 * t3222 + 0.4e1 * t15177 * t1557 + 0.4e1 * t5171 * t4755 + 0.4e1 * t4723 * t5374 + 0.4e1 * t1545 * t15373 + 0.2e1 * t3188 * t6237 + 0.2e1 * t1133 * t18927 + 0.2e1 * t57739 * t308 - t789 * t57739;
21775   t58116 = -0.8e1 / 0.3e1 * t57739 * t311 - 0.8e1 / 0.3e1 * t19872 * t805 - 0.8e1 / 0.3e1 * t18855 * t1148 - 0.8e1 / 0.3e1 * t6204 * t3225 - 0.16e2 / 0.3e1 * t15177 * t1560 - 0.16e2 / 0.3e1 * t5171 * t4758 - 0.16e2 / 0.3e1 * t4723 * t5377 - 0.16e2 / 0.3e1 * t1545 * t15376 - 0.8e1 / 0.3e1 * t3188 * t6240 - 0.8e1 / 0.3e1 * t1133 * t18930 - 0.8e1 / 0.3e1 * t787 * t19941 - 0.8e1 / 0.3e1 * t296 * (t58073 + t58112);
21776   t58127 = 0.27920303838531872239e-4 * t19211 * t20076 - 0.34900379798164840299e-5 * t3356 * sigma[2] * t6387 - 0.21063684444444444444e-1 * t4888 * t5342 + 0.56169825185185185184e-1 * t4888 * t5336 - 0.39318877629629629629e-1 * t872 * t20311 + 0.36552339300411522634e-1 * t15288 * t274 * t340 - 0.14042456296296296297e0 * t4887 * t5222 - 0.97472904801097393691e-1 * t4806 * t1112 * t340 + 0.57385579652827622400e-2 * t3230 * t19757 + t58116 * t316 + 0.80185688269845662151e-4 * t832 * t20108 - 0.21063684444444444444e-1 * t872 * t19741 + 0.12911755421886215040e-2 * t10354 * t55 * t19728 - 0.70212281481481481483e-1 * t19200 * t1232;
21777   t58189 = 0.307200e6 * t15177 * t1600 + 0.614400e6 * t3188 * t6311 + 0.30720e5 * t346 * t57739 + 0.307200e6 * t4825 * t5171 - 0.69120e5 * t57749 - 0.69120e5 * t57751 - 0.34560e5 * t57753 + 0.448e3 * t57755 + 0.448e3 * t57757 + 0.448e3 * t57759 + 0.448e3 * t57761 + 0.896e3 * t57763 + 0.896e3 * t57765 - 0.5760e4 * t57785;
21778   t58211 = 0.153600e6 * t1133 * t19171 + 0.1228800e7 * t15192 * t1571 + 0.1228800e7 * t15223 * t1571 + 0.153600e6 * t20160 * t787 + 0.153600e6 * t3188 * t6313 + 0.1843200e7 * t3195 * t6260 + 0.614400e6 * t3195 * t6262 - 0.34560e5 * t57771 - 0.34560e5 * t57773 - 0.34560e5 * t57775 - 0.34560e5 * t57777 - 0.17280e5 * t57779 - 0.17280e5 * t57781 - 0.17280e5 * t57783;
21779   t58236 = -0.11520e5 * t1133 * t19014 - 0.23040e5 * t15177 * t1571 + 0.1536e4 * t20047 * t787 + 0.768e3 * t301 * t57739 - 0.34560e5 * t3188 * t6260 - 0.11520e5 * t3188 * t6262 - 0.2880e4 * t319 * t57739 - 0.1105920e7 * t350 * t57739 + 0.26943e5 * t357 * t57739 - 0.23040e5 * t4779 * t5171 + 0.1536e4 * t57564;
21780   t58259 = 0.161658e6 * t1133 * t19152 - 0.8847360e7 * t1133 * t56019 - 0.17694720e8 * t14429 * t5171 + 0.323316e6 * t15177 * t1614 - 0.17694720e8 * t15177 * t4831 - 0.61931520e8 * t19181 * t3188 - 0.11520e5 * t20044 * t787 + 0.161658e6 * t20193 * t787 + 0.808290e6 * t3188 * t6342 + 0.161658e6 * t3188 * t6344 + 0.323316e6 * t4864 * t5171;
21781   t58263 = t348 * t19872;
21782   t58280 = 0.1536e4 * t1133 * t19012 + 0.3072e4 * t15177 * t1569 - 0.8847360e7 * t19186 * t3188 + 0.1536e4 * t3188 * t6258 - 0.69120e5 * t3195 * t6307 + 0.3072e4 * t4775 * t5171 - 0.8847360e7 * t58263 * t787 - 0.8e1 * t57739 + 0.3072e4 * t57990 + 0.3072e4 * t57993 + 0.1536e4 * t58000;
21783   t58303 = -0.69120e5 * t15192 * t1598 + 0.1616580e7 * t15192 * t1600 - 0.123863040e9 * t15192 * t1602 - 0.69120e5 * t15223 * t1598 + 0.1616580e7 * t15223 * t1600 - 0.123863040e9 * t15223 * t1602 - 0.34560e5 * t3195 * t6309 + 0.3233160e7 * t3195 * t6311 + 0.808290e6 * t3195 * t6313 - 0.371589120e9 * t3195 * t6315 - 0.61931520e8 * t3195 * t6317;
21784   t58322 = -0.9e1 / 0.4e1 * t29964 * t18975 - 0.3e1 / 0.2e1 * t9775 * t18983 + t9745 * t18983 / 0.4e1 - 0.3e1 / 0.2e1 * t2566 * t57639 + t2571 * t57639 / 0.4e1 + t9745 * t18978 / 0.2e1 + t30009 * t18975 / 0.8e1 + 0.24e2 * t344 * (t58189 + t58211) + (t58236 + t58259 + t58280 + t58303) * t304 + 0.6e1 * t29958 * t18975 - 0.3e1 * t9775 * t18978 - 0.240e3 * t57974 + 0.2640e4 * t57988 - 0.720e3 * t57991 - 0.720e3 * t57994 - 0.360e3 * t58001 - 0.3e1 / 0.2e1 * t8249 * t20008 - 0.3e1 / 0.2e1 * t2566 * t57570 - 0.3e1 / 0.2e1 * t2566 * t57573;
21785   t58364 = t8219 * t20008 / 0.4e1 + t2571 * t57570 / 0.4e1 + t2571 * t57573 / 0.4e1 + t8219 * t20003 / 0.2e1 + t2571 * t57584 / 0.2e1 + 0.4e1 * t863 * t19918 * t787 - t2602 * t57639 - 0.12e2 * t863 * t6220 * t3188 - 0.2880e4 * t794 * t20000 + 0.8e1 * t863 * t4742 * t5171 + 0.8e1 * t863 * t1550 * t15177 + 0.1440e4 * t864 * t20003 + 0.6e1 * t8252 * t57565 - 0.3e1 / 0.2e1 * t55962 * t3257 + t55827 * t3257 / 0.4e1 - 0.3e1 * t45119 * t4788 + t44923 * t4788 / 0.2e1 - 0.3e1 * t14358 * t15214 + t14373 * t15214 / 0.2e1;
21786   t58405 = 0.1440e4 * t1575 * t1221 * t4723 + 0.4e1 * t863 * t18904 * t1133 + 0.4e1 * t863 * t6223 * t3188 + 0.720e3 * t864 * t20008 - t2602 * t57573 - t2602 * t57570 - 0.3e1 * t8249 * t20003 - 0.3e1 * t2566 * t57584 - 0.3e1 * t2566 * t57587 - 0.9e1 / 0.4e1 * t25162 * t20000 - 0.9e1 / 0.4e1 * t8222 * t57565 + t2571 * t57587 / 0.2e1 + t25189 * t20000 / 0.8e1 + t8227 * t57565 / 0.8e1 + 0.7e1 * t8255 * t57565 - 0.2e1 * t2602 * t57584 - 0.2e1 * t2602 * t57587 - t8240 * t57565 / 0.2e1 - 0.3e1 * t42688 * t5190;
21787   t58422 = t8227 * t6204;
21788   t58447 = -0.3e1 * t14358 * t15193 - 0.3e1 * t14358 * t15197 + t42768 * t5190 / 0.2e1 + t14373 * t15193 / 0.2e1 + t14373 * t15197 / 0.2e1 + 0.6e1 * t25176 * t20000 - 0.360e3 * t58077 - 0.9e1 / 0.4e1 * t8222 * t6204 * t3257 + t58422 * t3257 / 0.8e1 + t15497 * t15214 / 0.4e1 + t15497 * t15193 / 0.4e1 + t25197 * t6209 * t3257 / 0.16e2 + 0.14e2 * t55740 * t15193 + 0.15e2 / 0.2e1 * t25156 * t6209 * t3257 + 0.72e2 * t55912 * t1133 + 0.72e2 * t9881 * t6204 + 0.7e1 * t29916 * t20008 - t15503 * t18983 / 0.2e1 + 0.12e2 * t15490 * t15214;
21789   t58481 = t301 * t20195;
21790   t58495 = -0.9e1 / 0.2e1 * t15494 * t15214 + 0.75e2 / 0.4e1 * t25165 * t6209 * t3257 - 0.9e1 / 0.2e1 * t15494 * t15193 - 0.9e1 / 0.4e1 * t25192 * t6209 * t3257 + 0.6e1 * t8252 * t6204 * t3257 + 0.144e3 * t3188 * t359 * t6209 + 0.144e3 * t1133 * t857 * t6209 + 0.144e3 * t37327 * t6209 + 0.144e3 * t29910 * t6209 + 0.144e3 * t45107 * t1545 + 0.144e3 * t15589 * t4723 + 0.144e3 * t14398 * t5171 + 0.144e3 * t4855 * t15177 + 0.72e2 * t58481 * t787 + 0.72e2 * t3325 * t18855 + 0.72e2 * t2577 * t19872 + 0.72e2 * t850 * t57739 + 0.72e2 * t19060 * t3188 + t42773 * t1545 * t3257 / 0.4e1;
21791   t58536 = -0.30e2 * t2571 * t6209 * t3257 + 0.12e2 * t15490 * t15193 + 0.48e2 * t45131 * t57771 - 0.24e2 * t15506 * t57990 - 0.48e2 * t25183 * t787 * t20000 - 0.24e2 * t15506 * t57993 + 0.14e2 * t29916 * t20003 - 0.12e2 * t15506 * t58000 + 0.288e3 * t10701 * t19891 + 0.288e3 * t8260 * t19891 + 0.288e3 * t2574 * t57763 + 0.288e3 * t2574 * t57765 + 0.288e3 * t47677 * t5176 + 0.288e3 * t42939 * t5176 + 0.288e3 * t14387 * t15192 + 0.288e3 * t14387 * t15196 - 0.3e1 / 0.2e1 * t29961 * t6267 + t9773 * t6270 / 0.2e1 + t3308 * t19002 / 0.2e1;
21792   t58559 = t20178 * t793;
21793   t58577 = t2564 * t20023 / 0.2e1 + t847 * t57740 / 0.2e1 + t30006 * t6267 / 0.4e1 + t4838 * t15255 + 0.144e3 * t55909 * t3195 + 0.288e3 * t20139 * t18875 + 0.288e3 * t9872 * t18875 + 0.288e3 * t45297 * t4729 + 0.288e3 * t14387 * t15223 + 0.144e3 * t9872 * t18880 + 0.144e3 * t2574 * t57759 + t58559 * t820 / 0.2e1 + 0.480e3 * t4798 * t5293 + 0.480e3 * t1579 * t15463 + 0.720e3 * t6267 * t3350 + 0.240e3 * t3267 * t6352 + 0.240e3 * t1170 * t19080 + 0.240e3 * t824 * t20212 + 0.240e3 * t324 * t57739 * t299;
21794   t58617 = -0.480e3 * t18925 * t1166 - 0.480e3 * t6235 * t3260 - 0.960e3 * t4753 * t5193 - 0.960e3 * t1555 * t15255 + 0.144e3 * t10701 * t19896 + 0.144e3 * t8260 * t19896 + 0.144e3 * t2574 * t57757 + 0.144e3 * t2574 * t57755 + t44847 * t1575 + t15475 * t4791 + t14368 * t5193 - 0.2e1 * t863 * t302 * t57739 - 0.480e3 * t800 * t20023 + t55822 * t1166 / 0.2e1 + t19090 * t3260 / 0.2e1 - t55743 * t15214 - t55743 * t15193 - t25112 * t6209 * t3257 / 0.4e1 + 0.12e2 * t42733 * t1545 * t3257 - 0.9e1 / 0.2e1 * t42691 * t1545 * t3257;
21795   t58623 = 0.8e1 / 0.7e1 * t57739 * t367 + 0.8e1 / 0.7e1 * t19872 * t867 + 0.8e1 / 0.7e1 * t18855 * t1224 + 0.8e1 / 0.7e1 * t6204 * t3353 + 0.16e2 / 0.7e1 * t15177 * t1625 + 0.16e2 / 0.7e1 * t5171 * t4883 + 0.16e2 / 0.7e1 * t4723 * t5305 + 0.16e2 / 0.7e1 * t1545 * t15594 + 0.8e1 / 0.7e1 * t3188 * t6365 + 0.8e1 / 0.7e1 * t1133 * t19195 + 0.8e1 / 0.7e1 * t787 * t20273 + 0.8e1 / 0.7e1 * t296 * (t58322 + t58364 + t58405 + t58447 + t58495 + t58536 + t58577 + t58617);
21796   t58634 = t18933 * t1154;
21797   t58637 = t19029 * t41;
21798   t58648 = 0.38989161920438957477e-1 * t46960 * t1593 + 0.48860531717430776419e-5 * t19211 * t20284 - 0.28e2 / 0.81e2 * t47258 * t1593 + 0.26329605555555555556e-1 * t58623 * t41 * t45 * t373 + 0.56169825185185185184e-1 * t872 * t19734 - 0.2e1 / 0.5e1 * t46945 * t1540 + 0.6e1 / 0.25e2 * t37720 * t6193 - t58634 * t1122 / 0.5e1 - 0.14620935720164609054e-1 * t58637 * t1192 - 0.28e2 / 0.81e2 * t47558 * t1593 - 0.28e2 / 0.81e2 * t15389 * t5236 - 0.14620935720164609054e-1 * t46967 * t1593 - 0.14620935720164609054e-1 * t15614 * t5236;
21799   t58664 = t19026 * t41;
21800   t58679 = 0.29489158222222222222e-1 * t15627 * t19949 - 0.35386989866666666666e-1 * t15627 * t19946 + 0.29489158222222222222e-1 * t4887 * t410 * t5326 + 0.52659211111111111112e-1 * t15598 * t1634 - 0.2e1 / 0.5e1 * t15609 * t5165 + 0.12e2 / 0.25e2 * t10354 * t19749 + 0.30546928864703109391e-3 * t832 * t20092 - 0.14e2 / 0.81e2 * t58664 * t1192 - 0.57275491621318330108e-4 * t3279 * t6299 - 0.57275491621318330108e-4 * t3276 * t6299 + 0.12e2 / 0.25e2 * t46942 * t5325 - 0.66e2 / 0.125e3 * t37717 * t19746 + 0.98e2 / 0.405e3 * t10600 * t6296 + 0.98e2 / 0.405e3 * t10603 * t6296;
21801   t58687 = -0.9e1 / 0.100e3 * t3494 * t6407 + t4897 * t5442 / 0.5e1 - 0.9e1 / 0.100e3 * t3367 * t6407 + t15635 * t1664 / 0.5e1 - 0.12e2 * t1101 * t46830 * t1524 + 0.171e3 / 0.1000e4 * t934 * t20362 - 0.9e1 / 0.50e2 * t934 * t20339 + t19643 * t875 - 0.24e2 * t57525 * t5109 + t269 * (t57930 + t58127 + t58648 + t58679) - 0.12e2 * t1101 * t15125 * t5106 + t6175 * t3365;
21802   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21803     v4rho2sigma2[11] = -t55274 - 0.2e1 / 0.3e1 * t55275 + t55277 / 0.2e1 - 0.2e1 / 0.3e1 * t57406 - t14133 * t2404 * t6469 * t3134 / 0.6e1 + t14133 * t14134 * t19224 * t1082 / 0.2e1 + t14532 * t2415 * t6469 * t9 / 0.2e1 - t57420 / 0.2e1 - t1352 * t2415 * t20443 * t767 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t57452 + t57482 + t57508 + t58687);
21804 
21805   t58742 = my_piecewise3(t76, 0, t54063 + 0.11e2 / 0.8100e4 * t56250 + 0.11e2 / 0.4050e4 * t490 * t1953 * t54068 * t3523 - 0.11e2 / 0.5400e4 * t490 * t1953 * t18395 * t3528 - t54038 - 0.66418494968550488888e-5 * t56272 - 0.13283698993710097778e-4 * t5889 * t54018 * t6143 * t3523 + 0.99627742452825733333e-5 * t5889 * t18414 * t6143 * t3528);
21806   t58762 = t954 * t19259;
21807   t58765 = t3534 * t5896;
21808   t58768 = t3539 * t5901;
21809   t58769 = t26388 * t58768;
21810   t58773 = t3539 * t5896;
21811   t58774 = t7699 * t58773;
21812   t58776 = t18466 * t3591;
21813   t58787 = t3534 * t5901;
21814   t58788 = t7699 * t58787;
21815   t58790 = t1377 * t15678;
21816   t58793 = -t4923 * t19390 - t11154 * t5962 / 0.4e1 + 0.4e1 * t1991 * t58762 + 0.2e1 * t1991 * t58765 + 0.24e2 * t58769 + 0.7e1 / 0.2e1 * t3556 * t5962 - 0.6e1 * t58774 - 0.24e2 * t58776 + 0.7e1 / 0.2e1 * t5918 * t3594 + 0.15e2 / 0.4e1 * t18480 * t3591 - t13834 * t15832 - t18437 * t3594 / 0.4e1 - t55040 * t3591 / 0.8e1 - 0.6e1 * t58788 + 0.4e1 * t1991 * t58790;
21817   t58796 = t4926 * t4919;
21818   t58797 = t7699 * t58796;
21819   t58802 = t4919 * t4919;
21820   t58813 = t5902 * t3594;
21821   t58815 = t18437 * t3591;
21822   t58817 = t4399 * t15832;
21823   t58820 = 0.5e1 / 0.2e1 * t18466 * t3594;
21824   t58821 = t54736 * t3591;
21825   t58823 = t57016 * t982;
21826   t58825 = t18469 * t3594;
21827   t58828 = 0.5e1 / 0.2e1 * t54726 * t3591;
21828   t58839 = -0.2e1 * t1454 * t15832 - t3673 * t5962 - 0.2e1 * t1023 * t19390 + 0.15e2 / 0.2e1 * t58813 + 0.85e2 / 0.4e1 * t58815 - 0.4e1 * t58817 - t58820 - 0.19e2 / 0.8e1 * t58821 - 0.4e1 * t58823 - 0.2e1 * t58825 - t58828 + t57310 * t982 / 0.2e1 + t18475 * t3594 / 0.4e1 + t54963 * t3591 / 0.8e1 + t4538 * t15832 / 0.2e1 + t18480 * t3594 / 0.8e1;
21829   t58842 = t54743 * t3591;
21830   t58844 = t5918 * t3591;
21831   t58846 = t13834 * t15783;
21832   t58849 = 0.10e2 * t13842 * t15783;
21833   t58856 = t1999 * t58802 * t86;
21834   t58873 = t79 * t58742 * t86;
21835   t58876 = t54950 * t3591 / 0.16e2 + 0.15e2 / 0.2e1 * t58842 - 0.75e2 / 0.2e1 * t58844 + 0.30e2 * t58846 - t58849 + t13948 * t15783 / 0.2e1 - 0.2e1 * t84 * t58802 * t86 - 0.4e1 * t58856 + t2006 * t58802 * t86 / 0.2e1 + t525 * t58742 * t86 / 0.2e1 - 0.8e1 * t18483 * t15678 - 0.4e1 * t15734 * t5896 - 0.8e1 * t4943 * t19259 - 0.4e1 * t529 * t58742 - t58873 - 0.8e1 * t58802 * t87;
21836   t58896 = -t15691 * t5962 / 0.2e1 - 0.24e2 * t58797 + 0.14e2 * t4538 * t15783 - t41402 * t15783 - t1986 * t58802 * t86 + 0.4e1 * t1991 * t58802 - t521 * t58742 + 0.2e1 * t77 * (t58839 + t58876) + 0.4e1 * t15678 * t1389 + 0.8e1 * t4919 * t4951 + 0.2e1 * t3534 * t5929 + 0.4e1 * t954 * t19325 + 0.4e1 * t1377 * t15746 + 0.2e1 * t58742 * t90 + 0.4e1 * t19259 * t966 + 0.2e1 * t5896 * t3567;
21837   t58925 = t5959 * t3539;
21838   t58928 = t5962 * t3539;
21839   t58935 = -0.144e3 * t58802 + 0.20e2 * t58813 + 0.55e2 / 0.2e1 * t58815 - 0.10e2 * t58817 - t58820 - 0.5e1 / 0.4e1 * t58821 - 0.10e2 * t58823 - 0.5e1 * t58825 - t58828 + 0.20e2 * t58842 - 0.100e3 * t58844 + 0.24e2 * t14925 * t15783 - 0.9e1 * t14928 * t15783 + t14931 * t15783 / 0.2e1 - 0.9e1 / 0.2e1 * t41340 * t15789 - 0.30e2 * t2051 * t58925 + 0.6e1 * t7538 * t58928 + 0.12e2 * t41317 * t15789 + t13822 * t15786 / 0.2e1;
21840   t58938 = t5959 * t3534;
21841   t58943 = t1407 * t15678;
21842   t58950 = t58762 * t86;
21843   t58977 = t41335 * t15789 / 0.4e1 + 0.6e1 * t7538 * t58938 + 0.75e2 / 0.4e1 * t26287 * t58925 - 0.3e1 * t2044 * t58943 - 0.9e1 / 0.4e1 * t7505 * t58938 - 0.9e1 / 0.4e1 * t26284 * t58925 + t2051 * t58950 / 0.2e1 + t9089 * t19363 + t28061 * t19360 / 0.4e1 + t13822 * t15783 + 0.12e2 * t28053 * t19360 - 0.6e1 * t9094 * t19363 - 0.9e1 / 0.2e1 * t28050 * t19360 - 0.3e1 * t9094 * t19368 + t9089 * t19368 / 0.2e1 - 0.3e1 * t2044 * t58950 + t7500 * t58938 / 0.8e1 + t26297 * t58925 / 0.16e2 - 0.3e1 * t13831 * t15786 - 0.6e1 * t43878 * t4983;
21844   t58982 = t5962 * t3534;
21845   t58998 = t77 * t58742;
21846   t59000 = 0.1536e4 * t58768;
21847   t59001 = t1401 * t15700;
21848   t59002 = 0.6144e4 * t59001;
21849   t59003 = t5999 * t3534;
21850   t59004 = 0.1536e4 * t59003;
21851   t59005 = t83 * t58802;
21852   t59006 = 0.1536e4 * t59005;
21853   t59007 = t1430 * t15678;
21854   t59008 = 0.1536e4 * t59007;
21855   t59009 = t5950 * t3539;
21856   t59010 = 0.1536e4 * t59009;
21857   t59011 = t19494 * t954;
21858   t59012 = 0.1536e4 * t59011;
21859   t59013 = t6001 * t3534;
21860   t59014 = 0.768e3 * t59013;
21861   t59015 = t128 * t58742;
21862   t59016 = 0.256e3 * t59015;
21863   t59017 = 0.80e2 * t58802 + 0.80e2 * t58790 + 0.40e2 * t58765 + 0.80e2 * t58762 + 0.40e2 * t58998 - t59000 - t59002 - t59004 - t59006 - t59008 - t59010 - t59012 - t59014 - t59016;
21864   t59025 = t58802 * t86;
21865   t59028 = t43915 * t4983 - 0.6e1 * t13831 * t15783 - 0.3e1 / 0.2e1 * t2044 * t58982 - 0.9e1 / 0.4e1 * t7505 * t58928 + t2051 * t58982 / 0.4e1 + t7500 * t58928 / 0.8e1 + t2051 * t58943 / 0.2e1 + 0.80e2 * t58846 - t58849 + t59017 * t86 - 0.144e3 * t58790 - 0.72e2 * t58765 - 0.144e3 * t58762 - 0.72e2 * t58998 + t59000 + t59006 + t59016 - 0.10e2 * t58856 - 0.10e2 * t58873 + t2051 * t59025 / 0.2e1;
21866   t59042 = t58742 * t86;
21867   t59055 = t59002 - 0.3e1 / 0.2e1 * t54782 * t3591 + t54778 * t3591 / 0.4e1 + t46430 * t1407 + 0.2e1 * t14870 * t4986 + t4378 * t15832 - 0.3e1 / 0.2e1 * t33973 * t5959 + t11251 * t5962 / 0.2e1 + t2874 * t19390 + t556 * t59042 / 0.2e1 + t33980 * t5959 / 0.4e1 + t57030 * t982 + t18720 * t3594 / 0.2e1 - 0.3e1 * t2044 * t59025 + t59004 + t59008 + t59010 + t59012 + t59014 + 0.10e2 * t78 * t58742 * t81;
21868   t59100 = 0.24e2 * t83 * (t58935 + t58977 + t59028 + t59055) + 0.48e2 * t18714 * t3534 + 0.48e2 * t547 * t58742 + 0.48e2 * t3539 * t5974 + 0.96e2 * t56866 * t954 + 0.96e2 * t4365 * t15678 + 0.48e2 * t15756 * t5896 + 0.96e2 * t15759 * t5896 + 0.96e2 * t4961 * t19259 + 0.48e2 * t11239 * t5896 + 0.96e2 * t2862 * t19259 + 0.192e3 * t14861 * t4919 + 0.96e2 * t3534 * t1415 * t1377 + 0.192e3 * t954 * t4998 * t1377 + 0.192e3 * t19343 * t4919 + 0.96e2 * t46477 * t1377 + 0.96e2 * t58802 * t109 + 0.192e3 * t56874 * t4919 + 0.96e2 * t18697 * t15678 + 0.48e2 * t5901 * t3606;
21869   t59162 = 0.288e3 * t1017 * t5901 * t954 + 0.144e3 * t143 * t3534 * t5901 + 0.480e3 * t58802 * t78 * t81 + 0.72e2 * t11398 * t5896 + 0.144e3 * t1377 * t45836 + 0.144e3 * t15678 * t4464 + 0.144e3 * t15885 * t5896 + 0.72e2 * t18566 * t3534 + 0.144e3 * t19259 * t2947 + 0.288e3 * t2110 * t58802 + 0.144e3 * t33580 * t5901 + 0.144e3 * t3539 * t54492 + 0.144e3 * t56558 * t954 + 0.72e2 * t58742 * t601;
21870   t59189 = 0.288e3 * t3539 * t1448 * t1377 + 0.24e2 * t14661 * t15783 - 0.9e1 * t14664 * t15783 - 0.48e2 * t14676 * t58796 + 0.28e2 * t54124 * t15783 - 0.2e1 * t54127 * t15783 + t14667 * t15783 / 0.2e1 + 0.2640e4 * t58769 - 0.360e3 * t58774 - 0.240e3 * t58776 + t41786 * t15789 / 0.4e1 + 0.6e1 * t7682 * t58938 + 0.75e2 / 0.4e1 * t26580 * t58925 - 0.3e1 * t2102 * t58943;
21871   t59222 = -0.960e3 * t79 * t58802 * t86 + 0.288e3 * t14796 * t4919 - 0.3e1 / 0.2e1 * t2102 * t58982 - 0.9e1 / 0.4e1 * t7667 * t58928 + t2107 * t58982 / 0.4e1 + t7655 * t58928 / 0.8e1 + 0.12e2 * t41664 * t15789 - 0.30e2 * t2107 * t58925 + 0.6e1 * t7682 * t58928 + 0.48e2 * t614 * t5902 * t3539 - 0.12e2 * t614 * t18469 * t3539 - 0.48e2 * t26563 * t58925 + t13671 * t15786 / 0.2e1 - 0.3e1 * t13678 * t15786;
21872   t59255 = -0.9e1 / 0.2e1 * t41667 * t15789 + 0.4e1 * t614 * t5915 * t3534 + 0.7e1 * t7673 * t58928 - t2138 * t58982 - 0.12e2 * t614 * t5912 * t3534 + 0.8e1 * t614 * t1382 * t15678 - 0.2e1 * t2138 * t58943 - t7644 * t58938 / 0.2e1 - t26699 * t58925 / 0.4e1 + t2107 * t58943 / 0.2e1 + t7655 * t58938 / 0.8e1 + t26679 * t58925 / 0.16e2 - 0.9e1 / 0.4e1 * t7667 * t58938 - 0.9e1 / 0.4e1 * t26574 * t58925 - 0.6e1 * t8910 * t19363;
21873   t59285 = -0.9e1 / 0.2e1 * t28346 * t19360 - 0.3e1 * t8910 * t19368 + 0.8e1 * t614 * t19305 * t954 - 0.2e1 * t2138 * t58950 - 0.6e1 * t43508 * t4983 + t43235 * t4983 - 0.6e1 * t13678 * t15783 - t7644 * t58928 / 0.2e1 + t2107 * t58950 / 0.2e1 + t8901 * t19363 + t28362 * t19360 / 0.4e1 + 0.2880e4 * t1407 * t1023 * t4919 + t13671 * t15783 + 0.12e2 * t28206 * t19360;
21874   t59313 = 0.7e1 * t7673 * t58938 + 0.15e2 / 0.2e1 * t26708 * t58925 + t8901 * t19368 / 0.2e1 - 0.3e1 * t2102 * t58950 - 0.360e3 * t58788 + 0.2e1 * t14609 * t4986 + t4447 * t15832 - 0.3e1 / 0.2e1 * t33489 * t5959 + t11465 * t5962 / 0.2e1 + t2930 * t19390 + t598 * t59042 / 0.2e1 + t33549 * t5959 / 0.4e1 + 0.576e3 * t19558 * t19278 + 0.576e3 * t8954 * t19278 + 0.288e3 * t2110 * t58790;
21875   t59344 = 0.240e3 * t106 * t58742 * t81 + 0.576e3 * t13711 * t15700 + 0.288e3 * t13711 * t15703 - 0.960e3 * t1387 * t15832 + 0.480e3 * t1411 * t15976 + 0.288e3 * t19283 * t8954 + 0.480e3 * t19551 * t986 + 0.288e3 * t2110 * t58762 + 0.144e3 * t2110 * t58765 - 0.480e3 * t3594 * t5927 + 0.240e3 * t3601 * t6044 + 0.720e3 * t3673 * t5959 + 0.576e3 * t43676 * t4926 + 0.720e3 * t521 * t58773;
21876   t59390 = 0.3072e4 * t1401 * t15678 - 0.23040e5 * t1403 * t15678 + 0.323316e6 * t1446 * t15678 - 0.17694720e8 * t15678 * t4440 - 0.61931520e8 * t18646 * t3534 - 0.8847360e7 * t18651 * t3534 + 0.3072e4 * t19406 * t954 - 0.23040e5 * t19408 * t954 + 0.323316e6 * t19483 * t954 + 0.1536e4 * t3534 * t5950 - 0.34560e5 * t3534 * t5952 - 0.11520e5 * t3534 * t5954 + 0.808290e6 * t3534 * t6034 + 0.161658e6 * t3534 * t6036 - 0.371589120e9 * t3539 * t6007 - 0.17694720e8 * t56662 * t954 - 0.8e1 * t58742 + 0.6144e4 * t58796;
21877   t59425 = -0.2880e4 * t101 * t58742 - 0.23040e5 * t128 * t58802 + 0.323316e6 * t130 * t58802 - 0.17694720e8 * t132 * t58802 - 0.1105920e7 * t134 * t58742 + 0.26943e5 * t141 * t58742 - 0.138240e6 * t1430 * t15700 + 0.3233160e7 * t1432 * t15700 - 0.247726080e9 * t1434 * t15700 - 0.69120e5 * t3539 * t5999 - 0.34560e5 * t3539 * t6001 + 0.3233160e7 * t3539 * t6003 + 0.808290e6 * t3539 * t6005 - 0.61931520e8 * t3539 * t6009 + 0.768e3 * t58742 * t83 + 0.3072e4 * t58802 * t77 + 0.1536e4 * t58773 + 0.1536e4 * t58787;
21878   t59445 = 0.307200e6 * t101 * t58802 + 0.30720e5 * t130 * t58742 + 0.307200e6 * t1432 * t15678 + 0.307200e6 * t19502 * t954 + 0.614400e6 * t3534 * t6003 + 0.153600e6 * t3534 * t6005 + 0.896e3 * t58762 + 0.448e3 * t58765 + 0.896e3 * t58790 + 0.896e3 * t58802 + 0.448e3 * t58998;
21879   t59461 = 0.2457600e7 * t1403 * t15700 + 0.1843200e7 * t3539 * t5952 + 0.614400e6 * t3539 * t5954 - 0.34560e5 * t58768 - 0.138240e6 * t59001 - 0.34560e5 * t59003 - 0.34560e5 * t59005 - 0.34560e5 * t59007 - 0.34560e5 * t59009 - 0.34560e5 * t59011 - 0.17280e5 * t59013 - 0.5760e4 * t59015;
21880   t59479 = t56612 * t982 - 0.2e1 * t614 * t84 * t58742 - 0.960e3 * t964 * t19390 + t18562 * t3594 / 0.2e1 + t54325 * t3591 / 0.4e1 + t46136 * t1407 + (t59390 + t59425) * t86 + 0.24e2 * t128 * (t59445 + t59461) - 0.1440e4 * t58797 - 0.2e1 * t2138 * t59025 - 0.3e1 / 0.2e1 * t54294 * t3591 + 0.8e1 * t614 * t525 * t58802 + t2107 * t59025 / 0.2e1 - 0.3e1 * t2102 * t59025 - 0.2880e4 * t5959 * t3670;
21881   t59501 = (-0.8e1 / 0.3e1 * t58742 * t93 - 0.16e2 / 0.3e1 * t19259 * t969 - 0.8e1 / 0.3e1 * t5896 * t3570 - 0.16e2 / 0.3e1 * t15678 * t1392 - 0.32e2 / 0.3e1 * t4919 * t4954 - 0.16e2 / 0.3e1 * t1377 * t15749 - 0.8e1 / 0.3e1 * t3534 * t5932 - 0.16e2 / 0.3e1 * t954 * t19328 - 0.8e1 / 0.3e1 * t77 * (t58793 + t58896)) * t98 - 0.2e1 / 0.5e1 * t46512 * t1372 + 0.6e1 / 0.25e2 * t33666 * t5883 - 0.10759796184905179200e-2 * t11219 * t5891 + 0.35e2 / 0.81e2 * t59100 * t120 * t124 + 0.36552339300411522634e-1 * t15839 * t51 * t124 - 0.28e2 / 0.81e2 * t46201 * t1425 - 0.14620935720164609054e-1 * t46204 * t1425 + 0.98e2 / 0.405e3 * t11313 * t5988 - 0.57275491621318330108e-4 * t3610 * t5991 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t58742 * t151 + 0.16e2 / 0.7e1 * t19259 * t1026 + 0.8e1 / 0.7e1 * t5896 * t3676 + 0.16e2 / 0.7e1 * t15678 * t1457 + 0.32e2 / 0.7e1 * t4919 * t5075 + 0.16e2 / 0.7e1 * t1377 * t16000 + 0.8e1 / 0.7e1 * t3534 * t6057 + 0.16e2 / 0.7e1 * t954 * t19588 + 0.8e1 / 0.7e1 * t77 * (t59162 + t59189 + t59222 + t59255 + t59285 + t59313 + t59344 + t59479)) * t41 * t45 * t157 + 0.52659211111111111112e-1 * t16004 * t1466 - 0.21063684444444444444e-1 * t16005 * t1470 - 0.21063684444444444444e-1 * t3681 * t6069 + 0.14744579111111111111e-1 * t3681 * t6073 - 0.34900379798164840299e-5 * t3679 * sigma[0] * t6079;
21882   t59511 = t5865 * t3684 - 0.12e2 * t4310 * t15665 + 0.2e1 * t1362 * t16012 + 0.54e2 * t1862 * t33105 * t5855 - 0.12e2 * t478 * t45616 * t1356 - 0.12e2 * t478 * t33113 * t5855 - 0.6e1 * t478 * t11098 * t5857 + t33 * t59501 + t6093 * t3771 * t230 + t16014 * t1496 / 0.5e1 - 0.9e1 / 0.100e3 * t3772 * t6099 + t3772 * t6118 / 0.10e2;
21883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21884     v4rho2sigma2[12] = -t53156 - 0.4e1 / 0.3e1 * t56126 + t56140 - t1352 * t2753 * t6161 * t3507 / 0.6e1 + t14133 * t14539 * t19617 * t944 - t1352 * t2774 * t6161 * t3516 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * t59511;
21885 
21886   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21887     v4rho2sigma2[13] = 0.0e0;
21888 
21889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21890     v4rho2sigma2[14] = 0.0e0;
21891 
21892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21893     v4rho2sigma2[15] = 0.0e0;
21894 
21895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
21896     v4rho2sigma2[16] = 0.0e0;
21897 
21898   t59528 = t5106 * t5106;
21899   t59543 = t3800 * t6165;
21900   t59545 = t5102 * t5106;
21901   t59547 = t261 * t59528;
21902   t59549 = t1525 * t16083;
21903   t59551 = t3794 * t6167;
21904   t59554 = t6168 * t3800;
21905   t59556 = 0.4e1 * t1524 * t16083 + 0.2e1 * t3800 * t6167 + 0.4e1 * t19634 + 0.36e2 * t19640 + 0.4e1 * t59528 + 0.18e2 * t59543 + 0.72e2 * t59545 + 0.36e2 * t59547 + 0.36e2 * t59549 + 0.18e2 * t59551 + 0.18e2 * t59554 + t6169 + t6173;
21906   t59557 = t59556 * t268;
21907   t59561 = t6460 * t261;
21908   t59567 = t19626 * t1314;
21909   t59573 = t6460 * t3818;
21910   t59577 = t19642 * t1100;
21911   t59580 = t6401 * t4189;
21912   t59591 = -0.24e2 * t1101 * t4244 * t59528 - 0.12e2 * t1101 * t16193 * t6167 - 0.24e2 * t5116 * t16194 + t59557 * t441 - 0.24e2 * t5116 * t16206 - 0.12e2 * t1101 * t59561 * t3794 - 0.12e2 * t19644 * t4245 + 0.171e3 / 0.250e3 * t12495 * t59567 - 0.6e1 * t1101 * t19701 * t3800 + 0.54e2 * t3817 * t59573 * t3794 - 0.12e2 * t59577 * t1322 - 0.9e1 / 0.100e3 * t59580 * t4190 - 0.12e2 * t5116 * t16115 - 0.24e2 * t5116 * t16102 - 0.12e2 * t5116 * t16105 - 0.12e2 * t19644 * t4241;
21913   t59594 = t6174 * t3816;
21914   t59612 = t3794 * t6165 * t262;
21915   t59624 = t38189 * t6165 * t3794;
21916   t59627 = -0.48e2 * t16197 * t19638 - 0.24e2 * t16197 * t19640 + 0.648e3 * t16222 * t19662 + 0.108e3 * t16222 * t19677 + 0.648e3 * t16226 * t19662 + 0.216e3 * t16230 * t19822 - 0.48e2 * t16241 * t19638 - 0.24e2 * t16241 * t19640 - 0.48e2 * t16244 * t19818 - 0.6e1 * t19644 * t4248 + 0.54e2 * t4237 * t59594 + 0.9720e4 * t50425 * t59624 + 0.1080e4 * t5453 * t59612 - 0.48e2 * t5459 * t59545 - 0.12e2 * t19695 - 0.12e2 * t19698;
21917   t59635 = t12321 * t1680;
21918   t59642 = t19676 * t3800;
21919   t59646 = t12322 * t6167 * t3794;
21920   t59655 = t48839 * t441;
21921   t59658 = t19661 * t3800;
21922   t59662 = t38258 * t6165 * t3794;
21923   t59665 = t5123 * t16083;
21924   t59668 = t19657 * t3800;
21925   t59671 = 0.108e3 * t16233 * t19822 + 0.108e3 * t16233 * t19836 - 0.648e3 * t16236 * t59646 - 0.7776e4 * t16236 * t59662 - 0.648e3 * t16236 * t59668 - 0.1296e4 * t16238 * t59635 - 0.1296e4 * t16238 * t59655 - 0.24e2 * t16247 * t19818 - 0.24e2 * t16247 * t19833 + 0.648e3 * t16251 * t19822 + 0.648e3 * t16251 * t19836 + 0.54e2 * t5453 * t59642 + 0.324e3 * t5453 * t59658 + 0.108e3 * t5453 * t59665 - 0.24e2 * t5459 * t59549 - 0.12e2 * t5459 * t59554;
21926   t59678 = t3810 * t1680;
21927   t59681 = t12312 * t1680;
21928   t59684 = t1101 * t5486;
21929   t59687 = t3817 * t5486;
21930   t59713 = -0.12e2 * t1101 * t48794 * t1524 + 0.2e1 * t19643 * t1339 + t6175 * t4272 - 0.48e2 * t59678 * t5109 + 0.216e3 * t59681 * t5124 - 0.48e2 * t59684 * t5109 + 0.216e3 * t59687 * t5124 - t6447 - 0.12e2 * t49034 * t1670 - 0.24e2 * t16110 * t5456 - 0.24e2 * t16110 * t5462 + 0.108e3 * t3817 * t4236 * t59528 + 0.54e2 * t3817 * t39373 * t6165 + 0.171e3 / 0.1000e4 * t12495 * t6425 * t4190 - 0.9e1 / 0.25e2 * t50456 * t5494 - 0.9e1 / 0.100e3 * t4278 * t6425 * t4225 - 0.9e1 / 0.50e2 * t4278 * t19800 * t1314;
21931   t59721 = t263 * t6167 * t3794;
21932   t59735 = t19760 * t262;
21933   t59739 = t1680 * t3794;
21934   t59745 = t1239 * t1091;
21935   t59749 = t376 * t3800;
21936   t59775 = t20322 * t262;
21937   t59779 = t3810 * t1641;
21938   t59782 = t12312 * t1641;
21939   t59791 = t5441 * t5441;
21940   t59795 = -0.24e2 * t1101 * t59745 * t6165 - 0.12e2 * t1101 * t59749 * t6165 - 0.9e1 / 0.25e2 * t1285 * t20339 - 0.12e2 * t19845 - 0.12e2 * t5116 * t16305 + 0.54e2 * t3817 * t39346 * t6165 + 0.171e3 / 0.1000e4 * t406 * t20361 * t4225 - 0.24e2 * t1101 * t3827 * t59528 + 0.108e3 * t3817 * t3819 * t59528 + t3808 * t6390 - 0.9e1 / 0.50e2 * t1244 * t20399 - 0.9e1 / 0.50e2 * t1285 * t20399 - 0.12e2 * t1101 * t59775 * t1091 - 0.48e2 * t59779 * t5109 + 0.216e3 * t59782 * t5124 - 0.9e1 / 0.50e2 * t406 * t4189 * t19800 * t1314 + 0.171e3 / 0.500e3 * t1285 * t20362 - 0.9e1 / 0.50e2 * t406 * t4189 * t59791;
21941   t59803 = t6390 * t261;
21942   t59832 = 0.171e3 / 0.500e3 * t1646 * t16849 - 0.24e2 * t16875 * t19640 + 0.108e3 * t16895 * t19677 - 0.12e2 * t20343 - 0.12e2 * t1101 * t59803 * t3794 - 0.24e2 * t3810 * t20352 - 0.12e2 * t12309 * t6184 - 0.9e1 / 0.50e2 * t1646 * t16311 - 0.9e1 / 0.25e2 * t5396 * t5407 + 0.216e3 * t16895 * t19665 - 0.1296e4 * t50352 * t19658 + 0.2e1 / 0.5e1 * t16925 * t1664 + 0.2e1 / 0.5e1 * t5396 * t5442 - 0.12e2 * t1101 * t48962 * t1524 - 0.24e2 * t20372 + 0.108e3 * t20374 - 0.24e2 * t5116 * t16835 - 0.9e1 / 0.25e2 * t5398 * t5407;
21943   t59854 = t6390 * t3818;
21944   t59875 = -0.6e1 * t12309 * t6190 + t16862 * t1664 / 0.5e1 + t16928 * t1664 / 0.5e1 + 0.2e1 / 0.5e1 * t5398 * t5442 - 0.6e1 * t1101 * t12905 * t6167 - 0.24e2 * t3810 * t20406 - 0.12e2 * t3810 * t20342 + 0.1080e4 * t5122 * t59612 - 0.12e2 * t1101 * t16830 * t6167 + 0.54e2 * t3817 * t59854 * t3794 - 0.24e2 * t5116 * t16831 + 0.108e3 * t16898 * t19677 - 0.48e2 * t20369 * t16244 + 0.216e3 * t20425 * t16230 - 0.48e2 * t16875 * t19638 - 0.6e1 * t1101 * t20402 * t3800 - 0.24e2 * t5116 * t16827 - 0.24e2 * t3810 * t20386;
21945   t59905 = t58 * t3849;
21946   t59914 = 0.146e3 / 0.3645e4 * t46 * t5418 * t5106 - 0.73e2 / 0.9720e4 * t46 * t1654 * t16083 - 0.146e3 / 0.3645e4 * t46 * t1112 * t5106 * t424 + 0.292e3 / 0.3645e4 * t46 * t19772 * t1091 + 0.73e2 / 0.9720e4 * t46 * t274 * t16083 * t424 - 0.73e2 / 0.2430e4 * t46 * t19776 * t1091 - 0.73e2 / 0.4860e4 * t46 * t6411 * t3800 + 0.191387e6 / 0.2361960e7 * t59905 - 0.146e3 / 0.135e3 * t4207 * t6167 * t424 + 0.584e3 / 0.135e3 * t19789 * t1091 + 0.292e3 / 0.135e3 * t6418 * t3800;
21947   t59935 = 0.1168e4 / 0.135e3 * t5429 * t5106 + 0.584e3 / 0.135e3 * t420 * t59528 + 0.584e3 / 0.135e3 * t1658 * t16083 + 0.146e3 / 0.135e3 * t4210 * t6167 + 0.292e3 / 0.135e3 * t4207 * t6165 - t6420 + t6424 - 0.292e3 / 0.135e3 * t19790 + 0.584e3 / 0.135e3 * t19792 + 0.292e3 / 0.135e3 * t19798 + 0.803e3 / 0.10935e5 * t46 * t3843 * t1524 * t424 - 0.803e3 / 0.10935e5 * t46 * t16042 * t1524;
21948   t59936 = t59914 + t59935;
21949   t59952 = t3817 * t5383;
21950   t59965 = t20081 * t41;
21951   t59985 = t6451 * t3837;
21952   t59988 = t19731 * t1122;
21953   t59997 = -0.2e1 / 0.5e1 * t5227 * t16136 + 0.6e1 / 0.25e2 * t38859 * t6193 - 0.14620935720164609054e-1 * t5320 * t16353 + 0.77978323840877914953e-1 * t59965 * t1192 - 0.14620935720164609054e-1 * t19967 * t4005 - 0.28e2 / 0.81e2 * t50164 * t1593 - 0.56e2 / 0.81e2 * t50006 * t1593 - 0.28e2 / 0.81e2 * t50009 * t1593 - 0.56e2 / 0.81e2 * t16602 * t5236 - 0.28e2 / 0.81e2 * t5317 * t16353 - 0.14620935720164609054e-1 * t50167 * t1593 - 0.29241871440329218108e-1 * t16577 * t5236 - 0.28405861928149673088e-2 * t12656 * t55 * t59985 - 0.13772539116678629376e-1 * t19961 * t59988 + 0.98e2 / 0.405e3 * t12853 * t6296 + 0.196e3 / 0.405e3 * t12847 * t6296 + 0.98e2 / 0.405e3 * t12850 * t6296;
21954   t59998 = t6243 * t3869;
21955   t60023 = t6451 * t3853;
21956   t60035 = t5165 * t5165;
21957   t60041 = -0.69042025519808233200e-4 * t5889 * t49474 * t55 * t59985 - 0.35068965343394658133e-3 * t5889 * t19860 * t59988 - 0.13283698993710097778e-4 * t5889 * t55325 * t6451 * t3895 - 0.10626959194968078222e-3 * t5889 * t18849 * t19731 * t1127 - 0.11e2 / 0.1350e4 * t5889 * t15151 * t15159 * t5165 - 0.10095611235219674311e-2 * t5889 * t6198 * t59905 - t55322 + 0.32877155009432492000e-4 * t5889 * t19860 * t60023 + 0.99627742452825733333e-5 * t5889 * t18849 * t6451 * t3900 - 0.21918103339621661334e-4 * t57709 * t57711 * t57712 * t1127 + 0.11e2 / 0.900e3 * t490 * t3882 * t290 * t60035 + 0.77e2 / 0.9000e4 * t57680;
21958   t60070 = t5325 * t5165;
21959   t60075 = 0.11e2 / 0.8100e4 * t57687 - 0.11e2 / 0.1350e4 * t57699 - 0.21918103339621661334e-4 * t57706 - 0.66418494968550488888e-5 * t57717 - 0.77e2 / 0.6000e4 * t490 * t12553 * t6194 * t3853 - 0.11e2 / 0.5400e4 * t490 * t3882 * t18841 * t3900 + 0.11e2 / 0.900e3 * t490 * t3882 * t1541 * t16136 + 0.2387e4 / 0.60000e5 * t490 * t38303 * t6194 * t3837 + 0.11e2 / 0.4050e4 * t490 * t3882 * t55312 * t3895 + 0.77e2 / 0.9000e4 * t5889 * t47043 * t19746 * t1127 - 0.77e2 / 0.1500e4 * t5889 * t49474 * t60070 - 0.10626959194968078222e-3 * t57732 + t55308;
21960   t60077 = my_piecewise3(t295, 0, t60041 + t60075);
21961   t60102 = t5176 * t5171;
21962   t60125 = 0.24e2 * t15490 * t16423 - 0.9e1 * t15494 * t16423 + t15497 * t16423 / 0.2e1 - 0.2e1 * t55743 * t16423 - 0.48e2 * t15506 * t60102 + 0.28e2 * t15500 * t20003 + 0.144e3 * t58481 * t1133 + 0.288e3 * t15589 * t5171 + 0.144e3 * t4855 * t16403 + 0.144e3 * t47682 * t1545 + 0.72e2 * t19060 * t3906 + 0.144e3 * t3906 * t359 * t6209 + 0.288e3 * t1133 * t1215 * t6209 + 0.144e3 * t31907 * t6209;
21963   t60128 = t5171 * t5171;
21964   t60139 = t8039 * t60102;
21965   t60141 = t1166 * t19872;
21966   t60147 = t3977 * t6209;
21967   t60158 = t3977 * t6204;
21968   t60161 = t3980 * t6204;
21969   t60163 = 0.8e1 * t1550 * t16403 * t863 - 0.960e3 * t297 * t304 * t60128 + 0.480e3 * t299 * t60128 * t78 - 0.12e2 * t3906 * t6220 * t863 + 0.4e1 * t3906 * t6223 * t863 + 0.2880e4 * t1221 * t20003 + 0.144e3 * t16552 * t6204 - 0.48e2 * t25183 * t60147 - 0.2e1 * t2602 * t60141 - t2602 * t60161 + 0.144e3 * t3911 * t55909 + 0.72e2 * t60077 * t850 + 0.7e1 * t60158 * t8255 - 0.1440e4 * t60139;
21970   t60176 = t1575 * t16403;
21971   t60181 = t6209 * t3906;
21972   t60182 = t60181 * t304;
21973   t60196 = -t8240 * t60158 / 0.2e1 - 0.6e1 * t9775 * t20003 + t2571 * t60141 / 0.2e1 + t2571 * t60161 / 0.4e1 + t8227 * t60158 / 0.8e1 + t9745 * t20003 + t2571 * t60176 / 0.2e1 + t30009 * t20000 / 0.4e1 + t8227 * t60182 / 0.8e1 + t25197 * t60147 / 0.16e2 + 0.8e1 * t863 * t19918 * t1133 + t14373 * t16415 / 0.2e1 + t42773 * t16419 / 0.4e1 + 0.12e2 * t29958 * t20000;
21974   t60226 = t296 * t60077;
21975   t60228 = t3906 * t6204;
21976   t60230 = t1133 * t19872;
21977   t60232 = t344 * t60077;
21978   t60245 = t1545 * t16403;
21979   t60247 = 0.307200e6 * t1133 * t20160 + 0.307200e6 * t1600 * t16403 + 0.307200e6 * t319 * t60128 + 0.614400e6 * t3906 * t6311 + 0.153600e6 * t3906 * t6313 + 0.896e3 * t60128 + 0.448e3 * t60226 + 0.448e3 * t60228 + 0.896e3 * t60230 - 0.5760e4 * t60232 + 0.896e3 * t60245;
21980   t60248 = t6258 * t3911;
21981   t60250 = t6309 * t3906;
21982   t60252 = t1569 * t16489;
21983   t60254 = t20152 * t1133;
21984   t60262 = t3911 * t6209;
21985   t60264 = t6307 * t3906;
21986   t60266 = t301 * t60128;
21987   t60268 = t1598 * t16403;
21988   t60272 = 0.2457600e7 * t1571 * t16489 + 0.30720e5 * t346 * t60077 + 0.1843200e7 * t3911 * t6260 + 0.614400e6 * t3911 * t6262 - 0.34560e5 * t60248 - 0.17280e5 * t60250 - 0.138240e6 * t60252 - 0.34560e5 * t60254 - 0.34560e5 * t60262 - 0.34560e5 * t60264 - 0.34560e5 * t60266 - 0.34560e5 * t60268;
21989   t60276 = 0.6e1 * t8252 * t60182 - 0.3e1 * t2566 * t60176 - 0.9e1 / 0.2e1 * t29964 * t20000 - 0.9e1 / 0.4e1 * t8222 * t60182 - 0.9e1 / 0.4e1 * t25192 * t60147 - 0.3e1 * t9775 * t20008 - 0.3e1 * t2566 * t60141 - 0.3e1 / 0.2e1 * t2566 * t60161 - 0.9e1 / 0.4e1 * t8222 * t60158 + t9745 * t20008 / 0.2e1 + 0.144e3 * t3325 * t19872 + 0.288e3 * t2574 * t60128 + 0.288e3 * t3911 * t1616 * t1545 + 0.72e2 * t10698 * t6204 + 0.24e2 * t344 * (t60247 + t60272);
21990   t60314 = -0.23040e5 * t1133 * t20044 + 0.323316e6 * t1133 * t20193 - 0.17694720e8 * t1133 * t58263 - 0.23040e5 * t1571 * t16403 + 0.323316e6 * t1614 * t16403 - 0.17694720e8 * t16403 * t4831 - 0.61931520e8 * t19181 * t3906 - 0.8847360e7 * t19186 * t3906 - 0.34560e5 * t3906 * t6260 - 0.11520e5 * t3906 * t6262 + 0.808290e6 * t3906 * t6342 + 0.161658e6 * t3906 * t6344 - 0.69120e5 * t3911 * t6307 + 0.3233160e7 * t3911 * t6311 + 0.808290e6 * t3911 * t6313 - 0.371589120e9 * t3911 * t6315 - 0.61931520e8 * t3911 * t6317 - 0.8e1 * t60077;
21991   t60339 = t3911 * t6204;
21992   t60349 = 0.3072e4 * t1133 * t20047 + 0.3072e4 * t1569 * t16403 - 0.138240e6 * t1598 * t16489 + 0.3233160e7 * t1600 * t16489 - 0.247726080e9 * t1602 * t16489 + 0.3072e4 * t296 * t60128 + 0.768e3 * t301 * t60077 - 0.2880e4 * t319 * t60077 - 0.23040e5 * t344 * t60128 + 0.323316e6 * t346 * t60128 - 0.17694720e8 * t348 * t60128 - 0.1105920e7 * t350 * t60077 + 0.26943e5 * t357 * t60077 + 0.1536e4 * t3906 * t6258 - 0.34560e5 * t3911 * t6309 + 0.6144e4 * t60102 + 0.1536e4 * t60181 + 0.1536e4 * t60339;
21993   t60354 = t60128 * t304;
21994   t60377 = t60077 * t304;
21995   t60382 = (t60314 + t60349) * t304 - 0.3e1 / 0.2e1 * t55962 * t3977 + t2571 * t60354 / 0.2e1 + 0.8e1 * t863 * t793 * t60128 - 0.3e1 * t2566 * t60354 + 0.480e3 * t1579 * t16540 - 0.960e3 * t1555 * t16525 + 0.240e3 * t324 * t60077 * t299 - 0.480e3 * t6235 * t3980 + 0.720e3 * t6267 * t4068 + 0.240e3 * t3987 * t6352 + 0.480e3 * t1170 * t20212 + t847 * t60377 / 0.2e1 + t32120 * t6267 / 0.4e1;
21996   t60412 = -0.2880e4 * t4065 * t6267 + 0.576e3 * t20139 * t19891 + 0.144e3 * t2574 * t60228 + 0.288e3 * t2574 * t60245 - 0.2e1 * t2602 * t60354 + 0.2e1 * t15475 * t5193 + t3308 * t20023 + t10632 * t6270 / 0.2e1 + 0.288e3 * t14387 * t16414 - 0.3e1 / 0.2e1 * t32113 * t6267 + 0.288e3 * t2574 * t60230 + 0.576e3 * t14387 * t16489 + 0.288e3 * t9872 * t19896 + 0.720e3 * t3933 * t6270 + 0.576e3 * t9872 * t19891;
21997   t60442 = 0.576e3 * t45297 * t5176 + t19090 * t3980 / 0.2e1 + t55827 * t3977 / 0.4e1 + t47708 * t1575 + t58559 * t1166 - 0.2e1 * t863 * t302 * t60077 - 0.960e3 * t1143 * t20023 + t4838 * t16525 + 0.12e2 * t42733 * t16419 - 0.30e2 * t2571 * t60147 - 0.12e2 * t863 * t18901 * t3911 + 0.75e2 / 0.4e1 * t25165 * t60147 + 0.6e1 * t8252 * t60158 + 0.48e2 * t863 * t6210 * t3911;
21998   t60463 = t18898 * t3977;
21999   t60465 = t24907 * t60262;
22000   t60467 = t8039 * t60339;
22001   t60469 = t8039 * t60181;
22002   t60471 = 0.7e1 * t8255 * t60182 + 0.15e2 / 0.2e1 * t25156 * t60147 - 0.2e1 * t2602 * t60176 - t8240 * t60182 / 0.2e1 - t25112 * t60147 / 0.4e1 - 0.6e1 * t45119 * t5190 - 0.6e1 * t14358 * t16423 - 0.3e1 * t14358 * t16415 - 0.9e1 / 0.2e1 * t42691 * t16419 + t44923 * t5190 + t14373 * t16423 - 0.240e3 * t60463 + 0.2640e4 * t60465 - 0.360e3 * t60467 - 0.360e3 * t60469;
22003   t60490 = t16142 * t5165;
22004   t60497 = t19944 * t1154;
22005   t60500 = t20114 * t41;
22006   t60506 = t20111 * t41;
22007   t60511 = t20060 * t41;
22008   t60520 = 0.6e1 / 0.25e2 * t59998 * t3837 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t60077 * t367 + 0.16e2 / 0.7e1 * t19872 * t1224 + 0.8e1 / 0.7e1 * t6204 * t4071 + 0.16e2 / 0.7e1 * t16403 * t1625 + 0.32e2 / 0.7e1 * t5171 * t5305 + 0.16e2 / 0.7e1 * t1545 * t16569 + 0.8e1 / 0.7e1 * t3906 * t6365 + 0.16e2 / 0.7e1 * t1133 * t20273 + 0.8e1 / 0.7e1 * t296 * (t60125 + t60163 + t60196 + t60276 + t60382 + t60412 + t60442 + t60471)) * t41 * t45 * t373 + 0.12e2 / 0.25e2 * t3870 * t60035 + 0.20469310008230452676e-1 * t19967 * t3948 - 0.42127368888888888890e-1 * t5310 * t5314 + 0.11233965037037037037e0 * t1229 * t19734 + 0.11233965037037037037e0 * t372 * t60490 + 0.25744503209876543210e0 * t6370 * t3858 + 0.98e2 / 0.405e3 * t19964 * t3948 - 0.2e1 / 0.5e1 * t60497 * t1122 - 0.29241871440329218108e-1 * t60500 * t1192 + 0.25823510843772430080e-2 * t12649 * t55 * t19728 - 0.28e2 / 0.81e2 * t60506 * t1192 - 0.14042456296296296297e0 * t20278 * t1232 - 0.28e2 / 0.81e2 * t60511 * t1192 + 0.77978323840877914954e-1 * t50314 * t1593 + 0.77978323840877914954e-1 * t16586 * t5236 + 0.29489158222222222223e-1 * t1630 * t16146;
22009   t60522 = t49360 * t1540;
22010   t60534 = t6193 * t3837;
22011   t60548 = t1540 * t16136;
22012   t60563 = t6193 * t3853;
22013   t60567 = -0.20595602567901234567e0 * t372 * t60522 + 0.196e3 / 0.405e3 * t1188 * t3947 * t60035 - 0.14296026037494284408e0 * t49349 * t1593 - t20290 * t3853 / 0.5e1 - 0.2e1 / 0.5e1 * t50100 * t1540 + 0.12031576554666666666e0 * t5323 * t50018 * t60534 - 0.15727551051851851852e0 * t5323 * t16769 * t19749 - 0.1568e4 / 0.675e3 * t50130 * t50131 * t16161 - 0.70773979733333333333e-1 * t19952 * t16766 - 0.15727551051851851852e0 * t19952 * t16770 + 0.29489158222222222222e-1 * t5323 * t5324 * t60548 + 0.58978316444444444444e-1 * t19952 * t16776 + 0.29489158222222222222e-1 * t19952 * t16779 - 0.70773979733333333332e-1 * t16773 * t19946 + 0.58978316444444444444e-1 * t16773 * t19949 + 0.58978316444444444444e-1 * t5309 * t410 * t5326 - 0.35386989866666666666e-1 * t5323 * t16765 * t60563;
22014   t60578 = t6386 * t12388;
22015   t60611 = 0.18873061262222222222e0 * t5323 * t50014 * t19746 + 0.35740065093735711020e0 * t1586 * t3843 * t340 - 0.36344200446790827520e-1 * t1155 * t59905 - 0.4e1 / 0.5e1 * t16362 * t5165 - 0.11726527612183386341e-4 * t6384 * t60578 * t3837 + 0.52659211111111111112e-1 * t16573 * t1634 - 0.19494580960219478738e0 * t5211 * t1112 * t340 + 0.11477115930565524480e-1 * t3875 * t19757 - 0.11455098324263666022e-3 * t3951 * t6299 + 0.24e2 / 0.25e2 * t50282 * t5325 - 0.57275491621318330108e-4 * t3996 * t6299 - 0.57275491621318330108e-4 * t3958 * t6299 + 0.55840607677063744478e-4 * t20071 * t20076 + 0.70e2 / 0.81e2 * t20059 * t1184 * t340 + 0.16037137653969132430e-3 * t1185 * t20108 + 0.80185688269845662151e-4 * t337 * t20107 * t3853 - 0.264e3 / 0.125e3 * t12656 * t60070 + 0.16037137653969132430e-3 * t1178 * t20108;
22016   t60617 = t6385 * t270;
22017   t60654 = 0.36552339300411522634e-1 * t16688 * t274 * t340 - 0.25128273454678685015e-3 * t6384 / t60617 * t1190 + 0.56169825185185185185e-1 * t6370 * t3861 - 0.21063684444444444444e-1 * t20278 * t1236 - 0.70773979733333333333e-1 * t372 * t16766 - 0.15727551051851851852e0 * t372 * t16770 + 0.58978316444444444444e-1 * t1229 * t5326 + 0.58978316444444444444e-1 * t372 * t16776 + 0.29489158222222222222e-1 * t372 * t16779 - 0.784e3 / 0.675e3 * t4002 * t20305 - 0.392e3 / 0.675e3 * t1188 * t12719 * t60563 + 0.392e3 / 0.405e3 * t3999 * t20308 + 0.392e3 / 0.405e3 * t4002 * t20308 + 0.196e3 / 0.405e3 * t1188 * t3947 * t60548 + 0.40938620016460905352e-1 * t5320 * t16819 + 0.20469310008230452676e-1 * t5320 * t16785 - 0.784e3 / 0.675e3 * t3999 * t20305;
22018   t60699 = -0.10916965337722908094e0 * t16586 * t5333 + 0.40938620016460905352e-1 * t16577 * t5333 - 0.784e3 / 0.675e3 * t5317 * t16802 - 0.42127368888888888888e-1 * t5310 * t5342 - 0.21063684444444444444e-1 * t16574 * t1638 - 0.21063684444444444444e-1 * t1630 * t16797 - 0.10531842222222222222e-1 * t6370 * t3855 + 0.392e3 / 0.405e3 * t16599 * t5333 + 0.29489158222222222222e-1 * t372 * t275 * t3836 * t60035 - 0.78637755259259259258e-1 * t1229 * t20311 - 0.28084912592592592594e0 * t5309 * t5222 - 0.19244565184762958916e-3 * t337 * t12388 * t282 * t3837 - 0.85531400821168706294e-3 * t337 * t3836 * t1118 * t1122 - 0.132e3 / 0.125e3 * t50109 * t16158 - 0.19346388280978635948e-2 * t337 * t1190 * t3849 + 0.1056e4 / 0.625e3 * t38856 * t60534 + 0.6664e4 / 0.3375e4 * t1188 * t38540 * t60534 + 0.14744579111111111111e-1 * t6370 * t3839;
22019   t60749 = t297 * t60077 * t304;
22020   t60751 = t2472 * t60128 * t304;
22021   t60767 = t14200 * t16423;
22022   t60770 = 0.10e2 * t14206 * t16423;
22023   t60779 = 0.5e1 / 0.2e1 * t18898 * t3980;
22024   t60780 = -0.2e1 * t302 * t60128 * t304 - t60749 - 0.4e1 * t60751 - 0.4e1 * t797 * t60077 - 0.4e1 * t16745 * t6204 - 0.8e1 * t5368 * t19872 + t2479 * t60128 * t304 / 0.2e1 - 0.8e1 * t18915 * t16403 + t793 * t60077 * t304 / 0.2e1 + 0.30e2 * t60767 - t60770 + t14219 * t16423 / 0.2e1 - 0.8e1 * t60128 * t305 - t4068 * t6270 - 0.2e1 * t1622 * t16525 - t60779;
22025   t60781 = t55439 * t3977;
22026   t60783 = t55473 * t3977;
22027   t60785 = t6226 * t3977;
22028   t60787 = t18901 * t3980;
22029   t60790 = 0.5e1 / 0.2e1 * t55448 * t3977;
22030   t60791 = t6210 * t3980;
22031   t60793 = t18869 * t3977;
22032   t60795 = t4739 * t16525;
22033   t60797 = t57657 * t1166;
22034   t60813 = -0.19e2 / 0.8e1 * t60781 + 0.15e2 / 0.2e1 * t60783 - 0.75e2 / 0.2e1 * t60785 - 0.2e1 * t60787 - t60790 + 0.15e2 / 0.2e1 * t60791 + 0.85e2 / 0.4e1 * t60793 - 0.4e1 * t60795 - 0.4e1 * t60797 - 0.2e1 * t20023 * t1221 + t58019 * t1166 / 0.2e1 + t18907 * t3980 / 0.4e1 + t55456 * t3977 / 0.8e1 + t4745 * t16525 / 0.2e1 + t18912 * t3980 / 0.8e1 + t55463 * t3977 / 0.16e2;
22035   t60833 = -t2459 * t60128 * t304 - t789 * t60077 + 0.4e1 * t2464 * t60128 - t42403 * t16423 - 0.24e2 * t60139 + 0.14e2 * t4745 * t16423 + 0.2e1 * t296 * (t60780 + t60813) + 0.4e1 * t1133 * t19938 + 0.2e1 * t3906 * t6237 + 0.2e1 * t60077 * t308 + 0.4e1 * t1545 * t16755 + 0.4e1 * t19872 * t1145 + 0.2e1 * t6204 * t3939 + 0.8e1 * t5171 * t5374 + 0.4e1 * t16403 * t1557;
22036   t60860 = -0.24e2 * t60463 + 0.24e2 * t60465 + 0.7e1 / 0.2e1 * t3928 * t6270 + 0.4e1 * t2464 * t60245 - t16711 * t6270 / 0.2e1 - t5350 * t20023 - t10439 * t6270 / 0.4e1 + 0.4e1 * t2464 * t60230 + 0.2e1 * t2464 * t60228 - 0.6e1 * t60467 - t18869 * t3980 / 0.4e1 - t55365 * t3977 / 0.8e1 - 0.6e1 * t60469 + 0.7e1 / 0.2e1 * t6226 * t3980 + 0.15e2 / 0.4e1 * t18912 * t3977 - t14200 * t16525;
22037   t60880 = -0.20595602567901234567e0 * t1630 * t16814 + 0.392e3 / 0.405e3 * t16602 * t5333 + 0.392e3 / 0.405e3 * t5317 * t16819 + 0.196e3 / 0.405e3 * t5317 * t16785 + 0.14744579111111111111e-1 * t4076 * t6381 + 0.11233965037037037037e0 * t1630 * t16807 + 0.11233965037037037037e0 * t5310 * t5336 - 0.49126344019753086422e-1 * t5320 * t16802 + 0.14416921797530864197e0 * t372 * t3844 * t6380 + (-0.8e1 / 0.3e1 * t60077 * t311 - 0.16e2 / 0.3e1 * t19872 * t1148 - 0.8e1 / 0.3e1 * t6204 * t3942 - 0.16e2 / 0.3e1 * t16403 * t1560 - 0.32e2 / 0.3e1 * t5171 * t5377 - 0.16e2 / 0.3e1 * t1545 * t16758 - 0.8e1 / 0.3e1 * t3906 * t6240 - 0.16e2 / 0.3e1 * t1133 * t19941 - 0.8e1 / 0.3e1 * t296 * (t60833 + t60860)) * t316 + 0.24e2 / 0.25e2 * t12649 * t19749 + 0.12e2 / 0.25e2 * t16692 * t16164 - 0.132e3 / 0.125e3 * t38569 * t19746 - 0.66e2 / 0.125e3 * t12656 * t60563 + 0.12e2 / 0.25e2 * t3870 * t60548 + 0.61093857729406218782e-3 * t1178 * t20092 + 0.61093857729406218782e-3 * t1185 * t20092;
22038   t60893 = 0.1536e4 * t60264;
22039   t60894 = 0.1536e4 * t60268;
22040   t60895 = 0.1536e4 * t60248;
22041   t60896 = 0.1536e4 * t60254;
22042   t60897 = 0.768e3 * t60250;
22043   t60906 = 0.256e3 * t60232;
22044   t60912 = 0.1536e4 * t60262;
22045   t60913 = 0.6144e4 * t60252;
22046   t60914 = 0.1536e4 * t60266;
22047   t60915 = 0.80e2 * t60128 + 0.80e2 * t60245 + 0.40e2 * t60228 + 0.80e2 * t60230 + 0.40e2 * t60226 - t60912 - t60913 - t60893 - t60914 - t60894 - t60895 - t60896 - t60897 - t60906;
22048   t60917 = 0.24e2 * t15275 * t16423 - 0.9e1 * t15278 * t16423 + t15281 * t16423 / 0.2e1 - 0.10e2 * t60749 - 0.10e2 * t60751 + t60893 + t60894 + t60895 + t60896 + t60897 + 0.10e2 * t78 * t60077 * t299 - 0.144e3 * t60128 + 0.80e2 * t60767 - t60770 - 0.72e2 * t60226 - 0.72e2 * t60228 - 0.144e3 * t60230 + t60906 + t60915 * t304;
22049   t60947 = -0.144e3 * t60245 + t60912 + t60914 + t819 * t60377 / 0.2e1 - 0.3e1 * t2517 * t60354 - 0.3e1 / 0.2e1 * t55669 * t3977 + t4783 * t16525 + 0.2e1 * t15241 * t5193 + t10544 * t6270 / 0.2e1 + t3252 * t20023 + t60913 + t57662 * t1166 + t31772 * t6267 / 0.4e1 - 0.3e1 / 0.2e1 * t31784 * t6267 + t18992 * t3980 / 0.2e1 + t55646 * t3977 / 0.4e1 + t47329 * t1575 + t2524 * t60354 / 0.2e1 + t2524 * t60141 / 0.2e1 - 0.6e1 * t44766 * t5190;
22050   t60986 = t44774 * t5190 - 0.6e1 * t14275 * t16423 + t14269 * t16423 - 0.3e1 * t14275 * t16415 - 0.9e1 / 0.2e1 * t42583 * t16419 - 0.9e1 / 0.2e1 * t29751 * t20000 + t9704 * t20003 + t29739 * t20000 / 0.4e1 + 0.12e2 * t29745 * t20000 - 0.6e1 * t9713 * t20003 - 0.3e1 * t9713 * t20008 + t9704 * t20008 / 0.2e1 - 0.3e1 * t2517 * t60141 + 0.12e2 * t42576 * t16419 - 0.30e2 * t2524 * t60147 + 0.6e1 * t8140 * t60158 + t2524 * t60161 / 0.4e1 + t8127 * t60158 / 0.8e1 + t2524 * t60176 / 0.2e1 + t8127 * t60182 / 0.8e1;
22051   t61015 = t25024 * t60147 / 0.16e2 - 0.3e1 / 0.2e1 * t2517 * t60161 - 0.9e1 / 0.4e1 * t8120 * t60158 + 0.75e2 / 0.4e1 * t25004 * t60147 - 0.3e1 * t2517 * t60176 - 0.9e1 / 0.4e1 * t8120 * t60182 - 0.9e1 / 0.4e1 * t25041 * t60147 + t14269 * t16415 / 0.2e1 + t42598 * t16419 / 0.4e1 + 0.6e1 * t8140 * t60182 - t60779 - 0.5e1 / 0.4e1 * t60781 + 0.20e2 * t60783 - 0.100e3 * t60785 - 0.5e1 * t60787 - t60790 + 0.20e2 * t60791 + 0.55e2 / 0.2e1 * t60793 - 0.10e2 * t60795 - 0.10e2 * t60797;
22052   t61058 = 0.48e2 * t6209 * t3992 + 0.24e2 * t301 * (t60917 + t60947 + t60986 + t61015) + 0.48e2 * t16607 * t6204 + 0.96e2 * t16610 * t6204 + 0.96e2 * t5146 * t19872 + 0.96e2 * t3240 * t19872 + 0.48e2 * t810 * t60077 + 0.48e2 * t10529 * t6204 + 0.192e3 * t15187 * t5171 + 0.192e3 * t19981 * t5171 + 0.96e2 * t47296 * t1545 + 0.96e2 * t60128 * t327 + 0.192e3 * t57855 * t5171 + 0.48e2 * t18958 * t3906 + 0.96e2 * t3906 * t1583 * t1545 + 0.192e3 * t1133 * t5208 * t1545 + 0.96e2 * t18941 * t16403 + 0.96e2 * t4771 * t16403 + 0.48e2 * t3911 * t6282 + 0.96e2 * t57902 * t1133;
22053   t61074 = t20075 * t3836;
22054   t61096 = t5313 * t16136;
22055   t61101 = 0.24e2 / 0.25e2 * t16692 * t16161 + 0.35e2 / 0.81e2 * t61058 * t336 * t340 - 0.10759796184905179200e-2 * t12646 * t6199 + 0.35e2 / 0.81e2 * t6285 * t3957 * t340 - 0.14154795946666666666e0 * t5323 * t16765 * t60070 + 0.51489006419753086422e0 * t1629 * t16324 + 0.97721063434861552838e-5 * t20071 * t20284 - 0.78176850747889242270e-4 * t6384 * t61074 * t1122 + 0.48860531717430776419e-5 * t6384 * t20283 * t3853 - 0.34900379798164840299e-5 * t4074 * sigma[2] * t6387 - 0.56e2 / 0.81e2 * t16599 * t5236 + 0.12911755421886215040e-2 * t19961 * t60023 - 0.14e2 / 0.81e2 * t19964 * t4005 - 0.21063684444444444445e-1 * t1630 * t16149 - 0.21063684444444444444e-1 * t4076 * t6377 - 0.42127368888888888888e-1 * t1229 * t19741 - 0.21063684444444444444e-1 * t372 * t61096 + 0.11233965037037037038e0 * t1630 * t16143;
22056   t61118 = 0.108e3 * t12312 * t20324 - 0.48e2 * t16870 * t19638 + 0.648e3 * t16898 * t19662 + t406 * t1291 * t59936 / 0.10e2 + t4093 * t6426 / 0.5e1 - 0.12e2 * t5116 * t16857 - 0.12e2 * t59577 * t1103 + 0.171e3 / 0.250e3 * t21496 * t59567 + 0.216e3 * t20422 * t16230 - 0.48e2 * t20419 * t16244 + 0.216e3 * t59952 * t5124 - 0.4959e4 / 0.10000e5 * t406 * t39325 * t6406 * t4190 + t269 * (t59997 + t60520 + t60567 + t60611 + t60654 + t60699 + t60880 + t61101) - 0.48e2 * t5130 * t59545 + t1244 * t20345 / 0.5e1 - 0.9e1 / 0.25e2 * t1244 * t20339 + 0.171e3 / 0.1000e4 * t406 * t12494 * t6425 * t4190 - 0.24e2 * t16110 * t5127;
22057   t61125 = t48839 * t376;
22058   t61136 = t1641 * t3794;
22059   t61161 = 0.648e3 * t20422 * t16251 + 0.108e3 * t20422 * t16233 - 0.1296e4 * t61125 * t16238 - 0.648e3 * t16906 * t59668 + 0.9720e4 * t49301 * t59624 + 0.324e3 * t5122 * t59658 - 0.24e2 * t20419 * t16247 - 0.24e2 * t1101 * t61136 * t1524 - 0.9e1 / 0.100e3 * t4184 * t6407 - 0.9e1 / 0.50e2 * t4093 * t6407 - 0.12e2 * t1101 * t5137 * t16083 - 0.12e2 * t12309 * t6187 + 0.2e1 * t1097 * t20322 + 0.648e3 * t16895 * t19662 - 0.12e2 * t5130 * t59554 + 0.324e3 * t5122 * t59721 + 0.108e3 * t16173 * t16922 + 0.54e2 * t38196 * t6181;
22060   t61201 = 0.2e1 * t1530 * t16824 + 0.2e1 * t16267 * t1641 + 0.2e1 * t19682 * t1284 * t428 + t6401 * t4183 * t428 - 0.9e1 / 0.50e2 * t406 * t5406 * t16097 - 0.9e1 / 0.100e3 * t406 * t20398 * t4225 - 0.24e2 * t16110 * t5138 - 0.24e2 * t20369 * t16247 - 0.648e3 * t16906 * t59646 - 0.24e2 * t16110 * t5133 - 0.12e2 * t19644 * t3824 + 0.4e1 * t5114 * t5383 + 0.648e3 * t20425 * t16251 + 0.54e2 * t5122 * t59642 - 0.12e2 * t5116 * t16843 - 0.12e2 * t1101 * t39293 * t6165 - 0.6e1 * t19644 * t3831 + t6175 * t4079;
22061   t61215 = t16250 * t16256;
22062   t61240 = t4184 * t6426 / 0.10e2 + t1285 * t20345 / 0.5e1 - 0.12e2 * t19644 * t3828 - 0.24e2 * t5116 * t16854 + t59557 * t376 - 0.24e2 * t1101 * t16834 * t5106 + 0.1296e4 * t5122 * t61215 - 0.9e1 / 0.100e3 * t4091 * t6407 + 0.2e1 * t19643 * t1239 + 0.216e3 * t16898 * t19665 - 0.1296e4 * t50347 * t19658 + 0.108e3 * t20425 * t16233 - 0.7776e4 * t16906 * t59662 + 0.108e3 * t5122 * t59665 - 0.24e2 * t5130 * t59549 + 0.171e3 / 0.500e3 * t1244 * t20362 + 0.54e2 * t59594 * t3820 - 0.12e2 * t49034 * t1532;
22063   t61263 = 0.24e2 * t1101 * t59547 + 0.12e2 * t1101 * t59551 + 0.12e2 * t1527 * t49034 + 0.24e2 * t16110 * t5111 + 0.24e2 * t16260 * t5116 + 0.12e2 * t19644 * t3803 + 0.6e1 * t19644 * t3805 + 0.2592e4 * t21285 * t59545 - 0.1296e4 * t21288 * t59545 - 0.54e2 * t4083 * t59594 - 0.108e3 * t19678 + 0.24e2 * t19680;
22064   t61289 = -0.108e3 * t3817 * t3818 * t59528 + 0.12e2 * t1094 * t59577 + 0.12e2 * t1101 * t59543 + 0.12e2 * t12309 * t6170 + 0.6e1 * t12309 * t6172 + 0.7776e4 * t12321 * t59662 - 0.648e3 * t16173 * t16251 + 0.12e2 * t16264 * t5116 + 0.24e2 * t19636 * t3810 - 0.1080e4 * t3817 * t59612 - 0.324e3 * t3817 * t59721 - 0.54e2 * t38196 * t6394;
22065   t61313 = 0.48e2 * t1101 * t59545 + 0.24e2 * t1101 * t59549 + 0.12e2 * t1101 * t59554 - 0.108e3 * t12312 * t19677 + 0.648e3 * t12321 * t59646 + 0.48e2 * t16110 * t5109 + 0.48e2 * t19638 * t3810 + 0.24e2 * t19640 * t3810 - 0.54e2 * t3817 * t59642 - 0.324e3 * t3817 * t59658 - 0.108e3 * t3817 * t59665 + t6400;
22066   t61337 = -0.648e3 * t12312 * t19662 - 0.216e3 * t12312 * t19665 + 0.648e3 * t12321 * t59668 - 0.216e3 * t16173 * t16230 - 0.108e3 * t16173 * t16233 + 0.1296e4 * t16238 * t48839 + 0.48e2 * t16244 * t5116 + 0.24e2 * t16247 * t5116 + 0.1296e4 * t19658 * t38183 - 0.9720e4 * t38188 * t59624 - 0.216e3 * t48834 * t5124 + 0.12e2 * t19674 - t59557;
22067   t61339 = t61263 + t61289 + t61313 + t61337;
22068   t61344 = t16237 * t16256;
22069   t61347 = t12321 * t1641;
22070   t61352 = t5116 * t1239;
22071   t61355 = t16173 * t1239;
22072   t61358 = t16110 * t376;
22073   t61361 = t48834 * t376;
22074   t61370 = t1101 * t5383;
22075   t61383 = t61339 * t405 * t428 - 0.9e1 / 0.25e2 * t1646 * t16918 - 0.2592e4 * t16906 * t61344 - 0.1296e4 * t61347 * t16238 - 0.24e2 * t3810 * t20389 - 0.48e2 * t61352 * t5109 + 0.216e3 * t61355 * t5124 - 0.48e2 * t61358 * t5109 + 0.216e3 * t61361 * t5124 - t6192 + t6402 * t4226 / 0.10e2 + t20378 * t1315 / 0.5e1 + t20380 * t1315 / 0.5e1 - 0.48e2 * t61370 * t5109 + t1646 * t16890 / 0.5e1 + t4091 * t6426 / 0.10e2 - 0.9e1 / 0.100e3 * t6402 * t4191 - 0.24e2 * t16870 * t19640 - 0.12e2 * t3810 * t20403;
22076   t61398 = -0.9e1 / 0.50e2 * t12440 * t19629 - 0.12e2 * t12309 * t6439 + 0.324e3 * t5453 * t59721 - 0.24e2 * t16110 * t5467 - 0.9e1 / 0.50e2 * t16942 * t16219 - 0.9e1 / 0.25e2 * t16942 * t16216 + 0.171e3 / 0.1000e4 * t12495 * t6406 * t4225 + 0.171e3 / 0.500e3 * t38016 * t20438 - 0.12e2 * t1101 * t59735 * t1091 - 0.24e2 * t1101 * t59739 * t1524 - 0.24e2 * t3810 * t19812 - p->cam_beta * (t59795 + t59832 + t59875 + t61118 + t61161 + t61201 + t61240 + t61383) - 0.24e2 * t1101 * t16180 * t5106 - 0.12e2 * t1101 * t5466 * t16083 - 0.12e2 * t12309 * t6442 - 0.24e2 * t3810 * t19808;
22077   t61425 = t5116 * t1339;
22078   t61428 = t16173 * t1339;
22079   t61435 = -0.12e2 * t3810 * t19697 + 0.171e3 / 0.500e3 * t50448 * t16211 - 0.4959e4 / 0.10000e5 * t39396 * t6406 * t4190 - 0.24e2 * t19827 + 0.54e2 * t38196 * t6436 + 0.108e3 * t12312 * t19707 - 0.24e2 * t3810 * t19815 + 0.1296e4 * t5453 * t61215 - 0.2592e4 * t16236 * t61344 + 0.216e3 * t16222 * t19665 - 0.1296e4 * t48852 * t19658 + 0.216e3 * t16226 * t19665 - 0.1296e4 * t50414 * t19658 - 0.48e2 * t61425 * t5109 + 0.216e3 * t61428 * t5124 - 0.48e2 * t19833 * t16244 + 0.216e3 * t19836 * t16230;
22080   t61455 = t1339 * t1091;
22081   t61459 = t441 * t3800;
22082   t61475 = 0.108e3 * t19831 - 0.24e2 * t5116 * t16181 - 0.12e2 * t5116 * t16184 + 0.108e3 * t16173 * t16188 - 0.9e1 / 0.50e2 * t4278 * t1663 * t16097 - 0.9e1 / 0.25e2 * t12440 * t19626 - 0.6e1 * t1101 * t12463 * t6167 - 0.12e2 * t1101 * t39416 * t6165 - 0.24e2 * t1101 * t61455 * t6165 - 0.12e2 * t1101 * t61459 * t6165 - 0.12e2 * t3810 * t19702 - 0.24e2 * t3810 * t19803 - 0.9e1 / 0.50e2 * t4278 * t59791 - 0.6e1 * t12309 * t6445 + 0.2e1 * t1530 * t16169 + t48791 * t1663 / 0.5e1;
22083   t61513 = 0.12911755421886215040e-2 * t19727 * t60023 + 0.19031797421124828532e0 * t46 * t60490 - 0.35684620164609053498e-1 * t46 * t61096 + 0.17853291447546371413e-1 * t4264 * t19757 - 0.56535422917230176142e-1 * t1336 * t59905 - 0.28405861928149673088e-2 * t12348 * t55 * t59985 - 0.13772539116678629376e-1 * t19727 * t59988 - 0.34891628605395518976e0 * t46 * t60522 - 0.1568e4 / 0.375e3 * t12389 * t60070 - 0.16737460732074723200e-2 * t12379 * t6199 + 0.392e3 / 0.225e3 * t12382 * t19749 - 0.392e3 / 0.375e3 * t12389 * t60563 + 0.196e3 / 0.225e3 * t4267 * t60548 - 0.784e3 / 0.375e3 * t39460 * t19746 - 0.264e3 / 0.125e3 * t16125 * t16161;
22084   t61519 = t50131 * t3837;
22085   t61529 = t3836 * t5165;
22086   t61530 = t61529 * t1122;
22087   t61533 = t19737 * t3853;
22088   t61554 = -0.36344200446790827520e-1 * t6450 * t57 * t3849 + 0.6664e4 / 0.1875e4 * t39465 * t60534 - 0.11990032375308641975e0 * t1535 * t61519 - 0.56237868059771069952e-2 * t12389 * t55 * t59985 - 0.24994608026564919978e-1 * t19754 * t59988 - 0.26644516389574759946e0 * t5160 * t19738 + 0.99916936460905349794e-1 * t1535 * t61530 + 0.49958468230452674897e-1 * t1535 * t61533 + 0.46864890049809224960e-2 * t12382 * t55 * t19728 + 0.23432445024904612480e-2 * t19754 * t60023 + 0.12e2 / 0.25e2 * t3869 * t60035 + 0.196e3 / 0.225e3 * t4267 * t60035 - 0.66e2 / 0.125e3 * t19722 * t3853 + 0.12e2 / 0.25e2 * t5470 * t16136 + 0.98e2 / 0.225e3 * t39457 * t6193 + 0.1056e4 / 0.625e3 * t38855 * t6193 * t3837;
22089   t61564 = t19682 * t1291;
22090   t61574 = t16110 * t441;
22091   t61577 = t48834 * t441;
22092   t61584 = 0.2e1 * t16267 * t1680 + 0.4e1 * t5114 * t5486 + t19692 * t4225 / 0.10e2 + t269 * (t61513 + t61554) + t4275 * t19800 / 0.5e1 + t1342 * t59936 / 0.10e2 + t61339 * t428 + 0.2e1 / 0.5e1 * t16200 * t5441 + t61564 * t1314 / 0.5e1 + t12341 * t6425 / 0.10e2 + t3808 * t6460 + 0.2e1 * t1097 * t19760 + 0.108e3 * t16226 * t19677 - 0.48e2 * t61574 * t5109 + 0.216e3 * t61577 * t5124 + t5489 * t16097 / 0.5e1 - 0.9e1 / 0.100e3 * t38019 * t6406;
22093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22094     v4rho2sigma2[17] = -t55274 - 0.4e1 / 0.3e1 * t57406 - t57420 - t1352 * t3131 * t6469 * t3779 / 0.6e1 - t1352 * t2415 * t20443 * t1082 - t1352 * t2415 * t6469 * t3788 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t59591 + t59627 + t59671 + t59713 + t61398 + t61435 + t61475 + t61584);
22095 
22096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22097     v4rho2sigmalapl[0] = 0.0e0;
22098 
22099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22100     v4rho2sigmalapl[1] = 0.0e0;
22101 
22102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22103     v4rho2sigmalapl[2] = 0.0e0;
22104 
22105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22106     v4rho2sigmalapl[3] = 0.0e0;
22107 
22108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22109     v4rho2sigmalapl[4] = 0.0e0;
22110 
22111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22112     v4rho2sigmalapl[5] = 0.0e0;
22113 
22114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22115     v4rho2sigmalapl[6] = 0.0e0;
22116 
22117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22118     v4rho2sigmalapl[7] = 0.0e0;
22119 
22120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22121     v4rho2sigmalapl[8] = 0.0e0;
22122 
22123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22124     v4rho2sigmalapl[9] = 0.0e0;
22125 
22126   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22127     v4rho2sigmalapl[10] = 0.0e0;
22128 
22129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22130     v4rho2sigmalapl[11] = 0.0e0;
22131 
22132   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22133     v4rho2sigmalapl[12] = 0.0e0;
22134 
22135   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22136     v4rho2sigmalapl[13] = 0.0e0;
22137 
22138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22139     v4rho2sigmalapl[14] = 0.0e0;
22140 
22141   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22142     v4rho2sigmalapl[15] = 0.0e0;
22143 
22144   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22145     v4rho2sigmalapl[16] = 0.0e0;
22146 
22147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22148     v4rho2sigmalapl[17] = 0.0e0;
22149 
22150   t61592 = t43020 * t6602 / 0.6e1;
22151   t61593 = t14520 * t20450;
22152   t61595 = t14520 * t20930;
22153   t61630 = t6526 * t2305;
22154   t61635 = -0.12e2 * t1855 * t20643 - 0.12e2 * t1855 * t20635 - 0.6e1 * t478 * t4667 * t16987 - 0.6e1 * t6983 * t6580 - 0.6e1 * t4310 * t17022 - 0.6e1 * t6983 * t6575 - 0.6e1 * t4310 * t17119 - 0.12e2 * t4310 * t17019 - 0.6e1 * t40434 * t1734 - 0.12e2 * t13277 * t5624 - 0.12e2 * t13277 * t5629 - 0.9e1 / 0.100e3 * t61630 * t2306 - 0.9e1 / 0.50e2 * t7894 * t20667;
22155   t61656 = my_piecewise3(t24, -t1841 * t1690 / 0.4e1, 0);
22156   t61659 = t17079 * t1356;
22157   t61661 = t17081 * t1356;
22158   t61663 = t5510 * t4300;
22159   t61665 = t17083 * t1356;
22160   t61667 = t5515 * t4300;
22161   t61669 = t1694 * t13195;
22162   t61671 = t1839 * t6477;
22163   t61673 = t20586 * t468;
22164   t61675 = t6478 * t1845;
22165   t61677 = t26 * t61656;
22166   t61679 = 0.2e1 * t13195 * t1693 + 0.2e1 * t1356 * t16987 + 0.2e1 * t1845 * t6477 + 0.4e1 * t20555 * t468 + 0.2e1 * t25 * t61656 + 0.4e1 * t4300 * t5514 + 0.18e2 * t61659 + 0.36e2 * t61661 + 0.36e2 * t61663 + 0.18e2 * t61665 + 0.36e2 * t61667 + 0.18e2 * t61669 + 0.18e2 * t61671 + 0.36e2 * t61673 + 0.18e2 * t61675 + 0.9e1 * t61677;
22167   t61680 = t61679 * t32;
22168   t61683 = t6596 * t2306;
22169   t61699 = -0.9e1 / 0.50e2 * t51367 * t4695 - 0.12e2 * t5524 * t14101 - 0.12e2 * t17025 * t4668 - 0.9e1 / 0.100e3 * t17157 * t13220 + t61680 * t244 + t17092 * t1512 - 0.4959e4 / 0.10000e5 * t27492 * t61683 - 0.9e1 / 0.100e3 * t2394 * t17014 * t1495 - 0.9e1 / 0.50e2 * t7894 * t20657 - 0.12e2 * t4310 * t17116 - 0.6e1 * t5524 * t13187 - 0.12e2 * t5524 * t13190 - 0.6e1 * t5524 * t13196;
22170   t61719 = t20662 * t731;
22171   t61744 = t50766 * t1356;
22172   t61747 = t17058 * t4300;
22173   t61754 = t6596 * t2341;
22174   t61759 = -0.24e2 * t18278 * t17042 - 0.12e2 * t18278 * t17046 + 0.324e3 * t18281 * t17033 + 0.108e3 * t53837 * t5531 + 0.108e3 * t53840 * t5531 + 0.108e3 * t18281 * t17059 + 0.54e2 * t18281 * t17062 - 0.648e3 * t53828 * t17066 + t6527 * t2342 / 0.10e2 + t20770 * t732 / 0.5e1 + 0.54e2 * t4316 * t61744 + 0.108e3 * t4316 * t61747 + 0.108e3 * t13339 * t20471 - 0.24e2 * t53802 * t5517 + 0.171e3 / 0.1000e4 * t20773 * t61754 - 0.24e2 * t13336 * t20505;
22175   t61806 = 0.146e3 / 0.135e3 * t225 * t61656 - 0.146e3 / 0.135e3 * t2323 * t6477 * t226 - 0.292e3 / 0.135e3 * t720 * t20555 * t226 + 0.584e3 / 0.135e3 * t20550 * t468 - 0.146e3 / 0.135e3 * t222 * t61656 * t226 + 0.584e3 / 0.135e3 * t20556 * t468 + 0.292e3 / 0.135e3 * t6551 * t1845 + 0.292e3 / 0.135e3 * t16990 * t1356 + 0.584e3 / 0.135e3 * t16993 * t1356 + 0.584e3 / 0.135e3 * t5598 * t4300 + 0.292e3 / 0.135e3 * t16998 * t1356 + 0.584e3 / 0.135e3 * t5601 * t4300 + 0.292e3 / 0.135e3 * t1722 * t13195 - 0.803e3 / 0.21870e5 * t46 * t13439 * t1693 + 0.803e3 / 0.21870e5 * t46 * t1893 * t1693 * t226 + 0.73e2 / 0.3645e4 * t46 * t4619 * t5514 - 0.73e2 / 0.19440e5 * t46 * t1486 * t16987;
22176   t61847 = -0.73e2 / 0.270e3 * t1705 * t45 * t13195 * t226 + 0.146e3 / 0.135e3 * t1705 * t20528 * t468 + 0.73e2 / 0.135e3 * t1705 * t6540 * t1845 + 0.73e2 / 0.270e3 * t1705 * t1718 * t13195 - 0.73e2 / 0.3645e4 * t46 * t496 * t5514 * t226 + 0.146e3 / 0.3645e4 * t46 * t20539 * t468 + 0.73e2 / 0.19440e5 * t46 * t51 * t16987 * t226 - 0.73e2 / 0.4860e4 * t46 * t20543 * t468 - 0.73e2 / 0.9720e4 * t46 * t6547 * t1845 + 0.146e3 / 0.135e3 * t2326 * t6477 + 0.292e3 / 0.135e3 * t723 * t20555 - 0.292e3 / 0.243e3 * t18089 + 0.73e2 / 0.81e2 * t18093 - 0.146e3 / 0.81e2 * t18096 + 0.292e3 / 0.243e3 * t18099 - 0.73e2 / 0.81e2 * t18102 - 0.949e3 / 0.32805e5 * t18019;
22177   t61848 = t61806 + t61847;
22178   t61859 = t582 * t1359 * t1911;
22179   t61864 = t1862 * t4504;
22180   t61877 = t208 * t26764;
22181   t61886 = -0.24e2 * t13344 * t20505 - 0.24e2 * t4324 * t61673 + t208 * t708 * t61848 / 0.10e2 + 0.54e2 * t42206 * t6492 + 0.108e3 * t41017 * t6492 + 0.54e2 * t42200 * t6492 - 0.15093173925925925926e0 * t17282 * t61859 - 0.25155289876543209876e1 * t51096 * t20611 + 0.11319880444444444445e2 * t61864 * t20614 - 0.12e2 * t478 * t55152 * t1693 + t14035 * t1728 / 0.10e2 - 0.12e2 * t1855 * t20858 - 0.6e1 * t478 * t42224 * t1693 - 0.4959e4 / 0.10000e5 * t61877 * t61683 + t20828 * t732 / 0.5e1 + t1699 * t14031 + 0.2e1 * t20728 * t701 * t230;
22182   t61915 = t5524 * t633;
22183   t61922 = -0.12e2 * t42247 * t6480 + 0.108e3 * t18792 * t17059 - 0.24e2 * t18271 * t17042 - 0.12e2 * t18271 * t17046 + 0.324e3 * t18792 * t17033 + 0.54e2 * t18792 * t17062 - 0.648e3 * t53796 * t17066 - 0.12e2 * t42203 * t6480 - 0.24e2 * t41013 * t6480 + t702 * t20848 / 0.5e1 + t2166 * t6562 / 0.10e2 - 0.9e1 / 0.100e3 * t6527 * t2307 + 0.2e1 * t20595 * t633 + t17092 * t1473 - 0.24e2 * t61915 * t4303 - 0.24e2 * t20734 * t13242 - 0.12e2 * t20734 * t13244;
22184   t61925 = t50745 * t160;
22185   t61928 = t17102 * t633;
22186   t61931 = t17025 * t160;
22187   t61936 = t20657 * t731;
22188   t61956 = t20594 * t477;
22189   t61961 = t6484 * t1861;
22190   t61986 = 0.12e2 * t13240 * t5524 + 0.6e1 * t13246 * t5524 + 0.12e2 * t13277 * t5519 + 0.6e1 * t1359 * t50736 + 0.6e1 * t1696 * t40434 + 0.12e2 * t17025 * t4305 + 0.12e2 * t17085 * t4310 + 0.6e1 * t17089 * t4310 + 0.12e2 * t1848 * t20679 + 0.6e1 * t1850 * t20679 + 0.12e2 * t1855 * t20592 - 0.54e2 * t2158 * t61961 + 0.12e2 * t471 * t61956 + 0.12e2 * t478 * t61671 + 0.6e1 * t478 * t61677 + 0.12e2 * t6480 * t6983 + 0.6e1 * t6482 * t6983;
22191   t62009 = t1863 * t20555;
22192   t62010 = t62009 * t468;
22193   t62013 = t20508 * t1845;
22194   t62016 = t6996 * t6477;
22195   t62017 = t62016 * t1839;
22196   t62026 = 0.24e2 * t13242 * t5524 + 0.24e2 * t1855 * t20496 + 0.24e2 * t1855 * t20499 + 0.24e2 * t1855 * t20502 + 0.24e2 * t1855 * t20505 - 0.108e3 * t1862 * t62010 - 0.54e2 * t1862 * t62013 - 0.108e3 * t20509 * t6986 + 0.12e2 * t478 * t61659 + 0.24e2 * t478 * t61661 + 0.24e2 * t478 * t61663 + 0.12e2 * t478 * t61665 + 0.24e2 * t478 * t61667 + 0.12e2 * t478 * t61669 + 0.24e2 * t478 * t61673 + 0.12e2 * t478 * t61675 + 0.648e3 * t62017 * t6995;
22197   t62054 = t27 * t6477;
22198   t62055 = t62054 * t1839;
22199   t62062 = t5530 * t13195;
22200   t62065 = -0.324e3 * t13213 * t17033 - 0.108e3 * t13213 * t17059 - 0.54e2 * t13213 * t17062 + 0.12e2 * t13244 * t5524 + 0.24e2 * t13277 * t5517 - 0.324e3 * t13297 * t17102 + 0.24e2 * t17042 * t4310 + 0.12e2 * t17046 * t4310 + 0.648e3 * t17066 * t40545 - 0.54e2 * t1862 * t61744 - 0.108e3 * t1862 * t61747 - 0.324e3 * t1862 * t62055 - 0.54e2 * t1862 * t62062 - 0.108e3 * t20468 * t6986 - 0.108e3 * t20471 * t6986 - 0.54e2 * t25801 * t6492 - 0.108e3 * t40542 * t5531;
22201   t62094 = t25874 * t25875;
22202   t62095 = t6473 * t1839;
22203   t62098 = t6995 * t27335;
22204   t62101 = t1862 * t26;
22205   t62104 = -0.648e3 * t20496 * t27 * t6986 + 0.1296e4 * t20496 * t27298 * t6996 - 0.54e2 * t13251 * t17102 + 0.648e3 * t13256 * t50722 - 0.108e3 * t13301 * t17102 + 0.24e2 * t17025 * t4303 + 0.648e3 * t20701 * t61659 + 0.1296e4 * t20701 * t61661 + 0.1296e4 * t20701 * t61663 - 0.324e3 * t20704 * t61659 - 0.648e3 * t20704 * t61661 - 0.648e3 * t20704 * t61663 - 0.108e3 * t4318 * t50745 - 0.9720e4 * t62094 * t62095 + 0.7776e4 * t62095 * t62098 - 0.1080e4 * t62095 * t62101 - t61680;
22206   t62106 = t61986 + t62026 + t62065 + t62104;
22207   t62119 = 0.324e3 * t20737 * t13297 + 0.108e3 * t61925 * t4318 + 0.108e3 * t61928 * t4318 - 0.24e2 * t61931 * t4303 - 0.12e2 * t5524 * t13366 + 0.171e3 / 0.500e3 * t20773 * t61936 + 0.108e3 * t53790 * t5531 - 0.6e1 * t6983 * t6495 - 0.12e2 * t1855 * t20905 - 0.12e2 * t17025 * t4332 - 0.12e2 * t478 * t13369 * t5514 + t62106 * t207 * t230 - 0.12e2 * t5524 * t13454 - 0.6e1 * t20679 * t1876 + 0.25155289876543209876e-1 * t20786 * t17162 + 0.25155289876543209876e-1 * t51289 * t6513 + 0.50310579753086419752e-1 * t51292 * t6513;
22208   t62126 = t13277 * t5545;
22209   t62135 = t1855 * t20785;
22210   t62138 = t4405 * t114;
22211   t62139 = t478 * t62138;
22212   t62152 = t33 * t62138;
22213   t62162 = -0.9e1 / 0.50e2 * t702 * t20869 - 0.9e1 / 0.50e2 * t702 * t20825 + 0.75465869629629629630e0 * t62126 * t5549 - 0.70434811654320987652e-1 * t5557 * t46 * t53674 - 0.35217405827160493826e-1 * t5557 * t46 * t53677 + 0.75465869629629629630e0 * t62135 * t5549 + 0.75465869629629629630e0 * t62139 * t5549 + 0.108e3 * t13326 * t20471 + 0.54e2 * t4316 * t62062 - 0.24e2 * t53793 * t5517 - 0.24e2 * t53847 * t5517 - 0.6e1 * t4310 * t17292 + 0.50310579753086419752e-1 * t62152 * t5558 + t1713 * t13447 / 0.10e2 - 0.9e1 / 0.100e3 * t1478 * t17297 - 0.12e2 * t478 * t1868 * t20555;
22214   t62180 = t1362 * t1422;
22215   t62183 = t4308 * t5545;
22216   t62186 = t1362 * t17212;
22217   t62199 = t5574 * t4643 / 0.5e1 - 0.9e1 / 0.50e2 * t638 * t20869 + t6526 * t2299 * t230 + 0.75465869629629629630e0 * t20806 * t17227 + 0.75465869629629629630e0 * t17230 * t20803 + 0.37732934814814814815e0 * t51264 * t6507 + t61680 * t160 - 0.12e2 * t5524 * t13370 - 0.83850966255144032920e-1 * t17185 * t20627 - 0.83850966255144032920e-1 * t62180 * t5558 + 0.50310579753086419752e-1 * t62183 * t5558 + 0.50310579753086419752e-1 * t62186 * t5558 + t2168 * t6562 / 0.5e1 + t638 * t20848 / 0.5e1 - 0.12e2 * t5524 * t13464 - 0.12e2 * t4310 * t17202 - 0.9e1 / 0.100e3 * t2300 * t6533;
22218   t62214 = t2305 * t20577;
22219   t62222 = t582 * t4305 * t506;
22220   t62229 = t6986 * t17281;
22221   t62244 = -0.9e1 / 0.100e3 * t208 * t20819 * t2341 + 0.108e3 * t13326 * t20509 + 0.171e3 / 0.500e3 * t638 * t7029 * t20676 + 0.171e3 / 0.500e3 * t702 * t7029 * t20676 + 0.171e3 / 0.500e3 * t20773 * t61719 - 0.9e1 / 0.50e2 * t208 * t62214 * t731 - 0.9e1 / 0.100e3 * t208 * t5582 * t13446 - 0.30186347851851851852e0 * t17282 * t62222 - 0.30186347851851851852e0 * t50951 * t20608 + 0.15093173925925925926e1 * t50951 * t20611 - 0.67919282666666666668e1 * t62229 * t20614 - 0.30186347851851851852e0 * t50951 * t20602 - 0.12e2 * t4324 * t61675 + 0.324e3 * t4316 * t62055 + 0.108e3 * t13339 * t20509 - 0.6e1 * t40434 * t1701 + 0.54e2 * t17102 * t13321;
22222   t62265 = t50915 * t4296;
22223   t62268 = t17065 * t13236;
22224   t62271 = t17065 * t13234;
22225   t62274 = t51026 * t13240;
22226   t62287 = -0.9e1 / 0.100e3 * t208 * t51199 * t1495 - 0.9e1 / 0.50e2 * t208 * t17300 * t4642 - 0.9e1 / 0.100e3 * t1713 * t13357 + 0.25155289876543209876e-1 * t51281 * t6513 - 0.62888224691358024691e-1 * t13249 * t112 * t1707 - 0.12577644938271604938e0 * t4308 * t568 * t1707 - 0.12e2 * t20679 * t1873 + 0.171e3 / 0.1000e4 * t1478 * t17206 - 0.1296e4 * t13333 * t62265 - 0.1296e4 * t13333 * t62268 - 0.648e3 * t13333 * t62271 + 0.9720e4 * t42157 * t62274 + 0.20962741563786008230e0 * t20836 * t1508 + 0.20962741563786008230e0 * t20839 * t1508 - 0.27950322085048010973e0 * t6510 * t4677 + 0.11180128834019204389e0 * t51240 * t6513 - 0.35217405827160493826e-1 * t20812 * t17188;
22227   t62302 = t7029 * t6561;
22228   t62318 = t6995 * t17281;
22229   t62319 = t1706 * t13256;
22230   t62323 = t582 * t20600 * t1845;
22231   t62328 = t582 * t1372 * t1863 * t1839;
22232   t62331 = -0.24e2 * t13344 * t20496 - 0.24e2 * t13344 * t20499 - 0.24e2 * t13344 * t20502 - 0.12e2 * t4324 * t61659 + t2300 * t6562 / 0.10e2 + t6485 * t2154 + 0.171e3 / 0.1000e4 * t208 * t62302 * t2306 - 0.6e1 * t5524 * t13362 - 0.6e1 * t4310 * t17273 - 0.35217405827160493826e-1 * t20786 * t17188 - 0.6e1 * t5524 * t13481 - 0.12e2 * t17025 * t4327 - 0.12e2 * t20679 * t1869 + 0.40751569600000000001e2 * t62318 * t62319 - 0.15093173925925925926e0 * t17282 * t62323 + 0.13583856533333333333e1 * t20762 * t62328;
22233   t62340 = t1862 * t51104;
22234   t62343 = t1706 * t13244;
22235   t62346 = t1706 * t13297;
22236   t62349 = t1706 * t13251;
22237   t62359 = t50887 * t4296;
22238   t62362 = t17032 * t13236;
22239   t62365 = t17032 * t13234;
22240   t62368 = t50891 * t13240;
22241   t62375 = 0.50310579753086419754e0 * t51096 * t20608 - 0.30186347851851851852e0 * t51105 * t20602 - 0.30186347851851851852e0 * t51105 * t20608 + 0.15093173925925925926e1 * t51105 * t20611 - 0.67919282666666666668e1 * t62340 * t20614 + 0.75465869629629629630e0 * t17282 * t62343 - 0.20375784800000000001e2 * t20762 * t62346 - 0.33959641333333333334e1 * t20762 * t62349 - 0.1296e4 * t40996 * t20620 - 0.62888224691358024691e-1 * t33 * t13867 * t1707 + 0.20962741563786008230e0 * t20842 * t1508 + 0.648e3 * t4316 * t62359 + 0.648e3 * t4316 * t62362 + 0.324e3 * t4316 * t62365 - 0.7776e4 * t13333 * t62368 - 0.1296e4 * t41007 * t20620 + t5572 * t4643 / 0.5e1;
22242   t62405 = t582 * t1863;
22243   t62406 = t4296 * t506;
22244   t62416 = t17174 * t1496 / 0.10e2 + t17171 * t1496 / 0.5e1 - 0.12e2 * t1855 * t20864 - 0.12e2 * t1855 * t20861 - 0.6e1 * t478 * t7377 * t6477 - 0.6e1 * t478 * t479 * t61656 - 0.6e1 * t6983 * t6500 - 0.12e2 * t17025 * t4321 + 0.54e2 * t61961 * t1865 - 0.6e1 * t50736 * t1364 + 0.2e1 * t5522 * t4584 - 0.9e1 / 0.50e2 * t5574 * t4608 - 0.9e1 / 0.50e2 * t5572 * t4608 + 0.27167713066666666667e1 * t20762 * t62405 * t62406 - 0.12577644938271604938e1 * t51177 * t6507 - 0.12577644938271604938e1 * t17248 * t20803 - 0.12577644938271604938e1 * t51185 * t6507;
22245   t62423 = t13213 * t5545;
22246   t62428 = t478 * t5981;
22247   t62440 = t4310 * t17212;
22248   t62457 = 0.37732934814814814815e0 * t5546 * t46 * t5547 * t13195 + 0.37732934814814814815e0 * t20806 * t17237 - 0.33959641333333333334e1 * t62423 * t17245 + 0.75465869629629629630e0 * t17233 * t20803 - 0.12577644938271604938e1 * t62428 * t5549 + 0.75465869629629629630e0 * t20795 * t17227 + 0.84521773985185185182e-1 * t5557 * t46 * t53684 - 0.12e2 * t13277 * t5534 - 0.9e1 / 0.50e2 * t1713 * t13317 + 0.75465869629629629630e0 * t62440 * t5549 + 0.37732934814814814815e0 * t51260 * t6507 + 0.75465869629629629630e0 * t51146 * t6507 - 0.24e2 * t4324 * t61661 - 0.24e2 * t4324 * t61663 - 0.24e2 * t13336 * t20496 - 0.24e2 * t13336 * t20499 - 0.24e2 * t13336 * t20502;
22249   t62460 = t474 * t20785;
22250   t62498 = 0.50310579753086419752e-1 * t62460 * t5558 + 0.171e3 / 0.1000e4 * t1713 * t13376 - 0.9e1 / 0.50e2 * t638 * t20820 - 0.6e1 * t5524 * t13354 - 0.9e1 / 0.50e2 * t4599 * t5583 - 0.9e1 / 0.50e2 * t4597 * t5583 - 0.9e1 / 0.100e3 * t2166 * t6533 - 0.9e1 / 0.50e2 * t2168 * t6533 - 0.9e1 / 0.50e2 * t638 * t20825 - 0.12e2 * t61956 * t480 + t17160 * t1496 / 0.10e2 - 0.6e1 * t478 * t4331 * t16987 - 0.9e1 / 0.50e2 * t1478 * t17301 - 0.12e2 * t13277 * t5539 - 0.12e2 * t4310 * t17287 - 0.62888224691358024691e-1 * t1362 * t2064 * t1707 - 0.62888224691358024691e-1 * t1853 * t1418 * t1707;
22251   t62513 = t1696 * t13240;
22252   t62536 = -0.12577644938271604938e0 * t474 * t4405 * t1707 - 0.9e1 / 0.50e2 * t702 * t20820 - 0.12e2 * t478 * t13365 * t6477 + t1478 * t17180 / 0.10e2 + t14033 * t1728 / 0.10e2 + 0.20962741563786008230e0 * t20845 * t1508 + 0.1080e4 * t4316 * t62513 - 0.27950322085048010973e0 * t6503 * t4677 + 0.648e3 * t13339 * t20617 + 0.648e3 * t13326 * t20617 - 0.12e2 * t4324 * t61665 - 0.24e2 * t4324 * t61667 - 0.12e2 * t4324 * t61669 + 0.108e3 * t13339 * t20468 + 0.108e3 * t13326 * t20468 + 0.108e3 * t20737 * t13301 + 0.54e2 * t20737 * t13251;
22253   t62538 = t50722 * t160;
22254   t62541 = t46 * t13890;
22255   t62548 = t33 * t5981;
22256   t62565 = t582 * t25;
22257   t62569 = t4310 * t1422;
22258   t62572 = t123 * t1839;
22259   t62581 = t1862 * t20785;
22260   t62584 = -0.648e3 * t62538 * t13256 + 0.25155289876543209876e-1 * t5557 * t62541 + 0.50310579753086419752e-1 * t17209 * t20627 + 0.50310579753086419752e-1 * t17213 * t20627 - 0.83850966255144032920e-1 * t62548 * t5558 + t14037 * t1728 / 0.5e1 + t4597 * t5611 / 0.5e1 + 0.25155289876543209876e-1 * t20812 * t17162 - 0.83850966255144032920e-1 * t51286 * t6513 - 0.83850966255144032920e-1 * t51277 * t6513 + 0.42260886992592592592e0 * t17282 * t1928 * t1372 * t17283 - 0.60372695703703703704e0 * t17282 * t62565 * t62406 - 0.12577644938271604938e1 * t62569 * t5549 + 0.75465869629629629630e0 * t5546 * t46 * t62572 * t1356 + 0.16770193251028806585e1 * t51194 * t6507 + 0.37732934814814814815e0 * t20795 * t17237 - 0.33959641333333333334e1 * t62581 * t17245;
22261   t62591 = t20785 * t41;
22262   t62592 = t478 * t62591;
22263   t62595 = t4310 * t17281;
22264   t62602 = t582 * t4356 * t26 * t468;
22265   t62605 = t1706 * t13242;
22266   t62608 = t1706 * t13301;
22267   t62613 = t582 * t1372 * t25 * t1839;
22268   t62617 = t1928 * t1359 * t1882;
22269   t62632 = 0.11739135275720164609e0 * t17185 * t20809 - 0.70434811654320987652e-1 * t17209 * t20809 - 0.70434811654320987652e-1 * t17213 * t20809 - 0.30186347851851851852e0 * t62592 * t17284 - 0.30186347851851851852e0 * t62595 * t17284 + 0.50310579753086419753e0 * t51096 * t20602 - 0.30186347851851851852e0 * t17282 * t62602 + 0.15093173925925925926e1 * t17282 * t62605 - 0.67919282666666666668e1 * t20762 * t62608 - 0.30186347851851851852e0 * t17282 * t62613 + 0.21130443496296296296e0 * t17282 * t62617 + 0.108e3 * t53799 * t5531 + 0.108e3 * t4316 * t62010 + 0.54e2 * t4316 * t62013 - 0.648e3 * t13333 * t62017 - 0.24e2 * t53805 * t5517 + t4599 * t5611 / 0.5e1;
22270   t62642 = -0.9e1 / 0.50e2 * t2394 * t5610 * t4642 - 0.12e2 * t5524 * t14045 - 0.12e2 * t478 * t14100 * t5514 - 0.12e2 * t20679 * t2361 - 0.12e2 * t478 * t53513 * t1693 - 0.12e2 * t5524 * t13205 + 0.2e1 * t20595 * t756 + t6485 * t2388 + 0.171e3 / 0.500e3 * t7915 * t61719 + 0.171e3 / 0.500e3 * t27414 * t20676 - p->cam_beta * (t61759 + t61886 + t61922 + t62119 + t62162 + t62199 + t62244 + t62287 + t62331 + t62375 + t62416 + t62457 + t62498 + t62536 + t62584 + t62632) - 0.9e1 / 0.50e2 * t7894 * t20662 - 0.24e2 * t4660 * t61667;
22271   t62671 = -0.24e2 * t13261 * t20496 - 0.24e2 * t13261 * t20499 - 0.24e2 * t13261 * t20505 - 0.24e2 * t14097 * t20505 + 0.324e3 * t18068 * t17033 - 0.24e2 * t18065 * t17042 - 0.12e2 * t18065 * t17046 + 0.108e3 * t18068 * t17059 + 0.54e2 * t18068 * t17062 - 0.648e3 * t53298 * t17066 - 0.12e2 * t40504 * t6480 - 0.12e2 * t4660 * t61669 + 0.108e3 * t53187 * t5531 + 0.108e3 * t53217 * t5531;
22272   t62700 = -0.24e2 * t13261 * t20502 - 0.12e2 * t4660 * t61659 - 0.24e2 * t4660 * t61661 - 0.24e2 * t4660 * t61663 - 0.12e2 * t4660 * t61665 - 0.12e2 * t61956 * t739 - 0.12e2 * t20679 * t2357 - 0.6e1 * t20679 * t2364 + 0.171e3 / 0.500e3 * t7915 * t61936 + 0.171e3 / 0.1000e4 * t7915 * t61754 - 0.6e1 * t5524 * t13225 + 0.54e2 * t17102 * t13229 - 0.12e2 * t20515 * t13244;
22273   t62703 = t50745 * t244;
22274   t62706 = t17102 * t756;
22275   t62713 = t50722 * t244;
22276   t62732 = 0.54e2 * t20518 * t13251 - 0.648e3 * t13254 * t62017 - 0.648e3 * t62713 * t13256 + 0.324e3 * t20518 * t13297 + 0.108e3 * t20518 * t13301 + 0.108e3 * t14106 * t20509 + 0.108e3 * t14109 * t20509 + 0.108e3 * t62703 * t4318 + 0.108e3 * t62706 * t4318 + 0.108e3 * t4654 * t62010 + 0.54e2 * t4654 * t62013 + 0.324e3 * t4654 * t62055 - 0.24e2 * t4660 * t61673 - 0.12e2 * t4660 * t61675;
22277   t62737 = t17025 * t244;
22278   t62740 = t5524 * t756;
22279   t62753 = t1705 * t45;
22280   t62754 = t478 * t62753;
22281   t62758 = t581 * t25;
22282   t62762 = t1862 * t62753;
22283   t62763 = t581 * t1863;
22284   t62771 = -0.62888224691358024691e-1 * t13249 * t114 * t124 - 0.24e2 * t62737 * t4303 - 0.24e2 * t62740 * t4303 - 0.24e2 * t20515 * t13242 + 0.54e2 * t61961 * t2353 - 0.6e1 * t50736 * t1502 - 0.12e2 * t17025 * t4657 - 0.12e2 * t17025 * t4663 + 0.42260886992592592592e0 * t62754 * t17999 * t17283 - 0.60372695703703703704e0 * t62754 * t62758 * t62406 + 0.27167713066666666667e1 * t62762 * t62763 * t62406 - 0.35217405827160493826e-1 * t6583 * t17188 - 0.83850966255144032920e-1 * t17036 * t6513;
22285   t62800 = -0.83850966255144032920e-1 * t5639 * t20627 + 0.1080e4 * t4654 * t62513 + t62106 * t230 + 0.84521773985185185182e-1 * t20488 * t14008 + 0.75465869629629629630e0 * t20480 * t17334 + 0.16770193251028806585e1 * t51459 * t6586 + 0.75465869629629629630e0 * t5635 * t1706 * t13240 - 0.33959641333333333334e1 * t17337 * t62349 + 0.40751569600000000001e2 * t51482 * t62319 - 0.15093173925925925926e0 * t5635 * t62323 + 0.13583856533333333333e1 * t17337 * t62328 + 0.50310579753086419754e0 * t17331 * t20608 - 0.25155289876543209876e1 * t17331 * t20611 + 0.11319880444444444445e2 * t51471 * t20614;
22286   t62830 = -0.30186347851851851852e0 * t17071 * t20608 + 0.324e3 * t4654 * t62365 - 0.7776e4 * t13254 * t62368 - 0.1296e4 * t40403 * t20620 - 0.1296e4 * t40476 * t20620 - 0.1296e4 * t13254 * t62265 - 0.1296e4 * t13254 * t62268 - 0.648e3 * t13254 * t62271 + 0.9720e4 * t40416 * t62274 - 0.83850966255144032920e-1 * t20457 * t5558 + 0.50310579753086419752e-1 * t20512 * t5558 + 0.25155289876543209876e-1 * t6583 * t17162 + 0.11180128834019204389e0 * t17039 * t6513;
22287   t62847 = t4310 * t17330;
22288   t62861 = 0.648e3 * t14106 * t20617 + 0.648e3 * t14109 * t20617 + 0.648e3 * t4654 * t62359 + 0.648e3 * t4654 * t62362 - 0.9e1 / 0.100e3 * t2394 * t6561 * t2341 - 0.6e1 * t478 * t40830 * t1693 - 0.12e2 * t1855 * t20632 - 0.12577644938271604938e1 * t62847 * t5636 - 0.70434811654320987652e-1 * t474 * t1705 * t4573 - 0.70434811654320987652e-1 * t20488 * t14017 + 0.25155289876543209876e-1 * t17049 * t6513 + 0.50310579753086419752e-1 * t5632 * t20627 + 0.25155289876543209876e-1 * t1737 * t62541;
22289   t62888 = 0.2e1 * t5522 * t4687 + t1699 * t14093 - 0.30186347851851851852e0 * t5635 * t62222 - 0.15093173925925925926e0 * t5635 * t61859 + 0.15093173925925925926e1 * t17071 * t20611 + 0.15093173925925925926e1 * t5635 * t62605 + 0.75465869629629629630e0 * t5635 * t62343 - 0.20375784800000000001e2 * t17337 * t62346 - 0.67919282666666666668e1 * t51479 * t20614 - 0.67919282666666666668e1 * t17337 * t62608 - 0.30186347851851851852e0 * t5635 * t62613 + 0.21130443496296296296e0 * t5635 * t62617 - 0.30186347851851851852e0 * t20480 * t17284;
22290   t62918 = -0.30186347851851851852e0 * t17071 * t20602 - 0.30186347851851851852e0 * t5635 * t62602 + 0.50310579753086419753e0 * t17331 * t20602 - 0.24e2 * t53214 * t5517 - 0.24e2 * t53184 * t5517 + 0.20962741563786008230e0 * t4308 * t51 * t124 - 0.24e2 * t53449 * t5517 - 0.24e2 * t53455 * t5517 - 0.24e2 * t18048 * t17042 - 0.12e2 * t18048 * t17046 + 0.324e3 * t18051 * t17033 + 0.108e3 * t53452 * t5531 + 0.108e3 * t53458 * t5531 + 0.108e3 * t18051 * t17059;
22291   t62947 = -0.24e2 * t14097 * t20496 - 0.24e2 * t14097 * t20499 - 0.24e2 * t14097 * t20502 + 0.108e3 * t14106 * t20468 + 0.108e3 * t14106 * t20471 + 0.108e3 * t14109 * t20468 + 0.54e2 * t18051 * t17062 - 0.648e3 * t53324 * t17066 - 0.12e2 * t40488 * t6480 + 0.54e2 * t40491 * t6492 - 0.24e2 * t40494 * t6480 + 0.108e3 * t40497 * t6492 + 0.54e2 * t40507 * t6492;
22292   t62962 = t13213 * t1705;
22293   t62977 = t13277 * t1705;
22294   t62980 = 0.108e3 * t14109 * t20471 + 0.54e2 * t4654 * t61744 + 0.108e3 * t4654 * t61747 + 0.54e2 * t4654 * t62062 - 0.12577644938271604938e1 * t51464 * t6586 - 0.12577644938271604938e1 * t17331 * t20485 + 0.37732934814814814815e0 * t20480 * t17074 - 0.33959641333333333334e1 * t62962 * t17338 + 0.37732934814814814815e0 * t51489 * t6586 + 0.75465869629629629630e0 * t17071 * t20485 + 0.37732934814814814815e0 * t5635 * t1706 * t13246 + 0.11739135275720164609e0 * t33 * t17330 * t4573 - 0.35217405827160493826e-1 * t20488 * t14020 + 0.75465869629629629630e0 * t62977 * t5636;
22295   t63012 = -0.12e2 * t478 * t13204 * t6477 - 0.12e2 * t1855 * t20638 - 0.9e1 / 0.50e2 * t40702 * t5650 - 0.9e1 / 0.100e3 * t2394 * t1727 * t13446 - 0.9e1 / 0.100e3 * t27431 * t6596 - 0.27950322085048010973e0 * t1362 * t496 * t124 - 0.9e1 / 0.50e2 * t17157 * t13269 + 0.171e3 / 0.1000e4 * t51364 * t14053 - 0.9e1 / 0.100e3 * t13201 * t17347 + 0.171e3 / 0.1000e4 * t7915 * t6561 * t2306 - 0.9e1 / 0.50e2 * t13201 * t17350 + 0.171e3 / 0.1000e4 * t40595 * t17099 + t5645 * t13446 / 0.10e2;
22296   t63037 = t20728 * t708;
22297   t63046 = t40588 * t1727 / 0.10e2 + t13272 * t5610 / 0.5e1 - 0.6e1 * t478 * t7907 * t6477 - 0.12e2 * t478 * t2356 * t20555 - 0.6e1 * t478 * t738 * t61656 + t7854 * t6561 / 0.10e2 + t2391 * t20577 / 0.5e1 + t759 * t61848 / 0.10e2 - 0.9e1 / 0.50e2 * t2394 * t20577 * t731 + t4690 * t17014 / 0.10e2 + t63037 * t731 / 0.5e1 + t20521 * t2341 / 0.10e2 + t51392 * t1495 / 0.10e2 + t17111 * t4642 / 0.5e1;
22298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22299     v4rho2sigmatau[0] = -t61592 - 0.4e1 / 0.3e1 * t61593 - t61595 - t1352 * t2753 * t6601 * t1812 / 0.6e1 - t1352 * t2774 * t20929 * t455 - t1352 * t2774 * t6601 * t1827 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t61635 + t61699 + t62642 + t62671 + t62700 + t62732 + t62771 + t62800 + t62830 + t62861 + t62888 + t62918 + t62947 + t62980 + t63012 + t63046);
22300 
22301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22302     v4rho2sigmatau[1] = 0.0e0;
22303 
22304   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22305     v4rho2sigmatau[2] = 0.0e0;
22306 
22307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22308     v4rho2sigmatau[3] = 0.0e0;
22309 
22310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22311     v4rho2sigmatau[4] = 0.0e0;
22312 
22313   t63055 = t43020 * t6734 / 0.6e1;
22314   t63056 = t14520 * t20936;
22315   t63058 = t14520 * t20977;
22316   t63106 = t6617 * t2618 - 0.6e1 * t5720 * t14143 + t1757 * t14506 - 0.6e1 * t5116 * t17379 + 0.54e2 * t44409 * t6624 - 0.6e1 * t1101 * t44422 * t1751 - 0.12e2 * t44415 * t6612 - 0.6e1 * t1101 * t9497 * t6609 - 0.62888224691358024691e-1 * t1530 * t2537 * t1765 + 0.37732934814814814815e0 * t51847 * t6639 - 0.62888224691358024691e-1 * t269 * t14328 * t1765 + 0.25155289876543209876e-1 * t51855 * t6645 + t6658 * t2743 * t428 + t17385 * t1664 / 0.10e2 + t14508 * t1786 / 0.10e2 - 0.9e1 / 0.100e3 * t2744 * t6665 + t2744 * t6694 / 0.10e2;
22317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22318     v4rho2sigmatau[5] = -t63055 - 0.4e1 / 0.3e1 * t63056 + t63058 - t1352 * t3131 * t6733 * t2406 / 0.6e1 + t14133 * t14134 * t20975 * t767 - t1352 * t2415 * t6733 * t2421 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * t63106;
22319 
22320   t63113 = t14520 * t20981;
22321   t63127 = t14520 * t21022;
22322   t63142 = t1862 * t51750;
22323   t63163 = t5524 * t1034;
22324   t63166 = t4310 * t17435;
22325   t63175 = -0.6e1 * t17025 * t4911 + t6485 * t2987 + t20728 * t1074 * t230 - 0.15093173925925925926e0 * t51751 * t20608 + 0.75465869629629629630e0 * t51751 * t20611 - 0.33959641333333333334e1 * t63142 * t20614 - 0.6e1 * t20679 * t2785 - 0.9e1 / 0.100e3 * t5089 * t5583 + 0.54e2 * t44305 * t6492 + 0.54e2 * t14550 * t20468 - 0.12e2 * t57391 * t5517 + 0.54e2 * t57394 * t5531 + 0.54e2 * t44314 * t6492 + 0.54e2 * t56159 * t5531 - 0.12e2 * t44311 * t6480 - 0.12e2 * t63163 * t4303 + 0.37732934814814814815e0 * t63166 * t5549 + 0.37732934814814814815e0 * t51673 * t6507 + 0.37732934814814814815e0 * t51677 * t6507 - 0.12e2 * t14556 * t20496;
22326   t63215 = -0.12e2 * t14556 * t20499 - 0.12e2 * t56150 * t5517 + t17449 * t1496 / 0.10e2 + t5693 * t4643 / 0.10e2 - 0.35217405827160493826e-1 * t17444 * t20809 + 0.37732934814814814815e0 * t17436 * t20803 - 0.6e1 * t5524 * t14553 - 0.6e1 * t5524 * t14559 - 0.12e2 * t14556 * t20502 - 0.12e2 * t14556 * t20505 + 0.54e2 * t14550 * t20509 + t6526 * t3121 * t230 + t1699 * t15063 - 0.9e1 / 0.100e3 * t3122 * t6533 - 0.9e1 / 0.100e3 * t1075 * t20869 - 0.9e1 / 0.100e3 * t2989 * t6533 - 0.6e1 * t4310 * t17424 - 0.6e1 * t13277 * t5687 + t17447 * t1496 / 0.10e2 + t5089 * t5611 / 0.10e2;
22327   t63241 = t17102 * t1034;
22328   t63261 = t1362 * t17435;
22329   t63264 = t21010 * t732 / 0.10e2 + t15067 * t1728 / 0.10e2 + t3122 * t6562 / 0.10e2 + t15065 * t1728 / 0.10e2 + t2989 * t6562 / 0.10e2 + t1075 * t20848 / 0.10e2 - 0.6e1 * t478 * t14563 * t5514 + 0.171e3 / 0.1000e4 * t1075 * t7029 * t20676 - 0.6e1 * t478 * t2784 * t20555 - 0.12e2 * t44321 * t6480 + t5522 * t5087 + 0.54e2 * t63241 * t4318 - 0.6e1 * t1855 * t20997 + 0.10481370781893004115e0 * t21005 * t1508 + 0.324e3 * t14550 * t20617 - 0.648e3 * t44308 * t20620 - 0.62888224691358024691e-1 * t4308 * t993 * t1707 - 0.62888224691358024691e-1 * t1362 * t2897 * t1707 - 0.6e1 * t478 * t8705 * t6477 + 0.25155289876543209876e-1 * t63261 * t5558;
22330   t63271 = t5001 * t114;
22331   t63272 = t478 * t63271;
22332   t63275 = t33 * t63271;
22333   t63310 = -0.9e1 / 0.100e3 * t1075 * t20825 - 0.9e1 / 0.100e3 * t1075 * t20820 - 0.9e1 / 0.100e3 * t5693 * t4608 + 0.37732934814814814815e0 * t63272 * t5549 + 0.25155289876543209876e-1 * t63275 * t5558 + 0.25155289876543209876e-1 * t51709 * t6513 + 0.25155289876543209876e-1 * t51706 * t6513 - 0.41925483127572016460e-1 * t51717 * t6513 + 0.10481370781893004115e0 * t21000 * t1508 - 0.62888224691358024691e-1 * t474 * t5001 * t1707 - 0.62888224691358024691e-1 * t33 * t14949 * t1707 - 0.6e1 * t5524 * t14564 + t20595 * t1034 - 0.6e1 * t1855 * t20992 + 0.25155289876543209876e-1 * t17444 * t20627 - 0.6e1 * t478 * t44345 * t1693 - 0.6e1 * t4310 * t17429 - 0.62888224691358024692e0 * t51668 * t6507 + 0.54e2 * t14550 * t20471 - 0.15093173925925925926e0 * t51751 * t20602;
22334   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22335     v4rho2sigmatau[6] = -t61592 - 0.2e1 / 0.3e1 * t61593 - t61595 / 0.2e1 - 0.2e1 / 0.3e1 * t63113 - t14133 * t1810 * t6601 * t2756 / 0.6e1 - t1352 * t2774 * t20929 * t944 / 0.2e1 - t14532 * t2774 * t6601 * t9 / 0.2e1 + t63127 / 0.2e1 + t14133 * t14539 * t21020 * t455 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t63175 + t63215 + t63264 + t63310);
22336 
22337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22338     v4rho2sigmatau[7] = 0.0e0;
22339 
22340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22341     v4rho2sigmatau[8] = 0.0e0;
22342 
22343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22344     v4rho2sigmatau[9] = 0.0e0;
22345 
22346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22347     v4rho2sigmatau[10] = 0.0e0;
22348 
22349   t63319 = t14520 * t21026;
22350   t63333 = t14520 * t21506;
22351   t63352 = t4806 * t332;
22352   t63353 = t1101 * t63352;
22353   t63360 = t5116 * t17507;
22354   t63383 = 0.171e3 / 0.1000e4 * t934 * t12494 * t21244 + 0.54e2 * t57431 * t5727 + 0.37732934814814814815e0 * t17508 * t21427 - 0.62888224691358024692e0 * t52190 * t6639 - 0.35217405827160493826e-1 * t17516 * t21423 - 0.9e1 / 0.100e3 * t3367 * t6665 + 0.37732934814814814815e0 * t63353 * t5745 - 0.12e2 * t15118 * t21058 + 0.37732934814814814815e0 * t52170 * t6639 + 0.37732934814814814815e0 * t63360 * t5745 + 0.10481370781893004115e0 * t20955 * t1676 + 0.54e2 * t46758 * t6624 + 0.54e2 * t46819 * t6624 - 0.12e2 * t46841 * t6612 - 0.12e2 * t46755 * t6612 - 0.9e1 / 0.100e3 * t3494 * t6665 + 0.54e2 * t15112 * t21044 + 0.54e2 * t15112 * t21047 - 0.6e1 * t5720 * t15121 - 0.9e1 / 0.100e3 * t4897 * t5779;
22355   t63401 = t1530 * t17507;
22356   t63425 = 0.37732934814814814815e0 * t52166 * t6639 - 0.6e1 * t1101 * t10331 * t6609 - 0.12e2 * t15118 * t21064 - 0.12e2 * t57438 * t5713 + 0.54e2 * t57447 * t5727 - 0.12e2 * t15118 * t21061 + 0.25155289876543209876e-1 * t52132 * t6645 + 0.25155289876543209876e-1 * t52141 * t6645 + 0.25155289876543209876e-1 * t63401 * t5754 + t21135 * t875 + t1757 * t15631 - 0.9e1 / 0.100e3 * t934 * t21327 - 0.6e1 * t17587 * t4712 - 0.9e1 / 0.100e3 * t934 * t21323 - 0.6e1 * t5720 * t15115 - 0.6e1 * t21214 * t3161 - 0.41925483127572016460e-1 * t52148 * t6645 - 0.6e1 * t1101 * t46830 * t1751 - 0.648e3 * t46838 * t21099 + 0.324e3 * t15112 * t21096;
22357   t63429 = t269 * t63352;
22358   t63467 = t6658 * t3493 * t428 + 0.25155289876543209876e-1 * t63429 * t5754 + t21312 * t933 * t428 - 0.9e1 / 0.100e3 * t5673 * t5407 - 0.6e1 * t5116 * t17501 - 0.6e1 * t3810 * t20947 - 0.9e1 / 0.100e3 * t934 * t21359 + t6617 * t3365 + t5718 * t4895 + t3494 * t6694 / 0.10e2 + t3367 * t6694 / 0.10e2 - 0.6e1 * t16110 * t5667 - 0.6e1 * t3810 * t20952 - 0.6e1 * t5720 * t15126 - 0.6e1 * t5116 * t17496 - 0.6e1 * t1101 * t3160 * t21125 + t15635 * t1786 / 0.10e2 + t4897 * t5807 / 0.10e2 + t15633 * t1786 / 0.10e2 + t934 * t21481 / 0.10e2;
22359   t63478 = t5720 * t875;
22360   t63499 = t3817 * t52083;
22361   t63511 = t17602 * t875;
22362   t63516 = t5673 * t5442 / 0.10e2 + t17519 * t1664 / 0.10e2 + t17521 * t1664 / 0.10e2 + t20965 * t1315 / 0.10e2 - 0.12e2 * t57525 * t5713 - 0.12e2 * t63478 * t5109 - 0.12e2 * t15118 * t21067 + 0.54e2 * t15112 * t21071 - 0.62888224691358024691e-1 * t5114 * t831 * t1765 - 0.62888224691358024691e-1 * t1097 * t4806 * t1765 + 0.10481370781893004115e0 * t20960 * t1676 - 0.62888224691358024691e-1 * t1530 * t3275 * t1765 - 0.6e1 * t1101 * t15125 * t5710 - 0.33959641333333333334e1 * t63499 * t21233 - 0.15093173925925925926e0 * t52084 * t21238 - 0.15093173925925925926e0 * t52084 * t21227 + 0.75465869629629629630e0 * t52084 * t21230 - 0.62888224691358024691e-1 * t269 * t15288 * t1765 + 0.54e2 * t63511 * t5124 + 0.25155289876543209876e-1 * t17516 * t21106;
22363   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22364     v4rho2sigmatau[11] = -t63055 - 0.2e1 / 0.3e1 * t63056 + t63058 / 0.2e1 - 0.2e1 / 0.3e1 * t63319 - t14133 * t2404 * t6733 * t3134 / 0.6e1 + t14133 * t14134 * t20975 * t1082 / 0.2e1 + t14532 * t2415 * t6733 * t9 / 0.2e1 - t63333 / 0.2e1 - t1352 * t2415 * t21505 * t767 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t63383 + t63425 + t63467 + t63516);
22365 
22366   t63571 = t6485 * t3684 - 0.6e1 * t5524 * t15665 + t1699 * t16012 - 0.6e1 * t4310 * t17551 + 0.54e2 * t45603 * t6492 - 0.6e1 * t478 * t45616 * t1693 - 0.12e2 * t45609 * t6480 - 0.6e1 * t478 * t11098 * t6477 - 0.62888224691358024691e-1 * t1362 * t3609 * t1707 + 0.37732934814814814815e0 * t51982 * t6507 - 0.62888224691358024691e-1 * t33 * t15839 * t1707 + 0.25155289876543209876e-1 * t51990 * t6513 + t6526 * t3771 * t230 + t17557 * t1496 / 0.10e2 + t16014 * t1728 / 0.10e2 - 0.9e1 / 0.100e3 * t3772 * t6533 + t3772 * t6562 / 0.10e2;
22367   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22368     v4rho2sigmatau[12] = -t61592 - 0.4e1 / 0.3e1 * t63113 + t63127 - t1352 * t2753 * t6601 * t3507 / 0.6e1 + t14133 * t14539 * t21020 * t944 - t1352 * t2774 * t6601 * t3516 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * t63571;
22369 
22370   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22371     v4rho2sigmatau[13] = 0.0e0;
22372 
22373   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22374     v4rho2sigmatau[14] = 0.0e0;
22375 
22376   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22377     v4rho2sigmatau[15] = 0.0e0;
22378 
22379   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22380     v4rho2sigmatau[16] = 0.0e0;
22381 
22382   t63588 = t6728 * t4190;
22383   t63595 = t1191 * t1540 * t261 * t3794;
22384   t63598 = t21093 * t1314;
22385   t63604 = t3947 * t1527 * t3837;
22386   t63607 = t1752 * t16083;
22387   t63614 = t21126 * t1091;
22388   t63617 = t6610 * t3800;
22389   t63620 = t263 * t6609;
22390   t63621 = t63620 * t3794;
22391   t63626 = -0.4959e4 / 0.10000e5 * t39396 * t63588 + 0.50310579753086419753e0 * t17955 * t21238 - 0.30186347851851851852e0 * t5831 * t63595 + 0.171e3 / 0.500e3 * t12495 * t63598 - 0.12e2 * t3810 * t21223 + 0.21130443496296296296e0 * t5831 * t63604 - 0.12e2 * t5459 * t63607 - 0.24e2 * t16197 * t21067 - 0.24e2 * t16241 * t21067 - 0.24e2 * t5459 * t63614 - 0.12e2 * t5459 * t63617 + 0.324e3 * t5453 * t63621 + 0.108e3 * t16222 * t21071;
22392   t63629 = t3818 * t21125;
22393   t63630 = t63629 * t1091;
22394   t63633 = t21070 * t3800;
22395   t63636 = t12322 * t6609;
22396   t63637 = t63636 * t3794;
22397   t63643 = t17587 * t441;
22398   t63646 = t5720 * t1339;
22399   t63655 = t52673 * t441;
22400   t63658 = t17772 * t1524;
22401   t63661 = t5711 * t5106;
22402   t63664 = 0.108e3 * t16226 * t21071 + 0.108e3 * t5453 * t63630 + 0.54e2 * t5453 * t63633 - 0.648e3 * t16236 * t63637 - 0.62888224691358024691e-1 * t16267 * t332 * t340 - 0.24e2 * t63643 * t5109 - 0.24e2 * t63646 * t5109 - 0.24e2 * t21078 * t16244 - 0.12e2 * t21078 * t16247 + 0.324e3 * t21081 * t16251 + 0.108e3 * t63655 * t5124 - 0.12e2 * t5459 * t63658 - 0.24e2 * t5459 * t63661;
22403   t63680 = t52551 * t5102;
22404   t63691 = t21090 * t1314;
22405   t63694 = 0.108e3 * t16222 * t21047 - 0.12e2 * t16110 * t5820 - 0.12e2 * t16110 * t5825 + 0.54e2 * t17602 * t16188 - 0.6e1 * t49034 * t1792 + 0.11180128834019204389e0 * t17619 * t6645 - 0.1296e4 * t50414 * t21099 - 0.1296e4 * t16236 * t63680 - 0.12e2 * t3810 * t21208 - 0.12e2 * t3810 * t21211 - 0.12e2 * t5720 * t16181 - 0.6e1 * t5720 * t16184 + 0.171e3 / 0.500e3 * t12495 * t63691;
22406   t63717 = t21134 * t1100;
22407   t63724 = t6616 * t3816;
22408   t63727 = -0.6e1 * t1101 * t1751 * t48794 - 0.12e2 * t1101 * t1751 * t59739 - 0.12e2 * t63717 * t1322 - 0.12e2 * t5720 * t16102 - 0.6e1 * t5720 * t16105 - 0.6e1 * t5720 * t16115 - 0.6e1 * t52348 * t1670 - 0.12e2 * t17587 * t5456 - 0.12e2 * t17587 * t5462 - 0.12e2 * t17587 * t5467 - 0.6e1 * t5116 * t17627 - 0.12e2 * t21214 * t4241 - 0.6e1 * t21214 * t4248 + 0.54e2 * t63724 * t4237;
22409   t63757 = -0.12e2 * t21214 * t4245 - 0.6e1 * t1101 * t12463 * t6609 - 0.12e2 * t5720 * t16206 - 0.35217405827160493826e-1 * t6715 * t17636 - 0.83850966255144032920e-1 * t17616 * t6645 - 0.83850966255144032920e-1 * t5835 * t21106 - 0.12e2 * t3810 * t21219 - 0.24e2 * t61574 * t5713 - 0.24e2 * t61425 * t5713 - 0.24e2 * t19833 * t17776 - 0.12e2 * t19833 * t17778 + 0.324e3 * t19836 * t17613 + 0.108e3 * t61577 * t5727;
22410   t63776 = t52427 * t1524;
22411   t63781 = t1764 * t16244;
22412   t63784 = t1764 * t16247;
22413   t63787 = t1764 * t16251;
22414   t63790 = 0.108e3 * t61428 * t5727 + 0.108e3 * t19836 * t17807 + 0.54e2 * t19836 * t17810 - 0.648e3 * t59655 * t17801 + 0.54e2 * t48842 * t6624 + 0.108e3 * t48845 * t6624 + 0.108e3 * t16222 * t21044 + 0.54e2 * t48855 * t6624 + 0.108e3 * t16226 * t21044 + 0.54e2 * t5453 * t63776 + 0.15093173925925925926e1 * t17951 * t21230 + 0.15093173925925925926e1 * t5831 * t63781 + 0.75465869629629629630e0 * t5831 * t63784 - 0.20375784800000000001e2 * t17947 * t63787;
22415   t63794 = t1764 * t16230;
22416   t63797 = t1764 * t16233;
22417   t63800 = t1764 * t16238;
22418   t63807 = t1191 * t5165 * t262 * t1091;
22419   t63811 = t1191 * t21236 * t3800;
22420   t63816 = t1191 * t1540 * t3818 * t3794;
22421   t63830 = t17612 * t16256;
22422   t63833 = -0.67919282666666666668e1 * t52509 * t21233 - 0.67919282666666666668e1 * t17947 * t63794 - 0.33959641333333333334e1 * t17947 * t63797 + 0.40751569600000000001e2 * t52512 * t63800 - 0.30186347851851851852e0 * t17951 * t21238 - 0.30186347851851851852e0 * t5831 * t63807 - 0.15093173925925925926e0 * t5831 * t63811 + 0.13583856533333333333e1 * t17947 * t63816 - 0.12e2 * t1101 * t16180 * t5710 - 0.6e1 * t1101 * t5466 * t17583 - 0.6e1 * t12309 * t6712 - 0.27950322085048010973e0 * t1530 * t1112 * t340 + 0.648e3 * t5453 * t63830;
22423   t63834 = t17800 * t16256;
22424   t63837 = t17602 * t1339;
22425   t63844 = t52676 * t441;
22426   t63852 = t52558 * t16260;
22427   t63863 = t46 * t16796;
22428   t63866 = t17612 * t16254;
22429   t63869 = -0.1296e4 * t16236 * t63834 + 0.108e3 * t63837 * t5124 + 0.108e3 * t21081 * t16230 + 0.54e2 * t21081 * t16233 - 0.648e3 * t63844 * t16238 + 0.20962741563786008230e0 * t5114 * t274 * t340 - 0.12e2 * t5116 * t17578 + 0.9720e4 * t50425 * t63852 - 0.83850966255144032920e-1 * t21241 * t5754 + 0.25155289876543209876e-1 * t6715 * t17874 + 0.25155289876543209876e-1 * t17622 * t6645 + 0.50310579753086419752e-1 * t5828 * t21106 + 0.25155289876543209876e-1 * t1795 * t63863 + 0.324e3 * t5453 * t63866;
22430   t63873 = t52661 * t16260;
22431   t63876 = t17800 * t16254;
22432   t63879 = t17770 * t1524;
22433   t63882 = t5706 * t5106;
22434   t63898 = t1191 * t5111 * t1122;
22435   t63902 = t1191 * t1527 * t3853;
22436   t63907 = -0.7776e4 * t16236 * t63873 - 0.648e3 * t16236 * t63876 - 0.24e2 * t5459 * t63879 - 0.24e2 * t5459 * t63882 + t17939 * t5441 / 0.5e1 - 0.30186347851851851852e0 * t21031 * t17646 + 0.50310579753086419754e0 * t17955 * t21227 - 0.25155289876543209876e1 * t17955 * t21230 + 0.11319880444444444445e2 * t52519 * t21233 - 0.30186347851851851852e0 * t17951 * t21227 - 0.30186347851851851852e0 * t5831 * t63898 - 0.15093173925925925926e0 * t5831 * t63902 + t52577 * t1663 / 0.10e2;
22437   t63927 = my_piecewise3(t260, -t3796 * t1748 / 0.4e1, 0);
22438   t63930 = t17768 * t1524;
22439   t63937 = t3794 * t6609;
22440   t63941 = t262 * t63927;
22441   t63943 = 0.4e1 * t1091 * t21125 + 0.2e1 * t1524 * t17583 + 0.2e1 * t16083 * t1751 + 0.2e1 * t261 * t63927 + 0.2e1 * t3800 * t6609 + 0.4e1 * t5106 * t5710 + 0.18e2 * t63607 + 0.36e2 * t63614 + 0.18e2 * t63617 + 0.18e2 * t63658 + 0.36e2 * t63661 + 0.36e2 * t63879 + 0.36e2 * t63882 + 0.18e2 * t63930 + 0.18e2 * t63937 + 0.9e1 * t63941;
22442   t63944 = t63943 * t268;
22443   t63946 = t5116 * t17954;
22444   t63956 = t16173 * t1763;
22445   t63995 = 0.12e2 * t63717 * t1094 + 0.12e2 * t1101 * t63937 + 0.6e1 * t1101 * t63941 + 0.6e1 * t12309 * t6614 + 0.6e1 * t52348 * t1527 + 0.12e2 * t16110 * t5715 - 0.324e3 * t17602 * t16251 + 0.12e2 * t5720 * t16260 + 0.6e1 * t5720 * t16264 + 0.6e1 * t49034 * t1754 + 0.12e2 * t17587 * t5111 + 0.12e2 * t5116 * t17774 + 0.6e1 * t5116 * t17780 + 0.12e2 * t3810 * t21132 + 0.12e2 * t21214 * t3803 + 0.6e1 * t21214 * t3805 - 0.54e2 * t63724 * t4083;
22446   t64020 = t17806 * t5106;
22447   t64023 = t5726 * t16083;
22448   t64032 = 0.24e2 * t1101 * t63614 + 0.12e2 * t1101 * t63617 + 0.12e2 * t12309 * t6612 - 0.108e3 * t12312 * t21044 - 0.108e3 * t12312 * t21047 + 0.648e3 * t12321 * t63637 - 0.324e3 * t16173 * t17613 + 0.12e2 * t5116 * t17778 + 0.24e2 * t3810 * t21058 + 0.24e2 * t3810 * t21061 - 0.324e3 * t3817 * t63621 - 0.108e3 * t3817 * t63630 - 0.54e2 * t3817 * t63633 - 0.54e2 * t3817 * t63776 - 0.108e3 * t3817 * t64020 - 0.54e2 * t3817 * t64023 - 0.54e2 * t38196 * t6624;
22449   t64068 = 0.12e2 * t1101 * t63607 + 0.12e2 * t1101 * t63658 + 0.24e2 * t1101 * t63661 + 0.24e2 * t1101 * t63879 + 0.24e2 * t1101 * t63882 + 0.12e2 * t1101 * t63930 - 0.108e3 * t12312 * t21071 + 0.24e2 * t16110 * t5713 - 0.108e3 * t17602 * t16230 - 0.54e2 * t17602 * t16233 + 0.648e3 * t52676 * t16238 + 0.24e2 * t5720 * t16244 + 0.12e2 * t5720 * t16247 + 0.24e2 * t17587 * t5109 + 0.24e2 * t3810 * t21064 + 0.24e2 * t3810 * t21067 - 0.108e3 * t52673 * t5124;
22450   t64085 = t38188 * t38189;
22451   t64086 = t6605 * t3794;
22452   t64101 = t12321 * t38258;
22453   t64104 = t3817 * t262;
22454   t64107 = -0.648e3 * t12312 * t21058 * t263 + 0.1296e4 * t12322 * t21058 * t38183 - 0.108e3 * t16173 * t17807 - 0.54e2 * t16173 * t17810 + 0.24e2 * t5116 * t17776 + 0.648e3 * t48839 * t17801 + 0.1296e4 * t21285 * t63879 + 0.1296e4 * t21285 * t63882 + 0.648e3 * t21285 * t63930 - 0.648e3 * t21288 * t63879 - 0.648e3 * t21288 * t63882 - 0.324e3 * t21288 * t63930 - 0.108e3 * t48834 * t5727 - 0.9720e4 * t64085 * t64086 + 0.7776e4 * t64101 * t64086 - 0.1080e4 * t64104 * t64086 - t63944;
22455   t64109 = t63995 + t64032 + t64068 + t64107;
22456   t64113 = t21142 * t4225 / 0.10e2 + 0.171e3 / 0.500e3 * t38016 * t21244 + 0.2e1 * t21135 * t1339 + t6617 * t4272 + t63944 * t441 - 0.12577644938271604938e1 * t63946 * t5832 - 0.70434811654320987652e-1 * t1097 * t1763 * t5333 - 0.70434811654320987652e-1 * t21039 * t16819 + 0.37732934814814814815e0 * t21031 * t17944 - 0.33959641333333333334e1 * t63956 * t17948 + 0.37732934814814814815e0 * t52516 * t6718 + t64109 * t428 + t5841 * t16097 / 0.10e2;
22457   t64121 = t17774 * t1527;
22458   t64124 = t52646 * t5102;
22459   t64131 = t21312 * t1291;
22460   t64169 = -0.146e3 / 0.135e3 * t4207 * t6609 * t424 - 0.292e3 / 0.135e3 * t1303 * t21125 * t424 + 0.584e3 / 0.135e3 * t21171 * t1091 - 0.146e3 / 0.135e3 * t420 * t63927 * t424 + 0.584e3 / 0.135e3 * t21174 * t1091 + 0.292e3 / 0.135e3 * t6683 * t3800 + 0.292e3 / 0.135e3 * t17690 * t1524 + 0.584e3 / 0.135e3 * t17693 * t1524 + 0.584e3 / 0.135e3 * t5794 * t5106 + 0.292e3 / 0.135e3 * t17698 * t1524 + 0.584e3 / 0.135e3 * t5797 * t5106 + 0.292e3 / 0.135e3 * t1780 * t16083 + 0.146e3 / 0.135e3 * t4210 * t6609 + 0.292e3 / 0.135e3 * t1306 * t21125 + 0.146e3 / 0.135e3 * t423 * t63927 - 0.949e3 / 0.32805e5 * t19757 - 0.292e3 / 0.243e3 * t19774;
22461   t64217 = 0.73e2 / 0.81e2 * t19778 - 0.146e3 / 0.81e2 * t19781 + 0.292e3 / 0.243e3 * t19784 - 0.73e2 / 0.81e2 * t19787 + 0.803e3 / 0.21870e5 * t46 * t3843 * t1751 * t424 - 0.803e3 / 0.21870e5 * t46 * t16042 * t1751 + 0.73e2 / 0.135e3 * t1763 * t6672 * t3800 + 0.73e2 / 0.270e3 * t1763 * t1776 * t16083 - 0.73e2 / 0.3645e4 * t46 * t1112 * t5710 * t424 + 0.146e3 / 0.3645e4 * t46 * t21160 * t1091 + 0.73e2 / 0.19440e5 * t46 * t274 * t17583 * t424 - 0.73e2 / 0.4860e4 * t46 * t21164 * t1091 - 0.73e2 / 0.9720e4 * t46 * t6679 * t3800 + 0.73e2 / 0.3645e4 * t46 * t5418 * t5710 - 0.73e2 / 0.19440e5 * t46 * t1654 * t17583 - 0.73e2 / 0.270e3 * t1763 * t45 * t16083 * t424 + 0.146e3 / 0.135e3 * t1763 * t21149 * t1091;
22462   t64218 = t64169 + t64217;
22463   t64227 = t3817 * t21338;
22464   t64234 = t1101 * t6289;
22465   t64237 = t339 * t3794;
22466   t64252 = t16173 * t5741;
22467   t64259 = t4189 * t21195;
22468   t64263 = -0.9e1 / 0.100e3 * t1771 * t16311 + 0.171e3 / 0.1000e4 * t1771 * t16849 - 0.33959641333333333334e1 * t64227 * t17860 + 0.37732934814814814815e0 * t21441 * t17854 + 0.75465869629629629630e0 * t21430 * t17850 - 0.12577644938271604938e1 * t64234 * t5745 + 0.75465869629629629630e0 * t5742 * t46 * t64237 * t1524 + t6659 * t4226 / 0.10e2 + t21453 * t1315 / 0.5e1 + t21451 * t1315 / 0.5e1 + t1771 * t16890 / 0.10e2 + 0.37732934814814814815e0 * t21430 * t17854 - 0.33959641333333333334e1 * t64252 * t17860 + 0.37732934814814814815e0 * t52911 * t6639 + 0.75465869629629629630e0 * t52914 * t6639 - 0.9e1 / 0.50e2 * t406 * t64259 * t1314;
22469   t64299 = -0.9e1 / 0.50e2 * t1285 * t21327 - 0.9e1 / 0.50e2 * t4093 * t6665 + 0.648e3 * t5122 * t64124 + 0.648e3 * t5122 * t63830 + 0.324e3 * t5122 * t63866 + 0.108e3 * t16898 * t21044 - 0.12e2 * t5130 * t63658 - 0.24e2 * t5130 * t63661 - 0.12e2 * t5130 * t63930 - 0.24e2 * t5130 * t63879 - 0.24e2 * t5130 * t63882 - 0.12e2 * t5720 * t16831 - 0.9e1 / 0.50e2 * t1244 * t21327 - 0.6e1 * t1101 * t1102 * t63927 - 0.9e1 / 0.100e3 * t1646 * t17887 - 0.9e1 / 0.100e3 * t4091 * t6665 - 0.12e2 * t49096 * t6612;
22470   t64320 = t1191 * t261;
22471   t64322 = t1524 * t1122 * t1091;
22472   t64326 = t1191 * t3818;
22473   t64345 = -0.24e2 * t49158 * t6612 - 0.12e2 * t49276 * t6612 + 0.54e2 * t20425 * t17810 - 0.648e3 * t61347 * t17801 - 0.24e2 * t16875 * t21061 - 0.24e2 * t16875 * t21064 + 0.2e1 * t21312 * t1284 * t428 + t6658 * t4183 * t428 - 0.9e1 / 0.50e2 * t1646 * t17884 - 0.60372695703703703704e0 * t17644 * t64320 * t64322 + 0.27167713066666666667e1 * t21318 * t64326 * t64322 + t5770 * t5442 / 0.5e1 - 0.62888224691358024691e-1 * t269 * t16688 * t1765 - 0.62888224691358024691e-1 * t3808 * t1586 * t1765 - 0.12577644938271604938e0 * t1097 * t5211 * t1765 + 0.20962741563786008230e0 * t21374 * t1676 - 0.27950322085048010973e0 * t6635 * t5476;
22474   t64366 = t5116 * t1590;
22475   t64382 = t52676 * t376;
22476   t64387 = -0.7776e4 * t16906 * t63873 - 0.1296e4 * t50352 * t21099 - 0.1296e4 * t50347 * t21099 - 0.27950322085048010973e0 * t6642 * t5476 - 0.62888224691358024691e-1 * t16267 * t330 * t1765 - 0.12577644938271604938e0 * t5114 * t1177 * t1765 - 0.62888224691358024691e-1 * t1530 * t3995 * t1765 + 0.84521773985185185182e-1 * t5753 * t46 * t61519 - 0.12577644938271604938e1 * t64366 * t5745 + t406 * t1291 * t64218 / 0.10e2 + 0.648e3 * t16895 * t21096 + 0.648e3 * t16898 * t21096 - 0.12e2 * t20369 * t17778 + 0.324e3 * t20425 * t17613 + 0.54e2 * t21389 * t16233 - 0.648e3 * t64382 * t16238 - 0.12e2 * t21386 * t16247;
22477   t64397 = t3810 * t21338;
22478   t64400 = t5211 * t332;
22479   t64401 = t1101 * t64400;
22480   t64408 = t16110 * t5741;
22481   t64411 = t5116 * t17866;
22482   t64428 = 0.324e3 * t21389 * t16251 + 0.54e2 * t5122 * t63633 + 0.2e1 * t5718 * t5383 + t17783 * t1641 + 0.75465869629629629630e0 * t64397 * t5745 + 0.75465869629629629630e0 * t64401 * t5745 + 0.37732934814814814815e0 * t5742 * t46 * t5743 * t16083 + 0.75465869629629629630e0 * t64408 * t5745 + 0.75465869629629629630e0 * t64411 * t5745 + 0.75465869629629629630e0 * t21441 * t17850 - 0.12577644938271604938e1 * t17845 * t21427 + 0.16770193251028806585e1 * t52991 * t6639 + t4184 * t6694 / 0.10e2 + t4093 * t6694 / 0.5e1 + t1244 * t21481 / 0.5e1 + t4091 * t6694 / 0.10e2;
22483   t64465 = -0.24e2 * t16870 * t21058 - 0.24e2 * t16870 * t21061 - 0.24e2 * t16870 * t21064 - 0.24e2 * t16875 * t21058 - 0.648e3 * t16906 * t63637 - 0.12e2 * t5130 * t63617 + 0.324e3 * t5122 * t63621 + t17822 * t1664 / 0.10e2 - 0.9e1 / 0.100e3 * t406 * t5778 * t16097 - 0.9e1 / 0.50e2 * t5770 * t5407 - 0.12e2 * t1101 * t16834 * t5710 - 0.9e1 / 0.50e2 * t5398 * t5779 - 0.12e2 * t5116 * t17651 - 0.1296e4 * t16906 * t63834 - 0.648e3 * t16906 * t63876 + 0.9720e4 * t49301 * t63852 + 0.20962741563786008230e0 * t21369 * t1676;
22484   t64498 = t269 * t6289;
22485   t64503 = 0.1080e4 * t5122 * t64121 - 0.1296e4 * t16906 * t63680 - 0.6e1 * t1101 * t48962 * t1751 - 0.12e2 * t3810 * t21464 + t5396 * t5807 / 0.5e1 + t16928 * t1786 / 0.10e2 + t16925 * t1786 / 0.5e1 + t16862 * t1786 / 0.10e2 + 0.20962741563786008230e0 * t21366 * t1676 + t64109 * t405 * t428 + 0.54e2 * t63724 * t3820 - 0.6e1 * t52348 * t1532 - 0.6e1 * t21214 * t3831 - 0.83850966255144032920e-1 * t52756 * t6645 - 0.35217405827160493826e-1 * t21339 * t17636 - 0.83850966255144032920e-1 * t64498 * t5754 + 0.25155289876543209876e-1 * t21398 * t17874;
22486   t64510 = t269 * t64400;
22487   t64540 = -0.9e1 / 0.100e3 * t4184 * t6665 - 0.6e1 * t5720 * t16305 - 0.83850966255144032920e-1 * t17877 * t21106 + 0.50310579753086419752e-1 * t64510 * t5754 + 0.11180128834019204389e0 * t52747 * t6645 - 0.12e2 * t63717 * t1103 + 0.54e2 * t50344 * t6624 - 0.12e2 * t20419 * t17778 + 0.324e3 * t20422 * t17613 + 0.108e3 * t59952 * t5727 - 0.24e2 * t16870 * t21067 - 0.9e1 / 0.50e2 * t1244 * t21323 - 0.9e1 / 0.50e2 * t1771 * t16918 - 0.12e2 * t1101 * t61136 * t1751 - 0.6e1 * t49034 * t1759 + 0.54e2 * t17602 * t16922 - 0.6e1 * t12309 * t6627;
22488   t64555 = t6728 * t4225;
22489   t64579 = -0.12e2 * t3810 * t21363 - 0.12e2 * t21214 * t3828 - 0.6e1 * t1101 * t5137 * t17583 - 0.6e1 * t12309 * t6632 - 0.24e2 * t61370 * t5713 + 0.171e3 / 0.1000e4 * t21496 * t64555 - 0.12e2 * t5130 * t63607 - 0.9e1 / 0.50e2 * t1244 * t21359 + 0.50310579753086419752e-1 * t17728 * t21106 + 0.50310579753086419752e-1 * t17880 * t21106 - 0.6e1 * t5116 * t17659 - 0.12e2 * t5116 * t17656 - 0.9e1 / 0.50e2 * t5768 * t5407 - 0.12e2 * t3810 * t21352 - 0.12e2 * t1101 * t3823 * t21125 - 0.12e2 * t3810 * t21446;
22490   t64588 = t406 * t39325;
22491   t64593 = t1530 * t1590;
22492   t64596 = t5114 * t5741;
22493   t64599 = t1530 * t17866;
22494   t64618 = t1285 * t21481 / 0.5e1 - 0.12e2 * t17587 * t5138 - 0.24e2 * t20369 * t17776 + 0.108e3 * t20425 * t17807 - 0.4959e4 / 0.10000e5 * t64588 * t63588 - 0.6e1 * t5720 * t16857 - 0.83850966255144032920e-1 * t64593 * t5754 + 0.50310579753086419752e-1 * t64596 * t5754 + 0.50310579753086419752e-1 * t64599 * t5754 - 0.24e2 * t61358 * t5713 - 0.30186347851851851852e0 * t52725 * t21227 - 0.30186347851851851852e0 * t52770 * t21227 - 0.30186347851851851852e0 * t17644 * t63898 - 0.15093173925925925926e0 * t17644 * t63902 + 0.15093173925925925926e1 * t52725 * t21230 + 0.15093173925925925926e1 * t52770 * t21230 + 0.15093173925925925926e1 * t17644 * t63781;
22495   t64624 = t12312 * t17643;
22496   t64627 = t3817 * t52769;
22497   t64634 = t12321 * t17643;
22498   t64639 = t52673 * t376;
22499   t64642 = t17602 * t1239;
22500   t64649 = t17587 * t376;
22501   t64652 = t5720 * t1239;
22502   t64661 = 0.75465869629629629630e0 * t17644 * t63784 - 0.20375784800000000001e2 * t21318 * t63787 - 0.67919282666666666668e1 * t64624 * t21233 - 0.67919282666666666668e1 * t64627 * t21233 - 0.67919282666666666668e1 * t21318 * t63794 - 0.33959641333333333334e1 * t21318 * t63797 + 0.40751569600000000001e2 * t64634 * t63800 + 0.21130443496296296296e0 * t17644 * t63604 + 0.108e3 * t64639 * t5124 + 0.108e3 * t64642 * t5124 - 0.24e2 * t21386 * t16244 + 0.108e3 * t21389 * t16230 - 0.24e2 * t64649 * t5109 - 0.24e2 * t64652 * t5109 + 0.108e3 * t59782 * t5727 - 0.6e1 * t5720 * t16843 + 0.171e3 / 0.500e3 * t21496 * t63598;
22503   t64676 = t12494 * t6693;
22504   t64701 = 0.25155289876543209876e-1 * t52722 * t6645 + 0.25155289876543209876e-1 * t5753 * t63863 - 0.35217405827160493826e-1 * t21398 * t17636 - 0.12e2 * t17587 * t5133 - 0.12e2 * t17587 * t5127 - 0.12e2 * t5720 * t16827 + 0.171e3 / 0.1000e4 * t1646 * t17671 + 0.171e3 / 0.1000e4 * t406 * t64676 * t4190 - 0.12e2 * t5720 * t16835 + 0.42260886992592592592e0 * t17644 * t3947 * t1540 * t17645 - 0.24e2 * t59779 * t5713 + t1646 * t17719 / 0.10e2 + t5398 * t5807 / 0.5e1 - 0.12e2 * t1101 * t16830 * t6609 + 0.171e3 / 0.500e3 * t21496 * t63691 - 0.9e1 / 0.50e2 * t5396 * t5779 + 0.108e3 * t16895 * t21047;
22505   t64704 = t21338 * t41;
22506   t64705 = t1101 * t64704;
22507   t64718 = t1097 * t21338;
22508   t64738 = t3817 * t5320;
22509   t64743 = -0.30186347851851851852e0 * t64705 * t17646 + 0.50310579753086419753e0 * t52773 * t21238 - 0.30186347851851851852e0 * t17644 * t63595 + 0.25155289876543209876e-1 * t21339 * t17874 + 0.25155289876543209876e-1 * t53032 * t6645 + 0.50310579753086419752e-1 * t53035 * t6645 + 0.50310579753086419752e-1 * t64718 * t5754 - 0.9e1 / 0.50e2 * t406 * t17883 * t5441 - 0.30186347851851851852e0 * t52725 * t21238 - 0.30186347851851851852e0 * t52770 * t21238 - 0.30186347851851851852e0 * t17644 * t63807 - 0.15093173925925925926e0 * t17644 * t63811 + 0.13583856533333333333e1 * t21318 * t63816 + 0.50310579753086419754e0 * t52773 * t21227 - 0.25155289876543209876e1 * t52773 * t21230 + 0.11319880444444444445e2 * t64738 * t21233 + 0.108e3 * t61361 * t5727;
22510   t64778 = -0.12e2 * t16110 * t5730 - 0.12e2 * t16110 * t5735 - 0.12e2 * t21214 * t3824 + 0.2e1 * t21135 * t1239 - 0.24e2 * t16875 * t21067 + 0.54e2 * t20422 * t17810 - 0.648e3 * t61125 * t17801 + 0.54e2 * t49123 * t6624 + 0.108e3 * t49126 * t6624 - 0.9e1 / 0.50e2 * t1285 * t21323 - 0.6e1 * t5116 * t17731 - 0.12e2 * t5720 * t16854 - 0.9e1 / 0.100e3 * t406 * t52861 * t1663 - 0.9e1 / 0.50e2 * t1285 * t21359 + t63944 * t376 - 0.83850966255144032920e-1 * t53028 * t6645 + 0.108e3 * t16895 * t21044;
22511   t64818 = 0.171e3 / 0.500e3 * t1285 * t12494 * t21244 + t1757 * t16824 + 0.20962741563786008230e0 * t21377 * t1676 - 0.6e1 * t1101 * t12905 * t6609 + 0.171e3 / 0.500e3 * t1244 * t12494 * t21244 - 0.24e2 * t20419 * t17776 + 0.108e3 * t20422 * t17807 + 0.108e3 * t61355 * t5727 + 0.108e3 * t16895 * t21071 - 0.24e2 * t61352 * t5713 - 0.12577644938271604938e1 * t52921 * t6639 - 0.12577644938271604938e1 * t53023 * t6639 + 0.37732934814814814815e0 * t52902 * t6639 + 0.75465869629629629630e0 * t17863 * t21427 + 0.75465869629629629630e0 * t17867 * t21427 - 0.70434811654320987652e-1 * t5753 * t46 * t61530 - 0.35217405827160493826e-1 * t5753 * t46 * t61533;
22512   t64850 = t5116 * t17643;
22513   t64854 = 0.11739135275720164609e0 * t17877 * t21423 - 0.70434811654320987652e-1 * t17728 * t21423 - 0.70434811654320987652e-1 * t17880 * t21423 + 0.108e3 * t16898 * t21047 + 0.54e2 * t5122 * t64023 + 0.54e2 * t5122 * t63776 + 0.108e3 * t5122 * t64020 + t17753 * t1664 / 0.10e2 + t5768 * t5442 / 0.5e1 - 0.9e1 / 0.100e3 * t6659 * t4191 + t17761 * t1664 / 0.5e1 + 0.108e3 * t16898 * t21071 - 0.24e2 * t5130 * t63614 + 0.108e3 * t5122 * t63630 - 0.9e1 / 0.100e3 * t406 * t21326 * t4225 - 0.30186347851851851852e0 * t64850 * t17646 + t6617 * t4079;
22514   t64866 = t48791 * t1785 / 0.10e2 + 0.648e3 * t16222 * t21096 + 0.648e3 * t16226 * t21096 + 0.1080e4 * t5453 * t64121 + 0.648e3 * t5453 * t64124 + 0.50310579753086419752e-1 * t21075 * t5754 - 0.1296e4 * t48852 * t21099 + t64131 * t1314 / 0.5e1 + t1342 * t64218 / 0.10e2 + t4275 * t21195 / 0.5e1 - p->cam_beta * (t64263 + t64299 + t64345 + t64387 + t64428 + t64465 + t64503 + t64540 + t64579 + t64618 + t64661 + t64701 + t64743 + t64778 + t64818 + t64854) - 0.12e2 * t1101 * t4240 * t21125 - 0.6e1 * t1101 * t1321 * t63927;
22515   t64898 = t12341 * t6693 / 0.10e2 + 0.75465869629629629630e0 * t17951 * t21036 + 0.37732934814814814815e0 * t5831 * t1764 * t16264 + 0.11739135275720164609e0 * t269 * t17954 * t5333 - 0.35217405827160493826e-1 * t21039 * t16785 + 0.171e3 / 0.1000e4 * t52595 * t16211 - 0.9e1 / 0.50e2 * t4278 * t21195 * t1314 - 0.9e1 / 0.50e2 * t12440 * t21259 - 0.9e1 / 0.50e2 * t52580 * t5494 - 0.6e1 * t5116 * t17584 - 0.6e1 * t12309 * t6707 - 0.12e2 * t5116 * t17592 - 0.9e1 / 0.50e2 * t16942 * t17630 - 0.9e1 / 0.50e2 * t12440 * t21093;
22516   t64923 = t16110 * t1763;
22517   t64932 = -0.9e1 / 0.50e2 * t4278 * t5806 * t5441 - 0.9e1 / 0.100e3 * t4278 * t17718 * t1663 - 0.9e1 / 0.100e3 * t4278 * t1785 * t16097 - 0.9e1 / 0.50e2 * t12440 * t21090 + 0.171e3 / 0.1000e4 * t50448 * t17597 - 0.9e1 / 0.100e3 * t4278 * t6693 * t4225 - 0.9e1 / 0.100e3 * t38019 * t6728 - 0.9e1 / 0.100e3 * t16942 * t17633 - 0.9e1 / 0.100e3 * t17929 * t16219 + 0.75465869629629629630e0 * t64923 * t5832 - 0.12577644938271604938e1 * t52494 * t6718 - 0.12577644938271604938e1 * t17955 * t21036 + 0.84521773985185185182e-1 * t21039 * t16802;
22518   t64947 = t1763 * t45;
22519   t64948 = t1101 * t64947;
22520   t64966 = 0.16770193251028806585e1 * t52498 * t6718 + 0.75465869629629629630e0 * t5831 * t1764 * t16260 + 0.75465869629629629630e0 * t21031 * t17958 + t17783 * t1680 + 0.171e3 / 0.1000e4 * t12495 * t64555 + t5489 * t17718 / 0.10e2 + t16200 * t5806 / 0.5e1 + 0.42260886992592592592e0 * t64948 * t19737 * t17645 - 0.9e1 / 0.50e2 * t17929 * t16216 - 0.9e1 / 0.50e2 * t50456 * t5846 - 0.12e2 * t1101 * t16193 * t6609 + 0.171e3 / 0.1000e4 * t12495 * t6693 * t4190 + 0.108e3 * t16226 * t21047 + 0.108e3 * t5453 * t64020;
22521   t64994 = 0.324e3 * t19822 * t17613 - 0.24e2 * t19818 * t17776 - 0.12e2 * t19818 * t17778 - 0.648e3 * t59635 * t17801 + 0.108e3 * t19822 * t17807 + 0.54e2 * t19822 * t17810 - 0.12e2 * t50500 * t6612 - 0.24e2 * t50503 * t6612 + 0.54e2 * t5453 * t64023 - 0.24e2 * t59678 * t5713 - 0.24e2 * t59684 * t5713 + 0.108e3 * t59681 * t5727 + 0.108e3 * t59687 * t5727;
22522   t65011 = t6658 * t4189;
22523   t65019 = t1190 * t261;
22524   t65023 = t3817 * t64947;
22525   t65024 = t1190 * t3818;
22526   t65028 = -0.24e2 * t16197 * t21058 - 0.24e2 * t16197 * t21061 - 0.24e2 * t16197 * t21064 - 0.12e2 * t50428 * t6612 - 0.24e2 * t16241 * t21058 - 0.24e2 * t16241 * t21061 - 0.24e2 * t16241 * t21064 - 0.12e2 * t5459 * t63930 - 0.9e1 / 0.100e3 * t65011 * t4190 - 0.12e2 * t5720 * t16194 + 0.2e1 * t5718 * t5486 + t1757 * t16169 - 0.60372695703703703704e0 * t64948 * t65019 * t64322 + 0.27167713066666666667e1 * t65023 * t65024 * t64322;
22527   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22528     v4rho2sigmatau[17] = -t63055 - 0.4e1 / 0.3e1 * t63319 - t63333 - t1352 * t3131 * t6733 * t3779 / 0.6e1 - t1352 * t2415 * t21505 * t1082 - t1352 * t2415 * t6733 * t3788 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t63626 + t63664 + t63694 + t63727 + t63757 + t63790 + t63833 + t63869 + t63907 + t64113 + t64866 + t64898 + t64932 + t64966 + t64994 + t65028);
22529 
22530   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22531     v4rho2lapl2[0] = 0.0e0;
22532 
22533   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22534     v4rho2lapl2[1] = 0.0e0;
22535 
22536   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22537     v4rho2lapl2[2] = 0.0e0;
22538 
22539   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22540     v4rho2lapl2[3] = 0.0e0;
22541 
22542   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22543     v4rho2lapl2[4] = 0.0e0;
22544 
22545   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22546     v4rho2lapl2[5] = 0.0e0;
22547 
22548   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22549     v4rho2lapl2[6] = 0.0e0;
22550 
22551   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22552     v4rho2lapl2[7] = 0.0e0;
22553 
22554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22555     v4rho2lapl2[8] = 0.0e0;
22556 
22557   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22558     v4rho2lapltau[0] = 0.0e0;
22559 
22560   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22561     v4rho2lapltau[1] = 0.0e0;
22562 
22563   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22564     v4rho2lapltau[2] = 0.0e0;
22565 
22566   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22567     v4rho2lapltau[3] = 0.0e0;
22568 
22569   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22570     v4rho2lapltau[4] = 0.0e0;
22571 
22572   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22573     v4rho2lapltau[5] = 0.0e0;
22574 
22575   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22576     v4rho2lapltau[6] = 0.0e0;
22577 
22578   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22579     v4rho2lapltau[7] = 0.0e0;
22580 
22581   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22582     v4rho2lapltau[8] = 0.0e0;
22583 
22584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22585     v4rho2lapltau[9] = 0.0e0;
22586 
22587   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22588     v4rho2lapltau[10] = 0.0e0;
22589 
22590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
22591     v4rho2lapltau[11] = 0.0e0;
22592 
22593   t65037 = t43020 * t6840 / 0.6e1;
22594   t65038 = t14520 * t21512;
22595   t65040 = t14520 * t21833;
22596   t65072 = t17032 * t17081;
22597   t65075 = t17065 * t17081;
22598   t65088 = my_piecewise3(t24, t1842 * t6740 / 0.2e1, 0);
22599   t65095 = -0.12e2 * t6983 * t6826 - 0.24e2 * t1855 * t21550 - 0.24e2 * t1855 * t21534 + 0.54e2 * t1862 * t27399 * t6737 + 0.216e3 * t20518 * t17059 + 0.216e3 * t14106 * t21642 + t2391 * t21706 / 0.5e1 - 0.12e2 * t478 * t27407 * t6737 + 0.10062115950617283950e0 * t21783 * t5558 + 0.1296e4 * t4654 * t65072 - 0.2592e4 * t13254 * t65075 + t51392 * t1727 / 0.5e1 - 0.6e1 * t478 * t7907 * t6743 - 0.12e2 * t478 * t2356 * t21525 - 0.6e1 * t478 * t738 * t65088 - 0.24e2 * t478 * t53243 * t6737;
22600   t65102 = t1928 * t1696 * t1882;
22601   t65105 = t1706 * t17042;
22602   t65108 = t1706 * t17046;
22603   t65111 = t1706 * t17033;
22604   t65116 = t1706 * t17059;
22605   t65119 = t1706 * t17062;
22606   t65122 = t1706 * t17066;
22607   t65131 = t25875 * t6737;
22608   t65132 = t65131 * t1839;
22609   t65135 = t1694 * t16987;
22610   t65138 = t6744 * t1845;
22611   t65141 = t21630 * t1845;
22612   t65144 = -0.12e2 * t478 * t53247 * t6737 - 0.6e1 * t6983 * t6829 + 0.42260886992592592593e0 * t5635 * t65102 + 0.30186347851851851852e1 * t5635 * t65105 + 0.15093173925925925926e1 * t5635 * t65108 - 0.40751569600000000000e2 * t17337 * t65111 - 0.13583856533333333333e2 * t51479 * t21608 - 0.13583856533333333333e2 * t17337 * t65116 - 0.67919282666666666667e1 * t17337 * t65119 + 0.81503139200000000000e2 * t51482 * t65122 + 0.10062115950617283950e1 * t17331 * t21602 - 0.50310579753086419753e1 * t17331 * t21605 - 0.60372695703703703702e0 * t21515 * t17284 + 0.9720e4 * t40416 * t65132 - 0.24e2 * t4660 * t65135 - 0.12e2 * t4660 * t65138 + 0.54e2 * t4654 * t65141;
22613   t65146 = t6996 * t6743;
22614   t65147 = t65146 * t1839;
22615   t65161 = t21638 * t1845;
22616   t65164 = t27335 * t6737;
22617   t65165 = t65164 * t1839;
22618   t65168 = t5530 * t16987;
22619   t65171 = t21645 * t1845;
22620   t65179 = t582 * t5519 * t506;
22621   t65183 = t582 * t1696 * t1911;
22622   t65192 = -0.648e3 * t13254 * t65147 - 0.24e2 * t20515 * t17046 + 0.648e3 * t20518 * t17033 + 0.108e3 * t20518 * t17062 - 0.1296e4 * t62713 * t17066 - 0.12577644938271604938e0 * t17092 * t114 * t124 + 0.324e3 * t4654 * t65161 - 0.7776e4 * t13254 * t65165 + 0.108e3 * t4654 * t65168 - 0.648e3 * t13254 * t65171 + 0.22639760888888888889e2 * t51471 * t21608 - 0.60372695703703703704e0 * t17071 * t21602 - 0.60372695703703703704e0 * t5635 * t65179 - 0.30186347851851851852e0 * t5635 * t65183 + 0.30186347851851851852e1 * t17071 * t21605 - 0.12e2 * t1855 * t21539 - 0.12e2 * t1855 * t21526;
22623   t65200 = t5510 * t5514;
22624   t65205 = t5514 * t5514;
22625   t65215 = t1845 * t6737;
22626   t65218 = t25 * t65205;
22627   t65221 = t1839 * t6743;
22628   t65223 = t21560 * t468;
22629   t65226 = t26 * t65088;
22630   t65228 = 0.4e1 * t1693 * t16987 + 0.2e1 * t1845 * t6743 + 0.4e1 * t468 * t21525 + 0.2e1 * t25 * t65088 + 0.36e2 * t65135 + 0.18e2 * t65138 + 0.72e2 * t65200 + 0.4e1 * t65205 + 0.18e2 * t65215 + 0.36e2 * t65218 + 0.18e2 * t65221 + 0.36e2 * t65223 + 0.9e1 * t65226;
22631   t65229 = t65228 * t32;
22632   t65238 = t1863 * t21525;
22633   t65239 = t65238 * t468;
22634   t65250 = 0.24e2 * t1855 * t21566 - 0.54e2 * t1862 * t65141 - 0.108e3 * t1862 * t65239 + 0.2592e4 * t20701 * t65200 - 0.1296e4 * t20704 * t65200 - 0.108e3 * t6986 * t21631 + 0.24e2 * t478 * t65135 + 0.12e2 * t478 * t65138 + 0.48e2 * t478 * t65200 + 0.24e2 * t478 * t65223 + 0.648e3 * t6995 * t65147 - t65229;
22635   t65267 = t21570 * t477;
22636   t65272 = t6750 * t1861;
22637   t65277 = 0.12e2 * t50736 * t1696 + 0.48e2 * t17025 * t5517 + 0.48e2 * t5524 * t17042 + 0.24e2 * t5524 * t17046 - 0.216e3 * t17102 * t17059 - 0.108e3 * t17102 * t17062 + 0.1296e4 * t50722 * t17066 + 0.24e2 * t5524 * t17085 + 0.6e1 * t21529 * t1850 - 0.54e2 * t65272 * t2158 + 0.12e2 * t65267 * t471 - 0.216e3 * t50745 * t5531;
22638   t65304 = -0.108e3 * t1862 * t1863 * t65205 + 0.24e2 * t17025 * t5519 + 0.12e2 * t5524 * t17089 + 0.24e2 * t1855 * t21562 + 0.12e2 * t1855 * t21568 - 0.54e2 * t25801 * t6773 + 0.12e2 * t478 * t65215 + 0.24e2 * t478 * t65218 + 0.12e2 * t478 * t65221 + 0.6e1 * t478 * t65226 + 0.12e2 * t6983 * t6746 + 0.6e1 * t6983 * t6748;
22639   t65307 = t27 * t6743;
22640   t65308 = t65307 * t1839;
22641   t65316 = t26 * t6737 * t1839;
22642   t65335 = -0.648e3 * t17102 * t17033 + 0.12e2 * t21529 * t1848 + 0.48e2 * t1855 * t21564 - 0.324e3 * t1862 * t65161 - 0.108e3 * t1862 * t65168 - 0.324e3 * t1862 * t65308 - 0.1080e4 * t1862 * t65316 - 0.648e3 * t6986 * t21639 - 0.216e3 * t6986 * t21642 + 0.1296e4 * t27298 * t21646 - 0.9720e4 * t25874 * t65132 + 0.7776e4 * t6995 * t65165 + 0.648e3 * t6995 * t65171;
22643   t65337 = t65250 + t65277 + t65304 + t65335;
22644   t65365 = -0.12e2 * t21529 * t2361 - 0.9e1 / 0.25e2 * t7894 * t21817 + 0.171e3 / 0.1000e4 * t7915 * t6785 * t2341 + t65337 * t230 - 0.48e2 * t62737 * t5517 + 0.216e3 * t62703 * t5531 - 0.48e2 * t62740 * t5517 + 0.648e3 * t14109 * t21639 + 0.216e3 * t14109 * t21642 - 0.1296e4 * t40476 * t21646 - 0.48e2 * t14097 * t21564 + 0.648e3 * t14106 * t21639 - 0.48e2 * t13261 * t21564 - 0.48e2 * t4660 * t65200 + 0.1080e4 * t4654 * t65316 - 0.24e2 * t14097 * t21566 + 0.108e3 * t14106 * t21631;
22645   t65386 = t5650 * t5610;
22646   t65405 = -0.24e2 * t13261 * t21566 + 0.108e3 * t14109 * t21631 - 0.24e2 * t4660 * t65223 + 0.108e3 * t4654 * t65239 + 0.216e3 * t62706 * t5531 - 0.48e2 * t20515 * t17042 + t5645 * t17014 / 0.5e1 - 0.24e2 * t478 * t2360 * t65205 + t65229 * t244 + 0.171e3 / 0.250e3 * t7915 * t65386 - 0.1296e4 * t40403 * t21646 - 0.9e1 / 0.25e2 * t51367 * t5650 - 0.9e1 / 0.100e3 * t2394 * t6808 * t2341 - 0.9e1 / 0.50e2 * t2394 * t1727 * t17014 + 0.54e2 * t65272 * t2353 - 0.12e2 * t50736 * t1734 - 0.12e2 * t65267 * t739;
22647   t65414 = t1693 * t506 * t468;
22648   t65465 = -0.7776e4 * t13333 * t65165 + 0.216e3 * t13339 * t21642 + 0.216e3 * t13326 * t21642 + 0.75465869629629629630e0 * t51264 * t6762 + 0.41925483127572016460e0 * t21657 * t1508 - 0.55900644170096021947e0 * t6755 * t4677 + 0.41925483127572016460e0 * t21660 * t1508 + 0.108e3 * t1862 * t1864 * t65205 - 0.2592e4 * t13333 * t65075 + t6751 * t2154 + 0.108e3 * t4316 * t65168 - 0.1296e4 * t41007 * t21646 - 0.1296e4 * t40996 * t21646 - 0.24e2 * t13336 * t21566 - 0.24e2 * t13344 * t21566 - 0.648e3 * t13333 * t65171 + 0.9720e4 * t42157 * t65132 - 0.48e2 * t13336 * t21564 - 0.48e2 * t13344 * t21564 - 0.48e2 * t4324 * t65200;
22649   t65468 = t5524 * t1422;
22650   t65477 = t17102 * t5545;
22651   t65514 = -0.24e2 * t4324 * t65135 - 0.25155289876543209876e1 * t65468 * t5549 + 0.15093173925925925926e1 * t21756 * t17227 + 0.33540386502057613168e1 * t51194 * t6762 + 0.75465869629629629628e0 * t21756 * t17237 - 0.67919282666666666665e1 * t65477 * t17245 - 0.12577644938271604938e0 * t1699 * t2064 * t1707 + 0.15093173925925925926e1 * t17233 * t21762 + 0.75465869629629629630e0 * t5546 * t46 * t5547 * t16987 + 0.75465869629629629630e0 * t51260 * t6762 + 0.15093173925925925926e1 * t51146 * t6762 + 0.324e3 * t4316 * t65308 + 0.108e3 * t13339 * t21631 + 0.108e3 * t13326 * t21631 + 0.108e3 * t4316 * t65239 + 0.54e2 * t4316 * t65141 - 0.648e3 * t13333 * t65147 - 0.48e2 * t61931 * t5517 + 0.15093173925925925926e1 * t5546 * t46 * t62572 * t1693 - 0.24e2 * t478 * t1872 * t65205;
22652   t65528 = t17025 * t5545;
22653   t65531 = t5524 * t17212;
22654   t65534 = t5610 * t5610;
22655   t65557 = t1699 * t1422;
22656   t65562 = -0.24e2 * t5524 * t17202 + 0.171e3 / 0.250e3 * t20773 * t65386 + 0.15093173925925925926e1 * t17230 * t21762 - 0.25155289876543209876e1 * t51185 * t6762 - 0.25155289876543209876e1 * t51177 * t6762 - 0.25155289876543209876e1 * t17248 * t21762 + 0.15093173925925925926e1 * t65528 * t5549 + 0.15093173925925925926e1 * t65531 * t5549 - 0.9e1 / 0.50e2 * t208 * t2305 * t65534 - 0.12e2 * t21529 * t1873 - 0.12e2 * t1855 * t21593 - 0.6e1 * t6983 * t6768 - 0.12e2 * t478 * t55108 * t6737 - 0.6e1 * t478 * t7377 * t6743 + 0.2e1 * t21571 * t633 + t65337 * t207 * t230 - 0.12e2 * t1855 * t21586 + t65229 * t160 - 0.16770193251028806584e0 * t65557 * t5558 - 0.9e1 / 0.100e3 * t6781 * t2307;
22657   t65588 = t5524 * t17281;
22658   t65607 = -0.9e1 / 0.25e2 * t702 * t21615 + 0.171e3 / 0.500e3 * t638 * t21625 - 0.12074539140740740741e1 * t17282 * t62565 * t65414 + 0.54335426133333333334e1 * t20762 * t62405 * t65414 + t2166 * t6809 / 0.10e2 - 0.9e1 / 0.50e2 * t638 * t21619 - 0.12e2 * t478 * t13365 * t6743 + 0.1080e4 * t4316 * t65316 + 0.648e3 * t13326 * t21639 + 0.324e3 * t4316 * t65161 - 0.9e1 / 0.25e2 * t5572 * t5583 - 0.60372695703703703702e0 * t65588 * t17284 + 0.10062115950617283950e1 * t51096 * t21602 - 0.50310579753086419753e1 * t51096 * t21605 + 0.22639760888888888889e2 * t61864 * t21608 + 0.42260886992592592593e0 * t17282 * t65102 - 0.60372695703703703704e0 * t50951 * t21602 - 0.60372695703703703704e0 * t51105 * t21602 - 0.60372695703703703704e0 * t17282 * t65179 - 0.30186347851851851852e0 * t17282 * t65183;
22659   t65630 = t1699 * t17212;
22660   t65633 = t5522 * t5545;
22661   t65636 = t2305 * t21706;
22662   t65655 = 0.30186347851851851852e1 * t50951 * t21605 + 0.30186347851851851852e1 * t51105 * t21605 + 0.30186347851851851852e1 * t17282 * t65105 + 0.15093173925925925926e1 * t17282 * t65108 - 0.40751569600000000000e2 * t20762 * t65111 - 0.13583856533333333333e2 * t62229 * t21608 - 0.13583856533333333333e2 * t62340 * t21608 - 0.13583856533333333333e2 * t20762 * t65116 - 0.67919282666666666667e1 * t20762 * t65119 + 0.81503139200000000000e2 * t62318 * t65122 + 0.10062115950617283950e0 * t65630 * t5558 + 0.10062115950617283950e0 * t65633 * t5558 - 0.9e1 / 0.50e2 * t208 * t65636 * t731 - 0.9e1 / 0.50e2 * t702 * t21619 - 0.9e1 / 0.25e2 * t5574 * t5583 - 0.12e2 * t5524 * t17292 - 0.24e2 * t5524 * t17287 - 0.24e2 * t17025 * t5534 - 0.24e2 * t17025 * t5539 + 0.2e1 * t21751 * t701 * t230;
22663   t65700 = t6780 * t2299 * t230 - 0.12577644938271604938e0 * t17092 * t112 * t1707 - 0.25155289876543209876e0 * t5522 * t568 * t1707 - 0.24e2 * t478 * t55166 * t6737 - 0.48e2 * t61915 * t5517 - 0.48e2 * t20734 * t17042 - 0.24e2 * t20734 * t17046 + 0.648e3 * t20737 * t17033 + 0.216e3 * t61925 * t5531 + t17174 * t1728 / 0.5e1 + t21716 * t732 / 0.5e1 + t6781 * t2342 / 0.10e2 + t2168 * t6809 / 0.5e1 + 0.50310579753086419752e-1 * t21612 * t17162 - 0.9e1 / 0.50e2 * t1713 * t17297 - 0.6e1 * t478 * t479 * t65088 - 0.12e2 * t50736 * t1701 - 0.12e2 * t21529 * t1869 - 0.6e1 * t21529 * t1876 + 0.54e2 * t65272 * t1865;
22664   t65738 = t7029 * t6808;
22665   t65742 = t26764 * t6785;
22666   t65750 = 0.108e3 * t6986 * t21598 - 0.70434811654320987653e-1 * t21612 * t17188 - 0.24e2 * t1855 * t21654 - 0.12e2 * t478 * t25932 * t6737 + 0.54e2 * t25801 * t6758 + 0.54e2 * t1862 * t25912 * t6737 - 0.12e2 * t478 * t1868 * t21525 - 0.24e2 * t1855 * t21651 - 0.12e2 * t65267 * t480 + t21752 * t732 / 0.5e1 + 0.216e3 * t61928 * t5531 + 0.216e3 * t20737 * t17059 + 0.108e3 * t20737 * t17062 - 0.1296e4 * t62538 * t17066 + 0.648e3 * t13339 * t21639 - 0.9e1 / 0.100e3 * t208 * t21618 * t2341 + 0.171e3 / 0.1000e4 * t208 * t65738 * t2306 - 0.4959e4 / 0.10000e5 * t208 * t65742 * t2306 + 0.171e3 / 0.500e3 * t1713 * t17206 - 0.9e1 / 0.25e2 * t638 * t21615;
22667   t65792 = 0.292e3 / 0.135e3 * t2323 * t6737 - 0.146e3 / 0.135e3 * t2323 * t6743 * t226 - 0.292e3 / 0.135e3 * t720 * t21525 * t226 + 0.584e3 / 0.135e3 * t21690 * t468 - 0.146e3 / 0.135e3 * t222 * t65088 * t226 + 0.584e3 / 0.135e3 * t21693 * t468 + 0.292e3 / 0.135e3 * t6801 * t1845 + 0.1168e4 / 0.135e3 * t5598 * t5514 + 0.584e3 / 0.135e3 * t222 * t65205 + 0.584e3 / 0.135e3 * t1722 * t16987 + 0.146e3 / 0.135e3 * t2326 * t6743;
22668   t65816 = 0.292e3 / 0.135e3 * t723 * t21525 + 0.146e3 / 0.135e3 * t225 * t65088 - 0.73e2 / 0.135e3 * t1705 * t45 * t16987 * t226 + 0.292e3 / 0.135e3 * t1705 * t21679 * t468 + 0.146e3 / 0.135e3 * t1705 * t6794 * t1845 + 0.73e2 / 0.135e3 * t1705 * t1718 * t16987 - 0.584e3 / 0.243e3 * t20541 + 0.584e3 / 0.243e3 * t20568 + 0.949e3 / 0.729e3 * t5891 + 0.146e3 / 0.81e2 * t20545 - 0.292e3 / 0.81e2 * t20548 - 0.146e3 / 0.81e2 * t20571;
22669   t65817 = t65792 + t65816;
22670   t65848 = -0.9e1 / 0.25e2 * t1713 * t17301 - 0.24e2 * t4324 * t65223 - 0.12e2 * t4324 * t65138 + 0.2e1 / 0.5e1 * t5574 * t5611 + t702 * t21707 / 0.5e1 + t2300 * t6809 / 0.10e2 + t638 * t21707 / 0.5e1 - 0.9e1 / 0.100e3 * t2166 * t6786 - 0.9e1 / 0.50e2 * t2168 * t6786 + 0.1296e4 * t4316 * t65072 - 0.12e2 * t5524 * t17273;
22671   t65872 = -0.12e2 * t21529 * t2357 - 0.6e1 * t21529 * t2364 - 0.4959e4 / 0.10000e5 * t27492 * t6785 * t2306 - 0.12074539140740740741e1 * t62754 * t62758 * t65414 + 0.54335426133333333334e1 * t62762 * t62763 * t65414 + 0.108e3 * t6986 * t21544 - 0.9e1 / 0.25e2 * t17157 * t17350 - p->cam_beta * (t65465 + t65514 + t65562 + t65607 + t65655 + t65700 + t65750 - 0.9e1 / 0.100e3 * t2300 * t6786 + 0.171e3 / 0.500e3 * t702 * t21625 - 0.9e1 / 0.50e2 * t208 * t5582 * t17014 - 0.12e2 * t6983 * t6765 + 0.171e3 / 0.1000e4 * t208 * t21624 * t2341 + t17160 * t1728 / 0.5e1 + 0.2e1 / 0.5e1 * t17171 * t1728 + t208 * t708 * t65817 / 0.10e2 + t1713 * t17180 / 0.5e1 + 0.2e1 / 0.5e1 * t5572 * t5611 + t65848) - 0.24e2 * t5524 * t17019 - 0.12e2 * t5524 * t17022 + 0.54e2 * t25801 * t6820 - 0.12e2 * t5524 * t17119 - 0.24e2 * t17025 * t5624 - 0.24e2 * t17025 * t5629 + 0.171e3 / 0.500e3 * t51364 * t17099 + t21553 * t2341 / 0.10e2 + 0.2e1 / 0.5e1 * t17111 * t5610;
22672   t65888 = t21751 * t708;
22673   t65912 = -0.55900644170096021947e0 * t1699 * t496 * t124 - 0.9e1 / 0.50e2 * t7894 * t21814 - 0.9e1 / 0.50e2 * t17157 * t17347 + 0.171e3 / 0.500e3 * t27414 * t21811 - 0.9e1 / 0.50e2 * t2394 * t21706 * t731 - 0.9e1 / 0.50e2 * t2394 * t65534 + t65888 * t731 / 0.5e1 - 0.9e1 / 0.100e3 * t27431 * t6785 + t7854 * t6808 / 0.10e2 + 0.2e1 * t21571 * t756 + t6751 * t2388 + 0.15093173925925925926e1 * t5635 * t1706 * t17085 + 0.33540386502057613168e1 * t51459 * t6823 - 0.25155289876543209876e1 * t51464 * t6823 - 0.25155289876543209876e1 * t17331 * t21520 + 0.15093173925925925926e1 * t17071 * t21520 + 0.75465869629629629630e0 * t5635 * t1706 * t17089;
22674   t65913 = t5524 * t17330;
22675   t65918 = t17102 * t1705;
22676   t65923 = t17025 * t1705;
22677   t65936 = t6780 * t2305;
22678   t65955 = -0.25155289876543209876e1 * t65913 * t5636 + 0.75465869629629629628e0 * t21515 * t17074 - 0.67919282666666666665e1 * t65918 * t17338 + 0.75465869629629629630e0 * t51489 * t6823 + 0.15093173925925925926e1 * t65923 * t5636 + 0.15093173925925925926e1 * t21515 * t17334 - 0.12e2 * t478 * t13204 * t6743 + 0.108e3 * t1862 * t2352 * t65205 - 0.24e2 * t5524 * t17116 - 0.9e1 / 0.100e3 * t65936 * t2306 + t759 * t65817 / 0.10e2 + 0.324e3 * t4654 * t65308 + 0.41925483127572016460e0 * t5522 * t51 * t124 + 0.171e3 / 0.1000e4 * t7915 * t6808 * t2306 - 0.70434811654320987653e-1 * t6817 * t17188 - 0.16770193251028806584e0 * t21820 * t5558 + 0.50310579753086419752e-1 * t6817 * t17162;
22679   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22680     v4rho2tau2[0] = -t65037 - 0.4e1 / 0.3e1 * t65038 - t65040 - t1352 * t2753 * t6839 * t1812 / 0.6e1 - t1352 * t2774 * t21832 * t455 - t1352 * t2774 * t6839 * t1827 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t65095 + t65144 + t65192 + t65365 + t65405 + t65872 + t65912 + t65955);
22681 
22682   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22683     v4rho2tau2[1] = 0.0e0;
22684 
22685   t65963 = t43020 * t6946 / 0.6e1;
22686   t65964 = t14520 * t21839;
22687   t65966 = t14520 * t21869;
22688   t66003 = t6857 * t2618 - 0.12e2 * t5720 * t17379 - 0.12577644938271604938e0 * t1757 * t2537 * t1765 + 0.54e2 * t3817 * t31302 * t6843 + 0.75465869629629629630e0 * t51847 * t6868 - 0.12e2 * t1101 * t31310 * t6843 - 0.6e1 * t1101 * t9497 * t6849 + t6886 * t2743 * t428 + t17385 * t1786 / 0.5e1 - 0.9e1 / 0.100e3 * t2744 * t6892 + t2744 * t6915 / 0.10e2;
22689   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22690     v4rho2tau2[2] = -t65963 - 0.4e1 / 0.3e1 * t65964 + t65966 - t1352 * t3131 * t6945 * t2406 / 0.6e1 + t14133 * t14134 * t21867 * t767 - t1352 * t2415 * t6945 * t2421 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * t66003;
22691 
22692   t66010 = t14520 * t21873;
22693   t66024 = t14520 * t21903;
22694   t66057 = -0.12e2 * t478 * t56206 * t6737 + 0.20962741563786008230e0 * t21879 * t1508 + t2989 * t6809 / 0.10e2 + t3122 * t6809 / 0.10e2 - 0.9e1 / 0.100e3 * t2989 * t6786 - 0.6e1 * t478 * t2784 * t21525 - 0.9e1 / 0.50e2 * t5693 * t5583 - 0.12e2 * t5524 * t17424 - 0.6e1 * t478 * t8705 * t6743 - 0.12e2 * t1855 * t21887 + t1075 * t21707 / 0.10e2 + 0.75465869629629629630e0 * t51673 * t6762;
22695   t66065 = t5524 * t17435;
22696   t66082 = 0.75465869629629629630e0 * t51677 * t6762 + t6780 * t3121 * t230 + t6751 * t2987 - 0.6e1 * t1855 * t21890 + 0.75465869629629629628e0 * t66065 * t5549 + t17447 * t1728 / 0.5e1 + t17449 * t1728 / 0.5e1 - 0.9e1 / 0.100e3 * t3122 * t6786 + t21893 * t732 / 0.10e2 + 0.54e2 * t14550 * t21631 - 0.12e2 * t14556 * t21566 + t5693 * t5611 / 0.5e1;
22697   t66096 = t1699 * t17435;
22698   t66109 = -0.30186347851851851852e0 * t51751 * t21602 + 0.15093173925925925926e1 * t51751 * t21605 - 0.67919282666666666667e1 * t63142 * t21608 - 0.12e2 * t5524 * t17429 - 0.9e1 / 0.100e3 * t1075 * t21619 - 0.12e2 * t17025 * t5687 + 0.50310579753086419752e-1 * t66096 * t5558 - 0.24e2 * t63163 * t5517 + 0.108e3 * t63241 * t5531 + 0.324e3 * t14550 * t21639 + 0.108e3 * t14550 * t21642 - 0.648e3 * t44308 * t21646;
22699   t66139 = -0.24e2 * t14556 * t21564 - 0.12577644938271604938e1 * t51668 * t6762 + 0.75465869629629629630e0 * t17436 * t21762 - 0.12577644938271604938e0 * t5522 * t993 * t1707 - 0.12577644938271604938e0 * t1699 * t2897 * t1707 + t21751 * t1074 * t230 + 0.54e2 * t1862 * t27726 * t6737 - 0.6e1 * t21529 * t2785 + 0.171e3 / 0.1000e4 * t1075 * t21625 - 0.9e1 / 0.50e2 * t1075 * t21615 - 0.12e2 * t478 * t27718 * t6737 + 0.54e2 * t6986 * t21882 + t21571 * t1034;
22700   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22701     v4rho2tau2[3] = -t65037 - 0.2e1 / 0.3e1 * t65038 - t65040 / 0.2e1 - 0.2e1 / 0.3e1 * t66010 - t14133 * t1810 * t6839 * t2756 / 0.6e1 - t1352 * t2774 * t21832 * t944 / 0.2e1 - t14532 * t2774 * t6839 * t9 / 0.2e1 + t66024 / 0.2e1 + t14133 * t14539 * t21901 * t455 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t66057 + t66082 + t66109 + t66139);
22702 
22703   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22704     v4rho2tau2[4] = 0.0e0;
22705 
22706   t66148 = t14520 * t21907;
22707   t66162 = t14520 * t22228;
22708   t66188 = t1757 * t17507;
22709   t66193 = -0.12e2 * t15118 * t21958 + 0.54e2 * t15112 * t21962 - 0.24e2 * t63478 * t5713 + 0.108e3 * t63511 * t5727 - 0.24e2 * t15118 * t21955 - 0.648e3 * t46838 * t21952 + 0.324e3 * t15112 * t21945 + 0.108e3 * t15112 * t21948 + 0.75465869629629629630e0 * t52170 * t6868 + 0.75465869629629629630e0 * t52166 * t6868 + 0.50310579753086419752e-1 * t66188 * t5754 + 0.75465869629629629630e0 * t17508 * t22177;
22710   t66221 = 0.54e2 * t3817 * t37899 * t6843 + 0.54e2 * t12312 * t21848 - 0.6e1 * t3810 * t21856 - 0.12e2 * t1101 * t57463 * t6843 - 0.9e1 / 0.50e2 * t5673 * t5779 - 0.9e1 / 0.100e3 * t934 * t21997 - 0.9e1 / 0.50e2 * t934 * t22006 + t6886 * t3493 * t428 + t22154 * t933 * t428 - 0.12e2 * t1101 * t37894 * t6843 - 0.12e2 * t3810 * t21853 - 0.6e1 * t21965 * t3161;
22711   t66227 = t5720 * t17507;
22712   t66249 = -0.12e2 * t5720 * t17496 - 0.12577644938271604938e1 * t52190 * t6868 + 0.75465869629629629628e0 * t66227 * t5745 + t21992 * t875 + t6857 * t3365 - 0.12577644938271604938e0 * t1757 * t3275 * t1765 - 0.12577644938271604938e0 * t5718 * t831 * t1765 + 0.171e3 / 0.1000e4 * t934 * t22003 - 0.6e1 * t1101 * t3160 * t21937 - 0.12e2 * t17587 * t5667 - 0.12e2 * t5720 * t17501 + t934 * t22110 / 0.10e2;
22713   t66277 = -0.30186347851851851852e0 * t52084 * t22061 + 0.15093173925925925926e1 * t52084 * t22064 - 0.67919282666666666667e1 * t63499 * t22067 + t3494 * t6915 / 0.10e2 + t3367 * t6915 / 0.10e2 + 0.20962741563786008230e0 * t21845 * t1676 + t17519 * t1786 / 0.5e1 - 0.9e1 / 0.100e3 * t3494 * t6892 + t21859 * t1315 / 0.10e2 - 0.9e1 / 0.100e3 * t3367 * t6892 + t5673 * t5807 / 0.5e1 + t17521 * t1786 / 0.5e1 - 0.6e1 * t1101 * t10331 * t6849;
22714   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22715     v4rho2tau2[5] = -t65963 - 0.2e1 / 0.3e1 * t65964 + t65966 / 0.2e1 - 0.2e1 / 0.3e1 * t66148 - t14133 * t2404 * t6945 * t3134 / 0.6e1 + t14133 * t14134 * t21867 * t1082 / 0.2e1 + t14532 * t2415 * t6945 * t9 / 0.2e1 - t66162 / 0.2e1 - t1352 * t2415 * t22227 * t767 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t66193 + t66221 + t66249 + t66277);
22716 
22717   t66321 = t6751 * t3684 - 0.12e2 * t5524 * t17551 - 0.12577644938271604938e0 * t1699 * t3609 * t1707 + 0.54e2 * t1862 * t33105 * t6737 + 0.75465869629629629630e0 * t51982 * t6762 - 0.12e2 * t478 * t33113 * t6737 - 0.6e1 * t478 * t11098 * t6743 + t6780 * t3771 * t230 + t17557 * t1728 / 0.5e1 - 0.9e1 / 0.100e3 * t3772 * t6786 + t3772 * t6809 / 0.10e2;
22718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22719     v4rho2tau2[6] = -t65037 - 0.4e1 / 0.3e1 * t66010 + t66024 - t1352 * t2753 * t6839 * t3507 / 0.6e1 + t14133 * t14539 * t21901 * t944 - t1352 * t2774 * t6839 * t3516 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * t66321;
22720 
22721   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22722     v4rho2tau2[7] = 0.0e0;
22723 
22724   t66338 = t1764 * t17807;
22725   t66350 = t1191 * t1754 * t3853;
22726   t66353 = t1764 * t17778;
22727   t66356 = t1764 * t17613;
22728   t66359 = t1764 * t17810;
22729   t66362 = t1764 * t17801;
22730   t66365 = t5710 * t5710;
22731   t66378 = my_piecewise3(t260, t3797 * t6846 / 0.2e1, 0);
22732   t66381 = t3800 * t6843;
22733   t66383 = t5706 * t5710;
22734   t66385 = t261 * t66365;
22735   t66387 = t1752 * t17583;
22736   t66389 = t3794 * t6849;
22737   t66391 = t21983 * t1091;
22738   t66393 = t6850 * t3800;
22739   t66395 = t262 * t66378;
22740   t66397 = 0.4e1 * t1091 * t21937 + 0.4e1 * t1751 * t17583 + 0.2e1 * t261 * t66378 + 0.2e1 * t3800 * t6849 + 0.4e1 * t66365 + 0.18e2 * t66381 + 0.72e2 * t66383 + 0.36e2 * t66385 + 0.36e2 * t66387 + 0.18e2 * t66389 + 0.36e2 * t66391 + 0.18e2 * t66393 + 0.9e1 * t66395;
22741   t66398 = t66397 * t268;
22742   t66406 = t21991 * t1100;
22743   t66409 = -0.13583856533333333333e2 * t17947 * t66338 - 0.60372695703703703702e0 * t21925 * t17646 + 0.10062115950617283950e1 * t17955 * t22061 - 0.50310579753086419753e1 * t17955 * t22064 + 0.22639760888888888889e2 * t52519 * t22067 - 0.30186347851851851852e0 * t5831 * t66350 + 0.15093173925925925926e1 * t5831 * t66353 - 0.40751569600000000000e2 * t17947 * t66356 - 0.67919282666666666667e1 * t17947 * t66359 + 0.81503139200000000000e2 * t52512 * t66362 + 0.108e3 * t3817 * t4236 * t66365 + t66398 * t441 + t22207 * t4225 / 0.10e2 + t52577 * t1785 / 0.5e1 + t5841 * t17718 / 0.5e1 - 0.12e2 * t66406 * t1322;
22744   t66424 = t5720 * t17954;
22745   t66434 = t17587 * t1763;
22746   t66439 = t17602 * t1763;
22747   t66450 = -0.12e2 * t21965 * t4241 - 0.6e1 * t12309 * t6935 - 0.24e2 * t1101 * t61455 * t6843 - 0.12e2 * t1101 * t61459 * t6843 - 0.25155289876543209876e1 * t52494 * t6929 - 0.25155289876543209876e1 * t17955 * t21922 - 0.25155289876543209876e1 * t66424 * t5832 + 0.75465869629629629630e0 * t52516 * t6929 + 0.15093173925925925926e1 * t17951 * t21922 + 0.75465869629629629630e0 * t5831 * t1764 * t17780 + 0.15093173925925925926e1 * t66434 * t5832 + 0.75465869629629629628e0 * t21925 * t17944 - 0.67919282666666666665e1 * t66439 * t17948 - 0.24e2 * t5720 * t17578 - 0.12e2 * t5720 * t17584 + 0.54e2 * t38196 * t6926 + 0.108e3 * t12312 * t22187;
22748   t66454 = t6886 * t4189;
22749   t66486 = 0.292e3 / 0.135e3 * t4207 * t6843 - 0.146e3 / 0.135e3 * t4207 * t6849 * t424 - 0.292e3 / 0.135e3 * t1303 * t21937 * t424 + 0.584e3 / 0.135e3 * t22093 * t1091 - 0.146e3 / 0.135e3 * t420 * t66378 * t424 + 0.584e3 / 0.135e3 * t22096 * t1091 + 0.292e3 / 0.135e3 * t6907 * t3800 + 0.1168e4 / 0.135e3 * t5794 * t5710 + 0.584e3 / 0.135e3 * t420 * t66365 + 0.584e3 / 0.135e3 * t1780 * t17583 + 0.146e3 / 0.135e3 * t4210 * t6849;
22750   t66510 = 0.292e3 / 0.135e3 * t1306 * t21937 + 0.146e3 / 0.135e3 * t423 * t66378 - 0.584e3 / 0.243e3 * t21162 + 0.584e3 / 0.243e3 * t21186 + 0.949e3 / 0.729e3 * t6199 + 0.146e3 / 0.81e2 * t21166 - 0.292e3 / 0.81e2 * t21169 - 0.146e3 / 0.81e2 * t21189 - 0.73e2 / 0.135e3 * t1763 * t45 * t17583 * t424 + 0.292e3 / 0.135e3 * t1763 * t22082 * t1091 + 0.146e3 / 0.135e3 * t1763 * t6900 * t3800 + 0.73e2 / 0.135e3 * t1763 * t1776 * t17583;
22751   t66511 = t66486 + t66510;
22752   t66534 = t6856 * t3816;
22753   t66539 = -0.12e2 * t5720 * t17627 - 0.9e1 / 0.100e3 * t66454 * t4190 + t12341 * t6914 / 0.10e2 + t4275 * t22109 / 0.5e1 + t1342 * t66511 / 0.10e2 - 0.9e1 / 0.100e3 * t38019 * t6891 - 0.48e2 * t63643 * t5713 - 0.48e2 * t63646 * t5713 - 0.48e2 * t21078 * t17776 - 0.24e2 * t21078 * t17778 + 0.648e3 * t21081 * t17613 - 0.24e2 * t17587 * t5820 - 0.24e2 * t17587 * t5825 - 0.12e2 * t21965 * t4245 - 0.6e1 * t21965 * t4248 + 0.54e2 * t66534 * t4237 - 0.12e2 * t52348 * t1792;
22754   t66541 = t3947 * t1754 * t3837;
22755   t66561 = t3818 * t21937;
22756   t66562 = t66561 * t1091;
22757   t66565 = t21961 * t3800;
22758   t66568 = t12322 * t6849;
22759   t66569 = t66568 * t3794;
22760   t66576 = t5726 * t17583;
22761   t66593 = -0.12e2 * t3810 * t22032 - 0.12e2 * t21965 * t3828 + 0.171e3 / 0.500e3 * t1771 * t17671 + 0.108e3 * t12312 * t22113 + 0.54e2 * t38196 * t6864 + 0.171e3 / 0.500e3 * t1285 * t22003 + 0.108e3 * t3817 * t3819 * t66365 - 0.12e2 * t3810 * t22035 + 0.108e3 * t5122 * t66562 + 0.54e2 * t5122 * t66565 - 0.648e3 * t16906 * t66569 - 0.48e2 * t64649 * t5713 - 0.48e2 * t64652 * t5713 + 0.108e3 * t5122 * t66576 - 0.1296e4 * t50352 * t21952 - 0.1296e4 * t50347 * t21952 + 0.108e3 * t16895 * t21962 + 0.108e3 * t16898 * t21962 - 0.12e2 * t1101 * t39293 * t6843 - 0.6e1 * t1101 * t1102 * t66378;
22762   t66596 = t1757 * t1590;
22763   t66599 = t5718 * t5741;
22764   t66602 = t1757 * t17866;
22765   t66608 = t4189 * t22109;
22766   t66614 = t5720 * t1590;
22767   t66635 = t17602 * t5741;
22768   t66638 = t17587 * t5741;
22769   t66641 = t5720 * t17866;
22770   t66648 = -0.70434811654320987653e-1 * t22029 * t17636 - 0.16770193251028806584e0 * t66596 * t5754 + 0.10062115950617283950e0 * t66599 * t5754 + 0.10062115950617283950e0 * t66602 * t5754 - 0.9e1 / 0.100e3 * t406 * t21996 * t4225 - 0.9e1 / 0.50e2 * t406 * t66608 * t1314 + 0.33540386502057613168e1 * t52991 * t6868 - 0.25155289876543209876e1 * t66614 * t5745 + 0.15093173925925925926e1 * t5742 * t46 * t64237 * t1751 - 0.25155289876543209876e1 * t17845 * t22177 - 0.25155289876543209876e1 * t52921 * t6868 - 0.25155289876543209876e1 * t53023 * t6868 + 0.75465869629629629630e0 * t5742 * t46 * t5743 * t17583 + 0.15093173925925925926e1 * t17867 * t22177 + 0.75465869629629629628e0 * t22169 * t17854 - 0.67919282666666666665e1 * t66635 * t17860 + 0.15093173925925925926e1 * t66638 * t5745 + 0.15093173925925925926e1 * t66641 * t5745 - 0.9e1 / 0.50e2 * t1771 * t17887 - 0.9e1 / 0.25e2 * t5768 * t5779;
22771   t66692 = -0.24e2 * t5130 * t66387 - 0.24e2 * t16875 * t21958 - 0.24e2 * t16870 * t21958 - 0.24e2 * t5130 * t66391 - 0.12e2 * t5130 * t66393 - 0.24e2 * t5720 * t17651 - 0.24e2 * t3810 * t22162 - 0.12e2 * t12309 * t6871 + 0.15093173925925925926e1 * t22169 * t17850 + 0.75465869629629629630e0 * t52911 * t6868 + 0.15093173925925925926e1 * t52914 * t6868 + 0.15093173925925925926e1 * t17863 * t22177 + 0.75465869629629629630e0 * t52902 * t6868 - 0.9e1 / 0.50e2 * t1285 * t21997 - 0.9e1 / 0.25e2 * t1285 * t22006 - 0.12e2 * t66406 * t1103 - 0.9e1 / 0.50e2 * t1244 * t21997 - 0.24e2 * t1101 * t3827 * t66365 - 0.12e2 * t5720 * t17659 - 0.24e2 * t1101 * t59745 * t6843;
22772   t66710 = t21944 * t3800;
22773   t66713 = t38258 * t6843;
22774   t66714 = t66713 * t3794;
22775   t66721 = t5846 * t5806;
22776   t66739 = -0.12e2 * t1101 * t59749 * t6843 - 0.6e1 * t12309 * t6874 + 0.50310579753086419752e-1 * t22029 * t17874 - 0.12e2 * t21965 * t3824 + t6886 * t4183 * t428 - 0.9e1 / 0.25e2 * t1771 * t17884 + 0.648e3 * t16895 * t21945 + 0.648e3 * t16898 * t21945 + 0.324e3 * t5122 * t66710 - 0.7776e4 * t16906 * t66714 + 0.216e3 * t16895 * t21948 + 0.216e3 * t16898 * t21948 + 0.171e3 / 0.250e3 * t21496 * t66721 + 0.216e3 * t21389 * t17807 + 0.108e3 * t21389 * t17810 - 0.1296e4 * t64382 * t17801 - 0.9e1 / 0.25e2 * t5770 * t5779 - 0.12e2 * t5720 * t17731 - 0.12e2 * t1101 * t3823 * t21937 + t6887 * t4226 / 0.10e2;
22777   t66745 = t12494 * t6914;
22778   t66766 = t1764 * t17776;
22779   t66791 = 0.54e2 * t3817 * t39346 * t6843 + 0.171e3 / 0.1000e4 * t406 * t66745 * t4190 - 0.12577644938271604938e0 * t17783 * t330 * t1765 - 0.25155289876543209876e0 * t5718 * t1177 * t1765 - 0.12577644938271604938e0 * t1757 * t3995 * t1765 - 0.24e2 * t17587 * t5730 - 0.30186347851851851852e0 * t17644 * t66350 + 0.30186347851851851852e1 * t52725 * t22064 + 0.30186347851851851852e1 * t52770 * t22064 + 0.30186347851851851852e1 * t17644 * t66766 + 0.15093173925925925926e1 * t17644 * t66353 - 0.40751569600000000000e2 * t21318 * t66356 - 0.13583856533333333333e2 * t64624 * t22067 - 0.13583856533333333333e2 * t64627 * t22067 - 0.13583856533333333333e2 * t21318 * t66338 - 0.67919282666666666667e1 * t21318 * t66359 + 0.81503139200000000000e2 * t64634 * t66362 - 0.6e1 * t1101 * t12905 * t6849 - 0.24e2 * t3810 * t22023 - 0.9e1 / 0.50e2 * t406 * t5778 * t17718;
22780   t66809 = t263 * t6849;
22781   t66810 = t66809 * t3794;
22782   t66814 = t262 * t6843 * t3794;
22783   t66818 = t17800 * t17770;
22784   t66829 = t17612 * t17770;
22785   t66834 = t39325 * t6891;
22786   t66840 = 0.171e3 / 0.1000e4 * t406 * t22002 * t4225 - 0.9e1 / 0.50e2 * t4093 * t6892 - 0.9e1 / 0.100e3 * t4184 * t6892 + t22157 * t1315 / 0.5e1 - 0.9e1 / 0.100e3 * t4091 * t6892 + t22155 * t1315 / 0.5e1 + t17822 * t1786 / 0.5e1 + 0.2e1 / 0.5e1 * t5768 * t5807 + 0.324e3 * t5122 * t66810 + 0.1080e4 * t5122 * t66814 + t66398 * t376 - 0.2592e4 * t16906 * t66818 + 0.41925483127572016460e0 * t22070 * t1676 + 0.41925483127572016460e0 * t22073 * t1676 + 0.42260886992592592593e0 * t17644 * t66541 - 0.55900644170096021947e0 * t6861 * t5476 + 0.1296e4 * t5122 * t66829 + 0.2e1 * t21992 * t1239 - 0.4959e4 / 0.10000e5 * t406 * t66834 * t4190 + t4184 * t6915 / 0.10e2;
22787   t66883 = t1285 * t22110 / 0.5e1 + t1244 * t22110 / 0.5e1 - 0.9e1 / 0.25e2 * t1244 * t22006 + 0.171e3 / 0.500e3 * t1244 * t22003 + t4091 * t6915 / 0.10e2 + t4093 * t6915 / 0.5e1 + t406 * t1291 * t66511 / 0.10e2 - 0.48e2 * t21386 * t17776 - 0.24e2 * t21386 * t17778 + 0.648e3 * t21389 * t17613 + 0.216e3 * t64639 * t5727 + 0.216e3 * t64642 * t5727 - 0.48e2 * t16875 * t21955 - 0.48e2 * t16870 * t21955 - 0.48e2 * t5130 * t66383 - 0.6e1 * t21965 * t3831 + 0.54e2 * t66534 * t3820 - 0.12e2 * t52348 * t1759 + t1771 * t17719 / 0.5e1 + 0.2e1 / 0.5e1 * t17761 * t1786;
22788   t66898 = t5720 * t17643;
22789   t66913 = t1191 * t5715 * t1122;
22790   t66920 = t1751 * t1122 * t1091;
22791   t66947 = t21951 * t3800;
22792   t66950 = t38189 * t6843;
22793   t66951 = t66950 * t3794;
22794   t66954 = -0.648e3 * t12312 * t21945 - 0.216e3 * t12312 * t21948 + 0.648e3 * t12321 * t66947 + 0.48e2 * t17587 * t5713 - 0.216e3 * t17602 * t17807 - 0.108e3 * t17602 * t17810 + 0.48e2 * t5720 * t17776 + 0.24e2 * t5720 * t17778 + 0.1296e4 * t52676 * t17801 + 0.1296e4 * t38183 * t21952 - 0.9720e4 * t38188 * t66951 - 0.216e3 * t52673 * t5727;
22795   t66977 = 0.48e2 * t1101 * t66383 + 0.24e2 * t1101 * t66387 + 0.24e2 * t1101 * t66391 - 0.108e3 * t12312 * t21962 + 0.648e3 * t12321 * t66569 + 0.48e2 * t3810 * t21955 + 0.24e2 * t3810 * t21958 - 0.108e3 * t3817 * t66562 - 0.54e2 * t3817 * t66565 - 0.108e3 * t3817 * t66576 - 0.324e3 * t3817 * t66710 - t66398;
22796   t67003 = 0.12e2 * t1101 * t66393 + 0.7776e4 * t12321 * t66714 + 0.12e2 * t52348 * t1754 + 0.24e2 * t17587 * t5715 - 0.648e3 * t17602 * t17613 + 0.24e2 * t5720 * t17774 + 0.2592e4 * t21285 * t66383 - 0.1296e4 * t21288 * t66383 + 0.6e1 * t21965 * t3805 - 0.324e3 * t3817 * t66810 - 0.1080e4 * t3817 * t66814 - 0.54e2 * t66534 * t4083;
22797   t67031 = -0.108e3 * t3817 * t3818 * t66365 + 0.12e2 * t66406 * t1094 + 0.12e2 * t1101 * t66381 + 0.24e2 * t1101 * t66385 + 0.12e2 * t1101 * t66389 + 0.6e1 * t1101 * t66395 + 0.12e2 * t12309 * t6852 + 0.6e1 * t12309 * t6854 + 0.12e2 * t5720 * t17780 + 0.12e2 * t21965 * t3803 + 0.24e2 * t3810 * t21985 + 0.12e2 * t3810 * t21989 - 0.54e2 * t38196 * t6879;
22798   t67033 = t66954 + t66977 + t67003 + t67031;
22799   t67036 = t5806 * t5806;
22800   t67044 = -0.60372695703703703704e0 * t52725 * t22061 - 0.60372695703703703704e0 * t52770 * t22061 - 0.60372695703703703704e0 * t17644 * t66913 + t17753 * t1786 / 0.5e1 + t6857 * t4079 - 0.12074539140740740741e1 * t17644 * t64320 * t66920 + 0.54335426133333333334e1 * t21318 * t64326 * t66920 + t67033 * t405 * t428 - 0.9e1 / 0.50e2 * t406 * t4189 * t67036 - 0.648e3 * t16906 * t66947 + 0.9720e4 * t49301 * t66951;
22801   t67081 = 0.42260886992592592593e0 * t5831 * t66541 - p->cam_beta * (t66593 + t66648 + t66692 + t66739 + t66791 + t66840 + t66883 + 0.2e1 * t22154 * t1284 * t428 - 0.12e2 * t1101 * t16830 * t6849 - 0.24e2 * t5720 * t17656 - 0.24e2 * t17587 * t5735 - 0.9e1 / 0.100e3 * t6887 * t4191 + 0.2e1 / 0.5e1 * t5770 * t5807 - 0.60372695703703703702e0 * t66898 * t17646 + 0.10062115950617283950e1 * t52773 * t22061 - 0.50310579753086419753e1 * t52773 * t22064 + 0.22639760888888888889e2 * t64738 * t22067 + t67044) + t67033 * t428 + 0.648e3 * t16222 * t21945 + 0.216e3 * t16222 * t21948 - 0.1296e4 * t48852 * t21952 + 0.648e3 * t16226 * t21945 + 0.216e3 * t16226 * t21948 - 0.1296e4 * t50414 * t21952 - 0.48e2 * t16197 * t21955 - 0.48e2 * t16241 * t21955 - 0.48e2 * t5459 * t66383 - 0.12e2 * t1101 * t39416 * t6843 - 0.12e2 * t12309 * t6932 - 0.24e2 * t3810 * t22192 - 0.24e2 * t3810 * t22195 + 0.54e2 * t3817 * t39373 * t6843;
22802   t67121 = 0.171e3 / 0.250e3 * t12495 * t66721 - 0.24e2 * t5720 * t17592 - 0.60372695703703703704e0 * t17951 * t22061 + 0.30186347851851851852e1 * t17951 * t22064 - 0.13583856533333333333e2 * t52509 * t22067 - 0.60372695703703703704e0 * t5831 * t66913 + 0.30186347851851851852e1 * t5831 * t66766 - 0.24e2 * t1101 * t4244 * t66365 - 0.12e2 * t1101 * t16193 * t6849 + 0.1080e4 * t5453 * t66814 - 0.24e2 * t16197 * t21958 + 0.108e3 * t16222 * t21962 - 0.24e2 * t16241 * t21958 + 0.108e3 * t16226 * t21962 - 0.24e2 * t5459 * t66391 + 0.108e3 * t5453 * t66562 + 0.171e3 / 0.1000e4 * t12495 * t6891 * t4225;
22803   t67153 = t22154 * t1291;
22804   t67162 = 0.171e3 / 0.500e3 * t38016 * t22218 - 0.9e1 / 0.50e2 * t4278 * t1785 * t17718 - 0.9e1 / 0.50e2 * t4278 * t67036 + 0.41925483127572016460e0 * t5718 * t274 * t340 - 0.55900644170096021947e0 * t1757 * t1112 * t340 - 0.9e1 / 0.50e2 * t17929 * t17633 - 0.4959e4 / 0.10000e5 * t39396 * t6891 * t4190 + 0.15093173925925925926e1 * t21925 * t17958 + 0.33540386502057613168e1 * t52498 * t6929 + 0.15093173925925925926e1 * t5831 * t1764 * t17774 + 0.2e1 / 0.5e1 * t17939 * t5806 + 0.1296e4 * t5453 * t66829 - 0.2592e4 * t16236 * t66818 + t67153 * t1314 / 0.5e1 - 0.12e2 * t3810 * t21932 - 0.70434811654320987653e-1 * t6923 * t17636 + 0.10062115950617283950e0 * t21917 * t5754;
22805   t67203 = -0.16770193251028806584e0 * t21910 * t5754 + 0.50310579753086419752e-1 * t6923 * t17874 + 0.171e3 / 0.500e3 * t52595 * t17597 + 0.171e3 / 0.1000e4 * t12495 * t6914 * t4190 - 0.12074539140740740741e1 * t64948 * t65019 * t66920 + 0.54335426133333333334e1 * t65023 * t65024 * t66920 - 0.9e1 / 0.25e2 * t52580 * t5846 - 0.9e1 / 0.100e3 * t4278 * t6914 * t4225 - 0.9e1 / 0.50e2 * t4278 * t22109 * t1314 - 0.9e1 / 0.50e2 * t12440 * t21976 - 0.12e2 * t3810 * t21938 - 0.6e1 * t1101 * t12463 * t6849 - 0.9e1 / 0.25e2 * t17929 * t17630 - 0.9e1 / 0.25e2 * t12440 * t22221 + 0.2e1 * t21992 * t1339 + t6857 * t4272 + 0.216e3 * t63655 * t5727;
22806   t67241 = 0.216e3 * t63837 * t5727 + 0.216e3 * t21081 * t17807 + 0.108e3 * t21081 * t17810 - 0.1296e4 * t63844 * t17801 - 0.12577644938271604938e0 * t17783 * t332 * t340 - 0.24e2 * t5459 * t66387 - 0.12e2 * t5459 * t66393 + 0.324e3 * t5453 * t66810 + 0.54e2 * t5453 * t66565 - 0.648e3 * t16236 * t66569 + 0.108e3 * t5453 * t66576 - 0.648e3 * t16236 * t66947 + 0.9720e4 * t50425 * t66951 + 0.324e3 * t5453 * t66710 - 0.7776e4 * t16236 * t66714 - 0.12e2 * t1101 * t4240 * t21937 - 0.6e1 * t1101 * t1321 * t66378;
22807   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22808     v4rho2tau2[8] = -t65963 - 0.4e1 / 0.3e1 * t66148 - t66162 - t1352 * t3131 * t6945 * t3779 / 0.6e1 - t1352 * t2415 * t22227 * t1082 - t1352 * t2415 * t6945 * t3788 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t66409 + t66450 + t66539 + t67081 + t67121 + t67162 + t67203 + t67241);
22809 
22810   t67249 = t14520 * t22712 / 0.2e1;
22811   t67274 = -0.73e2 / 0.2430e4 * t46 * t496 * t5857 * t226 + t22285 - 0.73e2 / 0.3240e4 * t46 * t22282 * t468 + 0.73e2 / 0.1215e4 * t46 * t496 * t5855 - 0.73e2 / 0.1620e4 * t46 * t6103 * t4300 + 0.73e2 / 0.2430e4 * t46 * t4619 * t5857 - t22291 - t18106 - t6112 + t18108 + 0.292e3 / 0.45e2 * t18104 * t1356 + t22293 + 0.292e3 / 0.45e2 * t6110 * t4300 + t18114 + t6116;
22812   t67297 = -t22233 + t22236 + t759 * t67274 / 0.10e2 + 0.3e1 * t5865 * t4687 + t2391 * t22294 / 0.10e2 - 0.27e2 / 0.100e3 * t7894 * t22252 - 0.27e2 / 0.100e3 * t13201 * t18190 - 0.27e2 / 0.100e3 * t53181 * t4695 - 0.9e1 / 0.100e3 * t2394 * t22294 * t731 - 0.27e2 / 0.50e2 * t13201 * t17978 + 0.3e1 / 0.10e2 * t53437 * t1495 + 0.3e1 / 0.10e2 * t18045 * t4642 + t474 * t22315;
22813   t67323 = 0.3e1 / 0.10e2 * t13272 * t6117 + 0.3e1 / 0.10e2 * t4690 * t18115 - t6139 - t22265 - t22272 + 0.513e3 / 0.1000e4 * t40595 * t17981 - 0.27e2 / 0.100e3 * t2394 * t4642 * t6117 - 0.27e2 / 0.100e3 * t2394 * t1495 * t18115 + 0.513e3 / 0.1000e4 * t7915 * t6098 * t4642 - 0.27e2 / 0.100e3 * t40702 * t6098 - 0.12e2 * t478 * t756 * t22239 - 0.4959e4 / 0.10000e5 * t27492 * t22319 * t731 - 0.12e2 * t1855 * t22249;
22814   t67325 = t22344 * t708;
22815   t67350 = t5855 * t4300;
22816   t67352 = t4296 * t5857;
22817   t67354 = t4301 * t5857;
22818   t67357 = (0.6e1 * t4300 * t5857 + t18029 + t18035 + t22274 + t22276 + t5859 + t5863 + 0.54e2 * t67350 + 0.54e2 * t67352 + 0.54e2 * t67354) * t32;
22819   t67358 = t22277 * t477;
22820   t67379 = 0.36e2 * t13277 * t5860 + 0.18e2 * t13277 * t5862 + 0.18e2 * t53371 * t1359 + 0.36e2 * t4310 * t18030 + 0.18e2 * t18120 * t4305 + 0.12e2 * t1855 * t22239 + 0.648e3 * t27298 * t22332 - 0.324e3 * t6986 * t22335 - 0.162e3 * t40542 * t6086 + 0.6e1 * t67358 * t471 + 0.36e2 * t478 * t67350 + t18162 - t18164 + t18166 + t22331 - t22339 + t22343 + t6092 - t67357;
22821   t67381 = t27335 * t22239 * t468;
22822   t67384 = t18061 * t4300;
22823   t67388 = t25875 * t22239 * t468;
22824   t67392 = t26 * t22239 * t468;
22825   t67395 = t18054 * t4300;
22826   t67400 = t13300 * t5857;
22827   t67429 = -0.972e3 * t13213 * t18055 - 0.324e3 * t13213 * t18058 - 0.162e3 * t13213 * t18076 + 0.72e2 * t4310 * t18032 + 0.36e2 * t4310 * t18034 + 0.1944e4 * t40545 * t18062 + 0.36e2 * t18120 * t4303 + 0.36e2 * t1855 * t22231 - 0.1080e4 * t1862 * t67392 - 0.972e3 * t1862 * t67395 - 0.162e3 * t1862 * t67400 + 0.1944e4 * t20701 * t67352 - 0.972e3 * t20704 * t67352 - 0.162e3 * t6986 * t22234 - 0.9720e4 * t25874 * t67388 - 0.162e3 * t53363 * t4318 + 0.36e2 * t478 * t67352 + 0.36e2 * t478 * t67354 + 0.7776e4 * t6995 * t67381 + 0.1944e4 * t6995 * t67384;
22828   t67430 = t67379 + t67429;
22829   t67432 = t1512 * t468;
22830   t67436 = t67325 * t731 / 0.10e2 - t18074 + t18078 - 0.648e3 * t6995 * t27403 * t22239 - 0.18e2 * t1855 * t22246 + 0.162e3 * t1862 * t40807 * t5855 - 0.648e3 * t27298 * t22260 + 0.162e3 * t6986 * t22257 + 0.3e1 * t18037 * t1512 - 0.18e2 * t4310 * t18128 - 0.36e2 * t13277 * t6134 + t67430 * t230 - 0.36e2 * t478 * t67432 * t5855;
22831   t67447 = t22252 * t731;
22832   t67464 = t13974 * t5883;
22833   t67467 = t7573 * t5883;
22834   t67468 = t67467 * t506;
22835   t67471 = t17999 * t4356;
22836   t67478 = t22301 * t506;
22837   t67481 = t5883 * t4356;
22838   t67488 = t58 * t54094;
22839   t67496 = 0.1056e4 / 0.625e3 * t26455 * t22301 * t506 - 0.198e3 / 0.125e3 * t17984 * t4356 - 0.85217585784449019264e-2 * t14060 * t55 * t17990 + 0.38735266265658645120e-2 * t14063 * t5891 - 0.20658808675017944064e-1 * t4671 * t18019 - 0.19983387292181069959e0 * t46 * t67464 - 0.17985048562962962963e0 * t1367 * t67468 + 0.14987540469135802469e0 * t1367 * t67471 + 0.14190187476264636929e-3 * t18290 + 0.24832828083463114625e-4 * t18320 - 0.392e3 / 0.375e3 * t27462 * t22301 + 0.6664e4 / 0.1875e4 * t27450 * t67478 - 0.392e3 / 0.125e3 * t7883 * t67481 + 0.70297335074713837440e-2 * t7878 * t1372 * t5891 - 0.16871360417931320986e-1 * t7883 * t1372 * t67488 + 0.70297335074713837440e-2 * t2383 * t4356 * t5891 - 0.37491912039847379968e-1 * t22312 * t18019;
22840   t67527 = t18120 * t160;
22841   t67530 = t53363 * t160;
22842   t67535 = -0.648e3 * t22239 * t25901 * t6995 - 0.18e2 * t13277 * t5880 + 0.3e1 * t18037 * t1473 + 0.972e3 * t18281 * t18055 + 0.972e3 * t18792 * t18055 + 0.324e3 * t18281 * t18058 + 0.324e3 * t18792 * t18058 - 0.1944e4 * t53796 * t18062 - 0.1944e4 * t53828 * t18062 - 0.18e2 * t4310 * t18263 - 0.18e2 * t1855 * t22350 - 0.36e2 * t67527 * t4303 + 0.162e3 * t67530 * t4318;
22843   t67538 = t478 * t6082;
22844   t67566 = t22690 * t543;
22845   t67578 = 0.78988816666666666668e-1 * t18687 * t1466 + 0.17215673895848286720e-1 * t4580 * t18019 - 0.14620935720164609054e0 * t5977 * t496 * t124 - 0.12829710123175305944e-2 * t121 * t17999 * t502 + 0.18e2 / 0.25e2 * t54924 * t4554 - 0.21063684444444444445e0 * t6061 * t4418 - t67566 * t506 / 0.5e1 + 0.14658159515229232926e-4 * t22404 * t18320 + 0.24055706480953698645e-3 * t569 * t22638 + 0.54828508950617283951e-1 * t18772 * t51 * t124 + 0.14658159515229232926e-4 * t18324 * t22635;
22846   t67607 = 0.14658159515229232926e-4 * t6076 * t18319 * t4356 + 0.1056e4 / 0.625e3 * t26456 * t67478 + 0.44233737333333333333e-1 * t623 * t22306 - 0.17182647486395499033e-3 * t4409 * t5991 + 0.91640786594109328176e-3 * t1419 * t18316 + 0.83760911515595616720e-4 * t22404 * t18290 - 0.17182647486395499033e-3 * t4406 * t5991 + 0.44233737333333333332e-1 * t6061 * t212 * t4559 + 0.12031576554666666666e0 * t4557 * t41111 * t67478 - 0.10616096960000000000e0 * t4557 * t13981 * t67481 - 0.66e2 / 0.125e3 * t26741 * t22301 + 0.18e2 / 0.25e2 * t41836 * t5883;
22847   t67626 = t1377 * t1415;
22848   t67649 = 0.77e2 / 0.18000e5 * t490 * t26158 * t22419;
22849   t67654 = t513 * t22301;
22850   t67664 = 0.32877155009432492000e-4 * t18405 * t22424;
22851   t67671 = t4346 * t55;
22852   t67683 = my_piecewise3(t76, 0, t67649 + 0.2387e4 / 0.60000e5 * t490 * t26164 * t22419 * t506 + 0.77e2 / 0.18000e5 * t490 * t7409 * t67654 * t454 - 0.77e2 / 0.2000e4 * t490 * t7409 * t5884 * t4356 - t67664 - 0.20712607655942469960e-3 * t38 * t40 * t7408 * t1373 * t55 * t17990 - 0.32877155009432492000e-4 * t54091 * t67671 * t18415 + 0.98631465028297476000e-4 * t5889 * t18408 * t4356 * t5891 - 0.52603448015091987200e-3 * t5889 * t22423 * t18019);
22853   t67686 = t77 * t22485;
22854   t67697 = t4386 * t5896;
22855   t67700 = t1407 * t18423;
22856   t67709 = t5959 * t4362;
22857   t67712 = t22433 * t519;
22858   t67713 = t67712 * t86;
22859   t67724 = 0.18e2 * t14925 * t18574 - 0.27e2 / 0.4e1 * t14928 * t18574 + 0.3e1 / 0.8e1 * t57059 * t4383 - 0.9e1 / 0.2e1 * t7535 * t22456 - 0.9e1 / 0.2e1 * t2044 * t67697 - 0.9e1 / 0.2e1 * t2044 * t67700 + 0.3e1 / 0.4e1 * t7516 * t22456 + 0.3e1 / 0.4e1 * t2051 * t67700 + 0.3e1 / 0.4e1 * t2051 * t67697 + 0.3e1 / 0.8e1 * t7500 * t67709 + t26297 * t67713 / 0.16e2 - 0.9e1 / 0.2e1 * t54782 * t4383 + 0.3e1 / 0.4e1 * t54778 * t4383 - 0.9e1 / 0.2e1 * t13831 * t18574 + 0.3e1 / 0.4e1 * t13822 * t18574;
22860   t67729 = t13834 * t18574;
22861   t67732 = 0.15e2 / 0.2e1 * t13842 * t18574;
22862   t67733 = t1401 * t18448;
22863   t67734 = 0.4608e4 * t67733;
22864   t67736 = t79 * t67683 * t86;
22865   t67754 = t22437 * t519;
22866   t67759 = 0.18e2 * t41317 * t18582 - 0.9e1 * t13831 * t18585 + 0.60e2 * t67729 - t67732 + t67734 - 0.10e2 * t67736 - 0.30e2 * t2051 * t67713 + 0.18e2 * t7538 * t67709 - 0.27e2 / 0.4e1 * t41340 * t18582 + 0.3e1 / 0.2e1 * t13822 * t18585 + 0.3e1 / 0.8e1 * t41335 * t18582 + 0.75e2 / 0.4e1 * t26287 * t67713 - 0.27e2 / 0.4e1 * t7505 * t67709 - 0.9e1 / 0.4e1 * t26284 * t67713 - 0.3e1 / 0.2e1 * t2044 * t67754 + t2051 * t67754 / 0.4e1;
22867   t67771 = t67683 * t86;
22868   t67782 = t22471 * t525;
22869   t67787 = t22650 * t557;
22870   t67789 = t5902 * t4386;
22871   t67791 = t22655 * t557;
22872   t67793 = t13837 * t5962;
22873   t67795 = -0.9e1 / 0.2e1 * t41343 * t5959 + 0.3e1 / 0.2e1 * t18720 * t4386 + 0.3e1 / 0.2e1 * t13828 * t5962 + 0.3e1 / 0.2e1 * t4378 * t18554 + t2042 * t22437 / 0.2e1 + t556 * t67771 / 0.2e1 + t26308 * t22434 / 0.8e1 + 0.3e1 / 0.2e1 * t54800 * t1407 + 0.3e1 / 0.4e1 * t41332 * t5959 - 0.9e1 / 0.4e1 * t26300 * t22434 + t67782 * t557 / 0.2e1 + 0.6e1 * t26274 * t22434 - 0.100e3 * t67787 + 0.60e2 * t67789 + 0.55e2 / 0.2e1 * t67791 - 0.15e2 * t67793;
22874   t67796 = t4399 * t18554;
22875   t67798 = t1999 * t22428;
22876   t67799 = t67798 * t557;
22877   t67802 = 0.15e2 / 0.2e1 * t18466 * t4386;
22878   t67803 = t26252 * t22433;
22879   t67804 = t67803 * t557;
22880   t67806 = t4362 * t5896;
22881   t67808 = t1377 * t18423;
22882   t67810 = t519 * t22428;
22883   t67812 = t77 * t67683;
22884   t67814 = 0.1536e4 * t67712;
22885   t67815 = t5999 * t4362;
22886   t67816 = 0.4608e4 * t67815;
22887   t67817 = t4430 * t5896;
22888   t67818 = 0.2304e4 * t67817;
22889   t67819 = t1430 * t18423;
22890   t67820 = 0.2304e4 * t67819;
22891   t67821 = t22565 * t519;
22892   t67822 = 0.768e3 * t67821;
22893   t67823 = t128 * t67683;
22894   t67824 = 0.256e3 * t67823;
22895   t67825 = 0.120e3 * t67806 + 0.120e3 * t67808 + 0.40e2 * t67810 + 0.40e2 * t67812 - t67814 - t67816 - t67734 - t67818 - t67820 - t67822 - t67824;
22896   t67834 = -0.15e2 * t67796 - 0.5e1 * t67799 - t67802 - 0.5e1 / 0.4e1 * t67804 + t67825 * t86 - 0.216e3 * t67806 - 0.216e3 * t67808 - 0.72e2 * t67810 - 0.72e2 * t67812 + t67814 + t67824 + t67816 + t67818 + t67820 + t67822 + 0.10e2 * t78 * t67683 * t81;
22897   t67839 = 0.144e3 * t56890 * t5896 + 0.144e3 * t54625 * t5896 + 0.144e3 * t18697 * t18423 + 0.288e3 * t67626 * t4362 + 0.144e3 * t5901 * t4402 + 0.144e3 * t56855 * t1377 + 0.144e3 * t54632 * t1377 + 0.144e3 * t18714 * t4362 + 0.144e3 * t14854 * t5896 + 0.144e3 * t13795 * t5896 + 0.144e3 * t4365 * t18423 + 0.48e2 * t2855 * t22428 + 0.48e2 * t2028 * t22428 + 0.48e2 * t547 * t67683 + 0.48e2 * t67686 * t519 + 0.24e2 * t83 * (t67724 + t67759 + t67795 + t67834);
22898   t67861 = t4368 * t5896;
22899   t67862 = t7699 * t67861;
22900   t67872 = t22585 * t525;
22901   t67885 = -0.1080e4 * t67862 + 0.432e3 * t13711 * t18448 + 0.144e3 * t2110 * t67810 + 0.864e3 * t13711 * t18443 + 0.432e3 * t54492 * t4368 + t67872 * t557 / 0.2e1 + 0.2160e4 * t5959 * t4489 + 0.3e1 / 0.2e1 * t54344 * t1407 - 0.9e1 / 0.4e1 * t26577 * t22434 + t2100 * t22437 / 0.2e1 + t598 * t67771 / 0.2e1;
22902   t67910 = 0.3e1 / 0.4e1 * t41791 * t5959 - 0.1440e4 * t18493 * t1407 - 0.1440e4 * t5927 * t4386 + 0.720e3 * t4393 * t6044 + 0.720e3 * t1411 * t18542 - 0.2e1 * t614 * t84 * t67683 - 0.480e3 * t532 * t22437 + 0.240e3 * t561 * t22516 + 0.240e3 * t106 * t67683 * t81 - 0.2880e4 * t526 * t22434 - 0.9e1 / 0.2e1 * t41670 * t5959;
22903   t67934 = t26687 * t22434 / 0.8e1 + 0.432e3 * t11338 * t22461 + 0.432e3 * t7634 * t22461 + 0.432e3 * t2110 * t67806 + 0.432e3 * t2110 * t67808 + 0.6e1 * t26714 * t22434 + 0.3e1 / 0.2e1 * t18562 * t4386 + 0.3e1 / 0.2e1 * t13676 * t5962 + 0.3e1 / 0.2e1 * t4447 * t18554 + 0.15e2 / 0.2e1 * t26708 * t67713 - 0.3e1 / 0.2e1 * t7644 * t67709;
22904   t67961 = -t26699 * t67713 / 0.4e1 + 0.4e1 * t614 * t22670 * t519 - t2138 * t67754 + 0.2160e4 * t6054 * t4383 + 0.3e1 / 0.4e1 * t2107 * t67700 + 0.3e1 / 0.4e1 * t2107 * t67697 + 0.21e2 * t7673 * t67709 + t2107 * t67754 / 0.4e1 - 0.9e1 / 0.2e1 * t54294 * t4383 + 0.12e2 * t614 * t4535 * t5896 + 0.12e2 * t614 * t1382 * t18423 + 0.18e2 * t41664 * t18582;
22905   t67986 = -0.9e1 * t13678 * t18585 - 0.30e2 * t2107 * t67713 + 0.18e2 * t7682 * t67709 - 0.9e1 / 0.2e1 * t7679 * t22456 - 0.9e1 / 0.2e1 * t2102 * t67697 - 0.9e1 / 0.2e1 * t2102 * t67700 + 0.3e1 / 0.4e1 * t7664 * t22456 + 0.3e1 / 0.4e1 * t54325 * t4383 - 0.9e1 / 0.2e1 * t13678 * t18574 + 0.3e1 / 0.4e1 * t13671 * t18574 - 0.27e2 / 0.4e1 * t41667 * t18582;
22906   t68013 = 0.3e1 / 0.2e1 * t13671 * t18585 + 0.3e1 / 0.8e1 * t41786 * t18582 + 0.48e2 * t614 * t22446 * t519 - 0.36e2 * t614 * t5912 * t4362 - 0.48e2 * t26563 * t67713 - 0.9e1 / 0.4e1 * t26574 * t67713 + 0.3e1 / 0.8e1 * t7655 * t67709 + t26679 * t67713 / 0.16e2 + 0.75e2 / 0.4e1 * t26580 * t67713 - 0.27e2 / 0.4e1 * t7667 * t67709 - 0.3e1 / 0.2e1 * t2102 * t67754 - 0.3e1 * t2138 * t67697;
22907   t68029 = t26388 * t67712;
22908   t68031 = t5901 * t4362;
22909   t68032 = t7699 * t68031;
22910   t68034 = t22481 * t557;
22911   t68038 = -0.3e1 * t2138 * t67700 - 0.27e2 / 0.4e1 * t14664 * t18574 + 0.3e1 / 0.8e1 * t56377 * t4383 - 0.3e1 / 0.2e1 * t54127 * t18574 - 0.36e2 * t14676 * t67861 + 0.21e2 * t28187 * t22456 + 0.18e2 * t14661 * t18574 + 0.2640e4 * t68029 - 0.1080e4 * t68032 - 0.240e3 * t68034 + 0.144e3 * t22433 * t608;
22912   t68064 = 0.30720e5 * t130 * t67683 + 0.1843200e7 * t1403 * t18448 + 0.460800e6 * t1432 * t18423 + 0.1843200e7 * t22567 * t519 + 0.153600e6 * t22571 * t519 + 0.1843200e7 * t6003 * t4362 + 0.460800e6 * t4434 * t5896 - 0.34560e5 * t67712 - 0.103680e6 * t67733 + 0.1344e4 * t67806 + 0.1344e4 * t67808 + 0.448e3 * t67810 + 0.448e3 * t67812 - 0.103680e6 * t67815 - 0.51840e5 * t67817 - 0.51840e5 * t67819 - 0.17280e5 * t67821 - 0.5760e4 * t67823;
22913   t68092 = -0.2880e4 * t101 * t67683 - 0.1105920e7 * t134 * t67683 + 0.4608e4 * t1401 * t18423 + 0.26943e5 * t141 * t67683 - 0.103680e6 * t1430 * t18448 + 0.2424870e7 * t1432 * t18448 - 0.185794560e9 * t1434 * t18448 + 0.484974e6 * t1446 * t18423 + 0.1536e4 * t22463 * t519 + 0.4608e4 * t4370 * t5896 + 0.768e3 * t83 * t67683 - 0.8e1 * t67683 + 0.4608e4 * t67861 + 0.4608e4 * t68031;
22914   t68095 = t130 * t22433;
22915   t68104 = t132 * t22428;
22916   t68123 = -0.26542080e8 * t13648 * t5896 - 0.34560e5 * t1403 * t18423 - 0.26542080e8 * t4440 * t18423 - 0.185794560e9 * t18646 * t4362 - 0.69120e5 * t22465 * t519 - 0.11520e5 * t22469 * t519 + 0.3233160e7 * t22552 * t519 + 0.161658e6 * t22556 * t519 - 0.103680e6 * t5952 * t4362 + 0.2424870e7 * t6034 * t4362 - 0.34560e5 * t4374 * t5896 + 0.484974e6 * t4473 * t5896 - 0.371589120e9 * t68095 * t519 - 0.8847360e7 * t68104 * t519;
22917   t68134 = t83 * t22558;
22918   t68137 = t5901 * t143;
22919   t68148 = 0.24e2 * t128 * t68064 + (t68092 + t68123) * t86 + 0.216e3 * t13704 * t5896 + 0.216e3 * t4464 * t18423 + 0.72e2 * t2113 * t22428 + 0.72e2 * t601 * t67683 + 0.72e2 * t68134 * t519 + 0.432e3 * t68137 * t4362 + 0.432e3 * t46098 * t5901 + 0.432e3 * t41531 * t5901 + 0.216e3 * t54497 * t1377 + 0.216e3 * t18566 * t4362;
22920   t68163 = 0.24055706480953698646e-3 * t1419 * t18296 + 0.35e2 / 0.81e2 * t22488 * t575 * t124 + 0.36e2 / 0.25e2 * t13991 * t18011 - 0.63191053333333333333e-1 * t4497 * t6069 - 0.63191053333333333333e-1 * t1462 * t18003 + 0.35e2 / 0.81e2 * t67839 * t120 * t124 + 0.16850947555555555555e0 * t1462 * t17996 - 0.81877240032921810701e-1 * t13743 * t5988 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t67683 * t151 + 0.8e1 / 0.7e1 * t22428 * t618 + 0.24e2 / 0.7e1 * t18423 * t1457 + 0.24e2 / 0.7e1 * t5896 * t4492 + 0.24e2 / 0.7e1 * t4362 * t6057 + 0.24e2 / 0.7e1 * t1377 * t18683 + 0.8e1 / 0.7e1 * t519 * t22602 + 0.8e1 / 0.7e1 * t77 * (t67885 + t67910 + t67934 + t67961 + t67986 + t68013 + t68038 + t68148)) * t41 * t45 * t157 - 0.3e1 / 0.5e1 * t54862 * t1372 - 0.14e2 / 0.27e2 * t54913 * t1425;
22921   t68188 = t22641 * t41;
22922   t68194 = -0.14e2 / 0.27e2 * t53944 * t1425 - 0.72676204058813440717e-5 * t568 * t6078 * t581 + 0.14658159515229232926e-4 * t22694 * t40716 + 0.10174668568233881700e-4 * t22697 * t40716 - 0.10616096960000000000e0 * t18305 * t18308 + 0.88467474666666666666e-1 * t18305 * t18311 - 0.198e3 / 0.125e3 * t42054 * t18008 - 0.11795663288888888889e0 * t156 * t67464 - 0.57733695554288876748e-3 * t121 * t7573 * t1372 * t63 * t506 - 0.43862807160493827161e-1 * t54587 * t1425 - 0.21931403580246913580e-1 * t68188 * t583 + 0.38735266265658645120e-2 * t13991 * t55 * t17990;
22923   t68211 = t22489 * t41;
22924   t68224 = -0.198e3 / 0.125e3 * t7820 * t67481 - 0.11726527612183386341e-3 * t6076 * t54606 * t1372 - 0.10470113939449452090e-4 * t621 * t6078 * t581 + 0.30703965012345679013e-1 * t13746 * t5988 - 0.392e3 / 0.675e3 * t2068 * t22621 - 0.392e3 / 0.675e3 * t2071 * t22621 - 0.14e2 / 0.81e2 * t68211 * t583 - 0.10470113939449452090e-4 * t4495 * sigma[0] * t6079 + 0.98e2 / 0.135e3 * t18356 * t4573 - 0.31595526666666666666e-1 * t18688 * t1470 - 0.85217585784449019264e-2 * t7820 * t1372 * t67488;
22925   t68254 = -0.14e2 / 0.27e2 * t18356 * t4511 - 0.31595526666666666667e-1 * t6062 * t4501 - 0.32279388554715537600e-2 * t14002 * t5891 + 0.24055706480953698645e-3 * t576 * t22638 + 0.24055706480953698645e-3 * t121 * t53673 * t63 - 0.70212281481481481483e-1 * t22607 * t626 + 0.98e2 / 0.135e3 * t13492 * t5988 + 0.98e2 / 0.135e3 * t13738 * t5988 - 0.35179582836550159022e-4 * t6076 * t6078 * t41107 * t506 - 0.20658808675017944064e-1 * t22612 * t18019 + 0.83760911515595616720e-4 * t154 * t18289 * t581 + 0.58140963247050752574e-4 * t112 * t18289 * t581;
22926   t68280 = -0.3e1 / 0.5e1 * t18366 * t4356 - 0.43862807160493827161e-1 * t18359 * t4511 + 0.38735266265658645120e-2 * t7734 * t1372 * t5891 + 0.38735266265658645120e-2 * t1934 * t4356 * t5891 - 0.35386989866666666666e-1 * t623 * t22628 - 0.10531842222222222222e-1 * t22607 * t630 - 0.31595526666666666666e-1 * t6062 * t4566 - 0.10616096960000000000e0 * t156 * t18308 + 0.88467474666666666666e-1 * t156 * t18311 + 0.44233737333333333333e-1 * t4497 * t6073 + 0.88467474666666666666e-1 * t1462 * t4559;
22927   t68327 = t26380 * t22433;
22928   t68339 = 0.21e2 / 0.2e1 * t4538 * t18574 - 0.3e1 / 0.4e1 * t41402 * t18574 - 0.18e2 * t67862 - 0.3e1 / 0.2e1 * t13834 * t18554 - 0.3e1 / 0.4e1 * t18437 * t4386 - t68327 * t557 / 0.8e1 + 0.24e2 * t68029 - 0.18e2 * t68032 + 0.6e1 * t1991 * t67806 + 0.6e1 * t1991 * t67808 + 0.2e1 * t1991 * t67810 - 0.24e2 * t68034;
22929   t68376 = 0.45e2 / 0.2e1 * t67729 - t67732 + 0.3e1 / 0.8e1 * t54963 * t4383 + t525 * t67683 * t86 / 0.2e1 - 0.12e2 * t57322 * t5896 - 0.12e2 * t18483 * t18423 - 0.4e1 * t2836 * t22428 - 0.4e1 * t529 * t67683 - t67736 - 0.75e2 / 0.2e1 * t67787 + 0.45e2 / 0.2e1 * t67789 + 0.85e2 / 0.4e1 * t67791;
22930   t68381 = t26296 * t22433;
22931   t68388 = t2006 * t22428;
22932   t68398 = -0.6e1 * t67793 - 0.6e1 * t67796 + 0.3e1 / 0.8e1 * t18480 * t4386 + t68381 * t557 / 0.16e2 - 0.3e1 * t4489 * t5962 - 0.3e1 * t1454 * t18554 + t68388 * t557 / 0.4e1 + 0.3e1 / 0.4e1 * t54974 * t1407 + 0.3e1 / 0.4e1 * t18475 * t4386 - 0.2e1 * t67799 - t67802 - 0.19e2 / 0.8e1 * t67804 - t22437 * t615;
22933   t68406 = 0.21e2 / 0.2e1 * t5918 * t4386 + 0.15e2 / 0.4e1 * t22675 * t557 - 0.3e1 / 0.2e1 * t41399 * t5962 - t2814 * t22437 / 0.2e1 - t521 * t67683 + 0.6e1 * t4362 * t5929 + 0.2e1 * t67683 * t90 + 0.2e1 * t22428 * t534 + 0.6e1 * t1377 * t18495 + 0.2e1 * t519 * t22684 + 0.2e1 * t77 * (t68376 + t68398) + 0.6e1 * t18423 * t1389 + 0.6e1 * t5896 * t4546;
22934   t68414 = -0.392e3 / 0.225e3 * t4517 * t18375 + 0.196e3 / 0.135e3 * t4517 * t18378 - 0.73689516029629629631e-1 * t4504 * t18375 + 0.61407930024691358026e-1 * t4504 * t18378 + 0.6664e4 / 0.3375e4 * t579 * t26341 * t67478 - 0.392e3 / 0.225e3 * t579 * t7574 * t67481 + 0.61407930024691358025e-1 * t18359 * t4573 - 0.11795663288888888889e0 * t1462 * t18511 + 0.84254737777777777776e-1 * t6062 * t4562 + 0.94365306311111111109e-1 * t156 * t497 * t22627 + (-0.8e1 / 0.3e1 * t67683 * t93 - 0.8e1 / 0.3e1 * t22428 * t537 - 0.8e1 * t18423 * t1392 - 0.8e1 * t5896 * t4549 - 0.8e1 * t4362 * t5932 - 0.8e1 * t1377 * t18498 - 0.8e1 / 0.3e1 * t519 * t22687 - 0.8e1 / 0.3e1 * t77 * (t68339 + t68406)) * t98 + 0.11696748576131687243e0 * t53941 * t1425;
22935   t68419 = t1862 * t6082;
22936   t68424 = t2305 * t22294;
22937   t68434 = 0.162e3 * t6986 * t22353 - 0.36e2 * t67538 * t4303 + t22402 * t732 / 0.10e2 - 0.36e2 * t4310 * t18258 - 0.27e2 / 0.100e3 * t4597 * t6099 - 0.36e2 * t478 * t23306 * t4300 - 0.648e3 * t27298 * t22388 + t33 * (t67578 + t67607 + t68163 + t68194 + t68224 + t68254 + t68280 + t68414) + 0.162e3 * t68419 * t4318 + 0.171e3 / 0.1000e4 * t702 * t22361 - 0.9e1 / 0.100e3 * t208 * t68424 * t731 + 0.162e3 * t40542 * t5871 - 0.18e2 * t18120 * t4321 - 0.18e2 * t53371 * t1364;
22938   t68436 = t1473 * t468;
22939   t68457 = -t18251 - 0.36e2 * t478 * t68436 * t5855 + 0.324e3 * t6986 * t22371 - t18265 - t22384 - 0.27e2 / 0.100e3 * t1478 * t18196 - 0.27e2 / 0.100e3 * t6094 * t4608 - t22387 + 0.3e1 * t5865 * t4584 + t67357 * t160 + t22278 * t633 - 0.6e1 * t67358 * t480 - 0.36e2 * t1855 * t22380 - 0.27e2 / 0.100e3 * t208 * t4607 * t18115;
22940   t68484 = -0.27e2 / 0.100e3 * t702 * t22374 + t22344 * t701 * t230 + t474 * t22705 + 0.162e3 * t13213 * t18223 - 0.36e2 * t4324 * t67354 - 0.36e2 * t4324 * t67352 - 0.36e2 * t18278 * t18034 + 0.162e3 * t18281 * t18076 + t22395 - 0.18e2 * t18120 * t4332 - 0.18e2 * t478 * t18252 * t4300 - 0.72e2 * t18278 * t18032 - 0.36e2 * t13336 * t22231 - 0.36e2 * t13344 * t22231;
22941   t68521 = -0.27e2 / 0.50e2 * t1478 * t18206 - 0.18e2 * t478 * t13369 * t5857 + 0.513e3 / 0.1000e4 * t20773 * t67447 + 0.513e3 / 0.1000e4 * t208 * t18211 * t4642 - 0.4959e4 / 0.10000e5 * t208 * t26764 * t22319 * t731 - 0.18e2 * t1855 * t22385 - 0.27e2 / 0.100e3 * t4599 * t6099 + 0.171e3 / 0.1000e4 * t638 * t22361 - 0.36e2 * t4310 * t18200 - 0.36e2 * t4310 * t18203 + 0.162e3 * t1862 * t42174 * t5855 + 0.162e3 * t13326 * t22234 - 0.27e2 / 0.100e3 * t208 * t13316 * t6117 - 0.36e2 * t4310 * t18266;
22942   t68524 = t13255 * t18028;
22943   t68540 = t22705 * t26;
22944   t68548 = t13213 * t1473;
22945   t68551 = 0.513e3 / 0.1000e4 * t1478 * t18212 - t22401 - 0.1944e4 * t13333 * t68524 + 0.162e3 * t18792 * t18076 - 0.36e2 * t18271 * t18034 - 0.1944e4 * t13333 * t67384 + 0.9720e4 * t42157 * t67388 + 0.1080e4 * t4316 * t67392 - 0.36e2 * t478 * t40916 * t5855 - 0.6e1 * t478 * t68540 * t468 - 0.36e2 * t13277 * t5877 - 0.18e2 * t18120 * t4327 - t5882 + 0.324e3 * t68548 * t4318;
22946   t68575 = t13296 * t18028;
22947   t68585 = -0.36e2 * t13277 * t5874 - 0.7776e4 * t13333 * t67381 - 0.72e2 * t18271 * t18032 + 0.972e3 * t4316 * t67395 + 0.162e3 * t13339 * t22234 + 0.162e3 * t4316 * t67400 - 0.18e2 * t478 * t55102 * t1356 - 0.12e2 * t478 * t633 * t22239 - 0.12e2 * t1855 * t22356 - 0.18e2 * t4310 * t18253 + 0.972e3 * t4316 * t68575 + 0.324e3 * t1862 * t25920 * t22239 + 0.3e1 * t1362 * t18780 - 0.27e2 / 0.100e3 * t638 * t22374;
22948   t68607 = t4310 * t1473;
22949   t68612 = t208 * t708 * t67274 / 0.10e2 + t638 * t22366 / 0.10e2 + t702 * t22366 / 0.10e2 + 0.3e1 / 0.10e2 * t6094 * t4643 + 0.3e1 / 0.10e2 * t4597 * t6118 + 0.3e1 * t4308 * t6082 + 0.3e1 / 0.10e2 * t18784 * t1496 + 0.3e1 / 0.10e2 * t18276 * t1496 + 0.3e1 / 0.10e2 * t4599 * t6118 + 0.3e1 / 0.10e2 * t1478 * t18243 - 0.72e2 * t68607 * t4303 - t18798 + t18800 + t67430 * t207 * t230;
22950   t68617 = -0.36e2 * t478 * t40530 * t5855 + 0.324e3 * t1862 * t25793 * t22239 - 0.36e2 * t1855 * t22243 + 0.324e3 * t6986 * t22240 + 0.513e3 / 0.1000e4 * t7915 * t67447 + 0.171e3 / 0.1000e4 * t27414 * t22319 + t33 * t67496 - 0.6e1 * t67358 * t739 - 0.18e2 * t18120 * t4668 + 0.3e1 * t1362 * t18022 + t67357 * t244 + t22278 * t756 - p->cam_beta * (t67535 + t68434 + t68457 + t68484 + t68521 + t68551 + t68585 + t68612);
22951   t68634 = t22315 * t26;
22952   t68650 = -0.18e2 * t14100 * t478 * t5857 - 0.36e2 * t23221 * t4300 * t478 - 0.6e1 * t468 * t478 * t68634 + 0.162e3 * t13213 * t18175 - 0.1944e4 * t13254 * t68524 - 0.36e2 * t4310 * t17973 - 0.36e2 * t4310 * t18178 - 0.36e2 * t4310 * t18182 - 0.18e2 * t4310 * t18187 - 0.18e2 * t1855 * t22263 + 0.162e3 * t40542 * t6128 + 0.3e1 * t4308 * t6152 + 0.972e3 * t4654 * t68575;
22953   t68679 = -0.18e2 * t1356 * t478 * t53374 - 0.18e2 * t18127 * t4300 * t478 - 0.36e2 * t13261 * t22231 - 0.36e2 * t13277 * t6131 - 0.18e2 * t13277 * t6137 - 0.36e2 * t14097 * t22231 - 0.18e2 * t53371 * t1502 - 0.72e2 * t18048 * t18032 - 0.18e2 * t18120 * t4657 - 0.18e2 * t18120 * t4663 - 0.36e2 * t4310 * t18131 - 0.36e2 * t4660 * t67352 - 0.36e2 * t4660 * t67354;
22954   t68689 = t4310 * t1512;
22955   t68692 = t13213 * t1512;
22956   t68705 = t1862 * t6152;
22957   t68708 = t18120 * t244;
22958   t68711 = -0.36e2 * t18048 * t18034 - 0.36e2 * t18065 * t18034 + 0.972e3 * t18051 * t18055 + 0.324e3 * t18051 * t18058 + 0.162e3 * t18051 * t18076 - 0.1944e4 * t53324 * t18062 + 0.162e3 * t18068 * t18076 - 0.72e2 * t68689 * t4303 - 0.36e2 * t68708 * t4303 + 0.324e3 * t68692 * t4318 + 0.162e3 * t68705 * t4318 + 0.1080e4 * t4654 * t67392 + 0.972e3 * t4654 * t67395;
22959   t68712 = t53363 * t244;
22960   t68717 = t478 * t6152;
22961   t68738 = -0.7776e4 * t13254 * t67381 - 0.1944e4 * t13254 * t67384 + 0.162e3 * t14106 * t22234 + 0.162e3 * t14109 * t22234 - 0.72e2 * t18065 * t18032 + 0.972e3 * t18068 * t18055 + 0.324e3 * t18068 * t18058 - 0.1944e4 * t53298 * t18062 + 0.9720e4 * t40416 * t67388 - 0.36e2 * t68717 * t4303 + 0.162e3 * t68712 * t4318 + 0.162e3 * t4654 * t67400 - t18186 - t18189;
22962   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22963     v4rhosigma3[0] = -t67249 - t1352 * t2774 * t22711 * t455 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t67297 + t67323 + t67436 + t68617 + t68650 + t68679 + t68711 + t68738);
22964 
22965   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22966     v4rhosigma3[1] = 0.0e0;
22967 
22968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22969     v4rhosigma3[2] = 0.0e0;
22970 
22971   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22972     v4rhosigma3[3] = 0.0e0;
22973 
22974   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22975     v4rhosigma3[4] = 0.0e0;
22976 
22977   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22978     v4rhosigma3[5] = 0.0e0;
22979 
22980   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22981     v4rhosigma3[6] = 0.0e0;
22982 
22983   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22984     v4rhosigma3[7] = 0.0e0;
22985 
22986   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
22987     v4rhosigma3[8] = 0.0e0;
22988 
22989   t68746 = t14520 * t23196 / 0.2e1;
22990   t68780 = -t18837 - 0.18e2 * t1101 * t57459 * t1524 + 0.3e1 / 0.10e2 * t4897 * t6426 + 0.3e1 / 0.10e2 * t19216 * t1664 - 0.27e2 / 0.100e3 * t4897 * t6407 + 0.171e3 / 0.1000e4 * t934 * t22792 + t934 * t23118 / 0.10e2 - 0.36e2 * t5116 * t18832 - 0.36e2 * t1101 * t46815 * t6165 - 0.12e2 * t1101 * t875 * t22722 + 0.324e3 * t3817 * t36412 * t22722 - 0.27e2 / 0.100e3 * t934 * t23132 + 0.162e3 * t3817 * t46771 * t6165;
22991   t68823 = t1545 * t1583;
22992   t68846 = 0.77e2 / 0.18000e5 * t490 * t37138 * t22821;
22993   t68847 = t780 * t22820;
22994   t68853 = 0.32877155009432492000e-4 * t18405 * t22826;
22995   t68854 = t4717 * t55;
22996   t68859 = my_piecewise3(t295, 0, t68846 + 0.77e2 / 0.18000e5 * t490 * t12553 * t68847 * t781 - t68853 - 0.32877155009432492000e-4 * t57709 * t68854 * t18850);
22997   t68862 = t296 * t22887;
22998   t68865 = t14200 * t18983;
22999   t68868 = 0.15e2 / 0.2e1 * t14206 * t18983;
23000   t68869 = t6267 * t4723;
23001   t68872 = t22833 * t787;
23002   t68873 = t68872 * t304;
23003   t68876 = t22875 * t787;
23004   t68899 = 0.60e2 * t68865 - t68868 - 0.27e2 / 0.4e1 * t8120 * t68869 - 0.9e1 / 0.4e1 * t25041 * t68873 - 0.3e1 / 0.2e1 * t2517 * t68876 + t2524 * t68876 / 0.4e1 + 0.3e1 / 0.8e1 * t8127 * t68869 + t25024 * t68873 / 0.16e2 - 0.9e1 / 0.2e1 * t55669 * t4788 + 0.3e1 / 0.4e1 * t55646 * t4788 - 0.9e1 / 0.2e1 * t14275 * t18983 + 0.3e1 / 0.4e1 * t14269 * t18983 + 0.3e1 / 0.2e1 * t14269 * t18978 + 0.3e1 / 0.8e1 * t42598 * t18975 + 0.18e2 * t42576 * t18975;
23005   t68912 = t4791 * t6204;
23006   t68915 = t1575 * t18855;
23007   t68925 = t297 * t68859 * t304;
23008   t68927 = t22853 * t793;
23009   t68936 = -0.9e1 * t14275 * t18978 - 0.27e2 / 0.4e1 * t42583 * t18975 - 0.30e2 * t2524 * t68873 + 0.18e2 * t8140 * t68869 + 0.75e2 / 0.4e1 * t25004 * t68873 - 0.9e1 / 0.2e1 * t8137 * t22865 - 0.9e1 / 0.2e1 * t2517 * t68912 - 0.9e1 / 0.2e1 * t2517 * t68915 + 0.3e1 / 0.4e1 * t8117 * t22865 + 0.3e1 / 0.4e1 * t2524 * t68915 + 0.3e1 / 0.4e1 * t2524 * t68912 - 0.10e2 * t68925 + t68927 * t820 / 0.2e1 - 0.9e1 / 0.2e1 * t42579 * t6267 + 0.6e1 * t25008 * t22862 - 0.9e1 / 0.4e1 * t25018 * t22862;
23010   t68940 = t68859 * t304;
23011   t68955 = t23060 * t820;
23012   t68957 = t6210 * t4791;
23013   t68959 = t23065 * t820;
23014   t68961 = t14203 * t6270;
23015   t68963 = t4739 * t19002;
23016   t68966 = 0.15e2 / 0.2e1 * t18898 * t4791;
23017   t68967 = t24961 * t22833;
23018   t68968 = t68967 * t820;
23019   t68970 = t2472 * t22830;
23020   t68971 = t68970 * t820;
23021   t68973 = t2515 * t22875 / 0.2e1 + t819 * t68940 / 0.2e1 + t25038 * t22862 / 0.8e1 + 0.3e1 / 0.2e1 * t55672 * t1575 + 0.3e1 / 0.2e1 * t18992 * t4791 + 0.3e1 / 0.2e1 * t14265 * t6270 + 0.3e1 / 0.2e1 * t4783 * t19002 + 0.3e1 / 0.4e1 * t42593 * t6267 - 0.100e3 * t68955 + 0.60e2 * t68957 + 0.55e2 / 0.2e1 * t68959 - 0.15e2 * t68961 - 0.15e2 * t68963 - t68966 - 0.5e1 / 0.4e1 * t68968 - 0.5e1 * t68971;
23022   t68977 = t4723 * t6204;
23023   t68979 = t1545 * t18855;
23024   t68981 = t787 * t22830;
23025   t68983 = t296 * t68859;
23026   t68985 = 0.1536e4 * t68872;
23027   t68986 = t344 * t68859;
23028   t68987 = 0.256e3 * t68986;
23029   t68998 = t6307 * t4723;
23030   t68999 = 0.4608e4 * t68998;
23031   t69000 = t1569 * t18880;
23032   t69001 = 0.4608e4 * t69000;
23033   t69002 = t4821 * t6204;
23034   t69003 = 0.2304e4 * t69002;
23035   t69004 = t1598 * t18855;
23036   t69005 = 0.2304e4 * t69004;
23037   t69006 = t22955 * t787;
23038   t69007 = 0.768e3 * t69006;
23039   t69008 = 0.120e3 * t68977 + 0.120e3 * t68979 + 0.40e2 * t68981 + 0.40e2 * t68983 - t68985 - t68999 - t69001 - t69003 - t69005 - t69007 - t68987;
23040   t69010 = 0.10e2 * t78 * t68859 * t299 - 0.216e3 * t68977 - 0.216e3 * t68979 - 0.72e2 * t68981 - 0.72e2 * t68983 + t68985 + t68987 + 0.18e2 * t15275 * t18983 - 0.27e2 / 0.4e1 * t15278 * t18983 + 0.3e1 / 0.8e1 * t57809 * t4788 + t69008 * t304 + t69001 + t68999 + t69003 + t69005 + t69007;
23041   t69015 = 0.144e3 * t57848 * t6204 + 0.144e3 * t55699 * t6204 + 0.144e3 * t18941 * t18855 + 0.288e3 * t68823 * t4723 + 0.144e3 * t6209 * t4803 + 0.144e3 * t57895 * t1545 + 0.144e3 * t55511 * t1545 + 0.144e3 * t18958 * t4723 + 0.144e3 * t15180 * t6204 + 0.144e3 * t14257 * t6204 + 0.144e3 * t4771 * t18855 + 0.48e2 * t3233 * t22830 + 0.48e2 * t2501 * t22830 + 0.48e2 * t810 * t68859 + 0.48e2 * t68862 * t787 + 0.24e2 * t301 * (t68899 + t68936 + t68973 + t69010);
23042   t69035 = 0.44233737333333333333e-1 * t872 * t22915 + 0.38735266265658645120e-2 * t10354 * t1540 * t6199 - 0.63191053333333333333e-1 * t4888 * t6377 - 0.43862807160493827161e-1 * t58637 * t1593 - 0.14e2 / 0.27e2 * t58664 * t1593 + 0.35e2 / 0.81e2 * t69015 * t336 * t340 - 0.17182647486395499033e-3 * t4807 * t6299 + 0.98e2 / 0.135e3 * t15389 * t6296 + 0.30703965012345679013e-1 * t15614 * t6296 - 0.10470113939449452090e-4 * t4886 * sigma[2] * t6387 + 0.54828508950617283951e-1 * t19025 * t274 * t340 - 0.32279388554715537600e-2 * t15609 * t6199 + 0.14658159515229232926e-4 * t19211 * t22894;
23043   t69060 = t4729 * t6204;
23044   t69073 = 0.18e2 * t15490 * t18983 - 0.27e2 / 0.4e1 * t15494 * t18983 + 0.3e1 / 0.8e1 * t58422 * t4788 + 0.21e2 * t55740 * t18983 - 0.3e1 / 0.2e1 * t55743 * t18983 - 0.36e2 * t15506 * t69060 + 0.3e1 / 0.4e1 * t8219 * t22865 + 0.3e1 / 0.4e1 * t2571 * t68915 + 0.3e1 / 0.4e1 * t2571 * t68912 - 0.48e2 * t25183 * t68873 + 0.21e2 * t8255 * t68869;
23045   t69083 = t6209 * t4723;
23046   t69102 = 0.4608e4 * t1569 * t18855 - 0.103680e6 * t1598 * t18880 + 0.2424870e7 * t1600 * t18880 - 0.185794560e9 * t1602 * t18880 - 0.69120e5 * t22842 * t787 + 0.1536e4 * t22846 * t787 + 0.768e3 * t301 * t68859 - 0.2880e4 * t319 * t68859 - 0.1105920e7 * t350 * t68859 + 0.26943e5 * t357 * t68859 + 0.4608e4 * t4775 * t6204 - 0.8e1 * t68859 + 0.4608e4 * t69060 + 0.4608e4 * t69083;
23047   t69121 = t346 * t22833;
23048   t69130 = t348 * t22830;
23049   t69133 = -0.26542080e8 * t14429 * t6204 - 0.34560e5 * t1571 * t18855 + 0.484974e6 * t1614 * t18855 - 0.26542080e8 * t4831 * t18855 - 0.185794560e9 * t19181 * t4723 - 0.11520e5 * t22848 * t787 + 0.3233160e7 * t22942 * t787 + 0.161658e6 * t22946 * t787 - 0.103680e6 * t6260 * t4723 + 0.2424870e7 * t6342 * t4723 - 0.34560e5 * t4779 * t6204 + 0.484974e6 * t4864 * t6204 - 0.371589120e9 * t69121 * t787 - 0.8847360e7 * t69130 * t787;
23050   t69161 = 0.1843200e7 * t1571 * t18880 + 0.460800e6 * t1600 * t18855 + 0.1843200e7 * t22957 * t787 + 0.153600e6 * t22961 * t787 + 0.30720e5 * t346 * t68859 + 0.1843200e7 * t6311 * t4723 + 0.460800e6 * t4825 * t6204 - 0.34560e5 * t68872 + 0.1344e4 * t68977 + 0.1344e4 * t68979 + 0.448e3 * t68981 + 0.448e3 * t68983 - 0.5760e4 * t68986 - 0.103680e6 * t68998 - 0.103680e6 * t69000 - 0.51840e5 * t69002 - 0.51840e5 * t69004 - 0.17280e5 * t69006;
23051   t69180 = 0.144e3 * t22833 * t857 + (t69102 + t69133) * t304 + 0.24e2 * t344 * t69161 - 0.9e1 / 0.2e1 * t8249 * t22865 - 0.9e1 / 0.2e1 * t2566 * t68912 - 0.9e1 / 0.2e1 * t2566 * t68915 + 0.18e2 * t8252 * t68869 + 0.75e2 / 0.4e1 * t25165 * t68873 + 0.3e1 / 0.2e1 * t55822 * t1575 + 0.3e1 / 0.2e1 * t19090 * t4791 - 0.1440e4 * t18925 * t1575;
23052   t69202 = t24907 * t68872;
23053   t69204 = 0.864e3 * t14387 * t18875 + 0.432e3 * t14387 * t18880 + 0.720e3 * t1579 * t19080 + 0.6e1 * t25176 * t22862 - 0.2880e4 * t22862 * t794 + 0.144e3 * t2574 * t68981 + 0.432e3 * t55909 * t4729 - 0.1440e4 * t6235 * t4791 + 0.720e3 * t4798 * t6352 + 0.2160e4 * t6267 * t4880 + 0.2640e4 * t69202;
23054   t69205 = t8039 * t69083;
23055   t69207 = t37465 * t22862;
23056   t69209 = t22975 * t793;
23057   t69232 = -0.1080e4 * t69205 - 0.240e3 * t69207 + t69209 * t820 / 0.2e1 - 0.9e1 / 0.2e1 * t42688 * t6267 - 0.2e1 * t863 * t302 * t68859 - 0.480e3 * t800 * t22875 + 0.240e3 * t824 * t22995 + 0.240e3 * t324 * t68859 * t299 + 0.432e3 * t10701 * t22850 + 0.432e3 * t8260 * t22850 + 0.432e3 * t2574 * t68977 + 0.432e3 * t2574 * t68979;
23058   t69253 = t6209 * t359;
23059   t69258 = -0.9e1 / 0.4e1 * t25162 * t22862 + t2564 * t22875 / 0.2e1 + t847 * t68940 / 0.2e1 + t25189 * t22862 / 0.8e1 + 0.3e1 / 0.2e1 * t14368 * t6270 + 0.3e1 / 0.2e1 * t4838 * t19002 + 0.3e1 / 0.4e1 * t42768 * t6267 + 0.72e2 * t2577 * t22830 + 0.72e2 * t850 * t68859 + 0.432e3 * t69253 * t4723 + 0.432e3 * t47677 * t6209;
23060   t69269 = t301 * t22948;
23061   t69285 = 0.432e3 * t42939 * t6209 + 0.216e3 * t55912 * t1545 + 0.216e3 * t19060 * t4723 + 0.216e3 * t14398 * t6204 + 0.216e3 * t4855 * t18855 + 0.72e2 * t69269 * t787 + 0.18e2 * t42733 * t18975 - 0.9e1 * t14358 * t18978 - 0.27e2 / 0.4e1 * t42691 * t18975 + 0.4e1 * t863 * t23080 * t787 + 0.3e1 / 0.4e1 * t14373 * t18983 + 0.3e1 / 0.2e1 * t14373 * t18978;
23062   t69306 = t18901 * t4788;
23063   t69308 = 0.3e1 / 0.8e1 * t42773 * t18975 - 0.9e1 / 0.2e1 * t55962 * t4788 + 0.3e1 / 0.4e1 * t55827 * t4788 - 0.3e1 / 0.2e1 * t2566 * t68876 + t2571 * t68876 / 0.4e1 + 0.3e1 / 0.8e1 * t8227 * t68869 + t25197 * t68873 / 0.16e2 - 0.9e1 / 0.2e1 * t14358 * t18983 - t2602 * t68876 + 0.2160e4 * t6362 * t4788 - 0.1080e4 * t69306;
23064   t69337 = 0.15e2 / 0.2e1 * t25156 * t68873 - 0.3e1 / 0.2e1 * t8240 * t68869 - t25112 * t68873 / 0.4e1 - 0.30e2 * t2571 * t68873 - 0.3e1 * t2602 * t68912 - 0.3e1 * t2602 * t68915 + 0.48e2 * t863 * t22834 * t787 - 0.36e2 * t863 * t6220 * t4723 + 0.12e2 * t863 * t4742 * t6204 + 0.12e2 * t863 * t1550 * t18855 - 0.27e2 / 0.4e1 * t8222 * t68869 - 0.9e1 / 0.4e1 * t25192 * t68873;
23065   t69372 = t24889 * t22833;
23066   t69387 = 0.21e2 / 0.2e1 * t6226 * t4791 + 0.15e2 / 0.4e1 * t23085 * t820 - 0.3e1 / 0.2e1 * t42400 * t6270 - 0.3e1 / 0.2e1 * t14200 * t19002 - 0.3e1 / 0.4e1 * t18869 * t4791 - t69372 * t820 / 0.8e1 + 0.6e1 * t2464 * t68977 + 0.6e1 * t2464 * t68979 + 0.2e1 * t2464 * t68981 - t3192 * t22875 / 0.2e1 + 0.6e1 * t18855 * t1557 + 0.6e1 * t6204 * t4755;
23067   t69394 = t2479 * t22830;
23068   t69403 = t24945 * t22833;
23069   t69413 = t69394 * t820 / 0.4e1 + 0.3e1 / 0.4e1 * t55451 * t1575 + 0.3e1 / 0.4e1 * t18907 * t4791 + 0.3e1 / 0.8e1 * t18912 * t4791 + t69403 * t820 / 0.16e2 - 0.3e1 * t4880 * t6270 - 0.3e1 * t1622 * t19002 - t864 * t22875 + 0.45e2 / 0.2e1 * t68865 - t68868 - t68925 - 0.75e2 / 0.2e1 * t68955;
23070   t69433 = 0.45e2 / 0.2e1 * t68957 + 0.85e2 / 0.4e1 * t68959 - 0.6e1 * t68961 - 0.6e1 * t68963 - t68966 - 0.19e2 / 0.8e1 * t68968 - 0.2e1 * t68971 + 0.3e1 / 0.8e1 * t55456 * t4788 + t793 * t68859 * t304 / 0.2e1 - 0.12e2 * t58049 * t6204 - 0.12e2 * t18915 * t18855 - 0.4e1 * t3214 * t22830 - 0.4e1 * t797 * t68859;
23071   t69450 = 0.6e1 * t4723 * t6237 + 0.6e1 * t1545 * t18927 + 0.2e1 * t787 * t23094 + 0.2e1 * t296 * (t69413 + t69433) + 0.2e1 * t68859 * t308 + 0.2e1 * t22830 * t802 + 0.24e2 * t69202 - 0.18e2 * t69205 - 0.24e2 * t69207 + 0.21e2 / 0.2e1 * t4745 * t18983 - 0.3e1 / 0.4e1 * t42403 * t18983 - 0.18e2 * t69306 - t789 * t68859;
23072   t69480 = 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t68859 * t367 + 0.8e1 / 0.7e1 * t22830 * t867 + 0.24e2 / 0.7e1 * t18855 * t1625 + 0.24e2 / 0.7e1 * t6204 * t4883 + 0.24e2 / 0.7e1 * t4723 * t6365 + 0.24e2 / 0.7e1 * t1545 * t19195 + 0.8e1 / 0.7e1 * t787 * t23028 + 0.8e1 / 0.7e1 * t296 * (t69073 + t69180 + t69204 + t69232 + t69258 + t69285 + t69308 + t69337)) * t41 * t45 * t373 + (-0.8e1 / 0.3e1 * t68859 * t311 - 0.8e1 / 0.3e1 * t22830 * t805 - 0.8e1 * t18855 * t1560 - 0.8e1 * t6204 * t4758 - 0.8e1 * t4723 * t6240 - 0.8e1 * t1545 * t18930 - 0.8e1 / 0.3e1 * t787 * t23097 - 0.8e1 / 0.3e1 * t296 * (t69387 + t69450)) * t316 - 0.3e1 / 0.5e1 * t58634 * t1540 - 0.392e3 / 0.675e3 * t3282 * t22904 + 0.18e2 / 0.25e2 * t46942 * t6193 - 0.10470113939449452090e-4 * t870 * t6386 * t1190 - 0.66e2 / 0.125e3 * t37717 * t22820 - 0.72676204058813440717e-5 * t831 * t6386 * t1190 + 0.24055706480953698645e-3 * t832 * t22805 + 0.78988816666666666668e-1 * t19199 * t1634 + 0.44233737333333333333e-1 * t4888 * t6381 - 0.31595526666666666666e-1 * t19200 * t1638 - 0.35386989866666666666e-1 * t872 * t23047;
23073   t69483 = 0.3e1 * t6175 * t4895 + t23158 * t933 * t428 - 0.36e2 * t5116 * t18829 - 0.18e2 * t19644 * t4712 - 0.18e2 * t1101 * t15125 * t6167 + 0.162e3 * t16173 * t18826 - 0.18e2 * t5116 * t18835 - 0.648e3 * t12321 * t37890 * t22722 + 0.3e1 * t1530 * t19214 + t23130 * t875 + 0.162e3 * t15112 * t22754 - 0.36e2 * t15118 * t22751 + t269 * (t69035 + t69480);
23074   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23075     v4rhosigma3[9] = -t68746 - t1352 * t2415 * t23195 * t767 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t68780 + t69483);
23076 
23077   t69522 = my_piecewise3(t76, 0, t67649 + 0.77e2 / 0.18000e5 * t490 * t7409 * t67654 * t943 - t67664 - 0.32877155009432492000e-4 * t54091 * t67671 * t19254);
23078   t69537 = t4926 * t5896;
23079   t69550 = t22434 * t954;
23080   t69553 = t5959 * t4919;
23081   t69561 = t982 * t22428;
23082   t69563 = -0.36e2 * t14676 * t69537 + 0.21e2 * t14670 * t22456 + 0.18e2 * t14661 * t19368 - 0.27e2 / 0.4e1 * t14664 * t19368 + 0.3e1 / 0.8e1 * t56377 * t4983 - 0.3e1 / 0.2e1 * t54127 * t19368 + 0.15e2 / 0.2e1 * t26708 * t69550 - 0.3e1 / 0.2e1 * t7644 * t69553 - t26699 * t69550 / 0.4e1 + 0.4e1 * t614 * t22670 * t954 - t2138 * t69561;
23083   t69574 = t7699 * t69537;
23084   t69578 = t4986 * t5896;
23085   t69581 = t1407 * t19259;
23086   t69588 = 0.2160e4 * t6054 * t4983 - 0.9e1 / 0.4e1 * t26574 * t69550 + 0.3e1 / 0.8e1 * t7655 * t69553 + t26679 * t69550 / 0.16e2 + 0.75e2 / 0.4e1 * t26580 * t69550 - 0.1080e4 * t69574 - 0.9e1 / 0.2e1 * t8910 * t22456 - 0.9e1 / 0.2e1 * t2102 * t69578 - 0.9e1 / 0.2e1 * t2102 * t69581 + 0.3e1 / 0.4e1 * t8901 * t22456 + 0.3e1 / 0.4e1 * t2107 * t69581;
23087   t69612 = 0.3e1 / 0.4e1 * t2107 * t69578 + 0.21e2 * t7673 * t69553 - 0.3e1 * t2138 * t69578 - 0.3e1 * t2138 * t69581 - 0.27e2 / 0.4e1 * t7667 * t69553 - 0.3e1 / 0.2e1 * t2102 * t69561 + t2107 * t69561 / 0.4e1 - 0.9e1 / 0.2e1 * t54294 * t4983 + 0.3e1 / 0.4e1 * t54325 * t4983 - 0.9e1 / 0.2e1 * t13678 * t19368 + 0.3e1 / 0.4e1 * t13671 * t19368;
23088   t69641 = -0.27e2 / 0.4e1 * t41667 * t19360 + 0.3e1 / 0.2e1 * t13671 * t19363 + 0.3e1 / 0.8e1 * t41786 * t19360 + 0.48e2 * t614 * t22446 * t954 - 0.36e2 * t614 * t5912 * t4919 - 0.48e2 * t26563 * t69550 + 0.12e2 * t614 * t4938 * t5896 + 0.12e2 * t614 * t1382 * t19259 + 0.18e2 * t41664 * t19360 - 0.9e1 * t13678 * t19363 - 0.30e2 * t2107 * t69550 + 0.18e2 * t7682 * t69553;
23089   t69665 = t22481 * t982;
23090   t69667 = 0.432e3 * t1448 * t5901 * t954 + 0.216e3 * t56558 * t1377 + 0.216e3 * t14796 * t5896 + 0.216e3 * t18566 * t4919 + 0.216e3 * t4464 * t19259 + 0.72e2 * t2947 * t22428 + 0.432e3 * t43676 * t5901 + 0.432e3 * t68137 * t4919 + 0.72e2 * t601 * t69522 + 0.72e2 * t68134 * t954 - 0.240e3 * t69665;
23091   t69668 = t954 * t22433;
23092   t69669 = t26388 * t69668;
23093   t69671 = t5901 * t4919;
23094   t69672 = t7699 * t69671;
23095   t69680 = t4919 * t5896;
23096   t69683 = t1377 * t19259;
23097   t69690 = t69522 * t86;
23098   t69697 = 0.2640e4 * t69669 - 0.1080e4 * t69672 + t28362 * t22434 / 0.8e1 + 0.432e3 * t19558 * t22461 + 0.432e3 * t8954 * t22461 + 0.432e3 * t2110 * t69680 + 0.432e3 * t2110 * t69683 - 0.9e1 / 0.4e1 * t28346 * t22434 + t2930 * t22437 / 0.2e1 + t598 * t69690 / 0.2e1 + 0.3e1 / 0.2e1 * t56612 * t1407 + 0.3e1 / 0.2e1 * t18562 * t4986;
23099   t69721 = 0.3e1 / 0.2e1 * t14609 * t5962 + 0.3e1 / 0.2e1 * t4447 * t19390 + 0.3e1 / 0.4e1 * t43235 * t5959 - 0.2880e4 * t959 * t22434 - 0.9e1 / 0.2e1 * t43508 * t5959 + 0.6e1 * t28206 * t22434 + t67872 * t982 / 0.2e1 + 0.2160e4 * t5959 * t5072 + 0.864e3 * t13711 * t19278 + 0.432e3 * t54492 * t4926 + 0.432e3 * t13711 * t19283;
23100   t69722 = t954 * t22428;
23101   t69771 = 0.4608e4 * t1401 * t19259 - 0.34560e5 * t1403 * t19259 + 0.484974e6 * t1446 * t19259 + 0.1536e4 * t22463 * t954 - 0.69120e5 * t22465 * t954 - 0.11520e5 * t22469 * t954 + 0.3233160e7 * t22552 * t954 - 0.103680e6 * t5952 * t4919 + 0.2424870e7 * t6034 * t4919 + 0.4608e4 * t4971 * t5896 - 0.34560e5 * t4975 * t5896 + 0.484974e6 * t5056 * t5896 - 0.8e1 * t69522 + 0.4608e4 * t69537;
23102   t69799 = -0.2880e4 * t101 * t69522 - 0.1105920e7 * t134 * t69522 + 0.26943e5 * t141 * t69522 - 0.103680e6 * t1430 * t19283 + 0.2424870e7 * t1432 * t19283 - 0.185794560e9 * t1434 * t19283 - 0.26542080e8 * t14747 * t5896 - 0.185794560e9 * t18646 * t4919 - 0.26542080e8 * t4440 * t19259 + 0.161658e6 * t22556 * t954 - 0.371589120e9 * t68095 * t954 - 0.8847360e7 * t68104 * t954 + 0.768e3 * t83 * t69522 + 0.4608e4 * t69671;
23103   t69805 = t77 * t69522;
23104   t69808 = t5999 * t4919;
23105   t69810 = t1401 * t19283;
23106   t69812 = t5016 * t5896;
23107   t69814 = t1430 * t19259;
23108   t69816 = t22565 * t954;
23109   t69818 = t128 * t69522;
23110   t69834 = 0.30720e5 * t130 * t69522 + 0.1843200e7 * t1403 * t19283 + 0.460800e6 * t1432 * t19259 + 0.1843200e7 * t22567 * t954 + 0.153600e6 * t22571 * t954 + 0.1843200e7 * t6003 * t4919 + 0.460800e6 * t5020 * t5896 - 0.34560e5 * t69668 + 0.1344e4 * t69680 + 0.1344e4 * t69683 + 0.448e3 * t69722 + 0.448e3 * t69805 - 0.103680e6 * t69808 - 0.103680e6 * t69810 - 0.51840e5 * t69812 - 0.51840e5 * t69814 - 0.17280e5 * t69816 - 0.5760e4 * t69818;
23111   t69837 = 0.144e3 * t2110 * t69722 - 0.2e1 * t614 * t84 * t69522 - 0.480e3 * t964 * t22437 + 0.240e3 * t986 * t22516 + 0.240e3 * t106 * t69522 * t81 - 0.1440e4 * t19323 * t1407 - 0.1440e4 * t5927 * t4986 + 0.720e3 * t4993 * t6044 + 0.720e3 * t1411 * t19551 + 0.144e3 * t22433 * t1017 + (t69771 + t69799) * t86 + 0.24e2 * t128 * t69834;
23112   t69868 = 0.78988816666666666668e-1 * t19592 * t1466 - 0.63191053333333333333e-1 * t5080 * t6069 - 0.32279388554715537600e-2 * t14956 * t5891 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t69522 * t151 + 0.8e1 / 0.7e1 * t22428 * t1026 + 0.24e2 / 0.7e1 * t19259 * t1457 + 0.24e2 / 0.7e1 * t5896 * t5075 + 0.24e2 / 0.7e1 * t4919 * t6057 + 0.24e2 / 0.7e1 * t1377 * t19588 + 0.8e1 / 0.7e1 * t954 * t22602 + 0.8e1 / 0.7e1 * t77 * (t69563 + t69588 + t69612 + t69641 + t69667 + t69697 + t69721 + t69837)) * t41 * t45 * t157 - 0.43862807160493827161e-1 * t57194 * t1425 + 0.38735266265658645120e-2 * t9047 * t1372 * t5891 + 0.30703965012345679013e-1 * t14831 * t5988 - 0.392e3 / 0.675e3 * t2904 * t22621 + 0.98e2 / 0.135e3 * t14824 * t5988 + 0.18e2 / 0.25e2 * t44217 * t5883 - 0.14e2 / 0.27e2 * t56839 * t1425 - 0.3e1 / 0.5e1 * t57179 * t1372 - 0.72676204058813440717e-5 * t993 * t6078 * t581;
23113   t69919 = 0.15e2 / 0.2e1 * t13842 * t19368;
23114   t69942 = 0.18e2 * t14925 * t19368 - 0.27e2 / 0.4e1 * t14928 * t19368 + 0.3e1 / 0.8e1 * t57059 * t4983 - t69919 + 0.18e2 * t41317 * t19360 - 0.9e1 * t13831 * t19363 - 0.30e2 * t2051 * t69550 + 0.18e2 * t7538 * t69553 - 0.9e1 / 0.2e1 * t9094 * t22456 - 0.9e1 / 0.2e1 * t2044 * t69578 - 0.9e1 / 0.2e1 * t2044 * t69581 + 0.3e1 / 0.4e1 * t9089 * t22456 + 0.3e1 / 0.4e1 * t2051 * t69581 + 0.3e1 / 0.4e1 * t2051 * t69578 - 0.27e2 / 0.4e1 * t41340 * t19360;
23115   t69961 = t79 * t69522 * t86;
23116   t69963 = 0.4608e4 * t69808;
23117   t69964 = 0.2304e4 * t69812;
23118   t69965 = 0.2304e4 * t69814;
23119   t69966 = 0.768e3 * t69816;
23120   t69971 = 0.1536e4 * t69668;
23121   t69972 = 0.4608e4 * t69810;
23122   t69973 = 0.256e3 * t69818;
23123   t69974 = 0.120e3 * t69680 + 0.120e3 * t69683 + 0.40e2 * t69722 + 0.40e2 * t69805 - t69971 - t69963 - t69972 - t69964 - t69965 - t69966 - t69973;
23124   t69978 = 0.3e1 / 0.2e1 * t13822 * t19363 + 0.3e1 / 0.8e1 * t41335 * t19360 + 0.75e2 / 0.4e1 * t26287 * t69550 - 0.27e2 / 0.4e1 * t7505 * t69553 - 0.9e1 / 0.4e1 * t26284 * t69550 - 0.3e1 / 0.2e1 * t2044 * t69561 + t2051 * t69561 / 0.4e1 + 0.10e2 * t78 * t69522 * t81 - 0.10e2 * t69961 + t69963 + t69964 + t69965 + t69966 + t69974 * t86 - 0.216e3 * t69680 - 0.216e3 * t69683;
23125   t69986 = t22650 * t982;
23126   t69988 = t5902 * t4986;
23127   t69990 = t22655 * t982;
23128   t69992 = t14940 * t5962;
23129   t69994 = t4399 * t19390;
23130   t70002 = t67798 * t982;
23131   t70004 = -0.72e2 * t69722 - 0.72e2 * t69805 + t69971 + t69973 + 0.3e1 / 0.2e1 * t14870 * t5962 + 0.3e1 / 0.2e1 * t4378 * t19390 - 0.100e3 * t69986 + 0.60e2 * t69988 + 0.55e2 / 0.2e1 * t69990 - 0.15e2 * t69992 - 0.15e2 * t69994 - 0.9e1 / 0.2e1 * t43878 * t5959 + 0.6e1 * t28053 * t22434 + t69972 + t67782 * t982 / 0.2e1 - 0.5e1 * t70002;
23132   t70006 = 0.15e2 / 0.2e1 * t18466 * t4986;
23133   t70021 = t67803 * t982;
23134   t70035 = t13834 * t19368;
23135   t70037 = -t70006 + 0.3e1 / 0.4e1 * t43915 * t5959 - 0.9e1 / 0.4e1 * t28050 * t22434 + t2874 * t22437 / 0.2e1 + t556 * t69690 / 0.2e1 + t28061 * t22434 / 0.8e1 + 0.3e1 / 0.2e1 * t57030 * t1407 + 0.3e1 / 0.2e1 * t18720 * t4986 - 0.5e1 / 0.4e1 * t70021 + 0.3e1 / 0.8e1 * t7500 * t69553 + t26297 * t69550 / 0.16e2 - 0.9e1 / 0.2e1 * t54782 * t4983 + 0.3e1 / 0.4e1 * t54778 * t4983 - 0.9e1 / 0.2e1 * t13831 * t19368 + 0.3e1 / 0.4e1 * t13822 * t19368 + 0.60e2 * t70035;
23136   t70042 = 0.144e3 * t4919 * t109 * t5896 + 0.144e3 * t56874 * t5896 + 0.144e3 * t18697 * t19259 + 0.288e3 * t67626 * t4919 + 0.144e3 * t5901 * t4998 + 0.144e3 * t954 * t5974 * t1377 + 0.144e3 * t56866 * t1377 + 0.144e3 * t18714 * t4919 + 0.144e3 * t19343 * t5896 + 0.144e3 * t14861 * t5896 + 0.144e3 * t4365 * t19259 + 0.48e2 * t4961 * t22428 + 0.48e2 * t2862 * t22428 + 0.48e2 * t547 * t69522 + 0.48e2 * t67686 * t954 + 0.24e2 * t83 * (t69942 + t69978 + t70004 + t70037);
23137   t70096 = 0.21e2 / 0.2e1 * t5918 * t4986 + 0.15e2 / 0.4e1 * t22675 * t982 - 0.3e1 / 0.2e1 * t43873 * t5962 - 0.3e1 / 0.2e1 * t13834 * t19390 - 0.3e1 / 0.4e1 * t18437 * t4986 - t68327 * t982 / 0.8e1 + 0.6e1 * t1991 * t69680 + 0.6e1 * t1991 * t69683 + 0.2e1 * t1991 * t69722 - t4923 * t22437 / 0.2e1 - t521 * t69522 - 0.18e2 * t69574;
23138   t70122 = -t69919 + t68381 * t982 / 0.16e2 - 0.3e1 * t5072 * t5962 - 0.3e1 * t1454 * t19390 - t22437 * t1023 + t68388 * t982 / 0.4e1 + 0.3e1 / 0.4e1 * t57310 * t1407 + 0.3e1 / 0.4e1 * t18475 * t4986 + 0.3e1 / 0.8e1 * t18480 * t4986 + t525 * t69522 * t86 / 0.2e1 - 0.12e2 * t4919 * t87 * t5896 - 0.12e2 * t18483 * t19259;
23139   t70137 = -0.4e1 * t4943 * t22428 - 0.4e1 * t529 * t69522 - t69961 - 0.75e2 / 0.2e1 * t69986 + 0.45e2 / 0.2e1 * t69988 + 0.85e2 / 0.4e1 * t69990 - 0.6e1 * t69992 - 0.6e1 * t69994 - 0.2e1 * t70002 - t70006 - 0.19e2 / 0.8e1 * t70021 + 0.3e1 / 0.8e1 * t54963 * t4983 + 0.45e2 / 0.2e1 * t70035;
23140   t70160 = 0.2e1 * t954 * t22684 + 0.2e1 * t77 * (t70122 + t70137) + 0.6e1 * t4919 * t5929 + 0.6e1 * t1377 * t19325 + 0.2e1 * t69522 * t90 + 0.2e1 * t22428 * t966 + 0.6e1 * t19259 * t1389 + 0.6e1 * t5896 * t4951 - 0.24e2 * t69665 + 0.24e2 * t69669 - 0.18e2 * t69672 + 0.21e2 / 0.2e1 * t4538 * t19368 - 0.3e1 / 0.4e1 * t41402 * t19368;
23141   t70166 = -0.10470113939449452090e-4 * t1029 * t6078 * t581 + 0.54828508950617283951e-1 * t19421 * t51 * t124 - 0.17182647486395499033e-3 * t5002 * t5991 - 0.10470113939449452090e-4 * t5078 * sigma[0] * t6079 + 0.35e2 / 0.81e2 * t70042 * t120 * t124 + 0.44233737333333333333e-1 * t1031 * t22306 - 0.35386989866666666666e-1 * t1031 * t22628 - 0.31595526666666666666e-1 * t19593 * t1470 + 0.44233737333333333333e-1 * t5080 * t6073 - 0.66e2 / 0.125e3 * t28457 * t22301 + 0.14658159515229232926e-4 * t19604 * t22635 + 0.24055706480953698645e-3 * t994 * t22638 + (-0.8e1 / 0.3e1 * t69522 * t93 - 0.8e1 / 0.3e1 * t22428 * t969 - 0.8e1 * t19259 * t1392 - 0.8e1 * t5896 * t4954 - 0.8e1 * t4919 * t5932 - 0.8e1 * t1377 * t19328 - 0.8e1 / 0.3e1 * t954 * t22687 - 0.8e1 / 0.3e1 * t77 * (t70096 + t70160)) * t98;
23142   t70179 = -0.36e2 * t4310 * t19241 + 0.162e3 * t13213 * t19238 - 0.18e2 * t18120 * t4911 + 0.3e1 * t1362 * t19607 - 0.648e3 * t6995 * t28588 * t22239 - 0.36e2 * t14556 * t22231 + t22344 * t1074 * t230 + t33 * (t69868 + t70166) + 0.3e1 * t5865 * t5087 + t22278 * t1034 + 0.162e3 * t14550 * t22234 - 0.18e2 * t4310 * t19247 - 0.12e2 * t478 * t1034 * t22239;
23143   t70209 = -t19249 + t1075 * t22366 / 0.10e2 + 0.162e3 * t1862 * t44361 * t5855 - 0.18e2 * t478 * t56189 * t1356 + 0.3e1 / 0.10e2 * t19609 * t1496 + 0.3e1 / 0.10e2 * t5089 * t6118 - 0.36e2 * t4310 * t19244 - 0.36e2 * t478 * t44275 * t5855 - 0.18e2 * t478 * t14563 * t5857 + 0.324e3 * t1862 * t29287 * t22239 - 0.27e2 / 0.100e3 * t5089 * t6099 + 0.171e3 / 0.1000e4 * t1075 * t22361 - 0.27e2 / 0.100e3 * t1075 * t22374;
23144   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23145     v4rhosigma3[10] = -t67249 - t1352 * t2774 * t22711 * t944 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t70179 + t70209);
23146 
23147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23148     v4rhosigma3[11] = 0.0e0;
23149 
23150   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23151     v4rhosigma3[12] = 0.0e0;
23152 
23153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23154     v4rhosigma3[13] = 0.0e0;
23155 
23156   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23157     v4rhosigma3[14] = 0.0e0;
23158 
23159   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23160     v4rhosigma3[15] = 0.0e0;
23161 
23162   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23163     v4rhosigma3[16] = 0.0e0;
23164 
23165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23166     v4rhosigma3[17] = 0.0e0;
23167 
23168   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23169     v4rhosigma3[18] = 0.0e0;
23170 
23171   t70223 = t23158 * t1291;
23172   t70231 = t38258 * t22722 * t1091;
23173   t70234 = t19657 * t5106;
23174   t70238 = t38189 * t22722 * t1091;
23175   t70243 = t6165 * t5106;
23176   t70245 = t5102 * t6167;
23177   t70247 = t5107 * t6167;
23178   t70250 = (0.6e1 * t5106 * t6167 + t19635 + t19641 + t23126 + t23128 + t6169 + t6173 + 0.54e2 * t70243 + 0.54e2 * t70245 + 0.54e2 * t70247) * t268;
23179   t70257 = t23129 * t1100;
23180   t70268 = 0.6e1 * t70257 * t1094 + 0.7776e4 * t12321 * t70231 + 0.1944e4 * t12321 * t70234 + 0.18e2 * t59577 * t1527 + 0.36e2 * t16110 * t6170 - 0.162e3 * t16173 * t19677 + 0.36e2 * t5116 * t19640 + 0.18e2 * t19644 * t5111 + 0.1944e4 * t21285 * t70245 - 0.972e3 * t21288 * t70245 + 0.12e2 * t3810 * t22722 - 0.9720e4 * t38188 * t70238 - 0.162e3 * t48834 * t6394 - t19679 + t19681 - t23153 + t23157 + t6400 - t70250;
23181   t70272 = t262 * t22722 * t1091;
23182   t70275 = t19661 * t5106;
23183   t70280 = t16229 * t6167;
23184   t70309 = 0.36e2 * t1101 * t70243 + 0.36e2 * t1101 * t70245 + 0.36e2 * t1101 * t70247 - 0.162e3 * t12312 * t22754 - 0.324e3 * t12312 * t23149 + 0.18e2 * t16110 * t6172 - 0.972e3 * t16173 * t19662 - 0.324e3 * t16173 * t19665 + 0.36e2 * t5116 * t19636 + 0.72e2 * t5116 * t19638 + 0.36e2 * t19644 * t5109 + 0.1944e4 * t48839 * t19658 + 0.36e2 * t3810 * t22751 + 0.648e3 * t38183 * t23146 - 0.1080e4 * t3817 * t70272 - 0.972e3 * t3817 * t70275 - 0.162e3 * t3817 * t70280 - 0.162e3 * t59594 * t5124 + t19675 + t23145;
23185   t70310 = t70268 + t70309;
23186   t70323 = t1680 * t1091;
23187   t70329 = 0.3e1 / 0.10e2 * t61564 * t1663 + 0.3e1 / 0.10e2 * t19692 * t5441 + t70223 * t1314 / 0.10e2 + t70310 * t428 - t22721 - 0.12e2 * t3810 * t22744 + 0.324e3 * t3817 * t39425 * t22722 - 0.36e2 * t5116 * t19808 - 0.36e2 * t5116 * t19812 + 0.324e3 * t12312 * t22734 - 0.36e2 * t1101 * t70323 * t6165 - 0.36e2 * t16110 * t6442 - t22738;
23188   t70357 = -t19696 - t19699 - 0.18e2 * t1101 * t16180 * t6167 - 0.18e2 * t19644 * t5462 - 0.36e2 * t16110 * t6439 - 0.18e2 * t3810 * t22719 - 0.18e2 * t1101 * t19701 * t5106 - 0.27e2 / 0.100e3 * t4278 * t1663 * t19800 - 0.27e2 / 0.100e3 * t4278 * t5441 * t6425 + 0.513e3 / 0.1000e4 * t12495 * t6406 * t5441 - 0.4959e4 / 0.10000e5 * t39396 * t22791 * t1314 - 0.27e2 / 0.50e2 * t16942 * t19626 + t70250 * t441;
23189   t70359 = t23190 * t262;
23190   t70383 = -0.73e2 / 0.2430e4 * t46 * t1112 * t6167 * t424 + t23108 - 0.73e2 / 0.3240e4 * t46 * t23105 * t1091 + 0.73e2 / 0.1215e4 * t46 * t1112 * t6165 - 0.73e2 / 0.1620e4 * t46 * t6411 * t5106 + 0.73e2 / 0.2430e4 * t46 * t5418 * t6167 - t23114 - t19791 - t6420 + t19793 + 0.292e3 / 0.45e2 * t19789 * t1524 + t23116 + 0.292e3 / 0.45e2 * t6418 * t5106 + t19799 + t6424;
23191   t70401 = t22747 * t1314;
23192   t70412 = -0.6e1 * t1101 * t70359 * t1091 + t1342 * t70383 / 0.10e2 + 0.3e1 * t5114 * t6460 - 0.18e2 * t3810 * t22726 - t6447 - 0.18e2 * t1101 * t59735 * t1524 + 0.3e1 * t6175 * t5486 - 0.36e2 * t1101 * t48811 * t6165 - 0.36e2 * t1101 * t23608 * t5106 + 0.513e3 / 0.1000e4 * t12495 * t70401 + 0.162e3 * t3817 * t50472 * t6165 - 0.648e3 * t38183 * t22723 - 0.648e3 * t12321 * t39399 * t22722;
23193   t70429 = t16237 * t19634;
23194   t70437 = 0.162e3 * t12312 * t22741 + 0.162e3 * t16222 * t22754 + 0.162e3 * t16226 * t22754 + 0.162e3 * t5453 * t70280 - 0.36e2 * t5459 * t70247 - 0.72e2 * t19833 * t19638 + 0.972e3 * t19836 * t19662 + 0.972e3 * t5453 * t70275 - 0.1944e4 * t16236 * t70429 - 0.12e2 * t1101 * t1339 * t22722 - 0.27e2 / 0.100e3 * t12440 * t22747 - t22753 + t22756;
23195   t70453 = t1101 * t6460;
23196   t70456 = t3817 * t6460;
23197   t70469 = -0.9e1 / 0.100e3 * t4278 * t23117 * t1314 + 0.513e3 / 0.1000e4 * t50448 * t20438 + 0.1080e4 * t5453 * t70272 - 0.7776e4 * t16236 * t70231 - 0.1944e4 * t16236 * t70234 + 0.9720e4 * t50425 * t70238 - 0.36e2 * t70453 * t5109 + 0.162e3 * t70456 * t5124 - 0.36e2 * t19818 * t19640 - 0.36e2 * t5116 * t19815 - 0.36e2 * t5116 * t19803 - 0.18e2 * t16110 * t6445 + 0.3e1 * t1530 * t19760;
23198   t70484 = t16769 * t6193;
23199   t70487 = t12388 * t6193;
23200   t70488 = t70487 * t1122;
23201   t70491 = t19737 * t5165;
23202   t70498 = t22820 * t1122;
23203   t70501 = t6193 * t5165;
23204   t70508 = t58 * t57712;
23205   t70516 = 0.1056e4 / 0.625e3 * t38855 * t22820 * t1122 - 0.198e3 / 0.125e3 * t19722 * t5165 - 0.85217585784449019264e-2 * t16125 * t55 * t19728 + 0.38735266265658645120e-2 * t16128 * t6199 - 0.20658808675017944064e-1 * t5470 * t19757 - 0.19983387292181069959e0 * t46 * t70484 - 0.17985048562962962963e0 * t1535 * t70488 + 0.14987540469135802469e0 * t1535 * t70491 + 0.14190187476264636929e-3 * t20076 + 0.24832828083463114625e-4 * t20284 - 0.392e3 / 0.375e3 * t39460 * t22820 + 0.6664e4 / 0.1875e4 * t39465 * t70498 - 0.392e3 / 0.125e3 * t12389 * t70501 + 0.70297335074713837440e-2 * t12382 * t1540 * t6199 - 0.16871360417931320986e-1 * t12389 * t1540 * t70508 + 0.70297335074713837440e-2 * t4267 * t5165 * t6199 - 0.37491912039847379968e-1 * t23187 * t19757;
23206   t70537 = -0.27e2 / 0.100e3 * t16942 * t19629 + t269 * t70516 + t23130 * t1339 + 0.3e1 * t19643 * t1680 - 0.72e2 * t19818 * t19638 + 0.972e3 * t19822 * t19662 - 0.36e2 * t16197 * t22751 - 0.36e2 * t16241 * t22751 - 0.36e2 * t5459 * t70245 + 0.162e3 * t19822 * t19677 - t19828 - 0.18e2 * t5116 * t19702 - 0.18e2 * t59577 * t1670;
23207   t70553 = t19644 * t441;
23208   t70556 = t59594 * t441;
23209   t70559 = t5116 * t1680;
23210   t70562 = t16173 * t1680;
23211   t70569 = -0.18e2 * t19644 * t5456 - 0.36e2 * t19833 * t19640 + 0.162e3 * t19836 * t19677 + 0.324e3 * t19836 * t19665 - 0.1944e4 * t59655 * t19658 + 0.324e3 * t19822 * t19665 - 0.1944e4 * t59635 * t19658 - 0.36e2 * t70553 * t5109 + 0.162e3 * t70556 * t5124 - 0.72e2 * t70559 * t5109 + 0.324e3 * t70562 * t5124 - 0.27e2 / 0.100e3 * t59580 * t5494 + 0.3e1 / 0.10e2 * t5489 * t19800;
23212   t70593 = t16173 * t1641;
23213   t70608 = t5116 * t1641;
23214   t70617 = -t19846 - 0.18e2 * t16110 * t6190 + 0.324e3 * t70593 * t5124 - 0.36e2 * t20419 * t19640 + 0.162e3 * t20422 * t19677 + 0.324e3 * t20425 * t19665 - 0.1944e4 * t61347 * t19658 - 0.36e2 * t16110 * t6184 + 0.513e3 / 0.1000e4 * t21496 * t70401 - 0.72e2 * t70608 * t5109 + 0.162e3 * t20425 * t19677 - 0.36e2 * t16875 * t22751 - 0.36e2 * t16870 * t22751;
23215   t70626 = t3817 * t6390;
23216   t70639 = t19644 * t376;
23217   t70642 = t59594 * t376;
23218   t70645 = -0.36e2 * t5130 * t70245 - 0.36e2 * t5130 * t70247 - 0.36e2 * t20369 * t19640 - 0.27e2 / 0.100e3 * t6402 * t5407 + 0.162e3 * t70626 * t5124 + t22766 - t20344 + t1244 * t23118 / 0.10e2 + t1285 * t23118 / 0.10e2 + 0.324e3 * t20422 * t19665 - 0.1944e4 * t61125 * t19658 - 0.18e2 * t5116 * t20403 - 0.36e2 * t70639 * t5109 + 0.162e3 * t70642 * t5124;
23219   t70670 = -0.36e2 * t16110 * t6187 - 0.18e2 * t1101 * t59775 * t1524 - 0.36e2 * t5116 * t20386 - 0.36e2 * t5116 * t20352 - 0.27e2 / 0.100e3 * t5398 * t6407 + 0.171e3 / 0.1000e4 * t1244 * t22792 - 0.27e2 / 0.100e3 * t5396 * t6407 - t20373 + t20375 - t22778 - 0.36e2 * t5116 * t20389 - 0.27e2 / 0.100e3 * t1244 * t23132 - 0.27e2 / 0.100e3 * t1285 * t23132 - 0.18e2 * t5116 * t20342;
23220   t70680 = t1641 * t1091;
23221   t70694 = t4189 * t23117;
23222   t70704 = -0.18e2 * t1101 * t20402 * t5106 - 0.4959e4 / 0.10000e5 * t406 * t39325 * t22791 * t1314 - t22785 + t23159 * t1315 / 0.10e2 - 0.36e2 * t1101 * t70680 * t6165 + 0.324e3 * t12312 * t22762 - 0.1944e4 * t16906 * t70429 - 0.7776e4 * t16906 * t70231 + 0.162e3 * t16895 * t22754 - 0.27e2 / 0.50e2 * t1646 * t20339 - 0.9e1 / 0.100e3 * t406 * t70694 * t1314 + 0.3e1 / 0.10e2 * t20378 * t1664 + 0.171e3 / 0.1000e4 * t1285 * t22792 + 0.3e1 / 0.10e2 * t20380 * t1664;
23223   t70737 = -0.6e1 * t70257 * t1103 + 0.162e3 * t16173 * t20324 - 0.18e2 * t59577 * t1532 + 0.162e3 * t48834 * t6181 + 0.162e3 * t3817 * t49000 * t6165 - 0.36e2 * t5116 * t20406 + 0.513e3 / 0.1000e4 * t1646 * t20362 + t1097 * t23103 + 0.3e1 * t1530 * t20322 - 0.12e2 * t1101 * t1239 * t22722 + t406 * t1291 * t70383 / 0.10e2 + 0.3e1 * t5114 * t6390 + 0.972e3 * t20425 * t19662 + 0.972e3 * t5122 * t70275;
23224   t70768 = -0.18e2 * t3810 * t22779 + 0.1080e4 * t5122 * t70272 - 0.27e2 / 0.100e3 * t406 * t5406 * t19800 + 0.162e3 * t12312 * t22771 - 0.36e2 * t1101 * t23673 * t5106 - 0.18e2 * t1101 * t16834 * t6167 - 0.12e2 * t3810 * t22797 - 0.27e2 / 0.100e3 * t406 * t16917 * t6425 + t23130 * t1239 + t70250 * t376 - 0.18e2 * t3810 * t23135 + 0.3e1 / 0.10e2 * t5398 * t6426 + 0.3e1 / 0.10e2 * t1646 * t20345 + 0.162e3 * t16898 * t22754;
23225   t70777 = t23103 * t262;
23226   t70799 = t22897 * t41;
23227   t70807 = -0.14e2 / 0.27e2 * t60511 * t1593 + 0.98e2 / 0.135e3 * t16599 * t6296 + 0.98e2 / 0.135e3 * t16602 * t6296 + 0.30703965012345679013e-1 * t16577 * t6296 - 0.14e2 / 0.27e2 * t60506 * t1593 - 0.14e2 / 0.27e2 * t19964 * t5236 - 0.20658808675017944064e-1 * t23036 * t19757 - 0.35179582836550159022e-4 * t6384 * t6386 * t50131 * t1122 - 0.21931403580246913580e-1 * t70799 * t1192 + 0.38735266265658645120e-2 * t16692 * t55 * t19728 + 0.24055706480953698646e-3 * t1587 * t20108;
23228   t70838 = -0.63191053333333333333e-1 * t5310 * t6377 - 0.63191053333333333333e-1 * t1630 * t19741 - 0.43862807160493827161e-1 * t60500 * t1593 - 0.70212281481481481483e-1 * t23033 * t1232 + 0.11696748576131687243e0 * t59965 * t1593 + 0.12031576554666666666e0 * t5323 * t50018 * t70498 - 0.10616096960000000000e0 * t5323 * t16765 * t70501 + 0.44233737333333333332e-1 * t6369 * t410 * t5326 + 0.35e2 / 0.81e2 * t22890 * t1184 * t340 + 0.17215673895848286720e-1 * t5227 * t19757 + 0.38735266265658645120e-2 * t12649 * t1540 * t6199 + 0.38735266265658645120e-2 * t3870 * t5165 * t6199;
23229   t70914 = my_piecewise3(t295, 0, t68846 + 0.2387e4 / 0.60000e5 * t490 * t38303 * t22821 * t1122 + 0.77e2 / 0.18000e5 * t490 * t12553 * t68847 * t1127 - 0.77e2 / 0.2000e4 * t490 * t12553 * t6194 * t5165 - t68853 - 0.20712607655942469960e-3 * t38 * t40 * t12552 * t1541 * t55 * t19728 - 0.32877155009432492000e-4 * t57709 * t68854 * t19864 + 0.98631465028297476000e-4 * t5889 * t19859 * t5165 * t6199 - 0.52603448015091987200e-3 * t5889 * t22825 * t19757);
23230   t70919 = t22875 * t1133;
23231   t70924 = t6267 * t5171;
23232   t70927 = t22833 * t1133;
23233   t70928 = t70927 * t304;
23234   t70949 = t14200 * t20008;
23235   t70952 = 0.15e2 / 0.2e1 * t14206 * t20008;
23236   t70953 = -0.3e1 / 0.2e1 * t2517 * t70919 + t2524 * t70919 / 0.4e1 + 0.3e1 / 0.8e1 * t8127 * t70924 + t25024 * t70928 / 0.16e2 - 0.9e1 / 0.2e1 * t55669 * t5190 + 0.18e2 * t15275 * t20008 - 0.27e2 / 0.4e1 * t15278 * t20008 + 0.3e1 / 0.8e1 * t57809 * t5190 + 0.18e2 * t42576 * t20000 - 0.9e1 * t14275 * t20003 - 0.27e2 / 0.4e1 * t42583 * t20000 - 0.30e2 * t2524 * t70928 + 0.18e2 * t8140 * t70924 + 0.60e2 * t70949 - t70952;
23237   t70972 = t23065 * t1166;
23238   t70974 = t15272 * t6270;
23239   t70976 = t4739 * t20023;
23240   t70979 = 0.15e2 / 0.2e1 * t18898 * t5193;
23241   t70980 = t68967 * t1166;
23242   t70982 = t68970 * t1166;
23243   t70986 = 0.3e1 / 0.4e1 * t55646 * t5190 - 0.9e1 / 0.2e1 * t14275 * t20008 + 0.3e1 / 0.4e1 * t14269 * t20008 + 0.3e1 / 0.2e1 * t15241 * t6270 + 0.3e1 / 0.2e1 * t4783 * t20023 + 0.3e1 / 0.4e1 * t44774 * t6267 + t29739 * t22862 / 0.8e1 + 0.3e1 / 0.2e1 * t57662 * t1575 + 0.3e1 / 0.2e1 * t18992 * t5193 + 0.55e2 / 0.2e1 * t70972 - 0.15e2 * t70974 - 0.15e2 * t70976 - t70979 - 0.5e1 / 0.4e1 * t70980 - 0.5e1 * t70982 + t68927 * t1166 / 0.2e1;
23244   t70990 = t23060 * t1166;
23245   t70992 = t6210 * t5193;
23246   t70994 = t1569 * t19896;
23247   t70995 = 0.4608e4 * t70994;
23248   t71002 = t70914 * t304;
23249   t71009 = t297 * t70914 * t304;
23250   t71011 = t6307 * t5171;
23251   t71012 = 0.4608e4 * t71011;
23252   t71013 = t5246 * t6204;
23253   t71014 = 0.2304e4 * t71013;
23254   t71015 = t1598 * t19872;
23255   t71016 = 0.2304e4 * t71015;
23256   t71017 = t22955 * t1133;
23257   t71018 = 0.768e3 * t71017;
23258   t71023 = -0.9e1 / 0.2e1 * t44766 * t6267 - 0.100e3 * t70990 + 0.60e2 * t70992 + t70995 + 0.6e1 * t29745 * t22862 - 0.9e1 / 0.4e1 * t29751 * t22862 + t3252 * t22875 / 0.2e1 + t819 * t71002 / 0.2e1 + 0.10e2 * t78 * t70914 * t299 - 0.10e2 * t71009 + t71012 + t71014 + t71016 + t71018 + 0.3e1 / 0.2e1 * t14269 * t20003 + 0.3e1 / 0.8e1 * t42598 * t20000;
23259   t71028 = t5193 * t6204;
23260   t71031 = t1575 * t19872;
23261   t71044 = t5171 * t6204;
23262   t71046 = t1545 * t19872;
23263   t71048 = t1133 * t22830;
23264   t71050 = t296 * t70914;
23265   t71052 = 0.1536e4 * t70927;
23266   t71053 = t344 * t70914;
23267   t71054 = 0.256e3 * t71053;
23268   t71055 = 0.120e3 * t71044 + 0.120e3 * t71046 + 0.40e2 * t71048 + 0.40e2 * t71050 - t71052 - t71012 - t70995 - t71014 - t71016 - t71018 - t71054;
23269   t71061 = 0.75e2 / 0.4e1 * t25004 * t70928 - 0.9e1 / 0.2e1 * t9713 * t22865 - 0.9e1 / 0.2e1 * t2517 * t71028 - 0.9e1 / 0.2e1 * t2517 * t71031 + 0.3e1 / 0.4e1 * t9704 * t22865 + 0.3e1 / 0.4e1 * t2524 * t71031 + 0.3e1 / 0.4e1 * t2524 * t71028 - 0.27e2 / 0.4e1 * t8120 * t70924 - 0.9e1 / 0.4e1 * t25041 * t70928 + t71055 * t304 - 0.216e3 * t71044 - 0.216e3 * t71046 - 0.72e2 * t71048 - 0.72e2 * t71050 + t71052 + t71054;
23270   t71066 = 0.144e3 * t5171 * t327 * t6204 + 0.144e3 * t57855 * t6204 + 0.144e3 * t18941 * t19872 + 0.288e3 * t68823 * t5171 + 0.144e3 * t6209 * t5208 + 0.144e3 * t1133 * t6282 * t1545 + 0.144e3 * t57902 * t1545 + 0.144e3 * t18958 * t5171 + 0.144e3 * t19981 * t6204 + 0.144e3 * t15187 * t6204 + 0.144e3 * t4771 * t19872 + 0.48e2 * t5146 * t22830 + 0.48e2 * t3240 * t22830 + 0.48e2 * t810 * t70914 + 0.48e2 * t68862 * t1133 + 0.24e2 * t301 * (t70953 + t70986 + t71023 + t71061);
23271   t71076 = -0.43862807160493827161e-1 * t19967 * t5236 + 0.54828508950617283951e-1 * t20059 * t274 * t340 - 0.85217585784449019264e-2 * t12656 * t1540 * t70508 + 0.44233737333333333333e-1 * t5310 * t6381 - 0.11795663288888888889e0 * t1630 * t20311 - 0.32279388554715537600e-2 * t16362 * t6199 + 0.14658159515229232926e-4 * t6384 * t20283 * t5165 + 0.35e2 / 0.81e2 * t71066 * t336 * t340 - 0.81877240032921810701e-1 * t16586 * t6296 + 0.16850947555555555555e0 * t1630 * t19734 + 0.24055706480953698645e-3 * t1185 * t22805;
23272   t71082 = t23100 * t1154;
23273   t71151 = 0.45e2 / 0.2e1 * t70949 - t70952 - t1221 * t22875 + t69403 * t1166 / 0.16e2 - 0.3e1 * t5302 * t6270 - 0.3e1 * t1622 * t20023 + t69394 * t1166 / 0.4e1 + 0.3e1 / 0.4e1 * t58019 * t1575 + 0.3e1 / 0.4e1 * t18907 * t5193 + 0.3e1 / 0.8e1 * t18912 * t5193 + 0.85e2 / 0.4e1 * t70972 - 0.6e1 * t70974;
23274   t71171 = -0.6e1 * t70976 - t70979 - 0.19e2 / 0.8e1 * t70980 - 0.2e1 * t70982 - 0.75e2 / 0.2e1 * t70990 + 0.45e2 / 0.2e1 * t70992 + 0.3e1 / 0.8e1 * t55456 * t5190 - t71009 - 0.4e1 * t797 * t70914 - 0.12e2 * t5171 * t305 * t6204 - 0.12e2 * t18915 * t19872 - 0.4e1 * t5368 * t22830 + t793 * t70914 * t304 / 0.2e1;
23275   t71183 = 0.21e2 / 0.2e1 * t4745 * t20008 - 0.3e1 / 0.4e1 * t42403 * t20008 + 0.6e1 * t19872 * t1557 + 0.6e1 * t6204 * t5374 + 0.6e1 * t5171 * t6237 + 0.6e1 * t1545 * t19938 + 0.2e1 * t1133 * t23094 + 0.2e1 * t296 * (t71151 + t71171) + 0.2e1 * t70914 * t308 + 0.2e1 * t22830 * t1145 + 0.6e1 * t2464 * t71044 + 0.6e1 * t2464 * t71046;
23276   t71200 = t24907 * t70927;
23277   t71202 = t6209 * t5171;
23278   t71203 = t8039 * t71202;
23279   t71205 = t9594 * t22862;
23280   t71207 = t18901 * t5190;
23281   t71210 = 0.2e1 * t2464 * t71048 - t5350 * t22875 / 0.2e1 + 0.21e2 / 0.2e1 * t6226 * t5193 + 0.15e2 / 0.4e1 * t23085 * t1166 - 0.3e1 / 0.2e1 * t44763 * t6270 - 0.3e1 / 0.2e1 * t14200 * t20023 - 0.3e1 / 0.4e1 * t18869 * t5193 - t69372 * t1166 / 0.8e1 + 0.24e2 * t71200 - 0.18e2 * t71203 - 0.24e2 * t71205 - 0.18e2 * t71207 - t789 * t70914;
23282   t71216 = 0.24055706480953698645e-3 * t337 * t61529 * t282 + 0.83760911515595616720e-4 * t22802 * t20076 - t71082 * t1122 / 0.5e1 - 0.11726527612183386341e-3 * t6384 * t61074 * t1540 - 0.14620935720164609054e0 * t6285 * t1112 * t340 + 0.14658159515229232926e-4 * t22802 * t20284 + 0.58140963247050752574e-4 * t330 * t20075 * t1190 + 0.24055706480953698645e-3 * t1178 * t22805 + 0.78988816666666666668e-1 * t20277 * t1634 - 0.66e2 / 0.125e3 * t38569 * t22820 - 0.12829710123175305944e-2 * t337 * t19737 * t1118 + (-0.8e1 / 0.3e1 * t70914 * t311 - 0.8e1 / 0.3e1 * t22830 * t1148 - 0.8e1 * t19872 * t1560 - 0.8e1 * t6204 * t5377 - 0.8e1 * t5171 * t6240 - 0.8e1 * t1545 * t19941 - 0.8e1 / 0.3e1 * t1133 * t23097 - 0.8e1 / 0.3e1 * t296 * (t71183 + t71210)) * t316;
23283   t71244 = -0.10616096960000000000e0 * t372 * t19946 - 0.198e3 / 0.125e3 * t12656 * t70501 - 0.17182647486395499033e-3 * t5215 * t6299 + 0.1056e4 / 0.625e3 * t38856 * t70498 + 0.10174668568233881700e-4 * t23043 * t50514 + 0.18e2 / 0.25e2 * t50282 * t6193 - 0.3e1 / 0.5e1 * t60497 * t1540 - 0.17182647486395499033e-3 * t5212 * t6299 - 0.198e3 / 0.125e3 * t50109 * t19746 + 0.36e2 / 0.25e2 * t16692 * t19749 - 0.57733695554288876748e-3 * t337 * t12388 * t1540 * t282 * t1122;
23284   t71271 = -0.392e3 / 0.225e3 * t5317 * t20305 + 0.196e3 / 0.135e3 * t5317 * t20308 - 0.73689516029629629631e-1 * t5320 * t20305 + 0.61407930024691358026e-1 * t5320 * t20308 + 0.94365306311111111109e-1 * t372 * t1113 * t23046 + 0.84254737777777777776e-1 * t6370 * t5336 + 0.88467474666666666666e-1 * t1630 * t5326 + 0.98e2 / 0.135e3 * t19964 * t5333 - 0.31595526666666666666e-1 * t6370 * t5342 + 0.18e2 / 0.25e2 * t59998 * t5325 - 0.10470113939449452090e-4 * t5308 * sigma[2] * t6387 + 0.14658159515229232926e-4 * t22912 * t50514;
23285   t71297 = 0.88467474666666666666e-1 * t372 * t19949 + 0.6664e4 / 0.3375e4 * t1188 * t38540 * t70498 - 0.392e3 / 0.225e3 * t1188 * t12719 * t70501 - 0.31595526666666666666e-1 * t20278 * t1638 - 0.10531842222222222222e-1 * t23033 * t1236 - 0.35386989866666666666e-1 * t1229 * t23047 + 0.61407930024691358025e-1 * t19967 * t5333 - 0.21063684444444444445e0 * t6369 * t5222 + 0.44233737333333333333e-1 * t1229 * t22915 - 0.11795663288888888889e0 * t372 * t70484 - 0.3e1 / 0.5e1 * t20290 * t5165;
23286   t71351 = 0.18e2 * t15490 * t20008 - 0.27e2 / 0.4e1 * t15494 * t20008 + 0.3e1 / 0.8e1 * t58422 * t5190 + 0.21e2 * t55740 * t20008 + 0.3e1 / 0.8e1 * t42773 * t20000 - 0.9e1 / 0.2e1 * t55962 * t5190 + 0.3e1 / 0.4e1 * t55827 * t5190 + 0.48e2 * t863 * t22834 * t1133 - 0.36e2 * t863 * t6220 * t5171 + 0.12e2 * t863 * t5363 * t6204 + 0.12e2 * t863 * t1550 * t19872;
23287   t71387 = 0.1843200e7 * t22957 * t1133 + 0.153600e6 * t22961 * t1133 + 0.1843200e7 * t1571 * t19896 + 0.460800e6 * t1600 * t19872 + 0.30720e5 * t346 * t70914 + 0.1843200e7 * t6311 * t5171 + 0.460800e6 * t5250 * t6204 - 0.34560e5 * t70927 - 0.103680e6 * t70994 - 0.103680e6 * t71011 - 0.51840e5 * t71013 - 0.51840e5 * t71015 - 0.17280e5 * t71017 + 0.1344e4 * t71044 + 0.1344e4 * t71046 + 0.448e3 * t71048 + 0.448e3 * t71050 - 0.5760e4 * t71053;
23288   t71392 = t5176 * t6204;
23289   t71402 = -0.27e2 / 0.4e1 * t8222 * t70924 - 0.9e1 / 0.4e1 * t25192 * t70928 - 0.3e1 / 0.2e1 * t2566 * t70919 + 0.3e1 / 0.4e1 * t9745 * t22865 + 0.144e3 * t22833 * t1215 + 0.24e2 * t344 * t71387 - 0.3e1 / 0.2e1 * t55743 * t20008 - 0.36e2 * t15506 * t71392 + 0.432e3 * t69253 * t5171 + 0.432e3 * t1133 * t1616 * t6209 + 0.432e3 * t45297 * t6209;
23290   t71426 = 0.216e3 * t4855 * t19872 + 0.72e2 * t3325 * t22830 + 0.72e2 * t850 * t70914 + 0.216e3 * t15589 * t6204 + 0.72e2 * t69269 * t1133 + 0.216e3 * t19060 * t5171 + 0.216e3 * t58481 * t1545 + t69209 * t1166 / 0.2e1 - 0.9e1 / 0.2e1 * t45119 * t6267 + 0.6e1 * t29958 * t22862 + 0.864e3 * t14387 * t19891;
23291   t71451 = 0.432e3 * t55909 * t5176 + 0.3e1 / 0.4e1 * t44923 * t6267 + 0.3e1 / 0.2e1 * t15475 * t6270 + 0.3e1 / 0.2e1 * t4838 * t20023 - 0.9e1 / 0.4e1 * t29964 * t22862 + t3308 * t22875 / 0.2e1 + t847 * t71002 / 0.2e1 + t30009 * t22862 / 0.8e1 + 0.432e3 * t20139 * t22850 + 0.432e3 * t9872 * t22850 + 0.432e3 * t2574 * t71044 + 0.432e3 * t2574 * t71046;
23292   t71476 = 0.240e3 * t299 * t324 * t70914 - 0.2880e4 * t22862 * t1138 + 0.240e3 * t1170 * t22995 + 0.432e3 * t14387 * t19896 - 0.1440e4 * t19936 * t1575 + 0.720e3 * t1579 * t20212 + 0.144e3 * t2574 * t71048 - 0.1440e4 * t6235 * t5193 + 0.720e3 * t5200 * t6352 + 0.2160e4 * t6267 * t5302 + 0.2640e4 * t71200;
23293   t71500 = -0.1080e4 * t71203 - 0.240e3 * t71205 + 0.3e1 / 0.2e1 * t58559 * t1575 - 0.2e1 * t863 * t302 * t70914 - 0.480e3 * t1143 * t22875 + 0.3e1 / 0.2e1 * t19090 * t5193 + t2571 * t70919 / 0.4e1 + 0.3e1 / 0.8e1 * t8227 * t70924 + t25197 * t70928 / 0.16e2 - 0.9e1 / 0.2e1 * t14358 * t20008 + 0.3e1 / 0.4e1 * t14373 * t20008 + 0.3e1 / 0.2e1 * t14373 * t20003;
23294   t71523 = 0.4e1 * t863 * t23080 * t1133 - t2602 * t70919 + 0.2160e4 * t6362 * t5190 - 0.1080e4 * t71207 + 0.15e2 / 0.2e1 * t25156 * t70928 - 0.3e1 / 0.2e1 * t8240 * t70924 + 0.18e2 * t42733 * t20000 - 0.9e1 * t14358 * t20003 - 0.27e2 / 0.4e1 * t42691 * t20000 + 0.18e2 * t8252 * t70924 + 0.75e2 / 0.4e1 * t25165 * t70928;
23295   t71572 = 0.1536e4 * t22846 * t1133 - 0.11520e5 * t22848 * t1133 + 0.3233160e7 * t22942 * t1133 + 0.4608e4 * t1569 * t19872 - 0.34560e5 * t1571 * t19872 - 0.103680e6 * t1598 * t19896 + 0.2424870e7 * t1600 * t19896 - 0.185794560e9 * t1602 * t19896 - 0.103680e6 * t6260 * t5171 + 0.2424870e7 * t6342 * t5171 + 0.4608e4 * t5178 * t6204 - 0.34560e5 * t5182 * t6204 - 0.8e1 * t70914 + 0.4608e4 * t71392;
23296   t71600 = -0.69120e5 * t22842 * t1133 + 0.161658e6 * t22946 * t1133 - 0.371589120e9 * t69121 * t1133 - 0.8847360e7 * t69130 * t1133 - 0.26542080e8 * t15546 * t6204 + 0.484974e6 * t1614 * t19872 - 0.185794560e9 * t19181 * t5171 - 0.26542080e8 * t4831 * t19872 + 0.768e3 * t301 * t70914 - 0.2880e4 * t319 * t70914 - 0.1105920e7 * t350 * t70914 + 0.26943e5 * t357 * t70914 + 0.484974e6 * t5286 * t6204 + 0.4608e4 * t71202;
23297   t71603 = -0.9e1 / 0.2e1 * t9775 * t22865 - 0.9e1 / 0.2e1 * t2566 * t71028 - 0.9e1 / 0.2e1 * t2566 * t71031 + 0.3e1 / 0.4e1 * t2571 * t71031 + 0.3e1 / 0.4e1 * t2571 * t71028 - 0.48e2 * t25183 * t70928 + 0.21e2 * t8255 * t70924 - 0.3e1 * t2602 * t71028 - 0.3e1 * t2602 * t71031 - t25112 * t70928 / 0.4e1 - 0.30e2 * t2571 * t70928 + (t71572 + t71600) * t304;
23298   t71620 = t22891 * t41;
23299   t71627 = 0.83760911515595616720e-4 * t370 * t20075 * t1190 - 0.72676204058813440717e-5 * t1177 * t6386 * t1190 - 0.10616096960000000000e0 * t19952 * t19946 + 0.88467474666666666666e-1 * t19952 * t19949 - 0.10470113939449452090e-4 * t1227 * t6386 * t1190 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t70914 * t367 + 0.8e1 / 0.7e1 * t22830 * t1224 + 0.24e2 / 0.7e1 * t19872 * t1625 + 0.24e2 / 0.7e1 * t6204 * t5305 + 0.24e2 / 0.7e1 * t5171 * t6365 + 0.24e2 / 0.7e1 * t1545 * t20273 + 0.8e1 / 0.7e1 * t1133 * t23028 + 0.8e1 / 0.7e1 * t296 * (t71351 + t71402 + t71426 + t71451 + t71476 + t71500 + t71523 + t71603)) * t41 * t45 * t373 - 0.31595526666666666667e-1 * t6370 * t5314 + 0.91640786594109328176e-3 * t1587 * t20092 + 0.14658159515229232926e-4 * t20071 * t22894 - 0.14e2 / 0.81e2 * t71620 * t1192 - 0.392e3 / 0.675e3 * t3999 * t22904 - 0.392e3 / 0.675e3 * t4002 * t22904;
23300   t71639 = t1101 * t6390;
23301   t71648 = 0.162e3 * t5122 * t70280 - 0.72e2 * t20419 * t19638 - 0.648e3 * t12321 * t38178 * t22722 - 0.6e1 * t1101 * t70777 * t1091 + t269 * (t70807 + t70838 + t71076 + t71216 + t71244 + t71271 + t71297 + t71627) - 0.72e2 * t20369 * t19638 + 0.972e3 * t20422 * t19662 - 0.36e2 * t1101 * t49061 * t6165 - 0.36e2 * t71639 * t5109 - t6192 - 0.648e3 * t38183 * t22774 - 0.18e2 * t19644 * t5138 - t23137 - 0.27e2 / 0.100e3 * t1646 * t20399;
23302   t71677 = t16250 * t19634;
23303   t71680 = 0.513e3 / 0.1000e4 * t406 * t20361 * t5441 - 0.18e2 * t19644 * t5127 - 0.18e2 * t19644 * t5133 + t70310 * t405 * t428 + t23158 * t1284 * t428 + 0.3e1 / 0.10e2 * t6402 * t5442 + 0.3e1 / 0.10e2 * t5396 * t6426 - 0.36e2 * t3810 * t22759 + 0.3e1 * t19643 * t1641 + 0.3e1 * t6175 * t5383 - 0.1944e4 * t16906 * t70234 + 0.9720e4 * t49301 * t70238 + 0.324e3 * t3817 * t38203 * t22722 + 0.972e3 * t5122 * t71677;
23304   t71687 = t1097 * t23190 + 0.3e1 / 0.10e2 * t16200 * t6425 + t19832 - 0.6e1 * t70257 * t1322 - 0.18e2 * t19644 * t5467 - 0.27e2 / 0.100e3 * t50456 * t6406 + 0.171e3 / 0.1000e4 * t38016 * t22791 + t4275 * t23117 / 0.10e2 - 0.18e2 * t5116 * t19697 + 0.162e3 * t48834 * t6436 + 0.162e3 * t16173 * t19707 - 0.36e2 * t3810 * t22729 - p->cam_beta * (t70617 + t70645 + t70670 + t70704 + t70737 + t70768 + t71648 + t71680) + 0.972e3 * t5453 * t71677;
23305   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23306     v4rhosigma3[19] = -t68746 - t1352 * t2415 * t23195 * t1082 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t70329 + t70357 + t70412 + t70437 + t70469 + t70537 + t70569 + t71687);
23307 
23308   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23309     v4rhosigma2lapl[0] = 0.0e0;
23310 
23311   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23312     v4rhosigma2lapl[1] = 0.0e0;
23313 
23314   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23315     v4rhosigma2lapl[2] = 0.0e0;
23316 
23317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23318     v4rhosigma2lapl[3] = 0.0e0;
23319 
23320   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23321     v4rhosigma2lapl[4] = 0.0e0;
23322 
23323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23324     v4rhosigma2lapl[5] = 0.0e0;
23325 
23326   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23327     v4rhosigma2lapl[6] = 0.0e0;
23328 
23329   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23330     v4rhosigma2lapl[7] = 0.0e0;
23331 
23332   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23333     v4rhosigma2lapl[8] = 0.0e0;
23334 
23335   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23336     v4rhosigma2lapl[9] = 0.0e0;
23337 
23338   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23339     v4rhosigma2lapl[10] = 0.0e0;
23340 
23341   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23342     v4rhosigma2lapl[11] = 0.0e0;
23343 
23344   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23345     v4rhosigma2lapl[12] = 0.0e0;
23346 
23347   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23348     v4rhosigma2lapl[13] = 0.0e0;
23349 
23350   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23351     v4rhosigma2lapl[14] = 0.0e0;
23352 
23353   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23354     v4rhosigma2lapl[15] = 0.0e0;
23355 
23356   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23357     v4rhosigma2lapl[16] = 0.0e0;
23358 
23359   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23360     v4rhosigma2lapl[17] = 0.0e0;
23361 
23362   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23363     v4rhosigma2lapl[18] = 0.0e0;
23364 
23365   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23366     v4rhosigma2lapl[19] = 0.0e0;
23367 
23368   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23369     v4rhosigma2lapl[20] = 0.0e0;
23370 
23371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23372     v4rhosigma2lapl[21] = 0.0e0;
23373 
23374   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23375     v4rhosigma2lapl[22] = 0.0e0;
23376 
23377   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23378     v4rhosigma2lapl[23] = 0.0e0;
23379 
23380   t71695 = t14520 * t23500 / 0.2e1;
23381   t71704 = t1706 * t18055;
23382   t71714 = t582 * t5862 * t506;
23383   t71717 = t1706 * t18034;
23384   t71720 = t1706 * t18076;
23385   t71724 = t582 * t6086 * t506;
23386   t71729 = t4690 * t20577 / 0.5e1 + t13272 * t6561 / 0.5e1 - 0.20375784800000000001e2 * t17337 * t71704 - 0.30186347851851851852e0 * t20480 * t20608 + 0.15093173925925925926e1 * t20480 * t20611 - 0.67919282666666666667e1 * t62962 * t20614 - 0.15093173925925925926e0 * t5635 * t71714 + 0.75465869629629629630e0 * t5635 * t71717 - 0.33959641333333333334e1 * t17337 * t71720 + 0.13583856533333333334e1 * t17337 * t71724 - 0.12577644938271604938e1 * t17331 * t23278 - t23214;
23387   t71730 = t1706 * t18058;
23388   t71733 = t1706 * t18062;
23389   t71738 = t1928 * t5883 * t26 * t468;
23390   t71744 = t582 * t5860 * t506;
23391   t71747 = t1706 * t18032;
23392   t71756 = t23294 * t731;
23393   t71759 = t6596 * t4642;
23394   t71762 = -0.67919282666666666668e1 * t17337 * t71730 + 0.40751569600000000001e2 * t51482 * t71733 + 0.21130443496296296296e0 * t5635 * t71738 + 0.50310579753086419753e0 * t17331 * t23373 - 0.30186347851851851852e0 * t5635 * t71744 + 0.15093173925925925926e1 * t5635 * t71747 + t23285 - 0.9e1 / 0.50e2 * t13201 * t20662 - 0.9e1 / 0.50e2 * t13201 * t20657 + 0.171e3 / 0.500e3 * t40595 * t20676 + 0.171e3 / 0.1000e4 * t7915 * t71756 - t6139 + 0.171e3 / 0.500e3 * t7915 * t71759;
23395   t71764 = t23461 * t731;
23396   t71767 = t23291 * t731;
23397   t71792 = -0.4959e4 / 0.10000e5 * t27492 * t71764 + 0.171e3 / 0.500e3 * t7915 * t71767 + 0.108e3 * t68692 * t5531 - 0.24e2 * t18048 * t20505 + 0.108e3 * t18051 * t20509 + 0.108e3 * t53452 * t6492 + 0.108e3 * t53458 * t6492 + 0.108e3 * t18051 * t20468 + 0.108e3 * t18051 * t20471 + 0.108e3 * t53217 * t6492 + 0.108e3 * t53187 * t6492 + 0.108e3 * t18068 * t20468 + 0.108e3 * t18068 * t20471;
23398   t71797 = t62009 * t1356;
23399   t71800 = t20508 * t4300;
23400   t71807 = t17058 * t5857;
23401   t71814 = t50915 * t5855;
23402   t71823 = -0.648e3 * t13254 * t71814 + 0.108e3 * t14106 * t23422 + 0.54e2 * t14106 * t23425 + 0.108e3 * t14109 * t23422 + 0.54e2 * t14109 * t23425 - 0.24e2 * t18065 * t20496 - 0.648e3 * t40403 * t23417 - 0.648e3 * t40476 * t23417 + 0.108e3 * t4654 * t71797 + 0.108e3 * t4654 * t71800 + 0.54e2 * t4654 * t71807 - 0.24e2 * t53184 * t6480 - 0.24e2 * t53214 * t6480;
23403   t71830 = t6473 * t4300;
23404   t71855 = -0.24e2 * t18065 * t20499 - 0.24e2 * t18065 * t20502 - 0.24e2 * t4660 * t71830 - 0.24e2 * t14097 * t23237 - 0.24e2 * t13261 * t23237 - 0.9e1 / 0.50e2 * t2394 * t6561 * t4642 - 0.62888224691358024691e-1 * t18037 * t114 * t124 - 0.24e2 * t53449 * t6480 - 0.24e2 * t53455 * t6480 - 0.24e2 * t18048 * t20496 - 0.24e2 * t18048 * t20499 - 0.24e2 * t18048 * t20502 - 0.9e1 / 0.100e3 * t53181 * t5650;
23405   t71870 = t62054 * t4296;
23406   t71873 = t62016 * t4296;
23407   t71876 = t17032 * t18028;
23408   t71879 = t17065 * t18028;
23409   t71882 = -0.9e1 / 0.100e3 * t17157 * t18190 - 0.83850966255144032920e-1 * t20457 * t6513 + 0.25155289876543209876e-1 * t23479 * t5558 + 0.648e3 * t18051 * t20617 - 0.1296e4 * t53324 * t20620 + 0.648e3 * t18068 * t20617 - 0.1296e4 * t53298 * t20620 + 0.648e3 * t4654 * t71870 - 0.1296e4 * t13254 * t71873 + 0.324e3 * t4654 * t71876 - 0.648e3 * t13254 * t71879 - t18074 + t18078;
23410   t71886 = t1881 * t26;
23411   t71887 = t1356 * t1372;
23412   t71888 = t71887 * t506;
23413   t71892 = t71887 * t468;
23414   t71899 = t17065 * t18026;
23415   t71902 = t51026 * t18030;
23416   t71905 = t1696 * t18030;
23417   t71908 = t17032 * t18026;
23418   t71911 = t50891 * t18030;
23419   t71922 = -0.9e1 / 0.50e2 * t7894 * t23291 + 0.42260886992592592593e0 * t62754 * t71886 * t71888 - 0.60372695703703703704e0 * t62754 * t62758 * t71892 + 0.27167713066666666667e1 * t62762 * t62763 * t71892 - 0.1296e4 * t13254 * t71899 + 0.9720e4 * t40416 * t71902 + 0.1080e4 * t4654 * t71905 + 0.648e3 * t4654 * t71908 - 0.7776e4 * t13254 * t71911 + 0.50310579753086419752e-1 * t20512 * t6513 + 0.50310579753086419752e-1 * t6583 * t20627 + 0.58695676378600823043e-1 * t5639 * t23329 - 0.58351654579509269327e-4 * t33 * t6079;
23420   t71926 = t23241 * t477;
23421   t71946 = t23434 * t708;
23422   t71953 = -0.9e1 / 0.100e3 * t2394 * t23273 * t731 - 0.6e1 * t71926 * t739 - 0.6e1 * t5524 * t18128 + 0.10481370781893004115e0 * t5865 * t51 * t124 - 0.12e2 * t20679 * t4668 - 0.9e1 / 0.50e2 * t13201 * t20667 - 0.12e2 * t68717 * t5517 + 0.54e2 * t68705 * t5531 - 0.24e2 * t18065 * t20505 + 0.108e3 * t18068 * t20509 + t71946 * t731 / 0.10e2 + 0.75465869629629629630e0 * t62977 * t6586 + 0.75465869629629629630e0 * t20480 * t20485;
23423   t71965 = t18120 * t1705;
23424   t71986 = 0.37732934814814814815e0 * t17071 * t23283 - 0.33959641333333333334e1 * t51479 * t23286 + 0.84521773985185185182e-1 * t20488 * t18375 - 0.70434811654320987652e-1 * t20488 * t18378 + 0.37732934814814814815e0 * t71965 * t5636 + 0.75465869629629629630e0 * t17071 * t23278 + 0.75465869629629629630e0 * t5635 * t1706 * t18030 - 0.12577644938271604938e1 * t62847 * t6586 - 0.62888224691358024692e0 * t17331 * t23283 + 0.56599402222222222223e1 * t51471 * t23286 - 0.70434811654320987653e-1 * t1362 * t1705 * t4573 + t63037 * t1495 / 0.5e1 + t20521 * t4642 / 0.5e1;
23425   t72000 = t50887 * t5855;
23426   t72016 = -0.9e1 / 0.50e2 * t17157 * t17978 + 0.2e1 * t20595 * t1512 + 0.2e1 * t6485 * t4687 + t5522 * t6152 - 0.35217405827160493826e-1 * t5632 * t23329 + 0.324e3 * t14106 * t23244 + 0.324e3 * t14109 * t23244 + 0.324e3 * t4654 * t72000 - 0.12e2 * t478 * t4667 * t20555 - 0.12e2 * t478 * t14100 * t6477 - 0.6e1 * t478 * t18127 * t5514 - 0.12e2 * t1855 * t23206 - 0.9e1 / 0.50e2 * t61630 * t4695;
23427   t72032 = t2305 * t23273;
23428   t72043 = t1362 * t20785;
23429   t72060 = -0.58351654579509269327e-4 * t33 * t22698 + t1699 * t18780 - 0.12e2 * t5524 * t18258 - 0.9e1 / 0.100e3 * t208 * t72032 * t731 - 0.6e1 * t478 * t18252 * t5514 + 0.50310579753086419752e-1 * t62460 * t6513 + 0.50310579753086419752e-1 * t62152 * t6513 + 0.50310579753086419752e-1 * t72043 * t5558 + 0.50310579753086419752e-1 * t20812 * t20627 + 0.50310579753086419752e-1 * t62183 * t6513 + 0.50310579753086419752e-1 * t62186 * t6513 + 0.108e3 * t53799 * t6492 - 0.9e1 / 0.50e2 * t4599 * t6533 - 0.9e1 / 0.50e2 * t1478 * t20869 - 0.33959641333333333334e1 * t51257 * t23383;
23430   t72092 = t4310 * t20785;
23431   t72095 = -0.33959641333333333334e1 * t51182 * t23383 + 0.75465869629629629630e0 * t20795 * t20803 - 0.6e1 * t18120 * t5539 - 0.9e1 / 0.50e2 * t1478 * t20820 - 0.6e1 * t53371 * t1701 + 0.324e3 * t13326 * t23244 + 0.324e3 * t4316 * t72000 - 0.24e2 * t53793 * t6480 - 0.24e2 * t53847 * t6480 - 0.24e2 * t18278 * t20496 - 0.24e2 * t18278 * t20499 - 0.24e2 * t18278 * t20502 - 0.9e1 / 0.100e3 * t638 * t23315 - 0.9e1 / 0.50e2 * t208 * t20819 * t4642 + t702 * t23348 / 0.10e2 + 0.75465869629629629628e0 * t72092 * t5549;
23432   t72118 = t20679 * t160;
23433   t72121 = t61961 * t160;
23434   t72128 = 0.75465869629629629630e0 * t62126 * t6507 + 0.75465869629629629630e0 * t62440 * t6507 + 0.75465869629629629630e0 * t17230 * t23391 + 0.75465869629629629630e0 * t17233 * t23391 + 0.84521773985185185182e-1 * t5557 * t46 * t67468 + 0.54e2 * t4316 * t71807 - 0.648e3 * t41007 * t23417 - 0.648e3 * t40996 * t23417 - 0.648e3 * t13333 * t71814 - 0.24e2 * t20734 * t18032 - 0.24e2 * t72118 * t4303 + 0.108e3 * t72121 * t4318 - t23321 - 0.12e2 * t67527 * t5517 + 0.54e2 * t67530 * t5531;
23435   t72131 = t5977 * t114;
23436   t72132 = t33 * t72131;
23437   t72166 = t20584 * t1356;
23438   t72169 = t20586 * t1356;
23439   t72172 = t6478 * t4300;
23440   t72177 = t5510 * t5857;
23441   t72180 = t5515 * t5857;
23442   t72193 = -0.54e2 * t17102 * t18076 + 0.24e2 * t5524 * t18032 + 0.12e2 * t5524 * t18034 + 0.12e2 * t18120 * t5517 + 0.24e2 * t1855 * t23237 + 0.12e2 * t1855 * t23239 - 0.108e3 * t1862 * t71797 - 0.108e3 * t1862 * t71800 - 0.54e2 * t1862 * t71807 - 0.54e2 * t6986 * t23425 + 0.24e2 * t478 * t71830 + 0.24e2 * t478 * t72166 + 0.24e2 * t478 * t72169 + 0.24e2 * t478 * t72172 + 0.12e2 * t478 * t72177 + 0.12e2 * t478 * t72180 - 0.54e2 * t53363 * t5531;
23443   t72226 = -0.108e3 * t13213 * t20468 - 0.108e3 * t13213 * t20471 - 0.108e3 * t13213 * t20509 + 0.24e2 * t13277 * t6480 - 0.324e3 * t1862 * t72000 + 0.24e2 * t4310 * t20496 + 0.24e2 * t4310 * t20499 + 0.24e2 * t4310 * t20502 + 0.24e2 * t4310 * t20505 + 0.24e2 * t20679 * t4303 - 0.324e3 * t6986 * t23244 + 0.648e3 * t27298 * t23417 - 0.108e3 * t6986 * t23422 - 0.108e3 * t40542 * t6492 - 0.108e3 * t61961 * t4318 + 0.648e3 * t6995 * t71814 + t23408;
23444   t72234 = t23235 * t468;
23445   t72259 = -0.648e3 * t13213 * t20496 * t27 + 0.1296e4 * t20496 * t40545 * t6996 - 0.324e3 * t17102 * t18055 - 0.108e3 * t17102 * t18058 + 0.648e3 * t50722 * t18062 + 0.1296e4 * t20701 * t71830 + 0.1296e4 * t20701 * t72166 + 0.648e3 * t20701 * t72177 - 0.648e3 * t20704 * t71830 - 0.648e3 * t20704 * t72166 - 0.324e3 * t20704 * t72177 - 0.9720e4 * t62094 * t72234 + 0.7776e4 * t62098 * t72234 - 0.1080e4 * t62101 * t72234 - t18164 + t18166 + t6092;
23446   t72267 = t5855 * t5514;
23447   t72274 = 0.4e1 * t1356 * t20555 + 0.4e1 * t4300 * t6477 + 0.2e1 * t5857 * t5514 + t18029 + t18035 + t23232 + t23240 + t5859 + t5863 + 0.36e2 * t71830 + 0.36e2 * t72166 + 0.36e2 * t72169 + 0.36e2 * t72172 + 0.18e2 * t72177 + 0.18e2 * t72180 + 0.18e2 * t72267;
23448   t72275 = t72274 * t32;
23449   t72302 = 0.12e2 * t13277 * t6482 + 0.12e2 * t61956 * t1359 + 0.6e1 * t53371 * t1696 + 0.12e2 * t17025 * t5860 + 0.6e1 * t17025 * t5862 + 0.12e2 * t5524 * t18030 + 0.6e1 * t18120 * t5519 + 0.12e2 * t1855 * t23235 + 0.12e2 * t4310 * t20592 + 0.12e2 * t20679 * t4305 + 0.6e1 * t71926 * t471 + 0.12e2 * t478 * t72267 - 0.54e2 * t50745 * t6086 + t18162 - t23427 + t23433 - t72275;
23450   t72304 = t72193 + t72226 + t72259 + t72302;
23451   t72317 = -0.83850966255144032920e-1 * t62180 * t6513 + 0.25155289876543209876e-1 * t72132 * t5558 + 0.171e3 / 0.500e3 * t1478 * t7029 * t20676 + t20770 * t1496 / 0.5e1 + t6527 * t4643 / 0.5e1 - 0.12e2 * t478 * t633 * t5855 * t1693 + 0.108e3 * t53840 * t6492 + 0.108e3 * t18281 * t20468 + 0.108e3 * t18281 * t20471 + 0.108e3 * t53790 * t6492 + t72304 * t207 * t230 - 0.9e1 / 0.100e3 * t702 * t23315 - 0.6e1 * t1855 * t23366 - 0.12e2 * t1855 * t23343 - 0.9e1 / 0.100e3 * t5574 * t6099 - 0.12e2 * t4310 * t20861;
23452   t72351 = -0.12e2 * t4310 * t20864 - 0.6e1 * t5524 * t18263 + 0.54e2 * t50745 * t5871 - 0.9e1 / 0.100e3 * t1713 * t18196 - 0.12e2 * t4310 * t20858 - 0.6e1 * t17025 * t5880 - 0.24e2 * t18271 * t20502 - 0.24e2 * t4324 * t71830 - 0.24e2 * t13336 * t23237 - 0.24e2 * t13344 * t23237 - 0.12e2 * t4324 * t72177 - 0.12e2 * t4324 * t72180 + 0.324e3 * t13339 * t23244 - 0.9e1 / 0.100e3 * t208 * t5582 * t18115 + 0.83359506542156099039e-5 * t474 * t23340;
23453   t72387 = 0.83359506542156099039e-5 * t33 * t568 * t23297 * t581 - 0.12e2 * t478 * t23306 * t5514 + 0.108e3 * t68548 * t5531 - 0.12e2 * t20734 * t18034 + 0.54e2 * t20737 * t18076 - 0.12e2 * t13277 * t6495 - 0.9e1 / 0.50e2 * t1478 * t20825 - 0.12e2 * t5524 * t18266 + 0.50310579753086419752e-1 * t20786 * t20627 + 0.58695676378600823043e-1 * t17185 * t23329 - 0.12e2 * t20679 * t4332 - 0.12e2 * t478 * t13369 * t6477 - t18251 - 0.12e2 * t478 * t4331 * t20555 - 0.12e2 * t13277 * t6500 - 0.12e2 * t61956 * t1364;
23454   t72418 = -0.12e2 * t4310 * t20905 + 0.108e3 * t18792 * t20509 - 0.24e2 * t18278 * t20505 + 0.108e3 * t18281 * t20509 + 0.108e3 * t18792 * t20468 + 0.108e3 * t18792 * t20471 + 0.108e3 * t13339 * t23422 - 0.6e1 * t478 * t55102 * t1693 + t1713 * t18243 / 0.10e2 + 0.54e2 * t17102 * t18223 - t18265 - 0.9e1 / 0.50e2 * t4597 * t6533 - 0.9e1 / 0.50e2 * t1713 * t18206 - 0.9e1 / 0.50e2 * t638 * t23312 - 0.9e1 / 0.50e2 * t702 * t23312;
23455   t72456 = -0.24e2 * t53805 * t6480 + 0.171e3 / 0.1000e4 * t1713 * t18212 - 0.6e1 * t71926 * t480 - 0.24e2 * t18271 * t20505 - 0.12577644938271604938e0 * t4308 * t1418 * t1707 - 0.12577644938271604938e0 * t1362 * t4405 * t1707 + t5572 * t6118 / 0.10e2 + t5574 * t6118 / 0.10e2 + 0.648e3 * t18792 * t20617 - 0.12e2 * t1855 * t23307 + 0.171e3 / 0.1000e4 * t20773 * t71756 - 0.9e1 / 0.50e2 * t208 * t62214 * t1495 + 0.324e3 * t4316 * t71876 + 0.648e3 * t4316 * t71870 - 0.62888224691358024691e-1 * t474 * t5977 * t1707 - 0.62888224691358024691e-1 * t33 * t18772 * t1707;
23456   t72464 = t5524 * t1473;
23457   t72467 = t17102 * t1473;
23458   t72478 = t5865 * t5545;
23459   t72491 = 0.20962741563786008230e0 * t23361 * t1508 + t1478 * t20848 / 0.5e1 - 0.24e2 * t72464 * t4303 + 0.108e3 * t72467 * t4318 + 0.10481370781893004115e0 * t23355 * t1508 + t72275 * t160 + t23242 * t633 - 0.9e1 / 0.100e3 * t6094 * t5583 - 0.83850966255144032920e-1 * t62548 * t6513 + 0.25155289876543209876e-1 * t72478 * t5558 - 0.35217405827160493826e-1 * t17209 * t23329 - 0.35217405827160493826e-1 * t17213 * t23329 + t20828 * t1496 / 0.5e1 - 0.9e1 / 0.100e3 * t5572 * t6099 - 0.1296e4 * t13333 * t71873;
23460   t72504 = t13213 * t17281;
23461   t72525 = -0.1296e4 * t53828 * t20620 + 0.171e3 / 0.500e3 * t20773 * t71759 - 0.4959e4 / 0.10000e5 * t61877 * t71764 + t23435 * t732 / 0.10e2 - 0.30186347851851851852e0 * t62595 * t20608 + 0.15093173925925925926e1 * t62595 * t20611 - 0.67919282666666666667e1 * t72504 * t20614 + 0.324e3 * t20737 * t18055 + 0.108e3 * t20737 * t18058 - 0.648e3 * t62538 * t18062 + 0.171e3 / 0.500e3 * t20773 * t71767 - 0.24e2 * t68607 * t5517 - 0.24e2 * t4324 * t72166 - 0.24e2 * t4324 * t72169 - 0.24e2 * t4324 * t72172 - 0.12e2 * t13336 * t23239;
23462   t72557 = -0.9e1 / 0.50e2 * t6527 * t4608 - 0.12e2 * t20679 * t4321 - 0.12e2 * t20679 * t4327 - t5882 - 0.70434811654320987652e-1 * t5557 * t46 * t67471 + 0.37732934814814814815e0 * t17230 * t23379 + 0.37732934814814814815e0 * t17233 * t23379 - 0.9e1 / 0.100e3 * t208 * t17300 * t6117 + 0.50310579753086419753e0 * t51096 * t23373 - 0.30186347851851851851e0 * t62595 * t20602 - 0.15093173925925925926e0 * t17282 * t71714 + 0.75465869629629629630e0 * t17282 * t71717 - 0.33959641333333333334e1 * t20762 * t71720 + 0.13583856533333333334e1 * t20762 * t71724 - 0.20375784800000000001e2 * t20762 * t71704;
23463   t72590 = -0.67919282666666666668e1 * t20762 * t71730 + 0.40751569600000000001e2 * t62318 * t71733 + t18276 * t1728 / 0.10e2 + t18784 * t1728 / 0.10e2 + 0.108e3 * t13326 * t23422 + 0.108e3 * t4316 * t71797 + 0.108e3 * t4316 * t71800 + 0.54e2 * t13339 * t23425 + 0.54e2 * t13326 * t23425 + 0.108e3 * t53837 * t6492 - 0.6e1 * t18120 * t5534 - 0.12e2 * t17025 * t5874 + t4597 * t6562 / 0.5e1 + t4599 * t6562 / 0.5e1 + t23434 * t701 * t230 - 0.12e2 * t13344 * t23239;
23464   t72595 = t23297 * t1881;
23465   t72596 = t72595 * t506;
23466   t72610 = t478 * t112;
23467   t72626 = 0.1080e4 * t4316 * t71905 - 0.11670330915901853865e-4 * t1704 * t72596 - 0.648e3 * t13333 * t71879 + t6094 * t5611 / 0.10e2 + t638 * t23348 / 0.10e2 - 0.12e2 * t17025 * t5877 - 0.12e2 * t5524 * t18203 + t5522 * t6082 - 0.50015703925293659423e-4 * t72610 * t23298 * t471 - 0.62888224691358024691e-1 * t18037 * t112 * t1707 - 0.62888224691358024691e-1 * t5865 * t568 * t1707 + t23381 - 0.24e2 * t18271 * t20496 - 0.24e2 * t18271 * t20499 - 0.12577644938271604938e1 * t62569 * t6507;
23468   t72627 = t123 * t468;
23469   t72647 = t582 * t4305 * t1372;
23470   t72651 = t582 * t1359 * t4356;
23471   t72660 = t1862 * t62591;
23472   t72663 = t18120 * t5545;
23473   t72666 = t478 * t72131;
23474   t72669 = 0.75465869629629629630e0 * t5546 * t46 * t72627 * t5855 - 0.70434811654320987653e-1 * t20812 * t20809 + 0.56599402222222222223e1 * t51233 * t23383 + 0.21130443496296296296e0 * t17282 * t71738 + 0.15093173925925925926e1 * t17282 * t71747 - 0.30186347851851851851e0 * t62592 * t20602 - 0.30186347851851851852e0 * t50951 * t23373 - 0.30186347851851851852e0 * t51105 * t23373 - 0.30186347851851851852e0 * t17282 * t72647 - 0.30186347851851851852e0 * t17282 * t72651 - 0.30186347851851851852e0 * t17282 * t71744 - 0.30186347851851851852e0 * t62592 * t20608 + 0.15093173925925925926e1 * t62592 * t20611 - 0.67919282666666666667e1 * t72660 * t20614 + 0.37732934814814814815e0 * t72663 * t5549 + 0.37732934814814814815e0 * t72666 * t5549;
23475   t72723 = 0.73e2 / 0.162e3 * t22284 - 0.73e2 / 0.162e3 * t22290 - 0.73e2 / 0.81e2 * t22287 - 0.73e2 / 0.9720e4 * t46 * t1486 * t20555 + 0.73e2 / 0.135e3 * t1705 * t23249 * t468 + 0.146e3 / 0.135e3 * t1705 * t6540 * t4300 + 0.73e2 / 0.9720e4 * t46 * t51 * t20555 * t226 - 0.73e2 / 0.4860e4 * t46 * t23259 * t468 - 0.73e2 / 0.4860e4 * t46 * t20543 * t1356 - 0.73e2 / 0.4860e4 * t46 * t6547 * t4300 + 0.146e3 / 0.3645e4 * t46 * t20539 * t1356 + 0.73e2 / 0.3645e4 * t46 * t4619 * t6477 - 0.73e2 / 0.3645e4 * t46 * t496 * t6477 * t226;
23476   t72734 = t18114 - t23252 + t23258 + t23269 - t6112 + t6116 + 0.584e3 / 0.135e3 * t6551 * t4300 + 0.292e3 / 0.135e3 * t5598 * t5857 + 0.292e3 / 0.135e3 * t5601 * t5857 + 0.584e3 / 0.135e3 * t20550 * t1356 + 0.584e3 / 0.135e3 * t20556 * t1356 - t18106 + t18108;
23477   t72735 = t72723 + t72734;
23478   t72753 = -0.12577644938271604938e1 * t17248 * t23391 - 0.12577644938271604938e1 * t62428 * t6507 - 0.1296e4 * t13333 * t71899 + 0.9720e4 * t42157 * t71902 + 0.10481370781893004115e0 * t23358 * t1508 - 0.1296e4 * t53796 * t20620 + 0.171e3 / 0.1000e4 * t702 * t23324 + 0.171e3 / 0.1000e4 * t208 * t50906 * t6098 + t208 * t708 * t72735 / 0.10e2 - 0.12e2 * t5524 * t18200 + 0.171e3 / 0.1000e4 * t638 * t23324 - 0.6e1 * t5524 * t18253 + 0.648e3 * t4316 * t71908 - 0.7776e4 * t13333 * t71911 + 0.75465869629629629630e0 * t20806 * t20803 + 0.75465869629629629630e0 * t62135 * t6507;
23479   t72764 = t1928 * t26;
23480   t72782 = 0.75465869629629629630e0 * t62139 * t6507 - 0.62888224691358024692e0 * t17248 * t23379 - 0.70434811654320987653e-1 * t20786 * t20809 + t23438 - t23452 - 0.24e2 * t53802 * t6480 + 0.2e1 * t20595 * t1473 + 0.42260886992592592593e0 * t17282 * t72764 * t71888 - 0.60372695703703703704e0 * t17282 * t62565 * t71892 + 0.27167713066666666667e1 * t20762 * t62405 * t71892 + 0.2e1 * t6485 * t4584 - t18798 + t18800 + 0.648e3 * t18281 * t20617 - 0.12e2 * t67538 * t5517 + 0.54e2 * t68419 * t5531;
23481   t72803 = -0.6e1 * t478 * t53374 * t1693 - 0.6e1 * t1855 * t23203 - 0.12e2 * t4310 * t20635 - 0.12e2 * t4310 * t20643 - p->cam_beta * (t72060 + t72095 + t72128 + t72317 + t72351 + t72387 + t72418 + t72456 + t72491 + t72525 + t72557 + t72590 + t72626 + t72669 + t72753 + t72782) + t72304 * t230 - 0.12e2 * t4310 * t20638 - 0.12e2 * t13277 * t6580 - 0.12e2 * t4310 * t20632 - 0.6e1 * t18120 * t5629 - 0.12e2 * t13277 * t6575 - 0.6e1 * t53371 * t1734 - 0.6e1 * t18120 * t5624;
23482   t72833 = t759 * t72735 / 0.10e2 + t18045 * t5610 / 0.10e2 + t2391 * t23273 / 0.10e2 + 0.171e3 / 0.1000e4 * t51364 * t17981 + 0.83359506542156099039e-5 * t474 * t23298 + 0.54e2 * t50745 * t6128 + 0.54e2 * t17102 * t18175 - 0.12e2 * t5524 * t18178 - 0.12e2 * t5524 * t18182 - 0.12e2 * t17025 * t6134 - 0.12e2 * t1855 * t23222 - 0.12e2 * t478 * t756 * t5855 * t1693 - 0.12e2 * t478 * t23221 * t5514;
23483   t72859 = -0.6e1 * t5524 * t18187 - 0.12e2 * t5524 * t18131 - 0.6e1 * t17025 * t6137 - 0.12e2 * t5524 * t17973 - t23478 + t23491 + t53437 * t1727 / 0.10e2 - 0.9e1 / 0.100e3 * t51367 * t6098 - 0.9e1 / 0.50e2 * t2394 * t20577 * t1495 - 0.30186347851851851852e0 * t17071 * t23373 - 0.30186347851851851852e0 * t5635 * t72647 - 0.30186347851851851852e0 * t5635 * t72651 - 0.30186347851851851851e0 * t20480 * t20602;
23484   t72889 = -0.12e2 * t17025 * t6131 - 0.12e2 * t20679 * t4657 - 0.12e2 * t20679 * t4663 - 0.12e2 * t61956 * t1502 - 0.11670330915901853865e-4 * t33 * t72596 - 0.9e1 / 0.50e2 * t40702 * t6596 - 0.9e1 / 0.100e3 * t2394 * t1727 * t18115 - 0.9e1 / 0.100e3 * t7894 * t23294 - 0.9e1 / 0.100e3 * t2394 * t5610 * t6117 + t17111 * t6117 / 0.10e2 + t5645 * t18115 / 0.10e2 + 0.171e3 / 0.1000e4 * t27414 * t23461 + 0.171e3 / 0.1000e4 * t7915 * t5610 * t6098;
23485   t72910 = -0.12e2 * t13261 * t23239 - 0.12e2 * t14097 * t23239 + t1699 * t18022 - 0.24e2 * t20515 * t18032 + t23242 * t756 + t72275 * t244 - 0.24e2 * t4660 * t72166 - 0.24e2 * t4660 * t72169 - 0.24e2 * t4660 * t72172 - 0.12e2 * t4660 * t72177 - 0.12e2 * t4660 * t72180 - t18186 - t18189;
23486   t72913 = t478 * t23297;
23487   t72914 = t581 * t26;
23488   t72918 = t20679 * t244;
23489   t72921 = t61961 * t244;
23490   t72924 = t5524 * t1512;
23491   t72927 = t17102 * t1512;
23492   t72944 = 0.324e3 * t20518 * t18055 - 0.50015703925293659423e-4 * t72913 * t72914 * t468 - 0.24e2 * t72918 * t4303 + 0.108e3 * t72921 * t4318 - 0.24e2 * t72924 * t4303 + 0.108e3 * t72927 * t4318 - 0.12e2 * t20515 * t18034 + 0.54e2 * t20518 * t18076 + 0.108e3 * t20518 * t18058 - 0.648e3 * t62713 * t18062 - 0.12e2 * t68708 * t5517 + 0.54e2 * t68712 * t5531 - 0.24e2 * t68689 * t5517;
23493   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23494     v4rhosigma2tau[0] = -t71695 - t1352 * t2774 * t23499 * t455 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t71729 + t71762 + t71792 + t71823 + t71855 + t71882 + t71922 + t71953 + t71986 + t72016 + t72803 + t72833 + t72859 + t72889 + t72910 + t72944);
23495 
23496   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23497     v4rhosigma2tau[1] = 0.0e0;
23498 
23499   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23500     v4rhosigma2tau[2] = 0.0e0;
23501 
23502   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23503     v4rhosigma2tau[3] = 0.0e0;
23504 
23505   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23506     v4rhosigma2tau[4] = 0.0e0;
23507 
23508   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23509     v4rhosigma2tau[5] = 0.0e0;
23510 
23511   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23512     v4rhosigma2tau[6] = 0.0e0;
23513 
23514   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23515     v4rhosigma2tau[7] = 0.0e0;
23516 
23517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23518     v4rhosigma2tau[8] = 0.0e0;
23519 
23520   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23521     v4rhosigma2tau[9] = 0.0e0;
23522 
23523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23524     v4rhosigma2tau[10] = 0.0e0;
23525 
23526   t72953 = t14520 * t23804 / 0.2e1;
23527   t72980 = -0.9e1 / 0.100e3 * t934 * t23739 - 0.9e1 / 0.50e2 * t4897 * t6665 + 0.50310579753086419752e-1 * t63401 * t6645 - 0.35217405827160493826e-1 * t17516 * t23620 - 0.6e1 * t5720 * t18835 + 0.54e2 * t17602 * t18826 - t18837 - 0.12e2 * t21214 * t4712 - 0.6e1 * t19644 * t5667 - 0.12e2 * t5116 * t20947 - 0.12e2 * t5720 * t18832 - 0.12e2 * t5720 * t18829;
23528   t73011 = -0.12e2 * t5116 * t20952 + 0.108e3 * t57431 * t6624 + 0.108e3 * t57447 * t6624 + 0.83359506542156099039e-5 * t269 * t831 * t23612 * t1190 - 0.9e1 / 0.50e2 * t934 * t23736 - 0.6e1 * t1101 * t57459 * t1751 - 0.62888224691358024691e-1 * t6175 * t831 * t1765 - 0.12577644938271604938e0 * t1530 * t4806 * t1765 - 0.62888224691358024691e-1 * t269 * t19025 * t1765 + 0.108e3 * t15112 * t23545 + t23557 * t933 * t428 + t19216 * t1786 / 0.10e2;
23529   t73039 = t4897 * t6694 / 0.5e1 + t5673 * t6426 / 0.10e2 + 0.50310579753086419752e-1 * t63429 * t6645 - 0.12e2 * t1101 * t875 * t6165 * t1751 - 0.24e2 * t15118 * t23517 + 0.324e3 * t15112 * t23542 - 0.12e2 * t15118 * t23519 + 0.171e3 / 0.1000e4 * t934 * t23665 - 0.24e2 * t57438 * t6612 + t934 * t23711 / 0.10e2 + t20965 * t1664 / 0.5e1 - 0.9e1 / 0.100e3 * t5673 * t6407;
23530   t73065 = 0.54e2 * t15112 * t23548 + 0.2e1 * t6617 * t4895 + t23522 * t875 + t1757 * t19214 + 0.75465869629629629630e0 * t17508 * t23749 + 0.75465869629629629630e0 * t63353 * t6639 + 0.75465869629629629630e0 * t63360 * t6639 - 0.33959641333333333334e1 * t52173 * t23757 + 0.37732934814814814815e0 * t17508 * t23753 - 0.24e2 * t57525 * t6612 - 0.30186347851851851852e0 * t52084 * t23634 - 0.12e2 * t1101 * t15125 * t6609 - 0.648e3 * t46838 * t23539;
23531   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23532     v4rhosigma2tau[11] = -t72953 - t1352 * t2415 * t23803 * t767 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t72980 + t73011 + t73039 + t73065);
23533 
23534   t73102 = -0.35217405827160493826e-1 * t17444 * t23329 - 0.6e1 * t478 * t56189 * t1693 + 0.108e3 * t56159 * t6492 - 0.24e2 * t57391 * t6480 + 0.108e3 * t57394 * t6492 - 0.24e2 * t56150 * t6480 - 0.24e2 * t14556 * t23237 - 0.12577644938271604938e0 * t1362 * t5001 * t1707 - 0.12e2 * t14556 * t23239 + 0.324e3 * t14550 * t23244 - 0.12e2 * t4310 * t20997 + 0.171e3 / 0.1000e4 * t1075 * t23324;
23535   t73125 = t1699 * t19607 - 0.30186347851851851852e0 * t51751 * t23373 - 0.12e2 * t5524 * t19244 - 0.12e2 * t4310 * t20992 - 0.12e2 * t478 * t1034 * t5855 * t1693 + 0.2e1 * t6485 * t5087 + t23242 * t1034 + t23434 * t1074 * t230 - t19249 - 0.6e1 * t5524 * t19247 + 0.54e2 * t17102 * t19238 - 0.9e1 / 0.100e3 * t1075 * t23315;
23536   t73151 = -0.9e1 / 0.50e2 * t1075 * t23312 + t5693 * t6118 / 0.10e2 + t21010 * t1496 / 0.5e1 - 0.9e1 / 0.100e3 * t5693 * t6099 + 0.37732934814814814815e0 * t17436 * t23379 - 0.33959641333333333334e1 * t51665 * t23383 + 0.75465869629629629630e0 * t17436 * t23391 - 0.12e2 * t5524 * t19241 + 0.75465869629629629630e0 * t63272 * t6507 + 0.75465869629629629630e0 * t63166 * t6507 + t19609 * t1728 / 0.10e2 + t5089 * t6562 / 0.5e1;
23537   t73183 = t1075 * t23348 / 0.10e2 - 0.12e2 * t478 * t14563 * t6477 - 0.62888224691358024691e-1 * t5865 * t993 * t1707 - 0.6e1 * t18120 * t5687 - 0.12e2 * t20679 * t4911 + 0.83359506542156099039e-5 * t33 * t993 * t23297 * t581 - 0.9e1 / 0.50e2 * t5089 * t6533 + 0.50310579753086419752e-1 * t63261 * t6513 + 0.50310579753086419752e-1 * t63275 * t6513 - 0.62888224691358024691e-1 * t33 * t19421 * t1707 + 0.108e3 * t14550 * t23422 + 0.54e2 * t14550 * t23425 - 0.648e3 * t44308 * t23417;
23538   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23539     v4rhosigma2tau[12] = -t71695 - t1352 * t2774 * t23499 * t944 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t73102 + t73125 + t73151 + t73183);
23540 
23541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23542     v4rhosigma2tau[13] = 0.0e0;
23543 
23544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23545     v4rhosigma2tau[14] = 0.0e0;
23546 
23547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23548     v4rhosigma2tau[15] = 0.0e0;
23549 
23550   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23551     v4rhosigma2tau[16] = 0.0e0;
23552 
23553   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23554     v4rhosigma2tau[17] = 0.0e0;
23555 
23556   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23557     v4rhosigma2tau[18] = 0.0e0;
23558 
23559   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23560     v4rhosigma2tau[19] = 0.0e0;
23561 
23562   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23563     v4rhosigma2tau[20] = 0.0e0;
23564 
23565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23566     v4rhosigma2tau[21] = 0.0e0;
23567 
23568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23569     v4rhosigma2tau[22] = 0.0e0;
23570 
23571   t73212 = t6605 * t5106;
23572   t73214 = t6165 * t5710;
23573   t73216 = t21121 * t1524;
23574   t73218 = t21126 * t1524;
23575   t73220 = t6610 * t5106;
23576   t73222 = t5706 * t6167;
23577   t73224 = t5711 * t6167;
23578   t73226 = 0.4e1 * t1524 * t21125 + 0.4e1 * t5106 * t6609 + 0.2e1 * t6167 * t5710 + t19635 + t19641 + t23512 + t23520 + t6169 + t6173 + 0.36e2 * t73212 + 0.18e2 * t73214 + 0.36e2 * t73216 + 0.36e2 * t73218 + 0.36e2 * t73220 + 0.18e2 * t73222 + 0.18e2 * t73224;
23579   t73227 = t73226 * t268;
23580   t73238 = -0.6e1 * t59577 * t1792 - 0.6e1 * t19644 * t5820 - 0.6e1 * t19644 * t5825 + 0.171e3 / 0.1000e4 * t38016 * t23592 + t64131 * t1663 / 0.5e1 + t21142 * t5441 / 0.5e1 + t73227 * t441 + t23522 * t1339 - 0.12e2 * t70553 * t5713 + 0.54e2 * t70556 * t5727 - 0.24e2 * t70559 * t5713 + 0.171e3 / 0.500e3 * t50448 * t21244;
23581   t73239 = t23503 * t1314;
23582   t73250 = t52551 * t6165;
23583   t73267 = 0.171e3 / 0.1000e4 * t12495 * t73239 - 0.12e2 * t5116 * t21223 - 0.12e2 * t16110 * t6712 - 0.12e2 * t5116 * t21208 - 0.12e2 * t5116 * t21211 - 0.648e3 * t16236 * t73250 - 0.24e2 * t59678 * t6612 - 0.24e2 * t59684 * t6612 - 0.24e2 * t19818 * t21058 - 0.24e2 * t19818 * t21061 - 0.24e2 * t19818 * t21064 + 0.108e3 * t61428 * t6624 + 0.108e3 * t19836 * t21044;
23584   t73283 = t63629 * t1524;
23585   t73286 = t21070 * t5106;
23586   t73293 = t17806 * t6167;
23587   t73298 = 0.108e3 * t16222 * t23545 + 0.54e2 * t16222 * t23548 + 0.108e3 * t16226 * t23545 + 0.54e2 * t16226 * t23548 + 0.108e3 * t19822 * t21044 + 0.108e3 * t19822 * t21047 + 0.108e3 * t19836 * t21047 - 0.648e3 * t48852 * t23539 + 0.108e3 * t5453 * t73283 + 0.108e3 * t5453 * t73286 + 0.54e2 * t5453 * t73293 + 0.108e3 * t59681 * t6624 + 0.108e3 * t59687 * t6624;
23588   t73315 = t6728 * t5441;
23589   t73322 = t17612 * t19632;
23590   t73327 = -0.648e3 * t50414 * t23539 + t17939 * t6425 / 0.10e2 - 0.12e2 * t5720 * t19812 + 0.2e1 * t21135 * t1680 + t16200 * t6693 / 0.5e1 + t5489 * t21195 / 0.5e1 - 0.12e2 * t5720 * t19808 - 0.6e1 * t5720 * t19702 + 0.171e3 / 0.500e3 * t12495 * t73315 - 0.83850966255144032920e-1 * t21241 * t6645 + 0.58695676378600823043e-1 * t5835 * t23620 + 0.648e3 * t5453 * t73322 + 0.50310579753086419752e-1 * t21075 * t6645;
23591   t73351 = t21214 * t441;
23592   t73354 = 0.50310579753086419752e-1 * t6715 * t21106 - t19696 - t19699 - 0.9e1 / 0.50e2 * t50456 * t6728 - 0.62888224691358024691e-1 * t19643 * t332 * t340 - 0.24e2 * t21078 * t19638 - 0.24e2 * t61574 * t6612 - 0.24e2 * t61425 * t6612 - 0.12e2 * t70453 * t5713 + 0.54e2 * t70456 * t5727 - 0.24e2 * t19818 * t21067 + 0.108e3 * t19822 * t21071 - 0.24e2 * t73351 * t5109;
23593   t73355 = t63724 * t441;
23594   t73358 = t5720 * t1680;
23595   t73361 = t17602 * t1680;
23596   t73374 = t1101 * t23612;
23597   t73375 = t1190 * t262;
23598   t73379 = t23592 * t1314;
23599   t73390 = 0.108e3 * t73355 * t5124 - 0.24e2 * t73358 * t5109 + 0.108e3 * t73361 * t5124 - 0.12e2 * t21078 * t19640 + 0.54e2 * t21081 * t19677 + 0.324e3 * t21081 * t19662 + 0.108e3 * t21081 * t19665 - 0.648e3 * t63844 * t19658 - 0.50015703925293659423e-4 * t73374 * t73375 * t1091 - 0.4959e4 / 0.10000e5 * t39396 * t73379 - 0.12e2 * t1101 * t16180 * t6609 - 0.6e1 * t1101 * t19701 * t5710 - 0.12e2 * t3810 * t23601;
23600   t73423 = -0.6e1 * t1101 * t59735 * t1751 - 0.12e2 * t21214 * t5467 - 0.12e2 * t1101 * t5466 * t21125 - 0.12e2 * t63717 * t1670 - 0.12e2 * t21214 * t5456 - 0.12e2 * t21214 * t5462 - 0.12e2 * t17587 * t6439 - 0.9e1 / 0.50e2 * t4278 * t21195 * t1663 - 0.9e1 / 0.50e2 * t12440 * t23508 - 0.9e1 / 0.50e2 * t16942 * t21259 - 0.9e1 / 0.100e3 * t4278 * t23589 * t1314 + 0.171e3 / 0.1000e4 * t12495 * t5806 * t6406 + 0.83359506542156099039e-5 * t1097 * t23613;
23601   t73448 = 0.2e1 * t6617 * t5486 + t5718 * t6460 + t1757 * t19760 - t6447 - 0.12e2 * t17587 * t6442 - 0.9e1 / 0.100e3 * t4278 * t1785 * t19800 - 0.9e1 / 0.100e3 * t12440 * t23503 - 0.9e1 / 0.100e3 * t4278 * t5806 * t6425 - 0.6e1 * t3810 * t23597 - 0.9e1 / 0.50e2 * t16942 * t21090 - 0.24e2 * t19833 * t21058 - 0.24e2 * t19833 * t21061 - 0.24e2 * t19833 * t21064;
23602   t73462 = t52646 * t6165;
23603   t73465 = t3836 * t262;
23604   t73466 = t1524 * t1540;
23605   t73467 = t73466 * t1122;
23606   t73471 = t73466 * t1091;
23607   t73481 = t23521 * t1100;
23608   t73486 = 0.108e3 * t61577 * t6624 - 0.9e1 / 0.50e2 * t16942 * t21093 - 0.12e2 * t5720 * t19815 + 0.324e3 * t16222 * t23542 + 0.324e3 * t16226 * t23542 + 0.324e3 * t5453 * t73462 + 0.42260886992592592593e0 * t64948 * t73465 * t73467 - 0.60372695703703703704e0 * t64948 * t65019 * t73471 + 0.27167713066666666667e1 * t65023 * t65024 * t73471 - 0.9e1 / 0.50e2 * t4278 * t6693 * t5441 - t23628 - 0.6e1 * t73481 * t1322 - 0.12e2 * t5116 * t21219;
23609   t73514 = -0.12e2 * t5720 * t19803 - 0.6e1 * t17587 * t6445 - 0.6e1 * t5720 * t19697 - 0.9e1 / 0.100e3 * t59580 * t5846 - 0.9e1 / 0.50e2 * t65011 * t5494 + 0.10481370781893004115e0 * t6175 * t274 * t340 - 0.58351654579509269327e-4 * t269 * t6387 - 0.9e1 / 0.100e3 * t17929 * t19629 - 0.24e2 * t5459 * t73212 - 0.24e2 * t16197 * t23517 - 0.24e2 * t16241 * t23517 - 0.24e2 * t5459 * t73216 - 0.24e2 * t5459 * t73218;
23610   t73539 = t1754 * t19636;
23611   t73552 = t23508 * t1314;
23612   t73567 = -t19846 - 0.12e2 * t63717 * t1532 + 0.1080e4 * t5122 * t73539 + 0.648e3 * t5122 * t73322 - 0.6e1 * t19644 * t5735 - 0.12e2 * t16110 * t6627 + 0.10481370781893004115e0 * t23695 * t1676 - 0.9e1 / 0.50e2 * t1646 * t21327 + 0.171e3 / 0.500e3 * t21496 * t73552 - 0.12e2 * t16875 * t23519 - 0.12e2 * t16870 * t23519 - 0.12e2 * t5130 * t73222 - 0.12e2 * t5130 * t73224 - 0.12e2 * t70639 * t5713 + 0.54e2 * t70642 * t5727;
23613   t73584 = t5720 * t1641;
23614   t73587 = t17602 * t1641;
23615   t73594 = t1101 * t330;
23616   t73602 = -0.6e1 * t59577 * t1759 - 0.9e1 / 0.50e2 * t1646 * t21359 + 0.54e2 * t21389 * t19677 + 0.324e3 * t21389 * t19662 + 0.108e3 * t21389 * t19665 - 0.648e3 * t64382 * t19658 - 0.24e2 * t21386 * t19638 - 0.24e2 * t70608 * t5713 - 0.24e2 * t73584 * t5109 + 0.108e3 * t73587 * t5124 - 0.12e2 * t21386 * t19640 - 0.6e1 * t5720 * t20342 - 0.50015703925293659423e-4 * t73594 * t23613 * t1094 + 0.108e3 * t20425 * t21044 - t20344 - 0.9e1 / 0.50e2 * t6659 * t5407;
23617   t73616 = t17612 * t19634;
23618   t73619 = t17800 * t19634;
23619   t73638 = -0.58351654579509269327e-4 * t269 * t23044 + 0.324e3 * t5122 * t73462 - 0.12e2 * t1101 * t1239 * t6165 * t1751 - 0.648e3 * t50347 * t23539 - 0.648e3 * t16906 * t73250 + 0.324e3 * t5122 * t73616 - 0.648e3 * t16906 * t73619 + 0.20962741563786008230e0 * t23698 * t1676 - 0.1296e4 * t61347 * t21099 - 0.12e2 * t5116 * t21363 - 0.12e2 * t5116 * t21464 - 0.12e2 * t16110 * t6632 - 0.24e2 * t20419 * t21058 - 0.24e2 * t20419 * t21061 - 0.24e2 * t20419 * t21064;
23620   t73673 = 0.108e3 * t61361 * t6624 + 0.108e3 * t61355 * t6624 + 0.108e3 * t20422 * t21044 + 0.108e3 * t20422 * t21047 + 0.108e3 * t20425 * t21047 + 0.108e3 * t16895 * t23545 + 0.108e3 * t16898 * t23545 + 0.108e3 * t5122 * t73283 + 0.108e3 * t5122 * t73286 + 0.54e2 * t16895 * t23548 + 0.54e2 * t16898 * t23548 - 0.4959e4 / 0.10000e5 * t64588 * t73379 + 0.171e3 / 0.500e3 * t21496 * t73315 - 0.9e1 / 0.50e2 * t406 * t64259 * t1663 - 0.9e1 / 0.50e2 * t1285 * t23736 - 0.9e1 / 0.100e3 * t406 * t17883 * t6425;
23621   t73701 = -0.9e1 / 0.50e2 * t1244 * t23736 - 0.9e1 / 0.100e3 * t1285 * t23739 - t20373 + t20375 - 0.12e2 * t5116 * t21352 - 0.6e1 * t19644 * t5730 - 0.12e2 * t5720 * t20406 - 0.9e1 / 0.100e3 * t6402 * t5779 - 0.24e2 * t59779 * t6612 - t23688 - 0.12e2 * t5720 * t20389 - 0.6e1 * t17587 * t6190 - 0.9e1 / 0.50e2 * t406 * t21326 * t5441 - 0.9e1 / 0.100e3 * t1244 * t23739 - 0.9e1 / 0.50e2 * t1646 * t21323;
23622   t73727 = t21214 * t376;
23623   t73730 = t63724 * t376;
23624   t73737 = 0.54e2 * t70626 * t5727 + 0.171e3 / 0.1000e4 * t21496 * t73239 + 0.171e3 / 0.1000e4 * t1244 * t23665 - 0.24e2 * t20369 * t21058 - 0.24e2 * t20369 * t21061 - 0.24e2 * t20369 * t21064 - 0.24e2 * t61358 * t6612 - 0.24e2 * t61352 * t6612 - 0.6e1 * t1101 * t59775 * t1751 - 0.12e2 * t5720 * t20352 + 0.171e3 / 0.1000e4 * t1285 * t23665 - 0.12e2 * t17587 * t6184 - 0.24e2 * t73727 * t5109 + 0.108e3 * t73730 * t5124 - 0.12e2 * t71639 * t5713 - 0.30186347851851851852e0 * t52725 * t23634;
23625   t73742 = t1191 * t5111 * t1540;
23626   t73746 = t1191 * t1527 * t5165;
23627   t73750 = t1191 * t6170 * t1122;
23628   t73753 = t1764 * t19638;
23629   t73756 = t1764 * t19662;
23630   t73759 = t6193 * t262;
23631   t73761 = t3947 * t73759 * t1091;
23632   t73765 = t1191 * t6172 * t1122;
23633   t73768 = t1764 * t19640;
23634   t73771 = t1764 * t19677;
23635   t73775 = t1191 * t6394 * t1122;
23636   t73778 = t1764 * t19665;
23637   t73788 = -0.30186347851851851852e0 * t52770 * t23634 - 0.30186347851851851852e0 * t17644 * t73742 - 0.30186347851851851852e0 * t17644 * t73746 - 0.30186347851851851852e0 * t17644 * t73750 + 0.15093173925925925926e1 * t17644 * t73753 - 0.20375784800000000001e2 * t21318 * t73756 + 0.21130443496296296296e0 * t17644 * t73761 - 0.15093173925925925926e0 * t17644 * t73765 + 0.75465869629629629630e0 * t17644 * t73768 - 0.33959641333333333334e1 * t21318 * t73771 + 0.13583856533333333334e1 * t21318 * t73775 - 0.67919282666666666668e1 * t21318 * t73778 + t6402 * t5807 / 0.10e2 + t20380 * t1786 / 0.10e2 - 0.12e2 * t1101 * t16834 * t6609;
23638   t73791 = t4189 * t23589;
23639   t73795 = t63620 * t5102;
23640   t73798 = t63636 * t5102;
23641   t73817 = t1764 * t19658;
23642   t73826 = 0.54e2 * t52673 * t6181 - 0.9e1 / 0.100e3 * t406 * t73791 * t1314 + 0.648e3 * t5122 * t73795 - 0.1296e4 * t16906 * t73798 - 0.24e2 * t20369 * t21067 + 0.108e3 * t20425 * t21071 - 0.12e2 * t3810 * t23678 + t1771 * t20345 / 0.10e2 + t5768 * t6426 / 0.10e2 + t5770 * t6426 / 0.10e2 - 0.9e1 / 0.100e3 * t5770 * t6407 - 0.9e1 / 0.100e3 * t5768 * t6407 + 0.40751569600000000001e2 * t64634 * t73817 + 0.108e3 * t70593 * t5727 - 0.24e2 * t20419 * t21067 + 0.108e3 * t20422 * t21071;
23643   t73868 = 0.24e2 * t1101 * t73212 + 0.24e2 * t1101 * t73216 + 0.24e2 * t1101 * t73218 + 0.24e2 * t1101 * t73220 + 0.12e2 * t1101 * t73222 + 0.12e2 * t1101 * t73224 - 0.324e3 * t17602 * t19662 - 0.108e3 * t17602 * t19665 + 0.24e2 * t21214 * t5109 + 0.1296e4 * t21285 * t73216 + 0.648e3 * t21285 * t73222 - 0.324e3 * t21288 * t73222 + 0.24e2 * t3810 * t23517 + 0.12e2 * t3810 * t23519 - 0.108e3 * t63724 * t5124 - t23550 + t23556;
23644   t73897 = t23515 * t1091;
23645   t73906 = 0.1296e4 * t12322 * t21058 * t48839 - 0.648e3 * t16173 * t21058 * t263 - 0.108e3 * t16173 * t21044 - 0.108e3 * t16173 * t21047 - 0.54e2 * t17602 * t19677 + 0.24e2 * t5720 * t19638 + 0.12e2 * t5720 * t19640 + 0.12e2 * t19644 * t5713 + 0.648e3 * t52676 * t19658 + 0.1296e4 * t21285 * t73212 - 0.648e3 * t21288 * t73212 - 0.648e3 * t21288 * t73216 - 0.108e3 * t48834 * t6624 - 0.54e2 * t59594 * t5727 - 0.9720e4 * t64085 * t73897 + 0.7776e4 * t64101 * t73897 - 0.1080e4 * t64104 * t73897;
23646   t73934 = 0.6e1 * t73481 * t1094 + 0.12e2 * t1101 * t73214 + 0.12e2 * t63717 * t1527 + 0.12e2 * t16110 * t6614 + 0.6e1 * t59577 * t1754 + 0.12e2 * t17587 * t6170 + 0.6e1 * t17587 * t6172 + 0.12e2 * t5720 * t19636 + 0.6e1 * t19644 * t5715 + 0.12e2 * t5116 * t21132 + 0.12e2 * t21214 * t5111 + 0.12e2 * t3810 * t23515 - 0.54e2 * t52673 * t6394 - t19679 + t19681 + t23530 + t6400;
23647   t73965 = -0.324e3 * t12312 * t23542 - 0.108e3 * t12312 * t23545 - 0.54e2 * t12312 * t23548 + 0.648e3 * t12321 * t73250 + 0.24e2 * t16110 * t6612 - 0.108e3 * t16173 * t21071 + 0.24e2 * t5116 * t21058 + 0.24e2 * t5116 * t21061 + 0.24e2 * t5116 * t21064 + 0.24e2 * t5116 * t21067 + 0.648e3 * t38183 * t23539 - 0.108e3 * t3817 * t73283 - 0.108e3 * t3817 * t73286 - 0.54e2 * t3817 * t73293 - 0.324e3 * t3817 * t73462 + t19675 - t73227;
23648   t73967 = t73868 + t73906 + t73934 + t73965;
23649   t73993 = 0.324e3 * t16895 * t23542 + 0.324e3 * t16898 * t23542 - 0.6e1 * t73481 * t1103 + t23557 * t1284 * t428 + t73967 * t405 * t428 - 0.9e1 / 0.50e2 * t5398 * t6665 - 0.9e1 / 0.50e2 * t5396 * t6665 + 0.2e1 * t6617 * t5383 - 0.9e1 / 0.50e2 * t1771 * t20339 - 0.9e1 / 0.100e3 * t406 * t5778 * t19800 - 0.12577644938271604938e0 * t5114 * t1586 * t1765 - 0.12577644938271604938e0 * t1530 * t5211 * t1765 - 0.1296e4 * t61125 * t21099 + 0.2e1 * t21135 * t1641 + 0.83359506542156099039e-5 * t1097 * t23729;
23650   t73998 = t52661 * t19636;
23651   t74001 = t17800 * t19632;
23652   t74004 = t52558 * t19636;
23653   t74045 = -0.73e2 / 0.81e2 * t23110 - t23568 + t23574 + 0.73e2 / 0.162e3 * t23107 - 0.73e2 / 0.162e3 * t23113 + 0.146e3 / 0.135e3 * t1763 * t6672 * t5106 + 0.73e2 / 0.9720e4 * t46 * t274 * t21125 * t424 - 0.73e2 / 0.4860e4 * t46 * t23575 * t1091 - 0.73e2 / 0.4860e4 * t46 * t21164 * t1524 - 0.73e2 / 0.4860e4 * t46 * t6679 * t5106 - 0.73e2 / 0.9720e4 * t46 * t1654 * t21125 + t23585 - t19791;
23654   t74069 = t19793 + t19799 - t6420 + t6424 + 0.73e2 / 0.135e3 * t1763 * t23565 * t1091 - 0.73e2 / 0.3645e4 * t46 * t1112 * t6609 * t424 + 0.146e3 / 0.3645e4 * t46 * t21160 * t1524 + 0.73e2 / 0.3645e4 * t46 * t5418 * t6609 + 0.584e3 / 0.135e3 * t21171 * t1524 + 0.584e3 / 0.135e3 * t21174 * t1524 + 0.584e3 / 0.135e3 * t6683 * t5106 + 0.292e3 / 0.135e3 * t5794 * t6167 + 0.292e3 / 0.135e3 * t5797 * t6167;
23655   t74070 = t74045 + t74069;
23656   t74081 = 0.83359506542156099039e-5 * t269 * t1177 * t23612 * t1190 - 0.7776e4 * t16906 * t73998 - 0.1296e4 * t16906 * t74001 + 0.9720e4 * t49301 * t74004 - 0.62888224691358024691e-1 * t19643 * t330 * t1765 - 0.62888224691358024691e-1 * t6175 * t1177 * t1765 + 0.10481370781893004115e0 * t23692 * t1676 - 0.12e2 * t21214 * t5127 - 0.12e2 * t21214 * t5133 - 0.24e2 * t5130 * t73212 - 0.24e2 * t16875 * t23517 + t406 * t1291 * t74070 / 0.10e2 - t23723 - 0.6e1 * t1101 * t20402 * t5710 + t1244 * t23711 / 0.10e2 + t1285 * t23711 / 0.10e2;
23657   t74115 = 0.171e3 / 0.1000e4 * t406 * t52761 * t6406 + t23683 * t1315 / 0.10e2 + 0.648e3 * t20422 * t21096 - 0.62888224691358024691e-1 * t1097 * t6285 * t1765 - 0.62888224691358024691e-1 * t269 * t20059 * t1765 + t20378 * t1786 / 0.10e2 - 0.24e2 * t61370 * t6612 - 0.12e2 * t21214 * t5138 - 0.24e2 * t16870 * t23517 - 0.24e2 * t5130 * t73216 - 0.24e2 * t5130 * t73218 - 0.24e2 * t5130 * t73220 + t1757 * t20322 + t1646 * t21481 / 0.5e1 + t5398 * t6694 / 0.5e1;
23658   t74148 = -0.6e1 * t5720 * t20403 + 0.171e3 / 0.1000e4 * t1771 * t20362 + 0.75465869629629629630e0 * t64411 * t6639 + 0.75465869629629629630e0 * t21430 * t21427 + 0.75465869629629629630e0 * t64397 * t6639 + 0.75465869629629629630e0 * t64401 * t6639 - 0.70434811654320987653e-1 * t21398 * t21423 - 0.12577644938271604938e1 * t17845 * t23749 - 0.62888224691358024692e0 * t17845 * t23753 + 0.56599402222222222223e1 * t52965 * t23757 - 0.12e2 * t5720 * t20386 + 0.54e2 * t17602 * t20324 - 0.12e2 * t17587 * t6187 + t6659 * t5442 / 0.5e1 + t5396 * t6694 / 0.5e1 + t21451 * t1664 / 0.5e1;
23659   t74159 = t5116 * t21338;
23660   t74168 = t6285 * t332;
23661   t74169 = t1101 * t74168;
23662   t74172 = t19644 * t5741;
23663   t74187 = t21453 * t1664 / 0.5e1 - 0.33959641333333333334e1 * t53049 * t23757 - 0.33959641333333333334e1 * t53052 * t23757 + 0.75465869629629629630e0 * t64408 * t6639 + 0.75465869629629629628e0 * t74159 * t5745 - 0.70434811654320987653e-1 * t21339 * t21423 + 0.37732934814814814815e0 * t17863 * t23753 + 0.37732934814814814815e0 * t17867 * t23753 + 0.37732934814814814815e0 * t74169 * t5745 + 0.37732934814814814815e0 * t74172 * t5745 + 0.75465869629629629630e0 * t21441 * t21427 + 0.84521773985185185182e-1 * t5753 * t46 * t70488 - 0.70434811654320987652e-1 * t5753 * t46 * t70491 + 0.75465869629629629630e0 * t17863 * t23749 + 0.75465869629629629630e0 * t17867 * t23749;
23664   t74188 = t339 * t1091;
23665   t74199 = t3817 * t64704;
23666   t74206 = t16173 * t17643;
23667   t74219 = 0.75465869629629629630e0 * t5742 * t46 * t74188 * t6165 - 0.12577644938271604938e1 * t64234 * t6639 - 0.12577644938271604938e1 * t64366 * t6639 + t23755 + t23769 - 0.6e1 * t3810 * t23668 - t6192 - 0.67919282666666666667e1 * t74199 * t21233 - 0.30186347851851851852e0 * t64850 * t21227 + 0.15093173925925925926e1 * t64850 * t21230 - 0.67919282666666666667e1 * t74206 * t21233 - 0.30186347851851851851e0 * t64850 * t21238 - 0.30186347851851851851e0 * t64705 * t21238 + 0.50310579753086419753e0 * t52773 * t23634 - 0.30186347851851851852e0 * t64705 * t21227 + 0.15093173925925925926e1 * t64705 * t21230;
23668   t74240 = t6175 * t5741;
23669   t74251 = t23612 * t3836;
23670   t74252 = t74251 * t1122;
23671   t74255 = -0.12e2 * t5116 * t21446 + t5718 * t6390 - 0.9e1 / 0.100e3 * t1771 * t20399 - 0.83850966255144032920e-1 * t64593 * t6645 + 0.50310579753086419752e-1 * t21339 * t21106 + 0.50310579753086419752e-1 * t64718 * t6645 + 0.50310579753086419752e-1 * t64510 * t6645 + 0.58695676378600823043e-1 * t17877 * t23620 + 0.50310579753086419752e-1 * t64596 * t6645 + 0.50310579753086419752e-1 * t64599 * t6645 + 0.25155289876543209876e-1 * t74240 * t5754 + t73227 * t376 + t23522 * t1239 - 0.12e2 * t1101 * t5137 * t21125 + 0.171e3 / 0.500e3 * t1646 * t12494 * t21244 - 0.11670330915901853865e-4 * t1762 * t74252;
23672   t74262 = t1530 * t21338;
23673   t74267 = t269 * t74168;
23674   t74270 = t3947 * t262;
23675   t74295 = 0.50310579753086419752e-1 * t21398 * t21106 - 0.35217405827160493826e-1 * t17728 * t23620 - 0.35217405827160493826e-1 * t17880 * t23620 + 0.50310579753086419752e-1 * t74262 * t5754 - 0.83850966255144032920e-1 * t64498 * t6645 + 0.25155289876543209876e-1 * t74267 * t5754 + 0.42260886992592592593e0 * t17644 * t74270 * t73467 - 0.60372695703703703704e0 * t17644 * t64320 * t73471 + 0.27167713066666666667e1 * t21318 * t64326 * t73471 - 0.12e2 * t1101 * t23673 * t5710 - 0.12e2 * t3810 * t23674 + 0.648e3 * t20425 * t21096 + 0.108e3 * t59782 * t6624 + 0.108e3 * t59952 * t6624 + 0.54e2 * t5122 * t73293 - 0.648e3 * t50352 * t23539;
23676   t74301 = -0.24e2 * t5459 * t73220 - 0.12e2 * t16197 * t23519 - 0.12e2 * t16241 * t23519 - 0.12e2 * t5459 * t73222 - 0.12e2 * t5459 * t73224 - t19828 + t23648 - t23657 - 0.12e2 * t3810 * t23609 - 0.12e2 * t1101 * t1339 * t6165 * t1751 - 0.12e2 * t1101 * t23608 * t5710 - 0.35217405827160493826e-1 * t5828 * t23620 - p->cam_beta * (t73567 + t73602 + t73638 + t73673 + t73701 + t73737 + t73788 + t73826 + t73993 + t74081 + t74115 + t74148 + t74187 + t74219 + t74255 + t74295);
23677   t74324 = t23788 + 0.108e3 * t70562 * t5727 - 0.24e2 * t19833 * t21067 + 0.108e3 * t19836 * t21071 + t19832 - 0.12e2 * t16110 * t6707 + t5841 * t19800 / 0.10e2 - 0.30186347851851851852e0 * t5831 * t73750 - 0.15093173925925925926e0 * t5831 * t73765 + 0.75465869629629629630e0 * t5831 * t73768 - 0.33959641333333333334e1 * t17947 * t73771 + 0.13583856533333333334e1 * t17947 * t73775 - 0.20375784800000000001e2 * t17947 * t73756;
23678   t74351 = t23557 * t1291;
23679   t74354 = -0.67919282666666666668e1 * t17947 * t73778 + 0.40751569600000000001e2 * t52512 * t73817 + 0.21130443496296296296e0 * t5831 * t73761 - 0.30186347851851851852e0 * t17951 * t23634 - 0.30186347851851851852e0 * t5831 * t73742 - 0.30186347851851851852e0 * t5831 * t73746 + 0.50310579753086419753e0 * t17955 * t23634 - 0.30186347851851851852e0 * t21031 * t21227 + 0.15093173925925925926e1 * t21031 * t21230 - 0.67919282666666666667e1 * t63956 * t21233 - 0.30186347851851851851e0 * t21031 * t21238 + 0.15093173925925925926e1 * t5831 * t73753 + t74351 * t1314 / 0.10e2;
23680   t74376 = t19644 * t1763;
23681   t74383 = -0.9e1 / 0.100e3 * t52580 * t6406 + t61564 * t1785 / 0.10e2 + t19692 * t5806 / 0.10e2 - 0.9e1 / 0.50e2 * t17929 * t19626 + 0.171e3 / 0.500e3 * t12495 * t73552 + 0.54e2 * t52673 * t6436 + 0.54e2 * t17602 * t19707 - 0.11670330915901853865e-4 * t269 * t74252 - 0.12577644938271604938e1 * t63946 * t6718 - 0.70434811654320987653e-1 * t1530 * t1763 * t5333 + 0.37732934814814814815e0 * t74376 * t5832 + 0.75465869629629629630e0 * t64923 * t6718 + 0.75465869629629629630e0 * t21031 * t21036;
23682   t74411 = 0.37732934814814814815e0 * t17951 * t23786 - 0.33959641333333333334e1 * t52509 * t23789 + 0.84521773985185185182e-1 * t21039 * t20305 - 0.70434811654320987652e-1 * t21039 * t20308 + 0.75465869629629629630e0 * t17951 * t23792 + 0.75465869629629629630e0 * t5831 * t1764 * t19636 - 0.62888224691358024692e0 * t17955 * t23786 + 0.56599402222222222223e1 * t52519 * t23789 - 0.12577644938271604938e1 * t17955 * t23792 + t73967 * t428 + 0.171e3 / 0.1000e4 * t52595 * t20438 + 0.25155289876543209876e-1 * t23658 * t5754 + 0.648e3 * t19836 * t21096;
23683   t74438 = -0.1296e4 * t59655 * t21099 + 0.648e3 * t19822 * t21096 - 0.1296e4 * t59635 * t21099 + 0.648e3 * t5453 * t73795 - 0.1296e4 * t16236 * t73798 + 0.324e3 * t5453 * t73616 - 0.648e3 * t16236 * t73619 - 0.7776e4 * t16236 * t73998 - 0.1296e4 * t16236 * t74001 + 0.9720e4 * t50425 * t74004 + 0.1080e4 * t5453 * t73539 + t4275 * t23589 / 0.10e2 + t1342 * t74070 / 0.10e2;
23684   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23685     v4rhosigma2tau[23] = -t72953 - t1352 * t2415 * t23803 * t1082 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t73238 + t73267 + t73298 + t73327 + t73354 + t73390 + t73423 + t73448 + t73486 + t73514 + t74301 + t74324 + t74354 + t74383 + t74411 + t74438);
23686 
23687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23688     v4rhosigmalapl2[0] = 0.0e0;
23689 
23690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23691     v4rhosigmalapl2[1] = 0.0e0;
23692 
23693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23694     v4rhosigmalapl2[2] = 0.0e0;
23695 
23696   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23697     v4rhosigmalapl2[3] = 0.0e0;
23698 
23699   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23700     v4rhosigmalapl2[4] = 0.0e0;
23701 
23702   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23703     v4rhosigmalapl2[5] = 0.0e0;
23704 
23705   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23706     v4rhosigmalapl2[6] = 0.0e0;
23707 
23708   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23709     v4rhosigmalapl2[7] = 0.0e0;
23710 
23711   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23712     v4rhosigmalapl2[8] = 0.0e0;
23713 
23714   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23715     v4rhosigmalapl2[9] = 0.0e0;
23716 
23717   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23718     v4rhosigmalapl2[10] = 0.0e0;
23719 
23720   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23721     v4rhosigmalapl2[11] = 0.0e0;
23722 
23723   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23724     v4rhosigmalapl2[12] = 0.0e0;
23725 
23726   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23727     v4rhosigmalapl2[13] = 0.0e0;
23728 
23729   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23730     v4rhosigmalapl2[14] = 0.0e0;
23731 
23732   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23733     v4rhosigmalapl2[15] = 0.0e0;
23734 
23735   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23736     v4rhosigmalapl2[16] = 0.0e0;
23737 
23738   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23739     v4rhosigmalapl2[17] = 0.0e0;
23740 
23741   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23742     v4rhosigmalapltau[0] = 0.0e0;
23743 
23744   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23745     v4rhosigmalapltau[1] = 0.0e0;
23746 
23747   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23748     v4rhosigmalapltau[2] = 0.0e0;
23749 
23750   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23751     v4rhosigmalapltau[3] = 0.0e0;
23752 
23753   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23754     v4rhosigmalapltau[4] = 0.0e0;
23755 
23756   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23757     v4rhosigmalapltau[5] = 0.0e0;
23758 
23759   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23760     v4rhosigmalapltau[6] = 0.0e0;
23761 
23762   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23763     v4rhosigmalapltau[7] = 0.0e0;
23764 
23765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23766     v4rhosigmalapltau[8] = 0.0e0;
23767 
23768   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23769     v4rhosigmalapltau[9] = 0.0e0;
23770 
23771   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23772     v4rhosigmalapltau[10] = 0.0e0;
23773 
23774   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23775     v4rhosigmalapltau[11] = 0.0e0;
23776 
23777   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23778     v4rhosigmalapltau[12] = 0.0e0;
23779 
23780   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23781     v4rhosigmalapltau[13] = 0.0e0;
23782 
23783   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23784     v4rhosigmalapltau[14] = 0.0e0;
23785 
23786   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23787     v4rhosigmalapltau[15] = 0.0e0;
23788 
23789   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23790     v4rhosigmalapltau[16] = 0.0e0;
23791 
23792   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23793     v4rhosigmalapltau[17] = 0.0e0;
23794 
23795   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23796     v4rhosigmalapltau[18] = 0.0e0;
23797 
23798   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23799     v4rhosigmalapltau[19] = 0.0e0;
23800 
23801   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23802     v4rhosigmalapltau[20] = 0.0e0;
23803 
23804   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23805     v4rhosigmalapltau[21] = 0.0e0;
23806 
23807   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23808     v4rhosigmalapltau[22] = 0.0e0;
23809 
23810   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
23811     v4rhosigmalapltau[23] = 0.0e0;
23812 
23813   t74447 = t14520 * t24100 / 0.2e1;
23814   t74452 = t24092 * t731;
23815   t74455 = t6596 * t5610;
23816   t74464 = t24017 * t731;
23817   t74478 = 0.171e3 / 0.500e3 * t7915 * t74452 + 0.171e3 / 0.500e3 * t7915 * t74455 - 0.12e2 * t20679 * t5624 - 0.12e2 * t20679 * t5629 - 0.12e2 * t17025 * t6575 + 0.171e3 / 0.1000e4 * t7915 * t74464 - 0.9e1 / 0.100e3 * t7894 * t24017 - 0.9e1 / 0.100e3 * t2394 * t21706 * t1495 - 0.24e2 * t62740 * t6480 - 0.24e2 * t20515 * t20496 - 0.24e2 * t20515 * t20499;
23818   t74503 = t23862 * t708;
23819   t74506 = -0.24e2 * t20515 * t20502 + 0.108e3 * t62703 * t6492 + 0.108e3 * t62706 * t6492 + 0.108e3 * t20518 * t20468 + 0.108e3 * t20518 * t20471 - 0.12577644938271604938e0 * t20595 * t114 * t124 + 0.20962741563786008230e0 * t6485 * t51 * t124 - 0.6e1 * t65267 * t1502 - 0.6e1 * t21529 * t4657 - 0.6e1 * t21529 * t4663 - 0.9e1 / 0.50e2 * t17157 * t20657 + t74503 * t731 / 0.10e2;
23820   t74508 = t23824 * t477;
23821   t74517 = t17032 * t20582;
23822   t74520 = t65164 * t4296;
23823   t74523 = t17032 * t20584;
23824   t74526 = t17065 * t20584;
23825   t74529 = t17065 * t20582;
23826   t74532 = t65131 * t4296;
23827   t74548 = t6473 * t5514;
23828   t74559 = t65272 * t160;
23829   t74564 = -0.12e2 * t61956 * t1701 - 0.9e1 / 0.50e2 * t5572 * t6533 + t20828 * t1728 / 0.5e1 + t6781 * t4643 / 0.10e2 - 0.6e1 * t1855 * t23871 - 0.9e1 / 0.100e3 * t208 * t21618 * t4642 - 0.24e2 * t4324 * t74548 - 0.12e2 * t18278 * t21566 + 0.54e2 * t18281 * t21631 - 0.9e1 / 0.100e3 * t6781 * t4608 - 0.9e1 / 0.50e2 * t1713 * t20820 + 0.54e2 * t74559 * t4318 - 0.24e2 * t72118 * t5517;
23830   t74567 = t21529 * t160;
23831   t74574 = t23814 * t468;
23832   t74577 = t1863 * t23813;
23833   t74578 = t74577 * t468;
23834   t74597 = 0.108e3 * t72121 * t5531 - 0.12e2 * t74567 * t4303 + 0.54e2 * t18792 * t21631 + 0.171e3 / 0.1000e4 * t20773 * t74464 - 0.12e2 * t4324 * t74574 + 0.54e2 * t4316 * t74578 - 0.12e2 * t18271 * t21566 - 0.12e2 * t5524 * t20861 - 0.12e2 * t4310 * t21654 - 0.12e2 * t17025 * t6500 - 0.12e2 * t5524 * t20858 - 0.12e2 * t1855 * t23991 + t20770 * t1728 / 0.5e1 + 0.108e3 * t72467 * t5531;
23835   t74643 = 0.73e2 / 0.81e2 * t23261 - 0.146e3 / 0.81e2 * t23264 - 0.73e2 / 0.81e2 * t23271 - 0.73e2 / 0.135e3 * t1705 * t45 * t20555 * t226 + 0.146e3 / 0.135e3 * t1705 * t23879 * t468 + 0.146e3 / 0.135e3 * t1705 * t21679 * t1356 + 0.146e3 / 0.135e3 * t1705 * t6794 * t4300 + 0.73e2 / 0.135e3 * t1705 * t1718 * t20555 + 0.73e2 / 0.19440e5 * t46 * t51 * t21525 * t226 - 0.73e2 / 0.9720e4 * t46 * t23889 * t468 - 0.73e2 / 0.4860e4 * t46 * t6547 * t5514 - 0.73e2 / 0.19440e5 * t46 * t1486 * t21525 - 0.73e2 / 0.7290e4 * t46 * t496 * t6743 * t226;
23836   t74649 = my_piecewise3(t24, -t464 * t6740 / 0.4e1, 0);
23837   t74677 = 0.73e2 / 0.7290e4 * t46 * t4619 * t6743 - 0.146e3 / 0.135e3 * t222 * t74649 * t226 + 0.292e3 / 0.135e3 * t23893 * t468 + 0.292e3 / 0.135e3 * t21690 * t1356 + 0.292e3 / 0.135e3 * t21693 * t1356 + 0.292e3 / 0.135e3 * t6801 * t4300 + 0.584e3 / 0.135e3 * t5598 * t6477 + 0.584e3 / 0.135e3 * t5601 * t6477 + 0.584e3 / 0.135e3 * t1722 * t20555 + 0.146e3 / 0.135e3 * t723 * t23813 + 0.146e3 / 0.135e3 * t225 * t74649 - 0.146e3 / 0.135e3 * t720 * t23813 * t226 + 0.73e2 / 0.3645e4 * t46 * t496 * t6737;
23838   t74678 = t74643 + t74677;
23839   t74702 = -0.24e2 * t20734 * t20505 + 0.108e3 * t20737 * t20509 + 0.324e3 * t13339 * t23841 + 0.54e2 * t13213 * t21598 + t208 * t708 * t74678 / 0.10e2 - 0.12e2 * t478 * t160 * t4300 * t6737 - 0.6e1 * t13277 * t6768 - 0.6e1 * t4310 * t21593 + 0.648e3 * t4316 * t74523 - 0.24e2 * t13336 * t23818 - 0.24e2 * t13344 * t23818 - 0.24e2 * t72464 * t5517 - 0.12e2 * t17025 * t6495 - 0.12e2 * t4310 * t21651;
23840   t74733 = 0.648e3 * t4316 * t74517 - 0.7776e4 * t13333 * t74520 - 0.6e1 * t21529 * t4321 - 0.6e1 * t21529 * t4327 + 0.171e3 / 0.1000e4 * t1478 * t21625 - 0.9e1 / 0.50e2 * t1478 * t21615 - 0.6e1 * t65267 * t1364 - 0.9e1 / 0.50e2 * t208 * t17300 * t6561 + t21716 * t1496 / 0.10e2 + 0.171e3 / 0.500e3 * t20773 * t74452 - 0.12e2 * t478 * t68436 * t6737 - 0.12e2 * t1855 * t23995 + 0.9720e4 * t42157 * t74532 - 0.1296e4 * t13333 * t74526;
23841   t74764 = 0.54e2 * t1862 * t42174 * t6737 - 0.9e1 / 0.50e2 * t6527 * t5583 + t1478 * t21707 / 0.10e2 + t4597 * t6809 / 0.10e2 + t4599 * t6809 / 0.10e2 + t6751 * t4584 - 0.9e1 / 0.50e2 * t208 * t5582 * t20577 - 0.12e2 * t5524 * t20905 - 0.12e2 * t5524 * t20864 + 0.54e2 * t40542 * t6758 - 0.9e1 / 0.50e2 * t638 * t23922 - 0.9e1 / 0.50e2 * t702 * t23922 - 0.6e1 * t478 * t13369 * t6743;
23842   t74767 = t2305 * t23908;
23843   t74792 = t5510 * t6477;
23844   t74795 = t5515 * t6477;
23845   t74798 = t1694 * t20555;
23846   t74801 = t1713 * t20848 / 0.5e1 - 0.9e1 / 0.100e3 * t208 * t74767 * t731 - 0.6e1 * t1855 * t23876 + 0.171e3 / 0.1000e4 * t208 * t21624 * t4642 + 0.171e3 / 0.1000e4 * t638 * t23919 + 0.171e3 / 0.1000e4 * t702 * t23919 + 0.20962741563786008230e0 * t23986 * t1508 + 0.20962741563786008230e0 * t23983 * t1508 - 0.12e2 * t20679 * t5534 - 0.12e2 * t478 * t633 * t1356 * t6737 - 0.9e1 / 0.50e2 * t1713 * t20869 - 0.24e2 * t4324 * t74792 - 0.24e2 * t4324 * t74795 - 0.24e2 * t4324 * t74798;
23847   t74823 = t21638 * t4300;
23848   t74832 = -0.12e2 * t13336 * t23820 - 0.12e2 * t13344 * t23820 - 0.9e1 / 0.50e2 * t1713 * t20825 - 0.1296e4 * t62538 * t20620 - 0.24e2 * t61915 * t6480 - 0.24e2 * t20734 * t20496 - 0.24e2 * t20734 * t20499 - 0.24e2 * t20734 * t20502 + 0.108e3 * t61925 * t6492 + 0.324e3 * t13326 * t23841 + 0.324e3 * t4316 * t74823 + 0.324e3 * t18792 * t21639 + 0.108e3 * t18792 * t21642 - 0.648e3 * t53796 * t21646;
23849   t74837 = t17102 * t17281;
23850   t74846 = t1706 * t20496;
23851   t74849 = t1706 * t20499;
23852   t74852 = t1706 * t20502;
23853   t74859 = t1706 * t20468;
23854   t74862 = t1706 * t20471;
23855   t74867 = -0.24e2 * t61931 * t6480 + 0.15093173925925925926e1 * t65588 * t20611 - 0.67919282666666666665e1 * t74837 * t20614 - 0.30186347851851851851e0 * t65588 * t20602 + 0.15093173925925925926e1 * t50951 * t23977 + 0.15093173925925925926e1 * t51105 * t23977 + 0.15093173925925925926e1 * t17282 * t74846 + 0.15093173925925925926e1 * t17282 * t74849 + 0.15093173925925925926e1 * t17282 * t74852 - 0.67919282666666666667e1 * t62229 * t23980 - 0.67919282666666666667e1 * t62340 * t23980 - 0.67919282666666666667e1 * t20762 * t74859 - 0.67919282666666666667e1 * t20762 * t74862 - 0.12e2 * t13277 * t6765;
23856   t74886 = t4300 * t6737;
23857   t74892 = t21558 * t1356;
23858   t74894 = t21560 * t1356;
23859   t74896 = t6744 * t4300;
23860   t74899 = t26 * t74649;
23861   t74901 = 0.2e1 * t1356 * t21525 + 0.4e1 * t1693 * t20555 + 0.2e1 * t468 * t23813 + 0.2e1 * t25 * t74649 + 0.2e1 * t4300 * t6743 + 0.4e1 * t5514 * t6477 + 0.36e2 * t74548 + 0.18e2 * t74574 + 0.36e2 * t74792 + 0.36e2 * t74795 + 0.36e2 * t74798 + 0.18e2 * t74886 + 0.18e2 * t74892 + 0.18e2 * t74894 + 0.18e2 * t74896 + 0.9e1 * t74899;
23862   t74902 = t74901 * t32;
23863   t74934 = t21645 * t4300;
23864   t74943 = -0.324e3 * t13213 * t21639 - 0.108e3 * t13213 * t21642 - 0.108e3 * t17102 * t20509 - 0.54e2 * t1862 * t74578 - 0.324e3 * t1862 * t74823 + 0.24e2 * t5524 * t20496 + 0.24e2 * t5524 * t20499 + 0.24e2 * t5524 * t20502 + 0.24e2 * t5524 * t20505 + 0.648e3 * t40545 * t21646 + 0.648e3 * t27298 * t23838 - 0.324e3 * t6986 * t23841 - 0.108e3 * t6986 * t23844 + 0.12e2 * t478 * t74574 + 0.12e2 * t478 * t74894 + 0.12e2 * t478 * t74896 + 0.648e3 * t6995 * t74934;
23865   t74944 = t17058 * t6477;
23866   t74947 = t5530 * t20555;
23867   t74968 = t65238 * t1356;
23868   t74971 = t21630 * t4300;
23869   t74982 = -0.54e2 * t13213 * t21631 + 0.24e2 * t1855 * t23818 + 0.12e2 * t1855 * t23820 - 0.108e3 * t1862 * t74944 - 0.108e3 * t1862 * t74947 - 0.54e2 * t1862 * t74968 - 0.54e2 * t1862 * t74971 + 0.24e2 * t20679 * t5517 + 0.24e2 * t4310 * t21564 + 0.12e2 * t4310 * t21566 - 0.54e2 * t6986 * t23855 - 0.54e2 * t65272 * t4318 + 0.24e2 * t478 * t74548 + 0.24e2 * t478 * t74792 + 0.24e2 * t478 * t74795 + 0.24e2 * t478 * t74798 + 0.12e2 * t478 * t74892;
23870   t75018 = 0.6e1 * t13277 * t6748 + 0.6e1 * t65267 * t1359 + 0.12e2 * t61956 * t1696 + 0.24e2 * t17025 * t6480 - 0.108e3 * t17102 * t20468 - 0.108e3 * t17102 * t20471 + 0.12e2 * t1855 * t23816 + 0.6e1 * t1855 * t23822 + 0.12e2 * t20679 * t5519 + 0.12e2 * t21529 * t4303 + 0.6e1 * t21529 * t4305 + 0.6e1 * t4310 * t21568 + 0.6e1 * t74508 * t471 + 0.12e2 * t478 * t74886 + 0.6e1 * t478 * t74899 - 0.108e3 * t50745 * t6492 - 0.108e3 * t61961 * t5531;
23871   t75029 = t23816 * t468;
23872   t75054 = -0.648e3 * t17102 * t20496 * t27 + 0.1296e4 * t20496 * t50722 * t6996 + 0.12e2 * t13277 * t6746 + 0.12e2 * t17025 * t6482 + 0.12e2 * t5524 * t20592 + 0.1296e4 * t20701 * t74548 + 0.1296e4 * t20701 * t74792 + 0.648e3 * t20701 * t74892 - 0.648e3 * t20704 * t74548 - 0.648e3 * t20704 * t74792 - 0.324e3 * t20704 * t74892 + 0.12e2 * t4310 * t21562 - 0.54e2 * t40542 * t6773 - 0.9720e4 * t62094 * t75029 + 0.7776e4 * t62098 * t75029 - 0.1080e4 * t62101 * t75029 - t74902;
23873   t75056 = t74943 + t74982 + t75018 + t75054;
23874   t75074 = t23944 * t732 / 0.10e2 + t23825 * t633 + t74902 * t160 - 0.6e1 * t21529 * t4332 - 0.9e1 / 0.100e3 * t1478 * t21619 + t75056 * t207 * t230 - 0.9e1 / 0.100e3 * t4597 * t6786 - 0.9e1 / 0.100e3 * t4599 * t6786 - 0.9e1 / 0.50e2 * t5574 * t6533 - 0.9e1 / 0.100e3 * t208 * t65636 * t1495 + t6527 * t5611 / 0.5e1 - 0.1296e4 * t13333 * t74529 + t638 * t23909 / 0.10e2;
23875   t75077 = t6473 * t506;
23876   t75092 = t1693 * t1372;
23877   t75093 = t75092 * t506;
23878   t75097 = t75092 * t468;
23879   t75107 = t23816 * t471;
23880   t75112 = t65146 * t4296;
23881   t75115 = t65307 * t4296;
23882   t75118 = t21752 * t1496 / 0.10e2 - 0.60372695703703703704e0 * t17282 * t62565 * t75077 - 0.40751569600000000000e2 * t20762 * t1706 * t27 * t20496 + 0.27167713066666666667e1 * t20762 * t62405 * t75077 + 0.81503139200000000000e2 * t62318 * t1706 * t6996 * t20496 + 0.42260886992592592593e0 * t17282 * t72764 * t75093 - 0.60372695703703703704e0 * t17282 * t62565 * t75097 + 0.27167713066666666667e1 * t20762 * t62405 * t75097 - 0.12e2 * t20679 * t5539 + t21571 * t1473 + 0.1080e4 * t4316 * t75107 + 0.54e2 * t6986 * t23933 - 0.648e3 * t13333 * t75112 + 0.324e3 * t4316 * t75115;
23883   t75134 = t24089 * t731;
23884   t75151 = -0.6e1 * t478 * t1868 * t23813 - 0.6e1 * t478 * t479 * t74649 + t23862 * t701 * t230 + 0.108e3 * t61928 * t6492 + 0.108e3 * t20737 * t20468 + 0.108e3 * t20737 * t20471 - 0.4959e4 / 0.10000e5 * t61877 * t75134 + 0.75465869629629629630e0 * t62139 * t6762 - 0.12577644938271604938e1 * t62428 * t6762 - 0.12577644938271604938e1 * t65468 * t6507 + 0.75465869629629629630e0 * t20795 * t21762 + 0.75465869629629629628e0 * t65528 * t6507 + 0.75465869629629629628e0 * t65531 * t6507 + 0.75465869629629629628e0 * t21756 * t20803;
23885   t75162 = t20679 * t5545;
23886   t75165 = t5524 * t20785;
23887   t75173 = t582 * t5519 * t1372;
23888   t75177 = t582 * t1696 * t4356;
23889   t75188 = -0.12577644938271604938e1 * t17248 * t23963 - 0.12577644938271604938e1 * t62569 * t6762 + 0.75465869629629629630e0 * t20806 * t21762 + 0.75465869629629629630e0 * t62135 * t6762 - 0.70434811654320987653e-1 * t21612 * t20809 + 0.75465869629629629628e0 * t75162 * t5549 + 0.75465869629629629628e0 * t75165 * t5549 - 0.30186347851851851852e0 * t50951 * t23974 - 0.30186347851851851852e0 * t51105 * t23974 - 0.30186347851851851852e0 * t17282 * t75173 - 0.30186347851851851852e0 * t17282 * t75177 + 0.75465869629629629630e0 * t5546 * t46 * t5547 * t20555 + 0.75465869629629629630e0 * t62126 * t6762 + 0.75465869629629629630e0 * t62440 * t6762;
23890   t75224 = 0.75465869629629629630e0 * t17230 * t23963 + 0.75465869629629629630e0 * t17233 * t23963 + t5572 * t6562 / 0.5e1 + t5574 * t6562 / 0.5e1 - 0.6e1 * t478 * t4331 * t21525 - 0.12e2 * t478 * t40916 * t6737 - 0.9e1 / 0.100e3 * t638 * t23868 - 0.9e1 / 0.100e3 * t702 * t23868 + 0.50310579753086419752e-1 * t65633 * t6513 + 0.50310579753086419752e-1 * t65630 * t6513 + 0.648e3 * t20737 * t20617 - 0.12577644938271604938e0 * t20595 * t112 * t1707 - 0.12577644938271604938e0 * t6485 * t568 * t1707 - 0.12577644938271604938e0 * t5522 * t1418 * t1707;
23891   t75230 = t6485 * t5545;
23892   t75237 = t1699 * t20785;
23893   t75256 = -0.12577644938271604938e0 * t1699 * t4405 * t1707 + 0.171e3 / 0.500e3 * t20773 * t74455 + 0.50310579753086419752e-1 * t75230 * t5558 - 0.83850966255144032920e-1 * t65557 * t6513 + 0.50310579753086419752e-1 * t21612 * t20627 + 0.50310579753086419752e-1 * t75237 * t5558 + 0.108e3 * t4316 * t74947 - 0.648e3 * t41007 * t23838 - 0.648e3 * t40996 * t23838 - 0.648e3 * t13333 * t74934 + 0.324e3 * t18281 * t21639 + 0.108e3 * t18281 * t21642 - 0.648e3 * t53828 * t21646 - 0.6e1 * t4310 * t21586;
23894   t75287 = -0.6e1 * t74508 * t480 - 0.12e2 * t4324 * t74892 - 0.12e2 * t4324 * t74894 - 0.12e2 * t4324 * t74896 + 0.54e2 * t13339 * t23855 + 0.54e2 * t13326 * t23855 + 0.54e2 * t4316 * t74968 + 0.54e2 * t4316 * t74971 + 0.171e3 / 0.500e3 * t1713 * t7029 * t20676 - 0.24e2 * t18278 * t21564 + 0.108e3 * t13339 * t23844 + 0.108e3 * t13326 * t23844 + 0.108e3 * t4316 * t74944 + t702 * t23909 / 0.10e2;
23895   t75295 = t582 * t6482 * t506;
23896   t75298 = t1706 * t20505;
23897   t75301 = t1706 * t20509;
23898   t75320 = 0.11319880444444444445e2 * t61864 * t23980 + 0.50310579753086419753e0 * t51096 * t23974 - 0.25155289876543209877e1 * t51096 * t23977 - 0.30186347851851851852e0 * t17282 * t75295 + 0.15093173925925925926e1 * t17282 * t75298 - 0.67919282666666666667e1 * t20762 * t75301 - 0.30186347851851851852e0 * t62595 * t21602 + 0.15093173925925925926e1 * t62595 * t21605 - 0.67919282666666666667e1 * t72504 * t21608 - 0.30186347851851851852e0 * t62592 * t21602 + 0.15093173925925925926e1 * t62592 * t21605 - 0.67919282666666666667e1 * t72660 * t21608 - 0.30186347851851851851e0 * t65588 * t20608 - 0.24e2 * t18271 * t21564;
23899   t75328 = -0.6e1 * t74508 * t739 + 0.648e3 * t20518 * t20617 - 0.1296e4 * t62713 * t20620 + 0.50310579753086419752e-1 * t24069 * t5558 + 0.648e3 * t4654 * t74517 - 0.7776e4 * t13254 * t74520 + 0.648e3 * t4654 * t74523 - 0.1296e4 * t13254 * t74526 - 0.1296e4 * t13254 * t74529 + 0.9720e4 * t40416 * t74532 - p->cam_beta * (t74564 + t74597 + t74702 + t74733 + t74764 + t74801 + t74832 + t74867 + t75074 + t75118 + t75151 + t75188 + t75224 + t75256 + t75287 + t75320) - 0.24e2 * t62737 * t6480;
23900   t75359 = t65888 * t1495 / 0.10e2 - 0.12e2 * t61956 * t1734 + 0.50310579753086419752e-1 * t21783 * t6513 + 0.50310579753086419752e-1 * t6817 * t20627 + 0.1080e4 * t4654 * t75107 - 0.83850966255144032920e-1 * t21820 * t6513 - 0.6e1 * t21529 * t4668 + 0.81503139200000000000e2 * t6995 * t62753 * t51268 * t20496 + 0.42260886992592592593e0 * t62754 * t71886 * t75093 - 0.60372695703703703704e0 * t62754 * t62758 * t75097 + 0.27167713066666666667e1 * t62762 * t62763 * t75097 - 0.60372695703703703704e0 * t62754 * t62758 * t75077;
23901   t75388 = -0.9e1 / 0.50e2 * t61630 * t5650 - 0.9e1 / 0.100e3 * t40702 * t6785 + t13272 * t6808 / 0.10e2 - 0.12e2 * t4310 * t21550 - 0.12e2 * t4310 * t21534 + 0.54e2 * t1862 * t40807 * t6737 - 0.12e2 * t13277 * t6826 - 0.12e2 * t5524 * t20632 - 0.12e2 * t5524 * t20638 - 0.12e2 * t17025 * t6580 + t5645 * t20577 / 0.5e1 - 0.9e1 / 0.50e2 * t2394 * t1727 * t20577;
23902   t75414 = -0.6e1 * t478 * t2356 * t23813 - 0.6e1 * t478 * t738 * t74649 - 0.4959e4 / 0.10000e5 * t27492 * t75134 - 0.12e2 * t5524 * t20643 - 0.12e2 * t5524 * t20635 + 0.54e2 * t40542 * t6820 - 0.12e2 * t478 * t40530 * t6737 + 0.171e3 / 0.1000e4 * t40595 * t21811 + t21571 * t1512 + t6751 * t4687 - 0.12e2 * t1855 * t24023 - 0.9e1 / 0.100e3 * t65936 * t4695;
23903   t75441 = -0.9e1 / 0.100e3 * t2394 * t6808 * t4642 - 0.24e2 * t72924 * t5517 + 0.54e2 * t6986 * t24008 + 0.54e2 * t4654 * t74971 - 0.648e3 * t40403 * t23838 - 0.648e3 * t40476 * t23838 - 0.648e3 * t13254 * t74934 - 0.24e2 * t14097 * t23818 - 0.24e2 * t13261 * t23818 - 0.24e2 * t4660 * t74792 - 0.24e2 * t4660 * t74795 - 0.24e2 * t4660 * t74798;
23904   t75466 = -0.12e2 * t13261 * t23820 - 0.12e2 * t14097 * t23820 + 0.324e3 * t14106 * t23841 + 0.108e3 * t14106 * t23844 + 0.54e2 * t14106 * t23855 + 0.324e3 * t14109 * t23841 + 0.54e2 * t14109 * t23855 + 0.324e3 * t4654 * t74823 + 0.54e2 * t4654 * t74968 - 0.12e2 * t4660 * t74892 - 0.12e2 * t4660 * t74894 - 0.12e2 * t4660 * t74896;
23905   t75493 = 0.108e3 * t14109 * t23844 + 0.108e3 * t4654 * t74944 + 0.108e3 * t4654 * t74947 + t759 * t74678 / 0.10e2 + t4690 * t21706 / 0.10e2 + t2391 * t23908 / 0.10e2 + t63037 * t1727 / 0.5e1 + t75056 * t230 + 0.324e3 * t4654 * t75115 - 0.648e3 * t13254 * t75112 - 0.6e1 * t4310 * t21526 - 0.6e1 * t4310 * t21539;
23906   t75521 = 0.171e3 / 0.1000e4 * t27414 * t24089 + 0.171e3 / 0.500e3 * t51364 * t20676 + t74902 * t244 + t23825 * t756 - 0.9e1 / 0.50e2 * t17157 * t20667 + 0.171e3 / 0.1000e4 * t7915 * t6785 * t4642 - 0.9e1 / 0.50e2 * t7894 * t24092 + 0.54e2 * t13213 * t21544 - 0.9e1 / 0.50e2 * t2394 * t5610 * t6561 - 0.12e2 * t478 * t244 * t4300 * t6737 - 0.6e1 * t13277 * t6829 + 0.27167713066666666667e1 * t62762 * t62763 * t75077;
23907   t75548 = -0.40751569600000000000e2 * t62762 * t51243 * t20496 + 0.15093173925925925926e1 * t21515 * t20611 - 0.67919282666666666665e1 * t65918 * t20614 - 0.30186347851851851852e0 * t20480 * t21602 + 0.15093173925925925926e1 * t20480 * t21605 - 0.67919282666666666667e1 * t62962 * t21608 - 0.30186347851851851852e0 * t5635 * t75295 + 0.15093173925925925926e1 * t5635 * t75298 - 0.67919282666666666667e1 * t17337 * t75301 + 0.11319880444444444445e2 * t51471 * t23980 - 0.67919282666666666667e1 * t51479 * t23980 - 0.67919282666666666667e1 * t17337 * t74859;
23908   t75573 = -0.67919282666666666667e1 * t17337 * t74862 - 0.30186347851851851852e0 * t17071 * t23974 - 0.30186347851851851852e0 * t5635 * t75173 - 0.30186347851851851852e0 * t5635 * t75177 + 0.15093173925925925926e1 * t17071 * t23977 + 0.15093173925925925926e1 * t5635 * t74846 + 0.15093173925925925926e1 * t5635 * t74849 + 0.15093173925925925926e1 * t5635 * t74852 - 0.30186347851851851851e0 * t21515 * t20602 - 0.30186347851851851851e0 * t21515 * t20608 + 0.50310579753086419753e0 * t17331 * t23974 - 0.25155289876543209877e1 * t17331 * t23977;
23909   t75586 = t21529 * t244;
23910   t75589 = t65272 * t244;
23911   t75602 = 0.54e2 * t18051 * t21631 - 0.12e2 * t18065 * t21566 + 0.54e2 * t18068 * t21631 - 0.24e2 * t20515 * t20505 + 0.108e3 * t20518 * t20509 - 0.12e2 * t75586 * t4303 + 0.54e2 * t75589 * t4318 + 0.54e2 * t4654 * t74578 - 0.12e2 * t4660 * t74574 - 0.24e2 * t72918 * t5517 + 0.108e3 * t72921 * t5531 + 0.108e3 * t72927 * t5531;
23912   t75628 = -0.12e2 * t478 * t6737 * t67432 - 0.24e2 * t18048 * t21564 - 0.12e2 * t18048 * t21566 + 0.324e3 * t18051 * t21639 + 0.108e3 * t18051 * t21642 - 0.24e2 * t18065 * t21564 + 0.324e3 * t18068 * t21639 + 0.108e3 * t18068 * t21642 - 0.12e2 * t1855 * t24027 - 0.648e3 * t53298 * t21646 - 0.648e3 * t53324 * t21646 - 0.24e2 * t4660 * t74548;
23913   t75653 = t20679 * t1705;
23914   t75660 = -0.12e2 * t478 * t756 * t1356 * t6737 - 0.9e1 / 0.100e3 * t2394 * t23908 * t731 - 0.6e1 * t478 * t14100 * t6743 - 0.6e1 * t478 * t4667 * t21525 - 0.6e1 * t1855 * t24060 - 0.6e1 * t1855 * t24057 - 0.9e1 / 0.50e2 * t51367 * t6596 + t20521 * t5610 / 0.5e1 + t17111 * t6561 / 0.5e1 + 0.75465869629629629628e0 * t75653 * t5636 + 0.75465869629629629628e0 * t65923 * t6586 + 0.75465869629629629628e0 * t21515 * t20485;
23915   t75687 = 0.75465869629629629630e0 * t62977 * t6823 + 0.75465869629629629630e0 * t20480 * t21520 + 0.75465869629629629630e0 * t17071 * t24054 + 0.75465869629629629630e0 * t5635 * t1706 * t20592 - 0.70434811654320987653e-1 * t1699 * t1705 * t4573 - 0.12577644938271604938e1 * t65913 * t6586 - 0.12577644938271604938e1 * t62847 * t6823 - 0.12577644938271604938e1 * t17331 * t24054 - 0.9e1 / 0.50e2 * t17157 * t20662 - 0.9e1 / 0.50e2 * t13201 * t21817 - 0.9e1 / 0.100e3 * t13201 * t21814 + t21553 * t4642 / 0.10e2;
23916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23917     v4rhosigmatau2[0] = -t74447 - t1352 * t2774 * t24099 * t455 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t74478 + t74506 + t75328 + t75359 + t75388 + t75414 + t75441 + t75466 + t75493 + t75521 + t75548 + t75573 + t75602 + t75628 + t75660 + t75687);
23918 
23919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23920     v4rhosigmatau2[1] = 0.0e0;
23921 
23922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23923     v4rhosigmatau2[2] = 0.0e0;
23924 
23925   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23926     v4rhosigmatau2[3] = 0.0e0;
23927 
23928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23929     v4rhosigmatau2[4] = 0.0e0;
23930 
23931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23932     v4rhosigmatau2[5] = 0.0e0;
23933 
23934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23935     v4rhosigmatau2[6] = 0.0e0;
23936 
23937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23938     v4rhosigmatau2[7] = 0.0e0;
23939 
23940   t75696 = t14520 * t24396 / 0.2e1;
23941   t75751 = -0.24e2 * t63478 * t6612 + 0.54e2 * t16173 * t21848 - 0.6e1 * t1101 * t3160 * t24128 + 0.54e2 * t3817 * t46771 * t6843 - 0.9e1 / 0.50e2 * t5673 * t6665 - 0.9e1 / 0.100e3 * t934 * t24285 - 0.9e1 / 0.50e2 * t934 * t24299 - 0.12e2 * t1101 * t875 * t1524 * t6843 - 0.12e2 * t1101 * t46815 * t6843 - 0.12e2 * t5116 * t21853 - 0.12e2 * t5720 * t20952;
23942   t75774 = -0.6e1 * t5116 * t21856 - 0.6e1 * t1101 * t15125 * t6849 + 0.75465869629629629630e0 * t63353 * t6868 + 0.75465869629629629630e0 * t63360 * t6868 + 0.75465869629629629630e0 * t17508 * t24342 + 0.75465869629629629628e0 * t66227 * t6639 + 0.50310579753086419752e-1 * t66188 * t6645 - 0.6e1 * t21965 * t4712 - 0.12e2 * t21214 * t5667 + t6857 * t4895 + t24140 * t875;
23943   t75797 = t24177 * t933 * t428 + 0.171e3 / 0.1000e4 * t934 * t24290 - 0.30186347851851851852e0 * t52084 * t24313 + 0.15093173925925925926e1 * t52084 * t24316 - 0.67919282666666666667e1 * t63499 * t24319 + t5673 * t6694 / 0.5e1 - 0.9e1 / 0.100e3 * t4897 * t6892 + t934 * t24370 / 0.10e2 + t20965 * t1786 / 0.5e1 + t4897 * t6915 / 0.10e2 + t21859 * t1664 / 0.10e2;
23944   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23945     v4rhosigmatau2[8] = -t75696 - t1352 * t2415 * t24395 * t767 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (-0.12e2 * t15118 * t24135 + 0.108e3 * t63511 * t6624 + 0.324e3 * t15112 * t24156 + 0.108e3 * t15112 * t24159 + 0.54e2 * t15112 * t24170 - 0.12577644938271604938e0 * t1757 * t4806 * t1765 - 0.12577644938271604938e0 * t6617 * t831 * t1765 - 0.648e3 * t46838 * t24153 - 0.24e2 * t15118 * t24133 - 0.12e2 * t5720 * t20947 + t75751 + t75774 + t75797);
23946 
23947   t75858 = -0.12e2 * t14556 * t23820 + 0.108e3 * t14550 * t23844 - 0.648e3 * t44308 * t23838 + 0.54e2 * t13213 * t21882 - 0.12e2 * t5524 * t20997 + 0.54e2 * t1862 * t44361 * t6737 - 0.9e1 / 0.50e2 * t1075 * t23922 - 0.9e1 / 0.100e3 * t1075 * t23868 + 0.324e3 * t14550 * t23841 + 0.108e3 * t63241 * t6492 - 0.24e2 * t63163 * t6480;
23948   t75881 = t23862 * t1074 * t230 - 0.6e1 * t21529 * t4911 + t5693 * t6562 / 0.5e1 + t1075 * t23909 / 0.10e2 + t21010 * t1728 / 0.5e1 + t5089 * t6809 / 0.10e2 + t21893 * t1496 / 0.10e2 - 0.12e2 * t478 * t44275 * t6737 + t6751 * t5087 + t23825 * t1034 + 0.50310579753086419752e-1 * t66096 * t6513;
23949   t75904 = 0.75465869629629629630e0 * t63166 * t6762 + 0.75465869629629629628e0 * t66065 * t6507 + 0.75465869629629629630e0 * t63272 * t6762 + 0.75465869629629629630e0 * t17436 * t23963 - 0.9e1 / 0.50e2 * t5693 * t6533 - 0.30186347851851851852e0 * t51751 * t23974 + 0.15093173925925925926e1 * t51751 * t23977 - 0.67919282666666666667e1 * t63142 * t23980 - 0.9e1 / 0.100e3 * t5089 * t6786 - 0.12e2 * t5524 * t20992 - 0.12e2 * t20679 * t5687;
23950   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23951     v4rhosigmatau2[9] = -t74447 - t1352 * t2774 * t24099 * t944 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (-0.12577644938271604938e0 * t1699 * t5001 * t1707 - 0.12577644938271604938e0 * t6485 * t993 * t1707 - 0.6e1 * t478 * t14563 * t6743 - 0.6e1 * t4310 * t21890 - 0.12e2 * t478 * t1034 * t1356 * t6737 - 0.6e1 * t478 * t2784 * t23813 + 0.171e3 / 0.1000e4 * t1075 * t23919 - 0.12e2 * t4310 * t21887 + 0.54e2 * t14550 * t23855 - 0.24e2 * t14556 * t23818 + t75858 + t75881 + t75904);
23952 
23953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23954     v4rhosigmatau2[10] = 0.0e0;
23955 
23956   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23957     v4rhosigmatau2[11] = 0.0e0;
23958 
23959   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23960     v4rhosigmatau2[12] = 0.0e0;
23961 
23962   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23963     v4rhosigmatau2[13] = 0.0e0;
23964 
23965   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23966     v4rhosigmatau2[14] = 0.0e0;
23967 
23968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23969     v4rhosigmatau2[15] = 0.0e0;
23970 
23971   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
23972     v4rhosigmatau2[16] = 0.0e0;
23973 
23974   t75926 = t21944 * t5106;
23975   t75933 = t17806 * t6609;
23976   t75940 = -0.6e1 * t21965 * t5456 - 0.6e1 * t21965 * t5462 - 0.12577644938271604938e0 * t21135 * t332 * t340 + 0.324e3 * t16222 * t24156 + 0.324e3 * t16226 * t24156 + 0.324e3 * t5453 * t75926 + 0.108e3 * t16222 * t24159 + 0.108e3 * t16226 * t24159 + 0.108e3 * t5453 * t75933 - 0.24e2 * t63643 * t6612 - 0.24e2 * t63646 * t6612;
23977   t75959 = t24177 * t1291;
23978   t75966 = -0.24e2 * t21078 * t21058 - 0.24e2 * t21078 * t21061 - 0.24e2 * t21078 * t21064 + 0.108e3 * t63655 * t6624 + 0.108e3 * t63837 * t6624 + 0.108e3 * t21081 * t21044 + 0.108e3 * t21081 * t21047 - 0.6e1 * t1101 * t16180 * t6849 + t24140 * t1339 + t75959 * t1314 / 0.10e2 + 0.648e3 * t21081 * t21096 - 0.1296e4 * t63844 * t21099;
23979   t75970 = t17612 * t21119;
23980   t75973 = t66713 * t5102;
23981   t75976 = t17612 * t21121;
23982   t75979 = t17800 * t21121;
23983   t75996 = 0.50310579753086419752e-1 * t24255 * t5754 + 0.648e3 * t5453 * t75970 - 0.7776e4 * t16236 * t75973 + 0.648e3 * t5453 * t75976 - 0.1296e4 * t16236 * t75979 - 0.12e2 * t5116 * t22192 - 0.6e1 * t5116 * t21932 - 0.6e1 * t5116 * t21938 - 0.12e2 * t5720 * t21208 - 0.12e2 * t17587 * t6707 - 0.24e2 * t19833 * t21955 - 0.24e2 * t19818 * t21955;
23984   t75997 = t6605 * t5710;
23985   t76023 = 0.54e2 * t3817 * t50472 * t6843 - 0.12e2 * t16110 * t6932 + 0.54e2 * t16173 * t22187 - 0.6e1 * t66406 * t1670 - 0.12e2 * t17587 * t6712 - 0.12e2 * t19833 * t21958 + 0.54e2 * t19836 * t21962 - 0.12e2 * t5720 * t21211 - 0.12e2 * t5720 * t21219 - 0.12e2 * t5720 * t21223 + 0.54e2 * t48834 * t6926 - 0.24e2 * t5459 * t75997;
23986   t76028 = t6728 * t5806;
23987   t76033 = t5726 * t21125;
23988   t76040 = t21951 * t5106;
23989   t76047 = t5706 * t6609;
23990   t76050 = t5711 * t6609;
23991   t76053 = t1752 * t21125;
23992   t76056 = 0.54e2 * t12312 * t24235 + 0.171e3 / 0.500e3 * t12495 * t76028 + t22207 * t5441 / 0.10e2 + 0.108e3 * t5453 * t76033 - 0.648e3 * t48852 * t24153 - 0.648e3 * t50414 * t24153 - 0.648e3 * t16236 * t76040 - 0.24e2 * t16197 * t24133 - 0.24e2 * t16241 * t24133 - 0.24e2 * t5459 * t76047 - 0.24e2 * t5459 * t76050 - 0.24e2 * t5459 * t76053;
23993   t76061 = t24131 * t1094;
23994   t76064 = t17800 * t21119;
23995   t76067 = t66950 * t5102;
23996   t76070 = t66809 * t5102;
23997   t76073 = t66568 * t5102;
23998   t76086 = -0.12e2 * t16197 * t24135 - 0.12e2 * t16241 * t24135 + 0.1080e4 * t5453 * t76061 - 0.1296e4 * t16236 * t76064 + 0.9720e4 * t50425 * t76067 + 0.324e3 * t5453 * t76070 - 0.648e3 * t16236 * t76073 - 0.12e2 * t21214 * t5820 - 0.12e2 * t21214 * t5825 - 0.9e1 / 0.50e2 * t16942 * t22221 + t16200 * t6914 / 0.10e2 - 0.12e2 * t5116 * t22195;
23999   t76116 = my_piecewise3(t260, -t1087 * t6846 / 0.4e1, 0);
24000   t76124 = -0.9e1 / 0.100e3 * t4278 * t24208 * t1314 + 0.171e3 / 0.1000e4 * t12495 * t6891 * t5441 + 0.171e3 / 0.1000e4 * t38016 * t24116 - 0.12e2 * t1101 * t1339 * t1524 * t6843 - 0.12e2 * t1101 * t441 * t5106 * t6843 - 0.6e1 * t16110 * t6935 - 0.6e1 * t1101 * t5466 * t21937 - 0.6e1 * t3810 * t24226 - 0.6e1 * t1101 * t4240 * t24128 - 0.6e1 * t1101 * t1321 * t76116 + t17939 * t6693 / 0.5e1 + t5841 * t21195 / 0.5e1;
24001   t76135 = t24129 * t1091;
24002   t76138 = t3818 * t24128;
24003   t76139 = t76138 * t1091;
24004   t76154 = -0.12e2 * t1101 * t48811 * t6843 - 0.12e2 * t1101 * t70323 * t6843 - 0.12e2 * t3810 * t24111 + 0.171e3 / 0.500e3 * t52595 * t21244 - 0.12e2 * t5459 * t76135 + 0.54e2 * t5453 * t76139 - 0.12e2 * t19818 * t21958 + 0.54e2 * t19822 * t21962 + t67153 * t1663 / 0.10e2 - 0.9e1 / 0.100e3 * t66454 * t5494 - 0.9e1 / 0.50e2 * t65011 * t5846 - 0.9e1 / 0.100e3 * t12440 * t24246;
24005   t76177 = t21981 * t1524;
24006   t76180 = t21961 * t5106;
24007   t76187 = t21983 * t1524;
24008   t76190 = t6850 * t5106;
24009   t76193 = -0.9e1 / 0.50e2 * t1771 * t21359 - 0.12e2 * t5720 * t21464 - 0.12e2 * t17587 * t6632 + 0.171e3 / 0.500e3 * t1771 * t12494 * t21244 - 0.9e1 / 0.50e2 * t6659 * t5779 - 0.9e1 / 0.50e2 * t5768 * t6665 - 0.9e1 / 0.100e3 * t406 * t21996 * t5441 - 0.12e2 * t5130 * t76177 + 0.54e2 * t5122 * t76180 - 0.12e2 * t16875 * t24135 - 0.12e2 * t16870 * t24135 - 0.12e2 * t5130 * t76187 - 0.12e2 * t5130 * t76190;
24010   t76198 = t66561 * t1524;
24011   t76217 = t4189 * t24208;
24012   t76225 = 0.54e2 * t16895 * t24170 + 0.54e2 * t16898 * t24170 + 0.54e2 * t5122 * t76198 - 0.24e2 * t64652 * t6612 - 0.24e2 * t21386 * t21058 - 0.24e2 * t21386 * t21061 - 0.24e2 * t21386 * t21064 + 0.20962741563786008230e0 * t24326 * t1676 + 0.20962741563786008230e0 * t24323 * t1676 - 0.648e3 * t50347 * t24153 - 0.9e1 / 0.50e2 * t1771 * t21323 - 0.9e1 / 0.100e3 * t406 * t76217 * t1314 - 0.12e2 * t21214 * t5730 - 0.12e2 * t63717 * t1759;
24013   t76246 = t5106 * t6843;
24014   t76255 = t262 * t76116;
24015   t76258 = t24139 * t1100;
24016   t76273 = 0.6e1 * t76258 * t1094 + 0.12e2 * t1101 * t76246 + 0.6e1 * t1101 * t76255 + 0.6e1 * t66406 * t1527 + 0.12e2 * t16110 * t6852 + 0.6e1 * t16110 * t6854 + 0.12e2 * t63717 * t1754 + 0.12e2 * t17587 * t6614 + 0.12e2 * t5720 * t21132 + 0.12e2 * t21214 * t5715 - 0.324e3 * t21288 * t76177 + 0.6e1 * t21965 * t5111 + 0.12e2 * t5116 * t21985 + 0.6e1 * t5116 * t21989 + 0.12e2 * t3810 * t24131 + 0.6e1 * t3810 * t24137 - 0.54e2 * t48834 * t6879;
24017   t76298 = 0.2e1 * t1091 * t24128 + 0.2e1 * t1524 * t21937 + 0.4e1 * t1751 * t21125 + 0.2e1 * t261 * t76116 + 0.2e1 * t5106 * t6849 + 0.4e1 * t5710 * t6609 + 0.36e2 * t75997 + 0.36e2 * t76047 + 0.36e2 * t76050 + 0.36e2 * t76053 + 0.18e2 * t76135 + 0.18e2 * t76177 + 0.18e2 * t76187 + 0.18e2 * t76190 + 0.18e2 * t76246 + 0.9e1 * t76255;
24018   t76299 = t76298 * t268;
24019   t76302 = t24131 * t1091;
24020   t76331 = -0.324e3 * t12312 * t24156 - 0.108e3 * t12312 * t24159 + 0.648e3 * t12321 * t76040 + 0.1296e4 * t21285 * t75997 + 0.1296e4 * t21285 * t76047 + 0.648e3 * t21285 * t76177 - 0.648e3 * t21288 * t75997 - 0.648e3 * t21288 * t76047 + 0.24e2 * t5116 * t21955 + 0.648e3 * t38183 * t24153 - 0.324e3 * t3817 * t75926 - 0.108e3 * t3817 * t75933 - 0.108e3 * t3817 * t76033 - 0.9720e4 * t64085 * t76302 + 0.7776e4 * t64101 * t76302 - 0.1080e4 * t64104 * t76302 - t76299;
24021   t76369 = 0.1296e4 * t12322 * t21058 * t52676 - 0.648e3 * t17602 * t21058 * t263 + 0.24e2 * t1101 * t75997 + 0.24e2 * t1101 * t76047 + 0.24e2 * t1101 * t76050 + 0.24e2 * t1101 * t76053 + 0.12e2 * t1101 * t76135 + 0.12e2 * t1101 * t76177 + 0.12e2 * t1101 * t76187 + 0.12e2 * t1101 * t76190 - 0.54e2 * t12312 * t24170 - 0.54e2 * t16173 * t21962 + 0.12e2 * t5116 * t21958 + 0.24e2 * t3810 * t24133 + 0.12e2 * t3810 * t24135 - 0.54e2 * t3817 * t76180 - 0.54e2 * t3817 * t76198;
24022   t76404 = -0.324e3 * t16173 * t21945 - 0.108e3 * t16173 * t21948 + 0.24e2 * t17587 * t6612 - 0.108e3 * t17602 * t21044 - 0.108e3 * t17602 * t21047 - 0.108e3 * t17602 * t21071 + 0.24e2 * t5720 * t21058 + 0.24e2 * t5720 * t21061 + 0.24e2 * t5720 * t21064 + 0.24e2 * t5720 * t21067 + 0.24e2 * t21214 * t5713 + 0.648e3 * t48839 * t21952 + 0.12e2 * t21965 * t5109 - 0.54e2 * t3817 * t76139 - 0.54e2 * t66534 * t5124 - 0.108e3 * t52673 * t6624 - 0.108e3 * t63724 * t5727;
24023   t76406 = t76273 + t76331 + t76369 + t76404;
24024   t76416 = t24119 * t1314;
24025   t76429 = -0.24e2 * t64649 * t6612 - 0.9e1 / 0.100e3 * t1646 * t21997 - 0.6e1 * t5116 * t22032 - 0.9e1 / 0.100e3 * t406 * t66608 * t1663 + t76406 * t405 * t428 - 0.9e1 / 0.50e2 * t406 * t17883 * t6693 + t1646 * t22110 / 0.10e2 + t5398 * t6915 / 0.10e2 + 0.171e3 / 0.500e3 * t21496 * t76416 + 0.648e3 * t21389 * t21096 + 0.171e3 / 0.1000e4 * t1244 * t24290 + 0.171e3 / 0.1000e4 * t1285 * t24290 + 0.171e3 / 0.500e3 * t21496 * t76028 - 0.24e2 * t73584 * t5713;
24026   t76432 = t24116 * t1314;
24027   t76459 = 0.108e3 * t73587 * t5727 - 0.4959e4 / 0.10000e5 * t64588 * t76432 - 0.1296e4 * t64382 * t21099 + 0.1080e4 * t5122 * t76061 - 0.12e2 * t5720 * t21446 + 0.648e3 * t5122 * t75970 - 0.7776e4 * t16906 * t75973 + 0.54e2 * t12312 * t24348 + 0.54e2 * t16173 * t22113 + 0.324e3 * t16898 * t24156 + 0.324e3 * t5122 * t75926 - 0.648e3 * t16906 * t76040 - 0.24e2 * t16875 * t24133 - 0.6e1 * t3810 * t24280;
24028   t76487 = t66534 * t376;
24029   t76494 = -0.6e1 * t1101 * t5137 * t21937 + 0.54e2 * t20425 * t21962 - 0.9e1 / 0.50e2 * t1285 * t24299 - 0.9e1 / 0.50e2 * t1244 * t24299 + 0.54e2 * t3817 * t49000 * t6843 - 0.12e2 * t1101 * t1239 * t1524 * t6843 - 0.6e1 * t1101 * t1102 * t76116 + 0.54e2 * t48834 * t6864 - 0.12e2 * t20369 * t21958 - 0.648e3 * t16906 * t76073 + 0.54e2 * t76487 * t5124 - 0.12e2 * t21214 * t5735 - 0.12e2 * t5720 * t21363;
24030   t76523 = -0.24e2 * t21386 * t21067 + 0.108e3 * t21389 * t21071 + 0.50310579753086419752e-1 * t22029 * t21106 + t21992 * t1641 + 0.171e3 / 0.1000e4 * t406 * t22002 * t5441 + t22155 * t1664 / 0.10e2 + t6887 * t5442 / 0.10e2 + 0.108e3 * t73730 * t5727 - 0.648e3 * t61347 * t21952 - 0.24e2 * t20419 * t21955 - 0.12e2 * t17587 * t6627 + 0.108e3 * t64642 * t6624 - 0.24e2 * t73727 * t5713 + t22157 * t1664 / 0.10e2;
24031   t76526 = t1191 * t1754 * t5165;
24032   t76546 = t1191 * t6614 * t1122;
24033   t76549 = t1764 * t21067;
24034   t76552 = t1764 * t21071;
24035   t76559 = -0.30186347851851851852e0 * t17644 * t76526 + 0.11319880444444444445e2 * t64738 * t24319 - 0.30186347851851851852e0 * t64850 * t22061 + 0.15093173925925925926e1 * t64850 * t22064 - 0.67919282666666666667e1 * t74206 * t22067 - 0.30186347851851851851e0 * t66898 * t21238 - 0.30186347851851851852e0 * t64705 * t22061 + 0.15093173925925925926e1 * t64705 * t22064 - 0.67919282666666666667e1 * t74199 * t22067 - 0.30186347851851851852e0 * t17644 * t76546 + 0.15093173925925925926e1 * t17644 * t76549 - 0.67919282666666666667e1 * t21318 * t76552 - 0.30186347851851851852e0 * t52725 * t24313 - 0.30186347851851851852e0 * t52770 * t24313;
24036   t76561 = t1191 * t5715 * t1540;
24037   t76585 = t1757 * t21338;
24038   t76588 = t6617 * t5741;
24039   t76593 = -0.30186347851851851852e0 * t17644 * t76561 - 0.9e1 / 0.50e2 * t1646 * t22006 - 0.6e1 * t21965 * t5127 + 0.108e3 * t5122 * t75933 + 0.108e3 * t5122 * t76033 - 0.648e3 * t50352 * t24153 - 0.12e2 * t5720 * t21352 - 0.9e1 / 0.50e2 * t406 * t5778 * t21195 - 0.12e2 * t3810 * t24303 + 0.50310579753086419752e-1 * t66599 * t6645 + 0.50310579753086419752e-1 * t66602 * t6645 + 0.50310579753086419752e-1 * t76585 * t5754 + 0.50310579753086419752e-1 * t76588 * t5754 - 0.1296e4 * t16906 * t76064;
24040   t76613 = t6605 * t1122;
24041   t76621 = t1751 * t1540;
24042   t76622 = t76621 * t1122;
24043   t76626 = t76621 * t1091;
24044   t76636 = 0.9720e4 * t49301 * t76067 + 0.648e3 * t5122 * t75976 - 0.1296e4 * t16906 * t75979 - 0.83850966255144032920e-1 * t66596 * t6645 - 0.6e1 * t3810 * t24295 + 0.324e3 * t5122 * t76070 - 0.40751569600000000000e2 * t21318 * t1764 * t263 * t21058 + 0.27167713066666666667e1 * t21318 * t64326 * t76613 + 0.81503139200000000000e2 * t64634 * t1764 * t12322 * t21058 + 0.42260886992592592593e0 * t17644 * t74270 * t76622 - 0.60372695703703703704e0 * t17644 * t64320 * t76626 + 0.27167713066666666667e1 * t21318 * t64326 * t76626 - 0.60372695703703703704e0 * t17644 * t64320 * t76613;
24045   t76667 = -0.12577644938271604938e0 * t21135 * t330 * t1765 - 0.12577644938271604938e0 * t6617 * t1177 * t1765 - 0.12577644938271604938e0 * t5718 * t1586 * t1765 - 0.12577644938271604938e0 * t1757 * t5211 * t1765 - 0.12e2 * t20419 * t21958 + 0.54e2 * t20422 * t21962 - 0.24e2 * t5130 * t75997 + 0.324e3 * t20422 * t21945 + 0.108e3 * t20422 * t21948 - 0.648e3 * t61125 * t21952 - 0.12e2 * t5130 * t76135 + 0.54e2 * t5122 * t76139 + t76299 * t376 + t24140 * t1239;
24046   t76695 = t21214 * t5741;
24047   t76698 = -0.12e2 * t3810 * t24273 - 0.12e2 * t5116 * t22023 - 0.9e1 / 0.100e3 * t1285 * t24285 + t5396 * t6915 / 0.10e2 - 0.24e2 * t5130 * t76047 - 0.24e2 * t5130 * t76050 - 0.24e2 * t5130 * t76053 - 0.9e1 / 0.100e3 * t5396 * t6892 - 0.9e1 / 0.100e3 * t5398 * t6892 - 0.6e1 * t21965 * t5133 - 0.6e1 * t16110 * t6874 + t24177 * t1284 * t428 - 0.6e1 * t21965 * t5138 + 0.75465869629629629628e0 * t76695 * t5745;
24048   t76707 = t5720 * t21338;
24049   t76728 = -0.70434811654320987653e-1 * t22029 * t21423 + 0.75465869629629629630e0 * t21441 * t22177 + 0.75465869629629629630e0 * t17863 * t24342 + 0.75465869629629629630e0 * t17867 * t24342 + 0.75465869629629629628e0 * t76707 * t5745 - 0.12577644938271604938e1 * t66614 * t6639 + 0.75465869629629629630e0 * t64408 * t6868 + 0.75465869629629629630e0 * t64411 * t6868 - 0.12577644938271604938e1 * t64234 * t6868 - 0.12577644938271604938e1 * t17845 * t24342 - 0.12577644938271604938e1 * t64366 * t6868 + 0.108e3 * t16898 * t24159 + 0.75465869629629629628e0 * t22169 * t21427 + 0.75465869629629629628e0 * t66638 * t6639;
24050   t76763 = 0.75465869629629629628e0 * t66641 * t6639 + 0.75465869629629629630e0 * t5742 * t46 * t5743 * t21125 + 0.75465869629629629630e0 * t21430 * t22177 + 0.75465869629629629630e0 * t64397 * t6868 + 0.75465869629629629630e0 * t64401 * t6868 - 0.12e2 * t5116 * t22162 - 0.12e2 * t16110 * t6871 + t1771 * t21481 / 0.5e1 - 0.9e1 / 0.50e2 * t5770 * t6665 + t6857 * t5383 - 0.6e1 * t5116 * t22035 - 0.6e1 * t1101 * t16834 * t6849 - 0.12e2 * t1101 * t376 * t5106 * t6843 + t24345 * t1315 / 0.10e2;
24051   t76803 = -0.146e3 / 0.135e3 * t1303 * t24128 * t424 - 0.146e3 / 0.135e3 * t420 * t76116 * t424 + 0.292e3 / 0.135e3 * t24193 * t1091 + 0.292e3 / 0.135e3 * t22093 * t1524 + 0.292e3 / 0.135e3 * t22096 * t1524 + 0.292e3 / 0.135e3 * t6907 * t5106 + 0.584e3 / 0.135e3 * t5794 * t6609 + 0.584e3 / 0.135e3 * t5797 * t6609 + 0.146e3 / 0.135e3 * t1763 * t24179 * t1091 + 0.146e3 / 0.135e3 * t1763 * t22082 * t1524 + 0.146e3 / 0.135e3 * t1763 * t6900 * t5106 + 0.73e2 / 0.135e3 * t1763 * t1776 * t21125 + 0.73e2 / 0.19440e5 * t46 * t274 * t21937 * t424;
24052   t76836 = -0.73e2 / 0.9720e4 * t46 * t24189 * t1091 - 0.73e2 / 0.4860e4 * t46 * t6679 * t5710 - 0.73e2 / 0.19440e5 * t46 * t1654 * t21937 + 0.73e2 / 0.7290e4 * t46 * t5418 * t6849 - 0.73e2 / 0.7290e4 * t46 * t1112 * t6849 * t424 + 0.73e2 / 0.81e2 * t23577 - 0.146e3 / 0.81e2 * t23580 - 0.73e2 / 0.81e2 * t23587 + 0.73e2 / 0.3645e4 * t46 * t1112 * t6843 - 0.73e2 / 0.135e3 * t1763 * t45 * t21125 * t424 + 0.584e3 / 0.135e3 * t1780 * t21125 + 0.146e3 / 0.135e3 * t1306 * t24128 + 0.146e3 / 0.135e3 * t423 * t76116;
24053   t76837 = t76803 + t76836;
24054   t76865 = -0.12e2 * t1101 * t70680 * t6843 - 0.6e1 * t66406 * t1532 + t406 * t1291 * t76837 / 0.10e2 + t1285 * t24370 / 0.10e2 + t1244 * t24370 / 0.10e2 - 0.9e1 / 0.50e2 * t1771 * t21327 + 0.171e3 / 0.1000e4 * t1646 * t22003 - 0.12e2 * t1101 * t49061 * t6843 - 0.6e1 * t1101 * t3823 * t24128 - 0.6e1 * t76258 * t1103 + t21451 * t1786 / 0.5e1 + 0.108e3 * t64639 * t6624 + t21453 * t1786 / 0.5e1 + t5768 * t6694 / 0.5e1;
24055   t76887 = t17602 * t17643;
24056   t76896 = t5770 * t6694 / 0.5e1 - 0.24e2 * t16870 * t24133 + 0.108e3 * t21389 * t21044 + 0.108e3 * t21389 * t21047 + 0.324e3 * t16895 * t24156 + t6659 * t5807 / 0.5e1 + 0.324e3 * t20425 * t21945 + 0.108e3 * t20425 * t21948 - 0.30186347851851851851e0 * t66898 * t21227 + 0.15093173925925925926e1 * t66898 * t21230 - 0.67919282666666666665e1 * t76887 * t21233 + 0.50310579753086419753e0 * t52773 * t24313 - 0.25155289876543209877e1 * t52773 * t24316 + 0.15093173925925925926e1 * t52725 * t24316;
24057   t76899 = t1764 * t21058;
24058   t76902 = t1764 * t21061;
24059   t76905 = t1764 * t21064;
24060   t76912 = t1764 * t21044;
24061   t76915 = t1764 * t21047;
24062   t76918 = t24246 * t1314;
24063   t76923 = t21965 * t376;
24064   t76932 = 0.15093173925925925926e1 * t52770 * t24316 + 0.15093173925925925926e1 * t17644 * t76899 + 0.15093173925925925926e1 * t17644 * t76902 + 0.15093173925925925926e1 * t17644 * t76905 - 0.67919282666666666667e1 * t64624 * t24319 - 0.67919282666666666667e1 * t64627 * t24319 - 0.67919282666666666667e1 * t21318 * t76912 - 0.67919282666666666667e1 * t21318 * t76915 + 0.171e3 / 0.1000e4 * t21496 * t76918 - 0.24e2 * t20369 * t21955 - 0.12e2 * t76923 * t5109 - 0.9e1 / 0.100e3 * t6887 * t5407 - 0.9e1 / 0.100e3 * t1244 * t24285 + 0.108e3 * t16895 * t24159;
24065   t76960 = -0.9e1 / 0.50e2 * t4278 * t1785 * t21195 - p->cam_beta * (t76193 + t76225 + t76429 + t76459 + t76494 + t76523 + t76559 + t76593 + t76636 + t76667 + t76698 + t76728 + t76763 + t76865 + t76896 + t76932) - 0.9e1 / 0.50e2 * t12440 * t24119 - 0.9e1 / 0.50e2 * t4278 * t5806 * t6693 - 0.4959e4 / 0.10000e5 * t39396 * t76432 + 0.171e3 / 0.1000e4 * t12495 * t76918 - 0.12e2 * t63717 * t1792 - 0.70434811654320987653e-1 * t1757 * t1763 * t5333 - 0.12577644938271604938e1 * t66424 * t6718 - 0.12577644938271604938e1 * t63946 * t6929 - 0.12577644938271604938e1 * t17955 * t24220 + 0.75465869629629629628e0 * t66434 * t6718;
24066   t76972 = t21214 * t1763;
24067   t76987 = 0.75465869629629629628e0 * t21925 * t21036 + 0.75465869629629629630e0 * t64923 * t6929 + 0.75465869629629629630e0 * t21031 * t21922 + 0.75465869629629629630e0 * t17951 * t24220 + 0.75465869629629629630e0 * t5831 * t1764 * t21132 + 0.75465869629629629628e0 * t76972 * t5832 + t5489 * t22109 / 0.10e2 + t4275 * t24208 / 0.10e2 - 0.9e1 / 0.100e3 * t50456 * t6891 + t21142 * t5806 / 0.5e1 + 0.50310579753086419752e-1 * t21917 * t6645 + 0.50310579753086419752e-1 * t6923 * t21106;
24068   t77013 = 0.171e3 / 0.500e3 * t12495 * t76416 - 0.9e1 / 0.50e2 * t17929 * t21090 - 0.9e1 / 0.50e2 * t17929 * t21259 - 0.9e1 / 0.50e2 * t17929 * t21093 - 0.9e1 / 0.50e2 * t52580 * t6728 - 0.30186347851851851852e0 * t5831 * t76526 + 0.15093173925925925926e1 * t17951 * t24316 + 0.15093173925925925926e1 * t5831 * t76899 + 0.15093173925925925926e1 * t5831 * t76902 + 0.15093173925925925926e1 * t5831 * t76905 - 0.67919282666666666667e1 * t52509 * t24319 - 0.67919282666666666667e1 * t17947 * t76912;
24069   t77039 = -0.67919282666666666667e1 * t17947 * t76915 + 0.50310579753086419753e0 * t17955 * t24313 - 0.25155289876543209877e1 * t17955 * t24316 + 0.11319880444444444445e2 * t52519 * t24319 - 0.83850966255144032920e-1 * t21910 * t6645 - 0.30186347851851851851e0 * t21925 * t21238 - 0.30186347851851851852e0 * t17951 * t24313 - 0.30186347851851851852e0 * t5831 * t76561 - 0.9e1 / 0.100e3 * t4278 * t6914 * t5441 - 0.67919282666666666667e1 * t17947 * t76552 + t76406 * t428 + 0.42260886992592592593e0 * t64948 * t73465 * t76622;
24070   t77073 = -0.60372695703703703704e0 * t64948 * t65019 * t76626 + 0.27167713066666666667e1 * t65023 * t65024 * t76626 - 0.60372695703703703704e0 * t64948 * t65019 * t76613 - 0.40751569600000000000e2 * t65023 * t52968 * t21058 + 0.27167713066666666667e1 * t65023 * t65024 * t76613 + 0.81503139200000000000e2 * t12321 * t64947 * t52906 * t21058 - 0.30186347851851851851e0 * t21925 * t21227 + 0.15093173925925925926e1 * t21925 * t21230 - 0.67919282666666666665e1 * t66439 * t21233 - 0.30186347851851851852e0 * t21031 * t22061 + 0.15093173925925925926e1 * t21031 * t22064 - 0.67919282666666666667e1 * t63956 * t22067;
24071   t77097 = -0.30186347851851851852e0 * t5831 * t76546 + 0.15093173925925925926e1 * t5831 * t76549 - 0.6e1 * t21965 * t5467 - 0.6e1 * t76258 * t1322 - 0.6e1 * t3810 * t24223 + t64131 * t1785 / 0.5e1 - 0.9e1 / 0.100e3 * t16942 * t21976 - 0.9e1 / 0.100e3 * t4278 * t22109 * t1663 + t21992 * t1680 + t6857 * t5486 - 0.12e2 * t5459 * t76177 - 0.12e2 * t5459 * t76187;
24072   t77123 = -0.12e2 * t5459 * t76190 + 0.54e2 * t16222 * t24170 + 0.54e2 * t16226 * t24170 + 0.54e2 * t5453 * t76198 + 0.54e2 * t5453 * t76180 - 0.12e2 * t3810 * t24107 + t1342 * t76837 / 0.10e2 + t76299 * t441 + 0.108e3 * t73355 * t5727 - 0.24e2 * t73358 * t5713 + 0.20962741563786008230e0 * t6617 * t274 * t340 + 0.108e3 * t73361 * t5727;
24073   t77140 = t21965 * t441;
24074   t77143 = t66534 * t441;
24075   t77150 = -0.24e2 * t21078 * t21067 + 0.108e3 * t21081 * t21071 + 0.324e3 * t19836 * t21945 + 0.108e3 * t19836 * t21948 - 0.648e3 * t59655 * t21952 + 0.324e3 * t19822 * t21945 + 0.108e3 * t19822 * t21948 - 0.648e3 * t59635 * t21952 - 0.12e2 * t77140 * t5109 + 0.54e2 * t77143 * t5124 - 0.24e2 * t73351 * t5713 + 0.171e3 / 0.1000e4 * t50448 * t22218;
24076   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24077     v4rhosigmatau2[17] = -t75696 - t1352 * t2415 * t24395 * t1082 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t75940 + t75966 + t75996 + t76023 + t76056 + t76086 + t76124 + t76154 + t76960 + t76987 + t77013 + t77039 + t77073 + t77097 + t77123 + t77150);
24078 
24079   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24080     v4rholapl3[0] = 0.0e0;
24081 
24082   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24083     v4rholapl3[1] = 0.0e0;
24084 
24085   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24086     v4rholapl3[2] = 0.0e0;
24087 
24088   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24089     v4rholapl3[3] = 0.0e0;
24090 
24091   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24092     v4rholapl3[4] = 0.0e0;
24093 
24094   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24095     v4rholapl3[5] = 0.0e0;
24096 
24097   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24098     v4rholapl3[6] = 0.0e0;
24099 
24100   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24101     v4rholapl3[7] = 0.0e0;
24102 
24103   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24104     v4rholapl2tau[0] = 0.0e0;
24105 
24106   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24107     v4rholapl2tau[1] = 0.0e0;
24108 
24109   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24110     v4rholapl2tau[2] = 0.0e0;
24111 
24112   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24113     v4rholapl2tau[3] = 0.0e0;
24114 
24115   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24116     v4rholapl2tau[4] = 0.0e0;
24117 
24118   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24119     v4rholapl2tau[5] = 0.0e0;
24120 
24121   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24122     v4rholapl2tau[6] = 0.0e0;
24123 
24124   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24125     v4rholapl2tau[7] = 0.0e0;
24126 
24127   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24128     v4rholapl2tau[8] = 0.0e0;
24129 
24130   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24131     v4rholapl2tau[9] = 0.0e0;
24132 
24133   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24134     v4rholapl2tau[10] = 0.0e0;
24135 
24136   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24137     v4rholapl2tau[11] = 0.0e0;
24138 
24139   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24140     v4rholapltau2[0] = 0.0e0;
24141 
24142   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24143     v4rholapltau2[1] = 0.0e0;
24144 
24145   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24146     v4rholapltau2[2] = 0.0e0;
24147 
24148   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24149     v4rholapltau2[3] = 0.0e0;
24150 
24151   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24152     v4rholapltau2[4] = 0.0e0;
24153 
24154   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24155     v4rholapltau2[5] = 0.0e0;
24156 
24157   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24158     v4rholapltau2[6] = 0.0e0;
24159 
24160   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24161     v4rholapltau2[7] = 0.0e0;
24162 
24163   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24164     v4rholapltau2[8] = 0.0e0;
24165 
24166   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24167     v4rholapltau2[9] = 0.0e0;
24168 
24169   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24170     v4rholapltau2[10] = 0.0e0;
24171 
24172   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24173     v4rholapltau2[11] = 0.0e0;
24174 
24175   t77159 = t14520 * t24578 / 0.2e1;
24176   t77168 = t17058 * t6743;
24177   t77171 = t5530 * t21525;
24178   t77178 = t5510 * t6743;
24179   t77181 = t5515 * t6743;
24180   t77184 = t1694 * t21525;
24181   t77187 = t24417 * t468;
24182   t77190 = t1863 * t24416;
24183   t77191 = t77190 * t468;
24184   t77196 = 0.162e3 * t14106 * t24441 + 0.162e3 * t14109 * t24441 + 0.162e3 * t4654 * t77168 + 0.162e3 * t4654 * t77171 - 0.36e2 * t14097 * t24421 - 0.36e2 * t13261 * t24421 - 0.36e2 * t4660 * t77178 - 0.36e2 * t4660 * t77181 - 0.36e2 * t4660 * t77184 - 0.12e2 * t4660 * t77187 + 0.54e2 * t4654 * t77191 - 0.27e2 / 0.100e3 * t7894 * t24405;
24185   t77209 = t17032 * t21558;
24186   t77212 = t17065 * t21558;
24187   t77226 = 0.513e3 / 0.1000e4 * t7915 * t6785 * t5610 - 0.12e2 * t1855 * t24570 - 0.12e2 * t478 * t756 * t24419 - 0.27e2 / 0.50e2 * t17157 * t21817 + 0.75465869629629629628e-1 * t24558 * t5558 + 0.972e3 * t4654 * t77209 - 0.1944e4 * t13254 * t77212 + 0.324e3 * t6986 * t24563 + 0.324e3 * t1862 * t25793 * t24419 - 0.36e2 * t17025 * t6826 - 0.36e2 * t5524 * t21550 - 0.36e2 * t5524 * t21534;
24188   t77233 = t26 * t24419;
24189   t77234 = t77233 * t468;
24190   t77237 = t21638 * t5514;
24191   t77249 = t27335 * t24419;
24192   t77250 = t77249 * t468;
24193   t77253 = t21645 * t5514;
24194   t77256 = t25875 * t24419;
24195   t77257 = t77256 * t468;
24196   t77262 = -0.18866467407407407407e0 * t21571 * t114 * t124 - 0.72e2 * t20515 * t21564 + 0.1080e4 * t4654 * t77234 + 0.972e3 * t4654 * t77237 - 0.4959e4 / 0.10000e5 * t27492 * t24402 * t731 + 0.972e3 * t20518 * t21639 + 0.324e3 * t20518 * t21642 - 0.1944e4 * t62713 * t21646 - 0.7776e4 * t13254 * t77250 - 0.1944e4 * t13254 * t77253 + 0.9720e4 * t40416 * t77257 - 0.36e2 * t75586 * t5517;
24197   t77279 = my_piecewise3(t24, 0.3e1 / 0.4e1 * t465 * t24413, 0);
24198   t77283 = t24425 * t477;
24199   t77286 = t244 * t6737;
24200   t77316 = t6737 * t5514;
24201   t77321 = t26 * t77279;
24202   t77332 = -0.972e3 * t20704 * t77178 + 0.1944e4 * t20701 * t77178 + 0.6e1 * t77283 * t471 + 0.18e2 * t65267 * t1696 + 0.18e2 * t21529 * t5519 - 0.162e3 * t50745 * t6773 + 0.36e2 * t17025 * t6746 + 0.36e2 * t5524 * t21562 + 0.18e2 * t17025 * t6748 + 0.18e2 * t5524 * t21568 + 0.648e3 * t27298 * t24435 - 0.324e3 * t6986 * t24438 + 0.36e2 * t478 * t77316 + 0.6e1 * t1855 * t24423 + 0.6e1 * t478 * t77321 - 0.54e2 * t1862 * t77191 + 0.36e2 * t21529 * t5517 - 0.162e3 * t65272 * t5531 - 0.972e3 * t17102 * t21639;
24203   t77386 = (0.6e1 * t1693 * t21525 + 0.2e1 * t468 * t24416 + 0.2e1 * t25 * t77279 + 0.6e1 * t5514 * t6743 + 0.54e2 * t77178 + 0.54e2 * t77181 + 0.54e2 * t77184 + 0.18e2 * t77187 + 0.54e2 * t77316 + 0.9e1 * t77321) * t32;
24204   t77387 = -0.162e3 * t17102 * t21631 - 0.324e3 * t17102 * t21642 + 0.12e2 * t1855 * t24419 + 0.36e2 * t1855 * t24421 - 0.162e3 * t1862 * t77168 - 0.162e3 * t1862 * t77171 - 0.1080e4 * t1862 * t77234 - 0.972e3 * t1862 * t77237 + 0.72e2 * t5524 * t21564 + 0.36e2 * t5524 * t21566 + 0.1944e4 * t50722 * t21646 - 0.162e3 * t6986 * t24441 - 0.9720e4 * t25874 * t77257 + 0.36e2 * t478 * t77178 + 0.36e2 * t478 * t77181 + 0.36e2 * t478 * t77184 + 0.12e2 * t478 * t77187 + 0.7776e4 * t6995 * t77250 + 0.1944e4 * t6995 * t77253 - t77386;
24205   t77388 = t77332 + t77387;
24206   t77416 = 0.972e3 * t4316 * t77237 + 0.162e3 * t13339 * t24441 + 0.162e3 * t13326 * t24441 - 0.12e2 * t4324 * t77187 + 0.54e2 * t4316 * t77191 + 0.1080e4 * t4316 * t77234 - 0.72e2 * t20734 * t21564 + t24516 * t732 / 0.10e2 - 0.36e2 * t20734 * t21566 + 0.162e3 * t4316 * t77168 + 0.162e3 * t4316 * t77171 - 0.36e2 * t13336 * t24421 - 0.36e2 * t13344 * t24421;
24207   t77445 = -0.36e2 * t4324 * t77178 - 0.36e2 * t4324 * t77181 - 0.36e2 * t4324 * t77184 + 0.3e1 / 0.10e2 * t1713 * t21707 + 0.972e3 * t20737 * t21639 + 0.324e3 * t20737 * t21642 - 0.1944e4 * t62538 * t21646 - 0.7776e4 * t13333 * t77250 - 0.1944e4 * t13333 * t77253 + 0.9720e4 * t42157 * t77257 - 0.36e2 * t74567 * t5517 + 0.162e3 * t74559 * t5531 + t702 * t24497 / 0.10e2 + 0.3e1 / 0.10e2 * t5574 * t6809;
24208   t77497 = 0.73e2 / 0.54e2 * t23891 - 0.73e2 / 0.90e2 * t1705 * t45 * t21525 * t226 + 0.73e2 / 0.45e2 * t1705 * t24479 * t468 - 0.73e2 / 0.27e2 * t23899 + 0.146e3 / 0.45e2 * t1705 * t6794 * t5514 - 0.73e2 / 0.54e2 * t23904 + 0.73e2 / 0.90e2 * t1705 * t1718 * t21525 - 0.146e3 / 0.135e3 * t720 * t24416 * t226 - 0.146e3 / 0.135e3 * t222 * t77279 * t226 + 0.292e3 / 0.135e3 * t24489 * t468 + 0.292e3 / 0.45e2 * t21690 * t1693 + 0.292e3 / 0.45e2 * t21693 * t1693 + 0.292e3 / 0.45e2 * t6801 * t5514 + 0.146e3 / 0.135e3 * t723 * t24416 + 0.146e3 / 0.135e3 * t225 * t77279;
24209   t77508 = t6751 * t5545;
24210   t77511 = t24405 * t731;
24211   t77516 = 0.31444112345679012345e0 * t24518 * t1508 - 0.18866467407407407407e0 * t21571 * t112 * t1707 - 0.18866467407407407407e0 * t6751 * t568 * t1707 + 0.972e3 * t4316 * t77209 - 0.1944e4 * t13333 * t77212 - 0.18e2 * t5524 * t21586 + 0.162e3 * t50745 * t6758 + t208 * t708 * t77497 / 0.10e2 - 0.12e2 * t478 * t633 * t24419 - 0.27e2 / 0.100e3 * t5572 * t6786 + 0.162e3 * t20737 * t21631 + 0.75465869629629629628e-1 * t77508 * t5558 + 0.513e3 / 0.1000e4 * t20773 * t77511 + 0.3e1 / 0.10e2 * t21752 * t1728;
24212   t77522 = t26764 * t24402;
24213   t77550 = t638 * t24497 / 0.10e2 - 0.27e2 / 0.100e3 * t208 * t17300 * t6808 - 0.4959e4 / 0.10000e5 * t208 * t77522 * t731 - 0.27e2 / 0.100e3 * t702 * t24508 + 0.324e3 * t6986 * t24523 - 0.18e2 * t21529 * t5534 - 0.18e2 * t65267 * t1701 + 0.513e3 / 0.1000e4 * t1713 * t21625 - 0.27e2 / 0.50e2 * t1713 * t21615 - 0.12e2 * t1855 * t24452 + 0.3e1 / 0.10e2 * t5572 * t6809 + 0.11319880444444444444e1 * t17230 * t24476 + 0.11319880444444444444e1 * t17233 * t24476 + 0.11319880444444444444e1 * t5546 * t46 * t5547 * t21525;
24214   t77553 = t21529 * t5545;
24215   t77582 = 0.11319880444444444444e1 * t77553 * t5549 + 0.22639760888888888889e1 * t65528 * t6762 + 0.22639760888888888889e1 * t65531 * t6762 + 0.22639760888888888889e1 * t17230 * t24512 + 0.22639760888888888889e1 * t17233 * t24512 + 0.22639760888888888889e1 * t21756 * t21762 - 0.10187892400000000000e2 * t51257 * t24472 - 0.10187892400000000000e2 * t51182 * t24472 - 0.37732934814814814815e1 * t65468 * t6762 + 0.16979820666666666667e2 * t51233 * t24472 + 0.22639760888888888889e1 * t5546 * t46 * t72627 * t6737 - 0.18866467407407407407e1 * t17248 * t24476 - 0.37732934814814814815e1 * t17248 * t24512;
24216   t77603 = t2305 * t24496;
24217   t77615 = -0.27e2 / 0.100e3 * t5574 * t6786 + 0.3e1 / 0.10e2 * t6781 * t5611 + 0.171e3 / 0.1000e4 * t638 * t24505 + 0.324e3 * t1862 * t25920 * t24419 - 0.648e3 * t6995 * t25901 * t24419 - 0.648e3 * t27298 * t24466 - 0.36e2 * t5524 * t21651 - 0.36e2 * t5524 * t21654 - 0.36e2 * t17025 * t6765 - 0.9e1 / 0.100e3 * t208 * t77603 * t731 - 0.27e2 / 0.100e3 * t1713 * t21619 - 0.27e2 / 0.100e3 * t6781 * t5583 + 0.171e3 / 0.1000e4 * t702 * t24505 - 0.90559043555555555556e0 * t65588 * t21602;
24218   t77622 = t582 * t6773 * t506;
24219   t77625 = t1706 * t21639;
24220   t77628 = t1706 * t21642;
24221   t77631 = t1706 * t21646;
24222   t77646 = t582 * t6748 * t506;
24223   t77649 = t1706 * t21566;
24224   t77652 = t1706 * t21631;
24225   t77655 = 0.45279521777777777778e1 * t65588 * t21605 - 0.20375784800000000000e2 * t74837 * t21608 + 0.40751569600000000000e1 * t20762 * t77622 - 0.61127354400000000000e2 * t20762 * t77625 - 0.20375784800000000000e2 * t20762 * t77628 + 0.12225470880000000000e3 * t62318 * t77631 - 0.18e2 * t17025 * t6768 - 0.18e2 * t21529 * t5539 - 0.6e1 * t77283 * t480 + 0.162e3 * t17102 * t21598 - 0.6e1 * t478 * t479 * t77279 - 0.45279521777777777776e0 * t17282 * t77646 + 0.22639760888888888888e1 * t17282 * t77649 - 0.10187892400000000000e2 * t20762 * t77652;
24226   t77657 = t582 * t6746 * t506;
24227   t77660 = t1706 * t21564;
24228   t77669 = t160 * t6737;
24229   t77690 = -0.90559043555555555556e0 * t17282 * t77657 + 0.45279521777777777778e1 * t17282 * t77660 - 0.27e2 / 0.100e3 * t208 * t5582 * t21706 - 0.6e1 * t478 * t1868 * t24416 - 0.36e2 * t478 * t77669 * t5514 - 0.6e1 * t1855 * t24455 - 0.18e2 * t5524 * t21593 + 0.513e3 / 0.1000e4 * t208 * t21624 * t5610 - 0.27e2 / 0.100e3 * t638 * t24508 + t77386 * t160 + t24426 * t633 + t24450 * t701 * t230 + t77388 * t207 * t230 + 0.3e1 / 0.10e2 * t21716 * t1728;
24230   t77697 = 0.162e3 * t75589 * t5531 - 0.36e2 * t20515 * t21566 + 0.162e3 * t20518 * t21631 + 0.31444112345679012345e0 * t6751 * t51 * t124 - 0.6e1 * t1855 * t24573 - 0.6e1 * t478 * t2356 * t24416 - 0.6e1 * t478 * t738 * t77279 - 0.6e1 * t77283 * t739 - 0.36e2 * t478 * t77286 * t5514 - 0.27e2 / 0.100e3 * t17157 * t21814 + t77388 * t230 - p->cam_beta * (t77416 + t77445 + t77516 + t77550 + t77582 + t77615 + t77655 + t77690) + 0.22639760888888888889e1 * t17071 * t24399;
24231   t77726 = 0.22639760888888888889e1 * t5635 * t1706 * t21562 + 0.162e3 * t17102 * t21544 - 0.648e3 * t27298 * t24539 - 0.648e3 * t6995 * t27403 * t24419 - 0.18e2 * t5524 * t21539 - 0.18e2 * t5524 * t21526 + 0.162e3 * t50745 * t6820 - 0.18e2 * t21529 * t5624 - 0.18e2 * t21529 * t5629 - 0.18e2 * t17025 * t6829 + 0.45279521777777777778e1 * t21515 * t21605 - 0.20375784800000000000e2 * t65918 * t21608;
24232   t77752 = t21529 * t1705;
24233   t77755 = 0.40751569600000000000e1 * t17337 * t77622 - 0.20375784800000000000e2 * t17337 * t77628 + 0.12225470880000000000e3 * t51482 * t77631 - 0.45279521777777777776e0 * t5635 * t77646 + 0.22639760888888888888e1 * t5635 * t77649 - 0.10187892400000000000e2 * t17337 * t77652 - 0.90559043555555555556e0 * t5635 * t77657 + 0.45279521777777777778e1 * t5635 * t77660 - 0.61127354400000000000e2 * t17337 * t77625 - 0.90559043555555555556e0 * t21515 * t21602 + 0.513e3 / 0.1000e4 * t51364 * t21811 + 0.11319880444444444444e1 * t5635 * t1706 * t21568 + 0.11319880444444444444e1 * t77752 * t5636;
24234   t77781 = 0.22639760888888888889e1 * t65923 * t6823 + 0.22639760888888888889e1 * t21515 * t21520 - 0.10187892400000000000e2 * t51479 * t24552 + 0.11319880444444444444e1 * t17071 * t24555 - 0.18866467407407407407e1 * t17331 * t24555 - 0.37732934814814814815e1 * t17331 * t24399 - 0.37732934814814814815e1 * t65913 * t6823 + 0.16979820666666666667e2 * t51471 * t24552 + 0.513e3 / 0.1000e4 * t7915 * t77511 - 0.18e2 * t65267 * t1734 + 0.3e1 / 0.10e2 * t17111 * t6808 + 0.3e1 / 0.10e2 * t5645 * t21706;
24235   t77794 = t24450 * t708;
24236   t77810 = t77386 * t244 + t24426 * t756 + t759 * t77497 / 0.10e2 + 0.3e1 / 0.10e2 * t65888 * t1727 + 0.3e1 / 0.10e2 * t21553 * t5610 + t2391 * t24496 / 0.10e2 - 0.27e2 / 0.100e3 * t51367 * t6785 + t77794 * t731 / 0.10e2 + 0.171e3 / 0.1000e4 * t27414 * t24402 - 0.27e2 / 0.100e3 * t2394 * t1727 * t21706 - 0.27e2 / 0.100e3 * t2394 * t5610 * t6808 - 0.27e2 / 0.100e3 * t65936 * t5650 - 0.9e1 / 0.100e3 * t2394 * t24496 * t731;
24237   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24238     v4rhotau3[0] = -t77159 - t1352 * t2774 * t24577 * t455 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1353 * (t77196 + t77226 + t77262 + t77697 + t77726 + t77755 + t77781 + t77810);
24239 
24240   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24241     v4rhotau3[1] = 0.0e0;
24242 
24243   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24244     v4rhotau3[2] = 0.0e0;
24245 
24246   t77818 = t14520 * t24760 / 0.2e1;
24247   t77845 = 0.11319880444444444444e1 * t17508 * t24650 + 0.22639760888888888889e1 * t66227 * t6868 - 0.10187892400000000000e2 * t52173 * t24656 + t934 * t24677 / 0.10e2 + 0.3e1 / 0.10e2 * t21859 * t1786 + 0.3e1 / 0.10e2 * t5673 * t6915 - 0.27e2 / 0.100e3 * t5673 * t6892 + 0.171e3 / 0.1000e4 * t934 * t24686 - 0.27e2 / 0.100e3 * t934 * t24689 + 0.22639760888888888889e1 * t17508 * t24693 - 0.18e2 * t5720 * t21856;
24248   t77874 = 0.162e3 * t17602 * t21848 - 0.648e3 * t12321 * t37890 * t24592 - 0.12e2 * t1101 * t875 * t24592 - 0.6e1 * t1101 * t3160 * t24600 + t24623 * t875 + t24647 * t933 * t428 - 0.18e2 * t21965 * t5667 - 0.36e2 * t5720 * t21853 + 0.324e3 * t3817 * t36412 * t24592 + 0.162e3 * t15112 * t24638 - 0.36e2 * t15118 * t24618 - 0.18866467407407407407e0 * t6857 * t831 * t1765;
24249   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24250     v4rhotau3[3] = -t77818 - t1352 * t2415 * t24759 * t767 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1521 * p->cam_beta * (t77845 + t77874);
24251 
24252   t77909 = -0.12e2 * t478 * t1034 * t24419 - 0.6e1 * t478 * t2784 * t24416 - 0.27e2 / 0.100e3 * t5693 * t6786 - 0.18e2 * t21529 * t5687 - 0.18e2 * t5524 * t21890 + 0.162e3 * t17102 * t21882 - 0.648e3 * t6995 * t28588 * t24419 + 0.22639760888888888889e1 * t66065 * t6762 - 0.10187892400000000000e2 * t51665 * t24472 + 0.11319880444444444444e1 * t17436 * t24476 + t1075 * t24497 / 0.10e2;
24253   t77935 = 0.3e1 / 0.10e2 * t5693 * t6809 + 0.3e1 / 0.10e2 * t21893 * t1728 + 0.171e3 / 0.1000e4 * t1075 * t24505 - 0.27e2 / 0.100e3 * t1075 * t24508 + 0.22639760888888888889e1 * t17436 * t24512 + t24426 * t1034 + t24450 * t1074 * t230 - 0.18866467407407407407e0 * t6751 * t993 * t1707 - 0.36e2 * t5524 * t21887 + 0.324e3 * t1862 * t29287 * t24419 + 0.162e3 * t14550 * t24441 - 0.36e2 * t14556 * t24421;
24254   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24255     v4rhotau3[4] = -t77159 - t1352 * t2774 * t24577 * t944 / 0.2e1 + 0.3e1 / 0.8e1 * t1352 * t1353 * p->cam_beta * (t77909 + t77935);
24256 
24257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24258     v4rhotau3[5] = 0.0e0;
24259 
24260   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24261     v4rhotau3[6] = 0.0e0;
24262 
24263   t77945 = t24584 * t1314;
24264   t77948 = t441 * t6843;
24265   t77959 = my_piecewise3(t260, 0.3e1 / 0.4e1 * t1088 * t24597, 0);
24266   t77971 = t17612 * t21981;
24267   t77974 = t17800 * t21981;
24268   t77979 = 0.513e3 / 0.1000e4 * t12495 * t77945 - 0.36e2 * t1101 * t77948 * t5710 - 0.6e1 * t3810 * t24601 - 0.6e1 * t1101 * t4240 * t24600 - 0.6e1 * t1101 * t1321 * t77959 - 0.18e2 * t66406 * t1792 - 0.27e2 / 0.100e3 * t12440 * t24584 - 0.12e2 * t3810 * t24593 + 0.75465869629629629628e-1 * t24731 * t5754 + 0.972e3 * t5453 * t77971 - 0.1944e4 * t16236 * t77974 + 0.162e3 * t17602 * t22187;
24269   t78012 = t6843 * t5710;
24270   t78017 = t262 * t77959;
24271   t78020 = t5706 * t6849;
24272   t78037 = t5711 * t6849;
24273   t78039 = t1752 * t21937;
24274   t78041 = t24615 * t1091;
24275   t78045 = (0.2e1 * t1091 * t24600 + 0.6e1 * t1751 * t21937 + 0.2e1 * t261 * t77959 + 0.6e1 * t5710 * t6849 + 0.54e2 * t78012 + 0.9e1 * t78017 + 0.54e2 * t78020 + 0.54e2 * t78037 + 0.54e2 * t78039 + 0.18e2 * t78041) * t268;
24276   t78046 = t38189 * t24592;
24277   t78047 = t78046 * t1091;
24278   t78050 = t262 * t24592;
24279   t78051 = t78050 * t1091;
24280   t78054 = t3818 * t24600;
24281   t78055 = t78054 * t1091;
24282   t78060 = 0.36e2 * t1101 * t78012 + 0.6e1 * t1101 * t78017 - 0.324e3 * t12312 * t24635 + 0.36e2 * t17587 * t6852 + 0.18e2 * t17587 * t6854 + 0.1944e4 * t21285 * t78020 - 0.972e3 * t21288 * t78020 + 0.36e2 * t21965 * t5713 + 0.18e2 * t21965 * t5715 + 0.36e2 * t5720 * t21985 + 0.18e2 * t5720 * t21989 + 0.12e2 * t3810 * t24592 + 0.6e1 * t3810 * t24620 + 0.648e3 * t38183 * t24632 - 0.1080e4 * t3817 * t78051 - 0.54e2 * t3817 * t78055 - 0.9720e4 * t38188 * t78047 - 0.162e3 * t52673 * t6879 - t78045;
24283   t78075 = t38258 * t24592;
24284   t78076 = t78075 * t1091;
24285   t78079 = t21951 * t5710;
24286   t78082 = t21944 * t5710;
24287   t78087 = t17806 * t6849;
24288   t78090 = t5726 * t21937;
24289   t78103 = t24622 * t1100;
24290   t78108 = 0.6e1 * t78103 * t1094 + 0.36e2 * t1101 * t78020 + 0.36e2 * t1101 * t78037 + 0.36e2 * t1101 * t78039 + 0.12e2 * t1101 * t78041 - 0.162e3 * t12312 * t24638 + 0.7776e4 * t12321 * t78076 + 0.1944e4 * t12321 * t78079 + 0.18e2 * t66406 * t1754 - 0.972e3 * t17602 * t21945 - 0.324e3 * t17602 * t21948 - 0.162e3 * t17602 * t21962 + 0.1944e4 * t52676 * t21952 + 0.72e2 * t5720 * t21955 + 0.36e2 * t5720 * t21958 + 0.36e2 * t3810 * t24618 - 0.972e3 * t3817 * t78082 - 0.162e3 * t3817 * t78087 - 0.162e3 * t3817 * t78090 - 0.162e3 * t66534 * t5727;
24291   t78109 = t78060 + t78108;
24292   t78120 = -0.648e3 * t38183 * t24610 - 0.648e3 * t12321 * t39399 * t24592 - 0.18e2 * t21965 * t5820 - 0.36e2 * t5720 * t22192 - 0.36e2 * t5720 * t22195 + 0.324e3 * t12312 * t24736 + 0.324e3 * t3817 * t39425 * t24592 + t78109 * t428 - 0.36e2 * t17587 * t6932 - 0.9e1 / 0.100e3 * t4278 * t24676 * t1314 + 0.1080e4 * t5453 * t78051 - 0.12e2 * t5459 * t78041;
24293   t78137 = t24647 * t1291;
24294   t78147 = 0.54e2 * t5453 * t78055 - 0.36e2 * t77140 * t5713 + 0.162e3 * t77143 * t5727 - 0.36e2 * t21078 * t21958 + 0.162e3 * t21081 * t21962 - 0.12e2 * t1101 * t1339 * t24592 - 0.6e1 * t78103 * t1322 + t78137 * t1314 / 0.10e2 + t78045 * t441 - 0.18e2 * t21965 * t5825 - 0.18e2 * t17587 * t6935 - 0.18e2 * t5720 * t21932;
24295   t78192 = 0.73e2 / 0.54e2 * t24191 - 0.73e2 / 0.90e2 * t1763 * t45 * t21937 * t424 + 0.73e2 / 0.45e2 * t1763 * t24659 * t1091 - 0.73e2 / 0.27e2 * t24199 + 0.146e3 / 0.45e2 * t1763 * t6900 * t5710 - 0.73e2 / 0.54e2 * t24204 + 0.73e2 / 0.90e2 * t1763 * t1776 * t21937 - 0.146e3 / 0.135e3 * t1303 * t24600 * t424 - 0.146e3 / 0.135e3 * t420 * t77959 * t424 + 0.292e3 / 0.135e3 * t24669 * t1091 + 0.292e3 / 0.45e2 * t22093 * t1751 + 0.292e3 / 0.45e2 * t22096 * t1751 + 0.292e3 / 0.45e2 * t6907 * t5710 + 0.146e3 / 0.135e3 * t1306 * t24600 + 0.146e3 / 0.135e3 * t423 * t77959;
24296   t78207 = t1191 * t6879 * t1122;
24297   t78210 = t1764 * t21948;
24298   t78213 = t1764 * t21952;
24299   t78216 = -0.18e2 * t5720 * t21938 + 0.162e3 * t52673 * t6926 + 0.513e3 / 0.1000e4 * t12495 * t6891 * t5806 - 0.27e2 / 0.100e3 * t4278 * t5806 * t6914 + t1342 * t78192 / 0.10e2 + t4275 * t24676 / 0.10e2 - 0.27e2 / 0.50e2 * t17929 * t22221 - 0.4959e4 / 0.10000e5 * t39396 * t24589 * t1314 + 0.45279521777777777778e1 * t21925 * t22064 - 0.20375784800000000000e2 * t66439 * t22067 + 0.40751569600000000000e1 * t17947 * t78207 - 0.20375784800000000000e2 * t17947 * t78210 + 0.12225470880000000000e3 * t52512 * t78213;
24300   t78220 = t1191 * t6854 * t1122;
24301   t78223 = t1764 * t21958;
24302   t78226 = t1764 * t21962;
24303   t78230 = t1191 * t6852 * t1122;
24304   t78233 = t1764 * t21955;
24305   t78236 = t1764 * t21945;
24306   t78275 = t24711 * t1315 / 0.10e2 - 0.18e2 * t21965 * t5735 - 0.36e2 * t17587 * t6871 + 0.171e3 / 0.1000e4 * t1285 * t24686 - 0.18866467407407407407e0 * t21992 * t330 * t1765 - 0.18866467407407407407e0 * t6857 * t1177 * t1765 - 0.27e2 / 0.100e3 * t5768 * t6892 - 0.27e2 / 0.100e3 * t5770 * t6892 + 0.171e3 / 0.1000e4 * t1244 * t24686 + 0.31444112345679012345e0 * t24724 * t1676 - 0.12e2 * t3810 * t24704 + 0.324e3 * t3817 * t38203 * t24592 - 0.18e2 * t66406 * t1759;
24307   t78300 = t376 * t6843;
24308   t78308 = -0.36e2 * t5720 * t22023 + 0.324e3 * t12312 * t24717 + 0.3e1 / 0.10e2 * t1771 * t22110 + 0.972e3 * t5122 * t77971 - 0.1944e4 * t16906 * t77974 - 0.27e2 / 0.100e3 * t6887 * t5779 - 0.12e2 * t1101 * t1239 * t24592 - 0.36e2 * t5720 * t22162 + t1244 * t24677 / 0.10e2 + t1285 * t24677 / 0.10e2 - 0.648e3 * t12321 * t38178 * t24592 - 0.36e2 * t1101 * t78300 * t5710 - 0.648e3 * t38183 * t24701 - 0.6e1 * t78103 * t1103;
24309   t78338 = -0.18e2 * t21965 * t5730 - 0.6e1 * t1101 * t1102 * t77959 - 0.36e2 * t5130 * t78039 - 0.36e2 * t5130 * t78037 - 0.36e2 * t16870 * t24618 - 0.36e2 * t5130 * t78020 - 0.18e2 * t17587 * t6874 + t24623 * t1239 - 0.36e2 * t16875 * t24618 + 0.162e3 * t5122 * t78087 + 0.162e3 * t5122 * t78090 + 0.162e3 * t16898 * t24638 - 0.27e2 / 0.50e2 * t1771 * t22006 + 0.162e3 * t17602 * t22113;
24310   t78367 = t21965 * t5741;
24311   t78370 = 0.972e3 * t5122 * t78082 + 0.162e3 * t16895 * t24638 + 0.513e3 / 0.1000e4 * t1771 * t22003 + 0.16979820666666666667e2 * t52965 * t24656 - 0.37732934814814814815e1 * t17845 * t24693 + 0.22639760888888888889e1 * t22169 * t22177 - 0.10187892400000000000e2 * t53049 * t24656 - 0.10187892400000000000e2 * t53052 * t24656 - 0.18866467407407407407e1 * t17845 * t24650 - 0.37732934814814814815e1 * t66614 * t6868 + 0.11319880444444444444e1 * t17863 * t24650 + 0.11319880444444444444e1 * t17867 * t24650 + 0.22639760888888888889e1 * t5742 * t46 * t74188 * t6843 + 0.11319880444444444444e1 * t78367 * t5745;
24312   t78404 = 0.22639760888888888889e1 * t17863 * t24693 + 0.22639760888888888889e1 * t17867 * t24693 + 0.11319880444444444444e1 * t5742 * t46 * t5743 * t21937 + 0.22639760888888888889e1 * t66638 * t6868 + 0.22639760888888888889e1 * t66641 * t6868 - 0.27e2 / 0.100e3 * t1771 * t21997 - 0.36e2 * t21386 * t21958 + 0.162e3 * t21389 * t21962 + 0.972e3 * t21389 * t21945 + 0.513e3 / 0.1000e4 * t21496 * t77945 - 0.6e1 * t1101 * t3823 * t24600 - 0.27e2 / 0.100e3 * t406 * t5778 * t22109 - 0.27e2 / 0.100e3 * t406 * t17883 * t6914;
24313   t78416 = t39325 * t24589;
24314   t78420 = t6857 * t5741;
24315   t78437 = t406 * t1291 * t78192 / 0.10e2 - 0.27e2 / 0.100e3 * t1285 * t24689 - 0.27e2 / 0.100e3 * t1244 * t24689 + 0.513e3 / 0.1000e4 * t406 * t22002 * t5806 + t78045 * t376 - 0.4959e4 / 0.10000e5 * t406 * t78416 * t1314 + 0.75465869629629629628e-1 * t78420 * t5754 - 0.6e1 * t3810 * t24707 - 0.1944e4 * t16906 * t78079 + 0.9720e4 * t49301 * t78047 + 0.3e1 / 0.10e2 * t6887 * t5807 + 0.3e1 / 0.10e2 * t5768 * t6915 + 0.1080e4 * t5122 * t78051 - 0.12e2 * t5130 * t78041;
24316   t78467 = 0.54e2 * t5122 * t78055 - 0.7776e4 * t16906 * t78076 - 0.36e2 * t76923 * t5713 + 0.162e3 * t76487 * t5727 - 0.72e2 * t21386 * t21955 - 0.45279521777777777776e0 * t17644 * t78220 + 0.22639760888888888888e1 * t17644 * t78223 - 0.10187892400000000000e2 * t21318 * t78226 - 0.90559043555555555556e0 * t66898 * t22061 + 0.45279521777777777778e1 * t66898 * t22064 - 0.20375784800000000000e2 * t76887 * t22067 + 0.40751569600000000000e1 * t21318 * t78207 - 0.61127354400000000000e2 * t21318 * t78236 - 0.20375784800000000000e2 * t21318 * t78210;
24317   t78494 = t4189 * t24676;
24318   t78498 = 0.12225470880000000000e3 * t64634 * t78213 - 0.90559043555555555556e0 * t17644 * t78230 + 0.45279521777777777778e1 * t17644 * t78233 + 0.3e1 / 0.10e2 * t22155 * t1786 + 0.3e1 / 0.10e2 * t22157 * t1786 + 0.162e3 * t52673 * t6864 - 0.18e2 * t5720 * t22035 - 0.18e2 * t5720 * t22032 - 0.1944e4 * t64382 * t21952 + 0.324e3 * t21389 * t21948 + t24647 * t1284 * t428 + t78109 * t405 * t428 + 0.3e1 / 0.10e2 * t5770 * t6915 - 0.9e1 / 0.100e3 * t406 * t78494 * t1314;
24319   t78508 = -0.45279521777777777776e0 * t5831 * t78220 + 0.22639760888888888888e1 * t5831 * t78223 - 0.10187892400000000000e2 * t17947 * t78226 - 0.90559043555555555556e0 * t5831 * t78230 + 0.45279521777777777778e1 * t5831 * t78233 - 0.61127354400000000000e2 * t17947 * t78236 - 0.90559043555555555556e0 * t21925 * t22061 + 0.31444112345679012345e0 * t6857 * t274 * t340 - 0.27e2 / 0.100e3 * t66454 * t5846 - p->cam_beta * (t78275 + t78308 + t78338 + t78370 + t78404 + t78437 + t78467 + t78498) + 0.3e1 / 0.10e2 * t67153 * t1785 - 0.18866467407407407407e0 * t21992 * t332 * t340;
24320   t78536 = -0.72e2 * t21078 * t21955 + 0.972e3 * t5453 * t78082 + 0.162e3 * t16222 * t24638 + 0.162e3 * t16226 * t24638 + 0.162e3 * t5453 * t78087 + 0.162e3 * t5453 * t78090 - 0.36e2 * t16197 * t24618 - 0.36e2 * t16241 * t24618 - 0.36e2 * t5459 * t78020 - 0.36e2 * t5459 * t78037 - 0.36e2 * t5459 * t78039 + 0.22639760888888888889e1 * t17951 * t24581 + 0.22639760888888888889e1 * t5831 * t1764 * t21985;
24321   t78538 = t21965 * t1763;
24322   t78565 = 0.11319880444444444444e1 * t78538 * t5832 + 0.22639760888888888889e1 * t66434 * t6929 + 0.22639760888888888889e1 * t21925 * t21922 - 0.10187892400000000000e2 * t52509 * t24752 + 0.11319880444444444444e1 * t17951 * t24755 + 0.11319880444444444444e1 * t5831 * t1764 * t21989 - 0.27e2 / 0.100e3 * t4278 * t1785 * t22109 + 0.3e1 / 0.10e2 * t5841 * t22109 + 0.3e1 / 0.10e2 * t17939 * t6914 + 0.3e1 / 0.10e2 * t22207 * t5806 + 0.972e3 * t21081 * t21945 + 0.324e3 * t21081 * t21948;
24323   t78591 = -0.1944e4 * t63844 * t21952 - 0.7776e4 * t16236 * t78076 - 0.1944e4 * t16236 * t78079 - 0.37732934814814814815e1 * t17955 * t24581 + 0.16979820666666666667e2 * t52519 * t24752 - 0.18866467407407407407e1 * t17955 * t24755 - 0.37732934814814814815e1 * t66424 * t6929 + 0.513e3 / 0.1000e4 * t52595 * t22218 + 0.171e3 / 0.1000e4 * t38016 * t24589 - 0.27e2 / 0.100e3 * t52580 * t6891 - 0.27e2 / 0.100e3 * t17929 * t21976 + t24623 * t1339 + 0.9720e4 * t50425 * t78047;
24324   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24325     v4rhotau3[7] = -t77818 - t1352 * t2415 * t24759 * t1082 / 0.2e1 - 0.3e1 / 0.8e1 * t1352 * t1521 * (t77979 + t78120 + t78147 + t78216 + t78508 + t78536 + t78565 + t78591);
24326 
24327   t78600 = t5857 * t5857;
24328   t78603 = t5855 * t5857;
24329   t78605 = t25 * t78600;
24330   t78609 = (0.6e1 * t78600 + 0.8e1 * t22273 + t5859 + 0.108e3 * t78603 + 0.54e2 * t78605 + 0.72e2 * t22231 + t5863) * t32;
24331   t78629 = 0.73e2 / 0.4860e4 * t22284 - 0.73e2 / 0.810e3 * t46 * t22282 * t1356 - 0.73e2 / 0.4860e4 * t22290 - t6112 + 0.1168e4 / 0.135e3 * t22292 + 0.292e3 / 0.45e2 * t222 * t78600 + t6116;
24332   t78641 = t5855 * t5855;
24333   t78645 = -0.48e2 * t22232 + 0.216e3 * t22235 + t78609 * t244 + 0.4e1 * t22278 * t1512 - 0.36e2 * t478 * t18127 * t5857 + 0.162e3 * t1862 * t2352 * t78600 + 0.2e1 / 0.5e1 * t4690 * t22294 + t759 * t78629 / 0.10e2 - 0.144e3 * t18065 * t22231 + 0.648e3 * t18068 * t22234 + 0.1296e4 * t13213 * t22240 + 0.1296e4 * t1862 * t40517 * t22239 - 0.7776e4 * t6995 * t27418 * t78641;
24334   t78668 = t18061 * t5857;
24335   t78671 = t18054 * t5857;
24336   t78674 = -0.72e2 * t18120 * t6134 - 0.144e3 * t4310 * t22243 + 0.171e3 / 0.250e3 * t40595 * t22319 - t6139 - 0.72e2 * t478 * t53346 * t5855 - 0.24e2 * t22264 - 0.24e2 * t22271 - 0.36e2 * t478 * t2360 * t78600 - 0.24e2 * t67358 * t1502 - 0.72e2 * t18120 * t6131 - 0.36e2 * t18120 * t6137 + 0.324e3 * t53363 * t6128 - 0.3888e4 * t13254 * t78668 + 0.1944e4 * t4654 * t78671;
24337   t78680 = t6098 * t6098;
24338   t78692 = t6117 * t6117;
24339   t78707 = -0.144e3 * t18048 * t22231 + 0.648e3 * t18051 * t22234 - 0.4959e4 / 0.10000e5 * t27492 * t78680 - 0.72e2 * t4310 * t22246 + 0.648e3 * t13213 * t22257 - 0.24e2 * t478 * t68634 * t1356 + 0.3e1 / 0.5e1 * t18045 * t6117 - 0.27e2 / 0.100e3 * t2394 * t78692 - 0.27e2 / 0.50e2 * t53181 * t6098 - 0.72e2 * t4310 * t22263 - 0.2592e4 * t40545 * t22260 + 0.324e3 * t1862 * t53483 * t5855 - 0.2592e4 * t6995 * t40811 * t22239;
24340   t78723 = t5883 * t5883;
24341   t78729 = t42 * t42;
24342   t78731 = 0.1e1 / t44 / t78729;
24343   t78733 = 0.1e1 / t49 / t54851;
24344   t78737 = t13981 * t22301;
24345   t78746 = t41 * t78731;
24346   t78747 = t78746 * t78733;
24347   t78787 = -0.162e3 * t1862 * t1863 * t78600 - 0.1080e4 * t1862 * t26 * t78641 + 0.7776e4 * t27335 * t6995 * t78641 - 0.648e3 * t13213 * t22234 - 0.1296e4 * t13213 * t22335 + 0.24e2 * t67358 * t1359 + 0.72e2 * t18120 * t5860 - 0.1944e4 * t1862 * t78671 + 0.144e3 * t4310 * t22231 + 0.36e2 * t478 * t78605 + 0.3888e4 * t6995 * t78668;
24348   t78804 = -0.9720e4 * t25874 * t25875 * t78641 + 0.36e2 * t18120 * t5862 + 0.48e2 * t4310 * t22239 + 0.2592e4 * t40545 * t22332 + 0.72e2 * t478 * t78603 - 0.324e3 * t53363 * t6086 + 0.24e2 * t22330 - 0.216e3 * t22338 + 0.48e2 * t22342 + t6092 - t78609;
24349   t78805 = t78787 + t78804;
24350   t78837 = 0.1080e4 * t160 * t1862 * t26 * t78641 - 0.36e2 * t18252 * t478 * t5857 - 0.36e2 * t1872 * t478 * t78600 - 0.72e2 * t23306 * t478 * t5857 + 0.648e3 * t13213 * t22353 + 0.4e1 * t22278 * t1473 + t78609 * t160 - 0.144e3 * t18271 * t22231 - 0.144e3 * t18278 * t22231 + 0.648e3 * t18792 * t22234 - 0.72e2 * t4310 * t22350 - 0.2592e4 * t40545 * t22388 + 0.1944e4 * t4316 * t78671;
24351   t78901 = -0.42127368888888888888e-1 * t22607 * t1470 + 0.12031576554666666666e0 * t156 * t52 * t26009 * t78723 + 0.88467474666666666665e-1 * t6062 * t6073 - 0.14154795946666666667e0 * t1462 * t22628 + 0.12503507105595605320e-3 * t1934 * t78747 - 0.34365294972790998065e-3 * t5978 * t5991 + 0.40698674272935526801e-4 * t22697 * t17999 + 0.58632638060916931704e-4 * t22694 * t17999 + 0.196e3 / 0.135e3 * t18356 * t5988 + 0.78859404414847525713e-7 * t6076 / t48 / t6077 / t61 * t1881 * t55 * t57 + 0.12941724940948220025e-5 * t121 * t1881 * t58 * t78733 - 0.14154795946666666667e0 * t156 * t78737 - 0.17043517156889803853e-1 * t7820 * t5883 * t5891 + 0.15494106506263458048e-1 * t13991 * t1372 * t5891 + 0.12281586004938271605e0 * t18359 * t5988 - 0.1568e4 / 0.675e3 * t4517 * t22621 - 0.87725614320987654321e-1 * t68188 * t1425 - 0.11546739110857775350e-2 * t121 * t67467 * t63 + 0.58632638060916931704e-4 * t22404 * t22635;
24352   t78905 = t5896 * t5896;
24353   t78932 = my_piecewise3(t76, 0, 0.2387e4 / 0.60000e5 * t490 * t26164 * t71 * t78723 - 0.41425215311884939920e-3 * t5889 * t41240 * t5883 * t5891 + 0.31837633833692513547e-5 * t5889 * t18408 * t78747);
24354   t78935 = t5901 * t5901;
24355   t78937 = t26252 * t78935 * t86;
24356   t78939 = t5999 * t5896;
24357   t78940 = 0.9216e4 * t78939;
24358   t78941 = t1430 * t22428;
24359   t78942 = 0.3072e4 * t78941;
24360   t78944 = t2006 * t78935 * t86;
24361   t78947 = t1999 * t78905 * t86;
24362   t78953 = t79 * t78932 * t86;
24363   t78958 = t5959 * t5896;
24364   t78961 = t22437 * t1377;
24365   t78971 = t77 * t78932;
24366   t78973 = t128 * t78932;
24367   t78974 = 0.256e3 * t78973;
24368   t78976 = t1377 * t22428;
24369   t78979 = 0.1536e4 * t78935;
24370   t78980 = t83 * t78905;
24371   t78981 = 0.2304e4 * t78980;
24372   t78985 = -0.5e1 / 0.4e1 * t78937 + t78940 + t78942 - 0.100e3 * t78944 - 0.15e2 * t78947 + 0.10e2 * t78 * t78932 * t81 - 0.10e2 * t78953 - 0.216e3 * t78905 + 0.3e1 * t13822 * t22456 - 0.27e2 / 0.2e1 * t7505 * t78958 - 0.6e1 * t2044 * t78961 + t2051 * t78961 + 0.3e1 / 0.4e1 * t7500 * t78958 - 0.18e2 * t13831 * t22456 + 0.36e2 * t7538 * t78958 - 0.72e2 * t78971 + t78974 + (0.120e3 * t78905 + 0.160e3 * t78976 + 0.40e2 * t78971 - t78979 - t78940 - t78981 - t78942 - t78974) * t86 - 0.288e3 * t78976 + t78981;
24373   t78987 = t7643 * t78935 * t86;
24374   t78991 = t78935 * t86;
24375   t79000 = t78905 * t86;
24376   t79005 = t5902 * t5962;
24377   t79007 = t4399 * t22437;
24378   t79016 = 0.15e2 * t18466 * t5962;
24379   t79025 = t78932 * t86;
24380   t79028 = 0.55e2 / 0.2e1 * t78987 + t78979 - 0.9e1 * t41340 * t22434 + 0.75e2 / 0.4e1 * t26287 * t78991 - 0.9e1 * t54782 * t5959 + 0.24e2 * t41317 * t22434 - 0.30e2 * t2051 * t78991 - 0.9e1 / 0.2e1 * t2044 * t79000 + 0.3e1 / 0.4e1 * t2051 * t79000 + 0.120e3 * t79005 - 0.20e2 * t79007 + t26297 * t78991 / 0.16e2 + 0.2e1 * t67782 * t1407 + 0.3e1 * t18720 * t5962 - t79016 + 0.3e1 / 0.2e1 * t54778 * t5959 + t41335 * t22434 / 0.2e1 - 0.9e1 / 0.4e1 * t26284 * t78991 + 0.2e1 * t4378 * t22437 + t556 * t79025 / 0.2e1;
24381   t79083 = 0.460800e6 * t101 * t78905 + 0.30720e5 * t130 * t78932 + 0.614400e6 * t1432 * t22428 + 0.3686400e7 * t6003 * t5896 + 0.1843200e7 * t83 * t78935 + 0.1344e4 * t78905 - 0.34560e5 * t78935 - 0.207360e6 * t78939 - 0.69120e5 * t78941 + 0.448e3 * t78971 - 0.5760e4 * t78973 + 0.1792e4 * t78976 - 0.51840e5 * t78980;
24382   t79111 = 0.576e3 * t22433 * t1448 + 0.24e2 * t128 * t79083 - 0.27e2 / 0.2e1 * t7667 * t78958 - 0.6e1 * t2102 * t78961 + t2107 * t78961 - 0.18e2 * t13678 * t22456 + 0.3e1 * t13671 * t22456 - 0.3e1 * t7644 * t78958 - 0.72e2 * t614 * t5912 * t5896 + 0.42e2 * t7673 * t78958 + 0.36e2 * t7682 * t78958 + 0.16e2 * t614 * t22670 * t1377 - 0.4e1 * t2138 * t78961 + 0.3e1 / 0.4e1 * t7655 * t78958;
24383   t79128 = t5901 * t5896;
24384   t79161 = -0.2880e4 * t101 * t78932 - 0.34560e5 * t128 * t78905 + 0.3233160e7 * t128 * t78935 + 0.484974e6 * t130 * t78905 - 0.371589120e9 * t130 * t78935 - 0.26542080e8 * t132 * t78905 - 0.1105920e7 * t134 * t78932 + 0.6144e4 * t1401 * t22428 - 0.46080e5 * t1403 * t22428 + 0.26943e5 * t141 * t78932 + 0.646632e6 * t1446 * t22428 - 0.371589120e9 * t18646 * t5896 - 0.35389440e8 * t4440 * t22428 - 0.207360e6 * t5952 * t5896 + 0.4849740e7 * t6034 * t5896 + 0.4608e4 * t77 * t78905 - 0.69120e5 * t77 * t78935 + 0.768e3 * t83 * t78932 - 0.8e1 * t78932 + 0.9216e4 * t79128;
24385   t79164 = t7504 * t78935 * t86;
24386   t79166 = t26388 * t78935;
24387   t79183 = -0.2880e4 * t525 * t78935 * t86 + 0.720e3 * t78 * t78905 * t81 - 0.1440e4 * t78905 * t79 * t86 + 0.288e3 * t68134 * t1377 + 0.2e1 * t67872 * t1407 + 0.432e3 * t18566 * t5896 + 0.432e3 * t2110 * t78905 + 0.288e3 * t4464 * t22428 + 0.864e3 * t54492 * t5901 + 0.864e3 * t68137 * t5896 + 0.72e2 * t601 * t78932 + t79161 * t86 - 0.240e3 * t79164 + 0.2640e4 * t79166;
24388   t79197 = t7699 * t79128;
24389   t79214 = -0.3e1 * t2138 * t79000 + 0.4320e4 * t6054 * t5959 - 0.9e1 / 0.4e1 * t26574 * t78991 + 0.75e2 / 0.4e1 * t26580 * t78991 - 0.9e1 * t54294 * t5959 + 0.15e2 / 0.2e1 * t26708 * t78991 - 0.2160e4 * t79197 - t26699 * t78991 / 0.4e1 - 0.2e1 * t614 * t84 * t78932 - 0.1920e4 * t1387 * t22437 + 0.960e3 * t1411 * t22516 - 0.48e2 * t26563 * t78991 + 0.2e1 * t4447 * t22437 + t598 * t79025 / 0.2e1;
24390   t79246 = t26679 * t78991 / 0.16e2 + 0.1728e4 * t13711 * t22461 + 0.576e3 * t2110 * t78976 - 0.9e1 * t41667 * t22434 + 0.240e3 * t106 * t78932 * t81 + t41786 * t22434 / 0.2e1 + 0.3e1 * t18562 * t5962 + 0.3e1 / 0.2e1 * t54325 * t5959 + 0.48e2 * t614 * t1986 * t78935 + 0.12e2 * t614 * t525 * t78905 + 0.24e2 * t41664 * t22434 - 0.30e2 * t2107 * t78991 - 0.9e1 / 0.2e1 * t2102 * t79000 + 0.3e1 / 0.4e1 * t2107 * t79000;
24391   t79331 = 0.85e2 / 0.4e1 * t78987 - 0.19e2 / 0.8e1 * t78937 - 0.4e1 * t22437 * t1454 - 0.75e2 / 0.2e1 * t78944 + 0.45e2 * t79005 - 0.6e1 * t78947 - 0.8e1 * t79007 + t68388 * t1407 - t78953 + t525 * t78932 * t86 / 0.2e1 + t26296 * t78935 * t86 / 0.16e2 - 0.12e2 * t78905 * t87 - 0.16e2 * t18483 * t22428 - 0.4e1 * t529 * t78932 + 0.3e1 / 0.4e1 * t2006 * t78905 * t86 + 0.3e1 / 0.4e1 * t54963 * t5959 - 0.3e1 * t84 * t78905 * t86 - t79016;
24392   t79343 = 0.6e1 * t1991 * t78905 + 0.8e1 * t1991 * t78976 - 0.24e2 * t79164 + 0.21e2 * t5918 * t5962 - 0.3e1 / 0.2e1 * t1986 * t78905 * t86 - 0.2e1 * t13834 * t22437 - 0.3e1 / 0.2e1 * t18437 * t5962 + 0.24e2 * t79166 - 0.36e2 * t79197 + 0.15e2 / 0.4e1 * t7499 * t78935 * t86 - t26380 * t78935 * t86 / 0.8e1 + 0.2e1 * t77 * t79331 + 0.2e1 * t78932 * t90 + 0.8e1 * t22428 * t1389 + 0.12e2 * t5896 * t5929 + 0.8e1 * t1377 * t22684 - t521 * t78932;
24393   t79350 = -0.70359165673100318044e-4 * t6076 * t54836 * t5883 + 0.35e2 / 0.81e2 * (0.144e3 * t78905 * t109 + 0.576e3 * t67626 * t5896 + 0.192e3 * t18697 * t22428 + 0.288e3 * t5901 * t5974 + 0.192e3 * t67686 * t1377 + 0.288e3 * t18714 * t5896 + 0.192e3 * t4365 * t22428 + 0.48e2 * t547 * t78932 + 0.24e2 * t83 * (t78985 + t79028)) * t120 * t124 - 0.56e2 / 0.81e2 * t68211 * t1425 - 0.12638210666666666667e0 * t6062 * t6069 + 0.73104678600823045268e-1 * t22488 * t51 * t124 - 0.64558777109431075200e-2 * t18366 * t5891 - 0.4e1 / 0.5e1 * t67566 * t1372 - 0.29070481623525376286e-4 * t1418 * t6078 * t581 + 0.1056e4 / 0.625e3 * t26456 * t78723 - 0.41880455757797808360e-4 * t1460 * t6078 * t581 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t78932 * t151 + 0.32e2 / 0.7e1 * t22428 * t1457 + 0.48e2 / 0.7e1 * t5896 * t6057 + 0.32e2 / 0.7e1 * t1377 * t22602 + 0.8e1 / 0.7e1 * t77 * (t79111 + t79183 + t79214 + t79246)) * t41 * t45 * t157 - 0.98252688039506172841e-1 * t4504 * t22621 + 0.6664e4 / 0.3375e4 * t579 * t26341 * t78723 + 0.17693494933333333333e0 * t1462 * t22306 + 0.10531842222222222222e0 * t22606 * t1466 - 0.264e3 / 0.125e3 * t42054 * t22301 + 0.36e2 / 0.25e2 * t54924 * t5883 - 0.20940227878898904180e-4 * t6060 * sigma[0] * t6079 + (-0.8e1 / 0.3e1 * t78932 * t93 - 0.32e2 / 0.3e1 * t22428 * t1392 - 0.16e2 * t5896 * t5932 - 0.32e2 / 0.3e1 * t1377 * t22687 - 0.8e1 / 0.3e1 * t77 * t79343) * t98 + 0.96222825923814794581e-3 * t1419 * t22638;
24394   t79367 = 0.162e3 * t1862 * t1864 * t78600 + 0.1296e4 * t13213 * t22371 - 0.27e2 / 0.50e2 * t6094 * t6099 + 0.513e3 / 0.500e3 * t208 * t18211 * t6117 + 0.4e1 * t1362 * t22705 + t33 * (t78901 + t79350) + 0.2e1 / 0.5e1 * t1478 * t22366 + t208 * t708 * t78629 / 0.10e2 - 0.48e2 * t4310 * t22356 - 0.144e3 * t4310 * t22380 - 0.24e2 * t478 * t68540 * t1356 - 0.48e2 * t22383 - 0.24e2 * t22386;
24395   t79396 = 0.324e3 * t1862 * t55228 * t5855 + 0.216e3 * t22394 - 0.72e2 * t18120 * t5874 - 0.36e2 * t18120 * t5880 - 0.7776e4 * t6995 * t27355 * t78641 + t78805 * t207 * t230 + 0.6e1 * t5865 * t6082 - 0.24e2 * t22400 - 0.72e2 * t4310 * t22385 - 0.27e2 / 0.25e2 * t1478 * t22374 + 0.324e3 * t53363 * t5871 - 0.24e2 * t67358 * t1364 - 0.48e2 * t478 * t1473 * t22239;
24396   t79430 = -t5882 - 0.2592e4 * t6995 * t42192 * t22239 + 0.9720e4 * t25874 * t25876 * t78641 - 0.72e2 * t478 * t55158 * t5855 + 0.2e1 / 0.5e1 * t22402 * t1496 + 0.3e1 / 0.5e1 * t6094 * t6118 - 0.27e2 / 0.100e3 * t208 * t2305 * t78692 + 0.171e3 / 0.250e3 * t1478 * t22361 + 0.1296e4 * t1862 * t40955 * t22239 - 0.3888e4 * t13333 * t78668 - 0.4959e4 / 0.10000e5 * t208 * t26764 * t78680 - 0.72e2 * t18120 * t5877 - 0.9e1 / 0.25e2 * t208 * t68424 * t1495 + 0.648e3 * t18281 * t22234;
24397   t79438 = -0.9e1 / 0.25e2 * t2394 * t1495 * t22294 - 0.27e2 / 0.25e2 * t13201 * t22252 - 0.48e2 * t478 * t1512 * t22239 + 0.513e3 / 0.500e3 * t7915 * t6098 * t6117 - 0.48e2 * t4310 * t22249 + 0.4e1 * t1362 * t22315 + t33 * (0.1056e4 / 0.625e3 * t26455 * t78723 - 0.17043517156889803853e-1 * t17984 * t5891 + 0.12503507105595605320e-3 * t1933 * t41 * t78731 * t78733 - 0.23980064750617283951e0 * t46 * t78737 + 0.99331312333852458503e-4 * t22635 + 0.6664e4 / 0.1875e4 * t27450 * t78723 - 0.33742720835862641972e-1 * t7883 * t5883 * t5891 + 0.22691549932377209655e-3 * t2383 * t78747) + 0.9720e4 * t25874 * t27392 * t78641 - 0.72e2 * t478 * t23221 * t5857 + 0.1080e4 * t1862 * t244 * t78641 * t26 + t78805 * t230 - p->cam_beta * (t78837 + t79367 + t79396 + t79430) + 0.2e1 / 0.5e1 * t67325 * t1495 + 0.6e1 * t5865 * t6152;
24398   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24399     v4sigma4[0] = -0.3e1 / 0.8e1 * t1352 * t1353 * (t78645 + t78674 + t78707 + t79438);
24400 
24401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24402     v4sigma4[1] = 0.0e0;
24403 
24404   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24405     v4sigma4[2] = 0.0e0;
24406 
24407   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24408     v4sigma4[3] = 0.0e0;
24409 
24410   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24411     v4sigma4[4] = 0.0e0;
24412 
24413   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24414     v4sigma4[5] = 0.0e0;
24415 
24416   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24417     v4sigma4[6] = 0.0e0;
24418 
24419   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24420     v4sigma4[7] = 0.0e0;
24421 
24422   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24423     v4sigma4[8] = 0.0e0;
24424 
24425   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24426     v4sigma4[9] = 0.0e0;
24427 
24428   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24429     v4sigma4[10] = 0.0e0;
24430 
24431   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24432     v4sigma4[11] = 0.0e0;
24433 
24434   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24435     v4sigma4[12] = 0.0e0;
24436 
24437   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24438     v4sigma4[13] = 0.0e0;
24439 
24440   t79444 = t6167 * t6167;
24441   t79459 = t19657 * t6167;
24442   t79471 = -0.36e2 * t1101 * t4244 * t79444 - 0.72e2 * t1101 * t59561 * t6165 + 0.162e3 * t3817 * t4236 * t79444 + 0.648e3 * t16173 * t22741 - 0.3888e4 * t16236 * t79459 - 0.24e2 * t70257 * t1670 - 0.72e2 * t19644 * t6439 - 0.144e3 * t19833 * t22751 + 0.648e3 * t19836 * t22754 + 0.324e3 * t59594 * t6436 - 0.24e2 * t22720 - 0.24e2 * t22737 - t6447;
24443   t79474 = t6165 * t6165;
24444   t79478 = t19661 * t6167;
24445   t79503 = 0.3e1 / 0.5e1 * t19692 * t6425 - 0.7776e4 * t12321 * t39429 * t79474 + 0.1944e4 * t5453 * t79478 - 0.144e3 * t19818 * t22751 + 0.648e3 * t19822 * t22754 - 0.48e2 * t22752 + 0.216e3 * t22755 + 0.6e1 * t6175 * t6460 - 0.9e1 / 0.25e2 * t4278 * t1663 * t23117 - 0.27e2 / 0.25e2 * t16942 * t22747 - 0.48e2 * t5116 * t22744 - 0.48e2 * t1101 * t1680 * t22722 + 0.2e1 / 0.5e1 * t70223 * t1663 - 0.27e2 / 0.50e2 * t59580 * t6406;
24446   t79532 = -0.72e2 * t5116 * t22779 + 0.4e1 * t23130 * t1641 - 0.72e2 * t19644 * t6187 - 0.36e2 * t19644 * t6190 + 0.324e3 * t59594 * t6181 - 0.9e1 / 0.25e2 * t406 * t70694 * t1663 + 0.1944e4 * t5122 * t79478 + 0.6e1 * t6175 * t6390 + 0.216e3 * t22765 - 0.144e3 * t20419 * t22751 - 0.144e3 * t20369 * t22751 - 0.24e2 * t1101 * t70777 * t1524 - 0.2592e4 * t48839 * t22774;
24447   t79551 = t6165 * t6167;
24448   t79557 = t261 * t79444;
24449   t79561 = (0.6e1 * t79444 + 0.8e1 * t23125 + t6169 + 0.108e3 * t79551 + 0.54e2 * t79557 + 0.72e2 * t22751 + t6173) * t268;
24450   t79571 = 0.7776e4 * t12321 * t38258 * t79474 - 0.9720e4 * t38188 * t38189 * t79474 + 0.72e2 * t1101 * t79551 + 0.3888e4 * t12321 * t79459 - 0.648e3 * t16173 * t22754 + 0.48e2 * t5116 * t22722 + 0.144e3 * t5116 * t22751 + 0.2592e4 * t48839 * t23146 - 0.324e3 * t59594 * t6394 + t6400 - t79561;
24451   t79593 = -0.1080e4 * t262 * t3817 * t79474 - 0.162e3 * t3817 * t3818 * t79444 + 0.36e2 * t1101 * t79557 + 0.24e2 * t70257 * t1527 - 0.1296e4 * t16173 * t23149 + 0.72e2 * t19644 * t6170 + 0.36e2 * t19644 * t6172 - 0.1944e4 * t3817 * t79478 + 0.24e2 * t23144 - 0.216e3 * t23152 + 0.48e2 * t23156;
24452   t79594 = t79571 + t79593;
24453   t79617 = -0.72e2 * t1101 * t23673 * t6167 - 0.36e2 * t1101 * t3827 * t79444 - 0.72e2 * t1101 * t59803 * t6165 - 0.2592e4 * t12321 * t22722 * t48966 + 0.1296e4 * t22722 * t3817 * t48983 + 0.162e3 * t3817 * t3819 * t79444 + 0.9720e4 * t38188 * t38190 * t79474 + t405 * t428 * t79594 - 0.24e2 * t70257 * t1532 + 0.1296e4 * t16173 * t22762 - 0.144e3 * t5116 * t22759 + t79561 * t376 - 0.48e2 * t22777;
24454   t79631 = t6193 * t6193;
24455   t79655 = 0.1e1 / t272 / t60617;
24456   t79656 = t78746 * t79655;
24457   t79661 = my_piecewise3(t295, 0, 0.2387e4 / 0.60000e5 * t490 * t38303 * t290 * t79631 - 0.41425215311884939920e-3 * t5889 * t49474 * t6193 * t6199 + 0.31837633833692513547e-5 * t5889 * t19859 * t79656);
24458   t79680 = t6209 * t6209;
24459   t79682 = t8058 * t79680 * t304;
24460   t79688 = t22830 * t1545;
24461   t79689 = t79688 * t304;
24462   t79691 = t6204 * t6209;
24463   t79692 = t79691 * t304;
24464   t79704 = 0.72e2 * t850 * t79661 + 0.864e3 * t69253 * t6204 + 0.864e3 * t55909 * t6209 + 0.432e3 * t19060 * t6204 + 0.288e3 * t4855 * t22830 - 0.240e3 * t79682 + 0.288e3 * t69269 * t1545 + 0.3e1 * t14373 * t22865 + t2571 * t79689 + 0.3e1 / 0.4e1 * t8227 * t79692 + 0.42e2 * t8255 * t79692 - 0.72e2 * t863 * t6220 * t6204 - 0.4e1 * t2602 * t79689 - 0.3e1 * t8240 * t79692;
24465   t79712 = t6204 * t6204;
24466   t79715 = t79680 * t304;
24467   t79732 = t79661 * t304;
24468   t79739 = 0.36e2 * t8252 * t79692 - 0.18e2 * t14358 * t22865 + 0.16e2 * t863 * t23080 * t1545 + 0.432e3 * t2574 * t79712 - 0.2880e4 * t79715 * t793 + 0.720e3 * t78 * t79712 * t299 - 0.1440e4 * t297 * t79712 * t304 - 0.6e1 * t2566 * t79689 - 0.27e2 / 0.2e1 * t8222 * t79692 - 0.9e1 * t55962 * t6267 + 0.3e1 / 0.2e1 * t55827 * t6267 + t847 * t79732 / 0.2e1 + t42773 * t22862 / 0.2e1 + t25197 * t79715 / 0.16e2;
24469   t79767 = t8039 * t79691;
24470   t79772 = 0.3e1 * t19090 * t6270 - 0.9e1 / 0.4e1 * t25192 * t79715 + 0.2e1 * t4838 * t22875 + 0.75e2 / 0.4e1 * t25165 * t79715 + 0.576e3 * t2574 * t79688 - t25112 * t79715 / 0.4e1 + 0.1728e4 * t14387 * t22850 - 0.9e1 * t42691 * t22862 - 0.2e1 * t863 * t302 * t79661 - 0.1920e4 * t1555 * t22875 + 0.960e3 * t1579 * t22995 + 0.240e3 * t324 * t79661 * t299 - 0.2160e4 * t79767 + 0.12e2 * t863 * t793 * t79712;
24471   t79773 = t79712 * t304;
24472   t79795 = t24907 * t79680;
24473   t79799 = t296 * t79661;
24474   t79802 = t6307 * t6204;
24475   t79804 = t301 * t79712;
24476   t79806 = t1598 * t22830;
24477   t79808 = t344 * t79661;
24478   t79820 = 0.614400e6 * t1600 * t22830 + 0.1843200e7 * t301 * t79680 + 0.460800e6 * t319 * t79712 + 0.30720e5 * t346 * t79661 + 0.3686400e7 * t6311 * t6204 - 0.34560e5 * t79680 + 0.1792e4 * t79688 + 0.1344e4 * t79712 + 0.448e3 * t79799 - 0.207360e6 * t79802 - 0.51840e5 * t79804 - 0.69120e5 * t79806 - 0.5760e4 * t79808;
24479   t79863 = 0.6144e4 * t1569 * t22830 - 0.46080e5 * t1571 * t22830 + 0.646632e6 * t1614 * t22830 - 0.371589120e9 * t19181 * t6204 - 0.35389440e8 * t4831 * t22830 - 0.69120e5 * t296 * t79680 + 0.4608e4 * t296 * t79712 + 0.768e3 * t301 * t79661 - 0.2880e4 * t319 * t79661 + 0.3233160e7 * t344 * t79680 - 0.34560e5 * t344 * t79712 - 0.371589120e9 * t346 * t79680 + 0.484974e6 * t346 * t79712 - 0.26542080e8 * t348 * t79712 - 0.1105920e7 * t350 * t79661 + 0.26943e5 * t357 * t79661 - 0.207360e6 * t6260 * t6204 + 0.4849740e7 * t6342 * t6204 - 0.8e1 * t79661 + 0.9216e4 * t79691;
24480   t79865 = 0.3e1 / 0.4e1 * t2571 * t79773 - 0.48e2 * t25183 * t79715 - 0.3e1 * t2602 * t79773 + 0.48e2 * t863 * t2459 * t79680 + 0.4320e4 * t6362 * t6267 + 0.15e2 / 0.2e1 * t25156 * t79715 - 0.30e2 * t2571 * t79715 - 0.9e1 / 0.2e1 * t2566 * t79773 + 0.24e2 * t42733 * t22862 + 0.2e1 * t69209 * t1575 + 0.2640e4 * t79795 + 0.24e2 * t344 * t79820 + 0.576e3 * t22833 * t1616 + t79863 * t304;
24481   t79900 = t16765 * t22820;
24482   t79935 = 0.1536e4 * t79680;
24483   t79936 = 0.9216e4 * t79802;
24484   t79937 = 0.3072e4 * t79806;
24485   t79938 = t6210 * t6270;
24486   t79940 = t4739 * t22875;
24487   t79943 = 0.15e2 * t18898 * t6270;
24488   t79950 = 0.2304e4 * t79804;
24489   t79951 = 0.256e3 * t79808;
24490   t79956 = -0.216e3 * t79712 - 0.18e2 * t14275 * t22865 + 0.36e2 * t8140 * t79692 - 0.6e1 * t2517 * t79689 - 0.27e2 / 0.2e1 * t8120 * t79692 + 0.3e1 * t14269 * t22865 + t2524 * t79689 + 0.3e1 / 0.4e1 * t8127 * t79692 + t79935 + t79936 + t79937 + 0.120e3 * t79938 - 0.20e2 * t79940 - t79943 + 0.10e2 * t78 * t79661 * t299 + (0.120e3 * t79712 + 0.160e3 * t79688 + 0.40e2 * t79799 - t79935 - t79936 - t79950 - t79937 - t79951) * t304 + t79950 + t79951 - 0.288e3 * t79688 - 0.72e2 * t79799;
24491   t79958 = t2479 * t79680 * t304;
24492   t79961 = t2472 * t79712 * t304;
24493   t79964 = t297 * t79661 * t304;
24494   t79967 = t8035 * t79680 * t304;
24495   t79970 = t24961 * t79680 * t304;
24496   t80002 = -0.100e3 * t79958 - 0.15e2 * t79961 - 0.10e2 * t79964 + 0.55e2 / 0.2e1 * t79967 - 0.5e1 / 0.4e1 * t79970 + t819 * t79732 / 0.2e1 + t42598 * t22862 / 0.2e1 + t25024 * t79715 / 0.16e2 + 0.3e1 * t18992 * t6270 + 0.3e1 / 0.2e1 * t55646 * t6267 - 0.9e1 / 0.4e1 * t25041 * t79715 + 0.2e1 * t68927 * t1575 + 0.24e2 * t42576 * t22862 - 0.30e2 * t2524 * t79715 - 0.9e1 / 0.2e1 * t2517 * t79773 - 0.9e1 * t55669 * t6267 - 0.9e1 * t42583 * t22862 + 0.75e2 / 0.4e1 * t25004 * t79715 + 0.3e1 / 0.4e1 * t2524 * t79773 + 0.2e1 * t4783 * t22875;
24497   t80014 = 0.6664e4 / 0.3375e4 * t1188 * t38540 * t79631 + 0.1056e4 / 0.625e3 * t38856 * t79631 + 0.12031576554666666666e0 * t372 * t275 * t38539 * t79631 - 0.4e1 / 0.5e1 * t71082 * t1540 - 0.11546739110857775350e-2 * t337 * t70487 * t282 + 0.26329605555555555556e-1 * (0.8e1 / 0.7e1 * t79661 * t367 + 0.32e2 / 0.7e1 * t22830 * t1625 + 0.48e2 / 0.7e1 * t6204 * t6365 + 0.32e2 / 0.7e1 * t1545 * t23028 + 0.8e1 / 0.7e1 * t296 * (t79704 + t79739 + t79772 + t79865)) * t41 * t45 * t373 + 0.12941724940948220025e-5 * t337 * t3836 * t58 * t79655 + 0.17693494933333333333e0 * t1630 * t22915 + 0.196e3 / 0.135e3 * t19964 * t6296 + 0.12281586004938271605e0 * t19967 * t6296 + 0.78859404414847525713e-7 * t6384 / t271 / t6385 / t280 * t3836 * t55 * t57 - 0.1568e4 / 0.675e3 * t5317 * t22904 - 0.98252688039506172841e-1 * t5320 * t22904 - 0.17043517156889803853e-1 * t12656 * t6193 * t6199 - 0.14154795946666666667e0 * t372 * t79900 + 0.10531842222222222222e0 * t23032 * t1634 + 0.35e2 / 0.81e2 * (0.144e3 * t79712 * t327 + 0.576e3 * t68823 * t6204 + 0.192e3 * t18941 * t22830 + 0.288e3 * t6209 * t6282 + 0.192e3 * t68862 * t1545 + 0.288e3 * t18958 * t6204 + 0.192e3 * t4771 * t22830 + 0.48e2 * t810 * t79661 + 0.24e2 * t301 * (t79956 + t80002)) * t336 * t340 - 0.64558777109431075200e-2 * t20290 * t6199 + 0.96222825923814794581e-3 * t1587 * t22805;
24498   t80112 = -0.75e2 / 0.2e1 * t79958 + 0.45e2 * t79938 - 0.6e1 * t79961 - 0.8e1 * t79940 - t79943 - 0.4e1 * t797 * t79661 - t79964 + 0.85e2 / 0.4e1 * t79967 - 0.19e2 / 0.8e1 * t79970 + t793 * t79661 * t304 / 0.2e1 + t24945 * t79680 * t304 / 0.16e2 - 0.12e2 * t79712 * t305 - 0.16e2 * t18915 * t22830 - 0.4e1 * t1622 * t22875 + t69394 * t1575 + 0.3e1 / 0.4e1 * t2479 * t79712 * t304 + 0.3e1 / 0.4e1 * t55456 * t6267 - 0.3e1 * t302 * t79712 * t304;
24499   t80123 = 0.24e2 * t79795 - 0.36e2 * t79767 + 0.15e2 / 0.4e1 * t8068 * t79680 * t304 - t24889 * t79680 * t304 / 0.8e1 - t789 * t79661 + 0.6e1 * t2464 * t79712 + 0.8e1 * t2464 * t79688 + 0.21e2 * t6226 * t6270 - 0.3e1 / 0.2e1 * t2459 * t79712 * t304 - 0.2e1 * t14200 * t22875 - 0.3e1 / 0.2e1 * t18869 * t6270 - 0.24e2 * t79682 + 0.2e1 * t296 * t80112 + 0.8e1 * t1545 * t23094 + 0.2e1 * t79661 * t308 + 0.8e1 * t22830 * t1557 + 0.12e2 * t6204 * t6237;
24500   t80135 = 0.73104678600823045268e-1 * t22890 * t274 * t340 + 0.15494106506263458048e-1 * t16692 * t1540 * t6199 - 0.56e2 / 0.81e2 * t71620 * t1593 - 0.12638210666666666667e0 * t6370 * t6377 - 0.87725614320987654321e-1 * t70799 * t1593 + 0.36e2 / 0.25e2 * t59998 * t6193 - 0.41880455757797808360e-4 * t1628 * t6386 * t1190 - 0.29070481623525376287e-4 * t1586 * t6386 * t1190 - 0.264e3 / 0.125e3 * t50109 * t22820 - 0.20940227878898904180e-4 * t6368 * sigma[2] * t6387 + 0.40698674272935526801e-4 * t23043 * t19737 - 0.34365294972790998065e-3 * t6286 * t6299 + 0.58632638060916931704e-4 * t22912 * t19737 + 0.88467474666666666665e-1 * t6370 * t6381 - 0.42127368888888888888e-1 * t23033 * t1638 - 0.14154795946666666667e0 * t1630 * t23047 + (-0.8e1 / 0.3e1 * t79661 * t311 - 0.32e2 / 0.3e1 * t22830 * t1560 - 0.16e2 * t6204 * t6240 - 0.32e2 / 0.3e1 * t1545 * t23097 - 0.8e1 / 0.3e1 * t296 * t80123) * t316 + 0.58632638060916931704e-4 * t22802 * t22894 + 0.12503507105595605320e-3 * t3870 * t79656 - 0.70359165673100318044e-4 * t6384 * t60578 * t6193;
24501   t80148 = t6406 * t6406;
24502   t80154 = -0.24e2 * t22784 - 0.7776e4 * t12321 * t39350 * t79474 + 0.648e3 * t20422 * t22754 + 0.648e3 * t20425 * t22754 - 0.3888e4 * t16906 * t79459 + 0.4e1 * t1530 * t23103 + t269 * (t80014 + t80135) + 0.324e3 * t3817 * t59854 * t6165 + 0.513e3 / 0.500e3 * t406 * t20361 * t6425 - 0.27e2 / 0.25e2 * t1646 * t23132 - 0.72e2 * t5116 * t23135 - 0.4959e4 / 0.10000e5 * t406 * t39325 * t80148 - 0.27e2 / 0.50e2 * t6402 * t6407;
24503   t80172 = 0.73e2 / 0.4860e4 * t23107 - 0.73e2 / 0.810e3 * t46 * t23105 * t1524 - 0.73e2 / 0.4860e4 * t23113 - t6420 + 0.1168e4 / 0.135e3 * t23115 + 0.292e3 / 0.45e2 * t420 * t79444 + t6424;
24504   t80182 = t6425 * t6425;
24505   t80195 = -0.48e2 * t1101 * t1641 * t22722 + 0.648e3 * t16173 * t22771 + 0.2e1 / 0.5e1 * t23159 * t1664 + 0.3e1 / 0.5e1 * t6402 * t6426 + t406 * t1291 * t80172 / 0.10e2 - 0.48e2 * t5116 * t22797 + 0.171e3 / 0.250e3 * t1646 * t22792 + 0.2e1 / 0.5e1 * t1646 * t23118 - 0.27e2 / 0.100e3 * t406 * t4189 * t80182 - t6192 - 0.72e2 * t19644 * t6184 - 0.36e2 * t1101 * t20402 * t6167 - 0.24e2 * t23136 + 0.1080e4 * t3817 * t1102 * t79474;
24506   t80232 = -p->cam_beta * (t79532 + t79617 + t80154 + t80195) - 0.72e2 * t5116 * t22719 + 0.324e3 * t3817 * t59573 * t6165 - 0.36e2 * t1101 * t19701 * t6167 + 0.1080e4 * t3817 * t441 * t79474 * t262 - 0.72e2 * t1101 * t23608 * t6167 + 0.1296e4 * t3817 * t48805 * t22722 - 0.144e3 * t5116 * t22729 - 0.24e2 * t1101 * t70359 * t1524 - 0.72e2 * t5116 * t22726 + 0.9720e4 * t38188 * t39403 * t79474 - 0.2592e4 * t12321 * t50588 * t22722 - 0.2592e4 * t48839 * t22723;
24507   t80278 = 0.513e3 / 0.500e3 * t12495 * t6406 * t6425 + 0.1296e4 * t16173 * t22734 + t79594 * t428 - 0.72e2 * t19644 * t6442 - 0.36e2 * t19644 * t6445 + 0.2e1 / 0.5e1 * t5489 * t23117 + t1342 * t80172 / 0.10e2 - 0.4959e4 / 0.10000e5 * t39396 * t80148 + 0.171e3 / 0.250e3 * t50448 * t22791 - 0.27e2 / 0.100e3 * t4278 * t80182 + 0.4e1 * t1530 * t23190 + t269 * (0.1056e4 / 0.625e3 * t38855 * t79631 - 0.17043517156889803853e-1 * t19722 * t6199 + 0.12503507105595605320e-3 * t3869 * t41 * t78731 * t79655 - 0.23980064750617283951e0 * t46 * t79900 + 0.99331312333852458503e-4 * t22894 + 0.6664e4 / 0.1875e4 * t39465 * t79631 - 0.33742720835862641972e-1 * t12389 * t6193 * t6199 + 0.22691549932377209655e-3 * t4267 * t79656) + t79561 * t441 + 0.4e1 * t23130 * t1680;
24508   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24509     v4sigma4[14] = -0.3e1 / 0.8e1 * t1352 * t1521 * (t79471 + t79503 + t80232 + t80278);
24510 
24511   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24512     v4sigma3lapl[0] = 0.0e0;
24513 
24514   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24515     v4sigma3lapl[1] = 0.0e0;
24516 
24517   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24518     v4sigma3lapl[2] = 0.0e0;
24519 
24520   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24521     v4sigma3lapl[3] = 0.0e0;
24522 
24523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24524     v4sigma3lapl[4] = 0.0e0;
24525 
24526   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24527     v4sigma3lapl[5] = 0.0e0;
24528 
24529   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24530     v4sigma3lapl[6] = 0.0e0;
24531 
24532   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24533     v4sigma3lapl[7] = 0.0e0;
24534 
24535   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24536     v4sigma3lapl[8] = 0.0e0;
24537 
24538   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24539     v4sigma3lapl[9] = 0.0e0;
24540 
24541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24542     v4sigma3lapl[10] = 0.0e0;
24543 
24544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24545     v4sigma3lapl[11] = 0.0e0;
24546 
24547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24548     v4sigma3lapl[12] = 0.0e0;
24549 
24550   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24551     v4sigma3lapl[13] = 0.0e0;
24552 
24553   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24554     v4sigma3lapl[14] = 0.0e0;
24555 
24556   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24557     v4sigma3lapl[15] = 0.0e0;
24558 
24559   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24560     v4sigma3lapl[16] = 0.0e0;
24561 
24562   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24563     v4sigma3lapl[17] = 0.0e0;
24564 
24565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24566     v4sigma3lapl[18] = 0.0e0;
24567 
24568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24569     v4sigma3lapl[19] = 0.0e0;
24570 
24571   t80292 = t6473 * t5857;
24572   t80295 = t6478 * t5857;
24573   t80302 = t46 * t22627;
24574   t80305 = t17032 * t22273;
24575   t80308 = -t22233 + t22236 - 0.18e2 * t18120 * t6580 - t23214 - 0.36e2 * t68717 * t6480 - 0.72e2 * t18065 * t23237 - 0.36e2 * t18065 * t23239 - 0.36e2 * t4660 * t80292 - 0.36e2 * t4660 * t80295 + 0.162e3 * t20518 * t22234 - 0.36e2 * t4310 * t23206 + 0.84521773985185185182e-1 * t1737 * t80302 + 0.972e3 * t4654 * t80305;
24576   t80319 = t62054 * t5855;
24577   t80322 = t50891 * t22239;
24578   t80338 = 0.75465869629629629628e-1 * t23479 * t6513 + t23285 - 0.6e1 * t67358 * t1734 - 0.18e2 * t18120 * t6575 + 0.972e3 * t18051 * t23244 + 0.972e3 * t18068 * t23244 + 0.972e3 * t4654 * t80319 - 0.7776e4 * t13254 * t80322 - 0.62888224691358024691e-1 * t22278 * t114 * t124 - 0.36e2 * t68708 * t6480 - 0.72e2 * t68689 * t6480 - 0.72e2 * t18048 * t23237 - 0.36e2 * t18048 * t23239 - 0.10565221748148148148e0 * t6583 * t23329;
24579   t80341 = t46 * t123 * t22239;
24580   t80344 = t17065 * t22273;
24581   t80357 = t20508 * t5857;
24582   t80360 = t62016 * t5855;
24583   t80367 = 0.75465869629629629630e0 * t51412 * t80341 - 0.1944e4 * t13254 * t80344 - t6139 - 0.6e1 * t478 * t68634 * t1693 - 0.18e2 * t478 * t18127 * t6477 - t22265 - t22272 + 0.162e3 * t18068 * t23425 - 0.1944e4 * t53298 * t23417 + 0.162e3 * t4654 * t80357 - 0.1944e4 * t13254 * t80360 - 0.27e2 / 0.100e3 * t53181 * t6596 + 0.25007851962646829712e-4 * t1362 * t23298;
24584   t80386 = t1696 * t22239;
24585   t80389 = t51026 * t22239;
24586   t80393 = t582 * t5862 * t1372;
24587   t80397 = t582 * t6086 * t1372;
24588   t80400 = t1706 * t22231;
24589   t80404 = t1928 * t1359 * t5883;
24590   t80408 = t582 * t5860 * t1372;
24591   t80411 = 0.513e3 / 0.1000e4 * t7915 * t6561 * t6098 + 0.513e3 / 0.1000e4 * t40595 * t23461 - 0.27e2 / 0.100e3 * t2394 * t23273 * t1495 - 0.27e2 / 0.100e3 * t2394 * t6561 * t6117 - 0.27e2 / 0.50e2 * t13201 * t23291 - 0.36e2 * t20515 * t22231 - 0.15004711177588097827e-3 * t72913 * t72914 * t1356 + 0.1080e4 * t4654 * t80386 + 0.9720e4 * t40416 * t80389 - 0.45279521777777777778e0 * t5635 * t80393 + 0.40751569600000000001e1 * t17337 * t80397 + 0.22639760888888888889e1 * t5635 * t80400 + 0.63391330488888888889e0 * t5635 * t80404 - 0.90559043555555555556e0 * t5635 * t80408;
24592   t80414 = t1706 * t22234;
24593   t80426 = t5855 * t6477;
24594   t80430 = (0.6e1 * t5857 * t6477 + t22274 + t22276 + t23232 + t23240 + t5859 + t5863 + 0.54e2 * t80292 + 0.54e2 * t80295 + 0.54e2 * t80426) * t32;
24595   t80453 = -0.972e3 * t13213 * t23244 - 0.324e3 * t13213 * t23422 - 0.162e3 * t13213 * t23425 + 0.18e2 * t71926 * t1359 - 0.162e3 * t17102 * t22234 + 0.36e2 * t18120 * t6480 - 0.1080e4 * t1862 * t80386 + 0.1944e4 * t20701 * t80292 - 0.972e3 * t20704 * t80292 + 0.36e2 * t5524 * t22231 + 0.1944e4 * t40545 * t23417 - 0.162e3 * t53363 * t6492 + 0.7776e4 * t6995 * t80322 + t22331 - t22339 + t22343 + t23408 + t6092 - t80430;
24596   t80490 = 0.18e2 * t20679 * t5862 - 0.162e3 * t61961 * t6086 + 0.648e3 * t50722 * t22332 + 0.6e1 * t67358 * t1696 + 0.18e2 * t18120 * t6482 + 0.36e2 * t478 * t80426 + 0.36e2 * t20679 * t5860 - 0.324e3 * t17102 * t22335 + 0.36e2 * t4310 * t23235 + 0.72e2 * t4310 * t23237 + 0.36e2 * t4310 * t23239 + 0.1944e4 * t6995 * t80360 - 0.9720e4 * t25874 * t80389 - 0.972e3 * t1862 * t80319 - 0.162e3 * t1862 * t80357 + 0.36e2 * t478 * t80292 + 0.36e2 * t478 * t80295 + 0.12e2 * t5524 * t22239 - t23427 + t23433;
24597   t80491 = t80453 + t80490;
24598   t80519 = -t23252 + 0.73e2 / 0.45e2 * t1705 * t23249 * t1356 + t23258 + t22285 - 0.73e2 / 0.1620e4 * t46 * t23259 * t1356 - 0.73e2 / 0.3240e4 * t46 * t6547 * t5857 - t6112 + t22293 + 0.292e3 / 0.45e2 * t6551 * t5857 + t23269 - t22291 + t6116;
24599   t80528 = -0.10187892400000000000e2 * t17337 * t80414 - 0.90559043555555555555e0 * t20480 * t23373 + t80491 * t230 - 0.36e2 * t478 * t1512 * t5855 * t1693 - 0.36e2 * t478 * t23221 * t6477 - 0.36e2 * t20679 * t6134 - 0.36e2 * t5524 * t22243 + 0.171e3 / 0.1000e4 * t51364 * t22319 + 0.3e1 / 0.10e2 * t18045 * t6561 + t759 * t80519 / 0.10e2 + 0.3e1 / 0.10e2 * t4690 * t23273 - 0.36e2 * t20679 * t6131 - 0.18e2 * t5524 * t22246;
24600   t80531 = t23294 * t1495;
24601   t80567 = -0.72e2 * t18278 * t23237 + 0.324e3 * t18281 * t23422 - 0.36e2 * t4310 * t23343 - 0.36e2 * t478 * t23306 * t6477 - 0.1944e4 * t53828 * t23417 - t23321 + 0.324e3 * t68548 * t6492 - 0.36e2 * t20734 * t22231 + 0.162e3 * t20737 * t22234 + 0.162e3 * t18281 * t23425 - 0.6e1 * t478 * t68540 * t1693 - 0.15004711177588097827e-3 * t72610 * t23298 * t1359 - 0.18866467407407407407e0 * t1362 * t5977 * t1707 - 0.62888224691358024691e-1 * t33 * t22488 * t1707 - 0.1944e4 * t13333 * t80344;
24602   t80602 = 0.972e3 * t18792 * t23244 - 0.36e2 * t4324 * t80292 - 0.36e2 * t67538 * t6480 + 0.1080e4 * t4316 * t80386 - 0.36e2 * t478 * t1473 * t5855 * t1693 - 0.36e2 * t67527 * t6480 - 0.27e2 / 0.100e3 * t1478 * t23315 + 0.25007851962646829712e-4 * t1362 * t23340 + 0.25007851962646829712e-4 * t33 * t1418 * t23297 * t581 - 0.36e2 * t20679 * t5874 - 0.18e2 * t20679 * t5880 + 0.162e3 * t61961 * t5871 - 0.36e2 * t4310 * t23307 - 0.72e2 * t68607 * t6480 + 0.9720e4 * t42157 * t80389;
24603   t80629 = -0.18e2 * t478 * t18252 * t6477 - t22384 - t22387 - 0.18e2 * t4310 * t23366 + 0.63391330488888888889e0 * t17282 * t80404 - 0.45279521777777777778e0 * t17282 * t80393 + 0.22639760888888888889e1 * t17282 * t80400 - 0.10187892400000000000e2 * t20762 * t80414 + 0.40751569600000000001e1 * t20762 * t80397 + 0.513e3 / 0.1000e4 * t20773 * t80531 - 0.7776e4 * t13333 * t80322 + 0.171e3 / 0.1000e4 * t1713 * t22361 + t22395 + 0.162e3 * t18792 * t23425 - 0.1944e4 * t53796 * t23417;
24604   t80660 = 0.162e3 * t4316 * t80357 + t22402 * t1728 / 0.10e2 + 0.3e1 / 0.10e2 * t1478 * t23348 + 0.3e1 / 0.10e2 * t6094 * t6562 - 0.12e2 * t5524 * t22356 - 0.90559043555555555555e0 * t62592 * t23373 - 0.90559043555555555555e0 * t62595 * t23373 - 0.90559043555555555556e0 * t17282 * t80408 - 0.648e3 * t50722 * t22388 - 0.72e2 * t18271 * t23237 + 0.324e3 * t18792 * t23422 + 0.75465869629629629630e0 * t5546 * t80341 + 0.75465869629629629628e-1 * t72478 * t6513 - 0.10565221748148148148e0 * t20786 * t23329 - 0.6e1 * t67358 * t1701;
24605   t80696 = -0.18e2 * t18120 * t6500 - 0.27e2 / 0.50e2 * t1478 * t23312 - 0.27e2 / 0.100e3 * t6094 * t6533 - 0.1944e4 * t13333 * t80360 + 0.513e3 / 0.1000e4 * t208 * t62302 * t6098 + 0.324e3 * t17102 * t22371 - 0.10187892400000000000e2 * t62581 * t23383 + 0.40751569600000000001e2 * t51267 * t46 * t51268 * t22239 + 0.22639760888888888889e1 * t72092 * t6507 + 0.11319880444444444444e1 * t72663 * t6507 + 0.11319880444444444444e1 * t72666 * t6507 + 0.22639760888888888889e1 * t20806 * t23391 + 0.11319880444444444444e1 * t20806 * t23379 + 0.11319880444444444444e1 * t20795 * t23379 - 0.10187892400000000000e2 * t62423 * t23383;
24606   t80720 = t72595 * t1372;
24607   t80729 = -0.20375784800000000001e2 * t17242 * t46 * t51243 * t22239 + 0.22639760888888888889e1 * t20795 * t23391 + 0.162e3 * t68419 * t6492 + 0.162e3 * t17102 * t22353 - 0.18e2 * t5524 * t22385 + 0.84521773985185185182e-1 * t5557 * t80302 - 0.10565221748148148148e0 * t20812 * t23329 + 0.3e1 / 0.10e2 * t6527 * t6118 - t22401 + 0.162e3 * t67530 * t6492 + t208 * t708 * t80519 / 0.10e2 - 0.35010992747705561596e-4 * t1704 * t80720 - 0.18e2 * t18120 * t6495 - 0.27e2 / 0.100e3 * t1713 * t22374 + 0.972e3 * t4316 * t80305;
24608   t80761 = -t5882 - 0.18e2 * t5524 * t22350 + 0.513e3 / 0.1000e4 * t1478 * t23324 - 0.36e2 * t20679 * t5877 - 0.36e2 * t4324 * t80295 + 0.972e3 * t4316 * t80319 - 0.36e2 * t18278 * t23239 + 0.972e3 * t18281 * t23244 - 0.4959e4 / 0.10000e5 * t208 * t50895 * t22319 - 0.36e2 * t18271 * t23239 - 0.9e1 / 0.100e3 * t208 * t5582 * t22294 + t1713 * t22366 / 0.10e2 + 0.3e1 * t6485 * t6082 + t1699 * t22705 - 0.27e2 / 0.100e3 * t208 * t20819 * t6117;
24609   t80788 = -0.18e2 * t71926 * t1364 + t23381 - 0.62888224691358024691e-1 * t22278 * t112 * t1707 - 0.18866467407407407407e0 * t5865 * t1418 * t1707 + 0.15093173925925925925e0 * t72043 * t6513 + 0.75465869629629629628e-1 * t72132 * t6513 - 0.27e2 / 0.100e3 * t208 * t72032 * t1495 + t23438 + 0.3e1 / 0.10e2 * t23435 * t1496 - t23452 - 0.36e2 * t5524 * t22380 + t80430 * t160 - 0.27e2 / 0.100e3 * t6527 * t6099 + 0.3e1 * t23242 * t1473 + t80491 * t207 * t230;
24610   t80816 = -0.18e2 * t71926 * t1502 + 0.513e3 / 0.1000e4 * t7915 * t80531 - p->cam_beta * (t80567 + t80602 + t80629 + t80660 + t80696 + t80729 + t80761 + t80788) + 0.162e3 * t61961 * t6128 - 0.18e2 * t5524 * t22263 + 0.162e3 * t17102 * t22257 - 0.27e2 / 0.100e3 * t13201 * t23294 - 0.9e1 / 0.100e3 * t2394 * t1727 * t22294 - 0.18e2 * t20679 * t6137 - 0.36e2 * t4310 * t23222 - 0.18e2 * t4310 * t23203 + 0.324e3 * t17102 * t22240 - 0.35010992747705561596e-4 * t33 * t80720 - 0.12e2 * t5524 * t22249;
24611   t80843 = -0.4959e4 / 0.10000e5 * t27492 * t1727 * t22319 - 0.27e2 / 0.100e3 * t17157 * t22252 - 0.648e3 * t50722 * t22260 - t23478 + t23491 + 0.22639760888888888889e1 * t20480 * t23278 - 0.20375784800000000001e2 * t17337 * t1706 * t22335 + 0.11319880444444444444e1 * t20480 * t23283 - 0.10187892400000000000e2 * t62962 * t23286 + 0.40751569600000000001e2 * t51482 * t1706 * t22332 + 0.11319880444444444444e1 * t71965 * t6586 + 0.3e1 / 0.10e2 * t20521 * t6117 + 0.3e1 * t23242 * t1512;
24612   t80870 = 0.3e1 * t6485 * t6152 + t1699 * t22315 + t80430 * t244 + 0.3e1 / 0.10e2 * t71946 * t1495 + 0.162e3 * t68712 * t6492 + 0.324e3 * t68692 * t6492 + 0.324e3 * t18051 * t23422 + 0.162e3 * t18051 * t23425 - 0.1944e4 * t53324 * t23417 + 0.162e3 * t68705 * t6492 + 0.324e3 * t18068 * t23422 - 0.27e2 / 0.100e3 * t61630 * t6098 + t5645 * t22294 / 0.10e2 + t67325 * t1727 / 0.10e2;
24613   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24614     v4sigma3tau[0] = -0.3e1 / 0.8e1 * t1352 * t1353 * (t80308 + t80338 + t80367 + t80411 + t80528 + t80816 + t80843 + t80870);
24615 
24616   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24617     v4sigma3tau[1] = 0.0e0;
24618 
24619   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24620     v4sigma3tau[2] = 0.0e0;
24621 
24622   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24623     v4sigma3tau[3] = 0.0e0;
24624 
24625   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24626     v4sigma3tau[4] = 0.0e0;
24627 
24628   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24629     v4sigma3tau[5] = 0.0e0;
24630 
24631   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24632     v4sigma3tau[6] = 0.0e0;
24633 
24634   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24635     v4sigma3tau[7] = 0.0e0;
24636 
24637   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24638     v4sigma3tau[8] = 0.0e0;
24639 
24640   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24641     v4sigma3tau[9] = 0.0e0;
24642 
24643   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24644     v4sigma3tau[10] = 0.0e0;
24645 
24646   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24647     v4sigma3tau[11] = 0.0e0;
24648 
24649   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24650     v4sigma3tau[12] = 0.0e0;
24651 
24652   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24653     v4sigma3tau[13] = 0.0e0;
24654 
24655   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24656     v4sigma3tau[14] = 0.0e0;
24657 
24658   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24659     v4sigma3tau[15] = 0.0e0;
24660 
24661   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24662     v4sigma3tau[16] = 0.0e0;
24663 
24664   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24665     v4sigma3tau[17] = 0.0e0;
24666 
24667   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24668     v4sigma3tau[18] = 0.0e0;
24669 
24670   t80887 = t52661 * t22722;
24671   t80892 = t63620 * t6165;
24672   t80906 = -0.36e2 * t19818 * t23519 - 0.36e2 * t21214 * t6442 - 0.6e1 * t1101 * t70359 * t1751 - 0.18e2 * t1101 * t19701 * t6609 - 0.7776e4 * t16236 * t80887 + 0.972e3 * t19822 * t23542 + 0.972e3 * t5453 * t80892 - t22721 - 0.27e2 / 0.100e3 * t4278 * t6693 * t6425 - 0.27e2 / 0.100e3 * t16942 * t23503 - 0.27e2 / 0.50e2 * t16942 * t23508 + 0.513e3 / 0.1000e4 * t50448 * t23592 - 0.36e2 * t5720 * t22729;
24673   t80907 = t6610 * t6167;
24674   t80919 = t21070 * t6167;
24675   t80922 = t63636 * t6165;
24676   t80925 = t52558 * t22722;
24677   t80928 = t46 * t23046;
24678   t80932 = t46 * t339 * t22722;
24679   t80935 = t6728 * t6425;
24680   t80940 = -t22738 - 0.36e2 * t5459 * t80907 - 0.62888224691358024691e-1 * t23130 * t332 * t340 - 0.1944e4 * t59655 * t23539 + 0.162e3 * t19822 * t23548 - 0.1944e4 * t59635 * t23539 + 0.162e3 * t5453 * t80919 - 0.1944e4 * t16236 * t80922 + 0.9720e4 * t50425 * t80925 + 0.84521773985185185182e-1 * t1795 * t80928 + 0.75465869629629629630e0 * t53104 * t80932 - t6447 + 0.513e3 / 0.1000e4 * t12495 * t80935 - 0.18e2 * t73481 * t1670;
24681   t80967 = t6605 * t6167;
24682   t80982 = t1754 * t22722;
24683   t81003 = 0.36e2 * t1101 * t80907 + 0.7776e4 * t12321 * t80887 + 0.1944e4 * t12321 * t80922 - 0.972e3 * t16173 * t23542 - 0.324e3 * t16173 * t23545 - 0.162e3 * t16173 * t23548 - 0.162e3 * t17602 * t22754 + 0.36e2 * t19644 * t6612 + 0.1944e4 * t21285 * t80967 - 0.972e3 * t21288 * t80967 + 0.36e2 * t5720 * t22751 + 0.72e2 * t5116 * t23517 + 0.36e2 * t5116 * t23519 + 0.1944e4 * t48839 * t23539 - 0.1080e4 * t3817 * t80982 - 0.9720e4 * t38188 * t80925 - 0.162e3 * t59594 * t6624 - t23550 + t23556;
24684   t81023 = t6165 * t6609;
24685   t81027 = (0.6e1 * t6167 * t6609 + t23126 + t23128 + t23512 + t23520 + t6169 + t6173 + 0.54e2 * t80907 + 0.54e2 * t80967 + 0.54e2 * t81023) * t268;
24686   t81040 = 0.36e2 * t1101 * t80967 + 0.36e2 * t1101 * t81023 + 0.18e2 * t73481 * t1527 + 0.6e1 * t70257 * t1754 - 0.324e3 * t17602 * t23149 + 0.18e2 * t19644 * t6614 + 0.36e2 * t21214 * t6170 + 0.18e2 * t21214 * t6172 + 0.12e2 * t5720 * t22722 + 0.648e3 * t52676 * t23146 + 0.36e2 * t5116 * t23515 - 0.972e3 * t3817 * t80892 - 0.162e3 * t3817 * t80919 - 0.162e3 * t63724 * t6394 + t23145 - t23153 + t23157 + t23530 + t6400 - t81027;
24687   t81041 = t81003 + t81040;
24688   t81045 = -0.36e2 * t1101 * t23608 * t6609 - 0.648e3 * t52676 * t22723 - 0.36e2 * t5116 * t23609 - 0.18e2 * t5720 * t22726 - 0.18e2 * t5720 * t22719 + 0.162e3 * t17602 * t22741 - 0.15004711177588097827e-3 * t73374 * t73375 * t1524 - 0.36e2 * t70553 * t6612 + 0.162e3 * t70556 * t6624 - 0.4959e4 / 0.10000e5 * t39396 * t1785 * t22791 - 0.18e2 * t19644 * t6707 + t81041 * t428 - 0.27e2 / 0.100e3 * t17929 * t22747;
24689   t81057 = t17612 * t23125;
24690   t81060 = t17800 * t23125;
24691   t81070 = -t22753 + t22756 - t23628 + 0.513e3 / 0.1000e4 * t12495 * t6693 * t6406 - 0.12e2 * t5720 * t22744 + 0.3e1 / 0.10e2 * t74351 * t1663 + t70223 * t1785 / 0.10e2 + 0.75465869629629629628e-1 * t23658 * t6645 + 0.972e3 * t5453 * t81057 - 0.1944e4 * t16236 * t81060 - 0.10565221748148148148e0 * t6715 * t23620 + 0.3e1 * t6617 * t6460 + t1757 * t23190 + 0.3e1 / 0.10e2 * t19692 * t6693;
24692   t81095 = -t23568 + 0.73e2 / 0.45e2 * t1763 * t23565 * t1524 + t23574 + t23108 - 0.73e2 / 0.1620e4 * t46 * t23575 * t1524 - 0.73e2 / 0.3240e4 * t46 * t6679 * t6167 - t6420 + t23116 + 0.292e3 / 0.45e2 * t6683 * t6167 + t23585 - t23114 + t6424;
24693   t81103 = t1191 * t6172 * t1540;
24694   t81106 = t1764 * t22751;
24695   t81109 = t1764 * t22754;
24696   t81113 = t1191 * t6394 * t1540;
24697   t81116 = t81027 * t441 + 0.3e1 * t23522 * t1680 - 0.27e2 / 0.100e3 * t59580 * t6728 - 0.36e2 * t21078 * t22751 + 0.162e3 * t21081 * t22754 + 0.3e1 / 0.10e2 * t5489 * t23589 + t1342 * t81095 / 0.10e2 - 0.27e2 / 0.100e3 * t65011 * t6406 - 0.90559043555555555555e0 * t21031 * t23634 - 0.45279521777777777778e0 * t5831 * t81103 + 0.22639760888888888889e1 * t5831 * t81106 - 0.10187892400000000000e2 * t17947 * t81109 + 0.40751569600000000001e1 * t17947 * t81113;
24698   t81118 = t3947 * t73759 * t1524;
24699   t81122 = t1191 * t6170 * t1540;
24700   t81169 = -0.18e2 * t5116 * t23668 - 0.36e2 * t20369 * t23519 - 0.36e2 * t5116 * t23678 + 0.171e3 / 0.1000e4 * t1771 * t22792 - 0.27e2 / 0.100e3 * t6402 * t6665 - 0.36e2 * t21214 * t6187 + t406 * t1291 * t81095 / 0.10e2 + 0.3e1 / 0.10e2 * t6402 * t6694 + t22766 - 0.15004711177588097827e-3 * t73594 * t23613 * t1527 + 0.972e3 * t5122 * t81057 - 0.1944e4 * t16906 * t81060 - 0.7776e4 * t16906 * t80887 + 0.3e1 / 0.10e2 * t6659 * t6426 - 0.27e2 / 0.100e3 * t6659 * t6407;
24701   t81197 = -0.18e2 * t1101 * t20402 * t6609 - 0.36e2 * t1101 * t23673 * t6609 - t22778 - t23688 - t22785 - 0.6e1 * t1101 * t70777 * t1751 - 0.72e2 * t20369 * t23517 - 0.36e2 * t5130 * t80907 - 0.90559043555555555556e0 * t17644 * t81122 - 0.90559043555555555555e0 * t64850 * t23634 - 0.90559043555555555555e0 * t64705 * t23634 - 0.45279521777777777778e0 * t17644 * t81103 + 0.40751569600000000001e1 * t21318 * t81113 + 0.22639760888888888889e1 * t17644 * t81106 - 0.18e2 * t73481 * t1532;
24702   t81233 = -0.36e2 * t21214 * t6184 - 0.10187892400000000000e2 * t21318 * t81109 + 0.63391330488888888889e0 * t17644 * t81118 - 0.36e2 * t5720 * t22759 + 0.162e3 * t20425 * t23548 - 0.1944e4 * t61347 * t23539 + 0.324e3 * t20425 * t23545 - 0.36e2 * t5116 * t23674 + 0.40751569600000000001e2 * t52905 * t46 * t52906 * t22722 + 0.11319880444444444444e1 * t74172 * t6639 + 0.22639760888888888889e1 * t74159 * t6639 + 0.11319880444444444444e1 * t74169 * t6639 - 0.20375784800000000001e2 * t17857 * t46 * t52968 * t22722 + 0.22639760888888888889e1 * t21430 * t23749 + 0.22639760888888888889e1 * t21441 * t23749;
24703   t81262 = t74251 * t1540;
24704   t81265 = -0.10187892400000000000e2 * t64252 * t23757 - 0.10187892400000000000e2 * t64227 * t23757 + 0.11319880444444444444e1 * t21430 * t23753 + 0.11319880444444444444e1 * t21441 * t23753 + 0.513e3 / 0.1000e4 * t21496 * t80935 + 0.162e3 * t21389 * t22754 - 0.36e2 * t21386 * t22751 + t81041 * t405 * t428 - 0.648e3 * t52676 * t22774 - 0.9e1 / 0.100e3 * t406 * t5778 * t23117 - 0.27e2 / 0.100e3 * t1646 * t23739 + t81027 * t376 - 0.1944e4 * t16906 * t80922 + 0.9720e4 * t49301 * t80925 - 0.35010992747705561596e-4 * t1762 * t81262;
24705   t81301 = -t23723 + 0.162e3 * t5122 * t80919 + 0.513e3 / 0.1000e4 * t406 * t64676 * t6406 + 0.3e1 * t23522 * t1641 + 0.324e3 * t17602 * t22762 - 0.27e2 / 0.50e2 * t1646 * t23736 - 0.27e2 / 0.100e3 * t406 * t21326 * t6425 - 0.27e2 / 0.100e3 * t406 * t73791 * t1663 + 0.25007851962646829712e-4 * t269 * t1586 * t23612 * t1190 + 0.972e3 * t5122 * t80892 + 0.1080e4 * t5122 * t80982 + 0.162e3 * t70626 * t6624 + 0.324e3 * t20422 * t23545 + 0.162e3 * t20422 * t23548 - 0.1944e4 * t61125 * t23539;
24706   t81337 = -0.18e2 * t19644 * t6627 - 0.18e2 * t19644 * t6632 - 0.6e1 * t70257 * t1759 - 0.4959e4 / 0.10000e5 * t406 * t52927 * t22791 - 0.12e2 * t5720 * t22797 + 0.3e1 / 0.10e2 * t23683 * t1664 + 0.162e3 * t63724 * t6181 + 0.162e3 * t17602 * t22771 - 0.18e2 * t21214 * t6190 - 0.18e2 * t5720 * t23135 + 0.513e3 / 0.1000e4 * t1646 * t23665 - 0.62888224691358024691e-1 * t23130 * t330 * t1765 - 0.18866467407407407407e0 * t6175 * t1586 * t1765 - 0.18866467407407407407e0 * t1530 * t6285 * t1765 - 0.62888224691358024691e-1 * t269 * t22890 * t1765;
24707   t81364 = 0.3e1 * t6617 * t6390 + t1757 * t23103 + t23755 + 0.972e3 * t20422 * t23542 + 0.162e3 * t70642 * t6624 + t23769 + 0.324e3 * t70593 * t6624 - 0.72e2 * t20419 * t23517 - 0.36e2 * t20419 * t23519 - 0.36e2 * t5130 * t80967 - 0.36e2 * t1101 * t1641 * t6165 * t1751 - 0.27e2 / 0.100e3 * t1771 * t23132 + 0.25007851962646829712e-4 * t1530 * t23729 - 0.18e2 * t5720 * t22779 - t6192;
24708   t81393 = -t23137 + 0.75465869629629629630e0 * t5742 * t80932 + 0.84521773985185185182e-1 * t5753 * t80928 + 0.75465869629629629628e-1 * t74240 * t6645 + 0.15093173925925925925e0 * t74262 * t6645 + 0.75465869629629629628e-1 * t74267 * t6645 - 0.10565221748148148148e0 * t21398 * t23620 - 0.10565221748148148148e0 * t21339 * t23620 - 0.36e2 * t71639 * t6612 - 0.72e2 * t70608 * t6612 - 0.36e2 * t70639 * t6612 + 0.972e3 * t20425 * t23542 + t1771 * t23118 / 0.10e2 + t23159 * t1786 / 0.10e2 + 0.3e1 / 0.10e2 * t1646 * t23711;
24709   t81404 = 0.63391330488888888889e0 * t5831 * t81118 - 0.90559043555555555556e0 * t5831 * t81122 + 0.171e3 / 0.1000e4 * t52595 * t22791 + t5841 * t23117 / 0.10e2 + 0.3e1 / 0.10e2 * t21142 * t6425 + 0.25007851962646829712e-4 * t1530 * t23613 - 0.27e2 / 0.100e3 * t4278 * t23589 * t1663 + t23648 - t23657 - 0.9e1 / 0.100e3 * t4278 * t1785 * t23117 - p->cam_beta * (t81169 + t81197 + t81233 + t81265 + t81301 + t81337 + t81364 + t81393) + t23788 - 0.36e2 * t1101 * t1680 * t6165 * t1751 - 0.36e2 * t21214 * t6439;
24710   t81433 = -0.18e2 * t21214 * t6445 + 0.162e3 * t63724 * t6436 + 0.11319880444444444444e1 * t74376 * t6718 + 0.11319880444444444444e1 * t21031 * t23786 - 0.10187892400000000000e2 * t63956 * t23789 + 0.40751569600000000001e2 * t52512 * t1764 * t23146 - 0.18e2 * t19644 * t6712 - 0.18e2 * t5116 * t23597 - 0.36e2 * t5116 * t23601 + 0.324e3 * t17602 * t22734 - 0.35010992747705561596e-4 * t269 * t81262 - 0.6e1 * t70257 * t1792 + 0.22639760888888888889e1 * t21031 * t23792;
24711   t81463 = -0.20375784800000000001e2 * t17947 * t1764 * t23149 - 0.36e2 * t19833 * t23519 + 0.972e3 * t19836 * t23542 + 0.162e3 * t19836 * t23548 - 0.72e2 * t70559 * t6612 + 0.324e3 * t70562 * t6624 - 0.72e2 * t19833 * t23517 + 0.324e3 * t19836 * t23545 - 0.36e2 * t70453 * t6612 + 0.162e3 * t70456 * t6624 - 0.72e2 * t19818 * t23517 + 0.324e3 * t19822 * t23545 - 0.36e2 * t5459 * t80967 + 0.1080e4 * t5453 * t80982;
24712   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24713     v4sigma3tau[19] = -0.3e1 / 0.8e1 * t1352 * t1521 * (t80906 + t80940 + t81045 + t81070 + t81116 + t81404 + t81433 + t81463);
24714 
24715   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24716     v4sigma2lapl2[0] = 0.0e0;
24717 
24718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24719     v4sigma2lapl2[1] = 0.0e0;
24720 
24721   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24722     v4sigma2lapl2[2] = 0.0e0;
24723 
24724   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24725     v4sigma2lapl2[3] = 0.0e0;
24726 
24727   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24728     v4sigma2lapl2[4] = 0.0e0;
24729 
24730   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24731     v4sigma2lapl2[5] = 0.0e0;
24732 
24733   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24734     v4sigma2lapl2[6] = 0.0e0;
24735 
24736   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24737     v4sigma2lapl2[7] = 0.0e0;
24738 
24739   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24740     v4sigma2lapl2[8] = 0.0e0;
24741 
24742   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24743     v4sigma2lapl2[9] = 0.0e0;
24744 
24745   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24746     v4sigma2lapl2[10] = 0.0e0;
24747 
24748   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24749     v4sigma2lapl2[11] = 0.0e0;
24750 
24751   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24752     v4sigma2lapl2[12] = 0.0e0;
24753 
24754   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24755     v4sigma2lapl2[13] = 0.0e0;
24756 
24757   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24758     v4sigma2lapl2[14] = 0.0e0;
24759 
24760   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24761     v4sigma2lapl2[15] = 0.0e0;
24762 
24763   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24764     v4sigma2lapl2[16] = 0.0e0;
24765 
24766   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24767     v4sigma2lapl2[17] = 0.0e0;
24768 
24769   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24770     v4sigma2lapltau[0] = 0.0e0;
24771 
24772   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24773     v4sigma2lapltau[1] = 0.0e0;
24774 
24775   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24776     v4sigma2lapltau[2] = 0.0e0;
24777 
24778   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24779     v4sigma2lapltau[3] = 0.0e0;
24780 
24781   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24782     v4sigma2lapltau[4] = 0.0e0;
24783 
24784   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24785     v4sigma2lapltau[5] = 0.0e0;
24786 
24787   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24788     v4sigma2lapltau[6] = 0.0e0;
24789 
24790   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24791     v4sigma2lapltau[7] = 0.0e0;
24792 
24793   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24794     v4sigma2lapltau[8] = 0.0e0;
24795 
24796   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24797     v4sigma2lapltau[9] = 0.0e0;
24798 
24799   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24800     v4sigma2lapltau[10] = 0.0e0;
24801 
24802   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24803     v4sigma2lapltau[11] = 0.0e0;
24804 
24805   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24806     v4sigma2lapltau[12] = 0.0e0;
24807 
24808   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24809     v4sigma2lapltau[13] = 0.0e0;
24810 
24811   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24812     v4sigma2lapltau[14] = 0.0e0;
24813 
24814   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24815     v4sigma2lapltau[15] = 0.0e0;
24816 
24817   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24818     v4sigma2lapltau[16] = 0.0e0;
24819 
24820   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24821     v4sigma2lapltau[17] = 0.0e0;
24822 
24823   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24824     v4sigma2lapltau[18] = 0.0e0;
24825 
24826   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24827     v4sigma2lapltau[19] = 0.0e0;
24828 
24829   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24830     v4sigma2lapltau[20] = 0.0e0;
24831 
24832   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24833     v4sigma2lapltau[21] = 0.0e0;
24834 
24835   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24836     v4sigma2lapltau[22] = 0.0e0;
24837 
24838   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
24839     v4sigma2lapltau[23] = 0.0e0;
24840 
24841   t81498 = t23814 * t1356;
24842   t81501 = t74577 * t1356;
24843   t81506 = 0.108e3 * t13213 * t24008 + 0.54e2 * t1862 * t53483 * t6737 - 0.9e1 / 0.100e3 * t2394 * t6808 * t6117 - 0.9e1 / 0.50e2 * t2394 * t23908 * t1495 - 0.9e1 / 0.25e2 * t13201 * t24092 - 0.12e2 * t23213 - 0.9e1 / 0.100e3 * t65936 * t6098 - 0.12e2 * t4310 * t24060 - 0.6e1 * t478 * t18127 * t6743 - 0.12e2 * t478 * t4667 * t23813 - 0.48e2 * t72918 * t6480 + 0.216e3 * t72921 * t6492 - 0.24e2 * t4660 * t81498 + 0.108e3 * t4654 * t81501 - 0.48e2 * t18048 * t23818;
24844   t81509 = t6473 * t6477;
24845   t81513 = t5855 * t6737 * t26;
24846   t81518 = t17065 * t23233;
24847   t81521 = t17032 * t23233;
24848   t81544 = -0.48e2 * t18065 * t23818 - 0.48e2 * t4660 * t81509 + 0.1080e4 * t4654 * t81513 - 0.24e2 * t18048 * t23820 - 0.2592e4 * t13254 * t81518 + 0.1296e4 * t4654 * t81521 + 0.10062115950617283950e0 * t24069 * t6513 - 0.70434811654320987653e-1 * t6817 * t23329 - 0.9e1 / 0.50e2 * t2394 * t1727 * t23273 + 0.75465869629629629630e0 * t23284 - 0.48e2 * t72924 * t6480 + 0.216e3 * t72927 * t6492 - 0.48e2 * t20515 * t23237 + 0.216e3 * t20518 * t23422 + 0.648e3 * t18051 * t23841 + 0.216e3 * t18051 * t23844;
24849   t81575 = -0.1296e4 * t53324 * t23838 + 0.648e3 * t18068 * t23841 + 0.216e3 * t18068 * t23844 - 0.1296e4 * t53298 * t23838 + 0.108e3 * t18051 * t23855 - 0.24e2 * t18065 * t23820 + 0.108e3 * t18068 * t23855 + 0.171e3 / 0.500e3 * t51364 * t23461 + t71946 * t1727 / 0.5e1 + 0.2e1 / 0.5e1 * t20521 * t6561 + t21553 * t6117 / 0.10e2 + 0.2e1 * t23825 * t1512 + t6751 * t6152 + t74503 * t1495 / 0.5e1 + t5645 * t23273 / 0.5e1;
24850   t81576 = t6477 * t6477;
24851   t81583 = t5857 * t6737;
24852   t81586 = t25 * t81576;
24853   t81589 = t5855 * t6743;
24854   t81592 = t6744 * t5857;
24855   t81594 = 0.4e1 * t1356 * t23813 + 0.2e1 * t5857 * t6743 + 0.4e1 * t23231 + 0.36e2 * t23239 + t5859 + t5863 + 0.36e2 * t81498 + 0.72e2 * t81509 + 0.4e1 * t81576 + 0.18e2 * t81583 + 0.36e2 * t81586 + 0.18e2 * t81589 + 0.18e2 * t81592;
24856   t81595 = t81594 * t32;
24857   t81612 = t65307 * t5855;
24858   t81622 = t21638 * t5857;
24859   t81625 = t65164 * t5855;
24860   t81628 = t21645 * t5857;
24861   t81631 = t81595 * t244 - t6139 - 0.4959e4 / 0.10000e5 * t27492 * t6785 * t6098 - 0.24e2 * t5524 * t23206 + 0.54e2 * t53363 * t6820 - 0.12e2 * t21529 * t6134 - 0.9e1 / 0.25e2 * t61630 * t6596 + 0.16671901308431219808e-4 * t1699 * t23298 - 0.9e1 / 0.25e2 * t17157 * t23291 + 0.324e3 * t4654 * t81612 + 0.108e3 * t20518 * t23425 - 0.1296e4 * t62713 * t23417 - 0.12577644938271604938e0 * t23242 * t114 * t124 + 0.324e3 * t4654 * t81622 - 0.7776e4 * t13254 * t81625 - 0.648e3 * t13254 * t81628;
24862   t81634 = t65131 * t5855;
24863   t81643 = t6473 * t1372;
24864   t81678 = -0.73e2 / 0.135e3 * t23251 + 0.292e3 / 0.135e3 * t1705 * t23879 * t1356 + 0.146e3 / 0.135e3 * t1705 * t6794 * t5857 + 0.73e2 / 0.135e3 * t23257 + 0.73e2 / 0.9720e4 * t46 * t51 * t23813 * t226 - 0.73e2 / 0.4860e4 * t46 * t23889 * t1356 - t6112 + 0.584e3 / 0.135e3 * t23893 * t1356 + 0.292e3 / 0.135e3 * t6801 * t5857 - 0.73e2 / 0.2430e4 * t46 * t6547 * t6477 + 0.584e3 / 0.135e3 * t222 * t81576 + 0.584e3 / 0.135e3 * t23268 - 0.73e2 / 0.9720e4 * t46 * t1486 * t23813 + t6116;
24865   t81700 = t1706 * t23417;
24866   t81703 = 0.9720e4 * t40416 * t81634 - 0.12e2 * t4660 * t81592 - 0.24e2 * t20515 * t23239 + 0.648e3 * t20518 * t23244 + 0.54335426133333333334e1 * t62762 * t62763 * t81643 - 0.12074539140740740741e1 * t62754 * t62758 * t81643 + t759 * t81678 / 0.10e2 - 0.24e2 * t20679 * t6575 - 0.24e2 * t20679 * t6580 - 0.12e2 * t5524 * t23203 - 0.9e1 / 0.50e2 * t13201 * t24017 - 0.12e2 * t478 * t53346 * t6737 - 0.24e2 * t478 * t1512 * t1356 * t6737 - 0.12e2 * t478 * t244 * t5857 * t6737 + 0.81503139200000000000e2 * t51482 * t81700;
24867   t81704 = t1706 * t23239;
24868   t81715 = t1706 * t23244;
24869   t81719 = t1928 * t1696 * t5883;
24870   t81723 = t582 * t6482 * t1372;
24871   t81726 = t1706 * t23237;
24872   t81729 = t1706 * t23422;
24873   t81732 = t1706 * t23425;
24874   t81762 = t65146 * t5855;
24875   t81771 = -0.216e3 * t17102 * t23422 - 0.108e3 * t17102 * t23425 - 0.324e3 * t1862 * t81612 + 0.48e2 * t20679 * t6480 + 0.48e2 * t5524 * t23237 + 0.24e2 * t5524 * t23239 + 0.1296e4 * t50722 * t23417 + 0.24e2 * t478 * t81498 + 0.12e2 * t478 * t81592 - 0.216e3 * t61961 * t6492 + 0.648e3 * t6995 * t81762 + 0.12e2 * t23407;
24876   t81797 = -0.108e3 * t1862 * t1863 * t81576 - 0.648e3 * t17102 * t23244 + 0.12e2 * t18120 * t6746 + 0.6e1 * t18120 * t6748 - 0.1080e4 * t1862 * t81513 + 0.24e2 * t4310 * t23816 + 0.12e2 * t4310 * t23822 + 0.12e2 * t478 * t81583 + 0.24e2 * t478 * t81586 + 0.12e2 * t478 * t81589 - 0.54e2 * t53363 * t6773 + 0.7776e4 * t6995 * t81625;
24877   t81819 = -0.648e3 * t13213 * t23841 - 0.216e3 * t13213 * t23844 + 0.12e2 * t74508 * t1359 + 0.12e2 * t71926 * t1696 + 0.24e2 * t20679 * t6482 + 0.2592e4 * t20701 * t81509 + 0.12e2 * t21529 * t5860 + 0.6e1 * t21529 * t5862 + 0.24e2 * t5524 * t23235 - 0.54e2 * t65272 * t6086 + t6092 - t81595;
24878   t81838 = t21630 * t5857;
24879   t81845 = -0.108e3 * t13213 * t23855 - 0.108e3 * t1862 * t81501 - 0.324e3 * t1862 * t81622 - 0.54e2 * t1862 * t81838 - 0.1296e4 * t20704 * t81509 + 0.48e2 * t4310 * t23818 + 0.24e2 * t4310 * t23820 + 0.1296e4 * t40545 * t23838 - 0.9720e4 * t25874 * t81634 + 0.48e2 * t478 * t81509 + 0.648e3 * t6995 * t81628 - 0.108e3 * t23426 + 0.24e2 * t23432;
24880   t81847 = t81771 + t81797 + t81819 + t81845;
24881   t81849 = 0.15093173925925925926e1 * t5635 * t81704 - 0.60372695703703703702e0 * t21515 * t23373 - 0.60372695703703703704e0 * t20480 * t23974 + 0.30186347851851851852e1 * t20480 * t23977 - 0.13583856533333333333e2 * t62962 * t23980 - 0.40751569600000000000e2 * t17337 * t81715 + 0.42260886992592592593e0 * t5635 * t81719 - 0.60372695703703703704e0 * t5635 * t81723 + 0.30186347851851851852e1 * t5635 * t81726 - 0.13583856533333333333e2 * t17337 * t81729 - 0.67919282666666666667e1 * t17337 * t81732 + 0.171e3 / 0.1000e4 * t7915 * t6808 * t6098 + 0.171e3 / 0.1000e4 * t7915 * t6785 * t6117 + 0.108e3 * t1862 * t2352 * t81576 - 0.24e2 * t478 * t2360 * t81576 + t81847 * t230;
24882   t81851 = t6596 * t6561;
24883   t81885 = 0.171e3 / 0.250e3 * t7915 * t81851 - 0.12e2 * t74508 * t1502 - 0.24e2 * t5524 * t23222 - 0.12e2 * t478 * t23221 * t6743 - 0.12e2 * t21529 * t6131 - 0.6e1 * t21529 * t6137 + 0.54e2 * t65272 * t6128 - 0.12e2 * t71926 * t1734 + t18045 * t6808 / 0.10e2 + t4690 * t23908 / 0.5e1 - 0.648e3 * t13254 * t81762 + 0.54e2 * t4654 * t81838 - 0.9e1 / 0.100e3 * t53181 * t6785 - 0.12e2 * t18120 * t6826 - 0.24e2 * t4310 * t24023 - 0.24e2 * t4310 * t24027;
24884   t81922 = -0.9e1 / 0.50e2 * t1713 * t23315 - 0.12e2 * t18120 * t6765 + 0.171e3 / 0.1000e4 * t208 * t65738 * t6098 + t208 * t708 * t81678 / 0.10e2 + t1478 * t23909 / 0.5e1 - 0.9e1 / 0.25e2 * t1713 * t23312 - 0.9e1 / 0.25e2 * t6527 * t6533 + 0.216e3 * t18281 * t23844 + 0.216e3 * t18792 * t23844 - 0.24e2 * t20679 * t6495 - 0.48e2 * t18271 * t23818 - 0.48e2 * t72118 * t6480 + 0.216e3 * t72121 * t6492 - 0.48e2 * t18278 * t23818 - 0.24e2 * t18278 * t23820 + 0.108e3 * t18281 * t23855;
24885   t81958 = -0.48e2 * t20734 * t23237 + 0.216e3 * t20737 * t23422 + 0.648e3 * t18281 * t23841 + 0.324e3 * t4316 * t81622 - 0.7776e4 * t13333 * t81625 - 0.1296e4 * t53828 * t23838 + 0.108e3 * t20737 * t23425 - 0.1296e4 * t62538 * t23417 - 0.24e2 * t5524 * t23307 + t6781 * t6118 / 0.10e2 + t23435 * t1728 / 0.5e1 + t1713 * t23348 / 0.5e1 + 0.2e1 / 0.5e1 * t6527 * t6562 - 0.12e2 * t23320 + 0.1296e4 * t4316 * t81521 + 0.171e3 / 0.500e3 * t1713 * t23324 - 0.24e2 * t478 * t1473 * t1356 * t6737;
24886   t81998 = -0.9e1 / 0.50e2 * t1478 * t23868 - 0.12e2 * t478 * t160 * t5857 * t6737 - 0.6e1 * t18120 * t6768 + 0.54e2 * t1862 * t55228 * t6737 + 0.171e3 / 0.250e3 * t20773 * t81851 - 0.24e2 * t4324 * t81498 + 0.108e3 * t4316 * t81501 - 0.48e2 * t72464 * t6480 - 0.6e1 * t21529 * t5880 + 0.54e2 * t65272 * t5871 - 0.12e2 * t71926 * t1701 - 0.2592e4 * t13333 * t81518 - 0.24e2 * t4310 * t23991 + t81595 * t160 - 0.9e1 / 0.25e2 * t1478 * t23922 - 0.12e2 * t478 * t4331 * t23813 + 0.171e3 / 0.1000e4 * t208 * t21624 * t6117;
24887   t81999 = t6561 * t6561;
24888   t82044 = -0.9e1 / 0.50e2 * t208 * t2305 * t81999 - 0.1296e4 * t53796 * t23838 - 0.24e2 * t20734 * t23239 + 0.648e3 * t20737 * t23244 - 0.12e2 * t4310 * t23876 - 0.4959e4 / 0.10000e5 * t208 * t65742 * t6098 + 0.108e3 * t1862 * t1864 * t81576 + 0.216e3 * t72467 * t6492 - 0.9e1 / 0.100e3 * t208 * t21618 * t6117 - 0.12e2 * t4310 * t23871 - 0.9e1 / 0.50e2 * t208 * t74767 * t1495 - 0.12577644938271604938e0 * t23242 * t112 * t1707 - 0.25155289876543209876e0 * t6485 * t1418 * t1707 - 0.12577644938271604938e0 * t1699 * t5977 * t1707 - 0.6e1 * t478 * t18252 * t6743 + 0.108e3 * t13213 * t23933 - 0.9e1 / 0.50e2 * t208 * t5582 * t23273;
24889   t82083 = 0.171e3 / 0.500e3 * t1478 * t23919 - 0.24e2 * t5524 * t23343 + 0.54e2 * t53363 * t6758 - 0.24e2 * t4310 * t23995 - 0.24e2 * t20679 * t6500 - 0.12e2 * t74508 * t1364 + 0.42260886992592592593e0 * t17282 * t81719 - 0.9e1 / 0.100e3 * t6094 * t6786 - 0.12e2 * t21529 * t5874 - 0.24e2 * t18271 * t23820 - 0.12e2 * t478 * t55158 * t6737 + 0.15093173925925925926e1 * t5546 * t46 * t123 * t5855 * t1693 + 0.75465869629629629628e0 * t21756 * t23379 - 0.67919282666666666665e1 * t65477 * t23383 + 0.75465869629629629630e0 * t72663 * t6762 + 0.15093173925925925926e1 * t72092 * t6762;
24890   t82119 = 0.75465869629629629630e0 * t72666 * t6762 + 0.15093173925925925926e1 * t20806 * t23963 + 0.15093173925925925926e1 * t20795 * t23963 + 0.15093173925925925926e1 * t75162 * t6507 + 0.15093173925925925926e1 * t75165 * t6507 + 0.15093173925925925926e1 * t21756 * t23391 + 0.2e1 * t23825 * t1473 + t81847 * t207 * t230 - 0.648e3 * t13333 * t81762 - 0.12e2 * t478 * t23306 * t6743 - 0.12074539140740740741e1 * t17282 * t62565 * t81643 + 0.54335426133333333334e1 * t20762 * t62405 * t81643 + 0.108e3 * t18792 * t23855 - 0.12e2 * t5524 * t23366 + t6094 * t6809 / 0.10e2 - t5882 + 0.16671901308431219808e-4 * t1699 * t23340;
24891   t82155 = 0.324e3 * t4316 * t81612 - 0.648e3 * t13333 * t81628 + 0.9720e4 * t42157 * t81634 + 0.54e2 * t4316 * t81838 - 0.13583856533333333333e2 * t20762 * t81729 - 0.67919282666666666667e1 * t20762 * t81732 + 0.81503139200000000000e2 * t62318 * t81700 - 0.60372695703703703702e0 * t65588 * t23373 - 0.60372695703703703704e0 * t62595 * t23974 - 0.60372695703703703704e0 * t62592 * t23974 - 0.60372695703703703704e0 * t17282 * t81723 + 0.30186347851851851852e1 * t62595 * t23977 + 0.30186347851851851852e1 * t62592 * t23977 + 0.30186347851851851852e1 * t17282 * t81726 + 0.15093173925925925926e1 * t17282 * t81704 - 0.40751569600000000000e2 * t20762 * t81715 - 0.13583856533333333333e2 * t72504 * t23980;
24892   t82188 = -0.13583856533333333333e2 * t72660 * t23980 - 0.24e2 * t478 * t1872 * t81576 - 0.12e2 * t21529 * t5877 - 0.9e1 / 0.100e3 * t6781 * t6099 - 0.48e2 * t4324 * t81509 + 0.1080e4 * t4316 * t81513 + 0.75465869629629629630e0 * t23380 + 0.648e3 * t18792 * t23841 + t6751 * t6082 - 0.70434811654320987653e-1 * t21612 * t23329 + 0.10062115950617283950e0 * t75230 * t6513 + 0.10062115950617283950e0 * t75237 * t6513 - 0.12e2 * t4324 * t81592 + 0.108e3 * t23437 - 0.24e2 * t23451 + t23944 * t1496 / 0.5e1 - 0.10003140785058731885e-3 * t72610 * t23298 * t1696;
24893   t82221 = -0.24e2 * t23477 + 0.108e3 * t23490 - p->cam_beta * (t81922 + t81958 + t81998 + t82044 + t82083 + t82119 + t82155 + t82188) - 0.10003140785058731885e-3 * t72913 * t72914 * t1693 + 0.15093173925925925926e1 * t75653 * t6586 + 0.75465869629629629628e0 * t21515 * t23283 - 0.67919282666666666665e1 * t65918 * t23286 + 0.75465869629629629630e0 * t71965 * t6823 + 0.15093173925925925926e1 * t20480 * t24054 + 0.15093173925925925926e1 * t5635 * t1706 * t23235 + 0.15093173925925925926e1 * t21515 * t23278 + 0.171e3 / 0.500e3 * t40595 * t24089 - 0.6e1 * t18120 * t6829 - 0.12e2 * t4310 * t24057 - 0.9e1 / 0.50e2 * t2394 * t81999 - 0.9e1 / 0.50e2 * t17157 * t23294;
24894   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24895     v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t1352 * t1353 * (t81506 + t81544 + t81575 + t81631 + t81703 + t81849 + t81885 + t82221);
24896 
24897   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24898     v4sigma2tau2[1] = 0.0e0;
24899 
24900   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24901     v4sigma2tau2[2] = 0.0e0;
24902 
24903   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24904     v4sigma2tau2[3] = 0.0e0;
24905 
24906   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24907     v4sigma2tau2[4] = 0.0e0;
24908 
24909   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24910     v4sigma2tau2[5] = 0.0e0;
24911 
24912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24913     v4sigma2tau2[6] = 0.0e0;
24914 
24915   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24916     v4sigma2tau2[7] = 0.0e0;
24917 
24918   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24919     v4sigma2tau2[8] = 0.0e0;
24920 
24921   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24922     v4sigma2tau2[9] = 0.0e0;
24923 
24924   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24925     v4sigma2tau2[10] = 0.0e0;
24926 
24927   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24928     v4sigma2tau2[11] = 0.0e0;
24929 
24930   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24931     v4sigma2tau2[12] = 0.0e0;
24932 
24933   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24934     v4sigma2tau2[13] = 0.0e0;
24935 
24936   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24937     v4sigma2tau2[14] = 0.0e0;
24938 
24939   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24940     v4sigma2tau2[15] = 0.0e0;
24941 
24942   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24943     v4sigma2tau2[16] = 0.0e0;
24944 
24945   t82230 = t6605 * t6609;
24946   t82234 = t6165 * t6843 * t262;
24947   t82255 = t21944 * t6167;
24948   t82264 = -0.48e2 * t19818 * t24133 - 0.48e2 * t5459 * t82230 + 0.1080e4 * t5453 * t82234 - 0.24e2 * t19833 * t24135 + 0.108e3 * t19836 * t24170 - 0.10003140785058731885e-3 * t73374 * t73375 * t1751 - 0.24e2 * t21078 * t23519 + 0.648e3 * t21081 * t23542 + 0.108e3 * t21081 * t23548 - 0.1296e4 * t63844 * t23539 - 0.12577644938271604938e0 * t23522 * t332 * t340 + 0.324e3 * t5453 * t82255 + t22207 * t6425 / 0.10e2 + t74351 * t1785 / 0.5e1 + 0.2e1 / 0.5e1 * t21142 * t6693;
24949   t82284 = t6609 * t6609;
24950   t82291 = t6167 * t6843;
24951   t82294 = t261 * t82284;
24952   t82297 = t6165 * t6849;
24953   t82299 = t24129 * t1524;
24954   t82301 = t6850 * t6167;
24955   t82303 = 0.4e1 * t1524 * t24128 + 0.2e1 * t6167 * t6849 + 0.4e1 * t23511 + 0.36e2 * t23519 + t6169 + t6173 + 0.72e2 * t82230 + 0.4e1 * t82284 + 0.18e2 * t82291 + 0.36e2 * t82294 + 0.18e2 * t82297 + 0.36e2 * t82299 + 0.18e2 * t82301;
24956   t82304 = t82303 * t268;
24957   t82344 = -0.73e2 / 0.135e3 * t23567 + 0.292e3 / 0.135e3 * t1763 * t24179 * t1524 + 0.146e3 / 0.135e3 * t1763 * t6900 * t6167 + 0.73e2 / 0.135e3 * t23573 + 0.73e2 / 0.9720e4 * t46 * t274 * t24128 * t424 - 0.73e2 / 0.4860e4 * t46 * t24189 * t1524 - t6420 + 0.584e3 / 0.135e3 * t24193 * t1524 + 0.292e3 / 0.135e3 * t6907 * t6167 - 0.73e2 / 0.2430e4 * t46 * t6679 * t6609 + 0.584e3 / 0.135e3 * t420 * t82284 + 0.584e3 / 0.135e3 * t23584 - 0.73e2 / 0.9720e4 * t46 * t1654 * t24128 + t6424;
24958   t82354 = t6857 * t6390 - 0.12e2 * t73481 * t1759 - 0.6e1 * t1101 * t20402 * t6849 - 0.24e2 * t20369 * t24135 - 0.9e1 / 0.50e2 * t1646 * t24285 - 0.24e2 * t5720 * t23678 + t82304 * t376 + 0.648e3 * t20425 * t24156 + 0.216e3 * t20425 * t24159 + t6887 * t6426 / 0.10e2 + t6402 * t6915 / 0.10e2 + t1646 * t24370 / 0.5e1 + t406 * t1291 * t82344 / 0.10e2 - 0.48e2 * t21386 * t23517 + 0.216e3 * t21389 * t23545 - 0.1296e4 * t61347 * t24153;
24959   t82355 = t66568 * t6165;
24960   t82377 = t66713 * t6165;
24961   t82384 = t6728 * t6693;
24962   t82393 = -0.648e3 * t16906 * t82355 - 0.48e2 * t20419 * t24133 - 0.24e2 * t20419 * t24135 - 0.6e1 * t21965 * t6190 + 0.54e2 * t66534 * t6181 + 0.2e1 / 0.5e1 * t6659 * t6694 - 0.9e1 / 0.100e3 * t6887 * t6407 + 0.171e3 / 0.1000e4 * t406 * t66745 * t6406 - 0.12e2 * t19644 * t6871 + 0.324e3 * t5122 * t82255 - 0.7776e4 * t16906 * t82377 + 0.216e3 * t20422 * t24159 - 0.1296e4 * t61125 * t24153 + 0.171e3 / 0.250e3 * t21496 * t82384 - 0.48e2 * t73584 * t6612 + 0.216e3 * t73587 * t6624 + 0.648e3 * t20422 * t24156;
24963   t82426 = 0.12e2 * t1101 * t82301 + 0.7776e4 * t12321 * t82377 + 0.12e2 * t73481 * t1754 - 0.648e3 * t17602 * t23542 + 0.12e2 * t19644 * t6852 + 0.24e2 * t21214 * t6614 + 0.12e2 * t21965 * t6170 + 0.24e2 * t5116 * t24131 - 0.54e2 * t59594 * t6879 - 0.54e2 * t66534 * t6394 - 0.108e3 * t23549 + 0.24e2 * t23555;
24964   t82449 = -0.108e3 * t3817 * t3818 * t82284 + 0.12e2 * t1101 * t82291 + 0.24e2 * t1101 * t82294 + 0.12e2 * t1101 * t82297 + 0.12e2 * t76258 * t1527 + 0.6e1 * t19644 * t6854 + 0.2592e4 * t21285 * t82230 + 0.6e1 * t21965 * t6172 + 0.24e2 * t5720 * t23515 + 0.12e2 * t5116 * t24137 + 0.12e2 * t23529 + t6400;
24965   t82473 = t21951 * t6167;
24966   t82476 = 0.648e3 * t12321 * t82473 - 0.648e3 * t16173 * t24156 - 0.216e3 * t16173 * t24159 - 0.216e3 * t17602 * t23545 - 0.108e3 * t17602 * t23548 + 0.48e2 * t21214 * t6612 + 0.48e2 * t5720 * t23517 + 0.24e2 * t5720 * t23519 + 0.1296e4 * t52676 * t23539 + 0.1296e4 * t48839 * t24153 - 0.1080e4 * t3817 * t82234 - 0.216e3 * t63724 * t6624;
24967   t82477 = t66950 * t6165;
24968   t82486 = t66809 * t6165;
24969   t82493 = t76138 * t1524;
24970   t82496 = t21961 * t6167;
24971   t82505 = 0.48e2 * t1101 * t82230 + 0.24e2 * t1101 * t82299 + 0.648e3 * t12321 * t82355 - 0.108e3 * t16173 * t24170 - 0.1296e4 * t21288 * t82230 + 0.48e2 * t5116 * t24133 + 0.24e2 * t5116 * t24135 - 0.324e3 * t3817 * t82255 - 0.324e3 * t3817 * t82486 - 0.108e3 * t3817 * t82493 - 0.54e2 * t3817 * t82496 - 0.9720e4 * t38188 * t82477 - t82304;
24972   t82507 = t82426 + t82449 + t82476 + t82505;
24973   t82510 = t6693 * t6693;
24974   t82536 = t17612 * t23513;
24975   t82539 = 0.108e3 * t3817 * t3819 * t82284 + 0.16671901308431219808e-4 * t1757 * t23729 - 0.24e2 * t21214 * t6627 + 0.2e1 * t24140 * t1641 + t82507 * t405 * t428 - 0.9e1 / 0.50e2 * t406 * t4189 * t82510 - 0.9e1 / 0.100e3 * t406 * t21996 * t6425 - 0.9e1 / 0.50e2 * t406 * t76217 * t1663 - 0.24e2 * t21214 * t6632 - 0.48e2 * t73727 * t6612 - 0.12e2 * t21965 * t6184 + 0.171e3 / 0.500e3 * t1646 * t24290 - 0.12e2 * t76258 * t1532 - 0.48e2 * t20369 * t24133 - 0.9e1 / 0.50e2 * t1771 * t23739 - 0.9e1 / 0.25e2 * t1771 * t23736 + 0.1296e4 * t5122 * t82536;
24976   t82577 = -0.12577644938271604938e0 * t23522 * t330 * t1765 - 0.12e2 * t1101 * t5137 * t24128 - 0.12e2 * t5116 * t24280 - 0.48e2 * t5130 * t82230 + 0.1080e4 * t5122 * t82234 - 0.12e2 * t23687 + 0.108e3 * t20425 * t24170 + 0.108e3 * t5122 * t82493 + 0.54e2 * t5122 * t82496 - 0.12e2 * t5130 * t82301 + 0.324e3 * t5122 * t82486 + 0.108e3 * t20422 * t24170 - 0.24e2 * t5130 * t82299 + t24345 * t1664 / 0.5e1 - 0.25155289876543209876e0 * t6617 * t1586 * t1765 - 0.12577644938271604938e0 * t1757 * t6285 * t1765 + 0.171e3 / 0.500e3 * t1771 * t23665;
24977   t82609 = t1764 * t23519;
24978   t82612 = t1764 * t23542;
24979   t82615 = t1764 * t23548;
24980   t82618 = -0.12e2 * t1101 * t59803 * t6843 - 0.24e2 * t5720 * t23674 - 0.24e2 * t21386 * t23519 + 0.648e3 * t21389 * t23542 + 0.108e3 * t21389 * t23548 - 0.1296e4 * t64382 * t23539 - 0.4959e4 / 0.10000e5 * t406 * t66834 * t6406 - 0.10003140785058731885e-3 * t73594 * t23613 * t1754 + 0.10062115950617283950e0 * t76588 * t6645 + 0.10062115950617283950e0 * t76585 * t6645 - 0.60372695703703703704e0 * t64850 * t24313 + 0.30186347851851851852e1 * t64850 * t24316 - 0.13583856533333333333e2 * t74206 * t24319 + 0.15093173925925925926e1 * t17644 * t82609 - 0.40751569600000000000e2 * t21318 * t82612 - 0.67919282666666666667e1 * t21318 * t82615;
24981   t82619 = t1764 * t23539;
24982   t82651 = t17800 * t23513;
24983   t82657 = t76621 * t1524;
24984   t82661 = 0.81503139200000000000e2 * t64634 * t82619 - 0.60372695703703703704e0 * t64705 * t24313 + 0.30186347851851851852e1 * t64705 * t24316 + 0.15093173925925925926e1 * t21441 * t24342 + 0.15093173925925925926e1 * t21430 * t24342 + 0.75465869629629629630e0 * t74169 * t6868 + 0.15093173925925925926e1 * t22169 * t23749 + 0.75465869629629629628e0 * t22169 * t23753 - 0.67919282666666666665e1 * t66635 * t23757 + 0.15093173925925925926e1 * t76695 * t6639 + 0.15093173925925925926e1 * t76707 * t6639 + 0.75465869629629629630e0 * t74172 * t6868 + 0.15093173925925925926e1 * t74159 * t6868 + 0.15093173925925925926e1 * t5742 * t46 * t339 * t6165 * t1751 - 0.2592e4 * t16906 * t82651 - 0.24e2 * t1101 * t3827 * t82284 + 0.54335426133333333334e1 * t21318 * t64326 * t82657;
24985   t82694 = t1191 * t6614 * t1540;
24986   t82697 = t1764 * t23517;
24987   t82700 = t1764 * t23545;
24988   t82704 = t3947 * t1754 * t6193;
24989   t82709 = -0.12074539140740740741e1 * t17644 * t64320 * t82657 + t23683 * t1786 / 0.5e1 - 0.9e1 / 0.50e2 * t406 * t5778 * t23589 - 0.24e2 * t23722 - 0.9e1 / 0.25e2 * t1646 * t24299 + 0.171e3 / 0.1000e4 * t406 * t22002 * t6425 - 0.70434811654320987653e-1 * t22029 * t23620 - 0.12e2 * t5116 * t24295 - 0.6e1 * t19644 * t6874 - 0.12e2 * t1101 * t376 * t6167 * t6843 - 0.24e2 * t1101 * t1641 * t1524 * t6843 - 0.13583856533333333333e2 * t74199 * t24319 - 0.60372695703703703704e0 * t17644 * t82694 + 0.30186347851851851852e1 * t17644 * t82697 - 0.13583856533333333333e2 * t21318 * t82700 + 0.42260886992592592593e0 * t17644 * t82704 - 0.60372695703703703702e0 * t66898 * t23634;
24990   t82742 = -0.24e2 * t5116 * t24303 - 0.24e2 * t5116 * t24273 - 0.648e3 * t16906 * t82473 + 0.9720e4 * t49301 * t82477 - 0.12e2 * t5720 * t23668 + 0.75465869629629629630e0 * t23754 + 0.108e3 * t23768 - 0.9e1 / 0.25e2 * t6659 * t6665 - 0.12e2 * t1101 * t23673 * t6849 + 0.54e2 * t3817 * t59854 * t6843 - t6192 + 0.216e3 * t73730 * t6624 + 0.108e3 * t16173 * t24348 - 0.12e2 * t21965 * t6187 + 0.54e2 * t59594 * t6864 + t1771 * t23711 / 0.5e1 - 0.9e1 / 0.100e3 * t6402 * t6892;
24991   t82772 = t5841 * t23589 / 0.5e1 - 0.9e1 / 0.50e2 * t4278 * t24208 * t1663 - 0.9e1 / 0.100e3 * t59580 * t6891 - p->cam_beta * (t82354 + t82393 + t82539 + t82577 + t82618 + t82661 + t82709 + t82742) - 0.6e1 * t1101 * t19701 * t6849 - 0.9e1 / 0.50e2 * t16942 * t24246 + 0.171e3 / 0.500e3 * t50448 * t24116 - 0.9e1 / 0.25e2 * t16942 * t24119 - 0.648e3 * t16236 * t82473 + 0.9720e4 * t50425 * t82477 - 0.24e2 * t19818 * t24135 - 0.24e2 * t5459 * t82299 - 0.12e2 * t5459 * t82301 + 0.324e3 * t5453 * t82486 + 0.108e3 * t19822 * t24170 + 0.108e3 * t5453 * t82493;
24992   t82803 = 0.54e2 * t5453 * t82496 - 0.648e3 * t16236 * t82355 + 0.171e3 / 0.1000e4 * t12495 * t6914 * t6406 + 0.171e3 / 0.500e3 * t52595 * t23592 - 0.48e2 * t73351 * t6612 + 0.216e3 * t73355 * t6624 - 0.12e2 * t5720 * t23597 - 0.24e2 * t5720 * t23601 - 0.6e1 * t21965 * t6445 + 0.54e2 * t66534 * t6436 - 0.12e2 * t73481 * t1792 - 0.24e2 * t21214 * t6707 - 0.24e2 * t21214 * t6712 - 0.9e1 / 0.25e2 * t65011 * t6728 - t6447;
24993   t82839 = -0.24e2 * t1101 * t1680 * t1524 * t6843 - 0.12e2 * t1101 * t59561 * t6843 + 0.30186347851851851852e1 * t21031 * t24316 + 0.30186347851851851852e1 * t5831 * t82697 + 0.15093173925925925926e1 * t5831 * t82609 - 0.40751569600000000000e2 * t17947 * t82612 - 0.13583856533333333333e2 * t63956 * t24319 - 0.13583856533333333333e2 * t17947 * t82700 - 0.67919282666666666667e1 * t17947 * t82615 + 0.81503139200000000000e2 * t52512 * t82619 - 0.60372695703703703702e0 * t21925 * t23634 + 0.42260886992592592593e0 * t5831 * t82704 - 0.12e2 * t1101 * t5466 * t24128 - 0.12e2 * t23627 - 0.24e2 * t5116 * t24107 - 0.24e2 * t5116 * t24111;
24994   t82874 = -0.12e2 * t76258 * t1670 - 0.12e2 * t19644 * t6932 + 0.54e2 * t3817 * t59573 * t6843 - 0.48e2 * t73358 * t6612 + 0.216e3 * t73361 * t6624 - 0.48e2 * t21078 * t23517 + 0.216e3 * t21081 * t23545 + 0.648e3 * t19836 * t24156 + 0.216e3 * t19836 * t24159 - 0.1296e4 * t59655 * t24153 + 0.648e3 * t19822 * t24156 + 0.216e3 * t19822 * t24159 - 0.1296e4 * t59635 * t24153 - 0.48e2 * t19833 * t24133 + 0.171e3 / 0.1000e4 * t12495 * t6891 * t6425;
24995   t82908 = 0.108e3 * t16173 * t24235 + 0.54e2 * t59594 * t6926 - 0.60372695703703703704e0 * t21031 * t24313 - 0.60372695703703703704e0 * t5831 * t82694 - 0.12e2 * t21965 * t6439 - 0.9e1 / 0.50e2 * t17929 * t23503 - 0.7776e4 * t16236 * t82377 - 0.9e1 / 0.100e3 * t4278 * t6914 * t6425 - 0.4959e4 / 0.10000e5 * t39396 * t6891 * t6406 + 0.108e3 * t23647 - 0.24e2 * t23656 - 0.12074539140740740741e1 * t64948 * t65019 * t82657 + 0.54335426133333333334e1 * t65023 * t65024 * t82657 + t82507 * t428 + 0.75465869629629629630e0 * t23787 - 0.9e1 / 0.50e2 * t4278 * t1785 * t23589;
24996   t82947 = -0.12e2 * t21965 * t6442 - 0.6e1 * t19644 * t6935 - 0.12e2 * t5116 * t24223 - 0.12e2 * t5116 * t24226 - 0.24e2 * t5720 * t23609 + 0.171e3 / 0.250e3 * t12495 * t82384 + 0.75465869629629629628e0 * t21925 * t23786 - 0.67919282666666666665e1 * t66439 * t23789 + 0.75465869629629629630e0 * t74376 * t6929 + 0.15093173925925925926e1 * t21031 * t24220 + 0.15093173925925925926e1 * t5831 * t1764 * t23515 + 0.15093173925925925926e1 * t21925 * t23792 + 0.15093173925925925926e1 * t76972 * t6718 + 0.108e3 * t3817 * t4236 * t82284 - 0.12e2 * t1101 * t441 * t6167 * t6843 - 0.12e2 * t1101 * t23608 * t6849;
24997   t82979 = -0.24e2 * t1101 * t4244 * t82284 - 0.70434811654320987653e-1 * t6923 * t23620 + 0.1296e4 * t5453 * t82536 - 0.2592e4 * t16236 * t82651 + 0.10062115950617283950e0 * t24255 * t6645 + t75959 * t1663 / 0.5e1 - 0.9e1 / 0.50e2 * t4278 * t82510 - 0.9e1 / 0.100e3 * t66454 * t6406 + t82304 * t441 + 0.2e1 * t24140 * t1680 + t6857 * t6460 + t19692 * t6914 / 0.10e2 - 0.9e1 / 0.25e2 * t17929 * t23508 + 0.16671901308431219808e-4 * t1757 * t23613 + t5489 * t24208 / 0.5e1 + t1342 * t82344 / 0.10e2;
24998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
24999     v4sigma2tau2[17] = -0.3e1 / 0.8e1 * t1352 * t1521 * (t82264 + t82772 + t82803 + t82839 + t82874 + t82908 + t82947 + t82979);
25000 
25001   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25002     v4sigmalapl3[0] = 0.0e0;
25003 
25004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25005     v4sigmalapl3[1] = 0.0e0;
25006 
25007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25008     v4sigmalapl3[2] = 0.0e0;
25009 
25010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25011     v4sigmalapl3[3] = 0.0e0;
25012 
25013   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25014     v4sigmalapl3[4] = 0.0e0;
25015 
25016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25017     v4sigmalapl3[5] = 0.0e0;
25018 
25019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25020     v4sigmalapl3[6] = 0.0e0;
25021 
25022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25023     v4sigmalapl3[7] = 0.0e0;
25024 
25025   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25026     v4sigmalapl3[8] = 0.0e0;
25027 
25028   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25029     v4sigmalapl3[9] = 0.0e0;
25030 
25031   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25032     v4sigmalapl3[10] = 0.0e0;
25033 
25034   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25035     v4sigmalapl3[11] = 0.0e0;
25036 
25037   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25038     v4sigmalapl2tau[0] = 0.0e0;
25039 
25040   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25041     v4sigmalapl2tau[1] = 0.0e0;
25042 
25043   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25044     v4sigmalapl2tau[2] = 0.0e0;
25045 
25046   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25047     v4sigmalapl2tau[3] = 0.0e0;
25048 
25049   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25050     v4sigmalapl2tau[4] = 0.0e0;
25051 
25052   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25053     v4sigmalapl2tau[5] = 0.0e0;
25054 
25055   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25056     v4sigmalapl2tau[6] = 0.0e0;
25057 
25058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25059     v4sigmalapl2tau[7] = 0.0e0;
25060 
25061   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25062     v4sigmalapl2tau[8] = 0.0e0;
25063 
25064   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25065     v4sigmalapl2tau[9] = 0.0e0;
25066 
25067   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25068     v4sigmalapl2tau[10] = 0.0e0;
25069 
25070   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25071     v4sigmalapl2tau[11] = 0.0e0;
25072 
25073   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25074     v4sigmalapl2tau[12] = 0.0e0;
25075 
25076   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25077     v4sigmalapl2tau[13] = 0.0e0;
25078 
25079   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25080     v4sigmalapl2tau[14] = 0.0e0;
25081 
25082   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25083     v4sigmalapl2tau[15] = 0.0e0;
25084 
25085   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25086     v4sigmalapl2tau[16] = 0.0e0;
25087 
25088   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25089     v4sigmalapl2tau[17] = 0.0e0;
25090 
25091   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25092     v4sigmalapltau2[0] = 0.0e0;
25093 
25094   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25095     v4sigmalapltau2[1] = 0.0e0;
25096 
25097   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25098     v4sigmalapltau2[2] = 0.0e0;
25099 
25100   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25101     v4sigmalapltau2[3] = 0.0e0;
25102 
25103   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25104     v4sigmalapltau2[4] = 0.0e0;
25105 
25106   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25107     v4sigmalapltau2[5] = 0.0e0;
25108 
25109   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25110     v4sigmalapltau2[6] = 0.0e0;
25111 
25112   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25113     v4sigmalapltau2[7] = 0.0e0;
25114 
25115   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25116     v4sigmalapltau2[8] = 0.0e0;
25117 
25118   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25119     v4sigmalapltau2[9] = 0.0e0;
25120 
25121   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25122     v4sigmalapltau2[10] = 0.0e0;
25123 
25124   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25125     v4sigmalapltau2[11] = 0.0e0;
25126 
25127   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25128     v4sigmalapltau2[12] = 0.0e0;
25129 
25130   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25131     v4sigmalapltau2[13] = 0.0e0;
25132 
25133   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25134     v4sigmalapltau2[14] = 0.0e0;
25135 
25136   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25137     v4sigmalapltau2[15] = 0.0e0;
25138 
25139   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25140     v4sigmalapltau2[16] = 0.0e0;
25141 
25142   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25143     v4sigmalapltau2[17] = 0.0e0;
25144 
25145   t82990 = t20508 * t6743;
25146   t82993 = t5530 * t23813;
25147   t83000 = t6473 * t6743;
25148   t83003 = t6478 * t6743;
25149   t83006 = t1694 * t23813;
25150   t83009 = t24417 * t1356;
25151   t83012 = t77190 * t1356;
25152   t83015 = -0.36e2 * t18048 * t24421 + 0.162e3 * t18051 * t24441 - 0.36e2 * t18065 * t24421 + 0.162e3 * t18068 * t24441 + 0.162e3 * t4654 * t82990 + 0.162e3 * t4654 * t82993 + 0.54e2 * t4654 * t83012 - 0.36e2 * t4660 * t83000 - 0.36e2 * t4660 * t83003 - 0.36e2 * t4660 * t83006 - 0.12e2 * t4660 * t83009;
25153   t83018 = t77233 * t1356;
25154   t83021 = t21638 * t6477;
25155   t83038 = t77249 * t1356;
25156   t83041 = t21645 * t6477;
25157   t83044 = -0.7776e4 * t13254 * t83038 - 0.1944e4 * t13254 * t83041 - 0.72e2 * t20515 * t23818 - 0.36e2 * t20515 * t23820 + 0.972e3 * t20518 * t23841 + 0.324e3 * t20518 * t23844 + 0.162e3 * t20518 * t23855 - 0.1944e4 * t62713 * t23838 + 0.1080e4 * t4654 * t83018 + 0.972e3 * t4654 * t83021 - 0.36e2 * t75586 * t6480 + 0.162e3 * t75589 * t6492;
25158   t83046 = t77256 * t1356;
25159   t83061 = my_piecewise3(t24, -0.3e1 / 0.4e1 * t19 * t24413, 0);
25160   t83064 = t6737 * t6477;
25161   t83070 = t26 * t83061;
25162   t83073 = (0.2e1 * t1356 * t24416 + 0.6e1 * t1693 * t23813 + 0.2e1 * t25 * t83061 + 0.6e1 * t6477 * t6743 + 0.54e2 * t83000 + 0.54e2 * t83003 + 0.54e2 * t83006 + 0.18e2 * t83009 + 0.54e2 * t83064 + 0.9e1 * t83070) * t32;
25163   t83106 = -0.972e3 * t20704 * t83000 + 0.1944e4 * t20701 * t83000 - t83073 - 0.324e3 * t13213 * t24438 + 0.36e2 * t478 * t83064 + 0.6e1 * t4310 * t24423 + 0.6e1 * t478 * t83070 + 0.6e1 * t77283 * t1359 + 0.18e2 * t74508 * t1696 + 0.18e2 * t21529 * t6482 - 0.162e3 * t61961 * t6773 + 0.36e2 * t20679 * t6746 + 0.36e2 * t5524 * t23816 + 0.18e2 * t20679 * t6748 + 0.18e2 * t5524 * t23822 + 0.648e3 * t40545 * t24435 + 0.1944e4 * t6995 * t83041 - 0.9720e4 * t25874 * t83046 - 0.1080e4 * t1862 * t83018;
25164   t83147 = -0.162e3 * t13213 * t24441 - 0.972e3 * t17102 * t23841 - 0.324e3 * t17102 * t23844 - 0.162e3 * t17102 * t23855 - 0.162e3 * t1862 * t82990 - 0.162e3 * t1862 * t82993 - 0.54e2 * t1862 * t83012 - 0.972e3 * t1862 * t83021 + 0.36e2 * t21529 * t6480 + 0.72e2 * t5524 * t23818 + 0.36e2 * t5524 * t23820 + 0.1944e4 * t50722 * t23838 + 0.12e2 * t4310 * t24419 + 0.36e2 * t4310 * t24421 + 0.36e2 * t478 * t83000 + 0.36e2 * t478 * t83003 + 0.36e2 * t478 * t83006 + 0.12e2 * t478 * t83009 - 0.162e3 * t65272 * t6492 + 0.7776e4 * t6995 * t83038;
25165   t83148 = t83106 + t83147;
25166   t83160 = t24405 * t1495;
25167   t83183 = -0.18866467407407407407e0 * t23825 * t112 * t1707 - 0.18866467407407407407e0 * t6751 * t1418 * t1707 + 0.513e3 / 0.1000e4 * t20773 * t83160 - 0.72e2 * t20734 * t23818 + 0.972e3 * t4316 * t83021 + 0.162e3 * t18281 * t24441 + 0.162e3 * t18792 * t24441 - 0.27e2 / 0.100e3 * t208 * t5582 * t23908 - 0.27e2 / 0.100e3 * t208 * t20819 * t6808 - 0.27e2 / 0.100e3 * t1478 * t24508 + 0.324e3 * t20737 * t23844 - 0.1944e4 * t62538 * t23838;
25168   t83212 = t17032 * t23809;
25169   t83215 = 0.11319880444444444444e1 * t77553 * t6507 + 0.22639760888888888889e1 * t20806 * t24512 + 0.22639760888888888889e1 * t20795 * t24512 + 0.22639760888888888889e1 * t5546 * t46 * t123 * t1356 * t6737 - 0.10187892400000000000e2 * t62423 * t24472 - 0.10187892400000000000e2 * t62581 * t24472 + 0.11319880444444444444e1 * t20806 * t24476 + 0.11319880444444444444e1 * t20795 * t24476 + 0.11319880444444444444e1 * t5546 * t46 * t5547 * t23813 + 0.22639760888888888889e1 * t75162 * t6762 - 0.6e1 * t478 * t479 * t83061 + 0.972e3 * t4316 * t83212;
25170   t83217 = t17065 * t23809;
25171   t83243 = -0.1944e4 * t13333 * t83217 + 0.1080e4 * t4316 * t83018 - 0.12e2 * t4324 * t83009 + 0.54e2 * t4316 * t83012 - 0.36e2 * t74567 * t6480 + 0.162e3 * t74559 * t6492 - 0.36e2 * t20734 * t23820 + 0.162e3 * t20737 * t23855 + 0.972e3 * t20737 * t23841 - 0.36e2 * t5524 * t23995 - 0.9e1 / 0.100e3 * t208 * t77603 * t1495 - 0.7776e4 * t13333 * t83038;
25172   t83274 = 0.324e3 * t1862 * t24419 * t40955 - 0.6e1 * t24416 * t4331 * t478 - 0.648e3 * t24419 * t42192 * t6995 - 0.36e2 * t478 * t6477 * t77669 - 0.1944e4 * t13333 * t83041 - 0.36e2 * t20679 * t6765 - 0.18e2 * t20679 * t6768 - 0.18e2 * t21529 * t6495 - 0.18e2 * t21529 * t6500 + 0.9720e4 * t42157 * t83046 - 0.36e2 * t4324 * t83000 - 0.36e2 * t4324 * t83003 - 0.36e2 * t4324 * t83006;
25173   t83297 = t582 * t6773 * t1372;
25174   t83300 = t1706 * t23841;
25175   t83303 = t1706 * t23844;
25176   t83306 = -0.6e1 * t4310 * t24455 + 0.324e3 * t13213 * t24523 - 0.18e2 * t74508 * t1701 + 0.513e3 / 0.1000e4 * t1713 * t23919 - 0.27e2 / 0.50e2 * t1713 * t23922 - 0.4959e4 / 0.10000e5 * t208 * t77522 * t1495 - 0.90559043555555555556e0 * t65588 * t23974 + 0.45279521777777777778e1 * t65588 * t23977 - 0.20375784800000000000e2 * t74837 * t23980 + 0.40751569600000000000e1 * t20762 * t83297 - 0.61127354400000000000e2 * t20762 * t83300 - 0.20375784800000000000e2 * t20762 * t83303;
25177   t83307 = t1706 * t23838;
25178   t83311 = t582 * t6748 * t1372;
25179   t83314 = t1706 * t23820;
25180   t83317 = t1706 * t23855;
25181   t83321 = t582 * t6746 * t1372;
25182   t83324 = t1706 * t23818;
25183   t83339 = 0.12225470880000000000e3 * t62318 * t83307 - 0.45279521777777777776e0 * t17282 * t83311 + 0.22639760888888888888e1 * t17282 * t83314 - 0.10187892400000000000e2 * t20762 * t83317 - 0.90559043555555555556e0 * t17282 * t83321 + 0.45279521777777777778e1 * t17282 * t83324 - 0.18e2 * t5524 * t23876 - 0.18e2 * t5524 * t23871 - 0.648e3 * t40545 * t24466 - 0.27e2 / 0.100e3 * t1713 * t23868 - 0.6e1 * t77283 * t1364 - 0.27e2 / 0.100e3 * t6527 * t6786;
25184   t83387 = -0.73e2 / 0.90e2 * t1705 * t45 * t23813 * t226 + 0.73e2 / 0.45e2 * t1705 * t24479 * t1356 + 0.146e3 / 0.45e2 * t1705 * t6794 * t6477 + 0.73e2 / 0.90e2 * t1705 * t1718 * t23813 + 0.73e2 / 0.19440e5 * t46 * t51 * t24416 * t226 - 0.146e3 / 0.135e3 * t222 * t83061 * t226 + 0.292e3 / 0.135e3 * t24489 * t1356 - 0.73e2 / 0.3240e4 * t46 * t23889 * t1693 + 0.292e3 / 0.45e2 * t23893 * t1693 + 0.292e3 / 0.45e2 * t6801 * t6477 - 0.73e2 / 0.19440e5 * t46 * t1486 * t24416 + 0.146e3 / 0.135e3 * t225 * t83061;
25185   t83402 = -0.12e2 * t478 * t1473 * t24419 + t83073 * t160 - 0.27e2 / 0.100e3 * t6781 * t6533 - 0.12e2 * t4310 * t24452 + t1478 * t24497 / 0.10e2 + 0.3e1 / 0.10e2 * t6527 * t6809 + t208 * t708 * t83387 / 0.10e2 + t24516 * t1496 / 0.10e2 + 0.513e3 / 0.1000e4 * t208 * t21624 * t6561 + 0.22639760888888888889e1 * t75165 * t6762 + 0.22639760888888888889e1 * t21756 * t23963 - 0.36e2 * t5524 * t23991;
25186   t83428 = 0.171e3 / 0.1000e4 * t1478 * t24505 + 0.75465869629629629628e-1 * t77508 * t6513 + t24426 * t1473 + t83148 * t207 * t230 + 0.162e3 * t4316 * t82990 + 0.162e3 * t4316 * t82993 - 0.36e2 * t18278 * t24421 - 0.36e2 * t18271 * t24421 + 0.3e1 / 0.10e2 * t6781 * t6562 + 0.3e1 / 0.10e2 * t23944 * t1728 + 0.3e1 / 0.10e2 * t1713 * t23909 + 0.162e3 * t61961 * t6758 + 0.162e3 * t17102 * t23933;
25187   t83450 = 0.9720e4 * t40416 * t83046 + t83148 * t230 - 0.27e2 / 0.100e3 * t65936 * t6596 - 0.27e2 / 0.100e3 * t17157 * t24017 - p->cam_beta * (t83183 + t83215 + t83243 + t83274 + t83306 + t83339 + t83402 + t83428) + 0.75465869629629629628e-1 * t24558 * t6513 + 0.972e3 * t4654 * t83212 - 0.1944e4 * t13254 * t83217 + 0.513e3 / 0.1000e4 * t7915 * t83160 - 0.6e1 * t478 * t738 * t83061 - 0.18866467407407407407e0 * t23825 * t114 * t124 - 0.9e1 / 0.100e3 * t2394 * t24496 * t1495;
25188   t83477 = 0.324e3 * t1862 * t24419 * t40517 - 0.6e1 * t24416 * t4667 * t478 + 0.324e3 * t13213 * t24563 - 0.6e1 * t77283 * t1502 - 0.18e2 * t74508 * t1734 - 0.36e2 * t20679 * t6826 - 0.18e2 * t20679 * t6829 - 0.18e2 * t21529 * t6575 - 0.18e2 * t21529 * t6580 - 0.36e2 * t5524 * t24023 - 0.36e2 * t5524 * t24027 - 0.18e2 * t5524 * t24057;
25189   t83502 = 0.3e1 / 0.10e2 * t5645 * t23908 + t83073 * t244 + t24426 * t1512 + 0.3e1 / 0.10e2 * t21553 * t6561 + 0.3e1 / 0.10e2 * t20521 * t6808 + 0.3e1 / 0.10e2 * t74503 * t1727 + t759 * t83387 / 0.10e2 + 0.171e3 / 0.1000e4 * t40595 * t24402 + t4690 * t24496 / 0.10e2 - 0.648e3 * t6995 * t40811 * t24419 - 0.36e2 * t478 * t77286 * t6477;
25190   t83529 = -0.6e1 * t4310 * t24573 - 0.648e3 * t40545 * t24539 + 0.162e3 * t17102 * t24008 - 0.18e2 * t5524 * t24060 + 0.162e3 * t61961 * t6820 - 0.27e2 / 0.50e2 * t17157 * t24092 + 0.513e3 / 0.1000e4 * t51364 * t24089 - 0.27e2 / 0.100e3 * t2394 * t6561 * t6808 - 0.27e2 / 0.100e3 * t2394 * t1727 * t23908 - 0.90559043555555555556e0 * t21515 * t23974 + 0.45279521777777777778e1 * t21515 * t23977 - 0.20375784800000000000e2 * t65918 * t23980;
25191   t83555 = 0.40751569600000000000e1 * t17337 * t83297 - 0.90559043555555555556e0 * t5635 * t83321 + 0.45279521777777777778e1 * t5635 * t83324 - 0.61127354400000000000e2 * t17337 * t83300 - 0.20375784800000000000e2 * t17337 * t83303 + 0.12225470880000000000e3 * t51482 * t83307 - 0.45279521777777777776e0 * t5635 * t83311 + 0.22639760888888888888e1 * t5635 * t83314 - 0.10187892400000000000e2 * t17337 * t83317 + 0.22639760888888888889e1 * t75653 * t6823 + 0.22639760888888888889e1 * t21515 * t24054 - 0.10187892400000000000e2 * t62962 * t24552;
25192   t83585 = 0.11319880444444444444e1 * t20480 * t24555 + 0.11319880444444444444e1 * t5635 * t1706 * t23822 + 0.11319880444444444444e1 * t77752 * t6586 + 0.22639760888888888889e1 * t20480 * t24399 + 0.22639760888888888889e1 * t5635 * t1706 * t23816 + t77794 * t1495 / 0.10e2 - 0.27e2 / 0.100e3 * t61630 * t6785 - 0.12e2 * t4310 * t24570 - 0.12e2 * t478 * t1512 * t24419 - 0.4959e4 / 0.10000e5 * t27492 * t24402 * t1495 + 0.513e3 / 0.1000e4 * t7915 * t6785 * t6561 - 0.27e2 / 0.100e3 * t13201 * t24405;
25193   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25194     v4sigmatau3[0] = -0.3e1 / 0.8e1 * t1352 * t1353 * (t83015 + t83044 + t83450 + t83477 + t83502 + t83529 + t83555 + t83585);
25195 
25196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25197     v4sigmatau3[1] = 0.0e0;
25198 
25199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25200     v4sigmatau3[2] = 0.0e0;
25201 
25202   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25203     v4sigmatau3[3] = 0.0e0;
25204 
25205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25206     v4sigmatau3[4] = 0.0e0;
25207 
25208   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25209     v4sigmatau3[5] = 0.0e0;
25210 
25211   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25212     v4sigmatau3[6] = 0.0e0;
25213 
25214   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25215     v4sigmatau3[7] = 0.0e0;
25216 
25217   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25218     v4sigmatau3[8] = 0.0e0;
25219 
25220   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25221     v4sigmatau3[9] = 0.0e0;
25222 
25223   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25224     v4sigmatau3[10] = 0.0e0;
25225 
25226   t83598 = t78050 * t1524;
25227   t83601 = t24615 * t1524;
25228   t83604 = t78054 * t1524;
25229   t83635 = 0.162e3 * t63724 * t6864 - 0.18e2 * t5720 * t24280 - 0.36e2 * t5720 * t24303 + 0.324e3 * t16173 * t24717 - 0.36e2 * t5720 * t24273 - 0.27e2 / 0.100e3 * t1771 * t24285 - 0.18e2 * t21965 * t6627 + 0.162e3 * t20422 * t24638 - 0.36e2 * t1101 * t78300 * t6609 - 0.6e1 * t5116 * t24707 + 0.513e3 / 0.1000e4 * t406 * t22002 * t6693 - 0.27e2 / 0.100e3 * t1646 * t24689;
25230   t83642 = t1752 * t24128;
25231   t83665 = -0.6e1 * t1101 * t5137 * t24600 - 0.4959e4 / 0.10000e5 * t406 * t78416 * t1663 - 0.36e2 * t5130 * t83642 - 0.18e2 * t5720 * t24295 + 0.324e3 * t3817 * t48983 * t24592 - 0.18e2 * t76258 * t1759 - 0.18e2 * t21965 * t6632 - 0.36e2 * t21214 * t6871 + 0.513e3 / 0.1000e4 * t1771 * t24290 - 0.27e2 / 0.50e2 * t1771 * t24299 - 0.27e2 / 0.100e3 * t6887 * t6665 - 0.9e1 / 0.100e3 * t406 * t78494 * t1663;
25232   t83669 = t24584 * t1663;
25233   t83676 = t21944 * t6609;
25234   t83688 = t78075 * t1524;
25235   t83691 = t21951 * t6609;
25236   t83694 = t78046 * t1524;
25237   t83697 = 0.1080e4 * t5122 * t83598 + 0.513e3 / 0.1000e4 * t21496 * t83669 - 0.36e2 * t21386 * t24135 + 0.162e3 * t21389 * t24170 + 0.972e3 * t5122 * t83676 - 0.648e3 * t12321 * t48966 * t24592 + 0.972e3 * t21389 * t24156 + 0.324e3 * t21389 * t24159 - 0.1944e4 * t64382 * t24153 - 0.7776e4 * t16906 * t83688 - 0.1944e4 * t16906 * t83691 + 0.9720e4 * t49301 * t83694;
25238   t83700 = my_piecewise3(t260, -0.3e1 / 0.4e1 * t255 * t24597, 0);
25239   t83732 = t21070 * t6849;
25240   t83735 = t5726 * t24128;
25241   t83740 = t6605 * t6849;
25242   t83743 = t6610 * t6849;
25243   t83746 = 0.36e2 * t1101 * t83740 + 0.36e2 * t1101 * t83743 + 0.7776e4 * t12321 * t83688 + 0.1944e4 * t12321 * t83691 - 0.162e3 * t16173 * t24638 - 0.972e3 * t17602 * t24156 - 0.324e3 * t17602 * t24159 - 0.162e3 * t17602 * t24170 + 0.36e2 * t21965 * t6612 + 0.72e2 * t5720 * t24133 + 0.36e2 * t5720 * t24135 + 0.1944e4 * t52676 * t24153 + 0.36e2 * t5116 * t24618 - 0.1080e4 * t3817 * t83598 - 0.972e3 * t3817 * t83676 - 0.162e3 * t3817 * t83732 - 0.162e3 * t3817 * t83735 - 0.9720e4 * t38188 * t83694 - 0.162e3 * t66534 * t6624;
25244   t83765 = t6843 * t6609;
25245   t83771 = t262 * t83700;
25246   t83774 = (0.2e1 * t1524 * t24600 + 0.6e1 * t1751 * t24128 + 0.2e1 * t261 * t83700 + 0.6e1 * t6609 * t6849 + 0.18e2 * t83601 + 0.54e2 * t83642 + 0.54e2 * t83740 + 0.54e2 * t83743 + 0.54e2 * t83765 + 0.9e1 * t83771) * t268;
25247   t83803 = 0.36e2 * t1101 * t83642 + 0.12e2 * t1101 * t83601 - 0.54e2 * t3817 * t83604 - 0.972e3 * t21288 * t83740 + 0.1944e4 * t21285 * t83740 - t83774 + 0.12e2 * t5116 * t24592 + 0.6e1 * t78103 * t1527 + 0.18e2 * t76258 * t1754 + 0.18e2 * t21965 * t6614 - 0.162e3 * t63724 * t6879 + 0.36e2 * t21214 * t6852 + 0.36e2 * t5720 * t24131 + 0.18e2 * t21214 * t6854 + 0.18e2 * t5720 * t24137 + 0.648e3 * t48839 * t24632 - 0.324e3 * t16173 * t24635 + 0.36e2 * t1101 * t83765 + 0.6e1 * t5116 * t24620 + 0.6e1 * t1101 * t83771;
25248   t83804 = t83746 + t83803;
25249   t83822 = t1191 * t6854 * t1540;
25250   t83825 = t1764 * t24135;
25251   t83830 = -0.6e1 * t1101 * t1102 * t83700 + t83804 * t405 * t428 - 0.27e2 / 0.100e3 * t6659 * t6892 + 0.3e1 / 0.10e2 * t1771 * t24370 - 0.36e2 * t5130 * t83740 - 0.36e2 * t5130 * t83743 + 0.162e3 * t17602 * t24348 - 0.648e3 * t48839 * t24701 + t24711 * t1664 / 0.10e2 - 0.45279521777777777776e0 * t17644 * t83822 + 0.22639760888888888888e1 * t17644 * t83825 + t24623 * t1641 + t83774 * t376;
25252   t83890 = -0.73e2 / 0.90e2 * t1763 * t45 * t24128 * t424 + 0.73e2 / 0.45e2 * t1763 * t24659 * t1524 + 0.146e3 / 0.45e2 * t1763 * t6900 * t6609 + 0.73e2 / 0.90e2 * t1763 * t1776 * t24128 + 0.73e2 / 0.19440e5 * t46 * t274 * t24600 * t424 - 0.146e3 / 0.135e3 * t420 * t83700 * t424 + 0.292e3 / 0.135e3 * t24669 * t1524 - 0.73e2 / 0.3240e4 * t46 * t24189 * t1751 + 0.292e3 / 0.45e2 * t24193 * t1751 + 0.292e3 / 0.45e2 * t6907 * t6609 - 0.73e2 / 0.19440e5 * t46 * t1654 * t24600 + 0.146e3 / 0.135e3 * t423 * t83700;
25253   t83896 = -0.27e2 / 0.100e3 * t406 * t5778 * t24208 - 0.18e2 * t21214 * t6874 + 0.3e1 / 0.10e2 * t6659 * t6915 + 0.171e3 / 0.1000e4 * t1646 * t24686 + 0.3e1 / 0.10e2 * t6887 * t6694 - 0.12e2 * t1101 * t1641 * t24592 - 0.12e2 * t5116 * t24704 + 0.3e1 / 0.10e2 * t24345 * t1786 - 0.27e2 / 0.100e3 * t406 * t21326 * t6914 + t1646 * t24677 / 0.10e2 + t406 * t1291 * t83890 / 0.10e2 - 0.6e1 * t78103 * t1532;
25254   t83897 = t1764 * t24170;
25255   t83907 = t1191 * t6879 * t1540;
25256   t83910 = t1764 * t24156;
25257   t83913 = t1764 * t24159;
25258   t83916 = t1764 * t24153;
25259   t83920 = t1191 * t6852 * t1540;
25260   t83923 = t1764 * t24133;
25261   t83933 = -0.10187892400000000000e2 * t21318 * t83897 - 0.90559043555555555556e0 * t66898 * t24313 + 0.45279521777777777778e1 * t66898 * t24316 - 0.20375784800000000000e2 * t76887 * t24319 + 0.40751569600000000000e1 * t21318 * t83907 - 0.61127354400000000000e2 * t21318 * t83910 - 0.20375784800000000000e2 * t21318 * t83913 + 0.12225470880000000000e3 * t64634 * t83916 - 0.90559043555555555556e0 * t17644 * t83920 + 0.45279521777777777778e1 * t17644 * t83923 + 0.22639760888888888889e1 * t5742 * t46 * t339 * t1524 * t6843 + 0.11319880444444444444e1 * t21430 * t24650;
25262   t83961 = 0.11319880444444444444e1 * t21441 * t24650 + 0.11319880444444444444e1 * t5742 * t46 * t5743 * t24128 + 0.22639760888888888889e1 * t21430 * t24693 + 0.22639760888888888889e1 * t21441 * t24693 + 0.22639760888888888889e1 * t76695 * t6868 + 0.22639760888888888889e1 * t76707 * t6868 + 0.22639760888888888889e1 * t22169 * t24342 - 0.10187892400000000000e2 * t64252 * t24656 - 0.10187892400000000000e2 * t64227 * t24656 + 0.11319880444444444444e1 * t78367 * t6639 + 0.75465869629629629628e-1 * t78420 * t6645 - 0.12e2 * t5130 * t83601;
25263   t83970 = t17612 * t24124;
25264   t83973 = t17800 * t24124;
25265   t83992 = -0.72e2 * t21386 * t24133 + 0.162e3 * t76487 * t6624 - 0.36e2 * t76923 * t6612 + 0.54e2 * t5122 * t83604 + 0.972e3 * t5122 * t83970 - 0.1944e4 * t16906 * t83973 - 0.18866467407407407407e0 * t24140 * t330 * t1765 - 0.18866467407407407407e0 * t6857 * t1586 * t1765 + 0.162e3 * t20425 * t24638 + 0.162e3 * t5122 * t83732 + 0.162e3 * t5122 * t83735 - 0.36e2 * t20419 * t24618 - 0.36e2 * t20369 * t24618;
25266   t84004 = -0.18e2 * t5720 * t24223 - 0.18e2 * t5720 * t24226 + 0.162e3 * t63724 * t6926 + 0.1080e4 * t5453 * t83598 - 0.12e2 * t5459 * t83601 + 0.54e2 * t5453 * t83604 - 0.6e1 * t78103 * t1670 - p->cam_beta * (t83635 + t83665 + t83697 + t83830 + t83896 + t83933 + t83961 + t83992) + 0.324e3 * t3817 * t48805 * t24592 - 0.36e2 * t21214 * t6932 - 0.36e2 * t5720 * t24107;
25267   t84032 = -0.36e2 * t5720 * t24111 + 0.324e3 * t16173 * t24736 + 0.162e3 * t17602 * t24235 - 0.648e3 * t48839 * t24610 - 0.648e3 * t12321 * t50588 * t24592 - 0.18e2 * t21965 * t6707 - 0.18e2 * t21965 * t6712 - 0.18e2 * t21214 * t6935 + 0.513e3 / 0.1000e4 * t12495 * t83669 - 0.6e1 * t1101 * t5466 * t24600 - 0.6e1 * t1101 * t1321 * t83700 - 0.18e2 * t76258 * t1792;
25268   t84060 = 0.3e1 / 0.10e2 * t5841 * t24208 + t83774 * t441 + t24623 * t1680 + 0.171e3 / 0.1000e4 * t50448 * t24589 - 0.12e2 * t1101 * t1680 * t24592 - 0.27e2 / 0.100e3 * t4278 * t6693 * t6914 - 0.12e2 * t5116 * t24593 - 0.27e2 / 0.100e3 * t16942 * t24584 - 0.9e1 / 0.100e3 * t4278 * t24676 * t1663 - 0.27e2 / 0.100e3 * t66454 * t6728 + 0.513e3 / 0.1000e4 * t52595 * t24116 - 0.27e2 / 0.100e3 * t4278 * t1785 * t24208;
25269   t84086 = 0.513e3 / 0.1000e4 * t12495 * t6891 * t6693 - 0.4959e4 / 0.10000e5 * t39396 * t24589 * t1663 - 0.27e2 / 0.50e2 * t17929 * t24119 - 0.1944e4 * t16236 * t83691 + 0.9720e4 * t50425 * t83694 - 0.27e2 / 0.100e3 * t17929 * t24246 + t83804 * t428 - 0.36e2 * t77140 * t6612 + 0.162e3 * t77143 * t6624 - 0.36e2 * t21078 * t24135 + 0.162e3 * t21081 * t24170 + 0.972e3 * t21081 * t24156;
25270   t84111 = 0.324e3 * t21081 * t24159 - 0.1944e4 * t63844 * t24153 - 0.7776e4 * t16236 * t83688 + 0.3e1 / 0.10e2 * t75959 * t1785 - 0.36e2 * t5459 * t83740 - 0.36e2 * t5459 * t83743 - 0.36e2 * t5459 * t83642 + 0.162e3 * t5453 * t83735 - 0.36e2 * t19833 * t24618 - 0.36e2 * t19818 * t24618 - 0.72e2 * t21078 * t24133;
25271   t84137 = 0.972e3 * t5453 * t83676 + 0.162e3 * t19836 * t24638 + 0.162e3 * t19822 * t24638 + 0.162e3 * t5453 * t83732 - 0.18866467407407407407e0 * t24140 * t332 * t340 - 0.27e2 / 0.100e3 * t65011 * t6891 - 0.20375784800000000000e2 * t17947 * t83913 + 0.12225470880000000000e3 * t52512 * t83916 - 0.45279521777777777776e0 * t5831 * t83822 + 0.22639760888888888888e1 * t5831 * t83825 - 0.10187892400000000000e2 * t17947 * t83897 - 0.90559043555555555556e0 * t5831 * t83920;
25272   t84164 = 0.45279521777777777778e1 * t5831 * t83923 - 0.61127354400000000000e2 * t17947 * t83910 + 0.40751569600000000000e1 * t17947 * t83907 - 0.90559043555555555556e0 * t21925 * t24313 + 0.45279521777777777778e1 * t21925 * t24316 - 0.20375784800000000000e2 * t66439 * t24319 + 0.11319880444444444444e1 * t78538 * t6718 + 0.22639760888888888889e1 * t21031 * t24581 + 0.22639760888888888889e1 * t5831 * t1764 * t24131 + 0.22639760888888888889e1 * t76972 * t6929 + 0.22639760888888888889e1 * t21925 * t24220 - 0.10187892400000000000e2 * t63956 * t24752;
25273   t84191 = 0.11319880444444444444e1 * t21031 * t24755 + 0.11319880444444444444e1 * t5831 * t1764 * t24137 - 0.36e2 * t1101 * t77948 * t6609 - 0.6e1 * t5116 * t24601 + t5489 * t24676 / 0.10e2 + t1342 * t83890 / 0.10e2 + t78137 * t1663 / 0.10e2 + 0.3e1 / 0.10e2 * t22207 * t6693 + 0.3e1 / 0.10e2 * t21142 * t6914 + 0.75465869629629629628e-1 * t24731 * t6645 + 0.972e3 * t5453 * t83970 - 0.1944e4 * t16236 * t83973;
25274   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25275     v4sigmatau3[11] = -0.3e1 / 0.8e1 * t1352 * t1521 * (t84004 + t84032 + t84060 + t84086 + t84111 + t84137 + t84164 + t84191);
25276 
25277   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25278     v4lapl4[0] = 0.0e0;
25279 
25280   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25281     v4lapl4[1] = 0.0e0;
25282 
25283   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25284     v4lapl4[2] = 0.0e0;
25285 
25286   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25287     v4lapl4[3] = 0.0e0;
25288 
25289   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25290     v4lapl4[4] = 0.0e0;
25291 
25292   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25293     v4lapl3tau[0] = 0.0e0;
25294 
25295   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25296     v4lapl3tau[1] = 0.0e0;
25297 
25298   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25299     v4lapl3tau[2] = 0.0e0;
25300 
25301   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25302     v4lapl3tau[3] = 0.0e0;
25303 
25304   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25305     v4lapl3tau[4] = 0.0e0;
25306 
25307   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25308     v4lapl3tau[5] = 0.0e0;
25309 
25310   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25311     v4lapl3tau[6] = 0.0e0;
25312 
25313   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25314     v4lapl3tau[7] = 0.0e0;
25315 
25316   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25317     v4lapl2tau2[0] = 0.0e0;
25318 
25319   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25320     v4lapl2tau2[1] = 0.0e0;
25321 
25322   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25323     v4lapl2tau2[2] = 0.0e0;
25324 
25325   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25326     v4lapl2tau2[3] = 0.0e0;
25327 
25328   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25329     v4lapl2tau2[4] = 0.0e0;
25330 
25331   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25332     v4lapl2tau2[5] = 0.0e0;
25333 
25334   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25335     v4lapl2tau2[6] = 0.0e0;
25336 
25337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25338     v4lapl2tau2[7] = 0.0e0;
25339 
25340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25341     v4lapl2tau2[8] = 0.0e0;
25342 
25343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25344     v4lapltau3[0] = 0.0e0;
25345 
25346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25347     v4lapltau3[1] = 0.0e0;
25348 
25349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25350     v4lapltau3[2] = 0.0e0;
25351 
25352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25353     v4lapltau3[3] = 0.0e0;
25354 
25355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25356     v4lapltau3[4] = 0.0e0;
25357 
25358   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25359     v4lapltau3[5] = 0.0e0;
25360 
25361   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25362     v4lapltau3[6] = 0.0e0;
25363 
25364   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
25365     v4lapltau3[7] = 0.0e0;
25366 
25367   t84198 = t6743 * t6743;
25368   t84204 = t6737 * t6737;
25369   t84243 = my_piecewise3(t24, 0.3e1 * t20 / t24412 / tau[0], 0);
25370   t84247 = -0.2592e4 * t50722 * t24466 + 0.9720e4 * t25874 * t25876 * t84204 + 0.1296e4 * t17102 * t24523 - 0.7776e4 * t6995 * t27355 * t84204 - 0.72e2 * t21529 * t6765 - 0.9e1 / 0.25e2 * t208 * t77603 * t1727 - 0.27e2 / 0.25e2 * t1713 * t24508 - 0.24e2 * t77283 * t1701 + 0.1080e4 * t1862 * t160 * t84204 * t26 - 0.24e2 * t5524 * t24455 - 0.6e1 * t478 * t479 * t84243;
25371   t84257 = t77190 * t1693;
25372   t84260 = t1694 * t24416;
25373   t84263 = t6808 * t6808;
25374   t84267 = t6785 * t6785;
25375   t84296 = -0.146e3 / 0.135e3 * t1705 * t45 * t24416 * t226 + 0.292e3 / 0.45e2 * t1705 * t24479 * t1693 + 0.146e3 / 0.135e3 * t1705 * t1718 * t24416 - 0.146e3 / 0.135e3 * t222 * t84243 * t226 + 0.1168e4 / 0.135e3 * t24489 * t1693 + 0.292e3 / 0.45e2 * t222 * t84198 + 0.146e3 / 0.135e3 * t225 * t84243;
25376   t84300 = 0.513e3 / 0.500e3 * t208 * t21624 * t6808 + 0.162e3 * t1862 * t1864 * t84198 - 0.36e2 * t478 * t1872 * t84198 + 0.216e3 * t4316 * t84257 - 0.48e2 * t4324 * t84260 - 0.27e2 / 0.100e3 * t208 * t2305 * t84263 - 0.4959e4 / 0.10000e5 * t208 * t26764 * t84267 + 0.3e1 / 0.5e1 * t6781 * t6809 - 0.48e2 * t5524 * t24452 + 0.2e1 / 0.5e1 * t1713 * t24497 + t208 * t708 * t84296 / 0.10e2;
25377   t84304 = t21638 * t6743;
25378   t84307 = t21645 * t6743;
25379   t84318 = t1706 * t24441;
25380   t84321 = t1706 * t24421;
25381   t84329 = 0.2e1 / 0.5e1 * t24516 * t1728 + 0.1944e4 * t4316 * t84304 - 0.3888e4 * t13333 * t84307 - 0.144e3 * t20734 * t24421 + 0.648e3 * t20737 * t24441 - 0.36e2 * t21529 * t6768 + 0.324e3 * t65272 * t6758 - 0.40751569600000000000e2 * t20762 * t84318 + 0.90559043555555555555e1 * t17282 * t84321 - 0.72e2 * t478 * t77669 * t6743 + 0.171e3 / 0.250e3 * t1713 * t24505;
25382   t84357 = t6737 * t6743;
25383   t84359 = t25 * t84198;
25384   t84362 = t26 * t84243;
25385   t84365 = (0.8e1 * t1693 * t24416 + 0.2e1 * t25 * t84243 + 0.6e1 * t84198 + 0.72e2 * t84260 + 0.108e3 * t84357 + 0.54e2 * t84359 + 0.9e1 * t84362) * t32;
25386   t84390 = -0.9720e4 * t25874 * t25875 * t84204 + 0.24e2 * t77283 * t1696 - 0.1296e4 * t17102 * t24438 + 0.72e2 * t21529 * t6746 + 0.36e2 * t21529 * t6748 + 0.48e2 * t5524 * t24419 + 0.24e2 * t5524 * t24423 + 0.2592e4 * t50722 * t24435 + 0.72e2 * t478 * t84357 + 0.6e1 * t478 * t84362 - 0.324e3 * t65272 * t6773;
25387   t84414 = -0.162e3 * t1862 * t1863 * t84198 - 0.1080e4 * t1862 * t26 * t84204 + 0.7776e4 * t27335 * t6995 * t84204 - 0.648e3 * t17102 * t24441 - 0.216e3 * t1862 * t84257 - 0.1944e4 * t1862 * t84304 + 0.144e3 * t5524 * t24421 + 0.48e2 * t478 * t84260 + 0.36e2 * t478 * t84359 + 0.3888e4 * t6995 * t84307 - t84365;
25388   t84415 = t84390 + t84414;
25389   t84419 = t46 * t123 * t24419;
25390   t84425 = -0.27e2 / 0.50e2 * t6781 * t6786 + 0.15093173925925925926e1 * t5546 * t46 * t5547 * t24416 + 0.45279521777777777777e1 * t77553 * t6762 + 0.45279521777777777777e1 * t21756 * t24476 - 0.40751569600000000000e2 * t65477 * t24472 + 0.16300627840000000000e3 * t51267 * t46 * t51268 * t24419 + 0.90559043555555555556e1 * t21756 * t24512 - 0.81503139200000000000e2 * t17242 * t46 * t51243 * t24419 + t84365 * t160 + t84415 * t207 * t230 + 0.30186347851851851852e1 * t5546 * t84419 - 0.25155289876543209876e0 * t24426 * t112 * t1707;
25391   t84437 = -0.36e2 * t478 * t2360 * t84198 - 0.2592e4 * t50722 * t24539 + 0.9720e4 * t25874 * t27392 * t84204 - 0.24e2 * t77283 * t1734 - 0.36e2 * t21529 * t6829 + 0.324e3 * t65272 * t6820 - p->cam_beta * (t84247 + t84300 + t84329 + t84425) - 0.24e2 * t5524 * t24573 + t759 * t84296 / 0.10e2 - 0.27e2 / 0.100e3 * t2394 * t84263 + 0.2e1 / 0.5e1 * t5645 * t24496;
25392   t84465 = t84365 * t244 - 0.27e2 / 0.25e2 * t17157 * t24405 + 0.513e3 / 0.500e3 * t7915 * t6785 * t6808 - 0.48e2 * t5524 * t24570 + 0.1080e4 * t1862 * t738 * t84204 + 0.162e3 * t1862 * t2352 * t84198 - 0.72e2 * t478 * t77286 * t6743 + 0.3e1 / 0.5e1 * t21553 * t6808 + 0.171e3 / 0.250e3 * t51364 * t24402 + 0.1944e4 * t4654 * t84304 - 0.144e3 * t20515 * t24421 + 0.648e3 * t20518 * t24441;
25393   t84491 = -0.3888e4 * t13254 * t84307 - 0.6e1 * t478 * t738 * t84243 - 0.9e1 / 0.25e2 * t2394 * t1727 * t24496 - 0.72e2 * t21529 * t6826 + 0.1296e4 * t17102 * t24563 - 0.7776e4 * t6995 * t27418 * t84204 - 0.27e2 / 0.50e2 * t65936 * t6785 + 0.2e1 / 0.5e1 * t77794 * t1727 - 0.4959e4 / 0.10000e5 * t27492 * t84267 + t84415 * t230 + 0.216e3 * t4654 * t84257;
25394   t84520 = -0.40751569600000000000e2 * t17337 * t84318 + 0.90559043555555555555e1 * t5635 * t84321 - 0.40751569600000000000e2 * t65918 * t24552 + 0.16300627840000000000e3 * t51482 * t1706 * t24435 + 0.15093173925925925926e1 * t5635 * t1706 * t24423 + 0.90559043555555555556e1 * t21515 * t24399 - 0.81503139200000000000e2 * t17337 * t1706 * t24438 + 0.45279521777777777777e1 * t77752 * t6823 + 0.45279521777777777777e1 * t21515 * t24555 - 0.48e2 * t4660 * t84260 - 0.25155289876543209876e0 * t24426 * t114 * t124 + 0.30186347851851851852e1 * t51412 * t84419;
25395   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25396     v4tau4[0] = -0.3e1 / 0.8e1 * t1352 * t1353 * (t84437 + t84465 + t84491 + t84520);
25397 
25398   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25399     v4tau4[1] = 0.0e0;
25400 
25401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25402     v4tau4[2] = 0.0e0;
25403 
25404   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25405     v4tau4[3] = 0.0e0;
25406 
25407   t84526 = t6843 * t6843;
25408   t84541 = my_piecewise3(t260, 0.3e1 * t256 / t24596 / tau[1], 0);
25409   t84547 = t6849 * t6849;
25410   t84560 = t6843 * t6849;
25411   t84562 = t261 * t84547;
25412   t84564 = t1752 * t24600;
25413   t84566 = t262 * t84541;
25414   t84569 = (0.8e1 * t1751 * t24600 + 0.2e1 * t261 * t84541 + 0.6e1 * t84547 + 0.108e3 * t84560 + 0.54e2 * t84562 + 0.72e2 * t84564 + 0.9e1 * t84566) * t268;
25415   t84576 = 0.9720e4 * t38188 * t38190 * t84526 - 0.72e2 * t1101 * t78300 * t6849 + 0.1080e4 * t3817 * t376 * t84526 * t262 - 0.6e1 * t1101 * t1102 * t84541 + 0.1296e4 * t17602 * t24717 - 0.36e2 * t1101 * t3827 * t84547 - 0.27e2 / 0.25e2 * t1771 * t24689 - 0.144e3 * t21386 * t24618 + t84569 * t376 - 0.24e2 * t78103 * t1759 - 0.7776e4 * t12321 * t39350 * t84526;
25416   t84596 = -0.146e3 / 0.135e3 * t1763 * t45 * t24600 * t424 + 0.292e3 / 0.45e2 * t1763 * t24659 * t1751 + 0.146e3 / 0.135e3 * t1763 * t1776 * t24600 - 0.146e3 / 0.135e3 * t420 * t84541 * t424 + 0.1168e4 / 0.135e3 * t24669 * t1751 + 0.292e3 / 0.45e2 * t420 * t84547 + 0.146e3 / 0.135e3 * t423 * t84541;
25417   t84621 = t406 * t1291 * t84596 / 0.10e2 + 0.2e1 / 0.5e1 * t1771 * t24677 + 0.3e1 / 0.5e1 * t6887 * t6915 + 0.2e1 / 0.5e1 * t24711 * t1786 - 0.27e2 / 0.50e2 * t6887 * t6892 - 0.24e2 * t5720 * t24707 + 0.324e3 * t66534 * t6864 - 0.2592e4 * t52676 * t24701 - 0.48e2 * t5720 * t24704 + 0.513e3 / 0.500e3 * t406 * t22002 * t6914 - 0.72e2 * t21965 * t6871;
25418   t84647 = -0.9720e4 * t38188 * t38189 * t84526 + 0.72e2 * t1101 * t84560 + 0.6e1 * t1101 * t84566 + 0.24e2 * t78103 * t1754 + 0.36e2 * t21965 * t6854 + 0.48e2 * t5720 * t24592 + 0.144e3 * t5720 * t24618 + 0.24e2 * t5720 * t24620 + 0.2592e4 * t52676 * t24632 - 0.324e3 * t66534 * t6879 - t84569;
25419   t84651 = t21951 * t6849;
25420   t84657 = t21944 * t6849;
25421   t84663 = t5726 * t24600;
25422   t84676 = 0.7776e4 * t12321 * t38258 * t84526 - 0.1080e4 * t262 * t3817 * t84526 - 0.162e3 * t3817 * t3818 * t84547 + 0.36e2 * t1101 * t84562 + 0.48e2 * t1101 * t84564 + 0.3888e4 * t12321 * t84651 - 0.1296e4 * t17602 * t24635 - 0.648e3 * t17602 * t24638 + 0.72e2 * t21965 * t6852 - 0.1944e4 * t3817 * t84657 - 0.216e3 * t3817 * t84663;
25423   t84677 = t84647 + t84676;
25424   t84704 = 0.162e3 * t3817 * t3819 * t84547 + t84677 * t405 * t428 - 0.3888e4 * t16906 * t84651 - 0.48e2 * t5130 * t84564 + 0.45279521777777777777e1 * t22169 * t24650 + 0.15093173925925925926e1 * t5742 * t46 * t5743 * t24600 + 0.45279521777777777777e1 * t78367 * t6868 - 0.40751569600000000000e2 * t66635 * t24656 + 0.16300627840000000000e3 * t52905 * t46 * t52906 * t24592 + 0.90559043555555555556e1 * t22169 * t24693 - 0.81503139200000000000e2 * t17857 * t46 * t52968 * t24592;
25425   t84706 = t46 * t339 * t24592;
25426   t84711 = t1764 * t24618;
25427   t84714 = t1764 * t24638;
25428   t84719 = t6914 * t6914;
25429   t84725 = t6891 * t6891;
25430   t84739 = 0.30186347851851851852e1 * t5742 * t84706 + 0.216e3 * t5122 * t84663 + 0.90559043555555555555e1 * t17644 * t84711 - 0.40751569600000000000e2 * t21318 * t84714 + 0.1944e4 * t5122 * t84657 - 0.27e2 / 0.100e3 * t406 * t4189 * t84719 + 0.171e3 / 0.250e3 * t1771 * t24686 - 0.4959e4 / 0.10000e5 * t406 * t39325 * t84725 - 0.25155289876543209876e0 * t24623 * t330 * t1765 - 0.36e2 * t21965 * t6874 + 0.648e3 * t21389 * t24638 - 0.9e1 / 0.25e2 * t406 * t78494 * t1785;
25431   t84762 = -p->cam_beta * (t84576 + t84621 + t84704 + t84739) + t84677 * t428 - 0.3888e4 * t16236 * t84651 + 0.171e3 / 0.250e3 * t52595 * t24589 - 0.4959e4 / 0.10000e5 * t39396 * t84725 + t1342 * t84596 / 0.10e2 + 0.3e1 / 0.5e1 * t22207 * t6914 + 0.2e1 / 0.5e1 * t5841 * t24676 + 0.216e3 * t5453 * t84663 - 0.9e1 / 0.25e2 * t4278 * t1785 * t24676 + t84569 * t441;
25432   t84789 = -0.27e2 / 0.100e3 * t4278 * t84719 + 0.2e1 / 0.5e1 * t78137 * t1785 - 0.27e2 / 0.25e2 * t17929 * t24584 + 0.513e3 / 0.500e3 * t12495 * t6891 * t6914 - 0.48e2 * t5720 * t24593 + 0.90559043555555555555e1 * t5831 * t84711 - 0.40751569600000000000e2 * t17947 * t84714 - 0.72e2 * t21965 * t6932 + 0.9720e4 * t38188 * t39403 * t84526 - 0.2592e4 * t52676 * t24610 + 0.324e3 * t66534 * t6926 - 0.24e2 * t78103 * t1792;
25433   t84817 = -0.36e2 * t21965 * t6935 + 0.90559043555555555556e1 * t21925 * t24581 - 0.81503139200000000000e2 * t17947 * t1764 * t24635 - 0.27e2 / 0.50e2 * t66454 * t6891 + 0.15093173925925925926e1 * t5831 * t1764 * t24620 + 0.45279521777777777777e1 * t78538 * t6929 + 0.45279521777777777777e1 * t21925 * t24755 - 0.40751569600000000000e2 * t66439 * t24752 + 0.16300627840000000000e3 * t52512 * t1764 * t24632 - 0.24e2 * t5720 * t24601 - 0.6e1 * t1101 * t1321 * t84541;
25434   t84849 = -0.72e2 * t1101 * t77948 * t6849 + 0.1080e4 * t3817 * t441 * t84526 * t262 - 0.7776e4 * t12321 * t39429 * t84526 + 0.1296e4 * t17602 * t24736 + 0.162e3 * t3817 * t4236 * t84547 - 0.36e2 * t1101 * t4244 * t84547 - 0.144e3 * t21078 * t24618 + 0.30186347851851851852e1 * t53104 * t84706 - 0.25155289876543209876e0 * t24623 * t332 * t340 + 0.1944e4 * t5453 * t84657 + 0.648e3 * t21081 * t24638 - 0.48e2 * t5459 * t84564;
25435   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
25436     v4tau4[4] = -0.3e1 / 0.8e1 * t1352 * t1521 * (t84762 + t84789 + t84817 + t84849);
25437 
25438 #ifndef XC_DONT_COMPILE_MXC
25439 
25440   if(order < 5) return;
25441 
25442 
25443 #endif
25444 
25445 #endif
25446 
25447 #endif
25448 
25449 #endif
25450 
25451 #endif
25452 
25453 
25454 }
25455 
25456