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