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_k_dk.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, t2, t3, t4, t5, t7, t8, t9;
24   double t10, t12, t13, t14, t15, t17, t18, t20;
25   double t21, t22, t23, t24, t26, t27, t30, t31;
26   double t32, t33, t34, t37, t38, t39, t40, t43;
27   double t46, t47, t49, t50, t52, t53, t56, t57;
28   double t60, t61, t64, t65, t67;
29 
30 #ifndef XC_DONT_COMPILE_VXC
31   double t70, t71, t72, t74, t75, t78, t80, t81;
32   double t84, t85, t88, t91, t94, t95, t99, t100;
33   double t101, t110, t111, t115, t117, t120, t123, t126;
34   double t127, t128, t130, t132, t135, t138, t141, t142;
35   double t143;
36 
37 #ifndef XC_DONT_COMPILE_FXC
38   double t146, t147, t151, t159, t160, t165, t166, t169;
39   double t172, t175, t178, t179, t187, t188, t189, t201;
40   double t202, t206, t207, t218, t219, t220, t223, t228;
41   double t231, t232, t233, t234, t235, t246, t247, t248;
42   double t251, t254, t257, t260, t261, t262, t265, t268;
43   double t269, t270, t273, t276, t279, t282, t283, t284;
44 
45 #ifndef XC_DONT_COMPILE_KXC
46   double t293, t294, t295, t296, t300, t301, t304, t308;
47   double t313, t314, t319, t322, t328, t331, t332, t337;
48   double t338, t365, t366, t370, t373, t374, t377, t379;
49   double t380, t383, t384, t387, t388, t402, t403, t410;
50   double t413, t420, t423, t434, t435, t436, t439, t440;
51   double t441, t453, t454, t457, t462, t465, t466, t469;
52   double t474, t477, t478, t481, t482, t487, t490, t491;
53   double t500, t501, t502, t507, t511, t512, t515, t518;
54   double t521, t524, t525, t526, t529, t530, t535, t538;
55   double t539, t540;
56 
57 #ifndef XC_DONT_COMPILE_LXC
58   double t564, t569, t572, t578, t606, t607, t612, t613;
59   double t662, t691, t699, t732, t734, t794, t807, t857;
60   double t921, t928, t983, t1027, t1028, t1051, t1060;
61 #endif
62 
63 #endif
64 
65 #endif
66 
67 #endif
68 
69 #endif
70 
71 
72   gga_k_dk_params *params;
73 
74   assert(p->params != NULL);
75   params = (gga_k_dk_params * )(p->params);
76 
77   t1 = M_CBRT6;
78   t2 = t1 * t1;
79   t3 = M_PI * M_PI;
80   t4 = POW_1_3(t3);
81   t5 = t4 * t4;
82   t7 = M_CBRT2;
83   t8 = t2 * t5 * t7;
84   t9 = POW_1_3(rho[0]);
85   t10 = t9 * t9;
86   t12 = params->aa[1];
87   t13 = t12 * sigma[0];
88   t14 = t7 * t7;
89   t15 = rho[0] * rho[0];
90   t17 = 0.1e1 / t10 / t15;
91   t18 = t14 * t17;
92   t20 = params->aa[2];
93   t21 = sigma[0] * sigma[0];
94   t22 = t20 * t21;
95   t23 = t15 * t15;
96   t24 = t23 * rho[0];
97   t26 = 0.1e1 / t9 / t24;
98   t27 = t7 * t26;
99   t30 = params->aa[3];
100   t31 = t21 * sigma[0];
101   t32 = t30 * t31;
102   t33 = t23 * t23;
103   t34 = 0.1e1 / t33;
104   t37 = params->aa[4];
105   t38 = t21 * t21;
106   t39 = t37 * t38;
107   t40 = t33 * t15;
108   t43 = t14 / t10 / t40;
109   t46 = t13 * t18 + 0.2e1 * t22 * t27 + 0.4e1 * t32 * t34 + 0.4e1 * t39 * t43 + params->aa[0];
110   t47 = t10 * t46;
111   t49 = params->bb[1];
112   t50 = t49 * sigma[0];
113   t52 = params->bb[2];
114   t53 = t52 * t21;
115   t56 = params->bb[3];
116   t57 = t56 * t31;
117   t60 = params->bb[4];
118   t61 = t60 * t38;
119   t64 = t50 * t18 + 0.2e1 * t53 * t27 + 0.4e1 * t57 * t34 + 0.4e1 * t61 * t43 + params->bb[0];
120   t65 = 0.1e1 / t64;
121   t67 = t8 * t47 * t65;
122   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
123     zk[0] = 0.3e1 / 0.20e2 * t67;
124 
125 #ifndef XC_DONT_COMPILE_VXC
126 
127   if(order < 1) return;
128 
129 
130   t70 = t10 * rho[0] * t2;
131   t71 = t70 * t5;
132   t72 = t15 * rho[0];
133   t74 = 0.1e1 / t10 / t72;
134   t75 = t14 * t74;
135   t78 = t23 * t15;
136   t80 = 0.1e1 / t9 / t78;
137   t81 = t7 * t80;
138   t84 = t33 * rho[0];
139   t85 = 0.1e1 / t84;
140   t88 = t33 * t72;
141   t91 = t14 / t10 / t88;
142   t94 = -0.8e1 / 0.3e1 * t13 * t75 - 0.32e2 / 0.3e1 * t22 * t81 - 0.32e2 * t32 * t85 - 0.128e3 / 0.3e1 * t39 * t91;
143   t95 = t7 * t94;
144   t99 = t7 * t46;
145   t100 = t64 * t64;
146   t101 = 0.1e1 / t100;
147   t110 = -0.8e1 / 0.3e1 * t50 * t75 - 0.32e2 / 0.3e1 * t53 * t81 - 0.32e2 * t57 * t85 - 0.128e3 / 0.3e1 * t61 * t91;
148   t111 = t101 * t110;
149   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
150     vrho[0] = t67 / 0.4e1 + 0.3e1 / 0.20e2 * t71 * t95 * t65 - 0.3e1 / 0.20e2 * t71 * t99 * t111;
151 
152   t115 = t12 * t14;
153   t117 = t20 * sigma[0];
154   t120 = t30 * t21;
155   t123 = t37 * t31;
156   t126 = t115 * t17 + 0.4e1 * t117 * t27 + 0.12e2 * t120 * t34 + 0.16e2 * t123 * t43;
157   t127 = t7 * t126;
158   t128 = t127 * t65;
159   t130 = t49 * t14;
160   t132 = t52 * sigma[0];
161   t135 = t56 * t21;
162   t138 = t60 * t31;
163   t141 = t130 * t17 + 0.4e1 * t132 * t27 + 0.12e2 * t135 * t34 + 0.16e2 * t138 * t43;
164   t142 = t101 * t141;
165   t143 = t99 * t142;
166   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
167     vsigma[0] = 0.3e1 / 0.20e2 * t71 * t128 - 0.3e1 / 0.20e2 * t71 * t143;
168 
169 #ifndef XC_DONT_COMPILE_FXC
170 
171   if(order < 2) return;
172 
173 
174   t146 = 0.1e1 / t9;
175   t147 = t146 * t46;
176   t151 = t10 * t94;
177   t159 = 0.1e1 / t10 / t23;
178   t160 = t14 * t159;
179   t165 = 0.1e1 / t9 / t23 / t72;
180   t166 = t7 * t165;
181   t169 = 0.1e1 / t40;
182   t172 = t33 * t23;
183   t175 = t14 / t10 / t172;
184   t178 = 0.88e2 / 0.9e1 * t13 * t160 + 0.608e3 / 0.9e1 * t22 * t166 + 0.288e3 * t32 * t169 + 0.4480e4 / 0.9e1 * t39 * t175;
185   t179 = t7 * t178;
186   t187 = 0.1e1 / t100 / t64;
187   t188 = t110 * t110;
188   t189 = t187 * t188;
189   t201 = 0.88e2 / 0.9e1 * t50 * t160 + 0.608e3 / 0.9e1 * t53 * t166 + 0.288e3 * t57 * t169 + 0.4480e4 / 0.9e1 * t61 * t175;
190   t202 = t101 * t201;
191   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
192     v2rho2[0] = t8 * t147 * t65 / 0.6e1 + t8 * t151 * t65 / 0.2e1 - t8 * t47 * t111 / 0.2e1 + 0.3e1 / 0.20e2 * t71 * t179 * t65 - 0.3e1 / 0.10e2 * t71 * t95 * t111 + 0.3e1 / 0.10e2 * t71 * t99 * t189 - 0.3e1 / 0.20e2 * t71 * t99 * t202;
193 
194   t206 = t10 * t2;
195   t207 = t206 * t5;
196   t218 = -0.8e1 / 0.3e1 * t115 * t74 - 0.64e2 / 0.3e1 * t117 * t81 - 0.96e2 * t120 * t85 - 0.512e3 / 0.3e1 * t123 * t91;
197   t219 = t7 * t218;
198   t220 = t219 * t65;
199   t223 = t127 * t111;
200   t228 = t95 * t142;
201   t231 = t5 * t7;
202   t232 = t70 * t231;
203   t233 = t46 * t187;
204   t234 = t141 * t110;
205   t235 = t233 * t234;
206   t246 = -0.8e1 / 0.3e1 * t130 * t74 - 0.64e2 / 0.3e1 * t132 * t81 - 0.96e2 * t135 * t85 - 0.512e3 / 0.3e1 * t138 * t91;
207   t247 = t101 * t246;
208   t248 = t99 * t247;
209   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
210     v2rhosigma[0] = t207 * t128 / 0.4e1 + 0.3e1 / 0.20e2 * t71 * t220 - 0.3e1 / 0.20e2 * t71 * t223 - t207 * t143 / 0.4e1 - 0.3e1 / 0.20e2 * t71 * t228 + 0.3e1 / 0.10e2 * t232 * t235 - 0.3e1 / 0.20e2 * t71 * t248;
211 
212   t251 = t20 * t7;
213   t254 = t30 * sigma[0];
214   t257 = t37 * t21;
215   t260 = 0.4e1 * t251 * t26 + 0.24e2 * t254 * t34 + 0.48e2 * t257 * t43;
216   t261 = t7 * t260;
217   t262 = t261 * t65;
218   t265 = t127 * t142;
219   t268 = t141 * t141;
220   t269 = t187 * t268;
221   t270 = t99 * t269;
222   t273 = t52 * t7;
223   t276 = t56 * sigma[0];
224   t279 = t60 * t21;
225   t282 = 0.4e1 * t273 * t26 + 0.24e2 * t276 * t34 + 0.48e2 * t279 * t43;
226   t283 = t101 * t282;
227   t284 = t99 * t283;
228   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
229     v2sigma2[0] = 0.3e1 / 0.20e2 * t71 * t262 - 0.3e1 / 0.10e2 * t71 * t265 + 0.3e1 / 0.10e2 * t71 * t270 - 0.3e1 / 0.20e2 * t71 * t284;
230 
231 #ifndef XC_DONT_COMPILE_KXC
232 
233   if(order < 3) return;
234 
235 
236   t293 = t100 * t100;
237   t294 = 0.1e1 / t293;
238   t295 = t188 * t110;
239   t296 = t294 * t295;
240   t300 = t110 * t201;
241   t301 = t233 * t300;
242   t304 = t146 * t94;
243   t308 = t10 * t178;
244   t313 = 0.1e1 / t10 / t24;
245   t314 = t14 * t313;
246   t319 = t7 / t9 / t33;
247   t322 = 0.1e1 / t88;
248   t328 = t14 / t10 / t33 / t24;
249   t331 = -0.1232e4 / 0.27e2 * t13 * t314 - 0.13376e5 / 0.27e2 * t22 * t319 - 0.2880e4 * t32 * t322 - 0.170240e6 / 0.27e2 * t39 * t328;
250   t332 = t7 * t331;
251   t337 = 0.1e1 / t9 / rho[0];
252   t338 = t337 * t46;
253   t365 = -0.1232e4 / 0.27e2 * t50 * t314 - 0.13376e5 / 0.27e2 * t53 * t319 - 0.2880e4 * t57 * t322 - 0.170240e6 / 0.27e2 * t61 * t328;
254   t366 = t101 * t365;
255   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
256     v3rho3[0] = 0.3e1 / 0.2e1 * t8 * t47 * t189 + 0.9e1 / 0.10e2 * t71 * t95 * t189 - 0.9e1 / 0.10e2 * t71 * t99 * t296 + 0.9e1 / 0.10e2 * t232 * t301 + t8 * t304 * t65 / 0.2e1 + 0.3e1 / 0.4e1 * t8 * t308 * t65 + 0.3e1 / 0.20e2 * t71 * t332 * t65 - t8 * t338 * t65 / 0.18e2 - t8 * t147 * t111 / 0.2e1 - 0.3e1 / 0.2e1 * t8 * t151 * t111 - 0.3e1 / 0.4e1 * t8 * t47 * t202 - 0.9e1 / 0.20e2 * t71 * t179 * t111 - 0.9e1 / 0.20e2 * t71 * t95 * t202 - 0.3e1 / 0.20e2 * t71 * t99 * t366;
257 
258   t370 = t127 * t189;
259   t373 = t146 * t2;
260   t374 = t373 * t5;
261   t377 = t206 * t231;
262   t379 = t94 * t187;
263   t380 = t379 * t234;
264   t383 = t246 * t110;
265   t384 = t233 * t383;
266   t387 = t141 * t201;
267   t388 = t233 * t387;
268   t402 = t7 * (0.88e2 / 0.9e1 * t115 * t159 + 0.1216e4 / 0.9e1 * t117 * t166 + 0.864e3 * t120 * t169 + 0.17920e5 / 0.9e1 * t123 * t175);
269   t403 = t402 * t65;
270   t410 = t219 * t111;
271   t413 = t127 * t202;
272   t420 = t179 * t142;
273   t423 = t95 * t247;
274   t434 = 0.88e2 / 0.9e1 * t130 * t159 + 0.1216e4 / 0.9e1 * t132 * t166 + 0.864e3 * t135 * t169 + 0.17920e5 / 0.9e1 * t138 * t175;
275   t435 = t101 * t434;
276   t436 = t99 * t435;
277   t439 = t46 * t294;
278   t440 = t141 * t188;
279   t441 = t439 * t440;
280   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
281     v3rho2sigma[0] = 0.3e1 / 0.10e2 * t71 * t370 - t374 * t143 / 0.6e1 + t377 * t235 + 0.3e1 / 0.5e1 * t232 * t380 + 0.3e1 / 0.5e1 * t232 * t384 + 0.3e1 / 0.10e2 * t232 * t388 + t207 * t220 / 0.2e1 + 0.3e1 / 0.20e2 * t71 * t403 + t374 * t128 / 0.6e1 - t207 * t223 / 0.2e1 - 0.3e1 / 0.10e2 * t71 * t410 - 0.3e1 / 0.20e2 * t71 * t413 - t207 * t228 / 0.2e1 - t207 * t248 / 0.2e1 - 0.3e1 / 0.20e2 * t71 * t420 - 0.3e1 / 0.10e2 * t71 * t423 - 0.3e1 / 0.20e2 * t71 * t436 - 0.9e1 / 0.10e2 * t232 * t441;
282 
283   t453 = t7 * (-0.64e2 / 0.3e1 * t251 * t80 - 0.192e3 * t254 * t85 - 0.512e3 * t257 * t91);
284   t454 = t453 * t65;
285   t457 = t261 * t111;
286   t462 = t219 * t142;
287   t465 = t126 * t187;
288   t466 = t465 * t234;
289   t469 = t127 * t247;
290   t474 = t95 * t269;
291   t477 = t268 * t110;
292   t478 = t439 * t477;
293   t481 = t141 * t246;
294   t482 = t233 * t481;
295   t487 = t95 * t283;
296   t490 = t282 * t110;
297   t491 = t233 * t490;
298   t500 = -0.64e2 / 0.3e1 * t273 * t80 - 0.192e3 * t276 * t85 - 0.512e3 * t279 * t91;
299   t501 = t101 * t500;
300   t502 = t99 * t501;
301   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
302     v3rhosigma2[0] = t207 * t262 / 0.4e1 + 0.3e1 / 0.20e2 * t71 * t454 - 0.3e1 / 0.20e2 * t71 * t457 - t207 * t265 / 0.2e1 - 0.3e1 / 0.10e2 * t71 * t462 + 0.3e1 / 0.5e1 * t232 * t466 - 0.3e1 / 0.10e2 * t71 * t469 + t207 * t270 / 0.2e1 + 0.3e1 / 0.10e2 * t71 * t474 - 0.9e1 / 0.10e2 * t232 * t478 + 0.3e1 / 0.5e1 * t232 * t482 - t207 * t284 / 0.4e1 - 0.3e1 / 0.20e2 * t71 * t487 + 0.3e1 / 0.10e2 * t232 * t491 - 0.3e1 / 0.20e2 * t71 * t502;
303 
304   t507 = t37 * sigma[0];
305   t511 = t7 * (0.24e2 * t30 * t34 + 0.96e2 * t507 * t43);
306   t512 = t511 * t65;
307   t515 = t261 * t142;
308   t518 = t127 * t269;
309   t521 = t127 * t283;
310   t524 = t268 * t141;
311   t525 = t294 * t524;
312   t526 = t99 * t525;
313   t529 = t141 * t282;
314   t530 = t233 * t529;
315   t535 = t60 * sigma[0];
316   t538 = 0.24e2 * t56 * t34 + 0.96e2 * t535 * t43;
317   t539 = t101 * t538;
318   t540 = t99 * t539;
319   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
320     v3sigma3[0] = 0.3e1 / 0.20e2 * t71 * t512 - 0.9e1 / 0.20e2 * t71 * t515 + 0.9e1 / 0.10e2 * t71 * t518 - 0.9e1 / 0.20e2 * t71 * t521 - 0.9e1 / 0.10e2 * t71 * t526 + 0.9e1 / 0.10e2 * t232 * t530 - 0.3e1 / 0.20e2 * t71 * t540;
321 
322 #ifndef XC_DONT_COMPILE_LXC
323 
324   if(order < 4) return;
325 
326 
327   t564 = t14 / t10 / t78;
328   t569 = t7 / t9 / t84;
329   t572 = 0.1e1 / t172;
330   t578 = t14 / t10 / t33 / t78;
331   t606 = 0.1e1 / t293 / t64;
332   t607 = t188 * t188;
333   t612 = 0.6e1 * t377 * t301 + 0.18e2 / 0.5e1 * t232 * t379 * t300 - 0.27e2 / 0.5e1 * t232 * t439 * t188 * t201 + 0.6e1 / 0.5e1 * t232 * t233 * t110 * t365 + t8 * t146 * t178 * t65 + t8 * t10 * t331 * t65 + 0.3e1 / 0.20e2 * t71 * t7 * (0.20944e5 / 0.81e2 * t13 * t564 + 0.334400e6 / 0.81e2 * t22 * t569 + 0.31680e5 * t32 * t572 + 0.6979840e7 / 0.81e2 * t39 * t578) * t65 - 0.2e1 / 0.9e1 * t8 * t337 * t94 * t65 + 0.2e1 / 0.27e2 * t8 / t9 / t15 * t46 * t65 + 0.2e1 * t8 * t147 * t189 - 0.6e1 * t8 * t47 * t296 - 0.18e2 / 0.5e1 * t71 * t95 * t296 + 0.18e2 / 0.5e1 * t71 * t99 * t606 * t607;
334   t613 = t201 * t201;
335   t662 = 0.9e1 / 0.10e2 * t71 * t99 * t187 * t613 + 0.6e1 * t8 * t151 * t189 + 0.9e1 / 0.5e1 * t71 * t179 * t189 - 0.2e1 * t8 * t304 * t111 - 0.3e1 * t8 * t308 * t111 - 0.3e1 / 0.5e1 * t71 * t332 * t111 + 0.2e1 / 0.9e1 * t8 * t338 * t111 - t8 * t147 * t202 - 0.3e1 * t8 * t151 * t202 - t8 * t47 * t366 - 0.9e1 / 0.10e2 * t71 * t179 * t202 - 0.3e1 / 0.5e1 * t71 * t95 * t366 - 0.3e1 / 0.20e2 * t71 * t99 * t101 * (0.20944e5 / 0.81e2 * t50 * t564 + 0.334400e6 / 0.81e2 * t53 * t569 + 0.31680e5 * t57 * t572 + 0.6979840e7 / 0.81e2 * t61 * t578);
336   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
337     v4rho4[0] = t612 + t662;
338 
339   t691 = t94 * t294;
340   t699 = t46 * t606;
341   t732 = 0.3e1 * t377 * t384 + 0.3e1 / 0.2e1 * t377 * t388 + 0.9e1 / 0.10e2 * t232 * t178 * t187 * t234 + 0.9e1 / 0.5e1 * t232 * t379 * t383 + 0.9e1 / 0.10e2 * t232 * t379 * t387 + 0.9e1 / 0.10e2 * t232 * t233 * t434 * t110 + 0.9e1 / 0.10e2 * t232 * t233 * t246 * t201 + 0.3e1 / 0.10e2 * t232 * t233 * t141 * t365 - 0.9e1 / 0.2e1 * t377 * t441 - 0.27e2 / 0.10e2 * t232 * t691 * t440 - 0.27e2 / 0.10e2 * t232 * t439 * t246 * t188 + 0.18e2 / 0.5e1 * t232 * t699 * t141 * t295 + 0.9e1 / 0.10e2 * t232 * t465 * t300 + t373 * t231 * t235 + 0.3e1 * t377 * t380 - 0.27e2 / 0.10e2 * t232 * t439 * t387 * t110 + 0.3e1 / 0.4e1 * t207 * t403 + 0.3e1 / 0.20e2 * t71 * t7 * (-0.1232e4 / 0.27e2 * t115 * t313 - 0.26752e5 / 0.27e2 * t117 * t319 - 0.8640e4 * t120 * t322 - 0.680960e6 / 0.27e2 * t123 * t328) * t65 + t374 * t220 / 0.2e1;
342   t734 = t337 * t2 * t5;
343   t794 = -t734 * t128 / 0.18e2 + 0.3e1 / 0.2e1 * t207 * t370 - 0.9e1 / 0.10e2 * t71 * t127 * t296 + t734 * t143 / 0.18e2 + 0.9e1 / 0.10e2 * t71 * t219 * t189 - t374 * t228 / 0.2e1 - t374 * t248 / 0.2e1 - 0.3e1 / 0.2e1 * t207 * t410 - 0.9e1 / 0.20e2 * t71 * t402 * t111 - t374 * t223 / 0.2e1 - 0.3e1 / 0.4e1 * t207 * t413 - 0.9e1 / 0.20e2 * t71 * t219 * t202 - 0.3e1 / 0.20e2 * t71 * t127 * t366 - 0.3e1 / 0.4e1 * t207 * t420 - 0.3e1 / 0.2e1 * t207 * t423 - 0.3e1 / 0.4e1 * t207 * t436 - 0.3e1 / 0.20e2 * t71 * t332 * t142 - 0.9e1 / 0.20e2 * t71 * t179 * t247 - 0.9e1 / 0.20e2 * t71 * t95 * t435 - 0.3e1 / 0.20e2 * t71 * t99 * t101 * (-0.1232e4 / 0.27e2 * t130 * t313 - 0.26752e5 / 0.27e2 * t132 * t319 - 0.8640e4 * t135 * t322 - 0.680960e6 / 0.27e2 * t138 * t328);
344   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
345     v4rho3sigma[0] = t732 + t794;
346 
347   t807 = t126 * t294;
348   t857 = t377 * t491 + 0.3e1 / 0.5e1 * t232 * t379 * t490 + 0.3e1 / 0.5e1 * t232 * t233 * t500 * t110 + 0.3e1 / 0.10e2 * t232 * t233 * t282 * t201 - 0.9e1 / 0.5e1 * t232 * t807 * t440 + 0.18e2 / 0.5e1 * t232 * t699 * t268 * t188 - 0.9e1 / 0.10e2 * t232 * t439 * t282 * t188 + 0.2e1 * t377 * t466 + 0.6e1 / 0.5e1 * t232 * t218 * t187 * t234 + 0.6e1 / 0.5e1 * t232 * t465 * t383 + 0.3e1 / 0.5e1 * t232 * t465 * t387 - 0.3e1 * t377 * t478 + 0.2e1 * t377 * t482 - 0.9e1 / 0.5e1 * t232 * t691 * t477 + 0.6e1 / 0.5e1 * t232 * t379 * t481 - 0.9e1 / 0.10e2 * t232 * t439 * t268 * t201 + 0.3e1 / 0.5e1 * t232 * t233 * t141 * t434 - 0.18e2 / 0.5e1 * t232 * t439 * t234 * t246 + t374 * t262 / 0.6e1 + t207 * t454 / 0.2e1;
349   t921 = t246 * t246;
350   t928 = 0.3e1 / 0.10e2 * t71 * t179 * t269 - t207 * t487 / 0.2e1 - t207 * t502 / 0.2e1 - 0.3e1 / 0.20e2 * t71 * t179 * t283 - 0.3e1 / 0.10e2 * t71 * t95 * t501 - 0.3e1 / 0.20e2 * t71 * t99 * t101 * (0.1216e4 / 0.9e1 * t273 * t165 + 0.1728e4 * t276 * t169 + 0.17920e5 / 0.3e1 * t279 * t175) + 0.3e1 / 0.10e2 * t71 * t261 * t189 - t374 * t265 / 0.3e1 + t374 * t270 / 0.3e1 + 0.3e1 / 0.5e1 * t71 * t99 * t187 * t921 - t374 * t284 / 0.6e1;
351   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
352     v4rho2sigma2[0] = t857 + 0.3e1 / 0.20e2 * t71 * t7 * (0.1216e4 / 0.9e1 * t251 * t165 + 0.1728e4 * t254 * t169 + 0.17920e5 / 0.3e1 * t257 * t175) * t65 - t207 * t457 / 0.2e1 - 0.3e1 / 0.10e2 * t71 * t453 * t111 - 0.3e1 / 0.20e2 * t71 * t261 * t202 - t207 * t462 - t207 * t469 - 0.3e1 / 0.10e2 * t71 * t402 * t142 - 0.3e1 / 0.5e1 * t71 * t219 * t247 - 0.3e1 / 0.10e2 * t71 * t127 * t435 + t207 * t474 + t928;
353 
354   t983 = 0.3e1 / 0.2e1 * t377 * t530 + 0.9e1 / 0.10e2 * t232 * t260 * t187 * t234 - 0.27e2 / 0.10e2 * t232 * t807 * t477 + 0.9e1 / 0.5e1 * t232 * t465 * t481 + 0.9e1 / 0.10e2 * t232 * t465 * t490 + 0.18e2 / 0.5e1 * t232 * t699 * t524 * t110 - 0.27e2 / 0.10e2 * t232 * t439 * t268 * t246 + 0.9e1 / 0.10e2 * t232 * t379 * t529 + 0.9e1 / 0.10e2 * t232 * t233 * t246 * t282 + 0.9e1 / 0.10e2 * t232 * t233 * t141 * t500 + 0.3e1 / 0.10e2 * t232 * t233 * t538 * t110 - 0.27e2 / 0.10e2 * t232 * t439 * t529 * t110 + 0.3e1 / 0.20e2 * t71 * t7 * (-0.192e3 * t30 * t85 - 0.1024e4 * t507 * t91) * t65 + t207 * t512 / 0.4e1;
355   t1027 = -0.3e1 / 0.4e1 * t207 * t515 + 0.3e1 / 0.2e1 * t207 * t518 - 0.3e1 / 0.4e1 * t207 * t521 - 0.3e1 / 0.2e1 * t207 * t526 - t207 * t540 / 0.4e1 - 0.3e1 / 0.20e2 * t71 * t511 * t111 - 0.9e1 / 0.20e2 * t71 * t453 * t142 - 0.9e1 / 0.20e2 * t71 * t261 * t247 + 0.9e1 / 0.10e2 * t71 * t219 * t269 - 0.9e1 / 0.20e2 * t71 * t219 * t283 - 0.9e1 / 0.20e2 * t71 * t127 * t501 - 0.9e1 / 0.10e2 * t71 * t95 * t525 - 0.3e1 / 0.20e2 * t71 * t95 * t539 - 0.3e1 / 0.20e2 * t71 * t99 * t101 * (-0.1024e4 * t535 * t91 - 0.192e3 * t56 * t85);
356   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
357     v4rhosigma3[0] = t983 + t1027;
358 
359   t1028 = t85 * t2;
360   t1051 = t268 * t268;
361   t1060 = t282 * t282;
362   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
363     v4sigma4[0] = 0.144e3 / 0.5e1 * t1028 * t5 * t37 * t65 - 0.3e1 / 0.5e1 * t71 * t511 * t142 + 0.9e1 / 0.5e1 * t71 * t261 * t269 - 0.9e1 / 0.10e2 * t71 * t261 * t283 - 0.18e2 / 0.5e1 * t71 * t127 * t525 + 0.18e2 / 0.5e1 * t232 * t465 * t529 - 0.3e1 / 0.5e1 * t71 * t127 * t539 + 0.18e2 / 0.5e1 * t71 * t99 * t606 * t1051 - 0.27e2 / 0.5e1 * t232 * t439 * t268 * t282 + 0.9e1 / 0.10e2 * t71 * t99 * t187 * t1060 + 0.6e1 / 0.5e1 * t232 * t233 * t141 * t538 - 0.144e3 / 0.5e1 * t1028 * t5 * t46 * t101 * t60;
364 
365 #ifndef XC_DONT_COMPILE_MXC
366 
367   if(order < 5) return;
368 
369 
370 #endif
371 
372 #endif
373 
374 #endif
375 
376 #endif
377 
378 #endif
379 
380 
381 }
382 
383 
384 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 *))385 func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
386 {
387 
388 #ifndef XC_DONT_COMPILE_EXC
389   double t1, t2, t3, t4, t5, t6, t7, t8;
390   double t10, t11, t12, t14, t16, t17, t18, t19;
391   double t20, t22, t24, t25, t26, t27, t28, t30;
392   double t31, t32, t33, t35, t37, t40, t41, t43;
393   double t44, t46, t47, t49, t50, t52, t53, t55;
394 
395 #ifndef XC_DONT_COMPILE_VXC
396   double t58, t59, t61, t64, t66, t69, t70, t73;
397   double t75, t78, t83, t84, t85, t86, t95, t96;
398   double t100, t103, t106, t109, t111, t114, t117, t120;
399   double t123, t124;
400 
401 #ifndef XC_DONT_COMPILE_FXC
402   double t127, t135, t138, t143, t146, t149, t151, t154;
403   double t159, t160, t164, t165, t166, t167, t178, t179;
404   double t182, t193, t195, t198, t199, t204, t207, t208;
405   double t219, t220, t225, t228, t231, t233, t236, t239;
406   double t240, t245, t248, t251, t252;
407 
408 #ifndef XC_DONT_COMPILE_KXC
409   double t263, t267, t270, t275, t278, t284, t289, t295;
410   double t296, t299, t310, t311, t316, t317, t320, t321;
411   double t322, t323, t324, t327, t328, t340, t342, t345;
412   double t346, t349, t353, t354, t357, t362, t365, t376;
413   double t377, t380, t381, t388, t391, t392, t395, t396;
414   double t407, t409, t412, t413, t417, t420, t423, t427;
415   double t430, t431, t434, t435, t440, t443, t444, t453;
416   double t454, t459, t462, t464, t467, t470, t473, t476;
417   double t477, t480, t481, t486, t489, t490;
418 
419 #ifndef XC_DONT_COMPILE_LXC
420   double t512, t516, t519, t524, t536, t540, t552, t572;
421   double t578, t584, t585, t589, t606, t608, t609, t634;
422   double t676, t677, t683, t734, t753, t796, t800, t805;
423   double t865, t891, t910, t962, t963, t986, t994;
424 #endif
425 
426 #endif
427 
428 #endif
429 
430 #endif
431 
432 #endif
433 
434 
435   gga_k_dk_params *params;
436 
437   assert(p->params != NULL);
438   params = (gga_k_dk_params * )(p->params);
439 
440   t1 = M_CBRT6;
441   t2 = t1 * t1;
442   t3 = M_PI * M_PI;
443   t4 = POW_1_3(t3);
444   t5 = t4 * t4;
445   t6 = t2 * t5;
446   t7 = POW_1_3(rho[0]);
447   t8 = t7 * t7;
448   t10 = params->aa[1];
449   t11 = t10 * sigma[0];
450   t12 = rho[0] * rho[0];
451   t14 = 0.1e1 / t8 / t12;
452   t16 = params->aa[2];
453   t17 = sigma[0] * sigma[0];
454   t18 = t16 * t17;
455   t19 = t12 * t12;
456   t20 = t19 * rho[0];
457   t22 = 0.1e1 / t7 / t20;
458   t24 = params->aa[3];
459   t25 = t17 * sigma[0];
460   t26 = t24 * t25;
461   t27 = t19 * t19;
462   t28 = 0.1e1 / t27;
463   t30 = params->aa[4];
464   t31 = t17 * t17;
465   t32 = t30 * t31;
466   t33 = t27 * t12;
467   t35 = 0.1e1 / t8 / t33;
468   t37 = t11 * t14 + t18 * t22 + t26 * t28 + t32 * t35 + params->aa[0];
469   t40 = params->bb[1];
470   t41 = t40 * sigma[0];
471   t43 = params->bb[2];
472   t44 = t43 * t17;
473   t46 = params->bb[3];
474   t47 = t46 * t25;
475   t49 = params->bb[4];
476   t50 = t49 * t31;
477   t52 = t41 * t14 + t44 * t22 + t47 * t28 + t50 * t35 + params->bb[0];
478   t53 = 0.1e1 / t52;
479   t55 = t6 * t8 * t37 * t53;
480   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
481     zk[0] = 0.3e1 / 0.10e2 * t55;
482 
483 #ifndef XC_DONT_COMPILE_VXC
484 
485   if(order < 1) return;
486 
487 
488   t58 = t8 * rho[0] * t2;
489   t59 = t12 * rho[0];
490   t61 = 0.1e1 / t8 / t59;
491   t64 = t19 * t12;
492   t66 = 0.1e1 / t7 / t64;
493   t69 = t27 * rho[0];
494   t70 = 0.1e1 / t69;
495   t73 = t27 * t59;
496   t75 = 0.1e1 / t8 / t73;
497   t78 = -0.8e1 / 0.3e1 * t11 * t61 - 0.16e2 / 0.3e1 * t18 * t66 - 0.8e1 * t26 * t70 - 0.32e2 / 0.3e1 * t32 * t75;
498   t83 = t58 * t5;
499   t84 = t52 * t52;
500   t85 = 0.1e1 / t84;
501   t86 = t37 * t85;
502   t95 = -0.8e1 / 0.3e1 * t41 * t61 - 0.16e2 / 0.3e1 * t44 * t66 - 0.8e1 * t47 * t70 - 0.32e2 / 0.3e1 * t50 * t75;
503   t96 = t86 * t95;
504   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
505     vrho[0] = t55 / 0.2e1 + 0.3e1 / 0.10e2 * t58 * t5 * t78 * t53 - 0.3e1 / 0.10e2 * t83 * t96;
506 
507   t100 = t16 * sigma[0];
508   t103 = t24 * t17;
509   t106 = t30 * t25;
510   t109 = t10 * t14 + 0.2e1 * t100 * t22 + 0.3e1 * t103 * t28 + 0.4e1 * t106 * t35;
511   t111 = t5 * t109 * t53;
512   t114 = t43 * sigma[0];
513   t117 = t46 * t17;
514   t120 = t49 * t25;
515   t123 = 0.2e1 * t114 * t22 + 0.3e1 * t117 * t28 + 0.4e1 * t120 * t35 + t40 * t14;
516   t124 = t86 * t123;
517   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
518     vsigma[0] = 0.3e1 / 0.10e2 * t58 * t111 - 0.3e1 / 0.10e2 * t83 * t124;
519 
520 #ifndef XC_DONT_COMPILE_FXC
521 
522   if(order < 2) return;
523 
524 
525   t127 = 0.1e1 / t7;
526   t135 = t6 * t8;
527   t138 = 0.1e1 / t8 / t19;
528   t143 = 0.1e1 / t7 / t19 / t59;
529   t146 = 0.1e1 / t33;
530   t149 = t27 * t19;
531   t151 = 0.1e1 / t8 / t149;
532   t154 = 0.88e2 / 0.9e1 * t11 * t138 + 0.304e3 / 0.9e1 * t18 * t143 + 0.72e2 * t26 * t146 + 0.1120e4 / 0.9e1 * t32 * t151;
533   t159 = t78 * t85;
534   t160 = t159 * t95;
535   t164 = 0.1e1 / t84 / t52;
536   t165 = t37 * t164;
537   t166 = t95 * t95;
538   t167 = t165 * t166;
539   t178 = 0.88e2 / 0.9e1 * t41 * t138 + 0.304e3 / 0.9e1 * t44 * t143 + 0.72e2 * t47 * t146 + 0.1120e4 / 0.9e1 * t50 * t151;
540   t179 = t86 * t178;
541   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
542     v2rho2[0] = t6 * t127 * t37 * t53 / 0.3e1 + t6 * t8 * t78 * t53 - t135 * t96 + 0.3e1 / 0.10e2 * t58 * t5 * t154 * t53 - 0.3e1 / 0.5e1 * t83 * t160 + 0.3e1 / 0.5e1 * t83 * t167 - 0.3e1 / 0.10e2 * t83 * t179;
543 
544   t182 = t8 * t2;
545   t193 = -0.8e1 / 0.3e1 * t10 * t61 - 0.32e2 / 0.3e1 * t100 * t66 - 0.24e2 * t103 * t70 - 0.128e3 / 0.3e1 * t106 * t75;
546   t195 = t5 * t193 * t53;
547   t198 = t109 * t85;
548   t199 = t198 * t95;
549   t204 = t159 * t123;
550   t207 = t123 * t95;
551   t208 = t165 * t207;
552   t219 = -0.8e1 / 0.3e1 * t40 * t61 - 0.32e2 / 0.3e1 * t114 * t66 - 0.24e2 * t117 * t70 - 0.128e3 / 0.3e1 * t120 * t75;
553   t220 = t86 * t219;
554   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
555     v2rhosigma[0] = t182 * t111 / 0.2e1 + 0.3e1 / 0.10e2 * t58 * t195 - 0.3e1 / 0.10e2 * t83 * t199 - t135 * t124 / 0.2e1 - 0.3e1 / 0.10e2 * t83 * t204 + 0.3e1 / 0.5e1 * t83 * t208 - 0.3e1 / 0.10e2 * t83 * t220;
556 
557   t225 = t24 * sigma[0];
558   t228 = t30 * t17;
559   t231 = 0.2e1 * t16 * t22 + 0.6e1 * t225 * t28 + 0.12e2 * t228 * t35;
560   t233 = t5 * t231 * t53;
561   t236 = t198 * t123;
562   t239 = t123 * t123;
563   t240 = t165 * t239;
564   t245 = t46 * sigma[0];
565   t248 = t49 * t17;
566   t251 = 0.2e1 * t43 * t22 + 0.6e1 * t245 * t28 + 0.12e2 * t248 * t35;
567   t252 = t86 * t251;
568   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
569     v2sigma2[0] = 0.3e1 / 0.10e2 * t58 * t233 - 0.3e1 / 0.5e1 * t83 * t236 + 0.3e1 / 0.5e1 * t83 * t240 - 0.3e1 / 0.10e2 * t83 * t252;
570 
571 #ifndef XC_DONT_COMPILE_KXC
572 
573   if(order < 3) return;
574 
575 
576   t263 = 0.1e1 / t8 / t20;
577   t267 = 0.1e1 / t7 / t27;
578   t270 = 0.1e1 / t73;
579   t275 = 0.1e1 / t8 / t27 / t20;
580   t278 = -0.1232e4 / 0.27e2 * t11 * t263 - 0.6688e4 / 0.27e2 * t18 * t267 - 0.720e3 * t26 * t270 - 0.42560e5 / 0.27e2 * t32 * t275;
581   t284 = 0.1e1 / t7 / rho[0];
582   t289 = t6 * t127;
583   t295 = t154 * t85;
584   t296 = t295 * t95;
585   t299 = t159 * t178;
586   t310 = -0.1232e4 / 0.27e2 * t41 * t263 - 0.6688e4 / 0.27e2 * t44 * t267 - 0.720e3 * t47 * t270 - 0.42560e5 / 0.27e2 * t50 * t275;
587   t311 = t86 * t310;
588   t316 = t78 * t164;
589   t317 = t316 * t166;
590   t320 = t84 * t84;
591   t321 = 0.1e1 / t320;
592   t322 = t37 * t321;
593   t323 = t166 * t95;
594   t324 = t322 * t323;
595   t327 = t95 * t178;
596   t328 = t165 * t327;
597   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
598     v3rho3[0] = t6 * t127 * t78 * t53 + 0.3e1 / 0.2e1 * t6 * t8 * t154 * t53 + 0.3e1 / 0.10e2 * t58 * t5 * t278 * t53 - t6 * t284 * t37 * t53 / 0.9e1 - t289 * t96 - 0.3e1 * t135 * t160 - 0.3e1 / 0.2e1 * t135 * t179 - 0.9e1 / 0.10e2 * t83 * t296 - 0.9e1 / 0.10e2 * t83 * t299 - 0.3e1 / 0.10e2 * t83 * t311 + 0.3e1 * t135 * t167 + 0.9e1 / 0.5e1 * t83 * t317 - 0.9e1 / 0.5e1 * t83 * t324 + 0.9e1 / 0.5e1 * t83 * t328;
599 
600   t340 = 0.88e2 / 0.9e1 * t10 * t138 + 0.608e3 / 0.9e1 * t100 * t143 + 0.216e3 * t103 * t146 + 0.4480e4 / 0.9e1 * t106 * t151;
601   t342 = t5 * t340 * t53;
602   t345 = t123 * t166;
603   t346 = t322 * t345;
604   t349 = t127 * t2;
605   t353 = t193 * t85;
606   t354 = t353 * t95;
607   t357 = t198 * t178;
608   t362 = t295 * t123;
609   t365 = t159 * t219;
610   t376 = 0.88e2 / 0.9e1 * t40 * t138 + 0.608e3 / 0.9e1 * t114 * t143 + 0.216e3 * t117 * t146 + 0.4480e4 / 0.9e1 * t120 * t151;
611   t377 = t86 * t376;
612   t380 = t109 * t164;
613   t381 = t380 * t166;
614   t388 = t316 * t207;
615   t391 = t219 * t95;
616   t392 = t165 * t391;
617   t395 = t123 * t178;
618   t396 = t165 * t395;
619   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
620     v3rho2sigma[0] = t182 * t195 + 0.3e1 / 0.10e2 * t58 * t342 - 0.9e1 / 0.5e1 * t83 * t346 + t349 * t111 / 0.3e1 - t135 * t199 - 0.3e1 / 0.5e1 * t83 * t354 - 0.3e1 / 0.10e2 * t83 * t357 - t135 * t204 - t135 * t220 - 0.3e1 / 0.10e2 * t83 * t362 - 0.3e1 / 0.5e1 * t83 * t365 - 0.3e1 / 0.10e2 * t83 * t377 + 0.3e1 / 0.5e1 * t83 * t381 - t289 * t124 / 0.3e1 + 0.2e1 * t135 * t208 + 0.6e1 / 0.5e1 * t83 * t388 + 0.6e1 / 0.5e1 * t83 * t392 + 0.3e1 / 0.5e1 * t83 * t396;
621 
622   t407 = -0.32e2 / 0.3e1 * t16 * t66 - 0.48e2 * t225 * t70 - 0.128e3 * t228 * t75;
623   t409 = t5 * t407 * t53;
624   t412 = t231 * t85;
625   t413 = t412 * t95;
626   t417 = t353 * t123;
627   t420 = t380 * t207;
628   t423 = t198 * t219;
629   t427 = t316 * t239;
630   t430 = t239 * t95;
631   t431 = t322 * t430;
632   t434 = t123 * t219;
633   t435 = t165 * t434;
634   t440 = t159 * t251;
635   t443 = t251 * t95;
636   t444 = t165 * t443;
637   t453 = -0.32e2 / 0.3e1 * t43 * t66 - 0.48e2 * t245 * t70 - 0.128e3 * t248 * t75;
638   t454 = t86 * t453;
639   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
640     v3rhosigma2[0] = t182 * t233 / 0.2e1 + 0.3e1 / 0.10e2 * t58 * t409 - 0.3e1 / 0.10e2 * t83 * t413 - t135 * t236 - 0.3e1 / 0.5e1 * t83 * t417 + 0.6e1 / 0.5e1 * t83 * t420 - 0.3e1 / 0.5e1 * t83 * t423 + t135 * t240 + 0.3e1 / 0.5e1 * t83 * t427 - 0.9e1 / 0.5e1 * t83 * t431 + 0.6e1 / 0.5e1 * t83 * t435 - t135 * t252 / 0.2e1 - 0.3e1 / 0.10e2 * t83 * t440 + 0.3e1 / 0.5e1 * t83 * t444 - 0.3e1 / 0.10e2 * t83 * t454;
641 
642   t459 = t30 * sigma[0];
643   t462 = 0.6e1 * t24 * t28 + 0.24e2 * t459 * t35;
644   t464 = t5 * t462 * t53;
645   t467 = t412 * t123;
646   t470 = t380 * t239;
647   t473 = t198 * t251;
648   t476 = t239 * t123;
649   t477 = t322 * t476;
650   t480 = t123 * t251;
651   t481 = t165 * t480;
652   t486 = t49 * sigma[0];
653   t489 = 0.6e1 * t46 * t28 + 0.24e2 * t486 * t35;
654   t490 = t86 * t489;
655   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
656     v3sigma3[0] = 0.3e1 / 0.10e2 * t58 * t464 - 0.9e1 / 0.10e2 * t83 * t467 + 0.9e1 / 0.5e1 * t83 * t470 - 0.9e1 / 0.10e2 * t83 * t473 - 0.9e1 / 0.5e1 * t83 * t477 + 0.9e1 / 0.5e1 * t83 * t481 - 0.3e1 / 0.10e2 * t83 * t490;
657 
658 #ifndef XC_DONT_COMPILE_LXC
659 
660   if(order < 4) return;
661 
662 
663   t512 = 0.1e1 / t8 / t64;
664   t516 = 0.1e1 / t7 / t69;
665   t519 = 0.1e1 / t149;
666   t524 = 0.1e1 / t8 / t27 / t64;
667   t536 = t278 * t85;
668   t540 = t6 * t284;
669   t552 = -0.4e1 / 0.9e1 * t6 * t284 * t78 * t53 + 0.4e1 / 0.27e2 * t6 / t7 / t12 * t37 * t53 + 0.2e1 * t6 * t127 * t154 * t53 + 0.2e1 * t6 * t8 * t278 * t53 + 0.3e1 / 0.10e2 * t58 * t5 * (0.20944e5 / 0.81e2 * t11 * t512 + 0.167200e6 / 0.81e2 * t18 * t516 + 0.7920e4 * t26 * t519 + 0.1744960e7 / 0.81e2 * t32 * t524) * t53 - 0.4e1 * t289 * t160 - 0.6e1 * t135 * t296 - 0.6e1 / 0.5e1 * t83 * t536 * t95 + 0.4e1 / 0.9e1 * t540 * t96 - 0.2e1 * t289 * t179 - 0.6e1 * t135 * t299 - 0.2e1 * t135 * t311 - 0.9e1 / 0.5e1 * t83 * t295 * t178;
670   t572 = t154 * t164;
671   t578 = t78 * t321;
672   t584 = t37 / t320 / t52;
673   t585 = t166 * t166;
674   t589 = t178 * t178;
675   t606 = -0.6e1 / 0.5e1 * t83 * t159 * t310 - 0.3e1 / 0.10e2 * t83 * t86 * (0.20944e5 / 0.81e2 * t41 * t512 + 0.167200e6 / 0.81e2 * t44 * t516 + 0.7920e4 * t47 * t519 + 0.1744960e7 / 0.81e2 * t50 * t524) + 0.4e1 * t289 * t167 + 0.12e2 * t135 * t317 + 0.18e2 / 0.5e1 * t83 * t572 * t166 - 0.12e2 * t135 * t324 - 0.36e2 / 0.5e1 * t83 * t578 * t323 + 0.36e2 / 0.5e1 * t83 * t584 * t585 + 0.9e1 / 0.5e1 * t83 * t165 * t589 + 0.12e2 * t135 * t328 + 0.36e2 / 0.5e1 * t83 * t316 * t327 + 0.12e2 / 0.5e1 * t83 * t165 * t310 * t95 - 0.54e2 / 0.5e1 * t83 * t322 * t166 * t178;
676   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
677     v4rho4[0] = t552 + t606;
678 
679   t608 = t58 * t5 * t37;
680   t609 = t321 * t123;
681   t634 = t340 * t85;
682   t676 = -0.27e2 / 0.5e1 * t608 * t609 * t327 + t349 * t195 - t284 * t2 * t111 / 0.9e1 + 0.3e1 / 0.2e1 * t182 * t342 + 0.3e1 / 0.10e2 * t58 * t5 * (-0.1232e4 / 0.27e2 * t10 * t263 - 0.13376e5 / 0.27e2 * t100 * t267 - 0.2160e4 * t103 * t270 - 0.170240e6 / 0.27e2 * t106 * t275) * t53 - 0.3e1 * t135 * t354 - 0.9e1 / 0.10e2 * t83 * t634 * t95 - t289 * t199 - 0.3e1 / 0.2e1 * t135 * t357 - 0.9e1 / 0.10e2 * t83 * t353 * t178 - 0.3e1 / 0.10e2 * t83 * t198 * t310 - 0.3e1 / 0.2e1 * t135 * t362 - 0.3e1 * t135 * t365 - 0.3e1 / 0.2e1 * t135 * t377 - 0.3e1 / 0.10e2 * t83 * t536 * t123 - 0.9e1 / 0.10e2 * t83 * t295 * t219 - 0.9e1 / 0.10e2 * t83 * t159 * t376 - 0.3e1 / 0.10e2 * t83 * t86 * (-0.1232e4 / 0.27e2 * t40 * t263 - 0.13376e5 / 0.27e2 * t114 * t267 - 0.2160e4 * t117 * t270 - 0.170240e6 / 0.27e2 * t120 * t275) + 0.3e1 * t135 * t381;
683   t677 = t193 * t164;
684   t683 = t109 * t321;
685   t734 = 0.9e1 / 0.5e1 * t83 * t677 * t166 - t289 * t204 - t289 * t220 - 0.9e1 / 0.5e1 * t83 * t683 * t323 + t540 * t124 / 0.9e1 - 0.9e1 * t135 * t346 + 0.36e2 / 0.5e1 * t83 * t584 * t123 * t323 - 0.27e2 / 0.5e1 * t83 * t578 * t345 - 0.27e2 / 0.5e1 * t83 * t322 * t219 * t166 + 0.9e1 / 0.5e1 * t83 * t380 * t327 + 0.6e1 * t135 * t388 + 0.6e1 * t135 * t392 + 0.9e1 / 0.5e1 * t83 * t572 * t207 + 0.18e2 / 0.5e1 * t83 * t316 * t391 + 0.9e1 / 0.5e1 * t83 * t165 * t376 * t95 + 0.2e1 * t289 * t208 + 0.3e1 * t135 * t396 + 0.9e1 / 0.5e1 * t83 * t316 * t395 + 0.9e1 / 0.5e1 * t83 * t165 * t219 * t178 + 0.3e1 / 0.5e1 * t83 * t165 * t123 * t310;
686   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
687     v4rho3sigma[0] = t676 + t734;
688 
689   t753 = t407 * t85;
690   t796 = t231 * t164;
691   t800 = -0.36e2 / 0.5e1 * t608 * t609 * t391 + t349 * t233 / 0.3e1 + t182 * t409 + 0.3e1 / 0.10e2 * t58 * t5 * (0.608e3 / 0.9e1 * t16 * t143 + 0.432e3 * t225 * t146 + 0.4480e4 / 0.3e1 * t228 * t151) * t53 - t135 * t413 - 0.3e1 / 0.5e1 * t83 * t753 * t95 - 0.3e1 / 0.10e2 * t83 * t412 * t178 - 0.2e1 * t135 * t417 - 0.2e1 * t135 * t423 - 0.3e1 / 0.5e1 * t83 * t634 * t123 - 0.6e1 / 0.5e1 * t83 * t353 * t219 - 0.3e1 / 0.5e1 * t83 * t198 * t376 + 0.2e1 * t135 * t427 + 0.3e1 / 0.5e1 * t83 * t572 * t239 - t135 * t440 - t135 * t454 - 0.3e1 / 0.10e2 * t83 * t295 * t251 - 0.3e1 / 0.5e1 * t83 * t159 * t453 - 0.3e1 / 0.10e2 * t83 * t86 * (0.608e3 / 0.9e1 * t43 * t143 + 0.432e3 * t245 * t146 + 0.4480e4 / 0.3e1 * t248 * t151) + 0.3e1 / 0.5e1 * t83 * t796 * t166;
692   t805 = t219 * t219;
693   t865 = 0.6e1 / 0.5e1 * t83 * t380 * t395 - 0.6e1 * t135 * t431 + 0.4e1 * t135 * t435 - 0.18e2 / 0.5e1 * t83 * t578 * t430 + 0.12e2 / 0.5e1 * t83 * t316 * t434 - 0.9e1 / 0.5e1 * t83 * t322 * t239 * t178 + 0.6e1 / 0.5e1 * t83 * t165 * t123 * t376 + 0.2e1 * t135 * t444 + 0.6e1 / 0.5e1 * t83 * t316 * t443 + 0.6e1 / 0.5e1 * t83 * t165 * t453 * t95 + 0.3e1 / 0.5e1 * t83 * t165 * t251 * t178;
694   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
695     v4rho2sigma2[0] = t800 - 0.2e1 / 0.3e1 * t289 * t236 + 0.2e1 / 0.3e1 * t289 * t240 + 0.6e1 / 0.5e1 * t83 * t165 * t805 - t289 * t252 / 0.3e1 - 0.18e2 / 0.5e1 * t83 * t683 * t345 + 0.36e2 / 0.5e1 * t83 * t584 * t239 * t166 - 0.9e1 / 0.5e1 * t83 * t322 * t251 * t166 + 0.4e1 * t135 * t420 + 0.12e2 / 0.5e1 * t83 * t677 * t207 + 0.12e2 / 0.5e1 * t83 * t380 * t391 + t865;
696 
697   t891 = t462 * t85;
698   t910 = -0.27e2 / 0.5e1 * t608 * t609 * t443 + 0.3e1 / 0.10e2 * t58 * t5 * (-0.48e2 * t24 * t70 - 0.256e3 * t459 * t75) * t53 + t182 * t464 / 0.2e1 - 0.3e1 / 0.2e1 * t135 * t467 + 0.3e1 * t135 * t470 - 0.3e1 / 0.2e1 * t135 * t473 - 0.3e1 * t135 * t477 - t135 * t490 / 0.2e1 - 0.3e1 / 0.10e2 * t83 * t891 * t95 - 0.9e1 / 0.10e2 * t83 * t753 * t123 - 0.9e1 / 0.10e2 * t83 * t412 * t219 + 0.9e1 / 0.5e1 * t83 * t677 * t239 - 0.9e1 / 0.10e2 * t83 * t353 * t251 - 0.9e1 / 0.10e2 * t83 * t198 * t453;
699   t962 = -0.9e1 / 0.5e1 * t83 * t578 * t476 - 0.3e1 / 0.10e2 * t83 * t159 * t489 - 0.3e1 / 0.10e2 * t83 * t86 * (-0.48e2 * t46 * t70 - 0.256e3 * t486 * t75) + 0.3e1 * t135 * t481 + 0.9e1 / 0.5e1 * t83 * t796 * t207 - 0.27e2 / 0.5e1 * t83 * t683 * t430 + 0.18e2 / 0.5e1 * t83 * t380 * t434 + 0.9e1 / 0.5e1 * t83 * t380 * t443 + 0.36e2 / 0.5e1 * t83 * t584 * t476 * t95 - 0.27e2 / 0.5e1 * t83 * t322 * t239 * t219 + 0.9e1 / 0.5e1 * t83 * t316 * t480 + 0.9e1 / 0.5e1 * t83 * t165 * t219 * t251 + 0.9e1 / 0.5e1 * t83 * t165 * t123 * t453 + 0.3e1 / 0.5e1 * t83 * t165 * t489 * t95;
700   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
701     v4rhosigma3[0] = t910 + t962;
702 
703   t963 = t70 * t2;
704   t986 = t239 * t239;
705   t994 = t251 * t251;
706   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
707     v4sigma4[0] = 0.36e2 / 0.5e1 * t963 * t5 * t30 * t53 - 0.6e1 / 0.5e1 * t83 * t891 * t123 + 0.18e2 / 0.5e1 * t83 * t796 * t239 - 0.9e1 / 0.5e1 * t83 * t412 * t251 - 0.36e2 / 0.5e1 * t83 * t683 * t476 + 0.36e2 / 0.5e1 * t83 * t380 * t480 - 0.6e1 / 0.5e1 * t83 * t198 * t489 + 0.36e2 / 0.5e1 * t83 * t584 * t986 - 0.54e2 / 0.5e1 * t83 * t322 * t239 * t251 + 0.9e1 / 0.5e1 * t83 * t165 * t994 + 0.12e2 / 0.5e1 * t83 * t165 * t123 * t489 - 0.36e2 / 0.5e1 * t963 * t5 * t86 * t49;
708 
709 #ifndef XC_DONT_COMPILE_MXC
710 
711   if(order < 5) return;
712 
713 
714 #endif
715 
716 #endif
717 
718 #endif
719 
720 #endif
721 
722 #endif
723 
724 
725 }
726 
727 
728 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 *))729 func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
730 {
731 
732 #ifndef XC_DONT_COMPILE_EXC
733   double t1, t2, t3, t4, t5, t6, t7, t8;
734   double t9, t10, t12, t13, t14, t15, t16, t17;
735   double t18, t19, t20, t21, t22, t23, t24, t26;
736   double t28, t29, t30, t31, t32, t34, t36, t37;
737   double t38, t39, t40, t42, t43, t44, t45, t47;
738   double t49, t50, t51, t52, t53, t55, t56, t58;
739   double t59, t61, t62, t64, t65, t67, t69, t70;
740   double t71, t72, t73, t74, t75, t76, t77, t79;
741   double t81, t82, t83, t84, t86, t88, t89, t90;
742   double t91, t93, t94, t95, t97, t99, t100, t101;
743   double t103, t105, t107, t109, t110, t112;
744 
745 #ifndef XC_DONT_COMPILE_VXC
746   double t114, t115, t116, t117, t118, t119, t121, t122;
747   double t124, t125, t126, t127, t129, t130, t131, t133;
748   double t136, t138, t141, t142, t145, t147, t150, t151;
749   double t153, t154, t155, t156, t165, t166, t168, t169;
750   double t170, t171, t172, t174, t175, t176, t178, t179;
751   double t183, t184, t186, t187, t188, t189, t191, t192;
752   double t193, t195, t198, t200, t203, t204, t207, t209;
753   double t212, t213, t215, t216, t217, t218, t227, t228;
754   double t230, t231, t235, t238, t241, t244, t245, t247;
755   double t249, t252, t255, t258, t259, t261, t265, t268;
756   double t271, t274, t275, t277, t279, t282, t285, t288;
757   double t289, t291;
758 
759 #ifndef XC_DONT_COMPILE_FXC
760   double t294, t297, t298, t299, t300, t301, t303, t304;
761   double t306, t307, t309, t311, t312, t313, t314, t315;
762   double t316, t317, t318, t319, t320, t322, t323, t325;
763   double t326, t328, t329, t330, t332, t333, t335, t336;
764   double t338, t343, t346, t349, t351, t354, t355, t357;
765   double t358, t360, t361, t363, t364, t365, t367, t368;
766   double t377, t378, t380, t381, t382, t383, t384, t385;
767   double t387, t388, t390, t391, t392, t393, t395, t396;
768   double t397, t399, t400, t401, t403, t404, t405, t406;
769   double t407, t408, t411, t414, t416, t417, t418, t421;
770   double t422, t423, t425, t430, t431, t432, t433, t434;
771   double t435, t438, t440, t441, t443, t447, t449, t451;
772   double t454, t455, t456, t457, t458, t461, t463, t467;
773   double t468, t470, t471, t472, t473, t474, t476, t477;
774   double t478, t479, t481, t482, t483, t485, t486, t487;
775   double t488, t489, t490, t492, t493, t494, t495, t497;
776   double t502, t505, t508, t510, t513, t514, t516, t517;
777   double t519, t520, t522, t523, t524, t526, t527, t536;
778   double t537, t539, t540, t541, t543, t544, t546, t547;
779   double t548, t550, t551, t560, t561, t563, t564, t566;
780   double t567, t568, t569, t570, t571, t573, t574, t576;
781   double t577, t579, t580, t581, t582, t583, t584, t593;
782   double t594, t596, t597, t600, t601, t603, t604, t605;
783   double t607, t608, t609, t610, t611, t612, t614, t615;
784   double t619, t620, t621, t622, t623, t624, t628, t629;
785   double t638, t639, t641, t642, t644, t645, t646, t647;
786   double t648, t649, t651, t652, t654, t655, t656, t657;
787   double t658, t659, t668, t669, t671, t672, t677, t680;
788   double t683, t684, t687, t690, t691, t692, t695, t698;
789   double t701, t704, t705, t708, t712, t715, t718, t719;
790   double t722, t725, t726, t727, t730, t733, t736, t739;
791   double t740, t743;
792 
793 #ifndef XC_DONT_COMPILE_KXC
794   double t751, t756, t760, t761, t762, t763, t765, t766;
795   double t768, t771, t772, t774, t777, t778, t779, t780;
796   double t781, t782, t784, t785, t787, t788, t789, t790;
797   double t792, t793, t795, t798, t799, t801, t803, t806;
798   double t808, t809, t811, t812, t813, t814, t815, t817;
799   double t818, t820, t821, t823, t824, t826, t829, t831;
800   double t833, t834, t836, t837, t839, t843, t846, t851;
801   double t854, t855, t857, t858, t860, t861, t862, t864;
802   double t865, t866, t867, t868, t869, t870, t871, t873;
803   double t874, t876, t877, t878, t879, t880, t881, t882;
804   double t883, t884, t885, t886, t887, t888, t889, t890;
805   double t891, t892, t893, t894, t895, t896, t897, t898;
806   double t899, t900, t901, t902, t903, t904, t905, t907;
807   double t908, t909, t911, t921, t922, t924, t925, t926;
808   double t929, t930, t931, t934, t935, t937, t940, t941;
809   double t943, t946, t949, t951, t953, t955, t957, t959;
810   double t962, t965, t966, t968, t970, t983, t984, t985;
811   double t986, t988, t990, t991, t992, t995, t996, t997;
812   double t998, t1001, t1002, t1003, t1005, t1006, t1007, t1008;
813   double t1010, t1011, t1012, t1014, t1015, t1016, t1017, t1019;
814   double t1020, t1021, t1022, t1025, t1026, t1027, t1028, t1029;
815   double t1030, t1033, t1034, t1035, t1036, t1037, t1038, t1040;
816   double t1041, t1042, t1044, t1045, t1046, t1047, t1048, t1049;
817   double t1050, t1051, t1053, t1054, t1055, t1060, t1062, t1064;
818   double t1066, t1068, t1074, t1075, t1076, t1079, t1080, t1081;
819   double t1082, t1084, t1085, t1086, t1089, t1090, t1091, t1092;
820   double t1093, t1094, t1095, t1097, t1098, t1099, t1100, t1101;
821   double t1102, t1103, t1104, t1105, t1107, t1108, t1109, t1111;
822   double t1113, t1114, t1115, t1117, t1118, t1119, t1121, t1122;
823   double t1123, t1125, t1126, t1127, t1128, t1130, t1131, t1132;
824   double t1134, t1135, t1136, t1139, t1142, t1145, t1148, t1151;
825   double t1154, t1157, t1160, t1163, t1165, t1168, t1171, t1172;
826   double t1174, t1176, t1178, t1179, t1180, t1182, t1185, t1192;
827   double t1196, t1198, t1202, t1207, t1211, t1224, t1225, t1226;
828   double t1227, t1228, t1229, t1230, t1231, t1232, t1233, t1234;
829   double t1235, t1236, t1237, t1238, t1239, t1240, t1241, t1242;
830   double t1243, t1244, t1245, t1246, t1247, t1248, t1249, t1250;
831   double t1251, t1254, t1255, t1257, t1258, t1260, t1262, t1263;
832   double t1265, t1266, t1267, t1268, t1270, t1271, t1273, t1274;
833   double t1276, t1277, t1279, t1283, t1286, t1291, t1294, t1295;
834   double t1297, t1298, t1299, t1300, t1302, t1303, t1304, t1305;
835   double t1306, t1308, t1309, t1311, t1312, t1313, t1314, t1315;
836   double t1316, t1318, t1319, t1326, t1327, t1328, t1338, t1339;
837   double t1341, t1342, t1343, t1344, t1347, t1350, t1354, t1355;
838   double t1356, t1357, t1358, t1359, t1360, t1361, t1362, t1363;
839   double t1364, t1365, t1366, t1367, t1368, t1369, t1370, t1371;
840   double t1372, t1373, t1374, t1375, t1376, t1378, t1379, t1380;
841   double t1381, t1382, t1383, t1384, t1385, t1386, t1387, t1388;
842   double t1389, t1390, t1391, t1392, t1393, t1394, t1395, t1396;
843   double t1398, t1399, t1401, t1402, t1403, t1405, t1406, t1408;
844   double t1409, t1411, t1413, t1414, t1416, t1417, t1419, t1420;
845   double t1422, t1423, t1425, t1426, t1428, t1429, t1431, t1432;
846   double t1434, t1435, t1444, t1445, t1447, t1448, t1449, t1451;
847   double t1452, t1453, t1455, t1456, t1465, t1466, t1468, t1469;
848   double t1470, t1473, t1474, t1476, t1477, t1479, t1480, t1482;
849   double t1483, t1484, t1486, t1487, t1488, t1489, t1490, t1491;
850   double t1492, t1493, t1494, t1495, t1496, t1497, t1499, t1500;
851   double t1503, t1504, t1505, t1508, t1511, t1513, t1514, t1516;
852   double t1518, t1523, t1524, t1525, t1527, t1529, t1530, t1532;
853   double t1533, t1534, t1535, t1536, t1537, t1539, t1540, t1541;
854   double t1547, t1549, t1550, t1551, t1554, t1556, t1558, t1562;
855   double t1564, t1566, t1568, t1569, t1570, t1573, t1575, t1576;
856   double t1577, t1579, t1581, t1582, t1583, t1586, t1587, t1590;
857   double t1592, t1593, t1594, t1596, t1597, t1599, t1600, t1601;
858   double t1604, t1606, t1609, t1610, t1611, t1613, t1614, t1615;
859   double t1616, t1617, t1618, t1619, t1620, t1621, t1622, t1623;
860   double t1631, t1632, t1633, t1634, t1635, t1636, t1637, t1638;
861   double t1639, t1640, t1641, t1642, t1643, t1644, t1645, t1646;
862   double t1647, t1648, t1649, t1650, t1651, t1652, t1653, t1654;
863   double t1655, t1656, t1657, t1658, t1659, t1660, t1661, t1662;
864   double t1663, t1664, t1665, t1666, t1667, t1668, t1670, t1671;
865   double t1673, t1674, t1675, t1676, t1677, t1678, t1679, t1681;
866   double t1683, t1684, t1686, t1687, t1689, t1690, t1692, t1693;
867   double t1695, t1696, t1705, t1706, t1708, t1709, t1718, t1719;
868   double t1721, t1722, t1723, t1724, t1728, t1729, t1730, t1732;
869   double t1733, t1740, t1741, t1743, t1744, t1746, t1747, t1748;
870   double t1749, t1751, t1752, t1754, t1755, t1756, t1757, t1758;
871   double t1759, t1761, t1762, t1763, t1764, t1765, t1767, t1768;
872   double t1770, t1771, t1772, t1773, t1774, t1775, t1776, t1777;
873   double t1778, t1779, t1780, t1781, t1782, t1783, t1785, t1786;
874   double t1788, t1789, t1790, t1791, t1792, t1793, t1800, t1801;
875   double t1803, t1804, t1805, t1808, t1809, t1810, t1812, t1813;
876   double t1814, t1815, t1817, t1818, t1819, t1820, t1821, t1823;
877   double t1824, t1825, t1826, t1827, t1828, t1830, t1831, t1835;
878   double t1836, t1837, t1838, t1839, t1840, t1841, t1842, t1843;
879   double t1844, t1845, t1849, t1850, t1857, t1858, t1860, t1861;
880   double t1863, t1864, t1865, t1866, t1868, t1869, t1870, t1871;
881   double t1872, t1873, t1875, t1876, t1877, t1878, t1879, t1881;
882   double t1882, t1883, t1884, t1885, t1886, t1887, t1888, t1889;
883   double t1890, t1891, t1892, t1893, t1894, t1896, t1897, t1898;
884   double t1899, t1900, t1901, t1908, t1909, t1911, t1912, t1913;
885   double t1917, t1920, t1921, t1924, t1927, t1930, t1933, t1934;
886   double t1935, t1938, t1939, t1940, t1942, t1945, t1948, t1949;
887   double t1952, t1956, t1959, t1960, t1963, t1966, t1969, t1972;
888   double t1973, t1974, t1977, t1978, t1979, t1981, t1984, t1987;
889   double t1988, t1991;
890 
891 #ifndef XC_DONT_COMPILE_LXC
892   double t2012, t2022, t2039, t2041, t2058, t2059, t2061, t2062;
893   double t2064, t2066, t2068, t2090, t2101, t2104, t2107, t2110;
894   double t2113, t2124, t2127, t2131, t2134, t2139, t2148, t2150;
895   double t2152, t2154, t2159, t2161, t2162, t2163, t2169, t2172;
896   double t2174, t2178, t2179, t2182, t2185, t2191, t2192, t2197;
897   double t2202, t2204, t2205, t2206, t2212, t2215, t2217, t2221;
898   double t2222, t2228, t2230, t2232, t2235, t2238, t2244, t2250;
899   double t2253, t2256, t2272, t2273, t2275, t2276, t2280, t2284;
900   double t2299, t2301, t2302, t2304, t2305, t2327, t2342, t2343;
901   double t2347, t2353, t2354, t2355, t2372, t2373, t2377, t2378;
902   double t2379, t2380, t2383, t2384, t2387, t2393, t2395, t2398;
903   double t2401, t2403, t2414, t2415, t2421, t2423, t2424, t2428;
904   double t2431, t2432, t2434, t2440, t2453, t2454, t2455, t2456;
905   double t2457, t2459, t2461, t2462, t2470, t2475, t2476, t2481;
906   double t2484, t2485, t2497, t2500, t2506, t2507, t2509, t2511;
907   double t2517, t2518, t2521, t2526, t2538, t2554, t2569, t2593;
908   double t2609, t2613, t2615, t2616, t2621, t2625, t2631, t2637;
909   double t2640, t2648, t2653, t2658, t2659, t2661, t2664, t2670;
910   double t2680, t2685, t2688, t2689, t2695, t2700, t2706, t2712;
911   double t2717, t2718, t2727, t2747, t2762, t2767, t2789, t2791;
912   double t2801, t2809, t2812, t2814, t2816, t2819, t2821, t2828;
913   double t2831, t2845, t2848, t2851, t2856, t2860, t2863, t2865;
914   double t2869, t2872, t2878, t2896, t2913, t2945, t2956, t2969;
915   double t2974, t2995, t3010, t3031, t3047, t3057, t3062, t3078;
916   double t3091, t3096, t3098, t3100, t3102, t3103, t3104, t3106;
917   double t3117, t3167, t3175, t3197, t3204, t3207, t3210, t3213;
918   double t3216, t3219, t3221, t3225, t3227, t3229, t3232, t3235;
919   double t3238, t3248, t3269, t3279, t3309, t3331, t3334, t3339;
920   double t3360, t3450, t3464, t3469, t3473, t3478, t3486, t3487;
921   double t3492, t3504, t3509, t3538, t3542, t3545, t3550, t3569;
922   double t3606, t3610, t3624, t3625, t3636, t3644, t3649, t3651;
923   double t3652, t3654, t3666, t3668, t3699, t3702, t3704, t3706;
924   double t3711, t3713, t3717, t3720, t3725, t3728, t3740, t3743;
925   double t3746, t3758, t3760, t3763, t3766, t3786, t3802, t3806;
926   double t3821, t3823, t3828, t3830, t3834, t3865, t3869, t3871;
927   double t3873, t3875, t3899, t3903, t3906, t3909, t3914, t3919;
928   double t3922, t3926, t3928, t3933, t3938, t3940, t3945, t3947;
929   double t3948, t3951, t3953, t3954, t3955, t3968, t3973, t3977;
930   double t3989, t4007, t4015, t4023, t4025, t4040, t4047, t4048;
931   double t4050, t4065, t4093, t4110, t4115, t4117, t4119, t4120;
932   double t4121, t4124, t4130, t4137, t4139, t4144, t4147, t4157;
933   double t4166, t4167, t4173, t4174, t4180, t4183, t4190, t4201;
934   double t4215, t4221, t4233, t4238, t4249, t4252, t4266, t4271;
935   double t4273, t4325, t4330, t4332, t4343, t4346, t4349, t4352;
936   double t4355, t4358, t4361, t4364, t4367, t4373, t4379, t4385;
937   double t4387, t4389, t4391, t4393, t4395, t4397, t4399, t4401;
938   double t4403, t4412, t4437, t4483, t4495, t4501, t4508, t4537;
939   double t4552, t4593, t4630, t4645, t4681, t4697, t4772, t4776;
940   double t4777, t4786, t4789, t4792, t4797, t4800, t4813, t4824;
941   double t4842, t4844, t4849, t4870, t4887, t4894, t4897, t4898;
942   double t4903, t4907, t4914, t4923, t4926, t4938, t4944, t4947;
943   double t4952, t4970, t4972, t4980, t4990, t5015, t5019, t5021;
944   double t5023, t5024, t5029, t5037, t5041, t5047, t5052, t5059;
945   double t5064, t5072, t5073, t5089, t5100, t5123, t5128, t5133;
946   double t5164, t5168, t5169, t5172, t5176, t5179, t5182, t5185;
947   double t5189, t5192, t5195, t5211, t5217, t5239, t5241, t5243;
948   double t5246, t5248, t5250, t5252, t5279, t5283, t5284, t5317;
949   double t5345, t5350, t5396, t5442, t5464, t5503, t5531, t5534;
950   double t5537, t5540, t5543, t5546, t5583, t5638, t5647, t5656;
951   double t5662, t5668, t5674, t5681, t5687, t5694, t5695, t5721;
952   double t5768, t5830, t5833, t5856, t5865, t5878, t5901, t5910;
953   double t5923;
954 #endif
955 
956 #endif
957 
958 #endif
959 
960 #endif
961 
962 #endif
963 
964 
965   gga_k_dk_params *params;
966 
967   assert(p->params != NULL);
968   params = (gga_k_dk_params * )(p->params);
969 
970   t1 = M_CBRT6;
971   t2 = t1 * t1;
972   t3 = M_PI * M_PI;
973   t4 = POW_1_3(t3);
974   t5 = t4 * t4;
975   t6 = t2 * t5;
976   t7 = rho[0] - rho[1];
977   t8 = rho[0] + rho[1];
978   t9 = 0.1e1 / t8;
979   t10 = t7 * t9;
980   t12 = 0.1e1 / 0.2e1 + t10 / 0.2e1;
981   t13 = POW_1_3(t12);
982   t14 = t13 * t13;
983   t15 = t14 * t12;
984   t16 = t6 * t15;
985   t17 = POW_1_3(t8);
986   t18 = t17 * t17;
987   t19 = params->aa[0];
988   t20 = params->aa[1];
989   t21 = t20 * sigma[0];
990   t22 = rho[0] * rho[0];
991   t23 = POW_1_3(rho[0]);
992   t24 = t23 * t23;
993   t26 = 0.1e1 / t24 / t22;
994   t28 = params->aa[2];
995   t29 = sigma[0] * sigma[0];
996   t30 = t28 * t29;
997   t31 = t22 * t22;
998   t32 = t31 * rho[0];
999   t34 = 0.1e1 / t23 / t32;
1000   t36 = params->aa[3];
1001   t37 = t29 * sigma[0];
1002   t38 = t36 * t37;
1003   t39 = t31 * t31;
1004   t40 = 0.1e1 / t39;
1005   t42 = params->aa[4];
1006   t43 = t29 * t29;
1007   t44 = t42 * t43;
1008   t45 = t39 * t22;
1009   t47 = 0.1e1 / t24 / t45;
1010   t49 = t21 * t26 + t30 * t34 + t38 * t40 + t44 * t47 + t19;
1011   t50 = t18 * t49;
1012   t51 = params->bb[0];
1013   t52 = params->bb[1];
1014   t53 = t52 * sigma[0];
1015   t55 = params->bb[2];
1016   t56 = t55 * t29;
1017   t58 = params->bb[3];
1018   t59 = t58 * t37;
1019   t61 = params->bb[4];
1020   t62 = t61 * t43;
1021   t64 = t26 * t53 + t34 * t56 + t40 * t59 + t47 * t62 + t51;
1022   t65 = 0.1e1 / t64;
1023   t67 = t16 * t50 * t65;
1024   t69 = 0.1e1 / 0.2e1 - t10 / 0.2e1;
1025   t70 = POW_1_3(t69);
1026   t71 = t70 * t70;
1027   t72 = t71 * t69;
1028   t73 = t6 * t72;
1029   t74 = t20 * sigma[2];
1030   t75 = rho[1] * rho[1];
1031   t76 = POW_1_3(rho[1]);
1032   t77 = t76 * t76;
1033   t79 = 0.1e1 / t77 / t75;
1034   t81 = sigma[2] * sigma[2];
1035   t82 = t28 * t81;
1036   t83 = t75 * t75;
1037   t84 = t83 * rho[1];
1038   t86 = 0.1e1 / t76 / t84;
1039   t88 = t81 * sigma[2];
1040   t89 = t36 * t88;
1041   t90 = t83 * t83;
1042   t91 = 0.1e1 / t90;
1043   t93 = t81 * t81;
1044   t94 = t42 * t93;
1045   t95 = t90 * t75;
1046   t97 = 0.1e1 / t77 / t95;
1047   t99 = t74 * t79 + t82 * t86 + t89 * t91 + t94 * t97 + t19;
1048   t100 = t18 * t99;
1049   t101 = t52 * sigma[2];
1050   t103 = t55 * t81;
1051   t105 = t58 * t88;
1052   t107 = t61 * t93;
1053   t109 = t101 * t79 + t103 * t86 + t105 * t91 + t107 * t97 + t51;
1054   t110 = 0.1e1 / t109;
1055   t112 = t73 * t100 * t110;
1056   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1057     zk[0] = 0.3e1 / 0.10e2 * t67 + 0.3e1 / 0.10e2 * t112;
1058 
1059 #ifndef XC_DONT_COMPILE_VXC
1060 
1061   if(order < 1) return;
1062 
1063 
1064   t114 = 0.3e1 / 0.10e2 * t67;
1065   t115 = 0.3e1 / 0.10e2 * t112;
1066   t116 = t6 * t14;
1067   t117 = t8 * t8;
1068   t118 = 0.1e1 / t117;
1069   t119 = t7 * t118;
1070   t121 = t9 / 0.2e1 - t119 / 0.2e1;
1071   t122 = t65 * t121;
1072   t124 = t116 * t50 * t122;
1073   t125 = t124 / 0.2e1;
1074   t126 = 0.1e1 / t17;
1075   t127 = t126 * t49;
1076   t129 = t16 * t127 * t65;
1077   t130 = t129 / 0.5e1;
1078   t131 = t22 * rho[0];
1079   t133 = 0.1e1 / t24 / t131;
1080   t136 = t31 * t22;
1081   t138 = 0.1e1 / t23 / t136;
1082   t141 = t39 * rho[0];
1083   t142 = 0.1e1 / t141;
1084   t145 = t39 * t131;
1085   t147 = 0.1e1 / t24 / t145;
1086   t150 = -0.8e1 / 0.3e1 * t21 * t133 - 0.16e2 / 0.3e1 * t30 * t138 - 0.8e1 * t38 * t142 - 0.32e2 / 0.3e1 * t44 * t147;
1087   t151 = t18 * t150;
1088   t153 = t16 * t151 * t65;
1089   t154 = 0.3e1 / 0.10e2 * t153;
1090   t155 = t64 * t64;
1091   t156 = 0.1e1 / t155;
1092   t165 = -0.8e1 / 0.3e1 * t53 * t133 - 0.16e2 / 0.3e1 * t56 * t138 - 0.8e1 * t59 * t142 - 0.32e2 / 0.3e1 * t62 * t147;
1093   t166 = t156 * t165;
1094   t168 = t16 * t50 * t166;
1095   t169 = 0.3e1 / 0.10e2 * t168;
1096   t170 = t6 * t71;
1097   t171 = -t121;
1098   t172 = t110 * t171;
1099   t174 = t170 * t100 * t172;
1100   t175 = t174 / 0.2e1;
1101   t176 = t126 * t99;
1102   t178 = t73 * t176 * t110;
1103   t179 = t178 / 0.5e1;
1104   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1105     vrho[0] = t114 + t115 + t8 * (t125 + t130 + t154 - t169 + t175 + t179);
1106 
1107   t183 = -t9 / 0.2e1 - t119 / 0.2e1;
1108   t184 = t65 * t183;
1109   t186 = t116 * t50 * t184;
1110   t187 = t186 / 0.2e1;
1111   t188 = -t183;
1112   t189 = t110 * t188;
1113   t191 = t170 * t100 * t189;
1114   t192 = t191 / 0.2e1;
1115   t193 = t75 * rho[1];
1116   t195 = 0.1e1 / t77 / t193;
1117   t198 = t83 * t75;
1118   t200 = 0.1e1 / t76 / t198;
1119   t203 = t90 * rho[1];
1120   t204 = 0.1e1 / t203;
1121   t207 = t90 * t193;
1122   t209 = 0.1e1 / t77 / t207;
1123   t212 = -0.8e1 / 0.3e1 * t74 * t195 - 0.16e2 / 0.3e1 * t82 * t200 - 0.8e1 * t89 * t204 - 0.32e2 / 0.3e1 * t94 * t209;
1124   t213 = t18 * t212;
1125   t215 = t73 * t213 * t110;
1126   t216 = 0.3e1 / 0.10e2 * t215;
1127   t217 = t109 * t109;
1128   t218 = 0.1e1 / t217;
1129   t227 = -0.8e1 / 0.3e1 * t101 * t195 - 0.16e2 / 0.3e1 * t103 * t200 - 0.8e1 * t105 * t204 - 0.32e2 / 0.3e1 * t107 * t209;
1130   t228 = t218 * t227;
1131   t230 = t73 * t100 * t228;
1132   t231 = 0.3e1 / 0.10e2 * t230;
1133   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1134     vrho[1] = t114 + t115 + t8 * (t187 + t130 + t192 + t179 + t216 - t231);
1135 
1136   t235 = t28 * sigma[0];
1137   t238 = t36 * t29;
1138   t241 = t42 * t37;
1139   t244 = t20 * t26 + 0.2e1 * t235 * t34 + 0.3e1 * t238 * t40 + 0.4e1 * t241 * t47;
1140   t245 = t18 * t244;
1141   t247 = t16 * t245 * t65;
1142   t249 = t55 * sigma[0];
1143   t252 = t58 * t29;
1144   t255 = t61 * t37;
1145   t258 = 0.2e1 * t249 * t34 + 0.3e1 * t252 * t40 + 0.4e1 * t255 * t47 + t26 * t52;
1146   t259 = t156 * t258;
1147   t261 = t16 * t50 * t259;
1148   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1149     vsigma[0] = t8 * (0.3e1 / 0.10e2 * t247 - 0.3e1 / 0.10e2 * t261);
1150 
1151   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1152     vsigma[1] = 0.0e0;
1153 
1154   t265 = t28 * sigma[2];
1155   t268 = t36 * t81;
1156   t271 = t42 * t88;
1157   t274 = t20 * t79 + 0.2e1 * t265 * t86 + 0.3e1 * t268 * t91 + 0.4e1 * t271 * t97;
1158   t275 = t18 * t274;
1159   t277 = t73 * t275 * t110;
1160   t279 = t55 * sigma[2];
1161   t282 = t58 * t81;
1162   t285 = t61 * t88;
1163   t288 = 0.2e1 * t279 * t86 + 0.3e1 * t282 * t91 + 0.4e1 * t285 * t97 + t52 * t79;
1164   t289 = t218 * t288;
1165   t291 = t73 * t100 * t289;
1166   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1167     vsigma[2] = t8 * (0.3e1 / 0.10e2 * t277 - 0.3e1 / 0.10e2 * t291);
1168 
1169 #ifndef XC_DONT_COMPILE_FXC
1170 
1171   if(order < 2) return;
1172 
1173 
1174   t294 = 0.2e1 / 0.5e1 * t129;
1175   t297 = 0.2e1 / 0.5e1 * t178;
1176   t298 = 0.1e1 / t13;
1177   t299 = t6 * t298;
1178   t300 = t121 * t121;
1179   t301 = t65 * t300;
1180   t303 = t299 * t50 * t301;
1181   t304 = t303 / 0.3e1;
1182   t306 = t116 * t127 * t122;
1183   t307 = 0.2e1 / 0.3e1 * t306;
1184   t309 = t116 * t151 * t122;
1185   t311 = t6 * t14 * t18;
1186   t312 = t49 * t156;
1187   t313 = t121 * t165;
1188   t314 = t312 * t313;
1189   t315 = t311 * t314;
1190   t316 = t117 * t8;
1191   t317 = 0.1e1 / t316;
1192   t318 = t7 * t317;
1193   t319 = -t118 + t318;
1194   t320 = t65 * t319;
1195   t322 = t116 * t50 * t320;
1196   t323 = t322 / 0.2e1;
1197   t325 = 0.1e1 / t17 / t8;
1198   t326 = t325 * t49;
1199   t328 = t16 * t326 * t65;
1200   t329 = t328 / 0.15e2;
1201   t330 = t126 * t150;
1202   t332 = t16 * t330 * t65;
1203   t333 = 0.2e1 / 0.5e1 * t332;
1204   t335 = t16 * t127 * t166;
1205   t336 = 0.2e1 / 0.5e1 * t335;
1206   t338 = 0.1e1 / t24 / t31;
1207   t343 = 0.1e1 / t23 / t31 / t131;
1208   t346 = 0.1e1 / t45;
1209   t349 = t39 * t31;
1210   t351 = 0.1e1 / t24 / t349;
1211   t354 = 0.88e2 / 0.9e1 * t21 * t338 + 0.304e3 / 0.9e1 * t30 * t343 + 0.72e2 * t38 * t346 + 0.1120e4 / 0.9e1 * t44 * t351;
1212   t355 = t18 * t354;
1213   t357 = t16 * t355 * t65;
1214   t358 = 0.3e1 / 0.10e2 * t357;
1215   t360 = t16 * t151 * t166;
1216   t361 = 0.3e1 / 0.5e1 * t360;
1217   t363 = 0.1e1 / t155 / t64;
1218   t364 = t165 * t165;
1219   t365 = t363 * t364;
1220   t367 = t16 * t50 * t365;
1221   t368 = 0.3e1 / 0.5e1 * t367;
1222   t377 = 0.88e2 / 0.9e1 * t53 * t338 + 0.304e3 / 0.9e1 * t56 * t343 + 0.72e2 * t59 * t346 + 0.1120e4 / 0.9e1 * t62 * t351;
1223   t378 = t156 * t377;
1224   t380 = t16 * t50 * t378;
1225   t381 = 0.3e1 / 0.10e2 * t380;
1226   t382 = 0.1e1 / t70;
1227   t383 = t6 * t382;
1228   t384 = t171 * t171;
1229   t385 = t110 * t384;
1230   t387 = t383 * t100 * t385;
1231   t388 = t387 / 0.3e1;
1232   t390 = t170 * t176 * t172;
1233   t391 = 0.2e1 / 0.3e1 * t390;
1234   t392 = -t319;
1235   t393 = t110 * t392;
1236   t395 = t170 * t100 * t393;
1237   t396 = t395 / 0.2e1;
1238   t397 = t325 * t99;
1239   t399 = t73 * t397 * t110;
1240   t400 = t399 / 0.15e2;
1241   t401 = t304 + t307 + t309 - t315 + t323 - t329 + t333 - t336 + t358 - t361 + t368 - t381 + t388 + t391 + t396 - t400;
1242   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1243     v2rho2[0] = t124 + t294 + 0.3e1 / 0.5e1 * t153 - 0.3e1 / 0.5e1 * t168 + t174 + t297 + t8 * t401;
1244 
1245   t403 = t298 * t18;
1246   t404 = t6 * t403;
1247   t405 = t49 * t65;
1248   t406 = t183 * t121;
1249   t407 = t405 * t406;
1250   t408 = t404 * t407;
1251   t411 = t116 * t127 * t184;
1252   t414 = t116 * t151 * t184;
1253   t416 = t183 * t165;
1254   t417 = t312 * t416;
1255   t418 = t311 * t417;
1256   t421 = 0.1e1 / t17 / t117;
1257   t422 = t421 * t49;
1258   t423 = t65 * t7;
1259   t425 = t116 * t422 * t423;
1260   t430 = t382 * t18;
1261   t431 = t6 * t430;
1262   t432 = t99 * t110;
1263   t433 = t188 * t171;
1264   t434 = t432 * t433;
1265   t435 = t431 * t434;
1266   t438 = t170 * t176 * t189;
1267   t440 = t421 * t99;
1268   t441 = t110 * t7;
1269   t443 = t170 * t440 * t441;
1270   t447 = t170 * t213 * t172;
1271   t449 = t126 * t212;
1272   t451 = t73 * t449 * t110;
1273   t454 = t6 * t71 * t18;
1274   t455 = t99 * t218;
1275   t456 = t227 * t171;
1276   t457 = t455 * t456;
1277   t458 = t454 * t457;
1278   t461 = t73 * t176 * t228;
1279   t463 = t408 / 0.3e1 + t411 / 0.3e1 + t414 / 0.2e1 - t418 / 0.2e1 + t425 / 0.2e1 + t306 / 0.3e1 - t329 + t332 / 0.5e1 - t335 / 0.5e1 + t435 / 0.3e1 + t438 / 0.3e1 - t443 / 0.2e1 + t390 / 0.3e1 - t400 + t447 / 0.2e1 + t451 / 0.5e1 - t458 / 0.2e1 - t461 / 0.5e1;
1280   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1281     v2rho2[1] = t463 * t8 + t125 + t154 - t169 + t175 + t187 + t192 + t216 - t231 + t294 + t297;
1282 
1283   t467 = t183 * t183;
1284   t468 = t65 * t467;
1285   t470 = t299 * t50 * t468;
1286   t471 = t470 / 0.3e1;
1287   t472 = 0.2e1 / 0.3e1 * t411;
1288   t473 = t118 + t318;
1289   t474 = t65 * t473;
1290   t476 = t116 * t50 * t474;
1291   t477 = t476 / 0.2e1;
1292   t478 = t188 * t188;
1293   t479 = t110 * t478;
1294   t481 = t383 * t100 * t479;
1295   t482 = t481 / 0.3e1;
1296   t483 = 0.2e1 / 0.3e1 * t438;
1297   t485 = t170 * t213 * t189;
1298   t486 = t188 * t227;
1299   t487 = t455 * t486;
1300   t488 = t454 * t487;
1301   t489 = -t473;
1302   t490 = t110 * t489;
1303   t492 = t170 * t100 * t490;
1304   t493 = t492 / 0.2e1;
1305   t494 = 0.2e1 / 0.5e1 * t451;
1306   t495 = 0.2e1 / 0.5e1 * t461;
1307   t497 = 0.1e1 / t77 / t83;
1308   t502 = 0.1e1 / t76 / t83 / t193;
1309   t505 = 0.1e1 / t95;
1310   t508 = t90 * t83;
1311   t510 = 0.1e1 / t77 / t508;
1312   t513 = 0.88e2 / 0.9e1 * t74 * t497 + 0.304e3 / 0.9e1 * t82 * t502 + 0.72e2 * t89 * t505 + 0.1120e4 / 0.9e1 * t94 * t510;
1313   t514 = t18 * t513;
1314   t516 = t73 * t514 * t110;
1315   t517 = 0.3e1 / 0.10e2 * t516;
1316   t519 = t73 * t213 * t228;
1317   t520 = 0.3e1 / 0.5e1 * t519;
1318   t522 = 0.1e1 / t217 / t109;
1319   t523 = t227 * t227;
1320   t524 = t522 * t523;
1321   t526 = t73 * t100 * t524;
1322   t527 = 0.3e1 / 0.5e1 * t526;
1323   t536 = 0.88e2 / 0.9e1 * t101 * t497 + 0.304e3 / 0.9e1 * t103 * t502 + 0.72e2 * t105 * t505 + 0.1120e4 / 0.9e1 * t107 * t510;
1324   t537 = t218 * t536;
1325   t539 = t73 * t100 * t537;
1326   t540 = 0.3e1 / 0.10e2 * t539;
1327   t541 = t471 + t472 + t477 - t329 + t482 + t483 + t485 - t488 + t493 - t400 + t494 - t495 + t517 - t520 + t527 - t540;
1328   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1329     v2rho2[2] = t186 + t294 + t191 + t297 + 0.3e1 / 0.5e1 * t215 - 0.3e1 / 0.5e1 * t230 + t8 * t541;
1330 
1331   t543 = 0.3e1 / 0.10e2 * t247;
1332   t544 = 0.3e1 / 0.10e2 * t261;
1333   t546 = t116 * t245 * t122;
1334   t547 = t546 / 0.2e1;
1335   t548 = t126 * t244;
1336   t550 = t16 * t548 * t65;
1337   t551 = t550 / 0.5e1;
1338   t560 = -0.8e1 / 0.3e1 * t20 * t133 - 0.32e2 / 0.3e1 * t235 * t138 - 0.24e2 * t238 * t142 - 0.128e3 / 0.3e1 * t241 * t147;
1339   t561 = t18 * t560;
1340   t563 = t16 * t561 * t65;
1341   t564 = 0.3e1 / 0.10e2 * t563;
1342   t566 = t16 * t245 * t166;
1343   t567 = 0.3e1 / 0.10e2 * t566;
1344   t568 = t258 * t121;
1345   t569 = t312 * t568;
1346   t570 = t311 * t569;
1347   t571 = t570 / 0.2e1;
1348   t573 = t16 * t127 * t259;
1349   t574 = t573 / 0.5e1;
1350   t576 = t16 * t151 * t259;
1351   t577 = 0.3e1 / 0.10e2 * t576;
1352   t579 = t6 * t15 * t18;
1353   t580 = t49 * t363;
1354   t581 = t258 * t165;
1355   t582 = t580 * t581;
1356   t583 = t579 * t582;
1357   t584 = 0.3e1 / 0.5e1 * t583;
1358   t593 = -0.8e1 / 0.3e1 * t52 * t133 - 0.32e2 / 0.3e1 * t249 * t138 - 0.24e2 * t252 * t142 - 0.128e3 / 0.3e1 * t255 * t147;
1359   t594 = t156 * t593;
1360   t596 = t16 * t50 * t594;
1361   t597 = 0.3e1 / 0.10e2 * t596;
1362   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1363     v2rhosigma[0] = t543 - t544 + t8 * (t547 + t551 + t564 - t567 - t571 - t574 - t577 + t584 - t597);
1364 
1365   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1366     v2rhosigma[1] = 0.0e0;
1367 
1368   t600 = 0.3e1 / 0.10e2 * t277;
1369   t601 = 0.3e1 / 0.10e2 * t291;
1370   t603 = t170 * t275 * t172;
1371   t604 = t603 / 0.2e1;
1372   t605 = t126 * t274;
1373   t607 = t73 * t605 * t110;
1374   t608 = t607 / 0.5e1;
1375   t609 = t288 * t171;
1376   t610 = t455 * t609;
1377   t611 = t454 * t610;
1378   t612 = t611 / 0.2e1;
1379   t614 = t73 * t176 * t289;
1380   t615 = t614 / 0.5e1;
1381   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1382     v2rhosigma[2] = t600 - t601 + t8 * (t604 + t608 - t612 - t615);
1383 
1384   t619 = t116 * t245 * t184;
1385   t620 = t619 / 0.2e1;
1386   t621 = t258 * t183;
1387   t622 = t312 * t621;
1388   t623 = t311 * t622;
1389   t624 = t623 / 0.2e1;
1390   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1391     v2rhosigma[3] = t543 - t544 + t8 * (t620 + t551 - t624 - t574);
1392 
1393   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1394     v2rhosigma[4] = 0.0e0;
1395 
1396   t628 = t170 * t275 * t189;
1397   t629 = t628 / 0.2e1;
1398   t638 = -0.8e1 / 0.3e1 * t20 * t195 - 0.32e2 / 0.3e1 * t265 * t200 - 0.24e2 * t268 * t204 - 0.128e3 / 0.3e1 * t271 * t209;
1399   t639 = t18 * t638;
1400   t641 = t73 * t639 * t110;
1401   t642 = 0.3e1 / 0.10e2 * t641;
1402   t644 = t73 * t275 * t228;
1403   t645 = 0.3e1 / 0.10e2 * t644;
1404   t646 = t288 * t188;
1405   t647 = t455 * t646;
1406   t648 = t454 * t647;
1407   t649 = t648 / 0.2e1;
1408   t651 = t73 * t213 * t289;
1409   t652 = 0.3e1 / 0.10e2 * t651;
1410   t654 = t6 * t72 * t18;
1411   t655 = t99 * t522;
1412   t656 = t288 * t227;
1413   t657 = t655 * t656;
1414   t658 = t654 * t657;
1415   t659 = 0.3e1 / 0.5e1 * t658;
1416   t668 = -0.8e1 / 0.3e1 * t52 * t195 - 0.32e2 / 0.3e1 * t279 * t200 - 0.24e2 * t282 * t204 - 0.128e3 / 0.3e1 * t285 * t209;
1417   t669 = t218 * t668;
1418   t671 = t73 * t100 * t669;
1419   t672 = 0.3e1 / 0.10e2 * t671;
1420   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1421     v2rhosigma[5] = t600 - t601 + t8 * (t629 + t608 + t642 - t645 - t649 - t615 - t652 + t659 - t672);
1422 
1423   t677 = t36 * sigma[0];
1424   t680 = t42 * t29;
1425   t683 = 0.2e1 * t28 * t34 + 0.6e1 * t40 * t677 + 0.12e2 * t47 * t680;
1426   t684 = t18 * t683;
1427   t687 = 0.3e1 / 0.10e2 * t16 * t684 * t65;
1428   t690 = 0.3e1 / 0.5e1 * t16 * t245 * t259;
1429   t691 = t258 * t258;
1430   t692 = t363 * t691;
1431   t695 = 0.3e1 / 0.5e1 * t16 * t50 * t692;
1432   t698 = t58 * sigma[0];
1433   t701 = t61 * t29;
1434   t704 = 0.2e1 * t34 * t55 + 0.6e1 * t40 * t698 + 0.12e2 * t47 * t701;
1435   t705 = t156 * t704;
1436   t708 = 0.3e1 / 0.10e2 * t16 * t50 * t705;
1437   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1438     v2sigma2[0] = t8 * (t687 - t690 + t695 - t708);
1439 
1440   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1441     v2sigma2[1] = 0.0e0;
1442 
1443   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1444     v2sigma2[2] = 0.0e0;
1445 
1446   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1447     v2sigma2[3] = 0.0e0;
1448 
1449   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1450     v2sigma2[4] = 0.0e0;
1451 
1452   t712 = t36 * sigma[2];
1453   t715 = t42 * t81;
1454   t718 = 0.2e1 * t28 * t86 + 0.6e1 * t712 * t91 + 0.12e2 * t715 * t97;
1455   t719 = t18 * t718;
1456   t722 = 0.3e1 / 0.10e2 * t73 * t719 * t110;
1457   t725 = 0.3e1 / 0.5e1 * t73 * t275 * t289;
1458   t726 = t288 * t288;
1459   t727 = t522 * t726;
1460   t730 = 0.3e1 / 0.5e1 * t73 * t100 * t727;
1461   t733 = t58 * sigma[2];
1462   t736 = t61 * t81;
1463   t739 = 0.2e1 * t55 * t86 + 0.6e1 * t733 * t91 + 0.12e2 * t736 * t97;
1464   t740 = t218 * t739;
1465   t743 = 0.3e1 / 0.10e2 * t73 * t100 * t740;
1466   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1467     v2sigma2[5] = t8 * (t722 - t725 + t730 - t743);
1468 
1469 #ifndef XC_DONT_COMPILE_KXC
1470 
1471   if(order < 3) return;
1472 
1473 
1474   t751 = t328 / 0.5e1;
1475   t756 = t399 / 0.5e1;
1476   t760 = 0.1e1 / t13 / t12;
1477   t761 = t6 * t760;
1478   t762 = t300 * t121;
1479   t763 = t65 * t762;
1480   t765 = t761 * t50 * t763;
1481   t766 = t765 / 0.9e1;
1482   t768 = t299 * t127 * t301;
1483   t771 = t116 * t326 * t122;
1484   t772 = t771 / 0.3e1;
1485   t774 = t16 * t127 * t365;
1486   t777 = t16 * t151 * t365;
1487   t778 = 0.9e1 / 0.5e1 * t777;
1488   t779 = t155 * t155;
1489   t780 = 0.1e1 / t779;
1490   t781 = t364 * t165;
1491   t782 = t780 * t781;
1492   t784 = t16 * t50 * t782;
1493   t785 = 0.9e1 / 0.5e1 * t784;
1494   t787 = 0.1e1 / t70 / t69;
1495   t788 = t6 * t787;
1496   t789 = t384 * t171;
1497   t790 = t110 * t789;
1498   t792 = t788 * t100 * t790;
1499   t793 = t792 / 0.9e1;
1500   t795 = t383 * t176 * t385;
1501   t798 = t170 * t397 * t172;
1502   t799 = t798 / 0.3e1;
1503   t801 = t299 * t151 * t301;
1504   t803 = t116 * t330 * t122;
1505   t806 = t116 * t127 * t320;
1506   t808 = t116 * t355 * t122;
1507   t809 = 0.3e1 / 0.2e1 * t808;
1508   t811 = t116 * t151 * t320;
1509   t812 = 0.3e1 / 0.2e1 * t811;
1510   t813 = t117 * t117;
1511   t814 = 0.1e1 / t813;
1512   t815 = t7 * t814;
1513   t817 = 0.3e1 * t317 - 0.3e1 * t815;
1514   t818 = t65 * t817;
1515   t820 = t116 * t50 * t818;
1516   t821 = t820 / 0.2e1;
1517   t823 = t16 * t326 * t166;
1518   t824 = t823 / 0.5e1;
1519   t826 = t16 * t330 * t166;
1520   t829 = t16 * t127 * t378;
1521   t831 = -t766 + 0.2e1 / 0.3e1 * t768 - t772 + 0.6e1 / 0.5e1 * t774 + t778 - t785 - t793 + 0.2e1 / 0.3e1 * t795 - t799 + t801 + 0.2e1 * t803 + t806 + t809 + t812 + t821 + t824 - 0.6e1 / 0.5e1 * t826 - 0.3e1 / 0.5e1 * t829;
1522   t833 = t16 * t355 * t166;
1523   t834 = 0.9e1 / 0.10e2 * t833;
1524   t836 = t16 * t151 * t378;
1525   t837 = 0.9e1 / 0.10e2 * t836;
1526   t839 = 0.1e1 / t24 / t32;
1527   t843 = 0.1e1 / t23 / t39;
1528   t846 = 0.1e1 / t145;
1529   t851 = 0.1e1 / t24 / t39 / t32;
1530   t854 = -0.1232e4 / 0.27e2 * t53 * t839 - 0.6688e4 / 0.27e2 * t56 * t843 - 0.720e3 * t59 * t846 - 0.42560e5 / 0.27e2 * t62 * t851;
1531   t855 = t156 * t854;
1532   t857 = t16 * t50 * t855;
1533   t858 = 0.3e1 / 0.10e2 * t857;
1534   t860 = t170 * t176 * t393;
1535   t861 = -t817;
1536   t862 = t110 * t861;
1537   t864 = t170 * t100 * t862;
1538   t865 = t864 / 0.2e1;
1539   t866 = t300 * t165;
1540   t867 = t312 * t866;
1541   t868 = t404 * t867;
1542   t869 = t121 * t319;
1543   t870 = t405 * t869;
1544   t871 = t404 * t870;
1545   t873 = t6 * t14 * t126;
1546   t874 = t873 * t314;
1547   t876 = t150 * t156;
1548   t877 = t876 * t313;
1549   t878 = t311 * t877;
1550   t879 = 0.3e1 * t878;
1551   t880 = t319 * t165;
1552   t881 = t312 * t880;
1553   t882 = t311 * t881;
1554   t883 = 0.3e1 / 0.2e1 * t882;
1555   t884 = t121 * t377;
1556   t885 = t312 * t884;
1557   t886 = t311 * t885;
1558   t887 = 0.3e1 / 0.2e1 * t886;
1559   t888 = t165 * t377;
1560   t889 = t580 * t888;
1561   t890 = t579 * t889;
1562   t891 = 0.9e1 / 0.5e1 * t890;
1563   t892 = t171 * t392;
1564   t893 = t432 * t892;
1565   t894 = t431 * t893;
1566   t895 = t121 * t364;
1567   t896 = t580 * t895;
1568   t897 = t311 * t896;
1569   t898 = 0.3e1 * t897;
1570   t899 = t422 * t65;
1571   t900 = t16 * t899;
1572   t901 = 0.4e1 / 0.45e2 * t900;
1573   t902 = t440 * t110;
1574   t903 = t73 * t902;
1575   t904 = 0.4e1 / 0.45e2 * t903;
1576   t905 = t325 * t150;
1577   t907 = t16 * t905 * t65;
1578   t908 = t907 / 0.5e1;
1579   t909 = t126 * t354;
1580   t911 = t16 * t909 * t65;
1581   t921 = -0.1232e4 / 0.27e2 * t21 * t839 - 0.6688e4 / 0.27e2 * t30 * t843 - 0.720e3 * t38 * t846 - 0.42560e5 / 0.27e2 * t44 * t851;
1582   t922 = t18 * t921;
1583   t924 = t16 * t922 * t65;
1584   t925 = 0.3e1 / 0.10e2 * t924;
1585   t926 = -t834 - t837 - t858 + t860 + t865 - t868 + t871 - 0.2e1 * t874 - t879 - t883 - t887 + t891 + t894 + t898 + t901 + t904 - t908 + 0.3e1 / 0.5e1 * t911 + t925;
1586   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1587     v3rho3[0] = t387 + 0.9e1 / 0.5e1 * t367 + 0.2e1 * t390 + 0.2e1 * t306 - 0.3e1 * t315 + t303 + 0.3e1 * t309 + 0.3e1 / 0.2e1 * t322 - t751 - 0.6e1 / 0.5e1 * t335 - 0.9e1 / 0.5e1 * t360 - 0.9e1 / 0.10e2 * t380 + 0.3e1 / 0.2e1 * t395 - t756 + 0.6e1 / 0.5e1 * t332 + 0.9e1 / 0.10e2 * t357 + t8 * (t831 + t926);
1588 
1589   t929 = t406 * t165;
1590   t930 = t312 * t929;
1591   t931 = t404 * t930;
1592   t934 = t116 * t330 * t184;
1593   t935 = 0.2e1 / 0.3e1 * t934;
1594   t937 = t116 * t355 * t184;
1595   t940 = 0.1e1 / t17 / t316;
1596   t941 = t940 * t99;
1597   t943 = t170 * t941 * t441;
1598   t946 = t170 * t213 * t393;
1599   t949 = t116 * t326 * t184;
1600   t951 = t940 * t49;
1601   t953 = t116 * t951 * t423;
1602   t955 = t421 * t150;
1603   t957 = t116 * t955 * t423;
1604   t959 = t170 * t397 * t189;
1605   t962 = t383 * t213 * t385;
1606   t965 = t170 * t449 * t172;
1607   t966 = 0.2e1 / 0.3e1 * t965;
1608   t968 = t73 * t397 * t228;
1609   t970 = -0.2e1 / 0.3e1 * t931 + t935 + t937 / 0.2e1 + 0.5e1 / 0.6e1 * t943 + t946 / 0.2e1 - t949 / 0.9e1 - 0.5e1 / 0.6e1 * t953 + t957 - t959 / 0.9e1 + t962 / 0.3e1 + t966 + t968 / 0.15e2;
1610   t983 = t6 * t382 * t421;
1611   t984 = t7 * t171;
1612   t985 = t432 * t984;
1613   t986 = t983 * t985;
1614   t988 = 0.2e1 / 0.9e1 * t768 - 0.2e1 / 0.9e1 * t771 + 0.2e1 / 0.5e1 * t774 + 0.2e1 / 0.9e1 * t795 - 0.2e1 / 0.9e1 * t798 + 0.2e1 / 0.3e1 * t803 + t806 / 0.3e1 + 0.2e1 / 0.15e2 * t823 - 0.2e1 / 0.5e1 * t826 - t829 / 0.5e1 + t860 / 0.3e1 - 0.2e1 / 0.3e1 * t986;
1615   t990 = t227 * t392;
1616   t991 = t455 * t990;
1617   t992 = t454 * t991;
1618   t995 = t6 * t760 * t18;
1619   t996 = t183 * t300;
1620   t997 = t405 * t996;
1621   t998 = t995 * t997;
1622   t1001 = t6 * t298 * t126;
1623   t1002 = t1001 * t407;
1624   t1003 = 0.4e1 / 0.9e1 * t1002;
1625   t1005 = t6 * t298 * t421;
1626   t1006 = t7 * t121;
1627   t1007 = t405 * t1006;
1628   t1008 = t1005 * t1007;
1629   t1010 = t183 * t364;
1630   t1011 = t580 * t1010;
1631   t1012 = t311 * t1011;
1632   t1014 = t6 * t14 * t421;
1633   t1015 = t7 * t165;
1634   t1016 = t312 * t1015;
1635   t1017 = t1014 * t1016;
1636   t1019 = t6 * t787 * t18;
1637   t1020 = t188 * t384;
1638   t1021 = t432 * t1020;
1639   t1022 = t1019 * t1021;
1640   t1025 = t6 * t382 * t126;
1641   t1026 = t1025 * t434;
1642   t1027 = 0.4e1 / 0.9e1 * t1026;
1643   t1028 = t227 * t384;
1644   t1029 = t455 * t1028;
1645   t1030 = t431 * t1029;
1646   t1033 = t6 * t71 * t126;
1647   t1034 = t1033 * t457;
1648   t1035 = 0.2e1 / 0.3e1 * t1034;
1649   t1036 = t150 * t65;
1650   t1037 = t1036 * t406;
1651   t1038 = t404 * t1037;
1652   t1040 = t183 * t319;
1653   t1041 = t405 * t1040;
1654   t1042 = t404 * t1041;
1655   t1044 = -t992 / 0.2e1 - t998 / 0.9e1 + t1003 + 0.2e1 / 0.3e1 * t1008 + t1012 - t1017 - t1022 / 0.9e1 + t1027 - t1030 / 0.3e1 - t1035 + 0.2e1 / 0.3e1 * t1038 + t1042 / 0.3e1;
1656   t1045 = t873 * t417;
1657   t1046 = 0.2e1 / 0.3e1 * t1045;
1658   t1047 = t876 * t416;
1659   t1048 = t311 * t1047;
1660   t1049 = t183 * t377;
1661   t1050 = t312 * t1049;
1662   t1051 = t311 * t1050;
1663   t1053 = t188 * t392;
1664   t1054 = t432 * t1053;
1665   t1055 = t431 * t1054;
1666   t1060 = t116 * t899;
1667   t1062 = t170 * t902;
1668   t1064 = t325 * t212;
1669   t1066 = t73 * t1064 * t110;
1670   t1068 = -t1046 - t1048 - t1051 / 0.2e1 + t1055 / 0.3e1 - 0.2e1 / 0.3e1 * t874 + t901 + t904 - 0.2e1 / 0.15e2 * t907 + t911 / 0.5e1 + t1060 / 0.2e1 - t1062 / 0.2e1 - t1066 / 0.15e2;
1671   t1074 = t8 * (t970 + t988 + t1044 + t1068) - 0.4e1 / 0.5e1 * t335 - t361 + t368 - t381 + t388 + 0.4e1 / 0.3e1 * t390 + t396 + t472 + t414 + t425 + t483 - t443 + t447;
1672   t1075 = 0.2e1 / 0.3e1 * t408;
1673   t1076 = 0.2e1 / 0.3e1 * t435;
1674   t1079 = -t495 - t458 - t315 + t1075 - t418 + t1076 - t751 + 0.4e1 / 0.5e1 * t332 + t358 - t756 + t494 + t304 + 0.4e1 / 0.3e1 * t306 + t309 + t323;
1675   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1676     v3rho3[1] = t1074 + t1079;
1677 
1678   t1080 = t188 * t7;
1679   t1081 = t432 * t1080;
1680   t1082 = t983 * t1081;
1681   t1084 = t212 * t110;
1682   t1085 = t1084 * t433;
1683   t1086 = t431 * t1085;
1684   t1089 = t6 * t71 * t421;
1685   t1090 = t7 * t227;
1686   t1091 = t455 * t1090;
1687   t1092 = t1089 * t1091;
1688   t1093 = t489 * t171;
1689   t1094 = t432 * t1093;
1690   t1095 = t431 * t1094;
1691   t1097 = t212 * t218;
1692   t1098 = t1097 * t456;
1693   t1099 = t454 * t1098;
1694   t1100 = t523 * t171;
1695   t1101 = t655 * t1100;
1696   t1102 = t454 * t1101;
1697   t1103 = t536 * t171;
1698   t1104 = t455 * t1103;
1699   t1105 = t454 * t1104;
1700   t1107 = t183 * t7;
1701   t1108 = t405 * t1107;
1702   t1109 = t1005 * t1108;
1703   t1111 = t1033 * t487;
1704   t1113 = t467 * t121;
1705   t1114 = t405 * t1113;
1706   t1115 = t995 * t1114;
1707   t1117 = t467 * t165;
1708   t1118 = t312 * t1117;
1709   t1119 = t404 * t1118;
1710   t1121 = t473 * t121;
1711   t1122 = t405 * t1121;
1712   t1123 = t404 * t1122;
1713   t1125 = -0.2e1 / 0.3e1 * t1082 + 0.2e1 / 0.3e1 * t1086 + t1092 + t1095 / 0.3e1 - t1099 + t1102 - t1105 / 0.2e1 + 0.2e1 / 0.3e1 * t1109 - 0.2e1 / 0.3e1 * t1111 - t1115 / 0.9e1 - t1119 / 0.3e1 + t1123 / 0.3e1;
1714   t1126 = t473 * t165;
1715   t1127 = t312 * t1126;
1716   t1128 = t311 * t1127;
1717   t1130 = t478 * t171;
1718   t1131 = t432 * t1130;
1719   t1132 = t1019 * t1131;
1720   t1134 = t486 * t171;
1721   t1135 = t455 * t1134;
1722   t1136 = t431 * t1135;
1723   t1139 = t299 * t127 * t468;
1724   t1142 = t116 * t127 * t474;
1725   t1145 = t383 * t176 * t479;
1726   t1148 = t170 * t449 * t189;
1727   t1151 = t170 * t176 * t490;
1728   t1154 = t73 * t449 * t228;
1729   t1157 = t73 * t176 * t524;
1730   t1160 = t73 * t176 * t537;
1731   t1163 = t299 * t151 * t468;
1732   t1165 = -t1128 / 0.2e1 - t1132 / 0.9e1 - 0.2e1 / 0.3e1 * t1136 + 0.2e1 / 0.9e1 * t1139 + t1142 / 0.3e1 + 0.2e1 / 0.9e1 * t1145 + 0.2e1 / 0.3e1 * t1148 + t1151 / 0.3e1 - 0.2e1 / 0.5e1 * t1154 + 0.2e1 / 0.5e1 * t1157 - t1160 / 0.5e1 + t1163 / 0.3e1;
1733   t1168 = t116 * t151 * t474;
1734   t1171 = -t317 - 0.3e1 * t815;
1735   t1172 = t65 * t1171;
1736   t1174 = t116 * t50 * t1172;
1737   t1176 = t421 * t212;
1738   t1178 = t170 * t1176 * t441;
1739   t1179 = -t1171;
1740   t1180 = t110 * t1179;
1741   t1182 = t170 * t100 * t1180;
1742   t1185 = t170 * t514 * t172;
1743   t1192 = t1168 / 0.2e1 + t1174 / 0.2e1 - t1178 + t1182 / 0.2e1 + t1185 / 0.2e1 + t935 - 0.2e1 / 0.3e1 * t943 - 0.2e1 / 0.9e1 * t949 + 0.2e1 / 0.3e1 * t953 - 0.2e1 / 0.9e1 * t959 + t966 + 0.2e1 / 0.15e2 * t968;
1744   t1196 = t126 * t513;
1745   t1198 = t73 * t1196 * t110;
1746   t1202 = -t771 / 0.9e1 - t798 / 0.9e1 + t823 / 0.15e2 + t1003 + t1027 - t1035 - t1046 + t1198 / 0.5e1 + t901 + t904 - t907 / 0.15e2 - 0.2e1 / 0.15e2 * t1066;
1747   t1207 = t8 * (t1125 + t1165 + t1192 + t1202) + t471 + t477 + t482 + t485 + t493 - t520 + t527 - t540 - t336 + t391 + 0.4e1 / 0.3e1 * t411 + t414 + t425;
1748   t1211 = 0.4e1 / 0.3e1 * t438 - t443 + t447 - 0.4e1 / 0.5e1 * t461 - t458 - t488 + t1075 - t418 + t1076 + t517 - t751 + t333 - t756 + 0.4e1 / 0.5e1 * t451 + t307;
1749   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1750     v3rho3[2] = t1207 + t1211;
1751 
1752   t1224 = t188 * t523;
1753   t1225 = t655 * t1224;
1754   t1226 = t454 * t1225;
1755   t1227 = 0.3e1 * t1226;
1756   t1228 = t183 * t473;
1757   t1229 = t405 * t1228;
1758   t1230 = t404 * t1229;
1759   t1231 = t478 * t227;
1760   t1232 = t455 * t1231;
1761   t1233 = t431 * t1232;
1762   t1234 = t188 * t489;
1763   t1235 = t432 * t1234;
1764   t1236 = t431 * t1235;
1765   t1237 = t1097 * t486;
1766   t1238 = t454 * t1237;
1767   t1239 = 0.3e1 * t1238;
1768   t1240 = t489 * t227;
1769   t1241 = t455 * t1240;
1770   t1242 = t454 * t1241;
1771   t1243 = 0.3e1 / 0.2e1 * t1242;
1772   t1244 = t188 * t536;
1773   t1245 = t455 * t1244;
1774   t1246 = t454 * t1245;
1775   t1247 = 0.3e1 / 0.2e1 * t1246;
1776   t1248 = t227 * t536;
1777   t1249 = t655 * t1248;
1778   t1250 = t654 * t1249;
1779   t1251 = 0.9e1 / 0.5e1 * t1250;
1780   t1254 = -0.3e1 * t317 - 0.3e1 * t815;
1781   t1255 = t65 * t1254;
1782   t1257 = t116 * t50 * t1255;
1783   t1258 = t1257 / 0.2e1;
1784   t1260 = t383 * t213 * t479;
1785   t1262 = t170 * t514 * t189;
1786   t1263 = 0.3e1 / 0.2e1 * t1262;
1787   t1265 = t170 * t213 * t490;
1788   t1266 = 0.3e1 / 0.2e1 * t1265;
1789   t1267 = -t1254;
1790   t1268 = t110 * t1267;
1791   t1270 = t170 * t100 * t1268;
1792   t1271 = t1270 / 0.2e1;
1793   t1273 = t73 * t514 * t228;
1794   t1274 = 0.9e1 / 0.10e2 * t1273;
1795   t1276 = t73 * t213 * t537;
1796   t1277 = 0.9e1 / 0.10e2 * t1276;
1797   t1279 = 0.1e1 / t77 / t84;
1798   t1283 = 0.1e1 / t76 / t90;
1799   t1286 = 0.1e1 / t207;
1800   t1291 = 0.1e1 / t77 / t90 / t84;
1801   t1294 = -0.1232e4 / 0.27e2 * t101 * t1279 - 0.6688e4 / 0.27e2 * t103 * t1283 - 0.720e3 * t105 * t1286 - 0.42560e5 / 0.27e2 * t107 * t1291;
1802   t1295 = t218 * t1294;
1803   t1297 = t73 * t100 * t1295;
1804   t1298 = 0.3e1 / 0.10e2 * t1297;
1805   t1299 = t467 * t183;
1806   t1300 = t65 * t1299;
1807   t1302 = t761 * t50 * t1300;
1808   t1303 = t1302 / 0.9e1;
1809   t1304 = t1227 + t1230 - t1233 + t1236 - t1239 - t1243 - t1247 + t1251 - 0.2e1 * t1111 + t1258 + t1260 + t1263 + t1266 + t1271 - t1274 - t1277 - t1298 - t1303;
1810   t1305 = t478 * t188;
1811   t1306 = t110 * t1305;
1812   t1308 = t788 * t100 * t1306;
1813   t1309 = t1308 / 0.9e1;
1814   t1311 = t73 * t213 * t524;
1815   t1312 = 0.9e1 / 0.5e1 * t1311;
1816   t1313 = t217 * t217;
1817   t1314 = 0.1e1 / t1313;
1818   t1315 = t523 * t227;
1819   t1316 = t1314 * t1315;
1820   t1318 = t73 * t100 * t1316;
1821   t1319 = 0.9e1 / 0.5e1 * t1318;
1822   t1326 = t949 / 0.3e1;
1823   t1327 = t959 / 0.3e1;
1824   t1328 = t968 / 0.5e1;
1825   t1338 = -0.1232e4 / 0.27e2 * t74 * t1279 - 0.6688e4 / 0.27e2 * t82 * t1283 - 0.720e3 * t89 * t1286 - 0.42560e5 / 0.27e2 * t94 * t1291;
1826   t1339 = t18 * t1338;
1827   t1341 = t73 * t1339 * t110;
1828   t1342 = 0.3e1 / 0.10e2 * t1341;
1829   t1343 = t1066 / 0.5e1;
1830   t1344 = -t1309 + t1312 - t1319 + 0.2e1 / 0.3e1 * t1139 + t1142 + 0.2e1 / 0.3e1 * t1145 + 0.2e1 * t1148 + t1151 - 0.6e1 / 0.5e1 * t1154 + 0.6e1 / 0.5e1 * t1157 - 0.3e1 / 0.5e1 * t1160 - t1326 - t1327 + t1328 + 0.3e1 / 0.5e1 * t1198 + t1342 + t901 + t904 - t1343;
1831   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1832     v3rho3[3] = 0.2e1 * t411 + 0.2e1 * t438 - 0.6e1 / 0.5e1 * t461 + t470 + t481 - 0.3e1 * t488 + 0.9e1 / 0.5e1 * t526 - t751 - t756 + 0.6e1 / 0.5e1 * t451 + 0.3e1 / 0.2e1 * t476 + 0.3e1 * t485 + 0.3e1 / 0.2e1 * t492 - 0.9e1 / 0.5e1 * t519 - 0.9e1 / 0.10e2 * t539 + 0.9e1 / 0.10e2 * t516 + t8 * (t1304 + t1344);
1833 
1834   t1347 = 0.2e1 / 0.5e1 * t550;
1835   t1350 = 0.2e1 / 0.5e1 * t573;
1836   t1354 = t258 * t300;
1837   t1355 = t312 * t1354;
1838   t1356 = t404 * t1355;
1839   t1357 = t1356 / 0.3e1;
1840   t1358 = t873 * t569;
1841   t1359 = 0.2e1 / 0.3e1 * t1358;
1842   t1360 = t49 * t780;
1843   t1361 = t258 * t364;
1844   t1362 = t1360 * t1361;
1845   t1363 = t579 * t1362;
1846   t1364 = 0.9e1 / 0.5e1 * t1363;
1847   t1365 = t244 * t156;
1848   t1366 = t1365 * t313;
1849   t1367 = t311 * t1366;
1850   t1368 = t876 * t568;
1851   t1369 = t311 * t1368;
1852   t1370 = t593 * t121;
1853   t1371 = t312 * t1370;
1854   t1372 = t311 * t1371;
1855   t1373 = t258 * t319;
1856   t1374 = t312 * t1373;
1857   t1375 = t311 * t1374;
1858   t1376 = t1375 / 0.2e1;
1859   t1378 = t6 * t15 * t126;
1860   t1379 = t1378 * t582;
1861   t1380 = 0.4e1 / 0.5e1 * t1379;
1862   t1381 = t150 * t363;
1863   t1382 = t1381 * t581;
1864   t1383 = t579 * t1382;
1865   t1384 = 0.6e1 / 0.5e1 * t1383;
1866   t1385 = t593 * t165;
1867   t1386 = t580 * t1385;
1868   t1387 = t579 * t1386;
1869   t1388 = 0.6e1 / 0.5e1 * t1387;
1870   t1389 = t258 * t377;
1871   t1390 = t580 * t1389;
1872   t1391 = t579 * t1390;
1873   t1392 = 0.3e1 / 0.5e1 * t1391;
1874   t1393 = t568 * t165;
1875   t1394 = t580 * t1393;
1876   t1395 = t311 * t1394;
1877   t1396 = 0.2e1 * t1395;
1878   t1398 = t299 * t245 * t301;
1879   t1399 = t1398 / 0.3e1;
1880   t1401 = t116 * t548 * t122;
1881   t1402 = 0.2e1 / 0.3e1 * t1401;
1882   t1403 = -t1357 - t1359 - t1364 - t1367 - t1369 - t1372 - t1376 + t1380 + t1384 + t1388 + t1392 + t1396 + t1399 + t1402;
1883   t1405 = t16 * t245 * t365;
1884   t1406 = 0.3e1 / 0.5e1 * t1405;
1885   t1408 = t16 * t326 * t259;
1886   t1409 = t1408 / 0.15e2;
1887   t1411 = t116 * t561 * t122;
1888   t1413 = t116 * t245 * t320;
1889   t1414 = t1413 / 0.2e1;
1890   t1416 = t16 * t548 * t166;
1891   t1417 = 0.2e1 / 0.5e1 * t1416;
1892   t1419 = t16 * t561 * t166;
1893   t1420 = 0.3e1 / 0.5e1 * t1419;
1894   t1422 = t16 * t245 * t378;
1895   t1423 = 0.3e1 / 0.10e2 * t1422;
1896   t1425 = t16 * t330 * t259;
1897   t1426 = 0.2e1 / 0.5e1 * t1425;
1898   t1428 = t16 * t127 * t594;
1899   t1429 = 0.2e1 / 0.5e1 * t1428;
1900   t1431 = t16 * t355 * t259;
1901   t1432 = 0.3e1 / 0.10e2 * t1431;
1902   t1434 = t16 * t151 * t594;
1903   t1435 = 0.3e1 / 0.5e1 * t1434;
1904   t1444 = 0.88e2 / 0.9e1 * t52 * t338 + 0.608e3 / 0.9e1 * t249 * t343 + 0.216e3 * t252 * t346 + 0.4480e4 / 0.9e1 * t255 * t351;
1905   t1445 = t156 * t1444;
1906   t1447 = t16 * t50 * t1445;
1907   t1448 = 0.3e1 / 0.10e2 * t1447;
1908   t1449 = t325 * t244;
1909   t1451 = t16 * t1449 * t65;
1910   t1452 = t1451 / 0.15e2;
1911   t1453 = t126 * t560;
1912   t1455 = t16 * t1453 * t65;
1913   t1456 = 0.2e1 / 0.5e1 * t1455;
1914   t1465 = 0.88e2 / 0.9e1 * t20 * t338 + 0.608e3 / 0.9e1 * t235 * t343 + 0.216e3 * t238 * t346 + 0.4480e4 / 0.9e1 * t241 * t351;
1915   t1466 = t18 * t1465;
1916   t1468 = t16 * t1466 * t65;
1917   t1469 = 0.3e1 / 0.10e2 * t1468;
1918   t1470 = t1406 + t1409 + t1411 + t1414 - t1417 - t1420 - t1423 - t1426 - t1429 - t1432 - t1435 - t1448 - t1452 + t1456 + t1469;
1919   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1920     v3rho2sigma[0] = t546 + t1347 + 0.3e1 / 0.5e1 * t563 - 0.3e1 / 0.5e1 * t566 - t570 - t1350 - 0.3e1 / 0.5e1 * t576 + 0.6e1 / 0.5e1 * t583 - 0.3e1 / 0.5e1 * t596 + t8 * (t1403 + t1470);
1921 
1922   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1923     v3rho2sigma[1] = 0.0e0;
1924 
1925   t1473 = 0.2e1 / 0.5e1 * t607;
1926   t1474 = 0.2e1 / 0.5e1 * t614;
1927   t1476 = t383 * t275 * t385;
1928   t1477 = t1476 / 0.3e1;
1929   t1479 = t170 * t605 * t172;
1930   t1480 = 0.2e1 / 0.3e1 * t1479;
1931   t1482 = t170 * t275 * t393;
1932   t1483 = t1482 / 0.2e1;
1933   t1484 = t325 * t274;
1934   t1486 = t73 * t1484 * t110;
1935   t1487 = t1486 / 0.15e2;
1936   t1488 = t288 * t384;
1937   t1489 = t455 * t1488;
1938   t1490 = t431 * t1489;
1939   t1491 = t1490 / 0.3e1;
1940   t1492 = t1033 * t610;
1941   t1493 = 0.2e1 / 0.3e1 * t1492;
1942   t1494 = t288 * t392;
1943   t1495 = t455 * t1494;
1944   t1496 = t454 * t1495;
1945   t1497 = t1496 / 0.2e1;
1946   t1499 = t73 * t397 * t289;
1947   t1500 = t1499 / 0.15e2;
1948   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1949     v3rho2sigma[2] = t603 + t1473 - t611 - t1474 + t8 * (t1477 + t1480 + t1483 - t1487 - t1491 - t1493 - t1497 + t1500);
1950 
1951   t1503 = t244 * t65;
1952   t1504 = t1503 * t406;
1953   t1505 = t404 * t1504;
1954   t1508 = t116 * t548 * t184;
1955   t1511 = t116 * t561 * t184;
1956   t1513 = t1365 * t416;
1957   t1514 = t311 * t1513;
1958   t1516 = t421 * t244;
1959   t1518 = t116 * t1516 * t423;
1960   t1523 = t621 * t121;
1961   t1524 = t312 * t1523;
1962   t1525 = t404 * t1524;
1963   t1527 = t873 * t622;
1964   t1529 = t876 * t621;
1965   t1530 = t311 * t1529;
1966   t1532 = t621 * t165;
1967   t1533 = t580 * t1532;
1968   t1534 = t311 * t1533;
1969   t1535 = t593 * t183;
1970   t1536 = t312 * t1535;
1971   t1537 = t311 * t1536;
1972   t1539 = t258 * t7;
1973   t1540 = t312 * t1539;
1974   t1541 = t1014 * t1540;
1975   t1547 = t1505 / 0.3e1 + t1508 / 0.3e1 + t1511 / 0.2e1 - t1514 / 0.2e1 + t1518 / 0.2e1 + t1401 / 0.3e1 - t1452 + t1455 / 0.5e1 - t1416 / 0.5e1 - t1525 / 0.3e1 - t1527 / 0.3e1 - t1530 / 0.2e1 + t1534 - t1537 / 0.2e1 - t1541 / 0.2e1 - t1358 / 0.3e1 + t1409 - t1425 / 0.5e1 + 0.2e1 / 0.5e1 * t1379 - t1428 / 0.5e1;
1976   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1977     v3rho2sigma[3] = t1547 * t8 + t1347 - t1350 + t547 + t564 - t567 - t571 - t577 + t584 - t597 + t620 - t624;
1978 
1979   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1980     v3rho2sigma[4] = 0.0e0;
1981 
1982   t1549 = t274 * t110;
1983   t1550 = t1549 * t433;
1984   t1551 = t431 * t1550;
1985   t1554 = t170 * t605 * t189;
1986   t1556 = t421 * t274;
1987   t1558 = t170 * t1556 * t441;
1988   t1562 = t170 * t639 * t172;
1989   t1564 = t126 * t638;
1990   t1566 = t73 * t1564 * t110;
1991   t1568 = t274 * t218;
1992   t1569 = t1568 * t456;
1993   t1570 = t454 * t1569;
1994   t1573 = t73 * t605 * t228;
1995   t1575 = t646 * t171;
1996   t1576 = t455 * t1575;
1997   t1577 = t431 * t1576;
1998   t1579 = t1033 * t647;
1999   t1581 = t288 * t7;
2000   t1582 = t455 * t1581;
2001   t1583 = t1089 * t1582;
2002   t1586 = t1097 * t609;
2003   t1587 = t454 * t1586;
2004   t1590 = t73 * t449 * t289;
2005   t1592 = t656 * t171;
2006   t1593 = t655 * t1592;
2007   t1594 = t454 * t1593;
2008   t1596 = t6 * t72 * t126;
2009   t1597 = t1596 * t657;
2010   t1599 = t668 * t171;
2011   t1600 = t455 * t1599;
2012   t1601 = t454 * t1600;
2013   t1604 = t73 * t176 * t669;
2014   t1606 = t1551 / 0.3e1 + t1554 / 0.3e1 - t1558 / 0.2e1 + t1479 / 0.3e1 - t1487 + t1562 / 0.2e1 + t1566 / 0.5e1 - t1570 / 0.2e1 - t1573 / 0.5e1 - t1577 / 0.3e1 - t1579 / 0.3e1 + t1583 / 0.2e1 - t1492 / 0.3e1 + t1500 - t1587 / 0.2e1 - t1590 / 0.5e1 + t1594 + 0.2e1 / 0.5e1 * t1597 - t1601 / 0.2e1 - t1604 / 0.5e1;
2015   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2016     v3rho2sigma[5] = t1606 * t8 + t1473 - t1474 + t604 - t612 + t629 + t642 - t645 - t649 - t652 + t659 - t672;
2017 
2018   t1609 = t299 * t245 * t468;
2019   t1610 = t1609 / 0.3e1;
2020   t1611 = 0.2e1 / 0.3e1 * t1508;
2021   t1613 = t116 * t245 * t474;
2022   t1614 = t1613 / 0.2e1;
2023   t1615 = t258 * t467;
2024   t1616 = t312 * t1615;
2025   t1617 = t404 * t1616;
2026   t1618 = t1617 / 0.3e1;
2027   t1619 = 0.2e1 / 0.3e1 * t1527;
2028   t1620 = t258 * t473;
2029   t1621 = t312 * t1620;
2030   t1622 = t311 * t1621;
2031   t1623 = t1622 / 0.2e1;
2032   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2033     v3rho2sigma[6] = t619 + t1347 - t623 - t1350 + t8 * (t1610 + t1611 + t1614 - t1452 - t1618 - t1619 - t1623 + t1409);
2034 
2035   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2036     v3rho2sigma[7] = 0.0e0;
2037 
2038   t1631 = t99 * t1314;
2039   t1632 = t288 * t523;
2040   t1633 = t1631 * t1632;
2041   t1634 = t654 * t1633;
2042   t1635 = 0.9e1 / 0.5e1 * t1634;
2043   t1636 = t1568 * t486;
2044   t1637 = t454 * t1636;
2045   t1638 = t1097 * t646;
2046   t1639 = t454 * t1638;
2047   t1640 = t668 * t188;
2048   t1641 = t455 * t1640;
2049   t1642 = t454 * t1641;
2050   t1643 = t288 * t489;
2051   t1644 = t455 * t1643;
2052   t1645 = t454 * t1644;
2053   t1646 = t1645 / 0.2e1;
2054   t1647 = t212 * t522;
2055   t1648 = t1647 * t656;
2056   t1649 = t654 * t1648;
2057   t1650 = 0.6e1 / 0.5e1 * t1649;
2058   t1651 = t668 * t227;
2059   t1652 = t655 * t1651;
2060   t1653 = t654 * t1652;
2061   t1654 = 0.6e1 / 0.5e1 * t1653;
2062   t1655 = t288 * t536;
2063   t1656 = t655 * t1655;
2064   t1657 = t654 * t1656;
2065   t1658 = 0.3e1 / 0.5e1 * t1657;
2066   t1659 = 0.4e1 / 0.5e1 * t1597;
2067   t1660 = t288 * t478;
2068   t1661 = t455 * t1660;
2069   t1662 = t431 * t1661;
2070   t1663 = t1662 / 0.3e1;
2071   t1664 = 0.2e1 / 0.3e1 * t1579;
2072   t1665 = t646 * t227;
2073   t1666 = t655 * t1665;
2074   t1667 = t454 * t1666;
2075   t1668 = 0.2e1 * t1667;
2076   t1670 = t383 * t275 * t479;
2077   t1671 = t1670 / 0.3e1;
2078   t1673 = t73 * t275 * t524;
2079   t1674 = 0.3e1 / 0.5e1 * t1673;
2080   t1675 = -t1635 - t1637 - t1639 - t1642 - t1646 + t1650 + t1654 + t1658 + t1659 - t1663 - t1664 + t1668 + t1671 + t1674;
2081   t1676 = 0.2e1 / 0.3e1 * t1554;
2082   t1677 = 0.2e1 / 0.5e1 * t1573;
2083   t1678 = 0.2e1 / 0.5e1 * t1590;
2084   t1679 = 0.2e1 / 0.5e1 * t1604;
2085   t1681 = t170 * t639 * t189;
2086   t1683 = t170 * t275 * t490;
2087   t1684 = t1683 / 0.2e1;
2088   t1686 = t73 * t639 * t228;
2089   t1687 = 0.3e1 / 0.5e1 * t1686;
2090   t1689 = t73 * t275 * t537;
2091   t1690 = 0.3e1 / 0.10e2 * t1689;
2092   t1692 = t73 * t514 * t289;
2093   t1693 = 0.3e1 / 0.10e2 * t1692;
2094   t1695 = t73 * t213 * t669;
2095   t1696 = 0.3e1 / 0.5e1 * t1695;
2096   t1705 = 0.88e2 / 0.9e1 * t52 * t497 + 0.608e3 / 0.9e1 * t279 * t502 + 0.216e3 * t282 * t505 + 0.4480e4 / 0.9e1 * t285 * t510;
2097   t1706 = t218 * t1705;
2098   t1708 = t73 * t100 * t1706;
2099   t1709 = 0.3e1 / 0.10e2 * t1708;
2100   t1718 = 0.88e2 / 0.9e1 * t20 * t497 + 0.608e3 / 0.9e1 * t265 * t502 + 0.216e3 * t268 * t505 + 0.4480e4 / 0.9e1 * t271 * t510;
2101   t1719 = t18 * t1718;
2102   t1721 = t73 * t1719 * t110;
2103   t1722 = 0.3e1 / 0.10e2 * t1721;
2104   t1723 = 0.2e1 / 0.5e1 * t1566;
2105   t1724 = t1676 - t1677 - t1678 - t1679 + t1681 + t1684 - t1687 - t1690 - t1693 - t1696 - t1709 + t1500 + t1722 - t1487 + t1723;
2106   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2107     v3rho2sigma[8] = t628 + t1473 + 0.3e1 / 0.5e1 * t641 - 0.3e1 / 0.5e1 * t644 - t648 - t1474 - 0.3e1 / 0.5e1 * t651 + 0.6e1 / 0.5e1 * t658 - 0.3e1 / 0.5e1 * t671 + t8 * (t1675 + t1724);
2108 
2109   t1728 = t116 * t684 * t122;
2110   t1729 = t1728 / 0.2e1;
2111   t1730 = t126 * t683;
2112   t1732 = t16 * t1730 * t65;
2113   t1733 = t1732 / 0.5e1;
2114   t1740 = -0.32e2 / 0.3e1 * t28 * t138 - 0.48e2 * t677 * t142 - 0.128e3 * t680 * t147;
2115   t1741 = t18 * t1740;
2116   t1743 = t16 * t1741 * t65;
2117   t1744 = 0.3e1 / 0.10e2 * t1743;
2118   t1746 = t16 * t684 * t166;
2119   t1747 = 0.3e1 / 0.10e2 * t1746;
2120   t1748 = t1365 * t568;
2121   t1749 = t311 * t1748;
2122   t1751 = t16 * t548 * t259;
2123   t1752 = 0.2e1 / 0.5e1 * t1751;
2124   t1754 = t16 * t561 * t259;
2125   t1755 = 0.3e1 / 0.5e1 * t1754;
2126   t1756 = t244 * t363;
2127   t1757 = t1756 * t581;
2128   t1758 = t579 * t1757;
2129   t1759 = 0.6e1 / 0.5e1 * t1758;
2130   t1761 = t16 * t245 * t594;
2131   t1762 = 0.3e1 / 0.5e1 * t1761;
2132   t1763 = t691 * t121;
2133   t1764 = t580 * t1763;
2134   t1765 = t311 * t1764;
2135   t1767 = t16 * t127 * t692;
2136   t1768 = 0.2e1 / 0.5e1 * t1767;
2137   t1770 = t16 * t151 * t692;
2138   t1771 = 0.3e1 / 0.5e1 * t1770;
2139   t1772 = t691 * t165;
2140   t1773 = t1360 * t1772;
2141   t1774 = t579 * t1773;
2142   t1775 = 0.9e1 / 0.5e1 * t1774;
2143   t1776 = t258 * t593;
2144   t1777 = t580 * t1776;
2145   t1778 = t579 * t1777;
2146   t1779 = 0.6e1 / 0.5e1 * t1778;
2147   t1780 = t704 * t121;
2148   t1781 = t312 * t1780;
2149   t1782 = t311 * t1781;
2150   t1783 = t1782 / 0.2e1;
2151   t1785 = t16 * t127 * t705;
2152   t1786 = t1785 / 0.5e1;
2153   t1788 = t16 * t151 * t705;
2154   t1789 = 0.3e1 / 0.10e2 * t1788;
2155   t1790 = t704 * t165;
2156   t1791 = t580 * t1790;
2157   t1792 = t579 * t1791;
2158   t1793 = 0.3e1 / 0.5e1 * t1792;
2159   t1800 = -0.32e2 / 0.3e1 * t55 * t138 - 0.48e2 * t698 * t142 - 0.128e3 * t701 * t147;
2160   t1801 = t156 * t1800;
2161   t1803 = t16 * t50 * t1801;
2162   t1804 = 0.3e1 / 0.10e2 * t1803;
2163   t1805 = t1729 + t1733 + t1744 - t1747 - t1749 - t1752 - t1755 + t1759 - t1762 + t1765 + t1768 + t1771 - t1775 + t1779 - t1783 - t1786 - t1789 + t1793 - t1804;
2164   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2165     v3rhosigma2[0] = t1805 * t8 + t687 - t690 + t695 - t708;
2166 
2167   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2168     v3rhosigma2[1] = 0.0e0;
2169 
2170   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2171     v3rhosigma2[2] = 0.0e0;
2172 
2173   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2174     v3rhosigma2[3] = 0.0e0;
2175 
2176   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2177     v3rhosigma2[4] = 0.0e0;
2178 
2179   t1808 = t170 * t719 * t172;
2180   t1809 = t1808 / 0.2e1;
2181   t1810 = t126 * t718;
2182   t1812 = t73 * t1810 * t110;
2183   t1813 = t1812 / 0.5e1;
2184   t1814 = t1568 * t609;
2185   t1815 = t454 * t1814;
2186   t1817 = t73 * t605 * t289;
2187   t1818 = 0.2e1 / 0.5e1 * t1817;
2188   t1819 = t726 * t171;
2189   t1820 = t655 * t1819;
2190   t1821 = t454 * t1820;
2191   t1823 = t73 * t176 * t727;
2192   t1824 = 0.2e1 / 0.5e1 * t1823;
2193   t1825 = t739 * t171;
2194   t1826 = t455 * t1825;
2195   t1827 = t454 * t1826;
2196   t1828 = t1827 / 0.2e1;
2197   t1830 = t73 * t176 * t740;
2198   t1831 = t1830 / 0.5e1;
2199   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2200     v3rhosigma2[5] = t722 - t725 + t730 - t743 + t8 * (t1809 + t1813 - t1815 - t1818 + t1821 + t1824 - t1828 - t1831);
2201 
2202   t1835 = t116 * t684 * t184;
2203   t1836 = t1835 / 0.2e1;
2204   t1837 = t1365 * t621;
2205   t1838 = t311 * t1837;
2206   t1839 = t691 * t183;
2207   t1840 = t580 * t1839;
2208   t1841 = t311 * t1840;
2209   t1842 = t704 * t183;
2210   t1843 = t312 * t1842;
2211   t1844 = t311 * t1843;
2212   t1845 = t1844 / 0.2e1;
2213   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2214     v3rhosigma2[6] = t687 - t690 + t695 - t708 + t8 * (t1836 + t1733 - t1838 - t1752 + t1841 + t1768 - t1845 - t1786);
2215 
2216   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2217     v3rhosigma2[7] = 0.0e0;
2218 
2219   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2220     v3rhosigma2[8] = 0.0e0;
2221 
2222   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2223     v3rhosigma2[9] = 0.0e0;
2224 
2225   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2226     v3rhosigma2[10] = 0.0e0;
2227 
2228   t1849 = t170 * t719 * t189;
2229   t1850 = t1849 / 0.2e1;
2230   t1857 = -0.32e2 / 0.3e1 * t28 * t200 - 0.48e2 * t712 * t204 - 0.128e3 * t715 * t209;
2231   t1858 = t18 * t1857;
2232   t1860 = t73 * t1858 * t110;
2233   t1861 = 0.3e1 / 0.10e2 * t1860;
2234   t1863 = t73 * t719 * t228;
2235   t1864 = 0.3e1 / 0.10e2 * t1863;
2236   t1865 = t1568 * t646;
2237   t1866 = t454 * t1865;
2238   t1868 = t73 * t639 * t289;
2239   t1869 = 0.3e1 / 0.5e1 * t1868;
2240   t1870 = t274 * t522;
2241   t1871 = t1870 * t656;
2242   t1872 = t654 * t1871;
2243   t1873 = 0.6e1 / 0.5e1 * t1872;
2244   t1875 = t73 * t275 * t669;
2245   t1876 = 0.3e1 / 0.5e1 * t1875;
2246   t1877 = t726 * t188;
2247   t1878 = t655 * t1877;
2248   t1879 = t454 * t1878;
2249   t1881 = t73 * t213 * t727;
2250   t1882 = 0.3e1 / 0.5e1 * t1881;
2251   t1883 = t726 * t227;
2252   t1884 = t1631 * t1883;
2253   t1885 = t654 * t1884;
2254   t1886 = 0.9e1 / 0.5e1 * t1885;
2255   t1887 = t288 * t668;
2256   t1888 = t655 * t1887;
2257   t1889 = t654 * t1888;
2258   t1890 = 0.6e1 / 0.5e1 * t1889;
2259   t1891 = t739 * t188;
2260   t1892 = t455 * t1891;
2261   t1893 = t454 * t1892;
2262   t1894 = t1893 / 0.2e1;
2263   t1896 = t73 * t213 * t740;
2264   t1897 = 0.3e1 / 0.10e2 * t1896;
2265   t1898 = t739 * t227;
2266   t1899 = t655 * t1898;
2267   t1900 = t654 * t1899;
2268   t1901 = 0.3e1 / 0.5e1 * t1900;
2269   t1908 = -0.32e2 / 0.3e1 * t55 * t200 - 0.48e2 * t733 * t204 - 0.128e3 * t736 * t209;
2270   t1909 = t218 * t1908;
2271   t1911 = t73 * t100 * t1909;
2272   t1912 = 0.3e1 / 0.10e2 * t1911;
2273   t1913 = t1850 + t1813 + t1861 - t1864 - t1866 - t1818 - t1869 + t1873 - t1876 + t1879 + t1824 + t1882 - t1886 + t1890 - t1894 - t1831 - t1897 + t1901 - t1912;
2274   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2275     v3rhosigma2[11] = t1913 * t8 + t722 - t725 + t730 - t743;
2276 
2277   t1917 = t42 * sigma[0];
2278   t1920 = 0.24e2 * t1917 * t47 + 0.6e1 * t36 * t40;
2279   t1921 = t18 * t1920;
2280   t1924 = 0.3e1 / 0.10e2 * t16 * t1921 * t65;
2281   t1927 = 0.9e1 / 0.10e2 * t16 * t684 * t259;
2282   t1930 = 0.9e1 / 0.5e1 * t16 * t245 * t692;
2283   t1933 = 0.9e1 / 0.10e2 * t16 * t245 * t705;
2284   t1934 = t691 * t258;
2285   t1935 = t780 * t1934;
2286   t1938 = 0.9e1 / 0.5e1 * t16 * t50 * t1935;
2287   t1939 = t258 * t704;
2288   t1940 = t580 * t1939;
2289   t1942 = 0.9e1 / 0.5e1 * t579 * t1940;
2290   t1945 = t61 * sigma[0];
2291   t1948 = 0.24e2 * t1945 * t47 + 0.6e1 * t40 * t58;
2292   t1949 = t156 * t1948;
2293   t1952 = 0.3e1 / 0.10e2 * t16 * t50 * t1949;
2294   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2295     v3sigma3[0] = t8 * (t1924 - t1927 + t1930 - t1933 - t1938 + t1942 - t1952);
2296 
2297   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2298     v3sigma3[1] = 0.0e0;
2299 
2300   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2301     v3sigma3[2] = 0.0e0;
2302 
2303   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2304     v3sigma3[3] = 0.0e0;
2305 
2306   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2307     v3sigma3[4] = 0.0e0;
2308 
2309   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2310     v3sigma3[5] = 0.0e0;
2311 
2312   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2313     v3sigma3[6] = 0.0e0;
2314 
2315   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2316     v3sigma3[7] = 0.0e0;
2317 
2318   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2319     v3sigma3[8] = 0.0e0;
2320 
2321   t1956 = t42 * sigma[2];
2322   t1959 = 0.24e2 * t1956 * t97 + 0.6e1 * t36 * t91;
2323   t1960 = t18 * t1959;
2324   t1963 = 0.3e1 / 0.10e2 * t73 * t1960 * t110;
2325   t1966 = 0.9e1 / 0.10e2 * t73 * t719 * t289;
2326   t1969 = 0.9e1 / 0.5e1 * t73 * t275 * t727;
2327   t1972 = 0.9e1 / 0.10e2 * t73 * t275 * t740;
2328   t1973 = t726 * t288;
2329   t1974 = t1314 * t1973;
2330   t1977 = 0.9e1 / 0.5e1 * t73 * t100 * t1974;
2331   t1978 = t288 * t739;
2332   t1979 = t655 * t1978;
2333   t1981 = 0.9e1 / 0.5e1 * t654 * t1979;
2334   t1984 = t61 * sigma[2];
2335   t1987 = 0.24e2 * t1984 * t97 + 0.6e1 * t58 * t91;
2336   t1988 = t218 * t1987;
2337   t1991 = 0.3e1 / 0.10e2 * t73 * t100 * t1988;
2338   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2339     v3sigma3[9] = t8 * (t1963 - t1966 + t1969 - t1972 - t1977 + t1981 - t1991);
2340 
2341 #ifndef XC_DONT_COMPILE_LXC
2342 
2343   if(order < 4) return;
2344 
2345 
2346   t2012 = t1025 * t893;
2347   t2022 = t873 * t896;
2348   t2039 = t1001 * t867;
2349   t2041 = t1001 * t870;
2350   t2058 = t6 * t14 * t325;
2351   t2059 = t2058 * t314;
2352   t2061 = 0.36e2 / 0.5e1 * t579 * t1381 * t888 - 0.12e2 * t311 * t1360 * t781 * t121 - 0.54e2 / 0.5e1 * t579 * t1360 * t364 * t377 + 0.12e2 / 0.5e1 * t579 * t580 * t165 * t854 - 0.2e1 / 0.3e1 * t1019 * t432 * t384 * t392 + 0.8e1 / 0.3e1 * t2012 + 0.4e1 / 0.3e1 * t431 * t432 * t171 * t861 + 0.4e1 * t404 * t580 * t300 * t364 + 0.8e1 * t2022 + 0.12e2 * t311 * t1381 * t895 + 0.6e1 * t311 * t580 * t319 * t364 + 0.4e1 / 0.9e1 * t995 * t312 * t762 * t165 - 0.2e1 / 0.3e1 * t995 * t405 * t300 * t319 - 0.8e1 / 0.3e1 * t2039 + 0.8e1 / 0.3e1 * t2041 - 0.4e1 * t404 * t876 * t866 - 0.2e1 * t404 * t312 * t300 * t377 + 0.4e1 * t404 * t1036 * t869 + 0.4e1 / 0.3e1 * t404 * t405 * t121 * t817 + 0.4e1 / 0.3e1 * t2059;
2353   t2062 = t873 * t877;
2354   t2064 = t873 * t881;
2355   t2066 = t873 * t885;
2356   t2068 = t354 * t156;
2357   t2090 = t1378 * t889;
2358   t2101 = t16 * t905 * t166;
2359   t2104 = t16 * t326 * t378;
2360   t2107 = t16 * t909 * t166;
2361   t2110 = t16 * t330 * t378;
2362   t2113 = t16 * t127 * t855;
2363   t2124 = -0.8e1 * t2062 - 0.4e1 * t2064 - 0.4e1 * t2066 - 0.6e1 * t311 * t2068 * t313 - 0.6e1 * t311 * t876 * t880 - 0.6e1 * t311 * t876 * t884 - 0.2e1 * t311 * t312 * t817 * t165 - 0.3e1 * t311 * t312 * t319 * t377 - 0.2e1 * t311 * t312 * t121 * t854 + 0.24e2 / 0.5e1 * t2090 + 0.12e2 * t311 * t580 * t884 * t165 - 0.4e1 * t404 * t312 * t313 * t319 + 0.4e1 / 0.5e1 * t2101 + 0.2e1 / 0.5e1 * t2104 - 0.12e2 / 0.5e1 * t2107 - 0.12e2 / 0.5e1 * t2110 - 0.4e1 / 0.5e1 * t2113 - 0.6e1 / 0.5e1 * t16 * t922 * t166 - 0.9e1 / 0.5e1 * t16 * t355 * t378 - 0.6e1 / 0.5e1 * t16 * t151 * t855;
2364   t2127 = 0.1e1 / t24 / t136;
2365   t2131 = 0.1e1 / t23 / t141;
2366   t2134 = 0.1e1 / t349;
2367   t2139 = 0.1e1 / t24 / t39 / t136;
2368   t2148 = t170 * t176 * t862;
2369   t2150 = t813 * t8;
2370   t2152 = t7 / t2150;
2371   t2154 = 0.12e2 * t814 - 0.12e2 * t2152;
2372   t2159 = t12 * t12;
2373   t2161 = 0.1e1 / t13 / t2159;
2374   t2162 = t6 * t2161;
2375   t2163 = t300 * t300;
2376   t2169 = t761 * t127 * t763;
2377   t2172 = t299 * t326 * t301;
2378   t2174 = t319 * t319;
2379   t2178 = t422 * t122;
2380   t2179 = t116 * t2178;
2381   t2182 = t16 * t326 * t365;
2382   t2185 = t16 * t127 * t782;
2383   t2191 = 0.1e1 / t779 / t64;
2384   t2192 = t364 * t364;
2385   t2197 = t377 * t377;
2386   t2202 = t69 * t69;
2387   t2204 = 0.1e1 / t70 / t2202;
2388   t2205 = t6 * t2204;
2389   t2206 = t384 * t384;
2390   t2212 = t788 * t176 * t790;
2391   t2215 = t383 * t397 * t385;
2392   t2217 = t392 * t392;
2393   t2221 = t440 * t172;
2394   t2222 = t170 * t2221;
2395   t2228 = t299 * t330 * t301;
2396   t2230 = -0.3e1 / 0.10e2 * t16 * t50 * t156 * (0.20944e5 / 0.81e2 * t53 * t2127 + 0.167200e6 / 0.81e2 * t56 * t2131 + 0.7920e4 * t59 * t2134 + 0.1744960e7 / 0.81e2 * t62 * t2139) + 0.4e1 / 0.3e1 * t2148 + t170 * t100 * t110 * t2154 / 0.2e1 + 0.4e1 / 0.27e2 * t2162 * t50 * t65 * t2163 - 0.8e1 / 0.27e2 * t2169 - 0.4e1 / 0.9e1 * t2172 + t299 * t50 * t65 * t2174 + 0.16e2 / 0.27e2 * t2179 - 0.4e1 / 0.5e1 * t2182 - 0.24e2 / 0.5e1 * t2185 - 0.36e2 / 0.5e1 * t16 * t151 * t782 + 0.36e2 / 0.5e1 * t16 * t50 * t2191 * t2192 + 0.9e1 / 0.5e1 * t16 * t50 * t363 * t2197 + 0.4e1 / 0.27e2 * t2205 * t100 * t110 * t2206 - 0.8e1 / 0.27e2 * t2212 - 0.4e1 / 0.9e1 * t2215 + t383 * t100 * t110 * t2217 + 0.16e2 / 0.27e2 * t2222 - 0.4e1 / 0.9e1 * t761 * t151 * t763 + 0.8e1 / 0.3e1 * t2228;
2397   t2232 = t116 * t905 * t122;
2398   t2235 = t116 * t326 * t320;
2399   t2238 = t16 * t330 * t365;
2400   t2244 = t170 * t397 * t393;
2401   t2250 = t116 * t909 * t122;
2402   t2253 = t116 * t330 * t320;
2403   t2256 = t116 * t127 * t818;
2404   t2272 = t422 * t166;
2405   t2273 = t16 * t2272;
2406   t2275 = t955 * t65;
2407   t2276 = t16 * t2275;
2408   t2280 = t16 * t325 * t354 * t65;
2409   t2284 = t16 * t126 * t921 * t65;
2410   t2299 = t951 * t65;
2411   t2301 = 0.28e2 / 0.135e3 * t16 * t2299;
2412   t2302 = t941 * t110;
2413   t2304 = 0.28e2 / 0.135e3 * t73 * t2302;
2414   t2305 = -0.4e1 / 0.3e1 * t2232 - 0.2e1 / 0.3e1 * t2235 + 0.24e2 / 0.5e1 * t2238 + 0.18e2 / 0.5e1 * t16 * t355 * t365 - 0.2e1 / 0.3e1 * t2244 + 0.2e1 * t299 * t355 * t301 + 0.4e1 * t2250 + 0.4e1 * t2253 + 0.4e1 / 0.3e1 * t2256 + 0.2e1 * t116 * t922 * t122 + 0.3e1 * t116 * t355 * t320 + 0.2e1 * t116 * t151 * t818 - t116 * t50 * t65 * t2154 / 0.2e1 - 0.16e2 / 0.45e2 * t2273 + 0.16e2 / 0.45e2 * t2276 - 0.2e1 / 0.5e1 * t2280 + 0.4e1 / 0.5e1 * t2284 + 0.3e1 / 0.10e2 * t16 * t18 * (0.20944e5 / 0.81e2 * t21 * t2127 + 0.167200e6 / 0.81e2 * t30 * t2131 + 0.7920e4 * t38 * t2134 + 0.1744960e7 / 0.81e2 * t44 * t2139) * t65 - t2301 - t2304;
2415   t2327 = t8 * (t2061 + t2124 + t2230 + t2305) - 0.4e1 / 0.9e1 * t765 + 0.8e1 / 0.3e1 * t768 - 0.4e1 / 0.3e1 * t771 + 0.24e2 / 0.5e1 * t774 + 0.36e2 / 0.5e1 * t777 - 0.36e2 / 0.5e1 * t784 - 0.4e1 / 0.9e1 * t792 + 0.8e1 / 0.3e1 * t795 - 0.4e1 / 0.3e1 * t798 + 0.4e1 * t801 + 0.8e1 * t803 + 0.4e1 * t806 + 0.6e1 * t808 + 0.6e1 * t811 + 0.2e1 * t820 + 0.4e1 / 0.5e1 * t823 - 0.24e2 / 0.5e1 * t826 - 0.12e2 / 0.5e1 * t829;
2416   t2342 = 0.16e2 / 0.45e2 * t900;
2417   t2343 = 0.16e2 / 0.45e2 * t903;
2418   t2347 = -0.18e2 / 0.5e1 * t833 - 0.18e2 / 0.5e1 * t836 - 0.6e1 / 0.5e1 * t857 + 0.4e1 * t860 + 0.2e1 * t864 - 0.4e1 * t868 + 0.4e1 * t871 - 0.8e1 * t874 - 0.12e2 * t878 - 0.6e1 * t882 - 0.6e1 * t886 + 0.36e2 / 0.5e1 * t890 + 0.4e1 * t894 + 0.12e2 * t897 + t2342 + t2343 - 0.4e1 / 0.5e1 * t907 + 0.12e2 / 0.5e1 * t911 + 0.6e1 / 0.5e1 * t924;
2419   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2420     v4rho4[0] = t2327 + t2347;
2421 
2422   t2353 = t6 * t71 * t325;
2423   t2354 = t2353 * t457;
2424   t2355 = t2354 / 0.3e1;
2425   t2372 = t6 * t382 * t325 * t434;
2426   t2373 = 0.2e1 / 0.9e1 * t2372;
2427   t2377 = t170 * t1064 * t172;
2428   t2378 = t2377 / 0.3e1;
2429   t2379 = t440 * t228;
2430   t2380 = t73 * t2379;
2431   t2383 = t116 * t905 * t184;
2432   t2384 = t2383 / 0.3e1;
2433   t2387 = t116 * t940 * t150 * t423;
2434   t2393 = -t454 * t455 * t227 * t861 / 0.2e1 + t2355 - 0.3e1 / 0.2e1 * t311 * t876 * t1049 - t311 * t312 * t183 * t854 / 0.2e1 + t431 * t432 * t188 * t861 / 0.3e1 - t983 * t432 * t7 * t392 - t2373 + t431 * t1084 * t892 - t2378 - 0.4e1 / 0.45e2 * t2380 - t2384 - 0.5e1 / 0.2e1 * t2387 + 0.3e1 / 0.2e1 * t116 * t421 * t354 * t423;
2435   t2395 = 0.1e1 / t17 / t813;
2436   t2398 = t170 * t2395 * t99 * t441;
2437   t2401 = t170 * t449 * t393;
2438   t2403 = t116 * t909 * t184;
2439   t2414 = t440 * t189;
2440   t2415 = t170 * t2414;
2441   t2421 = t383 * t449 * t385;
2442   t2423 = t422 * t184;
2443   t2424 = t116 * t2423;
2444   t2428 = t116 * t2395 * t49 * t423;
2445   t2431 = t6 * t787 * t126;
2446   t2432 = t2431 * t1021;
2447   t2434 = -0.8e1 / 0.3e1 * t2398 + t2401 + t2403 + t116 * t922 * t184 / 0.2e1 + t299 * t2178 - 0.3e1 / 0.2e1 * t116 * t2272 + t170 * t213 * t862 / 0.2e1 - t383 * t2221 + 0.4e1 / 0.27e2 * t2415 - t788 * t213 * t790 / 0.9e1 + 0.2e1 / 0.3e1 * t2421 + 0.4e1 / 0.27e2 * t2424 + 0.8e1 / 0.3e1 * t2428 - 0.2e1 / 0.9e1 * t2432;
2448   t2440 = t1025 * t1029;
2449   t2453 = t6 * t298 * t325 * t407;
2450   t2454 = 0.2e1 / 0.9e1 * t2453;
2451   t2455 = t2058 * t417;
2452   t2456 = t2455 / 0.3e1;
2453   t2457 = t873 * t1047;
2454   t2459 = t873 * t1050;
2455   t2461 = t6 * t298 * t940;
2456   t2462 = t2461 * t1007;
2457   t2470 = t1001 * t1037;
2458   t2475 = t1019 * t455 * t227 * t789 / 0.9e1 - 0.2e1 / 0.3e1 * t2440 + t404 * t354 * t65 * t406 + t404 * t1036 * t1040 + t404 * t405 * t183 * t817 / 0.3e1 - t2454 + t2456 - 0.2e1 * t2457 - t2459 - 0.5e1 / 0.3e1 * t2462 - 0.3e1 / 0.2e1 * t311 * t2068 * t416 - t995 * t1036 * t996 / 0.3e1 + 0.4e1 / 0.3e1 * t2470 + 0.2e1 * t1005 * t1036 * t1006;
2459   t2476 = t1001 * t1041;
2460   t2481 = t873 * t1011;
2461   t2484 = t6 * t14 * t940;
2462   t2485 = t2484 * t1016;
2463   t2497 = t1025 * t1054;
2464   t2500 = t6 * t787 * t421;
2465   t2506 = t6 * t382 * t940;
2466   t2507 = t2506 * t985;
2467   t2509 = t1033 * t991;
2468   t2511 = t6 * t2161 * t18;
2469   t2517 = t6 * t760 * t126;
2470   t2518 = t2517 * t997;
2471   t2521 = t6 * t760 * t421;
2472   t2526 = 0.2e1 / 0.3e1 * t2476 + t1005 * t405 * t7 * t319 + 0.2e1 * t2481 + 0.5e1 / 0.2e1 * t2485 + 0.3e1 * t311 * t1381 * t1010 - 0.3e1 * t1014 * t876 * t1015 - 0.3e1 / 0.2e1 * t1014 * t312 * t7 * t377 + 0.2e1 / 0.3e1 * t2497 + t2500 * t432 * t7 * t384 / 0.3e1 + 0.5e1 / 0.3e1 * t2507 - t2509 + 0.4e1 / 0.27e2 * t2511 * t405 * t183 * t762 - 0.2e1 / 0.9e1 * t2518 - t2521 * t405 * t7 * t300 / 0.3e1;
2473   t2538 = t6 * t2204 * t18;
2474   t2554 = -0.3e1 * t311 * t1360 * t183 * t781 + 0.3e1 * t1014 * t580 * t7 * t364 + 0.4e1 / 0.27e2 * t2538 * t432 * t188 * t789 + 0.2e1 / 0.3e1 * t2012 + 0.2e1 * t2022 - 0.2e1 / 0.3e1 * t2039 + 0.2e1 / 0.3e1 * t2041 + 0.2e1 / 0.3e1 * t2059 - 0.2e1 * t2062 - t2064 - t2066 + 0.6e1 / 0.5e1 * t2090 + 0.2e1 * t404 * t580 * t406 * t364;
2475   t2569 = t1001 * t930;
2476   t2593 = -0.2e1 * t1005 * t312 * t1006 * t165 - 0.2e1 * t404 * t876 * t929 - t995 * t405 * t1040 * t121 / 0.3e1 - t404 * t312 * t1040 * t165 - 0.4e1 / 0.3e1 * t2569 - t404 * t312 * t1049 * t121 + 0.3e1 * t311 * t580 * t1049 * t165 - t1019 * t432 * t1053 * t171 / 0.3e1 - t431 * t455 * t990 * t171 + t995 * t312 * t996 * t165 / 0.3e1 + 0.2e1 / 0.5e1 * t2101 + t2104 / 0.5e1 - 0.3e1 / 0.5e1 * t2107 - 0.3e1 / 0.5e1 * t2110;
2477   t2609 = -t2113 / 0.5e1 + t2148 / 0.3e1 - 0.2e1 / 0.27e2 * t2169 - 0.2e1 / 0.9e1 * t2172 + 0.4e1 / 0.9e1 * t2179 - 0.2e1 / 0.5e1 * t2182 - 0.6e1 / 0.5e1 * t2185 - 0.2e1 / 0.27e2 * t2212 - 0.2e1 / 0.9e1 * t2215 + 0.4e1 / 0.9e1 * t2222 + 0.2e1 / 0.3e1 * t2228 - 0.2e1 / 0.3e1 * t2232 - t2235 / 0.3e1 + 0.6e1 / 0.5e1 * t2238;
2478   t2613 = t170 * t2302;
2479   t2615 = t1176 * t110;
2480   t2616 = t73 * t2615;
2481   t2621 = t116 * t2299;
2482   t2625 = -t2244 / 0.3e1 + t2250 + t2253 + t2256 / 0.3e1 - 0.4e1 / 0.15e2 * t2273 + 0.2e1 * t2613 + 0.4e1 / 0.45e2 * t2616 + 0.4e1 / 0.15e2 * t2276 - t2280 / 0.5e1 + t2284 / 0.5e1 - t2301 - t2304 - 0.2e1 * t2621 + 0.3e1 / 0.2e1 * t116 * t2275;
2483   t2631 = 0.2e1 * t934;
2484   t2637 = 0.2e1 * t965;
2485   t2640 = t8 * (t2393 + t2434 + t2475 + t2526 + t2554 + t2593 + t2609 + t2625) - 0.2e1 * t931 + t2631 + 0.3e1 / 0.2e1 * t937 + 0.5e1 / 0.2e1 * t943 + 0.3e1 / 0.2e1 * t946 - t1326 - 0.5e1 / 0.2e1 * t953 + 0.3e1 * t957 - t1327 + t962 + t2637 + t1328 - t766 + 0.4e1 / 0.3e1 * t768 - t771 + 0.12e2 / 0.5e1 * t774;
2486   t2648 = t778 - t785 - t793 + 0.4e1 / 0.3e1 * t795 - t798 + t801 + 0.4e1 * t803 + 0.2e1 * t806 + t809 + t812 + t821 + 0.3e1 / 0.5e1 * t823 - 0.12e2 / 0.5e1 * t826 - 0.6e1 / 0.5e1 * t829 - t834 - t837 - t858 + 0.2e1 * t860;
2487   t2653 = 0.4e1 / 0.3e1 * t1002;
2488   t2658 = 0.4e1 / 0.3e1 * t1026;
2489   t2659 = 0.2e1 * t1034;
2490   t2661 = 0.2e1 * t1045;
2491   t2664 = t865 - 0.2e1 * t986 - 0.3e1 / 0.2e1 * t992 - t998 / 0.3e1 + t2653 + 0.2e1 * t1008 + 0.3e1 * t1012 - 0.3e1 * t1017 - t1022 / 0.3e1 + t2658 - t1030 - t2659 + 0.2e1 * t1038 + t1042 - t2661 - 0.3e1 * t1048 - 0.3e1 / 0.2e1 * t1051;
2492   t2670 = t1055 - t868 + t871 - 0.4e1 * t874 - t879 - t883 - t887 + t891 + t894 + t898 + t2342 + t2343 - 0.3e1 / 0.5e1 * t907 + 0.6e1 / 0.5e1 * t911 + t925 + 0.3e1 / 0.2e1 * t1060 - 0.3e1 / 0.2e1 * t1062 - t1343;
2493   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2494     v4rho4[1] = t2640 + t2648 + t2664 + t2670;
2495 
2496   t2680 = t2431 * t1131;
2497   t2685 = t1025 * t1085;
2498   t2688 = t6 * t71 * t940;
2499   t2689 = t2688 * t1091;
2500   t2695 = t1025 * t1094;
2501   t2700 = t1033 * t1098;
2502   t2706 = t1033 * t1101;
2503   t2712 = t1033 * t1104;
2504   t2717 = -t454 * t455 * t536 * t392 / 0.2e1 + 0.4e1 / 0.27e2 * t2538 * t432 * t478 * t384 - 0.4e1 / 0.27e2 * t2680 - 0.2e1 / 0.9e1 * t1019 * t1084 * t1020 + 0.8e1 / 0.9e1 * t2685 - 0.5e1 / 0.3e1 * t2689 - t1019 * t432 * t489 * t384 / 0.9e1 + 0.4e1 / 0.9e1 * t2695 - 0.2e1 / 0.3e1 * t431 * t1097 * t1028 - 0.4e1 / 0.3e1 * t2700 + 0.2e1 / 0.3e1 * t431 * t655 * t523 * t384 + 0.4e1 / 0.3e1 * t2706 - t431 * t455 * t536 * t384 / 0.3e1 - 0.2e1 / 0.3e1 * t2712 + 0.4e1 / 0.3e1 * t1005 * t1036 * t1107;
2505   t2718 = t2353 * t487;
2506   t2727 = t1001 * t1118;
2507   t2747 = t873 * t1127;
2508   t2762 = t2506 * t1081;
2509   t2767 = 0.2e1 / 0.9e1 * t2718 - 0.2e1 / 0.9e1 * t995 * t1036 * t1113 - t995 * t405 * t467 * t319 / 0.9e1 - 0.4e1 / 0.9e1 * t2727 - 0.2e1 / 0.3e1 * t404 * t876 * t1117 - t404 * t312 * t467 * t377 / 0.3e1 + 0.2e1 / 0.3e1 * t404 * t1036 * t1121 + 0.2e1 / 0.3e1 * t404 * t405 * t1171 * t121 + t404 * t405 * t473 * t319 / 0.3e1 - 0.2e1 / 0.3e1 * t2747 - t311 * t876 * t1126 - t311 * t312 * t1171 * t165 - t311 * t312 * t473 * t377 / 0.2e1 - t1019 * t432 * t478 * t392 / 0.9e1 + 0.10e2 / 0.9e1 * t2762 + 0.2e1 / 0.3e1 * t431 * t1084 * t1053;
2510   t2789 = t2517 * t1114;
2511   t2791 = t2461 * t1108;
2512   t2801 = t1001 * t1122;
2513   t2809 = t299 * t330 * t468;
2514   t2812 = t116 * t330 * t474;
2515   t2814 = -0.4e1 / 0.3e1 * t983 * t1084 * t984 + 0.2e1 / 0.3e1 * t431 * t432 * t1179 * t171 + t431 * t432 * t489 * t392 / 0.3e1 - t454 * t1097 * t990 + t454 * t655 * t523 * t392 + 0.4e1 / 0.27e2 * t2511 * t405 * t467 * t300 - 0.4e1 / 0.27e2 * t2789 - 0.10e2 / 0.9e1 * t2791 + 0.2e1 / 0.3e1 * t404 * t580 * t467 * t364 - t995 * t405 * t473 * t300 / 0.9e1 + 0.4e1 / 0.9e1 * t2801 + t311 * t580 * t473 * t364 + 0.4e1 / 0.9e1 * t2354 - 0.8e1 / 0.27e2 * t2372 + 0.4e1 / 0.9e1 * t2809 + 0.2e1 / 0.3e1 * t2812;
2516   t2816 = t116 * t127 * t1172;
2517   t2819 = 0.1e1 / t17 / t2150;
2518   t2821 = t7 * t7;
2519   t2828 = t170 * t940 * t212 * t441;
2520   t2831 = t170 * t176 * t1180;
2521   t2845 = t299 * t326 * t468;
2522   t2848 = t116 * t326 * t474;
2523   t2851 = t383 * t397 * t479;
2524   t2856 = t170 * t1064 * t189;
2525   t2860 = t170 * t397 * t490;
2526   t2863 = t73 * t1064 * t228;
2527   t2865 = 0.2e1 / 0.3e1 * t2816 + 0.2e1 / 0.3e1 * t383 * t2819 * t99 * t110 * t2821 + 0.5e1 / 0.3e1 * t2828 + 0.2e1 / 0.3e1 * t2831 + t299 * t355 * t468 / 0.3e1 + t116 * t355 * t474 / 0.2e1 + t116 * t151 * t1172 + t170 * t514 * t393 / 0.2e1 - 0.2e1 / 0.27e2 * t2845 - t2848 / 0.9e1 - 0.2e1 / 0.27e2 * t2851 - 0.2e1 / 0.3e1 * t383 * t2414 - 0.2e1 / 0.9e1 * t2856 + t170 * t2379 - t2860 / 0.9e1 + 0.2e1 / 0.15e2 * t2863;
2528   t2869 = t73 * t397 * t524;
2529   t2872 = t73 * t397 * t537;
2530   t2878 = t170 * t1196 * t172;
2531   t2896 = -0.2e1 / 0.15e2 * t2869 + t2872 / 0.15e2 + t383 * t514 * t385 / 0.3e1 + 0.2e1 / 0.3e1 * t2878 + 0.2e1 / 0.3e1 * t299 * t2423 + 0.2e1 / 0.3e1 * t299 * t2819 * t49 * t65 * t2821 - 0.4e1 / 0.9e1 * t2377 - 0.8e1 / 0.45e2 * t2380 - 0.4e1 / 0.9e1 * t2383 + 0.4e1 / 0.3e1 * t2387 - 0.32e2 / 0.9e1 * t2398 + 0.2e1 / 0.3e1 * t2401 + 0.2e1 / 0.3e1 * t2403 + 0.8e1 / 0.27e2 * t2415 + 0.4e1 / 0.9e1 * t2421;
2532   t2913 = 0.8e1 / 0.27e2 * t2424 + 0.32e2 / 0.9e1 * t2428 - 0.4e1 / 0.27e2 * t2432 - 0.4e1 / 0.9e1 * t2440 - 0.8e1 / 0.27e2 * t2453 + 0.4e1 / 0.9e1 * t2455 - 0.4e1 / 0.3e1 * t2457 - 0.2e1 / 0.3e1 * t2459 + 0.8e1 / 0.9e1 * t2462 + 0.8e1 / 0.9e1 * t2470 + 0.4e1 / 0.9e1 * t2476 + 0.4e1 / 0.3e1 * t2481 - 0.4e1 / 0.3e1 * t2485 + 0.4e1 / 0.9e1 * t2497 - 0.8e1 / 0.9e1 * t2507 - 0.2e1 / 0.3e1 * t2509;
2533   t2945 = t1025 * t1135;
2534   t2956 = -0.4e1 / 0.27e2 * t2518 + 0.2e1 / 0.9e1 * t2059 - 0.2e1 / 0.3e1 * t431 * t455 * t486 * t392 + 0.4e1 / 0.9e1 * t2500 * t432 * t433 * t7 + 0.4e1 / 0.3e1 * t983 * t455 * t1090 * t171 - 0.2e1 / 0.3e1 * t404 * t312 * t1121 * t165 - 0.4e1 / 0.9e1 * t2521 * t405 * t406 * t7 - 0.4e1 / 0.3e1 * t1005 * t312 * t416 * t7 + 0.2e1 / 0.9e1 * t1019 * t455 * t486 * t384 - 0.8e1 / 0.9e1 * t2945 + 0.2e1 / 0.9e1 * t995 * t312 * t1113 * t165 - 0.8e1 / 0.9e1 * t2569 + 0.2e1 / 0.15e2 * t2101 + t2104 / 0.15e2 - 0.2e1 / 0.27e2 * t2172 + 0.8e1 / 0.27e2 * t2179;
2535   t2969 = t73 * t325 * t513 * t110;
2536   t2974 = -0.2e1 / 0.15e2 * t2182 - 0.2e1 / 0.27e2 * t2215 + 0.8e1 / 0.27e2 * t2222 - 0.2e1 / 0.9e1 * t2232 - t2235 / 0.9e1 - t2244 / 0.9e1 - 0.8e1 / 0.45e2 * t2273 - 0.2e1 / 0.3e1 * t2613 + 0.8e1 / 0.45e2 * t2616 - t170 * t2615 - t2969 / 0.15e2 + 0.8e1 / 0.45e2 * t2276 - t2280 / 0.15e2 - t2301 - t2304 + 0.2e1 / 0.3e1 * t2621;
2537   t2995 = t8 * (t2717 + t2767 + t2814 + t2865 + t2896 + t2913 + t2956 + t2974) - 0.4e1 / 0.3e1 * t1082 + 0.4e1 / 0.3e1 * t1086 + 0.2e1 * t1092 + 0.2e1 / 0.3e1 * t1095 - 0.2e1 * t1099 + 0.2e1 * t1102 - t1105 + 0.4e1 / 0.3e1 * t1109 - 0.4e1 / 0.3e1 * t1111 - 0.2e1 / 0.9e1 * t1115 - 0.2e1 / 0.3e1 * t1119 + 0.2e1 / 0.3e1 * t1123 - t1128 - 0.2e1 / 0.9e1 * t1132 - 0.4e1 / 0.3e1 * t1136 - 0.4e1 / 0.3e1 * t931 + 0.4e1 / 0.9e1 * t1139 + 0.2e1 / 0.3e1 * t1142;
2538   t3010 = 0.4e1 / 0.9e1 * t1145 + 0.4e1 / 0.3e1 * t1148 + 0.2e1 / 0.3e1 * t1151 - 0.4e1 / 0.5e1 * t1154 + 0.4e1 / 0.5e1 * t1157 - 0.2e1 / 0.5e1 * t1160 + 0.2e1 / 0.3e1 * t1163 + t1168 + t1174 - 0.2e1 * t1178 + t1182 + t1185 + 0.8e1 / 0.3e1 * t934 + t937 + t943 / 0.3e1 + t946 - 0.2e1 / 0.3e1 * t949 - t953 / 0.3e1 + 0.2e1 * t957 - 0.2e1 / 0.3e1 * t959;
2539   t3031 = 0.2e1 / 0.3e1 * t962 + 0.8e1 / 0.3e1 * t965 + 0.2e1 / 0.5e1 * t968 + 0.4e1 / 0.9e1 * t768 - 0.2e1 / 0.3e1 * t771 + 0.4e1 / 0.5e1 * t774 + 0.4e1 / 0.9e1 * t795 - 0.2e1 / 0.3e1 * t798 + 0.4e1 / 0.3e1 * t803 + 0.2e1 / 0.3e1 * t806 + 0.2e1 / 0.5e1 * t823 - 0.4e1 / 0.5e1 * t826 - 0.2e1 / 0.5e1 * t829 + 0.2e1 / 0.3e1 * t860 - 0.4e1 / 0.3e1 * t986 - t992 - 0.2e1 / 0.9e1 * t998 + 0.16e2 / 0.9e1 * t1002 + 0.4e1 / 0.3e1 * t1008 + 0.2e1 * t1012;
2540   t3047 = -0.2e1 * t1017 - 0.2e1 / 0.9e1 * t1022 + 0.16e2 / 0.9e1 * t1026 - 0.2e1 / 0.3e1 * t1030 - 0.8e1 / 0.3e1 * t1034 + 0.4e1 / 0.3e1 * t1038 + 0.2e1 / 0.3e1 * t1042 - 0.8e1 / 0.3e1 * t1045 - 0.2e1 * t1048 - t1051 + 0.2e1 / 0.3e1 * t1055 - 0.4e1 / 0.3e1 * t874 + 0.2e1 / 0.5e1 * t1198 + t2342 + t2343 - 0.2e1 / 0.5e1 * t907 + 0.2e1 / 0.5e1 * t911 + t1060 - t1062 - 0.2e1 / 0.5e1 * t1066;
2541   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2542     v4rho4[2] = t2995 + t3010 + t3031 + t3047;
2543 
2544   t3057 = t1227 + t1230 - t1233 + t1236 - t1239 - t1243 - t1247 + t1251 - 0.2e1 * t1082 + 0.2e1 * t1086 + 0.3e1 * t1092 + t1095 - 0.3e1 * t1099 + 0.3e1 * t1102 - 0.3e1 / 0.2e1 * t1105 + 0.2e1 * t1109 - 0.4e1 * t1111;
2545   t3062 = -t1115 / 0.3e1 - t1119 + t1123 - 0.3e1 / 0.2e1 * t1128 - t1132 / 0.3e1 - 0.2e1 * t1136 + t1258 + t1260 + t1263 + t1266 + t1271 - t1274 - t1277 - t1298 - t1303 - t1309 + t1312 - t1319;
2546   t3078 = 0.4e1 / 0.3e1 * t1139 + 0.2e1 * t1142 + 0.4e1 / 0.3e1 * t1145 + 0.4e1 * t1148 + 0.2e1 * t1151 - 0.12e2 / 0.5e1 * t1154 + 0.12e2 / 0.5e1 * t1157 - 0.6e1 / 0.5e1 * t1160 + t1163 + 0.3e1 / 0.2e1 * t1168 + 0.3e1 / 0.2e1 * t1174 - 0.3e1 * t1178 + 0.3e1 / 0.2e1 * t1182 + 0.3e1 / 0.2e1 * t1185 + t2631 - 0.2e1 * t943 - t949;
2547   t3091 = t1001 * t1229;
2548   t3096 = t1025 * t1232;
2549   t3098 = t1025 * t1235;
2550   t3100 = t1033 * t1237;
2551   t3102 = t1033 * t1241;
2552   t3103 = t1033 * t1245;
2553   t3104 = t1596 * t1249;
2554   t3106 = t1033 * t1225;
2555   t3117 = -0.3e1 * t1089 * t655 * t7 * t523 - t2521 * t405 * t467 * t7 / 0.3e1 + 0.2e1 / 0.3e1 * t3091 + t1005 * t405 * t7 * t473 - 0.2e1 / 0.3e1 * t3096 + 0.2e1 / 0.3e1 * t3098 - 0.2e1 * t3100 - t3102 - t3103 + 0.6e1 / 0.5e1 * t3104 + 0.2e1 * t3106 + t995 * t312 * t1299 * t165 / 0.9e1 + t404 * t1036 * t1228 + t404 * t405 * t183 * t1171;
2556   t3167 = 0.4e1 / 0.27e2 * t2538 * t432 * t1305 * t171 + t2500 * t432 * t478 * t7 / 0.3e1 + t431 * t432 * t188 * t1179 - t983 * t432 * t7 * t489 + 0.3e1 * t1089 * t1097 * t1090 - 0.3e1 / 0.2e1 * t454 * t455 * t1179 * t227 + 0.3e1 / 0.2e1 * t1089 * t455 * t7 * t536 + 0.3e1 * t454 * t1647 * t1100 - 0.3e1 * t454 * t1631 * t1315 * t171 + t404 * t405 * t1254 * t121 / 0.3e1 - t311 * t312 * t1254 * t165 / 0.2e1 - t1019 * t1084 * t1130 / 0.3e1 - 0.2e1 * t983 * t1084 * t1080 + t431 * t513 * t110 * t433;
2557   t3175 = t513 * t218;
2558   t3197 = t431 * t1084 * t1093 + t431 * t432 * t1267 * t171 / 0.3e1 - 0.3e1 / 0.2e1 * t454 * t3175 * t456 - 0.3e1 / 0.2e1 * t454 * t1097 * t1103 - t454 * t455 * t1294 * t171 / 0.2e1 + 0.4e1 / 0.27e2 * t2511 * t405 * t1299 * t121 - 0.2e1 / 0.9e1 * t2680 + 0.4e1 / 0.3e1 * t2685 + 0.2e1 * t2689 + 0.2e1 / 0.3e1 * t2695 - 0.2e1 * t2700 + 0.2e1 * t2706 - t2712 + 0.2e1 / 0.3e1 * t2718;
2559   t3204 = t761 * t127 * t1300;
2560   t3207 = t788 * t176 * t1306;
2561   t3210 = t73 * t449 * t524;
2562   t3213 = t73 * t176 * t1316;
2563   t3216 = t116 * t127 * t1255;
2564   t3219 = t383 * t449 * t479;
2565   t3221 = -0.2e1 / 0.3e1 * t2727 - t2747 - 0.4e1 / 0.3e1 * t2762 - 0.2e1 / 0.9e1 * t2789 + 0.4e1 / 0.3e1 * t2791 + 0.2e1 / 0.3e1 * t2801 + t2355 - t2373 - 0.2e1 / 0.27e2 * t3204 - 0.2e1 / 0.27e2 * t3207 + 0.6e1 / 0.5e1 * t3210 - 0.6e1 / 0.5e1 * t3213 + t3216 / 0.3e1 + 0.2e1 / 0.3e1 * t3219;
2566   t3225 = t170 * t1196 * t189;
2567   t3227 = t170 * t449 * t490;
2568   t3229 = t170 * t176 * t1268;
2569   t3232 = t73 * t1196 * t228;
2570   t3235 = t73 * t449 * t537;
2571   t3238 = t73 * t176 * t1295;
2572   t3248 = 0.6e1 * t814 + 0.12e2 * t2152;
2573   t3269 = t3225 + t3227 + t3229 / 0.3e1 - 0.3e1 / 0.5e1 * t3232 - 0.3e1 / 0.5e1 * t3235 - t3238 / 0.5e1 - t761 * t151 * t1300 / 0.9e1 + t116 * t151 * t1255 / 0.2e1 + t116 * t50 * t65 * t3248 / 0.2e1 - 0.3e1 / 0.2e1 * t170 * t421 * t513 * t441 + 0.3e1 / 0.2e1 * t170 * t213 * t1180 - t170 * t100 * t110 * t3248 / 0.2e1 + t170 * t1339 * t172 / 0.2e1 + 0.2e1 / 0.3e1 * t2809;
2574   t3279 = t2812 + t2816 - 0.2e1 * t2828 + t2831 - 0.2e1 / 0.9e1 * t2845 - t2848 / 0.3e1 - 0.2e1 / 0.9e1 * t2851 - 0.2e1 / 0.3e1 * t2856 - t2860 / 0.3e1 + 0.2e1 / 0.5e1 * t2863 - 0.2e1 / 0.5e1 * t2869 + t2872 / 0.5e1 + t2878 - t2378;
2575   t3309 = -0.4e1 / 0.15e2 * t2380 - t2384 + t2398 / 0.3e1 + 0.4e1 / 0.9e1 * t2415 + 0.4e1 / 0.9e1 * t2424 - t2428 / 0.3e1 - t2454 + t2456 + 0.3e1 * t454 * t655 * t1248 * t171 + 0.2e1 * t431 * t655 * t1224 * t171 - t995 * t405 * t1228 * t121 / 0.3e1 - t404 * t312 * t1228 * t165 + t1019 * t455 * t1231 * t171 / 0.3e1 + 0.2e1 * t983 * t455 * t486 * t7;
2576   t3331 = t73 * t126 * t1338 * t110;
2577   t3334 = -t1019 * t432 * t1234 * t171 / 0.3e1 - 0.2e1 * t431 * t1097 * t1134 - t431 * t455 * t1240 * t171 - t431 * t455 * t1244 * t171 - 0.4e1 / 0.3e1 * t2945 + 0.4e1 / 0.27e2 * t2179 + 0.4e1 / 0.27e2 * t2222 - 0.4e1 / 0.45e2 * t2273 + 0.4e1 / 0.15e2 * t2616 - t2969 / 0.5e1 + t3331 / 0.5e1 + 0.4e1 / 0.45e2 * t2276 - t2301 - t2304;
2578   t3339 = 0.2e1 * t953 - t959 + t2637 + 0.3e1 / 0.5e1 * t968 - t772 - t799 + t824 + t2653 + t2658 - t2659 - t2661 + 0.6e1 / 0.5e1 * t1198 + t1342 + t2342 + t2343 - t908 - 0.3e1 / 0.5e1 * t1066 + t8 * (t3117 + t3167 + t3197 + t3221 + t3269 + t3279 + t3309 + t3334);
2579   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2580     v4rho4[3] = t3057 + t3062 + t3078 + t3339;
2581 
2582   t3360 = 0.12e2 * t1226 + 0.4e1 * t1230 - 0.4e1 * t1233 + 0.4e1 * t1236 - 0.12e2 * t1238 - 0.6e1 * t1242 - 0.6e1 * t1246 + 0.36e2 / 0.5e1 * t1250 - 0.8e1 * t1111 + 0.2e1 * t1257 + 0.4e1 * t1260 + 0.6e1 * t1262 + 0.6e1 * t1265 + 0.2e1 * t1270 - 0.18e2 / 0.5e1 * t1273 - 0.18e2 / 0.5e1 * t1276 - 0.6e1 / 0.5e1 * t1297 - 0.4e1 / 0.9e1 * t1302 - 0.4e1 / 0.9e1 * t1308;
2583   t3450 = 0.12e2 * t454 * t1647 * t1224 + 0.6e1 * t454 * t655 * t489 * t523 + 0.4e1 / 0.9e1 * t1019 * t455 * t1305 * t227 - 0.2e1 / 0.3e1 * t1019 * t432 * t478 * t489 - 0.4e1 * t431 * t1097 * t1231 - 0.2e1 * t431 * t455 * t478 * t536 + 0.4e1 * t431 * t1084 * t1234 + 0.4e1 / 0.3e1 * t431 * t432 * t188 * t1267 - 0.6e1 * t454 * t3175 * t486 - 0.6e1 * t454 * t1097 * t1240 - 0.6e1 * t454 * t1097 * t1244 - 0.2e1 * t454 * t455 * t1267 * t227 - 0.3e1 * t454 * t455 * t489 * t536 - 0.2e1 * t454 * t455 * t188 * t1294 + 0.36e2 / 0.5e1 * t654 * t1647 * t1248 - 0.12e2 * t454 * t1631 * t1315 * t188 - 0.54e2 / 0.5e1 * t654 * t1631 * t523 * t536 + 0.12e2 / 0.5e1 * t654 * t655 * t227 * t1294 + 0.4e1 * t431 * t655 * t478 * t523 - 0.2e1 / 0.3e1 * t995 * t405 * t467 * t473;
2584   t3464 = t467 * t467;
2585   t3469 = t473 * t473;
2586   t3473 = t478 * t478;
2587   t3478 = t489 * t489;
2588   t3486 = 0.1e1 / t1313 / t109;
2589   t3487 = t523 * t523;
2590   t3492 = t536 * t536;
2591   t3504 = 0.12e2 * t814 + 0.12e2 * t2152;
2592   t3509 = 0.4e1 / 0.3e1 * t404 * t405 * t183 * t1254 + 0.8e1 / 0.3e1 * t3091 - 0.8e1 / 0.3e1 * t3096 + 0.8e1 / 0.3e1 * t3098 - 0.8e1 * t3100 - 0.4e1 * t3102 - 0.4e1 * t3103 + 0.24e2 / 0.5e1 * t3104 + 0.8e1 * t3106 + 0.4e1 / 0.3e1 * t2718 + 0.4e1 / 0.27e2 * t2162 * t50 * t65 * t3464 + t299 * t50 * t65 * t3469 + 0.4e1 / 0.27e2 * t2205 * t100 * t110 * t3473 + t383 * t100 * t110 * t3478 - 0.36e2 / 0.5e1 * t73 * t213 * t1316 + 0.36e2 / 0.5e1 * t73 * t100 * t3486 * t3487 + 0.9e1 / 0.5e1 * t73 * t100 * t522 * t3492 - 0.4e1 / 0.9e1 * t788 * t213 * t1306 + 0.18e2 / 0.5e1 * t73 * t514 * t524 + t116 * t50 * t65 * t3504 / 0.2e1;
2593   t3538 = 0.1e1 / t77 / t198;
2594   t3542 = 0.1e1 / t76 / t203;
2595   t3545 = 0.1e1 / t508;
2596   t3550 = 0.1e1 / t77 / t90 / t198;
2597   t3569 = 0.2e1 * t383 * t514 * t479 + 0.2e1 * t170 * t1339 * t189 + 0.3e1 * t170 * t514 * t490 + 0.2e1 * t170 * t213 * t1268 - t170 * t100 * t110 * t3504 / 0.2e1 - 0.6e1 / 0.5e1 * t73 * t1339 * t228 - 0.9e1 / 0.5e1 * t73 * t514 * t537 - 0.6e1 / 0.5e1 * t73 * t213 * t1295 - 0.3e1 / 0.10e2 * t73 * t100 * t218 * (0.20944e5 / 0.81e2 * t101 * t3538 + 0.167200e6 / 0.81e2 * t103 * t3542 + 0.7920e4 * t105 * t3545 + 0.1744960e7 / 0.81e2 * t107 * t3550) - 0.8e1 / 0.27e2 * t3204 - 0.8e1 / 0.27e2 * t3207 + 0.24e2 / 0.5e1 * t3210 - 0.24e2 / 0.5e1 * t3213 + 0.4e1 / 0.3e1 * t3216 + 0.8e1 / 0.3e1 * t3219 + 0.4e1 * t3225 + 0.4e1 * t3227 + 0.4e1 / 0.3e1 * t3229 - 0.12e2 / 0.5e1 * t3232 - 0.12e2 / 0.5e1 * t3235;
2598   t3606 = -0.4e1 / 0.5e1 * t3238 - 0.4e1 / 0.9e1 * t2845 - 0.2e1 / 0.3e1 * t2848 - 0.4e1 / 0.9e1 * t2851 - 0.4e1 / 0.3e1 * t2856 - 0.2e1 / 0.3e1 * t2860 + 0.4e1 / 0.5e1 * t2863 - 0.4e1 / 0.5e1 * t2869 + 0.2e1 / 0.5e1 * t2872 - 0.16e2 / 0.45e2 * t2380 + 0.16e2 / 0.27e2 * t2415 + 0.16e2 / 0.27e2 * t2424 - 0.4e1 * t431 * t455 * t486 * t489 + 0.12e2 * t454 * t655 * t1244 * t227 + 0.16e2 / 0.45e2 * t2616 - 0.2e1 / 0.5e1 * t2969 + 0.4e1 / 0.5e1 * t3331 + 0.3e1 / 0.10e2 * t73 * t18 * (0.20944e5 / 0.81e2 * t74 * t3538 + 0.167200e6 / 0.81e2 * t82 * t3542 + 0.7920e4 * t89 * t3545 + 0.1744960e7 / 0.81e2 * t94 * t3550) * t110 - t2301 - t2304;
2599   t3610 = 0.36e2 / 0.5e1 * t1311 - 0.36e2 / 0.5e1 * t1318 + 0.8e1 / 0.3e1 * t1139 + 0.4e1 * t1142 + 0.8e1 / 0.3e1 * t1145 + 0.8e1 * t1148 + 0.4e1 * t1151 - 0.24e2 / 0.5e1 * t1154 + 0.24e2 / 0.5e1 * t1157 - 0.12e2 / 0.5e1 * t1160 - 0.4e1 / 0.3e1 * t949 - 0.4e1 / 0.3e1 * t959 + 0.4e1 / 0.5e1 * t968 + 0.12e2 / 0.5e1 * t1198 + 0.6e1 / 0.5e1 * t1341 + t2342 + t2343 - 0.4e1 / 0.5e1 * t1066 + t8 * (t3450 + t3509 + t3569 + t3606);
2600   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2601     v4rho4[4] = t3360 + t3610;
2602 
2603   t3624 = -t1356 - 0.2e1 * t1358 - 0.27e2 / 0.5e1 * t1363 - 0.3e1 * t1367 - 0.3e1 * t1369 - 0.3e1 * t1372 - 0.3e1 / 0.2e1 * t1375 + 0.12e2 / 0.5e1 * t1379 + 0.18e2 / 0.5e1 * t1383 + 0.18e2 / 0.5e1 * t1387 + 0.9e1 / 0.5e1 * t1391 + 0.6e1 * t1395 + t1398 + 0.2e1 * t1401 + 0.9e1 / 0.5e1 * t1405;
2604   t3625 = t1408 / 0.5e1;
2605   t3636 = t1451 / 0.5e1;
2606   t3644 = t873 * t1368;
2607   t3649 = t873 * t1371;
2608   t3651 = t873 * t1374;
2609   t3652 = t1378 * t1362;
2610   t3654 = t150 * t780;
2611   t3666 = t1001 * t1355;
2612   t3668 = t49 * t2191;
2613   t3699 = t299 * t548 * t301;
2614   t3702 = t116 * t1449 * t122;
2615   t3704 = 0.3e1 * t311 * t1756 * t895 - t404 * t876 * t1354 - 0.2e1 * t3644 - t404 * t312 * t593 * t300 - 0.2e1 * t3649 - t3651 - 0.18e2 / 0.5e1 * t3652 - 0.27e2 / 0.5e1 * t579 * t3654 * t1361 - 0.27e2 / 0.5e1 * t579 * t1360 * t593 * t364 + t995 * t312 * t258 * t762 / 0.9e1 - 0.2e1 / 0.3e1 * t3666 + 0.36e2 / 0.5e1 * t579 * t3668 * t258 * t781 - 0.3e1 / 0.10e2 * t16 * t922 * t259 - 0.9e1 / 0.10e2 * t16 * t355 * t594 - 0.9e1 / 0.10e2 * t16 * t151 * t1445 - 0.3e1 / 0.10e2 * t16 * t50 * t156 * (-0.1232e4 / 0.27e2 * t52 * t839 - 0.13376e5 / 0.27e2 * t249 * t843 - 0.2160e4 * t252 * t846 - 0.170240e6 / 0.27e2 * t255 * t851) - t761 * t245 * t763 / 0.9e1 + 0.2e1 / 0.3e1 * t3699 - t3702 / 0.3e1;
2616   t3706 = t16 * t548 * t365;
2617   t3711 = t422 * t259;
2618   t3713 = 0.4e1 / 0.45e2 * t16 * t3711;
2619   t3717 = t116 * t1453 * t122;
2620   t3720 = t116 * t548 * t320;
2621   t3725 = t16 * t905 * t259;
2622   t3728 = t16 * t326 * t594;
2623   t3740 = t16 * t1449 * t166;
2624   t3743 = t16 * t1453 * t166;
2625   t3746 = t16 * t548 * t378;
2626   t3758 = t16 * t909 * t259;
2627   t3760 = 0.6e1 / 0.5e1 * t3706 - 0.9e1 / 0.5e1 * t16 * t245 * t782 - t3713 + t299 * t561 * t301 + 0.2e1 * t3717 + t3720 + 0.9e1 / 0.5e1 * t16 * t561 * t365 + t3725 / 0.5e1 + t3728 / 0.5e1 + 0.3e1 / 0.2e1 * t116 * t1466 * t122 + 0.3e1 / 0.2e1 * t116 * t561 * t320 + t116 * t245 * t818 / 0.2e1 + t3740 / 0.5e1 - 0.6e1 / 0.5e1 * t3743 - 0.3e1 / 0.5e1 * t3746 - 0.9e1 / 0.10e2 * t16 * t1466 * t166 - 0.9e1 / 0.10e2 * t16 * t561 * t378 - 0.3e1 / 0.10e2 * t16 * t245 * t855 - 0.3e1 / 0.5e1 * t3758;
2628   t3763 = t16 * t330 * t594;
2629   t3766 = t16 * t127 * t1445;
2630   t3786 = t873 * t1394;
2631   t3802 = t16 * t325 * t560 * t65;
2632   t3806 = t16 * t126 * t1465 * t65;
2633   t3821 = t1516 * t65;
2634   t3823 = 0.4e1 / 0.45e2 * t16 * t3821;
2635   t3828 = t873 * t1366;
2636   t3830 = t560 * t156;
2637   t3834 = -0.6e1 / 0.5e1 * t3763 - 0.3e1 / 0.5e1 * t3766 - 0.9e1 * t311 * t1360 * t568 * t364 + 0.6e1 * t311 * t1381 * t1393 + 0.6e1 * t311 * t580 * t1370 * t165 - t404 * t312 * t1373 * t121 + 0.3e1 * t311 * t580 * t1373 * t165 + 0.4e1 * t3786 + 0.3e1 * t311 * t580 * t1389 * t121 - 0.27e2 / 0.5e1 * t579 * t1360 * t1389 * t165 + 0.2e1 * t404 * t580 * t1354 * t165 - t3802 / 0.5e1 + 0.3e1 / 0.5e1 * t3806 + 0.3e1 / 0.10e2 * t16 * t18 * (-0.1232e4 / 0.27e2 * t20 * t839 - 0.13376e5 / 0.27e2 * t235 * t843 - 0.2160e4 * t238 * t846 - 0.170240e6 / 0.27e2 * t241 * t851) * t65 + t3823 - t404 * t1365 * t866 + t404 * t1503 * t869 - 0.2e1 * t3828 - 0.3e1 * t311 * t3830 * t313;
2638   t3865 = t2058 * t569;
2639   t3869 = t6 * t15 * t325 * t582;
2640   t3871 = t1378 * t1382;
2641   t3873 = t1378 * t1386;
2642   t3875 = t1378 * t1390;
2643   t3899 = -0.3e1 / 0.2e1 * t311 * t1365 * t880 - 0.3e1 / 0.2e1 * t311 * t1365 * t884 + 0.9e1 / 0.5e1 * t579 * t1756 * t888 - 0.3e1 / 0.2e1 * t311 * t2068 * t568 - 0.3e1 * t311 * t876 * t1370 - 0.3e1 / 0.2e1 * t311 * t876 * t1373 - 0.3e1 / 0.2e1 * t311 * t312 * t1444 * t121 - 0.3e1 / 0.2e1 * t311 * t312 * t593 * t319 - t311 * t312 * t258 * t817 / 0.2e1 + t3865 / 0.3e1 - 0.2e1 / 0.5e1 * t3869 + 0.12e2 / 0.5e1 * t3871 + 0.12e2 / 0.5e1 * t3873 + 0.6e1 / 0.5e1 * t3875 + 0.9e1 / 0.5e1 * t579 * t354 * t363 * t581 + 0.18e2 / 0.5e1 * t579 * t1381 * t1385 + 0.9e1 / 0.5e1 * t579 * t1381 * t1389 + 0.9e1 / 0.5e1 * t579 * t580 * t1444 * t165 + 0.9e1 / 0.5e1 * t579 * t580 * t593 * t377 + 0.3e1 / 0.5e1 * t579 * t580 * t258 * t854;
2644   t3903 = t3625 + 0.3e1 * t1411 + 0.3e1 / 0.2e1 * t1413 - 0.6e1 / 0.5e1 * t1416 - 0.9e1 / 0.5e1 * t1419 - 0.9e1 / 0.10e2 * t1422 - 0.6e1 / 0.5e1 * t1425 - 0.6e1 / 0.5e1 * t1428 - 0.9e1 / 0.10e2 * t1431 - 0.9e1 / 0.5e1 * t1434 - 0.9e1 / 0.10e2 * t1447 - t3636 + 0.6e1 / 0.5e1 * t1455 + 0.9e1 / 0.10e2 * t1468 + t8 * (t3704 + t3760 + t3834 + t3899);
2645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2646     v4rho3sigma[0] = t3624 + t3903;
2647 
2648   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2649     v4rho3sigma[1] = 0.0e0;
2650 
2651   t3906 = t1486 / 0.5e1;
2652   t3909 = t1499 / 0.5e1;
2653   t3914 = t383 * t605 * t385;
2654   t3919 = t170 * t1484 * t172;
2655   t3922 = t170 * t605 * t393;
2656   t3926 = t1556 * t110;
2657   t3928 = 0.4e1 / 0.45e2 * t73 * t3926;
2658   t3933 = t1025 * t1489;
2659   t3938 = t2353 * t610;
2660   t3940 = t1033 * t1495;
2661   t3945 = t440 * t289;
2662   t3947 = 0.4e1 / 0.45e2 * t73 * t3945;
2663   t3948 = -t788 * t275 * t790 / 0.9e1 + 0.2e1 / 0.3e1 * t3914 + t431 * t1549 * t892 - t3919 / 0.3e1 + t3922 + t170 * t275 * t862 / 0.2e1 + t3928 + t1019 * t455 * t288 * t789 / 0.9e1 - 0.2e1 / 0.3e1 * t3933 - t431 * t455 * t609 * t392 + t3938 / 0.3e1 - t3940 - t454 * t455 * t288 * t861 / 0.2e1 - t3947;
2664   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2665     v4rho3sigma[2] = t1476 + 0.2e1 * t1479 + 0.3e1 / 0.2e1 * t1482 - t3906 - t1490 - 0.2e1 * t1492 - 0.3e1 / 0.2e1 * t1496 + t3909 + t8 * t3948;
2666 
2667   t3951 = 0.2e1 / 0.3e1 * t1505;
2668   t3953 = 0.2e1 / 0.3e1 * t1525;
2669   t3954 = 0.2e1 * t1534;
2670   t3955 = -t1619 - t1530 - t1537 - t1541 - t1357 - 0.4e1 / 0.3e1 * t1358 - t1364 + t3951 - t1514 - t1367 - t1369 - t1372 - t1376 + 0.8e1 / 0.5e1 * t1379 + t1384 + t1388 + t1392 - t3953 + t3954 + t1396;
2671   t3968 = 0.2e1 / 0.3e1 * t116 * t1453 * t184;
2672   t3973 = t116 * t1449 * t184;
2673   t3977 = t116 * t940 * t244 * t423;
2674   t3989 = -0.2e1 / 0.3e1 * t3644 - 0.2e1 / 0.3e1 * t3649 - t3651 / 0.3e1 - 0.6e1 / 0.5e1 * t3652 - 0.2e1 / 0.9e1 * t3666 + t3968 + t116 * t1466 * t184 / 0.2e1 - t3973 / 0.9e1 - 0.5e1 / 0.6e1 * t3977 + t116 * t421 * t560 * t423 - t116 * t3711 / 0.2e1 + 0.2e1 / 0.9e1 * t3699 - 0.2e1 / 0.9e1 * t3702 + 0.2e1 / 0.5e1 * t3706 - t3713 + 0.2e1 / 0.3e1 * t3717 + t3720 / 0.3e1;
2675   t4007 = 0.2e1 / 0.15e2 * t3725 + 0.2e1 / 0.15e2 * t3728 + 0.2e1 / 0.15e2 * t3740 - 0.2e1 / 0.5e1 * t3743 - t3746 / 0.5e1 - t3758 / 0.5e1 - 0.2e1 / 0.5e1 * t3763 - t3766 / 0.5e1 + 0.4e1 / 0.3e1 * t3786 - 0.2e1 / 0.15e2 * t3802 + t3806 / 0.5e1 + t3823 + t116 * t3821 / 0.2e1 - 0.2e1 / 0.3e1 * t3828 + 0.2e1 / 0.9e1 * t3865 - 0.4e1 / 0.15e2 * t3869 + 0.4e1 / 0.5e1 * t3871;
2676   t4015 = 0.4e1 / 0.9e1 * t1001 * t1504;
2677   t4023 = t2058 * t622;
2678   t4025 = t2484 * t1540;
2679   t4040 = 0.2e1 / 0.3e1 * t873 * t1513;
2680   t4047 = 0.2e1 / 0.3e1 * t873 * t1529;
2681   t4048 = 0.4e1 / 0.5e1 * t3873 + 0.2e1 / 0.5e1 * t3875 - t995 * t1503 * t996 / 0.9e1 + t4015 + 0.2e1 / 0.3e1 * t1005 * t1503 * t1006 + t311 * t1756 * t1010 - t1014 * t1365 * t1015 + t4023 / 0.9e1 + 0.5e1 / 0.6e1 * t4025 - t1014 * t876 * t1539 - t1014 * t312 * t593 * t7 + 0.2e1 / 0.3e1 * t404 * t560 * t65 * t406 + t404 * t1503 * t1040 / 0.3e1 - t4040 - t311 * t3830 * t416 - t311 * t1365 * t1049 / 0.2e1 - t4047;
2682   t4050 = 0.2e1 / 0.3e1 * t873 * t1536;
2683   t4065 = 0.4e1 / 0.9e1 * t1001 * t1524;
2684   t4093 = 0.4e1 / 0.3e1 * t873 * t1533;
2685   t4110 = -t4050 - t311 * t2068 * t621 / 0.2e1 - t311 * t876 * t1535 - t311 * t312 * t1444 * t183 / 0.2e1 + t995 * t312 * t621 * t300 / 0.9e1 - t4065 - 0.2e1 / 0.3e1 * t1005 * t312 * t1539 * t121 - 0.3e1 * t311 * t1360 * t621 * t364 + 0.2e1 * t1014 * t580 * t1539 * t165 - 0.2e1 / 0.3e1 * t404 * t1365 * t929 - 0.2e1 / 0.3e1 * t404 * t876 * t1523 - 0.2e1 / 0.3e1 * t404 * t312 * t1535 * t121 - t404 * t312 * t621 * t319 / 0.3e1 + t4093 + 0.2e1 * t311 * t1381 * t1532 + 0.2e1 * t311 * t580 * t1535 * t165 + t311 * t580 * t621 * t377 + 0.4e1 / 0.3e1 * t6 * t403 * t49 * t363 * t258 * t929;
2686   t4115 = -t1420 - t1423 - 0.4e1 / 0.5e1 * t1425 - 0.4e1 / 0.5e1 * t1428 - t1432 - t1435 - t1448 + t8 * (t3989 + t4007 + t4048 + t4110) - t3636 + 0.4e1 / 0.5e1 * t1455 + t1469;
2687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2688     v4rho3sigma[3] = t3955 + t1611 + t1511 + t1518 + t1399 + 0.4e1 / 0.3e1 * t1401 + t1406 + t3625 + t1411 + t1414 - 0.4e1 / 0.5e1 * t1416 + t4115;
2689 
2690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2691     v4rho3sigma[4] = 0.0e0;
2692 
2693   t4117 = 0.2e1 / 0.3e1 * t1551;
2694   t4119 = 0.2e1 * t1594;
2695   t4120 = 0.2e1 / 0.3e1 * t1577;
2696   t4121 = -t1587 + t1659 - t1601 + t4117 - t1570 - t1664 + t1583 - t1491 - 0.4e1 / 0.3e1 * t1492 - t1497 + t4119 - t4120;
2697   t4124 = t170 * t940 * t274 * t441;
2698   t4130 = t170 * t1484 * t189;
2699   t4137 = 0.2e1 / 0.3e1 * t170 * t1564 * t172;
2700   t4139 = t73 * t1484 * t228;
2701   t4144 = t73 * t1064 * t289;
2702   t4147 = t73 * t397 * t669;
2703   t4157 = t73 * t325 * t638 * t110;
2704   t4166 = 0.4e1 / 0.9e1 * t1025 * t1550;
2705   t4167 = -0.2e1 / 0.9e1 * t3919 + t3922 / 0.3e1 - t3947 + t3928 - t170 * t3926 / 0.2e1 - t4157 / 0.15e2 - 0.2e1 / 0.9e1 * t3933 + 0.2e1 / 0.9e1 * t3938 - t3940 / 0.3e1 - t1019 * t1549 * t1020 / 0.9e1 + t4166;
2706   t4173 = 0.2e1 / 0.3e1 * t1033 * t1569;
2707   t4174 = t2353 * t647;
2708   t4180 = 0.2e1 / 0.3e1 * t1033 * t1586;
2709   t4183 = t6 * t72 * t325 * t657;
2710   t4190 = 0.2e1 / 0.3e1 * t1033 * t1600;
2711   t4201 = t2688 * t1582;
2712   t4215 = 0.4e1 / 0.9e1 * t1025 * t1576;
2713   t4221 = 0.4e1 / 0.3e1 * t1033 * t1593;
2714   t4233 = -t454 * t1568 * t990 / 0.2e1 - 0.5e1 / 0.6e1 * t4201 - t454 * t1097 * t1494 / 0.2e1 - t454 * t455 * t668 * t392 / 0.2e1 + t1019 * t455 * t646 * t384 / 0.9e1 - t4215 + 0.2e1 / 0.3e1 * t431 * t655 * t656 * t384 + t4221 - t431 * t455 * t646 * t392 / 0.3e1 + 0.2e1 / 0.3e1 * t983 * t455 * t1581 * t171 + t454 * t655 * t656 * t392;
2715   t4238 = t8 * (0.5e1 / 0.6e1 * t4124 + t170 * t639 * t393 / 0.2e1 - t4130 / 0.9e1 + t383 * t639 * t385 / 0.3e1 + t4137 + t4139 / 0.15e2 + t170 * t3945 / 0.2e1 + t4144 / 0.15e2 + t4147 / 0.15e2 + 0.2e1 / 0.9e1 * t3914 + t4167 - t431 * t1568 * t1028 / 0.3e1 - t4173 + t4174 / 0.9e1 - t431 * t1097 * t1488 / 0.3e1 - t4180 - 0.2e1 / 0.15e2 * t4183 - t431 * t455 * t668 * t384 / 0.3e1 - t4190 + t431 * t1549 * t1053 / 0.3e1 - 0.2e1 / 0.3e1 * t983 * t1549 * t984 + t4233) + t1676 - t1558 + t1562 - t1677 - t1678 - t1679 + t1477 + 0.4e1 / 0.3e1 * t1479 + t1483 + t3909 - t3906 + t1723;
2716   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2717     v4rho3sigma[5] = t4121 + t4238;
2718 
2719   t4249 = t299 * t548 * t468;
2720   t4252 = t116 * t548 * t474;
2721   t4266 = t3725 / 0.15e2 + t3728 / 0.15e2 + t3740 / 0.15e2 - t3802 / 0.15e2 + t3823 + t3865 / 0.9e1 - 0.2e1 / 0.15e2 * t3869 + t4015 + 0.2e1 / 0.9e1 * t4023 - 0.2e1 / 0.3e1 * t4025 - t4040;
2722   t4271 = t1001 * t1616;
2723   t4273 = t873 * t1621;
2724   t4325 = -t404 * t312 * t593 * t467 / 0.3e1 - t311 * t876 * t1620 / 0.2e1 - t311 * t312 * t593 * t473 / 0.2e1 - t311 * t312 * t258 * t1171 / 0.2e1 - t4065 + t4093 - 0.2e1 / 0.3e1 * t1005 * t312 * t621 * t7 + t995 * t312 * t1615 * t121 / 0.9e1 + 0.2e1 / 0.3e1 * t404 * t580 * t1615 * t165 - t404 * t312 * t1620 * t121 / 0.3e1 + t311 * t580 * t1620 * t165;
2725   t4330 = t8 * (t299 * t561 * t468 / 0.3e1 + t116 * t561 * t474 / 0.2e1 + t116 * t245 * t1172 / 0.2e1 + 0.2e1 / 0.9e1 * t4249 + t4252 / 0.3e1 + t3968 - 0.2e1 / 0.9e1 * t3973 + 0.2e1 / 0.3e1 * t3977 - t3702 / 0.9e1 - t3713 + t4266 - t4047 - t4050 + 0.2e1 / 0.3e1 * t1005 * t1503 * t1107 - 0.2e1 / 0.9e1 * t4271 - t4273 / 0.3e1 - t995 * t1503 * t1113 / 0.9e1 - t404 * t1365 * t1117 / 0.3e1 + t404 * t1503 * t1121 / 0.3e1 - t311 * t1365 * t1126 / 0.2e1 - t404 * t876 * t1615 / 0.3e1 + t4325) - t1618 - t1623 - 0.4e1 / 0.3e1 * t1527 - t1530 - t1537 - t1541 - t1359 + t3951 - t1514 + t1380 - t3953;
2726   t4332 = t3954 + t1610 + t1614 + 0.4e1 / 0.3e1 * t1508 + t1511 + t1518 + t1402 + t3625 - t1417 - t1426 - t1429 - t3636 + t1456;
2727   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2728     v4rho3sigma[6] = t4330 + t4332;
2729 
2730   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2731     v4rho3sigma[7] = 0.0e0;
2732 
2733   t4343 = t170 * t1564 * t189;
2734   t4346 = t170 * t605 * t490;
2735   t4349 = t73 * t1564 * t228;
2736   t4352 = t73 * t605 * t537;
2737   t4355 = t73 * t1196 * t289;
2738   t4358 = t73 * t449 * t669;
2739   t4361 = t73 * t176 * t1706;
2740   t4364 = t383 * t605 * t479;
2741   t4367 = t73 * t605 * t524;
2742   t4373 = -t170 * t421 * t638 * t441 + t170 * t275 * t1180 / 0.2e1 + t170 * t1719 * t172 / 0.2e1 + 0.2e1 / 0.3e1 * t4343 + t4346 / 0.3e1 - 0.2e1 / 0.5e1 * t4349 - t4352 / 0.5e1 - t4355 / 0.5e1 - 0.2e1 / 0.5e1 * t4358 - t4361 / 0.5e1 + 0.2e1 / 0.9e1 * t4364 + 0.2e1 / 0.5e1 * t4367 - 0.2e1 / 0.3e1 * t4124 - 0.2e1 / 0.9e1 * t4130 + t4137 + 0.2e1 / 0.15e2 * t4139 + 0.2e1 / 0.15e2 * t4144;
2743   t4379 = t73 * t126 * t1718 * t110;
2744   t4385 = t1596 * t1633;
2745   t4387 = t1033 * t1636;
2746   t4389 = t1033 * t1638;
2747   t4391 = 0.2e1 / 0.15e2 * t4147 - t3919 / 0.9e1 - t3947 + t3928 - 0.2e1 / 0.15e2 * t4157 + t4379 / 0.5e1 + t3938 / 0.9e1 + t4166 - t4173 + 0.2e1 / 0.9e1 * t4174 - t4180 - 0.4e1 / 0.15e2 * t4183 - t4190 + 0.2e1 / 0.3e1 * t4201 - 0.6e1 / 0.5e1 * t4385 - 0.2e1 / 0.3e1 * t4387 - 0.2e1 / 0.3e1 * t4389;
2748   t4393 = t1033 * t1641;
2749   t4395 = t1033 * t1644;
2750   t4397 = t1596 * t1648;
2751   t4399 = t1596 * t1652;
2752   t4401 = t1596 * t1656;
2753   t4403 = t1025 * t1661;
2754   t4412 = t638 * t218;
2755   t4437 = -0.2e1 / 0.3e1 * t4393 - t4395 / 0.3e1 + 0.4e1 / 0.5e1 * t4397 + 0.4e1 / 0.5e1 * t4399 + 0.2e1 / 0.5e1 * t4401 - 0.2e1 / 0.9e1 * t4403 + 0.2e1 / 0.3e1 * t431 * t638 * t110 * t433 + t431 * t1549 * t1093 / 0.3e1 - t454 * t4412 * t456 - t454 * t1568 * t1103 / 0.2e1 - t454 * t3175 * t609 / 0.2e1 - t454 * t1097 * t1599 - t454 * t455 * t1705 * t171 / 0.2e1 - t1019 * t1549 * t1130 / 0.9e1 - 0.2e1 / 0.3e1 * t983 * t1549 * t1080 + t1089 * t1568 * t1090 + t454 * t1870 * t1100;
2756   t4483 = t1033 * t1666;
2757   t4495 = t1089 * t1097 * t1581 + t1089 * t455 * t668 * t7 - t454 * t455 * t288 * t1179 / 0.2e1 - t4215 + t4221 + 0.2e1 / 0.3e1 * t983 * t455 * t646 * t7 - 0.2e1 * t1089 * t655 * t1581 * t227 - 0.3e1 * t454 * t1631 * t1632 * t171 - 0.2e1 / 0.3e1 * t431 * t1568 * t1134 - 0.2e1 / 0.3e1 * t431 * t1097 * t1575 - 0.2e1 / 0.3e1 * t431 * t455 * t1640 * t171 - t431 * t455 * t1643 * t171 / 0.3e1 + 0.2e1 * t454 * t1647 * t1592 + 0.2e1 * t454 * t655 * t1651 * t171 + t454 * t655 * t1655 * t171 + 0.4e1 / 0.3e1 * t4483 + t1019 * t455 * t1660 * t171 / 0.9e1 + 0.4e1 / 0.3e1 * t6 * t430 * t99 * t522 * t288 * t1134;
2758   t4501 = t8 * (t4373 + t4391 + t4437 + t4495) - t1635 - t1637 - t1639 - t1642 - t1646 + t1650 + t1654 + t1658 - t1587 + 0.8e1 / 0.5e1 * t1597 - t1601 - t1663 + t4117 - t1570 - 0.4e1 / 0.3e1 * t1579 + t1583 - t1493 + t4119 + t1668;
2759   t4508 = t1684 - t1687 - t1690 - t1693 - t1696 - t1709 + t1480 + t3909 + t1722 - t3906 + 0.4e1 / 0.5e1 * t1566;
2760   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2761     v4rho3sigma[8] = t4501 - t4120 + t1671 + t1674 + 0.4e1 / 0.3e1 * t1554 - t1558 + t1562 - 0.4e1 / 0.5e1 * t1573 - 0.4e1 / 0.5e1 * t1590 - 0.4e1 / 0.5e1 * t1604 + t1681 + t4508;
2762 
2763   t4537 = -t761 * t245 * t1300 / 0.9e1 + 0.2e1 / 0.3e1 * t4249 + t404 * t1503 * t1228 - t3973 / 0.3e1 + t4252 + t116 * t245 * t1255 / 0.2e1 + t3823 + t995 * t312 * t258 * t1299 / 0.9e1 - 0.2e1 / 0.3e1 * t4271 - t404 * t312 * t621 * t473 + t4023 / 0.3e1 - t4273 - t311 * t312 * t258 * t1254 / 0.2e1 - t3713;
2764   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2765     v4rho3sigma[9] = t1609 + 0.2e1 * t1508 + 0.3e1 / 0.2e1 * t1613 - t3636 - t1617 - 0.2e1 * t1527 - 0.3e1 / 0.2e1 * t1622 + t3625 + t8 * t4537;
2766 
2767   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2768     v4rho3sigma[10] = 0.0e0;
2769 
2770   t4552 = -0.27e2 / 0.5e1 * t1634 - 0.3e1 * t1637 - 0.3e1 * t1639 - 0.3e1 * t1642 - 0.3e1 / 0.2e1 * t1645 + 0.18e2 / 0.5e1 * t1649 + 0.18e2 / 0.5e1 * t1653 + 0.9e1 / 0.5e1 * t1657 + 0.12e2 / 0.5e1 * t1597 - t1662 - 0.2e1 * t1579 + 0.6e1 * t1667 + t1670 + 0.9e1 / 0.5e1 * t1673 + 0.2e1 * t1554;
2771   t4593 = 0.2e1 * t4343 + t4346 - 0.6e1 / 0.5e1 * t4349 - 0.3e1 / 0.5e1 * t4352 - 0.3e1 / 0.5e1 * t4355 - 0.6e1 / 0.5e1 * t4358 - 0.3e1 / 0.5e1 * t4361 + 0.2e1 / 0.3e1 * t4364 + 0.6e1 / 0.5e1 * t4367 - t4130 / 0.3e1 + t4139 / 0.5e1 + t4144 / 0.5e1 + t4147 / 0.5e1 - t3947 + 0.3e1 / 0.10e2 * t73 * t18 * (-0.1232e4 / 0.27e2 * t20 * t1279 - 0.13376e5 / 0.27e2 * t265 * t1283 - 0.2160e4 * t268 * t1286 - 0.170240e6 / 0.27e2 * t271 * t1291) * t110 + t3928 - t4157 / 0.5e1 + 0.3e1 / 0.5e1 * t4379 + t4174 / 0.3e1;
2772   t4630 = -0.2e1 / 0.5e1 * t4183 - 0.18e2 / 0.5e1 * t4385 - 0.2e1 * t4387 - 0.2e1 * t4389 - 0.2e1 * t4393 - t4395 + 0.12e2 / 0.5e1 * t4397 + 0.12e2 / 0.5e1 * t4399 + 0.6e1 / 0.5e1 * t4401 - 0.2e1 / 0.3e1 * t4403 - 0.3e1 * t454 * t4412 * t486 + t431 * t1549 * t1234 - 0.3e1 / 0.2e1 * t454 * t1568 * t1240 - 0.3e1 / 0.2e1 * t454 * t1568 * t1244 + 0.9e1 / 0.5e1 * t654 * t1870 * t1248 - 0.3e1 / 0.2e1 * t454 * t3175 * t646 + 0.9e1 / 0.5e1 * t654 * t513 * t522 * t656 - 0.3e1 * t454 * t1097 * t1640 + 0.18e2 / 0.5e1 * t654 * t1647 * t1651;
2773   t4645 = t212 * t1314;
2774   t4681 = t99 * t3486;
2775   t4697 = -0.3e1 / 0.2e1 * t454 * t455 * t1705 * t188 + 0.9e1 / 0.5e1 * t654 * t655 * t1705 * t227 - t431 * t1097 * t1660 - t431 * t455 * t668 * t478 - 0.27e2 / 0.5e1 * t654 * t4645 * t1632 - 0.27e2 / 0.5e1 * t654 * t1631 * t668 * t523 - t431 * t1568 * t1231 - 0.3e1 / 0.2e1 * t454 * t1097 * t1643 - 0.3e1 / 0.2e1 * t454 * t455 * t668 * t489 - t454 * t455 * t288 * t1267 / 0.2e1 + 0.9e1 / 0.5e1 * t654 * t1647 * t1655 + 0.9e1 / 0.5e1 * t654 * t655 * t668 * t536 + 0.3e1 / 0.5e1 * t654 * t655 * t288 * t1294 + t1019 * t455 * t288 * t1305 / 0.9e1 + 0.36e2 / 0.5e1 * t654 * t4681 * t288 * t1315 + 0.3e1 * t454 * t1870 * t1224 + t383 * t639 * t479 + 0.9e1 / 0.5e1 * t73 * t639 * t524 - t788 * t275 * t1306 / 0.9e1;
2776   t4772 = -0.9e1 / 0.5e1 * t73 * t275 * t1316 + 0.3e1 / 0.2e1 * t170 * t1719 * t189 + 0.3e1 / 0.2e1 * t170 * t639 * t490 + t170 * t275 * t1268 / 0.2e1 - 0.9e1 / 0.10e2 * t73 * t1719 * t228 - 0.9e1 / 0.10e2 * t73 * t639 * t537 - 0.3e1 / 0.10e2 * t73 * t275 * t1295 - 0.3e1 / 0.10e2 * t73 * t1339 * t289 - 0.9e1 / 0.10e2 * t73 * t514 * t669 - 0.9e1 / 0.10e2 * t73 * t213 * t1706 - 0.3e1 / 0.10e2 * t73 * t100 * t218 * (-0.1232e4 / 0.27e2 * t52 * t1279 - 0.13376e5 / 0.27e2 * t279 * t1283 - 0.2160e4 * t282 * t1286 - 0.170240e6 / 0.27e2 * t285 * t1291) + 0.4e1 * t4483 + 0.2e1 * t431 * t655 * t1660 * t227 - t431 * t455 * t646 * t489 + 0.6e1 * t454 * t1647 * t1665 + 0.6e1 * t454 * t655 * t1640 * t227 + 0.3e1 * t454 * t655 * t1643 * t227 + 0.3e1 * t454 * t655 * t646 * t536 - 0.27e2 / 0.5e1 * t654 * t1631 * t656 * t536 - 0.9e1 * t454 * t1631 * t646 * t523;
2777   t4776 = -0.6e1 / 0.5e1 * t1573 - 0.6e1 / 0.5e1 * t1590 - 0.6e1 / 0.5e1 * t1604 + 0.3e1 * t1681 + 0.3e1 / 0.2e1 * t1683 - 0.9e1 / 0.5e1 * t1686 - 0.9e1 / 0.10e2 * t1689 - 0.9e1 / 0.10e2 * t1692 - 0.9e1 / 0.5e1 * t1695 - 0.9e1 / 0.10e2 * t1708 + t3909 + 0.9e1 / 0.10e2 * t1721 - t3906 + 0.6e1 / 0.5e1 * t1566 + t8 * (t4593 + t4630 + t4697 + t4772);
2778   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2779     v4rho3sigma[11] = t4552 + t4776;
2780 
2781   t4777 = 0.2e1 / 0.5e1 * t1732;
2782   t4786 = 0.4e1 / 0.5e1 * t1751;
2783   t4789 = 0.4e1 / 0.5e1 * t1767;
2784   t4792 = 0.2e1 / 0.5e1 * t1785;
2785   t4797 = t16 * t325 * t683 * t65 / 0.15e2;
2786   t4800 = t16 * t126 * t1740 * t65;
2787   t4813 = t683 * t156;
2788   t4824 = t1378 * t1757;
2789   t4842 = t1378 * t1773;
2790   t4844 = t1378 * t1777;
2791   t4849 = -t4797 + 0.2e1 / 0.5e1 * t4800 + 0.3e1 / 0.10e2 * t16 * t18 * (0.608e3 / 0.9e1 * t28 * t343 + 0.432e3 * t677 * t346 + 0.4480e4 / 0.3e1 * t680 * t351) * t65 - t311 * t4813 * t313 - 0.2e1 * t311 * t3830 * t568 - 0.2e1 * t311 * t1365 * t1370 - t311 * t1365 * t1373 + 0.8e1 / 0.5e1 * t4824 + 0.12e2 / 0.5e1 * t579 * t560 * t363 * t581 + 0.12e2 / 0.5e1 * t579 * t1756 * t1385 + 0.6e1 / 0.5e1 * t579 * t1756 * t1389 + 0.2e1 * t311 * t1381 * t1763 + t311 * t580 * t691 * t319 - 0.12e2 / 0.5e1 * t4842 + 0.8e1 / 0.5e1 * t4844 - 0.18e2 / 0.5e1 * t579 * t3654 * t1772;
2792   t4870 = t1378 * t1791;
2793   t4887 = t116 * t1730 * t122;
2794   t4894 = 0.2e1 / 0.15e2 * t16 * t1449 * t259;
2795   t4897 = 0.2e1 / 0.15e2 * t16 * t326 * t692;
2796   t4898 = t593 * t593;
2797   t4903 = 0.12e2 / 0.5e1 * t579 * t1381 * t1776 - 0.9e1 / 0.5e1 * t579 * t1360 * t691 * t377 + 0.6e1 / 0.5e1 * t579 * t580 * t258 * t1444 - t311 * t876 * t1780 - t311 * t312 * t1800 * t121 - t311 * t312 * t704 * t319 / 0.2e1 + 0.4e1 / 0.5e1 * t4870 + 0.6e1 / 0.5e1 * t579 * t1381 * t1790 + 0.6e1 / 0.5e1 * t579 * t580 * t1800 * t165 + 0.3e1 / 0.5e1 * t579 * t580 * t704 * t377 + t299 * t684 * t301 / 0.3e1 + 0.2e1 / 0.3e1 * t4887 + 0.3e1 / 0.5e1 * t16 * t684 * t365 + t4894 - t4897 + 0.6e1 / 0.5e1 * t16 * t50 * t363 * t4898;
2798   t4907 = t16 * t326 * t705 / 0.15e2;
2799   t4914 = t16 * t1730 * t166;
2800   t4923 = t16 * t1453 * t259;
2801   t4926 = t16 * t548 * t594;
2802   t4938 = t16 * t330 * t692;
2803   t4944 = t16 * t330 * t705;
2804   t4947 = t16 * t127 * t1801;
2805   t4952 = t4907 + t116 * t1741 * t122 + t116 * t684 * t320 / 0.2e1 - 0.2e1 / 0.5e1 * t4914 - 0.3e1 / 0.5e1 * t16 * t1741 * t166 - 0.3e1 / 0.10e2 * t16 * t684 * t378 - 0.4e1 / 0.5e1 * t4923 - 0.4e1 / 0.5e1 * t4926 - 0.3e1 / 0.5e1 * t16 * t1466 * t259 - 0.6e1 / 0.5e1 * t16 * t561 * t594 - 0.3e1 / 0.5e1 * t16 * t245 * t1445 + 0.4e1 / 0.5e1 * t4938 + 0.3e1 / 0.5e1 * t16 * t355 * t692 - 0.2e1 / 0.5e1 * t4944 - 0.2e1 / 0.5e1 * t4947 - 0.3e1 / 0.10e2 * t16 * t355 * t705;
2806   t4970 = t873 * t1748;
2807   t4972 = t244 * t780;
2808   t4980 = t873 * t1764;
2809   t4990 = t873 * t1781;
2810   t5015 = -0.3e1 / 0.5e1 * t16 * t151 * t1801 - 0.3e1 / 0.10e2 * t16 * t50 * t156 * (0.608e3 / 0.9e1 * t55 * t343 + 0.432e3 * t698 * t346 + 0.4480e4 / 0.3e1 * t701 * t351) - 0.2e1 / 0.3e1 * t404 * t1365 * t1354 - 0.4e1 / 0.3e1 * t4970 - 0.18e2 / 0.5e1 * t579 * t4972 * t1361 + 0.2e1 / 0.3e1 * t404 * t580 * t691 * t300 + 0.4e1 / 0.3e1 * t4980 + 0.36e2 / 0.5e1 * t579 * t3668 * t691 * t364 - t404 * t312 * t704 * t300 / 0.3e1 - 0.2e1 / 0.3e1 * t4990 - 0.9e1 / 0.5e1 * t579 * t1360 * t704 * t364 + 0.4e1 * t311 * t1756 * t1393 - 0.6e1 * t311 * t1360 * t1763 * t165 + 0.4e1 * t311 * t580 * t568 * t593 - 0.36e2 / 0.5e1 * t579 * t1360 * t581 * t593 + 0.2e1 * t311 * t580 * t1780 * t165;
2811   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2812     v4rho2sigma2[0] = t1728 + t4777 - 0.3e1 / 0.5e1 * t1746 - 0.6e1 / 0.5e1 * t1754 - 0.6e1 / 0.5e1 * t1761 + 0.6e1 / 0.5e1 * t1770 - 0.3e1 / 0.5e1 * t1788 - 0.3e1 / 0.5e1 * t1803 + 0.3e1 / 0.5e1 * t1743 - 0.2e1 * t1749 - t4786 + 0.12e2 / 0.5e1 * t1758 + 0.2e1 * t1765 + t4789 - 0.18e2 / 0.5e1 * t1774 + 0.12e2 / 0.5e1 * t1778 - t1782 - t4792 + 0.6e1 / 0.5e1 * t1792 + t8 * (t4849 + t4903 + t4952 + t5015);
2813 
2814   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2815     v4rho2sigma2[1] = 0.0e0;
2816 
2817   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2818     v4rho2sigma2[2] = 0.0e0;
2819 
2820   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2821     v4rho2sigma2[3] = 0.0e0;
2822 
2823   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2824     v4rho2sigma2[4] = 0.0e0;
2825 
2826   t5019 = 0.2e1 / 0.5e1 * t1812;
2827   t5021 = 0.4e1 / 0.5e1 * t1817;
2828   t5023 = 0.4e1 / 0.5e1 * t1823;
2829   t5024 = 0.2e1 / 0.5e1 * t1830;
2830   t5029 = t170 * t1810 * t172;
2831   t5037 = t73 * t325 * t718 * t110 / 0.15e2;
2832   t5041 = t1033 * t1814;
2833   t5047 = 0.2e1 / 0.15e2 * t73 * t1484 * t289;
2834   t5052 = t1033 * t1820;
2835   t5059 = 0.2e1 / 0.15e2 * t73 * t397 * t727;
2836   t5064 = t1033 * t1826;
2837   t5072 = t73 * t397 * t740 / 0.15e2;
2838   t5073 = t383 * t719 * t385 / 0.3e1 + 0.2e1 / 0.3e1 * t5029 + t170 * t719 * t393 / 0.2e1 - t5037 - 0.2e1 / 0.3e1 * t431 * t1568 * t1488 - 0.4e1 / 0.3e1 * t5041 - t454 * t1568 * t1494 + t5047 + 0.2e1 / 0.3e1 * t431 * t655 * t726 * t384 + 0.4e1 / 0.3e1 * t5052 + t454 * t655 * t726 * t392 - t5059 - t431 * t455 * t739 * t384 / 0.3e1 - 0.2e1 / 0.3e1 * t5064 - t454 * t455 * t739 * t392 / 0.2e1 + t5072;
2839   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2840     v4rho2sigma2[5] = t8 * t5073 + t1808 - 0.2e1 * t1815 + 0.2e1 * t1821 - t1827 + t5019 - t5021 + t5023 - t5024;
2841 
2842   t5089 = t116 * t1730 * t184;
2843   t5100 = -t4914 / 0.5e1 - 0.2e1 / 0.5e1 * t4923 - 0.2e1 / 0.5e1 * t4926 + 0.2e1 / 0.5e1 * t4938 - t4944 / 0.5e1 - t4947 / 0.5e1 + t5089 / 0.3e1 + t116 * t421 * t683 * t423 / 0.2e1 + t116 * t1741 * t184 / 0.2e1 - 0.2e1 / 0.3e1 * t4970 + 0.2e1 / 0.3e1 * t4980;
2844   t5123 = t873 * t1837;
2845   t5128 = t873 * t1840;
2846   t5133 = t873 * t1843;
2847   t5164 = 0.2e1 / 0.3e1 * t5128 + t1014 * t580 * t691 * t7 - t5133 / 0.3e1 - t1014 * t312 * t704 * t7 / 0.2e1 - 0.2e1 / 0.3e1 * t404 * t1365 * t1523 + 0.2e1 * t311 * t1756 * t1532 + 0.2e1 / 0.3e1 * t404 * t580 * t1839 * t121 - 0.3e1 * t311 * t1360 * t1839 * t165 + 0.2e1 * t311 * t580 * t621 * t593 - t404 * t312 * t1842 * t121 / 0.3e1 + t311 * t580 * t1842 * t165;
2848   t5168 = t8 * (-t4797 + t4800 / 0.5e1 + 0.4e1 / 0.5e1 * t4824 - 0.6e1 / 0.5e1 * t4842 + 0.4e1 / 0.5e1 * t4844 + 0.2e1 / 0.5e1 * t4870 + t4887 / 0.3e1 + t4894 - t4897 + t4907 + t5100 - t4990 / 0.3e1 + t404 * t683 * t65 * t406 / 0.3e1 - t311 * t4813 * t416 / 0.2e1 - t311 * t3830 * t621 - t311 * t1365 * t1535 + t311 * t1381 * t1839 - t311 * t876 * t1842 / 0.2e1 - t311 * t312 * t1800 * t183 / 0.2e1 - 0.2e1 / 0.3e1 * t5123 - t1014 * t1365 * t1539 + t5164) + t1729 + t4777 - t1747 - t1755 - t1762 + t1771 - t1789 - t1804 + t1744 - t1749 - t4786;
2849   t5169 = t1759 + t1765 + t4789 - t1775 + t1779 - t1783 - t4792 + t1793 - t1838 + t1841 - t1845 + t1836;
2850   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2851     v4rho2sigma2[6] = t5168 + t5169;
2852 
2853   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2854     v4rho2sigma2[7] = 0.0e0;
2855 
2856   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2857     v4rho2sigma2[8] = 0.0e0;
2858 
2859   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2860     v4rho2sigma2[9] = 0.0e0;
2861 
2862   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2863     v4rho2sigma2[10] = 0.0e0;
2864 
2865   t5172 = t73 * t126 * t1857 * t110;
2866   t5176 = t170 * t1810 * t189;
2867   t5179 = t73 * t1810 * t228;
2868   t5182 = t73 * t1564 * t289;
2869   t5185 = t73 * t605 * t669;
2870   t5189 = t73 * t449 * t727;
2871   t5192 = t73 * t449 * t740;
2872   t5195 = t73 * t176 * t1909;
2873   t5211 = t718 * t218;
2874   t5217 = 0.2e1 / 0.5e1 * t5189 - t5192 / 0.5e1 - t5195 / 0.5e1 - t170 * t421 * t718 * t441 / 0.2e1 + t170 * t1858 * t172 / 0.2e1 - 0.2e1 / 0.3e1 * t5041 + 0.2e1 / 0.3e1 * t5052 - t5064 / 0.3e1 + t431 * t718 * t110 * t433 / 0.3e1 - t454 * t5211 * t456 / 0.2e1 + t1089 * t1568 * t1581;
2875   t5239 = t1033 * t1865;
2876   t5241 = t1596 * t1871;
2877   t5243 = t1033 * t1878;
2878   t5246 = t1596 * t1884;
2879   t5248 = t1596 * t1888;
2880   t5250 = t1033 * t1892;
2881   t5252 = t1596 * t1899;
2882   t5279 = -0.6e1 / 0.5e1 * t5246 + 0.4e1 / 0.5e1 * t5248 - t5250 / 0.3e1 + 0.2e1 / 0.5e1 * t5252 - 0.2e1 / 0.3e1 * t431 * t1568 * t1575 + 0.2e1 * t454 * t1870 * t1592 + 0.2e1 / 0.3e1 * t431 * t655 * t1877 * t171 - 0.3e1 * t454 * t1631 * t1883 * t171 + 0.2e1 * t454 * t655 * t1887 * t171 - t431 * t455 * t1891 * t171 / 0.3e1 + t454 * t655 * t1898 * t171;
2883   t5283 = t8 * (-t5037 + t5172 / 0.5e1 + t5029 / 0.3e1 + t5047 - t5059 + t5072 + t5176 / 0.3e1 - t5179 / 0.5e1 - 0.2e1 / 0.5e1 * t5182 - 0.2e1 / 0.5e1 * t5185 + t5217 - t454 * t4412 * t609 - t454 * t1568 * t1599 - t1089 * t655 * t726 * t7 + t454 * t1647 * t1819 + t1089 * t455 * t739 * t7 / 0.2e1 - t454 * t1097 * t1825 / 0.2e1 - t454 * t455 * t1908 * t171 / 0.2e1 - 0.2e1 / 0.3e1 * t5239 + 0.4e1 / 0.5e1 * t5241 + 0.2e1 / 0.3e1 * t5243 + t5279) + t1809 + t5019 + t1861 - t1815 - t5021 + t1821 + t5023 - t1828 - t5024 - t1866 + t1873;
2884   t5284 = t1879 - t1886 + t1890 - t1894 + t1901 + t1850 - t1864 - t1869 - t1876 + t1882 - t1897 - t1912;
2885   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2886     v4rho2sigma2[11] = t5283 + t5284;
2887 
2888   t5317 = t299 * t684 * t468 / 0.3e1 + 0.2e1 / 0.3e1 * t5089 + t116 * t684 * t474 / 0.2e1 - t4797 - 0.2e1 / 0.3e1 * t404 * t1365 * t1615 - 0.4e1 / 0.3e1 * t5123 - t311 * t1365 * t1620 + t4894 + 0.2e1 / 0.3e1 * t404 * t580 * t691 * t467 + 0.4e1 / 0.3e1 * t5128 + t311 * t580 * t691 * t473 - t4897 - t404 * t312 * t704 * t467 / 0.3e1 - 0.2e1 / 0.3e1 * t5133 - t311 * t312 * t704 * t473 / 0.2e1 + t4907;
2889   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2890     v4rho2sigma2[12] = t8 * t5317 + t1835 - 0.2e1 * t1838 + 0.2e1 * t1841 - t1844 + t4777 - t4786 + t4789 - t4792;
2891 
2892   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2893     v4rho2sigma2[13] = 0.0e0;
2894 
2895   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2896     v4rho2sigma2[14] = 0.0e0;
2897 
2898   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2899     v4rho2sigma2[15] = 0.0e0;
2900 
2901   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2902     v4rho2sigma2[16] = 0.0e0;
2903 
2904   t5345 = t668 * t668;
2905   t5350 = -t5037 + 0.2e1 / 0.5e1 * t5172 + 0.3e1 / 0.10e2 * t73 * t18 * (0.608e3 / 0.9e1 * t28 * t502 + 0.432e3 * t712 * t505 + 0.4480e4 / 0.3e1 * t715 * t510) * t110 + t5047 - t5059 + t5072 + 0.2e1 / 0.3e1 * t5176 - 0.2e1 / 0.5e1 * t5179 - 0.4e1 / 0.5e1 * t5182 - 0.4e1 / 0.5e1 * t5185 + 0.4e1 / 0.5e1 * t5189 - 0.2e1 / 0.5e1 * t5192 - 0.2e1 / 0.5e1 * t5195 + t383 * t719 * t479 / 0.3e1 + 0.3e1 / 0.5e1 * t73 * t719 * t524 + 0.6e1 / 0.5e1 * t73 * t100 * t522 * t5345;
2906   t5396 = t170 * t1858 * t189 + t170 * t719 * t490 / 0.2e1 - 0.3e1 / 0.5e1 * t73 * t1858 * t228 - 0.3e1 / 0.10e2 * t73 * t719 * t537 - 0.3e1 / 0.5e1 * t73 * t1719 * t289 - 0.6e1 / 0.5e1 * t73 * t639 * t669 - 0.3e1 / 0.5e1 * t73 * t275 * t1706 + 0.3e1 / 0.5e1 * t73 * t514 * t727 - 0.3e1 / 0.10e2 * t73 * t514 * t740 - 0.3e1 / 0.5e1 * t73 * t213 * t1909 - 0.3e1 / 0.10e2 * t73 * t100 * t218 * (0.608e3 / 0.9e1 * t55 * t502 + 0.432e3 * t733 * t505 + 0.4480e4 / 0.3e1 * t736 * t510) - 0.4e1 / 0.3e1 * t5239 + 0.8e1 / 0.5e1 * t5241 + 0.4e1 / 0.3e1 * t5243 - 0.12e2 / 0.5e1 * t5246 + 0.8e1 / 0.5e1 * t5248;
2907   t5442 = -0.2e1 / 0.3e1 * t5250 + 0.4e1 / 0.5e1 * t5252 - t454 * t5211 * t486 - 0.2e1 * t454 * t4412 * t646 - 0.2e1 * t454 * t1568 * t1640 - t454 * t1568 * t1643 + 0.12e2 / 0.5e1 * t654 * t638 * t522 * t656 + 0.12e2 / 0.5e1 * t654 * t1870 * t1651 + 0.6e1 / 0.5e1 * t654 * t1870 * t1655 + 0.2e1 * t454 * t1647 * t1877 + t454 * t655 * t726 * t489 - 0.18e2 / 0.5e1 * t654 * t4645 * t1883 + 0.12e2 / 0.5e1 * t654 * t1647 * t1887 - 0.9e1 / 0.5e1 * t654 * t1631 * t726 * t536 + 0.6e1 / 0.5e1 * t654 * t655 * t288 * t1705 - t454 * t1097 * t1891;
2908   t5464 = t274 * t1314;
2909   t5503 = -t454 * t455 * t1908 * t188 - t454 * t455 * t739 * t489 / 0.2e1 + 0.6e1 / 0.5e1 * t654 * t1647 * t1898 + 0.6e1 / 0.5e1 * t654 * t655 * t1908 * t227 + 0.3e1 / 0.5e1 * t654 * t655 * t739 * t536 - 0.2e1 / 0.3e1 * t431 * t1568 * t1660 - 0.18e2 / 0.5e1 * t654 * t5464 * t1632 + 0.2e1 / 0.3e1 * t431 * t655 * t726 * t478 + 0.36e2 / 0.5e1 * t654 * t4681 * t726 * t523 - t431 * t455 * t739 * t478 / 0.3e1 - 0.9e1 / 0.5e1 * t654 * t1631 * t739 * t523 + 0.4e1 * t454 * t1870 * t1665 - 0.6e1 * t454 * t1631 * t1877 * t227 + 0.4e1 * t454 * t655 * t646 * t668 - 0.36e2 / 0.5e1 * t654 * t1631 * t656 * t668 + 0.2e1 * t454 * t655 * t1891 * t227;
2910   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2911     v4rho2sigma2[17] = t5019 + 0.3e1 / 0.5e1 * t1860 + t8 * (t5350 + t5396 + t5442 + t5503) - t5021 + t5023 - t5024 - 0.2e1 * t1866 + 0.12e2 / 0.5e1 * t1872 + 0.2e1 * t1879 - 0.18e2 / 0.5e1 * t1885 + 0.12e2 / 0.5e1 * t1889 - t1893 + 0.6e1 / 0.5e1 * t1900 + t1849 - 0.3e1 / 0.5e1 * t1863 - 0.6e1 / 0.5e1 * t1868 - 0.6e1 / 0.5e1 * t1875 + 0.6e1 / 0.5e1 * t1881 - 0.3e1 / 0.5e1 * t1896 - 0.3e1 / 0.5e1 * t1911;
2912 
2913   t5531 = t16 * t126 * t1920 * t65 / 0.5e1;
2914   t5534 = 0.3e1 / 0.5e1 * t16 * t1730 * t259;
2915   t5537 = 0.6e1 / 0.5e1 * t16 * t548 * t692;
2916   t5540 = 0.3e1 / 0.5e1 * t16 * t548 * t705;
2917   t5543 = 0.6e1 / 0.5e1 * t16 * t127 * t1935;
2918   t5546 = t16 * t127 * t1949 / 0.5e1;
2919   t5583 = 0.3e1 / 0.10e2 * t16 * t18 * (-0.48e2 * t36 * t142 - 0.256e3 * t1917 * t147) * t65 + t5531 - t5534 + t5537 - t5540 - t5543 - t5546 + t116 * t1921 * t122 / 0.2e1 - 0.3e1 / 0.10e2 * t16 * t1921 * t166 - 0.9e1 / 0.10e2 * t16 * t1741 * t259 - 0.9e1 / 0.10e2 * t16 * t684 * t594 + 0.9e1 / 0.5e1 * t16 * t561 * t692 - 0.9e1 / 0.10e2 * t16 * t561 * t705 - 0.9e1 / 0.10e2 * t16 * t245 * t1801 - 0.9e1 / 0.5e1 * t16 * t151 * t1935 - 0.3e1 / 0.10e2 * t16 * t151 * t1949 - 0.3e1 / 0.10e2 * t16 * t50 * t156 * (-0.48e2 * t58 * t142 - 0.256e3 * t1945 * t147);
2920   t5638 = 0.6e1 / 0.5e1 * t1378 * t1940;
2921   t5647 = -0.3e1 / 0.2e1 * t311 * t4813 * t568 + 0.9e1 / 0.5e1 * t579 * t683 * t363 * t581 + 0.3e1 * t311 * t1756 * t1763 - 0.27e2 / 0.5e1 * t579 * t4972 * t1772 + 0.18e2 / 0.5e1 * t579 * t1756 * t1776 - 0.3e1 / 0.2e1 * t311 * t1365 * t1780 + 0.9e1 / 0.5e1 * t579 * t1756 * t1790 - 0.3e1 * t311 * t1360 * t1934 * t121 + 0.36e2 / 0.5e1 * t579 * t3668 * t1934 * t165 - 0.27e2 / 0.5e1 * t579 * t1360 * t691 * t593 + 0.9e1 / 0.5e1 * t579 * t1381 * t1939 + 0.9e1 / 0.5e1 * t579 * t580 * t593 * t704 + 0.9e1 / 0.5e1 * t579 * t580 * t258 * t1800 - t311 * t312 * t1948 * t121 / 0.2e1 + 0.3e1 / 0.5e1 * t579 * t580 * t1948 * t165 + t5638 + 0.3e1 * t311 * t580 * t1939 * t121 - 0.27e2 / 0.5e1 * t579 * t1360 * t1939 * t165;
2922   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2923     v4rhosigma3[0] = t1924 - t1927 + t1930 - t1933 - t1938 + t1942 - t1952 + t8 * (t5583 + t5647);
2924 
2925   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2926     v4rhosigma3[1] = 0.0e0;
2927 
2928   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2929     v4rhosigma3[2] = 0.0e0;
2930 
2931   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2932     v4rhosigma3[3] = 0.0e0;
2933 
2934   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2935     v4rhosigma3[4] = 0.0e0;
2936 
2937   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2938     v4rhosigma3[5] = 0.0e0;
2939 
2940   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2941     v4rhosigma3[6] = 0.0e0;
2942 
2943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2944     v4rhosigma3[7] = 0.0e0;
2945 
2946   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2947     v4rhosigma3[8] = 0.0e0;
2948 
2949   t5656 = t73 * t126 * t1959 * t110 / 0.5e1;
2950   t5662 = 0.3e1 / 0.5e1 * t73 * t1810 * t289;
2951   t5668 = 0.6e1 / 0.5e1 * t73 * t605 * t727;
2952   t5674 = 0.3e1 / 0.5e1 * t73 * t605 * t740;
2953   t5681 = 0.6e1 / 0.5e1 * t73 * t176 * t1974;
2954   t5687 = 0.6e1 / 0.5e1 * t1596 * t1979;
2955   t5694 = t73 * t176 * t1988 / 0.5e1;
2956   t5695 = t170 * t1960 * t172 / 0.2e1 + t5656 - 0.3e1 / 0.2e1 * t454 * t5211 * t609 - t5662 + 0.3e1 * t454 * t1870 * t1819 + t5668 - 0.3e1 / 0.2e1 * t454 * t1568 * t1825 - t5674 - 0.3e1 * t454 * t1631 * t1973 * t171 - t5681 + 0.3e1 * t454 * t655 * t1978 * t171 + t5687 - t454 * t455 * t1987 * t171 / 0.2e1 - t5694;
2957   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2958     v4rhosigma3[9] = t8 * t5695 + t1963 - t1966 + t1969 - t1972 - t1977 + t1981 - t1991;
2959 
2960   t5721 = t116 * t1921 * t184 / 0.2e1 + t5531 - 0.3e1 / 0.2e1 * t311 * t4813 * t621 - t5534 + 0.3e1 * t311 * t1756 * t1839 + t5537 - 0.3e1 / 0.2e1 * t311 * t1365 * t1842 - t5540 - 0.3e1 * t311 * t1360 * t1934 * t183 - t5543 + 0.3e1 * t311 * t580 * t1939 * t183 + t5638 - t311 * t312 * t1948 * t183 / 0.2e1 - t5546;
2961   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2962     v4rhosigma3[10] = t8 * t5721 + t1924 - t1927 + t1930 - t1933 - t1938 + t1942 - t1952;
2963 
2964   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2965     v4rhosigma3[11] = 0.0e0;
2966 
2967   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2968     v4rhosigma3[12] = 0.0e0;
2969 
2970   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2971     v4rhosigma3[13] = 0.0e0;
2972 
2973   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2974     v4rhosigma3[14] = 0.0e0;
2975 
2976   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2977     v4rhosigma3[15] = 0.0e0;
2978 
2979   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2980     v4rhosigma3[16] = 0.0e0;
2981 
2982   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2983     v4rhosigma3[17] = 0.0e0;
2984 
2985   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2986     v4rhosigma3[18] = 0.0e0;
2987 
2988   t5768 = t5656 + 0.3e1 / 0.10e2 * t73 * t18 * (-0.256e3 * t1956 * t209 - 0.48e2 * t36 * t204) * t110 - t5662 + t5668 - t5674 - t5681 - t5694 + t170 * t1960 * t189 / 0.2e1 - 0.3e1 / 0.10e2 * t73 * t1960 * t228 - 0.9e1 / 0.10e2 * t73 * t1858 * t289 - 0.9e1 / 0.10e2 * t73 * t719 * t669 + 0.9e1 / 0.5e1 * t73 * t639 * t727 - 0.9e1 / 0.10e2 * t73 * t639 * t740 - 0.9e1 / 0.10e2 * t73 * t275 * t1909 - 0.9e1 / 0.5e1 * t73 * t213 * t1974 - 0.3e1 / 0.10e2 * t73 * t213 * t1988 - 0.3e1 / 0.10e2 * t73 * t100 * t218 * (-0.256e3 * t1984 * t209 - 0.48e2 * t58 * t204);
2989   t5830 = t5687 - 0.3e1 / 0.2e1 * t454 * t5211 * t646 + 0.9e1 / 0.5e1 * t654 * t718 * t522 * t656 + 0.3e1 * t454 * t1870 * t1877 - 0.27e2 / 0.5e1 * t654 * t5464 * t1883 + 0.18e2 / 0.5e1 * t654 * t1870 * t1887 - 0.3e1 / 0.2e1 * t454 * t1568 * t1891 + 0.9e1 / 0.5e1 * t654 * t1870 * t1898 - 0.3e1 * t454 * t1631 * t1973 * t188 + 0.36e2 / 0.5e1 * t654 * t4681 * t1973 * t227 - 0.27e2 / 0.5e1 * t654 * t1631 * t726 * t668 + 0.9e1 / 0.5e1 * t654 * t1647 * t1978 + 0.9e1 / 0.5e1 * t654 * t655 * t668 * t739 + 0.9e1 / 0.5e1 * t654 * t655 * t288 * t1908 - t454 * t455 * t1987 * t188 / 0.2e1 + 0.3e1 / 0.5e1 * t654 * t655 * t1987 * t227 + 0.3e1 * t454 * t655 * t1978 * t188 - 0.27e2 / 0.5e1 * t654 * t1631 * t1978 * t227;
2990   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2991     v4rhosigma3[19] = t1963 - t1966 + t1969 - t1972 - t1977 + t1981 - t1991 + t8 * (t5768 + t5830);
2992 
2993   t5833 = t18 * t42;
2994   t5856 = t691 * t691;
2995   t5865 = t704 * t704;
2996   t5878 = 0.36e2 / 0.5e1 * t16 * t5833 * t47 * t65 - 0.6e1 / 0.5e1 * t16 * t1921 * t259 + 0.18e2 / 0.5e1 * t16 * t684 * t692 - 0.9e1 / 0.5e1 * t16 * t684 * t705 - 0.36e2 / 0.5e1 * t16 * t245 * t1935 + 0.36e2 / 0.5e1 * t579 * t1756 * t1939 - 0.6e1 / 0.5e1 * t16 * t245 * t1949 + 0.36e2 / 0.5e1 * t16 * t50 * t2191 * t5856 - 0.54e2 / 0.5e1 * t579 * t1360 * t691 * t704 + 0.9e1 / 0.5e1 * t16 * t50 * t363 * t5865 + 0.12e2 / 0.5e1 * t579 * t580 * t258 * t1948 - 0.36e2 / 0.5e1 * t579 * t312 * t61 * t47;
2997   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2998     v4sigma4[0] = t8 * t5878;
2999 
3000   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3001     v4sigma4[1] = 0.0e0;
3002 
3003   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3004     v4sigma4[2] = 0.0e0;
3005 
3006   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3007     v4sigma4[3] = 0.0e0;
3008 
3009   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3010     v4sigma4[4] = 0.0e0;
3011 
3012   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3013     v4sigma4[5] = 0.0e0;
3014 
3015   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3016     v4sigma4[6] = 0.0e0;
3017 
3018   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3019     v4sigma4[7] = 0.0e0;
3020 
3021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3022     v4sigma4[8] = 0.0e0;
3023 
3024   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3025     v4sigma4[9] = 0.0e0;
3026 
3027   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3028     v4sigma4[10] = 0.0e0;
3029 
3030   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3031     v4sigma4[11] = 0.0e0;
3032 
3033   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3034     v4sigma4[12] = 0.0e0;
3035 
3036   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3037     v4sigma4[13] = 0.0e0;
3038 
3039   t5901 = t726 * t726;
3040   t5910 = t739 * t739;
3041   t5923 = 0.36e2 / 0.5e1 * t73 * t5833 * t97 * t110 - 0.6e1 / 0.5e1 * t73 * t1960 * t289 + 0.18e2 / 0.5e1 * t73 * t719 * t727 - 0.9e1 / 0.5e1 * t73 * t719 * t740 - 0.36e2 / 0.5e1 * t73 * t275 * t1974 + 0.36e2 / 0.5e1 * t654 * t1870 * t1978 - 0.6e1 / 0.5e1 * t73 * t275 * t1988 + 0.36e2 / 0.5e1 * t73 * t100 * t3486 * t5901 - 0.54e2 / 0.5e1 * t654 * t1631 * t726 * t739 + 0.9e1 / 0.5e1 * t73 * t100 * t522 * t5910 + 0.12e2 / 0.5e1 * t654 * t655 * t288 * t1987 - 0.36e2 / 0.5e1 * t654 * t455 * t61 * t97;
3042   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3043     v4sigma4[14] = t8 * t5923;
3044 
3045 #ifndef XC_DONT_COMPILE_MXC
3046 
3047   if(order < 5) return;
3048 
3049 
3050 #endif
3051 
3052 #endif
3053 
3054 #endif
3055 
3056 #endif
3057 
3058 #endif
3059 
3060 
3061 }
3062 
3063