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