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/gga_exc/gga_x_q2d.mpl
11   Type of functional: gga_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,double * zk,GGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
20 {
21 
22 #ifndef XC_DONT_COMPILE_EXC
23   double t1, t3, t4, t5, t6, t7, t8, t9;
24   double t10, t11, t12, t13, t14, t15, t16, t17;
25   double t18, t19, t20, t22, t24, t26, t29, t30;
26   double t32, t33, t34, t35, t36, t37, t39, t43;
27   double t45, t46, t47, t49, t50, t52, t53, t55;
28   double t58, t59, t60, t61, t63, t64, t67, t68;
29   double t69, t71;
30 
31 #ifndef XC_DONT_COMPILE_VXC
32   double t75, t76, t77, t78, t80, t81, t83, t88;
33   double t89, t90, t92, t96, t98, t99, t102, t106;
34   double t107, t111, t112, t116, t118, t120, t121, t122;
35   double t123, t125, t126, t130, t134, t138, t139, t140;
36   double t144, t148, t150, t154, t156, t157, t158;
37 
38 #ifndef XC_DONT_COMPILE_FXC
39   double t161, t162, t169, t171, t177, t179, t181, t187;
40   double t192, t193, t194, t198, t204, t206, t207, t208;
41   double t212, t213, t214, t215, t221, t228, t229, t233;
42   double t237, t241, t244, t246, t247, t248, t249, t254;
43   double t257, t258, t262, t266, t267, t271, t277, t280;
44   double t289, t291, t294, t295, t300, t303, t307, t308;
45   double t309, t310, t313, t320, t323, t327, t328, t332;
46   double t336, t337, t341, t343, t346, t349, t351, t353;
47   double t354, t355, t358, t359;
48 
49 #ifndef XC_DONT_COMPILE_KXC
50   double t363, t364, t372, t384, t386, t391, t392, t393;
51   double t394, t395, t396, t401, t406, t408, t409, t410;
52   double t411, t413, t418, t425, t426, t431, t433, t438;
53   double t441, t442, t443, t444, t448, t449, t452, t456;
54   double t457, t459, t460, t468, t475, t476, t480, t491;
55   double t492, t496, t497, t498, t499, t504, t510, t513;
56   double t517, t521, t523, t524, t534, t536, t539, t545;
57   double t554, t557, t559, t570, t572, t575, t576, t579;
58   double t588, t591, t598, t599, t600, t605, t613, t614;
59   double t618, t620, t626, t630, t633, t636, t645, t646;
60   double t655, t657, t660, t661, t666, t669, t674, t681;
61   double t683, t684, t689, t696, t701, t703, t708, t713;
62   double t720, t721, t725, t727, t733, t734, t735, t739;
63   double t741, t744, t747, t750, t757, t758, t759, t762;
64   double t763, t766;
65 
66 #ifndef XC_DONT_COMPILE_LXC
67   double t780, t781, t792, t795, t801, t807, t810, t811;
68   double t817, t821, t825, t838, t839, t840, t844, t847;
69   double t868, t871, t884, t920, t930, t938, t940, t968;
70   double t980, t992, t995, t1000, t1003, t1007, t1033, t1077;
71   double t1138, t1163, t1172, t1217, t1229, t1255, t1292, t1297;
72   double t1363, t1408;
73 #endif
74 
75 #endif
76 
77 #endif
78 
79 #endif
80 
81 #endif
82 
83 
84 
85   t1 = M_CBRT3;
86   t3 = POW_1_3(0.1e1 / M_PI);
87   t4 = t1 * t3;
88   t5 = M_CBRT4;
89   t6 = t5 * t5;
90   t7 = t4 * t6;
91   t8 = M_CBRT2;
92   t9 = t8 * t8;
93   t10 = POW_1_3(rho[0]);
94   t11 = t9 * t10;
95   t12 = M_CBRT6;
96   t13 = M_PI * M_PI;
97   t14 = POW_1_3(t13);
98   t15 = t14 * t14;
99   t16 = 0.1e1 / t15;
100   t17 = t12 * t16;
101   t18 = sigma[0] * t9;
102   t19 = rho[0] * rho[0];
103   t20 = t10 * t10;
104   t22 = 0.1e1 / t20 / t19;
105   t24 = t17 * t18 * t22;
106   t26 = 0.8040e0 + 0.5e1 / 0.972e3 * t24;
107   t29 = 0.18040e1 - 0.64641600e0 / t26;
108   t30 = t12 * t12;
109   t32 = 0.1e1 / t14 / t13;
110   t33 = t30 * t32;
111   t34 = sigma[0] * sigma[0];
112   t35 = t34 * t8;
113   t36 = t19 * t19;
114   t37 = t36 * rho[0];
115   t39 = 0.1e1 / t10 / t37;
116   t43 = 0.100e3 - t33 * t35 * t39 / 0.288e3;
117   t45 = 0.1e1 / t14;
118   t46 = t30 * t45;
119   t47 = sqrt(sigma[0]);
120   t49 = t10 * rho[0];
121   t50 = 0.1e1 / t49;
122   t52 = t46 * t47 * t8 * t50;
123   t53 = pow(t52, 0.35e1);
124   t55 = 0.1e1 + t24 / 0.24e2;
125   t58 = t29 * t43 + 0.87153829697982569831e-4 * t53 * t55;
126   t59 = t13 * t13;
127   t60 = 0.1e1 / t59;
128   t61 = t34 * sigma[0];
129   t63 = t36 * t36;
130   t64 = 0.1e1 / t63;
131   t67 = 0.100e3 + t60 * t61 * t64 / 0.576e3;
132   t68 = 0.1e1 / t67;
133   t69 = t58 * t68;
134   t71 = t7 * t11 * t69;
135   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
136     zk[0] = -0.3e1 / 0.16e2 * t71;
137 
138 #ifndef XC_DONT_COMPILE_VXC
139 
140   if(order < 1) return;
141 
142 
143   t75 = t49 * t1 * t3;
144   t76 = t6 * t9;
145   t77 = t26 * t26;
146   t78 = 0.1e1 / t77;
147   t80 = t78 * t12 * t16;
148   t81 = t19 * rho[0];
149   t83 = 0.1e1 / t20 / t81;
150   t88 = t29 * t30;
151   t89 = t88 * t32;
152   t90 = t36 * t19;
153   t92 = 0.1e1 / t10 / t90;
154   t96 = pow(t52, 0.25e1);
155   t98 = t96 * t55 * t30;
156   t99 = t45 * t47;
157   t102 = t8 / t10 / t19;
158   t106 = t53 * t12;
159   t107 = t106 * t16;
160   t111 = -0.88671604938271604938e-2 * t80 * t18 * t83 * t43 + t89 * t35 * t92 / 0.54e2 - 0.40671787192391865921e-3 * t98 * t99 * t102 - 0.96837588553313966479e-5 * t107 * t18 * t83;
161   t112 = t111 * t68;
162   t116 = t36 * t81;
163   t118 = 0.1e1 / t20 / t116;
164   t120 = t3 * t6;
165   t121 = t118 * t1 * t120;
166   t122 = t9 * t58;
167   t123 = t67 * t67;
168   t125 = 0.1e1 / t123 * t60;
169   t126 = t125 * t61;
170   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
171     vrho[0] = -t71 / 0.4e1 - 0.3e1 / 0.16e2 * t75 * t76 * t112 - t121 * t122 * t126 / 0.384e3;
172 
173   t130 = t9 * t22;
174   t134 = sigma[0] * t8;
175   t138 = 0.1e1 / t47;
176   t139 = t45 * t138;
177   t140 = t8 * t50;
178   t144 = t16 * t9;
179   t148 = 0.33251851851851851852e-2 * t80 * t130 * t43 - t89 * t134 * t39 / 0.144e3 + 0.15251920197146949720e-3 * t98 * t139 * t140 + 0.36314095707492737430e-5 * t106 * t144 * t22;
180   t150 = t76 * t148 * t68;
181   t154 = 0.1e1 / t20 / t90;
182   t156 = t154 * t1 * t120;
183   t157 = t125 * t34;
184   t158 = t122 * t157;
185   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
186     vsigma[0] = -0.3e1 / 0.16e2 * t75 * t150 + t156 * t158 / 0.1024e4;
187 
188 #ifndef XC_DONT_COMPILE_FXC
189 
190   if(order < 2) return;
191 
192 
193   t161 = 0.1e1 / t20;
194   t162 = t9 * t161;
195   t169 = t4 * t76;
196   t171 = 0.1e1 / t20 / t63;
197   t177 = 0.1e1 / t77 / t26;
198   t179 = t177 * t30 * t32;
199   t181 = 0.1e1 / t10 / t116;
200   t187 = 0.1e1 / t20 / t36;
201   t192 = t78 * t60;
202   t193 = t63 * t19;
203   t194 = 0.1e1 / t193;
204   t198 = t78 * t61;
205   t204 = POW_3_2(t52);
206   t206 = t204 * t55 * t12;
207   t207 = t16 * sigma[0];
208   t208 = t9 * t187;
209   t212 = 0.1e1 / t13;
210   t213 = t96 * t212;
211   t214 = t47 * sigma[0];
212   t215 = 0.1e1 / t90;
213   t221 = t8 / t10 / t81;
214   t228 = -0.48653829870107876509e-3 * t179 * t35 * t181 * t43 + 0.32512921810699588477e-1 * t80 * t18 * t187 * t43 - 0.19704801097393689986e-2 * t192 * t61 * t194 - 0.20228913839792803583e-4 * t198 * t194 - 0.19e2 / 0.162e3 * t89 * t35 * t181 + 0.81343574384783731842e-2 * t206 * t207 * t208 + 0.10845809917971164246e-2 * t213 * t214 * t215 + 0.94900836782247687149e-3 * t98 * t99 * t221 + 0.35507115802881787709e-4 * t107 * t18 * t187;
215   t229 = t228 * t68;
216   t233 = t9 * t111;
217   t237 = t63 * t63;
218   t241 = 0.1e1 / t20 / t237 * t1 * t120;
219   t244 = t59 * t59;
220   t246 = 0.1e1 / t123 / t67 / t244;
221   t247 = t34 * t34;
222   t248 = t247 * t34;
223   t249 = t246 * t248;
224   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
225     v2rho2[0] = -t7 * t162 * t69 / 0.12e2 - t7 * t11 * t112 / 0.2e1 + 0.19e2 / 0.1152e4 * t169 * t171 * t58 * t126 - 0.3e1 / 0.16e2 * t75 * t76 * t229 - t121 * t233 * t126 / 0.192e3 - t241 * t122 * t249 / 0.13824e5;
226 
227   t254 = t10 * t1 * t3;
228   t257 = t8 * t92;
229   t258 = t43 * sigma[0];
230   t262 = t9 * t83;
231   t266 = t63 * rho[0];
232   t267 = 0.1e1 / t266;
233   t271 = t78 * t34;
234   t277 = t144 * t83;
235   t280 = 0.1e1 / t37;
236   t289 = 0.18245186201290453691e-3 * t179 * t257 * t258 - 0.88671604938271604939e-2 * t80 * t262 * t43 + 0.73893004115226337449e-3 * t192 * t267 * t34 + 0.75858426899223013437e-5 * t271 * t267 + t89 * t134 * t92 / 0.27e2 - 0.30503840394293899440e-2 * t206 * t277 - 0.40671787192391865921e-3 * t213 * t47 * t280 - 0.20335893596195932960e-3 * t98 * t139 * t102 - 0.96837588553313966480e-5 * t106 * t277;
237   t291 = t76 * t289 * t68;
238   t294 = t9 * t148;
239   t295 = t294 * t126;
240   t300 = t233 * t157;
241   t303 = t63 * t116;
242   t307 = 0.1e1 / t20 / t303 * t1 * t120;
243   t308 = t247 * sigma[0];
244   t309 = t246 * t308;
245   t310 = t122 * t309;
246   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
247     v2rhosigma[0] = -t254 * t150 / 0.4e1 - 0.3e1 / 0.16e2 * t75 * t291 - t121 * t295 / 0.384e3 - 0.5e1 / 0.768e3 * t121 * t158 + t156 * t300 / 0.1024e4 + t307 * t310 / 0.36864e5;
248 
249   t313 = t8 * t39;
250   t320 = t78 * t64;
251   t323 = t32 * t8;
252   t327 = 0.1e1 / sigma[0];
253   t328 = t16 * t327;
254   t332 = 0.1e1 / t36;
255   t336 = 0.1e1 / t214;
256   t337 = t45 * t336;
257   t341 = -0.68419448254839201342e-4 * t179 * t313 * t43 - 0.27709876543209876543e-3 * t192 * t64 * sigma[0] - 0.28446910087208630037e-5 * t320 * sigma[0] - t88 * t323 * t39 / 0.144e3 + 0.11438940147860212290e-2 * t206 * t328 * t130 + 0.15251920197146949720e-3 * t213 * t332 * t138 - 0.76259600985734748600e-4 * t98 * t337 * t140;
258   t343 = t76 * t341 * t68;
259   t346 = t294 * t157;
260   t349 = t63 * t90;
261   t351 = 0.1e1 / t20 / t349;
262   t353 = t351 * t1 * t120;
263   t354 = t246 * t247;
264   t355 = t122 * t354;
265   t358 = t125 * sigma[0];
266   t359 = t122 * t358;
267   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
268     v2sigma2[0] = -0.3e1 / 0.16e2 * t75 * t343 + t156 * t346 / 0.512e3 - t353 * t355 / 0.98304e5 + t156 * t359 / 0.512e3;
269 
270 #ifndef XC_DONT_COMPILE_KXC
271 
272   if(order < 3) return;
273 
274 
275   t363 = 0.1e1 / t20 / rho[0];
276   t364 = t9 * t363;
277   t372 = 0.1e1 / t20 / t266;
278   t384 = t237 * rho[0];
279   t386 = 0.1e1 / t20 / t384;
280   t391 = t77 * t77;
281   t392 = 0.1e1 / t391;
282   t393 = t392 * t60;
283   t394 = t63 * t81;
284   t395 = 0.1e1 / t394;
285   t396 = t61 * t395;
286   t401 = 0.1e1 / t10 / t63;
287   t406 = t177 * t12;
288   t408 = 0.1e1 / t15 / t59;
289   t409 = t406 * t408;
290   t410 = t247 * t9;
291   t411 = t63 * t37;
292   t413 = 0.1e1 / t20 / t411;
293   t418 = 0.1e1 / t20 / t37;
294   t425 = t177 * t60;
295   t426 = t425 * t247;
296   t431 = t177 * t247;
297   t433 = t17 * t9;
298   t438 = t35 * t401;
299   t441 = sqrt(t52);
300   t442 = t441 * t55;
301   t443 = t212 * t214;
302   t444 = 0.1e1 / t116;
303   t448 = t204 * t30;
304   t449 = t448 * t32;
305   t452 = t9 * t418;
306   t456 = t204 * t212;
307   t457 = t456 * t34;
308   t459 = t45 * t8;
309   t460 = t401 * t30 * t459;
310   t468 = t8 / t10 / t36;
311   t475 = -0.24026582651905124202e-3 * t393 * t396 * t43 + 0.53519212857118664160e-2 * t179 * t35 * t401 * t43 - 0.54059810966786529454e-4 * t409 * t410 * t413 - 0.15172696844993141289e0 * t80 * t18 * t418 * t43 + 0.26929894833104709648e-1 * t192 * t396 - 0.54059810966786529454e-4 * t426 * t413 * t12 * t144 - 0.55497706007662012573e-6 * t431 * t413 * t433 + 0.33040559271661579186e-3 * t198 * t395 + 0.209e3 / 0.243e3 * t89 * t438 - 0.19522457852348095642e0 * t442 * t443 * t444 - 0.18076349863285273743e-2 * t449 * t438 - 0.56940502069348612290e-1 * t206 * t207 * t452 - 0.36152699726570547486e-2 * t457 * t460 - 0.97612289261740478213e-2 * t213 * t214 * t444 - 0.31633612260749229050e-2 * t98 * t99 * t468 - 0.16569987374678167598e-3 * t107 * t18 * t418;
312   t476 = t475 * t68;
313   t480 = t9 * t228;
314   t491 = 0.1e1 / t20 / t237 / t266 * t1 * t120;
315   t492 = t123 * t123;
316   t496 = 0.1e1 / t492 / t244 / t59;
317   t497 = t247 * t247;
318   t498 = t497 * sigma[0];
319   t499 = t496 * t498;
320   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
321     v3rho3[0] = t7 * t364 * t69 / 0.18e2 - t7 * t162 * t112 / 0.4e1 - 0.83e2 / 0.576e3 * t169 * t372 * t58 * t126 - 0.3e1 / 0.4e1 * t7 * t11 * t229 + 0.19e2 / 0.384e3 * t169 * t171 * t111 * t126 + 0.23e2 / 0.13824e5 * t169 * t386 * t58 * t249 - 0.3e1 / 0.16e2 * t75 * t76 * t476 - t121 * t480 * t126 / 0.128e3 - t241 * t233 * t249 / 0.4608e4 - t491 * t122 * t499 / 0.331776e6;
322 
323   t504 = t161 * t1 * t3;
324   t510 = t171 * t1 * t120;
325   t513 = t194 * t43;
326   t517 = t8 * t181;
327   t521 = t63 * t36;
328   t523 = 0.1e1 / t20 / t521;
329   t524 = t9 * t523;
330   t534 = t425 * t523;
331   t536 = t61 * t12 * t144;
332   t539 = t177 * t61;
333   t545 = t134 * t181;
334   t554 = t144 * t187;
335   t557 = t456 * sigma[0];
336   t559 = t181 * t30 * t459;
337   t570 = 0.90099684944644215758e-4 * t393 * t513 * t34 - 0.16420667581161408322e-2 * t179 * t517 * t258 + 0.20272429112544948546e-4 * t409 * t524 * t61 + 0.32512921810699588478e-1 * t80 * t208 * t43 - 0.86208504801097393690e-2 * t192 * t194 * t34 + 0.20272429112544948546e-4 * t534 * t536 + 0.20811639752873254715e-6 * t539 * t523 * t433 - 0.10873041188888631926e-3 * t271 * t194 - 0.19e2 / 0.81e2 * t89 * t545 + 0.73209216946305358656e-1 * t442 * t212 * t215 * t47 + 0.67786311987319776533e-3 * t449 * t545 + 0.15251920197146949720e-1 * t206 * t554 + 0.13557262397463955307e-2 * t557 * t559 + 0.28470251034674306144e-2 * t213 * t47 * t215 + 0.47450418391123843573e-3 * t98 * t139 * t221 + 0.35507115802881787709e-4 * t106 * t554;
338   t572 = t76 * t570 * t68;
339   t575 = t9 * t289;
340   t576 = t575 * t126;
341   t579 = t294 * t249;
342   t588 = t480 * t157;
343   t591 = t233 * t309;
344   t598 = 0.1e1 / t20 / t237 / t63 * t1 * t120;
345   t599 = t496 * t497;
346   t600 = t122 * t599;
347   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
348     v3rho2sigma[0] = -t504 * t150 / 0.12e2 - t254 * t291 / 0.2e1 + 0.19e2 / 0.1152e4 * t510 * t295 - 0.3e1 / 0.16e2 * t75 * t572 - t121 * t576 / 0.192e3 - t241 * t579 / 0.13824e5 + 0.115e3 / 0.2304e4 * t510 * t158 - 0.5e1 / 0.384e3 * t121 * t300 - 0.67e2 / 0.110592e6 * t241 * t310 + t156 * t588 / 0.1024e4 + t307 * t591 / 0.18432e5 + t598 * t600 / 0.884736e6;
349 
350   t605 = t267 * t43;
351   t613 = 0.1e1 / t20 / t394;
352   t614 = t9 * t613;
353   t618 = t425 * t613;
354   t620 = t34 * t12 * t144;
355   t626 = t177 * t613;
356   t630 = t78 * t267;
357   t633 = t323 * t92;
358   t636 = t212 * t138;
359   t645 = t456 * t92;
360   t646 = t46 * t8;
361   t655 = -0.33787381854241580910e-4 * t393 * t605 * sigma[0] + 0.36490372402580907382e-3 * t179 * t257 * t43 - 0.76021609172043557047e-5 * t409 * t614 * t34 - 0.76021609172043557045e-5 * t618 * t620 + 0.22167901234567901234e-2 * t192 * t267 * sigma[0] - 0.78043649073274705177e-7 * t626 * t34 * t433 + 0.30343370759689205374e-4 * t630 * sigma[0] + t88 * t633 / 0.27e2 - 0.27453456354864509496e-1 * t442 * t636 * t280 - 0.25419866995244916200e-3 * t448 * t633 - 0.15251920197146949720e-2 * t206 * t328 * t262 - 0.50839733990489832399e-3 * t645 * t646 - 0.50839733990489832400e-3 * t213 * t280 * t138 + 0.10167946798097966480e-3 * t98 * t337 * t102;
362   t657 = t76 * t655 * t68;
363   t660 = t9 * t341;
364   t661 = t660 * t126;
365   t666 = t575 * t157;
366   t669 = t294 * t309;
367   t674 = t233 * t354;
368   t681 = 0.1e1 / t20 / t237 / t116 * t1 * t120;
369   t683 = t496 * t247 * t61;
370   t684 = t122 * t683;
371   t689 = t233 * t358;
372   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
373     v3rhosigma2[0] = -t254 * t343 / 0.4e1 - 0.3e1 / 0.16e2 * t75 * t657 - t121 * t661 / 0.384e3 - 0.5e1 / 0.384e3 * t121 * t346 + t156 * t666 / 0.512e3 + t307 * t669 / 0.18432e5 + 0.5e1 / 0.24576e5 * t307 * t355 - t353 * t674 / 0.98304e5 - t681 * t684 / 0.2359296e7 - 0.5e1 / 0.384e3 * t121 * t359 + t156 * t689 / 0.512e3;
374 
375   t696 = 0.1e1 / t20 / t193;
376   t701 = t425 * t696;
377   t703 = sigma[0] * t12 * t144;
378   t708 = t177 * t696;
379   t713 = t212 * t336;
380   t720 = 0.1e1 / t34;
381   t721 = t16 * t720;
382   t725 = t456 * t39;
383   t727 = t327 * t30 * t459;
384   t733 = t47 * t34;
385   t734 = 0.1e1 / t733;
386   t735 = t45 * t734;
387   t739 = 0.12670268195340592841e-4 * t393 * t64 * t43 + 0.28508103439516333893e-5 * t409 * t9 * t696 * sigma[0] + 0.28508103439516333892e-5 * t701 * t703 - 0.27709876543209876543e-3 * t192 * t64 + 0.29266368402478014441e-7 * t708 * sigma[0] * t433 - 0.56893820174417260074e-5 * t320 + 0.10295046133074191061e-1 * t442 * t713 * t332 + 0.95324501232168435750e-4 * t449 * t313 * t327 - 0.17158410221790318435e-2 * t206 * t721 * t130 + 0.19064900246433687150e-3 * t725 * t727 - 0.11438940147860212290e-3 * t213 * t332 * t336 + 0.11438940147860212290e-3 * t98 * t735 * t140;
388   t741 = t76 * t739 * t68;
389   t744 = t660 * t157;
390   t747 = t294 * t354;
391   t750 = t294 * t358;
392   t757 = 0.1e1 / t20 / t237 / t90 * t1 * t120;
393   t758 = t496 * t248;
394   t759 = t122 * t758;
395   t762 = t246 * t61;
396   t763 = t122 * t762;
397   t766 = t122 * t125;
398   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
399     v3sigma3[0] = -0.3e1 / 0.16e2 * t75 * t741 + 0.3e1 / 0.1024e4 * t156 * t744 - t353 * t747 / 0.32768e5 + 0.3e1 / 0.512e3 * t156 * t750 + t757 * t759 / 0.6291456e7 - t353 * t763 / 0.16384e5 + t156 * t766 / 0.512e3;
400 
401 #ifndef XC_DONT_COMPILE_LXC
402 
403   if(order < 4) return;
404 
405 
406   t780 = 0.1e1 / t521;
407   t781 = t61 * t780;
408   t792 = t392 * t30 / t14 / t59 / t13;
409   t795 = 0.1e1 / t10 / t384;
410   t801 = t33 * t8;
411   t807 = t441 * t12;
412   t810 = t807 / t15 / t13;
413   t811 = t733 * t9;
414   t817 = 0.1e1 / t391 / t26 * t60;
415   t821 = t43 * t12 * t144;
416   t825 = 0.1e1 / t10 / t266;
417   t838 = 0.52858481834191273244e-2 * t393 * t781 * t43 + 0.13334753371807343932e-2 * t409 * t410 * t351 - 0.44493671577602081855e-5 * t792 * t308 * t8 * t795 - 0.45677124286141574134e-7 * t392 * t308 * t795 * t801 + 0.27331440993287333899e1 * t442 * t443 * t64 + 0.21691619835942328492e-1 * t810 * t811 * t696 - 0.13183310097067283513e-4 * t817 * t247 * t351 * t821 - 0.52924554936484012336e-1 * t179 * t35 * t825 * t43 - 0.32994594726413656455e0 * t192 * t781 - 0.45739821848864839214e-2 * t198 * t780 + 0.85978615454961133971e0 * t80 * t18 * t154 * t43;
418   t839 = 0.1e1/sqrt(t52);
419   t840 = t839 * t55;
420   t844 = t825 * t30 * t459;
421   t847 = t9 * t154;
422   t868 = t35 * t825;
423   t871 = t807 * t16;
424   t884 = 0.13014971901565397095e0 * t840 * t212 * t34 * t844 + 0.38593006958114059441e0 * t206 * t207 * t847 + 0.62664679526055615642e-1 * t457 * t844 + 0.13707898646324665922e-1 * t98 * t99 * t313 - 0.88987343155204163711e-5 * t393 * t308 * t795 * t30 * t323 + 0.14776348330921651384e-2 * t426 * t351 * t12 * t144 + 0.16649311802298603772e-4 * t431 * t351 * t433 - 0.5225e4 / 0.729e3 * t89 * t868 + 0.65074859507826985474e-1 * t871 * t811 * t696 * t212 + 0.27717069790370753072e-1 * t449 * t868 + 0.93896595123176283055e-3 * t107 * t18 * t154 + 0.81825610381138005811e-1 * t213 * t214 * t64;
425   t920 = t9 * t475;
426   t930 = t237 * t237;
427   t938 = t244 * t244;
428   t940 = 0.1e1 / t492 / t67 / t938;
429   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
430     v4rho4[0] = 0.2e1 / 0.9e1 * t7 * t364 * t112 - 0.5e1 / 0.54e2 * t7 * t130 * t69 - t7 * t162 * t229 / 0.2e1 - t7 * t11 * t476 - 0.3e1 / 0.16e2 * t75 * t76 * (t838 + t884) * t68 + 0.7225e4 / 0.5184e4 * t169 * t696 * t58 * t126 - 0.83e2 / 0.144e3 * t169 * t372 * t111 * t126 - 0.1385e4 / 0.41472e5 * t169 / t20 / t237 / t19 * t58 * t249 + 0.19e2 / 0.192e3 * t169 * t171 * t228 * t126 + 0.23e2 / 0.3456e4 * t169 * t386 * t111 * t249 + 0.73e2 / 0.497664e6 * t169 / t20 / t237 / t193 * t58 * t499 - t121 * t920 * t126 / 0.96e2 - t241 * t480 * t249 / 0.2304e4 - t491 * t233 * t499 / 0.82944e5 - 0.1e1 / t20 / t930 / t19 * t1 * t120 * t122 * t940 * t497 * t247 / 0.5971968e7;
431 
432   t968 = t386 * t1 * t120;
433   t980 = t9 * t570;
434   t992 = t372 * t1 * t120;
435   t995 = t214 * t9;
436   t1000 = t134 * t401;
437   t1003 = t144 * t418;
438   t1007 = 0.1e1 / t10 / t237;
439   t1033 = -0.24403072315435119552e-1 * t871 * t995 * t372 * t212 - 0.83603118117694391058e-2 * t449 * t1000 - 0.80665711264910534075e-1 * t206 * t1003 + 0.33370253683201561392e-5 * t393 * t1007 * t33 * t247 * t8 - 0.15172696844993141290e0 * t80 * t452 * t43 - 0.49329577507192708129e-3 * t425 * t413 * t536 - 0.56191427332757787731e-5 * t539 * t413 * t433 + 0.418e3 / 0.243e3 * t89 * t1000 - 0.16569987374678167598e-3 * t106 * t1003 - 0.80530138640935894522e0 * t442 * t212 * t444 * t47 - 0.81343574384783731840e-2 * t810 * t995 * t372;
440   t1077 = -0.17118940139482400994e-2 * t393 * t395 * t43 * t34 - 0.43923596410514055183e-3 * t409 * t9 * t413 * t61 + 0.16685126841600780696e-5 * t792 * t8 * t1007 * t247 + 0.17128921607303090300e-7 * t392 * t247 * t1007 * t801 + 0.93433598536808413352e-1 * t192 * t395 * t34 + 0.13435370275262387047e-2 * t271 * t395 + 0.49437412864002313173e-5 * t817 * t413 * t43 * t536 + 0.13825796654755654908e-1 * t179 * t8 * t401 * t258 - 0.48806144630870239104e-1 * t840 * t212 * t401 * sigma[0] * t30 * t459 - 0.19432076103031669273e-1 * t557 * t460 - 0.15816806130374614524e-2 * t98 * t139 * t468 - 0.19703221350980948379e-1 * t213 * t47 * t444;
441   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
442     v4rho3sigma[0] = 0.1e1 / t20 / t930 / rho[0] * t1 * t120 * t122 * t940 * t497 * t61 / 0.15925248e8 + t307 * t480 * t309 / 0.12288e5 + t598 * t233 * t599 / 0.294912e6 - t491 * t294 * t499 / 0.331776e6 + 0.115e3 / 0.768e3 * t510 * t300 + 0.635e3 / 0.55296e5 * t968 * t310 - 0.5e1 / 0.256e3 * t121 * t588 - 0.67e2 / 0.36864e5 * t241 * t591 - 0.47e2 / 0.884736e6 * t491 * t600 + t156 * t920 * t157 / 0.1024e4 - t121 * t980 * t126 / 0.128e3 - t241 * t575 * t249 / 0.4608e4 + 0.19e2 / 0.384e3 * t510 * t576 + 0.23e2 / 0.13824e5 * t968 * t579 - 0.83e2 / 0.576e3 * t992 * t295 - 0.3e1 / 0.16e2 * t75 * t76 * (t1033 + t1077) * t68 - 0.3e1 / 0.4e1 * t254 * t572 - t504 * t291 / 0.4e1 + t363 * t1 * t3 * t150 / 0.18e2 - 0.1495e4 / 0.3456e4 * t992 * t158;
443 
444   t1138 = t9 * t655;
445   t1163 = 0.1e1 / t10 / t303;
446   t1172 = t323 * t181;
447   t1217 = 0.30503840394293899440e-2 * t810 * t9 * t171 * t47 + 0.48428580657746265971e-3 * t393 * t513 * sigma[0] + 0.35587813793342882680e-2 * t206 * t328 * t208 - 0.23725209195561921787e-3 * t98 * t337 * t221 - 0.18539029824000867440e-5 * t817 * t523 * t43 * t620 + 0.14950916470501899552e-3 * t534 * t620 - 0.12513845131200585522e-5 * t393 * t1163 * t33 * t61 * t8 - 0.23110569188301241342e-2 * t179 * t517 * t43 - 0.31354816451678845554e-3 * t78 * t194 * sigma[0] - 0.19951111111111111111e-1 * t192 * t194 * sigma[0] + 0.24064140755498520669e-2 * t213 * t215 * t138;
448   t1229 = -t241 * t660 * t249 / 0.13824e5 - 0.5e1 / 0.192e3 * t121 * t666 - 0.67e2 / 0.55296e5 * t241 * t669 + t156 * t980 * t157 / 0.512e3 + 0.19e2 / 0.1152e4 * t510 * t661 - t121 * t1138 * t126 / 0.192e3 - t254 * t657 / 0.2e1 - 0.3e1 / 0.16e2 * t75 * t76 * (0.49145076190806837986e-2 * t456 * t181 * t646 + 0.17429748293031350823e-5 * t177 * t523 * t34 * t433 + 0.18302304236576339664e-1 * t840 * t212 * t559 + 0.91511521182881698319e-2 * t871 * t47 * t9 * t171 * t212 + 0.12923673559247404698e-3 * t409 * t524 * t34 - 0.62569225656002927611e-6 * t792 * t8 * t1163 * t61 - 0.64233456027386588623e-8 * t392 * t1163 * t61 * t801 - 0.19e2 / 0.81e2 * t88 * t1172 + 0.17387189024747522681e0 * t442 * t636 * t215 + 0.19488564696354435754e-2 * t448 * t1172 + t1217) * t68 + 0.115e3 / 0.1152e4 * t510 * t346 - 0.785e3 / 0.221184e6 * t241 * t355 + 0.115e3 / 0.1152e4 * t510 * t359;
449   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
450     v4rho2sigma2[0] = -t504 * t343 / 0.12e2 - t681 * t233 * t683 / 0.1179648e7 - 0.1e1 / t20 / t930 * t1 * t120 * t122 * t940 * t497 * t34 / 0.42467328e8 - 0.5e1 / 0.192e3 * t121 * t689 + t156 * t480 * t358 / 0.512e3 + t307 * t575 * t309 / 0.9216e4 + t598 * t294 * t599 / 0.442368e6 + 0.5e1 / 0.12288e5 * t307 * t674 + 0.131e3 / 0.7077888e7 * t598 * t684 - t353 * t480 * t354 / 0.98304e5 + t1229;
451 
452   t1255 = 0.1e1 / t10 / t349;
453   t1292 = 0.22167901234567901234e-2 * t192 * t267 - 0.63549667488112290500e-3 * t645 * t727 - 0.15251920197146949720e-3 * t98 * t735 * t102 + 0.69521361840003252900e-6 * t817 * t613 * t43 * t703 - 0.38010804586021778522e-4 * t618 * t703 - 0.68633640887161273739e-2 * t840 * t212 * t327 * t92 * t30 * t459 + 0.22877880295720424580e-2 * t206 * t721 * t262 + 0.23463459621001097854e-6 * t792 * t8 * t1255 * t34 + 0.24087546010269970733e-8 * t392 * t1255 * t34 * t801 - 0.11438940147860212290e-2 * t810 * t9 * t118 * t138 - 0.10136214556272474273e-3 * t393 * t605 + 0.30503840394293899440e-3 * t213 * t280 * t336 - 0.46826189443964823105e-6 * t626 * sigma[0] * t433 - 0.34316820443580636870e-2 * t871 * t138 * t9 * t118 * t212 - 0.12709933497622458100e-3 * t449 * t257 * t327 + 0.46926919242002195707e-6 * t393 * t1255 * t33 * t35 - 0.30408643668817422819e-4 * t409 * t614 * sigma[0] + 0.45515056139533808059e-4 * t630;
454   t1297 = t9 * t739;
455   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
456     v4rhosigma3[0] = -t254 * t741 / 0.4e1 - 0.3e1 / 0.16e2 * t75 * t76 * t1292 * t68 - t121 * t1297 * t126 / 0.384e3 - 0.5e1 / 0.256e3 * t121 * t744 + 0.3e1 / 0.1024e4 * t156 * t1138 * t157 + t307 * t660 * t309 / 0.12288e5 + 0.5e1 / 0.8192e4 * t307 * t747 - t353 * t575 * t354 / 0.32768e5 - t681 * t294 * t683 / 0.786432e6 - 0.5e1 / 0.128e3 * t121 * t750 + 0.3e1 / 0.512e3 * t156 * t575 * t358 - 0.29e2 / 0.4718592e7 * t681 * t759 + t757 * t233 * t758 / 0.6291456e7 + 0.1e1 / t20 / t237 / t303 * t1 * t120 * t122 * t940 * t498 / 0.113246208e9 + 0.35e2 / 0.36864e5 * t307 * t763 - t353 * t233 * t762 / 0.16384e5 - 0.5e1 / 0.384e3 * t121 * t766 + t156 * t233 * t125 / 0.512e3;
457 
458   t1363 = 0.1e1 / t10 / t411;
459   t1408 = -0.28597350369650530725e-3 * t98 * t45 / t47 / t61 * t140 + 0.22877880295720424580e-3 * t213 * t332 * t734 + 0.42896025554475796088e-3 * t810 * t847 * t336 + 0.28508103439516333893e-5 * t406 * t408 * t9 * t696 - 0.87987973578754116954e-7 * t792 * t8 * t1363 * sigma[0] + 0.87799105207434043324e-7 * t708 * t433 - 0.90328297538512390250e-9 * t392 * t1363 * sigma[0] * t801 - 0.30885138399222573184e-1 * t442 * t212 * t734 * t332 - 0.17597594715750823390e-6 * t393 * t1363 * t33 * t134 + 0.57016206879032667784e-5 * t701 * t433 + 0.12868807666342738826e-2 * t871 * t847 * t713 - 0.23831125308042108937e-3 * t449 * t313 * t720 - 0.26070510690001219837e-6 * t817 * t696 * t821 + 0.25737615332685477652e-2 * t840 * t212 * t720 * t39 * t30 * t459 + 0.42896025554475796088e-2 * t206 * t16 / t61 * t130 - 0.33363575431258952512e-3 * t725 * t720 * t30 * t459;
460   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
461     v4sigma4[0] = -0.3e1 / 0.16e2 * t75 * t76 * t1408 * t68 + t156 * t1297 * t157 / 0.256e3 - t353 * t660 * t354 / 0.16384e5 + 0.3e1 / 0.256e3 * t156 * t660 * t358 + t757 * t294 * t758 / 0.1572864e7 - t353 * t294 * t762 / 0.4096e4 + t156 * t294 * t125 / 0.128e3 - 0.1e1 / t20 / t237 / t349 * t1 * t120 * t122 * t940 * t497 / 0.301989888e9 + t757 * t122 * t496 * t308 / 0.524288e6 - 0.5e1 / 0.24576e5 * t353 * t122 * t246 * t34;
462 
463 #ifndef XC_DONT_COMPILE_MXC
464 
465   if(order < 5) return;
466 
467 
468 #endif
469 
470 #endif
471 
472 #endif
473 
474 #endif
475 
476 #endif
477 
478 
479 }
480 
481 
482 static inline void
func_ferr(const xc_func_type * p,int order,const double * rho,const double * sigma,double * zk,GGA_OUT_PARAMS_NO_EXC (double *))483 func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
484 {
485 
486 #ifndef XC_DONT_COMPILE_EXC
487   double t1, t3, t4, t5, t6, t7, t8, t9;
488   double t10, t11, t12, t13, t14, t15, t16, t18;
489   double t20, t22, t25, t26, t28, t29, t30, t31;
490   double t32, t34, t38, t40, t41, t42, t43, t44;
491   double t46, t47, t49, t52, t54, t55, t56, t57;
492   double t58, t59, t62, t63, t65;
493 
494 #ifndef XC_DONT_COMPILE_VXC
495   double t69, t70, t71, t72, t73, t74, t76, t81;
496   double t82, t83, t85, t89, t91, t92, t94, t98;
497   double t99, t103, t104, t108, t110, t111, t112, t113;
498   double t114, t115, t116, t117, t120, t124, t128, t129;
499   double t135, t136, t137, t141, t142, t143, t144, t145;
500 
501 #ifndef XC_DONT_COMPILE_FXC
502   double t148, t157, t159, t163, t164, t165, t167, t173;
503   double t178, t179, t180, t184, t190, t191, t192, t193;
504   double t196, t197, t198, t199, t204, t210, t215, t216;
505   double t219, t223, t225, t226, t227, t228, t229, t230;
506   double t231, t232, t236, t243, t247, t248, t252, t261;
507   double t270, t272, t275, t276, t281, t284, t288, t289;
508   double t290, t291, t294, t301, t306, t307, t311, t315;
509   double t316, t320, t322, t325, t328, t330, t332, t333;
510   double t334, t337, t338;
511 
512 #ifndef XC_DONT_COMPILE_KXC
513   double t342, t352, t354, t363, t367, t370, t371, t372;
514   double t373, t374, t375, t380, t385, t387, t388, t389;
515   double t391, t396, t403, t404, t406, t409, t414, t417;
516   double t418, t419, t420, t424, t427, t430, t431, t433;
517   double t440, t446, t451, t452, t455, t456, t463, t464;
518   double t465, t466, t468, t469, t470, t471, t472, t476;
519   double t482, t490, t492, t493, t497, t504, t506, t509;
520   double t516, t528, t530, t541, t543, t546, t547, t550;
521   double t551, t560, t563, t570, t571, t572, t577, t581;
522   double t586, t587, t591, t593, t599, t602, t607, t626;
523   double t628, t631, t632, t637, t640, t645, t652, t654;
524   double t655, t660, t667, t668, t674, t679, t690, t691;
525   double t695, t697, t703, t704, t705, t709, t711, t714;
526   double t717, t720, t727, t728, t729, t732, t733, t736;
527   double t738, t739;
528 
529 #ifndef XC_DONT_COMPILE_LXC
530   double t753, t754, t762, t765, t768, t774, t777, t779;
531   double t794, t799, t801, t802, t808, t815, t820, t826;
532   double t834, t836, t849, t883, t887, t891, t895, t903;
533   double t904, t905, t919, t938, t950, t952, t998, t1014;
534   double t1018, t1022, t1078, t1080, t1083, t1126, t1140, t1144;
535   double t1186, t1190, t1193, t1228, t1247, t1252, t1305, t1308;
536   double t1365;
537 #endif
538 
539 #endif
540 
541 #endif
542 
543 #endif
544 
545 #endif
546 
547 
548 
549   t1 = M_CBRT3;
550   t3 = POW_1_3(0.1e1 / M_PI);
551   t4 = t1 * t3;
552   t5 = M_CBRT4;
553   t6 = t5 * t5;
554   t7 = t4 * t6;
555   t8 = POW_1_3(rho[0]);
556   t9 = M_CBRT6;
557   t10 = M_PI * M_PI;
558   t11 = POW_1_3(t10);
559   t12 = t11 * t11;
560   t13 = 0.1e1 / t12;
561   t14 = t9 * t13;
562   t15 = rho[0] * rho[0];
563   t16 = t8 * t8;
564   t18 = 0.1e1 / t16 / t15;
565   t20 = t14 * sigma[0] * t18;
566   t22 = 0.8040e0 + 0.5e1 / 0.972e3 * t20;
567   t25 = 0.18040e1 - 0.64641600e0 / t22;
568   t26 = t9 * t9;
569   t28 = 0.1e1 / t11 / t10;
570   t29 = t26 * t28;
571   t30 = sigma[0] * sigma[0];
572   t31 = t15 * t15;
573   t32 = t31 * rho[0];
574   t34 = 0.1e1 / t8 / t32;
575   t38 = 0.100e3 - t29 * t30 * t34 / 0.576e3;
576   t40 = 0.1e1 / t11;
577   t41 = t26 * t40;
578   t42 = sqrt(sigma[0]);
579   t43 = t8 * rho[0];
580   t44 = 0.1e1 / t43;
581   t46 = t41 * t42 * t44;
582   t47 = pow(t46, 0.35e1);
583   t49 = 0.1e1 + t20 / 0.24e2;
584   t52 = t25 * t38 + 0.87153829697982569831e-4 * t47 * t49;
585   t54 = t10 * t10;
586   t55 = 0.1e1 / t54;
587   t56 = t30 * sigma[0];
588   t57 = t55 * t56;
589   t58 = t31 * t31;
590   t59 = 0.1e1 / t58;
591   t62 = 0.100e3 + t57 * t59 / 0.2304e4;
592   t63 = 0.1e1 / t62;
593   t65 = t7 * t8 * t52 * t63;
594   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
595     zk[0] = -0.3e1 / 0.8e1 * t65;
596 
597 #ifndef XC_DONT_COMPILE_VXC
598 
599   if(order < 1) return;
600 
601 
602   t69 = t43 * t1 * t3;
603   t70 = t22 * t22;
604   t71 = 0.1e1 / t70;
605   t72 = t71 * t9;
606   t73 = t72 * t13;
607   t74 = t15 * rho[0];
608   t76 = 0.1e1 / t16 / t74;
609   t81 = t25 * t26;
610   t82 = t28 * t30;
611   t83 = t31 * t15;
612   t85 = 0.1e1 / t8 / t83;
613   t89 = pow(t46, 0.25e1);
614   t91 = t89 * t49 * t26;
615   t92 = t40 * t42;
616   t94 = 0.1e1 / t8 / t15;
617   t98 = t47 * t9;
618   t99 = t13 * sigma[0];
619   t103 = -0.88671604938271604938e-2 * t73 * sigma[0] * t76 * t38 + t81 * t82 * t85 / 0.108e3 - 0.40671787192391865921e-3 * t91 * t92 * t94 - 0.96837588553313966479e-5 * t98 * t99 * t76;
620   t104 = t6 * t103;
621   t108 = t31 * t74;
622   t110 = 0.1e1 / t16 / t108;
623   t111 = t110 * t1;
624   t112 = t3 * t6;
625   t113 = t111 * t112;
626   t114 = t62 * t62;
627   t115 = 0.1e1 / t114;
628   t116 = t52 * t115;
629   t117 = t116 * t57;
630   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
631     vrho[0] = -t65 / 0.2e1 - 0.3e1 / 0.8e1 * t69 * t104 * t63 - t113 * t117 / 0.768e3;
632 
633   t120 = t13 * t18;
634   t124 = t28 * sigma[0];
635   t128 = 0.1e1 / t42;
636   t129 = t40 * t128;
637   t135 = 0.33251851851851851852e-2 * t72 * t120 * t38 - t81 * t124 * t34 / 0.288e3 + 0.15251920197146949720e-3 * t91 * t129 * t44 + 0.36314095707492737430e-5 * t98 * t120;
638   t136 = t6 * t135;
639   t137 = t136 * t63;
640   t141 = 0.1e1 / t16 / t83;
641   t142 = t141 * t1;
642   t143 = t142 * t112;
643   t144 = t55 * t30;
644   t145 = t116 * t144;
645   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
646     vsigma[0] = -0.3e1 / 0.8e1 * t69 * t137 + t143 * t145 / 0.2048e4;
647 
648 #ifndef XC_DONT_COMPILE_FXC
649 
650   if(order < 2) return;
651 
652 
653   t148 = 0.1e1 / t16;
654   t157 = 0.1e1 / t16 / t58;
655   t159 = t4 * t6 * t157;
656   t163 = 0.1e1 / t70 / t22;
657   t164 = t163 * t26;
658   t165 = t164 * t28;
659   t167 = 0.1e1 / t8 / t108;
660   t173 = 0.1e1 / t16 / t31;
661   t178 = t71 * t55;
662   t179 = t58 * t15;
663   t180 = 0.1e1 / t179;
664   t184 = t71 * t56;
665   t190 = POW_3_2(t46);
666   t191 = t190 * t49;
667   t192 = t191 * t9;
668   t193 = t99 * t173;
669   t196 = 0.1e1 / t10;
670   t197 = t89 * t196;
671   t198 = t42 * sigma[0];
672   t199 = 0.1e1 / t83;
673   t204 = 0.1e1 / t8 / t74;
674   t210 = -0.24326914935053938255e-3 * t165 * t30 * t167 * t38 + 0.32512921810699588477e-1 * t73 * sigma[0] * t173 * t38 - 0.49262002743484224966e-3 * t178 * t56 * t180 - 0.50572284599482008956e-5 * t184 * t180 - 0.19e2 / 0.324e3 * t81 * t82 * t167 + 0.81343574384783731842e-2 * t192 * t193 + 0.54229049589855821228e-3 * t197 * t198 * t199 + 0.94900836782247687149e-3 * t91 * t92 * t204 + 0.35507115802881787709e-4 * t98 * t193;
675   t215 = t103 * t115;
676   t216 = t215 * t57;
677   t219 = t58 * t58;
678   t223 = 0.1e1 / t16 / t219 * t1 * t112;
679   t225 = 0.1e1 / t114 / t62;
680   t226 = t52 * t225;
681   t227 = t54 * t54;
682   t228 = 0.1e1 / t227;
683   t229 = t30 * t30;
684   t230 = t229 * t30;
685   t231 = t228 * t230;
686   t232 = t226 * t231;
687   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
688     v2rho2[0] = -t7 * t148 * t52 * t63 / 0.6e1 - t7 * t8 * t103 * t63 + 0.19e2 / 0.2304e4 * t159 * t117 - 0.3e1 / 0.8e1 * t69 * t6 * t210 * t63 - t113 * t216 / 0.384e3 - t223 * t232 / 0.110592e6;
689 
690   t236 = t8 * t1 * t3;
691   t243 = t13 * t76;
692   t247 = t58 * rho[0];
693   t248 = 0.1e1 / t247;
694   t252 = t71 * t30;
695   t261 = 0.1e1 / t32;
696   t270 = 0.91225931006452268455e-4 * t165 * t85 * t38 * sigma[0] - 0.88671604938271604939e-2 * t72 * t243 * t38 + 0.18473251028806584362e-3 * t178 * t248 * t30 + 0.18964606724805753359e-5 * t252 * t248 + t81 * t124 * t85 / 0.54e2 - 0.30503840394293899440e-2 * t191 * t14 * t76 - 0.20335893596195932960e-3 * t197 * t42 * t261 - 0.20335893596195932960e-3 * t91 * t129 * t94 - 0.96837588553313966480e-5 * t98 * t243;
697   t272 = t6 * t270 * t63;
698   t275 = t135 * t115;
699   t276 = t275 * t57;
700   t281 = t215 * t144;
701   t284 = t58 * t108;
702   t288 = 0.1e1 / t16 / t284 * t1 * t112;
703   t289 = t229 * sigma[0];
704   t290 = t228 * t289;
705   t291 = t226 * t290;
706   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
707     v2rhosigma[0] = -t236 * t137 / 0.2e1 - 0.3e1 / 0.8e1 * t69 * t272 - t113 * t276 / 0.768e3 - 0.5e1 / 0.1536e4 * t113 * t145 + t143 * t281 / 0.2048e4 + t288 * t291 / 0.294912e6;
708 
709   t294 = t28 * t34;
710   t301 = t71 * t59;
711   t306 = 0.1e1 / sigma[0];
712   t307 = t13 * t306;
713   t311 = 0.1e1 / t31;
714   t315 = 0.1e1 / t198;
715   t316 = t40 * t315;
716   t320 = -0.34209724127419600671e-4 * t164 * t294 * t38 - 0.69274691358024691358e-4 * t178 * t59 * sigma[0] - 0.71117275218021575094e-6 * t301 * sigma[0] - t81 * t294 / 0.288e3 + 0.11438940147860212290e-2 * t192 * t307 * t18 + 0.76259600985734748602e-4 * t197 * t311 * t128 - 0.76259600985734748600e-4 * t91 * t316 * t44;
717   t322 = t6 * t320 * t63;
718   t325 = t275 * t144;
719   t328 = t58 * t83;
720   t330 = 0.1e1 / t16 / t328;
721   t332 = t330 * t1 * t112;
722   t333 = t228 * t229;
723   t334 = t226 * t333;
724   t337 = t55 * sigma[0];
725   t338 = t116 * t337;
726   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
727     v2sigma2[0] = -0.3e1 / 0.8e1 * t69 * t322 + t143 * t325 / 0.1024e4 - t332 * t334 / 0.786432e6 + t143 * t338 / 0.1024e4;
728 
729 #ifndef XC_DONT_COMPILE_KXC
730 
731   if(order < 3) return;
732 
733 
734   t342 = 0.1e1 / t16 / rho[0];
735   t352 = 0.1e1 / t16 / t247;
736   t354 = t4 * t6 * t352;
737   t363 = t219 * rho[0];
738   t367 = t4 * t6 / t16 / t363;
739   t370 = t70 * t70;
740   t371 = 0.1e1 / t370;
741   t372 = t371 * t55;
742   t373 = t58 * t74;
743   t374 = 0.1e1 / t373;
744   t375 = t56 * t374;
745   t380 = 0.1e1 / t8 / t58;
746   t385 = t163 * t9;
747   t387 = 0.1e1 / t12 / t54;
748   t388 = t387 * t229;
749   t389 = t58 * t32;
750   t391 = 0.1e1 / t16 / t389;
751   t396 = 0.1e1 / t16 / t32;
752   t403 = t163 * t55;
753   t404 = t403 * t229;
754   t406 = t391 * t9 * t13;
755   t409 = t163 * t229;
756   t414 = t82 * t380;
757   t417 = sqrt(t46);
758   t418 = t417 * t49;
759   t419 = t196 * t198;
760   t420 = 0.1e1 / t108;
761   t424 = t190 * t26;
762   t427 = t99 * t396;
763   t430 = t190 * t196;
764   t431 = t430 * t30;
765   t433 = t380 * t26 * t40;
766   t440 = 0.1e1 / t8 / t31;
767   t446 = -0.60066456629762810506e-4 * t372 * t375 * t38 + 0.26759606428559332080e-2 * t165 * t30 * t380 * t38 - 0.13514952741696632364e-4 * t385 * t388 * t391 - 0.15172696844993141289e0 * t73 * sigma[0] * t396 * t38 + 0.67324737082761774120e-2 * t178 * t375 - 0.13514952741696632364e-4 * t404 * t406 - 0.13874426501915503143e-6 * t409 * t406 + 0.82601398179153947962e-4 * t184 * t374 + 0.209e3 / 0.486e3 * t81 * t414 - 0.97612289261740478210e-1 * t418 * t419 * t420 - 0.90381749316426368713e-3 * t424 * t414 - 0.56940502069348612290e-1 * t192 * t427 - 0.18076349863285273742e-2 * t431 * t433 - 0.48806144630870239106e-2 * t197 * t198 * t420 - 0.31633612260749229050e-2 * t91 * t92 * t440 - 0.16569987374678167598e-3 * t98 * t427;
768   t451 = t210 * t115;
769   t452 = t451 * t57;
770   t455 = t103 * t225;
771   t456 = t455 * t231;
772   t463 = 0.1e1 / t16 / t219 / t247 * t1 * t112;
773   t464 = t114 * t114;
774   t465 = 0.1e1 / t464;
775   t466 = t52 * t465;
776   t468 = 0.1e1 / t227 / t54;
777   t469 = t229 * t229;
778   t470 = t469 * sigma[0];
779   t471 = t468 * t470;
780   t472 = t466 * t471;
781   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
782     v3rho3[0] = t7 * t342 * t52 * t63 / 0.9e1 - t7 * t148 * t103 * t63 / 0.2e1 - 0.83e2 / 0.1152e4 * t354 * t117 - 0.3e1 / 0.2e1 * t7 * t8 * t210 * t63 + 0.19e2 / 0.768e3 * t159 * t216 + 0.23e2 / 0.110592e6 * t367 * t232 - 0.3e1 / 0.8e1 * t69 * t6 * t446 * t63 - t113 * t452 / 0.256e3 - t223 * t456 / 0.36864e5 - t463 * t472 / 0.10616832e8;
783 
784   t476 = t148 * t1 * t3;
785   t482 = t180 * t38;
786   t490 = t58 * t31;
787   t492 = 0.1e1 / t16 / t490;
788   t493 = t387 * t492;
789   t497 = t13 * t173;
790   t504 = t403 * t492;
791   t506 = t56 * t9 * t13;
792   t509 = t163 * t56;
793   t516 = t124 * t167;
794   t528 = t430 * sigma[0];
795   t530 = t167 * t26 * t40;
796   t541 = 0.22524921236161053940e-4 * t372 * t482 * t30 - 0.82103337905807041610e-3 * t165 * t167 * t38 * sigma[0] + 0.50681072781362371364e-5 * t385 * t493 * t56 + 0.32512921810699588478e-1 * t72 * t497 * t38 - 0.21552126200274348423e-2 * t178 * t180 * t30 + 0.50681072781362371364e-5 * t504 * t506 + 0.52029099382183136787e-7 * t509 * t492 * t9 * t13 - 0.27182602972221579814e-4 * t252 * t180 - 0.19e2 / 0.162e3 * t81 * t516 + 0.36604608473152679328e-1 * t418 * t196 * t199 * t42 + 0.33893155993659888267e-3 * t424 * t516 + 0.15251920197146949720e-1 * t191 * t14 * t173 + 0.67786311987319776533e-3 * t528 * t530 + 0.14235125517337153072e-2 * t197 * t42 * t199 + 0.47450418391123843573e-3 * t91 * t129 * t204 + 0.35507115802881787709e-4 * t98 * t497;
797   t543 = t6 * t541 * t63;
798   t546 = t270 * t115;
799   t547 = t546 * t57;
800   t550 = t135 * t225;
801   t551 = t550 * t231;
802   t560 = t451 * t144;
803   t563 = t455 * t290;
804   t570 = 0.1e1 / t16 / t219 / t58 * t1 * t112;
805   t571 = t468 * t469;
806   t572 = t466 * t571;
807   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
808     v3rho2sigma[0] = -t476 * t137 / 0.6e1 - t236 * t272 + 0.19e2 / 0.2304e4 * t159 * t276 - 0.3e1 / 0.8e1 * t69 * t543 - t113 * t547 / 0.384e3 - t223 * t551 / 0.110592e6 + 0.115e3 / 0.4608e4 * t159 * t145 - 0.5e1 / 0.768e3 * t113 * t281 - 0.67e2 / 0.884736e6 * t223 * t291 + t143 * t560 / 0.2048e4 + t288 * t563 / 0.147456e6 + t570 * t572 / 0.28311552e8;
809 
810   t577 = t248 * t38;
811   t581 = t28 * t85;
812   t586 = 0.1e1 / t16 / t373;
813   t587 = t387 * t586;
814   t591 = t403 * t586;
815   t593 = t30 * t9 * t13;
816   t599 = t163 * t586;
817   t602 = t71 * t248;
818   t607 = t196 * t128;
819   t626 = -0.84468454635603952274e-5 * t372 * t577 * sigma[0] + 0.18245186201290453691e-3 * t164 * t581 * t38 - 0.19005402293010889262e-5 * t385 * t587 * t30 - 0.19005402293010889261e-5 * t591 * t593 + 0.55419753086419753086e-3 * t178 * t248 * sigma[0] - 0.19510912268318676295e-7 * t599 * t593 + 0.75858426899223013434e-5 * t602 * sigma[0] + t81 * t581 / 0.54e2 - 0.13726728177432254748e-1 * t418 * t607 * t261 - 0.12709933497622458100e-3 * t424 * t581 - 0.15251920197146949720e-2 * t192 * t307 * t76 - 0.25419866995244916200e-3 * t430 * t85 * t26 * t40 - 0.25419866995244916201e-3 * t197 * t261 * t128 + 0.10167946798097966480e-3 * t91 * t316 * t94;
820   t628 = t6 * t626 * t63;
821   t631 = t320 * t115;
822   t632 = t631 * t57;
823   t637 = t546 * t144;
824   t640 = t550 * t290;
825   t645 = t455 * t333;
826   t652 = 0.1e1 / t16 / t219 / t108 * t1 * t112;
827   t654 = t468 * t229 * t56;
828   t655 = t466 * t654;
829   t660 = t215 * t337;
830   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
831     v3rhosigma2[0] = -t236 * t322 / 0.2e1 - 0.3e1 / 0.8e1 * t69 * t628 - t113 * t632 / 0.768e3 - 0.5e1 / 0.768e3 * t113 * t325 + t143 * t637 / 0.1024e4 + t288 * t640 / 0.147456e6 + 0.5e1 / 0.196608e6 * t288 * t334 - t332 * t645 / 0.786432e6 - t652 * t655 / 0.75497472e8 - 0.5e1 / 0.768e3 * t113 * t338 + t143 * t660 / 0.1024e4;
832 
833   t667 = 0.1e1 / t16 / t179;
834   t668 = t387 * t667;
835   t674 = sigma[0] * t9 * t13;
836   t679 = t163 * t667;
837   t690 = 0.1e1 / t30;
838   t691 = t13 * t690;
839   t695 = t430 * t34;
840   t697 = t306 * t26 * t40;
841   t703 = t42 * t30;
842   t704 = 0.1e1 / t703;
843   t705 = t40 * t704;
844   t709 = 0.31675670488351482103e-5 * t372 * t59 * t38 + 0.71270258598790834731e-6 * t385 * t668 * sigma[0] + 0.71270258598790834731e-6 * t403 * t667 * t674 - 0.69274691358024691358e-4 * t178 * t59 + 0.73165921006195036105e-8 * t679 * t674 - 0.14223455043604315019e-5 * t301 + 0.51475230665370955305e-2 * t418 * t196 * t315 * t311 + 0.47662250616084217875e-4 * t424 * t294 * t306 - 0.17158410221790318435e-2 * t192 * t691 * t18 + 0.95324501232168435752e-4 * t695 * t697 - 0.57194700739301061451e-4 * t197 * t311 * t315 + 0.11438940147860212290e-3 * t91 * t705 * t44;
845   t711 = t6 * t709 * t63;
846   t714 = t631 * t144;
847   t717 = t550 * t333;
848   t720 = t275 * t337;
849   t727 = 0.1e1 / t16 / t219 / t83 * t1 * t112;
850   t728 = t468 * t230;
851   t729 = t466 * t728;
852   t732 = t228 * t56;
853   t733 = t226 * t732;
854   t736 = t142 * t3;
855   t738 = t115 * t55;
856   t739 = t6 * t52 * t738;
857   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
858     v3sigma3[0] = -0.3e1 / 0.8e1 * t69 * t711 + 0.3e1 / 0.2048e4 * t143 * t714 - t332 * t717 / 0.262144e6 + 0.3e1 / 0.1024e4 * t143 * t720 + t727 * t729 / 0.201326592e9 - t332 * t733 / 0.131072e6 + t736 * t739 / 0.1024e4;
859 
860 #ifndef XC_DONT_COMPILE_LXC
861 
862   if(order < 4) return;
863 
864 
865   t753 = 0.1e1 / t490;
866   t754 = t56 * t753;
867   t762 = t371 * t26;
868   t765 = 0.1e1 / t11 / t54 / t10;
869   t768 = 0.1e1 / t8 / t363;
870   t774 = t768 * t26 * t28;
871   t777 = t417 * t9;
872   t779 = 0.1e1 / t12 / t10;
873   t794 = t330 * t9 * t13;
874   t799 = -0.82486486816034141137e-1 * t178 * t754 - 0.11434955462216209803e-2 * t184 * t753 + 0.33336883429518359831e-3 * t385 * t388 * t330 - 0.55617089472002602321e-6 * t762 * t765 * t289 * t768 - 0.57096405357676967667e-8 * t371 * t289 * t774 + 0.10845809917971164246e-1 * t777 * t779 * t703 * t667 + 0.40912805190569002904e-1 * t197 * t198 * t59 + 0.13214620458547818311e-2 * t372 * t754 * t38 - 0.11123417894400520464e-5 * t372 * t289 * t774 + 0.36940870827304128461e-3 * t404 * t794 + 0.41623279505746509429e-5 * t409 * t794;
875   t801 = 0.1e1 / t8 / t247;
876   t802 = t82 * t801;
877   t808 = t777 * t13;
878   t815 = t99 * t141;
879   t820 = 0.1e1 / t370 / t22 * t55;
880   t826 = t30 * t801;
881   t834 = 0.1e1/sqrt(t46);
882   t836 = t834 * t49 * t196;
883   t849 = -0.5225e4 / 0.1458e4 * t81 * t802 + 0.13665720496643666950e1 * t418 * t419 * t59 + 0.32537429753913492736e-1 * t808 * t703 * t667 * t196 + 0.13858534895185376536e-1 * t424 * t802 + 0.93896595123176283055e-3 * t98 * t815 - 0.32958275242668208782e-5 * t820 * t229 * t330 * t38 * t14 - 0.26462277468242006168e-1 * t165 * t826 * t38 + 0.85978615454961133971e0 * t73 * sigma[0] * t141 * t38 + 0.65074859507826985473e-1 * t836 * t826 * t41 + 0.38593006958114059441e0 * t192 * t815 + 0.31332339763027807821e-1 * t431 * t801 * t26 * t40 + 0.13707898646324665922e-1 * t91 * t92 * t34;
884   t883 = t446 * t115;
885   t887 = t210 * t225;
886   t891 = t103 * t465;
887   t895 = t219 * t219;
888   t903 = t52 / t464 / t62;
889   t904 = t227 * t227;
890   t905 = 0.1e1 / t904;
891   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
892     v4rho4[0] = 0.4e1 / 0.9e1 * t7 * t342 * t103 * t63 - t7 * t148 * t210 * t63 - 0.2e1 * t7 * t8 * t446 * t63 - 0.3e1 / 0.8e1 * t69 * t6 * (t799 + t849) * t63 - 0.5e1 / 0.27e2 * t7 * t18 * t52 * t63 + 0.7225e4 / 0.10368e5 * t4 * t6 * t667 * t117 - 0.83e2 / 0.288e3 * t354 * t216 - 0.1385e4 / 0.331776e6 * t4 * t6 / t16 / t219 / t15 * t232 + 0.19e2 / 0.384e3 * t159 * t452 + 0.23e2 / 0.27648e5 * t367 * t456 + 0.73e2 / 0.15925248e8 * t4 * t6 / t16 / t219 / t179 * t472 - t113 * t883 * t57 / 0.192e3 - t223 * t887 * t231 / 0.18432e5 - t463 * t891 * t471 / 0.2654208e7 - 0.1e1 / t16 / t895 / t15 * t1 * t112 * t903 * t905 * t469 * t229 / 0.764411904e9;
893 
894   t919 = t124 * t380;
895   t938 = t13 * t396;
896   t950 = -0.14047856833189446932e-5 * t509 * t406 + 0.209e3 / 0.243e3 * t81 * t919 - 0.40265069320467947261e0 * t418 * t196 * t420 * t42 - 0.12201536157717559776e-1 * t808 * t198 * t352 * t196 - 0.41801559058847195529e-2 * t424 * t919 - 0.80665711264910534075e-1 * t191 * t14 * t396 - 0.98516106754904741896e-2 * t197 * t42 * t420 - 0.16569987374678167598e-3 * t98 * t938 + 0.23358399634202103338e-1 * t178 * t374 * t30 + 0.33588425688155967615e-3 * t252 * t374 - 0.10980899102628513796e-3 * t385 * t387 * t391 * t56;
897   t952 = 0.1e1 / t8 / t219;
898   t998 = 0.20856408552000975870e-6 * t762 * t765 * t952 * t229 + 0.21411152009128862875e-8 * t371 * t229 * t952 * t26 * t28 - 0.40671787192391865920e-2 * t777 * t779 * t198 * t352 - 0.42797350348706002486e-3 * t372 * t374 * t38 * t30 + 0.41712817104001951740e-6 * t372 * t952 * t29 * t229 - 0.15172696844993141290e0 * t72 * t938 * t38 - 0.12332394376798177032e-3 * t403 * t391 * t506 + 0.12359353216000578294e-5 * t820 * t391 * t38 * t56 * t14 + 0.69128983273778274541e-2 * t165 * t380 * t38 * sigma[0] - 0.24403072315435119552e-1 * t836 * t380 * sigma[0] * t41 - 0.97160380515158346364e-2 * t528 * t433 - 0.15816806130374614524e-2 * t91 * t129 * t440;
899   t1014 = t541 * t115;
900   t1018 = t270 * t225;
901   t1022 = t135 * t465;
902   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
903     v4rho3sigma[0] = -0.1495e4 / 0.6912e4 * t354 * t145 - t476 * t272 / 0.2e1 - 0.3e1 / 0.2e1 * t236 * t543 - 0.3e1 / 0.8e1 * t69 * t6 * (t950 + t998) * t63 + t342 * t1 * t3 * t137 / 0.9e1 - 0.83e2 / 0.1152e4 * t354 * t276 + 0.19e2 / 0.768e3 * t159 * t547 + 0.23e2 / 0.110592e6 * t367 * t551 - t113 * t1014 * t57 / 0.256e3 - t223 * t1018 * t231 / 0.36864e5 - t463 * t1022 * t471 / 0.10616832e8 + 0.115e3 / 0.1536e4 * t159 * t281 + 0.635e3 / 0.442368e6 * t367 * t291 - 0.5e1 / 0.512e3 * t113 * t560 - 0.67e2 / 0.294912e6 * t223 * t563 - 0.47e2 / 0.28311552e8 * t463 * t572 + t143 * t883 * t144 / 0.2048e4 + t288 * t887 * t290 / 0.98304e5 + t570 * t891 * t571 / 0.9437184e7 + 0.1e1 / t16 / t895 / rho[0] * t1 * t112 * t903 * t905 * t469 * t56 / 0.2038431744e10;
904 
905   t1078 = 0.1e1 / t8 / t284;
906   t1080 = t29 * t56;
907   t1083 = t28 * t167;
908   t1126 = 0.91511521182881698319e-2 * t836 * t530 + 0.45755760591440849160e-2 * t808 * t42 * t157 * t196 + 0.24572538095403418994e-2 * t430 * t530 + 0.32309183898118511745e-4 * t385 * t493 * t30 - 0.78211532070003659514e-7 * t762 * t765 * t1078 * t56 - 0.49877777777777777777e-2 * t178 * t180 * sigma[0] - 0.80291820034233235782e-9 * t371 * t1078 * t1080 - 0.19e2 / 0.162e3 * t81 * t1083 + 0.97442823481772178766e-3 * t424 * t1083 + 0.15251920197146949720e-2 * t777 * t779 * t157 * t42 + 0.12032070377749260335e-2 * t197 * t199 * t128;
909   t1140 = t626 * t115;
910   t1144 = t320 * t225;
911   t1186 = -0.67e2 / 0.442368e6 * t223 * t640 + t143 * t1014 * t144 / 0.1024e4 + t288 * t1018 * t290 / 0.73728e5 + t570 * t1022 * t571 / 0.14155776e8 + 0.5e1 / 0.98304e5 * t288 * t645 + 0.131e3 / 0.226492416e9 * t570 * t655 - t332 * t887 * t333 / 0.786432e6 - t652 * t891 * t654 / 0.37748736e8 - 0.1e1 / t16 / t895 * t1 * t112 * t903 * t905 * t469 * t30 / 0.5435817984e10 - 0.5e1 / 0.384e3 * t113 * t660 + t143 * t451 * t337 / 0.1024e4;
912   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
913     v4rho2sigma2[0] = -t476 * t322 / 0.6e1 - t236 * t628 - 0.3e1 / 0.8e1 * t69 * t6 * (-0.78387041129197113882e-4 * t71 * t180 * sigma[0] - 0.46347574560002168600e-6 * t820 * t492 * t38 * t30 * t14 + 0.37377291176254748880e-4 * t504 * t593 + 0.35587813793342882680e-2 * t192 * t307 * t173 - 0.23725209195561921787e-3 * t91 * t316 * t204 + 0.12107145164436566493e-3 * t372 * t482 * sigma[0] - 0.15642306414000731902e-6 * t372 * t1078 * t1080 - 0.11555284594150620671e-2 * t164 * t1083 * t38 + 0.43574370732578377058e-6 * t163 * t492 * t593 + 0.86935945123737613404e-1 * t418 * t607 * t199 + t1126) * t63 + 0.115e3 / 0.2304e4 * t159 * t325 - 0.785e3 / 0.1769472e7 * t223 * t334 + 0.115e3 / 0.2304e4 * t159 * t338 + 0.19e2 / 0.2304e4 * t159 * t632 - t113 * t1140 * t57 / 0.384e3 - t223 * t1144 * t231 / 0.110592e6 - 0.5e1 / 0.384e3 * t113 * t637 + t1186;
914 
915   t1190 = 0.1e1 / t8 / t328;
916   t1193 = t30 * t26 * t28;
917   t1228 = t38 * t9;
918   t1247 = 0.30109432512837463418e-9 * t371 * t1190 * t1193 - 0.57194700739301061450e-3 * t777 * t779 * t110 * t128 + 0.15251920197146949720e-3 * t197 * t261 * t315 - 0.25340536390681185682e-4 * t372 * t577 + 0.29329324526251372317e-7 * t762 * t765 * t1190 * t30 + 0.11378764034883452015e-4 * t602 + 0.55419753086419753086e-3 * t178 * t248 + 0.58658649052502744635e-7 * t372 * t1190 * t1193 - 0.76021609172043557047e-5 * t385 * t587 * sigma[0] - 0.11706547360991205777e-6 * t599 * t674 - 0.17158410221790318435e-2 * t808 * t128 * t110 * t196 - 0.6354966748811229050e-4 * t424 * t581 * t306 + 0.17380340460000813225e-6 * t820 * t586 * t1228 * t99 - 0.95027011465054446308e-5 * t591 * t674 - 0.34316820443580636870e-2 * t836 * t306 * t85 * t41 + 0.22877880295720424580e-2 * t192 * t691 * t76 - 0.31774833744056145251e-3 * t430 * t85 * t697 - 0.15251920197146949720e-3 * t91 * t705 * t94;
919   t1252 = t709 * t115;
920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
921     v4rhosigma3[0] = -t236 * t711 / 0.2e1 - 0.3e1 / 0.8e1 * t69 * t6 * t1247 * t63 - t113 * t1252 * t57 / 0.768e3 - 0.5e1 / 0.512e3 * t113 * t714 + 0.3e1 / 0.2048e4 * t143 * t1140 * t144 + t288 * t1144 * t290 / 0.98304e5 + 0.5e1 / 0.65536e5 * t288 * t717 - t332 * t1018 * t333 / 0.262144e6 - t652 * t1022 * t654 / 0.25165824e8 - 0.5e1 / 0.256e3 * t113 * t720 + 0.3e1 / 0.1024e4 * t143 * t546 * t337 - 0.29e2 / 0.150994944e9 * t652 * t729 + t727 * t891 * t728 / 0.201326592e9 + 0.1e1 / t16 / t219 / t284 * t1 * t112 * t903 * t905 * t470 / 0.14495514624e11 + 0.35e2 / 0.294912e6 * t288 * t733 - t332 * t455 * t732 / 0.131072e6 - 0.5e1 / 0.768e3 * t111 * t3 * t739 + t736 * t104 * t738 / 0.1024e4;
922 
923   t1305 = 0.1e1 / t8 / t389;
924   t1308 = sigma[0] * t26 * t28;
925   t1365 = 0.21949776301858510832e-7 * t679 * t14 - 0.11291037192314048782e-9 * t371 * t1305 * t1308 + 0.21448012777237898044e-3 * t777 * t779 * t141 * t315 + 0.11438940147860212290e-3 * t197 * t311 * t704 + 0.71270258598790834731e-6 * t385 * t668 - 0.10998496697344264619e-7 * t762 * t765 * t1305 * sigma[0] + 0.42896025554475796088e-2 * t192 * t13 / t56 * t18 - 0.16681787715629476257e-3 * t695 * t690 * t26 * t40 - 0.28597350369650530725e-3 * t91 * t40 / t42 / t56 * t44 + 0.12868807666342738826e-2 * t836 * t690 * t34 * t41 - 0.15442569199611286592e-1 * t418 * t196 * t704 * t311 + 0.64344038331713694132e-3 * t808 * t141 * t196 * t315 - 0.11915562654021054469e-3 * t424 * t294 * t690 - 0.65176276725003049595e-7 * t820 * t667 * t1228 * t13 - 0.21996993394688529238e-7 * t372 * t1305 * t1308 + 0.14254051719758166946e-5 * t403 * t667 * t9 * t13;
926   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
927     v4sigma4[0] = -0.3e1 / 0.8e1 * t69 * t6 * t1365 * t63 + t143 * t1252 * t144 / 0.512e3 - t332 * t1144 * t333 / 0.131072e6 + 0.3e1 / 0.512e3 * t143 * t631 * t337 + t727 * t1022 * t728 / 0.50331648e8 - t332 * t550 * t732 / 0.32768e5 + t736 * t136 * t738 / 0.256e3 - 0.1e1 / t16 / t219 / t328 * t1 * t112 * t903 * t905 * t469 / 0.38654705664e11 + t727 * t466 * t468 * t289 / 0.16777216e8 - 0.5e1 / 0.196608e6 * t332 * t226 * t228 * t30;
928 
929 #ifndef XC_DONT_COMPILE_MXC
930 
931   if(order < 5) return;
932 
933 
934 #endif
935 
936 #endif
937 
938 #endif
939 
940 #endif
941 
942 #endif
943 
944 
945 }
946 
947 
948 static inline void
func_pol(const xc_func_type * p,int order,const double * rho,const double * sigma,double * zk,GGA_OUT_PARAMS_NO_EXC (double *))949 func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
950 {
951 
952 #ifndef XC_DONT_COMPILE_EXC
953   double t1, t3, t4, t5, t6, t7, t8, t9;
954   double t10, t11, t13, t14, t15, t16, t17, t18;
955   double t19, t20, t21, t22, t23, t24, t25, t26;
956   double t28, t30, t32, t35, t36, t38, t39, t40;
957   double t41, t42, t44, t48, t50, t51, t52, t54;
958   double t56, t57, t59, t62, t63, t64, t65, t66;
959   double t67, t68, t71, t72, t73, t75, t77, t78;
960   double t79, t80, t81, t82, t83, t85, t87, t89;
961   double t92, t93, t94, t95, t97, t101, t103, t105;
962   double t107, t108, t110, t113, t114, t115, t116, t117;
963   double t120, t121, t122, t124;
964 
965 #ifndef XC_DONT_COMPILE_VXC
966   double t126, t127, t128, t129, t130, t131, t132, t133;
967   double t135, t136, t138, t139, t140, t141, t142, t144;
968   double t145, t146, t147, t148, t149, t150, t152, t157;
969   double t158, t159, t161, t165, t167, t168, t170, t174;
970   double t175, t179, t180, t182, t183, t184, t186, t187;
971   double t188, t189, t190, t191, t192, t193, t194, t195;
972   double t196, t197, t198, t199, t200, t202, t203, t204;
973   double t206, t207, t211, t212, t214, t215, t216, t217;
974   double t219, t220, t221, t222, t223, t224, t225, t227;
975   double t232, t233, t234, t236, t240, t242, t243, t245;
976   double t249, t250, t254, t255, t257, t258, t259, t261;
977   double t262, t263, t264, t265, t266, t267, t268, t269;
978   double t270, t273, t277, t281, t282, t288, t289, t292;
979   double t293, t294, t295, t297, t299, t303, t307, t308;
980   double t314, t315, t318, t319, t320, t321, t323;
981 
982 #ifndef XC_DONT_COMPILE_FXC
983   double t325, t328, t329, t330, t331, t332, t333, t334;
984   double t336, t337, t338, t340, t341, t342, t344, t346;
985   double t347, t348, t349, t350, t351, t352, t353, t354;
986   double t355, t357, t358, t360, t361, t363, t364, t366;
987   double t367, t369, t370, t371, t373, t374, t375, t376;
988   double t378, t384, t389, t390, t391, t395, t401, t402;
989   double t403, t404, t407, t408, t409, t410, t415, t421;
990   double t422, t424, t425, t426, t427, t428, t429, t431;
991   double t432, t433, t434, t435, t436, t437, t438, t440;
992   double t441, t442, t443, t444, t445, t446, t447, t448;
993   double t449, t450, t451, t452, t453, t454, t456, t457;
994   double t458, t460, t461, t462, t463, t465, t466, t467;
995   double t469, t470, t471, t473, t475, t478, t481, t483;
996   double t484, t485, t488, t489, t490, t492, t497, t499;
997   double t502, t504, t505, t507, t510, t512, t515, t518;
998   double t519, t520, t521, t522, t523, t526, t527, t529;
999   double t533, t534, t536, t537, t538, t539, t540, t542;
1000   double t543, t544, t545, t547, t548, t549, t551, t552;
1001   double t553, t554, t555, t556, t557, t559, t560, t561;
1002   double t562, t564, t565, t566, t567, t569, t575, t580;
1003   double t581, t582, t583, t586, t592, t593, t594, t595;
1004   double t598, t599, t600, t605, t611, t612, t614, t615;
1005   double t616, t617, t618, t619, t621, t622, t623, t624;
1006   double t625, t626, t628, t629, t630, t631, t632, t633;
1007   double t634, t635, t636, t637, t639, t641, t642, t644;
1008   double t645, t650, t654, t657, t666, t675, t676, t678;
1009   double t679, t680, t681, t682, t683, t684, t685, t686;
1010   double t687, t688, t689, t690, t691, t692, t693, t694;
1011   double t695, t696, t697, t698, t699, t700, t701, t702;
1012   double t703, t704, t705, t706, t709, t711, t712, t714;
1013   double t715, t716, t717, t718, t719, t720, t721, t722;
1014   double t726, t727, t728, t729, t730, t731, t735, t736;
1015   double t741, t745, t748, t757, t766, t767, t769, t770;
1016   double t771, t772, t773, t774, t775, t776, t777, t778;
1017   double t779, t780, t781, t782, t783, t784, t785, t786;
1018   double t787, t788, t789, t790, t791, t792, t793, t796;
1019   double t800, t803, t808, t809, t813, t817, t818, t822;
1020   double t823, t826, t827, t829, t830, t831, t832, t833;
1021   double t835, t836, t837, t838, t840, t842, t846, t849;
1022   double t854, t855, t859, t863, t864, t868, t869, t872;
1023   double t873, t875, t876, t877, t878, t879, t881, t882;
1024   double t883, t884, t886;
1025 
1026 #ifndef XC_DONT_COMPILE_KXC
1027   double t893, t895, t902, t904, t905, t906, t908, t909;
1028   double t911, t912, t913, t914, t915, t917, t918, t920;
1029   double t922, t924, t925, t927, t928, t929, t930, t931;
1030   double t933, t934, t936, t938, t940, t941, t943, t944;
1031   double t945, t947, t949, t951, t953, t954, t956, t957;
1032   double t958, t959, t960, t962, t963, t965, t966, t968;
1033   double t970, t971, t973, t974, t975, t976, t977, t978;
1034   double t979, t980, t985, t990, t992, t993, t994, t996;
1035   double t1001, t1008, t1009, t1011, t1014, t1019, t1022, t1023;
1036   double t1024, t1025, t1029, t1032, t1035, t1036, t1038, t1045;
1037   double t1051, t1052, t1054, t1055, t1056, t1058, t1059, t1060;
1038   double t1061, t1063, t1064, t1066, t1067, t1069, t1071, t1072;
1039   double t1073, t1075, t1076, t1077, t1078, t1079, t1081, t1082;
1040   double t1084, t1085, t1086, t1087, t1088, t1089, t1090, t1091;
1041   double t1092, t1093, t1094, t1095, t1097, t1098, t1099, t1100;
1042   double t1102, t1104, t1105, t1106, t1107, t1108, t1109, t1110;
1043   double t1111, t1112, t1113, t1114, t1116, t1117, t1118, t1119;
1044   double t1121, t1122, t1123, t1124, t1125, t1126, t1128, t1129;
1045   double t1130, t1132, t1133, t1134, t1135, t1136, t1137, t1138;
1046   double t1139, t1140, t1141, t1145, t1147, t1149, t1151, t1153;
1047   double t1155, t1157, t1159, t1161, t1164, t1165, t1166, t1168;
1048   double t1170, t1172, t1175, t1176, t1178, t1179, t1181, t1184;
1049   double t1185, t1187, t1189, t1191, t1194, t1196, t1198, t1200;
1050   double t1202, t1204, t1207, t1209, t1211, t1212, t1218, t1222;
1051   double t1224, t1226, t1228, t1231, t1235, t1236, t1237, t1239;
1052   double t1240, t1241, t1243, t1244, t1246, t1248, t1249, t1250;
1053   double t1251, t1254, t1255, t1256, t1257, t1260, t1261, t1262;
1054   double t1263, t1264, t1265, t1266, t1267, t1271, t1272, t1278;
1055   double t1280, t1281, t1282, t1283, t1284, t1286, t1292, t1294;
1056   double t1295, t1297, t1298, t1299, t1301, t1303, t1305, t1307;
1057   double t1309, t1311, t1313, t1315, t1317, t1319, t1321, t1323;
1058   double t1325, t1328, t1331, t1334, t1336, t1338, t1341, t1344;
1059   double t1347, t1350, t1351, t1353, t1355, t1357, t1358, t1359;
1060   double t1361, t1363, t1365, t1370, t1376, t1380, t1382, t1383;
1061   double t1384, t1386, t1387, t1388, t1390, t1392, t1393, t1394;
1062   double t1395, t1397, t1398, t1399, t1401, t1402, t1403, t1404;
1063   double t1405, t1407, t1409, t1411, t1415, t1417, t1418, t1419;
1064   double t1420, t1421, t1423, t1424, t1425, t1427, t1433, t1436;
1065   double t1449, t1451, t1452, t1453, t1455, t1456, t1457, t1458;
1066   double t1460, t1461, t1462, t1463, t1465, t1466, t1468, t1469;
1067   double t1471, t1472, t1474, t1475, t1477, t1478, t1480, t1481;
1068   double t1482, t1483, t1485, t1486, t1491, t1492, t1494, t1495;
1069   double t1496, t1497, t1498, t1499, t1504, t1509, t1510, t1511;
1070   double t1513, t1518, t1525, t1526, t1528, t1531, t1536, t1539;
1071   double t1540, t1541, t1542, t1546, t1549, t1552, t1553, t1555;
1072   double t1562, t1568, t1569, t1571, t1572, t1573, t1574, t1576;
1073   double t1577, t1578, t1580, t1581, t1582, t1583, t1584, t1585;
1074   double t1586, t1587, t1588, t1592, t1593, t1594, t1595, t1596;
1075   double t1597, t1598, t1599, t1600, t1601, t1602, t1603, t1604;
1076   double t1605, t1607, t1608, t1609, t1610, t1611, t1612, t1613;
1077   double t1614, t1615, t1616, t1617, t1618, t1619, t1620, t1621;
1078   double t1622, t1623, t1624, t1625, t1626, t1627, t1628, t1629;
1079   double t1630, t1631, t1632, t1635, t1639, t1644, t1645, t1646;
1080   double t1648, t1649, t1650, t1652, t1654, t1655, t1656, t1657;
1081   double t1658, t1659, t1660, t1661, t1662, t1663, t1664, t1665;
1082   double t1666, t1667, t1668, t1669, t1670, t1671, t1672, t1673;
1083   double t1674, t1675, t1676, t1678, t1679, t1680, t1681, t1682;
1084   double t1683, t1684, t1685, t1686, t1687, t1688, t1689, t1690;
1085   double t1691, t1692, t1693, t1694, t1695, t1696, t1697, t1698;
1086   double t1699, t1700, t1701, t1703, t1704, t1706, t1707, t1708;
1087   double t1716, t1718, t1719, t1723, t1727, t1730, t1732, t1735;
1088   double t1742, t1754, t1756, t1767, t1768, t1770, t1771, t1772;
1089   double t1773, t1774, t1775, t1776, t1777, t1778, t1779, t1780;
1090   double t1781, t1782, t1783, t1784, t1785, t1786, t1787, t1788;
1091   double t1789, t1790, t1791, t1792, t1793, t1794, t1795, t1796;
1092   double t1797, t1798, t1799, t1800, t1803, t1805, t1807, t1808;
1093   double t1809, t1811, t1812, t1814, t1815, t1817, t1818, t1819;
1094   double t1820, t1821, t1822, t1823, t1824, t1825, t1826, t1827;
1095   double t1828, t1829, t1830, t1834, t1837, t1840, t1842, t1843;
1096   double t1844, t1846, t1848, t1853, t1854, t1855, t1856, t1857;
1097   double t1858, t1860, t1862, t1863, t1865, t1866, t1867, t1869;
1098   double t1870, t1871, t1873, t1874, t1875, t1881, t1884, t1887;
1099   double t1889, t1891, t1894, t1896, t1899, t1901, t1902, t1903;
1100   double t1905, t1907, t1908, t1909, t1910, t1911, t1912, t1914;
1101   double t1916, t1917, t1918, t1921, t1922, t1924, t1926, t1927;
1102   double t1928, t1929, t1931, t1933, t1934, t1935, t1937, t1939;
1103   double t1943, t1944, t1945, t1947, t1948, t1949, t1950, t1951;
1104   double t1952, t1953, t1954, t1955, t1956, t1957, t1967, t1969;
1105   double t1970, t1972, t1973, t1974, t1975, t1976, t1977, t1978;
1106   double t1979, t1980, t1981, t1982, t1983, t1984, t1985, t1986;
1107   double t1987, t1988, t1989, t1990, t1991, t1992, t1993, t1995;
1108   double t1996, t1997, t1998, t1999, t2000, t2001, t2002, t2003;
1109   double t2004, t2005, t2006, t2007, t2008, t2016, t2018, t2019;
1110   double t2023, t2027, t2030, t2032, t2035, t2042, t2054, t2056;
1111   double t2067, t2068, t2070, t2071, t2072, t2073, t2074, t2075;
1112   double t2076, t2077, t2078, t2079, t2080, t2081, t2082, t2083;
1113   double t2084, t2085, t2086, t2087, t2088, t2089, t2090, t2091;
1114   double t2092, t2093, t2094, t2095, t2096, t2097, t2098, t2099;
1115   double t2100, t2101, t2102, t2103, t2104, t2107, t2109, t2110;
1116   double t2112, t2113, t2114, t2118, t2123, t2124, t2128, t2130;
1117   double t2133, t2136, t2139, t2144, t2163, t2164, t2166, t2167;
1118   double t2168, t2169, t2170, t2171, t2172, t2173, t2174, t2175;
1119   double t2176, t2177, t2178, t2179, t2180, t2181, t2182, t2183;
1120   double t2184, t2185, t2186, t2187, t2188, t2189, t2190, t2191;
1121   double t2192, t2193, t2194, t2195, t2196, t2197, t2198, t2200;
1122   double t2201, t2202, t2203, t2204, t2205, t2206, t2207, t2208;
1123   double t2209, t2210, t2211, t2212, t2213, t2214, t2215, t2216;
1124   double t2217, t2218, t2219, t2220, t2221, t2222, t2224, t2226;
1125   double t2227, t2229, t2230, t2231, t2232, t2233, t2234, t2235;
1126   double t2236, t2237, t2238, t2239, t2240, t2241, t2242, t2243;
1127   double t2244, t2245, t2246, t2247, t2248, t2252, t2253, t2254;
1128   double t2255, t2256, t2257, t2258, t2259, t2260, t2261, t2262;
1129   double t2263, t2264, t2268, t2269, t2270, t2274, t2279, t2280;
1130   double t2284, t2286, t2289, t2292, t2295, t2300, t2319, t2320;
1131   double t2322, t2323, t2324, t2325, t2326, t2327, t2328, t2329;
1132   double t2330, t2331, t2332, t2333, t2334, t2335, t2336, t2337;
1133   double t2338, t2339, t2340, t2341, t2342, t2343, t2344, t2345;
1134   double t2346, t2347, t2348, t2350, t2351, t2352, t2353, t2354;
1135   double t2355, t2356, t2357, t2358, t2359, t2360, t2361, t2362;
1136   double t2363, t2364, t2365, t2366, t2367, t2368, t2369, t2370;
1137   double t2376, t2377, t2383, t2388, t2399, t2400, t2404, t2406;
1138   double t2412, t2413, t2414, t2418, t2419, t2422, t2423, t2425;
1139   double t2426, t2428, t2429, t2431, t2432, t2434, t2435, t2436;
1140   double t2438, t2439, t2440, t2441, t2443, t2444, t2445, t2448;
1141   double t2454, t2455, t2461, t2466, t2477, t2478, t2482, t2484;
1142   double t2490, t2491, t2492, t2496, t2497, t2500, t2501, t2503;
1143   double t2504, t2506, t2507, t2509, t2510, t2512, t2513, t2514;
1144   double t2516, t2517, t2518, t2519, t2521, t2522, t2523, t2526;
1145 
1146 #ifndef XC_DONT_COMPILE_LXC
1147   double t2545, t2546, t2547, t2570, t2584, t2596, t2598, t2600;
1148   double t2606, t2616, t2619, t2622, t2624, t2632, t2634, t2636;
1149   double t2638, t2640, t2642, t2644, t2647, t2650, t2653, t2654;
1150   double t2657, t2659, t2661, t2667, t2668, t2674, t2675, t2689;
1151   double t2697, t2698, t2700, t2708, t2717, t2720, t2723, t2729;
1152   double t2733, t2741, t2742, t2753, t2760, t2765, t2769, t2770;
1153   double t2775, t2776, t2778, t2783, t2784, t2786, t2790, t2791;
1154   double t2797, t2800, t2802, t2806, t2807, t2813, t2816, t2823;
1155   double t2835, t2846, t2852, t2853, t2854, t2857, t2864, t2866;
1156   double t2868, t2870, t2874, t2876, t2878, t2888, t2890, t2893;
1157   double t2894, t2896, t2898, t2907, t2921, t2923, t2927, t2933;
1158   double t2935, t2950, t2953, t2959, t2960, t2963, t2964, t2969;
1159   double t2974, t2978, t2982, t2984, t2986, t2987, t2992, t3013;
1160   double t3014, t3020, t3027, t3029, t3035, t3042, t3047, t3057;
1161   double t3064, t3073, t3079, t3083, t3088, t3099, t3105, t3106;
1162   double t3109, t3116, t3119, t3122, t3124, t3129, t3130, t3136;
1163   double t3138, t3140, t3141, t3144, t3148, t3149, t3158, t3172;
1164   double t3177, t3180, t3181, t3188, t3205, t3211, t3219, t3220;
1165   double t3235, t3236, t3239, t3240, t3241, t3242, t3247, t3259;
1166   double t3261, t3281, t3283, t3284, t3286, t3287, t3293, t3301;
1167   double t3308, t3319, t3320, t3322, t3329, t3350, t3365, t3383;
1168   double t3419, t3426, t3429, t3436, t3442, t3449, t3455, t3457;
1169   double t3491, t3500, t3510, t3536, t3539, t3541, t3546, t3549;
1170   double t3552, t3555, t3558, t3563, t3565, t3572, t3575, t3578;
1171   double t3581, t3584, t3591, t3598, t3620, t3626, t3627, t3634;
1172   double t3636, t3640, t3642, t3683, t3699, t3702, t3703, t3705;
1173   double t3711, t3716, t3722, t3730, t3732, t3737, t3743, t3753;
1174   double t3763, t3781, t3786, t3824, t3840, t3846, t3849, t3852;
1175   double t3855, t3858, t3861, t3864, t3871, t3880, t3894, t3907;
1176   double t3914, t3927, t3935, t3963, t3965, t3967, t3969, t3971;
1177   double t3973, t3975, t3984, t3986, t3988, t3990, t3991, t3993;
1178   double t4023, t4024, t4032, t4036, t4044, t4049, t4069, t4082;
1179   double t4087, t4089, t4091, t4092, t4096, t4106, t4107, t4112;
1180   double t4117, t4118, t4124, t4126, t4129, t4131, t4133, t4136;
1181   double t4158, t4168, t4177, t4207, t4211, t4217, t4220, t4227;
1182   double t4251, t4259, t4294, t4307, t4325, t4330, t4335, t4340;
1183   double t4359, t4390, t4399, t4402, t4404, t4407, t4409, t4418;
1184   double t4426, t4441, t4448, t4492, t4507, t4509, t4517, t4519;
1185   double t4521, t4536, t4548, t4552, t4554, t4556, t4561, t4563;
1186   double t4567, t4569, t4571, t4576, t4577, t4579, t4591, t4593;
1187   double t4602, t4626, t4628, t4634, t4643, t4651, t4655, t4660;
1188   double t4669, t4671, t4684, t4689, t4691, t4693, t4703, t4705;
1189   double t4707, t4712, t4728, t4729, t4734, t4744, t4747, t4751;
1190   double t4756, t4761, t4763, t4766, t4773, t4778, t4785, t4787;
1191   double t4794, t4795, t4797, t4814, t4822, t4827, t4841, t4871;
1192   double t4872, t4896, t4899, t4900, t4910, t4912, t4917, t4927;
1193   double t4935, t4939, t4952, t4956, t4965, t4966, t4969, t4970;
1194   double t4971, t4972, t4973, t4974, t4975, t4977, t4979, t4989;
1195   double t4990, t4992, t4994, t5008, t5011, t5023, t5033, t5034;
1196   double t5040, t5046, t5047, t5064, t5069, t5072, t5074, t5087;
1197   double t5088, t5092, t5094, t5095, t5096, t5097, t5098, t5099;
1198   double t5124, t5130, t5154, t5177, t5180, t5191, t5196, t5198;
1199   double t5210, t5218, t5232, t5234, t5236, t5238, t5240, t5242;
1200   double t5244, t5245, t5247, t5249, t5258, t5262, t5264, t5266;
1201   double t5268, t5270, t5272, t5284, t5297, t5302, t5313, t5324;
1202   double t5335, t5340, t5343, t5346, t5349, t5363, t5372, t5375;
1203   double t5408, t5422, t5452, t5456, t5466, t5494, t5528, t5587;
1204   double t5618, t5626, t5638, t5656, t5671, t5698, t5704, t5708;
1205   double t5709, t5719, t5721, t5729, t5741, t5746, t5753, t5787;
1206   double t5788, t5800, t5803, t5804, t5816, t5817, t5819, t5821;
1207   double t5836, t5844, t5848, t5850, t5855, t5859, t5861, t5865;
1208   double t5867, t5869, t5875, t5888, t5898, t5941, t5947, t5956;
1209   double t5958, t5960, t5966, t5969, t5972, t5974, t5981, t5983;
1210   double t5985, t5987, t5991, t5993, t6000, t6004, t6010, t6015;
1211   double t6022, t6027, t6034, t6035, t6057, t6067, t6075, t6099;
1212   double t6119, t6125, t6128, t6129, t6142, t6146, t6148, t6150;
1213   double t6156, t6168, t6194, t6196, t6198, t6200, t6202, t6204;
1214   double t6206, t6208, t6210, t6212, t6218, t6225, t6230, t6232;
1215   double t6235, t6236, t6272, t6274, t6278, t6291, t6301, t6346;
1216   double t6393, t6432, t6436, t6447, t6479, t6495, t6514, t6523;
1217   double t6530, t6534, t6565, t6575, t6602, t6607, t6620, t6628;
1218   double t6632, t6637, t6646, t6652, t6657, t6662, t6664, t6670;
1219   double t6675, t6679, t6682, t6688, t6693, t6698, t6703, t6704;
1220   double t6710, t6711, t6717, t6718, t6725, t6726, t6752, t6760;
1221   double t6769, t6771, t6784, t6813, t6858, t6865, t6899, t6905;
1222   double t6914, t6965, t7010, t7012, t7067;
1223 #endif
1224 
1225 #endif
1226 
1227 #endif
1228 
1229 #endif
1230 
1231 #endif
1232 
1233 
1234 
1235   t1 = M_CBRT3;
1236   t3 = POW_1_3(0.1e1 / M_PI);
1237   t4 = t1 * t3;
1238   t5 = M_CBRT4;
1239   t6 = t5 * t5;
1240   t7 = t4 * t6;
1241   t8 = rho[0] - rho[1];
1242   t9 = rho[0] + rho[1];
1243   t10 = 0.1e1 / t9;
1244   t11 = t8 * t10;
1245   t13 = 0.1e1 / 0.2e1 + t11 / 0.2e1;
1246   t14 = POW_1_3(t13);
1247   t15 = t14 * t13;
1248   t16 = POW_1_3(t9);
1249   t17 = t15 * t16;
1250   t18 = M_CBRT6;
1251   t19 = M_PI * M_PI;
1252   t20 = POW_1_3(t19);
1253   t21 = t20 * t20;
1254   t22 = 0.1e1 / t21;
1255   t23 = t18 * t22;
1256   t24 = rho[0] * rho[0];
1257   t25 = POW_1_3(rho[0]);
1258   t26 = t25 * t25;
1259   t28 = 0.1e1 / t26 / t24;
1260   t30 = t23 * sigma[0] * t28;
1261   t32 = 0.8040e0 + 0.5e1 / 0.972e3 * t30;
1262   t35 = 0.18040e1 - 0.64641600e0 / t32;
1263   t36 = t18 * t18;
1264   t38 = 0.1e1 / t20 / t19;
1265   t39 = t36 * t38;
1266   t40 = sigma[0] * sigma[0];
1267   t41 = t24 * t24;
1268   t42 = t41 * rho[0];
1269   t44 = 0.1e1 / t25 / t42;
1270   t48 = 0.100e3 - t39 * t40 * t44 / 0.576e3;
1271   t50 = 0.1e1 / t20;
1272   t51 = t36 * t50;
1273   t52 = sqrt(sigma[0]);
1274   t54 = 0.1e1 / t25 / rho[0];
1275   t56 = t51 * t52 * t54;
1276   t57 = pow(t56, 0.35e1);
1277   t59 = 0.1e1 + t30 / 0.24e2;
1278   t62 = t35 * t48 + 0.87153829697982569831e-4 * t57 * t59;
1279   t63 = t19 * t19;
1280   t64 = 0.1e1 / t63;
1281   t65 = t40 * sigma[0];
1282   t66 = t64 * t65;
1283   t67 = t41 * t41;
1284   t68 = 0.1e1 / t67;
1285   t71 = 0.100e3 + t66 * t68 / 0.2304e4;
1286   t72 = 0.1e1 / t71;
1287   t73 = t62 * t72;
1288   t75 = t7 * t17 * t73;
1289   t77 = 0.1e1 / 0.2e1 - t11 / 0.2e1;
1290   t78 = POW_1_3(t77);
1291   t79 = t78 * t77;
1292   t80 = t79 * t16;
1293   t81 = rho[1] * rho[1];
1294   t82 = POW_1_3(rho[1]);
1295   t83 = t82 * t82;
1296   t85 = 0.1e1 / t83 / t81;
1297   t87 = t23 * sigma[2] * t85;
1298   t89 = 0.8040e0 + 0.5e1 / 0.972e3 * t87;
1299   t92 = 0.18040e1 - 0.64641600e0 / t89;
1300   t93 = sigma[2] * sigma[2];
1301   t94 = t81 * t81;
1302   t95 = t94 * rho[1];
1303   t97 = 0.1e1 / t82 / t95;
1304   t101 = 0.100e3 - t39 * t93 * t97 / 0.576e3;
1305   t103 = sqrt(sigma[2]);
1306   t105 = 0.1e1 / t82 / rho[1];
1307   t107 = t51 * t103 * t105;
1308   t108 = pow(t107, 0.35e1);
1309   t110 = 0.1e1 + t87 / 0.24e2;
1310   t113 = t92 * t101 + 0.87153829697982569831e-4 * t108 * t110;
1311   t114 = t93 * sigma[2];
1312   t115 = t64 * t114;
1313   t116 = t94 * t94;
1314   t117 = 0.1e1 / t116;
1315   t120 = 0.100e3 + t115 * t117 / 0.2304e4;
1316   t121 = 0.1e1 / t120;
1317   t122 = t113 * t121;
1318   t124 = t7 * t80 * t122;
1319   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1320     zk[0] = -0.3e1 / 0.8e1 * t75 - 0.3e1 / 0.8e1 * t124;
1321 
1322 #ifndef XC_DONT_COMPILE_VXC
1323 
1324   if(order < 1) return;
1325 
1326 
1327   t126 = 0.3e1 / 0.8e1 * t75;
1328   t127 = 0.3e1 / 0.8e1 * t124;
1329   t128 = t6 * t14;
1330   t129 = t4 * t128;
1331   t130 = t16 * t62;
1332   t131 = t9 * t9;
1333   t132 = 0.1e1 / t131;
1334   t133 = t8 * t132;
1335   t135 = t10 / 0.2e1 - t133 / 0.2e1;
1336   t136 = t72 * t135;
1337   t138 = t129 * t130 * t136;
1338   t139 = t138 / 0.2e1;
1339   t140 = t16 * t16;
1340   t141 = 0.1e1 / t140;
1341   t142 = t15 * t141;
1342   t144 = t7 * t142 * t73;
1343   t145 = t144 / 0.8e1;
1344   t146 = t32 * t32;
1345   t147 = 0.1e1 / t146;
1346   t148 = t147 * t18;
1347   t149 = t148 * t22;
1348   t150 = t24 * rho[0];
1349   t152 = 0.1e1 / t26 / t150;
1350   t157 = t35 * t36;
1351   t158 = t38 * t40;
1352   t159 = t41 * t24;
1353   t161 = 0.1e1 / t25 / t159;
1354   t165 = pow(t56, 0.25e1);
1355   t167 = t165 * t59 * t36;
1356   t168 = t50 * t52;
1357   t170 = 0.1e1 / t25 / t24;
1358   t174 = t57 * t18;
1359   t175 = t22 * sigma[0];
1360   t179 = -0.88671604938271604938e-2 * t149 * sigma[0] * t152 * t48 + t157 * t158 * t161 / 0.108e3 - 0.40671787192391865921e-3 * t167 * t168 * t170 - 0.96837588553313966479e-5 * t174 * t175 * t152;
1361   t180 = t179 * t72;
1362   t182 = t7 * t17 * t180;
1363   t183 = 0.3e1 / 0.8e1 * t182;
1364   t184 = t6 * t15;
1365   t186 = t4 * t184 * t16;
1366   t187 = t71 * t71;
1367   t188 = 0.1e1 / t187;
1368   t189 = t62 * t188;
1369   t190 = t67 * rho[0];
1370   t191 = 0.1e1 / t190;
1371   t192 = t66 * t191;
1372   t193 = t189 * t192;
1373   t194 = t186 * t193;
1374   t195 = t194 / 0.768e3;
1375   t196 = t6 * t78;
1376   t197 = t4 * t196;
1377   t198 = t16 * t113;
1378   t199 = -t135;
1379   t200 = t121 * t199;
1380   t202 = t197 * t198 * t200;
1381   t203 = t202 / 0.2e1;
1382   t204 = t79 * t141;
1383   t206 = t7 * t204 * t122;
1384   t207 = t206 / 0.8e1;
1385   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1386     vrho[0] = -t126 - t127 + t9 * (-t139 - t145 - t183 - t195 - t203 - t207);
1387 
1388   t211 = -t10 / 0.2e1 - t133 / 0.2e1;
1389   t212 = t72 * t211;
1390   t214 = t129 * t130 * t212;
1391   t215 = t214 / 0.2e1;
1392   t216 = -t211;
1393   t217 = t121 * t216;
1394   t219 = t197 * t198 * t217;
1395   t220 = t219 / 0.2e1;
1396   t221 = t89 * t89;
1397   t222 = 0.1e1 / t221;
1398   t223 = t222 * t18;
1399   t224 = t223 * t22;
1400   t225 = t81 * rho[1];
1401   t227 = 0.1e1 / t83 / t225;
1402   t232 = t92 * t36;
1403   t233 = t38 * t93;
1404   t234 = t94 * t81;
1405   t236 = 0.1e1 / t82 / t234;
1406   t240 = pow(t107, 0.25e1);
1407   t242 = t240 * t110 * t36;
1408   t243 = t50 * t103;
1409   t245 = 0.1e1 / t82 / t81;
1410   t249 = t108 * t18;
1411   t250 = t22 * sigma[2];
1412   t254 = -0.88671604938271604938e-2 * t224 * sigma[2] * t227 * t101 + t232 * t233 * t236 / 0.108e3 - 0.40671787192391865921e-3 * t242 * t243 * t245 - 0.96837588553313966479e-5 * t249 * t250 * t227;
1413   t255 = t254 * t121;
1414   t257 = t7 * t80 * t255;
1415   t258 = 0.3e1 / 0.8e1 * t257;
1416   t259 = t6 * t79;
1417   t261 = t4 * t259 * t16;
1418   t262 = t120 * t120;
1419   t263 = 0.1e1 / t262;
1420   t264 = t113 * t263;
1421   t265 = t116 * rho[1];
1422   t266 = 0.1e1 / t265;
1423   t267 = t115 * t266;
1424   t268 = t264 * t267;
1425   t269 = t261 * t268;
1426   t270 = t269 / 0.768e3;
1427   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1428     vrho[1] = -t126 - t127 + t9 * (-t215 - t145 - t220 - t207 - t258 - t270);
1429 
1430   t273 = t22 * t28;
1431   t277 = t38 * sigma[0];
1432   t281 = 0.1e1 / t52;
1433   t282 = t50 * t281;
1434   t288 = 0.33251851851851851852e-2 * t148 * t273 * t48 - t157 * t277 * t44 / 0.288e3 + 0.15251920197146949720e-3 * t167 * t282 * t54 + 0.36314095707492737430e-5 * t174 * t273;
1435   t289 = t288 * t72;
1436   t292 = 0.3e1 / 0.8e1 * t7 * t17 * t289;
1437   t293 = t64 * t40;
1438   t294 = t293 * t68;
1439   t295 = t189 * t294;
1440   t297 = t186 * t295 / 0.2048e4;
1441   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1442     vsigma[0] = t9 * (-t292 + t297);
1443 
1444   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1445     vsigma[1] = 0.0e0;
1446 
1447   t299 = t22 * t85;
1448   t303 = t38 * sigma[2];
1449   t307 = 0.1e1 / t103;
1450   t308 = t50 * t307;
1451   t314 = 0.33251851851851851852e-2 * t223 * t299 * t101 - t232 * t303 * t97 / 0.288e3 + 0.15251920197146949720e-3 * t242 * t308 * t105 + 0.36314095707492737430e-5 * t249 * t299;
1452   t315 = t314 * t121;
1453   t318 = 0.3e1 / 0.8e1 * t7 * t80 * t315;
1454   t319 = t64 * t93;
1455   t320 = t319 * t117;
1456   t321 = t264 * t320;
1457   t323 = t261 * t321 / 0.2048e4;
1458   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1459     vsigma[2] = t9 * (-t318 + t323);
1460 
1461 #ifndef XC_DONT_COMPILE_FXC
1462 
1463   if(order < 2) return;
1464 
1465 
1466   t325 = t144 / 0.4e1;
1467   t328 = t206 / 0.4e1;
1468   t329 = t14 * t14;
1469   t330 = 0.1e1 / t329;
1470   t331 = t6 * t330;
1471   t332 = t4 * t331;
1472   t333 = t135 * t135;
1473   t334 = t72 * t333;
1474   t336 = t332 * t130 * t334;
1475   t337 = t336 / 0.6e1;
1476   t338 = t141 * t62;
1477   t340 = t129 * t338 * t136;
1478   t341 = t340 / 0.3e1;
1479   t342 = t16 * t179;
1480   t344 = t129 * t342 * t136;
1481   t346 = t4 * t128 * t16;
1482   t347 = t189 * t135;
1483   t348 = t347 * t192;
1484   t349 = t346 * t348;
1485   t350 = t349 / 0.288e3;
1486   t351 = t131 * t9;
1487   t352 = 0.1e1 / t351;
1488   t353 = t8 * t352;
1489   t354 = -t132 + t353;
1490   t355 = t72 * t354;
1491   t357 = t129 * t130 * t355;
1492   t358 = t357 / 0.2e1;
1493   t360 = 0.1e1 / t140 / t9;
1494   t361 = t15 * t360;
1495   t363 = t7 * t361 * t73;
1496   t364 = t363 / 0.12e2;
1497   t366 = t7 * t142 * t180;
1498   t367 = t366 / 0.4e1;
1499   t369 = t4 * t184 * t141;
1500   t370 = t369 * t193;
1501   t371 = t370 / 0.1152e4;
1502   t373 = 0.1e1 / t146 / t32;
1503   t374 = t373 * t36;
1504   t375 = t374 * t38;
1505   t376 = t41 * t150;
1506   t378 = 0.1e1 / t25 / t376;
1507   t384 = 0.1e1 / t26 / t41;
1508   t389 = t147 * t64;
1509   t390 = t67 * t24;
1510   t391 = 0.1e1 / t390;
1511   t395 = t147 * t65;
1512   t401 = POW_3_2(t56);
1513   t402 = t401 * t59;
1514   t403 = t402 * t18;
1515   t404 = t175 * t384;
1516   t407 = 0.1e1 / t19;
1517   t408 = t165 * t407;
1518   t409 = t52 * sigma[0];
1519   t410 = 0.1e1 / t159;
1520   t415 = 0.1e1 / t25 / t150;
1521   t421 = -0.24326914935053938255e-3 * t375 * t40 * t378 * t48 + 0.32512921810699588477e-1 * t149 * sigma[0] * t384 * t48 - 0.49262002743484224966e-3 * t389 * t65 * t391 - 0.50572284599482008956e-5 * t395 * t391 - 0.19e2 / 0.324e3 * t157 * t158 * t378 + 0.81343574384783731842e-2 * t403 * t404 + 0.54229049589855821228e-3 * t408 * t409 * t410 + 0.94900836782247687149e-3 * t167 * t168 * t415 + 0.35507115802881787709e-4 * t174 * t404;
1522   t422 = t421 * t72;
1523   t424 = t7 * t17 * t422;
1524   t425 = 0.3e1 / 0.8e1 * t424;
1525   t426 = t179 * t188;
1526   t427 = t426 * t192;
1527   t428 = t186 * t427;
1528   t429 = t428 / 0.384e3;
1529   t431 = 0.1e1 / t187 / t71;
1530   t432 = t62 * t431;
1531   t433 = t63 * t63;
1532   t434 = 0.1e1 / t433;
1533   t435 = t40 * t40;
1534   t436 = t435 * t40;
1535   t437 = t434 * t436;
1536   t438 = t67 * t67;
1537   t440 = 0.1e1 / t438 / t24;
1538   t441 = t437 * t440;
1539   t442 = t432 * t441;
1540   t443 = t186 * t442;
1541   t444 = t443 / 0.110592e6;
1542   t445 = t66 * t391;
1543   t446 = t189 * t445;
1544   t447 = t186 * t446;
1545   t448 = 0.3e1 / 0.256e3 * t447;
1546   t449 = t78 * t78;
1547   t450 = 0.1e1 / t449;
1548   t451 = t6 * t450;
1549   t452 = t4 * t451;
1550   t453 = t199 * t199;
1551   t454 = t121 * t453;
1552   t456 = t452 * t198 * t454;
1553   t457 = t456 / 0.6e1;
1554   t458 = t141 * t113;
1555   t460 = t197 * t458 * t200;
1556   t461 = t460 / 0.3e1;
1557   t462 = -t354;
1558   t463 = t121 * t462;
1559   t465 = t197 * t198 * t463;
1560   t466 = t465 / 0.2e1;
1561   t467 = t79 * t360;
1562   t469 = t7 * t467 * t122;
1563   t470 = t469 / 0.12e2;
1564   t471 = -t337 - t341 - t344 - t350 - t358 + t364 - t367 - t371 - t425 - t429 - t444 + t448 - t457 - t461 - t466 + t470;
1565   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1566     v2rho2[0] = -t138 - t325 - 0.3e1 / 0.4e1 * t182 - t194 / 0.384e3 - t202 - t328 + t9 * t471;
1567 
1568   t473 = t212 * t135;
1569   t475 = t332 * t130 * t473;
1570   t478 = t129 * t338 * t212;
1571   t481 = t129 * t342 * t212;
1572   t483 = t189 * t211;
1573   t484 = t483 * t192;
1574   t485 = t346 * t484;
1575   t488 = 0.1e1 / t140 / t131;
1576   t489 = t488 * t62;
1577   t490 = t72 * t8;
1578   t492 = t129 * t489 * t490;
1579   t497 = t217 * t199;
1580   t499 = t452 * t198 * t497;
1581   t502 = t197 * t458 * t217;
1582   t504 = t488 * t113;
1583   t505 = t121 * t8;
1584   t507 = t197 * t504 * t505;
1585   t510 = t16 * t254;
1586   t512 = t197 * t510 * t200;
1587   t515 = t7 * t204 * t255;
1588   t518 = t4 * t196 * t16;
1589   t519 = t264 * t64;
1590   t520 = t114 * t266;
1591   t521 = t520 * t199;
1592   t522 = t519 * t521;
1593   t523 = t518 * t522;
1594   t526 = t4 * t259 * t141;
1595   t527 = t526 * t268;
1596   t529 = -t475 / 0.6e1 - t478 / 0.6e1 - t481 / 0.2e1 - t485 / 0.576e3 - t492 / 0.2e1 - t340 / 0.6e1 + t364 - t366 / 0.8e1 - t370 / 0.2304e4 - t499 / 0.6e1 - t502 / 0.6e1 + t507 / 0.2e1 - t460 / 0.6e1 + t470 - t512 / 0.2e1 - t515 / 0.8e1 - t523 / 0.576e3 - t527 / 0.2304e4;
1597   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1598     v2rho2[1] = t9 * t529 - t139 - t183 - t195 - t203 - t215 - t220 - t258 - t270 - t325 - t328;
1599 
1600   t533 = t211 * t211;
1601   t534 = t72 * t533;
1602   t536 = t332 * t130 * t534;
1603   t537 = t536 / 0.6e1;
1604   t538 = t478 / 0.3e1;
1605   t539 = t132 + t353;
1606   t540 = t72 * t539;
1607   t542 = t129 * t130 * t540;
1608   t543 = t542 / 0.2e1;
1609   t544 = t216 * t216;
1610   t545 = t121 * t544;
1611   t547 = t452 * t198 * t545;
1612   t548 = t547 / 0.6e1;
1613   t549 = t502 / 0.3e1;
1614   t551 = t197 * t510 * t217;
1615   t552 = t264 * t216;
1616   t553 = t552 * t267;
1617   t554 = t518 * t553;
1618   t555 = t554 / 0.288e3;
1619   t556 = -t539;
1620   t557 = t121 * t556;
1621   t559 = t197 * t198 * t557;
1622   t560 = t559 / 0.2e1;
1623   t561 = t515 / 0.4e1;
1624   t562 = t527 / 0.1152e4;
1625   t564 = 0.1e1 / t221 / t89;
1626   t565 = t564 * t36;
1627   t566 = t565 * t38;
1628   t567 = t94 * t225;
1629   t569 = 0.1e1 / t82 / t567;
1630   t575 = 0.1e1 / t83 / t94;
1631   t580 = t222 * t64;
1632   t581 = t116 * t81;
1633   t582 = 0.1e1 / t581;
1634   t583 = t114 * t582;
1635   t586 = t222 * t114;
1636   t592 = POW_3_2(t107);
1637   t593 = t592 * t110;
1638   t594 = t593 * t18;
1639   t595 = t250 * t575;
1640   t598 = t240 * t407;
1641   t599 = t103 * sigma[2];
1642   t600 = 0.1e1 / t234;
1643   t605 = 0.1e1 / t82 / t225;
1644   t611 = -0.24326914935053938255e-3 * t566 * t93 * t569 * t101 + 0.32512921810699588477e-1 * t224 * sigma[2] * t575 * t101 - 0.49262002743484224966e-3 * t580 * t583 - 0.50572284599482008956e-5 * t586 * t582 - 0.19e2 / 0.324e3 * t232 * t233 * t569 + 0.81343574384783731842e-2 * t594 * t595 + 0.54229049589855821228e-3 * t598 * t599 * t600 + 0.94900836782247687149e-3 * t242 * t243 * t605 + 0.35507115802881787709e-4 * t249 * t595;
1645   t612 = t611 * t121;
1646   t614 = t7 * t80 * t612;
1647   t615 = 0.3e1 / 0.8e1 * t614;
1648   t616 = t254 * t263;
1649   t617 = t616 * t267;
1650   t618 = t261 * t617;
1651   t619 = t618 / 0.384e3;
1652   t621 = 0.1e1 / t262 / t120;
1653   t622 = t113 * t621;
1654   t623 = t93 * t93;
1655   t624 = t623 * t93;
1656   t625 = t434 * t624;
1657   t626 = t116 * t116;
1658   t628 = 0.1e1 / t626 / t81;
1659   t629 = t625 * t628;
1660   t630 = t622 * t629;
1661   t631 = t261 * t630;
1662   t632 = t631 / 0.110592e6;
1663   t633 = t115 * t582;
1664   t634 = t264 * t633;
1665   t635 = t261 * t634;
1666   t636 = 0.3e1 / 0.256e3 * t635;
1667   t637 = -t537 - t538 - t543 + t364 - t548 - t549 - t551 - t555 - t560 + t470 - t561 - t562 - t615 - t619 - t632 + t636;
1668   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1669     v2rho2[2] = -t214 - t325 - t219 - t328 - 0.3e1 / 0.4e1 * t257 - t269 / 0.384e3 + t9 * t637;
1670 
1671   t639 = t16 * t288;
1672   t641 = t129 * t639 * t136;
1673   t642 = t641 / 0.2e1;
1674   t644 = t7 * t142 * t289;
1675   t645 = t644 / 0.8e1;
1676   t650 = t22 * t152;
1677   t654 = t191 * t40;
1678   t657 = t147 * t40;
1679   t666 = 0.1e1 / t42;
1680   t675 = 0.91225931006452268455e-4 * t375 * t161 * t48 * sigma[0] - 0.88671604938271604939e-2 * t148 * t650 * t48 + 0.18473251028806584362e-3 * t389 * t654 + 0.18964606724805753359e-5 * t657 * t191 + t157 * t277 * t161 / 0.54e2 - 0.30503840394293899440e-2 * t402 * t23 * t152 - 0.20335893596195932960e-3 * t408 * t52 * t666 - 0.20335893596195932960e-3 * t167 * t282 * t170 - 0.96837588553313966480e-5 * t174 * t650;
1681   t676 = t675 * t72;
1682   t678 = t7 * t17 * t676;
1683   t679 = 0.3e1 / 0.8e1 * t678;
1684   t680 = t288 * t188;
1685   t681 = t680 * t192;
1686   t682 = t186 * t681;
1687   t683 = t682 / 0.768e3;
1688   t684 = t189 * t64;
1689   t685 = t40 * t68;
1690   t686 = t685 * t135;
1691   t687 = t684 * t686;
1692   t688 = t346 * t687;
1693   t689 = t688 / 0.1536e4;
1694   t690 = t369 * t295;
1695   t691 = t690 / 0.6144e4;
1696   t692 = t426 * t294;
1697   t693 = t186 * t692;
1698   t694 = t693 / 0.2048e4;
1699   t695 = t435 * sigma[0];
1700   t696 = t434 * t695;
1701   t697 = t438 * rho[0];
1702   t698 = 0.1e1 / t697;
1703   t699 = t696 * t698;
1704   t700 = t432 * t699;
1705   t701 = t186 * t700;
1706   t702 = t701 / 0.294912e6;
1707   t703 = t293 * t191;
1708   t704 = t189 * t703;
1709   t705 = t186 * t704;
1710   t706 = t705 / 0.256e3;
1711   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1712     v2rhosigma[0] = -t292 + t297 + t9 * (-t642 - t645 - t679 - t683 + t689 + t691 + t694 + t702 - t706);
1713 
1714   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1715     v2rhosigma[1] = 0.0e0;
1716 
1717   t709 = t16 * t314;
1718   t711 = t197 * t709 * t200;
1719   t712 = t711 / 0.2e1;
1720   t714 = t7 * t204 * t315;
1721   t715 = t714 / 0.8e1;
1722   t716 = t93 * t117;
1723   t717 = t716 * t199;
1724   t718 = t519 * t717;
1725   t719 = t518 * t718;
1726   t720 = t719 / 0.1536e4;
1727   t721 = t526 * t321;
1728   t722 = t721 / 0.6144e4;
1729   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1730     v2rhosigma[2] = -t318 + t323 + t9 * (-t712 - t715 + t720 + t722);
1731 
1732   t726 = t129 * t639 * t212;
1733   t727 = t726 / 0.2e1;
1734   t728 = t685 * t211;
1735   t729 = t684 * t728;
1736   t730 = t346 * t729;
1737   t731 = t730 / 0.1536e4;
1738   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1739     v2rhosigma[3] = -t292 + t297 + t9 * (-t727 - t645 + t731 + t691);
1740 
1741   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1742     v2rhosigma[4] = 0.0e0;
1743 
1744   t735 = t197 * t709 * t217;
1745   t736 = t735 / 0.2e1;
1746   t741 = t22 * t227;
1747   t745 = t266 * t93;
1748   t748 = t222 * t93;
1749   t757 = 0.1e1 / t95;
1750   t766 = 0.91225931006452268455e-4 * t566 * t236 * t101 * sigma[2] - 0.88671604938271604939e-2 * t223 * t741 * t101 + 0.18473251028806584362e-3 * t580 * t745 + 0.18964606724805753359e-5 * t748 * t266 + t232 * t303 * t236 / 0.54e2 - 0.30503840394293899440e-2 * t593 * t23 * t227 - 0.20335893596195932960e-3 * t598 * t103 * t757 - 0.20335893596195932960e-3 * t242 * t308 * t245 - 0.96837588553313966480e-5 * t249 * t741;
1751   t767 = t766 * t121;
1752   t769 = t7 * t80 * t767;
1753   t770 = 0.3e1 / 0.8e1 * t769;
1754   t771 = t314 * t263;
1755   t772 = t771 * t267;
1756   t773 = t261 * t772;
1757   t774 = t773 / 0.768e3;
1758   t775 = t716 * t216;
1759   t776 = t519 * t775;
1760   t777 = t518 * t776;
1761   t778 = t777 / 0.1536e4;
1762   t779 = t616 * t320;
1763   t780 = t261 * t779;
1764   t781 = t780 / 0.2048e4;
1765   t782 = t623 * sigma[2];
1766   t783 = t434 * t782;
1767   t784 = t626 * rho[1];
1768   t785 = 0.1e1 / t784;
1769   t786 = t783 * t785;
1770   t787 = t622 * t786;
1771   t788 = t261 * t787;
1772   t789 = t788 / 0.294912e6;
1773   t790 = t319 * t266;
1774   t791 = t264 * t790;
1775   t792 = t261 * t791;
1776   t793 = t792 / 0.256e3;
1777   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1778     v2rhosigma[5] = -t318 + t323 + t9 * (-t736 - t715 - t770 - t774 + t778 + t722 + t781 + t789 - t793);
1779 
1780   t796 = t38 * t44;
1781   t800 = t68 * sigma[0];
1782   t803 = t147 * t68;
1783   t808 = 0.1e1 / sigma[0];
1784   t809 = t22 * t808;
1785   t813 = 0.1e1 / t41;
1786   t817 = 0.1e1 / t409;
1787   t818 = t50 * t817;
1788   t822 = -0.34209724127419600671e-4 * t374 * t796 * t48 - 0.69274691358024691358e-4 * t389 * t800 - 0.71117275218021575094e-6 * t803 * sigma[0] - t157 * t796 / 0.288e3 + 0.11438940147860212290e-2 * t403 * t809 * t28 + 0.76259600985734748602e-4 * t408 * t813 * t281 - 0.76259600985734748600e-4 * t167 * t818 * t54;
1789   t823 = t822 * t72;
1790   t826 = 0.3e1 / 0.8e1 * t7 * t17 * t823;
1791   t827 = t680 * t294;
1792   t829 = t186 * t827 / 0.1024e4;
1793   t830 = t434 * t435;
1794   t831 = 0.1e1 / t438;
1795   t832 = t830 * t831;
1796   t833 = t432 * t832;
1797   t835 = t186 * t833 / 0.786432e6;
1798   t836 = t64 * sigma[0];
1799   t837 = t836 * t68;
1800   t838 = t189 * t837;
1801   t840 = t186 * t838 / 0.1024e4;
1802   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1803     v2sigma2[0] = t9 * (-t826 + t829 - t835 + t840);
1804 
1805   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1806     v2sigma2[1] = 0.0e0;
1807 
1808   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1809     v2sigma2[2] = 0.0e0;
1810 
1811   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1812     v2sigma2[3] = 0.0e0;
1813 
1814   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1815     v2sigma2[4] = 0.0e0;
1816 
1817   t842 = t38 * t97;
1818   t846 = t117 * sigma[2];
1819   t849 = t222 * t117;
1820   t854 = 0.1e1 / sigma[2];
1821   t855 = t22 * t854;
1822   t859 = 0.1e1 / t94;
1823   t863 = 0.1e1 / t599;
1824   t864 = t50 * t863;
1825   t868 = -0.34209724127419600671e-4 * t565 * t842 * t101 - 0.69274691358024691358e-4 * t580 * t846 - 0.71117275218021575094e-6 * t849 * sigma[2] - t232 * t842 / 0.288e3 + 0.11438940147860212290e-2 * t594 * t855 * t85 + 0.76259600985734748602e-4 * t598 * t859 * t307 - 0.76259600985734748600e-4 * t242 * t864 * t105;
1826   t869 = t868 * t121;
1827   t872 = 0.3e1 / 0.8e1 * t7 * t80 * t869;
1828   t873 = t771 * t320;
1829   t875 = t261 * t873 / 0.1024e4;
1830   t876 = t434 * t623;
1831   t877 = 0.1e1 / t626;
1832   t878 = t876 * t877;
1833   t879 = t622 * t878;
1834   t881 = t261 * t879 / 0.786432e6;
1835   t882 = t64 * sigma[2];
1836   t883 = t882 * t117;
1837   t884 = t264 * t883;
1838   t886 = t261 * t884 / 0.1024e4;
1839   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1840     v2sigma2[5] = t9 * (-t872 + t875 - t881 + t886);
1841 
1842 #ifndef XC_DONT_COMPILE_KXC
1843 
1844   if(order < 3) return;
1845 
1846 
1847   t893 = t363 / 0.4e1;
1848   t895 = t469 / 0.4e1;
1849   t902 = t200 * t462;
1850   t904 = t452 * t198 * t902;
1851   t905 = t904 / 0.2e1;
1852   t906 = t136 * t354;
1853   t908 = t332 * t130 * t906;
1854   t909 = t908 / 0.2e1;
1855   t911 = 0.1e1 / t329 / t13;
1856   t912 = t6 * t911;
1857   t913 = t4 * t912;
1858   t914 = t333 * t135;
1859   t915 = t72 * t914;
1860   t917 = t913 * t130 * t915;
1861   t918 = t917 / 0.9e1;
1862   t920 = t332 * t338 * t334;
1863   t922 = t360 * t62;
1864   t924 = t129 * t922 * t136;
1865   t925 = t924 / 0.3e1;
1866   t927 = 0.1e1 / t449 / t77;
1867   t928 = t6 * t927;
1868   t929 = t4 * t928;
1869   t930 = t453 * t199;
1870   t931 = t121 * t930;
1871   t933 = t929 * t198 * t931;
1872   t934 = t933 / 0.9e1;
1873   t936 = t452 * t458 * t454;
1874   t938 = t360 * t113;
1875   t940 = t197 * t938 * t200;
1876   t941 = t940 / 0.3e1;
1877   t943 = t332 * t342 * t334;
1878   t944 = t943 / 0.2e1;
1879   t945 = t141 * t179;
1880   t947 = t129 * t945 * t136;
1881   t949 = t129 * t338 * t355;
1882   t951 = t16 * t421;
1883   t953 = t129 * t951 * t136;
1884   t954 = 0.3e1 / 0.2e1 * t953;
1885   t956 = t129 * t342 * t355;
1886   t957 = 0.3e1 / 0.2e1 * t956;
1887   t958 = t131 * t131;
1888   t959 = 0.1e1 / t958;
1889   t960 = t8 * t959;
1890   t962 = 0.3e1 * t352 - 0.3e1 * t960;
1891   t963 = t72 * t962;
1892   t965 = t129 * t130 * t963;
1893   t966 = t965 / 0.2e1;
1894   t968 = t197 * t458 * t463;
1895   t970 = -t962;
1896   t971 = t121 * t970;
1897   t973 = t197 * t198 * t971;
1898   t974 = t973 / 0.2e1;
1899   t975 = t146 * t146;
1900   t976 = 0.1e1 / t975;
1901   t977 = t976 * t64;
1902   t978 = t67 * t150;
1903   t979 = 0.1e1 / t978;
1904   t980 = t65 * t979;
1905   t985 = 0.1e1 / t25 / t67;
1906   t990 = t373 * t18;
1907   t992 = 0.1e1 / t21 / t63;
1908   t993 = t992 * t435;
1909   t994 = t67 * t42;
1910   t996 = 0.1e1 / t26 / t994;
1911   t1001 = 0.1e1 / t26 / t42;
1912   t1008 = t373 * t64;
1913   t1009 = t1008 * t435;
1914   t1011 = t996 * t18 * t22;
1915   t1014 = t373 * t435;
1916   t1019 = t158 * t985;
1917   t1022 = sqrt(t56);
1918   t1023 = t1022 * t59;
1919   t1024 = t407 * t409;
1920   t1025 = 0.1e1 / t376;
1921   t1029 = t401 * t36;
1922   t1032 = t175 * t1001;
1923   t1035 = t401 * t407;
1924   t1036 = t1035 * t40;
1925   t1038 = t985 * t36 * t50;
1926   t1045 = 0.1e1 / t25 / t41;
1927   t1051 = -0.60066456629762810506e-4 * t977 * t980 * t48 + 0.26759606428559332080e-2 * t375 * t40 * t985 * t48 - 0.13514952741696632364e-4 * t990 * t993 * t996 - 0.15172696844993141289e0 * t149 * sigma[0] * t1001 * t48 + 0.67324737082761774120e-2 * t389 * t980 - 0.13514952741696632364e-4 * t1009 * t1011 - 0.13874426501915503143e-6 * t1014 * t1011 + 0.82601398179153947962e-4 * t395 * t979 + 0.209e3 / 0.486e3 * t157 * t1019 - 0.97612289261740478210e-1 * t1023 * t1024 * t1025 - 0.90381749316426368713e-3 * t1029 * t1019 - 0.56940502069348612290e-1 * t403 * t1032 - 0.18076349863285273742e-2 * t1036 * t1038 - 0.48806144630870239106e-2 * t408 * t409 * t1025 - 0.31633612260749229050e-2 * t167 * t168 * t1045 - 0.16569987374678167598e-3 * t174 * t1032;
1928   t1052 = t1051 * t72;
1929   t1054 = t7 * t17 * t1052;
1930   t1055 = 0.3e1 / 0.8e1 * t1054;
1931   t1056 = t15 * t488;
1932   t1058 = t7 * t1056 * t73;
1933   t1059 = 0.5e1 / 0.36e2 * t1058;
1934   t1060 = -t905 - t909 + t918 - t920 / 0.6e1 + t925 + t934 - t936 / 0.6e1 + t941 - t944 - t947 - t949 / 0.2e1 - t954 - t957 - t966 - t968 / 0.2e1 - t974 - t1055 - t1059;
1935   t1061 = t79 * t488;
1936   t1063 = t7 * t1061 * t122;
1937   t1064 = 0.5e1 / 0.36e2 * t1063;
1938   t1066 = t7 * t361 * t180;
1939   t1067 = t1066 / 0.4e1;
1940   t1069 = t7 * t142 * t422;
1941   t1071 = t347 * t445;
1942   t1072 = t346 * t1071;
1943   t1073 = 0.3e1 / 0.64e2 * t1072;
1944   t1075 = t4 * t331 * t16;
1945   t1076 = t189 * t333;
1946   t1077 = t1076 * t192;
1947   t1078 = t1075 * t1077;
1948   t1079 = t1078 / 0.576e3;
1949   t1081 = t4 * t128 * t141;
1950   t1082 = t1081 * t348;
1951   t1084 = t426 * t135;
1952   t1085 = t1084 * t192;
1953   t1086 = t346 * t1085;
1954   t1087 = t1086 / 0.96e2;
1955   t1088 = t189 * t354;
1956   t1089 = t1088 * t192;
1957   t1090 = t346 * t1089;
1958   t1091 = t1090 / 0.192e3;
1959   t1092 = t432 * t135;
1960   t1093 = t1092 * t441;
1961   t1094 = t346 * t1093;
1962   t1095 = t1094 / 0.27648e5;
1963   t1097 = t4 * t184 * t360;
1964   t1098 = t1097 * t193;
1965   t1099 = t1098 / 0.1152e4;
1966   t1100 = t369 * t427;
1967   t1102 = t369 * t442;
1968   t1104 = t421 * t188;
1969   t1105 = t1104 * t192;
1970   t1106 = t186 * t1105;
1971   t1107 = t1106 / 0.256e3;
1972   t1108 = t179 * t431;
1973   t1109 = t1108 * t441;
1974   t1110 = t186 * t1109;
1975   t1111 = t1110 / 0.36864e5;
1976   t1112 = t187 * t187;
1977   t1113 = 0.1e1 / t1112;
1978   t1114 = t62 * t1113;
1979   t1116 = 0.1e1 / t433 / t63;
1980   t1117 = t435 * t435;
1981   t1118 = t1117 * sigma[0];
1982   t1119 = t1116 * t1118;
1983   t1121 = 0.1e1 / t438 / t978;
1984   t1122 = t1119 * t1121;
1985   t1123 = t1114 * t1122;
1986   t1124 = t186 * t1123;
1987   t1125 = t1124 / 0.10616832e8;
1988   t1126 = t369 * t446;
1989   t1128 = t426 * t445;
1990   t1129 = t186 * t1128;
1991   t1130 = 0.9e1 / 0.256e3 * t1129;
1992   t1132 = 0.1e1 / t438 / t150;
1993   t1133 = t437 * t1132;
1994   t1134 = t432 * t1133;
1995   t1135 = t186 * t1134;
1996   t1136 = t1135 / 0.4096e4;
1997   t1137 = t66 * t979;
1998   t1138 = t189 * t1137;
1999   t1139 = t186 * t1138;
2000   t1140 = 0.15e2 / 0.128e3 * t1139;
2001   t1141 = -t1064 + t1067 - 0.3e1 / 0.8e1 * t1069 + t1073 - t1079 - t1082 / 0.288e3 - t1087 - t1091 - t1095 + t1099 - t1100 / 0.384e3 - t1102 / 0.110592e6 - t1107 - t1111 - t1125 + 0.3e1 / 0.256e3 * t1126 + t1130 + t1136 - t1140;
2002   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2003     v3rho3[0] = -t370 / 0.384e3 - t349 / 0.96e2 + 0.9e1 / 0.256e3 * t447 - 0.3e1 * t344 - 0.3e1 / 0.2e1 * t357 + t893 - 0.3e1 / 0.2e1 * t465 + t895 - 0.3e1 / 0.4e1 * t366 - 0.9e1 / 0.8e1 * t424 - t336 / 0.2e1 - t340 - t456 / 0.2e1 - t460 - t428 / 0.128e3 - t443 / 0.36864e5 + t9 * (t1060 + t1141);
2004 
2005   t1145 = t332 * t342 * t473;
2006   t1147 = t212 * t354;
2007   t1149 = t332 * t130 * t1147;
2008   t1151 = t217 * t462;
2009   t1153 = t452 * t198 * t1151;
2010   t1155 = t505 * t199;
2011   t1157 = t452 * t504 * t1155;
2012   t1159 = t212 * t333;
2013   t1161 = t913 * t130 * t1159;
2014   t1164 = t332 * t338 * t473;
2015   t1165 = t1164 / 0.9e1;
2016   t1166 = t490 * t135;
2017   t1168 = t332 * t489 * t1166;
2018   t1170 = t217 * t453;
2019   t1172 = t929 * t198 * t1170;
2020   t1175 = t452 * t458 * t497;
2021   t1176 = t1175 / 0.9e1;
2022   t1178 = t129 * t945 * t212;
2023   t1179 = t1178 / 0.3e1;
2024   t1181 = t129 * t951 * t212;
2025   t1184 = 0.1e1 / t140 / t351;
2026   t1185 = t1184 * t113;
2027   t1187 = t197 * t1185 * t505;
2028   t1189 = -t1145 / 0.3e1 - t1149 / 0.6e1 - t1153 / 0.6e1 + t1157 / 0.3e1 + t1161 / 0.9e1 - t1165 - t1168 / 0.3e1 + t1172 / 0.9e1 - t1176 - t1179 - t1181 / 0.2e1 - 0.7e1 / 0.6e1 * t1187;
2029   t1191 = t197 * t510 * t463;
2030   t1194 = t129 * t922 * t212;
2031   t1196 = t1184 * t62;
2032   t1198 = t129 * t1196 * t490;
2033   t1200 = t488 * t179;
2034   t1202 = t129 * t1200 * t490;
2035   t1204 = t197 * t938 * t217;
2036   t1207 = t452 * t510 * t454;
2037   t1209 = t141 * t254;
2038   t1211 = t197 * t1209 * t200;
2039   t1212 = t1211 / 0.3e1;
2040   t1218 = -t1191 / 0.2e1 + t1194 / 0.9e1 + 0.7e1 / 0.6e1 * t1198 - t1202 + t1204 / 0.9e1 - t1207 / 0.6e1 - t1212 - t920 / 0.18e2 + 0.2e1 / 0.9e1 * t924 - t936 / 0.18e2 + 0.2e1 / 0.9e1 * t940 - t947 / 0.3e1;
2041   t1222 = t14 * t488;
2042   t1224 = t7 * t1222 * t73;
2043   t1226 = t78 * t488;
2044   t1228 = t7 * t1226 * t122;
2045   t1231 = t7 * t467 * t255;
2046   t1235 = t432 * t211;
2047   t1236 = t1235 * t441;
2048   t1237 = t346 * t1236;
2049   t1239 = t520 * t462;
2050   t1240 = t519 * t1239;
2051   t1241 = t518 * t1240;
2052   t1243 = t483 * t445;
2053   t1244 = t346 * t1243;
2054   t1246 = -t949 / 0.6e1 - t968 / 0.6e1 - t1224 / 0.2e1 + t1228 / 0.2e1 + t1231 / 0.12e2 - t1059 - t1064 + t1066 / 0.6e1 - t1069 / 0.8e1 - t1237 / 0.82944e5 - t1241 / 0.576e3 + t1244 / 0.64e2;
2055   t1248 = t4 * t128 * t488;
2056   t1249 = t189 * t8;
2057   t1250 = t1249 * t192;
2058   t1251 = t1248 * t1250;
2059   t1254 = t4 * t451 * t16;
2060   t1255 = t520 * t453;
2061   t1256 = t519 * t1255;
2062   t1257 = t1254 * t1256;
2063   t1260 = t4 * t196 * t141;
2064   t1261 = t1260 * t522;
2065   t1262 = t1261 / 0.864e3;
2066   t1263 = t1081 * t484;
2067   t1264 = t1263 / 0.864e3;
2068   t1265 = t426 * t211;
2069   t1266 = t1265 * t192;
2070   t1267 = t346 * t1266;
2071   t1271 = t4 * t259 * t360;
2072   t1272 = t1271 * t268;
2073   t1278 = t330 * t16;
2074   t1280 = t7 * t1278 * t62;
2075   t1281 = t188 * t211;
2076   t1282 = t1281 * t135;
2077   t1283 = t1282 * t192;
2078   t1284 = t1280 * t1283;
2079   t1286 = -t1251 / 0.288e3 - t1257 / 0.1728e4 - t1262 - t1264 - t1267 / 0.288e3 - t1082 / 0.864e3 + t1272 / 0.3456e4 + t1098 / 0.1728e4 - t1100 / 0.1152e4 - t1102 / 0.331776e6 + t1126 / 0.256e3 - t1284 / 0.864e3;
2080   t1292 = t9 * (t1189 + t1218 + t1246 + t1286) - t358 - t457 - 0.2e1 / 0.3e1 * t460 - t466 - t538 - t481 - t492 - t549 + t507 - t512 - t337 - 0.2e1 / 0.3e1 * t340 - t344;
2081   t1294 = t485 / 0.288e3;
2082   t1295 = t523 / 0.288e3;
2083   t1297 = t475 / 0.3e1;
2084   t1298 = t499 / 0.3e1;
2085   t1299 = -t561 + t893 - t366 / 0.2e1 - t425 + t895 - t350 - t1294 - t1295 - t370 / 0.576e3 - t429 - t444 + t448 - t562 - t1297 - t1298;
2086   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2087     v3rho3[1] = t1292 + t1299;
2088 
2089   t1301 = t452 * t510 * t497;
2090   t1303 = t557 * t199;
2091   t1305 = t452 * t198 * t1303;
2092   t1307 = t534 * t135;
2093   t1309 = t913 * t130 * t1307;
2094   t1311 = t212 * t8;
2095   t1313 = t332 * t489 * t1311;
2096   t1315 = t540 * t135;
2097   t1317 = t332 * t130 * t1315;
2098   t1319 = t545 * t199;
2099   t1321 = t929 * t198 * t1319;
2100   t1323 = t217 * t8;
2101   t1325 = t452 * t504 * t1323;
2102   t1328 = t129 * t338 * t540;
2103   t1331 = t452 * t458 * t545;
2104   t1334 = t197 * t1209 * t217;
2105   t1336 = -t1301 / 0.3e1 - t1305 / 0.6e1 + t1309 / 0.9e1 - t1313 / 0.3e1 - t1317 / 0.6e1 + t1321 / 0.9e1 + t1325 / 0.3e1 - t1165 - t1176 - t1328 / 0.6e1 - t1331 / 0.18e2 - t1334 / 0.3e1;
2106   t1338 = t197 * t458 * t557;
2107   t1341 = t332 * t338 * t534;
2108   t1344 = t332 * t342 * t534;
2109   t1347 = t129 * t342 * t540;
2110   t1350 = -t352 - 0.3e1 * t960;
2111   t1351 = t72 * t1350;
2112   t1353 = t129 * t130 * t1351;
2113   t1355 = t488 * t254;
2114   t1357 = t197 * t1355 * t505;
2115   t1358 = -t1350;
2116   t1359 = t121 * t1358;
2117   t1361 = t197 * t198 * t1359;
2118   t1363 = t16 * t611;
2119   t1365 = t197 * t1363 * t200;
2120   t1370 = -t1338 / 0.6e1 - t1341 / 0.18e2 - t1344 / 0.6e1 - t1347 / 0.2e1 - t1353 / 0.2e1 + t1357 - t1361 / 0.2e1 - t1365 / 0.2e1 - t1179 + t1187 / 0.3e1 + 0.2e1 / 0.9e1 * t1194 - t1198 / 0.3e1;
2121   t1376 = t7 * t204 * t612;
2122   t1380 = t1260 * t553;
2123   t1382 = t189 * t533;
2124   t1383 = t1382 * t192;
2125   t1384 = t1075 * t1383;
2126   t1386 = t189 * t539;
2127   t1387 = t1386 * t192;
2128   t1388 = t346 * t1387;
2129   t1390 = 0.2e1 / 0.9e1 * t1204 - t1212 + t924 / 0.9e1 + t940 / 0.9e1 - t1376 / 0.8e1 + t1231 / 0.6e1 - t1059 - t1064 + t1066 / 0.12e2 - t1380 / 0.864e3 - t1384 / 0.1728e4 - t1388 / 0.576e3;
2130   t1392 = t4 * t196 * t488;
2131   t1393 = t264 * t8;
2132   t1394 = t1393 * t267;
2133   t1395 = t1392 * t1394;
2134   t1397 = t616 * t64;
2135   t1398 = t1397 * t521;
2136   t1399 = t518 * t1398;
2137   t1401 = t622 * t434;
2138   t1402 = t624 * t628;
2139   t1403 = t1402 * t199;
2140   t1404 = t1401 * t1403;
2141   t1405 = t518 * t1404;
2142   t1407 = t526 * t617;
2143   t1409 = t526 * t630;
2144   t1411 = t526 * t634;
2145   t1415 = t450 * t16;
2146   t1417 = t7 * t1415 * t113;
2147   t1418 = t263 * t216;
2148   t1419 = t1418 * t64;
2149   t1420 = t1419 * t521;
2150   t1421 = t1417 * t1420;
2151   t1423 = t583 * t199;
2152   t1424 = t519 * t1423;
2153   t1425 = t518 * t1424;
2154   t1427 = t1395 / 0.288e3 - t1399 / 0.288e3 - t1405 / 0.82944e5 - t1262 - t1264 - t1407 / 0.1152e4 - t1409 / 0.331776e6 + t1411 / 0.256e3 + t1272 / 0.1728e4 + t1098 / 0.3456e4 - t1421 / 0.864e3 + t1425 / 0.64e2;
2155   t1433 = t9 * (t1336 + t1370 + t1390 + t1427) - t537 - t543 - t548 - t551 - t560 - t461 - 0.2e1 / 0.3e1 * t478 - t481 - t492 - 0.2e1 / 0.3e1 * t502 + t507 - t512 - t341;
2156   t1436 = -t615 - t515 / 0.2e1 + t893 - t367 + t895 - t1294 - t1295 - t555 - t619 - t632 + t636 - t371 - t527 / 0.576e3 - t1297 - t1298;
2157   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2158     v3rho3[2] = t1433 + t1436;
2159 
2160   t1449 = t212 * t539;
2161   t1451 = t332 * t130 * t1449;
2162   t1452 = t1451 / 0.2e1;
2163   t1453 = t217 * t556;
2164   t1455 = t452 * t198 * t1453;
2165   t1456 = t1455 / 0.2e1;
2166   t1457 = t533 * t211;
2167   t1458 = t72 * t1457;
2168   t1460 = t913 * t130 * t1458;
2169   t1461 = t1460 / 0.9e1;
2170   t1462 = t544 * t216;
2171   t1463 = t121 * t1462;
2172   t1465 = t929 * t198 * t1463;
2173   t1466 = t1465 / 0.9e1;
2174   t1468 = -0.3e1 * t352 - 0.3e1 * t960;
2175   t1469 = t72 * t1468;
2176   t1471 = t129 * t130 * t1469;
2177   t1472 = t1471 / 0.2e1;
2178   t1474 = t452 * t510 * t545;
2179   t1475 = t1474 / 0.2e1;
2180   t1477 = t197 * t1363 * t217;
2181   t1478 = 0.3e1 / 0.2e1 * t1477;
2182   t1480 = t197 * t510 * t557;
2183   t1481 = 0.3e1 / 0.2e1 * t1480;
2184   t1482 = -t1468;
2185   t1483 = t121 * t1482;
2186   t1485 = t197 * t198 * t1483;
2187   t1486 = t1485 / 0.2e1;
2188   t1491 = t1194 / 0.3e1;
2189   t1492 = t1204 / 0.3e1;
2190   t1494 = t221 * t221;
2191   t1495 = 0.1e1 / t1494;
2192   t1496 = t1495 * t64;
2193   t1497 = t116 * t225;
2194   t1498 = 0.1e1 / t1497;
2195   t1499 = t114 * t1498;
2196   t1504 = 0.1e1 / t82 / t116;
2197   t1509 = t564 * t18;
2198   t1510 = t992 * t623;
2199   t1511 = t116 * t95;
2200   t1513 = 0.1e1 / t83 / t1511;
2201   t1518 = 0.1e1 / t83 / t95;
2202   t1525 = t564 * t64;
2203   t1526 = t1525 * t623;
2204   t1528 = t1513 * t18 * t22;
2205   t1531 = t564 * t623;
2206   t1536 = t233 * t1504;
2207   t1539 = sqrt(t107);
2208   t1540 = t1539 * t110;
2209   t1541 = t407 * t599;
2210   t1542 = 0.1e1 / t567;
2211   t1546 = t592 * t36;
2212   t1549 = t250 * t1518;
2213   t1552 = t592 * t407;
2214   t1553 = t1552 * t93;
2215   t1555 = t1504 * t36 * t50;
2216   t1562 = 0.1e1 / t82 / t94;
2217   t1568 = -0.60066456629762810506e-4 * t1496 * t1499 * t101 + 0.26759606428559332080e-2 * t566 * t93 * t1504 * t101 - 0.13514952741696632364e-4 * t1509 * t1510 * t1513 - 0.15172696844993141289e0 * t224 * sigma[2] * t1518 * t101 + 0.67324737082761774120e-2 * t580 * t1499 - 0.13514952741696632364e-4 * t1526 * t1528 - 0.13874426501915503143e-6 * t1531 * t1528 + 0.82601398179153947962e-4 * t586 * t1498 + 0.209e3 / 0.486e3 * t232 * t1536 - 0.97612289261740478210e-1 * t1540 * t1541 * t1542 - 0.90381749316426368713e-3 * t1546 * t1536 - 0.56940502069348612290e-1 * t594 * t1549 - 0.18076349863285273742e-2 * t1553 * t1555 - 0.48806144630870239106e-2 * t598 * t599 * t1542 - 0.31633612260749229050e-2 * t242 * t243 * t1562 - 0.16569987374678167598e-3 * t249 * t1549;
2218   t1569 = t1568 * t121;
2219   t1571 = t7 * t80 * t1569;
2220   t1572 = 0.3e1 / 0.8e1 * t1571;
2221   t1573 = -t1452 - t1456 + t1461 + t1466 - t1472 - t1475 - t1478 - t1481 - t1486 - t1328 / 0.2e1 - t1331 / 0.6e1 - t1334 - t1338 / 0.2e1 - t1341 / 0.6e1 + t1491 + t1492 - 0.3e1 / 0.8e1 * t1376 - t1572;
2222   t1574 = t1231 / 0.4e1;
2223   t1576 = t616 * t633;
2224   t1577 = t261 * t1576;
2225   t1578 = 0.9e1 / 0.256e3 * t1577;
2226   t1580 = 0.1e1 / t626 / t225;
2227   t1581 = t625 * t1580;
2228   t1582 = t622 * t1581;
2229   t1583 = t261 * t1582;
2230   t1584 = t1583 / 0.4096e4;
2231   t1585 = t115 * t1498;
2232   t1586 = t264 * t1585;
2233   t1587 = t261 * t1586;
2234   t1588 = 0.15e2 / 0.128e3 * t1587;
2235   t1592 = t611 * t263;
2236   t1593 = t1592 * t267;
2237   t1594 = t261 * t1593;
2238   t1595 = t1594 / 0.256e3;
2239   t1596 = t254 * t621;
2240   t1597 = t1596 * t629;
2241   t1598 = t261 * t1597;
2242   t1599 = t1598 / 0.36864e5;
2243   t1600 = t262 * t262;
2244   t1601 = 0.1e1 / t1600;
2245   t1602 = t113 * t1601;
2246   t1603 = t623 * t623;
2247   t1604 = t1603 * sigma[2];
2248   t1605 = t1116 * t1604;
2249   t1607 = 0.1e1 / t626 / t1497;
2250   t1608 = t1605 * t1607;
2251   t1609 = t1602 * t1608;
2252   t1610 = t261 * t1609;
2253   t1611 = t1610 / 0.10616832e8;
2254   t1612 = t1272 / 0.1152e4;
2255   t1613 = t552 * t633;
2256   t1614 = t518 * t1613;
2257   t1615 = 0.3e1 / 0.64e2 * t1614;
2258   t1616 = t264 * t544;
2259   t1617 = t1616 * t267;
2260   t1618 = t1254 * t1617;
2261   t1619 = t1618 / 0.576e3;
2262   t1620 = t616 * t216;
2263   t1621 = t1620 * t267;
2264   t1622 = t518 * t1621;
2265   t1623 = t1622 / 0.96e2;
2266   t1624 = t264 * t556;
2267   t1625 = t1624 * t267;
2268   t1626 = t518 * t1625;
2269   t1627 = t1626 / 0.192e3;
2270   t1628 = t622 * t216;
2271   t1629 = t1628 * t629;
2272   t1630 = t518 * t1629;
2273   t1631 = t1630 / 0.27648e5;
2274   t1632 = t1574 - t1059 - t1064 - t1380 / 0.288e3 + t1578 + t1584 - t1588 - t1407 / 0.384e3 - t1409 / 0.110592e6 + 0.3e1 / 0.256e3 * t1411 - t1595 - t1599 - t1611 + t1612 + t1615 - t1619 - t1623 - t1627 - t1631;
2275   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2276     v3rho3[3] = t893 + t895 - 0.3e1 / 0.4e1 * t515 - 0.3e1 / 0.2e1 * t542 - 0.3e1 * t551 - 0.3e1 / 0.2e1 * t559 - 0.9e1 / 0.8e1 * t614 - t478 - t502 - t536 / 0.2e1 - t547 / 0.2e1 - t618 / 0.128e3 - t631 / 0.36864e5 - t527 / 0.384e3 - t554 / 0.96e2 + 0.9e1 / 0.256e3 * t635 + t9 * (t1573 + t1632);
2277 
2278   t1635 = t644 / 0.4e1;
2279   t1639 = t690 / 0.3072e4;
2280   t1644 = t332 * t639 * t334;
2281   t1645 = t1644 / 0.6e1;
2282   t1646 = t141 * t288;
2283   t1648 = t129 * t1646 * t136;
2284   t1649 = t1648 / 0.3e1;
2285   t1650 = t16 * t675;
2286   t1652 = t129 * t1650 * t136;
2287   t1654 = t129 * t639 * t355;
2288   t1655 = t1654 / 0.2e1;
2289   t1656 = t369 * t681;
2290   t1657 = t1656 / 0.1152e4;
2291   t1658 = t675 * t188;
2292   t1659 = t1658 * t192;
2293   t1660 = t186 * t1659;
2294   t1661 = t1660 / 0.384e3;
2295   t1662 = t288 * t431;
2296   t1663 = t1662 * t441;
2297   t1664 = t186 * t1663;
2298   t1665 = t1664 / 0.110592e6;
2299   t1666 = t369 * t692;
2300   t1667 = t1666 / 0.3072e4;
2301   t1668 = t369 * t700;
2302   t1669 = t1668 / 0.442368e6;
2303   t1670 = t1104 * t294;
2304   t1671 = t186 * t1670;
2305   t1672 = t1671 / 0.2048e4;
2306   t1673 = t1108 * t699;
2307   t1674 = t186 * t1673;
2308   t1675 = t1674 / 0.147456e6;
2309   t1676 = t1116 * t1117;
2310   t1678 = 0.1e1 / t438 / t390;
2311   t1679 = t1676 * t1678;
2312   t1680 = t1114 * t1679;
2313   t1681 = t186 * t1680;
2314   t1682 = t1681 / 0.28311552e8;
2315   t1683 = t680 * t445;
2316   t1684 = t186 * t1683;
2317   t1685 = 0.3e1 / 0.256e3 * t1684;
2318   t1686 = t1097 * t295;
2319   t1687 = t1686 / 0.9216e4;
2320   t1688 = -t1645 - t1649 - t1652 - t1655 - t1657 - t1661 - t1665 + t1667 + t1669 + t1672 + t1675 + t1682 + t1685 - t1687;
2321   t1689 = t369 * t704;
2322   t1690 = t1689 / 0.384e3;
2323   t1691 = t426 * t703;
2324   t1692 = t186 * t1691;
2325   t1693 = t1692 / 0.128e3;
2326   t1694 = t696 * t440;
2327   t1695 = t432 * t1694;
2328   t1696 = t186 * t1695;
2329   t1697 = 0.25e2 / 0.294912e6 * t1696;
2330   t1698 = t293 * t391;
2331   t1699 = t189 * t1698;
2332   t1700 = t186 * t1699;
2333   t1701 = 0.9e1 / 0.256e3 * t1700;
2334   t1703 = t7 * t361 * t289;
2335   t1704 = t1703 / 0.12e2;
2336   t1706 = t7 * t142 * t676;
2337   t1707 = t1706 / 0.4e1;
2338   t1708 = t391 * t48;
2339   t1716 = t67 * t41;
2340   t1718 = 0.1e1 / t26 / t1716;
2341   t1719 = t992 * t1718;
2342   t1723 = t22 * t384;
2343   t1727 = t391 * t40;
2344   t1730 = t1008 * t1718;
2345   t1732 = t65 * t18 * t22;
2346   t1735 = t373 * t65;
2347   t1742 = t277 * t378;
2348   t1754 = t1035 * sigma[0];
2349   t1756 = t378 * t36 * t50;
2350   t1767 = 0.22524921236161053940e-4 * t977 * t1708 * t40 - 0.82103337905807041610e-3 * t375 * t378 * t48 * sigma[0] + 0.50681072781362371364e-5 * t990 * t1719 * t65 + 0.32512921810699588478e-1 * t148 * t1723 * t48 - 0.21552126200274348423e-2 * t389 * t1727 + 0.50681072781362371364e-5 * t1730 * t1732 + 0.52029099382183136787e-7 * t1735 * t1718 * t18 * t22 - 0.27182602972221579814e-4 * t657 * t391 - 0.19e2 / 0.162e3 * t157 * t1742 + 0.36604608473152679328e-1 * t1023 * t407 * t410 * t52 + 0.33893155993659888267e-3 * t1029 * t1742 + 0.15251920197146949720e-1 * t402 * t23 * t384 + 0.67786311987319776533e-3 * t1754 * t1756 + 0.14235125517337153072e-2 * t408 * t52 * t410 + 0.47450418391123843573e-3 * t167 * t282 * t415 + 0.35507115802881787709e-4 * t174 * t1723;
2351   t1768 = t1767 * t72;
2352   t1770 = t7 * t17 * t1768;
2353   t1771 = 0.3e1 / 0.8e1 * t1770;
2354   t1772 = t685 * t333;
2355   t1773 = t684 * t1772;
2356   t1774 = t1075 * t1773;
2357   t1775 = t1774 / 0.4608e4;
2358   t1776 = t1081 * t687;
2359   t1777 = t1776 / 0.2304e4;
2360   t1778 = t654 * t135;
2361   t1779 = t684 * t1778;
2362   t1780 = t346 * t1779;
2363   t1781 = t1780 / 0.96e2;
2364   t1782 = t680 * t135;
2365   t1783 = t1782 * t192;
2366   t1784 = t346 * t1783;
2367   t1785 = t1784 / 0.288e3;
2368   t1786 = t426 * t64;
2369   t1787 = t1786 * t686;
2370   t1788 = t346 * t1787;
2371   t1789 = t1788 / 0.768e3;
2372   t1790 = t685 * t354;
2373   t1791 = t684 * t1790;
2374   t1792 = t346 * t1791;
2375   t1793 = t1792 / 0.1536e4;
2376   t1794 = t432 * t434;
2377   t1795 = t695 * t698;
2378   t1796 = t1795 * t135;
2379   t1797 = t1794 * t1796;
2380   t1798 = t346 * t1797;
2381   t1799 = t1798 / 0.110592e6;
2382   t1800 = -t1690 - t1693 - t1697 + t1701 + t1704 - t1707 - t1771 + t1775 + t1777 - t1781 - t1785 + t1789 + t1793 + t1799;
2383   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2384     v3rho2sigma[0] = -t641 - t1635 - 0.3e1 / 0.4e1 * t678 - t682 / 0.384e3 + t688 / 0.768e3 + t1639 + t693 / 0.1024e4 + t701 / 0.147456e6 - t705 / 0.128e3 + t9 * (t1688 + t1800);
2385 
2386   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2387     v3rho2sigma[1] = 0.0e0;
2388 
2389   t1803 = t714 / 0.4e1;
2390   t1805 = t721 / 0.3072e4;
2391   t1807 = t452 * t709 * t454;
2392   t1808 = t1807 / 0.6e1;
2393   t1809 = t141 * t314;
2394   t1811 = t197 * t1809 * t200;
2395   t1812 = t1811 / 0.3e1;
2396   t1814 = t197 * t709 * t463;
2397   t1815 = t1814 / 0.2e1;
2398   t1817 = t7 * t467 * t315;
2399   t1818 = t1817 / 0.12e2;
2400   t1819 = t716 * t453;
2401   t1820 = t519 * t1819;
2402   t1821 = t1254 * t1820;
2403   t1822 = t1821 / 0.4608e4;
2404   t1823 = t1260 * t718;
2405   t1824 = t1823 / 0.2304e4;
2406   t1825 = t716 * t462;
2407   t1826 = t519 * t1825;
2408   t1827 = t518 * t1826;
2409   t1828 = t1827 / 0.1536e4;
2410   t1829 = t1271 * t321;
2411   t1830 = t1829 / 0.9216e4;
2412   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2413     v3rho2sigma[2] = -t711 - t1803 + t719 / 0.768e3 + t1805 + t9 * (-t1808 - t1812 - t1815 + t1818 + t1822 + t1824 + t1828 - t1830);
2414 
2415   t1834 = t332 * t639 * t473;
2416   t1837 = t129 * t1646 * t212;
2417   t1840 = t129 * t1650 * t212;
2418   t1842 = t680 * t211;
2419   t1843 = t1842 * t192;
2420   t1844 = t346 * t1843;
2421   t1846 = t488 * t288;
2422   t1848 = t129 * t1846 * t490;
2423   t1853 = t188 * t64;
2424   t1854 = t1853 * t40;
2425   t1855 = t68 * t211;
2426   t1856 = t1855 * t135;
2427   t1857 = t1854 * t1856;
2428   t1858 = t1280 * t1857;
2429   t1860 = t1081 * t729;
2430   t1862 = t1786 * t728;
2431   t1863 = t346 * t1862;
2432   t1865 = t1795 * t211;
2433   t1866 = t1794 * t1865;
2434   t1867 = t346 * t1866;
2435   t1869 = t654 * t211;
2436   t1870 = t684 * t1869;
2437   t1871 = t346 * t1870;
2438   t1873 = t685 * t8;
2439   t1874 = t684 * t1873;
2440   t1875 = t1248 * t1874;
2441   t1881 = -t1834 / 0.6e1 - t1837 / 0.6e1 - t1840 / 0.2e1 - t1844 / 0.576e3 - t1848 / 0.2e1 - t1648 / 0.6e1 + t1704 - t1706 / 0.8e1 - t1656 / 0.2304e4 + t1858 / 0.4608e4 + t1860 / 0.4608e4 + t1863 / 0.1536e4 + t1867 / 0.221184e6 - t1871 / 0.192e3 + t1875 / 0.1536e4 + t1776 / 0.4608e4 - t1687 + t1666 / 0.6144e4 + t1668 / 0.884736e6 - t1689 / 0.768e3;
2442   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2443     v3rho2sigma[3] = t9 * t1881 - t1635 + t1639 - t642 - t679 - t683 + t689 + t694 + t702 - t706 - t727 + t731;
2444 
2445   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2446     v3rho2sigma[4] = 0.0e0;
2447 
2448   t1884 = t452 * t709 * t497;
2449   t1887 = t197 * t1809 * t217;
2450   t1889 = t488 * t314;
2451   t1891 = t197 * t1889 * t505;
2452   t1894 = t16 * t766;
2453   t1896 = t197 * t1894 * t200;
2454   t1899 = t7 * t204 * t767;
2455   t1901 = t771 * t64;
2456   t1902 = t1901 * t521;
2457   t1903 = t518 * t1902;
2458   t1905 = t526 * t772;
2459   t1907 = t263 * t64;
2460   t1908 = t1907 * t93;
2461   t1909 = t117 * t216;
2462   t1910 = t1909 * t199;
2463   t1911 = t1908 * t1910;
2464   t1912 = t1417 * t1911;
2465   t1914 = t1260 * t776;
2466   t1916 = t716 * t8;
2467   t1917 = t519 * t1916;
2468   t1918 = t1392 * t1917;
2469   t1921 = t1397 * t717;
2470   t1922 = t518 * t1921;
2471   t1924 = t526 * t779;
2472   t1926 = t782 * t785;
2473   t1927 = t1926 * t199;
2474   t1928 = t1401 * t1927;
2475   t1929 = t518 * t1928;
2476   t1931 = t526 * t787;
2477   t1933 = t745 * t199;
2478   t1934 = t519 * t1933;
2479   t1935 = t518 * t1934;
2480   t1937 = t526 * t791;
2481   t1939 = -t1884 / 0.6e1 - t1887 / 0.6e1 + t1891 / 0.2e1 - t1811 / 0.6e1 + t1818 - t1896 / 0.2e1 - t1899 / 0.8e1 - t1903 / 0.576e3 - t1905 / 0.2304e4 + t1912 / 0.4608e4 + t1914 / 0.4608e4 - t1918 / 0.1536e4 + t1823 / 0.4608e4 - t1830 + t1922 / 0.1536e4 + t1924 / 0.6144e4 + t1929 / 0.221184e6 + t1931 / 0.884736e6 - t1935 / 0.192e3 - t1937 / 0.768e3;
2482   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2483     v3rho2sigma[5] = t9 * t1939 - t1803 + t1805 - t712 + t720 - t736 - t770 - t774 + t778 + t781 + t789 - t793;
2484 
2485   t1943 = t332 * t639 * t534;
2486   t1944 = t1943 / 0.6e1;
2487   t1945 = t1837 / 0.3e1;
2488   t1947 = t129 * t639 * t540;
2489   t1948 = t1947 / 0.2e1;
2490   t1949 = t685 * t533;
2491   t1950 = t684 * t1949;
2492   t1951 = t1075 * t1950;
2493   t1952 = t1951 / 0.4608e4;
2494   t1953 = t1860 / 0.2304e4;
2495   t1954 = t685 * t539;
2496   t1955 = t684 * t1954;
2497   t1956 = t346 * t1955;
2498   t1957 = t1956 / 0.1536e4;
2499   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2500     v3rho2sigma[6] = -t726 - t1635 + t730 / 0.768e3 + t1639 + t9 * (-t1944 - t1945 - t1948 + t1704 + t1952 + t1953 + t1957 - t1687);
2501 
2502   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2503     v3rho2sigma[7] = 0.0e0;
2504 
2505   t1967 = t197 * t1894 * t217;
2506   t1969 = t197 * t709 * t557;
2507   t1970 = t1969 / 0.2e1;
2508   t1972 = t452 * t709 * t545;
2509   t1973 = t1972 / 0.6e1;
2510   t1974 = t1887 / 0.3e1;
2511   t1975 = t1905 / 0.1152e4;
2512   t1976 = t1924 / 0.3072e4;
2513   t1977 = t1931 / 0.442368e6;
2514   t1978 = t1937 / 0.384e3;
2515   t1979 = t766 * t263;
2516   t1980 = t1979 * t267;
2517   t1981 = t261 * t1980;
2518   t1982 = t1981 / 0.384e3;
2519   t1983 = t314 * t621;
2520   t1984 = t1983 * t629;
2521   t1985 = t261 * t1984;
2522   t1986 = t1985 / 0.110592e6;
2523   t1987 = t1592 * t320;
2524   t1988 = t261 * t1987;
2525   t1989 = t1988 / 0.2048e4;
2526   t1990 = t1596 * t786;
2527   t1991 = t261 * t1990;
2528   t1992 = t1991 / 0.147456e6;
2529   t1993 = t1116 * t1603;
2530   t1995 = 0.1e1 / t626 / t581;
2531   t1996 = t1993 * t1995;
2532   t1997 = t1602 * t1996;
2533   t1998 = t261 * t1997;
2534   t1999 = t1998 / 0.28311552e8;
2535   t2000 = -t1967 - t1970 - t1973 - t1974 - t1830 - t1975 + t1976 + t1977 - t1978 - t1982 - t1986 + t1989 + t1992 + t1999;
2536   t2001 = t771 * t633;
2537   t2002 = t261 * t2001;
2538   t2003 = 0.3e1 / 0.256e3 * t2002;
2539   t2004 = t616 * t790;
2540   t2005 = t261 * t2004;
2541   t2006 = t2005 / 0.128e3;
2542   t2007 = t1899 / 0.4e1;
2543   t2008 = t582 * t101;
2544   t2016 = t116 * t94;
2545   t2018 = 0.1e1 / t83 / t2016;
2546   t2019 = t992 * t2018;
2547   t2023 = t22 * t575;
2548   t2027 = t582 * t93;
2549   t2030 = t1525 * t2018;
2550   t2032 = t114 * t18 * t22;
2551   t2035 = t564 * t114;
2552   t2042 = t303 * t569;
2553   t2054 = t1552 * sigma[2];
2554   t2056 = t569 * t36 * t50;
2555   t2067 = 0.22524921236161053940e-4 * t1496 * t2008 * t93 - 0.82103337905807041610e-3 * t566 * t569 * t101 * sigma[2] + 0.50681072781362371364e-5 * t1509 * t2019 * t114 + 0.32512921810699588478e-1 * t223 * t2023 * t101 - 0.21552126200274348423e-2 * t580 * t2027 + 0.50681072781362371364e-5 * t2030 * t2032 + 0.52029099382183136787e-7 * t2035 * t2018 * t18 * t22 - 0.27182602972221579814e-4 * t748 * t582 - 0.19e2 / 0.162e3 * t232 * t2042 + 0.36604608473152679328e-1 * t1540 * t407 * t600 * t103 + 0.33893155993659888267e-3 * t1546 * t2042 + 0.15251920197146949720e-1 * t593 * t23 * t575 + 0.67786311987319776533e-3 * t2054 * t2056 + 0.14235125517337153072e-2 * t598 * t103 * t600 + 0.47450418391123843573e-3 * t242 * t308 * t605 + 0.35507115802881787709e-4 * t249 * t2023;
2556   t2068 = t2067 * t121;
2557   t2070 = t7 * t80 * t2068;
2558   t2071 = 0.3e1 / 0.8e1 * t2070;
2559   t2072 = t783 * t628;
2560   t2073 = t622 * t2072;
2561   t2074 = t261 * t2073;
2562   t2075 = 0.25e2 / 0.294912e6 * t2074;
2563   t2076 = t319 * t582;
2564   t2077 = t264 * t2076;
2565   t2078 = t261 * t2077;
2566   t2079 = 0.9e1 / 0.256e3 * t2078;
2567   t2080 = t1914 / 0.2304e4;
2568   t2081 = t716 * t544;
2569   t2082 = t519 * t2081;
2570   t2083 = t1254 * t2082;
2571   t2084 = t2083 / 0.4608e4;
2572   t2085 = t745 * t216;
2573   t2086 = t519 * t2085;
2574   t2087 = t518 * t2086;
2575   t2088 = t2087 / 0.96e2;
2576   t2089 = t771 * t216;
2577   t2090 = t2089 * t267;
2578   t2091 = t518 * t2090;
2579   t2092 = t2091 / 0.288e3;
2580   t2093 = t1397 * t775;
2581   t2094 = t518 * t2093;
2582   t2095 = t2094 / 0.768e3;
2583   t2096 = t716 * t556;
2584   t2097 = t519 * t2096;
2585   t2098 = t518 * t2097;
2586   t2099 = t2098 / 0.1536e4;
2587   t2100 = t1926 * t216;
2588   t2101 = t1401 * t2100;
2589   t2102 = t518 * t2101;
2590   t2103 = t2102 / 0.110592e6;
2591   t2104 = t2003 - t2006 + t1818 - t2007 - t2071 - t2075 + t2079 + t2080 + t2084 - t2088 - t2092 + t2095 + t2099 + t2103;
2592   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2593     v3rho2sigma[8] = -t735 - t1803 - 0.3e1 / 0.4e1 * t769 - t773 / 0.384e3 + t777 / 0.768e3 + t1805 + t780 / 0.1024e4 + t788 / 0.147456e6 - t792 / 0.128e3 + t9 * (t2000 + t2104);
2594 
2595   t2107 = t16 * t822;
2596   t2109 = t129 * t2107 * t136;
2597   t2110 = t2109 / 0.2e1;
2598   t2112 = t7 * t142 * t823;
2599   t2113 = t2112 / 0.8e1;
2600   t2114 = t191 * t48;
2601   t2118 = t38 * t161;
2602   t2123 = 0.1e1 / t26 / t978;
2603   t2124 = t992 * t2123;
2604   t2128 = t1008 * t2123;
2605   t2130 = t40 * t18 * t22;
2606   t2133 = t191 * sigma[0];
2607   t2136 = t373 * t2123;
2608   t2139 = t147 * t191;
2609   t2144 = t407 * t281;
2610   t2163 = -0.84468454635603952274e-5 * t977 * t2114 * sigma[0] + 0.18245186201290453691e-3 * t374 * t2118 * t48 - 0.19005402293010889262e-5 * t990 * t2124 * t40 - 0.19005402293010889261e-5 * t2128 * t2130 + 0.55419753086419753086e-3 * t389 * t2133 - 0.19510912268318676295e-7 * t2136 * t2130 + 0.75858426899223013434e-5 * t2139 * sigma[0] + t157 * t2118 / 0.54e2 - 0.13726728177432254748e-1 * t1023 * t2144 * t666 - 0.12709933497622458100e-3 * t1029 * t2118 - 0.15251920197146949720e-2 * t403 * t809 * t152 - 0.25419866995244916200e-3 * t1035 * t161 * t36 * t50 - 0.25419866995244916201e-3 * t408 * t666 * t281 + 0.10167946798097966480e-3 * t167 * t818 * t170;
2611   t2164 = t2163 * t72;
2612   t2166 = t7 * t17 * t2164;
2613   t2167 = 0.3e1 / 0.8e1 * t2166;
2614   t2168 = t822 * t188;
2615   t2169 = t2168 * t192;
2616   t2170 = t186 * t2169;
2617   t2171 = t2170 / 0.768e3;
2618   t2172 = t680 * t64;
2619   t2173 = t2172 * t686;
2620   t2174 = t346 * t2173;
2621   t2175 = t2174 / 0.768e3;
2622   t2176 = t369 * t827;
2623   t2177 = t2176 / 0.3072e4;
2624   t2178 = t1658 * t294;
2625   t2179 = t186 * t2178;
2626   t2180 = t2179 / 0.1024e4;
2627   t2181 = t1662 * t699;
2628   t2182 = t186 * t2181;
2629   t2183 = t2182 / 0.147456e6;
2630   t2184 = t680 * t703;
2631   t2185 = t186 * t2184;
2632   t2186 = t2185 / 0.128e3;
2633   t2187 = t435 * t831;
2634   t2188 = t2187 * t135;
2635   t2189 = t1794 * t2188;
2636   t2190 = t346 * t2189;
2637   t2191 = t2190 / 0.589824e6;
2638   t2192 = t369 * t833;
2639   t2193 = t2192 / 0.2359296e7;
2640   t2194 = t1108 * t832;
2641   t2195 = t186 * t2194;
2642   t2196 = t2195 / 0.786432e6;
2643   t2197 = t435 * t65;
2644   t2198 = t1116 * t2197;
2645   t2200 = 0.1e1 / t438 / t190;
2646   t2201 = t2198 * t2200;
2647   t2202 = t1114 * t2201;
2648   t2203 = t186 * t2202;
2649   t2204 = t2203 / 0.75497472e8;
2650   t2205 = t830 * t698;
2651   t2206 = t432 * t2205;
2652   t2207 = t186 * t2206;
2653   t2208 = t2207 / 0.36864e5;
2654   t2209 = t800 * t135;
2655   t2210 = t684 * t2209;
2656   t2211 = t346 * t2210;
2657   t2212 = t2211 / 0.768e3;
2658   t2213 = t369 * t838;
2659   t2214 = t2213 / 0.3072e4;
2660   t2215 = t426 * t837;
2661   t2216 = t186 * t2215;
2662   t2217 = t2216 / 0.1024e4;
2663   t2218 = t836 * t191;
2664   t2219 = t189 * t2218;
2665   t2220 = t186 * t2219;
2666   t2221 = t2220 / 0.128e3;
2667   t2222 = -t2110 - t2113 - t2167 - t2171 + t2175 + t2177 + t2180 + t2183 - t2186 - t2191 - t2193 - t2196 - t2204 + t2208 + t2212 + t2214 + t2217 - t2221;
2668   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2669     v3rhosigma2[0] = t9 * t2222 - t826 + t829 - t835 + t840;
2670 
2671   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2672     v3rhosigma2[1] = 0.0e0;
2673 
2674   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2675     v3rhosigma2[2] = 0.0e0;
2676 
2677   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2678     v3rhosigma2[3] = 0.0e0;
2679 
2680   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2681     v3rhosigma2[4] = 0.0e0;
2682 
2683   t2224 = t16 * t868;
2684   t2226 = t197 * t2224 * t200;
2685   t2227 = t2226 / 0.2e1;
2686   t2229 = t7 * t204 * t869;
2687   t2230 = t2229 / 0.8e1;
2688   t2231 = t1901 * t717;
2689   t2232 = t518 * t2231;
2690   t2233 = t2232 / 0.768e3;
2691   t2234 = t526 * t873;
2692   t2235 = t2234 / 0.3072e4;
2693   t2236 = t623 * t877;
2694   t2237 = t2236 * t199;
2695   t2238 = t1401 * t2237;
2696   t2239 = t518 * t2238;
2697   t2240 = t2239 / 0.589824e6;
2698   t2241 = t526 * t879;
2699   t2242 = t2241 / 0.2359296e7;
2700   t2243 = t846 * t199;
2701   t2244 = t519 * t2243;
2702   t2245 = t518 * t2244;
2703   t2246 = t2245 / 0.768e3;
2704   t2247 = t526 * t884;
2705   t2248 = t2247 / 0.3072e4;
2706   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2707     v3rhosigma2[5] = -t872 + t875 - t881 + t886 + t9 * (-t2227 - t2230 + t2233 + t2235 - t2240 - t2242 + t2246 + t2248);
2708 
2709   t2252 = t129 * t2107 * t212;
2710   t2253 = t2252 / 0.2e1;
2711   t2254 = t2172 * t728;
2712   t2255 = t346 * t2254;
2713   t2256 = t2255 / 0.768e3;
2714   t2257 = t2187 * t211;
2715   t2258 = t1794 * t2257;
2716   t2259 = t346 * t2258;
2717   t2260 = t2259 / 0.589824e6;
2718   t2261 = t800 * t211;
2719   t2262 = t684 * t2261;
2720   t2263 = t346 * t2262;
2721   t2264 = t2263 / 0.768e3;
2722   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2723     v3rhosigma2[6] = -t826 + t829 - t835 + t840 + t9 * (-t2253 - t2113 + t2256 + t2177 - t2260 - t2193 + t2264 + t2214);
2724 
2725   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2726     v3rhosigma2[7] = 0.0e0;
2727 
2728   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2729     v3rhosigma2[8] = 0.0e0;
2730 
2731   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2732     v3rhosigma2[9] = 0.0e0;
2733 
2734   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2735     v3rhosigma2[10] = 0.0e0;
2736 
2737   t2268 = t197 * t2224 * t217;
2738   t2269 = t2268 / 0.2e1;
2739   t2270 = t266 * t101;
2740   t2274 = t38 * t236;
2741   t2279 = 0.1e1 / t83 / t1497;
2742   t2280 = t992 * t2279;
2743   t2284 = t1525 * t2279;
2744   t2286 = t93 * t18 * t22;
2745   t2289 = t266 * sigma[2];
2746   t2292 = t564 * t2279;
2747   t2295 = t222 * t266;
2748   t2300 = t407 * t307;
2749   t2319 = -0.84468454635603952274e-5 * t1496 * t2270 * sigma[2] + 0.18245186201290453691e-3 * t565 * t2274 * t101 - 0.19005402293010889262e-5 * t1509 * t2280 * t93 - 0.19005402293010889261e-5 * t2284 * t2286 + 0.55419753086419753086e-3 * t580 * t2289 - 0.19510912268318676295e-7 * t2292 * t2286 + 0.75858426899223013434e-5 * t2295 * sigma[2] + t232 * t2274 / 0.54e2 - 0.13726728177432254748e-1 * t1540 * t2300 * t757 - 0.12709933497622458100e-3 * t1546 * t2274 - 0.15251920197146949720e-2 * t594 * t855 * t227 - 0.25419866995244916200e-3 * t1552 * t236 * t36 * t50 - 0.25419866995244916201e-3 * t598 * t757 * t307 + 0.10167946798097966480e-3 * t242 * t864 * t245;
2750   t2320 = t2319 * t121;
2751   t2322 = t7 * t80 * t2320;
2752   t2323 = 0.3e1 / 0.8e1 * t2322;
2753   t2324 = t868 * t263;
2754   t2325 = t2324 * t267;
2755   t2326 = t261 * t2325;
2756   t2327 = t2326 / 0.768e3;
2757   t2328 = t1901 * t775;
2758   t2329 = t518 * t2328;
2759   t2330 = t2329 / 0.768e3;
2760   t2331 = t1979 * t320;
2761   t2332 = t261 * t2331;
2762   t2333 = t2332 / 0.1024e4;
2763   t2334 = t1983 * t786;
2764   t2335 = t261 * t2334;
2765   t2336 = t2335 / 0.147456e6;
2766   t2337 = t771 * t790;
2767   t2338 = t261 * t2337;
2768   t2339 = t2338 / 0.128e3;
2769   t2340 = t2236 * t216;
2770   t2341 = t1401 * t2340;
2771   t2342 = t518 * t2341;
2772   t2343 = t2342 / 0.589824e6;
2773   t2344 = t1596 * t878;
2774   t2345 = t261 * t2344;
2775   t2346 = t2345 / 0.786432e6;
2776   t2347 = t623 * t114;
2777   t2348 = t1116 * t2347;
2778   t2350 = 0.1e1 / t626 / t265;
2779   t2351 = t2348 * t2350;
2780   t2352 = t1602 * t2351;
2781   t2353 = t261 * t2352;
2782   t2354 = t2353 / 0.75497472e8;
2783   t2355 = t876 * t785;
2784   t2356 = t622 * t2355;
2785   t2357 = t261 * t2356;
2786   t2358 = t2357 / 0.36864e5;
2787   t2359 = t846 * t216;
2788   t2360 = t519 * t2359;
2789   t2361 = t518 * t2360;
2790   t2362 = t2361 / 0.768e3;
2791   t2363 = t616 * t883;
2792   t2364 = t261 * t2363;
2793   t2365 = t2364 / 0.1024e4;
2794   t2366 = t882 * t266;
2795   t2367 = t264 * t2366;
2796   t2368 = t261 * t2367;
2797   t2369 = t2368 / 0.128e3;
2798   t2370 = -t2269 - t2230 - t2323 - t2327 + t2330 + t2235 + t2333 + t2336 - t2339 - t2343 - t2242 - t2346 - t2354 + t2358 + t2362 + t2248 + t2365 - t2369;
2799   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2800     v3rhosigma2[11] = t9 * t2370 - t872 + t875 - t881 + t886;
2801 
2802   t2376 = 0.1e1 / t26 / t390;
2803   t2377 = t992 * t2376;
2804   t2383 = sigma[0] * t18 * t22;
2805   t2388 = t373 * t2376;
2806   t2399 = 0.1e1 / t40;
2807   t2400 = t22 * t2399;
2808   t2404 = t1035 * t44;
2809   t2406 = t808 * t36 * t50;
2810   t2412 = t52 * t40;
2811   t2413 = 0.1e1 / t2412;
2812   t2414 = t50 * t2413;
2813   t2418 = 0.31675670488351482103e-5 * t977 * t68 * t48 + 0.71270258598790834731e-6 * t990 * t2377 * sigma[0] + 0.71270258598790834731e-6 * t1008 * t2376 * t2383 - 0.69274691358024691358e-4 * t389 * t68 + 0.73165921006195036105e-8 * t2388 * t2383 - 0.14223455043604315019e-5 * t803 + 0.51475230665370955305e-2 * t1023 * t407 * t817 * t813 + 0.47662250616084217875e-4 * t1029 * t796 * t808 - 0.17158410221790318435e-2 * t403 * t2400 * t28 + 0.95324501232168435752e-4 * t2404 * t2406 - 0.57194700739301061451e-4 * t408 * t813 * t817 + 0.11438940147860212290e-3 * t167 * t2414 * t54;
2814   t2419 = t2418 * t72;
2815   t2422 = 0.3e1 / 0.8e1 * t7 * t17 * t2419;
2816   t2423 = t2168 * t294;
2817   t2425 = 0.3e1 / 0.2048e4 * t186 * t2423;
2818   t2426 = t1662 * t832;
2819   t2428 = t186 * t2426 / 0.262144e6;
2820   t2429 = t680 * t837;
2821   t2431 = 0.3e1 / 0.1024e4 * t186 * t2429;
2822   t2432 = t1116 * t436;
2823   t2434 = 0.1e1 / t438 / t67;
2824   t2435 = t2432 * t2434;
2825   t2436 = t1114 * t2435;
2826   t2438 = t186 * t2436 / 0.201326592e9;
2827   t2439 = t434 * t65;
2828   t2440 = t2439 * t831;
2829   t2441 = t432 * t2440;
2830   t2443 = t186 * t2441 / 0.131072e6;
2831   t2444 = t4 * t184;
2832   t2445 = t1853 * t68;
2833   t2448 = t2444 * t130 * t2445 / 0.1024e4;
2834   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2835     v3sigma3[0] = t9 * (-t2422 + t2425 - t2428 + t2431 + t2438 - t2443 + t2448);
2836 
2837   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2838     v3sigma3[1] = 0.0e0;
2839 
2840   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2841     v3sigma3[2] = 0.0e0;
2842 
2843   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2844     v3sigma3[3] = 0.0e0;
2845 
2846   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2847     v3sigma3[4] = 0.0e0;
2848 
2849   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2850     v3sigma3[5] = 0.0e0;
2851 
2852   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2853     v3sigma3[6] = 0.0e0;
2854 
2855   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2856     v3sigma3[7] = 0.0e0;
2857 
2858   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2859     v3sigma3[8] = 0.0e0;
2860 
2861   t2454 = 0.1e1 / t83 / t581;
2862   t2455 = t992 * t2454;
2863   t2461 = sigma[2] * t18 * t22;
2864   t2466 = t564 * t2454;
2865   t2477 = 0.1e1 / t93;
2866   t2478 = t22 * t2477;
2867   t2482 = t1552 * t97;
2868   t2484 = t854 * t36 * t50;
2869   t2490 = t103 * t93;
2870   t2491 = 0.1e1 / t2490;
2871   t2492 = t50 * t2491;
2872   t2496 = 0.31675670488351482103e-5 * t1496 * t117 * t101 + 0.71270258598790834731e-6 * t1509 * t2455 * sigma[2] + 0.71270258598790834731e-6 * t1525 * t2454 * t2461 - 0.69274691358024691358e-4 * t580 * t117 + 0.73165921006195036105e-8 * t2466 * t2461 - 0.14223455043604315019e-5 * t849 + 0.51475230665370955305e-2 * t1540 * t407 * t863 * t859 + 0.47662250616084217875e-4 * t1546 * t842 * t854 - 0.17158410221790318435e-2 * t594 * t2478 * t85 + 0.95324501232168435752e-4 * t2482 * t2484 - 0.57194700739301061451e-4 * t598 * t859 * t863 + 0.11438940147860212290e-3 * t242 * t2492 * t105;
2873   t2497 = t2496 * t121;
2874   t2500 = 0.3e1 / 0.8e1 * t7 * t80 * t2497;
2875   t2501 = t2324 * t320;
2876   t2503 = 0.3e1 / 0.2048e4 * t261 * t2501;
2877   t2504 = t1983 * t878;
2878   t2506 = t261 * t2504 / 0.262144e6;
2879   t2507 = t771 * t883;
2880   t2509 = 0.3e1 / 0.1024e4 * t261 * t2507;
2881   t2510 = t1116 * t624;
2882   t2512 = 0.1e1 / t626 / t116;
2883   t2513 = t2510 * t2512;
2884   t2514 = t1602 * t2513;
2885   t2516 = t261 * t2514 / 0.201326592e9;
2886   t2517 = t434 * t114;
2887   t2518 = t2517 * t877;
2888   t2519 = t622 * t2518;
2889   t2521 = t261 * t2519 / 0.131072e6;
2890   t2522 = t4 * t259;
2891   t2523 = t1907 * t117;
2892   t2526 = t2522 * t198 * t2523 / 0.1024e4;
2893   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2894     v3sigma3[9] = t9 * (-t2500 + t2503 - t2506 + t2509 + t2516 - t2521 + t2526);
2895 
2896 #ifndef XC_DONT_COMPILE_LXC
2897 
2898   if(order < 4) return;
2899 
2900 
2901   t2545 = 0.5e1 / 0.9e1 * t1058;
2902   t2546 = 0.5e1 / 0.9e1 * t1063;
2903   t2547 = -0.2e1 * t904 - 0.2e1 * t908 + 0.4e1 / 0.9e1 * t917 - 0.2e1 / 0.3e1 * t920 + 0.4e1 / 0.3e1 * t924 + 0.4e1 / 0.9e1 * t933 - 0.2e1 / 0.3e1 * t936 + 0.4e1 / 0.3e1 * t940 - 0.2e1 * t943 - 0.4e1 * t947 - 0.2e1 * t949 - 0.6e1 * t953 - 0.6e1 * t956 - 0.2e1 * t965 - 0.2e1 * t968 - 0.2e1 * t973 - 0.3e1 / 0.2e1 * t1054 - t2545 - t2546;
2904   t2570 = t332 * t338 * t906;
2905   t2584 = t452 * t458 * t902;
2906   t2596 = t958 * t9;
2907   t2598 = t8 / t2596;
2908   t2600 = -0.12e2 * t959 + 0.12e2 * t2598;
2909   t2606 = t197 * t458 * t971;
2910   t2616 = t129 * t945 * t355;
2911   t2619 = t129 * t338 * t963;
2912   t2622 = t197 * t938 * t463;
2913   t2624 = t16 * t1051;
2914   t2632 = t332 * t945 * t334;
2915   t2634 = -0.2e1 / 0.3e1 * t452 * t198 * t200 * t970 - 0.2e1 / 0.3e1 * t2570 - 0.2e1 * t332 * t342 * t906 - 0.2e1 / 0.3e1 * t332 * t130 * t136 * t962 + 0.2e1 / 0.3e1 * t929 * t198 * t454 * t462 - 0.2e1 / 0.3e1 * t2584 + 0.2e1 / 0.3e1 * t913 * t130 * t334 * t354 - 0.3e1 * t129 * t951 * t355 - 0.2e1 * t129 * t342 * t963 - t129 * t130 * t72 * t2600 / 0.2e1 - 0.2e1 / 0.3e1 * t2606 + t197 * t198 * t121 * t2600 / 0.2e1 - t332 * t951 * t334 - 0.2e1 * t2616 - 0.2e1 / 0.3e1 * t2619 + 0.2e1 / 0.3e1 * t2622 - 0.2e1 * t129 * t2624 * t136 + 0.4e1 / 0.9e1 * t913 * t342 * t915 - 0.2e1 / 0.3e1 * t2632;
2916   t2636 = t129 * t922 * t355;
2917   t2638 = t360 * t179;
2918   t2640 = t129 * t2638 * t136;
2919   t2642 = t141 * t421;
2920   t2644 = t129 * t2642 * t136;
2921   t2647 = t7 * t1056 * t180;
2922   t2650 = t7 * t142 * t1052;
2923   t2653 = 0.1e1 / t26 / t159;
2924   t2654 = t175 * t2653;
2925   t2657 = t67 * t159;
2926   t2659 = 0.1e1 / t26 / t2657;
2927   t2661 = t2659 * t18 * t22;
2928   t2667 = 0.1e1 / t25 / t190;
2929   t2668 = t158 * t2667;
2930   t2674 = t1022 * t18;
2931   t2675 = t2674 * t22;
2932   t2689 = t40 * t2667;
2933   t2697 = 0.93896595123176283055e-3 * t174 * t2654 + 0.36940870827304128461e-3 * t1009 * t2661 + 0.41623279505746509429e-5 * t1014 * t2661 - 0.5225e4 / 0.1458e4 * t157 * t2668 + 0.13665720496643666950e1 * t1023 * t1024 * t68 + 0.32537429753913492736e-1 * t2675 * t2412 * t2376 * t407 + 0.13858534895185376536e-1 * t1029 * t2668 + 0.31332339763027807821e-1 * t1036 * t2667 * t36 * t50 + 0.13707898646324665922e-1 * t167 * t168 * t44 - 0.26462277468242006168e-1 * t375 * t2689 * t48 + 0.85978615454961133971e0 * t149 * sigma[0] * t2653 * t48;
2934   t2698 = 0.1e1/sqrt(t56);
2935   t2700 = t2698 * t59 * t407;
2936   t2708 = 0.1e1 / t975 / t32 * t64;
2937   t2717 = t976 * t36;
2938   t2720 = 0.1e1 / t20 / t63 / t19;
2939   t2723 = 0.1e1 / t25 / t697;
2940   t2729 = t2723 * t36 * t38;
2941   t2733 = 0.1e1 / t21 / t19;
2942   t2741 = 0.1e1 / t1716;
2943   t2742 = t65 * t2741;
2944   t2753 = 0.65074859507826985473e-1 * t2700 * t2689 * t51 + 0.38593006958114059441e0 * t403 * t2654 - 0.32958275242668208782e-5 * t2708 * t435 * t2659 * t48 * t23 + 0.33336883429518359831e-3 * t990 * t993 * t2659 - 0.55617089472002602321e-6 * t2717 * t2720 * t695 * t2723 - 0.57096405357676967667e-8 * t976 * t695 * t2729 + 0.10845809917971164246e-1 * t2674 * t2733 * t2412 * t2376 + 0.40912805190569002904e-1 * t408 * t409 * t68 - 0.82486486816034141137e-1 * t389 * t2742 - 0.11434955462216209803e-2 * t395 * t2741 + 0.13214620458547818311e-2 * t977 * t2742 * t48 - 0.11123417894400520464e-5 * t977 * t695 * t2729;
2945   t2760 = t7 * t361 * t422;
2946   t2765 = 0.10e2 / 0.27e2 * t7 * t79 * t1184 * t122;
2947   t2769 = 0.10e2 / 0.27e2 * t7 * t15 * t1184 * t73;
2948   t2770 = t462 * t462;
2949   t2775 = t504 * t200;
2950   t2776 = t197 * t2775;
2951   t2778 = t354 * t354;
2952   t2783 = t489 * t136;
2953   t2784 = t129 * t2783;
2954   t2786 = t77 * t77;
2955   t2790 = t4 * t6 / t449 / t2786;
2956   t2791 = t453 * t453;
2957   t2797 = t929 * t458 * t931;
2958   t2800 = t452 * t938 * t454;
2959   t2802 = t13 * t13;
2960   t2806 = t4 * t6 / t329 / t2802;
2961   t2807 = t333 * t333;
2962   t2813 = t913 * t338 * t915;
2963   t2816 = t332 * t922 * t334;
2964   t2823 = 0.2e1 / 0.3e1 * t2636 + 0.4e1 / 0.3e1 * t2640 - 0.2e1 * t2644 - 0.5e1 / 0.9e1 * t2647 - t2650 / 0.2e1 - 0.3e1 / 0.8e1 * t7 * t17 * (t2697 + t2753) * t72 + t2760 / 0.2e1 + t2765 + t2769 - t452 * t198 * t121 * t2770 / 0.2e1 - 0.20e2 / 0.27e2 * t2776 - t332 * t130 * t72 * t2778 / 0.2e1 - 0.20e2 / 0.27e2 * t2784 - 0.5e1 / 0.27e2 * t2790 * t198 * t121 * t2791 + 0.4e1 / 0.27e2 * t2797 + 0.2e1 / 0.9e1 * t2800 - 0.5e1 / 0.27e2 * t2806 * t130 * t72 * t2807 + 0.4e1 / 0.27e2 * t2813 + 0.2e1 / 0.9e1 * t2816 - t1280 * t188 * t135 * t354 * t192 / 0.144e3;
2965   t2835 = t369 * t1138;
2966   t2846 = t179 * t1113;
2967   t2852 = t62 / t1112 / t71;
2968   t2853 = t433 * t433;
2969   t2854 = 0.1e1 / t2853;
2970   t2857 = t438 * t438;
2971   t2864 = t1097 * t442;
2972   t2866 = t369 * t1109;
2973   t2868 = t369 * t1123;
2974   t2870 = t421 * t431;
2975   t2874 = t1097 * t427;
2976   t2876 = t369 * t1105;
2977   t2878 = t1051 * t188;
2978   t2888 = t369 * t1128;
2979   t2890 = t369 * t1134;
2980   t2893 = t4 * t184 * t488;
2981   t2894 = t2893 * t193;
2982   t2896 = t1097 * t446;
2983   t2898 = -0.67e2 / 0.12288e5 * t186 * t432 * t437 / t438 / t41 + 0.165e3 / 0.128e3 * t186 * t189 * t66 * t2741 - 0.5e1 / 0.32e2 * t2835 - 0.15e2 / 0.32e2 * t186 * t426 * t1137 + t186 * t1114 * t1119 / t438 / t1716 / 0.196608e6 - t186 * t2846 * t1122 / 0.2654208e7 - t186 * t2852 * t2854 * t1117 * t435 / t2857 / t41 / 0.764411904e9 + t2864 / 0.82944e5 - t2866 / 0.27648e5 - t2868 / 0.7962624e7 - t186 * t2870 * t441 / 0.18432e5 + t2874 / 0.288e3 - t2876 / 0.192e3 - t186 * t2878 * t192 / 0.192e3 + 0.9e1 / 0.128e3 * t186 * t1104 * t445 + t186 * t1108 * t1133 / 0.1024e4 + 0.3e1 / 0.64e2 * t2888 + t2890 / 0.3072e4 - 0.5e1 / 0.2592e4 * t2894 - t2896 / 0.64e2;
2984   t2907 = t1081 * t1089;
2985   t2921 = t1108 * t434;
2986   t2923 = t436 * t440 * t135;
2987   t2927 = t1114 * t1116;
2988   t2933 = t1081 * t1093;
2989   t2935 = t1104 * t64;
2990   t2950 = t1081 * t1085;
2991   t2953 = t4 * t912 * t16;
2992   t2959 = t4 * t331 * t141;
2993   t2960 = t2959 * t1077;
2994   t2963 = t4 * t128 * t360;
2995   t2964 = t2963 * t348;
2996   t2969 = t1081 * t1071;
2997   t2974 = -t1075 * t426 * t333 * t192 / 0.144e3 - t1075 * t432 * t333 * t441 / 0.41472e5 - t2907 / 0.144e3 - t346 * t426 * t354 * t192 / 0.48e2 - t346 * t189 * t962 * t192 / 0.144e3 - t346 * t432 * t354 * t441 / 0.13824e5 - t346 * t2921 * t2923 / 0.6912e4 - t346 * t2927 * t1118 * t1121 * t135 / 0.1990656e7 - t2933 / 0.20736e5 - t346 * t2935 * t65 * t191 * t135 / 0.48e2 + 0.3e1 / 0.16e2 * t346 * t1084 * t445 + 0.3e1 / 0.32e2 * t346 * t1088 * t445 + t346 * t1092 * t1133 / 0.768e3 - t2950 / 0.72e2 + t2953 * t189 * t914 * t192 / 0.648e3 - t2960 / 0.432e3 + t2964 / 0.216e3 + t1075 * t1076 * t445 / 0.32e2 + t2969 / 0.16e2 - 0.5e1 / 0.8e1 * t346 * t347 * t1137;
2998   t2978 = t1066 - 0.3e1 / 0.2e1 * t1069 + 0.3e1 / 0.16e2 * t1072 - t1078 / 0.144e3 - t1082 / 0.72e2 - t1086 / 0.24e2 - t1090 / 0.48e2 - t1094 / 0.6912e4 + t1098 / 0.288e3 - t1100 / 0.96e2 - t1102 / 0.27648e5 - t1106 / 0.64e2 - t1110 / 0.9216e4 - t1124 / 0.2654208e7 + 0.3e1 / 0.64e2 * t1126 + 0.9e1 / 0.64e2 * t1129 + t1135 / 0.1024e4 - 0.15e2 / 0.32e2 * t1139 + t9 * (t2634 + t2823 + t2898 + t2974);
2999   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3000     v4rho4[0] = t2547 + t2978;
3001 
3002   t2982 = t1164 / 0.3e1;
3003   t2984 = t1175 / 0.3e1;
3004   t2986 = t452 * t938 * t497;
3005   t2987 = t2986 / 0.9e1;
3006   t2992 = t332 * t1196 * t1166;
3007   t3013 = t332 * t922 * t473;
3008   t3014 = t3013 / 0.9e1;
3009   t3020 = t929 * t458 * t1170;
3010   t3027 = t913 * t338 * t1159;
3011   t3029 = t2987 - t452 * t510 * t902 / 0.2e1 + 0.7e1 / 0.6e1 * t2992 - t452 * t198 * t217 * t970 / 0.6e1 + t452 * t504 * t505 * t462 / 0.2e1 - t332 * t951 * t473 / 0.2e1 - t332 * t342 * t1147 / 0.2e1 - t332 * t130 * t212 * t962 / 0.6e1 + t3014 - 0.5e1 / 0.27e2 * t2790 * t198 * t217 * t930 + t3020 / 0.9e1 - 0.5e1 / 0.27e2 * t2806 * t130 * t212 * t914 + t3027 / 0.9e1;
3012   t3035 = t452 * t458 * t1151;
3013   t3042 = t452 * t1185 * t1155;
3014   t3047 = t332 * t338 * t1147;
3015   t3057 = t332 * t945 * t473;
3016   t3064 = t913 * t489 * t490 * t333 / 0.3e1 - t3035 / 0.6e1 - t929 * t504 * t505 * t453 / 0.3e1 - 0.7e1 / 0.6e1 * t3042 - t332 * t1200 * t1166 - t3047 / 0.6e1 - t332 * t489 * t490 * t354 / 0.2e1 + t913 * t342 * t1159 / 0.3e1 - t3057 / 0.3e1 - t2570 / 0.6e1 - t2584 / 0.6e1 - t2606 / 0.6e1 - t2616 / 0.2e1 - t2619 / 0.6e1;
3017   t3073 = t7 * t14 * t1184 * t73;
3018   t3079 = t7 * t1061 * t255;
3019   t3083 = t7 * t78 * t1184 * t122;
3020   t3088 = t2622 / 0.3e1 - t2632 / 0.6e1 + t2636 / 0.3e1 + 0.2e1 / 0.3e1 * t2640 - t2644 / 0.2e1 + 0.5e1 / 0.2e1 * t3073 - 0.3e1 / 0.2e1 * t7 * t1222 * t180 - 0.5e1 / 0.36e2 * t3079 - 0.5e1 / 0.2e1 * t3083 - 0.5e1 / 0.12e2 * t2647 - t2650 / 0.8e1 + t2760 / 0.4e1 + t2765 + t2769;
3021   t3099 = t129 * t2642 * t212;
3022   t3105 = t129 * t2638 * t212;
3023   t3106 = t3105 / 0.3e1;
3024   t3109 = t129 * t1184 * t179 * t490;
3025   t3116 = 0.1e1 / t140 / t958;
3026   t3119 = t197 * t3116 * t113 * t505;
3027   t3122 = t197 * t1209 * t463;
3028   t3124 = -0.5e1 / 0.9e1 * t2776 - 0.5e1 / 0.9e1 * t2784 + t2797 / 0.27e2 + t2800 / 0.9e1 + t2813 / 0.27e2 + t2816 / 0.9e1 - t197 * t510 * t971 / 0.2e1 - t3099 / 0.2e1 - t129 * t2624 * t212 / 0.2e1 + t3106 + 0.7e1 / 0.2e1 * t3109 - 0.3e1 / 0.2e1 * t129 * t488 * t421 * t490 + 0.25e2 / 0.6e1 * t3119 - t3122 / 0.2e1;
3029   t3129 = t504 * t217;
3030   t3130 = t197 * t3129;
3031   t3136 = t452 * t1209 * t454;
3032   t3138 = t360 * t254;
3033   t3140 = t197 * t3138 * t200;
3034   t3141 = t3140 / 0.3e1;
3035   t3144 = t129 * t3116 * t62 * t490;
3036   t3148 = t489 * t212;
3037   t3149 = t129 * t3148;
3038   t3158 = t7 * t1278 * t179;
3039   t3172 = t7 * t911 * t16 * t62;
3040   t3177 = -t332 * t2783 / 0.2e1 - 0.5e1 / 0.27e2 * t3130 + t929 * t510 * t931 / 0.9e1 - t3136 / 0.6e1 + t3141 - 0.25e2 / 0.6e1 * t3144 + t452 * t2775 / 0.2e1 - 0.5e1 / 0.27e2 * t3149 - t1417 * t1907 * t114 * t266 * t199 * t462 / 0.576e3 - t3158 * t1283 / 0.288e3 - t1280 * t1281 * t354 * t192 / 0.576e3 - t1280 * t431 * t211 * t135 * t441 / 0.82944e5 + t3172 * t1281 * t333 * t192 / 0.864e3;
3041   t3180 = t7 * t330 * t141 * t62;
3042   t3181 = t3180 * t1283;
3043   t3188 = t7 * t330 * t488 * t62;
3044   t3205 = t4 * t928 * t16;
3045   t3211 = -t3181 / 0.864e3 + t1280 * t1282 * t445 / 0.64e2 - t3188 * t188 * t8 * t135 * t192 / 0.288e3 - 0.5e1 / 0.128e3 * t2835 + t2864 / 0.165888e6 - t2866 / 0.110592e6 - t2868 / 0.31850496e8 + t2874 / 0.576e3 - t2876 / 0.768e3 + 0.3e1 / 0.256e3 * t2888 + t2890 / 0.12288e5 - 0.5e1 / 0.3456e4 * t2894 - t2896 / 0.128e3 + t3205 * t122 * t216 * t462 * t199 / 0.3e1;
3046   t3219 = t4 * t259 * t488;
3047   t3220 = t3219 * t268;
3048   t3235 = t4 * t451 * t141;
3049   t3236 = t3235 * t1256;
3050   t3239 = t4 * t196 * t360;
3051   t3240 = t3239 * t522;
3052   t3241 = t3240 / 0.864e3;
3053   t3242 = t1081 * t1243;
3054   t3247 = t2953 * t73 * t211 * t354 * t135 / 0.3e1 - 0.5e1 / 0.10368e5 * t3220 - t1248 * t193 / 0.192e3 - t2907 / 0.576e3 - t2933 / 0.82944e5 - t2950 / 0.288e3 - t2960 / 0.1728e4 + t2964 / 0.432e3 + t2969 / 0.64e2 + t3205 * t519 * t520 * t930 / 0.2592e4 - t3236 / 0.1728e4 + t3241 + t3242 / 0.64e2 - 0.5e1 / 0.32e2 * t346 * t483 * t1137;
3055   t3259 = t1081 * t1266;
3056   t3261 = t1081 * t1236;
3057   t3281 = t1260 * t1240;
3058   t3283 = t2963 * t484;
3059   t3284 = t3283 / 0.864e3;
3060   t3286 = t4 * t128 * t1184;
3061   t3287 = t3286 * t1250;
3062   t3293 = 0.3e1 / 0.64e2 * t1248 * t1249 * t445 - t346 * t1114 * t211 * t1122 / 0.7962624e7 - t518 * t519 * t520 * t970 / 0.576e3 - t3259 / 0.288e3 - t3261 / 0.82944e5 - t346 * t1104 * t211 * t192 / 0.192e3 - t346 * t1108 * t211 * t441 / 0.27648e5 + 0.3e1 / 0.64e2 * t346 * t1265 * t445 + t346 * t1235 * t1133 / 0.3072e4 - t1248 * t432 * t8 * t441 / 0.27648e5 - t3281 / 0.576e3 + t3284 + 0.7e1 / 0.576e3 * t3287 - t1248 * t426 * t8 * t192 / 0.96e2;
3063   t3301 = -t1145 - t1149 / 0.2e1 - t1153 / 0.2e1 + t1157 + t1161 / 0.3e1 - t2982 - t1168 + t1172 / 0.3e1 - t2984 - t905 - t909 + t9 * (t3029 + t3064 + t3088 + t3124 + t3177 + t3211 + t3247 + t3293) - t1178 - 0.3e1 / 0.2e1 * t1181 - 0.7e1 / 0.2e1 * t1187 - 0.3e1 / 0.2e1 * t1191 + t1491;
3064   t3308 = 0.7e1 / 0.2e1 * t1198 - 0.3e1 * t1202 + t1492 - t1207 / 0.2e1 - t1211 + t918 - t920 / 0.3e1 + t924 + t934 - t936 / 0.3e1 + t940 - t944 - 0.2e1 * t947 - t949 - t954 - t957 - t966 - t968;
3065   t3319 = t1261 / 0.288e3;
3066   t3320 = t1263 / 0.288e3;
3067   t3322 = -t974 - 0.3e1 / 0.2e1 * t1224 + 0.3e1 / 0.2e1 * t1228 + t1574 - t1055 - t2545 - t2546 + 0.3e1 / 0.4e1 * t1066 - 0.3e1 / 0.4e1 * t1069 - t1237 / 0.27648e5 - t1241 / 0.192e3 + 0.3e1 / 0.64e2 * t1244 - t1251 / 0.96e2 - t1257 / 0.576e3 - t3319 - t3320 - t1267 / 0.96e2;
3068   t3329 = t1073 - t1079 - t1082 / 0.144e3 - t1087 - t1091 - t1095 + t1612 + t1098 / 0.384e3 - t1100 / 0.192e3 - t1102 / 0.55296e5 - t1107 - t1111 - t1125 + 0.3e1 / 0.128e3 * t1126 + t1130 + t1136 - t1140 - t1284 / 0.288e3;
3069   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3070     v4rho4[1] = t3301 + t3308 + t3322 + t3329;
3071 
3072   t3350 = -0.2e1 / 0.3e1 * t1301 - t1305 / 0.3e1 + 0.2e1 / 0.9e1 * t1309 - 0.2e1 / 0.3e1 * t1313 - t1317 / 0.3e1 + 0.2e1 / 0.9e1 * t1321 + 0.2e1 / 0.3e1 * t1325 - 0.2e1 / 0.3e1 * t1145 - t1149 / 0.3e1 - t1153 / 0.3e1 + 0.2e1 / 0.3e1 * t1157 + 0.2e1 / 0.9e1 * t1161 - 0.4e1 / 0.9e1 * t1164 - 0.2e1 / 0.3e1 * t1168 + 0.2e1 / 0.9e1 * t1172 - 0.4e1 / 0.9e1 * t1175 - t1328 / 0.3e1 - t1331 / 0.9e1 - 0.2e1 / 0.3e1 * t1334;
3073   t3365 = -t1338 / 0.3e1 - t1341 / 0.9e1 - t1344 / 0.3e1 - t1347 - t1353 + 0.2e1 * t1357 - t1361 - t1365 - 0.4e1 / 0.3e1 * t1178 - t1181 - 0.5e1 / 0.3e1 * t1187 - t1191 + 0.2e1 / 0.3e1 * t1194 + 0.5e1 / 0.3e1 * t1198 - 0.2e1 * t1202 + 0.2e1 / 0.3e1 * t1204 - t1207 / 0.3e1 - 0.4e1 / 0.3e1 * t1211 - t920 / 0.9e1 + 0.2e1 / 0.3e1 * t924;
3074   t3383 = -t936 / 0.9e1 + 0.2e1 / 0.3e1 * t940 - 0.2e1 / 0.3e1 * t947 - t949 / 0.3e1 - t968 / 0.3e1 - t1376 / 0.4e1 - t1224 + t1228 + t1231 / 0.2e1 - t2545 - t2546 + t1066 / 0.2e1 - t1069 / 0.4e1 - t1237 / 0.41472e5 - t1241 / 0.288e3 - t1380 / 0.432e3 - t1384 / 0.864e3 - t1388 / 0.288e3 + t1395 / 0.144e3 - t1399 / 0.144e3;
3075   t3419 = t452 * t1185 * t1323;
3076   t3426 = t913 * t338 * t1307;
3077   t3429 = t332 * t1196 * t1311;
3078   t3436 = t452 * t458 * t1303;
3079   t3442 = t452 * t1209 * t497;
3080   t3449 = t332 * t338 * t1315;
3081   t3455 = -t332 * t342 * t1315 / 0.3e1 - t332 * t130 * t1351 * t135 / 0.3e1 - t332 * t130 * t540 * t354 / 0.6e1 + t929 * t198 * t545 * t462 / 0.9e1 - 0.7e1 / 0.9e1 * t3419 - 0.5e1 / 0.27e2 * t2806 * t130 * t534 * t333 + 0.2e1 / 0.27e2 * t3426 + 0.7e1 / 0.9e1 * t3429 + t929 * t198 * t557 * t453 / 0.9e1 - t3436 / 0.9e1 + 0.2e1 / 0.9e1 * t929 * t510 * t1170 - 0.2e1 / 0.9e1 * t3442 + t913 * t130 * t540 * t333 / 0.9e1 - t3449 / 0.9e1 - 0.5e1 / 0.27e2 * t2790 * t198 * t545 * t453;
3082   t3457 = t929 * t458 * t1319;
3083   t3491 = 0.2e1 / 0.27e2 * t3457 - 0.2e1 / 0.3e1 * t332 * t1200 * t1311 + 0.2e1 / 0.9e1 * t913 * t342 * t1307 + t913 * t130 * t534 * t354 / 0.9e1 - t452 * t510 * t1151 / 0.3e1 + 0.2e1 / 0.3e1 * t452 * t1355 * t1155 - t452 * t198 * t1359 * t199 / 0.3e1 - t452 * t198 * t557 * t462 / 0.6e1 + 0.4e1 / 0.27e2 * t2986 - 0.2e1 / 0.9e1 * t2992 + 0.4e1 / 0.27e2 * t3013 + 0.2e1 / 0.27e2 * t3020 + 0.2e1 / 0.27e2 * t3027 - t3035 / 0.9e1 + 0.2e1 / 0.9e1 * t3042 - t3047 / 0.9e1;
3084   t3500 = t7 * t467 * t612;
3085   t3510 = -0.2e1 / 0.9e1 * t3057 + t2622 / 0.9e1 + t2636 / 0.9e1 + 0.2e1 / 0.9e1 * t2640 + t7 * t1226 * t255 + t3500 / 0.12e2 - t3073 / 0.3e1 - 0.5e1 / 0.18e2 * t3079 + t3083 / 0.3e1 - 0.5e1 / 0.18e2 * t2647 + t2760 / 0.12e2 + t2765 + t2769 - 0.10e2 / 0.27e2 * t2776 - 0.10e2 / 0.27e2 * t2784 + t2800 / 0.27e2;
3086   t3536 = t2816 / 0.27e2 - t3099 / 0.3e1 + 0.4e1 / 0.9e1 * t3105 - 0.2e1 / 0.3e1 * t3109 + 0.41e2 / 0.9e1 * t3119 - t3122 / 0.3e1 - 0.10e2 / 0.27e2 * t3130 - t3136 / 0.9e1 + 0.4e1 / 0.9e1 * t3140 - 0.41e2 / 0.9e1 * t3144 - 0.10e2 / 0.27e2 * t3149 - t129 * t951 * t540 / 0.2e1 - t129 * t342 * t1351 - t197 * t1363 * t463 / 0.2e1 - t332 * t951 * t534 / 0.6e1 - t452 * t1363 * t454 / 0.6e1;
3087   t3539 = t141 * t611;
3088   t3541 = t197 * t3539 * t200;
3089   t3546 = t332 * t922 * t534;
3090   t3549 = t197 * t3138 * t217;
3091   t3552 = t197 * t938 * t557;
3092   t3555 = t129 * t922 * t540;
3093   t3558 = t452 * t938 * t545;
3094   t3563 = 0.1e1 / t140 / t2596;
3095   t3565 = t8 * t8;
3096   t3572 = t197 * t1184 * t254 * t505;
3097   t3575 = t197 * t458 * t1359;
3098   t3578 = t332 * t945 * t534;
3099   t3581 = t129 * t945 * t540;
3100   t3584 = t129 * t338 * t1351;
3101   t3591 = -t3541 / 0.3e1 - t332 * t3148 / 0.3e1 + t3546 / 0.27e2 + 0.2e1 / 0.9e1 * t3549 + t3552 / 0.9e1 + t3555 / 0.9e1 + t3558 / 0.27e2 + t452 * t3129 / 0.3e1 - t332 * t3563 * t62 * t72 * t3565 / 0.3e1 - 0.7e1 / 0.3e1 * t3572 - t3575 / 0.3e1 - t3578 / 0.9e1 - t3581 / 0.3e1 - t3584 / 0.3e1 - t452 * t3563 * t113 * t121 * t3565 / 0.3e1;
3102   t3598 = t7 * t450 * t488 * t113;
3103   t3620 = t7 * t927 * t16 * t113;
3104   t3626 = t7 * t450 * t141 * t113;
3105   t3627 = t3626 * t1420;
3106   t3634 = t1271 * t630;
3107   t3636 = t1271 * t634;
3108   t3640 = -t3181 / 0.1296e4 - t1417 * t1419 * t1239 / 0.864e3 + t3598 * t263 * t8 * t64 * t521 / 0.432e3 - t3188 * t1281 * t8 * t192 / 0.432e3 - t1280 * t188 * t539 * t135 * t192 / 0.864e3 + t3172 * t188 * t533 * t135 * t192 / 0.1296e4 + t3620 * t1419 * t1255 / 0.1296e4 - t3627 / 0.1296e4 + t2864 / 0.497664e6 + t2874 / 0.1728e4 - 0.5e1 / 0.5184e4 * t2894 - t2896 / 0.384e3 - 0.5e1 / 0.5184e4 * t3220 + t3634 / 0.497664e6 - t3636 / 0.384e3 + t1392 * t268 / 0.288e3;
3109   t3642 = t1271 * t617;
3110   t3683 = t3642 / 0.1728e4 + 0.4e1 / 0.9e1 * t4 * t912 * t488 * t73 * t211 * t135 * t8 - 0.4e1 / 0.9e1 * t4 * t928 * t488 * t122 * t216 * t199 * t8 + t2964 / 0.1296e4 - t3236 / 0.2592e4 + t3240 / 0.648e3 + t3242 / 0.96e2 - t3259 / 0.432e3 - t3261 / 0.124416e6 - t3281 / 0.864e3 + t3283 / 0.648e3 - t3287 / 0.432e3 + t518 * t519 * t583 * t462 / 0.64e2 - t346 * t426 * t539 * t192 / 0.288e3 - t346 * t189 * t1350 * t192 / 0.288e3 - t346 * t432 * t539 * t441 / 0.82944e5;
3111   t3699 = t2959 * t1383;
3112   t3702 = t4 * t196 * t1184;
3113   t3703 = t3702 * t1394;
3114   t3705 = t1081 * t1387;
3115   t3711 = t1260 * t1424;
3116   t3716 = t1260 * t1398;
3117   t3722 = t1260 * t1404;
3118   t3730 = t3239 * t553;
3119   t3732 = -t518 * t1397 * t1239 / 0.288e3 - t518 * t1401 * t1402 * t462 / 0.82944e5 - t1075 * t426 * t533 * t192 / 0.864e3 - t1075 * t432 * t533 * t441 / 0.248832e6 - t3699 / 0.2592e4 - 0.7e1 / 0.864e3 * t3703 - t3705 / 0.864e3 + t1254 * t519 * t583 * t453 / 0.192e3 + t3711 / 0.96e2 - t1254 * t1397 * t1255 / 0.864e3 - t3716 / 0.432e3 - t1254 * t1401 * t1402 * t453 / 0.248832e6 - t3722 / 0.124416e6 + t1075 * t1382 * t445 / 0.192e3 + t346 * t1386 * t445 / 0.64e2 + t3730 / 0.1296e4;
3120   t3737 = -t1405 / 0.41472e5 + t1244 / 0.32e2 - t1251 / 0.144e3 - t1257 / 0.864e3 - t1261 / 0.216e3 - t1263 / 0.216e3 - t1267 / 0.144e3 - t1082 / 0.432e3 - t1407 / 0.576e3 - t1409 / 0.165888e6 + t1411 / 0.128e3 + t1272 / 0.576e3 + t1098 / 0.576e3 - t1100 / 0.576e3 - t1102 / 0.165888e6 + t1126 / 0.128e3 - t1284 / 0.432e3 - t1421 / 0.432e3 + t1425 / 0.32e2 + t9 * (t3455 + t3491 + t3510 + t3536 + t3591 + t3640 + t3683 + t3732);
3121   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3122     v4rho4[2] = t3350 + t3365 + t3383 + t3737;
3123 
3124   t3743 = -t1452 - t1456 - t1301 - t1305 / 0.2e1 + t1309 / 0.3e1 - t1313 - t1317 / 0.2e1 + t1321 / 0.3e1 + t1325 - t2982 - t2984 + t1461 + t1466 - t1472 - t1475 - t1478 - t1481;
3125   t3753 = -t1486 - t1328 - t1331 / 0.3e1 - 0.2e1 * t1334 - t1338 - t1341 / 0.3e1 - t1344 / 0.2e1 - 0.3e1 / 0.2e1 * t1347 - 0.3e1 / 0.2e1 * t1353 + 0.3e1 * t1357 - 0.3e1 / 0.2e1 * t1361 - 0.3e1 / 0.2e1 * t1365 - t1178 + t1187 + t1194 - t1198 + t1204 - t1211;
3126   t3763 = t925 + t941 - 0.3e1 / 0.4e1 * t1376 - t1572 + 0.3e1 / 0.4e1 * t1231 - t2545 - t2546 + t1067 - t1380 / 0.144e3 - t1384 / 0.576e3 - t1388 / 0.192e3 + t1395 / 0.96e2 - t1399 / 0.96e2 - t1405 / 0.27648e5 - t3319 - t3320 + t1578;
3127   t3781 = t7 * t204 * t1569;
3128   t3786 = -t452 * t510 * t1303 / 0.2e1 + t3419 / 0.3e1 + t3426 / 0.9e1 - t3429 / 0.3e1 - t3436 / 0.6e1 - t3442 / 0.3e1 - t3449 / 0.6e1 + t3457 / 0.9e1 + t2987 + t3014 - t3781 / 0.8e1 + t3500 / 0.4e1 - 0.5e1 / 0.12e2 * t3079 - 0.5e1 / 0.36e2 * t2647;
3129   t3824 = t2765 + t2769 - 0.5e1 / 0.27e2 * t2776 - 0.5e1 / 0.27e2 * t2784 - t452 * t198 * t1483 * t199 / 0.6e1 - t332 * t130 * t1469 * t135 / 0.6e1 + t929 * t510 * t1319 / 0.3e1 + t452 * t1355 * t1323 - t452 * t1363 * t497 / 0.2e1 - t452 * t198 * t217 * t1358 / 0.2e1 + t452 * t504 * t505 * t556 / 0.2e1 - 0.5e1 / 0.27e2 * t2806 * t130 * t1458 * t135 - t332 * t342 * t1449 / 0.2e1 - t332 * t130 * t212 * t1350 / 0.2e1;
3130   t3840 = -0.5e1 / 0.27e2 * t2790 * t198 * t1463 * t199 + t3106 - t3119 / 0.3e1 - 0.5e1 / 0.9e1 * t3130 + t3141 + t3144 / 0.3e1 - 0.5e1 / 0.9e1 * t3149 - t3541 / 0.2e1 + t3546 / 0.9e1 + 0.2e1 / 0.3e1 * t3549 + t3552 / 0.3e1 + t3555 / 0.3e1 + t3558 / 0.9e1 + t3572;
3131   t3846 = t197 * t1209 * t557;
3132   t3849 = t197 * t458 * t1483;
3133   t3852 = t129 * t338 * t1469;
3134   t3855 = t452 * t1209 * t545;
3135   t3858 = t197 * t3539 * t217;
3136   t3861 = t913 * t338 * t1458;
3137   t3864 = t929 * t458 * t1463;
3138   t3871 = 0.6e1 * t959 + 0.12e2 * t2598;
3139   t3880 = -t3575 / 0.2e1 - t3578 / 0.6e1 - t3581 / 0.2e1 - t3584 / 0.2e1 - t3846 / 0.2e1 - t3849 / 0.6e1 - t3852 / 0.6e1 - t3855 / 0.6e1 - t3858 / 0.2e1 + t3861 / 0.27e2 + t3864 / 0.27e2 - t129 * t342 * t1469 / 0.2e1 - t129 * t130 * t72 * t3871 / 0.2e1 + 0.3e1 / 0.2e1 * t197 * t488 * t611 * t505;
3140   t3894 = t16 * t1568;
3141   t3907 = t332 * t338 * t1449;
3142   t3914 = t452 * t458 * t1453;
3143   t3927 = t7 * t1415 * t254;
3144   t3935 = -0.3e1 / 0.2e1 * t197 * t510 * t1359 + t197 * t198 * t121 * t3871 / 0.2e1 + t913 * t342 * t1458 / 0.9e1 - t197 * t3894 * t200 / 0.2e1 - t929 * t504 * t545 * t8 / 0.3e1 + t913 * t489 * t534 * t8 / 0.3e1 - t3907 / 0.6e1 - t332 * t489 * t490 * t539 / 0.2e1 - t3914 / 0.6e1 - t3627 / 0.864e3 - t1417 * t621 * t216 * t434 * t1403 / 0.82944e5 + t3598 * t1419 * t520 * t8 / 0.288e3 - t3927 * t1420 / 0.288e3 - t1417 * t263 * t556 * t64 * t521 / 0.576e3;
3145   t3963 = t526 * t1576;
3146   t3965 = t526 * t1582;
3147   t3967 = t526 * t1586;
3148   t3969 = t526 * t1609;
3149   t3971 = t3620 * t263 * t544 * t64 * t521 / 0.864e3 + t1417 * t1419 * t1423 / 0.64e2 - t1280 * t1281 * t539 * t192 / 0.576e3 - 0.5e1 / 0.10368e5 * t2894 - 0.5e1 / 0.3456e4 * t3220 + t3634 / 0.165888e6 - t3636 / 0.128e3 + t3642 / 0.576e3 + t2953 * t73 * t211 * t539 * t135 / 0.3e1 + t3205 * t122 * t216 * t556 * t199 / 0.3e1 + 0.3e1 / 0.256e3 * t3963 + t3965 / 0.12288e5 - 0.5e1 / 0.128e3 * t3967 - t3969 / 0.31850496e8;
3150   t3973 = t526 * t1593;
3151   t3975 = t526 * t1597;
3152   t3984 = t1260 * t1629;
3153   t3986 = t1260 * t1621;
3154   t3988 = t1260 * t1625;
3155   t3990 = -t3973 / 0.768e3 - t3975 / 0.110592e6 + t3241 + t3284 - t3699 / 0.1728e4 + t3703 / 0.288e3 - t3705 / 0.576e3 + t3711 / 0.64e2 - t3716 / 0.288e3 - t3722 / 0.82944e5 + t3730 / 0.432e3 - t3984 / 0.82944e5 - t3986 / 0.288e3 - t3988 / 0.576e3;
3156   t3991 = t3235 * t1617;
3157   t3993 = t1260 * t1613;
3158   t4023 = t1602 * t1116;
3159   t4024 = t1604 * t1607;
3160   t4032 = t1592 * t64;
3161   t4036 = t1596 * t434;
3162   t4044 = -t3991 / 0.1728e4 + t3993 / 0.64e2 - t346 * t189 * t1468 * t192 / 0.576e3 + t518 * t1401 * t624 * t1580 * t199 / 0.3072e4 - 0.5e1 / 0.32e2 * t518 * t519 * t1499 * t199 + t1392 * t616 * t8 * t267 / 0.96e2 - t518 * t264 * t1358 * t267 / 0.192e3 + t1392 * t622 * t8 * t629 / 0.27648e5 + 0.3e1 / 0.64e2 * t518 * t1397 * t1423 - t518 * t4023 * t4024 * t199 / 0.7962624e7 - 0.3e1 / 0.64e2 * t1392 * t1393 * t633 - t518 * t4032 * t521 / 0.192e3 - t518 * t4036 * t1403 / 0.27648e5 + t2953 * t189 * t1457 * t192 / 0.2592e4;
3163   t4049 = t1584 - t1588 - t1407 / 0.192e3 - t1409 / 0.55296e5 + 0.3e1 / 0.128e3 * t1411 - t1595 - t1599 - t1611 + t1272 / 0.384e3 + t1099 - t1421 / 0.288e3 + 0.3e1 / 0.64e2 * t1425 + t1615 - t1619 - t1623 + t9 * (t3786 + t3824 + t3840 + t3880 + t3935 + t3971 + t3990 + t4044) - t1627 - t1631;
3164   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3165     v4rho4[3] = t3743 + t3753 + t3763 + t4049;
3166 
3167   t4069 = -0.2e1 * t1451 - 0.2e1 * t1455 + 0.4e1 / 0.9e1 * t1460 + 0.4e1 / 0.9e1 * t1465 - 0.2e1 * t1471 - 0.2e1 * t1474 - 0.6e1 * t1477 - 0.6e1 * t1480 - 0.2e1 * t1485 - 0.2e1 * t1328 - 0.2e1 / 0.3e1 * t1331 - 0.4e1 * t1334 - 0.2e1 * t1338 - 0.2e1 / 0.3e1 * t1341 + 0.4e1 / 0.3e1 * t1194 + 0.4e1 / 0.3e1 * t1204 - 0.3e1 / 0.2e1 * t1376 - 0.3e1 / 0.2e1 * t1571 + t1231;
3168   t4082 = 0.1e1 / t83 / t234;
3169   t4087 = 0.1e1/sqrt(t107);
3170   t4089 = t4087 * t110 * t407;
3171   t4091 = 0.1e1 / t82 / t265;
3172   t4092 = t93 * t4091;
3173   t4096 = t250 * t4082;
3174   t4106 = t1539 * t18;
3175   t4107 = t4106 * t22;
3176   t4112 = t233 * t4091;
3177   t4117 = 0.1e1 / t2016;
3178   t4118 = t114 * t4117;
3179   t4124 = 0.1e1 / t82 / t784;
3180   t4126 = t4124 * t36 * t38;
3181   t4129 = t116 * t234;
3182   t4131 = 0.1e1 / t83 / t4129;
3183   t4133 = t4131 * t18 * t22;
3184   t4136 = 0.85978615454961133971e0 * t224 * sigma[2] * t4082 * t101 + 0.65074859507826985473e-1 * t4089 * t4092 * t51 + 0.38593006958114059441e0 * t594 * t4096 + 0.31332339763027807821e-1 * t1553 * t4091 * t36 * t50 + 0.13707898646324665922e-1 * t242 * t243 * t97 + 0.32537429753913492736e-1 * t4107 * t2490 * t2454 * t407 + 0.13858534895185376536e-1 * t1546 * t4112 + 0.93896595123176283055e-3 * t249 * t4096 + 0.13214620458547818311e-2 * t1496 * t4118 * t101 - 0.11123417894400520464e-5 * t1496 * t782 * t4126 + 0.36940870827304128461e-3 * t1526 * t4133;
3185   t4158 = t1495 * t36;
3186   t4168 = 0.1e1 / t1494 / t89 * t64;
3187   t4177 = 0.41623279505746509429e-5 * t1531 * t4133 - 0.5225e4 / 0.1458e4 * t232 * t4112 + 0.13665720496643666950e1 * t1540 * t1541 * t117 - 0.82486486816034141137e-1 * t580 * t4118 - 0.11434955462216209803e-2 * t586 * t4117 + 0.10845809917971164246e-1 * t4106 * t2733 * t2490 * t2454 + 0.40912805190569002904e-1 * t598 * t599 * t117 + 0.33336883429518359831e-3 * t1509 * t1510 * t4131 - 0.55617089472002602321e-6 * t4158 * t2720 * t782 * t4124 - 0.57096405357676967667e-8 * t1495 * t782 * t4126 - 0.32958275242668208782e-5 * t4168 * t623 * t4131 * t101 * t23 - 0.26462277468242006168e-1 * t566 * t4092 * t101;
3188   t4207 = t611 * t621;
3189   t4211 = t254 * t1601;
3190   t4217 = t113 / t1600 / t120;
3191   t4220 = t626 * t626;
3192   t4227 = t1568 * t263;
3193   t4251 = t1402 * t216;
3194   t4259 = -0.3e1 / 0.8e1 * t7 * t80 * (t4136 + t4177) * t121 - t3781 / 0.2e1 - t1417 * t1418 * t556 * t267 / 0.144e3 + t3500 / 0.2e1 - 0.67e2 / 0.12288e5 * t261 * t622 * t625 / t626 / t94 + t261 * t1596 * t1581 / 0.1024e4 + t261 * t1602 * t1605 / t626 / t2016 / 0.196608e6 + 0.9e1 / 0.128e3 * t261 * t1592 * t633 - t261 * t4207 * t629 / 0.18432e5 - t261 * t4211 * t1608 / 0.2654208e7 - t261 * t4217 * t2854 * t1603 * t623 / t4220 / t94 / 0.764411904e9 - t261 * t4227 * t267 / 0.192e3 - t518 * t616 * t556 * t267 / 0.48e2 - t518 * t264 * t1482 * t267 / 0.144e3 - t518 * t622 * t556 * t629 / 0.13824e5 - t518 * t4023 * t4024 * t216 / 0.1990656e7 - t518 * t4032 * t520 * t216 / 0.48e2 - t518 * t4036 * t4251 / 0.6912e4 + t3205 * t264 * t1462 * t267 / 0.648e3;
3195   t4294 = 0.3e1 / 0.16e2 * t518 * t1620 * t633 + 0.3e1 / 0.32e2 * t518 * t1624 * t633 + t518 * t1628 * t1581 / 0.768e3 - 0.5e1 / 0.8e1 * t518 * t552 * t1585 + t1254 * t1616 * t633 / 0.32e2 - t1254 * t616 * t544 * t267 / 0.144e3 - t1254 * t622 * t544 * t629 / 0.41472e5 - 0.5e1 / 0.9e1 * t3079 + t2765 + t2769 - 0.20e2 / 0.27e2 * t3130 - 0.20e2 / 0.27e2 * t3149 + 0.2e1 / 0.9e1 * t3546 + 0.4e1 / 0.3e1 * t3549 + 0.2e1 / 0.3e1 * t3552 + 0.2e1 / 0.3e1 * t3555 + 0.2e1 / 0.9e1 * t3558 - 0.2e1 * t3846 - 0.2e1 / 0.3e1 * t3849 - 0.2e1 / 0.3e1 * t3852;
3196   t4307 = -0.12e2 * t959 - 0.12e2 * t2598;
3197   t4325 = t533 * t533;
3198   t4330 = t539 * t539;
3199   t4335 = t544 * t544;
3200   t4340 = t556 * t556;
3201   t4359 = -0.2e1 / 0.3e1 * t3855 - 0.2e1 * t3858 + 0.4e1 / 0.27e2 * t3861 + 0.4e1 / 0.27e2 * t3864 - 0.3e1 * t197 * t1363 * t557 - 0.2e1 * t197 * t510 * t1483 - t197 * t198 * t121 * t4307 / 0.2e1 + t129 * t130 * t72 * t4307 / 0.2e1 - t452 * t1363 * t545 + 0.4e1 / 0.9e1 * t929 * t510 * t1463 - 0.2e1 * t197 * t3894 * t217 - 0.5e1 / 0.27e2 * t2806 * t130 * t72 * t4325 - t332 * t130 * t72 * t4330 / 0.2e1 - 0.5e1 / 0.27e2 * t2790 * t198 * t121 * t4335 - t452 * t198 * t121 * t4340 / 0.2e1 - 0.2e1 / 0.3e1 * t3907 - 0.2e1 / 0.3e1 * t3914 - 0.2e1 / 0.3e1 * t452 * t198 * t217 * t1482 + 0.2e1 / 0.3e1 * t913 * t130 * t534 * t539 - 0.2e1 / 0.3e1 * t332 * t130 * t212 * t1468;
3202   t4390 = 0.2e1 / 0.3e1 * t929 * t198 * t545 * t556 - 0.2e1 * t452 * t510 * t1453 - 0.5e1 / 0.2592e4 * t3220 + t3634 / 0.82944e5 - t3636 / 0.64e2 + t3642 / 0.288e3 + 0.3e1 / 0.64e2 * t3963 + t3965 / 0.3072e4 - 0.5e1 / 0.32e2 * t3967 - t3969 / 0.7962624e7 - t3973 / 0.192e3 - t3975 / 0.27648e5 + 0.165e3 / 0.128e3 * t261 * t264 * t115 * t4117 - 0.15e2 / 0.32e2 * t261 * t616 * t1585 + t3730 / 0.216e3 - t3984 / 0.20736e5 - t3986 / 0.72e2 - t3988 / 0.144e3 - t3991 / 0.432e3 + t3993 / 0.16e2;
3203   t4399 = -t2545 - t2546 - t1380 / 0.72e2 + 0.9e1 / 0.64e2 * t1577 + t1583 / 0.1024e4 - 0.15e2 / 0.32e2 * t1587 - t1407 / 0.96e2 - t1409 / 0.27648e5 + 0.3e1 / 0.64e2 * t1411 - t1594 / 0.64e2 - t1598 / 0.9216e4 - t1610 / 0.2654208e7 + t1272 / 0.288e3 + t9 * (t4259 + t4294 + t4359 + t4390) + 0.3e1 / 0.16e2 * t1614 - t1618 / 0.144e3 - t1622 / 0.24e2 - t1626 / 0.48e2 - t1630 / 0.6912e4;
3204   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3205     v4rho4[4] = t4069 + t4399;
3206 
3207   t4402 = 0.5e1 / 0.36e2 * t7 * t1056 * t289;
3208   t4404 = t7 * t361 * t676;
3209   t4407 = t7 * t142 * t1768;
3210   t4409 = t22 * t1001;
3211   t4418 = t277 * t985;
3212   t4426 = 0.1e1 / t26 / t190;
3213   t4441 = 0.1e1 / t25 / t438;
3214   t4448 = -0.15172696844993141290e0 * t148 * t4409 * t48 - 0.12332394376798177032e-3 * t1008 * t996 * t1732 - 0.14047856833189446932e-5 * t1735 * t1011 + 0.209e3 / 0.243e3 * t157 * t4418 - 0.40265069320467947261e0 * t1023 * t407 * t1025 * t52 - 0.12201536157717559776e-1 * t2675 * t409 * t4426 * t407 - 0.41801559058847195529e-2 * t1029 * t4418 - 0.80665711264910534075e-1 * t402 * t23 * t1001 - 0.42797350348706002486e-3 * t977 * t979 * t48 * t40 + 0.41712817104001951740e-6 * t977 * t4441 * t39 * t435 - 0.16569987374678167598e-3 * t174 * t4409;
3215   t4492 = -0.40671787192391865920e-2 * t2674 * t2733 * t409 * t4426 - 0.98516106754904741896e-2 * t408 * t52 * t1025 - 0.10980899102628513796e-3 * t990 * t992 * t996 * t65 + 0.20856408552000975870e-6 * t2717 * t2720 * t4441 * t435 + 0.21411152009128862875e-8 * t976 * t435 * t4441 * t36 * t38 - 0.24403072315435119552e-1 * t2700 * t985 * sigma[0] * t51 - 0.97160380515158346364e-2 * t1754 * t1038 - 0.15816806130374614524e-2 * t167 * t282 * t1045 + 0.12359353216000578294e-5 * t2708 * t996 * t48 * t65 * t23 + 0.69128983273778274541e-2 * t375 * t985 * t48 * sigma[0] + 0.23358399634202103338e-1 * t389 * t979 * t40 + 0.33588425688155967615e-3 * t657 * t979;
3216   t4507 = t1097 * t700;
3217   t4509 = t369 * t1695;
3218   t4517 = t1097 * t692;
3219   t4519 = t369 * t1691;
3220   t4521 = t369 * t1683;
3221   t4536 = -t4402 + t4404 / 0.4e1 - 0.3e1 / 0.8e1 * t4407 - 0.3e1 / 0.8e1 * t7 * t17 * (t4448 + t4492) * t72 + t1280 * t1854 * t68 * t135 * t354 / 0.1536e4 - 0.17e2 / 0.9437184e7 * t186 * t1114 * t1676 * t1121 - t4507 / 0.442368e6 - 0.25e2 / 0.294912e6 * t4509 - 0.3e1 / 0.256e3 * t186 * t1104 * t703 + t186 * t1662 * t1133 / 0.4096e4 - t4517 / 0.3072e4 - t4519 / 0.128e3 + 0.3e1 / 0.256e3 * t4521 + 0.9e1 / 0.256e3 * t186 * t1658 * t445 + 0.27e2 / 0.256e3 * t186 * t426 * t1698 + 0.29e2 / 0.16384e5 * t186 * t432 * t696 * t1132 + t186 * t2870 * t699 / 0.98304e5;
3222   t4548 = t288 * t1113;
3223   t4552 = t369 * t1670;
3224   t4554 = t369 * t1673;
3225   t4556 = t369 * t1680;
3226   t4561 = t369 * t1663;
3227   t4563 = t675 * t431;
3228   t4567 = t1097 * t681;
3229   t4569 = t369 * t1659;
3230   t4571 = t1767 * t188;
3231   t4576 = 0.5e1 / 0.27648e5 * t2893 * t295;
3232   t4577 = t1097 * t704;
3233   t4579 = t369 * t1699;
3234   t4591 = t186 * t2846 * t1679 / 0.9437184e7 + t186 * t2852 * t2854 * t1117 * t65 / t2857 / t150 / 0.2038431744e10 - t186 * t4548 * t1122 / 0.10616832e8 + t4552 / 0.2048e4 + t4554 / 0.147456e6 + t4556 / 0.28311552e8 + t186 * t2878 * t294 / 0.2048e4 - t4561 / 0.110592e6 - t186 * t4563 * t441 / 0.36864e5 + t4567 / 0.1152e4 - t4569 / 0.384e3 - t186 * t4571 * t192 / 0.256e3 + t4576 + t4577 / 0.384e3 + 0.9e1 / 0.256e3 * t4579 - 0.15e2 / 0.128e3 * t186 * t680 * t1137 - 0.25e2 / 0.98304e5 * t186 * t1108 * t1694 - 0.45e2 / 0.128e3 * t186 * t189 * t293 * t979;
3235   t4593 = t1081 * t1797;
3236   t4602 = t695 * t440;
3237   t4626 = t2963 * t687;
3238   t4628 = t1081 * t1779;
3239   t4634 = t2959 * t1773;
3240   t4643 = t1117 * t1678;
3241   t4651 = t1662 * t434;
3242   t4655 = t4593 / 0.110592e6 - t346 * t1786 * t1778 / 0.32e2 - t346 * t684 * t654 * t354 / 0.64e2 - 0.25e2 / 0.73728e5 * t346 * t1794 * t4602 * t135 - t346 * t1658 * t135 * t192 / 0.96e2 - t346 * t680 * t354 * t192 / 0.192e3 + 0.3e1 / 0.64e2 * t346 * t1782 * t445 + 0.9e1 / 0.64e2 * t346 * t684 * t1727 * t135 - t1075 * t684 * t654 * t333 / 0.192e3 - t4626 / 0.2304e4 - t4628 / 0.96e2 - t2953 * t684 * t685 * t914 / 0.6912e4 + t4634 / 0.4608e4 + t346 * t1794 * t1795 * t354 / 0.73728e5 + t346 * t2921 * t1796 / 0.36864e5 + t346 * t2927 * t4643 * t135 / 0.7077888e7 + t346 * t2935 * t686 / 0.512e3 - t346 * t4651 * t2923 / 0.27648e5;
3243   t4660 = t1081 * t1783;
3244   t4669 = t1081 * t1787;
3245   t4671 = t1081 * t1791;
3246   t4684 = t332 * t1646 * t334;
3247   t4689 = t360 * t288;
3248   t4691 = t129 * t4689 * t136;
3249   t4693 = t16 * t1767;
3250   t4703 = t141 * t675;
3251   t4705 = t129 * t4703 * t136;
3252   t4707 = t129 * t1646 * t355;
3253   t4712 = -t1075 * t680 * t333 * t192 / 0.576e3 - t4660 / 0.288e3 + t1075 * t1786 * t1772 / 0.1536e4 + t1075 * t1794 * t1795 * t333 / 0.221184e6 + t4669 / 0.768e3 + t4671 / 0.1536e4 + t346 * t1786 * t1790 / 0.512e3 + t346 * t684 * t685 * t962 / 0.1536e4 + t913 * t639 * t915 / 0.9e1 - t4684 / 0.6e1 - t129 * t639 * t963 / 0.2e1 + t4691 / 0.3e1 - 0.3e1 / 0.2e1 * t129 * t4693 * t136 - 0.3e1 / 0.2e1 * t129 * t1650 * t355 - t332 * t1650 * t334 / 0.2e1 - t4705 - t4707 / 0.2e1 - t332 * t639 * t906 / 0.2e1;
3254   t4728 = t9 * (t4536 + t4591 + t4655 + t4712) - t1644 / 0.2e1 - t1648 - 0.3e1 * t1652 - 0.3e1 / 0.2e1 * t1654 - t1656 / 0.384e3 - t1660 / 0.128e3 - t1664 / 0.36864e5 + t1666 / 0.1024e4 + t1668 / 0.147456e6 + 0.3e1 / 0.2048e4 * t1671 + t1674 / 0.49152e5 + t1681 / 0.9437184e7 + 0.9e1 / 0.256e3 * t1684;
3255   t4729 = t1686 / 0.3072e4;
3256   t4734 = t1703 / 0.4e1;
3257   t4744 = -t4729 - t1689 / 0.128e3 - 0.3e1 / 0.128e3 * t1692 - 0.25e2 / 0.98304e5 * t1696 + 0.27e2 / 0.256e3 * t1700 + t4734 - 0.3e1 / 0.4e1 * t1706 - 0.9e1 / 0.8e1 * t1770 + t1774 / 0.1536e4 + t1776 / 0.768e3 - t1780 / 0.32e2 - t1784 / 0.96e2 + t1788 / 0.256e3 + t1792 / 0.512e3 + t1798 / 0.36864e5;
3258   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3259     v4rho3sigma[0] = t4728 + t4744;
3260 
3261   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3262     v4rho3sigma[1] = 0.0e0;
3263 
3264   t4747 = t1817 / 0.4e1;
3265   t4751 = t1829 / 0.3072e4;
3266   t4756 = t452 * t1809 * t454;
3267   t4761 = t360 * t314;
3268   t4763 = t197 * t4761 * t200;
3269   t4766 = t197 * t1809 * t463;
3270   t4773 = 0.5e1 / 0.36e2 * t7 * t1061 * t315;
3271   t4778 = t3235 * t1820;
3272   t4785 = t3239 * t718;
3273   t4787 = t1260 * t1826;
3274   t4794 = 0.5e1 / 0.27648e5 * t3219 * t321;
3275   t4795 = t929 * t709 * t931 / 0.9e1 - t4756 / 0.6e1 - t452 * t709 * t902 / 0.2e1 + t4763 / 0.3e1 - t4766 / 0.2e1 - t197 * t709 * t971 / 0.2e1 - t4773 - t3205 * t519 * t716 * t930 / 0.6912e4 + t4778 / 0.4608e4 + t1417 * t1908 * t117 * t199 * t462 / 0.1536e4 - t4785 / 0.2304e4 + t4787 / 0.1536e4 + t518 * t519 * t716 * t970 / 0.1536e4 + t4794;
3276   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3277     v4rho3sigma[2] = -t1807 / 0.2e1 - t1811 - 0.3e1 / 0.2e1 * t1814 + t4747 + t1821 / 0.1536e4 + t1823 / 0.768e3 + t1827 / 0.512e3 - t4751 + t9 * t4795;
3278 
3279   t4797 = t1834 / 0.3e1;
3280   t4814 = t7 * t1278 * t288;
3281   t4822 = t3180 * t1857 / 0.6912e4;
3282   t4827 = t431 * t434;
3283   t4841 = -t7 * t1222 * t289 / 0.2e1 - t4402 + t4404 / 0.6e1 - t4407 / 0.8e1 - t1280 * t1854 * t191 * t211 * t135 / 0.288e3 + t3188 * t1854 * t68 * t8 * t135 / 0.2304e4 - t4814 * t1283 / 0.864e3 - t3172 * t1854 * t1855 * t333 / 0.6912e4 + t4822 + t1280 * t1854 * t1855 * t354 / 0.4608e4 + t1280 * t4827 * t695 * t698 * t211 * t135 / 0.331776e6 + t3158 * t1857 / 0.2304e4 + t1248 * t295 / 0.1536e4 - t4507 / 0.663552e6 - 0.25e2 / 0.884736e6 * t4509 - t4517 / 0.4608e4;
3284   t4871 = t1081 * t1843 / 0.864e3;
3285   t4872 = -t4519 / 0.384e3 + t4521 / 0.256e3 + t4552 / 0.6144e4 + t4554 / 0.442368e6 + t4556 / 0.84934656e8 - t4561 / 0.331776e6 + t4567 / 0.1728e4 - t4569 / 0.1152e4 + t4576 + t4577 / 0.576e3 + 0.3e1 / 0.256e3 * t4579 + t346 * t2935 * t728 / 0.1536e4 + t346 * t2921 * t1865 / 0.110592e6 + t346 * t2927 * t4643 * t211 / 0.21233664e8 - t346 * t1658 * t211 * t192 / 0.288e3 - t346 * t1662 * t211 * t441 / 0.82944e5 - t4871;
3286   t4896 = t2963 * t729;
3287   t4899 = t1081 * t1870 / 0.288e3;
3288   t4900 = t3286 * t1874;
3289   t4910 = t1081 * t1862 / 0.2304e4;
3290   t4912 = t1081 * t1866 / 0.331776e6;
3291   t4917 = 0.3e1 / 0.64e2 * t346 * t684 * t1727 * t211 - t1248 * t684 * t654 * t8 / 0.96e2 - t346 * t1786 * t1869 / 0.96e2 + t1248 * t1786 * t1873 / 0.768e3 - 0.25e2 / 0.221184e6 * t346 * t1794 * t4602 * t211 + t1248 * t1794 * t1795 * t8 / 0.110592e6 - t4896 / 0.6912e4 - t4899 - 0.7e1 / 0.4608e4 * t4900 + t346 * t1842 * t445 / 0.64e2 - t1248 * t680 * t8 * t192 / 0.288e3 + t4910 + t4912 + t4593 / 0.331776e6 - t4626 / 0.3456e4 - t4628 / 0.288e3 + t4634 / 0.13824e5;
3292   t4927 = t129 * t4703 * t212 / 0.3e1;
3293   t4935 = t129 * t4689 * t212;
3294   t4939 = t129 * t1184 * t288 * t490;
3295   t4952 = t332 * t1646 * t473 / 0.9e1;
3296   t4956 = -t4660 / 0.864e3 + t4669 / 0.2304e4 + t4671 / 0.4608e4 - t4684 / 0.18e2 + 0.2e1 / 0.9e1 * t4691 - t4705 / 0.3e1 - t4707 / 0.6e1 - t4927 - t129 * t4693 * t212 / 0.2e1 - t129 * t488 * t675 * t490 + t4935 / 0.9e1 + 0.7e1 / 0.6e1 * t4939 - t332 * t1650 * t473 / 0.3e1 - t332 * t639 * t1147 / 0.6e1 + t913 * t639 * t1159 / 0.9e1 - t4952 - t332 * t1846 * t1166 / 0.3e1;
3297   t4965 = -t4797 + t9 * (t4841 + t4872 + t4917 + t4956) - t1645 - 0.2e1 / 0.3e1 * t1648 - t1945 - t1840 - t1848 - t1652 - t1655 - t1656 / 0.576e3 - t1661 - t1665 + t1666 / 0.1536e4 + t1668 / 0.221184e6 + t1672 + t1675 + t1682 + t1685 - t4729 - t1689 / 0.192e3;
3298   t4966 = t1858 / 0.2304e4;
3299   t4969 = t1844 / 0.288e3;
3300   t4970 = t1863 / 0.768e3;
3301   t4971 = t1867 / 0.110592e6;
3302   t4972 = t1871 / 0.96e2;
3303   t4973 = t1875 / 0.768e3;
3304   t4974 = -t1693 - t1697 + t1701 + t4966 + t4734 - t1706 / 0.2e1 - t1771 + t1775 + t1776 / 0.1152e4 - t1781 - t1785 + t1789 + t1793 + t1799 - t4969 + t1953 + t4970 + t4971 - t4972 + t4973;
3305   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3306     v4rho3sigma[3] = t4965 + t4974;
3307 
3308   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3309     v4rho3sigma[4] = 0.0e0;
3310 
3311   t4975 = t1884 / 0.3e1;
3312   t4977 = -t4975 - t1808 - 0.2e1 / 0.3e1 * t1811 - t1815 - t1974 + t1891 - t1896 - t4751 - t1975 + t1976 + t1977 - t1978;
3313   t4979 = t7 * t467 * t767;
3314   t4989 = t3626 * t1911 / 0.6912e4;
3315   t4990 = t1271 * t791;
3316   t4992 = t1271 * t779;
3317   t4994 = t1271 * t772;
3318   t5008 = t1271 * t787;
3319   t5011 = t1260 * t1902 / 0.864e3;
3320   t5023 = t3702 * t1917;
3321   t5033 = t1260 * t1934 / 0.288e3;
3322   t5034 = -t3598 * t1908 * t117 * t8 * t199 / 0.2304e4 - t5008 / 0.1327104e7 + t4794 - t5011 - t518 * t519 * t745 * t462 / 0.192e3 + t518 * t1397 * t1825 / 0.1536e4 + t518 * t1401 * t1926 * t462 / 0.221184e6 + 0.7e1 / 0.4608e4 * t5023 - t518 * t1901 * t1239 / 0.576e3 - t1254 * t519 * t745 * t453 / 0.576e3 - t5033;
3323   t5040 = t1260 * t1921 / 0.2304e4;
3324   t5046 = t1260 * t1928 / 0.331776e6;
3325   t5047 = t3239 * t776;
3326   t5064 = t197 * t1184 * t314 * t505;
3327   t5069 = t141 * t766;
3328   t5072 = t197 * t5069 * t200 / 0.3e1;
3329   t5074 = t197 * t4761 * t217;
3330   t5087 = t452 * t1809 * t497 / 0.9e1;
3331   t5088 = 0.2e1 / 0.9e1 * t4763 - t4766 / 0.6e1 - t197 * t1894 * t463 / 0.2e1 - 0.7e1 / 0.6e1 * t5064 - t452 * t1894 * t454 / 0.6e1 - t5072 + t5074 / 0.9e1 - t452 * t709 * t1151 / 0.6e1 + t452 * t1889 * t1155 / 0.3e1 + t929 * t709 * t1170 / 0.9e1 - t5087;
3332   t5092 = t1912 / 0.2304e4;
3333   t5094 = t1903 / 0.288e3;
3334   t5095 = t1918 / 0.768e3;
3335   t5096 = t1922 / 0.768e3;
3336   t5097 = t1929 / 0.110592e6;
3337   t5098 = t1935 / 0.96e2;
3338   t5099 = t9 * (t4979 / 0.12e2 + t7 * t1226 * t315 / 0.2e1 - t4773 - t3620 * t1908 * t1909 * t453 / 0.6912e4 + t4989 + t4990 / 0.1152e4 - t4992 / 0.9216e4 + t4994 / 0.3456e4 - t1392 * t321 / 0.1536e4 + t1417 * t1908 * t1909 * t462 / 0.4608e4 + t5034 + t1254 * t1397 * t1819 / 0.4608e4 + t5040 + t1254 * t1401 * t1926 * t453 / 0.663552e6 + t5046 - t5047 / 0.6912e4 - t1254 * t1901 * t1255 / 0.1728e4 + t4778 / 0.13824e5 - t4785 / 0.3456e4 + t4787 / 0.4608e4 - t4756 / 0.18e2 + t5088) + t5092 + t4747 - t2007 + t1822 + t1823 / 0.1152e4 + t1828 - t5094 + t2080 - t5095 + t5096 + t5097 - t5098;
3339   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3340     v4rho3sigma[5] = t4977 + t5099;
3341 
3342   t5124 = t1081 * t1955;
3343   t5130 = t2959 * t1950;
3344   t5154 = t4577 / 0.1152e4 + t346 * t1794 * t1795 * t539 / 0.221184e6 + t5124 / 0.4608e4 - t346 * t684 * t654 * t539 / 0.192e3 + t5130 / 0.13824e5 - t1075 * t684 * t654 * t533 / 0.576e3 - t1075 * t680 * t533 * t192 / 0.1728e4 - t346 * t680 * t539 * t192 / 0.576e3 + t1075 * t1786 * t1949 / 0.4608e4 + t1075 * t1794 * t1795 * t533 / 0.663552e6 + t346 * t1786 * t1954 / 0.1536e4;
3345   t5177 = t332 * t1646 * t534;
3346   t5180 = t129 * t1646 * t540;
3347   t5191 = 0.2e1 / 0.9e1 * t4935 - t4939 / 0.3e1 - t129 * t1650 * t540 / 0.2e1 - t129 * t639 * t1351 / 0.2e1 - t332 * t1650 * t534 / 0.6e1 - t5177 / 0.18e2 - t5180 / 0.6e1 - t4952 - t332 * t1846 * t1311 / 0.3e1 + t913 * t639 * t1307 / 0.9e1 - t332 * t639 * t1315 / 0.6e1;
3348   t5196 = -t4797 + t9 * (-t4402 + t4404 / 0.12e2 + t1280 * t1854 * t68 * t539 * t135 / 0.4608e4 - t3172 * t1854 * t68 * t533 * t135 / 0.6912e4 + t3188 * t1854 * t1855 * t8 / 0.2304e4 + t4822 - t4507 / 0.1327104e7 - t4517 / 0.9216e4 + t4567 / 0.3456e4 + t4576 + t5154 + t346 * t684 * t685 * t1350 / 0.1536e4 - t4871 - t4896 / 0.3456e4 - t4899 + t4900 / 0.2304e4 + t4910 + t4912 - t4626 / 0.6912e4 + t4691 / 0.9e1 - t4927 + t5191) - t1944 - t1948 - t1649 - 0.2e1 / 0.3e1 * t1837 - t1840 - t1848 - t1657 + t1667 + t1669 - t4729;
3349   t5198 = -t1690 + t4966 + t4734 - t1707 + t1777 - t4969 + t1860 / 0.1152e4 + t4970 + t4971 - t4972 + t4973 + t1952 + t1957;
3350   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3351     v4rho3sigma[6] = t5196 + t5198;
3352 
3353   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3354     v4rho3sigma[7] = 0.0e0;
3355 
3356   t5210 = t621 * t434;
3357   t5218 = t7 * t1415 * t314;
3358   t5232 = t526 * t2004;
3359   t5234 = t526 * t2073;
3360   t5236 = t526 * t2077;
3361   t5238 = t526 * t2001;
3362   t5240 = t526 * t1990;
3363   t5242 = t526 * t1997;
3364   t5244 = t4979 / 0.6e1 - t4773 - t1417 * t1908 * t266 * t216 * t199 / 0.288e3 + t1417 * t1908 * t117 * t556 * t199 / 0.4608e4 + t1417 * t5210 * t782 * t785 * t216 * t199 / 0.331776e6 - t5218 * t1420 / 0.864e3 + t3927 * t1911 / 0.2304e4 - t3620 * t1908 * t117 * t544 * t199 / 0.6912e4 - t3598 * t1908 * t1909 * t8 / 0.2304e4 + t4989 - t5232 / 0.384e3 - 0.25e2 / 0.884736e6 * t5234 + 0.3e1 / 0.256e3 * t5236 + t5238 / 0.256e3 + t5240 / 0.442368e6 + t5242 / 0.84934656e8;
3365   t5245 = t526 * t1984;
3366   t5247 = t526 * t1987;
3367   t5249 = t526 * t1980;
3368   t5258 = t1979 * t64;
3369   t5262 = t1260 * t2097;
3370   t5264 = t1260 * t2101;
3371   t5266 = t1260 * t2090;
3372   t5268 = t1260 * t2093;
3373   t5270 = t3235 * t2082;
3374   t5272 = t1260 * t2086;
3375   t5284 = -t5245 / 0.331776e6 + t5247 / 0.6144e4 - t5249 / 0.1152e4 + t4990 / 0.576e3 - t4992 / 0.4608e4 + t4994 / 0.1728e4 + t1392 * t519 * t745 * t8 / 0.96e2 - t518 * t5258 * t521 / 0.288e3 + t5262 / 0.4608e4 + t5264 / 0.331776e6 - t5266 / 0.864e3 + t5268 / 0.2304e4 + t5270 / 0.13824e5 - t5272 / 0.288e3 + t518 * t1901 * t1423 / 0.64e2 - t1392 * t1397 * t1916 / 0.768e3 + t518 * t519 * t716 * t1358 / 0.1536e4;
3376   t5297 = t1603 * t1995;
3377   t5302 = t1983 * t434;
3378   t5313 = t782 * t628;
3379   t5324 = -t1392 * t1401 * t1926 * t8 / 0.110592e6 + t1392 * t771 * t8 * t267 / 0.288e3 + t518 * t4036 * t1927 / 0.110592e6 + t518 * t4023 * t5297 * t199 / 0.21233664e8 - t518 * t5302 * t1403 / 0.82944e5 + t518 * t4032 * t717 / 0.1536e4 - t5008 / 0.663552e6 + t4794 - t518 * t1397 * t1933 / 0.96e2 - 0.25e2 / 0.221184e6 * t518 * t1401 * t5313 * t199 + 0.3e1 / 0.64e2 * t518 * t519 * t2027 * t199 - t5011 - t5023 / 0.2304e4 - t5033 + t5040 + t5046 - t5047 / 0.3456e4;
3380   t5335 = t16 * t2067;
3381   t5340 = t197 * t1809 * t557;
3382   t5343 = t452 * t1809 * t545;
3383   t5346 = t197 * t5069 * t217;
3384   t5349 = t7 * t204 * t2068;
3385   t5363 = -t4785 / 0.6912e4 + t4763 / 0.9e1 + t5064 / 0.3e1 - t5072 + 0.2e1 / 0.9e1 * t5074 + t197 * t488 * t766 * t505 - t197 * t709 * t1359 / 0.2e1 - t197 * t5335 * t200 / 0.2e1 - t5340 / 0.6e1 - t5343 / 0.18e2 - t5346 / 0.3e1 - t5349 / 0.8e1 - t5087 + t929 * t709 * t1319 / 0.9e1 + t452 * t1889 * t1323 / 0.3e1 - t452 * t1894 * t497 / 0.3e1 - t452 * t709 * t1303 / 0.6e1;
3386   t5372 = -t4975 + t9 * (t5244 + t5284 + t5324 + t5363) - t1967 - t1970 - t1973 - t1812 - 0.2e1 / 0.3e1 * t1887 + t1891 - t1896 - t4751 - t1905 / 0.576e3 + t1924 / 0.1536e4 + t1931 / 0.221184e6 - t1937 / 0.192e3 - t1982 - t1986 + t1989 + t1992 + t1999 + t2003;
3387   t5375 = -t2006 + t5092 + t4747 - t1899 / 0.2e1 - t2071 - t2075 + t2079 + t1824 - t5094 + t1914 / 0.1152e4 - t5095 + t5096 + t5097 - t5098 + t2084 - t2088 - t2092 + t2095 + t2099 + t2103;
3388   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3389     v4rho3sigma[8] = t5372 + t5375;
3390 
3391   t5408 = t913 * t639 * t1458 / 0.9e1 - t5177 / 0.6e1 - t332 * t639 * t1449 / 0.2e1 + t4935 / 0.3e1 - t5180 / 0.2e1 - t129 * t639 * t1469 / 0.2e1 - t4402 - t2953 * t684 * t685 * t1457 / 0.6912e4 + t5130 / 0.4608e4 + t1280 * t1854 * t1855 * t539 / 0.1536e4 - t4896 / 0.2304e4 + t5124 / 0.1536e4 + t346 * t684 * t685 * t1468 / 0.1536e4 + t4576;
3392   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3393     v4rho3sigma[9] = -t1943 / 0.2e1 - t1837 - 0.3e1 / 0.2e1 * t1947 + t4734 + t1951 / 0.1536e4 + t1860 / 0.768e3 + t1956 / 0.512e3 - t4729 + t9 * t5408;
3394 
3395   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3396     v4rho3sigma[10] = 0.0e0;
3397 
3398   t5422 = -0.3e1 * t1967 - 0.3e1 / 0.2e1 * t1969 - t1972 / 0.2e1 - t1887 - t4751 - t1905 / 0.384e3 + t1924 / 0.1024e4 + t1931 / 0.147456e6 - t1937 / 0.128e3 - t1981 / 0.128e3 - t1985 / 0.36864e5 + 0.3e1 / 0.2048e4 * t1988 + t1991 / 0.49152e5 + t1998 / 0.9437184e7;
3399   t5452 = t766 * t621;
3400   t5456 = t314 * t1601;
3401   t5466 = t2067 * t263;
3402   t5494 = t4979 / 0.4e1 - t4773 + t1417 * t1908 * t1909 * t556 / 0.1536e4 + t261 * t4211 * t1996 / 0.9437184e7 + t261 * t4217 * t2854 * t1603 * t114 / t4220 / t225 / 0.2038431744e10 - t261 * t5452 * t629 / 0.36864e5 - t261 * t5456 * t1608 / 0.10616832e8 + t261 * t4227 * t320 / 0.2048e4 + t261 * t4207 * t786 / 0.98304e5 - t261 * t5466 * t267 / 0.256e3 + 0.27e2 / 0.256e3 * t261 * t616 * t2076 + 0.29e2 / 0.16384e5 * t261 * t622 * t783 * t1580 - 0.45e2 / 0.128e3 * t261 * t264 * t319 * t1498 - 0.15e2 / 0.128e3 * t261 * t771 * t1585 - 0.17e2 / 0.9437184e7 * t261 * t1602 * t1993 * t1607 - 0.3e1 / 0.256e3 * t261 * t1592 * t790 - 0.25e2 / 0.98304e5 * t261 * t1596 * t2072;
3403   t5528 = 0.9e1 / 0.256e3 * t261 * t1979 * t633 + t261 * t1983 * t1581 / 0.4096e4 - t5232 / 0.128e3 - 0.25e2 / 0.294912e6 * t5234 + 0.9e1 / 0.256e3 * t5236 + 0.3e1 / 0.256e3 * t5238 + t5240 / 0.147456e6 + t5242 / 0.28311552e8 - t5245 / 0.110592e6 + t5247 / 0.2048e4 - t5249 / 0.384e3 + t4990 / 0.384e3 - t4992 / 0.3072e4 + t4994 / 0.1152e4 + t1254 * t1401 * t1926 * t544 / 0.221184e6 - t518 * t1397 * t2085 / 0.32e2 - t518 * t519 * t745 * t556 / 0.64e2 - 0.25e2 / 0.73728e5 * t518 * t1401 * t5313 * t216;
3404   t5587 = -t518 * t1979 * t216 * t267 / 0.96e2 - t518 * t771 * t556 * t267 / 0.192e3 + 0.3e1 / 0.64e2 * t518 * t2089 * t633 - t3205 * t519 * t716 * t1462 / 0.6912e4 - t1254 * t519 * t745 * t544 / 0.192e3 + 0.9e1 / 0.64e2 * t518 * t519 * t2027 * t216 + t518 * t1397 * t2096 / 0.512e3 + t518 * t519 * t716 * t1482 / 0.1536e4 + t518 * t1401 * t1926 * t556 / 0.73728e5 + t518 * t4036 * t2100 / 0.36864e5 + t518 * t4023 * t5297 * t216 / 0.7077888e7 - t518 * t5302 * t4251 / 0.27648e5 + t518 * t4032 * t775 / 0.512e3 - t1254 * t771 * t544 * t267 / 0.576e3 + t1254 * t1397 * t2081 / 0.1536e4 + t5262 / 0.1536e4 + t5264 / 0.110592e6 - t5266 / 0.288e3;
3405   t5618 = t22 * t1518;
3406   t5626 = 0.1e1 / t82 / t626;
3407   t5638 = 0.1e1 / t83 / t265;
3408   t5656 = -0.98516106754904741896e-2 * t598 * t103 * t1542 - 0.16569987374678167598e-3 * t249 * t5618 - 0.10980899102628513796e-3 * t1509 * t992 * t1513 * t114 + 0.20856408552000975870e-6 * t4158 * t2720 * t5626 * t623 + 0.21411152009128862875e-8 * t1495 * t623 * t5626 * t36 * t38 - 0.40671787192391865920e-2 * t4106 * t2733 * t599 * t5638 + 0.33588425688155967615e-3 * t748 * t1498 + 0.23358399634202103338e-1 * t580 * t1498 * t93 - 0.24403072315435119552e-1 * t4089 * t1504 * sigma[2] * t51 - 0.97160380515158346364e-2 * t2054 * t1555 - 0.15816806130374614524e-2 * t242 * t308 * t1562;
3409   t5671 = t303 * t1504;
3410   t5698 = 0.12359353216000578294e-5 * t4168 * t1513 * t101 * t114 * t23 + 0.69128983273778274541e-2 * t566 * t1504 * t101 * sigma[2] - 0.12332394376798177032e-3 * t1525 * t1513 * t2032 - 0.14047856833189446932e-5 * t2035 * t1528 + 0.209e3 / 0.243e3 * t232 * t5671 - 0.40265069320467947261e0 * t1540 * t407 * t1542 * t103 - 0.12201536157717559776e-1 * t4107 * t599 * t5638 * t407 - 0.41801559058847195529e-2 * t1546 * t5671 - 0.80665711264910534075e-1 * t593 * t23 * t1518 - 0.42797350348706002486e-3 * t1496 * t1498 * t101 * t93 + 0.41712817104001951740e-6 * t1496 * t5626 * t39 * t623 - 0.15172696844993141290e0 * t223 * t5618 * t101;
3411   t5704 = t5268 / 0.768e3 + t5270 / 0.4608e4 - t5272 / 0.96e2 - t5008 / 0.442368e6 + t4794 - t5047 / 0.2304e4 - t452 * t709 * t1453 / 0.2e1 + t5074 / 0.3e1 - t5340 / 0.2e1 - t5343 / 0.6e1 - t5346 - 0.3e1 / 0.2e1 * t197 * t1894 * t557 - t197 * t709 * t1483 / 0.2e1 - 0.3e1 / 0.2e1 * t197 * t5335 * t217 + t929 * t709 * t1463 / 0.9e1 - t452 * t1894 * t545 / 0.2e1 - 0.3e1 / 0.8e1 * t5349 - 0.3e1 / 0.8e1 * t7 * t80 * (t5656 + t5698) * t121;
3412   t5708 = 0.9e1 / 0.256e3 * t2002 - 0.3e1 / 0.128e3 * t2005 + t4747 - 0.3e1 / 0.4e1 * t1899 - 0.9e1 / 0.8e1 * t2070 - 0.25e2 / 0.98304e5 * t2074 + 0.27e2 / 0.256e3 * t2078 + t1914 / 0.768e3 + t2083 / 0.1536e4 - t2087 / 0.32e2 - t2091 / 0.96e2 + t2094 / 0.256e3 + t2098 / 0.512e3 + t2102 / 0.36864e5 + t9 * (t5494 + t5528 + t5587 + t5704);
3413   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3414     v4rho3sigma[11] = t5422 + t5708;
3415 
3416   t5709 = t1081 * t2210;
3417   t5719 = t1081 * t2189;
3418   t5721 = t435 * t698;
3419   t5729 = t1081 * t2173;
3420   t5741 = t2197 * t2200;
3421   t5746 = t1658 * t64;
3422   t5753 = t5709 / 0.1152e4 - t346 * t684 * t2133 * t135 / 0.48e2 - t1075 * t1794 * t2187 * t333 / 0.1769472e7 - t5719 / 0.884736e6 + t346 * t1794 * t5721 * t135 / 0.13824e5 + t1075 * t2172 * t1772 / 0.2304e4 + t5729 / 0.1152e4 - t346 * t2172 * t1778 / 0.48e2 - t346 * t2921 * t2188 / 0.294912e6 - t346 * t1794 * t2187 * t354 / 0.589824e6 - t346 * t2927 * t5741 * t135 / 0.28311552e8 + t346 * t5746 * t686 / 0.384e3 + t346 * t2172 * t1790 / 0.768e3;
3423   t5787 = t1097 * t838 / 0.4608e4;
3424   t5788 = t369 * t2219;
3425   t5800 = t346 * t4651 * t1796 / 0.55296e5 - t346 * t2168 * t135 * t192 / 0.288e3 + t1075 * t684 * t800 * t333 / 0.2304e4 + t346 * t1786 * t2209 / 0.384e3 + t346 * t684 * t800 * t354 / 0.768e3 + t186 * t4571 * t294 / 0.1024e4 - t186 * t426 * t2218 / 0.64e2 + 0.9e1 / 0.128e3 * t186 * t189 * t836 * t391 - 0.19e2 / 0.36864e5 * t186 * t432 * t830 * t440 - t5787 - t5788 / 0.192e3 + t186 * t1108 * t2205 / 0.18432e5 + 0.139e3 / 0.226492416e9 * t186 * t1114 * t2198 * t1678 + 0.9e1 / 0.128e3 * t186 * t680 * t1698;
3426   t5803 = t1097 * t833 / 0.3538944e7;
3427   t5804 = t369 * t2206;
3428   t5816 = t1097 * t827 / 0.4608e4;
3429   t5817 = t369 * t2184;
3430   t5819 = t369 * t2169;
3431   t5821 = t2163 * t188;
3432   t5836 = t369 * t2215;
3433   t5844 = t5803 + t5804 / 0.55296e5 - t186 * t1658 * t703 / 0.64e2 - 0.25e2 / 0.147456e6 * t186 * t1662 * t1694 + 0.3e1 / 0.256e3 * t186 * t2168 * t445 - t5816 - t5817 / 0.192e3 - t5819 / 0.1152e4 - t186 * t5821 * t192 / 0.384e3 - t186 * t2846 * t2201 / 0.37748736e8 - t186 * t2852 * t2854 * t1117 * t40 / t2857 / t24 / 0.5435817984e10 + t5836 / 0.1536e4 + t186 * t1104 * t837 / 0.1024e4 + t186 * t4563 * t699 / 0.73728e5;
3434   t5848 = t369 * t2194;
3435   t5850 = t369 * t2202;
3436   t5855 = t822 * t431;
3437   t5859 = t369 * t2178;
3438   t5861 = t369 * t2181;
3439   t5865 = t7 * t361 * t823 / 0.12e2;
3440   t5867 = t7 * t142 * t2164;
3441   t5869 = t38 * t378;
3442   t5875 = 0.1e1 / t26 / t67;
3443   t5888 = 0.1e1 / t25 / t67 / t376;
3444   t5898 = t65 * t36 * t38;
3445   t5941 = -0.23725209195561921787e-3 * t167 * t818 * t415 - 0.46347574560002168600e-6 * t2708 * t1718 * t48 * t40 * t23 + 0.86935945123737613404e-1 * t1023 * t2144 * t410 + 0.91511521182881698319e-2 * t2700 * t1756 + 0.45755760591440849160e-2 * t2675 * t52 * t5875 * t407 + 0.24572538095403418994e-2 * t1035 * t1756 + 0.12107145164436566493e-3 * t977 * t1708 * sigma[0] - 0.15642306414000731902e-6 * t977 * t5888 * t5898 - 0.11555284594150620671e-2 * t374 * t5869 * t48 + 0.43574370732578377058e-6 * t373 * t1718 * t2130 - 0.78387041129197113882e-4 * t147 * t391 * sigma[0];
3446   t5947 = t16 * t2163;
3447   t5956 = t141 * t822;
3448   t5958 = t129 * t5956 * t136;
3449   t5960 = t186 * t4548 * t1679 / 0.14155776e8 - t5848 / 0.1179648e7 - t5850 / 0.113246208e9 - t186 * t2870 * t832 / 0.786432e6 - t186 * t5855 * t441 / 0.110592e6 + t5859 / 0.1536e4 + t5861 / 0.221184e6 + t5865 - t5867 / 0.4e1 - 0.3e1 / 0.8e1 * t7 * t17 * (-0.19e2 / 0.162e3 * t157 * t5869 + 0.97442823481772178766e-3 * t1029 * t5869 + 0.15251920197146949720e-2 * t2674 * t2733 * t5875 * t52 + 0.12032070377749260335e-2 * t408 * t410 * t281 + 0.32309183898118511745e-4 * t990 * t1719 * t40 - 0.78211532070003659514e-7 * t2717 * t2720 * t5888 * t65 - 0.49877777777777777777e-2 * t389 * t391 * sigma[0] - 0.80291820034233235782e-9 * t976 * t5888 * t5898 + 0.37377291176254748880e-4 * t1730 * t2130 + 0.35587813793342882680e-2 * t403 * t809 * t384 + t5941) * t72 - t129 * t5947 * t136 - t129 * t2107 * t355 / 0.2e1 - t332 * t2107 * t334 / 0.6e1 - t5958 / 0.3e1;
3450   t5966 = t2192 / 0.1179648e7;
3451   t5969 = t2213 / 0.1536e4;
3452   t5972 = t2176 / 0.1536e4;
3453   t5974 = t2112 / 0.4e1;
3454   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3455     v4rho2sigma2[0] = t9 * (t5753 + t5800 + t5844 + t5960) - t2185 / 0.64e2 - t2190 / 0.294912e6 - t5966 + t2207 / 0.18432e5 + t2211 / 0.384e3 + t5969 - t2220 / 0.64e2 + t2174 / 0.384e3 + t5972 - 0.3e1 / 0.4e1 * t2166 - t2109 - t5974 - t2170 / 0.384e3 + t2179 / 0.512e3 + t2182 / 0.73728e5 - t2195 / 0.393216e6 - t2203 / 0.37748736e8 + t2216 / 0.512e3;
3456 
3457   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3458     v4rho2sigma2[1] = 0.0e0;
3459 
3460   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3461     v4rho2sigma2[2] = 0.0e0;
3462 
3463   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3464     v4rho2sigma2[3] = 0.0e0;
3465 
3466   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3467     v4rho2sigma2[4] = 0.0e0;
3468 
3469   t5981 = t2229 / 0.4e1;
3470   t5983 = t2234 / 0.1536e4;
3471   t5985 = t2241 / 0.1179648e7;
3472   t5987 = t2247 / 0.1536e4;
3473   t5991 = t141 * t868;
3474   t5993 = t197 * t5991 * t200;
3475   t6000 = t7 * t467 * t869 / 0.12e2;
3476   t6004 = t1260 * t2231;
3477   t6010 = t1271 * t873 / 0.4608e4;
3478   t6015 = t1260 * t2238;
3479   t6022 = t1271 * t879 / 0.3538944e7;
3480   t6027 = t1260 * t2244;
3481   t6034 = t1271 * t884 / 0.4608e4;
3482   t6035 = -t452 * t2224 * t454 / 0.6e1 - t5993 / 0.3e1 - t197 * t2224 * t463 / 0.2e1 + t6000 + t1254 * t1901 * t1819 / 0.2304e4 + t6004 / 0.1152e4 + t518 * t1901 * t1825 / 0.768e3 - t6010 - t1254 * t1401 * t2236 * t453 / 0.1769472e7 - t6015 / 0.884736e6 - t518 * t1401 * t2236 * t462 / 0.589824e6 + t6022 + t1254 * t519 * t846 * t453 / 0.2304e4 + t6027 / 0.1152e4 + t518 * t519 * t846 * t462 / 0.768e3 - t6034;
3483   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3484     v4rho2sigma2[5] = -t2226 - t5981 + t2232 / 0.384e3 + t5983 - t2239 / 0.294912e6 - t5985 + t2245 / 0.384e3 + t5987 + t9 * t6035;
3485 
3486   t6057 = t1081 * t2262;
3487   t6067 = t1081 * t2254;
3488   t6075 = t1081 * t2258;
3489   t6099 = t1280 * t1853 * sigma[0] * t1856 / 0.2304e4 + t4814 * t1857 / 0.2304e4 - t1280 * t4827 * t435 * t831 * t211 * t135 / 0.1769472e7 + t346 * t1794 * t5721 * t211 / 0.27648e5 - t1248 * t1794 * t2187 * t8 / 0.589824e6 + t6057 / 0.2304e4 - t346 * t684 * t2133 * t211 / 0.96e2 + t1248 * t684 * t800 * t8 / 0.768e3 + t6067 / 0.2304e4 - t346 * t2172 * t1869 / 0.96e2 + t1248 * t2172 * t1873 / 0.768e3 - t6075 / 0.1769472e7 - t346 * t2921 * t2257 / 0.589824e6 - t346 * t2927 * t5741 * t211 / 0.56623104e8 + t346 * t1786 * t2261 / 0.768e3 - t346 * t2168 * t211 * t192 / 0.576e3 + t346 * t5746 * t728 / 0.768e3 + t346 * t4651 * t1865 / 0.110592e6 + t5709 / 0.2304e4 - t5719 / 0.1769472e7;
3490   t6119 = t129 * t5956 * t212;
3491   t6125 = t5729 / 0.2304e4 - t5787 - t5788 / 0.384e3 + t5803 + t5804 / 0.110592e6 - t5816 - t5817 / 0.384e3 - t5819 / 0.2304e4 + t5836 / 0.3072e4 - t5848 / 0.2359296e7 - t5850 / 0.226492416e9 + t5859 / 0.3072e4 + t5861 / 0.442368e6 - t332 * t2107 * t473 / 0.6e1 + t5865 - t5867 / 0.8e1 - t5958 / 0.6e1 - t129 * t5947 * t212 / 0.2e1 - t6119 / 0.6e1 - t129 * t488 * t822 * t490 / 0.2e1;
3492   t6128 = t9 * (t6099 + t6125) + t2264 + t2256 - t2260 - t2186 - t2191 - t5966 + t2208 + t2212 + t5969 - t2221;
3493   t6129 = t2175 + t5972 - t2167 - t2110 - t5974 - t2253 - t2171 + t2180 + t2183 - t2196 - t2204 + t2217;
3494   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3495     v4rho2sigma2[6] = t6128 + t6129;
3496 
3497   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3498     v4rho2sigma2[7] = 0.0e0;
3499 
3500   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3501     v4rho2sigma2[8] = 0.0e0;
3502 
3503   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3504     v4rho2sigma2[9] = 0.0e0;
3505 
3506   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3507     v4rho2sigma2[10] = 0.0e0;
3508 
3509   t6142 = t2324 * t64;
3510   t6146 = t1260 * t2360;
3511   t6148 = t1260 * t2341;
3512   t6150 = t1260 * t2328;
3513   t6156 = t623 * t785;
3514   t6168 = t2347 * t2350;
3515   t6194 = t1417 * t1907 * sigma[2] * t1910 / 0.2304e4 - t1417 * t5210 * t623 * t877 * t216 * t199 / 0.1769472e7 + t5218 * t1911 / 0.2304e4 - t518 * t6142 * t521 / 0.576e3 + t6146 / 0.2304e4 - t6148 / 0.1769472e7 + t6150 / 0.2304e4 - t518 * t519 * t2289 * t199 / 0.96e2 + t518 * t1401 * t6156 * t199 / 0.27648e5 - t1392 * t519 * t846 * t8 / 0.768e3 - t518 * t4036 * t2237 / 0.589824e6 - t518 * t4023 * t6168 * t199 / 0.56623104e8 + t518 * t5302 * t1927 / 0.110592e6 - t518 * t1901 * t1933 / 0.96e2 + t1392 * t1401 * t2236 * t8 / 0.589824e6 - t1392 * t1901 * t1916 / 0.768e3 + t518 * t5258 * t717 / 0.768e3 + t518 * t1397 * t2243 / 0.768e3 - t6015 / 0.1769472e7 + t6027 / 0.2304e4;
3516   t6196 = t526 * t2344;
3517   t6198 = t526 * t2334;
3518   t6200 = t526 * t2337;
3519   t6202 = t526 * t2331;
3520   t6204 = t526 * t2325;
3521   t6206 = t526 * t2363;
3522   t6208 = t526 * t2367;
3523   t6210 = t526 * t2352;
3524   t6212 = t526 * t2356;
3525   t6218 = t7 * t204 * t2320;
3526   t6225 = t16 * t2319;
3527   t6230 = t197 * t5991 * t217;
3528   t6232 = t6004 / 0.2304e4 - t6196 / 0.2359296e7 + t6198 / 0.442368e6 - t6200 / 0.384e3 + t6202 / 0.3072e4 - t6204 / 0.2304e4 + t6206 / 0.3072e4 - t6208 / 0.384e3 - t6210 / 0.226492416e9 + t6212 / 0.110592e6 - t6010 + t6022 - t6034 - t452 * t2224 * t497 / 0.6e1 - t6218 / 0.8e1 + t6000 - t5993 / 0.6e1 + t197 * t488 * t868 * t505 / 0.2e1 - t197 * t6225 * t200 / 0.2e1 - t6230 / 0.6e1;
3529   t6235 = t9 * (t6194 + t6232) - t2346 - t2354 + t2365 - t2327 + t2333 + t2336 + t2362 - t2369 + t2330 - t2339;
3530   t6236 = -t2343 + t2358 - t2240 - t5985 + t2246 + t5987 + t2233 + t5983 - t2323 - t2227 - t5981 - t2269;
3531   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3532     v4rho2sigma2[11] = t6235 + t6236;
3533 
3534   t6272 = -t332 * t2107 * t534 / 0.6e1 - t6119 / 0.3e1 - t129 * t2107 * t540 / 0.2e1 + t5865 + t1075 * t2172 * t1949 / 0.2304e4 + t6067 / 0.1152e4 + t346 * t2172 * t1954 / 0.768e3 - t5816 - t1075 * t1794 * t2187 * t533 / 0.1769472e7 - t6075 / 0.884736e6 - t346 * t1794 * t2187 * t539 / 0.589824e6 + t5803 + t1075 * t684 * t800 * t533 / 0.2304e4 + t6057 / 0.1152e4 + t346 * t684 * t800 * t539 / 0.768e3 - t5787;
3535   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3536     v4rho2sigma2[12] = -t2252 - t5974 + t2255 / 0.384e3 + t5972 - t2259 / 0.294912e6 - t5966 + t2263 / 0.384e3 + t5969 + t9 * t6272;
3537 
3538   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3539     v4rho2sigma2[13] = 0.0e0;
3540 
3541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3542     v4rho2sigma2[14] = 0.0e0;
3543 
3544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3545     v4rho2sigma2[15] = 0.0e0;
3546 
3547   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3548     v4rho2sigma2[16] = 0.0e0;
3549 
3550   t6274 = t38 * t569;
3551   t6278 = 0.1e1 / t83 / t116;
3552   t6291 = 0.1e1 / t82 / t116 / t567;
3553   t6301 = t114 * t36 * t38;
3554   t6346 = 0.91511521182881698319e-2 * t4089 * t2056 + 0.45755760591440849160e-2 * t4107 * t103 * t6278 * t407 + 0.24572538095403418994e-2 * t1552 * t2056 + 0.12107145164436566493e-3 * t1496 * t2008 * sigma[2] - 0.15642306414000731902e-6 * t1496 * t6291 * t6301 - 0.11555284594150620671e-2 * t565 * t6274 * t101 + 0.37377291176254748880e-4 * t2030 * t2286 + 0.35587813793342882680e-2 * t594 * t855 * t575 - 0.23725209195561921787e-3 * t242 * t864 * t605 - 0.46347574560002168600e-6 * t4168 * t2018 * t101 * t93 * t23 - 0.78387041129197113882e-4 * t222 * t582 * sigma[2];
3555   t6393 = -0.3e1 / 0.8e1 * t7 * t80 * (0.97442823481772178766e-3 * t1546 * t6274 + 0.15251920197146949720e-2 * t4106 * t2733 * t6278 * t103 + 0.12032070377749260335e-2 * t598 * t600 * t307 + 0.32309183898118511745e-4 * t1509 * t2019 * t93 - 0.78211532070003659514e-7 * t4158 * t2720 * t6291 * t114 - 0.49877777777777777777e-2 * t580 * t582 * sigma[2] - 0.80291820034233235782e-9 * t1495 * t6291 * t6301 - 0.19e2 / 0.162e3 * t232 * t6274 + 0.43574370732578377058e-6 * t564 * t2018 * t2286 + 0.86935945123737613404e-1 * t1540 * t2300 * t600 + t6346) * t121 - t518 * t4036 * t2340 / 0.294912e6 + t518 * t5302 * t2100 / 0.55296e5 + t518 * t5258 * t775 / 0.384e3 + t518 * t1901 * t2096 / 0.768e3 + t1254 * t519 * t846 * t544 / 0.2304e4 - t518 * t519 * t2289 * t216 / 0.48e2 - t1254 * t1401 * t2236 * t544 / 0.1769472e7 + t518 * t1401 * t6156 * t216 / 0.13824e5 + t1254 * t1901 * t2081 / 0.2304e4 - t518 * t1901 * t2085 / 0.48e2 - t518 * t2324 * t216 * t267 / 0.288e3 + t518 * t1397 * t2359 / 0.384e3;
3556   t6432 = t2319 * t263;
3557   t6436 = t868 * t621;
3558   t6447 = t518 * t519 * t846 * t556 / 0.768e3 - t518 * t1401 * t2236 * t556 / 0.589824e6 - t518 * t4023 * t6168 * t216 / 0.28311552e8 + t261 * t1592 * t883 / 0.1024e4 - t261 * t4207 * t878 / 0.786432e6 - t261 * t4211 * t2351 / 0.37748736e8 - t261 * t4217 * t2854 * t1603 * t93 / t4220 / t81 / 0.5435817984e10 + t261 * t5466 * t320 / 0.1024e4 + t261 * t5452 * t786 / 0.73728e5 + t261 * t5456 * t1996 / 0.14155776e8 - t261 * t6432 * t267 / 0.384e3 - t261 * t6436 * t629 / 0.110592e6 + 0.9e1 / 0.128e3 * t261 * t264 * t882 * t582 - t261 * t616 * t2366 / 0.64e2;
3559   t6479 = 0.139e3 / 0.226492416e9 * t261 * t1602 * t2348 * t1995 - 0.19e2 / 0.36864e5 * t261 * t622 * t876 * t628 + t261 * t1596 * t2355 / 0.18432e5 - 0.25e2 / 0.147456e6 * t261 * t1983 * t2072 + 0.9e1 / 0.128e3 * t261 * t771 * t2076 - t261 * t1979 * t790 / 0.64e2 + 0.3e1 / 0.256e3 * t261 * t2324 * t633 + t6146 / 0.1152e4 - t6148 / 0.884736e6 + t6150 / 0.1152e4 - t6196 / 0.1179648e7 + t6198 / 0.221184e6 - t6200 / 0.192e3 + t6202 / 0.1536e4;
3560   t6495 = -t6204 / 0.1152e4 + t6206 / 0.1536e4 - t6208 / 0.192e3 - t6210 / 0.113246208e9 + t6212 / 0.55296e5 - t6010 + t6022 - t6034 - t6218 / 0.4e1 + t6000 - t6230 / 0.3e1 - t197 * t6225 * t217 - t197 * t2224 * t557 / 0.2e1 - t452 * t2224 * t545 / 0.6e1;
3561   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3562     v4rho2sigma2[17] = t9 * (t6393 + t6447 + t6479 + t6495) - t2345 / 0.393216e6 - t2353 / 0.37748736e8 + t2364 / 0.512e3 - t2326 / 0.384e3 + t2332 / 0.512e3 + t2335 / 0.73728e5 + t2361 / 0.384e3 - t2368 / 0.64e2 + t2329 / 0.384e3 - t2338 / 0.64e2 - t2342 / 0.294912e6 + t2357 / 0.18432e5 - t5985 + t5987 + t5983 - 0.3e1 / 0.4e1 * t2322 - t5981 - t2268;
3563 
3564   t6514 = t7 * t142 * t2419 / 0.8e1;
3565   t6523 = 0.1e1 / t25 / t2657;
3566   t6530 = t40 * t36 * t38;
3567   t6534 = 0.1e1 / t26 / t376;
3568   t6565 = t48 * t18;
3569   t6575 = 0.55419753086419753086e-3 * t389 * t191 + 0.15251920197146949720e-3 * t408 * t666 * t817 - 0.25340536390681185682e-4 * t977 * t2114 + 0.29329324526251372317e-7 * t2717 * t2720 * t6523 * t40 + 0.30109432512837463418e-9 * t976 * t6523 * t6530 - 0.57194700739301061450e-3 * t2674 * t2733 * t6534 * t281 - 0.11706547360991205777e-6 * t2136 * t2383 - 0.17158410221790318435e-2 * t2675 * t281 * t6534 * t407 - 0.6354966748811229050e-4 * t1029 * t2118 * t808 + 0.58658649052502744635e-7 * t977 * t6523 * t6530 - 0.76021609172043557047e-5 * t990 * t2124 * sigma[0] + 0.11378764034883452015e-4 * t2139 + 0.22877880295720424580e-2 * t403 * t2400 * t152 - 0.31774833744056145251e-3 * t1035 * t161 * t2406 - 0.15251920197146949720e-3 * t167 * t2414 * t170 + 0.17380340460000813225e-6 * t2708 * t2123 * t6565 * t175 - 0.95027011465054446308e-5 * t2128 * t2383 - 0.34316820443580636870e-2 * t2700 * t808 * t161 * t51;
3570   t6602 = t64 * t68;
3571   t6607 = t2418 * t188;
3572   t6620 = t65 * t831;
3573   t6628 = -t6514 - 0.3e1 / 0.8e1 * t7 * t17 * t6575 * t72 - 0.3e1 / 0.256e3 * t186 * t2168 * t703 - t186 * t4548 * t2201 / 0.25165824e8 + 0.3e1 / 0.1024e4 * t186 * t1658 * t837 + t186 * t2846 * t2435 / 0.201326592e9 + t186 * t2852 * t2854 * t1118 / t2857 / rho[0] / 0.14495514624e11 - t186 * t1108 * t2440 / 0.131072e6 + t346 * t189 * t6602 * t135 / 0.768e3 - t186 * t6607 * t192 / 0.768e3 + 0.3e1 / 0.2048e4 * t186 * t5821 * t294 + t186 * t5855 * t699 / 0.98304e5 - t186 * t4563 * t832 / 0.262144e6 - t346 * t1794 * t6620 * t135 / 0.98304e5 - t346 * t4651 * t2188 / 0.196608e6;
3574   t6632 = t436 * t2434;
3575   t6637 = t2168 * t64;
3576   t6646 = t369 * t2441 / 0.393216e6;
3577   t6652 = t369 * t2426 / 0.786432e6;
3578   t6657 = t369 * t2429 / 0.1024e4;
3579   t6662 = t369 * t2436 / 0.603979776e9;
3580   t6664 = t369 * t2423 / 0.2048e4;
3581   t6670 = t2444 * t338 * t2445 / 0.3072e4;
3582   t6675 = t16 * t2418;
3583   t6679 = t346 * t2172 * t2209 / 0.256e3 + t346 * t2927 * t6632 * t135 / 0.150994944e9 + t346 * t6637 * t686 / 0.512e3 - 0.5e1 / 0.25165824e8 * t186 * t1114 * t2432 * t2200 - t6646 + 0.19e2 / 0.147456e6 * t186 * t432 * t2439 * t698 - t6652 + t186 * t1662 * t2205 / 0.12288e5 + t6657 - 0.3e1 / 0.128e3 * t186 * t680 * t2218 + t6662 + t6664 + t2444 * t342 * t2445 / 0.1024e4 + t6670 - t2444 * t130 * t1853 * t191 / 0.128e3 - t129 * t6675 * t136 / 0.2e1;
3584   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3585     v4rhosigma3[0] = -t2422 + t2425 - t2428 + t2431 + t2438 - t2443 + t2448 + t9 * (t6628 + t6679);
3586 
3587   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3588     v4rhosigma3[1] = 0.0e0;
3589 
3590   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3591     v4rhosigma3[2] = 0.0e0;
3592 
3593   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3594     v4rhosigma3[3] = 0.0e0;
3595 
3596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3597     v4rhosigma3[4] = 0.0e0;
3598 
3599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3600     v4rhosigma3[5] = 0.0e0;
3601 
3602   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3603     v4rhosigma3[6] = 0.0e0;
3604 
3605   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3606     v4rhosigma3[7] = 0.0e0;
3607 
3608   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3609     v4rhosigma3[8] = 0.0e0;
3610 
3611   t6682 = t16 * t2496;
3612   t6688 = t7 * t204 * t2497 / 0.8e1;
3613   t6693 = t526 * t2501 / 0.2048e4;
3614   t6698 = t526 * t2504 / 0.786432e6;
3615   t6703 = t526 * t2507 / 0.1024e4;
3616   t6704 = t624 * t2512;
3617   t6710 = t526 * t2514 / 0.603979776e9;
3618   t6711 = t114 * t877;
3619   t6717 = t526 * t2519 / 0.393216e6;
3620   t6718 = t64 * t117;
3621   t6725 = t2522 * t458 * t2523 / 0.3072e4;
3622   t6726 = -t197 * t6682 * t200 / 0.2e1 - t6688 + t518 * t6142 * t717 / 0.512e3 + t6693 - t518 * t5302 * t2237 / 0.196608e6 - t6698 + t518 * t1901 * t2243 / 0.256e3 + t6703 + t518 * t4023 * t6704 * t199 / 0.150994944e9 + t6710 - t518 * t1401 * t6711 * t199 / 0.98304e5 - t6717 + t518 * t264 * t6718 * t199 / 0.768e3 + t6725;
3623   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3624     v4rhosigma3[9] = t9 * t6726 - t2500 + t2503 - t2506 + t2509 + t2516 - t2521 + t2526;
3625 
3626   t6752 = -t129 * t6675 * t212 / 0.2e1 - t6514 + t346 * t6637 * t728 / 0.512e3 + t6664 - t346 * t4651 * t2257 / 0.196608e6 - t6652 + t346 * t2172 * t2261 / 0.256e3 + t6657 + t346 * t2927 * t6632 * t211 / 0.150994944e9 + t6662 - t346 * t1794 * t6620 * t211 / 0.98304e5 - t6646 + t346 * t189 * t6602 * t211 / 0.768e3 + t6670;
3627   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3628     v4rhosigma3[10] = t9 * t6752 - t2422 + t2425 - t2428 + t2431 + t2438 - t2443 + t2448;
3629 
3630   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3631     v4rhosigma3[11] = 0.0e0;
3632 
3633   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3634     v4rhosigma3[12] = 0.0e0;
3635 
3636   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3637     v4rhosigma3[13] = 0.0e0;
3638 
3639   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3640     v4rhosigma3[14] = 0.0e0;
3641 
3642   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3643     v4rhosigma3[15] = 0.0e0;
3644 
3645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3646     v4rhosigma3[16] = 0.0e0;
3647 
3648   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3649     v4rhosigma3[17] = 0.0e0;
3650 
3651   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3652     v4rhosigma3[18] = 0.0e0;
3653 
3654   t6760 = 0.1e1 / t83 / t567;
3655   t6769 = 0.1e1 / t82 / t4129;
3656   t6771 = t39 * t93;
3657   t6784 = t101 * t18;
3658   t6813 = 0.55419753086419753086e-3 * t580 * t266 + 0.11378764034883452015e-4 * t2295 - 0.11706547360991205777e-6 * t2292 * t2461 - 0.17158410221790318435e-2 * t4107 * t307 * t6760 * t407 - 0.6354966748811229050e-4 * t1546 * t2274 * t854 + 0.58658649052502744635e-7 * t1496 * t6769 * t6771 - 0.76021609172043557047e-5 * t1509 * t2280 * sigma[2] - 0.31774833744056145251e-3 * t1552 * t236 * t2484 - 0.15251920197146949720e-3 * t242 * t2492 * t245 + 0.17380340460000813225e-6 * t4168 * t2279 * t6784 * t250 - 0.95027011465054446308e-5 * t2284 * t2461 - 0.34316820443580636870e-2 * t4089 * t854 * t236 * t51 + 0.22877880295720424580e-2 * t594 * t2478 * t227 + 0.15251920197146949720e-3 * t598 * t757 * t863 - 0.25340536390681185682e-4 * t1496 * t2270 + 0.29329324526251372317e-7 * t4158 * t2720 * t6769 * t93 + 0.30109432512837463418e-9 * t1495 * t6769 * t6771 - 0.57194700739301061450e-3 * t4106 * t2733 * t6760 * t307;
3659   t6858 = t2496 * t263;
3660   t6865 = -0.3e1 / 0.8e1 * t7 * t80 * t6813 * t121 - t6688 - 0.5e1 / 0.25165824e8 * t261 * t1602 * t2510 * t2350 + 0.19e2 / 0.147456e6 * t261 * t622 * t2517 * t785 + t261 * t1983 * t2355 / 0.12288e5 - 0.3e1 / 0.128e3 * t261 * t771 * t2366 - 0.3e1 / 0.256e3 * t261 * t2324 * t790 - t261 * t5456 * t2351 / 0.25165824e8 + 0.3e1 / 0.1024e4 * t261 * t1979 * t883 + t261 * t4211 * t2513 / 0.201326592e9 + t261 * t4217 * t2854 * t1604 / t4220 / rho[1] / 0.14495514624e11 - t261 * t1596 * t2518 / 0.131072e6 + t518 * t264 * t6718 * t216 / 0.768e3 - t261 * t6858 * t267 / 0.768e3 + 0.3e1 / 0.2048e4 * t261 * t6432 * t320;
3661   t6899 = t261 * t6436 * t786 / 0.98304e5 - t261 * t5452 * t878 / 0.262144e6 + t6703 + t6710 - t6717 + t6693 - t6698 + t518 * t4023 * t6704 * t216 / 0.150994944e9 + t518 * t6142 * t775 / 0.512e3 - t518 * t1401 * t6711 * t216 / 0.98304e5 - t518 * t5302 * t2340 / 0.196608e6 + t518 * t1901 * t2359 / 0.256e3 + t2522 * t510 * t2523 / 0.1024e4 + t6725 - t2522 * t198 * t1907 * t266 / 0.128e3 - t197 * t6682 * t217 / 0.2e1;
3662   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3663     v4rhosigma3[19] = -t2500 + t2503 - t2506 + t2509 + t2516 - t2521 + t2526 + t9 * (t6865 + t6899);
3664 
3665   t6905 = 0.1e1 / t25 / t994;
3666   t6914 = sigma[0] * t36 * t38;
3667   t6965 = 0.71270258598790834731e-6 * t990 * t2377 - 0.10998496697344264619e-7 * t2717 * t2720 * t6905 * sigma[0] + 0.21949776301858510832e-7 * t2388 * t23 - 0.11291037192314048782e-9 * t976 * t6905 * t6914 + 0.21448012777237898044e-3 * t2674 * t2733 * t2653 * t817 + 0.11438940147860212290e-3 * t408 * t813 * t2413 - 0.65176276725003049595e-7 * t2708 * t2376 * t6565 * t22 - 0.21996993394688529238e-7 * t977 * t6905 * t6914 + 0.14254051719758166946e-5 * t1008 * t2376 * t18 * t22 - 0.15442569199611286592e-1 * t1023 * t407 * t2413 * t813 + 0.64344038331713694132e-3 * t2675 * t2653 * t407 * t817 - 0.11915562654021054469e-3 * t1029 * t796 * t2399 + 0.12868807666342738826e-2 * t2700 * t2399 * t44 * t51 + 0.42896025554475796088e-2 * t403 * t22 / t65 * t28 - 0.16681787715629476257e-3 * t2404 * t2399 * t36 * t50 - 0.28597350369650530725e-3 * t167 * t50 / t52 / t65 * t54;
3668   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3669     v4sigma4[0] = t9 * (-0.3e1 / 0.8e1 * t7 * t17 * t6965 * t72 + t186 * t6607 * t294 / 0.512e3 - t186 * t5855 * t832 / 0.131072e6 + 0.3e1 / 0.512e3 * t186 * t2168 * t837 + t186 * t4548 * t2435 / 0.50331648e8 - t186 * t1662 * t2440 / 0.32768e5 + t2444 * t639 * t2445 / 0.256e3 - t186 * t2852 * t2854 * t1117 / t2857 / 0.38654705664e11 + t186 * t1114 * t1116 * t695 * t2434 / 0.16777216e8 - 0.5e1 / 0.196608e6 * t186 * t432 * t434 * t40 * t831);
3670 
3671   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3672     v4sigma4[1] = 0.0e0;
3673 
3674   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3675     v4sigma4[2] = 0.0e0;
3676 
3677   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3678     v4sigma4[3] = 0.0e0;
3679 
3680   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3681     v4sigma4[4] = 0.0e0;
3682 
3683   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3684     v4sigma4[5] = 0.0e0;
3685 
3686   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3687     v4sigma4[6] = 0.0e0;
3688 
3689   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3690     v4sigma4[7] = 0.0e0;
3691 
3692   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3693     v4sigma4[8] = 0.0e0;
3694 
3695   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3696     v4sigma4[9] = 0.0e0;
3697 
3698   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3699     v4sigma4[10] = 0.0e0;
3700 
3701   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3702     v4sigma4[11] = 0.0e0;
3703 
3704   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3705     v4sigma4[12] = 0.0e0;
3706 
3707   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3708     v4sigma4[13] = 0.0e0;
3709 
3710   t7010 = 0.1e1 / t82 / t1511;
3711   t7012 = t39 * sigma[2];
3712   t7067 = -0.65176276725003049595e-7 * t4168 * t2454 * t6784 * t22 - 0.21996993394688529238e-7 * t1496 * t7010 * t7012 + 0.14254051719758166946e-5 * t1525 * t2454 * t18 * t22 - 0.15442569199611286592e-1 * t1540 * t407 * t2491 * t859 + 0.64344038331713694132e-3 * t4107 * t4082 * t407 * t863 - 0.11915562654021054469e-3 * t1546 * t842 * t2477 + 0.71270258598790834731e-6 * t1509 * t2455 - 0.10998496697344264619e-7 * t4158 * t2720 * t7010 * sigma[2] + 0.21949776301858510832e-7 * t2466 * t23 - 0.11291037192314048782e-9 * t1495 * t7010 * t7012 + 0.21448012777237898044e-3 * t4106 * t2733 * t4082 * t863 + 0.11438940147860212290e-3 * t598 * t859 * t2491 + 0.42896025554475796088e-2 * t594 * t22 / t114 * t85 - 0.16681787715629476257e-3 * t2482 * t2477 * t36 * t50 - 0.28597350369650530725e-3 * t242 * t50 / t103 / t114 * t105 + 0.12868807666342738826e-2 * t4089 * t2477 * t97 * t51;
3713   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3714     v4sigma4[14] = t9 * (-0.3e1 / 0.8e1 * t7 * t80 * t7067 * t121 + t261 * t6858 * t320 / 0.512e3 - t261 * t6436 * t878 / 0.131072e6 + 0.3e1 / 0.512e3 * t261 * t2324 * t883 + t261 * t5456 * t2513 / 0.50331648e8 - t261 * t1983 * t2518 / 0.32768e5 + t2522 * t709 * t2523 / 0.256e3 - t261 * t4217 * t2854 * t1603 / t4220 / 0.38654705664e11 + t261 * t1602 * t1116 * t782 * t2512 / 0.16777216e8 - 0.5e1 / 0.196608e6 * t261 * t622 * t434 * t93 * t877);
3715 
3716 #ifndef XC_DONT_COMPILE_MXC
3717 
3718   if(order < 5) return;
3719 
3720 
3721 #endif
3722 
3723 #endif
3724 
3725 #endif
3726 
3727 #endif
3728 
3729 #endif
3730 
3731 
3732 }
3733 
3734