1 /*
2   This file was generated automatically with ./scripts/maple2c.pl.
3   Do not edit this file directly as it can be overwritten!!
4 
5   This Source Code Form is subject to the terms of the Mozilla Public
6   License, v. 2.0. If a copy of the MPL was not distributed with this
7   file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 
9   Maple version     : Maple 2016 (X86 64 LINUX)
10   Maple source      : ./maple/mgga_exc/mgga_x_2d_prhg07.mpl
11   Type of functional: mgga_exc
12 */
13 
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16 
17 
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21 
22 #ifndef XC_DONT_COMPILE_EXC
23   double t2, t3, t4, t5, t6, t11, t12, t16;
24   double t17, t18, t19, t20, t22, t23, t24, t25;
25   double t27;
26 
27 #ifndef XC_DONT_COMPILE_VXC
28   double t30, t31, t32, t33, t34, t38, t39, t44;
29   double t45, t46, t47, t48, t49, t52, t54, t55;
30   double t56, t59, t61, t62, t63, t67, t68, t69;
31 
32 #ifndef XC_DONT_COMPILE_FXC
33   double t72, t77, t80, t82, t83, t84, t85, t86;
34   double t87, t88, t89, t90, t91, t92, t93, t101;
35   double t106, t107, t108, t111, t112, t115, t116, t117;
36   double t118, t121, t122, t127, t128, t129, t132, t134;
37   double t135, t136, t139, t140, t141, t142, t145, t146;
38   double t147, t150, t151, t156, t157, t160, t161, t162;
39   double t165, t166, t169, t170, t173, t178, t179, t183;
40   double t184, t185, t189, t192, t193, t196, t199, t200;
41   double t201, t204, t205, t206, t208, t209, t210, t213;
42   double t216, t219, t222, t223, t226, t227, t230, t231;
43   double t234, t237, t238, t241, t244, t247, t248, t249;
44   double t252, t253, t256, t259, t262, t266, t269, t270;
45   double t273, t274, t277, t278, t279, t282, t283, t286;
46   double t289;
47 
48 #ifndef XC_DONT_COMPILE_KXC
49   double t295, t298, t299, t301, t302, t303, t306, t307;
50   double t310, t311, t312, t313, t314, t317, t318, t320;
51   double t321, t322, t327, t330, t333, t334, t339, t340;
52   double t341, t347, t350, t353, t357, t363, t367, t368;
53   double t370, t371, t372, t375, t379, t380, t381, t389;
54   double t394, t395, t396, t399, t403, t408, t410, t411;
55   double t412, t415, t416, t425, t428, t429, t432, t435;
56   double t436, t439, t440, t443, t446, t447, t450, t451;
57   double t452, t453, t456, t457, t460, t461, t464, t465;
58   double t471, t476, t477, t478, t481, t482, t483, t486;
59   double t487, t488, t491, t492, t495, t501, t502, t503;
60   double t508, t511, t512, t515, t518, t519, t522, t527;
61   double t528, t531, t532, t535, t536, t537, t543, t546;
62   double t549, t550, t553, t556, t561, t562, t565, t570;
63   double t575, t581, t582, t583, t586, t589, t598, t601;
64   double t602, t605, t606, t609, t610, t613, t614, t615;
65   double t621, t624, t627, t628, t631, t638, t639, t642;
66   double t645, t646, t649, t653, t656, t657, t658, t659;
67   double t660, t661, t662, t665, t666, t667, t670, t671;
68   double t674, t675, t678, t679, t680, t681, t682, t687;
69   double t688, t695, t696, t699, t700, t701, t706, t709;
70   double t710, t713, t714, t715, t716, t717, t718, t719;
71   double t720, t721, t724, t727, t732, t741, t744, t749;
72   double t752, t756, t759, t760, t761, t764, t767, t770;
73   double t771, t772, t773, t774, t775, t778, t779, t780;
74   double t783, t786, t787, t790, t791, t794, t797, t798;
75   double t799, t800, t803, t806, t809, t820, t823, t827;
76   double t831, t834, t837, t840, t843, t844, t847, t848;
77   double t851, t852, t853, t856, t867, t872, t873, t874;
78   double t877, t880, t881, t884, t887, t892, t895, t900;
79   double t901, t904, t909, t910, t913, t918, t921, t926;
80   double t927, t930, t933, t938, t941, t953, t957, t960;
81   double t961, t964, t965, t970, t973, t976, t981, t986;
82   double t989, t991, t994, t997, t998, t1001, t1004, t1012;
83   double t1015, t1020, t1023, t1026, t1031, t1034, t1040, t1043;
84   double t1044, t1045, t1046, t1047, t1048, t1049, t1050, t1053;
85   double t1054, t1057, t1058, t1061, t1064, t1067, t1068, t1069;
86   double t1070, t1072, t1074, t1077, t1078, t1079, t1082, t1087;
87   double t1090, t1091, t1092, t1093, t1096, t1097, t1098, t1099;
88   double t1100, t1101, t1102, t1103, t1104, t1105, t1106, t1107;
89   double t1108, t1109, t1110, t1111, t1112, t1115, t1118, t1119;
90   double t1122, t1123, t1126, t1127, t1132, t1133, t1136, t1139;
91   double t1142, t1145, t1146, t1147, t1148, t1149, t1151, t1152;
92   double t1153, t1154, t1155, t1156, t1157, t1158, t1159, t1162;
93   double t1163, t1164, t1165, t1168, t1171, t1172, t1175, t1178;
94   double t1183, t1186, t1189, t1192, t1193, t1196, t1199, t1202;
95   double t1203, t1206, t1207, t1208, t1209, t1210, t1213, t1216;
96   double t1219, t1222, t1223, t1226, t1229, t1230, t1231, t1234;
97   double t1235, t1238, t1241, t1242, t1245, t1246, t1249, t1252;
98   double t1255, t1258, t1261, t1264, t1265, t1268, t1271, t1274;
99   double t1277, t1278, t1279, t1280, t1282, t1287, t1290, t1293;
100   double t1298, t1299, t1300, t1303, t1304, t1307, t1310, t1313;
101   double t1314, t1315, t1316, t1319, t1320, t1323, t1326, t1331;
102   double t1333, t1335, t1338, t1339, t1340, t1343, t1346, t1349;
103   double t1352, t1353, t1356, t1357, t1360, t1365, t1366, t1369;
104   double t1372, t1376, t1379, t1382, t1385, t1389, t1394, t1397;
105   double t1401, t1406, t1407, t1408, t1411, t1412, t1415, t1418;
106   double t1421, t1422, t1423, t1424, t1425, t1430, t1431, t1434;
107   double t1437, t1440, t1442, t1444, t1447, t1448, t1449;
108 
109 #ifndef XC_DONT_COMPILE_LXC
110   double t1452, t1453, t1458, t1461, t1462, t1463, t1464, t1465;
111   double t1474, t1475, t1476, t1481, t1487, t1491, t1492, t1493;
112   double t1502, t1509, t1516, t1531, t1532, t1536, t1537, t1539;
113   double t1540, t1559, t1568, t1591, t1597, t1601, t1607, t1610;
114   double t1613, t1618, t1622, t1629, t1636, t1643, t1650, t1652;
115   double t1657, t1661, t1666, t1671, t1693, t1697, t1708, t1712;
116   double t1715, t1716, t1719, t1720, t1721, t1724, t1725, t1726;
117   double t1730, t1733, t1736, t1739, t1745, t1746, t1755, t1770;
118   double t1772, t1776, t1777, t1781, t1786, t1787, t1788, t1798;
119   double t1808, t1816, t1819, t1824, t1828, t1837, t1838, t1841;
120   double t1847, t1849, t1856, t1866, t1867, t1872, t1898, t1902;
121   double t1906, t1934, t1941, t1945, t1960, t1962, t1963, t1968;
122   double t1973, t1991, t1996, t2002, t2006, t2016, t2017, t2021;
123   double t2031, t2053, t2057, t2058, t2063, t2064, t2067, t2077;
124   double t2100, t2107, t2114, t2115, t2132, t2136, t2179, t2187;
125   double t2188, t2191, t2198, t2205, t2206, t2209, t2210, t2213;
126   double t2217, t2224, t2228, t2233, t2237, t2247, t2285, t2309;
127   double t2316, t2339, t2343, t2346, t2356, t2370, t2390, t2397;
128   double t2399, t2400, t2401, t2402, t2403, t2404, t2407, t2411;
129   double t2412, t2418, t2421, t2422, t2423, t2426, t2431, t2433;
130   double t2434, t2438, t2439, t2442, t2445, t2451, t2452, t2455;
131   double t2460, t2463, t2467, t2472, t2482, t2492, t2495, t2496;
132   double t2499, t2510, t2511, t2512, t2514, t2521, t2526, t2530;
133   double t2534, t2539, t2540, t2541, t2554, t2556, t2559, t2565;
134   double t2577, t2579, t2580, t2584, t2593, t2595, t2610, t2611;
135   double t2614, t2616, t2619, t2625, t2631, t2632, t2638, t2643;
136   double t2658, t2661, t2662, t2667, t2668, t2669, t2672, t2675;
137   double t2679, t2682, t2685, t2686, t2687, t2688, t2689, t2692;
138   double t2695, t2698, t2701, t2704, t2707, t2710, t2720, t2725;
139   double t2728, t2731, t2735, t2739, t2740, t2746, t2749, t2756;
140   double t2765, t2772, t2779, t2787, t2791, t2792, t2803, t2812;
141   double t2819, t2840, t2877, t2896, t2897, t2900, t2901, t2902;
142   double t2905, t2918, t2921, t2932, t2937, t2950, t2953, t2960;
143   double t2961, t2968, t2969, t2970, t2979, t2986, t3012, t3015;
144   double t3044, t3085, t3106, t3109, t3110, t3115, t3117, t3121;
145   double t3124, t3129, t3132, t3135, t3139, t3142, t3155, t3158;
146   double t3167, t3183, t3187, t3205, t3219, t3239, t3252, t3256;
147   double t3266, t3268, t3271, t3272, t3281, t3296, t3317, t3335;
148   double t3351, t3372, t3376, t3387, t3416, t3446, t3486, t3508;
149   double t3521, t3526, t3533, t3539, t3559, t3561, t3573, t3590;
150   double t3593, t3609, t3621, t3644, t3654, t3655, t3670, t3674;
151   double t3675, t3684, t3699, t3703, t3704, t3706, t3707, t3708;
152   double t3709, t3711, t3713, t3716, t3718, t3720, t3722, t3724;
153   double t3726, t3728, t3732, t3736, t3737, t3738, t3746, t3750;
154   double t3758, t3761, t3762, t3770, t3779, t3786, t3788, t3790;
155   double t3792, t3794, t3796, t3799, t3804, t3809, t3818, t3832;
156   double t3836, t3840, t3848, t3853, t3877, t3893, t3894, t3897;
157   double t3898, t3899, t3905, t3908, t3911, t3926, t3928, t3931;
158   double t3933, t3934, t3935, t3936, t3939, t3942, t3944, t3947;
159   double t3948, t3949, t3950, t3951, t3952, t3953, t3954, t3955;
160   double t3956, t3957, t3958, t3959, t3960, t3961, t3962, t3963;
161   double t3964, t3967, t3971, t3975, t3979, t3980, t3983, t3986;
162   double t3989, t3992, t3995, t3997, t3998, t3999, t4000, t4004;
163   double t4005, t4006, t4012, t4016, t4019, t4022, t4025, t4032;
164   double t4033, t4034, t4035, t4036, t4037, t4038, t4039, t4042;
165   double t4045, t4048, t4051, t4054, t4055, t4056, t4057, t4058;
166   double t4059, t4060, t4061, t4062, t4067, t4068, t4087, t4088;
167   double t4089, t4090, t4091, t4092, t4093, t4098, t4099, t4101;
168   double t4102, t4103, t4104, t4115, t4123, t4139, t4140, t4142;
169   double t4143, t4145, t4146, t4151, t4152, t4153, t4154, t4155;
170   double t4156, t4157, t4158, t4159, t4160, t4161, t4164, t4165;
171   double t4170, t4171, t4172, t4173, t4174, t4175, t4176, t4177;
172   double t4178, t4179, t4180, t4181, t4182, t4183, t4184, t4185;
173   double t4186, t4187, t4188, t4193, t4194, t4197, t4200, t4209;
174   double t4210, t4211, t4213, t4214, t4217, t4220, t4235, t4236;
175   double t4239, t4242, t4246, t4257, t4265, t4266, t4268, t4269;
176   double t4271, t4272, t4275, t4276, t4277, t4278, t4279, t4280;
177   double t4283, t4284, t4289, t4290, t4297, t4312, t4313, t4315;
178   double t4316, t4323, t4345, t4346, t4350, t4351, t4354, t4357;
179   double t4360, t4361, t4365, t4368, t4371, t4372, t4375, t4378;
180   double t4383, t4386, t4389, t4392, t4393, t4395, t4398, t4401;
181   double t4402, t4403, t4406, t4409, t4412, t4414, t4417, t4431;
182   double t4432, t4433, t4434, t4435, t4436, t4437, t4438, t4439;
183   double t4440, t4441, t4442, t4443, t4444, t4445, t4446, t4447;
184   double t4448, t4453, t4472, t4483, t4512, t4513, t4514, t4516;
185   double t4517, t4518, t4519, t4520, t4521, t4522, t4523, t4524;
186   double t4525, t4526, t4527, t4528, t4529, t4530, t4531, t4532;
187   double t4537, t4559, t4562, t4569, t4570, t4593, t4602, t4618;
188   double t4638, t4639, t4642, t4643, t4660, t4673, t4680, t4682;
189   double t4696, t4716, t4727, t4731, t4736, t4756, t4757, t4768;
190   double t4784, t4785, t4786, t4787, t4788, t4789, t4790, t4791;
191   double t4792, t4800, t4811, t4830, t4856, t4857, t4858, t4860;
192   double t4861, t4862, t4863, t4864, t4865, t4866, t4867, t4872;
193   double t4884, t4888, t4892, t4899, t4903, t4910, t4919, t4933;
194   double t4941, t4948, t4957, t4981, t4988, t5011, t5014, t5017;
195   double t5020, t5021, t5045, t5047, t5056, t5070, t5074, t5076;
196   double t5096, t5112, t5130, t5141, t5142, t5148, t5154, t5176;
197   double t5205, t5207, t5208, t5227, t5238, t5250, t5251, t5254;
198   double t5262, t5270, t5279, t5283, t5289, t5316, t5334, t5347;
199   double t5349, t5354, t5366, t5371, t5374, t5378, t5381, t5395;
200   double t5408, t5416, t5427, t5429, t5465, t5487, t5490, t5493;
201   double t5497, t5521, t5540, t5542, t5544, t5547, t5549, t5550;
202   double t5552, t5554, t5556, t5559, t5562, t5565, t5567, t5569;
203   double t5571, t5577, t5578, t5582, t5583, t5586, t5587, t5590;
204   double t5593, t5594, t5600, t5601, t5604, t5607, t5608, t5618;
205   double t5629, t5642, t5643, t5658, t5659, t5666, t5672, t5673;
206   double t5680, t5682, t5697, t5698, t5699, t5700, t5701, t5702;
207   double t5703, t5704, t5705, t5706, t5707, t5708, t5709, t5710;
208   double t5711, t5712, t5713, t5714, t5715, t5716, t5717, t5718;
209   double t5719, t5720, t5721, t5725, t5732, t5733, t5736, t5748;
210   double t5757, t5758, t5770, t5772, t5773, t5783, t5784, t5785;
211   double t5786, t5787, t5788, t5789, t5790, t5791, t5792, t5793;
212   double t5794, t5796, t5797, t5798, t5799, t5800, t5801, t5802;
213   double t5803, t5804, t5805, t5806, t5807, t5808, t5809, t5810;
214   double t5811, t5812, t5813, t5814, t5824, t5834, t5840, t5844;
215   double t5859, t5860, t5861, t5874, t5875, t5885, t5895, t5896;
216   double t5899, t5903, t5904, t5907, t5908, t5922, t5930, t5931;
217   double t5932, t5936, t5937, t5939, t5940, t5942, t5943, t5944;
218   double t5945, t5948, t5949, t5950, t5953, t5954, t5961, t5962;
219   double t5964, t5965, t5966, t5973, t5974, t5975, t5976, t5977;
220   double t5978, t5979, t5980, t5981, t5982, t5983, t5986, t6007;
221   double t6009, t6040, t6046, t6049, t6051, t6053, t6058, t6061;
222   double t6063, t6065, t6066, t6067, t6068, t6069, t6070, t6071;
223   double t6072, t6073, t6075, t6076, t6077, t6078, t6079, t6080;
224   double t6081, t6082, t6085, t6086, t6096, t6112, t6116, t6124;
225   double t6127, t6134, t6135, t6141, t6142, t6147, t6148, t6149;
226   double t6153, t6154, t6156, t6157, t6158, t6160, t6161, t6163;
227   double t6164, t6171, t6172, t6174, t6175, t6179, t6182, t6184;
228   double t6188, t6197, t6198, t6206, t6214, t6219, t6225, t6232;
229   double t6236, t6244, t6245, t6246, t6247, t6248, t6249, t6250;
230   double t6251, t6252, t6254, t6258, t6270, t6273, t6276, t6279;
231   double t6291, t6293, t6300, t6353, t6354, t6355, t6356, t6357;
232   double t6358, t6359, t6360, t6361, t6371, t6381, t6383, t6384;
233   double t6386, t6400, t6411, t6432, t6437, t6456, t6457, t6461;
234   double t6470, t6473, t6474, t6477, t6495, t6496, t6501, t6513;
235   double t6520, t6521, t6522, t6523, t6524, t6525, t6526, t6527;
236   double t6528, t6530, t6559, t6570, t6586, t6587, t6591, t6592;
237   double t6595, t6602, t6606, t6614, t6619, t6639, t6652, t6659;
238   double t6663, t6670, t6672, t6682, t6683, t6684, t6685, t6686;
239   double t6687, t6688, t6689, t6690, t6691, t6692, t6698, t6702;
240   double t6720, t6729, t6741, t6753, t6754, t6764, t6773, t6778;
241   double t6782, t6783, t6787, t6790, t6824, t6826, t6829, t6831;
242   double t6842, t6854, t6861, t6879, t6883, t6889, t6906, t6909;
243   double t6912, t6924, t6935, t6951, t6952, t6956, t6963, t6964;
244   double t6967, t6968, t6980, t6993, t7004, t7011, t7016, t7027;
245   double t7047;
246 #endif
247 
248 #endif
249 
250 #endif
251 
252 #endif
253 
254 #endif
255 
256 
257 
258   t2 = M_SQRT2;
259   t3 = M_PI * t2;
260   t4 = sqrt(rho[0]);
261   t5 = rho[0] * rho[0];
262   t6 = 0.1e1 / t5;
263   t11 = t5 * rho[0];
264   t12 = 0.1e1 / t11;
265   t16 = 0.1e1 / M_PI;
266   t17 = (lapl[0] * t6 / 0.2e1 - 0.2e1 * tau[0] * t6 + sigma[0] * t12 / 0.4e1) * t16;
267   t18 = -0.9999999999e0 < t17;
268   t19 = my_piecewise3(t18, t17, -0.9999999999e0);
269   t20 = exp(-0.1e1);
270   t22 = LambertW(t19 * t20);
271   t23 = t22 + 0.1e1;
272   t24 = t23 / 0.2e1;
273   t25 = xc_bessel_I0(t24);
274   t27 = t3 * t4 * t25;
275   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
276     zk[0] = -t27 / 0.4e1;
277 
278 #ifndef XC_DONT_COMPILE_VXC
279 
280   if(order < 1) return;
281 
282 
283   t30 = t4 * rho[0];
284   t31 = t30 * M_PI;
285   t32 = xc_bessel_I1(t24);
286   t33 = t2 * t32;
287   t34 = t31 * t33;
288   t38 = t5 * t5;
289   t39 = 0.1e1 / t38;
290   t44 = my_piecewise3(t18, (-lapl[0] * t12 + 0.4e1 * tau[0] * t12 - 0.3e1 / 0.4e1 * sigma[0] * t39) * t16, 0);
291   t45 = t44 * t22;
292   t46 = 0.1e1 / t23;
293   t47 = 0.1e1 / t19;
294   t48 = t46 * t47;
295   t49 = t45 * t48;
296   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
297     vrho[0] = -0.3e1 / 0.8e1 * t27 - t34 * t49 / 0.8e1;
298 
299   t52 = t12 * t16;
300   t54 = my_piecewise3(t18, t52 / 0.4e1, 0);
301   t55 = t54 * t22;
302   t56 = t55 * t48;
303   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
304     vsigma[0] = -t34 * t56 / 0.8e1;
305 
306   t59 = t6 * t16;
307   t61 = my_piecewise3(t18, t59 / 0.2e1, 0);
308   t62 = t61 * t22;
309   t63 = t62 * t48;
310   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
311     vlapl[0] = -t34 * t63 / 0.8e1;
312 
313   t67 = my_piecewise3(t18, -0.2e1 * t59, 0);
314   t68 = t67 * t22;
315   t69 = t68 * t48;
316   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
317     vtau[0] = -t34 * t69 / 0.8e1;
318 
319 #ifndef XC_DONT_COMPILE_FXC
320 
321   if(order < 2) return;
322 
323 
324   t72 = 0.1e1 / t4;
325   t77 = t3 * t4 * t32;
326   t80 = 0.1e1 / t24;
327   t82 = -t80 * t32 + t25;
328   t83 = t2 * t82;
329   t84 = t31 * t83;
330   t85 = t44 * t44;
331   t86 = t22 * t22;
332   t87 = t85 * t86;
333   t88 = t23 * t23;
334   t89 = 0.1e1 / t88;
335   t90 = t19 * t19;
336   t91 = 0.1e1 / t90;
337   t92 = t89 * t91;
338   t93 = t87 * t92;
339   t101 = 0.1e1 / t38 / rho[0];
340   t106 = my_piecewise3(t18, (0.3e1 * lapl[0] * t39 + 0.3e1 * sigma[0] * t101 - 0.12e2 * tau[0] * t39) * t16, 0);
341   t107 = t106 * t22;
342   t108 = t107 * t48;
343   t111 = t85 * t22;
344   t112 = t111 * t92;
345   t115 = t88 * t23;
346   t116 = 0.1e1 / t115;
347   t117 = t116 * t91;
348   t118 = t87 * t117;
349   t121 = t46 * t91;
350   t122 = t111 * t121;
351   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
352     v2rho2[0] = -0.3e1 / 0.16e2 * t3 * t72 * t25 - 0.3e1 / 0.8e1 * t77 * t49 - t84 * t93 / 0.16e2 - t34 * t108 / 0.8e1 - t34 * t112 / 0.8e1 + t34 * t118 / 0.8e1 + t34 * t122 / 0.8e1;
353 
354   t127 = t44 * t86;
355   t128 = t92 * t54;
356   t129 = t127 * t128;
357   t132 = t39 * t16;
358   t134 = my_piecewise3(t18, -0.3e1 / 0.4e1 * t132, 0);
359   t135 = t134 * t22;
360   t136 = t135 * t48;
361   t139 = t54 * t44;
362   t140 = t22 * t89;
363   t141 = t140 * t91;
364   t142 = t139 * t141;
365   t145 = t54 * t86;
366   t146 = t117 * t44;
367   t147 = t145 * t146;
368   t150 = t121 * t44;
369   t151 = t55 * t150;
370   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
371     v2rhosigma[0] = -0.3e1 / 0.16e2 * t77 * t56 - t84 * t129 / 0.16e2 - t34 * t136 / 0.8e1 - t34 * t142 / 0.8e1 + t34 * t147 / 0.8e1 + t34 * t151 / 0.8e1;
372 
373   t156 = t92 * t61;
374   t157 = t127 * t156;
375   t160 = my_piecewise3(t18, -t52, 0);
376   t161 = t160 * t22;
377   t162 = t161 * t48;
378   t165 = t61 * t44;
379   t166 = t165 * t141;
380   t169 = t61 * t86;
381   t170 = t169 * t146;
382   t173 = t62 * t150;
383   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
384     v2rholapl[0] = -0.3e1 / 0.16e2 * t77 * t63 - t84 * t157 / 0.16e2 - t34 * t162 / 0.8e1 - t34 * t166 / 0.8e1 + t34 * t170 / 0.8e1 + t34 * t173 / 0.8e1;
385 
386   t178 = t92 * t67;
387   t179 = t127 * t178;
388   t183 = my_piecewise3(t18, 0.4e1 * t52, 0);
389   t184 = t183 * t22;
390   t185 = t184 * t48;
391   t189 = t67 * t44 * t141;
392   t192 = t67 * t86;
393   t193 = t192 * t146;
394   t196 = t68 * t150;
395   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
396     v2rhotau[0] = -0.3e1 / 0.16e2 * t77 * t69 - t84 * t179 / 0.16e2 - t34 * t185 / 0.8e1 - t34 * t189 / 0.8e1 + t34 * t193 / 0.8e1 + t34 * t196 / 0.8e1;
397 
398   t199 = t54 * t54;
399   t200 = t199 * t86;
400   t201 = t200 * t92;
401   t204 = my_piecewise3(t18, 0, 0);
402   t205 = t204 * t22;
403   t206 = t205 * t48;
404   t208 = t34 * t206 / 0.8e1;
405   t209 = t199 * t22;
406   t210 = t209 * t92;
407   t213 = t200 * t117;
408   t216 = t209 * t121;
409   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
410     v2sigma2[0] = -t84 * t201 / 0.16e2 - t208 - t34 * t210 / 0.8e1 + t34 * t213 / 0.8e1 + t34 * t216 / 0.8e1;
411 
412   t219 = t145 * t156;
413   t222 = t61 * t54;
414   t223 = t222 * t141;
415   t226 = t117 * t54;
416   t227 = t169 * t226;
417   t230 = t121 * t54;
418   t231 = t62 * t230;
419   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
420     v2sigmalapl[0] = -t84 * t219 / 0.16e2 - t208 - t34 * t223 / 0.8e1 + t34 * t227 / 0.8e1 + t34 * t231 / 0.8e1;
421 
422   t234 = t145 * t178;
423   t237 = t67 * t54;
424   t238 = t237 * t141;
425   t241 = t192 * t226;
426   t244 = t68 * t230;
427   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
428     v2sigmatau[0] = -t84 * t234 / 0.16e2 - t208 - t34 * t238 / 0.8e1 + t34 * t241 / 0.8e1 + t34 * t244 / 0.8e1;
429 
430   t247 = t61 * t61;
431   t248 = t247 * t86;
432   t249 = t248 * t92;
433   t252 = t247 * t22;
434   t253 = t252 * t92;
435   t256 = t248 * t117;
436   t259 = t252 * t121;
437   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
438     v2lapl2[0] = -t84 * t249 / 0.16e2 - t208 - t34 * t253 / 0.8e1 + t34 * t256 / 0.8e1 + t34 * t259 / 0.8e1;
439 
440   t262 = t169 * t178;
441   t266 = t67 * t61 * t141;
442   t269 = t117 * t61;
443   t270 = t192 * t269;
444   t273 = t121 * t61;
445   t274 = t68 * t273;
446   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
447     v2lapltau[0] = -t84 * t262 / 0.16e2 - t208 - t34 * t266 / 0.8e1 + t34 * t270 / 0.8e1 + t34 * t274 / 0.8e1;
448 
449   t277 = t67 * t67;
450   t278 = t277 * t86;
451   t279 = t278 * t92;
452   t282 = t277 * t22;
453   t283 = t282 * t92;
454   t286 = t278 * t117;
455   t289 = t282 * t121;
456   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
457     v2tau2[0] = -t84 * t279 / 0.16e2 - t208 - t34 * t283 / 0.8e1 + t34 * t286 / 0.8e1 + t34 * t289 / 0.8e1;
458 
459 #ifndef XC_DONT_COMPILE_KXC
460 
461   if(order < 3) return;
462 
463 
464   t295 = t106 * t44 * t141;
465   t298 = t85 * t44;
466   t299 = t298 * t22;
467   t301 = 0.1e1 / t90 / t19;
468   t302 = t116 * t301;
469   t303 = t299 * t302;
470   t306 = t106 * t86;
471   t307 = t306 * t146;
472   t310 = t298 * t86;
473   t311 = t88 * t88;
474   t312 = 0.1e1 / t311;
475   t313 = t312 * t301;
476   t314 = t310 * t313;
477   t317 = t86 * t22;
478   t318 = t298 * t317;
479   t320 = 0.1e1 / t311 / t23;
480   t321 = t320 * t301;
481   t322 = t318 * t321;
482   t327 = t310 * t302;
483   t330 = t318 * t313;
484   t333 = t89 * t301;
485   t334 = t299 * t333;
486   t339 = -0.9e1 / 0.16e2 * t77 * t112 - 0.3e1 / 0.8e1 * t34 * t295 - t34 * t303 / 0.8e1 + 0.3e1 / 0.8e1 * t34 * t307 + t34 * t314 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t322 + 0.9e1 / 0.16e2 * t77 * t118 - 0.3e1 / 0.16e2 * t84 * t327 + 0.3e1 / 0.16e2 * t84 * t330 + 0.3e1 / 0.8e1 * t34 * t334 - 0.3e1 / 0.8e1 * t34 * t327;
487   t340 = t46 * t301;
488   t341 = t299 * t340;
489   t347 = t127 * t92 * t106;
490   t350 = t310 * t333;
491   t353 = t107 * t150;
492   t357 = t3 * t72 * t32;
493   t363 = t3 * t4 * t82;
494   t367 = t22 * t46;
495   t368 = t367 * t47;
496   t370 = t24 * t24;
497   t371 = 0.1e1 / t370;
498   t372 = t371 * t32;
499   t375 = t80 * t82;
500   t379 = t32 * t44 * t368 / 0.2e1 + t372 * t44 * t368 / 0.2e1 - t375 * t44 * t368 / 0.2e1;
501   t380 = t2 * t379;
502   t381 = t31 * t380;
503   t389 = 0.1e1 / t38 / t5;
504   t394 = my_piecewise3(t18, (-0.12e2 * lapl[0] * t101 + 0.48e2 * tau[0] * t101 - 0.15e2 * sigma[0] * t389) * t16, 0);
505   t395 = t394 * t22;
506   t396 = t395 * t48;
507   t399 = 0.1e1 / t30;
508   t403 = -t34 * t341 / 0.4e1 + 0.9e1 / 0.16e2 * t77 * t122 - 0.3e1 / 0.16e2 * t84 * t347 + 0.3e1 / 0.16e2 * t84 * t350 + 0.3e1 / 0.8e1 * t34 * t353 - 0.9e1 / 0.32e2 * t357 * t49 - 0.9e1 / 0.16e2 * t77 * t108 - 0.9e1 / 0.32e2 * t363 * t93 - t381 * t93 / 0.16e2 - t34 * t396 / 0.8e1 + 0.3e1 / 0.32e2 * t3 * t399 * t25;
509   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
510     v3rho3[0] = t339 + t403;
511 
512   t408 = t101 * t16;
513   t410 = my_piecewise3(t18, 0.3e1 * t408, 0);
514   t411 = t410 * t22;
515   t412 = t411 * t48;
516   t415 = t121 * t106;
517   t416 = t55 * t415;
518   t425 = t306 * t128;
519   t428 = t92 * t134;
520   t429 = t127 * t428;
521   t432 = t135 * t150;
522   t435 = t54 * t106;
523   t436 = t435 * t141;
524   t439 = t340 * t85;
525   t440 = t55 * t439;
526   t443 = -0.3e1 / 0.32e2 * t357 * t56 - 0.3e1 / 0.8e1 * t77 * t136 - t34 * t412 / 0.8e1 + t34 * t416 / 0.8e1 + 0.3e1 / 0.8e1 * t77 * t151 - 0.3e1 / 0.16e2 * t363 * t129 - t381 * t129 / 0.16e2 - t84 * t425 / 0.16e2 - t84 * t429 / 0.8e1 + t34 * t432 / 0.4e1 - t34 * t436 / 0.8e1 - t34 * t440 / 0.4e1;
527   t446 = t134 * t86;
528   t447 = t446 * t146;
529   t450 = t54 * t85;
530   t451 = t22 * t116;
531   t452 = t451 * t301;
532   t453 = t450 * t452;
533   t456 = t140 * t301;
534   t457 = t450 * t456;
535   t460 = t302 * t85;
536   t461 = t145 * t460;
537   t464 = t333 * t54;
538   t465 = t87 * t464;
539   t471 = t134 * t44 * t141;
540   t476 = t85 * t317;
541   t477 = t313 * t54;
542   t478 = t476 * t477;
543   t481 = t86 * t312;
544   t482 = t481 * t301;
545   t483 = t450 * t482;
546   t486 = t54 * t317;
547   t487 = t321 * t85;
548   t488 = t486 * t487;
549   t491 = t117 * t106;
550   t492 = t145 * t491;
551   t495 = 0.3e1 / 0.8e1 * t77 * t147 + t34 * t447 / 0.4e1 - t34 * t453 / 0.8e1 + 0.3e1 / 0.8e1 * t34 * t457 - 0.3e1 / 0.8e1 * t34 * t461 + 0.3e1 / 0.16e2 * t84 * t465 - 0.3e1 / 0.8e1 * t77 * t142 - t34 * t471 / 0.4e1 - 0.3e1 / 0.16e2 * t84 * t461 + 0.3e1 / 0.16e2 * t84 * t478 + t34 * t483 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t488 + t34 * t492 / 0.8e1;
552   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
553     v3rho2sigma[0] = t443 + t495;
554 
555   t501 = my_piecewise3(t18, 0.3e1 * t132, 0);
556   t502 = t501 * t22;
557   t503 = t502 * t48;
558   t508 = t306 * t156;
559   t511 = t92 * t160;
560   t512 = t127 * t511;
561   t515 = t161 * t150;
562   t518 = t61 * t106;
563   t519 = t518 * t141;
564   t522 = t169 * t491;
565   t527 = t313 * t61;
566   t528 = t476 * t527;
567   t531 = t61 * t85;
568   t532 = t531 * t482;
569   t535 = -0.3e1 / 0.32e2 * t357 * t63 - 0.3e1 / 0.8e1 * t77 * t162 - t34 * t503 / 0.8e1 - t381 * t157 / 0.16e2 - t84 * t508 / 0.16e2 - t84 * t512 / 0.8e1 + t34 * t515 / 0.4e1 - t34 * t519 / 0.8e1 + t34 * t522 / 0.8e1 + 0.3e1 / 0.8e1 * t77 * t173 + 0.3e1 / 0.16e2 * t84 * t528 + t34 * t532 / 0.2e1;
570   t536 = t61 * t317;
571   t537 = t536 * t487;
572   t543 = t160 * t44 * t141;
573   t546 = t62 * t439;
574   t549 = t333 * t61;
575   t550 = t87 * t549;
576   t553 = t531 * t456;
577   t556 = t169 * t460;
578   t561 = t160 * t86;
579   t562 = t561 * t146;
580   t565 = t531 * t452;
581   t570 = t62 * t415;
582   t575 = -0.3e1 / 0.8e1 * t34 * t537 - 0.3e1 / 0.8e1 * t77 * t166 - t34 * t543 / 0.4e1 - t34 * t546 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t550 + 0.3e1 / 0.8e1 * t34 * t553 - 0.3e1 / 0.8e1 * t34 * t556 + 0.3e1 / 0.8e1 * t77 * t170 + t34 * t562 / 0.4e1 - t34 * t565 / 0.8e1 - 0.3e1 / 0.16e2 * t84 * t556 + t34 * t570 / 0.8e1 - 0.3e1 / 0.16e2 * t363 * t157;
583   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
584     v3rho2lapl[0] = t535 + t575;
585 
586   t581 = my_piecewise3(t18, -0.12e2 * t132, 0);
587   t582 = t581 * t22;
588   t583 = t582 * t48;
589   t586 = t192 * t491;
590   t589 = t68 * t415;
591   t598 = t306 * t178;
592   t601 = t302 * t67;
593   t602 = t87 * t601;
594   t605 = t313 * t67;
595   t606 = t476 * t605;
596   t609 = t67 * t85;
597   t610 = t609 * t482;
598   t613 = -0.3e1 / 0.32e2 * t357 * t69 - 0.3e1 / 0.8e1 * t77 * t185 - t34 * t583 / 0.8e1 + t34 * t586 / 0.8e1 + t34 * t589 / 0.8e1 + 0.3e1 / 0.8e1 * t77 * t196 - 0.3e1 / 0.16e2 * t363 * t179 - t381 * t179 / 0.16e2 - t84 * t598 / 0.16e2 - 0.3e1 / 0.16e2 * t84 * t602 + 0.3e1 / 0.16e2 * t84 * t606 + t34 * t610 / 0.2e1;
599   t614 = t67 * t317;
600   t615 = t614 * t487;
601   t621 = t183 * t44 * t141;
602   t624 = t68 * t439;
603   t627 = t333 * t67;
604   t628 = t87 * t627;
605   t631 = t609 * t456;
606   t638 = t183 * t86;
607   t639 = t638 * t146;
608   t642 = t609 * t452;
609   t645 = t92 * t183;
610   t646 = t127 * t645;
611   t649 = t184 * t150;
612   t653 = t67 * t106 * t141;
613   t656 = -0.3e1 / 0.8e1 * t34 * t615 - 0.3e1 / 0.8e1 * t77 * t189 - t34 * t621 / 0.4e1 - t34 * t624 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t628 + 0.3e1 / 0.8e1 * t34 * t631 - 0.3e1 / 0.8e1 * t34 * t602 + 0.3e1 / 0.8e1 * t77 * t193 + t34 * t639 / 0.4e1 - t34 * t642 / 0.8e1 - t84 * t646 / 0.8e1 + t34 * t649 / 0.4e1 - t34 * t653 / 0.8e1;
614   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
615     v3rho2tau[0] = t613 + t656;
616 
617   t657 = t204 * t44;
618   t658 = t657 * t141;
619   t659 = t34 * t658;
620   t660 = t659 / 0.8e1;
621   t661 = t199 * t44;
622   t662 = t661 * t452;
623   t665 = t199 * t317;
624   t666 = t321 * t44;
625   t667 = t665 * t666;
626   t670 = t302 * t44;
627   t671 = t200 * t670;
628   t674 = t313 * t44;
629   t675 = t665 * t674;
630   t678 = t204 * t86;
631   t679 = t678 * t146;
632   t680 = t34 * t679;
633   t681 = t680 / 0.8e1;
634   t682 = t200 * t674;
635   t687 = t117 * t134;
636   t688 = t145 * t687;
637   t695 = t121 * t134;
638   t696 = t55 * t695;
639   t699 = -t660 - t34 * t662 / 0.8e1 - 0.3e1 / 0.8e1 * t34 * t667 - 0.3e1 / 0.16e2 * t84 * t671 + 0.3e1 / 0.16e2 * t84 * t675 + t681 + t34 * t682 / 0.2e1 + 0.3e1 / 0.16e2 * t77 * t213 + t34 * t688 / 0.4e1 - 0.3e1 / 0.8e1 * t34 * t671 + 0.3e1 / 0.16e2 * t77 * t216 + t34 * t696 / 0.4e1;
640   t700 = t340 * t44;
641   t701 = t209 * t700;
642   t706 = t145 * t428;
643   t709 = t333 * t44;
644   t710 = t200 * t709;
645   t713 = t77 * t206;
646   t714 = 0.3e1 / 0.16e2 * t713;
647   t715 = t205 * t150;
648   t716 = t34 * t715;
649   t717 = t716 / 0.8e1;
650   t718 = t92 * t204;
651   t719 = t127 * t718;
652   t720 = t84 * t719;
653   t721 = t720 / 0.16e2;
654   t724 = t55 * t428;
655   t727 = t209 * t709;
656   t732 = -t34 * t701 / 0.4e1 - 0.3e1 / 0.32e2 * t363 * t201 - t84 * t706 / 0.8e1 + 0.3e1 / 0.16e2 * t84 * t710 - t714 + t717 - t721 - 0.3e1 / 0.16e2 * t77 * t210 - t34 * t724 / 0.4e1 + 0.3e1 / 0.8e1 * t34 * t727 - t381 * t201 / 0.16e2 - t208;
657   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
658     v3rhosigma2[0] = t699 + t732;
659 
660   t741 = t161 * t230;
661   t744 = t62 * t695;
662   t749 = t446 * t156;
663   t752 = t145 * t511;
664   t756 = t160 * t54 * t141;
665   t759 = -t714 - t208 + t717 - t721 + 0.3e1 / 0.16e2 * t77 * t227 + 0.3e1 / 0.16e2 * t77 * t231 - 0.3e1 / 0.32e2 * t363 * t219 - 0.3e1 / 0.16e2 * t77 * t223 + t34 * t741 / 0.8e1 + t34 * t744 / 0.8e1 - t381 * t219 / 0.16e2 - t84 * t749 / 0.16e2 - t84 * t752 / 0.16e2 - t34 * t756 / 0.8e1;
666   t760 = t61 * t134;
667   t761 = t760 * t141;
668   t764 = t561 * t226;
669   t767 = t169 * t687;
670   t770 = t83 * t54;
671   t771 = t31 * t770;
672   t772 = t86 * t89;
673   t773 = t301 * t61;
674   t774 = t773 * t44;
675   t775 = t772 * t774;
676   t778 = t33 * t61;
677   t779 = t31 * t778;
678   t780 = t55 * t709;
679   t783 = t139 * t452;
680   t786 = t86 * t116;
681   t787 = t786 * t774;
682   t790 = t317 * t312;
683   t791 = t790 * t774;
684   t794 = t145 * t674;
685   t797 = t317 * t320;
686   t798 = t301 * t54;
687   t799 = t798 * t44;
688   t800 = t797 * t799;
689   t803 = t786 * t799;
690   t806 = t367 * t799;
691   t809 = -t34 * t761 / 0.8e1 + t34 * t764 / 0.8e1 + t34 * t767 / 0.8e1 - t660 + t681 + 0.3e1 / 0.16e2 * t771 * t775 + 0.3e1 / 0.8e1 * t779 * t780 - t779 * t783 / 0.8e1 - 0.3e1 / 0.16e2 * t771 * t787 + 0.3e1 / 0.16e2 * t771 * t791 + t779 * t794 / 0.2e1 - 0.3e1 / 0.8e1 * t779 * t800 - 0.3e1 / 0.8e1 * t779 * t803 - t779 * t806 / 0.4e1;
692   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
693     v3rhosigmalapl[0] = t759 + t809;
694 
695   t820 = t446 * t178;
696   t823 = t145 * t645;
697   t827 = t183 * t54 * t141;
698   t831 = t67 * t134 * t141;
699   t834 = t638 * t226;
700   t837 = t192 * t687;
701   t840 = t184 * t230;
702   t843 = -t714 - t208 + 0.3e1 / 0.16e2 * t77 * t241 + 0.3e1 / 0.16e2 * t77 * t244 - 0.3e1 / 0.32e2 * t363 * t234 - 0.3e1 / 0.16e2 * t77 * t238 - t381 * t234 / 0.16e2 - t84 * t820 / 0.16e2 - t84 * t823 / 0.16e2 - t34 * t827 / 0.8e1 - t34 * t831 / 0.8e1 + t34 * t834 / 0.8e1 + t34 * t837 / 0.8e1 + t34 * t840 / 0.8e1;
703   t844 = t68 * t695;
704   t847 = t33 * t67;
705   t848 = t31 * t847;
706   t851 = t301 * t67;
707   t852 = t851 * t44;
708   t853 = t786 * t852;
709   t856 = t790 * t852;
710   t867 = t772 * t852;
711   t872 = t34 * t844 / 0.8e1 + t717 - t721 - t660 + t681 - 0.3e1 / 0.8e1 * t848 * t800 - 0.3e1 / 0.16e2 * t771 * t853 + 0.3e1 / 0.16e2 * t771 * t856 + t848 * t794 / 0.2e1 + 0.3e1 / 0.8e1 * t848 * t780 - 0.3e1 / 0.8e1 * t848 * t803 - t848 * t806 / 0.4e1 + 0.3e1 / 0.16e2 * t771 * t867 - t848 * t783 / 0.8e1;
712   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
713     v3rhosigmatau[0] = t843 + t872;
714 
715   t873 = t247 * t44;
716   t874 = t873 * t452;
717   t877 = t248 * t670;
718   t880 = t247 * t317;
719   t881 = t880 * t674;
720   t884 = t248 * t674;
721   t887 = t880 * t666;
722   t892 = t62 * t511;
723   t895 = t252 * t709;
724   t900 = t117 * t160;
725   t901 = t169 * t900;
726   t904 = -t34 * t874 / 0.8e1 - t660 - 0.3e1 / 0.16e2 * t84 * t877 + 0.3e1 / 0.16e2 * t84 * t881 + t34 * t884 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t887 + t681 - 0.3e1 / 0.16e2 * t77 * t253 - t34 * t892 / 0.4e1 + 0.3e1 / 0.8e1 * t34 * t895 + 0.3e1 / 0.16e2 * t77 * t256 + t34 * t901 / 0.4e1;
727   t909 = t121 * t160;
728   t910 = t62 * t909;
729   t913 = t252 * t700;
730   t918 = t169 * t511;
731   t921 = t248 * t709;
732   t926 = -0.3e1 / 0.8e1 * t34 * t877 + 0.3e1 / 0.16e2 * t77 * t259 + t34 * t910 / 0.4e1 - t34 * t913 / 0.4e1 - 0.3e1 / 0.32e2 * t363 * t249 - t84 * t918 / 0.8e1 + 0.3e1 / 0.16e2 * t84 * t921 - t714 + t717 - t721 - t381 * t249 / 0.16e2 - t208;
733   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
734     v3rholapl2[0] = t904 + t926;
735 
736   t927 = t192 * t900;
737   t930 = t184 * t273;
738   t933 = t68 * t909;
739   t938 = t561 * t178;
740   t941 = t169 * t645;
741   t953 = t183 * t61 * t141;
742   t957 = t67 * t160 * t141;
743   t960 = -t714 - t208 + t34 * t927 / 0.8e1 + t34 * t930 / 0.8e1 + t34 * t933 / 0.8e1 - t381 * t262 / 0.16e2 - t84 * t938 / 0.16e2 - t84 * t941 / 0.16e2 - 0.3e1 / 0.32e2 * t363 * t262 - 0.3e1 / 0.16e2 * t77 * t266 + 0.3e1 / 0.16e2 * t77 * t270 + 0.3e1 / 0.16e2 * t77 * t274 - t34 * t953 / 0.8e1 - t34 * t957 / 0.8e1;
744   t961 = t638 * t269;
745   t964 = t83 * t61;
746   t965 = t31 * t964;
747   t970 = t169 * t674;
748   t973 = t797 * t774;
749   t976 = t367 * t774;
750   t981 = t62 * t709;
751   t986 = t165 * t452;
752   t989 = t34 * t961 / 0.8e1 + t717 - t721 - t660 + t681 - 0.3e1 / 0.16e2 * t965 * t853 + 0.3e1 / 0.16e2 * t965 * t856 + t848 * t970 / 0.2e1 - 0.3e1 / 0.8e1 * t848 * t973 - t848 * t976 / 0.4e1 + 0.3e1 / 0.16e2 * t965 * t867 + 0.3e1 / 0.8e1 * t848 * t981 - 0.3e1 / 0.8e1 * t848 * t787 - t848 * t986 / 0.8e1;
753   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
754     v3rholapltau[0] = t960 + t989;
755 
756   t991 = t277 * t44 * t452;
757   t994 = t278 * t670;
758   t997 = t277 * t317;
759   t998 = t997 * t674;
760   t1001 = t278 * t674;
761   t1004 = t997 * t666;
762   t1012 = t68 * t121 * t183;
763   t1015 = t282 * t700;
764   t1020 = -t34 * t991 / 0.8e1 - t660 - 0.3e1 / 0.16e2 * t84 * t994 + 0.3e1 / 0.16e2 * t84 * t998 + t34 * t1001 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1004 + t681 - 0.3e1 / 0.8e1 * t34 * t994 + 0.3e1 / 0.16e2 * t77 * t289 + t34 * t1012 / 0.4e1 - t34 * t1015 / 0.4e1 - t381 * t279 / 0.16e2;
765   t1023 = t192 * t645;
766   t1026 = t278 * t709;
767   t1031 = t68 * t645;
768   t1034 = t282 * t709;
769   t1040 = t192 * t117 * t183;
770   t1043 = -0.3e1 / 0.32e2 * t363 * t279 - t84 * t1023 / 0.8e1 + 0.3e1 / 0.16e2 * t84 * t1026 - 0.3e1 / 0.16e2 * t77 * t283 - t34 * t1031 / 0.4e1 + 0.3e1 / 0.8e1 * t34 * t1034 + 0.3e1 / 0.16e2 * t77 * t286 + t34 * t1040 / 0.4e1 - t714 + t717 - t721 - t208;
771   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
772     v3rhotau2[0] = t1020 + t1043;
773 
774   t1044 = t204 * t54;
775   t1045 = t1044 * t141;
776   t1046 = t34 * t1045;
777   t1047 = 0.3e1 / 0.8e1 * t1046;
778   t1048 = t199 * t54;
779   t1049 = t1048 * t22;
780   t1050 = t1049 * t302;
781   t1053 = t1048 * t86;
782   t1054 = t1053 * t313;
783   t1057 = t1048 * t317;
784   t1058 = t1057 * t321;
785   t1061 = t1053 * t302;
786   t1064 = t1057 * t313;
787   t1067 = t678 * t226;
788   t1068 = t34 * t1067;
789   t1069 = 0.3e1 / 0.8e1 * t1068;
790   t1070 = t32 * t54;
791   t1072 = t372 * t54;
792   t1074 = t375 * t54;
793   t1077 = t1070 * t368 / 0.2e1 + t1072 * t368 / 0.2e1 - t1074 * t368 / 0.2e1;
794   t1078 = t2 * t1077;
795   t1079 = t31 * t1078;
796   t1082 = t1049 * t333;
797   t1087 = t1049 * t340;
798   t1090 = t145 * t718;
799   t1091 = t84 * t1090;
800   t1092 = 0.3e1 / 0.16e2 * t1091;
801   t1093 = t1053 * t333;
802   t1096 = t205 * t230;
803   t1097 = t34 * t1096;
804   t1098 = 0.3e1 / 0.8e1 * t1097;
805   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
806     v3sigma3[0] = -t1047 - t34 * t1050 / 0.8e1 + t34 * t1054 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1058 - 0.3e1 / 0.16e2 * t84 * t1061 + 0.3e1 / 0.16e2 * t84 * t1064 + t1069 - t1079 * t201 / 0.16e2 + 0.3e1 / 0.8e1 * t34 * t1082 - 0.3e1 / 0.8e1 * t34 * t1061 - t34 * t1087 / 0.4e1 - t1092 + 0.3e1 / 0.16e2 * t84 * t1093 + t1098 - t208;
807 
808   t1099 = t61 * t204;
809   t1100 = t1099 * t141;
810   t1101 = t34 * t1100;
811   t1102 = t1101 / 0.8e1;
812   t1103 = t117 * t204;
813   t1104 = t169 * t1103;
814   t1105 = t34 * t1104;
815   t1106 = t1105 / 0.8e1;
816   t1107 = t121 * t204;
817   t1108 = t62 * t1107;
818   t1109 = t34 * t1108;
819   t1110 = t1109 / 0.8e1;
820   t1111 = t302 * t61;
821   t1112 = t200 * t1111;
822   t1115 = t665 * t527;
823   t1118 = t61 * t199;
824   t1119 = t1118 * t482;
825   t1122 = t321 * t199;
826   t1123 = t536 * t1122;
827   t1126 = t1046 / 0.4e1;
828   t1127 = t1118 * t456;
829   t1132 = t340 * t199;
830   t1133 = t62 * t1132;
831   t1136 = t200 * t549;
832   t1139 = t1118 * t452;
833   t1142 = t1068 / 0.4e1;
834   t1145 = t678 * t156;
835   t1146 = t84 * t1145;
836   t1147 = t1146 / 0.16e2;
837   t1148 = t1091 / 0.8e1;
838   t1149 = t1097 / 0.4e1;
839   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
840     v3sigma2lapl[0] = -t1102 + t1106 + t1110 - 0.3e1 / 0.16e2 * t84 * t1112 + 0.3e1 / 0.16e2 * t84 * t1115 + t34 * t1119 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1123 - t1126 + 0.3e1 / 0.8e1 * t34 * t1127 - 0.3e1 / 0.8e1 * t34 * t1112 - t34 * t1133 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1136 - t34 * t1139 / 0.8e1 + t1142 - t1079 * t219 / 0.16e2 - t1147 - t1148 + t1149 - t208;
841 
842   t1151 = t67 * t204 * t141;
843   t1152 = t34 * t1151;
844   t1153 = t1152 / 0.8e1;
845   t1154 = t192 * t1103;
846   t1155 = t34 * t1154;
847   t1156 = t1155 / 0.8e1;
848   t1157 = t68 * t1107;
849   t1158 = t34 * t1157;
850   t1159 = t1158 / 0.8e1;
851   t1162 = t678 * t178;
852   t1163 = t84 * t1162;
853   t1164 = t1163 / 0.16e2;
854   t1165 = t200 * t601;
855   t1168 = t665 * t605;
856   t1171 = t67 * t199;
857   t1172 = t1171 * t482;
858   t1175 = t614 * t1122;
859   t1178 = t1171 * t456;
860   t1183 = t68 * t1132;
861   t1186 = t200 * t627;
862   t1189 = t1171 * t452;
863   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
864     v3sigma2tau[0] = -t1153 + t1156 + t1159 - t1079 * t234 / 0.16e2 - t1164 - 0.3e1 / 0.16e2 * t84 * t1165 + 0.3e1 / 0.16e2 * t84 * t1168 + t34 * t1172 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1175 - t1126 + 0.3e1 / 0.8e1 * t34 * t1178 - 0.3e1 / 0.8e1 * t34 * t1165 - t34 * t1183 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1186 - t34 * t1189 / 0.8e1 + t1142 - t1148 + t1149 - t208;
865 
866   t1192 = t340 * t54;
867   t1193 = t252 * t1192;
868   t1196 = t248 * t464;
869   t1199 = t252 * t464;
870   t1202 = t302 * t54;
871   t1203 = t248 * t1202;
872   t1206 = t1101 / 0.4e1;
873   t1207 = t1105 / 0.4e1;
874   t1208 = t1109 / 0.4e1;
875   t1209 = t247 * t54;
876   t1210 = t1209 * t452;
877   t1213 = t1046 / 0.8e1;
878   t1216 = t880 * t477;
879   t1219 = t248 * t477;
880   t1222 = t321 * t54;
881   t1223 = t880 * t1222;
882   t1226 = t1068 / 0.8e1;
883   t1229 = t1146 / 0.8e1;
884   t1230 = t1091 / 0.16e2;
885   t1231 = t1097 / 0.8e1;
886   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
887     v3sigmalapl2[0] = -t34 * t1193 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1196 + 0.3e1 / 0.8e1 * t34 * t1199 - 0.3e1 / 0.8e1 * t34 * t1203 - t1206 + t1207 + t1208 - t34 * t1210 / 0.8e1 - t1213 - 0.3e1 / 0.16e2 * t84 * t1203 + 0.3e1 / 0.16e2 * t84 * t1216 + t34 * t1219 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1223 + t1226 - t1079 * t249 / 0.16e2 - t1229 - t1230 + t1231 - t208;
888 
889   t1234 = t851 * t54;
890   t1235 = t790 * t1234;
891   t1238 = t169 * t477;
892   t1241 = t773 * t54;
893   t1242 = t797 * t1241;
894   t1245 = -t1079 * t262 / 0.16e2 - t1153 + t1156 + t1159 - t1164 - t1102 + t1106 + t1110 + 0.3e1 / 0.16e2 * t965 * t1235 + t848 * t1238 / 0.2e1 - 0.3e1 / 0.8e1 * t848 * t1242;
895   t1246 = t786 * t1234;
896   t1249 = t772 * t1234;
897   t1252 = t62 * t464;
898   t1255 = t786 * t1241;
899   t1258 = t367 * t1241;
900   t1261 = t222 * t452;
901   t1264 = -0.3e1 / 0.16e2 * t965 * t1246 - t1213 + 0.3e1 / 0.16e2 * t965 * t1249 + 0.3e1 / 0.8e1 * t848 * t1252 - 0.3e1 / 0.8e1 * t848 * t1255 - t848 * t1258 / 0.4e1 - t848 * t1261 / 0.8e1 + t1226 - t1147 - t1230 + t1231 - t208;
902   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
903     v3sigmalapltau[0] = t1245 + t1264;
904 
905   t1265 = t282 * t1192;
906   t1268 = t278 * t464;
907   t1271 = t282 * t464;
908   t1274 = t278 * t1202;
909   t1277 = t1152 / 0.4e1;
910   t1278 = t1155 / 0.4e1;
911   t1279 = t1158 / 0.4e1;
912   t1280 = t1163 / 0.8e1;
913   t1282 = t277 * t54 * t452;
914   t1287 = t997 * t477;
915   t1290 = t278 * t477;
916   t1293 = t997 * t1222;
917   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
918     v3sigmatau2[0] = -t34 * t1265 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1268 + 0.3e1 / 0.8e1 * t34 * t1271 - 0.3e1 / 0.8e1 * t34 * t1274 - t1277 + t1278 + t1279 - t1280 - t34 * t1282 / 0.8e1 - t1213 - 0.3e1 / 0.16e2 * t84 * t1274 + 0.3e1 / 0.16e2 * t84 * t1287 + t34 * t1290 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1293 + t1226 - t1079 * t279 / 0.16e2 - t1230 + t1231 - t208;
919 
920   t1298 = t247 * t61;
921   t1299 = t1298 * t22;
922   t1300 = t1299 * t340;
923   t1303 = t1298 * t86;
924   t1304 = t1303 * t333;
925   t1307 = t1299 * t333;
926   t1310 = t1303 * t302;
927   t1313 = 0.3e1 / 0.8e1 * t1101;
928   t1314 = 0.3e1 / 0.8e1 * t1105;
929   t1315 = 0.3e1 / 0.8e1 * t1109;
930   t1316 = t1299 * t302;
931   t1319 = t1298 * t317;
932   t1320 = t1319 * t313;
933   t1323 = t1303 * t313;
934   t1326 = t1319 * t321;
935   t1331 = t32 * t61;
936   t1333 = t372 * t61;
937   t1335 = t375 * t61;
938   t1338 = t1331 * t368 / 0.2e1 + t1333 * t368 / 0.2e1 - t1335 * t368 / 0.2e1;
939   t1339 = t2 * t1338;
940   t1340 = t31 * t1339;
941   t1343 = 0.3e1 / 0.16e2 * t1146;
942   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
943     v3lapl3[0] = -t34 * t1300 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1304 + 0.3e1 / 0.8e1 * t34 * t1307 - 0.3e1 / 0.8e1 * t34 * t1310 - t1313 + t1314 + t1315 - t34 * t1316 / 0.8e1 + 0.3e1 / 0.16e2 * t84 * t1320 + t34 * t1323 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1326 - 0.3e1 / 0.16e2 * t84 * t1310 - t1340 * t249 / 0.16e2 - t1343 - t208;
944 
945   t1346 = t248 * t601;
946   t1349 = t880 * t605;
947   t1352 = t67 * t247;
948   t1353 = t1352 * t482;
949   t1356 = t321 * t247;
950   t1357 = t614 * t1356;
951   t1360 = t1352 * t456;
952   t1365 = t340 * t247;
953   t1366 = t68 * t1365;
954   t1369 = t248 * t627;
955   t1372 = t1352 * t452;
956   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
957     v3lapl2tau[0] = -t1340 * t262 / 0.16e2 - t1153 + t1156 + t1159 - t1164 - t1206 + t1207 + t1208 - 0.3e1 / 0.16e2 * t84 * t1346 + 0.3e1 / 0.16e2 * t84 * t1349 + t34 * t1353 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1357 + 0.3e1 / 0.8e1 * t34 * t1360 - 0.3e1 / 0.8e1 * t34 * t1346 - t34 * t1366 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1369 - t34 * t1372 / 0.8e1 - t1229 - t208;
958 
959   t1376 = t282 * t340 * t61;
960   t1379 = t278 * t549;
961   t1382 = t282 * t549;
962   t1385 = t278 * t1111;
963   t1389 = t277 * t61 * t452;
964   t1394 = t997 * t527;
965   t1397 = t278 * t527;
966   t1401 = t997 * t321 * t61;
967   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
968     v3lapltau2[0] = -t34 * t1376 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1379 + 0.3e1 / 0.8e1 * t34 * t1382 - 0.3e1 / 0.8e1 * t34 * t1385 - t1277 + t1278 + t1279 - t1280 - t1102 + t1106 + t1110 - t34 * t1389 / 0.8e1 - 0.3e1 / 0.16e2 * t84 * t1385 + 0.3e1 / 0.16e2 * t84 * t1394 + t34 * t1397 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1401 - t1147 - t208 - t1340 * t279 / 0.16e2;
969 
970   t1406 = t277 * t67;
971   t1407 = t1406 * t22;
972   t1408 = t1407 * t333;
973   t1411 = t1406 * t86;
974   t1412 = t1411 * t302;
975   t1415 = t1407 * t340;
976   t1418 = t1411 * t333;
977   t1421 = 0.3e1 / 0.8e1 * t1152;
978   t1422 = 0.3e1 / 0.8e1 * t1155;
979   t1423 = 0.3e1 / 0.8e1 * t1158;
980   t1424 = 0.3e1 / 0.16e2 * t1163;
981   t1425 = t1407 * t302;
982   t1430 = t1406 * t317;
983   t1431 = t1430 * t313;
984   t1434 = t1411 * t313;
985   t1437 = t1430 * t321;
986   t1440 = t32 * t67;
987   t1442 = t372 * t67;
988   t1444 = t375 * t67;
989   t1447 = t1440 * t368 / 0.2e1 + t1442 * t368 / 0.2e1 - t1444 * t368 / 0.2e1;
990   t1448 = t2 * t1447;
991   t1449 = t31 * t1448;
992   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
993     v3tau3[0] = 0.3e1 / 0.8e1 * t34 * t1408 - 0.3e1 / 0.8e1 * t34 * t1412 - t34 * t1415 / 0.4e1 + 0.3e1 / 0.16e2 * t84 * t1418 - t1421 + t1422 + t1423 - t1424 - t34 * t1425 / 0.8e1 - 0.3e1 / 0.16e2 * t84 * t1412 + 0.3e1 / 0.16e2 * t84 * t1431 + t34 * t1434 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t1437 - t208 - t1449 * t279 / 0.16e2;
994 
995 #ifndef XC_DONT_COMPILE_LXC
996 
997   if(order < 4) return;
998 
999 
1000   t1452 = t106 * t106;
1001   t1453 = t1452 * t22;
1002   t1458 = t3 * t399 * t32;
1003   t1461 = t85 * t85;
1004   t1462 = t1461 * t22;
1005   t1463 = t90 * t90;
1006   t1464 = 0.1e1 / t1463;
1007   t1465 = t89 * t1464;
1008   t1474 = t1461 * t86;
1009   t1475 = t116 * t1464;
1010   t1476 = t1474 * t1475;
1011   t1481 = t46 * t1464;
1012   t1487 = t1452 * t86;
1013   t1491 = t1461 * t317;
1014   t1492 = t320 * t1464;
1015   t1493 = t1491 * t1492;
1016   t1502 = t312 * t1464;
1017   t1509 = 0.3e1 / 0.8e1 * t34 * t1453 * t121 + 0.3e1 / 0.16e2 * t1458 * t49 - 0.11e2 / 0.8e1 * t34 * t1462 * t1465 - 0.9e1 / 0.64e2 * t3 / t4 / t5 * t25 + 0.11e2 / 0.8e1 * t34 * t1476 - 0.3e1 / 0.2e1 * t77 * t341 + 0.3e1 / 0.4e1 * t34 * t1462 * t1481 + 0.9e1 / 0.16e2 * t357 * t122 - 0.3e1 / 0.16e2 * t84 * t1487 * t92 + 0.9e1 / 0.4e1 * t34 * t1493 + 0.9e1 / 0.16e2 * t357 * t118 - 0.9e1 / 0.4e1 * t77 * t327 + 0.9e1 / 0.8e1 * t84 * t1476 - 0.9e1 / 0.8e1 * t84 * t1491 * t1502 - 0.3e1 / 0.8e1 * t34 * t1453 * t92;
1018   t1516 = t1474 * t1502;
1019   t1531 = 0.1e1 / t311 / t88;
1020   t1532 = t1531 * t1464;
1021   t1536 = t86 * t86;
1022   t1537 = t1461 * t1536;
1023   t1539 = 0.1e1 / t311 / t115;
1024   t1540 = t1539 * t1464;
1025   t1559 = my_piecewise3(t18, (0.60e2 * lapl[0] * t389 - 0.240e3 * tau[0] * t389 + 0.90e2 * sigma[0] / t38 / t11) * t16, 0);
1026   t1568 = 0.3e1 / 0.4e1 * t34 * t1462 * t1475 + 0.3e1 / 0.8e1 * t34 * t1487 * t117 - 0.3e1 * t34 * t1516 - 0.9e1 / 0.4e1 * t77 * t322 - 0.9e1 / 0.16e2 * t357 * t112 + 0.9e1 / 0.4e1 * t77 * t334 - t34 * t1462 * t1502 / 0.8e1 - 0.3e1 / 0.4e1 * t77 * t303 - 0.25e2 / 0.8e1 * t34 * t1491 * t1532 + 0.15e2 / 0.8e1 * t34 * t1537 * t1540 + 0.3e1 * t77 * t314 + 0.11e2 / 0.8e1 * t34 * t1474 * t1492 - t34 * t1559 * t22 * t48 / 0.8e1 - 0.9e1 / 0.8e1 * t363 * t327 - 0.7e1 / 0.16e2 * t84 * t1516;
1027   t1591 = t3 * t72 * t82;
1028   t1597 = t3 * t4 * t379;
1029   t1601 = t772 * t91;
1030   t1607 = t32 * t85;
1031   t1610 = t786 * t91;
1032   t1613 = t367 * t91;
1033   t1618 = 0.1e1 / t370 / t24 * t32;
1034   t1622 = t371 * t82;
1035   t1629 = t372 * t85;
1036   t1636 = t80 * t379;
1037   t1643 = t375 * t85;
1038   t1650 = t82 * t85 * t1601 / 0.4e1 + t32 * t106 * t368 / 0.2e1 + t1607 * t141 / 0.2e1 - t1607 * t1610 / 0.2e1 - t1607 * t1613 / 0.2e1 - t1618 * t85 * t1601 / 0.2e1 + t1622 * t85 * t1601 / 0.2e1 + t372 * t106 * t368 / 0.2e1 + t1629 * t141 / 0.2e1 - t1629 * t1610 / 0.2e1 - t1629 * t1613 / 0.2e1 - t1636 * t44 * t368 / 0.2e1 - t375 * t106 * t368 / 0.2e1 - t1643 * t141 / 0.2e1 + t1643 * t1610 / 0.2e1 + t1643 * t1613 / 0.2e1;
1039   t1652 = t31 * t2 * t1650;
1040   t1657 = t106 * t85;
1041   t1661 = 0.11e2 / 0.8e1 * t84 * t1493 - 0.15e2 / 0.16e2 * t84 * t1537 * t1532 + 0.9e1 / 0.8e1 * t363 * t330 - 0.5e1 / 0.16e2 * t381 * t327 + 0.5e1 / 0.16e2 * t381 * t330 - 0.11e2 / 0.16e2 * t84 * t1474 * t1465 + 0.9e1 / 0.8e1 * t363 * t350 + 0.5e1 / 0.16e2 * t381 * t350 - 0.9e1 / 0.16e2 * t357 * t108 - 0.9e1 / 0.32e2 * t1591 * t93 - 0.3e1 / 0.4e1 * t77 * t396 - 0.3e1 / 0.8e1 * t1597 * t93 - t1652 * t93 / 0.16e2 - 0.9e1 / 0.4e1 * t77 * t295 + 0.3e1 * t34 * t1657 * t482;
1042   t1666 = t306 * t460;
1043   t1671 = t333 * t106;
1044   t1693 = t394 * t86;
1045   t1697 = t313 * t106;
1046   t1708 = t340 * t106;
1047   t1712 = -0.9e1 / 0.4e1 * t34 * t106 * t317 * t487 - 0.9e1 / 0.4e1 * t34 * t1666 - 0.9e1 / 0.8e1 * t363 * t347 + 0.9e1 / 0.8e1 * t84 * t87 * t1671 + 0.9e1 / 0.4e1 * t34 * t1657 * t456 + 0.9e1 / 0.4e1 * t77 * t307 - 0.3e1 / 0.4e1 * t34 * t1657 * t452 + 0.9e1 / 0.4e1 * t77 * t353 - 0.5e1 / 0.16e2 * t381 * t347 - t34 * t394 * t44 * t141 / 0.2e1 - 0.9e1 / 0.8e1 * t84 * t1666 + t34 * t1693 * t146 / 0.2e1 + 0.9e1 / 0.8e1 * t84 * t476 * t1697 - t84 * t127 * t92 * t394 / 0.4e1 + t34 * t395 * t150 / 0.2e1 - 0.3e1 / 0.2e1 * t34 * t111 * t1708;
1048   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1049     v4rho4[0] = t1509 + t1568 + t1661 + t1712;
1050 
1051   t1715 = t31 * t33 * t54;
1052   t1716 = t45 * t1671;
1053   t1719 = t301 * t44;
1054   t1720 = t1719 * t106;
1055   t1721 = t786 * t1720;
1056   t1724 = t83 * t44;
1057   t1725 = t31 * t1724;
1058   t1726 = t798 * t106;
1059   t1730 = t367 * t1720;
1060   t1733 = t127 * t1697;
1061   t1736 = t797 * t1720;
1062   t1739 = t786 * t1726;
1063   t1745 = t302 * t106;
1064   t1746 = t45 * t1745;
1065   t1755 = my_piecewise3(t18, -0.15e2 * t389 * t16, 0);
1066   t1770 = t54 * t298;
1067   t1772 = t86 * t320 * t1464;
1068   t1776 = t481 * t1464;
1069   t1777 = t1770 * t1776;
1070   t1781 = t486 * t1492 * t298;
1071   t1786 = 0.9e1 / 0.8e1 * t1715 * t1716 - 0.9e1 / 0.8e1 * t1715 * t1721 + 0.9e1 / 0.16e2 * t1725 * t772 * t1726 - 0.3e1 / 0.4e1 * t1715 * t1730 + 0.3e1 / 0.2e1 * t1715 * t1733 - 0.9e1 / 0.8e1 * t1715 * t1736 - 0.9e1 / 0.16e2 * t1725 * t1739 + 0.9e1 / 0.16e2 * t1725 * t790 * t1726 - 0.3e1 / 0.8e1 * t1715 * t1746 + 0.3e1 / 0.64e2 * t1458 * t56 - 0.9e1 / 0.16e2 * t77 * t412 - t34 * t1755 * t22 * t48 / 0.8e1 - 0.9e1 / 0.32e2 * t357 * t136 + 0.3e1 / 0.2e1 * t34 * t446 * t313 * t85 - 0.9e1 / 0.8e1 * t34 * t134 * t317 * t487 + 0.11e2 / 0.8e1 * t34 * t1770 * t1772 - 0.3e1 * t34 * t1777 + 0.9e1 / 0.4e1 * t34 * t1781 + 0.11e2 / 0.8e1 * t84 * t1781;
1072   t1787 = t298 * t1536;
1073   t1788 = t1532 * t54;
1074   t1798 = t451 * t1464;
1075   t1808 = t1481 * t298;
1076   t1816 = t446 * t460;
1077   t1819 = t140 * t1464;
1078   t1824 = t22 * t312 * t1464;
1079   t1828 = t134 * t85;
1080   t1837 = t1475 * t54;
1081   t1838 = t310 * t1837;
1082   t1841 = t1502 * t54;
1083   t1847 = -0.15e2 / 0.16e2 * t84 * t1787 * t1788 + 0.9e1 / 0.16e2 * t77 * t416 - 0.9e1 / 0.32e2 * t357 * t142 - 0.9e1 / 0.16e2 * t77 * t453 + 0.3e1 / 0.4e1 * t34 * t1770 * t1798 + 0.27e2 / 0.16e2 * t77 * t457 + 0.27e2 / 0.32e2 * t363 * t465 - 0.9e1 / 0.8e1 * t77 * t440 + 0.3e1 / 0.4e1 * t34 * t55 * t1808 + 0.9e1 / 0.32e2 * t357 * t147 - 0.27e2 / 0.16e2 * t77 * t461 - 0.9e1 / 0.8e1 * t34 * t1816 - 0.11e2 / 0.8e1 * t34 * t1770 * t1819 - t34 * t1770 * t1824 / 0.8e1 - 0.3e1 / 0.8e1 * t34 * t1828 * t452 - 0.7e1 / 0.16e2 * t84 * t1777 + 0.9e1 / 0.8e1 * t34 * t1828 * t456 + 0.9e1 / 0.8e1 * t84 * t1838 - 0.9e1 / 0.8e1 * t84 * t318 * t1841 + 0.5e1 / 0.16e2 * t381 * t465;
1084   t1849 = t333 * t134;
1085   t1856 = t1465 * t54;
1086   t1866 = t317 * t1531;
1087   t1867 = t1866 * t1464;
1088   t1872 = t1540 * t298;
1089   t1898 = t117 * t394;
1090   t1902 = 0.9e1 / 0.16e2 * t84 * t87 * t1849 - 0.3e1 / 0.4e1 * t34 * t135 * t439 - 0.11e2 / 0.16e2 * t84 * t310 * t1856 + 0.9e1 / 0.8e1 * t77 * t447 + 0.9e1 / 0.16e2 * t77 * t492 + 0.27e2 / 0.32e2 * t363 * t478 - 0.25e2 / 0.8e1 * t34 * t1770 * t1867 + 0.15e2 / 0.8e1 * t34 * t54 * t1536 * t1872 + 0.11e2 / 0.8e1 * t34 * t1838 + 0.9e1 / 0.4e1 * t77 * t483 - 0.27e2 / 0.16e2 * t77 * t488 - 0.9e1 / 0.32e2 * t363 * t425 - 0.9e1 / 0.16e2 * t363 * t429 - t1652 * t129 / 0.16e2 - t381 * t425 / 0.8e1 - 0.3e1 / 0.16e2 * t381 * t429 - t84 * t1693 * t128 / 0.16e2 - 0.3e1 / 0.16e2 * t84 * t306 * t428 + t34 * t145 * t1898 / 0.8e1;
1091   t1906 = t121 * t394;
1092   t1934 = t410 * t86;
1093   t1941 = t313 * t134;
1094   t1945 = t92 * t410;
1095   t1960 = 0.3e1 / 0.8e1 * t34 * t135 * t415 + t34 * t55 * t1906 / 0.8e1 + 0.9e1 / 0.32e2 * t357 * t151 - 0.9e1 / 0.64e2 * t1591 * t129 - 0.9e1 / 0.8e1 * t77 * t471 - 0.9e1 / 0.16e2 * t77 * t436 - 0.27e2 / 0.32e2 * t363 * t461 - 0.3e1 / 0.8e1 * t34 * t410 * t44 * t141 - 0.3e1 / 0.8e1 * t34 * t134 * t106 * t141 - 0.9e1 / 0.16e2 * t84 * t1816 - 0.5e1 / 0.16e2 * t381 * t461 + 0.5e1 / 0.16e2 * t381 * t478 + 0.3e1 / 0.8e1 * t34 * t1934 * t146 + 0.3e1 / 0.8e1 * t34 * t446 * t491 + 0.9e1 / 0.16e2 * t84 * t476 * t1941 - 0.3e1 / 0.16e2 * t84 * t127 * t1945 + 0.3e1 / 0.8e1 * t34 * t411 * t150 - t34 * t54 * t394 * t141 / 0.8e1 + 0.9e1 / 0.8e1 * t77 * t432 - 0.9e1 / 0.32e2 * t1597 * t129;
1096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1097     v4rho3sigma[0] = t1786 + t1847 + t1902 + t1960;
1098 
1099   t1962 = t773 * t106;
1100   t1963 = t790 * t1962;
1101   t1968 = t786 * t1962;
1102   t1973 = t772 * t1962;
1103   t1991 = my_piecewise3(t18, -0.12e2 * t408, 0);
1104   t1996 = t61 * t1536;
1105   t2002 = t160 * t85;
1106   t2006 = t61 * t298;
1107   t2016 = 0.9e1 / 0.16e2 * t1725 * t1963 - 0.3e1 / 0.8e1 * t779 * t1746 - 0.9e1 / 0.16e2 * t1725 * t1968 - 0.3e1 / 0.4e1 * t779 * t1730 + 0.9e1 / 0.16e2 * t1725 * t1973 + 0.9e1 / 0.8e1 * t779 * t1716 + 0.3e1 / 0.2e1 * t779 * t1733 - 0.9e1 / 0.8e1 * t779 * t1736 - 0.9e1 / 0.8e1 * t779 * t1721 + 0.3e1 / 0.64e2 * t1458 * t63 - 0.9e1 / 0.32e2 * t357 * t162 - 0.9e1 / 0.16e2 * t77 * t503 - t34 * t1991 * t22 * t48 / 0.8e1 + 0.15e2 / 0.8e1 * t34 * t1996 * t1872 - 0.9e1 / 0.16e2 * t77 * t565 - 0.3e1 / 0.8e1 * t34 * t2002 * t452 - 0.11e2 / 0.8e1 * t34 * t2006 * t1819 + 0.3e1 / 0.4e1 * t34 * t2006 * t1798 - t34 * t2006 * t1824 / 0.8e1;
1108   t2017 = t333 * t160;
1109   t2021 = t561 * t460;
1110   t2031 = t160 * t317;
1111   t2053 = t313 * t160;
1112   t2057 = t1475 * t298;
1113   t2058 = t169 * t2057;
1114   t2063 = t1492 * t61;
1115   t2064 = t318 * t2063;
1116   t2067 = t1532 * t61;
1117   t2077 = 0.9e1 / 0.16e2 * t84 * t87 * t2017 - 0.9e1 / 0.8e1 * t34 * t2021 + 0.9e1 / 0.8e1 * t77 * t562 + 0.9e1 / 0.16e2 * t77 * t522 + 0.3e1 / 0.2e1 * t34 * t2002 * t482 - 0.9e1 / 0.8e1 * t34 * t2031 * t487 - 0.9e1 / 0.8e1 * t77 * t543 - 0.9e1 / 0.16e2 * t77 * t519 - 0.27e2 / 0.32e2 * t363 * t556 - 0.3e1 / 0.8e1 * t34 * t501 * t44 * t141 - 0.3e1 / 0.8e1 * t34 * t160 * t106 * t141 - 0.9e1 / 0.16e2 * t84 * t2021 + 0.5e1 / 0.16e2 * t381 * t528 + 0.9e1 / 0.16e2 * t84 * t476 * t2053 + 0.11e2 / 0.8e1 * t34 * t2058 + 0.9e1 / 0.8e1 * t84 * t2058 + 0.11e2 / 0.8e1 * t84 * t2064 - 0.15e2 / 0.16e2 * t84 * t1787 * t2067 + 0.11e2 / 0.8e1 * t34 * t2006 * t1772 - 0.25e2 / 0.8e1 * t34 * t2006 * t1867;
1118   t2100 = t92 * t501;
1119   t2107 = t501 * t86;
1120   t2114 = t1502 * t61;
1121   t2115 = t310 * t2114;
1122   t2132 = -t34 * t61 * t394 * t141 / 0.8e1 + t34 * t169 * t1898 / 0.8e1 + 0.9e1 / 0.32e2 * t357 * t173 - t1652 * t157 / 0.16e2 - t381 * t508 / 0.8e1 - 0.3e1 / 0.16e2 * t381 * t512 - t84 * t1693 * t156 / 0.16e2 - 0.3e1 / 0.16e2 * t84 * t306 * t511 - 0.3e1 / 0.16e2 * t84 * t127 * t2100 + 0.3e1 / 0.8e1 * t34 * t502 * t150 + 0.3e1 / 0.8e1 * t34 * t2107 * t146 + 0.3e1 / 0.8e1 * t34 * t561 * t491 - 0.7e1 / 0.16e2 * t84 * t2115 - 0.5e1 / 0.16e2 * t381 * t556 + 0.3e1 / 0.8e1 * t34 * t161 * t415 + t34 * t62 * t1906 / 0.8e1 - 0.9e1 / 0.32e2 * t1597 * t157 - 0.9e1 / 0.32e2 * t363 * t508 - 0.9e1 / 0.16e2 * t363 * t512;
1123   t2136 = t1465 * t61;
1124   t2179 = -0.3e1 / 0.4e1 * t34 * t161 * t439 - 0.11e2 / 0.16e2 * t84 * t310 * t2136 + 0.5e1 / 0.16e2 * t381 * t550 + 0.9e1 / 0.8e1 * t77 * t515 + 0.9e1 / 0.16e2 * t77 * t570 - 0.9e1 / 0.64e2 * t1591 * t157 + 0.9e1 / 0.32e2 * t357 * t170 + 0.9e1 / 0.8e1 * t34 * t2002 * t456 - 0.9e1 / 0.8e1 * t77 * t546 + 0.3e1 / 0.4e1 * t34 * t62 * t1808 + 0.27e2 / 0.32e2 * t363 * t550 - 0.27e2 / 0.16e2 * t77 * t556 - 0.9e1 / 0.8e1 * t84 * t318 * t2114 + 0.9e1 / 0.4e1 * t77 * t532 - 0.3e1 * t34 * t2115 - 0.27e2 / 0.16e2 * t77 * t537 + 0.9e1 / 0.4e1 * t34 * t2064 - 0.9e1 / 0.32e2 * t357 * t166 + 0.27e2 / 0.16e2 * t77 * t553 + 0.27e2 / 0.32e2 * t363 * t528;
1125   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1126     v4rho3lapl[0] = t2016 + t2077 + t2132 + t2179;
1127 
1128   t2187 = t851 * t106;
1129   t2188 = t786 * t2187;
1130   t2191 = t790 * t2187;
1131   t2198 = t772 * t2187;
1132   t2205 = t1502 * t67;
1133   t2206 = t310 * t2205;
1134   t2209 = t1492 * t67;
1135   t2210 = t318 * t2209;
1136   t2213 = t1532 * t67;
1137   t2217 = t67 * t298;
1138   t2224 = t67 * t1536;
1139   t2228 = t192 * t2057;
1140   t2233 = t183 * t85;
1141   t2237 = -0.9e1 / 0.8e1 * t848 * t1721 + 0.3e1 / 0.2e1 * t848 * t1733 - 0.9e1 / 0.8e1 * t848 * t1736 - 0.9e1 / 0.16e2 * t1725 * t2188 + 0.9e1 / 0.16e2 * t1725 * t2191 - 0.3e1 / 0.8e1 * t848 * t1746 - 0.3e1 / 0.4e1 * t848 * t1730 + 0.9e1 / 0.16e2 * t1725 * t2198 + 0.9e1 / 0.8e1 * t848 * t1716 + 0.9e1 / 0.4e1 * t77 * t610 - 0.7e1 / 0.16e2 * t84 * t2206 + 0.11e2 / 0.8e1 * t84 * t2210 - 0.15e2 / 0.16e2 * t84 * t1787 * t2213 + 0.11e2 / 0.8e1 * t34 * t2217 * t1772 - 0.25e2 / 0.8e1 * t34 * t2217 * t1867 + 0.15e2 / 0.8e1 * t34 * t2224 * t1872 + 0.11e2 / 0.8e1 * t34 * t2228 - 0.9e1 / 0.16e2 * t77 * t642 - 0.3e1 / 0.8e1 * t34 * t2233 * t452;
1142   t2247 = t183 * t317;
1143   t2285 = -0.11e2 / 0.8e1 * t34 * t2217 * t1819 + 0.3e1 / 0.4e1 * t34 * t2217 * t1798 - t34 * t2217 * t1824 / 0.8e1 - 0.9e1 / 0.8e1 * t34 * t2247 * t487 - 0.9e1 / 0.8e1 * t77 * t621 - 0.9e1 / 0.16e2 * t77 * t653 + 0.9e1 / 0.16e2 * t77 * t589 - 0.9e1 / 0.16e2 * t363 * t646 + 0.9e1 / 0.8e1 * t77 * t649 + 0.3e1 / 0.4e1 * t34 * t68 * t1808 + 0.27e2 / 0.32e2 * t363 * t628 - 0.27e2 / 0.16e2 * t77 * t602 + 0.9e1 / 0.32e2 * t357 * t193 - 0.3e1 * t34 * t2206 - 0.27e2 / 0.16e2 * t77 * t615 + 0.9e1 / 0.4e1 * t34 * t2210 - 0.9e1 / 0.32e2 * t357 * t189 + 0.27e2 / 0.16e2 * t77 * t631 + 0.9e1 / 0.8e1 * t34 * t2233 * t456 - 0.9e1 / 0.8e1 * t77 * t624;
1144   t2309 = t638 * t460;
1145   t2316 = t581 * t86;
1146   t2339 = t1465 * t67;
1147   t2343 = -0.27e2 / 0.32e2 * t363 * t602 + 0.9e1 / 0.8e1 * t84 * t2228 + 0.27e2 / 0.32e2 * t363 * t606 - 0.9e1 / 0.8e1 * t84 * t318 * t2205 + 0.3e1 / 0.8e1 * t34 * t184 * t415 - t34 * t67 * t394 * t141 / 0.8e1 + t34 * t192 * t1898 / 0.8e1 + t34 * t68 * t1906 / 0.8e1 - 0.9e1 / 0.8e1 * t34 * t2309 + 0.9e1 / 0.8e1 * t77 * t639 + 0.9e1 / 0.16e2 * t77 * t586 + 0.3e1 / 0.8e1 * t34 * t2316 * t146 + 0.3e1 / 0.8e1 * t34 * t638 * t491 - 0.3e1 / 0.16e2 * t381 * t646 - 0.3e1 / 0.16e2 * t84 * t306 * t645 - 0.3e1 / 0.8e1 * t34 * t581 * t44 * t141 - 0.3e1 / 0.8e1 * t34 * t183 * t106 * t141 - 0.3e1 / 0.4e1 * t34 * t184 * t439 - 0.11e2 / 0.16e2 * t84 * t310 * t2339;
1148   t2346 = t333 * t183;
1149   t2356 = t313 * t183;
1150   t2370 = my_piecewise3(t18, 0.48e2 * t408, 0);
1151   t2390 = t92 * t581;
1152   t2397 = 0.5e1 / 0.16e2 * t381 * t628 + 0.9e1 / 0.16e2 * t84 * t87 * t2346 - 0.5e1 / 0.16e2 * t381 * t602 - 0.9e1 / 0.16e2 * t84 * t2309 + 0.5e1 / 0.16e2 * t381 * t606 + 0.9e1 / 0.16e2 * t84 * t476 * t2356 + 0.3e1 / 0.2e1 * t34 * t2233 * t482 + 0.3e1 / 0.64e2 * t1458 * t69 - 0.9e1 / 0.32e2 * t357 * t185 - 0.9e1 / 0.16e2 * t77 * t583 - t34 * t2370 * t22 * t48 / 0.8e1 - t84 * t1693 * t178 / 0.16e2 + 0.9e1 / 0.32e2 * t357 * t196 - 0.9e1 / 0.64e2 * t1591 * t179 - 0.9e1 / 0.32e2 * t1597 * t179 - 0.9e1 / 0.32e2 * t363 * t598 - t1652 * t179 / 0.16e2 - t381 * t598 / 0.8e1 - 0.3e1 / 0.16e2 * t84 * t127 * t2390 + 0.3e1 / 0.8e1 * t34 * t582 * t150;
1153   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1154     v4rho3tau[0] = t2237 + t2285 + t2343 + t2397;
1155 
1156   t2399 = 0.3e1 / 0.8e1 * t713;
1157   t2400 = t716 / 0.4e1;
1158   t2401 = t720 / 0.8e1;
1159   t2402 = t659 / 0.4e1;
1160   t2403 = t680 / 0.4e1;
1161   t2404 = t45 * t1849;
1162   t2407 = t798 * t134;
1163   t2411 = t1719 * t134;
1164   t2412 = t786 * t2411;
1165   t2418 = t481 * t2411;
1166   t2421 = -t2399 - t208 + t2400 - t2401 - t2402 + t2403 + 0.3e1 / 0.2e1 * t1715 * t2404 + 0.3e1 / 0.4e1 * t1725 * t772 * t2407 - 0.3e1 / 0.4e1 * t771 * t2412 + 0.3e1 / 0.4e1 * t771 * t790 * t2411 + 0.2e1 * t1715 * t2418;
1167   t2422 = t302 * t134;
1168   t2423 = t45 * t2422;
1169   t2426 = t797 * t2411;
1170   t2431 = t367 * t2411;
1171   t2433 = t1502 * t85;
1172   t2434 = t200 * t2433;
1173   t2438 = 0.3e1 / 0.8e1 * t77 * t658;
1174   t2439 = t204 * t85;
1175   t2442 = 0.3e1 / 0.8e1 * t34 * t2439 * t456;
1176   t2445 = t199 * t85;
1177   t2451 = t1492 * t85;
1178   t2452 = t665 * t2451;
1179   t2455 = -t1715 * t2423 / 0.2e1 - 0.3e1 / 0.2e1 * t1715 * t2426 - 0.3e1 / 0.2e1 * t1715 * t2412 - t1715 * t2431 - 0.3e1 * t34 * t2434 - t2438 + t2442 - 0.3e1 / 0.8e1 * t77 * t662 + 0.3e1 / 0.4e1 * t34 * t2445 * t1798 - 0.9e1 / 0.8e1 * t77 * t667 + 0.9e1 / 0.4e1 * t34 * t2452;
1180   t2460 = 0.3e1 / 0.8e1 * t34 * t204 * t317 * t487;
1181   t2463 = t34 * t2439 * t482 / 0.2e1;
1182   t2467 = t1532 * t85;
1183   t2472 = t1540 * t85;
1184   t2482 = t34 * t2439 * t452 / 0.8e1;
1185   t2492 = -t2460 + t2463 + 0.11e2 / 0.8e1 * t34 * t2445 * t1772 - 0.25e2 / 0.8e1 * t34 * t665 * t2467 + 0.15e2 / 0.8e1 * t34 * t199 * t1536 * t2472 + 0.11e2 / 0.8e1 * t84 * t2452 + 0.9e1 / 0.8e1 * t77 * t727 - t2482 - t34 * t2445 * t1824 / 0.8e1 - 0.11e2 / 0.8e1 * t34 * t2445 * t1819 + 0.3e1 / 0.16e2 * t84 * t665 * t1697;
1186   t2495 = t34 * t678 * t491 / 0.8e1;
1187   t2496 = t313 * t204;
1188   t2499 = 0.3e1 / 0.16e2 * t84 * t476 * t2496;
1189   t2510 = t34 * t204 * t106 * t141 / 0.8e1;
1190   t2511 = t302 * t204;
1191   t2512 = t87 * t2511;
1192   t2514 = 0.3e1 / 0.16e2 * t84 * t2512;
1193   t2521 = t321 * t106;
1194   t2526 = t1532 * t199;
1195   t2530 = t1481 * t85;
1196   t2534 = t2495 + t2499 + t34 * t200 * t1697 / 0.2e1 + 0.3e1 / 0.4e1 * t77 * t688 - 0.9e1 / 0.8e1 * t77 * t671 - t2510 - t2514 - t34 * t199 * t106 * t452 / 0.8e1 - 0.7e1 / 0.16e2 * t84 * t2434 - 0.3e1 / 0.8e1 * t34 * t665 * t2521 - 0.15e2 / 0.16e2 * t84 * t85 * t1536 * t2526 + 0.3e1 / 0.4e1 * t34 * t209 * t2530;
1197   t2539 = t34 * t205 * t439 / 0.4e1;
1198   t2540 = t1475 * t85;
1199   t2541 = t200 * t2540;
1200   t2554 = 0.3e1 / 0.8e1 * t77 * t679;
1201   t2556 = 0.3e1 / 0.8e1 * t34 * t2512;
1202   t2559 = t1465 * t199;
1203   t2565 = -t2539 + 0.11e2 / 0.8e1 * t34 * t2541 - 0.9e1 / 0.16e2 * t363 * t671 + 0.9e1 / 0.8e1 * t84 * t2541 + 0.9e1 / 0.16e2 * t363 * t675 - 0.9e1 / 0.8e1 * t84 * t665 * t2433 + t2554 - t2556 + 0.3e1 / 0.2e1 * t77 * t682 - 0.11e2 / 0.16e2 * t84 * t87 * t2559 - 0.3e1 / 0.8e1 * t363 * t706;
1204   t2577 = 0.3e1 / 0.8e1 * t77 * t715;
1205   t2579 = 0.3e1 / 0.16e2 * t363 * t719;
1206   t2580 = t117 * t410;
1207   t2584 = t200 * t1745;
1208   t2593 = -t381 * t706 / 0.4e1 - t84 * t145 * t1945 / 0.8e1 + 0.5e1 / 0.16e2 * t381 * t710 + 0.3e1 / 0.16e2 * t84 * t200 * t1671 + t2577 - t2579 + t34 * t145 * t2580 / 0.4e1 - 0.3e1 / 0.8e1 * t34 * t2584 + 0.3e1 / 0.4e1 * t77 * t696 - 0.3e1 / 0.4e1 * t77 * t701 + 0.9e1 / 0.16e2 * t363 * t710;
1209   t2595 = t121 * t410;
1210   t2610 = t34 * t205 * t415 / 0.8e1;
1211   t2611 = t333 * t204;
1212   t2614 = 0.3e1 / 0.16e2 * t84 * t87 * t2611;
1213   t2616 = t381 * t719 / 0.16e2;
1214   t2619 = t84 * t306 * t718 / 0.16e2;
1215   t2625 = t34 * t55 * t2595 / 0.4e1 - 0.5e1 / 0.16e2 * t381 * t671 - 0.3e1 / 0.16e2 * t84 * t2584 + 0.5e1 / 0.16e2 * t381 * t675 + 0.3e1 / 0.8e1 * t34 * t209 * t1671 + t2610 + t2614 - t2616 - t2619 - 0.3e1 / 0.4e1 * t77 * t724 - t34 * t55 * t1945 / 0.4e1;
1216   t2631 = t134 * t134;
1217   t2632 = t2631 * t22;
1218   t2638 = t2631 * t86;
1219   t2643 = 0.3e1 / 0.32e2 * t357 * t206;
1220   t2658 = -t34 * t209 * t1708 / 0.4e1 - 0.3e1 / 0.32e2 * t357 * t210 - t34 * t2632 * t92 / 0.4e1 - 0.3e1 / 0.64e2 * t1591 * t201 - t84 * t2638 * t92 / 0.8e1 - t2643 + t34 * t2638 * t117 / 0.4e1 + 0.3e1 / 0.32e2 * t357 * t216 + t34 * t2632 * t121 / 0.4e1 + 0.3e1 / 0.32e2 * t357 * t213 - 0.3e1 / 0.16e2 * t1597 * t201 - t1652 * t201 / 0.16e2;
1221   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1222     v4rho2sigma2[0] = t2421 + t2455 + t2492 + t2534 + t2565 + t2593 + t2625 + t2658;
1223 
1224   t2661 = t4 * M_PI;
1225   t2662 = t2661 * t778;
1226   t2667 = t1464 * t61;
1227   t2668 = t2667 * t85;
1228   t2669 = t481 * t2668;
1229   t2672 = t797 * t2668;
1230   t2675 = t1536 * t1531;
1231   t2679 = t145 * t2451;
1232   t2682 = t486 * t2467;
1233   t2685 = -t2399 - t208 + t2400 - t2401 - t2402 + t2403 + 0.9e1 / 0.8e1 * t2662 * t780 - 0.3e1 / 0.8e1 * t2662 * t783 - 0.7e1 / 0.16e2 * t771 * t2669 + 0.11e2 / 0.8e1 * t771 * t2672 - 0.15e2 / 0.16e2 * t771 * t2675 * t2668 + 0.11e2 / 0.8e1 * t779 * t2679 - 0.25e2 / 0.8e1 * t779 * t2682;
1234   t2686 = t1536 * t1539;
1235   t2687 = t1464 * t54;
1236   t2688 = t2687 * t85;
1237   t2689 = t2686 * t2688;
1238   t2692 = t111 * t1856;
1239   t2695 = t450 * t1798;
1240   t2698 = t450 * t1824;
1241   t2701 = t786 * t2688;
1242   t2704 = t367 * t2688;
1243   t2707 = t2661 * t770;
1244   t2710 = t786 * t2668;
1245   t2720 = t145 * t2433;
1246   t2725 = t797 * t2688;
1247   t2728 = 0.15e2 / 0.8e1 * t779 * t2689 - 0.11e2 / 0.8e1 * t779 * t2692 + 0.3e1 / 0.4e1 * t779 * t2695 - t779 * t2698 / 0.8e1 + 0.11e2 / 0.8e1 * t779 * t2701 + 0.3e1 / 0.4e1 * t779 * t2704 - 0.9e1 / 0.16e2 * t2707 * t787 + 0.9e1 / 0.8e1 * t771 * t2710 + 0.9e1 / 0.16e2 * t2707 * t791 - 0.9e1 / 0.8e1 * t771 * t790 * t2668 + 0.3e1 / 0.2e1 * t2662 * t794 - 0.3e1 * t779 * t2720 - 0.9e1 / 0.8e1 * t2662 * t800 + 0.9e1 / 0.4e1 * t779 * t2725;
1248   t2731 = t31 * t380 * t54;
1249   t2735 = t31 * t83 * t134;
1250   t2739 = t301 * t160 * t44;
1251   t2740 = t790 * t2739;
1252   t2746 = t31 * t33 * t160;
1253   t2749 = t145 * t1697;
1254   t2756 = t797 * t1726;
1255   t2765 = 0.5e1 / 0.16e2 * t2731 * t791 + 0.3e1 / 0.8e1 * t2735 * t791 + 0.3e1 / 0.8e1 * t771 * t2740 + 0.3e1 / 0.16e2 * t771 * t1963 + t2746 * t794 + t779 * t2418 + t779 * t2749 / 0.2e1 - 0.3e1 / 0.4e1 * t2746 * t800 - 0.3e1 / 0.4e1 * t779 * t2426 - 0.3e1 / 0.8e1 * t779 * t2756 - 0.9e1 / 0.8e1 * t2662 * t803 - 0.3e1 / 0.4e1 * t2746 * t803 - 0.3e1 / 0.4e1 * t779 * t2412;
1256   t2772 = t786 * t2739;
1257   t2779 = t2661 * t1724;
1258   t2787 = t367 * t1726;
1259   t2791 = t31 * t83 * t85;
1260   t2792 = t2667 * t54;
1261   t2803 = -0.3e1 / 0.8e1 * t779 * t1739 - 0.5e1 / 0.16e2 * t2731 * t787 - 0.3e1 / 0.8e1 * t2735 * t787 - 0.3e1 / 0.8e1 * t771 * t2772 - 0.3e1 / 0.16e2 * t771 * t1968 - 0.3e1 / 0.4e1 * t2662 * t806 + 0.9e1 / 0.16e2 * t2779 * t772 * t1241 - t2746 * t806 / 0.2e1 - t779 * t2431 / 0.2e1 - t779 * t2787 / 0.4e1 - 0.11e2 / 0.16e2 * t2791 * t772 * t2792 + 0.5e1 / 0.16e2 * t2731 * t775 + 0.3e1 / 0.8e1 * t2735 * t775 + 0.3e1 / 0.8e1 * t771 * t772 * t2739;
1262   t2812 = t55 * t1671;
1263   t2819 = t435 * t452;
1264   t2840 = 0.3e1 / 0.16e2 * t771 * t1973 + 0.3e1 / 0.4e1 * t2746 * t780 + 0.3e1 / 0.4e1 * t779 * t2404 + 0.3e1 / 0.8e1 * t779 * t2812 - t2746 * t783 / 0.4e1 - t779 * t2423 / 0.4e1 - t779 * t2819 / 0.8e1 + 0.3e1 / 0.8e1 * t77 * t767 + 0.3e1 / 0.32e2 * t357 * t227 + 0.3e1 / 0.32e2 * t357 * t231 - t34 * t501 * t54 * t141 / 0.8e1 - t34 * t160 * t134 * t141 / 0.4e1 - t34 * t61 * t410 * t141 / 0.8e1;
1265   t2877 = t34 * t2107 * t226 / 0.8e1 + t34 * t561 * t687 / 0.4e1 + t34 * t169 * t2580 / 0.8e1 + t34 * t161 * t695 / 0.4e1 + t34 * t62 * t2595 / 0.8e1 - t1652 * t219 / 0.16e2 - t381 * t749 / 0.8e1 - t381 * t752 / 0.8e1 - t84 * t1934 * t156 / 0.16e2 - t84 * t446 * t511 / 0.8e1 - t84 * t145 * t2100 / 0.16e2 + 0.3e1 / 0.8e1 * t77 * t741 + 0.3e1 / 0.8e1 * t77 * t744 - 0.3e1 / 0.16e2 * t1597 * t219;
1266   t2896 = -0.3e1 / 0.16e2 * t363 * t749 - 0.3e1 / 0.16e2 * t363 * t752 - 0.3e1 / 0.8e1 * t77 * t756 - 0.3e1 / 0.8e1 * t77 * t761 + t34 * t502 * t230 / 0.8e1 + 0.3e1 / 0.8e1 * t77 * t764 - t2438 + t2442 - t2460 + t2463 - t2482 - 0.3e1 / 0.32e2 * t357 * t223 - 0.3e1 / 0.64e2 * t1591 * t219;
1267   t2897 = t2495 + t2499 - t2510 - t2514 - t2539 + t2554 - t2556 + t2577 - t2579 + t2610 + t2614 - t2616 - t2619 - t2643;
1268   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1269     v4rho2sigmalapl[0] = t2685 + t2728 + t2765 + t2803 + t2840 + t2877 + t2896 + t2897;
1270 
1271   t2900 = t1464 * t67;
1272   t2901 = t2900 * t85;
1273   t2902 = t797 * t2901;
1274   t2905 = t2661 * t847;
1275   t2918 = -t2399 - t208 + t2400 - t2401 - t2402 + t2403 + 0.11e2 / 0.8e1 * t771 * t2902 - 0.9e1 / 0.8e1 * t2905 * t800 + 0.9e1 / 0.4e1 * t848 * t2725 - 0.9e1 / 0.16e2 * t2707 * t853 - 0.3e1 / 0.8e1 * t2905 * t783 + 0.11e2 / 0.8e1 * t848 * t2679 - 0.25e2 / 0.8e1 * t848 * t2682;
1276   t2921 = t481 * t2901;
1277   t2932 = t786 * t2901;
1278   t2937 = t790 * t2901;
1279   t2950 = 0.15e2 / 0.8e1 * t848 * t2689 - 0.7e1 / 0.16e2 * t771 * t2921 + 0.3e1 / 0.4e1 * t848 * t2695 - t848 * t2698 / 0.8e1 + 0.11e2 / 0.8e1 * t848 * t2701 + 0.3e1 / 0.4e1 * t848 * t2704 + 0.9e1 / 0.8e1 * t771 * t2932 + 0.9e1 / 0.16e2 * t2707 * t856 - 0.9e1 / 0.8e1 * t771 * t2937 + 0.3e1 / 0.2e1 * t2905 * t794 - 0.3e1 * t848 * t2720 + 0.9e1 / 0.8e1 * t2905 * t780 - 0.11e2 / 0.8e1 * t848 * t2692 - 0.9e1 / 0.8e1 * t2905 * t803;
1280   t2953 = t31 * t33 * t183;
1281   t2960 = t2900 * t54;
1282   t2961 = t2675 * t2960;
1283   t2968 = t301 * t183;
1284   t2969 = t2968 * t44;
1285   t2970 = t786 * t2969;
1286   t2979 = t790 * t2969;
1287   t2986 = -0.3e1 / 0.4e1 * t2953 * t800 - 0.3e1 / 0.4e1 * t848 * t2426 - 0.3e1 / 0.8e1 * t848 * t2756 - 0.15e2 / 0.16e2 * t2791 * t2961 - 0.5e1 / 0.16e2 * t2731 * t853 - 0.3e1 / 0.8e1 * t2735 * t853 - 0.3e1 / 0.8e1 * t771 * t2970 - 0.3e1 / 0.16e2 * t771 * t2188 + 0.5e1 / 0.16e2 * t2731 * t856 + 0.3e1 / 0.8e1 * t2735 * t856 + 0.3e1 / 0.8e1 * t771 * t2979 + 0.3e1 / 0.16e2 * t771 * t2191 - 0.3e1 / 0.4e1 * t2905 * t806;
1288   t3012 = t772 * t2969;
1289   t3015 = 0.9e1 / 0.16e2 * t2779 * t1249 - t2953 * t806 / 0.2e1 - t848 * t2431 / 0.2e1 - t848 * t2787 / 0.4e1 - 0.11e2 / 0.16e2 * t2791 * t772 * t2960 + t2953 * t794 + t848 * t2418 + t848 * t2749 / 0.2e1 + 0.3e1 / 0.4e1 * t2953 * t780 + 0.3e1 / 0.4e1 * t848 * t2404 + 0.3e1 / 0.8e1 * t848 * t2812 + 0.5e1 / 0.16e2 * t2731 * t867 + 0.3e1 / 0.8e1 * t2735 * t867 + 0.3e1 / 0.8e1 * t771 * t3012;
1290   t3044 = 0.3e1 / 0.16e2 * t771 * t2198 - t2953 * t783 / 0.4e1 - t848 * t2423 / 0.4e1 - t848 * t2819 / 0.8e1 - 0.3e1 / 0.4e1 * t2953 * t803 - 0.3e1 / 0.4e1 * t848 * t2412 - 0.3e1 / 0.8e1 * t848 * t1739 - 0.3e1 / 0.16e2 * t363 * t820 - 0.3e1 / 0.16e2 * t363 * t823 - 0.3e1 / 0.8e1 * t77 * t827 - 0.3e1 / 0.8e1 * t77 * t831 - 0.3e1 / 0.32e2 * t357 * t238 + 0.3e1 / 0.32e2 * t357 * t244;
1291   t3085 = -0.3e1 / 0.64e2 * t1591 * t234 + 0.3e1 / 0.32e2 * t357 * t241 + t34 * t68 * t2595 / 0.8e1 - t34 * t581 * t54 * t141 / 0.8e1 - t34 * t183 * t134 * t141 / 0.4e1 - t34 * t67 * t410 * t141 / 0.8e1 + t34 * t2316 * t226 / 0.8e1 + t34 * t638 * t687 / 0.4e1 + t34 * t192 * t2580 / 0.8e1 + t34 * t582 * t230 / 0.8e1 + t34 * t184 * t695 / 0.4e1 - t1652 * t234 / 0.16e2 - t381 * t820 / 0.8e1 - t381 * t823 / 0.8e1;
1292   t3106 = -t84 * t1934 * t178 / 0.16e2 - t84 * t446 * t645 / 0.8e1 - t84 * t145 * t2390 / 0.16e2 + 0.3e1 / 0.8e1 * t77 * t834 + 0.3e1 / 0.8e1 * t77 * t837 + 0.3e1 / 0.8e1 * t77 * t840 + 0.3e1 / 0.8e1 * t77 * t844 - 0.3e1 / 0.16e2 * t1597 * t234 - t2438 + t2442 - t2460 + t2463 - t2482;
1293   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1294     v4rho2sigmatau[0] = t2918 + t2950 + t2986 + t3015 + t3044 + t3085 + t3106 + t2897;
1295 
1296   t3109 = t302 * t160;
1297   t3110 = t45 * t3109;
1298   t3115 = t367 * t2739;
1299   t3117 = t773 * t160;
1300   t3121 = t140 * t2739;
1301   t3124 = -t2399 - t208 + t2400 - t2401 - t2402 + t2403 - t779 * t3110 / 0.2e1 - 0.3e1 / 0.4e1 * t965 * t2772 - t779 * t3115 + 0.3e1 / 0.4e1 * t1725 * t772 * t3117 + 0.3e1 / 0.2e1 * t779 * t3121;
1302   t3129 = t481 * t2739;
1303   t3132 = t797 * t2739;
1304   t3135 = t247 * t85;
1305   t3139 = t880 * t2451;
1306   t3142 = t247 * t1536;
1307   t3155 = t248 * t2540;
1308   t3158 = -0.3e1 / 0.2e1 * t779 * t2772 + 0.3e1 / 0.4e1 * t965 * t2740 + 0.2e1 * t779 * t3129 - 0.3e1 / 0.2e1 * t779 * t3132 + 0.11e2 / 0.8e1 * t34 * t3135 * t1772 + 0.11e2 / 0.8e1 * t84 * t3139 - 0.15e2 / 0.16e2 * t84 * t3142 * t2467 - 0.25e2 / 0.8e1 * t34 * t880 * t2467 + 0.15e2 / 0.8e1 * t34 * t3142 * t2472 - t34 * t3135 * t1824 / 0.8e1 + 0.9e1 / 0.8e1 * t84 * t3155;
1309   t3167 = t248 * t2433;
1310   t3183 = t121 * t501;
1311   t3187 = 0.9e1 / 0.16e2 * t363 * t881 - 0.9e1 / 0.8e1 * t84 * t880 * t2433 + 0.3e1 / 0.2e1 * t77 * t884 - 0.3e1 * t34 * t3167 - 0.9e1 / 0.8e1 * t77 * t887 + 0.9e1 / 0.4e1 * t34 * t3139 - 0.3e1 / 0.8e1 * t77 * t874 + 0.3e1 / 0.4e1 * t34 * t3135 * t1798 - 0.9e1 / 0.16e2 * t363 * t877 + 0.9e1 / 0.16e2 * t363 * t921 + t34 * t62 * t3183 / 0.4e1;
1312   t3205 = t248 * t1745;
1313   t3219 = -t34 * t252 * t1708 / 0.4e1 + 0.9e1 / 0.8e1 * t77 * t895 - t34 * t62 * t2100 / 0.4e1 + 0.3e1 / 0.8e1 * t34 * t252 * t1671 + 0.3e1 / 0.4e1 * t77 * t901 - 0.9e1 / 0.8e1 * t77 * t877 - 0.5e1 / 0.16e2 * t381 * t877 - 0.3e1 / 0.16e2 * t84 * t3205 + 0.5e1 / 0.16e2 * t381 * t881 + 0.3e1 / 0.16e2 * t84 * t880 * t1697 + t34 * t248 * t1697 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t880 * t2521;
1314   t3239 = t1465 * t247;
1315   t3252 = -0.3e1 / 0.4e1 * t77 * t892 - t34 * t247 * t106 * t452 / 0.8e1 - 0.7e1 / 0.16e2 * t84 * t3167 + 0.11e2 / 0.8e1 * t34 * t3155 + 0.3e1 / 0.4e1 * t34 * t252 * t2530 - 0.11e2 / 0.8e1 * t34 * t252 * t1465 * t85 - 0.11e2 / 0.16e2 * t84 * t87 * t3239 - 0.3e1 / 0.8e1 * t363 * t918 - t381 * t918 / 0.4e1 - t84 * t169 * t2100 / 0.8e1 + 0.5e1 / 0.16e2 * t381 * t921;
1316   t3256 = t117 * t501;
1317   t3266 = 0.3e1 / 0.16e2 * t84 * t248 * t1671 + t34 * t169 * t3256 / 0.4e1 - 0.3e1 / 0.8e1 * t34 * t3205 + 0.3e1 / 0.4e1 * t77 * t910 - 0.3e1 / 0.4e1 * t77 * t913 - t2438 + t2442 - t2460 + t2463 - t2482 + t2495;
1318   t3268 = t2499 - t2510 - t2514 - t2539 + t2554 - t2556 + t2577 - t2579 + t2610 + t2614 - t2616;
1319   t3271 = t160 * t160;
1320   t3272 = t3271 * t86;
1321   t3281 = t3271 * t22;
1322   t3296 = -t2619 - t2643 - 0.3e1 / 0.64e2 * t1591 * t249 - t84 * t3272 * t92 / 0.8e1 + t34 * t3272 * t117 / 0.4e1 + 0.3e1 / 0.32e2 * t357 * t259 + t34 * t3281 * t121 / 0.4e1 - t34 * t3281 * t92 / 0.4e1 + 0.3e1 / 0.32e2 * t357 * t256 - 0.3e1 / 0.32e2 * t357 * t253 - 0.3e1 / 0.16e2 * t1597 * t249 - t1652 * t249 / 0.16e2;
1323   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1324     v4rho2lapl2[0] = t3124 + t3158 + t3187 + t3219 + t3252 + t3266 + t3268 + t3296;
1325 
1326   t3317 = -t2399 - t208 + t2400 - t2401 - t2402 + t2403 - 0.7e1 / 0.16e2 * t965 * t2921 + 0.11e2 / 0.8e1 * t965 * t2902 - 0.15e2 / 0.16e2 * t965 * t2675 * t2901 + 0.11e2 / 0.8e1 * t848 * t169 * t2451 - 0.25e2 / 0.8e1 * t848 * t536 * t2467 + 0.15e2 / 0.8e1 * t848 * t2686 * t2668 + 0.11e2 / 0.8e1 * t848 * t2710;
1327   t3335 = t2661 * t964;
1328   t3351 = -0.11e2 / 0.8e1 * t848 * t111 * t2136 + 0.3e1 / 0.4e1 * t848 * t531 * t1798 - 0.3e1 * t848 * t2669 - 0.9e1 / 0.8e1 * t2905 * t973 + 0.9e1 / 0.4e1 * t848 * t2672 - 0.3e1 / 0.4e1 * t2905 * t976 + 0.3e1 / 0.4e1 * t848 * t367 * t2668 - 0.9e1 / 0.16e2 * t3335 * t853 + 0.9e1 / 0.8e1 * t965 * t2932 + 0.9e1 / 0.16e2 * t3335 * t856 - 0.9e1 / 0.8e1 * t965 * t2937 + 0.3e1 / 0.2e1 * t2905 * t970 - 0.3e1 / 0.8e1 * t2905 * t986 - t848 * t531 * t1824 / 0.8e1;
1329   t3372 = t31 * t380 * t61;
1330   t3376 = t31 * t83 * t160;
1331   t3387 = -0.3e1 / 0.4e1 * t2953 * t973 - 0.3e1 / 0.4e1 * t848 * t3132 - 0.3e1 / 0.8e1 * t848 * t797 * t1962 - t2953 * t976 / 0.2e1 - t848 * t3115 / 0.2e1 - t848 * t367 * t1962 / 0.4e1 - 0.11e2 / 0.16e2 * t2791 * t772 * t2900 * t61 - 0.5e1 / 0.16e2 * t3372 * t853 - 0.3e1 / 0.8e1 * t3376 * t853 - 0.3e1 / 0.8e1 * t965 * t2970 - 0.3e1 / 0.16e2 * t965 * t2188 + 0.5e1 / 0.16e2 * t3372 * t856 + 0.3e1 / 0.8e1 * t3376 * t856;
1332   t3416 = 0.3e1 / 0.8e1 * t965 * t2979 + 0.3e1 / 0.16e2 * t965 * t2191 + t2953 * t970 + t848 * t3129 + t848 * t169 * t1697 / 0.2e1 - 0.9e1 / 0.8e1 * t2905 * t787 - 0.3e1 / 0.4e1 * t2953 * t787 - 0.3e1 / 0.4e1 * t848 * t2772 - 0.3e1 / 0.8e1 * t848 * t1968 - t2953 * t986 / 0.4e1 - t848 * t3110 / 0.4e1 - t848 * t518 * t452 / 0.8e1 + 0.9e1 / 0.16e2 * t3335 * t867 + 0.5e1 / 0.16e2 * t3372 * t867;
1333   t3446 = 0.3e1 / 0.8e1 * t3376 * t867 + 0.3e1 / 0.8e1 * t965 * t3012 + 0.3e1 / 0.16e2 * t965 * t2198 + 0.9e1 / 0.8e1 * t2905 * t981 + 0.3e1 / 0.4e1 * t2953 * t981 + 0.3e1 / 0.4e1 * t848 * t3121 + 0.3e1 / 0.8e1 * t848 * t62 * t1671 - 0.3e1 / 0.16e2 * t363 * t941 - 0.3e1 / 0.8e1 * t77 * t953 - 0.3e1 / 0.8e1 * t77 * t957 + 0.3e1 / 0.8e1 * t77 * t961 + 0.3e1 / 0.8e1 * t77 * t927 + 0.3e1 / 0.8e1 * t77 * t930;
1334   t3486 = 0.3e1 / 0.8e1 * t77 * t933 - 0.3e1 / 0.64e2 * t1591 * t262 + 0.3e1 / 0.32e2 * t357 * t270 + t34 * t582 * t273 / 0.8e1 + t34 * t184 * t909 / 0.4e1 + t34 * t68 * t3183 / 0.8e1 - t1652 * t262 / 0.16e2 - t381 * t938 / 0.8e1 - t381 * t941 / 0.8e1 - t84 * t2107 * t178 / 0.16e2 - t84 * t561 * t645 / 0.8e1 - t34 * t581 * t61 * t141 / 0.8e1 - t34 * t183 * t160 * t141 / 0.4e1 - t34 * t67 * t501 * t141 / 0.8e1;
1335   t3508 = t34 * t2316 * t269 / 0.8e1 + t34 * t638 * t900 / 0.4e1 + t34 * t192 * t3256 / 0.8e1 - 0.3e1 / 0.16e2 * t1597 * t262 - 0.3e1 / 0.16e2 * t363 * t938 - t84 * t169 * t2390 / 0.16e2 + 0.3e1 / 0.32e2 * t357 * t274 - 0.3e1 / 0.32e2 * t357 * t266 - t2438 + t2442 - t2460 + t2463 - t2482;
1336   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1337     v4rho2lapltau[0] = t3317 + t3351 + t3387 + t3416 + t3446 + t3486 + t3508 + t2897;
1338 
1339   t3521 = t31 * t83 * t67;
1340   t3526 = -t2399 - t208 + t2400 - t2401 - t2402 + t2403 + 0.3e1 / 0.2e1 * t848 * t45 * t2346 - t848 * t367 * t2969 + 0.3e1 / 0.4e1 * t1725 * t772 * t851 * t183 - 0.3e1 / 0.4e1 * t3521 * t2970 + 0.3e1 / 0.4e1 * t3521 * t2979;
1341   t3533 = t302 * t183;
1342   t3539 = t277 * t85;
1343   t3559 = 0.2e1 * t848 * t481 * t2969 - 0.3e1 / 0.2e1 * t848 * t797 * t2969 - t848 * t45 * t3533 / 0.2e1 - 0.3e1 / 0.2e1 * t848 * t2970 - t34 * t3539 * t1824 / 0.8e1 - 0.11e2 / 0.8e1 * t34 * t3539 * t1819 - 0.3e1 / 0.8e1 * t77 * t991 + 0.3e1 / 0.4e1 * t34 * t3539 * t1798 - 0.9e1 / 0.16e2 * t363 * t994 + t34 * t278 * t1697 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t997 * t2521;
1344   t3561 = t278 * t1745;
1345   t3573 = t87 * t1502 * t277;
1346   t3590 = -0.3e1 / 0.8e1 * t34 * t3561 + 0.3e1 / 0.4e1 * t77 * t1012 - 0.3e1 / 0.4e1 * t77 * t1015 - t34 * t277 * t106 * t452 / 0.8e1 - 0.7e1 / 0.16e2 * t84 * t3573 - 0.5e1 / 0.16e2 * t381 * t994 - 0.3e1 / 0.16e2 * t84 * t3561 + 0.5e1 / 0.16e2 * t381 * t998 + 0.3e1 / 0.16e2 * t84 * t997 * t1697 + 0.9e1 / 0.8e1 * t77 * t1034 + 0.3e1 / 0.4e1 * t34 * t282 * t2530;
1347   t3593 = t278 * t2540;
1348   t3609 = t997 * t2451;
1349   t3621 = -0.9e1 / 0.8e1 * t77 * t994 + 0.11e2 / 0.8e1 * t34 * t3593 + 0.9e1 / 0.8e1 * t84 * t3593 + 0.9e1 / 0.16e2 * t363 * t998 - 0.9e1 / 0.8e1 * t84 * t997 * t2433 + 0.3e1 / 0.2e1 * t77 * t1001 - 0.3e1 * t34 * t3573 - 0.9e1 / 0.8e1 * t77 * t1004 + 0.9e1 / 0.4e1 * t34 * t3609 + 0.3e1 / 0.8e1 * t34 * t282 * t1671 + 0.3e1 / 0.4e1 * t77 * t1040 + t34 * t192 * t117 * t581 / 0.4e1;
1350   t3644 = t1465 * t277;
1351   t3654 = -t84 * t192 * t2390 / 0.8e1 + 0.3e1 / 0.16e2 * t84 * t278 * t1671 - 0.3e1 / 0.4e1 * t77 * t1031 - t34 * t68 * t2390 / 0.4e1 + 0.9e1 / 0.16e2 * t363 * t1026 + t34 * t68 * t121 * t581 / 0.4e1 - t34 * t282 * t1708 / 0.4e1 - 0.11e2 / 0.16e2 * t84 * t87 * t3644 - t381 * t1023 / 0.4e1 + 0.5e1 / 0.16e2 * t381 * t1026 - 0.3e1 / 0.8e1 * t363 * t1023;
1352   t3655 = t277 * t1536;
1353   t3670 = -0.15e2 / 0.16e2 * t84 * t3655 * t2467 - 0.25e2 / 0.8e1 * t34 * t997 * t2467 + 0.15e2 / 0.8e1 * t34 * t3655 * t2472 + 0.11e2 / 0.8e1 * t34 * t3539 * t1772 + 0.11e2 / 0.8e1 * t84 * t3609 - t2438 + t2442 - t2460 + t2463 - t2482 + t2495;
1354   t3674 = t183 * t183;
1355   t3675 = t3674 * t86;
1356   t3684 = t3674 * t22;
1357   t3699 = -t2619 - t2643 + 0.3e1 / 0.32e2 * t357 * t286 + t34 * t3675 * t117 / 0.4e1 - t84 * t3675 * t92 / 0.8e1 - 0.3e1 / 0.32e2 * t357 * t283 - t34 * t3684 * t92 / 0.4e1 + t34 * t3684 * t121 / 0.4e1 - 0.3e1 / 0.16e2 * t1597 * t279 - 0.3e1 / 0.64e2 * t1591 * t279 + 0.3e1 / 0.32e2 * t357 * t289 - t1652 * t279 / 0.16e2;
1358   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1359     v4rho2tau2[0] = t3526 + t3559 + t3590 + t3621 + t3654 + t3670 + t3268 + t3699;
1360 
1361   t3703 = t31 * t33 * t204;
1362   t3704 = t3703 * t780;
1363   t3706 = t301 * t204;
1364   t3707 = t3706 * t54;
1365   t3708 = t786 * t3707;
1366   t3709 = t1725 * t3708;
1367   t3711 = t3703 * t783;
1368   t3713 = t3703 * t803;
1369   t3716 = t1725 * t790 * t3707;
1370   t3718 = t3706 * t44;
1371   t3720 = t771 * t772 * t3718;
1372   t3722 = t3703 * t806;
1373   t3724 = t3703 * t800;
1374   t3726 = t3703 * t794;
1375   t3728 = t1492 * t44;
1376   t3732 = t1532 * t44;
1377   t3736 = -t714 - t208 + t717 - t721 - t660 + t681 + 0.9e1 / 0.8e1 * t3704 - 0.9e1 / 0.16e2 * t3709 - 0.3e1 / 0.8e1 * t3711 - 0.9e1 / 0.8e1 * t3713 + 0.9e1 / 0.16e2 * t3716 + 0.9e1 / 0.16e2 * t3720 - 0.3e1 / 0.4e1 * t3722 - 0.9e1 / 0.8e1 * t3724 + 0.3e1 / 0.2e1 * t3726 + 0.11e2 / 0.8e1 * t34 * t1053 * t3728 - 0.25e2 / 0.8e1 * t34 * t1057 * t3732;
1378   t3737 = t1048 * t1536;
1379   t3738 = t1540 * t44;
1380   t3746 = t321 * t134;
1381   t3750 = t1057 * t3728;
1382   t3758 = t200 * t2422;
1383   t3761 = t1475 * t44;
1384   t3762 = t1053 * t3761;
1385   t3770 = t34 * t204 * t134 * t141;
1386   t3779 = t127 * t1502 * t1048;
1387   t3786 = t363 * t1090;
1388   t3788 = t77 * t1096;
1389   t3790 = t77 * t1045;
1390   t3792 = t77 * t1067;
1391   t3794 = 0.15e2 / 0.8e1 * t34 * t3737 * t3738 - t1079 * t671 / 0.8e1 + t1079 * t675 / 0.8e1 - 0.9e1 / 0.8e1 * t34 * t665 * t3746 + 0.9e1 / 0.4e1 * t34 * t3750 - 0.15e2 / 0.16e2 * t84 * t44 * t1536 * t1532 * t1048 - 0.9e1 / 0.16e2 * t84 * t3758 + 0.9e1 / 0.8e1 * t84 * t3762 + 0.9e1 / 0.16e2 * t84 * t665 * t1941 - 0.3e1 / 0.8e1 * t3770 - 0.3e1 / 0.8e1 * t34 * t209 * t2422 + 0.3e1 / 0.4e1 * t34 * t1049 * t3761 - 0.7e1 / 0.16e2 * t84 * t3779 - t34 * t1048 * t44 * t1824 / 0.8e1 - 0.9e1 / 0.32e2 * t3786 + 0.9e1 / 0.16e2 * t3788 - 0.9e1 / 0.16e2 * t3790 + 0.9e1 / 0.16e2 * t3792;
1392   t3796 = t381 * t1090;
1393   t3799 = t84 * t446 * t718;
1394   t3804 = t1502 * t44;
1395   t3809 = t34 * t678 * t687;
1396   t3818 = t1465 * t44;
1397   t3832 = t34 * t205 * t695;
1398   t3836 = t340 * t134;
1399   t3840 = t1481 * t44;
1400   t3848 = -0.3e1 / 0.16e2 * t3796 - 0.3e1 / 0.16e2 * t3799 + 0.9e1 / 0.16e2 * t84 * t200 * t1849 - 0.9e1 / 0.8e1 * t84 * t1057 * t3804 + 0.3e1 / 0.8e1 * t3809 - t1079 * t706 / 0.8e1 + t1079 * t710 / 0.8e1 + 0.9e1 / 0.8e1 * t34 * t209 * t1849 - 0.11e2 / 0.8e1 * t34 * t1049 * t3818 - 0.9e1 / 0.8e1 * t34 * t3758 + 0.3e1 / 0.2e1 * t34 * t200 * t1941 - 0.3e1 * t34 * t3779 + 0.11e2 / 0.8e1 * t84 * t3750 + 0.3e1 / 0.8e1 * t3832 + 0.11e2 / 0.8e1 * t34 * t3762 - 0.3e1 / 0.4e1 * t34 * t209 * t3836 + 0.3e1 / 0.4e1 * t34 * t1049 * t3840 - 0.11e2 / 0.16e2 * t84 * t127 * t1465 * t1048;
1401   t3853 = t2661 * t1078;
1402   t3877 = t82 * t44 * t86;
1403   t3893 = t91 * t44;
1404   t3894 = t772 * t3893;
1405   t3897 = t1622 * t44;
1406   t3898 = t91 * t54;
1407   t3899 = t772 * t3898;
1408   t3905 = t45 * t92;
1409   t3908 = t786 * t3893;
1410   t3911 = t367 * t3893;
1411   t3926 = t3877 * t128 / 0.4e1 + t32 * t134 * t368 / 0.2e1 + t1070 * t44 * t141 / 0.2e1 - t1070 * t86 * t146 / 0.2e1 - t1070 * t22 * t150 / 0.2e1 - t1618 * t54 * t3894 / 0.2e1 + t3897 * t3899 / 0.2e1 + t372 * t134 * t368 / 0.2e1 + t1072 * t3905 / 0.2e1 - t1072 * t3908 / 0.2e1 - t1072 * t3911 / 0.2e1 - t1636 * t54 * t368 / 0.2e1 - t375 * t134 * t368 / 0.2e1 - t1074 * t3905 / 0.2e1 + t1074 * t3908 / 0.2e1 + t1074 * t3911 / 0.2e1;
1412   t3928 = t31 * t2 * t3926;
1413   t3931 = -t1047 - 0.3e1 / 0.8e1 * t77 * t1087 + 0.9e1 / 0.32e2 * t363 * t1093 - 0.3e1 / 0.32e2 * t3853 * t201 + 0.9e1 / 0.16e2 * t77 * t1082 - 0.9e1 / 0.16e2 * t77 * t1061 - 0.9e1 / 0.16e2 * t77 * t1058 - 0.9e1 / 0.32e2 * t363 * t1061 + 0.9e1 / 0.32e2 * t363 * t1064 - 0.3e1 / 0.16e2 * t77 * t1050 + 0.3e1 / 0.4e1 * t77 * t1054 + 0.3e1 / 0.16e2 * t381 * t1093 - 0.3e1 / 0.16e2 * t381 * t1061 + 0.3e1 / 0.16e2 * t381 * t1064 - t3928 * t201 / 0.16e2 + t1069 - t1092 + t1098;
1414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1415     v4rhosigma3[0] = t3736 + t3794 + t3848 + t3931;
1416 
1417   t3933 = t657 * t452;
1418   t3934 = t779 * t3933;
1419   t3935 = t3934 / 0.8e1;
1420   t3936 = t661 * t1798;
1421   t3939 = t661 * t1824;
1422   t3942 = t145 * t1941;
1423   t3944 = t200 * t3804;
1424   t3947 = t205 * t709;
1425   t3948 = t779 * t3947;
1426   t3949 = 0.3e1 / 0.8e1 * t3948;
1427   t3950 = -t714 - t208 + t717 - t721 - t660 + t681 - t3935 + 0.3e1 / 0.4e1 * t779 * t3936 - t779 * t3939 / 0.8e1 + t779 * t3942 - 0.3e1 * t779 * t3944 + t3949;
1428   t3951 = t773 * t204;
1429   t3952 = t786 * t3951;
1430   t3953 = t1725 * t3952;
1431   t3954 = 0.3e1 / 0.16e2 * t3953;
1432   t3955 = t786 * t3718;
1433   t3956 = t779 * t3955;
1434   t3957 = 0.3e1 / 0.8e1 * t3956;
1435   t3958 = t790 * t3951;
1436   t3959 = t1725 * t3958;
1437   t3960 = 0.3e1 / 0.16e2 * t3959;
1438   t3961 = t367 * t3718;
1439   t3962 = t779 * t3961;
1440   t3963 = t3962 / 0.4e1;
1441   t3964 = t367 * t2407;
1442   t3967 = t2667 * t199;
1443   t3971 = t773 * t134;
1444   t3975 = t55 * t2422;
1445   t3979 = t1464 * t199 * t44;
1446   t3980 = t797 * t3979;
1447   t3983 = t797 * t2407;
1448   t3986 = t55 * t1849;
1449   t3989 = t209 * t3818;
1450   t3992 = t786 * t3979;
1451   t3995 = -t3954 - t3957 + t3960 - t3963 - t779 * t3964 / 0.2e1 - 0.11e2 / 0.16e2 * t1725 * t772 * t3967 + 0.3e1 / 0.8e1 * t771 * t772 * t3971 - t779 * t3975 / 0.4e1 + 0.9e1 / 0.4e1 * t779 * t3980 - 0.3e1 / 0.4e1 * t779 * t3983 + 0.3e1 / 0.4e1 * t779 * t3986 - 0.11e2 / 0.8e1 * t779 * t3989 + 0.11e2 / 0.8e1 * t779 * t3992;
1452   t3997 = t772 * t3951;
1453   t3998 = t1725 * t3997;
1454   t3999 = 0.3e1 / 0.16e2 * t3998;
1455   t4000 = t786 * t3971;
1456   t4004 = t31 * t83 * t199;
1457   t4005 = t2667 * t44;
1458   t4006 = t786 * t4005;
1459   t4012 = t790 * t4005;
1460   t4016 = t31 * t1078 * t54;
1461   t4019 = t786 * t2407;
1462   t4022 = t367 * t3979;
1463   t4025 = t2686 * t3979;
1464   t4032 = t678 * t674;
1465   t4033 = t779 * t4032;
1466   t4034 = t4033 / 0.2e1;
1467   t4035 = t797 * t3718;
1468   t4036 = t779 * t4035;
1469   t4037 = 0.3e1 / 0.8e1 * t4036;
1470   t4038 = t3999 - 0.3e1 / 0.8e1 * t771 * t4000 + 0.9e1 / 0.8e1 * t4004 * t4006 + 0.3e1 / 0.8e1 * t771 * t790 * t3971 - 0.9e1 / 0.8e1 * t4004 * t4012 + t4016 * t775 / 0.8e1 - 0.3e1 / 0.4e1 * t779 * t4019 + 0.3e1 / 0.4e1 * t779 * t4022 + 0.15e2 / 0.8e1 * t779 * t4025 - t4016 * t787 / 0.8e1 + t4016 * t791 / 0.8e1 + t4034 - t4037;
1471   t4039 = t481 * t4005;
1472   t4042 = t797 * t4005;
1473   t4045 = t2675 * t4005;
1474   t4048 = t200 * t3728;
1475   t4051 = t665 * t3732;
1476   t4054 = 0.3e1 / 0.4e1 * t3704;
1477   t4055 = 0.3e1 / 0.8e1 * t3709;
1478   t4056 = t3711 / 0.4e1;
1479   t4057 = 0.3e1 / 0.4e1 * t3713;
1480   t4058 = 0.3e1 / 0.8e1 * t3716;
1481   t4059 = 0.3e1 / 0.8e1 * t3720;
1482   t4060 = t3722 / 0.2e1;
1483   t4061 = 0.3e1 / 0.4e1 * t3724;
1484   t4062 = -0.7e1 / 0.16e2 * t4004 * t4039 + 0.11e2 / 0.8e1 * t4004 * t4042 - 0.15e2 / 0.16e2 * t4004 * t4045 + 0.11e2 / 0.8e1 * t779 * t4048 - 0.25e2 / 0.8e1 * t779 * t4051 + t4054 - t4055 - t4056 - t4057 + t4058 + t4059 - t4060 - t4061;
1485   t4067 = t363 * t1145;
1486   t4068 = 0.3e1 / 0.32e2 * t4067;
1487   t4087 = t77 * t1100;
1488   t4088 = 0.3e1 / 0.16e2 * t4087;
1489   t4089 = t3726 - 0.3e1 / 0.32e2 * t3853 * t219 - t4068 - 0.3e1 / 0.8e1 * t77 * t1133 + 0.9e1 / 0.32e2 * t363 * t1136 - 0.3e1 / 0.16e2 * t77 * t1139 + 0.9e1 / 0.16e2 * t77 * t1127 - 0.9e1 / 0.16e2 * t77 * t1112 - 0.9e1 / 0.32e2 * t363 * t1112 + 0.9e1 / 0.32e2 * t363 * t1115 + 0.3e1 / 0.4e1 * t77 * t1119 - 0.9e1 / 0.16e2 * t77 * t1123 - t4088;
1490   t4090 = t77 * t1104;
1491   t4091 = 0.3e1 / 0.16e2 * t4090;
1492   t4092 = t77 * t1108;
1493   t4093 = 0.3e1 / 0.16e2 * t4092;
1494   t4098 = t381 * t1145;
1495   t4099 = t4098 / 0.16e2;
1496   t4101 = t84 * t678 * t511;
1497   t4102 = t4101 / 0.16e2;
1498   t4103 = t302 * t199;
1499   t4104 = t561 * t4103;
1500   t4115 = t160 * t199;
1501   t4123 = t4091 + t4093 - t1079 * t749 / 0.16e2 - t1079 * t752 / 0.16e2 - t4099 - t4102 - 0.3e1 / 0.8e1 * t34 * t4104 - t34 * t161 * t1132 / 0.4e1 + 0.3e1 / 0.16e2 * t381 * t1136 + 0.3e1 / 0.16e2 * t84 * t200 * t2017 - t34 * t4115 * t452 / 0.8e1 - t3928 * t219 / 0.16e2 + 0.3e1 / 0.16e2 * t381 * t1115;
1502   t4139 = t34 * t160 * t204 * t141;
1503   t4140 = t4139 / 0.8e1;
1504   t4142 = t34 * t561 * t1103;
1505   t4143 = t4142 / 0.8e1;
1506   t4145 = t34 * t161 * t1107;
1507   t4146 = t4145 / 0.8e1;
1508   t4151 = t3770 / 0.4e1;
1509   t4152 = 0.3e1 / 0.16e2 * t3786;
1510   t4153 = 0.3e1 / 0.8e1 * t3788;
1511   t4154 = 0.3e1 / 0.8e1 * t3790;
1512   t4155 = 0.3e1 / 0.16e2 * t84 * t665 * t2053 + t34 * t4115 * t482 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t2031 * t1122 + 0.3e1 / 0.8e1 * t34 * t4115 * t456 - t4140 + t4143 + t4146 - 0.3e1 / 0.16e2 * t381 * t1112 - 0.3e1 / 0.16e2 * t84 * t4104 - t4151 - t4152 + t4153 - t4154;
1513   t4156 = 0.3e1 / 0.8e1 * t3792;
1514   t4157 = t3796 / 0.8e1;
1515   t4158 = t3799 / 0.8e1;
1516   t4159 = t3809 / 0.4e1;
1517   t4160 = t3832 / 0.4e1;
1518   t4161 = t4156 - t4157 - t4158 + t4159 + t4160 - t1126 - t1147 + t1142 - t1148 + t1149 - t1102 + t1106 + t1110;
1519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1520     v4rhosigma2lapl[0] = t3950 + t3995 + t4038 + t4062 + t4089 + t4123 + t4155 + t4161;
1521 
1522   t4164 = t848 * t3933;
1523   t4165 = t4164 / 0.8e1;
1524   t4170 = t848 * t3961;
1525   t4171 = t4170 / 0.4e1;
1526   t4172 = t851 * t204;
1527   t4173 = t772 * t4172;
1528   t4174 = t1725 * t4173;
1529   t4175 = 0.3e1 / 0.16e2 * t4174;
1530   t4176 = t848 * t3947;
1531   t4177 = 0.3e1 / 0.8e1 * t4176;
1532   t4178 = -t714 - t208 + t717 - t721 - t660 + t681 - t4165 + 0.3e1 / 0.4e1 * t848 * t3936 - t848 * t3939 / 0.8e1 - t4171 + t4175 + t4177;
1533   t4179 = t786 * t4172;
1534   t4180 = t1725 * t4179;
1535   t4181 = 0.3e1 / 0.16e2 * t4180;
1536   t4182 = t848 * t3955;
1537   t4183 = 0.3e1 / 0.8e1 * t4182;
1538   t4184 = t790 * t4172;
1539   t4185 = t1725 * t4184;
1540   t4186 = 0.3e1 / 0.16e2 * t4185;
1541   t4187 = t848 * t4035;
1542   t4188 = 0.3e1 / 0.8e1 * t4187;
1543   t4193 = t2900 * t44;
1544   t4194 = t481 * t4193;
1545   t4197 = t797 * t4193;
1546   t4200 = t2675 * t4193;
1547   t4209 = t848 * t4032;
1548   t4210 = t4209 / 0.2e1;
1549   t4211 = -t4181 - t4183 + t4186 - t4188 - t4016 * t853 / 0.8e1 + t4016 * t856 / 0.8e1 - 0.7e1 / 0.16e2 * t4004 * t4194 + 0.11e2 / 0.8e1 * t4004 * t4197 - 0.15e2 / 0.16e2 * t4004 * t4200 + 0.11e2 / 0.8e1 * t848 * t4048 - 0.25e2 / 0.8e1 * t848 * t4051 + 0.15e2 / 0.8e1 * t848 * t4025 + t4210;
1550   t4213 = t851 * t134;
1551   t4214 = t786 * t4213;
1552   t4217 = t786 * t4193;
1553   t4220 = t790 * t4213;
1554   t4235 = t2900 * t199;
1555   t4236 = t772 * t4235;
1556   t4239 = t772 * t4213;
1557   t4242 = t790 * t4193;
1558   t4246 = -0.3e1 / 0.8e1 * t771 * t4214 + 0.9e1 / 0.8e1 * t4004 * t4217 + 0.3e1 / 0.8e1 * t771 * t4220 + 0.3e1 / 0.4e1 * t848 * t3986 - 0.11e2 / 0.8e1 * t848 * t3989 + 0.11e2 / 0.8e1 * t848 * t3992 - 0.3e1 / 0.4e1 * t848 * t4019 + 0.3e1 / 0.4e1 * t848 * t4022 - t848 * t3964 / 0.2e1 - 0.11e2 / 0.16e2 * t1725 * t4236 + 0.3e1 / 0.8e1 * t771 * t4239 - 0.9e1 / 0.8e1 * t4004 * t4242 + t848 * t3942;
1559   t4257 = -0.3e1 * t848 * t3944 + 0.9e1 / 0.4e1 * t848 * t3980 - 0.3e1 / 0.4e1 * t848 * t3983 + t4016 * t867 / 0.8e1 - t848 * t3975 / 0.4e1 + t4054 - t4055 - t4056 - t4057 + t4058 + t4059 - t4060 - t4061;
1560   t4265 = t34 * t183 * t204 * t141;
1561   t4266 = t4265 / 0.8e1;
1562   t4268 = t34 * t638 * t1103;
1563   t4269 = t4268 / 0.8e1;
1564   t4271 = t34 * t184 * t1107;
1565   t4272 = t4271 / 0.8e1;
1566   t4275 = t77 * t1151;
1567   t4276 = 0.3e1 / 0.16e2 * t4275;
1568   t4277 = t77 * t1154;
1569   t4278 = 0.3e1 / 0.16e2 * t4277;
1570   t4279 = t77 * t1157;
1571   t4280 = 0.3e1 / 0.16e2 * t4279;
1572   t4283 = t363 * t1162;
1573   t4284 = 0.3e1 / 0.32e2 * t4283;
1574   t4289 = t3726 - 0.3e1 / 0.8e1 * t34 * t2247 * t1122 - t4266 + t4269 + t4272 - t3928 * t234 / 0.16e2 - t4276 + t4278 + t4280 - 0.3e1 / 0.32e2 * t3853 * t234 - t4284 - 0.9e1 / 0.32e2 * t363 * t1165 + 0.9e1 / 0.32e2 * t363 * t1168;
1575   t4290 = t183 * t199;
1576   t4297 = t638 * t4103;
1577   t4312 = t381 * t1162;
1578   t4313 = t4312 / 0.16e2;
1579   t4315 = t84 * t678 * t645;
1580   t4316 = t4315 / 0.16e2;
1581   t4323 = -t34 * t4290 * t452 / 0.8e1 + 0.3e1 / 0.8e1 * t34 * t4290 * t456 - 0.3e1 / 0.8e1 * t34 * t4297 - t34 * t184 * t1132 / 0.4e1 + 0.3e1 / 0.16e2 * t381 * t1186 + 0.3e1 / 0.16e2 * t84 * t200 * t2346 - t1079 * t820 / 0.16e2 - t1079 * t823 / 0.16e2 - t4313 - t4316 - 0.3e1 / 0.16e2 * t381 * t1165 - 0.3e1 / 0.16e2 * t84 * t4297 + 0.3e1 / 0.16e2 * t381 * t1168;
1582   t4345 = 0.3e1 / 0.16e2 * t84 * t665 * t2356 + t34 * t4290 * t482 / 0.2e1 - 0.3e1 / 0.16e2 * t77 * t1189 - 0.9e1 / 0.16e2 * t77 * t1165 - 0.3e1 / 0.8e1 * t77 * t1183 + 0.9e1 / 0.32e2 * t363 * t1186 + 0.3e1 / 0.4e1 * t77 * t1172 - 0.9e1 / 0.16e2 * t77 * t1175 + 0.9e1 / 0.16e2 * t77 * t1178 - t4151 - t4152 + t4153 - t4154;
1583   t4346 = t4156 - t4157 - t4158 + t4159 + t4160 - t1126 - t1153 + t1156 + t1159 - t1164 + t1142 - t1148 + t1149;
1584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1585     v4rhosigma2tau[0] = t4178 + t4211 + t4246 + t4257 + t4289 + t4323 + t4345 + t4346;
1586 
1587   t4350 = t31 * t33 * t247;
1588   t4351 = t45 * t1837;
1589   t4354 = t139 * t1824;
1590   t4357 = t45 * t1856;
1591   t4360 = t2687 * t44;
1592   t4361 = t786 * t4360;
1593   t4365 = t31 * t83 * t247;
1594   t4368 = t790 * t4360;
1595   t4371 = -t714 - t208 + t717 - t721 - t660 + t681 + 0.3e1 / 0.4e1 * t4350 * t4351 - t4350 * t4354 / 0.8e1 - 0.11e2 / 0.8e1 * t4350 * t4357 + 0.11e2 / 0.8e1 * t4350 * t4361 + 0.9e1 / 0.8e1 * t4365 * t4361 - 0.9e1 / 0.8e1 * t4365 * t4368;
1596   t4372 = t481 * t4360;
1597   t4375 = t797 * t4360;
1598   t4378 = t145 * t3728;
1599   t4383 = t2675 * t4360;
1600   t4386 = t1866 * t4360;
1601   t4389 = t2686 * t4360;
1602   t4392 = t798 * t160;
1603   t4393 = t481 * t4392;
1604   t4395 = t797 * t4392;
1605   t4398 = t55 * t3109;
1606   t4401 = t1464 * t247;
1607   t4402 = t4401 * t54;
1608   t4403 = t481 * t4402;
1609   t4406 = t140 * t4392;
1610   t4409 = t786 * t4392;
1611   t4412 = -0.3e1 * t4350 * t4372 + 0.9e1 / 0.4e1 * t4350 * t4375 + 0.11e2 / 0.8e1 * t4350 * t4378 + 0.11e2 / 0.8e1 * t4365 * t4375 - 0.15e2 / 0.16e2 * t4365 * t4383 - 0.25e2 / 0.8e1 * t4350 * t4386 + 0.15e2 / 0.8e1 * t4350 * t4389 + t779 * t4393 - 0.3e1 / 0.4e1 * t779 * t4395 - t779 * t4398 / 0.4e1 - 0.7e1 / 0.16e2 * t1725 * t4403 + 0.3e1 / 0.4e1 * t779 * t4406 - 0.3e1 / 0.4e1 * t779 * t4409;
1612   t4414 = t367 * t4392;
1613   t4417 = t367 * t4360;
1614   t4431 = t3934 / 0.4e1;
1615   t4432 = 0.3e1 / 0.4e1 * t3948;
1616   t4433 = 0.3e1 / 0.8e1 * t3953;
1617   t4434 = 0.3e1 / 0.4e1 * t3956;
1618   t4435 = 0.3e1 / 0.8e1 * t3959;
1619   t4436 = t3962 / 0.2e1;
1620   t4437 = 0.3e1 / 0.8e1 * t3998;
1621   t4438 = -t779 * t4414 / 0.2e1 + 0.3e1 / 0.4e1 * t4350 * t4417 - 0.11e2 / 0.16e2 * t1725 * t772 * t4402 + 0.3e1 / 0.8e1 * t965 * t772 * t4392 - 0.3e1 / 0.8e1 * t965 * t4409 + 0.3e1 / 0.8e1 * t965 * t790 * t4392 - t4431 + t4432 - t4433 - t4434 + t4435 - t4436 + t4437;
1622   t4439 = 0.3e1 / 0.4e1 * t4036;
1623   t4440 = 0.3e1 / 0.8e1 * t3704;
1624   t4441 = 0.3e1 / 0.16e2 * t3709;
1625   t4442 = t3711 / 0.8e1;
1626   t4443 = 0.3e1 / 0.8e1 * t3713;
1627   t4444 = 0.3e1 / 0.16e2 * t3716;
1628   t4445 = 0.3e1 / 0.16e2 * t3720;
1629   t4446 = t3722 / 0.4e1;
1630   t4447 = 0.3e1 / 0.8e1 * t3724;
1631   t4448 = t3726 / 0.2e1;
1632   t4453 = t4033 - t4439 + t4440 - t4441 - t4442 - t4443 + t4444 + t4445 - t4446 - t4447 + t4448 - t1079 * t877 / 0.8e1 + t1079 * t881 / 0.8e1;
1633   t4472 = t248 * t2422;
1634   t4483 = -0.9e1 / 0.32e2 * t363 * t1203 - 0.9e1 / 0.16e2 * t77 * t1203 - 0.3e1 / 0.8e1 * t77 * t1193 + 0.9e1 / 0.32e2 * t363 * t1196 + 0.9e1 / 0.16e2 * t77 * t1199 - t1079 * t918 / 0.8e1 + t1079 * t921 / 0.8e1 - 0.3e1 / 0.16e2 * t381 * t1203 - 0.3e1 / 0.16e2 * t84 * t4472 + 0.3e1 / 0.16e2 * t381 * t1216 + 0.3e1 / 0.16e2 * t84 * t880 * t1941 + t34 * t248 * t1941 / 0.2e1;
1635   t4512 = 0.3e1 / 0.16e2 * t4067;
1636   t4513 = 0.3e1 / 0.8e1 * t4087;
1637   t4514 = -0.3e1 / 0.8e1 * t34 * t880 * t3746 - 0.3e1 / 0.8e1 * t34 * t4472 - t34 * t247 * t134 * t452 / 0.8e1 - t34 * t252 * t3836 / 0.4e1 + 0.3e1 / 0.16e2 * t381 * t1196 + 0.3e1 / 0.16e2 * t84 * t248 * t1849 + 0.3e1 / 0.8e1 * t34 * t252 * t1849 + 0.9e1 / 0.32e2 * t363 * t1216 + 0.3e1 / 0.4e1 * t77 * t1219 - 0.9e1 / 0.16e2 * t77 * t1223 - 0.3e1 / 0.16e2 * t77 * t1210 - t4512 - t4513;
1638   t4516 = 0.3e1 / 0.8e1 * t4090;
1639   t4517 = 0.3e1 / 0.8e1 * t4092;
1640   t4518 = t4098 / 0.8e1;
1641   t4519 = t4101 / 0.8e1;
1642   t4520 = t4139 / 0.4e1;
1643   t4521 = t4142 / 0.4e1;
1644   t4522 = t4145 / 0.4e1;
1645   t4523 = t3770 / 0.8e1;
1646   t4524 = 0.3e1 / 0.32e2 * t3786;
1647   t4525 = 0.3e1 / 0.16e2 * t3788;
1648   t4526 = 0.3e1 / 0.16e2 * t3790;
1649   t4527 = 0.3e1 / 0.16e2 * t3792;
1650   t4528 = t3796 / 0.16e2;
1651   t4529 = t4516 + t4517 - t4518 - t4519 - t4520 + t4521 + t4522 - t4523 - t4524 + t4525 - t4526 + t4527 - t4528;
1652   t4530 = t3799 / 0.16e2;
1653   t4531 = t3809 / 0.8e1;
1654   t4532 = t3832 / 0.8e1;
1655   t4537 = -t4530 + t4531 + t4532 - t1213 - t3928 * t249 / 0.16e2 - 0.3e1 / 0.32e2 * t3853 * t249 - t1229 + t1226 - t1230 + t1231 - t1206 + t1207 + t1208;
1656   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1657     v4rhosigmalapl2[0] = t4371 + t4412 + t4438 + t4453 + t4483 + t4514 + t4529 + t4537;
1658 
1659   t4559 = t31 * t1078 * t61;
1660   t4562 = -t714 - t208 + t717 - t721 - t660 + t681 - 0.9e1 / 0.16e2 * t2905 * t1255 - 0.3e1 / 0.8e1 * t2905 * t1258 - 0.3e1 / 0.16e2 * t2905 * t1261 - 0.9e1 / 0.32e2 * t3335 * t1246 + 0.9e1 / 0.32e2 * t3335 * t1249 + 0.9e1 / 0.16e2 * t2905 * t1252 + 0.9e1 / 0.32e2 * t3335 * t1235 + 0.3e1 / 0.4e1 * t2905 * t1238 - 0.9e1 / 0.16e2 * t2905 * t1242 + t4559 * t867 / 0.8e1;
1661   t4569 = t2968 * t54;
1662   t4570 = t790 * t4569;
1663   t4593 = t786 * t4569;
1664   t4602 = -t4559 * t853 / 0.8e1 + t4559 * t856 / 0.8e1 + 0.3e1 / 0.16e2 * t3376 * t1235 + 0.3e1 / 0.16e2 * t965 * t4570 + 0.3e1 / 0.16e2 * t965 * t4220 + t2953 * t1238 / 0.2e1 + t848 * t4393 / 0.2e1 + t848 * t169 * t1941 / 0.2e1 - 0.3e1 / 0.8e1 * t2953 * t1242 - 0.3e1 / 0.8e1 * t848 * t4395 - 0.3e1 / 0.8e1 * t848 * t797 * t3971 - 0.3e1 / 0.16e2 * t3372 * t1246 - 0.3e1 / 0.16e2 * t3376 * t1246 - 0.3e1 / 0.16e2 * t965 * t4593 - 0.3e1 / 0.16e2 * t965 * t4214 + 0.3e1 / 0.16e2 * t3372 * t1235 - t848 * t4414 / 0.4e1;
1665   t4618 = t772 * t4569;
1666   t4638 = -t848 * t367 * t3971 / 0.4e1 - t2953 * t1261 / 0.8e1 - t848 * t4398 / 0.8e1 - t848 * t760 * t452 / 0.8e1 + 0.3e1 / 0.16e2 * t3372 * t1249 + 0.3e1 / 0.16e2 * t3376 * t1249 + 0.3e1 / 0.16e2 * t965 * t4618 + 0.3e1 / 0.16e2 * t965 * t4239 + 0.3e1 / 0.8e1 * t2953 * t1252 + 0.3e1 / 0.8e1 * t848 * t4406 + 0.3e1 / 0.8e1 * t848 * t62 * t1849 - 0.3e1 / 0.8e1 * t2953 * t1255 - 0.3e1 / 0.8e1 * t848 * t4409 - 0.3e1 / 0.8e1 * t848 * t4000 - t2953 * t1258 / 0.4e1 - t4165 - t4171;
1667   t4639 = t4175 + t4177 - t4181 - t4183 + t4186 - t4188 + t4210 - t3935 + t3949 - t3954 - t3957 + t3960 - t3963 + t3999 + t4034 - t4037 + t4440;
1668   t4642 = t797 * t1464;
1669   t4643 = t237 * t44;
1670   t4660 = t222 * t44;
1671   t4673 = -t4441 - t4442 - t4443 + t4444 + t4445 - t4446 - t4447 + t4448 + 0.11e2 / 0.8e1 * t965 * t4642 * t4643 - 0.15e2 / 0.16e2 * t965 * t2675 * t1464 * t4643 + 0.11e2 / 0.8e1 * t848 * t169 * t320 * t4360 - 0.25e2 / 0.8e1 * t848 * t536 * t1531 * t4360 + 0.15e2 / 0.8e1 * t848 * t2686 * t1464 * t4660 - 0.7e1 / 0.16e2 * t965 * t1776 * t4643 - 0.3e1 * t848 * t169 * t312 * t4360 - t3928 * t262 / 0.16e2;
1672   t4680 = -t1079 * t938 / 0.16e2 - t1079 * t941 / 0.16e2 - 0.3e1 / 0.32e2 * t3853 * t262 - t4266 + t4269 + t4272 - t4276 + t4278 + t4280 - t4284 - t4313 - t4316 - t4068 - t4088 + t4091 + t4093 - t4099;
1673   t4682 = t786 * t1464;
1674   t4696 = -t4102 - t4140 + t4143 + t4146 - t4523 - t4524 + t4525 - t4526 + t4527 - t4528 - t4530 + t4531 + t4532 + 0.11e2 / 0.8e1 * t848 * t4682 * t4660 + 0.3e1 / 0.4e1 * t848 * t367 * t1464 * t4660 + 0.9e1 / 0.4e1 * t848 * t4642 * t4660 + 0.9e1 / 0.8e1 * t965 * t4682 * t4643;
1675   t4716 = -0.11e2 / 0.16e2 * t965 * t772 * t1464 * t4643 - 0.11e2 / 0.8e1 * t848 * t62 * t89 * t4360 - 0.9e1 / 0.8e1 * t965 * t790 * t1464 * t4643 + 0.3e1 / 0.4e1 * t848 * t165 * t22 * t1837 - t848 * t4660 * t1824 / 0.8e1 - t1213 - t1147 - t1153 + t1156 + t1159 - t1164 + t1226 - t1230 + t1231 - t1102 + t1106 + t1110;
1676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1677     v4rhosigmalapltau[0] = t4562 + t4602 + t4638 + t4639 + t4673 + t4680 + t4696 + t4716;
1678 
1679   t4727 = t31 * t83 * t277;
1680   t4731 = t31 * t33 * t277;
1681   t4736 = -t714 - t208 + t717 - t721 - t660 + t681 + 0.3e1 / 0.8e1 * t3521 * t4618 + 0.3e1 / 0.4e1 * t848 * t140 * t4569 - 0.3e1 / 0.4e1 * t848 * t4593 - 0.15e2 / 0.16e2 * t4727 * t4383 - 0.25e2 / 0.8e1 * t4731 * t4386 + 0.15e2 / 0.8e1 * t4731 * t4389;
1682   t4756 = t1464 * t277;
1683   t4757 = t4756 * t54;
1684   t4768 = 0.11e2 / 0.8e1 * t4731 * t4361 + 0.9e1 / 0.8e1 * t4727 * t4361 - 0.9e1 / 0.8e1 * t4727 * t4368 - 0.3e1 * t4731 * t4372 + 0.9e1 / 0.4e1 * t4731 * t4375 + 0.11e2 / 0.8e1 * t4731 * t4378 + 0.11e2 / 0.8e1 * t4727 * t4375 - t848 * t367 * t4569 / 0.2e1 + 0.3e1 / 0.4e1 * t4731 * t4417 - 0.11e2 / 0.16e2 * t1725 * t772 * t4757 + 0.3e1 / 0.8e1 * t3521 * t4570 + t848 * t481 * t4569 - 0.3e1 / 0.4e1 * t848 * t797 * t4569;
1685   t4784 = t4164 / 0.4e1;
1686   t4785 = t4170 / 0.2e1;
1687   t4786 = 0.3e1 / 0.8e1 * t4174;
1688   t4787 = 0.3e1 / 0.4e1 * t4176;
1689   t4788 = 0.3e1 / 0.8e1 * t4180;
1690   t4789 = 0.3e1 / 0.4e1 * t4182;
1691   t4790 = 0.3e1 / 0.8e1 * t4185;
1692   t4791 = -t848 * t55 * t3533 / 0.4e1 - 0.7e1 / 0.16e2 * t1725 * t481 * t4757 - 0.3e1 / 0.8e1 * t3521 * t4593 - 0.11e2 / 0.8e1 * t4731 * t4357 + 0.3e1 / 0.4e1 * t4731 * t4351 - t4731 * t4354 / 0.8e1 - t4784 - t4785 + t4786 + t4787 - t4788 - t4789 + t4790;
1693   t4792 = 0.3e1 / 0.4e1 * t4187;
1694   t4800 = -t4792 + t4209 + t4440 - t4441 - t4442 - t4443 + t4444 + t4445 - t4446 - t4447 + t4448 - t34 * t277 * t134 * t452 / 0.8e1 - t34 * t282 * t3836 / 0.4e1;
1695   t4811 = t278 * t2422;
1696   t4830 = 0.3e1 / 0.16e2 * t381 * t1268 + 0.3e1 / 0.16e2 * t84 * t278 * t1849 + 0.3e1 / 0.8e1 * t34 * t282 * t1849 - 0.3e1 / 0.8e1 * t34 * t4811 - 0.3e1 / 0.8e1 * t77 * t1265 + 0.9e1 / 0.32e2 * t363 * t1268 + 0.9e1 / 0.16e2 * t77 * t1271 - 0.9e1 / 0.16e2 * t77 * t1274 + 0.3e1 / 0.4e1 * t77 * t1290 - 0.9e1 / 0.16e2 * t77 * t1293 - 0.3e1 / 0.16e2 * t77 * t1282 - 0.9e1 / 0.32e2 * t363 * t1274;
1697   t4856 = t4265 / 0.4e1;
1698   t4857 = t4268 / 0.4e1;
1699   t4858 = 0.9e1 / 0.32e2 * t363 * t1287 - t1079 * t994 / 0.8e1 + t1079 * t998 / 0.8e1 - t1079 * t1023 / 0.8e1 + t1079 * t1026 / 0.8e1 - 0.3e1 / 0.16e2 * t381 * t1274 - 0.3e1 / 0.16e2 * t84 * t4811 + 0.3e1 / 0.16e2 * t381 * t1287 + 0.3e1 / 0.16e2 * t84 * t997 * t1941 + t34 * t278 * t1941 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t997 * t3746 - t4856 + t4857;
1700   t4860 = t4271 / 0.4e1;
1701   t4861 = 0.3e1 / 0.8e1 * t4275;
1702   t4862 = 0.3e1 / 0.8e1 * t4277;
1703   t4863 = 0.3e1 / 0.8e1 * t4279;
1704   t4864 = 0.3e1 / 0.16e2 * t4283;
1705   t4865 = t4312 / 0.8e1;
1706   t4866 = t4315 / 0.8e1;
1707   t4867 = t4860 - t4861 + t4862 + t4863 - t4864 - t4865 - t4866 - t4523 - t4524 + t4525 - t4526 + t4527 - t4528;
1708   t4872 = -t4530 + t4531 + t4532 - t1213 - 0.3e1 / 0.32e2 * t3853 * t279 - t3928 * t279 / 0.16e2 - t1277 + t1278 + t1279 - t1280 + t1226 - t1230 + t1231;
1709   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1710     v4rhosigmatau2[0] = t4736 + t4768 + t4791 + t4800 + t4830 + t4858 + t4867 + t4872;
1711 
1712   t4884 = t340 * t160;
1713   t4888 = t1298 * t44;
1714   t4892 = -t714 - t208 + t717 - t721 - t660 + t681 - 0.3e1 / 0.8e1 * t3934 + 0.9e1 / 0.8e1 * t3948 - 0.9e1 / 0.16e2 * t3953 - 0.9e1 / 0.8e1 * t3956 + 0.9e1 / 0.16e2 * t3959 - 0.3e1 / 0.4e1 * t3962 + 0.9e1 / 0.16e2 * t3998 + 0.3e1 / 0.2e1 * t4033 - 0.9e1 / 0.8e1 * t4036 - 0.3e1 / 0.4e1 * t34 * t252 * t4884 - 0.11e2 / 0.8e1 * t34 * t4888 * t1819;
1715   t4899 = t321 * t160;
1716   t4903 = t248 * t3109;
1717   t4910 = t127 * t1502 * t1298;
1718   t4919 = t1465 * t1298;
1719   t4933 = t1319 * t3728;
1720   t4941 = t1298 * t1536;
1721   t4948 = 0.3e1 / 0.4e1 * t34 * t4888 * t1798 - t34 * t4888 * t1824 / 0.8e1 - 0.9e1 / 0.8e1 * t34 * t880 * t4899 - 0.9e1 / 0.16e2 * t84 * t4903 - 0.3e1 / 0.8e1 * t34 * t252 * t3109 - 0.7e1 / 0.16e2 * t84 * t4910 + 0.9e1 / 0.16e2 * t84 * t880 * t2053 + 0.3e1 / 0.4e1 * t34 * t1299 * t3840 - 0.11e2 / 0.16e2 * t84 * t127 * t4919 + 0.9e1 / 0.16e2 * t84 * t248 * t2017 + 0.9e1 / 0.8e1 * t34 * t252 * t2017 - 0.9e1 / 0.8e1 * t34 * t4903 + t1340 * t921 / 0.8e1 + 0.9e1 / 0.4e1 * t34 * t4933 + 0.11e2 / 0.8e1 * t34 * t1303 * t3728 + 0.11e2 / 0.8e1 * t84 * t4933 - 0.15e2 / 0.16e2 * t84 * t4941 * t3732 - 0.25e2 / 0.8e1 * t34 * t1319 * t3732;
1722   t4957 = t1303 * t3761;
1723   t4981 = 0.15e2 / 0.8e1 * t34 * t4941 * t3738 - t1340 * t877 / 0.8e1 + t1340 * t881 / 0.8e1 + 0.11e2 / 0.8e1 * t34 * t4957 + 0.9e1 / 0.8e1 * t84 * t4957 - 0.9e1 / 0.8e1 * t84 * t1319 * t3804 - 0.3e1 * t34 * t4910 + 0.3e1 / 0.2e1 * t34 * t248 * t2053 - t1340 * t918 / 0.8e1 - 0.9e1 / 0.32e2 * t4067 - 0.9e1 / 0.16e2 * t4087 + 0.9e1 / 0.16e2 * t4090 + 0.9e1 / 0.16e2 * t4092 - 0.3e1 / 0.16e2 * t4098 - 0.3e1 / 0.16e2 * t4101 - 0.3e1 / 0.8e1 * t4139 + 0.3e1 / 0.8e1 * t4142 + 0.3e1 / 0.8e1 * t4145;
1724   t4988 = t2661 * t1339;
1725   t5011 = t1331 * t86;
1726   t5014 = t1331 * t22;
1727   t5017 = t1618 * t61;
1728   t5020 = t91 * t61;
1729   t5021 = t772 * t5020;
1730   t5045 = t3877 * t156 / 0.4e1 + t32 * t160 * t368 / 0.2e1 + t1331 * t44 * t141 / 0.2e1 - t5011 * t146 / 0.2e1 - t5014 * t150 / 0.2e1 - t5017 * t3894 / 0.2e1 + t3897 * t5021 / 0.2e1 + t372 * t160 * t368 / 0.2e1 + t1333 * t3905 / 0.2e1 - t1333 * t3908 / 0.2e1 - t1333 * t3911 / 0.2e1 - t1636 * t61 * t368 / 0.2e1 - t375 * t160 * t368 / 0.2e1 - t1335 * t3905 / 0.2e1 + t1335 * t3908 / 0.2e1 + t1335 * t3911 / 0.2e1;
1731   t5047 = t31 * t2 * t5045;
1732   t5056 = -t1343 - t1313 + t1314 + t1315 + 0.3e1 / 0.4e1 * t77 * t1323 - 0.9e1 / 0.16e2 * t77 * t1326 - 0.9e1 / 0.32e2 * t363 * t1310 - 0.3e1 / 0.32e2 * t4988 * t249 - 0.3e1 / 0.16e2 * t77 * t1316 + 0.9e1 / 0.32e2 * t363 * t1320 + 0.9e1 / 0.32e2 * t363 * t1304 + 0.9e1 / 0.16e2 * t77 * t1307 - 0.9e1 / 0.16e2 * t77 * t1310 - 0.3e1 / 0.8e1 * t77 * t1300 - t5047 * t249 / 0.16e2 + 0.3e1 / 0.16e2 * t381 * t1304 + 0.3e1 / 0.16e2 * t381 * t1320 - 0.3e1 / 0.16e2 * t381 * t1310;
1733   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1734     v4rholapl3[0] = t4892 + t4948 + t4981 + t5056;
1735 
1736   t5070 = t4401 * t44;
1737   t5074 = -t714 - t208 + t717 - t721 - t660 + t681 - 0.7e1 / 0.16e2 * t4365 * t4194 + 0.11e2 / 0.8e1 * t4365 * t4197 - 0.15e2 / 0.16e2 * t4365 * t4200 + 0.11e2 / 0.8e1 * t848 * t248 * t3728 - 0.25e2 / 0.8e1 * t848 * t880 * t3732 + 0.15e2 / 0.8e1 * t848 * t2686 * t5070;
1738   t5076 = t31 * t1339 * t61;
1739   t5096 = t851 * t160;
1740   t5112 = -t5076 * t853 / 0.8e1 + t5076 * t856 / 0.8e1 - 0.3e1 * t848 * t248 * t3804 + 0.9e1 / 0.4e1 * t848 * t797 * t5070 - 0.3e1 / 0.4e1 * t848 * t797 * t3117 + 0.3e1 / 0.4e1 * t848 * t62 * t2017 - 0.11e2 / 0.8e1 * t848 * t252 * t3818 - 0.3e1 / 0.8e1 * t965 * t786 * t5096 + 0.9e1 / 0.8e1 * t4365 * t4217 + 0.3e1 / 0.8e1 * t965 * t790 * t5096 - 0.9e1 / 0.8e1 * t4365 * t4242 + t5076 * t867 / 0.8e1 + 0.3e1 / 0.4e1 * t848 * t873 * t1798;
1741   t5130 = t772 * t2900 * t247;
1742   t5141 = -t848 * t873 * t1824 / 0.8e1 + 0.11e2 / 0.8e1 * t848 * t786 * t5070 - 0.3e1 / 0.4e1 * t848 * t786 * t3117 + 0.3e1 / 0.4e1 * t848 * t367 * t5070 - t848 * t367 * t3117 / 0.2e1 - 0.11e2 / 0.16e2 * t1725 * t5130 + 0.3e1 / 0.8e1 * t965 * t772 * t5096 - t848 * t62 * t3109 / 0.4e1 + t848 * t169 * t2053 - t4165 - t4171 + t4175 + t4177;
1743   t5142 = -t4181 - t4183 + t4186 - t4188 + t4210 - t4431 + t4432 - t4433 - t4434 + t4435 - t4436 + t4437 + t4033;
1744   t5148 = t183 * t247;
1745   t5154 = t248 * t3533;
1746   t5176 = -t4439 + 0.3e1 / 0.16e2 * t84 * t248 * t2346 - t34 * t5148 * t452 / 0.8e1 - 0.3e1 / 0.16e2 * t381 * t1346 - 0.3e1 / 0.16e2 * t84 * t5154 + 0.3e1 / 0.16e2 * t381 * t1349 + 0.3e1 / 0.16e2 * t84 * t880 * t2356 + t34 * t5148 * t482 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t2247 * t1356 - t5047 * t262 / 0.16e2 - t1340 * t938 / 0.16e2 - t1340 * t941 / 0.16e2 - 0.3e1 / 0.8e1 * t77 * t1366;
1747   t5205 = 0.9e1 / 0.32e2 * t363 * t1369 - 0.3e1 / 0.16e2 * t77 * t1372 - 0.9e1 / 0.16e2 * t77 * t1357 + 0.9e1 / 0.16e2 * t77 * t1360 - 0.9e1 / 0.16e2 * t77 * t1346 - 0.9e1 / 0.32e2 * t363 * t1346 + 0.9e1 / 0.32e2 * t363 * t1349 + 0.3e1 / 0.4e1 * t77 * t1353 - 0.3e1 / 0.32e2 * t4988 * t262 + 0.3e1 / 0.8e1 * t34 * t5148 * t456 - 0.3e1 / 0.8e1 * t34 * t5154 - t34 * t184 * t1365 / 0.4e1 + 0.3e1 / 0.16e2 * t381 * t1369;
1748   t5207 = -t4266 + t4269 + t4272 - t4276 + t4278 + t4280 - t4284 - t4313 - t4316 - t4512 - t4513 + t4516 + t4517;
1749   t5208 = -t4518 - t4519 - t4520 + t4521 + t4522 - t1229 - t1153 + t1156 + t1159 - t1164 - t1206 + t1207 + t1208;
1750   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1751     v4rholapl2tau[0] = t5074 + t5112 + t5141 + t5142 + t5176 + t5205 + t5207 + t5208;
1752 
1753   t5227 = -t714 - t208 + t717 - t721 - t660 + t681 - t4731 * t165 * t1824 / 0.8e1 + 0.11e2 / 0.8e1 * t4731 * t169 * t3728 + 0.11e2 / 0.8e1 * t4727 * t4042 - 0.15e2 / 0.16e2 * t4727 * t4045 - 0.25e2 / 0.8e1 * t4731 * t1866 * t4005 + 0.15e2 / 0.8e1 * t4731 * t2686 * t4005;
1754   t5238 = t773 * t183;
1755   t5250 = t4756 * t61;
1756   t5251 = t481 * t5250;
1757   t5254 = t786 * t5238;
1758   t5262 = 0.11e2 / 0.8e1 * t4731 * t4006 + 0.9e1 / 0.8e1 * t4727 * t4006 - 0.9e1 / 0.8e1 * t4727 * t4012 - 0.3e1 * t4731 * t4039 + 0.9e1 / 0.4e1 * t4731 * t4042 + 0.3e1 / 0.8e1 * t3521 * t790 * t5238 + t848 * t481 * t5238 - 0.3e1 / 0.4e1 * t848 * t797 * t5238 - t848 * t62 * t3533 / 0.4e1 - 0.7e1 / 0.16e2 * t1725 * t5251 - 0.3e1 / 0.8e1 * t3521 * t5254 + 0.3e1 / 0.4e1 * t848 * t140 * t5238 - 0.3e1 / 0.4e1 * t848 * t5254;
1759   t5270 = t772 * t5250;
1760   t5279 = t1475 * t61;
1761   t5283 = -t848 * t367 * t5238 / 0.2e1 + 0.3e1 / 0.4e1 * t4731 * t367 * t4005 - 0.11e2 / 0.16e2 * t1725 * t5270 + 0.3e1 / 0.8e1 * t3521 * t772 * t5238 - 0.11e2 / 0.8e1 * t4731 * t45 * t2136 + 0.3e1 / 0.4e1 * t4731 * t45 * t5279 - t4784 - t4785 + t4786 + t4787 - t4788 - t4789 + t4790;
1762   t5289 = -t4792 + t4209 - t3935 + t3949 - t3954 - t3957 + t3960 - t3963 + t3999 + t4034 - t4037 + 0.3e1 / 0.8e1 * t34 * t282 * t2017 + 0.9e1 / 0.32e2 * t363 * t1394;
1763   t5316 = 0.3e1 / 0.4e1 * t77 * t1397 - 0.9e1 / 0.16e2 * t77 * t1401 - 0.3e1 / 0.16e2 * t77 * t1389 - 0.9e1 / 0.32e2 * t363 * t1385 + 0.9e1 / 0.16e2 * t77 * t1382 - 0.9e1 / 0.16e2 * t77 * t1385 - 0.3e1 / 0.8e1 * t77 * t1376 + 0.9e1 / 0.32e2 * t363 * t1379 - t1340 * t994 / 0.8e1 + t1340 * t998 / 0.8e1 - t1340 * t1023 / 0.8e1 + t1340 * t1026 / 0.8e1;
1764   t5334 = t278 * t3109;
1765   t5347 = 0.3e1 / 0.16e2 * t381 * t1394 + 0.3e1 / 0.16e2 * t84 * t997 * t2053 + t34 * t278 * t2053 / 0.2e1 - 0.3e1 / 0.8e1 * t34 * t997 * t4899 - t34 * t277 * t160 * t452 / 0.8e1 - 0.3e1 / 0.16e2 * t381 * t1385 - 0.3e1 / 0.16e2 * t84 * t5334 - 0.3e1 / 0.8e1 * t34 * t5334 - t34 * t282 * t4884 / 0.4e1 + 0.3e1 / 0.16e2 * t381 * t1379 + 0.3e1 / 0.16e2 * t84 * t278 * t2017 - t4856 + t4857;
1766   t5349 = t4860 - t4861 + t4862 + t4863 - t4864 - t4865 - t4866 - t4068 - t4088 + t4091 + t4093 - t4099 - t4102;
1767   t5354 = -t4140 + t4143 + t4146 - t1147 - t1277 + t1278 + t1279 - t1280 - t1102 + t1106 + t1110 - 0.3e1 / 0.32e2 * t4988 * t279 - t5047 * t279 / 0.16e2;
1768   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1769     v4rholapltau2[0] = t5227 + t5262 + t5283 + t5289 + t5316 + t5347 + t5349 + t5354;
1770 
1771   t5366 = t1406 * t44;
1772   t5371 = t127 * t1475 * t1406;
1773   t5374 = -t714 - t208 + t717 - t721 - t660 + t681 - 0.3e1 / 0.8e1 * t4164 - 0.3e1 / 0.4e1 * t4170 + 0.9e1 / 0.16e2 * t4174 + 0.9e1 / 0.8e1 * t4176 - 0.9e1 / 0.16e2 * t4180 - 0.9e1 / 0.8e1 * t4182 + 0.9e1 / 0.16e2 * t4185 - 0.9e1 / 0.8e1 * t4187 + 0.3e1 / 0.2e1 * t4209 - t34 * t5366 * t1824 / 0.8e1 + 0.9e1 / 0.8e1 * t84 * t5371;
1774   t5378 = t1430 * t3728;
1775   t5381 = t1406 * t1536;
1776   t5395 = t1411 * t3804;
1777   t5408 = t278 * t3533;
1778   t5416 = t1502 * t1406;
1779   t5427 = 0.11e2 / 0.8e1 * t34 * t1411 * t3728 + 0.11e2 / 0.8e1 * t84 * t5378 - 0.15e2 / 0.16e2 * t84 * t5381 * t3732 - 0.25e2 / 0.8e1 * t34 * t1430 * t3732 + 0.15e2 / 0.8e1 * t34 * t5381 * t3738 - t1449 * t994 / 0.8e1 + t1449 * t998 / 0.8e1 - 0.3e1 * t34 * t5395 + 0.9e1 / 0.4e1 * t34 * t5378 + 0.3e1 / 0.4e1 * t34 * t5366 * t1798 - 0.3e1 / 0.8e1 * t34 * t282 * t3533 - 0.7e1 / 0.16e2 * t84 * t5395 - 0.9e1 / 0.16e2 * t84 * t5408 - 0.9e1 / 0.8e1 * t34 * t5408 + 0.11e2 / 0.8e1 * t34 * t5371 - 0.9e1 / 0.8e1 * t84 * t44 * t317 * t5416 - 0.3e1 / 0.4e1 * t34 * t282 * t340 * t183 + 0.3e1 / 0.4e1 * t34 * t1407 * t3840;
1780   t5429 = t1465 * t1406;
1781   t5465 = -0.11e2 / 0.16e2 * t84 * t127 * t5429 + 0.9e1 / 0.16e2 * t84 * t278 * t2346 + 0.9e1 / 0.8e1 * t34 * t282 * t2346 - 0.11e2 / 0.8e1 * t34 * t1407 * t3818 - t1449 * t1023 / 0.8e1 + t1449 * t1026 / 0.8e1 + 0.9e1 / 0.16e2 * t84 * t997 * t2356 + 0.3e1 / 0.2e1 * t34 * t278 * t2356 - 0.9e1 / 0.8e1 * t34 * t997 * t321 * t183 - 0.3e1 / 0.8e1 * t4265 + 0.3e1 / 0.8e1 * t4268 + 0.3e1 / 0.8e1 * t4271 - 0.9e1 / 0.16e2 * t4275 + 0.9e1 / 0.16e2 * t4277 + 0.9e1 / 0.16e2 * t4279 - 0.9e1 / 0.32e2 * t4283 - 0.3e1 / 0.16e2 * t4312 - 0.3e1 / 0.16e2 * t4315;
1782   t5487 = t1440 * t86;
1783   t5490 = t1440 * t22;
1784   t5493 = t1618 * t67;
1785   t5497 = t772 * t91 * t67;
1786   t5521 = t3877 * t178 / 0.4e1 + t32 * t183 * t368 / 0.2e1 + t1440 * t44 * t141 / 0.2e1 - t5487 * t146 / 0.2e1 - t5490 * t150 / 0.2e1 - t5493 * t3894 / 0.2e1 + t3897 * t5497 / 0.2e1 + t372 * t183 * t368 / 0.2e1 + t1442 * t3905 / 0.2e1 - t1442 * t3908 / 0.2e1 - t1442 * t3911 / 0.2e1 - t1636 * t67 * t368 / 0.2e1 - t375 * t183 * t368 / 0.2e1 - t1444 * t3905 / 0.2e1 + t1444 * t3908 / 0.2e1 + t1444 * t3911 / 0.2e1;
1787   t5540 = -t1421 + t1422 + t1423 - t1424 - 0.3e1 / 0.32e2 * t2661 * t1448 * t279 + 0.9e1 / 0.32e2 * t363 * t1431 + 0.3e1 / 0.4e1 * t77 * t1434 - 0.9e1 / 0.16e2 * t77 * t1437 - 0.3e1 / 0.16e2 * t77 * t1425 - 0.9e1 / 0.32e2 * t363 * t1412 - t31 * t2 * t5521 * t279 / 0.16e2 + 0.3e1 / 0.16e2 * t381 * t1418 - 0.3e1 / 0.16e2 * t381 * t1412 + 0.3e1 / 0.16e2 * t381 * t1431 - 0.3e1 / 0.8e1 * t77 * t1415 + 0.9e1 / 0.32e2 * t363 * t1418 + 0.9e1 / 0.16e2 * t77 * t1408 - 0.9e1 / 0.16e2 * t77 * t1412;
1788   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1789     v4rhotau3[0] = t5374 + t5427 + t5465 + t5540;
1790 
1791   t5542 = t321 * t204;
1792   t5544 = t34 * t665 * t5542;
1793   t5547 = t84 * t665 * t2496;
1794   t5549 = t200 * t2511;
1795   t5550 = t84 * t5549;
1796   t5552 = t204 * t199;
1797   t5554 = t34 * t5552 * t456;
1798   t5556 = t34 * t5549;
1799   t5559 = t34 * t5552 * t452;
1800   t5562 = t34 * t5552 * t482;
1801   t5565 = t84 * t200 * t2611;
1802   t5567 = t340 * t204;
1803   t5569 = t34 * t209 * t5567;
1804   t5571 = t1079 * t1090;
1805   t5577 = t199 * t199;
1806   t5578 = t5577 * t22;
1807   t5582 = t204 * t204;
1808   t5583 = t5582 * t86;
1809   t5586 = 0.3e1 / 0.16e2 * t84 * t5583 * t92;
1810   t5587 = t5582 * t22;
1811   t5590 = 0.3e1 / 0.8e1 * t34 * t5587 * t121;
1812   t5593 = 0.3e1 / 0.8e1 * t34 * t5583 * t117;
1813   t5594 = -t208 - 0.9e1 / 0.4e1 * t5544 + 0.9e1 / 0.8e1 * t5547 - 0.9e1 / 0.8e1 * t5550 + 0.9e1 / 0.4e1 * t5554 - 0.9e1 / 0.4e1 * t5556 - 0.3e1 / 0.4e1 * t5559 + 0.3e1 * t5562 + 0.9e1 / 0.8e1 * t5565 - 0.3e1 / 0.2e1 * t5569 - 0.5e1 / 0.16e2 * t5571 - t1046 / 0.2e1 + t1068 / 0.2e1 - t1091 / 0.4e1 + t1097 / 0.2e1 + 0.3e1 / 0.4e1 * t34 * t5578 * t1481 - t5586 + t5590 + t5593;
1814   t5600 = t5577 * t86;
1815   t5601 = t5600 * t1475;
1816   t5604 = t5600 * t1502;
1817   t5607 = t5577 * t317;
1818   t5608 = t5607 * t1492;
1819   t5618 = 0.3e1 / 0.8e1 * t34 * t5587 * t92;
1820   t5629 = t5577 * t1536;
1821   t5642 = t32 * t204 * t368 / 0.2e1;
1822   t5643 = t32 * t199;
1823   t5658 = t372 * t204 * t368 / 0.2e1;
1824   t5659 = t372 * t199;
1825   t5666 = t80 * t1077;
1826   t5672 = t375 * t204 * t368 / 0.2e1;
1827   t5673 = t375 * t199;
1828   t5680 = t82 * t199 * t1601 / 0.4e1 + t5642 + t5643 * t141 / 0.2e1 - t5643 * t1610 / 0.2e1 - t5643 * t1613 / 0.2e1 - t1618 * t199 * t1601 / 0.2e1 + t1622 * t199 * t1601 / 0.2e1 + t5658 + t5659 * t141 / 0.2e1 - t5659 * t1610 / 0.2e1 - t5659 * t1613 / 0.2e1 - t5666 * t54 * t368 / 0.2e1 - t5672 - t5673 * t141 / 0.2e1 + t5673 * t1610 / 0.2e1 + t5673 * t1613 / 0.2e1;
1829   t5682 = t31 * t2 * t5680;
1830   t5697 = 0.5e1 / 0.16e2 * t1079 * t1093 - 0.11e2 / 0.8e1 * t34 * t5578 * t1465 + 0.11e2 / 0.8e1 * t34 * t5601 - 0.3e1 * t34 * t5604 + 0.9e1 / 0.4e1 * t34 * t5608 + 0.9e1 / 0.8e1 * t84 * t5601 - 0.9e1 / 0.8e1 * t84 * t5607 * t1502 - t5618 + 0.3e1 / 0.4e1 * t34 * t5578 * t1475 - 0.11e2 / 0.16e2 * t84 * t5600 * t1465 - 0.7e1 / 0.16e2 * t84 * t5604 + 0.11e2 / 0.8e1 * t84 * t5608 - 0.15e2 / 0.16e2 * t84 * t5629 * t1532 - 0.5e1 / 0.16e2 * t1079 * t1061 + 0.5e1 / 0.16e2 * t1079 * t1064 - t5682 * t201 / 0.16e2 + 0.11e2 / 0.8e1 * t34 * t5600 * t1492 - 0.25e2 / 0.8e1 * t34 * t5607 * t1532 + 0.15e2 / 0.8e1 * t34 * t5629 * t1540 - t34 * t5578 * t1502 / 0.8e1;
1831   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1832     v4sigma4[0] = t5594 + t5697;
1833 
1834   t5698 = t1044 * t452;
1835   t5699 = t779 * t5698;
1836   t5700 = 0.3e1 / 0.8e1 * t5699;
1837   t5701 = t797 * t3707;
1838   t5702 = t779 * t5701;
1839   t5703 = 0.9e1 / 0.8e1 * t5702;
1840   t5704 = t678 * t477;
1841   t5705 = t779 * t5704;
1842   t5706 = 0.3e1 / 0.2e1 * t5705;
1843   t5707 = t367 * t3707;
1844   t5708 = t779 * t5707;
1845   t5709 = 0.3e1 / 0.4e1 * t5708;
1846   t5710 = t771 * t3997;
1847   t5711 = 0.9e1 / 0.16e2 * t5710;
1848   t5712 = t205 * t464;
1849   t5713 = t779 * t5712;
1850   t5714 = 0.9e1 / 0.8e1 * t5713;
1851   t5715 = t771 * t3952;
1852   t5716 = 0.9e1 / 0.16e2 * t5715;
1853   t5717 = t779 * t3708;
1854   t5718 = 0.9e1 / 0.8e1 * t5717;
1855   t5719 = t771 * t3958;
1856   t5720 = 0.9e1 / 0.16e2 * t5719;
1857   t5721 = t1540 * t1048;
1858   t5725 = t61 * t1048;
1859   t5732 = -t208 - t5700 - t5703 + t5706 - t5709 + t5711 + t5714 - t5716 - t5718 + t5720 + 0.15e2 / 0.8e1 * t34 * t1996 * t5721 - t34 * t5725 * t1824 / 0.8e1 + 0.3e1 / 0.4e1 * t34 * t5725 * t1798;
1860   t5733 = t1053 * t2114;
1861   t5736 = t1057 * t2063;
1862   t5748 = t1481 * t1048;
1863   t5757 = t1475 * t1048;
1864   t5758 = t169 * t5757;
1865   t5770 = -0.7e1 / 0.16e2 * t84 * t5733 + 0.11e2 / 0.8e1 * t84 * t5736 - 0.15e2 / 0.16e2 * t84 * t3737 * t2067 + 0.11e2 / 0.8e1 * t34 * t5725 * t1772 - 0.25e2 / 0.8e1 * t34 * t5725 * t1867 + 0.3e1 / 0.4e1 * t34 * t62 * t5748 + 0.9e1 / 0.4e1 * t34 * t5736 - 0.11e2 / 0.8e1 * t34 * t5725 * t1819 + 0.11e2 / 0.8e1 * t34 * t5758 + 0.9e1 / 0.8e1 * t84 * t5758 - 0.9e1 / 0.8e1 * t84 * t1057 * t2114 - 0.3e1 * t34 * t5733 - t5682 * t219 / 0.16e2;
1866   t5772 = t1079 * t1145;
1867   t5773 = t5772 / 0.8e1;
1868   t5783 = 0.9e1 / 0.8e1 * t5544;
1869   t5784 = 0.9e1 / 0.16e2 * t5547;
1870   t5785 = 0.9e1 / 0.16e2 * t5550;
1871   t5786 = 0.9e1 / 0.8e1 * t5554;
1872   t5787 = 0.9e1 / 0.8e1 * t5556;
1873   t5788 = 0.3e1 / 0.8e1 * t5559;
1874   t5789 = 0.3e1 / 0.2e1 * t5562;
1875   t5790 = 0.9e1 / 0.16e2 * t5565;
1876   t5791 = -t5773 - 0.11e2 / 0.16e2 * t84 * t1053 * t2136 + 0.5e1 / 0.16e2 * t1079 * t1136 - 0.5e1 / 0.16e2 * t1079 * t1112 + 0.5e1 / 0.16e2 * t1079 * t1115 - t5783 + t5784 - t5785 + t5786 - t5787 - t5788 + t5789 + t5790;
1877   t5792 = 0.3e1 / 0.4e1 * t5569;
1878   t5793 = 0.3e1 / 0.16e2 * t5571;
1879   t5794 = -t5792 - t5793 - t1047 - t1147 + t1069 - t1092 + t1098 - t1102 + t1106 + t1110 - t5586 + t5590 + t5593 - t5618;
1880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1881     v4sigma3lapl[0] = t5732 + t5770 + t5791 + t5794;
1882 
1883   t5796 = t848 * t5712;
1884   t5797 = 0.9e1 / 0.8e1 * t5796;
1885   t5798 = t771 * t4179;
1886   t5799 = 0.9e1 / 0.16e2 * t5798;
1887   t5800 = t848 * t3708;
1888   t5801 = 0.9e1 / 0.8e1 * t5800;
1889   t5802 = t771 * t4184;
1890   t5803 = 0.9e1 / 0.16e2 * t5802;
1891   t5804 = t848 * t5707;
1892   t5805 = 0.3e1 / 0.4e1 * t5804;
1893   t5806 = t771 * t4173;
1894   t5807 = 0.9e1 / 0.16e2 * t5806;
1895   t5808 = t848 * t5698;
1896   t5809 = 0.3e1 / 0.8e1 * t5808;
1897   t5810 = t848 * t5704;
1898   t5811 = 0.3e1 / 0.2e1 * t5810;
1899   t5812 = t848 * t5701;
1900   t5813 = 0.9e1 / 0.8e1 * t5812;
1901   t5814 = t67 * t1048;
1902   t5824 = -t208 + t5797 - t5799 - t5801 + t5803 - t5805 + t5807 - t5809 + t5811 - t5813 + 0.3e1 / 0.4e1 * t34 * t5814 * t1798 - t34 * t5814 * t1824 / 0.8e1 - 0.15e2 / 0.16e2 * t84 * t3737 * t2213;
1903   t5834 = t192 * t5757;
1904   t5840 = t5814 * t1776;
1905   t5844 = t614 * t1492 * t1048;
1906   t5859 = t1079 * t1162;
1907   t5860 = t5859 / 0.8e1;
1908   t5861 = 0.11e2 / 0.8e1 * t34 * t5814 * t1772 - 0.25e2 / 0.8e1 * t34 * t5814 * t1867 + 0.15e2 / 0.8e1 * t34 * t2224 * t5721 + 0.11e2 / 0.8e1 * t34 * t5834 + 0.3e1 / 0.4e1 * t34 * t68 * t5748 - 0.3e1 * t34 * t5840 + 0.9e1 / 0.4e1 * t34 * t5844 - 0.11e2 / 0.8e1 * t34 * t5814 * t1819 + 0.5e1 / 0.16e2 * t1079 * t1186 + 0.9e1 / 0.8e1 * t84 * t5834 - 0.9e1 / 0.8e1 * t84 * t1057 * t2205 - t5682 * t234 / 0.16e2 - t5860;
1909   t5874 = -0.11e2 / 0.16e2 * t84 * t1053 * t2339 - 0.5e1 / 0.16e2 * t1079 * t1165 + 0.5e1 / 0.16e2 * t1079 * t1168 - 0.7e1 / 0.16e2 * t84 * t5840 + 0.11e2 / 0.8e1 * t84 * t5844 - t5783 + t5784 - t5785 + t5786 - t5787 - t5788 + t5789 + t5790;
1910   t5875 = -t5792 - t5793 - t1047 - t1153 + t1156 + t1159 - t1164 + t1069 - t1092 + t1098 - t5586 + t5590 + t5593 - t5618;
1911   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1912     v4sigma3tau[0] = t5824 + t5861 + t5874 + t5875;
1913 
1914   t5885 = t247 * t199;
1915   t5895 = t1475 * t199;
1916   t5896 = t248 * t5895;
1917   t5899 = t1502 * t199;
1918   t5903 = -t208 - t5699 / 0.2e1 - 0.3e1 / 0.2e1 * t5702 + 0.2e1 * t5705 - t5708 + 0.3e1 / 0.4e1 * t5710 + 0.3e1 / 0.2e1 * t5713 - 0.3e1 / 0.4e1 * t5715 - 0.3e1 / 0.2e1 * t5717 + 0.3e1 / 0.4e1 * t5719 - 0.11e2 / 0.8e1 * t34 * t5885 * t1819 + 0.3e1 / 0.4e1 * t34 * t5885 * t1798 - t34 * t5885 * t1824 / 0.8e1 + 0.9e1 / 0.8e1 * t84 * t5896 - 0.9e1 / 0.8e1 * t84 * t880 * t5899;
1919   t5904 = t248 * t5899;
1920   t5907 = t1492 * t199;
1921   t5908 = t880 * t5907;
1922   t5922 = t1481 * t199;
1923   t5930 = t248 * t2511;
1924   t5931 = t84 * t5930;
1925   t5932 = 0.3e1 / 0.16e2 * t5931;
1926   t5936 = t84 * t880 * t2496;
1927   t5937 = 0.3e1 / 0.16e2 * t5936;
1928   t5939 = t34 * t248 * t2496;
1929   t5940 = t5939 / 0.2e1;
1930   t5942 = t34 * t880 * t5542;
1931   t5943 = 0.3e1 / 0.8e1 * t5942;
1932   t5944 = t34 * t5930;
1933   t5945 = 0.3e1 / 0.8e1 * t5944;
1934   t5948 = t34 * t247 * t204 * t452;
1935   t5949 = t5948 / 0.8e1;
1936   t5950 = -0.3e1 * t34 * t5904 + 0.9e1 / 0.4e1 * t34 * t5908 + 0.11e2 / 0.8e1 * t34 * t5885 * t1772 + 0.11e2 / 0.8e1 * t84 * t5908 - 0.15e2 / 0.16e2 * t84 * t3142 * t2526 - 0.25e2 / 0.8e1 * t34 * t880 * t2526 + 0.3e1 / 0.4e1 * t34 * t252 * t5922 - 0.7e1 / 0.16e2 * t84 * t5904 - 0.5e1 / 0.16e2 * t1079 * t1203 - t5932 + 0.5e1 / 0.16e2 * t1079 * t1216 + t5937 + t5940 - t5943 - t5945 - t5949;
1937   t5953 = t34 * t252 * t5567;
1938   t5954 = t5953 / 0.4e1;
1939   t5961 = t84 * t248 * t2611;
1940   t5962 = 0.3e1 / 0.16e2 * t5961;
1941   t5964 = t34 * t252 * t2611;
1942   t5965 = 0.3e1 / 0.8e1 * t5964;
1943   t5966 = t1540 * t199;
1944   t5973 = 0.3e1 / 0.8e1 * t5544;
1945   t5974 = 0.3e1 / 0.16e2 * t5547;
1946   t5975 = 0.3e1 / 0.16e2 * t5550;
1947   t5976 = 0.3e1 / 0.8e1 * t5554;
1948   t5977 = 0.3e1 / 0.8e1 * t5556;
1949   t5978 = t5559 / 0.8e1;
1950   t5979 = t5562 / 0.2e1;
1951   t5980 = -t5954 - 0.11e2 / 0.16e2 * t84 * t200 * t3239 + 0.5e1 / 0.16e2 * t1079 * t1196 + t5962 + t5965 + 0.15e2 / 0.8e1 * t34 * t3142 * t5966 + 0.11e2 / 0.8e1 * t34 * t5896 - t5772 / 0.4e1 - t5973 + t5974 - t5975 + t5976 - t5977 - t5978 + t5979;
1952   t5981 = 0.3e1 / 0.16e2 * t5565;
1953   t5982 = t5569 / 0.4e1;
1954   t5983 = t5571 / 0.16e2;
1955   t5986 = t5981 - t5982 - t5983 - t1126 - t1229 + t1142 - t1148 + t1149 - t1206 + t1207 + t1208 - t5586 + t5590 + t5593 - t5618 - t5682 * t249 / 0.16e2;
1956   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1957     v4sigma2lapl2[0] = t5903 + t5950 + t5980 + t5986;
1958 
1959   t6007 = t848 * t62 * t2611;
1960   t6009 = t848 * t3952;
1961   t6040 = -t208 - 0.25e2 / 0.8e1 * t848 * t536 * t2526 + 0.15e2 / 0.8e1 * t848 * t2686 * t3967 - 0.7e1 / 0.16e2 * t965 * t481 * t4235 + 0.11e2 / 0.8e1 * t965 * t797 * t4235 - 0.15e2 / 0.16e2 * t965 * t2675 * t4235 + 0.11e2 / 0.8e1 * t848 * t169 * t5907 + 0.3e1 / 0.8e1 * t6007 - 0.3e1 / 0.8e1 * t6009 + 0.3e1 / 0.4e1 * t848 * t367 * t3967 + 0.9e1 / 0.8e1 * t965 * t786 * t4235 - 0.11e2 / 0.16e2 * t965 * t4236 - 0.11e2 / 0.8e1 * t848 * t62 * t2559 + 0.11e2 / 0.8e1 * t848 * t786 * t3967 - 0.9e1 / 0.8e1 * t965 * t790 * t4235 - 0.3e1 * t848 * t169 * t5899 + 0.9e1 / 0.4e1 * t848 * t797 * t3967 + 0.3e1 / 0.4e1 * t848 * t1118 * t1798 - t848 * t1118 * t1824 / 0.8e1;
1962   t6046 = t848 * t169 * t2496;
1963   t6049 = t848 * t797 * t3951;
1964   t6051 = t965 * t4179;
1965   t6053 = t965 * t4184;
1966   t6058 = t848 * t367 * t3951;
1967   t6061 = t848 * t1099 * t452;
1968   t6063 = t965 * t4173;
1969   t6065 = 0.3e1 / 0.4e1 * t5796;
1970   t6066 = 0.3e1 / 0.8e1 * t5798;
1971   t6067 = 0.3e1 / 0.4e1 * t5800;
1972   t6068 = 0.3e1 / 0.8e1 * t5802;
1973   t6069 = t5804 / 0.2e1;
1974   t6070 = 0.3e1 / 0.8e1 * t5806;
1975   t6071 = t5808 / 0.4e1;
1976   t6072 = 0.3e1 / 0.4e1 * t5812;
1977   t6073 = -0.5e1 / 0.16e2 * t4559 * t1246 + 0.5e1 / 0.16e2 * t4559 * t1235 + t6046 / 0.2e1 - 0.3e1 / 0.8e1 * t6049 - 0.3e1 / 0.16e2 * t6051 + 0.3e1 / 0.16e2 * t6053 + 0.5e1 / 0.16e2 * t4559 * t1249 - t6058 / 0.4e1 - t6061 / 0.8e1 + 0.3e1 / 0.16e2 * t6063 + t6065 - t6066 - t6067 + t6068 - t6069 + t6070 - t6071 + t5810 - t6072;
1978   t6075 = t5699 / 0.4e1;
1979   t6076 = 0.3e1 / 0.4e1 * t5702;
1980   t6077 = t5708 / 0.2e1;
1981   t6078 = 0.3e1 / 0.8e1 * t5710;
1982   t6079 = 0.3e1 / 0.4e1 * t5713;
1983   t6080 = 0.3e1 / 0.8e1 * t5715;
1984   t6081 = 0.3e1 / 0.4e1 * t5717;
1985   t6082 = 0.3e1 / 0.8e1 * t5719;
1986   t6085 = -t6075 - t6076 + t5705 - t6077 + t6078 + t6079 - t6080 - t6081 + t6082 - t5682 * t262 / 0.16e2 - t5860 - t5773 - t5973 + t5974 - t5975 + t5976 - t5977 - t5978 + t5979;
1987   t6086 = t5981 - t5982 - t5983 - t1126 - t1147 - t1153 + t1156 + t1159 - t1164 + t1142 - t1148 + t1149 - t1102 + t1106 + t1110 - t5586 + t5590 + t5593 - t5618;
1988   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1989     v4sigma2lapltau[0] = t6040 + t6073 + t6085 + t6086;
1990 
1991   t6096 = t277 * t199;
1992   t6112 = -t208 + 0.3e1 / 0.2e1 * t5796 - 0.3e1 / 0.4e1 * t5798 - 0.3e1 / 0.2e1 * t5800 + 0.3e1 / 0.4e1 * t5802 - t5804 + 0.3e1 / 0.4e1 * t5806 - t5808 / 0.2e1 + 0.2e1 * t5810 - 0.3e1 / 0.2e1 * t5812 - 0.11e2 / 0.8e1 * t34 * t6096 * t1819 + 0.3e1 / 0.4e1 * t34 * t6096 * t1798 - t34 * t6096 * t1824 / 0.8e1 - 0.15e2 / 0.16e2 * t84 * t3655 * t2526 - 0.25e2 / 0.8e1 * t34 * t997 * t2526;
1993   t6116 = t278 * t5895;
1994   t6124 = t278 * t5899;
1995   t6127 = t997 * t5907;
1996   t6134 = t34 * t997 * t5542;
1997   t6135 = 0.3e1 / 0.8e1 * t6134;
1998   t6141 = t34 * t277 * t204 * t452;
1999   t6142 = t6141 / 0.8e1;
2000   t6147 = t278 * t2511;
2001   t6148 = t84 * t6147;
2002   t6149 = 0.3e1 / 0.16e2 * t6148;
2003   t6153 = t84 * t997 * t2496;
2004   t6154 = 0.3e1 / 0.16e2 * t6153;
2005   t6156 = t34 * t278 * t2496;
2006   t6157 = t6156 / 0.2e1;
2007   t6158 = 0.15e2 / 0.8e1 * t34 * t3655 * t5966 + 0.11e2 / 0.8e1 * t34 * t6116 + 0.9e1 / 0.8e1 * t84 * t6116 - 0.9e1 / 0.8e1 * t84 * t997 * t5899 - 0.3e1 * t34 * t6124 + 0.9e1 / 0.4e1 * t34 * t6127 + 0.11e2 / 0.8e1 * t34 * t6096 * t1772 - t6135 + 0.3e1 / 0.4e1 * t34 * t282 * t5922 - t6142 - 0.7e1 / 0.16e2 * t84 * t6124 - 0.5e1 / 0.16e2 * t1079 * t1274 - t6149 + 0.5e1 / 0.16e2 * t1079 * t1287 + t6154 + t6157;
2008   t6160 = t34 * t6147;
2009   t6161 = 0.3e1 / 0.8e1 * t6160;
2010   t6163 = t34 * t282 * t5567;
2011   t6164 = t6163 / 0.4e1;
2012   t6171 = t84 * t278 * t2611;
2013   t6172 = 0.3e1 / 0.16e2 * t6171;
2014   t6174 = t34 * t282 * t2611;
2015   t6175 = 0.3e1 / 0.8e1 * t6174;
2016   t6179 = -t6161 - t6164 - 0.11e2 / 0.16e2 * t84 * t200 * t3644 + 0.5e1 / 0.16e2 * t1079 * t1268 + t6172 + t6175 + 0.11e2 / 0.8e1 * t84 * t6127 - t5859 / 0.4e1 - t5973 + t5974 - t5975 + t5976 - t5977 - t5978 + t5979;
2017   t6182 = t5981 - t5982 - t5983 - t1126 - t1277 + t1278 + t1279 - t1280 + t1142 - t1148 + t1149 - t5586 + t5590 + t5593 - t5618 - t5682 * t279 / 0.16e2;
2018   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2019     v4sigma2tau2[0] = t6112 + t6158 + t6179 + t6182;
2020 
2021   t6184 = t1492 * t54;
2022   t6188 = t1319 * t6184;
2023   t6197 = -t208 - t5700 - t5703 + t5706 - t5709 + t5711 + t5714 - t5716 - t5718 + t5720 + 0.11e2 / 0.8e1 * t34 * t1303 * t6184 + 0.11e2 / 0.8e1 * t84 * t6188 - 0.15e2 / 0.16e2 * t84 * t4941 * t1788 - 0.25e2 / 0.8e1 * t34 * t1319 * t1788;
2024   t6198 = t1540 * t54;
2025   t6206 = t1303 * t1837;
2026   t6214 = t1303 * t1841;
2027   t6219 = t1340 * t1145;
2028   t6225 = t1481 * t54;
2029   t6232 = t1298 * t54;
2030   t6236 = 0.15e2 / 0.8e1 * t34 * t4941 * t6198 - t1340 * t1203 / 0.8e1 + t1340 * t1216 / 0.8e1 + 0.11e2 / 0.8e1 * t34 * t6206 + 0.9e1 / 0.8e1 * t84 * t6206 - 0.9e1 / 0.8e1 * t84 * t1319 * t1841 - 0.3e1 * t34 * t6214 + 0.9e1 / 0.4e1 * t34 * t6188 - t6219 / 0.8e1 + t1340 * t1196 / 0.8e1 - 0.7e1 / 0.16e2 * t84 * t6214 + 0.3e1 / 0.4e1 * t34 * t1299 * t6225 - 0.11e2 / 0.16e2 * t84 * t145 * t4919 - 0.11e2 / 0.8e1 * t34 * t6232 * t1819;
2031   t6244 = 0.9e1 / 0.16e2 * t5931;
2032   t6245 = 0.9e1 / 0.16e2 * t5936;
2033   t6246 = 0.3e1 / 0.2e1 * t5939;
2034   t6247 = 0.9e1 / 0.8e1 * t5942;
2035   t6248 = 0.9e1 / 0.8e1 * t5944;
2036   t6249 = 0.3e1 / 0.8e1 * t5948;
2037   t6250 = 0.3e1 / 0.4e1 * t5953;
2038   t6251 = 0.9e1 / 0.16e2 * t5961;
2039   t6252 = 0.9e1 / 0.8e1 * t5964;
2040   t6254 = 0.3e1 / 0.4e1 * t34 * t6232 * t1798 - t34 * t6232 * t1824 / 0.8e1 - t6244 + t6245 + t6246 - t6247 - t6248 - t6249 - t6250 + t6251 + t6252 - 0.3e1 / 0.16e2 * t5772 - t1213 - t1343;
2041   t6258 = t82 * t54 * t86;
2042   t6270 = t1622 * t54;
2043   t6273 = t55 * t92;
2044   t6276 = t786 * t3898;
2045   t6279 = t367 * t3898;
2046   t6291 = t6258 * t156 / 0.4e1 + t5642 + t1331 * t54 * t141 / 0.2e1 - t5011 * t226 / 0.2e1 - t5014 * t230 / 0.2e1 - t5017 * t3899 / 0.2e1 + t6270 * t5021 / 0.2e1 + t5658 + t1333 * t6273 / 0.2e1 - t1333 * t6276 / 0.2e1 - t1333 * t6279 / 0.2e1 - t5666 * t61 * t368 / 0.2e1 - t5672 - t1335 * t6273 / 0.2e1 + t1335 * t6276 / 0.2e1 + t1335 * t6279 / 0.2e1;
2047   t6293 = t31 * t2 * t6291;
2048   t6300 = t1226 - t1230 + t1231 - t1313 + t1314 + t1315 - t5586 + t5590 + t5593 - t5618 - 0.3e1 / 0.16e2 * t1079 * t1310 - t6293 * t249 / 0.16e2 + 0.3e1 / 0.16e2 * t1079 * t1304 + 0.3e1 / 0.16e2 * t1079 * t1320;
2049   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2050     v4sigmalapl3[0] = t6197 + t6236 + t6254 + t6300;
2051 
2052   t6353 = -t848 * t1209 * t1824 / 0.8e1 + 0.3e1 / 0.4e1 * t848 * t1209 * t1798 + 0.15e2 / 0.8e1 * t848 * t2686 * t4402 - t5076 * t1246 / 0.8e1 + t5076 * t1235 / 0.8e1 - 0.7e1 / 0.16e2 * t4365 * t481 * t2960 + 0.11e2 / 0.8e1 * t4365 * t797 * t2960 - 0.15e2 / 0.16e2 * t4365 * t2961 + 0.11e2 / 0.8e1 * t848 * t248 * t6184 - 0.25e2 / 0.8e1 * t848 * t880 * t1788 - 0.11e2 / 0.16e2 * t771 * t5130 + 0.9e1 / 0.4e1 * t848 * t797 * t4402 - 0.11e2 / 0.8e1 * t848 * t252 * t1856 + 0.11e2 / 0.8e1 * t848 * t786 * t4402 + 0.3e1 / 0.4e1 * t848 * t367 * t4402 + 0.9e1 / 0.8e1 * t4365 * t786 * t2960 - 0.9e1 / 0.8e1 * t4365 * t790 * t2960 - 0.3e1 * t848 * t4403 + t5076 * t1249 / 0.8e1 - t208;
2053   t6354 = 0.3e1 / 0.4e1 * t6007;
2054   t6355 = 0.3e1 / 0.4e1 * t6009;
2055   t6356 = 0.3e1 / 0.4e1 * t6049;
2056   t6357 = 0.3e1 / 0.8e1 * t6051;
2057   t6358 = 0.3e1 / 0.8e1 * t6053;
2058   t6359 = t6058 / 0.2e1;
2059   t6360 = t6061 / 0.4e1;
2060   t6361 = 0.3e1 / 0.8e1 * t6063;
2061   t6371 = t6354 - t6355 + t6046 - t6356 - t6357 + t6358 - t6359 - t6360 + t6361 + 0.3e1 / 0.8e1 * t5796 - 0.3e1 / 0.16e2 * t5798 - 0.3e1 / 0.8e1 * t5800 + 0.3e1 / 0.16e2 * t5802 - t5804 / 0.4e1 + 0.3e1 / 0.16e2 * t5806 - t5808 / 0.8e1 + t5810 / 0.2e1 - 0.3e1 / 0.8e1 * t5812 - t6075 - t6076;
2062   t6381 = t1340 * t1162;
2063   t6383 = t6219 / 0.16e2;
2064   t6384 = t5705 - t6077 + t6078 + t6079 - t6080 - t6081 + t6082 + 0.3e1 / 0.16e2 * t1079 * t1369 - 0.3e1 / 0.16e2 * t1079 * t1346 + 0.3e1 / 0.16e2 * t1079 * t1349 - t6293 * t262 / 0.16e2 - t6381 / 0.16e2 - t6383 - t5932 + t5937 + t5940 - t5943 - t5945 - t5949 - t5954;
2065   t6386 = t5962 + t5965 - t5859 / 0.16e2 - t5773 - t1213 - t1229 - t1153 + t1156 + t1159 - t1164 + t1226 - t1230 + t1231 - t1206 + t1207 + t1208 - t5586 + t5590 + t5593 - t5618;
2066   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2067     v4sigmalapl2tau[0] = t6353 + t6371 + t6384 + t6386;
2068 
2069   t6400 = t797 * t2792;
2070   t6411 = t786 * t2792;
2071   t6432 = -t4731 * t222 * t1824 / 0.8e1 - 0.11e2 / 0.8e1 * t4731 * t55 * t2136 + 0.3e1 / 0.4e1 * t4731 * t55 * t5279 - 0.3e1 * t4731 * t481 * t2792 + 0.9e1 / 0.4e1 * t4731 * t6400 + 0.11e2 / 0.8e1 * t4731 * t169 * t6184 + 0.11e2 / 0.8e1 * t4727 * t6400 - 0.15e2 / 0.16e2 * t4727 * t2675 * t2792 + 0.11e2 / 0.8e1 * t4731 * t6411 + 0.9e1 / 0.8e1 * t4727 * t6411 - 0.9e1 / 0.8e1 * t4727 * t790 * t2792 - 0.7e1 / 0.16e2 * t771 * t5251 + 0.3e1 / 0.4e1 * t4731 * t367 * t2792 - 0.11e2 / 0.16e2 * t771 * t5270 - 0.25e2 / 0.8e1 * t4731 * t1866 * t2792 + 0.15e2 / 0.8e1 * t4731 * t2686 * t2792 - t208 + t6354 - t6355;
2072   t6437 = t6046 - t6356 - t6357 + t6358 - t6359 - t6360 + t6361 + t6065 - t6066 - t6067 + t6068 - t6069 + t6070 - t6071 + t5810 - t6072 - t5699 / 0.8e1 - 0.3e1 / 0.8e1 * t5702 + t5705 / 0.2e1 - t5708 / 0.4e1;
2073   t6456 = t6381 / 0.8e1;
2074   t6457 = 0.3e1 / 0.16e2 * t5710 + 0.3e1 / 0.8e1 * t5713 - 0.3e1 / 0.16e2 * t5715 - 0.3e1 / 0.8e1 * t5717 + 0.3e1 / 0.16e2 * t5719 + 0.3e1 / 0.16e2 * t1079 * t1394 + 0.3e1 / 0.16e2 * t1079 * t1379 - t1340 * t1274 / 0.8e1 + t1340 * t1287 / 0.8e1 + t1340 * t1268 / 0.8e1 - 0.3e1 / 0.16e2 * t1079 * t1385 - t6456 - t6135 - t6142 - t6149 + t6154 + t6157 - t6161 - t6164 + t6172;
2075   t6461 = t6175 - t5860 - t5772 / 0.16e2 - t1213 - t1147 - t1277 + t1278 + t1279 - t1280 + t1226 - t1230 + t1231 - t1102 + t1106 + t1110 - t5586 + t5590 + t5593 - t5618 - t6293 * t279 / 0.16e2;
2076   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2077     v4sigmalapltau2[0] = t6432 + t6437 + t6457 + t6461;
2078 
2079   t6470 = t1411 * t1841;
2080   t6473 = -t208 + t5797 - t5799 - t5801 + t5803 - t5805 + t5807 - t5809 + t5811 - t5813 + 0.15e2 / 0.8e1 * t34 * t5381 * t6198 - t1449 * t1274 / 0.8e1 + t1449 * t1287 / 0.8e1 - 0.3e1 * t34 * t6470;
2081   t6474 = t1430 * t6184;
2082   t6477 = t1406 * t54;
2083   t6495 = t1449 * t1162;
2084   t6496 = t6495 / 0.8e1;
2085   t6501 = t1411 * t1837;
2086   t6513 = 0.9e1 / 0.4e1 * t34 * t6474 - t34 * t6477 * t1824 / 0.8e1 + 0.3e1 / 0.4e1 * t34 * t6477 * t1798 + 0.11e2 / 0.8e1 * t34 * t1411 * t6184 + 0.11e2 / 0.8e1 * t84 * t6474 - 0.15e2 / 0.16e2 * t84 * t5381 * t1788 - 0.25e2 / 0.8e1 * t34 * t1430 * t1788 - t6496 + t1449 * t1268 / 0.8e1 - 0.7e1 / 0.16e2 * t84 * t6470 + 0.11e2 / 0.8e1 * t34 * t6501 - 0.9e1 / 0.8e1 * t84 * t486 * t5416 + 0.3e1 / 0.4e1 * t34 * t1407 * t6225 - 0.11e2 / 0.16e2 * t84 * t145 * t5429;
2087   t6520 = 0.9e1 / 0.8e1 * t6134;
2088   t6521 = 0.3e1 / 0.8e1 * t6141;
2089   t6522 = 0.9e1 / 0.16e2 * t6148;
2090   t6523 = 0.9e1 / 0.16e2 * t6153;
2091   t6524 = 0.3e1 / 0.2e1 * t6156;
2092   t6525 = 0.9e1 / 0.8e1 * t6160;
2093   t6526 = 0.3e1 / 0.4e1 * t6163;
2094   t6527 = 0.9e1 / 0.16e2 * t6171;
2095   t6528 = 0.9e1 / 0.8e1 * t6174;
2096   t6530 = -0.11e2 / 0.8e1 * t34 * t1407 * t1856 + 0.9e1 / 0.8e1 * t84 * t6501 - t6520 - t6521 - t6522 + t6523 + t6524 - t6525 - t6526 + t6527 + t6528 - 0.3e1 / 0.16e2 * t5859 - t1213 - t1421;
2097   t6559 = t6258 * t178 / 0.4e1 + t5642 + t1440 * t54 * t141 / 0.2e1 - t5487 * t226 / 0.2e1 - t5490 * t230 / 0.2e1 - t5493 * t3899 / 0.2e1 + t6270 * t5497 / 0.2e1 + t5658 + t1442 * t6273 / 0.2e1 - t1442 * t6276 / 0.2e1 - t1442 * t6279 / 0.2e1 - t5666 * t67 * t368 / 0.2e1 - t5672 - t1444 * t6273 / 0.2e1 + t1444 * t6276 / 0.2e1 + t1444 * t6279 / 0.2e1;
2098   t6570 = t1422 + t1423 - t1424 + t1226 - t1230 + t1231 - t5586 + t5590 + t5593 - t5618 - t31 * t2 * t6559 * t279 / 0.16e2 + 0.3e1 / 0.16e2 * t1079 * t1418 - 0.3e1 / 0.16e2 * t1079 * t1412 + 0.3e1 / 0.16e2 * t1079 * t1431;
2099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2100     v4sigmatau3[0] = t6473 + t6513 + t6530 + t6570;
2101 
2102   t6586 = t247 * t247;
2103   t6587 = t6586 * t86;
2104   t6591 = t6586 * t317;
2105   t6592 = t6591 * t1492;
2106   t6595 = t6586 * t1536;
2107   t6602 = -t208 - 0.5e1 / 0.16e2 * t6219 - 0.9e1 / 0.8e1 * t5931 + 0.9e1 / 0.8e1 * t5936 + 0.3e1 * t5939 - 0.9e1 / 0.4e1 * t5942 - 0.9e1 / 0.4e1 * t5944 - 0.3e1 / 0.4e1 * t5948 - 0.3e1 / 0.2e1 * t5953 + 0.9e1 / 0.8e1 * t5961 + 0.9e1 / 0.4e1 * t5964 - t1146 / 0.4e1 - t1101 / 0.2e1 + t1105 / 0.2e1 + t1109 / 0.2e1 + 0.11e2 / 0.8e1 * t34 * t6587 * t1492 + 0.11e2 / 0.8e1 * t84 * t6592 - 0.15e2 / 0.16e2 * t84 * t6595 * t1532 - 0.25e2 / 0.8e1 * t34 * t6591 * t1532;
2108   t6606 = t6587 * t1475;
2109   t6614 = t6587 * t1502;
2110   t6619 = t6586 * t22;
2111   t6639 = t32 * t247;
2112   t6652 = t372 * t247;
2113   t6659 = t80 * t1338;
2114   t6663 = t375 * t247;
2115   t6670 = t82 * t247 * t1601 / 0.4e1 + t5642 + t6639 * t141 / 0.2e1 - t6639 * t1610 / 0.2e1 - t6639 * t1613 / 0.2e1 - t1618 * t247 * t1601 / 0.2e1 + t1622 * t247 * t1601 / 0.2e1 + t5658 + t6652 * t141 / 0.2e1 - t6652 * t1610 / 0.2e1 - t6652 * t1613 / 0.2e1 - t6659 * t61 * t368 / 0.2e1 - t5672 - t6663 * t141 / 0.2e1 + t6663 * t1610 / 0.2e1 + t6663 * t1613 / 0.2e1;
2116   t6672 = t31 * t2 * t6670;
2117   t6682 = 0.15e2 / 0.8e1 * t34 * t6595 * t1540 + 0.11e2 / 0.8e1 * t34 * t6606 + 0.9e1 / 0.8e1 * t84 * t6606 - 0.9e1 / 0.8e1 * t84 * t6591 * t1502 - 0.3e1 * t34 * t6614 + 0.9e1 / 0.4e1 * t34 * t6592 + 0.3e1 / 0.4e1 * t34 * t6619 * t1475 + 0.5e1 / 0.16e2 * t1340 * t1320 - t34 * t6619 * t1502 / 0.8e1 - 0.11e2 / 0.8e1 * t34 * t6619 * t1465 + 0.3e1 / 0.4e1 * t34 * t6619 * t1481 - 0.5e1 / 0.16e2 * t1340 * t1310 - t6672 * t249 / 0.16e2 - 0.11e2 / 0.16e2 * t84 * t6587 * t1465 + 0.5e1 / 0.16e2 * t1340 * t1304 - 0.7e1 / 0.16e2 * t84 * t6614 - t5586 + t5590 + t5593 - t5618;
2118   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2119     v4lapl4[0] = t6602 + t6682;
2120 
2121   t6683 = 0.9e1 / 0.8e1 * t6007;
2122   t6684 = 0.9e1 / 0.8e1 * t6009;
2123   t6685 = 0.3e1 / 0.2e1 * t6046;
2124   t6686 = 0.9e1 / 0.8e1 * t6049;
2125   t6687 = 0.9e1 / 0.16e2 * t6051;
2126   t6688 = 0.9e1 / 0.16e2 * t6053;
2127   t6689 = 0.3e1 / 0.4e1 * t6058;
2128   t6690 = 0.3e1 / 0.8e1 * t6061;
2129   t6691 = 0.9e1 / 0.16e2 * t6063;
2130   t6692 = t1319 * t2209;
2131   t6698 = t67 * t1298;
2132   t6702 = -t208 + t6683 - t6684 + t6685 - t6686 - t6687 + t6688 - t6689 - t6690 + t6691 + 0.11e2 / 0.8e1 * t84 * t6692 - 0.15e2 / 0.16e2 * t84 * t4941 * t2213 + 0.3e1 / 0.4e1 * t34 * t6698 * t1798;
2133   t6720 = t1303 * t2205;
2134   t6729 = t192 * t1475 * t1298;
2135   t6741 = -t34 * t6698 * t1824 / 0.8e1 + 0.11e2 / 0.8e1 * t34 * t6698 * t1772 - 0.25e2 / 0.8e1 * t34 * t6698 * t1867 + 0.15e2 / 0.8e1 * t34 * t2224 * t1540 * t1298 - 0.5e1 / 0.16e2 * t1340 * t1346 + 0.5e1 / 0.16e2 * t1340 * t1349 - 0.7e1 / 0.16e2 * t84 * t6720 - 0.11e2 / 0.16e2 * t84 * t1303 * t2339 - t6672 * t262 / 0.16e2 + 0.11e2 / 0.8e1 * t34 * t6729 + 0.3e1 / 0.4e1 * t34 * t68 * t1481 * t1298 - 0.9e1 / 0.8e1 * t84 * t1319 * t2205 - 0.3e1 * t34 * t6720;
2136   t6753 = 0.9e1 / 0.4e1 * t34 * t6692 - 0.11e2 / 0.8e1 * t34 * t6698 * t1819 + 0.9e1 / 0.8e1 * t84 * t6729 + 0.5e1 / 0.16e2 * t1340 * t1369 - t6456 - 0.3e1 / 0.16e2 * t6219 - t6244 + t6245 + t6246 - t6247 - t6248 - t6249 - t6250;
2137   t6754 = t6251 + t6252 - t1343 - t1153 + t1156 + t1159 - t1164 - t1313 + t1314 + t1315 - t5586 + t5590 + t5593 - t5618;
2138   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2139     v4lapl3tau[0] = t6702 + t6741 + t6753 + t6754;
2140 
2141   t6764 = t1532 * t247;
2142   t6773 = t278 * t1475 * t247;
2143   t6778 = t1502 * t247;
2144   t6782 = -t208 + 0.3e1 / 0.2e1 * t6007 - 0.3e1 / 0.2e1 * t6009 + 0.2e1 * t6046 - 0.3e1 / 0.2e1 * t6049 - 0.3e1 / 0.4e1 * t6051 + 0.3e1 / 0.4e1 * t6053 - t6058 - t6061 / 0.2e1 + 0.3e1 / 0.4e1 * t6063 - 0.25e2 / 0.8e1 * t34 * t997 * t6764 + 0.15e2 / 0.8e1 * t34 * t3655 * t1540 * t247 + 0.11e2 / 0.8e1 * t34 * t6773 + 0.9e1 / 0.8e1 * t84 * t6773 - 0.9e1 / 0.8e1 * t84 * t997 * t6778;
2145   t6783 = t278 * t6778;
2146   t6787 = t997 * t1492 * t247;
2147   t6790 = t277 * t247;
2148   t6824 = -0.3e1 * t34 * t6783 + 0.9e1 / 0.4e1 * t34 * t6787 + 0.11e2 / 0.8e1 * t34 * t6790 * t1772 + 0.3e1 / 0.4e1 * t34 * t6790 * t1798 - t34 * t6790 * t1824 / 0.8e1 - 0.11e2 / 0.8e1 * t34 * t6790 * t1819 + 0.5e1 / 0.16e2 * t1340 * t1379 + 0.3e1 / 0.4e1 * t34 * t282 * t1481 * t247 + 0.11e2 / 0.8e1 * t84 * t6787 - 0.15e2 / 0.16e2 * t84 * t3655 * t6764 - 0.7e1 / 0.16e2 * t84 * t6783 - 0.5e1 / 0.16e2 * t1340 * t1385 + 0.5e1 / 0.16e2 * t1340 * t1394 - 0.11e2 / 0.16e2 * t84 * t248 * t3644 - t6381 / 0.4e1 - t6383;
2149   t6826 = -t6135 - t6142 - t6149 + t6154 + t6157 - t6161 - t6164 + t6172 + t6175 - t5932 + t5937 + t5940 - t5943 - t5945 - t5949;
2150   t6829 = -t5954 + t5962 + t5965 - t1229 - t1277 + t1278 + t1279 - t1280 - t1206 + t1207 + t1208 - t6672 * t279 / 0.16e2 - t5586 + t5590 + t5593 - t5618;
2151   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2152     v4lapl2tau2[0] = t6782 + t6824 + t6826 + t6829;
2153 
2154   t6831 = t1430 * t2063;
2155   t6842 = -t208 + t6683 - t6684 + t6685 - t6686 - t6687 + t6688 - t6689 - t6690 + t6691 + 0.9e1 / 0.4e1 * t34 * t6831 + 0.11e2 / 0.8e1 * t34 * t1411 * t2063 + 0.11e2 / 0.8e1 * t84 * t6831 - 0.15e2 / 0.16e2 * t84 * t5381 * t2067;
2156   t6854 = t1411 * t2114;
2157   t6861 = t1411 * t5279;
2158   t6879 = t1406 * t61;
2159   t6883 = -0.25e2 / 0.8e1 * t34 * t1430 * t2067 + 0.15e2 / 0.8e1 * t34 * t5381 * t1540 * t61 - t1449 * t1385 / 0.8e1 + t1449 * t1394 / 0.8e1 - 0.3e1 * t34 * t6854 + t1449 * t1379 / 0.8e1 - 0.7e1 / 0.16e2 * t84 * t6854 + 0.11e2 / 0.8e1 * t34 * t6861 - 0.9e1 / 0.8e1 * t84 * t536 * t5416 + 0.3e1 / 0.4e1 * t34 * t1407 * t1481 * t61 - 0.11e2 / 0.16e2 * t84 * t169 * t5429 - 0.11e2 / 0.8e1 * t34 * t1407 * t2136 + 0.9e1 / 0.8e1 * t84 * t6861 + 0.3e1 / 0.4e1 * t34 * t6879 * t1798;
2160   t6889 = -t34 * t6879 * t1824 / 0.8e1 - t6496 - 0.3e1 / 0.16e2 * t6381 - t6520 - t6521 - t6522 + t6523 + t6524 - t6525 - t6526 + t6527 + t6528 - t1147 - t1421;
2161   t6906 = t62 * t92;
2162   t6909 = t786 * t5020;
2163   t6912 = t367 * t5020;
2164   t6924 = t82 * t61 * t86 * t178 / 0.4e1 + t5642 + t1440 * t61 * t141 / 0.2e1 - t5487 * t269 / 0.2e1 - t5490 * t273 / 0.2e1 - t5493 * t5021 / 0.2e1 + t1622 * t61 * t5497 / 0.2e1 + t5658 + t1442 * t6906 / 0.2e1 - t1442 * t6909 / 0.2e1 - t1442 * t6912 / 0.2e1 - t6659 * t67 * t368 / 0.2e1 - t5672 - t1444 * t6906 / 0.2e1 + t1444 * t6909 / 0.2e1 + t1444 * t6912 / 0.2e1;
2165   t6935 = t1422 + t1423 - t1424 - t1102 + t1106 + t1110 - t31 * t2 * t6924 * t279 / 0.16e2 + 0.3e1 / 0.16e2 * t1340 * t1418 - 0.3e1 / 0.16e2 * t1340 * t1412 + 0.3e1 / 0.16e2 * t1340 * t1431 - t5586 + t5590 + t5593 - t5618;
2166   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2167     v4lapltau3[0] = t6842 + t6883 + t6889 + t6935;
2168 
2169   t6951 = t277 * t277;
2170   t6952 = t6951 * t1536;
2171   t6956 = t6951 * t317;
2172   t6963 = t6951 * t86;
2173   t6964 = t6963 * t1502;
2174   t6967 = -t208 - 0.5e1 / 0.16e2 * t6495 - 0.9e1 / 0.4e1 * t6134 - 0.3e1 / 0.4e1 * t6141 - 0.9e1 / 0.8e1 * t6148 + 0.9e1 / 0.8e1 * t6153 + 0.3e1 * t6156 - 0.9e1 / 0.4e1 * t6160 - 0.3e1 / 0.2e1 * t6163 + 0.9e1 / 0.8e1 * t6171 + 0.9e1 / 0.4e1 * t6174 - t1152 / 0.2e1 + t1155 / 0.2e1 + t1158 / 0.2e1 - t1163 / 0.4e1 - 0.15e2 / 0.16e2 * t84 * t6952 * t1532 - 0.25e2 / 0.8e1 * t34 * t6956 * t1532 + 0.15e2 / 0.8e1 * t34 * t6952 * t1540 - 0.3e1 * t34 * t6964;
2175   t6968 = t6956 * t1492;
2176   t6980 = t32 * t277;
2177   t6993 = t372 * t277;
2178   t7004 = t375 * t277;
2179   t7011 = t82 * t277 * t1601 / 0.4e1 + t5642 + t6980 * t141 / 0.2e1 - t6980 * t1610 / 0.2e1 - t6980 * t1613 / 0.2e1 - t1618 * t277 * t1601 / 0.2e1 + t1622 * t277 * t1601 / 0.2e1 + t5658 + t6993 * t141 / 0.2e1 - t6993 * t1610 / 0.2e1 - t6993 * t1613 / 0.2e1 - t80 * t1447 * t67 * t368 / 0.2e1 - t5672 - t7004 * t141 / 0.2e1 + t7004 * t1610 / 0.2e1 + t7004 * t1613 / 0.2e1;
2180   t7016 = t6963 * t1475;
2181   t7027 = t6951 * t22;
2182   t7047 = 0.9e1 / 0.4e1 * t34 * t6968 - 0.7e1 / 0.16e2 * t84 * t6964 - 0.5e1 / 0.16e2 * t1449 * t1412 + 0.5e1 / 0.16e2 * t1449 * t1431 - t31 * t2 * t7011 * t279 / 0.16e2 + 0.9e1 / 0.8e1 * t84 * t7016 - 0.9e1 / 0.8e1 * t84 * t6956 * t1502 - 0.11e2 / 0.16e2 * t84 * t6963 * t1465 + 0.5e1 / 0.16e2 * t1449 * t1418 - 0.11e2 / 0.8e1 * t34 * t7027 * t1465 + 0.11e2 / 0.8e1 * t34 * t7016 + 0.3e1 / 0.4e1 * t34 * t7027 * t1481 - t34 * t7027 * t1502 / 0.8e1 + 0.3e1 / 0.4e1 * t34 * t7027 * t1475 + 0.11e2 / 0.8e1 * t34 * t6963 * t1492 + 0.11e2 / 0.8e1 * t84 * t6968 - t5586 + t5590 + t5593 - t5618;
2183   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2184     v4tau4[0] = t6967 + t7047;
2185 
2186 #ifndef XC_DONT_COMPILE_MXC
2187 
2188   if(order < 5) return;
2189 
2190 
2191 #endif
2192 
2193 #endif
2194 
2195 #endif
2196 
2197 #endif
2198 
2199 #endif
2200 
2201 
2202 }
2203 
2204 
2205 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 *))2206 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 *))
2207 {
2208 
2209 #ifndef XC_DONT_COMPILE_EXC
2210   double t2, t3, t4, t5, t9, t10, t14, t15;
2211   double t16, t17, t18, t20, t21, t22, t23, t24;
2212 
2213 #ifndef XC_DONT_COMPILE_VXC
2214   double t27, t28, t29, t30, t35, t36, t41, t42;
2215   double t43, t44, t45, t46, t49, t51, t52, t53;
2216   double t56, t58, t59, t60, t63, t65;
2217 
2218 #ifndef XC_DONT_COMPILE_FXC
2219   double t69, t72, t75, t77, t78, t79, t80, t81;
2220   double t82, t83, t84, t85, t86, t87, t95, t100;
2221   double t101, t102, t105, t106, t109, t110, t111, t112;
2222   double t115, t116, t121, t122, t123, t124, t125, t128;
2223   double t130, t132, t135, t136, t137, t140, t141, t142;
2224   double t145, t146, t151, t152, t156, t158, t161, t162;
2225   double t172, t176, t178, t181, t182, t189, t190, t191;
2226   double t194, t195, t196, t198, t199, t200, t203, t206;
2227   double t209, t210, t213, t216, t219, t230, t231, t232;
2228   double t235, t236, t239, t242, t245, t246, t249, t252;
2229   double t255, t258, t259, t260, t263, t264, t267, t270;
2230 
2231 #ifndef XC_DONT_COMPILE_KXC
2232   double t275, t276, t279, t280, t282, t283, t284, t289;
2233   double t290, t293, t294, t295, t296, t297, t298, t303;
2234   double t306, t307, t308, t312, t320, t325, t326, t327;
2235   double t330, t331, t336, t339, t340, t342, t343, t344;
2236   double t347, t351, t352, t355, t356, t359, t360, t365;
2237   double t370, t371, t376, t377, t378, t379, t380, t383;
2238   double t386, t387, t390, t392, t393, t394, t397, t400;
2239   double t403, t406, t407, t410, t411, t414, t415, t418;
2240   double t419, t422, t423, t426, t429, t432, t435, t438;
2241   double t449, t451, t453, t460, t465, t466, t471, t474;
2242   double t475, t484, t487, t491, t497, t499, t518, t519;
2243   double t524, t528, t530, t539, t540, t545, t548, t549;
2244   double t558, t562, t565, t578, t579, t588, t589, t590;
2245   double t591, t592, t597, t600, t603, t604, t605, t606;
2246   double t607, t610, t611, t614, t617, t618, t619, t620;
2247   double t622, t627, t632, t635, t636, t637, t638, t639;
2248   double t640, t641, t642, t645, t646, t649, t654, t657;
2249   double t658, t659, t660, t662, t663, t666, t669, t670;
2250   double t671, t672, t675, t676, t679, t682, t685, t688;
2251   double t689, t692, t693, t702, t703, t706, t707, t724;
2252   double t727, t728, t731, t737, t746, t773, t774, t775;
2253   double t782, t783, t788, t795, t802, t803, t817, t818;
2254   double t819, t822, t829, t830, t834, t839, t842, t849;
2255   double t852, t853, t856, t857, t874, t875, t876, t881;
2256   double t882, t885, t886, t891, t898, t905, t906, t920;
2257   double t921, t922, t923, t924, t925, t928, t929, t930;
2258   double t931, t934, t935, t936, t939, t942, t947, t948;
2259   double t951, t952, t953, t955, t959, t961, t964, t965;
2260   double t968, t969, t970, t973, t978, t981, t982, t983;
2261   double t984, t987, t994, t996, t997, t1000, t1001, t1002;
2262   double t1003, t1004, t1005, t1006, t1007, t1008, t1009, t1010;
2263   double t1011, t1012, t1032, t1033, t1034, t1035, t1036, t1037;
2264   double t1038, t1039, t1040, t1043, t1044, t1045, t1050, t1052;
2265   double t1055, t1058, t1059, t1060, t1061, t1064, t1069, t1072;
2266   double t1073, t1077, t1080, t1081, t1084, t1087, t1088, t1092;
2267   double t1094, t1097, t1098, t1101, t1104, t1105, t1108, t1126;
2268   double t1127, t1128, t1129, t1132, t1133, t1134, t1137, t1138;
2269   double t1141, t1142, t1145, t1147, t1151, t1153, t1156, t1157;
2270   double t1162, t1165, t1168, t1171, t1172, t1173, t1174, t1175;
2271   double t1178, t1179, t1182, t1187, t1194, t1196, t1199, t1200;
2272   double t1203, t1210, t1212, t1219, t1224, t1227, t1228, t1229;
2273   double t1232, t1233, t1236, t1239, t1242, t1247, t1248, t1251;
2274   double t1253, t1257, t1259, t1262, t1263, t1266, t1267, t1268;
2275   double t1269;
2276 
2277 #ifndef XC_DONT_COMPILE_LXC
2278   double t1275, t1280, t1281, t1284, t1287, t1292, t1296, t1303;
2279   double t1310, t1317, t1324, t1325, t1328, t1329, t1330, t1331;
2280   double t1332, t1336, t1337, t1341, t1345, t1346, t1351, t1361;
2281   double t1367, t1368, t1375, t1376, t1379, t1380, t1385, t1398;
2282   double t1405, t1408, t1427, t1441, t1442, t1444, t1445, t1453;
2283   double t1454, t1468, t1475, t1480, t1481, t1485, t1488, t1492;
2284   double t1497, t1512, t1514, t1515, t1518, t1519, t1522, t1525;
2285   double t1529, t1532, t1536, t1543, t1544, t1551, t1565, t1566;
2286   double t1567, t1570, t1573, t1576, t1577, t1580, t1581, t1584;
2287   double t1585, t1586, t1589, t1592, t1595, t1598, t1609, t1614;
2288   double t1619, t1624, t1627, t1632, t1635, t1637, t1644, t1652;
2289   double t1657, t1658, t1662, t1665, t1670, t1673, t1686, t1689;
2290   double t1693, t1699, t1704, t1713, t1718, t1721, t1724, t1728;
2291   double t1737, t1738, t1741, t1747, t1748, t1751, t1758, t1770;
2292   double t1779, t1780, t1791, t1794, t1797, t1812, t1817, t1830;
2293   double t1837, t1862, t1867, t1868, t1871, t1878, t1881, t1884;
2294   double t1897, t1922, t1923, t1928, t1940, t1941, t1944, t1947;
2295   double t1963, t1976, t1977, t2008, t2009, t2014, t2017, t2020;
2296   double t2023, t2029, t2034, t2035, t2040, t2048, t2053, t2062;
2297   double t2071, t2094, t2095, t2112, t2115, t2117, t2118, t2119;
2298   double t2122, t2123, t2126, t2129, t2132, t2136, t2137, t2139;
2299   double t2147, t2150, t2158, t2162, t2163, t2167, t2168, t2169;
2300   double t2170, t2173, t2176, t2179, t2181, t2184, t2185, t2190;
2301   double t2194, t2195, t2196, t2198, t2199, t2201, t2207, t2210;
2302   double t2211, t2214, t2217, t2218, t2222, t2223, t2225, t2226;
2303   double t2229, t2240, t2243, t2248, t2251, t2262, t2264, t2266;
2304   double t2268, t2269, t2271, t2272, t2274, t2276, t2280, t2282;
2305   double t2284, t2289, t2293, t2295, t2296, t2300, t2303, t2306;
2306   double t2315, t2318, t2319, t2320, t2321, t2322, t2327, t2328;
2307   double t2334, t2344, t2352, t2359, t2360, t2361, t2368, t2369;
2308   double t2372, t2373, t2378, t2385, t2394, t2395, t2398, t2410;
2309   double t2411, t2414, t2415, t2420, t2421, t2422, t2425, t2427;
2310   double t2428, t2436, t2439, t2442, t2445, t2455, t2458, t2464;
2311   double t2469, t2480, t2483, t2490, t2493, t2496, t2499, t2528;
2312   double t2532, t2536, t2542, t2547, t2550, t2565, t2571, t2576;
2313   double t2577, t2588, t2589, t2592, t2605, t2618, t2619, t2629;
2314   double t2632, t2639, t2641, t2668, t2681, t2691, t2698, t2726;
2315   double t2755, t2765, t2772, t2775, t2778, t2779, t2783, t2786;
2316   double t2791, t2800, t2805, t2810, t2817, t2831, t2832, t2843;
2317   double t2846, t2858, t2866, t2871, t2878, t2895, t2898, t2901;
2318   double t2903, t2908, t2909, t2915, t2931, t2936, t2959, t2992;
2319   double t3023, t3030, t3046, t3047, t3053, t3061, t3097, t3128;
2320   double t3138, t3158, t3164, t3175, t3180, t3189, t3191, t3192;
2321   double t3217, t3227, t3247, t3272, t3275, t3281, t3282, t3288;
2322   double t3304, t3307, t3309, t3311, t3312, t3313, t3315, t3317;
2323   double t3319, t3321, t3324, t3326, t3328, t3330, t3332, t3334;
2324   double t3336, t3339, t3340, t3343, t3344, t3347, t3349, t3354;
2325   double t3358, t3359, t3362, t3365, t3368, t3373, t3376, t3383;
2326   double t3386, t3393, t3395, t3398, t3400, t3403, t3404, t3407;
2327   double t3409, t3413, t3416, t3418, t3421, t3428, t3430, t3433;
2328   double t3436, t3441, t3451, t3455, t3459, t3462, t3486, t3487;
2329   double t3496, t3513, t3515, t3519, t3523, t3526, t3527, t3531;
2330   double t3532, t3533, t3534, t3535, t3538, t3541, t3544, t3550;
2331   double t3551, t3554, t3555, t3558, t3564, t3567, t3569, t3570;
2332   double t3571, t3572, t3573, t3574, t3575, t3576, t3577, t3581;
2333   double t3582, t3587, t3588, t3589, t3591, t3594, t3595, t3598;
2334   double t3601, t3604, t3605, t3612, t3613, t3614, t3615, t3617;
2335   double t3618, t3619, t3620, t3621, t3622, t3625, t3628, t3629;
2336   double t3632, t3633, t3634, t3635, t3636, t3637, t3638, t3639;
2337   double t3640, t3641, t3646, t3673, t3674, t3675, t3676, t3677;
2338   double t3682, t3685, t3686, t3687, t3688, t3689, t3690, t3691;
2339   double t3692, t3693, t3703, t3706, t3710, t3716, t3717, t3718;
2340   double t3719, t3720, t3721, t3722, t3723, t3724, t3725, t3726;
2341   double t3727, t3728, t3729, t3730, t3731, t3734, t3735, t3740;
2342   double t3741, t3742, t3743, t3744, t3745, t3746, t3751, t3752;
2343   double t3755, t3756, t3782, t3786, t3788, t3789, t3792, t3806;
2344   double t3807, t3808, t3809, t3810, t3811, t3812, t3813, t3814;
2345   double t3819, t3828, t3839, t3840, t3841, t3842, t3843, t3844;
2346   double t3856, t3859, t3860, t3861, t3862, t3867, t3868, t3869;
2347   double t3870, t3871, t3872, t3873, t3874, t3883, t3895, t3896;
2348   double t3899, t3902, t3903, t3906, t3907, t3910, t3913, t3916;
2349   double t3919, t3922, t3925, t3929, t3932, t3933, t3936, t3939;
2350   double t3942, t3945, t3946, t3949, t3958, t3961, t3964, t3969;
2351   double t3971, t3977, t3978, t3979, t3980, t3981, t3982, t3983;
2352   double t3984, t3985, t3986, t3987, t3988, t3989, t3990, t3991;
2353   double t3992, t3993, t3995, t4008, t4035, t4049, t4050, t4051;
2354   double t4052, t4053, t4054, t4055, t4057, t4058, t4059, t4060;
2355   double t4061, t4062, t4063, t4064, t4065, t4066, t4067, t4068;
2356   double t4071, t4074, t4106, t4128, t4129, t4138, t4145, t4162;
2357   double t4171, t4172, t4188, t4189, t4191, t4192, t4194, t4198;
2358   double t4199, t4202, t4204, t4208, t4215, t4255, t4258, t4263;
2359   double t4284, t4315, t4321, t4322, t4323, t4324, t4325, t4326;
2360   double t4327, t4328, t4329, t4342, t4370, t4372, t4387, t4388;
2361   double t4389, t4390, t4391, t4392, t4393, t4395, t4396, t4397;
2362   double t4400, t4403, t4416, t4421, t4426, t4431, t4432, t4433;
2363   double t4439, t4446, t4451, t4455, t4470, t4475, t4478, t4507;
2364   double t4514, t4522, t4525, t4528, t4554, t4555, t4562, t4571;
2365   double t4577, t4582, t4600, t4604, t4612, t4622, t4623, t4631;
2366   double t4634, t4641, t4647, t4657, t4665, t4672, t4703, t4724;
2367   double t4726, t4727, t4733, t4751, t4760, t4761, t4781, t4782;
2368   double t4797, t4799, t4805, t4811, t4821, t4848, t4867, t4869;
2369   double t4870, t4883, t4893, t4899, t4907, t4931, t4942, t4953;
2370   double t4964, t4976, t5002, t5025, t5037, t5039, t5040, t5041;
2371   double t5044, t5048, t5049, t5052, t5058, t5062, t5065, t5071;
2372   double t5072, t5081, t5085, t5088, t5099, t5103, t5105, t5107;
2373   double t5109, t5111, t5113, t5115, t5117, t5119, t5121, t5130;
2374   double t5145, t5146, t5153, t5159, t5160, t5167, t5168, t5176;
2375   double t5177, t5178, t5179, t5180, t5181, t5182, t5184, t5185;
2376   double t5186, t5187, t5188, t5189, t5190, t5191, t5193, t5194;
2377   double t5195, t5196, t5197, t5198, t5199, t5200, t5201, t5202;
2378   double t5204, t5205, t5206, t5207, t5220, t5223, t5226, t5229;
2379   double t5232, t5237, t5239, t5244, t5247, t5250, t5253, t5254;
2380   double t5255, t5256, t5258, t5262, t5263, t5264, t5269, t5270;
2381   double t5271, t5272, t5273, t5274, t5275, t5276, t5278, t5279;
2382   double t5280, t5281, t5282, t5283, t5284, t5285, t5286, t5287;
2383   double t5288, t5289, t5290, t5291, t5292, t5293, t5294, t5295;
2384   double t5296, t5297, t5298, t5299, t5300, t5325, t5337, t5338;
2385   double t5345, t5346, t5358, t5359, t5362, t5365, t5368, t5369;
2386   double t5370, t5371, t5372, t5373, t5374, t5375, t5376, t5377;
2387   double t5378, t5379, t5380, t5385, t5386, t5389, t5390, t5391;
2388   double t5392, t5393, t5394, t5395, t5398, t5400, t5403, t5406;
2389   double t5409, t5412, t5417, t5426, t5431, t5432, t5433, t5434;
2390   double t5436, t5437, t5438, t5439, t5440, t5441, t5442, t5469;
2391   double t5476, t5480, t5485, t5490, t5494, t5497, t5500, t5504;
2392   double t5508, t5511, t5522, t5523, t5524, t5525, t5526, t5527;
2393   double t5528, t5529, t5530, t5532, t5533, t5534, t5535, t5536;
2394   double t5537, t5538, t5539, t5544, t5545, t5565, t5568, t5569;
2395   double t5572, t5573, t5574, t5577, t5578, t5579, t5580, t5583;
2396   double t5584, t5585, t5586, t5587, t5590, t5592, t5593, t5594;
2397   double t5595, t5617, t5618, t5620, t5626, t5629, t5634, t5652;
2398   double t5653, t5662, t5663, t5670, t5673, t5682, t5693, t5695;
2399   double t5699, t5706, t5709, t5712, t5713, t5714, t5715, t5716;
2400   double t5717, t5718, t5719, t5720, t5721, t5723, t5725, t5732;
2401   double t5777, t5778, t5779, t5780, t5781, t5782, t5783, t5784;
2402   double t5785, t5794, t5802, t5810, t5811, t5813, t5835, t5849;
2403   double t5859, t5864, t5884, t5885, t5887, t5923, t5927, t5956;
2404   double t5958, t5959, t5970, t5971, t5972, t5973, t5974, t5975;
2405   double t5976, t5977, t5978, t5979, t5981, t5997, t6004, t6008;
2406   double t6015, t6016, t6019, t6020, t6024, t6031, t6041, t6042;
2407   double t6045, t6057, t6070, t6087, t6088, t6089, t6090, t6091;
2408   double t6092, t6093, t6094, t6095, t6096, t6105, t6138, t6152;
2409   double t6153, t6175, t6188, t6197, t6216, t6218, t6219, t6253;
2410   double t6261, t6296, t6310, t6311, t6327, t6338, t6345, t6349;
2411   double t6350, t6351, t6360, t6367, t6379, t6385, t6391, t6399;
2412   double t6417;
2413 #endif
2414 
2415 #endif
2416 
2417 #endif
2418 
2419 #endif
2420 
2421 #endif
2422 
2423 
2424 
2425   t2 = sqrt(rho[0]);
2426   t3 = M_PI * t2;
2427   t4 = rho[0] * rho[0];
2428   t5 = 0.1e1 / t4;
2429   t9 = t4 * rho[0];
2430   t10 = 0.1e1 / t9;
2431   t14 = 0.1e1 / M_PI;
2432   t15 = (lapl[0] * t5 / 0.4e1 - tau[0] * t5 + sigma[0] * t10 / 0.8e1) * t14;
2433   t16 = -0.9999999999e0 < t15;
2434   t17 = my_piecewise3(t16, t15, -0.9999999999e0);
2435   t18 = exp(-0.1e1);
2436   t20 = LambertW(t17 * t18);
2437   t21 = t20 + 0.1e1;
2438   t22 = t21 / 0.2e1;
2439   t23 = xc_bessel_I0(t22);
2440   t24 = t3 * t23;
2441   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
2442     zk[0] = -t24 / 0.2e1;
2443 
2444 #ifndef XC_DONT_COMPILE_VXC
2445 
2446   if(order < 1) return;
2447 
2448 
2449   t27 = t2 * rho[0];
2450   t28 = t27 * M_PI;
2451   t29 = xc_bessel_I1(t22);
2452   t30 = t28 * t29;
2453   t35 = t4 * t4;
2454   t36 = 0.1e1 / t35;
2455   t41 = my_piecewise3(t16, (-lapl[0] * t10 / 0.2e1 + 0.2e1 * tau[0] * t10 - 0.3e1 / 0.8e1 * sigma[0] * t36) * t14, 0);
2456   t42 = t41 * t20;
2457   t43 = 0.1e1 / t21;
2458   t44 = 0.1e1 / t17;
2459   t45 = t43 * t44;
2460   t46 = t42 * t45;
2461   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2462     vrho[0] = -0.3e1 / 0.4e1 * t24 - t30 * t46 / 0.4e1;
2463 
2464   t49 = t10 * t14;
2465   t51 = my_piecewise3(t16, t49 / 0.8e1, 0);
2466   t52 = t51 * t20;
2467   t53 = t52 * t45;
2468   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2469     vsigma[0] = -t30 * t53 / 0.4e1;
2470 
2471   t56 = t5 * t14;
2472   t58 = my_piecewise3(t16, t56 / 0.4e1, 0);
2473   t59 = t58 * t20;
2474   t60 = t59 * t45;
2475   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
2476     vlapl[0] = -t30 * t60 / 0.4e1;
2477 
2478   t63 = my_piecewise3(t16, -t56, 0);
2479   t65 = t63 * t20 * t45;
2480   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
2481     vtau[0] = -t30 * t65 / 0.4e1;
2482 
2483 #ifndef XC_DONT_COMPILE_FXC
2484 
2485   if(order < 2) return;
2486 
2487 
2488   t69 = M_PI / t2;
2489   t72 = t3 * t29;
2490   t75 = 0.1e1 / t22;
2491   t77 = -t75 * t29 + t23;
2492   t78 = t28 * t77;
2493   t79 = t41 * t41;
2494   t80 = t20 * t20;
2495   t81 = t79 * t80;
2496   t82 = t21 * t21;
2497   t83 = 0.1e1 / t82;
2498   t84 = t17 * t17;
2499   t85 = 0.1e1 / t84;
2500   t86 = t83 * t85;
2501   t87 = t81 * t86;
2502   t95 = 0.1e1 / t35 / rho[0];
2503   t100 = my_piecewise3(t16, (0.3e1 / 0.2e1 * lapl[0] * t36 - 0.6e1 * tau[0] * t36 + 0.3e1 / 0.2e1 * sigma[0] * t95) * t14, 0);
2504   t101 = t100 * t20;
2505   t102 = t101 * t45;
2506   t105 = t79 * t20;
2507   t106 = t105 * t86;
2508   t109 = t82 * t21;
2509   t110 = 0.1e1 / t109;
2510   t111 = t110 * t85;
2511   t112 = t81 * t111;
2512   t115 = t43 * t85;
2513   t116 = t105 * t115;
2514   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2515     v2rho2[0] = -0.3e1 / 0.8e1 * t69 * t23 - 0.3e1 / 0.4e1 * t72 * t46 - t78 * t87 / 0.8e1 - t30 * t102 / 0.4e1 - t30 * t106 / 0.4e1 + t30 * t112 / 0.4e1 + t30 * t116 / 0.4e1;
2516 
2517   t121 = t77 * t41;
2518   t122 = t28 * t121;
2519   t123 = t80 * t83;
2520   t124 = t85 * t51;
2521   t125 = t123 * t124;
2522   t128 = t36 * t14;
2523   t130 = my_piecewise3(t16, -0.3e1 / 0.8e1 * t128, 0);
2524   t132 = t130 * t20 * t45;
2525   t135 = t29 * t51;
2526   t136 = t28 * t135;
2527   t137 = t42 * t86;
2528   t140 = t80 * t110;
2529   t141 = t85 * t41;
2530   t142 = t140 * t141;
2531   t145 = t20 * t43;
2532   t146 = t145 * t141;
2533   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2534     v2rhosigma[0] = -0.3e1 / 0.8e1 * t72 * t53 - t122 * t125 / 0.8e1 - t30 * t132 / 0.4e1 - t136 * t137 / 0.4e1 + t136 * t142 / 0.4e1 + t136 * t146 / 0.4e1;
2535 
2536   t151 = t85 * t58;
2537   t152 = t123 * t151;
2538   t156 = my_piecewise3(t16, -t49 / 0.2e1, 0);
2539   t158 = t156 * t20 * t45;
2540   t161 = t29 * t58;
2541   t162 = t28 * t161;
2542   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2543     v2rholapl[0] = -0.3e1 / 0.8e1 * t72 * t60 - t122 * t152 / 0.8e1 - t30 * t158 / 0.4e1 - t162 * t137 / 0.4e1 + t162 * t142 / 0.4e1 + t162 * t146 / 0.4e1;
2544 
2545   t172 = t123 * t85 * t63;
2546   t176 = my_piecewise3(t16, 0.2e1 * t49, 0);
2547   t178 = t176 * t20 * t45;
2548   t181 = t29 * t63;
2549   t182 = t28 * t181;
2550   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2551     v2rhotau[0] = -0.3e1 / 0.8e1 * t72 * t65 - t122 * t172 / 0.8e1 - t30 * t178 / 0.4e1 - t182 * t137 / 0.4e1 + t182 * t142 / 0.4e1 + t182 * t146 / 0.4e1;
2552 
2553   t189 = t51 * t51;
2554   t190 = t189 * t80;
2555   t191 = t190 * t86;
2556   t194 = my_piecewise3(t16, 0, 0);
2557   t195 = t194 * t20;
2558   t196 = t195 * t45;
2559   t198 = t30 * t196 / 0.4e1;
2560   t199 = t189 * t20;
2561   t200 = t199 * t86;
2562   t203 = t190 * t111;
2563   t206 = t199 * t115;
2564   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2565     v2sigma2[0] = -t78 * t191 / 0.8e1 - t198 - t30 * t200 / 0.4e1 + t30 * t203 / 0.4e1 + t30 * t206 / 0.4e1;
2566 
2567   t209 = t77 * t51;
2568   t210 = t28 * t209;
2569   t213 = t52 * t86;
2570   t216 = t140 * t124;
2571   t219 = t145 * t124;
2572   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2573     v2sigmalapl[0] = -t210 * t152 / 0.8e1 - t198 - t162 * t213 / 0.4e1 + t162 * t216 / 0.4e1 + t162 * t219 / 0.4e1;
2574 
2575   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2576     v2sigmatau[0] = -t210 * t172 / 0.8e1 - t198 - t182 * t213 / 0.4e1 + t182 * t216 / 0.4e1 + t182 * t219 / 0.4e1;
2577 
2578   t230 = t58 * t58;
2579   t231 = t230 * t80;
2580   t232 = t231 * t86;
2581   t235 = t230 * t20;
2582   t236 = t235 * t86;
2583   t239 = t231 * t111;
2584   t242 = t235 * t115;
2585   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2586     v2lapl2[0] = -t78 * t232 / 0.8e1 - t198 - t30 * t236 / 0.4e1 + t30 * t239 / 0.4e1 + t30 * t242 / 0.4e1;
2587 
2588   t245 = t77 * t58;
2589   t246 = t28 * t245;
2590   t249 = t59 * t86;
2591   t252 = t140 * t151;
2592   t255 = t145 * t151;
2593   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2594     v2lapltau[0] = -t246 * t172 / 0.8e1 - t198 - t182 * t249 / 0.4e1 + t182 * t252 / 0.4e1 + t182 * t255 / 0.4e1;
2595 
2596   t258 = t63 * t63;
2597   t259 = t258 * t80;
2598   t260 = t259 * t86;
2599   t263 = t258 * t20;
2600   t264 = t263 * t86;
2601   t267 = t259 * t111;
2602   t270 = t263 * t115;
2603   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2604     v2tau2[0] = -t78 * t260 / 0.8e1 - t198 - t30 * t264 / 0.4e1 + t30 * t267 / 0.4e1 + t30 * t270 / 0.4e1;
2605 
2606 #ifndef XC_DONT_COMPILE_KXC
2607 
2608   if(order < 3) return;
2609 
2610 
2611   t275 = t29 * t100;
2612   t276 = t28 * t275;
2613   t279 = t79 * t41;
2614   t280 = t279 * t20;
2615   t282 = 0.1e1 / t84 / t17;
2616   t283 = t110 * t282;
2617   t284 = t280 * t283;
2618   t289 = t279 * t80;
2619   t290 = t289 * t283;
2620   t293 = t80 * t20;
2621   t294 = t279 * t293;
2622   t295 = t82 * t82;
2623   t296 = 0.1e1 / t295;
2624   t297 = t296 * t282;
2625   t298 = t294 * t297;
2626   t303 = t289 * t297;
2627   t306 = 0.1e1 / t295 / t21;
2628   t307 = t306 * t282;
2629   t308 = t294 * t307;
2630   t312 = M_PI / t27;
2631   t320 = 0.1e1 / t35 / t4;
2632   t325 = my_piecewise3(t16, (-0.6e1 * lapl[0] * t95 + 0.24e2 * tau[0] * t95 - 0.15e2 / 0.2e1 * sigma[0] * t320) * t14, 0);
2633   t326 = t325 * t20;
2634   t327 = t326 * t45;
2635   t330 = -0.9e1 / 0.8e1 * t72 * t106 - 0.3e1 / 0.4e1 * t276 * t137 - t30 * t284 / 0.4e1 + 0.9e1 / 0.8e1 * t72 * t112 - 0.3e1 / 0.8e1 * t78 * t290 + 0.3e1 / 0.8e1 * t78 * t298 + 0.3e1 / 0.4e1 * t276 * t142 + t30 * t303 - 0.3e1 / 0.4e1 * t30 * t308 + 0.3e1 / 0.16e2 * t312 * t23 - t30 * t327 / 0.4e1;
2636   t331 = t69 * t29;
2637   t336 = t3 * t77;
2638   t339 = t29 * t41;
2639   t340 = t145 * t44;
2640   t342 = t22 * t22;
2641   t343 = 0.1e1 / t342;
2642   t344 = t343 * t29;
2643   t347 = t75 * t77;
2644   t351 = t344 * t41 * t340 / 0.2e1 - t347 * t41 * t340 / 0.2e1 + t339 * t340 / 0.2e1;
2645   t352 = t28 * t351;
2646   t355 = t85 * t100;
2647   t356 = t123 * t355;
2648   t359 = t83 * t282;
2649   t360 = t289 * t359;
2650   t365 = t280 * t359;
2651   t370 = t43 * t282;
2652   t371 = t280 * t370;
2653   t376 = -0.9e1 / 0.16e2 * t331 * t46 - 0.9e1 / 0.8e1 * t72 * t102 - 0.9e1 / 0.16e2 * t336 * t87 - t352 * t87 / 0.8e1 - 0.3e1 / 0.8e1 * t122 * t356 + 0.3e1 / 0.8e1 * t78 * t360 + 0.3e1 / 0.4e1 * t276 * t146 + 0.3e1 / 0.4e1 * t30 * t365 - 0.3e1 / 0.4e1 * t30 * t290 - t30 * t371 / 0.2e1 + 0.9e1 / 0.8e1 * t72 * t116;
2654   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2655     v3rho3[0] = t330 + t376;
2656 
2657   t377 = t77 * t79;
2658   t378 = t28 * t377;
2659   t379 = t282 * t51;
2660   t380 = t140 * t379;
2661   t383 = t105 * t283;
2662   t386 = t293 * t296;
2663   t387 = t386 * t379;
2664   t390 = t81 * t297;
2665   t392 = t293 * t306;
2666   t393 = t282 * t79;
2667   t394 = t392 * t393;
2668   t397 = t145 * t355;
2669   t400 = t3 * t135;
2670   t403 = t3 * t121;
2671   t406 = t351 * t41;
2672   t407 = t28 * t406;
2673   t410 = t77 * t100;
2674   t411 = t28 * t410;
2675   t414 = t85 * t130;
2676   t415 = t123 * t414;
2677   t418 = t29 * t130;
2678   t419 = t28 * t418;
2679   t422 = -0.3e1 / 0.8e1 * t378 * t380 - t136 * t383 / 0.4e1 + 0.3e1 / 0.8e1 * t378 * t387 + t136 * t390 - 0.3e1 / 0.4e1 * t136 * t394 + t136 * t397 / 0.4e1 + 0.3e1 / 0.4e1 * t400 * t146 - 0.3e1 / 0.8e1 * t403 * t125 - t407 * t125 / 0.8e1 - t411 * t125 / 0.8e1 - t122 * t415 / 0.4e1 + t419 * t146 / 0.2e1;
2680   t423 = t101 * t86;
2681   t426 = t140 * t355;
2682   t429 = t123 * t379;
2683   t432 = t105 * t359;
2684   t435 = t140 * t393;
2685   t438 = t145 * t393;
2686   t449 = t95 * t14;
2687   t451 = my_piecewise3(t16, 0.3e1 / 0.2e1 * t449, 0);
2688   t453 = t451 * t20 * t45;
2689   t460 = -t136 * t423 / 0.4e1 + t136 * t426 / 0.4e1 + 0.3e1 / 0.8e1 * t378 * t429 + 0.3e1 / 0.4e1 * t136 * t432 - 0.3e1 / 0.4e1 * t136 * t435 - t136 * t438 / 0.2e1 - 0.3e1 / 0.4e1 * t400 * t137 - t419 * t137 / 0.2e1 + 0.3e1 / 0.4e1 * t400 * t142 + t419 * t142 / 0.2e1 - t30 * t453 / 0.4e1 - 0.3e1 / 0.4e1 * t72 * t132 - 0.3e1 / 0.16e2 * t331 * t53;
2690   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2691     v3rho2sigma[0] = t422 + t460;
2692 
2693   t465 = t282 * t58;
2694   t466 = t123 * t465;
2695   t471 = t3 * t161;
2696   t474 = t29 * t156;
2697   t475 = t28 * t474;
2698   t484 = t140 * t465;
2699   t487 = t386 * t465;
2700   t491 = -0.3e1 / 0.4e1 * t162 * t435 - t162 * t438 / 0.2e1 + 0.3e1 / 0.8e1 * t378 * t466 + 0.3e1 / 0.4e1 * t162 * t432 - 0.3e1 / 0.4e1 * t471 * t137 - t475 * t137 / 0.2e1 + 0.3e1 / 0.4e1 * t471 * t142 + t475 * t142 / 0.2e1 - t162 * t383 / 0.4e1 - 0.3e1 / 0.8e1 * t378 * t484 + 0.3e1 / 0.8e1 * t378 * t487 + t162 * t390;
2701   t497 = my_piecewise3(t16, 0.3e1 / 0.2e1 * t128, 0);
2702   t499 = t497 * t20 * t45;
2703   t518 = t85 * t156;
2704   t519 = t123 * t518;
2705   t524 = -0.3e1 / 0.4e1 * t162 * t394 - 0.3e1 / 0.4e1 * t72 * t158 - t30 * t499 / 0.4e1 - 0.3e1 / 0.16e2 * t331 * t60 - t162 * t423 / 0.4e1 + t162 * t426 / 0.4e1 + t162 * t397 / 0.4e1 + 0.3e1 / 0.4e1 * t471 * t146 - 0.3e1 / 0.8e1 * t403 * t152 - t407 * t152 / 0.8e1 - t411 * t152 / 0.8e1 - t122 * t519 / 0.4e1 + t475 * t146 / 0.2e1;
2706   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2707     v3rho2lapl[0] = t491 + t524;
2708 
2709   t528 = my_piecewise3(t16, -0.6e1 * t128, 0);
2710   t530 = t528 * t20 * t45;
2711   t539 = t282 * t63;
2712   t540 = t123 * t539;
2713   t545 = t3 * t181;
2714   t548 = t29 * t176;
2715   t549 = t28 * t548;
2716   t558 = -0.3e1 / 0.4e1 * t72 * t178 - t30 * t530 / 0.4e1 - 0.3e1 / 0.16e2 * t331 * t65 - 0.3e1 / 0.4e1 * t182 * t435 - t182 * t438 / 0.2e1 + 0.3e1 / 0.8e1 * t378 * t540 + 0.3e1 / 0.4e1 * t182 * t432 - 0.3e1 / 0.4e1 * t545 * t137 - t549 * t137 / 0.2e1 + 0.3e1 / 0.4e1 * t545 * t142 + t549 * t142 / 0.2e1 - t182 * t383 / 0.4e1;
2717   t562 = t140 * t539;
2718   t565 = t386 * t539;
2719   t578 = t85 * t176;
2720   t579 = t123 * t578;
2721   t588 = t182 * t390 - 0.3e1 / 0.4e1 * t182 * t394 - 0.3e1 / 0.8e1 * t378 * t562 + 0.3e1 / 0.8e1 * t378 * t565 + t182 * t397 / 0.4e1 + 0.3e1 / 0.4e1 * t545 * t146 - 0.3e1 / 0.8e1 * t403 * t172 - t407 * t172 / 0.8e1 - t411 * t172 / 0.8e1 - t122 * t579 / 0.4e1 + t549 * t146 / 0.2e1 - t182 * t423 / 0.4e1 + t182 * t426 / 0.4e1;
2722   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2723     v3rho2tau[0] = t558 + t588;
2724 
2725   t589 = t29 * t189;
2726   t590 = t28 * t589;
2727   t591 = t282 * t41;
2728   t592 = t140 * t591;
2729   t597 = t145 * t414;
2730   t600 = t145 * t591;
2731   t603 = t29 * t194;
2732   t604 = t28 * t603;
2733   t605 = t604 * t137;
2734   t606 = t605 / 0.4e1;
2735   t607 = t42 * t283;
2736   t610 = t77 * t189;
2737   t611 = t28 * t610;
2738   t614 = t386 * t591;
2739   t617 = t604 * t142;
2740   t618 = t617 / 0.4e1;
2741   t619 = t80 * t296;
2742   t620 = t619 * t591;
2743   t622 = t392 * t591;
2744   t627 = -0.3e1 / 0.4e1 * t590 * t592 + 0.3e1 / 0.8e1 * t72 * t206 + t136 * t597 / 0.2e1 - t590 * t600 / 0.2e1 - t606 - t590 * t607 / 0.4e1 - 0.3e1 / 0.8e1 * t611 * t592 + 0.3e1 / 0.8e1 * t611 * t614 + t618 + t590 * t620 - 0.3e1 / 0.4e1 * t590 * t622 - t352 * t191 / 0.8e1;
2745   t632 = t123 * t591;
2746   t635 = t72 * t196;
2747   t636 = 0.3e1 / 0.8e1 * t635;
2748   t637 = t604 * t146;
2749   t638 = t637 / 0.4e1;
2750   t639 = t85 * t194;
2751   t640 = t123 * t639;
2752   t641 = t122 * t640;
2753   t642 = t641 / 0.8e1;
2754   t645 = t20 * t83;
2755   t646 = t645 * t414;
2756   t649 = t645 * t591;
2757   t654 = t140 * t414;
2758   t657 = -t198 - 0.3e1 / 0.16e2 * t336 * t191 - t210 * t415 / 0.4e1 + 0.3e1 / 0.8e1 * t611 * t632 - t636 + t638 - t642 - 0.3e1 / 0.8e1 * t72 * t200 - t136 * t646 / 0.2e1 + 0.3e1 / 0.4e1 * t590 * t649 + 0.3e1 / 0.8e1 * t72 * t203 + t136 * t654 / 0.2e1;
2759   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2760     v3rhosigma2[0] = t627 + t657;
2761 
2762   t658 = t51 * t80;
2763   t659 = t297 * t41;
2764   t660 = t658 * t659;
2765   t662 = t379 * t41;
2766   t663 = t392 * t662;
2767   t666 = t140 * t662;
2768   t669 = t51 * t41;
2769   t670 = t20 * t110;
2770   t671 = t670 * t282;
2771   t672 = t669 * t671;
2772   t675 = t465 * t41;
2773   t676 = t140 * t675;
2774   t679 = t386 * t675;
2775   t682 = t145 * t662;
2776   t685 = t123 * t675;
2777   t688 = t359 * t41;
2778   t689 = t52 * t688;
2779   t692 = -t636 - t198 + t162 * t660 - 0.3e1 / 0.4e1 * t162 * t663 - 0.3e1 / 0.4e1 * t162 * t666 - t162 * t672 / 0.4e1 - 0.3e1 / 0.8e1 * t210 * t676 + 0.3e1 / 0.8e1 * t210 * t679 - t162 * t682 / 0.2e1 + 0.3e1 / 0.8e1 * t210 * t685 + 0.3e1 / 0.4e1 * t162 * t689 - t606 + t618 + t638;
2780   t693 = t3 * t209;
2781   t702 = t351 * t51;
2782   t703 = t28 * t702;
2783   t706 = t77 * t130;
2784   t707 = t28 * t706;
2785   t724 = -t642 - 0.3e1 / 0.16e2 * t693 * t152 - 0.3e1 / 0.8e1 * t471 * t213 + 0.3e1 / 0.8e1 * t471 * t216 + 0.3e1 / 0.8e1 * t471 * t219 - t703 * t152 / 0.8e1 - t707 * t152 / 0.8e1 - t210 * t519 / 0.8e1 - t475 * t213 / 0.4e1 - t162 * t646 / 0.4e1 + t475 * t216 / 0.4e1 + t162 * t654 / 0.4e1 + t475 * t219 / 0.4e1 + t162 * t597 / 0.4e1;
2786   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2787     v3rhosigmalapl[0] = t692 + t724;
2788 
2789   t727 = t539 * t41;
2790   t728 = t140 * t727;
2791   t731 = t386 * t727;
2792   t737 = t123 * t727;
2793   t746 = -t636 - t198 - t182 * t672 / 0.4e1 - 0.3e1 / 0.8e1 * t210 * t728 + 0.3e1 / 0.8e1 * t210 * t731 + t182 * t660 - 0.3e1 / 0.4e1 * t182 * t663 + 0.3e1 / 0.8e1 * t210 * t737 + 0.3e1 / 0.4e1 * t182 * t689 - 0.3e1 / 0.4e1 * t182 * t666 - t182 * t682 / 0.2e1 - t606 + t618 + t638;
2794   t773 = -t642 - 0.3e1 / 0.16e2 * t693 * t172 - 0.3e1 / 0.8e1 * t545 * t213 + 0.3e1 / 0.8e1 * t545 * t216 + 0.3e1 / 0.8e1 * t545 * t219 - t703 * t172 / 0.8e1 - t707 * t172 / 0.8e1 - t210 * t579 / 0.8e1 - t549 * t213 / 0.4e1 - t182 * t646 / 0.4e1 + t549 * t216 / 0.4e1 + t182 * t654 / 0.4e1 + t549 * t219 / 0.4e1 + t182 * t597 / 0.4e1;
2795   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2796     v3rhosigmatau[0] = t746 + t773;
2797 
2798   t774 = t29 * t230;
2799   t775 = t28 * t774;
2800   t782 = t77 * t230;
2801   t783 = t28 * t782;
2802   t788 = t645 * t518;
2803   t795 = t140 * t518;
2804   t802 = -t775 * t607 / 0.4e1 - t606 - 0.3e1 / 0.16e2 * t336 * t232 - t246 * t519 / 0.4e1 + 0.3e1 / 0.8e1 * t783 * t632 - 0.3e1 / 0.8e1 * t72 * t236 - t162 * t788 / 0.2e1 + 0.3e1 / 0.4e1 * t775 * t649 + 0.3e1 / 0.8e1 * t72 * t239 + t162 * t795 / 0.2e1 - 0.3e1 / 0.4e1 * t775 * t592 + 0.3e1 / 0.8e1 * t72 * t242;
2805   t803 = t145 * t518;
2806   t817 = t162 * t803 / 0.2e1 - t775 * t600 / 0.2e1 - 0.3e1 / 0.8e1 * t783 * t592 + 0.3e1 / 0.8e1 * t783 * t614 + t775 * t620 - 0.3e1 / 0.4e1 * t775 * t622 + t618 - t352 * t232 / 0.8e1 - t198 - t636 + t638 - t642;
2807   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2808     v3rholapl2[0] = t802 + t817;
2809 
2810   t818 = t58 * t41;
2811   t819 = t818 * t671;
2812   t822 = t392 * t675;
2813   t829 = t58 * t80;
2814   t830 = t829 * t659;
2815   t834 = t59 * t688;
2816   t839 = t145 * t675;
2817   t842 = -t636 - t198 - t182 * t819 / 0.4e1 - 0.3e1 / 0.4e1 * t182 * t822 - 0.3e1 / 0.8e1 * t246 * t728 + 0.3e1 / 0.8e1 * t246 * t731 + t182 * t830 + 0.3e1 / 0.8e1 * t246 * t737 + 0.3e1 / 0.4e1 * t182 * t834 - 0.3e1 / 0.4e1 * t182 * t676 - t182 * t839 / 0.2e1 - t606 + t618 + t638;
2818   t849 = t3 * t245;
2819   t852 = t351 * t58;
2820   t853 = t28 * t852;
2821   t856 = t77 * t156;
2822   t857 = t28 * t856;
2823   t874 = -t642 - 0.3e1 / 0.8e1 * t545 * t249 + 0.3e1 / 0.8e1 * t545 * t252 + 0.3e1 / 0.8e1 * t545 * t255 - 0.3e1 / 0.16e2 * t849 * t172 - t853 * t172 / 0.8e1 - t857 * t172 / 0.8e1 - t246 * t579 / 0.8e1 - t549 * t249 / 0.4e1 - t182 * t788 / 0.4e1 + t549 * t252 / 0.4e1 + t182 * t795 / 0.4e1 + t549 * t255 / 0.4e1 + t182 * t803 / 0.4e1;
2824   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2825     v3rholapltau[0] = t842 + t874;
2826 
2827   t875 = t29 * t258;
2828   t876 = t28 * t875;
2829   t881 = t77 * t63;
2830   t882 = t28 * t881;
2831   t885 = t77 * t258;
2832   t886 = t28 * t885;
2833   t891 = t645 * t578;
2834   t898 = t140 * t578;
2835   t905 = -t876 * t607 / 0.4e1 - t606 - 0.3e1 / 0.16e2 * t336 * t260 - t882 * t579 / 0.4e1 + 0.3e1 / 0.8e1 * t886 * t632 - 0.3e1 / 0.8e1 * t72 * t264 - t182 * t891 / 0.2e1 + 0.3e1 / 0.4e1 * t876 * t649 + 0.3e1 / 0.8e1 * t72 * t267 + t182 * t898 / 0.2e1 - 0.3e1 / 0.4e1 * t876 * t592 + 0.3e1 / 0.8e1 * t72 * t270;
2836   t906 = t145 * t578;
2837   t920 = t182 * t906 / 0.2e1 - t876 * t600 / 0.2e1 - 0.3e1 / 0.8e1 * t886 * t592 + 0.3e1 / 0.8e1 * t886 * t614 + t876 * t620 - 0.3e1 / 0.4e1 * t876 * t622 + t618 - t352 * t260 / 0.8e1 - t198 - t636 + t638 - t642;
2838   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2839     v3rhotau2[0] = t905 + t920;
2840 
2841   t921 = t604 * t213;
2842   t922 = 0.3e1 / 0.4e1 * t921;
2843   t923 = t189 * t51;
2844   t924 = t923 * t20;
2845   t925 = t924 * t283;
2846   t928 = t210 * t640;
2847   t929 = 0.3e1 / 0.8e1 * t928;
2848   t930 = t923 * t80;
2849   t931 = t930 * t359;
2850   t934 = t604 * t219;
2851   t935 = 0.3e1 / 0.4e1 * t934;
2852   t936 = t924 * t359;
2853   t939 = t930 * t283;
2854   t942 = t924 * t370;
2855   t947 = t923 * t293;
2856   t948 = t947 * t297;
2857   t951 = t604 * t216;
2858   t952 = 0.3e1 / 0.4e1 * t951;
2859   t953 = t930 * t297;
2860   t955 = t947 * t307;
2861   t959 = t344 * t51;
2862   t961 = t347 * t51;
2863   t964 = t135 * t340 / 0.2e1 + t959 * t340 / 0.2e1 - t961 * t340 / 0.2e1;
2864   t965 = t28 * t964;
2865   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2866     v3sigma3[0] = -t922 - t30 * t925 / 0.4e1 - t929 + 0.3e1 / 0.8e1 * t78 * t931 + t935 + 0.3e1 / 0.4e1 * t30 * t936 - 0.3e1 / 0.4e1 * t30 * t939 - t30 * t942 / 0.2e1 - 0.3e1 / 0.8e1 * t78 * t939 + 0.3e1 / 0.8e1 * t78 * t948 + t952 + t30 * t953 - 0.3e1 / 0.4e1 * t30 * t955 - t965 * t191 / 0.8e1 - t198;
2867 
2868   t968 = t921 / 0.2e1;
2869   t969 = t282 * t189;
2870   t970 = t140 * t969;
2871   t973 = t145 * t969;
2872   t978 = t199 * t359;
2873   t981 = t928 / 0.4e1;
2874   t982 = t934 / 0.2e1;
2875   t983 = t951 / 0.2e1;
2876   t984 = t199 * t283;
2877   t987 = t392 * t969;
2878   t994 = t190 * t297;
2879   t996 = t964 * t51;
2880   t997 = t28 * t996;
2881   t1000 = t77 * t194;
2882   t1001 = t28 * t1000;
2883   t1002 = t1001 * t152;
2884   t1003 = t1002 / 0.8e1;
2885   t1004 = t195 * t86;
2886   t1005 = t162 * t1004;
2887   t1006 = t1005 / 0.4e1;
2888   t1007 = t140 * t639;
2889   t1008 = t162 * t1007;
2890   t1009 = t1008 / 0.4e1;
2891   t1010 = t145 * t639;
2892   t1011 = t162 * t1010;
2893   t1012 = t1011 / 0.4e1;
2894   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2895     v3sigma2lapl[0] = -t968 - 0.3e1 / 0.4e1 * t162 * t970 - t162 * t973 / 0.2e1 + 0.3e1 / 0.8e1 * t611 * t466 + 0.3e1 / 0.4e1 * t162 * t978 - t981 + t982 + t983 - t162 * t984 / 0.4e1 - 0.3e1 / 0.4e1 * t162 * t987 - 0.3e1 / 0.8e1 * t611 * t484 + 0.3e1 / 0.8e1 * t611 * t487 + t162 * t994 - t198 - t997 * t152 / 0.8e1 - t1003 - t1006 + t1009 + t1012;
2896 
2897   t1032 = t1001 * t172;
2898   t1033 = t1032 / 0.8e1;
2899   t1034 = t182 * t1004;
2900   t1035 = t1034 / 0.4e1;
2901   t1036 = t182 * t1007;
2902   t1037 = t1036 / 0.4e1;
2903   t1038 = t182 * t1010;
2904   t1039 = t1038 / 0.4e1;
2905   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2906     v3sigma2tau[0] = -t968 + 0.3e1 / 0.8e1 * t611 * t540 + 0.3e1 / 0.4e1 * t182 * t978 - 0.3e1 / 0.4e1 * t182 * t970 - t182 * t973 / 0.2e1 - t981 + t982 - t182 * t984 / 0.4e1 + t983 - 0.3e1 / 0.8e1 * t611 * t562 + 0.3e1 / 0.8e1 * t611 * t565 + t182 * t994 - 0.3e1 / 0.4e1 * t182 * t987 - t198 - t997 * t172 / 0.8e1 - t1033 - t1035 + t1037 + t1039;
2907 
2908   t1040 = t52 * t283;
2909   t1043 = t921 / 0.4e1;
2910   t1044 = t928 / 0.8e1;
2911   t1045 = t934 / 0.4e1;
2912   t1050 = t619 * t379;
2913   t1052 = t392 * t379;
2914   t1055 = t951 / 0.4e1;
2915   t1058 = t1002 / 0.4e1;
2916   t1059 = t1005 / 0.2e1;
2917   t1060 = t1008 / 0.2e1;
2918   t1061 = t1011 / 0.2e1;
2919   t1064 = t645 * t379;
2920   t1069 = t145 * t379;
2921   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2922     v3sigmalapl2[0] = -t775 * t1040 / 0.4e1 - t1043 - t1044 + t1045 - 0.3e1 / 0.8e1 * t783 * t380 + 0.3e1 / 0.8e1 * t783 * t387 + t775 * t1050 - 0.3e1 / 0.4e1 * t775 * t1052 + t1055 - t965 * t232 / 0.8e1 - t198 - t1058 - t1059 + t1060 + t1061 + 0.3e1 / 0.8e1 * t783 * t429 + 0.3e1 / 0.4e1 * t775 * t1064 - 0.3e1 / 0.4e1 * t775 * t380 - t775 * t1069 / 0.2e1;
2923 
2924   t1072 = t539 * t51;
2925   t1073 = t123 * t1072;
2926   t1077 = t59 * t359 * t51;
2927   t1080 = t465 * t51;
2928   t1081 = t140 * t1080;
2929   t1084 = t145 * t1080;
2930   t1087 = t58 * t51;
2931   t1088 = t1087 * t671;
2932   t1092 = t829 * t297 * t51;
2933   t1094 = t392 * t1080;
2934   t1097 = -t1043 + 0.3e1 / 0.8e1 * t246 * t1073 + 0.3e1 / 0.4e1 * t182 * t1077 - 0.3e1 / 0.4e1 * t182 * t1081 - t182 * t1084 / 0.2e1 - t1044 + t1045 - t182 * t1088 / 0.4e1 + t1055 + t182 * t1092 - 0.3e1 / 0.4e1 * t182 * t1094;
2935   t1098 = t140 * t1072;
2936   t1101 = t386 * t1072;
2937   t1104 = t964 * t58;
2938   t1105 = t28 * t1104;
2939   t1108 = -0.3e1 / 0.8e1 * t246 * t1098 + 0.3e1 / 0.8e1 * t246 * t1101 - t198 - t1003 - t1006 + t1009 + t1012 - t1033 - t1035 + t1037 + t1039 - t1105 * t172 / 0.8e1;
2940   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2941     v3sigmalapltau[0] = t1097 + t1108;
2942 
2943   t1126 = t1032 / 0.4e1;
2944   t1127 = t1034 / 0.2e1;
2945   t1128 = t1036 / 0.2e1;
2946   t1129 = t1038 / 0.2e1;
2947   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2948     v3sigmatau2[0] = -t876 * t1040 / 0.4e1 - t1043 - t1044 + t1045 + 0.3e1 / 0.8e1 * t886 * t387 + t876 * t1050 - 0.3e1 / 0.4e1 * t876 * t1052 - 0.3e1 / 0.8e1 * t886 * t380 + t1055 - t965 * t260 / 0.8e1 - t198 - t876 * t1069 / 0.2e1 - 0.3e1 / 0.4e1 * t876 * t380 + 0.3e1 / 0.4e1 * t876 * t1064 - t1126 - t1127 + t1128 + t1129 + 0.3e1 / 0.8e1 * t886 * t429;
2949 
2950   t1132 = t230 * t58;
2951   t1133 = t1132 * t20;
2952   t1134 = t1133 * t283;
2953   t1137 = t1132 * t80;
2954   t1138 = t1137 * t283;
2955   t1141 = t1132 * t293;
2956   t1142 = t1141 * t297;
2957   t1145 = t1137 * t297;
2958   t1147 = t1141 * t307;
2959   t1151 = t344 * t58;
2960   t1153 = t347 * t58;
2961   t1156 = t1151 * t340 / 0.2e1 - t1153 * t340 / 0.2e1 + t161 * t340 / 0.2e1;
2962   t1157 = t28 * t1156;
2963   t1162 = t1133 * t370;
2964   t1165 = t1137 * t359;
2965   t1168 = t1133 * t359;
2966   t1171 = 0.3e1 / 0.8e1 * t1002;
2967   t1172 = 0.3e1 / 0.4e1 * t1005;
2968   t1173 = 0.3e1 / 0.4e1 * t1008;
2969   t1174 = 0.3e1 / 0.4e1 * t1011;
2970   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2971     v3lapl3[0] = -t30 * t1134 / 0.4e1 - 0.3e1 / 0.8e1 * t78 * t1138 + 0.3e1 / 0.8e1 * t78 * t1142 + t30 * t1145 - 0.3e1 / 0.4e1 * t30 * t1147 - t1157 * t232 / 0.8e1 - t198 - 0.3e1 / 0.4e1 * t30 * t1138 - t30 * t1162 / 0.2e1 + 0.3e1 / 0.8e1 * t78 * t1165 + 0.3e1 / 0.4e1 * t30 * t1168 - t1171 - t1172 + t1173 + t1174;
2972 
2973   t1175 = t235 * t359;
2974   t1178 = t282 * t230;
2975   t1179 = t140 * t1178;
2976   t1182 = t145 * t1178;
2977   t1187 = t235 * t283;
2978   t1194 = t231 * t297;
2979   t1196 = t392 * t1178;
2980   t1199 = t1156 * t58;
2981   t1200 = t28 * t1199;
2982   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2983     v3lapl2tau[0] = 0.3e1 / 0.4e1 * t182 * t1175 - 0.3e1 / 0.4e1 * t182 * t1179 - t182 * t1182 / 0.2e1 + 0.3e1 / 0.8e1 * t783 * t540 - t182 * t1187 / 0.4e1 - 0.3e1 / 0.8e1 * t783 * t562 + 0.3e1 / 0.8e1 * t783 * t565 + t182 * t1194 - 0.3e1 / 0.4e1 * t182 * t1196 - t198 - t1200 * t172 / 0.8e1 - t1058 - t1059 + t1060 + t1061 - t1033 - t1035 + t1037 + t1039;
2984 
2985   t1203 = t59 * t283;
2986   t1210 = t619 * t465;
2987   t1212 = t392 * t465;
2988   t1219 = t145 * t465;
2989   t1224 = t645 * t465;
2990   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2991     v3lapltau2[0] = -t876 * t1203 / 0.4e1 - t1157 * t260 / 0.8e1 + 0.3e1 / 0.8e1 * t886 * t487 + t876 * t1210 - 0.3e1 / 0.4e1 * t876 * t1212 - 0.3e1 / 0.8e1 * t886 * t484 - t198 - 0.3e1 / 0.4e1 * t876 * t484 - t876 * t1219 / 0.2e1 + 0.3e1 / 0.8e1 * t886 * t466 + 0.3e1 / 0.4e1 * t876 * t1224 - t1003 - t1006 + t1009 + t1012 - t1126 - t1127 + t1128 + t1129;
2992 
2993   t1227 = t258 * t63;
2994   t1228 = t1227 * t80;
2995   t1229 = t1228 * t359;
2996   t1232 = t1227 * t20;
2997   t1233 = t1232 * t359;
2998   t1236 = t1228 * t283;
2999   t1239 = t1232 * t370;
3000   t1242 = t1232 * t283;
3001   t1247 = t1227 * t293;
3002   t1248 = t1247 * t297;
3003   t1251 = t1228 * t297;
3004   t1253 = t1247 * t307;
3005   t1257 = t344 * t63;
3006   t1259 = t347 * t63;
3007   t1262 = t1257 * t340 / 0.2e1 - t1259 * t340 / 0.2e1 + t181 * t340 / 0.2e1;
3008   t1263 = t28 * t1262;
3009   t1266 = 0.3e1 / 0.8e1 * t1032;
3010   t1267 = 0.3e1 / 0.4e1 * t1034;
3011   t1268 = 0.3e1 / 0.4e1 * t1036;
3012   t1269 = 0.3e1 / 0.4e1 * t1038;
3013   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3014     v3tau3[0] = 0.3e1 / 0.8e1 * t78 * t1229 + 0.3e1 / 0.4e1 * t30 * t1233 - 0.3e1 / 0.4e1 * t30 * t1236 - t30 * t1239 / 0.2e1 - t30 * t1242 / 0.4e1 - 0.3e1 / 0.8e1 * t78 * t1236 + 0.3e1 / 0.8e1 * t78 * t1248 + t30 * t1251 - 0.3e1 / 0.4e1 * t30 * t1253 - t198 - t1263 * t260 / 0.8e1 - t1266 - t1267 + t1268 + t1269;
3015 
3016 #ifndef XC_DONT_COMPILE_LXC
3017 
3018   if(order < 4) return;
3019 
3020 
3021   t1275 = t123 * t85;
3022   t1280 = t29 * t79;
3023   t1281 = t645 * t85;
3024   t1284 = t140 * t85;
3025   t1287 = t145 * t85;
3026   t1292 = 0.1e1 / t342 / t22 * t29;
3027   t1296 = t343 * t77;
3028   t1303 = t344 * t79;
3029   t1310 = t75 * t351;
3030   t1317 = t347 * t79;
3031   t1324 = t377 * t1275 / 0.4e1 + t275 * t340 / 0.2e1 + t1280 * t1281 / 0.2e1 - t1280 * t1284 / 0.2e1 - t1280 * t1287 / 0.2e1 - t1292 * t79 * t1275 / 0.2e1 + t1296 * t79 * t1275 / 0.2e1 + t344 * t100 * t340 / 0.2e1 + t1303 * t1281 / 0.2e1 - t1303 * t1284 / 0.2e1 - t1303 * t1287 / 0.2e1 - t1310 * t41 * t340 / 0.2e1 - t347 * t100 * t340 / 0.2e1 - t1317 * t1281 / 0.2e1 + t1317 * t1284 / 0.2e1 + t1317 * t1287 / 0.2e1;
3032   t1325 = t28 * t1324;
3033   t1328 = t79 * t79;
3034   t1329 = t1328 * t80;
3035   t1330 = t84 * t84;
3036   t1331 = 0.1e1 / t1330;
3037   t1332 = t83 * t1331;
3038   t1336 = t100 * t100;
3039   t1337 = t1336 * t20;
3040   t1341 = t1328 * t20;
3041   t1345 = t110 * t1331;
3042   t1346 = t1329 * t1345;
3043   t1351 = t43 * t1331;
3044   t1361 = t1336 * t80;
3045   t1367 = t1328 * t293;
3046   t1368 = t296 * t1331;
3047   t1375 = -0.9e1 / 0.32e2 * M_PI / t2 / t4 * t23 - t1325 * t87 / 0.8e1 - 0.11e2 / 0.8e1 * t78 * t1329 * t1332 + 0.3e1 / 0.4e1 * t30 * t1337 * t115 - 0.11e2 / 0.4e1 * t30 * t1341 * t1332 + 0.11e2 / 0.4e1 * t30 * t1346 - 0.3e1 * t72 * t371 + 0.3e1 / 0.2e1 * t30 * t1341 * t1351 + 0.9e1 / 0.8e1 * t331 * t116 + 0.9e1 / 0.4e1 * t336 * t360 + 0.5e1 / 0.8e1 * t352 * t360 - 0.3e1 / 0.8e1 * t78 * t1361 * t86 + 0.9e1 / 0.4e1 * t78 * t1346 - 0.9e1 / 0.4e1 * t78 * t1367 * t1368 + 0.3e1 / 0.4e1 * t30 * t1361 * t111;
3048   t1376 = t1329 * t1368;
3049   t1379 = t306 * t1331;
3050   t1380 = t1367 * t1379;
3051   t1385 = t312 * t29;
3052   t1398 = my_piecewise3(t16, (0.30e2 * lapl[0] * t320 - 0.120e3 * tau[0] * t320 + 0.45e2 * sigma[0] / t35 / t9) * t14, 0);
3053   t1405 = t69 * t77;
3054   t1408 = t3 * t351;
3055   t1427 = -0.6e1 * t30 * t1376 + 0.9e1 / 0.2e1 * t30 * t1380 - 0.3e1 / 0.2e1 * t72 * t327 + 0.3e1 / 0.8e1 * t1385 * t46 - t30 * t1398 * t20 * t45 / 0.4e1 - 0.9e1 / 0.8e1 * t331 * t102 - 0.9e1 / 0.16e2 * t1405 * t87 - 0.3e1 / 0.4e1 * t1408 * t87 - 0.9e1 / 0.8e1 * t331 * t106 + 0.9e1 / 0.2e1 * t72 * t365 - 0.3e1 / 0.4e1 * t30 * t1337 * t86 + 0.3e1 / 0.2e1 * t30 * t1341 * t1345 + 0.9e1 / 0.8e1 * t331 * t112 - 0.9e1 / 0.2e1 * t72 * t290 - 0.3e1 / 0.2e1 * t72 * t284;
3056   t1441 = t80 * t80;
3057   t1442 = t1328 * t1441;
3058   t1444 = 0.1e1 / t295 / t82;
3059   t1445 = t1444 * t1331;
3060   t1453 = 0.1e1 / t295 / t109;
3061   t1454 = t1453 * t1331;
3062   t1468 = t85 * t325;
3063   t1475 = -t30 * t1341 * t1368 / 0.4e1 + 0.6e1 * t72 * t303 + 0.11e2 / 0.4e1 * t30 * t1329 * t1379 - 0.9e1 / 0.2e1 * t72 * t308 + 0.11e2 / 0.4e1 * t78 * t1380 - 0.15e2 / 0.8e1 * t78 * t1442 * t1445 - 0.25e2 / 0.4e1 * t30 * t1367 * t1445 + 0.15e2 / 0.4e1 * t30 * t1442 * t1454 - 0.7e1 / 0.8e1 * t78 * t1376 + 0.9e1 / 0.4e1 * t336 * t298 - 0.5e1 / 0.8e1 * t352 * t290 + 0.5e1 / 0.8e1 * t352 * t298 - 0.9e1 / 0.4e1 * t336 * t290 - t122 * t123 * t1468 / 0.2e1 + 0.9e1 / 0.2e1 * t3 * t275 * t146;
3064   t1480 = t282 * t100;
3065   t1481 = t386 * t1480;
3066   t1485 = t28 * t29 * t325;
3067   t1488 = t3 * t339;
3068   t1492 = t140 * t1480;
3069   t1497 = t123 * t1480;
3070   t1512 = -0.9e1 / 0.4e1 * t403 * t356 - 0.5e1 / 0.8e1 * t407 * t356 + 0.9e1 / 0.4e1 * t378 * t1481 + t1485 * t142 + t1485 * t146 - 0.9e1 / 0.2e1 * t1488 * t423 - t1485 * t137 - 0.9e1 / 0.4e1 * t378 * t1492 + 0.9e1 / 0.2e1 * t1488 * t426 + 0.9e1 / 0.4e1 * t378 * t1497 - 0.3e1 * t276 * t438 + 0.9e1 / 0.2e1 * t276 * t432 - 0.9e1 / 0.2e1 * t276 * t435 - 0.3e1 / 0.2e1 * t276 * t383 + 0.6e1 * t276 * t390 - 0.9e1 / 0.2e1 * t276 * t394;
3071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3072     v4rho4[0] = t1375 + t1427 + t1475 + t1512;
3073 
3074   t1514 = t359 * t100;
3075   t1515 = t42 * t1514;
3076   t1518 = t591 * t100;
3077   t1519 = t140 * t1518;
3078   t1522 = t145 * t1518;
3079   t1525 = t379 * t100;
3080   t1529 = t392 * t1518;
3081   t1532 = t140 * t1525;
3082   t1536 = t42 * t283 * t100;
3083   t1543 = t297 * t100;
3084   t1544 = t41 * t80 * t1543;
3085   t1551 = my_piecewise3(t16, -0.15e2 / 0.2e1 * t320 * t14, 0);
3086   t1565 = t28 * t77 * t279;
3087   t1566 = t1331 * t51;
3088   t1567 = t619 * t1566;
3089   t1570 = t392 * t1566;
3090   t1573 = t289 * t1379;
3091   t1576 = t1441 * t1444;
3092   t1577 = t1576 * t1566;
3093   t1580 = 0.9e1 / 0.4e1 * t136 * t1515 - 0.9e1 / 0.4e1 * t136 * t1519 - 0.3e1 / 0.2e1 * t136 * t1522 + 0.9e1 / 0.8e1 * t122 * t123 * t1525 - 0.9e1 / 0.4e1 * t136 * t1529 - 0.9e1 / 0.8e1 * t122 * t1532 - 0.3e1 / 0.4e1 * t136 * t1536 + 0.9e1 / 0.8e1 * t122 * t386 * t1525 + 0.3e1 * t136 * t1544 - 0.9e1 / 0.16e2 * t331 * t132 - t30 * t1551 * t20 * t45 / 0.4e1 + 0.3e1 / 0.32e2 * t1385 * t53 - 0.9e1 / 0.8e1 * t72 * t453 - 0.27e2 / 0.8e1 * t400 * t394 - 0.9e1 / 0.4e1 * t419 * t394 - 0.7e1 / 0.8e1 * t1565 * t1567 + 0.11e2 / 0.4e1 * t1565 * t1570 + 0.11e2 / 0.4e1 * t136 * t1573 - 0.15e2 / 0.8e1 * t1565 * t1577;
3094   t1581 = t294 * t1445;
3095   t1584 = t1441 * t1453;
3096   t1585 = t1331 * t279;
3097   t1586 = t1584 * t1585;
3098   t1589 = t140 * t1566;
3099   t1592 = t386 * t1566;
3100   t1595 = t289 * t1368;
3101   t1598 = t392 * t1585;
3102   t1609 = t123 * t1566;
3103   t1614 = t280 * t1332;
3104   t1619 = t140 * t1585;
3105   t1624 = t145 * t1585;
3106   t1627 = t69 * t135;
3107   t1632 = t3 * t377;
3108   t1635 = -0.25e2 / 0.4e1 * t136 * t1581 + 0.15e2 / 0.4e1 * t136 * t1586 + 0.9e1 / 0.4e1 * t1565 * t1589 - 0.9e1 / 0.4e1 * t1565 * t1592 - 0.6e1 * t136 * t1595 + 0.9e1 / 0.2e1 * t136 * t1598 + 0.9e1 / 0.2e1 * t400 * t390 + 0.3e1 * t419 * t390 - 0.9e1 / 0.4e1 * t419 * t435 + 0.9e1 / 0.8e1 * t400 * t397 - 0.11e2 / 0.8e1 * t1565 * t1609 + 0.27e2 / 0.8e1 * t400 * t432 - 0.11e2 / 0.4e1 * t136 * t1614 - 0.27e2 / 0.8e1 * t400 * t435 + 0.11e2 / 0.4e1 * t136 * t1619 - 0.9e1 / 0.4e1 * t400 * t438 + 0.3e1 / 0.2e1 * t136 * t1624 - 0.9e1 / 0.16e2 * t1627 * t137 + 0.9e1 / 0.16e2 * t1627 * t142 + 0.27e2 / 0.16e2 * t1632 * t429;
3109   t1637 = t280 * t1345;
3110   t1644 = t280 * t1368;
3111   t1652 = t28 * t29 * t451;
3112   t1657 = t282 * t130;
3113   t1658 = t386 * t1657;
3114   t1662 = t28 * t351 * t79;
3115   t1665 = t123 * t1657;
3116   t1670 = t3 * t418;
3117   t1673 = t140 * t1657;
3118   t1686 = 0.3e1 / 0.2e1 * t136 * t1637 - 0.9e1 / 0.8e1 * t400 * t383 - 0.3e1 / 0.4e1 * t419 * t383 - t136 * t1644 / 0.4e1 + 0.9e1 / 0.8e1 * t400 * t426 + 0.27e2 / 0.16e2 * t1632 * t387 + 0.3e1 / 0.4e1 * t1652 * t142 + 0.3e1 / 0.4e1 * t419 * t426 + 0.9e1 / 0.8e1 * t378 * t1658 + 0.5e1 / 0.8e1 * t1662 * t429 + 0.9e1 / 0.8e1 * t378 * t1665 + 0.9e1 / 0.4e1 * t419 * t432 + 0.9e1 / 0.4e1 * t1670 * t142 - 0.9e1 / 0.8e1 * t378 * t1673 - 0.3e1 / 0.2e1 * t419 * t438 - 0.9e1 / 0.4e1 * t1670 * t137 - 0.9e1 / 0.8e1 * t400 * t423 - 0.27e2 / 0.16e2 * t1632 * t380 - 0.3e1 / 0.4e1 * t1652 * t137;
3119   t1689 = t140 * t1468;
3120   t1693 = t28 * t351 * t100;
3121   t1699 = t28 * t77 * t325;
3122   t1704 = t326 * t86;
3123   t1713 = t145 * t1468;
3124   t1718 = t69 * t121;
3125   t1721 = t3 * t406;
3126   t1724 = t3 * t410;
3127   t1728 = t28 * t1324 * t41;
3128   t1737 = t85 * t451;
3129   t1738 = t123 * t1737;
3130   t1741 = -0.3e1 / 0.4e1 * t419 * t423 + t136 * t1689 / 0.4e1 - t1693 * t125 / 0.4e1 - 0.3e1 / 0.8e1 * t407 * t415 - t1699 * t125 / 0.8e1 - 0.3e1 / 0.8e1 * t411 * t415 - t136 * t1704 / 0.4e1 + 0.9e1 / 0.4e1 * t1670 * t146 - 0.9e1 / 0.8e1 * t403 * t415 + 0.3e1 / 0.4e1 * t419 * t397 + t136 * t1713 / 0.4e1 + 0.9e1 / 0.16e2 * t1627 * t146 - 0.9e1 / 0.32e2 * t1718 * t125 - 0.9e1 / 0.16e2 * t1721 * t125 - 0.9e1 / 0.16e2 * t1724 * t125 - t1728 * t125 / 0.8e1 - 0.5e1 / 0.8e1 * t1662 * t380 + 0.5e1 / 0.8e1 * t1662 * t387 + 0.3e1 / 0.4e1 * t1652 * t146 - 0.3e1 / 0.8e1 * t122 * t1738;
3131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3132     v4rho3sigma[0] = t1580 + t1635 + t1686 + t1741;
3133 
3134   t1747 = t465 * t100;
3135   t1748 = t140 * t1747;
3136   t1751 = t386 * t1747;
3137   t1758 = t123 * t1747;
3138   t1770 = my_piecewise3(t16, -0.6e1 * t449, 0);
3139   t1779 = t1331 * t58;
3140   t1780 = t140 * t1779;
3141   t1791 = -0.9e1 / 0.4e1 * t162 * t1529 - 0.3e1 / 0.4e1 * t162 * t1536 - 0.9e1 / 0.8e1 * t122 * t1748 + 0.9e1 / 0.8e1 * t122 * t1751 + 0.3e1 * t162 * t1544 - 0.3e1 / 0.2e1 * t162 * t1522 + 0.9e1 / 0.8e1 * t122 * t1758 + 0.9e1 / 0.4e1 * t162 * t1515 - 0.9e1 / 0.4e1 * t162 * t1519 - 0.9e1 / 0.16e2 * t331 * t158 - 0.9e1 / 0.8e1 * t72 * t499 - t30 * t1770 * t20 * t45 / 0.4e1 + 0.3e1 / 0.32e2 * t1385 * t60 - t162 * t1644 / 0.4e1 + 0.9e1 / 0.4e1 * t1565 * t1780 + 0.9e1 / 0.2e1 * t471 * t390 + 0.3e1 * t475 * t390 - 0.27e2 / 0.8e1 * t471 * t394 - 0.9e1 / 0.4e1 * t475 * t394;
3142   t1794 = t392 * t1779;
3143   t1797 = t1576 * t1779;
3144   t1812 = t386 * t1779;
3145   t1817 = t123 * t1779;
3146   t1830 = t69 * t161;
3147   t1837 = 0.11e2 / 0.4e1 * t162 * t1573 + 0.11e2 / 0.4e1 * t1565 * t1794 - 0.15e2 / 0.8e1 * t1565 * t1797 - 0.25e2 / 0.4e1 * t162 * t1581 + 0.15e2 / 0.4e1 * t162 * t1586 - 0.6e1 * t162 * t1595 + 0.9e1 / 0.2e1 * t162 * t1598 + 0.27e2 / 0.16e2 * t1632 * t487 - 0.9e1 / 0.4e1 * t475 * t435 - 0.9e1 / 0.4e1 * t1565 * t1812 - 0.3e1 / 0.2e1 * t475 * t438 - 0.11e2 / 0.8e1 * t1565 * t1817 + 0.5e1 / 0.8e1 * t1662 * t466 + 0.9e1 / 0.8e1 * t471 * t397 + 0.3e1 / 0.2e1 * t162 * t1624 + 0.27e2 / 0.16e2 * t1632 * t466 + 0.27e2 / 0.8e1 * t471 * t432 - 0.9e1 / 0.16e2 * t1830 * t137 + 0.9e1 / 0.16e2 * t1830 * t142 - 0.27e2 / 0.8e1 * t471 * t435;
3148   t1862 = t28 * t29 * t497;
3149   t1867 = t282 * t156;
3150   t1868 = t386 * t1867;
3151   t1871 = t619 * t1779;
3152   t1878 = t3 * t474;
3153   t1881 = t123 * t1867;
3154   t1884 = 0.11e2 / 0.4e1 * t162 * t1619 - 0.9e1 / 0.4e1 * t471 * t438 - 0.11e2 / 0.4e1 * t162 * t1614 + 0.3e1 / 0.2e1 * t162 * t1637 - 0.9e1 / 0.8e1 * t471 * t383 - 0.3e1 / 0.4e1 * t475 * t383 + t162 * t1689 / 0.4e1 + 0.3e1 / 0.4e1 * t475 * t397 + t162 * t1713 / 0.4e1 + 0.9e1 / 0.16e2 * t1830 * t146 - 0.9e1 / 0.32e2 * t1718 * t152 + 0.3e1 / 0.4e1 * t1862 * t142 + 0.3e1 / 0.4e1 * t475 * t426 + 0.9e1 / 0.8e1 * t378 * t1868 - 0.7e1 / 0.8e1 * t1565 * t1871 - 0.5e1 / 0.8e1 * t1662 * t484 + 0.5e1 / 0.8e1 * t1662 * t487 + 0.9e1 / 0.4e1 * t1878 * t146 + 0.9e1 / 0.8e1 * t378 * t1881;
3155   t1897 = t140 * t1867;
3156   t1922 = t85 * t497;
3157   t1923 = t123 * t1922;
3158   t1928 = 0.9e1 / 0.4e1 * t475 * t432 - 0.9e1 / 0.4e1 * t1878 * t137 - 0.9e1 / 0.8e1 * t471 * t423 - 0.27e2 / 0.16e2 * t1632 * t484 - 0.3e1 / 0.4e1 * t1862 * t137 - 0.3e1 / 0.4e1 * t475 * t423 - 0.9e1 / 0.8e1 * t378 * t1897 + 0.9e1 / 0.4e1 * t1878 * t142 + 0.9e1 / 0.8e1 * t471 * t426 - 0.9e1 / 0.16e2 * t1721 * t152 - 0.9e1 / 0.16e2 * t1724 * t152 - t1728 * t152 / 0.8e1 - t1693 * t152 / 0.4e1 - 0.3e1 / 0.8e1 * t407 * t519 - t1699 * t152 / 0.8e1 - 0.3e1 / 0.8e1 * t411 * t519 - 0.9e1 / 0.8e1 * t403 * t519 + 0.3e1 / 0.4e1 * t1862 * t146 - 0.3e1 / 0.8e1 * t122 * t1923 - t162 * t1704 / 0.4e1;
3159   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3160     v4rho3lapl[0] = t1791 + t1837 + t1884 + t1928;
3161 
3162   t1940 = t539 * t100;
3163   t1941 = t140 * t1940;
3164   t1944 = t386 * t1940;
3165   t1947 = t123 * t1940;
3166   t1963 = my_piecewise3(t16, 0.24e2 * t449, 0);
3167   t1976 = -0.9e1 / 0.4e1 * t182 * t1519 - 0.3e1 / 0.2e1 * t182 * t1522 - 0.3e1 / 0.4e1 * t182 * t1536 + 0.3e1 * t182 * t1544 - 0.9e1 / 0.4e1 * t182 * t1529 - 0.9e1 / 0.8e1 * t122 * t1941 + 0.9e1 / 0.8e1 * t122 * t1944 + 0.9e1 / 0.8e1 * t122 * t1947 + 0.9e1 / 0.4e1 * t182 * t1515 + 0.3e1 * t549 * t390 - 0.27e2 / 0.8e1 * t545 * t394 - 0.9e1 / 0.4e1 * t549 * t394 + 0.11e2 / 0.4e1 * t182 * t1573 - 0.25e2 / 0.4e1 * t182 * t1581 - t30 * t1963 * t20 * t45 / 0.4e1 + 0.3e1 / 0.32e2 * t1385 * t65 - 0.9e1 / 0.16e2 * t331 * t178 - 0.9e1 / 0.8e1 * t72 * t530 + 0.27e2 / 0.8e1 * t545 * t432;
3168   t1977 = t69 * t181;
3169   t2008 = t1331 * t63;
3170   t2009 = t140 * t2008;
3171   t2014 = t619 * t2008;
3172   t2017 = t392 * t2008;
3173   t2020 = t1576 * t2008;
3174   t2023 = -0.9e1 / 0.16e2 * t1977 * t137 + 0.9e1 / 0.16e2 * t1977 * t142 - 0.27e2 / 0.8e1 * t545 * t435 + 0.11e2 / 0.4e1 * t182 * t1619 - 0.9e1 / 0.4e1 * t545 * t438 + 0.3e1 / 0.2e1 * t182 * t1624 + 0.27e2 / 0.16e2 * t1632 * t540 - 0.11e2 / 0.4e1 * t182 * t1614 + 0.3e1 / 0.2e1 * t182 * t1637 - 0.9e1 / 0.8e1 * t545 * t383 - 0.3e1 / 0.4e1 * t549 * t383 - t182 * t1644 / 0.4e1 + 0.15e2 / 0.4e1 * t182 * t1586 - 0.6e1 * t182 * t1595 + 0.9e1 / 0.2e1 * t182 * t1598 + 0.9e1 / 0.4e1 * t1565 * t2009 + 0.9e1 / 0.2e1 * t545 * t390 - 0.7e1 / 0.8e1 * t1565 * t2014 + 0.11e2 / 0.4e1 * t1565 * t2017 - 0.15e2 / 0.8e1 * t1565 * t2020;
3175   t2029 = t123 * t2008;
3176   t2034 = t282 * t176;
3177   t2035 = t123 * t2034;
3178   t2040 = t3 * t548;
3179   t2048 = t28 * t29 * t528;
3180   t2053 = t140 * t2034;
3181   t2062 = t386 * t2008;
3182   t2071 = -0.5e1 / 0.8e1 * t1662 * t562 + 0.5e1 / 0.8e1 * t1662 * t565 - 0.11e2 / 0.8e1 * t1565 * t2029 + 0.5e1 / 0.8e1 * t1662 * t540 + 0.9e1 / 0.8e1 * t378 * t2035 + 0.9e1 / 0.4e1 * t549 * t432 - 0.9e1 / 0.4e1 * t2040 * t137 - 0.9e1 / 0.8e1 * t545 * t423 - 0.27e2 / 0.16e2 * t1632 * t562 - 0.3e1 / 0.4e1 * t2048 * t137 - 0.3e1 / 0.4e1 * t549 * t423 - 0.9e1 / 0.8e1 * t378 * t2053 + 0.9e1 / 0.4e1 * t2040 * t142 + 0.9e1 / 0.8e1 * t545 * t426 - 0.9e1 / 0.4e1 * t549 * t435 - 0.9e1 / 0.4e1 * t1565 * t2062 - 0.3e1 / 0.2e1 * t549 * t438 + 0.9e1 / 0.8e1 * t545 * t397 + 0.9e1 / 0.16e2 * t1977 * t146;
3183   t2094 = t85 * t528;
3184   t2095 = t123 * t2094;
3185   t2112 = t386 * t2034;
3186   t2115 = -0.9e1 / 0.32e2 * t1718 * t172 + t182 * t1689 / 0.4e1 - t1728 * t172 / 0.8e1 - t1693 * t172 / 0.4e1 - 0.3e1 / 0.8e1 * t407 * t579 - t1699 * t172 / 0.8e1 - 0.3e1 / 0.8e1 * t411 * t579 - t182 * t1704 / 0.4e1 + 0.9e1 / 0.4e1 * t2040 * t146 - 0.9e1 / 0.8e1 * t403 * t579 + 0.3e1 / 0.4e1 * t2048 * t146 - 0.3e1 / 0.8e1 * t122 * t2095 + 0.3e1 / 0.4e1 * t549 * t397 + t182 * t1713 / 0.4e1 - 0.9e1 / 0.16e2 * t1721 * t172 - 0.9e1 / 0.16e2 * t1724 * t172 + 0.27e2 / 0.16e2 * t1632 * t565 + 0.3e1 / 0.4e1 * t2048 * t142 + 0.3e1 / 0.4e1 * t549 * t426 + 0.9e1 / 0.8e1 * t378 * t2112;
3187   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3188     v4rho3tau[0] = t1976 + t2023 + t2071 + t2115;
3189 
3190   t2117 = 0.3e1 / 0.4e1 * t635;
3191   t2118 = t359 * t130;
3192   t2119 = t42 * t2118;
3193   t2122 = t591 * t130;
3194   t2123 = t619 * t2122;
3195   t2126 = t392 * t2122;
3196   t2129 = t145 * t2122;
3197   t2132 = t379 * t130;
3198   t2136 = t283 * t130;
3199   t2137 = t42 * t2136;
3200   t2139 = t140 * t2122;
3201   t2147 = -t2117 - t198 + 0.3e1 * t136 * t2119 + 0.4e1 * t136 * t2123 - 0.3e1 * t136 * t2126 - 0.2e1 * t136 * t2129 + 0.3e1 / 0.2e1 * t122 * t123 * t2132 - t136 * t2137 - 0.3e1 / 0.2e1 * t210 * t2139 + 0.3e1 / 0.2e1 * t210 * t386 * t2122 - 0.3e1 * t136 * t2139;
3202   t2150 = t3 * t589;
3203   t2158 = t105 * t1332;
3204   t2162 = t604 * t383 / 0.4e1;
3205   t2163 = t105 * t1368;
3206   t2167 = 0.3e1 / 0.4e1 * t604 * t394;
3207   t2168 = t293 * t1444;
3208   t2169 = t1331 * t79;
3209   t2170 = t2168 * t2169;
3210   t2173 = t1584 * t2169;
3211   t2176 = t619 * t2169;
3212   t2179 = 0.3e1 / 0.2e1 * t400 * t597 - 0.3e1 / 0.2e1 * t2150 * t600 + 0.9e1 / 0.8e1 * t403 * t123 * t969 + 0.9e1 / 0.4e1 * t2150 * t649 - 0.11e2 / 0.4e1 * t590 * t2158 - t2162 - t590 * t2163 / 0.4e1 - t2167 - 0.25e2 / 0.4e1 * t590 * t2170 + 0.15e2 / 0.4e1 * t590 * t2173 - 0.6e1 * t590 * t2176;
3213   t2181 = t392 * t2169;
3214   t2184 = t604 * t390;
3215   t2185 = t81 * t1379;
3216   t2190 = t1576 * t2169;
3217   t2194 = t604 * t426 / 0.4e1;
3218   t2195 = t282 * t194;
3219   t2196 = t386 * t2195;
3220   t2198 = 0.3e1 / 0.8e1 * t378 * t2196;
3221   t2199 = t619 * t1480;
3222   t2201 = t392 * t1480;
3223   t2207 = t28 * t351 * t189;
3224   t2210 = 0.9e1 / 0.2e1 * t590 * t2181 + t2184 + 0.11e2 / 0.4e1 * t590 * t2185 + 0.11e2 / 0.4e1 * t611 * t2181 - 0.15e2 / 0.8e1 * t611 * t2190 + t2194 + t2198 + t590 * t2199 - 0.3e1 / 0.4e1 * t590 * t2201 - t703 * t415 / 0.2e1 + 0.5e1 / 0.8e1 * t2207 * t632;
3225   t2211 = t145 * t1737;
3226   t2214 = t145 * t1480;
3227   t2217 = t1331 * t189;
3228   t2218 = t123 * t2217;
3229   t2222 = t604 * t423 / 0.4e1;
3230   t2223 = t140 * t2195;
3231   t2225 = 0.3e1 / 0.8e1 * t378 * t2223;
3232   t2226 = t101 * t283;
3233   t2229 = t619 * t2217;
3234   t2240 = t386 * t2217;
3235   t2243 = t136 * t2211 / 0.2e1 - t590 * t2214 / 0.2e1 - 0.11e2 / 0.8e1 * t378 * t2218 - t2222 - t2225 - t590 * t2226 / 0.4e1 - 0.7e1 / 0.8e1 * t378 * t2229 - 0.5e1 / 0.8e1 * t2207 * t592 - 0.3e1 / 0.8e1 * t611 * t1492 + 0.5e1 / 0.8e1 * t2207 * t614 - 0.3e1 / 0.4e1 * t590 * t1492 - 0.9e1 / 0.4e1 * t378 * t2240;
3236   t2248 = t645 * t1737;
3237   t2251 = t645 * t1480;
3238   t2262 = t3 * t603;
3239   t2264 = 0.3e1 / 0.4e1 * t2262 * t146;
3240   t2266 = 0.3e1 / 0.8e1 * t403 * t640;
3241   t2268 = t604 * t397 / 0.4e1;
3242   t2269 = t123 * t2195;
3243   t2271 = 0.3e1 / 0.8e1 * t378 * t2269;
3244   t2272 = -0.3e1 / 0.2e1 * t400 * t646 - t136 * t2248 / 0.2e1 + 0.3e1 / 0.4e1 * t590 * t2251 + 0.3e1 / 0.2e1 * t400 * t654 - 0.3e1 / 0.4e1 * t693 * t415 - t210 * t1738 / 0.4e1 + 0.3e1 / 0.8e1 * t611 * t1497 + t2264 - t2266 + t2268 + t2271;
3245   t2274 = t407 * t640 / 0.8e1;
3246   t2276 = t411 * t640 / 0.8e1;
3247   t2280 = t604 * t438 / 0.2e1;
3248   t2282 = 0.3e1 / 0.4e1 * t2262 * t142;
3249   t2284 = 0.3e1 / 0.4e1 * t604 * t435;
3250   t2289 = t145 * t2169;
3251   t2293 = 0.3e1 / 0.4e1 * t2262 * t137;
3252   t2295 = 0.3e1 / 0.4e1 * t604 * t432;
3253   t2296 = -t2274 - t2276 + 0.3e1 / 0.8e1 * t611 * t1481 - t2280 + t2282 - t2284 + 0.3e1 * t2150 * t620 - 0.9e1 / 0.4e1 * t2150 * t622 + 0.3e1 / 0.2e1 * t590 * t2289 - t2293 + t2295;
3254   t2300 = t105 * t1345;
3255   t2303 = t3 * t610;
3256   t2306 = t140 * t2169;
3257   t2315 = t140 * t1737;
3258   t2318 = t605 / 0.2e1;
3259   t2319 = t617 / 0.2e1;
3260   t2320 = t637 / 0.2e1;
3261   t2321 = -0.3e1 / 0.4e1 * t2150 * t607 + 0.3e1 / 0.2e1 * t590 * t2300 - 0.9e1 / 0.8e1 * t2303 * t592 + 0.9e1 / 0.4e1 * t611 * t2306 + 0.9e1 / 0.8e1 * t2303 * t614 - 0.9e1 / 0.4e1 * t2150 * t592 + 0.11e2 / 0.4e1 * t590 * t2306 + t136 * t2315 / 0.2e1 - t2318 + t2319 + t2320;
3262   t2322 = t641 / 0.4e1;
3263   t2327 = t130 * t130;
3264   t2328 = t2327 * t20;
3265   t2334 = t2327 * t80;
3266   t2344 = 0.3e1 / 0.16e2 * t331 * t196;
3267   t2352 = -t2322 - t1325 * t191 / 0.8e1 - 0.3e1 / 0.16e2 * t331 * t200 - t30 * t2328 * t86 / 0.2e1 + 0.3e1 / 0.16e2 * t331 * t203 + t30 * t2334 * t111 / 0.2e1 - 0.3e1 / 0.32e2 * t1405 * t191 - t78 * t2334 * t86 / 0.4e1 - t2344 - 0.3e1 / 0.8e1 * t1408 * t191 + t30 * t2328 * t115 / 0.2e1 + 0.3e1 / 0.16e2 * t331 * t206;
3268   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3269     v4rho2sigma2[0] = t2147 + t2179 + t2210 + t2243 + t2272 + t2296 + t2321 + t2352;
3270 
3271   t2359 = t51 * t79;
3272   t2360 = t670 * t1331;
3273   t2361 = t2359 * t2360;
3274   t2368 = t1368 * t79;
3275   t2369 = t658 * t2368;
3276   t2372 = t1566 * t79;
3277   t2373 = t392 * t2372;
3278   t2378 = t145 * t2372;
3279   t2385 = -t2117 - t198 + 0.9e1 / 0.8e1 * t693 * t679 + 0.3e1 * t471 * t660 + 0.3e1 / 0.2e1 * t162 * t2361 - 0.9e1 / 0.4e1 * t471 * t663 - 0.5e1 / 0.8e1 * t703 * t676 - 0.6e1 * t162 * t2369 + 0.9e1 / 0.2e1 * t162 * t2373 - 0.3e1 / 0.2e1 * t471 * t682 + 0.3e1 / 0.2e1 * t162 * t2378 - t475 * t672 / 0.2e1 - t162 * t2137 / 0.2e1;
3280   t2394 = t1867 * t41;
3281   t2395 = t140 * t2394;
3282   t2398 = t386 * t2394;
3283   t2410 = t20 * t296 * t1331;
3284   t2411 = t2359 * t2410;
3285   t2414 = t1332 * t51;
3286   t2415 = t105 * t2414;
3287   t2420 = t80 * t306;
3288   t2421 = t2420 * t1331;
3289   t2422 = t2359 * t2421;
3290   t2425 = -0.3e1 / 0.4e1 * t471 * t672 + 0.5e1 / 0.8e1 * t703 * t679 - 0.3e1 / 0.4e1 * t707 * t676 + 0.3e1 / 0.4e1 * t707 * t679 - 0.3e1 / 0.4e1 * t210 * t2395 + 0.3e1 / 0.4e1 * t210 * t2398 + 0.2e1 * t475 * t660 + 0.2e1 * t162 * t2123 - 0.3e1 / 0.2e1 * t475 * t663 - 0.3e1 / 0.2e1 * t162 * t2126 - t162 * t2411 / 0.4e1 - 0.11e2 / 0.4e1 * t162 * t2415 - 0.9e1 / 0.8e1 * t693 * t676 + 0.11e2 / 0.4e1 * t162 * t2422;
3291   t2427 = t1779 * t79;
3292   t2428 = t392 * t2427;
3293   t2436 = t51 * t293 * t1445 * t79;
3294   t2439 = t1584 * t2372;
3295   t2442 = t140 * t2372;
3296   t2445 = t140 * t2427;
3297   t2455 = t145 * t1525;
3298   t2458 = t1779 * t51;
3299   t2464 = 0.11e2 / 0.4e1 * t210 * t2428 - 0.15e2 / 0.8e1 * t210 * t1576 * t2427 - 0.25e2 / 0.4e1 * t162 * t2436 + 0.15e2 / 0.4e1 * t162 * t2439 + 0.11e2 / 0.4e1 * t162 * t2442 + 0.9e1 / 0.4e1 * t210 * t2445 - 0.9e1 / 0.4e1 * t210 * t386 * t2427 - 0.3e1 / 0.4e1 * t162 * t1532 - t475 * t682 - t162 * t2129 - t162 * t2455 / 0.2e1 - 0.11e2 / 0.8e1 * t378 * t123 * t2458 + 0.9e1 / 0.8e1 * t693 * t685;
3300   t2469 = t123 * t2394;
3301   t2480 = t392 * t1525;
3302   t2483 = t619 * t2458;
3303   t2490 = t658 * t1543;
3304   t2493 = t51 * t100 * t671;
3305   t2496 = t52 * t1514;
3306   t2499 = 0.5e1 / 0.8e1 * t703 * t685 + 0.3e1 / 0.4e1 * t707 * t685 + 0.3e1 / 0.4e1 * t210 * t2469 + 0.3e1 / 0.8e1 * t210 * t1758 + 0.9e1 / 0.4e1 * t471 * t689 + 0.3e1 / 0.2e1 * t475 * t689 + 0.3e1 / 0.2e1 * t162 * t2119 - 0.3e1 / 0.4e1 * t162 * t2480 - 0.7e1 / 0.8e1 * t378 * t2483 - 0.3e1 / 0.8e1 * t210 * t1748 + 0.3e1 / 0.8e1 * t210 * t1751 + t162 * t2490 - t162 * t2493 / 0.4e1 + 0.3e1 / 0.4e1 * t162 * t2496;
3307   t2528 = -0.9e1 / 0.4e1 * t471 * t666 - 0.3e1 / 0.2e1 * t475 * t666 - 0.3e1 / 0.2e1 * t162 * t2139 - t210 * t1923 / 0.8e1 - t1862 * t213 / 0.4e1 - t475 * t646 / 0.2e1 - t162 * t2248 / 0.4e1 + t1862 * t216 / 0.4e1 + t475 * t654 / 0.2e1 + t162 * t2315 / 0.4e1 + t1862 * t219 / 0.4e1 + t475 * t597 / 0.2e1 + 0.3e1 / 0.4e1 * t1878 * t219;
3308   t2532 = t28 * t1324 * t51;
3309   t2536 = t28 * t351 * t130;
3310   t2542 = t28 * t77 * t451;
3311   t2547 = t3 * t702;
3312   t2550 = t3 * t706;
3313   t2565 = 0.3e1 / 0.4e1 * t471 * t597 - t2532 * t152 / 0.8e1 - t2536 * t152 / 0.4e1 - t703 * t519 / 0.4e1 - t2542 * t152 / 0.8e1 - t707 * t519 / 0.4e1 - 0.3e1 / 0.8e1 * t2547 * t152 - 0.3e1 / 0.8e1 * t2550 * t152 - 0.3e1 / 0.8e1 * t693 * t519 - 0.3e1 / 0.4e1 * t1878 * t213 - 0.3e1 / 0.4e1 * t471 * t646 + 0.3e1 / 0.4e1 * t1878 * t216 + 0.3e1 / 0.4e1 * t471 * t654 + t162 * t2211 / 0.4e1;
3314   t2571 = t69 * t209;
3315   t2576 = 0.3e1 / 0.16e2 * t1830 * t216 + 0.3e1 / 0.16e2 * t1830 * t219 - 0.3e1 / 0.32e2 * t2571 * t152 - 0.3e1 / 0.16e2 * t1830 * t213 - t2162 - t2167 + t2184 + t2194 + t2198 - t2222 - t2225 + t2264 - t2266;
3316   t2577 = t2268 + t2271 - t2274 - t2276 - t2280 + t2282 - t2284 - t2293 + t2295 - t2318 + t2319 + t2320 - t2322 - t2344;
3317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3318     v4rho2sigmalapl[0] = t2385 + t2425 + t2464 + t2499 + t2528 + t2565 + t2576 + t2577;
3319 
3320   t2588 = t2034 * t41;
3321   t2589 = t140 * t2588;
3322   t2592 = t386 * t2588;
3323   t2605 = -t2117 - t198 - 0.5e1 / 0.8e1 * t703 * t728 + 0.5e1 / 0.8e1 * t703 * t731 - 0.3e1 / 0.4e1 * t707 * t728 + 0.3e1 / 0.4e1 * t707 * t731 - 0.3e1 / 0.4e1 * t210 * t2589 + 0.3e1 / 0.4e1 * t210 * t2592 + 0.2e1 * t549 * t660 + 0.2e1 * t182 * t2123 - 0.3e1 / 0.2e1 * t549 * t663 - 0.3e1 / 0.2e1 * t182 * t2126 - t182 * t2411 / 0.4e1;
3324   t2618 = t2008 * t79;
3325   t2619 = t392 * t2618;
3326   t2629 = t140 * t2618;
3327   t2632 = t386 * t2618;
3328   t2639 = -0.9e1 / 0.8e1 * t693 * t728 + 0.9e1 / 0.8e1 * t693 * t731 + 0.3e1 * t545 * t660 + 0.3e1 / 0.2e1 * t182 * t2361 - 0.9e1 / 0.4e1 * t545 * t663 + 0.11e2 / 0.4e1 * t182 * t2422 + 0.11e2 / 0.4e1 * t210 * t2619 - 0.15e2 / 0.8e1 * t210 * t1576 * t2618 - 0.25e2 / 0.4e1 * t182 * t2436 + 0.15e2 / 0.4e1 * t182 * t2439 + 0.9e1 / 0.4e1 * t210 * t2629 - 0.9e1 / 0.4e1 * t210 * t2632 - 0.6e1 * t182 * t2369 + 0.9e1 / 0.2e1 * t182 * t2373;
3329   t2641 = t123 * t2618;
3330   t2668 = -0.11e2 / 0.8e1 * t210 * t2641 - 0.11e2 / 0.4e1 * t182 * t2415 + 0.11e2 / 0.4e1 * t182 * t2442 + 0.3e1 / 0.2e1 * t182 * t2378 - 0.3e1 / 0.4e1 * t545 * t672 - t549 * t672 / 0.2e1 - t182 * t2137 / 0.2e1 + 0.3e1 / 0.8e1 * t210 * t1947 + 0.9e1 / 0.4e1 * t545 * t689 + 0.3e1 / 0.2e1 * t182 * t2119 + 0.3e1 / 0.4e1 * t182 * t2496 - 0.9e1 / 0.4e1 * t545 * t666 - 0.3e1 / 0.2e1 * t549 * t666;
3331   t2681 = t123 * t2588;
3332   t2691 = t2008 * t51;
3333   t2698 = -0.3e1 / 0.2e1 * t182 * t2139 - 0.3e1 / 0.4e1 * t182 * t1532 - 0.3e1 / 0.2e1 * t545 * t682 + 0.9e1 / 0.8e1 * t693 * t737 + 0.5e1 / 0.8e1 * t703 * t737 + 0.3e1 / 0.4e1 * t707 * t737 + 0.3e1 / 0.4e1 * t210 * t2681 + 0.3e1 / 0.8e1 * t210 * t1944 + t182 * t2490 - 0.3e1 / 0.4e1 * t182 * t2480 - t182 * t2493 / 0.4e1 - 0.7e1 / 0.8e1 * t378 * t619 * t2691 - 0.3e1 / 0.8e1 * t210 * t1941 - t549 * t682;
3334   t2726 = -t182 * t2129 - t182 * t2455 / 0.2e1 + 0.3e1 / 0.2e1 * t549 * t689 + t549 * t654 / 0.2e1 - 0.3e1 / 0.4e1 * t2040 * t213 - 0.3e1 / 0.4e1 * t545 * t646 + 0.3e1 / 0.4e1 * t2040 * t216 + 0.3e1 / 0.4e1 * t545 * t654 + 0.3e1 / 0.4e1 * t2040 * t219 + 0.3e1 / 0.4e1 * t545 * t597 - t2532 * t172 / 0.8e1 - t2536 * t172 / 0.4e1 - 0.3e1 / 0.8e1 * t2547 * t172;
3335   t2755 = -0.3e1 / 0.8e1 * t2550 * t172 - 0.3e1 / 0.8e1 * t693 * t579 + 0.3e1 / 0.16e2 * t1977 * t216 + 0.3e1 / 0.16e2 * t1977 * t219 - 0.3e1 / 0.32e2 * t2571 * t172 - 0.3e1 / 0.16e2 * t1977 * t213 + t182 * t2315 / 0.4e1 + t2048 * t219 / 0.4e1 + t549 * t597 / 0.2e1 + t182 * t2211 / 0.4e1 - t703 * t579 / 0.4e1 - t2542 * t172 / 0.8e1 - t707 * t579 / 0.4e1 - t210 * t2095 / 0.8e1;
3336   t2765 = -t2048 * t213 / 0.4e1 - t549 * t646 / 0.2e1 - t182 * t2248 / 0.4e1 + t2048 * t216 / 0.4e1 - t2162 - t2167 + t2184 + t2194 + t2198 - t2222 - t2225 + t2264 - t2266;
3337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3338     v4rho2sigmatau[0] = t2605 + t2639 + t2668 + t2698 + t2726 + t2755 + t2765 + t2577;
3339 
3340   t2772 = t619 * t2394;
3341   t2775 = t392 * t2394;
3342   t2778 = t283 * t156;
3343   t2779 = t42 * t2778;
3344   t2783 = t645 * t2394;
3345   t2786 = t145 * t2394;
3346   t2791 = -t2117 - t198 - 0.3e1 / 0.2e1 * t246 * t2395 + 0.3e1 / 0.2e1 * t246 * t2398 + 0.4e1 * t162 * t2772 - 0.3e1 * t162 * t2775 - t162 * t2779 + 0.3e1 / 0.2e1 * t246 * t2469 + 0.3e1 * t162 * t2783 - 0.2e1 * t162 * t2786 - 0.3e1 * t162 * t2395;
3347   t2800 = t386 * t2169;
3348   t2805 = t3 * t774;
3349   t2810 = t3 * t782;
3350   t2817 = -0.25e2 / 0.4e1 * t775 * t2170 + 0.15e2 / 0.4e1 * t775 * t2173 + 0.11e2 / 0.4e1 * t775 * t2185 + 0.9e1 / 0.4e1 * t783 * t2306 - 0.9e1 / 0.4e1 * t783 * t2800 - 0.6e1 * t775 * t2176 - 0.9e1 / 0.4e1 * t2805 * t622 - t775 * t2163 / 0.4e1 - 0.9e1 / 0.8e1 * t2810 * t592 + 0.9e1 / 0.8e1 * t2810 * t614 + 0.3e1 * t2805 * t620;
3351   t2831 = t1331 * t230;
3352   t2832 = t619 * t2831;
3353   t2843 = 0.9e1 / 0.2e1 * t775 * t2181 + 0.11e2 / 0.4e1 * t783 * t2181 - 0.15e2 / 0.8e1 * t783 * t2190 + 0.3e1 / 0.2e1 * t471 * t795 - 0.9e1 / 0.4e1 * t2805 * t592 - t775 * t2226 / 0.4e1 - 0.7e1 / 0.8e1 * t378 * t2832 - 0.3e1 / 0.4e1 * t849 * t519 + 0.9e1 / 0.8e1 * t2810 * t632 - t853 * t519 / 0.2e1 - t246 * t1923 / 0.4e1;
3354   t2846 = t123 * t2169;
3355   t2858 = t28 * t351 * t230;
3356   t2866 = t140 * t1922;
3357   t2871 = 0.3e1 / 0.2e1 * t775 * t2300 - 0.11e2 / 0.8e1 * t783 * t2846 - 0.11e2 / 0.4e1 * t775 * t2158 - 0.3e1 / 0.4e1 * t2805 * t607 + 0.11e2 / 0.4e1 * t775 * t2306 + 0.3e1 / 0.2e1 * t775 * t2289 + 0.5e1 / 0.8e1 * t2858 * t614 + 0.3e1 / 0.8e1 * t783 * t1481 + t775 * t2199 - 0.3e1 / 0.4e1 * t775 * t2201 + t162 * t2866 / 0.2e1 - 0.3e1 / 0.4e1 * t775 * t1492;
3358   t2878 = t145 * t1922;
3359   t2895 = t645 * t1922;
3360   t2898 = 0.3e1 / 0.2e1 * t471 * t803 - 0.3e1 / 0.2e1 * t2805 * t600 + t162 * t2878 / 0.2e1 - t775 * t2214 / 0.2e1 - 0.5e1 / 0.8e1 * t2858 * t592 - 0.3e1 / 0.8e1 * t783 * t1492 + 0.5e1 / 0.8e1 * t2858 * t632 + 0.3e1 / 0.8e1 * t783 * t1497 - 0.3e1 / 0.2e1 * t471 * t788 + 0.9e1 / 0.4e1 * t2805 * t649 - t162 * t2895 / 0.2e1;
3361   t2901 = 0.3e1 / 0.4e1 * t775 * t2251 - t2162 - t2167 + t2184 + t2194 + t2198 - t2222 - t2225 + t2264 - t2266 + t2268;
3362   t2903 = t2271 - t2274 - t2276 - t2280 + t2282 - t2284 - t2293 + t2295 - t2318 + t2319 + t2320;
3363   t2908 = t156 * t156;
3364   t2909 = t2908 * t80;
3365   t2915 = t2908 * t20;
3366   t2931 = -t2322 - t1325 * t232 / 0.8e1 - 0.3e1 / 0.8e1 * t1408 * t232 + t30 * t2909 * t111 / 0.2e1 + 0.3e1 / 0.16e2 * t331 * t242 + t30 * t2915 * t115 / 0.2e1 - 0.3e1 / 0.16e2 * t331 * t236 - t30 * t2915 * t86 / 0.2e1 + 0.3e1 / 0.16e2 * t331 * t239 - 0.3e1 / 0.32e2 * t1405 * t232 - t78 * t2909 * t86 / 0.4e1 - t2344;
3367   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3368     v4rho2lapl2[0] = t2791 + t2817 + t2843 + t2871 + t2898 + t2901 + t2903 + t2931;
3369 
3370   t2936 = t58 * t79;
3371   t2959 = -t2117 - t198 - 0.3e1 / 0.2e1 * t182 * t2775 - t182 * t2936 * t2410 / 0.4e1 + 0.3e1 * t545 * t830 + 0.3e1 / 0.2e1 * t182 * t2936 * t2360 - 0.9e1 / 0.4e1 * t545 * t822 - t549 * t819 / 0.2e1 - t182 * t2779 / 0.2e1 - 0.3e1 / 0.4e1 * t545 * t819 - 0.5e1 / 0.8e1 * t853 * t728 + 0.5e1 / 0.8e1 * t853 * t731 - 0.3e1 / 0.4e1 * t857 * t728;
3372   t2992 = 0.3e1 / 0.4e1 * t857 * t731 - 0.3e1 / 0.4e1 * t246 * t2589 + 0.3e1 / 0.4e1 * t246 * t2592 + 0.2e1 * t549 * t830 + 0.2e1 * t182 * t2772 - 0.3e1 / 0.2e1 * t549 * t822 + 0.11e2 / 0.4e1 * t182 * t2936 * t2421 - 0.25e2 / 0.4e1 * t182 * t2168 * t2427 + 0.15e2 / 0.4e1 * t182 * t1584 * t2427 + 0.11e2 / 0.4e1 * t246 * t2619 + 0.9e1 / 0.4e1 * t246 * t2629 - 0.9e1 / 0.4e1 * t246 * t2632 - 0.6e1 * t182 * t829 * t2368 + 0.9e1 / 0.2e1 * t182 * t2428;
3373   t3023 = 0.3e1 / 0.2e1 * t182 * t145 * t2427 + 0.9e1 / 0.8e1 * t849 * t737 - 0.11e2 / 0.8e1 * t246 * t2641 - 0.11e2 / 0.4e1 * t182 * t59 * t1332 * t79 + 0.11e2 / 0.4e1 * t182 * t2445 + 0.3e1 / 0.4e1 * t182 * t59 * t1514 - 0.9e1 / 0.4e1 * t545 * t676 - 0.3e1 / 0.2e1 * t545 * t839 - t549 * t839 - t182 * t2786 - t182 * t145 * t1747 / 0.2e1 + 0.5e1 / 0.8e1 * t853 * t737 + 0.3e1 / 0.4e1 * t857 * t737;
3374   t3030 = t539 * t58;
3375   t3046 = t2008 * t58;
3376   t3047 = t619 * t3046;
3377   t3053 = t1576 * t3046;
3378   t3061 = 0.3e1 / 0.4e1 * t246 * t2681 + 0.3e1 / 0.8e1 * t246 * t1947 + 0.9e1 / 0.4e1 * t545 * t834 - 0.9e1 / 0.8e1 * t403 * t140 * t3030 + 0.3e1 / 0.2e1 * t549 * t834 + 0.3e1 / 0.2e1 * t182 * t2783 + 0.3e1 / 0.8e1 * t246 * t1944 + t182 * t829 * t1543 - t182 * t58 * t100 * t671 / 0.4e1 - 0.7e1 / 0.8e1 * t378 * t3047 - 0.3e1 / 0.4e1 * t182 * t392 * t1747 - 0.15e2 / 0.8e1 * t378 * t3053 - 0.3e1 / 0.8e1 * t246 * t1941 + 0.9e1 / 0.8e1 * t403 * t386 * t3030;
3379   t3097 = -0.3e1 / 0.2e1 * t549 * t676 - 0.3e1 / 0.2e1 * t182 * t2395 - 0.3e1 / 0.4e1 * t182 * t1748 - 0.3e1 / 0.8e1 * t3 * t856 * t172 - 0.3e1 / 0.8e1 * t849 * t579 + t182 * t2866 / 0.4e1 + t2048 * t255 / 0.4e1 + t549 * t803 / 0.2e1 + t182 * t2878 / 0.4e1 - t28 * t1324 * t58 * t172 / 0.8e1 - t28 * t351 * t156 * t172 / 0.4e1 - t853 * t579 / 0.4e1 - t28 * t77 * t497 * t172 / 0.8e1;
3380   t3128 = -t857 * t579 / 0.4e1 - t246 * t2095 / 0.8e1 - t2048 * t249 / 0.4e1 - t549 * t788 / 0.2e1 - t182 * t2895 / 0.4e1 - 0.3e1 / 0.4e1 * t2040 * t249 - 0.3e1 / 0.4e1 * t545 * t788 + 0.3e1 / 0.4e1 * t2040 * t252 + 0.3e1 / 0.4e1 * t545 * t795 + 0.3e1 / 0.4e1 * t2040 * t255 + 0.3e1 / 0.4e1 * t545 * t803 - 0.3e1 / 0.8e1 * t3 * t852 * t172 + 0.3e1 / 0.16e2 * t1977 * t255 - 0.3e1 / 0.32e2 * t69 * t245 * t172;
3381   t3138 = -0.3e1 / 0.16e2 * t1977 * t249 + 0.3e1 / 0.16e2 * t1977 * t252 + t2048 * t252 / 0.4e1 + t549 * t795 / 0.2e1 - t2162 - t2167 + t2184 + t2194 + t2198 - t2222 - t2225 + t2264 - t2266;
3382   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3383     v4rho2lapltau[0] = t2959 + t2992 + t3023 + t3061 + t3097 + t3128 + t3138 + t2577;
3384 
3385   t3158 = t283 * t176;
3386   t3164 = -t2117 - t198 - 0.3e1 * t182 * t392 * t2588 - 0.3e1 / 0.2e1 * t882 * t2589 + 0.3e1 / 0.2e1 * t882 * t2592 + 0.4e1 * t182 * t619 * t2588 + 0.3e1 / 0.2e1 * t882 * t2681 + 0.3e1 * t182 * t645 * t2588 - 0.3e1 * t182 * t2589 - t182 * t42 * t3158 - 0.2e1 * t182 * t145 * t2588;
3387   t3175 = t3 * t885;
3388   t3180 = t3 * t875;
3389   t3189 = 0.9e1 / 0.2e1 * t876 * t2181 + 0.11e2 / 0.4e1 * t876 * t2185 + 0.9e1 / 0.4e1 * t886 * t2306 - 0.9e1 / 0.4e1 * t886 * t2800 - 0.6e1 * t876 * t2176 - 0.9e1 / 0.8e1 * t3175 * t592 + 0.9e1 / 0.8e1 * t3175 * t614 + 0.3e1 * t3180 * t620 - 0.9e1 / 0.4e1 * t3180 * t622 - t876 * t2163 / 0.4e1 - t876 * t2226 / 0.4e1;
3390   t3191 = t1331 * t258;
3391   t3192 = t619 * t3191;
3392   t3217 = -0.7e1 / 0.8e1 * t378 * t3192 - 0.3e1 / 0.4e1 * t3 * t881 * t579 + 0.9e1 / 0.8e1 * t3175 * t632 + 0.11e2 / 0.4e1 * t876 * t2306 + 0.3e1 / 0.2e1 * t876 * t2289 - 0.11e2 / 0.8e1 * t886 * t2846 - 0.11e2 / 0.4e1 * t876 * t2158 - 0.3e1 / 0.4e1 * t3180 * t607 + 0.3e1 / 0.2e1 * t876 * t2300 - 0.3e1 / 0.2e1 * t3180 * t600 + t182 * t145 * t2094 / 0.2e1;
3393   t3227 = t28 * t351 * t258;
3394   t3247 = -t876 * t2214 / 0.2e1 - t28 * t351 * t63 * t579 / 0.2e1 - t882 * t2095 / 0.4e1 + 0.5e1 / 0.8e1 * t3227 * t632 + 0.3e1 / 0.8e1 * t886 * t1497 - 0.3e1 / 0.2e1 * t545 * t891 + 0.9e1 / 0.4e1 * t3180 * t649 - t182 * t645 * t2094 / 0.2e1 + 0.3e1 / 0.4e1 * t876 * t2251 + 0.3e1 / 0.2e1 * t545 * t898 - 0.9e1 / 0.4e1 * t3180 * t592 + 0.11e2 / 0.4e1 * t886 * t2181;
3395   t3272 = -0.15e2 / 0.8e1 * t886 * t2190 - 0.25e2 / 0.4e1 * t876 * t2170 + 0.15e2 / 0.4e1 * t876 * t2173 - 0.5e1 / 0.8e1 * t3227 * t592 - 0.3e1 / 0.8e1 * t886 * t1492 + 0.5e1 / 0.8e1 * t3227 * t614 + 0.3e1 / 0.8e1 * t886 * t1481 + t876 * t2199 - 0.3e1 / 0.4e1 * t876 * t2201 + t182 * t140 * t2094 / 0.2e1 - 0.3e1 / 0.4e1 * t876 * t1492;
3396   t3275 = 0.3e1 / 0.2e1 * t545 * t906 - t2162 - t2167 + t2184 + t2194 + t2198 - t2222 - t2225 + t2264 - t2266 + t2268;
3397   t3281 = t176 * t176;
3398   t3282 = t3281 * t80;
3399   t3288 = t3281 * t20;
3400   t3304 = -t2322 - t1325 * t260 / 0.8e1 - 0.3e1 / 0.8e1 * t1408 * t260 + t30 * t3282 * t111 / 0.2e1 + 0.3e1 / 0.16e2 * t331 * t270 + t30 * t3288 * t115 / 0.2e1 - t78 * t3282 * t86 / 0.4e1 - 0.3e1 / 0.16e2 * t331 * t264 - t30 * t3288 * t86 / 0.2e1 + 0.3e1 / 0.16e2 * t331 * t267 - 0.3e1 / 0.32e2 * t1405 * t260 - t2344;
3401   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3402     v4rho2tau2[0] = t3164 + t3189 + t3217 + t3247 + t3272 + t3275 + t2903 + t3304;
3403 
3404   t3307 = t604 * t672;
3405   t3309 = t604 * t689;
3406   t3311 = t2195 * t51;
3407   t3312 = t140 * t3311;
3408   t3313 = t122 * t3312;
3409   t3315 = t2195 * t41;
3410   t3317 = t210 * t123 * t3315;
3411   t3319 = t604 * t682;
3412   t3321 = t604 * t660;
3413   t3324 = t210 * t386 * t3315;
3414   t3326 = t604 * t666;
3415   t3328 = t604 * t663;
3416   t3330 = t2262 * t213;
3417   t3332 = t693 * t640;
3418   t3334 = t2262 * t219;
3419   t3336 = t2262 * t216;
3420   t3339 = t28 * t29 * t923;
3421   t3340 = t42 * t1368;
3422   t3343 = t1331 * t41;
3423   t3344 = t1584 * t3343;
3424   t3347 = -t636 - t198 - 0.3e1 / 0.4e1 * t3307 + 0.9e1 / 0.4e1 * t3309 - 0.9e1 / 0.8e1 * t3313 + 0.9e1 / 0.8e1 * t3317 - 0.3e1 / 0.2e1 * t3319 + 0.3e1 * t3321 + 0.9e1 / 0.8e1 * t3324 - 0.9e1 / 0.4e1 * t3326 - 0.9e1 / 0.4e1 * t3328 - 0.9e1 / 0.8e1 * t3330 - 0.9e1 / 0.16e2 * t3332 + 0.9e1 / 0.8e1 * t3334 + 0.9e1 / 0.8e1 * t3336 - t3339 * t3340 / 0.4e1 + 0.15e2 / 0.4e1 * t3339 * t3344;
3425   t3349 = t28 * t964 * t189;
3426   t3354 = t2420 * t3343;
3427   t3358 = t28 * t77 * t923;
3428   t3359 = t140 * t3343;
3429   t3362 = t386 * t3343;
3430   t3365 = t619 * t3343;
3431   t3368 = t392 * t3343;
3432   t3373 = t1576 * t3343;
3433   t3376 = t2168 * t3343;
3434   t3383 = t145 * t1657;
3435   t3386 = t145 * t3343;
3436   t3393 = t604 * t646;
3437   t3395 = t670 * t1657;
3438   t3398 = -t3349 * t592 / 0.4e1 + t3349 * t614 / 0.4e1 + 0.11e2 / 0.4e1 * t3339 * t3354 + 0.9e1 / 0.4e1 * t3358 * t3359 - 0.9e1 / 0.4e1 * t3358 * t3362 - 0.6e1 * t3339 * t3365 + 0.9e1 / 0.2e1 * t3339 * t3368 + 0.11e2 / 0.4e1 * t3358 * t3368 - 0.15e2 / 0.8e1 * t3358 * t3373 - 0.25e2 / 0.4e1 * t3339 * t3376 - 0.9e1 / 0.4e1 * t590 * t1673 + 0.11e2 / 0.4e1 * t3339 * t3359 - 0.3e1 / 0.2e1 * t590 * t3383 + 0.3e1 / 0.2e1 * t3339 * t3386 - 0.9e1 / 0.8e1 * t611 * t1673 + 0.9e1 / 0.8e1 * t611 * t1658 - 0.3e1 / 0.4e1 * t3393 - 0.3e1 / 0.4e1 * t590 * t3395;
3439   t3400 = t670 * t3343;
3440   t3403 = t1331 * t923;
3441   t3404 = t619 * t3403;
3442   t3407 = t703 * t640;
3443   t3409 = t707 * t640;
3444   t3413 = t123 * t3343;
3445   t3416 = t604 * t654;
3446   t3418 = t619 * t1657;
3447   t3421 = t392 * t1657;
3448   t3428 = t604 * t597;
3449   t3430 = t645 * t1657;
3450   t3433 = t645 * t3343;
3451   t3436 = 0.3e1 / 0.2e1 * t3339 * t3400 - 0.7e1 / 0.8e1 * t122 * t3404 - 0.3e1 / 0.8e1 * t3407 - 0.3e1 / 0.8e1 * t3409 + 0.9e1 / 0.8e1 * t611 * t1665 - 0.11e2 / 0.8e1 * t3358 * t3413 + 0.3e1 / 0.4e1 * t3416 + 0.3e1 * t590 * t3418 - 0.9e1 / 0.4e1 * t590 * t3421 - t997 * t415 / 0.4e1 + t3349 * t632 / 0.4e1 + 0.3e1 / 0.4e1 * t3428 + 0.9e1 / 0.4e1 * t590 * t3430 - 0.11e2 / 0.4e1 * t3339 * t3433 - t606 + t618 + t638 - t642;
3452   t3441 = t121 * t80;
3453   t3451 = t111 * t41;
3454   t3455 = t115 * t41;
3455   t3459 = t123 * t141;
3456   t3462 = t1296 * t41;
3457   t3486 = t3441 * t86 * t51 / 0.4e1 + t418 * t340 / 0.2e1 + t135 * t41 * t1281 / 0.2e1 - t135 * t80 * t3451 / 0.2e1 - t135 * t20 * t3455 / 0.2e1 - t1292 * t51 * t3459 / 0.2e1 + t3462 * t125 / 0.2e1 + t344 * t130 * t340 / 0.2e1 + t959 * t137 / 0.2e1 - t959 * t142 / 0.2e1 - t959 * t146 / 0.2e1 - t1310 * t51 * t340 / 0.2e1 - t347 * t130 * t340 / 0.2e1 - t961 * t137 / 0.2e1 + t961 * t142 / 0.2e1 + t961 * t146 / 0.2e1;
3458   t3487 = t28 * t3486;
3459   t3496 = t3 * t964;
3460   t3513 = -t922 - t929 + t935 + t952 - 0.3e1 / 0.8e1 * t352 * t939 + 0.3e1 / 0.8e1 * t352 * t948 - t3487 * t191 / 0.8e1 + 0.3e1 / 0.8e1 * t352 * t931 + 0.3e1 / 0.2e1 * t72 * t953 - 0.9e1 / 0.8e1 * t72 * t955 - 0.3e1 / 0.16e2 * t3496 * t191 + 0.9e1 / 0.8e1 * t72 * t936 - 0.9e1 / 0.8e1 * t72 * t939 - 0.3e1 / 0.4e1 * t72 * t942 - 0.9e1 / 0.16e2 * t336 * t939 + 0.9e1 / 0.16e2 * t336 * t948 - 0.3e1 / 0.8e1 * t72 * t925 + 0.9e1 / 0.16e2 * t336 * t931;
3461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3462     v4rhosigma3[0] = t3347 + t3398 + t3436 + t3513;
3463 
3464   t3515 = t1779 * t189;
3465   t3519 = t465 * t130;
3466   t3523 = t52 * t2118;
3467   t3526 = t189 * t41;
3468   t3527 = t3526 * t2410;
3469   t3531 = t194 * t41 * t671;
3470   t3532 = t162 * t3531;
3471   t3533 = t3532 / 0.4e1;
3472   t3534 = t1332 * t189;
3473   t3535 = t42 * t3534;
3474   t3538 = t3526 * t2360;
3475   t3541 = t619 * t3515;
3476   t3544 = t392 * t2132;
3477   t3550 = -t636 - t198 - 0.11e2 / 0.8e1 * t122 * t123 * t3515 + 0.3e1 / 0.4e1 * t210 * t123 * t3519 + 0.3e1 / 0.2e1 * t162 * t3523 - t162 * t3527 / 0.4e1 - t3533 - 0.11e2 / 0.4e1 * t162 * t3535 + 0.3e1 / 0.2e1 * t162 * t3538 - 0.7e1 / 0.8e1 * t122 * t3541 - 0.3e1 / 0.2e1 * t162 * t3544 - 0.15e2 / 0.8e1 * t122 * t1576 * t3515;
3478   t3551 = t140 * t3519;
3479   t3554 = t2217 * t41;
3480   t3555 = t140 * t3554;
3481   t3558 = t140 * t2132;
3482   t3564 = t145 * t3554;
3483   t3567 = t145 * t2132;
3484   t3569 = t195 * t688;
3485   t3570 = t162 * t3569;
3486   t3571 = 0.3e1 / 0.4e1 * t3570;
3487   t3572 = t140 * t3315;
3488   t3573 = t162 * t3572;
3489   t3574 = 0.3e1 / 0.4e1 * t3573;
3490   t3575 = t145 * t3315;
3491   t3576 = t162 * t3575;
3492   t3577 = t3576 / 0.2e1;
3493   t3581 = t297 * t130;
3494   t3582 = t658 * t3581;
3495   t3587 = t1001 * t685;
3496   t3588 = 0.3e1 / 0.8e1 * t3587;
3497   t3589 = -0.3e1 / 0.4e1 * t210 * t3551 + 0.11e2 / 0.4e1 * t162 * t3555 - 0.3e1 / 0.2e1 * t162 * t3558 - 0.9e1 / 0.4e1 * t122 * t386 * t3515 + 0.3e1 / 0.2e1 * t162 * t3564 - t162 * t3567 + t3571 - t3574 - t3577 + 0.3e1 / 0.4e1 * t210 * t386 * t3519 + 0.2e1 * t162 * t3582 + t997 * t685 / 0.4e1 + t3588;
3498   t3591 = t52 * t2136;
3499   t3594 = t1379 * t41;
3500   t3595 = t190 * t3594;
3501   t3598 = t2168 * t3554;
3502   t3601 = t1584 * t3554;
3503   t3604 = t1779 * t41;
3504   t3605 = t392 * t3604;
3505   t3612 = t1001 * t676;
3506   t3613 = 0.3e1 / 0.8e1 * t3612;
3507   t3614 = t1001 * t679;
3508   t3615 = 0.3e1 / 0.8e1 * t3614;
3509   t3617 = t194 * t80 * t659;
3510   t3618 = t162 * t3617;
3511   t3619 = t392 * t3315;
3512   t3620 = t162 * t3619;
3513   t3621 = 0.3e1 / 0.4e1 * t3620;
3514   t3622 = t619 * t3554;
3515   t3625 = t392 * t3554;
3516   t3628 = -t162 * t3591 / 0.2e1 + 0.11e2 / 0.4e1 * t162 * t3595 - 0.25e2 / 0.4e1 * t162 * t3598 + 0.15e2 / 0.4e1 * t162 * t3601 + 0.11e2 / 0.4e1 * t611 * t3605 - t997 * t676 / 0.4e1 + t997 * t679 / 0.4e1 - t3613 + t3615 + t3618 - t3621 - 0.6e1 * t162 * t3622 + 0.9e1 / 0.2e1 * t162 * t3625;
3517   t3629 = t140 * t3604;
3518   t3632 = t3307 / 0.2e1;
3519   t3633 = 0.3e1 / 0.2e1 * t3309;
3520   t3634 = 0.3e1 / 0.4e1 * t3313;
3521   t3635 = 0.3e1 / 0.4e1 * t3317;
3522   t3636 = 0.2e1 * t3321;
3523   t3637 = 0.3e1 / 0.4e1 * t3324;
3524   t3638 = 0.3e1 / 0.2e1 * t3326;
3525   t3639 = 0.3e1 / 0.2e1 * t3328;
3526   t3640 = t471 * t1004;
3527   t3641 = 0.3e1 / 0.8e1 * t3640;
3528   t3646 = 0.9e1 / 0.4e1 * t611 * t3629 - t3632 + t3633 - t3634 + t3635 - t3319 + t3636 + t3637 - t3638 - t3639 - t3641 - 0.3e1 / 0.8e1 * t471 * t984 - 0.9e1 / 0.8e1 * t471 * t987;
3529   t3673 = t471 * t1007;
3530   t3674 = 0.3e1 / 0.8e1 * t3673;
3531   t3675 = -0.9e1 / 0.16e2 * t2303 * t484 - 0.3e1 / 0.4e1 * t471 * t973 + 0.9e1 / 0.16e2 * t2303 * t466 + 0.9e1 / 0.8e1 * t471 * t978 - 0.9e1 / 0.8e1 * t471 * t970 + 0.3e1 / 0.4e1 * t475 * t978 - t475 * t984 / 0.4e1 - 0.3e1 / 0.4e1 * t475 * t987 - 0.3e1 / 0.4e1 * t475 * t970 - t475 * t973 / 0.2e1 + 0.3e1 / 0.8e1 * t2207 * t466 + 0.3e1 / 0.8e1 * t611 * t1881 + t3674;
3532   t3676 = t471 * t1010;
3533   t3677 = 0.3e1 / 0.8e1 * t3676;
3534   t3682 = t3 * t996;
3535   t3685 = t3 * t1000;
3536   t3686 = t3685 * t152;
3537   t3687 = 0.3e1 / 0.16e2 * t3686;
3538   t3688 = t475 * t1004;
3539   t3689 = t3688 / 0.4e1;
3540   t3690 = t475 * t1007;
3541   t3691 = t3690 / 0.4e1;
3542   t3692 = t475 * t1010;
3543   t3693 = t3692 / 0.4e1;
3544   t3703 = t3677 + 0.9e1 / 0.16e2 * t2303 * t487 + 0.3e1 / 0.2e1 * t471 * t994 - 0.3e1 / 0.16e2 * t3682 * t152 - t3687 - t3689 + t3691 + t3693 - 0.3e1 / 0.8e1 * t2207 * t484 - 0.3e1 / 0.8e1 * t611 * t1897 + 0.3e1 / 0.8e1 * t2207 * t487 + 0.3e1 / 0.8e1 * t611 * t1868 + t475 * t994;
3545   t3706 = t28 * t3486 * t51;
3546   t3710 = t28 * t964 * t130;
3547   t3716 = t28 * t351 * t194;
3548   t3717 = t3716 * t152;
3549   t3718 = t3717 / 0.8e1;
3550   t3719 = t1001 * t519;
3551   t3720 = t3719 / 0.8e1;
3552   t3721 = 0.3e1 / 0.4e1 * t3330;
3553   t3722 = 0.3e1 / 0.8e1 * t3332;
3554   t3723 = 0.3e1 / 0.4e1 * t3334;
3555   t3724 = 0.3e1 / 0.4e1 * t3336;
3556   t3725 = t3393 / 0.2e1;
3557   t3726 = t3407 / 0.4e1;
3558   t3727 = t3409 / 0.4e1;
3559   t3728 = t3416 / 0.2e1;
3560   t3729 = -t3706 * t152 / 0.8e1 - t3710 * t152 / 0.8e1 - t997 * t519 / 0.8e1 - t3718 - t3720 - t3721 - t3722 + t3723 + t3724 - t3725 - t3726 - t3727 + t3728;
3561   t3730 = t3428 / 0.2e1;
3562   t3731 = t3730 - t606 + t618 + t638 - t642 - t968 - t981 + t982 + t983 - t1003 - t1006 + t1009 + t1012;
3563   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3564     v4rhosigma2lapl[0] = t3550 + t3589 + t3628 + t3646 + t3675 + t3703 + t3729 + t3731;
3565 
3566   t3734 = t182 * t3531;
3567   t3735 = t3734 / 0.4e1;
3568   t3740 = t1001 * t728;
3569   t3741 = 0.3e1 / 0.8e1 * t3740;
3570   t3742 = t1001 * t731;
3571   t3743 = 0.3e1 / 0.8e1 * t3742;
3572   t3744 = t182 * t3617;
3573   t3745 = t182 * t3619;
3574   t3746 = 0.3e1 / 0.4e1 * t3745;
3575   t3751 = t2008 * t41;
3576   t3752 = t392 * t3751;
3577   t3755 = -t636 - t198 - t3735 + 0.3e1 / 0.2e1 * t182 * t3538 - t182 * t3527 / 0.4e1 - t3741 + t3743 + t3744 - t3746 + 0.9e1 / 0.2e1 * t182 * t3625 + 0.11e2 / 0.4e1 * t182 * t3595 + 0.11e2 / 0.4e1 * t611 * t3752;
3578   t3756 = t1576 * t3751;
3579   t3782 = t2008 * t189;
3580   t3786 = -0.15e2 / 0.8e1 * t611 * t3756 - 0.25e2 / 0.4e1 * t182 * t3598 + 0.15e2 / 0.4e1 * t182 * t3601 - t997 * t728 / 0.4e1 + t997 * t731 / 0.4e1 + 0.9e1 / 0.4e1 * t611 * t140 * t3751 - 0.9e1 / 0.4e1 * t611 * t386 * t3751 - 0.6e1 * t182 * t3622 + 0.3e1 / 0.2e1 * t182 * t3564 - t182 * t3567 + t997 * t737 / 0.4e1 - t182 * t3591 / 0.2e1 - 0.7e1 / 0.8e1 * t122 * t619 * t3782;
3581   t3788 = t539 * t130;
3582   t3789 = t140 * t3788;
3583   t3792 = t123 * t3788;
3584   t3806 = t1001 * t737;
3585   t3807 = 0.3e1 / 0.8e1 * t3806;
3586   t3808 = t182 * t3569;
3587   t3809 = 0.3e1 / 0.4e1 * t3808;
3588   t3810 = t182 * t3572;
3589   t3811 = 0.3e1 / 0.4e1 * t3810;
3590   t3812 = t182 * t3575;
3591   t3813 = t3812 / 0.2e1;
3592   t3814 = t386 * t3788;
3593   t3819 = -0.3e1 / 0.4e1 * t210 * t3789 + 0.3e1 / 0.4e1 * t210 * t3792 - 0.11e2 / 0.8e1 * t611 * t123 * t3751 + 0.3e1 / 0.2e1 * t182 * t3523 - 0.11e2 / 0.4e1 * t182 * t3535 + 0.11e2 / 0.4e1 * t182 * t3555 - 0.3e1 / 0.2e1 * t182 * t3558 + t3807 + t3809 - t3811 - t3813 + 0.3e1 / 0.4e1 * t210 * t3814 + 0.2e1 * t182 * t3582;
3594   t3828 = -0.3e1 / 0.2e1 * t182 * t3544 - t3632 + t3633 - t3634 + t3635 - t3319 + t3636 + t3637 - t3638 - t3639 - 0.3e1 / 0.8e1 * t2207 * t562 - 0.3e1 / 0.8e1 * t611 * t2053 + 0.3e1 / 0.8e1 * t2207 * t540;
3595   t3839 = t549 * t1004;
3596   t3840 = t3839 / 0.4e1;
3597   t3841 = t549 * t1007;
3598   t3842 = t3841 / 0.4e1;
3599   t3843 = t549 * t1010;
3600   t3844 = t3843 / 0.4e1;
3601   t3856 = 0.3e1 / 0.8e1 * t611 * t2035 + 0.3e1 / 0.4e1 * t549 * t978 - 0.3e1 / 0.4e1 * t549 * t970 - 0.3e1 / 0.4e1 * t545 * t973 - t3840 + t3842 + t3844 + 0.3e1 / 0.8e1 * t2207 * t565 + 0.3e1 / 0.8e1 * t611 * t2112 + t549 * t994 - 0.3e1 / 0.4e1 * t549 * t987 - t3706 * t172 / 0.8e1 - t3710 * t172 / 0.8e1;
3602   t3859 = t3716 * t172;
3603   t3860 = t3859 / 0.8e1;
3604   t3861 = t1001 * t579;
3605   t3862 = t3861 / 0.8e1;
3606   t3867 = t3685 * t172;
3607   t3868 = 0.3e1 / 0.16e2 * t3867;
3608   t3869 = t545 * t1004;
3609   t3870 = 0.3e1 / 0.8e1 * t3869;
3610   t3871 = t545 * t1007;
3611   t3872 = 0.3e1 / 0.8e1 * t3871;
3612   t3873 = t545 * t1010;
3613   t3874 = 0.3e1 / 0.8e1 * t3873;
3614   t3883 = -t997 * t579 / 0.8e1 - t3860 - t3862 - t549 * t973 / 0.2e1 - t549 * t984 / 0.4e1 - t3868 - t3870 + t3872 + t3874 + 0.9e1 / 0.16e2 * t2303 * t565 + 0.3e1 / 0.2e1 * t545 * t994 - 0.9e1 / 0.8e1 * t545 * t987 - 0.3e1 / 0.16e2 * t3682 * t172;
3615   t3895 = -0.3e1 / 0.8e1 * t545 * t984 - 0.9e1 / 0.16e2 * t2303 * t562 + 0.9e1 / 0.16e2 * t2303 * t540 + 0.9e1 / 0.8e1 * t545 * t978 - 0.9e1 / 0.8e1 * t545 * t970 - t3721 - t3722 + t3723 + t3724 - t3725 - t3726 - t3727 + t3728;
3616   t3896 = t3730 - t606 + t618 + t638 - t642 - t968 - t981 + t982 + t983 - t1033 - t1035 + t1037 + t1039;
3617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3618     v4rhosigma2tau[0] = t3755 + t3786 + t3819 + t3828 + t3856 + t3883 + t3895 + t3896;
3619 
3620   t3899 = t669 * t2410;
3621   t3902 = t2831 * t51;
3622   t3903 = t619 * t3902;
3623   t3906 = t1566 * t41;
3624   t3907 = t392 * t3906;
3625   t3910 = t1576 * t3906;
3626   t3913 = t2168 * t3906;
3627   t3916 = t1584 * t3906;
3628   t3919 = t658 * t3594;
3629   t3922 = t140 * t3906;
3630   t3925 = t379 * t156;
3631   t3929 = t386 * t3906;
3632   t3932 = -t636 - t198 - t775 * t3899 / 0.4e1 - 0.7e1 / 0.8e1 * t122 * t3903 + 0.11e2 / 0.4e1 * t783 * t3907 - 0.15e2 / 0.8e1 * t783 * t3910 - 0.25e2 / 0.4e1 * t775 * t3913 + 0.15e2 / 0.4e1 * t775 * t3916 + 0.11e2 / 0.4e1 * t775 * t3919 + 0.9e1 / 0.4e1 * t783 * t3922 + 0.3e1 / 0.4e1 * t246 * t386 * t3925 - 0.9e1 / 0.4e1 * t783 * t3929;
3633   t3933 = t619 * t3925;
3634   t3936 = t619 * t3906;
3635   t3939 = t392 * t3925;
3636   t3942 = t52 * t2778;
3637   t3945 = t1345 * t41;
3638   t3946 = t52 * t3945;
3639   t3949 = t145 * t3906;
3640   t3958 = t645 * t3925;
3641   t3961 = t645 * t3906;
3642   t3964 = t140 * t3925;
3643   t3969 = t145 * t3925;
3644   t3971 = 0.2e1 * t162 * t3933 - 0.6e1 * t775 * t3936 - 0.3e1 / 0.2e1 * t162 * t3939 - t162 * t3942 / 0.2e1 + 0.3e1 / 0.2e1 * t775 * t3946 + 0.3e1 / 0.2e1 * t775 * t3949 + 0.3e1 / 0.4e1 * t246 * t123 * t3925 - 0.11e2 / 0.8e1 * t783 * t123 * t3906 + 0.3e1 / 0.2e1 * t162 * t3958 - 0.11e2 / 0.4e1 * t775 * t3961 - 0.3e1 / 0.2e1 * t162 * t3964 + 0.11e2 / 0.4e1 * t775 * t3922 - t162 * t3969;
3645   t3977 = t3532 / 0.2e1;
3646   t3978 = 0.3e1 / 0.2e1 * t3570;
3647   t3979 = 0.3e1 / 0.2e1 * t3573;
3648   t3980 = 0.3e1 / 0.4e1 * t3587;
3649   t3981 = 0.3e1 / 0.4e1 * t3612;
3650   t3982 = 0.3e1 / 0.4e1 * t3614;
3651   t3983 = 0.2e1 * t3618;
3652   t3984 = 0.3e1 / 0.2e1 * t3620;
3653   t3985 = t3307 / 0.4e1;
3654   t3986 = 0.3e1 / 0.4e1 * t3309;
3655   t3987 = 0.9e1 / 0.2e1 * t775 * t3907 - 0.3e1 / 0.4e1 * t246 * t3964 - t3977 + t3978 - t3979 - t3576 + t3980 - t3981 + t3982 + t3983 - t3984 - t3985 + t3986;
3656   t3988 = 0.3e1 / 0.8e1 * t3313;
3657   t3989 = 0.3e1 / 0.8e1 * t3317;
3658   t3990 = t3319 / 0.2e1;
3659   t3991 = 0.3e1 / 0.8e1 * t3324;
3660   t3992 = 0.3e1 / 0.4e1 * t3326;
3661   t3993 = 0.3e1 / 0.4e1 * t3328;
3662   t3995 = t28 * t964 * t230;
3663   t4008 = -t3988 + t3989 - t3990 + t3321 + t3991 - t3992 - t3993 - t3995 * t592 / 0.4e1 + t3995 * t614 / 0.4e1 + 0.9e1 / 0.8e1 * t2805 * t1064 - 0.9e1 / 0.8e1 * t2805 * t380 - 0.3e1 / 0.4e1 * t2805 * t1069 - 0.9e1 / 0.16e2 * t2810 * t380;
3664   t4035 = 0.9e1 / 0.16e2 * t2810 * t387 + 0.3e1 / 0.2e1 * t2805 * t1050 - 0.9e1 / 0.8e1 * t2805 * t1052 - 0.3e1 / 0.8e1 * t2805 * t1040 + 0.3e1 / 0.4e1 * t775 * t3430 - 0.3e1 / 0.4e1 * t775 * t1673 - t775 * t3383 / 0.2e1 + 0.3e1 / 0.8e1 * t2858 * t429 + 0.3e1 / 0.8e1 * t783 * t1665 - 0.3e1 / 0.8e1 * t783 * t1673 + 0.3e1 / 0.8e1 * t2858 * t387 + 0.3e1 / 0.8e1 * t783 * t1658;
3665   t4049 = 0.3e1 / 0.4e1 * t3640;
3666   t4050 = 0.3e1 / 0.4e1 * t3673;
3667   t4051 = 0.3e1 / 0.4e1 * t3676;
3668   t4052 = 0.3e1 / 0.8e1 * t3686;
3669   t4053 = t3688 / 0.2e1;
3670   t4054 = t3690 / 0.2e1;
3671   t4055 = t775 * t3418 - 0.3e1 / 0.4e1 * t775 * t3421 - t1105 * t519 / 0.4e1 + t3995 * t632 / 0.4e1 - t775 * t3395 / 0.4e1 - 0.3e1 / 0.8e1 * t2858 * t380 + 0.9e1 / 0.16e2 * t2810 * t429 - t4049 + t4050 + t4051 - t4052 - t4053 + t4054;
3672   t4057 = t3692 / 0.2e1;
3673   t4058 = t3717 / 0.4e1;
3674   t4059 = t3719 / 0.4e1;
3675   t4060 = 0.3e1 / 0.8e1 * t3330;
3676   t4061 = 0.3e1 / 0.16e2 * t3332;
3677   t4062 = 0.3e1 / 0.8e1 * t3334;
3678   t4063 = 0.3e1 / 0.8e1 * t3336;
3679   t4064 = t3393 / 0.4e1;
3680   t4065 = t3407 / 0.8e1;
3681   t4066 = t3409 / 0.8e1;
3682   t4067 = t3416 / 0.4e1;
3683   t4068 = t3428 / 0.4e1;
3684   t4071 = t4057 - t4058 - t4059 - t4060 - t4061 + t4062 + t4063 - t4064 - t4065 - t4066 + t4067 + t4068 - t3487 * t232 / 0.8e1;
3685   t4074 = -0.3e1 / 0.16e2 * t3496 * t232 - t606 + t618 + t638 - t642 - t1043 - t1044 + t1045 + t1055 - t1058 - t1059 + t1060 + t1061;
3686   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3687     v4rhosigmalapl2[0] = t3932 + t3971 + t3987 + t4008 + t4035 + t4055 + t4071 + t4074;
3688 
3689   t4106 = -t636 - t198 - 0.9e1 / 0.16e2 * t849 * t1098 + 0.9e1 / 0.16e2 * t849 * t1101 + 0.9e1 / 0.8e1 * t545 * t1077 - 0.9e1 / 0.8e1 * t545 * t1081 - 0.3e1 / 0.4e1 * t545 * t1084 - 0.3e1 / 0.8e1 * t545 * t1088 + 0.3e1 / 0.2e1 * t545 * t1092 + 0.9e1 / 0.16e2 * t849 * t1073 - 0.9e1 / 0.8e1 * t545 * t1094 - t1105 * t728 / 0.4e1 + t1105 * t731 / 0.4e1 + 0.3e1 / 0.4e1 * t549 * t1077 + 0.3e1 / 0.4e1 * t182 * t3958 + 0.3e1 / 0.4e1 * t182 * t59 * t2118;
3690   t4128 = t2034 * t51;
3691   t4129 = t140 * t4128;
3692   t4138 = t386 * t4128;
3693   t4145 = -0.3e1 / 0.4e1 * t549 * t1081 - 0.3e1 / 0.4e1 * t182 * t3964 - 0.3e1 / 0.4e1 * t182 * t3551 - t549 * t1084 / 0.2e1 + t182 * t829 * t3581 - 0.3e1 / 0.4e1 * t549 * t1094 - 0.3e1 / 0.4e1 * t182 * t3939 - 0.3e1 / 0.4e1 * t182 * t392 * t3519 - 0.3e1 / 0.8e1 * t853 * t1098 - 0.3e1 / 0.8e1 * t857 * t1098 - 0.3e1 / 0.8e1 * t246 * t4129 - 0.3e1 / 0.8e1 * t246 * t3789 + 0.3e1 / 0.8e1 * t853 * t1101 + 0.3e1 / 0.8e1 * t857 * t1101 + 0.3e1 / 0.8e1 * t246 * t4138 + 0.3e1 / 0.8e1 * t246 * t3814 - t182 * t3969 / 0.2e1;
3694   t4162 = t123 * t4128;
3695   t4171 = -t182 * t145 * t3519 / 0.2e1 - t549 * t1088 / 0.4e1 - t182 * t3942 / 0.4e1 - t182 * t58 * t130 * t671 / 0.4e1 + 0.3e1 / 0.8e1 * t853 * t1073 + 0.3e1 / 0.8e1 * t857 * t1073 + 0.3e1 / 0.8e1 * t246 * t4162 + 0.3e1 / 0.8e1 * t246 * t3792 + t1105 * t737 / 0.4e1 + t549 * t1092 + t182 * t3933 - t3735 - t3741 + t3743 + t3744 - t3746 + t3807;
3696   t4172 = t3809 - t3811 - t3813 - t3533 + t3571 - t3574 - t3577 + t3588 - t3613 + t3615 + t3618 - t3621 - t3985 + t3986 - t3988 + t3989 - t3990;
3697   t4188 = t3321 + t3991 - t3992 - t3993 - t28 * t3486 * t58 * t172 / 0.8e1 - t28 * t964 * t156 * t172 / 0.8e1 - t1105 * t579 / 0.8e1 - 0.3e1 / 0.16e2 * t3 * t1104 * t172 - t3840 + t3842 + t3844 - t3860 - t3862 - t3868 - t3870 + t3872;
3698   t4189 = t3874 - t3641 + t3674 + t3677 - t3687 - t3689 + t3691 + t3693 - t3718 - t3720 - t4060 - t4061 + t4062 + t4063 - t4064 - t4065 - t4066;
3699   t4191 = t245 * t80;
3700   t4192 = t28 * t4191;
3701   t4194 = t63 * t51 * t41;
3702   t4198 = t181 * t58;
3703   t4199 = t28 * t4198;
3704   t4202 = t181 * t80;
3705   t4204 = t1087 * t41;
3706   t4208 = t181 * t20;
3707   t4215 = t63 * t58 * t51;
3708   t4255 = t4067 + t4068 - 0.11e2 / 0.8e1 * t4192 * t1332 * t4194 - 0.11e2 / 0.4e1 * t4199 * t3961 + 0.11e2 / 0.4e1 * t28 * t4202 * t1345 * t4204 + 0.3e1 / 0.2e1 * t28 * t4208 * t1351 * t4204 - 0.7e1 / 0.8e1 * t28 * t3441 * t1368 * t4215 + 0.9e1 / 0.2e1 * t28 * t181 * t293 * t1379 * t4204 + 0.11e2 / 0.4e1 * t4199 * t3919 - 0.25e2 / 0.4e1 * t4199 * t3913 + 0.15e2 / 0.4e1 * t28 * t181 * t1441 * t1454 * t4204 + 0.9e1 / 0.4e1 * t4192 * t1345 * t4194 - 0.9e1 / 0.4e1 * t28 * t245 * t293 * t1368 * t4194 - 0.6e1 * t4199 * t3936 + 0.11e2 / 0.4e1 * t28 * t121 * t293 * t1379 * t4215 - 0.15e2 / 0.8e1 * t28 * t121 * t1441 * t1445 * t4215 + 0.3e1 / 0.2e1 * t4199 * t3946;
3709   t4258 = -t4199 * t3899 / 0.4e1 - t606 + t618 + t638 - t642 - t1043 - t1044 + t1045 + t1055 - t1003 - t1006 + t1009 + t1012 - t1033 - t1035 + t1037 + t1039;
3710   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3711     v4rhosigmalapltau[0] = t4106 + t4145 + t4171 + t4172 + t4188 + t4189 + t4255 + t4258;
3712 
3713   t4263 = t3191 * t51;
3714   t4284 = -t636 - t198 + 0.3e1 / 0.2e1 * t876 * t3946 - 0.7e1 / 0.8e1 * t122 * t619 * t4263 + 0.11e2 / 0.4e1 * t876 * t3922 + 0.11e2 / 0.4e1 * t876 * t3919 + 0.11e2 / 0.4e1 * t886 * t3907 - 0.15e2 / 0.8e1 * t886 * t3910 - 0.25e2 / 0.4e1 * t876 * t3913 + 0.15e2 / 0.4e1 * t876 * t3916 + 0.3e1 / 0.2e1 * t182 * t645 * t4128 - 0.3e1 / 0.4e1 * t882 * t4129;
3715   t4315 = 0.9e1 / 0.4e1 * t886 * t3922 - t182 * t145 * t4128 + 0.3e1 / 0.2e1 * t876 * t3949 - 0.11e2 / 0.8e1 * t122 * t123 * t4263 - 0.3e1 / 0.2e1 * t182 * t4129 + 0.3e1 / 0.4e1 * t882 * t4138 - 0.9e1 / 0.4e1 * t886 * t3929 + 0.2e1 * t182 * t619 * t4128 - 0.6e1 * t876 * t3936 - 0.3e1 / 0.2e1 * t182 * t392 * t4128 + 0.9e1 / 0.2e1 * t876 * t3907 - t182 * t52 * t3158 / 0.2e1 - t876 * t3899 / 0.4e1;
3716   t4321 = t3734 / 0.2e1;
3717   t4322 = 0.3e1 / 0.4e1 * t3740;
3718   t4323 = 0.3e1 / 0.4e1 * t3742;
3719   t4324 = 0.2e1 * t3744;
3720   t4325 = 0.3e1 / 0.2e1 * t3745;
3721   t4326 = 0.3e1 / 0.4e1 * t3806;
3722   t4327 = 0.3e1 / 0.2e1 * t3808;
3723   t4328 = 0.3e1 / 0.2e1 * t3810;
3724   t4329 = -0.11e2 / 0.4e1 * t876 * t3961 + 0.3e1 / 0.4e1 * t882 * t4162 - t4321 - t4322 + t4323 + t4324 - t4325 + t4326 + t4327 - t4328 - t3812 - t3985 + t3986;
3725   t4342 = -t3988 + t3989 - t3990 + t3321 + t3991 - t3992 - t3993 + 0.9e1 / 0.16e2 * t3175 * t429 + 0.9e1 / 0.8e1 * t3180 * t1064 - 0.3e1 / 0.4e1 * t3180 * t1069 - 0.9e1 / 0.8e1 * t3180 * t380 + 0.9e1 / 0.16e2 * t3175 * t387 + 0.3e1 / 0.2e1 * t3180 * t1050;
3726   t4370 = -0.9e1 / 0.8e1 * t3180 * t1052 - 0.9e1 / 0.16e2 * t3175 * t380 - 0.3e1 / 0.8e1 * t3180 * t1040 + 0.3e1 / 0.8e1 * t886 * t1665 - t876 * t3383 / 0.2e1 - 0.3e1 / 0.4e1 * t876 * t1673 + 0.3e1 / 0.4e1 * t876 * t3430 + t876 * t3418 - 0.3e1 / 0.4e1 * t876 * t3421 - 0.3e1 / 0.8e1 * t3227 * t380 - 0.3e1 / 0.8e1 * t886 * t1673 - t28 * t964 * t63 * t579 / 0.4e1;
3727   t4372 = t28 * t964 * t258;
3728   t4387 = t3839 / 0.2e1;
3729   t4388 = t3841 / 0.2e1;
3730   t4389 = t3843 / 0.2e1;
3731   t4390 = t3859 / 0.4e1;
3732   t4391 = t3861 / 0.4e1;
3733   t4392 = 0.3e1 / 0.8e1 * t3867;
3734   t4393 = t4372 * t632 / 0.4e1 - t876 * t3395 / 0.4e1 + 0.3e1 / 0.8e1 * t3227 * t387 + 0.3e1 / 0.8e1 * t886 * t1658 - t4372 * t592 / 0.4e1 + t4372 * t614 / 0.4e1 + 0.3e1 / 0.8e1 * t3227 * t429 - t4387 + t4388 + t4389 - t4390 - t4391 - t4392;
3735   t4395 = 0.3e1 / 0.4e1 * t3869;
3736   t4396 = 0.3e1 / 0.4e1 * t3871;
3737   t4397 = 0.3e1 / 0.4e1 * t3873;
3738   t4400 = -t4395 + t4396 + t4397 - t4060 - t4061 + t4062 + t4063 - t4064 - t4065 - t4066 + t4067 + t4068 - t3487 * t260 / 0.8e1;
3739   t4403 = -0.3e1 / 0.16e2 * t3496 * t260 - t606 + t618 + t638 - t642 - t1043 - t1044 + t1045 + t1055 - t1126 - t1127 + t1128 + t1129;
3740   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3741     v4rhosigmatau2[0] = t4284 + t4315 + t4329 + t4342 + t4370 + t4393 + t4400 + t4403;
3742 
3743   t4416 = t28 * t29 * t1132;
3744   t4421 = t145 * t1867;
3745   t4426 = t670 * t1867;
3746   t4431 = -t636 - t198 - 0.3e1 / 0.4e1 * t3532 + 0.9e1 / 0.4e1 * t3570 - 0.9e1 / 0.4e1 * t3573 - 0.3e1 / 0.2e1 * t3576 + 0.9e1 / 0.8e1 * t3587 - 0.9e1 / 0.8e1 * t3612 + 0.9e1 / 0.8e1 * t3614 + 0.3e1 * t3618 - 0.9e1 / 0.4e1 * t3620 - t4416 * t3340 / 0.4e1 - 0.11e2 / 0.4e1 * t4416 * t3433 - 0.3e1 / 0.2e1 * t775 * t4421 + 0.3e1 / 0.2e1 * t4416 * t3386 - 0.3e1 / 0.4e1 * t775 * t4426 + 0.3e1 / 0.2e1 * t4416 * t3400;
3747   t4432 = t1331 * t1132;
3748   t4433 = t619 * t4432;
3749   t4439 = t28 * t77 * t1132;
3750   t4446 = t619 * t1867;
3751   t4451 = t392 * t1867;
3752   t4455 = t28 * t1156 * t230;
3753   t4470 = t123 * t4432;
3754   t4475 = t645 * t1867;
3755   t4478 = -0.7e1 / 0.8e1 * t122 * t4433 - 0.9e1 / 0.8e1 * t783 * t1897 + 0.9e1 / 0.4e1 * t4439 * t3359 + 0.9e1 / 0.8e1 * t783 * t1868 - 0.9e1 / 0.4e1 * t4439 * t3362 + 0.3e1 * t775 * t4446 - 0.6e1 * t4416 * t3365 - 0.9e1 / 0.4e1 * t775 * t4451 - t4455 * t592 / 0.4e1 + t4455 * t614 / 0.4e1 + 0.11e2 / 0.4e1 * t4416 * t3354 + 0.11e2 / 0.4e1 * t4439 * t3368 - 0.15e2 / 0.8e1 * t4439 * t3373 - 0.25e2 / 0.4e1 * t4416 * t3376 + 0.15e2 / 0.4e1 * t4416 * t3344 - 0.11e2 / 0.8e1 * t122 * t4470 + 0.9e1 / 0.8e1 * t783 * t1881 + 0.9e1 / 0.4e1 * t775 * t4475;
3756   t4507 = 0.9e1 / 0.2e1 * t4416 * t3368 - t1200 * t519 / 0.4e1 + t4455 * t632 / 0.4e1 - 0.9e1 / 0.4e1 * t775 * t1897 + 0.11e2 / 0.4e1 * t4416 * t3359 - 0.9e1 / 0.8e1 * t3640 + 0.9e1 / 0.8e1 * t3673 + 0.9e1 / 0.8e1 * t3676 - 0.9e1 / 0.16e2 * t3686 - 0.3e1 / 0.4e1 * t3688 + 0.3e1 / 0.4e1 * t3690 + 0.3e1 / 0.4e1 * t3692 - 0.3e1 / 0.8e1 * t3717 - 0.3e1 / 0.8e1 * t3719 - 0.9e1 / 0.16e2 * t336 * t1138 + 0.9e1 / 0.16e2 * t336 * t1142 + 0.3e1 / 0.2e1 * t72 * t1145 - 0.9e1 / 0.8e1 * t72 * t1147;
3757   t4514 = t86 * t58;
3758   t4522 = t161 * t80;
3759   t4525 = t161 * t20;
3760   t4528 = t1292 * t58;
3761   t4554 = t3441 * t4514 / 0.4e1 + t474 * t340 / 0.2e1 + t161 * t41 * t1281 / 0.2e1 - t4522 * t3451 / 0.2e1 - t4525 * t3455 / 0.2e1 - t4528 * t3459 / 0.2e1 + t3462 * t152 / 0.2e1 + t344 * t156 * t340 / 0.2e1 + t1151 * t137 / 0.2e1 - t1151 * t142 / 0.2e1 - t1151 * t146 / 0.2e1 - t1310 * t58 * t340 / 0.2e1 - t347 * t156 * t340 / 0.2e1 - t1153 * t137 / 0.2e1 + t1153 * t142 / 0.2e1 + t1153 * t146 / 0.2e1;
3762   t4555 = t28 * t4554;
3763   t4562 = t3 * t1156;
3764   t4571 = 0.3e1 / 0.8e1 * t352 * t1165 - 0.3e1 / 0.8e1 * t352 * t1138 + 0.3e1 / 0.8e1 * t352 * t1142 - t4555 * t232 / 0.8e1 + 0.9e1 / 0.16e2 * t336 * t1165 + 0.9e1 / 0.8e1 * t72 * t1168 - 0.3e1 / 0.16e2 * t4562 * t232 - 0.9e1 / 0.8e1 * t72 * t1138 - 0.3e1 / 0.4e1 * t72 * t1162 - 0.3e1 / 0.8e1 * t72 * t1134 - t606 + t618 + t638 - t642 - t1171 - t1172 + t1173 + t1174;
3765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3766     v4rholapl3[0] = t4431 + t4478 + t4507 + t4571;
3767 
3768   t4577 = t230 * t293;
3769   t4582 = t2831 * t41;
3770   t4600 = t230 * t41;
3771   t4604 = -t636 - t198 + 0.11e2 / 0.4e1 * t783 * t3752 - 0.15e2 / 0.8e1 * t783 * t3756 - 0.25e2 / 0.4e1 * t182 * t4577 * t1445 * t41 + 0.15e2 / 0.4e1 * t182 * t1584 * t4582 - t1200 * t728 / 0.4e1 + t1200 * t731 / 0.4e1 - 0.6e1 * t182 * t231 * t1368 * t41 + 0.9e1 / 0.2e1 * t182 * t392 * t4582 + 0.11e2 / 0.4e1 * t182 * t231 * t3594 + 0.3e1 / 0.2e1 * t182 * t4600 * t2360;
3772   t4612 = t465 * t156;
3773   t4622 = t2008 * t230;
3774   t4623 = t386 * t4622;
3775   t4631 = t123 * t4622;
3776   t4634 = t539 * t156;
3777   t4641 = t619 * t4622;
3778   t4647 = -t182 * t4600 * t2410 / 0.4e1 + 0.2e1 * t182 * t829 * t297 * t156 - 0.3e1 / 0.2e1 * t182 * t392 * t4612 + 0.11e2 / 0.4e1 * t182 * t140 * t4582 - 0.3e1 / 0.2e1 * t182 * t140 * t4612 - 0.9e1 / 0.4e1 * t122 * t4623 + 0.3e1 / 0.2e1 * t182 * t145 * t4582 - t182 * t145 * t4612 - 0.11e2 / 0.8e1 * t122 * t4631 + 0.3e1 / 0.4e1 * t246 * t123 * t4634 - t182 * t59 * t2778 / 0.2e1 - 0.7e1 / 0.8e1 * t122 * t4641 - 0.3e1 / 0.4e1 * t246 * t140 * t4634;
3779   t4657 = t140 * t4622;
3780   t4665 = 0.3e1 / 0.2e1 * t182 * t59 * t359 * t156 - 0.11e2 / 0.4e1 * t182 * t235 * t1332 * t41 + 0.9e1 / 0.4e1 * t122 * t4657 + t1200 * t737 / 0.4e1 + 0.3e1 / 0.4e1 * t246 * t386 * t4634 - t3735 - t3741 + t3743 + t3744 - t3746 + t3807 + t3809 - t3811;
3781   t4672 = -t3813 - t3977 + t3978 - t3979 - t3576 + t3980 - t3981 + t3982 + t3983 - t3984 - t549 * t1182 / 0.2e1 + 0.3e1 / 0.8e1 * t2858 * t540 + 0.3e1 / 0.8e1 * t783 * t2035;
3782   t4703 = -0.3e1 / 0.8e1 * t783 * t2053 + 0.3e1 / 0.8e1 * t2858 * t565 + 0.3e1 / 0.8e1 * t783 * t2112 + t549 * t1194 - 0.3e1 / 0.4e1 * t549 * t1196 - t28 * t4554 * t58 * t172 / 0.8e1 + 0.3e1 / 0.4e1 * t549 * t1175 - 0.3e1 / 0.4e1 * t549 * t1179 + 0.9e1 / 0.16e2 * t2810 * t565 + 0.3e1 / 0.2e1 * t545 * t1194 - 0.9e1 / 0.8e1 * t545 * t1196 - 0.3e1 / 0.16e2 * t3 * t1199 * t172 - 0.3e1 / 0.4e1 * t545 * t1182;
3783   t4724 = 0.9e1 / 0.16e2 * t2810 * t540 - 0.3e1 / 0.8e1 * t545 * t1187 - 0.9e1 / 0.16e2 * t2810 * t562 + 0.9e1 / 0.8e1 * t545 * t1175 - 0.9e1 / 0.8e1 * t545 * t1179 - t28 * t1156 * t156 * t172 / 0.8e1 - t1200 * t579 / 0.8e1 - t549 * t1187 / 0.4e1 - 0.3e1 / 0.8e1 * t2858 * t562 - t3840 + t3842 + t3844 - t3860;
3784   t4726 = -t3862 - t3868 - t3870 + t3872 + t3874 - t4049 + t4050 + t4051 - t4052 - t4053 + t4054 + t4057 - t4058;
3785   t4727 = -t4059 - t606 + t618 + t638 - t642 - t1058 - t1059 + t1060 + t1061 - t1033 - t1035 + t1037 + t1039;
3786   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3787     v4rholapl2tau[0] = t4604 + t4647 + t4665 + t4672 + t4703 + t4724 + t4726 + t4727;
3788 
3789   t4733 = t1332 * t58;
3790   t4751 = t465 * t176;
3791   t4760 = -t636 - t198 - t876 * t818 * t2410 / 0.4e1 - 0.11e2 / 0.4e1 * t876 * t42 * t4733 - 0.25e2 / 0.4e1 * t876 * t2168 * t3604 + 0.15e2 / 0.4e1 * t876 * t1584 * t3604 + 0.11e2 / 0.4e1 * t876 * t829 * t3594 + 0.11e2 / 0.4e1 * t886 * t3605 - 0.15e2 / 0.8e1 * t886 * t1576 * t3604 + 0.3e1 / 0.2e1 * t182 * t645 * t4751 - 0.3e1 / 0.2e1 * t182 * t392 * t4751 + 0.9e1 / 0.2e1 * t876 * t3605;
3792   t4761 = t140 * t4751;
3793   t4781 = t3191 * t58;
3794   t4782 = t619 * t4781;
3795   t4797 = -0.3e1 / 0.4e1 * t882 * t4761 + 0.9e1 / 0.4e1 * t886 * t3629 - 0.3e1 / 0.2e1 * t182 * t4761 + 0.11e2 / 0.4e1 * t876 * t3629 - t182 * t145 * t4751 + 0.3e1 / 0.2e1 * t876 * t145 * t3604 - t182 * t59 * t3158 / 0.2e1 + 0.3e1 / 0.2e1 * t876 * t59 * t3945 - 0.7e1 / 0.8e1 * t122 * t4782 + 0.3e1 / 0.4e1 * t882 * t386 * t4751 - 0.9e1 / 0.4e1 * t886 * t386 * t3604 + 0.2e1 * t182 * t619 * t4751 - 0.6e1 * t876 * t619 * t3604;
3796   t4799 = t123 * t4781;
3797   t4805 = -0.11e2 / 0.8e1 * t122 * t4799 + 0.3e1 / 0.4e1 * t882 * t123 * t4751 - t4321 - t4322 + t4323 + t4324 - t4325 + t4326 + t4327 - t4328 - t3812 - t3533 + t3571;
3798   t4811 = t28 * t1156 * t258;
3799   t4821 = -t3574 - t3577 + t3588 - t3613 + t3615 + t3618 - t3621 - t28 * t1156 * t63 * t579 / 0.4e1 + t4811 * t632 / 0.4e1 + 0.3e1 / 0.8e1 * t3227 * t487 + 0.3e1 / 0.8e1 * t886 * t1868 + t876 * t4446 - 0.3e1 / 0.4e1 * t876 * t4451;
3800   t4848 = -0.3e1 / 0.8e1 * t3227 * t484 - 0.3e1 / 0.8e1 * t886 * t1897 + 0.9e1 / 0.16e2 * t3175 * t466 + 0.9e1 / 0.8e1 * t3180 * t1224 - 0.9e1 / 0.8e1 * t3180 * t1212 - 0.9e1 / 0.16e2 * t3175 * t484 - 0.9e1 / 0.8e1 * t3180 * t484 - 0.3e1 / 0.4e1 * t3180 * t1219 - 0.3e1 / 0.8e1 * t3180 * t1203 + 0.9e1 / 0.16e2 * t3175 * t487 + 0.3e1 / 0.2e1 * t3180 * t1210 - t4811 * t592 / 0.4e1;
3801   t4867 = t4811 * t614 / 0.4e1 - 0.3e1 / 0.4e1 * t876 * t1897 - t876 * t4421 / 0.2e1 + 0.3e1 / 0.8e1 * t3227 * t466 + 0.3e1 / 0.8e1 * t886 * t1881 + 0.3e1 / 0.4e1 * t876 * t4475 - t876 * t4426 / 0.4e1 - t4555 * t260 / 0.8e1 - 0.3e1 / 0.16e2 * t4562 * t260 - t4387 + t4388 + t4389 - t4390;
3802   t4869 = -t4391 - t4392 - t4395 + t4396 + t4397 - t3641 + t3674 + t3677 - t3687 - t3689 + t3691 + t3693 - t3718;
3803   t4870 = -t3720 - t606 + t618 + t638 - t642 - t1003 - t1006 + t1009 + t1012 - t1126 - t1127 + t1128 + t1129;
3804   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3805     v4rholapltau2[0] = t4760 + t4797 + t4805 + t4821 + t4848 + t4867 + t4869 + t4870;
3806 
3807   t4883 = t28 * t29 * t1227;
3808   t4893 = t28 * t77 * t1227;
3809   t4899 = -t636 - t198 - 0.3e1 / 0.4e1 * t3734 - 0.9e1 / 0.8e1 * t3740 + 0.9e1 / 0.8e1 * t3742 + 0.3e1 * t3744 - 0.9e1 / 0.4e1 * t3745 + 0.9e1 / 0.8e1 * t3806 + 0.9e1 / 0.4e1 * t3808 - 0.9e1 / 0.4e1 * t3810 - 0.3e1 / 0.2e1 * t3812 + 0.3e1 / 0.2e1 * t4883 * t3400 - t4883 * t3340 / 0.4e1 + 0.9e1 / 0.8e1 * t886 * t2112 + 0.9e1 / 0.8e1 * t886 * t2035 - 0.11e2 / 0.8e1 * t4893 * t3413 + 0.9e1 / 0.4e1 * t876 * t645 * t2034;
3810   t4907 = t28 * t1262 * t258;
3811   t4931 = t28 * t1262 * t63;
3812   t4942 = -0.15e2 / 0.8e1 * t4893 * t3373 - 0.25e2 / 0.4e1 * t4883 * t3376 + 0.15e2 / 0.4e1 * t4883 * t3344 - t4907 * t592 / 0.4e1 + t4907 * t614 / 0.4e1 + 0.9e1 / 0.4e1 * t4893 * t3359 - 0.9e1 / 0.4e1 * t4893 * t3362 - 0.6e1 * t4883 * t3365 + 0.9e1 / 0.2e1 * t4883 * t3368 + 0.11e2 / 0.4e1 * t4883 * t3354 + 0.11e2 / 0.4e1 * t4893 * t3368 + 0.3e1 * t876 * t619 * t2034 - 0.9e1 / 0.4e1 * t876 * t392 * t2034 - t4931 * t579 / 0.4e1 + t4907 * t632 / 0.4e1 - 0.11e2 / 0.4e1 * t4883 * t3433 - 0.9e1 / 0.4e1 * t876 * t2053 + 0.11e2 / 0.4e1 * t4883 * t3359;
3813   t4953 = t619 * t1331 * t1227;
3814   t4964 = t86 * t63;
3815   t4976 = t1292 * t63;
3816   t5002 = t3441 * t4964 / 0.4e1 + t548 * t340 / 0.2e1 + t181 * t41 * t1281 / 0.2e1 - t4202 * t3451 / 0.2e1 - t4208 * t3455 / 0.2e1 - t4976 * t3459 / 0.2e1 + t3462 * t172 / 0.2e1 + t344 * t176 * t340 / 0.2e1 + t1257 * t137 / 0.2e1 - t1257 * t142 / 0.2e1 - t1257 * t146 / 0.2e1 - t1310 * t63 * t340 / 0.2e1 - t347 * t176 * t340 / 0.2e1 - t1259 * t137 / 0.2e1 + t1259 * t142 / 0.2e1 + t1259 * t146 / 0.2e1;
3817   t5025 = -0.3e1 / 0.2e1 * t876 * t145 * t2034 + 0.3e1 / 0.2e1 * t4883 * t3386 - 0.3e1 / 0.4e1 * t876 * t670 * t2034 - 0.7e1 / 0.8e1 * t122 * t4953 - 0.9e1 / 0.8e1 * t886 * t2053 - 0.3e1 / 0.8e1 * t352 * t1236 + 0.3e1 / 0.8e1 * t352 * t1248 + 0.9e1 / 0.8e1 * t72 * t1233 - t28 * t5002 * t260 / 0.8e1 + 0.3e1 / 0.8e1 * t352 * t1229 + 0.3e1 / 0.2e1 * t72 * t1251 - 0.9e1 / 0.8e1 * t72 * t1253 - 0.3e1 / 0.16e2 * t3 * t1262 * t260 - 0.9e1 / 0.8e1 * t72 * t1236 - 0.3e1 / 0.4e1 * t72 * t1239 - 0.3e1 / 0.8e1 * t72 * t1242 - 0.9e1 / 0.16e2 * t336 * t1236 + 0.9e1 / 0.16e2 * t336 * t1248;
3818   t5037 = 0.9e1 / 0.16e2 * t336 * t1229 - 0.3e1 / 0.4e1 * t3839 + 0.3e1 / 0.4e1 * t3841 + 0.3e1 / 0.4e1 * t3843 - 0.3e1 / 0.8e1 * t3859 - 0.3e1 / 0.8e1 * t3861 - 0.9e1 / 0.16e2 * t3867 - 0.9e1 / 0.8e1 * t3869 + 0.9e1 / 0.8e1 * t3871 + 0.9e1 / 0.8e1 * t3873 - t606 + t618 + t638 - t642 - t1266 - t1267 + t1268 + t1269;
3819   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3820     v4rhotau3[0] = t4899 + t4942 + t5025 + t5037;
3821 
3822   t5039 = t189 * t189;
3823   t5040 = t5039 * t80;
3824   t5041 = t5040 * t1345;
3825   t5044 = t5039 * t20;
3826   t5048 = t194 * t194;
3827   t5049 = t5048 * t80;
3828   t5052 = 0.3e1 / 0.4e1 * t30 * t5049 * t111;
3829   t5058 = 0.3e1 / 0.8e1 * t78 * t5049 * t86;
3830   t5062 = t5048 * t20;
3831   t5065 = 0.3e1 / 0.4e1 * t30 * t5062 * t115;
3832   t5071 = 0.3e1 / 0.4e1 * t30 * t5062 * t86;
3833   t5072 = t5039 * t1441;
3834   t5081 = t5039 * t293;
3835   t5085 = t5040 * t1368;
3836   t5088 = t5081 * t1379;
3837   t5099 = -t198 + 0.11e2 / 0.4e1 * t30 * t5041 + 0.3e1 / 0.2e1 * t30 * t5044 * t1351 + t5052 + 0.3e1 / 0.2e1 * t30 * t5044 * t1345 - t5058 - 0.11e2 / 0.8e1 * t78 * t5040 * t1332 + t5065 - 0.11e2 / 0.4e1 * t30 * t5044 * t1332 - t5071 + 0.15e2 / 0.4e1 * t30 * t5072 * t1454 + 0.11e2 / 0.4e1 * t30 * t5040 * t1379 + 0.9e1 / 0.4e1 * t78 * t5041 - 0.9e1 / 0.4e1 * t78 * t5081 * t1368 - 0.6e1 * t30 * t5085 + 0.9e1 / 0.2e1 * t30 * t5088 + 0.11e2 / 0.4e1 * t78 * t5088 - 0.15e2 / 0.8e1 * t78 * t5072 * t1445 - 0.25e2 / 0.4e1 * t30 * t5081 * t1445;
3838   t5103 = t611 * t2196;
3839   t5105 = t604 * t970;
3840   t5107 = t604 * t987;
3841   t5109 = t604 * t994;
3842   t5111 = t997 * t640;
3843   t5113 = t611 * t2223;
3844   t5115 = t611 * t2269;
3845   t5117 = t604 * t973;
3846   t5119 = t604 * t978;
3847   t5121 = t604 * t984;
3848   t5130 = t603 * t340 / 0.2e1;
3849   t5145 = t344 * t194 * t340 / 0.2e1;
3850   t5146 = t344 * t189;
3851   t5153 = t75 * t964;
3852   t5159 = t347 * t194 * t340 / 0.2e1;
3853   t5160 = t347 * t189;
3854   t5167 = t610 * t1275 / 0.4e1 + t5130 + t589 * t1281 / 0.2e1 - t589 * t1284 / 0.2e1 - t589 * t1287 / 0.2e1 - t1292 * t189 * t1275 / 0.2e1 + t1296 * t189 * t1275 / 0.2e1 + t5145 + t5146 * t1281 / 0.2e1 - t5146 * t1284 / 0.2e1 - t5146 * t1287 / 0.2e1 - t5153 * t51 * t340 / 0.2e1 - t5159 - t5160 * t1281 / 0.2e1 + t5160 * t1284 / 0.2e1 + t5160 * t1287 / 0.2e1;
3855   t5168 = t28 * t5167;
3856   t5176 = -t30 * t5044 * t1368 / 0.4e1 + 0.9e1 / 0.4e1 * t5103 - 0.9e1 / 0.2e1 * t5105 - 0.9e1 / 0.2e1 * t5107 + 0.6e1 * t5109 - 0.5e1 / 0.8e1 * t5111 - 0.9e1 / 0.4e1 * t5113 + 0.9e1 / 0.4e1 * t5115 - 0.3e1 * t5117 + 0.9e1 / 0.2e1 * t5119 - 0.3e1 / 0.2e1 * t5121 - 0.5e1 / 0.8e1 * t965 * t939 + 0.5e1 / 0.8e1 * t965 * t948 - t5168 * t191 / 0.8e1 - 0.7e1 / 0.8e1 * t78 * t5085 + 0.5e1 / 0.8e1 * t965 * t931 - t921 - t928 / 0.2e1 + t934 + t951;
3857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3858     v4sigma4[0] = t5099 + t5176;
3859 
3860   t5177 = t162 * t3312;
3861   t5178 = 0.9e1 / 0.4e1 * t5177;
3862   t5179 = t145 * t3311;
3863   t5180 = t162 * t5179;
3864   t5181 = 0.3e1 / 0.2e1 * t5180;
3865   t5182 = t465 * t194;
3866   t5184 = t210 * t123 * t5182;
3867   t5185 = 0.9e1 / 0.8e1 * t5184;
3868   t5186 = t392 * t3311;
3869   t5187 = t162 * t5186;
3870   t5188 = 0.9e1 / 0.4e1 * t5187;
3871   t5189 = t140 * t5182;
3872   t5190 = t210 * t5189;
3873   t5191 = 0.9e1 / 0.8e1 * t5190;
3874   t5193 = t210 * t386 * t5182;
3875   t5194 = 0.9e1 / 0.8e1 * t5193;
3876   t5195 = t297 * t194;
3877   t5196 = t658 * t5195;
3878   t5197 = t162 * t5196;
3879   t5198 = 0.3e1 * t5197;
3880   t5199 = t359 * t194;
3881   t5200 = t52 * t5199;
3882   t5201 = t162 * t5200;
3883   t5202 = 0.9e1 / 0.4e1 * t5201;
3884   t5204 = t52 * t283 * t194;
3885   t5205 = t162 * t5204;
3886   t5206 = 0.3e1 / 0.4e1 * t5205;
3887   t5207 = -t198 - t5178 - t5181 + t5185 - t5188 - t5191 + t5194 + t5198 + t5202 - t5206 + t5052 - t5058 + t5065;
3888   t5220 = t140 * t3403;
3889   t5223 = t145 * t3403;
3890   t5226 = t924 * t1332;
3891   t5229 = t924 * t1345;
3892   t5232 = t924 * t1368;
3893   t5237 = -t5071 + 0.11e2 / 0.4e1 * t3358 * t1794 - 0.5e1 / 0.8e1 * t3349 * t484 + 0.5e1 / 0.8e1 * t3349 * t487 - 0.9e1 / 0.4e1 * t3358 * t1812 - 0.11e2 / 0.8e1 * t3358 * t1817 + 0.5e1 / 0.8e1 * t3349 * t466 + 0.11e2 / 0.4e1 * t162 * t5220 + 0.3e1 / 0.2e1 * t162 * t5223 - 0.11e2 / 0.4e1 * t162 * t5226 + 0.3e1 / 0.2e1 * t162 * t5229 - t162 * t5232 / 0.4e1 - 0.6e1 * t162 * t3404;
3894   t5239 = t392 * t3403;
3895   t5244 = t930 * t1379;
3896   t5247 = t2168 * t3403;
3897   t5250 = t1584 * t3403;
3898   t5253 = 0.9e1 / 0.8e1 * t5103;
3899   t5254 = 0.9e1 / 0.4e1 * t5105;
3900   t5255 = 0.9e1 / 0.4e1 * t5107;
3901   t5256 = 0.3e1 * t5109;
3902   t5258 = t28 * t5167 * t51;
3903   t5262 = t28 * t964 * t194;
3904   t5263 = t5262 * t152;
3905   t5264 = t5263 / 0.4e1;
3906   t5269 = 0.9e1 / 0.2e1 * t162 * t5239 + 0.9e1 / 0.4e1 * t3358 * t1780 + 0.11e2 / 0.4e1 * t162 * t5244 - 0.25e2 / 0.4e1 * t162 * t5247 + 0.15e2 / 0.4e1 * t162 * t5250 + t5253 - t5254 - t5255 + t5256 - t5258 * t152 / 0.8e1 - t5264 - 0.7e1 / 0.8e1 * t3358 * t1871 - 0.15e2 / 0.8e1 * t3358 * t1797;
3907   t5270 = 0.3e1 / 0.8e1 * t5111;
3908   t5271 = 0.9e1 / 0.8e1 * t5113;
3909   t5272 = 0.9e1 / 0.8e1 * t5115;
3910   t5273 = 0.3e1 / 0.2e1 * t5117;
3911   t5274 = 0.9e1 / 0.4e1 * t5119;
3912   t5275 = 0.3e1 / 0.4e1 * t5121;
3913   t5276 = -t5270 - t5271 + t5272 - t5273 + t5274 - t5275 - t922 - t929 + t935 + t952 - t1003 - t1006 + t1009 + t1012;
3914   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3915     v4sigma3lapl[0] = t5207 + t5237 + t5269 + t5276;
3916 
3917   t5278 = t182 * t3312;
3918   t5279 = 0.9e1 / 0.4e1 * t5278;
3919   t5280 = t182 * t5179;
3920   t5281 = 0.3e1 / 0.2e1 * t5280;
3921   t5282 = t182 * t5204;
3922   t5283 = 0.3e1 / 0.4e1 * t5282;
3923   t5284 = t539 * t194;
3924   t5285 = t123 * t5284;
3925   t5286 = t210 * t5285;
3926   t5287 = 0.9e1 / 0.8e1 * t5286;
3927   t5288 = t182 * t5200;
3928   t5289 = 0.9e1 / 0.4e1 * t5288;
3929   t5290 = t140 * t5284;
3930   t5291 = t210 * t5290;
3931   t5292 = 0.9e1 / 0.8e1 * t5291;
3932   t5293 = t386 * t5284;
3933   t5294 = t210 * t5293;
3934   t5295 = 0.9e1 / 0.8e1 * t5294;
3935   t5296 = t182 * t5196;
3936   t5297 = 0.3e1 * t5296;
3937   t5298 = t182 * t5186;
3938   t5299 = 0.9e1 / 0.4e1 * t5298;
3939   t5300 = -t198 - t5279 - t5281 - t5283 + t5287 + t5289 - t5292 + t5295 + t5297 - t5299 + t5052 - t5058 + t5065;
3940   t5325 = -t5071 + 0.5e1 / 0.8e1 * t3349 * t540 + 0.11e2 / 0.4e1 * t182 * t5220 + 0.3e1 / 0.2e1 * t182 * t5223 - 0.11e2 / 0.8e1 * t3358 * t2029 - 0.11e2 / 0.4e1 * t182 * t5226 + 0.3e1 / 0.2e1 * t182 * t5229 - t182 * t5232 / 0.4e1 - 0.9e1 / 0.4e1 * t3358 * t2062 - 0.6e1 * t182 * t3404 + 0.9e1 / 0.2e1 * t182 * t5239 + 0.11e2 / 0.4e1 * t182 * t5244 + 0.11e2 / 0.4e1 * t3358 * t2017;
3941   t5337 = t5262 * t172;
3942   t5338 = t5337 / 0.4e1;
3943   t5345 = -0.15e2 / 0.8e1 * t3358 * t2020 - 0.25e2 / 0.4e1 * t182 * t5247 + 0.15e2 / 0.4e1 * t182 * t5250 + 0.9e1 / 0.4e1 * t3358 * t2009 - t5258 * t172 / 0.8e1 - t5338 - 0.7e1 / 0.8e1 * t3358 * t2014 - 0.5e1 / 0.8e1 * t3349 * t562 + 0.5e1 / 0.8e1 * t3349 * t565 + t5253 - t5254 - t5255 + t5256;
3944   t5346 = -t5270 - t5271 + t5272 - t5273 + t5274 - t5275 - t922 - t929 + t935 + t952 - t1033 - t1035 + t1037 + t1039;
3945   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3946     v4sigma3tau[0] = t5300 + t5325 + t5345 + t5346;
3947 
3948   t5358 = -t198 - 0.3e1 * t5177 - 0.2e1 * t5180 + 0.3e1 / 0.2e1 * t5184 - 0.3e1 * t5187 - 0.3e1 / 0.2e1 * t5190 + 0.3e1 / 0.2e1 * t5193 + 0.4e1 * t5197 + 0.3e1 * t5201 - t5205 - t5168 * t232 / 0.8e1 + t5052 - t5058 + t5065 - t5071;
3949   t5359 = t199 * t1368;
3950   t5362 = t190 * t1379;
3951   t5365 = t392 * t2217;
3952   t5368 = t775 * t2223;
3953   t5369 = 0.3e1 / 0.4e1 * t5368;
3954   t5370 = t145 * t2195;
3955   t5371 = t775 * t5370;
3956   t5372 = t5371 / 0.2e1;
3957   t5373 = t783 * t2269;
3958   t5374 = 0.3e1 / 0.8e1 * t5373;
3959   t5375 = t645 * t2195;
3960   t5376 = t775 * t5375;
3961   t5377 = 0.3e1 / 0.4e1 * t5376;
3962   t5378 = t392 * t2195;
3963   t5379 = t775 * t5378;
3964   t5380 = 0.3e1 / 0.4e1 * t5379;
3965   t5385 = t783 * t2223;
3966   t5386 = 0.3e1 / 0.8e1 * t5385;
3967   t5389 = t783 * t2196;
3968   t5390 = 0.3e1 / 0.8e1 * t5389;
3969   t5391 = t619 * t2195;
3970   t5392 = t775 * t5391;
3971   t5393 = t195 * t283;
3972   t5394 = t775 * t5393;
3973   t5395 = t5394 / 0.4e1;
3974   t5398 = -t775 * t5359 / 0.4e1 + 0.11e2 / 0.4e1 * t775 * t5362 + 0.11e2 / 0.4e1 * t783 * t5365 - t5369 - t5372 + t5374 + t5377 - t5380 + 0.5e1 / 0.8e1 * t3995 * t429 - 0.5e1 / 0.8e1 * t3995 * t380 - t5386 + 0.5e1 / 0.8e1 * t3995 * t387 + t5390 + t5392 - t5395 - 0.7e1 / 0.8e1 * t611 * t2832;
3975   t5400 = t1576 * t2217;
3976   t5403 = t2168 * t2217;
3977   t5406 = t1584 * t2217;
3978   t5409 = t140 * t2217;
3979   t5412 = t145 * t2217;
3980   t5417 = t645 * t2217;
3981   t5426 = t199 * t1345;
3982   t5431 = 0.3e1 / 0.8e1 * t5103;
3983   t5432 = 0.3e1 / 0.4e1 * t5105;
3984   t5433 = 0.3e1 / 0.4e1 * t5107;
3985   t5434 = -0.15e2 / 0.8e1 * t783 * t5400 - 0.25e2 / 0.4e1 * t775 * t5403 + 0.15e2 / 0.4e1 * t775 * t5406 + 0.11e2 / 0.4e1 * t775 * t5409 + 0.3e1 / 0.2e1 * t775 * t5412 - 0.11e2 / 0.8e1 * t783 * t2218 - 0.11e2 / 0.4e1 * t775 * t5417 - 0.9e1 / 0.4e1 * t783 * t2240 - 0.6e1 * t775 * t2229 + 0.9e1 / 0.2e1 * t775 * t5365 + 0.3e1 / 0.2e1 * t775 * t5426 + 0.9e1 / 0.4e1 * t783 * t5409 + t5431 - t5432 - t5433;
3986   t5436 = t5111 / 0.8e1;
3987   t5437 = 0.3e1 / 0.8e1 * t5113;
3988   t5438 = 0.3e1 / 0.8e1 * t5115;
3989   t5439 = t5117 / 0.2e1;
3990   t5440 = 0.3e1 / 0.4e1 * t5119;
3991   t5441 = t5121 / 0.4e1;
3992   t5442 = t5109 - t5263 / 0.2e1 - t5436 - t5437 + t5438 - t5439 + t5440 - t5441 - t968 - t981 + t982 + t983 - t1058 - t1059 + t1060 + t1061;
3993   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3994     v4sigma2lapl2[0] = t5358 + t5398 + t5434 + t5442;
3995 
3996   t5469 = t58 * t189;
3997   t5476 = t246 * t5290;
3998   t5480 = t246 * t5293;
3999   t5485 = t182 * t829 * t5195;
4000   t5490 = t182 * t392 * t5182;
4001   t5494 = -t198 - 0.25e2 / 0.4e1 * t182 * t58 * t293 * t1445 * t189 + 0.15e2 / 0.4e1 * t182 * t1584 * t3515 + 0.9e1 / 0.4e1 * t246 * t140 * t3782 - 0.9e1 / 0.4e1 * t246 * t386 * t3782 - 0.6e1 * t182 * t3541 + 0.9e1 / 0.2e1 * t182 * t392 * t3515 - 0.11e2 / 0.8e1 * t246 * t123 * t3782 - 0.11e2 / 0.4e1 * t182 * t59 * t3534 + 0.11e2 / 0.4e1 * t182 * t5469 * t2421 + 0.3e1 / 0.2e1 * t182 * t5469 * t2360 - 0.3e1 / 0.8e1 * t5476 + 0.5e1 / 0.8e1 * t1105 * t1101 + 0.3e1 / 0.8e1 * t5480 - 0.7e1 / 0.8e1 * t611 * t3047 + t5485 + 0.11e2 / 0.4e1 * t611 * t392 * t3046 - 0.3e1 / 0.4e1 * t5490 - 0.15e2 / 0.8e1 * t611 * t3053;
4002   t5497 = t182 * t5189;
4003   t5500 = t182 * t145 * t5182;
4004   t5504 = t182 * t58 * t194 * t671;
4005   t5508 = t246 * t5285;
4006   t5511 = t182 * t59 * t5199;
4007   t5522 = 0.3e1 / 0.2e1 * t5278;
4008   t5523 = t5282 / 0.2e1;
4009   t5524 = 0.3e1 / 0.4e1 * t5286;
4010   t5525 = 0.3e1 / 0.2e1 * t5288;
4011   t5526 = 0.3e1 / 0.4e1 * t5291;
4012   t5527 = 0.3e1 / 0.4e1 * t5294;
4013   t5528 = 0.2e1 * t5296;
4014   t5529 = 0.3e1 / 0.2e1 * t5298;
4015   t5530 = -0.5e1 / 0.8e1 * t1105 * t1098 - 0.3e1 / 0.4e1 * t5497 - t5500 / 0.2e1 - t5504 / 0.4e1 + 0.5e1 / 0.8e1 * t1105 * t1073 + 0.3e1 / 0.8e1 * t5508 + 0.3e1 / 0.4e1 * t5511 + 0.11e2 / 0.4e1 * t182 * t140 * t3515 + 0.3e1 / 0.2e1 * t182 * t145 * t3515 - t182 * t5469 * t2410 / 0.4e1 - t5522 - t5280 - t5523 + t5524 + t5525 - t5526 + t5527 + t5528 - t5529;
4016   t5532 = 0.3e1 / 0.2e1 * t5177;
4017   t5533 = 0.3e1 / 0.4e1 * t5184;
4018   t5534 = 0.3e1 / 0.2e1 * t5187;
4019   t5535 = 0.3e1 / 0.4e1 * t5190;
4020   t5536 = 0.3e1 / 0.4e1 * t5193;
4021   t5537 = 0.2e1 * t5197;
4022   t5538 = 0.3e1 / 0.2e1 * t5201;
4023   t5539 = t5205 / 0.2e1;
4024   t5544 = -t5532 - t5180 + t5533 - t5534 - t5535 + t5536 + t5537 + t5538 - t5539 + t5052 - t5058 + t5065 - t5071 - t28 * t5167 * t58 * t172 / 0.8e1 - t5338 + t5431 - t5432 - t5433 + t5109;
4025   t5545 = -t5264 - t5436 - t5437 + t5438 - t5439 + t5440 - t5441 - t968 - t981 + t982 + t983 - t1003 - t1006 + t1009 + t1012 - t1033 - t1035 + t1037 + t1039;
4026   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4027     v4sigma2lapltau[0] = t5494 + t5530 + t5544 + t5545;
4028 
4029   t5565 = -t198 - 0.3e1 * t5278 - 0.2e1 * t5280 - t5282 + 0.3e1 / 0.2e1 * t5286 + 0.3e1 * t5288 - 0.3e1 / 0.2e1 * t5291 + 0.3e1 / 0.2e1 * t5294 + 0.4e1 * t5296 - 0.3e1 * t5298 + 0.9e1 / 0.4e1 * t886 * t5409 + 0.3e1 / 0.2e1 * t876 * t5426 - 0.9e1 / 0.4e1 * t886 * t2240 - t876 * t5359 / 0.4e1 - 0.11e2 / 0.4e1 * t876 * t5417;
4030   t5568 = t886 * t2269;
4031   t5569 = 0.3e1 / 0.8e1 * t5568;
4032   t5572 = t876 * t5370;
4033   t5573 = t5572 / 0.2e1;
4034   t5574 = t123 * t3191;
4035   t5577 = t876 * t2223;
4036   t5578 = 0.3e1 / 0.4e1 * t5577;
4037   t5579 = t876 * t5375;
4038   t5580 = 0.3e1 / 0.4e1 * t5579;
4039   t5583 = t886 * t2196;
4040   t5584 = 0.3e1 / 0.8e1 * t5583;
4041   t5585 = t876 * t5391;
4042   t5586 = t876 * t5378;
4043   t5587 = 0.3e1 / 0.4e1 * t5586;
4044   t5590 = -t5168 * t260 / 0.8e1 + t5052 - t5058 + t5065 - t5071 + t5569 + 0.5e1 / 0.8e1 * t4372 * t429 - t5573 - 0.11e2 / 0.8e1 * t611 * t5574 - t5578 + t5580 + 0.5e1 / 0.8e1 * t4372 * t387 + t5584 + t5585 - t5587 - 0.5e1 / 0.8e1 * t4372 * t380;
4045   t5592 = t886 * t2223;
4046   t5593 = 0.3e1 / 0.8e1 * t5592;
4047   t5594 = t876 * t5393;
4048   t5595 = t5594 / 0.4e1;
4049   t5617 = -t5593 - t5595 - 0.7e1 / 0.8e1 * t611 * t3192 + 0.11e2 / 0.4e1 * t876 * t5409 + 0.11e2 / 0.4e1 * t876 * t5362 + 0.11e2 / 0.4e1 * t886 * t5365 - 0.15e2 / 0.8e1 * t886 * t5400 - 0.25e2 / 0.4e1 * t876 * t5403 + 0.15e2 / 0.4e1 * t876 * t5406 + 0.3e1 / 0.2e1 * t876 * t5412 - 0.6e1 * t876 * t2229 + 0.9e1 / 0.2e1 * t876 * t5365 - t5337 / 0.2e1 + t5431 - t5432;
4050   t5618 = -t5433 + t5109 - t5436 - t5437 + t5438 - t5439 + t5440 - t5441 - t968 - t981 + t982 + t983 - t1126 - t1127 + t1128 + t1129;
4051   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4052     v4sigma2tau2[0] = t5565 + t5590 + t5617 + t5618;
4053 
4054   t5620 = t209 * t80;
4055   t5626 = t111 * t51;
4056   t5629 = t115 * t51;
4057   t5634 = t1296 * t51;
4058   t5652 = t5620 * t4514 / 0.4e1 + t5130 + t161 * t51 * t1281 / 0.2e1 - t4522 * t5626 / 0.2e1 - t4525 * t5629 / 0.2e1 - t4528 * t125 / 0.2e1 + t5634 * t152 / 0.2e1 + t5145 + t1151 * t213 / 0.2e1 - t1151 * t216 / 0.2e1 - t1151 * t219 / 0.2e1 - t5153 * t58 * t340 / 0.2e1 - t5159 - t1153 * t213 / 0.2e1 + t1153 * t216 / 0.2e1 + t1153 * t219 / 0.2e1;
4059   t5653 = t28 * t5652;
4060   t5662 = -t198 - t5178 - t5181 + t5185 - t5188 - t5191 + t5194 + t5198 + t5202 - t5206 - t5653 * t232 / 0.8e1 + 0.3e1 / 0.8e1 * t965 * t1165 - 0.3e1 / 0.8e1 * t965 * t1138 + 0.3e1 / 0.8e1 * t965 * t1142;
4061   t5663 = t2420 * t1566;
4062   t5670 = t2168 * t1566;
4063   t5673 = t1584 * t1566;
4064   t5682 = t145 * t1566;
4065   t5693 = t1200 * t640;
4066   t5695 = 0.11e2 / 0.4e1 * t4416 * t5663 + 0.11e2 / 0.4e1 * t4439 * t1570 - 0.15e2 / 0.8e1 * t4439 * t1577 - 0.25e2 / 0.4e1 * t4416 * t5670 + 0.15e2 / 0.4e1 * t4416 * t5673 - t4455 * t380 / 0.4e1 + t4455 * t387 / 0.4e1 + 0.11e2 / 0.4e1 * t4416 * t1589 + 0.3e1 / 0.2e1 * t4416 * t5682 - 0.11e2 / 0.8e1 * t210 * t4470 - 0.9e1 / 0.4e1 * t4439 * t1592 - 0.6e1 * t4416 * t1567 + 0.9e1 / 0.2e1 * t4416 * t1570 - t5693 / 0.4e1;
4067   t5699 = t670 * t1566;
4068   t5706 = t52 * t1368;
4069   t5709 = t52 * t1332;
4070   t5712 = 0.9e1 / 0.4e1 * t5368;
4071   t5713 = 0.3e1 / 0.2e1 * t5371;
4072   t5714 = 0.9e1 / 0.8e1 * t5373;
4073   t5715 = 0.9e1 / 0.4e1 * t5376;
4074   t5716 = t4455 * t429 / 0.4e1 + 0.3e1 / 0.2e1 * t4416 * t5699 - 0.7e1 / 0.8e1 * t210 * t4433 + 0.9e1 / 0.4e1 * t4439 * t1589 - t4416 * t5706 / 0.4e1 - 0.11e2 / 0.4e1 * t4416 * t5709 + t5052 - t5058 + t5065 - t5071 - t5712 - t5713 + t5714 + t5715;
4075   t5717 = 0.9e1 / 0.4e1 * t5379;
4076   t5718 = 0.9e1 / 0.8e1 * t5385;
4077   t5719 = 0.9e1 / 0.8e1 * t5389;
4078   t5720 = 0.3e1 * t5392;
4079   t5721 = 0.3e1 / 0.4e1 * t5394;
4080   t5723 = -t5717 - t5718 + t5719 + t5720 - t5721 - 0.3e1 / 0.8e1 * t5263 - t1043 - t1044 + t1045 + t1055 - t1171 - t1172 + t1173 + t1174;
4081   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4082     v4sigmalapl3[0] = t5662 + t5695 + t5716 + t5723;
4083 
4084   t5725 = t230 * t51;
4085   t5732 = t1379 * t51;
4086   t5777 = 0.3e1 / 0.2e1 * t182 * t5725 * t2360 - t182 * t5725 * t2410 / 0.4e1 + 0.11e2 / 0.4e1 * t182 * t231 * t5732 + 0.11e2 / 0.4e1 * t783 * t392 * t2691 - 0.15e2 / 0.8e1 * t783 * t1576 * t2691 - 0.25e2 / 0.4e1 * t182 * t4577 * t1445 * t51 + 0.15e2 / 0.4e1 * t182 * t1584 * t3902 - t1200 * t1098 / 0.4e1 + t1200 * t1101 / 0.4e1 - 0.6e1 * t182 * t3903 + 0.9e1 / 0.2e1 * t182 * t392 * t3902 + t1200 * t1073 / 0.4e1 - 0.7e1 / 0.8e1 * t210 * t4641 - 0.11e2 / 0.4e1 * t182 * t235 * t2414 + 0.9e1 / 0.4e1 * t210 * t4657 + 0.11e2 / 0.4e1 * t182 * t140 * t3902 - 0.9e1 / 0.4e1 * t210 * t4623 + 0.3e1 / 0.2e1 * t182 * t145 * t3902 - 0.11e2 / 0.8e1 * t210 * t4631 - t198;
4087   t5778 = 0.3e1 / 0.4e1 * t5476;
4088   t5779 = 0.3e1 / 0.4e1 * t5480;
4089   t5780 = 0.2e1 * t5485;
4090   t5781 = 0.3e1 / 0.2e1 * t5490;
4091   t5782 = 0.3e1 / 0.2e1 * t5497;
4092   t5783 = t5504 / 0.2e1;
4093   t5784 = 0.3e1 / 0.4e1 * t5508;
4094   t5785 = 0.3e1 / 0.2e1 * t5511;
4095   t5794 = -t5778 + t5779 + t5780 - t5781 - t5782 - t5500 - t5783 + t5784 + t5785 - 0.3e1 / 0.4e1 * t5278 - t5280 / 0.2e1 - t5282 / 0.4e1 + 0.3e1 / 0.8e1 * t5286 + 0.3e1 / 0.4e1 * t5288 - 0.3e1 / 0.8e1 * t5291 + 0.3e1 / 0.8e1 * t5294 + t5296 - 0.3e1 / 0.4e1 * t5298 - t5532 - t5180;
4096   t5802 = t28 * t1156 * t194 * t172;
4097   t5810 = t5693 / 0.8e1;
4098   t5811 = t5533 - t5534 - t5535 + t5536 + t5537 + t5538 - t5539 - t28 * t5652 * t58 * t172 / 0.8e1 - t5802 / 0.8e1 + 0.3e1 / 0.8e1 * t3995 * t540 - 0.3e1 / 0.8e1 * t3995 * t562 + 0.3e1 / 0.8e1 * t3995 * t565 - t5810 + t5052 - t5058 + t5065 - t5071 - t5369 - t5372 + t5374;
4099   t5813 = t5377 - t5380 - t5386 + t5390 + t5392 - t5395 - t5337 / 0.8e1 - t5264 - t1043 - t1044 + t1045 + t1055 - t1058 - t1059 + t1060 + t1061 - t1033 - t1035 + t1037 + t1039;
4100   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4101     v4sigmalapl2tau[0] = t5777 + t5794 + t5811 + t5813;
4102 
4103   t5835 = t392 * t2458;
4104   t5849 = t140 * t2458;
4105   t5859 = -0.11e2 / 0.4e1 * t876 * t52 * t4733 - t876 * t1087 * t2410 / 0.4e1 + 0.3e1 / 0.2e1 * t876 * t59 * t1345 * t51 - 0.7e1 / 0.8e1 * t210 * t4782 - 0.9e1 / 0.4e1 * t886 * t386 * t2458 - 0.6e1 * t876 * t2483 + 0.11e2 / 0.4e1 * t876 * t829 * t5732 + 0.11e2 / 0.4e1 * t886 * t5835 - 0.15e2 / 0.8e1 * t886 * t1576 * t2458 - 0.25e2 / 0.4e1 * t876 * t2168 * t2458 + 0.15e2 / 0.4e1 * t876 * t1584 * t2458 + 0.9e1 / 0.2e1 * t876 * t5835 + 0.9e1 / 0.4e1 * t886 * t5849 + 0.11e2 / 0.4e1 * t876 * t5849 + 0.3e1 / 0.2e1 * t876 * t145 * t2458 - 0.11e2 / 0.8e1 * t210 * t4799 - t198 - t5778 + t5779;
4106   t5864 = t5780 - t5781 - t5782 - t5500 - t5783 + t5784 + t5785 - t5522 - t5280 - t5523 + t5524 + t5525 - t5526 + t5527 + t5528 - t5529 - 0.3e1 / 0.4e1 * t5177 - t5180 / 0.2e1 + 0.3e1 / 0.8e1 * t5184 - 0.3e1 / 0.4e1 * t5187;
4107   t5884 = t5802 / 0.4e1;
4108   t5885 = -0.3e1 / 0.8e1 * t5190 + 0.3e1 / 0.8e1 * t5193 + t5197 + 0.3e1 / 0.4e1 * t5201 - t5205 / 0.4e1 - t5653 * t260 / 0.8e1 - t4811 * t380 / 0.4e1 + t4811 * t387 / 0.4e1 + 0.3e1 / 0.8e1 * t4372 * t466 + t4811 * t429 / 0.4e1 + 0.3e1 / 0.8e1 * t4372 * t487 - 0.3e1 / 0.8e1 * t4372 * t484 - t5884 + t5052 - t5058 + t5065 - t5071 + t5569 - t5573 - t5578;
4109   t5887 = t5580 + t5584 + t5585 - t5587 - t5593 - t5595 - t5338 - t5263 / 0.8e1 - t1043 - t1044 + t1045 + t1055 - t1003 - t1006 + t1009 + t1012 - t1126 - t1127 + t1128 + t1129;
4110   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4111     v4sigmalapltau2[0] = t5859 + t5864 + t5885 + t5887;
4112 
4113   t5923 = t5620 * t4964 / 0.4e1 + t5130 + t181 * t51 * t1281 / 0.2e1 - t4202 * t5626 / 0.2e1 - t4208 * t5629 / 0.2e1 - t4976 * t125 / 0.2e1 + t5634 * t172 / 0.2e1 + t5145 + t1257 * t213 / 0.2e1 - t1257 * t216 / 0.2e1 - t1257 * t219 / 0.2e1 - t5153 * t63 * t340 / 0.2e1 - t5159 - t1259 * t213 / 0.2e1 + t1259 * t216 / 0.2e1 + t1259 * t219 / 0.2e1;
4114   t5927 = -t198 - t5279 - t5281 - t5283 + t5287 + t5289 - t5292 + t5295 + t5297 - t5299 + 0.3e1 / 0.8e1 * t965 * t1229 - 0.3e1 / 0.8e1 * t965 * t1236 + 0.3e1 / 0.8e1 * t965 * t1248 - t28 * t5923 * t260 / 0.8e1;
4115   t5956 = -0.9e1 / 0.4e1 * t4893 * t1592 - 0.6e1 * t4883 * t1567 + 0.9e1 / 0.2e1 * t4883 * t1570 + 0.11e2 / 0.4e1 * t4883 * t5663 + 0.11e2 / 0.4e1 * t4893 * t1570 - 0.15e2 / 0.8e1 * t4893 * t1577 - 0.25e2 / 0.4e1 * t4883 * t5670 + 0.15e2 / 0.4e1 * t4883 * t5673 + 0.3e1 / 0.2e1 * t4883 * t5699 - t4883 * t5706 / 0.4e1 - t4907 * t380 / 0.4e1 + t4907 * t387 / 0.4e1 + 0.9e1 / 0.4e1 * t4893 * t1589 + t4907 * t429 / 0.4e1;
4116   t5958 = t4931 * t640;
4117   t5959 = t5958 / 0.4e1;
4118   t5970 = 0.9e1 / 0.8e1 * t5568;
4119   t5971 = 0.3e1 / 0.2e1 * t5572;
4120   t5972 = 0.9e1 / 0.4e1 * t5577;
4121   t5973 = 0.9e1 / 0.4e1 * t5579;
4122   t5974 = -t5959 - 0.11e2 / 0.4e1 * t4883 * t5709 + 0.11e2 / 0.4e1 * t4883 * t1589 + 0.3e1 / 0.2e1 * t4883 * t5682 - 0.7e1 / 0.8e1 * t210 * t4953 - 0.11e2 / 0.8e1 * t4893 * t1609 + t5052 - t5058 + t5065 - t5071 + t5970 - t5971 - t5972 + t5973;
4123   t5975 = 0.9e1 / 0.8e1 * t5583;
4124   t5976 = 0.3e1 * t5585;
4125   t5977 = 0.9e1 / 0.4e1 * t5586;
4126   t5978 = 0.9e1 / 0.8e1 * t5592;
4127   t5979 = 0.3e1 / 0.4e1 * t5594;
4128   t5981 = t5975 + t5976 - t5977 - t5978 - t5979 - 0.3e1 / 0.8e1 * t5337 - t1043 - t1044 + t1045 + t1055 - t1266 - t1267 + t1268 + t1269;
4129   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4130     v4sigmatau3[0] = t5927 + t5956 + t5974 + t5981;
4131 
4132   t5997 = t344 * t230;
4133   t6004 = t75 * t1156;
4134   t6008 = t347 * t230;
4135   t6015 = t782 * t1275 / 0.4e1 + t5130 + t774 * t1281 / 0.2e1 - t774 * t1284 / 0.2e1 - t774 * t1287 / 0.2e1 - t1292 * t230 * t1275 / 0.2e1 + t1296 * t230 * t1275 / 0.2e1 + t5145 + t5997 * t1281 / 0.2e1 - t5997 * t1284 / 0.2e1 - t5997 * t1287 / 0.2e1 - t6004 * t58 * t340 / 0.2e1 - t5159 - t6008 * t1281 / 0.2e1 + t6008 * t1284 / 0.2e1 + t6008 * t1287 / 0.2e1;
4136   t6016 = t28 * t6015;
4137   t6019 = t230 * t230;
4138   t6020 = t6019 * t80;
4139   t6024 = t6020 * t1368;
4140   t6031 = t6019 * t20;
4141   t6041 = t6019 * t293;
4142   t6042 = t6041 * t1379;
4143   t6045 = t6019 * t1441;
4144   t6057 = t6020 * t1345;
4145   t6070 = -t198 - t6016 * t232 / 0.8e1 - 0.11e2 / 0.8e1 * t78 * t6020 * t1332 - 0.7e1 / 0.8e1 * t78 * t6024 - 0.5e1 / 0.8e1 * t1157 * t1138 + 0.5e1 / 0.8e1 * t1157 * t1142 - t30 * t6031 * t1368 / 0.4e1 - 0.11e2 / 0.4e1 * t30 * t6031 * t1332 + 0.11e2 / 0.4e1 * t30 * t6020 * t1379 + 0.11e2 / 0.4e1 * t78 * t6042 - 0.15e2 / 0.8e1 * t78 * t6045 * t1445 - 0.25e2 / 0.4e1 * t30 * t6041 * t1445 + 0.15e2 / 0.4e1 * t30 * t6045 * t1454 + 0.5e1 / 0.8e1 * t1157 * t1165 + 0.11e2 / 0.4e1 * t30 * t6057 + 0.3e1 / 0.2e1 * t30 * t6031 * t1351 + 0.9e1 / 0.4e1 * t78 * t6057 - 0.9e1 / 0.4e1 * t78 * t6041 * t1368 - 0.6e1 * t30 * t6024;
4146   t6087 = 0.9e1 / 0.2e1 * t30 * t6042 + 0.3e1 / 0.2e1 * t30 * t6031 * t1345 - 0.5e1 / 0.8e1 * t5693 + t5052 - t5058 + t5065 - t5071 - 0.9e1 / 0.2e1 * t5368 - 0.3e1 * t5371 + 0.9e1 / 0.4e1 * t5373 + 0.9e1 / 0.2e1 * t5376 - 0.9e1 / 0.2e1 * t5379 - 0.9e1 / 0.4e1 * t5385 + 0.9e1 / 0.4e1 * t5389 + 0.6e1 * t5392 - 0.3e1 / 0.2e1 * t5394 - t1002 / 0.2e1 - t1005 + t1008 + t1011;
4147   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4148     v4lapl4[0] = t6070 + t6087;
4149 
4150   t6088 = 0.9e1 / 0.8e1 * t5476;
4151   t6089 = 0.9e1 / 0.8e1 * t5480;
4152   t6090 = 0.3e1 * t5485;
4153   t6091 = 0.9e1 / 0.4e1 * t5490;
4154   t6092 = 0.9e1 / 0.4e1 * t5497;
4155   t6093 = 0.3e1 / 0.2e1 * t5500;
4156   t6094 = 0.3e1 / 0.4e1 * t5504;
4157   t6095 = 0.9e1 / 0.8e1 * t5508;
4158   t6096 = 0.9e1 / 0.4e1 * t5511;
4159   t6105 = -t198 - t6088 + t6089 + t6090 - t6091 - t6092 - t6093 - t6094 + t6095 + t6096 + 0.9e1 / 0.2e1 * t182 * t392 * t4432 + 0.11e2 / 0.4e1 * t182 * t1137 * t1379 + 0.11e2 / 0.4e1 * t4439 * t2017;
4160   t6138 = -0.15e2 / 0.8e1 * t4439 * t2020 - 0.25e2 / 0.4e1 * t182 * t1141 * t1445 + 0.15e2 / 0.4e1 * t182 * t1584 * t4432 + 0.3e1 / 0.2e1 * t182 * t1133 * t1345 - t182 * t1133 * t1368 / 0.4e1 + 0.5e1 / 0.8e1 * t4455 * t565 - t28 * t6015 * t58 * t172 / 0.8e1 + 0.9e1 / 0.4e1 * t4439 * t2009 - 0.9e1 / 0.4e1 * t4439 * t2062 - 0.11e2 / 0.8e1 * t4439 * t2029 + 0.5e1 / 0.8e1 * t4455 * t540 - 0.7e1 / 0.8e1 * t4439 * t2014 - 0.5e1 / 0.8e1 * t4455 * t562;
4161   t6152 = -0.11e2 / 0.4e1 * t182 * t1133 * t1332 + 0.11e2 / 0.4e1 * t182 * t140 * t4432 + 0.3e1 / 0.2e1 * t182 * t145 * t4432 - 0.6e1 * t182 * t4433 - t5884 - 0.3e1 / 0.8e1 * t5693 + t5052 - t5058 + t5065 - t5071 - t5712 - t5713 + t5714;
4162   t6153 = t5715 - t5717 - t5718 + t5719 + t5720 - t5721 - t1171 - t1172 + t1173 + t1174 - t1033 - t1035 + t1037 + t1039;
4163   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4164     v4lapl3tau[0] = t6105 + t6138 + t6152 + t6153;
4165 
4166   t6175 = -t198 - 0.3e1 / 0.2e1 * t5476 + 0.3e1 / 0.2e1 * t5480 + 0.4e1 * t5485 - 0.3e1 * t5490 - 0.3e1 * t5497 - 0.2e1 * t5500 - t5504 + 0.3e1 / 0.2e1 * t5508 + 0.3e1 * t5511 - t6016 * t260 / 0.8e1 - t876 * t235 * t1368 / 0.4e1 - 0.5e1 / 0.8e1 * t4811 * t484 + 0.5e1 / 0.8e1 * t4811 * t487 - 0.11e2 / 0.4e1 * t876 * t235 * t1332;
4167   t6188 = t392 * t2831;
4168   t6197 = t140 * t2831;
4169   t6216 = -0.15e2 / 0.8e1 * t886 * t1576 * t2831 - 0.25e2 / 0.4e1 * t876 * t2168 * t2831 + 0.15e2 / 0.4e1 * t876 * t1584 * t2831 + 0.11e2 / 0.4e1 * t876 * t231 * t1379 + 0.11e2 / 0.4e1 * t886 * t6188 - 0.11e2 / 0.8e1 * t783 * t5574 + 0.5e1 / 0.8e1 * t4811 * t466 - 0.7e1 / 0.8e1 * t783 * t3192 + 0.11e2 / 0.4e1 * t876 * t6197 + 0.3e1 / 0.2e1 * t876 * t145 * t2831 - 0.9e1 / 0.4e1 * t886 * t386 * t2831 - 0.6e1 * t876 * t2832 + 0.9e1 / 0.2e1 * t876 * t6188 + 0.9e1 / 0.4e1 * t886 * t6197 + 0.3e1 / 0.2e1 * t876 * t235 * t1345 - t5802 / 0.2e1;
4170   t6218 = -t5810 + t5052 - t5058 + t5065 - t5071 + t5569 - t5573 - t5578 + t5580 + t5584 + t5585 - t5587 - t5593 - t5595 - t5369;
4171   t6219 = -t5372 + t5374 + t5377 - t5380 - t5386 + t5390 + t5392 - t5395 - t1058 - t1059 + t1060 + t1061 - t1126 - t1127 + t1128 + t1129;
4172   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4173     v4lapl2tau2[0] = t6175 + t6216 + t6218 + t6219;
4174 
4175   t6253 = t4191 * t4964 / 0.4e1 + t5130 + t4198 * t1281 / 0.2e1 - t4202 * t111 * t58 / 0.2e1 - t4208 * t115 * t58 / 0.2e1 - t4976 * t152 / 0.2e1 + t1296 * t58 * t172 / 0.2e1 + t5145 + t1257 * t249 / 0.2e1 - t1257 * t252 / 0.2e1 - t1257 * t255 / 0.2e1 - t6004 * t63 * t340 / 0.2e1 - t5159 - t1259 * t249 / 0.2e1 + t1259 * t252 / 0.2e1 + t1259 * t255 / 0.2e1;
4176   t6261 = -t198 - t6088 + t6089 + t6090 - t6091 - t6092 - t6093 - t6094 + t6095 + t6096 + 0.3e1 / 0.8e1 * t1157 * t1248 - t28 * t6253 * t260 / 0.8e1 + 0.3e1 / 0.8e1 * t1157 * t1229 - 0.3e1 / 0.8e1 * t1157 * t1236;
4177   t6296 = 0.3e1 / 0.2e1 * t4883 * t59 * t1345 - t4883 * t59 * t1368 / 0.4e1 - 0.6e1 * t4883 * t1871 + 0.9e1 / 0.2e1 * t4883 * t1794 + 0.11e2 / 0.4e1 * t4883 * t2420 * t1779 + 0.11e2 / 0.4e1 * t4893 * t1794 + 0.11e2 / 0.4e1 * t4883 * t1780 + 0.3e1 / 0.2e1 * t4883 * t145 * t1779 - 0.7e1 / 0.8e1 * t246 * t4953 - 0.11e2 / 0.8e1 * t4893 * t1817 - 0.11e2 / 0.4e1 * t4883 * t645 * t1779 + t4907 * t466 / 0.4e1 - 0.15e2 / 0.8e1 * t4893 * t1797 - 0.25e2 / 0.4e1 * t4883 * t2168 * t1779;
4178   t6310 = 0.15e2 / 0.4e1 * t4883 * t1584 * t1779 - t4907 * t484 / 0.4e1 + t4907 * t487 / 0.4e1 + 0.9e1 / 0.4e1 * t4893 * t1780 - 0.9e1 / 0.4e1 * t4893 * t1812 - t5959 - 0.3e1 / 0.8e1 * t5802 + t5052 - t5058 + t5065 - t5071 + t5970 - t5971 - t5972;
4179   t6311 = t5973 + t5975 + t5976 - t5977 - t5978 - t5979 - t1003 - t1006 + t1009 + t1012 - t1266 - t1267 + t1268 + t1269;
4180   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4181     v4lapltau3[0] = t6261 + t6296 + t6310 + t6311;
4182 
4183   t6327 = t344 * t258;
4184   t6338 = t347 * t258;
4185   t6345 = t885 * t1275 / 0.4e1 + t5130 + t875 * t1281 / 0.2e1 - t875 * t1284 / 0.2e1 - t875 * t1287 / 0.2e1 - t1292 * t258 * t1275 / 0.2e1 + t1296 * t258 * t1275 / 0.2e1 + t5145 + t6327 * t1281 / 0.2e1 - t6327 * t1284 / 0.2e1 - t6327 * t1287 / 0.2e1 - t75 * t1262 * t63 * t340 / 0.2e1 - t5159 - t6338 * t1281 / 0.2e1 + t6338 * t1284 / 0.2e1 + t6338 * t1287 / 0.2e1;
4186   t6349 = t258 * t258;
4187   t6350 = t6349 * t80;
4188   t6351 = t6350 * t1368;
4189   t6360 = t6349 * t20;
4190   t6367 = t6350 * t1345;
4191   t6379 = t6349 * t1441;
4192   t6385 = t6349 * t293;
4193   t6391 = t6385 * t1379;
4194   t6399 = -t198 - t28 * t6345 * t260 / 0.8e1 - 0.7e1 / 0.8e1 * t78 * t6351 - 0.5e1 / 0.8e1 * t1263 * t1236 + 0.5e1 / 0.8e1 * t1263 * t1248 + 0.5e1 / 0.8e1 * t1263 * t1229 + 0.3e1 / 0.2e1 * t30 * t6360 * t1345 - t30 * t6360 * t1368 / 0.4e1 + 0.11e2 / 0.4e1 * t30 * t6367 + 0.3e1 / 0.2e1 * t30 * t6360 * t1351 - 0.11e2 / 0.8e1 * t78 * t6350 * t1332 - 0.11e2 / 0.4e1 * t30 * t6360 * t1332 + 0.15e2 / 0.4e1 * t30 * t6379 * t1454 + 0.9e1 / 0.4e1 * t78 * t6367 - 0.9e1 / 0.4e1 * t78 * t6385 * t1368 - 0.6e1 * t30 * t6351 + 0.9e1 / 0.2e1 * t30 * t6391 + 0.11e2 / 0.4e1 * t30 * t6350 * t1379 + 0.11e2 / 0.4e1 * t78 * t6391;
4195   t6417 = -0.15e2 / 0.8e1 * t78 * t6379 * t1445 - 0.25e2 / 0.4e1 * t30 * t6385 * t1445 - 0.5e1 / 0.8e1 * t5958 + t5052 - t5058 + t5065 - t5071 + 0.9e1 / 0.4e1 * t5568 - 0.3e1 * t5572 - 0.9e1 / 0.2e1 * t5577 + 0.9e1 / 0.2e1 * t5579 + 0.9e1 / 0.4e1 * t5583 + 0.6e1 * t5585 - 0.9e1 / 0.2e1 * t5586 - 0.9e1 / 0.4e1 * t5592 - 0.3e1 / 0.2e1 * t5594 - t1032 / 0.2e1 - t1034 + t1036 + t1038;
4196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4197     v4tau4[0] = t6399 + t6417;
4198 
4199 #ifndef XC_DONT_COMPILE_MXC
4200 
4201   if(order < 5) return;
4202 
4203 
4204 #endif
4205 
4206 #endif
4207 
4208 #endif
4209 
4210 #endif
4211 
4212 #endif
4213 
4214 
4215 }
4216 
4217 
4218 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 *))4219 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 *))
4220 {
4221 
4222 #ifndef XC_DONT_COMPILE_EXC
4223   double t2, t3, t4, t5, t7, t8, t9, t10;
4224   double t11, t12, t13, t17, t18, t22, t23, t24;
4225   double t25, t26, t28, t29, t30, t31, t32, t33;
4226   double t35, t36, t37, t38, t39, t40, t44, t45;
4227   double t49, t50, t51, t53, t54, t55, t56, t57;
4228   double t58;
4229 
4230 #ifndef XC_DONT_COMPILE_VXC
4231   double t60, t61, t62, t63, t64, t65, t67, t69;
4232   double t70, t71, t72, t73, t74, t75, t76, t77;
4233   double t82, t83, t88, t89, t90, t91, t92, t93;
4234   double t94, t95, t96, t97, t99, t100, t101, t102;
4235   double t103, t107, t109, t110, t111, t113, t114, t115;
4236   double t116, t117, t122, t123, t128, t129, t130, t131;
4237   double t132, t133, t134, t135, t138, t139, t140, t141;
4238   double t142, t144, t145, t146, t149, t150, t151, t153;
4239   double t154, t155, t158, t160, t161, t162, t165, t167;
4240   double t168, t169, t172, t173, t174, t177, t178, t179;
4241 
4242 #ifndef XC_DONT_COMPILE_FXC
4243   double t183, t186, t187, t188, t189, t191, t192, t194;
4244   double t195, t196, t197, t198, t199, t200, t201, t202;
4245   double t203, t204, t206, t207, t208, t209, t210, t211;
4246   double t212, t213, t214, t215, t216, t218, t219, t220;
4247   double t221, t222, t223, t224, t225, t226, t227, t228;
4248   double t229, t230, t231, t237, t242, t243, t244, t245;
4249   double t246, t247, t248, t249, t250, t251, t252, t253;
4250   double t254, t255, t256, t257, t258, t259, t260, t261;
4251   double t262, t263, t265, t266, t268, t269, t270, t272;
4252   double t273, t274, t275, t276, t277, t279, t280, t281;
4253   double t282, t285, t287, t288, t289, t292, t293, t295;
4254   double t299, t300, t301, t302, t305, t307, t309, t312;
4255   double t313, t314, t315, t317, t318, t319, t321, t326;
4256   double t328, t329, t330, t331, t333, t334, t335, t337;
4257   double t338, t339, t340, t341, t342, t343, t344, t346;
4258   double t347, t348, t349, t351, t352, t353, t354, t355;
4259   double t356, t357, t358, t359, t360, t361, t362, t363;
4260   double t364, t370, t375, t376, t377, t378, t379, t380;
4261   double t381, t382, t383, t384, t385, t386, t387, t388;
4262   double t389, t390, t391, t392, t393, t394, t396, t398;
4263   double t399, t400, t403, t404, t405, t406, t407, t410;
4264   double t412, t413, t414, t417, t418, t419, t420, t423;
4265   double t424, t425, t428, t429, t432, t433, t434, t435;
4266   double t438, t442, t445, t446, t447, t448, t449, t452;
4267   double t454, t455, t456, t459, t460, t461, t462, t465;
4268   double t466, t467, t470, t471, t474, t476, t479, t480;
4269   double t484, t485, t486, t489, t490, t493, t494, t497;
4270   double t500, t501, t504, t508, t511, t512, t516, t517;
4271   double t518, t521, t522, t525, t526, t529, t532, t534;
4272   double t537, t538, t542, t543, t544, t547, t548, t551;
4273   double t552, t555, t558, t559, t562, t566, t569, t570;
4274   double t574, t575, t576, t579, t580, t583, t584, t587;
4275   double t590, t591, t592, t595, t596, t597, t599, t600;
4276   double t601, t604, t607, t610, t611, t612, t615, t616;
4277   double t617, t619, t620, t621, t624, t627, t630, t633;
4278   double t634, t637, t638, t641, t642, t645, t648, t649;
4279   double t652, t653, t656, t657, t660, t663, t664, t667;
4280   double t670, t673, t676, t677, t680, t683, t686, t687;
4281   double t688, t691, t692, t695, t698, t701, t702, t703;
4282   double t706, t707, t710, t713, t716, t719, t720, t723;
4283   double t724, t727, t728, t731, t734, t735, t738, t739;
4284   double t742, t743, t746, t747, t748, t751, t752, t755;
4285   double t758, t761, t762, t763, t766, t767, t770, t773;
4286 
4287 #ifndef XC_DONT_COMPILE_KXC
4288   double t781, t782, t783, t784, t785, t786, t787, t788;
4289   double t789, t790, t791, t792, t793, t795, t796, t797;
4290   double t798, t799, t800, t801, t802, t803, t804, t805;
4291   double t806, t807, t808, t809, t810, t811, t812, t813;
4292   double t815, t816, t817, t819, t820, t821, t822, t823;
4293   double t824, t825, t826, t828, t829, t830, t832, t833;
4294   double t834, t835, t838, t839, t840, t841, t843, t844;
4295   double t845, t848, t849, t851, t852, t853, t856, t860;
4296   double t861, t862, t863, t864, t865, t867, t868, t870;
4297   double t871, t872, t873, t874, t875, t877, t878, t879;
4298   double t880, t881, t882, t883, t884, t885, t886, t888;
4299   double t889, t890, t891, t892, t893, t895, t896, t897;
4300   double t898, t904, t909, t910, t911, t912, t913, t914;
4301   double t915, t916, t917, t918, t919, t920, t921, t922;
4302   double t923, t924, t925, t926, t927, t928, t929, t930;
4303   double t931, t933, t935, t936, t937, t939, t941, t942;
4304   double t943, t945, t946, t948, t950, t951, t952, t954;
4305   double t955, t957, t960, t961, t962, t963, t964, t966;
4306   double t967, t969, t972, t973, t974, t986, t988, t991;
4307   double t992, t993, t994, t995, t996, t997, t999, t1000;
4308   double t1001, t1003, t1004, t1005, t1007, t1008, t1009, t1011;
4309   double t1012, t1013, t1014, t1015, t1017, t1018, t1019, t1020;
4310   double t1022, t1023, t1024, t1025, t1026, t1028, t1029, t1031;
4311   double t1032, t1033, t1035, t1036, t1038, t1039, t1041, t1042;
4312   double t1043, t1045, t1046, t1047, t1048, t1049, t1050, t1051;
4313   double t1053, t1054, t1055, t1057, t1058, t1059, t1060, t1061;
4314   double t1063, t1064, t1065, t1066, t1068, t1069, t1070, t1072;
4315   double t1073, t1075, t1081, t1082, t1086, t1089, t1098, t1101;
4316   double t1102, t1104, t1105, t1106, t1108, t1109, t1111, t1113;
4317   double t1117, t1120, t1122, t1124, t1125, t1126, t1127, t1129;
4318   double t1130, t1132, t1133, t1135, t1136, t1137, t1139, t1140;
4319   double t1141, t1143, t1144, t1145, t1147, t1148, t1149, t1151;
4320   double t1152, t1153, t1154, t1155, t1157, t1158, t1159, t1160;
4321   double t1162, t1163, t1165, t1166, t1167, t1169, t1170, t1171;
4322   double t1173, t1174, t1176, t1177, t1178, t1180, t1181, t1183;
4323   double t1184, t1185, t1187, t1190, t1191, t1192, t1194, t1196;
4324   double t1198, t1200, t1210, t1212, t1214, t1216, t1219, t1222;
4325   double t1225, t1228, t1230, t1234, t1239, t1240, t1241, t1242;
4326   double t1243, t1244, t1245, t1246, t1247, t1248, t1249, t1250;
4327   double t1251, t1252, t1253, t1254, t1255, t1256, t1257, t1258;
4328   double t1259, t1260, t1261, t1262, t1263, t1264, t1265, t1266;
4329   double t1267, t1269, t1270, t1271, t1272, t1273, t1274, t1275;
4330   double t1277, t1278, t1279, t1281, t1282, t1283, t1284, t1285;
4331   double t1286, t1287, t1288, t1290, t1291, t1292, t1293, t1294;
4332   double t1295, t1296, t1297, t1298, t1299, t1300, t1301, t1302;
4333   double t1303, t1304, t1306, t1307, t1308, t1309, t1310, t1311;
4334   double t1312, t1313, t1314, t1316, t1318, t1319, t1320, t1323;
4335   double t1327, t1328, t1329, t1330, t1331, t1337, t1342, t1343;
4336   double t1344, t1345, t1346, t1347, t1349, t1350, t1351, t1352;
4337   double t1353, t1354, t1355, t1356, t1357, t1358, t1359, t1360;
4338   double t1361, t1362, t1368, t1369, t1370, t1375, t1377, t1378;
4339   double t1380, t1382, t1383, t1384, t1386, t1387, t1388, t1390;
4340   double t1391, t1392, t1406, t1408, t1410, t1411, t1414, t1415;
4341   double t1416, t1417, t1420, t1423, t1426, t1427, t1430, t1431;
4342   double t1432, t1435, t1436, t1439, t1440, t1443, t1444, t1447;
4343   double t1448, t1451, t1452, t1455, t1458, t1461, t1462, t1465;
4344   double t1466, t1469, t1470, t1473, t1476, t1477, t1480, t1482;
4345   double t1486, t1487, t1488, t1491, t1492, t1493, t1495, t1496;
4346   double t1497, t1500, t1501, t1502, t1503, t1504, t1505, t1508;
4347   double t1511, t1514, t1515, t1516, t1517, t1518, t1519, t1520;
4348   double t1523, t1525, t1527, t1528, t1529, t1533, t1534, t1535;
4349   double t1538, t1539, t1540, t1541, t1544, t1553, t1555, t1556;
4350   double t1559, t1560, t1563, t1566, t1569, t1570, t1571, t1574;
4351   double t1577, t1578, t1579, t1583, t1585, t1586, t1589, t1590;
4352   double t1593, t1595, t1596, t1597, t1598, t1599, t1600, t1601;
4353   double t1604, t1606, t1609, t1611, t1612, t1613, t1616, t1618;
4354   double t1619, t1620, t1621, t1624, t1626, t1630, t1633, t1636;
4355   double t1637, t1640, t1641, t1644, t1647, t1648, t1651, t1652;
4356   double t1655, t1658, t1661, t1662, t1665, t1670, t1671, t1674;
4357   double t1675, t1676, t1679, t1680, t1681, t1682, t1684, t1685;
4358   double t1686, t1689, t1690, t1691, t1694, t1695, t1696, t1700;
4359   double t1703, t1704, t1707, t1708, t1713, t1714, t1717, t1723;
4360   double t1724, t1725, t1728, t1731, t1734, t1735, t1739, t1741;
4361   double t1742, t1743, t1746, t1747, t1750, t1753, t1756, t1759;
4362   double t1760, t1763, t1764, t1767, t1770, t1773, t1776, t1778;
4363   double t1780, t1782, t1787, t1790, t1791, t1794, t1795, t1798;
4364   double t1799, t1802, t1805, t1807, t1808, t1813, t1814, t1817;
4365   double t1819, t1820, t1823, t1826, t1827, t1834, t1835, t1836;
4366   double t1839, t1842, t1843, t1844, t1848, t1849, t1850, t1853;
4367   double t1854, t1857, t1866, t1868, t1869, t1872, t1873, t1876;
4368   double t1885, t1889, t1891, t1892, t1895, t1898, t1900, t1901;
4369   double t1902, t1905, t1907, t1910, t1912, t1913, t1916, t1920;
4370   double t1925, t1928, t1931, t1934, t1937, t1940, t1945, t1948;
4371   double t1949, t1952, t1955, t1956, t1959, t1960, t1963, t1964;
4372   double t1967, t1968, t1970, t1971, t1974, t1975, t1978, t1982;
4373   double t1985, t1986, t1989, t1992, t1993, t1996, t2010, t2011;
4374   double t2018, t2019, t2020, t2023, t2024, t2025, t2028, t2029;
4375   double t2032, t2033, t2036, t2038, t2041, t2044, t2047, t2050;
4376   double t2051, t2054, t2057, t2060, t2063, t2066, t2068, t2071;
4377   double t2074, t2077, t2080, t2081, t2084, t2088, t2091, t2093;
4378   double t2097, t2098, t2101, t2103, t2104, t2107, t2109, t2117;
4379   double t2118, t2121, t2122, t2123, t2126, t2127, t2130, t2131;
4380   double t2134, t2143, t2145, t2146, t2150, t2153, t2162, t2166;
4381   double t2168, t2169, t2172, t2175, t2177, t2179, t2182, t2184;
4382   double t2187, t2189, t2190, t2193, t2197, t2202, t2205, t2208;
4383   double t2209, t2212, t2213, t2215, t2216, t2220, t2223, t2224;
4384   double t2227, t2228, t2231, t2235, t2238, t2241, t2244, t2245;
4385   double t2248, t2256, t2259, t2263, t2266, t2269, t2272, t2275;
4386   double t2280, t2288, t2295, t2296, t2297, t2300, t2301, t2302;
4387   double t2304, t2305, t2306, t2309, t2310, t2311, t2312, t2313;
4388   double t2314, t2317, t2318, t2321, t2324, t2325, t2328, t2329;
4389   double t2332, t2333, t2336, t2339, t2340, t2343, t2344, t2345;
4390   double t2346, t2347, t2348, t2349, t2350, t2351, t2352, t2353;
4391   double t2354, t2357, t2360, t2363, t2366, t2367, t2372, t2375;
4392   double t2376, t2377, t2378, t2380, t2382, t2383, t2384, t2386;
4393   double t2388, t2391, t2393, t2394, t2395, t2398, t2399, t2400;
4394   double t2402, t2404, t2405, t2409, t2410, t2414, t2415, t2418;
4395   double t2421, t2423, t2424, t2427, t2430, t2433, t2434, t2437;
4396   double t2438, t2439, t2442, t2443, t2444, t2445, t2446, t2448;
4397   double t2449, t2452, t2453, t2454, t2455, t2456, t2457, t2460;
4398   double t2463, t2464, t2469, t2472, t2473, t2476, t2477, t2480;
4399   double t2483, t2484, t2487, t2488, t2491, t2492, t2493, t2494;
4400   double t2495, t2496, t2497, t2498, t2499, t2500, t2501, t2504;
4401   double t2507, t2512, t2514, t2516, t2518, t2521, t2522, t2525;
4402   double t2528, t2531, t2534, t2540, t2542, t2543, t2546, t2549;
4403   double t2550, t2551, t2552, t2553, t2554, t2557, t2558, t2561;
4404   double t2562, t2563, t2564, t2565, t2568, t2571, t2574, t2577;
4405   double t2578, t2581, t2583, t2584, t2587, t2590, t2593, t2596;
4406   double t2599, t2601, t2602, t2603, t2607, t2608, t2612, t2613;
4407   double t2617, t2618, t2623, t2626, t2629, t2632, t2636, t2639;
4408   double t2640, t2643, t2646, t2649, t2652, t2657, t2660, t2661;
4409   double t2662, t2663, t2664, t2665, t2668, t2669, t2672, t2673;
4410   double t2674, t2676, t2677, t2678, t2679, t2682, t2685, t2688;
4411   double t2691, t2694, t2697, t2702, t2705, t2708, t2709, t2712;
4412   double t2715, t2720, t2723, t2727, t2731, t2733, t2735, t2737;
4413   double t2739, t2742, t2745, t2746, t2747, t2756, t2757, t2758;
4414   double t2763, t2766, t2778, t2780, t2784, t2788, t2792, t2804;
4415   double t2808, t2811, t2814, t2817, t2820, t2825, t2828, t2831;
4416   double t2832, t2833, t2834, t2837, t2840, t2841, t2851, t2864;
4417   double t2865, t2868, t2871, t2872, t2875, t2877, t2880, t2881;
4418   double t2884, t2887, t2888, t2891, t2894, t2897, t2900, t2903;
4419   double t2906, t2909, t2910, t2913, t2914, t2922, t2924, t2926;
4420   double t2928, t2929, t2931, t2932, t2936, t2937, t2941, t2942;
4421   double t2946, t2947, t2950, t2953, t2956, t2959, t2962, t2965;
4422   double t2968, t2971, t2972, t2975, t2980, t2981, t2984, t2986;
4423   double t2989, t2990, t2993, t2996, t2997, t3000, t3003, t3006;
4424   double t3007, t3010, t3013, t3018, t3020, t3022, t3026, t3029;
4425   double t3032, t3035, t3038, t3043, t3046, t3050, t3052, t3054;
4426   double t3055, t3056, t3057, t3062, t3064, t3067, t3070, t3075;
4427   double t3078, t3081, t3082, t3087, t3090, t3093, t3095, t3096;
4428   double t3097, t3101, t3102, t3106, t3107, t3111, t3112, t3117;
4429   double t3120, t3123, t3127, t3131, t3134, t3137, t3140, t3143;
4430   double t3148, t3151, t3154, t3155, t3156, t3159, t3162, t3165;
4431   double t3172, t3174, t3177, t3182, t3185, t3190, t3191, t3194;
4432   double t3195, t3198, t3200, t3203, t3207, t3210, t3214, t3217;
4433   double t3220, t3223, t3226, t3229, t3232, t3235, t3236, t3240;
4434   double t3246, t3248, t3250, t3252, t3255, t3257, t3258, t3262;
4435   double t3263, t3267, t3268, t3272, t3273, t3276, t3279, t3282;
4436   double t3285, t3288, t3289, t3292, t3294, t3298, t3301, t3304;
4437   double t3307, t3310, t3313, t3316, t3319, t3322, t3326, t3329;
4438   double t3332, t3335, t3339, t3344, t3345, t3346, t3347, t3350;
4439   double t3351, t3354, t3357, t3358, t3359, t3360, t3363, t3364;
4440   double t3365, t3366, t3368, t3370, t3373, t3374, t3375, t3378;
4441   double t3380, t3381, t3386, t3389, t3390, t3391, t3392, t3393;
4442   double t3394, t3395, t3396, t3399, t3400, t3401, t3404, t3405;
4443   double t3408, t3411, t3412, t3413, t3414, t3417, t3418, t3419;
4444   double t3420, t3422, t3424, t3427, t3428, t3429, t3434, t3435;
4445   double t3438, t3439, t3440, t3441, t3443, t3446, t3447, t3448;
4446   double t3449, t3450, t3453, t3454, t3455, t3456, t3459, t3460;
4447   double t3461, t3462, t3463, t3464, t3465, t3466, t3467, t3468;
4448   double t3469, t3470, t3471, t3472, t3475, t3476, t3479, t3480;
4449   double t3483, t3484, t3489, t3492, t3494, t3495, t3498, t3501;
4450   double t3502, t3503, t3504, t3505, t3506, t3507, t3508, t3509;
4451   double t3510, t3513, t3514, t3515, t3516, t3517, t3518, t3519;
4452   double t3520, t3521, t3522, t3523, t3526, t3529, t3530, t3533;
4453   double t3534, t3539, t3542, t3544, t3545, t3548, t3551, t3552;
4454   double t3554, t3555, t3556, t3557, t3558, t3559, t3560, t3561;
4455   double t3562, t3565, t3566, t3567, t3568, t3571, t3574, t3575;
4456   double t3578, t3583, t3586, t3588, t3591, t3594, t3595, t3596;
4457   double t3599, t3600, t3601, t3603, t3604, t3605, t3606, t3607;
4458   double t3608, t3609, t3612, t3615, t3618, t3619, t3624, t3627;
4459   double t3629, t3632, t3635, t3638, t3639, t3642, t3643, t3646;
4460   double t3651, t3652, t3653, t3654, t3655, t3656, t3657, t3658;
4461   double t3663, t3666, t3668, t3669, t3670, t3673, t3674, t3677;
4462   double t3678, t3681, t3684, t3689, t3690, t3691, t3692, t3693;
4463   double t3694, t3697, t3700, t3702, t3703, t3706, t3707, t3708;
4464   double t3711, t3714, t3715, t3716, t3719, t3722, t3723, t3726;
4465   double t3729, t3732, t3735, t3738, t3740, t3743, t3746, t3747;
4466   double t3748, t3751, t3754, t3755, t3758, t3761, t3764, t3767;
4467   double t3769, t3772, t3775, t3776, t3779, t3782, t3785, t3790;
4468   double t3791, t3792, t3793, t3796, t3799, t3801, t3805, t3808;
4469   double t3811, t3814, t3817, t3820, t3821, t3822, t3823, t3826;
4470   double t3829, t3831, t3837, t3840, t3841, t3842, t3845, t3846;
4471   double t3849, t3852, t3855, t3857, t3859, t3862, t3863, t3864;
4472   double t3867, t3868, t3869, t3870, t3873, t3874, t3877, t3879;
4473   double t3882, t3885, t3886, t3887, t3890, t3891, t3894, t3897;
4474   double t3900, t3902, t3904, t3907, t3908, t3909, t3912, t3913;
4475   double t3914, t3915, t3916, t3917, t3922, t3925, t3927, t3932;
4476   double t3935, t3936, t3939, t3940, t3943, t3944, t3949, t3952;
4477   double t3954, t3955, t3958, t3963, t3966, t3967, t3970, t3971;
4478   double t3974, t3975, t3978, t3979, t3984, t3987, t3989, t3993;
4479   double t3997, t4000, t4003, t4010, t4013, t4016, t4020, t4023;
4480   double t4027, t4030, t4033, t4040, t4043, t4046, t4050, t4053;
4481   double t4054, t4055, t4058, t4059, t4062, t4065, t4068, t4070;
4482   double t4072, t4075, t4076, t4077, t4080, t4081, t4082, t4083;
4483   double t4086, t4087, t4090, t4092, t4095, t4098, t4099, t4100;
4484   double t4103, t4104, t4107, t4110, t4113, t4114, t4115, t4116;
4485   double t4117, t4119, t4121, t4124, t4125, t4126, t4131, t4132;
4486   double t4135, t4137, t4140;
4487 
4488 #ifndef XC_DONT_COMPILE_LXC
4489   double t4154, t4158, t4161, t4162, t4163, t4166, t4170, t4174;
4490   double t4186, t4196, t4198, t4202, t4206, t4209, t4215, t4218;
4491   double t4221, t4226, t4230, t4237, t4244, t4251, t4258, t4263;
4492   double t4274, t4280, t4282, t4283, t4284, t4285, t4286, t4292;
4493   double t4298, t4300, t4301, t4305, t4306, t4307, t4311, t4315;
4494   double t4320, t4324, t4326, t4328, t4329, t4336, t4339, t4340;
4495   double t4343, t4345, t4347, t4349, t4351, t4353, t4356, t4358;
4496   double t4364, t4365, t4366, t4368, t4369, t4380, t4381, t4387;
4497   double t4396, t4398, t4400, t4402, t4406, t4407, t4413, t4414;
4498   double t4416, t4420, t4423, t4424, t4428, t4432, t4435, t4437;
4499   double t4441, t4444, t4445, t4450, t4453, t4456, t4459, t4462;
4500   double t4464, t4468, t4472, t4478, t4482, t4483, t4486, t4487;
4501   double t4491, t4495, t4506, t4512, t4514, t4521, t4525, t4527;
4502   double t4531, t4533, t4535, t4539, t4541, t4545, t4547, t4548;
4503   double t4552, t4553, t4555, t4569, t4573, t4577, t4580, t4584;
4504   double t4585, t4587, t4589, t4590, t4598, t4604, t4608, t4610;
4505   double t4617, t4624, t4626, t4627, t4641, t4651, t4652, t4653;
4506   double t4664, t4671, t4675, t4677, t4680, t4683, t4689, t4704;
4507   double t4705, t4706, t4710, t4713, t4716, t4719, t4720, t4726;
4508   double t4729, t4737, t4740, t4745, t4749, t4752, t4753, t4755;
4509   double t4760, t4774, t4784, t4790, t4791, t4796, t4799, t4801;
4510   double t4802, t4804, t4807, t4819, t4823, t4827, t4831, t4834;
4511   double t4838, t4844, t4846, t4847, t4851, t4852, t4854, t4855;
4512   double t4856, t4858, t4862, t4866, t4868, t4871, t4875, t4877;
4513   double t4881, t4882, t4883, t4900, t4902, t4904, t4914, t4925;
4514   double t4926, t4928, t4932, t4933, t4935, t4939, t4940, t4942;
4515   double t4944, t4945, t4952, t4956, t4958, t4959, t4965, t4966;
4516   double t4967, t4972, t4976, t4978, t4980, t4985, t4996, t5015;
4517   double t5033, t5057, t5059, t5064, t5067, t5070, t5075, t5080;
4518   double t5084, t5088, t5092, t5094, t5098, t5102, t5106, t5107;
4519   double t5120, t5122, t5124, t5126, t5130, t5132, t5135, t5137;
4520   double t5142, t5145, t5150, t5153, t5156, t5159, t5171, t5180;
4521   double t5182, t5186, t5190, t5192, t5196, t5198, t5202, t5203;
4522   double t5207, t5210, t5211, t5216, t5221, t5223, t5227, t5229;
4523   double t5233, t5235, t5251, t5258, t5273, t5275, t5277, t5282;
4524   double t5287, t5292, t5303, t5312, t5330, t5335, t5352, t5360;
4525   double t5372, t5373, t5380, t5384, t5392, t5396, t5400, t5401;
4526   double t5402, t5407, t5411, t5413, t5417, t5422, t5423, t5427;
4527   double t5429, t5431, t5433, t5435, t5437, t5439, t5441, t5443;
4528   double t5445, t5447, t5449, t5453, t5455, t5459, t5460, t5463;
4529   double t5470, t5474, t5481, t5487, t5499, t5505, t5506, t5513;
4530   double t5517, t5529, t5531, t5533, t5535, t5538, t5540, t5544;
4531   double t5546, t5548, t5550, t5552, t5554, t5558, t5567, t5570;
4532   double t5573, t5576, t5578, t5594, t5601, t5606, t5621, t5628;
4533   double t5646, t5658, t5666, t5677, t5690, t5693, t5696, t5697;
4534   double t5698, t5701, t5707, t5722, t5726, t5730, t5738, t5742;
4535   double t5746, t5747, t5751, t5755, t5759, t5763, t5766, t5767;
4536   double t5773, t5780, t5788, t5792, t5795, t5799, t5801, t5811;
4537   double t5815, t5830, t5848, t5849, t5867, t5884, t5885, t5886;
4538   double t5887, t5888, t5889, t5896, t5902, t5905, t5908, t5913;
4539   double t5917, t5924, t5931, t5938, t5945, t5960, t5967, t5968;
4540   double t5972, t5973, t5976, t5977, t5981, t5987, t5988, t5989;
4541   double t6000, t6004, t6009, t6013, t6021, t6025, t6029, t6033;
4542   double t6044, t6054, t6055, t6057, t6058, t6069, t6070, t6080;
4543   double t6092, t6104, t6115, t6117, t6120, t6122, t6123, t6124;
4544   double t6127, t6128, t6131, t6132, t6133, t6136, t6138, t6141;
4545   double t6144, t6146, t6149, t6153, t6154, t6158, t6159, t6163;
4546   double t6166, t6168, t6169, t6172, t6176, t6177, t6178, t6181;
4547   double t6184, t6185, t6186, t6187, t6194, t6197, t6198, t6206;
4548   double t6208, t6209, t6213, t6218, t6221, t6225, t6228, t6230;
4549   double t6234, t6237, t6238, t6239, t6242, t6249, t6252, t6255;
4550   double t6258, t6261, t6262, t6263, t6266, t6268, t6269, t6272;
4551   double t6274, t6275, t6277, t6278, t6283, t6284, t6288, t6289;
4552   double t6293, t6294, t6299, t6308, t6312, t6320, t6324, t6325;
4553   double t6328, t6333, t6337, t6345, t6347, t6349, t6353, t6355;
4554   double t6359, t6361, t6363, t6367, t6369, t6370, t6377, t6379;
4555   double t6387, t6394, t6403, t6407, t6417, t6419, t6421, t6427;
4556   double t6429, t6434, t6436, t6440, t6442, t6443, t6451, t6453;
4557   double t6459, t6462, t6473, t6480, t6482, t6484, t6486, t6488;
4558   double t6491, t6492, t6494, t6498, t6503, t6506, t6508, t6510;
4559   double t6513, t6514, t6515, t6525, t6528, t6530, t6531, t6534;
4560   double t6535, t6538, t6539, t6543, t6546, t6549, t6550, t6551;
4561   double t6554, t6557, t6561, t6564, t6567, t6570, t6573, t6576;
4562   double t6580, t6583, t6584, t6595, t6596, t6605, t6607, t6609;
4563   double t6621, t6622, t6625, t6627, t6628, t6632, t6635, t6636;
4564   double t6642, t6645, t6660, t6680, t6682, t6684, t6685, t6689;
4565   double t6692, t6693, t6696, t6698, t6699, t6700, t6703, t6708;
4566   double t6709, t6713, t6716, t6720, t6723, t6724, t6728, t6731;
4567   double t6732, t6736, t6740, t6745, t6747, t6749, t6751, t6758;
4568   double t6760, t6761, t6764, t6770, t6771, t6775, t6776, t6781;
4569   double t6784, t6790, t6793, t6797, t6798, t6800, t6820, t6821;
4570   double t6823, t6825, t6827, t6830, t6833, t6835, t6836, t6840;
4571   double t6841, t6842, t6845, t6848, t6852, t6853, t6856, t6859;
4572   double t6860, t6861, t6864, t6867, t6870, t6873, t6874, t6878;
4573   double t6881, t6884, t6885, t6888, t6893, t6896, t6909, t6911;
4574   double t6915, t6921, t6922, t6925, t6926, t6930, t6932, t6935;
4575   double t6936, t6939, t6941, t6943, t6945, t6947, t6949, t6951;
4576   double t6953, t6955, t6959, t6961, t6963, t6965, t6967, t6969;
4577   double t6971, t6972, t6983, t6985, t6987, t6989, t6991, t7000;
4578   double t7002, t7015, t7019, t7020, t7023, t7024, t7025, t7028;
4579   double t7032, t7035, t7038, t7041, t7044, t7048, t7049, t7050;
4580   double t7051, t7054, t7057, t7058, t7064, t7065, t7068, t7071;
4581   double t7072, t7075, t7079, t7080, t7081, t7084, t7089, t7096;
4582   double t7097, t7100, t7107, t7114, t7116, t7124, t7133, t7136;
4583   double t7141, t7142, t7143, t7147, t7148, t7152, t7153, t7156;
4584   double t7157, t7158, t7161, t7162, t7166, t7167, t7191, t7197;
4585   double t7201, t7202, t7207, t7211, t7214, t7225, t7233, t7246;
4586   double t7257, t7263, t7264, t7276, t7277, t7280, t7284, t7288;
4587   double t7304, t7310, t7327, t7343, t7348, t7351, t7352, t7358;
4588   double t7364, t7375, t7380, t7382, t7389, t7390, t7402, t7407;
4589   double t7408, t7411, t7414, t7415, t7416, t7423, t7437, t7438;
4590   double t7443, t7446, t7447, t7452, t7456, t7460, t7461, t7466;
4591   double t7469, t7472, t7474, t7476, t7480, t7485, t7487, t7489;
4592   double t7491, t7495, t7497, t7504, t7510, t7511, t7514, t7515;
4593   double t7518, t7530, t7532, t7534, t7539, t7544, t7546, t7550;
4594   double t7552, t7554, t7558, t7563, t7565, t7567, t7571, t7573;
4595   double t7577, t7579, t7583, t7585, t7626, t7628, t7629, t7640;
4596   double t7650, t7656, t7658, t7663, t7664, t7666, t7669, t7674;
4597   double t7677, t7679, t7681, t7684, t7695, t7696, t7699, t7700;
4598   double t7705, t7717, t7720, t7723, t7726, t7732, t7736, t7739;
4599   double t7743, t7745, t7756, t7757, t7773, t7777, t7779, t7780;
4600   double t7781, t7791, t7794, t7809, t7829, t7833, t7837, t7840;
4601   double t7841, t7850, t7852, t7856, t7860, t7863, t7867, t7868;
4602   double t7869, t7870, t7874, t7875, t7877, t7879, t7881, t7886;
4603   double t7896, t7898, t7911, t7912, t7919, t7920, t7925, t7926;
4604   double t7928, t7948, t7953, t7956, t7957, t7960, t7973, t7974;
4605   double t7975, t7983, t7996, t8003, t8005, t8007, t8009, t8015;
4606   double t8016, t8019, t8027, t8028, t8031, t8037, t8039, t8041;
4607   double t8043, t8056, t8058, t8060, t8062, t8064, t8066, t8068;
4608   double t8070, t8072, t8073, t8075, t8077, t8079, t8081, t8083;
4609   double t8085, t8087, t8089, t8098, t8100, t8141, t8142, t8145;
4610   double t8146, t8147, t8158, t8159, t8166, t8177, t8178, t8181;
4611   double t8184, t8194, t8195, t8198, t8207, t8211, t8218, t8221;
4612   double t8222, t8223, t8226, t8232, t8233, t8236, t8237, t8240;
4613   double t8250, t8261, t8271, t8299, t8314, t8317, t8324, t8328;
4614   double t8358, t8379, t8394, t8399, t8403, t8404, t8411, t8434;
4615   double t8437, t8445, t8447, t8448, t8449, t8457, t8468, t8469;
4616   double t8472, t8478, t8481, t8485, t8486, t8489, t8495, t8498;
4617   double t8503, t8505, t8511, t8530, t8532, t8534, t8536, t8540;
4618   double t8544, t8546, t8551, t8554, t8557, t8558, t8561, t8567;
4619   double t8569, t8570, t8573, t8574, t8577, t8587, t8593, t8595;
4620   double t8597, t8599, t8600, t8602, t8607, t8622, t8642, t8644;
4621   double t8646, t8657, t8661, t8663, t8673, t8677, t8681, t8682;
4622   double t8687, t8689, t8691, t8693, t8695, t8701, t8705, t8709;
4623   double t8713, t8715, t8718, t8724, t8725, t8728, t8730, t8732;
4624   double t8735, t8745, t8749, t8754, t8755, t8759, t8764, t8776;
4625   double t8779, t8783, t8790, t8795, t8796, t8801, t8804, t8819;
4626   double t8821, t8828, t8832, t8834, t8842, t8849, t8860, t8880;
4627   double t8883, t8887, t8894, t8896, t8898, t8900, t8904, t8907;
4628   double t8910, t8920, t8921, t8924, t8926, t8929, t8933, t8938;
4629   double t8940, t8947, t8949, t8965, t8973, t8976, t8979, t8981;
4630   double t8999, t9000, t9002, t9004, t9006, t9014, t9015, t9028;
4631   double t9029, t9030, t9034, t9041, t9044, t9047, t9061, t9064;
4632   double t9077, t9079, t9082, t9088, t9090, t9092, t9094, t9096;
4633   double t9098, t9100, t9102, t9104, t9117, t9119, t9121, t9123;
4634   double t9124, t9126, t9128, t9130, t9132, t9134, t9136, t9138;
4635   double t9140, t9149, t9151, t9190, t9191, t9194, t9199, t9202;
4636   double t9203, t9211, t9224, t9231, t9234, t9237, t9238, t9243;
4637   double t9246, t9257, t9261, t9268, t9272, t9273, t9274, t9277;
4638   double t9280, t9289, t9302, t9320, t9337, t9352, t9361, t9365;
4639   double t9366, t9370, t9385, t9411, t9428, t9443, t9448, t9451;
4640   double t9452, t9453, t9454, t9455, t9457, t9458, t9459, t9463;
4641   double t9464, t9468, t9469, t9475, t9482, t9484, t9485, t9488;
4642   double t9492, t9493, t9494, t9497, t9499, t9502, t9505, t9508;
4643   double t9511, t9512, t9516, t9519, t9530, t9531, t9532, t9533;
4644   double t9535, t9536, t9539, t9542, t9544, t9545, t9546, t9550;
4645   double t9551, t9554, t9555, t9558, t9559, t9562, t9564, t9566;
4646   double t9567, t9570, t9571, t9573, t9574, t9575, t9577, t9581;
4647   double t9583, t9585, t9586, t9587, t9588, t9591, t9592, t9597;
4648   double t9601, t9609, t9614, t9618, t9628, t9632, t9635, t9637;
4649   double t9639, t9650, t9653, t9657, t9659, t9661, t9663, t9671;
4650   double t9675, t9676, t9680, t9693, t9695, t9711, t9712, t9713;
4651   double t9714, t9715, t9717, t9718, t9721, t9724, t9725, t9728;
4652   double t9730, t9733, t9734, t9746, t9749, t9752, t9755, t9762;
4653   double t9763, t9768, t9770, t9775, t9779, t9780, t9785, t9786;
4654   double t9791, t9793, t9798, t9803, t9804, t9808, t9815, t9816;
4655   double t9822, t9823, t9832, t9833, t9834, t9837, t9839, t9840;
4656   double t9843, t9844, t9848, t9858, t9863, t9864, t9867, t9868;
4657   double t9871, t9875, t9876, t9879, t9885, t9887, t9888, t9889;
4658   double t9891, t9893, t9896, t9899, t9904, t9905, t9916, t9919;
4659   double t9924, t9927, t9934, t9939, t9943, t9944, t9945, t9949;
4660   double t9950, t9955, t9958, t9962, t9969, t9975, t9976, t9977;
4661   double t9981, t9986, t9987, t9988, t9994, t9995, t9999, t10000;
4662   double t10004, t10007, t10010, t10015, t10019, t10021, t10022, t10026;
4663   double t10027, t10028, t10029, t10031, t10032, t10035, t10038, t10045;
4664   double t10049, t10050, t10055, t10057, t10059, t10061, t10063, t10065;
4665   double t10067, t10068, t10069, t10071, t10073, t10075, t10077, t10078;
4666   double t10079, t10081, t10083, t10084, t10085, t10086, t10087, t10089;
4667   double t10091, t10093, t10095, t10097, t10099, t10100, t10101, t10104;
4668   double t10108, t10114, t10121, t10126, t10128, t10141, t10147, t10161;
4669   double t10165, t10166, t10167, t10168, t10169, t10170, t10171, t10175;
4670   double t10176, t10180, t10181, t10184, t10187, t10190, t10193, t10196;
4671   double t10200, t10201, t10202, t10205, t10207, t10208, t10214, t10218;
4672   double t10221, t10225, t10226, t10227, t10229, t10230, t10236, t10244;
4673   double t10249, t10251, t10252, t10253, t10256, t10258, t10260, t10261;
4674   double t10264, t10265, t10266, t10271, t10272, t10275, t10278, t10279;
4675   double t10288, t10294, t10295, t10296, t10301, t10302, t10305, t10312;
4676   double t10321, t10324, t10325, t10342, t10346, t10352, t10359, t10376;
4677   double t10380, t10383, t10396, t10397, t10400, t10407, t10427, t10430;
4678   double t10431, t10434, t10436, t10439, t10445, t10449, t10452, t10453;
4679   double t10456, t10461, t10463, t10464, t10471, t10480, t10483, t10486;
4680   double t10487, t10489, t10490, t10491, t10494, t10496, t10497, t10499;
4681   double t10502, t10507, t10510, t10513, t10514, t10517, t10521, t10524;
4682   double t10525, t10528, t10531, t10534, t10537, t10540, t10541, t10542;
4683   double t10545, t10550, t10553, t10557, t10560, t10563, t10566, t10577;
4684   double t10580, t10585, t10601, t10604, t10611, t10614, t10619, t10621;
4685   double t10626, t10627, t10629, t10634, t10648, t10653, t10655, t10658;
4686   double t10661, t10665, t10666, t10670, t10671, t10675, t10678, t10683;
4687   double t10685, t10687, t10689, t10691, t10694, t10699, t10700, t10704;
4688   double t10705, t10709, t10710, t10713, t10714, t10715, t10718, t10719;
4689   double t10722, t10723, t10726, t10727, t10730, t10731, t10734, t10774;
4690   double t10784, t10786, t10789, t10791, t10793, t10795, t10796, t10798;
4691   double t10800, t10802, t10804, t10806, t10808, t10810, t10811, t10814;
4692   double t10818, t10819, t10821, t10825, t10826, t10828, t10831, t10832;
4693   double t10837, t10838, t10841, t10843, t10846, t10849, t10852, t10855;
4694   double t10858, t10860, t10863, t10865, t10868, t10870, t10873, t10891;
4695   double t10907, t10911, t10915, t10916, t10919, t10922, t10925, t10926;
4696   double t10929, t10932, t10938, t10941, t10944, t10947, t10952, t10960;
4697   double t10962, t10963, t10965, t10967, t10969, t10970, t10972, t10974;
4698   double t10976, t10978, t10980, t10982, t10984, t10986, t10988, t10995;
4699   double t10998, t10999, t11002, t11005, t11008, t11012, t11029, t11031;
4700   double t11032, t11035, t11036, t11037, t11040, t11041, t11044, t11045;
4701   double t11048, t11051, t11052, t11053, t11056, t11060, t11064, t11067;
4702   double t11070, t11073, t11074, t11079, t11081, t11083, t11085, t11086;
4703   double t11088, t11090, t11092, t11094, t11096, t11098, t11100, t11103;
4704   double t11106, t11111, t11116, t11119, t11126, t11127, t11134, t11143;
4705   double t11144, t11145, t11148, t11151, t11155, t11158, t11161, t11162;
4706   double t11163, t11164, t11167, t11170, t11171, t11172, t11173, t11184;
4707   double t11192, t11198, t11203, t11208, t11209, t11218, t11227, t11228;
4708   double t11234, t11238, t11245, t11250, t11253, t11257, t11258, t11262;
4709   double t11265, t11268, t11269, t11274, t11276, t11279, t11286, t11291;
4710   double t11294, t11297, t11300, t11306, t11309, t11315, t11328, t11329;
4711   double t11332, t11336, t11339, t11342, t11343, t11346, t11349, t11391;
4712   double t11408, t11409, t11412, t11413, t11414, t11417, t11427, t11432;
4713   double t11433, t11434, t11441, t11444, t11445, t11460, t11469, t11470;
4714   double t11477, t11483, t11493, t11494, t11500, t11507, t11510, t11527;
4715   double t11531, t11537, t11539, t11540, t11543, t11548, t11552, t11554;
4716   double t11556, t11562, t11570, t11573, t11574, t11583, t11584, t11594;
4717   double t11598, t11604, t11605, t11608, t11614, t11615, t11617, t11619;
4718   double t11621, t11648, t11671, t11673, t11675, t11677, t11678, t11680;
4719   double t11682, t11684, t11686, t11688, t11694, t11695, t11700, t11701;
4720   double t11705, t11710, t11711, t11714, t11737, t11741, t11745, t11749;
4721   double t11757, t11771, t11782, t11785, t11786, t11789, t11804, t11813;
4722   double t11815, t11817, t11819, t11821, t11822, t11824, t11826, t11828;
4723   double t11830, t11832, t11834, t11836, t11838, t11840, t11850, t11873;
4724   double t11875, t11877, t11879, t11881, t11883, t11885, t11887, t11889;
4725   double t11891, t11893, t11912, t11913, t11916, t11921, t11924, t11947;
4726   double t11952, t11953, t11954, t11961, t11962, t11985, t11986, t11989;
4727   double t11990, t11991, t11994, t11997, t12030, t12045, t12083, t12103;
4728   double t12104, t12110, t12111, t12114, t12144, t12157, t12158, t12161;
4729   double t12164, t12175, t12189, t12192, t12194, t12202, t12206, t12211;
4730   double t12213, t12216, t12219, t12236, t12246, t12251, t12258, t12278;
4731   double t12280, t12285, t12287, t12289, t12290, t12298, t12300, t12302;
4732   double t12304, t12309, t12313, t12319, t12321, t12323, t12325, t12330;
4733   double t12353, t12355, t12357, t12358, t12361, t12362, t12363, t12368;
4734   double t12370, t12371, t12381, t12386, t12389, t12394, t12398, t12401;
4735   double t12404, t12415, t12418, t12419, t12423, t12426, t12434, t12437;
4736   double t12443, t12446, t12453, t12454, t12460, t12461, t12467, t12468;
4737   double t12471, t12472, t12489, t12497, t12502, t12504, t12508, t12527;
4738   double t12534, t12537, t12549, t12552, t12559, t12570, t12576, t12578;
4739   double t12580, t12582, t12584, t12586, t12588, t12590, t12592, t12594;
4740   double t12595, t12597, t12613, t12615, t12617, t12619, t12621, t12623;
4741   double t12625, t12629, t12634, t12637, t12641, t12651, t12656, t12657;
4742   double t12672, t12679, t12681, t12713, t12723, t12726, t12730, t12738;
4743   double t12741, t12769, t12779, t12786, t12815, t12820, t12831, t12846;
4744   double t12857, t12860, t12863, t12867, t12871, t12876, t12885, t12892;
4745   double t12898, t12901, t12902, t12905, t12910, t12911, t12915, t12918;
4746   double t12919, t12923, t12936, t12952, t12962, t12966, t12967, t12971;
4747   double t12973, t12975, t12995, t12997, t12999, t13001, t13003, t13006;
4748   double t13007, t13010, t13012, t13014, t13040, t13052, t13067, t13069;
4749   double t13076, t13086, t13091, t13095, t13103, t13111, t13112, t13114;
4750   double t13120, t13126, t13135, t13141, t13145, t13149, t13151, t13155;
4751   double t13185, t13189, t13190, t13193, t13197, t13207, t13225, t13226;
4752   double t13229, t13230, t13233, t13236, t13239, t13246, t13247, t13255;
4753   double t13256, t13262, t13263, t13266, t13267, t13268, t13277, t13287;
4754   double t13298, t13314, t13329, t13331, t13336, t13349, t13354, t13361;
4755   double t13383, t13392, t13396, t13416, t13419, t13423, t13425, t13427;
4756   double t13429, t13431, t13433, t13435, t13437, t13439, t13441, t13468;
4757   double t13472, t13477, t13478, t13480, t13482, t13484, t13486, t13487;
4758   double t13489, t13491, t13493, t13495, t13497, t13499, t13501, t13503;
4759   double t13509, t13562, t13609, t13619, t13630, t13666, t13672, t13673;
4760   double t13676, t13683, t13684, t13691, t13698, t13718, t13719, t13724;
4761   double t13736, t13743, t13749, t13768, t13794, t13797, t13803, t13810;
4762   double t13811, t13819, t13823, t13826, t13837, t13850, t13852, t13854;
4763   double t13856, t13858, t13870, t13884, t13886, t13888, t13890, t13895;
4764   double t13896, t13901, t13903, t13908, t13913, t13915, t13929, t13939;
4765   double t13944, t13960, t13962, t13968, t13984, t13996, t14011, t14023;
4766   double t14031, t14032, t14037, t14039, t14040, t14045, t14050, t14054;
4767   double t14056, t14075, t14076, t14082, t14083, t14089, t14090, t14093;
4768   double t14094, t14102, t14107, t14112, t14114, t14119, t14137, t14142;
4769   double t14161, t14165, t14186, t14188, t14190, t14192, t14208, t14209;
4770   double t14211, t14213, t14215, t14217, t14219, t14221, t14223, t14225;
4771   double t14227, t14229, t14231, t14233, t14235, t14239, t14247, t14254;
4772   double t14269, t14273, t14284, t14291, t14293, t14323, t14337, t14353;
4773   double t14386, t14388, t14413, t14416, t14419, t14432, t14433, t14459;
4774   double t14471, t14482, t14491, t14511, t14531, t14533, t14536, t14537;
4775   double t14541, t14552, t14562, t14566, t14567, t14570, t14573, t14578;
4776   double t14583, t14584, t14588, t14589, t14594, t14596, t14597, t14607;
4777   double t14611, t14629, t14630, t14646, t14650, t14658, t14661, t14666;
4778   double t14673, t14675, t14676, t14686, t14690, t14698, t14699, t14701;
4779   double t14702, t14703, t14704, t14705, t14706, t14712, t14713, t14715;
4780   double t14717, t14718, t14719, t14720, t14723, t14725, t14727, t14729;
4781   double t14731, t14733, t14735, t14738, t14740, t14742, t14744, t14747;
4782   double t14763, t14764, t14767, t14768, t14774, t14777, t14780, t14795;
4783   double t14797, t14804, t14806, t14808, t14810, t14812, t14813, t14815;
4784   double t14817, t14819, t14821, t14823, t14825, t14828, t14831, t14837;
4785   double t14838, t14839, t14840, t14841, t14842, t14843, t14844, t14860;
4786   double t14861, t14866, t14870, t14872, t14874, t14876, t14879, t14880;
4787   double t14882, t14884, t14886, t14888, t14890, t14892, t14894, t14896;
4788   double t14898, t14899, t14914, t14928, t14929, t14931, t14933, t14935;
4789   double t14937, t14939, t14940, t14943, t14944, t14954, t14958, t14959;
4790   double t14964, t14975, t14980, t14989, t14997, t15000, t15006, t15010;
4791   double t15014, t15015, t15024, t15032, t15036, t15044, t15047, t15051;
4792   double t15066, t15078, t15082, t15083, t15085, t15088, t15089, t15091;
4793   double t15093, t15095, t15097, t15099, t15101, t15103, t15105, t15108;
4794   double t15110, t15112, t15114, t15115, t15120, t15136, t15139, t15140;
4795   double t15146, t15149, t15152, t15167, t15169, t15174, t15177, t15181;
4796   double t15182, t15184, t15186, t15188, t15190, t15192, t15194, t15196;
4797   double t15198, t15199, t15200, t15201, t15202, t15203, t15204, t15205;
4798   double t15206, t15208, t15209, t15215, t15228, t15244, t15245, t15248;
4799   double t15249, t15251, t15252, t15254, t15255, t15258, t15263, t15264;
4800   double t15265, t15266, t15267, t15268, t15269, t15270, t15271, t15272;
4801   double t15273, t15275, t15276, t15280, t15281, t15282, t15283, t15284;
4802   double t15285, t15286, t15289, t15292, t15295, t15299, t15300, t15303;
4803   double t15306, t15309, t15312, t15315, t15318, t15321, t15322, t15324;
4804   double t15330, t15331, t15332, t15333, t15334, t15335, t15336, t15337;
4805   double t15338, t15339, t15340, t15341, t15344, t15350, t15351, t15352;
4806   double t15353, t15354, t15355, t15356, t15357, t15358, t15359, t15360;
4807   double t15361, t15362, t15363, t15364, t15365, t15366, t15367, t15368;
4808   double t15370, t15373, t15376, t15379, t15382, t15384, t15387, t15390;
4809   double t15393, t15397, t15398, t15414, t15417, t15420, t15423, t15426;
4810   double t15427, t15430, t15433, t15436, t15437, t15438, t15439, t15440;
4811   double t15441, t15442, t15443, t15444, t15445, t15446, t15447, t15448;
4812   double t15451, t15452, t15454, t15456, t15458, t15460, t15462, t15464;
4813   double t15466, t15468, t15470, t15471, t15472, t15474, t15475, t15476;
4814   double t15477, t15478, t15479, t15480, t15481, t15482, t15483, t15484;
4815   double t15485, t15486, t15487, t15488, t15489, t15490, t15491, t15494;
4816   double t15499, t15502, t15505, t15506, t15507, t15509, t15513, t15514;
4817   double t15515, t15516, t15523, t15526, t15527, t15528, t15529, t15530;
4818   double t15531, t15536, t15539, t15540, t15543, t15546, t15549, t15552;
4819   double t15557, t15558, t15559, t15560, t15561, t15562, t15563, t15564;
4820   double t15567, t15568, t15569, t15570, t15571, t15572, t15573, t15574;
4821   double t15578, t15582, t15591, t15605, t15606, t15608, t15609, t15612;
4822   double t15613, t15618, t15619, t15621, t15622, t15623, t15631, t15632;
4823   double t15633, t15634, t15635, t15636, t15637, t15640, t15643, t15647;
4824   double t15648, t15649, t15652, t15655, t15658, t15661, t15665, t15666;
4825   double t15669, t15670, t15671, t15672, t15673, t15675, t15681, t15682;
4826   double t15683, t15684, t15685, t15686, t15687, t15688, t15689, t15690;
4827   double t15693, t15699, t15702, t15703, t15706, t15709, t15710, t15711;
4828   double t15712, t15713, t15714, t15715, t15716, t15717, t15718, t15719;
4829   double t15722, t15725, t15730, t15733, t15736, t15739, t15741, t15743;
4830   double t15751, t15752, t15753, t15754, t15755, t15756, t15757, t15758;
4831   double t15759, t15760, t15761, t15762, t15763, t15773, t15776, t15779;
4832   double t15782, t15785, t15786, t15789, t15792, t15795, t15796, t15797;
4833   double t15798, t15799, t15800, t15801, t15802, t15803, t15804, t15805;
4834   double t15806, t15807, t15811, t15813, t15815, t15817, t15819, t15821;
4835   double t15822, t15824, t15826, t15827, t15828, t15830, t15831, t15832;
4836   double t15833, t15834, t15835, t15836, t15837, t15857, t15860, t15877;
4837   double t15878, t15880, t15881, t15884, t15885, t15887, t15888, t15890;
4838   double t15891, t15893, t15894, t15901, t15902, t15903, t15904, t15905;
4839   double t15910, t15915, t15916, t15919, t15926, t15929, t15932, t15941;
4840   double t15942, t15943, t15944, t15945, t15946, t15947, t15948, t15949;
4841   double t15950, t15951, t15952, t15953, t15954, t15955, t15956, t15961;
4842   double t15962, t15963, t15964, t15965, t15966, t15967, t15968, t15969;
4843   double t15984, t15995, t15996, t16013, t16014, t16018, t16019, t16020;
4844   double t16021, t16022, t16023, t16024, t16025, t16026, t16028, t16030;
4845   double t16032, t16034, t16036, t16038, t16040, t16042, t16044, t16045;
4846   double t16052, t16053, t16054, t16055, t16056, t16057, t16058, t16059;
4847   double t16074, t16075, t16094, t16095, t16098, t16099, t16100, t16101;
4848   double t16102, t16103, t16104, t16108, t16114, t16122, t16124, t16125;
4849   double t16128, t16129, t16131, t16132, t16134, t16135, t16142, t16143;
4850   double t16159, t16161, t16162, t16163, t16164, t16165, t16178, t16179;
4851   double t16180, t16181, t16182, t16183, t16184, t16189, t16190, t16193;
4852   double t16196, t16202, t16205, t16206, t16225, t16229, t16230, t16231;
4853   double t16232, t16237, t16238, t16239, t16240, t16241, t16242, t16243;
4854   double t16244, t16245, t16246, t16247, t16269, t16276, t16279, t16280;
4855   double t16287, t16288, t16292, t16294, t16296, t16298, t16300, t16302;
4856   double t16304, t16306, t16308, t16321, t16347, t16348, t16351, t16354;
4857   double t16355, t16358, t16361, t16364, t16367, t16368, t16372, t16377;
4858   double t16380, t16381, t16382, t16387, t16388, t16391, t16397, t16400;
4859   double t16402, t16413, t16416, t16419, t16422, t16425, t16435, t16438;
4860   double t16441, t16444, t16452, t16453, t16454, t16455, t16456, t16457;
4861   double t16458, t16459, t16460, t16461, t16462, t16463, t16464, t16465;
4862   double t16466, t16467, t16468, t16469, t16471, t16472, t16473, t16474;
4863   double t16475, t16476, t16477, t16478, t16479, t16480, t16481, t16482;
4864   double t16483, t16484, t16485, t16486, t16487, t16488, t16489, t16490;
4865   double t16491, t16492, t16493, t16494, t16495, t16496, t16497, t16499;
4866   double t16502, t16506, t16508, t16510, t16512, t16514, t16516, t16518;
4867   double t16520, t16522, t16525, t16526, t16527, t16528, t16529, t16534;
4868   double t16539, t16540, t16547, t16550, t16553, t16554, t16555, t16556;
4869   double t16557, t16558, t16559, t16560, t16561, t16562, t16563, t16564;
4870   double t16566, t16567, t16572, t16575, t16578, t16583, t16588, t16591;
4871   double t16594, t16595, t16596, t16597, t16598, t16599, t16600, t16601;
4872   double t16602, t16607, t16612, t16646, t16649, t16650, t16651, t16654;
4873   double t16657, t16661, t16662, t16663, t16666, t16669, t16672, t16673;
4874   double t16676, t16679, t16686, t16689, t16690, t16691, t16692, t16693;
4875   double t16694, t16699, t16704, t16705, t16709, t16712, t16721, t16724;
4876   double t16727, t16730, t16733, t16736, t16739, t16749, t16752, t16755;
4877   double t16758, t16759, t16760, t16761, t16762, t16763, t16765, t16766;
4878   double t16767, t16768, t16769, t16770, t16771, t16772, t16773, t16774;
4879   double t16775, t16776, t16777, t16778, t16779, t16780, t16781, t16782;
4880   double t16783, t16784, t16785, t16786, t16787, t16788, t16789, t16792;
4881   double t16796, t16804, t16806, t16807, t16809, t16811, t16813, t16815;
4882   double t16817, t16819, t16821, t16823, t16851, t16854, t16884, t16896;
4883   double t16904, t16917, t16930, t16933, t16937, t16972, t16989, t16990;
4884   double t16992, t16993, t16997, t16999, t17001, t17003, t17005, t17007;
4885   double t17009, t17011, t17013, t17015, t17016, t17018, t17024, t17031;
4886   double t17033, t17043, t17053, t17054, t17058, t17062, t17072, t17082;
4887   double t17090, t17091, t17096, t17097, t17102, t17117, t17118, t17135;
4888   double t17151, t17155, t17175, t17180, t17185, t17222, t17230, t17252;
4889   double t17255, t17271, t17273, t17274, t17290, t17298, t17305, t17307;
4890   double t17309, t17311, t17313, t17315, t17317, t17319, t17321, t17325;
4891   double t17341, t17347, t17365, t17371, t17372, t17403, t17426, t17427;
4892   double t17428, t17429, t17430, t17431, t17432, t17433, t17434, t17435;
4893   double t17436, t17437, t17438, t17440, t17441, t17442, t17443, t17444;
4894   double t17445, t17446, t17447, t17448, t17449, t17450, t17454, t17455;
4895   double t17459, t17461, t17463, t17465, t17467, t17469, t17471, t17473;
4896   double t17475, t17494, t17497, t17498, t17499, t17500, t17501, t17502;
4897   double t17503, t17504, t17506, t17507, t17526, t17529, t17530, t17531;
4898   double t17532, t17533, t17535, t17543, t17550, t17587, t17596, t17607;
4899   double t17610, t17611, t17640, t17663, t17664, t17665, t17666, t17667;
4900   double t17668, t17669, t17670, t17671, t17672, t17673, t17674, t17675;
4901   double t17676, t17677, t17678, t17679, t17680, t17681, t17683, t17686;
4902   double t17694, t17697, t17700, t17721, t17732, t17733, t17736, t17739;
4903   double t17744, t17751, t17758, t17759, t17775, t17792, t17798, t17808;
4904   double t17809, t17812, t17813, t17814, t17815, t17827, t17838, t17840;
4905   double t17841, t17843, t17844, t17846, t17848, t17850, t17865, t17868;
4906   double t17871, t17874, t17898, t17900, t17904, t17906, t17908, t17910;
4907   double t17911, t17920, t17921, t17939, t17944, t17945, t17946, t17947;
4908   double t17948, t17954, t17956, t17958, t17960, t17962, t17964, t17966;
4909   double t17968, t17969, t17971, t17973, t17974, t17981, t18003, t18008;
4910   double t18009, t18013, t18023, t18037, t18041, t18045, t18062, t18067;
4911   double t18071, t18074, t18080, t18084, t18106, t18107, t18114, t18119;
4912   double t18144, t18163, t18166, t18169, t18172, t18196, t18198, t18201;
4913   double t18206, t18215, t18222, t18227, t18234, t18257, t18268, t18288;
4914   double t18290, t18292, t18294, t18296, t18298, t18300, t18302, t18303;
4915   double t18305, t18307, t18308, t18343, t18377, t18378, t18380, t18381;
4916   double t18384, t18396, t18414, t18416, t18418, t18420, t18422, t18424;
4917   double t18426, t18428, t18429, t18431, t18433, t18434, t18442, t18462;
4918   double t18463, t18478, t18491, t18509, t18523, t18532, t18566, t18572;
4919   double t18590, t18608, t18613, t18614, t18616, t18617, t18629, t18630;
4920   double t18635, t18651, t18676, t18684, t18716, t18728, t18741, t18743;
4921   double t18745, t18747, t18749, t18751, t18752, t18756, t18758, t18760;
4922   double t18776, t18777, t18779, t18783, t18784, t18811, t18813, t18815;
4923   double t18817, t18819, t18821, t18823, t18825, t18827, t18828, t18832;
4924   double t18833, t18859, t18860, t18870, t18871, t18876, t18891, t18916;
4925   double t18927, t18955, t18958, t18995, t18998, t18999, t19001, t19004;
4926   double t19007, t19020, t19021, t19025, t19028, t19044, t19053, t19057;
4927   double t19069, t19079, t19082, t19092, t19120, t19124, t19130, t19131;
4928   double t19132, t19133, t19150, t19156, t19167, t19170, t19173, t19176;
4929   double t19200, t19210, t19212, t19213, t19215, t19217, t19219, t19222;
4930   double t19224, t19226, t19228, t19229, t19239, t19242, t19262, t19263;
4931   double t19264, t19265, t19266, t19272, t19274, t19276, t19279, t19281;
4932   double t19283, t19285, t19287, t19289, t19291, t19292, t19302, t19321;
4933   double t19326, t19327, t19340, t19344, t19353, t19374, t19376, t19377;
4934   double t19380, t19387, t19401, t19411, t19438, t19442, t19465, t19477;
4935   double t19480, t19483, t19486, t19510, t19519, t19522, t19528, t19531;
4936   double t19533, t19534, t19535, t19538, t19541, t19543, t19545, t19547;
4937   double t19550, t19552, t19554, t19556, t19558, t19559, t19567, t19571;
4938   double t19572, t19576, t19580, t19585, t19588, t19604, t19605, t19620;
4939   double t19621, t19628, t19634, t19635, t19642, t19644, t19658, t19659;
4940   double t19662, t19663, t19666, t19669, t19672, t19678, t19682, t19685;
4941   double t19687, t19688, t19689, t19691, t19693, t19695, t19698, t19702;
4942   double t19705, t19707, t19710, t19712, t19713, t19717, t19718, t19721;
4943   double t19725, t19726, t19729, t19730, t19734, t19744, t19755, t19771;
4944   double t19772, t19787, t19788, t19795, t19801, t19802, t19809, t19811;
4945   double t19820, t19823, t19826, t19829, t19832, t19833, t19840, t19843;
4946   double t19844, t19849, t19850, t19853, t19867, t19868, t19878, t19886;
4947   double t19895, t19896, t19897, t19898, t19899, t19900, t19901, t19902;
4948   double t19903, t19904, t19905, t19906, t19907, t19908, t19909, t19910;
4949   double t19911, t19912, t19913, t19914, t19915, t19916, t19917, t19918;
4950   double t19919, t19920, t19921, t19922, t19924, t19925, t19926, t19927;
4951   double t19928, t19929, t19930, t19931, t19932, t19934, t19947, t19950;
4952   double t19952, t19960, t19961, t19962, t19981, t19987, t19991, t19996;
4953   double t19997, t19998, t19999, t20000, t20001, t20002, t20003, t20004;
4954   double t20005, t20006, t20007, t20008, t20009, t20010, t20011, t20012;
4955   double t20013, t20014, t20015, t20016, t20017, t20018, t20019, t20020;
4956   double t20021, t20022, t20023, t20024, t20025, t20026, t20027, t20028;
4957   double t20029, t20030, t20031, t20032, t20034, t20040, t20052, t20053;
4958   double t20059, t20071, t20078, t20091, t20093, t20094, t20095, t20096;
4959   double t20097, t20098, t20099, t20100, t20101, t20102, t20103, t20104;
4960   double t20105, t20106, t20107, t20108, t20109, t20110, t20111, t20112;
4961   double t20114, t20115, t20118, t20122, t20128, t20142, t20171, t20172;
4962   double t20173, t20175, t20176, t20177, t20178, t20179, t20180, t20181;
4963   double t20182, t20183, t20184, t20185, t20186, t20187, t20188, t20189;
4964   double t20190, t20191, t20192, t20193, t20194, t20196, t20200, t20203;
4965   double t20206, t20217, t20218, t20222, t20233, t20234, t20237, t20241;
4966   double t20242, t20243, t20245, t20246, t20248, t20251, t20252, t20254;
4967   double t20255, t20256, t20261, t20262, t20265, t20266, t20267, t20269;
4968   double t20274, t20275, t20282, t20283, t20285, t20286, t20287, t20288;
4969   double t20289, t20290, t20291, t20292, t20293, t20294, t20305, t20307;
4970   double t20310, t20311, t20314, t20324, t20330, t20331, t20332, t20337;
4971   double t20348, t20354, t20355, t20356, t20357, t20358, t20360, t20361;
4972   double t20363, t20364, t20366, t20367, t20369, t20370, t20371, t20372;
4973   double t20373, t20378, t20379, t20380, t20388, t20389, t20396, t20397;
4974   double t20398, t20399, t20400, t20401, t20402, t20403, t20404, t20405;
4975   double t20416, t20420, t20432, t20437, t20440, t20443, t20445, t20458;
4976   double t20468, t20479, t20482, t20484, t20487, t20500, t20501, t20502;
4977   double t20503, t20504, t20505, t20506, t20507, t20508, t20509, t20510;
4978   double t20511, t20512, t20513, t20514, t20515, t20516, t20517, t20533;
4979   double t20535, t20538, t20541, t20544, t20548, t20550, t20554, t20566;
4980   double t20596, t20599, t20601, t20602, t20603, t20604, t20605, t20606;
4981   double t20607, t20608, t20609, t20610, t20611, t20612, t20613, t20614;
4982   double t20615, t20616, t20617, t20618, t20620, t20635, t20641, t20642;
4983   double t20649, t20650, t20651, t20654, t20667, t20675, t20677, t20678;
4984   double t20681, t20682, t20683, t20684, t20685, t20687, t20688, t20690;
4985   double t20691, t20694, t20695, t20696, t20698, t20705, t20714, t20716;
4986   double t20719, t20724, t20725, t20727, t20729, t20730, t20731, t20732;
4987   double t20733, t20735, t20736, t20737, t20738, t20739, t20744, t20745;
4988   double t20749, t20753, t20754, t20756, t20757, t20772, t20782, t20793;
4989   double t20802, t20810, t20812, t20822, t20826, t20829, t20830, t20833;
4990   double t20853, t20860, t20865, t20870, t20872, t20873, t20874, t20875;
4991   double t20876, t20877, t20878, t20879, t20880, t20882, t20886, t20898;
4992   double t20901, t20904, t20907, t20919, t20921, t20928, t20930, t20934;
4993   double t20937, t20948, t20949, t20956, t20963, t20980, t20987, t20989;
4994   double t20990, t20991, t20992, t20993, t20994, t20995, t20996, t20997;
4995   double t20999, t21005, t21017, t21020, t21023, t21026, t21038, t21040;
4996   double t21045, t21055, t21057, t21076, t21111, t21114, t21115, t21116;
4997   double t21117, t21118, t21119, t21120, t21121, t21129, t21131, t21141;
4998   double t21143, t21162, t21197, t21198, t21199, t21200, t21201, t21202;
4999   double t21203, t21206, t21207, t21214, t21217, t21231, t21238, t21241;
5000   double t21244, t21245, t21276, t21279, t21290, t21292, t21295, t21298;
5001   double t21321, t21348, t21349, t21352, t21363, t21365, t21375, t21386;
5002   double t21387, t21391, t21394, t21400, t21420, t21421, t21422, t21423;
5003   double t21424, t21426, t21427, t21428, t21429, t21430, t21432, t21465;
5004   double t21472, t21474, t21493, t21500, t21503, t21506, t21507, t21519;
5005   double t21529, t21530, t21531, t21532, t21533, t21535, t21536, t21537;
5006   double t21538, t21539, t21541, t21572, t21581, t21594, t21595, t21602;
5007   double t21606, t21610, t21611, t21615, t21618, t21635, t21654, t21667;
5008   double t21674, t21678, t21685, t21687, t21690, t21706, t21707, t21711;
5009   double t21715, t21716, t21717, t21720, t21730, t21734, t21753, t21766;
5010   double t21773, t21777, t21784, t21786, t21798, t21802, t21823, t21826;
5011   double t21846, t21850, t21858, t21860, t21861, t21862, t21863, t21864;
5012   double t21865, t21866, t21867, t21868, t21869, t21870, t21877, t21889;
5013   double t21895, t21898, t21900, t21931, t21933, t21934, t21935, t21936;
5014   double t21937, t21938, t21939, t21940, t21941, t21942, t21943, t21945;
5015   double t21948, t21949, t21953, t21962, t21979, t22003, t22008, t22016;
5016   double t22022, t22035, t22042, t22050, t22053, t22054, t22055, t22077;
5017   double t22086, t22090, t22092, t22112, t22115, t22122, t22135, t22148;
5018   double t22150, t22167, t22170, t22173, t22185, t22196, t22198, t22205;
5019   double t22224, t22227, t22228, t22254, t22256, t22279, t22282, t22285;
5020   double t22297, t22302, t22314, t22315, t22324, t22337, t22348, t22355;
5021   double t22360, t22363, t22369, t22376, t22377, t22380, t22383, t22411;
5022   double t22422, t22423, t22424, t22427, t22434, t22440, t22453, t22454;
5023   double t22457, t22482, t22495, t22506, t22513, t22519;
5024 #endif
5025 
5026 #endif
5027 
5028 #endif
5029 
5030 #endif
5031 
5032 #endif
5033 
5034 
5035 
5036   t2 = rho[0] - rho[1];
5037   t3 = rho[0] + rho[1];
5038   t4 = 0.1e1 / t3;
5039   t5 = t2 * t4;
5040   t7 = 0.1e1 / 0.2e1 + t5 / 0.2e1;
5041   t8 = sqrt(t7);
5042   t9 = t8 * t7;
5043   t10 = M_PI * t9;
5044   t11 = sqrt(t3);
5045   t12 = rho[0] * rho[0];
5046   t13 = 0.1e1 / t12;
5047   t17 = t12 * rho[0];
5048   t18 = 0.1e1 / t17;
5049   t22 = 0.1e1 / M_PI;
5050   t23 = (lapl[0] * t13 / 0.4e1 - tau[0] * t13 + sigma[0] * t18 / 0.8e1) * t22;
5051   t24 = -0.9999999999e0 < t23;
5052   t25 = my_piecewise3(t24, t23, -0.9999999999e0);
5053   t26 = exp(-0.1e1);
5054   t28 = LambertW(t25 * t26);
5055   t29 = t28 + 0.1e1;
5056   t30 = t29 / 0.2e1;
5057   t31 = xc_bessel_I0(t30);
5058   t32 = t11 * t31;
5059   t33 = t10 * t32;
5060   t35 = 0.1e1 / 0.2e1 - t5 / 0.2e1;
5061   t36 = sqrt(t35);
5062   t37 = t36 * t35;
5063   t38 = M_PI * t37;
5064   t39 = rho[1] * rho[1];
5065   t40 = 0.1e1 / t39;
5066   t44 = t39 * rho[1];
5067   t45 = 0.1e1 / t44;
5068   t49 = (lapl[1] * t40 / 0.4e1 - tau[1] * t40 + sigma[2] * t45 / 0.8e1) * t22;
5069   t50 = -0.9999999999e0 < t49;
5070   t51 = my_piecewise3(t50, t49, -0.9999999999e0);
5071   t53 = LambertW(t51 * t26);
5072   t54 = t53 + 0.1e1;
5073   t55 = t54 / 0.2e1;
5074   t56 = xc_bessel_I0(t55);
5075   t57 = t11 * t56;
5076   t58 = t38 * t57;
5077   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
5078     zk[0] = -t33 / 0.2e1 - t58 / 0.2e1;
5079 
5080 #ifndef XC_DONT_COMPILE_VXC
5081 
5082   if(order < 1) return;
5083 
5084 
5085   t60 = t33 / 0.2e1;
5086   t61 = t58 / 0.2e1;
5087   t62 = M_PI * t8;
5088   t63 = t3 * t3;
5089   t64 = 0.1e1 / t63;
5090   t65 = t2 * t64;
5091   t67 = t4 / 0.2e1 - t65 / 0.2e1;
5092   t69 = t62 * t32 * t67;
5093   t70 = 0.3e1 / 0.4e1 * t69;
5094   t71 = 0.1e1 / t11;
5095   t72 = t71 * t31;
5096   t73 = t10 * t72;
5097   t74 = t73 / 0.4e1;
5098   t75 = xc_bessel_I1(t30);
5099   t76 = t11 * t75;
5100   t77 = t10 * t76;
5101   t82 = t12 * t12;
5102   t83 = 0.1e1 / t82;
5103   t88 = my_piecewise3(t24, (-lapl[0] * t18 / 0.2e1 + 0.2e1 * tau[0] * t18 - 0.3e1 / 0.8e1 * sigma[0] * t83) * t22, 0);
5104   t89 = t88 * t28;
5105   t90 = 0.1e1 / t29;
5106   t91 = 0.1e1 / t25;
5107   t92 = t90 * t91;
5108   t93 = t89 * t92;
5109   t94 = t77 * t93;
5110   t95 = t94 / 0.4e1;
5111   t96 = M_PI * t36;
5112   t97 = -t67;
5113   t99 = t96 * t57 * t97;
5114   t100 = 0.3e1 / 0.4e1 * t99;
5115   t101 = t71 * t56;
5116   t102 = t38 * t101;
5117   t103 = t102 / 0.4e1;
5118   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5119     vrho[0] = -t60 - t61 + t3 * (-t70 - t74 - t95 - t100 - t103);
5120 
5121   t107 = -t4 / 0.2e1 - t65 / 0.2e1;
5122   t109 = t62 * t32 * t107;
5123   t110 = 0.3e1 / 0.4e1 * t109;
5124   t111 = -t107;
5125   t113 = t96 * t57 * t111;
5126   t114 = 0.3e1 / 0.4e1 * t113;
5127   t115 = xc_bessel_I1(t55);
5128   t116 = t11 * t115;
5129   t117 = t38 * t116;
5130   t122 = t39 * t39;
5131   t123 = 0.1e1 / t122;
5132   t128 = my_piecewise3(t50, (-lapl[1] * t45 / 0.2e1 + 0.2e1 * tau[1] * t45 - 0.3e1 / 0.8e1 * sigma[2] * t123) * t22, 0);
5133   t129 = t128 * t53;
5134   t130 = 0.1e1 / t54;
5135   t131 = 0.1e1 / t51;
5136   t132 = t130 * t131;
5137   t133 = t129 * t132;
5138   t134 = t117 * t133;
5139   t135 = t134 / 0.4e1;
5140   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5141     vrho[1] = -t60 - t61 + t3 * (-t110 - t74 - t114 - t103 - t135);
5142 
5143   t138 = t11 * t3;
5144   t139 = t138 * M_PI;
5145   t140 = t9 * t75;
5146   t141 = t139 * t140;
5147   t142 = t18 * t22;
5148   t144 = my_piecewise3(t24, t142 / 0.8e1, 0);
5149   t145 = t144 * t28;
5150   t146 = t145 * t92;
5151   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5152     vsigma[0] = -t141 * t146 / 0.4e1;
5153 
5154   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5155     vsigma[1] = 0.0e0;
5156 
5157   t149 = t37 * t115;
5158   t150 = t139 * t149;
5159   t151 = t45 * t22;
5160   t153 = my_piecewise3(t50, t151 / 0.8e1, 0);
5161   t154 = t153 * t53;
5162   t155 = t154 * t132;
5163   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5164     vsigma[2] = -t150 * t155 / 0.4e1;
5165 
5166   t158 = t13 * t22;
5167   t160 = my_piecewise3(t24, t158 / 0.4e1, 0);
5168   t161 = t160 * t28;
5169   t162 = t161 * t92;
5170   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
5171     vlapl[0] = -t141 * t162 / 0.4e1;
5172 
5173   t165 = t40 * t22;
5174   t167 = my_piecewise3(t50, t165 / 0.4e1, 0);
5175   t168 = t167 * t53;
5176   t169 = t168 * t132;
5177   if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
5178     vlapl[1] = -t150 * t169 / 0.4e1;
5179 
5180   t172 = my_piecewise3(t24, -t158, 0);
5181   t173 = t172 * t28;
5182   t174 = t173 * t92;
5183   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5184     vtau[0] = -t141 * t174 / 0.4e1;
5185 
5186   t177 = my_piecewise3(t50, -t165, 0);
5187   t178 = t177 * t53;
5188   t179 = t178 * t132;
5189   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
5190     vtau[1] = -t150 * t179 / 0.4e1;
5191 
5192 #ifndef XC_DONT_COMPILE_FXC
5193 
5194   if(order < 2) return;
5195 
5196 
5197   t183 = t73 / 0.2e1;
5198   t186 = t102 / 0.2e1;
5199   t187 = 0.1e1 / t8;
5200   t188 = M_PI * t187;
5201   t189 = t67 * t67;
5202   t191 = t188 * t32 * t189;
5203   t192 = 0.3e1 / 0.8e1 * t191;
5204   t194 = t62 * t72 * t67;
5205   t195 = 0.3e1 / 0.4e1 * t194;
5206   t196 = t62 * t76;
5207   t197 = t92 * t67;
5208   t198 = t89 * t197;
5209   t199 = t196 * t198;
5210   t200 = 0.3e1 / 0.4e1 * t199;
5211   t201 = t63 * t3;
5212   t202 = 0.1e1 / t201;
5213   t203 = t2 * t202;
5214   t204 = -t64 + t203;
5215   t206 = t62 * t32 * t204;
5216   t207 = 0.3e1 / 0.4e1 * t206;
5217   t208 = 0.1e1 / t138;
5218   t209 = t208 * t31;
5219   t210 = t10 * t209;
5220   t211 = t210 / 0.8e1;
5221   t212 = t71 * t75;
5222   t213 = t10 * t212;
5223   t214 = t213 * t93;
5224   t215 = t214 / 0.4e1;
5225   t216 = 0.1e1 / t30;
5226   t218 = -t216 * t75 + t31;
5227   t219 = t11 * t218;
5228   t220 = t10 * t219;
5229   t221 = t88 * t88;
5230   t222 = t28 * t28;
5231   t223 = t221 * t222;
5232   t224 = t29 * t29;
5233   t225 = 0.1e1 / t224;
5234   t226 = t25 * t25;
5235   t227 = 0.1e1 / t226;
5236   t228 = t225 * t227;
5237   t229 = t223 * t228;
5238   t230 = t220 * t229;
5239   t231 = t230 / 0.8e1;
5240   t237 = 0.1e1 / t82 / rho[0];
5241   t242 = my_piecewise3(t24, (0.3e1 / 0.2e1 * lapl[0] * t83 - 0.6e1 * tau[0] * t83 + 0.3e1 / 0.2e1 * sigma[0] * t237) * t22, 0);
5242   t243 = t242 * t28;
5243   t244 = t243 * t92;
5244   t245 = t77 * t244;
5245   t246 = t245 / 0.4e1;
5246   t247 = t221 * t28;
5247   t248 = t247 * t228;
5248   t249 = t77 * t248;
5249   t250 = t249 / 0.4e1;
5250   t251 = t224 * t29;
5251   t252 = 0.1e1 / t251;
5252   t253 = t252 * t227;
5253   t254 = t223 * t253;
5254   t255 = t77 * t254;
5255   t256 = t255 / 0.4e1;
5256   t257 = t90 * t227;
5257   t258 = t247 * t257;
5258   t259 = t77 * t258;
5259   t260 = t259 / 0.4e1;
5260   t261 = 0.1e1 / t36;
5261   t262 = M_PI * t261;
5262   t263 = t97 * t97;
5263   t265 = t262 * t57 * t263;
5264   t266 = 0.3e1 / 0.8e1 * t265;
5265   t268 = t96 * t101 * t97;
5266   t269 = 0.3e1 / 0.4e1 * t268;
5267   t270 = -t204;
5268   t272 = t96 * t57 * t270;
5269   t273 = 0.3e1 / 0.4e1 * t272;
5270   t274 = t208 * t56;
5271   t275 = t38 * t274;
5272   t276 = t275 / 0.8e1;
5273   t277 = -t192 - t195 - t200 - t207 + t211 - t215 - t231 - t246 - t250 + t256 + t260 - t266 - t269 - t273 + t276;
5274   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5275     v2rho2[0] = -0.3e1 / 0.2e1 * t69 - t183 - t94 / 0.2e1 - 0.3e1 / 0.2e1 * t99 - t186 + t3 * t277;
5276 
5277   t279 = t188 * t11;
5278   t280 = t31 * t107;
5279   t281 = t280 * t67;
5280   t282 = t279 * t281;
5281   t285 = t62 * t72 * t107;
5282   t287 = t92 * t107;
5283   t288 = t89 * t287;
5284   t289 = t196 * t288;
5285   t292 = 0.1e1 / t11 / t63;
5286   t293 = t292 * t31;
5287   t295 = t62 * t293 * t2;
5288   t299 = t262 * t11;
5289   t300 = t56 * t111;
5290   t301 = t300 * t97;
5291   t302 = t299 * t301;
5292   t305 = t96 * t101 * t111;
5293   t307 = t292 * t56;
5294   t309 = t96 * t307 * t2;
5295   t312 = t96 * t116;
5296   t313 = t132 * t97;
5297   t314 = t129 * t313;
5298   t315 = t312 * t314;
5299   t317 = t71 * t115;
5300   t318 = t38 * t317;
5301   t319 = t318 * t133;
5302   t321 = -0.3e1 / 0.8e1 * t282 - 0.3e1 / 0.8e1 * t285 - 0.3e1 / 0.8e1 * t289 - 0.3e1 / 0.4e1 * t295 - 0.3e1 / 0.8e1 * t194 + t211 - t214 / 0.8e1 - 0.3e1 / 0.8e1 * t302 - 0.3e1 / 0.8e1 * t305 + 0.3e1 / 0.4e1 * t309 - 0.3e1 / 0.8e1 * t268 + t276 - 0.3e1 / 0.8e1 * t315 - t319 / 0.8e1;
5303   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5304     v2rho2[1] = t3 * t321 - t100 - t110 - t114 - t135 - t183 - t186 - t70 - t95;
5305 
5306   t326 = t107 * t107;
5307   t328 = t188 * t32 * t326;
5308   t329 = 0.3e1 / 0.8e1 * t328;
5309   t330 = 0.3e1 / 0.4e1 * t285;
5310   t331 = t64 + t203;
5311   t333 = t62 * t32 * t331;
5312   t334 = 0.3e1 / 0.4e1 * t333;
5313   t335 = t111 * t111;
5314   t337 = t262 * t57 * t335;
5315   t338 = 0.3e1 / 0.8e1 * t337;
5316   t339 = 0.3e1 / 0.4e1 * t305;
5317   t340 = t132 * t111;
5318   t341 = t129 * t340;
5319   t342 = t312 * t341;
5320   t343 = 0.3e1 / 0.4e1 * t342;
5321   t344 = -t331;
5322   t346 = t96 * t57 * t344;
5323   t347 = 0.3e1 / 0.4e1 * t346;
5324   t348 = t319 / 0.4e1;
5325   t349 = 0.1e1 / t55;
5326   t351 = -t115 * t349 + t56;
5327   t352 = t11 * t351;
5328   t353 = t38 * t352;
5329   t354 = t128 * t128;
5330   t355 = t53 * t53;
5331   t356 = t354 * t355;
5332   t357 = t54 * t54;
5333   t358 = 0.1e1 / t357;
5334   t359 = t51 * t51;
5335   t360 = 0.1e1 / t359;
5336   t361 = t358 * t360;
5337   t362 = t356 * t361;
5338   t363 = t353 * t362;
5339   t364 = t363 / 0.8e1;
5340   t370 = 0.1e1 / t122 / rho[1];
5341   t375 = my_piecewise3(t50, (0.3e1 / 0.2e1 * lapl[1] * t123 - 0.6e1 * tau[1] * t123 + 0.3e1 / 0.2e1 * sigma[2] * t370) * t22, 0);
5342   t376 = t375 * t53;
5343   t377 = t376 * t132;
5344   t378 = t117 * t377;
5345   t379 = t378 / 0.4e1;
5346   t380 = t354 * t53;
5347   t381 = t380 * t361;
5348   t382 = t117 * t381;
5349   t383 = t382 / 0.4e1;
5350   t384 = t357 * t54;
5351   t385 = 0.1e1 / t384;
5352   t386 = t385 * t360;
5353   t387 = t356 * t386;
5354   t388 = t117 * t387;
5355   t389 = t388 / 0.4e1;
5356   t390 = t130 * t360;
5357   t391 = t380 * t390;
5358   t392 = t117 * t391;
5359   t393 = t392 / 0.4e1;
5360   t394 = -t329 - t330 - t334 + t211 - t338 - t339 - t343 - t347 + t276 - t348 - t364 - t379 - t383 + t389 + t393;
5361   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5362     v2rho2[2] = -0.3e1 / 0.2e1 * t109 - t183 - 0.3e1 / 0.2e1 * t113 - t186 - t134 / 0.2e1 + t3 * t394;
5363 
5364   t396 = t77 * t146;
5365   t398 = t8 * t75;
5366   t399 = t139 * t398;
5367   t400 = t145 * t197;
5368   t403 = t9 * t218;
5369   t404 = t139 * t403;
5370   t405 = t88 * t222;
5371   t406 = t228 * t144;
5372   t407 = t405 * t406;
5373   t410 = t83 * t22;
5374   t412 = my_piecewise3(t24, -0.3e1 / 0.8e1 * t410, 0);
5375   t413 = t412 * t28;
5376   t414 = t413 * t92;
5377   t417 = t144 * t88;
5378   t418 = t28 * t225;
5379   t419 = t418 * t227;
5380   t420 = t417 * t419;
5381   t423 = t144 * t222;
5382   t424 = t253 * t88;
5383   t425 = t423 * t424;
5384   t428 = t257 * t88;
5385   t429 = t145 * t428;
5386   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5387     v2rhosigma[0] = -0.3e1 / 0.8e1 * t396 - 0.3e1 / 0.8e1 * t399 * t400 - t404 * t407 / 0.8e1 - t141 * t414 / 0.4e1 - t141 * t420 / 0.4e1 + t141 * t425 / 0.4e1 + t141 * t429 / 0.4e1;
5388 
5389   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5390     v2rhosigma[1] = 0.0e0;
5391 
5392   t432 = t117 * t155;
5393   t433 = t36 * t115;
5394   t434 = t139 * t433;
5395   t435 = t154 * t313;
5396   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5397     v2rhosigma[2] = -0.3e1 / 0.8e1 * t434 * t435 - 0.3e1 / 0.8e1 * t432;
5398 
5399   t438 = t145 * t287;
5400   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5401     v2rhosigma[3] = -0.3e1 / 0.8e1 * t399 * t438 - 0.3e1 / 0.8e1 * t396;
5402 
5403   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5404     v2rhosigma[4] = 0.0e0;
5405 
5406   t442 = t154 * t340;
5407   t445 = t37 * t351;
5408   t446 = t139 * t445;
5409   t447 = t128 * t355;
5410   t448 = t361 * t153;
5411   t449 = t447 * t448;
5412   t452 = t123 * t22;
5413   t454 = my_piecewise3(t50, -0.3e1 / 0.8e1 * t452, 0);
5414   t455 = t454 * t53;
5415   t456 = t455 * t132;
5416   t459 = t153 * t128;
5417   t460 = t53 * t358;
5418   t461 = t460 * t360;
5419   t462 = t459 * t461;
5420   t465 = t153 * t355;
5421   t466 = t386 * t128;
5422   t467 = t465 * t466;
5423   t470 = t390 * t128;
5424   t471 = t154 * t470;
5425   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5426     v2rhosigma[5] = -0.3e1 / 0.8e1 * t432 - 0.3e1 / 0.8e1 * t434 * t442 - t446 * t449 / 0.8e1 - t150 * t456 / 0.4e1 - t150 * t462 / 0.4e1 + t150 * t467 / 0.4e1 + t150 * t471 / 0.4e1;
5427 
5428   t474 = t77 * t162;
5429   t476 = t161 * t197;
5430   t479 = t228 * t160;
5431   t480 = t405 * t479;
5432   t484 = my_piecewise3(t24, -t142 / 0.2e1, 0);
5433   t485 = t484 * t28;
5434   t486 = t485 * t92;
5435   t489 = t160 * t88;
5436   t490 = t489 * t419;
5437   t493 = t160 * t222;
5438   t494 = t493 * t424;
5439   t497 = t161 * t428;
5440   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5441     v2rholapl[0] = -0.3e1 / 0.8e1 * t474 - 0.3e1 / 0.8e1 * t399 * t476 - t404 * t480 / 0.8e1 - t141 * t486 / 0.4e1 - t141 * t490 / 0.4e1 + t141 * t494 / 0.4e1 + t141 * t497 / 0.4e1;
5442 
5443   t500 = t117 * t169;
5444   t501 = t168 * t313;
5445   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5446     v2rholapl[1] = -0.3e1 / 0.8e1 * t434 * t501 - 0.3e1 / 0.8e1 * t500;
5447 
5448   t504 = t161 * t287;
5449   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5450     v2rholapl[2] = -0.3e1 / 0.8e1 * t399 * t504 - 0.3e1 / 0.8e1 * t474;
5451 
5452   t508 = t168 * t340;
5453   t511 = t361 * t167;
5454   t512 = t447 * t511;
5455   t516 = my_piecewise3(t50, -t151 / 0.2e1, 0);
5456   t517 = t516 * t53;
5457   t518 = t517 * t132;
5458   t521 = t167 * t128;
5459   t522 = t521 * t461;
5460   t525 = t167 * t355;
5461   t526 = t525 * t466;
5462   t529 = t168 * t470;
5463   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5464     v2rholapl[3] = -0.3e1 / 0.8e1 * t500 - 0.3e1 / 0.8e1 * t434 * t508 - t446 * t512 / 0.8e1 - t150 * t518 / 0.4e1 - t150 * t522 / 0.4e1 + t150 * t526 / 0.4e1 + t150 * t529 / 0.4e1;
5465 
5466   t532 = t77 * t174;
5467   t534 = t173 * t197;
5468   t537 = t228 * t172;
5469   t538 = t405 * t537;
5470   t542 = my_piecewise3(t24, 0.2e1 * t142, 0);
5471   t543 = t542 * t28;
5472   t544 = t543 * t92;
5473   t547 = t172 * t88;
5474   t548 = t547 * t419;
5475   t551 = t172 * t222;
5476   t552 = t551 * t424;
5477   t555 = t173 * t428;
5478   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5479     v2rhotau[0] = -0.3e1 / 0.8e1 * t532 - 0.3e1 / 0.8e1 * t399 * t534 - t404 * t538 / 0.8e1 - t141 * t544 / 0.4e1 - t141 * t548 / 0.4e1 + t141 * t552 / 0.4e1 + t141 * t555 / 0.4e1;
5480 
5481   t558 = t117 * t179;
5482   t559 = t178 * t313;
5483   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5484     v2rhotau[1] = -0.3e1 / 0.8e1 * t434 * t559 - 0.3e1 / 0.8e1 * t558;
5485 
5486   t562 = t173 * t287;
5487   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5488     v2rhotau[2] = -0.3e1 / 0.8e1 * t399 * t562 - 0.3e1 / 0.8e1 * t532;
5489 
5490   t566 = t178 * t340;
5491   t569 = t361 * t177;
5492   t570 = t447 * t569;
5493   t574 = my_piecewise3(t50, 0.2e1 * t151, 0);
5494   t575 = t574 * t53;
5495   t576 = t575 * t132;
5496   t579 = t177 * t128;
5497   t580 = t579 * t461;
5498   t583 = t177 * t355;
5499   t584 = t583 * t466;
5500   t587 = t178 * t470;
5501   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5502     v2rhotau[3] = -0.3e1 / 0.8e1 * t558 - 0.3e1 / 0.8e1 * t434 * t566 - t446 * t570 / 0.8e1 - t150 * t576 / 0.4e1 - t150 * t580 / 0.4e1 + t150 * t584 / 0.4e1 + t150 * t587 / 0.4e1;
5503 
5504   t590 = t144 * t144;
5505   t591 = t590 * t222;
5506   t592 = t591 * t228;
5507   t595 = my_piecewise3(t24, 0, 0);
5508   t596 = t595 * t28;
5509   t597 = t596 * t92;
5510   t599 = t141 * t597 / 0.4e1;
5511   t600 = t590 * t28;
5512   t601 = t600 * t228;
5513   t604 = t591 * t253;
5514   t607 = t600 * t257;
5515   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5516     v2sigma2[0] = -t404 * t592 / 0.8e1 - t599 - t141 * t601 / 0.4e1 + t141 * t604 / 0.4e1 + t141 * t607 / 0.4e1;
5517 
5518   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5519     v2sigma2[1] = 0.0e0;
5520 
5521   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5522     v2sigma2[2] = 0.0e0;
5523 
5524   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5525     v2sigma2[3] = 0.0e0;
5526 
5527   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5528     v2sigma2[4] = 0.0e0;
5529 
5530   t610 = t153 * t153;
5531   t611 = t610 * t355;
5532   t612 = t611 * t361;
5533   t615 = my_piecewise3(t50, 0, 0);
5534   t616 = t615 * t53;
5535   t617 = t616 * t132;
5536   t619 = t150 * t617 / 0.4e1;
5537   t620 = t610 * t53;
5538   t621 = t620 * t361;
5539   t624 = t611 * t386;
5540   t627 = t620 * t390;
5541   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5542     v2sigma2[5] = -t446 * t612 / 0.8e1 - t619 - t150 * t621 / 0.4e1 + t150 * t624 / 0.4e1 + t150 * t627 / 0.4e1;
5543 
5544   t630 = t423 * t479;
5545   t633 = t160 * t144;
5546   t634 = t633 * t419;
5547   t637 = t253 * t144;
5548   t638 = t493 * t637;
5549   t641 = t257 * t144;
5550   t642 = t161 * t641;
5551   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5552     v2sigmalapl[0] = -t404 * t630 / 0.8e1 - t599 - t141 * t634 / 0.4e1 + t141 * t638 / 0.4e1 + t141 * t642 / 0.4e1;
5553 
5554   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5555     v2sigmalapl[1] = 0.0e0;
5556 
5557   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5558     v2sigmalapl[2] = 0.0e0;
5559 
5560   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5561     v2sigmalapl[3] = 0.0e0;
5562 
5563   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5564     v2sigmalapl[4] = 0.0e0;
5565 
5566   t645 = t465 * t511;
5567   t648 = t167 * t153;
5568   t649 = t648 * t461;
5569   t652 = t386 * t153;
5570   t653 = t525 * t652;
5571   t656 = t390 * t153;
5572   t657 = t168 * t656;
5573   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5574     v2sigmalapl[5] = -t446 * t645 / 0.8e1 - t619 - t150 * t649 / 0.4e1 + t150 * t653 / 0.4e1 + t150 * t657 / 0.4e1;
5575 
5576   t660 = t423 * t537;
5577   t663 = t172 * t144;
5578   t664 = t663 * t419;
5579   t667 = t551 * t637;
5580   t670 = t173 * t641;
5581   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5582     v2sigmatau[0] = -t404 * t660 / 0.8e1 - t599 - t141 * t664 / 0.4e1 + t141 * t667 / 0.4e1 + t141 * t670 / 0.4e1;
5583 
5584   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5585     v2sigmatau[1] = 0.0e0;
5586 
5587   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5588     v2sigmatau[2] = 0.0e0;
5589 
5590   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5591     v2sigmatau[3] = 0.0e0;
5592 
5593   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5594     v2sigmatau[4] = 0.0e0;
5595 
5596   t673 = t465 * t569;
5597   t676 = t177 * t153;
5598   t677 = t676 * t461;
5599   t680 = t583 * t652;
5600   t683 = t178 * t656;
5601   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5602     v2sigmatau[5] = -t446 * t673 / 0.8e1 - t619 - t150 * t677 / 0.4e1 + t150 * t680 / 0.4e1 + t150 * t683 / 0.4e1;
5603 
5604   t686 = t160 * t160;
5605   t687 = t686 * t222;
5606   t688 = t687 * t228;
5607   t691 = t686 * t28;
5608   t692 = t691 * t228;
5609   t695 = t687 * t253;
5610   t698 = t691 * t257;
5611   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5612     v2lapl2[0] = -t404 * t688 / 0.8e1 - t599 - t141 * t692 / 0.4e1 + t141 * t695 / 0.4e1 + t141 * t698 / 0.4e1;
5613 
5614   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5615     v2lapl2[1] = 0.0e0;
5616 
5617   t701 = t167 * t167;
5618   t702 = t701 * t355;
5619   t703 = t702 * t361;
5620   t706 = t701 * t53;
5621   t707 = t706 * t361;
5622   t710 = t702 * t386;
5623   t713 = t706 * t390;
5624   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5625     v2lapl2[2] = -t446 * t703 / 0.8e1 - t619 - t150 * t707 / 0.4e1 + t150 * t710 / 0.4e1 + t150 * t713 / 0.4e1;
5626 
5627   t716 = t493 * t537;
5628   t719 = t172 * t160;
5629   t720 = t719 * t419;
5630   t723 = t253 * t160;
5631   t724 = t551 * t723;
5632   t727 = t257 * t160;
5633   t728 = t173 * t727;
5634   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5635     v2lapltau[0] = -t404 * t716 / 0.8e1 - t599 - t141 * t720 / 0.4e1 + t141 * t724 / 0.4e1 + t141 * t728 / 0.4e1;
5636 
5637   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5638     v2lapltau[1] = 0.0e0;
5639 
5640   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5641     v2lapltau[2] = 0.0e0;
5642 
5643   t731 = t525 * t569;
5644   t734 = t177 * t167;
5645   t735 = t734 * t461;
5646   t738 = t386 * t167;
5647   t739 = t583 * t738;
5648   t742 = t390 * t167;
5649   t743 = t178 * t742;
5650   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
5651     v2lapltau[3] = -t446 * t731 / 0.8e1 - t619 - t150 * t735 / 0.4e1 + t150 * t739 / 0.4e1 + t150 * t743 / 0.4e1;
5652 
5653   t746 = t172 * t172;
5654   t747 = t746 * t222;
5655   t748 = t747 * t228;
5656   t751 = t746 * t28;
5657   t752 = t751 * t228;
5658   t755 = t747 * t253;
5659   t758 = t751 * t257;
5660   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5661     v2tau2[0] = -t404 * t748 / 0.8e1 - t599 - t141 * t752 / 0.4e1 + t141 * t755 / 0.4e1 + t141 * t758 / 0.4e1;
5662 
5663   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5664     v2tau2[1] = 0.0e0;
5665 
5666   t761 = t177 * t177;
5667   t762 = t761 * t355;
5668   t763 = t762 * t361;
5669   t766 = t761 * t53;
5670   t767 = t766 * t361;
5671   t770 = t762 * t386;
5672   t773 = t766 * t390;
5673   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
5674     v2tau2[2] = -t446 * t763 / 0.8e1 - t619 - t150 * t767 / 0.4e1 + t150 * t770 / 0.4e1 + t150 * t773 / 0.4e1;
5675 
5676 #ifndef XC_DONT_COMPILE_KXC
5677 
5678   if(order < 3) return;
5679 
5680 
5681   t781 = t405 * t228 * t242;
5682   t782 = t220 * t781;
5683   t783 = 0.3e1 / 0.8e1 * t782;
5684   t784 = t243 * t428;
5685   t785 = t77 * t784;
5686   t786 = 0.3e1 / 0.4e1 * t785;
5687   t787 = t188 * t76;
5688   t788 = t92 * t189;
5689   t789 = t89 * t788;
5690   t790 = t787 * t789;
5691   t791 = 0.9e1 / 0.16e2 * t790;
5692   t792 = t62 * t212;
5693   t793 = t792 * t198;
5694   t795 = t243 * t197;
5695   t796 = t196 * t795;
5696   t797 = 0.9e1 / 0.8e1 * t796;
5697   t798 = t92 * t204;
5698   t799 = t89 * t798;
5699   t800 = t196 * t799;
5700   t801 = 0.9e1 / 0.8e1 * t800;
5701   t802 = t62 * t219;
5702   t803 = t228 * t67;
5703   t804 = t223 * t803;
5704   t805 = t802 * t804;
5705   t806 = 0.9e1 / 0.16e2 * t805;
5706   t807 = t247 * t803;
5707   t808 = t196 * t807;
5708   t809 = 0.9e1 / 0.8e1 * t808;
5709   t810 = t242 * t222;
5710   t811 = t810 * t424;
5711   t812 = t77 * t811;
5712   t813 = 0.3e1 / 0.4e1 * t812;
5713   t815 = t242 * t88 * t419;
5714   t816 = t77 * t815;
5715   t817 = 0.3e1 / 0.4e1 * t816;
5716   t819 = t253 * t67;
5717   t820 = t223 * t819;
5718   t821 = t196 * t820;
5719   t822 = 0.9e1 / 0.8e1 * t821;
5720   t823 = t257 * t67;
5721   t824 = t247 * t823;
5722   t825 = t196 * t824;
5723   t826 = 0.9e1 / 0.8e1 * t825;
5724   t828 = t56 * t97 * t270;
5725   t829 = t299 * t828;
5726   t830 = 0.9e1 / 0.8e1 * t829;
5727   t832 = t31 * t67 * t204;
5728   t833 = t279 * t832;
5729   t834 = 0.9e1 / 0.8e1 * t833;
5730   t835 = t213 * t258;
5731   t838 = t10 * t208 * t75;
5732   t839 = t838 * t93;
5733   t840 = 0.3e1 / 0.16e2 * t839;
5734   t841 = t213 * t244;
5735   t843 = t71 * t218;
5736   t844 = t10 * t843;
5737   t845 = t844 * t229;
5738   t848 = t28 * t90;
5739   t849 = t848 * t91;
5740   t851 = t30 * t30;
5741   t852 = 0.1e1 / t851;
5742   t853 = t852 * t75;
5743   t856 = t216 * t218;
5744   t860 = t75 * t88 * t849 / 0.2e1 + t853 * t88 * t849 / 0.2e1 - t856 * t88 * t849 / 0.2e1;
5745   t861 = t11 * t860;
5746   t862 = t10 * t861;
5747   t863 = t862 * t229;
5748   t864 = t863 / 0.8e1;
5749   t865 = t213 * t254;
5750   t867 = t221 * t88;
5751   t868 = t867 * t222;
5752   t870 = 0.1e1 / t226 / t25;
5753   t871 = t252 * t870;
5754   t872 = t868 * t871;
5755   t873 = t220 * t872;
5756   t874 = 0.3e1 / 0.8e1 * t873;
5757   t875 = t822 + t826 - t830 - t834 + 0.3e1 / 0.8e1 * t835 + t840 - 0.3e1 / 0.8e1 * t841 - 0.3e1 / 0.16e2 * t845 - t864 + 0.3e1 / 0.8e1 * t865 - t874;
5758   t877 = t222 * t28;
5759   t878 = t867 * t877;
5760   t879 = t224 * t224;
5761   t880 = 0.1e1 / t879;
5762   t881 = t880 * t870;
5763   t882 = t878 * t881;
5764   t883 = t220 * t882;
5765   t884 = 0.3e1 / 0.8e1 * t883;
5766   t885 = t868 * t881;
5767   t886 = t77 * t885;
5768   t888 = 0.1e1 / t879 / t29;
5769   t889 = t888 * t870;
5770   t890 = t878 * t889;
5771   t891 = t77 * t890;
5772   t892 = 0.3e1 / 0.4e1 * t891;
5773   t893 = t213 * t248;
5774   t895 = t867 * t28;
5775   t896 = t895 * t871;
5776   t897 = t77 * t896;
5777   t898 = t897 / 0.4e1;
5778   t904 = 0.1e1 / t82 / t12;
5779   t909 = my_piecewise3(t24, (-0.6e1 * lapl[0] * t237 + 0.24e2 * tau[0] * t237 - 0.15e2 / 0.2e1 * sigma[0] * t904) * t22, 0);
5780   t910 = t909 * t28;
5781   t911 = t910 * t92;
5782   t912 = t77 * t911;
5783   t913 = t912 / 0.4e1;
5784   t914 = t90 * t870;
5785   t915 = t895 * t914;
5786   t916 = t77 * t915;
5787   t917 = t916 / 0.2e1;
5788   t918 = t225 * t870;
5789   t919 = t868 * t918;
5790   t920 = t220 * t919;
5791   t921 = 0.3e1 / 0.8e1 * t920;
5792   t922 = t895 * t918;
5793   t923 = t77 * t922;
5794   t924 = 0.3e1 / 0.4e1 * t923;
5795   t925 = t77 * t872;
5796   t926 = 0.3e1 / 0.4e1 * t925;
5797   t927 = t38 * t307;
5798   t928 = 0.3e1 / 0.16e2 * t927;
5799   t929 = t884 + t886 - t892 - 0.3e1 / 0.8e1 * t893 - t898 - t913 - t917 + t921 + t924 - t926 - t928;
5800   t930 = t10 * t293;
5801   t931 = 0.3e1 / 0.16e2 * t930;
5802   t933 = t96 * t101 * t270;
5803   t935 = t63 * t63;
5804   t936 = 0.1e1 / t935;
5805   t937 = t2 * t936;
5806   t939 = -0.3e1 * t202 + 0.3e1 * t937;
5807   t941 = t96 * t57 * t939;
5808   t942 = 0.3e1 / 0.4e1 * t941;
5809   t943 = -t939;
5810   t945 = t62 * t32 * t943;
5811   t946 = 0.3e1 / 0.4e1 * t945;
5812   t948 = t62 * t72 * t204;
5813   t950 = 0.1e1 / t37;
5814   t951 = M_PI * t950;
5815   t952 = t263 * t97;
5816   t954 = t951 * t57 * t952;
5817   t955 = 0.3e1 / 0.16e2 * t954;
5818   t957 = t262 * t101 * t263;
5819   t960 = t96 * t274 * t97;
5820   t961 = 0.9e1 / 0.16e2 * t960;
5821   t962 = 0.1e1 / t9;
5822   t963 = M_PI * t962;
5823   t964 = t189 * t67;
5824   t966 = t963 * t32 * t964;
5825   t967 = 0.3e1 / 0.16e2 * t966;
5826   t969 = t188 * t72 * t189;
5827   t972 = t62 * t209 * t67;
5828   t973 = 0.9e1 / 0.16e2 * t972;
5829   t974 = -t931 - 0.9e1 / 0.8e1 * t933 - t942 - t946 - 0.9e1 / 0.8e1 * t948 + t955 - 0.9e1 / 0.16e2 * t957 + t961 + t967 - 0.9e1 / 0.16e2 * t969 + t973;
5830   t986 = 0.3e1 / 0.8e1 * t210;
5831   t988 = 0.3e1 / 0.8e1 * t275;
5832   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5833     v3rho3[0] = -0.9e1 / 0.4e1 * t199 + 0.3e1 / 0.4e1 * t259 - 0.3e1 / 0.4e1 * t249 + 0.3e1 / 0.4e1 * t255 + t3 * (-t783 + t786 - t791 - 0.9e1 / 0.8e1 * t793 - t797 - t801 - t806 - t809 + t813 - t817 + t875 + t929 + t974) - 0.9e1 / 0.8e1 * t191 - 0.9e1 / 0.4e1 * t194 - 0.9e1 / 0.8e1 * t265 - 0.9e1 / 0.4e1 * t268 - 0.3e1 / 0.4e1 * t214 - 0.3e1 / 0.4e1 * t245 - 0.3e1 / 0.8e1 * t230 - 0.9e1 / 0.4e1 * t206 + t986 - 0.9e1 / 0.4e1 * t272 + t988;
5834 
5835   t991 = 0.3e1 / 0.2e1 * t295;
5836   t992 = 0.3e1 / 0.2e1 * t309;
5837   t993 = 0.3e1 / 0.4e1 * t289;
5838   t994 = 0.3e1 / 0.4e1 * t315;
5839   t995 = -t192 - 0.3e1 / 0.2e1 * t194 - t207 - t266 - 0.3e1 / 0.2e1 * t268 - t273 - t330 - t991 - t339 + t992 - t993 - t994;
5840   t996 = 0.3e1 / 0.4e1 * t302;
5841   t997 = 0.3e1 / 0.4e1 * t282;
5842   t999 = t228 * t107;
5843   t1000 = t247 * t999;
5844   t1001 = t196 * t1000;
5845   t1003 = t253 * t107;
5846   t1004 = t223 * t1003;
5847   t1005 = t196 * t1004;
5848   t1007 = t257 * t107;
5849   t1008 = t247 * t1007;
5850   t1009 = t196 * t1008;
5851   t1011 = t292 * t75;
5852   t1012 = t62 * t1011;
5853   t1013 = t92 * t2;
5854   t1014 = t89 * t1013;
5855   t1015 = t1012 * t1014;
5856   t1017 = t262 * t116;
5857   t1018 = t132 * t263;
5858   t1019 = t129 * t1018;
5859   t1020 = t1017 * t1019;
5860   t1022 = t96 * t317;
5861   t1023 = t1022 * t314;
5862   t1024 = 0.3e1 / 0.8e1 * t1023;
5863   t1025 = t243 * t287;
5864   t1026 = t196 * t1025;
5865   t1028 = t223 * t999;
5866   t1029 = t802 * t1028;
5867   t1031 = t132 * t270;
5868   t1032 = t129 * t1031;
5869   t1033 = t312 * t1032;
5870   t1035 = t792 * t288;
5871   t1036 = 0.3e1 / 0.8e1 * t1035;
5872   t1038 = t280 * t204;
5873   t1039 = t279 * t1038;
5874   t1041 = t963 * t11;
5875   t1042 = t280 * t189;
5876   t1043 = t1041 * t1042;
5877   t1045 = t188 * t71;
5878   t1046 = t1045 * t281;
5879   t1047 = 0.3e1 / 0.8e1 * t1046;
5880   t1048 = t188 * t292;
5881   t1049 = t31 * t2;
5882   t1050 = t1049 * t67;
5883   t1051 = t1048 * t1050;
5884   t1053 = t951 * t11;
5885   t1054 = t300 * t263;
5886   t1055 = t1053 * t1054;
5887   t1057 = t262 * t71;
5888   t1058 = t1057 * t301;
5889   t1059 = 0.3e1 / 0.8e1 * t1058;
5890   t1060 = t300 * t270;
5891   t1061 = t299 * t1060;
5892   t1063 = t262 * t292;
5893   t1064 = t56 * t2;
5894   t1065 = t1064 * t97;
5895   t1066 = t1063 * t1065;
5896   t1068 = t76 * t88;
5897   t1069 = t188 * t1068;
5898   t1070 = t91 * t107;
5899   t1072 = t848 * t1070 * t67;
5900   t1073 = t1069 * t1072;
5901   t1075 = -0.3e1 / 0.8e1 * t1001 + 0.3e1 / 0.8e1 * t1005 + 0.3e1 / 0.8e1 * t1009 - 0.3e1 / 0.4e1 * t1015 - 0.3e1 / 0.16e2 * t1020 - t1024 - 0.3e1 / 0.8e1 * t1026 - 0.3e1 / 0.16e2 * t1029 - 0.3e1 / 0.8e1 * t1033 - t1036 - 0.3e1 / 0.8e1 * t793 - 0.3e1 / 0.8e1 * t1039 + 0.3e1 / 0.16e2 * t1043 - t1047 - 0.3e1 / 0.4e1 * t1051 + 0.3e1 / 0.16e2 * t1055 - t1059 - 0.3e1 / 0.8e1 * t1061 + 0.3e1 / 0.4e1 * t1066 - 0.3e1 / 0.8e1 * t1073;
5902   t1081 = t38 * t208 * t115;
5903   t1082 = t1081 * t133;
5904   t1086 = t62 * t293;
5905   t1089 = t96 * t307;
5906   t1098 = t62 * t209 * t107;
5907   t1101 = 0.1e1 / t11 / t201;
5908   t1102 = t1101 * t56;
5909   t1104 = t96 * t1102 * t2;
5910   t1105 = 0.3e1 / 0.2e1 * t1104;
5911   t1106 = t1101 * t31;
5912   t1108 = t62 * t1106 * t2;
5913   t1109 = 0.3e1 / 0.2e1 * t1108;
5914   t1111 = t96 * t274 * t111;
5915   t1113 = 0.3e1 / 0.4e1 * t1089 - 0.3e1 / 0.8e1 * t933 - 0.3e1 / 0.8e1 * t948 - 0.3e1 / 0.16e2 * t957 + 0.3e1 / 0.8e1 * t960 - 0.3e1 / 0.16e2 * t969 + 0.3e1 / 0.8e1 * t972 + 0.3e1 / 0.16e2 * t1098 - t1105 + t1109 + 0.3e1 / 0.16e2 * t1111;
5916   t1117 = -t200 - t996 - t997 - t231 - t246 - t250 + t256 + t260 - t348 - t214 / 0.2e1 + t3 * (t1075 + t835 / 0.8e1 + t839 / 0.8e1 - t841 / 0.8e1 - t845 / 0.16e2 + t1082 / 0.16e2 + t865 / 0.8e1 - t893 / 0.8e1 - t928 - t931 - 0.3e1 / 0.4e1 * t1086 + t1113) + t986 + t988;
5917   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5918     v3rho3[1] = t995 + t1117;
5919 
5920   t1120 = -t195 - t269 - 0.3e1 / 0.2e1 * t285 - t991 - 0.3e1 / 0.2e1 * t305 + t992 - t329 - t334 - t338 - t347 - t993 - t994;
5921   t1122 = t1022 * t341;
5922   t1124 = t96 * t352;
5923   t1125 = t361 * t97;
5924   t1126 = t356 * t1125;
5925   t1127 = t1124 * t1126;
5926   t1129 = t376 * t313;
5927   t1130 = t312 * t1129;
5928   t1132 = t380 * t1125;
5929   t1133 = t312 * t1132;
5930   t1135 = t386 * t97;
5931   t1136 = t356 * t1135;
5932   t1137 = t312 * t1136;
5933   t1139 = t390 * t97;
5934   t1140 = t380 * t1139;
5935   t1141 = t312 * t1140;
5936   t1143 = t92 * t326;
5937   t1144 = t89 * t1143;
5938   t1145 = t787 * t1144;
5939   t1147 = t92 * t331;
5940   t1148 = t89 * t1147;
5941   t1149 = t196 * t1148;
5942   t1151 = t292 * t115;
5943   t1152 = t96 * t1151;
5944   t1153 = t132 * t2;
5945   t1154 = t129 * t1153;
5946   t1155 = t1152 * t1154;
5947   t1157 = t116 * t128;
5948   t1158 = t262 * t1157;
5949   t1159 = t53 * t130;
5950   t1160 = t131 * t111;
5951   t1162 = t1159 * t1160 * t97;
5952   t1163 = t1158 * t1162;
5953   t1165 = t31 * t331;
5954   t1166 = t1165 * t67;
5955   t1167 = t279 * t1166;
5956   t1169 = t56 * t335;
5957   t1170 = t1169 * t97;
5958   t1171 = t1053 * t1170;
5959   t1173 = t300 * t2;
5960   t1174 = t1063 * t1173;
5961   t1176 = t56 * t344;
5962   t1177 = t1176 * t97;
5963   t1178 = t299 * t1177;
5964   t1180 = t280 * t2;
5965   t1181 = t1048 * t1180;
5966   t1183 = t31 * t326;
5967   t1184 = t1183 * t67;
5968   t1185 = t1041 * t1184;
5969   t1187 = -0.3e1 / 0.8e1 * t1122 - 0.3e1 / 0.16e2 * t1127 - 0.3e1 / 0.8e1 * t1130 - 0.3e1 / 0.8e1 * t1133 + 0.3e1 / 0.8e1 * t1137 + 0.3e1 / 0.8e1 * t1141 - 0.3e1 / 0.16e2 * t1145 - 0.3e1 / 0.8e1 * t1149 + 0.3e1 / 0.4e1 * t1155 - t1024 - t1036 - 0.3e1 / 0.8e1 * t1163 - 0.3e1 / 0.8e1 * t1167 + 0.3e1 / 0.16e2 * t1171 + 0.3e1 / 0.4e1 * t1174 - 0.3e1 / 0.8e1 * t1178 - t1047 - t1059 - 0.3e1 / 0.4e1 * t1181 + 0.3e1 / 0.16e2 * t1185;
5970   t1190 = t71 * t351;
5971   t1191 = t38 * t1190;
5972   t1192 = t1191 * t362;
5973   t1194 = t318 * t377;
5974   t1196 = t318 * t381;
5975   t1198 = t318 * t387;
5976   t1200 = t318 * t391;
5977   t1210 = -t202 - 0.3e1 * t937;
5978   t1212 = t62 * t32 * t1210;
5979   t1214 = -t1210;
5980   t1216 = t96 * t57 * t1214;
5981   t1219 = t188 * t72 * t326;
5982   t1222 = t62 * t72 * t331;
5983   t1225 = t262 * t101 * t335;
5984   t1228 = t96 * t101 * t344;
5985   t1230 = 0.3e1 / 0.16e2 * t972 + 0.3e1 / 0.8e1 * t1098 + 0.3e1 / 0.4e1 * t1104 - 0.3e1 / 0.4e1 * t1108 + 0.3e1 / 0.8e1 * t1111 - 0.3e1 / 0.4e1 * t1212 - 0.3e1 / 0.4e1 * t1216 - 0.3e1 / 0.16e2 * t1219 - 0.3e1 / 0.8e1 * t1222 - 0.3e1 / 0.16e2 * t1225 - 0.3e1 / 0.8e1 * t1228;
5986   t1234 = -t343 - t996 - t997 - t319 / 0.2e1 - t364 - t379 - t383 + t389 + t393 - t215 + t3 * (t1187 + t839 / 0.16e2 + t1082 / 0.8e1 - t1192 / 0.16e2 - t1194 / 0.8e1 - t1196 / 0.8e1 + t1198 / 0.8e1 + t1200 / 0.8e1 - t928 - t931 + 0.3e1 / 0.16e2 * t960 + t1230) + t986 + t988;
5987   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
5988     v3rho3[2] = t1120 + t1234;
5989 
5990   t1239 = t447 * t361 * t375;
5991   t1240 = t353 * t1239;
5992   t1241 = 0.3e1 / 0.8e1 * t1240;
5993   t1242 = t376 * t470;
5994   t1243 = t117 * t1242;
5995   t1244 = 0.3e1 / 0.4e1 * t1243;
5996   t1245 = t132 * t335;
5997   t1246 = t129 * t1245;
5998   t1247 = t1017 * t1246;
5999   t1248 = 0.9e1 / 0.16e2 * t1247;
6000   t1249 = t376 * t340;
6001   t1250 = t312 * t1249;
6002   t1251 = 0.9e1 / 0.8e1 * t1250;
6003   t1252 = t132 * t344;
6004   t1253 = t129 * t1252;
6005   t1254 = t312 * t1253;
6006   t1255 = 0.9e1 / 0.8e1 * t1254;
6007   t1256 = t386 * t111;
6008   t1257 = t356 * t1256;
6009   t1258 = t312 * t1257;
6010   t1259 = 0.9e1 / 0.8e1 * t1258;
6011   t1260 = t375 * t355;
6012   t1261 = t1260 * t466;
6013   t1262 = t117 * t1261;
6014   t1263 = 0.3e1 / 0.4e1 * t1262;
6015   t1264 = t361 * t111;
6016   t1265 = t380 * t1264;
6017   t1266 = t312 * t1265;
6018   t1267 = 0.9e1 / 0.8e1 * t1266;
6019   t1269 = t375 * t128 * t461;
6020   t1270 = t117 * t1269;
6021   t1271 = 0.3e1 / 0.4e1 * t1270;
6022   t1272 = t390 * t111;
6023   t1273 = t380 * t1272;
6024   t1274 = t312 * t1273;
6025   t1275 = 0.9e1 / 0.8e1 * t1274;
6026   t1277 = t356 * t1264;
6027   t1278 = t1124 * t1277;
6028   t1279 = 0.9e1 / 0.16e2 * t1278;
6029   t1281 = t300 * t344;
6030   t1282 = t299 * t1281;
6031   t1283 = 0.9e1 / 0.8e1 * t1282;
6032   t1284 = t280 * t331;
6033   t1285 = t279 * t1284;
6034   t1286 = 0.9e1 / 0.8e1 * t1285;
6035   t1287 = t354 * t128;
6036   t1288 = t1287 * t355;
6037   t1290 = 0.1e1 / t359 / t51;
6038   t1291 = t385 * t1290;
6039   t1292 = t1288 * t1291;
6040   t1293 = t353 * t1292;
6041   t1294 = 0.3e1 / 0.8e1 * t1293;
6042   t1295 = t355 * t53;
6043   t1296 = t1287 * t1295;
6044   t1297 = t357 * t357;
6045   t1298 = 0.1e1 / t1297;
6046   t1299 = t1298 * t1290;
6047   t1300 = t1296 * t1299;
6048   t1301 = t353 * t1300;
6049   t1302 = 0.3e1 / 0.8e1 * t1301;
6050   t1303 = t1288 * t1299;
6051   t1304 = t117 * t1303;
6052   t1306 = 0.1e1 / t1297 / t54;
6053   t1307 = t1306 * t1290;
6054   t1308 = t1296 * t1307;
6055   t1309 = t117 * t1308;
6056   t1310 = 0.3e1 / 0.4e1 * t1309;
6057   t1311 = t1287 * t53;
6058   t1312 = t1311 * t1291;
6059   t1313 = t117 * t1312;
6060   t1314 = t1313 / 0.4e1;
6061   t1316 = t1159 * t131;
6062   t1318 = t55 * t55;
6063   t1319 = 0.1e1 / t1318;
6064   t1320 = t1319 * t115;
6065   t1323 = t349 * t351;
6066   t1327 = t115 * t128 * t1316 / 0.2e1 + t1320 * t128 * t1316 / 0.2e1 - t1323 * t128 * t1316 / 0.2e1;
6067   t1328 = t11 * t1327;
6068   t1329 = t38 * t1328;
6069   t1330 = t1329 * t362;
6070   t1331 = t1330 / 0.8e1;
6071   t1337 = 0.1e1 / t122 / t39;
6072   t1342 = my_piecewise3(t50, (-0.6e1 * lapl[1] * t370 + 0.24e2 * tau[1] * t370 - 0.15e2 / 0.2e1 * sigma[2] * t1337) * t22, 0);
6073   t1343 = t1342 * t53;
6074   t1344 = t1343 * t132;
6075   t1345 = t117 * t1344;
6076   t1346 = t1345 / 0.4e1;
6077   t1347 = -t1279 - 0.9e1 / 0.8e1 * t1122 - t1283 - t1286 - t1294 + t1302 + t1304 - t1310 - t1314 - t1331 - t1346;
6078   t1349 = t117 * t1292;
6079   t1350 = 0.3e1 / 0.4e1 * t1349;
6080   t1351 = t130 * t1290;
6081   t1352 = t1311 * t1351;
6082   t1353 = t117 * t1352;
6083   t1354 = t1353 / 0.2e1;
6084   t1355 = t358 * t1290;
6085   t1356 = t1288 * t1355;
6086   t1357 = t353 * t1356;
6087   t1358 = 0.3e1 / 0.8e1 * t1357;
6088   t1359 = t1311 * t1355;
6089   t1360 = t117 * t1359;
6090   t1361 = 0.3e1 / 0.4e1 * t1360;
6091   t1362 = 0.3e1 / 0.16e2 * t1082;
6092   t1368 = -t1350 - t1354 + t1358 + t1361 + t1362 - 0.3e1 / 0.16e2 * t1192 - 0.3e1 / 0.8e1 * t1194 - 0.3e1 / 0.8e1 * t1196 + 0.3e1 / 0.8e1 * t1198 + 0.3e1 / 0.8e1 * t1200 - t928;
6093   t1369 = 0.9e1 / 0.16e2 * t1098;
6094   t1370 = 0.9e1 / 0.16e2 * t1111;
6095   t1375 = t335 * t111;
6096   t1377 = t951 * t57 * t1375;
6097   t1378 = 0.3e1 / 0.16e2 * t1377;
6098   t1380 = -0.3e1 * t202 - 0.3e1 * t937;
6099   t1382 = t62 * t32 * t1380;
6100   t1383 = 0.3e1 / 0.4e1 * t1382;
6101   t1384 = -t1380;
6102   t1386 = t96 * t57 * t1384;
6103   t1387 = 0.3e1 / 0.4e1 * t1386;
6104   t1388 = t326 * t107;
6105   t1390 = t963 * t32 * t1388;
6106   t1391 = 0.3e1 / 0.16e2 * t1390;
6107   t1392 = -t931 + t1369 + t1370 - 0.9e1 / 0.16e2 * t1219 - 0.9e1 / 0.8e1 * t1222 - 0.9e1 / 0.16e2 * t1225 - 0.9e1 / 0.8e1 * t1228 + t1378 - t1383 - t1387 + t1391;
6108   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6109     v3rho3[3] = -0.3e1 / 0.4e1 * t319 - 0.3e1 / 0.4e1 * t382 + 0.3e1 / 0.4e1 * t388 + t3 * (-t1241 + t1244 - t1248 - t1251 - t1255 + t1259 + t1263 - t1267 - t1271 + t1275 + t1347 + t1368 + t1392) - 0.9e1 / 0.4e1 * t342 + 0.3e1 / 0.4e1 * t392 - 0.9e1 / 0.4e1 * t305 - 0.9e1 / 0.8e1 * t328 - 0.9e1 / 0.8e1 * t337 - 0.9e1 / 0.4e1 * t285 - 0.3e1 / 0.4e1 * t378 - 0.3e1 / 0.8e1 * t363 + t986 + t988 - 0.9e1 / 0.4e1 * t333 - 0.9e1 / 0.4e1 * t346;
6110 
6111   t1406 = t220 * t407;
6112   t1408 = t77 * t425;
6113   t1410 = t412 * t222;
6114   t1411 = t1410 * t424;
6115   t1414 = t144 * t221;
6116   t1415 = t28 * t252;
6117   t1416 = t1415 * t870;
6118   t1417 = t1414 * t1416;
6119   t1420 = t77 * t420;
6120   t1423 = t412 * t88 * t419;
6121   t1426 = t914 * t221;
6122   t1427 = t145 * t1426;
6123   t1430 = t187 * t75;
6124   t1431 = t139 * t1430;
6125   t1432 = t145 * t788;
6126   t1435 = t918 * t144;
6127   t1436 = t223 * t1435;
6128   t1439 = t418 * t870;
6129   t1440 = t1414 * t1439;
6130   t1443 = t871 * t221;
6131   t1444 = t423 * t1443;
6132   t1447 = t253 * t242;
6133   t1448 = t423 * t1447;
6134   t1451 = t257 * t242;
6135   t1452 = t145 * t1451;
6136   t1455 = t413 * t197;
6137   t1458 = t145 * t798;
6138   t1461 = t9 * t860;
6139   t1462 = t139 * t1461;
6140   t1465 = -0.3e1 / 0.8e1 * t1406 + 0.3e1 / 0.4e1 * t1408 + t141 * t1411 / 0.2e1 - t141 * t1417 / 0.4e1 - 0.3e1 / 0.4e1 * t1420 - t141 * t1423 / 0.2e1 - t141 * t1427 / 0.2e1 - 0.3e1 / 0.16e2 * t1431 * t1432 + 0.3e1 / 0.8e1 * t404 * t1436 + 0.3e1 / 0.4e1 * t141 * t1440 - 0.3e1 / 0.4e1 * t141 * t1444 + t141 * t1448 / 0.4e1 + t141 * t1452 / 0.4e1 - 0.3e1 / 0.4e1 * t399 * t1455 - 0.3e1 / 0.8e1 * t399 * t1458 - t1462 * t407 / 0.8e1;
6141   t1466 = t810 * t406;
6142   t1469 = t228 * t412;
6143   t1470 = t405 * t1469;
6144   t1473 = t413 * t428;
6145   t1476 = t144 * t242;
6146   t1477 = t1476 * t419;
6147   t1480 = t196 * t400;
6148   t1482 = t77 * t429;
6149   t1486 = t221 * t877;
6150   t1487 = t881 * t144;
6151   t1488 = t1486 * t1487;
6152   t1491 = t222 * t880;
6153   t1492 = t1491 * t870;
6154   t1493 = t1414 * t1492;
6155   t1495 = t144 * t877;
6156   t1496 = t889 * t221;
6157   t1497 = t1495 * t1496;
6158   t1500 = t398 * t144;
6159   t1501 = t139 * t1500;
6160   t1502 = t222 * t252;
6161   t1503 = t227 * t67;
6162   t1504 = t1503 * t88;
6163   t1505 = t1502 * t1504;
6164   t1508 = t89 * t803;
6165   t1511 = t848 * t1504;
6166   t1514 = t8 * t218;
6167   t1515 = t1514 * t88;
6168   t1516 = t139 * t1515;
6169   t1517 = t222 * t225;
6170   t1518 = t227 * t144;
6171   t1519 = t1518 * t67;
6172   t1520 = t1517 * t1519;
6173   t1523 = t77 * t414;
6174   t1525 = t237 * t22;
6175   t1527 = my_piecewise3(t24, 0.3e1 / 0.2e1 * t1525, 0);
6176   t1528 = t1527 * t28;
6177   t1529 = t1528 * t92;
6178   t1533 = 0.3e1 / 0.16e2 * t213 * t146;
6179   t1534 = -t404 * t1466 / 0.8e1 - t404 * t1470 / 0.4e1 + t141 * t1473 / 0.2e1 - t141 * t1477 / 0.4e1 - 0.9e1 / 0.8e1 * t1480 + 0.3e1 / 0.4e1 * t1482 - 0.3e1 / 0.8e1 * t404 * t1444 + 0.3e1 / 0.8e1 * t404 * t1488 + t141 * t1493 - 0.3e1 / 0.4e1 * t141 * t1497 + 0.3e1 / 0.4e1 * t1501 * t1505 - 0.3e1 / 0.4e1 * t1501 * t1508 + 0.3e1 / 0.4e1 * t1501 * t1511 - 0.3e1 / 0.8e1 * t1516 * t1520 - 0.3e1 / 0.4e1 * t1523 - t141 * t1529 / 0.4e1 - t1533;
6180   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6181     v3rho2sigma[0] = t1465 + t1534;
6182 
6183   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6184     v3rho2sigma[1] = 0.0e0;
6185 
6186   t1535 = t312 * t435;
6187   t1538 = 0.3e1 / 0.16e2 * t318 * t155;
6188   t1539 = t261 * t115;
6189   t1540 = t139 * t1539;
6190   t1541 = t154 * t1018;
6191   t1544 = t154 * t1031;
6192   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6193     v3rho2sigma[2] = -0.9e1 / 0.8e1 * t1535 - t1538 - 0.3e1 / 0.16e2 * t1540 * t1541 - 0.3e1 / 0.8e1 * t434 * t1544;
6194 
6195   t1553 = t196 * t438;
6196   t1555 = t1430 * t144;
6197   t1556 = t139 * t1555;
6198   t1559 = t1518 * t107;
6199   t1560 = t1517 * t1559;
6200   t1563 = t413 * t287;
6201   t1566 = t89 * t999;
6202   t1569 = t227 * t107;
6203   t1570 = t1569 * t88;
6204   t1571 = t1502 * t1570;
6205   t1574 = t848 * t1570;
6206   t1577 = t208 * M_PI;
6207   t1578 = t1577 * t398;
6208   t1579 = t145 * t1013;
6209   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6210     v3rho2sigma[3] = -0.9e1 / 0.16e2 * t1480 - t1533 - 0.3e1 / 0.16e2 * t1406 - 0.3e1 / 0.8e1 * t1523 - 0.3e1 / 0.8e1 * t1420 + 0.3e1 / 0.8e1 * t1408 + 0.3e1 / 0.8e1 * t1482 - 0.9e1 / 0.16e2 * t1553 - 0.3e1 / 0.16e2 * t1556 * t1072 - 0.3e1 / 0.16e2 * t1516 * t1560 - 0.3e1 / 0.8e1 * t399 * t1563 - 0.3e1 / 0.8e1 * t1501 * t1566 + 0.3e1 / 0.8e1 * t1501 * t1571 + 0.3e1 / 0.8e1 * t1501 * t1574 - 0.3e1 / 0.8e1 * t1578 * t1579;
6211 
6212   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6213     v3rho2sigma[4] = 0.0e0;
6214 
6215   t1583 = t312 * t442;
6216   t1585 = t1539 * t153;
6217   t1586 = t139 * t1585;
6218   t1589 = t1577 * t433;
6219   t1590 = t154 * t1153;
6220   t1593 = t353 * t449;
6221   t1595 = t36 * t351;
6222   t1596 = t1595 * t128;
6223   t1597 = t139 * t1596;
6224   t1598 = t355 * t358;
6225   t1599 = t360 * t153;
6226   t1600 = t1599 * t97;
6227   t1601 = t1598 * t1600;
6228   t1604 = t117 * t456;
6229   t1606 = t455 * t313;
6230   t1609 = t117 * t462;
6231   t1611 = t433 * t153;
6232   t1612 = t139 * t1611;
6233   t1613 = t129 * t1125;
6234   t1616 = t117 * t467;
6235   t1618 = t355 * t385;
6236   t1619 = t360 * t128;
6237   t1620 = t1619 * t97;
6238   t1621 = t1618 * t1620;
6239   t1624 = t117 * t471;
6240   t1626 = t1159 * t1620;
6241   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6242     v3rho2sigma[5] = -0.9e1 / 0.16e2 * t1535 - t1538 - 0.9e1 / 0.16e2 * t1583 - 0.3e1 / 0.16e2 * t1586 * t1162 + 0.3e1 / 0.8e1 * t1589 * t1590 - 0.3e1 / 0.16e2 * t1593 - 0.3e1 / 0.16e2 * t1597 * t1601 - 0.3e1 / 0.8e1 * t1604 - 0.3e1 / 0.8e1 * t434 * t1606 - 0.3e1 / 0.8e1 * t1609 - 0.3e1 / 0.8e1 * t1612 * t1613 + 0.3e1 / 0.8e1 * t1616 + 0.3e1 / 0.8e1 * t1612 * t1621 + 0.3e1 / 0.8e1 * t1624 + 0.3e1 / 0.8e1 * t1612 * t1626;
6243 
6244   t1630 = t145 * t1143;
6245   t1633 = t145 * t1147;
6246   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6247     v3rho2sigma[6] = -0.9e1 / 0.8e1 * t1553 - t1533 - 0.3e1 / 0.16e2 * t1431 * t1630 - 0.3e1 / 0.8e1 * t399 * t1633;
6248 
6249   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6250     v3rho2sigma[7] = 0.0e0;
6251 
6252   t1636 = t390 * t375;
6253   t1637 = t154 * t1636;
6254   t1640 = t361 * t454;
6255   t1641 = t447 * t1640;
6256   t1644 = t455 * t470;
6257   t1647 = t153 * t375;
6258   t1648 = t1647 * t461;
6259   t1651 = t386 * t375;
6260   t1652 = t465 * t1651;
6261   t1655 = t455 * t340;
6262   t1658 = t154 * t1252;
6263   t1661 = t37 * t1327;
6264   t1662 = t139 * t1661;
6265   t1665 = t1260 * t448;
6266   t1670 = t1291 * t153;
6267   t1671 = t356 * t1670;
6268   t1674 = t354 * t1295;
6269   t1675 = t1299 * t153;
6270   t1676 = t1674 * t1675;
6271   t1679 = t153 * t354;
6272   t1680 = t355 * t1298;
6273   t1681 = t1680 * t1290;
6274   t1682 = t1679 * t1681;
6275   t1684 = t153 * t1295;
6276   t1685 = t1307 * t354;
6277   t1686 = t1684 * t1685;
6278   t1689 = t53 * t385;
6279   t1690 = t1689 * t1290;
6280   t1691 = t1679 * t1690;
6281   t1694 = t150 * t1637 / 0.4e1 - t446 * t1641 / 0.4e1 + t150 * t1644 / 0.2e1 - t150 * t1648 / 0.4e1 + t150 * t1652 / 0.4e1 - 0.3e1 / 0.4e1 * t434 * t1655 - 0.3e1 / 0.8e1 * t434 * t1658 - t1662 * t449 / 0.8e1 - t446 * t1665 / 0.8e1 + 0.3e1 / 0.4e1 * t1616 + 0.3e1 / 0.4e1 * t1624 - 0.3e1 / 0.8e1 * t446 * t1671 + 0.3e1 / 0.8e1 * t446 * t1676 + t150 * t1682 - 0.3e1 / 0.4e1 * t150 * t1686 - t150 * t1691 / 0.4e1;
6282   t1695 = t454 * t355;
6283   t1696 = t1695 * t466;
6284   t1700 = t454 * t128 * t461;
6285   t1703 = t1355 * t153;
6286   t1704 = t356 * t1703;
6287   t1707 = t460 * t1290;
6288   t1708 = t1679 * t1707;
6289   t1713 = t1351 * t354;
6290   t1714 = t154 * t1713;
6291   t1717 = t154 * t1245;
6292   t1723 = t360 * t111;
6293   t1724 = t1723 * t128;
6294   t1725 = t1618 * t1724;
6295   t1728 = t129 * t1264;
6296   t1731 = t1159 * t1724;
6297   t1734 = t1599 * t111;
6298   t1735 = t1598 * t1734;
6299   t1739 = t370 * t22;
6300   t1741 = my_piecewise3(t50, 0.3e1 / 0.2e1 * t1739, 0);
6301   t1742 = t1741 * t53;
6302   t1743 = t1742 * t132;
6303   t1746 = t150 * t1696 / 0.2e1 - t150 * t1700 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t1704 + 0.3e1 / 0.4e1 * t150 * t1708 - 0.3e1 / 0.4e1 * t150 * t1671 - t150 * t1714 / 0.2e1 - 0.3e1 / 0.16e2 * t1540 * t1717 - 0.9e1 / 0.8e1 * t1583 - 0.3e1 / 0.8e1 * t1593 - 0.3e1 / 0.4e1 * t1609 + 0.3e1 / 0.4e1 * t1612 * t1725 - 0.3e1 / 0.4e1 * t1612 * t1728 + 0.3e1 / 0.4e1 * t1612 * t1731 - 0.3e1 / 0.8e1 * t1597 * t1735 - t1538 - 0.3e1 / 0.4e1 * t1604 - t150 * t1743 / 0.4e1;
6304   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6305     v3rho2sigma[8] = t1694 + t1746;
6306 
6307   t1747 = t77 * t490;
6308   t1750 = t484 * t88 * t419;
6309   t1753 = t161 * t1426;
6310   t1756 = t161 * t788;
6311   t1759 = t918 * t160;
6312   t1760 = t223 * t1759;
6313   t1763 = t160 * t221;
6314   t1764 = t1763 * t1439;
6315   t1767 = t493 * t1443;
6316   t1770 = t485 * t197;
6317   t1773 = t161 * t798;
6318   t1776 = t196 * t476;
6319   t1778 = t77 * t497;
6320   t1780 = t220 * t480;
6321   t1782 = t161 * t1451;
6322   t1787 = t810 * t479;
6323   t1790 = t228 * t484;
6324   t1791 = t405 * t1790;
6325   t1794 = -0.3e1 / 0.4e1 * t1747 - t141 * t1750 / 0.2e1 - t141 * t1753 / 0.2e1 - 0.3e1 / 0.16e2 * t1431 * t1756 + 0.3e1 / 0.8e1 * t404 * t1760 + 0.3e1 / 0.4e1 * t141 * t1764 - 0.3e1 / 0.4e1 * t141 * t1767 - 0.3e1 / 0.4e1 * t399 * t1770 - 0.3e1 / 0.8e1 * t399 * t1773 - 0.9e1 / 0.8e1 * t1776 + 0.3e1 / 0.4e1 * t1778 - 0.3e1 / 0.8e1 * t1780 + t141 * t1782 / 0.4e1 - t1462 * t480 / 0.8e1 - t404 * t1787 / 0.8e1 - t404 * t1791 / 0.4e1;
6326   t1795 = t485 * t428;
6327   t1798 = t160 * t242;
6328   t1799 = t1798 * t419;
6329   t1802 = t493 * t1447;
6330   t1805 = t1763 * t1492;
6331   t1807 = t160 * t877;
6332   t1808 = t1807 * t1496;
6333   t1813 = t881 * t160;
6334   t1814 = t1486 * t1813;
6335   t1817 = t77 * t494;
6336   t1819 = t484 * t222;
6337   t1820 = t1819 * t424;
6338   t1823 = t1763 * t1416;
6339   t1826 = t398 * t160;
6340   t1827 = t139 * t1826;
6341   t1834 = t227 * t160;
6342   t1835 = t1834 * t67;
6343   t1836 = t1517 * t1835;
6344   t1839 = t77 * t486;
6345   t1842 = my_piecewise3(t24, 0.3e1 / 0.2e1 * t410, 0);
6346   t1843 = t1842 * t28;
6347   t1844 = t1843 * t92;
6348   t1848 = 0.3e1 / 0.16e2 * t213 * t162;
6349   t1849 = t141 * t1795 / 0.2e1 - t141 * t1799 / 0.4e1 + t141 * t1802 / 0.4e1 + t141 * t1805 - 0.3e1 / 0.4e1 * t141 * t1808 - 0.3e1 / 0.8e1 * t404 * t1767 + 0.3e1 / 0.8e1 * t404 * t1814 + 0.3e1 / 0.4e1 * t1817 + t141 * t1820 / 0.2e1 - t141 * t1823 / 0.4e1 + 0.3e1 / 0.4e1 * t1827 * t1505 - 0.3e1 / 0.4e1 * t1827 * t1508 + 0.3e1 / 0.4e1 * t1827 * t1511 - 0.3e1 / 0.8e1 * t1516 * t1836 - 0.3e1 / 0.4e1 * t1839 - t141 * t1844 / 0.4e1 - t1848;
6350   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6351     v3rho2lapl[0] = t1794 + t1849;
6352 
6353   t1850 = t312 * t501;
6354   t1853 = 0.3e1 / 0.16e2 * t318 * t169;
6355   t1854 = t168 * t1018;
6356   t1857 = t168 * t1031;
6357   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6358     v3rho2lapl[1] = -0.9e1 / 0.8e1 * t1850 - t1853 - 0.3e1 / 0.16e2 * t1540 * t1854 - 0.3e1 / 0.8e1 * t434 * t1857;
6359 
6360   t1866 = t196 * t504;
6361   t1868 = t1430 * t160;
6362   t1869 = t139 * t1868;
6363   t1872 = t1834 * t107;
6364   t1873 = t1517 * t1872;
6365   t1876 = t485 * t287;
6366   t1885 = t161 * t1013;
6367   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6368     v3rho2lapl[2] = -0.9e1 / 0.16e2 * t1776 - t1848 - 0.3e1 / 0.16e2 * t1780 - 0.3e1 / 0.8e1 * t1839 - 0.3e1 / 0.8e1 * t1747 + 0.3e1 / 0.8e1 * t1817 + 0.3e1 / 0.8e1 * t1778 - 0.9e1 / 0.16e2 * t1866 - 0.3e1 / 0.16e2 * t1869 * t1072 - 0.3e1 / 0.16e2 * t1516 * t1873 - 0.3e1 / 0.8e1 * t399 * t1876 - 0.3e1 / 0.8e1 * t1827 * t1566 + 0.3e1 / 0.8e1 * t1827 * t1571 + 0.3e1 / 0.8e1 * t1827 * t1574 - 0.3e1 / 0.8e1 * t1578 * t1885;
6369 
6370   t1889 = t312 * t508;
6371   t1891 = t1539 * t167;
6372   t1892 = t139 * t1891;
6373   t1895 = t168 * t1153;
6374   t1898 = t353 * t512;
6375   t1900 = t360 * t167;
6376   t1901 = t1900 * t97;
6377   t1902 = t1598 * t1901;
6378   t1905 = t117 * t518;
6379   t1907 = t517 * t313;
6380   t1910 = t117 * t522;
6381   t1912 = t433 * t167;
6382   t1913 = t139 * t1912;
6383   t1916 = t117 * t526;
6384   t1920 = t117 * t529;
6385   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6386     v3rho2lapl[3] = -0.9e1 / 0.16e2 * t1850 - t1853 - 0.9e1 / 0.16e2 * t1889 - 0.3e1 / 0.16e2 * t1892 * t1162 + 0.3e1 / 0.8e1 * t1589 * t1895 - 0.3e1 / 0.16e2 * t1898 - 0.3e1 / 0.16e2 * t1597 * t1902 - 0.3e1 / 0.8e1 * t1905 - 0.3e1 / 0.8e1 * t434 * t1907 - 0.3e1 / 0.8e1 * t1910 - 0.3e1 / 0.8e1 * t1913 * t1613 + 0.3e1 / 0.8e1 * t1916 + 0.3e1 / 0.8e1 * t1913 * t1621 + 0.3e1 / 0.8e1 * t1920 + 0.3e1 / 0.8e1 * t1913 * t1626;
6387 
6388   t1925 = t161 * t1143;
6389   t1928 = t161 * t1147;
6390   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6391     v3rho2lapl[4] = -0.9e1 / 0.8e1 * t1866 - t1848 - 0.3e1 / 0.16e2 * t1431 * t1925 - 0.3e1 / 0.8e1 * t399 * t1928;
6392 
6393   t1931 = t525 * t1651;
6394   t1934 = t168 * t1636;
6395   t1937 = t517 * t340;
6396   t1940 = t168 * t1252;
6397   t1945 = t1260 * t511;
6398   t1948 = t361 * t516;
6399   t1949 = t447 * t1948;
6400   t1952 = t517 * t470;
6401   t1955 = t167 * t375;
6402   t1956 = t1955 * t461;
6403   t1959 = t1291 * t167;
6404   t1960 = t356 * t1959;
6405   t1963 = t1299 * t167;
6406   t1964 = t1674 * t1963;
6407   t1967 = t167 * t354;
6408   t1968 = t1967 * t1681;
6409   t1970 = t167 * t1295;
6410   t1971 = t1970 * t1685;
6411   t1974 = t516 * t355;
6412   t1975 = t1974 * t466;
6413   t1978 = t1967 * t1690;
6414   t1982 = t516 * t128 * t461;
6415   t1985 = t150 * t1931 / 0.4e1 + t150 * t1934 / 0.4e1 - 0.3e1 / 0.4e1 * t434 * t1937 - 0.3e1 / 0.8e1 * t434 * t1940 - t1662 * t512 / 0.8e1 - t446 * t1945 / 0.8e1 - t446 * t1949 / 0.4e1 + t150 * t1952 / 0.2e1 - t150 * t1956 / 0.4e1 - 0.3e1 / 0.8e1 * t446 * t1960 + 0.3e1 / 0.8e1 * t446 * t1964 + t150 * t1968 - 0.3e1 / 0.4e1 * t150 * t1971 + t150 * t1975 / 0.2e1 - t150 * t1978 / 0.4e1 - t150 * t1982 / 0.2e1;
6416   t1986 = t168 * t1713;
6417   t1989 = t168 * t1245;
6418   t1992 = t1355 * t167;
6419   t1993 = t356 * t1992;
6420   t1996 = t1967 * t1707;
6421   t2010 = t1900 * t111;
6422   t2011 = t1598 * t2010;
6423   t2018 = my_piecewise3(t50, 0.3e1 / 0.2e1 * t452, 0);
6424   t2019 = t2018 * t53;
6425   t2020 = t2019 * t132;
6426   t2023 = -t150 * t1986 / 0.2e1 - 0.3e1 / 0.16e2 * t1540 * t1989 + 0.3e1 / 0.8e1 * t446 * t1993 + 0.3e1 / 0.4e1 * t150 * t1996 - 0.3e1 / 0.4e1 * t150 * t1960 - 0.9e1 / 0.8e1 * t1889 - 0.3e1 / 0.8e1 * t1898 - 0.3e1 / 0.4e1 * t1910 + 0.3e1 / 0.4e1 * t1916 + 0.3e1 / 0.4e1 * t1920 - 0.3e1 / 0.4e1 * t1913 * t1728 + 0.3e1 / 0.4e1 * t1913 * t1731 - 0.3e1 / 0.8e1 * t1597 * t2011 + 0.3e1 / 0.4e1 * t1913 * t1725 - t1853 - 0.3e1 / 0.4e1 * t1905 - t150 * t2020 / 0.4e1;
6427   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6428     v3rho2lapl[5] = t1985 + t2023;
6429 
6430   t2024 = t172 * t877;
6431   t2025 = t2024 * t1496;
6432   t2028 = t542 * t222;
6433   t2029 = t2028 * t424;
6434   t2032 = t172 * t221;
6435   t2033 = t2032 * t1416;
6436   t2036 = t77 * t552;
6437   t2038 = t77 * t548;
6438   t2041 = t542 * t88 * t419;
6439   t2044 = t173 * t1426;
6440   t2047 = t173 * t788;
6441   t2050 = t918 * t172;
6442   t2051 = t223 * t2050;
6443   t2054 = t2032 * t1439;
6444   t2057 = t551 * t1443;
6445   t2060 = t551 * t1447;
6446   t2063 = t173 * t1451;
6447   t2066 = t220 * t538;
6448   t2068 = t543 * t197;
6449   t2071 = t173 * t798;
6450   t2074 = -0.3e1 / 0.4e1 * t141 * t2025 + t141 * t2029 / 0.2e1 - t141 * t2033 / 0.4e1 + 0.3e1 / 0.4e1 * t2036 - 0.3e1 / 0.4e1 * t2038 - t141 * t2041 / 0.2e1 - t141 * t2044 / 0.2e1 - 0.3e1 / 0.16e2 * t1431 * t2047 + 0.3e1 / 0.8e1 * t404 * t2051 + 0.3e1 / 0.4e1 * t141 * t2054 - 0.3e1 / 0.4e1 * t141 * t2057 + t141 * t2060 / 0.4e1 + t141 * t2063 / 0.4e1 - 0.3e1 / 0.8e1 * t2066 - 0.3e1 / 0.4e1 * t399 * t2068 - 0.3e1 / 0.8e1 * t399 * t2071;
6451   t2077 = t810 * t537;
6452   t2080 = t228 * t542;
6453   t2081 = t405 * t2080;
6454   t2084 = t543 * t428;
6455   t2088 = t172 * t242 * t419;
6456   t2091 = t196 * t534;
6457   t2093 = t77 * t555;
6458   t2097 = t881 * t172;
6459   t2098 = t1486 * t2097;
6460   t2101 = t2032 * t1492;
6461   t2103 = t398 * t172;
6462   t2104 = t139 * t2103;
6463   t2107 = t227 * t172;
6464   t2109 = t1517 * t2107 * t67;
6465   t2117 = 0.3e1 / 0.16e2 * t213 * t174;
6466   t2118 = t77 * t544;
6467   t2121 = my_piecewise3(t24, -0.6e1 * t410, 0);
6468   t2122 = t2121 * t28;
6469   t2123 = t2122 * t92;
6470   t2126 = -t1462 * t538 / 0.8e1 - t404 * t2077 / 0.8e1 - t404 * t2081 / 0.4e1 + t141 * t2084 / 0.2e1 - t141 * t2088 / 0.4e1 - 0.9e1 / 0.8e1 * t2091 + 0.3e1 / 0.4e1 * t2093 - 0.3e1 / 0.8e1 * t404 * t2057 + 0.3e1 / 0.8e1 * t404 * t2098 + t141 * t2101 + 0.3e1 / 0.4e1 * t2104 * t1511 - 0.3e1 / 0.8e1 * t1516 * t2109 + 0.3e1 / 0.4e1 * t2104 * t1505 - 0.3e1 / 0.4e1 * t2104 * t1508 - t2117 - 0.3e1 / 0.4e1 * t2118 - t141 * t2123 / 0.4e1;
6471   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6472     v3rho2tau[0] = t2074 + t2126;
6473 
6474   t2127 = t312 * t559;
6475   t2130 = 0.3e1 / 0.16e2 * t318 * t179;
6476   t2131 = t178 * t1018;
6477   t2134 = t178 * t1031;
6478   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6479     v3rho2tau[1] = -0.9e1 / 0.8e1 * t2127 - t2130 - 0.3e1 / 0.16e2 * t1540 * t2131 - 0.3e1 / 0.8e1 * t434 * t2134;
6480 
6481   t2143 = t196 * t562;
6482   t2145 = t1430 * t172;
6483   t2146 = t139 * t2145;
6484   t2150 = t1517 * t2107 * t107;
6485   t2153 = t543 * t287;
6486   t2162 = t173 * t1013;
6487   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6488     v3rho2tau[2] = -0.9e1 / 0.16e2 * t2091 - t2117 - 0.3e1 / 0.16e2 * t2066 - 0.3e1 / 0.8e1 * t2118 - 0.3e1 / 0.8e1 * t2038 + 0.3e1 / 0.8e1 * t2036 + 0.3e1 / 0.8e1 * t2093 - 0.9e1 / 0.16e2 * t2143 - 0.3e1 / 0.16e2 * t2146 * t1072 - 0.3e1 / 0.16e2 * t1516 * t2150 - 0.3e1 / 0.8e1 * t399 * t2153 - 0.3e1 / 0.8e1 * t2104 * t1566 + 0.3e1 / 0.8e1 * t2104 * t1571 + 0.3e1 / 0.8e1 * t2104 * t1574 - 0.3e1 / 0.8e1 * t1578 * t2162;
6489 
6490   t2166 = t312 * t566;
6491   t2168 = t1539 * t177;
6492   t2169 = t139 * t2168;
6493   t2172 = t178 * t1153;
6494   t2175 = t353 * t570;
6495   t2177 = t360 * t177;
6496   t2179 = t1598 * t2177 * t97;
6497   t2182 = t117 * t576;
6498   t2184 = t575 * t313;
6499   t2187 = t117 * t580;
6500   t2189 = t433 * t177;
6501   t2190 = t139 * t2189;
6502   t2193 = t117 * t584;
6503   t2197 = t117 * t587;
6504   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6505     v3rho2tau[3] = -0.9e1 / 0.16e2 * t2127 - t2130 - 0.9e1 / 0.16e2 * t2166 - 0.3e1 / 0.16e2 * t2169 * t1162 + 0.3e1 / 0.8e1 * t1589 * t2172 - 0.3e1 / 0.16e2 * t2175 - 0.3e1 / 0.16e2 * t1597 * t2179 - 0.3e1 / 0.8e1 * t2182 - 0.3e1 / 0.8e1 * t434 * t2184 - 0.3e1 / 0.8e1 * t2187 - 0.3e1 / 0.8e1 * t2190 * t1613 + 0.3e1 / 0.8e1 * t2193 + 0.3e1 / 0.8e1 * t2190 * t1621 + 0.3e1 / 0.8e1 * t2197 + 0.3e1 / 0.8e1 * t2190 * t1626;
6506 
6507   t2202 = t173 * t1143;
6508   t2205 = t173 * t1147;
6509   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6510     v3rho2tau[4] = -0.9e1 / 0.8e1 * t2143 - t2117 - 0.3e1 / 0.16e2 * t1431 * t2202 - 0.3e1 / 0.8e1 * t399 * t2205;
6511 
6512   t2208 = t361 * t574;
6513   t2209 = t447 * t2208;
6514   t2212 = t177 * t354;
6515   t2213 = t2212 * t1681;
6516   t2215 = t177 * t1295;
6517   t2216 = t2215 * t1685;
6518   t2220 = t356 * t1291 * t177;
6519   t2223 = t1299 * t177;
6520   t2224 = t1674 * t2223;
6521   t2227 = t574 * t355;
6522   t2228 = t2227 * t466;
6523   t2231 = t2212 * t1690;
6524   t2235 = t574 * t128 * t461;
6525   t2238 = t178 * t1713;
6526   t2241 = t178 * t1245;
6527   t2244 = t1355 * t177;
6528   t2245 = t356 * t2244;
6529   t2248 = t2212 * t1707;
6530   t2256 = -t446 * t2209 / 0.4e1 + t150 * t2213 - 0.3e1 / 0.4e1 * t150 * t2216 - 0.3e1 / 0.8e1 * t446 * t2220 + 0.3e1 / 0.8e1 * t446 * t2224 + t150 * t2228 / 0.2e1 - t150 * t2231 / 0.4e1 - t150 * t2235 / 0.2e1 - t150 * t2238 / 0.2e1 - 0.3e1 / 0.16e2 * t1540 * t2241 + 0.3e1 / 0.8e1 * t446 * t2245 + 0.3e1 / 0.4e1 * t150 * t2248 - 0.3e1 / 0.4e1 * t150 * t2220 - 0.9e1 / 0.8e1 * t2166 - 0.3e1 / 0.8e1 * t2175 - 0.3e1 / 0.4e1 * t2187;
6531   t2259 = t575 * t470;
6532   t2263 = t177 * t375 * t461;
6533   t2266 = t583 * t1651;
6534   t2269 = t178 * t1636;
6535   t2272 = t575 * t340;
6536   t2275 = t178 * t1252;
6537   t2280 = t1260 * t569;
6538   t2288 = t1598 * t2177 * t111;
6539   t2295 = my_piecewise3(t50, -0.6e1 * t452, 0);
6540   t2296 = t2295 * t53;
6541   t2297 = t2296 * t132;
6542   t2300 = 0.3e1 / 0.4e1 * t2193 + 0.3e1 / 0.4e1 * t2197 + t150 * t2259 / 0.2e1 - t150 * t2263 / 0.4e1 + t150 * t2266 / 0.4e1 + t150 * t2269 / 0.4e1 - 0.3e1 / 0.4e1 * t434 * t2272 - 0.3e1 / 0.8e1 * t434 * t2275 - t1662 * t570 / 0.8e1 - t446 * t2280 / 0.8e1 - 0.3e1 / 0.4e1 * t2190 * t1728 + 0.3e1 / 0.4e1 * t2190 * t1731 - 0.3e1 / 0.8e1 * t1597 * t2288 + 0.3e1 / 0.4e1 * t2190 * t1725 - t2130 - 0.3e1 / 0.4e1 * t2182 - t150 * t2297 / 0.4e1;
6543   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6544     v3rho2tau[5] = t2256 + t2300;
6545 
6546   t2301 = t881 * t88;
6547   t2302 = t591 * t2301;
6548   t2304 = t590 * t877;
6549   t2305 = t889 * t88;
6550   t2306 = t2304 * t2305;
6551   t2309 = t595 * t88;
6552   t2310 = t2309 * t419;
6553   t2311 = t141 * t2310;
6554   t2312 = t2311 / 0.4e1;
6555   t2313 = t590 * t88;
6556   t2314 = t2313 * t1416;
6557   t2317 = t871 * t88;
6558   t2318 = t591 * t2317;
6559   t2321 = t600 * t823;
6560   t2324 = t257 * t412;
6561   t2325 = t145 * t2324;
6562   t2328 = t914 * t88;
6563   t2329 = t600 * t2328;
6564   t2332 = t139 * t1514;
6565   t2333 = t591 * t803;
6566   t2336 = t423 * t1469;
6567   t2339 = t918 * t88;
6568   t2340 = t591 * t2339;
6569   t2343 = t596 * t197;
6570   t2344 = t399 * t2343;
6571   t2345 = 0.3e1 / 0.8e1 * t2344;
6572   t2346 = t596 * t428;
6573   t2347 = t141 * t2346;
6574   t2348 = t2347 / 0.4e1;
6575   t2349 = t228 * t595;
6576   t2350 = t405 * t2349;
6577   t2351 = t404 * t2350;
6578   t2352 = t2351 / 0.8e1;
6579   t2353 = t141 * t2302 - 0.3e1 / 0.4e1 * t141 * t2306 - t2312 - t141 * t2314 / 0.4e1 - 0.3e1 / 0.4e1 * t141 * t2318 + 0.3e1 / 0.8e1 * t399 * t2321 + t141 * t2325 / 0.2e1 - t141 * t2329 / 0.2e1 - 0.3e1 / 0.16e2 * t2332 * t2333 - t404 * t2336 / 0.4e1 + 0.3e1 / 0.8e1 * t404 * t2340 - t2345 + t2348 - t2352;
6580   t2354 = t600 * t803;
6581   t2357 = t145 * t1469;
6582   t2360 = t600 * t2339;
6583   t2363 = t591 * t819;
6584   t2366 = t253 * t412;
6585   t2367 = t423 * t2366;
6586   t2372 = t2304 * t2301;
6587   t2375 = t595 * t222;
6588   t2376 = t2375 * t424;
6589   t2377 = t141 * t2376;
6590   t2378 = t2377 / 0.4e1;
6591   t2380 = 0.3e1 / 0.8e1 * t77 * t607;
6592   t2382 = 0.3e1 / 0.16e2 * t220 * t592;
6593   t2383 = t77 * t597;
6594   t2384 = 0.3e1 / 0.8e1 * t2383;
6595   t2386 = 0.3e1 / 0.8e1 * t77 * t601;
6596   t2388 = 0.3e1 / 0.8e1 * t77 * t604;
6597   t2391 = -0.3e1 / 0.8e1 * t399 * t2354 - t141 * t2357 / 0.2e1 + 0.3e1 / 0.4e1 * t141 * t2360 + 0.3e1 / 0.8e1 * t399 * t2363 + t141 * t2367 / 0.2e1 - 0.3e1 / 0.8e1 * t404 * t2318 + 0.3e1 / 0.8e1 * t404 * t2372 + t2378 + t2380 - t2382 - t2384 - t2386 + t2388 - t1462 * t592 / 0.8e1 - t599;
6598   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6599     v3rhosigma2[0] = t2353 + t2391;
6600 
6601   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6602     v3rhosigma2[1] = 0.0e0;
6603 
6604   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6605     v3rhosigma2[2] = 0.0e0;
6606 
6607   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6608     v3rhosigma2[3] = 0.0e0;
6609 
6610   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6611     v3rhosigma2[4] = 0.0e0;
6612 
6613   t2393 = 0.3e1 / 0.16e2 * t353 * t612;
6614   t2394 = t139 * t1595;
6615   t2395 = t611 * t1125;
6616   t2398 = t117 * t617;
6617   t2399 = 0.3e1 / 0.8e1 * t2398;
6618   t2400 = t616 * t313;
6619   t2402 = 0.3e1 / 0.8e1 * t434 * t2400;
6620   t2404 = 0.3e1 / 0.8e1 * t117 * t621;
6621   t2405 = t620 * t1125;
6622   t2409 = 0.3e1 / 0.8e1 * t117 * t624;
6623   t2410 = t611 * t1135;
6624   t2414 = 0.3e1 / 0.8e1 * t117 * t627;
6625   t2415 = t620 * t1139;
6626   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6627     v3rhosigma2[5] = -t2393 - 0.3e1 / 0.16e2 * t2394 * t2395 - t2399 - t2402 - t2404 - 0.3e1 / 0.8e1 * t434 * t2405 + t2409 + 0.3e1 / 0.8e1 * t434 * t2410 + t2414 + 0.3e1 / 0.8e1 * t434 * t2415;
6628 
6629   t2418 = t591 * t999;
6630   t2421 = t596 * t287;
6631   t2423 = 0.3e1 / 0.8e1 * t399 * t2421;
6632   t2424 = t600 * t999;
6633   t2427 = t591 * t1003;
6634   t2430 = t600 * t1007;
6635   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6636     v3rhosigma2[6] = -t2382 - 0.3e1 / 0.16e2 * t2332 * t2418 - t2384 - t2423 - t2386 - 0.3e1 / 0.8e1 * t399 * t2424 + t2388 + 0.3e1 / 0.8e1 * t399 * t2427 + t2380 + 0.3e1 / 0.8e1 * t399 * t2430;
6637 
6638   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6639     v3rhosigma2[7] = 0.0e0;
6640 
6641   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6642     v3rhosigma2[8] = 0.0e0;
6643 
6644   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6645     v3rhosigma2[9] = 0.0e0;
6646 
6647   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6648     v3rhosigma2[10] = 0.0e0;
6649 
6650   t2433 = t1291 * t128;
6651   t2434 = t611 * t2433;
6652   t2437 = t610 * t1295;
6653   t2438 = t1299 * t128;
6654   t2439 = t2437 * t2438;
6655   t2442 = t615 * t355;
6656   t2443 = t2442 * t466;
6657   t2444 = t150 * t2443;
6658   t2445 = t2444 / 0.4e1;
6659   t2446 = t611 * t2438;
6660   t2448 = t1307 * t128;
6661   t2449 = t2437 * t2448;
6662   t2452 = t615 * t128;
6663   t2453 = t2452 * t461;
6664   t2454 = t150 * t2453;
6665   t2455 = t2454 / 0.4e1;
6666   t2456 = t610 * t128;
6667   t2457 = t2456 * t1690;
6668   t2460 = t611 * t1256;
6669   t2463 = t386 * t454;
6670   t2464 = t465 * t2463;
6671   t2469 = t620 * t1272;
6672   t2472 = t390 * t454;
6673   t2473 = t154 * t2472;
6674   t2476 = t1351 * t128;
6675   t2477 = t620 * t2476;
6676   t2480 = t611 * t1264;
6677   t2483 = -0.3e1 / 0.8e1 * t446 * t2434 + 0.3e1 / 0.8e1 * t446 * t2439 + t2445 + t150 * t2446 - 0.3e1 / 0.4e1 * t150 * t2449 - t2455 - t150 * t2457 / 0.4e1 + 0.3e1 / 0.8e1 * t434 * t2460 + t150 * t2464 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t2434 + 0.3e1 / 0.8e1 * t434 * t2469 + t150 * t2473 / 0.2e1 - t150 * t2477 / 0.2e1 - 0.3e1 / 0.16e2 * t2394 * t2480;
6678   t2484 = t465 * t1640;
6679   t2487 = t1355 * t128;
6680   t2488 = t611 * t2487;
6681   t2491 = t616 * t340;
6682   t2492 = t434 * t2491;
6683   t2493 = 0.3e1 / 0.8e1 * t2492;
6684   t2494 = t616 * t470;
6685   t2495 = t150 * t2494;
6686   t2496 = t2495 / 0.4e1;
6687   t2497 = t361 * t615;
6688   t2498 = t447 * t2497;
6689   t2499 = t446 * t2498;
6690   t2500 = t2499 / 0.8e1;
6691   t2501 = t620 * t1264;
6692   t2504 = t154 * t1640;
6693   t2507 = t620 * t2487;
6694   t2512 = -t446 * t2484 / 0.4e1 + 0.3e1 / 0.8e1 * t446 * t2488 - t2493 + t2496 - t2500 - 0.3e1 / 0.8e1 * t434 * t2501 - t150 * t2504 / 0.2e1 + 0.3e1 / 0.4e1 * t150 * t2507 - t1662 * t612 / 0.8e1 - t2393 - t2399 - t2404 + t2409 + t2414 - t619;
6695   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6696     v3rhosigma2[11] = t2483 + t2512;
6697 
6698   t2514 = 0.3e1 / 0.16e2 * t220 * t630;
6699   t2516 = 0.3e1 / 0.8e1 * t77 * t634;
6700   t2518 = t484 * t144 * t419;
6701   t2521 = t160 * t412;
6702   t2522 = t2521 * t419;
6703   t2525 = t1819 * t637;
6704   t2528 = t493 * t2366;
6705   t2531 = t485 * t641;
6706   t2534 = t161 * t2324;
6707   t2540 = 0.3e1 / 0.8e1 * t77 * t638;
6708   t2542 = 0.3e1 / 0.8e1 * t77 * t642;
6709   t2543 = t1410 * t479;
6710   t2546 = t423 * t1790;
6711   t2549 = -t2514 - t2516 - t141 * t2518 / 0.4e1 - t141 * t2522 / 0.4e1 + t141 * t2525 / 0.4e1 + t141 * t2528 / 0.4e1 + t141 * t2531 / 0.4e1 + t141 * t2534 / 0.4e1 - t1462 * t630 / 0.8e1 + t2540 + t2542 - t404 * t2543 / 0.8e1 - t404 * t2546 / 0.8e1 - t2312 - t2345 + t2348;
6712   t2550 = t140 * t160;
6713   t2551 = t139 * t2550;
6714   t2552 = t870 * t144;
6715   t2553 = t2552 * t88;
6716   t2554 = t848 * t2553;
6717   t2557 = t1514 * t144;
6718   t2558 = t139 * t2557;
6719   t2561 = t403 * t144;
6720   t2562 = t139 * t2561;
6721   t2563 = t870 * t160;
6722   t2564 = t2563 * t88;
6723   t2565 = t1517 * t2564;
6724   t2568 = t145 * t803;
6725   t2571 = t145 * t2339;
6726   t2574 = t1502 * t2564;
6727   t2577 = t877 * t880;
6728   t2578 = t2577 * t2564;
6729   t2581 = t423 * t2301;
6730   t2583 = t877 * t888;
6731   t2584 = t2583 * t2553;
6732   t2587 = t417 * t1416;
6733   t2590 = t1502 * t1519;
6734   t2593 = t1502 * t2553;
6735   t2596 = t848 * t1519;
6736   t2599 = -t2352 + t2378 - t2551 * t2554 / 0.2e1 - 0.3e1 / 0.16e2 * t2558 * t1836 + 0.3e1 / 0.8e1 * t2562 * t2565 - 0.3e1 / 0.8e1 * t1827 * t2568 + 0.3e1 / 0.4e1 * t2551 * t2571 - 0.3e1 / 0.8e1 * t2562 * t2574 + 0.3e1 / 0.8e1 * t2562 * t2578 + t2551 * t2581 - 0.3e1 / 0.4e1 * t2551 * t2584 - t2551 * t2587 / 0.4e1 + 0.3e1 / 0.8e1 * t1827 * t2590 - 0.3e1 / 0.4e1 * t2551 * t2593 + 0.3e1 / 0.8e1 * t1827 * t2596 - t2384 - t599;
6737   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6738     v3rhosigmalapl[0] = t2549 + t2599;
6739 
6740   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6741     v3rhosigmalapl[1] = 0.0e0;
6742 
6743   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6744     v3rhosigmalapl[2] = 0.0e0;
6745 
6746   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6747     v3rhosigmalapl[3] = 0.0e0;
6748 
6749   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6750     v3rhosigmalapl[4] = 0.0e0;
6751 
6752   t2601 = 0.3e1 / 0.16e2 * t353 * t645;
6753   t2602 = t1595 * t153;
6754   t2603 = t139 * t2602;
6755   t2607 = 0.3e1 / 0.8e1 * t117 * t649;
6756   t2608 = t154 * t1125;
6757   t2612 = 0.3e1 / 0.8e1 * t117 * t653;
6758   t2613 = t1618 * t1600;
6759   t2617 = 0.3e1 / 0.8e1 * t117 * t657;
6760   t2618 = t1159 * t1600;
6761   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6762     v3rhosigmalapl[5] = -t2601 - 0.3e1 / 0.16e2 * t2603 * t1902 - t2399 - t2402 - t2607 - 0.3e1 / 0.8e1 * t1913 * t2608 + t2612 + 0.3e1 / 0.8e1 * t1913 * t2613 + t2617 + 0.3e1 / 0.8e1 * t1913 * t2618;
6763 
6764   t2623 = t145 * t999;
6765   t2626 = t1502 * t1559;
6766   t2629 = t848 * t1559;
6767   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6768     v3rhosigmalapl[6] = -t2514 - 0.3e1 / 0.16e2 * t2558 * t1873 - t2384 - t2423 - t2516 - 0.3e1 / 0.8e1 * t1827 * t2623 + t2540 + 0.3e1 / 0.8e1 * t1827 * t2626 + t2542 + 0.3e1 / 0.8e1 * t1827 * t2629;
6769 
6770   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6771     v3rhosigmalapl[7] = 0.0e0;
6772 
6773   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6774     v3rhosigmalapl[8] = 0.0e0;
6775 
6776   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6777     v3rhosigmalapl[9] = 0.0e0;
6778 
6779   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6780     v3rhosigmalapl[10] = 0.0e0;
6781 
6782   t2632 = t465 * t1948;
6783   t2636 = t516 * t153 * t461;
6784   t2639 = t167 * t454;
6785   t2640 = t2639 * t461;
6786   t2643 = t1974 * t652;
6787   t2646 = t525 * t2463;
6788   t2649 = t517 * t656;
6789   t2652 = t168 * t2472;
6790   t2657 = t1695 * t511;
6791   t2660 = -t446 * t2632 / 0.8e1 - t150 * t2636 / 0.4e1 - t150 * t2640 / 0.4e1 + t150 * t2643 / 0.4e1 + t150 * t2646 / 0.4e1 - t2601 - t2607 + t2612 + t2617 + t150 * t2649 / 0.4e1 + t150 * t2652 / 0.4e1 - t1662 * t645 / 0.8e1 - t446 * t2657 / 0.8e1 + t2445 - t2455 - t2493;
6792   t2661 = t445 * t153;
6793   t2662 = t139 * t2661;
6794   t2663 = t1290 * t167;
6795   t2664 = t2663 * t128;
6796   t2665 = t1618 * t2664;
6797   t2668 = t1295 * t1298;
6798   t2669 = t2668 * t2664;
6799   t2672 = t149 * t167;
6800   t2673 = t139 * t2672;
6801   t2674 = t465 * t2438;
6802   t2676 = t1295 * t1306;
6803   t2677 = t1290 * t153;
6804   t2678 = t2677 * t128;
6805   t2679 = t2676 * t2678;
6806   t2682 = t459 * t1690;
6807   t2685 = t154 * t2487;
6808   t2688 = t1618 * t1734;
6809   t2691 = t1618 * t2678;
6810   t2694 = t1159 * t1734;
6811   t2697 = t1159 * t2678;
6812   t2702 = t1598 * t2664;
6813   t2705 = t154 * t1264;
6814   t2708 = t2496 - t2500 - 0.3e1 / 0.8e1 * t2662 * t2665 + 0.3e1 / 0.8e1 * t2662 * t2669 + t2673 * t2674 - 0.3e1 / 0.4e1 * t2673 * t2679 - t2673 * t2682 / 0.4e1 + 0.3e1 / 0.4e1 * t2673 * t2685 + 0.3e1 / 0.8e1 * t1913 * t2688 - 0.3e1 / 0.4e1 * t2673 * t2691 + 0.3e1 / 0.8e1 * t1913 * t2694 - t2673 * t2697 / 0.2e1 - 0.3e1 / 0.16e2 * t2603 * t2011 + 0.3e1 / 0.8e1 * t2662 * t2702 - 0.3e1 / 0.8e1 * t1913 * t2705 - t2399 - t619;
6815   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6816     v3rhosigmalapl[11] = t2660 + t2708;
6817 
6818   t2709 = t551 * t2366;
6819   t2712 = t543 * t641;
6820   t2715 = t173 * t2324;
6821   t2720 = t1410 * t537;
6822   t2723 = t423 * t2080;
6823   t2727 = t542 * t144 * t419;
6824   t2731 = 0.3e1 / 0.8e1 * t77 * t667;
6825   t2733 = 0.3e1 / 0.8e1 * t77 * t670;
6826   t2735 = 0.3e1 / 0.16e2 * t220 * t660;
6827   t2737 = 0.3e1 / 0.8e1 * t77 * t664;
6828   t2739 = t172 * t412 * t419;
6829   t2742 = t2028 * t637;
6830   t2745 = t141 * t2709 / 0.4e1 + t141 * t2712 / 0.4e1 + t141 * t2715 / 0.4e1 - t1462 * t660 / 0.8e1 - t404 * t2720 / 0.8e1 - t404 * t2723 / 0.8e1 - t141 * t2727 / 0.4e1 + t2731 + t2733 - t2735 - t2737 - t141 * t2739 / 0.4e1 + t141 * t2742 / 0.4e1 - t2312 - t2345 + t2348;
6831   t2746 = t140 * t172;
6832   t2747 = t139 * t2746;
6833   t2756 = t870 * t172;
6834   t2757 = t2756 * t88;
6835   t2758 = t1517 * t2757;
6836   t2763 = t1502 * t2757;
6837   t2766 = t2577 * t2757;
6838   t2778 = -t2352 + t2378 - 0.3e1 / 0.4e1 * t2747 * t2593 + 0.3e1 / 0.8e1 * t2104 * t2596 - t2747 * t2554 / 0.2e1 - 0.3e1 / 0.16e2 * t2558 * t2109 + 0.3e1 / 0.8e1 * t2562 * t2758 - 0.3e1 / 0.8e1 * t2104 * t2568 - 0.3e1 / 0.8e1 * t2562 * t2763 + 0.3e1 / 0.8e1 * t2562 * t2766 + t2747 * t2581 - 0.3e1 / 0.4e1 * t2747 * t2584 - t2747 * t2587 / 0.4e1 + 0.3e1 / 0.4e1 * t2747 * t2571 + 0.3e1 / 0.8e1 * t2104 * t2590 - t2384 - t599;
6839   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6840     v3rhosigmatau[0] = t2745 + t2778;
6841 
6842   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6843     v3rhosigmatau[1] = 0.0e0;
6844 
6845   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6846     v3rhosigmatau[2] = 0.0e0;
6847 
6848   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6849     v3rhosigmatau[3] = 0.0e0;
6850 
6851   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6852     v3rhosigmatau[4] = 0.0e0;
6853 
6854   t2780 = 0.3e1 / 0.16e2 * t353 * t673;
6855   t2784 = 0.3e1 / 0.8e1 * t117 * t677;
6856   t2788 = 0.3e1 / 0.8e1 * t117 * t680;
6857   t2792 = 0.3e1 / 0.8e1 * t117 * t683;
6858   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6859     v3rhosigmatau[5] = -t2780 - 0.3e1 / 0.16e2 * t2603 * t2179 - t2399 - t2402 - t2784 - 0.3e1 / 0.8e1 * t2190 * t2608 + t2788 + 0.3e1 / 0.8e1 * t2190 * t2613 + t2792 + 0.3e1 / 0.8e1 * t2190 * t2618;
6860 
6861   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6862     v3rhosigmatau[6] = -t2735 - 0.3e1 / 0.16e2 * t2558 * t2150 - t2384 - t2423 - t2737 - 0.3e1 / 0.8e1 * t2104 * t2623 + t2731 + 0.3e1 / 0.8e1 * t2104 * t2626 + t2733 + 0.3e1 / 0.8e1 * t2104 * t2629;
6863 
6864   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6865     v3rhosigmatau[7] = 0.0e0;
6866 
6867   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6868     v3rhosigmatau[8] = 0.0e0;
6869 
6870   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6871     v3rhosigmatau[9] = 0.0e0;
6872 
6873   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6874     v3rhosigmatau[10] = 0.0e0;
6875 
6876   t2804 = t574 * t153 * t461;
6877   t2808 = t177 * t454 * t461;
6878   t2811 = t2227 * t652;
6879   t2814 = t583 * t2463;
6880   t2817 = t575 * t656;
6881   t2820 = t178 * t2472;
6882   t2825 = t1695 * t569;
6883   t2828 = t465 * t2208;
6884   t2831 = t2792 - t150 * t2804 / 0.4e1 - t150 * t2808 / 0.4e1 + t150 * t2811 / 0.4e1 + t150 * t2814 / 0.4e1 + t150 * t2817 / 0.4e1 + t150 * t2820 / 0.4e1 - t1662 * t673 / 0.8e1 - t446 * t2825 / 0.8e1 - t446 * t2828 / 0.8e1 - t2780 - t2784 + t2788 + t2445 - t2455 - t2493;
6885   t2832 = t1290 * t177;
6886   t2833 = t2832 * t128;
6887   t2834 = t1618 * t2833;
6888   t2837 = t2668 * t2833;
6889   t2840 = t149 * t177;
6890   t2841 = t139 * t2840;
6891   t2851 = t1598 * t2833;
6892   t2864 = t2496 - t2500 - 0.3e1 / 0.8e1 * t2662 * t2834 + 0.3e1 / 0.8e1 * t2662 * t2837 + t2841 * t2674 - 0.3e1 / 0.4e1 * t2841 * t2679 - t2841 * t2682 / 0.4e1 - t2841 * t2697 / 0.2e1 - 0.3e1 / 0.16e2 * t2603 * t2288 + 0.3e1 / 0.8e1 * t2662 * t2851 - 0.3e1 / 0.8e1 * t2190 * t2705 + 0.3e1 / 0.4e1 * t2841 * t2685 + 0.3e1 / 0.8e1 * t2190 * t2688 - 0.3e1 / 0.4e1 * t2841 * t2691 + 0.3e1 / 0.8e1 * t2190 * t2694 - t2399 - t619;
6893   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
6894     v3rhosigmatau[11] = t2831 + t2864;
6895 
6896   t2865 = t687 * t803;
6897   t2868 = t687 * t2317;
6898   t2871 = t686 * t877;
6899   t2872 = t2871 * t2301;
6900   t2875 = t687 * t2301;
6901   t2877 = t2871 * t2305;
6902   t2880 = t686 * t88;
6903   t2881 = t2880 * t1416;
6904   t2884 = t691 * t823;
6905   t2887 = t257 * t484;
6906   t2888 = t161 * t2887;
6907   t2891 = t691 * t2328;
6908   t2894 = t493 * t1790;
6909   t2897 = t687 * t2339;
6910   t2900 = t691 * t803;
6911   t2903 = t161 * t1790;
6912   t2906 = t691 * t2339;
6913   t2909 = -0.3e1 / 0.16e2 * t2332 * t2865 - 0.3e1 / 0.8e1 * t404 * t2868 + 0.3e1 / 0.8e1 * t404 * t2872 + t141 * t2875 - 0.3e1 / 0.4e1 * t141 * t2877 - t141 * t2881 / 0.4e1 + 0.3e1 / 0.8e1 * t399 * t2884 + t141 * t2888 / 0.2e1 - t141 * t2891 / 0.2e1 - t404 * t2894 / 0.4e1 + 0.3e1 / 0.8e1 * t404 * t2897 - 0.3e1 / 0.8e1 * t399 * t2900 - t141 * t2903 / 0.2e1 + 0.3e1 / 0.4e1 * t141 * t2906;
6914   t2910 = t687 * t819;
6915   t2913 = t253 * t484;
6916   t2914 = t493 * t2913;
6917   t2922 = 0.3e1 / 0.8e1 * t77 * t692;
6918   t2924 = 0.3e1 / 0.8e1 * t77 * t695;
6919   t2926 = 0.3e1 / 0.8e1 * t77 * t698;
6920   t2928 = 0.3e1 / 0.16e2 * t220 * t688;
6921   t2929 = 0.3e1 / 0.8e1 * t399 * t2910 + t141 * t2914 / 0.2e1 - 0.3e1 / 0.4e1 * t141 * t2868 - t2312 - t2345 + t2348 - t2352 + t2378 - t1462 * t688 / 0.8e1 - t2922 + t2924 + t2926 - t2928 - t2384 - t599;
6922   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6923     v3rholapl2[0] = t2909 + t2929;
6924 
6925   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6926     v3rholapl2[1] = 0.0e0;
6927 
6928   t2931 = 0.3e1 / 0.16e2 * t353 * t703;
6929   t2932 = t702 * t1125;
6930   t2936 = 0.3e1 / 0.8e1 * t117 * t707;
6931   t2937 = t706 * t1125;
6932   t2941 = 0.3e1 / 0.8e1 * t117 * t710;
6933   t2942 = t702 * t1135;
6934   t2946 = 0.3e1 / 0.8e1 * t117 * t713;
6935   t2947 = t706 * t1139;
6936   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6937     v3rholapl2[2] = -t2931 - 0.3e1 / 0.16e2 * t2394 * t2932 - t2399 - t2402 - t2936 - 0.3e1 / 0.8e1 * t434 * t2937 + t2941 + 0.3e1 / 0.8e1 * t434 * t2942 + t2946 + 0.3e1 / 0.8e1 * t434 * t2947;
6938 
6939   t2950 = t687 * t999;
6940   t2953 = t691 * t999;
6941   t2956 = t687 * t1003;
6942   t2959 = t691 * t1007;
6943   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6944     v3rholapl2[3] = -t2928 - 0.3e1 / 0.16e2 * t2332 * t2950 - t2384 - t2423 - t2922 - 0.3e1 / 0.8e1 * t399 * t2953 + t2924 + 0.3e1 / 0.8e1 * t399 * t2956 + t2926 + 0.3e1 / 0.8e1 * t399 * t2959;
6945 
6946   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6947     v3rholapl2[4] = 0.0e0;
6948 
6949   t2962 = t168 * t1948;
6950   t2965 = t706 * t2487;
6951   t2968 = t702 * t1256;
6952   t2971 = t386 * t516;
6953   t2972 = t525 * t2971;
6954   t2975 = t702 * t2433;
6955   t2980 = t701 * t1295;
6956   t2981 = t2980 * t2438;
6957   t2984 = t702 * t2438;
6958   t2986 = t2980 * t2448;
6959   t2989 = t701 * t128;
6960   t2990 = t2989 * t1690;
6961   t2993 = t706 * t1272;
6962   t2996 = t390 * t516;
6963   t2997 = t168 * t2996;
6964   t3000 = t706 * t2476;
6965   t3003 = t702 * t1264;
6966   t3006 = -t150 * t2962 / 0.2e1 + 0.3e1 / 0.4e1 * t150 * t2965 + 0.3e1 / 0.8e1 * t434 * t2968 + t150 * t2972 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t2975 - 0.3e1 / 0.8e1 * t446 * t2975 + 0.3e1 / 0.8e1 * t446 * t2981 + t150 * t2984 - 0.3e1 / 0.4e1 * t150 * t2986 - t150 * t2990 / 0.4e1 + 0.3e1 / 0.8e1 * t434 * t2993 + t150 * t2997 / 0.2e1 - t150 * t3000 / 0.2e1 - 0.3e1 / 0.16e2 * t2394 * t3003;
6967   t3007 = t525 * t1948;
6968   t3010 = t702 * t2487;
6969   t3013 = t706 * t1264;
6970   t3018 = -t446 * t3007 / 0.4e1 + 0.3e1 / 0.8e1 * t446 * t3010 - 0.3e1 / 0.8e1 * t434 * t3013 + t2445 - t2455 - t2493 + t2496 - t2500 + t2941 + t2946 - t1662 * t703 / 0.8e1 - t2931 - t2936 - t2399 - t619;
6971   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
6972     v3rholapl2[5] = t3006 + t3018;
6973 
6974   t3020 = 0.3e1 / 0.8e1 * t77 * t724;
6975   t3022 = t542 * t160 * t419;
6976   t3026 = t172 * t484 * t419;
6977   t3029 = t2028 * t723;
6978   t3032 = t551 * t2913;
6979   t3035 = t543 * t727;
6980   t3038 = t173 * t2887;
6981   t3043 = t1819 * t537;
6982   t3046 = t493 * t2080;
6983   t3050 = 0.3e1 / 0.8e1 * t77 * t728;
6984   t3052 = 0.3e1 / 0.16e2 * t220 * t716;
6985   t3054 = 0.3e1 / 0.8e1 * t77 * t720;
6986   t3055 = t3020 - t141 * t3022 / 0.4e1 - t141 * t3026 / 0.4e1 + t141 * t3029 / 0.4e1 + t141 * t3032 / 0.4e1 + t141 * t3035 / 0.4e1 + t141 * t3038 / 0.4e1 - t1462 * t716 / 0.8e1 - t404 * t3043 / 0.8e1 - t404 * t3046 / 0.8e1 + t3050 - t3052 - t3054 - t2312 - t2345 + t2348;
6987   t3056 = t403 * t160;
6988   t3057 = t139 * t3056;
6989   t3062 = t493 * t2301;
6990   t3064 = t2583 * t2564;
6991   t3067 = t489 * t1416;
6992   t3070 = t1502 * t1835;
6993   t3075 = t848 * t1835;
6994   t3078 = t848 * t2564;
6995   t3081 = t1514 * t160;
6996   t3082 = t139 * t3081;
6997   t3087 = t161 * t803;
6998   t3090 = t161 * t2339;
6999   t3093 = -t2352 + t2378 - 0.3e1 / 0.8e1 * t3057 * t2763 + 0.3e1 / 0.8e1 * t3057 * t2766 + t2747 * t3062 - 0.3e1 / 0.4e1 * t2747 * t3064 - t2747 * t3067 / 0.4e1 + 0.3e1 / 0.8e1 * t2104 * t3070 - 0.3e1 / 0.4e1 * t2747 * t2574 + 0.3e1 / 0.8e1 * t2104 * t3075 - t2747 * t3078 / 0.2e1 - 0.3e1 / 0.16e2 * t3082 * t2109 + 0.3e1 / 0.8e1 * t3057 * t2758 - 0.3e1 / 0.8e1 * t2104 * t3087 + 0.3e1 / 0.4e1 * t2747 * t3090 - t2384 - t599;
7000   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7001     v3rholapltau[0] = t3055 + t3093;
7002 
7003   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7004     v3rholapltau[1] = 0.0e0;
7005 
7006   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7007     v3rholapltau[2] = 0.0e0;
7008 
7009   t3095 = 0.3e1 / 0.16e2 * t353 * t731;
7010   t3096 = t1595 * t167;
7011   t3097 = t139 * t3096;
7012   t3101 = 0.3e1 / 0.8e1 * t117 * t735;
7013   t3102 = t168 * t1125;
7014   t3106 = 0.3e1 / 0.8e1 * t117 * t739;
7015   t3107 = t1618 * t1901;
7016   t3111 = 0.3e1 / 0.8e1 * t117 * t743;
7017   t3112 = t1159 * t1901;
7018   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7019     v3rholapltau[3] = -t3095 - 0.3e1 / 0.16e2 * t3097 * t2179 - t2399 - t2402 - t3101 - 0.3e1 / 0.8e1 * t2190 * t3102 + t3106 + 0.3e1 / 0.8e1 * t2190 * t3107 + t3111 + 0.3e1 / 0.8e1 * t2190 * t3112;
7020 
7021   t3117 = t161 * t999;
7022   t3120 = t1502 * t1872;
7023   t3123 = t848 * t1872;
7024   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7025     v3rholapltau[4] = -t3052 - 0.3e1 / 0.16e2 * t3082 * t2150 - t2384 - t2423 - t3054 - 0.3e1 / 0.8e1 * t2104 * t3117 + t3020 + 0.3e1 / 0.8e1 * t2104 * t3120 + t3050 + 0.3e1 / 0.8e1 * t2104 * t3123;
7026 
7027   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7028     v3rholapltau[5] = 0.0e0;
7029 
7030   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7031     v3rholapltau[6] = 0.0e0;
7032 
7033   t3127 = t574 * t167 * t461;
7034   t3131 = t177 * t516 * t461;
7035   t3134 = t2227 * t738;
7036   t3137 = t583 * t2971;
7037   t3140 = t575 * t742;
7038   t3143 = t178 * t2996;
7039   t3148 = t1974 * t569;
7040   t3151 = t525 * t2208;
7041   t3154 = -t150 * t3127 / 0.4e1 - t150 * t3131 / 0.4e1 + t150 * t3134 / 0.4e1 + t150 * t3137 / 0.4e1 + t150 * t3140 / 0.4e1 + t150 * t3143 / 0.4e1 - t1662 * t731 / 0.8e1 - t446 * t3148 / 0.8e1 - t446 * t3151 / 0.8e1 - t3095 - t3101 + t3106 + t3111 + t2445 - t2455 - t2493;
7042   t3155 = t445 * t167;
7043   t3156 = t139 * t3155;
7044   t3159 = t168 * t1264;
7045   t3162 = t168 * t2487;
7046   t3165 = t1618 * t2010;
7047   t3172 = t525 * t2438;
7048   t3174 = t2676 * t2664;
7049   t3177 = t521 * t1690;
7050   t3182 = t1159 * t2010;
7051   t3185 = t1159 * t2664;
7052   t3190 = t2496 - t2500 + 0.3e1 / 0.8e1 * t3156 * t2851 - 0.3e1 / 0.8e1 * t2190 * t3159 + 0.3e1 / 0.4e1 * t2841 * t3162 + 0.3e1 / 0.8e1 * t2190 * t3165 - 0.3e1 / 0.8e1 * t3156 * t2834 + 0.3e1 / 0.8e1 * t3156 * t2837 + t2841 * t3172 - 0.3e1 / 0.4e1 * t2841 * t3174 - t2841 * t3177 / 0.4e1 - 0.3e1 / 0.4e1 * t2841 * t2665 + 0.3e1 / 0.8e1 * t2190 * t3182 - t2841 * t3185 / 0.2e1 - 0.3e1 / 0.16e2 * t3097 * t2288 - t2399 - t619;
7053   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7054     v3rholapltau[7] = t3154 + t3190;
7055 
7056   t3191 = t747 * t803;
7057   t3194 = t746 * t877;
7058   t3195 = t3194 * t2301;
7059   t3198 = t747 * t2301;
7060   t3200 = t3194 * t2305;
7061   t3203 = t747 * t2317;
7062   t3207 = t746 * t88 * t1416;
7063   t3210 = t751 * t823;
7064   t3214 = t173 * t257 * t542;
7065   t3217 = t751 * t2328;
7066   t3220 = t551 * t2080;
7067   t3223 = t747 * t2339;
7068   t3226 = t751 * t803;
7069   t3229 = t173 * t2080;
7070   t3232 = t751 * t2339;
7071   t3235 = -0.3e1 / 0.16e2 * t2332 * t3191 + 0.3e1 / 0.8e1 * t404 * t3195 + t141 * t3198 - 0.3e1 / 0.4e1 * t141 * t3200 - 0.3e1 / 0.8e1 * t404 * t3203 - t141 * t3207 / 0.4e1 + 0.3e1 / 0.8e1 * t399 * t3210 + t141 * t3214 / 0.2e1 - t141 * t3217 / 0.2e1 - t404 * t3220 / 0.4e1 + 0.3e1 / 0.8e1 * t404 * t3223 - 0.3e1 / 0.8e1 * t399 * t3226 - t141 * t3229 / 0.2e1 + 0.3e1 / 0.4e1 * t141 * t3232;
7072   t3236 = t747 * t819;
7073   t3240 = t551 * t253 * t542;
7074   t3246 = 0.3e1 / 0.8e1 * t77 * t752;
7075   t3248 = 0.3e1 / 0.8e1 * t77 * t755;
7076   t3250 = 0.3e1 / 0.8e1 * t77 * t758;
7077   t3252 = 0.3e1 / 0.16e2 * t220 * t748;
7078   t3255 = 0.3e1 / 0.8e1 * t399 * t3236 + t141 * t3240 / 0.2e1 - 0.3e1 / 0.4e1 * t141 * t3203 - t2312 - t2345 + t2348 - t2352 + t2378 - t3246 + t3248 + t3250 - t3252 - t1462 * t748 / 0.8e1 - t2384 - t599;
7079   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7080     v3rhotau2[0] = t3235 + t3255;
7081 
7082   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7083     v3rhotau2[1] = 0.0e0;
7084 
7085   t3257 = 0.3e1 / 0.16e2 * t353 * t763;
7086   t3258 = t762 * t1125;
7087   t3262 = 0.3e1 / 0.8e1 * t117 * t767;
7088   t3263 = t766 * t1125;
7089   t3267 = 0.3e1 / 0.8e1 * t117 * t770;
7090   t3268 = t762 * t1135;
7091   t3272 = 0.3e1 / 0.8e1 * t117 * t773;
7092   t3273 = t766 * t1139;
7093   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7094     v3rhotau2[2] = -t3257 - 0.3e1 / 0.16e2 * t2394 * t3258 - t2399 - t2402 - t3262 - 0.3e1 / 0.8e1 * t434 * t3263 + t3267 + 0.3e1 / 0.8e1 * t434 * t3268 + t3272 + 0.3e1 / 0.8e1 * t434 * t3273;
7095 
7096   t3276 = t747 * t999;
7097   t3279 = t751 * t999;
7098   t3282 = t747 * t1003;
7099   t3285 = t751 * t1007;
7100   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7101     v3rhotau2[3] = -t3252 - 0.3e1 / 0.16e2 * t2332 * t3276 - t2384 - t2423 - t3246 - 0.3e1 / 0.8e1 * t399 * t3279 + t3248 + 0.3e1 / 0.8e1 * t399 * t3282 + t3250 + 0.3e1 / 0.8e1 * t399 * t3285;
7102 
7103   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7104     v3rhotau2[4] = 0.0e0;
7105 
7106   t3288 = t761 * t1295;
7107   t3289 = t3288 * t2438;
7108   t3292 = t762 * t2438;
7109   t3294 = t3288 * t2448;
7110   t3298 = t761 * t128 * t1690;
7111   t3301 = t766 * t2476;
7112   t3304 = t762 * t1264;
7113   t3307 = t583 * t2208;
7114   t3310 = t762 * t2487;
7115   t3313 = t766 * t1264;
7116   t3316 = t178 * t2208;
7117   t3319 = t766 * t2487;
7118   t3322 = t762 * t1256;
7119   t3326 = t583 * t386 * t574;
7120   t3329 = t762 * t2433;
7121   t3332 = 0.3e1 / 0.8e1 * t446 * t3289 + t150 * t3292 - 0.3e1 / 0.4e1 * t150 * t3294 - t150 * t3298 / 0.4e1 - t150 * t3301 / 0.2e1 - 0.3e1 / 0.16e2 * t2394 * t3304 - t446 * t3307 / 0.4e1 + 0.3e1 / 0.8e1 * t446 * t3310 - 0.3e1 / 0.8e1 * t434 * t3313 - t150 * t3316 / 0.2e1 + 0.3e1 / 0.4e1 * t150 * t3319 + 0.3e1 / 0.8e1 * t434 * t3322 + t150 * t3326 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t3329;
7122   t3335 = t766 * t1272;
7123   t3339 = t178 * t390 * t574;
7124   t3344 = -0.3e1 / 0.8e1 * t446 * t3329 + 0.3e1 / 0.8e1 * t434 * t3335 + t150 * t3339 / 0.2e1 + t2445 - t2455 - t2493 + t2496 - t2500 - t3257 - t3262 + t3267 + t3272 - t1662 * t763 / 0.8e1 - t2399 - t619;
7125   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7126     v3rhotau2[5] = t3332 + t3344;
7127 
7128   t3345 = t590 * t144;
7129   t3346 = t3345 * t28;
7130   t3347 = t3346 * t918;
7131   t3350 = t3345 * t222;
7132   t3351 = t3350 * t871;
7133   t3354 = t3346 * t914;
7134   t3357 = t423 * t2349;
7135   t3358 = t404 * t3357;
7136   t3359 = 0.3e1 / 0.8e1 * t3358;
7137   t3360 = t3350 * t918;
7138   t3363 = t596 * t641;
7139   t3364 = t141 * t3363;
7140   t3365 = 0.3e1 / 0.4e1 * t3364;
7141   t3366 = t75 * t144;
7142   t3368 = t853 * t144;
7143   t3370 = t856 * t144;
7144   t3373 = t3366 * t849 / 0.2e1 + t3368 * t849 / 0.2e1 - t3370 * t849 / 0.2e1;
7145   t3374 = t9 * t3373;
7146   t3375 = t139 * t3374;
7147   t3378 = t3350 * t881;
7148   t3380 = t3345 * t877;
7149   t3381 = t3380 * t889;
7150   t3386 = t3380 * t881;
7151   t3389 = t2375 * t637;
7152   t3390 = t141 * t3389;
7153   t3391 = 0.3e1 / 0.4e1 * t3390;
7154   t3392 = t595 * t144;
7155   t3393 = t3392 * t419;
7156   t3394 = t141 * t3393;
7157   t3395 = 0.3e1 / 0.4e1 * t3394;
7158   t3396 = t3346 * t871;
7159   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7160     v3sigma3[0] = 0.3e1 / 0.4e1 * t141 * t3347 - 0.3e1 / 0.4e1 * t141 * t3351 - t141 * t3354 / 0.2e1 - t3359 + 0.3e1 / 0.8e1 * t404 * t3360 + t3365 - t3375 * t592 / 0.8e1 + t141 * t3378 - 0.3e1 / 0.4e1 * t141 * t3381 - 0.3e1 / 0.8e1 * t404 * t3351 + 0.3e1 / 0.8e1 * t404 * t3386 + t3391 - t3395 - t141 * t3396 / 0.4e1 - t599;
7161 
7162   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7163     v3sigma3[1] = 0.0e0;
7164 
7165   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7166     v3sigma3[2] = 0.0e0;
7167 
7168   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7169     v3sigma3[3] = 0.0e0;
7170 
7171   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7172     v3sigma3[4] = 0.0e0;
7173 
7174   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7175     v3sigma3[5] = 0.0e0;
7176 
7177   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7178     v3sigma3[6] = 0.0e0;
7179 
7180   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7181     v3sigma3[7] = 0.0e0;
7182 
7183   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7184     v3sigma3[8] = 0.0e0;
7185 
7186   t3399 = t610 * t153;
7187   t3400 = t3399 * t53;
7188   t3401 = t3400 * t1355;
7189   t3404 = t3399 * t355;
7190   t3405 = t3404 * t1291;
7191   t3408 = t3400 * t1351;
7192   t3411 = t465 * t2497;
7193   t3412 = t446 * t3411;
7194   t3413 = 0.3e1 / 0.8e1 * t3412;
7195   t3414 = t3404 * t1355;
7196   t3417 = t616 * t656;
7197   t3418 = t150 * t3417;
7198   t3419 = 0.3e1 / 0.4e1 * t3418;
7199   t3420 = t115 * t153;
7200   t3422 = t1320 * t153;
7201   t3424 = t1323 * t153;
7202   t3427 = t3420 * t1316 / 0.2e1 + t3422 * t1316 / 0.2e1 - t3424 * t1316 / 0.2e1;
7203   t3428 = t37 * t3427;
7204   t3429 = t139 * t3428;
7205   t3434 = t3399 * t1295;
7206   t3435 = t3434 * t1299;
7207   t3438 = t2442 * t652;
7208   t3439 = t150 * t3438;
7209   t3440 = 0.3e1 / 0.4e1 * t3439;
7210   t3441 = t3404 * t1299;
7211   t3443 = t3434 * t1307;
7212   t3446 = t615 * t153;
7213   t3447 = t3446 * t461;
7214   t3448 = t150 * t3447;
7215   t3449 = 0.3e1 / 0.4e1 * t3448;
7216   t3450 = t3400 * t1291;
7217   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7218     v3sigma3[9] = 0.3e1 / 0.4e1 * t150 * t3401 - 0.3e1 / 0.4e1 * t150 * t3405 - t150 * t3408 / 0.2e1 - t3413 + 0.3e1 / 0.8e1 * t446 * t3414 + t3419 - t3429 * t612 / 0.8e1 - 0.3e1 / 0.8e1 * t446 * t3405 + 0.3e1 / 0.8e1 * t446 * t3435 + t3440 + t150 * t3441 - 0.3e1 / 0.4e1 * t150 * t3443 - t3449 - t150 * t3450 / 0.4e1 - t619;
7219 
7220   t3453 = t257 * t595;
7221   t3454 = t161 * t3453;
7222   t3455 = t141 * t3454;
7223   t3456 = t3455 / 0.4e1;
7224   t3459 = t2375 * t479;
7225   t3460 = t404 * t3459;
7226   t3461 = t3460 / 0.8e1;
7227   t3462 = t160 * t595;
7228   t3463 = t3462 * t419;
7229   t3464 = t141 * t3463;
7230   t3465 = t3464 / 0.4e1;
7231   t3466 = t253 * t595;
7232   t3467 = t493 * t3466;
7233   t3468 = t141 * t3467;
7234   t3469 = t3468 / 0.4e1;
7235   t3470 = t3358 / 0.4e1;
7236   t3471 = t3364 / 0.2e1;
7237   t3472 = t591 * t1759;
7238   t3475 = t160 * t590;
7239   t3476 = t3475 * t1439;
7240   t3479 = t871 * t590;
7241   t3480 = t493 * t3479;
7242   t3483 = t914 * t590;
7243   t3484 = t161 * t3483;
7244   t3489 = t2304 * t1813;
7245   t3492 = t3475 * t1492;
7246   t3494 = t889 * t590;
7247   t3495 = t1807 * t3494;
7248   t3498 = t3475 * t1416;
7249   t3501 = t3390 / 0.2e1;
7250   t3502 = t3394 / 0.2e1;
7251   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7252     v3sigma2lapl[0] = t3456 - t3375 * t630 / 0.8e1 - t3461 - t3465 + t3469 - t3470 + t3471 + 0.3e1 / 0.8e1 * t404 * t3472 + 0.3e1 / 0.4e1 * t141 * t3476 - 0.3e1 / 0.4e1 * t141 * t3480 - t141 * t3484 / 0.2e1 - 0.3e1 / 0.8e1 * t404 * t3480 + 0.3e1 / 0.8e1 * t404 * t3489 + t141 * t3492 - 0.3e1 / 0.4e1 * t141 * t3495 - t141 * t3498 / 0.4e1 + t3501 - t3502 - t599;
7253 
7254   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7255     v3sigma2lapl[1] = 0.0e0;
7256 
7257   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7258     v3sigma2lapl[2] = 0.0e0;
7259 
7260   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7261     v3sigma2lapl[3] = 0.0e0;
7262 
7263   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7264     v3sigma2lapl[4] = 0.0e0;
7265 
7266   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7267     v3sigma2lapl[5] = 0.0e0;
7268 
7269   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7270     v3sigma2lapl[6] = 0.0e0;
7271 
7272   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7273     v3sigma2lapl[7] = 0.0e0;
7274 
7275   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7276     v3sigma2lapl[8] = 0.0e0;
7277 
7278   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7279     v3sigma2lapl[9] = 0.0e0;
7280 
7281   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7282     v3sigma2lapl[10] = 0.0e0;
7283 
7284   t3503 = t386 * t615;
7285   t3504 = t525 * t3503;
7286   t3505 = t150 * t3504;
7287   t3506 = t3505 / 0.4e1;
7288   t3507 = t390 * t615;
7289   t3508 = t168 * t3507;
7290   t3509 = t150 * t3508;
7291   t3510 = t3509 / 0.4e1;
7292   t3513 = t2442 * t511;
7293   t3514 = t446 * t3513;
7294   t3515 = t3514 / 0.8e1;
7295   t3516 = t167 * t615;
7296   t3517 = t3516 * t461;
7297   t3518 = t150 * t3517;
7298   t3519 = t3518 / 0.4e1;
7299   t3520 = t3412 / 0.4e1;
7300   t3521 = t3418 / 0.2e1;
7301   t3522 = t1351 * t610;
7302   t3523 = t168 * t3522;
7303   t3526 = t611 * t1992;
7304   t3529 = t167 * t610;
7305   t3530 = t3529 * t1707;
7306   t3533 = t1291 * t610;
7307   t3534 = t525 * t3533;
7308   t3539 = t2437 * t1963;
7309   t3542 = t3529 * t1681;
7310   t3544 = t1307 * t610;
7311   t3545 = t1970 * t3544;
7312   t3548 = t3529 * t1690;
7313   t3551 = t3439 / 0.2e1;
7314   t3552 = t3448 / 0.2e1;
7315   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7316     v3sigma2lapl[11] = t3506 + t3510 - t3429 * t645 / 0.8e1 - t3515 - t3519 - t3520 + t3521 - t150 * t3523 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t3526 + 0.3e1 / 0.4e1 * t150 * t3530 - 0.3e1 / 0.4e1 * t150 * t3534 - 0.3e1 / 0.8e1 * t446 * t3534 + 0.3e1 / 0.8e1 * t446 * t3539 + t150 * t3542 - 0.3e1 / 0.4e1 * t150 * t3545 - t150 * t3548 / 0.4e1 + t3551 - t3552 - t619;
7317 
7318   t3554 = t172 * t595 * t419;
7319   t3555 = t141 * t3554;
7320   t3556 = t3555 / 0.4e1;
7321   t3557 = t551 * t3466;
7322   t3558 = t141 * t3557;
7323   t3559 = t3558 / 0.4e1;
7324   t3560 = t173 * t3453;
7325   t3561 = t141 * t3560;
7326   t3562 = t3561 / 0.4e1;
7327   t3565 = t2375 * t537;
7328   t3566 = t404 * t3565;
7329   t3567 = t3566 / 0.8e1;
7330   t3568 = t173 * t3483;
7331   t3571 = t591 * t2050;
7332   t3574 = t172 * t590;
7333   t3575 = t3574 * t1439;
7334   t3578 = t551 * t3479;
7335   t3583 = t2304 * t2097;
7336   t3586 = t3574 * t1492;
7337   t3588 = t2024 * t3494;
7338   t3591 = t3574 * t1416;
7339   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7340     v3sigma2tau[0] = -t3556 + t3559 + t3562 - t3375 * t660 / 0.8e1 - t3567 - t3470 + t3471 - t141 * t3568 / 0.2e1 + 0.3e1 / 0.8e1 * t404 * t3571 + 0.3e1 / 0.4e1 * t141 * t3575 - 0.3e1 / 0.4e1 * t141 * t3578 - 0.3e1 / 0.8e1 * t404 * t3578 + 0.3e1 / 0.8e1 * t404 * t3583 + t141 * t3586 - 0.3e1 / 0.4e1 * t141 * t3588 - t141 * t3591 / 0.4e1 + t3501 - t3502 - t599;
7341 
7342   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7343     v3sigma2tau[1] = 0.0e0;
7344 
7345   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7346     v3sigma2tau[2] = 0.0e0;
7347 
7348   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7349     v3sigma2tau[3] = 0.0e0;
7350 
7351   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7352     v3sigma2tau[4] = 0.0e0;
7353 
7354   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7355     v3sigma2tau[5] = 0.0e0;
7356 
7357   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7358     v3sigma2tau[6] = 0.0e0;
7359 
7360   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7361     v3sigma2tau[7] = 0.0e0;
7362 
7363   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7364     v3sigma2tau[8] = 0.0e0;
7365 
7366   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7367     v3sigma2tau[9] = 0.0e0;
7368 
7369   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7370     v3sigma2tau[10] = 0.0e0;
7371 
7372   t3594 = t178 * t3507;
7373   t3595 = t150 * t3594;
7374   t3596 = t3595 / 0.4e1;
7375   t3599 = t2442 * t569;
7376   t3600 = t446 * t3599;
7377   t3601 = t3600 / 0.8e1;
7378   t3603 = t177 * t615 * t461;
7379   t3604 = t150 * t3603;
7380   t3605 = t3604 / 0.4e1;
7381   t3606 = t583 * t3503;
7382   t3607 = t150 * t3606;
7383   t3608 = t3607 / 0.4e1;
7384   t3609 = t583 * t3533;
7385   t3612 = t178 * t3522;
7386   t3615 = t611 * t2244;
7387   t3618 = t177 * t610;
7388   t3619 = t3618 * t1707;
7389   t3624 = t2437 * t2223;
7390   t3627 = t3618 * t1681;
7391   t3629 = t2215 * t3544;
7392   t3632 = t3618 * t1690;
7393   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7394     v3sigma2tau[11] = t3596 - t3429 * t673 / 0.8e1 - t3601 - t3605 + t3608 - t3520 + t3521 - 0.3e1 / 0.4e1 * t150 * t3609 - t150 * t3612 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t3615 + 0.3e1 / 0.4e1 * t150 * t3619 - 0.3e1 / 0.8e1 * t446 * t3609 + 0.3e1 / 0.8e1 * t446 * t3624 + t150 * t3627 - 0.3e1 / 0.4e1 * t150 * t3629 - t150 * t3632 / 0.4e1 + t3551 - t3552 - t619;
7395 
7396   t3635 = t691 * t1435;
7397   t3638 = t871 * t144;
7398   t3639 = t687 * t3638;
7399   t3642 = t914 * t144;
7400   t3643 = t691 * t3642;
7401   t3646 = t687 * t1435;
7402   t3651 = t3455 / 0.2e1;
7403   t3652 = t3460 / 0.4e1;
7404   t3653 = t3464 / 0.2e1;
7405   t3654 = t3468 / 0.2e1;
7406   t3655 = t3358 / 0.8e1;
7407   t3656 = t3364 / 0.4e1;
7408   t3657 = t889 * t144;
7409   t3658 = t2871 * t3657;
7410   t3663 = t2871 * t1487;
7411   t3666 = t687 * t1487;
7412   t3668 = t3390 / 0.4e1;
7413   t3669 = t686 * t144;
7414   t3670 = t3669 * t1416;
7415   t3673 = t3394 / 0.4e1;
7416   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7417     v3sigmalapl2[0] = 0.3e1 / 0.4e1 * t141 * t3635 - 0.3e1 / 0.4e1 * t141 * t3639 - t141 * t3643 / 0.2e1 + 0.3e1 / 0.8e1 * t404 * t3646 - t3375 * t688 / 0.8e1 + t3651 - t3652 - t3653 + t3654 - t3655 + t3656 - 0.3e1 / 0.4e1 * t141 * t3658 - 0.3e1 / 0.8e1 * t404 * t3639 + 0.3e1 / 0.8e1 * t404 * t3663 + t141 * t3666 + t3668 - t141 * t3670 / 0.4e1 - t3673 - t599;
7418 
7419   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7420     v3sigmalapl2[1] = 0.0e0;
7421 
7422   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7423     v3sigmalapl2[2] = 0.0e0;
7424 
7425   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7426     v3sigmalapl2[3] = 0.0e0;
7427 
7428   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7429     v3sigmalapl2[4] = 0.0e0;
7430 
7431   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7432     v3sigmalapl2[5] = 0.0e0;
7433 
7434   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7435     v3sigmalapl2[6] = 0.0e0;
7436 
7437   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7438     v3sigmalapl2[7] = 0.0e0;
7439 
7440   t3674 = t702 * t1670;
7441   t3677 = t1351 * t153;
7442   t3678 = t706 * t3677;
7443   t3681 = t702 * t1703;
7444   t3684 = t706 * t1703;
7445   t3689 = t3505 / 0.2e1;
7446   t3690 = t3509 / 0.2e1;
7447   t3691 = t3514 / 0.4e1;
7448   t3692 = t3518 / 0.2e1;
7449   t3693 = t3412 / 0.8e1;
7450   t3694 = t3418 / 0.4e1;
7451   t3697 = t2980 * t1675;
7452   t3700 = t702 * t1675;
7453   t3702 = t1307 * t153;
7454   t3703 = t2980 * t3702;
7455   t3706 = t3439 / 0.4e1;
7456   t3707 = t701 * t153;
7457   t3708 = t3707 * t1690;
7458   t3711 = t3448 / 0.4e1;
7459   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7460     v3sigmalapl2[8] = -0.3e1 / 0.4e1 * t150 * t3674 - t150 * t3678 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t3681 + 0.3e1 / 0.4e1 * t150 * t3684 - t3429 * t703 / 0.8e1 + t3689 + t3690 - t3691 - t3692 - t3693 + t3694 - 0.3e1 / 0.8e1 * t446 * t3674 + 0.3e1 / 0.8e1 * t446 * t3697 + t150 * t3700 - 0.3e1 / 0.4e1 * t150 * t3703 + t3706 - t150 * t3708 / 0.4e1 - t3711 - t619;
7461 
7462   t3714 = -t3375 * t716 / 0.8e1 - t3556 + t3559 + t3562 - t3567 + t3456 - t3461 - t3465 + t3469 - t3655 + t3656;
7463   t3715 = t2756 * t144;
7464   t3716 = t1517 * t3715;
7465   t3719 = t161 * t1435;
7466   t3722 = t2563 * t144;
7467   t3723 = t1502 * t3722;
7468   t3726 = t848 * t3722;
7469   t3729 = t2583 * t3722;
7470   t3732 = t1502 * t3715;
7471   t3735 = t2577 * t3715;
7472   t3738 = t493 * t1487;
7473   t3740 = t633 * t1416;
7474   t3743 = 0.3e1 / 0.8e1 * t3057 * t3716 + 0.3e1 / 0.4e1 * t2747 * t3719 - 0.3e1 / 0.4e1 * t2747 * t3723 - t2747 * t3726 / 0.2e1 - 0.3e1 / 0.4e1 * t2747 * t3729 - 0.3e1 / 0.8e1 * t3057 * t3732 + 0.3e1 / 0.8e1 * t3057 * t3735 + t2747 * t3738 - t2747 * t3740 / 0.4e1 + t3668 - t3673 - t599;
7475   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7476     v3sigmalapltau[0] = t3714 + t3743;
7477 
7478   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7479     v3sigmalapltau[1] = 0.0e0;
7480 
7481   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7482     v3sigmalapltau[2] = 0.0e0;
7483 
7484   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7485     v3sigmalapltau[3] = 0.0e0;
7486 
7487   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7488     v3sigmalapltau[4] = 0.0e0;
7489 
7490   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7491     v3sigmalapltau[5] = 0.0e0;
7492 
7493   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7494     v3sigmalapltau[6] = 0.0e0;
7495 
7496   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7497     v3sigmalapltau[7] = 0.0e0;
7498 
7499   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7500     v3sigmalapltau[8] = 0.0e0;
7501 
7502   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7503     v3sigmalapltau[9] = 0.0e0;
7504 
7505   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7506     v3sigmalapltau[10] = 0.0e0;
7507 
7508   t3746 = -t3429 * t731 / 0.8e1 + t3596 - t3601 - t3605 + t3608 + t3506 + t3510 - t3515 - t3519 - t3693 + t3694;
7509   t3747 = t2663 * t153;
7510   t3748 = t1618 * t3747;
7511   t3751 = t1159 * t3747;
7512   t3754 = t2832 * t153;
7513   t3755 = t1598 * t3754;
7514   t3758 = t168 * t1703;
7515   t3761 = t1618 * t3754;
7516   t3764 = t2668 * t3754;
7517   t3767 = t525 * t1675;
7518   t3769 = t2676 * t3747;
7519   t3772 = t648 * t1690;
7520   t3775 = -0.3e1 / 0.4e1 * t2841 * t3748 - t2841 * t3751 / 0.2e1 + 0.3e1 / 0.8e1 * t3156 * t3755 + 0.3e1 / 0.4e1 * t2841 * t3758 - 0.3e1 / 0.8e1 * t3156 * t3761 + 0.3e1 / 0.8e1 * t3156 * t3764 + t2841 * t3767 - 0.3e1 / 0.4e1 * t2841 * t3769 - t2841 * t3772 / 0.4e1 + t3706 - t3711 - t619;
7521   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7522     v3sigmalapltau[11] = t3746 + t3775;
7523 
7524   t3776 = t751 * t1435;
7525   t3779 = t747 * t3638;
7526   t3782 = t751 * t3642;
7527   t3785 = t747 * t1435;
7528   t3790 = t3555 / 0.2e1;
7529   t3791 = t3558 / 0.2e1;
7530   t3792 = t3561 / 0.2e1;
7531   t3793 = t3566 / 0.4e1;
7532   t3796 = t3194 * t1487;
7533   t3799 = t747 * t1487;
7534   t3801 = t3194 * t3657;
7535   t3805 = t746 * t144 * t1416;
7536   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7537     v3sigmatau2[0] = 0.3e1 / 0.4e1 * t141 * t3776 - 0.3e1 / 0.4e1 * t141 * t3779 - t141 * t3782 / 0.2e1 + 0.3e1 / 0.8e1 * t404 * t3785 - t3375 * t748 / 0.8e1 - t3790 + t3791 + t3792 - t3793 - t3655 + t3656 - 0.3e1 / 0.8e1 * t404 * t3779 + 0.3e1 / 0.8e1 * t404 * t3796 + t141 * t3799 - 0.3e1 / 0.4e1 * t141 * t3801 + t3668 - t141 * t3805 / 0.4e1 - t3673 - t599;
7538 
7539   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7540     v3sigmatau2[1] = 0.0e0;
7541 
7542   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7543     v3sigmatau2[2] = 0.0e0;
7544 
7545   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7546     v3sigmatau2[3] = 0.0e0;
7547 
7548   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7549     v3sigmatau2[4] = 0.0e0;
7550 
7551   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7552     v3sigmatau2[5] = 0.0e0;
7553 
7554   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7555     v3sigmatau2[6] = 0.0e0;
7556 
7557   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7558     v3sigmatau2[7] = 0.0e0;
7559 
7560   t3808 = t762 * t1670;
7561   t3811 = t766 * t3677;
7562   t3814 = t762 * t1703;
7563   t3817 = t766 * t1703;
7564   t3820 = t3595 / 0.2e1;
7565   t3821 = t3600 / 0.4e1;
7566   t3822 = t3604 / 0.2e1;
7567   t3823 = t3607 / 0.2e1;
7568   t3826 = t3288 * t1675;
7569   t3829 = t762 * t1675;
7570   t3831 = t3288 * t3702;
7571   t3837 = t761 * t153 * t1690;
7572   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7573     v3sigmatau2[8] = -0.3e1 / 0.4e1 * t150 * t3808 - t150 * t3811 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t3814 + 0.3e1 / 0.4e1 * t150 * t3817 + t3820 - t3821 - t3822 + t3823 - t3429 * t763 / 0.8e1 - t3693 + t3694 + 0.3e1 / 0.8e1 * t446 * t3826 + t150 * t3829 - 0.3e1 / 0.4e1 * t150 * t3831 - 0.3e1 / 0.8e1 * t446 * t3808 + t3706 - t150 * t3837 / 0.4e1 - t3711 - t619;
7574 
7575   t3840 = t686 * t160;
7576   t3841 = t3840 * t28;
7577   t3842 = t3841 * t918;
7578   t3845 = t3840 * t222;
7579   t3846 = t3845 * t871;
7580   t3849 = t3841 * t914;
7581   t3852 = t3845 * t918;
7582   t3855 = t75 * t160;
7583   t3857 = t853 * t160;
7584   t3859 = t856 * t160;
7585   t3862 = t3855 * t849 / 0.2e1 + t3857 * t849 / 0.2e1 - t3859 * t849 / 0.2e1;
7586   t3863 = t9 * t3862;
7587   t3864 = t139 * t3863;
7588   t3867 = 0.3e1 / 0.4e1 * t3455;
7589   t3868 = 0.3e1 / 0.8e1 * t3460;
7590   t3869 = 0.3e1 / 0.4e1 * t3464;
7591   t3870 = 0.3e1 / 0.4e1 * t3468;
7592   t3873 = t3840 * t877;
7593   t3874 = t3873 * t881;
7594   t3877 = t3845 * t881;
7595   t3879 = t3873 * t889;
7596   t3882 = t3841 * t871;
7597   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7598     v3lapl3[0] = 0.3e1 / 0.4e1 * t141 * t3842 - 0.3e1 / 0.4e1 * t141 * t3846 - t141 * t3849 / 0.2e1 + 0.3e1 / 0.8e1 * t404 * t3852 - t3864 * t688 / 0.8e1 + t3867 - t3868 - t3869 + t3870 - 0.3e1 / 0.8e1 * t404 * t3846 + 0.3e1 / 0.8e1 * t404 * t3874 + t141 * t3877 - 0.3e1 / 0.4e1 * t141 * t3879 - t141 * t3882 / 0.4e1 - t599;
7599 
7600   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7601     v3lapl3[1] = 0.0e0;
7602 
7603   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7604     v3lapl3[2] = 0.0e0;
7605 
7606   t3885 = t701 * t167;
7607   t3886 = t3885 * t53;
7608   t3887 = t3886 * t1355;
7609   t3890 = t3885 * t355;
7610   t3891 = t3890 * t1291;
7611   t3894 = t3886 * t1351;
7612   t3897 = t3890 * t1355;
7613   t3900 = t115 * t167;
7614   t3902 = t1320 * t167;
7615   t3904 = t1323 * t167;
7616   t3907 = t3900 * t1316 / 0.2e1 + t3902 * t1316 / 0.2e1 - t3904 * t1316 / 0.2e1;
7617   t3908 = t37 * t3907;
7618   t3909 = t139 * t3908;
7619   t3912 = 0.3e1 / 0.4e1 * t3505;
7620   t3913 = 0.3e1 / 0.4e1 * t3509;
7621   t3914 = 0.3e1 / 0.8e1 * t3514;
7622   t3915 = 0.3e1 / 0.4e1 * t3518;
7623   t3916 = t3885 * t1295;
7624   t3917 = t3916 * t1307;
7625   t3922 = t3916 * t1299;
7626   t3925 = t3890 * t1299;
7627   t3927 = t3886 * t1291;
7628   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7629     v3lapl3[3] = 0.3e1 / 0.4e1 * t150 * t3887 - 0.3e1 / 0.4e1 * t150 * t3891 - t150 * t3894 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t3897 - t3909 * t703 / 0.8e1 + t3912 + t3913 - t3914 - t3915 - 0.3e1 / 0.4e1 * t150 * t3917 - 0.3e1 / 0.8e1 * t446 * t3891 + 0.3e1 / 0.8e1 * t446 * t3922 + t150 * t3925 - t150 * t3927 / 0.4e1 - t619;
7630 
7631   t3932 = t687 * t2050;
7632   t3935 = t172 * t686;
7633   t3936 = t3935 * t1439;
7634   t3939 = t871 * t686;
7635   t3940 = t551 * t3939;
7636   t3943 = t914 * t686;
7637   t3944 = t173 * t3943;
7638   t3949 = t2871 * t2097;
7639   t3952 = t3935 * t1492;
7640   t3954 = t889 * t686;
7641   t3955 = t2024 * t3954;
7642   t3958 = t3935 * t1416;
7643   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7644     v3lapl2tau[0] = -t3864 * t716 / 0.8e1 - t3556 + t3559 + t3562 - t3567 + t3651 - t3652 - t3653 + t3654 + 0.3e1 / 0.8e1 * t404 * t3932 + 0.3e1 / 0.4e1 * t141 * t3936 - 0.3e1 / 0.4e1 * t141 * t3940 - t141 * t3944 / 0.2e1 - 0.3e1 / 0.8e1 * t404 * t3940 + 0.3e1 / 0.8e1 * t404 * t3949 + t141 * t3952 - 0.3e1 / 0.4e1 * t141 * t3955 - t141 * t3958 / 0.4e1 - t599;
7645 
7646   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7647     v3lapl2tau[1] = 0.0e0;
7648 
7649   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7650     v3lapl2tau[2] = 0.0e0;
7651 
7652   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7653     v3lapl2tau[3] = 0.0e0;
7654 
7655   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7656     v3lapl2tau[4] = 0.0e0;
7657 
7658   t3963 = t702 * t2244;
7659   t3966 = t177 * t701;
7660   t3967 = t3966 * t1707;
7661   t3970 = t1291 * t701;
7662   t3971 = t583 * t3970;
7663   t3974 = t1351 * t701;
7664   t3975 = t178 * t3974;
7665   t3978 = t1307 * t701;
7666   t3979 = t2215 * t3978;
7667   t3984 = t2980 * t2223;
7668   t3987 = t3966 * t1681;
7669   t3989 = t3966 * t1690;
7670   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7671     v3lapl2tau[5] = -t3909 * t731 / 0.8e1 + t3596 - t3601 - t3605 + t3608 + t3689 + t3690 - t3691 - t3692 + 0.3e1 / 0.8e1 * t446 * t3963 + 0.3e1 / 0.4e1 * t150 * t3967 - 0.3e1 / 0.4e1 * t150 * t3971 - t150 * t3975 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t3979 - 0.3e1 / 0.8e1 * t446 * t3971 + 0.3e1 / 0.8e1 * t446 * t3984 + t150 * t3987 - t150 * t3989 / 0.4e1 - t619;
7672 
7673   t3993 = t747 * t871 * t160;
7674   t3997 = t751 * t914 * t160;
7675   t4000 = t747 * t1759;
7676   t4003 = t751 * t1759;
7677   t4010 = t3194 * t1813;
7678   t4013 = t747 * t1813;
7679   t4016 = t3194 * t889 * t160;
7680   t4020 = t746 * t160 * t1416;
7681   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7682     v3lapltau2[0] = -0.3e1 / 0.4e1 * t141 * t3993 - t141 * t3997 / 0.2e1 + 0.3e1 / 0.8e1 * t404 * t4000 + 0.3e1 / 0.4e1 * t141 * t4003 - t3864 * t748 / 0.8e1 - t3790 + t3791 + t3792 - t3793 + t3456 - t3461 - t3465 + t3469 - 0.3e1 / 0.8e1 * t404 * t3993 + 0.3e1 / 0.8e1 * t404 * t4010 + t141 * t4013 - 0.3e1 / 0.4e1 * t141 * t4016 - t141 * t4020 / 0.4e1 - t599;
7683 
7684   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7685     v3lapltau2[1] = 0.0e0;
7686 
7687   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7688     v3lapltau2[2] = 0.0e0;
7689 
7690   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7691     v3lapltau2[3] = 0.0e0;
7692 
7693   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7694     v3lapltau2[4] = 0.0e0;
7695 
7696   t4023 = t762 * t1959;
7697   t4027 = t766 * t1351 * t167;
7698   t4030 = t762 * t1992;
7699   t4033 = t766 * t1992;
7700   t4040 = t3288 * t1963;
7701   t4043 = t762 * t1963;
7702   t4046 = t3288 * t1307 * t167;
7703   t4050 = t761 * t167 * t1690;
7704   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
7705     v3lapltau2[5] = -0.3e1 / 0.4e1 * t150 * t4023 - t150 * t4027 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t4030 + 0.3e1 / 0.4e1 * t150 * t4033 + t3820 - t3821 - t3822 + t3823 - t3909 * t763 / 0.8e1 + t3506 + t3510 - t3515 - t3519 - 0.3e1 / 0.8e1 * t446 * t4023 + 0.3e1 / 0.8e1 * t446 * t4040 + t150 * t4043 - 0.3e1 / 0.4e1 * t150 * t4046 - t150 * t4050 / 0.4e1 - t619;
7706 
7707   t4053 = t746 * t172;
7708   t4054 = t4053 * t28;
7709   t4055 = t4054 * t918;
7710   t4058 = t4053 * t222;
7711   t4059 = t4058 * t871;
7712   t4062 = t4054 * t914;
7713   t4065 = t4058 * t918;
7714   t4068 = t75 * t172;
7715   t4070 = t853 * t172;
7716   t4072 = t856 * t172;
7717   t4075 = t4068 * t849 / 0.2e1 + t4070 * t849 / 0.2e1 - t4072 * t849 / 0.2e1;
7718   t4076 = t9 * t4075;
7719   t4077 = t139 * t4076;
7720   t4080 = 0.3e1 / 0.4e1 * t3555;
7721   t4081 = 0.3e1 / 0.4e1 * t3558;
7722   t4082 = 0.3e1 / 0.4e1 * t3561;
7723   t4083 = 0.3e1 / 0.8e1 * t3566;
7724   t4086 = t4053 * t877;
7725   t4087 = t4086 * t881;
7726   t4090 = t4058 * t881;
7727   t4092 = t4086 * t889;
7728   t4095 = t4054 * t871;
7729   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7730     v3tau3[0] = 0.3e1 / 0.4e1 * t141 * t4055 - 0.3e1 / 0.4e1 * t141 * t4059 - t141 * t4062 / 0.2e1 + 0.3e1 / 0.8e1 * t404 * t4065 - t4077 * t748 / 0.8e1 - t4080 + t4081 + t4082 - t4083 - 0.3e1 / 0.8e1 * t404 * t4059 + 0.3e1 / 0.8e1 * t404 * t4087 + t141 * t4090 - 0.3e1 / 0.4e1 * t141 * t4092 - t141 * t4095 / 0.4e1 - t599;
7731 
7732   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7733     v3tau3[1] = 0.0e0;
7734 
7735   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7736     v3tau3[2] = 0.0e0;
7737 
7738   t4098 = t761 * t177;
7739   t4099 = t4098 * t53;
7740   t4100 = t4099 * t1355;
7741   t4103 = t4098 * t355;
7742   t4104 = t4103 * t1291;
7743   t4107 = t4099 * t1351;
7744   t4110 = t4103 * t1355;
7745   t4113 = 0.3e1 / 0.4e1 * t3595;
7746   t4114 = 0.3e1 / 0.8e1 * t3600;
7747   t4115 = 0.3e1 / 0.4e1 * t3604;
7748   t4116 = 0.3e1 / 0.4e1 * t3607;
7749   t4117 = t115 * t177;
7750   t4119 = t1320 * t177;
7751   t4121 = t1323 * t177;
7752   t4124 = t4117 * t1316 / 0.2e1 + t4119 * t1316 / 0.2e1 - t4121 * t1316 / 0.2e1;
7753   t4125 = t37 * t4124;
7754   t4126 = t139 * t4125;
7755   t4131 = t4098 * t1295;
7756   t4132 = t4131 * t1299;
7757   t4135 = t4103 * t1299;
7758   t4137 = t4131 * t1307;
7759   t4140 = t4099 * t1291;
7760   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
7761     v3tau3[3] = 0.3e1 / 0.4e1 * t150 * t4100 - 0.3e1 / 0.4e1 * t150 * t4104 - t150 * t4107 / 0.2e1 + 0.3e1 / 0.8e1 * t446 * t4110 + t4113 - t4114 - t4115 + t4116 - t4126 * t763 / 0.8e1 - 0.3e1 / 0.8e1 * t446 * t4104 + 0.3e1 / 0.8e1 * t446 * t4132 + t150 * t4135 - 0.3e1 / 0.4e1 * t150 * t4137 - t150 * t4140 / 0.4e1 - t619;
7762 
7763 #ifndef XC_DONT_COMPILE_LXC
7764 
7765   if(order < 4) return;
7766 
7767 
7768   t4154 = -0.3e1 / 0.2e1 * t782 + 0.3e1 * t785 - 0.9e1 / 0.4e1 * t790 - 0.9e1 / 0.2e1 * t793 - 0.9e1 / 0.2e1 * t796 - 0.9e1 / 0.2e1 * t800 - 0.9e1 / 0.4e1 * t805 - 0.9e1 / 0.2e1 * t808 + 0.3e1 * t812 - 0.3e1 * t816 + 0.9e1 / 0.2e1 * t821;
7769   t4158 = t848 * t91 * t67 * t204;
7770   t4161 = t62 * t1068;
7771   t4162 = t1503 * t242;
7772   t4163 = t418 * t4162;
7773   t4166 = t76 * t242;
7774   t4170 = t848 * t4162;
7775   t4174 = t62 * t219 * t88;
7776   t4186 = t1057 * t828;
7777   t4196 = t1045 * t832;
7778   t4198 = t838 * t244;
7779   t4202 = t10 * t208 * t218 * t229;
7780   t4206 = t10 * t71 * t860 * t229;
7781   t4209 = t1517 * t227;
7782   t4215 = t75 * t221;
7783   t4218 = t1502 * t227;
7784   t4221 = t848 * t227;
7785   t4226 = 0.1e1 / t851 / t30 * t75;
7786   t4230 = t852 * t218;
7787   t4237 = t853 * t221;
7788   t4244 = t216 * t860;
7789   t4251 = t856 * t221;
7790   t4258 = t218 * t221 * t4209 / 0.4e1 + t75 * t242 * t849 / 0.2e1 + t4215 * t419 / 0.2e1 - t4215 * t4218 / 0.2e1 - t4215 * t4221 / 0.2e1 - t4226 * t221 * t4209 / 0.2e1 + t4230 * t221 * t4209 / 0.2e1 + t853 * t242 * t849 / 0.2e1 + t4237 * t419 / 0.2e1 - t4237 * t4218 / 0.2e1 - t4237 * t4221 / 0.2e1 - t4244 * t88 * t849 / 0.2e1 - t856 * t242 * t849 / 0.2e1 - t4251 * t419 / 0.2e1 + t4251 * t4218 / 0.2e1 + t4251 * t4221 / 0.2e1;
7791   t4263 = -0.9e1 / 0.4e1 * t1069 * t4158 - 0.9e1 / 0.2e1 * t4161 * t4163 + 0.9e1 / 0.2e1 * t62 * t4166 * t1505 + 0.9e1 / 0.2e1 * t4161 * t4170 - 0.9e1 / 0.4e1 * t4174 * t1517 * t4162 + 0.9e1 / 0.8e1 * t1053 * t56 * t263 * t270 + 0.9e1 / 0.8e1 * t1041 * t31 * t189 * t204 - 0.9e1 / 0.4e1 * t4186 - 0.3e1 / 0.2e1 * t299 * t56 * t939 * t97 - 0.3e1 / 0.2e1 * t279 * t31 * t943 * t67 - 0.9e1 / 0.4e1 * t4196 + 0.3e1 / 0.8e1 * t4198 + 0.3e1 / 0.16e2 * t4202 - t4206 / 0.4e1 - t10 * t11 * t4258 * t229 / 0.8e1;
7792   t4274 = my_piecewise3(t24, (0.30e2 * lapl[0] * t904 - 0.120e3 * tau[0] * t904 + 0.45e2 * sigma[0] / t82 / t17) * t22, 0);
7793   t4280 = t10 * t1011 * t93;
7794   t4282 = t221 * t221;
7795   t4283 = t4282 * t222;
7796   t4284 = t226 * t226;
7797   t4285 = 0.1e1 / t4284;
7798   t4286 = t225 * t4285;
7799   t4292 = t844 * t882;
7800   t4298 = t838 * t258;
7801   t4300 = t242 * t242;
7802   t4301 = t4300 * t28;
7803   t4305 = t213 * t915;
7804   t4306 = t4282 * t28;
7805   t4307 = t90 * t4285;
7806   t4311 = t4300 * t222;
7807   t4315 = t844 * t919;
7808   t4320 = t252 * t4285;
7809   t4324 = -t77 * t4274 * t28 * t92 / 0.4e1 - 0.3e1 / 0.8e1 * t4280 - 0.11e2 / 0.8e1 * t220 * t4283 * t4286 + 0.5e1 / 0.8e1 * t862 * t919 + 0.3e1 / 0.4e1 * t4292 - 0.5e1 / 0.8e1 * t862 * t872 + 0.5e1 / 0.8e1 * t862 * t882 - 0.3e1 / 0.8e1 * t4298 + 0.3e1 / 0.4e1 * t77 * t4301 * t257 - t4305 + 0.3e1 / 0.2e1 * t77 * t4306 * t4307 - 0.3e1 / 0.8e1 * t220 * t4311 * t228 + 0.3e1 / 0.4e1 * t4315 - 0.3e1 / 0.4e1 * t77 * t4301 * t228 + 0.3e1 / 0.2e1 * t77 * t4306 * t4320;
7810   t4326 = t213 * t911;
7811   t4328 = t4282 * t877;
7812   t4329 = t880 * t4285;
7813   t4336 = t4283 * t4329;
7814   t4339 = t888 * t4285;
7815   t4340 = t4328 * t4339;
7816   t4343 = t838 * t248;
7817   t4345 = t213 * t922;
7818   t4347 = t838 * t254;
7819   t4349 = t213 * t872;
7820   t4351 = t844 * t872;
7821   t4353 = t4283 * t4320;
7822   t4356 = t213 * t885;
7823   t4358 = t213 * t890;
7824   t4364 = -t4326 / 0.2e1 - 0.9e1 / 0.4e1 * t220 * t4328 * t4329 + 0.3e1 / 0.4e1 * t77 * t4311 * t253 - 0.6e1 * t77 * t4336 + 0.9e1 / 0.2e1 * t77 * t4340 + 0.3e1 / 0.8e1 * t4343 + 0.3e1 / 0.2e1 * t4345 - 0.3e1 / 0.8e1 * t4347 - 0.3e1 / 0.2e1 * t4349 - 0.3e1 / 0.4e1 * t4351 + 0.9e1 / 0.4e1 * t220 * t4353 + 0.2e1 * t4356 - 0.3e1 / 0.2e1 * t4358 - 0.7e1 / 0.8e1 * t220 * t4336 + 0.11e2 / 0.4e1 * t220 * t4340;
7825   t4365 = t222 * t222;
7826   t4366 = t4282 * t4365;
7827   t4368 = 0.1e1 / t879 / t224;
7828   t4369 = t4368 * t4285;
7829   t4380 = 0.1e1 / t879 / t251;
7830   t4381 = t4380 * t4285;
7831   t4387 = t213 * t896;
7832   t4396 = t96 * t101 * t939;
7833   t4398 = t935 * t3;
7834   t4400 = t2 / t4398;
7835   t4402 = 0.12e2 * t936 - 0.12e2 * t4400;
7836   t4406 = t307 * t97;
7837   t4407 = t96 * t4406;
7838   t4413 = t293 * t67;
7839   t4414 = t62 * t4413;
7840   t4416 = t204 * t204;
7841   t4420 = t35 * t35;
7842   t4423 = M_PI / t36 / t4420;
7843   t4424 = t263 * t263;
7844   t4428 = -0.15e2 / 0.8e1 * t220 * t4366 * t4369 + 0.11e2 / 0.4e1 * t77 * t4283 * t4339 - 0.25e2 / 0.4e1 * t77 * t4328 * t4369 + 0.15e2 / 0.4e1 * t77 * t4366 * t4381 + 0.11e2 / 0.4e1 * t77 * t4353 - t4387 / 0.2e1 - t77 * t4306 * t4329 / 0.4e1 - 0.11e2 / 0.4e1 * t77 * t4306 * t4286 - 0.3e1 / 0.2e1 * t4396 - 0.3e1 / 0.4e1 * t96 * t57 * t4402 - 0.9e1 / 0.8e1 * t4407 + 0.3e1 / 0.4e1 * t62 * t32 * t4402 - 0.9e1 / 0.8e1 * t4414 - 0.9e1 / 0.8e1 * t188 * t32 * t4416 - 0.9e1 / 0.32e2 * t4423 * t57 * t4424;
7845   t4432 = t951 * t101 * t952;
7846   t4435 = t262 * t274 * t263;
7847   t4437 = t270 * t270;
7848   t4441 = t7 * t7;
7849   t4444 = M_PI / t8 / t4441;
7850   t4445 = t189 * t189;
7851   t4450 = t963 * t72 * t964;
7852   t4453 = t188 * t209 * t189;
7853   t4456 = t96 * t274 * t270;
7854   t4459 = t62 * t72 * t943;
7855   t4462 = t62 * t209 * t204;
7856   t4464 = t242 * t221;
7857   t4468 = t918 * t67;
7858   t4472 = t810 * t1443;
7859   t4478 = t253 * t189;
7860   t4482 = t871 * t67;
7861   t4483 = t868 * t4482;
7862   t4486 = 0.3e1 / 0.8e1 * t4432 + 0.9e1 / 0.16e2 * t4435 - 0.9e1 / 0.8e1 * t262 * t57 * t4437 - 0.9e1 / 0.32e2 * t4444 * t32 * t4445 + 0.3e1 / 0.8e1 * t4450 + 0.9e1 / 0.16e2 * t4453 + 0.9e1 / 0.8e1 * t4456 - 0.3e1 / 0.2e1 * t4459 + 0.9e1 / 0.8e1 * t4462 - 0.3e1 / 0.2e1 * t77 * t4464 * t1416 + 0.9e1 / 0.2e1 * t196 * t895 * t4468 - 0.9e1 / 0.2e1 * t77 * t4472 + 0.9e1 / 0.2e1 * t77 * t4464 * t1439 + 0.9e1 / 0.8e1 * t787 * t223 * t4478 - 0.9e1 / 0.2e1 * t196 * t4483;
7863   t4487 = t228 * t189;
7864   t4491 = t881 * t67;
7865   t4495 = t881 * t221;
7866   t4506 = t228 * t204;
7867   t4512 = t792 * t820;
7868   t4514 = t213 * t811;
7869   t4521 = t881 * t242;
7870   t4525 = t1578 * t198;
7871   t4527 = t257 * t189;
7872   t4531 = t792 * t824;
7873   t4533 = -0.9e1 / 0.8e1 * t787 * t247 * t4487 + 0.6e1 * t196 * t868 * t4491 + 0.6e1 * t77 * t810 * t4495 - 0.9e1 / 0.2e1 * t77 * t242 * t877 * t1496 - 0.3e1 / 0.2e1 * t196 * t895 * t4482 - 0.9e1 / 0.4e1 * t196 * t247 * t4506 - 0.9e1 / 0.4e1 * t802 * t4483 + 0.9e1 / 0.4e1 * t4512 + 0.3e1 / 0.2e1 * t4514 - 0.9e1 / 0.4e1 * t220 * t4472 + 0.9e1 / 0.4e1 * t802 * t878 * t4491 + 0.9e1 / 0.4e1 * t220 * t1486 * t4521 + 0.9e1 / 0.8e1 * t4525 + 0.9e1 / 0.8e1 * t787 * t247 * t4527 + 0.9e1 / 0.4e1 * t4531;
7874   t4535 = t914 * t67;
7875   t4539 = t844 * t781;
7876   t4541 = t918 * t242;
7877   t4545 = t213 * t784;
7878   t4547 = t963 * t76;
7879   t4548 = t92 * t964;
7880   t4552 = t188 * t212;
7881   t4553 = t4552 * t789;
7882   t4555 = t792 * t807;
7883   t4569 = t253 * t204;
7884   t4573 = t92 * t943;
7885   t4577 = t909 * t222;
7886   t4580 = t889 * t67;
7887   t4584 = -0.3e1 * t196 * t895 * t4535 - 0.3e1 / 0.4e1 * t4539 + 0.9e1 / 0.4e1 * t220 * t223 * t4541 + 0.3e1 / 0.2e1 * t4545 + 0.3e1 / 0.8e1 * t4547 * t89 * t4548 - 0.9e1 / 0.8e1 * t4553 - 0.9e1 / 0.4e1 * t4555 - t77 * t909 * t88 * t419 - 0.3e1 / 0.2e1 * t196 * t910 * t197 + t77 * t910 * t428 - t220 * t405 * t228 * t909 / 0.2e1 + 0.9e1 / 0.4e1 * t196 * t223 * t4569 - 0.3e1 / 0.2e1 * t196 * t89 * t4573 + t77 * t4577 * t424 - 0.9e1 / 0.2e1 * t196 * t878 * t4580;
7888   t4585 = t213 * t815;
7889   t4587 = t792 * t795;
7890   t4589 = t62 * t843;
7891   t4590 = t4589 * t804;
7892   t4598 = t62 * t861;
7893   t4604 = t188 * t219;
7894   t4608 = t792 * t799;
7895   t4610 = t257 * t204;
7896   t4617 = t914 * t242;
7897   t4624 = 0.15e2 / 0.32e2 * t38 * t1102;
7898   t4626 = 0.15e2 / 0.32e2 * t10 * t1106;
7899   t4627 = -0.3e1 / 0.2e1 * t4585 - 0.9e1 / 0.4e1 * t4587 - 0.9e1 / 0.8e1 * t4590 - 0.9e1 / 0.4e1 * t196 * t243 * t798 - 0.9e1 / 0.8e1 * t802 * t223 * t4506 - 0.3e1 / 0.4e1 * t4598 * t804 - 0.9e1 / 0.8e1 * t787 * t243 * t788 - 0.9e1 / 0.16e2 * t4604 * t223 * t4487 - 0.9e1 / 0.4e1 * t4608 + 0.9e1 / 0.4e1 * t196 * t247 * t4610 + 0.9e1 / 0.4e1 * t802 * t868 * t4468 - 0.3e1 * t77 * t247 * t4617 - 0.5e1 / 0.8e1 * t862 * t781 + t4624 + t4626;
7900   t4641 = 0.9e1 / 0.2e1 * t825 + t3 * (t4263 + t4324 + t4364 + t4428 + t4486 + t4533 + t4584 + t4627) - 0.9e1 / 0.2e1 * t829 - 0.9e1 / 0.2e1 * t833 + 0.3e1 / 0.2e1 * t835 + 0.3e1 / 0.4e1 * t839 - 0.3e1 / 0.2e1 * t841 - 0.3e1 / 0.4e1 * t845 - t863 / 0.2e1 + 0.3e1 / 0.2e1 * t865 - 0.3e1 / 0.2e1 * t873;
7901   t4651 = 0.3e1 / 0.4e1 * t927;
7902   t4652 = 0.3e1 / 0.2e1 * t883 + 0.4e1 * t886 - 0.3e1 * t891 - 0.3e1 / 0.2e1 * t893 - t897 - t912 - 0.2e1 * t916 + 0.3e1 / 0.2e1 * t920 + 0.3e1 * t923 - 0.3e1 * t925 - t4651;
7903   t4653 = 0.3e1 / 0.4e1 * t930;
7904   t4664 = -t4653 - 0.9e1 / 0.2e1 * t933 - 0.3e1 * t941 - 0.3e1 * t945 - 0.9e1 / 0.2e1 * t948 + 0.3e1 / 0.4e1 * t954 - 0.9e1 / 0.4e1 * t957 + 0.9e1 / 0.4e1 * t960 + 0.3e1 / 0.4e1 * t966 - 0.9e1 / 0.4e1 * t969 + 0.9e1 / 0.4e1 * t972;
7905   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7906     v4rho4[0] = t4154 + t4641 + t4652 + t4664;
7907 
7908   t4671 = 0.9e1 / 0.8e1 * t1023;
7909   t4675 = 0.9e1 / 0.8e1 * t1035;
7910   t4677 = -0.9e1 / 0.8e1 * t1001 + 0.9e1 / 0.8e1 * t1005 + 0.9e1 / 0.8e1 * t1009 - 0.9e1 / 0.4e1 * t1015 - 0.9e1 / 0.16e2 * t1020 - t4671 - 0.9e1 / 0.8e1 * t1026 - 0.9e1 / 0.16e2 * t1029 - 0.9e1 / 0.8e1 * t1033 - t4675 - t783 + t786 - t791 - 0.9e1 / 0.4e1 * t793 - t797 - t801 - t806;
7911   t4680 = 0.9e1 / 0.8e1 * t1046;
7912   t4683 = 0.9e1 / 0.8e1 * t1058;
7913   t4689 = -t809 + t813 - t817 + t822 + t826 - 0.9e1 / 0.8e1 * t1039 + 0.9e1 / 0.16e2 * t1043 - t4680 - 0.9e1 / 0.4e1 * t1051 + 0.9e1 / 0.16e2 * t1055 - t4683 - 0.9e1 / 0.8e1 * t1061 + 0.9e1 / 0.4e1 * t1066 - t830 - t834 - 0.9e1 / 0.8e1 * t1073 + 0.3e1 / 0.4e1 * t835 + 0.9e1 / 0.16e2 * t839;
7914   t4704 = t188 * t76 * t221;
7915   t4705 = t1569 * t67;
7916   t4706 = t848 * t4705;
7917   t4710 = t188 * t1011 * t88;
7918   t4713 = t848 * t91 * t2 * t67;
7919   t4716 = t1502 * t4705;
7920   t4719 = t1569 * t242;
7921   t4720 = t1502 * t4719;
7922   t4726 = t418 * t4705;
7923   t4729 = t418 * t4719;
7924   t4737 = t1517 * t4705;
7925   t4740 = t848 * t4719;
7926   t4745 = t1159 * t131 * t97 * t270;
7927   t4749 = t848 * t1070 * t204;
7928   t4752 = 0.9e1 / 0.16e2 * t1041 * t280 * t204 * t67 + 0.9e1 / 0.16e2 * t1053 * t300 * t97 * t270 + 0.9e1 / 0.16e2 * t4704 * t4706 - 0.9e1 / 0.8e1 * t4710 * t4713 + 0.9e1 / 0.16e2 * t4704 * t4716 + 0.9e1 / 0.8e1 * t4161 * t4720 - 0.9e1 / 0.16e2 * t188 * t4166 * t1072 - 0.9e1 / 0.16e2 * t4704 * t4726 - 0.9e1 / 0.8e1 * t4161 * t4729 - 0.9e1 / 0.16e2 * t4174 * t1517 * t4719 - 0.9e1 / 0.32e2 * t188 * t219 * t221 * t4737 + 0.9e1 / 0.8e1 * t4161 * t4740 - 0.9e1 / 0.16e2 * t1158 * t4745 - 0.9e1 / 0.16e2 * t1069 * t4749;
7929   t4753 = t963 * t1068;
7930   t4755 = t848 * t1070 * t189;
7931   t4760 = t188 * t212 * t88 * t1072;
7932   t4774 = 0.9e1 / 0.32e2 * t4753 * t4755 - 0.9e1 / 0.16e2 * t4760 - 0.9e1 / 0.16e2 * t4186 - 0.9e1 / 0.16e2 * t4196 + 0.3e1 / 0.16e2 * t4198 + 0.3e1 / 0.32e2 * t4202 - t4206 / 0.16e2 - 0.9e1 / 0.32e2 * t4280 + 0.3e1 / 0.16e2 * t4292 - 0.3e1 / 0.16e2 * t4298 - t4305 / 0.4e1 + 0.3e1 / 0.16e2 * t4315 - t4326 / 0.8e1 + 0.3e1 / 0.16e2 * t4343;
7933   t4784 = t38 * t1151 * t133;
7934   t4790 = t307 * t111;
7935   t4791 = t96 * t4790;
7936   t4796 = 0.1e1 / t11 / t935;
7937   t4799 = t96 * t4796 * t56 * t2;
7938   t4801 = t293 * t107;
7939   t4802 = t62 * t4801;
7940   t4804 = 0.3e1 / 0.8e1 * t4345 - 0.3e1 / 0.16e2 * t4347 - 0.3e1 / 0.8e1 * t4349 - 0.3e1 / 0.16e2 * t4351 + t4356 / 0.2e1 - 0.3e1 / 0.8e1 * t4358 - t4387 / 0.8e1 - 0.3e1 / 0.32e2 * t4784 - 0.9e1 / 0.8e1 * t1012 * t93 + 0.9e1 / 0.8e1 * t262 * t4406 - 0.9e1 / 0.32e2 * t4791 - 0.9e1 / 0.8e1 * t188 * t4413 + 0.81e2 / 0.16e2 * t4799 - 0.9e1 / 0.32e2 * t4802;
7941   t4807 = t62 * t4796 * t31 * t2;
7942   t4819 = t881 * t107;
7943   t4823 = t889 * t107;
7944   t4827 = t871 * t107;
7945   t4831 = -0.81e2 / 0.16e2 * t4807 - 0.3e1 / 0.8e1 * t4396 - 0.27e2 / 0.32e2 * t4407 - 0.27e2 / 0.32e2 * t4414 + 0.3e1 / 0.32e2 * t4432 + 0.9e1 / 0.32e2 * t4435 + 0.3e1 / 0.32e2 * t4450 + 0.9e1 / 0.32e2 * t4453 + 0.9e1 / 0.16e2 * t4456 - 0.3e1 / 0.8e1 * t4459 + 0.9e1 / 0.16e2 * t4462 + 0.3e1 / 0.2e1 * t196 * t868 * t4819 - 0.9e1 / 0.8e1 * t196 * t878 * t4823 - 0.3e1 / 0.8e1 * t196 * t895 * t4827;
7946   t4834 = t914 * t107;
7947   t4838 = t257 * t2;
7948   t4844 = t62 * t1101 * t75 * t1014;
7949   t4846 = t951 * t116;
7950   t4847 = t132 * t952;
7951   t4851 = t262 * t317;
7952   t4852 = t4851 * t1019;
7953   t4854 = t1589 * t314;
7954   t4855 = 0.9e1 / 0.32e2 * t4854;
7955   t4856 = t792 * t1025;
7956   t4858 = t918 * t107;
7957   t4862 = t228 * t2;
7958   t4866 = t792 * t1004;
7959   t4868 = t868 * t4827;
7960   t4871 = t253 * t2;
7961   t4875 = t792 * t1000;
7962   t4877 = t132 * t939;
7963   t4881 = -0.3e1 / 0.4e1 * t196 * t895 * t4834 + 0.9e1 / 0.8e1 * t1012 * t247 * t4838 + 0.9e1 / 0.4e1 * t4844 + 0.3e1 / 0.32e2 * t4846 * t129 * t4847 - 0.9e1 / 0.32e2 * t4852 + t4855 - 0.9e1 / 0.16e2 * t4856 + 0.9e1 / 0.8e1 * t196 * t895 * t4858 - 0.9e1 / 0.8e1 * t1012 * t247 * t4862 + 0.9e1 / 0.16e2 * t4866 - 0.9e1 / 0.8e1 * t196 * t4868 + 0.9e1 / 0.8e1 * t1012 * t223 * t4871 - 0.9e1 / 0.16e2 * t4875 - 0.3e1 / 0.8e1 * t312 * t129 * t4877;
7964   t4882 = t1578 * t288;
7965   t4883 = 0.9e1 / 0.32e2 * t4882;
7966   t4900 = t4589 * t1028;
7967   t4902 = t792 * t1008;
7968   t4904 = t1022 * t1032;
7969   t4914 = t4883 + 0.9e1 / 0.16e2 * t802 * t878 * t4819 + 0.9e1 / 0.16e2 * t802 * t868 * t4858 - 0.9e1 / 0.8e1 * t1012 * t243 * t1013 - 0.9e1 / 0.16e2 * t62 * t292 * t218 * t223 * t4862 - 0.9e1 / 0.16e2 * t802 * t4868 - 0.9e1 / 0.32e2 * t4900 + 0.9e1 / 0.16e2 * t4902 - 0.9e1 / 0.16e2 * t4904 - 0.3e1 / 0.8e1 * t196 * t910 * t287 - 0.3e1 / 0.16e2 * t4598 * t1028 + 0.9e1 / 0.16e2 * t4512 + 0.3e1 / 0.8e1 * t4514 + 0.9e1 / 0.16e2 * t4525;
7970   t4925 = t963 * t71;
7971   t4926 = t4925 * t1042;
7972   t4928 = t963 * t292;
7973   t4932 = t188 * t1101;
7974   t4933 = t4932 * t1050;
7975   t4935 = t4423 * t11;
7976   t4939 = t951 * t71;
7977   t4940 = t4939 * t1054;
7978   t4942 = 0.9e1 / 0.16e2 * t4531 - 0.3e1 / 0.16e2 * t4539 + 0.3e1 / 0.8e1 * t4545 - 0.9e1 / 0.32e2 * t4553 - 0.9e1 / 0.16e2 * t4555 - 0.3e1 / 0.8e1 * t4585 - 0.9e1 / 0.16e2 * t4587 - 0.9e1 / 0.32e2 * t4590 - 0.9e1 / 0.16e2 * t4608 + 0.9e1 / 0.32e2 * t4926 + 0.9e1 / 0.16e2 * t4928 * t1049 * t189 + 0.9e1 / 0.4e1 * t4933 - 0.9e1 / 0.32e2 * t4935 * t300 * t952 + 0.9e1 / 0.32e2 * t4940;
7979   t4944 = t262 * t208 * t301;
7980   t4945 = 0.9e1 / 0.32e2 * t4944;
7981   t4952 = t951 * t292;
7982   t4956 = t1057 * t1060;
7983   t4958 = t262 * t1101;
7984   t4959 = t4958 * t1065;
7985   t4965 = t188 * t208 * t281;
7986   t4966 = 0.9e1 / 0.32e2 * t4965;
7987   t4967 = t1045 * t1038;
7988   t4972 = t4444 * t11;
7989   t4976 = t62 * t1106;
7990   t4978 = t96 * t1102;
7991   t4980 = t4945 - 0.3e1 / 0.8e1 * t299 * t300 * t939 + 0.9e1 / 0.8e1 * t1063 * t1064 * t270 - 0.9e1 / 0.16e2 * t4952 * t1064 * t263 - 0.9e1 / 0.16e2 * t4956 - 0.9e1 / 0.4e1 * t4959 - 0.3e1 / 0.8e1 * t279 * t280 * t943 + t4966 - 0.9e1 / 0.16e2 * t4967 - 0.9e1 / 0.8e1 * t1048 * t1049 * t204 - 0.9e1 / 0.32e2 * t4972 * t280 * t964 + t4624 + t4626 + 0.27e2 / 0.8e1 * t4976 - 0.27e2 / 0.8e1 * t4978;
7992   t4985 = -0.3e1 / 0.4e1 * t841 - 0.3e1 / 0.8e1 * t845 - t864 + t1362 + 0.3e1 / 0.4e1 * t865 - t874 + t884 + t886 - t892 - 0.3e1 / 0.4e1 * t893 - t898 - t913 - t917 + t921 + t924 - t926 + t3 * (t4752 + t4774 + t4804 + t4831 + t4881 + t4914 + t4942 + t4980);
7993   t4996 = -t4651 - t4653 - 0.9e1 / 0.4e1 * t1086 + 0.9e1 / 0.4e1 * t1089 - 0.9e1 / 0.4e1 * t933 - t942 - t946 - 0.9e1 / 0.4e1 * t948 + t955 - 0.9e1 / 0.8e1 * t957 + 0.27e2 / 0.16e2 * t960 + t967 - 0.9e1 / 0.8e1 * t969 + 0.27e2 / 0.16e2 * t972 + t1369 - 0.9e1 / 0.2e1 * t1104 + 0.9e1 / 0.2e1 * t1108 + t1370;
7994   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
7995     v4rho4[1] = t4677 + t4689 + t4985 + t4996;
7996 
7997   t5015 = -0.3e1 / 0.4e1 * t1122 - 0.3e1 / 0.8e1 * t1127 - 0.3e1 / 0.4e1 * t1130 - 0.3e1 / 0.4e1 * t1133 + 0.3e1 / 0.4e1 * t1137 + 0.3e1 / 0.4e1 * t1141 - 0.3e1 / 0.8e1 * t1145 - 0.3e1 / 0.4e1 * t1149 + 0.3e1 / 0.2e1 * t1155 - 0.3e1 / 0.4e1 * t1001 + 0.3e1 / 0.4e1 * t1005 + 0.3e1 / 0.4e1 * t1009 - 0.3e1 / 0.2e1 * t1015 - 0.3e1 / 0.8e1 * t1020 - 0.3e1 / 0.2e1 * t1023 - 0.3e1 / 0.4e1 * t1026 - 0.3e1 / 0.8e1 * t1029;
7998   t5033 = -0.3e1 / 0.4e1 * t1033 - 0.3e1 / 0.2e1 * t1035 - 0.3e1 / 0.4e1 * t793 - 0.3e1 / 0.4e1 * t1163 - 0.3e1 / 0.4e1 * t1167 + 0.3e1 / 0.8e1 * t1171 + 0.3e1 / 0.2e1 * t1174 - 0.3e1 / 0.4e1 * t1178 - 0.3e1 / 0.4e1 * t1039 + 0.3e1 / 0.8e1 * t1043 - 0.3e1 / 0.2e1 * t1046 - 0.3e1 / 0.2e1 * t1051 + 0.3e1 / 0.8e1 * t1055 - 0.3e1 / 0.2e1 * t1058 - 0.3e1 / 0.4e1 * t1061 + 0.3e1 / 0.2e1 * t1066 - 0.3e1 / 0.2e1 * t1181;
7999   t5057 = t951 * t1157;
8000   t5059 = t1159 * t1160 * t263;
8001   t5064 = t262 * t317 * t128 * t1162;
8002   t5067 = t262 * t1151 * t128;
8003   t5070 = t1159 * t131 * t2 * t97;
8004   t5075 = t848 * t91 * t326 * t67;
8005   t5080 = t848 * t91 * t331 * t67;
8006   t5084 = t848 * t1070 * t2;
8007   t5088 = t1159 * t1160 * t270;
8008   t5092 = t1589 * t341;
8009   t5094 = t253 * t326;
8010   t5098 = t253 * t331;
8011   t5102 = t228 * t326;
8012   t5106 = 0.3e1 / 0.4e1 * t4928 * t280 * t2 * t67 - 0.3e1 / 0.4e1 * t4952 * t300 * t97 * t2 + 0.3e1 / 0.16e2 * t5057 * t5059 - 0.3e1 / 0.8e1 * t5064 + 0.3e1 / 0.4e1 * t5067 * t5070 + 0.3e1 / 0.16e2 * t4753 * t5075 - 0.3e1 / 0.8e1 * t1069 * t5080 - 0.3e1 / 0.4e1 * t4710 * t5084 - 0.3e1 / 0.8e1 * t1158 * t5088 - 0.3e1 / 0.8e1 * t4760 + 0.3e1 / 0.16e2 * t5092 + 0.3e1 / 0.16e2 * t787 * t223 * t5094 + 0.3e1 / 0.8e1 * t196 * t223 * t5098 - 0.3e1 / 0.16e2 * t787 * t247 * t5102;
8013   t5107 = t228 * t331;
8014   t5120 = t1081 * t391;
8015   t5122 = t1081 * t377;
8016   t5124 = t1081 * t381;
8017   t5126 = t1081 * t387;
8018   t5130 = t38 * t208 * t351 * t362;
8019   t5132 = -0.3e1 / 0.8e1 * t196 * t247 * t5107 + t4198 / 0.16e2 + t4202 / 0.32e2 - 0.3e1 / 0.16e2 * t4280 - t4298 / 0.16e2 + t4343 / 0.16e2 - t4347 / 0.16e2 - 0.3e1 / 0.16e2 * t4784 + 0.3e1 / 0.4e1 * t1152 * t133 - t5120 / 0.16e2 + t5122 / 0.16e2 + t5124 / 0.16e2 - t5126 / 0.16e2 + t5130 / 0.32e2;
8020   t5135 = 0.1e1 / t11 / t4398;
8021   t5137 = t2 * t2;
8022   t5142 = t62 * t209 * t331;
8023   t5145 = t262 * t274 * t335;
8024   t5150 = t96 * t274 * t344;
8025   t5153 = t62 * t72 * t1210;
8026   t5156 = t96 * t101 * t1214;
8027   t5159 = t188 * t209 * t326;
8028   t5171 = -0.3e1 / 0.4e1 * t262 * t5135 * t56 * t5137 + 0.3e1 / 0.16e2 * t5142 + 0.3e1 / 0.32e2 * t5145 + 0.3e1 / 0.4e1 * t262 * t4790 + 0.3e1 / 0.16e2 * t5150 - 0.3e1 / 0.4e1 * t5153 - 0.3e1 / 0.4e1 * t5156 + 0.3e1 / 0.32e2 * t5159 - 0.3e1 / 0.4e1 * t188 * t4801 - 0.3e1 / 0.4e1 * t188 * t5135 * t31 * t5137 - 0.9e1 / 0.16e2 * t4791 + 0.6e1 * t4799 - 0.9e1 / 0.16e2 * t4802 - 0.6e1 * t4807;
8029   t5180 = t96 * t1101 * t115 * t1154;
8030   t5182 = t361 * t270;
8031   t5186 = t92 * t1210;
8032   t5190 = t4552 * t1144;
8033   t5192 = t257 * t326;
8034   t5196 = t792 * t1148;
8035   t5198 = t257 * t331;
8036   t5202 = t262 * t352;
8037   t5203 = t361 * t263;
8038   t5207 = -0.9e1 / 0.16e2 * t4407 - 0.9e1 / 0.16e2 * t4414 + 0.3e1 / 0.32e2 * t4435 + 0.3e1 / 0.32e2 * t4453 + 0.3e1 / 0.16e2 * t4456 + 0.3e1 / 0.16e2 * t4462 - 0.3e1 / 0.2e1 * t5180 - 0.3e1 / 0.16e2 * t1124 * t356 * t5182 - 0.3e1 / 0.4e1 * t196 * t89 * t5186 - 0.3e1 / 0.16e2 * t5190 + 0.3e1 / 0.16e2 * t787 * t247 * t5192 - 0.3e1 / 0.8e1 * t5196 + 0.3e1 / 0.8e1 * t196 * t247 * t5198 - 0.3e1 / 0.32e2 * t5202 * t356 * t5203;
8039   t5210 = t96 * t1190;
8040   t5211 = t5210 * t1126;
8041   t5216 = t1022 * t1129;
8042   t5221 = t1022 * t1132;
8043   t5223 = t386 * t263;
8044   t5227 = t1022 * t1136;
8045   t5229 = t390 * t263;
8046   t5233 = t1022 * t1140;
8047   t5235 = t390 * t270;
8048   t5251 = -0.3e1 / 0.16e2 * t5211 - 0.3e1 / 0.16e2 * t1017 * t376 * t1018 - 0.3e1 / 0.8e1 * t5216 - 0.3e1 / 0.16e2 * t1017 * t380 * t5203 - 0.3e1 / 0.8e1 * t5221 + 0.3e1 / 0.16e2 * t1017 * t356 * t5223 + 0.3e1 / 0.8e1 * t5227 + 0.3e1 / 0.16e2 * t1017 * t380 * t5229 + 0.3e1 / 0.8e1 * t5233 + 0.3e1 / 0.8e1 * t312 * t380 * t5235 - 0.3e1 / 0.16e2 * t787 * t243 * t1143 - 0.3e1 / 0.32e2 * t4604 * t223 * t5102 - 0.3e1 / 0.8e1 * t196 * t243 * t1147 - 0.3e1 / 0.16e2 * t802 * t223 * t5107;
8049   t5258 = t386 * t270;
8050   t5273 = -0.3e1 / 0.8e1 * t312 * t376 * t1031 - 0.3e1 / 0.8e1 * t312 * t380 * t5182 + 0.3e1 / 0.8e1 * t312 * t356 * t5258 - 0.3e1 / 0.4e1 * t4844 - 0.3e1 / 0.16e2 * t4852 + 0.3e1 / 0.8e1 * t4854 - 0.3e1 / 0.8e1 * t4856 + 0.3e1 / 0.8e1 * t4866 - 0.3e1 / 0.8e1 * t4875 + 0.3e1 / 0.8e1 * t4882 - 0.3e1 / 0.16e2 * t4900 + 0.3e1 / 0.8e1 * t4902 - 0.3e1 / 0.8e1 * t4904 + 0.3e1 / 0.16e2 * t4525;
8051   t5275 = t1057 * t1177;
8052   t5277 = t4932 * t1180;
8053   t5282 = t4925 * t1184;
8054   t5287 = t1045 * t1166;
8055   t5292 = t4939 * t1170;
8056   t5303 = t4958 * t1173;
8057   t5312 = -0.3e1 / 0.8e1 * t5275 + 0.3e1 / 0.2e1 * t5277 - 0.9e1 / 0.32e2 * t4972 * t1183 * t189 + 0.3e1 / 0.16e2 * t5282 + 0.3e1 / 0.16e2 * t1041 * t1165 * t189 - 0.3e1 / 0.8e1 * t5287 - 0.9e1 / 0.32e2 * t4935 * t1169 * t263 + 0.3e1 / 0.16e2 * t5292 + 0.3e1 / 0.16e2 * t1053 * t1176 * t263 - 0.3e1 / 0.8e1 * t279 * t1165 * t204 + 0.3e1 / 0.16e2 * t1053 * t1169 * t270 - 0.3e1 / 0.2e1 * t5303 - 0.3e1 / 0.8e1 * t299 * t1176 * t270 - 0.3e1 / 0.4e1 * t299 * t56 * t1214 * t97;
8058   t5330 = 0.3e1 / 0.16e2 * t1041 * t1183 * t204 - 0.3e1 / 0.4e1 * t279 * t31 * t1210 * t67 + 0.3e1 / 0.16e2 * t4926 - 0.3e1 / 0.4e1 * t4933 + 0.3e1 / 0.16e2 * t4940 + 0.3e1 / 0.8e1 * t4944 - 0.3e1 / 0.8e1 * t4956 + 0.3e1 / 0.4e1 * t4959 + 0.3e1 / 0.8e1 * t4965 - 0.3e1 / 0.8e1 * t4967 + t4624 + t4626 - 0.3e1 / 0.4e1 * t4976 + 0.3e1 / 0.4e1 * t4978;
8059   t5335 = 0.3e1 / 0.8e1 * t1185 - 0.3e1 / 0.4e1 * t1073 + t835 / 0.4e1 + 0.3e1 / 0.8e1 * t839 - t841 / 0.4e1 - t845 / 0.8e1 + 0.3e1 / 0.8e1 * t1082 - t1192 / 0.8e1 - t1194 / 0.4e1 - t1196 / 0.4e1 + t1198 / 0.4e1 + t1200 / 0.4e1 + t865 / 0.4e1 - t893 / 0.4e1 + t3 * (t5106 + t5132 + t5171 + t5207 + t5251 + t5273 + t5312 + t5330) - t4651 - t4653;
8060   t5352 = -0.3e1 / 0.2e1 * t1086 + 0.3e1 / 0.2e1 * t1089 - 0.3e1 / 0.4e1 * t933 - 0.3e1 / 0.4e1 * t948 - 0.3e1 / 0.8e1 * t957 + 0.9e1 / 0.8e1 * t960 - 0.3e1 / 0.8e1 * t969 + 0.9e1 / 0.8e1 * t972 + 0.9e1 / 0.8e1 * t1098 - t1105 + t1109 + 0.9e1 / 0.8e1 * t1111 - 0.3e1 / 0.2e1 * t1212 - 0.3e1 / 0.2e1 * t1216 - 0.3e1 / 0.8e1 * t1219 - 0.3e1 / 0.4e1 * t1222 - 0.3e1 / 0.8e1 * t1225 - 0.3e1 / 0.4e1 * t1228;
8061   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8062     v4rho4[2] = t5015 + t5033 + t5335 + t5352;
8063 
8064   t5360 = -t1241 + t1244 - t1248 - t1251 - t1255 + t1259 + t1263 - t1267 - t1271 + t1275 - t1279 - 0.9e1 / 0.4e1 * t1122 - 0.9e1 / 0.16e2 * t1127 - 0.9e1 / 0.8e1 * t1130 - 0.9e1 / 0.8e1 * t1133 + 0.9e1 / 0.8e1 * t1137 + 0.9e1 / 0.8e1 * t1141;
8065   t5372 = t116 * t375;
8066   t5373 = t96 * t5372;
8067   t5380 = t1159 * t131 * t335 * t97;
8068   t5384 = t1159 * t1160 * t2;
8069   t5392 = t1159 * t131 * t344 * t97;
8070   t5396 = t848 * t1070 * t331;
8071   t5400 = t262 * t116 * t354;
8072   t5401 = t1723 * t97;
8073   t5402 = t1159 * t5401;
8074   t5407 = t1598 * t5401;
8075   t5411 = t96 * t352 * t128;
8076   t5413 = t360 * t375 * t97;
8077   t5417 = t1618 * t5401;
8078   t5422 = 0.9e1 / 0.16e2 * t1053 * t300 * t344 * t97 + 0.9e1 / 0.16e2 * t1041 * t280 * t331 * t67 - 0.9e1 / 0.8e1 * t5373 * t1613 + 0.9e1 / 0.8e1 * t5373 * t1626 + 0.9e1 / 0.32e2 * t5057 * t5380 + 0.9e1 / 0.8e1 * t5067 * t5384 - 0.9e1 / 0.16e2 * t262 * t5372 * t1162 - 0.9e1 / 0.16e2 * t1158 * t5392 - 0.9e1 / 0.16e2 * t1069 * t5396 + 0.9e1 / 0.16e2 * t5400 * t5402 - 0.9e1 / 0.32e2 * t262 * t352 * t354 * t5407 - 0.9e1 / 0.16e2 * t5411 * t1598 * t5413 + 0.9e1 / 0.16e2 * t5400 * t5417 + 0.9e1 / 0.8e1 * t5373 * t1621;
8079   t5423 = t460 * t5401;
8080   t5427 = t318 * t1242;
8081   t5429 = t4851 * t1246;
8082   t5431 = t1022 * t1249;
8083   t5433 = t1022 * t1253;
8084   t5435 = t1022 * t1273;
8085   t5437 = t5210 * t1277;
8086   t5439 = t1191 * t1239;
8087   t5441 = t1022 * t1257;
8088   t5443 = t318 * t1261;
8089   t5445 = t1022 * t1265;
8090   t5447 = t318 * t1269;
8091   t5449 = t361 * t2;
8092   t5453 = -0.9e1 / 0.16e2 * t5400 * t5423 - 0.9e1 / 0.16e2 * t5064 + 0.3e1 / 0.8e1 * t5427 - 0.9e1 / 0.32e2 * t5429 - 0.9e1 / 0.16e2 * t5431 - 0.9e1 / 0.16e2 * t5433 + 0.9e1 / 0.16e2 * t5435 - 0.9e1 / 0.32e2 * t5437 - 0.3e1 / 0.16e2 * t5439 + 0.9e1 / 0.16e2 * t5441 + 0.3e1 / 0.8e1 * t5443 - 0.9e1 / 0.16e2 * t5445 - 0.3e1 / 0.8e1 * t5447 + 0.9e1 / 0.8e1 * t1152 * t380 * t5449;
8093   t5455 = t386 * t2;
8094   t5459 = t1291 * t97;
8095   t5460 = t1288 * t5459;
8096   t5463 = t1299 * t97;
8097   t5470 = t132 * t1214;
8098   t5474 = t1355 * t97;
8099   t5481 = t390 * t2;
8100   t5487 = t1351 * t97;
8101   t5499 = t96 * t1328;
8102   t5505 = -0.9e1 / 0.8e1 * t1152 * t356 * t5455 - 0.9e1 / 0.16e2 * t1124 * t5460 + 0.9e1 / 0.16e2 * t1124 * t1296 * t5463 + 0.9e1 / 0.8e1 * t1152 * t376 * t1153 - 0.9e1 / 0.8e1 * t312 * t129 * t5470 + 0.9e1 / 0.16e2 * t1124 * t1288 * t5474 + 0.9e1 / 0.8e1 * t312 * t1311 * t5474 - 0.9e1 / 0.8e1 * t1152 * t380 * t5481 - 0.9e1 / 0.8e1 * t312 * t5460 - 0.3e1 / 0.4e1 * t312 * t1311 * t5487 + 0.9e1 / 0.16e2 * t96 * t292 * t351 * t356 * t5449 - 0.3e1 / 0.8e1 * t312 * t1311 * t5459 - 0.3e1 / 0.16e2 * t5499 * t1126 - 0.3e1 / 0.8e1 * t312 * t1343 * t313;
8103   t5506 = t92 * t1380;
8104   t5513 = t1307 * t97;
8105   t5517 = t92 * t1388;
8106   t5529 = t1191 * t1356;
8107   t5531 = t318 * t1359;
8108   t5533 = t318 * t1292;
8109   t5535 = -0.3e1 / 0.8e1 * t196 * t89 * t5506 + 0.3e1 / 0.2e1 * t312 * t1288 * t5463 - 0.9e1 / 0.8e1 * t312 * t1296 * t5513 + 0.3e1 / 0.32e2 * t4547 * t89 * t5517 + 0.9e1 / 0.16e2 * t5092 - 0.3e1 / 0.32e2 * t4280 - 0.9e1 / 0.32e2 * t4784 - 0.3e1 / 0.16e2 * t5120 + 0.3e1 / 0.16e2 * t5122 + 0.3e1 / 0.16e2 * t5124 - 0.3e1 / 0.16e2 * t5126 + 0.3e1 / 0.32e2 * t5130 + 0.3e1 / 0.16e2 * t5529 + 0.3e1 / 0.8e1 * t5531 - 0.3e1 / 0.8e1 * t5533;
8110   t5538 = t318 * t1352;
8111   t5540 = t318 * t1312;
8112   t5544 = t38 * t71 * t1327 * t362;
8113   t5546 = t318 * t1344;
8114   t5548 = t318 * t1303;
8115   t5550 = t318 * t1308;
8116   t5552 = t1191 * t1292;
8117   t5554 = t1191 * t1300;
8118   t5558 = -0.6e1 * t936 - 0.12e2 * t4400;
8119   t5567 = t951 * t101 * t1375;
8120   t5570 = t62 * t72 * t1380;
8121   t5573 = t96 * t101 * t1384;
8122   t5576 = t963 * t72 * t1388;
8123   t5578 = -t5538 / 0.4e1 - t5540 / 0.8e1 - t5544 / 0.16e2 - t5546 / 0.8e1 + t5548 / 0.2e1 - 0.3e1 / 0.8e1 * t5550 - 0.3e1 / 0.16e2 * t5552 + 0.3e1 / 0.16e2 * t5554 - 0.3e1 / 0.4e1 * t96 * t57 * t5558 + 0.3e1 / 0.4e1 * t62 * t32 * t5558 + 0.3e1 / 0.32e2 * t5567 - 0.3e1 / 0.8e1 * t5570 - 0.3e1 / 0.8e1 * t5573 + 0.3e1 / 0.32e2 * t5576;
8124   t5594 = 0.9e1 / 0.16e2 * t5142 + 0.9e1 / 0.32e2 * t5145 + 0.9e1 / 0.16e2 * t5150 - 0.9e1 / 0.8e1 * t5153 - 0.9e1 / 0.8e1 * t5156 + 0.9e1 / 0.32e2 * t5159 - 0.27e2 / 0.32e2 * t4791 - 0.9e1 / 0.16e2 * t4799 - 0.27e2 / 0.32e2 * t4802 + 0.9e1 / 0.16e2 * t4807 - 0.9e1 / 0.32e2 * t4407 - 0.9e1 / 0.32e2 * t4414 + 0.9e1 / 0.8e1 * t5180 - 0.9e1 / 0.32e2 * t5190 - 0.9e1 / 0.16e2 * t5196;
8125   t5601 = t1057 * t1281;
8126   t5606 = t1045 * t1284;
8127   t5621 = -0.9e1 / 0.32e2 * t5211 - 0.9e1 / 0.16e2 * t5216 - 0.9e1 / 0.16e2 * t5221 + 0.9e1 / 0.16e2 * t5227 + 0.9e1 / 0.16e2 * t5233 + t4855 + t4883 - 0.9e1 / 0.16e2 * t5601 + 0.9e1 / 0.16e2 * t4928 * t1183 * t2 - 0.9e1 / 0.16e2 * t5606 - 0.9e1 / 0.8e1 * t1048 * t1049 * t331 - 0.9e1 / 0.8e1 * t279 * t280 * t1210 - 0.9e1 / 0.32e2 * t4935 * t56 * t1375 * t97 - 0.9e1 / 0.16e2 * t4952 * t1169 * t2;
8128   t5628 = t31 * t1380;
8129   t5646 = -0.9e1 / 0.8e1 * t299 * t300 * t1214 + 0.9e1 / 0.8e1 * t1063 * t1064 * t344 - 0.3e1 / 0.8e1 * t279 * t5628 * t67 - 0.3e1 / 0.8e1 * t299 * t56 * t1384 * t97 - 0.9e1 / 0.32e2 * t4972 * t31 * t1388 * t67 - 0.9e1 / 0.16e2 * t5275 - 0.9e1 / 0.8e1 * t5277 + 0.9e1 / 0.32e2 * t5282 - 0.9e1 / 0.16e2 * t5287 + 0.9e1 / 0.32e2 * t5292 + 0.9e1 / 0.8e1 * t5303 + t4945 + t4966 + t4624 + t4626;
8130   t5658 = -0.9e1 / 0.16e2 * t1145 - 0.9e1 / 0.8e1 * t1149 + 0.9e1 / 0.4e1 * t1155 - t4671 - t4675 + t3 * (t5422 + t5453 + t5505 + t5535 + t5578 + t5594 + t5621 + t5646) - 0.9e1 / 0.8e1 * t1163 - 0.9e1 / 0.8e1 * t1167 + 0.9e1 / 0.16e2 * t1171 + 0.9e1 / 0.4e1 * t1174 - 0.9e1 / 0.8e1 * t1178 - t1283 - t1286 - t4680 - t4683 - 0.9e1 / 0.4e1 * t1181 + 0.9e1 / 0.16e2 * t1185 - t1294;
8131   t5666 = t1302 + t1304 - t1310 - t1314 - t1331 - t1346 - t1350 - t1354 + t1358 + t1361 + t840 + 0.9e1 / 0.16e2 * t1082 - 0.3e1 / 0.8e1 * t1192 - 0.3e1 / 0.4e1 * t1194 - 0.3e1 / 0.4e1 * t1196 + 0.3e1 / 0.4e1 * t1198 + 0.3e1 / 0.4e1 * t1200;
8132   t5677 = -t4651 - t4653 + t961 + t973 + 0.27e2 / 0.16e2 * t1098 + 0.9e1 / 0.4e1 * t1104 - 0.9e1 / 0.4e1 * t1108 + 0.27e2 / 0.16e2 * t1111 - 0.9e1 / 0.4e1 * t1212 - 0.9e1 / 0.4e1 * t1216 - 0.9e1 / 0.8e1 * t1219 - 0.9e1 / 0.4e1 * t1222 - 0.9e1 / 0.8e1 * t1225 - 0.9e1 / 0.4e1 * t1228 + t1378 - t1383 - t1387 + t1391;
8133   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8134     v4rho4[3] = t5360 + t5658 + t5666 + t5677;
8135 
8136   t5690 = -0.3e1 / 0.2e1 * t1240 + 0.3e1 * t1243 - 0.9e1 / 0.4e1 * t1247 - 0.9e1 / 0.2e1 * t1250 - 0.9e1 / 0.2e1 * t1254 + 0.9e1 / 0.2e1 * t1258 + 0.3e1 * t1262 - 0.9e1 / 0.2e1 * t1266 - 0.3e1 * t1270 + 0.9e1 / 0.2e1 * t1274 - 0.9e1 / 0.4e1 * t1278;
8137   t5693 = t1159 * t1160 * t344;
8138   t5696 = t96 * t1157;
8139   t5697 = t1723 * t375;
8140   t5698 = t1618 * t5697;
8141   t5701 = t1159 * t5697;
8142   t5707 = t460 * t5697;
8143   t5722 = t1299 * t111;
8144   t5726 = t1307 * t111;
8145   t5730 = t1299 * t354;
8146   t5738 = t1291 * t111;
8147   t5742 = t375 * t354;
8148   t5746 = -0.9e1 / 0.4e1 * t1158 * t5693 + 0.9e1 / 0.2e1 * t5696 * t5698 + 0.9e1 / 0.2e1 * t5696 * t5701 - 0.9e1 / 0.4e1 * t5411 * t1598 * t5697 - 0.9e1 / 0.2e1 * t5696 * t5707 + 0.9e1 / 0.8e1 * t1041 * t1183 * t331 - 0.3e1 / 0.2e1 * t279 * t5628 * t107 + 0.9e1 / 0.8e1 * t1053 * t1169 * t344 - 0.3e1 / 0.2e1 * t299 * t300 * t1384 + 0.6e1 * t312 * t1288 * t5722 - 0.9e1 / 0.2e1 * t312 * t1296 * t5726 + 0.6e1 * t117 * t1260 * t5730 - 0.9e1 / 0.2e1 * t117 * t375 * t1295 * t1685 - 0.3e1 / 0.2e1 * t312 * t1311 * t5738 - 0.3e1 / 0.2e1 * t117 * t5742 * t1690;
8149   t5747 = t390 * t335;
8150   t5751 = t1351 * t111;
8151   t5755 = t361 * t335;
8152   t5759 = t1355 * t375;
8153   t5763 = t1288 * t5738;
8154   t5766 = t1291 * t354;
8155   t5767 = t1260 * t5766;
8156   t5773 = t1355 * t111;
8157   t5780 = t386 * t335;
8158   t5788 = t1299 * t375;
8159   t5792 = t1342 * t355;
8160   t5795 = t132 * t1375;
8161   t5799 = 0.9e1 / 0.8e1 * t1017 * t380 * t5747 - 0.3e1 * t312 * t1311 * t5751 - 0.9e1 / 0.16e2 * t5202 * t356 * t5755 + 0.9e1 / 0.4e1 * t353 * t356 * t5759 - 0.9e1 / 0.2e1 * t312 * t5763 - 0.9e1 / 0.2e1 * t117 * t5767 - 0.9e1 / 0.8e1 * t1017 * t380 * t5755 + 0.9e1 / 0.2e1 * t312 * t1311 * t5773 + 0.9e1 / 0.2e1 * t117 * t5742 * t1707 + 0.9e1 / 0.8e1 * t1017 * t356 * t5780 - 0.9e1 / 0.4e1 * t1124 * t5763 - 0.9e1 / 0.4e1 * t353 * t5767 + 0.9e1 / 0.4e1 * t353 * t1674 * t5788 + t117 * t5792 * t466 + 0.3e1 / 0.8e1 * t4846 * t129 * t5795;
8162   t5801 = t386 * t344;
8163   t5811 = t1351 * t375;
8164   t5815 = t361 * t344;
8165   t5830 = t132 * t1384;
8166   t5848 = 0.9e1 / 0.4e1 * t312 * t356 * t5801 + 0.9e1 / 0.4e1 * t1124 * t1296 * t5722 + 0.9e1 / 0.4e1 * t1124 * t1288 * t5773 - 0.3e1 * t117 * t380 * t5811 - 0.9e1 / 0.8e1 * t1124 * t356 * t5815 - 0.5e1 / 0.8e1 * t1329 * t1239 - 0.3e1 / 0.2e1 * t312 * t1343 * t340 + t117 * t1343 * t470 - t353 * t447 * t361 * t1342 / 0.2e1 - 0.3e1 / 0.2e1 * t312 * t129 * t5830 - 0.9e1 / 0.4e1 * t312 * t380 * t5815 - t117 * t1342 * t128 * t461 - 0.3e1 / 0.4e1 * t5499 * t1277 - 0.9e1 / 0.4e1 * t312 * t376 * t1252 - 0.9e1 / 0.8e1 * t1017 * t376 * t1245;
8167   t5849 = t390 * t344;
8168   t5867 = 0.9e1 / 0.4e1 * t312 * t380 * t5849 + 0.3e1 / 0.2e1 * t5427 - 0.9e1 / 0.8e1 * t5429 - 0.9e1 / 0.4e1 * t5431 - 0.9e1 / 0.4e1 * t5433 + 0.9e1 / 0.4e1 * t5435 - 0.9e1 / 0.8e1 * t5437 - 0.3e1 / 0.4e1 * t5439 + 0.9e1 / 0.4e1 * t5441 + 0.3e1 / 0.2e1 * t5443 - 0.9e1 / 0.4e1 * t5445 - 0.3e1 / 0.2e1 * t5447 + 0.9e1 / 0.8e1 * t5092 - 0.3e1 / 0.8e1 * t4784 - 0.3e1 / 0.8e1 * t5120;
8169   t5884 = 0.3e1 / 0.8e1 * t5122 + 0.3e1 / 0.8e1 * t5124 - 0.3e1 / 0.8e1 * t5126 + 0.3e1 / 0.16e2 * t5130 + 0.3e1 / 0.4e1 * t5529 + 0.3e1 / 0.2e1 * t5531 - 0.3e1 / 0.2e1 * t5533 - t5538 - t5540 / 0.2e1 - t5544 / 0.4e1 - t5546 / 0.2e1 + 0.2e1 * t5548 - 0.3e1 / 0.2e1 * t5550 - 0.3e1 / 0.4e1 * t5552 + 0.3e1 / 0.4e1 * t5554;
8170   t5885 = t354 * t354;
8171   t5886 = t5885 * t355;
8172   t5887 = t359 * t359;
8173   t5888 = 0.1e1 / t5887;
8174   t5889 = t358 * t5888;
8175   t5896 = t1598 * t360;
8176   t5902 = t115 * t354;
8177   t5905 = t1618 * t360;
8178   t5908 = t1159 * t360;
8179   t5913 = 0.1e1 / t1318 / t55 * t115;
8180   t5917 = t1319 * t351;
8181   t5924 = t1320 * t354;
8182   t5931 = t349 * t1327;
8183   t5938 = t1323 * t354;
8184   t5945 = t351 * t354 * t5896 / 0.4e1 + t115 * t375 * t1316 / 0.2e1 + t5902 * t461 / 0.2e1 - t5902 * t5905 / 0.2e1 - t5902 * t5908 / 0.2e1 - t5913 * t354 * t5896 / 0.2e1 + t5917 * t354 * t5896 / 0.2e1 + t1320 * t375 * t1316 / 0.2e1 + t5924 * t461 / 0.2e1 - t5924 * t5905 / 0.2e1 - t5924 * t5908 / 0.2e1 - t5931 * t128 * t1316 / 0.2e1 - t1323 * t375 * t1316 / 0.2e1 - t5938 * t461 / 0.2e1 + t5938 * t5905 / 0.2e1 + t5938 * t5908 / 0.2e1;
8185   t5960 = my_piecewise3(t50, (0.30e2 * lapl[1] * t1337 - 0.120e3 * tau[1] * t1337 + 0.45e2 * sigma[2] / t122 / t44) * t22, 0);
8186   t5967 = t375 * t375;
8187   t5968 = t5967 * t53;
8188   t5972 = t385 * t5888;
8189   t5973 = t5886 * t5972;
8190   t5976 = t5885 * t53;
8191   t5977 = t130 * t5888;
8192   t5981 = t5967 * t355;
8193   t5987 = t5885 * t1295;
8194   t5988 = t1306 * t5888;
8195   t5989 = t5987 * t5988;
8196   t6000 = t1298 * t5888;
8197   t6004 = -0.11e2 / 0.8e1 * t353 * t5886 * t5889 + 0.5e1 / 0.8e1 * t1329 * t1300 - t38 * t11 * t5945 * t362 / 0.8e1 - t117 * t5960 * t53 * t132 / 0.4e1 - 0.5e1 / 0.8e1 * t1329 * t1292 + 0.3e1 / 0.4e1 * t117 * t5968 * t390 + 0.11e2 / 0.4e1 * t117 * t5973 + 0.3e1 / 0.2e1 * t117 * t5976 * t5977 - 0.3e1 / 0.8e1 * t353 * t5981 * t361 + 0.5e1 / 0.8e1 * t1329 * t1356 + 0.9e1 / 0.2e1 * t117 * t5989 - 0.3e1 / 0.4e1 * t117 * t5968 * t361 + 0.3e1 / 0.2e1 * t117 * t5976 * t5972 + 0.9e1 / 0.4e1 * t353 * t5973 - 0.9e1 / 0.4e1 * t353 * t5987 * t6000;
8198   t6009 = t5886 * t6000;
8199   t6013 = 0.12e2 * t936 + 0.12e2 * t4400;
8200   t6021 = t326 * t326;
8201   t6025 = t331 * t331;
8202   t6029 = t335 * t335;
8203   t6033 = t344 * t344;
8204   t6044 = 0.3e1 / 0.4e1 * t117 * t5981 * t386 - 0.6e1 * t117 * t6009 - 0.3e1 / 0.4e1 * t62 * t32 * t6013 + 0.3e1 / 0.4e1 * t96 * t57 * t6013 - 0.9e1 / 0.32e2 * t4444 * t32 * t6021 - 0.9e1 / 0.8e1 * t188 * t32 * t6025 - 0.9e1 / 0.32e2 * t4423 * t57 * t6029 - 0.9e1 / 0.8e1 * t262 * t57 * t6033 + 0.3e1 / 0.8e1 * t5567 - 0.3e1 / 0.2e1 * t5570 - 0.3e1 / 0.2e1 * t5573 + 0.3e1 / 0.8e1 * t5576 + 0.9e1 / 0.8e1 * t5142 + 0.9e1 / 0.16e2 * t5145 + 0.9e1 / 0.8e1 * t5150;
8205   t6054 = t355 * t355;
8206   t6055 = t5885 * t6054;
8207   t6057 = 0.1e1 / t1297 / t357;
8208   t6058 = t6057 * t5888;
8209   t6069 = 0.1e1 / t1297 / t384;
8210   t6070 = t6069 * t5888;
8211   t6080 = 0.9e1 / 0.16e2 * t5159 - 0.9e1 / 0.8e1 * t4791 - 0.9e1 / 0.8e1 * t4802 - 0.9e1 / 0.4e1 * t5601 - 0.9e1 / 0.4e1 * t5606 + t4624 + t4626 - 0.7e1 / 0.8e1 * t353 * t6009 + 0.11e2 / 0.4e1 * t353 * t5989 - 0.15e2 / 0.8e1 * t353 * t6055 * t6058 + 0.11e2 / 0.4e1 * t117 * t5886 * t5988 - 0.25e2 / 0.4e1 * t117 * t5987 * t6058 + 0.15e2 / 0.4e1 * t117 * t6055 * t6070 - t117 * t5976 * t6000 / 0.4e1 - 0.11e2 / 0.4e1 * t117 * t5976 * t5889;
8212   t6092 = -0.9e1 / 0.2e1 * t1122 + t3 * (t5746 + t5799 + t5848 + t5867 + t5884 + t6004 + t6044 + t6080) - 0.9e1 / 0.2e1 * t1282 - 0.9e1 / 0.2e1 * t1285 - 0.3e1 / 0.2e1 * t1293 + 0.3e1 / 0.2e1 * t1301 + 0.4e1 * t1304 - 0.3e1 * t1309 - t1313 - t1330 / 0.2e1 - t1345;
8213   t6104 = -0.3e1 * t1349 - 0.2e1 * t1353 + 0.3e1 / 0.2e1 * t1357 + 0.3e1 * t1360 + 0.3e1 / 0.4e1 * t1082 - 0.3e1 / 0.4e1 * t1192 - 0.3e1 / 0.2e1 * t1194 - 0.3e1 / 0.2e1 * t1196 + 0.3e1 / 0.2e1 * t1198 + 0.3e1 / 0.2e1 * t1200 - t4651;
8214   t6115 = -t4653 + 0.9e1 / 0.4e1 * t1098 + 0.9e1 / 0.4e1 * t1111 - 0.9e1 / 0.4e1 * t1219 - 0.9e1 / 0.2e1 * t1222 - 0.9e1 / 0.4e1 * t1225 - 0.9e1 / 0.2e1 * t1228 + 0.3e1 / 0.4e1 * t1377 - 0.3e1 * t1382 - 0.3e1 * t1386 + 0.3e1 / 0.4e1 * t1390;
8215   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8216     v4rho4[4] = t5690 + t6092 + t6104 + t6115;
8217 
8218   t6117 = t247 * t4482;
8219   t6120 = t4174 * t1520;
8220   t6122 = t11 * M_PI;
8221   t6123 = t6122 * t1500;
8222   t6124 = t6123 * t1505;
8223   t6127 = t227 * t189 * t88;
8224   t6128 = t1502 * t6127;
8225   t6131 = t870 * t67;
8226   t6132 = t6131 * t221;
8227   t6133 = t1502 * t6132;
8228   t6136 = t6123 * t1508;
8229   t6138 = t89 * t4487;
8230   t6141 = t247 * t4468;
8231   t6144 = t6123 * t1511;
8232   t6146 = t1491 * t6132;
8233   t6149 = t2583 * t6132;
8234   t6153 = t139 * t140 * t144;
8235   t6154 = t405 * t4521;
8236   t6158 = t870 * t88 * t242;
8237   t6159 = t2583 * t6158;
8238   t6163 = t139 * t398 * t412;
8239   t6166 = -0.9e1 / 0.8e1 * t1501 * t6117 - 0.27e2 / 0.16e2 * t6120 + 0.27e2 / 0.8e1 * t6124 + 0.9e1 / 0.16e2 * t1556 * t6128 - 0.27e2 / 0.8e1 * t1501 * t6133 - 0.27e2 / 0.8e1 * t6136 - 0.9e1 / 0.16e2 * t1556 * t6138 + 0.27e2 / 0.8e1 * t1501 * t6141 + 0.27e2 / 0.8e1 * t6144 + 0.9e1 / 0.2e1 * t1501 * t6146 - 0.27e2 / 0.8e1 * t1501 * t6149 + 0.3e1 * t6153 * t6154 - 0.9e1 / 0.4e1 * t6153 * t6159 + 0.9e1 / 0.4e1 * t6163 * t1505;
8240   t6168 = t227 * t204 * t88;
8241   t6169 = t1502 * t6168;
8242   t6172 = t1502 * t4162;
8243   t6176 = t139 * t1514 * t221;
8244   t6177 = t2552 * t67;
8245   t6178 = t2577 * t6177;
8246   t6181 = t1502 * t6177;
8247   t6184 = t403 * t88;
8248   t6185 = t139 * t6184;
8249   t6186 = t2552 * t242;
8250   t6187 = t1502 * t6186;
8251   t6194 = t89 * t4506;
8252   t6197 = t871 * t242;
8253   t6198 = t89 * t6197;
8254   t6206 = t187 * t218;
8255   t6208 = t139 * t6206 * t88;
8256   t6209 = t1518 * t189;
8257   t6213 = t1502 * t6158;
8258   t6218 = t848 * t6168;
8259   t6221 = 0.9e1 / 0.8e1 * t1501 * t6169 + 0.9e1 / 0.8e1 * t1501 * t6172 + 0.27e2 / 0.16e2 * t6176 * t6178 - 0.27e2 / 0.16e2 * t6176 * t6181 - 0.9e1 / 0.8e1 * t6185 * t6187 - 0.9e1 / 0.4e1 * t6163 * t1508 - 0.9e1 / 0.8e1 * t1501 * t4163 - 0.9e1 / 0.8e1 * t1501 * t6194 - 0.3e1 / 0.4e1 * t6153 * t6198 + 0.9e1 / 0.8e1 * t6185 * t2577 * t6186 - 0.9e1 / 0.16e2 * t1556 * t4158 - 0.9e1 / 0.32e2 * t6208 * t1517 * t6209 - 0.9e1 / 0.4e1 * t6153 * t6213 + 0.9e1 / 0.4e1 * t6163 * t1511 + 0.9e1 / 0.8e1 * t1501 * t6218;
8260   t6225 = t1517 * t6177;
8261   t6228 = t8 * t860;
8262   t6230 = t139 * t6228 * t88;
8263   t6234 = t139 * t1514 * t242;
8264   t6237 = t227 * t412;
8265   t6238 = t6237 * t67;
8266   t6239 = t1517 * t6238;
8267   t6242 = t1518 * t204;
8268   t6249 = t89 * t4541;
8269   t6252 = t848 * t6132;
8270   t6255 = t848 * t6158;
8271   t6258 = t848 * t6127;
8272   t6261 = t144 * t867;
8273   t6262 = t1491 * t4285;
8274   t6263 = t6261 * t6262;
8275   t6266 = t77 * t1497;
8276   t6268 = t4339 * t867;
8277   t6269 = t1495 * t6268;
8278   t6272 = t213 * t425;
8279   t6274 = 0.9e1 / 0.8e1 * t1501 * t4170 + 0.27e2 / 0.16e2 * t6176 * t6225 - 0.9e1 / 0.16e2 * t6230 * t1520 - 0.9e1 / 0.16e2 * t6234 * t1520 - 0.9e1 / 0.8e1 * t1516 * t6239 - 0.9e1 / 0.16e2 * t1516 * t1517 * t6242 + 0.9e1 / 0.8e1 * t6185 * t1517 * t6186 + 0.9e1 / 0.4e1 * t6153 * t6249 - 0.9e1 / 0.4e1 * t1501 * t6252 - 0.3e1 / 0.2e1 * t6153 * t6255 + 0.9e1 / 0.16e2 * t1556 * t6258 - 0.6e1 * t141 * t6263 - 0.27e2 / 0.8e1 * t6266 + 0.9e1 / 0.2e1 * t141 * t6269 + 0.9e1 / 0.16e2 * t6272;
8280   t6275 = t220 * t1444;
8281   t6277 = t4320 * t144;
8282   t6278 = t868 * t6277;
8283   t6283 = t867 * t4365;
8284   t6284 = t4369 * t144;
8285   t6288 = t222 * t888;
8286   t6289 = t6288 * t4285;
8287   t6293 = t877 * t4368;
8288   t6294 = t6293 * t4285;
8289   t6299 = t4381 * t867;
8290   t6308 = t28 * t880 * t4285;
8291   t6312 = t418 * t4285;
8292   t6320 = t196 * t1455;
8293   t6324 = t871 * t412;
8294   t6325 = t223 * t6324;
8295   t6328 = -0.27e2 / 0.16e2 * t6275 + 0.9e1 / 0.4e1 * t404 * t6278 + 0.11e2 / 0.4e1 * t404 * t6269 - 0.15e2 / 0.8e1 * t404 * t6283 * t6284 + 0.11e2 / 0.4e1 * t141 * t6261 * t6289 - 0.25e2 / 0.4e1 * t141 * t6261 * t6294 + 0.15e2 / 0.4e1 * t141 * t144 * t4365 * t6299 + 0.11e2 / 0.4e1 * t141 * t6278 - 0.7e1 / 0.8e1 * t404 * t6263 - t141 * t6261 * t6308 / 0.4e1 - 0.11e2 / 0.4e1 * t141 * t6261 * t6312 - 0.3e1 / 0.4e1 * t141 * t412 * t242 * t419 - 0.27e2 / 0.8e1 * t6320 - 0.5e1 / 0.8e1 * t1462 * t1444 - 0.9e1 / 0.8e1 * t404 * t6325;
8296   t6333 = t881 * t412;
8297   t6337 = t412 * t221;
8298   t6345 = t77 * t1411;
8299   t6347 = t77 * t1448;
8300   t6349 = t77 * t1444;
8301   t6353 = t77 * t1417;
8302   t6355 = t1415 * t4285;
8303   t6359 = t213 * t420;
8304   t6361 = t220 * t1488;
8305   t6363 = t4329 * t144;
8306   t6367 = t77 * t1493;
8307   t6369 = 0.5e1 / 0.8e1 * t1462 * t1488 + 0.9e1 / 0.8e1 * t404 * t1486 * t6333 + 0.3e1 * t141 * t6337 * t1492 - 0.9e1 / 0.4e1 * t141 * t412 * t877 * t1496 + 0.9e1 / 0.4e1 * t6345 + 0.9e1 / 0.8e1 * t6347 - 0.27e2 / 0.8e1 * t6349 - 0.9e1 / 0.4e1 * t141 * t6325 - 0.9e1 / 0.8e1 * t6353 + 0.3e1 / 0.2e1 * t141 * t6261 * t6355 - 0.9e1 / 0.16e2 * t6359 + 0.27e2 / 0.16e2 * t6361 - 0.9e1 / 0.4e1 * t404 * t878 * t6363 + 0.9e1 / 0.2e1 * t6367;
8308   t6370 = t257 * t909;
8309   t6377 = t77 * t1473;
8310   t6379 = t220 * t1470;
8311   t6387 = t228 * t1527;
8312   t6394 = t4286 * t144;
8313   t6403 = t918 * t412;
8314   t6407 = t1527 * t222;
8315   t6417 = t141 * t145 * t6370 / 0.4e1 - 0.9e1 / 0.8e1 * t399 * t413 * t798 + 0.9e1 / 0.4e1 * t6377 - 0.9e1 / 0.8e1 * t6379 - 0.9e1 / 0.8e1 * t399 * t1528 * t197 + 0.3e1 / 0.4e1 * t141 * t1528 * t428 - 0.3e1 / 0.8e1 * t404 * t405 * t6387 - 0.3e1 / 0.2e1 * t141 * t413 * t1426 - 0.11e2 / 0.8e1 * t404 * t868 * t6394 - 0.9e1 / 0.16e2 * t1431 * t413 * t788 + 0.5e1 / 0.8e1 * t1462 * t1436 + 0.9e1 / 0.8e1 * t404 * t223 * t6403 + 0.3e1 / 0.4e1 * t141 * t6407 * t424 + 0.3e1 / 0.4e1 * t141 * t1410 * t1447 - 0.3e1 / 0.4e1 * t141 * t6337 * t1416;
8316   t6419 = t77 * t1423;
8317   t6421 = t77 * t1477;
8318   t6427 = t220 * t1436;
8319   t6429 = t77 * t1440;
8320   t6434 = t77 * t1427;
8321   t6436 = t4307 * t867;
8322   t6440 = t787 * t1432;
8323   t6442 = t962 * t75;
8324   t6443 = t139 * t6442;
8325   t6451 = t213 * t429;
8326   t6453 = t844 * t407;
8327   t6459 = t139 * t9 * t4258;
8328   t6462 = -0.9e1 / 0.4e1 * t6419 - 0.9e1 / 0.8e1 * t6421 - 0.3e1 / 0.4e1 * t141 * t1527 * t88 * t419 + 0.27e2 / 0.16e2 * t6427 + 0.27e2 / 0.8e1 * t6429 + 0.9e1 / 0.4e1 * t141 * t6337 * t1439 - 0.9e1 / 0.4e1 * t6434 + 0.3e1 / 0.2e1 * t141 * t145 * t6436 - 0.27e2 / 0.32e2 * t6440 + 0.3e1 / 0.32e2 * t6443 * t145 * t4548 - t141 * t144 * t909 * t419 / 0.4e1 + 0.9e1 / 0.16e2 * t6451 - 0.9e1 / 0.32e2 * t6453 - 0.3e1 / 0.8e1 * t399 * t145 * t4573 - t6459 * t407 / 0.8e1;
8329   t6473 = t253 * t909;
8330   t6480 = t792 * t400;
8331   t6482 = t196 * t1458;
8332   t6484 = t862 * t407;
8333   t6486 = t220 * t1466;
8334   t6488 = t77 * t1452;
8335   t6491 = 0.3e1 / 0.32e2 * t838 * t146;
8336   t6492 = t213 * t414;
8337   t6494 = t77 * t1529;
8338   t6498 = my_piecewise3(t24, -0.15e2 / 0.2e1 * t904 * t22, 0);
8339   t6503 = -t1462 * t1466 / 0.4e1 - 0.3e1 / 0.8e1 * t1462 * t1470 - t404 * t4577 * t406 / 0.8e1 - 0.3e1 / 0.8e1 * t404 * t810 * t1469 + t141 * t423 * t6473 / 0.4e1 + 0.3e1 / 0.4e1 * t141 * t413 * t1451 - 0.27e2 / 0.32e2 * t6480 - 0.27e2 / 0.16e2 * t6482 - 0.9e1 / 0.16e2 * t6484 - 0.9e1 / 0.16e2 * t6486 + 0.9e1 / 0.8e1 * t6488 + t6491 - 0.9e1 / 0.16e2 * t6492 - 0.9e1 / 0.8e1 * t6494 - t141 * t6498 * t28 * t92 / 0.4e1;
8340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8341     v4rho3sigma[0] = t6166 + t6221 + t6274 + t6328 + t6369 + t6417 + t6462 + t6503;
8342 
8343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8344     v4rho3sigma[1] = 0.0e0;
8345 
8346   t6506 = t1017 * t1541;
8347   t6508 = t1022 * t435;
8348   t6510 = t312 * t1544;
8349   t6513 = 0.3e1 / 0.32e2 * t1081 * t155;
8350   t6514 = t950 * t115;
8351   t6515 = t139 * t6514;
8352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8353     v4rho3sigma[2] = -0.27e2 / 0.32e2 * t6506 - 0.27e2 / 0.32e2 * t6508 - 0.27e2 / 0.16e2 * t6510 + t6513 + 0.3e1 / 0.32e2 * t6515 * t154 * t4847 - 0.9e1 / 0.16e2 * t1586 * t4745 - 0.3e1 / 0.8e1 * t434 * t154 * t4877;
8354 
8355   t6525 = 0.9e1 / 0.8e1 * t6123 * t1566;
8356   t6528 = t1577 * t1500;
8357   t6530 = t227 * t2 * t88;
8358   t6531 = t848 * t6530;
8359   t6534 = t2552 * t107;
8360   t6535 = t1517 * t6534;
8361   t6538 = t1577 * t1515;
8362   t6539 = t1518 * t2;
8363   t6543 = t247 * t4858;
8364   t6546 = t89 * t4862;
8365   t6549 = t870 * t107;
8366   t6550 = t6549 * t221;
8367   t6551 = t1502 * t6550;
8368   t6554 = t1502 * t6530;
8369   t6557 = t848 * t6550;
8370   t6561 = t139 * t6442 * t144;
8371   t6564 = t1577 * t1555;
8372   t6567 = t1502 * t6534;
8373   t6570 = t2577 * t6534;
8374   t6573 = t223 * t4819;
8375   t6576 = t2583 * t6550;
8376   t6580 = 0.9e1 / 0.8e1 * t6123 * t1571;
8377   t6583 = -t6525 - 0.3e1 / 0.4e1 * t6163 * t1566 + 0.3e1 / 0.4e1 * t6528 * t6531 + 0.9e1 / 0.16e2 * t6176 * t6535 - 0.3e1 / 0.8e1 * t6538 * t1517 * t6539 + 0.9e1 / 0.8e1 * t1501 * t6543 - 0.3e1 / 0.4e1 * t6528 * t6546 - 0.9e1 / 0.8e1 * t1501 * t6551 + 0.3e1 / 0.4e1 * t6528 * t6554 - 0.3e1 / 0.4e1 * t1501 * t6557 + 0.3e1 / 0.32e2 * t6561 * t4755 - 0.3e1 / 0.8e1 * t6564 * t4713 - 0.9e1 / 0.16e2 * t6176 * t6567 + 0.9e1 / 0.16e2 * t6176 * t6570 + 0.3e1 / 0.2e1 * t1501 * t6573 - 0.9e1 / 0.8e1 * t1501 * t6576 + t6580 + 0.3e1 / 0.4e1 * t6163 * t1571;
8378   t6584 = t247 * t4827;
8379   t6595 = t6237 * t107;
8380   t6596 = t1517 * t6595;
8381   t6605 = 0.9e1 / 0.16e2 * t6122 * t1555 * t1072;
8382   t6607 = 0.9e1 / 0.8e1 * t6123 * t1574;
8383   t6609 = 0.9e1 / 0.16e2 * t4174 * t1560;
8384   t6621 = t107 * t67 * t88;
8385   t6622 = t4221 * t6621;
8386   t6625 = -0.3e1 / 0.8e1 * t1501 * t6584 + 0.3e1 / 0.8e1 * t1501 * t4720 + 0.3e1 / 0.8e1 * t1501 * t4740 - 0.3e1 / 0.16e2 * t6230 * t1560 - 0.3e1 / 0.16e2 * t6234 * t1560 - 0.3e1 / 0.8e1 * t1516 * t6596 + 0.3e1 / 0.4e1 * t6163 * t1574 - 0.3e1 / 0.8e1 * t1501 * t4729 - t6605 + t6607 - t6609 - 0.3e1 / 0.8e1 * t139 * t1430 * t412 * t1072 - 0.3e1 / 0.16e2 * t1556 * t4749 - 0.9e1 / 0.16e2 * t6120 + 0.9e1 / 0.8e1 * t6124 - 0.9e1 / 0.8e1 * t6136 + 0.9e1 / 0.8e1 * t6144 + 0.3e1 / 0.8e1 * t1556 * t6622;
8387   t6627 = t144 * t107;
8388   t6628 = t6627 * t67;
8389   t6632 = t4218 * t6621;
8390   t6635 = t89 * t225;
8391   t6636 = t6635 * t4705;
8392   t6642 = t792 * t438;
8393   t6645 = 0.9e1 / 0.8e1 * t196 * t1563;
8394   t6660 = -0.3e1 / 0.16e2 * t6208 * t4209 * t6628 + 0.3e1 / 0.8e1 * t1556 * t6632 - 0.3e1 / 0.8e1 * t1556 * t6636 - 0.3e1 / 0.4e1 * t1578 * t413 * t1013 - 0.9e1 / 0.32e2 * t6642 - t6645 - 0.3e1 / 0.8e1 * t399 * t1528 * t287 - 0.9e1 / 0.8e1 * t6266 + 0.3e1 / 0.8e1 * t6272 - 0.9e1 / 0.16e2 * t6275 - 0.9e1 / 0.8e1 * t6320 + 0.3e1 / 0.4e1 * t6345 + 0.3e1 / 0.8e1 * t6347 - 0.9e1 / 0.8e1 * t6349 - 0.3e1 / 0.8e1 * t6353 - 0.3e1 / 0.8e1 * t6359 + 0.9e1 / 0.16e2 * t6361 + 0.3e1 / 0.2e1 * t6367;
8395   t6680 = 0.3e1 / 0.4e1 * t6377 - 0.3e1 / 0.8e1 * t6379 - 0.3e1 / 0.4e1 * t6419 - 0.3e1 / 0.8e1 * t6421 + 0.9e1 / 0.16e2 * t6427 + 0.9e1 / 0.8e1 * t6429 - 0.3e1 / 0.4e1 * t6434 - 0.9e1 / 0.32e2 * t6440 + 0.3e1 / 0.8e1 * t6451 - 0.3e1 / 0.16e2 * t6453 - 0.9e1 / 0.16e2 * t6480 - 0.9e1 / 0.16e2 * t6482 - 0.3e1 / 0.16e2 * t6484 - 0.3e1 / 0.16e2 * t6486 + 0.3e1 / 0.8e1 * t6488 + t6491 - 0.3e1 / 0.8e1 * t6492 - 0.3e1 / 0.8e1 * t6494 - 0.3e1 / 0.8e1 * t1578 * t146;
8396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8397     v4rho3sigma[3] = t6583 + t6625 + t6660 + t6680;
8398 
8399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8400     v4rho3sigma[4] = 0.0e0;
8401 
8402   t6682 = t261 * t351;
8403   t6684 = t139 * t6682 * t128;
8404   t6685 = t1599 * t263;
8405   t6689 = t129 * t5203;
8406   t6692 = t1619 * t263;
8407   t6693 = t1618 * t6692;
8408   t6696 = t6122 * t1611;
8409   t6698 = 0.9e1 / 0.8e1 * t6696 * t1626;
8410   t6699 = t1619 * t270;
8411   t6700 = t1159 * t6699;
8412   t6703 = t1599 * t270;
8413   t6708 = 0.9e1 / 0.8e1 * t6696 * t1613;
8414   t6709 = t129 * t5182;
8415   t6713 = 0.9e1 / 0.8e1 * t6696 * t1621;
8416   t6716 = t1577 * t1585;
8417   t6720 = 0.9e1 / 0.16e2 * t5411 * t1601;
8418   t6723 = 0.9e1 / 0.16e2 * t6122 * t1585 * t1162;
8419   t6724 = t1159 * t6692;
8420   t6728 = t139 * t6514 * t153;
8421   t6731 = -0.3e1 / 0.32e2 * t6684 * t1598 * t6685 - 0.3e1 / 0.16e2 * t1586 * t6689 + 0.3e1 / 0.16e2 * t1586 * t6693 + t6698 + 0.3e1 / 0.8e1 * t1612 * t6700 - 0.3e1 / 0.16e2 * t1597 * t1598 * t6703 - t6708 - 0.3e1 / 0.8e1 * t1612 * t6709 + t6713 - 0.3e1 / 0.16e2 * t1586 * t5088 + 0.3e1 / 0.8e1 * t6716 * t5070 - t6720 - t6723 + 0.3e1 / 0.16e2 * t1586 * t6724 + 0.3e1 / 0.32e2 * t6728 * t5059;
8422   t6732 = t1618 * t6699;
8423   t6736 = 0.9e1 / 0.8e1 * t312 * t1606;
8424   t6740 = t318 * t471;
8425   t6745 = t318 * t462;
8426   t6747 = t318 * t467;
8427   t6749 = t1191 * t449;
8428   t6751 = t1022 * t442;
8429   t6758 = t318 * t456;
8430   t6760 = 0.3e1 / 0.8e1 * t1612 * t6732 - t6736 - 0.3e1 / 0.8e1 * t434 * t455 * t1031 + 0.3e1 / 0.16e2 * t6740 - 0.3e1 / 0.16e2 * t1540 * t455 * t1018 - 0.3e1 / 0.16e2 * t6745 + 0.3e1 / 0.16e2 * t6747 - 0.3e1 / 0.32e2 * t6749 - 0.9e1 / 0.32e2 * t6751 - 0.9e1 / 0.16e2 * t6510 - 0.9e1 / 0.32e2 * t6506 - 0.9e1 / 0.16e2 * t6508 + t6513 + 0.3e1 / 0.8e1 * t1589 * t155 - 0.3e1 / 0.16e2 * t6758;
8431   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8432     v4rho3sigma[5] = t6731 + t6760;
8433 
8434   t6761 = t89 * t5102;
8435   t6764 = t89 * t5107;
8436   t6770 = t227 * t326 * t88;
8437   t6771 = t1502 * t6770;
8438   t6775 = t227 * t331 * t88;
8439   t6776 = t1502 * t6775;
8440   t6781 = t848 * t6770;
8441   t6784 = t1518 * t326;
8442   t6790 = t848 * t6775;
8443   t6793 = t1518 * t331;
8444   t6797 = -0.3e1 / 0.16e2 * t1556 * t6761 - 0.3e1 / 0.8e1 * t1501 * t6764 - 0.3e1 / 0.8e1 * t6564 * t5084 + 0.3e1 / 0.16e2 * t1556 * t6771 + 0.3e1 / 0.8e1 * t1501 * t6776 + 0.3e1 / 0.32e2 * t6561 * t5075 + 0.3e1 / 0.16e2 * t1556 * t6781 - 0.3e1 / 0.32e2 * t6208 * t1517 * t6784 - 0.3e1 / 0.16e2 * t1556 * t5080 + 0.3e1 / 0.8e1 * t1501 * t6790 - 0.3e1 / 0.16e2 * t1516 * t1517 * t6793 - t6525 + t6580 - t6605 + t6607;
8445   t6798 = t787 * t1630;
8446   t6800 = t196 * t1633;
8447   t6820 = -t6609 - 0.9e1 / 0.32e2 * t6798 - 0.9e1 / 0.16e2 * t6800 - 0.9e1 / 0.8e1 * t1012 * t1579 - 0.3e1 / 0.16e2 * t1431 * t413 * t1143 - 0.3e1 / 0.8e1 * t399 * t413 * t1147 - 0.3e1 / 0.8e1 * t399 * t145 * t5186 - 0.9e1 / 0.16e2 * t6642 - t6645 + 0.3e1 / 0.16e2 * t6272 - 0.3e1 / 0.16e2 * t6359 + 0.3e1 / 0.16e2 * t6451 - 0.3e1 / 0.32e2 * t6453 - 0.9e1 / 0.32e2 * t6480 + t6491 - 0.3e1 / 0.16e2 * t6492;
8448   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8449     v4rho3sigma[6] = t6797 + t6820;
8450 
8451   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8452     v4rho3sigma[7] = 0.0e0;
8453 
8454   t6821 = t5411 * t1735;
8455   t6823 = t6696 * t1725;
8456   t6825 = t6696 * t1728;
8457   t6827 = t6696 * t1731;
8458   t6830 = t139 * t433 * t454;
8459   t6833 = t1577 * t1611;
8460   t6835 = t360 * t2 * t128;
8461   t6836 = t1618 * t6835;
8462   t6840 = t139 * t1595 * t354;
8463   t6841 = t2677 * t97;
8464   t6842 = t1618 * t6841;
8465   t6845 = t2668 * t6841;
8466   t6848 = t356 * t5463;
8467   t6852 = t1290 * t354 * t97;
8468   t6853 = t2676 * t6852;
8469   t6856 = t1159 * t5413;
8470   t6859 = t360 * t454;
8471   t6860 = t6859 * t97;
8472   t6861 = t1598 * t6860;
8473   t6864 = t1618 * t6852;
8474   t6867 = t1159 * t6852;
8475   t6870 = t1159 * t6835;
8476   t6873 = t1577 * t1596;
8477   t6874 = t1599 * t2;
8478   t6878 = t1598 * t6841;
8479   t6881 = t380 * t5474;
8480   t6884 = -0.9e1 / 0.16e2 * t6821 + 0.9e1 / 0.8e1 * t6823 - 0.9e1 / 0.8e1 * t6825 + 0.9e1 / 0.8e1 * t6827 - 0.3e1 / 0.4e1 * t6830 * t1613 - 0.3e1 / 0.4e1 * t6833 * t6836 - 0.9e1 / 0.16e2 * t6840 * t6842 + 0.9e1 / 0.16e2 * t6840 * t6845 + 0.3e1 / 0.2e1 * t1612 * t6848 - 0.9e1 / 0.8e1 * t1612 * t6853 + 0.3e1 / 0.8e1 * t1612 * t6856 - 0.3e1 / 0.8e1 * t1597 * t6861 - 0.9e1 / 0.8e1 * t1612 * t6864 - 0.3e1 / 0.4e1 * t1612 * t6867 - 0.3e1 / 0.4e1 * t6833 * t6870 + 0.3e1 / 0.8e1 * t6873 * t1598 * t6874 + 0.9e1 / 0.16e2 * t6840 * t6878 + 0.9e1 / 0.8e1 * t1612 * t6881;
8481   t6885 = t380 * t5459;
8482   t6888 = t129 * t5449;
8483   t6893 = t376 * t1125;
8484   t6896 = t1618 * t5413;
8485   t6909 = t36 * t1327;
8486   t6911 = t139 * t6909 * t128;
8487   t6915 = t139 * t1595 * t375;
8488   t6921 = t111 * t128 * t97;
8489   t6922 = t5908 * t6921;
8490   t6925 = t153 * t111;
8491   t6926 = t6925 * t97;
8492   t6930 = -0.3e1 / 0.8e1 * t1612 * t6885 + 0.3e1 / 0.4e1 * t6833 * t6888 + 0.3e1 / 0.4e1 * t6830 * t1621 - 0.3e1 / 0.8e1 * t1612 * t6893 + 0.3e1 / 0.8e1 * t1612 * t6896 - 0.3e1 / 0.8e1 * t139 * t1539 * t454 * t1162 - 0.3e1 / 0.16e2 * t1586 * t5392 + 0.3e1 / 0.32e2 * t6728 * t5380 + 0.3e1 / 0.8e1 * t6716 * t5384 - 0.3e1 / 0.16e2 * t6911 * t1601 - 0.3e1 / 0.16e2 * t6915 * t1601 + 0.3e1 / 0.4e1 * t6830 * t1626 + t6698 - t6708 + t6713 - t6720 - t6723 + 0.3e1 / 0.8e1 * t1586 * t6922 - 0.3e1 / 0.16e2 * t6684 * t5896 * t6926;
8493   t6932 = t5905 * t6921;
8494   t6935 = t129 * t358;
8495   t6936 = t6935 * t5401;
8496   t6939 = t353 * t1704;
8497   t6941 = t117 * t1708;
8498   t6943 = t117 * t1691;
8499   t6945 = t117 * t1696;
8500   t6947 = t117 * t1700;
8501   t6949 = t353 * t1671;
8502   t6951 = t353 * t1676;
8503   t6953 = t117 * t1682;
8504   t6955 = t117 * t1686;
8505   t6959 = t1329 * t449;
8506   t6961 = t353 * t1665;
8507   t6963 = t117 * t1644;
8508   t6965 = t117 * t1648;
8509   t6967 = t117 * t1652;
8510   t6969 = t312 * t1655;
8511   t6971 = 0.3e1 / 0.8e1 * t1586 * t6932 - 0.3e1 / 0.8e1 * t1586 * t6936 + 0.9e1 / 0.16e2 * t6939 + 0.9e1 / 0.8e1 * t6941 - 0.3e1 / 0.8e1 * t6943 + 0.3e1 / 0.4e1 * t6945 - 0.3e1 / 0.4e1 * t6947 - 0.9e1 / 0.16e2 * t6949 + 0.9e1 / 0.16e2 * t6951 + 0.3e1 / 0.2e1 * t6953 - 0.9e1 / 0.8e1 * t6955 + 0.9e1 / 0.8e1 * t1152 * t1590 - 0.3e1 / 0.16e2 * t6959 - 0.3e1 / 0.16e2 * t6961 + 0.3e1 / 0.4e1 * t6963 - 0.3e1 / 0.8e1 * t6965 + 0.3e1 / 0.8e1 * t6967 - 0.9e1 / 0.8e1 * t6969;
8512   t6972 = t312 * t1658;
8513   t6983 = t1017 * t1717;
8514   t6985 = t117 * t1637;
8515   t6987 = t353 * t1641;
8516   t6989 = t117 * t1671;
8517   t6991 = t117 * t1714;
8518   t7000 = t117 * t1743;
8519   t7002 = -0.9e1 / 0.16e2 * t6972 - 0.3e1 / 0.8e1 * t434 * t154 * t5470 + 0.3e1 / 0.4e1 * t1589 * t455 * t1153 - 0.3e1 / 0.8e1 * t434 * t1742 * t313 - 0.9e1 / 0.32e2 * t6983 + 0.3e1 / 0.8e1 * t6985 - 0.3e1 / 0.8e1 * t6987 - 0.9e1 / 0.8e1 * t6989 - 0.3e1 / 0.4e1 * t6991 - t6736 + 0.3e1 / 0.8e1 * t6740 - 0.3e1 / 0.8e1 * t6745 + 0.3e1 / 0.8e1 * t6747 - 0.3e1 / 0.16e2 * t6749 - 0.9e1 / 0.16e2 * t6751 - 0.9e1 / 0.32e2 * t6508 + t6513 - 0.3e1 / 0.8e1 * t6758 - 0.3e1 / 0.8e1 * t7000;
8520   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8521     v4rho3sigma[8] = t6884 + t6930 + t6971 + t7002;
8522 
8523   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8524     v4rho3sigma[9] = -0.27e2 / 0.32e2 * t6642 - 0.27e2 / 0.32e2 * t6798 - 0.27e2 / 0.16e2 * t6800 + t6491 + 0.3e1 / 0.32e2 * t6443 * t145 * t5517 - 0.9e1 / 0.16e2 * t1556 * t5396 - 0.3e1 / 0.8e1 * t399 * t145 * t5506;
8525 
8526   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8527     v4rho3sigma[10] = 0.0e0;
8528 
8529   t7015 = t380 * t5773;
8530   t7019 = t360 * t335 * t128;
8531   t7020 = t1159 * t7019;
8532   t7023 = t1290 * t111;
8533   t7024 = t7023 * t354;
8534   t7025 = t1159 * t7024;
8535   t7028 = t1599 * t335;
8536   t7032 = t1618 * t7019;
8537   t7035 = t1618 * t7024;
8538   t7038 = t1680 * t7024;
8539   t7041 = t2676 * t7024;
8540   t7044 = t129 * t5755;
8541   t7048 = t139 * t149 * t153;
8542   t7049 = t1290 * t128;
8543   t7050 = t7049 * t375;
8544   t7051 = t2676 * t7050;
8545   t7054 = t380 * t5738;
8546   t7057 = t1291 * t375;
8547   t7058 = t129 * t7057;
8548   t7064 = t360 * t344 * t128;
8549   t7065 = t1618 * t7064;
8550   t7068 = 0.27e2 / 0.8e1 * t1612 * t7015 + 0.9e1 / 0.16e2 * t1586 * t7020 - 0.9e1 / 0.4e1 * t1612 * t7025 - 0.9e1 / 0.32e2 * t6684 * t1598 * t7028 + 0.9e1 / 0.16e2 * t1586 * t7032 - 0.27e2 / 0.8e1 * t1612 * t7035 + 0.9e1 / 0.2e1 * t1612 * t7038 - 0.27e2 / 0.8e1 * t1612 * t7041 - 0.9e1 / 0.16e2 * t1586 * t7044 - 0.9e1 / 0.4e1 * t7048 * t7051 - 0.9e1 / 0.8e1 * t1612 * t7054 - 0.3e1 / 0.4e1 * t7048 * t7058 + 0.9e1 / 0.4e1 * t6830 * t1725 + 0.9e1 / 0.8e1 * t1612 * t7065;
8551   t7071 = t2677 * t111;
8552   t7072 = t2668 * t7071;
8553   t7075 = t1618 * t7071;
8554   t7079 = t139 * t445 * t128;
8555   t7080 = t2677 * t375;
8556   t7081 = t1618 * t7080;
8557   t7084 = t1159 * t7064;
8558   t7089 = t1598 * t7071;
8559   t7096 = t6859 * t111;
8560   t7097 = t1598 * t7096;
8561   t7100 = t1599 * t344;
8562   t7107 = t129 * t5759;
8563   t7114 = 0.9e1 / 0.8e1 * t1612 * t5698 + 0.27e2 / 0.16e2 * t6840 * t7072 - 0.27e2 / 0.16e2 * t6840 * t7075 - 0.9e1 / 0.8e1 * t7079 * t7081 + 0.9e1 / 0.8e1 * t1612 * t7084 + 0.9e1 / 0.8e1 * t1612 * t5701 + 0.27e2 / 0.16e2 * t6840 * t7089 - 0.9e1 / 0.16e2 * t6911 * t1735 - 0.9e1 / 0.16e2 * t6915 * t1735 - 0.9e1 / 0.8e1 * t1597 * t7097 - 0.9e1 / 0.16e2 * t1597 * t1598 * t7100 + 0.9e1 / 0.8e1 * t7079 * t1598 * t7080 + 0.9e1 / 0.4e1 * t7048 * t7107 - 0.9e1 / 0.4e1 * t6830 * t1728 - 0.9e1 / 0.8e1 * t1612 * t5707;
8564   t7116 = t129 * t5815;
8565   t7124 = t447 * t5788;
8566   t7133 = t1618 * t7050;
8567   t7136 = t1159 * t7050;
8568   t7141 = t153 * t1287;
8569   t7142 = t1295 * t6057;
8570   t7143 = t7142 * t5888;
8571   t7147 = t153 * t6054;
8572   t7148 = t6070 * t1287;
8573   t7152 = t6000 * t153;
8574   t7153 = t1288 * t7152;
8575   t7156 = -0.9e1 / 0.8e1 * t1612 * t7116 + 0.9e1 / 0.4e1 * t6830 * t1731 + 0.9e1 / 0.8e1 * t7079 * t2668 * t7080 + 0.3e1 * t7048 * t7124 - 0.27e2 / 0.16e2 * t6821 + 0.27e2 / 0.8e1 * t6823 - 0.27e2 / 0.8e1 * t6825 + 0.27e2 / 0.8e1 * t6827 - 0.9e1 / 0.16e2 * t1586 * t5693 - 0.9e1 / 0.4e1 * t7048 * t7133 - 0.3e1 / 0.2e1 * t7048 * t7136 - 0.5e1 / 0.8e1 * t1662 * t1671 - 0.25e2 / 0.4e1 * t150 * t7141 * t7143 + 0.15e2 / 0.4e1 * t150 * t7147 * t7148 - 0.7e1 / 0.8e1 * t446 * t7153;
8576   t7157 = t5988 * t153;
8577   t7158 = t1296 * t7157;
8578   t7161 = t1287 * t6054;
8579   t7162 = t6058 * t153;
8580   t7166 = t355 * t1306;
8581   t7167 = t7166 * t5888;
8582   t7191 = t361 * t1741;
8583   t7197 = t1355 * t454;
8584   t7201 = t1291 * t454;
8585   t7202 = t356 * t7201;
8586   t7207 = t1299 * t454;
8587   t7211 = 0.11e2 / 0.4e1 * t446 * t7158 - 0.15e2 / 0.8e1 * t446 * t7161 * t7162 + 0.11e2 / 0.4e1 * t150 * t7141 * t7167 - 0.9e1 / 0.16e2 * t1540 * t455 * t1245 - 0.3e1 / 0.2e1 * t150 * t455 * t1713 - 0.3e1 / 0.4e1 * t150 * t1741 * t128 * t461 - 0.3e1 / 0.4e1 * t150 * t454 * t375 * t461 - 0.9e1 / 0.8e1 * t434 * t1742 * t340 + 0.3e1 / 0.4e1 * t150 * t1742 * t470 - 0.3e1 / 0.8e1 * t446 * t447 * t7191 + 0.5e1 / 0.8e1 * t1662 * t1704 + 0.9e1 / 0.8e1 * t446 * t356 * t7197 - 0.9e1 / 0.8e1 * t446 * t7202 + 0.5e1 / 0.8e1 * t1662 * t1676 + 0.9e1 / 0.8e1 * t446 * t1674 * t7207;
8588   t7214 = t454 * t354;
8589   t7225 = t1741 * t355;
8590   t7233 = t53 * t1298 * t5888;
8591   t7246 = t386 * t1342;
8592   t7257 = t139 * t37 * t5945;
8593   t7263 = 0.3e1 * t150 * t7214 * t1681 - 0.9e1 / 0.4e1 * t150 * t454 * t1295 * t1685 - 0.3e1 / 0.4e1 * t150 * t7214 * t1690 + 0.3e1 / 0.4e1 * t150 * t7225 * t466 + 0.3e1 / 0.4e1 * t150 * t1695 * t1651 - t150 * t7141 * t7233 / 0.4e1 - t1662 * t1665 / 0.4e1 - t446 * t5792 * t448 / 0.8e1 - t150 * t153 * t1342 * t461 / 0.4e1 + t150 * t465 * t7246 / 0.4e1 - 0.9e1 / 0.8e1 * t434 * t455 * t1252 - 0.3e1 / 0.8e1 * t434 * t154 * t5830 - t7257 * t449 / 0.8e1 + 0.3e1 / 0.4e1 * t150 * t455 * t1636;
8594   t7264 = t390 * t1342;
8595   t7276 = t5972 * t1287;
8596   t7277 = t465 * t7276;
8597   t7280 = t5977 * t1287;
8598   t7284 = t5889 * t153;
8599   t7288 = t460 * t5888;
8600   t7304 = t1689 * t5888;
8601   t7310 = t150 * t154 * t7264 / 0.4e1 - 0.3e1 / 0.8e1 * t1662 * t1641 - 0.3e1 / 0.8e1 * t446 * t1260 * t1640 + 0.3e1 / 0.32e2 * t6515 * t154 * t5795 + 0.11e2 / 0.4e1 * t150 * t7277 + 0.3e1 / 0.2e1 * t150 * t154 * t7280 - 0.11e2 / 0.8e1 * t446 * t1288 * t7284 - 0.11e2 / 0.4e1 * t150 * t7141 * t7288 - 0.9e1 / 0.4e1 * t150 * t7202 + 0.9e1 / 0.4e1 * t150 * t7214 * t1707 - 0.9e1 / 0.4e1 * t446 * t1296 * t7152 - 0.6e1 * t150 * t7153 + 0.9e1 / 0.2e1 * t150 * t7158 + 0.3e1 / 0.2e1 * t150 * t7141 * t7304 + 0.9e1 / 0.4e1 * t446 * t7277;
8602   t7327 = 0.27e2 / 0.16e2 * t6939 + 0.27e2 / 0.8e1 * t6941 - 0.9e1 / 0.8e1 * t6943 + 0.9e1 / 0.4e1 * t6945 - 0.9e1 / 0.4e1 * t6947 - 0.27e2 / 0.16e2 * t6949 + 0.27e2 / 0.16e2 * t6951 + 0.9e1 / 0.2e1 * t6953 - 0.27e2 / 0.8e1 * t6955 - 0.9e1 / 0.16e2 * t6959 - 0.9e1 / 0.16e2 * t6961 + 0.9e1 / 0.4e1 * t6963 - 0.9e1 / 0.8e1 * t6965 + 0.9e1 / 0.8e1 * t6967 - 0.27e2 / 0.8e1 * t6969;
8603   t7343 = my_piecewise3(t50, -0.15e2 / 0.2e1 * t1337 * t22, 0);
8604   t7348 = -0.27e2 / 0.16e2 * t6972 - 0.27e2 / 0.32e2 * t6983 + 0.9e1 / 0.8e1 * t6985 - 0.9e1 / 0.8e1 * t6987 - 0.27e2 / 0.8e1 * t6989 - 0.9e1 / 0.4e1 * t6991 + 0.9e1 / 0.16e2 * t6740 - 0.9e1 / 0.16e2 * t6745 + 0.9e1 / 0.16e2 * t6747 - 0.9e1 / 0.32e2 * t6749 - 0.27e2 / 0.32e2 * t6751 + t6513 - 0.9e1 / 0.16e2 * t6758 - 0.9e1 / 0.8e1 * t7000 - t150 * t7343 * t53 * t132 / 0.4e1;
8605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8606     v4rho3sigma[11] = t7068 + t7114 + t7156 + t7211 + t7263 + t7310 + t7327 + t7348;
8607 
8608   t7351 = t6122 * t1826;
8609   t7352 = t7351 * t1505;
8610   t7358 = t7351 * t1508;
8611   t7364 = t7351 * t1511;
8612   t7375 = t139 * t403 * t242;
8613   t7380 = t4174 * t1836;
8614   t7382 = 0.27e2 / 0.8e1 * t7352 + 0.9e1 / 0.16e2 * t1869 * t6128 - 0.27e2 / 0.8e1 * t1827 * t6133 - 0.27e2 / 0.8e1 * t7358 - 0.9e1 / 0.16e2 * t1869 * t6138 + 0.27e2 / 0.8e1 * t1827 * t6141 + 0.27e2 / 0.8e1 * t7364 + 0.3e1 * t2551 * t6154 - 0.9e1 / 0.4e1 * t2551 * t6159 - 0.9e1 / 0.8e1 * t1827 * t6117 - 0.9e1 / 0.4e1 * t2551 * t6213 - 0.9e1 / 0.8e1 * t7375 * t2574 + 0.9e1 / 0.8e1 * t7375 * t2578 - 0.27e2 / 0.16e2 * t7380;
8615   t7389 = t2563 * t242;
8616   t7390 = t1517 * t7389;
8617   t7402 = t139 * t398 * t484;
8618   t7407 = t2563 * t67;
8619   t7408 = t2577 * t7407;
8620   t7411 = t1502 * t7407;
8621   t7414 = t227 * t484;
8622   t7415 = t7414 * t67;
8623   t7416 = t1517 * t7415;
8624   t7423 = 0.9e1 / 0.8e1 * t1827 * t6172 + 0.9e1 / 0.8e1 * t1827 * t4170 - 0.3e1 / 0.2e1 * t2551 * t6255 + 0.9e1 / 0.8e1 * t6185 * t7390 - 0.9e1 / 0.16e2 * t6230 * t1836 - 0.9e1 / 0.16e2 * t6234 * t1836 - 0.3e1 / 0.4e1 * t2551 * t6198 + 0.9e1 / 0.4e1 * t2551 * t6249 + 0.9e1 / 0.4e1 * t7402 * t1505 + 0.9e1 / 0.8e1 * t1827 * t6169 + 0.27e2 / 0.16e2 * t6176 * t7408 - 0.27e2 / 0.16e2 * t6176 * t7411 - 0.9e1 / 0.8e1 * t1516 * t7416 + 0.9e1 / 0.4e1 * t7402 * t1511 - 0.9e1 / 0.8e1 * t1827 * t4163;
8625   t7437 = t1834 * t189;
8626   t7438 = t1517 * t7437;
8627   t7443 = t1517 * t7407;
8628   t7446 = t1834 * t204;
8629   t7447 = t1517 * t7446;
8630   t7452 = t160 * t867;
8631   t7456 = t160 * t4365;
8632   t7460 = t4329 * t160;
8633   t7461 = t868 * t7460;
8634   t7466 = -0.9e1 / 0.4e1 * t7402 * t1508 - 0.9e1 / 0.8e1 * t1827 * t6194 + 0.9e1 / 0.2e1 * t1827 * t6146 - 0.27e2 / 0.8e1 * t1827 * t6149 + 0.9e1 / 0.16e2 * t1869 * t6258 - 0.9e1 / 0.16e2 * t1869 * t4158 - 0.9e1 / 0.32e2 * t6208 * t7438 + 0.9e1 / 0.8e1 * t1827 * t6218 + 0.27e2 / 0.16e2 * t6176 * t7443 - 0.9e1 / 0.16e2 * t1516 * t7447 - 0.9e1 / 0.4e1 * t1827 * t6252 - 0.25e2 / 0.4e1 * t141 * t7452 * t6294 + 0.15e2 / 0.4e1 * t141 * t7456 * t6299 - 0.7e1 / 0.8e1 * t404 * t7461 - 0.5e1 / 0.8e1 * t1462 * t1767;
8635   t7469 = t1807 * t6268;
8636   t7472 = t220 * t1767;
8637   t7474 = t220 * t1791;
8638   t7476 = t918 * t484;
8639   t7480 = t77 * t1795;
8640   t7485 = t77 * t1799;
8641   t7487 = t77 * t1802;
8642   t7489 = t77 * t1782;
8643   t7491 = t862 * t480;
8644   t7495 = t220 * t1787;
8645   t7497 = t484 * t221;
8646   t7504 = 0.5e1 / 0.8e1 * t1462 * t1814 + 0.9e1 / 0.2e1 * t141 * t7469 - 0.27e2 / 0.16e2 * t7472 - 0.9e1 / 0.8e1 * t7474 + 0.9e1 / 0.8e1 * t404 * t223 * t7476 + 0.9e1 / 0.4e1 * t7480 - 0.3e1 / 0.2e1 * t141 * t485 * t1426 - 0.9e1 / 0.8e1 * t7485 + 0.9e1 / 0.8e1 * t7487 + 0.9e1 / 0.8e1 * t7489 - 0.9e1 / 0.16e2 * t7491 + 0.5e1 / 0.8e1 * t1462 * t1760 - 0.9e1 / 0.16e2 * t7495 + 0.9e1 / 0.4e1 * t141 * t7497 * t1439 - t141 * t7452 * t6308 / 0.4e1;
8647   t7510 = t4320 * t867;
8648   t7511 = t493 * t7510;
8649   t7514 = t871 * t484;
8650   t7515 = t223 * t7514;
8651   t7518 = t881 * t484;
8652   t7530 = t196 * t1773;
8653   t7532 = t792 * t476;
8654   t7534 = t220 * t1760;
8655   t7539 = t787 * t1756;
8656   t7544 = t77 * t1823;
8657   t7546 = -0.11e2 / 0.4e1 * t141 * t7452 * t6312 + 0.11e2 / 0.4e1 * t141 * t7511 - 0.9e1 / 0.8e1 * t404 * t7515 + 0.9e1 / 0.8e1 * t404 * t1486 * t7518 - 0.9e1 / 0.4e1 * t141 * t7515 + 0.11e2 / 0.4e1 * t141 * t7452 * t6289 - 0.3e1 / 0.8e1 * t404 * t810 * t1790 - 0.27e2 / 0.16e2 * t7530 - 0.27e2 / 0.32e2 * t7532 + 0.27e2 / 0.16e2 * t7534 + 0.3e1 / 0.2e1 * t141 * t161 * t6436 - 0.27e2 / 0.32e2 * t7539 + 0.3e1 / 0.32e2 * t6443 * t161 * t4548 - 0.9e1 / 0.8e1 * t7544;
8658   t7550 = t213 * t490;
8659   t7552 = t77 * t1764;
8660   t7554 = t77 * t1753;
8661   t7558 = t220 * t1814;
8662   t7563 = t213 * t494;
8663   t7565 = t77 * t1767;
8664   t7567 = t77 * t1805;
8665   t7571 = t77 * t1808;
8666   t7573 = t4369 * t160;
8667   t7577 = t77 * t1820;
8668   t7579 = t1842 * t222;
8669   t7583 = 0.3e1 / 0.2e1 * t141 * t7452 * t6355 - 0.9e1 / 0.16e2 * t7550 + 0.27e2 / 0.8e1 * t7552 - 0.9e1 / 0.4e1 * t7554 + 0.9e1 / 0.4e1 * t404 * t7511 + 0.27e2 / 0.16e2 * t7558 - 0.9e1 / 0.4e1 * t404 * t878 * t7460 + 0.9e1 / 0.16e2 * t7563 - 0.27e2 / 0.8e1 * t7565 + 0.9e1 / 0.2e1 * t7567 - 0.6e1 * t141 * t7461 - 0.27e2 / 0.8e1 * t7571 - 0.15e2 / 0.8e1 * t404 * t6283 * t7573 + 0.9e1 / 0.4e1 * t7577 + 0.3e1 / 0.4e1 * t141 * t7579 * t424;
8670   t7585 = t228 * t1842;
8671   t7626 = t213 * t497;
8672   t7628 = -0.3e1 / 0.8e1 * t404 * t405 * t7585 + 0.3e1 / 0.4e1 * t141 * t1843 * t428 - 0.3e1 / 0.4e1 * t141 * t484 * t242 * t419 - t141 * t160 * t909 * t419 / 0.4e1 + 0.3e1 / 0.4e1 * t141 * t1819 * t1447 + t141 * t493 * t6473 / 0.4e1 + 0.3e1 * t141 * t7497 * t1492 + 0.11e2 / 0.4e1 * t404 * t7469 + 0.3e1 / 0.4e1 * t141 * t485 * t1451 + t141 * t161 * t6370 / 0.4e1 - t6459 * t480 / 0.8e1 - t1462 * t1787 / 0.4e1 - 0.3e1 / 0.8e1 * t1462 * t1791 - t404 * t4577 * t479 / 0.8e1 + 0.9e1 / 0.16e2 * t7626;
8673   t7629 = t844 * t480;
8674   t7640 = t4286 * t160;
8675   t7650 = t77 * t1750;
8676   t7656 = t196 * t1770;
8677   t7658 = t484 * t877;
8678   t7663 = 0.3e1 / 0.32e2 * t838 * t162;
8679   t7664 = t213 * t486;
8680   t7666 = t77 * t1844;
8681   t7669 = my_piecewise3(t24, -0.6e1 * t1525, 0);
8682   t7674 = -0.9e1 / 0.32e2 * t7629 - 0.9e1 / 0.8e1 * t399 * t485 * t798 - 0.3e1 / 0.8e1 * t399 * t161 * t4573 - 0.9e1 / 0.8e1 * t399 * t1843 * t197 - 0.11e2 / 0.8e1 * t404 * t868 * t7640 - 0.9e1 / 0.16e2 * t1431 * t485 * t788 - 0.3e1 / 0.4e1 * t141 * t7497 * t1416 - 0.9e1 / 0.4e1 * t7650 - 0.3e1 / 0.4e1 * t141 * t1842 * t88 * t419 - 0.27e2 / 0.8e1 * t7656 - 0.9e1 / 0.4e1 * t141 * t7658 * t1496 + t7663 - 0.9e1 / 0.16e2 * t7664 - 0.9e1 / 0.8e1 * t7666 - t141 * t7669 * t28 * t92 / 0.4e1;
8683   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8684     v4rho3lapl[0] = t7382 + t7423 + t7466 + t7504 + t7546 + t7583 + t7628 + t7674;
8685 
8686   t7677 = t1017 * t1854;
8687   t7679 = t1022 * t501;
8688   t7681 = t312 * t1857;
8689   t7684 = 0.3e1 / 0.32e2 * t1081 * t169;
8690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8691     v4rho3lapl[1] = -0.27e2 / 0.32e2 * t7677 - 0.27e2 / 0.32e2 * t7679 - 0.27e2 / 0.16e2 * t7681 + t7684 + 0.3e1 / 0.32e2 * t6515 * t168 * t4847 - 0.9e1 / 0.16e2 * t1892 * t4745 - 0.3e1 / 0.8e1 * t434 * t168 * t4877;
8692 
8693   t7695 = t2563 * t107;
8694   t7696 = t1517 * t7695;
8695   t7699 = t1834 * t2;
8696   t7700 = t1517 * t7699;
8697   t7705 = t1577 * t1826;
8698   t7717 = t139 * t6442 * t160;
8699   t7720 = t1577 * t1868;
8700   t7723 = t1502 * t7695;
8701   t7726 = t2577 * t7695;
8702   t7732 = 0.9e1 / 0.8e1 * t7351 * t1566;
8703   t7736 = 0.9e1 / 0.8e1 * t7351 * t1571;
8704   t7739 = -0.9e1 / 0.8e1 * t1827 * t6576 + 0.9e1 / 0.16e2 * t6176 * t7696 - 0.3e1 / 0.8e1 * t6538 * t7700 + 0.9e1 / 0.8e1 * t1827 * t6543 - 0.3e1 / 0.4e1 * t7705 * t6546 - 0.9e1 / 0.8e1 * t1827 * t6551 + 0.3e1 / 0.4e1 * t7705 * t6554 - 0.3e1 / 0.4e1 * t1827 * t6557 + 0.3e1 / 0.4e1 * t7705 * t6531 + 0.3e1 / 0.32e2 * t7717 * t4755 - 0.3e1 / 0.8e1 * t7720 * t4713 - 0.9e1 / 0.16e2 * t6176 * t7723 + 0.9e1 / 0.16e2 * t6176 * t7726 + 0.3e1 / 0.2e1 * t1827 * t6573 - t7732 - 0.3e1 / 0.4e1 * t7402 * t1566 + t7736 + 0.3e1 / 0.4e1 * t7402 * t1571;
8705   t7743 = 0.9e1 / 0.8e1 * t7351 * t1574;
8706   t7745 = 0.9e1 / 0.16e2 * t4174 * t1873;
8707   t7756 = t7414 * t107;
8708   t7757 = t1517 * t7756;
8709   t7773 = 0.9e1 / 0.16e2 * t6122 * t1868 * t1072;
8710   t7777 = -0.3e1 / 0.8e1 * t1827 * t6584 + t7743 - t7745 - 0.3e1 / 0.8e1 * t139 * t1430 * t484 * t1072 - 0.3e1 / 0.16e2 * t1869 * t4749 - 0.3e1 / 0.16e2 * t6230 * t1873 - 0.3e1 / 0.16e2 * t6234 * t1873 - 0.3e1 / 0.8e1 * t1516 * t7757 + 0.9e1 / 0.8e1 * t7352 - 0.9e1 / 0.8e1 * t7358 + 0.9e1 / 0.8e1 * t7364 + 0.3e1 / 0.8e1 * t1827 * t4740 + 0.3e1 / 0.4e1 * t7402 * t1574 - 0.3e1 / 0.8e1 * t1827 * t4729 + 0.3e1 / 0.8e1 * t1827 * t4720 - t7773 - 0.9e1 / 0.16e2 * t7380 + 0.3e1 / 0.8e1 * t1869 * t6622;
8711   t7779 = t160 * t107;
8712   t7780 = t7779 * t67;
8713   t7781 = t4209 * t7780;
8714   t7791 = t792 * t504;
8715   t7794 = 0.9e1 / 0.8e1 * t196 * t1876;
8716   t7809 = -0.3e1 / 0.16e2 * t6208 * t7781 + 0.3e1 / 0.8e1 * t1869 * t6632 - 0.3e1 / 0.8e1 * t1869 * t6636 - 0.3e1 / 0.4e1 * t1578 * t485 * t1013 - 0.9e1 / 0.32e2 * t7791 - t7794 - 0.3e1 / 0.8e1 * t399 * t1843 * t287 - 0.9e1 / 0.16e2 * t7472 - 0.3e1 / 0.8e1 * t7474 + 0.3e1 / 0.4e1 * t7480 - 0.3e1 / 0.8e1 * t7485 + 0.3e1 / 0.8e1 * t7487 + 0.3e1 / 0.8e1 * t7489 - 0.3e1 / 0.16e2 * t7491 - 0.3e1 / 0.16e2 * t7495 - 0.9e1 / 0.16e2 * t7530 - 0.9e1 / 0.16e2 * t7532 + 0.9e1 / 0.16e2 * t7534;
8717   t7829 = -0.9e1 / 0.32e2 * t7539 - 0.3e1 / 0.8e1 * t7544 - 0.3e1 / 0.8e1 * t7550 + 0.9e1 / 0.8e1 * t7552 - 0.3e1 / 0.4e1 * t7554 + 0.9e1 / 0.16e2 * t7558 + 0.3e1 / 0.8e1 * t7563 - 0.9e1 / 0.8e1 * t7565 + 0.3e1 / 0.2e1 * t7567 - 0.9e1 / 0.8e1 * t7571 + 0.3e1 / 0.4e1 * t7577 + 0.3e1 / 0.8e1 * t7626 - 0.3e1 / 0.16e2 * t7629 - 0.3e1 / 0.4e1 * t7650 - 0.9e1 / 0.8e1 * t7656 + t7663 - 0.3e1 / 0.8e1 * t7664 - 0.3e1 / 0.8e1 * t7666 - 0.3e1 / 0.8e1 * t1578 * t162;
8718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8719     v4rho3lapl[2] = t7739 + t7777 + t7809 + t7829;
8720 
8721   t7833 = 0.9e1 / 0.16e2 * t6122 * t1891 * t1162;
8722   t7837 = t139 * t6514 * t167;
8723   t7840 = t1900 * t263;
8724   t7841 = t1598 * t7840;
8725   t7850 = t6122 * t1912;
8726   t7852 = 0.9e1 / 0.8e1 * t7850 * t1613;
8727   t7856 = 0.9e1 / 0.8e1 * t7850 * t1621;
8728   t7860 = 0.9e1 / 0.8e1 * t7850 * t1626;
8729   t7863 = t1577 * t1891;
8730   t7867 = 0.9e1 / 0.16e2 * t5411 * t1902;
8731   t7868 = -t7833 + 0.3e1 / 0.16e2 * t1892 * t6724 + 0.3e1 / 0.32e2 * t7837 * t5059 - 0.3e1 / 0.32e2 * t6684 * t7841 - 0.3e1 / 0.16e2 * t1892 * t6689 + 0.3e1 / 0.16e2 * t1892 * t6693 + 0.3e1 / 0.8e1 * t1913 * t6700 - t7852 - 0.3e1 / 0.8e1 * t1913 * t6709 + t7856 + 0.3e1 / 0.8e1 * t1913 * t6732 + t7860 - 0.3e1 / 0.16e2 * t1892 * t5088 + 0.3e1 / 0.8e1 * t7863 * t5070 - t7867;
8732   t7869 = t1900 * t270;
8733   t7870 = t1598 * t7869;
8734   t7874 = 0.9e1 / 0.8e1 * t312 * t1907;
8735   t7875 = t318 * t522;
8736   t7877 = t318 * t526;
8737   t7879 = t318 * t529;
8738   t7881 = t1191 * t512;
8739   t7886 = t1022 * t508;
8740   t7896 = t318 * t518;
8741   t7898 = -0.3e1 / 0.16e2 * t1597 * t7870 - t7874 - 0.3e1 / 0.16e2 * t7875 + 0.3e1 / 0.16e2 * t7877 + 0.3e1 / 0.16e2 * t7879 - 0.3e1 / 0.32e2 * t7881 - 0.3e1 / 0.16e2 * t1540 * t517 * t1018 - 0.9e1 / 0.32e2 * t7886 - 0.3e1 / 0.8e1 * t434 * t517 * t1031 - 0.9e1 / 0.32e2 * t7677 - 0.9e1 / 0.16e2 * t7679 - 0.9e1 / 0.16e2 * t7681 + t7684 + 0.3e1 / 0.8e1 * t1589 * t169 - 0.3e1 / 0.16e2 * t7896;
8742   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8743     v4rho3lapl[3] = t7868 + t7898;
8744 
8745   t7911 = t1834 * t326;
8746   t7912 = t1517 * t7911;
8747   t7919 = t1834 * t331;
8748   t7920 = t1517 * t7919;
8749   t7925 = 0.3e1 / 0.16e2 * t1869 * t6771 + 0.3e1 / 0.8e1 * t1827 * t6776 - 0.3e1 / 0.16e2 * t1869 * t6761 - 0.3e1 / 0.8e1 * t1827 * t6764 - 0.3e1 / 0.8e1 * t7720 * t5084 + 0.3e1 / 0.16e2 * t1869 * t6781 - 0.3e1 / 0.32e2 * t6208 * t7912 - 0.3e1 / 0.16e2 * t1869 * t5080 + 0.3e1 / 0.8e1 * t1827 * t6790 - 0.3e1 / 0.16e2 * t1516 * t7920 + 0.3e1 / 0.32e2 * t7717 * t5075 - t7732 + t7736 + t7743 - t7745;
8750   t7926 = t196 * t1928;
8751   t7928 = t787 * t1925;
8752   t7948 = -t7773 - 0.9e1 / 0.16e2 * t7926 - 0.9e1 / 0.32e2 * t7928 - 0.9e1 / 0.8e1 * t1012 * t1885 - 0.3e1 / 0.8e1 * t399 * t485 * t1147 - 0.3e1 / 0.8e1 * t399 * t161 * t5186 - 0.3e1 / 0.16e2 * t1431 * t485 * t1143 - 0.9e1 / 0.16e2 * t7791 - t7794 - 0.9e1 / 0.32e2 * t7532 - 0.3e1 / 0.16e2 * t7550 + 0.3e1 / 0.16e2 * t7563 + 0.3e1 / 0.16e2 * t7626 - 0.3e1 / 0.32e2 * t7629 + t7663 - 0.3e1 / 0.16e2 * t7664;
8753   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8754     v4rho3lapl[4] = t7925 + t7948;
8755 
8756   t7953 = t1577 * t1912;
8757   t7956 = t2663 * t97;
8758   t7957 = t1618 * t7956;
8759   t7960 = t2668 * t7956;
8760   t7973 = t360 * t516;
8761   t7974 = t7973 * t97;
8762   t7975 = t1598 * t7974;
8763   t7983 = t139 * t433 * t516;
8764   t7996 = 0.3e1 / 0.8e1 * t1913 * t6856 - 0.3e1 / 0.8e1 * t1913 * t6893 - 0.3e1 / 0.4e1 * t7953 * t6836 - 0.9e1 / 0.16e2 * t6840 * t7957 + 0.9e1 / 0.16e2 * t6840 * t7960 - 0.3e1 / 0.8e1 * t139 * t1539 * t516 * t1162 - 0.3e1 / 0.16e2 * t1892 * t5392 - 0.3e1 / 0.16e2 * t6911 * t1902 - 0.3e1 / 0.16e2 * t6915 * t1902 - 0.3e1 / 0.8e1 * t1597 * t7975 + 0.3e1 / 0.8e1 * t1913 * t6896 - 0.3e1 / 0.8e1 * t1913 * t6885 - 0.3e1 / 0.4e1 * t7983 * t1613 - 0.3e1 / 0.4e1 * t1913 * t6867 + 0.3e1 / 0.32e2 * t7837 * t5380 + 0.3e1 / 0.8e1 * t7863 * t5384 + 0.3e1 / 0.2e1 * t1913 * t6848 - 0.9e1 / 0.8e1 * t1913 * t6853;
8765   t8003 = t7850 * t1731;
8766   t8005 = t5411 * t2011;
8767   t8007 = t7850 * t1725;
8768   t8009 = t7850 * t1728;
8769   t8015 = t1900 * t2;
8770   t8016 = t1598 * t8015;
8771   t8019 = t1598 * t7956;
8772   t8027 = t167 * t111 * t97;
8773   t8028 = t5896 * t8027;
8774   t8031 = 0.3e1 / 0.4e1 * t7953 * t6888 + 0.3e1 / 0.4e1 * t7983 * t1621 + 0.3e1 / 0.4e1 * t7983 * t1626 + 0.9e1 / 0.8e1 * t8003 - 0.9e1 / 0.16e2 * t8005 + 0.9e1 / 0.8e1 * t8007 - 0.9e1 / 0.8e1 * t8009 - 0.9e1 / 0.8e1 * t1913 * t6864 - 0.3e1 / 0.4e1 * t7953 * t6870 + 0.3e1 / 0.8e1 * t6873 * t8016 + 0.9e1 / 0.16e2 * t6840 * t8019 + 0.9e1 / 0.8e1 * t1913 * t6881 - t7833 - t7852 + t7856 + t7860 - t7867 + 0.3e1 / 0.8e1 * t1892 * t6922 - 0.3e1 / 0.16e2 * t6684 * t8028;
8775   t8037 = t117 * t1952;
8776   t8039 = t117 * t1931;
8777   t8041 = t117 * t1934;
8778   t8043 = t312 * t1937;
8779   t8056 = t117 * t1960;
8780   t8058 = t353 * t1993;
8781   t8060 = t117 * t1996;
8782   t8062 = t117 * t1978;
8783   t8064 = t117 * t1982;
8784   t8066 = t117 * t1986;
8785   t8068 = t1017 * t1989;
8786   t8070 = t117 * t1968;
8787   t8072 = 0.3e1 / 0.8e1 * t1892 * t6932 - 0.3e1 / 0.8e1 * t1892 * t6936 + 0.3e1 / 0.4e1 * t8037 + 0.3e1 / 0.8e1 * t8039 + 0.3e1 / 0.8e1 * t8041 - 0.9e1 / 0.8e1 * t8043 + 0.3e1 / 0.4e1 * t1589 * t517 * t1153 + 0.9e1 / 0.8e1 * t1152 * t1895 - 0.3e1 / 0.8e1 * t434 * t2019 * t313 - 0.3e1 / 0.8e1 * t434 * t168 * t5470 - 0.9e1 / 0.8e1 * t8056 + 0.9e1 / 0.16e2 * t8058 + 0.9e1 / 0.8e1 * t8060 - 0.3e1 / 0.8e1 * t8062 - 0.3e1 / 0.4e1 * t8064 - 0.3e1 / 0.4e1 * t8066 - 0.9e1 / 0.32e2 * t8068 + 0.3e1 / 0.2e1 * t8070;
8788   t8073 = t117 * t1971;
8789   t8075 = t117 * t1975;
8790   t8077 = t117 * t1956;
8791   t8079 = t353 * t1960;
8792   t8081 = t353 * t1964;
8793   t8083 = t312 * t1940;
8794   t8085 = t1329 * t512;
8795   t8087 = t353 * t1945;
8796   t8089 = t353 * t1949;
8797   t8098 = t117 * t2020;
8798   t8100 = -0.9e1 / 0.8e1 * t8073 + 0.3e1 / 0.4e1 * t8075 - 0.3e1 / 0.8e1 * t8077 - 0.9e1 / 0.16e2 * t8079 + 0.9e1 / 0.16e2 * t8081 - 0.9e1 / 0.16e2 * t8083 - 0.3e1 / 0.16e2 * t8085 - 0.3e1 / 0.16e2 * t8087 - 0.3e1 / 0.8e1 * t8089 - t7874 - 0.3e1 / 0.8e1 * t7875 + 0.3e1 / 0.8e1 * t7877 + 0.3e1 / 0.8e1 * t7879 - 0.3e1 / 0.16e2 * t7881 - 0.9e1 / 0.16e2 * t7886 - 0.9e1 / 0.32e2 * t7679 + t7684 - 0.3e1 / 0.8e1 * t7896 - 0.3e1 / 0.8e1 * t8098;
8799   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8800     v4rho3lapl[5] = t7996 + t8031 + t8072 + t8100;
8801 
8802   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8803     v4rho3lapl[6] = -0.27e2 / 0.32e2 * t7791 - 0.27e2 / 0.32e2 * t7928 - 0.27e2 / 0.16e2 * t7926 + t7663 + 0.3e1 / 0.32e2 * t6443 * t161 * t5517 - 0.9e1 / 0.16e2 * t1869 * t5396 - 0.3e1 / 0.8e1 * t399 * t161 * t5506;
8804 
8805   t8141 = t7973 * t111;
8806   t8142 = t1598 * t8141;
8807   t8145 = 0.9e1 / 0.2e1 * t1913 * t7038 - 0.27e2 / 0.8e1 * t1913 * t7041 - 0.9e1 / 0.8e1 * t1913 * t7054 + 0.3e1 * t2673 * t7124 - 0.9e1 / 0.4e1 * t2673 * t7051 + 0.9e1 / 0.4e1 * t7983 * t1725 + 0.9e1 / 0.8e1 * t1913 * t7065 - 0.9e1 / 0.8e1 * t139 * t445 * t375 * t2665 + 0.9e1 / 0.4e1 * t2673 * t7107 - 0.9e1 / 0.4e1 * t7983 * t1728 - 0.9e1 / 0.8e1 * t1913 * t7116 - 0.3e1 / 0.4e1 * t2673 * t7058 + 0.9e1 / 0.4e1 * t7983 * t1731 - 0.9e1 / 0.8e1 * t1597 * t8142;
8808   t8146 = t1900 * t344;
8809   t8147 = t1598 * t8146;
8810   t8158 = t2663 * t375;
8811   t8159 = t2668 * t8158;
8812   t8166 = t1598 * t8158;
8813   t8177 = t2663 * t111;
8814   t8178 = t2668 * t8177;
8815   t8181 = t1618 * t8177;
8816   t8184 = -0.9e1 / 0.16e2 * t1597 * t8147 - 0.9e1 / 0.16e2 * t6911 * t2011 - 0.9e1 / 0.16e2 * t6915 * t2011 + 0.9e1 / 0.8e1 * t1913 * t5698 - 0.9e1 / 0.4e1 * t2673 * t7133 + 0.9e1 / 0.8e1 * t7079 * t8159 + 0.9e1 / 0.8e1 * t1913 * t5701 - 0.3e1 / 0.2e1 * t2673 * t7136 + 0.9e1 / 0.8e1 * t7079 * t8166 - 0.27e2 / 0.8e1 * t1913 * t7035 - 0.9e1 / 0.16e2 * t1892 * t7044 + 0.27e2 / 0.8e1 * t1913 * t7015 - 0.9e1 / 0.8e1 * t1913 * t5707 + 0.27e2 / 0.16e2 * t6840 * t8178 - 0.27e2 / 0.16e2 * t6840 * t8181;
8817   t8194 = t1900 * t335;
8818   t8195 = t1598 * t8194;
8819   t8198 = t1598 * t8177;
8820   t8207 = t516 * t354;
8821   t8211 = t167 * t1287;
8822   t8218 = t525 * t7276;
8823   t8221 = -0.9e1 / 0.16e2 * t1892 * t5693 + 0.9e1 / 0.8e1 * t1913 * t7084 + 0.9e1 / 0.16e2 * t1892 * t7032 + 0.9e1 / 0.16e2 * t1892 * t7020 - 0.9e1 / 0.32e2 * t6684 * t8195 + 0.27e2 / 0.16e2 * t6840 * t8198 - 0.9e1 / 0.4e1 * t1913 * t7025 + 0.27e2 / 0.8e1 * t8003 - 0.27e2 / 0.16e2 * t8005 + 0.27e2 / 0.8e1 * t8007 - 0.27e2 / 0.8e1 * t8009 + 0.9e1 / 0.4e1 * t150 * t8207 * t1707 - t150 * t8211 * t7233 / 0.4e1 - 0.11e2 / 0.4e1 * t150 * t8211 * t7288 + 0.11e2 / 0.4e1 * t150 * t8218;
8824   t8222 = t1291 * t516;
8825   t8223 = t356 * t8222;
8826   t8226 = t1299 * t516;
8827   t8232 = t6000 * t167;
8828   t8233 = t1288 * t8232;
8829   t8236 = t5988 * t167;
8830   t8237 = t1296 * t8236;
8831   t8240 = t6058 * t167;
8832   t8250 = t167 * t6054;
8833   t8261 = t361 * t2018;
8834   t8271 = -0.9e1 / 0.8e1 * t446 * t8223 + 0.9e1 / 0.8e1 * t446 * t1674 * t8226 - 0.9e1 / 0.4e1 * t150 * t8223 - 0.7e1 / 0.8e1 * t446 * t8233 + 0.11e2 / 0.4e1 * t446 * t8237 - 0.15e2 / 0.8e1 * t446 * t7161 * t8240 + 0.11e2 / 0.4e1 * t150 * t8211 * t7167 - 0.25e2 / 0.4e1 * t150 * t8211 * t7143 + 0.15e2 / 0.4e1 * t150 * t8250 * t7148 - 0.5e1 / 0.8e1 * t1662 * t1960 + 0.5e1 / 0.8e1 * t1662 * t1964 - 0.3e1 / 0.8e1 * t446 * t1260 * t1948 - 0.3e1 / 0.8e1 * t446 * t447 * t8261 + 0.3e1 / 0.4e1 * t150 * t2019 * t470 + 0.3e1 / 0.4e1 * t150 * t1974 * t1651;
8835   t8299 = t1355 * t516;
8836   t8314 = t150 * t525 * t7246 / 0.4e1 + 0.3e1 / 0.4e1 * t150 * t517 * t1636 + t150 * t168 * t7264 / 0.4e1 - 0.9e1 / 0.8e1 * t434 * t2019 * t340 - 0.9e1 / 0.8e1 * t434 * t517 * t1252 - 0.3e1 / 0.8e1 * t434 * t168 * t5830 - 0.3e1 / 0.2e1 * t150 * t517 * t1713 + 0.9e1 / 0.4e1 * t446 * t8218 + 0.5e1 / 0.8e1 * t1662 * t1993 + 0.9e1 / 0.8e1 * t446 * t356 * t8299 - 0.9e1 / 0.16e2 * t1540 * t517 * t1245 + 0.3e1 / 0.2e1 * t150 * t168 * t7280 - 0.9e1 / 0.4e1 * t446 * t1296 * t8232 - 0.6e1 * t150 * t8233;
8837   t8317 = t5889 * t167;
8838   t8324 = t516 * t1295;
8839   t8328 = t2018 * t355;
8840   t8358 = 0.9e1 / 0.2e1 * t150 * t8237 - 0.11e2 / 0.8e1 * t446 * t1288 * t8317 + 0.3e1 * t150 * t8207 * t1681 - 0.9e1 / 0.4e1 * t150 * t8324 * t1685 + 0.3e1 / 0.4e1 * t150 * t8328 * t466 - 0.3e1 / 0.4e1 * t150 * t8207 * t1690 - 0.3e1 / 0.4e1 * t150 * t2018 * t128 * t461 - 0.3e1 / 0.4e1 * t150 * t516 * t375 * t461 - t150 * t167 * t1342 * t461 / 0.4e1 - t7257 * t512 / 0.8e1 - t1662 * t1945 / 0.4e1 - 0.3e1 / 0.8e1 * t1662 * t1949 - t446 * t5792 * t511 / 0.8e1 + 0.9e1 / 0.4e1 * t8037 + 0.9e1 / 0.8e1 * t8039;
8841   t8379 = 0.9e1 / 0.8e1 * t8041 - 0.27e2 / 0.8e1 * t8043 + 0.3e1 / 0.32e2 * t6515 * t168 * t5795 + 0.3e1 / 0.2e1 * t150 * t8211 * t7304 - 0.27e2 / 0.8e1 * t8056 + 0.27e2 / 0.16e2 * t8058 + 0.27e2 / 0.8e1 * t8060 - 0.9e1 / 0.8e1 * t8062 - 0.9e1 / 0.4e1 * t8064 - 0.9e1 / 0.4e1 * t8066 - 0.27e2 / 0.32e2 * t8068 + 0.9e1 / 0.2e1 * t8070 - 0.27e2 / 0.8e1 * t8073 + 0.9e1 / 0.4e1 * t8075 - 0.9e1 / 0.8e1 * t8077;
8842   t8394 = my_piecewise3(t50, -0.6e1 * t1739, 0);
8843   t8399 = -0.27e2 / 0.16e2 * t8079 + 0.27e2 / 0.16e2 * t8081 - 0.27e2 / 0.16e2 * t8083 - 0.9e1 / 0.16e2 * t8085 - 0.9e1 / 0.16e2 * t8087 - 0.9e1 / 0.8e1 * t8089 - 0.9e1 / 0.16e2 * t7875 + 0.9e1 / 0.16e2 * t7877 + 0.9e1 / 0.16e2 * t7879 - 0.9e1 / 0.32e2 * t7881 - 0.27e2 / 0.32e2 * t7886 + t7684 - 0.9e1 / 0.16e2 * t7896 - 0.9e1 / 0.8e1 * t8098 - t150 * t8394 * t53 * t132 / 0.4e1;
8844   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
8845     v4rho3lapl[7] = t8145 + t8184 + t8221 + t8271 + t8314 + t8358 + t8379 + t8399;
8846 
8847   t8403 = t62 * t76 * t172;
8848   t8404 = t8403 * t1505;
8849   t8411 = t139 * t398 * t542;
8850   t8434 = 0.27e2 / 0.8e1 * t8404 + 0.3e1 * t2747 * t6154 - 0.9e1 / 0.4e1 * t2747 * t6159 + 0.9e1 / 0.4e1 * t8411 * t1505 + 0.9e1 / 0.8e1 * t2104 * t6169 + 0.9e1 / 0.2e1 * t2104 * t6146 - 0.27e2 / 0.8e1 * t2104 * t6149 + 0.9e1 / 0.16e2 * t2146 * t6128 - 0.27e2 / 0.8e1 * t2104 * t6133 - 0.9e1 / 0.16e2 * t2146 * t6138 + 0.27e2 / 0.8e1 * t2104 * t6141 + 0.9e1 / 0.4e1 * t2747 * t6249 - 0.9e1 / 0.4e1 * t8411 * t1508 - 0.9e1 / 0.8e1 * t2104 * t6194;
8851   t8437 = t8403 * t1508;
8852   t8445 = t8403 * t1511;
8853   t8447 = t227 * t542;
8854   t8448 = t8447 * t67;
8855   t8449 = t1517 * t8448;
8856   t8457 = t1517 * t2107 * t204;
8857   t8468 = t2756 * t242;
8858   t8469 = t2577 * t8468;
8859   t8472 = -0.3e1 / 0.4e1 * t2747 * t6198 - 0.27e2 / 0.8e1 * t8437 - 0.9e1 / 0.8e1 * t7375 * t2763 + 0.9e1 / 0.4e1 * t8411 * t1511 - 0.9e1 / 0.8e1 * t2104 * t4163 + 0.27e2 / 0.8e1 * t8445 - 0.9e1 / 0.8e1 * t1516 * t8449 - 0.9e1 / 0.16e2 * t2146 * t4158 + 0.9e1 / 0.8e1 * t2104 * t6218 - 0.9e1 / 0.16e2 * t1516 * t8457 - 0.9e1 / 0.16e2 * t6230 * t2109 - 0.9e1 / 0.16e2 * t6234 * t2109 + 0.9e1 / 0.8e1 * t2104 * t6172 - 0.9e1 / 0.4e1 * t2747 * t6213 + 0.9e1 / 0.8e1 * t6185 * t8469;
8860   t8478 = t1517 * t8468;
8861   t8481 = t4174 * t2109;
8862   t8485 = t2756 * t67;
8863   t8486 = t2577 * t8485;
8864   t8489 = t1502 * t8485;
8865   t8495 = t1517 * t2107 * t189;
8866   t8498 = t1517 * t8485;
8867   t8503 = t220 * t2057;
8868   t8505 = t220 * t2098;
8869   t8511 = 0.9e1 / 0.8e1 * t2104 * t4170 - 0.3e1 / 0.2e1 * t2747 * t6255 + 0.9e1 / 0.8e1 * t6185 * t8478 - 0.27e2 / 0.16e2 * t8481 - 0.9e1 / 0.8e1 * t2104 * t6117 + 0.27e2 / 0.16e2 * t6176 * t8486 - 0.27e2 / 0.16e2 * t6176 * t8489 + 0.9e1 / 0.16e2 * t2146 * t6258 - 0.9e1 / 0.32e2 * t6208 * t8495 + 0.27e2 / 0.16e2 * t6176 * t8498 - 0.9e1 / 0.4e1 * t2104 * t6252 - 0.27e2 / 0.16e2 * t8503 + 0.27e2 / 0.16e2 * t8505 - 0.5e1 / 0.8e1 * t1462 * t2057 + 0.5e1 / 0.8e1 * t1462 * t2098;
8870   t8530 = t862 * t538;
8871   t8532 = t220 * t2077;
8872   t8534 = t213 * t548;
8873   t8536 = t172 * t867;
8874   t8540 = t542 * t221;
8875   t8544 = t213 * t552;
8876   t8546 = t77 * t2054;
8877   t8551 = t551 * t7510;
8878   t8554 = -t404 * t4577 * t537 / 0.8e1 - 0.3e1 / 0.8e1 * t404 * t810 * t2080 + 0.3e1 / 0.4e1 * t141 * t2028 * t1447 + t141 * t551 * t6473 / 0.4e1 + 0.3e1 / 0.4e1 * t141 * t543 * t1451 + t141 * t173 * t6370 / 0.4e1 - 0.9e1 / 0.16e2 * t8530 - 0.9e1 / 0.16e2 * t8532 - 0.9e1 / 0.16e2 * t8534 - 0.11e2 / 0.4e1 * t141 * t8536 * t6312 + 0.9e1 / 0.4e1 * t141 * t8540 * t1439 + 0.9e1 / 0.16e2 * t8544 + 0.27e2 / 0.8e1 * t8546 - t141 * t8536 * t6308 / 0.4e1 + 0.11e2 / 0.4e1 * t141 * t8551;
8879   t8557 = t871 * t542;
8880   t8558 = t223 * t8557;
8881   t8561 = t881 * t542;
8882   t8567 = t77 * t2057;
8883   t8569 = t4329 * t172;
8884   t8570 = t868 * t8569;
8885   t8573 = t4339 * t172;
8886   t8574 = t878 * t8573;
8887   t8577 = t4369 * t172;
8888   t8587 = t172 * t4365;
8889   t8593 = t77 * t2060;
8890   t8595 = t77 * t2063;
8891   t8597 = t844 * t538;
8892   t8599 = -0.9e1 / 0.8e1 * t404 * t8558 + 0.9e1 / 0.8e1 * t404 * t1486 * t8561 - 0.9e1 / 0.4e1 * t141 * t8558 - 0.27e2 / 0.8e1 * t8567 - 0.7e1 / 0.8e1 * t404 * t8570 + 0.11e2 / 0.4e1 * t404 * t8574 - 0.15e2 / 0.8e1 * t404 * t6283 * t8577 + 0.11e2 / 0.4e1 * t141 * t8536 * t6289 - 0.25e2 / 0.4e1 * t141 * t8536 * t6294 + 0.15e2 / 0.4e1 * t141 * t8587 * t6299 + 0.5e1 / 0.8e1 * t1462 * t2051 + 0.9e1 / 0.8e1 * t8593 + 0.9e1 / 0.8e1 * t8595 - 0.9e1 / 0.32e2 * t8597;
8893   t8600 = t220 * t2051;
8894   t8602 = t196 * t2068;
8895   t8607 = t228 * t2121;
8896   t8622 = t220 * t2081;
8897   t8642 = 0.27e2 / 0.16e2 * t8600 - 0.27e2 / 0.8e1 * t8602 - 0.9e1 / 0.16e2 * t1431 * t543 * t788 - 0.3e1 / 0.8e1 * t404 * t405 * t8607 + 0.3e1 / 0.4e1 * t141 * t2122 * t428 - 0.3e1 / 0.4e1 * t141 * t542 * t242 * t419 - t141 * t172 * t909 * t419 / 0.4e1 - 0.9e1 / 0.8e1 * t8622 - 0.9e1 / 0.8e1 * t399 * t2122 * t197 - 0.9e1 / 0.8e1 * t399 * t543 * t798 - 0.3e1 / 0.8e1 * t399 * t173 * t4573 - t6459 * t538 / 0.8e1 - t1462 * t2077 / 0.4e1 - 0.3e1 / 0.8e1 * t1462 * t2081 - 0.3e1 / 0.4e1 * t141 * t8540 * t1416;
8898   t8644 = t77 * t2041;
8899   t8646 = t213 * t555;
8900   t8657 = t77 * t2025;
8901   t8661 = t77 * t2029;
8902   t8663 = t77 * t2033;
8903   t8673 = t77 * t2101;
8904   t8677 = t918 * t542;
8905   t8681 = -0.9e1 / 0.4e1 * t8644 + 0.9e1 / 0.16e2 * t8646 + 0.3e1 * t141 * t8540 * t1492 + 0.3e1 / 0.32e2 * t6443 * t173 * t4548 + 0.3e1 / 0.2e1 * t141 * t173 * t6436 - 0.27e2 / 0.8e1 * t8657 + 0.9e1 / 0.2e1 * t141 * t8574 + 0.9e1 / 0.4e1 * t8661 - 0.9e1 / 0.8e1 * t8663 + 0.3e1 / 0.2e1 * t141 * t8536 * t6355 + 0.9e1 / 0.4e1 * t404 * t8551 - 0.9e1 / 0.4e1 * t404 * t878 * t8569 + 0.9e1 / 0.2e1 * t8673 - 0.6e1 * t141 * t8570 + 0.9e1 / 0.8e1 * t404 * t223 * t8677;
8906   t8682 = t77 * t2084;
8907   t8687 = t77 * t2088;
8908   t8689 = t787 * t2047;
8909   t8691 = t792 * t534;
8910   t8693 = t77 * t2044;
8911   t8695 = t196 * t2071;
8912   t8701 = t4286 * t172;
8913   t8705 = t542 * t877;
8914   t8709 = t2121 * t222;
8915   t8713 = t213 * t544;
8916   t8715 = t77 * t2123;
8917   t8718 = my_piecewise3(t24, 0.24e2 * t1525, 0);
8918   t8724 = 0.3e1 / 0.32e2 * t838 * t174;
8919   t8725 = 0.9e1 / 0.4e1 * t8682 - 0.3e1 / 0.2e1 * t141 * t543 * t1426 - 0.9e1 / 0.8e1 * t8687 - 0.27e2 / 0.32e2 * t8689 - 0.27e2 / 0.32e2 * t8691 - 0.9e1 / 0.4e1 * t8693 - 0.27e2 / 0.16e2 * t8695 - 0.3e1 / 0.4e1 * t141 * t2121 * t88 * t419 - 0.11e2 / 0.8e1 * t404 * t868 * t8701 - 0.9e1 / 0.4e1 * t141 * t8705 * t1496 + 0.3e1 / 0.4e1 * t141 * t8709 * t424 - 0.9e1 / 0.16e2 * t8713 - 0.9e1 / 0.8e1 * t8715 - t141 * t8718 * t28 * t92 / 0.4e1 + t8724;
8920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8921     v4rho3tau[0] = t8434 + t8472 + t8511 + t8554 + t8599 + t8642 + t8681 + t8725;
8922 
8923   t8728 = t1017 * t2131;
8924   t8730 = t1022 * t559;
8925   t8732 = t312 * t2134;
8926   t8735 = 0.3e1 / 0.32e2 * t1081 * t179;
8927   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8928     v4rho3tau[1] = -0.27e2 / 0.32e2 * t8728 - 0.27e2 / 0.32e2 * t8730 - 0.27e2 / 0.16e2 * t8732 + t8735 + 0.3e1 / 0.32e2 * t6515 * t178 * t4847 - 0.9e1 / 0.16e2 * t2169 * t4745 - 0.3e1 / 0.8e1 * t434 * t178 * t4877;
8929 
8930   t8745 = 0.9e1 / 0.8e1 * t8403 * t1566;
8931   t8749 = 0.9e1 / 0.8e1 * t8403 * t1571;
8932   t8754 = t2756 * t107;
8933   t8755 = t1517 * t8754;
8934   t8759 = t1517 * t2107 * t2;
8935   t8764 = t1577 * t2103;
8936   t8776 = t139 * t6442 * t172;
8937   t8779 = t1577 * t2145;
8938   t8783 = 0.9e1 / 0.16e2 * t4174 * t2150;
8939   t8790 = -t8745 - 0.3e1 / 0.4e1 * t8411 * t1566 + t8749 + 0.3e1 / 0.4e1 * t8411 * t1571 - 0.3e1 / 0.8e1 * t2104 * t6584 + 0.9e1 / 0.16e2 * t6176 * t8755 - 0.3e1 / 0.8e1 * t6538 * t8759 + 0.9e1 / 0.8e1 * t2104 * t6543 - 0.3e1 / 0.4e1 * t8764 * t6546 - 0.9e1 / 0.8e1 * t2104 * t6551 + 0.3e1 / 0.4e1 * t8764 * t6554 - 0.3e1 / 0.4e1 * t2104 * t6557 + 0.3e1 / 0.4e1 * t8764 * t6531 + 0.3e1 / 0.32e2 * t8776 * t4755 - 0.3e1 / 0.8e1 * t8779 * t4713 - t8783 - 0.3e1 / 0.8e1 * t139 * t1430 * t542 * t1072 - 0.3e1 / 0.16e2 * t2146 * t4749;
8940   t8795 = t8447 * t107;
8941   t8796 = t1517 * t8795;
8942   t8801 = t1502 * t8754;
8943   t8804 = t2577 * t8754;
8944   t8819 = 0.9e1 / 0.16e2 * t6122 * t2145 * t1072;
8945   t8821 = 0.9e1 / 0.8e1 * t8403 * t1574;
8946   t8828 = -0.3e1 / 0.16e2 * t6230 * t2150 - 0.3e1 / 0.16e2 * t6234 * t2150 - 0.3e1 / 0.8e1 * t1516 * t8796 + 0.3e1 / 0.4e1 * t8411 * t1574 - 0.9e1 / 0.16e2 * t6176 * t8801 + 0.9e1 / 0.16e2 * t6176 * t8804 + 0.3e1 / 0.2e1 * t2104 * t6573 - 0.9e1 / 0.8e1 * t2104 * t6576 - 0.3e1 / 0.8e1 * t2104 * t4729 + 0.3e1 / 0.8e1 * t2104 * t4720 + 0.3e1 / 0.8e1 * t2104 * t4740 - t8819 + t8821 + 0.9e1 / 0.8e1 * t8404 - 0.9e1 / 0.8e1 * t8437 + 0.9e1 / 0.8e1 * t8445 - 0.9e1 / 0.16e2 * t8481 - 0.3e1 / 0.8e1 * t2146 * t6636;
8947   t8832 = t172 * t107;
8948   t8834 = t4209 * t8832 * t67;
8949   t8842 = 0.9e1 / 0.8e1 * t196 * t2153;
8950   t8849 = t792 * t562;
8951   t8860 = 0.3e1 / 0.8e1 * t2146 * t6622 - 0.3e1 / 0.16e2 * t6208 * t8834 + 0.3e1 / 0.8e1 * t2146 * t6632 - 0.9e1 / 0.16e2 * t8503 + 0.9e1 / 0.16e2 * t8505 - t8842 - 0.3e1 / 0.8e1 * t399 * t2122 * t287 - 0.3e1 / 0.4e1 * t1578 * t543 * t1013 - 0.9e1 / 0.32e2 * t8849 - 0.3e1 / 0.16e2 * t8530 - 0.3e1 / 0.16e2 * t8532 - 0.3e1 / 0.8e1 * t8534 + 0.3e1 / 0.8e1 * t8544 + 0.9e1 / 0.8e1 * t8546 - 0.9e1 / 0.8e1 * t8567 + 0.3e1 / 0.8e1 * t8593 + 0.3e1 / 0.8e1 * t8595 - 0.3e1 / 0.16e2 * t8597;
8952   t8880 = 0.9e1 / 0.16e2 * t8600 - 0.9e1 / 0.8e1 * t8602 - 0.3e1 / 0.8e1 * t8622 - 0.3e1 / 0.4e1 * t8644 + 0.3e1 / 0.8e1 * t8646 - 0.9e1 / 0.8e1 * t8657 + 0.3e1 / 0.4e1 * t8661 - 0.3e1 / 0.8e1 * t8663 + 0.3e1 / 0.2e1 * t8673 + 0.3e1 / 0.4e1 * t8682 - 0.3e1 / 0.8e1 * t8687 - 0.9e1 / 0.32e2 * t8689 - 0.9e1 / 0.16e2 * t8691 - 0.3e1 / 0.4e1 * t8693 - 0.9e1 / 0.16e2 * t8695 - 0.3e1 / 0.8e1 * t8713 - 0.3e1 / 0.8e1 * t8715 + t8724 - 0.3e1 / 0.8e1 * t1578 * t174;
8953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8954     v4rho3tau[2] = t8790 + t8828 + t8860 + t8880;
8955 
8956   t8883 = t139 * t6514 * t177;
8957   t8887 = t1598 * t2177 * t263;
8958   t8894 = t6122 * t2189;
8959   t8896 = 0.9e1 / 0.8e1 * t8894 * t1626;
8960   t8898 = 0.9e1 / 0.16e2 * t5411 * t2179;
8961   t8900 = t1598 * t2177 * t270;
8962   t8904 = 0.9e1 / 0.8e1 * t8894 * t1613;
8963   t8907 = 0.9e1 / 0.16e2 * t6122 * t2168 * t1162;
8964   t8910 = t1577 * t2168;
8965   t8920 = 0.9e1 / 0.8e1 * t8894 * t1621;
8966   t8921 = 0.3e1 / 0.32e2 * t8883 * t5059 - 0.3e1 / 0.32e2 * t6684 * t8887 - 0.3e1 / 0.16e2 * t2169 * t6689 + 0.3e1 / 0.16e2 * t2169 * t6693 + t8896 - t8898 - 0.3e1 / 0.16e2 * t1597 * t8900 - t8904 - t8907 - 0.3e1 / 0.16e2 * t2169 * t5088 + 0.3e1 / 0.8e1 * t8910 * t5070 + 0.3e1 / 0.16e2 * t2169 * t6724 + 0.3e1 / 0.8e1 * t2190 * t6700 - 0.3e1 / 0.8e1 * t2190 * t6709 + t8920;
8967   t8924 = t318 * t584;
8968   t8926 = t318 * t587;
8969   t8929 = 0.9e1 / 0.8e1 * t312 * t2184;
8970   t8933 = t1191 * t570;
8971   t8938 = t318 * t580;
8972   t8940 = t1022 * t566;
8973   t8947 = t318 * t576;
8974   t8949 = 0.3e1 / 0.8e1 * t2190 * t6732 + 0.3e1 / 0.16e2 * t8924 + 0.3e1 / 0.16e2 * t8926 - t8929 - 0.3e1 / 0.8e1 * t434 * t575 * t1031 - 0.3e1 / 0.32e2 * t8933 - 0.3e1 / 0.16e2 * t1540 * t575 * t1018 - 0.3e1 / 0.16e2 * t8938 - 0.9e1 / 0.32e2 * t8940 - 0.9e1 / 0.32e2 * t8728 - 0.9e1 / 0.16e2 * t8730 - 0.9e1 / 0.16e2 * t8732 + t8735 + 0.3e1 / 0.8e1 * t1589 * t179 - 0.3e1 / 0.16e2 * t8947;
8975   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8976     v4rho3tau[3] = t8921 + t8949;
8977 
8978   t8965 = t1517 * t2107 * t331;
8979   t8973 = t1517 * t2107 * t326;
8980   t8976 = -0.3e1 / 0.8e1 * t8779 * t5084 - 0.3e1 / 0.16e2 * t2146 * t6761 - 0.3e1 / 0.8e1 * t2104 * t6764 + 0.3e1 / 0.16e2 * t2146 * t6771 + 0.3e1 / 0.8e1 * t2104 * t6776 - 0.3e1 / 0.16e2 * t2146 * t5080 + 0.3e1 / 0.8e1 * t2104 * t6790 - 0.3e1 / 0.16e2 * t1516 * t8965 + 0.3e1 / 0.32e2 * t8776 * t5075 + 0.3e1 / 0.16e2 * t2146 * t6781 - 0.3e1 / 0.32e2 * t6208 * t8973 - t8745 + t8749 - t8783 - t8819;
8981   t8979 = t787 * t2202;
8982   t8981 = t196 * t2205;
8983   t8999 = t8821 - 0.9e1 / 0.8e1 * t1012 * t2162 - 0.9e1 / 0.32e2 * t8979 - 0.9e1 / 0.16e2 * t8981 - 0.3e1 / 0.16e2 * t1431 * t543 * t1143 - 0.3e1 / 0.8e1 * t399 * t543 * t1147 - 0.3e1 / 0.8e1 * t399 * t173 * t5186 - t8842 - 0.9e1 / 0.16e2 * t8849 - 0.3e1 / 0.16e2 * t8534 + 0.3e1 / 0.16e2 * t8544 - 0.3e1 / 0.32e2 * t8597 + 0.3e1 / 0.16e2 * t8646 - 0.9e1 / 0.32e2 * t8691 - 0.3e1 / 0.16e2 * t8713 + t8724;
8984   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
8985     v4rho3tau[4] = t8976 + t8999;
8986 
8987   t9000 = t5411 * t2288;
8988   t9002 = t8894 * t1725;
8989   t9004 = t8894 * t1728;
8990   t9006 = t8894 * t1731;
8991   t9014 = t2832 * t97;
8992   t9015 = t1618 * t9014;
8993   t9028 = t360 * t574;
8994   t9029 = t9028 * t97;
8995   t9030 = t1598 * t9029;
8996   t9034 = t139 * t433 * t574;
8997   t9041 = t2668 * t9014;
8998   t9044 = t1577 * t2189;
8999   t9047 = -0.9e1 / 0.16e2 * t9000 + 0.9e1 / 0.8e1 * t9002 - 0.9e1 / 0.8e1 * t9004 + 0.9e1 / 0.8e1 * t9006 - 0.3e1 / 0.8e1 * t2190 * t6893 + 0.3e1 / 0.8e1 * t2190 * t6896 + 0.3e1 / 0.8e1 * t2190 * t6856 - 0.9e1 / 0.16e2 * t6840 * t9015 - 0.3e1 / 0.8e1 * t139 * t1539 * t574 * t1162 - 0.3e1 / 0.16e2 * t2169 * t5392 - 0.3e1 / 0.16e2 * t6911 * t2179 - 0.3e1 / 0.16e2 * t6915 * t2179 - 0.3e1 / 0.8e1 * t1597 * t9030 + 0.3e1 / 0.4e1 * t9034 * t1626 + 0.3e1 / 0.32e2 * t8883 * t5380 + 0.3e1 / 0.8e1 * t8910 * t5384 + 0.9e1 / 0.16e2 * t6840 * t9041 + 0.3e1 / 0.4e1 * t9044 * t6888;
9000   t9061 = t1598 * t2177 * t2;
9001   t9064 = t1598 * t9014;
9002   t9077 = t177 * t111;
9003   t9079 = t5896 * t9077 * t97;
9004   t9082 = 0.3e1 / 0.4e1 * t9034 * t1621 - 0.3e1 / 0.8e1 * t2190 * t6885 + 0.3e1 / 0.2e1 * t2190 * t6848 - 0.9e1 / 0.8e1 * t2190 * t6853 - 0.3e1 / 0.4e1 * t9044 * t6836 - 0.3e1 / 0.4e1 * t9044 * t6870 + 0.3e1 / 0.8e1 * t6873 * t9061 + 0.9e1 / 0.16e2 * t6840 * t9064 + 0.9e1 / 0.8e1 * t2190 * t6881 - 0.9e1 / 0.8e1 * t2190 * t6864 - 0.3e1 / 0.4e1 * t9034 * t1613 - 0.3e1 / 0.4e1 * t2190 * t6867 + t8896 - t8898 - t8904 - t8907 + t8920 + 0.3e1 / 0.8e1 * t2169 * t6922 - 0.3e1 / 0.16e2 * t6684 * t9079;
9005   t9088 = t312 * t2272;
9006   t9090 = t312 * t2275;
9007   t9092 = t1329 * t570;
9008   t9094 = t353 * t2280;
9009   t9096 = t353 * t2209;
9010   t9098 = t117 * t2259;
9011   t9100 = t117 * t2263;
9012   t9102 = t117 * t2266;
9013   t9104 = t117 * t2269;
9014   t9117 = t353 * t2245;
9015   t9119 = t117 * t2248;
9016   t9121 = t117 * t2220;
9017   t9123 = 0.3e1 / 0.8e1 * t2169 * t6932 - 0.3e1 / 0.8e1 * t2169 * t6936 - 0.9e1 / 0.8e1 * t9088 - 0.9e1 / 0.16e2 * t9090 - 0.3e1 / 0.16e2 * t9092 - 0.3e1 / 0.16e2 * t9094 - 0.3e1 / 0.8e1 * t9096 + 0.3e1 / 0.4e1 * t9098 - 0.3e1 / 0.8e1 * t9100 + 0.3e1 / 0.8e1 * t9102 + 0.3e1 / 0.8e1 * t9104 + 0.3e1 / 0.4e1 * t1589 * t575 * t1153 - 0.3e1 / 0.8e1 * t434 * t178 * t5470 + 0.9e1 / 0.8e1 * t1152 * t2172 - 0.3e1 / 0.8e1 * t434 * t2296 * t313 + 0.9e1 / 0.16e2 * t9117 + 0.9e1 / 0.8e1 * t9119 - 0.9e1 / 0.8e1 * t9121;
9018   t9124 = t117 * t2235;
9019   t9126 = t117 * t2238;
9020   t9128 = t1017 * t2241;
9021   t9130 = t353 * t2224;
9022   t9132 = t117 * t2228;
9023   t9134 = t117 * t2231;
9024   t9136 = t117 * t2213;
9025   t9138 = t117 * t2216;
9026   t9140 = t353 * t2220;
9027   t9149 = t117 * t2297;
9028   t9151 = -0.3e1 / 0.4e1 * t9124 - 0.3e1 / 0.4e1 * t9126 - 0.9e1 / 0.32e2 * t9128 + 0.9e1 / 0.16e2 * t9130 + 0.3e1 / 0.4e1 * t9132 - 0.3e1 / 0.8e1 * t9134 + 0.3e1 / 0.2e1 * t9136 - 0.9e1 / 0.8e1 * t9138 - 0.9e1 / 0.16e2 * t9140 + 0.3e1 / 0.8e1 * t8924 + 0.3e1 / 0.8e1 * t8926 - t8929 - 0.3e1 / 0.16e2 * t8933 - 0.3e1 / 0.8e1 * t8938 - 0.9e1 / 0.16e2 * t8940 - 0.9e1 / 0.32e2 * t8730 + t8735 - 0.3e1 / 0.8e1 * t8947 - 0.3e1 / 0.8e1 * t9149;
9029   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9030     v4rho3tau[5] = t9047 + t9082 + t9123 + t9151;
9031 
9032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9033     v4rho3tau[6] = -0.27e2 / 0.32e2 * t8849 - 0.27e2 / 0.32e2 * t8979 - 0.27e2 / 0.16e2 * t8981 + t8724 + 0.3e1 / 0.32e2 * t6443 * t173 * t5517 - 0.9e1 / 0.16e2 * t2146 * t5396 - 0.3e1 / 0.8e1 * t399 * t173 * t5506;
9034 
9035   t9190 = t2832 * t375;
9036   t9191 = t2668 * t9190;
9037   t9194 = -0.9e1 / 0.8e1 * t2190 * t7054 + 0.3e1 * t2841 * t7124 - 0.9e1 / 0.4e1 * t2841 * t7051 + 0.9e1 / 0.4e1 * t9034 * t1725 + 0.9e1 / 0.8e1 * t2190 * t7065 - 0.27e2 / 0.8e1 * t2190 * t7035 - 0.9e1 / 0.16e2 * t2169 * t7044 + 0.27e2 / 0.8e1 * t2190 * t7015 + 0.9e1 / 0.16e2 * t2169 * t7032 - 0.3e1 / 0.4e1 * t2841 * t7058 - 0.9e1 / 0.4e1 * t9034 * t1728 - 0.9e1 / 0.8e1 * t2190 * t7116 - 0.9e1 / 0.4e1 * t2841 * t7133 + 0.9e1 / 0.8e1 * t7079 * t9191;
9038   t9199 = t1598 * t9190;
9039   t9202 = t9028 * t111;
9040   t9203 = t1598 * t9202;
9041   t9211 = t1598 * t2177 * t344;
9042   t9224 = t1618 * t9190;
9043   t9231 = 0.9e1 / 0.8e1 * t2190 * t5701 - 0.3e1 / 0.2e1 * t2841 * t7136 + 0.9e1 / 0.8e1 * t7079 * t9199 - 0.9e1 / 0.8e1 * t1597 * t9203 - 0.9e1 / 0.16e2 * t2169 * t5693 + 0.9e1 / 0.8e1 * t2190 * t7084 - 0.9e1 / 0.16e2 * t1597 * t9211 - 0.9e1 / 0.16e2 * t6911 * t2288 - 0.9e1 / 0.16e2 * t6915 * t2288 + 0.9e1 / 0.4e1 * t9034 * t1731 - 0.9e1 / 0.8e1 * t2190 * t5707 + 0.9e1 / 0.4e1 * t2841 * t7107 - 0.9e1 / 0.8e1 * t7079 * t9224 + 0.9e1 / 0.8e1 * t2190 * t5698 + 0.9e1 / 0.16e2 * t2169 * t7020;
9044   t9234 = t1598 * t2177 * t335;
9045   t9237 = t2832 * t111;
9046   t9238 = t1598 * t9237;
9047   t9243 = t2668 * t9237;
9048   t9246 = t1618 * t9237;
9049   t9257 = t574 * t354;
9050   t9261 = t177 * t1287;
9051   t9268 = t177 * t6054;
9052   t9272 = -0.9e1 / 0.32e2 * t6684 * t9234 + 0.27e2 / 0.16e2 * t6840 * t9238 - 0.9e1 / 0.4e1 * t2190 * t7025 + 0.27e2 / 0.16e2 * t6840 * t9243 - 0.27e2 / 0.16e2 * t6840 * t9246 + 0.9e1 / 0.2e1 * t2190 * t7038 - 0.27e2 / 0.8e1 * t2190 * t7041 - 0.27e2 / 0.16e2 * t9000 + 0.27e2 / 0.8e1 * t9002 - 0.27e2 / 0.8e1 * t9004 + 0.27e2 / 0.8e1 * t9006 + 0.9e1 / 0.4e1 * t150 * t9257 * t1707 + 0.11e2 / 0.4e1 * t150 * t9261 * t7167 - 0.25e2 / 0.4e1 * t150 * t9261 * t7143 + 0.15e2 / 0.4e1 * t150 * t9268 * t7148;
9053   t9273 = t6000 * t177;
9054   t9274 = t1288 * t9273;
9055   t9277 = t583 * t7276;
9056   t9280 = t2227 * t5766;
9057   t9289 = t1299 * t574;
9058   t9302 = t1355 * t574;
9059   t9320 = -0.7e1 / 0.8e1 * t446 * t9274 + 0.11e2 / 0.4e1 * t150 * t9277 - 0.9e1 / 0.4e1 * t150 * t9280 - 0.5e1 / 0.8e1 * t1662 * t2220 + 0.5e1 / 0.8e1 * t1662 * t2224 - 0.9e1 / 0.8e1 * t446 * t9280 + 0.9e1 / 0.8e1 * t446 * t1674 * t9289 - t150 * t9261 * t7233 / 0.4e1 - 0.11e2 / 0.4e1 * t150 * t9261 * t7288 + 0.3e1 / 0.4e1 * t150 * t575 * t1636 + 0.9e1 / 0.8e1 * t446 * t356 * t9302 - 0.3e1 / 0.4e1 * t150 * t574 * t375 * t461 - t150 * t177 * t1342 * t461 / 0.4e1 + 0.3e1 / 0.4e1 * t150 * t2227 * t1651 + 0.3e1 / 0.2e1 * t150 * t9261 * t7304;
9060   t9337 = t2215 * t5988 * t1287;
9061   t9352 = t5889 * t177;
9062   t9361 = t574 * t1295;
9063   t9365 = 0.3e1 / 0.2e1 * t150 * t178 * t7280 + 0.3e1 / 0.32e2 * t6515 * t178 * t5795 + 0.9e1 / 0.4e1 * t446 * t9277 - 0.9e1 / 0.4e1 * t446 * t1296 * t9273 - 0.6e1 * t150 * t9274 + 0.9e1 / 0.2e1 * t150 * t9337 - 0.9e1 / 0.16e2 * t1540 * t575 * t1245 + 0.5e1 / 0.8e1 * t1662 * t2245 - 0.3e1 / 0.2e1 * t150 * t575 * t1713 - 0.3e1 / 0.4e1 * t150 * t2295 * t128 * t461 - 0.11e2 / 0.8e1 * t446 * t1288 * t9352 + 0.3e1 * t150 * t9257 * t1681 + 0.11e2 / 0.4e1 * t446 * t9337 - 0.9e1 / 0.4e1 * t150 * t9361 * t1685;
9064   t9366 = t6058 * t177;
9065   t9370 = t2295 * t355;
9066   t9385 = t361 * t2295;
9067   t9411 = -0.15e2 / 0.8e1 * t446 * t7161 * t9366 + 0.3e1 / 0.4e1 * t150 * t9370 * t466 - 0.3e1 / 0.4e1 * t150 * t9257 * t1690 - 0.3e1 / 0.8e1 * t1662 * t2209 - t446 * t5792 * t569 / 0.8e1 - 0.3e1 / 0.8e1 * t446 * t1260 * t2208 - 0.3e1 / 0.8e1 * t446 * t447 * t9385 + t150 * t583 * t7246 / 0.4e1 + t150 * t178 * t7264 / 0.4e1 - 0.9e1 / 0.8e1 * t434 * t2296 * t340 - 0.9e1 / 0.8e1 * t434 * t575 * t1252 - 0.3e1 / 0.8e1 * t434 * t178 * t5830 - t7257 * t570 / 0.8e1 - t1662 * t2280 / 0.4e1 + 0.3e1 / 0.4e1 * t150 * t2296 * t470;
9068   t9428 = -0.27e2 / 0.8e1 * t9088 - 0.27e2 / 0.16e2 * t9090 - 0.9e1 / 0.16e2 * t9092 - 0.9e1 / 0.16e2 * t9094 - 0.9e1 / 0.8e1 * t9096 + 0.9e1 / 0.4e1 * t9098 - 0.9e1 / 0.8e1 * t9100 + 0.9e1 / 0.8e1 * t9102 + 0.9e1 / 0.8e1 * t9104 + 0.27e2 / 0.16e2 * t9117 + 0.27e2 / 0.8e1 * t9119 - 0.27e2 / 0.8e1 * t9121 - 0.9e1 / 0.4e1 * t9124 - 0.9e1 / 0.4e1 * t9126 - 0.27e2 / 0.32e2 * t9128;
9069   t9443 = my_piecewise3(t50, 0.24e2 * t1739, 0);
9070   t9448 = 0.27e2 / 0.16e2 * t9130 + 0.9e1 / 0.4e1 * t9132 - 0.9e1 / 0.8e1 * t9134 + 0.9e1 / 0.2e1 * t9136 - 0.27e2 / 0.8e1 * t9138 - 0.27e2 / 0.16e2 * t9140 + 0.9e1 / 0.16e2 * t8924 + 0.9e1 / 0.16e2 * t8926 - 0.9e1 / 0.32e2 * t8933 - 0.9e1 / 0.16e2 * t8938 - 0.27e2 / 0.32e2 * t8940 + t8735 - 0.9e1 / 0.16e2 * t8947 - 0.9e1 / 0.8e1 * t9149 - t150 * t9443 * t53 * t132 / 0.4e1;
9071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9072     v4rho3tau[7] = t9194 + t9231 + t9272 + t9320 + t9365 + t9411 + t9428 + t9448;
9073 
9074   t9451 = t2311 / 0.2e1;
9075   t9452 = 0.3e1 / 0.4e1 * t2344;
9076   t9453 = t2347 / 0.2e1;
9077   t9454 = t2351 / 0.4e1;
9078   t9455 = t2377 / 0.2e1;
9079   t9457 = t139 * t398 * t590;
9080   t9458 = t6131 * t88;
9081   t9459 = t2583 * t9458;
9082   t9463 = t870 * t412 * t88;
9083   t9464 = t2583 * t9463;
9084   t9468 = t139 * t1514 * t590;
9085   t9469 = t1502 * t9458;
9086   t9475 = t1502 * t9463;
9087   t9482 = t139 * t398 * t595;
9088   t9484 = 0.3e1 / 0.4e1 * t9482 * t1505;
9089   t9485 = t89 * t4468;
9090   t9488 = t89 * t6403;
9091   t9492 = 0.3e1 / 0.4e1 * t9482 * t1508;
9092   t9493 = -t9451 - t9452 + t9453 - t9454 + t9455 - 0.9e1 / 0.4e1 * t9457 * t9459 - 0.3e1 * t6153 * t9464 - 0.9e1 / 0.8e1 * t9468 * t9469 + 0.9e1 / 0.8e1 * t9468 * t2577 * t9458 - 0.3e1 / 0.2e1 * t2562 * t9475 + 0.3e1 / 0.2e1 * t2562 * t2577 * t9463 + t9484 + 0.9e1 / 0.4e1 * t9457 * t9485 + 0.3e1 * t6153 * t9488 - t9492;
9093   t9494 = t89 * t4482;
9094   t9497 = t89 * t6324;
9095   t9499 = t1491 * t9458;
9096   t9502 = t1491 * t9463;
9097   t9505 = t848 * t6238;
9098   t9508 = t848 * t9458;
9099   t9511 = t870 * t590;
9100   t9512 = t9511 * t67;
9101   t9516 = t848 * t9463;
9102   t9519 = t2552 * t412;
9103   t9530 = 0.3e1 / 0.4e1 * t9482 * t1511;
9104   t9531 = t227 * t595;
9105   t9532 = t9531 * t67;
9106   t9533 = t1517 * t9532;
9107   t9535 = 0.3e1 / 0.8e1 * t1516 * t9533;
9108   t9536 = t1502 * t6238;
9109   t9539 = t418 * t6238;
9110   t9542 = -0.3e1 / 0.4e1 * t9457 * t9494 - t6153 * t9497 + 0.3e1 * t9457 * t9499 + 0.4e1 * t6153 * t9502 + 0.3e1 / 0.2e1 * t1501 * t9505 - 0.3e1 / 0.2e1 * t9457 * t9508 + 0.9e1 / 0.8e1 * t1516 * t1517 * t9512 - 0.2e1 * t6153 * t9516 + 0.3e1 / 0.2e1 * t6185 * t1517 * t9519 - 0.3e1 / 0.4e1 * t2558 * t6239 - 0.9e1 / 0.4e1 * t9457 * t9469 - 0.3e1 * t6153 * t9475 + t9530 - t9535 + 0.3e1 / 0.2e1 * t1501 * t9536 - 0.3e1 / 0.2e1 * t1501 * t9539;
9111   t9544 = 0.3e1 / 0.4e1 * t2383;
9112   t9545 = t590 * t4365;
9113   t9546 = t4381 * t221;
9114   t9550 = t4329 * t221;
9115   t9551 = t591 * t9550;
9116   t9554 = t4339 * t221;
9117   t9555 = t2304 * t9554;
9118   t9558 = t4320 * t221;
9119   t9559 = t591 * t9558;
9120   t9562 = t2375 * t1443;
9121   t9564 = 0.3e1 / 0.4e1 * t141 * t9562;
9122   t9566 = 0.3e1 / 0.8e1 * t404 * t9562;
9123   t9567 = t881 * t595;
9124   t9570 = 0.3e1 / 0.8e1 * t404 * t1486 * t9567;
9125   t9571 = t77 * t2360;
9126   t9573 = t77 * t2310;
9127   t9574 = 0.3e1 / 0.4e1 * t9573;
9128   t9575 = t77 * t2314;
9129   t9577 = t590 * t221;
9130   t9581 = t220 * t2318;
9131   t9583 = t220 * t2372;
9132   t9585 = -t9544 - t599 + 0.15e2 / 0.4e1 * t141 * t9545 * t9546 - 0.6e1 * t141 * t9551 + 0.9e1 / 0.2e1 * t141 * t9555 + 0.9e1 / 0.4e1 * t404 * t9559 - t9564 - t9566 + t9570 + 0.9e1 / 0.4e1 * t9571 - t9574 - 0.3e1 / 0.4e1 * t9575 - 0.11e2 / 0.4e1 * t141 * t9577 * t6312 - 0.9e1 / 0.8e1 * t9581 + 0.9e1 / 0.8e1 * t9583;
9133   t9586 = t77 * t2376;
9134   t9587 = 0.3e1 / 0.4e1 * t9586;
9135   t9588 = t595 * t221;
9136   t9591 = 0.3e1 / 0.4e1 * t141 * t9588 * t1439;
9137   t9592 = t77 * t2302;
9138   t9597 = t77 * t2306;
9139   t9601 = t141 * t9588 * t1416 / 0.4e1;
9140   t9609 = t4369 * t221;
9141   t9614 = t141 * t2375 * t4495;
9142   t9618 = 0.3e1 / 0.4e1 * t141 * t595 * t877 * t1496;
9143   t9628 = t4286 * t590;
9144   t9632 = t9587 + t9591 + 0.3e1 * t9592 + 0.3e1 / 0.2e1 * t141 * t9577 * t6355 - 0.9e1 / 0.4e1 * t9597 - t9601 - t141 * t9577 * t6308 / 0.4e1 - 0.7e1 / 0.8e1 * t404 * t9551 + 0.11e2 / 0.4e1 * t404 * t9555 - 0.15e2 / 0.8e1 * t404 * t9545 * t9609 + t9614 - t9618 + 0.11e2 / 0.4e1 * t141 * t591 * t9554 - 0.25e2 / 0.4e1 * t141 * t2304 * t9609 - t141 * t600 * t4617 / 0.2e1 - 0.11e2 / 0.8e1 * t404 * t223 * t9628;
9145   t9635 = t802 * t2333;
9146   t9637 = t220 * t2336;
9147   t9639 = t139 * t6228;
9148   t9650 = t591 * t6197;
9149   t9653 = t4329 * t590;
9150   t9657 = t196 * t2321;
9151   t9659 = t77 * t2325;
9152   t9661 = t77 * t2329;
9153   t9663 = t220 * t2340;
9154   t9671 = t4307 * t221;
9155   t9675 = -0.9e1 / 0.16e2 * t9635 - 0.3e1 / 0.4e1 * t9637 - 0.3e1 / 0.8e1 * t9639 * t2333 - 0.3e1 / 0.16e2 * t2332 * t591 * t4506 - t1462 * t2336 / 0.2e1 - t404 * t423 * t6387 / 0.4e1 - 0.3e1 / 0.4e1 * t141 * t9650 - 0.9e1 / 0.4e1 * t404 * t1486 * t9653 + 0.9e1 / 0.8e1 * t9657 + 0.3e1 / 0.2e1 * t9659 - 0.3e1 / 0.2e1 * t9661 + 0.9e1 / 0.8e1 * t9663 + 0.3e1 / 0.8e1 * t399 * t600 * t4610 + 0.3e1 / 0.16e2 * t1431 * t600 * t4527 + 0.3e1 / 0.2e1 * t141 * t600 * t9671;
9156   t9676 = t139 * t6206;
9157   t9680 = t77 * t2318;
9158   t9693 = t196 * t2354;
9159   t9695 = t77 * t2357;
9160   t9711 = t196 * t2343;
9161   t9712 = 0.9e1 / 0.8e1 * t9711;
9162   t9713 = t77 * t2346;
9163   t9714 = 0.3e1 / 0.4e1 * t9713;
9164   t9715 = -0.3e1 / 0.32e2 * t9676 * t591 * t4487 - 0.9e1 / 0.4e1 * t9680 + 0.11e2 / 0.4e1 * t141 * t9559 - 0.5e1 / 0.8e1 * t1462 * t2318 - 0.3e1 / 0.8e1 * t404 * t9650 + 0.5e1 / 0.8e1 * t1462 * t2372 + 0.3e1 / 0.8e1 * t404 * t2304 * t4521 - 0.9e1 / 0.8e1 * t9693 - 0.3e1 / 0.2e1 * t9695 - 0.3e1 / 0.8e1 * t399 * t600 * t4506 - t141 * t145 * t6387 / 0.2e1 + 0.3e1 / 0.4e1 * t141 * t600 * t4541 + 0.5e1 / 0.8e1 * t1462 * t2340 + 0.3e1 / 0.8e1 * t404 * t591 * t4541 - t9712 + t9714;
9165   t9717 = t220 * t2350;
9166   t9718 = 0.3e1 / 0.8e1 * t9717;
9167   t9721 = 0.3e1 / 0.8e1 * t399 * t596 * t798;
9168   t9724 = t141 * t596 * t1451 / 0.4e1;
9169   t9725 = t918 * t595;
9170   t9728 = 0.3e1 / 0.8e1 * t404 * t223 * t9725;
9171   t9730 = t1462 * t2350 / 0.8e1;
9172   t9733 = t404 * t810 * t2349 / 0.8e1;
9173   t9734 = t257 * t1527;
9174   t9746 = 0.3e1 / 0.16e2 * t1431 * t596 * t788;
9175   t9749 = t141 * t596 * t1426 / 0.2e1;
9176   t9752 = t141 * t2375 * t1447 / 0.4e1;
9177   t9755 = t889 * t242;
9178   t9762 = t141 * t595 * t242 * t419 / 0.4e1;
9179   t9763 = -t9718 - t9721 + t9724 + t9728 - t9730 - t9733 + t141 * t145 * t9734 / 0.2e1 + 0.3e1 / 0.16e2 * t1431 * t591 * t4478 - 0.3e1 / 0.16e2 * t1431 * t600 * t4487 - t9746 - t9749 + t9752 + t141 * t591 * t4521 - 0.3e1 / 0.4e1 * t141 * t2304 * t9755 - t9762;
9180   t9768 = t196 * t2363;
9181   t9770 = t77 * t2367;
9182   t9775 = t253 * t1527;
9183   t9779 = t412 * t412;
9184   t9780 = t9779 * t222;
9185   t9785 = 0.3e1 / 0.16e2 * t213 * t601;
9186   t9786 = t9779 * t28;
9187   t9791 = 0.3e1 / 0.16e2 * t213 * t604;
9188   t9793 = 0.3e1 / 0.16e2 * t213 * t597;
9189   t9798 = 0.3e1 / 0.32e2 * t844 * t592;
9190   t9803 = 0.3e1 / 0.16e2 * t213 * t607;
9191   t9804 = t862 * t592;
9192   t9808 = -t141 * t590 * t242 * t1416 / 0.4e1 + 0.9e1 / 0.8e1 * t9768 + 0.3e1 / 0.2e1 * t9770 + 0.3e1 / 0.8e1 * t399 * t591 * t4569 + t141 * t423 * t9775 / 0.2e1 + t141 * t9780 * t253 / 0.2e1 - t9785 - t141 * t9786 * t228 / 0.2e1 + t9791 - t9793 + t141 * t9786 * t257 / 0.2e1 - t9798 - t404 * t9780 * t228 / 0.4e1 + t9803 - 0.3e1 / 0.8e1 * t9804 - t6459 * t592 / 0.8e1;
9193   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9194     v4rho2sigma2[0] = t9493 + t9542 + t9585 + t9632 + t9675 + t9715 + t9763 + t9808;
9195 
9196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9197     v4rho2sigma2[1] = 0.0e0;
9198 
9199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9200     v4rho2sigma2[2] = 0.0e0;
9201 
9202   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9203     v4rho2sigma2[3] = 0.0e0;
9204 
9205   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9206     v4rho2sigma2[4] = 0.0e0;
9207 
9208   t9815 = 0.3e1 / 0.16e2 * t318 * t624;
9209   t9816 = t312 * t2410;
9210   t9822 = 0.3e1 / 0.16e2 * t318 * t627;
9211   t9823 = t312 * t2415;
9212   t9832 = 0.3e1 / 0.16e2 * t318 * t617;
9213   t9833 = t312 * t2400;
9214   t9834 = 0.9e1 / 0.8e1 * t9833;
9215   t9837 = 0.3e1 / 0.8e1 * t434 * t616 * t1031;
9216   t9839 = 0.3e1 / 0.16e2 * t318 * t621;
9217   t9840 = t312 * t2405;
9218   t9843 = 0.3e1 / 0.32e2 * t1191 * t612;
9219   t9844 = t1124 * t2395;
9220   t9848 = 0.3e1 / 0.16e2 * t1540 * t616 * t1018;
9221   t9858 = t139 * t6682;
9222   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9223     v4rho2sigma2[5] = -0.3e1 / 0.8e1 * t434 * t620 * t5182 + t9815 + 0.9e1 / 0.8e1 * t9816 + 0.3e1 / 0.8e1 * t434 * t611 * t5258 + t9822 + 0.9e1 / 0.8e1 * t9823 + 0.3e1 / 0.8e1 * t434 * t620 * t5235 - 0.3e1 / 0.16e2 * t2394 * t611 * t5182 - t9832 - t9834 - t9837 - t9839 - 0.9e1 / 0.8e1 * t9840 - t9843 - 0.9e1 / 0.16e2 * t9844 - t9848 - 0.3e1 / 0.16e2 * t1540 * t620 * t5203 + 0.3e1 / 0.16e2 * t1540 * t611 * t5223 + 0.3e1 / 0.16e2 * t1540 * t620 * t5229 - 0.3e1 / 0.32e2 * t9858 * t611 * t5203;
9224 
9225   t9863 = 0.3e1 / 0.8e1 * t9482 * t1566;
9226   t9864 = t89 * t4827;
9227   t9867 = t6549 * t88;
9228   t9868 = t1502 * t9867;
9229   t9871 = t2577 * t9867;
9230   t9875 = 0.3e1 / 0.8e1 * t9482 * t1571;
9231   t9876 = t1491 * t9867;
9232   t9879 = t2583 * t9867;
9233   t9885 = 0.3e1 / 0.16e2 * t139 * t1430 * t595 * t1072;
9234   t9887 = 0.3e1 / 0.8e1 * t9482 * t1574;
9235   t9888 = t9531 * t107;
9236   t9889 = t1517 * t9888;
9237   t9891 = 0.3e1 / 0.16e2 * t1516 * t9889;
9238   t9893 = t139 * t1430 * t590;
9239   t9896 = t418 * t6595;
9240   t9899 = t418 * t9867;
9241   t9904 = -t2423 - t9863 - 0.3e1 / 0.8e1 * t9457 * t9864 - 0.9e1 / 0.16e2 * t9468 * t9868 + 0.9e1 / 0.16e2 * t9468 * t9871 + t9875 + 0.3e1 / 0.2e1 * t9457 * t9876 - 0.9e1 / 0.8e1 * t9457 * t9879 - t9885 + t9887 - t9891 - 0.3e1 / 0.16e2 * t9893 * t4726 - 0.3e1 / 0.4e1 * t1501 * t9896 + 0.9e1 / 0.8e1 * t9457 * t9899 + 0.3e1 / 0.16e2 * t9893 * t4716;
9242   t9905 = t1502 * t6595;
9243   t9916 = t848 * t6595;
9244   t9919 = t848 * t9867;
9245   t9924 = t1517 * t9867;
9246   t9927 = t802 * t2418;
9247   t9934 = t196 * t2430;
9248   t9939 = t1577 * t1514;
9249   t9943 = t196 * t2421;
9250   t9944 = 0.9e1 / 0.16e2 * t9943;
9251   t9945 = 0.3e1 / 0.4e1 * t1501 * t9905 - 0.3e1 / 0.32e2 * t139 * t6206 * t590 * t4737 - 0.9e1 / 0.8e1 * t9457 * t9868 + 0.3e1 / 0.16e2 * t9893 * t4706 + 0.3e1 / 0.4e1 * t1501 * t9916 - 0.3e1 / 0.4e1 * t9457 * t9919 - 0.3e1 / 0.8e1 * t2558 * t6596 + 0.9e1 / 0.16e2 * t9468 * t9924 - t2384 - 0.9e1 / 0.32e2 * t9927 - 0.3e1 / 0.16e2 * t9639 * t2418 + 0.3e1 / 0.8e1 * t1578 * t591 * t4871 + 0.9e1 / 0.16e2 * t9934 + 0.3e1 / 0.8e1 * t1578 * t600 * t4838 - 0.3e1 / 0.16e2 * t9939 * t591 * t4862 - t9944;
9252   t9949 = 0.3e1 / 0.8e1 * t1578 * t596 * t1013;
9253   t9950 = t196 * t2424;
9254   t9955 = t196 * t2427;
9255   t9958 = 0.3e1 / 0.8e1 * t9573;
9256   t9962 = 0.3e1 / 0.8e1 * t9586;
9257   t9969 = -t9949 - 0.9e1 / 0.16e2 * t9950 - 0.3e1 / 0.8e1 * t1578 * t600 * t4862 + 0.9e1 / 0.16e2 * t9955 + 0.9e1 / 0.8e1 * t9571 - t9958 - 0.3e1 / 0.8e1 * t9575 - 0.9e1 / 0.16e2 * t9581 + 0.9e1 / 0.16e2 * t9583 + t9962 + 0.3e1 / 0.2e1 * t9592 - 0.9e1 / 0.8e1 * t9597 - 0.9e1 / 0.32e2 * t9635 - 0.3e1 / 0.8e1 * t9637 + 0.9e1 / 0.16e2 * t9657 + 0.3e1 / 0.4e1 * t9659;
9258   t9975 = 0.9e1 / 0.16e2 * t9711;
9259   t9976 = 0.3e1 / 0.8e1 * t9713;
9260   t9977 = 0.3e1 / 0.16e2 * t9717;
9261   t9981 = -0.3e1 / 0.4e1 * t9661 + 0.9e1 / 0.16e2 * t9663 - 0.9e1 / 0.8e1 * t9680 - 0.9e1 / 0.16e2 * t9693 - 0.3e1 / 0.4e1 * t9695 - t9975 + t9976 - t9977 + 0.9e1 / 0.16e2 * t9768 + 0.3e1 / 0.4e1 * t9770 - t9785 + t9791 - t9793 - t9798 + t9803 - 0.3e1 / 0.16e2 * t9804;
9262   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9263     v4rho2sigma2[6] = t9904 + t9945 + t9969 + t9981;
9264 
9265   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9266     v4rho2sigma2[7] = 0.0e0;
9267 
9268   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9269     v4rho2sigma2[8] = 0.0e0;
9270 
9271   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9272     v4rho2sigma2[9] = 0.0e0;
9273 
9274   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9275     v4rho2sigma2[10] = 0.0e0;
9276 
9277   t9986 = t139 * t1595 * t610;
9278   t9987 = t7049 * t97;
9279   t9988 = t1598 * t9987;
9280   t9994 = 0.3e1 / 0.16e2 * t139 * t1539 * t615 * t1162;
9281   t9995 = t1618 * t6860;
9282   t9999 = t139 * t433 * t610;
9283   t10000 = t1618 * t9987;
9284   t10004 = t139 * t1539 * t610;
9285   t10007 = t1159 * t6860;
9286   t10010 = t1159 * t9987;
9287   t10015 = t2668 * t9987;
9288   t10019 = t139 * t433 * t615;
9289   t10021 = 0.3e1 / 0.8e1 * t10019 * t1621;
9290   t10022 = t1680 * t9987;
9291   t10026 = 0.3e1 / 0.8e1 * t10019 * t1626;
9292   t10027 = t360 * t615;
9293   t10028 = t10027 * t97;
9294   t10029 = t1598 * t10028;
9295   t10031 = 0.3e1 / 0.16e2 * t1597 * t10029;
9296   t10032 = -t2402 - 0.3e1 / 0.8e1 * t2603 * t6861 + 0.9e1 / 0.16e2 * t9986 * t9988 - t9994 + 0.3e1 / 0.4e1 * t1612 * t9995 - 0.9e1 / 0.8e1 * t9999 * t10000 + 0.3e1 / 0.16e2 * t10004 * t5402 + 0.3e1 / 0.4e1 * t1612 * t10007 - 0.3e1 / 0.4e1 * t9999 * t10010 + 0.3e1 / 0.16e2 * t10004 * t5417 + 0.9e1 / 0.16e2 * t9986 * t10015 + t10021 + 0.3e1 / 0.2e1 * t9999 * t10022 + t10026 - t10031;
9297   t10035 = t460 * t6860;
9298   t10038 = t460 * t9987;
9299   t10045 = t2676 * t9987;
9300   t10049 = 0.3e1 / 0.8e1 * t10019 * t1613;
9301   t10050 = t129 * t5459;
9302   t10055 = t117 * t2434;
9303   t10057 = t312 * t2469;
9304   t10059 = t117 * t2473;
9305   t10061 = t117 * t2477;
9306   t10063 = t312 * t2460;
9307   t10065 = t117 * t2464;
9308   t10067 = t117 * t2453;
9309   t10068 = 0.3e1 / 0.8e1 * t10067;
9310   t10069 = -0.3e1 / 0.16e2 * t10004 * t5423 - 0.3e1 / 0.4e1 * t1612 * t10035 + 0.9e1 / 0.8e1 * t9999 * t10038 - 0.3e1 / 0.32e2 * t139 * t6682 * t610 * t5407 - 0.9e1 / 0.8e1 * t9999 * t10045 - t10049 - 0.3e1 / 0.8e1 * t9999 * t10050 - 0.9e1 / 0.16e2 * t9986 * t10000 - t2399 - 0.9e1 / 0.8e1 * t10055 + 0.9e1 / 0.16e2 * t10057 + 0.3e1 / 0.4e1 * t10059 - 0.3e1 / 0.4e1 * t10061 + 0.9e1 / 0.16e2 * t10063 + 0.3e1 / 0.4e1 * t10065 - t10068;
9311   t10071 = t117 * t2457;
9312   t10073 = t353 * t2434;
9313   t10075 = t353 * t2439;
9314   t10077 = t117 * t2443;
9315   t10078 = 0.3e1 / 0.8e1 * t10077;
9316   t10079 = t117 * t2446;
9317   t10081 = t117 * t2449;
9318   t10083 = t117 * t2494;
9319   t10084 = 0.3e1 / 0.8e1 * t10083;
9320   t10085 = t353 * t2498;
9321   t10086 = 0.3e1 / 0.16e2 * t10085;
9322   t10087 = t312 * t2501;
9323   t10089 = t117 * t2504;
9324   t10091 = t117 * t2507;
9325   t10093 = t1124 * t2480;
9326   t10095 = t353 * t2484;
9327   t10097 = t353 * t2488;
9328   t10099 = t312 * t2491;
9329   t10100 = 0.9e1 / 0.16e2 * t10099;
9330   t10101 = t139 * t6909;
9331   t10104 = -0.3e1 / 0.8e1 * t10071 - 0.9e1 / 0.16e2 * t10073 + 0.9e1 / 0.16e2 * t10075 + t10078 + 0.3e1 / 0.2e1 * t10079 - 0.9e1 / 0.8e1 * t10081 + t10084 - t10086 - 0.9e1 / 0.16e2 * t10087 - 0.3e1 / 0.4e1 * t10089 + 0.9e1 / 0.8e1 * t10091 - 0.9e1 / 0.32e2 * t10093 - 0.3e1 / 0.8e1 * t10095 + 0.9e1 / 0.16e2 * t10097 - t10100 - 0.3e1 / 0.16e2 * t10101 * t2395;
9332   t10108 = t1577 * t1595;
9333   t10114 = 0.3e1 / 0.8e1 * t1589 * t616 * t1153;
9334   t10121 = 0.9e1 / 0.16e2 * t9833;
9335   t10126 = t1329 * t612;
9336   t10128 = 0.3e1 / 0.8e1 * t1589 * t620 * t5449 + 0.3e1 / 0.16e2 * t10108 * t611 * t5449 + t10114 - 0.3e1 / 0.8e1 * t1589 * t611 * t5455 - 0.3e1 / 0.8e1 * t1589 * t620 * t5481 - t10121 - 0.9e1 / 0.16e2 * t9840 - 0.9e1 / 0.32e2 * t9844 + 0.9e1 / 0.16e2 * t9816 + 0.9e1 / 0.16e2 * t9823 + t9815 + t9822 - t9832 - t9839 - t9843 - 0.3e1 / 0.16e2 * t10126;
9337   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9338     v4rho2sigma2[11] = t10032 + t10069 + t10104 + t10128;
9339 
9340   t10141 = 0.3e1 / 0.8e1 * t399 * t596 * t1147;
9341   t10147 = 0.3e1 / 0.16e2 * t1431 * t596 * t1143;
9342   t10161 = 0.9e1 / 0.8e1 * t9943;
9343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9344     v4rho2sigma2[12] = 0.3e1 / 0.8e1 * t399 * t591 * t5098 + 0.3e1 / 0.8e1 * t399 * t600 * t5198 - 0.3e1 / 0.16e2 * t2332 * t591 * t5107 - t10141 - 0.3e1 / 0.8e1 * t399 * t600 * t5107 - t10147 - 0.3e1 / 0.16e2 * t1431 * t600 * t5102 + 0.3e1 / 0.16e2 * t1431 * t591 * t5094 + 0.3e1 / 0.16e2 * t1431 * t600 * t5192 - 0.3e1 / 0.32e2 * t9676 * t591 * t5102 + 0.9e1 / 0.8e1 * t9934 - t10161 - 0.9e1 / 0.8e1 * t9950 + 0.9e1 / 0.8e1 * t9955 - 0.9e1 / 0.16e2 * t9927 - t9785 + t9791 - t9793 - t9798 + t9803;
9345 
9346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9347     v4rho2sigma2[13] = 0.0e0;
9348 
9349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9350     v4rho2sigma2[14] = 0.0e0;
9351 
9352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9353     v4rho2sigma2[15] = 0.0e0;
9354 
9355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9356     v4rho2sigma2[16] = 0.0e0;
9357 
9358   t10165 = t2444 / 0.2e1;
9359   t10166 = t2454 / 0.2e1;
9360   t10167 = 0.3e1 / 0.4e1 * t2492;
9361   t10168 = t2495 / 0.2e1;
9362   t10169 = t2499 / 0.4e1;
9363   t10170 = t7023 * t128;
9364   t10171 = t1618 * t10170;
9365   t10175 = t1290 * t454 * t128;
9366   t10176 = t1618 * t10175;
9367   t10180 = 0.3e1 / 0.4e1 * t10019 * t1725;
9368   t10181 = t1680 * t10170;
9369   t10184 = t2676 * t10170;
9370   t10187 = t1680 * t10175;
9371   t10190 = t2676 * t10175;
9372   t10193 = t129 * t5773;
9373   t10196 = t129 * t7197;
9374   t10200 = 0.3e1 / 0.4e1 * t10019 * t1728;
9375   t10201 = t10165 - t10166 - t10167 + t10168 - t10169 - 0.9e1 / 0.8e1 * t9986 * t10171 - 0.3e1 / 0.2e1 * t2662 * t10176 + t10180 + 0.3e1 * t9999 * t10181 - 0.9e1 / 0.4e1 * t9999 * t10184 + 0.4e1 * t7048 * t10187 - 0.3e1 * t7048 * t10190 + 0.9e1 / 0.4e1 * t9999 * t10193 + 0.3e1 * t7048 * t10196 - t10200;
9376   t10202 = t129 * t5738;
9377   t10205 = t129 * t7201;
9378   t10207 = t1290 * t610;
9379   t10208 = t10207 * t111;
9380   t10214 = t2677 * t454;
9381   t10218 = t1159 * t7096;
9382   t10221 = t460 * t7096;
9383   t10225 = 0.3e1 / 0.4e1 * t10019 * t1731;
9384   t10226 = t10027 * t111;
9385   t10227 = t1598 * t10226;
9386   t10229 = 0.3e1 / 0.8e1 * t1597 * t10227;
9387   t10230 = t1159 * t10170;
9388   t10236 = t1159 * t10175;
9389   t10244 = t1618 * t7096;
9390   t10249 = -0.3e1 / 0.4e1 * t9999 * t10202 - t7048 * t10205 + 0.9e1 / 0.8e1 * t1597 * t2668 * t10208 - 0.3e1 * t7048 * t10176 + 0.3e1 / 0.2e1 * t7079 * t2668 * t10214 + 0.3e1 / 0.2e1 * t1612 * t10218 - 0.3e1 / 0.2e1 * t1612 * t10221 + t10225 - t10229 - 0.3e1 / 0.2e1 * t9999 * t10230 + 0.9e1 / 0.8e1 * t1597 * t1598 * t10208 - 0.2e1 * t7048 * t10236 + 0.3e1 / 0.2e1 * t7079 * t1598 * t10214 - 0.3e1 / 0.4e1 * t2603 * t7097 + 0.3e1 / 0.2e1 * t1612 * t10244 - 0.9e1 / 0.4e1 * t9999 * t10171;
9391   t10251 = 0.3e1 / 0.4e1 * t2398;
9392   t10252 = t5972 * t354;
9393   t10253 = t611 * t10252;
9394   t10256 = t2442 * t5766;
9395   t10258 = 0.3e1 / 0.4e1 * t150 * t10256;
9396   t10260 = 0.3e1 / 0.8e1 * t446 * t10256;
9397   t10261 = t1299 * t615;
9398   t10264 = 0.3e1 / 0.8e1 * t446 * t1674 * t10261;
9399   t10265 = t6000 * t354;
9400   t10266 = t611 * t10265;
9401   t10271 = t5988 * t354;
9402   t10272 = t2437 * t10271;
9403   t10275 = t615 * t354;
9404   t10278 = t150 * t10275 * t1690 / 0.4e1;
9405   t10279 = t610 * t354;
9406   t10288 = 0.3e1 / 0.4e1 * t150 * t10275 * t1707;
9407   t10294 = -t10251 - t619 + 0.9e1 / 0.4e1 * t446 * t10253 - t10258 - t10260 + t10264 - 0.7e1 / 0.8e1 * t446 * t10266 - 0.6e1 * t150 * t10266 + 0.9e1 / 0.2e1 * t150 * t10272 - t10278 - t150 * t10279 * t7233 / 0.4e1 - 0.11e2 / 0.4e1 * t150 * t10279 * t7288 + t10288 + 0.3e1 / 0.2e1 * t150 * t10279 * t7304 + 0.11e2 / 0.4e1 * t446 * t10272;
9408   t10295 = t610 * t6054;
9409   t10296 = t6058 * t354;
9410   t10301 = t150 * t2442 * t5730;
9411   t10302 = t615 * t1295;
9412   t10305 = 0.3e1 / 0.4e1 * t150 * t10302 * t1685;
9413   t10312 = t6070 * t354;
9414   t10321 = 0.3e1 / 0.16e2 * t1540 * t616 * t1245;
9415   t10324 = t150 * t616 * t1713 / 0.2e1;
9416   t10325 = t5977 * t354;
9417   t10342 = t446 * t1260 * t2497 / 0.8e1;
9418   t10346 = -0.15e2 / 0.8e1 * t446 * t10295 * t10296 + t10301 - t10305 + 0.11e2 / 0.4e1 * t150 * t611 * t10271 - 0.25e2 / 0.4e1 * t150 * t2437 * t10296 + 0.15e2 / 0.4e1 * t150 * t10295 * t10312 - 0.3e1 / 0.16e2 * t1540 * t620 * t5755 - t10321 - t10324 + 0.3e1 / 0.2e1 * t150 * t620 * t10325 - 0.3e1 / 0.32e2 * t9858 * t611 * t5755 + 0.11e2 / 0.4e1 * t150 * t10253 + 0.3e1 / 0.16e2 * t1540 * t620 * t5747 + 0.3e1 / 0.16e2 * t1540 * t611 * t5780 - t10342 - 0.3e1 / 0.8e1 * t434 * t620 * t5815;
9419   t10352 = t390 * t1741;
9420   t10359 = t5889 * t610;
9421   t10376 = t386 * t1741;
9422   t10380 = t611 * t7057;
9423   t10383 = t6000 * t610;
9424   t10396 = t150 * t2442 * t1651 / 0.4e1;
9425   t10397 = 0.3e1 / 0.8e1 * t434 * t620 * t5849 + t150 * t154 * t10352 / 0.2e1 - t150 * t620 * t5811 / 0.2e1 - 0.11e2 / 0.8e1 * t446 * t356 * t10359 - 0.3e1 / 0.8e1 * t10101 * t2480 - 0.3e1 / 0.16e2 * t2394 * t611 * t5815 - t1662 * t2484 / 0.2e1 - t446 * t465 * t7191 / 0.4e1 + 0.3e1 / 0.8e1 * t434 * t611 * t5801 + t150 * t465 * t10376 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t10380 - 0.9e1 / 0.4e1 * t446 * t1674 * t10383 - t150 * t610 * t375 * t1690 / 0.4e1 + 0.3e1 / 0.8e1 * t446 * t2437 * t5788 + t10396;
9426   t10400 = t1307 * t375;
9427   t10407 = t150 * t615 * t375 * t461 / 0.4e1;
9428   t10427 = 0.3e1 / 0.8e1 * t434 * t616 * t1252;
9429   t10430 = t150 * t616 * t1636 / 0.4e1;
9430   t10431 = t1355 * t615;
9431   t10434 = 0.3e1 / 0.8e1 * t446 * t356 * t10431;
9432   t10436 = t1662 * t2498 / 0.8e1;
9433   t10439 = t150 * t611 * t5788 - 0.3e1 / 0.4e1 * t150 * t2437 * t10400 - t10407 - 0.5e1 / 0.8e1 * t1662 * t2434 - 0.3e1 / 0.8e1 * t446 * t10380 + 0.5e1 / 0.8e1 * t1662 * t2439 - t150 * t154 * t7191 / 0.2e1 + 0.3e1 / 0.4e1 * t150 * t620 * t5759 + 0.5e1 / 0.8e1 * t1662 * t2488 + 0.3e1 / 0.8e1 * t446 * t611 * t5759 - t10427 + t10430 + t10434 - t10436 - 0.9e1 / 0.4e1 * t10055 + 0.9e1 / 0.8e1 * t10057;
9434   t10445 = 0.3e1 / 0.4e1 * t10067;
9435   t10449 = 0.3e1 / 0.4e1 * t10077;
9436   t10452 = 0.3e1 / 0.4e1 * t10083;
9437   t10453 = 0.3e1 / 0.8e1 * t10085;
9438   t10456 = 0.3e1 / 0.2e1 * t10059 - 0.3e1 / 0.2e1 * t10061 + 0.9e1 / 0.8e1 * t10063 + 0.3e1 / 0.2e1 * t10065 - t10445 - 0.3e1 / 0.4e1 * t10071 - 0.9e1 / 0.8e1 * t10073 + 0.9e1 / 0.8e1 * t10075 + t10449 + 0.3e1 * t10079 - 0.9e1 / 0.4e1 * t10081 + t10452 - t10453 - 0.9e1 / 0.8e1 * t10087 - 0.3e1 / 0.2e1 * t10089;
9439   t10461 = 0.9e1 / 0.8e1 * t10099;
9440   t10463 = t454 * t454;
9441   t10464 = t10463 * t53;
9442   t10471 = t10463 * t355;
9443   t10480 = 0.9e1 / 0.4e1 * t10091 - 0.9e1 / 0.16e2 * t10093 - 0.3e1 / 0.4e1 * t10095 + 0.9e1 / 0.8e1 * t10097 - t10461 + t9815 + t9822 - t9832 - t9839 - t9843 - 0.3e1 / 0.8e1 * t10126 - t150 * t10464 * t361 / 0.2e1 + t150 * t10464 * t390 / 0.2e1 - t446 * t10471 * t361 / 0.4e1 + t150 * t10471 * t386 / 0.2e1 - t7257 * t612 / 0.8e1;
9444   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9445     v4rho2sigma2[17] = t10201 + t10249 + t10294 + t10346 + t10397 + t10439 + t10456 + t10480;
9446 
9447   t10483 = t423 * t9550;
9448   t10486 = t6122 * t2550;
9449   t10487 = t10486 * t2584;
9450   t10489 = t4285 * t144;
9451   t10490 = t10489 * t221;
9452   t10491 = t2583 * t10490;
9453   t10494 = t10486 * t2587;
9454   t10496 = t6122 * t2561;
9455   t10497 = t10496 * t2574;
9456   t10499 = t10486 * t2571;
9457   t10502 = t139 * t140 * t484;
9458   t10507 = t423 * t9554;
9459   t10510 = t1495 * t9609;
9460   t10513 = t4365 * t4380;
9461   t10514 = t10513 * t10490;
9462   t10517 = t848 * t10490;
9463   t10521 = t139 * t6206 * t144;
9464   t10524 = -t9451 - t9452 + t9453 - t9454 + t9455 - 0.6e1 * t2551 * t10483 - 0.9e1 / 0.4e1 * t10487 + 0.9e1 / 0.2e1 * t2551 * t10491 - 0.3e1 / 0.4e1 * t10494 - 0.9e1 / 0.8e1 * t10497 + 0.9e1 / 0.4e1 * t10499 - t10502 * t2587 / 0.2e1 - t2551 * t9497 / 0.2e1 + 0.11e2 / 0.4e1 * t2551 * t10507 - 0.25e2 / 0.4e1 * t2551 * t10510 + 0.15e2 / 0.4e1 * t2551 * t10514 + 0.3e1 / 0.2e1 * t2551 * t10517 - 0.3e1 / 0.32e2 * t10521 * t7438;
9465   t10525 = t145 * t4487;
9466   t10528 = t1414 * t6355;
9467   t10531 = t1502 * t6209;
9468   t10534 = t1502 * t10490;
9469   t10537 = t848 * t6209;
9470   t10540 = t4285 * t160;
9471   t10541 = t10540 * t221;
9472   t10542 = t1502 * t10541;
9473   t10545 = t10496 * t2578;
9474   t10550 = t10486 * t2581;
9475   t10553 = t139 * t1514 * t412;
9476   t10557 = t139 * t403 * t412;
9477   t10560 = t1491 * t10541;
9478   t10563 = t2583 * t10541;
9479   t10566 = t4365 * t4368;
9480   t10577 = t139 * t1461 * t144;
9481   t10580 = -0.3e1 / 0.16e2 * t1869 * t10525 + 0.3e1 / 0.2e1 * t2551 * t10528 + 0.3e1 / 0.16e2 * t1869 * t10531 + 0.11e2 / 0.4e1 * t2551 * t10534 + 0.3e1 / 0.16e2 * t1869 * t10537 + 0.9e1 / 0.4e1 * t2562 * t10542 + 0.9e1 / 0.8e1 * t10545 - 0.9e1 / 0.4e1 * t2562 * t2577 * t10541 + 0.3e1 * t10550 - 0.3e1 / 0.8e1 * t10553 * t1836 + 0.3e1 / 0.4e1 * t10557 * t2565 - 0.7e1 / 0.8e1 * t2562 * t10560 + 0.11e2 / 0.4e1 * t2562 * t10563 - 0.15e2 / 0.8e1 * t2562 * t10566 * t10541 + 0.2e1 * t2551 * t9502 - 0.3e1 / 0.2e1 * t10502 * t2584 - 0.3e1 / 0.2e1 * t2551 * t9464 - 0.5e1 / 0.8e1 * t10577 * t2574;
9482   t10585 = t870 * t484 * t88;
9483   t10601 = t1414 * t6308;
9484   t10604 = t247 * t6394;
9485   t10611 = t1502 * t10585;
9486   t10614 = t2577 * t10585;
9487   t10619 = t7351 * t2590;
9488   t10621 = t10486 * t2593;
9489   t10626 = 0.5e1 / 0.8e1 * t10577 * t2578 + 0.3e1 / 0.4e1 * t2562 * t1517 * t10585 - 0.3e1 / 0.4e1 * t7402 * t2568 + 0.3e1 / 0.2e1 * t10502 * t2571 - 0.3e1 / 0.4e1 * t1827 * t9539 + 0.3e1 / 0.2e1 * t2551 * t9488 + 0.3e1 / 0.4e1 * t7402 * t2590 - 0.3e1 / 0.2e1 * t10502 * t2593 - t2551 * t10601 / 0.4e1 - 0.11e2 / 0.4e1 * t2551 * t10604 - 0.3e1 / 0.4e1 * t10557 * t2574 + 0.3e1 / 0.4e1 * t10557 * t2578 - 0.3e1 / 0.4e1 * t2562 * t10611 + 0.3e1 / 0.4e1 * t2562 * t10614 + 0.2e1 * t10502 * t2581 + 0.9e1 / 0.8e1 * t10619 - 0.9e1 / 0.4e1 * t10621 + 0.3e1 / 0.8e1 * t2562 * t2577 * t7389;
9490   t10627 = t423 * t4521;
9491   t10629 = t2583 * t6186;
9492   t10634 = t1502 * t7389;
9493   t10648 = t139 * t6228 * t144;
9494   t10653 = t7351 * t2568;
9495   t10655 = t145 * t4506;
9496   t10658 = t145 * t4541;
9497   t10661 = t848 * t6186;
9498   t10665 = t139 * t403 * t221;
9499   t10666 = t10540 * t144;
9500   t10670 = t6122 * t2557;
9501   t10671 = t10670 * t1836;
9502   t10675 = t2551 * t10627 - 0.3e1 / 0.4e1 * t2551 * t10629 + 0.5e1 / 0.8e1 * t10577 * t2565 - 0.3e1 / 0.8e1 * t2562 * t10634 + 0.3e1 / 0.4e1 * t1827 * t9536 - 0.3e1 / 0.2e1 * t2551 * t9475 + 0.3e1 / 0.4e1 * t7402 * t2596 - t10502 * t2554 + 0.3e1 / 0.4e1 * t1827 * t9505 - t2551 * t9516 - 0.3e1 / 0.8e1 * t10648 * t1836 - 0.3e1 / 0.8e1 * t2558 * t7416 - 0.9e1 / 0.8e1 * t10653 - 0.3e1 / 0.8e1 * t1827 * t10655 + 0.3e1 / 0.4e1 * t2551 * t10658 - t2551 * t10661 / 0.2e1 - 0.11e2 / 0.8e1 * t10665 * t1517 * t10666 - 0.9e1 / 0.16e2 * t10671 - 0.3e1 / 0.16e2 * t2558 * t7447;
9503   t10678 = t1502 * t6242;
9504   t10683 = t7351 * t2596;
9505   t10685 = t10486 * t2554;
9506   t10687 = t6122 * t6184;
9507   t10689 = t10687 * t1517 * t3722;
9508   t10691 = t848 * t6242;
9509   t10694 = t1476 * t1416;
9510   t10699 = t1517 * t870;
9511   t10700 = t633 * t67;
9512   t10704 = t2577 * t870;
9513   t10705 = t489 * t67;
9514   t10709 = t423 * t880;
9515   t10710 = t10709 * t9458;
9516   t10713 = t2583 * t870;
9517   t10714 = t417 * t67;
9518   t10715 = t10713 * t10714;
9519   t10718 = t417 * t28;
9520   t10719 = t10718 * t4482;
9521   t10722 = t1502 * t870;
9522   t10723 = t10722 * t10705;
9523   t10726 = 0.3e1 / 0.8e1 * t1827 * t10678 - 0.3e1 / 0.4e1 * t2551 * t6187 + 0.9e1 / 0.8e1 * t10683 - 0.3e1 / 0.2e1 * t10685 + 0.9e1 / 0.8e1 * t10689 + 0.3e1 / 0.8e1 * t1827 * t10691 - t2551 * t10694 / 0.4e1 + 0.3e1 / 0.8e1 * t2562 * t7390 + t9484 - t9492 + t9530 - t9535 + 0.9e1 / 0.8e1 * t1516 * t10699 * t10700 + 0.9e1 / 0.8e1 * t2558 * t10704 * t10705 + 0.3e1 * t1827 * t10710 - 0.9e1 / 0.4e1 * t1827 * t10715 - 0.3e1 / 0.4e1 * t1827 * t10719 - 0.9e1 / 0.8e1 * t2558 * t10723;
9524   t10727 = t10722 * t10714;
9525   t10730 = t848 * t870;
9526   t10731 = t10730 * t10714;
9527   t10734 = t6635 * t6177;
9528   t10774 = -0.9e1 / 0.4e1 * t1827 * t10727 - 0.3e1 / 0.2e1 * t1827 * t10731 + 0.9e1 / 0.4e1 * t1827 * t10734 - t9544 - t599 + t141 * t7579 * t637 / 0.4e1 + t141 * t1819 * t2366 / 0.2e1 + t141 * t493 * t9775 / 0.4e1 + t141 * t1843 * t641 / 0.4e1 + t141 * t485 * t2324 / 0.2e1 + t141 * t161 * t9734 / 0.4e1 - t6459 * t630 / 0.8e1 - t1462 * t2543 / 0.4e1 - t404 * t6407 * t479 / 0.8e1 - t404 * t1410 * t1790 / 0.4e1 - t1462 * t2546 / 0.4e1 - t404 * t423 * t7585 / 0.8e1 - t141 * t1842 * t144 * t419 / 0.4e1;
9529   t10784 = t220 * t2543;
9530   t10786 = t220 * t2546;
9531   t10789 = 0.3e1 / 0.16e2 * t213 * t634;
9532   t10791 = 0.3e1 / 0.32e2 * t844 * t630;
9533   t10793 = 0.3e1 / 0.16e2 * t213 * t642;
9534   t10795 = 0.3e1 / 0.16e2 * t213 * t638;
9535   t10796 = t77 * t2531;
9536   t10798 = t77 * t2534;
9537   t10800 = t862 * t630;
9538   t10802 = t77 * t2518;
9539   t10804 = t77 * t2522;
9540   t10806 = t77 * t2525;
9541   t10808 = t77 * t2528;
9542   t10810 = -t141 * t484 * t412 * t419 / 0.2e1 - t141 * t160 * t1527 * t419 / 0.4e1 - 0.3e1 / 0.8e1 * t10784 - 0.3e1 / 0.8e1 * t10786 - t10789 - t10791 + t10793 + t10795 + 0.3e1 / 0.4e1 * t10796 + 0.3e1 / 0.4e1 * t10798 - 0.3e1 / 0.8e1 * t10800 - 0.3e1 / 0.4e1 * t10802 - 0.3e1 / 0.4e1 * t10804 + 0.3e1 / 0.4e1 * t10806 + 0.3e1 / 0.4e1 * t10808 - t9564 - t9566 + t9570;
9543   t10811 = -t9574 + t9587 + t9591 - t9601 + t9614 - t9618 - t9712 + t9714 - t9718 - t9721 + t9724 + t9728 - t9730 - t9733 - t9746 - t9749 + t9752 - t9762 - t9793;
9544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9545     v4rho2sigmalapl[0] = t10524 + t10580 + t10626 + t10675 + t10726 + t10774 + t10810 + t10811;
9546 
9547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9548     v4rho2sigmalapl[1] = 0.0e0;
9549 
9550   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9551     v4rho2sigmalapl[2] = 0.0e0;
9552 
9553   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9554     v4rho2sigmalapl[3] = 0.0e0;
9555 
9556   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9557     v4rho2sigmalapl[4] = 0.0e0;
9558 
9559   t10814 = t154 * t5182;
9560   t10818 = 0.3e1 / 0.16e2 * t318 * t653;
9561   t10819 = t7850 * t2613;
9562   t10821 = t1618 * t6703;
9563   t10825 = 0.3e1 / 0.16e2 * t318 * t657;
9564   t10826 = t7850 * t2618;
9565   t10828 = t1159 * t6703;
9566   t10831 = t6122 * t2602;
9567   t10832 = t10831 * t1902;
9568   t10837 = 0.3e1 / 0.16e2 * t318 * t649;
9569   t10838 = t7850 * t2608;
9570   t10841 = 0.3e1 / 0.32e2 * t1191 * t645;
9571   t10843 = t139 * t6682 * t153;
9572   t10846 = t154 * t5203;
9573   t10849 = t1618 * t6685;
9574   t10852 = t1159 * t6685;
9575   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9576     v4rho2sigmalapl[5] = -0.3e1 / 0.8e1 * t1913 * t10814 + t10818 + 0.9e1 / 0.8e1 * t10819 + 0.3e1 / 0.8e1 * t1913 * t10821 + t10825 + 0.9e1 / 0.8e1 * t10826 + 0.3e1 / 0.8e1 * t1913 * t10828 - 0.9e1 / 0.16e2 * t10832 - 0.3e1 / 0.16e2 * t2603 * t7870 - t10837 - 0.9e1 / 0.8e1 * t10838 - t10841 - t9832 - t9834 - t9837 - t9848 - 0.3e1 / 0.32e2 * t10843 * t7841 - 0.3e1 / 0.16e2 * t1892 * t10846 + 0.3e1 / 0.16e2 * t1892 * t10849 + 0.3e1 / 0.16e2 * t1892 * t10852;
9577 
9578   t10855 = t1502 * t6539;
9579   t10858 = t7351 * t2629;
9580   t10860 = t848 * t6539;
9581   t10863 = t10670 * t1873;
9582   t10865 = t1577 * t2557;
9583   t10868 = t7351 * t2623;
9584   t10870 = t145 * t4862;
9585   t10873 = t7351 * t2626;
9586   t10891 = -t2423 + 0.3e1 / 0.8e1 * t7705 * t10855 + 0.9e1 / 0.16e2 * t10858 + 0.3e1 / 0.8e1 * t7705 * t10860 - 0.9e1 / 0.32e2 * t10863 - 0.3e1 / 0.16e2 * t10865 * t7700 - 0.9e1 / 0.16e2 * t10868 - 0.3e1 / 0.8e1 * t7705 * t10870 + 0.9e1 / 0.16e2 * t10873 - 0.3e1 / 0.8e1 * t7402 * t2623 + 0.3e1 / 0.8e1 * t7402 * t2629 + 0.3e1 / 0.8e1 * t1827 * t9916 - 0.3e1 / 0.8e1 * t1827 * t9896 + 0.3e1 / 0.8e1 * t7402 * t2626 + 0.3e1 / 0.8e1 * t1827 * t9905 - 0.3e1 / 0.16e2 * t10648 * t1873 - 0.3e1 / 0.16e2 * t10553 * t1873;
9587   t10907 = -0.3e1 / 0.16e2 * t2558 * t7757 - 0.9e1 / 0.8e1 * t10487 - 0.3e1 / 0.8e1 * t10494 - 0.9e1 / 0.16e2 * t10497 + 0.9e1 / 0.8e1 * t10499 + 0.9e1 / 0.16e2 * t10545 + 0.3e1 / 0.2e1 * t10550 + 0.9e1 / 0.16e2 * t10619 - 0.9e1 / 0.8e1 * t10621 - 0.9e1 / 0.16e2 * t10653 - 0.9e1 / 0.32e2 * t10671 + 0.9e1 / 0.16e2 * t10683 - 0.3e1 / 0.4e1 * t10685 + 0.9e1 / 0.16e2 * t10689 - t9863 + t9875 - t9885 + t9887;
9588   t10911 = t7779 * t88;
9589   t10915 = t145 * t225;
9590   t10916 = t10915 * t4705;
9591   t10919 = t10915 * t9867;
9592   t10922 = t4218 * t6628;
9593   t10925 = t6627 * t88;
9594   t10926 = t10722 * t10925;
9595   t10929 = t10718 * t4827;
9596   t10932 = t10722 * t10911;
9597   t10938 = t10709 * t9867;
9598   t10941 = t10713 * t10925;
9599   t10944 = t4221 * t6628;
9600   t10947 = t10730 * t10925;
9601   t10952 = -t9891 - 0.3e1 / 0.32e2 * t10521 * t7781 + 0.9e1 / 0.16e2 * t2558 * t10699 * t10911 - 0.3e1 / 0.16e2 * t1869 * t10916 + 0.9e1 / 0.8e1 * t1827 * t10919 + 0.3e1 / 0.16e2 * t1869 * t10922 - 0.9e1 / 0.8e1 * t1827 * t10926 - 0.3e1 / 0.8e1 * t1827 * t10929 - 0.9e1 / 0.16e2 * t2558 * t10932 + 0.9e1 / 0.16e2 * t2558 * t10704 * t10911 + 0.3e1 / 0.2e1 * t1827 * t10938 - 0.9e1 / 0.8e1 * t1827 * t10941 + 0.3e1 / 0.16e2 * t1869 * t10944 - 0.3e1 / 0.4e1 * t1827 * t10947 - t2384 - 0.3e1 / 0.16e2 * t10784 - 0.3e1 / 0.16e2 * t10786 - t10789;
9602   t10960 = -t10791 + t10793 + t10795 + 0.3e1 / 0.8e1 * t10796 + 0.3e1 / 0.8e1 * t10798 - 0.3e1 / 0.16e2 * t10800 - 0.3e1 / 0.8e1 * t10802 - 0.3e1 / 0.8e1 * t10804 + 0.3e1 / 0.8e1 * t10806 + 0.3e1 / 0.8e1 * t10808 - t9944 - t9949 - t9958 + t9962 - t9975 + t9976 - t9977 - t9793;
9603   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9604     v4rho2sigmalapl[6] = t10891 + t10907 + t10952 + t10960;
9605 
9606   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9607     v4rho2sigmalapl[7] = 0.0e0;
9608 
9609   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9610     v4rho2sigmalapl[8] = 0.0e0;
9611 
9612   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9613     v4rho2sigmalapl[9] = 0.0e0;
9614 
9615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9616     v4rho2sigmalapl[10] = 0.0e0;
9617 
9618   t10962 = t6122 * t2661;
9619   t10963 = t10962 * t2669;
9620   t10965 = t10962 * t2702;
9621   t10967 = t7850 * t2705;
9622   t10969 = t6122 * t2672;
9623   t10970 = t10969 * t2691;
9624   t10972 = t7850 * t2694;
9625   t10974 = t10969 * t2697;
9626   t10976 = t10831 * t2011;
9627   t10978 = t10969 * t2674;
9628   t10980 = t10969 * t2679;
9629   t10982 = t10969 * t2682;
9630   t10984 = t10969 * t2685;
9631   t10986 = t7850 * t2688;
9632   t10988 = t10962 * t2665;
9633   t10995 = t139 * t6909 * t153;
9634   t10998 = -t2402 + 0.9e1 / 0.16e2 * t10963 + 0.9e1 / 0.16e2 * t10965 - 0.9e1 / 0.16e2 * t10967 - 0.9e1 / 0.8e1 * t10970 + 0.9e1 / 0.16e2 * t10972 - 0.3e1 / 0.4e1 * t10974 - 0.9e1 / 0.32e2 * t10976 + 0.3e1 / 0.2e1 * t10978 - 0.9e1 / 0.8e1 * t10980 - 0.3e1 / 0.8e1 * t10982 + 0.9e1 / 0.8e1 * t10984 + 0.9e1 / 0.16e2 * t10986 - 0.9e1 / 0.16e2 * t10988 + 0.3e1 / 0.8e1 * t7983 * t2618 + 0.3e1 / 0.8e1 * t1913 * t10007 - 0.3e1 / 0.16e2 * t10995 * t1902;
9635   t10999 = t1577 * t2602;
9636   t11002 = t154 * t5449;
9637   t11005 = t1159 * t6874;
9638   t11008 = t1618 * t6874;
9639   t11012 = t139 * t1595 * t454;
9640   t11029 = 0.3e1 / 0.16e2 * t10999 * t8016 + 0.3e1 / 0.8e1 * t7953 * t11002 - 0.3e1 / 0.8e1 * t7953 * t11005 - 0.3e1 / 0.8e1 * t7953 * t11008 - 0.3e1 / 0.16e2 * t11012 * t1902 - 0.3e1 / 0.16e2 * t2603 * t7975 - 0.3e1 / 0.8e1 * t7983 * t2608 - 0.3e1 / 0.8e1 * t1913 * t10035 + 0.3e1 / 0.8e1 * t7983 * t2613 + 0.3e1 / 0.8e1 * t1913 * t9995 + 0.9e1 / 0.16e2 * t10826 - 0.9e1 / 0.32e2 * t10832 - 0.9e1 / 0.16e2 * t10838 + 0.9e1 / 0.16e2 * t10819 - t9994 + t10021 + t10026 - t10031;
9641   t11031 = t465 * t1298;
9642   t11032 = t11031 * t9987;
9643   t11035 = t2676 * t1290;
9644   t11036 = t459 * t97;
9645   t11037 = t11035 * t11036;
9646   t11040 = t459 * t53;
9647   t11041 = t11040 * t5459;
9648   t11044 = t154 * t358;
9649   t11045 = t11044 * t9987;
9650   t11048 = t5905 * t6926;
9651   t11051 = t1618 * t1290;
9652   t11052 = t521 * t97;
9653   t11053 = t11051 * t11052;
9654   t11056 = t2668 * t1290;
9655   t11060 = t1598 * t1290;
9656   t11064 = t11044 * t5401;
9657   t11067 = t11051 * t11036;
9658   t11070 = t5908 * t6926;
9659   t11073 = t1159 * t1290;
9660   t11074 = t11073 * t11036;
9661   t11079 = t353 * t2632;
9662   t11081 = t117 * t2636;
9663   t11083 = t117 * t2640;
9664   t11085 = -t10049 + 0.3e1 / 0.2e1 * t1913 * t11032 - 0.9e1 / 0.8e1 * t1913 * t11037 - 0.3e1 / 0.8e1 * t1913 * t11041 + 0.9e1 / 0.8e1 * t1913 * t11045 + 0.3e1 / 0.16e2 * t1892 * t11048 - 0.9e1 / 0.16e2 * t2603 * t11053 + 0.9e1 / 0.16e2 * t2603 * t11056 * t11052 + 0.9e1 / 0.16e2 * t2603 * t11060 * t11052 - 0.3e1 / 0.16e2 * t1892 * t11064 - 0.9e1 / 0.8e1 * t1913 * t11067 + 0.3e1 / 0.16e2 * t1892 * t11070 - 0.3e1 / 0.4e1 * t1913 * t11074 - 0.3e1 / 0.32e2 * t10843 * t8028 - t2399 - 0.3e1 / 0.16e2 * t11079 - 0.3e1 / 0.8e1 * t11081 - 0.3e1 / 0.8e1 * t11083;
9665   t11086 = t117 * t2643;
9666   t11088 = t117 * t2646;
9667   t11090 = t117 * t2649;
9668   t11092 = t117 * t2652;
9669   t11094 = t1329 * t645;
9670   t11096 = t353 * t2657;
9671   t11098 = 0.3e1 / 0.8e1 * t11086 + 0.3e1 / 0.8e1 * t11088 + 0.3e1 / 0.8e1 * t11090 + 0.3e1 / 0.8e1 * t11092 - 0.3e1 / 0.16e2 * t11094 - 0.3e1 / 0.16e2 * t11096 + t10818 + t10825 - t10837 - t10841 - t10068 + t10078 + t10084 - t10086 - t10100 + t10114 - t10121 - t9832;
9672   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9673     v4rho2sigmalapl[11] = t10998 + t11029 + t11085 + t11098;
9674 
9675   t11100 = t848 * t6793;
9676   t11103 = t145 * t5107;
9677   t11106 = t1502 * t6793;
9678   t11111 = t848 * t6784;
9679   t11116 = t145 * t5102;
9680   t11119 = t1502 * t6784;
9681   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9682     v4rho2sigmalapl[12] = 0.3e1 / 0.8e1 * t1827 * t11100 - 0.3e1 / 0.8e1 * t1827 * t11103 + 0.3e1 / 0.8e1 * t1827 * t11106 - 0.3e1 / 0.16e2 * t2558 * t7920 - t10789 - t10791 + t10793 + t10795 - t10141 - t10147 - t10161 - t9793 + 0.3e1 / 0.16e2 * t1869 * t11111 - 0.3e1 / 0.32e2 * t10521 * t7912 - 0.3e1 / 0.16e2 * t1869 * t11116 + 0.3e1 / 0.16e2 * t1869 * t11119 + 0.9e1 / 0.8e1 * t10858 - 0.9e1 / 0.16e2 * t10863 - 0.9e1 / 0.8e1 * t10868 + 0.9e1 / 0.8e1 * t10873;
9683 
9684   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9685     v4rho2sigmalapl[13] = 0.0e0;
9686 
9687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9688     v4rho2sigmalapl[14] = 0.0e0;
9689 
9690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9691     v4rho2sigmalapl[15] = 0.0e0;
9692 
9693   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9694     v4rho2sigmalapl[16] = 0.0e0;
9695 
9696   t11126 = t521 * t111;
9697   t11127 = t11051 * t11126;
9698   t11134 = t139 * t149 * t516;
9699   t11143 = t5888 * t167;
9700   t11144 = t11143 * t354;
9701   t11145 = t1680 * t11144;
9702   t11148 = t2676 * t11144;
9703   t11151 = t6054 * t6057;
9704   t11155 = t465 * t10271;
9705   t11158 = t1684 * t10296;
9706   t11161 = t6054 * t6069;
9707   t11162 = t5888 * t153;
9708   t11163 = t11162 * t354;
9709   t11164 = t11161 * t11163;
9710   t11167 = t1618 * t11144;
9711   t11170 = t10165 - t10166 - t10167 + t10168 - t10169 - 0.9e1 / 0.8e1 * t2603 * t11127 + 0.9e1 / 0.8e1 * t2603 * t11056 * t11126 + 0.3e1 / 0.2e1 * t11134 * t2685 + 0.3e1 / 0.2e1 * t2673 * t10196 - t11134 * t2682 / 0.2e1 - t2673 * t10205 / 0.2e1 - 0.7e1 / 0.8e1 * t2662 * t11145 + 0.11e2 / 0.4e1 * t2662 * t11148 - 0.15e2 / 0.8e1 * t2662 * t11151 * t11144 + 0.11e2 / 0.4e1 * t2673 * t11155 - 0.25e2 / 0.4e1 * t2673 * t11158 + 0.15e2 / 0.4e1 * t2673 * t11164 + 0.9e1 / 0.4e1 * t2662 * t11167;
9712   t11171 = t1290 * t516;
9713   t11172 = t11171 * t128;
9714   t11173 = t2668 * t11172;
9715   t11184 = t1679 * t7233;
9716   t11192 = t139 * t1661 * t153;
9717   t11198 = t139 * t445 * t454;
9718   t11203 = t1618 * t11172;
9719   t11208 = t2663 * t454;
9720   t11209 = t1598 * t11208;
9721   t11218 = 0.3e1 / 0.4e1 * t2662 * t11173 + 0.2e1 * t11134 * t2674 + 0.2e1 * t2673 * t10187 - 0.3e1 / 0.2e1 * t11134 * t2679 - 0.3e1 / 0.2e1 * t2673 * t10190 - t2673 * t11184 / 0.4e1 - 0.3e1 / 0.2e1 * t11134 * t2691 - 0.3e1 / 0.2e1 * t2673 * t10176 - 0.5e1 / 0.8e1 * t11192 * t2665 + 0.5e1 / 0.8e1 * t11192 * t2669 - 0.3e1 / 0.4e1 * t11198 * t2665 + 0.3e1 / 0.4e1 * t11198 * t2669 - 0.3e1 / 0.4e1 * t2662 * t11203 + 0.3e1 / 0.4e1 * t1913 * t10244 + 0.3e1 / 0.4e1 * t7079 * t11209 - 0.3e1 / 0.8e1 * t10995 * t2011 + 0.5e1 / 0.8e1 * t11192 * t2702 - 0.3e1 / 0.8e1 * t11012 * t2011;
9722   t11227 = t11171 * t153;
9723   t11228 = t1598 * t11227;
9724   t11234 = t1679 * t7304;
9725   t11238 = t154 * t5889 * t354;
9726   t11245 = t154 * t5815;
9727   t11250 = t1159 * t7100;
9728   t11253 = t1159 * t7080;
9729   t11257 = t139 * t445 * t354;
9730   t11258 = t11143 * t153;
9731   t11262 = t1647 * t1690;
9732   t11265 = t154 * t5759;
9733   t11268 = -0.3e1 / 0.8e1 * t2603 * t8142 - 0.3e1 / 0.4e1 * t7983 * t2705 + 0.3e1 / 0.4e1 * t7983 * t2694 - t11134 * t2697 + 0.3e1 / 0.4e1 * t7079 * t11228 + 0.3e1 / 0.4e1 * t1913 * t10218 - t2673 * t10236 + 0.3e1 / 0.2e1 * t2673 * t11234 - 0.11e2 / 0.4e1 * t2673 * t11238 - 0.3e1 / 0.16e2 * t2603 * t8147 + 0.3e1 / 0.8e1 * t2662 * t8166 - 0.3e1 / 0.8e1 * t1913 * t11245 - 0.3e1 / 0.4e1 * t2673 * t7081 + 0.3e1 / 0.8e1 * t1913 * t11250 - t2673 * t11253 / 0.2e1 - 0.11e2 / 0.8e1 * t11257 * t1598 * t11258 - t2673 * t11262 / 0.4e1 + 0.3e1 / 0.4e1 * t2673 * t11265;
9734   t11269 = t1618 * t7100;
9735   t11274 = t465 * t5788;
9736   t11276 = t2676 * t7080;
9737   t11279 = t1618 * t8158;
9738   t11286 = t1159 * t11163;
9739   t11291 = t154 * t5755;
9740   t11294 = t1618 * t7028;
9741   t11297 = t1618 * t11163;
9742   t11300 = t1159 * t7028;
9743   t11306 = t465 * t10265;
9744   t11309 = t2676 * t11163;
9745   t11315 = 0.3e1 / 0.8e1 * t1913 * t11269 + 0.3e1 / 0.8e1 * t2662 * t8159 + t2673 * t11274 - 0.3e1 / 0.4e1 * t2673 * t11276 - 0.3e1 / 0.8e1 * t2662 * t11279 - 0.3e1 / 0.4e1 * t1913 * t10221 + 0.3e1 / 0.4e1 * t7983 * t2688 + 0.3e1 / 0.2e1 * t2673 * t11286 - 0.3e1 / 0.32e2 * t10843 * t8195 - 0.3e1 / 0.16e2 * t1892 * t11291 + 0.3e1 / 0.16e2 * t1892 * t11294 + 0.11e2 / 0.4e1 * t2673 * t11297 + 0.3e1 / 0.16e2 * t1892 * t11300 - 0.9e1 / 0.4e1 * t2662 * t2668 * t11144 - 0.6e1 * t2673 * t11306 + 0.9e1 / 0.2e1 * t2673 * t11309 + 0.9e1 / 0.8e1 * t10963 + 0.9e1 / 0.8e1 * t10965 - 0.9e1 / 0.8e1 * t10967;
9746   t11328 = t6925 * t128;
9747   t11329 = t11073 * t11328;
9748   t11332 = t648 * t111;
9749   t11336 = t11031 * t10170;
9750   t11339 = t11035 * t11328;
9751   t11342 = -0.9e1 / 0.4e1 * t10970 + 0.9e1 / 0.8e1 * t10972 - 0.3e1 / 0.2e1 * t10974 - 0.9e1 / 0.16e2 * t10976 + 0.3e1 * t10978 - 0.9e1 / 0.4e1 * t10980 - 0.3e1 / 0.4e1 * t10982 + 0.9e1 / 0.4e1 * t10984 + 0.9e1 / 0.8e1 * t10986 - 0.9e1 / 0.8e1 * t10988 + t10180 - t10200 + t10225 - t10229 - 0.3e1 / 0.2e1 * t1913 * t11329 + 0.9e1 / 0.8e1 * t1597 * t11060 * t11332 + 0.3e1 * t1913 * t11336 - 0.9e1 / 0.4e1 * t1913 * t11339;
9752   t11343 = t11040 * t5738;
9753   t11346 = t11044 * t10170;
9754   t11349 = t11051 * t11328;
9755   t11391 = -0.3e1 / 0.4e1 * t1913 * t11343 + 0.9e1 / 0.4e1 * t1913 * t11346 - 0.9e1 / 0.4e1 * t1913 * t11349 - t10251 - t619 - t7257 * t645 / 0.8e1 - t1662 * t2657 / 0.4e1 - t1662 * t2632 / 0.4e1 - t446 * t7225 * t511 / 0.8e1 - t446 * t1695 * t1948 / 0.4e1 - t446 * t465 * t8261 / 0.8e1 - t150 * t2018 * t153 * t461 / 0.4e1 - t150 * t516 * t454 * t461 / 0.2e1 + t150 * t2019 * t656 / 0.4e1 + t150 * t517 * t2472 / 0.2e1 + t150 * t168 * t10352 / 0.4e1 - t150 * t167 * t1741 * t461 / 0.4e1 + t150 * t8328 * t652 / 0.4e1;
9756   t11408 = t150 * t1974 * t2463 / 0.2e1 + t150 * t525 * t10376 / 0.4e1 - 0.3e1 / 0.8e1 * t11079 - 0.3e1 / 0.4e1 * t11081 - 0.3e1 / 0.4e1 * t11083 + 0.3e1 / 0.4e1 * t11086 + 0.3e1 / 0.4e1 * t11088 + 0.3e1 / 0.4e1 * t11090 + 0.3e1 / 0.4e1 * t11092 - 0.3e1 / 0.8e1 * t11094 - 0.3e1 / 0.8e1 * t11096 + t10818 + t10825 - t10837 - t10841 - t10258 - t10260 + t10264;
9757   t11409 = -t10278 + t10288 + t10301 - t10305 - t10321 - t10324 - t10342 + t10396 - t10407 - t10427 + t10430 + t10434 - t10436 - t10445 + t10449 + t10452 - t10453 - t10461 - t9832;
9758   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
9759     v4rho2sigmalapl[17] = t11170 + t11218 + t11268 + t11315 + t11342 + t11391 + t11408 + t11409;
9760 
9761   t11412 = t4285 * t172;
9762   t11413 = t11412 * t221;
9763   t11414 = t2583 * t11413;
9764   t11417 = t10566 * t11413;
9765   t11427 = t139 * t140 * t542;
9766   t11432 = t870 * t542;
9767   t11433 = t11432 * t88;
9768   t11434 = t1502 * t11433;
9769   t11441 = t1491 * t11413;
9770   t11444 = t2756 * t412;
9771   t11445 = t1502 * t11444;
9772   t11460 = 0.11e2 / 0.4e1 * t2562 * t11414 - 0.15e2 / 0.8e1 * t2562 * t11417 + 0.11e2 / 0.4e1 * t2747 * t10507 - 0.25e2 / 0.4e1 * t2747 * t10510 - t2747 * t9497 / 0.2e1 + 0.3e1 / 0.2e1 * t11427 * t2571 - t11427 * t2587 / 0.2e1 - 0.3e1 / 0.4e1 * t2562 * t11434 + 0.2e1 * t2747 * t9502 + 0.15e2 / 0.4e1 * t2747 * t10514 - 0.7e1 / 0.8e1 * t2562 * t11441 - 0.3e1 / 0.4e1 * t6185 * t11445 - t2747 * t10601 / 0.4e1 + 0.2e1 * t11427 * t2581 - 0.3e1 / 0.2e1 * t11427 * t2584 - 0.3e1 / 0.2e1 * t2747 * t9464 - 0.5e1 / 0.8e1 * t10577 * t2763 + 0.5e1 / 0.8e1 * t10577 * t2766;
9773   t11469 = t11432 * t144;
9774   t11470 = t2577 * t11469;
9775   t11477 = t2577 * t11444;
9776   t11483 = t1517 * t11469;
9777   t11493 = t6122 * t2746;
9778   t11494 = t11493 * t2554;
9779   t11500 = -0.3e1 / 0.8e1 * t2558 * t8449 - 0.3e1 / 0.4e1 * t8411 * t2568 + 0.3e1 / 0.4e1 * t8411 * t2590 - 0.3e1 / 0.2e1 * t11427 * t2593 + 0.3e1 / 0.4e1 * t6185 * t11470 + 0.3e1 / 0.4e1 * t2104 * t9536 - 0.3e1 / 0.2e1 * t2747 * t9475 + 0.3e1 / 0.4e1 * t6185 * t11477 + 0.3e1 / 0.4e1 * t8411 * t2596 - t11427 * t2554 + 0.3e1 / 0.4e1 * t6185 * t11483 + 0.3e1 / 0.4e1 * t2104 * t9505 - t2747 * t9516 - 0.3e1 / 0.4e1 * t2104 * t9539 + 0.3e1 / 0.2e1 * t2747 * t9488 - 0.3e1 / 0.2e1 * t11494 - t2747 * t10694 / 0.4e1 + 0.3e1 / 0.4e1 * t2747 * t10658;
9780   t11507 = t1502 * t8468;
9781   t11510 = t1517 * t11444;
9782   t11527 = t11493 * t2587;
9783   t11531 = t11493 * t2571;
9784   t11537 = t10496 * t2763;
9785   t11539 = 0.3e1 / 0.8e1 * t2562 * t8469 + t2747 * t10627 - 0.3e1 / 0.4e1 * t2747 * t10629 - 0.3e1 / 0.8e1 * t2562 * t11507 + 0.3e1 / 0.4e1 * t6185 * t11510 - 0.3e1 / 0.8e1 * t10648 * t2109 + 0.5e1 / 0.8e1 * t10577 * t2758 - 0.3e1 / 0.8e1 * t10553 * t2109 + 0.3e1 / 0.16e2 * t2146 * t10537 + 0.3e1 / 0.2e1 * t2747 * t10517 - 0.3e1 / 0.32e2 * t10521 * t8495 + 0.9e1 / 0.2e1 * t2747 * t10491 - 0.3e1 / 0.4e1 * t11527 + 0.3e1 / 0.2e1 * t2747 * t10528 + 0.9e1 / 0.4e1 * t11531 - 0.11e2 / 0.4e1 * t2747 * t10604 + 0.3e1 / 0.16e2 * t2146 * t10531 - 0.9e1 / 0.8e1 * t11537;
9786   t11540 = t1502 * t11413;
9787   t11543 = t10496 * t2766;
9788   t11548 = t11493 * t2581;
9789   t11552 = t11493 * t2584;
9790   t11554 = t8403 * t2590;
9791   t11556 = t11493 * t2593;
9792   t11562 = t8403 * t2596;
9793   t11570 = 0.9e1 / 0.4e1 * t2562 * t11540 + 0.9e1 / 0.8e1 * t11543 - 0.9e1 / 0.4e1 * t2562 * t2577 * t11413 + 0.3e1 * t11548 - 0.6e1 * t2747 * t10483 - 0.9e1 / 0.4e1 * t11552 + 0.9e1 / 0.8e1 * t11554 - 0.9e1 / 0.4e1 * t11556 + 0.3e1 / 0.8e1 * t2104 * t10678 - 0.3e1 / 0.4e1 * t2747 * t6187 + 0.9e1 / 0.8e1 * t11562 - t9451 - t9452 + t9453 - t9454 + t9455 + 0.3e1 * t2104 * t10710 - 0.9e1 / 0.4e1 * t2104 * t10715 - 0.3e1 / 0.2e1 * t2104 * t10731;
9794   t11573 = t663 * t67;
9795   t11574 = t10699 * t11573;
9796   t11583 = t547 * t67;
9797   t11584 = t10722 * t11583;
9798   t11594 = t8403 * t2568;
9799   t11598 = t10687 * t3716;
9800   t11604 = t11412 * t144;
9801   t11605 = t1517 * t11604;
9802   t11608 = t10670 * t2109;
9803   t11614 = 0.9e1 / 0.8e1 * t1516 * t11574 - 0.3e1 / 0.4e1 * t2104 * t10719 + 0.9e1 / 0.4e1 * t2104 * t10734 - 0.9e1 / 0.4e1 * t2104 * t10727 - 0.9e1 / 0.8e1 * t2558 * t11584 + 0.9e1 / 0.8e1 * t2558 * t10704 * t11583 - 0.3e1 / 0.16e2 * t2558 * t8457 + 0.3e1 / 0.8e1 * t2562 * t8478 - 0.9e1 / 0.8e1 * t11594 - 0.3e1 / 0.8e1 * t2104 * t10655 + 0.9e1 / 0.8e1 * t11598 + 0.3e1 / 0.8e1 * t2104 * t10691 - t2747 * t10661 / 0.2e1 - 0.11e2 / 0.8e1 * t10665 * t11605 - 0.9e1 / 0.16e2 * t11608 - 0.3e1 / 0.16e2 * t2146 * t10525 + 0.11e2 / 0.4e1 * t2747 * t10534 + t9484;
9804   t11615 = t77 * t2709;
9805   t11617 = t77 * t2712;
9806   t11619 = t77 * t2715;
9807   t11621 = t77 * t2739;
9808   t11648 = -t9492 + t9530 - t9535 - t9544 - t599 + 0.3e1 / 0.4e1 * t11615 + 0.3e1 / 0.4e1 * t11617 + 0.3e1 / 0.4e1 * t11619 - 0.3e1 / 0.4e1 * t11621 - t404 * t423 * t8607 / 0.8e1 - t141 * t2121 * t144 * t419 / 0.4e1 + t141 * t2122 * t641 / 0.4e1 + t141 * t543 * t2324 / 0.2e1 + t141 * t173 * t9734 / 0.4e1 - t6459 * t660 / 0.8e1 - t1462 * t2720 / 0.4e1 - t1462 * t2723 / 0.4e1 - t404 * t6407 * t537 / 0.8e1;
9809   t11671 = 0.3e1 / 0.16e2 * t213 * t664;
9810   t11673 = 0.3e1 / 0.32e2 * t844 * t660;
9811   t11675 = 0.3e1 / 0.16e2 * t213 * t670;
9812   t11677 = 0.3e1 / 0.16e2 * t213 * t667;
9813   t11678 = t862 * t660;
9814   t11680 = t220 * t2720;
9815   t11682 = t220 * t2723;
9816   t11684 = t77 * t2727;
9817   t11686 = t77 * t2742;
9818   t11688 = -t404 * t1410 * t2080 / 0.4e1 - t141 * t542 * t412 * t419 / 0.2e1 - t141 * t172 * t1527 * t419 / 0.4e1 + t141 * t8709 * t637 / 0.4e1 + t141 * t2028 * t2366 / 0.2e1 + t141 * t551 * t9775 / 0.4e1 - t11671 - t11673 + t11675 + t11677 - 0.3e1 / 0.8e1 * t11678 - 0.3e1 / 0.8e1 * t11680 - 0.3e1 / 0.8e1 * t11682 - 0.3e1 / 0.4e1 * t11684 + 0.3e1 / 0.4e1 * t11686 - t9564 - t9566 + t9570;
9819   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9820     v4rho2sigmatau[0] = t11460 + t11500 + t11539 + t11570 + t11614 + t11648 + t11688 + t10811;
9821 
9822   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9823     v4rho2sigmatau[1] = 0.0e0;
9824 
9825   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9826     v4rho2sigmatau[2] = 0.0e0;
9827 
9828   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9829     v4rho2sigmatau[3] = 0.0e0;
9830 
9831   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9832     v4rho2sigmatau[4] = 0.0e0;
9833 
9834   t11694 = 0.3e1 / 0.16e2 * t318 * t680;
9835   t11695 = t8894 * t2613;
9836   t11700 = 0.3e1 / 0.16e2 * t318 * t683;
9837   t11701 = t8894 * t2618;
9838   t11705 = t10831 * t2179;
9839   t11710 = 0.3e1 / 0.16e2 * t318 * t677;
9840   t11711 = t8894 * t2608;
9841   t11714 = 0.3e1 / 0.32e2 * t1191 * t673;
9842   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9843     v4rho2sigmatau[5] = -0.3e1 / 0.8e1 * t2190 * t10814 + t11694 + 0.9e1 / 0.8e1 * t11695 + 0.3e1 / 0.8e1 * t2190 * t10821 + t11700 + 0.9e1 / 0.8e1 * t11701 + 0.3e1 / 0.8e1 * t2190 * t10828 - 0.9e1 / 0.16e2 * t11705 - 0.3e1 / 0.16e2 * t2603 * t8900 - t11710 - 0.9e1 / 0.8e1 * t11711 - t11714 + 0.3e1 / 0.16e2 * t2169 * t10849 + 0.3e1 / 0.16e2 * t2169 * t10852 - 0.3e1 / 0.32e2 * t10843 * t8887 - 0.3e1 / 0.16e2 * t2169 * t10846 - t9832 - t9834 - t9837 - t9848;
9844 
9845   t11737 = t8403 * t2626;
9846   t11741 = t8403 * t2629;
9847   t11745 = t10670 * t2150;
9848   t11749 = t8403 * t2623;
9849   t11757 = 0.3e1 / 0.8e1 * t8411 * t2626 + 0.3e1 / 0.8e1 * t2104 * t9905 - 0.3e1 / 0.16e2 * t10648 * t2150 - 0.3e1 / 0.16e2 * t10553 * t2150 - 0.3e1 / 0.16e2 * t2558 * t8796 - 0.3e1 / 0.8e1 * t8411 * t2623 - 0.3e1 / 0.8e1 * t8764 * t10870 + 0.9e1 / 0.16e2 * t11737 + 0.3e1 / 0.8e1 * t8764 * t10855 + 0.9e1 / 0.16e2 * t11741 + 0.3e1 / 0.8e1 * t8764 * t10860 - 0.9e1 / 0.32e2 * t11745 - 0.3e1 / 0.16e2 * t10865 * t8759 - 0.9e1 / 0.16e2 * t11749 + 0.3e1 / 0.8e1 * t8411 * t2629 + 0.3e1 / 0.8e1 * t2104 * t9916 - 0.3e1 / 0.8e1 * t2104 * t9896;
9850   t11771 = -0.3e1 / 0.4e1 * t11494 - 0.3e1 / 0.8e1 * t11527 + 0.9e1 / 0.8e1 * t11531 - 0.9e1 / 0.16e2 * t11537 + 0.9e1 / 0.16e2 * t11543 + 0.3e1 / 0.2e1 * t11548 - 0.9e1 / 0.8e1 * t11552 + 0.9e1 / 0.16e2 * t11554 - 0.9e1 / 0.8e1 * t11556 + 0.9e1 / 0.16e2 * t11562 - t2423 - 0.9e1 / 0.16e2 * t11594 + 0.9e1 / 0.16e2 * t11598 - 0.9e1 / 0.32e2 * t11608 - t9863 + t9875 - t9885 + t9887;
9851   t11782 = -t9891 - t2384 + 0.3e1 / 0.8e1 * t11615 + 0.3e1 / 0.8e1 * t11617 + 0.3e1 / 0.8e1 * t11619 - 0.3e1 / 0.8e1 * t11621 - t11671 - t11673 + t11675 + t11677 - 0.3e1 / 0.16e2 * t11678 - 0.3e1 / 0.16e2 * t11680 - 0.3e1 / 0.16e2 * t11682 - 0.3e1 / 0.8e1 * t11684 + 0.3e1 / 0.8e1 * t11686 - t9944 - t9949 - t9958;
9852   t11785 = t8832 * t88;
9853   t11786 = t10722 * t11785;
9854   t11789 = t10704 * t11785;
9855   t11804 = t10699 * t11785;
9856   t11813 = t9962 - t9975 + t9976 - t9977 - 0.3e1 / 0.8e1 * t2104 * t10929 - 0.9e1 / 0.16e2 * t2558 * t11786 + 0.9e1 / 0.16e2 * t2558 * t11789 + 0.3e1 / 0.2e1 * t2104 * t10938 - 0.9e1 / 0.8e1 * t2104 * t10941 - 0.9e1 / 0.8e1 * t2104 * t10926 + 0.3e1 / 0.16e2 * t2146 * t10944 - 0.3e1 / 0.4e1 * t2104 * t10947 - 0.3e1 / 0.32e2 * t10521 * t8834 + 0.9e1 / 0.16e2 * t2558 * t11804 - 0.3e1 / 0.16e2 * t2146 * t10916 + 0.9e1 / 0.8e1 * t2104 * t10919 + 0.3e1 / 0.16e2 * t2146 * t10922 - t9793;
9857   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9858     v4rho2sigmatau[6] = t11757 + t11771 + t11782 + t11813;
9859 
9860   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9861     v4rho2sigmatau[7] = 0.0e0;
9862 
9863   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9864     v4rho2sigmatau[8] = 0.0e0;
9865 
9866   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9867     v4rho2sigmatau[9] = 0.0e0;
9868 
9869   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9870     v4rho2sigmatau[10] = 0.0e0;
9871 
9872   t11815 = t10831 * t2288;
9873   t11817 = t10962 * t2851;
9874   t11819 = t8894 * t2705;
9875   t11821 = t6122 * t2840;
9876   t11822 = t11821 * t2685;
9877   t11824 = t8894 * t2688;
9878   t11826 = t11821 * t2697;
9879   t11828 = t11821 * t2674;
9880   t11830 = t11821 * t2679;
9881   t11832 = t11821 * t2682;
9882   t11834 = t11821 * t2691;
9883   t11836 = t8894 * t2694;
9884   t11838 = t10962 * t2834;
9885   t11840 = t10962 * t2837;
9886   t11850 = -0.9e1 / 0.32e2 * t11815 + 0.9e1 / 0.16e2 * t11817 - 0.9e1 / 0.16e2 * t11819 + 0.9e1 / 0.8e1 * t11822 + 0.9e1 / 0.16e2 * t11824 - 0.3e1 / 0.4e1 * t11826 + 0.3e1 / 0.2e1 * t11828 - 0.9e1 / 0.8e1 * t11830 - 0.3e1 / 0.8e1 * t11832 - 0.9e1 / 0.8e1 * t11834 + 0.9e1 / 0.16e2 * t11836 - 0.9e1 / 0.16e2 * t11838 + 0.9e1 / 0.16e2 * t11840 - 0.3e1 / 0.8e1 * t9044 * t11008 - 0.3e1 / 0.8e1 * t9044 * t11005 - 0.3e1 / 0.8e1 * t9034 * t2608 - 0.3e1 / 0.8e1 * t2190 * t10035;
9887   t11873 = 0.3e1 / 0.8e1 * t9044 * t11002 + 0.3e1 / 0.16e2 * t10999 * t9061 - 0.3e1 / 0.16e2 * t11012 * t2179 - 0.3e1 / 0.16e2 * t2603 * t9030 + 0.3e1 / 0.8e1 * t9034 * t2613 + 0.3e1 / 0.8e1 * t2190 * t9995 + 0.3e1 / 0.8e1 * t9034 * t2618 + 0.3e1 / 0.8e1 * t2190 * t10007 - 0.3e1 / 0.16e2 * t10995 * t2179 + 0.9e1 / 0.16e2 * t11695 + 0.9e1 / 0.16e2 * t11701 - 0.9e1 / 0.32e2 * t11705 - 0.9e1 / 0.16e2 * t11711 - t2402 - t9994 + t10021 + t10026 - t10031;
9888   t11875 = t117 * t2804;
9889   t11877 = t117 * t2808;
9890   t11879 = t353 * t2825;
9891   t11881 = t353 * t2828;
9892   t11883 = t117 * t2811;
9893   t11885 = t117 * t2814;
9894   t11887 = t117 * t2817;
9895   t11889 = t117 * t2820;
9896   t11891 = t1329 * t673;
9897   t11893 = -t10049 - t2399 - 0.3e1 / 0.8e1 * t11875 - 0.3e1 / 0.8e1 * t11877 - 0.3e1 / 0.16e2 * t11879 - 0.3e1 / 0.16e2 * t11881 + 0.3e1 / 0.8e1 * t11883 + 0.3e1 / 0.8e1 * t11885 + 0.3e1 / 0.8e1 * t11887 + 0.3e1 / 0.8e1 * t11889 - 0.3e1 / 0.16e2 * t11891 + t11694 + t11700 - t11710 - t11714 - t10068 + t10078 + t10084;
9898   t11912 = t579 * t97;
9899   t11913 = t11051 * t11912;
9900   t11916 = t11056 * t11912;
9901   t11921 = t11060 * t11912;
9902   t11924 = -t10086 - t10100 + t10114 - t10121 - 0.3e1 / 0.16e2 * t2169 * t11064 + 0.9e1 / 0.8e1 * t2190 * t11045 + 0.3e1 / 0.16e2 * t2169 * t11048 - 0.3e1 / 0.4e1 * t2190 * t11074 + 0.3e1 / 0.2e1 * t2190 * t11032 - 0.9e1 / 0.8e1 * t2190 * t11037 - 0.3e1 / 0.8e1 * t2190 * t11041 - 0.9e1 / 0.8e1 * t2190 * t11067 + 0.3e1 / 0.16e2 * t2169 * t11070 - 0.9e1 / 0.16e2 * t2603 * t11913 + 0.9e1 / 0.16e2 * t2603 * t11916 - 0.3e1 / 0.32e2 * t10843 * t9079 + 0.9e1 / 0.16e2 * t2603 * t11921 - t9832;
9903   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9904     v4rho2sigmatau[11] = t11850 + t11873 + t11893 + t11924;
9905 
9906   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9907     v4rho2sigmatau[12] = 0.3e1 / 0.8e1 * t2104 * t11100 - 0.3e1 / 0.8e1 * t2104 * t11103 + 0.3e1 / 0.8e1 * t2104 * t11106 - 0.3e1 / 0.16e2 * t2558 * t8965 - t11671 - t11673 - 0.3e1 / 0.16e2 * t2146 * t11116 + 0.3e1 / 0.16e2 * t2146 * t11119 + 0.3e1 / 0.16e2 * t2146 * t11111 - 0.3e1 / 0.32e2 * t10521 * t8973 + 0.9e1 / 0.8e1 * t11737 + 0.9e1 / 0.8e1 * t11741 - 0.9e1 / 0.16e2 * t11745 - 0.9e1 / 0.8e1 * t11749 + t11675 + t11677 - t10141 - t10147 - t10161 - t9793;
9908 
9909   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9910     v4rho2sigmatau[13] = 0.0e0;
9911 
9912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9913     v4rho2sigmatau[14] = 0.0e0;
9914 
9915   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9916     v4rho2sigmatau[15] = 0.0e0;
9917 
9918   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9919     v4rho2sigmatau[16] = 0.0e0;
9920 
9921   t11947 = t139 * t149 * t574;
9922   t11952 = t5888 * t177;
9923   t11953 = t11952 * t153;
9924   t11954 = t1598 * t11953;
9925   t11961 = t1290 * t574;
9926   t11962 = t11961 * t128;
9927   t11985 = t11961 * t153;
9928   t11986 = t1618 * t11985;
9929   t11989 = -t11947 * t2697 - t2841 * t10236 - t2841 * t11253 / 0.2e1 - 0.11e2 / 0.8e1 * t11257 * t11954 - 0.3e1 / 0.8e1 * t10995 * t2288 + 0.3e1 / 0.4e1 * t11198 * t2851 + 0.3e1 / 0.4e1 * t2662 * t1598 * t11962 + 0.3e1 / 0.8e1 * t2662 * t9199 - 0.3e1 / 0.4e1 * t9034 * t2705 - 0.3e1 / 0.4e1 * t2190 * t10221 - 0.3e1 / 0.8e1 * t2190 * t11245 + 0.3e1 / 0.2e1 * t11947 * t2685 + 0.3e1 / 0.2e1 * t2841 * t10196 + 0.3e1 / 0.4e1 * t2841 * t11265 + 0.3e1 / 0.8e1 * t2662 * t9191 + t2841 * t11274 - 0.3e1 / 0.4e1 * t2841 * t11276 - 0.3e1 / 0.4e1 * t7079 * t11986;
9930   t11990 = t2832 * t454;
9931   t11991 = t1618 * t11990;
9932   t11994 = t2668 * t11985;
9933   t11997 = t2668 * t11990;
9934   t12030 = -0.3e1 / 0.4e1 * t7079 * t11991 + 0.3e1 / 0.4e1 * t7079 * t11994 + 0.3e1 / 0.4e1 * t7079 * t11997 + 0.3e1 / 0.4e1 * t9034 * t2688 + 0.3e1 / 0.4e1 * t2190 * t10244 + 0.3e1 / 0.8e1 * t2190 * t11269 - 0.3e1 / 0.2e1 * t11947 * t2691 - 0.3e1 / 0.2e1 * t2841 * t10176 - 0.3e1 / 0.4e1 * t2841 * t7081 + 0.3e1 / 0.4e1 * t9034 * t2694 + 0.3e1 / 0.4e1 * t2190 * t10218 + 0.3e1 / 0.8e1 * t2190 * t11250 - 0.3e1 / 0.8e1 * t11012 * t2288 - 0.3e1 / 0.8e1 * t2603 * t9203 - 0.3e1 / 0.16e2 * t2603 * t9211 + 0.5e1 / 0.8e1 * t11192 * t2851 - t2841 * t11262 / 0.4e1 - 0.3e1 / 0.8e1 * t2662 * t9224;
9935   t12045 = -0.9e1 / 0.16e2 * t11815 + 0.9e1 / 0.8e1 * t11817 - 0.9e1 / 0.8e1 * t11819 + 0.9e1 / 0.4e1 * t11822 + 0.9e1 / 0.8e1 * t11824 - 0.3e1 / 0.2e1 * t11826 + 0.3e1 * t11828 - 0.9e1 / 0.4e1 * t11830 - 0.3e1 / 0.4e1 * t11832 - 0.9e1 / 0.4e1 * t11834 + 0.9e1 / 0.8e1 * t11836 - 0.9e1 / 0.8e1 * t11838 + 0.9e1 / 0.8e1 * t11840 + t10165 - t10166 - t10167 + t10168 - t10169;
9936   t12083 = t10180 - t10200 + t10225 - t10229 - t10251 - t619 - t7257 * t673 / 0.8e1 - t1662 * t2825 / 0.4e1 - t1662 * t2828 / 0.4e1 - t446 * t7225 * t569 / 0.8e1 - t446 * t1695 * t2208 / 0.4e1 - t446 * t465 * t9385 / 0.8e1 - t150 * t177 * t1741 * t461 / 0.4e1 + t150 * t9370 * t652 / 0.4e1 + t150 * t2227 * t2463 / 0.2e1 + t150 * t583 * t10376 / 0.4e1 + t150 * t2296 * t656 / 0.4e1 + t150 * t575 * t2472 / 0.2e1 + t150 * t178 * t10352 / 0.4e1;
9937   t12103 = -t150 * t2295 * t153 * t461 / 0.4e1 - t150 * t574 * t454 * t461 / 0.2e1 - 0.3e1 / 0.4e1 * t11875 - 0.3e1 / 0.4e1 * t11877 - 0.3e1 / 0.8e1 * t11879 - 0.3e1 / 0.8e1 * t11881 + 0.3e1 / 0.4e1 * t11883 + 0.3e1 / 0.4e1 * t11885 + 0.3e1 / 0.4e1 * t11887 + 0.3e1 / 0.4e1 * t11889 - 0.3e1 / 0.8e1 * t11891 + t11694 + t11700 - t11710 - t11714 - t10258 - t10260 + t10264;
9938   t12104 = -t10278 + t10288 + t10301 - t10305 - t10321 - t10324 - t10342 + t10396 - t10407 - t10427 + t10430 + t10434 - t10436 - t10445 + t10449 + t10452 - t10453 - t10461;
9939   t12110 = t9077 * t128;
9940   t12111 = t11051 * t12110;
9941   t12114 = t11056 * t12110;
9942   t12144 = 0.3e1 * t2190 * t11336 - 0.9e1 / 0.4e1 * t2190 * t11339 - 0.9e1 / 0.8e1 * t2603 * t12111 + 0.9e1 / 0.8e1 * t2603 * t12114 - 0.3e1 / 0.4e1 * t2190 * t11343 - 0.9e1 / 0.4e1 * t2190 * t11349 + 0.9e1 / 0.8e1 * t2603 * t11060 * t12110 + 0.9e1 / 0.4e1 * t2190 * t11346 - 0.3e1 / 0.2e1 * t2190 * t11329 + 0.3e1 / 0.16e2 * t2169 * t11300 - 0.3e1 / 0.32e2 * t10843 * t9234 - 0.3e1 / 0.16e2 * t2169 * t11291 + 0.3e1 / 0.16e2 * t2169 * t11294 + 0.3e1 / 0.2e1 * t2841 * t11286 - t9832 - 0.5e1 / 0.8e1 * t11192 * t2834 + 0.5e1 / 0.8e1 * t11192 * t2837 - t2841 * t11184 / 0.4e1;
9943   t12157 = t11952 * t354;
9944   t12158 = t1680 * t12157;
9945   t12161 = t2676 * t12157;
9946   t12164 = t11151 * t12157;
9947   t12175 = t1618 * t12157;
9948   t12189 = -0.11e2 / 0.4e1 * t2841 * t11238 + 0.3e1 / 0.2e1 * t2841 * t11234 + 0.2e1 * t11947 * t2674 + 0.2e1 * t2841 * t10187 - 0.3e1 / 0.2e1 * t11947 * t2679 - 0.3e1 / 0.2e1 * t2841 * t10190 - 0.7e1 / 0.8e1 * t2662 * t12158 + 0.11e2 / 0.4e1 * t2662 * t12161 - 0.15e2 / 0.8e1 * t2662 * t12164 + 0.11e2 / 0.4e1 * t2841 * t11155 - 0.25e2 / 0.4e1 * t2841 * t11158 + 0.15e2 / 0.4e1 * t2841 * t11164 + 0.11e2 / 0.4e1 * t2841 * t11297 + 0.9e1 / 0.4e1 * t2662 * t12175 - 0.9e1 / 0.4e1 * t2662 * t2668 * t12157 - 0.6e1 * t2841 * t11306 + 0.9e1 / 0.2e1 * t2841 * t11309 - t11947 * t2682 / 0.2e1 - t2841 * t10205 / 0.2e1;
9949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
9950     v4rho2sigmatau[17] = t11989 + t12030 + t12045 + t12083 + t12103 + t12104 + t12144 + t12189;
9951 
9952   t12192 = t77 * t2877;
9953   t12194 = t686 * t221;
9954   t12202 = -t9451 - t9452 + t9453 - t9454 + t9455 + t9484 - t9492 + t9530 - t9535 - t9544 - t599 - 0.9e1 / 0.4e1 * t12192 - t141 * t12194 * t6308 / 0.4e1 - 0.5e1 / 0.8e1 * t1462 * t2868 + 0.5e1 / 0.8e1 * t1462 * t2872;
9955   t12206 = t77 * t2875;
9956   t12211 = t77 * t2881;
9957   t12213 = t687 * t9550;
9958   t12216 = t2871 * t9554;
9959   t12219 = t686 * t4365;
9960   t12236 = t687 * t9558;
9961   t12246 = -0.11e2 / 0.4e1 * t141 * t12194 * t6312 + 0.3e1 * t12206 + 0.3e1 / 0.2e1 * t141 * t12194 * t6355 - 0.3e1 / 0.4e1 * t12211 - 0.7e1 / 0.8e1 * t404 * t12213 + 0.11e2 / 0.4e1 * t404 * t12216 - 0.15e2 / 0.8e1 * t404 * t12219 * t9609 + 0.11e2 / 0.4e1 * t141 * t687 * t9554 - 0.25e2 / 0.4e1 * t141 * t2871 * t9609 + 0.15e2 / 0.4e1 * t141 * t12219 * t9546 - 0.6e1 * t141 * t12213 + 0.9e1 / 0.2e1 * t141 * t12216 + 0.11e2 / 0.4e1 * t141 * t12236 + 0.9e1 / 0.4e1 * t404 * t12236 - 0.9e1 / 0.4e1 * t404 * t2871 * t9550 + 0.5e1 / 0.8e1 * t1462 * t2897;
9962   t12251 = t257 * t1842;
9963   t12258 = t4286 * t686;
9964   t12278 = t77 * t2888;
9965   t12280 = t77 * t2891;
9966   t12285 = t220 * t2894;
9967   t12287 = t220 * t2897;
9968   t12289 = 0.3e1 / 0.8e1 * t399 * t691 * t4610 + t141 * t161 * t12251 / 0.2e1 - t141 * t691 * t4617 / 0.2e1 - 0.11e2 / 0.8e1 * t404 * t223 * t12258 - t404 * t493 * t7585 / 0.4e1 - 0.3e1 / 0.8e1 * t9639 * t2865 - t1462 * t2894 / 0.2e1 - 0.3e1 / 0.32e2 * t9676 * t687 * t4487 - 0.3e1 / 0.16e2 * t1431 * t691 * t4487 + 0.3e1 / 0.16e2 * t1431 * t687 * t4478 + 0.3e1 / 0.2e1 * t12278 - 0.3e1 / 0.2e1 * t12280 + 0.3e1 / 0.2e1 * t141 * t691 * t9671 - 0.3e1 / 0.4e1 * t12285 + 0.9e1 / 0.8e1 * t12287;
9969   t12290 = t196 * t2884;
9970   t12298 = t196 * t2910;
9971   t12300 = t77 * t2914;
9972   t12302 = t77 * t2868;
9973   t12304 = t220 * t2872;
9974   t12309 = t253 * t1842;
9975   t12313 = t687 * t6197;
9976   t12319 = t196 * t2900;
9977   t12321 = t77 * t2903;
9978   t12323 = t77 * t2906;
9979   t12325 = t220 * t2868;
9980   t12330 = 0.9e1 / 0.8e1 * t12290 + 0.3e1 / 0.16e2 * t1431 * t691 * t4527 - 0.3e1 / 0.16e2 * t2332 * t687 * t4506 + 0.9e1 / 0.8e1 * t12298 + 0.3e1 / 0.2e1 * t12300 - 0.9e1 / 0.4e1 * t12302 + 0.9e1 / 0.8e1 * t12304 + 0.3e1 / 0.8e1 * t399 * t687 * t4569 + t141 * t493 * t12309 / 0.2e1 - 0.3e1 / 0.4e1 * t141 * t12313 + 0.3e1 / 0.8e1 * t404 * t687 * t4541 - 0.9e1 / 0.8e1 * t12319 - 0.3e1 / 0.2e1 * t12321 + 0.9e1 / 0.4e1 * t12323 - 0.9e1 / 0.8e1 * t12325 - 0.3e1 / 0.8e1 * t399 * t691 * t4506;
9981   t12353 = t802 * t2865;
9982   t12355 = -t141 * t161 * t7585 / 0.2e1 + 0.3e1 / 0.4e1 * t141 * t691 * t4541 - 0.3e1 / 0.4e1 * t141 * t2871 * t9755 - t141 * t686 * t242 * t1416 / 0.4e1 - 0.3e1 / 0.8e1 * t404 * t12313 + 0.3e1 / 0.8e1 * t404 * t2871 * t4521 + t141 * t687 * t4521 - 0.9e1 / 0.16e2 * t12353 - t9564 - t9566 + t9570 - t9574 + t9587 + t9591 - t9601;
9983   t12357 = 0.3e1 / 0.32e2 * t844 * t688;
9984   t12358 = t9614 - t9618 - t9712 + t9714 - t9718 - t9721 + t9724 + t9728 - t9730 - t9733 - t9746 - t9749 + t9752 - t9762 - t9793 - t12357;
9985   t12361 = 0.3e1 / 0.16e2 * t213 * t695;
9986   t12362 = t484 * t484;
9987   t12363 = t12362 * t222;
9988   t12368 = 0.3e1 / 0.16e2 * t213 * t698;
9989   t12370 = 0.3e1 / 0.16e2 * t213 * t692;
9990   t12371 = t12362 * t28;
9991   t12381 = t862 * t688;
9992   t12386 = t139 * t398 * t686;
9993   t12389 = t89 * t7476;
9994   t12394 = t89 * t7514;
9995   t12398 = t1491 * t10585;
9996   t12401 = t12361 + t141 * t12363 * t253 / 0.2e1 + t12368 - t12370 - t141 * t12371 * t228 / 0.2e1 + t141 * t12371 * t257 / 0.2e1 - t404 * t12363 * t228 / 0.4e1 - 0.3e1 / 0.8e1 * t12381 - t6459 * t688 / 0.8e1 + 0.9e1 / 0.4e1 * t12386 * t9485 + 0.3e1 * t2551 * t12389 - 0.3e1 / 0.4e1 * t12386 * t9494 - t2551 * t12394 + 0.3e1 * t12386 * t9499 + 0.4e1 * t2551 * t12398;
9997   t12404 = t2583 * t10585;
9998   t12415 = t1502 * t7415;
9999   t12418 = t870 * t686;
10000   t12419 = t12418 * t67;
10001   t12423 = t418 * t7415;
10002   t12426 = t1502 * t12419;
10003   t12434 = t848 * t10585;
10004   t12437 = t2563 * t484;
10005   t12443 = t848 * t7415;
10006   t12446 = -0.9e1 / 0.4e1 * t12386 * t9459 - 0.3e1 * t2551 * t12404 - 0.9e1 / 0.4e1 * t12386 * t9469 - 0.3e1 * t2551 * t10611 - 0.3e1 / 0.2e1 * t3057 * t10611 + 0.3e1 / 0.2e1 * t3057 * t10614 + 0.3e1 / 0.2e1 * t1827 * t12415 + 0.9e1 / 0.8e1 * t1516 * t2577 * t12419 - 0.3e1 / 0.2e1 * t1827 * t12423 - 0.9e1 / 0.8e1 * t1516 * t12426 - 0.3e1 / 0.2e1 * t12386 * t9508 + 0.9e1 / 0.8e1 * t1516 * t1517 * t12419 - 0.2e1 * t2551 * t12434 + 0.3e1 / 0.2e1 * t6185 * t1517 * t12437 - 0.3e1 / 0.4e1 * t3082 * t7416 + 0.3e1 / 0.2e1 * t1827 * t12443;
10007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10008     v4rho2lapl2[0] = t12202 + t12246 + t12289 + t12330 + t12355 + t12358 + t12401 + t12446;
10009 
10010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10011     v4rho2lapl2[1] = 0.0e0;
10012 
10013   t12453 = 0.3e1 / 0.16e2 * t318 * t707;
10014   t12454 = t312 * t2937;
10015   t12460 = 0.3e1 / 0.16e2 * t318 * t710;
10016   t12461 = t312 * t2942;
10017   t12467 = 0.3e1 / 0.16e2 * t318 * t713;
10018   t12468 = t312 * t2947;
10019   t12471 = 0.3e1 / 0.32e2 * t1191 * t703;
10020   t12472 = t1124 * t2932;
10021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10022     v4rho2lapl2[2] = 0.3e1 / 0.8e1 * t434 * t706 * t5235 - t12453 - 0.9e1 / 0.8e1 * t12454 - 0.3e1 / 0.8e1 * t434 * t706 * t5182 + t12460 + 0.9e1 / 0.8e1 * t12461 + 0.3e1 / 0.8e1 * t434 * t702 * t5258 + t12467 + 0.9e1 / 0.8e1 * t12468 - t12471 - 0.9e1 / 0.16e2 * t12472 - 0.3e1 / 0.16e2 * t2394 * t702 * t5182 - 0.3e1 / 0.16e2 * t1540 * t706 * t5203 + 0.3e1 / 0.16e2 * t1540 * t702 * t5223 + 0.3e1 / 0.16e2 * t1540 * t706 * t5229 - 0.3e1 / 0.32e2 * t9858 * t702 * t5203 - t9832 - t9834 - t9837 - t9848;
10023 
10024   t12489 = t196 * t2959;
10025   t12497 = t196 * t2953;
10026   t12502 = t196 * t2956;
10027   t12504 = t802 * t2950;
10028   t12508 = -t2423 - t9863 + t9875 - t9885 + t9887 - t9891 - t2384 + 0.9e1 / 0.16e2 * t12489 + 0.3e1 / 0.8e1 * t1578 * t691 * t4838 - 0.3e1 / 0.16e2 * t9939 * t687 * t4862 - 0.9e1 / 0.16e2 * t12497 - 0.3e1 / 0.8e1 * t1578 * t691 * t4862 + 0.9e1 / 0.16e2 * t12502 - 0.9e1 / 0.32e2 * t12504 - 0.3e1 / 0.16e2 * t9639 * t2950;
10029   t12527 = 0.3e1 / 0.8e1 * t1578 * t687 * t4871 - 0.9e1 / 0.8e1 * t12192 + 0.3e1 / 0.2e1 * t12206 - 0.3e1 / 0.8e1 * t12211 + 0.3e1 / 0.4e1 * t12278 - 0.3e1 / 0.4e1 * t12280 - 0.3e1 / 0.8e1 * t12285 + 0.9e1 / 0.16e2 * t12287 + 0.9e1 / 0.16e2 * t12290 + 0.9e1 / 0.16e2 * t12298 + 0.3e1 / 0.4e1 * t12300 - 0.9e1 / 0.8e1 * t12302 + 0.9e1 / 0.16e2 * t12304 - 0.9e1 / 0.16e2 * t12319 - 0.3e1 / 0.4e1 * t12321 + 0.9e1 / 0.8e1 * t12323;
10030   t12534 = t139 * t1430 * t686;
10031   t12537 = t1502 * t7756;
10032   t12549 = t139 * t1514 * t686;
10033   t12552 = -0.9e1 / 0.16e2 * t12325 - 0.9e1 / 0.32e2 * t12353 - t9944 - t9949 - t9958 + t9962 - t9975 + t9976 - t9977 - 0.3e1 / 0.8e1 * t12386 * t9864 + 0.3e1 / 0.16e2 * t12534 * t4716 + 0.3e1 / 0.4e1 * t1827 * t12537 - 0.3e1 / 0.32e2 * t139 * t6206 * t686 * t4737 + 0.3e1 / 0.2e1 * t12386 * t9876 - 0.9e1 / 0.8e1 * t12386 * t9879 - 0.9e1 / 0.16e2 * t12549 * t9868;
10034   t12559 = t848 * t7756;
10035   t12570 = t418 * t7756;
10036   t12576 = 0.9e1 / 0.16e2 * t12549 * t9871 - 0.9e1 / 0.8e1 * t12386 * t9868 + 0.3e1 / 0.16e2 * t12534 * t4706 + 0.3e1 / 0.4e1 * t1827 * t12559 - 0.3e1 / 0.4e1 * t12386 * t9919 - 0.3e1 / 0.8e1 * t3082 * t7757 + 0.9e1 / 0.16e2 * t12549 * t9924 - 0.3e1 / 0.16e2 * t12534 * t4726 - 0.3e1 / 0.4e1 * t1827 * t12570 + 0.9e1 / 0.8e1 * t12386 * t9899 - t9793 - t12357 + t12361 + t12368 - t12370 - 0.3e1 / 0.16e2 * t12381;
10037   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10038     v4rho2lapl2[3] = t12508 + t12527 + t12552 + t12576;
10039 
10040   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10041     v4rho2lapl2[4] = 0.0e0;
10042 
10043   t12578 = t117 * t2965;
10044   t12580 = t312 * t2968;
10045   t12582 = t117 * t2972;
10046   t12584 = t117 * t3000;
10047   t12586 = t1124 * t3003;
10048   t12588 = t353 * t3007;
10049   t12590 = t353 * t3010;
10050   t12592 = t312 * t2993;
10051   t12594 = -t2402 - t9994 + t10021 + t10026 - t10031 - t10049 - t2399 + 0.9e1 / 0.8e1 * t12578 + 0.9e1 / 0.16e2 * t12580 + 0.3e1 / 0.4e1 * t12582 - 0.3e1 / 0.4e1 * t12584 - 0.9e1 / 0.32e2 * t12586 - 0.3e1 / 0.8e1 * t12588 + 0.9e1 / 0.16e2 * t12590 + 0.9e1 / 0.16e2 * t12592;
10052   t12595 = t117 * t2997;
10053   t12597 = t117 * t2990;
10054   t12613 = t353 * t2981;
10055   t12615 = t117 * t2984;
10056   t12617 = t117 * t2986;
10057   t12619 = t117 * t2975;
10058   t12621 = t353 * t2975;
10059   t12623 = t312 * t3013;
10060   t12625 = t117 * t2962;
10061   t12629 = 0.3e1 / 0.4e1 * t12595 - 0.3e1 / 0.8e1 * t12597 - 0.3e1 / 0.8e1 * t1589 * t702 * t5455 + 0.3e1 / 0.16e2 * t10108 * t702 * t5449 + 0.3e1 / 0.8e1 * t1589 * t706 * t5449 - 0.3e1 / 0.16e2 * t10101 * t2932 - 0.3e1 / 0.8e1 * t1589 * t706 * t5481 + 0.9e1 / 0.16e2 * t12613 + 0.3e1 / 0.2e1 * t12615 - 0.9e1 / 0.8e1 * t12617 - 0.9e1 / 0.8e1 * t12619 - 0.9e1 / 0.16e2 * t12621 - 0.9e1 / 0.16e2 * t12623 - 0.3e1 / 0.4e1 * t12625 - 0.9e1 / 0.16e2 * t12454 + 0.9e1 / 0.16e2 * t12461;
10062   t12634 = t139 * t1539 * t701;
10063   t12637 = t1618 * t7974;
10064   t12641 = t139 * t433 * t701;
10065   t12651 = t139 * t1595 * t701;
10066   t12656 = 0.9e1 / 0.16e2 * t12468 - 0.9e1 / 0.32e2 * t12472 - t10068 + t10078 + t10084 - t10086 - t10100 + t10114 - t10121 + 0.3e1 / 0.16e2 * t12634 * t5417 + 0.3e1 / 0.4e1 * t1913 * t12637 - 0.3e1 / 0.4e1 * t12641 * t10010 - 0.3e1 / 0.32e2 * t139 * t6682 * t701 * t5407 - 0.3e1 / 0.8e1 * t3097 * t7975 + 0.9e1 / 0.16e2 * t12651 * t9988 + 0.3e1 / 0.16e2 * t12634 * t5402;
10067   t12657 = t1159 * t7974;
10068   t12672 = t460 * t7974;
10069   t12679 = t1329 * t703;
10070   t12681 = 0.3e1 / 0.4e1 * t1913 * t12657 - 0.9e1 / 0.16e2 * t12651 * t10000 + 0.9e1 / 0.16e2 * t12651 * t10015 + 0.3e1 / 0.2e1 * t12641 * t10022 - 0.9e1 / 0.8e1 * t12641 * t10045 - 0.9e1 / 0.8e1 * t12641 * t10000 - 0.3e1 / 0.16e2 * t12634 * t5423 - 0.3e1 / 0.4e1 * t1913 * t12672 + 0.9e1 / 0.8e1 * t12641 * t10038 - 0.3e1 / 0.8e1 * t12641 * t10050 - 0.3e1 / 0.16e2 * t12679 - t9832 - t12453 + t12460 + t12467 - t12471;
10071   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10072     v4rho2lapl2[5] = t12594 + t12629 + t12656 + t12681;
10073 
10074   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10075     v4rho2lapl2[6] = -0.3e1 / 0.16e2 * t1431 * t691 * t5102 + 0.3e1 / 0.16e2 * t1431 * t687 * t5094 + 0.3e1 / 0.16e2 * t1431 * t691 * t5192 - 0.3e1 / 0.32e2 * t9676 * t687 * t5102 + 0.3e1 / 0.8e1 * t399 * t691 * t5198 - 0.3e1 / 0.8e1 * t399 * t691 * t5107 + 0.3e1 / 0.8e1 * t399 * t687 * t5098 - 0.3e1 / 0.16e2 * t2332 * t687 * t5107 - t12357 + t12361 + t12368 - t12370 + 0.9e1 / 0.8e1 * t12489 - 0.9e1 / 0.8e1 * t12497 + 0.9e1 / 0.8e1 * t12502 - 0.9e1 / 0.16e2 * t12504 - t10141 - t10147 - t10161 - t9793;
10076 
10077   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10078     v4rho2lapl2[7] = 0.0e0;
10079 
10080   t12713 = t701 * t354;
10081   t12723 = t10165 - t10166 - t10167 + t10168 - t10169 + t10180 - t10200 + t10225 - t10229 - t10251 - t619 + 0.5e1 / 0.8e1 * t1662 * t2981 - 0.11e2 / 0.4e1 * t150 * t12713 * t7288 + 0.3e1 / 0.2e1 * t150 * t12713 * t7304 - t150 * t12713 * t7233 / 0.4e1;
10082   t12726 = t701 * t6054;
10083   t12730 = t702 * t10252;
10084   t12738 = t702 * t10265;
10085   t12741 = t2980 * t10271;
10086   t12769 = -0.5e1 / 0.8e1 * t1662 * t2975 + 0.15e2 / 0.4e1 * t150 * t12726 * t10312 + 0.11e2 / 0.4e1 * t150 * t12730 + 0.9e1 / 0.4e1 * t446 * t12730 - 0.9e1 / 0.4e1 * t446 * t2980 * t10265 - 0.6e1 * t150 * t12738 + 0.9e1 / 0.2e1 * t150 * t12741 - 0.7e1 / 0.8e1 * t446 * t12738 + 0.11e2 / 0.4e1 * t446 * t12741 - 0.15e2 / 0.8e1 * t446 * t12726 * t10296 + 0.11e2 / 0.4e1 * t150 * t702 * t10271 - 0.25e2 / 0.4e1 * t150 * t2980 * t10296 - t446 * t525 * t8261 / 0.4e1 + 0.3e1 / 0.8e1 * t446 * t702 * t5759 - 0.3e1 / 0.8e1 * t434 * t706 * t5815 - t150 * t168 * t8261 / 0.2e1;
10087   t12779 = t390 * t2018;
10088   t12786 = t5889 * t701;
10089   t12815 = 0.3e1 / 0.4e1 * t150 * t706 * t5759 + 0.5e1 / 0.8e1 * t1662 * t3010 + 0.3e1 / 0.8e1 * t434 * t706 * t5849 + t150 * t168 * t12779 / 0.2e1 - t150 * t706 * t5811 / 0.2e1 - 0.11e2 / 0.8e1 * t446 * t356 * t12786 - 0.3e1 / 0.16e2 * t2394 * t702 * t5815 - 0.3e1 / 0.8e1 * t10101 * t3003 - t1662 * t3007 / 0.2e1 + 0.3e1 / 0.16e2 * t1540 * t702 * t5780 - 0.3e1 / 0.16e2 * t1540 * t706 * t5755 + 0.3e1 / 0.16e2 * t1540 * t706 * t5747 + 0.3e1 / 0.2e1 * t150 * t706 * t10325 - 0.3e1 / 0.32e2 * t9858 * t702 * t5755 - 0.3e1 / 0.4e1 * t150 * t2980 * t10400;
10090   t12820 = t702 * t7057;
10091   t12831 = t386 * t2018;
10092   t12846 = -t150 * t701 * t375 * t1690 / 0.4e1 - 0.3e1 / 0.8e1 * t446 * t12820 + 0.3e1 / 0.8e1 * t446 * t2980 * t5788 + t150 * t702 * t5788 + 0.3e1 / 0.8e1 * t434 * t702 * t5801 + t150 * t525 * t12831 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t12820 + 0.9e1 / 0.4e1 * t12578 + 0.9e1 / 0.8e1 * t12580 + 0.3e1 / 0.2e1 * t12582 - 0.3e1 / 0.2e1 * t12584 - 0.9e1 / 0.16e2 * t12586 - 0.3e1 / 0.4e1 * t12588 + 0.9e1 / 0.8e1 * t12590 + 0.9e1 / 0.8e1 * t12592 + 0.3e1 / 0.2e1 * t12595;
10093   t12857 = -0.3e1 / 0.4e1 * t12597 + 0.9e1 / 0.8e1 * t12613 + 0.3e1 * t12615 - 0.9e1 / 0.4e1 * t12617 - 0.9e1 / 0.4e1 * t12619 - 0.9e1 / 0.8e1 * t12621 - 0.9e1 / 0.8e1 * t12623 - 0.3e1 / 0.2e1 * t12625 - t10258 - t10260 + t10264 - t10278 + t10288 + t10301 - t10305;
10094   t12860 = t129 * t8299;
10095   t12863 = -t10321 - t10324 - t10342 + t10396 - t10407 - t10427 + t10430 + t10434 - t10436 - t10445 + t10449 + t10452 - t10453 - t10461 + 0.9e1 / 0.4e1 * t12641 * t10193 + 0.3e1 * t2673 * t12860;
10096   t12867 = t129 * t8222;
10097   t12871 = t1680 * t11172;
10098   t12876 = t2676 * t11172;
10099   t12885 = t2668 * t10170;
10100   t12892 = t2663 * t516;
10101   t12898 = t1618 * t8141;
10102   t12901 = -0.3e1 / 0.4e1 * t12641 * t10202 - t2673 * t12867 + 0.3e1 * t12641 * t10181 + 0.4e1 * t2673 * t12871 - 0.9e1 / 0.4e1 * t12641 * t10184 - 0.3e1 * t2673 * t12876 - 0.9e1 / 0.4e1 * t12641 * t10171 - 0.3e1 * t2673 * t11203 - 0.9e1 / 0.8e1 * t12651 * t10171 + 0.9e1 / 0.8e1 * t12651 * t12885 - 0.3e1 / 0.2e1 * t3156 * t11203 + 0.3e1 / 0.2e1 * t3156 * t11173 + 0.3e1 / 0.2e1 * t7079 * t1598 * t12892 - 0.3e1 / 0.4e1 * t3097 * t8142 + 0.3e1 / 0.2e1 * t1913 * t12898;
10103   t12902 = t460 * t8141;
10104   t12905 = t1159 * t8141;
10105   t12910 = t1290 * t701;
10106   t12911 = t12910 * t111;
10107   t12915 = t1159 * t11172;
10108   t12918 = t516 * t516;
10109   t12919 = t12918 * t355;
10110   t12923 = t12918 * t53;
10111   t12936 = -0.3e1 / 0.2e1 * t1913 * t12902 + 0.3e1 / 0.2e1 * t1913 * t12905 - 0.3e1 / 0.2e1 * t12641 * t10230 + 0.9e1 / 0.8e1 * t1597 * t1598 * t12911 - 0.2e1 * t2673 * t12915 - t446 * t12919 * t361 / 0.4e1 - t150 * t12923 * t361 / 0.2e1 + t150 * t12923 * t390 / 0.2e1 - t7257 * t703 / 0.8e1 + t150 * t12919 * t386 / 0.2e1 - 0.3e1 / 0.8e1 * t12679 - t9832 - t12453 + t12460 + t12467 - t12471;
10112   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10113     v4rho2lapl2[8] = t12723 + t12769 + t12815 + t12846 + t12857 + t12863 + t12901 + t12936;
10114 
10115   t12952 = t719 * t67;
10116   t12962 = t489 * t28;
10117   t12966 = -t9451 - t9452 + t9453 - t9454 + t9455 + t9484 - t9492 + t9530 - t9535 + 0.3e1 * t2104 * t1492 * t10705 - 0.9e1 / 0.4e1 * t2104 * t10713 * t10705 - 0.9e1 / 0.8e1 * t3082 * t11584 + 0.9e1 / 0.4e1 * t2104 * t6635 * t7407 - 0.9e1 / 0.4e1 * t2104 * t10723 + 0.9e1 / 0.8e1 * t1516 * t10704 * t12952 - 0.3e1 / 0.2e1 * t2104 * t10730 * t10705 + 0.9e1 / 0.8e1 * t1516 * t10699 * t12952 - 0.3e1 / 0.4e1 * t2104 * t12962 * t4482;
10118   t12967 = t77 * t3022;
10119   t12971 = t77 * t3026;
10120   t12973 = t77 * t3029;
10121   t12975 = t77 * t3032;
10122   t12995 = t77 * t3035;
10123   t12997 = t77 * t3038;
10124   t12999 = t862 * t716;
10125   t13001 = t220 * t3043;
10126   t13003 = t220 * t3046;
10127   t13006 = 0.3e1 / 0.16e2 * t213 * t724;
10128   t13007 = -t9544 - t599 - 0.3e1 / 0.4e1 * t12967 - t1462 * t3046 / 0.4e1 - 0.3e1 / 0.4e1 * t12971 + 0.3e1 / 0.4e1 * t12973 + 0.3e1 / 0.4e1 * t12975 - t141 * t2121 * t160 * t419 / 0.4e1 - t141 * t542 * t484 * t419 / 0.2e1 - t141 * t172 * t1842 * t419 / 0.4e1 + t141 * t8709 * t723 / 0.4e1 + t141 * t2028 * t2913 / 0.2e1 + 0.3e1 / 0.4e1 * t12995 + 0.3e1 / 0.4e1 * t12997 - 0.3e1 / 0.8e1 * t12999 - 0.3e1 / 0.8e1 * t13001 - 0.3e1 / 0.8e1 * t13003 + t13006;
10129   t13010 = 0.3e1 / 0.32e2 * t844 * t716;
10130   t13012 = 0.3e1 / 0.16e2 * t213 * t720;
10131   t13014 = 0.3e1 / 0.16e2 * t213 * t728;
10132   t13040 = -t13010 - t13012 + t13014 - t404 * t7579 * t537 / 0.8e1 - t404 * t1819 * t2080 / 0.4e1 - t404 * t493 * t8607 / 0.8e1 + t141 * t551 * t12309 / 0.4e1 + t141 * t2122 * t727 / 0.4e1 + t141 * t543 * t2887 / 0.2e1 + t141 * t173 * t12251 / 0.4e1 - t6459 * t716 / 0.8e1 - t1462 * t3043 / 0.4e1 - t9564 - t9566 + t9570 - t9574 + t9587 + t9591;
10133   t13052 = -t9601 + t9614 - t9618 - t9712 + t9714 - t9718 - t9721 + t9724 + t9728 - t9730 - t9733 - t9746 - t9749 + t9752 - t9762 - t2747 * t12394 / 0.2e1 + 0.11e2 / 0.4e1 * t2747 * t493 * t9554 - 0.25e2 / 0.4e1 * t2747 * t1807 * t9609 + 0.15e2 / 0.4e1 * t2747 * t10513 * t10541;
10134   t13067 = t11493 * t3090;
10135   t13069 = t11493 * t3067;
10136   t13076 = t11493 * t2574;
10137   t13086 = t11493 * t3062;
10138   t13091 = t11493 * t3064;
10139   t13095 = -0.7e1 / 0.8e1 * t3057 * t11441 + 0.11e2 / 0.4e1 * t3057 * t11414 - 0.15e2 / 0.8e1 * t3057 * t11417 - 0.6e1 * t2747 * t10560 + 0.9e1 / 0.2e1 * t2747 * t10563 + 0.9e1 / 0.4e1 * t3057 * t11540 + 0.9e1 / 0.4e1 * t13067 - 0.3e1 / 0.4e1 * t13069 - t11427 * t3067 / 0.2e1 + 0.3e1 / 0.16e2 * t2146 * t1502 * t7437 - 0.9e1 / 0.4e1 * t13076 + 0.11e2 / 0.4e1 * t2747 * t10542 + 0.3e1 / 0.16e2 * t2146 * t848 * t7437 - t2747 * t1763 * t6308 / 0.4e1 + 0.3e1 * t13086 + 0.3e1 / 0.2e1 * t2747 * t1763 * t6355 - 0.9e1 / 0.4e1 * t13091 + 0.2e1 * t11427 * t3062;
10140   t13103 = t139 * t1461 * t160;
10141   t13111 = t6122 * t3056;
10142   t13112 = t13111 * t2763;
10143   t13114 = t13111 * t2766;
10144   t13120 = t139 * t6206 * t160;
10145   t13126 = t8403 * t3070;
10146   t13135 = t8403 * t3087;
10147   t13141 = 0.2e1 * t2747 * t12398 - 0.3e1 / 0.2e1 * t11427 * t3064 - 0.3e1 / 0.2e1 * t2747 * t12404 - 0.5e1 / 0.8e1 * t13103 * t2763 + 0.5e1 / 0.8e1 * t13103 * t2766 - 0.11e2 / 0.4e1 * t2747 * t247 * t7640 - 0.9e1 / 0.8e1 * t13112 + 0.9e1 / 0.8e1 * t13114 + 0.3e1 / 0.2e1 * t2747 * t848 * t10541 - 0.3e1 / 0.32e2 * t13120 * t8495 - 0.3e1 / 0.16e2 * t2146 * t161 * t4487 + 0.9e1 / 0.8e1 * t13126 + 0.3e1 / 0.4e1 * t2104 * t12415 + 0.3e1 / 0.8e1 * t2104 * t1502 * t7446 + 0.3e1 / 0.8e1 * t3057 * t8478 - 0.9e1 / 0.8e1 * t13135 - 0.3e1 / 0.2e1 * t11427 * t2574 - 0.3e1 / 0.2e1 * t2747 * t10611;
10148   t13145 = t11412 * t160;
10149   t13149 = t8403 * t3075;
10150   t13151 = t11493 * t3078;
10151   t13155 = t10687 * t1517 * t2756 * t160;
10152   t13185 = -0.3e1 / 0.4e1 * t2747 * t10634 - 0.9e1 / 0.4e1 * t10665 * t2577 * t13145 + 0.9e1 / 0.8e1 * t13149 - 0.3e1 / 0.2e1 * t13151 + 0.9e1 / 0.8e1 * t13155 + 0.3e1 / 0.4e1 * t8411 * t3075 + 0.3e1 / 0.4e1 * t2104 * t12443 + 0.3e1 / 0.8e1 * t2104 * t848 * t7446 - t11427 * t3078 - t2747 * t12434 + 0.3e1 / 0.4e1 * t8411 * t3070 - 0.3e1 / 0.4e1 * t8411 * t3087 - 0.3e1 / 0.4e1 * t2104 * t12423 - 0.3e1 / 0.8e1 * t2104 * t161 * t4506 + 0.3e1 / 0.2e1 * t11427 * t3090 + 0.3e1 / 0.2e1 * t2747 * t12389 + 0.3e1 / 0.4e1 * t2747 * t161 * t4541 - t2747 * t848 * t7389 / 0.2e1;
10153   t13189 = t6122 * t3081;
10154   t13190 = t13189 * t2109;
10155   t13193 = t139 * t6228 * t160;
10156   t13197 = t139 * t1514 * t484;
10157   t13207 = t139 * t403 * t484;
10158   t13225 = t2756 * t484;
10159   t13226 = t2577 * t13225;
10160   t13229 = t11432 * t160;
10161   t13230 = t1502 * t13229;
10162   t13233 = t1502 * t13225;
10163   t13236 = t2577 * t13229;
10164   t13239 = -0.11e2 / 0.8e1 * t10665 * t1517 * t13145 - 0.9e1 / 0.16e2 * t13190 - 0.3e1 / 0.8e1 * t13193 * t2109 - 0.3e1 / 0.8e1 * t13197 * t2109 - 0.3e1 / 0.8e1 * t3082 * t8449 - 0.3e1 / 0.16e2 * t3082 * t8457 + 0.5e1 / 0.8e1 * t13103 * t2758 + 0.3e1 / 0.4e1 * t13207 * t2758 + 0.3e1 / 0.4e1 * t3057 * t1517 * t11433 - t2747 * t1798 * t1416 / 0.4e1 - 0.3e1 / 0.8e1 * t3057 * t11507 + 0.3e1 / 0.8e1 * t3057 * t8469 + t2747 * t493 * t4521 - 0.3e1 / 0.4e1 * t2747 * t2583 * t7389 + 0.3e1 / 0.4e1 * t6185 * t13226 - 0.3e1 / 0.4e1 * t6185 * t13230 - 0.3e1 / 0.4e1 * t6185 * t13233 + 0.3e1 / 0.4e1 * t6185 * t13236 - t9793;
10165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10166     v4rho2lapltau[0] = t12966 + t13007 + t13040 + t13052 + t13095 + t13141 + t13185 + t13239;
10167 
10168   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10169     v4rho2lapltau[1] = 0.0e0;
10170 
10171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10172     v4rho2lapltau[2] = 0.0e0;
10173 
10174   t13246 = 0.3e1 / 0.16e2 * t318 * t743;
10175   t13247 = t8894 * t3112;
10176   t13255 = 0.3e1 / 0.16e2 * t318 * t735;
10177   t13256 = t8894 * t3102;
10178   t13262 = 0.3e1 / 0.16e2 * t318 * t739;
10179   t13263 = t8894 * t3107;
10180   t13266 = 0.3e1 / 0.32e2 * t1191 * t731;
10181   t13267 = t6122 * t3096;
10182   t13268 = t13267 * t2179;
10183   t13277 = t139 * t6682 * t167;
10184   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10185     v4rho2lapltau[3] = 0.3e1 / 0.8e1 * t2190 * t1618 * t7869 + t13246 + 0.9e1 / 0.8e1 * t13247 + 0.3e1 / 0.8e1 * t2190 * t1159 * t7869 - 0.3e1 / 0.16e2 * t3097 * t8900 - t13255 - 0.9e1 / 0.8e1 * t13256 - 0.3e1 / 0.8e1 * t2190 * t168 * t5182 + t13262 + 0.9e1 / 0.8e1 * t13263 - t13266 - 0.9e1 / 0.16e2 * t13268 + 0.3e1 / 0.16e2 * t2169 * t1618 * t7840 + 0.3e1 / 0.16e2 * t2169 * t1159 * t7840 - 0.3e1 / 0.32e2 * t13277 * t8887 - 0.3e1 / 0.16e2 * t2169 * t168 * t5203 - t9832 - t9834 - t9837 - t9848;
10186 
10187   t13287 = t493 * t880;
10188   t13298 = t161 * t225;
10189   t13314 = -t2423 - t9863 + t9875 - t9885 + t9887 - t9891 - 0.9e1 / 0.16e2 * t3082 * t11786 + 0.9e1 / 0.16e2 * t3082 * t11789 + 0.3e1 / 0.2e1 * t2104 * t13287 * t9867 - 0.9e1 / 0.8e1 * t2104 * t10713 * t10911 - 0.3e1 / 0.32e2 * t13120 * t8834 + 0.9e1 / 0.16e2 * t3082 * t11804 - 0.3e1 / 0.16e2 * t2146 * t13298 * t4705 + 0.9e1 / 0.8e1 * t2104 * t13298 * t9867 - 0.3e1 / 0.8e1 * t2104 * t12962 * t4827 + 0.3e1 / 0.16e2 * t2146 * t4221 * t7780 - 0.3e1 / 0.4e1 * t2104 * t10730 * t10911;
10190   t13329 = 0.3e1 / 0.16e2 * t2146 * t4218 * t7780 - 0.9e1 / 0.8e1 * t2104 * t10932 - t2384 - 0.3e1 / 0.8e1 * t12967 - 0.3e1 / 0.8e1 * t12971 + 0.3e1 / 0.8e1 * t12973 + 0.3e1 / 0.8e1 * t12975 + 0.3e1 / 0.8e1 * t12995 + 0.3e1 / 0.8e1 * t12997 - 0.3e1 / 0.16e2 * t12999 - 0.3e1 / 0.16e2 * t13001 - 0.3e1 / 0.16e2 * t13003 + t13006 - t13010 - t13012 + t13014 - t9944 - t9949;
10191   t13331 = t13189 * t2150;
10192   t13336 = t8403 * t3117;
10193   t13349 = t8403 * t3120;
10194   t13354 = t8403 * t3123;
10195   t13361 = -t9958 + t9962 - t9975 + t9976 - t9977 - 0.9e1 / 0.32e2 * t13331 - 0.3e1 / 0.16e2 * t1577 * t3081 * t8759 - 0.9e1 / 0.16e2 * t13336 - 0.3e1 / 0.16e2 * t3082 * t8796 - 0.3e1 / 0.8e1 * t8411 * t3117 - 0.3e1 / 0.8e1 * t2104 * t12570 - 0.3e1 / 0.16e2 * t13193 * t2150 - 0.3e1 / 0.8e1 * t8764 * t161 * t4862 + 0.9e1 / 0.16e2 * t13349 + 0.3e1 / 0.8e1 * t8764 * t1502 * t7699 + 0.9e1 / 0.16e2 * t13354 + 0.3e1 / 0.8e1 * t8764 * t848 * t7699 + 0.3e1 / 0.8e1 * t8411 * t3120;
10196   t13383 = 0.3e1 / 0.8e1 * t2104 * t12537 + 0.3e1 / 0.8e1 * t8411 * t3123 + 0.3e1 / 0.8e1 * t2104 * t12559 - 0.3e1 / 0.16e2 * t13197 * t2150 + 0.9e1 / 0.8e1 * t13067 - 0.3e1 / 0.8e1 * t13069 - 0.9e1 / 0.8e1 * t13076 + 0.3e1 / 0.2e1 * t13086 - 0.9e1 / 0.8e1 * t13091 - 0.9e1 / 0.16e2 * t13112 + 0.9e1 / 0.16e2 * t13114 + 0.9e1 / 0.16e2 * t13126 - 0.9e1 / 0.16e2 * t13135 + 0.9e1 / 0.16e2 * t13149 - 0.3e1 / 0.4e1 * t13151 + 0.9e1 / 0.16e2 * t13155 - 0.9e1 / 0.32e2 * t13190 - t9793;
10197   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10198     v4rho2lapltau[4] = t13314 + t13329 + t13361 + t13383;
10199 
10200   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10201     v4rho2lapltau[5] = 0.0e0;
10202 
10203   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10204     v4rho2lapltau[6] = 0.0e0;
10205 
10206   t13392 = t521 * t53;
10207   t13396 = t168 * t358;
10208   t13416 = -t2402 - t9994 + t10021 + t10026 - t10031 - t10049 + 0.9e1 / 0.16e2 * t3097 * t11921 - 0.9e1 / 0.8e1 * t2190 * t11053 - 0.9e1 / 0.8e1 * t2190 * t11035 * t11052 - 0.3e1 / 0.8e1 * t2190 * t13392 * t5459 - 0.3e1 / 0.16e2 * t2169 * t13396 * t5401 + 0.9e1 / 0.8e1 * t2190 * t13396 * t9987 + 0.3e1 / 0.16e2 * t2169 * t5905 * t8027 - 0.9e1 / 0.16e2 * t3097 * t11913 + 0.9e1 / 0.16e2 * t3097 * t11916 + 0.3e1 / 0.16e2 * t2169 * t5908 * t8027 - 0.3e1 / 0.4e1 * t2190 * t11073 * t11052;
10209   t13419 = t525 * t1298;
10210   t13423 = t117 * t3143;
10211   t13425 = t1329 * t731;
10212   t13427 = t353 * t3148;
10213   t13429 = t353 * t3151;
10214   t13431 = t117 * t3127;
10215   t13433 = t117 * t3131;
10216   t13435 = t117 * t3134;
10217   t13437 = t117 * t3137;
10218   t13439 = t117 * t3140;
10219   t13441 = -0.3e1 / 0.32e2 * t13277 * t9079 + 0.3e1 / 0.2e1 * t2190 * t13419 * t9987 - t2399 + 0.3e1 / 0.8e1 * t13423 - 0.3e1 / 0.16e2 * t13425 - 0.3e1 / 0.16e2 * t13427 - 0.3e1 / 0.16e2 * t13429 - 0.3e1 / 0.8e1 * t13431 - 0.3e1 / 0.8e1 * t13433 + 0.3e1 / 0.8e1 * t13435 + 0.3e1 / 0.8e1 * t13437 + 0.3e1 / 0.8e1 * t13439 + t13246 - t13255 + t13262 - t13266 - t10068 + t10078;
10220   t13468 = t139 * t6909 * t167;
10221   t13472 = t139 * t1595 * t516;
10222   t13477 = t10084 - t10086 - t10100 + t10114 - t10121 - 0.3e1 / 0.8e1 * t9034 * t3102 - 0.3e1 / 0.8e1 * t2190 * t12672 + 0.3e1 / 0.8e1 * t9034 * t3107 + 0.3e1 / 0.8e1 * t2190 * t12637 + 0.3e1 / 0.8e1 * t9034 * t3112 - 0.3e1 / 0.8e1 * t9044 * t1618 * t8015 + 0.3e1 / 0.16e2 * t1577 * t3096 * t9061 + 0.3e1 / 0.8e1 * t9044 * t168 * t5449 - 0.3e1 / 0.8e1 * t9044 * t1159 * t8015 + 0.3e1 / 0.8e1 * t2190 * t12657 - 0.3e1 / 0.16e2 * t13468 * t2179 - 0.3e1 / 0.16e2 * t13472 * t2179 - 0.3e1 / 0.16e2 * t3097 * t9030;
10223   t13478 = t11821 * t3174;
10224   t13480 = t11821 * t3177;
10225   t13482 = t11821 * t3162;
10226   t13484 = t8894 * t3165;
10227   t13486 = t6122 * t3155;
10228   t13487 = t13486 * t2834;
10229   t13489 = t13486 * t2837;
10230   t13491 = t8894 * t3182;
10231   t13493 = t11821 * t3185;
10232   t13495 = t13267 * t2288;
10233   t13497 = t13486 * t2851;
10234   t13499 = t8894 * t3159;
10235   t13501 = t11821 * t2665;
10236   t13503 = t11821 * t3172;
10237   t13509 = -0.9e1 / 0.8e1 * t13478 - 0.3e1 / 0.8e1 * t13480 + 0.9e1 / 0.8e1 * t13482 + 0.9e1 / 0.16e2 * t13484 - 0.9e1 / 0.16e2 * t13487 + 0.9e1 / 0.16e2 * t13489 + 0.9e1 / 0.16e2 * t13491 - 0.3e1 / 0.4e1 * t13493 - 0.9e1 / 0.32e2 * t13495 + 0.9e1 / 0.16e2 * t13497 - 0.9e1 / 0.16e2 * t13499 - 0.9e1 / 0.8e1 * t13501 + 0.3e1 / 0.2e1 * t13503 + 0.9e1 / 0.16e2 * t13247 - 0.9e1 / 0.16e2 * t13256 + 0.9e1 / 0.16e2 * t13263 - 0.9e1 / 0.32e2 * t13268 - t9832;
10238   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10239     v4rho2lapltau[7] = t13416 + t13441 + t13477 + t13509;
10240 
10241   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10242     v4rho2lapltau[8] = -0.3e1 / 0.16e2 * t2146 * t161 * t5102 + 0.3e1 / 0.16e2 * t2146 * t1502 * t7911 + 0.3e1 / 0.16e2 * t2146 * t848 * t7911 - 0.3e1 / 0.32e2 * t13120 * t8973 + 0.9e1 / 0.8e1 * t13349 + 0.9e1 / 0.8e1 * t13354 + 0.3e1 / 0.8e1 * t2104 * t848 * t7919 - 0.3e1 / 0.8e1 * t2104 * t161 * t5107 + 0.3e1 / 0.8e1 * t2104 * t1502 * t7919 - 0.3e1 / 0.16e2 * t3082 * t8965 + t13006 - t13010 - t13012 + t13014 - 0.9e1 / 0.16e2 * t13331 - 0.9e1 / 0.8e1 * t13336 - t10141 - t10147 - t10161 - t9793;
10243 
10244   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10245     v4rho2lapltau[9] = 0.0e0;
10246 
10247   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10248     v4rho2lapltau[10] = 0.0e0;
10249 
10250   t13562 = t10165 - t10166 - t10167 + t10168 - t10169 + t10180 - t10200 + t10225 - t10229 - 0.9e1 / 0.8e1 * t3097 * t12111 + 0.9e1 / 0.8e1 * t3097 * t12114 + 0.3e1 * t2190 * t13419 * t10170 - 0.9e1 / 0.4e1 * t2190 * t11035 * t11126 - 0.3e1 / 0.4e1 * t2190 * t13392 * t5738 + 0.9e1 / 0.4e1 * t2190 * t6935 * t8177 + 0.9e1 / 0.8e1 * t1597 * t11060 * t734 * t111 - 0.9e1 / 0.4e1 * t2190 * t11127 - 0.3e1 / 0.2e1 * t2190 * t11073 * t11126;
10251   t13609 = -t10251 - t619 + t150 * t2227 * t2971 / 0.2e1 + t150 * t583 * t12831 / 0.4e1 + t150 * t2296 * t742 / 0.4e1 + t150 * t575 * t2996 / 0.2e1 + t150 * t178 * t12779 / 0.4e1 - t7257 * t731 / 0.8e1 - t150 * t2295 * t167 * t461 / 0.4e1 - t150 * t574 * t516 * t461 / 0.2e1 - t150 * t177 * t2018 * t461 / 0.4e1 - t1662 * t3148 / 0.4e1 - t1662 * t3151 / 0.4e1 - t446 * t8328 * t569 / 0.8e1 - t446 * t1974 * t2208 / 0.4e1 - t446 * t525 * t9385 / 0.8e1 + t150 * t9370 * t738 / 0.4e1 + 0.3e1 / 0.4e1 * t13423;
10252   t13619 = -0.3e1 / 0.8e1 * t13425 - 0.3e1 / 0.8e1 * t13427 - 0.3e1 / 0.8e1 * t13429 - 0.3e1 / 0.4e1 * t13431 - 0.3e1 / 0.4e1 * t13433 + 0.3e1 / 0.4e1 * t13435 + 0.3e1 / 0.4e1 * t13437 + 0.3e1 / 0.4e1 * t13439 + t13246 - t13255 + t13262 - t13266 - t10258 - t10260 + t10264 - t10278 + t10288 + t10301;
10253   t13630 = -t10305 - t10321 - t10324 - t10342 + t10396 - t10407 - t10427 + t10430 + t10434 - t10436 - t10445 + t10449 + t10452 - t10453 - t10461 - 0.25e2 / 0.4e1 * t2841 * t1970 * t10296 + 0.15e2 / 0.4e1 * t2841 * t11161 * t11144 + 0.9e1 / 0.4e1 * t3156 * t12175 - 0.7e1 / 0.8e1 * t3156 * t12158;
10254   t13666 = t139 * t1661 * t167;
10255   t13672 = t2832 * t516;
10256   t13673 = t1598 * t13672;
10257   t13676 = 0.11e2 / 0.4e1 * t3156 * t12161 - 0.15e2 / 0.8e1 * t3156 * t12164 + 0.11e2 / 0.4e1 * t2841 * t525 * t10271 - 0.6e1 * t2841 * t11145 + 0.9e1 / 0.2e1 * t2841 * t11148 - t11947 * t3177 / 0.2e1 - t2841 * t12867 / 0.2e1 - 0.11e2 / 0.4e1 * t2841 * t380 * t8317 + 0.3e1 / 0.2e1 * t2841 * t1967 * t7304 - t2841 * t1967 * t7233 / 0.4e1 + 0.2e1 * t11947 * t3172 + 0.2e1 * t2841 * t12871 - 0.3e1 / 0.2e1 * t11947 * t3174 - 0.3e1 / 0.2e1 * t2841 * t12876 - 0.5e1 / 0.8e1 * t13666 * t2834 + 0.5e1 / 0.8e1 * t13666 * t2837 - t2841 * t12915 + 0.3e1 / 0.4e1 * t7079 * t13673;
10258   t13683 = t11961 * t167;
10259   t13684 = t1618 * t13683;
10260   t13691 = t1618 * t13672;
10261   t13698 = t2668 * t13683;
10262   t13718 = t11952 * t167;
10263   t13719 = t1598 * t13718;
10264   t13724 = -0.3e1 / 0.8e1 * t13468 * t2288 - 0.3e1 / 0.4e1 * t9034 * t3159 + 0.3e1 / 0.2e1 * t11947 * t3162 - 0.3e1 / 0.4e1 * t7079 * t13684 - 0.3e1 / 0.4e1 * t2190 * t12902 + 0.3e1 / 0.2e1 * t2841 * t12860 - 0.3e1 / 0.4e1 * t7079 * t13691 + 0.3e1 / 0.4e1 * t9034 * t3165 - 0.3e1 / 0.2e1 * t11947 * t2665 + 0.3e1 / 0.4e1 * t7079 * t13698 + 0.3e1 / 0.8e1 * t3156 * t9191 - 0.3e1 / 0.8e1 * t2190 * t168 * t5815 + 0.3e1 / 0.4e1 * t2841 * t168 * t5759 + 0.3e1 / 0.8e1 * t2190 * t1618 * t8146 + 0.3e1 / 0.8e1 * t2190 * t1159 * t8146 - t2841 * t1159 * t8158 / 0.2e1 - 0.11e2 / 0.8e1 * t11257 * t13719 - 0.3e1 / 0.16e2 * t3097 * t9211;
10265   t13736 = t2668 * t13718;
10266   t13743 = t2668 * t13672;
10267   t13749 = t1598 * t13683;
10268   t13768 = 0.3e1 / 0.8e1 * t3156 * t9199 + 0.5e1 / 0.8e1 * t13666 * t2851 - 0.3e1 / 0.8e1 * t13472 * t2288 - 0.3e1 / 0.8e1 * t3097 * t9203 - 0.3e1 / 0.4e1 * t2841 * t11279 - 0.9e1 / 0.4e1 * t11257 * t13736 + 0.3e1 / 0.4e1 * t2190 * t12898 - 0.3e1 / 0.2e1 * t2841 * t11203 + 0.3e1 / 0.4e1 * t7079 * t13743 + 0.3e1 / 0.4e1 * t9034 * t3182 - t11947 * t3185 + 0.3e1 / 0.4e1 * t7079 * t13749 + 0.3e1 / 0.4e1 * t2190 * t12905 - 0.3e1 / 0.16e2 * t2169 * t168 * t5755 + 0.3e1 / 0.16e2 * t2169 * t1618 * t8194 + 0.11e2 / 0.4e1 * t2841 * t11167 + 0.3e1 / 0.16e2 * t2169 * t1159 * t8194 + 0.3e1 / 0.2e1 * t2841 * t1159 * t11144;
10269   t13794 = -0.3e1 / 0.32e2 * t13277 * t9234 - 0.3e1 / 0.8e1 * t3156 * t9224 + t2841 * t525 * t5788 - 0.3e1 / 0.4e1 * t2841 * t2676 * t8158 - t2841 * t1955 * t1690 / 0.4e1 - 0.9e1 / 0.4e1 * t13478 - 0.3e1 / 0.4e1 * t13480 + 0.9e1 / 0.4e1 * t13482 + 0.9e1 / 0.8e1 * t13484 - 0.9e1 / 0.8e1 * t13487 + 0.9e1 / 0.8e1 * t13489 + 0.9e1 / 0.8e1 * t13491 - 0.3e1 / 0.2e1 * t13493 - 0.9e1 / 0.16e2 * t13495 + 0.9e1 / 0.8e1 * t13497 - 0.9e1 / 0.8e1 * t13499 - 0.9e1 / 0.4e1 * t13501 + 0.3e1 * t13503 - t9832;
10270   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10271     v4rho2lapltau[11] = t13562 + t13609 + t13619 + t13630 + t13676 + t13724 + t13768 + t13794;
10272 
10273   t13797 = t77 * t3200;
10274   t13803 = t746 * t221;
10275   t13810 = -t9451 - t9452 + t9453 - t9454 + t9455 + t9484 - t9492 + t9530 - t9535 - t9544 - 0.9e1 / 0.4e1 * t13797 - 0.5e1 / 0.8e1 * t1462 * t3203 + 0.5e1 / 0.8e1 * t1462 * t3195 - t141 * t13803 * t6308 / 0.4e1 - 0.11e2 / 0.4e1 * t141 * t13803 * t6312;
10276   t13811 = t77 * t3198;
10277   t13819 = t746 * t4365;
10278   t13823 = t747 * t9550;
10279   t13826 = t3194 * t9554;
10280   t13837 = t747 * t9558;
10281   t13850 = t196 * t3236;
10282   t13852 = t77 * t3240;
10283   t13854 = 0.3e1 * t13811 + 0.3e1 / 0.2e1 * t141 * t13803 * t6355 - 0.25e2 / 0.4e1 * t141 * t3194 * t9609 + 0.15e2 / 0.4e1 * t141 * t13819 * t9546 - 0.7e1 / 0.8e1 * t404 * t13823 + 0.9e1 / 0.2e1 * t141 * t13826 + 0.11e2 / 0.4e1 * t404 * t13826 - 0.15e2 / 0.8e1 * t404 * t13819 * t9609 + 0.11e2 / 0.4e1 * t141 * t747 * t9554 + 0.11e2 / 0.4e1 * t141 * t13837 + 0.9e1 / 0.4e1 * t404 * t13837 - 0.9e1 / 0.4e1 * t404 * t3194 * t9550 - 0.6e1 * t141 * t13823 + 0.3e1 / 0.4e1 * t141 * t751 * t4541 + 0.9e1 / 0.8e1 * t13850 + 0.3e1 / 0.2e1 * t13852;
10284   t13856 = t77 * t3203;
10285   t13858 = t220 * t3195;
10286   t13870 = t4286 * t746;
10287   t13884 = t196 * t3226;
10288   t13886 = t77 * t3229;
10289   t13888 = t77 * t3232;
10290   t13890 = t220 * t3203;
10291   t13895 = -0.9e1 / 0.4e1 * t13856 + 0.9e1 / 0.8e1 * t13858 + 0.3e1 / 0.8e1 * t399 * t747 * t4569 + t141 * t173 * t257 * t2121 / 0.2e1 - t141 * t751 * t4617 / 0.2e1 - 0.11e2 / 0.8e1 * t404 * t223 * t13870 - t1462 * t3220 / 0.2e1 - t404 * t551 * t8607 / 0.4e1 + 0.5e1 / 0.8e1 * t1462 * t3223 + 0.3e1 / 0.8e1 * t404 * t747 * t4541 - 0.9e1 / 0.8e1 * t13884 - 0.3e1 / 0.2e1 * t13886 + 0.9e1 / 0.4e1 * t13888 - 0.9e1 / 0.8e1 * t13890 + 0.3e1 / 0.8e1 * t399 * t751 * t4610;
10292   t13896 = t77 * t3207;
10293   t13901 = t220 * t3220;
10294   t13903 = t220 * t3223;
10295   t13908 = t196 * t3210;
10296   t13913 = t77 * t3214;
10297   t13915 = t77 * t3217;
10298   t13929 = t747 * t6197;
10299   t13939 = -0.3e1 / 0.4e1 * t13896 + 0.3e1 / 0.2e1 * t141 * t751 * t9671 - 0.3e1 / 0.4e1 * t13901 + 0.9e1 / 0.8e1 * t13903 - 0.3e1 / 0.16e2 * t1431 * t751 * t4487 + 0.9e1 / 0.8e1 * t13908 + 0.3e1 / 0.16e2 * t1431 * t751 * t4527 + 0.3e1 / 0.2e1 * t13913 - 0.3e1 / 0.2e1 * t13915 - t141 * t746 * t242 * t1416 / 0.4e1 + 0.3e1 / 0.8e1 * t404 * t3194 * t4521 + t141 * t747 * t4521 - 0.3e1 / 0.4e1 * t141 * t3194 * t9755 - 0.3e1 / 0.8e1 * t404 * t13929 - 0.3e1 / 0.16e2 * t2332 * t747 * t4506 + t141 * t551 * t253 * t2121 / 0.2e1;
10300   t13944 = t802 * t3191;
10301   t13960 = -0.3e1 / 0.4e1 * t141 * t13929 - 0.9e1 / 0.16e2 * t13944 - 0.3e1 / 0.8e1 * t9639 * t3191 - 0.3e1 / 0.8e1 * t399 * t751 * t4506 - t141 * t173 * t8607 / 0.2e1 - t599 - 0.3e1 / 0.32e2 * t9676 * t747 * t4487 + 0.3e1 / 0.16e2 * t1431 * t747 * t4478 - t9564 - t9566 + t9570 - t9574 + t9587 + t9591 - t9601;
10302   t13962 = t139 * t398 * t746;
10303   t13968 = t9614 - t9618 - t9712 + t9714 - t9718 - t9721 + t9724 + t9728 - t9730 - t9733 - t9746 - t9749 + t9752 - t9762 + 0.9e1 / 0.4e1 * t13962 * t9485 + 0.3e1 * t2747 * t89 * t8677;
10304   t13984 = t139 * t403 * t172;
10305   t13996 = t870 * t746 * t67;
10306   t14011 = -0.3e1 / 0.4e1 * t13962 * t9494 - t2747 * t89 * t8557 - 0.9e1 / 0.4e1 * t13962 * t9459 - 0.3e1 * t2747 * t2583 * t11433 - 0.9e1 / 0.4e1 * t13962 * t9469 - 0.3e1 * t2747 * t11434 - 0.3e1 / 0.2e1 * t13984 * t11434 + 0.3e1 / 0.2e1 * t13984 * t2577 * t11433 + 0.3e1 * t13962 * t9499 + 0.4e1 * t2747 * t1491 * t11433 - 0.9e1 / 0.8e1 * t1516 * t1502 * t13996 + 0.3e1 / 0.2e1 * t2104 * t848 * t8448 - 0.3e1 / 0.2e1 * t13962 * t9508 + 0.9e1 / 0.8e1 * t1516 * t1517 * t13996 - 0.2e1 * t2747 * t848 * t11433;
10307   t14023 = t139 * t1514 * t172;
10308   t14031 = t542 * t542;
10309   t14032 = t14031 * t222;
10310   t14037 = 0.3e1 / 0.16e2 * t213 * t758;
10311   t14039 = 0.3e1 / 0.32e2 * t844 * t748;
10312   t14040 = t14031 * t28;
10313   t14045 = 0.3e1 / 0.16e2 * t213 * t755;
10314   t14050 = 0.3e1 / 0.16e2 * t213 * t752;
10315   t14054 = t862 * t748;
10316   t14056 = 0.3e1 / 0.2e1 * t6185 * t1517 * t2756 * t542 + 0.3e1 / 0.2e1 * t2104 * t1502 * t8448 + 0.9e1 / 0.8e1 * t1516 * t2577 * t13996 - 0.3e1 / 0.4e1 * t14023 * t8449 - 0.3e1 / 0.2e1 * t2104 * t418 * t8448 - t6459 * t748 / 0.8e1 + t141 * t14032 * t253 / 0.2e1 + t14037 - t14039 - t141 * t14040 * t228 / 0.2e1 + t14045 - t404 * t14032 * t228 / 0.4e1 - t14050 + t141 * t14040 * t257 / 0.2e1 - 0.3e1 / 0.8e1 * t14054 - t9793;
10317   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10318     v4rho2tau2[0] = t13810 + t13854 + t13895 + t13939 + t13960 + t13968 + t14011 + t14056;
10319 
10320   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10321     v4rho2tau2[1] = 0.0e0;
10322 
10323   t14075 = 0.3e1 / 0.16e2 * t318 * t767;
10324   t14076 = t312 * t3263;
10325   t14082 = 0.3e1 / 0.16e2 * t318 * t770;
10326   t14083 = t312 * t3268;
10327   t14089 = 0.3e1 / 0.16e2 * t318 * t773;
10328   t14090 = t312 * t3273;
10329   t14093 = 0.3e1 / 0.32e2 * t1191 * t763;
10330   t14094 = t1124 * t3258;
10331   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10332     v4rho2tau2[2] = 0.3e1 / 0.16e2 * t1540 * t762 * t5223 + 0.3e1 / 0.16e2 * t1540 * t766 * t5229 - 0.3e1 / 0.32e2 * t9858 * t762 * t5203 - 0.3e1 / 0.16e2 * t1540 * t766 * t5203 + 0.3e1 / 0.8e1 * t434 * t766 * t5235 - t14075 - 0.9e1 / 0.8e1 * t14076 - 0.3e1 / 0.8e1 * t434 * t766 * t5182 + t14082 + 0.9e1 / 0.8e1 * t14083 + 0.3e1 / 0.8e1 * t434 * t762 * t5258 + t14089 + 0.9e1 / 0.8e1 * t14090 - t14093 - 0.9e1 / 0.16e2 * t14094 - 0.3e1 / 0.16e2 * t2394 * t762 * t5182 - t9832 - t9834 - t9837 - t9848;
10333 
10334   t14102 = t196 * t3279;
10335   t14107 = t196 * t3282;
10336   t14112 = t196 * t3285;
10337   t14114 = t802 * t3276;
10338   t14119 = -t2423 - t9863 + t9875 - t9885 + t9887 - t9891 - t2384 + 0.3e1 / 0.8e1 * t1578 * t751 * t4838 - 0.9e1 / 0.16e2 * t14102 - 0.3e1 / 0.8e1 * t1578 * t751 * t4862 + 0.9e1 / 0.16e2 * t14107 + 0.3e1 / 0.8e1 * t1578 * t747 * t4871 + 0.9e1 / 0.16e2 * t14112 - 0.9e1 / 0.32e2 * t14114 - 0.3e1 / 0.16e2 * t9939 * t747 * t4862;
10339   t14137 = -0.3e1 / 0.16e2 * t9639 * t3276 - 0.9e1 / 0.8e1 * t13797 + 0.3e1 / 0.2e1 * t13811 + 0.9e1 / 0.16e2 * t13850 + 0.3e1 / 0.4e1 * t13852 - 0.9e1 / 0.8e1 * t13856 + 0.9e1 / 0.16e2 * t13858 - 0.9e1 / 0.16e2 * t13884 - 0.3e1 / 0.4e1 * t13886 + 0.9e1 / 0.8e1 * t13888 - 0.9e1 / 0.16e2 * t13890 - 0.3e1 / 0.8e1 * t13896 - 0.3e1 / 0.8e1 * t13901 + 0.9e1 / 0.16e2 * t13903 + 0.9e1 / 0.16e2 * t13908 + 0.3e1 / 0.4e1 * t13913;
10340   t14142 = t139 * t1514 * t746;
10341   t14161 = -0.3e1 / 0.4e1 * t13915 - 0.9e1 / 0.32e2 * t13944 - 0.9e1 / 0.16e2 * t14142 * t9868 + 0.9e1 / 0.16e2 * t14142 * t9871 + 0.3e1 / 0.2e1 * t13962 * t9876 - 0.3e1 / 0.8e1 * t13962 * t9864 - 0.3e1 / 0.32e2 * t139 * t6206 * t746 * t4737 - 0.3e1 / 0.8e1 * t14023 * t8796 + 0.9e1 / 0.16e2 * t14142 * t9924 - 0.9e1 / 0.8e1 * t13962 * t9879 - t9944 - t9949 - t9958 + t9962 - t9975 + t9976;
10342   t14165 = t139 * t1430 * t746;
10343   t14186 = -t9977 - 0.3e1 / 0.4e1 * t13962 * t9919 - 0.3e1 / 0.16e2 * t14165 * t4726 - 0.3e1 / 0.4e1 * t2104 * t418 * t8795 + 0.9e1 / 0.8e1 * t13962 * t9899 + 0.3e1 / 0.16e2 * t14165 * t4716 + 0.3e1 / 0.4e1 * t2104 * t1502 * t8795 - 0.9e1 / 0.8e1 * t13962 * t9868 + 0.3e1 / 0.16e2 * t14165 * t4706 + 0.3e1 / 0.4e1 * t2104 * t848 * t8795 + t14037 - t14039 + t14045 - t14050 - 0.3e1 / 0.16e2 * t14054 - t9793;
10344   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10345     v4rho2tau2[3] = t14119 + t14137 + t14161 + t14186;
10346 
10347   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10348     v4rho2tau2[4] = 0.0e0;
10349 
10350   t14188 = t117 * t3339;
10351   t14190 = t117 * t3301;
10352   t14192 = t1124 * t3304;
10353   t14208 = -t2402 - t9994 + t10021 + t10026 - t10031 - t10049 - t2399 + 0.3e1 / 0.4e1 * t14188 - 0.3e1 / 0.4e1 * t14190 - 0.9e1 / 0.32e2 * t14192 + 0.3e1 / 0.16e2 * t10108 * t762 * t5449 + 0.3e1 / 0.8e1 * t1589 * t766 * t5449 - 0.3e1 / 0.8e1 * t1589 * t766 * t5481 - 0.3e1 / 0.16e2 * t10101 * t3258 - 0.3e1 / 0.8e1 * t1589 * t762 * t5455;
10354   t14209 = t117 * t3292;
10355   t14211 = t117 * t3294;
10356   t14213 = t117 * t3298;
10357   t14215 = t353 * t3329;
10358   t14217 = t353 * t3289;
10359   t14219 = t117 * t3319;
10360   t14221 = t312 * t3322;
10361   t14223 = t117 * t3326;
10362   t14225 = t117 * t3329;
10363   t14227 = t353 * t3307;
10364   t14229 = t353 * t3310;
10365   t14231 = t312 * t3313;
10366   t14233 = t117 * t3316;
10367   t14235 = t312 * t3335;
10368   t14239 = 0.3e1 / 0.2e1 * t14209 - 0.9e1 / 0.8e1 * t14211 - 0.3e1 / 0.8e1 * t14213 - 0.9e1 / 0.16e2 * t14215 + 0.9e1 / 0.16e2 * t14217 + 0.9e1 / 0.8e1 * t14219 + 0.9e1 / 0.16e2 * t14221 + 0.3e1 / 0.4e1 * t14223 - 0.9e1 / 0.8e1 * t14225 - 0.3e1 / 0.8e1 * t14227 + 0.9e1 / 0.16e2 * t14229 - 0.9e1 / 0.16e2 * t14231 - 0.3e1 / 0.4e1 * t14233 + 0.9e1 / 0.16e2 * t14235 - 0.9e1 / 0.16e2 * t14076 + 0.9e1 / 0.16e2 * t14083;
10369   t14247 = t139 * t1539 * t761;
10370   t14254 = t139 * t433 * t761;
10371   t14269 = t139 * t1595 * t177;
10372   t14273 = t139 * t1595 * t761;
10373   t14284 = 0.9e1 / 0.16e2 * t14090 - 0.9e1 / 0.32e2 * t14094 - 0.3e1 / 0.4e1 * t2190 * t460 * t9029 + 0.3e1 / 0.16e2 * t14247 * t5402 + 0.3e1 / 0.4e1 * t2190 * t1159 * t9029 - 0.3e1 / 0.4e1 * t14254 * t10010 - 0.3e1 / 0.32e2 * t139 * t6682 * t761 * t5407 + 0.3e1 / 0.16e2 * t14247 * t5417 + 0.3e1 / 0.4e1 * t2190 * t1618 * t9029 - 0.9e1 / 0.8e1 * t14254 * t10000 - 0.3e1 / 0.8e1 * t14269 * t9030 + 0.9e1 / 0.16e2 * t14273 * t9988 - 0.3e1 / 0.16e2 * t14247 * t5423 + 0.3e1 / 0.2e1 * t14254 * t10022 - 0.9e1 / 0.8e1 * t14254 * t10045 - 0.3e1 / 0.8e1 * t14254 * t10050;
10374   t14291 = t1329 * t763;
10375   t14293 = -0.9e1 / 0.16e2 * t14273 * t10000 + 0.9e1 / 0.16e2 * t14273 * t10015 + 0.9e1 / 0.8e1 * t14254 * t10038 - t10068 + t10078 + t10084 - t10086 - t10100 + t10114 - t10121 - t14075 + t14082 + t14089 - t14093 - 0.3e1 / 0.16e2 * t14291 - t9832;
10376   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10377     v4rho2tau2[5] = t14208 + t14239 + t14284 + t14293;
10378 
10379   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10380     v4rho2tau2[6] = 0.3e1 / 0.8e1 * t399 * t751 * t5198 - 0.3e1 / 0.8e1 * t399 * t751 * t5107 + 0.3e1 / 0.8e1 * t399 * t747 * t5098 - 0.3e1 / 0.16e2 * t2332 * t747 * t5107 + 0.3e1 / 0.16e2 * t1431 * t747 * t5094 + 0.3e1 / 0.16e2 * t1431 * t751 * t5192 - 0.3e1 / 0.32e2 * t9676 * t747 * t5102 - 0.3e1 / 0.16e2 * t1431 * t751 * t5102 - 0.9e1 / 0.8e1 * t14102 + 0.9e1 / 0.8e1 * t14107 + 0.9e1 / 0.8e1 * t14112 - 0.9e1 / 0.16e2 * t14114 + t14037 - t14039 + t14045 - t14050 - t10141 - t10147 - t10161 - t9793;
10381 
10382   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10383     v4rho2tau2[7] = 0.0e0;
10384 
10385   t14323 = t761 * t354;
10386   t14337 = t10165 - t10166 - t10167 + t10168 - t10169 + t10180 - t10200 + t10225 - t10229 - t10251 - 0.11e2 / 0.4e1 * t150 * t14323 * t7288 + 0.3e1 / 0.2e1 * t150 * t14323 * t7304 - 0.5e1 / 0.8e1 * t1662 * t3329 + 0.5e1 / 0.8e1 * t1662 * t3289 - t150 * t14323 * t7233 / 0.4e1;
10387   t14353 = t762 * t7057;
10388   t14386 = -0.3e1 / 0.16e2 * t1540 * t766 * t5755 + 0.3e1 / 0.16e2 * t1540 * t762 * t5780 + 0.3e1 / 0.2e1 * t150 * t766 * t10325 - 0.3e1 / 0.32e2 * t9858 * t762 * t5755 + 0.3e1 / 0.16e2 * t1540 * t766 * t5747 - 0.3e1 / 0.8e1 * t446 * t14353 + 0.3e1 / 0.8e1 * t446 * t3288 * t5788 + t150 * t762 * t5788 - 0.3e1 / 0.4e1 * t150 * t3288 * t10400 - t150 * t178 * t9385 / 0.2e1 + 0.3e1 / 0.4e1 * t150 * t766 * t5759 + 0.3e1 / 0.8e1 * t434 * t762 * t5801 + t150 * t583 * t386 * t2295 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t14353 + t150 * t178 * t390 * t2295 / 0.2e1 - t150 * t766 * t5811 / 0.2e1;
10389   t14388 = t5889 * t761;
10390   t14413 = t762 * t10265;
10391   t14416 = t3288 * t10271;
10392   t14419 = t761 * t6054;
10393   t14432 = -0.11e2 / 0.8e1 * t446 * t356 * t14388 - 0.3e1 / 0.8e1 * t10101 * t3304 - 0.3e1 / 0.16e2 * t2394 * t762 * t5815 - t1662 * t3307 / 0.2e1 - t446 * t583 * t9385 / 0.4e1 + 0.5e1 / 0.8e1 * t1662 * t3310 + 0.3e1 / 0.8e1 * t446 * t762 * t5759 - 0.3e1 / 0.8e1 * t434 * t766 * t5815 + 0.3e1 / 0.8e1 * t434 * t766 * t5849 - 0.7e1 / 0.8e1 * t446 * t14413 + 0.11e2 / 0.4e1 * t446 * t14416 - 0.15e2 / 0.8e1 * t446 * t14419 * t10296 + 0.11e2 / 0.4e1 * t150 * t762 * t10271 - 0.25e2 / 0.4e1 * t150 * t3288 * t10296 + 0.15e2 / 0.4e1 * t150 * t14419 * t10312;
10394   t14433 = t762 * t10252;
10395   t14459 = 0.11e2 / 0.4e1 * t150 * t14433 + 0.9e1 / 0.4e1 * t446 * t14433 - 0.9e1 / 0.4e1 * t446 * t3288 * t10265 - 0.6e1 * t150 * t14413 + 0.9e1 / 0.2e1 * t150 * t14416 - t150 * t761 * t375 * t1690 / 0.4e1 + 0.3e1 / 0.2e1 * t14188 - 0.3e1 / 0.2e1 * t14190 - 0.9e1 / 0.16e2 * t14192 + 0.3e1 * t14209 - 0.9e1 / 0.4e1 * t14211 - 0.3e1 / 0.4e1 * t14213 - 0.9e1 / 0.8e1 * t14215 + 0.9e1 / 0.8e1 * t14217 + 0.9e1 / 0.4e1 * t14219 + 0.9e1 / 0.8e1 * t14221;
10396   t14471 = t1618 * t11962;
10397   t14482 = t1291 * t574;
10398   t14491 = 0.3e1 / 0.2e1 * t14223 - 0.9e1 / 0.4e1 * t14225 - 0.3e1 / 0.4e1 * t14227 + 0.9e1 / 0.8e1 * t14229 - 0.9e1 / 0.8e1 * t14231 - 0.3e1 / 0.2e1 * t14233 + 0.9e1 / 0.8e1 * t14235 - t619 - 0.9e1 / 0.4e1 * t14254 * t10171 - 0.3e1 * t2841 * t14471 + 0.9e1 / 0.8e1 * t1597 * t1598 * t1290 * t761 * t111 - 0.2e1 * t2841 * t1159 * t11962 - t2841 * t129 * t14482 - 0.3e1 / 0.2e1 * t2190 * t460 * t9202 + 0.3e1 / 0.2e1 * t2190 * t1618 * t9202;
10399   t14511 = t139 * t445 * t177;
10400   t14531 = 0.3e1 / 0.2e1 * t7079 * t1598 * t2832 * t574 - 0.3e1 / 0.4e1 * t14269 * t9203 + 0.3e1 / 0.2e1 * t2190 * t1159 * t9202 - 0.3e1 / 0.2e1 * t14254 * t10230 + 0.9e1 / 0.4e1 * t14254 * t10193 + 0.3e1 * t2841 * t129 * t9302 - 0.3e1 / 0.4e1 * t14254 * t10202 + 0.3e1 / 0.2e1 * t14511 * t2668 * t11962 + 0.3e1 * t14254 * t10181 + 0.4e1 * t2841 * t1680 * t11962 - 0.9e1 / 0.4e1 * t14254 * t10184 - 0.3e1 * t2841 * t2676 * t11962 - 0.9e1 / 0.8e1 * t14273 * t10171 + 0.9e1 / 0.8e1 * t14273 * t12885 - 0.3e1 / 0.2e1 * t14511 * t14471 - t10258;
10401   t14533 = -t10260 + t10264 - t10278 + t10288 + t10301 - t10305 - t10321 - t10324 - t10342 + t10396 - t10407 - t10427 + t10430 + t10434 - t10436;
10402   t14536 = t574 * t574;
10403   t14537 = t14536 * t53;
10404   t14541 = t14536 * t355;
10405   t14552 = -t10445 + t10449 + t10452 - t10453 - t10461 - t7257 * t763 / 0.8e1 - t150 * t14537 * t361 / 0.2e1 + t150 * t14541 * t386 / 0.2e1 - t446 * t14541 * t361 / 0.4e1 + t150 * t14537 * t390 / 0.2e1 - t14075 + t14082 + t14089 - t14093 - 0.3e1 / 0.8e1 * t14291 - t9832;
10406   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10407     v4rho2tau2[8] = t14337 + t14386 + t14432 + t14459 + t14491 + t14531 + t14533 + t14552;
10408 
10409   t14562 = t4286 * t88;
10410   t14566 = t4320 * t3345;
10411   t14567 = t405 * t14566;
10412   t14570 = t3350 * t4482;
10413   t14573 = t591 * t6324;
10414   t14578 = t88 * t877;
10415   t14583 = t3345 * t4365;
10416   t14584 = t4381 * t88;
10417   t14588 = t4329 * t88;
10418   t14589 = t3350 * t14588;
10419   t14594 = 0.9e1 / 0.8e1 * t399 * t3346 * t4468 + 0.9e1 / 0.4e1 * t141 * t600 * t6403 - 0.11e2 / 0.4e1 * t141 * t3346 * t14562 + 0.9e1 / 0.4e1 * t404 * t14567 - 0.9e1 / 0.8e1 * t399 * t14570 - 0.9e1 / 0.4e1 * t141 * t14573 + 0.11e2 / 0.4e1 * t141 * t14567 - 0.9e1 / 0.4e1 * t404 * t14578 * t4329 * t3345 + 0.15e2 / 0.4e1 * t141 * t14583 * t14584 - 0.7e1 / 0.8e1 * t404 * t14589 - 0.6e1 * t141 * t14589;
10420   t14596 = t4339 * t88;
10421   t14597 = t3380 * t14596;
10422   t14607 = t4369 * t88;
10423   t14611 = t3345 * t88;
10424   t14629 = 0.9e1 / 0.2e1 * t141 * t14597 - t3375 * t2318 / 0.4e1 + t3375 * t2372 / 0.4e1 + 0.11e2 / 0.4e1 * t141 * t3350 * t14596 - 0.25e2 / 0.4e1 * t141 * t3380 * t14607 + 0.3e1 / 0.2e1 * t141 * t14611 * t6355 - t141 * t14611 * t6308 / 0.4e1 + 0.3e1 / 0.2e1 * t399 * t3350 * t4491 + 0.3e1 * t141 * t591 * t6333 + 0.11e2 / 0.4e1 * t404 * t14597 - 0.9e1 / 0.8e1 * t399 * t3380 * t4580;
10425   t14630 = t889 * t412;
10426   t14646 = t914 * t412;
10427   t14650 = t4307 * t88;
10428   t14658 = t1462 * t3357;
10429   t14661 = t404 * t1410 * t2349;
10430   t14666 = -0.9e1 / 0.4e1 * t141 * t2304 * t14630 - 0.15e2 / 0.8e1 * t404 * t88 * t4365 * t4369 * t3345 - 0.9e1 / 0.16e2 * t2332 * t14570 - 0.9e1 / 0.8e1 * t404 * t14573 - 0.3e1 / 0.4e1 * t399 * t3346 * t4535 - 0.3e1 / 0.2e1 * t141 * t600 * t14646 + 0.3e1 / 0.2e1 * t141 * t3346 * t14650 - 0.11e2 / 0.8e1 * t404 * t405 * t4286 * t3345 - 0.3e1 / 0.8e1 * t14658 - 0.3e1 / 0.8e1 * t14661 + 0.9e1 / 0.16e2 * t2332 * t3350 * t4468;
10431   t14673 = t141 * t596 * t2324;
10432   t14675 = t8 * t3373;
10433   t14676 = t139 * t14675;
10434   t14686 = t141 * t2375 * t2366;
10435   t14690 = t141 * t595 * t412 * t419;
10436   t14698 = t77 * t3393;
10437   t14699 = 0.9e1 / 0.8e1 * t14698;
10438   t14701 = t220 * t3357;
10439   t14702 = 0.9e1 / 0.16e2 * t14701;
10440   t14703 = t77 * t3363;
10441   t14704 = 0.9e1 / 0.8e1 * t14703;
10442   t14705 = t77 * t3389;
10443   t14706 = 0.9e1 / 0.8e1 * t14705;
10444   t14712 = t139 * t140 * t595;
10445   t14713 = t14712 * t2587;
10446   t14715 = t14712 * t2571;
10447   t14717 = t870 * t595;
10448   t14718 = t14717 * t88;
10449   t14719 = t1502 * t14718;
10450   t14720 = t2562 * t14719;
10451   t14723 = t2562 * t2577 * t14718;
10452   t14725 = t14712 * t2593;
10453   t14727 = -t14702 + t14704 + t14706 - t3375 * t2336 / 0.4e1 + t3375 * t2340 / 0.4e1 - t599 - 0.3e1 / 0.4e1 * t14713 + 0.9e1 / 0.4e1 * t14715 - 0.9e1 / 0.8e1 * t14720 + 0.9e1 / 0.8e1 * t14723 - 0.9e1 / 0.4e1 * t14725;
10454   t14729 = t14712 * t2581;
10455   t14731 = t14712 * t2584;
10456   t14733 = t9482 * t2568;
10457   t14735 = t2558 * t9533;
10458   t14738 = t2562 * t1517 * t14718;
10459   t14740 = t9482 * t2596;
10460   t14742 = t14712 * t2554;
10461   t14744 = t9482 * t2590;
10462   t14747 = t218 * t88 * t222;
10463   t14763 = t227 * t88;
10464   t14764 = t1517 * t14763;
10465   t14767 = t4230 * t88;
10466   t14768 = t1517 * t1518;
10467   t14774 = t89 * t228;
10468   t14777 = t1502 * t14763;
10469   t14780 = t848 * t14763;
10470   t14795 = t14747 * t406 / 0.4e1 + t75 * t412 * t849 / 0.2e1 + t3366 * t88 * t419 / 0.2e1 - t3366 * t222 * t424 / 0.2e1 - t3366 * t28 * t428 / 0.2e1 - t4226 * t144 * t14764 / 0.2e1 + t14767 * t14768 / 0.2e1 + t853 * t412 * t849 / 0.2e1 + t3368 * t14774 / 0.2e1 - t3368 * t14777 / 0.2e1 - t3368 * t14780 / 0.2e1 - t4244 * t144 * t849 / 0.2e1 - t856 * t412 * t849 / 0.2e1 - t3370 * t14774 / 0.2e1 + t3370 * t14777 / 0.2e1 + t3370 * t14780 / 0.2e1;
10471   t14797 = t139 * t9 * t14795;
10472   t14804 = 0.3e1 * t14729 - 0.9e1 / 0.4e1 * t14731 - 0.9e1 / 0.8e1 * t14733 - 0.9e1 / 0.16e2 * t14735 + 0.9e1 / 0.8e1 * t14738 + 0.9e1 / 0.8e1 * t14740 - 0.3e1 / 0.2e1 * t14742 + 0.9e1 / 0.8e1 * t14744 - t14797 * t592 / 0.8e1 - 0.3e1 / 0.8e1 * t1462 * t3351 + 0.3e1 / 0.8e1 * t1462 * t3386;
10473   t14806 = 0.3e1 / 0.2e1 * t77 * t3378;
10474   t14808 = 0.9e1 / 0.8e1 * t77 * t3381;
10475   t14810 = 0.9e1 / 0.16e2 * t220 * t3351;
10476   t14812 = 0.9e1 / 0.16e2 * t220 * t3360;
10477   t14813 = t6122 * t3374;
10478   t14815 = 0.3e1 / 0.16e2 * t14813 * t592;
10479   t14817 = 0.9e1 / 0.8e1 * t77 * t3347;
10480   t14819 = 0.9e1 / 0.8e1 * t77 * t3351;
10481   t14821 = 0.3e1 / 0.4e1 * t77 * t3354;
10482   t14823 = 0.9e1 / 0.16e2 * t220 * t3386;
10483   t14825 = 0.3e1 / 0.8e1 * t77 * t3396;
10484   t14828 = t14806 - t14808 - t14810 + t14812 - t14815 + t14817 - t14819 - t14821 + t14823 - t14825 + 0.3e1 / 0.8e1 * t1462 * t3360;
10485   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10486     v4rhosigma3[0] = -0.3e1 / 0.16e2 * t14676 * t2333 + 0.3e1 / 0.4e1 * t14686 - t3395 + t3391 - t2384 + t2378 + t14727 + t14629 + t14804 + t3365 - t3359 - t2352 + 0.9e1 / 0.8e1 * t404 * t591 * t6403 + 0.9e1 / 0.16e2 * t2332 * t3380 * t4491 + 0.9e1 / 0.8e1 * t404 * t2304 * t6333 - 0.3e1 / 0.8e1 * t399 * t3346 * t4482 - 0.3e1 / 0.4e1 * t141 * t600 * t6324 + t14594 + t14666 - t2345 + t2348 - t2312 + t14828 - t14699 + 0.3e1 / 0.4e1 * t14673 - 0.3e1 / 0.4e1 * t14690;
10487 
10488   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10489     v4rhosigma3[1] = 0.0e0;
10490 
10491   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10492     v4rhosigma3[2] = 0.0e0;
10493 
10494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10495     v4rhosigma3[3] = 0.0e0;
10496 
10497   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10498     v4rhosigma3[4] = 0.0e0;
10499 
10500   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10501     v4rhosigma3[5] = 0.0e0;
10502 
10503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10504     v4rhosigma3[6] = 0.0e0;
10505 
10506   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10507     v4rhosigma3[7] = 0.0e0;
10508 
10509   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10510     v4rhosigma3[8] = 0.0e0;
10511 
10512   t14831 = t3404 * t5459;
10513   t14837 = t117 * t3438;
10514   t14838 = 0.9e1 / 0.8e1 * t14837;
10515   t14839 = t117 * t3447;
10516   t14840 = 0.9e1 / 0.8e1 * t14839;
10517   t14841 = t353 * t3411;
10518   t14842 = 0.9e1 / 0.16e2 * t14841;
10519   t14843 = t117 * t3417;
10520   t14844 = 0.9e1 / 0.8e1 * t14843;
10521   t14860 = t36 * t3427;
10522   t14861 = t139 * t14860;
10523   t14866 = -t2402 - t2399 - 0.9e1 / 0.8e1 * t434 * t14831 - 0.3e1 / 0.4e1 * t434 * t3400 * t5487 + t14838 - t14840 - t14842 + t14844 - 0.3e1 / 0.8e1 * t434 * t3400 * t5459 + 0.9e1 / 0.16e2 * t2394 * t3434 * t5463 + 0.3e1 / 0.2e1 * t434 * t3404 * t5463 - 0.9e1 / 0.8e1 * t434 * t3434 * t5513 + 0.9e1 / 0.16e2 * t2394 * t3404 * t5474 - 0.3e1 / 0.16e2 * t14861 * t2395 - 0.9e1 / 0.16e2 * t2394 * t14831;
10524   t14870 = t10019 * t2618;
10525   t14872 = t10019 * t2613;
10526   t14874 = t10019 * t2608;
10527   t14876 = t2603 * t10029;
10528   t14879 = 0.9e1 / 0.16e2 * t353 * t3414;
10529   t14880 = t6122 * t3428;
10530   t14882 = 0.3e1 / 0.16e2 * t14880 * t612;
10531   t14884 = 0.9e1 / 0.16e2 * t353 * t3405;
10532   t14886 = 0.9e1 / 0.16e2 * t353 * t3435;
10533   t14888 = 0.9e1 / 0.8e1 * t117 * t3401;
10534   t14890 = 0.9e1 / 0.8e1 * t117 * t3405;
10535   t14892 = 0.3e1 / 0.4e1 * t117 * t3408;
10536   t14894 = 0.3e1 / 0.8e1 * t117 * t3450;
10537   t14896 = 0.3e1 / 0.2e1 * t117 * t3441;
10538   t14898 = 0.9e1 / 0.8e1 * t117 * t3443;
10539   t14899 = 0.9e1 / 0.8e1 * t434 * t3400 * t5474 + 0.9e1 / 0.8e1 * t14870 + 0.9e1 / 0.8e1 * t14872 - 0.9e1 / 0.8e1 * t14874 - 0.9e1 / 0.16e2 * t14876 + t14879 - t14882 - t14884 + t14886 + t14888 - t14890 - t14892 - t14894 + t14896 - t14898;
10540   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10541     v4rhosigma3[9] = t14866 + t14899;
10542 
10543   t14914 = t3350 * t4827;
10544   t14928 = -t2423 - t2384 + 0.9e1 / 0.16e2 * t2332 * t3380 * t4819 - 0.3e1 / 0.8e1 * t399 * t3346 * t4827 - 0.3e1 / 0.16e2 * t14676 * t2418 + 0.3e1 / 0.2e1 * t399 * t3350 * t4819 - 0.9e1 / 0.8e1 * t399 * t3380 * t4823 - 0.9e1 / 0.16e2 * t2332 * t14914 - 0.9e1 / 0.8e1 * t399 * t14914 - 0.3e1 / 0.4e1 * t399 * t3346 * t4834 + 0.9e1 / 0.16e2 * t2332 * t3350 * t4858 + 0.9e1 / 0.8e1 * t399 * t3346 * t4858 - t14699 - t14702 + t14704;
10545   t14929 = t9482 * t2623;
10546   t14931 = t2558 * t9889;
10547   t14933 = t9482 * t2629;
10548   t14935 = t9482 * t2626;
10549   t14937 = t14706 - 0.9e1 / 0.8e1 * t14929 - 0.9e1 / 0.16e2 * t14931 + 0.9e1 / 0.8e1 * t14933 + 0.9e1 / 0.8e1 * t14935 + t14806 - t14808 - t14810 + t14812 - t14815 + t14817 - t14819 - t14821 + t14823 - t14825;
10550   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10551     v4rhosigma3[10] = t14928 + t14937;
10552 
10553   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10554     v4rhosigma3[11] = 0.0e0;
10555 
10556   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10557     v4rhosigma3[12] = 0.0e0;
10558 
10559   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10560     v4rhosigma3[13] = 0.0e0;
10561 
10562   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10563     v4rhosigma3[14] = 0.0e0;
10564 
10565   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10566     v4rhosigma3[15] = 0.0e0;
10567 
10568   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10569     v4rhosigma3[16] = 0.0e0;
10570 
10571   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10572     v4rhosigma3[17] = 0.0e0;
10573 
10574   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10575     v4rhosigma3[18] = 0.0e0;
10576 
10577   t14939 = t5988 * t128;
10578   t14940 = t3434 * t14939;
10579   t14943 = t3399 * t6054;
10580   t14944 = t6058 * t128;
10581   t14954 = t6070 * t128;
10582   t14958 = t6000 * t128;
10583   t14959 = t3404 * t14958;
10584   t14964 = t3399 * t128;
10585   t14975 = 0.11e2 / 0.4e1 * t446 * t14940 - 0.15e2 / 0.8e1 * t446 * t14943 * t14944 + 0.11e2 / 0.4e1 * t150 * t3404 * t14939 - 0.25e2 / 0.4e1 * t150 * t3434 * t14944 + 0.15e2 / 0.4e1 * t150 * t14943 * t14954 - 0.6e1 * t150 * t14959 + 0.9e1 / 0.2e1 * t150 * t14940 + 0.3e1 / 0.2e1 * t150 * t14964 * t7304 - t150 * t14964 * t7233 / 0.4e1 - t3429 * t2434 / 0.4e1 + t3429 * t2439 / 0.4e1;
10586   t14980 = t446 * t1695 * t2497;
10587   t14989 = t150 * t616 * t2472;
10588   t14997 = t3404 * t5738;
10589   t15000 = t611 * t7201;
10590   t15006 = -0.7e1 / 0.8e1 * t446 * t14959 - 0.3e1 / 0.8e1 * t14980 + 0.9e1 / 0.16e2 * t2394 * t3404 * t5773 + 0.9e1 / 0.8e1 * t446 * t611 * t7197 + 0.3e1 / 0.4e1 * t14989 - 0.3e1 / 0.16e2 * t14861 * t2480 - t3429 * t2484 / 0.4e1 + t3429 * t2488 / 0.4e1 - 0.9e1 / 0.16e2 * t2394 * t14997 - 0.9e1 / 0.8e1 * t446 * t15000 + 0.9e1 / 0.8e1 * t434 * t3400 * t5773;
10591   t15010 = t5889 * t128;
10592   t15014 = t5972 * t3399;
10593   t15015 = t447 * t15014;
10594   t15024 = t128 * t1295;
10595   t15032 = t1351 * t454;
10596   t15036 = t5977 * t128;
10597   t15044 = 0.9e1 / 0.4e1 * t150 * t620 * t7197 - 0.11e2 / 0.4e1 * t150 * t3400 * t15010 + 0.9e1 / 0.4e1 * t446 * t15015 - 0.9e1 / 0.8e1 * t434 * t14997 - 0.9e1 / 0.4e1 * t150 * t15000 + 0.11e2 / 0.4e1 * t150 * t15015 - 0.9e1 / 0.4e1 * t446 * t15024 * t6000 * t3399 - 0.3e1 / 0.4e1 * t434 * t3400 * t5751 - 0.3e1 / 0.2e1 * t150 * t620 * t15032 + 0.3e1 / 0.2e1 * t150 * t3400 * t15036 - 0.11e2 / 0.8e1 * t446 * t447 * t5889 * t3399;
10598   t15047 = t1662 * t3411;
10599   t15051 = t150 * t615 * t454 * t461;
10600   t15066 = t150 * t2442 * t2463;
10601   t15078 = t1307 * t454;
10602   t15082 = t1290 * t615;
10603   t15083 = t15082 * t128;
10604   t15085 = t2662 * t2668 * t15083;
10605   t15088 = t139 * t149 * t615;
10606   t15089 = t15088 * t2691;
10607   t15091 = t15088 * t2674;
10608   t15093 = t15088 * t2679;
10609   t15095 = t15088 * t2685;
10610   t15097 = -0.9e1 / 0.4e1 * t150 * t2437 * t15078 + t14838 - t14840 - t14842 + t14844 - t619 + 0.9e1 / 0.8e1 * t15085 - 0.9e1 / 0.4e1 * t15089 + 0.3e1 * t15091 - 0.9e1 / 0.4e1 * t15093 + 0.9e1 / 0.4e1 * t15095;
10611   t15099 = t15088 * t2682;
10612   t15101 = t10019 * t2688;
10613   t15103 = t10019 * t2705;
10614   t15105 = t2603 * t10227;
10615   t15108 = t2662 * t1598 * t15083;
10616   t15110 = t10019 * t2694;
10617   t15112 = t15088 * t2697;
10618   t15114 = t1618 * t15083;
10619   t15115 = t2662 * t15114;
10620   t15120 = t351 * t128 * t355;
10621   t15136 = t1598 * t1619;
10622   t15139 = t5917 * t128;
10623   t15140 = t1598 * t1599;
10624   t15146 = t129 * t361;
10625   t15149 = t1618 * t1619;
10626   t15152 = t1159 * t1619;
10627   t15167 = t15120 * t448 / 0.4e1 + t115 * t454 * t1316 / 0.2e1 + t3420 * t128 * t461 / 0.2e1 - t3420 * t355 * t466 / 0.2e1 - t3420 * t53 * t470 / 0.2e1 - t5913 * t153 * t15136 / 0.2e1 + t15139 * t15140 / 0.2e1 + t1320 * t454 * t1316 / 0.2e1 + t3422 * t15146 / 0.2e1 - t3422 * t15149 / 0.2e1 - t3422 * t15152 / 0.2e1 - t5931 * t153 * t1316 / 0.2e1 - t1323 * t454 * t1316 / 0.2e1 - t3424 * t15146 / 0.2e1 + t3424 * t15149 / 0.2e1 + t3424 * t15152 / 0.2e1;
10628   t15169 = t139 * t37 * t15167;
10629   t15174 = -0.3e1 / 0.4e1 * t15099 + 0.9e1 / 0.8e1 * t15101 - 0.9e1 / 0.8e1 * t15103 - 0.9e1 / 0.16e2 * t15105 + 0.9e1 / 0.8e1 * t15108 + 0.9e1 / 0.8e1 * t15110 - 0.3e1 / 0.2e1 * t15112 - 0.9e1 / 0.8e1 * t15115 + 0.3e1 / 0.8e1 * t1662 * t3414 - t15169 * t612 / 0.8e1 - 0.3e1 / 0.8e1 * t1662 * t3405;
10630   t15177 = 0.3e1 / 0.8e1 * t1662 * t3435 + t14879 - t14882 - t14884 + t14886 + t14888 - t14890 - t14892 - t14894 + t14896 - t14898;
10631   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
10632     v4rhosigma3[19] = -t2500 - t2493 + t2496 + t15097 + t15177 + t15174 - t3413 + t3419 + t3440 + t14975 - t2455 + t2445 - t2399 + 0.3e1 / 0.4e1 * t15066 + t15006 - 0.9e1 / 0.8e1 * t434 * t3434 * t5726 - 0.3e1 / 0.8e1 * t434 * t3400 * t5738 - 0.3e1 / 0.4e1 * t150 * t620 * t7201 + 0.9e1 / 0.16e2 * t2394 * t3434 * t5722 + 0.9e1 / 0.8e1 * t446 * t2437 * t7207 + 0.3e1 / 0.2e1 * t434 * t3404 * t5722 + 0.3e1 * t150 * t611 * t7207 - 0.3e1 / 0.4e1 * t15051 - 0.3e1 / 0.8e1 * t15047 + t15044 - t3449;
10633 
10634   t15181 = 0.3e1 / 0.2e1 * t77 * t3492;
10635   t15182 = t3456 - t3461 - t3465 + t3469 - t3470 + t3471 + t3501 - t3502 - t2312 - t2345 + t2348 - t2352 + t2378 - t2384 + t15181;
10636   t15184 = 0.9e1 / 0.8e1 * t77 * t3495;
10637   t15186 = 0.3e1 / 0.8e1 * t77 * t3498;
10638   t15188 = 0.3e1 / 0.4e1 * t77 * t3484;
10639   t15190 = 0.9e1 / 0.16e2 * t220 * t3480;
10640   t15192 = 0.9e1 / 0.16e2 * t220 * t3489;
10641   t15194 = 0.9e1 / 0.16e2 * t220 * t3472;
10642   t15196 = 0.9e1 / 0.8e1 * t77 * t3476;
10643   t15198 = 0.9e1 / 0.8e1 * t77 * t3480;
10644   t15199 = t220 * t3459;
10645   t15200 = 0.3e1 / 0.16e2 * t15199;
10646   t15201 = t77 * t3463;
10647   t15202 = 0.3e1 / 0.8e1 * t15201;
10648   t15203 = t77 * t3467;
10649   t15204 = 0.3e1 / 0.8e1 * t15203;
10650   t15205 = t77 * t3454;
10651   t15206 = 0.3e1 / 0.8e1 * t15205;
10652   t15208 = 0.3e1 / 0.16e2 * t14813 * t630;
10653   t15209 = t484 * t590;
10654   t15215 = -t15184 - t15186 - t15188 - t15190 + t15192 + t15194 + t15196 - t15198 - t15200 - t15202 + t15204 + t15206 - t15208 + t141 * t15209 * t1492 - 0.3e1 / 0.4e1 * t141 * t7658 * t3494;
10655   t15228 = t1819 * t3479;
10656   t15244 = t404 * t2375 * t1790;
10657   t15245 = t15244 / 0.8e1;
10658   t15248 = t141 * t484 * t595 * t419;
10659   t15249 = t15248 / 0.4e1;
10660   t15251 = t141 * t1819 * t3466;
10661   t15252 = t15251 / 0.4e1;
10662   t15254 = t141 * t485 * t3453;
10663   t15255 = t15254 / 0.4e1;
10664   t15258 = -t141 * t15209 * t1416 / 0.4e1 + 0.3e1 / 0.8e1 * t1462 * t3472 + 0.3e1 / 0.8e1 * t404 * t591 * t7476 + 0.3e1 / 0.4e1 * t141 * t15209 * t1439 - 0.3e1 / 0.4e1 * t141 * t15228 - t141 * t485 * t3483 / 0.2e1 - 0.3e1 / 0.8e1 * t1462 * t3480 - 0.3e1 / 0.8e1 * t404 * t15228 + 0.3e1 / 0.8e1 * t1462 * t3489 + 0.3e1 / 0.8e1 * t404 * t2304 * t7518 - t15245 - t15249 + t15252 + t15255 - t14797 * t630 / 0.8e1;
10665   t15263 = t1462 * t3459;
10666   t15264 = t15263 / 0.8e1;
10667   t15265 = t14658 / 0.4e1;
10668   t15266 = t14661 / 0.4e1;
10669   t15267 = t14673 / 0.2e1;
10670   t15268 = t14686 / 0.2e1;
10671   t15269 = t14690 / 0.2e1;
10672   t15270 = 0.3e1 / 0.4e1 * t14698;
10673   t15271 = 0.3e1 / 0.8e1 * t14701;
10674   t15272 = 0.3e1 / 0.4e1 * t14703;
10675   t15273 = 0.3e1 / 0.4e1 * t14705;
10676   t15275 = t139 * t403 * t590;
10677   t15276 = t10540 * t88;
10678   t15280 = t89 * t9725;
10679   t15281 = t2551 * t15280;
10680   t15282 = 0.3e1 / 0.4e1 * t15281;
10681   t15283 = t2309 * t1416;
10682   t15284 = t2551 * t15283;
10683   t15285 = t15284 / 0.4e1;
10684   t15286 = -t3375 * t2543 / 0.8e1 - t3375 * t2546 / 0.8e1 - t15264 - t15265 - t15266 + t15267 + t15268 - t15269 - t15270 - t15271 + t15272 + t15273 - t599 - 0.9e1 / 0.4e1 * t15275 * t2577 * t15276 + t15282 - t15285;
10685   t15289 = t2313 * t6355;
10686   t15292 = t2313 * t6308;
10687   t15295 = t591 * t14588;
10688   t15299 = t4285 * t590 * t88;
10689   t15300 = t2583 * t15299;
10690   t15303 = t1491 * t15276;
10691   t15306 = t2583 * t15276;
10692   t15309 = t10566 * t15276;
10693   t15312 = t591 * t14596;
10694   t15315 = t2304 * t14607;
10695   t15318 = t10513 * t15299;
10696   t15321 = t2551 * t14719;
10697   t15322 = 0.3e1 / 0.4e1 * t15321;
10698   t15324 = t139 * t3374 * t144;
10699   t15330 = t139 * t403 * t595;
10700   t15331 = t15330 * t2574;
10701   t15332 = 0.3e1 / 0.8e1 * t15331;
10702   t15333 = t15330 * t2578;
10703   t15334 = 0.3e1 / 0.8e1 * t15333;
10704   t15335 = 0.3e1 / 0.2e1 * t2551 * t15289 - t2551 * t15292 / 0.4e1 - 0.6e1 * t2551 * t15295 + 0.9e1 / 0.2e1 * t2551 * t15300 - 0.7e1 / 0.8e1 * t15275 * t15303 + 0.11e2 / 0.4e1 * t15275 * t15306 - 0.15e2 / 0.8e1 * t15275 * t15309 + 0.11e2 / 0.4e1 * t2551 * t15312 - 0.25e2 / 0.4e1 * t2551 * t15315 + 0.15e2 / 0.4e1 * t2551 * t15318 - t15322 - t15324 * t2574 / 0.4e1 + t15324 * t2578 / 0.4e1 - t15332 + t15334;
10705   t15336 = t2375 * t2301;
10706   t15337 = t2551 * t15336;
10707   t15338 = t2583 * t14718;
10708   t15339 = t2551 * t15338;
10709   t15340 = 0.3e1 / 0.4e1 * t15339;
10710   t15341 = t1502 * t15276;
10711   t15344 = t1502 * t9512;
10712   t15350 = t139 * t1514 * t595;
10713   t15351 = t15350 * t1836;
10714   t15352 = 0.3e1 / 0.16e2 * t15351;
10715   t15353 = t596 * t803;
10716   t15354 = t1827 * t15353;
10717   t15355 = 0.3e1 / 0.8e1 * t15354;
10718   t15356 = t1502 * t9532;
10719   t15357 = t1827 * t15356;
10720   t15358 = 0.3e1 / 0.8e1 * t15357;
10721   t15359 = t848 * t9532;
10722   t15360 = t1827 * t15359;
10723   t15361 = 0.3e1 / 0.8e1 * t15360;
10724   t15362 = t848 * t14718;
10725   t15363 = t2551 * t15362;
10726   t15364 = t15363 / 0.2e1;
10727   t15365 = t2563 * t595;
10728   t15366 = t1517 * t15365;
10729   t15367 = t6185 * t15366;
10730   t15368 = 0.3e1 / 0.8e1 * t15367;
10731   t15370 = t139 * t14675 * t144;
10732   t15373 = t600 * t4482;
10733   t15376 = t145 * t6324;
10734   t15379 = t1502 * t15299;
10735   t15382 = t15337 - t15340 + 0.9e1 / 0.4e1 * t15275 * t15341 - 0.9e1 / 0.8e1 * t1827 * t15344 + t15324 * t2565 / 0.4e1 - t15352 - t15355 + t15358 + t15361 - t15364 + t15368 - 0.3e1 / 0.16e2 * t15370 * t1836 - 0.3e1 / 0.8e1 * t1827 * t15373 - t2551 * t15376 / 0.2e1 + 0.11e2 / 0.4e1 * t2551 * t15379;
10736   t15384 = t1502 * t9519;
10737   t15387 = t848 * t9512;
10738   t15390 = t848 * t15299;
10739   t15393 = t848 * t9519;
10740   t15397 = t2563 * t412;
10741   t15398 = t1502 * t15397;
10742   t15414 = t600 * t4468;
10743   t15417 = t145 * t6403;
10744   t15420 = t600 * t14562;
10745   t15423 = t591 * t4491;
10746   t15426 = -0.3e1 / 0.2e1 * t2551 * t15384 - 0.3e1 / 0.4e1 * t1827 * t15387 + 0.3e1 / 0.2e1 * t2551 * t15390 - t2551 * t15393 - 0.9e1 / 0.16e2 * t9468 * t7411 - 0.3e1 / 0.4e1 * t2562 * t15398 + 0.9e1 / 0.16e2 * t9468 * t7408 + 0.3e1 / 0.4e1 * t2562 * t2577 * t15397 + 0.9e1 / 0.16e2 * t9468 * t7443 + 0.3e1 / 0.4e1 * t2562 * t1517 * t15397 - 0.11e2 / 0.8e1 * t15275 * t1517 * t15276 + 0.9e1 / 0.8e1 * t1827 * t15414 + 0.3e1 / 0.2e1 * t2551 * t15417 - 0.11e2 / 0.4e1 * t2551 * t15420 + 0.3e1 / 0.2e1 * t1827 * t15423;
10747   t15427 = t423 * t6333;
10748   t15430 = t2583 * t9512;
10749   t15433 = t2583 * t9519;
10750   t15436 = t14713 / 0.2e1;
10751   t15437 = 0.3e1 / 0.2e1 * t14715;
10752   t15438 = 0.3e1 / 0.4e1 * t14720;
10753   t15439 = 0.3e1 / 0.4e1 * t14723;
10754   t15440 = 0.3e1 / 0.2e1 * t14725;
10755   t15441 = 0.2e1 * t14729;
10756   t15442 = 0.3e1 / 0.2e1 * t14731;
10757   t15443 = 0.3e1 / 0.4e1 * t14733;
10758   t15444 = 0.3e1 / 0.8e1 * t14735;
10759   t15445 = 0.3e1 / 0.4e1 * t14738;
10760   t15446 = 0.3e1 / 0.4e1 * t14740;
10761   t15447 = 0.3e1 / 0.4e1 * t14744;
10762   t15448 = 0.2e1 * t2551 * t15427 - 0.9e1 / 0.8e1 * t1827 * t15430 - 0.3e1 / 0.2e1 * t2551 * t15433 - t15436 + t15437 - t15438 + t15439 - t15440 + t15441 - t15442 - t15443 - t15444 + t15445 + t15446 - t14742 + t15447;
10763   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10764     v4rhosigma2lapl[0] = t15182 + t15215 + t15258 + t15286 + t15335 + t15382 + t15426 + t15448;
10765 
10766   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10767     v4rhosigma2lapl[1] = 0.0e0;
10768 
10769   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10770     v4rhosigma2lapl[2] = 0.0e0;
10771 
10772   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10773     v4rhosigma2lapl[3] = 0.0e0;
10774 
10775   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10776     v4rhosigma2lapl[4] = 0.0e0;
10777 
10778   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10779     v4rhosigma2lapl[5] = 0.0e0;
10780 
10781   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10782     v4rhosigma2lapl[6] = 0.0e0;
10783 
10784   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10785     v4rhosigma2lapl[7] = 0.0e0;
10786 
10787   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10788     v4rhosigma2lapl[8] = 0.0e0;
10789 
10790   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10791     v4rhosigma2lapl[9] = 0.0e0;
10792 
10793   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10794     v4rhosigma2lapl[10] = 0.0e0;
10795 
10796   t15451 = t117 * t3504;
10797   t15452 = 0.3e1 / 0.8e1 * t15451;
10798   t15454 = 0.3e1 / 0.8e1 * t117 * t3548;
10799   t15456 = 0.9e1 / 0.16e2 * t353 * t3534;
10800   t15458 = 0.9e1 / 0.16e2 * t353 * t3539;
10801   t15460 = 0.3e1 / 0.2e1 * t117 * t3542;
10802   t15462 = 0.9e1 / 0.8e1 * t117 * t3545;
10803   t15464 = 0.3e1 / 0.4e1 * t117 * t3523;
10804   t15466 = 0.9e1 / 0.16e2 * t353 * t3526;
10805   t15468 = 0.9e1 / 0.8e1 * t117 * t3530;
10806   t15470 = 0.9e1 / 0.8e1 * t117 * t3534;
10807   t15471 = t117 * t3508;
10808   t15472 = 0.3e1 / 0.8e1 * t15471;
10809   t15474 = 0.3e1 / 0.16e2 * t14880 * t645;
10810   t15475 = t353 * t3513;
10811   t15476 = 0.3e1 / 0.16e2 * t15475;
10812   t15477 = t117 * t3517;
10813   t15478 = 0.3e1 / 0.8e1 * t15477;
10814   t15479 = 0.3e1 / 0.4e1 * t14837;
10815   t15480 = 0.3e1 / 0.4e1 * t14839;
10816   t15481 = 0.3e1 / 0.8e1 * t14841;
10817   t15482 = -t2402 + t15452 - t15454 - t15456 + t15458 + t15460 - t15462 - t15464 + t15466 + t15468 - t15470 + t15472 - t15474 - t15476 - t15478 - t2399 + t15479 - t15480 - t15481;
10818   t15483 = 0.3e1 / 0.4e1 * t14843;
10819   t15484 = t616 * t1125;
10820   t15485 = t1913 * t15484;
10821   t15486 = 0.3e1 / 0.8e1 * t15485;
10822   t15487 = t1618 * t10028;
10823   t15488 = t1913 * t15487;
10824   t15489 = 0.3e1 / 0.8e1 * t15488;
10825   t15490 = t10207 * t97;
10826   t15491 = t2676 * t15490;
10827   t15494 = t1159 * t15490;
10828   t15499 = t620 * t5474;
10829   t15502 = t1618 * t15490;
10830   t15505 = t1159 * t10028;
10831   t15506 = t1913 * t15505;
10832   t15507 = 0.3e1 / 0.8e1 * t15506;
10833   t15509 = t139 * t14860 * t153;
10834   t15513 = t139 * t1595 * t615;
10835   t15514 = t15513 * t1902;
10836   t15515 = 0.3e1 / 0.16e2 * t15514;
10837   t15516 = t620 * t5459;
10838   t15523 = t611 * t5463;
10839   t15526 = 0.3e1 / 0.4e1 * t14870;
10840   t15527 = 0.3e1 / 0.4e1 * t14872;
10841   t15528 = 0.3e1 / 0.4e1 * t14874;
10842   t15529 = 0.3e1 / 0.8e1 * t14876;
10843   t15530 = t15483 - t15486 + t15489 - 0.9e1 / 0.8e1 * t1913 * t15491 - 0.3e1 / 0.4e1 * t1913 * t15494 + 0.9e1 / 0.16e2 * t9986 * t8019 + 0.9e1 / 0.8e1 * t1913 * t15499 - 0.9e1 / 0.8e1 * t1913 * t15502 + t15507 - 0.3e1 / 0.16e2 * t15509 * t1902 - t15515 - 0.3e1 / 0.8e1 * t1913 * t15516 - 0.9e1 / 0.16e2 * t9986 * t7957 + 0.9e1 / 0.16e2 * t9986 * t7960 + 0.3e1 / 0.2e1 * t1913 * t15523 + t15526 + t15527 - t15528 - t15529;
10844   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10845     v4rhosigma2lapl[11] = t15482 + t15530;
10846 
10847   t15531 = -t2423 - t2384 + t15181 - t15184 - t15186 - t15188 - t15190 + t15192 + t15194 + t15196 - t15198 - t15200 - t15202 + t15204 + t15206 - t15208 - t15270 - t15271 + t15272;
10848   t15536 = t591 * t4819;
10849   t15539 = t9511 * t107;
10850   t15540 = t2583 * t15539;
10851   t15543 = t600 * t4827;
10852   t15546 = t600 * t4858;
10853   t15549 = t1502 * t15539;
10854   t15552 = t848 * t15539;
10855   t15557 = t15350 * t1873;
10856   t15558 = 0.3e1 / 0.16e2 * t15557;
10857   t15559 = t596 * t999;
10858   t15560 = t1827 * t15559;
10859   t15561 = 0.3e1 / 0.8e1 * t15560;
10860   t15562 = t1502 * t9888;
10861   t15563 = t1827 * t15562;
10862   t15564 = 0.3e1 / 0.8e1 * t15563;
10863   t15567 = t848 * t9888;
10864   t15568 = t1827 * t15567;
10865   t15569 = 0.3e1 / 0.8e1 * t15568;
10866   t15570 = 0.3e1 / 0.4e1 * t14929;
10867   t15571 = 0.3e1 / 0.8e1 * t14931;
10868   t15572 = 0.3e1 / 0.4e1 * t14933;
10869   t15573 = 0.3e1 / 0.4e1 * t14935;
10870   t15574 = t15273 - 0.3e1 / 0.16e2 * t15370 * t1873 + 0.9e1 / 0.16e2 * t9468 * t7726 + 0.3e1 / 0.2e1 * t1827 * t15536 - 0.9e1 / 0.8e1 * t1827 * t15540 - 0.3e1 / 0.8e1 * t1827 * t15543 + 0.9e1 / 0.8e1 * t1827 * t15546 - 0.9e1 / 0.8e1 * t1827 * t15549 - 0.3e1 / 0.4e1 * t1827 * t15552 - 0.9e1 / 0.16e2 * t9468 * t7723 - t15558 - t15561 + t15564 + 0.9e1 / 0.16e2 * t9468 * t7696 + t15569 - t15570 - t15571 + t15572 + t15573;
10871   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10872     v4rhosigma2lapl[12] = t15531 + t15574;
10873 
10874   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10875     v4rhosigma2lapl[13] = 0.0e0;
10876 
10877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10878     v4rhosigma2lapl[14] = 0.0e0;
10879 
10880   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10881     v4rhosigma2lapl[15] = 0.0e0;
10882 
10883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10884     v4rhosigma2lapl[16] = 0.0e0;
10885 
10886   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10887     v4rhosigma2lapl[17] = 0.0e0;
10888 
10889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10890     v4rhosigma2lapl[18] = 0.0e0;
10891 
10892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10893     v4rhosigma2lapl[19] = 0.0e0;
10894 
10895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10896     v4rhosigma2lapl[20] = 0.0e0;
10897 
10898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10899     v4rhosigma2lapl[21] = 0.0e0;
10900 
10901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
10902     v4rhosigma2lapl[22] = 0.0e0;
10903 
10904   t15578 = t516 * t610;
10905   t15582 = t3506 + t3510 - t3515 - t3519 - t3520 + t3521 + t3551 - t3552 + t2445 - t2455 - t2493 + t2496 - t2500 - 0.3e1 / 0.4e1 * t150 * t8324 * t3544 - t150 * t15578 * t1690 / 0.4e1;
10906   t15591 = t1974 * t3533;
10907   t15605 = t1662 * t3513;
10908   t15606 = t15605 / 0.8e1;
10909   t15608 = t446 * t2442 * t1948;
10910   t15609 = t15608 / 0.8e1;
10911   t15612 = t150 * t516 * t615 * t461;
10912   t15613 = t15612 / 0.4e1;
10913   t15618 = t150 * t1974 * t3503;
10914   t15619 = t15618 / 0.4e1;
10915   t15621 = t150 * t517 * t3507;
10916   t15622 = t15621 / 0.4e1;
10917   t15623 = 0.3e1 / 0.8e1 * t1662 * t3526 + 0.3e1 / 0.8e1 * t446 * t611 * t8299 + 0.3e1 / 0.4e1 * t150 * t15578 * t1707 - 0.3e1 / 0.4e1 * t150 * t15591 - 0.3e1 / 0.8e1 * t1662 * t3534 - 0.3e1 / 0.8e1 * t446 * t15591 + 0.3e1 / 0.8e1 * t1662 * t3539 + 0.3e1 / 0.8e1 * t446 * t2437 * t8226 + t150 * t15578 * t1681 - t15606 - t15609 - t15613 - t150 * t517 * t3522 / 0.2e1 + t15619 + t15622;
10918   t15631 = -t15169 * t645 / 0.8e1 - t3429 * t2657 / 0.8e1 - t3429 * t2632 / 0.8e1 + t15452 - t15454 - t15456 + t15458 + t15460 - t15462 - t15464 + t15466 + t15468 - t15470 + t15472 - t15474;
10919   t15632 = t14980 / 0.4e1;
10920   t15633 = t14989 / 0.2e1;
10921   t15634 = t15047 / 0.4e1;
10922   t15635 = t15051 / 0.2e1;
10923   t15636 = t15066 / 0.2e1;
10924   t15637 = t129 * t10359;
10925   t15640 = t2456 * t7304;
10926   t15643 = t2456 * t7233;
10927   t15647 = t139 * t445 * t610;
10928   t15648 = t11143 * t128;
10929   t15649 = t2676 * t15648;
10930   t15652 = -t15476 - t15478 - t2399 - t15632 + t15633 - t15634 - t15635 + t15636 + t15479 - t15480 - t15481 + t15483 - 0.11e2 / 0.4e1 * t2673 * t15637 + 0.3e1 / 0.2e1 * t2673 * t15640 - t2673 * t15643 / 0.4e1 + 0.11e2 / 0.4e1 * t15647 * t15649;
10931   t15655 = t11151 * t15648;
10932   t15658 = t611 * t14939;
10933   t15661 = t2437 * t14944;
10934   t15665 = t5888 * t610 * t128;
10935   t15666 = t11161 * t15665;
10936   t15669 = t1680 * t15083;
10937   t15670 = t2673 * t15669;
10938   t15671 = t2676 * t15083;
10939   t15672 = t2673 * t15671;
10940   t15673 = 0.3e1 / 0.4e1 * t15672;
10941   t15675 = t139 * t3428 * t153;
10942   t15681 = t139 * t445 * t615;
10943   t15682 = t15681 * t2665;
10944   t15683 = 0.3e1 / 0.8e1 * t15682;
10945   t15684 = t129 * t10431;
10946   t15685 = t2673 * t15684;
10947   t15686 = 0.3e1 / 0.4e1 * t15685;
10948   t15687 = t2452 * t1690;
10949   t15688 = t2673 * t15687;
10950   t15689 = t15688 / 0.4e1;
10951   t15690 = t1618 * t15665;
10952   t15693 = t1618 * t15648;
10953   t15699 = t611 * t14958;
10954   t15702 = -0.15e2 / 0.8e1 * t15647 * t15655 + 0.11e2 / 0.4e1 * t2673 * t15658 - 0.25e2 / 0.4e1 * t2673 * t15661 + 0.15e2 / 0.4e1 * t2673 * t15666 + t15670 - t15673 - t15675 * t2665 / 0.4e1 + t15675 * t2669 / 0.4e1 - t15683 + t15686 - t15689 + 0.11e2 / 0.4e1 * t2673 * t15690 + 0.9e1 / 0.4e1 * t15647 * t15693 - 0.9e1 / 0.4e1 * t15647 * t2668 * t15648 - 0.6e1 * t2673 * t15699;
10955   t15703 = t2676 * t15665;
10956   t15706 = t1680 * t15648;
10957   t15709 = t15513 * t2011;
10958   t15710 = 0.3e1 / 0.16e2 * t15709;
10959   t15711 = t616 * t1264;
10960   t15712 = t1913 * t15711;
10961   t15713 = 0.3e1 / 0.8e1 * t15712;
10962   t15714 = t1618 * t10226;
10963   t15715 = t1913 * t15714;
10964   t15716 = 0.3e1 / 0.8e1 * t15715;
10965   t15717 = t2673 * t15114;
10966   t15718 = 0.3e1 / 0.4e1 * t15717;
10967   t15719 = t154 * t7197;
10968   t15722 = t1618 * t10208;
10969   t15725 = t1618 * t10214;
10970   t15730 = t1618 * t11208;
10971   t15733 = t1159 * t10208;
10972   t15736 = t1159 * t15665;
10973   t15739 = t1159 * t10214;
10974   t15741 = 0.9e1 / 0.2e1 * t2673 * t15703 - 0.7e1 / 0.8e1 * t15647 * t15706 - t15710 - t15713 + t15716 - t15718 - t619 + 0.3e1 / 0.2e1 * t2673 * t15719 - 0.9e1 / 0.8e1 * t1913 * t15722 - 0.3e1 / 0.2e1 * t2673 * t15725 - 0.9e1 / 0.16e2 * t9986 * t8181 - 0.3e1 / 0.4e1 * t2662 * t15730 - 0.3e1 / 0.4e1 * t1913 * t15733 + 0.3e1 / 0.2e1 * t2673 * t15736 - t2673 * t15739;
10975   t15743 = t11143 * t610;
10976   t15751 = t2663 * t615;
10977   t15752 = t2668 * t15751;
10978   t15753 = t7079 * t15752;
10979   t15754 = 0.3e1 / 0.8e1 * t15753;
10980   t15755 = t1159 * t10226;
10981   t15756 = t1913 * t15755;
10982   t15757 = 0.3e1 / 0.8e1 * t15756;
10983   t15758 = t1159 * t15083;
10984   t15759 = t2673 * t15758;
10985   t15760 = t15759 / 0.2e1;
10986   t15761 = t1598 * t15751;
10987   t15762 = t7079 * t15761;
10988   t15763 = 0.3e1 / 0.8e1 * t15762;
10989   t15773 = t611 * t5722;
10990   t15776 = t465 * t7207;
10991   t15779 = t2676 * t10208;
10992   t15782 = t2676 * t10214;
10993   t15785 = -0.11e2 / 0.8e1 * t7079 * t1598 * t15743 + 0.9e1 / 0.16e2 * t9986 * t8198 + 0.3e1 / 0.4e1 * t2662 * t11209 + t15754 + t15757 - t15760 + t15763 - 0.3e1 / 0.16e2 * t15509 * t2011 + t15675 * t2702 / 0.4e1 + 0.9e1 / 0.16e2 * t9986 * t8178 + 0.3e1 / 0.4e1 * t2662 * t2668 * t11208 + 0.3e1 / 0.2e1 * t1913 * t15773 + 0.2e1 * t2673 * t15776 - 0.9e1 / 0.8e1 * t1913 * t15779 - 0.3e1 / 0.2e1 * t2673 * t15782;
10994   t15786 = t620 * t5738;
10995   t15789 = t154 * t7201;
10996   t15792 = t620 * t5773;
10997   t15795 = 0.3e1 / 0.4e1 * t15085;
10998   t15796 = 0.3e1 / 0.2e1 * t15089;
10999   t15797 = 0.2e1 * t15091;
11000   t15798 = 0.3e1 / 0.2e1 * t15093;
11001   t15799 = 0.3e1 / 0.2e1 * t15095;
11002   t15800 = t15099 / 0.2e1;
11003   t15801 = 0.3e1 / 0.4e1 * t15101;
11004   t15802 = 0.3e1 / 0.4e1 * t15103;
11005   t15803 = 0.3e1 / 0.8e1 * t15105;
11006   t15804 = 0.3e1 / 0.4e1 * t15108;
11007   t15805 = 0.3e1 / 0.4e1 * t15110;
11008   t15806 = 0.3e1 / 0.4e1 * t15115;
11009   t15807 = -0.3e1 / 0.8e1 * t1913 * t15786 - t2673 * t15789 / 0.2e1 + 0.9e1 / 0.8e1 * t1913 * t15792 + t15795 - t15796 + t15797 - t15798 + t15799 - t15800 + t15801 - t15802 - t15803 + t15804 + t15805 - t15112 - t15806;
11010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11011     v4rhosigma2lapl[23] = t15582 + t15623 + t15631 + t15652 + t15702 + t15741 + t15785 + t15807;
11012 
11013   t15811 = 0.9e1 / 0.8e1 * t77 * t3588;
11014   t15813 = 0.3e1 / 0.8e1 * t77 * t3591;
11015   t15815 = 0.9e1 / 0.8e1 * t77 * t3578;
11016   t15817 = 0.9e1 / 0.16e2 * t220 * t3578;
11017   t15819 = 0.9e1 / 0.16e2 * t220 * t3583;
11018   t15821 = 0.3e1 / 0.4e1 * t77 * t3568;
11019   t15822 = -t3470 + t3471 + t3501 - t3502 - t2312 - t2345 + t2348 - t2352 + t2378 - t15811 - t15813 - t15815 - t15817 + t15819 - t15821;
11020   t15824 = 0.9e1 / 0.16e2 * t220 * t3571;
11021   t15826 = 0.9e1 / 0.8e1 * t77 * t3575;
11022   t15827 = t77 * t3560;
11023   t15828 = 0.3e1 / 0.8e1 * t15827;
11024   t15830 = 0.3e1 / 0.16e2 * t14813 * t660;
11025   t15831 = t220 * t3565;
11026   t15832 = 0.3e1 / 0.16e2 * t15831;
11027   t15833 = t77 * t3554;
11028   t15834 = 0.3e1 / 0.8e1 * t15833;
11029   t15835 = t77 * t3557;
11030   t15836 = 0.3e1 / 0.8e1 * t15835;
11031   t15837 = t542 * t590;
11032   t15857 = t2028 * t3479;
11033   t15860 = t15824 + t15826 + t15828 - t15830 - t15832 - t15834 + t15836 + t141 * t15837 * t1492 - 0.3e1 / 0.4e1 * t141 * t8705 * t3494 - t141 * t15837 * t1416 / 0.4e1 - t141 * t543 * t3483 / 0.2e1 + 0.3e1 / 0.8e1 * t1462 * t3571 + 0.3e1 / 0.8e1 * t404 * t591 * t8677 + 0.3e1 / 0.4e1 * t141 * t15837 * t1439 - 0.3e1 / 0.4e1 * t141 * t15857;
11034   t15877 = t1462 * t3565;
11035   t15878 = t15877 / 0.8e1;
11036   t15880 = t404 * t2375 * t2080;
11037   t15881 = t15880 / 0.8e1;
11038   t15884 = t141 * t542 * t595 * t419;
11039   t15885 = t15884 / 0.4e1;
11040   t15887 = t141 * t2028 * t3466;
11041   t15888 = t15887 / 0.4e1;
11042   t15890 = t141 * t543 * t3453;
11043   t15891 = t15890 / 0.4e1;
11044   t15893 = 0.3e1 / 0.2e1 * t77 * t3586;
11045   t15894 = -0.3e1 / 0.8e1 * t1462 * t3578 - 0.3e1 / 0.8e1 * t404 * t15857 + 0.3e1 / 0.8e1 * t1462 * t3583 + 0.3e1 / 0.8e1 * t404 * t2304 * t8561 - t14797 * t660 / 0.8e1 - t3375 * t2720 / 0.8e1 - t3375 * t2723 / 0.8e1 - t15878 - t15881 - t15885 + t15888 + t15891 + t15893 - t2384 - t15265;
11046   t15901 = t2747 * t15283;
11047   t15902 = t15901 / 0.4e1;
11048   t15903 = t2747 * t15336;
11049   t15904 = t2747 * t15338;
11050   t15905 = 0.3e1 / 0.4e1 * t15904;
11051   t15910 = -t15266 + t15267 + t15268 - t15269 - t15270 - t15271 + t15272 + t15273 - 0.11e2 / 0.4e1 * t2747 * t15420 + 0.3e1 / 0.2e1 * t2747 * t15289 - t2747 * t15292 / 0.4e1 - t15902 + t15903 - t15905 - t15324 * t2763 / 0.4e1 + t15324 * t2766 / 0.4e1;
11052   t15915 = t11412 * t88;
11053   t15916 = t1502 * t15915;
11054   t15919 = t2577 * t15915;
11055   t15926 = t1491 * t15915;
11056   t15929 = t2583 * t15915;
11057   t15932 = t10566 * t15915;
11058   t15941 = t2104 * t15356;
11059   t15942 = 0.3e1 / 0.8e1 * t15941;
11060   t15943 = t2747 * t14719;
11061   t15944 = 0.3e1 / 0.4e1 * t15943;
11062   t15945 = t2756 * t595;
11063   t15946 = t2577 * t15945;
11064   t15947 = t6185 * t15946;
11065   t15948 = 0.3e1 / 0.8e1 * t15947;
11066   t15949 = t2104 * t15359;
11067   t15950 = 0.3e1 / 0.8e1 * t15949;
11068   t15951 = 0.11e2 / 0.4e1 * t2747 * t15379 + 0.9e1 / 0.4e1 * t15275 * t15916 - 0.9e1 / 0.4e1 * t15275 * t15919 - 0.6e1 * t2747 * t15295 + 0.9e1 / 0.2e1 * t2747 * t15300 - 0.7e1 / 0.8e1 * t15275 * t15926 + 0.11e2 / 0.4e1 * t15275 * t15929 - 0.15e2 / 0.8e1 * t15275 * t15932 + 0.11e2 / 0.4e1 * t2747 * t15312 - 0.25e2 / 0.4e1 * t2747 * t15315 + 0.15e2 / 0.4e1 * t2747 * t15318 + t15942 - t15944 + t15948 + t15950;
11069   t15952 = t2747 * t15362;
11070   t15953 = t15952 / 0.2e1;
11071   t15954 = t1517 * t15945;
11072   t15955 = t6185 * t15954;
11073   t15956 = 0.3e1 / 0.8e1 * t15955;
11074   t15961 = t15350 * t2109;
11075   t15962 = 0.3e1 / 0.16e2 * t15961;
11076   t15963 = t2104 * t15353;
11077   t15964 = 0.3e1 / 0.8e1 * t15963;
11078   t15965 = t2747 * t15280;
11079   t15966 = 0.3e1 / 0.4e1 * t15965;
11080   t15967 = t1502 * t15945;
11081   t15968 = t6185 * t15967;
11082   t15969 = 0.3e1 / 0.8e1 * t15968;
11083   t15984 = -t15953 + t15956 - 0.3e1 / 0.16e2 * t15370 * t2109 + t15324 * t2758 / 0.4e1 - t15962 - t15964 + t15966 - t15969 - t2747 * t15376 / 0.2e1 + 0.9e1 / 0.8e1 * t2104 * t15414 + 0.3e1 / 0.2e1 * t2747 * t15417 - 0.9e1 / 0.8e1 * t2104 * t15344 - 0.3e1 / 0.2e1 * t2747 * t15384 - 0.9e1 / 0.16e2 * t9468 * t8489 - 0.3e1 / 0.4e1 * t2562 * t11445;
11084   t15995 = t11412 * t590;
11085   t15996 = t1517 * t15995;
11086   t16013 = 0.9e1 / 0.16e2 * t9468 * t8486 + 0.3e1 / 0.4e1 * t2562 * t11477 - 0.3e1 / 0.4e1 * t2104 * t15387 + 0.3e1 / 0.2e1 * t2747 * t15390 - t2747 * t15393 - 0.11e2 / 0.8e1 * t6185 * t15996 + 0.9e1 / 0.16e2 * t9468 * t8498 + 0.3e1 / 0.4e1 * t2562 * t11510 + 0.3e1 / 0.2e1 * t2104 * t15423 + 0.2e1 * t2747 * t15427 - 0.9e1 / 0.8e1 * t2104 * t15430 - 0.3e1 / 0.2e1 * t2747 * t15433 - 0.3e1 / 0.8e1 * t2104 * t15373 - t599 - t15436;
11087   t16014 = t15437 - t15438 + t15439 - t15440 + t15441 - t15442 - t15443 - t15444 + t15445 + t15446 - t14742 + t15447 - t3556 + t3559 + t3562 - t3567;
11088   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11089     v4rhosigma2tau[0] = t15822 + t15860 + t15894 + t15910 + t15951 + t15984 + t16013 + t16014;
11090 
11091   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11092     v4rhosigma2tau[1] = 0.0e0;
11093 
11094   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11095     v4rhosigma2tau[2] = 0.0e0;
11096 
11097   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11098     v4rhosigma2tau[3] = 0.0e0;
11099 
11100   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11101     v4rhosigma2tau[4] = 0.0e0;
11102 
11103   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11104     v4rhosigma2tau[5] = 0.0e0;
11105 
11106   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11107     v4rhosigma2tau[6] = 0.0e0;
11108 
11109   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11110     v4rhosigma2tau[7] = 0.0e0;
11111 
11112   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11113     v4rhosigma2tau[8] = 0.0e0;
11114 
11115   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11116     v4rhosigma2tau[9] = 0.0e0;
11117 
11118   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11119     v4rhosigma2tau[10] = 0.0e0;
11120 
11121   t16018 = 0.3e1 / 0.16e2 * t14880 * t673;
11122   t16019 = t353 * t3599;
11123   t16020 = 0.3e1 / 0.16e2 * t16019;
11124   t16021 = t117 * t3603;
11125   t16022 = 0.3e1 / 0.8e1 * t16021;
11126   t16023 = t117 * t3606;
11127   t16024 = 0.3e1 / 0.8e1 * t16023;
11128   t16025 = t117 * t3594;
11129   t16026 = 0.3e1 / 0.8e1 * t16025;
11130   t16028 = 0.3e1 / 0.8e1 * t117 * t3632;
11131   t16030 = 0.9e1 / 0.16e2 * t353 * t3609;
11132   t16032 = 0.9e1 / 0.16e2 * t353 * t3624;
11133   t16034 = 0.3e1 / 0.2e1 * t117 * t3627;
11134   t16036 = 0.9e1 / 0.8e1 * t117 * t3629;
11135   t16038 = 0.9e1 / 0.8e1 * t117 * t3609;
11136   t16040 = 0.3e1 / 0.4e1 * t117 * t3612;
11137   t16042 = 0.9e1 / 0.16e2 * t353 * t3615;
11138   t16044 = 0.9e1 / 0.8e1 * t117 * t3619;
11139   t16045 = -t2402 - t16018 - t16020 - t16022 + t16024 + t16026 - t16028 - t16030 + t16032 + t16034 - t16036 - t16038 - t16040 + t16042 + t16044 - t2399 + t15479 - t15480 - t15481;
11140   t16052 = t15513 * t2179;
11141   t16053 = 0.3e1 / 0.16e2 * t16052;
11142   t16054 = t2190 * t15484;
11143   t16055 = 0.3e1 / 0.8e1 * t16054;
11144   t16056 = t2190 * t15487;
11145   t16057 = 0.3e1 / 0.8e1 * t16056;
11146   t16058 = t2190 * t15505;
11147   t16059 = 0.3e1 / 0.8e1 * t16058;
11148   t16074 = t15483 - 0.3e1 / 0.4e1 * t2190 * t15494 + 0.9e1 / 0.16e2 * t9986 * t9064 - 0.3e1 / 0.16e2 * t15509 * t2179 - t16053 - t16055 + t16057 + t16059 - 0.3e1 / 0.8e1 * t2190 * t15516 + 0.9e1 / 0.8e1 * t2190 * t15499 - 0.9e1 / 0.16e2 * t9986 * t9015 + 0.9e1 / 0.16e2 * t9986 * t9041 + 0.3e1 / 0.2e1 * t2190 * t15523 - 0.9e1 / 0.8e1 * t2190 * t15491 - 0.9e1 / 0.8e1 * t2190 * t15502 + t15526 + t15527 - t15528 - t15529;
11149   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11150     v4rhosigma2tau[11] = t16045 + t16074;
11151 
11152   t16075 = -t2423 - t15811 - t15813 - t15815 - t15817 + t15819 - t15821 + t15824 + t15826 + t15828 - t15830 - t15832 - t15834 + t15836 + t15893 - t2384 - t15270 - t15271 + t15272;
11153   t16094 = t2104 * t15567;
11154   t16095 = 0.3e1 / 0.8e1 * t16094;
11155   t16098 = t15350 * t2150;
11156   t16099 = 0.3e1 / 0.16e2 * t16098;
11157   t16100 = t2104 * t15559;
11158   t16101 = 0.3e1 / 0.8e1 * t16100;
11159   t16102 = t2104 * t15562;
11160   t16103 = 0.3e1 / 0.8e1 * t16102;
11161   t16104 = t15273 + 0.9e1 / 0.16e2 * t9468 * t8804 + 0.3e1 / 0.2e1 * t2104 * t15536 - 0.9e1 / 0.8e1 * t2104 * t15540 - 0.3e1 / 0.8e1 * t2104 * t15543 - 0.3e1 / 0.4e1 * t2104 * t15552 + 0.9e1 / 0.16e2 * t9468 * t8755 + 0.9e1 / 0.8e1 * t2104 * t15546 - 0.9e1 / 0.8e1 * t2104 * t15549 - 0.9e1 / 0.16e2 * t9468 * t8801 + t16095 - 0.3e1 / 0.16e2 * t15370 * t2150 - t16099 - t16101 + t16103 - t15570 - t15571 + t15572 + t15573;
11162   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11163     v4rhosigma2tau[12] = t16075 + t16104;
11164 
11165   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11166     v4rhosigma2tau[13] = 0.0e0;
11167 
11168   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11169     v4rhosigma2tau[14] = 0.0e0;
11170 
11171   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11172     v4rhosigma2tau[15] = 0.0e0;
11173 
11174   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11175     v4rhosigma2tau[16] = 0.0e0;
11176 
11177   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11178     v4rhosigma2tau[17] = 0.0e0;
11179 
11180   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11181     v4rhosigma2tau[18] = 0.0e0;
11182 
11183   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11184     v4rhosigma2tau[19] = 0.0e0;
11185 
11186   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11187     v4rhosigma2tau[20] = 0.0e0;
11188 
11189   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11190     v4rhosigma2tau[21] = 0.0e0;
11191 
11192   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11193     v4rhosigma2tau[22] = 0.0e0;
11194 
11195   t16108 = t574 * t610;
11196   t16114 = t611 * t14482;
11197   t16122 = -t3520 + t3521 + t3551 - t3552 + t2445 - t2455 - t2493 + t2496 - t2500 + 0.3e1 / 0.8e1 * t446 * t611 * t9302 + 0.3e1 / 0.4e1 * t150 * t16108 * t1707 - 0.3e1 / 0.8e1 * t1662 * t3609 - 0.3e1 / 0.8e1 * t446 * t16114 + 0.3e1 / 0.8e1 * t1662 * t3624 + 0.3e1 / 0.8e1 * t446 * t2437 * t9289;
11198   t16124 = t446 * t2442 * t2208;
11199   t16125 = t16124 / 0.8e1;
11200   t16128 = t150 * t574 * t615 * t461;
11201   t16129 = t16128 / 0.4e1;
11202   t16131 = t150 * t2227 * t3503;
11203   t16132 = t16131 / 0.4e1;
11204   t16134 = t150 * t575 * t3507;
11205   t16135 = t16134 / 0.4e1;
11206   t16142 = t1662 * t3599;
11207   t16143 = t16142 / 0.8e1;
11208   t16159 = -t16125 - t16129 + t16132 + t16135 - t15169 * t673 / 0.8e1 - t3429 * t2825 / 0.8e1 - t3429 * t2828 / 0.8e1 - t16143 + t150 * t16108 * t1681 - 0.3e1 / 0.4e1 * t150 * t9361 * t3544 - t150 * t16108 * t1690 / 0.4e1 - 0.3e1 / 0.4e1 * t150 * t16114 - t150 * t575 * t3522 / 0.2e1 + 0.3e1 / 0.8e1 * t1662 * t3615 - t16018;
11209   t16161 = t2841 * t15684;
11210   t16162 = 0.3e1 / 0.4e1 * t16161;
11211   t16163 = t2841 * t15687;
11212   t16164 = t16163 / 0.4e1;
11213   t16165 = -t16020 - t16022 + t16024 + t16026 - t16028 - t16030 + t16032 + t16034 - t16036 - t16038 - t16040 + t16042 + t16044 + t16162 - t16164;
11214   t16178 = t15681 * t2834;
11215   t16179 = 0.3e1 / 0.8e1 * t16178;
11216   t16180 = t15681 * t2837;
11217   t16181 = 0.3e1 / 0.8e1 * t16180;
11218   t16182 = t2841 * t15669;
11219   t16183 = t2841 * t15671;
11220   t16184 = 0.3e1 / 0.4e1 * t16183;
11221   t16189 = t11952 * t128;
11222   t16190 = t1618 * t16189;
11223   t16193 = t1680 * t16189;
11224   t16196 = t2676 * t16189;
11225   t16202 = -0.11e2 / 0.4e1 * t2841 * t15637 + 0.3e1 / 0.2e1 * t2841 * t15640 - t2841 * t15643 / 0.4e1 + 0.11e2 / 0.4e1 * t2841 * t15658 - 0.25e2 / 0.4e1 * t2841 * t15661 + 0.15e2 / 0.4e1 * t2841 * t15666 - t16179 + t16181 + t16182 - t16184 - 0.6e1 * t2841 * t15699 + 0.9e1 / 0.2e1 * t2841 * t15703 + 0.9e1 / 0.4e1 * t15647 * t16190 - 0.7e1 / 0.8e1 * t15647 * t16193 + 0.11e2 / 0.4e1 * t15647 * t16196 - 0.15e2 / 0.8e1 * t15647 * t11151 * t16189;
11226   t16205 = t2841 * t15114;
11227   t16206 = 0.3e1 / 0.4e1 * t16205;
11228   t16225 = t11952 * t610;
11229   t16229 = t2832 * t615;
11230   t16230 = t1598 * t16229;
11231   t16231 = t7079 * t16230;
11232   t16232 = 0.3e1 / 0.8e1 * t16231;
11233   t16237 = t15513 * t2288;
11234   t16238 = 0.3e1 / 0.16e2 * t16237;
11235   t16239 = -t16206 - t15675 * t2834 / 0.4e1 + t15675 * t2837 / 0.4e1 + 0.9e1 / 0.8e1 * t2190 * t15792 + 0.3e1 / 0.2e1 * t2841 * t15719 - 0.9e1 / 0.16e2 * t9986 * t9246 - 0.3e1 / 0.4e1 * t2662 * t11991 - 0.9e1 / 0.8e1 * t2190 * t15722 + 0.11e2 / 0.4e1 * t2841 * t15690 - 0.3e1 / 0.2e1 * t2841 * t15725 - 0.9e1 / 0.4e1 * t7079 * t2668 * t16225 + t16232 - 0.3e1 / 0.16e2 * t15509 * t2288 + t15675 * t2851 / 0.4e1 - t16238;
11236   t16240 = t2190 * t15711;
11237   t16241 = 0.3e1 / 0.8e1 * t16240;
11238   t16242 = t2190 * t15714;
11239   t16243 = 0.3e1 / 0.8e1 * t16242;
11240   t16244 = t2190 * t15755;
11241   t16245 = 0.3e1 / 0.8e1 * t16244;
11242   t16246 = t2841 * t15758;
11243   t16247 = t16246 / 0.2e1;
11244   t16269 = -t16241 + t16243 + t16245 - t16247 - 0.3e1 / 0.8e1 * t2190 * t15786 - t2841 * t15789 / 0.2e1 + 0.9e1 / 0.16e2 * t9986 * t9243 + 0.3e1 / 0.4e1 * t2662 * t11997 + 0.3e1 / 0.2e1 * t2190 * t15773 + 0.2e1 * t2841 * t15776 - 0.9e1 / 0.8e1 * t2190 * t15779 - 0.3e1 / 0.2e1 * t2841 * t15782 - 0.3e1 / 0.4e1 * t2190 * t15733 + 0.3e1 / 0.2e1 * t2841 * t15736 - t2841 * t15739;
11245   t16276 = t1598 * t11990;
11246   t16279 = -0.11e2 / 0.8e1 * t7079 * t1598 * t16225 + 0.9e1 / 0.16e2 * t9986 * t9238 + 0.3e1 / 0.4e1 * t2662 * t16276 - t2399 - t15632 + t15633 - t15634 - t15635 + t15636 + t15479 - t15480 - t15481 + t15483 - t619 + t15795;
11247   t16280 = -t15796 + t15797 - t15798 + t15799 - t15800 + t15801 - t15802 - t15803 + t15804 + t15805 - t15112 - t15806 + t3596 - t3601 - t3605 + t3608;
11248   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11249     v4rhosigma2tau[23] = t16122 + t16159 + t16165 + t16202 + t16239 + t16269 + t16279 + t16280;
11250 
11251   t16287 = t3651 - t3652 - t3653 + t3654 - t3655 + t3656 + t3668 - t3673 - t2312 - t2345 + t2348 - t2352 + t2378 + t3375 * t2872 / 0.4e1 - t3375 * t2868 / 0.4e1;
11252   t16288 = t687 * t6324;
11253   t16292 = 0.3e1 / 0.8e1 * t77 * t3670;
11254   t16294 = 0.9e1 / 0.16e2 * t220 * t3663;
11255   t16296 = 0.3e1 / 0.2e1 * t77 * t3666;
11256   t16298 = 0.9e1 / 0.8e1 * t77 * t3658;
11257   t16300 = 0.9e1 / 0.16e2 * t220 * t3639;
11258   t16302 = 0.9e1 / 0.8e1 * t77 * t3639;
11259   t16304 = 0.3e1 / 0.4e1 * t77 * t3643;
11260   t16306 = 0.9e1 / 0.16e2 * t220 * t3646;
11261   t16308 = 0.9e1 / 0.8e1 * t77 * t3635;
11262   t16321 = -0.3e1 / 0.4e1 * t141 * t16288 - t16292 + t16294 + t16296 - t16298 - t16300 - t16302 - t16304 + t16306 + t16308 - 0.3e1 / 0.4e1 * t141 * t2871 * t14630 - 0.3e1 / 0.8e1 * t1462 * t3639 - 0.3e1 / 0.8e1 * t404 * t16288 + 0.3e1 / 0.8e1 * t1462 * t3663 + 0.3e1 / 0.8e1 * t404 * t2871 * t6333;
11263   t16347 = t139 * t140 * t686;
11264   t16348 = t417 * t6308;
11265   t16351 = t89 * t6277;
11266   t16354 = t10489 * t88;
11267   t16355 = t6288 * t16354;
11268   t16358 = t1491 * t16354;
11269   t16361 = t2583 * t16354;
11270   t16364 = t6293 * t16354;
11271   t16367 = t141 * t687 * t6333 - t141 * t686 * t412 * t1416 / 0.4e1 - t141 * t691 * t14646 / 0.2e1 + 0.3e1 / 0.8e1 * t1462 * t3646 + 0.3e1 / 0.8e1 * t404 * t687 * t6403 - 0.3e1 / 0.16e2 * t14676 * t2865 - t3375 * t2894 / 0.4e1 + t3375 * t2897 / 0.4e1 + 0.3e1 / 0.4e1 * t141 * t691 * t6403 - t16347 * t16348 / 0.4e1 + 0.3e1 / 0.2e1 * t16347 * t16351 + 0.11e2 / 0.4e1 * t16347 * t16355 - 0.6e1 * t16347 * t16358 + 0.9e1 / 0.2e1 * t16347 * t16361 - 0.25e2 / 0.4e1 * t16347 * t16364;
11272   t16368 = t10513 * t16354;
11273   t16372 = t139 * t403 * t686;
11274   t16377 = t418 * t16354;
11275   t16380 = t4285 * t686;
11276   t16381 = t16380 * t144;
11277   t16382 = t1502 * t16381;
11278   t16387 = t2552 * t484;
11279   t16388 = t1502 * t16387;
11280   t16391 = t1502 * t16354;
11281   t16397 = t848 * t6177;
11282   t16400 = t848 * t16387;
11283   t16402 = t848 * t16354;
11284   t16413 = 0.15e2 / 0.4e1 * t16347 * t16368 - 0.7e1 / 0.8e1 * t16372 * t16358 + 0.11e2 / 0.4e1 * t16372 * t16361 - 0.11e2 / 0.4e1 * t16347 * t16377 + 0.9e1 / 0.4e1 * t6185 * t16382 - 0.9e1 / 0.8e1 * t12386 * t6181 - 0.3e1 / 0.2e1 * t2551 * t16388 + 0.11e2 / 0.4e1 * t16347 * t16391 - 0.9e1 / 0.4e1 * t6185 * t2577 * t16381 - 0.3e1 / 0.4e1 * t12386 * t16397 - t2551 * t16400 + 0.3e1 / 0.2e1 * t16347 * t16402 - 0.11e2 / 0.8e1 * t6185 * t1517 * t16381 + 0.9e1 / 0.16e2 * t12549 * t6225 + 0.3e1 / 0.4e1 * t3057 * t1517 * t16387;
11285   t16416 = t418 * t6177;
11286   t16419 = t418 * t16387;
11287   t16422 = t145 * t4482;
11288   t16425 = t145 * t7514;
11289   t16435 = t1491 * t6177;
11290   t16438 = t1491 * t16387;
11291   t16441 = t2583 * t6177;
11292   t16444 = t2583 * t16387;
11293   t16452 = 0.3e1 / 0.8e1 * t15199;
11294   t16453 = 0.9e1 / 0.8e1 * t12386 * t16416 + 0.3e1 / 0.2e1 * t2551 * t16419 - 0.3e1 / 0.8e1 * t12386 * t16422 - t2551 * t16425 / 0.2e1 - 0.3e1 / 0.4e1 * t3057 * t16388 + 0.9e1 / 0.16e2 * t12549 * t6178 + 0.3e1 / 0.4e1 * t3057 * t2577 * t16387 + 0.3e1 / 0.2e1 * t12386 * t16435 + 0.2e1 * t2551 * t16438 - 0.9e1 / 0.8e1 * t12386 * t16441 - 0.3e1 / 0.2e1 * t2551 * t16444 - 0.15e2 / 0.8e1 * t6185 * t10566 * t16381 - 0.9e1 / 0.16e2 * t12549 * t6181 - t2384 - t16452;
11295   t16454 = 0.3e1 / 0.4e1 * t15201;
11296   t16455 = 0.3e1 / 0.4e1 * t15203;
11297   t16456 = 0.3e1 / 0.4e1 * t15205;
11298   t16457 = t15244 / 0.4e1;
11299   t16458 = t15248 / 0.2e1;
11300   t16459 = t15251 / 0.2e1;
11301   t16460 = t15254 / 0.2e1;
11302   t16461 = t15263 / 0.4e1;
11303   t16462 = t14658 / 0.8e1;
11304   t16463 = t14661 / 0.8e1;
11305   t16464 = t14673 / 0.4e1;
11306   t16465 = t14686 / 0.4e1;
11307   t16466 = t14690 / 0.4e1;
11308   t16467 = 0.3e1 / 0.8e1 * t14698;
11309   t16468 = 0.3e1 / 0.16e2 * t14701;
11310   t16469 = -t16454 + t16455 + t16456 - t16457 - t16458 + t16459 + t16460 - t16461 - t16462 - t16463 + t16464 + t16465 - t16466 - t16467 - t16468;
11311   t16471 = 0.3e1 / 0.8e1 * t14703;
11312   t16472 = 0.3e1 / 0.8e1 * t14705;
11313   t16473 = 0.3e1 / 0.2e1 * t15281;
11314   t16474 = t15284 / 0.2e1;
11315   t16475 = 0.3e1 / 0.2e1 * t15321;
11316   t16476 = 0.3e1 / 0.4e1 * t15331;
11317   t16477 = 0.3e1 / 0.4e1 * t15333;
11318   t16478 = 0.2e1 * t15337;
11319   t16479 = 0.3e1 / 0.2e1 * t15339;
11320   t16480 = 0.3e1 / 0.8e1 * t15351;
11321   t16481 = 0.3e1 / 0.4e1 * t15354;
11322   t16482 = 0.3e1 / 0.4e1 * t15357;
11323   t16483 = 0.3e1 / 0.4e1 * t15360;
11324   t16484 = t16471 + t16472 - t599 + t16473 - t16474 - t16475 - t16476 + t16477 + t16478 - t16479 - t16480 - t16481 + t16482 + t16483 - t15363;
11325   t16485 = 0.3e1 / 0.4e1 * t15367;
11326   t16486 = t14713 / 0.4e1;
11327   t16487 = 0.3e1 / 0.4e1 * t14715;
11328   t16488 = 0.3e1 / 0.8e1 * t14720;
11329   t16489 = 0.3e1 / 0.8e1 * t14723;
11330   t16490 = 0.3e1 / 0.4e1 * t14725;
11331   t16491 = 0.3e1 / 0.4e1 * t14731;
11332   t16492 = 0.3e1 / 0.8e1 * t14733;
11333   t16493 = 0.3e1 / 0.16e2 * t14735;
11334   t16494 = 0.3e1 / 0.8e1 * t14738;
11335   t16495 = 0.3e1 / 0.8e1 * t14740;
11336   t16496 = t14742 / 0.2e1;
11337   t16497 = 0.3e1 / 0.8e1 * t14744;
11338   t16499 = 0.3e1 / 0.16e2 * t14813 * t688;
11339   t16502 = t16485 - t16486 + t16487 - t16488 + t16489 - t16490 + t14729 - t16491 - t16492 - t16493 + t16494 + t16495 - t16496 + t16497 - t16499 - t14797 * t688 / 0.8e1;
11340   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11341     v4rhosigmalapl2[0] = t16287 + t16321 + t16367 + t16413 + t16453 + t16469 + t16484 + t16502;
11342 
11343   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11344     v4rhosigmalapl2[1] = 0.0e0;
11345 
11346   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11347     v4rhosigmalapl2[2] = 0.0e0;
11348 
11349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11350     v4rhosigmalapl2[3] = 0.0e0;
11351 
11352   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11353     v4rhosigmalapl2[4] = 0.0e0;
11354 
11355   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11356     v4rhosigmalapl2[5] = 0.0e0;
11357 
11358   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11359     v4rhosigmalapl2[6] = 0.0e0;
11360 
11361   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11362     v4rhosigmalapl2[7] = 0.0e0;
11363 
11364   t16506 = 0.3e1 / 0.8e1 * t117 * t3708;
11365   t16508 = 0.9e1 / 0.16e2 * t353 * t3697;
11366   t16510 = 0.3e1 / 0.2e1 * t117 * t3700;
11367   t16512 = 0.9e1 / 0.8e1 * t117 * t3703;
11368   t16514 = 0.9e1 / 0.16e2 * t353 * t3674;
11369   t16516 = 0.3e1 / 0.4e1 * t117 * t3678;
11370   t16518 = 0.9e1 / 0.16e2 * t353 * t3681;
11371   t16520 = 0.9e1 / 0.8e1 * t117 * t3684;
11372   t16522 = 0.9e1 / 0.8e1 * t117 * t3674;
11373   t16525 = 0.3e1 / 0.4e1 * t15451;
11374   t16526 = 0.3e1 / 0.4e1 * t15471;
11375   t16527 = 0.3e1 / 0.8e1 * t15475;
11376   t16528 = 0.3e1 / 0.4e1 * t15477;
11377   t16529 = t1159 * t6841;
11378   t16534 = t460 * t6841;
11379   t16539 = -t2402 - t16506 + t16508 + t16510 - t16512 - t16514 - t16516 + t16518 + t16520 - t16522 - 0.3e1 / 0.16e2 * t14861 * t2932 + t16525 + t16526 - t16527 - t16528 - 0.3e1 / 0.4e1 * t12641 * t16529 + 0.9e1 / 0.16e2 * t12651 * t6878 + 0.9e1 / 0.8e1 * t12641 * t16534 - 0.9e1 / 0.8e1 * t12641 * t6842;
11380   t16540 = t154 * t5459;
11381   t16547 = t1680 * t6841;
11382   t16550 = t2676 * t6841;
11383   t16553 = 0.3e1 / 0.8e1 * t14837;
11384   t16554 = 0.3e1 / 0.8e1 * t14839;
11385   t16555 = 0.3e1 / 0.16e2 * t14841;
11386   t16556 = 0.3e1 / 0.8e1 * t14843;
11387   t16557 = 0.3e1 / 0.4e1 * t15485;
11388   t16558 = 0.3e1 / 0.4e1 * t15488;
11389   t16559 = 0.3e1 / 0.4e1 * t15506;
11390   t16560 = 0.3e1 / 0.8e1 * t15514;
11391   t16561 = 0.3e1 / 0.8e1 * t14870;
11392   t16562 = 0.3e1 / 0.8e1 * t14872;
11393   t16563 = 0.3e1 / 0.8e1 * t14874;
11394   t16564 = 0.3e1 / 0.16e2 * t14876;
11395   t16566 = 0.3e1 / 0.16e2 * t14880 * t703;
11396   t16567 = -0.3e1 / 0.8e1 * t12641 * t16540 - 0.9e1 / 0.16e2 * t12651 * t6842 + 0.9e1 / 0.16e2 * t12651 * t6845 + 0.3e1 / 0.2e1 * t12641 * t16547 - 0.9e1 / 0.8e1 * t12641 * t16550 - t2399 + t16553 - t16554 - t16555 + t16556 - t16557 + t16558 + t16559 - t16560 + t16561 + t16562 - t16563 - t16564 - t16566;
11397   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11398     v4rhosigmalapl2[8] = t16539 + t16567;
11399 
11400   t16572 = t1491 * t6534;
11401   t16575 = t145 * t4827;
11402   t16578 = t2583 * t6534;
11403   t16583 = t848 * t6534;
11404   t16588 = t418 * t6534;
11405   t16591 = -t2423 - 0.3e1 / 0.16e2 * t14676 * t2950 - t16292 + t16294 + t16296 - t16298 - t16300 - t16302 - t16304 + t16306 + t16308 + 0.9e1 / 0.16e2 * t12549 * t6570 + 0.3e1 / 0.2e1 * t12386 * t16572 - 0.3e1 / 0.8e1 * t12386 * t16575 - 0.9e1 / 0.8e1 * t12386 * t16578 - 0.9e1 / 0.16e2 * t12549 * t6567 - 0.3e1 / 0.4e1 * t12386 * t16583 + 0.9e1 / 0.16e2 * t12549 * t6535 + 0.9e1 / 0.8e1 * t12386 * t16588;
11406   t16594 = 0.3e1 / 0.8e1 * t15557;
11407   t16595 = 0.3e1 / 0.4e1 * t15560;
11408   t16596 = 0.3e1 / 0.4e1 * t15563;
11409   t16597 = 0.3e1 / 0.4e1 * t15568;
11410   t16598 = 0.3e1 / 0.8e1 * t14929;
11411   t16599 = 0.3e1 / 0.16e2 * t14931;
11412   t16600 = 0.3e1 / 0.8e1 * t14933;
11413   t16601 = 0.3e1 / 0.8e1 * t14935;
11414   t16602 = -0.9e1 / 0.8e1 * t12386 * t6567 - t2384 - t16452 - t16454 + t16455 + t16456 - t16467 - t16468 + t16471 + t16472 - t16594 - t16595 + t16596 + t16597 - t16598 - t16599 + t16600 + t16601 - t16499;
11415   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11416     v4rhosigmalapl2[9] = t16591 + t16602;
11417 
11418   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11419     v4rhosigmalapl2[10] = 0.0e0;
11420 
11421   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11422     v4rhosigmalapl2[11] = 0.0e0;
11423 
11424   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11425     v4rhosigmalapl2[12] = 0.0e0;
11426 
11427   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11428     v4rhosigmalapl2[13] = 0.0e0;
11429 
11430   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11431     v4rhosigmalapl2[14] = 0.0e0;
11432 
11433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11434     v4rhosigmalapl2[15] = 0.0e0;
11435 
11436   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11437     v4rhosigmalapl2[16] = 0.0e0;
11438 
11439   t16607 = t3689 + t3690 - t3691 - t3692 - t3693 + t3694 + t3706 - t3711 + t2445 - t2455 - t2493 + t2496 - t2500 - t3429 * t2975 / 0.4e1 + t3429 * t2981 / 0.4e1;
11440   t16612 = t702 * t7201;
11441   t16646 = -t3429 * t3007 / 0.4e1 + t3429 * t3010 / 0.4e1 - 0.3e1 / 0.4e1 * t150 * t16612 - t150 * t706 * t15032 / 0.2e1 + 0.3e1 / 0.8e1 * t1662 * t3681 + 0.3e1 / 0.8e1 * t446 * t702 * t7197 + 0.3e1 / 0.4e1 * t150 * t706 * t7197 - 0.3e1 / 0.16e2 * t14861 * t3003 - 0.3e1 / 0.4e1 * t150 * t2980 * t15078 - t150 * t701 * t454 * t1690 / 0.4e1 - 0.3e1 / 0.8e1 * t1662 * t3674 - 0.3e1 / 0.8e1 * t446 * t16612 + 0.3e1 / 0.8e1 * t1662 * t3697 + 0.3e1 / 0.8e1 * t446 * t2980 * t7207 + t150 * t702 * t7207;
11442   t16649 = t139 * t149 * t701;
11443   t16650 = t5972 * t153;
11444   t16651 = t129 * t16650;
11445   t16654 = t459 * t7233;
11446   t16657 = t129 * t7284;
11447   t16661 = t139 * t445 * t701;
11448   t16662 = t11162 * t128;
11449   t16663 = t1680 * t16662;
11450   t16666 = t2676 * t16662;
11451   t16669 = t11151 * t16662;
11452   t16672 = -t16506 + t16508 + t16510 - t16512 - t16514 - t16516 + t16518 + t16520 - t16522 + 0.3e1 / 0.2e1 * t16649 * t16651 - t16649 * t16654 / 0.4e1 - 0.11e2 / 0.4e1 * t16649 * t16657 - 0.7e1 / 0.8e1 * t16661 * t16663 + 0.11e2 / 0.4e1 * t16661 * t16666 - 0.15e2 / 0.8e1 * t16661 * t16669;
11453   t16673 = t7166 * t16662;
11454   t16676 = t7142 * t16662;
11455   t16679 = t11161 * t16662;
11456   t16686 = t1618 * t16662;
11457   t16689 = t15605 / 0.4e1;
11458   t16690 = t15608 / 0.4e1;
11459   t16691 = t15612 / 0.2e1;
11460   t16692 = t15618 / 0.2e1;
11461   t16693 = t15621 / 0.2e1;
11462   t16694 = 0.11e2 / 0.4e1 * t16649 * t16673 - 0.25e2 / 0.4e1 * t16649 * t16676 + 0.15e2 / 0.4e1 * t16649 * t16679 - 0.6e1 * t16649 * t16663 + 0.9e1 / 0.2e1 * t16649 * t16666 + 0.9e1 / 0.4e1 * t16661 * t16686 - t16689 - t16690 - t16691 + t16692 + t16693 + t16525 + t16526 - t16527 - t16528;
11463   t16699 = t1618 * t11227;
11464   t16704 = t5888 * t701;
11465   t16705 = t16704 * t153;
11466   t16709 = t1159 * t7071;
11467   t16712 = t1159 * t11227;
11468   t16721 = t460 * t7071;
11469   t16724 = t460 * t11227;
11470   t16727 = t2676 * t7071;
11471   t16730 = t2676 * t11227;
11472   t16733 = t154 * t5738;
11473   t16736 = t154 * t8222;
11474   t16739 = -0.9e1 / 0.8e1 * t12641 * t7075 - 0.3e1 / 0.2e1 * t2673 * t16699 + 0.11e2 / 0.4e1 * t16649 * t16686 - 0.9e1 / 0.4e1 * t7079 * t2668 * t16705 - 0.3e1 / 0.4e1 * t12641 * t16709 - t2673 * t16712 - 0.11e2 / 0.8e1 * t7079 * t1598 * t16705 + 0.9e1 / 0.16e2 * t12651 * t7089 + 0.3e1 / 0.4e1 * t3156 * t11228 + 0.9e1 / 0.8e1 * t12641 * t16721 + 0.3e1 / 0.2e1 * t2673 * t16724 - 0.9e1 / 0.8e1 * t12641 * t16727 - 0.3e1 / 0.2e1 * t2673 * t16730 - 0.3e1 / 0.8e1 * t12641 * t16733 - t2673 * t16736 / 0.2e1;
11475   t16749 = t1680 * t7071;
11476   t16752 = t1680 * t11227;
11477   t16755 = t1159 * t16662;
11478   t16758 = t14980 / 0.8e1;
11479   t16759 = t14989 / 0.4e1;
11480   t16760 = t15047 / 0.8e1;
11481   t16761 = t15051 / 0.4e1;
11482   t16762 = t15066 / 0.4e1;
11483   t16763 = -0.9e1 / 0.16e2 * t12651 * t7075 - 0.3e1 / 0.4e1 * t3156 * t16699 + 0.9e1 / 0.16e2 * t12651 * t7072 + 0.3e1 / 0.4e1 * t3156 * t2668 * t11227 + 0.3e1 / 0.2e1 * t12641 * t16749 + 0.2e1 * t2673 * t16752 + 0.3e1 / 0.2e1 * t16649 * t16755 - t2399 - t16758 + t16759 - t16760 - t16761 + t16762 + t16553 - t16554;
11484   t16765 = 0.2e1 * t15670;
11485   t16766 = 0.3e1 / 0.2e1 * t15672;
11486   t16767 = 0.3e1 / 0.4e1 * t15682;
11487   t16768 = 0.3e1 / 0.2e1 * t15685;
11488   t16769 = t15688 / 0.2e1;
11489   t16770 = 0.3e1 / 0.8e1 * t15709;
11490   t16771 = 0.3e1 / 0.4e1 * t15712;
11491   t16772 = 0.3e1 / 0.4e1 * t15715;
11492   t16773 = 0.3e1 / 0.2e1 * t15717;
11493   t16774 = 0.3e1 / 0.4e1 * t15753;
11494   t16775 = 0.3e1 / 0.4e1 * t15756;
11495   t16776 = -t16555 + t16556 + t16765 - t16766 - t16767 + t16768 - t16769 - t16770 - t16771 + t16772 - t16773 - t619 + t16774 + t16775 - t15759;
11496   t16777 = 0.3e1 / 0.4e1 * t15762;
11497   t16778 = 0.3e1 / 0.8e1 * t15085;
11498   t16779 = 0.3e1 / 0.4e1 * t15089;
11499   t16780 = 0.3e1 / 0.4e1 * t15093;
11500   t16781 = 0.3e1 / 0.4e1 * t15095;
11501   t16782 = t15099 / 0.4e1;
11502   t16783 = 0.3e1 / 0.8e1 * t15101;
11503   t16784 = 0.3e1 / 0.8e1 * t15103;
11504   t16785 = 0.3e1 / 0.16e2 * t15105;
11505   t16786 = 0.3e1 / 0.8e1 * t15108;
11506   t16787 = 0.3e1 / 0.8e1 * t15110;
11507   t16788 = t15112 / 0.2e1;
11508   t16789 = 0.3e1 / 0.8e1 * t15115;
11509   t16792 = t16777 + t16778 - t16779 + t15091 - t16780 + t16781 - t16782 + t16783 - t16784 - t16785 + t16786 + t16787 - t16788 - t16789 - t15169 * t703 / 0.8e1 - t16566;
11510   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11511     v4rhosigmalapl2[17] = t16607 + t16646 + t16672 + t16694 + t16739 + t16763 + t16776 + t16792;
11512 
11513   t16796 = 0.3e1 / 0.16e2 * t14813 * t716;
11514   t16804 = 0.3e1 / 0.2e1 * t11493 * t3738;
11515   t16806 = 0.9e1 / 0.8e1 * t11493 * t3719;
11516   t16807 = t3456 - t3461 - t3465 + t3469 - t3655 + t3656 + t3668 - t3673 - t2312 - t2345 + t2348 - t2352 + t2378 - t16796 - t14797 * t716 / 0.8e1 - t3375 * t3043 / 0.8e1 - t3375 * t3046 / 0.8e1 + t16804 + t16806;
11517   t16809 = 0.9e1 / 0.8e1 * t11493 * t3723;
11518   t16811 = 0.3e1 / 0.4e1 * t11493 * t3726;
11519   t16813 = 0.9e1 / 0.16e2 * t13111 * t3716;
11520   t16815 = 0.3e1 / 0.8e1 * t11493 * t3740;
11521   t16817 = 0.9e1 / 0.8e1 * t11493 * t3729;
11522   t16819 = 0.9e1 / 0.16e2 * t13111 * t3732;
11523   t16821 = 0.9e1 / 0.16e2 * t13111 * t3735;
11524   t16823 = t139 * t3374 * t160;
11525   t16851 = -t16809 - t16811 + t16813 - t16815 - t16817 - t16819 + t16821 - t16823 * t2763 / 0.4e1 + t16823 * t2766 / 0.4e1 + 0.3e1 / 0.8e1 * t3057 * t11477 + 0.3e1 / 0.8e1 * t13103 * t3716 + 0.3e1 / 0.8e1 * t13207 * t3716 + 0.3e1 / 0.8e1 * t3057 * t11483 + 0.3e1 / 0.8e1 * t3057 * t11510 + 0.3e1 / 0.4e1 * t11427 * t3719 + 0.3e1 / 0.4e1 * t2747 * t16419 + 0.3e1 / 0.4e1 * t2747 * t161 * t6403 - 0.3e1 / 0.4e1 * t11427 * t3723 - 0.3e1 / 0.4e1 * t2747 * t16388 - 0.3e1 / 0.4e1 * t2747 * t15398;
11526   t16854 = t139 * t14675 * t160;
11527   t16884 = t1502 * t11469;
11528   t16896 = -0.3e1 / 0.16e2 * t16854 * t2109 + t16823 * t2758 / 0.4e1 - t11427 * t3740 / 0.4e1 - t2747 * t16425 / 0.4e1 - t2747 * t2521 * t1416 / 0.4e1 - t11427 * t3726 / 0.2e1 - t2747 * t16400 / 0.2e1 - t2747 * t848 * t15397 / 0.2e1 - 0.3e1 / 0.4e1 * t11427 * t3729 - 0.3e1 / 0.4e1 * t2747 * t16444 - 0.3e1 / 0.4e1 * t2747 * t2583 * t15397 - 0.3e1 / 0.8e1 * t13103 * t3732 - 0.3e1 / 0.8e1 * t13207 * t3732 - 0.3e1 / 0.8e1 * t3057 * t16884 - 0.3e1 / 0.8e1 * t3057 * t11445 + 0.3e1 / 0.8e1 * t13103 * t3735 + 0.3e1 / 0.8e1 * t13207 * t3735 + 0.3e1 / 0.8e1 * t3057 * t11470 + t11427 * t3738;
11529   t16904 = t633 * t88;
11530   t16917 = t663 * t88;
11531   t16930 = t2747 * t16438 + t2747 * t493 * t6333 + t15828 - t15832 - t15834 + t15836 - t15878 - t15881 - t15885 + t15888 + t15891 - 0.3e1 / 0.4e1 * t2104 * t10730 * t10700 + 0.3e1 / 0.2e1 * t2747 * t848 * t4285 * t16904 + 0.9e1 / 0.16e2 * t3082 * t10704 * t11573 + 0.3e1 / 0.2e1 * t2104 * t13287 * t6177 + 0.9e1 / 0.16e2 * t3082 * t11574 - 0.11e2 / 0.8e1 * t3057 * t1517 * t4285 * t16917 + 0.9e1 / 0.8e1 * t2104 * t13298 * t6177 - 0.11e2 / 0.4e1 * t2747 * t13298 * t16354 - 0.9e1 / 0.8e1 * t2104 * t10722 * t10700;
11532   t16933 = t1502 * t4285;
11533   t16937 = t633 * t28;
11534   t16972 = t2583 * t4285;
11535   t16989 = 0.11e2 / 0.4e1 * t2747 * t16933 * t16904 - 0.3e1 / 0.8e1 * t2104 * t16937 * t4482 - 0.9e1 / 0.8e1 * t2104 * t10713 * t10700 - 0.15e2 / 0.8e1 * t6185 * t10566 * t4285 * t719 * t144 - 0.9e1 / 0.16e2 * t3082 * t10722 * t11573 + 0.3e1 / 0.2e1 * t2747 * t12962 * t6277 - t2747 * t16904 * t6308 / 0.4e1 + 0.11e2 / 0.4e1 * t2747 * t493 * t888 * t16354 + 0.9e1 / 0.4e1 * t3057 * t16933 * t16917 - 0.9e1 / 0.4e1 * t3057 * t2577 * t4285 * t16917 - 0.6e1 * t2747 * t13287 * t16354 + 0.9e1 / 0.2e1 * t2747 * t16972 * t16904 - 0.25e2 / 0.4e1 * t2747 * t6294 * t16904 + 0.15e2 / 0.4e1 * t2747 * t10513 * t4285 * t16904 - 0.7e1 / 0.8e1 * t3057 * t6262 * t16917 + 0.11e2 / 0.4e1 * t3057 * t16972 * t16917 - t2384 - t15200 - t15202;
11536   t16990 = t15204 + t15206 - t15245 - t15249 + t15252 + t15255 - t15264 - t16462 - t16463 + t16464 + t16465 - t16466 - t16467 - t16468 + t16471 + t16472 - t15902 + t15903 - t15905 + t15942;
11537   t16992 = -t15944 + t15948 + t15950 - t15953 + t15956 - t15962 - t15964 + t15966 - t15969 - t599 + t15282 - t15285 - t15322 - t15332 + t15334 + t15337 - t15340 - t15352 - t15355 + t15358;
11538   t16993 = t15361 - t15364 + t15368 - t16486 + t16487 - t16488 + t16489 - t16490 + t14729 - t16491 - t16492 - t16493 + t16494 + t16495 - t16496 + t16497 - t3556 + t3559 + t3562 - t3567;
11539   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11540     v4rhosigmalapltau[0] = t16807 + t16851 + t16896 + t16930 + t16989 + t16990 + t16992 + t16993;
11541 
11542   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11543     v4rhosigmalapltau[1] = 0.0e0;
11544 
11545   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11546     v4rhosigmalapltau[2] = 0.0e0;
11547 
11548   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11549     v4rhosigmalapltau[3] = 0.0e0;
11550 
11551   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11552     v4rhosigmalapltau[4] = 0.0e0;
11553 
11554   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11555     v4rhosigmalapltau[5] = 0.0e0;
11556 
11557   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11558     v4rhosigmalapltau[6] = 0.0e0;
11559 
11560   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11561     v4rhosigmalapltau[7] = 0.0e0;
11562 
11563   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11564     v4rhosigmalapltau[8] = 0.0e0;
11565 
11566   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11567     v4rhosigmalapltau[9] = 0.0e0;
11568 
11569   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11570     v4rhosigmalapltau[10] = 0.0e0;
11571 
11572   t16997 = 0.3e1 / 0.16e2 * t14880 * t731;
11573   t16999 = 0.3e1 / 0.2e1 * t11821 * t3767;
11574   t17001 = 0.9e1 / 0.8e1 * t11821 * t3769;
11575   t17003 = 0.3e1 / 0.8e1 * t11821 * t3772;
11576   t17005 = 0.9e1 / 0.16e2 * t13486 * t3755;
11577   t17007 = 0.9e1 / 0.8e1 * t11821 * t3758;
11578   t17009 = 0.9e1 / 0.16e2 * t13486 * t3761;
11579   t17011 = 0.9e1 / 0.16e2 * t13486 * t3764;
11580   t17013 = 0.9e1 / 0.8e1 * t11821 * t3748;
11581   t17015 = 0.3e1 / 0.4e1 * t11821 * t3751;
11582   t17016 = -t2402 - t16997 + t16999 - t17001 - t17003 + t17005 + t17007 - t17009 + t17011 - t17013 - t17015;
11583   t17018 = t139 * t14860 * t167;
11584   t17024 = t676 * t97;
11585   t17031 = -0.3e1 / 0.16e2 * t17018 * t2179 - t16020 - t16022 + t16024 + t16026 + t15452 + t15472 - t15476 - t15478 + 0.9e1 / 0.8e1 * t2190 * t13396 * t6841 - 0.9e1 / 0.16e2 * t3097 * t11051 * t17024 + 0.9e1 / 0.16e2 * t3097 * t11056 * t17024;
11586   t17033 = t648 * t97;
11587   t17043 = t648 * t53;
11588   t17053 = -0.9e1 / 0.8e1 * t2190 * t11051 * t17033 + 0.3e1 / 0.2e1 * t2190 * t13419 * t6841 - 0.9e1 / 0.8e1 * t2190 * t11035 * t17033 - 0.3e1 / 0.8e1 * t2190 * t17043 * t5459 - 0.3e1 / 0.4e1 * t2190 * t11073 * t17033 + 0.9e1 / 0.16e2 * t3097 * t11060 * t17024 - t2399 + t16553 - t16554 - t16555 + t16556;
11589   t17054 = -t16053 - t16055 + t16057 + t16059 - t15486 + t15489 + t15507 - t15515 + t16561 + t16562 - t16563 - t16564;
11590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11591     v4rhosigmalapltau[11] = t17016 + t17031 + t17053 + t17054;
11592 
11593   t17058 = -t2423 - t16796 - 0.3e1 / 0.16e2 * t16854 * t2150 + t16804 + t16806 - t16809 - t16811 + t16813 - t16815 - t16817 - t16819;
11594   t17062 = t633 * t107;
11595   t17072 = t663 * t107;
11596   t17082 = t16821 + t15828 - t15832 - t15834 + t15836 + 0.9e1 / 0.8e1 * t2104 * t13298 * t6534 - 0.9e1 / 0.8e1 * t2104 * t10722 * t17062 - 0.3e1 / 0.4e1 * t2104 * t10730 * t17062 - 0.9e1 / 0.8e1 * t2104 * t10713 * t17062 - 0.9e1 / 0.16e2 * t3082 * t10722 * t17072 + 0.9e1 / 0.16e2 * t3082 * t10699 * t17072 + 0.9e1 / 0.16e2 * t3082 * t10704 * t17072;
11597   t17090 = 0.3e1 / 0.2e1 * t2104 * t13287 * t6534 - 0.3e1 / 0.8e1 * t2104 * t16937 * t4827 - t2384 - t15200 - t15202 + t15204 + t15206 - t16467 - t16468 + t16471 + t16472;
11598   t17091 = t16095 - t16099 - t16101 + t16103 - t15558 - t15561 + t15564 + t15569 - t16598 - t16599 + t16600 + t16601;
11599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11600     v4rhosigmalapltau[12] = t17058 + t17082 + t17090 + t17091;
11601 
11602   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11603     v4rhosigmalapltau[13] = 0.0e0;
11604 
11605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11606     v4rhosigmalapltau[14] = 0.0e0;
11607 
11608   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11609     v4rhosigmalapltau[15] = 0.0e0;
11610 
11611   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11612     v4rhosigmalapltau[16] = 0.0e0;
11613 
11614   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11615     v4rhosigmalapltau[17] = 0.0e0;
11616 
11617   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11618     v4rhosigmalapltau[18] = 0.0e0;
11619 
11620   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11621     v4rhosigmalapltau[19] = 0.0e0;
11622 
11623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11624     v4rhosigmalapltau[20] = 0.0e0;
11625 
11626   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11627     v4rhosigmalapltau[21] = 0.0e0;
11628 
11629   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11630     v4rhosigmalapltau[22] = 0.0e0;
11631 
11632   t17096 = t1618 * t5888;
11633   t17097 = t648 * t128;
11634   t17102 = t734 * t153;
11635   t17117 = t3506 + t3510 - t3515 - t3519 - t3693 + t3694 + t3706 - t3711 + t2445 - t2455 - t2493 + t2496 - t2500 - 0.9e1 / 0.8e1 * t2190 * t11051 * t11332 + 0.11e2 / 0.4e1 * t2841 * t17096 * t17097 - 0.9e1 / 0.4e1 * t7079 * t2668 * t5888 * t17102 - 0.3e1 / 0.4e1 * t2190 * t11073 * t11332 + 0.3e1 / 0.2e1 * t2841 * t1159 * t5888 * t17097 - 0.11e2 / 0.8e1 * t7079 * t1598 * t5888 * t17102;
11636   t17118 = t676 * t111;
11637   t17135 = t676 * t128;
11638   t17151 = t1680 * t5888;
11639   t17155 = t2676 * t5888;
11640   t17175 = t139 * t3428 * t167;
11641   t17180 = 0.9e1 / 0.16e2 * t3097 * t11060 * t17118 + 0.9e1 / 0.8e1 * t2190 * t13396 * t7071 - 0.11e2 / 0.4e1 * t2841 * t6935 * t11258 + 0.3e1 / 0.2e1 * t2841 * t13392 * t16650 - t2841 * t17097 * t7233 / 0.4e1 - 0.15e2 / 0.8e1 * t3156 * t11151 * t5888 * t17135 + 0.11e2 / 0.4e1 * t2841 * t525 * t1306 * t16662 - 0.25e2 / 0.4e1 * t2841 * t1970 * t6057 * t16662 + 0.15e2 / 0.4e1 * t2841 * t11161 * t5888 * t17097 - 0.6e1 * t2841 * t17151 * t17097 + 0.9e1 / 0.2e1 * t2841 * t17155 * t17097 + 0.9e1 / 0.4e1 * t3156 * t17096 * t17135 - 0.7e1 / 0.8e1 * t3156 * t17151 * t17135 + 0.11e2 / 0.4e1 * t3156 * t17155 * t17135 - t3429 * t3148 / 0.8e1 - t3429 * t3151 / 0.8e1 - t15169 * t731 / 0.8e1 - t17175 * t2834 / 0.4e1 + t17175 * t2837 / 0.4e1 - t16997;
11642   t17185 = t139 * t445 * t516;
11643   t17222 = 0.3e1 / 0.8e1 * t13666 * t3764 + 0.3e1 / 0.8e1 * t17185 * t3764 + 0.3e1 / 0.8e1 * t3156 * t11994 - 0.3e1 / 0.4e1 * t11947 * t3748 - 0.3e1 / 0.4e1 * t2841 * t16699 - 0.3e1 / 0.4e1 * t2841 * t15730 - t11947 * t3751 / 0.2e1 - t2841 * t16712 / 0.2e1 - t2841 * t1159 * t11208 / 0.2e1 - 0.3e1 / 0.16e2 * t17018 * t2288 + t17175 * t2851 / 0.4e1 + t11947 * t3767 + t2841 * t16752 + t2841 * t525 * t7207 - 0.3e1 / 0.4e1 * t11947 * t3769 - 0.3e1 / 0.4e1 * t2841 * t16730 - 0.3e1 / 0.4e1 * t2841 * t2676 * t11208 - t11947 * t3772 / 0.4e1 - t2841 * t16736 / 0.4e1;
11644   t17230 = t1598 * t11985;
11645   t17252 = -t2841 * t2639 * t1690 / 0.4e1 + 0.3e1 / 0.8e1 * t13666 * t3755 + 0.3e1 / 0.8e1 * t17185 * t3755 + 0.3e1 / 0.8e1 * t3156 * t17230 + 0.3e1 / 0.8e1 * t3156 * t16276 + 0.3e1 / 0.4e1 * t11947 * t3758 + 0.3e1 / 0.4e1 * t2841 * t16724 + 0.3e1 / 0.4e1 * t2841 * t168 * t7197 - 0.3e1 / 0.8e1 * t13666 * t3761 - 0.3e1 / 0.8e1 * t17185 * t3761 - 0.3e1 / 0.8e1 * t3156 * t11986 - 0.3e1 / 0.8e1 * t3156 * t11991 + 0.3e1 / 0.8e1 * t3156 * t11997 + t16999 - t17001 - t17003 + t17005 + t17007 - t17009 + t17011;
11646   t17255 = -t17013 - t17015 - t16125 - t16129 + t16132 + t16135 - t16143 - t16020 - t16022 + t16024 + t16026 - t15606 - t15609 - t15613 + t15619 + t15622 + t15452 + t15472 - t15476;
11647   t17271 = -t15478 - 0.3e1 / 0.8e1 * t2190 * t17043 * t5738 - 0.9e1 / 0.16e2 * t3097 * t11051 * t17118 + 0.9e1 / 0.16e2 * t3097 * t11056 * t17118 + 0.3e1 / 0.2e1 * t2190 * t13419 * t7071 - 0.9e1 / 0.8e1 * t2190 * t11035 * t11332 + t16162 - t16164 - t16179 + t16181 + t16182 - t16184 - t16206 + t16232 - t16238 - t16241 + t16243 + t16245 - t16247 - t2399;
11648   t17273 = -t16758 + t16759 - t16760 - t16761 + t16762 + t16553 - t16554 - t16555 + t16556 + t15670 - t15673 - t15683 + t15686 - t15689 - t15710 - t15713 + t15716 - t15718 - t619 + t15754;
11649   t17274 = t15757 - t15760 + t15763 + t16778 - t16779 + t15091 - t16780 + t16781 - t16782 + t16783 - t16784 - t16785 + t16786 + t16787 - t16788 - t16789 + t3596 - t3601 - t3605 + t3608;
11650   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11651     v4rhosigmalapltau[23] = t17117 + t17180 + t17222 + t17252 + t17255 + t17271 + t17273 + t17274;
11652 
11653   t17290 = -t3655 + t3656 + t3668 - t3673 - t2312 - t2345 + t2348 - t2352 + t2378 - t3375 * t3203 / 0.4e1 + t3375 * t3195 / 0.4e1 + 0.3e1 / 0.8e1 * t1462 * t3796 + 0.3e1 / 0.8e1 * t1462 * t3785 + 0.3e1 / 0.8e1 * t404 * t747 * t6403 - 0.3e1 / 0.16e2 * t14676 * t3191;
11654   t17298 = t747 * t6324;
11655   t17305 = 0.9e1 / 0.8e1 * t77 * t3801;
11656   t17307 = 0.3e1 / 0.8e1 * t77 * t3805;
11657   t17309 = 0.9e1 / 0.16e2 * t220 * t3779;
11658   t17311 = 0.9e1 / 0.16e2 * t220 * t3796;
11659   t17313 = 0.3e1 / 0.2e1 * t77 * t3799;
11660   t17315 = 0.3e1 / 0.4e1 * t77 * t3782;
11661   t17317 = 0.9e1 / 0.16e2 * t220 * t3785;
11662   t17319 = 0.9e1 / 0.8e1 * t77 * t3776;
11663   t17321 = 0.9e1 / 0.8e1 * t77 * t3779;
11664   t17325 = -t3375 * t3220 / 0.4e1 + t3375 * t3223 / 0.4e1 + 0.3e1 / 0.4e1 * t141 * t751 * t6403 - 0.3e1 / 0.4e1 * t141 * t17298 - t141 * t751 * t14646 / 0.2e1 - t17305 - t17307 - t17309 + t17311 + t17313 - t17315 + t17317 + t17319 - t17321 + 0.3e1 / 0.8e1 * t404 * t3194 * t6333;
11665   t17341 = t139 * t140 * t746;
11666   t17347 = t139 * t403 * t746;
11667   t17365 = t141 * t747 * t6333 - 0.3e1 / 0.4e1 * t141 * t3194 * t14630 - t141 * t746 * t412 * t1416 / 0.4e1 - 0.3e1 / 0.8e1 * t1462 * t3779 - 0.3e1 / 0.8e1 * t404 * t17298 - t17341 * t16348 / 0.4e1 + 0.3e1 / 0.2e1 * t17341 * t16351 + 0.11e2 / 0.4e1 * t17347 * t16361 - 0.15e2 / 0.8e1 * t17347 * t10566 * t16354 + 0.11e2 / 0.4e1 * t17341 * t16355 - 0.25e2 / 0.4e1 * t17341 * t16364 + 0.15e2 / 0.4e1 * t17341 * t16368 - 0.6e1 * t17341 * t16358 + 0.9e1 / 0.2e1 * t17341 * t16361 - 0.7e1 / 0.8e1 * t17347 * t16358;
11668   t17371 = t4285 * t746;
11669   t17372 = t17371 * t144;
11670   t17403 = 0.3e1 / 0.2e1 * t2747 * t418 * t11469 - 0.11e2 / 0.4e1 * t17341 * t16377 + 0.9e1 / 0.4e1 * t6185 * t1502 * t17372 - 0.9e1 / 0.8e1 * t13962 * t6181 - 0.3e1 / 0.2e1 * t2747 * t16884 + 0.11e2 / 0.4e1 * t17341 * t16391 + 0.9e1 / 0.16e2 * t14142 * t6178 + 0.3e1 / 0.4e1 * t13984 * t11470 + 0.3e1 / 0.2e1 * t13962 * t16435 + 0.2e1 * t2747 * t1491 * t11469 - 0.9e1 / 0.4e1 * t6185 * t2577 * t17372 - 0.3e1 / 0.4e1 * t13962 * t16397 - t2747 * t848 * t11469 + 0.3e1 / 0.2e1 * t17341 * t16402 - 0.11e2 / 0.8e1 * t6185 * t1517 * t17372;
11671   t17426 = 0.3e1 / 0.4e1 * t15827;
11672   t17427 = 0.3e1 / 0.8e1 * t15831;
11673   t17428 = 0.3e1 / 0.4e1 * t15833;
11674   t17429 = 0.3e1 / 0.4e1 * t15835;
11675   t17430 = t15877 / 0.4e1;
11676   t17431 = t15880 / 0.4e1;
11677   t17432 = 0.9e1 / 0.16e2 * t14142 * t6225 + 0.3e1 / 0.4e1 * t13984 * t11483 + 0.9e1 / 0.8e1 * t13962 * t16416 - 0.9e1 / 0.8e1 * t13962 * t16441 - 0.3e1 / 0.2e1 * t2747 * t2583 * t11469 - 0.3e1 / 0.8e1 * t13962 * t16422 - t2747 * t145 * t8557 / 0.2e1 - 0.9e1 / 0.16e2 * t14142 * t6181 - 0.3e1 / 0.4e1 * t13984 * t16884 + t17426 - t17427 - t17428 + t17429 - t17430 - t17431;
11678   t17433 = t15884 / 0.2e1;
11679   t17434 = t15887 / 0.2e1;
11680   t17435 = t15890 / 0.2e1;
11681   t17436 = t15901 / 0.2e1;
11682   t17437 = 0.2e1 * t15903;
11683   t17438 = -t17433 + t17434 + t17435 - t2384 - t16462 - t16463 + t16464 + t16465 - t16466 - t16467 - t16468 + t16471 + t16472 - t17436 + t17437;
11684   t17440 = 0.3e1 / 0.2e1 * t15904;
11685   t17441 = 0.3e1 / 0.4e1 * t15941;
11686   t17442 = 0.3e1 / 0.2e1 * t15943;
11687   t17443 = 0.3e1 / 0.4e1 * t15947;
11688   t17444 = 0.3e1 / 0.4e1 * t15949;
11689   t17445 = 0.3e1 / 0.4e1 * t15955;
11690   t17446 = 0.3e1 / 0.8e1 * t15961;
11691   t17447 = 0.3e1 / 0.4e1 * t15963;
11692   t17448 = 0.3e1 / 0.2e1 * t15965;
11693   t17449 = 0.3e1 / 0.4e1 * t15968;
11694   t17450 = -t17440 + t17441 - t17442 + t17443 + t17444 - t15952 + t17445 - t17446 - t17447 + t17448 - t17449 - t599 - t16486 + t16487 - t16488;
11695   t17454 = 0.3e1 / 0.16e2 * t14813 * t748;
11696   t17455 = t16489 - t16490 + t14729 - t16491 - t16492 - t16493 + t16494 + t16495 - t16496 + t16497 - t14797 * t748 / 0.8e1 - t17454 - t3790 + t3791 + t3792 - t3793;
11697   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11698     v4rhosigmatau2[0] = t17290 + t17325 + t17365 + t17403 + t17432 + t17438 + t17450 + t17455;
11699 
11700   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11701     v4rhosigmatau2[1] = 0.0e0;
11702 
11703   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11704     v4rhosigmatau2[2] = 0.0e0;
11705 
11706   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11707     v4rhosigmatau2[3] = 0.0e0;
11708 
11709   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11710     v4rhosigmatau2[4] = 0.0e0;
11711 
11712   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11713     v4rhosigmatau2[5] = 0.0e0;
11714 
11715   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11716     v4rhosigmatau2[6] = 0.0e0;
11717 
11718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11719     v4rhosigmatau2[7] = 0.0e0;
11720 
11721   t17459 = 0.9e1 / 0.8e1 * t117 * t3831;
11722   t17461 = 0.9e1 / 0.16e2 * t353 * t3808;
11723   t17463 = 0.3e1 / 0.8e1 * t117 * t3837;
11724   t17465 = 0.9e1 / 0.16e2 * t353 * t3826;
11725   t17467 = 0.3e1 / 0.2e1 * t117 * t3829;
11726   t17469 = 0.9e1 / 0.8e1 * t117 * t3817;
11727   t17471 = 0.9e1 / 0.8e1 * t117 * t3808;
11728   t17473 = 0.3e1 / 0.4e1 * t117 * t3811;
11729   t17475 = 0.9e1 / 0.16e2 * t353 * t3814;
11730   t17494 = -t2402 - t17459 - t17461 - t17463 + t17465 + t17467 + t17469 - t17471 - t17473 + t17475 - 0.3e1 / 0.16e2 * t14861 * t3258 + 0.3e1 / 0.2e1 * t14254 * t16547 + 0.9e1 / 0.16e2 * t14273 * t6878 + 0.9e1 / 0.8e1 * t14254 * t16534 - 0.9e1 / 0.8e1 * t14254 * t6842 - 0.3e1 / 0.4e1 * t14254 * t16529 - 0.9e1 / 0.8e1 * t14254 * t16550 - 0.9e1 / 0.16e2 * t14273 * t6842 - 0.3e1 / 0.8e1 * t14254 * t16540;
11731   t17497 = 0.3e1 / 0.8e1 * t16019;
11732   t17498 = 0.3e1 / 0.4e1 * t16021;
11733   t17499 = 0.3e1 / 0.4e1 * t16023;
11734   t17500 = 0.3e1 / 0.4e1 * t16025;
11735   t17501 = 0.3e1 / 0.8e1 * t16052;
11736   t17502 = 0.3e1 / 0.4e1 * t16054;
11737   t17503 = 0.3e1 / 0.4e1 * t16056;
11738   t17504 = 0.3e1 / 0.4e1 * t16058;
11739   t17506 = 0.3e1 / 0.16e2 * t14880 * t763;
11740   t17507 = 0.9e1 / 0.16e2 * t14273 * t6845 - t17497 - t17498 + t17499 + t17500 - t2399 + t16553 - t16554 - t16555 + t16556 - t17501 - t17502 + t17503 + t17504 + t16561 + t16562 - t16563 - t16564 - t17506;
11741   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11742     v4rhosigmatau2[8] = t17494 + t17507;
11743 
11744   t17526 = -t2423 - 0.3e1 / 0.16e2 * t14676 * t3276 - t17305 - t17307 - t17309 + t17311 + t17313 - t17315 + t17317 + t17319 - t17321 - 0.9e1 / 0.8e1 * t13962 * t16578 - 0.3e1 / 0.8e1 * t13962 * t16575 - 0.9e1 / 0.16e2 * t14142 * t6567 + 0.9e1 / 0.16e2 * t14142 * t6570 + 0.3e1 / 0.2e1 * t13962 * t16572 + 0.9e1 / 0.8e1 * t13962 * t16588 - 0.9e1 / 0.8e1 * t13962 * t6567 - 0.3e1 / 0.4e1 * t13962 * t16583;
11745   t17529 = 0.3e1 / 0.4e1 * t16094;
11746   t17530 = 0.3e1 / 0.8e1 * t16098;
11747   t17531 = 0.3e1 / 0.4e1 * t16100;
11748   t17532 = 0.3e1 / 0.4e1 * t16102;
11749   t17533 = 0.9e1 / 0.16e2 * t14142 * t6535 + t17426 - t17427 - t17428 + t17429 - t2384 - t16467 - t16468 + t16471 + t16472 + t17529 - t17530 - t17531 + t17532 - t16598 - t16599 + t16600 + t16601 - t17454;
11750   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11751     v4rhosigmatau2[9] = t17526 + t17533;
11752 
11753   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11754     v4rhosigmatau2[10] = 0.0e0;
11755 
11756   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11757     v4rhosigmatau2[11] = 0.0e0;
11758 
11759   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11760     v4rhosigmatau2[12] = 0.0e0;
11761 
11762   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11763     v4rhosigmatau2[13] = 0.0e0;
11764 
11765   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11766     v4rhosigmatau2[14] = 0.0e0;
11767 
11768   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11769     v4rhosigmatau2[15] = 0.0e0;
11770 
11771   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11772     v4rhosigmatau2[16] = 0.0e0;
11773 
11774   t17535 = t139 * t149 * t761;
11775   t17543 = t139 * t445 * t761;
11776   t17550 = -t3693 + t3694 + t3706 - t3711 + t2445 - t2455 - t2493 + t2496 - t2500 - t17535 * t16654 / 0.4e1 - 0.11e2 / 0.4e1 * t17535 * t16657 + 0.3e1 / 0.2e1 * t17535 * t16651 + 0.11e2 / 0.4e1 * t17543 * t16666 - 0.15e2 / 0.8e1 * t17543 * t16669 + 0.11e2 / 0.4e1 * t17535 * t16673;
11777   t17587 = -0.25e2 / 0.4e1 * t17535 * t16676 + 0.15e2 / 0.4e1 * t17535 * t16679 - 0.7e1 / 0.8e1 * t17543 * t16663 - 0.6e1 * t17535 * t16663 + 0.9e1 / 0.2e1 * t17535 * t16666 + 0.9e1 / 0.4e1 * t17543 * t16686 - t3429 * t3329 / 0.4e1 + t3429 * t3289 / 0.4e1 - t150 * t766 * t15032 / 0.2e1 + 0.3e1 / 0.8e1 * t1662 * t3814 + 0.3e1 / 0.8e1 * t446 * t762 * t7197 + 0.3e1 / 0.4e1 * t150 * t766 * t7197 - t150 * t761 * t454 * t1690 / 0.4e1 + 0.3e1 / 0.8e1 * t1662 * t3826 + 0.3e1 / 0.8e1 * t446 * t3288 * t7207;
11778   t17596 = t762 * t7201;
11779   t17607 = t150 * t762 * t7207 - 0.3e1 / 0.4e1 * t150 * t3288 * t15078 - 0.3e1 / 0.8e1 * t1662 * t3808 - 0.3e1 / 0.8e1 * t446 * t17596 - 0.3e1 / 0.16e2 * t14861 * t3304 - t3429 * t3307 / 0.4e1 + t3429 * t3310 / 0.4e1 - 0.3e1 / 0.4e1 * t150 * t17596 - t17459 - t17461 - t17463 + t17465 + t17467 + t17469 - t17471;
11780   t17610 = t5888 * t761;
11781   t17611 = t17610 * t153;
11782   t17640 = -t17473 + t17475 + 0.11e2 / 0.4e1 * t17535 * t16686 - 0.9e1 / 0.4e1 * t7079 * t2668 * t17611 - 0.3e1 / 0.4e1 * t14254 * t16709 - t2841 * t1159 * t11985 + 0.3e1 / 0.2e1 * t17535 * t16755 - 0.11e2 / 0.8e1 * t7079 * t1598 * t17611 + 0.9e1 / 0.16e2 * t14273 * t7089 + 0.3e1 / 0.4e1 * t14511 * t17230 - 0.3e1 / 0.8e1 * t14254 * t16733 - t2841 * t154 * t14482 / 0.2e1 + 0.3e1 / 0.2e1 * t14254 * t16749 + 0.2e1 * t2841 * t1680 * t11985 - 0.9e1 / 0.8e1 * t14254 * t16727;
11783   t17663 = t16124 / 0.4e1;
11784   t17664 = t16128 / 0.2e1;
11785   t17665 = t16131 / 0.2e1;
11786   t17666 = t16134 / 0.2e1;
11787   t17667 = t16142 / 0.4e1;
11788   t17668 = -0.3e1 / 0.2e1 * t2841 * t2676 * t11985 - 0.9e1 / 0.16e2 * t14273 * t7075 - 0.3e1 / 0.4e1 * t14511 * t11986 + 0.9e1 / 0.16e2 * t14273 * t7072 + 0.3e1 / 0.4e1 * t14511 * t11994 + 0.9e1 / 0.8e1 * t14254 * t16721 + 0.3e1 / 0.2e1 * t2841 * t460 * t11985 - 0.9e1 / 0.8e1 * t14254 * t7075 - 0.3e1 / 0.2e1 * t2841 * t11986 - t17663 - t17664 + t17665 + t17666 - t17667 - t17497;
11789   t17669 = 0.3e1 / 0.2e1 * t16161;
11790   t17670 = t16163 / 0.2e1;
11791   t17671 = 0.3e1 / 0.4e1 * t16178;
11792   t17672 = 0.3e1 / 0.4e1 * t16180;
11793   t17673 = 0.2e1 * t16182;
11794   t17674 = 0.3e1 / 0.2e1 * t16183;
11795   t17675 = 0.3e1 / 0.2e1 * t16205;
11796   t17676 = 0.3e1 / 0.4e1 * t16231;
11797   t17677 = 0.3e1 / 0.8e1 * t16237;
11798   t17678 = 0.3e1 / 0.4e1 * t16240;
11799   t17679 = 0.3e1 / 0.4e1 * t16242;
11800   t17680 = 0.3e1 / 0.4e1 * t16244;
11801   t17681 = -t17498 + t17499 + t17500 + t17669 - t17670 - t17671 + t17672 + t17673 - t17674 - t17675 + t17676 - t17677 - t17678 + t17679 + t17680;
11802   t17683 = -t16246 - t2399 - t16758 + t16759 - t16760 - t16761 + t16762 + t16553 - t16554 - t16555 + t16556 - t619 + t16778 - t16779 + t15091;
11803   t17686 = -t16780 + t16781 - t16782 + t16783 - t16784 - t16785 + t16786 + t16787 - t16788 - t16789 - t17506 - t15169 * t763 / 0.8e1 + t3820 - t3821 - t3822 + t3823;
11804   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
11805     v4rhosigmatau2[17] = t17550 + t17587 + t17607 + t17640 + t17668 + t17681 + t17683 + t17686;
11806 
11807   t17694 = t3845 * t14588;
11808   t17697 = t3873 * t14596;
11809   t17700 = t3840 * t4365;
11810   t17721 = t3864 * t2872 / 0.4e1 - 0.7e1 / 0.8e1 * t404 * t17694 + 0.11e2 / 0.4e1 * t404 * t17697 - 0.15e2 / 0.8e1 * t404 * t17700 * t14607 + 0.11e2 / 0.4e1 * t141 * t3845 * t14596 - 0.25e2 / 0.4e1 * t141 * t3873 * t14607 + 0.15e2 / 0.4e1 * t141 * t17700 * t14584 - 0.6e1 * t141 * t17694 + 0.9e1 / 0.2e1 * t141 * t17697 - t3864 * t2894 / 0.4e1 + t3864 * t2897 / 0.4e1;
11811   t17732 = t4320 * t3840;
11812   t17733 = t405 * t17732;
11813   t17736 = t3845 * t4482;
11814   t17739 = t687 * t7514;
11815   t17744 = t4329 * t3840;
11816   t17751 = t914 * t484;
11817   t17758 = 0.9e1 / 0.8e1 * t399 * t3841 * t4468 + 0.9e1 / 0.4e1 * t141 * t691 * t7476 - 0.11e2 / 0.4e1 * t141 * t3841 * t14562 + 0.9e1 / 0.4e1 * t404 * t17733 - 0.9e1 / 0.8e1 * t399 * t17736 - 0.9e1 / 0.4e1 * t141 * t17739 + 0.11e2 / 0.4e1 * t141 * t17733 - 0.9e1 / 0.4e1 * t404 * t14578 * t17744 - 0.3e1 / 0.4e1 * t399 * t3841 * t4535 - 0.3e1 / 0.2e1 * t141 * t691 * t17751 + 0.3e1 / 0.2e1 * t141 * t3841 * t14650;
11818   t17759 = t3840 * t88;
11819   t17775 = t889 * t484;
11820   t17792 = 0.3e1 / 0.2e1 * t141 * t17759 * t6355 - t141 * t17759 * t6308 / 0.4e1 + 0.3e1 / 0.2e1 * t399 * t3845 * t4491 + 0.3e1 * t141 * t687 * t7518 - 0.9e1 / 0.8e1 * t399 * t3873 * t4580 - 0.9e1 / 0.4e1 * t141 * t2871 * t17775 - 0.3e1 / 0.8e1 * t399 * t3841 * t4482 - 0.3e1 / 0.4e1 * t141 * t691 * t7514 - 0.9e1 / 0.16e2 * t2332 * t17736 - 0.9e1 / 0.8e1 * t404 * t17739 + 0.9e1 / 0.16e2 * t2332 * t3873 * t4491;
11821   t17798 = t4286 * t3840;
11822   t17808 = t8 * t3862;
11823   t17809 = t139 * t17808;
11824   t17812 = 0.9e1 / 0.16e2 * t15199;
11825   t17813 = 0.9e1 / 0.8e1 * t15201;
11826   t17814 = 0.9e1 / 0.8e1 * t15203;
11827   t17815 = 0.9e1 / 0.8e1 * t15205;
11828   t17827 = -0.3e1 / 0.8e1 * t15244 - 0.3e1 / 0.4e1 * t15248 + 0.3e1 / 0.4e1 * t15251 + 0.3e1 / 0.4e1 * t15254 - 0.3e1 / 0.8e1 * t15263 - t599 + 0.9e1 / 0.4e1 * t15281 - 0.3e1 / 0.4e1 * t15284 - 0.9e1 / 0.4e1 * t15321 - 0.9e1 / 0.8e1 * t15331 + 0.9e1 / 0.8e1 * t15333;
11829   t17838 = 0.3e1 / 0.2e1 * t77 * t3877;
11830   t17840 = 0.9e1 / 0.16e2 * t220 * t3852;
11831   t17841 = t6122 * t3863;
11832   t17843 = 0.3e1 / 0.16e2 * t17841 * t688;
11833   t17844 = 0.3e1 * t15337 - 0.9e1 / 0.4e1 * t15339 - 0.9e1 / 0.16e2 * t15351 - 0.9e1 / 0.8e1 * t15354 + 0.9e1 / 0.8e1 * t15357 + 0.9e1 / 0.8e1 * t15360 - 0.3e1 / 0.2e1 * t15363 + 0.9e1 / 0.8e1 * t15367 + t17838 + t17840 - t17843;
11834   t17846 = 0.9e1 / 0.8e1 * t77 * t3842;
11835   t17848 = 0.9e1 / 0.8e1 * t77 * t3846;
11836   t17850 = 0.3e1 / 0.4e1 * t77 * t3849;
11837   t17865 = t3855 * t222;
11838   t17868 = t3855 * t28;
11839   t17871 = t4226 * t160;
11840   t17874 = t1517 * t1834;
11841   t17898 = t14747 * t479 / 0.4e1 + t75 * t484 * t849 / 0.2e1 + t3855 * t88 * t419 / 0.2e1 - t17865 * t424 / 0.2e1 - t17868 * t428 / 0.2e1 - t17871 * t14764 / 0.2e1 + t14767 * t17874 / 0.2e1 + t853 * t484 * t849 / 0.2e1 + t3857 * t14774 / 0.2e1 - t3857 * t14777 / 0.2e1 - t3857 * t14780 / 0.2e1 - t4244 * t160 * t849 / 0.2e1 - t856 * t484 * t849 / 0.2e1 - t3859 * t14774 / 0.2e1 + t3859 * t14777 / 0.2e1 + t3859 * t14780 / 0.2e1;
11842   t17900 = t139 * t9 * t17898;
11843   t17904 = 0.9e1 / 0.8e1 * t77 * t3879;
11844   t17906 = 0.3e1 / 0.8e1 * t77 * t3882;
11845   t17908 = 0.9e1 / 0.16e2 * t220 * t3846;
11846   t17910 = 0.9e1 / 0.16e2 * t220 * t3874;
11847   t17911 = t17846 - t17848 - t17850 - 0.3e1 / 0.8e1 * t1462 * t3846 + 0.3e1 / 0.8e1 * t1462 * t3874 + 0.3e1 / 0.8e1 * t1462 * t3852 - t17900 * t688 / 0.8e1 - t17904 - t17906 - t17908 + t17910;
11848   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11849     v4rholapl3[0] = 0.9e1 / 0.8e1 * t404 * t2871 * t7518 - 0.11e2 / 0.8e1 * t404 * t405 * t17798 + 0.9e1 / 0.16e2 * t2332 * t3845 * t4468 + 0.9e1 / 0.8e1 * t404 * t687 * t7476 - t3864 * t2868 / 0.4e1 - 0.3e1 / 0.16e2 * t17809 * t2865 + t17827 + t17814 + t17815 - t17812 - t17813 + t17792 - t2384 + t2378 - t2352 + t3867 - t3868 - t3869 + t3870 + t17758 - t2345 + t2348 + t17911 - t2312 + t17721 + t17844;
11850 
11851   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11852     v4rholapl3[1] = 0.0e0;
11853 
11854   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11855     v4rholapl3[2] = 0.0e0;
11856 
11857   t17920 = t36 * t3907;
11858   t17921 = t139 * t17920;
11859   t17939 = t3890 * t5459;
11860   t17944 = 0.9e1 / 0.8e1 * t15451;
11861   t17945 = 0.9e1 / 0.8e1 * t15471;
11862   t17946 = 0.9e1 / 0.16e2 * t15475;
11863   t17947 = 0.9e1 / 0.8e1 * t15477;
11864   t17948 = -t2402 - 0.3e1 / 0.4e1 * t434 * t3886 * t5487 + 0.9e1 / 0.16e2 * t2394 * t3890 * t5474 - 0.3e1 / 0.16e2 * t17921 * t2932 + 0.9e1 / 0.8e1 * t434 * t3886 * t5474 + 0.9e1 / 0.16e2 * t2394 * t3916 * t5463 + 0.3e1 / 0.2e1 * t434 * t3890 * t5463 - 0.3e1 / 0.8e1 * t434 * t3886 * t5459 - 0.9e1 / 0.8e1 * t434 * t3916 * t5513 - 0.9e1 / 0.16e2 * t2394 * t17939 - 0.9e1 / 0.8e1 * t434 * t17939 + t17944 + t17945 - t17946 - t17947;
11865   t17954 = 0.9e1 / 0.8e1 * t117 * t3891;
11866   t17956 = 0.9e1 / 0.16e2 * t353 * t3922;
11867   t17958 = 0.3e1 / 0.2e1 * t117 * t3925;
11868   t17960 = 0.3e1 / 0.8e1 * t117 * t3927;
11869   t17962 = 0.9e1 / 0.8e1 * t117 * t3917;
11870   t17964 = 0.9e1 / 0.16e2 * t353 * t3891;
11871   t17966 = 0.3e1 / 0.4e1 * t117 * t3894;
11872   t17968 = 0.9e1 / 0.16e2 * t353 * t3897;
11873   t17969 = t6122 * t3908;
11874   t17971 = 0.3e1 / 0.16e2 * t17969 * t703;
11875   t17973 = 0.9e1 / 0.8e1 * t117 * t3887;
11876   t17974 = -t2399 - 0.9e1 / 0.8e1 * t15485 + 0.9e1 / 0.8e1 * t15488 + 0.9e1 / 0.8e1 * t15506 - 0.9e1 / 0.16e2 * t15514 - t17954 + t17956 + t17958 - t17960 - t17962 - t17964 - t17966 + t17968 - t17971 + t17973;
11877   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11878     v4rholapl3[3] = t17948 + t17974;
11879 
11880   t17981 = t3845 * t4827;
11881   t18003 = -t2423 - 0.9e1 / 0.8e1 * t399 * t3873 * t4823 - 0.3e1 / 0.8e1 * t399 * t3841 * t4827 - 0.9e1 / 0.16e2 * t2332 * t17981 + 0.9e1 / 0.16e2 * t2332 * t3873 * t4819 + 0.3e1 / 0.2e1 * t399 * t3845 * t4819 + 0.9e1 / 0.16e2 * t2332 * t3845 * t4858 - 0.3e1 / 0.16e2 * t17809 * t2950 + 0.9e1 / 0.8e1 * t399 * t3841 * t4858 - 0.9e1 / 0.8e1 * t399 * t17981 - 0.3e1 / 0.4e1 * t399 * t3841 * t4834 - t2384 - t17812 - t17813 + t17814;
11882   t18008 = t17815 - 0.9e1 / 0.16e2 * t15557 - 0.9e1 / 0.8e1 * t15560 + 0.9e1 / 0.8e1 * t15563 + 0.9e1 / 0.8e1 * t15568 + t17838 + t17840 - t17843 + t17846 - t17848 - t17850 - t17904 - t17906 - t17908 + t17910;
11883   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11884     v4rholapl3[4] = t18003 + t18008;
11885 
11886   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11887     v4rholapl3[5] = 0.0e0;
11888 
11889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11890     v4rholapl3[6] = 0.0e0;
11891 
11892   t18009 = t3890 * t14958;
11893   t18013 = t3916 * t14939;
11894   t18023 = t3885 * t6054;
11895   t18037 = t1351 * t516;
11896   t18041 = t3885 * t128;
11897   t18045 = 0.9e1 / 0.2e1 * t150 * t18013 - t3909 * t2975 / 0.4e1 + t3909 * t2981 / 0.4e1 - 0.25e2 / 0.4e1 * t150 * t3916 * t14944 + 0.15e2 / 0.4e1 * t150 * t18023 * t14954 - 0.7e1 / 0.8e1 * t446 * t18009 + 0.11e2 / 0.4e1 * t446 * t18013 + 0.11e2 / 0.4e1 * t150 * t3890 * t14939 - 0.3e1 / 0.4e1 * t434 * t3886 * t5751 - 0.3e1 / 0.2e1 * t150 * t706 * t18037 + 0.3e1 / 0.2e1 * t150 * t18041 * t7304;
11898   t18062 = t1307 * t516;
11899   t18067 = t6058 * t3885;
11900   t18071 = t3890 * t5738;
11901   t18074 = t702 * t8222;
11902   t18080 = t5889 * t3885;
11903   t18084 = -t150 * t18041 * t7233 / 0.4e1 + 0.3e1 * t150 * t702 * t8226 - 0.3e1 / 0.8e1 * t434 * t3886 * t5738 - 0.3e1 / 0.4e1 * t150 * t706 * t8222 - 0.9e1 / 0.8e1 * t434 * t3916 * t5726 - 0.9e1 / 0.4e1 * t150 * t2980 * t18062 - 0.15e2 / 0.8e1 * t446 * t128 * t6054 * t18067 - 0.9e1 / 0.16e2 * t2394 * t18071 - 0.9e1 / 0.8e1 * t446 * t18074 + 0.3e1 / 0.2e1 * t150 * t3886 * t15036 - 0.11e2 / 0.8e1 * t446 * t447 * t18080;
11904   t18106 = t5972 * t3885;
11905   t18107 = t447 * t18106;
11906   t18114 = 0.9e1 / 0.16e2 * t2394 * t3890 * t5773 + 0.9e1 / 0.8e1 * t446 * t702 * t8299 - 0.3e1 / 0.16e2 * t17921 * t3003 - t3909 * t3007 / 0.4e1 + t3909 * t3010 / 0.4e1 + 0.9e1 / 0.8e1 * t434 * t3886 * t5773 + 0.9e1 / 0.4e1 * t150 * t706 * t8299 - 0.11e2 / 0.4e1 * t150 * t3886 * t15010 + 0.9e1 / 0.4e1 * t446 * t18107 - 0.9e1 / 0.8e1 * t434 * t18071 - 0.9e1 / 0.4e1 * t150 * t18074;
11907   t18119 = t6000 * t3885;
11908   t18144 = t17944 + t17945 - t17946 - t17947 - t2399 + 0.3e1 * t15670 - 0.9e1 / 0.4e1 * t15672 - 0.9e1 / 0.8e1 * t15682 + 0.9e1 / 0.4e1 * t15685 - 0.3e1 / 0.4e1 * t15688 - 0.9e1 / 0.16e2 * t15709;
11909   t18163 = t3900 * t355;
11910   t18166 = t3900 * t53;
11911   t18169 = t5913 * t167;
11912   t18172 = t1598 * t1900;
11913   t18196 = t15120 * t511 / 0.4e1 + t115 * t516 * t1316 / 0.2e1 + t3900 * t128 * t461 / 0.2e1 - t18163 * t466 / 0.2e1 - t18166 * t470 / 0.2e1 - t18169 * t15136 / 0.2e1 + t15139 * t18172 / 0.2e1 + t1320 * t516 * t1316 / 0.2e1 + t3902 * t15146 / 0.2e1 - t3902 * t15149 / 0.2e1 - t3902 * t15152 / 0.2e1 - t5931 * t167 * t1316 / 0.2e1 - t1323 * t516 * t1316 / 0.2e1 - t3904 * t15146 / 0.2e1 + t3904 * t15149 / 0.2e1 + t3904 * t15152 / 0.2e1;
11914   t18198 = t139 * t37 * t18196;
11915   t18201 = -0.9e1 / 0.8e1 * t15712 + 0.9e1 / 0.8e1 * t15715 - 0.9e1 / 0.4e1 * t15717 - t619 + 0.9e1 / 0.8e1 * t15753 + 0.9e1 / 0.8e1 * t15756 - 0.3e1 / 0.2e1 * t15759 + 0.9e1 / 0.8e1 * t15762 - t17954 + 0.3e1 / 0.8e1 * t1662 * t3897 - t18198 * t703 / 0.8e1;
11916   t18206 = -0.3e1 / 0.8e1 * t1662 * t3891 + 0.3e1 / 0.8e1 * t1662 * t3922 + t17956 + t17958 - t17960 - t17962 - t17964 - t17966 + t17968 - t17971 + t17973;
11917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11918     v4rholapl3[7] = -0.9e1 / 0.4e1 * t446 * t15024 * t18119 + 0.9e1 / 0.16e2 * t2394 * t3916 * t5722 + 0.9e1 / 0.8e1 * t446 * t2980 * t8226 + 0.3e1 / 0.2e1 * t434 * t3890 * t5722 + 0.11e2 / 0.4e1 * t150 * t18107 - 0.6e1 * t150 * t18009 - t2500 - t2493 + t2496 + 0.3e1 / 0.4e1 * t15621 + t18045 - 0.3e1 / 0.8e1 * t15605 - t2455 + t2445 + 0.3e1 / 0.4e1 * t15618 + t18144 + t18114 + t18084 + t18206 + t18201 - 0.3e1 / 0.4e1 * t15612 - 0.3e1 / 0.8e1 * t15608 + t3912 + t3913 - t3914 - t3915;
11919 
11920   t18215 = t16380 * t88;
11921   t18222 = t139 * t3863 * t160;
11922   t18227 = t3651 - t3652 - t3653 + t3654 - t2312 - t2345 + t2348 - t2352 + t2378 + 0.3e1 / 0.2e1 * t2747 * t2880 * t6355 - t2747 * t2880 * t6308 / 0.4e1 + 0.9e1 / 0.2e1 * t2747 * t2583 * t18215 - 0.7e1 / 0.8e1 * t16372 * t15926 - t18222 * t2763 / 0.4e1 + t18222 * t2766 / 0.4e1;
11923   t18234 = t139 * t17808 * t160;
11924   t18257 = t542 * t686;
11925   t18268 = -0.3e1 / 0.2e1 * t2747 * t1502 * t12437 + t18222 * t2758 / 0.4e1 - 0.3e1 / 0.16e2 * t18234 * t2109 + 0.11e2 / 0.4e1 * t16372 * t15929 - 0.15e2 / 0.8e1 * t16372 * t15932 + 0.11e2 / 0.4e1 * t2747 * t687 * t14596 - 0.25e2 / 0.4e1 * t2747 * t2871 * t14607 + 0.15e2 / 0.4e1 * t2747 * t10513 * t18215 + 0.9e1 / 0.4e1 * t16372 * t15916 - 0.9e1 / 0.4e1 * t16372 * t15919 - 0.6e1 * t2747 * t687 * t14588 - t141 * t18257 * t1416 / 0.4e1 + 0.3e1 / 0.8e1 * t1462 * t3949 + 0.3e1 / 0.8e1 * t404 * t2871 * t8561 + t141 * t18257 * t1492;
11926   t18288 = 0.9e1 / 0.8e1 * t77 * t3955;
11927   t18290 = 0.3e1 / 0.8e1 * t77 * t3958;
11928   t18292 = 0.3e1 / 0.4e1 * t77 * t3944;
11929   t18294 = 0.9e1 / 0.16e2 * t220 * t3940;
11930   t18296 = 0.9e1 / 0.16e2 * t220 * t3949;
11931   t18298 = 0.3e1 / 0.2e1 * t77 * t3952;
11932   t18300 = 0.9e1 / 0.16e2 * t220 * t3932;
11933   t18302 = 0.9e1 / 0.8e1 * t77 * t3936;
11934   t18303 = -0.3e1 / 0.4e1 * t141 * t8705 * t3954 + 0.3e1 / 0.8e1 * t1462 * t3932 + 0.3e1 / 0.8e1 * t404 * t687 * t8677 + 0.3e1 / 0.4e1 * t141 * t18257 * t1439 - t17900 * t716 / 0.8e1 - t3864 * t3043 / 0.8e1 - t3864 * t3046 / 0.8e1 - t18288 - t18290 - t18292 - t18294 + t18296 + t18298 + t18300 + t18302;
11935   t18305 = 0.9e1 / 0.8e1 * t77 * t3940;
11936   t18307 = 0.3e1 / 0.16e2 * t17841 * t716;
11937   t18308 = t2028 * t3939;
11938   t18343 = -t18305 - t18307 - 0.3e1 / 0.4e1 * t141 * t18308 - t141 * t543 * t3943 / 0.2e1 - 0.3e1 / 0.8e1 * t1462 * t3940 - 0.3e1 / 0.8e1 * t404 * t18308 - 0.9e1 / 0.16e2 * t12549 * t8489 - 0.3e1 / 0.4e1 * t3057 * t13233 + 0.9e1 / 0.16e2 * t12549 * t8486 + 0.3e1 / 0.4e1 * t3057 * t13226 + 0.3e1 / 0.2e1 * t2104 * t687 * t4491 + 0.2e1 * t2747 * t493 * t7518 + 0.9e1 / 0.16e2 * t12549 * t8498 + 0.3e1 / 0.4e1 * t3057 * t1517 * t13225 - 0.11e2 / 0.8e1 * t16372 * t1517 * t15915 + 0.9e1 / 0.8e1 * t2104 * t691 * t4468;
11939   t18377 = 0.3e1 / 0.2e1 * t2747 * t161 * t7476 - 0.11e2 / 0.4e1 * t2747 * t691 * t14562 - 0.9e1 / 0.8e1 * t2104 * t12426 + 0.11e2 / 0.4e1 * t2747 * t1502 * t18215 - 0.9e1 / 0.8e1 * t2104 * t2583 * t12419 - 0.3e1 / 0.2e1 * t2747 * t2583 * t12437 - 0.3e1 / 0.8e1 * t2104 * t691 * t4482 - t2747 * t161 * t7514 / 0.2e1 - 0.3e1 / 0.4e1 * t2104 * t848 * t12419 + 0.3e1 / 0.2e1 * t2747 * t848 * t18215 - t2747 * t848 * t12437 + t15828 - t15832 - t15834 + t15836;
11940   t18378 = -t15878 - t15881 - t15885 + t15888 + t15891 - t2384 - t16452 - t16454 + t16455 + t16456 - t16457 - t16458 + t16459 + t16460 - t16461;
11941   t18380 = -t15902 + t15903 - t15905 + t15942 - t15944 + t15948 + t15950 - t15953 + t15956 - t15962 - t15964 + t15966 - t15969 - t599 + t16473;
11942   t18381 = -t16474 - t16475 - t16476 + t16477 + t16478 - t16479 - t16480 - t16481 + t16482 + t16483 - t15363 + t16485 - t3556 + t3559 + t3562 - t3567;
11943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11944     v4rholapl2tau[0] = t18227 + t18268 + t18303 + t18343 + t18377 + t18378 + t18380 + t18381;
11945 
11946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11947     v4rholapl2tau[1] = 0.0e0;
11948 
11949   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11950     v4rholapl2tau[2] = 0.0e0;
11951 
11952   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11953     v4rholapl2tau[3] = 0.0e0;
11954 
11955   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11956     v4rholapl2tau[4] = 0.0e0;
11957 
11958   t18384 = t12910 * t97;
11959   t18396 = t139 * t17920 * t167;
11960   t18414 = 0.3e1 / 0.4e1 * t117 * t3975;
11961   t18416 = 0.9e1 / 0.8e1 * t117 * t3979;
11962   t18418 = 0.9e1 / 0.16e2 * t353 * t3971;
11963   t18420 = 0.9e1 / 0.16e2 * t353 * t3963;
11964   t18422 = 0.9e1 / 0.8e1 * t117 * t3967;
11965   t18424 = 0.3e1 / 0.16e2 * t17969 * t731;
11966   t18426 = 0.9e1 / 0.16e2 * t353 * t3984;
11967   t18428 = 0.3e1 / 0.2e1 * t117 * t3987;
11968   t18429 = -t2402 - 0.9e1 / 0.8e1 * t2190 * t2676 * t18384 - 0.9e1 / 0.16e2 * t12651 * t9015 + 0.9e1 / 0.16e2 * t12651 * t9064 + 0.9e1 / 0.8e1 * t2190 * t706 * t5474 - 0.3e1 / 0.16e2 * t18396 * t2179 + 0.9e1 / 0.16e2 * t12651 * t9041 + 0.3e1 / 0.2e1 * t2190 * t702 * t5463 - 0.3e1 / 0.8e1 * t2190 * t706 * t5459 - 0.9e1 / 0.8e1 * t2190 * t1618 * t18384 - 0.3e1 / 0.4e1 * t2190 * t1159 * t18384 - t18414 - t18416 - t18418 + t18420 + t18422 - t18424 + t18426 + t18428;
11969   t18431 = 0.3e1 / 0.8e1 * t117 * t3989;
11970   t18433 = 0.9e1 / 0.8e1 * t117 * t3971;
11971   t18434 = -t18431 - t18433 - t16020 - t16022 + t16024 + t16026 + t16525 + t16526 - t16527 - t16528 - t2399 - t16053 - t16055 + t16057 + t16059 - t16557 + t16558 + t16559 - t16560;
11972   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11973     v4rholapl2tau[5] = t18429 + t18434;
11974 
11975   t18442 = t12418 * t107;
11976   t18462 = -t2423 - 0.3e1 / 0.16e2 * t18234 * t2150 + 0.9e1 / 0.16e2 * t12549 * t8755 + 0.9e1 / 0.8e1 * t2104 * t691 * t4858 - 0.9e1 / 0.8e1 * t2104 * t1502 * t18442 - 0.3e1 / 0.4e1 * t2104 * t848 * t18442 - 0.9e1 / 0.16e2 * t12549 * t8801 + 0.9e1 / 0.16e2 * t12549 * t8804 + 0.3e1 / 0.2e1 * t2104 * t687 * t4819 - 0.9e1 / 0.8e1 * t2104 * t2583 * t18442 - 0.3e1 / 0.8e1 * t2104 * t691 * t4827 - t18288 - t18290 - t18292 - t18294 + t18296 + t18298 + t18300 + t18302;
11977   t18463 = -t18305 - t18307 + t15828 - t15832 - t15834 + t15836 - t2384 - t16452 - t16454 + t16455 + t16456 + t16095 - t16099 - t16101 + t16103 - t16594 - t16595 + t16596 + t16597;
11978   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11979     v4rholapl2tau[6] = t18462 + t18463;
11980 
11981   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11982     v4rholapl2tau[7] = 0.0e0;
11983 
11984   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11985     v4rholapl2tau[8] = 0.0e0;
11986 
11987   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11988     v4rholapl2tau[9] = 0.0e0;
11989 
11990   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
11991     v4rholapl2tau[10] = 0.0e0;
11992 
11993   t18478 = t3689 + t3690 - t3691 - t3692 + t2445 - t2455 - t2493 + t2496 - t2500 - 0.3e1 / 0.4e1 * t3156 * t13691 + 0.9e1 / 0.16e2 * t12651 * t9243 + 0.3e1 / 0.4e1 * t3156 * t13743 + 0.3e1 / 0.2e1 * t2190 * t702 * t5722 + 0.3e1 / 0.4e1 * t3156 * t13673 - 0.11e2 / 0.8e1 * t16661 * t1598 * t16189;
11994   t18491 = t16704 * t128;
11995   t18509 = t139 * t3908 * t167;
11996   t18523 = 0.9e1 / 0.8e1 * t2190 * t706 * t5773 + 0.3e1 / 0.2e1 * t2841 * t168 * t8299 - 0.11e2 / 0.4e1 * t2841 * t706 * t15010 - 0.9e1 / 0.8e1 * t2190 * t1618 * t12911 + 0.11e2 / 0.4e1 * t2841 * t1618 * t18491 - 0.3e1 / 0.2e1 * t2841 * t1618 * t12892 - 0.3e1 / 0.4e1 * t2190 * t1159 * t12911 + 0.3e1 / 0.2e1 * t2841 * t1159 * t18491 - t2841 * t1159 * t12892 - 0.3e1 / 0.16e2 * t18396 * t2288 + t18509 * t2851 / 0.4e1 + 0.9e1 / 0.16e2 * t12651 * t9238 + 0.2e1 * t2841 * t525 * t8226 - 0.3e1 / 0.8e1 * t2190 * t706 * t5738 - t2841 * t168 * t8222 / 0.2e1;
11997   t18532 = t11151 * t11952 * t701;
11998   t18566 = -0.9e1 / 0.8e1 * t2190 * t2676 * t12911 - 0.3e1 / 0.2e1 * t2841 * t2676 * t12892 - 0.15e2 / 0.8e1 * t7079 * t18532 - 0.9e1 / 0.16e2 * t12651 * t9246 + 0.3e1 / 0.2e1 * t2841 * t2989 * t7304 - t2841 * t2989 * t7233 / 0.4e1 + 0.11e2 / 0.4e1 * t16661 * t16196 + 0.11e2 / 0.4e1 * t2841 * t702 * t14939 + t18509 * t2837 / 0.4e1 + 0.9e1 / 0.4e1 * t16661 * t16190 - 0.9e1 / 0.4e1 * t16661 * t2668 * t16189 - 0.6e1 * t2841 * t702 * t14958 + 0.9e1 / 0.2e1 * t2841 * t2676 * t18491 - t18509 * t2834 / 0.4e1 - 0.25e2 / 0.4e1 * t2841 * t7142 * t18491;
11999   t18572 = t2227 * t3970;
12000   t18590 = t574 * t701;
12001   t18608 = 0.15e2 / 0.4e1 * t2841 * t11161 * t18491 - 0.7e1 / 0.8e1 * t16661 * t16193 - 0.3e1 / 0.4e1 * t150 * t18572 - t150 * t575 * t3974 / 0.2e1 - 0.3e1 / 0.4e1 * t150 * t9361 * t3978 - 0.3e1 / 0.8e1 * t1662 * t3971 - 0.3e1 / 0.8e1 * t446 * t18572 + 0.3e1 / 0.8e1 * t1662 * t3984 + 0.3e1 / 0.8e1 * t446 * t2980 * t9289 + t150 * t18590 * t1681 - t150 * t18590 * t1690 / 0.4e1 + 0.3e1 / 0.8e1 * t1662 * t3963 + 0.3e1 / 0.8e1 * t446 * t702 * t9302 + 0.3e1 / 0.4e1 * t150 * t18590 * t1707 - t18198 * t731 / 0.8e1 - t3909 * t3148 / 0.8e1;
12002   t18613 = -t3909 * t3151 / 0.8e1 - t18414 - t18416 - t18418 + t18420 + t18422 - t18424 + t18426 + t18428 - t18431 - t18433 - t16125 - t16129 + t16132 + t16135;
12003   t18614 = -t16143 - t16020 - t16022 + t16024 + t16026 - t16689 - t16690 - t16691 + t16692 + t16693 + t16525 + t16526 - t16527 - t16528 + t16162;
12004   t18616 = -t16164 - t16179 + t16181 + t16182 - t16184 - t16206 + t16232 - t16238 - t16241 + t16243 + t16245 - t16247 - t2399 + t16765 - t16766;
12005   t18617 = -t16767 + t16768 - t16769 - t16770 - t16771 + t16772 - t16773 - t619 + t16774 + t16775 - t15759 + t16777 + t3596 - t3601 - t3605 + t3608;
12006   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12007     v4rholapl2tau[11] = t18478 + t18523 + t18566 + t18608 + t18613 + t18614 + t18616 + t18617;
12008 
12009   t18629 = t17371 * t160;
12010   t18630 = t1517 * t18629;
12011   t18635 = t3456 - t3461 - t3465 + t3469 - t2312 - t2345 + t2348 - t2352 + t2378 - 0.9e1 / 0.16e2 * t14142 * t7411 - 0.3e1 / 0.4e1 * t13984 * t13230 - t2747 * t848 * t13229 + 0.3e1 / 0.2e1 * t17341 * t848 * t15276 - 0.11e2 / 0.8e1 * t6185 * t18630 + 0.9e1 / 0.16e2 * t14142 * t7443;
12012   t18651 = t2577 * t18629;
12013   t18676 = 0.3e1 / 0.4e1 * t13984 * t1517 * t13229 + 0.9e1 / 0.8e1 * t13962 * t418 * t7407 + 0.3e1 / 0.2e1 * t2747 * t418 * t13229 - 0.9e1 / 0.8e1 * t13962 * t7411 - 0.3e1 / 0.2e1 * t2747 * t13230 + 0.11e2 / 0.4e1 * t17341 * t15341 - 0.9e1 / 0.4e1 * t6185 * t18651 - 0.3e1 / 0.4e1 * t13962 * t848 * t7407 - 0.3e1 / 0.8e1 * t13962 * t161 * t4482 - t2747 * t161 * t8557 / 0.2e1 + 0.9e1 / 0.16e2 * t14142 * t7408 + 0.3e1 / 0.4e1 * t13984 * t13236 + 0.3e1 / 0.2e1 * t13962 * t1491 * t7407 + 0.2e1 * t2747 * t1491 * t13229 - 0.9e1 / 0.8e1 * t13962 * t2583 * t7407;
12014   t18684 = t4320 * t160;
12015   t18716 = -0.3e1 / 0.2e1 * t2747 * t2583 * t13229 - 0.11e2 / 0.4e1 * t17341 * t89 * t7640 + 0.3e1 / 0.2e1 * t17341 * t89 * t18684 - t17341 * t489 * t6308 / 0.4e1 + 0.9e1 / 0.4e1 * t17347 * t15341 - 0.7e1 / 0.8e1 * t17347 * t15303 + 0.11e2 / 0.4e1 * t17347 * t15306 - 0.6e1 * t17341 * t15303 + 0.9e1 / 0.2e1 * t17341 * t15306 - 0.15e2 / 0.8e1 * t17347 * t15309 + 0.11e2 / 0.4e1 * t17341 * t6288 * t15276 - 0.25e2 / 0.4e1 * t17341 * t6293 * t15276 + 0.15e2 / 0.4e1 * t17341 * t10513 * t15276 - 0.3e1 / 0.16e2 * t17809 * t3191 - t3864 * t3220 / 0.4e1;
12016   t18728 = t747 * t7514;
12017   t18741 = 0.3e1 / 0.8e1 * t77 * t4020;
12018   t18743 = 0.9e1 / 0.16e2 * t220 * t4010;
12019   t18745 = 0.3e1 / 0.2e1 * t77 * t4013;
12020   t18747 = 0.9e1 / 0.8e1 * t77 * t4016;
12021   t18749 = 0.9e1 / 0.16e2 * t220 * t3993;
12022   t18751 = 0.9e1 / 0.16e2 * t220 * t4000;
12023   t18752 = t3864 * t3223 / 0.4e1 - 0.3e1 / 0.4e1 * t141 * t3194 * t17775 - t141 * t746 * t484 * t1416 / 0.4e1 - 0.3e1 / 0.8e1 * t1462 * t3993 - 0.3e1 / 0.8e1 * t404 * t18728 + 0.3e1 / 0.8e1 * t1462 * t4010 + 0.3e1 / 0.8e1 * t404 * t3194 * t7518 + t141 * t747 * t7518 - 0.3e1 / 0.4e1 * t141 * t18728 - t18741 + t18743 + t18745 - t18747 - t18749 + t18751;
12024   t18756 = 0.9e1 / 0.8e1 * t77 * t4003;
12025   t18758 = 0.9e1 / 0.8e1 * t77 * t3993;
12026   t18760 = 0.3e1 / 0.4e1 * t77 * t3997;
12027   t18776 = t18756 - t18758 - t18760 - t141 * t751 * t17751 / 0.2e1 + 0.3e1 / 0.8e1 * t1462 * t4000 + 0.3e1 / 0.8e1 * t404 * t747 * t7476 + 0.3e1 / 0.4e1 * t141 * t751 * t7476 - t3864 * t3203 / 0.4e1 + t3864 * t3195 / 0.4e1 + t17426 - t17427 - t17428 + t17429 - t17430 - t17431;
12028   t18777 = -t17433 + t17434 + t17435 - t2384 - t15200 - t15202 + t15204 + t15206 - t15245 - t15249 + t15252 + t15255 - t15264 - t17436 + t17437;
12029   t18779 = -t17440 + t17441 - t17442 + t17443 + t17444 - t15952 + t17445 - t17446 - t17447 + t17448 - t17449 - t599 + t15282 - t15285 - t15322;
12030   t18783 = 0.3e1 / 0.16e2 * t17841 * t748;
12031   t18784 = -t15332 + t15334 + t15337 - t15340 - t15352 - t15355 + t15358 + t15361 - t15364 + t15368 - t17900 * t748 / 0.8e1 - t18783 - t3790 + t3791 + t3792 - t3793;
12032   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12033     v4rholapltau2[0] = t18635 + t18676 + t18716 + t18752 + t18776 + t18777 + t18779 + t18784;
12034 
12035   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12036     v4rholapltau2[1] = 0.0e0;
12037 
12038   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12039     v4rholapltau2[2] = 0.0e0;
12040 
12041   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12042     v4rholapltau2[3] = 0.0e0;
12043 
12044   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12045     v4rholapltau2[4] = 0.0e0;
12046 
12047   t18811 = 0.9e1 / 0.16e2 * t353 * t4040;
12048   t18813 = 0.3e1 / 0.2e1 * t117 * t4043;
12049   t18815 = 0.9e1 / 0.8e1 * t117 * t4046;
12050   t18817 = 0.3e1 / 0.8e1 * t117 * t4050;
12051   t18819 = 0.9e1 / 0.16e2 * t353 * t4023;
12052   t18821 = 0.9e1 / 0.16e2 * t353 * t4030;
12053   t18823 = 0.9e1 / 0.8e1 * t117 * t4033;
12054   t18825 = 0.9e1 / 0.8e1 * t117 * t4023;
12055   t18827 = 0.3e1 / 0.4e1 * t117 * t4027;
12056   t18828 = -t2402 + 0.3e1 / 0.2e1 * t14254 * t1680 * t7956 - 0.9e1 / 0.8e1 * t14254 * t2676 * t7956 + 0.9e1 / 0.16e2 * t14273 * t8019 + 0.9e1 / 0.8e1 * t14254 * t460 * t7956 - 0.9e1 / 0.8e1 * t14254 * t7957 - 0.3e1 / 0.4e1 * t14254 * t1159 * t7956 - 0.3e1 / 0.8e1 * t14254 * t168 * t5459 - 0.9e1 / 0.16e2 * t14273 * t7957 + 0.9e1 / 0.16e2 * t14273 * t7960 + t18811 + t18813 - t18815 - t18817 - t18819 + t18821 + t18823 - t18825 - t18827;
12057   t18832 = 0.3e1 / 0.16e2 * t17969 * t763;
12058   t18833 = -0.3e1 / 0.16e2 * t17921 * t3258 - t17497 - t17498 + t17499 + t17500 + t15452 + t15472 - t15476 - t15478 - t2399 - t17501 - t17502 + t17503 + t17504 - t15486 + t15489 + t15507 - t15515 - t18832;
12059   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12060     v4rholapltau2[5] = t18828 + t18833;
12061 
12062   t18859 = -t2423 + 0.9e1 / 0.16e2 * t14142 * t7726 + 0.3e1 / 0.2e1 * t13962 * t1491 * t7695 - 0.9e1 / 0.8e1 * t13962 * t2583 * t7695 - 0.9e1 / 0.16e2 * t14142 * t7723 - 0.9e1 / 0.8e1 * t13962 * t7723 - 0.3e1 / 0.4e1 * t13962 * t848 * t7695 + 0.9e1 / 0.16e2 * t14142 * t7696 + 0.9e1 / 0.8e1 * t13962 * t418 * t7695 - 0.3e1 / 0.8e1 * t13962 * t161 * t4827 - 0.3e1 / 0.16e2 * t17809 * t3276 - t18741 + t18743 + t18745 - t18747 - t18749 + t18751 + t18756 - t18758;
12063   t18860 = -t18760 + t17426 - t17427 - t17428 + t17429 - t2384 - t15200 - t15202 + t15204 + t15206 + t17529 - t17530 - t17531 + t17532 - t15558 - t15561 + t15564 + t15569 - t18783;
12064   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12065     v4rholapltau2[6] = t18859 + t18860;
12066 
12067   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12068     v4rholapltau2[7] = 0.0e0;
12069 
12070   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12071     v4rholapltau2[8] = 0.0e0;
12072 
12073   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12074     v4rholapltau2[9] = 0.0e0;
12075 
12076   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12077     v4rholapltau2[10] = 0.0e0;
12078 
12079   t18870 = t17610 * t167;
12080   t18871 = t2668 * t18870;
12081   t18876 = t3506 + t3510 - t3515 - t3519 + t2445 - t2455 - t2493 + t2496 - t2500 + 0.3e1 / 0.2e1 * t2841 * t460 * t13683 - 0.9e1 / 0.8e1 * t14254 * t8181 - 0.3e1 / 0.2e1 * t2841 * t13684 + 0.11e2 / 0.4e1 * t17535 * t15693 - 0.9e1 / 0.4e1 * t7079 * t18871 - 0.9e1 / 0.16e2 * t14273 * t8181;
12082   t18891 = t1598 * t18870;
12083   t18916 = -0.3e1 / 0.4e1 * t14511 * t13684 + 0.9e1 / 0.16e2 * t14273 * t8178 + 0.3e1 / 0.4e1 * t14511 * t13698 - 0.3e1 / 0.4e1 * t14254 * t1159 * t8177 - t2841 * t1159 * t13683 + 0.3e1 / 0.2e1 * t17535 * t1159 * t15648 - 0.11e2 / 0.8e1 * t7079 * t18891 + 0.9e1 / 0.16e2 * t14273 * t8198 + 0.3e1 / 0.4e1 * t14511 * t13749 + 0.9e1 / 0.8e1 * t14254 * t460 * t8177 - t17535 * t521 * t7233 / 0.4e1 - 0.3e1 / 0.8e1 * t14254 * t168 * t5738 - t2841 * t168 * t14482 / 0.2e1 + 0.3e1 / 0.2e1 * t14254 * t1680 * t8177 + 0.2e1 * t2841 * t1680 * t13683;
12084   t18927 = t5972 * t167;
12085   t18955 = t762 * t8222;
12086   t18958 = -0.9e1 / 0.8e1 * t14254 * t2676 * t8177 - 0.3e1 / 0.2e1 * t2841 * t2676 * t13683 - 0.11e2 / 0.4e1 * t17535 * t129 * t8317 + 0.3e1 / 0.2e1 * t17535 * t129 * t18927 - 0.7e1 / 0.8e1 * t17543 * t15706 + 0.11e2 / 0.4e1 * t17543 * t15649 - 0.15e2 / 0.8e1 * t17543 * t15655 + 0.11e2 / 0.4e1 * t17535 * t7166 * t15648 - 0.25e2 / 0.4e1 * t17535 * t7142 * t15648 + 0.15e2 / 0.4e1 * t17535 * t11161 * t15648 - 0.6e1 * t17535 * t15706 + 0.9e1 / 0.2e1 * t17535 * t15649 + 0.9e1 / 0.4e1 * t17543 * t15693 + 0.3e1 / 0.4e1 * t150 * t766 * t8299 - 0.3e1 / 0.4e1 * t150 * t18955;
12087   t18995 = -t150 * t766 * t18037 / 0.2e1 + 0.3e1 / 0.8e1 * t1662 * t4030 + 0.3e1 / 0.8e1 * t446 * t762 * t8299 - t3909 * t3329 / 0.4e1 + t3909 * t3289 / 0.4e1 - 0.3e1 / 0.8e1 * t1662 * t4023 - 0.3e1 / 0.8e1 * t446 * t18955 + 0.3e1 / 0.8e1 * t1662 * t4040 + 0.3e1 / 0.8e1 * t446 * t3288 * t8226 + t150 * t762 * t8226 - 0.3e1 / 0.4e1 * t150 * t3288 * t18062 - t150 * t761 * t516 * t1690 / 0.4e1 - 0.3e1 / 0.16e2 * t17921 * t3304 - t3909 * t3307 / 0.4e1 + t3909 * t3310 / 0.4e1;
12088   t18998 = t18811 + t18813 - t18815 - t18817 - t18819 + t18821 + t18823 - t18825 - t18827 - t17663 - t17664 + t17665 + t17666 - t17667 - t17497;
12089   t18999 = -t17498 + t17499 + t17500 - t15606 - t15609 - t15613 + t15619 + t15622 + t15452 + t15472 - t15476 - t15478 + t17669 - t17670 - t17671;
12090   t19001 = t17672 + t17673 - t17674 - t17675 + t17676 - t17677 - t17678 + t17679 + t17680 - t16246 - t2399 + t15670 - t15673 - t15683 + t15686;
12091   t19004 = -t15689 - t15710 - t15713 + t15716 - t15718 - t619 + t15754 + t15757 - t15760 + t15763 - t18198 * t763 / 0.8e1 - t18832 + t3820 - t3821 - t3822 + t3823;
12092   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12093     v4rholapltau2[11] = t18876 + t18916 + t18958 + t18995 + t18998 + t18999 + t19001 + t19004;
12094 
12095   t19007 = t4286 * t4053;
12096   t19020 = t4320 * t4053;
12097   t19021 = t405 * t19020;
12098   t19025 = t4058 * t4482;
12099   t19028 = t747 * t8557;
12100   t19044 = t139 * t8 * t4075;
12101   t19053 = t4329 * t4053;
12102   t19057 = -0.9e1 / 0.8e1 * t399 * t19025 - 0.9e1 / 0.4e1 * t141 * t19028 + 0.3e1 / 0.2e1 * t399 * t4058 * t4491 + 0.3e1 * t141 * t747 * t8561 + 0.9e1 / 0.16e2 * t2332 * t4058 * t4468 + 0.9e1 / 0.8e1 * t404 * t747 * t8677 - 0.3e1 / 0.16e2 * t19044 * t3191 - t4077 * t3220 / 0.4e1 + t4077 * t3223 / 0.4e1 + 0.11e2 / 0.4e1 * t141 * t19021 - 0.9e1 / 0.4e1 * t404 * t14578 * t19053;
12103   t19069 = t4053 * t4365;
12104   t19079 = t4058 * t14588;
12105   t19082 = t4086 * t14596;
12106   t19092 = -0.3e1 / 0.4e1 * t399 * t4054 * t4535 - 0.3e1 / 0.2e1 * t141 * t751 * t914 * t542 + 0.3e1 / 0.2e1 * t141 * t4054 * t14650 - 0.15e2 / 0.8e1 * t404 * t19069 * t14607 + 0.11e2 / 0.4e1 * t141 * t4058 * t14596 - 0.25e2 / 0.4e1 * t141 * t4086 * t14607 - 0.6e1 * t141 * t19079 + 0.9e1 / 0.2e1 * t141 * t19082 - t4077 * t3203 / 0.4e1 + t4077 * t3195 / 0.4e1 - 0.9e1 / 0.8e1 * t399 * t4086 * t4580;
12107   t19120 = t4053 * t88;
12108   t19124 = -0.9e1 / 0.4e1 * t141 * t3194 * t889 * t542 - 0.3e1 / 0.8e1 * t399 * t4054 * t4482 - 0.3e1 / 0.4e1 * t141 * t751 * t8557 - 0.9e1 / 0.16e2 * t2332 * t19025 - 0.9e1 / 0.8e1 * t404 * t19028 + 0.9e1 / 0.16e2 * t2332 * t4086 * t4491 + 0.9e1 / 0.8e1 * t404 * t3194 * t8561 + 0.15e2 / 0.4e1 * t141 * t19069 * t14584 - 0.7e1 / 0.8e1 * t404 * t19079 + 0.11e2 / 0.4e1 * t404 * t19082 + 0.3e1 / 0.2e1 * t141 * t19120 * t6355;
12109   t19130 = 0.9e1 / 0.8e1 * t15827;
12110   t19131 = 0.9e1 / 0.16e2 * t15831;
12111   t19132 = 0.9e1 / 0.8e1 * t15833;
12112   t19133 = 0.9e1 / 0.8e1 * t15835;
12113   t19150 = -t2384 - 0.3e1 / 0.4e1 * t15901 + 0.3e1 * t15903 - 0.9e1 / 0.4e1 * t15904 + 0.9e1 / 0.8e1 * t15941 - 0.9e1 / 0.4e1 * t15943 + 0.9e1 / 0.8e1 * t15947 + 0.9e1 / 0.8e1 * t15949 - 0.3e1 / 0.2e1 * t15952 + 0.9e1 / 0.8e1 * t15955 - 0.9e1 / 0.16e2 * t15961;
12114   t19156 = 0.9e1 / 0.8e1 * t77 * t4059;
12115   t19167 = t4068 * t222;
12116   t19170 = t4068 * t28;
12117   t19173 = t4226 * t172;
12118   t19176 = t1517 * t2107;
12119   t19200 = t14747 * t537 / 0.4e1 + t75 * t542 * t849 / 0.2e1 + t4068 * t88 * t419 / 0.2e1 - t19167 * t424 / 0.2e1 - t19170 * t428 / 0.2e1 - t19173 * t14764 / 0.2e1 + t14767 * t19176 / 0.2e1 + t853 * t542 * t849 / 0.2e1 + t4070 * t14774 / 0.2e1 - t4070 * t14777 / 0.2e1 - t4070 * t14780 / 0.2e1 - t4244 * t172 * t849 / 0.2e1 - t856 * t542 * t849 / 0.2e1 - t4072 * t14774 / 0.2e1 + t4072 * t14777 / 0.2e1 + t4072 * t14780 / 0.2e1;
12120   t19210 = 0.9e1 / 0.8e1 * t77 * t4092;
12121   t19212 = 0.3e1 / 0.8e1 * t77 * t4095;
12122   t19213 = -0.9e1 / 0.8e1 * t15963 + 0.9e1 / 0.4e1 * t15965 - 0.9e1 / 0.8e1 * t15968 - t599 - t19156 + 0.3e1 / 0.8e1 * t1462 * t4065 - t139 * t9 * t19200 * t748 / 0.8e1 - 0.3e1 / 0.8e1 * t1462 * t4059 + 0.3e1 / 0.8e1 * t1462 * t4087 - t19210 - t19212;
12123   t19215 = 0.9e1 / 0.16e2 * t220 * t4059;
12124   t19217 = 0.9e1 / 0.16e2 * t220 * t4087;
12125   t19219 = 0.3e1 / 0.2e1 * t77 * t4090;
12126   t19222 = 0.3e1 / 0.16e2 * t6122 * t4076 * t748;
12127   t19224 = 0.3e1 / 0.4e1 * t77 * t4062;
12128   t19226 = 0.9e1 / 0.16e2 * t220 * t4065;
12129   t19228 = 0.9e1 / 0.8e1 * t77 * t4055;
12130   t19229 = -t19215 + t19217 + t19219 - t19222 - t19224 + t19226 + t19228 - t4080 + t4081 + t4082 - t4083;
12131   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12132     v4rhotau3[0] = -0.11e2 / 0.8e1 * t404 * t405 * t19007 + 0.9e1 / 0.8e1 * t399 * t4054 * t4468 + 0.9e1 / 0.4e1 * t141 * t751 * t8677 - 0.11e2 / 0.4e1 * t141 * t4054 * t14562 - t141 * t19120 * t6308 / 0.4e1 + 0.9e1 / 0.4e1 * t404 * t19021 + t19229 - 0.3e1 / 0.8e1 * t15880 - 0.3e1 / 0.8e1 * t15877 + t2378 + t19150 - t2352 + t19124 + t19092 - t2345 + t2348 + t19133 + t19130 - t19131 - t19132 - t2312 + t19057 + t19213 + 0.3e1 / 0.4e1 * t15887 + 0.3e1 / 0.4e1 * t15890 - 0.3e1 / 0.4e1 * t15884;
12133 
12134   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12135     v4rhotau3[1] = 0.0e0;
12136 
12137   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12138     v4rhotau3[2] = 0.0e0;
12139 
12140   t19239 = t139 * t36 * t4124;
12141   t19242 = t4103 * t5459;
12142   t19262 = 0.9e1 / 0.16e2 * t16019;
12143   t19263 = 0.9e1 / 0.8e1 * t16021;
12144   t19264 = 0.9e1 / 0.8e1 * t16023;
12145   t19265 = 0.9e1 / 0.8e1 * t16025;
12146   t19266 = -t2402 - 0.9e1 / 0.8e1 * t434 * t4131 * t5513 - 0.3e1 / 0.8e1 * t434 * t4099 * t5459 - 0.3e1 / 0.16e2 * t19239 * t3258 - 0.9e1 / 0.16e2 * t2394 * t19242 + 0.9e1 / 0.16e2 * t2394 * t4131 * t5463 + 0.9e1 / 0.16e2 * t2394 * t4103 * t5474 + 0.9e1 / 0.8e1 * t434 * t4099 * t5474 - 0.9e1 / 0.8e1 * t434 * t19242 - 0.3e1 / 0.4e1 * t434 * t4099 * t5487 + 0.3e1 / 0.2e1 * t434 * t4103 * t5463 - t19262 - t19263 + t19264 + t19265;
12147   t19272 = 0.3e1 / 0.2e1 * t117 * t4135;
12148   t19274 = 0.9e1 / 0.8e1 * t117 * t4137;
12149   t19276 = 0.3e1 / 0.8e1 * t117 * t4140;
12150   t19279 = 0.3e1 / 0.16e2 * t6122 * t4125 * t763;
12151   t19281 = 0.9e1 / 0.16e2 * t353 * t4104;
12152   t19283 = 0.9e1 / 0.16e2 * t353 * t4132;
12153   t19285 = 0.9e1 / 0.8e1 * t117 * t4100;
12154   t19287 = 0.9e1 / 0.8e1 * t117 * t4104;
12155   t19289 = 0.3e1 / 0.4e1 * t117 * t4107;
12156   t19291 = 0.9e1 / 0.16e2 * t353 * t4110;
12157   t19292 = -t2399 - 0.9e1 / 0.16e2 * t16052 - 0.9e1 / 0.8e1 * t16054 + 0.9e1 / 0.8e1 * t16056 + 0.9e1 / 0.8e1 * t16058 + t19272 - t19274 - t19276 - t19279 - t19281 + t19283 + t19285 - t19287 - t19289 + t19291;
12158   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12159     v4rhotau3[3] = t19266 + t19292;
12160 
12161   t19302 = t4058 * t4827;
12162   t19321 = -t2423 + 0.3e1 / 0.2e1 * t399 * t4058 * t4819 - 0.9e1 / 0.8e1 * t399 * t4086 * t4823 - 0.3e1 / 0.8e1 * t399 * t4054 * t4827 - 0.9e1 / 0.16e2 * t2332 * t19302 + 0.9e1 / 0.16e2 * t2332 * t4086 * t4819 - 0.3e1 / 0.16e2 * t19044 * t3276 - 0.9e1 / 0.8e1 * t399 * t19302 - 0.3e1 / 0.4e1 * t399 * t4054 * t4834 + 0.9e1 / 0.16e2 * t2332 * t4058 * t4858 + 0.9e1 / 0.8e1 * t399 * t4054 * t4858 + t19130 - t19131 - t19132 + t19133;
12163   t19326 = -t2384 + 0.9e1 / 0.8e1 * t16094 - 0.9e1 / 0.16e2 * t16098 - 0.9e1 / 0.8e1 * t16100 + 0.9e1 / 0.8e1 * t16102 - t19156 - t19210 - t19212 - t19215 + t19217 + t19219 - t19222 - t19224 + t19226 + t19228;
12164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12165     v4rhotau3[4] = t19321 + t19326;
12166 
12167   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12168     v4rhotau3[5] = 0.0e0;
12169 
12170   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12171     v4rhotau3[6] = 0.0e0;
12172 
12173   t19327 = t4098 * t6054;
12174   t19340 = t4103 * t14958;
12175   t19344 = t4131 * t14939;
12176   t19353 = t762 * t14482;
12177   t19374 = 0.9e1 / 0.2e1 * t150 * t19344 - t4126 * t3329 / 0.4e1 + t4126 * t3289 / 0.4e1 - 0.7e1 / 0.8e1 * t446 * t19340 - 0.9e1 / 0.8e1 * t446 * t19353 + 0.9e1 / 0.16e2 * t2394 * t4131 * t5722 + 0.9e1 / 0.8e1 * t446 * t3288 * t9289 + 0.3e1 / 0.2e1 * t434 * t4103 * t5722 + 0.3e1 * t150 * t762 * t9289 + 0.9e1 / 0.4e1 * t150 * t766 * t9302 - 0.11e2 / 0.4e1 * t150 * t4099 * t15010;
12178   t19376 = t5972 * t4098;
12179   t19377 = t447 * t19376;
12180   t19380 = t4103 * t5738;
12181   t19387 = t6000 * t4098;
12182   t19401 = t5889 * t4098;
12183   t19411 = 0.9e1 / 0.4e1 * t446 * t19377 - 0.9e1 / 0.8e1 * t434 * t19380 - 0.9e1 / 0.4e1 * t150 * t19353 + 0.11e2 / 0.4e1 * t150 * t19377 - 0.9e1 / 0.4e1 * t446 * t15024 * t19387 - 0.3e1 / 0.4e1 * t434 * t4099 * t5751 - 0.3e1 / 0.2e1 * t150 * t766 * t1351 * t574 + 0.3e1 / 0.2e1 * t150 * t4099 * t15036 - 0.11e2 / 0.8e1 * t446 * t447 * t19401 + 0.9e1 / 0.16e2 * t2394 * t4103 * t5773 + 0.9e1 / 0.8e1 * t446 * t762 * t9302;
12184   t19438 = t4098 * t128;
12185   t19442 = 0.9e1 / 0.8e1 * t434 * t4099 * t5773 + 0.11e2 / 0.4e1 * t446 * t19344 - 0.9e1 / 0.8e1 * t434 * t4131 * t5726 - 0.9e1 / 0.4e1 * t150 * t3288 * t1307 * t574 - 0.3e1 / 0.8e1 * t434 * t4099 * t5738 - 0.3e1 / 0.4e1 * t150 * t766 * t14482 - 0.3e1 / 0.16e2 * t19239 * t3304 - t4126 * t3307 / 0.4e1 + t4126 * t3310 / 0.4e1 - 0.9e1 / 0.16e2 * t2394 * t19380 + 0.3e1 / 0.2e1 * t150 * t19438 * t7304;
12186   t19465 = 0.9e1 / 0.4e1 * t16161 - 0.3e1 / 0.4e1 * t16163 - 0.9e1 / 0.8e1 * t16178 + 0.9e1 / 0.8e1 * t16180 + 0.3e1 * t16182 - 0.9e1 / 0.4e1 * t16183 - 0.9e1 / 0.4e1 * t16205 + 0.9e1 / 0.8e1 * t16231 - 0.9e1 / 0.16e2 * t16237 - 0.9e1 / 0.8e1 * t16240 + 0.9e1 / 0.8e1 * t16242;
12187   t19477 = t4117 * t355;
12188   t19480 = t4117 * t53;
12189   t19483 = t5913 * t177;
12190   t19486 = t1598 * t2177;
12191   t19510 = t15120 * t569 / 0.4e1 + t115 * t574 * t1316 / 0.2e1 + t4117 * t128 * t461 / 0.2e1 - t19477 * t466 / 0.2e1 - t19480 * t470 / 0.2e1 - t19483 * t15136 / 0.2e1 + t15139 * t19486 / 0.2e1 + t1320 * t574 * t1316 / 0.2e1 + t4119 * t15146 / 0.2e1 - t4119 * t15149 / 0.2e1 - t4119 * t15152 / 0.2e1 - t5931 * t177 * t1316 / 0.2e1 - t1323 * t574 * t1316 / 0.2e1 - t4121 * t15146 / 0.2e1 + t4121 * t15149 / 0.2e1 + t4121 * t15152 / 0.2e1;
12192   t19519 = 0.9e1 / 0.8e1 * t16244 - 0.3e1 / 0.2e1 * t16246 - t2399 - t619 - t139 * t37 * t19510 * t763 / 0.8e1 - 0.3e1 / 0.8e1 * t1662 * t4104 + 0.3e1 / 0.8e1 * t1662 * t4132 + t19272 - t19274 - t19276 - t19279;
12193   t19522 = -t19281 + t19283 + t19285 - t19287 - t19289 + t19291 + 0.3e1 / 0.8e1 * t1662 * t4110 + t4113 - t4114 - t4115 + t4116;
12194   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12195     v4rhotau3[7] = 0.15e2 / 0.4e1 * t150 * t19327 * t14954 - t150 * t19438 * t7233 / 0.4e1 - 0.15e2 / 0.8e1 * t446 * t19327 * t14944 + 0.11e2 / 0.4e1 * t150 * t4103 * t14939 - 0.25e2 / 0.4e1 * t150 * t4131 * t14944 - 0.6e1 * t150 * t19340 - t19262 - t2500 - t2493 + t2496 + t19411 - 0.3e1 / 0.8e1 * t16142 - t19263 + t19264 + t19265 - t2455 + t2445 + t19442 + t19465 + 0.3e1 / 0.4e1 * t16134 + 0.3e1 / 0.4e1 * t16131 + t19374 + t19519 + t19522 - 0.3e1 / 0.4e1 * t16128 - 0.3e1 / 0.8e1 * t16124;
12196 
12197   t19528 = t141 * t595 * t590 * t1416;
12198   t19531 = t404 * t591 * t9725;
12199   t19533 = t871 * t595;
12200   t19534 = t591 * t19533;
12201   t19535 = t404 * t19534;
12202   t19538 = t404 * t2304 * t9567;
12203   t19541 = t141 * t591 * t9567;
12204   t19543 = t889 * t595;
12205   t19545 = t141 * t2304 * t19543;
12206   t19547 = t3375 * t3357;
12207   t19550 = t141 * t600 * t9725;
12208   t19552 = t141 * t19534;
12209   t19554 = t914 * t595;
12210   t19556 = t141 * t600 * t19554;
12211   t19558 = t590 * t590;
12212   t19559 = t19558 * t28;
12213   t19567 = t19558 * t222;
12214   t19571 = -t3358 / 0.2e1 + t3364 + t3390 - t3394 - 0.3e1 / 0.2e1 * t19528 + 0.9e1 / 0.4e1 * t19531 - 0.9e1 / 0.4e1 * t19535 + 0.9e1 / 0.4e1 * t19538 + 0.6e1 * t19541 - 0.9e1 / 0.2e1 * t19545 - 0.5e1 / 0.8e1 * t19547 + 0.9e1 / 0.2e1 * t19550 - 0.9e1 / 0.2e1 * t19552 - 0.3e1 * t19556 - t599 + 0.3e1 / 0.2e1 * t141 * t19559 * t4307 - 0.5e1 / 0.8e1 * t3375 * t3351 + 0.5e1 / 0.8e1 * t3375 * t3386 + 0.11e2 / 0.4e1 * t141 * t19567 * t4339;
12215   t19572 = t19558 * t877;
12216   t19576 = t19558 * t4365;
12217   t19580 = t19567 * t4329;
12218   t19585 = t19572 * t4339;
12219   t19588 = t19567 * t4320;
12220   t19604 = t75 * t595 * t849 / 0.2e1;
12221   t19605 = t75 * t590;
12222   t19620 = t853 * t595 * t849 / 0.2e1;
12223   t19621 = t853 * t590;
12224   t19628 = t216 * t3373;
12225   t19634 = t856 * t595 * t849 / 0.2e1;
12226   t19635 = t856 * t590;
12227   t19642 = t218 * t590 * t4209 / 0.4e1 + t19604 + t19605 * t419 / 0.2e1 - t19605 * t4218 / 0.2e1 - t19605 * t4221 / 0.2e1 - t4226 * t590 * t4209 / 0.2e1 + t4230 * t590 * t4209 / 0.2e1 + t19620 + t19621 * t419 / 0.2e1 - t19621 * t4218 / 0.2e1 - t19621 * t4221 / 0.2e1 - t19628 * t144 * t849 / 0.2e1 - t19634 - t19635 * t419 / 0.2e1 + t19635 * t4218 / 0.2e1 + t19635 * t4221 / 0.2e1;
12228   t19644 = t139 * t9 * t19642;
12229   t19658 = t595 * t595;
12230   t19659 = t19658 * t222;
12231   t19662 = 0.3e1 / 0.4e1 * t141 * t19659 * t253;
12232   t19663 = t19658 * t28;
12233   t19666 = 0.3e1 / 0.4e1 * t141 * t19663 * t228;
12234   t19669 = 0.3e1 / 0.8e1 * t404 * t19659 * t228;
12235   t19672 = 0.3e1 / 0.4e1 * t141 * t19663 * t257;
12236   t19678 = -0.25e2 / 0.4e1 * t141 * t19572 * t4369 + 0.15e2 / 0.4e1 * t141 * t19576 * t4381 - 0.7e1 / 0.8e1 * t404 * t19580 - 0.6e1 * t141 * t19580 + 0.9e1 / 0.2e1 * t141 * t19585 + 0.9e1 / 0.4e1 * t404 * t19588 - 0.9e1 / 0.4e1 * t404 * t19572 * t4329 - 0.11e2 / 0.8e1 * t404 * t19567 * t4286 + 0.5e1 / 0.8e1 * t3375 * t3360 - t19644 * t592 / 0.8e1 + 0.11e2 / 0.4e1 * t404 * t19585 - 0.15e2 / 0.8e1 * t404 * t19576 * t4369 + 0.3e1 / 0.2e1 * t141 * t19559 * t4320 - t141 * t19559 * t4329 / 0.4e1 + t19662 - t19666 - t19669 + t19672 - 0.11e2 / 0.4e1 * t141 * t19559 * t4286 + 0.11e2 / 0.4e1 * t141 * t19588;
12237   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12238     v4sigma4[0] = t19571 + t19678;
12239 
12240   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12241     v4sigma4[1] = 0.0e0;
12242 
12243   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12244     v4sigma4[2] = 0.0e0;
12245 
12246   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12247     v4sigma4[3] = 0.0e0;
12248 
12249   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12250     v4sigma4[4] = 0.0e0;
12251 
12252   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12253     v4sigma4[5] = 0.0e0;
12254 
12255   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12256     v4sigma4[6] = 0.0e0;
12257 
12258   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12259     v4sigma4[7] = 0.0e0;
12260 
12261   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12262     v4sigma4[8] = 0.0e0;
12263 
12264   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12265     v4sigma4[9] = 0.0e0;
12266 
12267   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12268     v4sigma4[10] = 0.0e0;
12269 
12270   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12271     v4sigma4[11] = 0.0e0;
12272 
12273   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12274     v4sigma4[12] = 0.0e0;
12275 
12276   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12277     v4sigma4[13] = 0.0e0;
12278 
12279   t19682 = t150 * t615 * t610 * t1690;
12280   t19685 = t446 * t611 * t10431;
12281   t19687 = t1291 * t615;
12282   t19688 = t611 * t19687;
12283   t19689 = t150 * t19688;
12284   t19691 = t1351 * t615;
12285   t19693 = t150 * t620 * t19691;
12286   t19695 = t3429 * t3411;
12287   t19698 = t150 * t620 * t10431;
12288   t19702 = t150 * t2442 * t1299 * t610;
12289   t19705 = t150 * t10302 * t3544;
12290   t19707 = t446 * t19688;
12291   t19710 = t446 * t2437 * t10261;
12292   t19712 = t610 * t610;
12293   t19713 = t19712 * t53;
12294   t19717 = t615 * t615;
12295   t19718 = t19717 * t355;
12296   t19721 = 0.3e1 / 0.8e1 * t446 * t19718 * t361;
12297   t19725 = t19712 * t1295;
12298   t19726 = t19725 * t5988;
12299   t19729 = -t3412 / 0.2e1 + t3418 + t3439 - t3448 - 0.3e1 / 0.2e1 * t19682 + 0.9e1 / 0.4e1 * t19685 - 0.9e1 / 0.2e1 * t19689 - 0.3e1 * t19693 - 0.5e1 / 0.8e1 * t19695 + 0.9e1 / 0.2e1 * t19698 + 0.6e1 * t19702 - 0.9e1 / 0.2e1 * t19705 - 0.9e1 / 0.4e1 * t19707 + 0.9e1 / 0.4e1 * t19710 - t619 + 0.3e1 / 0.2e1 * t150 * t19713 * t5977 - t19721 - 0.11e2 / 0.4e1 * t150 * t19713 * t5889 + 0.11e2 / 0.4e1 * t446 * t19726;
12300   t19730 = t19712 * t6054;
12301   t19734 = t19712 * t355;
12302   t19744 = t19734 * t6000;
12303   t19755 = t19734 * t5972;
12304   t19771 = t115 * t615 * t1316 / 0.2e1;
12305   t19772 = t115 * t610;
12306   t19787 = t1320 * t615 * t1316 / 0.2e1;
12307   t19788 = t1320 * t610;
12308   t19795 = t349 * t3427;
12309   t19801 = t1323 * t615 * t1316 / 0.2e1;
12310   t19802 = t1323 * t610;
12311   t19809 = t351 * t610 * t5896 / 0.4e1 + t19771 + t19772 * t461 / 0.2e1 - t19772 * t5905 / 0.2e1 - t19772 * t5908 / 0.2e1 - t5913 * t610 * t5896 / 0.2e1 + t5917 * t610 * t5896 / 0.2e1 + t19787 + t19788 * t461 / 0.2e1 - t19788 * t5905 / 0.2e1 - t19788 * t5908 / 0.2e1 - t19795 * t153 * t1316 / 0.2e1 - t19801 - t19802 * t461 / 0.2e1 + t19802 * t5905 / 0.2e1 + t19802 * t5908 / 0.2e1;
12312   t19811 = t139 * t37 * t19809;
12313   t19820 = t19717 * t53;
12314   t19823 = 0.3e1 / 0.4e1 * t150 * t19820 * t361;
12315   t19826 = 0.3e1 / 0.4e1 * t150 * t19718 * t386;
12316   t19829 = 0.3e1 / 0.4e1 * t150 * t19820 * t390;
12317   t19832 = -0.15e2 / 0.8e1 * t446 * t19730 * t6058 + 0.11e2 / 0.4e1 * t150 * t19734 * t5988 - 0.25e2 / 0.4e1 * t150 * t19725 * t6058 + 0.15e2 / 0.4e1 * t150 * t19730 * t6070 - 0.6e1 * t150 * t19744 + 0.9e1 / 0.2e1 * t150 * t19726 - 0.5e1 / 0.8e1 * t3429 * t3405 + 0.5e1 / 0.8e1 * t3429 * t3435 - 0.7e1 / 0.8e1 * t446 * t19744 + 0.9e1 / 0.4e1 * t446 * t19755 - 0.9e1 / 0.4e1 * t446 * t19725 * t6000 - 0.11e2 / 0.8e1 * t446 * t19734 * t5889 + 0.5e1 / 0.8e1 * t3429 * t3414 - t19811 * t612 / 0.8e1 + 0.3e1 / 0.2e1 * t150 * t19713 * t5972 - t150 * t19713 * t6000 / 0.4e1 - t19823 + t19826 + t19829 + 0.11e2 / 0.4e1 * t150 * t19755;
12318   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12319     v4sigma4[14] = t19729 + t19832;
12320 
12321   t19833 = t160 * t3345;
12322   t19840 = t3350 * t7460;
12323   t19843 = t4339 * t160;
12324   t19844 = t3380 * t19843;
12325   t19849 = t3456 - t3461 - t3465 + t3469 - t3359 + t3365 + t3391 - t3395 + 0.3e1 / 0.2e1 * t141 * t19833 * t6355 - t141 * t19833 * t6308 / 0.4e1 - 0.7e1 / 0.8e1 * t404 * t19840 + 0.11e2 / 0.4e1 * t404 * t19844 - 0.5e1 / 0.8e1 * t3375 * t3480;
12326   t19850 = t493 * t14566;
12327   t19853 = t4307 * t3345;
12328   t19867 = t3375 * t3459;
12329   t19868 = t19867 / 0.4e1;
12330   t19878 = t4381 * t3345;
12331   t19886 = 0.11e2 / 0.4e1 * t141 * t19850 + 0.3e1 / 0.2e1 * t141 * t161 * t19853 - 0.11e2 / 0.8e1 * t404 * t3350 * t7640 - 0.11e2 / 0.4e1 * t141 * t19833 * t6312 + 0.5e1 / 0.8e1 * t3375 * t3472 - t19644 * t630 / 0.8e1 - t19868 - 0.15e2 / 0.8e1 * t404 * t14583 * t7573 + 0.11e2 / 0.4e1 * t141 * t19833 * t6289 - 0.25e2 / 0.4e1 * t141 * t19833 * t6294 + 0.15e2 / 0.4e1 * t141 * t7456 * t19878 + 0.5e1 / 0.8e1 * t3375 * t3489 + 0.9e1 / 0.4e1 * t404 * t19850;
12332   t19895 = 0.3e1 / 0.4e1 * t19528;
12333   t19896 = 0.9e1 / 0.8e1 * t19531;
12334   t19897 = 0.9e1 / 0.8e1 * t19535;
12335   t19898 = 0.9e1 / 0.8e1 * t19538;
12336   t19899 = 0.3e1 * t19541;
12337   t19900 = 0.9e1 / 0.4e1 * t19545;
12338   t19901 = 0.3e1 / 0.8e1 * t19547;
12339   t19902 = 0.9e1 / 0.4e1 * t19550;
12340   t19903 = 0.9e1 / 0.4e1 * t19552;
12341   t19904 = 0.3e1 / 0.2e1 * t19556;
12342   t19905 = -0.9e1 / 0.4e1 * t404 * t3380 * t7460 - 0.6e1 * t141 * t19840 + 0.9e1 / 0.2e1 * t141 * t19844 - t19895 + t19896 - t19897 + t19898 + t19899 - t19900 - t19901 + t19902 - t19903 - t19904;
12343   t19906 = t145 * t9725;
12344   t19907 = t2551 * t19906;
12345   t19908 = 0.9e1 / 0.4e1 * t19907;
12346   t19909 = t3392 * t1416;
12347   t19910 = t2551 * t19909;
12348   t19911 = 0.3e1 / 0.4e1 * t19910;
12349   t19912 = t14717 * t144;
12350   t19913 = t848 * t19912;
12351   t19914 = t2551 * t19913;
12352   t19915 = 0.3e1 / 0.2e1 * t19914;
12353   t19916 = t2562 * t15366;
12354   t19917 = 0.9e1 / 0.8e1 * t19916;
12355   t19918 = t1502 * t19912;
12356   t19919 = t2551 * t19918;
12357   t19920 = 0.9e1 / 0.4e1 * t19919;
12358   t19921 = t15330 * t3723;
12359   t19922 = 0.9e1 / 0.8e1 * t19921;
12360   t19924 = t15330 * t2577 * t3722;
12361   t19925 = 0.9e1 / 0.8e1 * t19924;
12362   t19926 = t2375 * t1487;
12363   t19927 = t2551 * t19926;
12364   t19928 = 0.3e1 * t19927;
12365   t19929 = t2583 * t19912;
12366   t19930 = t2551 * t19929;
12367   t19931 = 0.9e1 / 0.4e1 * t19930;
12368   t19932 = t19908 - t19911 - t19915 + t19917 - t19920 - t19922 + t19925 + t19928 - t19931 - t599 + t19662 - t19666 - t19669 + t19672;
12369   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12370     v4sigma3lapl[0] = t19849 + t19886 + t19905 + t19932;
12371 
12372   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12373     v4sigma3lapl[1] = 0.0e0;
12374 
12375   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12376     v4sigma3lapl[2] = 0.0e0;
12377 
12378   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12379     v4sigma3lapl[3] = 0.0e0;
12380 
12381   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12382     v4sigma3lapl[4] = 0.0e0;
12383 
12384   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12385     v4sigma3lapl[5] = 0.0e0;
12386 
12387   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12388     v4sigma3lapl[6] = 0.0e0;
12389 
12390   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12391     v4sigma3lapl[7] = 0.0e0;
12392 
12393   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12394     v4sigma3lapl[8] = 0.0e0;
12395 
12396   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12397     v4sigma3lapl[9] = 0.0e0;
12398 
12399   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12400     v4sigma3lapl[10] = 0.0e0;
12401 
12402   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12403     v4sigma3lapl[11] = 0.0e0;
12404 
12405   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12406     v4sigma3lapl[12] = 0.0e0;
12407 
12408   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12409     v4sigma3lapl[13] = 0.0e0;
12410 
12411   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12412     v4sigma3lapl[14] = 0.0e0;
12413 
12414   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12415     v4sigma3lapl[15] = 0.0e0;
12416 
12417   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12418     v4sigma3lapl[16] = 0.0e0;
12419 
12420   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12421     v4sigma3lapl[17] = 0.0e0;
12422 
12423   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12424     v4sigma3lapl[18] = 0.0e0;
12425 
12426   t19934 = t167 * t3399;
12427   t19947 = t19934 * t17151;
12428   t19950 = t3506 + t3510 - t3515 - t3519 - t3413 + t3419 + t3440 - t3449 + 0.3e1 / 0.2e1 * t150 * t19934 * t7304 - t150 * t19934 * t7233 / 0.4e1 - 0.11e2 / 0.4e1 * t150 * t19934 * t7288 - 0.9e1 / 0.4e1 * t446 * t3434 * t8232 - 0.6e1 * t150 * t19947;
12429   t19952 = t1970 * t5988 * t3399;
12430   t19960 = t3429 * t3513;
12431   t19961 = t19960 / 0.4e1;
12432   t19962 = t5977 * t3399;
12433   t19981 = t6070 * t3399;
12434   t19987 = 0.9e1 / 0.2e1 * t150 * t19952 - 0.11e2 / 0.8e1 * t446 * t3404 * t8317 - t19811 * t645 / 0.8e1 - t19961 + 0.3e1 / 0.2e1 * t150 * t168 * t19962 + 0.5e1 / 0.8e1 * t3429 * t3526 - 0.7e1 / 0.8e1 * t446 * t19947 + 0.11e2 / 0.4e1 * t446 * t19952 - 0.15e2 / 0.8e1 * t446 * t14943 * t8240 + 0.11e2 / 0.4e1 * t150 * t19934 * t7167 - 0.25e2 / 0.4e1 * t150 * t19934 * t7143 + 0.15e2 / 0.4e1 * t150 * t8250 * t19981 - 0.5e1 / 0.8e1 * t3429 * t3534;
12435   t19991 = t525 * t15014;
12436   t19996 = 0.3e1 / 0.4e1 * t19682;
12437   t19997 = 0.9e1 / 0.8e1 * t19685;
12438   t19998 = 0.9e1 / 0.4e1 * t19689;
12439   t19999 = 0.3e1 / 0.2e1 * t19693;
12440   t20000 = 0.3e1 / 0.8e1 * t19695;
12441   t20001 = 0.9e1 / 0.4e1 * t19698;
12442   t20002 = 0.3e1 * t19702;
12443   t20003 = 0.9e1 / 0.4e1 * t19705;
12444   t20004 = 0.9e1 / 0.8e1 * t19707;
12445   t20005 = 0.9e1 / 0.8e1 * t19710;
12446   t20006 = 0.5e1 / 0.8e1 * t3429 * t3539 + 0.11e2 / 0.4e1 * t150 * t19991 + 0.9e1 / 0.4e1 * t446 * t19991 - t19996 + t19997 - t19998 - t19999 - t20000 + t20001 + t20002 - t20003 - t20004 + t20005;
12447   t20007 = t15082 * t153;
12448   t20008 = t1159 * t20007;
12449   t20009 = t2673 * t20008;
12450   t20010 = 0.3e1 / 0.2e1 * t20009;
12451   t20011 = t2662 * t15761;
12452   t20012 = 0.9e1 / 0.8e1 * t20011;
12453   t20013 = t1618 * t20007;
12454   t20014 = t2673 * t20013;
12455   t20015 = 0.9e1 / 0.4e1 * t20014;
12456   t20016 = t2662 * t15752;
12457   t20017 = 0.9e1 / 0.8e1 * t20016;
12458   t20018 = t154 * t10431;
12459   t20019 = t2673 * t20018;
12460   t20020 = 0.9e1 / 0.4e1 * t20019;
12461   t20021 = t3446 * t1690;
12462   t20022 = t2673 * t20021;
12463   t20023 = 0.3e1 / 0.4e1 * t20022;
12464   t20024 = t1680 * t20007;
12465   t20025 = t2673 * t20024;
12466   t20026 = 0.3e1 * t20025;
12467   t20027 = t2676 * t20007;
12468   t20028 = t2673 * t20027;
12469   t20029 = 0.9e1 / 0.4e1 * t20028;
12470   t20030 = t15681 * t3748;
12471   t20031 = 0.9e1 / 0.8e1 * t20030;
12472   t20032 = -t20010 + t20012 - t20015 + t20017 + t20020 - t20023 + t20026 - t20029 - t20031 - t619 - t19721 - t19823 + t19826 + t19829;
12473   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12474     v4sigma3lapl[19] = t19950 + t19987 + t20006 + t20032;
12475 
12476   t20034 = t3380 * t8573;
12477   t20040 = t172 * t3345;
12478   t20052 = t3375 * t3565;
12479   t20053 = t20052 / 0.4e1;
12480   t20059 = -t3359 + t3365 + t3391 - t3395 + 0.11e2 / 0.4e1 * t404 * t20034 - 0.15e2 / 0.8e1 * t404 * t14583 * t8577 + 0.11e2 / 0.4e1 * t141 * t20040 * t6289 - 0.25e2 / 0.4e1 * t141 * t20040 * t6294 + 0.15e2 / 0.4e1 * t141 * t8587 * t19878 - t19644 * t660 / 0.8e1 - t20053 + 0.3e1 / 0.2e1 * t141 * t173 * t19853 + 0.5e1 / 0.8e1 * t3375 * t3571;
12481   t20071 = t3350 * t8569;
12482   t20078 = t551 * t14566;
12483   t20091 = -0.11e2 / 0.4e1 * t141 * t20040 * t6312 + 0.3e1 / 0.2e1 * t141 * t20040 * t6355 - t141 * t20040 * t6308 / 0.4e1 + 0.9e1 / 0.2e1 * t141 * t20034 - 0.7e1 / 0.8e1 * t404 * t20071 - 0.5e1 / 0.8e1 * t3375 * t3578 + 0.5e1 / 0.8e1 * t3375 * t3583 + 0.11e2 / 0.4e1 * t141 * t20078 + 0.9e1 / 0.4e1 * t404 * t20078 - 0.9e1 / 0.4e1 * t404 * t3380 * t8569 - 0.6e1 * t141 * t20071 - 0.11e2 / 0.8e1 * t404 * t3350 * t8701 - t19895;
12484   t20093 = t2747 * t19906;
12485   t20094 = 0.9e1 / 0.4e1 * t20093;
12486   t20095 = t2747 * t19909;
12487   t20096 = 0.3e1 / 0.4e1 * t20095;
12488   t20097 = t2562 * t15967;
12489   t20098 = 0.9e1 / 0.8e1 * t20097;
12490   t20099 = t2747 * t19918;
12491   t20100 = 0.9e1 / 0.4e1 * t20099;
12492   t20101 = t19896 - t19897 + t19898 + t19899 - t19900 - t19901 + t19902 - t19903 - t19904 + t20094 - t20096 - t20098 - t20100;
12493   t20102 = t2562 * t15946;
12494   t20103 = 0.9e1 / 0.8e1 * t20102;
12495   t20104 = t2747 * t19913;
12496   t20105 = 0.3e1 / 0.2e1 * t20104;
12497   t20106 = t2562 * t15954;
12498   t20107 = 0.9e1 / 0.8e1 * t20106;
12499   t20108 = t2747 * t19926;
12500   t20109 = 0.3e1 * t20108;
12501   t20110 = t2747 * t19929;
12502   t20111 = 0.9e1 / 0.4e1 * t20110;
12503   t20112 = t20103 - t20105 + t20107 + t20109 - t20111 - t599 + t19662 - t19666 - t19669 + t19672 - t3556 + t3559 + t3562 - t3567;
12504   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12505     v4sigma3tau[0] = t20059 + t20091 + t20101 + t20112;
12506 
12507   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12508     v4sigma3tau[1] = 0.0e0;
12509 
12510   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12511     v4sigma3tau[2] = 0.0e0;
12512 
12513   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12514     v4sigma3tau[3] = 0.0e0;
12515 
12516   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12517     v4sigma3tau[4] = 0.0e0;
12518 
12519   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12520     v4sigma3tau[5] = 0.0e0;
12521 
12522   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12523     v4sigma3tau[6] = 0.0e0;
12524 
12525   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12526     v4sigma3tau[7] = 0.0e0;
12527 
12528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12529     v4sigma3tau[8] = 0.0e0;
12530 
12531   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12532     v4sigma3tau[9] = 0.0e0;
12533 
12534   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12535     v4sigma3tau[10] = 0.0e0;
12536 
12537   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12538     v4sigma3tau[11] = 0.0e0;
12539 
12540   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12541     v4sigma3tau[12] = 0.0e0;
12542 
12543   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12544     v4sigma3tau[13] = 0.0e0;
12545 
12546   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12547     v4sigma3tau[14] = 0.0e0;
12548 
12549   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12550     v4sigma3tau[15] = 0.0e0;
12551 
12552   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12553     v4sigma3tau[16] = 0.0e0;
12554 
12555   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12556     v4sigma3tau[17] = 0.0e0;
12557 
12558   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12559     v4sigma3tau[18] = 0.0e0;
12560 
12561   t20114 = t5972 * t177;
12562   t20115 = t3404 * t20114;
12563   t20118 = t3404 * t9273;
12564   t20122 = t3434 * t5988 * t177;
12565   t20128 = t177 * t3399;
12566   t20142 = -t3413 + t3419 + t3440 - t3449 + 0.9e1 / 0.4e1 * t446 * t20115 - 0.7e1 / 0.8e1 * t446 * t20118 + 0.11e2 / 0.4e1 * t446 * t20122 - 0.15e2 / 0.8e1 * t446 * t14943 * t9366 + 0.11e2 / 0.4e1 * t150 * t20128 * t7167 - 0.25e2 / 0.4e1 * t150 * t20128 * t7143 + 0.15e2 / 0.4e1 * t150 * t9268 * t19981 - 0.6e1 * t150 * t20118 + 0.9e1 / 0.2e1 * t150 * t20122;
12567   t20171 = t3429 * t3599;
12568   t20172 = t20171 / 0.4e1;
12569   t20173 = -0.5e1 / 0.8e1 * t3429 * t3609 + 0.5e1 / 0.8e1 * t3429 * t3624 - 0.11e2 / 0.4e1 * t150 * t20128 * t7288 + 0.3e1 / 0.2e1 * t150 * t20128 * t7304 - t150 * t20128 * t7233 / 0.4e1 + 0.11e2 / 0.4e1 * t150 * t20115 + 0.3e1 / 0.2e1 * t150 * t178 * t19962 + 0.5e1 / 0.8e1 * t3429 * t3615 - 0.11e2 / 0.8e1 * t446 * t3404 * t9352 - 0.9e1 / 0.4e1 * t446 * t3434 * t9273 - t19811 * t673 / 0.8e1 - t20172 - t19996;
12570   t20175 = t2841 * t20013;
12571   t20176 = 0.9e1 / 0.4e1 * t20175;
12572   t20177 = t15681 * t3761;
12573   t20178 = 0.9e1 / 0.8e1 * t20177;
12574   t20179 = t2841 * t20018;
12575   t20180 = 0.9e1 / 0.4e1 * t20179;
12576   t20181 = t2841 * t20021;
12577   t20182 = 0.3e1 / 0.4e1 * t20181;
12578   t20183 = t19997 - t19998 - t19999 - t20000 + t20001 + t20002 - t20003 - t20004 + t20005 - t20176 - t20178 + t20180 - t20182;
12579   t20184 = t15681 * t3764;
12580   t20185 = 0.9e1 / 0.8e1 * t20184;
12581   t20186 = t2841 * t20024;
12582   t20187 = 0.3e1 * t20186;
12583   t20188 = t2841 * t20027;
12584   t20189 = 0.9e1 / 0.4e1 * t20188;
12585   t20190 = t2841 * t20008;
12586   t20191 = 0.3e1 / 0.2e1 * t20190;
12587   t20192 = t2662 * t16230;
12588   t20193 = 0.9e1 / 0.8e1 * t20192;
12589   t20194 = t20185 + t20187 - t20189 - t20191 + t20193 - t619 - t19721 - t19823 + t19826 + t19829 + t3596 - t3601 - t3605 + t3608;
12590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12591     v4sigma3tau[19] = t20142 + t20173 + t20183 + t20194;
12592 
12593   t20196 = t4339 * t590;
12594   t20200 = t687 * t9653;
12595   t20203 = t2871 * t20196;
12596   t20206 = t686 * t590;
12597   t20217 = t3651 - t3652 - t3653 + t3654 - t3470 + t3471 + t3501 - t3502 + 0.11e2 / 0.4e1 * t141 * t687 * t20196 - 0.6e1 * t141 * t20200 + 0.9e1 / 0.2e1 * t141 * t20203 + 0.3e1 / 0.2e1 * t141 * t20206 * t6355 - 0.5e1 / 0.8e1 * t3375 * t3639 + 0.5e1 / 0.8e1 * t3375 * t3663 - t141 * t20206 * t6308 / 0.4e1;
12598   t20218 = t4369 * t590;
12599   t20222 = t4381 * t590;
12600   t20233 = t4320 * t590;
12601   t20234 = t687 * t20233;
12602   t20237 = t4307 * t590;
12603   t20241 = t687 * t19533;
12604   t20242 = t404 * t20241;
12605   t20243 = 0.3e1 / 0.8e1 * t20242;
12606   t20245 = t404 * t2871 * t9567;
12607   t20246 = 0.3e1 / 0.8e1 * t20245;
12608   t20248 = t141 * t687 * t9567;
12609   t20251 = t141 * t686 * t595 * t1416;
12610   t20252 = t20251 / 0.4e1;
12611   t20254 = t141 * t2871 * t19543;
12612   t20255 = 0.3e1 / 0.4e1 * t20254;
12613   t20256 = t4369 * t686;
12614   t20261 = t141 * t691 * t9725;
12615   t20262 = 0.3e1 / 0.4e1 * t20261;
12616   t20265 = t141 * t20241;
12617   t20266 = 0.3e1 / 0.4e1 * t20265;
12618   t20267 = -0.25e2 / 0.4e1 * t141 * t2871 * t20218 + 0.15e2 / 0.4e1 * t141 * t12219 * t20222 - 0.7e1 / 0.8e1 * t404 * t20200 + 0.11e2 / 0.4e1 * t404 * t20203 - 0.11e2 / 0.4e1 * t141 * t691 * t9628 + 0.11e2 / 0.4e1 * t141 * t20234 + 0.3e1 / 0.2e1 * t141 * t691 * t20237 - t20243 + t20246 + t20248 - t20252 - t20255 - 0.15e2 / 0.8e1 * t404 * t9545 * t20256 + t20262 + 0.9e1 / 0.4e1 * t404 * t20234 - t20266;
12619   t20269 = t4329 * t686;
12620   t20274 = t141 * t691 * t19554;
12621   t20275 = t20274 / 0.2e1;
12622   t20282 = t404 * t687 * t9725;
12623   t20283 = 0.3e1 / 0.8e1 * t20282;
12624   t20285 = t19528 / 0.4e1;
12625   t20286 = 0.3e1 / 0.8e1 * t19531;
12626   t20287 = 0.3e1 / 0.8e1 * t19535;
12627   t20288 = 0.3e1 / 0.8e1 * t19538;
12628   t20289 = 0.3e1 / 0.4e1 * t19545;
12629   t20290 = t19547 / 0.8e1;
12630   t20291 = 0.3e1 / 0.4e1 * t19550;
12631   t20292 = 0.3e1 / 0.4e1 * t19552;
12632   t20293 = -0.9e1 / 0.4e1 * t404 * t2304 * t20269 - t20275 - 0.11e2 / 0.8e1 * t404 * t591 * t12258 + 0.5e1 / 0.8e1 * t3375 * t3646 + t20283 - t19867 / 0.2e1 - t20285 + t20286 - t20287 + t20288 + t19541 - t20289 - t20290 + t20291 - t20292;
12633   t20294 = t19556 / 0.2e1;
12634   t20305 = -t20294 + 0.3e1 * t19907 - t19910 - 0.2e1 * t19914 + 0.3e1 / 0.2e1 * t19916 - 0.3e1 * t19919 - 0.3e1 / 0.2e1 * t19921 + 0.3e1 / 0.2e1 * t19924 + 0.4e1 * t19927 - 0.3e1 * t19930 - t599 - t19644 * t688 / 0.8e1 + t19662 - t19666 - t19669 + t19672;
12635   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12636     v4sigma2lapl2[0] = t20217 + t20267 + t20293 + t20305;
12637 
12638   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12639     v4sigma2lapl2[1] = 0.0e0;
12640 
12641   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12642     v4sigma2lapl2[2] = 0.0e0;
12643 
12644   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12645     v4sigma2lapl2[3] = 0.0e0;
12646 
12647   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12648     v4sigma2lapl2[4] = 0.0e0;
12649 
12650   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12651     v4sigma2lapl2[5] = 0.0e0;
12652 
12653   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12654     v4sigma2lapl2[6] = 0.0e0;
12655 
12656   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12657     v4sigma2lapl2[7] = 0.0e0;
12658 
12659   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12660     v4sigma2lapl2[8] = 0.0e0;
12661 
12662   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12663     v4sigma2lapl2[9] = 0.0e0;
12664 
12665   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12666     v4sigma2lapl2[10] = 0.0e0;
12667 
12668   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12669     v4sigma2lapl2[11] = 0.0e0;
12670 
12671   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12672     v4sigma2lapl2[12] = 0.0e0;
12673 
12674   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12675     v4sigma2lapl2[13] = 0.0e0;
12676 
12677   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12678     v4sigma2lapl2[14] = 0.0e0;
12679 
12680   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12681     v4sigma2lapl2[15] = 0.0e0;
12682 
12683   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12684     v4sigma2lapl2[16] = 0.0e0;
12685 
12686   t20307 = t702 * t10383;
12687   t20310 = t5988 * t610;
12688   t20311 = t2980 * t20310;
12689   t20314 = t6058 * t610;
12690   t20324 = t6070 * t610;
12691   t20330 = t3689 + t3690 - t3691 - t3692 - t3520 + t3521 + t3551 - t3552 - 0.7e1 / 0.8e1 * t446 * t20307 + 0.11e2 / 0.4e1 * t446 * t20311 - 0.15e2 / 0.8e1 * t446 * t12726 * t20314 + 0.11e2 / 0.4e1 * t150 * t702 * t20310 - 0.25e2 / 0.4e1 * t150 * t2980 * t20314 + 0.15e2 / 0.4e1 * t150 * t12726 * t20324 + 0.9e1 / 0.2e1 * t150 * t20311;
12692   t20331 = t5972 * t610;
12693   t20332 = t702 * t20331;
12694   t20337 = t701 * t610;
12695   t20348 = t5977 * t610;
12696   t20354 = t150 * t701 * t615 * t1690;
12697   t20355 = t20354 / 0.4e1;
12698   t20356 = t702 * t19687;
12699   t20357 = t446 * t20356;
12700   t20358 = 0.3e1 / 0.8e1 * t20357;
12701   t20360 = t446 * t2980 * t10261;
12702   t20361 = 0.3e1 / 0.8e1 * t20360;
12703   t20363 = t150 * t702 * t10261;
12704   t20364 = t1307 * t615;
12705   t20366 = t150 * t2980 * t20364;
12706   t20367 = 0.3e1 / 0.4e1 * t20366;
12707   t20369 = t150 * t706 * t10431;
12708   t20370 = 0.3e1 / 0.4e1 * t20369;
12709   t20371 = t150 * t20356;
12710   t20372 = 0.3e1 / 0.4e1 * t20371;
12711   t20373 = t6000 * t701;
12712   t20378 = t150 * t706 * t19691;
12713   t20379 = t20378 / 0.2e1;
12714   t20380 = 0.9e1 / 0.4e1 * t446 * t20332 - 0.6e1 * t150 * t20307 - 0.11e2 / 0.4e1 * t150 * t20337 * t7288 + 0.3e1 / 0.2e1 * t150 * t20337 * t7304 - 0.5e1 / 0.8e1 * t3429 * t3674 + 0.11e2 / 0.4e1 * t150 * t20332 + 0.3e1 / 0.2e1 * t150 * t706 * t20348 - t20355 - t20358 + t20361 + t20363 - t20367 + t20370 - t20372 - 0.9e1 / 0.4e1 * t446 * t2437 * t20373 - t20379;
12715   t20388 = t446 * t702 * t10431;
12716   t20389 = 0.3e1 / 0.8e1 * t20388;
12717   t20396 = t19682 / 0.4e1;
12718   t20397 = 0.3e1 / 0.8e1 * t19685;
12719   t20398 = 0.3e1 / 0.4e1 * t19689;
12720   t20399 = t19693 / 0.2e1;
12721   t20400 = t19695 / 0.8e1;
12722   t20401 = 0.3e1 / 0.4e1 * t19698;
12723   t20402 = 0.3e1 / 0.4e1 * t19705;
12724   t20403 = 0.3e1 / 0.8e1 * t19707;
12725   t20404 = -0.11e2 / 0.8e1 * t446 * t611 * t12786 + 0.5e1 / 0.8e1 * t3429 * t3681 + t20389 + 0.5e1 / 0.8e1 * t3429 * t3697 - t150 * t20337 * t7233 / 0.4e1 - t19960 / 0.2e1 - t20396 + t20397 - t20398 - t20399 - t20400 + t20401 + t19702 - t20402 - t20403;
12726   t20405 = 0.3e1 / 0.8e1 * t19710;
12727   t20416 = t20405 - 0.2e1 * t20009 + 0.3e1 / 0.2e1 * t20011 - 0.3e1 * t20014 + 0.3e1 / 0.2e1 * t20016 + 0.3e1 * t20019 - t20022 + 0.4e1 * t20025 - 0.3e1 * t20028 - 0.3e1 / 0.2e1 * t20030 - t619 - t19811 * t703 / 0.8e1 - t19721 - t19823 + t19826 + t19829;
12728   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12729     v4sigma2lapl2[17] = t20330 + t20380 + t20404 + t20416;
12730 
12731   t20420 = t3456 - t3461 - t3465 + t3469 - t3470 + t3471 + t3501 - t3502 - t19644 * t716 / 0.8e1 - t20053 - t19868 - t20285 + t20286 - t20287 + t20288 + t19541 - t20289 - t20290 + t20291;
12732   t20432 = t2747 * t2583 * t15365;
12733   t20437 = t3057 * t15967;
12734   t20440 = t2747 * t161 * t9725;
12735   t20443 = t2747 * t1502 * t15365;
12736   t20445 = t3057 * t15954;
12737   t20458 = t10540 * t590;
12738   t20468 = -t20292 - t20294 + 0.3e1 / 0.2e1 * t2747 * t3475 * t6355 - t2747 * t3475 * t6308 / 0.4e1 - 0.5e1 / 0.8e1 * t16823 * t3732 + 0.5e1 / 0.8e1 * t16823 * t3735 - 0.3e1 / 0.4e1 * t20432 - 0.15e2 / 0.8e1 * t15275 * t10566 * t13145 - 0.3e1 / 0.8e1 * t20437 + 0.3e1 / 0.4e1 * t20440 - 0.3e1 / 0.4e1 * t20443 + 0.3e1 / 0.8e1 * t20445 + 0.5e1 / 0.8e1 * t16823 * t3716 + 0.9e1 / 0.4e1 * t3057 * t1502 * t15995 - 0.9e1 / 0.4e1 * t3057 * t2577 * t15995 - 0.6e1 * t2747 * t493 * t9653 + 0.9e1 / 0.2e1 * t2747 * t2583 * t20458 - 0.25e2 / 0.4e1 * t2747 * t6293 * t20458 + 0.15e2 / 0.4e1 * t2747 * t10513 * t20458;
12739   t20479 = t3057 * t15946;
12740   t20482 = t2747 * t493 * t9567;
12741   t20484 = t2747 * t3462 * t1416;
12742   t20487 = t2747 * t848 * t15365;
12743   t20500 = 0.3e1 / 0.2e1 * t20093;
12744   t20501 = t20095 / 0.2e1;
12745   t20502 = 0.3e1 / 0.4e1 * t20097;
12746   t20503 = 0.3e1 / 0.2e1 * t20099;
12747   t20504 = 0.3e1 / 0.4e1 * t20102;
12748   t20505 = 0.3e1 / 0.4e1 * t20106;
12749   t20506 = 0.2e1 * t20108;
12750   t20507 = -0.7e1 / 0.8e1 * t3057 * t1491 * t15995 + 0.11e2 / 0.4e1 * t3057 * t2583 * t15995 + 0.11e2 / 0.4e1 * t2747 * t493 * t20196 + 0.3e1 / 0.8e1 * t20479 + t20482 - t20484 / 0.4e1 - t20487 / 0.2e1 - 0.11e2 / 0.8e1 * t3057 * t15996 - 0.11e2 / 0.4e1 * t2747 * t161 * t9628 + 0.11e2 / 0.4e1 * t2747 * t1502 * t20458 + 0.3e1 / 0.2e1 * t2747 * t848 * t20458 + t20500 - t20501 - t20502 - t20503 + t20504 - t20104 + t20505 + t20506;
12751   t20508 = 0.3e1 / 0.2e1 * t20110;
12752   t20509 = 0.3e1 / 0.2e1 * t19907;
12753   t20510 = t19910 / 0.2e1;
12754   t20511 = 0.3e1 / 0.4e1 * t19916;
12755   t20512 = 0.3e1 / 0.2e1 * t19919;
12756   t20513 = 0.3e1 / 0.4e1 * t19921;
12757   t20514 = 0.3e1 / 0.4e1 * t19924;
12758   t20515 = 0.2e1 * t19927;
12759   t20516 = 0.3e1 / 0.2e1 * t19930;
12760   t20517 = -t20508 + t20509 - t20510 - t19914 + t20511 - t20512 - t20513 + t20514 + t20515 - t20516 - t599 + t19662 - t19666 - t19669 + t19672 - t3556 + t3559 + t3562 - t3567;
12761   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12762     v4sigma2lapltau[0] = t20420 + t20468 + t20507 + t20517;
12763 
12764   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12765     v4sigma2lapltau[1] = 0.0e0;
12766 
12767   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12768     v4sigma2lapltau[2] = 0.0e0;
12769 
12770   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12771     v4sigma2lapltau[3] = 0.0e0;
12772 
12773   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12774     v4sigma2lapltau[4] = 0.0e0;
12775 
12776   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12777     v4sigma2lapltau[5] = 0.0e0;
12778 
12779   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12780     v4sigma2lapltau[6] = 0.0e0;
12781 
12782   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12783     v4sigma2lapltau[7] = 0.0e0;
12784 
12785   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12786     v4sigma2lapltau[8] = 0.0e0;
12787 
12788   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12789     v4sigma2lapltau[9] = 0.0e0;
12790 
12791   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12792     v4sigma2lapltau[10] = 0.0e0;
12793 
12794   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12795     v4sigma2lapltau[11] = 0.0e0;
12796 
12797   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12798     v4sigma2lapltau[12] = 0.0e0;
12799 
12800   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12801     v4sigma2lapltau[13] = 0.0e0;
12802 
12803   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12804     v4sigma2lapltau[14] = 0.0e0;
12805 
12806   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12807     v4sigma2lapltau[15] = 0.0e0;
12808 
12809   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12810     v4sigma2lapltau[16] = 0.0e0;
12811 
12812   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12813     v4sigma2lapltau[17] = 0.0e0;
12814 
12815   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12816     v4sigma2lapltau[18] = 0.0e0;
12817 
12818   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12819     v4sigma2lapltau[19] = 0.0e0;
12820 
12821   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12822     v4sigma2lapltau[20] = 0.0e0;
12823 
12824   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12825     v4sigma2lapltau[21] = 0.0e0;
12826 
12827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12828     v4sigma2lapltau[22] = 0.0e0;
12829 
12830   t20533 = t2841 * t525 * t10261;
12831   t20535 = t2841 * t2676 * t15751;
12832   t20538 = t2841 * t168 * t10431;
12833   t20541 = t3156 * t1618 * t16229;
12834   t20544 = t2841 * t1618 * t15751;
12835   t20548 = t3506 + t3510 - t3515 - t3519 - t3520 + t3521 + t3551 - t3552 - t2841 * t3529 * t7233 / 0.4e1 - 0.5e1 / 0.8e1 * t17175 * t3761 + 0.5e1 / 0.8e1 * t17175 * t3764 - 0.11e2 / 0.4e1 * t2841 * t620 * t8317 + 0.3e1 / 0.2e1 * t2841 * t3529 * t7304 + t20533 - 0.3e1 / 0.4e1 * t20535 + 0.3e1 / 0.4e1 * t20538 - 0.3e1 / 0.8e1 * t20541 - 0.3e1 / 0.4e1 * t20544 - 0.9e1 / 0.4e1 * t15647 * t13736;
12836   t20550 = t2841 * t1159 * t15751;
12837   t20554 = t3156 * t16230;
12838   t20566 = -t20550 / 0.2e1 - 0.11e2 / 0.8e1 * t15647 * t13719 + 0.3e1 / 0.8e1 * t20554 + 0.5e1 / 0.8e1 * t17175 * t3755 - t19811 * t731 / 0.8e1 - t20172 - t19961 - t20396 + t20397 - t20398 - t20399 - t20400 + t20401 + t19702 - t20402 - t20403 + t20405 + 0.11e2 / 0.4e1 * t2841 * t1618 * t15743 + 0.3e1 / 0.2e1 * t2841 * t1159 * t15743;
12839   t20596 = t2841 * t3516 * t1690;
12840   t20599 = t3156 * t2668 * t16229;
12841   t20601 = 0.3e1 / 0.2e1 * t20175;
12842   t20602 = 0.3e1 / 0.4e1 * t20177;
12843   t20603 = 0.3e1 / 0.2e1 * t20179;
12844   t20604 = t20181 / 0.2e1;
12845   t20605 = 0.3e1 / 0.4e1 * t20184;
12846   t20606 = 0.2e1 * t20186;
12847   t20607 = 0.3e1 / 0.2e1 * t20188;
12848   t20608 = -0.6e1 * t2841 * t1680 * t15743 + 0.9e1 / 0.2e1 * t2841 * t2676 * t15743 + 0.9e1 / 0.4e1 * t3156 * t1618 * t16225 - 0.7e1 / 0.8e1 * t3156 * t1680 * t16225 + 0.11e2 / 0.4e1 * t3156 * t2676 * t16225 - 0.15e2 / 0.8e1 * t3156 * t11151 * t16225 + 0.11e2 / 0.4e1 * t2841 * t525 * t20310 - 0.25e2 / 0.4e1 * t2841 * t1970 * t20314 + 0.15e2 / 0.4e1 * t2841 * t11161 * t15743 - t20596 / 0.4e1 + 0.3e1 / 0.8e1 * t20599 - t20601 - t20602 + t20603 - t20604 + t20605 + t20606 - t20607 - t20190;
12849   t20609 = 0.3e1 / 0.4e1 * t20192;
12850   t20610 = 0.3e1 / 0.4e1 * t20011;
12851   t20611 = 0.3e1 / 0.2e1 * t20014;
12852   t20612 = 0.3e1 / 0.4e1 * t20016;
12853   t20613 = 0.3e1 / 0.2e1 * t20019;
12854   t20614 = t20022 / 0.2e1;
12855   t20615 = 0.2e1 * t20025;
12856   t20616 = 0.3e1 / 0.2e1 * t20028;
12857   t20617 = 0.3e1 / 0.4e1 * t20030;
12858   t20618 = t20609 - t20009 + t20610 - t20611 + t20612 + t20613 - t20614 + t20615 - t20616 - t20617 - t619 - t19721 - t19823 + t19826 + t19829 + t3596 - t3601 - t3605 + t3608;
12859   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12860     v4sigma2lapltau[23] = t20548 + t20566 + t20608 + t20618;
12861 
12862   t20620 = t3194 * t20196;
12863   t20635 = t747 * t9653;
12864   t20641 = t141 * t751 * t19554;
12865   t20642 = t20641 / 0.2e1;
12866   t20649 = t404 * t747 * t9725;
12867   t20650 = 0.3e1 / 0.8e1 * t20649;
12868   t20651 = -t3470 + t3471 + t3501 - t3502 + 0.11e2 / 0.4e1 * t404 * t20620 - 0.15e2 / 0.8e1 * t404 * t13819 * t20218 + 0.11e2 / 0.4e1 * t141 * t747 * t20196 - 0.25e2 / 0.4e1 * t141 * t3194 * t20218 + 0.15e2 / 0.4e1 * t141 * t13819 * t20222 - 0.6e1 * t141 * t20635 + 0.9e1 / 0.2e1 * t141 * t20620 - t20642 - 0.11e2 / 0.8e1 * t404 * t591 * t13870 + 0.5e1 / 0.8e1 * t3375 * t3785 + t20650;
12869   t20654 = t747 * t20233;
12870   t20667 = t746 * t590;
12871   t20675 = t141 * t747 * t9567;
12872   t20677 = t141 * t3194 * t19543;
12873   t20678 = 0.3e1 / 0.4e1 * t20677;
12874   t20681 = t141 * t746 * t595 * t1416;
12875   t20682 = t20681 / 0.4e1;
12876   t20683 = t747 * t19533;
12877   t20684 = t404 * t20683;
12878   t20685 = 0.3e1 / 0.8e1 * t20684;
12879   t20687 = t404 * t3194 * t9567;
12880   t20688 = 0.3e1 / 0.8e1 * t20687;
12881   t20690 = t141 * t751 * t9725;
12882   t20691 = 0.3e1 / 0.4e1 * t20690;
12883   t20694 = t141 * t20683;
12884   t20695 = 0.3e1 / 0.4e1 * t20694;
12885   t20696 = -0.7e1 / 0.8e1 * t404 * t20635 + 0.11e2 / 0.4e1 * t141 * t20654 + 0.3e1 / 0.2e1 * t141 * t751 * t20237 - 0.11e2 / 0.4e1 * t141 * t751 * t9628 - 0.5e1 / 0.8e1 * t3375 * t3779 + 0.5e1 / 0.8e1 * t3375 * t3796 - t141 * t20667 * t6308 / 0.4e1 + 0.3e1 / 0.2e1 * t141 * t20667 * t6355 + t20675 - t20678 - t20682 - t20685 + t20688 + t20691 + 0.9e1 / 0.4e1 * t404 * t20654 - t20695;
12886   t20698 = t4329 * t746;
12887   t20705 = -0.9e1 / 0.4e1 * t404 * t2304 * t20698 - t20052 / 0.2e1 - t20285 + t20286 - t20287 + t20288 + t19541 - t20289 - t20290 + t20291 - t20292 - t20294 + 0.3e1 * t20093 - t20095 - 0.3e1 / 0.2e1 * t20097;
12888   t20714 = -0.3e1 * t20099 + 0.3e1 / 0.2e1 * t20102 - 0.2e1 * t20104 + 0.3e1 / 0.2e1 * t20106 + 0.4e1 * t20108 - 0.3e1 * t20110 - t599 - t19644 * t748 / 0.8e1 + t19662 - t19666 - t19669 + t19672 - t3790 + t3791 + t3792 - t3793;
12889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12890     v4sigma2tau2[0] = t20651 + t20696 + t20705 + t20714;
12891 
12892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12893     v4sigma2tau2[1] = 0.0e0;
12894 
12895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12896     v4sigma2tau2[2] = 0.0e0;
12897 
12898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12899     v4sigma2tau2[3] = 0.0e0;
12900 
12901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12902     v4sigma2tau2[4] = 0.0e0;
12903 
12904   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12905     v4sigma2tau2[5] = 0.0e0;
12906 
12907   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12908     v4sigma2tau2[6] = 0.0e0;
12909 
12910   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12911     v4sigma2tau2[7] = 0.0e0;
12912 
12913   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12914     v4sigma2tau2[8] = 0.0e0;
12915 
12916   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12917     v4sigma2tau2[9] = 0.0e0;
12918 
12919   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12920     v4sigma2tau2[10] = 0.0e0;
12921 
12922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12923     v4sigma2tau2[11] = 0.0e0;
12924 
12925   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12926     v4sigma2tau2[12] = 0.0e0;
12927 
12928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12929     v4sigma2tau2[13] = 0.0e0;
12930 
12931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12932     v4sigma2tau2[14] = 0.0e0;
12933 
12934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12935     v4sigma2tau2[15] = 0.0e0;
12936 
12937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12938     v4sigma2tau2[16] = 0.0e0;
12939 
12940   t20716 = t3288 * t20310;
12941   t20719 = t762 * t20331;
12942   t20724 = t150 * t761 * t615 * t1690;
12943   t20725 = t20724 / 0.4e1;
12944   t20727 = t150 * t762 * t10261;
12945   t20729 = t150 * t3288 * t20364;
12946   t20730 = 0.3e1 / 0.4e1 * t20729;
12947   t20731 = t762 * t19687;
12948   t20732 = t446 * t20731;
12949   t20733 = 0.3e1 / 0.8e1 * t20732;
12950   t20735 = t446 * t3288 * t10261;
12951   t20736 = 0.3e1 / 0.8e1 * t20735;
12952   t20737 = t150 * t20731;
12953   t20738 = 0.3e1 / 0.4e1 * t20737;
12954   t20739 = t6000 * t761;
12955   t20744 = t150 * t766 * t19691;
12956   t20745 = t20744 / 0.2e1;
12957   t20749 = -t3520 + t3521 + t3551 - t3552 + 0.9e1 / 0.2e1 * t150 * t20716 + 0.9e1 / 0.4e1 * t446 * t20719 - t20725 + t20727 - t20730 - t20733 + t20736 - t20738 - 0.9e1 / 0.4e1 * t446 * t2437 * t20739 - t20745 - 0.11e2 / 0.8e1 * t446 * t611 * t14388;
12958   t20753 = t446 * t762 * t10431;
12959   t20754 = 0.3e1 / 0.8e1 * t20753;
12960   t20756 = t150 * t766 * t10431;
12961   t20757 = 0.3e1 / 0.4e1 * t20756;
12962   t20772 = t762 * t10383;
12963   t20782 = t761 * t610;
12964   t20793 = 0.5e1 / 0.8e1 * t3429 * t3814 + t20754 + t20757 + 0.11e2 / 0.4e1 * t446 * t20716 - 0.15e2 / 0.8e1 * t446 * t14419 * t20314 + 0.11e2 / 0.4e1 * t150 * t762 * t20310 - 0.25e2 / 0.4e1 * t150 * t3288 * t20314 + 0.15e2 / 0.4e1 * t150 * t14419 * t20324 - 0.7e1 / 0.8e1 * t446 * t20772 - 0.6e1 * t150 * t20772 + 0.11e2 / 0.4e1 * t150 * t20719 + 0.3e1 / 0.2e1 * t150 * t766 * t20348 - 0.11e2 / 0.4e1 * t150 * t20782 * t7288 + 0.3e1 / 0.2e1 * t150 * t20782 * t7304 - 0.5e1 / 0.8e1 * t3429 * t3808 + 0.5e1 / 0.8e1 * t3429 * t3826;
12965   t20802 = -t150 * t20782 * t7233 / 0.4e1 - t20171 / 0.2e1 - t20396 + t20397 - t20398 - t20399 - t20400 + t20401 + t19702 - t20402 - t20403 + t20405 - 0.3e1 * t20175 - 0.3e1 / 0.2e1 * t20177 + 0.3e1 * t20179;
12966   t20810 = -t20181 + 0.3e1 / 0.2e1 * t20184 + 0.4e1 * t20186 - 0.3e1 * t20188 - 0.2e1 * t20190 + 0.3e1 / 0.2e1 * t20192 - t619 - t19811 * t763 / 0.8e1 - t19721 - t19823 + t19826 + t19829 + t3820 - t3821 - t3822 + t3823;
12967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
12968     v4sigma2tau2[17] = t20749 + t20793 + t20802 + t20810;
12969 
12970   t20812 = t3840 * t144;
12971   t20822 = t4381 * t144;
12972   t20826 = t3845 * t6363;
12973   t20829 = t4339 * t144;
12974   t20830 = t3873 * t20829;
12975   t20833 = t3867 - t3868 - t3869 + t3870 - t3655 + t3656 + t3668 - t3673 - t141 * t20812 * t6308 / 0.4e1 + 0.3e1 / 0.2e1 * t141 * t20812 * t6355 - 0.25e2 / 0.4e1 * t141 * t3873 * t6284 + 0.15e2 / 0.4e1 * t141 * t17700 * t20822 - 0.6e1 * t141 * t20826 + 0.9e1 / 0.2e1 * t141 * t20830;
12976   t20853 = t4307 * t144;
12977   t20860 = t3864 * t3459;
12978   t20865 = t423 * t17732;
12979   t20870 = -t3864 * t3639 / 0.4e1 + t3864 * t3663 / 0.4e1 - 0.7e1 / 0.8e1 * t404 * t20826 + 0.11e2 / 0.4e1 * t404 * t20830 - 0.15e2 / 0.8e1 * t404 * t17700 * t6284 + 0.11e2 / 0.4e1 * t141 * t3845 * t20829 + t3864 * t3646 / 0.4e1 - 0.9e1 / 0.4e1 * t404 * t1495 * t17744 + 0.3e1 / 0.2e1 * t141 * t3841 * t20853 - 0.11e2 / 0.8e1 * t404 * t423 * t17798 - t20860 / 0.4e1 - 0.11e2 / 0.4e1 * t141 * t3841 * t6394 + 0.9e1 / 0.4e1 * t404 * t20865 + 0.11e2 / 0.4e1 * t141 * t20865;
12980   t20872 = 0.9e1 / 0.8e1 * t20242;
12981   t20873 = 0.9e1 / 0.8e1 * t20245;
12982   t20874 = 0.3e1 * t20248;
12983   t20875 = 0.3e1 / 0.4e1 * t20251;
12984   t20876 = 0.9e1 / 0.4e1 * t20254;
12985   t20877 = 0.9e1 / 0.4e1 * t20261;
12986   t20878 = 0.9e1 / 0.4e1 * t20265;
12987   t20879 = 0.3e1 / 0.2e1 * t20274;
12988   t20880 = 0.9e1 / 0.8e1 * t20282;
12989   t20882 = -t20872 + t20873 + t20874 - t20875 - t20876 + t20877 - t20878 - t20879 + t20880 - 0.3e1 / 0.8e1 * t19867 + t19908 - t19911 - t19915 + t19917;
12990   t20886 = t218 * t144 * t222;
12991   t20898 = t4230 * t144;
12992   t20901 = t145 * t228;
12993   t20904 = t1502 * t1518;
12994   t20907 = t848 * t1518;
12995   t20919 = t20886 * t479 / 0.4e1 + t19604 + t3855 * t144 * t419 / 0.2e1 - t17865 * t637 / 0.2e1 - t17868 * t641 / 0.2e1 - t17871 * t14768 / 0.2e1 + t20898 * t17874 / 0.2e1 + t19620 + t3857 * t20901 / 0.2e1 - t3857 * t20904 / 0.2e1 - t3857 * t20907 / 0.2e1 - t19628 * t160 * t849 / 0.2e1 - t19634 - t3859 * t20901 / 0.2e1 + t3859 * t20904 / 0.2e1 + t3859 * t20907 / 0.2e1;
12996   t20921 = t139 * t9 * t20919;
12997   t20928 = -t19920 - t19922 + t19925 + t19928 - t19931 - t599 + 0.3e1 / 0.8e1 * t3375 * t3852 - t20921 * t688 / 0.8e1 - 0.3e1 / 0.8e1 * t3375 * t3846 + 0.3e1 / 0.8e1 * t3375 * t3874 + t19662 - t19666 - t19669 + t19672;
12998   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
12999     v4sigmalapl3[0] = t20833 + t20870 + t20882 + t20928;
13000 
13001   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13002     v4sigmalapl3[1] = 0.0e0;
13003 
13004   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13005     v4sigmalapl3[2] = 0.0e0;
13006 
13007   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13008     v4sigmalapl3[3] = 0.0e0;
13009 
13010   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13011     v4sigmalapl3[4] = 0.0e0;
13012 
13013   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13014     v4sigmalapl3[5] = 0.0e0;
13015 
13016   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13017     v4sigmalapl3[6] = 0.0e0;
13018 
13019   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13020     v4sigmalapl3[7] = 0.0e0;
13021 
13022   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13023     v4sigmalapl3[8] = 0.0e0;
13024 
13025   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13026     v4sigmalapl3[9] = 0.0e0;
13027 
13028   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13029     v4sigmalapl3[10] = 0.0e0;
13030 
13031   t20930 = t6070 * t153;
13032   t20934 = t3890 * t7152;
13033   t20937 = t3916 * t7157;
13034   t20948 = t3912 + t3913 - t3914 - t3915 - t3693 + t3694 + t3706 - t3711 + 0.15e2 / 0.4e1 * t150 * t18023 * t20930 - 0.7e1 / 0.8e1 * t446 * t20934 + 0.11e2 / 0.4e1 * t446 * t20937 + 0.11e2 / 0.4e1 * t150 * t3890 * t7157 - 0.6e1 * t150 * t20934 - 0.15e2 / 0.8e1 * t446 * t7147 * t18067;
13035   t20949 = t5977 * t153;
13036   t20956 = t3909 * t3513;
13037   t20963 = t465 * t18106;
13038   t20980 = t3885 * t153;
13039   t20987 = 0.3e1 / 0.2e1 * t150 * t3886 * t20949 - 0.11e2 / 0.8e1 * t446 * t465 * t18080 - t20956 / 0.4e1 + t3909 * t3681 / 0.4e1 - 0.11e2 / 0.4e1 * t150 * t3886 * t7284 + 0.9e1 / 0.4e1 * t446 * t20963 + 0.11e2 / 0.4e1 * t150 * t20963 - 0.9e1 / 0.4e1 * t446 * t1684 * t18119 + 0.9e1 / 0.2e1 * t150 * t20937 - t3909 * t3674 / 0.4e1 + t3909 * t3697 / 0.4e1 - 0.25e2 / 0.4e1 * t150 * t3916 * t7162 + 0.3e1 / 0.2e1 * t150 * t20980 * t7304 - t150 * t20980 * t7233 / 0.4e1;
13040   t20989 = 0.3e1 / 0.4e1 * t20354;
13041   t20990 = 0.9e1 / 0.8e1 * t20357;
13042   t20991 = 0.9e1 / 0.8e1 * t20360;
13043   t20992 = 0.3e1 * t20363;
13044   t20993 = 0.9e1 / 0.4e1 * t20366;
13045   t20994 = 0.9e1 / 0.4e1 * t20369;
13046   t20995 = 0.9e1 / 0.4e1 * t20371;
13047   t20996 = 0.3e1 / 0.2e1 * t20378;
13048   t20997 = 0.9e1 / 0.8e1 * t20388;
13049   t20999 = -t20989 - t20990 + t20991 + t20992 - t20993 + t20994 - t20995 - t20996 + t20997 - 0.3e1 / 0.8e1 * t19960 - t20010 + t20012 - t20015 + t20017;
13050   t21005 = t351 * t153 * t355;
13051   t21017 = t5917 * t153;
13052   t21020 = t154 * t361;
13053   t21023 = t1618 * t1599;
13054   t21026 = t1159 * t1599;
13055   t21038 = t21005 * t511 / 0.4e1 + t19771 + t3900 * t153 * t461 / 0.2e1 - t18163 * t652 / 0.2e1 - t18166 * t656 / 0.2e1 - t18169 * t15140 / 0.2e1 + t21017 * t18172 / 0.2e1 + t19787 + t3902 * t21020 / 0.2e1 - t3902 * t21023 / 0.2e1 - t3902 * t21026 / 0.2e1 - t19795 * t167 * t1316 / 0.2e1 - t19801 - t3904 * t21020 / 0.2e1 + t3904 * t21023 / 0.2e1 + t3904 * t21026 / 0.2e1;
13056   t21040 = t139 * t37 * t21038;
13057   t21045 = t20020 - t20023 + t20026 - t20029 - t20031 - t619 + 0.3e1 / 0.8e1 * t3429 * t3922 + 0.3e1 / 0.8e1 * t3429 * t3897 - t21040 * t703 / 0.8e1 - 0.3e1 / 0.8e1 * t3429 * t3891 - t19721 - t19823 + t19826 + t19829;
13058   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13059     v4sigmalapl3[11] = t20948 + t20987 + t20999 + t21045;
13060 
13061   t21055 = t3864 * t3565;
13062   t21057 = t20860 / 0.8e1;
13063   t21076 = t3651 - t3652 - t3653 + t3654 - t3655 + t3656 + t3668 - t3673 - 0.3e1 / 0.8e1 * t3375 * t3940 + 0.3e1 / 0.8e1 * t3375 * t3949 + 0.3e1 / 0.8e1 * t3375 * t3932 - t20921 * t716 / 0.8e1 - t21055 / 0.8e1 - t21057 + 0.11e2 / 0.4e1 * t2747 * t687 * t20829 - 0.25e2 / 0.4e1 * t2747 * t2871 * t6284 + 0.15e2 / 0.4e1 * t2747 * t10513 * t16381 + 0.9e1 / 0.4e1 * t16372 * t1502 * t11604 - 0.9e1 / 0.4e1 * t16372 * t2577 * t11604 - 0.6e1 * t2747 * t687 * t6363;
13064   t21111 = -t18222 * t3732 / 0.4e1 + t18222 * t3735 / 0.4e1 - 0.11e2 / 0.8e1 * t16372 * t11605 + t18222 * t3716 / 0.4e1 + 0.3e1 / 0.2e1 * t2747 * t3669 * t6355 - t2747 * t3669 * t6308 / 0.4e1 + 0.9e1 / 0.2e1 * t2747 * t2583 * t16381 - 0.7e1 / 0.8e1 * t16372 * t1491 * t11604 + 0.11e2 / 0.4e1 * t16372 * t2583 * t11604 - 0.15e2 / 0.8e1 * t16372 * t10566 * t11604 - 0.11e2 / 0.4e1 * t2747 * t691 * t6394 + 0.11e2 / 0.4e1 * t2747 * t16382 + 0.3e1 / 0.2e1 * t2747 * t848 * t16381 - t20243 + t20246 + t20248 - t20252 - t20255 + t20262 - t20266;
13065   t21114 = 0.3e1 / 0.2e1 * t20432;
13066   t21115 = 0.3e1 / 0.4e1 * t20437;
13067   t21116 = 0.3e1 / 0.2e1 * t20440;
13068   t21117 = 0.3e1 / 0.2e1 * t20443;
13069   t21118 = 0.3e1 / 0.4e1 * t20445;
13070   t21119 = 0.3e1 / 0.4e1 * t20479;
13071   t21120 = 0.2e1 * t20482;
13072   t21121 = t20484 / 0.2e1;
13073   t21129 = -t20275 + t20283 - t20052 / 0.8e1 - t19868 - t21114 - t21115 + t21116 - t21117 + t21118 + t21119 + t21120 - t21121 - t20487 + 0.3e1 / 0.4e1 * t20093 - t20095 / 0.4e1 - 0.3e1 / 0.8e1 * t20097 - 0.3e1 / 0.4e1 * t20099 + 0.3e1 / 0.8e1 * t20102 - t20104 / 0.2e1 + 0.3e1 / 0.8e1 * t20106;
13074   t21131 = t20108 - 0.3e1 / 0.4e1 * t20110 + t20509 - t20510 - t19914 + t20511 - t20512 - t20513 + t20514 + t20515 - t20516 - t599 + t19662 - t19666 - t19669 + t19672 - t3556 + t3559 + t3562 - t3567;
13075   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13076     v4sigmalapl2tau[0] = t21076 + t21111 + t21129 + t21131;
13077 
13078   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13079     v4sigmalapl2tau[1] = 0.0e0;
13080 
13081   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13082     v4sigmalapl2tau[2] = 0.0e0;
13083 
13084   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13085     v4sigmalapl2tau[3] = 0.0e0;
13086 
13087   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13088     v4sigmalapl2tau[4] = 0.0e0;
13089 
13090   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13091     v4sigmalapl2tau[5] = 0.0e0;
13092 
13093   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13094     v4sigmalapl2tau[6] = 0.0e0;
13095 
13096   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13097     v4sigmalapl2tau[7] = 0.0e0;
13098 
13099   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13100     v4sigmalapl2tau[8] = 0.0e0;
13101 
13102   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13103     v4sigmalapl2tau[9] = 0.0e0;
13104 
13105   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13106     v4sigmalapl2tau[10] = 0.0e0;
13107 
13108   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13109     v4sigmalapl2tau[11] = 0.0e0;
13110 
13111   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13112     v4sigmalapl2tau[12] = 0.0e0;
13113 
13114   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13115     v4sigmalapl2tau[13] = 0.0e0;
13116 
13117   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13118     v4sigmalapl2tau[14] = 0.0e0;
13119 
13120   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13121     v4sigmalapl2tau[15] = 0.0e0;
13122 
13123   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13124     v4sigmalapl2tau[16] = 0.0e0;
13125 
13126   t21141 = t3909 * t3599;
13127   t21143 = t20956 / 0.8e1;
13128   t21162 = t3689 + t3690 - t3691 - t3692 - t3693 + t3694 + t3706 - t3711 - 0.3e1 / 0.8e1 * t3429 * t3971 + 0.3e1 / 0.8e1 * t3429 * t3984 + 0.3e1 / 0.8e1 * t3429 * t3963 - t21040 * t731 / 0.8e1 - t21141 / 0.8e1 - t21143 + 0.3e1 / 0.2e1 * t2841 * t3707 * t7304 - t2841 * t3707 * t7233 / 0.4e1 + 0.11e2 / 0.4e1 * t2841 * t702 * t7157 + 0.9e1 / 0.4e1 * t16661 * t1618 * t11953 - 0.9e1 / 0.4e1 * t16661 * t2668 * t11953 - 0.6e1 * t2841 * t702 * t7152;
13129   t21197 = 0.2e1 * t20533;
13130   t21198 = 0.3e1 / 0.2e1 * t20535;
13131   t21199 = 0.3e1 / 0.2e1 * t20538;
13132   t21200 = 0.3e1 / 0.4e1 * t20541;
13133   t21201 = 0.3e1 / 0.2e1 * t20544;
13134   t21202 = 0.3e1 / 0.4e1 * t20554;
13135   t21203 = 0.9e1 / 0.2e1 * t2841 * t2676 * t16705 - 0.25e2 / 0.4e1 * t2841 * t7142 * t16705 + 0.15e2 / 0.4e1 * t2841 * t11161 * t16705 - 0.7e1 / 0.8e1 * t16661 * t1680 * t11953 + 0.11e2 / 0.4e1 * t16661 * t2676 * t11953 - t18509 * t3761 / 0.4e1 + t18509 * t3764 / 0.4e1 + 0.3e1 / 0.2e1 * t2841 * t1159 * t16705 - 0.15e2 / 0.8e1 * t2662 * t18532 - 0.11e2 / 0.8e1 * t16661 * t11954 - 0.11e2 / 0.4e1 * t2841 * t706 * t7284 + 0.11e2 / 0.4e1 * t2841 * t1618 * t16705 + t18509 * t3755 / 0.4e1 + t21197 - t21198 + t21199 - t21200 - t21201 - t20550 + t21202;
13136   t21206 = t20596 / 0.2e1;
13137   t21207 = 0.3e1 / 0.4e1 * t20599;
13138   t21214 = -t20355 - t20358 + t20361 + t20363 - t20367 + t20370 - t20372 - t20379 + t20389 - t20171 / 0.8e1 - t19961 - t21206 + t21207 - 0.3e1 / 0.4e1 * t20175 - 0.3e1 / 0.8e1 * t20177 + 0.3e1 / 0.4e1 * t20179 - t20181 / 0.4e1 + 0.3e1 / 0.8e1 * t20184 + t20186 - 0.3e1 / 0.4e1 * t20188;
13139   t21217 = -t20190 / 0.2e1 + 0.3e1 / 0.8e1 * t20192 - t20009 + t20610 - t20611 + t20612 + t20613 - t20614 + t20615 - t20616 - t20617 - t619 - t19721 - t19823 + t19826 + t19829 + t3596 - t3601 - t3605 + t3608;
13140   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13141     v4sigmalapl2tau[17] = t21162 + t21203 + t21214 + t21217;
13142 
13143   t21231 = t21055 / 0.4e1;
13144   t21238 = t1491 * t10666;
13145   t21241 = t2583 * t10666;
13146   t21244 = t3456 - t3461 - t3465 + t3469 - t3655 + t3656 + t3668 - t3673 - 0.3e1 / 0.8e1 * t3375 * t3993 + 0.3e1 / 0.8e1 * t3375 * t4010 + t3864 * t3785 / 0.4e1 + 0.3e1 / 0.8e1 * t3375 * t4000 - t3864 * t3779 / 0.4e1 + t3864 * t3796 / 0.4e1 - t21231 + 0.11e2 / 0.4e1 * t17341 * t6288 * t10666 - 0.25e2 / 0.4e1 * t17341 * t6293 * t10666 - 0.6e1 * t17341 * t21238 + 0.9e1 / 0.2e1 * t17341 * t21241;
13147   t21245 = t1502 * t10666;
13148   t21276 = 0.9e1 / 0.4e1 * t17347 * t21245 + 0.3e1 / 0.2e1 * t17341 * t145 * t18684 - t17341 * t633 * t6308 / 0.4e1 + 0.15e2 / 0.4e1 * t17341 * t10513 * t10666 - 0.7e1 / 0.8e1 * t17347 * t21238 + 0.11e2 / 0.4e1 * t17347 * t21241 - 0.15e2 / 0.8e1 * t17347 * t10566 * t10666 + 0.11e2 / 0.4e1 * t17341 * t21245 - 0.9e1 / 0.4e1 * t2562 * t18651 + 0.3e1 / 0.2e1 * t17341 * t848 * t10666 - 0.11e2 / 0.8e1 * t2562 * t18630 - 0.11e2 / 0.4e1 * t17341 * t145 * t7640 - t20642 + t20650 + t20675 - t20678 - t20682 - t20685 + t20688 + t20691;
13149   t21279 = -t20695 - t20053 - t19867 / 0.8e1 - t21114 - t21115 + t21116 - t21117 + t21118 + t21119 + t21120 - t21121 - t20487 + t20500 - t20501 - t20502 - t20503 + t20504 - t20104 + t20505 + t20506;
13150   t21290 = -t20508 + 0.3e1 / 0.4e1 * t19907 - t19910 / 0.4e1 - t19914 / 0.2e1 + 0.3e1 / 0.8e1 * t19916 - 0.3e1 / 0.4e1 * t19919 - 0.3e1 / 0.8e1 * t19921 + 0.3e1 / 0.8e1 * t19924 + t19927 - 0.3e1 / 0.4e1 * t19930 - t599 - t20921 * t748 / 0.8e1 + t19662 - t19666 - t19669 + t19672 - t3790 + t3791 + t3792 - t3793;
13151   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13152     v4sigmalapltau2[0] = t21244 + t21276 + t21279 + t21290;
13153 
13154   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13155     v4sigmalapltau2[1] = 0.0e0;
13156 
13157   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13158     v4sigmalapltau2[2] = 0.0e0;
13159 
13160   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13161     v4sigmalapltau2[3] = 0.0e0;
13162 
13163   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13164     v4sigmalapltau2[4] = 0.0e0;
13165 
13166   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13167     v4sigmalapltau2[5] = 0.0e0;
13168 
13169   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13170     v4sigmalapltau2[6] = 0.0e0;
13171 
13172   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13173     v4sigmalapltau2[7] = 0.0e0;
13174 
13175   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13176     v4sigmalapltau2[8] = 0.0e0;
13177 
13178   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13179     v4sigmalapltau2[9] = 0.0e0;
13180 
13181   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13182     v4sigmalapltau2[10] = 0.0e0;
13183 
13184   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13185     v4sigmalapltau2[11] = 0.0e0;
13186 
13187   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13188     v4sigmalapltau2[12] = 0.0e0;
13189 
13190   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13191     v4sigmalapltau2[13] = 0.0e0;
13192 
13193   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13194     v4sigmalapltau2[14] = 0.0e0;
13195 
13196   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13197     v4sigmalapltau2[15] = 0.0e0;
13198 
13199   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13200     v4sigmalapltau2[16] = 0.0e0;
13201 
13202   t21292 = t1680 * t11258;
13203   t21295 = t2676 * t11258;
13204   t21298 = t1618 * t11258;
13205   t21321 = t3506 + t3510 - t3515 - t3519 - t3693 + t3694 + t3706 - t3711 - 0.6e1 * t17535 * t21292 + 0.9e1 / 0.2e1 * t17535 * t21295 + 0.9e1 / 0.4e1 * t17543 * t21298 + 0.11e2 / 0.4e1 * t17535 * t21298 - 0.9e1 / 0.4e1 * t2662 * t18871 + 0.3e1 / 0.2e1 * t17535 * t1159 * t11258 - 0.11e2 / 0.8e1 * t2662 * t18891 - t17535 * t648 * t7233 / 0.4e1 - 0.11e2 / 0.4e1 * t17535 * t154 * t8317 + 0.3e1 / 0.2e1 * t17535 * t154 * t18927 + 0.11e2 / 0.4e1 * t17543 * t21295;
13206   t21348 = t21141 / 0.4e1;
13207   t21349 = -0.15e2 / 0.8e1 * t17543 * t11151 * t11258 + 0.11e2 / 0.4e1 * t17535 * t7166 * t11258 - 0.25e2 / 0.4e1 * t17535 * t7142 * t11258 + 0.15e2 / 0.4e1 * t17535 * t11161 * t11258 - 0.7e1 / 0.8e1 * t17543 * t21292 - t3909 * t3808 / 0.4e1 + t3909 * t3826 / 0.4e1 - 0.3e1 / 0.8e1 * t3429 * t4023 + 0.3e1 / 0.8e1 * t3429 * t4040 + t3909 * t3814 / 0.4e1 + 0.3e1 / 0.8e1 * t3429 * t4030 - t21348 - t20725 + t20727 - t20730 - t20733 + t20736 - t20738 - t20745 + t20754;
13208   t21352 = t20757 + t21197 - t21198 + t21199 - t21200 - t21201 - t20550 + t21202 - t20172 - t19960 / 0.8e1 - t21206 + t21207 - t20601 - t20602 + t20603 - t20604 + t20605 + t20606 - t20607 - t20190;
13209   t21363 = t20609 - t20009 / 0.2e1 + 0.3e1 / 0.8e1 * t20011 - 0.3e1 / 0.4e1 * t20014 + 0.3e1 / 0.8e1 * t20016 + 0.3e1 / 0.4e1 * t20019 - t20022 / 0.4e1 + t20025 - 0.3e1 / 0.4e1 * t20028 - 0.3e1 / 0.8e1 * t20030 - t619 - t21040 * t763 / 0.8e1 - t19721 - t19823 + t19826 + t19829 + t3820 - t3821 - t3822 + t3823;
13210   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13211     v4sigmalapltau2[17] = t21321 + t21349 + t21352 + t21363;
13212 
13213   t21365 = t4053 * t144;
13214   t21375 = t4058 * t6363;
13215   t21386 = t4077 * t3565;
13216   t21387 = t21386 / 0.4e1;
13217   t21391 = t423 * t19020;
13218   t21394 = -t3655 + t3656 + t3668 - t3673 + 0.3e1 / 0.2e1 * t141 * t21365 * t6355 - t141 * t21365 * t6308 / 0.4e1 + 0.15e2 / 0.4e1 * t141 * t19069 * t20822 - 0.6e1 * t141 * t21375 + t4077 * t3785 / 0.4e1 + 0.3e1 / 0.2e1 * t141 * t4054 * t20853 - 0.11e2 / 0.8e1 * t404 * t423 * t19007 - t21387 - 0.11e2 / 0.4e1 * t141 * t4054 * t6394 + 0.9e1 / 0.4e1 * t404 * t21391;
13219   t21400 = t4086 * t20829;
13220   t21420 = 0.3e1 / 0.2e1 * t20641;
13221   t21421 = 0.9e1 / 0.8e1 * t20649;
13222   t21422 = 0.3e1 * t20675;
13223   t21423 = 0.9e1 / 0.4e1 * t20677;
13224   t21424 = 0.11e2 / 0.4e1 * t141 * t21391 - 0.9e1 / 0.4e1 * t404 * t1495 * t19053 + 0.9e1 / 0.2e1 * t141 * t21400 - t4077 * t3779 / 0.4e1 + t4077 * t3796 / 0.4e1 - 0.7e1 / 0.8e1 * t404 * t21375 + 0.11e2 / 0.4e1 * t404 * t21400 - 0.15e2 / 0.8e1 * t404 * t19069 * t6284 + 0.11e2 / 0.4e1 * t141 * t4058 * t20829 - 0.25e2 / 0.4e1 * t141 * t4086 * t6284 - t21420 + t21421 + t21422 - t21423;
13225   t21426 = 0.3e1 / 0.4e1 * t20681;
13226   t21427 = 0.9e1 / 0.8e1 * t20684;
13227   t21428 = 0.9e1 / 0.8e1 * t20687;
13228   t21429 = 0.9e1 / 0.4e1 * t20690;
13229   t21430 = 0.9e1 / 0.4e1 * t20694;
13230   t21432 = -t21426 - t21427 + t21428 + t21429 - t21430 - 0.3e1 / 0.8e1 * t20052 + t20094 - t20096 - t20098 - t20100 + t20103 - t20105 + t20107 + t20109;
13231   t21465 = t20886 * t537 / 0.4e1 + t19604 + t4068 * t144 * t419 / 0.2e1 - t19167 * t637 / 0.2e1 - t19170 * t641 / 0.2e1 - t19173 * t14768 / 0.2e1 + t20898 * t19176 / 0.2e1 + t19620 + t4070 * t20901 / 0.2e1 - t4070 * t20904 / 0.2e1 - t4070 * t20907 / 0.2e1 - t19628 * t172 * t849 / 0.2e1 - t19634 - t4072 * t20901 / 0.2e1 + t4072 * t20904 / 0.2e1 + t4072 * t20907 / 0.2e1;
13232   t21472 = -t20111 - t599 + 0.3e1 / 0.8e1 * t3375 * t4087 + 0.3e1 / 0.8e1 * t3375 * t4065 - t139 * t9 * t21465 * t748 / 0.8e1 - 0.3e1 / 0.8e1 * t3375 * t4059 + t19662 - t19666 - t19669 + t19672 - t4080 + t4081 + t4082 - t4083;
13233   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13234     v4sigmatau3[0] = t21394 + t21424 + t21432 + t21472;
13235 
13236   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13237     v4sigmatau3[1] = 0.0e0;
13238 
13239   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13240     v4sigmatau3[2] = 0.0e0;
13241 
13242   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13243     v4sigmatau3[3] = 0.0e0;
13244 
13245   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13246     v4sigmatau3[4] = 0.0e0;
13247 
13248   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13249     v4sigmatau3[5] = 0.0e0;
13250 
13251   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13252     v4sigmatau3[6] = 0.0e0;
13253 
13254   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13255     v4sigmatau3[7] = 0.0e0;
13256 
13257   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13258     v4sigmatau3[8] = 0.0e0;
13259 
13260   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13261     v4sigmatau3[9] = 0.0e0;
13262 
13263   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13264     v4sigmatau3[10] = 0.0e0;
13265 
13266   t21474 = t4098 * t153;
13267   t21493 = t4131 * t7157;
13268   t21500 = t4103 * t7152;
13269   t21503 = -t3693 + t3694 + t3706 - t3711 + 0.3e1 / 0.2e1 * t150 * t21474 * t7304 - t150 * t21474 * t7233 / 0.4e1 - 0.15e2 / 0.8e1 * t446 * t19327 * t7162 + 0.11e2 / 0.4e1 * t150 * t4103 * t7157 - 0.25e2 / 0.4e1 * t150 * t4131 * t7162 + 0.15e2 / 0.4e1 * t150 * t19327 * t20930 + 0.9e1 / 0.2e1 * t150 * t21493 - t4126 * t3808 / 0.4e1 + t4126 * t3826 / 0.4e1 - 0.7e1 / 0.8e1 * t446 * t21500;
13270   t21506 = t4126 * t3599;
13271   t21507 = t21506 / 0.4e1;
13272   t21519 = t465 * t19376;
13273   t21529 = 0.3e1 / 0.4e1 * t20724;
13274   t21530 = 0.3e1 * t20727;
13275   t21531 = 0.9e1 / 0.4e1 * t20729;
13276   t21532 = 0.9e1 / 0.8e1 * t20732;
13277   t21533 = 0.11e2 / 0.4e1 * t446 * t21493 - t21507 + t4126 * t3814 / 0.4e1 + 0.3e1 / 0.2e1 * t150 * t4099 * t20949 - 0.11e2 / 0.8e1 * t446 * t465 * t19401 - 0.11e2 / 0.4e1 * t150 * t4099 * t7284 + 0.9e1 / 0.4e1 * t446 * t21519 + 0.11e2 / 0.4e1 * t150 * t21519 - 0.9e1 / 0.4e1 * t446 * t1684 * t19387 - 0.6e1 * t150 * t21500 - t21529 + t21530 - t21531 - t21532;
13278   t21535 = 0.9e1 / 0.8e1 * t20735;
13279   t21536 = 0.9e1 / 0.4e1 * t20737;
13280   t21537 = 0.3e1 / 0.2e1 * t20744;
13281   t21538 = 0.9e1 / 0.8e1 * t20753;
13282   t21539 = 0.9e1 / 0.4e1 * t20756;
13283   t21541 = t21535 - t21536 - t21537 + t21538 + t21539 - 0.3e1 / 0.8e1 * t20171 - t20176 - t20178 + t20180 - t20182 + t20185 + t20187 - t20189 - t20191;
13284   t21572 = t21005 * t569 / 0.4e1 + t19771 + t4117 * t153 * t461 / 0.2e1 - t19477 * t652 / 0.2e1 - t19480 * t656 / 0.2e1 - t19483 * t15140 / 0.2e1 + t21017 * t19486 / 0.2e1 + t19787 + t4119 * t21020 / 0.2e1 - t4119 * t21023 / 0.2e1 - t4119 * t21026 / 0.2e1 - t19795 * t177 * t1316 / 0.2e1 - t19801 - t4121 * t21020 / 0.2e1 + t4121 * t21023 / 0.2e1 + t4121 * t21026 / 0.2e1;
13285   t21581 = t20193 - t619 + 0.3e1 / 0.8e1 * t3429 * t4110 - t139 * t37 * t21572 * t763 / 0.8e1 - 0.3e1 / 0.8e1 * t3429 * t4104 + 0.3e1 / 0.8e1 * t3429 * t4132 - t19721 - t19823 + t19826 + t19829 + t4113 - t4114 - t4115 + t4116;
13286   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13287     v4sigmatau3[11] = t21503 + t21533 + t21541 + t21581;
13288 
13289   t21594 = t686 * t686;
13290   t21595 = t21594 * t28;
13291   t21602 = t21594 * t222;
13292   t21606 = t21594 * t877;
13293   t21610 = t3455 - t3460 / 0.2e1 - t3464 + t3468 - 0.5e1 / 0.8e1 * t20860 - 0.9e1 / 0.4e1 * t20242 + 0.9e1 / 0.4e1 * t20245 + 0.6e1 * t20248 - 0.3e1 / 0.2e1 * t20251 - 0.9e1 / 0.2e1 * t20254 + 0.9e1 / 0.2e1 * t20261 - 0.9e1 / 0.2e1 * t20265 - 0.3e1 * t20274 + 0.9e1 / 0.4e1 * t20282 - t599 + 0.3e1 / 0.2e1 * t141 * t21595 * t4320 - t141 * t21595 * t4329 / 0.4e1 + 0.11e2 / 0.4e1 * t141 * t21602 * t4339 - 0.25e2 / 0.4e1 * t141 * t21606 * t4369;
13294   t21611 = t21594 * t4365;
13295   t21615 = t21602 * t4329;
13296   t21618 = t21606 * t4339;
13297   t21635 = t21602 * t4320;
13298   t21654 = t75 * t686;
13299   t21667 = t853 * t686;
13300   t21674 = t216 * t3862;
13301   t21678 = t856 * t686;
13302   t21685 = t218 * t686 * t4209 / 0.4e1 + t19604 + t21654 * t419 / 0.2e1 - t21654 * t4218 / 0.2e1 - t21654 * t4221 / 0.2e1 - t4226 * t686 * t4209 / 0.2e1 + t4230 * t686 * t4209 / 0.2e1 + t19620 + t21667 * t419 / 0.2e1 - t21667 * t4218 / 0.2e1 - t21667 * t4221 / 0.2e1 - t21674 * t160 * t849 / 0.2e1 - t19634 - t21678 * t419 / 0.2e1 + t21678 * t4218 / 0.2e1 + t21678 * t4221 / 0.2e1;
13303   t21687 = t139 * t9 * t21685;
13304   t21690 = 0.15e2 / 0.4e1 * t141 * t21611 * t4381 - 0.6e1 * t141 * t21615 + 0.9e1 / 0.2e1 * t141 * t21618 - 0.5e1 / 0.8e1 * t3864 * t3846 + 0.5e1 / 0.8e1 * t3864 * t3874 - 0.7e1 / 0.8e1 * t404 * t21615 + 0.11e2 / 0.4e1 * t404 * t21618 - 0.15e2 / 0.8e1 * t404 * t21611 * t4369 - 0.11e2 / 0.4e1 * t141 * t21595 * t4286 + 0.11e2 / 0.4e1 * t141 * t21635 + 0.3e1 / 0.2e1 * t141 * t21595 * t4307 + 0.9e1 / 0.4e1 * t404 * t21635 - 0.9e1 / 0.4e1 * t404 * t21606 * t4329 - 0.11e2 / 0.8e1 * t404 * t21602 * t4286 + 0.5e1 / 0.8e1 * t3864 * t3852 - t21687 * t688 / 0.8e1 + t19662 - t19666 - t19669 + t19672;
13305   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13306     v4lapl4[0] = t21610 + t21690;
13307 
13308   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13309     v4lapl4[1] = 0.0e0;
13310 
13311   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13312     v4lapl4[2] = 0.0e0;
13313 
13314   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13315     v4lapl4[3] = 0.0e0;
13316 
13317   t21706 = t701 * t701;
13318   t21707 = t21706 * t1295;
13319   t21711 = t21706 * t6054;
13320   t21715 = t3505 + t3509 - t3514 / 0.2e1 - t3518 - 0.5e1 / 0.8e1 * t20956 - 0.3e1 / 0.2e1 * t20354 - 0.9e1 / 0.4e1 * t20357 + 0.9e1 / 0.4e1 * t20360 + 0.6e1 * t20363 - 0.9e1 / 0.2e1 * t20366 + 0.9e1 / 0.2e1 * t20369 - 0.9e1 / 0.2e1 * t20371 - 0.3e1 * t20378 + 0.9e1 / 0.4e1 * t20388 - t619 - 0.5e1 / 0.8e1 * t3909 * t3891 + 0.5e1 / 0.8e1 * t3909 * t3922 - 0.25e2 / 0.4e1 * t150 * t21707 * t6058 + 0.15e2 / 0.4e1 * t150 * t21711 * t6070;
13321   t21716 = t21706 * t355;
13322   t21717 = t21716 * t6000;
13323   t21720 = t21707 * t5988;
13324   t21730 = t21706 * t53;
13325   t21734 = t21716 * t5972;
13326   t21753 = t115 * t701;
13327   t21766 = t1320 * t701;
13328   t21773 = t349 * t3907;
13329   t21777 = t1323 * t701;
13330   t21784 = t351 * t701 * t5896 / 0.4e1 + t19771 + t21753 * t461 / 0.2e1 - t21753 * t5905 / 0.2e1 - t21753 * t5908 / 0.2e1 - t5913 * t701 * t5896 / 0.2e1 + t5917 * t701 * t5896 / 0.2e1 + t19787 + t21766 * t461 / 0.2e1 - t21766 * t5905 / 0.2e1 - t21766 * t5908 / 0.2e1 - t21773 * t167 * t1316 / 0.2e1 - t19801 - t21777 * t461 / 0.2e1 + t21777 * t5905 / 0.2e1 + t21777 * t5908 / 0.2e1;
13331   t21786 = t139 * t37 * t21784;
13332   t21798 = -0.7e1 / 0.8e1 * t446 * t21717 + 0.11e2 / 0.4e1 * t446 * t21720 + 0.11e2 / 0.4e1 * t150 * t21716 * t5988 - 0.6e1 * t150 * t21717 + 0.9e1 / 0.2e1 * t150 * t21720 - 0.11e2 / 0.4e1 * t150 * t21730 * t5889 + 0.11e2 / 0.4e1 * t150 * t21734 + 0.3e1 / 0.2e1 * t150 * t21730 * t5977 + 0.9e1 / 0.4e1 * t446 * t21734 - 0.9e1 / 0.4e1 * t446 * t21707 * t6000 - 0.11e2 / 0.8e1 * t446 * t21716 * t5889 + 0.5e1 / 0.8e1 * t3909 * t3897 - t21786 * t703 / 0.8e1 - 0.15e2 / 0.8e1 * t446 * t21711 * t6058 + 0.3e1 / 0.2e1 * t150 * t21730 * t5972 - t150 * t21730 * t6000 / 0.4e1 - t19721 - t19823 + t19826 + t19829;
13333   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13334     v4lapl4[4] = t21715 + t21798;
13335 
13336   t21802 = t172 * t3840;
13337   t21823 = t551 * t17732;
13338   t21826 = t3867 - t3868 - t3869 + t3870 - 0.15e2 / 0.8e1 * t404 * t17700 * t8577 + 0.11e2 / 0.4e1 * t141 * t21802 * t6289 - 0.25e2 / 0.4e1 * t141 * t21802 * t6294 - 0.5e1 / 0.8e1 * t3864 * t3940 + 0.5e1 / 0.8e1 * t3864 * t3949 + 0.3e1 / 0.2e1 * t141 * t173 * t4307 * t3840 - 0.11e2 / 0.8e1 * t404 * t3845 * t8701 - 0.11e2 / 0.4e1 * t141 * t21802 * t6312 + 0.11e2 / 0.4e1 * t141 * t21823;
13339   t21846 = t21802 * t6262;
13340   t21850 = t2024 * t4339 * t3840;
13341   t21858 = 0.5e1 / 0.8e1 * t3864 * t3932 + 0.3e1 / 0.2e1 * t141 * t21802 * t6355 - t141 * t21802 * t6308 / 0.4e1 - t21687 * t716 / 0.8e1 + 0.15e2 / 0.4e1 * t141 * t8587 * t4381 * t3840 + 0.9e1 / 0.4e1 * t404 * t21823 - 0.9e1 / 0.4e1 * t404 * t3873 * t8569 - 0.6e1 * t141 * t21846 + 0.9e1 / 0.2e1 * t141 * t21850 - 0.7e1 / 0.8e1 * t404 * t21846 + 0.11e2 / 0.4e1 * t404 * t21850 - t21231 - 0.3e1 / 0.8e1 * t20860;
13342   t21860 = 0.9e1 / 0.4e1 * t20432;
13343   t21861 = 0.9e1 / 0.8e1 * t20437;
13344   t21862 = 0.9e1 / 0.4e1 * t20440;
13345   t21863 = 0.9e1 / 0.4e1 * t20443;
13346   t21864 = -t20872 + t20873 + t20874 - t20875 - t20876 + t20877 - t20878 - t20879 + t20880 - t21860 - t21861 + t21862 - t21863;
13347   t21865 = 0.9e1 / 0.8e1 * t20445;
13348   t21866 = 0.9e1 / 0.8e1 * t20479;
13349   t21867 = 0.3e1 * t20482;
13350   t21868 = 0.3e1 / 0.4e1 * t20484;
13351   t21869 = 0.3e1 / 0.2e1 * t20487;
13352   t21870 = t21865 + t21866 + t21867 - t21868 - t21869 - t599 + t19662 - t19666 - t19669 + t19672 - t3556 + t3559 + t3562 - t3567;
13353   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13354     v4lapl3tau[0] = t21826 + t21858 + t21864 + t21870;
13355 
13356   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13357     v4lapl3tau[1] = 0.0e0;
13358 
13359   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13360     v4lapl3tau[2] = 0.0e0;
13361 
13362   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13363     v4lapl3tau[3] = 0.0e0;
13364 
13365   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13366     v4lapl3tau[4] = 0.0e0;
13367 
13368   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13369     v4lapl3tau[5] = 0.0e0;
13370 
13371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13372     v4lapl3tau[6] = 0.0e0;
13373 
13374   t21877 = t177 * t3885;
13375   t21889 = t3890 * t20114;
13376   t21895 = t21877 * t17151;
13377   t21898 = t3912 + t3913 - t3914 - t3915 - 0.11e2 / 0.8e1 * t446 * t3890 * t9352 + 0.5e1 / 0.8e1 * t3909 * t3963 + 0.3e1 / 0.2e1 * t150 * t21877 * t7304 - t150 * t21877 * t7233 / 0.4e1 - 0.15e2 / 0.8e1 * t446 * t18023 * t9366 - t21786 * t731 / 0.8e1 + 0.9e1 / 0.4e1 * t446 * t21889 - 0.9e1 / 0.4e1 * t446 * t3916 * t9273 - 0.6e1 * t150 * t21895;
13378   t21900 = t2215 * t5988 * t3885;
13379   t21931 = 0.9e1 / 0.2e1 * t150 * t21900 - 0.25e2 / 0.4e1 * t150 * t2215 * t18067 + 0.15e2 / 0.4e1 * t150 * t9268 * t6070 * t3885 - 0.7e1 / 0.8e1 * t446 * t21895 + 0.11e2 / 0.4e1 * t446 * t21900 + 0.11e2 / 0.4e1 * t150 * t21877 * t7167 - 0.5e1 / 0.8e1 * t3909 * t3971 + 0.5e1 / 0.8e1 * t3909 * t3984 - 0.11e2 / 0.4e1 * t150 * t21877 * t7288 + 0.11e2 / 0.4e1 * t150 * t21889 + 0.3e1 / 0.2e1 * t150 * t178 * t5977 * t3885 - t21348 - 0.3e1 / 0.8e1 * t20956;
13380   t21933 = 0.3e1 * t20533;
13381   t21934 = 0.9e1 / 0.4e1 * t20535;
13382   t21935 = 0.9e1 / 0.4e1 * t20538;
13383   t21936 = 0.9e1 / 0.8e1 * t20541;
13384   t21937 = 0.9e1 / 0.4e1 * t20544;
13385   t21938 = 0.3e1 / 0.2e1 * t20550;
13386   t21939 = 0.9e1 / 0.8e1 * t20554;
13387   t21940 = t21933 - t21934 + t21935 - t21936 - t21937 - t21938 + t21939 - t20989 - t20990 + t20991 + t20992 - t20993 + t20994;
13388   t21941 = 0.3e1 / 0.4e1 * t20596;
13389   t21942 = 0.9e1 / 0.8e1 * t20599;
13390   t21943 = -t20995 - t20996 + t20997 - t21941 + t21942 - t619 - t19721 - t19823 + t19826 + t19829 + t3596 - t3601 - t3605 + t3608;
13391   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13392     v4lapl3tau[7] = t21898 + t21931 + t21940 + t21943;
13393 
13394   t21945 = t747 * t20269;
13395   t21948 = t4339 * t686;
13396   t21949 = t3194 * t21948;
13397   t21953 = t747 * t4320 * t686;
13398   t21962 = t746 * t686;
13399   t21979 = t3651 - t3652 - t3653 + t3654 - 0.6e1 * t141 * t21945 + 0.9e1 / 0.2e1 * t141 * t21949 + 0.9e1 / 0.4e1 * t404 * t21953 + 0.11e2 / 0.4e1 * t141 * t21953 + 0.3e1 / 0.2e1 * t141 * t751 * t4307 * t686 - t141 * t21962 * t6308 / 0.4e1 - 0.11e2 / 0.4e1 * t141 * t21962 * t6312 + 0.3e1 / 0.2e1 * t141 * t21962 * t6355 - 0.5e1 / 0.8e1 * t3864 * t3993 + 0.5e1 / 0.8e1 * t3864 * t4010 - 0.9e1 / 0.4e1 * t404 * t2871 * t20698;
13400   t22003 = -0.11e2 / 0.8e1 * t404 * t687 * t13870 + 0.5e1 / 0.8e1 * t3864 * t4000 + 0.11e2 / 0.4e1 * t141 * t747 * t21948 - 0.25e2 / 0.4e1 * t141 * t3194 * t20256 + 0.15e2 / 0.4e1 * t141 * t13819 * t4381 * t686 - 0.7e1 / 0.8e1 * t404 * t21945 + 0.11e2 / 0.4e1 * t404 * t21949 - 0.15e2 / 0.8e1 * t404 * t13819 * t20256 - t21055 / 0.2e1 - t21057 - t20642 + t20650 + t20675 - t20678 - t20682 - t20685;
13401   t22008 = t20688 + t20691 - t20695 - t20243 + t20246 + t20248 - t20252 - t20255 + t20262 - t20266 - t20275 + t20283 - 0.3e1 * t20432 - 0.3e1 / 0.2e1 * t20437 + 0.3e1 * t20440;
13402   t22016 = -0.3e1 * t20443 + 0.3e1 / 0.2e1 * t20445 + 0.3e1 / 0.2e1 * t20479 + 0.4e1 * t20482 - t20484 - 0.2e1 * t20487 - t599 - t21687 * t748 / 0.8e1 + t19662 - t19666 - t19669 + t19672 - t3790 + t3791 + t3792 - t3793;
13403   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13404     v4lapl2tau2[0] = t21979 + t22003 + t22008 + t22016;
13405 
13406   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13407     v4lapl2tau2[1] = 0.0e0;
13408 
13409   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13410     v4lapl2tau2[2] = 0.0e0;
13411 
13412   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13413     v4lapl2tau2[3] = 0.0e0;
13414 
13415   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13416     v4lapl2tau2[4] = 0.0e0;
13417 
13418   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13419     v4lapl2tau2[5] = 0.0e0;
13420 
13421   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13422     v4lapl2tau2[6] = 0.0e0;
13423 
13424   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13425     v4lapl2tau2[7] = 0.0e0;
13426 
13427   t22022 = t761 * t701;
13428   t22035 = t762 * t5972 * t701;
13429   t22042 = t6058 * t701;
13430   t22050 = t762 * t20373;
13431   t22053 = t3689 + t3690 - t3691 - t3692 - 0.5e1 / 0.8e1 * t3909 * t4023 + 0.5e1 / 0.8e1 * t3909 * t4040 - t150 * t22022 * t7233 / 0.4e1 - 0.9e1 / 0.4e1 * t446 * t2980 * t20739 - 0.11e2 / 0.8e1 * t446 * t702 * t14388 + 0.5e1 / 0.8e1 * t3909 * t4030 + 0.11e2 / 0.4e1 * t150 * t22035 + 0.3e1 / 0.2e1 * t150 * t766 * t5977 * t701 - 0.25e2 / 0.4e1 * t150 * t3288 * t22042 + 0.15e2 / 0.4e1 * t150 * t14419 * t6070 * t701 - 0.7e1 / 0.8e1 * t446 * t22050;
13432   t22054 = t5988 * t701;
13433   t22055 = t3288 * t22054;
13434   t22077 = 0.11e2 / 0.4e1 * t446 * t22055 - 0.15e2 / 0.8e1 * t446 * t14419 * t22042 + 0.11e2 / 0.4e1 * t150 * t762 * t22054 - 0.6e1 * t150 * t22050 + 0.9e1 / 0.2e1 * t150 * t22055 + 0.9e1 / 0.4e1 * t446 * t22035 - 0.11e2 / 0.4e1 * t150 * t22022 * t7288 + 0.3e1 / 0.2e1 * t150 * t22022 * t7304 - t21141 / 0.2e1 - t21143 - t20725 + t20727 - t20730 - t20733 + t20736 - t20738;
13435   t22086 = -t20745 + t20754 + t20757 + 0.4e1 * t20533 - 0.3e1 * t20535 + 0.3e1 * t20538 - 0.3e1 / 0.2e1 * t20541 - 0.3e1 * t20544 - 0.2e1 * t20550 + 0.3e1 / 0.2e1 * t20554 - t20355 - t20358 + t20361 + t20363 - t20367;
13436   t22090 = t20370 - t20372 - t20379 + t20389 - t20596 + 0.3e1 / 0.2e1 * t20599 - t619 - t21786 * t763 / 0.8e1 - t19721 - t19823 + t19826 + t19829 + t3820 - t3821 - t3822 + t3823;
13437   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13438     v4lapl2tau2[8] = t22053 + t22077 + t22086 + t22090;
13439 
13440   t22092 = t4053 * t160;
13441   t22112 = t4058 * t7460;
13442   t22115 = t4086 * t19843;
13443   t22122 = t3456 - t3461 - t3465 + t3469 - t141 * t22092 * t6308 / 0.4e1 + 0.3e1 / 0.2e1 * t141 * t22092 * t6355 - 0.11e2 / 0.8e1 * t404 * t493 * t19007 + 0.11e2 / 0.4e1 * t141 * t4058 * t19843 - 0.25e2 / 0.4e1 * t141 * t4086 * t7573 + 0.15e2 / 0.4e1 * t141 * t19069 * t4381 * t160 - 0.6e1 * t141 * t22112 + 0.9e1 / 0.2e1 * t141 * t22115 - t4077 * t3993 / 0.4e1 + t4077 * t4010 / 0.4e1;
13444   t22135 = t493 * t19020;
13445   t22148 = -0.7e1 / 0.8e1 * t404 * t22112 + 0.11e2 / 0.4e1 * t404 * t22115 - 0.15e2 / 0.8e1 * t404 * t19069 * t7573 + t4077 * t4000 / 0.4e1 - 0.11e2 / 0.4e1 * t141 * t4054 * t7640 + 0.9e1 / 0.4e1 * t404 * t22135 + 0.11e2 / 0.4e1 * t141 * t22135 - 0.9e1 / 0.4e1 * t404 * t1807 * t19053 + 0.3e1 / 0.2e1 * t141 * t4054 * t4307 * t160 - t21387 - 0.3e1 / 0.8e1 * t21055 - t21420 + t21421 + t21422;
13446   t22150 = -t21423 - t21426 - t21427 + t21428 + t21429 - t21430 - t21860 - t21861 + t21862 - t21863 + t21865 + t21866 + t21867 - t21868;
13447   t22167 = t161 * t228;
13448   t22170 = t1502 * t1834;
13449   t22173 = t848 * t1834;
13450   t22185 = t218 * t160 * t222 * t537 / 0.4e1 + t19604 + t4068 * t160 * t419 / 0.2e1 - t19167 * t723 / 0.2e1 - t19170 * t727 / 0.2e1 - t19173 * t17874 / 0.2e1 + t4230 * t160 * t19176 / 0.2e1 + t19620 + t4070 * t22167 / 0.2e1 - t4070 * t22170 / 0.2e1 - t4070 * t22173 / 0.2e1 - t21674 * t172 * t849 / 0.2e1 - t19634 - t4072 * t22167 / 0.2e1 + t4072 * t22170 / 0.2e1 + t4072 * t22173 / 0.2e1;
13451   t22196 = -t21869 - t599 - t139 * t9 * t22185 * t748 / 0.8e1 - 0.3e1 / 0.8e1 * t3864 * t4059 + 0.3e1 / 0.8e1 * t3864 * t4087 + 0.3e1 / 0.8e1 * t3864 * t4065 + t19662 - t19666 - t19669 + t19672 - t4080 + t4081 + t4082 - t4083;
13452   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13453     v4lapltau3[0] = t22122 + t22148 + t22150 + t22196;
13454 
13455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13456     v4lapltau3[1] = 0.0e0;
13457 
13458   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13459     v4lapltau3[2] = 0.0e0;
13460 
13461   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13462     v4lapltau3[3] = 0.0e0;
13463 
13464   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13465     v4lapltau3[4] = 0.0e0;
13466 
13467   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13468     v4lapltau3[5] = 0.0e0;
13469 
13470   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13471     v4lapltau3[6] = 0.0e0;
13472 
13473   t22198 = t4098 * t167;
13474   t22205 = t525 * t19376;
13475   t22224 = t4103 * t8232;
13476   t22227 = t3506 + t3510 - t3515 - t3519 + 0.3e1 / 0.2e1 * t150 * t22198 * t7304 - t150 * t22198 * t7233 / 0.4e1 + 0.9e1 / 0.4e1 * t446 * t22205 + 0.11e2 / 0.4e1 * t150 * t22205 - 0.9e1 / 0.4e1 * t446 * t1970 * t19387 + 0.3e1 / 0.2e1 * t150 * t4099 * t5977 * t167 - 0.11e2 / 0.8e1 * t446 * t525 * t19401 - t4126 * t4023 / 0.4e1 + t4126 * t4040 / 0.4e1 - 0.7e1 / 0.8e1 * t446 * t22224;
13477   t22228 = t4131 * t8236;
13478   t22254 = 0.11e2 / 0.4e1 * t446 * t22228 - 0.15e2 / 0.8e1 * t446 * t19327 * t8240 + 0.11e2 / 0.4e1 * t150 * t4103 * t8236 - 0.25e2 / 0.4e1 * t150 * t4131 * t8240 + 0.15e2 / 0.4e1 * t150 * t19327 * t6070 * t167 - 0.6e1 * t150 * t22224 + 0.9e1 / 0.2e1 * t150 * t22228 + t4126 * t4030 / 0.4e1 - 0.11e2 / 0.4e1 * t150 * t4099 * t8317 - t21507 - 0.3e1 / 0.8e1 * t21141 - t21529 + t21530 - t21531;
13479   t22256 = -t21532 + t21535 - t21536 - t21537 + t21538 + t21539 + t21933 - t21934 + t21935 - t21936 - t21937 - t21938 + t21939 - t21941;
13480   t22279 = t168 * t361;
13481   t22282 = t1618 * t1900;
13482   t22285 = t1159 * t1900;
13483   t22297 = t351 * t167 * t355 * t569 / 0.4e1 + t19771 + t4117 * t167 * t461 / 0.2e1 - t19477 * t738 / 0.2e1 - t19480 * t742 / 0.2e1 - t19483 * t18172 / 0.2e1 + t5917 * t167 * t19486 / 0.2e1 + t19787 + t4119 * t22279 / 0.2e1 - t4119 * t22282 / 0.2e1 - t4119 * t22285 / 0.2e1 - t21773 * t177 * t1316 / 0.2e1 - t19801 - t4121 * t22279 / 0.2e1 + t4121 * t22282 / 0.2e1 + t4121 * t22285 / 0.2e1;
13484   t22302 = t21942 - t619 - 0.3e1 / 0.8e1 * t3909 * t4104 + 0.3e1 / 0.8e1 * t3909 * t4132 + 0.3e1 / 0.8e1 * t3909 * t4110 - t139 * t37 * t22297 * t763 / 0.8e1 - t19721 - t19823 + t19826 + t19829 + t4113 - t4114 - t4115 + t4116;
13485   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
13486     v4lapltau3[7] = t22227 + t22254 + t22256 + t22302;
13487 
13488   t22314 = t746 * t746;
13489   t22315 = t22314 * t222;
13490   t22324 = t75 * t746;
13491   t22337 = t853 * t746;
13492   t22348 = t856 * t746;
13493   t22355 = t218 * t746 * t4209 / 0.4e1 + t19604 + t22324 * t419 / 0.2e1 - t22324 * t4218 / 0.2e1 - t22324 * t4221 / 0.2e1 - t4226 * t746 * t4209 / 0.2e1 + t4230 * t746 * t4209 / 0.2e1 + t19620 + t22337 * t419 / 0.2e1 - t22337 * t4218 / 0.2e1 - t22337 * t4221 / 0.2e1 - t216 * t4075 * t172 * t849 / 0.2e1 - t19634 - t22348 * t419 / 0.2e1 + t22348 * t4218 / 0.2e1 + t22348 * t4221 / 0.2e1;
13494   t22360 = t22315 * t4320;
13495   t22363 = t22314 * t877;
13496   t22369 = t22314 * t28;
13497   t22376 = -0.5e1 / 0.8e1 * t21386 - 0.3e1 * t20641 + 0.9e1 / 0.4e1 * t20649 + 0.6e1 * t20675 - 0.9e1 / 0.2e1 * t20677 - 0.3e1 / 0.2e1 * t20681 - 0.9e1 / 0.4e1 * t20684 + 0.9e1 / 0.4e1 * t20687 + 0.9e1 / 0.2e1 * t20690 - 0.9e1 / 0.2e1 * t20694 - t599 - 0.11e2 / 0.8e1 * t404 * t22315 * t4286 + 0.5e1 / 0.8e1 * t4077 * t4065 - t139 * t9 * t22355 * t748 / 0.8e1 + 0.9e1 / 0.4e1 * t404 * t22360 - 0.9e1 / 0.4e1 * t404 * t22363 * t4329 + 0.11e2 / 0.4e1 * t141 * t22360 + 0.3e1 / 0.2e1 * t141 * t22369 * t4307 - 0.11e2 / 0.4e1 * t141 * t22369 * t4286;
13498   t22377 = t22315 * t4329;
13499   t22380 = t22363 * t4339;
13500   t22383 = t22314 * t4365;
13501   t22411 = -0.7e1 / 0.8e1 * t404 * t22377 + 0.11e2 / 0.4e1 * t404 * t22380 - 0.15e2 / 0.8e1 * t404 * t22383 * t4369 + 0.11e2 / 0.4e1 * t141 * t22315 * t4339 - 0.25e2 / 0.4e1 * t141 * t22363 * t4369 + 0.15e2 / 0.4e1 * t141 * t22383 * t4381 - 0.6e1 * t141 * t22377 + 0.9e1 / 0.2e1 * t141 * t22380 - 0.5e1 / 0.8e1 * t4077 * t4059 + 0.5e1 / 0.8e1 * t4077 * t4087 + 0.3e1 / 0.2e1 * t141 * t22369 * t4320 - t141 * t22369 * t4329 / 0.4e1 + t19662 - t19666 - t19669 + t19672 - t3555 + t3558 + t3561 - t3566 / 0.2e1;
13502   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13503     v4tau4[0] = t22376 + t22411;
13504 
13505   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13506     v4tau4[1] = 0.0e0;
13507 
13508   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13509     v4tau4[2] = 0.0e0;
13510 
13511   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13512     v4tau4[3] = 0.0e0;
13513 
13514   t22422 = t761 * t761;
13515   t22423 = t22422 * t355;
13516   t22424 = t22423 * t5972;
13517   t22427 = t22422 * t1295;
13518   t22434 = t22422 * t53;
13519   t22440 = t22422 * t6054;
13520   t22453 = -0.5e1 / 0.8e1 * t21506 - 0.3e1 / 0.2e1 * t20724 + 0.6e1 * t20727 - 0.9e1 / 0.2e1 * t20729 - 0.9e1 / 0.4e1 * t20732 + 0.9e1 / 0.4e1 * t20735 - 0.9e1 / 0.2e1 * t20737 - 0.3e1 * t20744 + 0.9e1 / 0.4e1 * t20753 + 0.9e1 / 0.2e1 * t20756 + 0.9e1 / 0.4e1 * t446 * t22424 - 0.9e1 / 0.4e1 * t446 * t22427 * t6000 - 0.11e2 / 0.8e1 * t446 * t22423 * t5889 - 0.11e2 / 0.4e1 * t150 * t22434 * t5889 + 0.11e2 / 0.4e1 * t150 * t22424 - 0.15e2 / 0.8e1 * t446 * t22440 * t6058 + 0.11e2 / 0.4e1 * t150 * t22423 * t5988 - 0.25e2 / 0.4e1 * t150 * t22427 * t6058 + 0.15e2 / 0.4e1 * t150 * t22440 * t6070;
13521   t22454 = t22423 * t6000;
13522   t22457 = t22427 * t5988;
13523   t22482 = t115 * t761;
13524   t22495 = t1320 * t761;
13525   t22506 = t1323 * t761;
13526   t22513 = t351 * t761 * t5896 / 0.4e1 + t19771 + t22482 * t461 / 0.2e1 - t22482 * t5905 / 0.2e1 - t22482 * t5908 / 0.2e1 - t5913 * t761 * t5896 / 0.2e1 + t5917 * t761 * t5896 / 0.2e1 + t19787 + t22495 * t461 / 0.2e1 - t22495 * t5905 / 0.2e1 - t22495 * t5908 / 0.2e1 - t349 * t4124 * t177 * t1316 / 0.2e1 - t19801 - t22506 * t461 / 0.2e1 + t22506 * t5905 / 0.2e1 + t22506 * t5908 / 0.2e1;
13527   t22519 = -0.6e1 * t150 * t22454 + 0.9e1 / 0.2e1 * t150 * t22457 - 0.5e1 / 0.8e1 * t4126 * t4104 + 0.5e1 / 0.8e1 * t4126 * t4132 - 0.7e1 / 0.8e1 * t446 * t22454 + 0.11e2 / 0.4e1 * t446 * t22457 + 0.3e1 / 0.2e1 * t150 * t22434 * t5972 - t150 * t22434 * t6000 / 0.4e1 - t619 + 0.3e1 / 0.2e1 * t150 * t22434 * t5977 + 0.5e1 / 0.8e1 * t4126 * t4110 - t139 * t37 * t22513 * t763 / 0.8e1 - t19721 - t19823 + t19826 + t19829 + t3595 - t3600 / 0.2e1 - t3604 + t3607;
13528   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
13529     v4tau4[4] = t22453 + t22519;
13530 
13531 #ifndef XC_DONT_COMPILE_MXC
13532 
13533   if(order < 5) return;
13534 
13535 
13536 #endif
13537 
13538 #endif
13539 
13540 #endif
13541 
13542 #endif
13543 
13544 #endif
13545 
13546 
13547 }
13548 
13549