1 /*
2   This file was generated automatically with ./scripts/maple2c.pl.
3   Do not edit this file directly as it can be overwritten!!
4 
5   This Source Code Form is subject to the terms of the Mozilla Public
6   License, v. 2.0. If a copy of the MPL was not distributed with this
7   file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 
9   Maple version     : Maple 2016 (X86 64 LINUX)
10   Maple source      : ./maple/gga_exc/gga_x_ev93.mpl
11   Type of functional: gga_exc
12 */
13 
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16 
17 
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,double * zk,GGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
20 {
21 
22 #ifndef XC_DONT_COMPILE_EXC
23   double t1, t3, t4, t5, t6, t7, t8, t9;
24   double t10, t11, t12, t13, t14, t15, t16, t17;
25   double t18, t19, t20, t21, t23, t24, t27, t28;
26   double t30, t31, t32, t33, t34, t35, t37, t38;
27   double t41, t42, t43, t44, t45, t46, t47, t50;
28   double t51, t52, t55, t56, t59, t62, t63, t64;
29   double t66;
30 
31 #ifndef XC_DONT_COMPILE_VXC
32   double t70, t71, t72, t73, t75, t76, t79, t81;
33   double t82, t85, t86, t87, t90, t91, t95, t96;
34   double t97, t98, t99, t106, t107, t111, t112, t115;
35   double t116, t119, t122, t124, t132, t133, t134;
36 
37 #ifndef XC_DONT_COMPILE_FXC
38   double t137, t138, t145, t146, t151, t152, t155, t157;
39   double t158, t162, t163, t166, t167, t171, t176, t177;
40   double t178, t188, t189, t193, t194, t197, t200, t203;
41   double t206, t208, t211, t212, t215, t218, t221, t222;
42   double t223, t232, t233, t234, t237, t238, t241, t244;
43   double t246, t249, t252, t253, t254, t261, t262, t263;
44 
45 #ifndef XC_DONT_COMPILE_KXC
46   double t267, t268, t272, t276, t283, t291, t292, t296;
47   double t297, t301, t302, t305, t306, t322, t323, t333;
48   double t334, t335, t336, t341, t345, t346, t351, t352;
49   double t355, t362, t365, t368, t371, t374, t377, t378;
50   double t379, t390, t392, t395, t398, t402, t405, t406;
51   double t407, t410, t411, t415, t416, t421, t424, t427;
52   double t429, t432, t433, t438, t441, t444, t449, t452;
53   double t453, t454, t457, t458, t463, t466, t467, t468;
54   double t475, t476, t477, t481, t482, t483, t484, t486;
55   double t489, t492, t495, t498, t499, t500, t503, t504;
56   double t508, t509;
57 
58 #ifndef XC_DONT_COMPILE_LXC
59   double t512, t517, t522, t542, t574, t579, t580, t585;
60   double t625, t630, t633, t636, t644, t669, t685, t706;
61   double t707, t708, t762, t765, t768, t822, t827, t832;
62   double t897, t902, t933, t938, t979, t980, t987, t1007;
63   double t1016;
64 #endif
65 
66 #endif
67 
68 #endif
69 
70 #endif
71 
72 #endif
73 
74 
75   gga_x_ev93_params *params;
76 
77   assert(p->params != NULL);
78   params = (gga_x_ev93_params * )(p->params);
79 
80   t1 = M_CBRT3;
81   t3 = POW_1_3(0.1e1 / M_PI);
82   t4 = t1 * t3;
83   t5 = M_CBRT4;
84   t6 = t5 * t5;
85   t7 = t4 * t6;
86   t8 = M_CBRT2;
87   t9 = t8 * t8;
88   t10 = POW_1_3(rho[0]);
89   t11 = t9 * t10;
90   t12 = M_CBRT6;
91   t13 = params->a1 * t12;
92   t14 = M_PI * M_PI;
93   t15 = POW_1_3(t14);
94   t16 = t15 * t15;
95   t17 = 0.1e1 / t16;
96   t18 = t13 * t17;
97   t19 = sigma[0] * t9;
98   t20 = rho[0] * rho[0];
99   t21 = t10 * t10;
100   t23 = 0.1e1 / t21 / t20;
101   t24 = t19 * t23;
102   t27 = t12 * t12;
103   t28 = params->a2 * t27;
104   t30 = 0.1e1 / t15 / t14;
105   t31 = t28 * t30;
106   t32 = sigma[0] * sigma[0];
107   t33 = t32 * t8;
108   t34 = t20 * t20;
109   t35 = t34 * rho[0];
110   t37 = 0.1e1 / t10 / t35;
111   t38 = t33 * t37;
112   t41 = t14 * t14;
113   t42 = 0.1e1 / t41;
114   t43 = params->a3 * t42;
115   t44 = t32 * sigma[0];
116   t45 = t34 * t34;
117   t46 = 0.1e1 / t45;
118   t47 = t44 * t46;
119   t50 = 0.1e1 + t18 * t24 / 0.24e2 + t31 * t38 / 0.288e3 + t43 * t47 / 0.576e3;
120   t51 = params->b1 * t12;
121   t52 = t51 * t17;
122   t55 = params->b2 * t27;
123   t56 = t55 * t30;
124   t59 = params->b3 * t42;
125   t62 = 0.1e1 + t52 * t24 / 0.24e2 + t56 * t38 / 0.288e3 + t59 * t47 / 0.576e3;
126   t63 = 0.1e1 / t62;
127   t64 = t50 * t63;
128   t66 = t7 * t11 * t64;
129   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
130     zk[0] = -0.3e1 / 0.16e2 * t66;
131 
132 #ifndef XC_DONT_COMPILE_VXC
133 
134   if(order < 1) return;
135 
136 
137   t70 = t10 * rho[0] * t1;
138   t71 = t70 * t3;
139   t72 = t6 * t9;
140   t73 = t20 * rho[0];
141   t75 = 0.1e1 / t21 / t73;
142   t76 = t19 * t75;
143   t79 = t34 * t20;
144   t81 = 0.1e1 / t10 / t79;
145   t82 = t33 * t81;
146   t85 = t45 * rho[0];
147   t86 = 0.1e1 / t85;
148   t87 = t44 * t86;
149   t90 = -t18 * t76 / 0.9e1 - t31 * t82 / 0.54e2 - t43 * t87 / 0.72e2;
150   t91 = t90 * t63;
151   t95 = t3 * t6;
152   t96 = t70 * t95;
153   t97 = t9 * t50;
154   t98 = t62 * t62;
155   t99 = 0.1e1 / t98;
156   t106 = -t52 * t76 / 0.9e1 - t56 * t82 / 0.54e2 - t59 * t87 / 0.72e2;
157   t107 = t99 * t106;
158   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
159     vrho[0] = -t66 / 0.4e1 - 0.3e1 / 0.16e2 * t71 * t72 * t91 + 0.3e1 / 0.16e2 * t96 * t97 * t107;
160 
161   t111 = t17 * t9;
162   t112 = t111 * t23;
163   t115 = sigma[0] * t8;
164   t116 = t115 * t37;
165   t119 = t32 * t46;
166   t122 = t13 * t112 / 0.24e2 + t31 * t116 / 0.144e3 + t43 * t119 / 0.192e3;
167   t124 = t72 * t122 * t63;
168   t132 = t51 * t112 / 0.24e2 + t56 * t116 / 0.144e3 + t59 * t119 / 0.192e3;
169   t133 = t99 * t132;
170   t134 = t97 * t133;
171   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
172     vsigma[0] = -0.3e1 / 0.16e2 * t71 * t124 + 0.3e1 / 0.16e2 * t96 * t134;
173 
174 #ifndef XC_DONT_COMPILE_FXC
175 
176   if(order < 2) return;
177 
178 
179   t137 = 0.1e1 / t21;
180   t138 = t9 * t137;
181   t145 = t4 * t72;
182   t146 = t10 * t50;
183   t151 = 0.1e1 / t21 / t34;
184   t152 = t19 * t151;
185   t155 = t34 * t73;
186   t157 = 0.1e1 / t10 / t155;
187   t158 = t33 * t157;
188   t162 = 0.1e1 / t45 / t20;
189   t163 = t44 * t162;
190   t166 = 0.11e2 / 0.27e2 * t18 * t152 + 0.19e2 / 0.162e3 * t31 * t158 + t43 * t163 / 0.8e1;
191   t167 = t166 * t63;
192   t171 = t9 * t90;
193   t176 = 0.1e1 / t98 / t62;
194   t177 = t106 * t106;
195   t178 = t176 * t177;
196   t188 = 0.11e2 / 0.27e2 * t52 * t152 + 0.19e2 / 0.162e3 * t56 * t158 + t59 * t163 / 0.8e1;
197   t189 = t99 * t188;
198   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
199     v2rho2[0] = -t7 * t138 * t64 / 0.12e2 - t7 * t11 * t91 / 0.2e1 + t145 * t146 * t107 / 0.2e1 - 0.3e1 / 0.16e2 * t71 * t72 * t167 + 0.3e1 / 0.8e1 * t96 * t171 * t107 - 0.3e1 / 0.8e1 * t96 * t97 * t178 + 0.3e1 / 0.16e2 * t96 * t97 * t189;
200 
201   t193 = t10 * t1;
202   t194 = t193 * t3;
203   t197 = t111 * t75;
204   t200 = t115 * t81;
205   t203 = t32 * t86;
206   t206 = -t13 * t197 / 0.9e1 - t31 * t200 / 0.27e2 - t43 * t203 / 0.24e2;
207   t208 = t72 * t206 * t63;
208   t211 = t9 * t122;
209   t212 = t211 * t107;
210   t215 = t193 * t95;
211   t218 = t171 * t133;
212   t221 = t176 * t132;
213   t222 = t221 * t106;
214   t223 = t97 * t222;
215   t232 = -t51 * t197 / 0.9e1 - t56 * t200 / 0.27e2 - t59 * t203 / 0.24e2;
216   t233 = t99 * t232;
217   t234 = t97 * t233;
218   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
219     v2rhosigma[0] = -t194 * t124 / 0.4e1 - 0.3e1 / 0.16e2 * t71 * t208 + 0.3e1 / 0.16e2 * t96 * t212 + t215 * t134 / 0.4e1 + 0.3e1 / 0.16e2 * t96 * t218 - 0.3e1 / 0.8e1 * t96 * t223 + 0.3e1 / 0.16e2 * t96 * t234;
220 
221   t237 = t30 * t8;
222   t238 = t237 * t37;
223   t241 = sigma[0] * t46;
224   t244 = t28 * t238 / 0.144e3 + t43 * t241 / 0.96e2;
225   t246 = t72 * t244 * t63;
226   t249 = t211 * t133;
227   t252 = t132 * t132;
228   t253 = t176 * t252;
229   t254 = t97 * t253;
230   t261 = t55 * t238 / 0.144e3 + t59 * t241 / 0.96e2;
231   t262 = t99 * t261;
232   t263 = t97 * t262;
233   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
234     v2sigma2[0] = -0.3e1 / 0.16e2 * t71 * t246 + 0.3e1 / 0.8e1 * t96 * t249 - 0.3e1 / 0.8e1 * t96 * t254 + 0.3e1 / 0.16e2 * t96 * t263;
235 
236 #ifndef XC_DONT_COMPILE_KXC
237 
238   if(order < 3) return;
239 
240 
241   t267 = 0.1e1 / t21 / rho[0];
242   t268 = t9 * t267;
243   t272 = t137 * t50;
244   t276 = t10 * t90;
245   t283 = t9 * t166;
246   t291 = 0.1e1 / t21 / t35;
247   t292 = t19 * t291;
248   t296 = 0.1e1 / t10 / t45;
249   t297 = t33 * t296;
250   t301 = 0.1e1 / t45 / t73;
251   t302 = t44 * t301;
252   t305 = -0.154e3 / 0.81e2 * t52 * t292 - 0.209e3 / 0.243e3 * t56 * t297 - 0.5e1 / 0.4e1 * t59 * t302;
253   t306 = t99 * t305;
254   t322 = -0.154e3 / 0.81e2 * t18 * t292 - 0.209e3 / 0.243e3 * t31 * t297 - 0.5e1 / 0.4e1 * t43 * t302;
255   t323 = t322 * t63;
256   t333 = t98 * t98;
257   t334 = 0.1e1 / t333;
258   t335 = t177 * t106;
259   t336 = t334 * t335;
260   t341 = t176 * t106 * t188;
261   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
262     v3rho3[0] = t7 * t268 * t64 / 0.18e2 + t145 * t272 * t107 / 0.4e1 + 0.3e1 / 0.2e1 * t145 * t276 * t107 + 0.3e1 / 0.4e1 * t145 * t146 * t189 + 0.9e1 / 0.16e2 * t96 * t283 * t107 + 0.9e1 / 0.16e2 * t96 * t171 * t189 + 0.3e1 / 0.16e2 * t96 * t97 * t306 - t7 * t138 * t91 / 0.4e1 - 0.3e1 / 0.4e1 * t7 * t11 * t167 - 0.3e1 / 0.16e2 * t71 * t72 * t323 - 0.3e1 / 0.2e1 * t145 * t146 * t178 - 0.9e1 / 0.8e1 * t96 * t171 * t178 + 0.9e1 / 0.8e1 * t96 * t97 * t336 - 0.9e1 / 0.8e1 * t96 * t97 * t341;
263 
264   t345 = t137 * t1;
265   t346 = t345 * t3;
266   t351 = t9 * t206;
267   t352 = t351 * t107;
268   t355 = t211 * t189;
269   t362 = t283 * t133;
270   t365 = t171 * t233;
271   t368 = t111 * t151;
272   t371 = t115 * t157;
273   t374 = t32 * t162;
274   t377 = 0.11e2 / 0.27e2 * t51 * t368 + 0.19e2 / 0.81e2 * t56 * t371 + 0.3e1 / 0.8e1 * t59 * t374;
275   t378 = t99 * t377;
276   t379 = t97 * t378;
277   t390 = 0.11e2 / 0.27e2 * t13 * t368 + 0.19e2 / 0.81e2 * t31 * t371 + 0.3e1 / 0.8e1 * t43 * t374;
278   t392 = t72 * t390 * t63;
279   t395 = t211 * t178;
280   t398 = t345 * t95;
281   t402 = t171 * t222;
282   t405 = t176 * t232;
283   t406 = t405 * t106;
284   t407 = t97 * t406;
285   t410 = t221 * t188;
286   t411 = t97 * t410;
287   t415 = t334 * t132 * t177;
288   t416 = t97 * t415;
289   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
290     v3rho2sigma[0] = -t346 * t124 / 0.12e2 + t215 * t212 / 0.2e1 + 0.3e1 / 0.8e1 * t96 * t352 + 0.3e1 / 0.16e2 * t96 * t355 + t215 * t218 / 0.2e1 + t215 * t234 / 0.2e1 + 0.3e1 / 0.16e2 * t96 * t362 + 0.3e1 / 0.8e1 * t96 * t365 + 0.3e1 / 0.16e2 * t96 * t379 - t194 * t208 / 0.2e1 - 0.3e1 / 0.16e2 * t71 * t392 - 0.3e1 / 0.8e1 * t96 * t395 + t398 * t134 / 0.12e2 - t215 * t223 - 0.3e1 / 0.4e1 * t96 * t402 - 0.3e1 / 0.4e1 * t96 * t407 - 0.3e1 / 0.8e1 * t96 * t411 + 0.9e1 / 0.8e1 * t96 * t416;
291 
292   t421 = t237 * t81;
293   t424 = sigma[0] * t86;
294   t427 = -t28 * t421 / 0.27e2 - t43 * t424 / 0.12e2;
295   t429 = t72 * t427 * t63;
296   t432 = t9 * t244;
297   t433 = t432 * t107;
298   t438 = t351 * t133;
299   t441 = t211 * t222;
300   t444 = t211 * t233;
301   t449 = t171 * t253;
302   t452 = t334 * t252;
303   t453 = t452 * t106;
304   t454 = t97 * t453;
305   t457 = t221 * t232;
306   t458 = t97 * t457;
307   t463 = t171 * t262;
308   t466 = t176 * t261;
309   t467 = t466 * t106;
310   t468 = t97 * t467;
311   t475 = -t55 * t421 / 0.27e2 - t59 * t424 / 0.12e2;
312   t476 = t99 * t475;
313   t477 = t97 * t476;
314   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
315     v3rhosigma2[0] = -t194 * t246 / 0.4e1 - 0.3e1 / 0.16e2 * t71 * t429 + 0.3e1 / 0.16e2 * t96 * t433 + t215 * t249 / 0.2e1 + 0.3e1 / 0.8e1 * t96 * t438 - 0.3e1 / 0.4e1 * t96 * t441 + 0.3e1 / 0.8e1 * t96 * t444 - t215 * t254 / 0.2e1 - 0.3e1 / 0.8e1 * t96 * t449 + 0.9e1 / 0.8e1 * t96 * t454 - 0.3e1 / 0.4e1 * t96 * t458 + t215 * t263 / 0.4e1 + 0.3e1 / 0.16e2 * t96 * t463 - 0.3e1 / 0.8e1 * t96 * t468 + 0.3e1 / 0.16e2 * t96 * t477;
316 
317   t481 = 0.1e1 / t21 / t79;
318   t482 = t481 * t1;
319   t483 = t482 * t95;
320   t484 = t9 * params->a3;
321   t486 = t484 * t42 * t63;
322   t489 = t432 * t133;
323   t492 = t211 * t253;
324   t495 = t211 * t262;
325   t498 = t252 * t132;
326   t499 = t334 * t498;
327   t500 = t97 * t499;
328   t503 = t221 * t261;
329   t504 = t97 * t503;
330   t508 = t99 * params->b3 * t42;
331   t509 = t97 * t508;
332   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
333     v3sigma3[0] = -t483 * t486 / 0.512e3 + 0.9e1 / 0.16e2 * t96 * t489 - 0.9e1 / 0.8e1 * t96 * t492 + 0.9e1 / 0.16e2 * t96 * t495 + 0.9e1 / 0.8e1 * t96 * t500 - 0.9e1 / 0.8e1 * t96 * t504 + t483 * t509 / 0.512e3;
334 
335 #ifndef XC_DONT_COMPILE_LXC
336 
337   if(order < 4) return;
338 
339 
340   t512 = t19 * t481;
341   t517 = t33 / t10 / t85;
342   t522 = t44 / t45 / t34;
343   t542 = t9 * t322;
344   t574 = -0.3e1 / 0.16e2 * t71 * t72 * (0.2618e4 / 0.243e3 * t18 * t512 + 0.5225e4 / 0.729e3 * t31 * t517 + 0.55e2 / 0.4e1 * t43 * t522) * t63 - 0.5e1 / 0.54e2 * t7 * t9 * t23 * t64 + 0.2e1 / 0.9e1 * t7 * t268 * t91 - t7 * t138 * t167 / 0.2e1 - t7 * t11 * t323 + 0.3e1 / 0.4e1 * t96 * t542 * t107 + 0.9e1 / 0.8e1 * t96 * t283 * t189 + 0.3e1 / 0.4e1 * t96 * t171 * t306 + 0.3e1 / 0.16e2 * t96 * t97 * t99 * (0.2618e4 / 0.243e3 * t52 * t512 + 0.5225e4 / 0.729e3 * t56 * t517 + 0.55e2 / 0.4e1 * t59 * t522) - t145 * t272 * t178 - 0.6e1 * t145 * t276 * t178 - 0.9e1 / 0.4e1 * t96 * t283 * t178 + 0.6e1 * t145 * t146 * t336;
345   t579 = 0.1e1 / t333 / t62;
346   t580 = t177 * t177;
347   t585 = t188 * t188;
348   t625 = 0.9e1 / 0.2e1 * t96 * t171 * t336 - 0.9e1 / 0.2e1 * t96 * t97 * t579 * t580 - 0.9e1 / 0.8e1 * t96 * t97 * t176 * t585 - 0.2e1 / 0.9e1 * t145 * t267 * t50 * t107 + t145 * t137 * t90 * t107 + t145 * t272 * t189 / 0.2e1 + 0.3e1 * t145 * t10 * t166 * t107 + 0.3e1 * t145 * t276 * t189 + t145 * t146 * t306 - 0.6e1 * t145 * t146 * t341 - 0.9e1 / 0.2e1 * t96 * t171 * t341 - 0.3e1 / 0.2e1 * t96 * t97 * t176 * t305 * t106 + 0.27e2 / 0.4e1 * t96 * t97 * t334 * t177 * t188;
349   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
350     v4rho4[0] = t574 + t625;
351 
352   t630 = t111 * t291;
353   t633 = t115 * t296;
354   t636 = t32 * t301;
355   t644 = t267 * t1;
356   t669 = t9 * t390;
357   t685 = -t346 * t208 / 0.4e1 - 0.3e1 / 0.4e1 * t194 * t392 - 0.3e1 / 0.16e2 * t71 * t72 * (-0.154e3 / 0.81e2 * t13 * t630 - 0.418e3 / 0.243e3 * t31 * t633 - 0.15e2 / 0.4e1 * t43 * t636) * t63 + t644 * t3 * t124 / 0.18e2 - 0.3e1 / 0.2e1 * t215 * t395 - 0.9e1 / 0.8e1 * t96 * t351 * t178 + t398 * t218 / 0.4e1 + t398 * t234 / 0.4e1 + 0.9e1 / 0.8e1 * t96 * t211 * t336 - t644 * t95 * t134 / 0.18e2 + t398 * t212 / 0.4e1 + 0.3e1 / 0.2e1 * t215 * t352 + 0.3e1 / 0.4e1 * t215 * t355 + 0.9e1 / 0.16e2 * t96 * t669 * t107 + 0.9e1 / 0.16e2 * t96 * t351 * t189 + 0.3e1 / 0.16e2 * t96 * t211 * t306 + 0.3e1 / 0.4e1 * t215 * t362 + 0.3e1 / 0.2e1 * t215 * t365 + 0.3e1 / 0.4e1 * t215 * t379;
358   t706 = t95 * t9;
359   t707 = t70 * t706;
360   t708 = t50 * t334;
361   t762 = 0.3e1 / 0.16e2 * t96 * t542 * t133 + 0.9e1 / 0.16e2 * t96 * t283 * t233 + 0.9e1 / 0.16e2 * t96 * t171 * t378 + 0.3e1 / 0.16e2 * t96 * t97 * t99 * (-0.154e3 / 0.81e2 * t51 * t630 - 0.418e3 / 0.243e3 * t56 * t633 - 0.15e2 / 0.4e1 * t59 * t636) + 0.27e2 / 0.8e1 * t707 * t708 * t132 * t188 * t106 - 0.9e1 / 0.8e1 * t96 * t211 * t341 - 0.3e1 * t215 * t402 - 0.3e1 * t215 * t407 - 0.9e1 / 0.8e1 * t96 * t283 * t222 - 0.9e1 / 0.4e1 * t96 * t171 * t406 - 0.9e1 / 0.8e1 * t96 * t97 * t176 * t377 * t106 - t398 * t223 / 0.2e1 - 0.3e1 / 0.2e1 * t215 * t411 - 0.9e1 / 0.8e1 * t96 * t171 * t410 - 0.9e1 / 0.8e1 * t96 * t97 * t405 * t188 - 0.3e1 / 0.8e1 * t96 * t97 * t221 * t305 + 0.9e1 / 0.2e1 * t215 * t416 + 0.27e2 / 0.8e1 * t96 * t171 * t415 + 0.27e2 / 0.8e1 * t96 * t97 * t334 * t232 * t177 - 0.9e1 / 0.2e1 * t96 * t97 * t579 * t132 * t335;
362   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
363     v4rho3sigma[0] = t685 + t762;
364 
365   t765 = t237 * t157;
366   t768 = sigma[0] * t162;
367   t822 = t232 * t232;
368   t827 = -t194 * t429 / 0.2e1 - 0.3e1 / 0.16e2 * t71 * t72 * (0.19e2 / 0.81e2 * t28 * t765 + 0.3e1 / 0.4e1 * t43 * t768) * t63 - t346 * t246 / 0.12e2 + 0.3e1 / 0.16e2 * t96 * t432 * t189 + t215 * t438 + t215 * t444 + 0.3e1 / 0.8e1 * t96 * t669 * t133 + 0.3e1 / 0.4e1 * t96 * t351 * t233 + 0.3e1 / 0.8e1 * t96 * t211 * t378 - t215 * t449 - 0.3e1 / 0.8e1 * t96 * t283 * t253 + t215 * t463 / 0.2e1 + t215 * t477 / 0.2e1 + 0.3e1 / 0.16e2 * t96 * t283 * t262 + 0.3e1 / 0.8e1 * t96 * t171 * t476 + 0.3e1 / 0.16e2 * t96 * t97 * t99 * (0.19e2 / 0.81e2 * t55 * t765 + 0.3e1 / 0.4e1 * t59 * t768) - 0.3e1 / 0.8e1 * t96 * t432 * t178 + t398 * t249 / 0.6e1 - t398 * t254 / 0.6e1 - 0.3e1 / 0.4e1 * t96 * t97 * t176 * t822;
369   t832 = t9 * t427;
370   t897 = -0.3e1 / 0.4e1 * t96 * t211 * t410 + 0.3e1 * t215 * t454 - 0.2e1 * t215 * t458 + 0.9e1 / 0.4e1 * t96 * t171 * t453 - 0.3e1 / 0.2e1 * t96 * t171 * t457 + 0.9e1 / 0.8e1 * t96 * t97 * t452 * t188 - 0.3e1 / 0.4e1 * t96 * t97 * t221 * t377 - t215 * t468 - 0.3e1 / 0.4e1 * t96 * t171 * t467 - 0.3e1 / 0.4e1 * t96 * t97 * t176 * t475 * t106 - 0.3e1 / 0.8e1 * t96 * t97 * t466 * t188;
371   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
372     v4rho2sigma2[0] = t827 + t398 * t263 / 0.12e2 + t215 * t433 / 0.2e1 + 0.3e1 / 0.8e1 * t96 * t832 * t107 + 0.9e1 / 0.2e1 * t707 * t708 * t132 * t106 * t232 + 0.9e1 / 0.4e1 * t96 * t211 * t415 - 0.9e1 / 0.2e1 * t96 * t97 * t579 * t252 * t177 + 0.9e1 / 0.8e1 * t96 * t97 * t334 * t261 * t177 - 0.2e1 * t215 * t441 - 0.3e1 / 0.2e1 * t96 * t351 * t222 - 0.3e1 / 0.2e1 * t96 * t211 * t406 + t897;
373 
374   t902 = 0.1e1 / t21 / t155 * t1 * t95;
375   t933 = t42 * t99;
376   t938 = 0.5e1 / 0.384e3 * t902 * t486 + 0.3e1 / 0.4e1 * t215 * t489 - 0.3e1 / 0.2e1 * t215 * t492 + 0.3e1 / 0.4e1 * t215 * t495 + 0.3e1 / 0.2e1 * t215 * t500 + 0.9e1 / 0.16e2 * t96 * t832 * t133 + 0.9e1 / 0.16e2 * t96 * t432 * t233 - 0.9e1 / 0.8e1 * t96 * t351 * t253 + 0.9e1 / 0.16e2 * t96 * t351 * t262 + 0.9e1 / 0.16e2 * t96 * t211 * t476 + 0.9e1 / 0.8e1 * t96 * t171 * t499 - 0.5e1 / 0.384e3 * t902 * t509 + t483 * t484 * t933 * t106 / 0.512e3;
377   t979 = t482 * t706;
378   t980 = t50 * t176;
379   t987 = -0.9e1 / 0.8e1 * t96 * t432 * t222 + 0.27e2 / 0.8e1 * t96 * t211 * t453 - 0.9e1 / 0.4e1 * t96 * t211 * t457 - 0.9e1 / 0.8e1 * t96 * t211 * t467 - 0.9e1 / 0.2e1 * t96 * t97 * t579 * t498 * t106 + 0.27e2 / 0.8e1 * t96 * t97 * t452 * t232 - 0.9e1 / 0.8e1 * t96 * t171 * t503 - 0.9e1 / 0.8e1 * t96 * t97 * t405 * t261 - 0.9e1 / 0.8e1 * t96 * t97 * t221 * t475 + t483 * t171 * t508 / 0.512e3 + 0.27e2 / 0.8e1 * t707 * t708 * t132 * t261 * t106 - t979 * t980 * t59 * t106 / 0.256e3 - 0.3e1 / 0.2e1 * t215 * t504;
380   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
381     v4rhosigma3[0] = t938 + t987;
382 
383   t1007 = t252 * t252;
384   t1016 = t261 * t261;
385   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
386     v4sigma4[0] = t483 * t484 * t933 * t132 / 0.128e3 - 0.9e1 / 0.4e1 * t96 * t432 * t253 + 0.9e1 / 0.8e1 * t96 * t432 * t262 + 0.9e1 / 0.2e1 * t96 * t211 * t499 - 0.9e1 / 0.2e1 * t96 * t211 * t503 + t483 * t211 * t508 / 0.128e3 - 0.9e1 / 0.2e1 * t96 * t97 * t579 * t1007 + 0.27e2 / 0.4e1 * t96 * t97 * t452 * t261 - 0.9e1 / 0.8e1 * t96 * t97 * t176 * t1016 - t979 * t980 * t132 * params->b3 * t42 / 0.64e2;
387 
388 #ifndef XC_DONT_COMPILE_MXC
389 
390   if(order < 5) return;
391 
392 
393 #endif
394 
395 #endif
396 
397 #endif
398 
399 #endif
400 
401 #endif
402 
403 
404 }
405 
406 
407 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 *))408 func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
409 {
410 
411 #ifndef XC_DONT_COMPILE_EXC
412   double t1, t3, t5, t6, t7, t8, t9, t10;
413   double t11, t12, t13, t14, t15, t16, t17, t19;
414   double t20, t23, t24, t26, t27, t28, t29, t30;
415   double t32, t33, t36, t37, t38, t39, t40, t41;
416   double t42, t45, t46, t47, t50, t53, t56, t57;
417   double t59;
418 
419 #ifndef XC_DONT_COMPILE_VXC
420   double t63, t64, t65, t67, t68, t71, t73, t74;
421   double t77, t78, t79, t82, t83, t87, t88, t89;
422   double t96, t97, t101, t104, t105, t108, t111, t112;
423   double t113, t121, t122, t123;
424 
425 #ifndef XC_DONT_COMPILE_FXC
426   double t126, t127, t131, t137, t138, t141, t143, t144;
427   double t148, t149, t152, t153, t161, t162, t163, t173;
428   double t174, t178, t179, t182, t185, t188, t191, t192;
429   double t193, t196, t201, t204, t205, t206, t207, t208;
430   double t217, t218, t219, t222, t225, t228, t229, t230;
431   double t233, t236, t237, t238, t245, t246, t247;
432 
433 #ifndef XC_DONT_COMPILE_KXC
434   double t256, t257, t258, t259, t263, t264, t267, t271;
435   double t276, t277, t281, t282, t286, t287, t290, t291;
436   double t296, t297, t322, t323, t327, t330, t331, t334;
437   double t337, t338, t341, t342, t345, t346, t350, t353;
438   double t356, t360, t361, t367, t370, t375, t378, t387;
439   double t388, t389, t392, t393, t394, t399, t402, t406;
440   double t407, t410, t414, t417, t418, t421, t425, t428;
441   double t429, t432, t433, t438, t441, t442, t449, t450;
442   double t451, t455, t456, t460, t463, t466, t469, t472;
443   double t473, t474, t477, t478, t481, t483;
444 
445 #ifndef XC_DONT_COMPILE_LXC
446   double t506, t511, t516, t542, t543, t548, t549, t597;
447   double t601, t606, t609, t612, t655, t663, t668, t728;
448   double t730, t733, t755, t798, t853, t860, t866, t909;
449   double t947, t967, t976;
450 #endif
451 
452 #endif
453 
454 #endif
455 
456 #endif
457 
458 #endif
459 
460 
461   gga_x_ev93_params *params;
462 
463   assert(p->params != NULL);
464   params = (gga_x_ev93_params * )(p->params);
465 
466   t1 = M_CBRT3;
467   t3 = POW_1_3(0.1e1 / M_PI);
468   t5 = M_CBRT4;
469   t6 = t5 * t5;
470   t7 = t1 * t3 * t6;
471   t8 = POW_1_3(rho[0]);
472   t9 = M_CBRT6;
473   t10 = params->a1 * t9;
474   t11 = M_PI * M_PI;
475   t12 = POW_1_3(t11);
476   t13 = t12 * t12;
477   t14 = 0.1e1 / t13;
478   t15 = t14 * sigma[0];
479   t16 = rho[0] * rho[0];
480   t17 = t8 * t8;
481   t19 = 0.1e1 / t17 / t16;
482   t20 = t15 * t19;
483   t23 = t9 * t9;
484   t24 = params->a2 * t23;
485   t26 = 0.1e1 / t12 / t11;
486   t27 = sigma[0] * sigma[0];
487   t28 = t26 * t27;
488   t29 = t16 * t16;
489   t30 = t29 * rho[0];
490   t32 = 0.1e1 / t8 / t30;
491   t33 = t28 * t32;
492   t36 = t11 * t11;
493   t37 = 0.1e1 / t36;
494   t38 = params->a3 * t37;
495   t39 = t27 * sigma[0];
496   t40 = t29 * t29;
497   t41 = 0.1e1 / t40;
498   t42 = t39 * t41;
499   t45 = 0.1e1 + t10 * t20 / 0.24e2 + t24 * t33 / 0.576e3 + t38 * t42 / 0.2304e4;
500   t46 = t8 * t45;
501   t47 = params->b1 * t9;
502   t50 = params->b2 * t23;
503   t53 = params->b3 * t37;
504   t56 = 0.1e1 + t47 * t20 / 0.24e2 + t50 * t33 / 0.576e3 + t53 * t42 / 0.2304e4;
505   t57 = 0.1e1 / t56;
506   t59 = t7 * t46 * t57;
507   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
508     zk[0] = -0.3e1 / 0.8e1 * t59;
509 
510 #ifndef XC_DONT_COMPILE_VXC
511 
512   if(order < 1) return;
513 
514 
515   t63 = t8 * rho[0] * t1;
516   t64 = t63 * t3;
517   t65 = t16 * rho[0];
518   t67 = 0.1e1 / t17 / t65;
519   t68 = t15 * t67;
520   t71 = t29 * t16;
521   t73 = 0.1e1 / t8 / t71;
522   t74 = t28 * t73;
523   t77 = t40 * rho[0];
524   t78 = 0.1e1 / t77;
525   t79 = t39 * t78;
526   t82 = -t10 * t68 / 0.9e1 - t24 * t74 / 0.108e3 - t38 * t79 / 0.288e3;
527   t83 = t6 * t82;
528   t87 = t6 * t45;
529   t88 = t56 * t56;
530   t89 = 0.1e1 / t88;
531   t96 = -t47 * t68 / 0.9e1 - t50 * t74 / 0.108e3 - t53 * t79 / 0.288e3;
532   t97 = t89 * t96;
533   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
534     vrho[0] = -t59 / 0.2e1 - 0.3e1 / 0.8e1 * t64 * t83 * t57 + 0.3e1 / 0.8e1 * t64 * t87 * t97;
535 
536   t101 = t14 * t19;
537   t104 = t26 * sigma[0];
538   t105 = t104 * t32;
539   t108 = t27 * t41;
540   t111 = t10 * t101 / 0.24e2 + t24 * t105 / 0.288e3 + t38 * t108 / 0.768e3;
541   t112 = t6 * t111;
542   t113 = t112 * t57;
543   t121 = t47 * t101 / 0.24e2 + t50 * t105 / 0.288e3 + t53 * t108 / 0.768e3;
544   t122 = t89 * t121;
545   t123 = t87 * t122;
546   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
547     vsigma[0] = -0.3e1 / 0.8e1 * t64 * t113 + 0.3e1 / 0.8e1 * t64 * t123;
548 
549 #ifndef XC_DONT_COMPILE_FXC
550 
551   if(order < 2) return;
552 
553 
554   t126 = 0.1e1 / t17;
555   t127 = t126 * t45;
556   t131 = t8 * t82;
557   t137 = 0.1e1 / t17 / t29;
558   t138 = t15 * t137;
559   t141 = t29 * t65;
560   t143 = 0.1e1 / t8 / t141;
561   t144 = t28 * t143;
562   t148 = 0.1e1 / t40 / t16;
563   t149 = t39 * t148;
564   t152 = 0.11e2 / 0.27e2 * t10 * t138 + 0.19e2 / 0.324e3 * t24 * t144 + t38 * t149 / 0.32e2;
565   t153 = t6 * t152;
566   t161 = 0.1e1 / t88 / t56;
567   t162 = t96 * t96;
568   t163 = t161 * t162;
569   t173 = 0.11e2 / 0.27e2 * t47 * t138 + 0.19e2 / 0.324e3 * t50 * t144 + t53 * t149 / 0.32e2;
570   t174 = t89 * t173;
571   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
572     v2rho2[0] = -t7 * t127 * t57 / 0.6e1 - t7 * t131 * t57 + t7 * t46 * t97 - 0.3e1 / 0.8e1 * t64 * t153 * t57 + 0.3e1 / 0.4e1 * t64 * t83 * t97 - 0.3e1 / 0.4e1 * t64 * t87 * t163 + 0.3e1 / 0.8e1 * t64 * t87 * t174;
573 
574   t178 = t8 * t1;
575   t179 = t178 * t3;
576   t182 = t14 * t67;
577   t185 = t104 * t73;
578   t188 = t27 * t78;
579   t191 = -t10 * t182 / 0.9e1 - t24 * t185 / 0.54e2 - t38 * t188 / 0.96e2;
580   t192 = t6 * t191;
581   t193 = t192 * t57;
582   t196 = t112 * t97;
583   t201 = t83 * t122;
584   t204 = t3 * t6;
585   t205 = t63 * t204;
586   t206 = t45 * t161;
587   t207 = t121 * t96;
588   t208 = t206 * t207;
589   t217 = -t47 * t182 / 0.9e1 - t50 * t185 / 0.54e2 - t53 * t188 / 0.96e2;
590   t218 = t89 * t217;
591   t219 = t87 * t218;
592   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
593     v2rhosigma[0] = -t179 * t113 / 0.2e1 - 0.3e1 / 0.8e1 * t64 * t193 + 0.3e1 / 0.8e1 * t64 * t196 + t179 * t123 / 0.2e1 + 0.3e1 / 0.8e1 * t64 * t201 - 0.3e1 / 0.4e1 * t205 * t208 + 0.3e1 / 0.8e1 * t64 * t219;
594 
595   t222 = t26 * t32;
596   t225 = sigma[0] * t41;
597   t228 = t24 * t222 / 0.288e3 + t38 * t225 / 0.384e3;
598   t229 = t6 * t228;
599   t230 = t229 * t57;
600   t233 = t112 * t122;
601   t236 = t121 * t121;
602   t237 = t161 * t236;
603   t238 = t87 * t237;
604   t245 = t50 * t222 / 0.288e3 + t53 * t225 / 0.384e3;
605   t246 = t89 * t245;
606   t247 = t87 * t246;
607   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
608     v2sigma2[0] = -0.3e1 / 0.8e1 * t64 * t230 + 0.3e1 / 0.4e1 * t64 * t233 - 0.3e1 / 0.4e1 * t64 * t238 + 0.3e1 / 0.8e1 * t64 * t247;
609 
610 #ifndef XC_DONT_COMPILE_KXC
611 
612   if(order < 3) return;
613 
614 
615   t256 = t88 * t88;
616   t257 = 0.1e1 / t256;
617   t258 = t162 * t96;
618   t259 = t257 * t258;
619   t263 = t96 * t173;
620   t264 = t206 * t263;
621   t267 = t126 * t82;
622   t271 = t8 * t152;
623   t276 = 0.1e1 / t17 / t30;
624   t277 = t15 * t276;
625   t281 = 0.1e1 / t8 / t40;
626   t282 = t28 * t281;
627   t286 = 0.1e1 / t40 / t65;
628   t287 = t39 * t286;
629   t290 = -0.154e3 / 0.81e2 * t10 * t277 - 0.209e3 / 0.486e3 * t24 * t282 - 0.5e1 / 0.16e2 * t38 * t287;
630   t291 = t6 * t290;
631   t296 = 0.1e1 / t17 / rho[0];
632   t297 = t296 * t45;
633   t322 = -0.154e3 / 0.81e2 * t47 * t277 - 0.209e3 / 0.486e3 * t50 * t282 - 0.5e1 / 0.16e2 * t53 * t287;
634   t323 = t89 * t322;
635   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
636     v3rho3[0] = -0.3e1 * t7 * t46 * t163 - 0.9e1 / 0.4e1 * t64 * t83 * t163 + 0.9e1 / 0.4e1 * t64 * t87 * t259 - 0.9e1 / 0.4e1 * t205 * t264 - t7 * t267 * t57 / 0.2e1 - 0.3e1 / 0.2e1 * t7 * t271 * t57 - 0.3e1 / 0.8e1 * t64 * t291 * t57 + t7 * t297 * t57 / 0.9e1 + t7 * t127 * t97 / 0.2e1 + 0.3e1 * t7 * t131 * t97 + 0.3e1 / 0.2e1 * t7 * t46 * t174 + 0.9e1 / 0.8e1 * t64 * t153 * t97 + 0.9e1 / 0.8e1 * t64 * t83 * t174 + 0.3e1 / 0.8e1 * t64 * t87 * t323;
637 
638   t327 = t112 * t163;
639   t330 = t126 * t1;
640   t331 = t330 * t3;
641   t334 = t178 * t204;
642   t337 = t82 * t161;
643   t338 = t337 * t207;
644   t341 = t217 * t96;
645   t342 = t206 * t341;
646   t345 = t121 * t173;
647   t346 = t206 * t345;
648   t350 = t14 * t137;
649   t353 = t104 * t143;
650   t356 = t27 * t148;
651   t360 = t6 * (0.11e2 / 0.27e2 * t10 * t350 + 0.19e2 / 0.162e3 * t24 * t353 + 0.3e1 / 0.32e2 * t38 * t356);
652   t361 = t360 * t57;
653   t367 = t192 * t97;
654   t370 = t112 * t174;
655   t375 = t153 * t122;
656   t378 = t83 * t218;
657   t387 = 0.11e2 / 0.27e2 * t47 * t350 + 0.19e2 / 0.162e3 * t50 * t353 + 0.3e1 / 0.32e2 * t53 * t356;
658   t388 = t89 * t387;
659   t389 = t87 * t388;
660   t392 = t45 * t257;
661   t393 = t121 * t162;
662   t394 = t392 * t393;
663   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
664     v3rho2sigma[0] = -0.3e1 / 0.4e1 * t64 * t327 + t331 * t123 / 0.6e1 - 0.2e1 * t334 * t208 - 0.3e1 / 0.2e1 * t205 * t338 - 0.3e1 / 0.2e1 * t205 * t342 - 0.3e1 / 0.4e1 * t205 * t346 - t179 * t193 - 0.3e1 / 0.8e1 * t64 * t361 - t331 * t113 / 0.6e1 + t179 * t196 + 0.3e1 / 0.4e1 * t64 * t367 + 0.3e1 / 0.8e1 * t64 * t370 + t179 * t201 + t179 * t219 + 0.3e1 / 0.8e1 * t64 * t375 + 0.3e1 / 0.4e1 * t64 * t378 + 0.3e1 / 0.8e1 * t64 * t389 + 0.9e1 / 0.4e1 * t205 * t394;
665 
666   t399 = t26 * t73;
667   t402 = sigma[0] * t78;
668   t406 = t6 * (-t24 * t399 / 0.54e2 - t38 * t402 / 0.48e2);
669   t407 = t406 * t57;
670   t410 = t229 * t97;
671   t414 = t192 * t122;
672   t417 = t111 * t161;
673   t418 = t417 * t207;
674   t421 = t112 * t218;
675   t425 = t83 * t237;
676   t428 = t236 * t96;
677   t429 = t392 * t428;
678   t432 = t121 * t217;
679   t433 = t206 * t432;
680   t438 = t83 * t246;
681   t441 = t245 * t96;
682   t442 = t206 * t441;
683   t449 = -t50 * t399 / 0.54e2 - t53 * t402 / 0.48e2;
684   t450 = t89 * t449;
685   t451 = t87 * t450;
686   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
687     v3rhosigma2[0] = -t179 * t230 / 0.2e1 - 0.3e1 / 0.8e1 * t64 * t407 + 0.3e1 / 0.8e1 * t64 * t410 + t179 * t233 + 0.3e1 / 0.4e1 * t64 * t414 - 0.3e1 / 0.2e1 * t205 * t418 + 0.3e1 / 0.4e1 * t64 * t421 - t179 * t238 - 0.3e1 / 0.4e1 * t64 * t425 + 0.9e1 / 0.4e1 * t205 * t429 - 0.3e1 / 0.2e1 * t205 * t433 + t179 * t247 / 0.2e1 + 0.3e1 / 0.8e1 * t64 * t438 - 0.3e1 / 0.4e1 * t205 * t442 + 0.3e1 / 0.8e1 * t64 * t451;
688 
689   t455 = 0.1e1 / t17 / t71;
690   t456 = t455 * t1;
691   t460 = t6 * params->a3 * t37 * t57;
692   t463 = t229 * t122;
693   t466 = t112 * t237;
694   t469 = t112 * t246;
695   t472 = t236 * t121;
696   t473 = t257 * t472;
697   t474 = t87 * t473;
698   t477 = t121 * t245;
699   t478 = t206 * t477;
700   t481 = t456 * t204;
701   t483 = t45 * t89 * t53;
702   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
703     v3sigma3[0] = -t456 * t3 * t460 / 0.1024e4 + 0.9e1 / 0.8e1 * t64 * t463 - 0.9e1 / 0.4e1 * t64 * t466 + 0.9e1 / 0.8e1 * t64 * t469 + 0.9e1 / 0.4e1 * t64 * t474 - 0.9e1 / 0.4e1 * t205 * t478 + t481 * t483 / 0.1024e4;
704 
705 #ifndef XC_DONT_COMPILE_LXC
706 
707   if(order < 4) return;
708 
709 
710   t506 = t15 * t455;
711   t511 = t28 / t8 / t77;
712   t516 = t39 / t40 / t29;
713   t542 = 0.1e1 / t256 / t56;
714   t543 = t162 * t162;
715   t548 = -0.12e2 * t334 * t264 - 0.9e1 * t205 * t337 * t263 + 0.27e2 / 0.2e1 * t205 * t392 * t162 * t173 - 0.3e1 * t205 * t206 * t96 * t322 - t7 * t126 * t152 * t57 - 0.2e1 * t7 * t8 * t290 * t57 - 0.3e1 / 0.8e1 * t64 * t6 * (0.2618e4 / 0.243e3 * t10 * t506 + 0.5225e4 / 0.1458e4 * t24 * t511 + 0.55e2 / 0.16e2 * t38 * t516) * t57 + 0.4e1 / 0.9e1 * t7 * t296 * t82 * t57 - 0.5e1 / 0.27e2 * t7 * t19 * t45 * t57 - 0.2e1 * t7 * t127 * t163 + 0.12e2 * t7 * t46 * t259 + 0.9e1 * t64 * t83 * t259 - 0.9e1 * t64 * t87 * t542 * t543;
716   t549 = t173 * t173;
717   t597 = -0.9e1 / 0.4e1 * t64 * t87 * t161 * t549 - 0.12e2 * t7 * t131 * t163 - 0.9e1 / 0.2e1 * t64 * t153 * t163 + 0.2e1 * t7 * t267 * t97 + 0.6e1 * t7 * t271 * t97 + 0.3e1 / 0.2e1 * t64 * t291 * t97 - 0.4e1 / 0.9e1 * t7 * t297 * t97 + t7 * t127 * t174 + 0.6e1 * t7 * t131 * t174 + 0.2e1 * t7 * t46 * t323 + 0.9e1 / 0.4e1 * t64 * t153 * t174 + 0.3e1 / 0.2e1 * t64 * t83 * t323 + 0.3e1 / 0.8e1 * t64 * t87 * t89 * (0.2618e4 / 0.243e3 * t47 * t506 + 0.5225e4 / 0.1458e4 * t50 * t511 + 0.55e2 / 0.16e2 * t53 * t516);
718   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
719     v4rho4[0] = t548 + t597;
720 
721   t601 = t296 * t1 * t3;
722   t606 = t14 * t276;
723   t609 = t104 * t281;
724   t612 = t27 * t286;
725   t655 = t82 * t257;
726   t663 = t45 * t542;
727   t668 = -t331 * t193 / 0.2e1 + t601 * t113 / 0.9e1 - 0.3e1 / 0.2e1 * t179 * t361 - 0.3e1 / 0.8e1 * t64 * t6 * (-0.154e3 / 0.81e2 * t10 * t606 - 0.209e3 / 0.243e3 * t24 * t609 - 0.15e2 / 0.16e2 * t38 * t612) * t57 - 0.9e1 / 0.4e1 * t205 * t417 * t263 - t330 * t204 * t208 - 0.6e1 * t334 * t338 - 0.6e1 * t334 * t342 - 0.3e1 * t334 * t346 - 0.9e1 / 0.4e1 * t205 * t152 * t161 * t207 - 0.9e1 / 0.2e1 * t205 * t337 * t341 - 0.9e1 / 0.4e1 * t205 * t337 * t345 - 0.9e1 / 0.4e1 * t205 * t206 * t387 * t96 - 0.9e1 / 0.4e1 * t205 * t206 * t217 * t173 - 0.3e1 / 0.4e1 * t205 * t206 * t121 * t322 + 0.9e1 * t334 * t394 + 0.27e2 / 0.4e1 * t205 * t655 * t393 + 0.27e2 / 0.4e1 * t205 * t392 * t217 * t162 - 0.9e1 * t205 * t663 * t121 * t258;
728   t728 = 0.27e2 / 0.4e1 * t205 * t392 * t345 * t96 - 0.3e1 * t179 * t327 + 0.9e1 / 0.4e1 * t64 * t112 * t259 - t601 * t123 / 0.9e1 - 0.9e1 / 0.4e1 * t64 * t192 * t163 + t331 * t201 / 0.2e1 + t331 * t219 / 0.2e1 + 0.3e1 * t179 * t367 + 0.9e1 / 0.8e1 * t64 * t360 * t97 + t331 * t196 / 0.2e1 + 0.3e1 / 0.2e1 * t179 * t370 + 0.9e1 / 0.8e1 * t64 * t192 * t174 + 0.3e1 / 0.8e1 * t64 * t112 * t323 + 0.3e1 / 0.2e1 * t179 * t375 + 0.3e1 * t179 * t378 + 0.3e1 / 0.2e1 * t179 * t389 + 0.3e1 / 0.8e1 * t64 * t291 * t122 + 0.9e1 / 0.8e1 * t64 * t153 * t218 + 0.9e1 / 0.8e1 * t64 * t83 * t388 + 0.3e1 / 0.8e1 * t64 * t87 * t89 * (-0.154e3 / 0.81e2 * t47 * t606 - 0.209e3 / 0.243e3 * t50 * t609 - 0.15e2 / 0.16e2 * t53 * t612);
729   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
730     v4rho3sigma[0] = t668 + t728;
731 
732   t730 = t26 * t143;
733   t733 = sigma[0] * t148;
734   t755 = t111 * t257;
735   t798 = -t179 * t407 - 0.3e1 / 0.8e1 * t64 * t6 * (0.19e2 / 0.162e3 * t24 * t730 + 0.3e1 / 0.16e2 * t38 * t733) * t57 - t331 * t230 / 0.6e1 - 0.4e1 * t334 * t418 - 0.3e1 * t205 * t191 * t161 * t207 - 0.3e1 * t205 * t417 * t341 - 0.3e1 / 0.2e1 * t205 * t417 * t345 + 0.9e1 / 0.2e1 * t205 * t755 * t393 - 0.9e1 * t205 * t663 * t236 * t162 + 0.9e1 / 0.4e1 * t205 * t392 * t245 * t162 + 0.6e1 * t334 * t429 - 0.4e1 * t334 * t433 + 0.9e1 / 0.2e1 * t205 * t655 * t428 - 0.3e1 * t205 * t337 * t432 + 0.9e1 / 0.4e1 * t205 * t392 * t236 * t173 - 0.3e1 / 0.2e1 * t205 * t206 * t121 * t387 - 0.2e1 * t334 * t442 - 0.3e1 / 0.2e1 * t205 * t337 * t441 - 0.3e1 / 0.2e1 * t205 * t206 * t449 * t96 - 0.3e1 / 0.4e1 * t205 * t206 * t245 * t173;
736   t853 = t217 * t217;
737   t860 = 0.3e1 / 0.4e1 * t64 * t112 * t388 - 0.2e1 * t179 * t425 - 0.3e1 / 0.4e1 * t64 * t153 * t237 + t179 * t438 + t179 * t451 + 0.3e1 / 0.8e1 * t64 * t153 * t246 + 0.3e1 / 0.4e1 * t64 * t83 * t450 + 0.3e1 / 0.8e1 * t64 * t87 * t89 * (0.19e2 / 0.162e3 * t50 * t730 + 0.3e1 / 0.16e2 * t53 * t733) - t331 * t238 / 0.3e1 - 0.3e1 / 0.2e1 * t64 * t87 * t161 * t853 + t331 * t247 / 0.6e1;
738   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
739     v4rho2sigma2[0] = t798 + 0.9e1 * t205 * t392 * t207 * t217 - 0.3e1 / 0.4e1 * t64 * t229 * t163 + t331 * t233 / 0.3e1 + t179 * t410 + 0.3e1 / 0.4e1 * t64 * t406 * t97 + 0.3e1 / 0.8e1 * t64 * t229 * t174 + 0.2e1 * t179 * t414 + 0.2e1 * t179 * t421 + 0.3e1 / 0.4e1 * t64 * t360 * t122 + 0.3e1 / 0.2e1 * t64 * t192 * t218 + t860;
740 
741   t866 = 0.1e1 / t17 / t141 * t1;
742   t909 = -0.3e1 * t334 * t478 - 0.5e1 / 0.768e3 * t866 * t204 * t483 + t481 * t38 * t97 / 0.1024e4 - 0.9e1 / 0.4e1 * t205 * t228 * t161 * t207 + 0.27e2 / 0.4e1 * t205 * t755 * t428 - 0.9e1 / 0.2e1 * t205 * t417 * t432 - 0.9e1 / 0.4e1 * t205 * t417 * t441 - 0.9e1 * t205 * t663 * t472 * t96 + 0.27e2 / 0.4e1 * t205 * t392 * t236 * t217 - 0.9e1 / 0.4e1 * t205 * t337 * t477 - 0.9e1 / 0.4e1 * t205 * t206 * t217 * t245 - 0.9e1 / 0.4e1 * t205 * t206 * t121 * t449 + t481 * t82 * t89 * t53 / 0.1024e4;
743   t947 = 0.27e2 / 0.4e1 * t205 * t392 * t477 * t96 - t481 * t206 * t53 * t96 / 0.512e3 + 0.9e1 / 0.8e1 * t64 * t406 * t122 + 0.9e1 / 0.8e1 * t64 * t229 * t218 - 0.9e1 / 0.4e1 * t64 * t192 * t237 + 0.9e1 / 0.8e1 * t64 * t192 * t246 + 0.9e1 / 0.8e1 * t64 * t112 * t450 + 0.9e1 / 0.4e1 * t64 * t83 * t473 + 0.5e1 / 0.768e3 * t866 * t3 * t460 + 0.3e1 / 0.2e1 * t179 * t463 - 0.3e1 * t179 * t466 + 0.3e1 / 0.2e1 * t179 * t469 + 0.3e1 * t179 * t474;
744   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
745     v4rhosigma3[0] = t909 + t947;
746 
747   t967 = t236 * t236;
748   t976 = t245 * t245;
749   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
750     v4sigma4[0] = t481 * t38 * t122 / 0.256e3 - 0.9e1 / 0.2e1 * t64 * t229 * t237 + 0.9e1 / 0.4e1 * t64 * t229 * t246 + 0.9e1 * t64 * t112 * t473 - 0.9e1 * t205 * t417 * t477 + t481 * t111 * t89 * t53 / 0.256e3 - 0.9e1 * t64 * t87 * t542 * t967 + 0.27e2 / 0.2e1 * t205 * t392 * t236 * t245 - 0.9e1 / 0.4e1 * t64 * t87 * t161 * t976 - t481 * t206 * t121 * params->b3 * t37 / 0.128e3;
751 
752 #ifndef XC_DONT_COMPILE_MXC
753 
754   if(order < 5) return;
755 
756 
757 #endif
758 
759 #endif
760 
761 #endif
762 
763 #endif
764 
765 #endif
766 
767 
768 }
769 
770 
771 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 *))772 func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *))
773 {
774 
775 #ifndef XC_DONT_COMPILE_EXC
776   double t1, t3, t4, t5, t6, t7, t8, t9;
777   double t10, t11, t13, t14, t15, t16, t17, t18;
778   double t19, t20, t21, t22, t23, t24, t25, t26;
779   double t27, t29, t30, t33, t34, t36, t37, t38;
780   double t39, t40, t42, t43, t46, t47, t48, t49;
781   double t50, t51, t52, t55, t56, t59, t62, t65;
782   double t66, t67, t69, t71, t72, t73, t74, t75;
783   double t76, t77, t78, t80, t81, t84, t85, t86;
784   double t87, t89, t90, t93, t94, t95, t96, t99;
785   double t106, t107, t108, t110;
786 
787 #ifndef XC_DONT_COMPILE_VXC
788   double t112, t113, t114, t115, t116, t117, t118, t119;
789   double t121, t122, t124, t125, t126, t127, t128, t130;
790   double t131, t132, t134, t135, t138, t140, t141, t144;
791   double t145, t146, t149, t150, t152, t153, t154, t155;
792   double t156, t157, t164, t165, t167, t168, t169, t170;
793   double t171, t172, t173, t175, t176, t177, t179, t180;
794   double t184, t185, t187, t188, t189, t190, t192, t193;
795   double t194, t196, t197, t200, t202, t203, t206, t207;
796   double t208, t211, t212, t214, t215, t216, t217, t218;
797   double t219, t226, t227, t229, t230, t233, t236, t237;
798   double t240, t243, t244, t246, t253, t254, t256, t259;
799   double t262, t263, t266, t269, t270, t272, t279, t280;
800   double t282;
801 
802 #ifndef XC_DONT_COMPILE_FXC
803   double t285, t288, t289, t291, t292, t293, t294, t296;
804   double t297, t298, t300, t301, t302, t304, t305, t306;
805   double t308, t309, t310, t311, t312, t313, t315, t316;
806   double t318, t319, t321, t322, t324, t325, t327, t328;
807   double t330, t331, t336, t337, t341, t342, t345, t346;
808   double t348, t349, t351, t352, t354, t355, t356, t358;
809   double t359, t366, t367, t369, t370, t371, t373, t374;
810   double t375, t376, t378, t379, t380, t382, t383, t384;
811   double t385, t387, t388, t389, t391, t392, t393, t395;
812   double t397, t400, t403, t405, t406, t408, t411, t412;
813   double t413, t415, t420, t422, t425, t427, t428, t430;
814   double t433, t435, t438, t440, t442, t445, t447, t451;
815   double t452, t454, t455, t456, t457, t458, t460, t461;
816   double t462, t463, t465, t466, t467, t469, t470, t471;
817   double t473, t474, t475, t477, t478, t479, t480, t482;
818   double t483, t488, t489, t493, t494, t497, t498, t500;
819   double t501, t503, t504, t506, t507, t508, t510, t511;
820   double t518, t519, t521, t522, t523, t525, t526, t527;
821   double t529, t530, t532, t533, t534, t537, t540, t543;
822   double t544, t546, t547, t549, t550, t551, t553, t554;
823   double t556, t557, t559, t560, t561, t562, t564, t565;
824   double t572, t573, t575, t576, t579, t580, t581, t583;
825   double t584, t586, t587, t588, t590, t591, t593, t594;
826   double t598, t599, t600, t602, t603, t607, t608, t609;
827   double t612, t615, t618, t619, t621, t622, t624, t625;
828   double t626, t628, t629, t631, t632, t633, t634, t636;
829   double t637, t644, t645, t647, t648, t651, t654, t657;
830   double t658, t661, t664, t665, t666, t669, t674, t675;
831   double t678, t680, t683, t686, t687, t690, t693, t694;
832   double t695, t698, t703, t704, t707;
833 
834 #ifndef XC_DONT_COMPILE_KXC
835   double t711, t716, t723, t725, t728, t730, t732, t733;
836   double t735, t736, t738, t739, t743, t744, t748, t749;
837   double t752, t753, t755, t756, t758, t760, t761, t762;
838   double t764, t765, t767, t768, t771, t772, t773, t774;
839   double t776, t777, t779, t781, t783, t784, t786, t789;
840   double t790, t791, t792, t793, t794, t796, t797, t800;
841   double t801, t802, t803, t805, t806, t808, t810, t812;
842   double t813, t815, t816, t818, t819, t821, t824, t825;
843   double t827, t828, t829, t830, t832, t833, t835, t836;
844   double t838, t840, t841, t842, t844, t845, t847, t849;
845   double t850, t851, t852, t854, t855, t856, t858, t859;
846   double t861, t863, t864, t865, t866, t868, t869, t870;
847   double t872, t873, t874, t876, t877, t878, t880, t881;
848   double t883, t884, t886, t894, t895, t897, t898, t899;
849   double t903, t904, t905, t906, t907, t908, t911, t914;
850   double t915, t917, t919, t921, t923, t926, t928, t930;
851   double t931, t933, t936, t937, t939, t941, t943, t946;
852   double t948, t960, t962, t964, t966, t968, t970, t972;
853   double t974, t976, t979, t980, t981, t983, t986, t988;
854   double t989, t990, t992, t993, t995, t998, t999, t1000;
855   double t1002, t1005, t1006, t1008, t1010, t1011, t1013, t1016;
856   double t1017, t1019, t1020, t1022, t1027, t1029, t1031, t1033;
857   double t1036, t1038, t1045, t1046, t1047, t1049, t1051, t1052;
858   double t1053, t1054, t1055, t1056, t1059, t1062, t1065, t1068;
859   double t1071, t1074, t1077, t1080, t1081, t1083, t1085, t1087;
860   double t1088, t1089, t1091, t1093, t1095, t1097, t1099, t1102;
861   double t1105, t1114, t1118, t1120, t1122, t1124, t1125, t1127;
862   double t1129, t1131, t1133, t1134, t1136, t1138, t1140, t1142;
863   double t1144, t1147, t1149, t1150, t1152, t1153, t1155, t1158;
864   double t1159, t1160, t1162, t1163, t1165, t1167, t1169, t1174;
865   double t1176, t1182, t1185, t1198, t1199, t1201, t1202, t1203;
866   double t1204, t1206, t1207, t1209, t1210, t1211, t1212, t1213;
867   double t1214, t1216, t1217, t1219, t1220, t1222, t1223, t1225;
868   double t1226, t1230, t1231, t1235, t1236, t1239, t1240, t1242;
869   double t1243, t1249, t1250, t1252, t1253, t1255, t1256, t1258;
870   double t1259, t1261, t1262, t1263, t1264, t1266, t1267, t1269;
871   double t1272, t1273, t1274, t1275, t1277, t1278, t1279, t1280;
872   double t1282, t1283, t1284, t1286, t1287, t1289, t1290, t1291;
873   double t1292, t1294, t1295, t1296, t1298, t1299, t1300, t1301;
874   double t1303, t1304, t1306, t1308, t1309, t1310, t1318, t1319;
875   double t1321, t1322, t1323, t1326, t1329, t1334, t1335, t1336;
876   double t1337, t1338, t1339, t1340, t1342, t1343, t1344, t1346;
877   double t1348, t1349, t1350, t1352, t1353, t1355, t1356, t1358;
878   double t1359, t1361, t1362, t1364, t1365, t1367, t1368, t1370;
879   double t1371, t1372, t1375, t1378, t1381, t1382, t1384, t1385;
880   double t1387, t1388, t1390, t1391, t1392, t1394, t1395, t1397;
881   double t1399, t1400, t1402, t1403, t1405, t1406, t1408, t1409;
882   double t1411, t1412, t1413, t1414, t1416, t1417, t1418, t1420;
883   double t1421, t1422, t1424, t1425, t1427, t1428, t1430, t1432;
884   double t1433, t1435, t1436, t1443, t1444, t1446, t1447, t1449;
885   double t1450, t1451, t1454, t1455, t1457, t1458, t1459, t1461;
886   double t1462, t1464, t1465, t1467, t1468, t1469, t1471, t1472;
887   double t1474, t1475, t1476, t1478, t1479, t1481, t1482, t1486;
888   double t1489, t1492, t1495, t1497, t1499, t1504, t1505, t1506;
889   double t1507, t1510, t1513, t1515, t1516, t1517, t1518, t1520;
890   double t1522, t1524, t1530, t1533, t1536, t1538, t1540, t1543;
891   double t1545, t1548, t1551, t1554, t1556, t1557, t1558, t1559;
892   double t1562, t1564, t1566, t1570, t1573, t1576, t1577, t1578;
893   double t1579, t1580, t1581, t1583, t1585, t1587, t1590, t1592;
894   double t1595, t1596, t1597, t1599, t1600, t1601, t1603, t1604;
895   double t1605, t1606, t1608, t1609, t1617, t1618, t1619, t1620;
896   double t1622, t1623, t1625, t1627, t1628, t1630, t1631, t1633;
897   double t1634, t1636, t1637, t1639, t1640, t1641, t1644, t1647;
898   double t1650, t1651, t1653, t1654, t1656, t1657, t1658, t1659;
899   double t1660, t1661, t1662, t1663, t1665, t1666, t1668, t1670;
900   double t1671, t1673, t1675, t1676, t1678, t1679, t1681, t1682;
901   double t1684, t1685, t1686, t1687, t1689, t1690, t1691, t1693;
902   double t1694, t1695, t1696, t1697, t1704, t1705, t1707, t1708;
903   double t1709, t1712, t1714, t1715, t1717, t1718, t1719, t1722;
904   double t1725, t1726, t1728, t1729, t1731, t1732, t1734, t1736;
905   double t1737, t1739, t1740, t1742, t1743, t1745, t1746, t1747;
906   double t1749, t1751, t1752, t1754, t1755, t1756, t1757, t1759;
907   double t1760, t1761, t1763, t1764, t1765, t1767, t1768, t1770;
908   double t1771, t1773, t1774, t1775, t1776, t1778, t1779, t1784;
909   double t1785, t1787, t1788, t1789, t1791, t1793, t1794, t1796;
910   double t1797, t1799, t1801, t1802, t1803, t1805, t1807, t1808;
911   double t1809, t1811, t1812, t1814, t1815, t1819, t1820, t1822;
912   double t1823, t1825, t1826, t1828, t1829, t1833, t1834, t1835;
913   double t1838, t1841, t1842, t1844, t1845, t1847, t1848, t1850;
914   double t1852, t1853, t1855, t1856, t1858, t1859, t1860, t1862;
915   double t1864, t1865, t1866, t1867, t1869, t1870, t1871, t1873;
916   double t1874, t1875, t1877, t1878, t1880, t1881, t1882, t1883;
917   double t1885, t1886, t1891, t1892, t1894, t1895, t1896, t1898;
918   double t1899, t1900, t1903, t1906, t1909, t1912, t1913, t1914;
919   double t1917, t1918, t1921, t1923, t1924, t1925, t1927, t1929;
920   double t1930, t1933, t1936, t1939, t1942, t1943, t1944, t1947;
921   double t1948, t1951, t1953, t1954, t1955, t1957;
922 
923 #ifndef XC_DONT_COMPILE_LXC
924   double t1960, t1986, t1989, t1992, t2010, t2013, t2016, t2028;
925   double t2035, t2064, t2080, t2083, t2085, t2091, t2093, t2097;
926   double t2098, t2104, t2107, t2109, t2111, t2117, t2123, t2124;
927   double t2129, t2134, t2138, t2139, t2145, t2148, t2150, t2157;
928   double t2159, t2162, t2165, t2167, t2177, t2179, t2181, t2186;
929   double t2187, t2189, t2190, t2192, t2194, t2195, t2197, t2200;
930   double t2203, t2206, t2219, t2224, t2229, t2238, t2245, t2246;
931   double t2252, t2255, t2258, t2261, t2264, t2280, t2284, t2285;
932   double t2307, t2321, t2322, t2325, t2327, t2348, t2355, t2358;
933   double t2361, t2374, t2380, t2381, t2387, t2388, t2392, t2399;
934   double t2401, t2414, t2420, t2423, t2430, t2433, t2441, t2454;
935   double t2455, t2457, t2458, t2463, t2471, t2472, t2482, t2483;
936   double t2485, t2495, t2501, t2518, t2523, t2527, t2528, t2531;
937   double t2538, t2541, t2544, t2546, t2547, t2551, t2553, t2554;
938   double t2556, t2561, t2563, t2564, t2567, t2581, t2583, t2584;
939   double t2589, t2605, t2616, t2620, t2623, t2628, t2641, t2646;
940   double t2652, t2656, t2660, t2667, t2684, t2703, t2722, t2742;
941   double t2745, t2757, t2768, t2774, t2777, t2784, t2789, t2791;
942   double t2798, t2805, t2808, t2819, t2843, t2873, t2884, t2890;
943   double t2914, t2930, t2952, t2953, t2963, t2980, t2982, t2985;
944   double t2988, t2992, t2995, t3000, t3002, t3005, t3008, t3011;
945   double t3016, t3020, t3023, t3026, t3029, t3031, t3035, t3037;
946   double t3064, t3068, t3073, t3086, t3087, t3109, t3117, t3131;
947   double t3145, t3157, t3160, t3163, t3165, t3169, t3172, t3175;
948   double t3178, t3181, t3184, t3187, t3190, t3193, t3200, t3217;
949   double t3218, t3226, t3251, t3308, t3329, t3336, t3339, t3342;
950   double t3344, t3347, t3350, t3353, t3354, t3363, t3373, t3381;
951   double t3389, t3415, t3425, t3430, t3435, t3445, t3450, t3455;
952   double t3460, t3469, t3470, t3475, t3484, t3491, t3542, t3620;
953   double t3642, t3658, t3660, t3673, t3679, t3685, t3687, t3690;
954   double t3693, t3702, t3706, t3711, t3713, t3715, t3718, t3723;
955   double t3725, t3726, t3728, t3730, t3732, t3743, t3748, t3750;
956   double t3753, t3762, t3765, t3774, t3777, t3780, t3809, t3813;
957   double t3846, t3849, t3852, t3855, t3858, t3878, t3888, t3890;
958   double t3893, t3908, t3922, t3928, t3929, t3931, t3936, t3949;
959   double t3953, t3969, t3970, t3973, t3976, t3981, t3986, t3988;
960   double t3991, t3998, t4004, t4012, t4015, t4021, t4023, t4024;
961   double t4043, t4046, t4050, t4059, t4073, t4077, t4084, t4094;
962   double t4110, t4111, t4132, t4135, t4143, t4146, t4157, t4166;
963   double t4169, t4180, t4184, t4188, t4189, t4194, t4195, t4199;
964   double t4202, t4211, t4216, t4219, t4222, t4227, t4230, t4234;
965   double t4246, t4251, t4261, t4267, t4269, t4275, t4281, t4283;
966   double t4291, t4293, t4301, t4312, t4321, t4325, t4326, t4328;
967   double t4329, t4331, t4341, t4344, t4357, t4366, t4368, t4387;
968   double t4390, t4422, t4427, t4429, t4432, t4441, t4444, t4447;
969   double t4450, t4453, t4456, t4458, t4460, t4463, t4466, t4468;
970   double t4479, t4494, t4500, t4502, t4509, t4514, t4516, t4521;
971   double t4538, t4541, t4554, t4584, t4587, t4590, t4593, t4596;
972   double t4599, t4602, t4604, t4608, t4616, t4620, t4653, t4668;
973   double t4683, t4686, t4689, t4712, t4782, t4819, t4890, t4894;
974   double t4896, t4904, t4907, t4910, t4914, t4916, t4918, t4921;
975   double t4929, t4935, t4937, t4946, t4949, t4961, t4967, t4969;
976   double t4971, t4992, t4999, t5002, t5003, t5010, t5022, t5023;
977   double t5041, t5044, t5069, t5074, t5088, t5098, t5110, t5117;
978   double t5140, t5144, t5146, t5148, t5149, t5153, t5155, t5162;
979   double t5167, t5173, t5179, t5186, t5192, t5200, t5201, t5203;
980   double t5217, t5229, t5233, t5238, t5244, t5276, t5289, t5297;
981   double t5301, t5302, t5304, t5308, t5311, t5314, t5317, t5321;
982   double t5327, t5332, t5335, t5350, t5365, t5368, t5371, t5374;
983   double t5377, t5381, t5384, t5397, t5406, t5419, t5423, t5427;
984   double t5460, t5527, t5561, t5564, t5573, t5581, t5612, t5655;
985   double t5664, t5665, t5668, t5718, t5719, t5722, t5725, t5728;
986   double t5747, t5757, t5762, t5774, t5782, t5787, t5790, t5797;
987   double t5803, t5809, t5815, t5822, t5823, t5830, t5831, t5839;
988   double t5840, t5867, t5919, t5962, t5971, t5993, t6002, t6030;
989   double t6039;
990 #endif
991 
992 #endif
993 
994 #endif
995 
996 #endif
997 
998 #endif
999 
1000 
1001   gga_x_ev93_params *params;
1002 
1003   assert(p->params != NULL);
1004   params = (gga_x_ev93_params * )(p->params);
1005 
1006   t1 = M_CBRT3;
1007   t3 = POW_1_3(0.1e1 / M_PI);
1008   t4 = t1 * t3;
1009   t5 = M_CBRT4;
1010   t6 = t5 * t5;
1011   t7 = t4 * t6;
1012   t8 = rho[0] - rho[1];
1013   t9 = rho[0] + rho[1];
1014   t10 = 0.1e1 / t9;
1015   t11 = t8 * t10;
1016   t13 = 0.1e1 / 0.2e1 + t11 / 0.2e1;
1017   t14 = POW_1_3(t13);
1018   t15 = t14 * t13;
1019   t16 = POW_1_3(t9);
1020   t17 = t15 * t16;
1021   t18 = M_CBRT6;
1022   t19 = params->a1 * t18;
1023   t20 = M_PI * M_PI;
1024   t21 = POW_1_3(t20);
1025   t22 = t21 * t21;
1026   t23 = 0.1e1 / t22;
1027   t24 = t23 * sigma[0];
1028   t25 = rho[0] * rho[0];
1029   t26 = POW_1_3(rho[0]);
1030   t27 = t26 * t26;
1031   t29 = 0.1e1 / t27 / t25;
1032   t30 = t24 * t29;
1033   t33 = t18 * t18;
1034   t34 = params->a2 * t33;
1035   t36 = 0.1e1 / t21 / t20;
1036   t37 = sigma[0] * sigma[0];
1037   t38 = t36 * t37;
1038   t39 = t25 * t25;
1039   t40 = t39 * rho[0];
1040   t42 = 0.1e1 / t26 / t40;
1041   t43 = t38 * t42;
1042   t46 = t20 * t20;
1043   t47 = 0.1e1 / t46;
1044   t48 = params->a3 * t47;
1045   t49 = t37 * sigma[0];
1046   t50 = t39 * t39;
1047   t51 = 0.1e1 / t50;
1048   t52 = t49 * t51;
1049   t55 = 0.1e1 + t19 * t30 / 0.24e2 + t34 * t43 / 0.576e3 + t48 * t52 / 0.2304e4;
1050   t56 = params->b1 * t18;
1051   t59 = params->b2 * t33;
1052   t62 = params->b3 * t47;
1053   t65 = 0.1e1 + t56 * t30 / 0.24e2 + t59 * t43 / 0.576e3 + t62 * t52 / 0.2304e4;
1054   t66 = 0.1e1 / t65;
1055   t67 = t55 * t66;
1056   t69 = t7 * t17 * t67;
1057   t71 = 0.1e1 / 0.2e1 - t11 / 0.2e1;
1058   t72 = POW_1_3(t71);
1059   t73 = t72 * t71;
1060   t74 = t73 * t16;
1061   t75 = t23 * sigma[2];
1062   t76 = rho[1] * rho[1];
1063   t77 = POW_1_3(rho[1]);
1064   t78 = t77 * t77;
1065   t80 = 0.1e1 / t78 / t76;
1066   t81 = t75 * t80;
1067   t84 = sigma[2] * sigma[2];
1068   t85 = t36 * t84;
1069   t86 = t76 * t76;
1070   t87 = t86 * rho[1];
1071   t89 = 0.1e1 / t77 / t87;
1072   t90 = t85 * t89;
1073   t93 = t84 * sigma[2];
1074   t94 = t86 * t86;
1075   t95 = 0.1e1 / t94;
1076   t96 = t93 * t95;
1077   t99 = 0.1e1 + t19 * t81 / 0.24e2 + t34 * t90 / 0.576e3 + t48 * t96 / 0.2304e4;
1078   t106 = 0.1e1 + t56 * t81 / 0.24e2 + t59 * t90 / 0.576e3 + t62 * t96 / 0.2304e4;
1079   t107 = 0.1e1 / t106;
1080   t108 = t99 * t107;
1081   t110 = t7 * t74 * t108;
1082   if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1083     zk[0] = -0.3e1 / 0.8e1 * t69 - 0.3e1 / 0.8e1 * t110;
1084 
1085 #ifndef XC_DONT_COMPILE_VXC
1086 
1087   if(order < 1) return;
1088 
1089 
1090   t112 = 0.3e1 / 0.8e1 * t69;
1091   t113 = 0.3e1 / 0.8e1 * t110;
1092   t114 = t6 * t14;
1093   t115 = t4 * t114;
1094   t116 = t16 * t55;
1095   t117 = t9 * t9;
1096   t118 = 0.1e1 / t117;
1097   t119 = t8 * t118;
1098   t121 = t10 / 0.2e1 - t119 / 0.2e1;
1099   t122 = t66 * t121;
1100   t124 = t115 * t116 * t122;
1101   t125 = t124 / 0.2e1;
1102   t126 = t16 * t16;
1103   t127 = 0.1e1 / t126;
1104   t128 = t15 * t127;
1105   t130 = t7 * t128 * t67;
1106   t131 = t130 / 0.8e1;
1107   t132 = t25 * rho[0];
1108   t134 = 0.1e1 / t27 / t132;
1109   t135 = t24 * t134;
1110   t138 = t39 * t25;
1111   t140 = 0.1e1 / t26 / t138;
1112   t141 = t38 * t140;
1113   t144 = t50 * rho[0];
1114   t145 = 0.1e1 / t144;
1115   t146 = t49 * t145;
1116   t149 = -t19 * t135 / 0.9e1 - t34 * t141 / 0.108e3 - t48 * t146 / 0.288e3;
1117   t150 = t149 * t66;
1118   t152 = t7 * t17 * t150;
1119   t153 = 0.3e1 / 0.8e1 * t152;
1120   t154 = t6 * t15;
1121   t155 = t4 * t154;
1122   t156 = t65 * t65;
1123   t157 = 0.1e1 / t156;
1124   t164 = -t56 * t135 / 0.9e1 - t59 * t141 / 0.108e3 - t62 * t146 / 0.288e3;
1125   t165 = t157 * t164;
1126   t167 = t155 * t116 * t165;
1127   t168 = 0.3e1 / 0.8e1 * t167;
1128   t169 = t6 * t72;
1129   t170 = t4 * t169;
1130   t171 = t16 * t99;
1131   t172 = -t121;
1132   t173 = t107 * t172;
1133   t175 = t170 * t171 * t173;
1134   t176 = t175 / 0.2e1;
1135   t177 = t73 * t127;
1136   t179 = t7 * t177 * t108;
1137   t180 = t179 / 0.8e1;
1138   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1139     vrho[0] = -t112 - t113 + t9 * (-t125 - t131 - t153 + t168 - t176 - t180);
1140 
1141   t184 = -t10 / 0.2e1 - t119 / 0.2e1;
1142   t185 = t66 * t184;
1143   t187 = t115 * t116 * t185;
1144   t188 = t187 / 0.2e1;
1145   t189 = -t184;
1146   t190 = t107 * t189;
1147   t192 = t170 * t171 * t190;
1148   t193 = t192 / 0.2e1;
1149   t194 = t76 * rho[1];
1150   t196 = 0.1e1 / t78 / t194;
1151   t197 = t75 * t196;
1152   t200 = t86 * t76;
1153   t202 = 0.1e1 / t77 / t200;
1154   t203 = t85 * t202;
1155   t206 = t94 * rho[1];
1156   t207 = 0.1e1 / t206;
1157   t208 = t93 * t207;
1158   t211 = -t19 * t197 / 0.9e1 - t34 * t203 / 0.108e3 - t48 * t208 / 0.288e3;
1159   t212 = t211 * t107;
1160   t214 = t7 * t74 * t212;
1161   t215 = 0.3e1 / 0.8e1 * t214;
1162   t216 = t6 * t73;
1163   t217 = t4 * t216;
1164   t218 = t106 * t106;
1165   t219 = 0.1e1 / t218;
1166   t226 = -t56 * t197 / 0.9e1 - t59 * t203 / 0.108e3 - t62 * t208 / 0.288e3;
1167   t227 = t219 * t226;
1168   t229 = t217 * t171 * t227;
1169   t230 = 0.3e1 / 0.8e1 * t229;
1170   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1171     vrho[1] = -t112 - t113 + t9 * (-t188 - t131 - t193 - t180 - t215 + t230);
1172 
1173   t233 = t23 * t29;
1174   t236 = t36 * sigma[0];
1175   t237 = t236 * t42;
1176   t240 = t37 * t51;
1177   t243 = t19 * t233 / 0.24e2 + t34 * t237 / 0.288e3 + t48 * t240 / 0.768e3;
1178   t244 = t243 * t66;
1179   t246 = t7 * t17 * t244;
1180   t253 = t56 * t233 / 0.24e2 + t59 * t237 / 0.288e3 + t62 * t240 / 0.768e3;
1181   t254 = t157 * t253;
1182   t256 = t155 * t116 * t254;
1183   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1184     vsigma[0] = t9 * (-0.3e1 / 0.8e1 * t246 + 0.3e1 / 0.8e1 * t256);
1185 
1186   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1187     vsigma[1] = 0.0e0;
1188 
1189   t259 = t23 * t80;
1190   t262 = t36 * sigma[2];
1191   t263 = t262 * t89;
1192   t266 = t84 * t95;
1193   t269 = t19 * t259 / 0.24e2 + t34 * t263 / 0.288e3 + t48 * t266 / 0.768e3;
1194   t270 = t269 * t107;
1195   t272 = t7 * t74 * t270;
1196   t279 = t56 * t259 / 0.24e2 + t59 * t263 / 0.288e3 + t62 * t266 / 0.768e3;
1197   t280 = t219 * t279;
1198   t282 = t217 * t171 * t280;
1199   if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1200     vsigma[2] = t9 * (-0.3e1 / 0.8e1 * t272 + 0.3e1 / 0.8e1 * t282);
1201 
1202 #ifndef XC_DONT_COMPILE_FXC
1203 
1204   if(order < 2) return;
1205 
1206 
1207   t285 = t130 / 0.4e1;
1208   t288 = t179 / 0.4e1;
1209   t289 = t14 * t14;
1210   t291 = t6 / t289;
1211   t292 = t4 * t291;
1212   t293 = t121 * t121;
1213   t294 = t66 * t293;
1214   t296 = t292 * t116 * t294;
1215   t297 = t296 / 0.6e1;
1216   t298 = t127 * t55;
1217   t300 = t115 * t298 * t122;
1218   t301 = t300 / 0.3e1;
1219   t302 = t16 * t149;
1220   t304 = t115 * t302 * t122;
1221   t305 = t157 * t121;
1222   t306 = t305 * t164;
1223   t308 = t115 * t116 * t306;
1224   t309 = t117 * t9;
1225   t310 = 0.1e1 / t309;
1226   t311 = t8 * t310;
1227   t312 = -t118 + t311;
1228   t313 = t66 * t312;
1229   t315 = t115 * t116 * t313;
1230   t316 = t315 / 0.2e1;
1231   t318 = 0.1e1 / t126 / t9;
1232   t319 = t15 * t318;
1233   t321 = t7 * t319 * t67;
1234   t322 = t321 / 0.12e2;
1235   t324 = t7 * t128 * t150;
1236   t325 = t324 / 0.4e1;
1237   t327 = t155 * t298 * t165;
1238   t328 = t327 / 0.4e1;
1239   t330 = 0.1e1 / t27 / t39;
1240   t331 = t24 * t330;
1241   t336 = 0.1e1 / t26 / t39 / t132;
1242   t337 = t38 * t336;
1243   t341 = 0.1e1 / t50 / t25;
1244   t342 = t49 * t341;
1245   t345 = 0.11e2 / 0.27e2 * t19 * t331 + 0.19e2 / 0.324e3 * t34 * t337 + t48 * t342 / 0.32e2;
1246   t346 = t345 * t66;
1247   t348 = t7 * t17 * t346;
1248   t349 = 0.3e1 / 0.8e1 * t348;
1249   t351 = t155 * t302 * t165;
1250   t352 = 0.3e1 / 0.4e1 * t351;
1251   t354 = 0.1e1 / t156 / t65;
1252   t355 = t164 * t164;
1253   t356 = t354 * t355;
1254   t358 = t155 * t116 * t356;
1255   t359 = 0.3e1 / 0.4e1 * t358;
1256   t366 = 0.11e2 / 0.27e2 * t56 * t331 + 0.19e2 / 0.324e3 * t59 * t337 + t62 * t342 / 0.32e2;
1257   t367 = t157 * t366;
1258   t369 = t155 * t116 * t367;
1259   t370 = 0.3e1 / 0.8e1 * t369;
1260   t371 = t72 * t72;
1261   t373 = t6 / t371;
1262   t374 = t4 * t373;
1263   t375 = t172 * t172;
1264   t376 = t107 * t375;
1265   t378 = t374 * t171 * t376;
1266   t379 = t378 / 0.6e1;
1267   t380 = t127 * t99;
1268   t382 = t170 * t380 * t173;
1269   t383 = t382 / 0.3e1;
1270   t384 = -t312;
1271   t385 = t107 * t384;
1272   t387 = t170 * t171 * t385;
1273   t388 = t387 / 0.2e1;
1274   t389 = t73 * t318;
1275   t391 = t7 * t389 * t108;
1276   t392 = t391 / 0.12e2;
1277   t393 = -t297 - t301 - t304 + t308 - t316 + t322 - t325 + t328 - t349 + t352 - t359 + t370 - t379 - t383 - t388 + t392;
1278   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1279     v2rho2[0] = -t124 - t285 - 0.3e1 / 0.4e1 * t152 + 0.3e1 / 0.4e1 * t167 - t175 - t288 + t9 * t393;
1280 
1281   t395 = t185 * t121;
1282   t397 = t292 * t116 * t395;
1283   t400 = t115 * t298 * t185;
1284   t403 = t115 * t302 * t185;
1285   t405 = t157 * t184;
1286   t406 = t405 * t164;
1287   t408 = t115 * t116 * t406;
1288   t411 = 0.1e1 / t126 / t117;
1289   t412 = t411 * t55;
1290   t413 = t66 * t8;
1291   t415 = t115 * t412 * t413;
1292   t420 = t190 * t172;
1293   t422 = t374 * t171 * t420;
1294   t425 = t170 * t380 * t190;
1295   t427 = t411 * t99;
1296   t428 = t107 * t8;
1297   t430 = t170 * t427 * t428;
1298   t433 = t16 * t211;
1299   t435 = t170 * t433 * t173;
1300   t438 = t7 * t177 * t212;
1301   t440 = t227 * t172;
1302   t442 = t170 * t171 * t440;
1303   t445 = t217 * t380 * t227;
1304   t447 = -t397 / 0.6e1 - t400 / 0.6e1 - t403 / 0.2e1 + t408 / 0.2e1 - t415 / 0.2e1 - t300 / 0.6e1 + t322 - t324 / 0.8e1 + t327 / 0.8e1 - t422 / 0.6e1 - t425 / 0.6e1 + t430 / 0.2e1 - t382 / 0.6e1 + t392 - t435 / 0.2e1 - t438 / 0.8e1 + t442 / 0.2e1 + t445 / 0.8e1;
1305   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1306     v2rho2[1] = t447 * t9 - t125 - t153 + t168 - t176 - t188 - t193 - t215 + t230 - t285 - t288;
1307 
1308   t451 = t184 * t184;
1309   t452 = t66 * t451;
1310   t454 = t292 * t116 * t452;
1311   t455 = t454 / 0.6e1;
1312   t456 = t400 / 0.3e1;
1313   t457 = t118 + t311;
1314   t458 = t66 * t457;
1315   t460 = t115 * t116 * t458;
1316   t461 = t460 / 0.2e1;
1317   t462 = t189 * t189;
1318   t463 = t107 * t462;
1319   t465 = t374 * t171 * t463;
1320   t466 = t465 / 0.6e1;
1321   t467 = t425 / 0.3e1;
1322   t469 = t170 * t433 * t190;
1323   t470 = t219 * t189;
1324   t471 = t470 * t226;
1325   t473 = t170 * t171 * t471;
1326   t474 = -t457;
1327   t475 = t107 * t474;
1328   t477 = t170 * t171 * t475;
1329   t478 = t477 / 0.2e1;
1330   t479 = t438 / 0.4e1;
1331   t480 = t445 / 0.4e1;
1332   t482 = 0.1e1 / t78 / t86;
1333   t483 = t75 * t482;
1334   t488 = 0.1e1 / t77 / t86 / t194;
1335   t489 = t85 * t488;
1336   t493 = 0.1e1 / t94 / t76;
1337   t494 = t93 * t493;
1338   t497 = 0.11e2 / 0.27e2 * t19 * t483 + 0.19e2 / 0.324e3 * t34 * t489 + t48 * t494 / 0.32e2;
1339   t498 = t497 * t107;
1340   t500 = t7 * t74 * t498;
1341   t501 = 0.3e1 / 0.8e1 * t500;
1342   t503 = t217 * t433 * t227;
1343   t504 = 0.3e1 / 0.4e1 * t503;
1344   t506 = 0.1e1 / t218 / t106;
1345   t507 = t226 * t226;
1346   t508 = t506 * t507;
1347   t510 = t217 * t171 * t508;
1348   t511 = 0.3e1 / 0.4e1 * t510;
1349   t518 = 0.11e2 / 0.27e2 * t56 * t483 + 0.19e2 / 0.324e3 * t59 * t489 + t62 * t494 / 0.32e2;
1350   t519 = t219 * t518;
1351   t521 = t217 * t171 * t519;
1352   t522 = 0.3e1 / 0.8e1 * t521;
1353   t523 = -t455 - t456 - t461 + t322 - t466 - t467 - t469 + t473 - t478 + t392 - t479 + t480 - t501 + t504 - t511 + t522;
1354   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1355     v2rho2[2] = -t187 - t285 - t192 - t288 - 0.3e1 / 0.4e1 * t214 + 0.3e1 / 0.4e1 * t229 + t9 * t523;
1356 
1357   t525 = 0.3e1 / 0.8e1 * t246;
1358   t526 = 0.3e1 / 0.8e1 * t256;
1359   t527 = t16 * t243;
1360   t529 = t115 * t527 * t122;
1361   t530 = t529 / 0.2e1;
1362   t532 = t7 * t128 * t244;
1363   t533 = t532 / 0.8e1;
1364   t534 = t23 * t134;
1365   t537 = t236 * t140;
1366   t540 = t37 * t145;
1367   t543 = -t19 * t534 / 0.9e1 - t34 * t537 / 0.54e2 - t48 * t540 / 0.96e2;
1368   t544 = t543 * t66;
1369   t546 = t7 * t17 * t544;
1370   t547 = 0.3e1 / 0.8e1 * t546;
1371   t549 = t155 * t527 * t165;
1372   t550 = 0.3e1 / 0.8e1 * t549;
1373   t551 = t254 * t121;
1374   t553 = t115 * t116 * t551;
1375   t554 = t553 / 0.2e1;
1376   t556 = t155 * t298 * t254;
1377   t557 = t556 / 0.8e1;
1378   t559 = t155 * t302 * t254;
1379   t560 = 0.3e1 / 0.8e1 * t559;
1380   t561 = t354 * t253;
1381   t562 = t561 * t164;
1382   t564 = t155 * t116 * t562;
1383   t565 = 0.3e1 / 0.4e1 * t564;
1384   t572 = -t56 * t534 / 0.9e1 - t59 * t537 / 0.54e2 - t62 * t540 / 0.96e2;
1385   t573 = t157 * t572;
1386   t575 = t155 * t116 * t573;
1387   t576 = 0.3e1 / 0.8e1 * t575;
1388   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1389     v2rhosigma[0] = -t525 + t526 + t9 * (-t530 - t533 - t547 + t550 + t554 + t557 + t560 - t565 + t576);
1390 
1391   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1392     v2rhosigma[1] = 0.0e0;
1393 
1394   t579 = 0.3e1 / 0.8e1 * t272;
1395   t580 = 0.3e1 / 0.8e1 * t282;
1396   t581 = t16 * t269;
1397   t583 = t170 * t581 * t173;
1398   t584 = t583 / 0.2e1;
1399   t586 = t7 * t177 * t270;
1400   t587 = t586 / 0.8e1;
1401   t588 = t280 * t172;
1402   t590 = t170 * t171 * t588;
1403   t591 = t590 / 0.2e1;
1404   t593 = t217 * t380 * t280;
1405   t594 = t593 / 0.8e1;
1406   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1407     v2rhosigma[2] = -t579 + t580 + t9 * (-t584 - t587 + t591 + t594);
1408 
1409   t598 = t115 * t527 * t185;
1410   t599 = t598 / 0.2e1;
1411   t600 = t254 * t184;
1412   t602 = t115 * t116 * t600;
1413   t603 = t602 / 0.2e1;
1414   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1415     v2rhosigma[3] = -t525 + t526 + t9 * (-t599 - t533 + t603 + t557);
1416 
1417   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1418     v2rhosigma[4] = 0.0e0;
1419 
1420   t607 = t170 * t581 * t190;
1421   t608 = t607 / 0.2e1;
1422   t609 = t23 * t196;
1423   t612 = t262 * t202;
1424   t615 = t84 * t207;
1425   t618 = -t19 * t609 / 0.9e1 - t34 * t612 / 0.54e2 - t48 * t615 / 0.96e2;
1426   t619 = t618 * t107;
1427   t621 = t7 * t74 * t619;
1428   t622 = 0.3e1 / 0.8e1 * t621;
1429   t624 = t217 * t581 * t227;
1430   t625 = 0.3e1 / 0.8e1 * t624;
1431   t626 = t280 * t189;
1432   t628 = t170 * t171 * t626;
1433   t629 = t628 / 0.2e1;
1434   t631 = t217 * t433 * t280;
1435   t632 = 0.3e1 / 0.8e1 * t631;
1436   t633 = t506 * t279;
1437   t634 = t633 * t226;
1438   t636 = t217 * t171 * t634;
1439   t637 = 0.3e1 / 0.4e1 * t636;
1440   t644 = -t56 * t609 / 0.9e1 - t59 * t612 / 0.54e2 - t62 * t615 / 0.96e2;
1441   t645 = t219 * t644;
1442   t647 = t217 * t171 * t645;
1443   t648 = 0.3e1 / 0.8e1 * t647;
1444   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1445     v2rhosigma[5] = -t579 + t580 + t9 * (-t608 - t587 - t622 + t625 + t629 + t594 + t632 - t637 + t648);
1446 
1447   t651 = t36 * t42;
1448   t654 = sigma[0] * t51;
1449   t657 = t34 * t651 / 0.288e3 + t48 * t654 / 0.384e3;
1450   t658 = t657 * t66;
1451   t661 = 0.3e1 / 0.8e1 * t7 * t17 * t658;
1452   t664 = 0.3e1 / 0.4e1 * t155 * t527 * t254;
1453   t665 = t253 * t253;
1454   t666 = t354 * t665;
1455   t669 = 0.3e1 / 0.4e1 * t155 * t116 * t666;
1456   t674 = t59 * t651 / 0.288e3 + t62 * t654 / 0.384e3;
1457   t675 = t157 * t674;
1458   t678 = 0.3e1 / 0.8e1 * t155 * t116 * t675;
1459   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1460     v2sigma2[0] = t9 * (-t661 + t664 - t669 + t678);
1461 
1462   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1463     v2sigma2[1] = 0.0e0;
1464 
1465   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1466     v2sigma2[2] = 0.0e0;
1467 
1468   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1469     v2sigma2[3] = 0.0e0;
1470 
1471   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1472     v2sigma2[4] = 0.0e0;
1473 
1474   t680 = t36 * t89;
1475   t683 = sigma[2] * t95;
1476   t686 = t34 * t680 / 0.288e3 + t48 * t683 / 0.384e3;
1477   t687 = t686 * t107;
1478   t690 = 0.3e1 / 0.8e1 * t7 * t74 * t687;
1479   t693 = 0.3e1 / 0.4e1 * t217 * t581 * t280;
1480   t694 = t279 * t279;
1481   t695 = t506 * t694;
1482   t698 = 0.3e1 / 0.4e1 * t217 * t171 * t695;
1483   t703 = t59 * t680 / 0.288e3 + t62 * t683 / 0.384e3;
1484   t704 = t219 * t703;
1485   t707 = 0.3e1 / 0.8e1 * t217 * t171 * t704;
1486   if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1487     v2sigma2[5] = t9 * (-t690 + t693 - t698 + t707);
1488 
1489 #ifndef XC_DONT_COMPILE_KXC
1490 
1491   if(order < 3) return;
1492 
1493 
1494   t711 = t321 / 0.4e1;
1495   t716 = t391 / 0.4e1;
1496   t723 = t127 * t149;
1497   t725 = t155 * t723 * t165;
1498   t728 = t155 * t298 * t367;
1499   t730 = t16 * t345;
1500   t732 = t155 * t730 * t165;
1501   t733 = 0.9e1 / 0.8e1 * t732;
1502   t735 = t155 * t302 * t367;
1503   t736 = 0.9e1 / 0.8e1 * t735;
1504   t738 = 0.1e1 / t27 / t40;
1505   t739 = t24 * t738;
1506   t743 = 0.1e1 / t26 / t50;
1507   t744 = t38 * t743;
1508   t748 = 0.1e1 / t50 / t132;
1509   t749 = t49 * t748;
1510   t752 = -0.154e3 / 0.81e2 * t56 * t739 - 0.209e3 / 0.486e3 * t59 * t744 - 0.5e1 / 0.16e2 * t62 * t749;
1511   t753 = t157 * t752;
1512   t755 = t155 * t116 * t753;
1513   t756 = 0.3e1 / 0.8e1 * t755;
1514   t758 = t170 * t380 * t385;
1515   t760 = t117 * t117;
1516   t761 = 0.1e1 / t760;
1517   t762 = t8 * t761;
1518   t764 = -0.3e1 * t310 + 0.3e1 * t762;
1519   t765 = t107 * t764;
1520   t767 = t170 * t171 * t765;
1521   t768 = t767 / 0.2e1;
1522   t771 = t6 / t289 / t13;
1523   t772 = t4 * t771;
1524   t773 = t293 * t121;
1525   t774 = t66 * t773;
1526   t776 = t772 * t116 * t774;
1527   t777 = t776 / 0.9e1;
1528   t779 = t292 * t298 * t294;
1529   t781 = t318 * t55;
1530   t783 = t115 * t781 * t122;
1531   t784 = t783 / 0.3e1;
1532   t786 = t155 * t298 * t356;
1533   t789 = t155 * t302 * t356;
1534   t790 = 0.9e1 / 0.4e1 * t789;
1535   t791 = t156 * t156;
1536   t792 = 0.1e1 / t791;
1537   t793 = t355 * t164;
1538   t794 = t792 * t793;
1539   t796 = t155 * t116 * t794;
1540   t797 = 0.9e1 / 0.4e1 * t796;
1541   t800 = t6 / t371 / t71;
1542   t801 = t4 * t800;
1543   t802 = t375 * t172;
1544   t803 = t107 * t802;
1545   t805 = t801 * t171 * t803;
1546   t806 = t805 / 0.9e1;
1547   t808 = t374 * t380 * t376;
1548   t810 = t318 * t99;
1549   t812 = t170 * t810 * t173;
1550   t813 = t812 / 0.3e1;
1551   t815 = t292 * t302 * t294;
1552   t816 = t815 / 0.2e1;
1553   t818 = t115 * t723 * t122;
1554   t819 = 0.3e1 / 0.4e1 * t725 + 0.3e1 / 0.8e1 * t728 + t733 + t736 + t756 - t758 / 0.2e1 - t768 + t777 - t779 / 0.6e1 + t784 - 0.3e1 / 0.4e1 * t786 - t790 + t797 + t806 - t808 / 0.6e1 + t813 - t816 - t818;
1555   t821 = t115 * t298 * t313;
1556   t824 = t115 * t730 * t122;
1557   t825 = 0.3e1 / 0.2e1 * t824;
1558   t827 = t115 * t302 * t313;
1559   t828 = 0.3e1 / 0.2e1 * t827;
1560   t829 = -t764;
1561   t830 = t66 * t829;
1562   t832 = t115 * t116 * t830;
1563   t833 = t832 / 0.2e1;
1564   t835 = t155 * t781 * t165;
1565   t836 = t835 / 0.4e1;
1566   t838 = t354 * t164 * t366;
1567   t840 = t155 * t116 * t838;
1568   t841 = 0.9e1 / 0.4e1 * t840;
1569   t842 = t173 * t384;
1570   t844 = t374 * t171 * t842;
1571   t845 = t844 / 0.2e1;
1572   t847 = t354 * t121 * t355;
1573   t849 = t115 * t116 * t847;
1574   t850 = 0.3e1 * t849;
1575   t851 = t157 * t293;
1576   t852 = t851 * t164;
1577   t854 = t292 * t116 * t852;
1578   t855 = t854 / 0.2e1;
1579   t856 = t122 * t312;
1580   t858 = t292 * t116 * t856;
1581   t859 = t858 / 0.2e1;
1582   t861 = t115 * t298 * t306;
1583   t863 = t115 * t302 * t306;
1584   t864 = 0.3e1 * t863;
1585   t865 = t157 * t312;
1586   t866 = t865 * t164;
1587   t868 = t115 * t116 * t866;
1588   t869 = 0.3e1 / 0.2e1 * t868;
1589   t870 = t305 * t366;
1590   t872 = t115 * t116 * t870;
1591   t873 = 0.3e1 / 0.2e1 * t872;
1592   t874 = t15 * t411;
1593   t876 = t7 * t874 * t67;
1594   t877 = 0.5e1 / 0.36e2 * t876;
1595   t878 = t73 * t411;
1596   t880 = t7 * t878 * t108;
1597   t881 = 0.5e1 / 0.36e2 * t880;
1598   t883 = t7 * t319 * t150;
1599   t884 = t883 / 0.4e1;
1600   t886 = t7 * t128 * t346;
1601   t894 = -0.154e3 / 0.81e2 * t19 * t739 - 0.209e3 / 0.486e3 * t34 * t744 - 0.5e1 / 0.16e2 * t48 * t749;
1602   t895 = t894 * t66;
1603   t897 = t7 * t17 * t895;
1604   t898 = 0.3e1 / 0.8e1 * t897;
1605   t899 = -t821 / 0.2e1 - t825 - t828 - t833 - t836 - t841 - t845 - t850 + t855 - t859 + t861 + t864 + t869 + t873 - t877 - t881 + t884 - 0.3e1 / 0.8e1 * t886 - t898;
1606   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1607     v3rho3[0] = -0.3e1 * t304 - 0.3e1 / 0.2e1 * t315 + t711 + 0.3e1 / 0.4e1 * t327 + 0.9e1 / 0.4e1 * t351 + 0.9e1 / 0.8e1 * t369 - 0.3e1 / 0.2e1 * t387 + t716 - 0.3e1 / 0.4e1 * t324 - 0.9e1 / 0.8e1 * t348 - t296 / 0.2e1 - t300 + 0.3e1 * t308 - 0.9e1 / 0.4e1 * t358 - t378 / 0.2e1 - t382 + t9 * (t819 + t899);
1608 
1609   t903 = t4 * t291 * t16;
1610   t904 = t55 * t157;
1611   t905 = t184 * t121;
1612   t906 = t905 * t164;
1613   t907 = t904 * t906;
1614   t908 = t903 * t907;
1615   t911 = t115 * t781 * t185;
1616   t914 = 0.1e1 / t126 / t309;
1617   t915 = t914 * t55;
1618   t917 = t115 * t915 * t413;
1619   t919 = t411 * t149;
1620   t921 = t115 * t919 * t413;
1621   t923 = t170 * t810 * t190;
1622   t926 = t374 * t433 * t376;
1623   t928 = t127 * t211;
1624   t930 = t170 * t928 * t173;
1625   t931 = t930 / 0.3e1;
1626   t933 = t217 * t810 * t227;
1627   t936 = t115 * t723 * t185;
1628   t937 = t936 / 0.3e1;
1629   t939 = t115 * t730 * t185;
1630   t941 = t914 * t99;
1631   t943 = t170 * t941 * t428;
1632   t946 = t170 * t433 * t385;
1633   t948 = t908 / 0.3e1 + t911 / 0.9e1 + 0.7e1 / 0.6e1 * t917 - t921 + t923 / 0.9e1 - t926 / 0.6e1 - t931 - t933 / 0.12e2 - t937 - t939 / 0.2e1 - 0.7e1 / 0.6e1 * t943 - t946 / 0.2e1;
1634   t960 = t190 * t384;
1635   t962 = t374 * t171 * t960;
1636   t964 = t725 / 0.4e1 + t728 / 0.8e1 - t758 / 0.6e1 - t779 / 0.18e2 + 0.2e1 / 0.9e1 * t783 - t786 / 0.4e1 - t808 / 0.18e2 + 0.2e1 / 0.9e1 * t812 - t818 / 0.3e1 - t821 / 0.6e1 - t835 / 0.6e1 - t962 / 0.6e1;
1637   t966 = t428 * t172;
1638   t968 = t374 * t427 * t966;
1639   t970 = t227 * t384;
1640   t972 = t170 * t171 * t970;
1641   t974 = t185 * t293;
1642   t976 = t772 * t116 * t974;
1643   t979 = t292 * t298 * t395;
1644   t980 = t979 / 0.9e1;
1645   t981 = t413 * t121;
1646   t983 = t292 * t412 * t981;
1647   t986 = t354 * t184 * t355;
1648   t988 = t115 * t116 * t986;
1649   t989 = t157 * t8;
1650   t990 = t989 * t164;
1651   t992 = t115 * t412 * t990;
1652   t993 = t190 * t375;
1653   t995 = t801 * t171 * t993;
1654   t998 = t374 * t380 * t420;
1655   t999 = t998 / 0.9e1;
1656   t1000 = t227 * t375;
1657   t1002 = t374 * t171 * t1000;
1658   t1005 = t170 * t380 * t440;
1659   t1006 = t1005 / 0.3e1;
1660   t1008 = t292 * t302 * t395;
1661   t1010 = t968 / 0.3e1 + t972 / 0.2e1 + t976 / 0.9e1 - t980 - t983 / 0.3e1 - t988 + t992 + t995 / 0.9e1 - t999 + t1002 / 0.6e1 + t1006 - t1008 / 0.3e1;
1662   t1011 = t185 * t312;
1663   t1013 = t292 * t116 * t1011;
1664   t1016 = t115 * t298 * t406;
1665   t1017 = t1016 / 0.3e1;
1666   t1019 = t115 * t302 * t406;
1667   t1020 = t405 * t366;
1668   t1022 = t115 * t116 * t1020;
1669   t1027 = t14 * t411;
1670   t1029 = t7 * t1027 * t67;
1671   t1031 = t72 * t411;
1672   t1033 = t7 * t1031 * t108;
1673   t1036 = t7 * t389 * t212;
1674   t1038 = -t1013 / 0.6e1 + t1017 + t1019 + t1022 / 0.2e1 + t861 / 0.3e1 - t877 - t881 + t883 / 0.6e1 - t886 / 0.8e1 - t1029 / 0.2e1 + t1033 / 0.2e1 + t1036 / 0.12e2;
1675   t1045 = t9 * (t948 + t964 + t1010 + t1038) - t467 + t430 - t435 + t480 - 0.2e1 / 0.3e1 * t300 - t304 - t316 + t327 / 0.2e1 + t352 - t359 + t370 - t379 - 0.2e1 / 0.3e1 * t382;
1676   t1046 = t397 / 0.3e1;
1677   t1047 = t422 / 0.3e1;
1678   t1049 = -t388 - t456 - t403 - t415 - t297 - t1046 + t408 - t1047 + t442 + t308 + t711 - t324 / 0.2e1 - t349 + t716 - t479;
1679   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1680     v3rho3[1] = t1045 + t1049;
1681 
1682   t1051 = t4 * t373 * t16;
1683   t1052 = t99 * t219;
1684   t1053 = t189 * t226;
1685   t1054 = t1053 * t172;
1686   t1055 = t1052 * t1054;
1687   t1056 = t1051 * t1055;
1688   t1059 = t170 * t928 * t190;
1689   t1062 = t170 * t380 * t475;
1690   t1065 = t217 * t928 * t227;
1691   t1068 = t217 * t380 * t508;
1692   t1071 = t217 * t380 * t519;
1693   t1074 = t292 * t302 * t452;
1694   t1077 = t115 * t302 * t458;
1695   t1080 = -t310 - 0.3e1 * t762;
1696   t1081 = t66 * t1080;
1697   t1083 = t115 * t116 * t1081;
1698   t1085 = t411 * t211;
1699   t1087 = t170 * t1085 * t428;
1700   t1088 = -t1080;
1701   t1089 = t107 * t1088;
1702   t1091 = t170 * t171 * t1089;
1703   t1093 = t16 * t497;
1704   t1095 = t170 * t1093 * t173;
1705   t1097 = t1056 / 0.3e1 - t1059 / 0.3e1 - t1062 / 0.6e1 + t1065 / 0.4e1 - t1068 / 0.4e1 + t1071 / 0.8e1 - t1074 / 0.6e1 - t1077 / 0.2e1 - t1083 / 0.2e1 + t1087 - t1091 / 0.2e1 - t1095 / 0.2e1;
1706   t1099 = t292 * t298 * t452;
1707   t1102 = t115 * t298 * t458;
1708   t1105 = t374 * t380 * t463;
1709   t1114 = -t1099 / 0.18e2 - t1102 / 0.6e1 - t1105 / 0.18e2 + 0.2e1 / 0.9e1 * t911 - t917 / 0.3e1 + 0.2e1 / 0.9e1 * t923 - t931 - t933 / 0.6e1 - t937 + t943 / 0.3e1 + t783 / 0.9e1 + t812 / 0.9e1;
1710   t1118 = t170 * t380 * t471;
1711   t1120 = t452 * t121;
1712   t1122 = t772 * t116 * t1120;
1713   t1124 = t157 * t451;
1714   t1125 = t1124 * t164;
1715   t1127 = t292 * t116 * t1125;
1716   t1129 = t458 * t121;
1717   t1131 = t292 * t116 * t1129;
1718   t1133 = t157 * t457;
1719   t1134 = t1133 * t164;
1720   t1136 = t115 * t116 * t1134;
1721   t1138 = t463 * t172;
1722   t1140 = t801 * t171 * t1138;
1723   t1142 = t190 * t8;
1724   t1144 = t374 * t427 * t1142;
1725   t1147 = t374 * t433 * t420;
1726   t1149 = t219 * t8;
1727   t1150 = t1149 * t226;
1728   t1152 = t170 * t427 * t1150;
1729   t1153 = t475 * t172;
1730   t1155 = t374 * t171 * t1153;
1731   t1158 = t170 * t433 * t440;
1732   t1159 = -t835 / 0.12e2 + t1118 / 0.3e1 + t1122 / 0.9e1 + t1127 / 0.6e1 - t1131 / 0.6e1 + t1136 / 0.2e1 + t1140 / 0.9e1 + t1144 / 0.3e1 - t1147 / 0.3e1 - t1152 - t1155 / 0.6e1 + t1158;
1733   t1160 = t508 * t172;
1734   t1162 = t170 * t171 * t1160;
1735   t1163 = t519 * t172;
1736   t1165 = t170 * t171 * t1163;
1737   t1167 = t185 * t8;
1738   t1169 = t292 * t412 * t1167;
1739   t1174 = t7 * t177 * t498;
1740   t1176 = -t1162 + t1165 / 0.2e1 - t1169 / 0.3e1 - t980 - t999 + t1006 + t1017 - t877 - t881 + t883 / 0.12e2 + t1036 / 0.6e1 - t1174 / 0.8e1;
1741   t1182 = t9 * (t1097 + t1114 + t1159 + t1176) - 0.2e1 / 0.3e1 * t425 + t430 - t435 + t445 / 0.2e1 - t455 - t461 - t466 - t469 - t478 + t504 - t511 + t522 - t301;
1742   t1185 = t328 - t383 - 0.2e1 / 0.3e1 * t400 - t403 - t415 + t473 - t1046 + t408 - t1047 + t442 + t711 - t325 + t716 - t438 / 0.2e1 - t501;
1743   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1744     v3rho3[2] = t1182 + t1185;
1745 
1746   t1198 = t451 * t184;
1747   t1199 = t66 * t1198;
1748   t1201 = t772 * t116 * t1199;
1749   t1202 = t1201 / 0.9e1;
1750   t1203 = t462 * t189;
1751   t1204 = t107 * t1203;
1752   t1206 = t801 * t171 * t1204;
1753   t1207 = t1206 / 0.9e1;
1754   t1209 = t217 * t433 * t508;
1755   t1210 = 0.9e1 / 0.4e1 * t1209;
1756   t1211 = t218 * t218;
1757   t1212 = 0.1e1 / t1211;
1758   t1213 = t507 * t226;
1759   t1214 = t1212 * t1213;
1760   t1216 = t217 * t171 * t1214;
1761   t1217 = 0.9e1 / 0.4e1 * t1216;
1762   t1219 = t217 * t1093 * t227;
1763   t1220 = 0.9e1 / 0.8e1 * t1219;
1764   t1222 = t217 * t433 * t519;
1765   t1223 = 0.9e1 / 0.8e1 * t1222;
1766   t1225 = 0.1e1 / t78 / t87;
1767   t1226 = t75 * t1225;
1768   t1230 = 0.1e1 / t77 / t94;
1769   t1231 = t85 * t1230;
1770   t1235 = 0.1e1 / t94 / t194;
1771   t1236 = t93 * t1235;
1772   t1239 = -0.154e3 / 0.81e2 * t56 * t1226 - 0.209e3 / 0.486e3 * t59 * t1231 - 0.5e1 / 0.16e2 * t62 * t1236;
1773   t1240 = t219 * t1239;
1774   t1242 = t217 * t171 * t1240;
1775   t1243 = 0.3e1 / 0.8e1 * t1242;
1776   t1249 = -0.3e1 * t310 - 0.3e1 * t762;
1777   t1250 = t66 * t1249;
1778   t1252 = t115 * t116 * t1250;
1779   t1253 = t1252 / 0.2e1;
1780   t1255 = t374 * t433 * t463;
1781   t1256 = t1255 / 0.2e1;
1782   t1258 = t170 * t1093 * t190;
1783   t1259 = 0.3e1 / 0.2e1 * t1258;
1784   t1261 = t170 * t433 * t475;
1785   t1262 = 0.3e1 / 0.2e1 * t1261;
1786   t1263 = -t1249;
1787   t1264 = t107 * t1263;
1788   t1266 = t170 * t171 * t1264;
1789   t1267 = t1266 / 0.2e1;
1790   t1269 = t1202 + t1207 - t1210 + t1217 + t1220 + t1223 + t1243 - t1059 - t1062 / 0.2e1 + 0.3e1 / 0.4e1 * t1065 - 0.3e1 / 0.4e1 * t1068 + 0.3e1 / 0.8e1 * t1071 - t1253 - t1256 - t1259 - t1262 - t1267 - t1099 / 0.6e1;
1791   t1272 = t911 / 0.3e1;
1792   t1273 = t923 / 0.3e1;
1793   t1274 = t933 / 0.4e1;
1794   t1275 = t185 * t457;
1795   t1277 = t292 * t116 * t1275;
1796   t1278 = t1277 / 0.2e1;
1797   t1279 = t219 * t462;
1798   t1280 = t1279 * t226;
1799   t1282 = t374 * t171 * t1280;
1800   t1283 = t1282 / 0.2e1;
1801   t1284 = t190 * t474;
1802   t1286 = t374 * t171 * t1284;
1803   t1287 = t1286 / 0.2e1;
1804   t1289 = t170 * t433 * t471;
1805   t1290 = 0.3e1 * t1289;
1806   t1291 = t219 * t474;
1807   t1292 = t1291 * t226;
1808   t1294 = t170 * t171 * t1292;
1809   t1295 = 0.3e1 / 0.2e1 * t1294;
1810   t1296 = t470 * t518;
1811   t1298 = t170 * t171 * t1296;
1812   t1299 = 0.3e1 / 0.2e1 * t1298;
1813   t1300 = t506 * t226;
1814   t1301 = t1300 * t518;
1815   t1303 = t217 * t171 * t1301;
1816   t1304 = 0.9e1 / 0.4e1 * t1303;
1817   t1306 = t506 * t189 * t507;
1818   t1308 = t170 * t171 * t1306;
1819   t1309 = 0.3e1 * t1308;
1820   t1310 = t1036 / 0.4e1;
1821   t1318 = -0.154e3 / 0.81e2 * t19 * t1226 - 0.209e3 / 0.486e3 * t34 * t1231 - 0.5e1 / 0.16e2 * t48 * t1236;
1822   t1319 = t1318 * t107;
1823   t1321 = t7 * t74 * t1319;
1824   t1322 = 0.3e1 / 0.8e1 * t1321;
1825   t1323 = -t1102 / 0.2e1 - t1105 / 0.6e1 + t1272 + t1273 - t1274 - t1278 + t1283 - t1287 + t1290 + t1295 + t1299 - t1304 - t1309 + t1118 - t877 - t881 + t1310 - 0.3e1 / 0.8e1 * t1174 - t1322;
1826   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1827     v3rho3[3] = t711 + t716 - 0.3e1 / 0.4e1 * t438 - 0.3e1 / 0.2e1 * t460 - 0.3e1 * t469 - 0.3e1 / 0.2e1 * t477 + 0.9e1 / 0.4e1 * t503 + 0.9e1 / 0.8e1 * t521 - 0.9e1 / 0.8e1 * t500 - t400 - t425 + 0.3e1 / 0.4e1 * t445 - t454 / 0.2e1 - t465 / 0.2e1 + 0.3e1 * t473 - 0.9e1 / 0.4e1 * t510 + t9 * (t1269 + t1323);
1828 
1829   t1326 = t532 / 0.4e1;
1830   t1329 = t556 / 0.4e1;
1831   t1334 = t4 * t114 * t16;
1832   t1335 = t55 * t354;
1833   t1336 = t253 * t121;
1834   t1337 = t1336 * t164;
1835   t1338 = t1335 * t1337;
1836   t1339 = t1334 * t1338;
1837   t1340 = 0.2e1 * t1339;
1838   t1342 = t155 * t781 * t254;
1839   t1343 = t1342 / 0.12e2;
1840   t1344 = t16 * t543;
1841   t1346 = t115 * t1344 * t122;
1842   t1348 = t115 * t527 * t313;
1843   t1349 = t1348 / 0.2e1;
1844   t1350 = t127 * t243;
1845   t1352 = t155 * t1350 * t165;
1846   t1353 = t1352 / 0.4e1;
1847   t1355 = t155 * t1344 * t165;
1848   t1356 = 0.3e1 / 0.4e1 * t1355;
1849   t1358 = t155 * t527 * t367;
1850   t1359 = 0.3e1 / 0.8e1 * t1358;
1851   t1361 = t155 * t723 * t254;
1852   t1362 = t1361 / 0.4e1;
1853   t1364 = t155 * t298 * t573;
1854   t1365 = t1364 / 0.4e1;
1855   t1367 = t155 * t730 * t254;
1856   t1368 = 0.3e1 / 0.8e1 * t1367;
1857   t1370 = t155 * t302 * t573;
1858   t1371 = 0.3e1 / 0.4e1 * t1370;
1859   t1372 = t23 * t330;
1860   t1375 = t236 * t336;
1861   t1378 = t37 * t341;
1862   t1381 = 0.11e2 / 0.27e2 * t56 * t1372 + 0.19e2 / 0.162e3 * t59 * t1375 + 0.3e1 / 0.32e2 * t62 * t1378;
1863   t1382 = t157 * t1381;
1864   t1384 = t155 * t116 * t1382;
1865   t1385 = 0.3e1 / 0.8e1 * t1384;
1866   t1387 = t292 * t527 * t294;
1867   t1388 = t1387 / 0.6e1;
1868   t1390 = t115 * t1350 * t122;
1869   t1391 = t1390 / 0.3e1;
1870   t1392 = -t1340 - t1343 - t1346 - t1349 + t1353 + t1356 + t1359 + t1362 + t1365 + t1368 + t1371 + t1385 - t1388 - t1391;
1871   t1394 = t155 * t527 * t356;
1872   t1395 = 0.3e1 / 0.4e1 * t1394;
1873   t1397 = t115 * t527 * t306;
1874   t1399 = t115 * t302 * t551;
1875   t1400 = t573 * t121;
1876   t1402 = t115 * t116 * t1400;
1877   t1403 = t254 * t312;
1878   t1405 = t115 * t116 * t1403;
1879   t1406 = t1405 / 0.2e1;
1880   t1408 = t155 * t298 * t562;
1881   t1409 = t1408 / 0.2e1;
1882   t1411 = t155 * t302 * t562;
1883   t1412 = 0.3e1 / 0.2e1 * t1411;
1884   t1413 = t354 * t572;
1885   t1414 = t1413 * t164;
1886   t1416 = t155 * t116 * t1414;
1887   t1417 = 0.3e1 / 0.2e1 * t1416;
1888   t1418 = t561 * t366;
1889   t1420 = t155 * t116 * t1418;
1890   t1421 = 0.3e1 / 0.4e1 * t1420;
1891   t1422 = t254 * t293;
1892   t1424 = t292 * t116 * t1422;
1893   t1425 = t1424 / 0.6e1;
1894   t1427 = t115 * t298 * t551;
1895   t1428 = t1427 / 0.3e1;
1896   t1430 = t792 * t253 * t355;
1897   t1432 = t155 * t116 * t1430;
1898   t1433 = 0.9e1 / 0.4e1 * t1432;
1899   t1435 = t7 * t128 * t544;
1900   t1436 = t1435 / 0.4e1;
1901   t1443 = 0.11e2 / 0.27e2 * t19 * t1372 + 0.19e2 / 0.162e3 * t34 * t1375 + 0.3e1 / 0.32e2 * t48 * t1378;
1902   t1444 = t1443 * t66;
1903   t1446 = t7 * t17 * t1444;
1904   t1447 = 0.3e1 / 0.8e1 * t1446;
1905   t1449 = t7 * t319 * t244;
1906   t1450 = t1449 / 0.12e2;
1907   t1451 = -t1395 + t1397 + t1399 + t1402 + t1406 - t1409 - t1412 - t1417 - t1421 + t1425 + t1428 + t1433 - t1436 - t1447 + t1450;
1908   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1909     v3rho2sigma[0] = -t529 - t1326 - 0.3e1 / 0.4e1 * t546 + 0.3e1 / 0.4e1 * t549 + t553 + t1329 + 0.3e1 / 0.4e1 * t559 - 0.3e1 / 0.2e1 * t564 + 0.3e1 / 0.4e1 * t575 + t9 * (t1392 + t1451);
1910 
1911   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1912     v3rho2sigma[1] = 0.0e0;
1913 
1914   t1454 = t586 / 0.4e1;
1915   t1455 = t593 / 0.4e1;
1916   t1457 = t374 * t581 * t376;
1917   t1458 = t1457 / 0.6e1;
1918   t1459 = t127 * t269;
1919   t1461 = t170 * t1459 * t173;
1920   t1462 = t1461 / 0.3e1;
1921   t1464 = t170 * t581 * t385;
1922   t1465 = t1464 / 0.2e1;
1923   t1467 = t7 * t389 * t270;
1924   t1468 = t1467 / 0.12e2;
1925   t1469 = t280 * t375;
1926   t1471 = t374 * t171 * t1469;
1927   t1472 = t1471 / 0.6e1;
1928   t1474 = t170 * t380 * t588;
1929   t1475 = t1474 / 0.3e1;
1930   t1476 = t280 * t384;
1931   t1478 = t170 * t171 * t1476;
1932   t1479 = t1478 / 0.2e1;
1933   t1481 = t217 * t810 * t280;
1934   t1482 = t1481 / 0.12e2;
1935   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1936     v3rho2sigma[2] = -t583 - t1454 + t590 + t1455 + t9 * (-t1458 - t1462 - t1465 + t1468 + t1472 + t1475 + t1479 - t1482);
1937 
1938   t1486 = t292 * t527 * t395;
1939   t1489 = t115 * t1350 * t185;
1940   t1492 = t115 * t1344 * t185;
1941   t1495 = t115 * t527 * t406;
1942   t1497 = t411 * t243;
1943   t1499 = t115 * t1497 * t413;
1944   t1504 = t253 * t184;
1945   t1505 = t1504 * t121;
1946   t1506 = t904 * t1505;
1947   t1507 = t903 * t1506;
1948   t1510 = t115 * t298 * t600;
1949   t1513 = t115 * t302 * t600;
1950   t1515 = t1504 * t164;
1951   t1516 = t1335 * t1515;
1952   t1517 = t1334 * t1516;
1953   t1518 = t573 * t184;
1954   t1520 = t115 * t116 * t1518;
1955   t1522 = t254 * t8;
1956   t1524 = t115 * t412 * t1522;
1957   t1530 = -t1486 / 0.6e1 - t1489 / 0.6e1 - t1492 / 0.2e1 + t1495 / 0.2e1 - t1499 / 0.2e1 - t1390 / 0.6e1 + t1450 - t1435 / 0.8e1 + t1352 / 0.8e1 + t1507 / 0.6e1 + t1510 / 0.6e1 + t1513 / 0.2e1 - t1517 + t1520 / 0.2e1 + t1524 / 0.2e1 + t1427 / 0.6e1 - t1343 + t1361 / 0.8e1 - t1408 / 0.4e1 + t1364 / 0.8e1;
1958   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1959     v3rho2sigma[3] = t1530 * t9 - t1326 + t1329 - t530 - t547 + t550 + t554 + t560 - t565 + t576 - t599 + t603;
1960 
1961   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1962     v3rho2sigma[4] = 0.0e0;
1963 
1964   t1533 = t374 * t581 * t420;
1965   t1536 = t170 * t1459 * t190;
1966   t1538 = t411 * t269;
1967   t1540 = t170 * t1538 * t428;
1968   t1543 = t16 * t618;
1969   t1545 = t170 * t1543 * t173;
1970   t1548 = t7 * t177 * t619;
1971   t1551 = t170 * t581 * t440;
1972   t1554 = t217 * t1459 * t227;
1973   t1556 = t279 * t189;
1974   t1557 = t1556 * t172;
1975   t1558 = t1052 * t1557;
1976   t1559 = t1051 * t1558;
1977   t1562 = t170 * t380 * t626;
1978   t1564 = t280 * t8;
1979   t1566 = t170 * t427 * t1564;
1980   t1570 = t170 * t433 * t588;
1981   t1573 = t217 * t928 * t280;
1982   t1576 = t4 * t169 * t16;
1983   t1577 = t99 * t506;
1984   t1578 = t279 * t226;
1985   t1579 = t1578 * t172;
1986   t1580 = t1577 * t1579;
1987   t1581 = t1576 * t1580;
1988   t1583 = t217 * t380 * t634;
1989   t1585 = t645 * t172;
1990   t1587 = t170 * t171 * t1585;
1991   t1590 = t217 * t380 * t645;
1992   t1592 = -t1533 / 0.6e1 - t1536 / 0.6e1 + t1540 / 0.2e1 - t1461 / 0.6e1 + t1468 - t1545 / 0.2e1 - t1548 / 0.8e1 + t1551 / 0.2e1 + t1554 / 0.8e1 + t1559 / 0.6e1 + t1562 / 0.6e1 - t1566 / 0.2e1 + t1474 / 0.6e1 - t1482 + t1570 / 0.2e1 + t1573 / 0.8e1 - t1581 - t1583 / 0.4e1 + t1587 / 0.2e1 + t1590 / 0.8e1;
1993   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1994     v3rho2sigma[5] = t1592 * t9 - t1454 + t1455 - t584 + t591 - t608 - t622 + t625 + t629 + t632 - t637 + t648;
1995 
1996   t1595 = t292 * t527 * t452;
1997   t1596 = t1595 / 0.6e1;
1998   t1597 = t1489 / 0.3e1;
1999   t1599 = t115 * t527 * t458;
2000   t1600 = t1599 / 0.2e1;
2001   t1601 = t254 * t451;
2002   t1603 = t292 * t116 * t1601;
2003   t1604 = t1603 / 0.6e1;
2004   t1605 = t1510 / 0.3e1;
2005   t1606 = t254 * t457;
2006   t1608 = t115 * t116 * t1606;
2007   t1609 = t1608 / 0.2e1;
2008   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2009     v3rho2sigma[6] = -t598 - t1326 + t602 + t1329 + t9 * (-t1596 - t1597 - t1600 + t1450 + t1604 + t1605 + t1609 - t1343);
2010 
2011   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2012     v3rho2sigma[7] = 0.0e0;
2013 
2014   t1617 = t1556 * t226;
2015   t1618 = t1577 * t1617;
2016   t1619 = t1576 * t1618;
2017   t1620 = 0.2e1 * t1619;
2018   t1622 = t217 * t581 * t508;
2019   t1623 = 0.3e1 / 0.4e1 * t1622;
2020   t1625 = t170 * t1543 * t190;
2021   t1627 = t170 * t581 * t475;
2022   t1628 = t1627 / 0.2e1;
2023   t1630 = t217 * t1543 * t227;
2024   t1631 = 0.3e1 / 0.4e1 * t1630;
2025   t1633 = t217 * t581 * t519;
2026   t1634 = 0.3e1 / 0.8e1 * t1633;
2027   t1636 = t217 * t1093 * t280;
2028   t1637 = 0.3e1 / 0.8e1 * t1636;
2029   t1639 = t217 * t433 * t645;
2030   t1640 = 0.3e1 / 0.4e1 * t1639;
2031   t1641 = t23 * t482;
2032   t1644 = t262 * t488;
2033   t1647 = t84 * t493;
2034   t1650 = 0.11e2 / 0.27e2 * t56 * t1641 + 0.19e2 / 0.162e3 * t59 * t1644 + 0.3e1 / 0.32e2 * t62 * t1647;
2035   t1651 = t219 * t1650;
2036   t1653 = t217 * t171 * t1651;
2037   t1654 = 0.3e1 / 0.8e1 * t1653;
2038   t1656 = t374 * t581 * t463;
2039   t1657 = t1656 / 0.6e1;
2040   t1658 = t1536 / 0.3e1;
2041   t1659 = t1554 / 0.4e1;
2042   t1660 = t1573 / 0.4e1;
2043   t1661 = t1590 / 0.4e1;
2044   t1662 = -t1620 - t1623 - t1625 - t1628 + t1631 + t1634 + t1637 + t1640 + t1654 - t1657 - t1658 + t1659 + t1660 + t1661;
2045   t1663 = t280 * t462;
2046   t1665 = t374 * t171 * t1663;
2047   t1666 = t1665 / 0.6e1;
2048   t1668 = t1212 * t279 * t507;
2049   t1670 = t217 * t171 * t1668;
2050   t1671 = 0.9e1 / 0.4e1 * t1670;
2051   t1673 = t170 * t581 * t471;
2052   t1675 = t170 * t433 * t626;
2053   t1676 = t645 * t189;
2054   t1678 = t170 * t171 * t1676;
2055   t1679 = t280 * t474;
2056   t1681 = t170 * t171 * t1679;
2057   t1682 = t1681 / 0.2e1;
2058   t1684 = t217 * t433 * t634;
2059   t1685 = 0.3e1 / 0.2e1 * t1684;
2060   t1686 = t506 * t644;
2061   t1687 = t1686 * t226;
2062   t1689 = t217 * t171 * t1687;
2063   t1690 = 0.3e1 / 0.2e1 * t1689;
2064   t1691 = t633 * t518;
2065   t1693 = t217 * t171 * t1691;
2066   t1694 = 0.3e1 / 0.4e1 * t1693;
2067   t1695 = t1583 / 0.2e1;
2068   t1696 = t1562 / 0.3e1;
2069   t1697 = t1548 / 0.4e1;
2070   t1704 = 0.11e2 / 0.27e2 * t19 * t1641 + 0.19e2 / 0.162e3 * t34 * t1644 + 0.3e1 / 0.32e2 * t48 * t1647;
2071   t1705 = t1704 * t107;
2072   t1707 = t7 * t74 * t1705;
2073   t1708 = 0.3e1 / 0.8e1 * t1707;
2074   t1709 = -t1482 + t1666 + t1671 + t1673 + t1675 + t1678 + t1682 - t1685 - t1690 - t1694 - t1695 + t1696 + t1468 - t1697 - t1708;
2075   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2076     v3rho2sigma[8] = -t607 - t1454 - 0.3e1 / 0.4e1 * t621 + 0.3e1 / 0.4e1 * t624 + t628 + t1455 + 0.3e1 / 0.4e1 * t631 - 0.3e1 / 0.2e1 * t636 + 0.3e1 / 0.4e1 * t647 + t9 * (t1662 + t1709);
2077 
2078   t1712 = t16 * t657;
2079   t1714 = t115 * t1712 * t122;
2080   t1715 = t1714 / 0.2e1;
2081   t1717 = t7 * t128 * t658;
2082   t1718 = t1717 / 0.8e1;
2083   t1719 = t36 * t140;
2084   t1722 = sigma[0] * t145;
2085   t1725 = -t34 * t1719 / 0.54e2 - t48 * t1722 / 0.48e2;
2086   t1726 = t1725 * t66;
2087   t1728 = t7 * t17 * t1726;
2088   t1729 = 0.3e1 / 0.8e1 * t1728;
2089   t1731 = t155 * t1712 * t165;
2090   t1732 = 0.3e1 / 0.8e1 * t1731;
2091   t1734 = t115 * t527 * t551;
2092   t1736 = t155 * t1350 * t254;
2093   t1737 = t1736 / 0.4e1;
2094   t1739 = t155 * t1344 * t254;
2095   t1740 = 0.3e1 / 0.4e1 * t1739;
2096   t1742 = t155 * t527 * t562;
2097   t1743 = 0.3e1 / 0.2e1 * t1742;
2098   t1745 = t155 * t527 * t573;
2099   t1746 = 0.3e1 / 0.4e1 * t1745;
2100   t1747 = t666 * t121;
2101   t1749 = t115 * t116 * t1747;
2102   t1751 = t155 * t298 * t666;
2103   t1752 = t1751 / 0.4e1;
2104   t1754 = t155 * t302 * t666;
2105   t1755 = 0.3e1 / 0.4e1 * t1754;
2106   t1756 = t792 * t665;
2107   t1757 = t1756 * t164;
2108   t1759 = t155 * t116 * t1757;
2109   t1760 = 0.9e1 / 0.4e1 * t1759;
2110   t1761 = t561 * t572;
2111   t1763 = t155 * t116 * t1761;
2112   t1764 = 0.3e1 / 0.2e1 * t1763;
2113   t1765 = t675 * t121;
2114   t1767 = t115 * t116 * t1765;
2115   t1768 = t1767 / 0.2e1;
2116   t1770 = t155 * t298 * t675;
2117   t1771 = t1770 / 0.8e1;
2118   t1773 = t155 * t302 * t675;
2119   t1774 = 0.3e1 / 0.8e1 * t1773;
2120   t1775 = t354 * t674;
2121   t1776 = t1775 * t164;
2122   t1778 = t155 * t116 * t1776;
2123   t1779 = 0.3e1 / 0.4e1 * t1778;
2124   t1784 = -t59 * t1719 / 0.54e2 - t62 * t1722 / 0.48e2;
2125   t1785 = t157 * t1784;
2126   t1787 = t155 * t116 * t1785;
2127   t1788 = 0.3e1 / 0.8e1 * t1787;
2128   t1789 = -t1715 - t1718 - t1729 + t1732 + t1734 + t1737 + t1740 - t1743 + t1746 - t1749 - t1752 - t1755 + t1760 - t1764 + t1768 + t1771 + t1774 - t1779 + t1788;
2129   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2130     v3rhosigma2[0] = t1789 * t9 - t661 + t664 - t669 + t678;
2131 
2132   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2133     v3rhosigma2[1] = 0.0e0;
2134 
2135   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2136     v3rhosigma2[2] = 0.0e0;
2137 
2138   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2139     v3rhosigma2[3] = 0.0e0;
2140 
2141   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2142     v3rhosigma2[4] = 0.0e0;
2143 
2144   t1791 = t16 * t686;
2145   t1793 = t170 * t1791 * t173;
2146   t1794 = t1793 / 0.2e1;
2147   t1796 = t7 * t177 * t687;
2148   t1797 = t1796 / 0.8e1;
2149   t1799 = t170 * t581 * t588;
2150   t1801 = t217 * t1459 * t280;
2151   t1802 = t1801 / 0.4e1;
2152   t1803 = t695 * t172;
2153   t1805 = t170 * t171 * t1803;
2154   t1807 = t217 * t380 * t695;
2155   t1808 = t1807 / 0.4e1;
2156   t1809 = t704 * t172;
2157   t1811 = t170 * t171 * t1809;
2158   t1812 = t1811 / 0.2e1;
2159   t1814 = t217 * t380 * t704;
2160   t1815 = t1814 / 0.8e1;
2161   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2162     v3rhosigma2[5] = -t690 + t693 - t698 + t707 + t9 * (-t1794 - t1797 + t1799 + t1802 - t1805 - t1808 + t1812 + t1815);
2163 
2164   t1819 = t115 * t1712 * t185;
2165   t1820 = t1819 / 0.2e1;
2166   t1822 = t115 * t527 * t600;
2167   t1823 = t666 * t184;
2168   t1825 = t115 * t116 * t1823;
2169   t1826 = t675 * t184;
2170   t1828 = t115 * t116 * t1826;
2171   t1829 = t1828 / 0.2e1;
2172   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2173     v3rhosigma2[6] = -t661 + t664 - t669 + t678 + t9 * (-t1820 - t1718 + t1822 + t1737 - t1825 - t1752 + t1829 + t1771);
2174 
2175   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2176     v3rhosigma2[7] = 0.0e0;
2177 
2178   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2179     v3rhosigma2[8] = 0.0e0;
2180 
2181   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2182     v3rhosigma2[9] = 0.0e0;
2183 
2184   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2185     v3rhosigma2[10] = 0.0e0;
2186 
2187   t1833 = t170 * t1791 * t190;
2188   t1834 = t1833 / 0.2e1;
2189   t1835 = t36 * t202;
2190   t1838 = sigma[2] * t207;
2191   t1841 = -t34 * t1835 / 0.54e2 - t48 * t1838 / 0.48e2;
2192   t1842 = t1841 * t107;
2193   t1844 = t7 * t74 * t1842;
2194   t1845 = 0.3e1 / 0.8e1 * t1844;
2195   t1847 = t217 * t1791 * t227;
2196   t1848 = 0.3e1 / 0.8e1 * t1847;
2197   t1850 = t170 * t581 * t626;
2198   t1852 = t217 * t1543 * t280;
2199   t1853 = 0.3e1 / 0.4e1 * t1852;
2200   t1855 = t217 * t581 * t634;
2201   t1856 = 0.3e1 / 0.2e1 * t1855;
2202   t1858 = t217 * t581 * t645;
2203   t1859 = 0.3e1 / 0.4e1 * t1858;
2204   t1860 = t695 * t189;
2205   t1862 = t170 * t171 * t1860;
2206   t1864 = t217 * t433 * t695;
2207   t1865 = 0.3e1 / 0.4e1 * t1864;
2208   t1866 = t1212 * t694;
2209   t1867 = t1866 * t226;
2210   t1869 = t217 * t171 * t1867;
2211   t1870 = 0.9e1 / 0.4e1 * t1869;
2212   t1871 = t633 * t644;
2213   t1873 = t217 * t171 * t1871;
2214   t1874 = 0.3e1 / 0.2e1 * t1873;
2215   t1875 = t704 * t189;
2216   t1877 = t170 * t171 * t1875;
2217   t1878 = t1877 / 0.2e1;
2218   t1880 = t217 * t433 * t704;
2219   t1881 = 0.3e1 / 0.8e1 * t1880;
2220   t1882 = t506 * t703;
2221   t1883 = t1882 * t226;
2222   t1885 = t217 * t171 * t1883;
2223   t1886 = 0.3e1 / 0.4e1 * t1885;
2224   t1891 = -t59 * t1835 / 0.54e2 - t62 * t1838 / 0.48e2;
2225   t1892 = t219 * t1891;
2226   t1894 = t217 * t171 * t1892;
2227   t1895 = 0.3e1 / 0.8e1 * t1894;
2228   t1896 = -t1834 - t1797 - t1845 + t1848 + t1850 + t1802 + t1853 - t1856 + t1859 - t1862 - t1808 - t1865 + t1870 - t1874 + t1878 + t1815 + t1881 - t1886 + t1895;
2229   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2230     v3rhosigma2[11] = t1896 * t9 - t690 + t693 - t698 + t707;
2231 
2232   t1898 = t16 * params->a3;
2233   t1899 = t47 * t51;
2234   t1900 = t1899 * t66;
2235   t1903 = t155 * t1898 * t1900 / 0.1024e4;
2236   t1906 = 0.9e1 / 0.8e1 * t155 * t1712 * t254;
2237   t1909 = 0.9e1 / 0.4e1 * t155 * t527 * t666;
2238   t1912 = 0.9e1 / 0.8e1 * t155 * t527 * t675;
2239   t1913 = t665 * t253;
2240   t1914 = t792 * t1913;
2241   t1917 = 0.9e1 / 0.4e1 * t155 * t116 * t1914;
2242   t1918 = t561 * t674;
2243   t1921 = 0.9e1 / 0.4e1 * t155 * t116 * t1918;
2244   t1923 = t4 * t154 * t16;
2245   t1924 = t62 * t51;
2246   t1925 = t904 * t1924;
2247   t1927 = t1923 * t1925 / 0.1024e4;
2248   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2249     v3sigma3[0] = t9 * (-t1903 + t1906 - t1909 + t1912 + t1917 - t1921 + t1927);
2250 
2251   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2252     v3sigma3[1] = 0.0e0;
2253 
2254   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2255     v3sigma3[2] = 0.0e0;
2256 
2257   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2258     v3sigma3[3] = 0.0e0;
2259 
2260   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2261     v3sigma3[4] = 0.0e0;
2262 
2263   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2264     v3sigma3[5] = 0.0e0;
2265 
2266   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2267     v3sigma3[6] = 0.0e0;
2268 
2269   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2270     v3sigma3[7] = 0.0e0;
2271 
2272   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2273     v3sigma3[8] = 0.0e0;
2274 
2275   t1929 = t47 * t95;
2276   t1930 = t1929 * t107;
2277   t1933 = t217 * t1898 * t1930 / 0.1024e4;
2278   t1936 = 0.9e1 / 0.8e1 * t217 * t1791 * t280;
2279   t1939 = 0.9e1 / 0.4e1 * t217 * t581 * t695;
2280   t1942 = 0.9e1 / 0.8e1 * t217 * t581 * t704;
2281   t1943 = t694 * t279;
2282   t1944 = t1212 * t1943;
2283   t1947 = 0.9e1 / 0.4e1 * t217 * t171 * t1944;
2284   t1948 = t633 * t703;
2285   t1951 = 0.9e1 / 0.4e1 * t217 * t171 * t1948;
2286   t1953 = t4 * t216 * t16;
2287   t1954 = t62 * t95;
2288   t1955 = t1052 * t1954;
2289   t1957 = t1953 * t1955 / 0.1024e4;
2290   if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2291     v3sigma3[9] = t9 * (-t1933 + t1936 - t1939 + t1942 + t1947 - t1951 + t1957);
2292 
2293 #ifndef XC_DONT_COMPILE_LXC
2294 
2295   if(order < 4) return;
2296 
2297 
2298   t1960 = t292 * t298 * t852;
2299   t1986 = t115 * t723 * t306;
2300   t1989 = t292 * t298 * t856;
2301   t1992 = t115 * t298 * t866;
2302   t2010 = t115 * t781 * t306;
2303   t2013 = t115 * t298 * t870;
2304   t2016 = t155 * t298 * t838;
2305   t2028 = 0.2e1 / 0.3e1 * t1960 + t292 * t116 * t851 * t366 + 0.3e1 * t115 * t116 * t865 * t366 + 0.12e2 * t115 * t116 * t794 * t121 + 0.27e2 / 0.2e1 * t155 * t116 * t792 * t355 * t366 + 0.2e1 / 0.3e1 * t801 * t171 * t376 * t384 - 0.2e1 * t292 * t302 * t856 + 0.4e1 * t1986 - 0.2e1 / 0.3e1 * t1989 + 0.2e1 * t1992 + 0.6e1 * t115 * t730 * t306 + 0.6e1 * t115 * t302 * t866 - 0.2e1 / 0.3e1 * t292 * t116 * t830 * t121 + 0.2e1 * t115 * t116 * t157 * t829 * t164 - 0.4e1 / 0.3e1 * t2010 + 0.2e1 * t2013 - 0.3e1 * t2016 + 0.6e1 * t115 * t302 * t870 - 0.9e1 * t155 * t302 * t838 + 0.2e1 * t115 * t116 * t753 * t121;
2306   t2035 = t374 * t380 * t842;
2307   t2064 = t115 * t298 * t847;
2308   t2080 = t115 * t781 * t313;
2309   t2083 = t155 * t781 * t356;
2310   t2085 = t155 * t723 * t356;
2311   t2091 = t170 * t810 * t385;
2312   t2093 = t13 * t13;
2313   t2097 = t4 * t6 / t289 / t2093;
2314   t2098 = t293 * t293;
2315   t2104 = t772 * t298 * t774;
2316   t2107 = t292 * t781 * t294;
2317   t2109 = -0.3e1 * t155 * t116 * t354 * t752 * t164 - 0.2e1 / 0.3e1 * t2035 - 0.2e1 / 0.3e1 * t374 * t171 * t765 * t172 - 0.4e1 / 0.9e1 * t772 * t116 * t157 * t773 * t164 + 0.2e1 / 0.3e1 * t772 * t116 * t294 * t312 - 0.6e1 * t115 * t116 * t354 * t312 * t355 + 0.2e1 * t292 * t302 * t852 - 0.2e1 * t292 * t116 * t354 * t293 * t355 - 0.4e1 * t2064 - 0.12e2 * t115 * t302 * t847 + 0.2e1 * t903 * t904 * t121 * t164 * t312 - 0.12e2 * t1334 * t1335 * t121 * t366 * t164 + 0.2e1 / 0.3e1 * t2080 + t2083 - 0.3e1 * t2085 - 0.9e1 / 0.2e1 * t155 * t730 * t356 + 0.2e1 / 0.3e1 * t2091 - 0.5e1 / 0.27e2 * t2097 * t116 * t66 * t2098 + 0.4e1 / 0.27e2 * t2104 + 0.2e1 / 0.9e1 * t2107;
2318   t2111 = t312 * t312;
2319   t2117 = t155 * t298 * t794;
2320   t2123 = 0.1e1 / t791 / t65;
2321   t2124 = t355 * t355;
2322   t2129 = t366 * t366;
2323   t2134 = t71 * t71;
2324   t2138 = t4 * t6 / t371 / t2134;
2325   t2139 = t375 * t375;
2326   t2145 = t801 * t380 * t803;
2327   t2148 = t374 * t810 * t376;
2328   t2150 = t384 * t384;
2329   t2157 = t127 * t345;
2330   t2159 = t115 * t2157 * t122;
2331   t2162 = t115 * t723 * t313;
2332   t2165 = t115 * t298 * t830;
2333   t2167 = t16 * t894;
2334   t2177 = t760 * t9;
2335   t2179 = t8 / t2177;
2336   t2181 = -0.12e2 * t761 + 0.12e2 * t2179;
2337   t2186 = t412 * t122;
2338   t2187 = t115 * t2186;
2339   t2189 = t412 * t165;
2340   t2190 = t155 * t2189;
2341   t2192 = t318 * t149;
2342   t2194 = t155 * t2192 * t165;
2343   t2195 = -t292 * t116 * t66 * t2111 / 0.2e1 + 0.3e1 * t2117 + 0.9e1 * t155 * t302 * t794 - 0.9e1 * t155 * t116 * t2123 * t2124 - 0.9e1 / 0.4e1 * t155 * t116 * t354 * t2129 - 0.5e1 / 0.27e2 * t2138 * t171 * t107 * t2139 + 0.4e1 / 0.27e2 * t2145 + 0.2e1 / 0.9e1 * t2148 - t374 * t171 * t107 * t2150 / 0.2e1 - t292 * t730 * t294 - 0.2e1 * t2159 - 0.2e1 * t2162 - 0.2e1 / 0.3e1 * t2165 - 0.2e1 * t115 * t2167 * t122 - 0.3e1 * t115 * t730 * t313 - 0.2e1 * t115 * t302 * t830 - t115 * t116 * t66 * t2181 / 0.2e1 - 0.20e2 / 0.27e2 * t2187 + 0.5e1 / 0.9e1 * t2190 - t2194;
2344   t2197 = t155 * t781 * t367;
2345   t2200 = t155 * t2157 * t165;
2346   t2203 = t155 * t723 * t367;
2347   t2206 = t155 * t298 * t753;
2348   t2219 = t24 / t27 / t138;
2349   t2224 = t38 / t26 / t144;
2350   t2229 = t49 / t50 / t39;
2351   t2238 = t170 * t380 * t765;
2352   t2245 = t427 * t173;
2353   t2246 = t170 * t2245;
2354   t2252 = t292 * t723 * t294;
2355   t2255 = t115 * t2192 * t122;
2356   t2258 = t7 * t874 * t150;
2357   t2261 = t7 * t319 * t346;
2358   t2264 = t7 * t128 * t895;
2359   t2280 = 0.10e2 / 0.27e2 * t7 * t15 * t914 * t67;
2360   t2284 = 0.10e2 / 0.27e2 * t7 * t73 * t914 * t108;
2361   t2285 = -t2197 / 0.2e1 + 0.3e1 / 0.2e1 * t2200 + 0.3e1 / 0.2e1 * t2203 + t2206 / 0.2e1 + 0.3e1 / 0.2e1 * t155 * t2167 * t165 + 0.9e1 / 0.4e1 * t155 * t730 * t367 + 0.3e1 / 0.2e1 * t155 * t302 * t753 + 0.3e1 / 0.8e1 * t155 * t116 * t157 * (0.2618e4 / 0.243e3 * t56 * t2219 + 0.5225e4 / 0.1458e4 * t59 * t2224 + 0.55e2 / 0.16e2 * t62 * t2229) - 0.2e1 / 0.3e1 * t2238 + t170 * t171 * t107 * t2181 / 0.2e1 - 0.20e2 / 0.27e2 * t2246 + 0.4e1 / 0.9e1 * t772 * t302 * t774 - 0.2e1 / 0.3e1 * t2252 + 0.4e1 / 0.3e1 * t2255 - 0.5e1 / 0.9e1 * t2258 + t2261 / 0.2e1 - t2264 / 0.2e1 - 0.3e1 / 0.8e1 * t7 * t17 * (0.2618e4 / 0.243e3 * t19 * t2219 + 0.5225e4 / 0.1458e4 * t34 * t2224 + 0.55e2 / 0.16e2 * t48 * t2229) * t66 + t2280 + t2284;
2362   t2307 = t9 * (t2028 + t2109 + t2195 + t2285) + 0.3e1 * t725 + 0.3e1 / 0.2e1 * t728 + 0.9e1 / 0.2e1 * t732 + 0.9e1 / 0.2e1 * t735 + 0.3e1 / 0.2e1 * t755 - 0.2e1 * t758 - 0.2e1 * t767 + 0.4e1 / 0.9e1 * t776 - 0.2e1 / 0.3e1 * t779 + 0.4e1 / 0.3e1 * t783 - 0.3e1 * t786 - 0.9e1 * t789 + 0.9e1 * t796 + 0.4e1 / 0.9e1 * t805 - 0.2e1 / 0.3e1 * t808 + 0.4e1 / 0.3e1 * t812 - 0.2e1 * t815 - 0.4e1 * t818;
2363   t2321 = 0.5e1 / 0.9e1 * t876;
2364   t2322 = 0.5e1 / 0.9e1 * t880;
2365   t2325 = -0.2e1 * t821 - 0.6e1 * t824 - 0.6e1 * t827 - 0.2e1 * t832 - t835 - 0.9e1 * t840 - 0.2e1 * t844 - 0.12e2 * t849 + 0.2e1 * t854 - 0.2e1 * t858 + 0.4e1 * t861 + 0.12e2 * t863 + 0.6e1 * t868 + 0.6e1 * t872 - t2321 - t2322 + t883 - 0.3e1 / 0.2e1 * t886 - 0.3e1 / 0.2e1 * t897;
2366   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2367     v4rho4[0] = t2307 + t2325;
2368 
2369   t2327 = t772 * t298 * t974;
2370   t2348 = t801 * t380 * t993;
2371   t2355 = t374 * t380 * t1000;
2372   t2358 = t115 * t298 * t1020;
2373   t2361 = t292 * t915 * t981;
2374   t2374 = t2327 / 0.9e1 + t772 * t412 * t413 * t293 / 0.3e1 + 0.3e1 * t115 * t116 * t792 * t184 * t793 - 0.3e1 * t115 * t412 * t354 * t8 * t355 - 0.5e1 / 0.27e2 * t2138 * t171 * t190 * t802 + t2348 / 0.9e1 - t801 * t171 * t227 * t802 / 0.9e1 + t2355 / 0.6e1 + t2358 / 0.2e1 + 0.7e1 / 0.6e1 * t2361 + 0.3e1 / 0.2e1 * t115 * t302 * t1020 + t115 * t116 * t405 * t752 / 0.2e1 - t374 * t171 * t190 * t764 / 0.6e1;
2375   t2380 = t374 * t810 * t420;
2376   t2381 = t2380 / 0.9e1;
2377   t2387 = t170 * t810 * t440;
2378   t2388 = t2387 / 0.3e1;
2379   t2392 = t292 * t298 * t1011;
2380   t2399 = t115 * t298 * t986;
2381   t2401 = t115 * t915 * t990;
2382   t2414 = t374 * t380 * t960;
2383   t2420 = t374 * t427 * t428 * t384 / 0.2e1 + t2381 + t170 * t171 * t227 * t764 / 0.2e1 - t2388 - t292 * t919 * t981 - t2392 / 0.6e1 - t292 * t412 * t413 * t312 / 0.2e1 - t2399 - 0.7e1 / 0.2e1 * t2401 - 0.3e1 * t115 * t302 * t986 + 0.3e1 * t115 * t919 * t990 + 0.3e1 / 0.2e1 * t115 * t412 * t989 * t366 - t2414 / 0.6e1 - t801 * t427 * t428 * t375 / 0.3e1;
2384   t2423 = t170 * t380 * t970;
2385   t2430 = t292 * t723 * t395;
2386   t2433 = t115 * t723 * t406;
2387   t2441 = t374 * t941 * t966;
2388   t2454 = t292 * t781 * t395;
2389   t2455 = t2454 / 0.9e1;
2390   t2457 = t115 * t781 * t406;
2391   t2458 = t2457 / 0.3e1;
2392   t2463 = t2423 / 0.2e1 - 0.5e1 / 0.27e2 * t2097 * t116 * t185 * t773 - t2430 / 0.3e1 + t2433 - t292 * t730 * t395 / 0.2e1 + 0.3e1 / 0.2e1 * t115 * t730 * t406 - 0.7e1 / 0.6e1 * t2441 - t374 * t433 * t842 / 0.2e1 - t292 * t302 * t1011 / 0.2e1 - t292 * t116 * t185 * t829 / 0.6e1 + t2455 - t2458 + t772 * t302 * t974 / 0.3e1 + t1960 / 0.6e1;
2393   t2471 = t4 * t771 * t16;
2394   t2472 = t184 * t312;
2395   t2482 = t4 * t291 * t127;
2396   t2483 = t2482 * t907;
2397   t2485 = t184 * t366;
2398   t2495 = t4 * t800 * t16;
2399   t2501 = t1986 - t1989 / 0.6e1 + t1992 / 0.2e1 - 0.2e1 / 0.3e1 * t2010 + t2013 / 0.2e1 - 0.3e1 / 0.4e1 * t2016 - t2035 / 0.6e1 - t2064 + t2471 * t67 * t2472 * t121 / 0.3e1 + t903 * t904 * t2472 * t164 / 0.2e1 + t2483 / 0.3e1 + t903 * t904 * t2485 * t121 / 0.2e1 - 0.3e1 * t1334 * t1335 * t2485 * t164 + t2495 * t108 * t189 * t384 * t172 / 0.3e1;
2400   t2518 = t4 * t291 * t411;
2401   t2523 = t149 * t157;
2402   t2527 = t115 * t2192 * t185;
2403   t2528 = t2527 / 0.3e1;
2404   t2531 = t115 * t914 * t149 * t413;
2405   t2538 = 0.1e1 / t126 / t760;
2406   t2541 = t170 * t2538 * t99 * t428;
2407   t2544 = t170 * t928 * t385;
2408   t2546 = t412 * t185;
2409   t2547 = t115 * t2546;
2410   t2551 = t115 * t2538 * t55 * t413;
2411   t2553 = t427 * t190;
2412   t2554 = t170 * t2553;
2413   t2556 = t1051 * t1052 * t226 * t384 * t172 / 0.2e1 - t2471 * t904 * t184 * t293 * t164 / 0.3e1 - t903 * t1335 * t905 * t355 + t2518 * t904 * t8 * t121 * t164 + t903 * t2523 * t906 + t2528 + 0.7e1 / 0.2e1 * t2531 - 0.3e1 / 0.2e1 * t115 * t411 * t345 * t413 + 0.25e2 / 0.6e1 * t2541 - t2544 / 0.2e1 - 0.5e1 / 0.27e2 * t2547 - 0.25e2 / 0.6e1 * t2551 - 0.5e1 / 0.27e2 * t2554;
2414   t2561 = t374 * t928 * t376;
2415   t2563 = t427 * t227;
2416   t2564 = t217 * t2563;
2417   t2567 = t115 * t2157 * t185;
2418   t2581 = t318 * t211;
2419   t2583 = t170 * t2581 * t173;
2420   t2584 = t2583 / 0.3e1;
2421   t2589 = t801 * t433 * t803 / 0.9e1 - t2561 / 0.6e1 + 0.5e1 / 0.36e2 * t2564 - t2567 / 0.2e1 - t115 * t2167 * t185 / 0.2e1 - t292 * t2186 / 0.2e1 + 0.3e1 / 0.2e1 * t115 * t2189 + t374 * t2245 / 0.2e1 - t170 * t433 * t765 / 0.2e1 + t2584 + t2080 / 0.3e1 + t2083 / 0.2e1 - 0.3e1 / 0.4e1 * t2085 + t2091 / 0.3e1;
2422   t2605 = t2104 / 0.27e2 + t2107 / 0.9e1 + 0.3e1 / 0.4e1 * t2117 + t2145 / 0.27e2 + t2148 / 0.9e1 - t2159 / 0.2e1 - t2162 / 0.2e1 - t2165 / 0.6e1 - 0.5e1 / 0.9e1 * t2187 + 0.5e1 / 0.12e2 * t2190 - t2194 / 0.2e1 - t2197 / 0.4e1 + 0.3e1 / 0.8e1 * t2200 + 0.3e1 / 0.8e1 * t2203;
2423   t2616 = t7 * t14 * t914 * t67;
2424   t2620 = t7 * t72 * t914 * t108;
2425   t2623 = t7 * t878 * t212;
2426   t2628 = t2206 / 0.8e1 - t2238 / 0.6e1 - 0.5e1 / 0.9e1 * t2246 - t2252 / 0.6e1 + 0.2e1 / 0.3e1 * t2255 - 0.3e1 / 0.2e1 * t7 * t1027 * t150 + 0.5e1 / 0.2e1 * t2616 - 0.5e1 / 0.2e1 * t2620 - 0.5e1 / 0.36e2 * t2623 - 0.5e1 / 0.12e2 * t2258 + t2261 / 0.4e1 - t2264 / 0.8e1 + t2280 + t2284;
2427   t2641 = t9 * (t2374 + t2420 + t2463 + t2501 + t2556 + t2589 + t2605 + t2628) + t908 + t1272 + 0.7e1 / 0.2e1 * t917 - 0.3e1 * t921 + t1273 - t926 / 0.2e1 - t930 - t1274 - t936 - 0.3e1 / 0.2e1 * t939 - 0.7e1 / 0.2e1 * t943 - 0.3e1 / 0.2e1 * t946 + 0.3e1 / 0.2e1 * t725 + 0.3e1 / 0.4e1 * t728 + t733 + t736;
2428   t2646 = t756 - t758 - t768 + t777 - t779 / 0.3e1 + t783 - 0.3e1 / 0.2e1 * t786 - t790 + t797 + t806 - t808 / 0.3e1 + t812 - t816 - 0.2e1 * t818 - t821 - t825 - t828 - t833;
2429   t2652 = t979 / 0.3e1;
2430   t2656 = t998 / 0.3e1;
2431   t2660 = -0.3e1 / 0.4e1 * t835 - t962 / 0.2e1 + t968 + 0.3e1 / 0.2e1 * t972 + t976 / 0.3e1 - t2652 - t983 - 0.3e1 * t988 + 0.3e1 * t992 + t995 / 0.3e1 - t2656 + t1002 / 0.2e1 + t1005 - t1008 - t1013 / 0.2e1 + t1016 + 0.3e1 * t1019;
2432   t2667 = 0.3e1 / 0.2e1 * t1022 - t841 - t845 - t850 + t855 - t859 + 0.2e1 * t861 + t864 + t869 + t873 - t2321 - t2322 + 0.3e1 / 0.4e1 * t883 - 0.3e1 / 0.4e1 * t886 - t898 - 0.3e1 / 0.2e1 * t1029 + 0.3e1 / 0.2e1 * t1033 + t1310;
2433   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2434     v4rho4[1] = t2641 + t2646 + t2660 + t2667;
2435 
2436   t2684 = 0.2e1 / 0.3e1 * t1056 + 0.2e1 / 0.3e1 * t908 - 0.2e1 / 0.3e1 * t1059 - t1062 / 0.3e1 + t1065 / 0.2e1 - t1068 / 0.2e1 + t1071 / 0.4e1 - t1074 / 0.3e1 - t1077 - t1083 + 0.2e1 * t1087 - t1091 - t1095 - t1099 / 0.9e1 - t1102 / 0.3e1 - t1105 / 0.9e1 + 0.2e1 / 0.3e1 * t911 + 0.5e1 / 0.3e1 * t917 - 0.2e1 * t921;
2437   t2703 = 0.2e1 / 0.3e1 * t923 - t926 / 0.3e1 - 0.4e1 / 0.3e1 * t930 - t933 / 0.2e1 - 0.4e1 / 0.3e1 * t936 - t939 - 0.5e1 / 0.3e1 * t943 - t946 + t725 / 0.2e1 + t728 / 0.4e1 - t758 / 0.3e1 - t779 / 0.9e1 + 0.2e1 / 0.3e1 * t783 - t786 / 0.2e1 - t808 / 0.9e1 + 0.2e1 / 0.3e1 * t812 - 0.2e1 / 0.3e1 * t818 - t821 / 0.3e1 - t835 / 0.2e1 + 0.2e1 / 0.3e1 * t1118;
2438   t2722 = 0.2e1 / 0.9e1 * t1122 + t1127 / 0.3e1 - t1131 / 0.3e1 + t1136 + 0.2e1 / 0.9e1 * t1140 + 0.2e1 / 0.3e1 * t1144 - 0.2e1 / 0.3e1 * t1147 - 0.2e1 * t1152 - t1155 / 0.3e1 + 0.2e1 * t1158 - 0.2e1 * t1162 + t1165 - 0.2e1 / 0.3e1 * t1169 - t962 / 0.3e1 + 0.2e1 / 0.3e1 * t968 + t972 + 0.2e1 / 0.9e1 * t976 - 0.4e1 / 0.9e1 * t979 - 0.2e1 / 0.3e1 * t983 - 0.2e1 * t988;
2439   t2742 = t772 * t298 * t1120;
2440   t2745 = t292 * t915 * t1167;
2441   t2757 = t292 * t298 * t1129;
2442   t2768 = t801 * t380 * t1138;
2443   t2774 = t374 * t928 * t420;
2444   t2777 = t170 * t941 * t1150;
2445   t2784 = t374 * t380 * t1153;
2446   t2789 = -0.5e1 / 0.27e2 * t2097 * t116 * t452 * t293 + 0.2e1 / 0.27e2 * t2742 + 0.7e1 / 0.9e1 * t2745 - t292 * t116 * t354 * t451 * t355 / 0.3e1 + t772 * t116 * t458 * t293 / 0.9e1 - t2757 / 0.9e1 - t115 * t116 * t354 * t457 * t355 - 0.5e1 / 0.27e2 * t2138 * t171 * t463 * t375 + 0.2e1 / 0.27e2 * t2768 + 0.2e1 / 0.9e1 * t801 * t433 * t993 - 0.2e1 / 0.9e1 * t2774 + 0.7e1 / 0.3e1 * t2777 + t801 * t171 * t475 * t375 / 0.9e1 - t2784 / 0.9e1 + t374 * t433 * t1000 / 0.3e1;
2447   t2791 = t170 * t928 * t440;
2448   t2798 = t170 * t380 * t1160;
2449   t2805 = t170 * t380 * t1163;
2450   t2808 = t170 * t810 * t471;
2451   t2819 = t374 * t941 * t1142;
2452   t2843 = 0.2e1 / 0.3e1 * t2791 - t374 * t171 * t508 * t375 / 0.3e1 - 0.2e1 / 0.3e1 * t2798 + t374 * t171 * t519 * t375 / 0.6e1 + t2805 / 0.3e1 - 0.2e1 / 0.9e1 * t2808 + t115 * t116 * t1133 * t366 / 0.2e1 + t801 * t171 * t463 * t384 / 0.9e1 - 0.7e1 / 0.9e1 * t2819 - t374 * t433 * t960 / 0.3e1 - t374 * t171 * t475 * t384 / 0.6e1 + t170 * t433 * t970 - t170 * t171 * t508 * t384 + t170 * t171 * t519 * t384 / 0.2e1 - 0.2e1 / 0.3e1 * t292 * t919 * t1167 + 0.2e1 / 0.9e1 * t772 * t302 * t1120;
2453   t2873 = t292 * t298 * t1125;
2454   t2884 = t115 * t298 * t1134;
2455   t2890 = t292 * t302 * t1125 / 0.3e1 - t292 * t302 * t1129 / 0.3e1 + t115 * t302 * t1134 - t292 * t116 * t1081 * t121 / 0.3e1 + t115 * t116 * t157 * t1080 * t164 + 0.2e1 / 0.3e1 * t374 * t1085 * t966 - t374 * t171 * t1089 * t172 / 0.3e1 + t772 * t116 * t452 * t312 / 0.9e1 + t2873 / 0.9e1 + t292 * t116 * t1124 * t366 / 0.6e1 - t292 * t116 * t458 * t312 / 0.6e1 + t2884 / 0.3e1 + 0.2e1 / 0.27e2 * t2327 + 0.2e1 / 0.27e2 * t2348 + t2355 / 0.9e1 + t2358 / 0.3e1;
2456   t2914 = -0.2e1 / 0.9e1 * t2361 + 0.4e1 / 0.27e2 * t2380 - 0.4e1 / 0.9e1 * t2387 - t2392 / 0.9e1 - 0.2e1 / 0.3e1 * t2399 + 0.2e1 / 0.3e1 * t2401 - t2414 / 0.9e1 + t2423 / 0.3e1 - 0.2e1 / 0.9e1 * t2430 + 0.2e1 / 0.3e1 * t2433 + 0.2e1 / 0.9e1 * t2441 + 0.4e1 / 0.27e2 * t2454 - 0.4e1 / 0.9e1 * t2457 - 0.2e1 / 0.9e1 * t2010 + t1051 * t1052 * t1053 * t384 / 0.3e1 - 0.2e1 / 0.9e1 * t2471 * t904 * t451 * t121 * t164;
2457   t2930 = t4 * t373 * t411;
2458   t2952 = t4 * t373 * t127;
2459   t2953 = t2952 * t1055;
2460   t2963 = t903 * t904 * t457 * t121 * t164 / 0.3e1 - 0.4e1 / 0.9e1 * t4 * t800 * t411 * t108 * t189 * t172 * t8 - 0.2e1 / 0.3e1 * t2930 * t1052 * t8 * t226 * t172 + 0.4e1 / 0.9e1 * t4 * t771 * t411 * t67 * t905 * t8 + 0.2e1 / 0.3e1 * t2518 * t904 * t184 * t164 * t8 - 0.2e1 / 0.9e1 * t2495 * t1052 * t1053 * t375 + 0.2e1 / 0.9e1 * t2953 + 0.2e1 / 0.9e1 * t2483 + 0.4e1 / 0.9e1 * t2527 - 0.2e1 / 0.3e1 * t2531 + 0.41e2 / 0.9e1 * t2541 - t2544 / 0.3e1 - 0.10e2 / 0.27e2 * t2547 - 0.41e2 / 0.9e1 * t2551 - 0.10e2 / 0.27e2 * t2554;
2461   t2980 = t292 * t723 * t452;
2462   t2982 = -t2561 / 0.9e1 + 0.5e1 / 0.18e2 * t2564 - t2567 / 0.3e1 + 0.4e1 / 0.9e1 * t2583 + t2080 / 0.9e1 + t2083 / 0.6e1 + t2091 / 0.9e1 + t2107 / 0.27e2 + t2148 / 0.27e2 - 0.10e2 / 0.27e2 * t2187 + 0.5e1 / 0.18e2 * t2190 - t2194 / 0.6e1 - t2197 / 0.12e2 - 0.10e2 / 0.27e2 * t2246 + 0.2e1 / 0.9e1 * t2255 - t2980 / 0.9e1;
2463   t2985 = t115 * t723 * t458;
2464   t2988 = t115 * t298 * t1081;
2465   t2992 = t170 * t914 * t211 * t428;
2466   t2995 = t170 * t380 * t1089;
2467   t3000 = t127 * t497;
2468   t3002 = t170 * t3000 * t173;
2469   t3005 = t292 * t781 * t452;
2470   t3008 = t115 * t781 * t458;
2471   t3011 = t374 * t810 * t463;
2472   t3016 = t170 * t2581 * t190;
2473   t3020 = t170 * t810 * t475;
2474   t3023 = t217 * t2581 * t227;
2475   t3026 = t217 * t810 * t508;
2476   t3029 = t217 * t810 * t519;
2477   t3031 = -t2985 / 0.3e1 - t2988 / 0.3e1 - 0.7e1 / 0.3e1 * t2992 - t2995 / 0.3e1 - t374 * t1093 * t376 / 0.6e1 - t3002 / 0.3e1 + t3005 / 0.27e2 + t3008 / 0.9e1 + t3011 / 0.27e2 + t374 * t2553 / 0.3e1 + 0.2e1 / 0.9e1 * t3016 - t170 * t2563 + t3020 / 0.9e1 - t3023 / 0.6e1 + t3026 / 0.6e1 - t3029 / 0.12e2;
2478   t3035 = 0.1e1 / t126 / t2177;
2479   t3037 = t8 * t8;
2480   t3064 = t7 * t389 * t498;
2481   t3068 = -t292 * t2546 / 0.3e1 - t292 * t3035 * t55 * t66 * t3037 / 0.3e1 - t292 * t730 * t452 / 0.6e1 - t115 * t730 * t458 / 0.2e1 - t115 * t302 * t1081 - t170 * t1093 * t385 / 0.2e1 - t374 * t3035 * t99 * t107 * t3037 / 0.3e1 - t2616 / 0.3e1 + t2620 / 0.3e1 - 0.5e1 / 0.18e2 * t2623 + t7 * t1031 * t212 + t3064 / 0.12e2 - 0.5e1 / 0.18e2 * t2258 + t2261 / 0.12e2 + t2280 + t2284;
2482   t3073 = 0.2e1 * t992 + 0.2e1 / 0.9e1 * t995 - 0.4e1 / 0.9e1 * t998 + t1002 / 0.3e1 + 0.4e1 / 0.3e1 * t1005 - 0.2e1 / 0.3e1 * t1008 - t1013 / 0.3e1 + 0.4e1 / 0.3e1 * t1016 + 0.2e1 * t1019 + t1022 + 0.2e1 / 0.3e1 * t861 - t2321 - t2322 + t883 / 0.2e1 - t886 / 0.4e1 - t1029 + t1033 + t1036 / 0.2e1 - t1174 / 0.4e1 + t9 * (t2789 + t2843 + t2890 + t2914 + t2963 + t2982 + t3031 + t3068);
2483   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2484     v4rho4[2] = t2684 + t2703 + t2722 + t3073;
2485 
2486   t3086 = t2742 / 0.9e1 - t2745 / 0.3e1 - t2757 / 0.6e1 + t2768 / 0.9e1 - t2774 / 0.3e1 - t2777 - t2784 / 0.6e1 + t2791 - t2798 + t2805 / 0.2e1 - 0.2e1 / 0.3e1 * t2808 + t2819 / 0.3e1 + t2873 / 0.6e1 + t2884 / 0.2e1;
2487   t3087 = t184 * t457;
2488   t3109 = t211 * t219;
2489   t3117 = t189 * t518;
2490   t3131 = t2381 - t2388 + t2455 - t2458 + t2471 * t67 * t3087 * t121 / 0.3e1 + t903 * t904 * t3087 * t164 / 0.2e1 - t2495 * t1052 * t462 * t226 * t172 / 0.3e1 - t2930 * t1052 * t1053 * t8 + t2495 * t108 * t189 * t474 * t172 / 0.3e1 + t1051 * t3109 * t1054 + t1051 * t1052 * t474 * t226 * t172 / 0.2e1 + t1051 * t1052 * t3117 * t172 / 0.2e1 - 0.3e1 * t1576 * t1577 * t226 * t518 * t172 - t1051 * t1577 * t189 * t507 * t172;
2491   t3145 = t2953 / 0.3e1 + t2528 - t2541 / 0.3e1 - 0.5e1 / 0.9e1 * t2547 + t2551 / 0.3e1 - 0.5e1 / 0.9e1 * t2554 + 0.5e1 / 0.12e2 * t2564 + t2584 - 0.5e1 / 0.27e2 * t2187 + 0.5e1 / 0.36e2 * t2190 - 0.5e1 / 0.27e2 * t2246 - t2980 / 0.6e1 - t2985 / 0.2e1 - t2988 / 0.2e1;
2492   t3157 = t115 * t298 * t1250;
2493   t3160 = t374 * t928 * t463;
2494   t3163 = t170 * t3000 * t190;
2495   t3165 = t2992 - t2995 / 0.2e1 - t3002 / 0.2e1 + t3005 / 0.9e1 + t3008 / 0.3e1 + t3011 / 0.9e1 + 0.2e1 / 0.3e1 * t3016 + t3020 / 0.3e1 - t3023 / 0.2e1 + t3026 / 0.2e1 - t3029 / 0.4e1 - t3157 / 0.6e1 - t3160 / 0.6e1 - t3163 / 0.2e1;
2496   t3169 = t170 * t928 * t475;
2497   t3172 = t170 * t380 * t1264;
2498   t3175 = t772 * t298 * t1199;
2499   t3178 = t801 * t380 * t1204;
2500   t3181 = t217 * t928 * t508;
2501   t3184 = t217 * t380 * t1214;
2502   t3187 = t217 * t3000 * t227;
2503   t3190 = t217 * t928 * t519;
2504   t3193 = t217 * t380 * t1240;
2505   t3200 = 0.6e1 * t761 + 0.12e2 * t2179;
2506   t3217 = -t3169 / 0.2e1 - t3172 / 0.6e1 + t3175 / 0.27e2 + t3178 / 0.27e2 - 0.3e1 / 0.4e1 * t3181 + 0.3e1 / 0.4e1 * t3184 + 0.3e1 / 0.8e1 * t3187 + 0.3e1 / 0.8e1 * t3190 + t3193 / 0.8e1 - t115 * t302 * t1250 / 0.2e1 - t115 * t116 * t66 * t3200 / 0.2e1 + 0.3e1 / 0.2e1 * t170 * t411 * t497 * t428 - 0.3e1 / 0.2e1 * t170 * t433 * t1089 + t170 * t171 * t107 * t3200 / 0.2e1;
2507   t3218 = t16 * t1318;
2508   t3226 = t7 * t177 * t1319;
2509   t3251 = -t170 * t3218 * t173 / 0.2e1 + t772 * t302 * t1199 / 0.9e1 - t3226 / 0.8e1 - 0.5e1 / 0.12e2 * t2623 + t3064 / 0.4e1 - 0.5e1 / 0.36e2 * t2258 + t2280 + t2284 - t292 * t116 * t1250 * t121 / 0.6e1 + t115 * t116 * t157 * t1249 * t164 / 0.2e1 + t801 * t433 * t1138 / 0.3e1 + t374 * t1085 * t1142 - t374 * t1093 * t420 / 0.2e1 - t374 * t433 * t1153 / 0.2e1;
2510   t3308 = -t374 * t171 * t1264 * t172 / 0.6e1 - 0.5e1 / 0.27e2 * t2097 * t116 * t1199 * t121 - t772 * t116 * t157 * t1198 * t164 / 0.9e1 - t292 * t302 * t1275 / 0.2e1 - t292 * t116 * t185 * t1080 / 0.2e1 - 0.5e1 / 0.27e2 * t2138 * t171 * t1204 * t172 - t801 * t427 * t463 * t8 / 0.3e1 - t374 * t171 * t190 * t1088 / 0.2e1 + t374 * t427 * t428 * t474 / 0.2e1 - 0.3e1 * t170 * t1085 * t1150 + 0.3e1 / 0.2e1 * t170 * t171 * t219 * t1088 * t226 - 0.3e1 / 0.2e1 * t170 * t427 * t1149 * t518 - 0.3e1 * t170 * t433 * t1160 + 0.3e1 * t170 * t171 * t1214 * t172;
2511   t3329 = t292 * t298 * t1275;
2512   t3336 = t374 * t380 * t1280;
2513   t3339 = t374 * t380 * t1284;
2514   t3342 = t170 * t928 * t471;
2515   t3344 = t170 * t380 * t1292;
2516   t3347 = t170 * t380 * t1296;
2517   t3350 = t217 * t380 * t1301;
2518   t3353 = t170 * t380 * t1306;
2519   t3354 = 0.3e1 * t170 * t427 * t506 * t8 * t507 + 0.3e1 / 0.2e1 * t170 * t1093 * t440 + 0.3e1 / 0.2e1 * t170 * t433 * t1163 + t170 * t171 * t1240 * t172 / 0.2e1 + t772 * t412 * t452 * t8 / 0.3e1 - t3329 / 0.6e1 - t292 * t412 * t413 * t457 / 0.2e1 + t3336 / 0.6e1 - t3339 / 0.6e1 + t3342 + t3344 / 0.2e1 + t3347 / 0.2e1 - 0.3e1 / 0.4e1 * t3350 - t3353;
2520   t3363 = t9 * (t3086 + t3131 + t3145 + t3165 + t3217 + t3251 + t3308 + t3354) + t1056 + t1202 + t1207 - t1210 + t1217 + t1220 + t1223 + t1243 - 0.2e1 * t1059 - t1062 + 0.3e1 / 0.2e1 * t1065 - 0.3e1 / 0.2e1 * t1068 + 0.3e1 / 0.4e1 * t1071 - t1253 - t1256 - t1259;
2521   t3373 = -t1262 - t1267 - t1074 / 0.2e1 - 0.3e1 / 0.2e1 * t1077 - 0.3e1 / 0.2e1 * t1083 + 0.3e1 * t1087 - 0.3e1 / 0.2e1 * t1091 - 0.3e1 / 0.2e1 * t1095 - t1099 / 0.3e1 - t1102 - t1105 / 0.3e1 + t911 - t917 + t923 - t930 - 0.3e1 / 0.4e1 * t933 - t936 + t943;
2522   t3381 = t784 + t813 - t836 - t1278 + t1283 - t1287 + t1290 + t1295 + t1299 - t1304 - t1309 + 0.2e1 * t1118 + t1122 / 0.3e1 + t1127 / 0.2e1 - t1131 / 0.2e1 + 0.3e1 / 0.2e1 * t1136 + t1140 / 0.3e1;
2523   t3389 = t1144 - t1147 - 0.3e1 * t1152 - t1155 / 0.2e1 + 0.3e1 * t1158 - 0.3e1 * t1162 + 0.3e1 / 0.2e1 * t1165 - t1169 - t2652 - t2656 + t1005 + t1016 - t2321 - t2322 + t884 + 0.3e1 / 0.4e1 * t1036 - 0.3e1 / 0.4e1 * t1174 - t1322;
2524   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2525     v4rho4[3] = t3363 + t3373 + t3381 + t3389;
2526 
2527   t3415 = -0.4e1 / 0.3e1 * t2808 + 0.2e1 * t1051 * t1052 * t1053 * t474 - 0.12e2 * t1576 * t1577 * t3117 * t226 - 0.20e2 / 0.27e2 * t2547 - 0.20e2 / 0.27e2 * t2554 + 0.5e1 / 0.9e1 * t2564 + 0.2e1 / 0.9e1 * t3005 + 0.2e1 / 0.3e1 * t3008 + 0.2e1 / 0.9e1 * t3011 + 0.4e1 / 0.3e1 * t3016 + 0.2e1 / 0.3e1 * t3020 - t3023 + t3026 - t3029 / 0.2e1 - 0.2e1 / 0.3e1 * t3157 - 0.2e1 / 0.3e1 * t3160 - 0.2e1 * t3163 - 0.2e1 * t3169 - 0.2e1 / 0.3e1 * t3172 + 0.4e1 / 0.27e2 * t3175;
2528   t3425 = t75 / t78 / t200;
2529   t3430 = t85 / t77 / t206;
2530   t3435 = t93 / t94 / t86;
2531   t3445 = t451 * t451;
2532   t3450 = t457 * t457;
2533   t3455 = t462 * t462;
2534   t3460 = t474 * t474;
2535   t3469 = 0.1e1 / t1211 / t106;
2536   t3470 = t507 * t507;
2537   t3475 = t518 * t518;
2538   t3484 = 0.12e2 * t761 + 0.12e2 * t2179;
2539   t3491 = 0.4e1 / 0.27e2 * t3178 - 0.3e1 * t3181 + 0.3e1 * t3184 + 0.3e1 / 0.2e1 * t3187 + 0.3e1 / 0.2e1 * t3190 + t3193 / 0.2e1 - t3226 / 0.2e1 - 0.3e1 / 0.8e1 * t7 * t74 * (0.2618e4 / 0.243e3 * t19 * t3425 + 0.5225e4 / 0.1458e4 * t34 * t3430 + 0.55e2 / 0.16e2 * t48 * t3435) * t107 - 0.5e1 / 0.9e1 * t2623 + t3064 / 0.2e1 - 0.5e1 / 0.27e2 * t2097 * t116 * t66 * t3445 - t292 * t116 * t66 * t3450 / 0.2e1 - 0.5e1 / 0.27e2 * t2138 * t171 * t107 * t3455 - t374 * t171 * t107 * t3460 / 0.2e1 + 0.9e1 * t217 * t433 * t1214 - 0.9e1 * t217 * t171 * t3469 * t3470 - 0.9e1 / 0.4e1 * t217 * t171 * t506 * t3475 + 0.4e1 / 0.9e1 * t801 * t433 * t1204 - t115 * t116 * t66 * t3484 / 0.2e1 - t374 * t1093 * t463;
2540   t3542 = -0.2e1 * t170 * t3218 * t190 - 0.3e1 * t170 * t1093 * t475 - 0.2e1 * t170 * t433 * t1264 + t170 * t171 * t107 * t3484 / 0.2e1 + 0.3e1 / 0.2e1 * t217 * t3218 * t227 - 0.9e1 / 0.2e1 * t217 * t1093 * t508 + 0.9e1 / 0.4e1 * t217 * t1093 * t519 + 0.3e1 / 0.2e1 * t217 * t433 * t1240 + 0.3e1 / 0.8e1 * t217 * t171 * t219 * (0.2618e4 / 0.243e3 * t56 * t3425 + 0.5225e4 / 0.1458e4 * t59 * t3430 + 0.55e2 / 0.16e2 * t62 * t3435) + t2280 + t2284 - 0.2e1 / 0.3e1 * t3329 + 0.2e1 / 0.3e1 * t3336 - 0.2e1 / 0.3e1 * t3339 + 0.4e1 * t3342 + 0.2e1 * t3344 + 0.2e1 * t3347 - 0.3e1 * t3350 - 0.4e1 * t3353 + 0.2e1 / 0.3e1 * t772 * t116 * t452 * t457;
2541   t3620 = -0.4e1 / 0.9e1 * t801 * t171 * t219 * t1203 * t226 + 0.2e1 / 0.3e1 * t801 * t171 * t463 * t474 + t374 * t171 * t1279 * t518 + 0.6e1 * t170 * t433 * t1296 + 0.3e1 * t170 * t171 * t1291 * t518 + 0.2e1 * t170 * t171 * t470 * t1239 - 0.9e1 * t217 * t433 * t1301 + 0.12e2 * t170 * t171 * t1214 * t189 + 0.27e2 / 0.2e1 * t217 * t171 * t1212 * t507 * t518 - 0.3e1 * t217 * t171 * t1300 * t1239 - 0.2e1 / 0.3e1 * t292 * t116 * t1250 * t184 + 0.2e1 * t374 * t433 * t1280 - 0.2e1 * t374 * t433 * t1284 + 0.6e1 * t170 * t1093 * t471 + 0.6e1 * t170 * t433 * t1292 - 0.2e1 / 0.3e1 * t374 * t171 * t1264 * t189 + 0.2e1 * t170 * t171 * t219 * t1263 * t226 - 0.2e1 * t374 * t171 * t506 * t462 * t507 - 0.12e2 * t170 * t433 * t1306 - 0.6e1 * t170 * t171 * t506 * t474 * t507;
2542   t3642 = t9 * (t3415 + t3491 + t3542 + t3620) + 0.4e1 / 0.9e1 * t1201 + 0.4e1 / 0.9e1 * t1206 - 0.9e1 * t1209 + 0.9e1 * t1216 + 0.9e1 / 0.2e1 * t1219 + 0.9e1 / 0.2e1 * t1222 + 0.3e1 / 0.2e1 * t1242 - 0.4e1 * t1059 - 0.2e1 * t1062 + 0.3e1 * t1065 - 0.3e1 * t1068 + 0.3e1 / 0.2e1 * t1071 - 0.2e1 * t1252 - 0.2e1 * t1255 - 0.6e1 * t1258 - 0.6e1 * t1261 - 0.2e1 * t1266 - 0.2e1 / 0.3e1 * t1099;
2543   t3658 = -0.2e1 * t1102 - 0.2e1 / 0.3e1 * t1105 + 0.4e1 / 0.3e1 * t911 + 0.4e1 / 0.3e1 * t923 - t933 - 0.2e1 * t1277 + 0.2e1 * t1282 - 0.2e1 * t1286 + 0.12e2 * t1289 + 0.6e1 * t1294 + 0.6e1 * t1298 - 0.9e1 * t1303 - 0.12e2 * t1308 + 0.4e1 * t1118 - t2321 - t2322 + t1036 - 0.3e1 / 0.2e1 * t1174 - 0.3e1 / 0.2e1 * t1321;
2544   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2545     v4rho4[4] = t3642 + t3658;
2546 
2547   t3660 = t1342 / 0.4e1;
2548   t3673 = -0.6e1 * t1339 - t3660 - 0.3e1 * t1346 - 0.3e1 / 0.2e1 * t1348 + 0.3e1 / 0.4e1 * t1352 + 0.9e1 / 0.4e1 * t1355 + 0.9e1 / 0.8e1 * t1358 + 0.3e1 / 0.4e1 * t1361 + 0.3e1 / 0.4e1 * t1364 + 0.9e1 / 0.8e1 * t1367 + 0.9e1 / 0.4e1 * t1370 + 0.9e1 / 0.8e1 * t1384 - t1387 / 0.2e1 - t1390 - 0.9e1 / 0.4e1 * t1394;
2549   t3679 = t253 * t312;
2550   t3685 = t7 * t128 * t1444;
2551   t3687 = t23 * t738;
2552   t3690 = t236 * t743;
2553   t3693 = t37 * t748;
2554   t3702 = t7 * t319 * t544;
2555   t3706 = 0.5e1 / 0.36e2 * t7 * t874 * t244;
2556   t3711 = t292 * t1350 * t294;
2557   t3713 = t318 * t243;
2558   t3715 = t115 * t3713 * t122;
2559   t3718 = t155 * t1350 * t356;
2560   t3723 = t412 * t254;
2561   t3725 = 0.5e1 / 0.36e2 * t155 * t3723;
2562   t3726 = t127 * t543;
2563   t3728 = t115 * t3726 * t122;
2564   t3730 = t155 * t3726 * t165;
2565   t3732 = t16 * t1443;
2566   t3743 = t115 * t1350 * t313;
2567   t3748 = -0.6e1 * t1334 * t1335 * t572 * t121 * t164 + t903 * t904 * t3679 * t121 / 0.2e1 - 0.3e1 / 0.8e1 * t3685 - 0.3e1 / 0.8e1 * t7 * t17 * (-0.154e3 / 0.81e2 * t19 * t3687 - 0.209e3 / 0.243e3 * t34 * t3690 - 0.15e2 / 0.16e2 * t48 * t3693) * t66 + t3702 / 0.4e1 - t3706 + t772 * t527 * t774 / 0.9e1 - t3711 / 0.6e1 + t3715 / 0.3e1 - 0.3e1 / 0.4e1 * t3718 + 0.9e1 / 0.4e1 * t155 * t527 * t794 + t3725 - t3728 + 0.3e1 / 0.4e1 * t3730 - 0.3e1 / 0.2e1 * t115 * t3732 * t122 + 0.9e1 / 0.8e1 * t155 * t3732 * t165 - t292 * t1344 * t294 / 0.2e1 - t3743 / 0.2e1 - 0.9e1 / 0.4e1 * t155 * t1344 * t356;
2568   t3750 = t155 * t2192 * t254;
2569   t3753 = t155 * t781 * t573;
2570   t3762 = t155 * t3713 * t165;
2571   t3765 = t155 * t1350 * t367;
2572   t3774 = t155 * t2157 * t254;
2573   t3777 = t155 * t723 * t573;
2574   t3780 = t155 * t298 * t1382;
2575   t3809 = t115 * t1350 * t306;
2576   t3813 = -t3750 / 0.4e1 - t3753 / 0.4e1 - 0.3e1 / 0.2e1 * t115 * t1344 * t313 - t115 * t527 * t830 / 0.2e1 - t3762 / 0.4e1 + 0.3e1 / 0.8e1 * t3765 + 0.9e1 / 0.8e1 * t155 * t1344 * t367 + 0.3e1 / 0.8e1 * t155 * t527 * t753 + 0.3e1 / 0.8e1 * t3774 + 0.3e1 / 0.4e1 * t3777 + 0.3e1 / 0.8e1 * t3780 + 0.3e1 / 0.8e1 * t155 * t2167 * t254 + 0.9e1 / 0.8e1 * t155 * t730 * t573 + 0.9e1 / 0.8e1 * t155 * t302 * t1382 + 0.3e1 / 0.8e1 * t155 * t116 * t157 * (-0.154e3 / 0.81e2 * t56 * t3687 - 0.209e3 / 0.243e3 * t59 * t3690 - 0.15e2 / 0.16e2 * t62 * t3693) + t292 * t527 * t852 / 0.2e1 - t292 * t527 * t856 / 0.2e1 + t3809 + 0.3e1 * t115 * t1344 * t306;
2577   t3846 = t115 * t781 * t551;
2578   t3849 = t155 * t781 * t562;
2579   t3852 = t155 * t723 * t562;
2580   t3855 = t155 * t298 * t1414;
2581   t3858 = t155 * t298 * t1418;
2582   t3878 = 0.3e1 / 0.2e1 * t115 * t527 * t866 + 0.3e1 / 0.2e1 * t115 * t527 * t870 - 0.9e1 / 0.4e1 * t155 * t527 * t838 + 0.3e1 / 0.2e1 * t115 * t730 * t551 + 0.3e1 * t115 * t302 * t1400 + 0.3e1 / 0.2e1 * t115 * t302 * t1403 + 0.3e1 / 0.2e1 * t115 * t116 * t1382 * t121 + 0.3e1 / 0.2e1 * t115 * t116 * t573 * t312 + t115 * t116 * t254 * t829 / 0.2e1 - t3846 / 0.3e1 + t3849 / 0.2e1 - 0.3e1 / 0.2e1 * t3852 - 0.3e1 / 0.2e1 * t3855 - 0.3e1 / 0.4e1 * t3858 - 0.9e1 / 0.4e1 * t155 * t730 * t562 - 0.9e1 / 0.2e1 * t155 * t302 * t1414 - 0.9e1 / 0.4e1 * t155 * t302 * t1418 - 0.9e1 / 0.4e1 * t155 * t116 * t354 * t1381 * t164 - 0.9e1 / 0.4e1 * t155 * t116 * t1413 * t366;
2583   t3888 = t115 * t298 * t1400;
2584   t3890 = t115 * t298 * t1403;
2585   t3893 = t155 * t298 * t1430;
2586   t3908 = t292 * t298 * t1422;
2587   t3922 = t115 * t723 * t551;
2588   t3928 = t4 * t114 * t127;
2589   t3929 = t3928 * t1338;
2590   t3931 = t253 * t366;
2591   t3936 = t55 * t792;
2592   t3949 = t149 * t354;
2593   t3953 = -0.3e1 / 0.4e1 * t155 * t116 * t561 * t752 + t292 * t116 * t573 * t293 / 0.2e1 + t3888 + t3890 / 0.2e1 + 0.9e1 / 0.4e1 * t3893 + 0.27e2 / 0.4e1 * t155 * t302 * t1430 + 0.27e2 / 0.4e1 * t155 * t116 * t792 * t572 * t355 - t772 * t116 * t254 * t773 / 0.9e1 + t3908 / 0.6e1 - 0.9e1 * t155 * t116 * t2123 * t253 * t793 - 0.3e1 * t115 * t527 * t847 + t292 * t302 * t1422 / 0.2e1 + t3922 - 0.3e1 * t1334 * t1335 * t3679 * t164 - 0.2e1 * t3929 - 0.3e1 * t1334 * t1335 * t3931 * t121 + 0.27e2 / 0.4e1 * t1923 * t3936 * t3931 * t164 - t903 * t1335 * t253 * t293 * t164 + 0.9e1 * t1334 * t3936 * t1336 * t355 - 0.6e1 * t1334 * t3949 * t1337;
2594   t3969 = t1449 / 0.4e1;
2595   t3970 = t9 * (t3748 + t3813 + t3878 + t3953) + 0.3e1 * t1397 + 0.3e1 * t1399 + 0.3e1 * t1402 + 0.3e1 / 0.2e1 * t1405 - 0.3e1 / 0.2e1 * t1408 - 0.9e1 / 0.2e1 * t1411 - 0.9e1 / 0.2e1 * t1416 - 0.9e1 / 0.4e1 * t1420 + t1424 / 0.2e1 + t1427 + 0.27e2 / 0.4e1 * t1432 - 0.3e1 / 0.4e1 * t1435 - 0.9e1 / 0.8e1 * t1446 + t3969;
2596   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2597     v4rho3sigma[0] = t3673 + t3970;
2598 
2599   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2600     v4rho3sigma[1] = 0.0e0;
2601 
2602   t3973 = t1467 / 0.4e1;
2603   t3976 = t1481 / 0.4e1;
2604   t3981 = t374 * t1459 * t376;
2605   t3986 = t318 * t269;
2606   t3988 = t170 * t3986 * t173;
2607   t3991 = t170 * t1459 * t385;
2608   t3998 = 0.5e1 / 0.36e2 * t7 * t878 * t270;
2609   t4004 = t374 * t380 * t1469;
2610   t4012 = t170 * t810 * t588;
2611   t4015 = t170 * t380 * t1476;
2612   t4021 = t427 * t280;
2613   t4023 = 0.5e1 / 0.36e2 * t217 * t4021;
2614   t4024 = t801 * t581 * t803 / 0.9e1 - t3981 / 0.6e1 - t374 * t581 * t842 / 0.2e1 + t3988 / 0.3e1 - t3991 / 0.2e1 - t170 * t581 * t765 / 0.2e1 - t3998 - t801 * t171 * t280 * t802 / 0.9e1 + t4004 / 0.6e1 + t1051 * t1052 * t279 * t172 * t384 / 0.2e1 - t4012 / 0.3e1 + t4015 / 0.2e1 + t170 * t171 * t280 * t764 / 0.2e1 + t4023;
2615   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2616     v4rho3sigma[2] = -t1457 / 0.2e1 - t1461 - 0.3e1 / 0.2e1 * t1464 + t3973 + t1471 / 0.2e1 + t1474 + 0.3e1 / 0.2e1 * t1478 - t3976 + t9 * t4024;
2617 
2618   t4043 = -t3685 / 0.8e1 + t3702 / 0.6e1 - t3706 - t7 * t1027 * t244 / 0.2e1 - t3711 / 0.18e2 + 0.2e1 / 0.9e1 * t3715 - t3718 / 0.4e1 + t3725 - t3728 / 0.3e1 + t3730 / 0.4e1 - t3743 / 0.6e1 - t3750 / 0.6e1 - t3753 / 0.6e1 - t3762 / 0.6e1 + t3765 / 0.8e1 + t3774 / 0.8e1 + t3777 / 0.4e1;
2619   t4046 = t115 * t3713 * t185;
2620   t4050 = t115 * t914 * t243 * t413;
2621   t4059 = t115 * t3726 * t185 / 0.3e1;
2622   t4073 = t3780 / 0.8e1 + t4046 / 0.9e1 + 0.7e1 / 0.6e1 * t4050 - t115 * t411 * t543 * t413 + t115 * t3723 / 0.2e1 - t4059 - t115 * t3732 * t185 / 0.2e1 + t3809 / 0.3e1 - 0.2e1 / 0.9e1 * t3846 + t3849 / 0.3e1 - t3852 / 0.2e1 - t3855 / 0.2e1 - t3858 / 0.4e1 + t3888 / 0.3e1 + t3890 / 0.6e1 + 0.3e1 / 0.4e1 * t3893 + t3908 / 0.18e2;
2623   t4077 = t243 * t157;
2624   t4084 = t572 * t184;
2625   t4094 = 0.2e1 / 0.3e1 * t3928 * t1516;
2626   t4110 = t2482 * t1506 / 0.9e1;
2627   t4111 = t253 * t8;
2628   t4132 = t3922 / 0.3e1 - 0.2e1 / 0.3e1 * t3929 + t903 * t4077 * t906 / 0.3e1 + t903 * t2523 * t1505 / 0.3e1 + t903 * t904 * t4084 * t121 / 0.3e1 + t903 * t904 * t1504 * t312 / 0.6e1 - t4094 - 0.2e1 * t1334 * t3949 * t1515 - 0.2e1 * t1334 * t1335 * t4084 * t164 - t1334 * t1335 * t1504 * t366 - t2471 * t904 * t1504 * t293 / 0.9e1 + t4110 + t2518 * t904 * t4111 * t121 / 0.3e1 + 0.3e1 * t1334 * t3936 * t1504 * t355 - 0.2e1 * t4 * t114 * t411 * t1335 * t4111 * t164 - t292 * t1344 * t395 / 0.3e1 - t292 * t527 * t1011 / 0.6e1;
2629   t4135 = t115 * t1350 * t406 / 0.3e1;
2630   t4143 = t115 * t723 * t600 / 0.3e1;
2631   t4146 = t115 * t298 * t1518 / 0.3e1;
2632   t4157 = t292 * t1350 * t395 / 0.9e1;
2633   t4166 = t115 * t781 * t600;
2634   t4169 = t115 * t915 * t1522;
2635   t4180 = t1335 * t253;
2636   t4184 = t4135 + t115 * t1344 * t406 + t115 * t527 * t1020 / 0.2e1 + t4143 + t4146 + t115 * t730 * t600 / 0.2e1 + t115 * t302 * t1518 + t772 * t527 * t974 / 0.9e1 - t4157 - t292 * t1497 * t981 / 0.3e1 - t115 * t527 * t986 + t115 * t1497 * t990 - t4166 / 0.9e1 - 0.7e1 / 0.6e1 * t4169 + t115 * t919 * t1522 + t115 * t412 * t573 * t8 + t115 * t116 * t1382 * t184 / 0.2e1 - 0.2e1 / 0.3e1 * t903 * t4180 * t906;
2637   t4188 = t1507 / 0.3e1;
2638   t4189 = 0.2e1 * t1517;
2639   t4194 = t9 * (t4043 + t4073 + t4132 + t4184) - t1340 + t4188 - t4189 - t1597 - t1492 - t1499 - t3660 - t1346 - t1349 + t1352 / 0.2e1 + t1356 + t1359 + t1361 / 0.2e1 + t1364 / 0.2e1 + t1368 + t1371 + t1385 - t1388 - 0.2e1 / 0.3e1 * t1390;
2640   t4195 = t1486 / 0.3e1;
2641   t4199 = t1406 - t1408 - t1412 - t1417 - t1421 + t1425 + 0.2e1 / 0.3e1 * t1427 + t1433 - t1435 / 0.2e1 - t1447 + t3969;
2642   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2643     v4rho3sigma[3] = t4194 - t1395 + t1513 + t1520 + t1524 - t4195 + t1495 + t1605 + t1397 + t1399 + t1402 + t4199;
2644 
2645   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2646     v4rho3sigma[4] = 0.0e0;
2647 
2648   t4202 = t7 * t389 * t619;
2649   t4211 = t170 * t3986 * t190;
2650   t4216 = t127 * t618;
2651   t4219 = t170 * t4216 * t173 / 0.3e1;
2652   t4222 = t217 * t3986 * t227;
2653   t4227 = t217 * t2581 * t280;
2654   t4230 = t217 * t810 * t645;
2655   t4234 = t170 * t914 * t269 * t428;
2656   t4246 = t279 * t8;
2657   t4251 = -t4222 / 0.12e2 - t170 * t4021 / 0.2e1 - t4227 / 0.12e2 - t4230 / 0.12e2 - 0.7e1 / 0.6e1 * t4234 - t170 * t1543 * t385 / 0.2e1 + t4004 / 0.18e2 - 0.2e1 / 0.9e1 * t4012 + t4015 / 0.6e1 + t1051 * t1052 * t1556 * t384 / 0.6e1 - t2930 * t1052 * t4246 * t172 / 0.3e1;
2658   t4261 = t2952 * t1558 / 0.9e1;
2659   t4267 = t4 * t169 * t127;
2660   t4269 = 0.2e1 / 0.3e1 * t4267 * t1580;
2661   t4275 = t374 * t1459 * t420 / 0.9e1;
2662   t4281 = t170 * t1459 * t440 / 0.3e1;
2663   t4283 = t170 * t810 * t626;
2664   t4291 = t170 * t928 * t588 / 0.3e1;
2665   t4293 = t217 * t810 * t634;
2666   t4301 = t170 * t380 * t1585 / 0.3e1;
2667   t4312 = t170 * t941 * t1564;
2668   t4321 = t374 * t433 * t1469 / 0.6e1 + t4291 + t4293 / 0.6e1 + t374 * t171 * t645 * t375 / 0.6e1 + t4301 - t374 * t581 * t960 / 0.6e1 + t374 * t1538 * t966 / 0.3e1 + t170 * t581 * t970 / 0.2e1 + 0.7e1 / 0.6e1 * t4312 + t170 * t433 * t1476 / 0.2e1 + t170 * t171 * t645 * t384 / 0.2e1;
2669   t4325 = t1559 / 0.3e1;
2670   t4326 = 0.2e1 * t1581;
2671   t4328 = t9 * (t4202 / 0.12e2 - t3998 + t7 * t1031 * t270 / 0.2e1 - t3981 / 0.18e2 + 0.2e1 / 0.9e1 * t3988 - t3991 / 0.6e1 + t4023 + t4211 / 0.9e1 - t374 * t1543 * t376 / 0.6e1 - t4219 + t4251 - t1576 * t1577 * t1578 * t384 - t2495 * t1052 * t1556 * t375 / 0.9e1 + t4261 - t1051 * t1577 * t1578 * t375 / 0.3e1 - t4269 + t801 * t581 * t993 / 0.9e1 - t4275 + t374 * t581 * t1000 / 0.6e1 + t4281 - t4283 / 0.9e1 + t4321) + t4325 - t4326 - t1658 + t1540 - t1545 + t1659 + t1660 + t1661 - t1458 - 0.2e1 / 0.3e1 * t1461 - t1465;
2672   t4329 = t1533 / 0.3e1;
2673   t4331 = -t3976 + t1570 - t1695 + t1587 - t4329 + t1551 + t1696 - t1566 + t1472 + 0.2e1 / 0.3e1 * t1474 + t1479 + t3973 - t1697;
2674   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2675     v4rho3sigma[5] = t4328 + t4331;
2676 
2677   t4341 = t292 * t1350 * t452;
2678   t4344 = t115 * t1350 * t458;
2679   t4357 = t253 * t451;
2680   t4366 = -t4341 / 0.18e2 - t4344 / 0.6e1 - t292 * t1344 * t452 / 0.6e1 - t115 * t1344 * t458 / 0.2e1 - t115 * t527 * t1081 / 0.2e1 - t3846 / 0.9e1 + t3849 / 0.6e1 - t4094 + t4110 - t2471 * t904 * t4357 * t121 / 0.9e1 - t903 * t1335 * t4357 * t164 / 0.3e1;
2681   t4368 = t253 * t457;
2682   t4387 = t292 * t298 * t1601;
2683   t4390 = t115 * t298 * t1606;
2684   t4422 = t4387 / 0.18e2 + t4390 / 0.6e1 + t772 * t527 * t1120 / 0.9e1 + t292 * t527 * t1125 / 0.6e1 - t292 * t527 * t1129 / 0.6e1 + t115 * t527 * t1134 / 0.2e1 + t292 * t302 * t1601 / 0.6e1 + t292 * t116 * t573 * t451 / 0.6e1 + t115 * t302 * t1606 / 0.2e1 + t115 * t116 * t573 * t457 / 0.2e1 + t115 * t116 * t254 * t1080 / 0.2e1;
2685   t4427 = t9 * (t3702 / 0.12e2 - t3706 + t3715 / 0.9e1 + t3725 - t3750 / 0.12e2 - t3753 / 0.12e2 - t3762 / 0.12e2 + 0.2e1 / 0.9e1 * t4046 - t4050 / 0.3e1 - t4059 + t4366 + t903 * t904 * t4368 * t121 / 0.6e1 - t1334 * t1335 * t4368 * t164 + t2518 * t904 * t1504 * t8 / 0.3e1 + t4135 + t4143 + t4146 - t4157 - 0.2e1 / 0.9e1 * t4166 + t4169 / 0.3e1 - t292 * t1497 * t1167 / 0.3e1 + t4422) + t4188 - t4189 - t1596 - t1600 - 0.2e1 / 0.3e1 * t1489 - t1492 - t1499 - t3660 + t1353 + t1362 + t1365;
2686   t4429 = -t1391 + t1604 + t1609 + t1513 + t1520 + t1524 - t4195 + t1495 + 0.2e1 / 0.3e1 * t1510 - t1409 + t1428 - t1436 + t3969;
2687   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2688     v4rho3sigma[6] = t4427 + t4429;
2689 
2690   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2691     v4rho3sigma[7] = 0.0e0;
2692 
2693   t4432 = t7 * t177 * t1705;
2694   t4441 = t170 * t4216 * t190;
2695   t4444 = t170 * t1459 * t475;
2696   t4447 = t217 * t4216 * t227;
2697   t4450 = t217 * t1459 * t519;
2698   t4453 = t217 * t3000 * t280;
2699   t4456 = t217 * t928 * t645;
2700   t4458 = t4202 / 0.6e1 - t4432 / 0.8e1 - t3998 + t3988 / 0.9e1 + t4023 + 0.2e1 / 0.9e1 * t4211 - t4219 - t4222 / 0.6e1 - t4227 / 0.6e1 - t4230 / 0.6e1 + t4234 / 0.3e1 - t4441 / 0.3e1 - t4444 / 0.6e1 + t4447 / 0.4e1 + t4450 / 0.8e1 + t4453 / 0.8e1 + t4456 / 0.4e1;
2701   t4460 = t217 * t380 * t1651;
2702   t4463 = t374 * t1459 * t463;
2703   t4466 = t217 * t1459 * t508;
2704   t4468 = t16 * t1704;
2705   t4479 = t279 * t462;
2706   t4494 = t99 * t1212;
2707   t4500 = t4267 * t1618;
2708   t4502 = t269 * t219;
2709   t4509 = t644 * t189;
2710   t4514 = t4460 / 0.8e1 - t4463 / 0.18e2 - t4466 / 0.4e1 - t170 * t4468 * t173 / 0.2e1 + t170 * t411 * t618 * t428 - t170 * t581 * t1089 / 0.2e1 - t4012 / 0.9e1 + t4261 - t4269 - t2495 * t1052 * t4479 * t172 / 0.9e1 - t2930 * t1052 * t1556 * t8 / 0.3e1 + 0.2e1 * t4 * t169 * t411 * t1577 * t4246 * t226 + 0.3e1 * t1576 * t4494 * t279 * t507 * t172 - 0.2e1 / 0.3e1 * t4500 + t1051 * t4502 * t1054 / 0.3e1 + t1051 * t3109 * t1557 / 0.3e1 + t1051 * t1052 * t4509 * t172 / 0.3e1;
2711   t4516 = t279 * t474;
2712   t4521 = t211 * t506;
2713   t4538 = t374 * t380 * t1663;
2714   t4541 = t217 * t380 * t1668;
2715   t4554 = t1051 * t1052 * t4516 * t172 / 0.6e1 - 0.2e1 * t1576 * t4521 * t1579 - 0.2e1 * t1576 * t1577 * t644 * t226 * t172 - t1576 * t1577 * t279 * t518 * t172 - t4275 + t4281 - 0.2e1 / 0.9e1 * t4283 + t4291 + t4293 / 0.3e1 + t4301 - t4312 / 0.3e1 + t4538 / 0.18e2 + 0.3e1 / 0.4e1 * t4541 - t374 * t1543 * t420 / 0.3e1 - t374 * t581 * t1153 / 0.6e1 + t170 * t1543 * t440 + t170 * t581 * t1163 / 0.2e1;
2716   t4584 = t170 * t1459 * t471;
2717   t4587 = t170 * t928 * t626;
2718   t4590 = t170 * t380 * t1676;
2719   t4593 = t170 * t380 * t1679;
2720   t4596 = t217 * t928 * t634;
2721   t4599 = t217 * t380 * t1687;
2722   t4602 = t217 * t380 * t1691;
2723   t4604 = t1577 * t279;
2724   t4608 = t170 * t1093 * t588 / 0.2e1 + t170 * t433 * t1585 + t170 * t171 * t1651 * t172 / 0.2e1 + t801 * t581 * t1138 / 0.9e1 + t374 * t1538 * t1142 / 0.3e1 - t170 * t1538 * t1150 - t170 * t581 * t1160 - t170 * t1085 * t1564 - t170 * t427 * t645 * t8 + t170 * t171 * t280 * t1088 / 0.2e1 + t4584 / 0.3e1 + t4587 / 0.3e1 + t4590 / 0.3e1 + t4593 / 0.6e1 - t4596 / 0.2e1 - t4599 / 0.2e1 - t4602 / 0.4e1 - 0.2e1 / 0.3e1 * t1051 * t4604 * t1054;
2725   t4616 = t9 * (t4458 + t4514 + t4554 + t4608) + t4325 - t4326 - t1620 - t1623 - t1625 - t1628 + t1631 + t1634 + t1637 + t1640 + t1654 - t1657 - 0.2e1 / 0.3e1 * t1536 + t1540 - t1545 + t1554 / 0.2e1 + t1573 / 0.2e1 + t1590 / 0.2e1 - t1462;
2726   t4620 = t1570 - t1583 + t1587 - t4329 + t1551 + 0.2e1 / 0.3e1 * t1562 - t1566 + t1475 + t3973 - t1548 / 0.2e1 - t1708;
2727   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2728     v4rho3sigma[8] = t4616 - t3976 + t1666 + t1671 + t1673 + t1675 + t1678 + t1682 - t1685 - t1690 - t1694 + t4620;
2729 
2730   t4653 = t772 * t527 * t1199 / 0.9e1 - t4341 / 0.6e1 - t292 * t527 * t1275 / 0.2e1 + t4046 / 0.3e1 - t4344 / 0.2e1 - t115 * t527 * t1250 / 0.2e1 - t3706 - t772 * t116 * t254 * t1198 / 0.9e1 + t4387 / 0.6e1 + t903 * t904 * t1504 * t457 / 0.2e1 - t4166 / 0.3e1 + t4390 / 0.2e1 + t115 * t116 * t254 * t1249 / 0.2e1 + t3725;
2731   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2732     v4rho3sigma[9] = -t1595 / 0.2e1 - t1489 - 0.3e1 / 0.2e1 * t1599 + t3969 + t1603 / 0.2e1 + t1510 + 0.3e1 / 0.2e1 * t1608 - t3660 + t9 * t4653;
2733 
2734   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2735     v4rho3sigma[10] = 0.0e0;
2736 
2737   t4668 = -0.6e1 * t1619 - 0.9e1 / 0.4e1 * t1622 - 0.3e1 * t1625 - 0.3e1 / 0.2e1 * t1627 + 0.9e1 / 0.4e1 * t1630 + 0.9e1 / 0.8e1 * t1633 + 0.9e1 / 0.8e1 * t1636 + 0.9e1 / 0.4e1 * t1639 + 0.9e1 / 0.8e1 * t1653 - t1656 / 0.2e1 - t1536 + 0.3e1 / 0.4e1 * t1554 + 0.3e1 / 0.4e1 * t1573 + 0.3e1 / 0.4e1 * t1590 - t3976;
2738   t4683 = t23 * t1225;
2739   t4686 = t262 * t1230;
2740   t4689 = t84 * t1235;
2741   t4712 = t4202 / 0.4e1 - 0.3e1 / 0.8e1 * t4432 - 0.3e1 / 0.8e1 * t7 * t74 * (-0.154e3 / 0.81e2 * t19 * t4683 - 0.209e3 / 0.243e3 * t34 * t4686 - 0.15e2 / 0.16e2 * t48 * t4689) * t107 - t3998 + t4023 + t4211 / 0.3e1 - t4222 / 0.4e1 - t4227 / 0.4e1 - t4230 / 0.4e1 - t4441 - t4444 / 0.2e1 + 0.3e1 / 0.4e1 * t4447 + 0.3e1 / 0.8e1 * t4450 + 0.3e1 / 0.8e1 * t4453 + 0.3e1 / 0.4e1 * t4456 + 0.3e1 / 0.8e1 * t4460 - t4463 / 0.6e1 - 0.3e1 / 0.4e1 * t4466 - 0.3e1 / 0.2e1 * t170 * t4468 * t190;
2742   t4782 = 0.9e1 / 0.8e1 * t217 * t4468 * t227 - 0.3e1 / 0.2e1 * t170 * t1543 * t475 - t170 * t581 * t1264 / 0.2e1 + 0.9e1 / 0.8e1 * t217 * t1543 * t519 + 0.3e1 / 0.8e1 * t217 * t581 * t1240 + 0.3e1 / 0.8e1 * t217 * t3218 * t280 + 0.9e1 / 0.8e1 * t217 * t1093 * t645 + 0.9e1 / 0.8e1 * t217 * t433 * t1651 + 0.3e1 / 0.8e1 * t217 * t171 * t219 * (-0.154e3 / 0.81e2 * t56 * t4683 - 0.209e3 / 0.243e3 * t59 * t4686 - 0.15e2 / 0.16e2 * t62 * t4689) - 0.2e1 * t4500 + 0.9e1 * t1576 * t4494 * t1556 * t507 - t1051 * t1577 * t4479 * t226 + t1051 * t1052 * t1556 * t474 / 0.2e1 - 0.6e1 * t1576 * t4521 * t1617 - 0.6e1 * t1576 * t1577 * t4509 * t226 - 0.3e1 * t1576 * t1577 * t4516 * t226 - 0.3e1 * t1576 * t1577 * t1556 * t518 + 0.27e2 / 0.4e1 * t1953 * t4494 * t1578 * t518 - t374 * t1543 * t463 / 0.2e1;
2743   t4819 = -0.9e1 / 0.4e1 * t217 * t1543 * t508 + t801 * t581 * t1204 / 0.9e1 + 0.9e1 / 0.4e1 * t217 * t581 * t1214 - t4283 / 0.3e1 + t4293 / 0.2e1 + t4538 / 0.6e1 + 0.9e1 / 0.4e1 * t4541 + t4584 + t4587 + t4590 + t4593 / 0.2e1 - 0.3e1 / 0.2e1 * t4596 - 0.3e1 / 0.2e1 * t4599 - 0.3e1 / 0.4e1 * t4602 + t374 * t433 * t1663 / 0.2e1 + t374 * t171 * t645 * t462 / 0.2e1 + 0.27e2 / 0.4e1 * t217 * t433 * t1668 + 0.27e2 / 0.4e1 * t217 * t171 * t1212 * t644 * t507 + 0.3e1 * t170 * t1543 * t471;
2744   t4890 = -t374 * t581 * t1284 / 0.2e1 + 0.3e1 / 0.2e1 * t170 * t581 * t1292 + 0.3e1 / 0.2e1 * t170 * t581 * t1296 - 0.9e1 / 0.4e1 * t217 * t581 * t1301 + 0.3e1 / 0.2e1 * t170 * t1093 * t626 - 0.9e1 / 0.4e1 * t217 * t1093 * t634 + 0.3e1 * t170 * t433 * t1676 - 0.9e1 / 0.2e1 * t217 * t433 * t1687 + 0.3e1 / 0.2e1 * t170 * t171 * t1651 * t189 - 0.9e1 / 0.4e1 * t217 * t171 * t506 * t1650 * t226 + t374 * t581 * t1280 / 0.2e1 + 0.3e1 / 0.2e1 * t170 * t433 * t1679 + 0.3e1 / 0.2e1 * t170 * t171 * t645 * t474 + t170 * t171 * t280 * t1263 / 0.2e1 - 0.9e1 / 0.4e1 * t217 * t433 * t1691 - 0.9e1 / 0.4e1 * t217 * t171 * t1686 * t518 - 0.3e1 / 0.4e1 * t217 * t171 * t633 * t1239 - t801 * t171 * t280 * t1203 / 0.9e1 - 0.9e1 * t217 * t171 * t3469 * t279 * t1213 - 0.3e1 * t170 * t581 * t1306;
2745   t4894 = t1665 / 0.2e1 + 0.27e2 / 0.4e1 * t1670 + 0.3e1 * t1673 + 0.3e1 * t1675 + 0.3e1 * t1678 + 0.3e1 / 0.2e1 * t1681 - 0.9e1 / 0.2e1 * t1684 - 0.9e1 / 0.2e1 * t1689 - 0.9e1 / 0.4e1 * t1693 - 0.3e1 / 0.2e1 * t1583 + t1562 + t3973 - 0.3e1 / 0.4e1 * t1548 - 0.9e1 / 0.8e1 * t1707 + t9 * (t4712 + t4782 + t4819 + t4890);
2746   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2747     v4rho3sigma[11] = t4668 + t4894;
2748 
2749   t4896 = t1717 / 0.4e1;
2750   t4904 = t1736 / 0.2e1;
2751   t4907 = t1751 / 0.2e1;
2752   t4910 = t1770 / 0.4e1;
2753   t4914 = t7 * t319 * t658 / 0.12e2;
2754   t4916 = t7 * t128 * t1726;
2755   t4918 = t36 * t336;
2756   t4921 = sigma[0] * t341;
2757   t4929 = t16 * t1725;
2758   t4935 = t127 * t657;
2759   t4937 = t155 * t4935 * t165;
2760   t4946 = t155 * t3726 * t254;
2761   t4949 = t155 * t1350 * t573;
2762   t4961 = t155 * t723 * t666;
2763   t4967 = t155 * t723 * t675;
2764   t4969 = t4914 - t4916 / 0.4e1 - 0.3e1 / 0.8e1 * t7 * t17 * (0.19e2 / 0.162e3 * t34 * t4918 + 0.3e1 / 0.16e2 * t48 * t4921) * t66 - t115 * t4929 * t122 - t115 * t1712 * t313 / 0.2e1 + t4937 / 0.4e1 + 0.3e1 / 0.4e1 * t155 * t4929 * t165 + 0.3e1 / 0.8e1 * t155 * t1712 * t367 + t4946 / 0.2e1 + t4949 / 0.2e1 + 0.3e1 / 0.4e1 * t155 * t3732 * t254 + 0.3e1 / 0.2e1 * t155 * t1344 * t573 + 0.3e1 / 0.4e1 * t155 * t527 * t1382 - t4961 / 0.2e1 - 0.3e1 / 0.4e1 * t155 * t730 * t666 + t4967 / 0.4e1;
2765   t4971 = t155 * t298 * t1785;
2766   t4992 = t115 * t4935 * t122;
2767   t4999 = t155 * t3713 * t254 / 0.6e1;
2768   t5002 = t155 * t781 * t666 / 0.6e1;
2769   t5003 = t572 * t572;
2770   t5010 = t155 * t781 * t675 / 0.12e2;
2771   t5022 = t155 * t1350 * t562;
2772   t5023 = t4971 / 0.4e1 + 0.3e1 / 0.8e1 * t155 * t730 * t675 + 0.3e1 / 0.4e1 * t155 * t302 * t1785 + 0.3e1 / 0.8e1 * t155 * t116 * t157 * (0.19e2 / 0.162e3 * t59 * t4918 + 0.3e1 / 0.16e2 * t62 * t4921) - t292 * t1712 * t294 / 0.6e1 - t4992 / 0.3e1 - 0.3e1 / 0.4e1 * t155 * t1712 * t356 - t4999 + t5002 - 0.3e1 / 0.2e1 * t155 * t116 * t354 * t5003 - t5010 + t115 * t1712 * t306 + 0.2e1 * t115 * t1344 * t551 + 0.2e1 * t115 * t527 * t1400 + t115 * t527 * t1403 - t5022;
2773   t5041 = t155 * t298 * t1757;
2774   t5044 = t155 * t298 * t1761;
2775   t5069 = t155 * t298 * t1776;
2776   t5074 = -0.3e1 * t155 * t1344 * t562 - 0.3e1 * t155 * t527 * t1414 - 0.3e1 / 0.2e1 * t155 * t527 * t1418 - 0.2e1 * t115 * t302 * t1747 - t115 * t116 * t666 * t312 + 0.3e1 / 0.2e1 * t5041 - t5044 + 0.9e1 / 0.2e1 * t155 * t302 * t1757 - 0.3e1 * t155 * t302 * t1761 + 0.9e1 / 0.4e1 * t155 * t116 * t1756 * t366 - 0.3e1 / 0.2e1 * t155 * t116 * t561 * t1381 + t115 * t302 * t1765 + t115 * t116 * t1785 * t121 + t115 * t116 * t675 * t312 / 0.2e1 - t5069 / 0.2e1 - 0.3e1 / 0.2e1 * t155 * t302 * t1776;
2777   t5088 = t115 * t1350 * t551;
2778   t5098 = t115 * t298 * t1747;
2779   t5110 = t115 * t298 * t1765;
2780   t5117 = t243 * t354;
2781   t5140 = -0.3e1 / 0.2e1 * t155 * t116 * t354 * t1784 * t164 - 0.3e1 / 0.4e1 * t155 * t116 * t1775 * t366 + t292 * t527 * t1422 / 0.3e1 + 0.2e1 / 0.3e1 * t5088 + 0.9e1 / 0.2e1 * t155 * t527 * t1430 - t292 * t116 * t666 * t293 / 0.3e1 - 0.2e1 / 0.3e1 * t5098 - 0.9e1 * t155 * t116 * t2123 * t665 * t355 + t292 * t116 * t675 * t293 / 0.6e1 + t5110 / 0.3e1 + 0.9e1 / 0.4e1 * t155 * t116 * t792 * t674 * t355 - 0.4e1 * t1334 * t5117 * t1337 + 0.6e1 * t1334 * t3936 * t665 * t121 * t164 - 0.4e1 * t1334 * t1335 * t1336 * t572 + 0.9e1 * t1923 * t3936 * t253 * t164 * t572 - 0.2e1 * t1334 * t1335 * t674 * t121 * t164;
2782   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2783     v4rho2sigma2[0] = -0.3e1 / 0.4e1 * t1728 - t1714 - t4896 + 0.3e1 / 0.4e1 * t1731 + 0.3e1 / 0.2e1 * t1739 + 0.3e1 / 0.2e1 * t1745 - 0.3e1 / 0.2e1 * t1754 + 0.3e1 / 0.4e1 * t1773 + 0.3e1 / 0.4e1 * t1787 + 0.2e1 * t1734 + t4904 - 0.3e1 * t1742 - 0.2e1 * t1749 - t4907 + 0.9e1 / 0.2e1 * t1759 - 0.3e1 * t1763 + t1767 + t4910 - 0.3e1 / 0.2e1 * t1778 + t9 * (t4969 + t5023 + t5074 + t5140);
2784 
2785   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2786     v4rho2sigma2[1] = 0.0e0;
2787 
2788   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2789     v4rho2sigma2[2] = 0.0e0;
2790 
2791   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2792     v4rho2sigma2[3] = 0.0e0;
2793 
2794   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2795     v4rho2sigma2[4] = 0.0e0;
2796 
2797   t5144 = t1796 / 0.4e1;
2798   t5146 = t1801 / 0.2e1;
2799   t5148 = t1807 / 0.2e1;
2800   t5149 = t1814 / 0.4e1;
2801   t5153 = t127 * t686;
2802   t5155 = t170 * t5153 * t173;
2803   t5162 = t7 * t389 * t687 / 0.12e2;
2804   t5167 = t170 * t1459 * t588;
2805   t5173 = t217 * t3986 * t280 / 0.6e1;
2806   t5179 = t170 * t380 * t1803;
2807   t5186 = t217 * t810 * t695 / 0.6e1;
2808   t5192 = t170 * t380 * t1809;
2809   t5200 = t217 * t810 * t704 / 0.12e2;
2810   t5201 = -t374 * t1791 * t376 / 0.6e1 - t5155 / 0.3e1 - t170 * t1791 * t385 / 0.2e1 + t5162 + t374 * t581 * t1469 / 0.3e1 + 0.2e1 / 0.3e1 * t5167 + t170 * t581 * t1476 - t5173 - t374 * t171 * t695 * t375 / 0.3e1 - 0.2e1 / 0.3e1 * t5179 - t170 * t171 * t695 * t384 + t5186 + t374 * t171 * t704 * t375 / 0.6e1 + t5192 / 0.3e1 + t170 * t171 * t704 * t384 / 0.2e1 - t5200;
2811   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2812     v4rho2sigma2[5] = t9 * t5201 - t1793 + 0.2e1 * t1799 - 0.2e1 * t1805 + t1811 - t5144 + t5146 - t5148 + t5149;
2813 
2814   t5203 = -t1729 - t1715 - t4896 + t1732 + t1740 + t1746 - t1755 + t1774 + t1788 - t1820 + t1734 + t4904;
2815   t5217 = t115 * t4935 * t185;
2816   t5229 = t5002 - t5010 - t115 * t4929 * t185 / 0.2e1 - t5217 / 0.6e1 - t115 * t411 * t657 * t413 / 0.2e1 - t5022 / 0.2e1 + 0.3e1 / 0.4e1 * t5041 - t5044 / 0.2e1 - t5069 / 0.4e1 + t5088 / 0.3e1 - t5098 / 0.3e1;
2817   t5233 = t115 * t1350 * t600;
2818   t5238 = t115 * t298 * t1823;
2819   t5244 = t115 * t298 * t1826;
2820   t5276 = t665 * t184;
2821   t5289 = t674 * t184;
2822   t5297 = t115 * t527 * t1518 - t115 * t302 * t1823 + t115 * t302 * t1826 / 0.2e1 + t115 * t116 * t1785 * t184 / 0.2e1 + t903 * t4077 * t1505 / 0.3e1 - 0.2e1 * t1334 * t5117 * t1515 - t903 * t1335 * t5276 * t121 / 0.3e1 + 0.3e1 * t1334 * t3936 * t5276 * t164 - 0.2e1 * t1334 * t1335 * t1504 * t572 + t903 * t904 * t5289 * t121 / 0.6e1 - t1334 * t1335 * t5289 * t164;
2823   t5301 = -t1743 - t1749 - t4907 + t1760 - t1764 + t1768 + t4910 - t1779 + t1822 - t1825 + t1829 + t9 * (t4914 - t4916 / 0.8e1 + t4937 / 0.8e1 + t4946 / 0.4e1 + t4949 / 0.4e1 - t4961 / 0.4e1 + t4967 / 0.8e1 + t4971 / 0.8e1 - t4992 / 0.6e1 - t4999 + t5229 + t5110 / 0.6e1 + t5233 / 0.3e1 + t115 * t1497 * t1522 - t5238 / 0.3e1 - t115 * t412 * t666 * t8 + t5244 / 0.6e1 + t115 * t412 * t675 * t8 / 0.2e1 - t292 * t1712 * t395 / 0.6e1 + t115 * t1712 * t406 / 0.2e1 + t115 * t1344 * t600 + t5297);
2824   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2825     v4rho2sigma2[6] = t5203 + t5301;
2826 
2827   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2828     v4rho2sigma2[7] = 0.0e0;
2829 
2830   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2831     v4rho2sigma2[8] = 0.0e0;
2832 
2833   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2834     v4rho2sigma2[9] = 0.0e0;
2835 
2836   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2837     v4rho2sigma2[10] = 0.0e0;
2838 
2839   t5302 = -t1845 - t1794 - t5144 - t1834 + t1848 + t1853 + t1859 - t1865 + t1881 + t1895 + t1799 + t5146;
2840   t5304 = t7 * t177 * t1842;
2841   t5308 = t217 * t380 * t1892;
2842   t5311 = t217 * t928 * t695;
2843   t5314 = t217 * t928 * t704;
2844   t5317 = t217 * t4216 * t280;
2845   t5321 = t217 * t1459 * t645;
2846   t5327 = t16 * t1841;
2847   t5332 = t170 * t5153 * t190;
2848   t5335 = t217 * t5153 * t227;
2849   t5350 = t5321 / 0.4e1 + t170 * t411 * t686 * t428 / 0.2e1 - t170 * t5327 * t173 / 0.2e1 - t5332 / 0.6e1 + t5335 / 0.8e1 + t5167 / 0.3e1 - t5179 / 0.3e1 + t5192 / 0.6e1 + t170 * t171 * t1892 * t172 / 0.2e1 - t170 * t433 * t1803 - t170 * t427 * t704 * t8 / 0.2e1;
2850   t5365 = t217 * t380 * t1871;
2851   t5368 = t170 * t380 * t1875;
2852   t5371 = t217 * t380 * t1883;
2853   t5374 = t217 * t1459 * t634;
2854   t5377 = t170 * t380 * t1860;
2855   t5381 = t217 * t380 * t1867;
2856   t5384 = t170 * t1459 * t626;
2857   t5397 = t703 * t189;
2858   t5406 = t694 * t189;
2859   t5419 = t269 * t506;
2860   t5423 = 0.3e1 / 0.4e1 * t5381 + t5384 / 0.3e1 - t374 * t1791 * t420 / 0.6e1 + t170 * t1791 * t440 / 0.2e1 - 0.2e1 * t1576 * t1577 * t279 * t644 * t172 + t1051 * t1052 * t5397 * t172 / 0.6e1 - t1576 * t1577 * t703 * t226 * t172 - t1051 * t1577 * t5406 * t172 / 0.3e1 + 0.3e1 * t1576 * t4494 * t694 * t226 * t172 + t1051 * t4502 * t1557 / 0.3e1 - 0.2e1 * t1576 * t5419 * t1579;
2861   t5427 = -t1805 - t5148 + t1812 + t5149 + t1850 - t1856 - t1862 + t1870 - t1874 + t1878 - t1886 + t9 * (-t5304 / 0.8e1 + t5162 - t5155 / 0.6e1 - t5173 + t5186 - t5200 + t5308 / 0.8e1 - t5311 / 0.4e1 + t5314 / 0.8e1 + t5317 / 0.4e1 + t5350 + t170 * t433 * t1809 / 0.2e1 - t170 * t1538 * t1564 + t170 * t1543 * t588 + t170 * t581 * t1585 + t170 * t427 * t695 * t8 - t5365 / 0.2e1 + t5368 / 0.6e1 - t5371 / 0.4e1 - t5374 / 0.2e1 - t5377 / 0.3e1 + t5423);
2862   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2863     v4rho2sigma2[11] = t5302 + t5427;
2864 
2865   t5460 = -t292 * t1712 * t452 / 0.6e1 - t5217 / 0.3e1 - t115 * t1712 * t458 / 0.2e1 + t4914 + t292 * t527 * t1601 / 0.3e1 + 0.2e1 / 0.3e1 * t5233 + t115 * t527 * t1606 - t4999 - t292 * t116 * t666 * t451 / 0.3e1 - 0.2e1 / 0.3e1 * t5238 - t115 * t116 * t666 * t457 + t5002 + t292 * t116 * t675 * t451 / 0.6e1 + t5244 / 0.3e1 + t115 * t116 * t675 * t457 / 0.2e1 - t5010;
2866   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2867     v4rho2sigma2[12] = t9 * t5460 - t1819 + 0.2e1 * t1822 - 0.2e1 * t1825 + t1828 - t4896 + t4904 - t4907 + t4910;
2868 
2869   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2870     v4rho2sigma2[13] = 0.0e0;
2871 
2872   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2873     v4rho2sigma2[14] = 0.0e0;
2874 
2875   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2876     v4rho2sigma2[15] = 0.0e0;
2877 
2878   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2879     v4rho2sigma2[16] = 0.0e0;
2880 
2881   t5527 = -t374 * t171 * t695 * t462 / 0.3e1 - 0.9e1 * t217 * t171 * t3469 * t694 * t507 + t374 * t581 * t1663 / 0.3e1 + 0.9e1 / 0.2e1 * t217 * t581 * t1668 + 0.9e1 / 0.4e1 * t217 * t171 * t1866 * t518 - 0.3e1 / 0.2e1 * t217 * t171 * t633 * t1650 + t170 * t433 * t1875 + t170 * t171 * t1892 * t189 + t170 * t171 * t704 * t474 / 0.2e1 - 0.3e1 * t217 * t1543 * t634 - 0.3e1 * t217 * t581 * t1687 - 0.3e1 / 0.2e1 * t217 * t581 * t1691 - 0.2e1 * t170 * t433 * t1860 - t170 * t171 * t695 * t474 + t170 * t1791 * t471 + 0.2e1 * t170 * t1543 * t626;
2882   t5561 = t36 * t488;
2883   t5564 = sigma[2] * t493;
2884   t5573 = 0.2e1 * t170 * t581 * t1676 + t170 * t581 * t1679 + t374 * t171 * t704 * t462 / 0.6e1 + 0.9e1 / 0.4e1 * t217 * t171 * t1212 * t703 * t507 - 0.3e1 / 0.2e1 * t217 * t433 * t1883 - 0.3e1 / 0.2e1 * t217 * t171 * t506 * t1891 * t226 - 0.3e1 / 0.4e1 * t217 * t171 * t1882 * t518 + 0.9e1 / 0.2e1 * t217 * t433 * t1867 - 0.3e1 * t217 * t433 * t1871 - t5304 / 0.4e1 - 0.3e1 / 0.8e1 * t7 * t74 * (0.19e2 / 0.162e3 * t34 * t5561 + 0.3e1 / 0.16e2 * t48 * t5564) * t107 + t5162 - t5173 + t5186 - t5200 + t5308 / 0.4e1;
2885   t5581 = t644 * t644;
2886   t5612 = -t5311 / 0.2e1 + t5314 / 0.4e1 + t5317 / 0.2e1 + t5321 / 0.2e1 - t5332 / 0.3e1 + t5335 / 0.4e1 - 0.3e1 / 0.2e1 * t217 * t171 * t506 * t5581 - t374 * t1791 * t463 / 0.6e1 - 0.3e1 / 0.4e1 * t217 * t1791 * t508 - t170 * t5327 * t190 - t170 * t1791 * t475 / 0.2e1 + 0.3e1 / 0.4e1 * t217 * t5327 * t227 + 0.3e1 / 0.8e1 * t217 * t1791 * t519 + 0.3e1 / 0.4e1 * t217 * t4468 * t280 + 0.3e1 / 0.2e1 * t217 * t1543 * t645 + 0.3e1 / 0.4e1 * t217 * t581 * t1651;
2887   t5655 = -0.3e1 / 0.4e1 * t217 * t1093 * t695 + 0.3e1 / 0.8e1 * t217 * t1093 * t704 + 0.3e1 / 0.4e1 * t217 * t433 * t1892 + 0.3e1 / 0.8e1 * t217 * t171 * t219 * (0.19e2 / 0.162e3 * t59 * t5561 + 0.3e1 / 0.16e2 * t62 * t5564) - t5365 + t5368 / 0.3e1 - t5371 / 0.2e1 - t5374 - 0.2e1 / 0.3e1 * t5377 + 0.3e1 / 0.2e1 * t5381 + 0.2e1 / 0.3e1 * t5384 - 0.2e1 * t1576 * t1577 * t5397 * t226 + 0.6e1 * t1576 * t4494 * t5406 * t226 - 0.4e1 * t1576 * t1577 * t1556 * t644 + 0.9e1 * t1953 * t4494 * t1578 * t644 - 0.4e1 * t1576 * t5419 * t1617;
2888   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2889     v4rho2sigma2[17] = -0.3e1 / 0.4e1 * t1844 - t5144 - t1833 + 0.3e1 / 0.4e1 * t1847 + 0.3e1 / 0.2e1 * t1852 + 0.3e1 / 0.2e1 * t1858 - 0.3e1 / 0.2e1 * t1864 + 0.3e1 / 0.4e1 * t1880 + 0.3e1 / 0.4e1 * t1894 + t5146 - t5148 + t5149 + 0.2e1 * t1850 - 0.3e1 * t1855 - 0.2e1 * t1862 + 0.9e1 / 0.2e1 * t1869 - 0.3e1 * t1873 + t1877 - 0.3e1 / 0.2e1 * t1885 + t9 * (t5527 + t5573 + t5612 + t5655);
2890 
2891   t5664 = 0.3e1 / 0.4e1 * t155 * t298 * t1918;
2892   t5665 = t127 * params->a3;
2893   t5668 = t155 * t5665 * t1900 / 0.3072e4;
2894   t5718 = 0.3e1 / 0.8e1 * t155 * t1350 * t675;
2895   t5719 = -0.3e1 * t115 * t527 * t1747 - t5664 - t5668 + t155 * t1898 * t47 * t145 * t66 / 0.128e3 + 0.27e2 / 0.4e1 * t155 * t527 * t1757 - 0.9e1 / 0.2e1 * t155 * t527 * t1761 + 0.3e1 / 0.2e1 * t115 * t527 * t1765 - 0.9e1 / 0.4e1 * t155 * t527 * t1776 + 0.3e1 * t115 * t116 * t1914 * t121 - 0.9e1 * t155 * t116 * t2123 * t1913 * t164 + 0.27e2 / 0.4e1 * t155 * t116 * t1756 * t572 - 0.9e1 / 0.4e1 * t155 * t302 * t1918 - 0.9e1 / 0.4e1 * t155 * t116 * t1413 * t674 - 0.9e1 / 0.4e1 * t155 * t116 * t561 * t1784 + 0.3e1 / 0.2e1 * t115 * t1712 * t551 - 0.9e1 / 0.4e1 * t155 * t1712 * t562 + t5718;
2896   t5722 = 0.3e1 / 0.4e1 * t155 * t298 * t1914;
2897   t5725 = 0.3e1 / 0.8e1 * t155 * t4935 * t254;
2898   t5728 = 0.3e1 / 0.4e1 * t155 * t1350 * t666;
2899   t5747 = t904 * params->b3;
2900   t5757 = t51 * t157;
2901   t5762 = t253 * t674;
2902   t5774 = t51 * t66;
2903   t5782 = t4 * t154 * t127 * t1925 / 0.3072e4;
2904   t5787 = t5722 + t5725 - t5728 + 0.9e1 / 0.8e1 * t155 * t4929 * t254 + 0.9e1 / 0.8e1 * t155 * t1712 * t573 - 0.9e1 / 0.4e1 * t155 * t1344 * t666 + 0.9e1 / 0.8e1 * t155 * t1344 * t675 + 0.9e1 / 0.8e1 * t155 * t527 * t1785 + 0.9e1 / 0.4e1 * t155 * t302 * t1914 + t1334 * t5747 * t1899 * t121 / 0.768e3 - t1923 * t1335 * params->b3 * t1899 * t164 / 0.512e3 + t1923 * t48 * t5757 * t164 / 0.1024e4 - 0.3e1 * t1334 * t1335 * t5762 * t121 + 0.27e2 / 0.4e1 * t1923 * t3936 * t5762 * t164 + t1923 * t2523 * t1924 / 0.1024e4 - t1334 * t48 * t5774 * t121 / 0.768e3 + t5782 - t1923 * t904 * t62 * t145 / 0.128e3;
2905   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2906     v4rhosigma3[0] = -t1903 + t1906 - t1909 + t1912 + t1917 - t1921 + t1927 + t9 * (t5719 + t5787);
2907 
2908   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2909     v4rhosigma3[1] = 0.0e0;
2910 
2911   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2912     v4rhosigma3[2] = 0.0e0;
2913 
2914   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2915     v4rhosigma3[3] = 0.0e0;
2916 
2917   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2918     v4rhosigma3[4] = 0.0e0;
2919 
2920   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2921     v4rhosigma3[5] = 0.0e0;
2922 
2923   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2924     v4rhosigma3[6] = 0.0e0;
2925 
2926   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2927     v4rhosigma3[7] = 0.0e0;
2928 
2929   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2930     v4rhosigma3[8] = 0.0e0;
2931 
2932   t5790 = t95 * t107;
2933   t5797 = t217 * t5665 * t1930 / 0.3072e4;
2934   t5803 = 0.3e1 / 0.8e1 * t217 * t5153 * t280;
2935   t5809 = 0.3e1 / 0.4e1 * t217 * t1459 * t695;
2936   t5815 = 0.3e1 / 0.8e1 * t217 * t1459 * t704;
2937   t5822 = 0.3e1 / 0.4e1 * t217 * t380 * t1944;
2938   t5823 = t279 * t703;
2939   t5830 = 0.3e1 / 0.4e1 * t217 * t380 * t1948;
2940   t5831 = t1052 * params->b3;
2941   t5839 = t4 * t216 * t127 * t1955 / 0.3072e4;
2942   t5840 = -t1576 * t48 * t5790 * t172 / 0.768e3 - t5797 + 0.3e1 / 0.2e1 * t170 * t1791 * t588 + t5803 - 0.3e1 * t170 * t581 * t1803 - t5809 + 0.3e1 / 0.2e1 * t170 * t581 * t1809 + t5815 + 0.3e1 * t170 * t171 * t1944 * t172 + t5822 - 0.3e1 * t1576 * t1577 * t5823 * t172 - t5830 + t1576 * t5831 * t1929 * t172 / 0.768e3 + t5839;
2943   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2944     v4rhosigma3[9] = t9 * t5840 - t1933 + t1936 - t1939 + t1942 + t1947 - t1951 + t1957;
2945 
2946   t5867 = -t1334 * t48 * t5774 * t184 / 0.768e3 - t5668 + 0.3e1 / 0.2e1 * t115 * t1712 * t600 + t5725 - 0.3e1 * t115 * t527 * t1823 - t5728 + 0.3e1 / 0.2e1 * t115 * t527 * t1826 + t5718 + 0.3e1 * t115 * t116 * t1914 * t184 + t5722 - 0.3e1 * t1334 * t1335 * t5762 * t184 - t5664 + t1334 * t5747 * t1899 * t184 / 0.768e3 + t5782;
2947   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2948     v4rhosigma3[10] = t9 * t5867 - t1903 + t1906 - t1909 + t1912 + t1917 - t1921 + t1927;
2949 
2950   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2951     v4rhosigma3[11] = 0.0e0;
2952 
2953   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2954     v4rhosigma3[12] = 0.0e0;
2955 
2956   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2957     v4rhosigma3[13] = 0.0e0;
2958 
2959   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2960     v4rhosigma3[14] = 0.0e0;
2961 
2962   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2963     v4rhosigma3[15] = 0.0e0;
2964 
2965   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2966     v4rhosigma3[16] = 0.0e0;
2967 
2968   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2969     v4rhosigma3[17] = 0.0e0;
2970 
2971   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2972     v4rhosigma3[18] = 0.0e0;
2973 
2974   t5919 = -0.9e1 / 0.4e1 * t217 * t171 * t633 * t1891 + 0.3e1 / 0.2e1 * t170 * t1791 * t626 - 0.9e1 / 0.4e1 * t217 * t1791 * t634 + t217 * t1898 * t47 * t207 * t107 / 0.128e3 - 0.3e1 * t170 * t581 * t1860 + 0.27e2 / 0.4e1 * t217 * t581 * t1867 - 0.9e1 / 0.2e1 * t217 * t581 * t1871 + 0.3e1 / 0.2e1 * t170 * t581 * t1875 - 0.9e1 / 0.4e1 * t217 * t581 * t1883 + 0.3e1 * t170 * t171 * t1944 * t189 - 0.9e1 * t217 * t171 * t3469 * t1943 * t226 + 0.27e2 / 0.4e1 * t217 * t171 * t1866 * t644 - 0.9e1 / 0.4e1 * t217 * t433 * t1948 - 0.9e1 / 0.4e1 * t217 * t171 * t1686 * t703 - t5830 - t5797 + t5803;
2975   t5962 = t95 * t219;
2976   t5971 = -t5809 + t5815 + t5822 + 0.9e1 / 0.8e1 * t217 * t5327 * t280 + 0.9e1 / 0.8e1 * t217 * t1791 * t645 - 0.9e1 / 0.4e1 * t217 * t1543 * t695 + 0.9e1 / 0.8e1 * t217 * t1543 * t704 + 0.9e1 / 0.8e1 * t217 * t581 * t1892 + 0.9e1 / 0.4e1 * t217 * t433 * t1944 + t1576 * t5831 * t1929 * t189 / 0.768e3 - t1953 * t1577 * params->b3 * t1929 * t226 / 0.512e3 + t5839 - 0.3e1 * t1576 * t1577 * t5823 * t189 + 0.27e2 / 0.4e1 * t1953 * t4494 * t5823 * t226 + t1953 * t3109 * t1954 / 0.1024e4 - t1576 * t48 * t5790 * t189 / 0.768e3 + t1953 * t48 * t5962 * t226 / 0.1024e4 - t1953 * t1052 * t62 * t207 / 0.128e3;
2977   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2978     v4rhosigma3[19] = -t1933 + t1936 - t1939 + t1942 + t1947 - t1951 + t1957 + t9 * (t5919 + t5971);
2979 
2980   t5993 = t665 * t665;
2981   t6002 = t674 * t674;
2982   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2983     v4sigma4[0] = t9 * (t1923 * t48 * t5757 * t253 / 0.256e3 - 0.9e1 / 0.2e1 * t155 * t1712 * t666 + 0.9e1 / 0.4e1 * t155 * t1712 * t675 + 0.9e1 * t155 * t527 * t1914 - 0.9e1 * t155 * t527 * t1918 + t1923 * t4077 * t1924 / 0.256e3 - 0.9e1 * t155 * t116 * t2123 * t5993 + 0.27e2 / 0.2e1 * t155 * t116 * t1756 * t674 - 0.9e1 / 0.4e1 * t155 * t116 * t354 * t6002 - t1923 * t4180 * t1924 / 0.128e3);
2984 
2985   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2986     v4sigma4[1] = 0.0e0;
2987 
2988   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2989     v4sigma4[2] = 0.0e0;
2990 
2991   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2992     v4sigma4[3] = 0.0e0;
2993 
2994   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2995     v4sigma4[4] = 0.0e0;
2996 
2997   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2998     v4sigma4[5] = 0.0e0;
2999 
3000   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3001     v4sigma4[6] = 0.0e0;
3002 
3003   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3004     v4sigma4[7] = 0.0e0;
3005 
3006   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3007     v4sigma4[8] = 0.0e0;
3008 
3009   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3010     v4sigma4[9] = 0.0e0;
3011 
3012   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3013     v4sigma4[10] = 0.0e0;
3014 
3015   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3016     v4sigma4[11] = 0.0e0;
3017 
3018   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3019     v4sigma4[12] = 0.0e0;
3020 
3021   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3022     v4sigma4[13] = 0.0e0;
3023 
3024   t6030 = t694 * t694;
3025   t6039 = t703 * t703;
3026   if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3027     v4sigma4[14] = t9 * (t1953 * t48 * t5962 * t279 / 0.256e3 - 0.9e1 / 0.2e1 * t217 * t1791 * t695 + 0.9e1 / 0.4e1 * t217 * t1791 * t704 + 0.9e1 * t217 * t581 * t1944 - 0.9e1 * t217 * t581 * t1948 + t1953 * t4502 * t1954 / 0.256e3 - 0.9e1 * t217 * t171 * t3469 * t6030 + 0.27e2 / 0.2e1 * t217 * t171 * t1866 * t703 - 0.9e1 / 0.4e1 * t217 * t171 * t506 * t6039 - t1953 * t4604 * t1954 / 0.128e3);
3028 
3029 #ifndef XC_DONT_COMPILE_MXC
3030 
3031   if(order < 5) return;
3032 
3033 
3034 #endif
3035 
3036 #endif
3037 
3038 #endif
3039 
3040 #endif
3041 
3042 #endif
3043 
3044 
3045 }
3046 
3047