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