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/mgga_exc/mgga_x_pkzb.mpl
11 Type of functional: mgga_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,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21
22 #ifndef XC_DONT_COMPILE_EXC
23 double t2, t4, t5, t6, t7, t8, t9, t10;
24 double t11, t12, t13, t14, t15, t16, t17, t18;
25 double t19, t20, t21, t23, t24, t25, t27, t29;
26 double t34, t35, t37, t38, t41, t43, t44, t45;
27 double t46, t47, t48, t50, t54, t57, t59;
28
29 #ifndef XC_DONT_COMPILE_VXC
30 double t63, t64, t65, t66, t67, t68, t70, t71;
31 double t72, t78, t81, t82, t87, t89, t93, t94;
32 double t98, t101, t102, t103, t107, t109, t111, t114;
33 double t123, t125;
34
35 #ifndef XC_DONT_COMPILE_FXC
36 double t128, t129, t137, t138, t139, t144, t145, t146;
37 double t148, t154, t157, t158, t167, t171, t172, t176;
38 double t177, t180, t181, t182, t183, t184, t190, t192;
39 double t193, t197, t199, t201, t206, t207, t214, t216;
40 double t219, t221, t225, t228, t229, t231, t232, t236;
41 double t238, t240, t242, t246;
42
43 #ifndef XC_DONT_COMPILE_KXC
44 double t250, t263, t264, t265, t266, t270, t275, t276;
45 double t277, t285, t288, t289, t298, t300, t304, t305;
46 double t309, t310, t313, t318, t320, t324, t328, t334;
47 double t336, t338, t339, t343, t345, t347, t357, t361;
48 double t365, t373, t375, t381, t385, t389, t391, t393;
49 double t394, t396, t397, t402, t405, t406, t409, t410;
50 double t414, t415, t420, t424, t428, t431, t433, t437;
51 double t438, t440, t441, t444, t447, t448, t450, t451;
52 double t454, t458, t460;
53
54 #ifndef XC_DONT_COMPILE_LXC
55 double t489, t490, t499, t510, t511, t513, t521, t538;
56 double t559, t571, t601, t677, t691, t696, t700, t763;
57 double t791, t792, t796, t820, t821, t825, t867, t873;
58 double t879, t883, t894, t908, t929;
59 #endif
60
61 #endif
62
63 #endif
64
65 #endif
66
67 #endif
68
69
70
71 t2 = M_CBRT3;
72 t4 = POW_1_3(0.1e1 / M_PI);
73 t5 = t2 * t4;
74 t6 = M_CBRT4;
75 t7 = t6 * t6;
76 t8 = t5 * t7;
77 t9 = M_CBRT2;
78 t10 = t9 * t9;
79 t11 = POW_1_3(rho[0]);
80 t12 = t10 * t11;
81 t13 = M_CBRT6;
82 t14 = M_PI * M_PI;
83 t15 = POW_1_3(t14);
84 t16 = t15 * t15;
85 t17 = 0.1e1 / t16;
86 t18 = t13 * t17;
87 t19 = sigma[0] * t10;
88 t20 = rho[0] * rho[0];
89 t21 = t11 * t11;
90 t23 = 0.1e1 / t21 / t20;
91 t24 = t19 * t23;
92 t25 = t18 * t24;
93 t27 = tau[0] * t10;
94 t29 = 0.1e1 / t21 / rho[0];
95 t34 = t18 * t27 * t29 / 0.4e1 - 0.9e1 / 0.20e2 - t25 / 0.288e3;
96 t35 = t34 * t34;
97 t37 = t34 * t13;
98 t38 = t37 * t17;
99 t41 = t13 * t13;
100 t43 = 0.1e1 / t15 / t14;
101 t44 = t41 * t43;
102 t45 = sigma[0] * sigma[0];
103 t46 = t45 * t9;
104 t47 = t20 * t20;
105 t48 = t47 * rho[0];
106 t50 = 0.1e1 / t11 / t48;
107 t54 = 0.804e0 + 0.5e1 / 0.972e3 * t25 + 0.146e3 / 0.2025e4 * t35 - 0.73e2 / 0.9720e4 * t38 * t24 + 0.45818468001825619316e-3 * t44 * t46 * t50;
108 t57 = 0.1804e1 - 0.646416e0 / t54;
109 t59 = t8 * t12 * t57;
110 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
111 zk[0] = -0.3e1 / 0.16e2 * t59;
112
113 #ifndef XC_DONT_COMPILE_VXC
114
115 if(order < 1) return;
116
117
118 t63 = t11 * rho[0] * t2;
119 t64 = t63 * t4;
120 t65 = t7 * t10;
121 t66 = t54 * t54;
122 t67 = 0.1e1 / t66;
123 t68 = t20 * rho[0];
124 t70 = 0.1e1 / t21 / t68;
125 t71 = t19 * t70;
126 t72 = t18 * t71;
127 t78 = -0.5e1 / 0.12e2 * t18 * t27 * t23 + t72 / 0.108e3;
128 t81 = t78 * t13;
129 t82 = t81 * t17;
130 t87 = t47 * t20;
131 t89 = 0.1e1 / t11 / t87;
132 t93 = -0.10e2 / 0.729e3 * t72 + 0.292e3 / 0.2025e4 * t34 * t78 - 0.73e2 / 0.9720e4 * t82 * t24 + 0.73e2 / 0.3645e4 * t38 * t71 - 0.24436516267640330302e-2 * t44 * t46 * t89;
133 t94 = t67 * t93;
134 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
135 vrho[0] = -t59 / 0.4e1 - 0.12120300000000000000e0 * t64 * t65 * t94;
136
137 t98 = t10 * t23;
138 t101 = t17 * t10;
139 t102 = t101 * t23;
140 t103 = t37 * t102;
141 t107 = t44 * t9 * t50 * sigma[0];
142 t109 = 0.5e1 / 0.972e3 * t18 * t98 - 0.146e3 / 0.18225e5 * t103 + 0.96852413827153753492e-3 * t107;
143 t111 = t65 * t67 * t109;
144 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
145 vsigma[0] = -0.12120300000000000000e0 * t64 * t111;
146
147 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
148 vlapl[0] = 0.0e0;
149
150 t114 = t101 * t29;
151 t123 = 0.73e2 / 0.2025e4 * t37 * t114 - 0.73e2 / 0.19440e5 * t44 * t9 / t11 / t47 * sigma[0];
152 t125 = t65 * t67 * t123;
153 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
154 vtau[0] = -0.12120300000000000000e0 * t64 * t125;
155
156 #ifndef XC_DONT_COMPILE_FXC
157
158 if(order < 2) return;
159
160
161 t128 = 0.1e1 / t21;
162 t129 = t10 * t128;
163 t137 = 0.1e1 / t66 / t54;
164 t138 = t93 * t93;
165 t139 = t137 * t138;
166 t144 = 0.1e1 / t21 / t47;
167 t145 = t19 * t144;
168 t146 = t18 * t145;
169 t148 = t78 * t78;
170 t154 = 0.10e2 / 0.9e1 * t18 * t27 * t70 - 0.11e2 / 0.324e3 * t146;
171 t157 = t154 * t13;
172 t158 = t157 * t17;
173 t167 = 0.1e1 / t11 / t47 / t68;
174 t171 = 0.110e3 / 0.2187e4 * t146 + 0.292e3 / 0.2025e4 * t148 + 0.292e3 / 0.2025e4 * t34 * t154 - 0.73e2 / 0.9720e4 * t158 * t24 + 0.146e3 / 0.3645e4 * t82 * t71 - 0.803e3 / 0.10935e5 * t38 * t145 + 0.15476460302838875858e-1 * t44 * t46 * t167;
175 t172 = t67 * t171;
176 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
177 v2rho2[0] = -t8 * t129 * t57 / 0.12e2 - 0.32320800000000000000e0 * t8 * t12 * t94 + 0.24240600000000000000e0 * t64 * t65 * t139 - 0.12120300000000000000e0 * t64 * t65 * t172;
178
179 t176 = t11 * t2;
180 t177 = t176 * t4;
181 t180 = t4 * t7;
182 t181 = t63 * t180;
183 t182 = t10 * t137;
184 t183 = t109 * t93;
185 t184 = t182 * t183;
186 t190 = t81 * t102;
187 t192 = t101 * t70;
188 t193 = t37 * t192;
189 t197 = t44 * t9 * t89 * sigma[0];
190 t199 = -0.10e2 / 0.729e3 * t18 * t10 * t70 - 0.146e3 / 0.18225e5 * t190 + 0.1168e4 / 0.54675e5 * t193 - 0.51654620707815335196e-2 * t197;
191 t201 = t65 * t67 * t199;
192 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
193 v2rhosigma[0] = -0.16160400000000000000e0 * t177 * t111 + 0.24240600000000000000e0 * t181 * t184 - 0.12120300000000000000e0 * t64 * t201;
194
195 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
196 v2rholapl[0] = 0.0e0;
197
198 t206 = t123 * t93;
199 t207 = t182 * t206;
200 t214 = 0.73e2 / 0.2025e4 * t81 * t114 - 0.73e2 / 0.1215e4 * t103 + 0.949e3 / 0.58320e5 * t107;
201 t216 = t65 * t67 * t214;
202 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
203 v2rhotau[0] = -0.16160400000000000000e0 * t177 * t125 + 0.24240600000000000000e0 * t181 * t207 - 0.12120300000000000000e0 * t64 * t216;
204
205 t219 = t109 * t109;
206 t221 = t65 * t137 * t219;
207 t225 = 0.1e1 / t47 * t2;
208 t228 = t7 * t67 * t44;
209 t229 = t225 * t4 * t228;
210 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
211 v2sigma2[0] = 0.24240600000000000000e0 * t64 * t221 - 0.24826153551287913428e-3 * t229;
212
213 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
214 v2sigmalapl[0] = 0.0e0;
215
216 t231 = t123 * t109;
217 t232 = t182 * t231;
218 t236 = 0.1e1 / t68 * t2;
219 t238 = t236 * t4 * t228;
220 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
221 v2sigmatau[0] = 0.24240600000000000000e0 * t181 * t232 + 0.97095407407407407407e-3 * t238;
222
223 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
224 v2lapl2[0] = 0.0e0;
225
226 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
227 v2lapltau[0] = 0.0e0;
228
229 t240 = t123 * t123;
230 t242 = t65 * t137 * t240;
231 t246 = 0.1e1 / t20 * t2;
232 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
233 v2tau2[0] = 0.24240600000000000000e0 * t64 * t242 - 0.43692933333333333333e-2 * t246 * t4 * t228;
234
235 #ifndef XC_DONT_COMPILE_KXC
236
237 if(order < 3) return;
238
239
240 t250 = t10 * t29;
241 t263 = t66 * t66;
242 t264 = 0.1e1 / t263;
243 t265 = t138 * t93;
244 t266 = t264 * t265;
245 t270 = t93 * t171;
246 t275 = 0.1e1 / t21 / t48;
247 t276 = t19 * t275;
248 t277 = t18 * t276;
249 t285 = -0.110e3 / 0.27e2 * t18 * t27 * t144 + 0.77e2 / 0.486e3 * t277;
250 t288 = t285 * t13;
251 t289 = t288 * t17;
252 t298 = t47 * t47;
253 t300 = 0.1e1 / t11 / t298;
254 t304 = -0.1540e4 / 0.6561e4 * t277 + 0.292e3 / 0.675e3 * t78 * t154 + 0.292e3 / 0.2025e4 * t34 * t285 - 0.73e2 / 0.9720e4 * t289 * t24 + 0.73e2 / 0.1215e4 * t158 * t71 - 0.803e3 / 0.3645e4 * t82 * t145 + 0.11242e5 / 0.32805e5 * t38 * t276 - 0.11349404222081842296e0 * t44 * t46 * t300;
255 t305 = t67 * t304;
256 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
257 v3rho3[0] = t8 * t250 * t57 / 0.18e2 - 0.16160400000000000000e0 * t8 * t129 * t94 + 0.96962400000000000000e0 * t8 * t12 * t139 - 0.48481200000000000000e0 * t8 * t12 * t172 - 0.72721800000000000000e0 * t64 * t65 * t266 + 0.72721800000000000000e0 * t181 * t182 * t270 - 0.12120300000000000000e0 * t64 * t65 * t305;
258
259 t309 = t128 * t2;
260 t310 = t309 * t4;
261 t313 = t176 * t180;
262 t318 = t10 * t264;
263 t320 = t318 * t109 * t138;
264 t324 = t182 * t199 * t93;
265 t328 = t182 * t109 * t171;
266 t334 = t157 * t102;
267 t336 = t81 * t192;
268 t338 = t101 * t144;
269 t339 = t37 * t338;
270 t343 = t44 * t9 * t167 * sigma[0];
271 t345 = 0.110e3 / 0.2187e4 * t18 * t10 * t144 - 0.146e3 / 0.18225e5 * t334 + 0.2336e4 / 0.54675e5 * t336 - 0.12848e5 / 0.164025e6 * t339 + 0.32714593114949712291e-1 * t343;
272 t347 = t65 * t67 * t345;
273 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
274 v3rho2sigma[0] = -0.53868000000000000000e-1 * t310 * t111 + 0.64641600000000000000e0 * t313 * t184 - 0.32320800000000000000e0 * t177 * t201 - 0.72721800000000000000e0 * t181 * t320 + 0.48481200000000000000e0 * t181 * t324 + 0.24240600000000000000e0 * t181 * t328 - 0.12120300000000000000e0 * t64 * t347;
275
276 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
277 v3rho2lapl[0] = 0.0e0;
278
279 t357 = t318 * t123 * t138;
280 t361 = t182 * t214 * t93;
281 t365 = t182 * t123 * t171;
282 t373 = 0.73e2 / 0.2025e4 * t157 * t114 - 0.146e3 / 0.1215e4 * t190 + 0.584e3 / 0.3645e4 * t193 - 0.949e3 / 0.10935e5 * t197;
283 t375 = t65 * t67 * t373;
284 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
285 v3rho2tau[0] = -0.53868000000000000000e-1 * t310 * t125 + 0.64641600000000000000e0 * t313 * t207 - 0.32320800000000000000e0 * t177 * t216 - 0.72721800000000000000e0 * t181 * t357 + 0.48481200000000000000e0 * t181 * t361 + 0.24240600000000000000e0 * t181 * t365 - 0.12120300000000000000e0 * t64 * t375;
286
287 t381 = t318 * t219 * t93;
288 t385 = t182 * t109 * t199;
289 t389 = 0.1e1 / t48 * t2;
290 t391 = t389 * t4 * t228;
291 t393 = t225 * t180;
292 t394 = t137 * t41;
293 t396 = t394 * t43 * t93;
294 t397 = t393 * t396;
295 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
296 v3rhosigma2[0] = 0.32320800000000000000e0 * t177 * t221 - 0.72721800000000000000e0 * t181 * t381 + 0.48481200000000000000e0 * t181 * t385 + 0.99304614205151653712e-3 * t391 + 0.49652307102575826856e-3 * t397;
297
298 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
299 v3rhosigmalapl[0] = 0.0e0;
300
301 t402 = t318 * t231 * t93;
302 t405 = t214 * t109;
303 t406 = t182 * t405;
304 t409 = t123 * t199;
305 t410 = t182 * t409;
306 t414 = t236 * t180;
307 t415 = t414 * t396;
308 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
309 v3rhosigmatau[0] = 0.32320800000000000000e0 * t313 * t232 - 0.72721800000000000000e0 * t181 * t402 + 0.24240600000000000000e0 * t181 * t406 + 0.24240600000000000000e0 * t181 * t410 - 0.29128622222222222222e-2 * t229 - 0.19419081481481481481e-2 * t415;
310
311 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
312 v3rholapl2[0] = 0.0e0;
313
314 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
315 v3rholapltau[0] = 0.0e0;
316
317 t420 = t318 * t240 * t93;
318 t424 = t182 * t123 * t214;
319 t428 = t246 * t180;
320 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
321 v3rhotau2[0] = 0.32320800000000000000e0 * t177 * t242 - 0.72721800000000000000e0 * t181 * t420 + 0.48481200000000000000e0 * t181 * t424 + 0.87385866666666666666e-2 * t238 + 0.87385866666666666666e-2 * t428 * t396;
322
323 t431 = t219 * t109;
324 t433 = t65 * t264 * t431;
325 t437 = t137 * t109 * t44;
326 t438 = t393 * t437;
327 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
328 v3sigma3[0] = -0.72721800000000000000e0 * t64 * t433 + 0.14895692130772748057e-2 * t438;
329
330 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
331 v3sigma2lapl[0] = 0.0e0;
332
333 t440 = t123 * t219;
334 t441 = t318 * t440;
335 t444 = t414 * t437;
336 t447 = t137 * t123 * t44;
337 t448 = t393 * t447;
338 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
339 v3sigma2tau[0] = -0.72721800000000000000e0 * t181 * t441 - 0.38838162962962962962e-2 * t444 + 0.49652307102575826856e-3 * t448;
340
341 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
342 v3sigmalapl2[0] = 0.0e0;
343
344 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
345 v3sigmalapltau[0] = 0.0e0;
346
347 t450 = t240 * t109;
348 t451 = t318 * t450;
349 t454 = t414 * t447;
350 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
351 v3sigmatau2[0] = -0.72721800000000000000e0 * t181 * t451 - 0.38838162962962962963e-2 * t454 + 0.87385866666666666666e-2 * t428 * t437;
352
353 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
354 v3lapl3[0] = 0.0e0;
355
356 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
357 v3lapl2tau[0] = 0.0e0;
358
359 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
360 v3lapltau2[0] = 0.0e0;
361
362 t458 = t240 * t123;
363 t460 = t65 * t264 * t458;
364 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
365 v3tau3[0] = -0.72721800000000000000e0 * t64 * t460 + 0.26215760000000000000e-1 * t428 * t447;
366
367 #ifndef XC_DONT_COMPILE_LXC
368
369 if(order < 4) return;
370
371
372 t489 = 0.1e1 / t263 / t54;
373 t490 = t138 * t138;
374 t499 = t171 * t171;
375 t510 = t19 / t21 / t87;
376 t511 = t18 * t510;
377 t513 = t154 * t154;
378 t521 = 0.1540e4 / 0.81e2 * t18 * t27 * t275 - 0.1309e4 / 0.1458e4 * t511;
379 t538 = 0.1e1 / t11 / t298 / rho[0];
380 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
381 v4rho4[0] = -0.5e1 / 0.54e2 * t8 * t98 * t57 + 0.14364800000000000000e0 * t8 * t250 * t94 + 0.64641600000000000000e0 * t8 * t129 * t139 - 0.32320800000000000000e0 * t8 * t129 * t172 - 0.38784960000000000000e1 * t8 * t12 * t266 + 0.38784960000000000000e1 * t5 * t65 * t11 * t137 * t270 - 0.64641600000000000000e0 * t8 * t12 * t305 + 0.29088720000000000000e1 * t64 * t65 * t489 * t490 - 0.43633080000000000000e1 * t181 * t318 * t138 * t171 + 0.72721800000000000000e0 * t64 * t65 * t137 * t499 + 0.96962400000000000000e0 * t181 * t182 * t93 * t304 - 0.12120300000000000000e0 * t64 * t65 * t67 * (0.26180e5 / 0.19683e5 * t511 + 0.292e3 / 0.675e3 * t513 + 0.1168e4 / 0.2025e4 * t78 * t285 + 0.292e3 / 0.2025e4 * t34 * t521 - 0.73e2 / 0.9720e4 * t521 * t13 * t17 * t24 + 0.292e3 / 0.3645e4 * t289 * t71 - 0.1606e4 / 0.3645e4 * t158 * t145 + 0.44968e5 / 0.32805e5 * t82 * t276 - 0.191114e6 / 0.98415e5 * t38 * t510 + 0.94578368517348685800e0 * t44 * t46 * t538);
382
383 t559 = t309 * t180;
384 t571 = t29 * t2 * t4;
385 t601 = t10 * t489;
386 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
387 v4rho3sigma[0] = 0.72721800000000000000e0 * t181 * t182 * t345 * t93 + 0.72721800000000000000e0 * t181 * t182 * t199 * t171 + 0.24240600000000000000e0 * t181 * t182 * t109 * t304 + 0.32320800000000000000e0 * t559 * t184 + 0.19392480000000000000e1 * t313 * t324 + 0.96962400000000000000e0 * t313 * t328 - 0.21816540000000000000e1 * t181 * t318 * t199 * t138 + 0.35912000000000000000e-1 * t571 * t111 - 0.12120300000000000000e0 * t64 * t65 * t67 * (-0.1540e4 / 0.6561e4 * t18 * t10 * t275 - 0.146e3 / 0.18225e5 * t288 * t102 + 0.1168e4 / 0.18225e5 * t157 * t192 - 0.12848e5 / 0.54675e5 * t81 * t338 + 0.179872e6 / 0.492075e6 * t37 * t101 * t275 - 0.23990701617629789013e0 * t44 * t9 * t300 * sigma[0]) - 0.48481200000000000000e0 * t177 * t347 - 0.16160400000000000000e0 * t310 * t201 - 0.29088720000000000000e1 * t313 * t320 + 0.29088720000000000000e1 * t181 * t601 * t109 * t265 - 0.21816540000000000000e1 * t181 * t318 * t183 * t171;
388
389 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
390 v4rho3lapl[0] = 0.0e0;
391
392 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
393 v4rho3tau[0] = 0.24240600000000000000e0 * t181 * t182 * t123 * t304 - 0.12120300000000000000e0 * t64 * t65 * t67 * (0.73e2 / 0.2025e4 * t288 * t114 - 0.73e2 / 0.405e3 * t334 + 0.584e3 / 0.1215e4 * t336 - 0.6424e4 / 0.10935e5 * t339 + 0.18031e5 / 0.32805e5 * t343) - 0.48481200000000000000e0 * t177 * t375 - 0.16160400000000000000e0 * t310 * t216 + 0.19392480000000000000e1 * t313 * t361 + 0.96962400000000000000e0 * t313 * t365 - 0.21816540000000000000e1 * t181 * t318 * t214 * t138 + 0.72721800000000000000e0 * t181 * t182 * t373 * t93 + 0.72721800000000000000e0 * t181 * t182 * t214 * t171 + 0.35912000000000000000e-1 * t571 * t125 + 0.32320800000000000000e0 * t559 * t207 + 0.29088720000000000000e1 * t181 * t601 * t123 * t265 - 0.21816540000000000000e1 * t181 * t318 * t206 * t171 - 0.29088720000000000000e1 * t313 * t357;
394
395 t677 = t199 * t199;
396 t691 = t389 * t180;
397 t696 = t264 * t41 * t43 * t138;
398 t700 = t394 * t43 * t171;
399 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
400 v4rho2sigma2[0] = 0.10773600000000000000e0 * t310 * t221 - 0.19392480000000000000e1 * t313 * t381 + 0.12928320000000000000e1 * t313 * t385 + 0.29088720000000000000e1 * t181 * t601 * t219 * t138 - 0.29088720000000000000e1 * t181 * t318 * t183 * t199 - 0.72721800000000000000e0 * t181 * t318 * t219 * t171 + 0.48481200000000000000e0 * t64 * t65 * t137 * t677 + 0.48481200000000000000e0 * t181 * t182 * t109 * t345 - 0.49652307102575826856e-2 / t87 * t2 * t4 * t228 - 0.39721845682060661484e-2 * t691 * t396 - 0.14895692130772748057e-2 * t393 * t696 + 0.49652307102575826856e-3 * t393 * t700;
401
402 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
403 v4rho2sigmalapl[0] = 0.0e0;
404
405 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
406 v4rho2sigmatau[0] = 0.10773600000000000000e0 * t559 * t232 - 0.19392480000000000000e1 * t313 * t402 + 0.64641600000000000000e0 * t313 * t406 + 0.64641600000000000000e0 * t313 * t410 + 0.29088720000000000000e1 * t181 * t601 * t231 * t138 - 0.14544360000000000000e1 * t181 * t318 * t405 * t93 - 0.14544360000000000000e1 * t181 * t318 * t409 * t93 - 0.72721800000000000000e0 * t181 * t318 * t231 * t171 + 0.24240600000000000000e0 * t181 * t182 * t373 * t109 + 0.48481200000000000000e0 * t181 * t182 * t214 * t199 + 0.24240600000000000000e0 * t181 * t182 * t123 * t345 + 0.11651448888888888889e-1 * t391 + 0.11651448888888888889e-1 * t397 + 0.58257244444444444443e-2 * t414 * t696 - 0.19419081481481481481e-2 * t414 * t700;
407
408 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
409 v4rho2lapl2[0] = 0.0e0;
410
411 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
412 v4rho2lapltau[0] = 0.0e0;
413
414 t763 = t214 * t214;
415 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
416 v4rho2tau2[0] = 0.10773600000000000000e0 * t310 * t242 - 0.19392480000000000000e1 * t313 * t420 + 0.12928320000000000000e1 * t313 * t424 + 0.29088720000000000000e1 * t181 * t601 * t240 * t138 - 0.29088720000000000000e1 * t181 * t318 * t206 * t214 - 0.72721800000000000000e0 * t181 * t318 * t240 * t171 + 0.48481200000000000000e0 * t64 * t65 * t137 * t763 + 0.48481200000000000000e0 * t181 * t182 * t123 * t373 - 0.26215760000000000000e-1 * t229 - 0.34954346666666666666e-1 * t415 - 0.26215760000000000000e-1 * t428 * t696 + 0.87385866666666666666e-2 * t428 * t700;
417
418 t791 = t44 * t93;
419 t792 = t264 * t109 * t791;
420 t796 = t137 * t199 * t44;
421 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
422 v4rhosigma3[0] = -0.96962400000000000000e0 * t177 * t433 + 0.29088720000000000000e1 * t181 * t601 * t431 * t93 - 0.21816540000000000000e1 * t181 * t318 * t219 * t199 - 0.59582768523090992228e-2 * t691 * t437 - 0.44687076392318244171e-2 * t393 * t792 + 0.14895692130772748057e-2 * t393 * t796;
423
424 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
425 v4rhosigma2lapl[0] = 0.0e0;
426
427 t820 = t264 * t123;
428 t821 = t820 * t791;
429 t825 = t137 * t214 * t44;
430 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
431 v4rhosigma2tau[0] = -0.96962400000000000000e0 * t313 * t441 + 0.29088720000000000000e1 * t181 * t601 * t440 * t93 - 0.72721800000000000000e0 * t181 * t318 * t214 * t219 - 0.14544360000000000000e1 * t181 * t318 * t231 * t199 + 0.11651448888888888889e-1 * t438 + 0.11651448888888888889e-1 * t414 * t792 - 0.38838162962962962962e-2 * t414 * t796 - 0.19860922841030330742e-2 * t691 * t447 - 0.14895692130772748057e-2 * t393 * t821 + 0.49652307102575826856e-3 * t393 * t825;
432
433 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
434 v4rhosigmalapl2[0] = 0.0e0;
435
436 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
437 v4rhosigmalapltau[0] = 0.0e0;
438
439 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
440 v4rhosigmatau2[0] = -0.96962400000000000000e0 * t313 * t451 + 0.29088720000000000000e1 * t181 * t601 * t450 * t93 - 0.14544360000000000000e1 * t181 * t318 * t231 * t214 - 0.72721800000000000000e0 * t181 * t318 * t240 * t199 + 0.11651448888888888889e-1 * t448 + 0.11651448888888888889e-1 * t414 * t821 - 0.38838162962962962963e-2 * t414 * t825 - 0.17477173333333333333e-1 * t444 - 0.26215760000000000000e-1 * t428 * t792 + 0.87385866666666666666e-2 * t428 * t796;
441
442 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
443 v4rholapl3[0] = 0.0e0;
444
445 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
446 v4rholapl2tau[0] = 0.0e0;
447
448 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
449 v4rholapltau2[0] = 0.0e0;
450
451 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
452 v4rhotau3[0] = -0.96962400000000000000e0 * t177 * t460 + 0.29088720000000000000e1 * t181 * t601 * t458 * t93 - 0.21816540000000000000e1 * t181 * t318 * t240 * t214 - 0.52431520000000000000e-1 * t454 - 0.78647280000000000000e-1 * t428 * t821 + 0.26215760000000000000e-1 * t428 * t825;
453
454 t867 = t219 * t219;
455 t873 = t264 * t219 * t44;
456 t879 = t14 * t14;
457 t883 = t137 * t13 / t16 / t879 * t9;
458 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
459 v4sigma4[0] = 0.29088720000000000000e1 * t64 * t65 * t489 * t867 - 0.89374152784636488342e-2 * t393 * t873 + 0.91533066035809827810e-5 * t538 * t2 * t180 * t883;
460
461 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
462 v4sigma3lapl[0] = 0.0e0;
463
464 t894 = t820 * t109 * t41 * t43;
465 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
466 v4sigma3tau[0] = 0.29088720000000000000e1 * t181 * t601 * t123 * t431 + 0.17477173333333333333e-1 * t414 * t873 - 0.44687076392318244171e-2 * t393 * t894 - 0.35798700429511460351e-4 * t300 * t2 * t180 * t883;
467
468 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
469 v4sigma2lapl2[0] = 0.0e0;
470
471 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
472 v4sigma2lapltau[0] = 0.0e0;
473
474 t908 = t264 * t240 * t44;
475 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
476 v4sigma2tau2[0] = 0.29088720000000000000e1 * t181 * t601 * t240 * t219 + 0.23302897777777777778e-1 * t414 * t894 - 0.14895692130772748057e-2 * t393 * t908 + 0.14703750402027694514e-3 * t167 * t2 * t180 * t883 - 0.26215760000000000000e-1 * t428 * t873;
477
478 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
479 v4sigmalapl3[0] = 0.0e0;
480
481 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
482 v4sigmalapl2tau[0] = 0.0e0;
483
484 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
485 v4sigmalapltau2[0] = 0.0e0;
486
487 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
488 v4sigmatau3[0] = 0.29088720000000000000e1 * t181 * t601 * t458 * t109 + 0.17477173333333333333e-1 * t414 * t908 - 0.78647280000000000000e-1 * t428 * t894 - 0.63004131028806584362e-3 * t89 * t2 * t180 * t883;
489
490 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
491 v4lapl4[0] = 0.0e0;
492
493 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
494 v4lapl3tau[0] = 0.0e0;
495
496 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
497 v4lapl2tau2[0] = 0.0e0;
498
499 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
500 v4lapltau3[0] = 0.0e0;
501
502 t929 = t240 * t240;
503 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
504 v4tau4[0] = 0.29088720000000000000e1 * t64 * t65 * t489 * t929 - 0.15729456000000000000e0 * t428 * t908 + 0.28351858962962962963e-2 * t50 * t2 * t180 * t883;
505
506 #ifndef XC_DONT_COMPILE_MXC
507
508 if(order < 5) return;
509
510
511 #endif
512
513 #endif
514
515 #endif
516
517 #endif
518
519 #endif
520
521
522 }
523
524
525 static inline void
func_ferr(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))526 func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
527 {
528
529 #ifndef XC_DONT_COMPILE_EXC
530 double t2, t4, t5, t6, t7, t8, t10, t11;
531 double t12, t13, t14, t15, t16, t17, t19, t21;
532 double t24, t29, t30, t32, t33, t34, t37, t39;
533 double t40, t41, t42, t43, t45, t49, t52, t54;
534
535 #ifndef XC_DONT_COMPILE_VXC
536 double t58, t59, t60, t61, t62, t63, t65, t67;
537 double t73, t76, t79, t82, t84, t88, t94, t95;
538 double t98, t100, t101, t104, t112, t113;
539
540 #ifndef XC_DONT_COMPILE_FXC
541 double t116, t121, t122, t127, t128, t129, t134, t136;
542 double t138, t144, t147, t152, t157, t161, t165, t166;
543 double t169, t170, t175, t177, t178, t181, t183, t184;
544 double t190, t197, t198, t201, t202, t206, t208, t209;
545 double t212, t216, t218, t220, t221, t225;
546
547 #ifndef XC_DONT_COMPILE_KXC
548 double t233, t237, t244, t245, t246, t247, t251, t256;
549 double t258, t266, t269, t276, t279, t281, t285, t290;
550 double t297, t298, t301, t302, t305, t306, t311, t313;
551 double t315, t316, t319, t321, t322, t332, t335, t336;
552 double t340, t348, t349, t354, t355, t358, t359, t363;
553 double t365, t367, t368, t369, t371, t372, t376, t377;
554 double t378, t381, t382, t386, t390, t391, t396, t400;
555 double t404, t407, t408, t412, t413, t416, t419, t422;
556 double t423, t426, t429, t433, t434;
557
558 #ifndef XC_DONT_COMPILE_LXC
559 double t465, t466, t467, t475, t484, t486, t488, t496;
560 double t513, t564, t575, t643, t656, t661, t665, t677;
561 double t726, t752, t753, t757, t779, t783, t824, t829;
562 double t834, t838, t849, t863, t884;
563 #endif
564
565 #endif
566
567 #endif
568
569 #endif
570
571 #endif
572
573
574
575 t2 = M_CBRT3;
576 t4 = POW_1_3(0.1e1 / M_PI);
577 t5 = t2 * t4;
578 t6 = M_CBRT4;
579 t7 = t6 * t6;
580 t8 = POW_1_3(rho[0]);
581 t10 = M_CBRT6;
582 t11 = M_PI * M_PI;
583 t12 = POW_1_3(t11);
584 t13 = t12 * t12;
585 t14 = 0.1e1 / t13;
586 t15 = t10 * t14;
587 t16 = rho[0] * rho[0];
588 t17 = t8 * t8;
589 t19 = 0.1e1 / t17 / t16;
590 t21 = t15 * sigma[0] * t19;
591 t24 = 0.1e1 / t17 / rho[0];
592 t29 = t15 * tau[0] * t24 / 0.4e1 - 0.9e1 / 0.20e2 - t21 / 0.288e3;
593 t30 = t29 * t29;
594 t32 = t29 * t10;
595 t33 = t14 * sigma[0];
596 t34 = t33 * t19;
597 t37 = t10 * t10;
598 t39 = 0.1e1 / t12 / t11;
599 t40 = t37 * t39;
600 t41 = sigma[0] * sigma[0];
601 t42 = t16 * t16;
602 t43 = t42 * rho[0];
603 t45 = 0.1e1 / t8 / t43;
604 t49 = 0.804e0 + 0.5e1 / 0.972e3 * t21 + 0.146e3 / 0.2025e4 * t30 - 0.73e2 / 0.9720e4 * t32 * t34 + 0.22909234000912809658e-3 * t40 * t41 * t45;
605 t52 = 0.1804e1 - 0.646416e0 / t49;
606 t54 = t5 * t7 * t8 * t52;
607 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
608 zk[0] = -0.3e1 / 0.8e1 * t54;
609
610 #ifndef XC_DONT_COMPILE_VXC
611
612 if(order < 1) return;
613
614
615 t58 = t8 * rho[0] * t2;
616 t59 = t58 * t4;
617 t60 = t49 * t49;
618 t61 = 0.1e1 / t60;
619 t62 = t7 * t61;
620 t63 = t16 * rho[0];
621 t65 = 0.1e1 / t17 / t63;
622 t67 = t15 * sigma[0] * t65;
623 t73 = -0.5e1 / 0.12e2 * t15 * tau[0] * t19 + t67 / 0.108e3;
624 t76 = t73 * t10;
625 t79 = t33 * t65;
626 t82 = t42 * t16;
627 t84 = 0.1e1 / t8 / t82;
628 t88 = -0.10e2 / 0.729e3 * t67 + 0.292e3 / 0.2025e4 * t29 * t73 - 0.73e2 / 0.9720e4 * t76 * t34 + 0.73e2 / 0.3645e4 * t32 * t79 - 0.12218258133820165151e-2 * t40 * t41 * t84;
629 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
630 vrho[0] = -t54 / 0.2e1 - 0.24240600000000000000e0 * t59 * t62 * t88;
631
632 t94 = t14 * t19;
633 t95 = t32 * t94;
634 t98 = t40 * t45 * sigma[0];
635 t100 = 0.5e1 / 0.972e3 * t15 * t19 - 0.146e3 / 0.18225e5 * t95 + 0.48426206913576876746e-3 * t98;
636 t101 = t62 * t100;
637 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
638 vsigma[0] = -0.24240600000000000000e0 * t59 * t101;
639
640 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
641 vlapl[0] = 0.0e0;
642
643 t104 = t14 * t24;
644 t112 = 0.73e2 / 0.2025e4 * t32 * t104 - 0.73e2 / 0.38880e5 * t40 / t8 / t42 * sigma[0];
645 t113 = t62 * t112;
646 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
647 vtau[0] = -0.24240600000000000000e0 * t59 * t113;
648
649 #ifndef XC_DONT_COMPILE_FXC
650
651 if(order < 2) return;
652
653
654 t116 = 0.1e1 / t17;
655 t121 = t5 * t7;
656 t122 = t8 * t61;
657 t127 = 0.1e1 / t60 / t49;
658 t128 = t7 * t127;
659 t129 = t88 * t88;
660 t134 = 0.1e1 / t17 / t42;
661 t136 = t15 * sigma[0] * t134;
662 t138 = t73 * t73;
663 t144 = 0.10e2 / 0.9e1 * t15 * tau[0] * t65 - 0.11e2 / 0.324e3 * t136;
664 t147 = t144 * t10;
665 t152 = t33 * t134;
666 t157 = 0.1e1 / t8 / t42 / t63;
667 t161 = 0.110e3 / 0.2187e4 * t136 + 0.292e3 / 0.2025e4 * t138 + 0.292e3 / 0.2025e4 * t29 * t144 - 0.73e2 / 0.9720e4 * t147 * t34 + 0.146e3 / 0.3645e4 * t76 * t79 - 0.803e3 / 0.10935e5 * t32 * t152 + 0.77382301514194379290e-2 * t40 * t41 * t157;
668 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
669 v2rho2[0] = -t5 * t7 * t116 * t52 / 0.6e1 - 0.64641600000000000000e0 * t121 * t122 * t88 + 0.48481200000000000000e0 * t59 * t128 * t129 - 0.24240600000000000000e0 * t59 * t62 * t161;
670
671 t165 = t8 * t2;
672 t166 = t165 * t4;
673 t169 = t100 * t88;
674 t170 = t128 * t169;
675 t175 = t76 * t94;
676 t177 = t14 * t65;
677 t178 = t32 * t177;
678 t181 = t40 * t84 * sigma[0];
679 t183 = -0.10e2 / 0.729e3 * t15 * t65 - 0.146e3 / 0.18225e5 * t175 + 0.1168e4 / 0.54675e5 * t178 - 0.25827310353907667598e-2 * t181;
680 t184 = t62 * t183;
681 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
682 v2rhosigma[0] = -0.32320800000000000000e0 * t166 * t101 + 0.48481200000000000000e0 * t59 * t170 - 0.24240600000000000000e0 * t59 * t184;
683
684 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
685 v2rholapl[0] = 0.0e0;
686
687 t190 = t128 * t112 * t88;
688 t197 = 0.73e2 / 0.2025e4 * t76 * t104 - 0.73e2 / 0.1215e4 * t95 + 0.949e3 / 0.116640e6 * t98;
689 t198 = t62 * t197;
690 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
691 v2rhotau[0] = -0.32320800000000000000e0 * t166 * t113 + 0.48481200000000000000e0 * t59 * t190 - 0.24240600000000000000e0 * t59 * t198;
692
693 t201 = t100 * t100;
694 t202 = t128 * t201;
695 t206 = 0.1e1 / t42 * t2;
696 t208 = t62 * t40;
697 t209 = t206 * t4 * t208;
698 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
699 v2sigma2[0] = 0.48481200000000000000e0 * t59 * t202 - 0.12413076775643956714e-3 * t209;
700
701 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
702 v2sigmalapl[0] = 0.0e0;
703
704 t212 = t128 * t112 * t100;
705 t216 = 0.1e1 / t63 * t2;
706 t218 = t216 * t4 * t208;
707 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
708 v2sigmatau[0] = 0.48481200000000000000e0 * t59 * t212 + 0.48547703703703703704e-3 * t218;
709
710 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
711 v2lapl2[0] = 0.0e0;
712
713 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
714 v2lapltau[0] = 0.0e0;
715
716 t220 = t112 * t112;
717 t221 = t128 * t220;
718 t225 = 0.1e1 / t16 * t2;
719 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
720 v2tau2[0] = 0.48481200000000000000e0 * t59 * t221 - 0.21846466666666666667e-2 * t225 * t4 * t208;
721
722 #ifndef XC_DONT_COMPILE_KXC
723
724 if(order < 3) return;
725
726
727 t233 = t116 * t61;
728 t237 = t8 * t127;
729 t244 = t60 * t60;
730 t245 = 0.1e1 / t244;
731 t246 = t7 * t245;
732 t247 = t129 * t88;
733 t251 = t88 * t161;
734 t256 = 0.1e1 / t17 / t43;
735 t258 = t15 * sigma[0] * t256;
736 t266 = -0.110e3 / 0.27e2 * t15 * tau[0] * t134 + 0.77e2 / 0.486e3 * t258;
737 t269 = t266 * t10;
738 t276 = t33 * t256;
739 t279 = t42 * t42;
740 t281 = 0.1e1 / t8 / t279;
741 t285 = -0.1540e4 / 0.6561e4 * t258 + 0.292e3 / 0.675e3 * t73 * t144 + 0.292e3 / 0.2025e4 * t29 * t266 - 0.73e2 / 0.9720e4 * t269 * t34 + 0.73e2 / 0.1215e4 * t147 * t79 - 0.803e3 / 0.3645e4 * t76 * t152 + 0.11242e5 / 0.32805e5 * t32 * t276 - 0.56747021110409211479e-1 * t40 * t41 * t281;
742 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
743 v3rho3[0] = t5 * t7 * t24 * t52 / 0.9e1 - 0.32320800000000000000e0 * t121 * t233 * t88 + 0.19392480000000000000e1 * t121 * t237 * t129 - 0.96962400000000000000e0 * t121 * t122 * t161 - 0.14544360000000000000e1 * t59 * t246 * t247 + 0.14544360000000000000e1 * t59 * t128 * t251 - 0.24240600000000000000e0 * t59 * t62 * t285;
744
745 t290 = t116 * t2 * t4;
746 t297 = t100 * t129;
747 t298 = t246 * t297;
748 t301 = t183 * t88;
749 t302 = t128 * t301;
750 t305 = t100 * t161;
751 t306 = t128 * t305;
752 t311 = t147 * t94;
753 t313 = t76 * t177;
754 t315 = t14 * t134;
755 t316 = t32 * t315;
756 t319 = t40 * t157 * sigma[0];
757 t321 = 0.110e3 / 0.2187e4 * t15 * t134 - 0.146e3 / 0.18225e5 * t311 + 0.2336e4 / 0.54675e5 * t313 - 0.12848e5 / 0.164025e6 * t316 + 0.16357296557474856145e-1 * t319;
758 t322 = t62 * t321;
759 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
760 v3rho2sigma[0] = -0.10773600000000000000e0 * t290 * t101 + 0.12928320000000000000e1 * t166 * t170 - 0.64641600000000000000e0 * t166 * t184 - 0.14544360000000000000e1 * t59 * t298 + 0.96962400000000000000e0 * t59 * t302 + 0.48481200000000000000e0 * t59 * t306 - 0.24240600000000000000e0 * t59 * t322;
761
762 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
763 v3rho2lapl[0] = 0.0e0;
764
765 t332 = t246 * t112 * t129;
766 t335 = t197 * t88;
767 t336 = t128 * t335;
768 t340 = t128 * t112 * t161;
769 t348 = 0.73e2 / 0.2025e4 * t147 * t104 - 0.146e3 / 0.1215e4 * t175 + 0.584e3 / 0.3645e4 * t178 - 0.949e3 / 0.21870e5 * t181;
770 t349 = t62 * t348;
771 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
772 v3rho2tau[0] = -0.10773600000000000000e0 * t290 * t113 + 0.12928320000000000000e1 * t166 * t190 - 0.64641600000000000000e0 * t166 * t198 - 0.14544360000000000000e1 * t59 * t332 + 0.96962400000000000000e0 * t59 * t336 + 0.48481200000000000000e0 * t59 * t340 - 0.24240600000000000000e0 * t59 * t349;
773
774 t354 = t201 * t88;
775 t355 = t246 * t354;
776 t358 = t100 * t183;
777 t359 = t128 * t358;
778 t363 = 0.1e1 / t43 * t2;
779 t365 = t363 * t4 * t208;
780 t367 = t4 * t7;
781 t368 = t206 * t367;
782 t369 = t127 * t37;
783 t371 = t369 * t39 * t88;
784 t372 = t368 * t371;
785 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
786 v3rhosigma2[0] = 0.64641600000000000000e0 * t166 * t202 - 0.14544360000000000000e1 * t59 * t355 + 0.96962400000000000000e0 * t59 * t359 + 0.49652307102575826856e-3 * t365 + 0.24826153551287913428e-3 * t372;
787
788 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
789 v3rhosigmalapl[0] = 0.0e0;
790
791 t376 = t58 * t367;
792 t377 = t245 * t112;
793 t378 = t377 * t169;
794 t381 = t197 * t100;
795 t382 = t128 * t381;
796 t386 = t128 * t112 * t183;
797 t390 = t216 * t367;
798 t391 = t390 * t371;
799 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
800 v3rhosigmatau[0] = 0.64641600000000000000e0 * t166 * t212 - 0.14544360000000000000e1 * t376 * t378 + 0.48481200000000000000e0 * t59 * t382 + 0.48481200000000000000e0 * t59 * t386 - 0.14564311111111111111e-2 * t209 - 0.97095407407407407408e-3 * t391;
801
802 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
803 v3rholapl2[0] = 0.0e0;
804
805 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
806 v3rholapltau[0] = 0.0e0;
807
808 t396 = t246 * t220 * t88;
809 t400 = t128 * t112 * t197;
810 t404 = t225 * t367;
811 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
812 v3rhotau2[0] = 0.64641600000000000000e0 * t166 * t221 - 0.14544360000000000000e1 * t59 * t396 + 0.96962400000000000000e0 * t59 * t400 + 0.43692933333333333334e-2 * t218 + 0.43692933333333333334e-2 * t404 * t371;
813
814 t407 = t201 * t100;
815 t408 = t246 * t407;
816 t412 = t127 * t100 * t40;
817 t413 = t368 * t412;
818 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
819 v3sigma3[0] = -0.14544360000000000000e1 * t59 * t408 + 0.74478460653863740284e-3 * t413;
820
821 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
822 v3sigma2lapl[0] = 0.0e0;
823
824 t416 = t246 * t112 * t201;
825 t419 = t390 * t412;
826 t422 = t127 * t112 * t40;
827 t423 = t368 * t422;
828 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
829 v3sigma2tau[0] = -0.14544360000000000000e1 * t59 * t416 - 0.19419081481481481482e-2 * t419 + 0.24826153551287913427e-3 * t423;
830
831 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
832 v3sigmalapl2[0] = 0.0e0;
833
834 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
835 v3sigmalapltau[0] = 0.0e0;
836
837 t426 = t246 * t220 * t100;
838 t429 = t390 * t422;
839 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
840 v3sigmatau2[0] = -0.14544360000000000000e1 * t59 * t426 - 0.19419081481481481481e-2 * t429 + 0.43692933333333333334e-2 * t404 * t412;
841
842 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
843 v3lapl3[0] = 0.0e0;
844
845 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
846 v3lapl2tau[0] = 0.0e0;
847
848 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
849 v3lapltau2[0] = 0.0e0;
850
851 t433 = t220 * t112;
852 t434 = t246 * t433;
853 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
854 v3tau3[0] = -0.14544360000000000000e1 * t59 * t434 + 0.13107880000000000000e-1 * t404 * t422;
855
856 #ifndef XC_DONT_COMPILE_LXC
857
858 if(order < 4) return;
859
860
861 t465 = 0.1e1 / t244 / t49;
862 t466 = t7 * t465;
863 t467 = t129 * t129;
864 t475 = t161 * t161;
865 t484 = 0.1e1 / t17 / t82;
866 t486 = t15 * sigma[0] * t484;
867 t488 = t144 * t144;
868 t496 = 0.1540e4 / 0.81e2 * t15 * tau[0] * t256 - 0.1309e4 / 0.1458e4 * t486;
869 t513 = 0.1e1 / t8 / t279 / rho[0];
870 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
871 v4rho4[0] = -0.5e1 / 0.27e2 * t5 * t7 * t19 * t52 + 0.28729600000000000000e0 * t121 * t24 * t61 * t88 + 0.12928320000000000000e1 * t121 * t116 * t127 * t129 - 0.64641600000000000000e0 * t121 * t233 * t161 - 0.77569920000000000000e1 * t121 * t8 * t245 * t247 + 0.77569920000000000000e1 * t121 * t237 * t251 - 0.12928320000000000000e1 * t121 * t122 * t285 + 0.58177440000000000000e1 * t59 * t466 * t467 - 0.87266160000000000000e1 * t59 * t246 * t129 * t161 + 0.14544360000000000000e1 * t59 * t128 * t475 + 0.19392480000000000000e1 * t59 * t128 * t88 * t285 - 0.24240600000000000000e0 * t59 * t62 * (0.26180e5 / 0.19683e5 * t486 + 0.292e3 / 0.675e3 * t488 + 0.1168e4 / 0.2025e4 * t73 * t266 + 0.292e3 / 0.2025e4 * t29 * t496 - 0.73e2 / 0.9720e4 * t496 * t10 * t34 + 0.292e3 / 0.3645e4 * t269 * t79 - 0.1606e4 / 0.3645e4 * t147 * t152 + 0.44968e5 / 0.32805e5 * t76 * t276 - 0.191114e6 / 0.98415e5 * t32 * t33 * t484 + 0.47289184258674342899e0 * t40 * t41 * t513);
872
873 t564 = t24 * t2 * t4;
874 t575 = t245 * t100;
875 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
876 v4rho3sigma[0] = -0.24240600000000000000e0 * t59 * t62 * (-0.1540e4 / 0.6561e4 * t15 * t256 - 0.146e3 / 0.18225e5 * t269 * t94 + 0.1168e4 / 0.18225e5 * t147 * t177 - 0.12848e5 / 0.54675e5 * t76 * t315 + 0.179872e6 / 0.492075e6 * t32 * t14 * t256 - 0.11995350808814894506e0 * t40 * t281 * sigma[0]) - 0.96962400000000000000e0 * t166 * t322 - 0.32320800000000000000e0 * t290 * t184 + 0.38784960000000000000e1 * t166 * t302 + 0.19392480000000000000e1 * t166 * t306 - 0.43633080000000000000e1 * t59 * t246 * t183 * t129 + 0.14544360000000000000e1 * t59 * t128 * t321 * t88 + 0.14544360000000000000e1 * t59 * t128 * t183 * t161 + 0.48481200000000000000e0 * t59 * t128 * t100 * t285 + 0.71824000000000000000e-1 * t564 * t101 + 0.64641600000000000000e0 * t290 * t170 - 0.58177440000000000000e1 * t166 * t298 + 0.58177440000000000000e1 * t59 * t466 * t100 * t247 - 0.43633080000000000000e1 * t376 * t575 * t251;
877
878 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
879 v4rho3lapl[0] = 0.0e0;
880
881 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
882 v4rho3tau[0] = -0.24240600000000000000e0 * t59 * t62 * (0.73e2 / 0.2025e4 * t269 * t104 - 0.73e2 / 0.405e3 * t311 + 0.584e3 / 0.1215e4 * t313 - 0.6424e4 / 0.10935e5 * t316 + 0.18031e5 / 0.65610e5 * t319) - 0.96962400000000000000e0 * t166 * t349 - 0.32320800000000000000e0 * t290 * t198 - 0.43633080000000000000e1 * t59 * t246 * t197 * t129 + 0.14544360000000000000e1 * t59 * t128 * t348 * t88 + 0.14544360000000000000e1 * t59 * t128 * t197 * t161 + 0.48481200000000000000e0 * t59 * t128 * t112 * t285 + 0.71824000000000000000e-1 * t564 * t113 + 0.64641600000000000000e0 * t290 * t190 + 0.38784960000000000000e1 * t166 * t336 + 0.19392480000000000000e1 * t166 * t340 - 0.58177440000000000000e1 * t166 * t332 + 0.58177440000000000000e1 * t59 * t466 * t112 * t247 - 0.43633080000000000000e1 * t376 * t377 * t251;
883
884 t643 = t183 * t183;
885 t656 = t363 * t367;
886 t661 = t245 * t37 * t39 * t129;
887 t665 = t369 * t39 * t161;
888 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
889 v4rho2sigma2[0] = 0.21547200000000000000e0 * t290 * t202 - 0.38784960000000000000e1 * t166 * t355 + 0.25856640000000000000e1 * t166 * t359 + 0.58177440000000000000e1 * t59 * t466 * t201 * t129 - 0.58177440000000000000e1 * t376 * t575 * t301 - 0.14544360000000000000e1 * t59 * t246 * t201 * t161 + 0.96962400000000000000e0 * t59 * t128 * t643 + 0.96962400000000000000e0 * t59 * t128 * t100 * t321 - 0.24826153551287913428e-2 / t82 * t2 * t4 * t208 - 0.19860922841030330742e-2 * t656 * t371 - 0.74478460653863740284e-3 * t368 * t661 + 0.24826153551287913428e-3 * t368 * t665;
890
891 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
892 v4rho2sigmalapl[0] = 0.0e0;
893
894 t677 = t465 * t112;
895 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
896 v4rho2sigmatau[0] = 0.21547200000000000000e0 * t290 * t212 - 0.38784960000000000000e1 * t165 * t367 * t378 + 0.12928320000000000000e1 * t166 * t382 + 0.12928320000000000000e1 * t166 * t386 + 0.58177440000000000000e1 * t376 * t677 * t297 - 0.29088720000000000000e1 * t376 * t245 * t197 * t169 - 0.29088720000000000000e1 * t376 * t377 * t301 - 0.14544360000000000000e1 * t376 * t377 * t305 + 0.48481200000000000000e0 * t59 * t128 * t348 * t100 + 0.96962400000000000000e0 * t59 * t128 * t197 * t183 + 0.48481200000000000000e0 * t59 * t128 * t112 * t321 + 0.58257244444444444444e-2 * t365 + 0.58257244444444444444e-2 * t372 + 0.29128622222222222222e-2 * t390 * t661 - 0.97095407407407407408e-3 * t390 * t665;
897
898 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
899 v4rho2lapl2[0] = 0.0e0;
900
901 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
902 v4rho2lapltau[0] = 0.0e0;
903
904 t726 = t197 * t197;
905 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
906 v4rho2tau2[0] = 0.21547200000000000000e0 * t290 * t221 - 0.38784960000000000000e1 * t166 * t396 + 0.25856640000000000000e1 * t166 * t400 + 0.58177440000000000000e1 * t59 * t466 * t220 * t129 - 0.58177440000000000000e1 * t376 * t377 * t335 - 0.14544360000000000000e1 * t59 * t246 * t220 * t161 + 0.96962400000000000000e0 * t59 * t128 * t726 + 0.96962400000000000000e0 * t59 * t128 * t112 * t348 - 0.13107880000000000000e-1 * t209 - 0.17477173333333333334e-1 * t391 - 0.13107880000000000000e-1 * t404 * t661 + 0.43692933333333333334e-2 * t404 * t665;
907
908 t752 = t40 * t88;
909 t753 = t575 * t752;
910 t757 = t127 * t183 * t40;
911 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
912 v4rhosigma3[0] = -0.19392480000000000000e1 * t166 * t408 + 0.58177440000000000000e1 * t59 * t466 * t407 * t88 - 0.43633080000000000000e1 * t59 * t246 * t201 * t183 - 0.29791384261545496114e-2 * t656 * t412 - 0.22343538196159122085e-2 * t368 * t753 + 0.74478460653863740284e-3 * t368 * t757;
913
914 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
915 v4rhosigma2lapl[0] = 0.0e0;
916
917 t779 = t377 * t752;
918 t783 = t127 * t197 * t40;
919 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
920 v4rhosigma2tau[0] = -0.19392480000000000000e1 * t166 * t416 + 0.58177440000000000000e1 * t376 * t677 * t354 - 0.14544360000000000000e1 * t59 * t246 * t197 * t201 - 0.29088720000000000000e1 * t376 * t377 * t358 + 0.58257244444444444446e-2 * t413 + 0.58257244444444444446e-2 * t390 * t753 - 0.19419081481481481482e-2 * t390 * t757 - 0.99304614205151653708e-3 * t656 * t422 - 0.74478460653863740281e-3 * t368 * t779 + 0.24826153551287913427e-3 * t368 * t783;
921
922 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
923 v4rhosigmalapl2[0] = 0.0e0;
924
925 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
926 v4rhosigmalapltau[0] = 0.0e0;
927
928 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
929 v4rhosigmatau2[0] = -0.19392480000000000000e1 * t166 * t426 + 0.58177440000000000000e1 * t376 * t465 * t220 * t169 - 0.29088720000000000000e1 * t376 * t377 * t381 - 0.14544360000000000000e1 * t59 * t246 * t220 * t183 + 0.58257244444444444443e-2 * t423 + 0.58257244444444444443e-2 * t390 * t779 - 0.19419081481481481481e-2 * t390 * t783 - 0.87385866666666666668e-2 * t419 - 0.13107880000000000000e-1 * t404 * t753 + 0.43692933333333333334e-2 * t404 * t757;
930
931 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
932 v4rholapl3[0] = 0.0e0;
933
934 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
935 v4rholapl2tau[0] = 0.0e0;
936
937 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
938 v4rholapltau2[0] = 0.0e0;
939
940 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
941 v4rhotau3[0] = -0.19392480000000000000e1 * t166 * t434 + 0.58177440000000000000e1 * t59 * t466 * t433 * t88 - 0.43633080000000000000e1 * t59 * t246 * t220 * t197 - 0.26215760000000000000e-1 * t429 - 0.39323640000000000000e-1 * t404 * t779 + 0.13107880000000000000e-1 * t404 * t783;
942
943 t824 = t201 * t201;
944 t829 = t245 * t201 * t40;
945 t834 = t11 * t11;
946 t838 = t128 * t10 / t13 / t834;
947 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
948 v4sigma4[0] = 0.58177440000000000000e1 * t59 * t466 * t824 - 0.44687076392318244169e-2 * t368 * t829 + 0.22883266508952456952e-5 * t513 * t2 * t4 * t838;
949
950 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
951 v4sigma3lapl[0] = 0.0e0;
952
953 t849 = t377 * t100 * t37 * t39;
954 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
955 v4sigma3tau[0] = 0.58177440000000000000e1 * t59 * t466 * t112 * t407 + 0.87385866666666666668e-2 * t390 * t829 - 0.22343538196159122085e-2 * t368 * t849 - 0.89496751073778650876e-5 * t281 * t2 * t4 * t838;
956
957 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
958 v4sigma2lapl2[0] = 0.0e0;
959
960 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
961 v4sigma2lapltau[0] = 0.0e0;
962
963 t863 = t245 * t220 * t40;
964 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
965 v4sigma2tau2[0] = 0.58177440000000000000e1 * t59 * t466 * t220 * t201 + 0.11651448888888888889e-1 * t390 * t849 - 0.74478460653863740282e-3 * t368 * t863 + 0.36759376005069236283e-4 * t157 * t2 * t4 * t838 - 0.13107880000000000000e-1 * t404 * t829;
966
967 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
968 v4sigmalapl3[0] = 0.0e0;
969
970 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
971 v4sigmalapl2tau[0] = 0.0e0;
972
973 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
974 v4sigmalapltau2[0] = 0.0e0;
975
976 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
977 v4sigmatau3[0] = 0.58177440000000000000e1 * t59 * t466 * t433 * t100 + 0.87385866666666666667e-2 * t390 * t863 - 0.39323640000000000000e-1 * t404 * t849 - 0.15751032757201646091e-3 * t84 * t2 * t4 * t838;
978
979 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
980 v4lapl4[0] = 0.0e0;
981
982 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
983 v4lapl3tau[0] = 0.0e0;
984
985 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
986 v4lapl2tau2[0] = 0.0e0;
987
988 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
989 v4lapltau3[0] = 0.0e0;
990
991 t884 = t220 * t220;
992 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
993 v4tau4[0] = 0.58177440000000000000e1 * t59 * t466 * t884 - 0.78647280000000000000e-1 * t404 * t863 + 0.70879647407407407407e-3 * t45 * t2 * t4 * t838;
994
995 #ifndef XC_DONT_COMPILE_MXC
996
997 if(order < 5) return;
998
999
1000 #endif
1001
1002 #endif
1003
1004 #endif
1005
1006 #endif
1007
1008 #endif
1009
1010
1011 }
1012
1013
1014 static inline void
func_pol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))1015 func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
1016 {
1017
1018 #ifndef XC_DONT_COMPILE_EXC
1019 double t2, t4, t5, t6, t7, t8, t9, t10;
1020 double t11, t12, t14, t15, t16, t17, t18, t19;
1021 double t20, t21, t22, t23, t24, t25, t26, t27;
1022 double t29, t31, t34, t39, t40, t42, t43, t44;
1023 double t47, t49, t50, t51, t52, t53, t55, t59;
1024 double t62, t64, t66, t67, t68, t69, t70, t71;
1025 double t72, t74, t76, t79, t84, t85, t87, t88;
1026 double t89, t92, t93, t94, t96, t100, t103, t105;
1027
1028 #ifndef XC_DONT_COMPILE_VXC
1029 double t107, t108, t109, t110, t111, t112, t114, t115;
1030 double t117, t118, t119, t120, t121, t123, t124, t125;
1031 double t126, t127, t129, t131, t137, t140, t143, t146;
1032 double t148, t152, t153, t155, t156, t157, t158, t159;
1033 double t161, t162, t163, t165, t166, t170, t171, t173;
1034 double t174, t175, t176, t178, t179, t180, t181, t182;
1035 double t184, t186, t192, t195, t198, t201, t203, t207;
1036 double t208, t210, t211, t215, t216, t217, t220, t221;
1037 double t224, t226, t227, t231, t234, t235, t238, t240;
1038 double t241, t245, t249, t253, t254, t258, t262, t266;
1039 double t267;
1040
1041 #ifndef XC_DONT_COMPILE_FXC
1042 double t271, t273, t274, t275, t276, t277, t278, t280;
1043 double t281, t282, t284, t285, t286, t287, t288, t289;
1044 double t291, t292, t293, t294, t295, t296, t297, t299;
1045 double t300, t302, t303, t305, t306, t308, t309, t311;
1046 double t312, t313, t315, t316, t318, t320, t322, t328;
1047 double t331, t336, t339, t341, t345, t346, t348, t349;
1048 double t350, t351, t352, t353, t354, t356, t357, t358;
1049 double t360, t361, t362, t363, t365, t366, t367, t369;
1050 double t370, t371, t374, t375, t376, t378, t381, t383;
1051 double t385, t388, t389, t390, t392, t397, t398, t399;
1052 double t401, t404, t406, t407, t409, t412, t413, t414;
1053 double t415, t417, t420, t422, t425, t426, t428, t429;
1054 double t430, t431, t432, t434, t435, t436, t437, t439;
1055 double t440, t441, t442, t444, t445, t446, t447, t449;
1056 double t450, t451, t453, t454, t455, t457, t458, t460;
1057 double t462, t464, t470, t473, t478, t481, t483, t487;
1058 double t488, t490, t491, t492, t496, t497, t498, t499;
1059 double t500, t504, t505, t511, t513, t514, t517, t519;
1060 double t520, t526, t527, t528, t532, t533, t536, t537;
1061 double t540, t541, t542, t547, t549, t550, t553, t555;
1062 double t557, t562, t563, t567, t575, t576, t582, t583;
1063 double t587, t588, t591, t592, t595, t596, t603, t605;
1064 double t608, t610, t613, t614, t615, t616, t618, t620;
1065 double t623, t624, t625, t626, t628, t629, t632, t633;
1066 double t634, t636, t637, t640, t641, t642, t644, t646;
1067 double t650, t651, t652, t655, t657, t661, t662, t663;
1068
1069 #ifndef XC_DONT_COMPILE_KXC
1070 double t666, t668, t669, t670, t672, t673, t674, t676;
1071 double t678, t680, t681, t682, t684, t685, t686, t687;
1072 double t689, t690, t691, t692, t694, t695, t696, t698;
1073 double t699, t700, t702, t703, t704, t706, t707, t709;
1074 double t711, t719, t722, t729, t732, t734, t738, t739;
1075 double t741, t742, t744, t746, t747, t748, t749, t751;
1076 double t752, t754, t755, t757, t759, t760, t762, t763;
1077 double t765, t766, t768, t771, t772, t773, t774, t776;
1078 double t777, t778, t780, t782, t784, t785, t787, t789;
1079 double t790, t791, t792, t794, t795, t797, t798, t799;
1080 double t800, t802, t803, t804, t806, t808, t810, t811;
1081 double t812, t817, t819, t825, t826, t828, t830, t832;
1082 double t834, t836, t837, t838, t840, t842, t843, t845;
1083 double t848, t849, t851, t853, t855, t856, t858, t859;
1084 double t861, t863, t865, t866, t867, t868, t870, t872;
1085 double t874, t876, t878, t881, t882, t883, t885, t887;
1086 double t889, t892, t894, t896, t898, t901, t904, t905;
1087 double t907, t910, t913, t915, t917, t920, t931, t935;
1088 double t936, t937, t939, t942, t943, t944, t946, t948;
1089 double t950, t952, t954, t956, t958, t960, t961, t963;
1090 double t965, t967, t969, t971, t973, t975, t977, t979;
1091 double t981, t983, t985, t987, t990, t992, t994, t996;
1092 double t998, t999, t1001, t1003, t1004, t1006, t1009, t1012;
1093 double t1015, t1018, t1021, t1024, t1034, t1037, t1042, t1043;
1094 double t1045, t1046, t1047, t1049, t1050, t1051, t1052, t1054;
1095 double t1055, t1056, t1058, t1059, t1060, t1062, t1063, t1064;
1096 double t1066, t1067, t1068, t1070, t1071, t1073, t1074, t1075;
1097 double t1076, t1078, t1079, t1080, t1081, t1083, t1084, t1085;
1098 double t1086, t1087, t1089, t1090, t1092, t1093, t1095, t1096;
1099 double t1098, t1100, t1108, t1111, t1118, t1121, t1123, t1127;
1100 double t1128, t1130, t1131, t1132, t1133, t1135, t1136, t1143;
1101 double t1144, t1145, t1146, t1158, t1162, t1164, t1167, t1169;
1102 double t1170, t1174, t1175, t1179, t1183, t1187, t1188, t1192;
1103 double t1196, t1202, t1204, t1206, t1207, t1210, t1212, t1213;
1104 double t1218, t1222, t1223, t1224, t1228, t1235, t1236, t1237;
1105 double t1239, t1240, t1243, t1244, t1247, t1248, t1251, t1252;
1106 double t1253, t1254, t1258, t1260, t1261, t1264, t1265, t1268;
1107 double t1270, t1271, t1272, t1275, t1276, t1279, t1283, t1284;
1108 double t1287, t1288, t1294, t1295, t1298, t1299, t1302, t1303;
1109 double t1306, t1307, t1310, t1311, t1312, t1315, t1316, t1319;
1110 double t1320, t1325, t1327, t1329, t1330, t1333, t1335, t1337;
1111 double t1341, t1345, t1347, t1350, t1352, t1356, t1360, t1364;
1112 double t1368, t1372, t1376, t1385, t1386, t1391, t1395, t1396;
1113 double t1400, t1407, t1410, t1414, t1417, t1418, t1421, t1422;
1114 double t1426, t1429, t1432, t1433, t1436, t1439, t1442, t1445;
1115 double t1449, t1450, t1453, t1454, t1460, t1461, t1465, t1468;
1116 double t1469, t1472, t1473, t1476, t1477, t1480, t1481, t1484;
1117 double t1485, t1493, t1495, t1499, t1500, t1501, t1505, t1509;
1118 double t1512, t1513, t1514, t1515, t1516, t1517, t1518, t1519;
1119 double t1520, t1522, t1523, t1524, t1525, t1526, t1527, t1529;
1120 double t1530, t1531, t1534, t1536, t1539, t1540, t1541, t1542;
1121 double t1543, t1544, t1545, t1546, t1547, t1549, t1550, t1553;
1122 double t1554, t1555, t1557, t1558, t1561, t1562, t1565, t1566;
1123 double t1569, t1570, t1571, t1573, t1574, t1575, t1576, t1577;
1124 double t1578, t1580, t1581, t1582, t1585, t1587, t1591, t1594;
1125 double t1595, t1598, t1599, t1602, t1603, t1604, t1605, t1606;
1126 double t1607, t1609, t1610, t1611, t1615, t1617, t1620, t1621;
1127 double t1622, t1623, t1624, t1625, t1628, t1631, t1632, t1633;
1128 double t1636, t1640, t1643, t1644, t1647, t1648, t1651, t1652;
1129 double t1653, t1655, t1656, t1657, t1661, t1662, t1663, t1667;
1130 double t1671, t1675, t1676, t1677, t1678, t1681, t1682, t1687;
1131 double t1689, t1693, t1694, t1695, t1696, t1699, t1700, t1703;
1132 double t1704, t1707, t1708, t1711, t1712, t1715, t1716, t1719;
1133 double t1720, t1723, t1724, t1728, t1730, t1733, t1734, t1735;
1134 double t1737, t1739, t1742, t1743, t1744, t1746, t1747, t1751;
1135 double t1752, t1754, t1755, t1756, t1758, t1759, t1763, t1764;
1136 double t1766, t1767, t1768, t1770, t1771, t1774, t1775, t1777;
1137 double t1778, t1781, t1782, t1785, t1786, t1788, t1789, t1792;
1138 double t1794, t1797, t1800, t1802, t1805;
1139
1140 #ifndef XC_DONT_COMPILE_LXC
1141 double t1816, t1817, t1821, t1843, t1845, t1847, t1848, t1849;
1142 double t1854, t1856, t1859, t1862, t1865, t1868, t1870, t1872;
1143 double t1874, t1880, t1883, t1885, t1887, t1890, t1892, t1894;
1144 double t1902, t1917, t1929, t1937, t1939, t1941, t1942, t1943;
1145 double t1948, t1950, t1952, t1954, t1956, t1962, t1965, t1966;
1146 double t1971, t1976, t1978, t1980, t1982, t1990, t1994, t1999;
1147 double t2009, t2027, t2029, t2031, t2033, t2035, t2037, t2052;
1148 double t2059, t2062, t2065, t2079, t2083, t2085, t2088, t2111;
1149 double t2135, t2137, t2139, t2142, t2145, t2158, t2160, t2167;
1150 double t2173, t2175, t2190, t2191, t2193, t2216, t2222, t2228;
1151 double t2231, t2233, t2235, t2239, t2240, t2242, t2248, t2256;
1152 double t2257, t2258, t2260, t2262, t2264, t2265, t2267, t2280;
1153 double t2283, t2289, t2296, t2298, t2303, t2307, t2309, t2311;
1154 double t2317, t2324, t2330, t2346, t2361, t2371, t2393, t2423;
1155 double t2435, t2446, t2458, t2474, t2481, t2488, t2494, t2496;
1156 double t2502, t2504, t2511, t2514, t2517, t2519, t2530, t2533;
1157 double t2536, t2539, t2544, t2550, t2553, t2559, t2562, t2565;
1158 double t2572, t2582, t2584, t2595, t2603, t2625, t2630, t2636;
1159 double t2645, t2651, t2699, t2709, t2712, t2715, t2718, t2721;
1160 double t2724, t2728, t2733, t2774, t2807, t2817, t2820, t2827;
1161 double t2834, t2837, t2840, t2843, t2845, t2849, t2862, t2888;
1162 double t2890, t2892, t2900, t2915, t2927, t2937, t2942, t2943;
1163 double t2948, t2954, t2955, t2960, t2965, t2978, t3016, t3048;
1164 double t3052, t3066, t3068, t3081, t3087, t3091, t3112, t3115;
1165 double t3118, t3120, t3125, t3139, t3142, t3145, t3148, t3151;
1166 double t3173, t3179, t3181, t3183, t3186, t3189, t3193, t3194;
1167 double t3208, t3229, t3231, t3250, t3251, t3260, t3261, t3262;
1168 double t3265, t3266, t3271, t3282, t3287, t3295, t3296, t3299;
1169 double t3304, t3319, t3322, t3327, t3330, t3338, t3356, t3375;
1170 double t3383, t3389, t3415, t3416, t3432, t3434, t3436, t3438;
1171 double t3440, t3442, t3446, t3524, t3545, t3562, t3600, t3603;
1172 double t3606, t3609, t3612, t3618, t3624, t3659, t3661, t3664;
1173 double t3671, t3674, t3677, t3679, t3681, t3684, t3687, t3691;
1174 double t3708, t3711, t3721, t3738, t3744, t3746, t3772, t3774;
1175 double t3783, t3786, t3795, t3799, t3804, t3807, t3826, t3844;
1176 double t3886, t3908, t3910, t3912, t3913, t3915, t3917, t3919;
1177 double t3929, t3931, t4004, t4038, t4039, t4045, t4046, t4048;
1178 double t4049, t4063, t4068, t4089, t4095, t4096, t4110, t4112;
1179 double t4114, t4124, t4130, t4131, t4133, t4134, t4145, t4146;
1180 double t4147, t4160, t4181, t4183, t4184, t4197, t4203, t4213;
1181 double t4219, t4226, t4228, t4229, t4234, t4239, t4240, t4242;
1182 double t4248, t4250, t4285, t4313, t4345, t4350, t4366, t4370;
1183 double t4372, t4382, t4384, t4394, t4420, t4422, t4423, t4425;
1184 double t4441, t4443, t4444, t4455, t4456, t4470, t4493, t4495;
1185 double t4510, t4519, t4521, t4525, t4531, t4538, t4540, t4549;
1186 double t4619, t4654, t4670, t4672, t4694, t4696, t4709, t4711;
1187 double t4713, t4726, t4727, t4732, t4734, t4735, t4746, t4747;
1188 double t4760, t4781, t4783, t4798, t4808, t4814, t4821, t4823;
1189 double t4832, t4895, t4921, t4926, t4928, t4942, t4943, t4960;
1190 double t4966, t4967, t5006, t5024, t5025, t5030, t5041, t5042;
1191 double t5046, t5050, t5058, t5064, t5065, t5071, t5072, t5107;
1192 double t5120, t5124, t5132, t5150, t5162, t5163, t5178, t5184;
1193 double t5189, t5190, t5246, t5260, t5272, t5278, t5311, t5320;
1194 double t5323, t5331, t5355, t5373, t5390, t5411, t5457, t5469;
1195 #endif
1196
1197 #endif
1198
1199 #endif
1200
1201 #endif
1202
1203 #endif
1204
1205
1206
1207 t2 = M_CBRT3;
1208 t4 = POW_1_3(0.1e1 / M_PI);
1209 t5 = t2 * t4;
1210 t6 = M_CBRT4;
1211 t7 = t6 * t6;
1212 t8 = t5 * t7;
1213 t9 = rho[0] - rho[1];
1214 t10 = rho[0] + rho[1];
1215 t11 = 0.1e1 / t10;
1216 t12 = t9 * t11;
1217 t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
1218 t15 = POW_1_3(t14);
1219 t16 = t15 * t14;
1220 t17 = POW_1_3(t10);
1221 t18 = t16 * t17;
1222 t19 = M_CBRT6;
1223 t20 = M_PI * M_PI;
1224 t21 = POW_1_3(t20);
1225 t22 = t21 * t21;
1226 t23 = 0.1e1 / t22;
1227 t24 = t19 * t23;
1228 t25 = rho[0] * rho[0];
1229 t26 = POW_1_3(rho[0]);
1230 t27 = t26 * t26;
1231 t29 = 0.1e1 / t27 / t25;
1232 t31 = t24 * sigma[0] * t29;
1233 t34 = 0.1e1 / t27 / rho[0];
1234 t39 = t24 * tau[0] * t34 / 0.4e1 - 0.9e1 / 0.20e2 - t31 / 0.288e3;
1235 t40 = t39 * t39;
1236 t42 = t39 * t19;
1237 t43 = t23 * sigma[0];
1238 t44 = t43 * t29;
1239 t47 = t19 * t19;
1240 t49 = 0.1e1 / t21 / t20;
1241 t50 = t47 * t49;
1242 t51 = sigma[0] * sigma[0];
1243 t52 = t25 * t25;
1244 t53 = t52 * rho[0];
1245 t55 = 0.1e1 / t26 / t53;
1246 t59 = 0.804e0 + 0.5e1 / 0.972e3 * t31 + 0.146e3 / 0.2025e4 * t40 - 0.73e2 / 0.9720e4 * t42 * t44 + 0.22909234000912809658e-3 * t50 * t51 * t55;
1247 t62 = 0.1804e1 - 0.646416e0 / t59;
1248 t64 = t8 * t18 * t62;
1249 t66 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
1250 t67 = POW_1_3(t66);
1251 t68 = t67 * t66;
1252 t69 = t68 * t17;
1253 t70 = rho[1] * rho[1];
1254 t71 = POW_1_3(rho[1]);
1255 t72 = t71 * t71;
1256 t74 = 0.1e1 / t72 / t70;
1257 t76 = t24 * sigma[2] * t74;
1258 t79 = 0.1e1 / t72 / rho[1];
1259 t84 = t24 * tau[1] * t79 / 0.4e1 - 0.9e1 / 0.20e2 - t76 / 0.288e3;
1260 t85 = t84 * t84;
1261 t87 = t84 * t19;
1262 t88 = t23 * sigma[2];
1263 t89 = t88 * t74;
1264 t92 = sigma[2] * sigma[2];
1265 t93 = t70 * t70;
1266 t94 = t93 * rho[1];
1267 t96 = 0.1e1 / t71 / t94;
1268 t100 = 0.804e0 + 0.5e1 / 0.972e3 * t76 + 0.146e3 / 0.2025e4 * t85 - 0.73e2 / 0.9720e4 * t87 * t89 + 0.22909234000912809658e-3 * t50 * t92 * t96;
1269 t103 = 0.1804e1 - 0.646416e0 / t100;
1270 t105 = t8 * t69 * t103;
1271 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1272 zk[0] = -0.3e1 / 0.8e1 * t64 - 0.3e1 / 0.8e1 * t105;
1273
1274 #ifndef XC_DONT_COMPILE_VXC
1275
1276 if(order < 1) return;
1277
1278
1279 t107 = 0.3e1 / 0.8e1 * t64;
1280 t108 = 0.3e1 / 0.8e1 * t105;
1281 t109 = t15 * t17;
1282 t110 = t10 * t10;
1283 t111 = 0.1e1 / t110;
1284 t112 = t9 * t111;
1285 t114 = t11 / 0.2e1 - t112 / 0.2e1;
1286 t115 = t62 * t114;
1287 t117 = t8 * t109 * t115;
1288 t118 = t117 / 0.2e1;
1289 t119 = t17 * t17;
1290 t120 = 0.1e1 / t119;
1291 t121 = t16 * t120;
1292 t123 = t8 * t121 * t62;
1293 t124 = t123 / 0.8e1;
1294 t125 = t59 * t59;
1295 t126 = 0.1e1 / t125;
1296 t127 = t25 * rho[0];
1297 t129 = 0.1e1 / t27 / t127;
1298 t131 = t24 * sigma[0] * t129;
1299 t137 = -0.5e1 / 0.12e2 * t24 * tau[0] * t29 + t131 / 0.108e3;
1300 t140 = t137 * t19;
1301 t143 = t43 * t129;
1302 t146 = t52 * t25;
1303 t148 = 0.1e1 / t26 / t146;
1304 t152 = -0.10e2 / 0.729e3 * t131 + 0.292e3 / 0.2025e4 * t39 * t137 - 0.73e2 / 0.9720e4 * t140 * t44 + 0.73e2 / 0.3645e4 * t42 * t143 - 0.12218258133820165151e-2 * t50 * t51 * t148;
1305 t153 = t126 * t152;
1306 t155 = t8 * t18 * t153;
1307 t156 = 0.24240600000000000000e0 * t155;
1308 t157 = t67 * t17;
1309 t158 = -t114;
1310 t159 = t103 * t158;
1311 t161 = t8 * t157 * t159;
1312 t162 = t161 / 0.2e1;
1313 t163 = t68 * t120;
1314 t165 = t8 * t163 * t103;
1315 t166 = t165 / 0.8e1;
1316 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1317 vrho[0] = -t107 - t108 + t10 * (-t118 - t124 - t156 - t162 - t166);
1318
1319 t170 = -t11 / 0.2e1 - t112 / 0.2e1;
1320 t171 = t62 * t170;
1321 t173 = t8 * t109 * t171;
1322 t174 = t173 / 0.2e1;
1323 t175 = -t170;
1324 t176 = t103 * t175;
1325 t178 = t8 * t157 * t176;
1326 t179 = t178 / 0.2e1;
1327 t180 = t100 * t100;
1328 t181 = 0.1e1 / t180;
1329 t182 = t70 * rho[1];
1330 t184 = 0.1e1 / t72 / t182;
1331 t186 = t24 * sigma[2] * t184;
1332 t192 = -0.5e1 / 0.12e2 * t24 * tau[1] * t74 + t186 / 0.108e3;
1333 t195 = t192 * t19;
1334 t198 = t88 * t184;
1335 t201 = t93 * t70;
1336 t203 = 0.1e1 / t71 / t201;
1337 t207 = -0.10e2 / 0.729e3 * t186 + 0.292e3 / 0.2025e4 * t84 * t192 - 0.73e2 / 0.9720e4 * t195 * t89 + 0.73e2 / 0.3645e4 * t87 * t198 - 0.12218258133820165151e-2 * t50 * t92 * t203;
1338 t208 = t181 * t207;
1339 t210 = t8 * t69 * t208;
1340 t211 = 0.24240600000000000000e0 * t210;
1341 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1342 vrho[1] = -t107 - t108 + t10 * (-t174 - t124 - t179 - t166 - t211);
1343
1344 t215 = t17 * t10 * t2;
1345 t216 = t215 * t4;
1346 t217 = t7 * t16;
1347 t220 = t23 * t29;
1348 t221 = t42 * t220;
1349 t224 = t50 * t55 * sigma[0];
1350 t226 = 0.5e1 / 0.972e3 * t24 * t29 - 0.146e3 / 0.18225e5 * t221 + 0.48426206913576876746e-3 * t224;
1351 t227 = t126 * t226;
1352 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1353 vsigma[0] = -0.24240600000000000000e0 * t216 * t217 * t227;
1354
1355 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1356 vsigma[1] = 0.0e0;
1357
1358 t231 = t7 * t68;
1359 t234 = t23 * t74;
1360 t235 = t87 * t234;
1361 t238 = t50 * t96 * sigma[2];
1362 t240 = 0.5e1 / 0.972e3 * t24 * t74 - 0.146e3 / 0.18225e5 * t235 + 0.48426206913576876746e-3 * t238;
1363 t241 = t181 * t240;
1364 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1365 vsigma[2] = -0.24240600000000000000e0 * t216 * t231 * t241;
1366
1367 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1368 vlapl[0] = 0.0e0;
1369
1370 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1371 vlapl[1] = 0.0e0;
1372
1373 t245 = t23 * t34;
1374 t249 = 0.1e1 / t26 / t52;
1375 t253 = 0.73e2 / 0.2025e4 * t42 * t245 - 0.73e2 / 0.38880e5 * t50 * t249 * sigma[0];
1376 t254 = t126 * t253;
1377 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1378 vtau[0] = -0.24240600000000000000e0 * t216 * t217 * t254;
1379
1380 t258 = t23 * t79;
1381 t262 = 0.1e1 / t71 / t93;
1382 t266 = 0.73e2 / 0.2025e4 * t87 * t258 - 0.73e2 / 0.38880e5 * t50 * t262 * sigma[2];
1383 t267 = t181 * t266;
1384 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1385 vtau[1] = -0.24240600000000000000e0 * t216 * t231 * t267;
1386
1387 #ifndef XC_DONT_COMPILE_FXC
1388
1389 if(order < 2) return;
1390
1391
1392 t271 = t123 / 0.4e1;
1393 t273 = t165 / 0.4e1;
1394 t274 = t15 * t15;
1395 t275 = 0.1e1 / t274;
1396 t276 = t275 * t17;
1397 t277 = t114 * t114;
1398 t278 = t62 * t277;
1399 t280 = t8 * t276 * t278;
1400 t281 = t280 / 0.6e1;
1401 t282 = t15 * t120;
1402 t284 = t8 * t282 * t115;
1403 t285 = t284 / 0.3e1;
1404 t286 = t7 * t15;
1405 t287 = t5 * t286;
1406 t288 = t17 * t126;
1407 t289 = t152 * t114;
1408 t291 = t287 * t288 * t289;
1409 t292 = 0.64641600000000000000e0 * t291;
1410 t293 = t110 * t10;
1411 t294 = 0.1e1 / t293;
1412 t295 = t9 * t294;
1413 t296 = -t111 + t295;
1414 t297 = t62 * t296;
1415 t299 = t8 * t109 * t297;
1416 t300 = t299 / 0.2e1;
1417 t302 = 0.1e1 / t119 / t10;
1418 t303 = t16 * t302;
1419 t305 = t8 * t303 * t62;
1420 t306 = t305 / 0.12e2;
1421 t308 = t8 * t121 * t153;
1422 t309 = 0.16160400000000000000e0 * t308;
1423 t311 = 0.1e1 / t125 / t59;
1424 t312 = t152 * t152;
1425 t313 = t311 * t312;
1426 t315 = t8 * t18 * t313;
1427 t316 = 0.48481200000000000000e0 * t315;
1428 t318 = 0.1e1 / t27 / t52;
1429 t320 = t24 * sigma[0] * t318;
1430 t322 = t137 * t137;
1431 t328 = 0.10e2 / 0.9e1 * t24 * tau[0] * t129 - 0.11e2 / 0.324e3 * t320;
1432 t331 = t328 * t19;
1433 t336 = t43 * t318;
1434 t339 = t52 * t127;
1435 t341 = 0.1e1 / t26 / t339;
1436 t345 = 0.110e3 / 0.2187e4 * t320 + 0.292e3 / 0.2025e4 * t322 + 0.292e3 / 0.2025e4 * t39 * t328 - 0.73e2 / 0.9720e4 * t331 * t44 + 0.146e3 / 0.3645e4 * t140 * t143 - 0.803e3 / 0.10935e5 * t42 * t336 + 0.77382301514194379290e-2 * t50 * t51 * t341;
1437 t346 = t126 * t345;
1438 t348 = t8 * t18 * t346;
1439 t349 = 0.24240600000000000000e0 * t348;
1440 t350 = t67 * t67;
1441 t351 = 0.1e1 / t350;
1442 t352 = t351 * t17;
1443 t353 = t158 * t158;
1444 t354 = t103 * t353;
1445 t356 = t8 * t352 * t354;
1446 t357 = t356 / 0.6e1;
1447 t358 = t67 * t120;
1448 t360 = t8 * t358 * t159;
1449 t361 = t360 / 0.3e1;
1450 t362 = -t296;
1451 t363 = t103 * t362;
1452 t365 = t8 * t157 * t363;
1453 t366 = t365 / 0.2e1;
1454 t367 = t68 * t302;
1455 t369 = t8 * t367 * t103;
1456 t370 = t369 / 0.12e2;
1457 t371 = -t281 - t285 - t292 - t300 + t306 - t309 + t316 - t349 - t357 - t361 - t366 + t370;
1458 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1459 v2rho2[0] = -t117 - t271 - 0.48481200000000000000e0 * t155 - t161 - t273 + t10 * t371;
1460
1461 t374 = t5 * t7 * t275;
1462 t375 = t17 * t62;
1463 t376 = t170 * t114;
1464 t378 = t374 * t375 * t376;
1465 t381 = t8 * t282 * t171;
1466 t383 = t152 * t170;
1467 t385 = t287 * t288 * t383;
1468 t388 = 0.1e1 / t119 / t110;
1469 t389 = t15 * t388;
1470 t390 = t62 * t9;
1471 t392 = t8 * t389 * t390;
1472 t397 = t5 * t7 * t351;
1473 t398 = t17 * t103;
1474 t399 = t175 * t158;
1475 t401 = t397 * t398 * t399;
1476 t404 = t8 * t358 * t176;
1477 t406 = t67 * t388;
1478 t407 = t103 * t9;
1479 t409 = t8 * t406 * t407;
1480 t412 = t7 * t67;
1481 t413 = t5 * t412;
1482 t414 = t17 * t181;
1483 t415 = t207 * t158;
1484 t417 = t413 * t414 * t415;
1485 t420 = t8 * t163 * t208;
1486 t422 = -t378 / 0.6e1 - t381 / 0.6e1 - 0.32320800000000000000e0 * t385 - t392 / 0.2e1 - t284 / 0.6e1 + t306 - 0.80802000000000000000e-1 * t308 - t401 / 0.6e1 - t404 / 0.6e1 + t409 / 0.2e1 - t360 / 0.6e1 + t370 - 0.32320800000000000000e0 * t417 - 0.80802000000000000000e-1 * t420;
1487 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1488 v2rho2[1] = t10 * t422 - t118 - t156 - t162 - t174 - t179 - t211 - t271 - t273;
1489
1490 t425 = t170 * t170;
1491 t426 = t62 * t425;
1492 t428 = t8 * t276 * t426;
1493 t429 = t428 / 0.6e1;
1494 t430 = t381 / 0.3e1;
1495 t431 = t111 + t295;
1496 t432 = t62 * t431;
1497 t434 = t8 * t109 * t432;
1498 t435 = t434 / 0.2e1;
1499 t436 = t175 * t175;
1500 t437 = t103 * t436;
1501 t439 = t8 * t352 * t437;
1502 t440 = t439 / 0.6e1;
1503 t441 = t404 / 0.3e1;
1504 t442 = t207 * t175;
1505 t444 = t413 * t414 * t442;
1506 t445 = 0.64641600000000000000e0 * t444;
1507 t446 = -t431;
1508 t447 = t103 * t446;
1509 t449 = t8 * t157 * t447;
1510 t450 = t449 / 0.2e1;
1511 t451 = 0.16160400000000000000e0 * t420;
1512 t453 = 0.1e1 / t180 / t100;
1513 t454 = t207 * t207;
1514 t455 = t453 * t454;
1515 t457 = t8 * t69 * t455;
1516 t458 = 0.48481200000000000000e0 * t457;
1517 t460 = 0.1e1 / t72 / t93;
1518 t462 = t24 * sigma[2] * t460;
1519 t464 = t192 * t192;
1520 t470 = 0.10e2 / 0.9e1 * t24 * tau[1] * t184 - 0.11e2 / 0.324e3 * t462;
1521 t473 = t470 * t19;
1522 t478 = t88 * t460;
1523 t481 = t93 * t182;
1524 t483 = 0.1e1 / t71 / t481;
1525 t487 = 0.110e3 / 0.2187e4 * t462 + 0.292e3 / 0.2025e4 * t464 + 0.292e3 / 0.2025e4 * t84 * t470 - 0.73e2 / 0.9720e4 * t473 * t89 + 0.146e3 / 0.3645e4 * t195 * t198 - 0.803e3 / 0.10935e5 * t87 * t478 + 0.77382301514194379290e-2 * t50 * t92 * t483;
1526 t488 = t181 * t487;
1527 t490 = t8 * t69 * t488;
1528 t491 = 0.24240600000000000000e0 * t490;
1529 t492 = -t429 - t430 - t435 + t306 - t440 - t441 - t445 - t450 + t370 - t451 + t458 - t491;
1530 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1531 v2rho2[2] = -t173 - t271 - t178 - t273 - 0.48481200000000000000e0 * t210 + t10 * t492;
1532
1533 t496 = 0.32320800000000000000e0 * t8 * t18 * t227;
1534 t497 = t4 * t7;
1535 t498 = t215 * t497;
1536 t499 = t15 * t126;
1537 t500 = t226 * t114;
1538 t504 = t16 * t311;
1539 t505 = t226 * t152;
1540 t511 = t140 * t220;
1541 t513 = t23 * t129;
1542 t514 = t42 * t513;
1543 t517 = t50 * t148 * sigma[0];
1544 t519 = -0.10e2 / 0.729e3 * t24 * t129 - 0.146e3 / 0.18225e5 * t511 + 0.1168e4 / 0.54675e5 * t514 - 0.25827310353907667598e-2 * t517;
1545 t520 = t126 * t519;
1546 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1547 v2rhosigma[0] = -t496 - 0.32320800000000000000e0 * t498 * t499 * t500 + 0.48481200000000000000e0 * t498 * t504 * t505 - 0.24240600000000000000e0 * t216 * t217 * t520;
1548
1549 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1550 v2rhosigma[1] = 0.0e0;
1551
1552 t526 = 0.32320800000000000000e0 * t8 * t69 * t241;
1553 t527 = t67 * t181;
1554 t528 = t240 * t158;
1555 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1556 v2rhosigma[2] = -t526 - 0.32320800000000000000e0 * t498 * t527 * t528;
1557
1558 t532 = t226 * t170;
1559 t533 = t499 * t532;
1560 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1561 v2rhosigma[3] = -t496 - 0.32320800000000000000e0 * t498 * t533;
1562
1563 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1564 v2rhosigma[4] = 0.0e0;
1565
1566 t536 = t240 * t175;
1567 t537 = t527 * t536;
1568 t540 = t68 * t453;
1569 t541 = t240 * t207;
1570 t542 = t540 * t541;
1571 t547 = t195 * t234;
1572 t549 = t23 * t184;
1573 t550 = t87 * t549;
1574 t553 = t50 * t203 * sigma[2];
1575 t555 = -0.10e2 / 0.729e3 * t24 * t184 - 0.146e3 / 0.18225e5 * t547 + 0.1168e4 / 0.54675e5 * t550 - 0.25827310353907667598e-2 * t553;
1576 t557 = t231 * t181 * t555;
1577 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1578 v2rhosigma[5] = -t526 - 0.32320800000000000000e0 * t498 * t537 + 0.48481200000000000000e0 * t498 * t542 - 0.24240600000000000000e0 * t216 * t557;
1579
1580 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1581 v2rholapl[0] = 0.0e0;
1582
1583 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1584 v2rholapl[1] = 0.0e0;
1585
1586 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1587 v2rholapl[2] = 0.0e0;
1588
1589 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1590 v2rholapl[3] = 0.0e0;
1591
1592 t562 = 0.32320800000000000000e0 * t8 * t18 * t254;
1593 t563 = t253 * t114;
1594 t567 = t253 * t152;
1595 t575 = 0.73e2 / 0.2025e4 * t140 * t245 - 0.73e2 / 0.1215e4 * t221 + 0.949e3 / 0.116640e6 * t224;
1596 t576 = t126 * t575;
1597 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1598 v2rhotau[0] = -t562 - 0.32320800000000000000e0 * t498 * t499 * t563 + 0.48481200000000000000e0 * t498 * t504 * t567 - 0.24240600000000000000e0 * t216 * t217 * t576;
1599
1600 t582 = 0.32320800000000000000e0 * t8 * t69 * t267;
1601 t583 = t266 * t158;
1602 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1603 v2rhotau[1] = -t582 - 0.32320800000000000000e0 * t498 * t527 * t583;
1604
1605 t587 = t253 * t170;
1606 t588 = t499 * t587;
1607 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1608 v2rhotau[2] = -t562 - 0.32320800000000000000e0 * t498 * t588;
1609
1610 t591 = t266 * t175;
1611 t592 = t527 * t591;
1612 t595 = t266 * t207;
1613 t596 = t540 * t595;
1614 t603 = 0.73e2 / 0.2025e4 * t195 * t258 - 0.73e2 / 0.1215e4 * t235 + 0.949e3 / 0.116640e6 * t238;
1615 t605 = t231 * t181 * t603;
1616 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1617 v2rhotau[3] = -t582 - 0.32320800000000000000e0 * t498 * t592 + 0.48481200000000000000e0 * t498 * t596 - 0.24240600000000000000e0 * t216 * t605;
1618
1619 t608 = t226 * t226;
1620 t610 = t217 * t311 * t608;
1621 t613 = t16 * t126;
1622 t614 = t50 * t55;
1623 t615 = t613 * t614;
1624 t616 = t498 * t615;
1625 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1626 v2sigma2[0] = 0.48481200000000000000e0 * t216 * t610 - 0.12413076775643956714e-3 * t616;
1627
1628 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1629 v2sigma2[1] = 0.0e0;
1630
1631 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1632 v2sigma2[2] = 0.0e0;
1633
1634 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1635 v2sigma2[3] = 0.0e0;
1636
1637 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1638 v2sigma2[4] = 0.0e0;
1639
1640 t618 = t240 * t240;
1641 t620 = t231 * t453 * t618;
1642 t623 = t68 * t181;
1643 t624 = t50 * t96;
1644 t625 = t623 * t624;
1645 t626 = t498 * t625;
1646 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1647 v2sigma2[5] = 0.48481200000000000000e0 * t216 * t620 - 0.12413076775643956714e-3 * t626;
1648
1649 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1650 v2sigmalapl[0] = 0.0e0;
1651
1652 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1653 v2sigmalapl[1] = 0.0e0;
1654
1655 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1656 v2sigmalapl[2] = 0.0e0;
1657
1658 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1659 v2sigmalapl[3] = 0.0e0;
1660
1661 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1662 v2sigmalapl[4] = 0.0e0;
1663
1664 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1665 v2sigmalapl[5] = 0.0e0;
1666
1667 t628 = t253 * t226;
1668 t629 = t504 * t628;
1669 t632 = t50 * t249;
1670 t633 = t613 * t632;
1671 t634 = t498 * t633;
1672 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1673 v2sigmatau[0] = 0.48481200000000000000e0 * t498 * t629 + 0.48547703703703703704e-3 * t634;
1674
1675 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1676 v2sigmatau[1] = 0.0e0;
1677
1678 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1679 v2sigmatau[2] = 0.0e0;
1680
1681 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1682 v2sigmatau[3] = 0.0e0;
1683
1684 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1685 v2sigmatau[4] = 0.0e0;
1686
1687 t636 = t266 * t240;
1688 t637 = t540 * t636;
1689 t640 = t50 * t262;
1690 t641 = t623 * t640;
1691 t642 = t498 * t641;
1692 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1693 v2sigmatau[5] = 0.48481200000000000000e0 * t498 * t637 + 0.48547703703703703704e-3 * t642;
1694
1695 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1696 v2lapl2[0] = 0.0e0;
1697
1698 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1699 v2lapl2[1] = 0.0e0;
1700
1701 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1702 v2lapl2[2] = 0.0e0;
1703
1704 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1705 v2lapltau[0] = 0.0e0;
1706
1707 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1708 v2lapltau[1] = 0.0e0;
1709
1710 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1711 v2lapltau[2] = 0.0e0;
1712
1713 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1714 v2lapltau[3] = 0.0e0;
1715
1716 t644 = t253 * t253;
1717 t646 = t217 * t311 * t644;
1718 t650 = 0.1e1 / t26 / t127;
1719 t651 = t50 * t650;
1720 t652 = t613 * t651;
1721 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1722 v2tau2[0] = 0.48481200000000000000e0 * t216 * t646 - 0.21846466666666666667e-2 * t498 * t652;
1723
1724 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1725 v2tau2[1] = 0.0e0;
1726
1727 t655 = t266 * t266;
1728 t657 = t231 * t453 * t655;
1729 t661 = 0.1e1 / t71 / t182;
1730 t662 = t50 * t661;
1731 t663 = t623 * t662;
1732 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1733 v2tau2[2] = 0.48481200000000000000e0 * t216 * t657 - 0.21846466666666666667e-2 * t498 * t663;
1734
1735 #ifndef XC_DONT_COMPILE_KXC
1736
1737 if(order < 3) return;
1738
1739
1740 t666 = t114 * t296;
1741 t668 = t374 * t375 * t666;
1742 t669 = t668 / 0.2e1;
1743 t670 = t152 * t277;
1744 t672 = t374 * t288 * t670;
1745 t673 = 0.32320800000000000000e0 * t672;
1746 t674 = t120 * t126;
1747 t676 = t287 * t674 * t289;
1748 t678 = t345 * t114;
1749 t680 = t287 * t288 * t678;
1750 t681 = 0.96962400000000000000e0 * t680;
1751 t682 = t152 * t296;
1752 t684 = t287 * t288 * t682;
1753 t685 = 0.96962400000000000000e0 * t684;
1754 t686 = t17 * t311;
1755 t687 = t312 * t114;
1756 t689 = t287 * t686 * t687;
1757 t690 = 0.19392480000000000000e1 * t689;
1758 t691 = t5 * t217;
1759 t692 = t152 * t345;
1760 t694 = t691 * t686 * t692;
1761 t695 = 0.14544360000000000000e1 * t694;
1762 t696 = t158 * t362;
1763 t698 = t397 * t398 * t696;
1764 t699 = t698 / 0.2e1;
1765 t700 = t68 * t388;
1766 t702 = t8 * t700 * t103;
1767 t703 = 0.5e1 / 0.36e2 * t702;
1768 t704 = t16 * t388;
1769 t706 = t8 * t704 * t62;
1770 t707 = 0.5e1 / 0.36e2 * t706;
1771 t709 = 0.1e1 / t27 / t53;
1772 t711 = t24 * sigma[0] * t709;
1773 t719 = -0.110e3 / 0.27e2 * t24 * tau[0] * t318 + 0.77e2 / 0.486e3 * t711;
1774 t722 = t719 * t19;
1775 t729 = t43 * t709;
1776 t732 = t52 * t52;
1777 t734 = 0.1e1 / t26 / t732;
1778 t738 = -0.1540e4 / 0.6561e4 * t711 + 0.292e3 / 0.675e3 * t137 * t328 + 0.292e3 / 0.2025e4 * t39 * t719 - 0.73e2 / 0.9720e4 * t722 * t44 + 0.73e2 / 0.1215e4 * t331 * t143 - 0.803e3 / 0.3645e4 * t140 * t336 + 0.11242e5 / 0.32805e5 * t42 * t729 - 0.56747021110409211479e-1 * t50 * t51 * t734;
1779 t739 = t126 * t738;
1780 t741 = t8 * t18 * t739;
1781 t742 = 0.24240600000000000000e0 * t741;
1782 t744 = t8 * t358 * t363;
1783 t746 = -t669 - t673 - 0.64641600000000000000e0 * t676 - t681 - t685 + t690 + t695 - t699 - t703 - t707 - t742 - t744 / 0.2e1;
1784 t747 = t110 * t110;
1785 t748 = 0.1e1 / t747;
1786 t749 = t9 * t748;
1787 t751 = -0.3e1 * t294 + 0.3e1 * t749;
1788 t752 = t103 * t751;
1789 t754 = t8 * t157 * t752;
1790 t755 = t754 / 0.2e1;
1791 t757 = t8 * t282 * t297;
1792 t759 = -t751;
1793 t760 = t62 * t759;
1794 t762 = t8 * t109 * t760;
1795 t763 = t762 / 0.2e1;
1796 t765 = t8 * t303 * t153;
1797 t766 = 0.16160400000000000000e0 * t765;
1798 t768 = t8 * t121 * t346;
1799 t771 = 0.1e1 / t274 / t14;
1800 t772 = t771 * t17;
1801 t773 = t277 * t114;
1802 t774 = t62 * t773;
1803 t776 = t8 * t772 * t774;
1804 t777 = t776 / 0.9e1;
1805 t778 = t275 * t120;
1806 t780 = t8 * t778 * t278;
1807 t782 = t15 * t302;
1808 t784 = t8 * t782 * t115;
1809 t785 = t784 / 0.3e1;
1810 t787 = t8 * t121 * t313;
1811 t789 = t125 * t125;
1812 t790 = 0.1e1 / t789;
1813 t791 = t312 * t152;
1814 t792 = t790 * t791;
1815 t794 = t8 * t18 * t792;
1816 t795 = 0.14544360000000000000e1 * t794;
1817 t797 = 0.1e1 / t350 / t66;
1818 t798 = t797 * t17;
1819 t799 = t353 * t158;
1820 t800 = t103 * t799;
1821 t802 = t8 * t798 * t800;
1822 t803 = t802 / 0.9e1;
1823 t804 = t351 * t120;
1824 t806 = t8 * t804 * t354;
1825 t808 = t67 * t302;
1826 t810 = t8 * t808 * t159;
1827 t811 = t810 / 0.3e1;
1828 t812 = -t755 - t757 / 0.2e1 - t763 + t766 - 0.24240600000000000000e0 * t768 + t777 - t780 / 0.6e1 + t785 + 0.48481200000000000000e0 * t787 - t795 + t803 - t806 / 0.6e1 + t811;
1829 t817 = t369 / 0.4e1;
1830 t819 = t305 / 0.4e1;
1831 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1832 v3rho3[0] = t10 * (t746 + t812) - 0.72721800000000000000e0 * t348 - 0.3e1 / 0.2e1 * t365 + t817 - 0.3e1 / 0.2e1 * t299 + t819 - 0.48481200000000000000e0 * t308 - t280 / 0.2e1 - t284 - 0.19392480000000000000e1 * t291 + 0.14544360000000000000e1 * t315 - t356 / 0.2e1 - t360;
1833
1834 t825 = t388 * t103;
1835 t826 = t9 * t158;
1836 t828 = t397 * t825 * t826;
1837 t830 = t207 * t353;
1838 t832 = t397 * t414 * t830;
1839 t834 = t120 * t181;
1840 t836 = t413 * t834 * t415;
1841 t837 = 0.21547200000000000000e0 * t836;
1842 t838 = t312 * t170;
1843 t840 = t287 * t686 * t838;
1844 t842 = t388 * t126;
1845 t843 = t152 * t9;
1846 t845 = t287 * t842 * t843;
1847 t848 = t5 * t7 * t797;
1848 t849 = t175 * t353;
1849 t851 = t848 * t398 * t849;
1850 t853 = t120 * t103;
1851 t855 = t397 * t853 * t399;
1852 t856 = t855 / 0.9e1;
1853 t858 = t5 * t7 * t771;
1854 t859 = t170 * t277;
1855 t861 = t858 * t375 * t859;
1856 t863 = t120 * t62;
1857 t865 = t374 * t863 * t376;
1858 t866 = t865 / 0.9e1;
1859 t867 = t388 * t62;
1860 t868 = t9 * t114;
1861 t870 = t374 * t867 * t868;
1862 t872 = t207 * t362;
1863 t874 = t413 * t414 * t872;
1864 t876 = t170 * t296;
1865 t878 = t374 * t375 * t876;
1866 t881 = t287 * t674 * t383;
1867 t882 = 0.21547200000000000000e0 * t881;
1868 t883 = t345 * t170;
1869 t885 = t287 * t288 * t883;
1870 t887 = t175 * t362;
1871 t889 = t397 * t398 * t887;
1872 t892 = t383 * t114;
1873 t894 = t374 * t288 * t892;
1874 t896 = t828 / 0.3e1 - 0.10773600000000000000e0 * t832 - t837 + 0.64641600000000000000e0 * t840 - 0.64641600000000000000e0 * t845 + t851 / 0.9e1 - t856 + t861 / 0.9e1 - t866 - t870 / 0.3e1 - 0.32320800000000000000e0 * t874 - t878 / 0.6e1 - t882 - 0.32320800000000000000e0 * t885 - t889 / 0.6e1 - 0.21547200000000000000e0 * t676 - 0.21547200000000000000e0 * t894;
1875 t898 = t8 * t406 * t103;
1876 t901 = t8 * t389 * t62;
1877 t904 = 0.1e1 / t119 / t293;
1878 t905 = t67 * t904;
1879 t907 = t8 * t905 * t407;
1880 t910 = t8 * t367 * t208;
1881 t913 = t8 * t782 * t171;
1882 t915 = t15 * t904;
1883 t917 = t8 * t915 * t390;
1884 t920 = t8 * t808 * t176;
1885 t931 = t898 / 0.2e1 - t901 / 0.2e1 - t703 - t707 - 0.7e1 / 0.6e1 * t907 + 0.53868000000000000000e-1 * t910 + t913 / 0.9e1 + 0.7e1 / 0.6e1 * t917 + t920 / 0.9e1 - t744 / 0.6e1 - t757 / 0.6e1 + 0.10773600000000000000e0 * t765 - 0.80802000000000000000e-1 * t768 - t780 / 0.18e2 + 0.2e1 / 0.9e1 * t784 + 0.16160400000000000000e0 * t787 - t806 / 0.18e2 + 0.2e1 / 0.9e1 * t810;
1886 t935 = 0.64641600000000000000e0 * t417;
1887 t936 = t378 / 0.3e1;
1888 t937 = t10 * (t896 + t931) + t409 - t349 - t366 + t817 - t300 + t819 - 0.32320800000000000000e0 * t308 - t935 - t451 - t936;
1889 t939 = t401 / 0.3e1;
1890 t942 = -t430 - 0.64641600000000000000e0 * t385 - t392 - t939 - t441 - t281 - 0.2e1 / 0.3e1 * t284 - t292 + t316 - t357 - 0.2e1 / 0.3e1 * t360;
1891 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1892 v3rho3[1] = t937 + t942;
1893
1894 t943 = t17 * t453;
1895 t944 = t454 * t158;
1896 t946 = t413 * t943 * t944;
1897 t948 = t487 * t158;
1898 t950 = t413 * t414 * t948;
1899 t952 = t436 * t158;
1900 t954 = t848 * t398 * t952;
1901 t956 = t175 * t9;
1902 t958 = t397 * t825 * t956;
1903 t960 = t388 * t181;
1904 t961 = t207 * t9;
1905 t963 = t413 * t960 * t961;
1906 t965 = t446 * t158;
1907 t967 = t397 * t398 * t965;
1908 t969 = t425 * t114;
1909 t971 = t858 * t375 * t969;
1910 t973 = t152 * t425;
1911 t975 = t374 * t288 * t973;
1912 t977 = t431 * t114;
1913 t979 = t374 * t375 * t977;
1914 t981 = t152 * t431;
1915 t983 = t287 * t288 * t981;
1916 t985 = t170 * t9;
1917 t987 = t374 * t867 * t985;
1918 t990 = t413 * t834 * t442;
1919 t992 = t442 * t158;
1920 t994 = t397 * t414 * t992;
1921 t996 = 0.64641600000000000000e0 * t946 - 0.32320800000000000000e0 * t950 + t954 / 0.9e1 + t958 / 0.3e1 + 0.64641600000000000000e0 * t963 - t967 / 0.6e1 + t971 / 0.9e1 - 0.10773600000000000000e0 * t975 - t979 / 0.6e1 - 0.32320800000000000000e0 * t983 - t987 / 0.3e1 - 0.21547200000000000000e0 * t990 - t837 - t856 - t866 - t882 - 0.21547200000000000000e0 * t994;
1922 t998 = -t294 - 0.3e1 * t749;
1923 t999 = t62 * t998;
1924 t1001 = t8 * t109 * t999;
1925 t1003 = -t998;
1926 t1004 = t103 * t1003;
1927 t1006 = t8 * t157 * t1004;
1928 t1009 = t8 * t163 * t455;
1929 t1012 = t8 * t163 * t488;
1930 t1015 = t8 * t804 * t437;
1931 t1018 = t8 * t358 * t447;
1932 t1021 = t8 * t778 * t426;
1933 t1024 = t8 * t282 * t432;
1934 t1034 = -t703 - t707 - t1001 / 0.2e1 - t1006 / 0.2e1 + 0.16160400000000000000e0 * t1009 - 0.80802000000000000000e-1 * t1012 - t1015 / 0.18e2 - t1018 / 0.6e1 - t1021 / 0.18e2 - t1024 / 0.6e1 + t907 / 0.3e1 + 0.10773600000000000000e0 * t910 + 0.2e1 / 0.9e1 * t913 - t917 / 0.3e1 + 0.2e1 / 0.9e1 * t920 + 0.53868000000000000000e-1 * t765 + t784 / 0.9e1 + t810 / 0.9e1;
1935 t1037 = t10 * (t996 + t1034) - t435 - t450 - t491 + t409 + t817 + t819 - t309 - t445 + t458 - t935;
1936 t1042 = -0.32320800000000000000e0 * t420 - t429 - t440 - t936 - 0.2e1 / 0.3e1 * t381 - 0.646416e0 * t385 - t392 - t939 - 0.2e1 / 0.3e1 * t404 - t285 - t361;
1937 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1938 v3rho3[2] = t1037 + t1042;
1939
1940 t1043 = t487 * t175;
1941 t1045 = t413 * t414 * t1043;
1942 t1046 = 0.96962400000000000000e0 * t1045;
1943 t1047 = t207 * t446;
1944 t1049 = t413 * t414 * t1047;
1945 t1050 = 0.96962400000000000000e0 * t1049;
1946 t1051 = t5 * t231;
1947 t1052 = t207 * t487;
1948 t1054 = t1051 * t943 * t1052;
1949 t1055 = 0.14544360000000000000e1 * t1054;
1950 t1056 = t170 * t431;
1951 t1058 = t374 * t375 * t1056;
1952 t1059 = t1058 / 0.2e1;
1953 t1060 = t175 * t446;
1954 t1062 = t397 * t398 * t1060;
1955 t1063 = t1062 / 0.2e1;
1956 t1064 = t207 * t436;
1957 t1066 = t397 * t414 * t1064;
1958 t1067 = 0.32320800000000000000e0 * t1066;
1959 t1068 = t454 * t175;
1960 t1070 = t413 * t943 * t1068;
1961 t1071 = 0.19392480000000000000e1 * t1070;
1962 t1073 = t180 * t180;
1963 t1074 = 0.1e1 / t1073;
1964 t1075 = t454 * t207;
1965 t1076 = t1074 * t1075;
1966 t1078 = t8 * t69 * t1076;
1967 t1079 = 0.14544360000000000000e1 * t1078;
1968 t1080 = t425 * t170;
1969 t1081 = t62 * t1080;
1970 t1083 = t8 * t772 * t1081;
1971 t1084 = t1083 / 0.9e1;
1972 t1085 = -t1046 - t1050 + t1055 - t1059 - t1063 - t1067 + t1071 - 0.64641600000000000000e0 * t990 - t703 - t707 - t1079 + t1084;
1973 t1086 = t436 * t175;
1974 t1087 = t103 * t1086;
1975 t1089 = t8 * t798 * t1087;
1976 t1090 = t1089 / 0.9e1;
1977 t1092 = 0.3e1 * t294 + 0.3e1 * t749;
1978 t1093 = t103 * t1092;
1979 t1095 = t8 * t157 * t1093;
1980 t1096 = t1095 / 0.2e1;
1981 t1098 = 0.1e1 / t72 / t94;
1982 t1100 = t24 * sigma[2] * t1098;
1983 t1108 = -0.110e3 / 0.27e2 * t24 * tau[1] * t460 + 0.77e2 / 0.486e3 * t1100;
1984 t1111 = t1108 * t19;
1985 t1118 = t88 * t1098;
1986 t1121 = t93 * t93;
1987 t1123 = 0.1e1 / t71 / t1121;
1988 t1127 = -0.1540e4 / 0.6561e4 * t1100 + 0.292e3 / 0.675e3 * t192 * t470 + 0.292e3 / 0.2025e4 * t84 * t1108 - 0.73e2 / 0.9720e4 * t1111 * t89 + 0.73e2 / 0.1215e4 * t473 * t198 - 0.803e3 / 0.3645e4 * t195 * t478 + 0.11242e5 / 0.32805e5 * t87 * t1118 - 0.56747021110409211479e-1 * t50 * t92 * t1123;
1989 t1128 = t181 * t1127;
1990 t1130 = t8 * t69 * t1128;
1991 t1131 = 0.24240600000000000000e0 * t1130;
1992 t1132 = -t1092;
1993 t1133 = t62 * t1132;
1994 t1135 = t8 * t109 * t1133;
1995 t1136 = t1135 / 0.2e1;
1996 t1143 = 0.16160400000000000000e0 * t910;
1997 t1144 = t913 / 0.3e1;
1998 t1145 = t920 / 0.3e1;
1999 t1146 = t1090 - t1096 - t1131 - t1136 + 0.48481200000000000000e0 * t1009 - 0.24240600000000000000e0 * t1012 - t1015 / 0.6e1 - t1018 / 0.2e1 - t1021 / 0.6e1 - t1024 / 0.2e1 + t1143 + t1144 + t1145;
2000 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2001 v3rho3[3] = t10 * (t1085 + t1146) - 0.3e1 / 0.2e1 * t434 - 0.3e1 / 0.2e1 * t449 - 0.72721800000000000000e0 * t490 + t817 + t819 - 0.19392480000000000000e1 * t444 + 0.14544360000000000000e1 * t457 - 0.48481200000000000000e0 * t420 - t428 / 0.2e1 - t439 / 0.2e1 - t381 - t404;
2002
2003 t1158 = t287 * t288 * t500;
2004 t1162 = 0.10773600000000000000e0 * t8 * t121 * t227;
2005 t1164 = t691 * t686 * t505;
2006 t1167 = t8 * t18 * t520;
2007 t1169 = t275 * t126;
2008 t1170 = t226 * t277;
2009 t1174 = t15 * t311;
2010 t1175 = t500 * t152;
2011 t1179 = t519 * t114;
2012 t1183 = t226 * t296;
2013 t1187 = t16 * t790;
2014 t1188 = t226 * t312;
2015 t1192 = t519 * t152;
2016 t1196 = t226 * t345;
2017 t1202 = t331 * t220;
2018 t1204 = t140 * t513;
2019 t1206 = t23 * t318;
2020 t1207 = t42 * t1206;
2021 t1210 = t50 * t341 * sigma[0];
2022 t1212 = 0.110e3 / 0.2187e4 * t24 * t318 - 0.146e3 / 0.18225e5 * t1202 + 0.2336e4 / 0.54675e5 * t1204 - 0.12848e5 / 0.164025e6 * t1207 + 0.16357296557474856145e-1 * t1210;
2023 t1213 = t126 * t1212;
2024 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2025 v3rho2sigma[0] = -0.86188800000000000000e0 * t1158 - t1162 + 0.12928320000000000000e1 * t1164 - 0.64641600000000000000e0 * t1167 - 0.10773600000000000000e0 * t498 * t1169 * t1170 + 0.12928320000000000000e1 * t498 * t1174 * t1175 - 0.64641600000000000000e0 * t498 * t499 * t1179 - 0.32320800000000000000e0 * t498 * t499 * t1183 - 0.14544360000000000000e1 * t498 * t1187 * t1188 + 0.96962400000000000000e0 * t498 * t504 * t1192 + 0.48481200000000000000e0 * t498 * t504 * t1196 - 0.24240600000000000000e0 * t216 * t217 * t1213;
2026
2027 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2028 v3rho2sigma[1] = 0.0e0;
2029
2030 t1218 = t413 * t414 * t528;
2031 t1222 = 0.10773600000000000000e0 * t8 * t163 * t241;
2032 t1223 = t351 * t181;
2033 t1224 = t240 * t353;
2034 t1228 = t240 * t362;
2035 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2036 v3rho2sigma[2] = -0.86188800000000000000e0 * t1218 - t1222 - 0.10773600000000000000e0 * t498 * t1223 * t1224 - 0.32320800000000000000e0 * t498 * t527 * t1228;
2037
2038 t1235 = t17 * t2;
2039 t1236 = t1235 * t497;
2040 t1237 = t1236 * t533;
2041 t1239 = t532 * t114;
2042 t1240 = t1169 * t1239;
2043 t1243 = t532 * t152;
2044 t1244 = t1174 * t1243;
2045 t1247 = t519 * t170;
2046 t1248 = t499 * t1247;
2047 t1251 = t302 * t2;
2048 t1252 = t1251 * t497;
2049 t1253 = t226 * t9;
2050 t1254 = t499 * t1253;
2051 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2052 v3rho2sigma[3] = -0.43094400000000000000e0 * t1158 - t1162 + 0.64641600000000000000e0 * t1164 - 0.32320800000000000000e0 * t1167 - 0.43094400000000000000e0 * t1237 - 0.10773600000000000000e0 * t498 * t1240 + 0.64641600000000000000e0 * t498 * t1244 - 0.32320800000000000000e0 * t498 * t1248 - 0.32320800000000000000e0 * t1252 * t1254;
2053
2054 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2055 v3rho2sigma[4] = 0.0e0;
2056
2057 t1258 = t1236 * t537;
2058 t1260 = t536 * t158;
2059 t1261 = t1223 * t1260;
2060 t1264 = t240 * t9;
2061 t1265 = t527 * t1264;
2062 t1268 = t1236 * t542;
2063 t1270 = t67 * t453;
2064 t1271 = t541 * t158;
2065 t1272 = t1270 * t1271;
2066 t1275 = t1235 * t4;
2067 t1276 = t1275 * t557;
2068 t1279 = t527 * t555 * t158;
2069 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2070 v3rho2sigma[5] = -0.43094400000000000000e0 * t1218 - t1222 - 0.43094400000000000000e0 * t1258 - 0.10773600000000000000e0 * t498 * t1261 + 0.32320800000000000000e0 * t1252 * t1265 + 0.64641600000000000000e0 * t1268 + 0.64641600000000000000e0 * t498 * t1272 - 0.32320800000000000000e0 * t1276 - 0.32320800000000000000e0 * t498 * t1279;
2071
2072 t1283 = t226 * t425;
2073 t1284 = t1169 * t1283;
2074 t1287 = t226 * t431;
2075 t1288 = t499 * t1287;
2076 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2077 v3rho2sigma[6] = -0.86188800000000000000e0 * t1237 - t1162 - 0.10773600000000000000e0 * t498 * t1284 - 0.32320800000000000000e0 * t498 * t1288;
2078
2079 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2080 v3rho2sigma[7] = 0.0e0;
2081
2082 t1294 = t240 * t436;
2083 t1295 = t1223 * t1294;
2084 t1298 = t536 * t207;
2085 t1299 = t1270 * t1298;
2086 t1302 = t555 * t175;
2087 t1303 = t527 * t1302;
2088 t1306 = t240 * t446;
2089 t1307 = t527 * t1306;
2090 t1310 = t68 * t1074;
2091 t1311 = t240 * t454;
2092 t1312 = t1310 * t1311;
2093 t1315 = t555 * t207;
2094 t1316 = t540 * t1315;
2095 t1319 = t240 * t487;
2096 t1320 = t540 * t1319;
2097 t1325 = t473 * t234;
2098 t1327 = t195 * t549;
2099 t1329 = t23 * t460;
2100 t1330 = t87 * t1329;
2101 t1333 = t50 * t483 * sigma[2];
2102 t1335 = 0.110e3 / 0.2187e4 * t24 * t460 - 0.146e3 / 0.18225e5 * t1325 + 0.2336e4 / 0.54675e5 * t1327 - 0.12848e5 / 0.164025e6 * t1330 + 0.16357296557474856145e-1 * t1333;
2103 t1337 = t231 * t181 * t1335;
2104 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2105 v3rho2sigma[8] = -0.86188800000000000000e0 * t1258 - t1222 + 0.12928320000000000000e1 * t1268 - 0.64641600000000000000e0 * t1276 - 0.10773600000000000000e0 * t498 * t1295 + 0.12928320000000000000e1 * t498 * t1299 - 0.64641600000000000000e0 * t498 * t1303 - 0.32320800000000000000e0 * t498 * t1307 - 0.14544360000000000000e1 * t498 * t1312 + 0.96962400000000000000e0 * t498 * t1316 + 0.48481200000000000000e0 * t498 * t1320 - 0.24240600000000000000e0 * t216 * t1337;
2106
2107 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2108 v3rho2lapl[0] = 0.0e0;
2109
2110 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2111 v3rho2lapl[1] = 0.0e0;
2112
2113 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2114 v3rho2lapl[2] = 0.0e0;
2115
2116 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2117 v3rho2lapl[3] = 0.0e0;
2118
2119 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2120 v3rho2lapl[4] = 0.0e0;
2121
2122 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2123 v3rho2lapl[5] = 0.0e0;
2124
2125 t1341 = t287 * t288 * t563;
2126 t1345 = 0.10773600000000000000e0 * t8 * t121 * t254;
2127 t1347 = t691 * t686 * t567;
2128 t1350 = t8 * t18 * t576;
2129 t1352 = t253 * t277;
2130 t1356 = t563 * t152;
2131 t1360 = t575 * t114;
2132 t1364 = t253 * t296;
2133 t1368 = t253 * t312;
2134 t1372 = t575 * t152;
2135 t1376 = t253 * t345;
2136 t1385 = 0.73e2 / 0.2025e4 * t331 * t245 - 0.146e3 / 0.1215e4 * t511 + 0.584e3 / 0.3645e4 * t514 - 0.949e3 / 0.21870e5 * t517;
2137 t1386 = t126 * t1385;
2138 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2139 v3rho2tau[0] = -0.86188800000000000000e0 * t1341 - t1345 + 0.12928320000000000000e1 * t1347 - 0.64641600000000000000e0 * t1350 - 0.10773600000000000000e0 * t498 * t1169 * t1352 + 0.12928320000000000000e1 * t498 * t1174 * t1356 - 0.64641600000000000000e0 * t498 * t499 * t1360 - 0.32320800000000000000e0 * t498 * t499 * t1364 - 0.14544360000000000000e1 * t498 * t1187 * t1368 + 0.96962400000000000000e0 * t498 * t504 * t1372 + 0.48481200000000000000e0 * t498 * t504 * t1376 - 0.24240600000000000000e0 * t216 * t217 * t1386;
2140
2141 t1391 = t413 * t414 * t583;
2142 t1395 = 0.10773600000000000000e0 * t8 * t163 * t267;
2143 t1396 = t266 * t353;
2144 t1400 = t266 * t362;
2145 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2146 v3rho2tau[1] = -0.86188800000000000000e0 * t1391 - t1395 - 0.10773600000000000000e0 * t498 * t1223 * t1396 - 0.32320800000000000000e0 * t498 * t527 * t1400;
2147
2148 t1407 = t1236 * t588;
2149 t1410 = t1169 * t587 * t114;
2150 t1414 = t1174 * t587 * t152;
2151 t1417 = t575 * t170;
2152 t1418 = t499 * t1417;
2153 t1421 = t253 * t9;
2154 t1422 = t499 * t1421;
2155 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2156 v3rho2tau[2] = -0.43094400000000000000e0 * t1341 - t1345 + 0.64641600000000000000e0 * t1347 - 0.32320800000000000000e0 * t1350 - 0.43094400000000000000e0 * t1407 - 0.10773600000000000000e0 * t498 * t1410 + 0.64641600000000000000e0 * t498 * t1414 - 0.32320800000000000000e0 * t498 * t1418 - 0.32320800000000000000e0 * t1252 * t1422;
2157
2158 t1426 = t1236 * t592;
2159 t1429 = t1223 * t591 * t158;
2160 t1432 = t266 * t9;
2161 t1433 = t527 * t1432;
2162 t1436 = t1236 * t596;
2163 t1439 = t1270 * t595 * t158;
2164 t1442 = t1275 * t605;
2165 t1445 = t527 * t603 * t158;
2166 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2167 v3rho2tau[3] = -0.43094400000000000000e0 * t1391 - t1395 - 0.43094400000000000000e0 * t1426 - 0.10773600000000000000e0 * t498 * t1429 + 0.32320800000000000000e0 * t1252 * t1433 + 0.64641600000000000000e0 * t1436 + 0.64641600000000000000e0 * t498 * t1439 - 0.32320800000000000000e0 * t1442 - 0.32320800000000000000e0 * t498 * t1445;
2168
2169 t1449 = t253 * t425;
2170 t1450 = t1169 * t1449;
2171 t1453 = t253 * t431;
2172 t1454 = t499 * t1453;
2173 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2174 v3rho2tau[4] = -0.86188800000000000000e0 * t1407 - t1345 - 0.10773600000000000000e0 * t498 * t1450 - 0.32320800000000000000e0 * t498 * t1454;
2175
2176 t1460 = t266 * t436;
2177 t1461 = t1223 * t1460;
2178 t1465 = t1270 * t591 * t207;
2179 t1468 = t603 * t175;
2180 t1469 = t527 * t1468;
2181 t1472 = t266 * t446;
2182 t1473 = t527 * t1472;
2183 t1476 = t266 * t454;
2184 t1477 = t1310 * t1476;
2185 t1480 = t603 * t207;
2186 t1481 = t540 * t1480;
2187 t1484 = t266 * t487;
2188 t1485 = t540 * t1484;
2189 t1493 = 0.73e2 / 0.2025e4 * t473 * t258 - 0.146e3 / 0.1215e4 * t547 + 0.584e3 / 0.3645e4 * t550 - 0.949e3 / 0.21870e5 * t553;
2190 t1495 = t231 * t181 * t1493;
2191 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2192 v3rho2tau[5] = -0.86188800000000000000e0 * t1426 - t1395 + 0.12928320000000000000e1 * t1436 - 0.64641600000000000000e0 * t1442 - 0.10773600000000000000e0 * t498 * t1461 + 0.12928320000000000000e1 * t498 * t1465 - 0.64641600000000000000e0 * t498 * t1469 - 0.32320800000000000000e0 * t498 * t1473 - 0.14544360000000000000e1 * t498 * t1477 + 0.96962400000000000000e0 * t498 * t1481 + 0.48481200000000000000e0 * t498 * t1485 - 0.24240600000000000000e0 * t216 * t1495;
2193
2194 t1499 = 0.64641600000000000000e0 * t1275 * t610;
2195 t1500 = t608 * t114;
2196 t1501 = t1174 * t1500;
2197 t1505 = t1187 * t608 * t152;
2198 t1509 = t504 * t226 * t519;
2199 t1512 = t1236 * t615;
2200 t1513 = 0.16550769034191942285e-3 * t1512;
2201 t1514 = t497 * t15;
2202 t1515 = t215 * t1514;
2203 t1516 = t126 * t47;
2204 t1517 = t49 * t55;
2205 t1518 = t1517 * t114;
2206 t1519 = t1516 * t1518;
2207 t1520 = t1515 * t1519;
2208 t1522 = t497 * t16;
2209 t1523 = t215 * t1522;
2210 t1524 = t311 * t47;
2211 t1525 = t1517 * t152;
2212 t1526 = t1524 * t1525;
2213 t1527 = t1523 * t1526;
2214 t1529 = t50 * t148;
2215 t1530 = t613 * t1529;
2216 t1531 = t498 * t1530;
2217 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2218 v3rhosigma2[0] = t1499 + 0.64641600000000000000e0 * t498 * t1501 - 0.14544360000000000000e1 * t498 * t1505 + 0.96962400000000000000e0 * t498 * t1509 - t1513 - 0.16550769034191942285e-3 * t1520 + 0.24826153551287913428e-3 * t1527 + 0.66203076136767769141e-3 * t1531;
2219
2220 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2221 v3rhosigma2[1] = 0.0e0;
2222
2223 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2224 v3rhosigma2[2] = 0.0e0;
2225
2226 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2227 v3rhosigma2[3] = 0.0e0;
2228
2229 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2230 v3rhosigma2[4] = 0.0e0;
2231
2232 t1534 = 0.64641600000000000000e0 * t1275 * t620;
2233 t1536 = t1270 * t618 * t158;
2234 t1539 = t1236 * t625;
2235 t1540 = 0.16550769034191942285e-3 * t1539;
2236 t1541 = t497 * t67;
2237 t1542 = t215 * t1541;
2238 t1543 = t181 * t47;
2239 t1544 = t49 * t96;
2240 t1545 = t1544 * t158;
2241 t1546 = t1543 * t1545;
2242 t1547 = t1542 * t1546;
2243 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2244 v3rhosigma2[5] = t1534 + 0.64641600000000000000e0 * t498 * t1536 - t1540 - 0.16550769034191942285e-3 * t1547;
2245
2246 t1549 = t608 * t170;
2247 t1550 = t1174 * t1549;
2248 t1553 = t1517 * t170;
2249 t1554 = t1516 * t1553;
2250 t1555 = t1515 * t1554;
2251 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2252 v3rhosigma2[6] = t1499 + 0.64641600000000000000e0 * t498 * t1550 - t1513 - 0.16550769034191942285e-3 * t1555;
2253
2254 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2255 v3rhosigma2[7] = 0.0e0;
2256
2257 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2258 v3rhosigma2[8] = 0.0e0;
2259
2260 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2261 v3rhosigma2[9] = 0.0e0;
2262
2263 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2264 v3rhosigma2[10] = 0.0e0;
2265
2266 t1557 = t618 * t175;
2267 t1558 = t1270 * t1557;
2268 t1561 = t618 * t207;
2269 t1562 = t1310 * t1561;
2270 t1565 = t240 * t555;
2271 t1566 = t540 * t1565;
2272 t1569 = t1544 * t175;
2273 t1570 = t1543 * t1569;
2274 t1571 = t1542 * t1570;
2275 t1573 = t497 * t68;
2276 t1574 = t215 * t1573;
2277 t1575 = t453 * t47;
2278 t1576 = t1544 * t207;
2279 t1577 = t1575 * t1576;
2280 t1578 = t1574 * t1577;
2281 t1580 = t50 * t203;
2282 t1581 = t623 * t1580;
2283 t1582 = t498 * t1581;
2284 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2285 v3rhosigma2[11] = t1534 + 0.64641600000000000000e0 * t498 * t1558 - 0.14544360000000000000e1 * t498 * t1562 + 0.96962400000000000000e0 * t498 * t1566 - t1540 - 0.16550769034191942285e-3 * t1571 + 0.24826153551287913428e-3 * t1578 + 0.66203076136767769141e-3 * t1582;
2286
2287 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2288 v3rhosigmalapl[0] = 0.0e0;
2289
2290 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2291 v3rhosigmalapl[1] = 0.0e0;
2292
2293 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2294 v3rhosigmalapl[2] = 0.0e0;
2295
2296 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2297 v3rhosigmalapl[3] = 0.0e0;
2298
2299 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2300 v3rhosigmalapl[4] = 0.0e0;
2301
2302 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2303 v3rhosigmalapl[5] = 0.0e0;
2304
2305 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2306 v3rhosigmalapl[6] = 0.0e0;
2307
2308 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2309 v3rhosigmalapl[7] = 0.0e0;
2310
2311 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2312 v3rhosigmalapl[8] = 0.0e0;
2313
2314 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2315 v3rhosigmalapl[9] = 0.0e0;
2316
2317 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2318 v3rhosigmalapl[10] = 0.0e0;
2319
2320 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2321 v3rhosigmalapl[11] = 0.0e0;
2322
2323 t1585 = 0.64641600000000000000e0 * t1236 * t629;
2324 t1587 = t1174 * t628 * t114;
2325 t1591 = t1187 * t628 * t152;
2326 t1594 = t575 * t226;
2327 t1595 = t504 * t1594;
2328 t1598 = t253 * t519;
2329 t1599 = t504 * t1598;
2330 t1602 = t1236 * t633;
2331 t1603 = 0.64730271604938271605e-3 * t1602;
2332 t1604 = t49 * t249;
2333 t1605 = t1604 * t114;
2334 t1606 = t1516 * t1605;
2335 t1607 = t1515 * t1606;
2336 t1609 = t1604 * t152;
2337 t1610 = t1524 * t1609;
2338 t1611 = t1523 * t1610;
2339 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2340 v3rhosigmatau[0] = t1585 + 0.64641600000000000000e0 * t498 * t1587 - 0.14544360000000000000e1 * t498 * t1591 + 0.48481200000000000000e0 * t498 * t1595 + 0.48481200000000000000e0 * t498 * t1599 + t1603 + 0.64730271604938271605e-3 * t1607 - 0.97095407407407407408e-3 * t1611 - 0.21037338271604938272e-2 * t616;
2341
2342 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2343 v3rhosigmatau[1] = 0.0e0;
2344
2345 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2346 v3rhosigmatau[2] = 0.0e0;
2347
2348 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2349 v3rhosigmatau[3] = 0.0e0;
2350
2351 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2352 v3rhosigmatau[4] = 0.0e0;
2353
2354 t1615 = 0.64641600000000000000e0 * t1236 * t637;
2355 t1617 = t1270 * t636 * t158;
2356 t1620 = t1236 * t641;
2357 t1621 = 0.64730271604938271605e-3 * t1620;
2358 t1622 = t49 * t262;
2359 t1623 = t1622 * t158;
2360 t1624 = t1543 * t1623;
2361 t1625 = t1542 * t1624;
2362 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2363 v3rhosigmatau[5] = t1615 + 0.64641600000000000000e0 * t498 * t1617 + t1621 + 0.64730271604938271605e-3 * t1625;
2364
2365 t1628 = t1174 * t628 * t170;
2366 t1631 = t1604 * t170;
2367 t1632 = t1516 * t1631;
2368 t1633 = t1515 * t1632;
2369 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2370 v3rhosigmatau[6] = t1585 + 0.64641600000000000000e0 * t498 * t1628 + t1603 + 0.64730271604938271605e-3 * t1633;
2371
2372 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2373 v3rhosigmatau[7] = 0.0e0;
2374
2375 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2376 v3rhosigmatau[8] = 0.0e0;
2377
2378 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2379 v3rhosigmatau[9] = 0.0e0;
2380
2381 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2382 v3rhosigmatau[10] = 0.0e0;
2383
2384 t1636 = t1270 * t636 * t175;
2385 t1640 = t1310 * t636 * t207;
2386 t1643 = t603 * t240;
2387 t1644 = t540 * t1643;
2388 t1647 = t266 * t555;
2389 t1648 = t540 * t1647;
2390 t1651 = t1622 * t175;
2391 t1652 = t1543 * t1651;
2392 t1653 = t1542 * t1652;
2393 t1655 = t1622 * t207;
2394 t1656 = t1575 * t1655;
2395 t1657 = t1574 * t1656;
2396 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2397 v3rhosigmatau[11] = t1615 + 0.64641600000000000000e0 * t498 * t1636 - 0.14544360000000000000e1 * t498 * t1640 + 0.48481200000000000000e0 * t498 * t1644 + 0.48481200000000000000e0 * t498 * t1648 + t1621 + 0.64730271604938271605e-3 * t1653 - 0.97095407407407407408e-3 * t1657 - 0.21037338271604938272e-2 * t626;
2398
2399 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2400 v3rholapl2[0] = 0.0e0;
2401
2402 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2403 v3rholapl2[1] = 0.0e0;
2404
2405 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2406 v3rholapl2[2] = 0.0e0;
2407
2408 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2409 v3rholapl2[3] = 0.0e0;
2410
2411 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2412 v3rholapl2[4] = 0.0e0;
2413
2414 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2415 v3rholapl2[5] = 0.0e0;
2416
2417 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2418 v3rholapltau[0] = 0.0e0;
2419
2420 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2421 v3rholapltau[1] = 0.0e0;
2422
2423 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2424 v3rholapltau[2] = 0.0e0;
2425
2426 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2427 v3rholapltau[3] = 0.0e0;
2428
2429 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2430 v3rholapltau[4] = 0.0e0;
2431
2432 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2433 v3rholapltau[5] = 0.0e0;
2434
2435 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2436 v3rholapltau[6] = 0.0e0;
2437
2438 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2439 v3rholapltau[7] = 0.0e0;
2440
2441 t1661 = 0.64641600000000000000e0 * t1275 * t646;
2442 t1662 = t644 * t114;
2443 t1663 = t1174 * t1662;
2444 t1667 = t1187 * t644 * t152;
2445 t1671 = t504 * t253 * t575;
2446 t1675 = 0.29128622222222222223e-2 * t1236 * t652;
2447 t1676 = t49 * t650;
2448 t1677 = t1676 * t114;
2449 t1678 = t1516 * t1677;
2450 t1681 = t1676 * t152;
2451 t1682 = t1524 * t1681;
2452 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2453 v3rhotau2[0] = t1661 + 0.64641600000000000000e0 * t498 * t1663 - 0.14544360000000000000e1 * t498 * t1667 + 0.96962400000000000000e0 * t498 * t1671 - t1675 - 0.29128622222222222223e-2 * t1515 * t1678 + 0.43692933333333333334e-2 * t1523 * t1682 + 0.72821555555555555557e-2 * t634;
2454
2455 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2456 v3rhotau2[1] = 0.0e0;
2457
2458 t1687 = 0.64641600000000000000e0 * t1275 * t657;
2459 t1689 = t1270 * t655 * t158;
2460 t1693 = 0.29128622222222222223e-2 * t1236 * t663;
2461 t1694 = t49 * t661;
2462 t1695 = t1694 * t158;
2463 t1696 = t1543 * t1695;
2464 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2465 v3rhotau2[2] = t1687 + 0.64641600000000000000e0 * t498 * t1689 - t1693 - 0.29128622222222222223e-2 * t1542 * t1696;
2466
2467 t1699 = t644 * t170;
2468 t1700 = t1174 * t1699;
2469 t1703 = t1676 * t170;
2470 t1704 = t1516 * t1703;
2471 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2472 v3rhotau2[3] = t1661 + 0.64641600000000000000e0 * t498 * t1700 - t1675 - 0.29128622222222222223e-2 * t1515 * t1704;
2473
2474 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2475 v3rhotau2[4] = 0.0e0;
2476
2477 t1707 = t655 * t175;
2478 t1708 = t1270 * t1707;
2479 t1711 = t655 * t207;
2480 t1712 = t1310 * t1711;
2481 t1715 = t266 * t603;
2482 t1716 = t540 * t1715;
2483 t1719 = t1694 * t175;
2484 t1720 = t1543 * t1719;
2485 t1723 = t1694 * t207;
2486 t1724 = t1575 * t1723;
2487 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2488 v3rhotau2[5] = t1687 + 0.64641600000000000000e0 * t498 * t1708 - 0.14544360000000000000e1 * t498 * t1712 + 0.96962400000000000000e0 * t498 * t1716 - t1693 - 0.29128622222222222223e-2 * t1542 * t1720 + 0.43692933333333333334e-2 * t1574 * t1724 + 0.72821555555555555557e-2 * t642;
2489
2490 t1728 = t608 * t226;
2491 t1730 = t217 * t790 * t1728;
2492 t1733 = t311 * t226;
2493 t1734 = t1733 * t614;
2494 t1735 = t1523 * t1734;
2495 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2496 v3sigma3[0] = -0.14544360000000000000e1 * t216 * t1730 + 0.74478460653863740284e-3 * t1735;
2497
2498 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2499 v3sigma3[1] = 0.0e0;
2500
2501 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2502 v3sigma3[2] = 0.0e0;
2503
2504 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2505 v3sigma3[3] = 0.0e0;
2506
2507 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2508 v3sigma3[4] = 0.0e0;
2509
2510 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2511 v3sigma3[5] = 0.0e0;
2512
2513 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2514 v3sigma3[6] = 0.0e0;
2515
2516 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2517 v3sigma3[7] = 0.0e0;
2518
2519 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2520 v3sigma3[8] = 0.0e0;
2521
2522 t1737 = t618 * t240;
2523 t1739 = t231 * t1074 * t1737;
2524 t1742 = t453 * t240;
2525 t1743 = t1742 * t624;
2526 t1744 = t1574 * t1743;
2527 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2528 v3sigma3[9] = -0.14544360000000000000e1 * t216 * t1739 + 0.74478460653863740284e-3 * t1744;
2529
2530 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2531 v3sigma2lapl[0] = 0.0e0;
2532
2533 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2534 v3sigma2lapl[1] = 0.0e0;
2535
2536 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2537 v3sigma2lapl[2] = 0.0e0;
2538
2539 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2540 v3sigma2lapl[3] = 0.0e0;
2541
2542 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2543 v3sigma2lapl[4] = 0.0e0;
2544
2545 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2546 v3sigma2lapl[5] = 0.0e0;
2547
2548 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2549 v3sigma2lapl[6] = 0.0e0;
2550
2551 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2552 v3sigma2lapl[7] = 0.0e0;
2553
2554 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2555 v3sigma2lapl[8] = 0.0e0;
2556
2557 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2558 v3sigma2lapl[9] = 0.0e0;
2559
2560 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2561 v3sigma2lapl[10] = 0.0e0;
2562
2563 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2564 v3sigma2lapl[11] = 0.0e0;
2565
2566 t1746 = t253 * t608;
2567 t1747 = t1187 * t1746;
2568 t1751 = t1524 * t1604 * t226;
2569 t1752 = t1523 * t1751;
2570 t1754 = t311 * t253;
2571 t1755 = t1754 * t614;
2572 t1756 = t1523 * t1755;
2573 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2574 v3sigma2tau[0] = -0.14544360000000000000e1 * t498 * t1747 - 0.19419081481481481482e-2 * t1752 + 0.24826153551287913427e-3 * t1756;
2575
2576 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2577 v3sigma2tau[1] = 0.0e0;
2578
2579 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2580 v3sigma2tau[2] = 0.0e0;
2581
2582 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2583 v3sigma2tau[3] = 0.0e0;
2584
2585 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2586 v3sigma2tau[4] = 0.0e0;
2587
2588 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2589 v3sigma2tau[5] = 0.0e0;
2590
2591 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2592 v3sigma2tau[6] = 0.0e0;
2593
2594 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2595 v3sigma2tau[7] = 0.0e0;
2596
2597 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2598 v3sigma2tau[8] = 0.0e0;
2599
2600 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2601 v3sigma2tau[9] = 0.0e0;
2602
2603 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2604 v3sigma2tau[10] = 0.0e0;
2605
2606 t1758 = t266 * t618;
2607 t1759 = t1310 * t1758;
2608 t1763 = t1575 * t1622 * t240;
2609 t1764 = t1574 * t1763;
2610 t1766 = t453 * t266;
2611 t1767 = t1766 * t624;
2612 t1768 = t1574 * t1767;
2613 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2614 v3sigma2tau[11] = -0.14544360000000000000e1 * t498 * t1759 - 0.19419081481481481482e-2 * t1764 + 0.24826153551287913427e-3 * t1768;
2615
2616 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2617 v3sigmalapl2[0] = 0.0e0;
2618
2619 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2620 v3sigmalapl2[1] = 0.0e0;
2621
2622 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2623 v3sigmalapl2[2] = 0.0e0;
2624
2625 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2626 v3sigmalapl2[3] = 0.0e0;
2627
2628 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2629 v3sigmalapl2[4] = 0.0e0;
2630
2631 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2632 v3sigmalapl2[5] = 0.0e0;
2633
2634 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2635 v3sigmalapl2[6] = 0.0e0;
2636
2637 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2638 v3sigmalapl2[7] = 0.0e0;
2639
2640 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2641 v3sigmalapl2[8] = 0.0e0;
2642
2643 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2644 v3sigmalapltau[0] = 0.0e0;
2645
2646 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2647 v3sigmalapltau[1] = 0.0e0;
2648
2649 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2650 v3sigmalapltau[2] = 0.0e0;
2651
2652 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2653 v3sigmalapltau[3] = 0.0e0;
2654
2655 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2656 v3sigmalapltau[4] = 0.0e0;
2657
2658 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2659 v3sigmalapltau[5] = 0.0e0;
2660
2661 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2662 v3sigmalapltau[6] = 0.0e0;
2663
2664 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2665 v3sigmalapltau[7] = 0.0e0;
2666
2667 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2668 v3sigmalapltau[8] = 0.0e0;
2669
2670 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2671 v3sigmalapltau[9] = 0.0e0;
2672
2673 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2674 v3sigmalapltau[10] = 0.0e0;
2675
2676 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2677 v3sigmalapltau[11] = 0.0e0;
2678
2679 t1770 = t644 * t226;
2680 t1771 = t1187 * t1770;
2681 t1774 = t1754 * t632;
2682 t1775 = t1523 * t1774;
2683 t1777 = t1676 * t226;
2684 t1778 = t1524 * t1777;
2685 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2686 v3sigmatau2[0] = -0.14544360000000000000e1 * t498 * t1771 - 0.19419081481481481481e-2 * t1775 + 0.43692933333333333334e-2 * t1523 * t1778;
2687
2688 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2689 v3sigmatau2[1] = 0.0e0;
2690
2691 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2692 v3sigmatau2[2] = 0.0e0;
2693
2694 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2695 v3sigmatau2[3] = 0.0e0;
2696
2697 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2698 v3sigmatau2[4] = 0.0e0;
2699
2700 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2701 v3sigmatau2[5] = 0.0e0;
2702
2703 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2704 v3sigmatau2[6] = 0.0e0;
2705
2706 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2707 v3sigmatau2[7] = 0.0e0;
2708
2709 t1781 = t655 * t240;
2710 t1782 = t1310 * t1781;
2711 t1785 = t1766 * t640;
2712 t1786 = t1574 * t1785;
2713 t1788 = t1694 * t240;
2714 t1789 = t1575 * t1788;
2715 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2716 v3sigmatau2[8] = -0.14544360000000000000e1 * t498 * t1782 - 0.19419081481481481481e-2 * t1786 + 0.43692933333333333334e-2 * t1574 * t1789;
2717
2718 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2719 v3lapl3[0] = 0.0e0;
2720
2721 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2722 v3lapl3[1] = 0.0e0;
2723
2724 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2725 v3lapl3[2] = 0.0e0;
2726
2727 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2728 v3lapl3[3] = 0.0e0;
2729
2730 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2731 v3lapl2tau[0] = 0.0e0;
2732
2733 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2734 v3lapl2tau[1] = 0.0e0;
2735
2736 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2737 v3lapl2tau[2] = 0.0e0;
2738
2739 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2740 v3lapl2tau[3] = 0.0e0;
2741
2742 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2743 v3lapl2tau[4] = 0.0e0;
2744
2745 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2746 v3lapl2tau[5] = 0.0e0;
2747
2748 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2749 v3lapltau2[0] = 0.0e0;
2750
2751 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2752 v3lapltau2[1] = 0.0e0;
2753
2754 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2755 v3lapltau2[2] = 0.0e0;
2756
2757 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2758 v3lapltau2[3] = 0.0e0;
2759
2760 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2761 v3lapltau2[4] = 0.0e0;
2762
2763 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2764 v3lapltau2[5] = 0.0e0;
2765
2766 t1792 = t644 * t253;
2767 t1794 = t217 * t790 * t1792;
2768 t1797 = t1754 * t651;
2769 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2770 v3tau3[0] = -0.14544360000000000000e1 * t216 * t1794 + 0.13107880000000000000e-1 * t1523 * t1797;
2771
2772 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2773 v3tau3[1] = 0.0e0;
2774
2775 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2776 v3tau3[2] = 0.0e0;
2777
2778 t1800 = t655 * t266;
2779 t1802 = t231 * t1074 * t1800;
2780 t1805 = t1766 * t662;
2781 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2782 v3tau3[3] = -0.14544360000000000000e1 * t216 * t1802 + 0.13107880000000000000e-1 * t1574 * t1805;
2783
2784 #ifndef XC_DONT_COMPILE_LXC
2785
2786 if(order < 4) return;
2787
2788
2789 t1816 = 0.5e1 / 0.9e1 * t702;
2790 t1817 = 0.5e1 / 0.9e1 * t706;
2791 t1821 = -0.2e1 * t668 - 0.12928320000000000000e1 * t672 - 0.25856640000000000000e1 * t676 - 0.38784960000000000000e1 * t680 - 0.38784960000000000000e1 * t684 + 0.77569920000000000000e1 * t689 + 0.58177440000000000000e1 * t694 - 0.2e1 * t698 - t1816 - t1817 - 0.96962400000000000000e0 * t741 - 0.2e1 * t744 - 0.2e1 * t754;
2792 t1843 = t8 * t303 * t313;
2793 t1845 = t14 * t14;
2794 t1847 = 0.1e1 / t274 / t1845;
2795 t1848 = t1847 * t17;
2796 t1849 = t277 * t277;
2797 t1854 = t771 * t120;
2798 t1856 = t8 * t1854 * t774;
2799 t1859 = t8 * t121 * t739;
2800 t1862 = t8 * t808 * t363;
2801 t1865 = t8 * t782 * t297;
2802 t1868 = t8 * t282 * t760;
2803 t1870 = t747 * t10;
2804 t1872 = t9 / t1870;
2805 t1874 = -0.12e2 * t748 + 0.12e2 * t1872;
2806 t1880 = t8 * t389 * t115;
2807 t1883 = t8 * t704 * t153;
2808 t1885 = 0.77569920000000000000e1 * t287 * t686 * t678 * t152 - 0.12928320000000000000e1 * t374 * t288 * t289 * t296 - 0.64641600000000000000e0 * t1843 - 0.5e1 / 0.27e2 * t8 * t1848 * t62 * t1849 + 0.4e1 / 0.27e2 * t1856 - 0.32320800000000000000e0 * t1859 + 0.2e1 / 0.3e1 * t1862 + 0.2e1 / 0.3e1 * t1865 - 0.2e1 / 0.3e1 * t1868 - t8 * t109 * t62 * t1874 / 0.2e1 - 0.20e2 / 0.27e2 * t1880 - 0.35912000000000000000e0 * t1883;
2809 t1887 = t8 * t303 * t346;
2810 t1890 = 0.1e1 / t27 / t146;
2811 t1892 = t24 * sigma[0] * t1890;
2812 t1894 = t328 * t328;
2813 t1902 = 0.1540e4 / 0.81e2 * t24 * tau[0] * t709 - 0.1309e4 / 0.1458e4 * t1892;
2814 t1917 = t732 * rho[0];
2815 t1929 = t8 * t358 * t752;
2816 t1937 = t8 * t406 * t159;
2817 t1939 = t66 * t66;
2818 t1941 = 0.1e1 / t350 / t1939;
2819 t1942 = t1941 * t17;
2820 t1943 = t353 * t353;
2821 t1948 = t797 * t120;
2822 t1950 = t8 * t1948 * t800;
2823 t1952 = t351 * t302;
2824 t1954 = t8 * t1952 * t354;
2825 t1956 = t362 * t362;
2826 t1962 = t8 * t121 * t792;
2827 t1965 = 0.1e1 / t789 / t59;
2828 t1966 = t312 * t312;
2829 t1971 = t345 * t345;
2830 t1976 = t275 * t302;
2831 t1978 = t8 * t1976 * t278;
2832 t1980 = 0.32320800000000000000e0 * t1887 - 0.24240600000000000000e0 * t8 * t18 * t126 * (0.26180e5 / 0.19683e5 * t1892 + 0.292e3 / 0.675e3 * t1894 + 0.1168e4 / 0.2025e4 * t137 * t719 + 0.292e3 / 0.2025e4 * t39 * t1902 - 0.73e2 / 0.9720e4 * t1902 * t19 * t44 + 0.292e3 / 0.3645e4 * t722 * t143 - 0.1606e4 / 0.3645e4 * t331 * t336 + 0.44968e5 / 0.32805e5 * t140 * t729 - 0.191114e6 / 0.98415e5 * t42 * t43 * t1890 + 0.47289184258674342899e0 * t50 * t51 / t26 / t1917) - 0.2e1 / 0.3e1 * t1929 + t8 * t157 * t103 * t1874 / 0.2e1 - 0.20e2 / 0.27e2 * t1937 - 0.5e1 / 0.27e2 * t8 * t1942 * t103 * t1943 + 0.4e1 / 0.27e2 * t1950 + 0.2e1 / 0.9e1 * t1954 - t8 * t352 * t103 * t1956 / 0.2e1 - 0.19392480000000000000e1 * t1962 + 0.58177440000000000000e1 * t8 * t18 * t1965 * t1966 + 0.14544360000000000000e1 * t8 * t18 * t311 * t1971 + 0.2e1 / 0.9e1 * t1978;
2833 t1982 = t296 * t296;
2834 t1990 = 0.10e2 / 0.27e2 * t8 * t68 * t904 * t103;
2835 t1994 = 0.10e2 / 0.27e2 * t8 * t16 * t904 * t62;
2836 t1999 = t17 * t790;
2837 t2009 = t374 * t674 * t670;
2838 t2027 = t302 * t126;
2839 t2029 = t287 * t2027 * t289;
2840 t2031 = -t8 * t276 * t62 * t1982 / 0.2e1 + t1990 + t1994 + 0.2e1 / 0.3e1 * t848 * t398 * t353 * t362 - 0.87266160000000000000e1 * t691 * t1999 * t312 * t345 + 0.28729600000000000000e0 * t858 * t288 * t152 * t773 - 0.43094400000000000000e0 * t2009 - 0.64641600000000000000e0 * t374 * t288 * t345 * t277 - 0.19392480000000000000e1 * t287 * t288 * t345 * t296 - 0.2e1 / 0.3e1 * t374 * t375 * t759 * t114 - 0.12928320000000000000e1 * t287 * t288 * t152 * t759 + 0.86188800000000000000e0 * t2029;
2841 t2033 = t287 * t674 * t678;
2842 t2035 = t120 * t311;
2843 t2037 = t691 * t2035 * t692;
2844 t2052 = t397 * t853 * t696;
2845 t2059 = t374 * t863 * t666;
2846 t2062 = t287 * t674 * t682;
2847 t2065 = t287 * t2035 * t687;
2848 t2079 = -0.12928320000000000000e1 * t2033 + 0.19392480000000000000e1 * t2037 + 0.2e1 / 0.3e1 * t858 * t375 * t277 * t296 - 0.12928320000000000000e1 * t287 * t288 * t738 * t114 + 0.19392480000000000000e1 * t691 * t686 * t738 * t152 - 0.2e1 / 0.3e1 * t2052 - 0.2e1 / 0.3e1 * t397 * t398 * t751 * t158 - 0.2e1 / 0.3e1 * t2059 - 0.12928320000000000000e1 * t2062 + 0.25856640000000000000e1 * t2065 + 0.38784960000000000000e1 * t287 * t686 * t312 * t296 - 0.77569920000000000000e1 * t287 * t1999 * t791 * t114 + 0.12928320000000000000e1 * t374 * t686 * t312 * t277;
2849 t2083 = -0.2e1 * t757 - 0.2e1 * t762 + 0.64641600000000000000e0 * t765 - 0.96962400000000000000e0 * t768 + 0.4e1 / 0.9e1 * t776 - 0.2e1 / 0.3e1 * t780 + 0.4e1 / 0.3e1 * t784 + 0.19392480000000000000e1 * t787 - 0.58177440000000000000e1 * t794 + 0.4e1 / 0.9e1 * t802 - 0.2e1 / 0.3e1 * t806 + 0.4e1 / 0.3e1 * t810 + t10 * (t1885 + t1980 + t2031 + t2079);
2850 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2851 v4rho4[0] = t1821 + t2083;
2852
2853 t2085 = t8 * t915 * t62;
2854 t2088 = t8 * t905 * t103;
2855 t2111 = t374 * t674 * t892;
2856 t2135 = t8 * t406 * t176;
2857 t2137 = 0.5e1 / 0.2e1 * t2085 - 0.5e1 / 0.2e1 * t2088 - 0.64641600000000000000e0 * t374 * t842 * t843 * t114 + t848 * t398 * t399 * t362 / 0.3e1 - 0.32320800000000000000e0 * t397 * t414 * t415 * t362 + t858 * t375 * t376 * t296 / 0.3e1 + 0.21547200000000000000e0 * t858 * t288 * t383 * t277 - 0.21547200000000000000e0 * t2111 - 0.32320800000000000000e0 * t374 * t288 * t883 * t114 - 0.32320800000000000000e0 * t374 * t288 * t383 * t296 + 0.64641600000000000000e0 * t374 * t686 * t838 * t114 + 0.19392480000000000000e1 * t287 * t686 * t383 * t345 - 0.32320800000000000000e0 * t1843 + t1856 / 0.27e2 - 0.80802000000000000000e-1 * t1859 + t1862 / 0.3e1 + t1865 / 0.3e1 - 0.5e1 / 0.27e2 * t2135;
2858 t2139 = t8 * t389 * t171;
2859 t2142 = 0.1e1 / t119 / t747;
2860 t2145 = t8 * t15 * t2142 * t390;
2861 t2158 = t8 * t700 * t208;
2862 t2160 = t275 * t388;
2863 t2167 = t351 * t388;
2864 t2173 = t8 * t67 * t2142 * t407;
2865 t2175 = -0.5e1 / 0.27e2 * t2139 - 0.25e2 / 0.6e1 * t2145 - t1868 / 0.6e1 - 0.5e1 / 0.9e1 * t1880 - 0.26934000000000000000e0 * t1883 + 0.16160400000000000000e0 * t1887 - t1929 / 0.6e1 - 0.5e1 / 0.9e1 * t1937 + t1950 / 0.27e2 + t1954 / 0.9e1 - 0.48481200000000000000e0 * t1962 + t1978 / 0.9e1 + t1990 + t1994 - 0.89780000000000000000e-1 * t2158 - t8 * t2160 * t115 / 0.2e1 - 0.96962400000000000000e0 * t8 * t389 * t153 + t8 * t2167 * t159 / 0.2e1 + 0.25e2 / 0.6e1 * t2173;
2866 t2190 = t287 * t2027 * t383;
2867 t2191 = 0.21547200000000000000e0 * t2190;
2868 t2193 = t287 * t674 * t883;
2869 t2216 = t413 * t834 * t872;
2870 t2222 = -0.10773600000000000000e0 * t2009 + 0.43094400000000000000e0 * t2029 - 0.32320800000000000000e0 * t2033 + 0.48481200000000000000e0 * t2037 - t2052 / 0.6e1 - t2059 / 0.6e1 - 0.32320800000000000000e0 * t2062 + 0.64641600000000000000e0 * t2065 - t374 * t375 * t170 * t759 / 0.6e1 + t2191 - 0.32320800000000000000e0 * t2193 - 0.32320800000000000000e0 * t287 * t288 * t738 * t170 - t397 * t398 * t175 * t751 / 0.6e1 + t397 * t825 * t9 * t362 / 0.2e1 - t374 * t867 * t9 * t296 / 0.2e1 - 0.32320800000000000000e0 * t413 * t414 * t207 * t751 - 0.32320800000000000000e0 * t2216 - 0.96962400000000000000e0 * t287 * t842 * t345 * t9;
2871 t2228 = t397 * t853 * t887;
2872 t2231 = t374 * t863 * t876;
2873 t2233 = t904 * t103;
2874 t2235 = t397 * t2233 * t826;
2875 t2239 = t397 * t302 * t103 * t399;
2876 t2240 = t2239 / 0.9e1;
2877 t2242 = t5 * t7 * t1847;
2878 t2248 = t858 * t863 * t859;
2879 t2256 = t374 * t302 * t62 * t376;
2880 t2257 = t2256 / 0.9e1;
2881 t2258 = t904 * t62;
2882 t2260 = t374 * t2258 * t868;
2883 t2262 = t302 * t181;
2884 t2264 = t413 * t2262 * t415;
2885 t2265 = 0.21547200000000000000e0 * t2264;
2886 t2267 = t287 * t2035 * t838;
2887 t2280 = t287 * t904 * t126 * t843;
2888 t2283 = t5 * t7 * t1941;
2889 t2289 = t848 * t853 * t849;
2890 t2296 = t397 * t834 * t830;
2891 t2298 = -t848 * t825 * t9 * t353 / 0.3e1 - t2228 / 0.6e1 - t2231 / 0.6e1 - 0.7e1 / 0.6e1 * t2235 + t2240 - 0.5e1 / 0.27e2 * t2242 * t375 * t170 * t773 + t2248 / 0.9e1 + t858 * t867 * t9 * t277 / 0.3e1 + t2257 + 0.7e1 / 0.6e1 * t2260 + t2265 + 0.64641600000000000000e0 * t2267 - 0.19392480000000000000e1 * t287 * t1999 * t791 * t170 + 0.19392480000000000000e1 * t287 * t388 * t311 * t312 * t9 + 0.22624560000000000000e1 * t2280 - 0.5e1 / 0.27e2 * t2283 * t398 * t175 * t799 + t2289 / 0.9e1 + 0.71824000000000000000e-1 * t848 * t414 * t207 * t799 - 0.10773600000000000000e0 * t2296;
2892 t2303 = 0.64641600000000000000e0 * t836;
2893 t2307 = t855 / 0.3e1;
2894 t2309 = t865 / 0.3e1;
2895 t2311 = t10 * (t2137 + t2175 + t2222 + t2298) + t828 - 0.32320800000000000000e0 * t832 - t2303 + 0.19392480000000000000e1 * t840 - 0.19392480000000000000e1 * t845 + t851 / 0.3e1 - t2307 + t861 / 0.3e1 - t2309 - t870 - 0.96962400000000000000e0 * t874;
2896 t2317 = -t878 / 0.2e1 - 0.64641600000000000000e0 * t881 - 0.96962400000000000000e0 * t885 - t889 / 0.2e1 - t669 - t673 - 0.12928320000000000000e1 * t676 - t681 - t685 + t690 + t695 - t699;
2897 t2324 = -0.64641600000000000000e0 * t894 + 0.3e1 / 0.2e1 * t898 - 0.3e1 / 0.2e1 * t901 - t1816 - t1817 - 0.7e1 / 0.2e1 * t907 + t1143 + t1144 + 0.7e1 / 0.2e1 * t917 + t1145 - t742 - t744;
2898 t2330 = -t755 - t757 - t763 + 0.48481200000000000000e0 * t765 - 0.48481200000000000000e0 * t768 + t777 - t780 / 0.3e1 + t784 + 0.96962400000000000000e0 * t787 - t795 + t803 - t806 / 0.3e1 + t810;
2899 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2900 v4rho4[1] = t2311 + t2317 + t2324 + t2330;
2901
2902 t2346 = 0.12928320000000000000e1 * t946 - 0.64641600000000000000e0 * t950 + 0.2e1 / 0.9e1 * t954 + 0.2e1 / 0.3e1 * t958 + 0.12928320000000000000e1 * t963 - t967 / 0.3e1 + 0.2e1 / 0.9e1 * t971 - 0.21547200000000000000e0 * t975 - t979 / 0.3e1 - 0.64641600000000000000e0 * t983 + 0.2e1 / 0.3e1 * t828 - 0.2e1 / 0.3e1 * t987 - 0.43094400000000000000e0 * t990 - 0.21547200000000000000e0 * t832;
2903 t2361 = -0.86188800000000000000e0 * t836 + 0.1292832e1 * t840 - 0.1292832e1 * t845 + 0.2e1 / 0.9e1 * t851 - 0.4e1 / 0.9e1 * t855 + 0.2e1 / 0.9e1 * t861 - 0.4e1 / 0.9e1 * t865 - 0.2e1 / 0.3e1 * t870 - 0.64641600000000000000e0 * t874 - t878 / 0.3e1 - 0.86188800000000000000e0 * t881 - 0.646416e0 * t885 - t889 / 0.3e1 - 0.43094400000000000000e0 * t676;
2904 t2371 = -0.43094400000000000000e0 * t994 - 0.43094400000000000000e0 * t894 + t898 - t901 - t1816 - t1817 - t1001 - t1006 + 0.32320800000000000000e0 * t1009 - 0.16160400000000000000e0 * t1012 - t1015 / 0.9e1 - t1018 / 0.3e1 - t1021 / 0.9e1 - t1024 / 0.3e1;
2905 t2393 = t397 * t834 * t992;
2906 t2423 = -t2085 / 0.3e1 + t2088 / 0.3e1 + 0.14364800000000000000e0 * t848 * t414 * t442 * t353 - 0.14364800000000000000e0 * t2393 - 0.43094400000000000000e0 * t374 * t842 * t383 * t9 - 0.21547200000000000000e0 * t397 * t414 * t442 * t362 + 0.43094400000000000000e0 * t397 * t960 * t961 * t158 - 0.21547200000000000000e0 * t374 * t288 * t981 * t114 + 0.14364800000000000000e0 * t858 * t288 * t973 * t114 - 0.4e1 / 0.9e1 * t848 * t825 * t399 * t9 + 0.4e1 / 0.9e1 * t858 * t867 * t985 * t114;
2907 t2435 = -0.14364800000000000000e0 * t2111 - 0.10773600000000000000e0 * t1843 + t1862 / 0.9e1 + t1865 / 0.9e1 - 0.10e2 / 0.27e2 * t2135 - 0.10e2 / 0.27e2 * t2139 - 0.41e2 / 0.9e1 * t2145 - 0.10e2 / 0.27e2 * t1880 - 0.17956000000000000000e0 * t1883 + 0.53868000000000000000e-1 * t1887 - 0.10e2 / 0.27e2 * t1937;
2908 t2446 = t1954 / 0.27e2 + t1978 / 0.27e2 + t1990 + t1994 - 0.17956000000000000000e0 * t2158 + 0.41e2 / 0.9e1 * t2173 + 0.14364800000000000000e0 * t2029 + 0.28729600000000000000e0 * t2190 - 0.21547200000000000000e0 * t2193 - 0.21547200000000000000e0 * t2216 - t2228 / 0.9e1;
2909 t2458 = -t2231 / 0.9e1 + 0.2e1 / 0.9e1 * t2235 + 0.4e1 / 0.27e2 * t2239 + 0.2e1 / 0.27e2 * t2248 + 0.4e1 / 0.27e2 * t2256 - 0.2e1 / 0.9e1 * t2260 + 0.28729600000000000000e0 * t2264 + 0.43094400000000000000e0 * t2267 - 0.43094400000000000000e0 * t2280 + 0.2e1 / 0.27e2 * t2289 - 0.71824000000000000000e-1 * t2296;
2910 t2474 = t374 * t863 * t977;
2911 t2481 = t397 * t853 * t965;
2912 t2488 = t858 * t863 * t969;
2913 t2494 = t120 * t453;
2914 t2496 = t413 * t2494 * t944;
2915 t2502 = 0.64641600000000000000e0 * t287 * t686 * t312 * t431 + 0.21547200000000000000e0 * t374 * t686 * t312 * t425 + t858 * t375 * t431 * t277 / 0.9e1 - t2474 / 0.9e1 + t848 * t398 * t446 * t353 / 0.9e1 - t2481 / 0.9e1 - 0.5e1 / 0.27e2 * t2242 * t375 * t425 * t277 + 0.2e1 / 0.27e2 * t2488 + 0.21547200000000000000e0 * t397 * t943 * t454 * t353 + 0.43094400000000000000e0 * t2496 - 0.10773600000000000000e0 * t397 * t414 * t487 * t353;
2916 t2504 = t413 * t834 * t948;
2917 t2511 = t848 * t853 * t952;
2918 t2514 = t413 * t2262 * t442;
2919 t2517 = 0.1e1 / t119 / t1870;
2920 t2519 = t9 * t9;
2921 t2530 = t8 * t1976 * t426;
2922 t2533 = t8 * t782 * t432;
2923 t2536 = t8 * t367 * t488;
2924 t2539 = t8 * t1952 * t437;
2925 t2544 = -0.21547200000000000000e0 * t2504 - 0.5e1 / 0.27e2 * t2283 * t398 * t436 * t353 + 0.2e1 / 0.27e2 * t2511 + 0.14364800000000000000e0 * t2514 - t8 * t351 * t2517 * t103 * t2519 / 0.3e1 - t8 * t275 * t2517 * t62 * t2519 / 0.3e1 + t2530 / 0.27e2 + t2533 / 0.9e1 + 0.53868000000000000000e-1 * t2536 + t2539 / 0.27e2 + t8 * t2167 * t176 / 0.3e1;
2926 t2550 = t8 * t808 * t447;
2927 t2553 = t8 * t367 * t455;
2928 t2559 = t8 * t282 * t999;
2929 t2562 = t8 * t358 * t1004;
2930 t2565 = t374 * t2258 * t985;
2931 t2572 = t374 * t674 * t973;
2932 t2582 = 0.64641600000000000000e0 * t8 * t406 * t208 + t2550 / 0.9e1 - 0.10773600000000000000e0 * t2553 - t8 * t2160 * t171 / 0.3e1 - t2559 / 0.3e1 - t2562 / 0.3e1 + 0.7e1 / 0.9e1 * t2565 + t858 * t375 * t425 * t296 / 0.9e1 - 0.71824000000000000000e-1 * t2572 - 0.10773600000000000000e0 * t374 * t288 * t345 * t425 - t374 * t375 * t431 * t296 / 0.6e1;
2933 t2584 = t287 * t674 * t981;
2934 t2595 = t397 * t2233 * t956;
2935 t2603 = t413 * t904 * t181 * t961;
2936 t2625 = -0.21547200000000000000e0 * t2584 - 0.32320800000000000000e0 * t287 * t288 * t345 * t431 + t848 * t398 * t436 * t362 / 0.9e1 - 0.7e1 / 0.9e1 * t2595 - t397 * t398 * t446 * t362 / 0.6e1 - 0.15083040000000000000e1 * t2603 + 0.64641600000000000000e0 * t413 * t943 * t454 * t362 - 0.32320800000000000000e0 * t413 * t414 * t487 * t362 - t374 * t375 * t998 * t114 / 0.3e1 - 0.64641600000000000000e0 * t287 * t288 * t152 * t998 - t397 * t398 * t1003 * t158 / 0.3e1;
2937 t2630 = -0.5e1 / 0.3e1 * t907 + 0.32320800000000000000e0 * t910 + 0.2e1 / 0.3e1 * t913 + 0.5e1 / 0.3e1 * t917 + 0.2e1 / 0.3e1 * t920 - t744 / 0.3e1 - t757 / 0.3e1 + 0.32320800000000000000e0 * t765 - 0.16160400000000000000e0 * t768 - t780 / 0.9e1 + 0.2e1 / 0.3e1 * t784 + 0.32320800000000000000e0 * t787 - t806 / 0.9e1 + 0.2e1 / 0.3e1 * t810 + t10 * (t2423 + t2435 + t2446 + t2458 + t2502 + t2544 + t2582 + t2625);
2938 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2939 v4rho4[2] = t2346 + t2361 + t2371 + t2630;
2940
2941 t2636 = -t1046 - t1050 + t1055 - t1059 - t1063 - t1067 + t1071 + 0.19392480000000000000e1 * t946 - 0.96962400000000000000e0 * t950 + t954 / 0.3e1 + t958 + 0.19392480000000000000e1 * t963;
2942 t2645 = -t967 / 0.2e1 + t971 / 0.3e1 - 0.32320800000000000000e0 * t975 - t979 / 0.2e1 - 0.96962400000000000000e0 * t983 - t987 - 0.12928320000000000000e1 * t990 - t2303 - t2307 - t2309 - 0.646416e0 * t881 - 0.64641600000000000000e0 * t994;
2943 t2651 = -t1816 - t1817 - t1079 + t1084 + t1090 - t1096 - t1131 - t1136 - 0.3e1 / 0.2e1 * t1001 - 0.3e1 / 0.2e1 * t1006 + 0.96962400000000000000e0 * t1009 - 0.48481200000000000000e0 * t1012;
2944 t2699 = 0.64641600000000000000e0 * t397 * t960 * t442 * t9 + 0.64641600000000000000e0 * t397 * t943 * t1068 * t158 + t858 * t375 * t1056 * t114 / 0.3e1 - 0.32320800000000000000e0 * t374 * t288 * t383 * t431 + t848 * t398 * t1060 * t158 / 0.3e1 + 0.21547200000000000000e0 * t848 * t414 * t1064 * t158 - 0.32320800000000000000e0 * t397 * t414 * t1043 * t158 - 0.32320800000000000000e0 * t397 * t414 * t1047 * t158 + 0.19392480000000000000e1 * t413 * t943 * t1052 * t158 - 0.21547200000000000000e0 * t2393 - 0.5e1 / 0.9e1 * t2135 - 0.5e1 / 0.9e1 * t2139 + t2145 / 0.3e1 - 0.5e1 / 0.27e2 * t1880 - 0.89780000000000000000e-1 * t1883 - 0.5e1 / 0.27e2 * t1937 + t1990 + t1994 - 0.26934000000000000000e0 * t2158;
2945 t2709 = t8 * t282 * t1133;
2946 t2712 = t8 * t1948 * t1087;
2947 t2715 = t8 * t358 * t1093;
2948 t2718 = t8 * t163 * t1128;
2949 t2721 = t8 * t163 * t1076;
2950 t2724 = t8 * t1854 * t1081;
2951 t2728 = -0.6e1 * t748 - 0.12e2 * t1872;
2952 t2733 = -t2173 / 0.3e1 + t2191 + t2240 + t2257 + t2265 - t2474 / 0.6e1 - t2481 / 0.6e1 + t2488 / 0.9e1 + 0.64641600000000000000e0 * t2496 - 0.32320800000000000000e0 * t2504 + t2511 / 0.9e1 + 0.43094400000000000000e0 * t2514 - t2709 / 0.6e1 + t2712 / 0.27e2 - t2715 / 0.6e1 - 0.80802000000000000000e-1 * t2718 - 0.48481200000000000000e0 * t2721 + t2724 / 0.27e2 - t8 * t157 * t103 * t2728 / 0.2e1;
2953 t2774 = t8 * t109 * t62 * t2728 / 0.2e1 + t2530 / 0.9e1 + t2533 / 0.3e1 + 0.16160400000000000000e0 * t2536 + t2539 / 0.9e1 + t2550 / 0.3e1 - 0.32320800000000000000e0 * t2553 - t2559 / 0.2e1 - t2562 / 0.2e1 - t2565 / 0.3e1 - 0.10773600000000000000e0 * t2572 - 0.32320800000000000000e0 * t2584 + t2595 / 0.3e1 + 0.64641600000000000000e0 * t2603 - t374 * t375 * t1132 * t114 / 0.6e1 - 0.32320800000000000000e0 * t287 * t288 * t152 * t1132 - 0.19392480000000000000e1 * t413 * t388 * t453 * t454 * t9 + 0.71824000000000000000e-1 * t858 * t288 * t152 * t1080 - t374 * t375 * t170 * t998 / 0.2e1;
2954 t2807 = t17 * t1074;
2955 t2817 = t397 * t834 * t1064;
2956 t2820 = t413 * t2494 * t1068;
2957 t2827 = t374 * t863 * t1056;
2958 t2834 = t397 * t853 * t1060;
2959 t2837 = t413 * t834 * t1043;
2960 t2840 = t413 * t834 * t1047;
2961 t2843 = t1051 * t2494 * t1052;
2962 t2845 = -0.5e1 / 0.27e2 * t2283 * t398 * t1086 * t158 - t848 * t825 * t436 * t9 / 0.3e1 - t397 * t398 * t175 * t1003 / 0.2e1 + t397 * t825 * t9 * t446 / 0.2e1 - t397 * t398 * t1092 * t158 / 0.6e1 - 0.32320800000000000000e0 * t413 * t414 * t1127 * t158 + 0.96962400000000000000e0 * t413 * t960 * t487 * t9 - 0.96962400000000000000e0 * t413 * t414 * t207 * t1003 - 0.19392480000000000000e1 * t413 * t2807 * t1075 * t158 - 0.5e1 / 0.27e2 * t2242 * t375 * t1080 * t114 - 0.10773600000000000000e0 * t2817 + 0.64641600000000000000e0 * t2820 + t858 * t867 * t425 * t9 / 0.3e1 - t2827 / 0.6e1 - t374 * t867 * t9 * t431 / 0.2e1 - t2834 / 0.6e1 - 0.32320800000000000000e0 * t2837 - 0.32320800000000000000e0 * t2840 + 0.48481200000000000000e0 * t2843;
2963 t2849 = -t1015 / 0.3e1 - t1018 - t1021 / 0.3e1 - t1024 + t907 + 0.48481200000000000000e0 * t910 + t913 - t917 + t920 + t766 + t785 + t811 + t10 * (t2699 + t2733 + t2774 + t2845);
2964 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2965 v4rho4[3] = t2636 + t2645 + t2651 + t2849;
2966
2967 t2862 = -0.38784960000000000000e1 * t1045 - 0.38784960000000000000e1 * t1049 + 0.58177440000000000000e1 * t1054 - 0.2e1 * t1058 - 0.2e1 * t1062 - 0.12928320000000000000e1 * t1066 + 0.77569920000000000000e1 * t1070 - 0.25856640000000000000e1 * t990 - t1816 - t1817 - 0.58177440000000000000e1 * t1078 + 0.4e1 / 0.9e1 * t1083 + 0.4e1 / 0.9e1 * t1089;
2968 t2888 = 0.1e1 / t72 / t201;
2969 t2890 = t24 * sigma[2] * t2888;
2970 t2892 = t470 * t470;
2971 t2900 = 0.1540e4 / 0.81e2 * t24 * tau[1] * t1098 - 0.1309e4 / 0.1458e4 * t2890;
2972 t2915 = t1121 * rho[1];
2973 t2927 = 0.12e2 * t748 + 0.12e2 * t1872;
2974 t2937 = t431 * t431;
2975 t2942 = -0.20e2 / 0.27e2 * t2135 - 0.20e2 / 0.27e2 * t2139 + t1990 + t1994 - 0.35912000000000000000e0 * t2158 + 0.86188800000000000000e0 * t2514 + 0.77569920000000000000e1 * t413 * t943 * t1043 * t207 - 0.12928320000000000000e1 * t397 * t414 * t1047 * t175 - 0.24240600000000000000e0 * t8 * t69 * t181 * (0.26180e5 / 0.19683e5 * t2890 + 0.292e3 / 0.675e3 * t2892 + 0.1168e4 / 0.2025e4 * t192 * t1108 + 0.292e3 / 0.2025e4 * t84 * t2900 - 0.73e2 / 0.9720e4 * t2900 * t19 * t89 + 0.292e3 / 0.3645e4 * t1111 * t198 - 0.1606e4 / 0.3645e4 * t473 * t478 + 0.44968e5 / 0.32805e5 * t195 * t1118 - 0.191114e6 / 0.98415e5 * t87 * t88 * t2888 + 0.47289184258674342899e0 * t50 * t92 / t71 / t2915) - t8 * t109 * t62 * t2927 / 0.2e1 + t8 * t157 * t103 * t2927 / 0.2e1 - t8 * t276 * t62 * t2937 / 0.2e1;
2976 t2943 = t436 * t436;
2977 t2948 = t446 * t446;
2978 t2954 = 0.1e1 / t1073 / t100;
2979 t2955 = t454 * t454;
2980 t2960 = t487 * t487;
2981 t2965 = t425 * t425;
2982 t2978 = -0.5e1 / 0.27e2 * t8 * t1942 * t103 * t2943 - t8 * t352 * t103 * t2948 / 0.2e1 + 0.58177440000000000000e1 * t8 * t69 * t2954 * t2955 + 0.14544360000000000000e1 * t8 * t69 * t453 * t2960 - 0.5e1 / 0.27e2 * t8 * t1848 * t62 * t2965 - 0.2e1 / 0.3e1 * t2709 + 0.4e1 / 0.27e2 * t2712 - 0.2e1 / 0.3e1 * t2715 - 0.32320800000000000000e0 * t2718 - 0.19392480000000000000e1 * t2721 + 0.4e1 / 0.27e2 * t2724 + 0.2e1 / 0.9e1 * t2530 + 0.2e1 / 0.3e1 * t2533;
2983 t3016 = 0.32320800000000000000e0 * t2536 + 0.2e1 / 0.9e1 * t2539 + 0.2e1 / 0.3e1 * t2550 - 0.64641600000000000000e0 * t2553 - 0.64641600000000000000e0 * t397 * t414 * t487 * t436 - 0.77569920000000000000e1 * t413 * t2807 * t1075 * t175 - 0.87266160000000000000e1 * t1051 * t2807 * t454 * t487 + 0.19392480000000000000e1 * t1051 * t943 * t207 * t1127 + 0.12928320000000000000e1 * t397 * t943 * t454 * t436 + 0.38784960000000000000e1 * t413 * t943 * t454 * t446 - 0.19392480000000000000e1 * t413 * t414 * t487 * t446 - 0.12928320000000000000e1 * t413 * t414 * t207 * t1092;
2984 t3048 = -0.43094400000000000000e0 * t2817 + 0.25856640000000000000e1 * t2820 - 0.2e1 / 0.3e1 * t2827 - 0.2e1 / 0.3e1 * t2834 - 0.12928320000000000000e1 * t2837 - 0.12928320000000000000e1 * t2840 + 0.19392480000000000000e1 * t2843 + 0.2e1 / 0.3e1 * t858 * t375 * t425 * t431 - 0.2e1 / 0.3e1 * t374 * t375 * t170 * t1132 + 0.2e1 / 0.3e1 * t848 * t398 * t436 * t446 + 0.28729600000000000000e0 * t848 * t414 * t207 * t1086 - 0.2e1 / 0.3e1 * t397 * t398 * t175 * t1092 - 0.12928320000000000000e1 * t413 * t414 * t1127 * t175;
2985 t3052 = -0.2e1 * t1095 - 0.96962400000000000000e0 * t1130 - 0.2e1 * t1135 + 0.19392480000000000000e1 * t1009 - 0.96962400000000000000e0 * t1012 - 0.2e1 / 0.3e1 * t1015 - 0.2e1 * t1018 - 0.2e1 / 0.3e1 * t1021 - 0.2e1 * t1024 + 0.64641600000000000000e0 * t910 + 0.4e1 / 0.3e1 * t913 + 0.4e1 / 0.3e1 * t920 + t10 * (t2942 + t2978 + t3016 + t3048);
2986 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2987 v4rho4[4] = t2862 + t3052;
2988
2989 t3066 = t287 * t686 * t1175;
2990 t3068 = t275 * t311;
2991 t3081 = t15 * t790;
2992 t3087 = t8 * t18 * t1213;
2993 t3091 = 0.71824000000000000000e-1 * t8 * t303 * t227;
2994 t3112 = t8 * t121 * t520;
2995 t3115 = t287 * t674 * t500;
2996 t3118 = t691 * t1999 * t1188;
2997 t3120 = t771 * t126;
2998 t3125 = 0.19392480000000000000e1 * t498 * t1174 * t1183 * t152 + 0.19392480000000000000e1 * t498 * t1174 * t500 * t345 - 0.43633080000000000000e1 * t498 * t1187 * t505 * t345 + 0.51713280000000000000e1 * t3066 + 0.64641600000000000000e0 * t498 * t3068 * t1170 * t152 - 0.32320800000000000000e0 * t498 * t1169 * t500 * t296 + 0.38784960000000000000e1 * t498 * t1174 * t1179 * t152 - 0.58177440000000000000e1 * t498 * t3081 * t500 * t312 - 0.96962400000000000000e0 * t3087 + t3091 - 0.24240600000000000000e0 * t216 * t217 * t126 * (-0.1540e4 / 0.6561e4 * t24 * t709 - 0.146e3 / 0.18225e5 * t722 * t220 + 0.1168e4 / 0.18225e5 * t331 * t513 - 0.12848e5 / 0.54675e5 * t140 * t1206 + 0.179872e6 / 0.492075e6 * t42 * t23 * t709 - 0.11995350808814894506e0 * t50 * t734 * sigma[0]) - 0.32320800000000000000e0 * t3112 - 0.43094400000000000000e0 * t3115 - 0.58177440000000000000e1 * t3118 + 0.71824000000000000000e-1 * t498 * t3120 * t226 * t773;
2999 t3139 = t287 * t288 * t1179;
3000 t3142 = t287 * t288 * t1183;
3001 t3145 = t691 * t2035 * t505;
3002 t3148 = t691 * t686 * t1192;
3003 t3151 = t691 * t686 * t1196;
3004 t3173 = t16 * t1965;
3005 t3179 = t374 * t288 * t1170;
3006 t3181 = 0.14544360000000000000e1 * t498 * t504 * t1212 * t152 + 0.14544360000000000000e1 * t498 * t504 * t519 * t345 + 0.48481200000000000000e0 * t498 * t504 * t226 * t738 - 0.25856640000000000000e1 * t3139 - 0.12928320000000000000e1 * t3142 + 0.64641600000000000000e0 * t3145 + 0.38784960000000000000e1 * t3148 + 0.19392480000000000000e1 * t3151 - 0.32320800000000000000e0 * t498 * t1169 * t519 * t277 - 0.96962400000000000000e0 * t498 * t499 * t1212 * t114 - 0.96962400000000000000e0 * t498 * t499 * t519 * t296 - 0.32320800000000000000e0 * t498 * t499 * t226 * t759 - 0.43633080000000000000e1 * t498 * t1187 * t519 * t312 + 0.58177440000000000000e1 * t498 * t3173 * t226 * t791 - 0.43094400000000000000e0 * t3179;
3007 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3008 v4rho3sigma[0] = t3125 + t3181;
3009
3010 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3011 v4rho3sigma[1] = 0.0e0;
3012
3013 t3183 = t397 * t414 * t1224;
3014 t3186 = t413 * t834 * t528;
3015 t3189 = t413 * t414 * t1228;
3016 t3193 = 0.71824000000000000000e-1 * t8 * t367 * t241;
3017 t3194 = t797 * t181;
3018 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3019 v4rho3sigma[2] = -0.43094400000000000000e0 * t3183 - 0.43094400000000000000e0 * t3186 - 0.12928320000000000000e1 * t3189 + t3193 + 0.71824000000000000000e-1 * t498 * t3194 * t240 * t799 - 0.32320800000000000000e0 * t498 * t1223 * t528 * t362 - 0.32320800000000000000e0 * t498 * t527 * t240 * t751;
3020
3021 t3208 = t215 * t497 * t275;
3022 t3229 = 0.28729600000000000000e0 * t1236 * t1240;
3023 t3231 = 0.17237760000000000000e1 * t1236 * t1244;
3024 t3250 = 0.43094400000000000000e0 * t3208 * t1733 * t892 + 0.71824000000000000000e-1 * t498 * t3120 * t532 * t277 - 0.21547200000000000000e0 * t1252 * t1169 * t1253 * t114 - 0.19392480000000000000e1 * t498 * t3081 * t532 * t312 + 0.12928320000000000000e1 * t1252 * t1174 * t1253 * t152 - t3229 + t3231 - 0.21547200000000000000e0 * t498 * t1169 * t1247 * t114 - 0.10773600000000000000e0 * t498 * t1169 * t532 * t296 + 0.12928320000000000000e1 * t498 * t1174 * t1247 * t152 + 0.64641600000000000000e0 * t498 * t1174 * t532 * t345 + 0.17237760000000000000e1 * t3066 - 0.32320800000000000000e0 * t3087 + t3091;
3025 t3251 = t1251 * t4;
3026 t3260 = t120 * t2;
3027 t3261 = t3260 * t497;
3028 t3262 = t3261 * t533;
3029 t3265 = t388 * t2 * t497;
3030 t3266 = t3265 * t1254;
3031 t3271 = 0.86188800000000000000e0 * t1236 * t1248;
3032 t3282 = -0.32320800000000000000e0 * t3251 * t286 * t227 - 0.21547200000000000000e0 * t3112 - 0.64641600000000000000e0 * t1252 * t499 * t519 * t9 - 0.14364800000000000000e0 * t3262 + 0.10773600000000000000e0 * t3266 - 0.28729600000000000000e0 * t3115 - 0.19392480000000000000e1 * t3118 - t3271 - 0.32320800000000000000e0 * t498 * t499 * t1212 * t170 - 0.86188800000000000000e0 * t3139 - 0.43094400000000000000e0 * t3142 + 0.43094400000000000000e0 * t3145 + 0.12928320000000000000e1 * t3148 + 0.64641600000000000000e0 * t3151 - 0.14364800000000000000e0 * t3179;
3033 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3034 v4rho3sigma[3] = t3250 + t3282;
3035
3036 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3037 v4rho3sigma[4] = 0.0e0;
3038
3039 t3287 = t351 * t453;
3040 t3295 = t3260 * t4;
3041 t3296 = t3295 * t557;
3042 t3299 = 0.86188800000000000000e0 * t1236 * t1279;
3043 t3304 = t3265 * t1265;
3044 t3319 = t3261 * t542;
3045 t3322 = 0.17237760000000000000e1 * t1236 * t1272;
3046 t3327 = t3261 * t537;
3047 t3330 = 0.28729600000000000000e0 * t1236 * t1261;
3048 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3049 v4rho3sigma[5] = 0.71824000000000000000e-1 * t498 * t3194 * t536 * t353 + 0.21547200000000000000e0 * t498 * t3287 * t541 * t353 + 0.32320800000000000000e0 * t3251 * t412 * t241 - 0.10773600000000000000e0 * t3296 - t3299 - 0.32320800000000000000e0 * t498 * t527 * t555 * t362 - 0.10773600000000000000e0 * t3304 - 0.43094400000000000000e0 * t3189 + t3193 - 0.10773600000000000000e0 * t498 * t1223 * t555 * t353 - 0.10773600000000000000e0 * t498 * t1223 * t536 * t362 + 0.21547200000000000000e0 * t1252 * t1223 * t1264 * t158 + 0.21547200000000000000e0 * t3319 + t3322 + 0.64641600000000000000e0 * t498 * t1270 * t541 * t362 - 0.14364800000000000000e0 * t3327 - t3330 - 0.14364800000000000000e0 * t3183 - 0.28729600000000000000e0 * t3186;
3050
3051 t3338 = t1236 * t1284;
3052 t3356 = t1236 * t1288;
3053 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3054 v4rho3sigma[6] = -0.28729600000000000000e0 * t3262 - t3229 + t3231 - t3271 - 0.86188800000000000000e0 * t3266 - 0.14364800000000000000e0 * t3115 + t3091 + 0.21547200000000000000e0 * t3145 - 0.10773600000000000000e0 * t3112 - 0.14364800000000000000e0 * t3338 + 0.71824000000000000000e-1 * t498 * t3120 * t1283 * t114 + 0.21547200000000000000e0 * t498 * t3068 * t1283 * t152 - 0.10773600000000000000e0 * t498 * t1169 * t519 * t425 - 0.21547200000000000000e0 * t1252 * t1169 * t532 * t9 - 0.43094400000000000000e0 * t3356 - 0.10773600000000000000e0 * t498 * t1169 * t1287 * t114 + 0.64641600000000000000e0 * t498 * t1174 * t1287 * t152 - 0.32320800000000000000e0 * t498 * t499 * t519 * t431 - 0.32320800000000000000e0 * t498 * t499 * t226 * t998;
3055
3056 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3057 v4rho3sigma[7] = 0.0e0;
3058
3059 t3375 = t215 * t497 * t351;
3060 t3383 = t1236 * t1299;
3061 t3389 = t67 * t1074;
3062 t3415 = 0.43094400000000000000e0 * t3375 * t1742 * t992 - 0.21547200000000000000e0 * t498 * t1223 * t1302 * t158 + 0.17237760000000000000e1 * t3383 - 0.10773600000000000000e0 * t498 * t1223 * t1306 * t158 - 0.19392480000000000000e1 * t498 * t3389 * t1311 * t158 + 0.12928320000000000000e1 * t498 * t1270 * t1315 * t158 + 0.64641600000000000000e0 * t498 * t1270 * t1319 * t158 + 0.71824000000000000000e-1 * t498 * t3194 * t1294 * t158 + 0.21547200000000000000e0 * t1252 * t1223 * t536 * t9 - 0.12928320000000000000e1 * t1252 * t1270 * t1264 * t207 + t3322 - t3330 + t3193 - 0.21547200000000000000e0 * t3296;
3063 t3416 = t1275 * t1337;
3064 t3432 = t1236 * t1307;
3065 t3434 = t1236 * t1312;
3066 t3436 = t1236 * t1316;
3067 t3438 = t1236 * t1320;
3068 t3440 = t1236 * t1295;
3069 t3442 = t1236 * t1303;
3070 t3446 = -0.32320800000000000000e0 * t3416 - 0.32320800000000000000e0 * t498 * t527 * t1335 * t158 + 0.64641600000000000000e0 * t1252 * t527 * t555 * t9 - 0.32320800000000000000e0 * t498 * t527 * t240 * t1003 + 0.43094400000000000000e0 * t3319 - 0.28729600000000000000e0 * t3327 - 0.43094400000000000000e0 * t3432 - 0.19392480000000000000e1 * t3434 + 0.12928320000000000000e1 * t3436 + 0.64641600000000000000e0 * t3438 - 0.14364800000000000000e0 * t3440 - 0.86188800000000000000e0 * t3442 - t3299 + 0.86188800000000000000e0 * t3304 - 0.14364800000000000000e0 * t3186;
3071 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3072 v4rho3sigma[8] = t3415 + t3446;
3073
3074 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3075 v4rho3sigma[9] = -0.43094400000000000000e0 * t3262 - 0.43094400000000000000e0 * t3338 - 0.12928320000000000000e1 * t3356 + t3091 + 0.71824000000000000000e-1 * t498 * t3120 * t226 * t1080 - 0.32320800000000000000e0 * t498 * t1169 * t532 * t431 - 0.32320800000000000000e0 * t498 * t499 * t226 * t1132;
3076
3077 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3078 v4rho3sigma[10] = 0.0e0;
3079
3080 t3524 = 0.64641600000000000000e0 * t498 * t3287 * t1294 * t207 - 0.32320800000000000000e0 * t498 * t1223 * t536 * t446 + 0.38784960000000000000e1 * t498 * t1270 * t1302 * t207 + 0.19392480000000000000e1 * t498 * t1270 * t1306 * t207 + 0.19392480000000000000e1 * t498 * t1270 * t536 * t487 - 0.58177440000000000000e1 * t498 * t3389 * t536 * t454 + 0.51713280000000000000e1 * t3383 - 0.43633080000000000000e1 * t498 * t1310 * t541 * t487 + t3193 - 0.32320800000000000000e0 * t3296 - 0.96962400000000000000e0 * t3416 - 0.24240600000000000000e0 * t216 * t231 * t181 * (-0.1540e4 / 0.6561e4 * t24 * t1098 - 0.146e3 / 0.18225e5 * t1111 * t234 + 0.1168e4 / 0.18225e5 * t473 * t549 - 0.12848e5 / 0.54675e5 * t195 * t1329 + 0.179872e6 / 0.492075e6 * t87 * t23 * t1098 - 0.11995350808814894506e0 * t50 * t1123 * sigma[2]) - 0.32320800000000000000e0 * t498 * t1223 * t555 * t436 - 0.96962400000000000000e0 * t498 * t527 * t1335 * t175 - 0.96962400000000000000e0 * t498 * t527 * t555 * t446;
3081 t3545 = t68 * t2954;
3082 t3562 = -0.32320800000000000000e0 * t498 * t527 * t240 * t1092 - 0.43633080000000000000e1 * t498 * t1310 * t555 * t454 + 0.14544360000000000000e1 * t498 * t540 * t1335 * t207 + 0.14544360000000000000e1 * t498 * t540 * t555 * t487 + 0.48481200000000000000e0 * t498 * t540 * t240 * t1127 + 0.58177440000000000000e1 * t498 * t3545 * t240 * t1075 + 0.71824000000000000000e-1 * t498 * t3194 * t240 * t1086 + 0.64641600000000000000e0 * t3319 - 0.43094400000000000000e0 * t3327 - 0.12928320000000000000e1 * t3432 - 0.58177440000000000000e1 * t3434 + 0.38784960000000000000e1 * t3436 + 0.19392480000000000000e1 * t3438 - 0.43094400000000000000e0 * t3440 - 0.25856640000000000000e1 * t3442;
3083 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3084 v4rho3sigma[11] = t3524 + t3562;
3085
3086 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3087 v4rho3lapl[0] = 0.0e0;
3088
3089 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3090 v4rho3lapl[1] = 0.0e0;
3091
3092 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3093 v4rho3lapl[2] = 0.0e0;
3094
3095 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3096 v4rho3lapl[3] = 0.0e0;
3097
3098 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3099 v4rho3lapl[4] = 0.0e0;
3100
3101 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3102 v4rho3lapl[5] = 0.0e0;
3103
3104 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3105 v4rho3lapl[6] = 0.0e0;
3106
3107 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3108 v4rho3lapl[7] = 0.0e0;
3109
3110 t3600 = t287 * t288 * t1360;
3111 t3603 = t287 * t288 * t1364;
3112 t3606 = t691 * t2035 * t567;
3113 t3609 = t691 * t686 * t1372;
3114 t3612 = t691 * t686 * t1376;
3115 t3618 = 0.71824000000000000000e-1 * t498 * t3120 * t253 * t773 - 0.32320800000000000000e0 * t498 * t1169 * t575 * t277 - 0.96962400000000000000e0 * t498 * t499 * t1385 * t114 - 0.96962400000000000000e0 * t498 * t499 * t575 * t296 - 0.32320800000000000000e0 * t498 * t499 * t253 * t759 - 0.43633080000000000000e1 * t498 * t1187 * t575 * t312 + 0.14544360000000000000e1 * t498 * t504 * t1385 * t152 + 0.14544360000000000000e1 * t498 * t504 * t575 * t345 + 0.48481200000000000000e0 * t498 * t504 * t253 * t738 - 0.25856640000000000000e1 * t3600 - 0.12928320000000000000e1 * t3603 + 0.64641600000000000000e0 * t3606 + 0.38784960000000000000e1 * t3609 + 0.19392480000000000000e1 * t3612 - 0.58177440000000000000e1 * t498 * t3081 * t563 * t312;
3116 t3624 = t287 * t686 * t1356;
3117 t3659 = 0.71824000000000000000e-1 * t8 * t303 * t254;
3118 t3661 = t8 * t121 * t576;
3119 t3664 = t8 * t18 * t1386;
3120 t3671 = t374 * t288 * t1352;
3121 t3674 = t287 * t674 * t563;
3122 t3677 = t691 * t1999 * t1368;
3123 t3679 = -0.43633080000000000000e1 * t498 * t1187 * t567 * t345 + 0.51713280000000000000e1 * t3624 + 0.64641600000000000000e0 * t498 * t3068 * t1352 * t152 - 0.32320800000000000000e0 * t498 * t1169 * t563 * t296 + 0.38784960000000000000e1 * t498 * t1174 * t1360 * t152 + 0.19392480000000000000e1 * t498 * t1174 * t1364 * t152 + 0.19392480000000000000e1 * t498 * t1174 * t563 * t345 - 0.24240600000000000000e0 * t216 * t217 * t126 * (0.73e2 / 0.2025e4 * t722 * t245 - 0.73e2 / 0.405e3 * t1202 + 0.584e3 / 0.1215e4 * t1204 - 0.6424e4 / 0.10935e5 * t1207 + 0.18031e5 / 0.65610e5 * t1210) + t3659 - 0.32320800000000000000e0 * t3661 - 0.96962400000000000000e0 * t3664 + 0.58177440000000000000e1 * t498 * t3173 * t253 * t791 - 0.43094400000000000000e0 * t3671 - 0.43094400000000000000e0 * t3674 - 0.58177440000000000000e1 * t3677;
3124 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3125 v4rho3tau[0] = t3618 + t3679;
3126
3127 t3681 = t397 * t414 * t1396;
3128 t3684 = t413 * t834 * t583;
3129 t3687 = t413 * t414 * t1400;
3130 t3691 = 0.71824000000000000000e-1 * t8 * t367 * t267;
3131 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3132 v4rho3tau[1] = -0.43094400000000000000e0 * t3681 - 0.43094400000000000000e0 * t3684 - 0.12928320000000000000e1 * t3687 + t3691 + 0.71824000000000000000e-1 * t498 * t3194 * t266 * t799 - 0.32320800000000000000e0 * t498 * t1223 * t583 * t362 - 0.32320800000000000000e0 * t498 * t527 * t266 * t751;
3133
3134 t3708 = t3261 * t588;
3135 t3711 = 0.86188800000000000000e0 * t1236 * t1418;
3136 t3721 = t3265 * t1422;
3137 t3738 = -0.64641600000000000000e0 * t1252 * t499 * t575 * t9 - 0.14364800000000000000e0 * t3708 - t3711 - 0.32320800000000000000e0 * t498 * t499 * t1385 * t170 - 0.86188800000000000000e0 * t3600 - 0.43094400000000000000e0 * t3603 + 0.43094400000000000000e0 * t3606 + 0.12928320000000000000e1 * t3609 + 0.64641600000000000000e0 * t3612 + 0.10773600000000000000e0 * t3721 + 0.43094400000000000000e0 * t3208 * t1754 * t892 + 0.71824000000000000000e-1 * t498 * t3120 * t587 * t277 - 0.21547200000000000000e0 * t1252 * t1169 * t1421 * t114 - 0.19392480000000000000e1 * t498 * t3081 * t587 * t312;
3138 t3744 = 0.28729600000000000000e0 * t1236 * t1410;
3139 t3746 = 0.17237760000000000000e1 * t1236 * t1414;
3140 t3772 = 0.12928320000000000000e1 * t1252 * t1174 * t1421 * t152 - t3744 + t3746 - 0.21547200000000000000e0 * t498 * t1169 * t1417 * t114 - 0.10773600000000000000e0 * t498 * t1169 * t587 * t296 + 0.12928320000000000000e1 * t498 * t1174 * t1417 * t152 + 0.64641600000000000000e0 * t498 * t1174 * t587 * t345 + 0.17237760000000000000e1 * t3624 + t3659 - 0.21547200000000000000e0 * t3661 - 0.32320800000000000000e0 * t3664 - 0.32320800000000000000e0 * t3251 * t286 * t254 - 0.14364800000000000000e0 * t3671 - 0.28729600000000000000e0 * t3674 - 0.19392480000000000000e1 * t3677;
3141 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3142 v4rho3tau[2] = t3738 + t3772;
3143
3144 t3774 = 0.17237760000000000000e1 * t1236 * t1439;
3145 t3783 = t3261 * t592;
3146 t3786 = 0.28729600000000000000e0 * t1236 * t1429;
3147 t3795 = t3261 * t596;
3148 t3799 = t3265 * t1433;
3149 t3804 = t3295 * t605;
3150 t3807 = 0.86188800000000000000e0 * t1236 * t1445;
3151 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3152 v4rho3tau[3] = t3774 + 0.64641600000000000000e0 * t498 * t1270 * t595 * t362 - 0.10773600000000000000e0 * t498 * t1223 * t603 * t353 - 0.14364800000000000000e0 * t3783 - t3786 - 0.10773600000000000000e0 * t498 * t1223 * t591 * t362 + 0.21547200000000000000e0 * t1252 * t1223 * t1432 * t158 + 0.21547200000000000000e0 * t3795 - 0.14364800000000000000e0 * t3681 - 0.28729600000000000000e0 * t3684 - 0.10773600000000000000e0 * t3799 + 0.32320800000000000000e0 * t3251 * t412 * t267 - 0.10773600000000000000e0 * t3804 - t3807 - 0.32320800000000000000e0 * t498 * t527 * t603 * t362 - 0.43094400000000000000e0 * t3687 + t3691 + 0.21547200000000000000e0 * t498 * t3287 * t595 * t353 + 0.71824000000000000000e-1 * t498 * t3194 * t591 * t353;
3153
3154 t3826 = t1236 * t1450;
3155 t3844 = t1236 * t1454;
3156 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3157 v4rho3tau[4] = -0.28729600000000000000e0 * t3708 - t3744 + t3746 - t3711 - 0.86188800000000000000e0 * t3721 - 0.14364800000000000000e0 * t3674 + t3659 + 0.21547200000000000000e0 * t3606 - 0.10773600000000000000e0 * t3661 - 0.14364800000000000000e0 * t3826 + 0.71824000000000000000e-1 * t498 * t3120 * t1449 * t114 + 0.21547200000000000000e0 * t498 * t3068 * t1449 * t152 - 0.10773600000000000000e0 * t498 * t1169 * t575 * t425 - 0.21547200000000000000e0 * t1252 * t1169 * t587 * t9 - 0.43094400000000000000e0 * t3844 - 0.10773600000000000000e0 * t498 * t1169 * t1453 * t114 + 0.64641600000000000000e0 * t498 * t1174 * t1453 * t152 - 0.32320800000000000000e0 * t498 * t499 * t575 * t431 - 0.32320800000000000000e0 * t498 * t499 * t253 * t998;
3158
3159 t3886 = t1236 * t1465;
3160 t3908 = t1236 * t1485;
3161 t3910 = t1236 * t1469;
3162 t3912 = -0.12928320000000000000e1 * t1252 * t1270 * t1432 * t207 - 0.21547200000000000000e0 * t498 * t1223 * t1468 * t158 - 0.10773600000000000000e0 * t498 * t1223 * t1472 * t158 - 0.19392480000000000000e1 * t498 * t3389 * t1476 * t158 + 0.71824000000000000000e-1 * t498 * t3194 * t1460 * t158 + 0.21547200000000000000e0 * t1252 * t1223 * t591 * t9 + 0.17237760000000000000e1 * t3886 + 0.12928320000000000000e1 * t498 * t1270 * t1480 * t158 + 0.64641600000000000000e0 * t498 * t1270 * t1484 * t158 + 0.64641600000000000000e0 * t1252 * t527 * t603 * t9 - 0.32320800000000000000e0 * t498 * t527 * t266 * t1003 - 0.32320800000000000000e0 * t498 * t527 * t1493 * t158 + 0.64641600000000000000e0 * t3908 - 0.86188800000000000000e0 * t3910;
3163 t3913 = t1236 * t1473;
3164 t3915 = t1236 * t1477;
3165 t3917 = t1236 * t1481;
3166 t3919 = t1236 * t1461;
3167 t3929 = t1275 * t1495;
3168 t3931 = -0.43094400000000000000e0 * t3913 - 0.19392480000000000000e1 * t3915 + 0.12928320000000000000e1 * t3917 - 0.14364800000000000000e0 * t3919 - 0.28729600000000000000e0 * t3783 + 0.43094400000000000000e0 * t3795 + 0.86188800000000000000e0 * t3799 - t3807 - 0.14364800000000000000e0 * t3684 + 0.43094400000000000000e0 * t3375 * t1766 * t992 + t3774 - t3786 + t3691 - 0.21547200000000000000e0 * t3804 - 0.32320800000000000000e0 * t3929;
3169 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3170 v4rho3tau[5] = t3912 + t3931;
3171
3172 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3173 v4rho3tau[6] = -0.43094400000000000000e0 * t3708 - 0.43094400000000000000e0 * t3826 - 0.12928320000000000000e1 * t3844 + t3659 + 0.71824000000000000000e-1 * t498 * t3120 * t253 * t1080 - 0.32320800000000000000e0 * t498 * t1169 * t587 * t431 - 0.32320800000000000000e0 * t498 * t499 * t253 * t1132;
3174
3175 t4004 = -0.58177440000000000000e1 * t498 * t3389 * t591 * t454 - 0.43633080000000000000e1 * t498 * t1310 * t595 * t487 + 0.64641600000000000000e0 * t498 * t3287 * t1460 * t207 - 0.32320800000000000000e0 * t498 * t1223 * t591 * t446 + 0.38784960000000000000e1 * t498 * t1270 * t1468 * t207 + 0.19392480000000000000e1 * t498 * t1270 * t1472 * t207 + 0.19392480000000000000e1 * t498 * t1270 * t591 * t487 + 0.51713280000000000000e1 * t3886 + 0.71824000000000000000e-1 * t498 * t3194 * t266 * t1086 - 0.32320800000000000000e0 * t498 * t1223 * t603 * t436 - 0.96962400000000000000e0 * t498 * t527 * t1493 * t175 - 0.96962400000000000000e0 * t498 * t527 * t603 * t446 - 0.32320800000000000000e0 * t498 * t527 * t266 * t1092 - 0.43633080000000000000e1 * t498 * t1310 * t603 * t454 + 0.14544360000000000000e1 * t498 * t540 * t1493 * t207;
3176 t4038 = 0.14544360000000000000e1 * t498 * t540 * t603 * t487 + 0.48481200000000000000e0 * t498 * t540 * t266 * t1127 + 0.58177440000000000000e1 * t498 * t3545 * t266 * t1075 + 0.19392480000000000000e1 * t3908 - 0.25856640000000000000e1 * t3910 - 0.12928320000000000000e1 * t3913 - 0.58177440000000000000e1 * t3915 + 0.38784960000000000000e1 * t3917 - 0.43094400000000000000e0 * t3919 - 0.43094400000000000000e0 * t3783 + 0.64641600000000000000e0 * t3795 - 0.24240600000000000000e0 * t216 * t231 * t181 * (0.73e2 / 0.2025e4 * t1111 * t258 - 0.73e2 / 0.405e3 * t1325 + 0.584e3 / 0.1215e4 * t1327 - 0.6424e4 / 0.10935e5 * t1330 + 0.18031e5 / 0.65610e5 * t1333) + t3691 - 0.32320800000000000000e0 * t3804 - 0.96962400000000000000e0 * t3929;
3177 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3178 v4rho3tau[7] = t4004 + t4038;
3179
3180 t4039 = t1524 * t49;
3181 t4045 = t1235 * t1514;
3182 t4046 = t4045 * t1519;
3183 t4048 = t1235 * t1522;
3184 t4049 = t4048 * t1526;
3185 t4063 = t49 * t148;
3186 t4068 = t790 * t47;
3187 t4089 = 0.66203076136767769141e-3 * t1515 * t4039 * t55 * t114 * t152 - 0.44135384091178512760e-3 * t4046 + 0.66203076136767769141e-3 * t4049 - 0.16550769034191942285e-3 * t1515 * t1516 * t1517 * t296 + 0.24826153551287913428e-3 * t1523 * t1524 * t1517 * t345 - 0.55169230113973140950e-4 * t3208 * t1516 * t1517 * t277 + 0.17654153636471405104e-2 * t1515 * t1516 * t4063 * t114 - 0.74478460653863740284e-3 * t1523 * t4068 * t1517 * t312 - 0.26481230454707107656e-2 * t1523 * t1524 * t4063 * t152 - 0.58177440000000000000e1 * t498 * t1187 * t505 * t519 - 0.38784960000000000000e1 * t498 * t3081 * t1500 * t152 + 0.25856640000000000000e1 * t498 * t1174 * t500 * t519;
3188 t4095 = 0.55169230113973140950e-4 * t3261 * t615;
3189 t4096 = t1236 * t1530;
3190 t4110 = t1236 * t1501;
3191 t4112 = t1236 * t1505;
3192 t4114 = t1236 * t1509;
3193 t4124 = t519 * t519;
3194 t4130 = 0.21547200000000000000e0 * t3295 * t610;
3195 t4131 = -0.41928614886619587123e-2 * t498 * t613 * t50 * t341 - t4095 + 0.17654153636471405104e-2 * t4096 + 0.64641600000000000000e0 * t498 * t1174 * t608 * t296 - 0.14544360000000000000e1 * t498 * t1187 * t608 * t345 + 0.96962400000000000000e0 * t498 * t504 * t226 * t1212 + 0.17237760000000000000e1 * t4110 - 0.38784960000000000000e1 * t4112 + 0.25856640000000000000e1 * t4114 + 0.21547200000000000000e0 * t498 * t3068 * t608 * t277 + 0.58177440000000000000e1 * t498 * t3173 * t608 * t312 + 0.96962400000000000000e0 * t216 * t217 * t311 * t4124 + t4130;
3196 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3197 v4rho2sigma2[0] = t4089 + t4131;
3198
3199 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3200 v4rho2sigma2[1] = 0.0e0;
3201
3202 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3203 v4rho2sigma2[2] = 0.0e0;
3204
3205 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3206 v4rho2sigma2[3] = 0.0e0;
3207
3208 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3209 v4rho2sigma2[4] = 0.0e0;
3210
3211 t4133 = 0.21547200000000000000e0 * t3295 * t620;
3212 t4134 = t1236 * t1536;
3213 t4145 = 0.55169230113973140950e-4 * t3261 * t625;
3214 t4146 = t1235 * t1541;
3215 t4147 = t4146 * t1546;
3216 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3217 v4rho2sigma2[5] = t4133 + 0.17237760000000000000e1 * t4134 + 0.21547200000000000000e0 * t498 * t3287 * t618 * t353 + 0.64641600000000000000e0 * t498 * t1270 * t618 * t362 - t4145 - 0.44135384091178512760e-3 * t4147 - 0.55169230113973140950e-4 * t3375 * t1543 * t1544 * t353 - 0.16550769034191942285e-3 * t1542 * t1543 * t1544 * t362;
3218
3219 t4160 = t1236 * t1550;
3220 t4181 = t4045 * t1554;
3221 t4183 = t1516 * t49;
3222 t4184 = t55 * t170;
3223 t4197 = t1251 * t1514;
3224 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3225 v4rho2sigma2[6] = t4130 + 0.86188800000000000000e0 * t4110 - 0.19392480000000000000e1 * t4112 + 0.12928320000000000000e1 * t4114 + 0.86188800000000000000e0 * t4160 + 0.21547200000000000000e0 * t498 * t3068 * t1549 * t114 - 0.19392480000000000000e1 * t498 * t3081 * t1549 * t152 + 0.12928320000000000000e1 * t498 * t1174 * t532 * t519 + 0.64641600000000000000e0 * t1252 * t1174 * t608 * t9 - t4095 - 0.22067692045589256380e-3 * t4046 + 0.33101538068383884570e-3 * t4049 + 0.88270768182357025520e-3 * t4096 - 0.22067692045589256380e-3 * t4181 - 0.55169230113973140950e-4 * t3208 * t4183 * t4184 * t114 + 0.33101538068383884570e-3 * t1515 * t4039 * t4184 * t152 + 0.88270768182357025520e-3 * t1515 * t1516 * t4063 * t170 - 0.16550769034191942285e-3 * t4197 * t1516 * t1517 * t9;
3226
3227 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3228 v4rho2sigma2[7] = 0.0e0;
3229
3230 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3231 v4rho2sigma2[8] = 0.0e0;
3232
3233 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3234 v4rho2sigma2[9] = 0.0e0;
3235
3236 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3237 v4rho2sigma2[10] = 0.0e0;
3238
3239 t4203 = t1236 * t1558;
3240 t4213 = t1236 * t1562;
3241 t4219 = t1236 * t1566;
3242 t4226 = t4146 * t1570;
3243 t4228 = t1543 * t49;
3244 t4229 = t96 * t175;
3245 t4234 = t1251 * t1541;
3246 t4239 = t1235 * t1573;
3247 t4240 = t4239 * t1577;
3248 t4242 = t1575 * t49;
3249 t4248 = t1236 * t1581;
3250 t4250 = t49 * t203;
3251 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3252 v4rho2sigma2[11] = t4133 + 0.86188800000000000000e0 * t4134 + 0.86188800000000000000e0 * t4203 + 0.21547200000000000000e0 * t498 * t3287 * t1557 * t158 - 0.64641600000000000000e0 * t1252 * t1270 * t618 * t9 - 0.19392480000000000000e1 * t4213 - 0.19392480000000000000e1 * t498 * t3389 * t1561 * t158 + 0.12928320000000000000e1 * t4219 + 0.12928320000000000000e1 * t498 * t1270 * t1565 * t158 - t4145 - 0.22067692045589256380e-3 * t4147 - 0.22067692045589256380e-3 * t4226 - 0.55169230113973140950e-4 * t3375 * t4228 * t4229 * t158 + 0.16550769034191942285e-3 * t4234 * t1543 * t1544 * t9 + 0.33101538068383884571e-3 * t4240 + 0.33101538068383884571e-3 * t1542 * t4242 * t96 * t207 * t158 + 0.88270768182357025521e-3 * t4248 + 0.88270768182357025521e-3 * t1542 * t1543 * t4250 * t158;
3253
3254 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3255 v4rho2sigma2[12] = t4130 + 0.17237760000000000000e1 * t4160 + 0.21547200000000000000e0 * t498 * t3068 * t608 * t425 + 0.64641600000000000000e0 * t498 * t1174 * t608 * t431 - t4095 - 0.44135384091178512760e-3 * t4181 - 0.55169230113973140950e-4 * t3208 * t1516 * t1517 * t425 - 0.16550769034191942285e-3 * t1515 * t1516 * t1517 * t431;
3256
3257 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3258 v4rho2sigma2[13] = 0.0e0;
3259
3260 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3261 v4rho2sigma2[14] = 0.0e0;
3262
3263 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3264 v4rho2sigma2[15] = 0.0e0;
3265
3266 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3267 v4rho2sigma2[16] = 0.0e0;
3268
3269 t4285 = t1074 * t47;
3270 t4313 = 0.66203076136767769141e-3 * t1542 * t4242 * t4229 * t207 - 0.16550769034191942285e-3 * t1542 * t1543 * t1544 * t446 + 0.24826153551287913428e-3 * t1574 * t1575 * t1544 * t487 - 0.74478460653863740284e-3 * t1574 * t4285 * t1544 * t454 - 0.26481230454707107656e-2 * t1574 * t1575 * t4250 * t207 - 0.55169230113973140950e-4 * t3375 * t1543 * t1544 * t436 + 0.17654153636471405104e-2 * t1542 * t1543 * t4250 * t175 - 0.44135384091178512760e-3 * t4226 + 0.66203076136767769141e-3 * t4240 + 0.17654153636471405104e-2 * t4248 - 0.41928614886619587123e-2 * t498 * t623 * t50 * t483 + 0.25856640000000000000e1 * t498 * t1270 * t536 * t555;
3271 t4345 = t555 * t555;
3272 t4350 = -0.58177440000000000000e1 * t498 * t1310 * t541 * t555 - 0.38784960000000000000e1 * t498 * t3389 * t1557 * t207 - t4145 + 0.96962400000000000000e0 * t498 * t540 * t240 * t1335 + 0.58177440000000000000e1 * t498 * t3545 * t618 * t454 + 0.21547200000000000000e0 * t498 * t3287 * t618 * t436 + 0.17237760000000000000e1 * t4203 - 0.38784960000000000000e1 * t4213 + 0.25856640000000000000e1 * t4219 + 0.64641600000000000000e0 * t498 * t1270 * t618 * t446 - 0.14544360000000000000e1 * t498 * t1310 * t618 * t487 + t4133 + 0.96962400000000000000e0 * t216 * t231 * t453 * t4345;
3273 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3274 v4rho2sigma2[17] = t4313 + t4350;
3275
3276 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3277 v4rho2sigmalapl[0] = 0.0e0;
3278
3279 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3280 v4rho2sigmalapl[1] = 0.0e0;
3281
3282 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3283 v4rho2sigmalapl[2] = 0.0e0;
3284
3285 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3286 v4rho2sigmalapl[3] = 0.0e0;
3287
3288 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3289 v4rho2sigmalapl[4] = 0.0e0;
3290
3291 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3292 v4rho2sigmalapl[5] = 0.0e0;
3293
3294 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3295 v4rho2sigmalapl[6] = 0.0e0;
3296
3297 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3298 v4rho2sigmalapl[7] = 0.0e0;
3299
3300 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3301 v4rho2sigmalapl[8] = 0.0e0;
3302
3303 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3304 v4rho2sigmalapl[9] = 0.0e0;
3305
3306 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3307 v4rho2sigmalapl[10] = 0.0e0;
3308
3309 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3310 v4rho2sigmalapl[11] = 0.0e0;
3311
3312 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3313 v4rho2sigmalapl[12] = 0.0e0;
3314
3315 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3316 v4rho2sigmalapl[13] = 0.0e0;
3317
3318 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3319 v4rho2sigmalapl[14] = 0.0e0;
3320
3321 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3322 v4rho2sigmalapl[15] = 0.0e0;
3323
3324 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3325 v4rho2sigmalapl[16] = 0.0e0;
3326
3327 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3328 v4rho2sigmalapl[17] = 0.0e0;
3329
3330 t4366 = t790 * t253;
3331 t4370 = t4045 * t1606;
3332 t4372 = t4048 * t1610;
3333 t4382 = t1236 * t1587;
3334 t4384 = t1236 * t1591;
3335 t4394 = -0.56099568724279835391e-2 * t1512 + 0.11219913744855967078e-1 * t1531 - 0.25892108641975308642e-2 * t1515 * t4039 * t249 * t114 * t152 + 0.64730271604938271605e-3 * t1515 * t1516 * t1604 * t296 - 0.97095407407407407408e-3 * t1523 * t1524 * t1604 * t345 - 0.38784960000000000000e1 * t1515 * t4366 * t1175 + 0.17261405761316872428e-2 * t4370 - 0.25892108641975308642e-2 * t4372 + 0.21576757201646090535e-3 * t3208 * t1516 * t1604 * t277 + 0.29128622222222222222e-2 * t1523 * t4068 * t1604 * t312 + 0.17237760000000000000e1 * t4382 - 0.38784960000000000000e1 * t4384 + 0.12928320000000000000e1 * t498 * t1174 * t1594 * t114 + 0.12928320000000000000e1 * t498 * t1174 * t1598 * t114;
3336 t4420 = 0.21576757201646090535e-3 * t3261 * t633;
3337 t4422 = 0.21547200000000000000e0 * t3261 * t629;
3338 t4423 = t1236 * t1595;
3339 t4425 = t1236 * t1599;
3340 t4441 = 0.64641600000000000000e0 * t498 * t1174 * t628 * t296 - 0.29088720000000000000e1 * t498 * t1187 * t1594 * t152 - 0.29088720000000000000e1 * t498 * t1187 * t1598 * t152 - 0.14544360000000000000e1 * t498 * t1187 * t628 * t345 + 0.21547200000000000000e0 * t498 * t3068 * t628 * t277 + 0.58177440000000000000e1 * t498 * t3173 * t628 * t312 + t4420 + t4422 + 0.12928320000000000000e1 * t4423 + 0.12928320000000000000e1 * t4425 + 0.48481200000000000000e0 * t498 * t504 * t1385 * t226 + 0.96962400000000000000e0 * t498 * t504 * t575 * t519 + 0.48481200000000000000e0 * t498 * t504 * t253 * t1212 - 0.56099568724279835391e-2 * t1520 + 0.84149353086419753087e-2 * t1527;
3341 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3342 v4rho2sigmatau[0] = t4394 + t4441;
3343
3344 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3345 v4rho2sigmatau[1] = 0.0e0;
3346
3347 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3348 v4rho2sigmatau[2] = 0.0e0;
3349
3350 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3351 v4rho2sigmatau[3] = 0.0e0;
3352
3353 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3354 v4rho2sigmatau[4] = 0.0e0;
3355
3356 t4443 = 0.21547200000000000000e0 * t3261 * t637;
3357 t4444 = t1236 * t1617;
3358 t4455 = 0.21576757201646090535e-3 * t3261 * t641;
3359 t4456 = t4146 * t1624;
3360 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3361 v4rho2sigmatau[5] = t4443 + 0.17237760000000000000e1 * t4444 + 0.21547200000000000000e0 * t498 * t3287 * t636 * t353 + 0.64641600000000000000e0 * t498 * t1270 * t636 * t362 + t4455 + 0.17261405761316872428e-2 * t4456 + 0.21576757201646090535e-3 * t3375 * t1543 * t1622 * t353 + 0.64730271604938271605e-3 * t1542 * t1543 * t1622 * t362;
3362
3363 t4470 = t1236 * t1628;
3364 t4493 = t4045 * t1632;
3365 t4495 = t249 * t170;
3366 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3367 v4rho2sigmatau[6] = t4422 + 0.86188800000000000000e0 * t4382 - 0.19392480000000000000e1 * t4384 + 0.64641600000000000000e0 * t4423 + 0.64641600000000000000e0 * t4425 + 0.86188800000000000000e0 * t4470 + 0.21547200000000000000e0 * t3208 * t1754 * t1239 - 0.19392480000000000000e1 * t1515 * t4366 * t1243 + 0.64641600000000000000e0 * t498 * t1174 * t1594 * t170 + 0.64641600000000000000e0 * t498 * t1174 * t1598 * t170 + 0.64641600000000000000e0 * t1252 * t1174 * t628 * t9 + t4420 + 0.86307028806584362140e-3 * t4370 - 0.12946054320987654321e-2 * t4372 - 0.28049784362139917695e-2 * t1512 + 0.86307028806584362140e-3 * t4493 + 0.21576757201646090535e-3 * t3208 * t4183 * t4495 * t114 - 0.12946054320987654321e-2 * t1515 * t4039 * t4495 * t152 - 0.28049784362139917695e-2 * t1555 + 0.64730271604938271605e-3 * t4197 * t1516 * t1604 * t9;
3368
3369 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3370 v4rho2sigmatau[7] = 0.0e0;
3371
3372 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3373 v4rho2sigmatau[8] = 0.0e0;
3374
3375 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3376 v4rho2sigmatau[9] = 0.0e0;
3377
3378 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3379 v4rho2sigmatau[10] = 0.0e0;
3380
3381 t4510 = t1236 * t1636;
3382 t4519 = t1236 * t1640;
3383 t4521 = t1074 * t266;
3384 t4525 = t1236 * t1644;
3385 t4531 = t1236 * t1648;
3386 t4538 = t4146 * t1652;
3387 t4540 = t262 * t175;
3388 t4549 = t4239 * t1656;
3389 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3390 v4rho2sigmatau[11] = t4443 + 0.86188800000000000000e0 * t4444 + 0.86188800000000000000e0 * t4510 + 0.21547200000000000000e0 * t3375 * t1766 * t1260 - 0.64641600000000000000e0 * t1252 * t1270 * t636 * t9 - 0.19392480000000000000e1 * t4519 - 0.19392480000000000000e1 * t1542 * t4521 * t1271 + 0.64641600000000000000e0 * t4525 + 0.64641600000000000000e0 * t498 * t1270 * t1643 * t158 + 0.64641600000000000000e0 * t4531 + 0.64641600000000000000e0 * t498 * t1270 * t1647 * t158 + t4455 + 0.86307028806584362140e-3 * t4456 + 0.86307028806584362140e-3 * t4538 + 0.21576757201646090535e-3 * t3375 * t4228 * t4540 * t158 - 0.64730271604938271605e-3 * t4234 * t1543 * t1622 * t9 - 0.12946054320987654321e-2 * t4549 - 0.12946054320987654321e-2 * t1542 * t4242 * t262 * t207 * t158 - 0.28049784362139917696e-2 * t1539 - 0.28049784362139917696e-2 * t1547;
3391
3392 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3393 v4rho2sigmatau[12] = t4422 + 0.17237760000000000000e1 * t4470 + 0.21547200000000000000e0 * t498 * t3068 * t628 * t425 + 0.64641600000000000000e0 * t498 * t1174 * t628 * t431 + t4420 + 0.17261405761316872428e-2 * t4493 + 0.21576757201646090535e-3 * t3208 * t1516 * t1604 * t425 + 0.64730271604938271605e-3 * t1515 * t1516 * t1604 * t431;
3394
3395 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3396 v4rho2sigmatau[13] = 0.0e0;
3397
3398 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3399 v4rho2sigmatau[14] = 0.0e0;
3400
3401 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3402 v4rho2sigmatau[15] = 0.0e0;
3403
3404 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3405 v4rho2sigmatau[16] = 0.0e0;
3406
3407 t4619 = -0.56099568724279835391e-2 * t1539 + 0.11219913744855967078e-1 * t1582 - 0.25892108641975308642e-2 * t1542 * t4242 * t4540 * t207 - 0.38784960000000000000e1 * t1542 * t4521 * t1298 + 0.21576757201646090535e-3 * t3375 * t1543 * t1622 * t436 + 0.29128622222222222222e-2 * t1574 * t4285 * t1622 * t454 + 0.17261405761316872428e-2 * t4538 - 0.25892108641975308642e-2 * t4549 + 0.64730271604938271605e-3 * t1542 * t1543 * t1622 * t446 - 0.97095407407407407408e-3 * t1574 * t1575 * t1622 * t487 + 0.12928320000000000000e1 * t498 * t1270 * t1643 * t175 + 0.12928320000000000000e1 * t498 * t1270 * t1647 * t175 + 0.64641600000000000000e0 * t498 * t1270 * t636 * t446 - 0.29088720000000000000e1 * t498 * t1310 * t1643 * t207;
3408 t4654 = -0.29088720000000000000e1 * t498 * t1310 * t1647 * t207 - 0.14544360000000000000e1 * t498 * t1310 * t636 * t487 + 0.21547200000000000000e0 * t498 * t3287 * t636 * t436 + 0.58177440000000000000e1 * t498 * t3545 * t636 * t454 + t4455 + 0.17237760000000000000e1 * t4510 - 0.38784960000000000000e1 * t4519 + 0.12928320000000000000e1 * t4525 + 0.12928320000000000000e1 * t4531 + 0.48481200000000000000e0 * t498 * t540 * t1493 * t240 + 0.96962400000000000000e0 * t498 * t540 * t603 * t555 + 0.48481200000000000000e0 * t498 * t540 * t266 * t1335 + t4443 + 0.84149353086419753087e-2 * t1578 - 0.56099568724279835391e-2 * t1571;
3409 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3410 v4rho2sigmatau[17] = t4619 + t4654;
3411
3412 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3413 v4rho2lapl2[0] = 0.0e0;
3414
3415 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3416 v4rho2lapl2[1] = 0.0e0;
3417
3418 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3419 v4rho2lapl2[2] = 0.0e0;
3420
3421 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3422 v4rho2lapl2[3] = 0.0e0;
3423
3424 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3425 v4rho2lapl2[4] = 0.0e0;
3426
3427 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3428 v4rho2lapl2[5] = 0.0e0;
3429
3430 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3431 v4rho2lapl2[6] = 0.0e0;
3432
3433 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3434 v4rho2lapl2[7] = 0.0e0;
3435
3436 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3437 v4rho2lapl2[8] = 0.0e0;
3438
3439 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3440 v4rho2lapltau[0] = 0.0e0;
3441
3442 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3443 v4rho2lapltau[1] = 0.0e0;
3444
3445 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3446 v4rho2lapltau[2] = 0.0e0;
3447
3448 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3449 v4rho2lapltau[3] = 0.0e0;
3450
3451 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3452 v4rho2lapltau[4] = 0.0e0;
3453
3454 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3455 v4rho2lapltau[5] = 0.0e0;
3456
3457 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3458 v4rho2lapltau[6] = 0.0e0;
3459
3460 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3461 v4rho2lapltau[7] = 0.0e0;
3462
3463 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3464 v4rho2lapltau[8] = 0.0e0;
3465
3466 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3467 v4rho2lapltau[9] = 0.0e0;
3468
3469 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3470 v4rho2lapltau[10] = 0.0e0;
3471
3472 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3473 v4rho2lapltau[11] = 0.0e0;
3474
3475 t4670 = t4045 * t1678;
3476 t4672 = t4048 * t1682;
3477 t4694 = 0.19419081481481481482e-1 * t1602 - 0.31556007407407407408e-1 * t616 + 0.11651448888888888889e-1 * t1515 * t4039 * t650 * t114 * t152 - 0.13107880000000000000e-1 * t1523 * t4068 * t1676 * t312 - 0.97095407407407407410e-3 * t3208 * t1516 * t1676 * t277 - 0.77676325925925925928e-2 * t4670 + 0.11651448888888888889e-1 * t4672 - 0.29128622222222222223e-2 * t1515 * t1516 * t1676 * t296 + 0.43692933333333333334e-2 * t1523 * t1524 * t1676 * t345 - 0.38784960000000000000e1 * t498 * t3081 * t1662 * t152 + 0.25856640000000000000e1 * t498 * t1174 * t563 * t575 - 0.58177440000000000000e1 * t498 * t1187 * t567 * t575;
3478 t4696 = 0.97095407407407407410e-3 * t3261 * t652;
3479 t4709 = t1236 * t1663;
3480 t4711 = t1236 * t1667;
3481 t4713 = t1236 * t1671;
3482 t4726 = 0.21547200000000000000e0 * t3295 * t646;
3483 t4727 = t575 * t575;
3484 t4732 = -t4696 + 0.21547200000000000000e0 * t498 * t3068 * t644 * t277 + 0.58177440000000000000e1 * t498 * t3173 * t644 * t312 + 0.96962400000000000000e0 * t498 * t504 * t253 * t1385 + 0.17237760000000000000e1 * t4709 - 0.38784960000000000000e1 * t4711 + 0.25856640000000000000e1 * t4713 + 0.64641600000000000000e0 * t498 * t1174 * t644 * t296 - 0.14544360000000000000e1 * t498 * t1187 * t644 * t345 + 0.19419081481481481482e-1 * t1607 - 0.29128622222222222222e-1 * t1611 + t4726 + 0.96962400000000000000e0 * t216 * t217 * t311 * t4727;
3485 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3486 v4rho2tau2[0] = t4694 + t4732;
3487
3488 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3489 v4rho2tau2[1] = 0.0e0;
3490
3491 t4734 = 0.21547200000000000000e0 * t3295 * t657;
3492 t4735 = t1236 * t1689;
3493 t4746 = 0.97095407407407407410e-3 * t3261 * t663;
3494 t4747 = t4146 * t1696;
3495 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3496 v4rho2tau2[2] = t4734 + 0.17237760000000000000e1 * t4735 + 0.21547200000000000000e0 * t498 * t3287 * t655 * t353 + 0.64641600000000000000e0 * t498 * t1270 * t655 * t362 - t4746 - 0.77676325925925925928e-2 * t4747 - 0.97095407407407407410e-3 * t3375 * t1543 * t1694 * t353 - 0.29128622222222222223e-2 * t1542 * t1543 * t1694 * t362;
3497
3498 t4760 = t1236 * t1700;
3499 t4781 = t4045 * t1704;
3500 t4783 = t650 * t170;
3501 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3502 v4rho2tau2[3] = t4726 + 0.86188800000000000000e0 * t4709 - 0.19392480000000000000e1 * t4711 + 0.12928320000000000000e1 * t4713 + 0.86188800000000000000e0 * t4760 + 0.21547200000000000000e0 * t498 * t3068 * t1699 * t114 - 0.19392480000000000000e1 * t498 * t3081 * t1699 * t152 + 0.12928320000000000000e1 * t498 * t1174 * t587 * t575 + 0.64641600000000000000e0 * t1252 * t1174 * t644 * t9 - t4696 - 0.38838162962962962964e-2 * t4670 + 0.58257244444444444446e-2 * t4672 + 0.97095407407407407410e-2 * t1602 - 0.38838162962962962964e-2 * t4781 - 0.97095407407407407410e-3 * t3208 * t4183 * t4783 * t114 + 0.58257244444444444446e-2 * t1515 * t4039 * t4783 * t152 + 0.97095407407407407410e-2 * t1633 - 0.29128622222222222223e-2 * t4197 * t1516 * t1676 * t9;
3503
3504 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3505 v4rho2tau2[4] = 0.0e0;
3506
3507 t4798 = t1236 * t1708;
3508 t4808 = t1236 * t1712;
3509 t4814 = t1236 * t1716;
3510 t4821 = t4146 * t1720;
3511 t4823 = t661 * t175;
3512 t4832 = t4239 * t1724;
3513 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3514 v4rho2tau2[5] = t4734 + 0.86188800000000000000e0 * t4735 + 0.86188800000000000000e0 * t4798 + 0.21547200000000000000e0 * t498 * t3287 * t1707 * t158 - 0.64641600000000000000e0 * t1252 * t1270 * t655 * t9 - 0.19392480000000000000e1 * t4808 - 0.19392480000000000000e1 * t498 * t3389 * t1711 * t158 + 0.12928320000000000000e1 * t4814 + 0.12928320000000000000e1 * t498 * t1270 * t1715 * t158 - t4746 - 0.38838162962962962964e-2 * t4747 - 0.38838162962962962964e-2 * t4821 - 0.97095407407407407410e-3 * t3375 * t4228 * t4823 * t158 + 0.29128622222222222223e-2 * t4234 * t1543 * t1694 * t9 + 0.58257244444444444445e-2 * t4832 + 0.58257244444444444445e-2 * t1542 * t4242 * t661 * t207 * t158 + 0.97095407407407407409e-2 * t1620 + 0.97095407407407407409e-2 * t1625;
3515
3516 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3517 v4rho2tau2[6] = t4726 + 0.17237760000000000000e1 * t4760 + 0.21547200000000000000e0 * t498 * t3068 * t644 * t425 + 0.64641600000000000000e0 * t498 * t1174 * t644 * t431 - t4696 - 0.77676325925925925928e-2 * t4781 - 0.97095407407407407410e-3 * t3208 * t1516 * t1676 * t425 - 0.29128622222222222223e-2 * t1515 * t1516 * t1676 * t431;
3518
3519 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3520 v4rho2tau2[7] = 0.0e0;
3521
3522 t4895 = 0.19419081481481481482e-1 * t1620 - 0.31556007407407407408e-1 * t626 + 0.11651448888888888889e-1 * t1542 * t4242 * t4823 * t207 - 0.77676325925925925928e-2 * t4821 + 0.11651448888888888889e-1 * t4832 - 0.97095407407407407410e-3 * t3375 * t1543 * t1694 * t436 - 0.13107880000000000000e-1 * t1574 * t4285 * t1694 * t454 - 0.29128622222222222223e-2 * t1542 * t1543 * t1694 * t446 + 0.43692933333333333334e-2 * t1574 * t1575 * t1694 * t487 - 0.38784960000000000000e1 * t498 * t3389 * t1707 * t207 + 0.25856640000000000000e1 * t498 * t1270 * t591 * t603 - 0.58177440000000000000e1 * t498 * t1310 * t595 * t603;
3523 t4921 = t603 * t603;
3524 t4926 = -t4746 + 0.21547200000000000000e0 * t498 * t3287 * t655 * t436 + 0.58177440000000000000e1 * t498 * t3545 * t655 * t454 - 0.14544360000000000000e1 * t498 * t1310 * t655 * t487 + 0.96962400000000000000e0 * t498 * t540 * t266 * t1493 + 0.64641600000000000000e0 * t498 * t1270 * t655 * t446 + 0.17237760000000000000e1 * t4798 - 0.38784960000000000000e1 * t4808 + 0.25856640000000000000e1 * t4814 + 0.19419081481481481482e-1 * t1653 - 0.29128622222222222222e-1 * t1657 + t4734 + 0.96962400000000000000e0 * t216 * t231 * t453 * t4921;
3525 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3526 v4rho2tau2[8] = t4895 + t4926;
3527
3528 t4928 = 0.19392480000000000000e1 * t1275 * t1730;
3529 t4942 = 0.99304614205151653712e-3 * t4048 * t1734;
3530 t4943 = t1733 * t47;
3531 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3532 v4rhosigma3[0] = -t4928 - 0.19392480000000000000e1 * t498 * t3081 * t1728 * t114 + 0.58177440000000000000e1 * t498 * t3173 * t1728 * t152 - 0.43633080000000000000e1 * t498 * t1187 * t608 * t519 + t4942 + 0.99304614205151653712e-3 * t1515 * t4943 * t1518 - 0.22343538196159122085e-2 * t1523 * t790 * t226 * t47 * t1525 + 0.74478460653863740284e-3 * t1523 * t311 * t519 * t614 - 0.39721845682060661485e-2 * t1523 * t1733 * t1529;
3533
3534 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3535 v4rhosigma3[1] = 0.0e0;
3536
3537 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3538 v4rhosigma3[2] = 0.0e0;
3539
3540 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3541 v4rhosigma3[3] = 0.0e0;
3542
3543 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3544 v4rhosigma3[4] = 0.0e0;
3545
3546 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3547 v4rhosigma3[5] = 0.0e0;
3548
3549 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3550 v4rhosigma3[6] = 0.0e0;
3551
3552 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3553 v4rhosigma3[7] = 0.0e0;
3554
3555 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3556 v4rhosigma3[8] = 0.0e0;
3557
3558 t4960 = 0.19392480000000000000e1 * t1275 * t1739;
3559 t4966 = 0.99304614205151653712e-3 * t4239 * t1743;
3560 t4967 = t1742 * t47;
3561 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3562 v4rhosigma3[9] = -t4960 - 0.19392480000000000000e1 * t498 * t3389 * t1737 * t158 + t4966 + 0.99304614205151653712e-3 * t1542 * t4967 * t1545;
3563
3564 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3565 v4rhosigma3[10] = -t4928 - 0.19392480000000000000e1 * t498 * t3081 * t1728 * t170 + t4942 + 0.99304614205151653712e-3 * t1515 * t4943 * t1553;
3566
3567 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3568 v4rhosigma3[11] = 0.0e0;
3569
3570 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3571 v4rhosigma3[12] = 0.0e0;
3572
3573 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3574 v4rhosigma3[13] = 0.0e0;
3575
3576 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3577 v4rhosigma3[14] = 0.0e0;
3578
3579 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3580 v4rhosigma3[15] = 0.0e0;
3581
3582 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3583 v4rhosigma3[16] = 0.0e0;
3584
3585 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3586 v4rhosigma3[17] = 0.0e0;
3587
3588 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3589 v4rhosigma3[18] = 0.0e0;
3590
3591 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3592 v4rhosigma3[19] = -t4960 - 0.19392480000000000000e1 * t498 * t3389 * t1737 * t175 + 0.58177440000000000000e1 * t498 * t3545 * t1737 * t207 - 0.43633080000000000000e1 * t498 * t1310 * t618 * t555 + t4966 + 0.99304614205151653712e-3 * t1542 * t4967 * t1569 - 0.22343538196159122085e-2 * t1574 * t1074 * t240 * t47 * t1576 + 0.74478460653863740284e-3 * t1574 * t453 * t555 * t624 - 0.39721845682060661485e-2 * t1574 * t1742 * t1580;
3593
3594 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3595 v4rhosigma2lapl[0] = 0.0e0;
3596
3597 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3598 v4rhosigma2lapl[1] = 0.0e0;
3599
3600 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3601 v4rhosigma2lapl[2] = 0.0e0;
3602
3603 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3604 v4rhosigma2lapl[3] = 0.0e0;
3605
3606 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3607 v4rhosigma2lapl[4] = 0.0e0;
3608
3609 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3610 v4rhosigma2lapl[5] = 0.0e0;
3611
3612 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3613 v4rhosigma2lapl[6] = 0.0e0;
3614
3615 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3616 v4rhosigma2lapl[7] = 0.0e0;
3617
3618 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3619 v4rhosigma2lapl[8] = 0.0e0;
3620
3621 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3622 v4rhosigma2lapl[9] = 0.0e0;
3623
3624 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3625 v4rhosigma2lapl[10] = 0.0e0;
3626
3627 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3628 v4rhosigma2lapl[11] = 0.0e0;
3629
3630 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3631 v4rhosigma2lapl[12] = 0.0e0;
3632
3633 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3634 v4rhosigma2lapl[13] = 0.0e0;
3635
3636 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3637 v4rhosigma2lapl[14] = 0.0e0;
3638
3639 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3640 v4rhosigma2lapl[15] = 0.0e0;
3641
3642 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3643 v4rhosigma2lapl[16] = 0.0e0;
3644
3645 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3646 v4rhosigma2lapl[17] = 0.0e0;
3647
3648 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3649 v4rhosigma2lapl[18] = 0.0e0;
3650
3651 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3652 v4rhosigma2lapl[19] = 0.0e0;
3653
3654 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3655 v4rhosigma2lapl[20] = 0.0e0;
3656
3657 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3658 v4rhosigma2lapl[21] = 0.0e0;
3659
3660 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3661 v4rhosigma2lapl[22] = 0.0e0;
3662
3663 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3664 v4rhosigma2lapl[23] = 0.0e0;
3665
3666 t5006 = 0.19392480000000000000e1 * t1236 * t1747;
3667 t5024 = 0.25892108641975308643e-2 * t4048 * t1751;
3668 t5025 = t249 * t226;
3669 t5030 = t4068 * t49;
3670 t5041 = 0.33101538068383884569e-3 * t4048 * t1755;
3671 t5042 = t1754 * t47;
3672 t5046 = t4366 * t47;
3673 t5050 = t311 * t575;
3674 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3675 v4rhosigma2tau[0] = -t5006 - 0.19392480000000000000e1 * t498 * t3081 * t1746 * t114 + 0.58177440000000000000e1 * t498 * t3173 * t1746 * t152 - 0.14544360000000000000e1 * t498 * t1187 * t575 * t608 - 0.29088720000000000000e1 * t498 * t1187 * t628 * t519 - t5024 - 0.25892108641975308643e-2 * t1515 * t4039 * t5025 * t114 + 0.58257244444444444446e-2 * t1523 * t5030 * t5025 * t152 + 0.84149353086419753089e-2 * t1735 - 0.19419081481481481482e-2 * t1523 * t1524 * t1604 * t519 + t5041 + 0.33101538068383884569e-3 * t1515 * t5042 * t1518 - 0.74478460653863740281e-3 * t1523 * t5046 * t1525 + 0.24826153551287913427e-3 * t1523 * t5050 * t614 - 0.13240615227353553828e-2 * t1523 * t1754 * t1529;
3676
3677 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3678 v4rhosigma2tau[1] = 0.0e0;
3679
3680 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3681 v4rhosigma2tau[2] = 0.0e0;
3682
3683 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3684 v4rhosigma2tau[3] = 0.0e0;
3685
3686 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3687 v4rhosigma2tau[4] = 0.0e0;
3688
3689 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3690 v4rhosigma2tau[5] = 0.0e0;
3691
3692 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3693 v4rhosigma2tau[6] = 0.0e0;
3694
3695 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3696 v4rhosigma2tau[7] = 0.0e0;
3697
3698 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3699 v4rhosigma2tau[8] = 0.0e0;
3700
3701 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3702 v4rhosigma2tau[9] = 0.0e0;
3703
3704 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3705 v4rhosigma2tau[10] = 0.0e0;
3706
3707 t5058 = 0.19392480000000000000e1 * t1236 * t1759;
3708 t5064 = 0.25892108641975308643e-2 * t4239 * t1763;
3709 t5065 = t262 * t240;
3710 t5071 = 0.33101538068383884569e-3 * t4239 * t1767;
3711 t5072 = t1766 * t47;
3712 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3713 v4rhosigma2tau[11] = -t5058 - 0.19392480000000000000e1 * t498 * t3389 * t1758 * t158 - t5064 - 0.25892108641975308643e-2 * t1542 * t4242 * t5065 * t158 + t5071 + 0.33101538068383884569e-3 * t1542 * t5072 * t1545;
3714
3715 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3716 v4rhosigma2tau[12] = -t5006 - 0.19392480000000000000e1 * t498 * t3081 * t1746 * t170 - t5024 - 0.25892108641975308643e-2 * t1515 * t4039 * t5025 * t170 + t5041 + 0.33101538068383884569e-3 * t1515 * t5042 * t1553;
3717
3718 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3719 v4rhosigma2tau[13] = 0.0e0;
3720
3721 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3722 v4rhosigma2tau[14] = 0.0e0;
3723
3724 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3725 v4rhosigma2tau[15] = 0.0e0;
3726
3727 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3728 v4rhosigma2tau[16] = 0.0e0;
3729
3730 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3731 v4rhosigma2tau[17] = 0.0e0;
3732
3733 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3734 v4rhosigma2tau[18] = 0.0e0;
3735
3736 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3737 v4rhosigma2tau[19] = 0.0e0;
3738
3739 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3740 v4rhosigma2tau[20] = 0.0e0;
3741
3742 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3743 v4rhosigma2tau[21] = 0.0e0;
3744
3745 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3746 v4rhosigma2tau[22] = 0.0e0;
3747
3748 t5107 = t4285 * t49;
3749 t5120 = t4521 * t47;
3750 t5124 = t453 * t603;
3751 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3752 v4rhosigma2tau[23] = -t5058 - 0.19392480000000000000e1 * t498 * t3389 * t1758 * t175 + 0.58177440000000000000e1 * t498 * t3545 * t1758 * t207 - 0.14544360000000000000e1 * t498 * t1310 * t603 * t618 - 0.29088720000000000000e1 * t498 * t1310 * t636 * t555 - t5064 - 0.25892108641975308643e-2 * t1542 * t4242 * t5065 * t175 + 0.58257244444444444446e-2 * t1574 * t5107 * t5065 * t207 + 0.84149353086419753089e-2 * t1744 - 0.19419081481481481482e-2 * t1574 * t1575 * t1622 * t555 + t5071 + 0.33101538068383884569e-3 * t1542 * t5072 * t1569 - 0.74478460653863740281e-3 * t1574 * t5120 * t1576 + 0.24826153551287913427e-3 * t1574 * t5124 * t624 - 0.13240615227353553828e-2 * t1574 * t1766 * t1580;
3753
3754 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3755 v4rhosigmalapl2[0] = 0.0e0;
3756
3757 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3758 v4rhosigmalapl2[1] = 0.0e0;
3759
3760 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3761 v4rhosigmalapl2[2] = 0.0e0;
3762
3763 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3764 v4rhosigmalapl2[3] = 0.0e0;
3765
3766 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3767 v4rhosigmalapl2[4] = 0.0e0;
3768
3769 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3770 v4rhosigmalapl2[5] = 0.0e0;
3771
3772 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3773 v4rhosigmalapl2[6] = 0.0e0;
3774
3775 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3776 v4rhosigmalapl2[7] = 0.0e0;
3777
3778 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3779 v4rhosigmalapl2[8] = 0.0e0;
3780
3781 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3782 v4rhosigmalapl2[9] = 0.0e0;
3783
3784 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3785 v4rhosigmalapl2[10] = 0.0e0;
3786
3787 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3788 v4rhosigmalapl2[11] = 0.0e0;
3789
3790 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3791 v4rhosigmalapl2[12] = 0.0e0;
3792
3793 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3794 v4rhosigmalapl2[13] = 0.0e0;
3795
3796 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3797 v4rhosigmalapl2[14] = 0.0e0;
3798
3799 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3800 v4rhosigmalapl2[15] = 0.0e0;
3801
3802 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3803 v4rhosigmalapl2[16] = 0.0e0;
3804
3805 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3806 v4rhosigmalapl2[17] = 0.0e0;
3807
3808 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3809 v4rhosigmalapltau[0] = 0.0e0;
3810
3811 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3812 v4rhosigmalapltau[1] = 0.0e0;
3813
3814 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3815 v4rhosigmalapltau[2] = 0.0e0;
3816
3817 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3818 v4rhosigmalapltau[3] = 0.0e0;
3819
3820 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3821 v4rhosigmalapltau[4] = 0.0e0;
3822
3823 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3824 v4rhosigmalapltau[5] = 0.0e0;
3825
3826 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3827 v4rhosigmalapltau[6] = 0.0e0;
3828
3829 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3830 v4rhosigmalapltau[7] = 0.0e0;
3831
3832 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3833 v4rhosigmalapltau[8] = 0.0e0;
3834
3835 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3836 v4rhosigmalapltau[9] = 0.0e0;
3837
3838 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3839 v4rhosigmalapltau[10] = 0.0e0;
3840
3841 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3842 v4rhosigmalapltau[11] = 0.0e0;
3843
3844 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3845 v4rhosigmalapltau[12] = 0.0e0;
3846
3847 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3848 v4rhosigmalapltau[13] = 0.0e0;
3849
3850 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3851 v4rhosigmalapltau[14] = 0.0e0;
3852
3853 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3854 v4rhosigmalapltau[15] = 0.0e0;
3855
3856 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3857 v4rhosigmalapltau[16] = 0.0e0;
3858
3859 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3860 v4rhosigmalapltau[17] = 0.0e0;
3861
3862 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3863 v4rhosigmalapltau[18] = 0.0e0;
3864
3865 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3866 v4rhosigmalapltau[19] = 0.0e0;
3867
3868 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3869 v4rhosigmalapltau[20] = 0.0e0;
3870
3871 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3872 v4rhosigmalapltau[21] = 0.0e0;
3873
3874 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3875 v4rhosigmalapltau[22] = 0.0e0;
3876
3877 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3878 v4rhosigmalapltau[23] = 0.0e0;
3879
3880 t5132 = 0.19392480000000000000e1 * t1236 * t1771;
3881 t5150 = 0.25892108641975308641e-2 * t4048 * t1774;
3882 t5162 = 0.58257244444444444445e-2 * t4048 * t1778;
3883 t5163 = t650 * t226;
3884 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3885 v4rhosigmatau2[0] = -t5132 - 0.19392480000000000000e1 * t498 * t3081 * t1770 * t114 + 0.58177440000000000000e1 * t498 * t3173 * t1770 * t152 - 0.29088720000000000000e1 * t498 * t1187 * t628 * t575 - 0.14544360000000000000e1 * t498 * t1187 * t644 * t519 - t5150 - 0.25892108641975308641e-2 * t1515 * t5042 * t1605 + 0.58257244444444444443e-2 * t1523 * t5046 * t1609 - 0.19419081481481481481e-2 * t1523 * t5050 * t632 + 0.84149353086419753084e-2 * t1756 + t5162 + 0.58257244444444444445e-2 * t1515 * t4039 * t5163 * t114 - 0.13107880000000000000e-1 * t1523 * t5030 * t5163 * t152 - 0.14564311111111111111e-1 * t1752 + 0.43692933333333333334e-2 * t1523 * t1524 * t1676 * t519;
3886
3887 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3888 v4rhosigmatau2[1] = 0.0e0;
3889
3890 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3891 v4rhosigmatau2[2] = 0.0e0;
3892
3893 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3894 v4rhosigmatau2[3] = 0.0e0;
3895
3896 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3897 v4rhosigmatau2[4] = 0.0e0;
3898
3899 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3900 v4rhosigmatau2[5] = 0.0e0;
3901
3902 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3903 v4rhosigmatau2[6] = 0.0e0;
3904
3905 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3906 v4rhosigmatau2[7] = 0.0e0;
3907
3908 t5178 = 0.19392480000000000000e1 * t1236 * t1782;
3909 t5184 = 0.25892108641975308641e-2 * t4239 * t1785;
3910 t5189 = 0.58257244444444444445e-2 * t4239 * t1789;
3911 t5190 = t661 * t240;
3912 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3913 v4rhosigmatau2[8] = -t5178 - 0.19392480000000000000e1 * t498 * t3389 * t1781 * t158 - t5184 - 0.25892108641975308641e-2 * t1542 * t5072 * t1623 + t5189 + 0.58257244444444444445e-2 * t1542 * t4242 * t5190 * t158;
3914
3915 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3916 v4rhosigmatau2[9] = -t5132 - 0.19392480000000000000e1 * t498 * t3081 * t1770 * t170 - t5150 - 0.25892108641975308641e-2 * t1515 * t5042 * t1631 + t5162 + 0.58257244444444444445e-2 * t1515 * t4039 * t5163 * t170;
3917
3918 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3919 v4rhosigmatau2[10] = 0.0e0;
3920
3921 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3922 v4rhosigmatau2[11] = 0.0e0;
3923
3924 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3925 v4rhosigmatau2[12] = 0.0e0;
3926
3927 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3928 v4rhosigmatau2[13] = 0.0e0;
3929
3930 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3931 v4rhosigmatau2[14] = 0.0e0;
3932
3933 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3934 v4rhosigmatau2[15] = 0.0e0;
3935
3936 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3937 v4rhosigmatau2[16] = 0.0e0;
3938
3939 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3940 v4rhosigmatau2[17] = -t5178 - 0.19392480000000000000e1 * t498 * t3389 * t1781 * t175 + 0.58177440000000000000e1 * t498 * t3545 * t1781 * t207 - 0.29088720000000000000e1 * t498 * t1310 * t636 * t603 - 0.14544360000000000000e1 * t498 * t1310 * t655 * t555 - t5184 - 0.25892108641975308641e-2 * t1542 * t5072 * t1651 + 0.58257244444444444443e-2 * t1574 * t5120 * t1655 - 0.19419081481481481481e-2 * t1574 * t5124 * t640 + 0.84149353086419753084e-2 * t1768 + t5189 + 0.58257244444444444445e-2 * t1542 * t4242 * t5190 * t175 - 0.13107880000000000000e-1 * t1574 * t5107 * t5190 * t207 - 0.14564311111111111111e-1 * t1764 + 0.43692933333333333334e-2 * t1574 * t1575 * t1694 * t555;
3941
3942 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3943 v4rholapl3[0] = 0.0e0;
3944
3945 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3946 v4rholapl3[1] = 0.0e0;
3947
3948 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3949 v4rholapl3[2] = 0.0e0;
3950
3951 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3952 v4rholapl3[3] = 0.0e0;
3953
3954 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3955 v4rholapl3[4] = 0.0e0;
3956
3957 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3958 v4rholapl3[5] = 0.0e0;
3959
3960 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3961 v4rholapl3[6] = 0.0e0;
3962
3963 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3964 v4rholapl3[7] = 0.0e0;
3965
3966 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3967 v4rholapl2tau[0] = 0.0e0;
3968
3969 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3970 v4rholapl2tau[1] = 0.0e0;
3971
3972 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3973 v4rholapl2tau[2] = 0.0e0;
3974
3975 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3976 v4rholapl2tau[3] = 0.0e0;
3977
3978 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3979 v4rholapl2tau[4] = 0.0e0;
3980
3981 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3982 v4rholapl2tau[5] = 0.0e0;
3983
3984 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3985 v4rholapl2tau[6] = 0.0e0;
3986
3987 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3988 v4rholapl2tau[7] = 0.0e0;
3989
3990 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3991 v4rholapl2tau[8] = 0.0e0;
3992
3993 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3994 v4rholapl2tau[9] = 0.0e0;
3995
3996 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3997 v4rholapl2tau[10] = 0.0e0;
3998
3999 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4000 v4rholapl2tau[11] = 0.0e0;
4001
4002 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4003 v4rholapltau2[0] = 0.0e0;
4004
4005 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4006 v4rholapltau2[1] = 0.0e0;
4007
4008 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4009 v4rholapltau2[2] = 0.0e0;
4010
4011 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4012 v4rholapltau2[3] = 0.0e0;
4013
4014 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4015 v4rholapltau2[4] = 0.0e0;
4016
4017 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4018 v4rholapltau2[5] = 0.0e0;
4019
4020 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4021 v4rholapltau2[6] = 0.0e0;
4022
4023 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4024 v4rholapltau2[7] = 0.0e0;
4025
4026 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4027 v4rholapltau2[8] = 0.0e0;
4028
4029 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4030 v4rholapltau2[9] = 0.0e0;
4031
4032 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4033 v4rholapltau2[10] = 0.0e0;
4034
4035 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4036 v4rholapltau2[11] = 0.0e0;
4037
4038 t5246 = 0.19392480000000000000e1 * t1275 * t1794;
4039 t5260 = 0.17477173333333333333e-1 * t4048 * t1797;
4040 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4041 v4rhotau3[0] = -t5246 - 0.19392480000000000000e1 * t498 * t3081 * t1792 * t114 + 0.58177440000000000000e1 * t498 * t3173 * t1792 * t152 - 0.43633080000000000000e1 * t498 * t1187 * t644 * t575 + t5260 + 0.17477173333333333333e-1 * t1515 * t5042 * t1677 - 0.39323640000000000000e-1 * t1523 * t5046 * t1681 + 0.13107880000000000000e-1 * t1523 * t5050 * t651 - 0.43692933333333333333e-1 * t1775;
4042
4043 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4044 v4rhotau3[1] = 0.0e0;
4045
4046 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4047 v4rhotau3[2] = 0.0e0;
4048
4049 t5272 = 0.19392480000000000000e1 * t1275 * t1802;
4050 t5278 = 0.17477173333333333333e-1 * t4239 * t1805;
4051 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4052 v4rhotau3[3] = -t5272 - 0.19392480000000000000e1 * t498 * t3389 * t1800 * t158 + t5278 + 0.17477173333333333333e-1 * t1542 * t5072 * t1695;
4053
4054 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4055 v4rhotau3[4] = -t5246 - 0.19392480000000000000e1 * t498 * t3081 * t1792 * t170 + t5260 + 0.17477173333333333333e-1 * t1515 * t5042 * t1703;
4056
4057 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4058 v4rhotau3[5] = 0.0e0;
4059
4060 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4061 v4rhotau3[6] = 0.0e0;
4062
4063 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4064 v4rhotau3[7] = -t5272 - 0.19392480000000000000e1 * t498 * t3389 * t1800 * t175 + 0.58177440000000000000e1 * t498 * t3545 * t1800 * t207 - 0.43633080000000000000e1 * t498 * t1310 * t655 * t603 + t5278 + 0.17477173333333333333e-1 * t1542 * t5072 * t1719 - 0.39323640000000000000e-1 * t1574 * t5120 * t1723 + 0.13107880000000000000e-1 * t1574 * t5124 * t662 - 0.43692933333333333333e-1 * t1786;
4065
4066 t5311 = t608 * t608;
4067 t5320 = t20 * t20;
4068 t5323 = t19 / t22 / t5320;
4069 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4070 v4sigma4[0] = 0.58177440000000000000e1 * t216 * t217 * t1965 * t5311 - 0.44687076392318244169e-2 * t1523 * t790 * t608 * t614 + 0.22883266508952456952e-5 * t498 * t504 * t5323 / t27 / t732 / t25;
4071
4072 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4073 v4sigma4[1] = 0.0e0;
4074
4075 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4076 v4sigma4[2] = 0.0e0;
4077
4078 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4079 v4sigma4[3] = 0.0e0;
4080
4081 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4082 v4sigma4[4] = 0.0e0;
4083
4084 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4085 v4sigma4[5] = 0.0e0;
4086
4087 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4088 v4sigma4[6] = 0.0e0;
4089
4090 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4091 v4sigma4[7] = 0.0e0;
4092
4093 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4094 v4sigma4[8] = 0.0e0;
4095
4096 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4097 v4sigma4[9] = 0.0e0;
4098
4099 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4100 v4sigma4[10] = 0.0e0;
4101
4102 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4103 v4sigma4[11] = 0.0e0;
4104
4105 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4106 v4sigma4[12] = 0.0e0;
4107
4108 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4109 v4sigma4[13] = 0.0e0;
4110
4111 t5331 = t618 * t618;
4112 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4113 v4sigma4[14] = 0.58177440000000000000e1 * t216 * t231 * t2954 * t5331 - 0.44687076392318244169e-2 * t1574 * t1074 * t618 * t624 + 0.22883266508952456952e-5 * t498 * t540 * t5323 / t72 / t1121 / t70;
4114
4115 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4116 v4sigma3lapl[0] = 0.0e0;
4117
4118 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4119 v4sigma3lapl[1] = 0.0e0;
4120
4121 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4122 v4sigma3lapl[2] = 0.0e0;
4123
4124 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4125 v4sigma3lapl[3] = 0.0e0;
4126
4127 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4128 v4sigma3lapl[4] = 0.0e0;
4129
4130 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4131 v4sigma3lapl[5] = 0.0e0;
4132
4133 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4134 v4sigma3lapl[6] = 0.0e0;
4135
4136 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4137 v4sigma3lapl[7] = 0.0e0;
4138
4139 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4140 v4sigma3lapl[8] = 0.0e0;
4141
4142 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4143 v4sigma3lapl[9] = 0.0e0;
4144
4145 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4146 v4sigma3lapl[10] = 0.0e0;
4147
4148 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4149 v4sigma3lapl[11] = 0.0e0;
4150
4151 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4152 v4sigma3lapl[12] = 0.0e0;
4153
4154 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4155 v4sigma3lapl[13] = 0.0e0;
4156
4157 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4158 v4sigma3lapl[14] = 0.0e0;
4159
4160 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4161 v4sigma3lapl[15] = 0.0e0;
4162
4163 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4164 v4sigma3lapl[16] = 0.0e0;
4165
4166 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4167 v4sigma3lapl[17] = 0.0e0;
4168
4169 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4170 v4sigma3lapl[18] = 0.0e0;
4171
4172 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4173 v4sigma3lapl[19] = 0.0e0;
4174
4175 t5355 = t4366 * t226;
4176 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4177 v4sigma3tau[0] = 0.58177440000000000000e1 * t498 * t3173 * t253 * t1728 + 0.87385866666666666668e-2 * t1523 * t4068 * t1604 * t608 - 0.22343538196159122085e-2 * t1523 * t5355 * t614 - 0.89496751073778650876e-5 * t498 * t504 * t5323 / t27 / t1917;
4178
4179 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4180 v4sigma3tau[1] = 0.0e0;
4181
4182 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4183 v4sigma3tau[2] = 0.0e0;
4184
4185 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4186 v4sigma3tau[3] = 0.0e0;
4187
4188 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4189 v4sigma3tau[4] = 0.0e0;
4190
4191 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4192 v4sigma3tau[5] = 0.0e0;
4193
4194 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4195 v4sigma3tau[6] = 0.0e0;
4196
4197 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4198 v4sigma3tau[7] = 0.0e0;
4199
4200 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4201 v4sigma3tau[8] = 0.0e0;
4202
4203 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4204 v4sigma3tau[9] = 0.0e0;
4205
4206 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4207 v4sigma3tau[10] = 0.0e0;
4208
4209 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4210 v4sigma3tau[11] = 0.0e0;
4211
4212 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4213 v4sigma3tau[12] = 0.0e0;
4214
4215 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4216 v4sigma3tau[13] = 0.0e0;
4217
4218 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4219 v4sigma3tau[14] = 0.0e0;
4220
4221 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4222 v4sigma3tau[15] = 0.0e0;
4223
4224 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4225 v4sigma3tau[16] = 0.0e0;
4226
4227 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4228 v4sigma3tau[17] = 0.0e0;
4229
4230 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4231 v4sigma3tau[18] = 0.0e0;
4232
4233 t5373 = t4521 * t240;
4234 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4235 v4sigma3tau[19] = 0.58177440000000000000e1 * t498 * t3545 * t266 * t1737 + 0.87385866666666666668e-2 * t1574 * t4285 * t1622 * t618 - 0.22343538196159122085e-2 * t1574 * t5373 * t624 - 0.89496751073778650876e-5 * t498 * t540 * t5323 / t72 / t2915;
4236
4237 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4238 v4sigma2lapl2[0] = 0.0e0;
4239
4240 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4241 v4sigma2lapl2[1] = 0.0e0;
4242
4243 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4244 v4sigma2lapl2[2] = 0.0e0;
4245
4246 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4247 v4sigma2lapl2[3] = 0.0e0;
4248
4249 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4250 v4sigma2lapl2[4] = 0.0e0;
4251
4252 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4253 v4sigma2lapl2[5] = 0.0e0;
4254
4255 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4256 v4sigma2lapl2[6] = 0.0e0;
4257
4258 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4259 v4sigma2lapl2[7] = 0.0e0;
4260
4261 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4262 v4sigma2lapl2[8] = 0.0e0;
4263
4264 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4265 v4sigma2lapl2[9] = 0.0e0;
4266
4267 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4268 v4sigma2lapl2[10] = 0.0e0;
4269
4270 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4271 v4sigma2lapl2[11] = 0.0e0;
4272
4273 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4274 v4sigma2lapl2[12] = 0.0e0;
4275
4276 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4277 v4sigma2lapl2[13] = 0.0e0;
4278
4279 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4280 v4sigma2lapl2[14] = 0.0e0;
4281
4282 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4283 v4sigma2lapl2[15] = 0.0e0;
4284
4285 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4286 v4sigma2lapl2[16] = 0.0e0;
4287
4288 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4289 v4sigma2lapl2[17] = 0.0e0;
4290
4291 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4292 v4sigma2lapltau[0] = 0.0e0;
4293
4294 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4295 v4sigma2lapltau[1] = 0.0e0;
4296
4297 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4298 v4sigma2lapltau[2] = 0.0e0;
4299
4300 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4301 v4sigma2lapltau[3] = 0.0e0;
4302
4303 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4304 v4sigma2lapltau[4] = 0.0e0;
4305
4306 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4307 v4sigma2lapltau[5] = 0.0e0;
4308
4309 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4310 v4sigma2lapltau[6] = 0.0e0;
4311
4312 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4313 v4sigma2lapltau[7] = 0.0e0;
4314
4315 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4316 v4sigma2lapltau[8] = 0.0e0;
4317
4318 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4319 v4sigma2lapltau[9] = 0.0e0;
4320
4321 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4322 v4sigma2lapltau[10] = 0.0e0;
4323
4324 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4325 v4sigma2lapltau[11] = 0.0e0;
4326
4327 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4328 v4sigma2lapltau[12] = 0.0e0;
4329
4330 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4331 v4sigma2lapltau[13] = 0.0e0;
4332
4333 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4334 v4sigma2lapltau[14] = 0.0e0;
4335
4336 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4337 v4sigma2lapltau[15] = 0.0e0;
4338
4339 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4340 v4sigma2lapltau[16] = 0.0e0;
4341
4342 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4343 v4sigma2lapltau[17] = 0.0e0;
4344
4345 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4346 v4sigma2lapltau[18] = 0.0e0;
4347
4348 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4349 v4sigma2lapltau[19] = 0.0e0;
4350
4351 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4352 v4sigma2lapltau[20] = 0.0e0;
4353
4354 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4355 v4sigma2lapltau[21] = 0.0e0;
4356
4357 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4358 v4sigma2lapltau[22] = 0.0e0;
4359
4360 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4361 v4sigma2lapltau[23] = 0.0e0;
4362
4363 t5390 = t790 * t644;
4364 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4365 v4sigma2tau2[0] = 0.58177440000000000000e1 * t498 * t3173 * t644 * t608 + 0.11651448888888888889e-1 * t1523 * t5355 * t632 - 0.74478460653863740282e-3 * t1523 * t5390 * t614 + 0.36759376005069236283e-4 * t498 * t504 * t5323 / t27 / t732 - 0.13107880000000000000e-1 * t1523 * t4068 * t1676 * t608;
4366
4367 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4368 v4sigma2tau2[1] = 0.0e0;
4369
4370 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4371 v4sigma2tau2[2] = 0.0e0;
4372
4373 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4374 v4sigma2tau2[3] = 0.0e0;
4375
4376 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4377 v4sigma2tau2[4] = 0.0e0;
4378
4379 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4380 v4sigma2tau2[5] = 0.0e0;
4381
4382 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4383 v4sigma2tau2[6] = 0.0e0;
4384
4385 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4386 v4sigma2tau2[7] = 0.0e0;
4387
4388 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4389 v4sigma2tau2[8] = 0.0e0;
4390
4391 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4392 v4sigma2tau2[9] = 0.0e0;
4393
4394 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4395 v4sigma2tau2[10] = 0.0e0;
4396
4397 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4398 v4sigma2tau2[11] = 0.0e0;
4399
4400 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4401 v4sigma2tau2[12] = 0.0e0;
4402
4403 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4404 v4sigma2tau2[13] = 0.0e0;
4405
4406 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4407 v4sigma2tau2[14] = 0.0e0;
4408
4409 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4410 v4sigma2tau2[15] = 0.0e0;
4411
4412 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4413 v4sigma2tau2[16] = 0.0e0;
4414
4415 t5411 = t1074 * t655;
4416 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4417 v4sigma2tau2[17] = 0.58177440000000000000e1 * t498 * t3545 * t655 * t618 + 0.11651448888888888889e-1 * t1574 * t5373 * t640 - 0.74478460653863740282e-3 * t1574 * t5411 * t624 + 0.36759376005069236283e-4 * t498 * t540 * t5323 / t72 / t1121 - 0.13107880000000000000e-1 * t1574 * t4285 * t1694 * t618;
4418
4419 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4420 v4sigmalapl3[0] = 0.0e0;
4421
4422 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4423 v4sigmalapl3[1] = 0.0e0;
4424
4425 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4426 v4sigmalapl3[2] = 0.0e0;
4427
4428 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4429 v4sigmalapl3[3] = 0.0e0;
4430
4431 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4432 v4sigmalapl3[4] = 0.0e0;
4433
4434 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4435 v4sigmalapl3[5] = 0.0e0;
4436
4437 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4438 v4sigmalapl3[6] = 0.0e0;
4439
4440 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4441 v4sigmalapl3[7] = 0.0e0;
4442
4443 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4444 v4sigmalapl3[8] = 0.0e0;
4445
4446 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4447 v4sigmalapl3[9] = 0.0e0;
4448
4449 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4450 v4sigmalapl3[10] = 0.0e0;
4451
4452 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4453 v4sigmalapl3[11] = 0.0e0;
4454
4455 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4456 v4sigmalapl2tau[0] = 0.0e0;
4457
4458 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4459 v4sigmalapl2tau[1] = 0.0e0;
4460
4461 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4462 v4sigmalapl2tau[2] = 0.0e0;
4463
4464 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4465 v4sigmalapl2tau[3] = 0.0e0;
4466
4467 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4468 v4sigmalapl2tau[4] = 0.0e0;
4469
4470 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4471 v4sigmalapl2tau[5] = 0.0e0;
4472
4473 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4474 v4sigmalapl2tau[6] = 0.0e0;
4475
4476 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4477 v4sigmalapl2tau[7] = 0.0e0;
4478
4479 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4480 v4sigmalapl2tau[8] = 0.0e0;
4481
4482 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4483 v4sigmalapl2tau[9] = 0.0e0;
4484
4485 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4486 v4sigmalapl2tau[10] = 0.0e0;
4487
4488 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4489 v4sigmalapl2tau[11] = 0.0e0;
4490
4491 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4492 v4sigmalapl2tau[12] = 0.0e0;
4493
4494 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4495 v4sigmalapl2tau[13] = 0.0e0;
4496
4497 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4498 v4sigmalapl2tau[14] = 0.0e0;
4499
4500 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4501 v4sigmalapl2tau[15] = 0.0e0;
4502
4503 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4504 v4sigmalapl2tau[16] = 0.0e0;
4505
4506 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4507 v4sigmalapl2tau[17] = 0.0e0;
4508
4509 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4510 v4sigmalapltau2[0] = 0.0e0;
4511
4512 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4513 v4sigmalapltau2[1] = 0.0e0;
4514
4515 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4516 v4sigmalapltau2[2] = 0.0e0;
4517
4518 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4519 v4sigmalapltau2[3] = 0.0e0;
4520
4521 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4522 v4sigmalapltau2[4] = 0.0e0;
4523
4524 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4525 v4sigmalapltau2[5] = 0.0e0;
4526
4527 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4528 v4sigmalapltau2[6] = 0.0e0;
4529
4530 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4531 v4sigmalapltau2[7] = 0.0e0;
4532
4533 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4534 v4sigmalapltau2[8] = 0.0e0;
4535
4536 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4537 v4sigmalapltau2[9] = 0.0e0;
4538
4539 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4540 v4sigmalapltau2[10] = 0.0e0;
4541
4542 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4543 v4sigmalapltau2[11] = 0.0e0;
4544
4545 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4546 v4sigmalapltau2[12] = 0.0e0;
4547
4548 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4549 v4sigmalapltau2[13] = 0.0e0;
4550
4551 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4552 v4sigmalapltau2[14] = 0.0e0;
4553
4554 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4555 v4sigmalapltau2[15] = 0.0e0;
4556
4557 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4558 v4sigmalapltau2[16] = 0.0e0;
4559
4560 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4561 v4sigmalapltau2[17] = 0.0e0;
4562
4563 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4564 v4sigmatau3[0] = 0.58177440000000000000e1 * t498 * t3173 * t1792 * t226 + 0.87385866666666666667e-2 * t1523 * t5390 * t632 - 0.39323640000000000000e-1 * t1523 * t5046 * t1777 - 0.15751032757201646091e-3 * t498 * t504 * t5323 / t27 / t339;
4565
4566 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4567 v4sigmatau3[1] = 0.0e0;
4568
4569 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4570 v4sigmatau3[2] = 0.0e0;
4571
4572 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4573 v4sigmatau3[3] = 0.0e0;
4574
4575 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4576 v4sigmatau3[4] = 0.0e0;
4577
4578 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4579 v4sigmatau3[5] = 0.0e0;
4580
4581 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4582 v4sigmatau3[6] = 0.0e0;
4583
4584 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4585 v4sigmatau3[7] = 0.0e0;
4586
4587 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4588 v4sigmatau3[8] = 0.0e0;
4589
4590 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4591 v4sigmatau3[9] = 0.0e0;
4592
4593 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4594 v4sigmatau3[10] = 0.0e0;
4595
4596 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4597 v4sigmatau3[11] = 0.58177440000000000000e1 * t498 * t3545 * t1800 * t240 + 0.87385866666666666667e-2 * t1574 * t5411 * t640 - 0.39323640000000000000e-1 * t1574 * t5120 * t1788 - 0.15751032757201646091e-3 * t498 * t540 * t5323 / t72 / t481;
4598
4599 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4600 v4lapl4[0] = 0.0e0;
4601
4602 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4603 v4lapl4[1] = 0.0e0;
4604
4605 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4606 v4lapl4[2] = 0.0e0;
4607
4608 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4609 v4lapl4[3] = 0.0e0;
4610
4611 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4612 v4lapl4[4] = 0.0e0;
4613
4614 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4615 v4lapl3tau[0] = 0.0e0;
4616
4617 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4618 v4lapl3tau[1] = 0.0e0;
4619
4620 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4621 v4lapl3tau[2] = 0.0e0;
4622
4623 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4624 v4lapl3tau[3] = 0.0e0;
4625
4626 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4627 v4lapl3tau[4] = 0.0e0;
4628
4629 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4630 v4lapl3tau[5] = 0.0e0;
4631
4632 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4633 v4lapl3tau[6] = 0.0e0;
4634
4635 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4636 v4lapl3tau[7] = 0.0e0;
4637
4638 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4639 v4lapl2tau2[0] = 0.0e0;
4640
4641 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4642 v4lapl2tau2[1] = 0.0e0;
4643
4644 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4645 v4lapl2tau2[2] = 0.0e0;
4646
4647 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4648 v4lapl2tau2[3] = 0.0e0;
4649
4650 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4651 v4lapl2tau2[4] = 0.0e0;
4652
4653 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4654 v4lapl2tau2[5] = 0.0e0;
4655
4656 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4657 v4lapl2tau2[6] = 0.0e0;
4658
4659 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4660 v4lapl2tau2[7] = 0.0e0;
4661
4662 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4663 v4lapl2tau2[8] = 0.0e0;
4664
4665 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4666 v4lapltau3[0] = 0.0e0;
4667
4668 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4669 v4lapltau3[1] = 0.0e0;
4670
4671 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4672 v4lapltau3[2] = 0.0e0;
4673
4674 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4675 v4lapltau3[3] = 0.0e0;
4676
4677 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4678 v4lapltau3[4] = 0.0e0;
4679
4680 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4681 v4lapltau3[5] = 0.0e0;
4682
4683 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4684 v4lapltau3[6] = 0.0e0;
4685
4686 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4687 v4lapltau3[7] = 0.0e0;
4688
4689 t5457 = t644 * t644;
4690 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4691 v4tau4[0] = 0.58177440000000000000e1 * t216 * t217 * t1965 * t5457 - 0.78647280000000000000e-1 * t1523 * t5390 * t651 + 0.70879647407407407407e-3 * t498 * t504 * t5323 * t1890;
4692
4693 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4694 v4tau4[1] = 0.0e0;
4695
4696 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4697 v4tau4[2] = 0.0e0;
4698
4699 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4700 v4tau4[3] = 0.0e0;
4701
4702 t5469 = t655 * t655;
4703 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4704 v4tau4[4] = 0.58177440000000000000e1 * t216 * t231 * t2954 * t5469 - 0.78647280000000000000e-1 * t1574 * t5411 * t662 + 0.70879647407407407407e-3 * t498 * t540 * t5323 * t2888;
4705
4706 #ifndef XC_DONT_COMPILE_MXC
4707
4708 if(order < 5) return;
4709
4710
4711 #endif
4712
4713 #endif
4714
4715 #endif
4716
4717 #endif
4718
4719 #endif
4720
4721
4722 }
4723
4724