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_xc_cc06.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, t3, t4, t5, t6, t7, t8, t9;
24 double t10, t11, t17, t19, t20, t23, t25, t26;
25 double t27, t28, t29, t31, t33, t36, t37, t40;
26 double t41, t42, t44, t46, t48, t50, t51, t53;
27
28 #ifndef XC_DONT_COMPILE_VXC
29 double t58, t59, t63, t64, t65, t67, t68, t69;
30 double t72, t74, t75, t78, t81, t82, t83, t86;
31 double t87, t89, t90, t91, t93, t94, t98, t99;
32 double t101, t102, t106, t114;
33
34 #ifndef XC_DONT_COMPILE_FXC
35 double t123, t124, t128, t129, t133, t134, t135, t136;
36 double t137, t142, t143, t146, t151, t152, t157, t160;
37 double t161, t164, t165, t166, t167, t168, t169, t172;
38 double t173, t177, t179, t180, t185, t186, t187, t188;
39 double t189, t191, t192, t197, t199, t200, t207, t215;
40 double t226, t228, t230, t231, t238;
41
42 #ifndef XC_DONT_COMPILE_KXC
43 double t251, t262, t266, t267, t274, t275, t276, t282;
44 double t283, t286, t289, t294, t295, t302, t305, t306;
45 double t314, t315, t317, t318, t321, t322, t329, t330;
46 double t334, t336, t337, t341, t342, t343, t344, t347;
47 double t348, t349, t358, t374, t375, t376, t388, t392;
48 double t396, t397, t406, t408, t413;
49
50 #ifndef XC_DONT_COMPILE_LXC
51 double t422, t443, t453, t456, t478, t481, t486, t497;
52 double t504, t549, t561, t567, t571, t573, t576, t579;
53 double t586, t624, t659, t681, t696;
54 #endif
55
56 #endif
57
58 #endif
59
60 #endif
61
62 #endif
63
64
65
66 t2 = M_CBRT3;
67 t3 = 0.1e1 / M_PI;
68 t4 = POW_1_3(t3);
69 t5 = t2 * t4;
70 t6 = M_CBRT4;
71 t7 = t6 * t6;
72 t8 = M_CBRT2;
73 t9 = t8 * t8;
74 t10 = t7 * t9;
75 t11 = POW_1_3(rho[0]);
76 t17 = t5 * t7 / t11;
77 t19 = 0.1e1 + 0.53425000000000000000e-1 * t17;
78 t20 = sqrt(t17);
79 t23 = POW_3_2(t17);
80 t25 = t2 * t2;
81 t26 = t4 * t4;
82 t27 = t25 * t26;
83 t28 = t11 * t11;
84 t29 = 0.1e1 / t28;
85 t31 = t27 * t6 * t29;
86 t33 = 0.37978500000000000000e1 * t20 + 0.89690000000000000000e0 * t17 + 0.20477500000000000000e0 * t23 + 0.12323500000000000000e0 * t31;
87 t36 = 0.1e1 + 0.16081824322151104822e2 / t33;
88 t37 = log(t36);
89 t40 = -0.3e1 / 0.16e2 * t5 * t10 * t11 - 0.62182e-1 * t19 * t37;
90 t41 = t25 * t6;
91 t42 = t26 * lapl[0];
92 t44 = 0.1e1 / t28 / rho[0];
93 t46 = t41 * t42 * t44;
94 t48 = -0.7e-3 + 0.20000000000000000000e-2 * t46;
95 t50 = 0.1e1 + 0.65000000000000000000e-2 * t46;
96 t51 = 0.1e1 / t50;
97 t53 = t48 * t51 + 0.1e1;
98 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
99 zk[0] = t40 * t53;
100
101 #ifndef XC_DONT_COMPILE_VXC
102
103 if(order < 1) return;
104
105
106 t58 = 0.1e1 / t11 / rho[0];
107 t59 = t7 * t58;
108 t63 = t33 * t33;
109 t64 = 0.1e1 / t63;
110 t65 = t19 * t64;
111 t67 = 0.1e1 / t20 * t2;
112 t68 = t4 * t7;
113 t69 = t68 * t58;
114 t72 = t5 * t59;
115 t74 = sqrt(t17);
116 t75 = t74 * t2;
117 t78 = t6 * t44;
118 t81 = -0.63297500000000000000e0 * t67 * t69 - 0.29896666666666666667e0 * t72 - 0.10238750000000000000e0 * t75 * t69 - 0.82156666666666666667e-1 * t27 * t78;
119 t82 = 0.1e1 / t36;
120 t83 = t81 * t82;
121 t86 = -t5 * t10 * t29 / 0.16e2 + 0.11073577833333333333e-2 * t5 * t59 * t37 + 0.10000000000000000000e1 * t65 * t83;
122 t87 = rho[0] * t86;
123 t89 = rho[0] * t40;
124 t90 = t41 * t26;
125 t91 = rho[0] * rho[0];
126 t93 = 0.1e1 / t28 / t91;
127 t94 = lapl[0] * t93;
128 t98 = t50 * t50;
129 t99 = 0.1e1 / t98;
130 t101 = t48 * t99 * t25;
131 t102 = t6 * t26;
132 t106 = -0.33333333333333333333e-2 * t90 * t94 * t51 + 0.10833333333333333333e-1 * t101 * t102 * t94;
133 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
134 vrho[0] = t89 * t106 + t87 * t53 + (t40 * t53);
135
136 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
137 vsigma[0] = 0.0e0;
138
139 t114 = 0.20000000000000000000e-2 * t27 * t78 * t51 - 0.65000000000000000000e-2 * t101 * t102 * t44;
140 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
141 vlapl[0] = t89 * t114;
142
143 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
144 vtau[0] = 0.0e0;
145
146 #ifndef XC_DONT_COMPILE_FXC
147
148 if(order < 2) return;
149
150
151 t123 = 0.1e1 / t11 / t91;
152 t124 = t7 * t123;
153 t128 = t5 * t7;
154 t129 = t58 * t64;
155 t133 = t63 * t33;
156 t134 = 0.1e1 / t133;
157 t135 = t19 * t134;
158 t136 = t81 * t81;
159 t137 = t136 * t82;
160 t142 = 0.1e1 / t20 / t17 * t25;
161 t143 = t102 * t93;
162 t146 = t68 * t123;
163 t151 = 0.1e1/sqrt(t17);
164 t152 = t151 * t25;
165 t157 = t6 * t93;
166 t160 = -0.42198333333333333333e0 * t142 * t143 + 0.84396666666666666666e0 * t67 * t146 + 0.39862222222222222223e0 * t5 * t124 + 0.68258333333333333333e-1 * t152 * t143 + 0.13651666666666666667e0 * t75 * t146 + 0.13692777777777777778e0 * t27 * t157;
167 t161 = t160 * t82;
168 t164 = t63 * t63;
169 t165 = 0.1e1 / t164;
170 t166 = t19 * t165;
171 t167 = t36 * t36;
172 t168 = 0.1e1 / t167;
173 t169 = t136 * t168;
174 t172 = t5 * t10 * t44 / 0.24e2 - 0.14764770444444444444e-2 * t5 * t124 * t37 - 0.35616666666666666667e-1 * t128 * t129 * t83 - 0.20000000000000000000e1 * t135 * t137 + 0.10000000000000000000e1 * t65 * t161 + 0.16081824322151104822e2 * t166 * t169;
175 t173 = rho[0] * t172;
176 t177 = t91 * rho[0];
177 t179 = 0.1e1 / t28 / t177;
178 t180 = lapl[0] * t179;
179 t185 = t4 * t3;
180 t186 = t2 * t7 * t185;
181 t187 = lapl[0] * lapl[0];
182 t188 = t91 * t91;
183 t189 = t188 * rho[0];
184 t191 = 0.1e1 / t11 / t189;
185 t192 = t187 * t191;
186 t197 = 0.1e1 / t98 / t50;
187 t199 = t48 * t197 * t2;
188 t200 = t7 * t185;
189 t207 = 0.88888888888888888888e-2 * t90 * t180 * t51 - 0.21666666666666666666e-3 * t186 * t192 * t99 + 0.70416666666666666662e-3 * t199 * t200 * t192 - 0.28888888888888888888e-1 * t101 * t102 * t180;
190 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
191 v2rho2[0] = 0.2e1 * t40 * t106 + 0.2e1 * t87 * t106 + t173 * t53 + t89 * t207 + 0.2e1 * t86 * t53;
192
193 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
194 v2rhosigma[0] = 0.0e0;
195
196 t215 = 0.1e1 / t11 / t188;
197 t226 = -0.33333333333333333333e-2 * t27 * t157 * t51 + 0.13000000000000000000e-3 * t186 * t215 * t99 * lapl[0] - 0.42249999999999999999e-3 * t199 * t200 * t215 * lapl[0] + 0.10833333333333333333e-1 * t101 * t143;
198 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
199 v2rholapl[0] = t40 * t114 + t87 * t114 + t89 * t226;
200
201 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
202 v2rhotau[0] = 0.0e0;
203
204 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
205 v2sigma2[0] = 0.0e0;
206
207 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
208 v2sigmalapl[0] = 0.0e0;
209
210 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
211 v2sigmatau[0] = 0.0e0;
212
213 t228 = t2 * t185;
214 t230 = 0.1e1 / t11 / t177;
215 t231 = t7 * t230;
216 t238 = -0.78000000000000000000e-4 * t228 * t231 * t99 + 0.25350000000000000000e-3 * t199 * t200 * t230;
217 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
218 v2lapl2[0] = t89 * t238;
219
220 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
221 v2lapltau[0] = 0.0e0;
222
223 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
224 v2tau2[0] = 0.0e0;
225
226 #ifndef XC_DONT_COMPILE_KXC
227
228 if(order < 3) return;
229
230
231 t251 = t123 * t64;
232 t262 = t58 * t165;
233 t266 = t136 * t81;
234 t267 = t266 * t82;
235 t274 = 0.1e1 / t164 / t33;
236 t275 = t19 * t274;
237 t276 = t266 * t168;
238 t282 = 0.1e1 / t20 / t31 * t3 / 0.4e1;
239 t283 = 0.1e1 / t188;
240 t286 = t102 * t179;
241 t289 = t68 * t230;
242 t294 = 0.1e1/POW_3_2(t17);
243 t295 = t294 * t3;
244 t302 = t6 * t179;
245 t305 = -0.25319000000000000000e1 * t282 * t283 + 0.16879333333333333333e1 * t142 * t286 - 0.19692555555555555555e1 * t67 * t289 - 0.93011851851851851854e0 * t5 * t231 + 0.13651666666666666667e0 * t295 * t283 - 0.27303333333333333333e0 * t152 * t286 - 0.31853888888888888890e0 * t75 * t289 - 0.36514074074074074075e0 * t27 * t302;
246 t306 = t305 * t82;
247 t314 = 0.1e1 / t164 / t63;
248 t315 = t19 * t314;
249 t317 = 0.1e1 / t167 / t36;
250 t318 = t266 * t317;
251 t321 = -0.5e1 / 0.72e2 * t5 * t10 * t93 + 0.34451131037037037036e-2 * t5 * t231 * t37 + 0.71233333333333333334e-1 * t128 * t251 * t83 + 0.10685000000000000000e0 * t128 * t58 * t134 * t137 - 0.53425000000000000000e-1 * t128 * t129 * t161 - 0.85917146441092277512e0 * t128 * t262 * t169 + 0.60000000000000000000e1 * t166 * t267 - 0.60000000000000000000e1 * t135 * t83 * t160 - 0.96490945932906628932e2 * t275 * t276 + 0.10000000000000000000e1 * t65 * t306 + 0.48245472966453314466e2 * t166 * t160 * t168 * t81 + 0.51725014705706168417e3 * t315 * t318;
252 t322 = rho[0] * t321;
253 t329 = 0.1e1 / t28 / t188;
254 t330 = lapl[0] * t329;
255 t334 = t188 * t91;
256 t336 = 0.1e1 / t11 / t334;
257 t337 = t187 * t336;
258 t341 = t187 * lapl[0];
259 t342 = t188 * t188;
260 t343 = 0.1e1 / t342;
261 t344 = t341 * t343;
262 t347 = t98 * t98;
263 t348 = 0.1e1 / t347;
264 t349 = t48 * t348;
265 t358 = -0.32592592592592592592e-1 * t90 * t330 * t51 + 0.17333333333333333333e-2 * t186 * t337 * t99 - 0.85616400177775416862e-5 * t344 * t197 + 0.27825330057777010479e-4 * t349 * t344 - 0.56333333333333333330e-2 * t199 * t200 * t337 + 0.10592592592592592592e0 * t101 * t102 * t330;
266 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
267 v3rho3[0] = 0.3e1 * t173 * t106 + 0.6e1 * t86 * t106 + 0.3e1 * t172 * t53 + 0.3e1 * t40 * t207 + 0.3e1 * t87 * t207 + t322 * t53 + t89 * t358;
268
269 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
270 v3rho2sigma[0] = 0.0e0;
271
272 t374 = t188 * t177;
273 t375 = 0.1e1 / t374;
274 t376 = t375 * t197;
275 t388 = 0.88888888888888888888e-2 * t27 * t302 * t51 - 0.77999999999999999999e-3 * t186 * t191 * t99 * lapl[0] + 0.51369840106665250119e-5 * t376 * t187 - 0.16695198034666206288e-4 * t349 * t375 * t187 + 0.25349999999999999999e-2 * t199 * t200 * t191 * lapl[0] - 0.28888888888888888888e-1 * t101 * t286;
276 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
277 v3rho2lapl[0] = t173 * t114 + 0.2e1 * t86 * t114 + 0.2e1 * t40 * t226 + 0.2e1 * t87 * t226 + t89 * t388;
278
279 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
280 v3rho2tau[0] = 0.0e0;
281
282 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
283 v3rhosigma2[0] = 0.0e0;
284
285 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
286 v3rhosigmalapl[0] = 0.0e0;
287
288 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
289 v3rhosigmatau[0] = 0.0e0;
290
291 t392 = t7 * t215;
292 t396 = 0.1e1 / t334;
293 t397 = t396 * t197;
294 t406 = 0.26000000000000000000e-3 * t228 * t392 * t99 - 0.30821904063999150072e-5 * t397 * lapl[0] + 0.10017118820799723773e-4 * t349 * t396 * lapl[0] - 0.84500000000000000000e-3 * t199 * t200 * t215;
295 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
296 v3rholapl2[0] = t40 * t238 + t87 * t238 + t89 * t406;
297
298 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
299 v3rholapltau[0] = 0.0e0;
300
301 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
302 v3rhotau2[0] = 0.0e0;
303
304 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
305 v3sigma3[0] = 0.0e0;
306
307 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
308 v3sigma2lapl[0] = 0.0e0;
309
310 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
311 v3sigma2tau[0] = 0.0e0;
312
313 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
314 v3sigmalapl2[0] = 0.0e0;
315
316 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
317 v3sigmalapltau[0] = 0.0e0;
318
319 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
320 v3sigmatau2[0] = 0.0e0;
321
322 t408 = 0.1e1 / t189;
323 t413 = 0.18493142438399490044e-5 * t408 * t197 - 0.60102712924798342641e-5 * t349 * t408;
324 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
325 v3lapl3[0] = t89 * t413;
326
327 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
328 v3lapl2tau[0] = 0.0e0;
329
330 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
331 v3lapltau2[0] = 0.0e0;
332
333 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
334 v3tau3[0] = 0.0e0;
335
336 #ifndef XC_DONT_COMPILE_LXC
337
338 if(order < 4) return;
339
340
341 t422 = t160 * t160;
342 t443 = t136 * t136;
343 t453 = t164 * t164;
344 t456 = t167 * t167;
345 t478 = t102 * t329;
346 t481 = t68 * t215;
347 t486 = pow(t17, -0.25e1);
348 t497 = t6 * t329;
349 t504 = 0.48245472966453314466e2 * t166 * t422 * t168 + 0.31035008823423701050e4 * t315 * t160 * t317 * t136 + 0.64327297288604419288e2 * t166 * t305 * t168 * t81 - 0.57894567559743977359e3 * t275 * t169 * t160 - 0.60000000000000000000e1 * t135 * t422 * t82 - 0.80000000000000000000e1 * t135 * t83 * t305 - 0.24000000000000000000e2 * t275 * t443 * t82 + 0.36000000000000000000e2 * t166 * t137 * t160 + 0.5e1 / 0.27e2 * t5 * t10 * t179 + 0.24954977986735470917e5 * t19 / t453 * t443 / t456 - 0.62070017646847402100e4 * t19 / t164 / t133 * t443 * t317 + 0.10000000000000000000e1 * t65 * (-0.43956597222222222223e-1 / t20 * rho[0] * t191 * t128 + 0.20255200000000000000e2 * t282 * t408 - 0.75019259259259259258e1 * t142 * t478 + 0.65641851851851851850e1 * t67 * t481 + 0.31003950617283950618e1 * t5 * t392 + 0.68258333333333333335e-1 * t486 * t3 * t191 * t128 - 0.10921333333333333333e1 * t295 * t408 + 0.12134814814814814815e1 * t152 * t478 + 0.10617962962962962963e1 * t75 * t481 + 0.13388493827160493828e1 * t27 * t497) * t82;
350 t549 = 0.57894567559743977359e3 * t315 * t443 * t168 - 0.11483710345679012345e-1 * t5 * t392 * t37 - 0.36845452142031360636e2 * t128 * t58 * t314 * t318 + 0.68733717152873822009e1 * t128 * t58 * t274 * t276 - 0.71233333333333333333e-1 * t128 * t129 * t306 - 0.22161481481481481481e0 * t128 * t230 * t64 * t83 + 0.14246666666666666667e0 * t128 * t251 * t161 + 0.22911239050957940670e1 * t128 * t123 * t165 * t169 - 0.28493333333333333334e0 * t128 * t123 * t134 * t137 - 0.42740000000000000000e0 * t128 * t262 * t267 + 0.42740000000000000000e0 * t72 * t134 * t81 * t161 - 0.34366858576436911004e1 * t72 * t165 * t160 * t168 * t81;
351 t561 = lapl[0] / t28 / t189;
352 t567 = t187 / t11 / t374;
353 t571 = t342 * rho[0];
354 t573 = t341 / t571;
355 t576 = t187 * t187;
356 t579 = 0.1e1 / t28 / t342 / t91;
357 t586 = t48 / t347 / t50;
358 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
359 v4rho4[0] = 0.4e1 * t321 * t53 + 0.12e2 * t172 * t106 + 0.12e2 * t86 * t207 + 0.4e1 * t40 * t358 + rho[0] * (t504 + t549) * t53 + 0.4e1 * t322 * t106 + 0.6e1 * t173 * t207 + 0.4e1 * t87 * t358 + t89 * (0.15209876543209876543e0 * t90 * t561 * t51 - 0.13096296296296296296e-1 * t186 * t567 * t99 + 0.13698624028444066698e-3 * t573 * t197 - 0.37100440077036013972e-6 * t576 * t579 * t348 * t90 + 0.12057643025036704541e-5 * t586 * t576 * t579 * t25 * t102 - 0.44520528092443216767e-3 * t349 * t573 + 0.42562962962962962961e-1 * t199 * t200 * t567 - 0.49432098765432098763e0 * t101 * t102 * t561);
360
361 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
362 v4rho3sigma[0] = 0.0e0;
363
364 t624 = 0.1e1 / t28 / t571;
365 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
366 v4rho3lapl[0] = 0.3e1 * t172 * t114 + 0.6e1 * t86 * t226 + 0.3e1 * t40 * t388 + t322 * t114 + 0.3e1 * t173 * t226 + 0.3e1 * t87 * t388 + t89 * (-0.32592592592592592592e-1 * t27 * t497 * t51 + 0.47377777777777777777e-2 * t186 * t336 * t99 * lapl[0] - 0.66780792138664825154e-4 * t343 * t197 * t187 + 0.22260264046221608384e-6 * t624 * t348 * t341 * t90 - 0.72345858150220227246e-6 * t586 * t624 * t341 * t25 * t102 + 0.21703757445066068175e-3 * t349 * t343 * t187 - 0.15397777777777777777e-1 * t199 * t200 * t336 * lapl[0] + 0.10592592592592592592e0 * t101 * t478);
367
368 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
369 v4rho3tau[0] = 0.0e0;
370
371 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
372 v4rho2sigma2[0] = 0.0e0;
373
374 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
375 v4rho2sigmalapl[0] = 0.0e0;
376
377 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
378 v4rho2sigmatau[0] = 0.0e0;
379
380 t659 = 0.1e1 / t28 / t342;
381 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
382 v4rho2lapl2[0] = 0.2e1 * t86 * t238 + 0.2e1 * t40 * t406 + t173 * t238 + 0.2e1 * t87 * t406 + t89 * (-0.11266666666666666667e-2 * t228 * t7 * t191 * t99 + 0.28767110459732540067e-4 * t376 * lapl[0] - 0.13356158427732965031e-6 * t659 * t348 * t187 * t90 + 0.43407514890132136348e-6 * t586 * t659 * t187 * t25 * t102 - 0.93493108994130755216e-4 * t349 * t375 * lapl[0] + 0.36616666666666666667e-2 * t199 * t200 * t191);
383
384 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
385 v4rho2lapltau[0] = 0.0e0;
386
387 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
388 v4rho2tau2[0] = 0.0e0;
389
390 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
391 v4rhosigma3[0] = 0.0e0;
392
393 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
394 v4rhosigma2lapl[0] = 0.0e0;
395
396 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
397 v4rhosigma2tau[0] = 0.0e0;
398
399 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
400 v4rhosigmalapl2[0] = 0.0e0;
401
402 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
403 v4rhosigmalapltau[0] = 0.0e0;
404
405 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
406 v4rhosigmatau2[0] = 0.0e0;
407
408 t681 = 0.1e1 / t28 / t374;
409 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
410 v4rholapl3[0] = t40 * t413 + t87 * t413 + t89 * (-0.92465712191997450220e-5 * t397 + 0.80136950566397790188e-7 * t681 * t348 * t25 * t102 * lapl[0] - 0.26044508934079281810e-6 * t586 * t681 * t41 * t42 + 0.30051356462399171320e-4 * t349 * t396);
411
412 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
413 v4rholapl2tau[0] = 0.0e0;
414
415 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
416 v4rholapltau2[0] = 0.0e0;
417
418 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
419 v4rhotau3[0] = 0.0e0;
420
421 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
422 v4sigma4[0] = 0.0e0;
423
424 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
425 v4sigma3lapl[0] = 0.0e0;
426
427 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
428 v4sigma3tau[0] = 0.0e0;
429
430 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
431 v4sigma2lapl2[0] = 0.0e0;
432
433 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
434 v4sigma2lapltau[0] = 0.0e0;
435
436 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
437 v4sigma2tau2[0] = 0.0e0;
438
439 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
440 v4sigmalapl3[0] = 0.0e0;
441
442 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
443 v4sigmalapl2tau[0] = 0.0e0;
444
445 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
446 v4sigmalapltau2[0] = 0.0e0;
447
448 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
449 v4sigmatau3[0] = 0.0e0;
450
451 t696 = 0.1e1 / t28 / t334;
452 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
453 v4lapl4[0] = t89 * (-0.48082170339838674114e-7 * t696 * t348 * t90 + 0.15626705360447569087e-6 * t586 * t696 * t90);
454
455 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
456 v4lapl3tau[0] = 0.0e0;
457
458 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
459 v4lapl2tau2[0] = 0.0e0;
460
461 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
462 v4lapltau3[0] = 0.0e0;
463
464 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
465 v4tau4[0] = 0.0e0;
466
467 #ifndef XC_DONT_COMPILE_MXC
468
469 if(order < 5) return;
470
471
472 #endif
473
474 #endif
475
476 #endif
477
478 #endif
479
480 #endif
481
482
483 }
484
485
486 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 *))487 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 *))
488 {
489
490 #ifndef XC_DONT_COMPILE_EXC
491 double t2, t3, t4, t5, t6, t7, t8, t14;
492 double t16, t17, t20, t22, t23, t24, t25, t26;
493 double t28, t30, t33, t34, t37, t38, t39, t41;
494 double t43, t45, t47, t48, t50;
495
496 #ifndef XC_DONT_COMPILE_VXC
497 double t55, t56, t60, t61, t62, t64, t65, t66;
498 double t69, t71, t72, t75, t78, t79, t80, t83;
499 double t84, t86, t87, t88, t90, t91, t95, t96;
500 double t98, t99, t103, t111;
501
502 #ifndef XC_DONT_COMPILE_FXC
503 double t120, t121, t125, t126, t130, t131, t132, t133;
504 double t134, t139, t140, t143, t148, t149, t154, t157;
505 double t158, t161, t162, t163, t164, t165, t166, t169;
506 double t170, t174, t176, t177, t182, t183, t184, t185;
507 double t186, t188, t189, t194, t196, t197, t204, t212;
508 double t223, t225, t227, t228, t235;
509
510 #ifndef XC_DONT_COMPILE_KXC
511 double t248, t259, t263, t264, t271, t272, t273, t279;
512 double t280, t283, t286, t291, t292, t299, t302, t303;
513 double t311, t312, t314, t315, t318, t319, t326, t327;
514 double t331, t333, t334, t338, t339, t340, t341, t344;
515 double t345, t346, t355, t371, t372, t373, t385, t389;
516 double t393, t394, t403, t405, t410;
517
518 #ifndef XC_DONT_COMPILE_LXC
519 double t423, t443, t450, t453, t475, t478, t483, t494;
520 double t501, t546, t558, t564, t568, t570, t573, t576;
521 double t583, t621, t656, t678, t693;
522 #endif
523
524 #endif
525
526 #endif
527
528 #endif
529
530 #endif
531
532
533
534 t2 = M_CBRT3;
535 t3 = 0.1e1 / M_PI;
536 t4 = POW_1_3(t3);
537 t5 = t2 * t4;
538 t6 = M_CBRT4;
539 t7 = t6 * t6;
540 t8 = POW_1_3(rho[0]);
541 t14 = t5 * t7 / t8;
542 t16 = 0.1e1 + 0.51370000000000000000e-1 * t14;
543 t17 = sqrt(t14);
544 t20 = POW_3_2(t14);
545 t22 = t2 * t2;
546 t23 = t4 * t4;
547 t24 = t22 * t23;
548 t25 = t8 * t8;
549 t26 = 0.1e1 / t25;
550 t28 = t24 * t6 * t26;
551 t30 = 0.70594500000000000000e1 * t17 + 0.15494250000000000000e1 * t14 + 0.42077500000000000000e0 * t20 + 0.15629250000000000000e0 * t28;
552 t33 = 0.1e1 + 0.32164683177870697974e2 / t30;
553 t34 = log(t33);
554 t37 = -0.3e1 / 0.8e1 * t5 * t7 * t8 - 0.31090e-1 * t16 * t34;
555 t38 = t22 * t6;
556 t39 = t23 * lapl[0];
557 t41 = 0.1e1 / t25 / rho[0];
558 t43 = t38 * t39 * t41;
559 t45 = -0.7e-3 + 0.20000000000000000000e-2 * t43;
560 t47 = 0.1e1 + 0.65000000000000000000e-2 * t43;
561 t48 = 0.1e1 / t47;
562 t50 = t45 * t48 + 0.1e1;
563 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
564 zk[0] = t37 * t50;
565
566 #ifndef XC_DONT_COMPILE_VXC
567
568 if(order < 1) return;
569
570
571 t55 = 0.1e1 / t8 / rho[0];
572 t56 = t7 * t55;
573 t60 = t30 * t30;
574 t61 = 0.1e1 / t60;
575 t62 = t16 * t61;
576 t64 = 0.1e1 / t17 * t2;
577 t65 = t4 * t7;
578 t66 = t65 * t55;
579 t69 = t5 * t56;
580 t71 = sqrt(t14);
581 t72 = t71 * t2;
582 t75 = t6 * t41;
583 t78 = -0.11765750000000000000e1 * t64 * t66 - 0.51647500000000000000e0 * t69 - 0.21038750000000000000e0 * t72 * t66 - 0.10419500000000000000e0 * t24 * t75;
584 t79 = 0.1e1 / t33;
585 t80 = t78 * t79;
586 t83 = -t5 * t7 * t26 / 0.8e1 + 0.53236443333333333332e-3 * t5 * t56 * t34 + 0.10000000000000000000e1 * t62 * t80;
587 t84 = rho[0] * t83;
588 t86 = rho[0] * t37;
589 t87 = t38 * t23;
590 t88 = rho[0] * rho[0];
591 t90 = 0.1e1 / t25 / t88;
592 t91 = lapl[0] * t90;
593 t95 = t47 * t47;
594 t96 = 0.1e1 / t95;
595 t98 = t45 * t96 * t22;
596 t99 = t6 * t23;
597 t103 = -0.33333333333333333333e-2 * t87 * t91 * t48 + 0.10833333333333333333e-1 * t98 * t99 * t91;
598 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
599 vrho[0] = t86 * t103 + t84 * t50 + (t37 * t50);
600
601 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
602 vsigma[0] = 0.0e0;
603
604 t111 = 0.20000000000000000000e-2 * t24 * t75 * t48 - 0.65000000000000000000e-2 * t98 * t99 * t41;
605 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
606 vlapl[0] = t86 * t111;
607
608 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
609 vtau[0] = 0.0e0;
610
611 #ifndef XC_DONT_COMPILE_FXC
612
613 if(order < 2) return;
614
615
616 t120 = 0.1e1 / t8 / t88;
617 t121 = t7 * t120;
618 t125 = t5 * t7;
619 t126 = t55 * t61;
620 t130 = t60 * t30;
621 t131 = 0.1e1 / t130;
622 t132 = t16 * t131;
623 t133 = t78 * t78;
624 t134 = t133 * t79;
625 t139 = 0.1e1 / t17 / t14 * t22;
626 t140 = t99 * t90;
627 t143 = t65 * t120;
628 t148 = 0.1e1/sqrt(t14);
629 t149 = t148 * t22;
630 t154 = t6 * t90;
631 t157 = -0.78438333333333333333e0 * t139 * t140 + 0.15687666666666666667e1 * t64 * t143 + 0.68863333333333333333e0 * t5 * t121 + 0.14025833333333333333e0 * t149 * t140 + 0.28051666666666666667e0 * t72 * t143 + 0.17365833333333333333e0 * t24 * t154;
632 t158 = t157 * t79;
633 t161 = t60 * t60;
634 t162 = 0.1e1 / t161;
635 t163 = t16 * t162;
636 t164 = t33 * t33;
637 t165 = 0.1e1 / t164;
638 t166 = t133 * t165;
639 t169 = t5 * t7 * t41 / 0.12e2 - 0.70981924444444444442e-3 * t5 * t121 * t34 - 0.34246666666666666666e-1 * t125 * t126 * t80 - 0.20000000000000000000e1 * t132 * t134 + 0.10000000000000000000e1 * t62 * t158 + 0.32164683177870697974e2 * t163 * t166;
640 t170 = rho[0] * t169;
641 t174 = t88 * rho[0];
642 t176 = 0.1e1 / t25 / t174;
643 t177 = lapl[0] * t176;
644 t182 = t4 * t3;
645 t183 = t2 * t7 * t182;
646 t184 = lapl[0] * lapl[0];
647 t185 = t88 * t88;
648 t186 = t185 * rho[0];
649 t188 = 0.1e1 / t8 / t186;
650 t189 = t184 * t188;
651 t194 = 0.1e1 / t95 / t47;
652 t196 = t45 * t194 * t2;
653 t197 = t7 * t182;
654 t204 = 0.88888888888888888888e-2 * t87 * t177 * t48 - 0.21666666666666666666e-3 * t183 * t189 * t96 + 0.70416666666666666662e-3 * t196 * t197 * t189 - 0.28888888888888888888e-1 * t98 * t99 * t177;
655 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
656 v2rho2[0] = 0.2e1 * t37 * t103 + 0.2e1 * t84 * t103 + t170 * t50 + t86 * t204 + 0.2e1 * t83 * t50;
657
658 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
659 v2rhosigma[0] = 0.0e0;
660
661 t212 = 0.1e1 / t8 / t185;
662 t223 = -0.33333333333333333333e-2 * t24 * t154 * t48 + 0.13000000000000000000e-3 * t183 * t212 * t96 * lapl[0] - 0.42249999999999999999e-3 * t196 * t197 * t212 * lapl[0] + 0.10833333333333333333e-1 * t98 * t140;
663 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
664 v2rholapl[0] = t37 * t111 + t84 * t111 + t86 * t223;
665
666 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
667 v2rhotau[0] = 0.0e0;
668
669 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
670 v2sigma2[0] = 0.0e0;
671
672 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
673 v2sigmalapl[0] = 0.0e0;
674
675 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
676 v2sigmatau[0] = 0.0e0;
677
678 t225 = t2 * t182;
679 t227 = 0.1e1 / t8 / t174;
680 t228 = t7 * t227;
681 t235 = -0.78000000000000000000e-4 * t225 * t228 * t96 + 0.25350000000000000000e-3 * t196 * t197 * t227;
682 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
683 v2lapl2[0] = t86 * t235;
684
685 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
686 v2lapltau[0] = 0.0e0;
687
688 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
689 v2tau2[0] = 0.0e0;
690
691 #ifndef XC_DONT_COMPILE_KXC
692
693 if(order < 3) return;
694
695
696 t248 = t120 * t61;
697 t259 = t55 * t162;
698 t263 = t133 * t78;
699 t264 = t263 * t79;
700 t271 = 0.1e1 / t161 / t30;
701 t272 = t16 * t271;
702 t273 = t263 * t165;
703 t279 = 0.1e1 / t17 / t28 * t3 / 0.4e1;
704 t280 = 0.1e1 / t185;
705 t283 = t99 * t176;
706 t286 = t65 * t227;
707 t291 = 0.1e1/POW_3_2(t14);
708 t292 = t291 * t3;
709 t299 = t6 * t176;
710 t302 = -0.47063000000000000000e1 * t279 * t280 + 0.31375333333333333334e1 * t139 * t283 - 0.36604555555555555556e1 * t64 * t286 - 0.16068111111111111111e1 * t5 * t228 + 0.28051666666666666666e0 * t292 * t280 - 0.56103333333333333332e0 * t149 * t283 - 0.65453888888888888890e0 * t72 * t286 - 0.46308888888888888888e0 * t24 * t299;
711 t303 = t302 * t79;
712 t311 = 0.1e1 / t161 / t60;
713 t312 = t16 * t311;
714 t314 = 0.1e1 / t164 / t33;
715 t315 = t263 * t314;
716 t318 = -0.5e1 / 0.36e2 * t5 * t7 * t90 + 0.16562449037037037036e-2 * t5 * t228 * t34 + 0.68493333333333333332e-1 * t125 * t248 * t80 + 0.10274000000000000000e0 * t125 * t55 * t131 * t134 - 0.51369999999999999999e-1 * t125 * t126 * t158 - 0.16522997748472177549e1 * t125 * t259 * t166 + 0.60000000000000000000e1 * t163 * t264 - 0.60000000000000000000e1 * t132 * t80 * t157 - 0.19298809906722418785e3 * t272 * t273 + 0.10000000000000000000e1 * t62 * t303 + 0.96494049533612093922e2 * t163 * t157 * t165 * t78 + 0.20691336878655965246e4 * t312 * t315;
717 t319 = rho[0] * t318;
718 t326 = 0.1e1 / t25 / t185;
719 t327 = lapl[0] * t326;
720 t331 = t185 * t88;
721 t333 = 0.1e1 / t8 / t331;
722 t334 = t184 * t333;
723 t338 = t184 * lapl[0];
724 t339 = t185 * t185;
725 t340 = 0.1e1 / t339;
726 t341 = t338 * t340;
727 t344 = t95 * t95;
728 t345 = 0.1e1 / t344;
729 t346 = t45 * t345;
730 t355 = -0.32592592592592592592e-1 * t87 * t327 * t48 + 0.17333333333333333333e-2 * t183 * t334 * t96 - 0.85616400177775416862e-5 * t341 * t194 + 0.27825330057777010479e-4 * t346 * t341 - 0.56333333333333333330e-2 * t196 * t197 * t334 + 0.10592592592592592592e0 * t98 * t99 * t327;
731 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
732 v3rho3[0] = 0.3e1 * t170 * t103 + 0.6e1 * t83 * t103 + 0.3e1 * t169 * t50 + 0.3e1 * t37 * t204 + 0.3e1 * t84 * t204 + t319 * t50 + t86 * t355;
733
734 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
735 v3rho2sigma[0] = 0.0e0;
736
737 t371 = t185 * t174;
738 t372 = 0.1e1 / t371;
739 t373 = t372 * t194;
740 t385 = 0.88888888888888888888e-2 * t24 * t299 * t48 - 0.77999999999999999999e-3 * t183 * t188 * t96 * lapl[0] + 0.51369840106665250119e-5 * t373 * t184 - 0.16695198034666206288e-4 * t346 * t372 * t184 + 0.25349999999999999999e-2 * t196 * t197 * t188 * lapl[0] - 0.28888888888888888888e-1 * t98 * t283;
741 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
742 v3rho2lapl[0] = t170 * t111 + 0.2e1 * t83 * t111 + 0.2e1 * t37 * t223 + 0.2e1 * t84 * t223 + t86 * t385;
743
744 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
745 v3rho2tau[0] = 0.0e0;
746
747 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
748 v3rhosigma2[0] = 0.0e0;
749
750 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
751 v3rhosigmalapl[0] = 0.0e0;
752
753 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
754 v3rhosigmatau[0] = 0.0e0;
755
756 t389 = t7 * t212;
757 t393 = 0.1e1 / t331;
758 t394 = t393 * t194;
759 t403 = 0.26000000000000000000e-3 * t225 * t389 * t96 - 0.30821904063999150072e-5 * t394 * lapl[0] + 0.10017118820799723773e-4 * t346 * t393 * lapl[0] - 0.84500000000000000000e-3 * t196 * t197 * t212;
760 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
761 v3rholapl2[0] = t37 * t235 + t84 * t235 + t86 * t403;
762
763 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
764 v3rholapltau[0] = 0.0e0;
765
766 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
767 v3rhotau2[0] = 0.0e0;
768
769 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
770 v3sigma3[0] = 0.0e0;
771
772 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
773 v3sigma2lapl[0] = 0.0e0;
774
775 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
776 v3sigma2tau[0] = 0.0e0;
777
778 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
779 v3sigmalapl2[0] = 0.0e0;
780
781 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
782 v3sigmalapltau[0] = 0.0e0;
783
784 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
785 v3sigmatau2[0] = 0.0e0;
786
787 t405 = 0.1e1 / t186;
788 t410 = 0.18493142438399490044e-5 * t405 * t194 - 0.60102712924798342641e-5 * t346 * t405;
789 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
790 v3lapl3[0] = t86 * t410;
791
792 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
793 v3lapl2tau[0] = 0.0e0;
794
795 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
796 v3lapltau2[0] = 0.0e0;
797
798 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
799 v3tau3[0] = 0.0e0;
800
801 #ifndef XC_DONT_COMPILE_LXC
802
803 if(order < 4) return;
804
805
806 t423 = t157 * t157;
807 t443 = t133 * t133;
808 t450 = t161 * t161;
809 t453 = t164 * t164;
810 t475 = t99 * t326;
811 t478 = t65 * t212;
812 t483 = pow(t14, -0.25e1);
813 t494 = t6 * t326;
814 t501 = 0.12414802127193579148e5 * t312 * t157 * t314 * t133 + 0.96494049533612093922e2 * t163 * t423 * t165 + 0.12865873271148279190e3 * t163 * t302 * t165 * t78 - 0.80000000000000000000e1 * t132 * t80 * t302 - 0.11579285944033451271e4 * t272 * t166 * t157 + 0.36000000000000000000e2 * t163 * t134 * t157 - 0.60000000000000000000e1 * t132 * t423 * t79 - 0.24000000000000000000e2 * t272 * t443 * t79 - 0.55208163456790123453e-2 * t5 * t389 * t34 + 0.19965908856856833625e6 * t16 / t450 * t443 / t453 - 0.24829604254387158296e5 * t16 / t161 / t130 * t443 * t314 + 0.10000000000000000000e1 * t62 * (-0.81706597222222222223e-1 / t17 * rho[0] * t188 * t125 + 0.37650400000000000000e2 * t279 * t405 - 0.13944592592592592593e2 * t139 * t475 + 0.12201518518518518519e2 * t64 * t478 + 0.53560370370370370370e1 * t5 * t389 + 0.14025833333333333333e0 * t483 * t3 * t188 * t125 - 0.22441333333333333332e1 * t292 * t405 + 0.24934814814814814815e1 * t149 * t475 + 0.21817962962962962963e1 * t72 * t478 + 0.16979925925925925926e1 * t24 * t494) * t79;
815 t546 = 0.11579285944033451271e4 * t312 * t443 * t165 + 0.10e2 / 0.27e2 * t5 * t7 * t176 + 0.41096000000000000000e0 * t69 * t131 * t78 * t158 - 0.66091990993888710196e1 * t69 * t162 * t157 * t165 * t78 - 0.27397333333333333333e0 * t125 * t120 * t131 * t134 - 0.41096000000000000000e0 * t125 * t259 * t264 - 0.14172186339420759129e3 * t125 * t55 * t311 * t315 - 0.21309037037037037036e0 * t125 * t227 * t61 * t80 + 0.13698666666666666666e0 * t125 * t248 * t158 + 0.44061327329259140130e1 * t125 * t120 * t162 * t166 + 0.13218398198777742039e2 * t125 * t55 * t271 * t273 - 0.68493333333333333332e-1 * t125 * t126 * t303;
816 t558 = lapl[0] / t25 / t186;
817 t564 = t184 / t8 / t371;
818 t568 = t339 * rho[0];
819 t570 = t338 / t568;
820 t573 = t184 * t184;
821 t576 = 0.1e1 / t25 / t339 / t88;
822 t583 = t45 / t344 / t47;
823 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
824 v4rho4[0] = 0.4e1 * t318 * t50 + 0.12e2 * t169 * t103 + 0.12e2 * t83 * t204 + 0.4e1 * t37 * t355 + rho[0] * (t501 + t546) * t50 + 0.4e1 * t319 * t103 + 0.6e1 * t170 * t204 + 0.4e1 * t84 * t355 + t86 * (0.15209876543209876543e0 * t87 * t558 * t48 - 0.13096296296296296296e-1 * t183 * t564 * t96 + 0.13698624028444066698e-3 * t570 * t194 - 0.37100440077036013972e-6 * t573 * t576 * t345 * t87 + 0.12057643025036704541e-5 * t583 * t573 * t576 * t22 * t99 - 0.44520528092443216767e-3 * t346 * t570 + 0.42562962962962962961e-1 * t196 * t197 * t564 - 0.49432098765432098763e0 * t98 * t99 * t558);
825
826 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
827 v4rho3sigma[0] = 0.0e0;
828
829 t621 = 0.1e1 / t25 / t568;
830 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
831 v4rho3lapl[0] = 0.3e1 * t169 * t111 + 0.6e1 * t83 * t223 + 0.3e1 * t37 * t385 + t319 * t111 + 0.3e1 * t170 * t223 + 0.3e1 * t84 * t385 + t86 * (-0.32592592592592592592e-1 * t24 * t494 * t48 + 0.47377777777777777777e-2 * t183 * t333 * t96 * lapl[0] - 0.66780792138664825154e-4 * t340 * t194 * t184 + 0.22260264046221608384e-6 * t621 * t345 * t338 * t87 - 0.72345858150220227246e-6 * t583 * t621 * t338 * t22 * t99 + 0.21703757445066068175e-3 * t346 * t340 * t184 - 0.15397777777777777777e-1 * t196 * t197 * t333 * lapl[0] + 0.10592592592592592592e0 * t98 * t475);
832
833 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
834 v4rho3tau[0] = 0.0e0;
835
836 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
837 v4rho2sigma2[0] = 0.0e0;
838
839 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
840 v4rho2sigmalapl[0] = 0.0e0;
841
842 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
843 v4rho2sigmatau[0] = 0.0e0;
844
845 t656 = 0.1e1 / t25 / t339;
846 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
847 v4rho2lapl2[0] = 0.2e1 * t83 * t235 + 0.2e1 * t37 * t403 + t170 * t235 + 0.2e1 * t84 * t403 + t86 * (-0.11266666666666666667e-2 * t225 * t7 * t188 * t96 + 0.28767110459732540067e-4 * t373 * lapl[0] - 0.13356158427732965031e-6 * t656 * t345 * t184 * t87 + 0.43407514890132136348e-6 * t583 * t656 * t184 * t22 * t99 - 0.93493108994130755216e-4 * t346 * t372 * lapl[0] + 0.36616666666666666667e-2 * t196 * t197 * t188);
848
849 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
850 v4rho2lapltau[0] = 0.0e0;
851
852 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
853 v4rho2tau2[0] = 0.0e0;
854
855 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
856 v4rhosigma3[0] = 0.0e0;
857
858 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
859 v4rhosigma2lapl[0] = 0.0e0;
860
861 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
862 v4rhosigma2tau[0] = 0.0e0;
863
864 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
865 v4rhosigmalapl2[0] = 0.0e0;
866
867 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
868 v4rhosigmalapltau[0] = 0.0e0;
869
870 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
871 v4rhosigmatau2[0] = 0.0e0;
872
873 t678 = 0.1e1 / t25 / t371;
874 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
875 v4rholapl3[0] = t37 * t410 + t84 * t410 + t86 * (-0.92465712191997450220e-5 * t394 + 0.80136950566397790188e-7 * t678 * t345 * t22 * t99 * lapl[0] - 0.26044508934079281810e-6 * t583 * t678 * t38 * t39 + 0.30051356462399171320e-4 * t346 * t393);
876
877 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
878 v4rholapl2tau[0] = 0.0e0;
879
880 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
881 v4rholapltau2[0] = 0.0e0;
882
883 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
884 v4rhotau3[0] = 0.0e0;
885
886 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
887 v4sigma4[0] = 0.0e0;
888
889 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
890 v4sigma3lapl[0] = 0.0e0;
891
892 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
893 v4sigma3tau[0] = 0.0e0;
894
895 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
896 v4sigma2lapl2[0] = 0.0e0;
897
898 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
899 v4sigma2lapltau[0] = 0.0e0;
900
901 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
902 v4sigma2tau2[0] = 0.0e0;
903
904 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
905 v4sigmalapl3[0] = 0.0e0;
906
907 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
908 v4sigmalapl2tau[0] = 0.0e0;
909
910 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
911 v4sigmalapltau2[0] = 0.0e0;
912
913 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
914 v4sigmatau3[0] = 0.0e0;
915
916 t693 = 0.1e1 / t25 / t331;
917 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
918 v4lapl4[0] = t86 * (-0.48082170339838674114e-7 * t693 * t345 * t87 + 0.15626705360447569087e-6 * t583 * t693 * t87);
919
920 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
921 v4lapl3tau[0] = 0.0e0;
922
923 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
924 v4lapl2tau2[0] = 0.0e0;
925
926 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
927 v4lapltau3[0] = 0.0e0;
928
929 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
930 v4tau4[0] = 0.0e0;
931
932 #ifndef XC_DONT_COMPILE_MXC
933
934 if(order < 5) return;
935
936
937 #endif
938
939 #endif
940
941 #endif
942
943 #endif
944
945 #endif
946
947
948 }
949
950
951 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 *))952 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 *))
953 {
954
955 #ifndef XC_DONT_COMPILE_EXC
956 double t2, t3, t4, t5, t6, t7, t8, t9;
957 double t10, t11, t12, t13, t14, t15, t16, t17;
958 double t18, t19, t20, t22, t23, t29, t31, t32;
959 double t35, t37, t38, t39, t40, t41, t43, t45;
960 double t48, t49, t51, t52, t53, t54, t55, t56;
961 double t57, t58, t61, t62, t64, t69, t72, t73;
962 double t77, t82, t85, t86, t87, t89, t90, t94;
963 double t95, t96, t97, t99, t100, t101, t102, t103;
964 double t104, t106, t107, t109, t110, t111, t112, t113;
965 double t114, t118, t120, t122, t123, t125;
966
967 #ifndef XC_DONT_COMPILE_VXC
968 double t126, t127, t128, t130, t133, t134, t140, t142;
969 double t143, t146, t147, t148, t149, t151, t152, t153;
970 double t154, t156, t158, t159, t160, t163, t165, t167;
971 double t168, t169, t171, t172, t173, t175, t176, t177;
972 double t178, t180, t181, t182, t187, t188, t189, t194;
973 double t195, t196, t202, t203, t204, t209, t210, t211;
974 double t214, t215, t216, t219, t221, t223, t224, t226;
975 double t228, t229, t230, t232, t233, t235, t236, t238;
976 double t239, t241, t242, t245, t246, t250, t251, t252;
977 double t253, t254, t255, t258, t260, t262, t265, t266;
978 double t270, t271, t275, t276, t278, t279, t281, t283;
979 double t284, t286, t287, t290, t291, t295, t298, t300;
980 double t301, t305, t308, t309, t316;
981
982 #ifndef XC_DONT_COMPILE_FXC
983 double t317, t319, t321, t322, t325, t326, t330, t334;
984 double t335, t336, t337, t338, t343, t345, t346, t347;
985 double t349, t350, t352, t354, t355, t356, t358, t361;
986 double t363, t364, t367, t368, t369, t370, t371, t372;
987 double t377, t378, t381, t382, t383, t384, t385, t386;
988 double t388, t395, t396, t398, t399, t400, t401, t402;
989 double t403, t404, t406, t410, t414, t415, t416, t417;
990 double t418, t427, t428, t431, t432, t433, t434, t435;
991 double t436, t439, t440, t441, t442, t445, t446, t447;
992 double t448, t451, t452, t453, t454, t455, t458, t459;
993 double t460, t463, t466, t467, t468, t471, t473, t474;
994 double t476, t477, t479, t480, t482, t483, t487, t488;
995 double t490, t491, t492, t493, t496, t498, t499, t503;
996 double t504, t507, t509, t510, t511, t513, t515, t517;
997 double t519, t523, t524, t525, t526, t530, t532, t533;
998 double t538, t539, t540, t543, t546, t547, t548, t551;
999 double t552, t555, t560, t561, t562, t568, t569, t570;
1000 double t571, t578, t580, t583, t586, t589, t592, t595;
1001 double t596, t599, t600, t603, t604, t606, t608, t609;
1002 double t611, t616, t620, t622, t623, t624, t625, t626;
1003 double t629, t633, t634, t637, t638, t643, t644, t647;
1004 double t648, t651, t656, t657, t661, t668, t672, t675;
1005 double t676, t679, t682, t685, t686, t689, t691, t696;
1006 double t702, t703, t704, t708, t709, t712, t715, t717;
1007 double t718, t723, t724, t727, t728, t731, t736, t747;
1008 double t749, t751, t755, t756, t760, t764, t765, t766;
1009 double t773, t774, t778, t780, t782, t783, t790, t791;
1010 double t795, t799, t802, t809, t816, t819, t823, t830;
1011 double t840, t843, t844, t846, t847, t854, t855, t856;
1012 double t857, t860, t861, t865, t867, t868, t870, t871;
1013 double t878;
1014
1015 #ifndef XC_DONT_COMPILE_KXC
1016 double t879, t881, t883, t885, t888, t891, t893, t894;
1017 double t897, t898, t899, t911, t915, t916, t919, t925;
1018 double t926, t929, t930, t931, t933, t934, t936, t938;
1019 double t939, t940, t942, t944, t947, t949, t950, t954;
1020 double t955, t956, t958, t959, t963, t964, t965, t969;
1021 double t970, t972, t973, t977, t978, t979, t990, t991;
1022 double t994, t995, t996, t998, t999, t1003, t1004, t1006;
1023 double t1007, t1009, t1011, t1012, t1013, t1015, t1024, t1025;
1024 double t1027, t1028, t1035, t1039, t1043, t1052, t1053, t1056;
1025 double t1057, t1060, t1064, t1069, t1073, t1074, t1075, t1076;
1026 double t1077, t1078, t1079, t1081, t1083, t1084, t1085, t1086;
1027 double t1087, t1089, t1092, t1093, t1094, t1096, t1097, t1098;
1028 double t1099, t1100, t1101, t1102, t1104, t1105, t1107, t1108;
1029 double t1110, t1113, t1114, t1116, t1117, t1119, t1120, t1123;
1030 double t1124, t1127, t1130, t1131, t1135, t1136, t1139, t1142;
1031 double t1145, t1146, t1147, t1149, t1151, t1152, t1154, t1155;
1032 double t1156, t1158, t1160, t1162, t1163, t1165, t1167, t1171;
1033 double t1173, t1175, t1177, t1179, t1180, t1181, t1184, t1187;
1034 double t1189, t1190, t1192, t1195, t1197, t1198, t1200, t1201;
1035 double t1206, t1208, t1210, t1212, t1213, t1214, t1216, t1219;
1036 double t1221, t1224, t1226, t1227, t1233, t1235, t1236, t1245;
1037 double t1246, t1247, t1248, t1251, t1252, t1255, t1256, t1259;
1038 double t1260, t1261, t1262, t1265, t1266, t1269, t1270, t1273;
1039 double t1278, t1282, t1285, t1286, t1287, t1290, t1297, t1301;
1040 double t1303, t1305, t1307, t1308, t1310, t1312, t1314, t1316;
1041 double t1317, t1318, t1320, t1322, t1324, t1327, t1328, t1330;
1042 double t1331, t1333, t1334, t1336, t1337, t1342, t1344, t1347;
1043 double t1357, t1360, t1370, t1371, t1376, t1378, t1379, t1388;
1044 double t1389, t1392, t1394, t1396, t1398, t1401, t1403, t1404;
1045 double t1406, t1408, t1409, t1415, t1417, t1428, t1431, t1432;
1046 double t1435, t1438, t1441, t1449, t1452, t1453, t1456, t1459;
1047 double t1462, t1465, t1470, t1474, t1480, t1483, t1494, t1496;
1048 double t1497, t1498, t1500, t1505, t1510, t1513, t1518, t1521;
1049 double t1524, t1525, t1530, t1536, t1541, t1548, t1550, t1552;
1050 double t1555, t1557, t1558, t1563, t1566, t1567, t1571, t1573;
1051 double t1574, t1577, t1583, t1587, t1588, t1591, t1592, t1597;
1052 double t1598, t1602, t1603, t1612, t1613, t1616, t1617, t1620;
1053 double t1621, t1624, t1625, t1628, t1633, t1640, t1657, t1662;
1054 double t1667, t1668, t1671, t1676, t1679, t1680, t1684, t1693;
1055 double t1695, t1700, t1707, t1711, t1713, t1714, t1720, t1721;
1056 double t1724, t1727, t1728, t1731, t1733, t1734, t1743, t1744;
1057 double t1747, t1750, t1751, t1754, t1762, t1767, t1774, t1776;
1058 double t1778, t1783, t1786, t1790, t1797, t1804, t1805, t1809;
1059 double t1810, t1811, t1812, t1815, t1822, t1835, t1840, t1844;
1060 double t1846, t1848, t1853, t1854, t1858, t1859, t1860, t1863;
1061 double t1875, t1876, t1880, t1890, t1892, t1895, t1900, t1901;
1062 double t1902, t1903, t1906, t1907, t1910, t1911, t1917, t1918;
1063 double t1921, t1927, t1928, t1934, t1935, t1939, t1943, t1956;
1064 double t1958, t1961, t1963, t1970, t1971, t1972, t1973, t1976;
1065 double t1980, t1981, t1984, t1985, t1993, t1994, t1997, t1998;
1066 double t2002, t2006, t2010, t2014, t2024, t2031, t2035, t2036;
1067 double t2039, t2051, t2055, t2065, t2072, t2076, t2077, t2080;
1068 double t2084, t2106, t2121, t2125, t2127, t2130, t2131, t2135;
1069 double t2136, t2137, t2141, t2150, t2151, t2155, t2157, t2159;
1070 double t2160, t2163, t2164, t2167, t2170, t2171, t2174, t2177;
1071 double t2181, t2182, t2189, t2191, t2193, t2194, t2195, t2204;
1072 double t2205, t2209, t2212, t2221, t2225, t2228, t2231, t2232;
1073 double t2235, t2238, t2239, t2242, t2254, t2258, t2259, t2263;
1074 double t2275, t2279, t2281, t2282, t2283, t2284, t2285, t2290;
1075 double t2292, t2295, t2296, t2299, t2301, t2304, t2305, t2306;
1076 double t2309, t2310, t2311, t2312, t2313, t2314, t2319;
1077
1078 #ifndef XC_DONT_COMPILE_LXC
1079 double t2320, t2322, t2324, t2326, t2328, t2329, t2330, t2331;
1080 double t2332, t2334, t2335, t2336, t2339, t2340, t2341, t2342;
1081 double t2344, t2348, t2350, t2351, t2353, t2354, t2355, t2356;
1082 double t2357, t2359, t2360, t2362, t2363, t2364, t2365, t2368;
1083 double t2371, t2372, t2374, t2376, t2378, t2380, t2381, t2387;
1084 double t2392, t2393, t2396, t2398, t2399, t2405, t2413, t2414;
1085 double t2417, t2421, t2423, t2426, t2431, t2432, t2434, t2436;
1086 double t2441, t2445, t2448, t2452, t2456, t2459, t2463, t2467;
1087 double t2470, t2474, t2476, t2478, t2480, t2482, t2484, t2488;
1088 double t2490, t2493, t2494, t2497, t2501, t2504, t2505, t2508;
1089 double t2509, t2511, t2516, t2520, t2522, t2524, t2527, t2530;
1090 double t2533, t2534, t2536, t2537, t2538, t2540, t2541, t2544;
1091 double t2545, t2550, t2551, t2555, t2557, t2561, t2565, t2569;
1092 double t2570, t2574, t2576, t2578, t2580, t2583, t2586, t2590;
1093 double t2591, t2593, t2601, t2603, t2605, t2608, t2609, t2610;
1094 double t2612, t2613, t2615, t2617, t2620, t2622, t2624, t2626;
1095 double t2629, t2631, t2635, t2640, t2642, t2645, t2647, t2648;
1096 double t2649, t2651, t2653, t2655, t2657, t2660, t2668, t2713;
1097 double t2743, t2745, t2759, t2762, t2800, t2830, t2836, t2850;
1098 double t2851, t2854, t2858, t2867, t2871, t2881, t2885, t2888;
1099 double t2889, t2893, t2896, t2899, t2900, t2902, t2905, t2909;
1100 double t2911, t2915, t2916, t2918, t2922, t2925, t2927, t2928;
1101 double t2946, t2947, t2955, t2962, t2963, t2971, t2989, t2997;
1102 double t3002, t3006, t3009, t3014, t3020, t3039, t3044, t3047;
1103 double t3057, t3085, t3090, t3105, t3128, t3129, t3140, t3147;
1104 double t3151, t3156, t3176, t3184, t3186, t3189, t3191, t3193;
1105 double t3195, t3197, t3200, t3202, t3203, t3205, t3208, t3209;
1106 double t3210, t3211, t3212, t3213, t3215, t3216, t3217, t3218;
1107 double t3219, t3220, t3221, t3222, t3223, t3226, t3258, t3276;
1108 double t3277, t3278, t3283, t3288, t3290, t3292, t3293, t3295;
1109 double t3297, t3298, t3300, t3301, t3302, t3303, t3306, t3309;
1110 double t3311, t3313, t3314, t3315, t3318, t3319, t3320, t3322;
1111 double t3323, t3324, t3327, t3329, t3330, t3331, t3335, t3337;
1112 double t3338, t3339, t3340, t3341, t3353, t3355, t3356, t3358;
1113 double t3364, t3365, t3370, t3372, t3376, t3380, t3382, t3383;
1114 double t3385, t3388, t3390, t3393, t3395, t3401, t3408, t3419;
1115 double t3424, t3428, t3436, t3439, t3441, t3445, t3455, t3457;
1116 double t3459, t3461, t3465, t3468, t3470, t3520, t3525, t3527;
1117 double t3531, t3533, t3535, t3537, t3540, t3553, t3566, t3569;
1118 double t3580, t3590, t3595, t3602, t3614, t3646, t3657, t3710;
1119 double t3711, t3716, t3726, t3734, t3740, t3758, t3760, t3772;
1120 double t3780, t3782, t3786, t3793, t3800, t3807, t3812, t3814;
1121 double t3816, t3839, t3861, t3862, t3868, t3870, t3884, t3893;
1122 double t3896, t3906, t3908, t3916, t3919, t3926, t3932, t3938;
1123 double t3952, t3970, t3978, t3997, t4015, t4016, t4021, t4035;
1124 double t4040, t4064, t4077, t4080, t4085, t4089, t4094, t4099;
1125 double t4100, t4103, t4108, t4116, t4117, t4124, t4140, t4146;
1126 double t4152, t4158, t4175, t4194, t4201, t4208, t4215, t4224;
1127 double t4234, t4239, t4261, t4263, t4265, t4281, t4285, t4290;
1128 double t4301, t4304, t4337, t4343, t4358, t4373, t4382, t4386;
1129 double t4396, t4399, t4402, t4404, t4406, t4423, t4456, t4465;
1130 double t4478, t4488, t4492, t4494, t4500, t4502, t4518, t4522;
1131 double t4525, t4528, t4532, t4536, t4546, t4560, t4566, t4584;
1132 double t4592, t4603, t4613, t4633, t4634, t4671, t4676, t4682;
1133 double t4684, t4690, t4692, t4696, t4715, t4729, t4730, t4762;
1134 double t4767, t4791, t4806, t4833, t4845, t4849, t4852, t4858;
1135 double t4879, t4931, t4936, t4960, t4965, t4969, t4970, t4977;
1136 double t5005, t5009, t5012, t5018, t5020, t5026, t5036, t5059;
1137 double t5063, t5070, t5094, t5098, t5102, t5105, t5136, t5145;
1138 double t5149, t5186, t5237, t5267, t5335, t5362, t5392, t5395;
1139 double t5397, t5408, t5412, t5420, t5427, t5432, t5438, t5449;
1140 double t5456, t5461, t5463, t5465, t5470, t5474, t5475, t5477;
1141 double t5480, t5485, t5486, t5488, t5492, t5493, t5499, t5503;
1142 double t5507, t5514, t5518, t5525, t5546, t5547, t5550, t5551;
1143 double t5567, t5570, t5572, t5577, t5589, t5594, t5614, t5617;
1144 double t5622, t5645, t5651, t5674, t5676, t5679, t5685, t5686;
1145 double t5690, t5691, t5696, t5700, t5719, t5723, t5749, t5751;
1146 double t5767, t5773, t5776, t5779, t5782, t5803, t5806, t5809;
1147 double t5811, t5817, t5839, t5849, t5866, t5884, t5915, t5918;
1148 double t5922, t5925, t5929, t5933, t5947, t5953, t5954, t5990;
1149 double t6018, t6049, t6051, t6053, t6055, t6058, t6061, t6064;
1150 double t6074, t6079, t6080, t6081, t6082, t6093, t6096, t6110;
1151 double t6112, t6115, t6116, t6117, t6124, t6128, t6131, t6145;
1152 double t6147, t6150, t6153, t6164, t6180, t6204, t6223, t6225;
1153 double t6242, t6244, t6283, t6285;
1154 #endif
1155
1156 #endif
1157
1158 #endif
1159
1160 #endif
1161
1162 #endif
1163
1164
1165
1166 t2 = M_CBRT3;
1167 t3 = 0.1e1 / M_PI;
1168 t4 = POW_1_3(t3);
1169 t5 = t2 * t4;
1170 t6 = M_CBRT4;
1171 t7 = t6 * t6;
1172 t8 = t5 * t7;
1173 t9 = M_CBRT2;
1174 t10 = t9 * t9;
1175 t11 = rho[0] - rho[1];
1176 t12 = rho[0] + rho[1];
1177 t13 = 0.1e1 / t12;
1178 t14 = t11 * t13;
1179 t15 = 0.1e1 + t14;
1180 t16 = POW_1_3(t15);
1181 t17 = t16 * t15;
1182 t18 = 0.1e1 - t14;
1183 t19 = POW_1_3(t18);
1184 t20 = t19 * t18;
1185 t22 = t10 * (t17 + t20);
1186 t23 = POW_1_3(t12);
1187 t29 = t5 * t7 / t23;
1188 t31 = 0.1e1 + 0.53425000000000000000e-1 * t29;
1189 t32 = sqrt(t29);
1190 t35 = POW_3_2(t29);
1191 t37 = t2 * t2;
1192 t38 = t4 * t4;
1193 t39 = t37 * t38;
1194 t40 = t23 * t23;
1195 t41 = 0.1e1 / t40;
1196 t43 = t39 * t6 * t41;
1197 t45 = 0.37978500000000000000e1 * t32 + 0.89690000000000000000e0 * t29 + 0.20477500000000000000e0 * t35 + 0.12323500000000000000e0 * t43;
1198 t48 = 0.1e1 + 0.16081824322151104822e2 / t45;
1199 t49 = log(t48);
1200 t51 = 0.62182e-1 * t31 * t49;
1201 t52 = t11 * t11;
1202 t53 = t52 * t52;
1203 t54 = t12 * t12;
1204 t55 = t54 * t54;
1205 t56 = 0.1e1 / t55;
1206 t57 = t53 * t56;
1207 t58 = t17 + t20 - 0.2e1;
1208 t61 = 0.1e1 / (0.2e1 * t9 - 0.2e1);
1209 t62 = t58 * t61;
1210 t64 = 0.1e1 + 0.51370000000000000000e-1 * t29;
1211 t69 = 0.70594500000000000000e1 * t32 + 0.15494250000000000000e1 * t29 + 0.42077500000000000000e0 * t35 + 0.15629250000000000000e0 * t43;
1212 t72 = 0.1e1 + 0.32164683177870697974e2 / t69;
1213 t73 = log(t72);
1214 t77 = 0.1e1 + 0.27812500000000000000e-1 * t29;
1215 t82 = 0.51785000000000000000e1 * t32 + 0.90577500000000000000e0 * t29 + 0.11003250000000000000e0 * t35 + 0.12417750000000000000e0 * t43;
1216 t85 = 0.1e1 + 0.29608574643216675549e2 / t82;
1217 t86 = log(t85);
1218 t87 = t77 * t86;
1219 t89 = -0.31090e-1 * t64 * t73 + t51 - 0.19751789702565206229e-1 * t87;
1220 t90 = t62 * t89;
1221 t94 = -0.3e1 / 0.32e2 * t8 * t22 * t23 - t51 + t57 * t90 + 0.19751789702565206229e-1 * t62 * t87;
1222 t95 = t37 * t6;
1223 t96 = POW_1_3(rho[0]);
1224 t97 = t96 * t96;
1225 t99 = 0.1e1 / t97 / rho[0];
1226 t100 = lapl[0] * t99;
1227 t101 = t15 / 0.2e1;
1228 t102 = POW_1_3(t101);
1229 t103 = t102 * t102;
1230 t104 = t103 * t101;
1231 t106 = POW_1_3(rho[1]);
1232 t107 = t106 * t106;
1233 t109 = 0.1e1 / t107 / rho[1];
1234 t110 = lapl[1] * t109;
1235 t111 = t18 / 0.2e1;
1236 t112 = POW_1_3(t111);
1237 t113 = t112 * t112;
1238 t114 = t113 * t111;
1239 t118 = t95 * t38 * (t100 * t104 + t110 * t114);
1240 t120 = -0.7e-3 + 0.20000000000000000000e-2 * t118;
1241 t122 = 0.1e1 + 0.65000000000000000000e-2 * t118;
1242 t123 = 0.1e1 / t122;
1243 t125 = t120 * t123 + 0.1e1;
1244 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1245 zk[0] = t94 * t125;
1246
1247 #ifndef XC_DONT_COMPILE_VXC
1248
1249 if(order < 1) return;
1250
1251
1252 t126 = 0.1e1 / t54;
1253 t127 = t11 * t126;
1254 t128 = t13 - t127;
1255 t130 = -t128;
1256 t133 = 0.4e1 / 0.3e1 * t16 * t128 + 0.4e1 / 0.3e1 * t19 * t130;
1257 t134 = t10 * t133;
1258 t140 = t8 * t22 * t41 / 0.32e2;
1259 t142 = 0.1e1 / t23 / t12;
1260 t143 = t7 * t142;
1261 t146 = 0.11073577833333333333e-2 * t5 * t143 * t49;
1262 t147 = t45 * t45;
1263 t148 = 0.1e1 / t147;
1264 t149 = t31 * t148;
1265 t151 = 0.1e1 / t32 * t2;
1266 t152 = t4 * t7;
1267 t153 = t152 * t142;
1268 t154 = t151 * t153;
1269 t156 = t5 * t143;
1270 t158 = sqrt(t29);
1271 t159 = t158 * t2;
1272 t160 = t159 * t153;
1273 t163 = 0.1e1 / t40 / t12;
1274 t165 = t39 * t6 * t163;
1275 t167 = -0.63297500000000000000e0 * t154 - 0.29896666666666666667e0 * t156 - 0.10238750000000000000e0 * t160 - 0.82156666666666666667e-1 * t165;
1276 t168 = 0.1e1 / t48;
1277 t169 = t167 * t168;
1278 t171 = 0.10000000000000000000e1 * t149 * t169;
1279 t172 = t52 * t11;
1280 t173 = t172 * t56;
1281 t175 = 0.4e1 * t173 * t90;
1282 t176 = t55 * t12;
1283 t177 = 0.1e1 / t176;
1284 t178 = t53 * t177;
1285 t180 = 0.4e1 * t178 * t90;
1286 t181 = t133 * t61;
1287 t182 = t181 * t89;
1288 t187 = t69 * t69;
1289 t188 = 0.1e1 / t187;
1290 t189 = t64 * t188;
1291 t194 = -0.11765750000000000000e1 * t154 - 0.51647500000000000000e0 * t156 - 0.21038750000000000000e0 * t160 - 0.10419500000000000000e0 * t165;
1292 t195 = 0.1e1 / t72;
1293 t196 = t194 * t195;
1294 t202 = t82 * t82;
1295 t203 = 0.1e1 / t202;
1296 t204 = t77 * t203;
1297 t209 = -0.86308333333333333334e0 * t154 - 0.30192500000000000000e0 * t156 - 0.55016250000000000000e-1 * t160 - 0.82785000000000000000e-1 * t165;
1298 t210 = 0.1e1 / t85;
1299 t211 = t209 * t210;
1300 t214 = 0.53236443333333333332e-3 * t5 * t143 * t73 + 0.10000000000000000000e1 * t189 * t196 - t146 - t171 + 0.18311555036753159941e-3 * t5 * t143 * t86 + 0.58482233974552040708e0 * t204 * t211;
1301 t215 = t62 * t214;
1302 t216 = t57 * t215;
1303 t219 = t62 * t2;
1304 t221 = t152 * t142 * t86;
1305 t223 = 0.18311555036753159941e-3 * t219 * t221;
1306 t224 = t62 * t77;
1307 t226 = t203 * t209 * t210;
1308 t228 = 0.58482233974552040708e0 * t224 * t226;
1309 t229 = -0.3e1 / 0.32e2 * t8 * t134 * t23 - t140 + t146 + t171 + t175 - t180 + t57 * t182 + t216 + 0.19751789702565206229e-1 * t181 * t87 - t223 - t228;
1310 t230 = t12 * t229;
1311 t232 = t12 * t94;
1312 t233 = rho[0] * rho[0];
1313 t235 = 0.1e1 / t97 / t233;
1314 t236 = lapl[0] * t235;
1315 t238 = t128 / 0.2e1;
1316 t239 = t103 * t238;
1317 t241 = -t238;
1318 t242 = t113 * t241;
1319 t245 = 0.5e1 / 0.3e1 * t100 * t239 - 0.5e1 / 0.3e1 * t236 * t104 + 0.5e1 / 0.3e1 * t110 * t242;
1320 t246 = t38 * t245;
1321 t250 = t122 * t122;
1322 t251 = 0.1e1 / t250;
1323 t252 = t120 * t251;
1324 t253 = t252 * t37;
1325 t254 = t6 * t38;
1326 t255 = t254 * t245;
1327 t258 = 0.20000000000000000000e-2 * t95 * t246 * t123 - 0.65000000000000000000e-2 * t253 * t255;
1328 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1329 vrho[0] = t230 * t125 + t232 * t258 + (t94 * t125);
1330
1331 t260 = -t13 - t127;
1332 t262 = -t260;
1333 t265 = 0.4e1 / 0.3e1 * t16 * t260 + 0.4e1 / 0.3e1 * t19 * t262;
1334 t266 = t10 * t265;
1335 t270 = t265 * t61;
1336 t271 = t270 * t89;
1337 t275 = -0.3e1 / 0.32e2 * t8 * t266 * t23 - t140 + t146 + t171 - t175 - t180 + t57 * t271 + t216 + 0.19751789702565206229e-1 * t270 * t87 - t223 - t228;
1338 t276 = t12 * t275;
1339 t278 = t260 / 0.2e1;
1340 t279 = t103 * t278;
1341 t281 = rho[1] * rho[1];
1342 t283 = 0.1e1 / t107 / t281;
1343 t284 = lapl[1] * t283;
1344 t286 = -t278;
1345 t287 = t113 * t286;
1346 t290 = 0.5e1 / 0.3e1 * t100 * t279 + 0.5e1 / 0.3e1 * t110 * t287 - 0.5e1 / 0.3e1 * t284 * t114;
1347 t291 = t38 * t290;
1348 t295 = t254 * t290;
1349 t298 = 0.20000000000000000000e-2 * t95 * t291 * t123 - 0.65000000000000000000e-2 * t253 * t295;
1350 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1351 vrho[1] = t276 * t125 + t232 * t298 + (t94 * t125);
1352
1353 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1354 vsigma[0] = 0.0e0;
1355
1356 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1357 vsigma[1] = 0.0e0;
1358
1359 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1360 vsigma[2] = 0.0e0;
1361
1362 t300 = t95 * t38;
1363 t301 = t99 * t104;
1364 t305 = t254 * t301;
1365 t308 = 0.20000000000000000000e-2 * t300 * t301 * t123 - 0.65000000000000000000e-2 * t253 * t305;
1366 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1367 vlapl[0] = t232 * t308;
1368
1369 t309 = t109 * t114;
1370 t316 = 0.20000000000000000000e-2 * t300 * t309 * t123 - 0.65000000000000000000e-2 * t253 * t254 * t309;
1371 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1372 vlapl[1] = t232 * t316;
1373
1374 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1375 vtau[0] = 0.0e0;
1376
1377 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1378 vtau[1] = 0.0e0;
1379
1380 #ifndef XC_DONT_COMPILE_FXC
1381
1382 if(order < 2) return;
1383
1384
1385 t317 = t229 * t125;
1386 t319 = t94 * t258;
1387 t321 = t181 * t214;
1388 t322 = t57 * t321;
1389 t325 = 0.1e1 / t23 / t54;
1390 t326 = t7 * t325;
1391 t330 = t142 * t188;
1392 t334 = t187 * t69;
1393 t335 = 0.1e1 / t334;
1394 t336 = t64 * t335;
1395 t337 = t194 * t194;
1396 t338 = t337 * t195;
1397 t343 = 0.1e1 / t32 / t29 * t37;
1398 t345 = 0.1e1 / t40 / t54;
1399 t346 = t254 * t345;
1400 t347 = t343 * t346;
1401 t349 = t152 * t325;
1402 t350 = t151 * t349;
1403 t352 = t5 * t326;
1404 t354 = 0.1e1/sqrt(t29);
1405 t355 = t354 * t37;
1406 t356 = t355 * t346;
1407 t358 = t159 * t349;
1408 t361 = t39 * t6 * t345;
1409 t363 = -0.78438333333333333333e0 * t347 + 0.15687666666666666667e1 * t350 + 0.68863333333333333333e0 * t352 + 0.14025833333333333333e0 * t356 + 0.28051666666666666667e0 * t358 + 0.17365833333333333333e0 * t361;
1410 t364 = t363 * t195;
1411 t367 = t187 * t187;
1412 t368 = 0.1e1 / t367;
1413 t369 = t64 * t368;
1414 t370 = t72 * t72;
1415 t371 = 0.1e1 / t370;
1416 t372 = t337 * t371;
1417 t377 = 0.14764770444444444444e-2 * t5 * t326 * t49;
1418 t378 = t142 * t148;
1419 t381 = 0.35616666666666666667e-1 * t8 * t378 * t169;
1420 t382 = t147 * t45;
1421 t383 = 0.1e1 / t382;
1422 t384 = t31 * t383;
1423 t385 = t167 * t167;
1424 t386 = t385 * t168;
1425 t388 = 0.20000000000000000000e1 * t384 * t386;
1426 t395 = -0.42198333333333333333e0 * t347 + 0.84396666666666666666e0 * t350 + 0.39862222222222222223e0 * t352 + 0.68258333333333333333e-1 * t356 + 0.13651666666666666667e0 * t358 + 0.13692777777777777778e0 * t361;
1427 t396 = t395 * t168;
1428 t398 = 0.10000000000000000000e1 * t149 * t396;
1429 t399 = t147 * t147;
1430 t400 = 0.1e1 / t399;
1431 t401 = t31 * t400;
1432 t402 = t48 * t48;
1433 t403 = 0.1e1 / t402;
1434 t404 = t385 * t403;
1435 t406 = 0.16081824322151104822e2 * t401 * t404;
1436 t410 = t142 * t203;
1437 t414 = t202 * t82;
1438 t415 = 0.1e1 / t414;
1439 t416 = t77 * t415;
1440 t417 = t209 * t209;
1441 t418 = t417 * t210;
1442 t427 = -0.57538888888888888889e0 * t347 + 0.11507777777777777778e1 * t350 + 0.40256666666666666667e0 * t352 + 0.36677500000000000000e-1 * t356 + 0.73355000000000000000e-1 * t358 + 0.13797500000000000000e0 * t361;
1443 t428 = t427 * t210;
1444 t431 = t202 * t202;
1445 t432 = 0.1e1 / t431;
1446 t433 = t77 * t432;
1447 t434 = t85 * t85;
1448 t435 = 0.1e1 / t434;
1449 t436 = t417 * t435;
1450 t439 = -0.70981924444444444442e-3 * t5 * t326 * t73 - 0.34246666666666666666e-1 * t8 * t330 * t196 - 0.20000000000000000000e1 * t336 * t338 + 0.10000000000000000000e1 * t189 * t364 + 0.32164683177870697974e2 * t369 * t372 + t377 + t381 + t388 - t398 - t406 - 0.24415406715670879921e-3 * t5 * t326 * t86 - 0.10843580882781524214e-1 * t8 * t410 * t211 - 0.11696446794910408142e1 * t416 * t418 + 0.58482233974552040708e0 * t204 * t428 + 0.17315755899375863299e2 * t433 * t436;
1451 t440 = t62 * t439;
1452 t441 = t57 * t440;
1453 t442 = t178 * t182;
1454 t445 = 0.8e1 * t178 * t215;
1455 t446 = t16 * t16;
1456 t447 = 0.1e1 / t446;
1457 t448 = t128 * t128;
1458 t451 = t54 * t12;
1459 t452 = 0.1e1 / t451;
1460 t453 = t11 * t452;
1461 t454 = -t126 + t453;
1462 t455 = 0.2e1 * t454;
1463 t458 = t19 * t19;
1464 t459 = 0.1e1 / t458;
1465 t460 = t130 * t130;
1466 t463 = -t455;
1467 t466 = 0.4e1 / 0.9e1 * t447 * t448 + 0.4e1 / 0.3e1 * t16 * t455 + 0.4e1 / 0.9e1 * t459 * t460 + 0.4e1 / 0.3e1 * t19 * t463;
1468 t467 = t466 * t61;
1469 t468 = t467 * t89;
1470 t471 = 0.8e1 * t173 * t215;
1471 t473 = 0.1e1 / t55 / t54;
1472 t474 = t53 * t473;
1473 t476 = 0.20e2 * t474 * t90;
1474 t477 = t52 * t56;
1475 t479 = 0.12e2 * t477 * t90;
1476 t480 = t172 * t177;
1477 t482 = 0.32e2 * t480 * t90;
1478 t483 = t173 * t182;
1479 t487 = t62 * t5;
1480 t488 = t143 * t226;
1481 t490 = 0.10843580882781524214e-1 * t487 * t488;
1482 t491 = 0.2e1 * t322 + t441 - 0.8e1 * t442 - t445 + t57 * t468 + t471 + t476 + t479 - t482 - t377 + 0.8e1 * t483 + 0.19751789702565206229e-1 * t467 * t87 + t490;
1483 t492 = t181 * t2;
1484 t493 = t492 * t221;
1485 t496 = t152 * t325 * t86;
1486 t498 = 0.24415406715670879921e-3 * t219 * t496;
1487 t499 = t10 * t466;
1488 t503 = t181 * t77;
1489 t504 = t503 * t226;
1490 t507 = t203 * t427 * t210;
1491 t509 = 0.58482233974552040708e0 * t224 * t507;
1492 t510 = t432 * t417;
1493 t511 = t510 * t435;
1494 t513 = 0.17315755899375863299e2 * t224 * t511;
1495 t515 = t415 * t417 * t210;
1496 t517 = 0.11696446794910408142e1 * t224 * t515;
1497 t519 = t8 * t134 * t41;
1498 t523 = t8 * t22 * t163 / 0.48e2;
1499 t524 = -0.36623110073506319882e-3 * t493 - t381 + t498 + t398 + t406 - t388 - 0.3e1 / 0.32e2 * t8 * t499 * t23 - 0.11696446794910408142e1 * t504 - t509 - t513 + t517 - t519 / 0.16e2 + t523;
1500 t525 = t491 + t524;
1501 t526 = t12 * t525;
1502 t530 = t233 * rho[0];
1503 t532 = 0.1e1 / t97 / t530;
1504 t533 = lapl[0] * t532;
1505 t538 = 0.1e1 / t102;
1506 t539 = t238 * t238;
1507 t540 = t538 * t539;
1508 t543 = t103 * t454;
1509 t546 = 0.1e1 / t112;
1510 t547 = t241 * t241;
1511 t548 = t546 * t547;
1512 t551 = -t454;
1513 t552 = t113 * t551;
1514 t555 = 0.40e2 / 0.9e1 * t533 * t104 - 0.50e2 / 0.9e1 * t236 * t239 + 0.10e2 / 0.9e1 * t100 * t540 + 0.5e1 / 0.3e1 * t100 * t543 + 0.10e2 / 0.9e1 * t110 * t548 + 0.5e1 / 0.3e1 * t110 * t552;
1515 t560 = t2 * t7;
1516 t561 = t4 * t3;
1517 t562 = t245 * t245;
1518 t568 = 0.1e1 / t250 / t122;
1519 t569 = t120 * t568;
1520 t570 = t569 * t2;
1521 t571 = t7 * t561;
1522 t578 = 0.20000000000000000000e-2 * t95 * t38 * t555 * t123 - 0.78000000000000000000e-4 * t560 * t561 * t562 * t251 + 0.25350000000000000000e-3 * t570 * t571 * t562 - 0.65000000000000000000e-2 * t253 * t254 * t555;
1523 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1524 v2rho2[0] = t526 * t125 + 0.2e1 * t230 * t258 + t232 * t578 + 0.2e1 * t317 + 0.2e1 * t319;
1525
1526 t580 = t275 * t125;
1527 t583 = t447 * t260;
1528 t586 = t16 * t11;
1529 t589 = t459 * t262;
1530 t592 = t19 * t11;
1531 t595 = 0.4e1 / 0.9e1 * t583 * t128 + 0.8e1 / 0.3e1 * t586 * t452 + 0.4e1 / 0.9e1 * t589 * t130 - 0.8e1 / 0.3e1 * t592 * t452;
1532 t596 = t595 * t61;
1533 t599 = t270 * t2;
1534 t600 = t599 * t221;
1535 t603 = t322 + t441 - 0.4e1 * t442 - t445 + t476 - t479 - t377 - 0.4e1 * t483 + t490 + 0.19751789702565206229e-1 * t596 * t87 - 0.18311555036753159941e-3 * t600 - 0.18311555036753159941e-3 * t493 - t381 + t498 + t398;
1536 t604 = t173 * t271;
1537 t606 = t178 * t271;
1538 t608 = t270 * t77;
1539 t609 = t608 * t226;
1540 t611 = t10 * t595;
1541 t616 = t8 * t266 * t41;
1542 t620 = t596 * t89;
1543 t622 = t270 * t214;
1544 t623 = t57 * t622;
1545 t624 = t406 - t388 + 0.4e1 * t604 - 0.4e1 * t606 - 0.58482233974552040708e0 * t609 - 0.3e1 / 0.32e2 * t8 * t611 * t23 - t616 / 0.32e2 - 0.58482233974552040708e0 * t504 - t509 - t513 + t517 - t519 / 0.32e2 + t523 + t57 * t620 + t623;
1546 t625 = t603 + t624;
1547 t626 = t12 * t625;
1548 t629 = t94 * t298;
1549 t633 = t538 * t278;
1550 t634 = t633 * t238;
1551 t637 = t103 * t11;
1552 t638 = t637 * t452;
1553 t643 = t546 * t286;
1554 t644 = t643 * t241;
1555 t647 = t113 * t11;
1556 t648 = t647 * t452;
1557 t651 = -0.25e2 / 0.9e1 * t236 * t279 + 0.10e2 / 0.9e1 * t100 * t634 + 0.5e1 / 0.3e1 * t100 * t638 - 0.25e2 / 0.9e1 * t284 * t242 + 0.10e2 / 0.9e1 * t110 * t644 - 0.5e1 / 0.3e1 * t110 * t648;
1558 t656 = t560 * t561;
1559 t657 = t290 * t251;
1560 t661 = t290 * t245;
1561 t668 = 0.20000000000000000000e-2 * t95 * t38 * t651 * t123 - 0.78000000000000000000e-4 * t656 * t657 * t245 + 0.25350000000000000000e-3 * t570 * t571 * t661 - 0.65000000000000000000e-2 * t253 * t254 * t651;
1562 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1563 v2rho2[1] = t626 * t125 + t230 * t298 + t232 * t668 + t276 * t258 + t317 + t319 + t580 + t629;
1564
1565 t672 = t260 * t260;
1566 t675 = t126 + t453;
1567 t676 = 0.2e1 * t675;
1568 t679 = t262 * t262;
1569 t682 = -t676;
1570 t685 = 0.4e1 / 0.9e1 * t447 * t672 + 0.4e1 / 0.3e1 * t16 * t676 + 0.4e1 / 0.9e1 * t459 * t679 + 0.4e1 / 0.3e1 * t19 * t682;
1571 t686 = t685 * t61;
1572 t689 = t686 * t89;
1573 t691 = t10 * t685;
1574 t696 = t441 + 0.19751789702565206229e-1 * t686 * t87 - t445 - t471 + t476 + t479 + t482 - t377 + t490 + t57 * t689 - 0.3e1 / 0.32e2 * t8 * t691 * t23 - 0.36623110073506319882e-3 * t600 - t381;
1575 t702 = t498 + t398 + t406 - t388 - 0.8e1 * t604 - 0.8e1 * t606 - 0.11696446794910408142e1 * t609 - t616 / 0.16e2 - t509 - t513 + t517 + t523 + 0.2e1 * t623;
1576 t703 = t696 + t702;
1577 t704 = t12 * t703;
1578 t708 = t278 * t278;
1579 t709 = t538 * t708;
1580 t712 = t103 * t675;
1581 t715 = t281 * rho[1];
1582 t717 = 0.1e1 / t107 / t715;
1583 t718 = lapl[1] * t717;
1584 t723 = t286 * t286;
1585 t724 = t546 * t723;
1586 t727 = -t675;
1587 t728 = t113 * t727;
1588 t731 = 0.10e2 / 0.9e1 * t100 * t709 + 0.5e1 / 0.3e1 * t100 * t712 + 0.40e2 / 0.9e1 * t718 * t114 - 0.50e2 / 0.9e1 * t284 * t287 + 0.10e2 / 0.9e1 * t110 * t724 + 0.5e1 / 0.3e1 * t110 * t728;
1589 t736 = t290 * t290;
1590 t747 = 0.20000000000000000000e-2 * t95 * t38 * t731 * t123 - 0.78000000000000000000e-4 * t560 * t561 * t736 * t251 + 0.25350000000000000000e-3 * t570 * t571 * t736 - 0.65000000000000000000e-2 * t253 * t254 * t731;
1591 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1592 v2rho2[2] = t704 * t125 + t232 * t747 + 0.2e1 * t276 * t298 + 0.2e1 * t580 + 0.2e1 * t629;
1593
1594 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1595 v2rhosigma[0] = 0.0e0;
1596
1597 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1598 v2rhosigma[1] = 0.0e0;
1599
1600 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1601 v2rhosigma[2] = 0.0e0;
1602
1603 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1604 v2rhosigma[3] = 0.0e0;
1605
1606 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1607 v2rhosigma[4] = 0.0e0;
1608
1609 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1610 v2rhosigma[5] = 0.0e0;
1611
1612 t749 = t94 * t308;
1613 t751 = t235 * t104;
1614 t755 = t99 * t103;
1615 t756 = t123 * t238;
1616 t760 = t251 * t245;
1617 t764 = t569 * t560;
1618 t765 = t561 * t99;
1619 t766 = t104 * t245;
1620 t773 = t252 * t95;
1621 t774 = t38 * t99;
1622 t778 = -0.33333333333333333333e-2 * t300 * t751 * t123 + 0.33333333333333333333e-2 * t300 * t755 * t756 - 0.78000000000000000000e-4 * t656 * t301 * t760 + 0.25350000000000000000e-3 * t764 * t765 * t766 + 0.10833333333333333333e-1 * t253 * t254 * t751 - 0.10833333333333333333e-1 * t773 * t774 * t239;
1623 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1624 v2rholapl[0] = t230 * t308 + t232 * t778 + t749;
1625
1626 t780 = t94 * t316;
1627 t782 = t109 * t113;
1628 t783 = t123 * t241;
1629 t790 = t561 * t109;
1630 t791 = t114 * t245;
1631 t795 = t38 * t109;
1632 t799 = 0.33333333333333333333e-2 * t300 * t782 * t783 - 0.78000000000000000000e-4 * t656 * t309 * t760 + 0.25350000000000000000e-3 * t764 * t790 * t791 - 0.10833333333333333333e-1 * t773 * t795 * t242;
1633 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1634 v2rholapl[1] = t230 * t316 + t232 * t799 + t780;
1635
1636 t802 = t123 * t278;
1637 t809 = t104 * t290;
1638 t816 = 0.33333333333333333333e-2 * t300 * t755 * t802 - 0.78000000000000000000e-4 * t656 * t301 * t657 + 0.25350000000000000000e-3 * t764 * t765 * t809 - 0.10833333333333333333e-1 * t773 * t774 * t279;
1639 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1640 v2rholapl[2] = t232 * t816 + t276 * t308 + t749;
1641
1642 t819 = t283 * t114;
1643 t823 = t123 * t286;
1644 t830 = t114 * t290;
1645 t840 = -0.33333333333333333333e-2 * t300 * t819 * t123 + 0.33333333333333333333e-2 * t300 * t782 * t823 - 0.78000000000000000000e-4 * t656 * t309 * t657 + 0.25350000000000000000e-3 * t764 * t790 * t830 + 0.10833333333333333333e-1 * t253 * t254 * t819 - 0.10833333333333333333e-1 * t773 * t795 * t287;
1646 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1647 v2rholapl[3] = t232 * t840 + t276 * t316 + t780;
1648
1649 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1650 v2rhotau[0] = 0.0e0;
1651
1652 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1653 v2rhotau[1] = 0.0e0;
1654
1655 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1656 v2rhotau[2] = 0.0e0;
1657
1658 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1659 v2rhotau[3] = 0.0e0;
1660
1661 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1662 v2sigma2[0] = 0.0e0;
1663
1664 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1665 v2sigma2[1] = 0.0e0;
1666
1667 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1668 v2sigma2[2] = 0.0e0;
1669
1670 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1671 v2sigma2[3] = 0.0e0;
1672
1673 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1674 v2sigma2[4] = 0.0e0;
1675
1676 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1677 v2sigma2[5] = 0.0e0;
1678
1679 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1680 v2sigmalapl[0] = 0.0e0;
1681
1682 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1683 v2sigmalapl[1] = 0.0e0;
1684
1685 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1686 v2sigmalapl[2] = 0.0e0;
1687
1688 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1689 v2sigmalapl[3] = 0.0e0;
1690
1691 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1692 v2sigmalapl[4] = 0.0e0;
1693
1694 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1695 v2sigmalapl[5] = 0.0e0;
1696
1697 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1698 v2sigmatau[0] = 0.0e0;
1699
1700 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1701 v2sigmatau[1] = 0.0e0;
1702
1703 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1704 v2sigmatau[2] = 0.0e0;
1705
1706 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1707 v2sigmatau[3] = 0.0e0;
1708
1709 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1710 v2sigmatau[4] = 0.0e0;
1711
1712 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1713 v2sigmatau[5] = 0.0e0;
1714
1715 t843 = 0.1e1 / t96 / t530;
1716 t844 = t101 * t101;
1717 t846 = t102 * t844 * t101;
1718 t847 = t843 * t846;
1719 t854 = -0.78000000000000000000e-4 * t656 * t847 * t251 + 0.25350000000000000000e-3 * t570 * t571 * t847;
1720 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1721 v2lapl2[0] = t232 * t854;
1722
1723 t855 = t560 * t790;
1724 t856 = t114 * t251;
1725 t857 = t856 * t301;
1726 t860 = t114 * t99;
1727 t861 = t860 * t104;
1728 t865 = -0.78000000000000000000e-4 * t855 * t857 + 0.25350000000000000000e-3 * t764 * t790 * t861;
1729 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1730 v2lapl2[1] = t232 * t865;
1731
1732 t867 = 0.1e1 / t106 / t715;
1733 t868 = t111 * t111;
1734 t870 = t112 * t868 * t111;
1735 t871 = t867 * t870;
1736 t878 = -0.78000000000000000000e-4 * t656 * t871 * t251 + 0.25350000000000000000e-3 * t570 * t571 * t871;
1737 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1738 v2lapl2[2] = t232 * t878;
1739
1740 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1741 v2lapltau[0] = 0.0e0;
1742
1743 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1744 v2lapltau[1] = 0.0e0;
1745
1746 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1747 v2lapltau[2] = 0.0e0;
1748
1749 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1750 v2lapltau[3] = 0.0e0;
1751
1752 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1753 v2tau2[0] = 0.0e0;
1754
1755 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1756 v2tau2[1] = 0.0e0;
1757
1758 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1759 v2tau2[2] = 0.0e0;
1760
1761 #ifndef XC_DONT_COMPILE_KXC
1762
1763 if(order < 3) return;
1764
1765
1766 t879 = t525 * t125;
1767 t881 = t229 * t258;
1768 t883 = t94 * t578;
1769 t885 = t395 * t403;
1770 t888 = 0.48245472966453314466e2 * t401 * t885 * t167;
1771 t891 = 0.60000000000000000000e1 * t384 * t396 * t167;
1772 t893 = 0.1e1 / t23 / t451;
1773 t894 = t7 * t893;
1774 t897 = 0.34451131037037037036e-2 * t5 * t894 * t49;
1775 t898 = t417 * t209;
1776 t899 = t898 * t210;
1777 t911 = t363 * t371;
1778 t915 = t427 * t435;
1779 t916 = t915 * t209;
1780 t919 = t211 * t427;
1781 t925 = 0.1e1 / t32 / t43 * t3 / 0.4e1;
1782 t926 = t925 * t56;
1783 t929 = 0.1e1 / t40 / t451;
1784 t930 = t254 * t929;
1785 t931 = t343 * t930;
1786 t933 = t152 * t893;
1787 t934 = t151 * t933;
1788 t936 = t5 * t894;
1789 t938 = 0.1e1/POW_3_2(t29);
1790 t939 = t938 * t3;
1791 t940 = t939 * t56;
1792 t942 = t355 * t930;
1793 t944 = t159 * t933;
1794 t947 = t39 * t6 * t929;
1795 t949 = -0.34523333333333333333e1 * t926 + 0.23015555555555555556e1 * t931 - 0.26851481481481481482e1 * t934 - 0.93932222222222222223e0 * t936 + 0.73355000000000000000e-1 * t940 - 0.14671000000000000000e0 * t942 - 0.17116166666666666667e0 * t944 - 0.36793333333333333333e0 * t947;
1796 t950 = t949 * t210;
1797 t954 = 0.1e1 / t367 / t187;
1798 t955 = t64 * t954;
1799 t956 = t337 * t194;
1800 t958 = 0.1e1 / t370 / t72;
1801 t959 = t956 * t958;
1802 t963 = 0.1e1 / t367 / t69;
1803 t964 = t64 * t963;
1804 t965 = t956 * t371;
1805 t969 = 0.1e1 / t431 / t202;
1806 t970 = t77 * t969;
1807 t972 = 0.1e1 / t434 / t85;
1808 t973 = t898 * t972;
1809 t977 = 0.1e1 / t431 / t82;
1810 t978 = t77 * t977;
1811 t979 = t898 * t435;
1812 t990 = -0.47063000000000000000e1 * t926 + 0.31375333333333333334e1 * t931 - 0.36604555555555555556e1 * t934 - 0.16068111111111111111e1 * t936 + 0.28051666666666666666e0 * t940 - 0.56103333333333333332e0 * t942 - 0.65453888888888888890e0 * t944 - 0.46308888888888888888e0 * t947;
1813 t991 = t990 * t195;
1814 t994 = -t888 + t891 + 0.35089340384731224426e1 * t433 * t899 - t897 - 0.60000000000000000000e1 * t336 * t196 * t363 + 0.56969282336565386482e-3 * t5 * t894 * t86 + 0.16562449037037037036e-2 * t5 * t894 * t73 + 0.96494049533612093922e2 * t369 * t911 * t194 + 0.51947267698127589897e2 * t433 * t916 - 0.35089340384731224426e1 * t416 * t919 + 0.58482233974552040708e0 * t204 * t950 + 0.20691336878655965246e4 * t955 * t959 - 0.19298809906722418785e3 * t964 * t965 + 0.10253897021007794930e4 * t970 * t973 - 0.10389453539625517980e3 * t978 * t979 + 0.10000000000000000000e1 * t189 * t991;
1815 t995 = t385 * t167;
1816 t996 = t995 * t168;
1817 t998 = 0.60000000000000000000e1 * t401 * t996;
1818 t999 = t956 * t195;
1819 t1003 = 0.1e1 / t399 / t147;
1820 t1004 = t31 * t1003;
1821 t1006 = 0.1e1 / t402 / t48;
1822 t1007 = t995 * t1006;
1823 t1009 = 0.51725014705706168417e3 * t1004 * t1007;
1824 t1011 = 0.1e1 / t399 / t45;
1825 t1012 = t31 * t1011;
1826 t1013 = t995 * t403;
1827 t1015 = 0.96490945932906628932e2 * t1012 * t1013;
1828 t1024 = -0.25319000000000000000e1 * t926 + 0.16879333333333333333e1 * t931 - 0.19692555555555555555e1 * t934 - 0.93011851851851851854e0 * t936 + 0.13651666666666666667e0 * t940 - 0.27303333333333333333e0 * t942 - 0.31853888888888888890e0 * t944 - 0.36514074074074074075e0 * t947;
1829 t1025 = t1024 * t168;
1830 t1027 = 0.10000000000000000000e1 * t149 * t1025;
1831 t1028 = t325 * t203;
1832 t1035 = t142 * t432;
1833 t1039 = t142 * t368;
1834 t1043 = t325 * t188;
1835 t1052 = 0.53425000000000000000e-1 * t8 * t378 * t396;
1836 t1053 = t142 * t400;
1837 t1056 = 0.85917146441092277512e0 * t8 * t1053 * t404;
1838 t1057 = t325 * t148;
1839 t1060 = 0.71233333333333333334e-1 * t8 * t1057 * t169;
1840 t1064 = 0.10685000000000000000e0 * t8 * t142 * t383 * t386;
1841 t1069 = t142 * t415;
1842 t1073 = -t998 + 0.60000000000000000000e1 * t369 * t999 - t1009 + t1015 - t1027 + 0.21687161765563048428e-1 * t8 * t1028 * t211 - 0.16265371324172286321e-1 * t8 * t410 * t428 - 0.48159446095139119799e0 * t8 * t1035 * t436 - 0.16522997748472177549e1 * t8 * t1039 * t372 + 0.68493333333333333332e-1 * t8 * t1043 * t196 - 0.51369999999999999999e-1 * t8 * t330 * t364 + t1052 + t1056 - t1060 - t1064 + 0.10274000000000000000e0 * t8 * t142 * t335 * t338 + 0.32530742648344572643e-1 * t8 * t1069 * t418;
1843 t1074 = t994 + t1073;
1844 t1075 = t62 * t1074;
1845 t1076 = t57 * t1075;
1846 t1077 = t480 * t215;
1847 t1078 = 0.96e2 * t1077;
1848 t1079 = t477 * t182;
1849 t1081 = t480 * t182;
1850 t1083 = t477 * t215;
1851 t1084 = 0.36e2 * t1083;
1852 t1085 = t173 * t440;
1853 t1086 = 0.12e2 * t1085;
1854 t1087 = t173 * t468;
1855 t1089 = t173 * t321;
1856 t1092 = 0.60e2 * t474 * t215;
1857 t1093 = t888 - t891 + t897 + t1076 + t998 - t1078 + 0.36e2 * t1079 - 0.96e2 * t1081 + t1084 + t1086 + 0.12e2 * t1087 + 0.24e2 * t1089 + t1092;
1858 t1094 = t11 * t56;
1859 t1096 = 0.24e2 * t1094 * t90;
1860 t1097 = t52 * t177;
1861 t1098 = t1097 * t90;
1862 t1099 = 0.144e3 * t1098;
1863 t1100 = t172 * t473;
1864 t1101 = t1100 * t90;
1865 t1102 = 0.240e3 * t1101;
1866 t1104 = 0.1e1 / t55 / t451;
1867 t1105 = t53 * t1104;
1868 t1107 = 0.120e3 * t1105 * t90;
1869 t1108 = t474 * t182;
1870 t1110 = t178 * t321;
1871 t1113 = 0.12e2 * t178 * t440;
1872 t1114 = t178 * t468;
1873 t1116 = t467 * t214;
1874 t1117 = t57 * t1116;
1875 t1119 = t181 * t439;
1876 t1120 = t57 * t1119;
1877 t1123 = 0.1e1 / t446 / t15;
1878 t1124 = t448 * t128;
1879 t1127 = t447 * t128;
1880 t1130 = t452 - t1094;
1881 t1131 = 0.6e1 * t1130;
1882 t1135 = 0.1e1 / t458 / t18;
1883 t1136 = t460 * t130;
1884 t1139 = t459 * t130;
1885 t1142 = -t1131;
1886 t1145 = -0.8e1 / 0.27e2 * t1123 * t1124 + 0.4e1 / 0.3e1 * t1127 * t455 + 0.4e1 / 0.3e1 * t16 * t1131 - 0.8e1 / 0.27e2 * t1135 * t1136 + 0.4e1 / 0.3e1 * t1139 * t463 + 0.4e1 / 0.3e1 * t19 * t1142;
1887 t1146 = t1145 * t61;
1888 t1147 = t1146 * t89;
1889 t1149 = t143 * t511;
1890 t1151 = 0.48159446095139119799e0 * t487 * t1149;
1891 t1152 = t143 * t515;
1892 t1154 = 0.32530742648344572643e-1 * t487 * t1152;
1893 t1155 = t181 * t5;
1894 t1156 = t1155 * t488;
1895 t1158 = t1096 - t1099 + t1102 - t1107 + 0.60e2 * t1108 - 0.24e2 * t1110 - t1113 - 0.12e2 * t1114 + 0.3e1 * t1117 + 0.3e1 * t1120 + t57 * t1147 + t1151 - t1154 + 0.32530742648344572643e-1 * t1156;
1896 t1160 = t143 * t507;
1897 t1162 = 0.16265371324172286321e-1 * t487 * t1160;
1898 t1163 = t326 * t226;
1899 t1165 = 0.21687161765563048428e-1 * t487 * t1163;
1900 t1167 = t8 * t134 * t163;
1901 t1171 = 0.5e1 / 0.144e3 * t8 * t22 * t345;
1902 t1173 = t977 * t898 * t435;
1903 t1175 = 0.10389453539625517980e3 * t224 * t1173;
1904 t1177 = t432 * t898 * t210;
1905 t1179 = 0.35089340384731224426e1 * t224 * t1177;
1906 t1180 = t467 * t77;
1907 t1181 = t1180 * t226;
1908 t1184 = t8 * t499 * t41;
1909 t1187 = t969 * t898 * t972;
1910 t1189 = 0.10253897021007794930e4 * t224 * t1187;
1911 t1190 = t503 * t515;
1912 t1192 = t503 * t511;
1913 t1195 = t203 * t949 * t210;
1914 t1197 = 0.58482233974552040708e0 * t224 * t1195;
1915 t1198 = t503 * t507;
1916 t1200 = t1162 - t1165 + t1167 / 0.16e2 - t1171 + t1175 - t1179 - 0.17544670192365612213e1 * t1181 - 0.3e1 / 0.32e2 * t1184 - t1189 + 0.35089340384731224426e1 * t1190 - 0.51947267698127589899e2 * t1192 - t1197 - 0.17544670192365612213e1 * t1198;
1917 t1201 = t10 * t1145;
1918 t1206 = t432 * t209 * t915;
1919 t1208 = 0.51947267698127589897e2 * t224 * t1206;
1920 t1210 = t415 * t209 * t428;
1921 t1212 = 0.35089340384731224426e1 * t224 * t1210;
1922 t1213 = t467 * t2;
1923 t1214 = t1213 * t221;
1924 t1216 = t492 * t496;
1925 t1219 = t152 * t893 * t86;
1926 t1221 = 0.56969282336565386482e-3 * t219 * t1219;
1927 t1224 = -0.3e1 / 0.32e2 * t8 * t1201 * t23 + t1009 - t1015 + t1027 - t1208 + t1212 - 0.54934665110259479823e-3 * t1214 + 0.73246220147012639764e-3 * t1216 - t1221 - t1052 - t1056 + t1060 + t1064 + 0.19751789702565206229e-1 * t1146 * t87;
1928 t1226 = t1093 + t1158 + t1200 + t1224;
1929 t1227 = t12 * t1226;
1930 t1233 = t233 * t233;
1931 t1235 = 0.1e1 / t97 / t1233;
1932 t1236 = lapl[0] * t1235;
1933 t1245 = t102 * t101;
1934 t1246 = 0.1e1 / t1245;
1935 t1247 = t539 * t238;
1936 t1248 = t1246 * t1247;
1937 t1251 = t538 * t238;
1938 t1252 = t1251 * t454;
1939 t1255 = 0.3e1 * t1130;
1940 t1256 = t103 * t1255;
1941 t1259 = t112 * t111;
1942 t1260 = 0.1e1 / t1259;
1943 t1261 = t547 * t241;
1944 t1262 = t1260 * t1261;
1945 t1265 = t546 * t241;
1946 t1266 = t1265 * t551;
1947 t1269 = -t1255;
1948 t1270 = t113 * t1269;
1949 t1273 = -0.440e3 / 0.27e2 * t1236 * t104 + 0.200e3 / 0.9e1 * t533 * t239 - 0.50e2 / 0.9e1 * t236 * t540 - 0.25e2 / 0.3e1 * t236 * t543 - 0.10e2 / 0.27e2 * t100 * t1248 + 0.10e2 / 0.3e1 * t100 * t1252 + 0.5e1 / 0.3e1 * t100 * t1256 - 0.10e2 / 0.27e2 * t110 * t1262 + 0.10e2 / 0.3e1 * t110 * t1266 + 0.5e1 / 0.3e1 * t110 * t1270;
1950 t1278 = t555 * t251;
1951 t1282 = t562 * t245;
1952 t1285 = t250 * t250;
1953 t1286 = 0.1e1 / t1285;
1954 t1287 = t120 * t1286;
1955 t1290 = t245 * t555;
1956 t1297 = 0.20000000000000000000e-2 * t95 * t38 * t1273 * t123 - 0.23400000000000000000e-3 * t656 * t1278 * t245 + 0.18493142438399490044e-5 * t1282 * t568 - 0.60102712924798342641e-5 * t1287 * t1282 + 0.76050000000000000000e-3 * t570 * t571 * t1290 - 0.65000000000000000000e-2 * t253 * t254 * t1273;
1957 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1958 v3rho3[0] = t1227 * t125 + t232 * t1297 + 0.3e1 * t230 * t578 + 0.3e1 * t526 * t258 + 0.3e1 * t879 + 0.6e1 * t881 + 0.3e1 * t883;
1959
1960 t1301 = 0.2e1 * t625 * t125;
1961 t1303 = 0.2e1 * t275 * t258;
1962 t1305 = 0.8e1 * t173 * t620;
1963 t1307 = 0.8e1 * t178 * t620;
1964 t1308 = t178 * t622;
1965 t1310 = t474 * t271;
1966 t1312 = t477 * t271;
1967 t1314 = t480 * t271;
1968 t1316 = t270 * t439;
1969 t1317 = t57 * t1316;
1970 t1318 = t608 * t507;
1971 t1320 = t608 * t511;
1972 t1322 = t596 * t77;
1973 t1324 = 0.11696446794910408142e1 * t1322 * t226;
1974 t1327 = t8 * t611 * t41 / 0.16e2;
1975 t1328 = t608 * t515;
1976 t1330 = t888 - t891 + t897 + t1076 + t1305 - t1307 - 0.8e1 * t1308 + t998 + 0.20e2 * t1310 + 0.12e2 * t1312 - 0.32e2 * t1314 + t1317 - 0.58482233974552040708e0 * t1318 - 0.17315755899375863299e2 * t1320 - t1324 - t1327 + 0.11696446794910408142e1 * t1328;
1977 t1331 = 0.32e2 * t1077;
1978 t1333 = 0.12e2 * t1083;
1979 t1334 = 0.4e1 * t1085;
1980 t1336 = 0.48e2 * t1098;
1981 t1337 = 0.80e2 * t1101;
1982 t1342 = t8 * t266 * t163;
1983 t1344 = t1123 * t260;
1984 t1347 = t447 * t11;
1985 t1357 = t1135 * t262;
1986 t1360 = t459 * t11;
1987 t1370 = -0.8e1 / 0.27e2 * t1344 * t448 + 0.16e2 / 0.9e1 * t1347 * t452 * t128 + 0.4e1 / 0.9e1 * t583 * t455 + 0.8e1 / 0.3e1 * t16 * t452 - 0.8e1 * t586 * t56 - 0.8e1 / 0.27e2 * t1357 * t460 - 0.16e2 / 0.9e1 * t1360 * t452 * t130 + 0.4e1 / 0.9e1 * t589 * t463 - 0.8e1 / 0.3e1 * t19 * t452 + 0.8e1 * t592 * t56;
1988 t1371 = t10 * t1370;
1989 t1376 = -t1331 - 0.24e2 * t1079 - t1333 + t1334 - 0.4e1 * t1087 + t1092 - t1096 + t1336 + t1337 - t1107 + 0.40e2 * t1108 - 0.16e2 * t1110 - t1113 - 0.4e1 * t1114 + t1117 + t1342 / 0.48e2 - 0.3e1 / 0.32e2 * t8 * t1371 * t23 + 0.2e1 * t1120;
1990 t1378 = t270 * t5;
1991 t1379 = t1378 * t488;
1992 t1388 = 0.10843580882781524214e-1 * t1379 + t1151 - t1154 + 0.21687161765563048428e-1 * t1156 + t1162 - t1165 + t1167 / 0.24e2 - t1171 + t1175 - t1179 - 0.58482233974552040708e0 * t1181 - t1184 / 0.32e2 - t1189 + 0.23392893589820816284e1 * t1190 - 0.34631511798751726598e2 * t1192 - t1197 - 0.11696446794910408142e1 * t1198;
1993 t1389 = t1370 * t61;
1994 t1392 = t1389 * t89;
1995 t1394 = t599 * t496;
1996 t1396 = t596 * t2;
1997 t1398 = 0.36623110073506319882e-3 * t1396 * t221;
1998 t1401 = t596 * t214;
1999 t1403 = 0.2e1 * t57 * t1401;
2000 t1404 = t173 * t622;
2001 t1406 = 0.19751789702565206229e-1 * t1389 * t87 + t57 * t1392 + t1009 - t1015 + t1027 + 0.24415406715670879921e-3 * t1394 - t1398 - t1208 + t1212 - 0.18311555036753159941e-3 * t1214 + 0.48830813431341759842e-3 * t1216 - t1221 - t1052 - t1056 + t1060 + t1064 + t1403 + 0.8e1 * t1404;
2002 t1408 = t1330 + t1376 + t1388 + t1406;
2003 t1409 = t12 * t1408;
2004 t1415 = 0.2e1 * t229 * t298;
2005 t1417 = 0.2e1 * t94 * t668;
2006 t1428 = t1246 * t278 * t539;
2007 t1431 = t100 * t538;
2008 t1432 = t453 * t238;
2009 t1435 = t633 * t454;
2010 t1438 = t103 * t452;
2011 t1441 = t637 * t56;
2012 t1449 = t1260 * t286 * t547;
2013 t1452 = t110 * t546;
2014 t1453 = t453 * t241;
2015 t1456 = t643 * t551;
2016 t1459 = t113 * t452;
2017 t1462 = t647 * t56;
2018 t1465 = 0.200e3 / 0.27e2 * t533 * t279 - 0.100e3 / 0.27e2 * t236 * t634 - 0.50e2 / 0.9e1 * t236 * t638 - 0.10e2 / 0.27e2 * t100 * t1428 + 0.20e2 / 0.9e1 * t1431 * t1432 + 0.10e2 / 0.9e1 * t100 * t1435 + 0.5e1 / 0.3e1 * t100 * t1438 - 0.5e1 * t100 * t1441 - 0.50e2 / 0.27e2 * t284 * t548 - 0.25e2 / 0.9e1 * t284 * t552 - 0.10e2 / 0.27e2 * t110 * t1449 - 0.20e2 / 0.9e1 * t1452 * t1453 + 0.10e2 / 0.9e1 * t110 * t1456 - 0.5e1 / 0.3e1 * t110 * t1459 + 0.5e1 * t110 * t1462;
2019 t1470 = t651 * t251;
2020 t1474 = t290 * t568;
2021 t1480 = t290 * t562;
2022 t1483 = t651 * t245;
2023 t1494 = 0.20000000000000000000e-2 * t95 * t38 * t1465 * t123 - 0.15600000000000000000e-3 * t656 * t1470 * t245 + 0.18493142438399490044e-5 * t1474 * t562 - 0.78000000000000000000e-4 * t656 * t657 * t555 - 0.60102712924798342641e-5 * t1287 * t1480 + 0.50700000000000000000e-3 * t570 * t571 * t1483 + 0.25350000000000000000e-3 * t570 * t571 * t290 * t555 - 0.65000000000000000000e-2 * t253 * t254 * t1465;
2024 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2025 v3rho3[1] = t1409 * t125 + t232 * t1494 + 0.2e1 * t230 * t668 + 0.2e1 * t626 * t258 + t276 * t578 + t526 * t298 + t1301 + t1303 + t1415 + t1417 + t879 + 0.2e1 * t881 + t883;
2026
2027 t1496 = t703 * t125;
2028 t1497 = t686 * t77;
2029 t1498 = t1497 * t226;
2030 t1500 = t1123 * t672;
2031 t1505 = t447 * t676;
2032 t1510 = -0.2e1 * t452 - 0.6e1 * t1094;
2033 t1513 = t1135 * t679;
2034 t1518 = t459 * t682;
2035 t1521 = -t1510;
2036 t1524 = -0.8e1 / 0.27e2 * t1500 * t128 + 0.16e2 / 0.9e1 * t583 * t453 + 0.4e1 / 0.9e1 * t1505 * t128 + 0.4e1 / 0.3e1 * t16 * t1510 - 0.8e1 / 0.27e2 * t1513 * t130 - 0.16e2 / 0.9e1 * t589 * t453 + 0.4e1 / 0.9e1 * t1518 * t130 + 0.4e1 / 0.3e1 * t19 * t1521;
2037 t1525 = t10 * t1524;
2038 t1530 = t8 * t691 * t41;
2039 t1536 = t1524 * t61;
2040 t1541 = t888 - t891 + t897 - 0.58482233974552040708e0 * t1498 - 0.3e1 / 0.32e2 * t8 * t1525 * t23 - t1530 / 0.32e2 + t1076 - t1305 - t1307 - 0.16e2 * t1308 + t998 + 0.40e2 * t1310 - 0.24e2 * t1312 + 0.2e1 * t1317 + 0.19751789702565206229e-1 * t1536 * t87 - 0.11696446794910408142e1 * t1318 - 0.34631511798751726600e2 * t1320;
2041 t1548 = t173 * t689;
2042 t1550 = -t1324 - t1327 + 0.23392893589820816284e1 * t1328 + t1331 + 0.12e2 * t1079 + 0.32e2 * t1081 - t1333 - t1334 - 0.8e1 * t1089 + t1092 + t1096 + t1336 - t1337 - t1107 + 0.20e2 * t1108 - 0.8e1 * t1110 - t1113 + 0.4e1 * t1548;
2043 t1552 = t178 * t689;
2044 t1555 = t1536 * t89;
2045 t1557 = t686 * t214;
2046 t1558 = t57 * t1557;
2047 t1563 = -0.4e1 * t1552 + t1342 / 0.24e2 + t57 * t1555 + t1558 + t1120 + 0.21687161765563048429e-1 * t1379 + t1151 - t1154 + 0.10843580882781524214e-1 * t1156 + t1162 - t1165 + t1167 / 0.48e2 - t1171 + t1175 - t1179 - t1189 + 0.11696446794910408142e1 * t1190;
2048 t1566 = t686 * t2;
2049 t1567 = t1566 * t221;
2050 t1571 = -0.17315755899375863299e2 * t1192 - t1197 - 0.58482233974552040708e0 * t1198 - 0.18311555036753159941e-3 * t1567 + t1009 - t1015 + t1027 + 0.48830813431341759843e-3 * t1394 - t1398 - t1208 + t1212 + 0.24415406715670879921e-3 * t1216 - t1221 - t1052 - t1056 + t1060 + t1064 + t1403;
2051 t1573 = t1541 + t1550 + t1563 + t1571;
2052 t1574 = t12 * t1573;
2053 t1577 = t275 * t298;
2054 t1583 = t94 * t747;
2055 t1587 = t1246 * t708;
2056 t1588 = t1587 * t238;
2057 t1591 = t278 * t11;
2058 t1592 = t1591 * t452;
2059 t1597 = t538 * t675;
2060 t1598 = t1597 * t238;
2061 t1602 = -t452 - 0.3e1 * t1094;
2062 t1603 = t103 * t1602;
2063 t1612 = t1260 * t723;
2064 t1613 = t1612 * t241;
2065 t1616 = t286 * t11;
2066 t1617 = t1616 * t452;
2067 t1620 = t546 * t727;
2068 t1621 = t1620 * t241;
2069 t1624 = -t1602;
2070 t1625 = t113 * t1624;
2071 t1628 = -0.50e2 / 0.27e2 * t236 * t709 - 0.10e2 / 0.27e2 * t100 * t1588 + 0.20e2 / 0.9e1 * t1431 * t1592 - 0.25e2 / 0.9e1 * t236 * t712 + 0.10e2 / 0.9e1 * t100 * t1598 + 0.5e1 / 0.3e1 * t100 * t1603 + 0.200e3 / 0.27e2 * t718 * t242 - 0.100e3 / 0.27e2 * t284 * t644 + 0.50e2 / 0.9e1 * t284 * t648 - 0.10e2 / 0.27e2 * t110 * t1613 - 0.20e2 / 0.9e1 * t1452 * t1617 + 0.10e2 / 0.9e1 * t110 * t1621 + 0.5e1 / 0.3e1 * t110 * t1625;
2072 t1633 = t731 * t251;
2073 t1640 = t736 * t568;
2074 t1657 = 0.20000000000000000000e-2 * t95 * t38 * t1628 * t123 - 0.78000000000000000000e-4 * t656 * t1633 * t245 - 0.15600000000000000000e-3 * t656 * t657 * t651 + 0.18493142438399490044e-5 * t1640 * t245 - 0.60102712924798342641e-5 * t1287 * t736 * t245 + 0.50700000000000000000e-3 * t570 * t571 * t290 * t651 + 0.25350000000000000000e-3 * t570 * t571 * t731 * t245 - 0.65000000000000000000e-2 * t253 * t254 * t1628;
2075 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2076 v3rho3[2] = t1574 * t125 + t232 * t1657 + t230 * t747 + t704 * t258 + 0.2e1 * t276 * t668 + 0.2e1 * t626 * t298 + t1301 + t1303 + t1415 + t1417 + t1496 + 0.2e1 * t1577 + t1583;
2077
2078 t1662 = t672 * t260;
2079 t1667 = -t452 - t1094;
2080 t1668 = 0.6e1 * t1667;
2081 t1671 = t679 * t262;
2082 t1676 = -t1668;
2083 t1679 = -0.8e1 / 0.27e2 * t1123 * t1662 + 0.4e1 / 0.3e1 * t583 * t676 + 0.4e1 / 0.3e1 * t16 * t1668 - 0.8e1 / 0.27e2 * t1135 * t1671 + 0.4e1 / 0.3e1 * t589 * t682 + 0.4e1 / 0.3e1 * t19 * t1676;
2084 t1680 = t10 * t1679;
2085 t1684 = t1679 * t61;
2086 t1693 = -0.3e1 / 0.32e2 * t8 * t1680 * t23 + t888 - t891 + 0.19751789702565206229e-1 * t1684 * t87 + t897 - 0.17544670192365612213e1 * t1498 - 0.3e1 / 0.32e2 * t1530 + t1076 - 0.24e2 * t1308 + t998 + 0.60e2 * t1310 + 0.36e2 * t1312 + 0.96e2 * t1314;
2087 t1695 = t1684 * t89;
2088 t1700 = 0.3e1 * t1317 + t57 * t1695 - 0.17544670192365612213e1 * t1318 - 0.51947267698127589899e2 * t1320 + 0.35089340384731224426e1 * t1328 + t1078 + t1084 - t1086 + t1092 - t1096 - t1099 - t1102 - t1107 - t1113;
2089 t1707 = -0.12e2 * t1548 - 0.12e2 * t1552 + t1342 / 0.16e2 + 0.3e1 * t1558 + 0.32530742648344572643e-1 * t1379 + t1151 - t1154 + t1162 - t1165 - t1171 + t1175 - t1179 - t1189;
2090 t1711 = -t1197 - 0.54934665110259479823e-3 * t1567 + t1009 - t1015 + t1027 + 0.73246220147012639764e-3 * t1394 - t1208 + t1212 - t1221 - t1052 - t1056 + t1060 + t1064 - 0.24e2 * t1404;
2091 t1713 = t1693 + t1700 + t1707 + t1711;
2092 t1714 = t12 * t1713;
2093 t1720 = t708 * t278;
2094 t1721 = t1246 * t1720;
2095 t1724 = t633 * t675;
2096 t1727 = 0.3e1 * t1667;
2097 t1728 = t103 * t1727;
2098 t1731 = t281 * t281;
2099 t1733 = 0.1e1 / t107 / t1731;
2100 t1734 = lapl[1] * t1733;
2101 t1743 = t723 * t286;
2102 t1744 = t1260 * t1743;
2103 t1747 = t643 * t727;
2104 t1750 = -t1727;
2105 t1751 = t113 * t1750;
2106 t1754 = -0.10e2 / 0.27e2 * t100 * t1721 + 0.10e2 / 0.3e1 * t100 * t1724 + 0.5e1 / 0.3e1 * t100 * t1728 - 0.440e3 / 0.27e2 * t1734 * t114 + 0.200e3 / 0.9e1 * t718 * t287 - 0.50e2 / 0.9e1 * t284 * t724 - 0.25e2 / 0.3e1 * t284 * t728 - 0.10e2 / 0.27e2 * t110 * t1744 + 0.10e2 / 0.3e1 * t110 * t1747 + 0.5e1 / 0.3e1 * t110 * t1751;
2107 t1762 = t736 * t290;
2108 t1767 = t290 * t731;
2109 t1774 = 0.20000000000000000000e-2 * t95 * t38 * t1754 * t123 - 0.23400000000000000000e-3 * t656 * t1633 * t290 + 0.18493142438399490044e-5 * t1762 * t568 - 0.60102712924798342641e-5 * t1287 * t1762 + 0.76050000000000000000e-3 * t570 * t571 * t1767 - 0.65000000000000000000e-2 * t253 * t254 * t1754;
2110 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2111 v3rho3[3] = t1714 * t125 + t232 * t1774 + 0.3e1 * t276 * t747 + 0.3e1 * t704 * t298 + 0.3e1 * t1496 + 0.6e1 * t1577 + 0.3e1 * t1583;
2112
2113 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2114 v3rho2sigma[0] = 0.0e0;
2115
2116 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2117 v3rho2sigma[1] = 0.0e0;
2118
2119 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2120 v3rho2sigma[2] = 0.0e0;
2121
2122 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2123 v3rho2sigma[3] = 0.0e0;
2124
2125 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2126 v3rho2sigma[4] = 0.0e0;
2127
2128 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2129 v3rho2sigma[5] = 0.0e0;
2130
2131 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2132 v3rho2sigma[6] = 0.0e0;
2133
2134 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2135 v3rho2sigma[7] = 0.0e0;
2136
2137 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2138 v3rho2sigma[8] = 0.0e0;
2139
2140 t1776 = t229 * t308;
2141 t1778 = t94 * t778;
2142 t1783 = t568 * t562;
2143 t1786 = t532 * t104;
2144 t1790 = t235 * t103;
2145 t1797 = t123 * t454;
2146 t1804 = t99 * t538;
2147 t1805 = t123 * t539;
2148 t1809 = t560 * t765;
2149 t1810 = t103 * t251;
2150 t1811 = t238 * t245;
2151 t1812 = t1810 * t1811;
2152 t1815 = t104 * t555;
2153 t1822 = t38 * t235;
2154 t1835 = t561 * t235;
2155 t1840 = t103 * t245 * t238;
2156 t1844 = 0.18493142438399490044e-5 * t301 * t1783 + 0.88888888888888888888e-2 * t300 * t1786 * t123 - 0.11111111111111111111e-1 * t300 * t1790 * t756 + 0.26000000000000000000e-3 * t656 * t751 * t760 + 0.33333333333333333333e-2 * t300 * t755 * t1797 - 0.78000000000000000000e-4 * t656 * t301 * t1278 + 0.22222222222222222222e-2 * t300 * t1804 * t1805 - 0.26000000000000000000e-3 * t1809 * t1812 + 0.25350000000000000000e-3 * t764 * t765 * t1815 - 0.28888888888888888888e-1 * t253 * t254 * t1786 + 0.36111111111111111110e-1 * t773 * t1822 * t239 - 0.10833333333333333333e-1 * t773 * t774 * t543 - 0.60102712924798342641e-5 * t1287 * t301 * t562 - 0.72222222222222222220e-2 * t773 * t774 * t540 - 0.84499999999999999999e-3 * t764 * t1835 * t766 + 0.84499999999999999999e-3 * t764 * t765 * t1840;
2157 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2158 v3rho2lapl[0] = t232 * t1844 + 0.2e1 * t230 * t778 + t526 * t308 + 0.2e1 * t1776 + 0.2e1 * t1778;
2159
2160 t1846 = t229 * t316;
2161 t1848 = t94 * t799;
2162 t1853 = t109 * t546;
2163 t1854 = t123 * t547;
2164 t1858 = t113 * t251;
2165 t1859 = t241 * t245;
2166 t1860 = t1858 * t1859;
2167 t1863 = t123 * t551;
2168 t1875 = t113 * t245;
2169 t1876 = t1875 * t241;
2170 t1880 = t114 * t555;
2171 t1890 = 0.22222222222222222222e-2 * t300 * t1853 * t1854 - 0.26000000000000000000e-3 * t855 * t1860 + 0.33333333333333333333e-2 * t300 * t782 * t1863 + 0.18493142438399490044e-5 * t309 * t1783 - 0.78000000000000000000e-4 * t656 * t309 * t1278 - 0.60102712924798342641e-5 * t1287 * t309 * t562 + 0.84499999999999999999e-3 * t764 * t790 * t1876 + 0.25350000000000000000e-3 * t764 * t790 * t1880 - 0.72222222222222222220e-2 * t773 * t795 * t548 - 0.10833333333333333333e-1 * t773 * t795 * t552;
2172 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2173 v3rho2lapl[1] = t232 * t1890 + 0.2e1 * t230 * t799 + t526 * t316 + 0.2e1 * t1846 + 0.2e1 * t1848;
2174
2175 t1892 = t275 * t308;
2176 t1895 = t94 * t816;
2177 t1900 = t95 * t774;
2178 t1901 = t538 * t123;
2179 t1902 = t278 * t238;
2180 t1903 = t1901 * t1902;
2181 t1906 = t278 * t245;
2182 t1907 = t1810 * t1906;
2183 t1910 = t103 * t123;
2184 t1911 = t1910 * t453;
2185 t1917 = t290 * t238;
2186 t1918 = t1810 * t1917;
2187 t1921 = t1474 * t245;
2188 t1927 = t1287 * t99;
2189 t1928 = t809 * t245;
2190 t1934 = t103 * t290;
2191 t1935 = t1934 * t238;
2192 t1939 = t104 * t651;
2193 t1943 = t279 * t245;
2194 t1956 = -0.55555555555555555555e-2 * t300 * t1790 * t802 + 0.22222222222222222222e-2 * t1900 * t1903 - 0.13000000000000000000e-3 * t1809 * t1907 + 0.33333333333333333333e-2 * t1900 * t1911 + 0.13000000000000000000e-3 * t656 * t751 * t657 - 0.13000000000000000000e-3 * t1809 * t1918 + 0.18493142438399490044e-5 * t301 * t1921 - 0.78000000000000000000e-4 * t656 * t301 * t1470 - 0.60102712924798342641e-5 * t1927 * t1928 - 0.42250000000000000000e-3 * t764 * t1835 * t809 + 0.42250000000000000000e-3 * t764 * t765 * t1935 + 0.25350000000000000000e-3 * t764 * t765 * t1939 + 0.42249999999999999999e-3 * t764 * t765 * t1943 + 0.18055555555555555555e-1 * t773 * t1822 * t279 - 0.72222222222222222220e-2 * t773 * t774 * t634 - 0.10833333333333333333e-1 * t773 * t774 * t638;
2195 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2196 v3rho2lapl[2] = t232 * t1956 + t230 * t816 + t276 * t778 + t626 * t308 + t1776 + t1778 + t1892 + t1895;
2197
2198 t1958 = t275 * t316;
2199 t1961 = t94 * t840;
2200 t1963 = t283 * t113;
2201 t1970 = t95 * t795;
2202 t1971 = t546 * t123;
2203 t1972 = t286 * t241;
2204 t1973 = t1971 * t1972;
2205 t1976 = t286 * t245;
2206 t1980 = t113 * t123;
2207 t1981 = t1980 * t453;
2208 t1984 = t290 * t241;
2209 t1985 = t1858 * t1984;
2210 t1993 = t1287 * t109;
2211 t1994 = t830 * t245;
2212 t1997 = t113 * t290;
2213 t1998 = t1997 * t241;
2214 t2002 = t114 * t651;
2215 t2006 = t561 * t283;
2216 t2010 = t38 * t283;
2217 t2014 = t287 * t245;
2218 t2024 = -0.55555555555555555555e-2 * t300 * t1963 * t783 + 0.13000000000000000000e-3 * t656 * t819 * t760 + 0.22222222222222222222e-2 * t1970 * t1973 - 0.13000000000000000000e-3 * t855 * t1858 * t1976 - 0.33333333333333333333e-2 * t1970 * t1981 - 0.13000000000000000000e-3 * t855 * t1985 + 0.18493142438399490044e-5 * t309 * t1921 - 0.78000000000000000000e-4 * t656 * t309 * t1470 - 0.60102712924798342641e-5 * t1993 * t1994 + 0.42250000000000000000e-3 * t764 * t790 * t1998 + 0.25350000000000000000e-3 * t764 * t790 * t2002 - 0.42249999999999999999e-3 * t764 * t2006 * t791 + 0.18055555555555555555e-1 * t773 * t2010 * t242 + 0.42249999999999999999e-3 * t764 * t790 * t2014 - 0.72222222222222222220e-2 * t773 * t795 * t644 + 0.10833333333333333333e-1 * t773 * t795 * t648;
2219 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2220 v3rho2lapl[3] = t232 * t2024 + t230 * t840 + t276 * t799 + t626 * t316 + t1846 + t1848 + t1958 + t1961;
2221
2222 t2031 = t123 * t708;
2223 t2035 = t278 * t290;
2224 t2036 = t1810 * t2035;
2225 t2039 = t123 * t675;
2226 t2051 = t1934 * t278;
2227 t2055 = t104 * t731;
2228 t2065 = 0.22222222222222222222e-2 * t300 * t1804 * t2031 - 0.26000000000000000000e-3 * t1809 * t2036 + 0.33333333333333333333e-2 * t300 * t755 * t2039 + 0.18493142438399490044e-5 * t301 * t1640 - 0.78000000000000000000e-4 * t656 * t301 * t1633 - 0.60102712924798342641e-5 * t1287 * t301 * t736 + 0.84499999999999999999e-3 * t764 * t765 * t2051 + 0.25350000000000000000e-3 * t764 * t765 * t2055 - 0.72222222222222222220e-2 * t773 * t774 * t709 - 0.10833333333333333333e-1 * t773 * t774 * t712;
2229 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2230 v3rho2lapl[4] = t232 * t2065 + 0.2e1 * t276 * t816 + t704 * t308 + 0.2e1 * t1892 + 0.2e1 * t1895;
2231
2232 t2072 = t123 * t723;
2233 t2076 = t286 * t290;
2234 t2077 = t1858 * t2076;
2235 t2080 = t114 * t731;
2236 t2084 = t717 * t114;
2237 t2106 = t123 * t727;
2238 t2121 = t1997 * t286;
2239 t2125 = 0.22222222222222222222e-2 * t300 * t1853 * t2072 - 0.26000000000000000000e-3 * t855 * t2077 + 0.25350000000000000000e-3 * t764 * t790 * t2080 - 0.28888888888888888888e-1 * t253 * t254 * t2084 + 0.36111111111111111110e-1 * t773 * t2010 * t287 - 0.10833333333333333333e-1 * t773 * t795 * t728 - 0.60102712924798342641e-5 * t1287 * t309 * t736 + 0.88888888888888888888e-2 * t300 * t2084 * t123 - 0.11111111111111111111e-1 * t300 * t1963 * t823 + 0.26000000000000000000e-3 * t656 * t819 * t657 + 0.33333333333333333333e-2 * t300 * t782 * t2106 - 0.78000000000000000000e-4 * t656 * t309 * t1633 + 0.18493142438399490044e-5 * t309 * t1640 - 0.72222222222222222220e-2 * t773 * t795 * t724 - 0.84499999999999999999e-3 * t764 * t2006 * t830 + 0.84499999999999999999e-3 * t764 * t790 * t2121;
2240 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2241 v3rho2lapl[5] = t232 * t2125 + 0.2e1 * t276 * t840 + t704 * t316 + 0.2e1 * t1958 + 0.2e1 * t1961;
2242
2243 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2244 v3rho2tau[0] = 0.0e0;
2245
2246 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2247 v3rho2tau[1] = 0.0e0;
2248
2249 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2250 v3rho2tau[2] = 0.0e0;
2251
2252 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2253 v3rho2tau[3] = 0.0e0;
2254
2255 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2256 v3rho2tau[4] = 0.0e0;
2257
2258 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2259 v3rho2tau[5] = 0.0e0;
2260
2261 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2262 v3rhosigma2[0] = 0.0e0;
2263
2264 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2265 v3rhosigma2[1] = 0.0e0;
2266
2267 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2268 v3rhosigma2[2] = 0.0e0;
2269
2270 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2271 v3rhosigma2[3] = 0.0e0;
2272
2273 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2274 v3rhosigma2[4] = 0.0e0;
2275
2276 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2277 v3rhosigma2[5] = 0.0e0;
2278
2279 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2280 v3rhosigma2[6] = 0.0e0;
2281
2282 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2283 v3rhosigma2[7] = 0.0e0;
2284
2285 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2286 v3rhosigma2[8] = 0.0e0;
2287
2288 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2289 v3rhosigma2[9] = 0.0e0;
2290
2291 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2292 v3rhosigma2[10] = 0.0e0;
2293
2294 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2295 v3rhosigma2[11] = 0.0e0;
2296
2297 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2298 v3rhosigmalapl[0] = 0.0e0;
2299
2300 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2301 v3rhosigmalapl[1] = 0.0e0;
2302
2303 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2304 v3rhosigmalapl[2] = 0.0e0;
2305
2306 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2307 v3rhosigmalapl[3] = 0.0e0;
2308
2309 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2310 v3rhosigmalapl[4] = 0.0e0;
2311
2312 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2313 v3rhosigmalapl[5] = 0.0e0;
2314
2315 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2316 v3rhosigmalapl[6] = 0.0e0;
2317
2318 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2319 v3rhosigmalapl[7] = 0.0e0;
2320
2321 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2322 v3rhosigmalapl[8] = 0.0e0;
2323
2324 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2325 v3rhosigmalapl[9] = 0.0e0;
2326
2327 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2328 v3rhosigmalapl[10] = 0.0e0;
2329
2330 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2331 v3rhosigmalapl[11] = 0.0e0;
2332
2333 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2334 v3rhosigmatau[0] = 0.0e0;
2335
2336 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2337 v3rhosigmatau[1] = 0.0e0;
2338
2339 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2340 v3rhosigmatau[2] = 0.0e0;
2341
2342 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2343 v3rhosigmatau[3] = 0.0e0;
2344
2345 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2346 v3rhosigmatau[4] = 0.0e0;
2347
2348 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2349 v3rhosigmatau[5] = 0.0e0;
2350
2351 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2352 v3rhosigmatau[6] = 0.0e0;
2353
2354 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2355 v3rhosigmatau[7] = 0.0e0;
2356
2357 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2358 v3rhosigmatau[8] = 0.0e0;
2359
2360 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2361 v3rhosigmatau[9] = 0.0e0;
2362
2363 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2364 v3rhosigmatau[10] = 0.0e0;
2365
2366 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2367 v3rhosigmatau[11] = 0.0e0;
2368
2369 t2127 = t94 * t854;
2370 t2130 = 0.1e1 / t96 / t1233;
2371 t2131 = t2130 * t846;
2372 t2135 = t102 * t844;
2373 t2136 = t843 * t2135;
2374 t2137 = t251 * t238;
2375 t2141 = t568 * t245;
2376 t2150 = t561 * t843;
2377 t2151 = t2135 * t238;
2378 t2155 = 0.26000000000000000000e-3 * t656 * t2131 * t251 - 0.26000000000000000000e-3 * t656 * t2136 * t2137 + 0.18493142438399490044e-5 * t847 * t2141 - 0.60102712924798342641e-5 * t1287 * t847 * t245 - 0.84500000000000000000e-3 * t570 * t571 * t2131 + 0.84500000000000000000e-3 * t764 * t2150 * t2151;
2379 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2380 v3rholapl2[0] = t232 * t2155 + t230 * t854 + t2127;
2381
2382 t2157 = t94 * t865;
2383 t2159 = t301 * t241;
2384 t2160 = t1858 * t2159;
2385 t2163 = t309 * t568;
2386 t2164 = t301 * t245;
2387 t2167 = t856 * t751;
2388 t2170 = t755 * t238;
2389 t2171 = t856 * t2170;
2390 t2174 = t860 * t766;
2391 t2177 = t569 * t656;
2392 t2181 = t114 * t235;
2393 t2182 = t2181 * t104;
2394 t2189 = -0.13000000000000000000e-3 * t855 * t2160 + 0.18493142438399490044e-5 * t2163 * t2164 + 0.13000000000000000000e-3 * t855 * t2167 - 0.13000000000000000000e-3 * t855 * t2171 - 0.60102712924798342641e-5 * t1993 * t2174 + 0.42250000000000000000e-3 * t2177 * t782 * t2159 - 0.42250000000000000000e-3 * t764 * t790 * t2182 + 0.42250000000000000000e-3 * t2177 * t309 * t2170;
2395 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2396 v3rholapl2[1] = t232 * t2189 + t230 * t865 + t2157;
2397
2398 t2191 = t94 * t878;
2399 t2193 = t112 * t868;
2400 t2194 = t867 * t2193;
2401 t2195 = t251 * t241;
2402 t2204 = t561 * t867;
2403 t2205 = t2193 * t241;
2404 t2209 = -0.26000000000000000000e-3 * t656 * t2194 * t2195 + 0.18493142438399490044e-5 * t871 * t2141 - 0.60102712924798342641e-5 * t1287 * t871 * t245 + 0.84500000000000000000e-3 * t764 * t2204 * t2205;
2405 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2406 v3rholapl2[2] = t232 * t2209 + t230 * t878 + t2191;
2407
2408 t2212 = t251 * t278;
2409 t2221 = t2135 * t278;
2410 t2225 = -0.26000000000000000000e-3 * t656 * t2136 * t2212 + 0.18493142438399490044e-5 * t847 * t1474 - 0.60102712924798342641e-5 * t1287 * t847 * t290 + 0.84500000000000000000e-3 * t764 * t2150 * t2221;
2411 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2412 v3rholapl2[3] = t232 * t2225 + t276 * t854 + t2127;
2413
2414 t2228 = t560 * t2006;
2415 t2231 = t301 * t286;
2416 t2232 = t1858 * t2231;
2417 t2235 = t301 * t290;
2418 t2238 = t755 * t278;
2419 t2239 = t856 * t2238;
2420 t2242 = t860 * t809;
2421 t2254 = 0.13000000000000000000e-3 * t2228 * t857 - 0.13000000000000000000e-3 * t855 * t2232 + 0.18493142438399490044e-5 * t2163 * t2235 - 0.13000000000000000000e-3 * t855 * t2239 - 0.60102712924798342641e-5 * t1993 * t2242 - 0.42250000000000000000e-3 * t764 * t2006 * t861 + 0.42250000000000000000e-3 * t2177 * t782 * t2231 + 0.42250000000000000000e-3 * t2177 * t309 * t2238;
2422 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2423 v3rholapl2[4] = t232 * t2254 + t276 * t865 + t2157;
2424
2425 t2258 = 0.1e1 / t106 / t1731;
2426 t2259 = t2258 * t870;
2427 t2263 = t251 * t286;
2428 t2275 = t2193 * t286;
2429 t2279 = 0.26000000000000000000e-3 * t656 * t2259 * t251 - 0.26000000000000000000e-3 * t656 * t2194 * t2263 + 0.18493142438399490044e-5 * t871 * t1474 - 0.60102712924798342641e-5 * t1287 * t871 * t290 - 0.84500000000000000000e-3 * t570 * t571 * t2259 + 0.84500000000000000000e-3 * t764 * t2204 * t2275;
2430 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2431 v3rholapl2[5] = t232 * t2279 + t276 * t878 + t2191;
2432
2433 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2434 v3rholapltau[0] = 0.0e0;
2435
2436 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2437 v3rholapltau[1] = 0.0e0;
2438
2439 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2440 v3rholapltau[2] = 0.0e0;
2441
2442 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2443 v3rholapltau[3] = 0.0e0;
2444
2445 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2446 v3rholapltau[4] = 0.0e0;
2447
2448 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2449 v3rholapltau[5] = 0.0e0;
2450
2451 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2452 v3rholapltau[6] = 0.0e0;
2453
2454 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2455 v3rholapltau[7] = 0.0e0;
2456
2457 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2458 v3rhotau2[0] = 0.0e0;
2459
2460 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2461 v3rhotau2[1] = 0.0e0;
2462
2463 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2464 v3rhotau2[2] = 0.0e0;
2465
2466 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2467 v3rhotau2[3] = 0.0e0;
2468
2469 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2470 v3rhotau2[4] = 0.0e0;
2471
2472 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2473 v3rhotau2[5] = 0.0e0;
2474
2475 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2476 v3sigma3[0] = 0.0e0;
2477
2478 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2479 v3sigma3[1] = 0.0e0;
2480
2481 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2482 v3sigma3[2] = 0.0e0;
2483
2484 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2485 v3sigma3[3] = 0.0e0;
2486
2487 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2488 v3sigma3[4] = 0.0e0;
2489
2490 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2491 v3sigma3[5] = 0.0e0;
2492
2493 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2494 v3sigma3[6] = 0.0e0;
2495
2496 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2497 v3sigma3[7] = 0.0e0;
2498
2499 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2500 v3sigma3[8] = 0.0e0;
2501
2502 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2503 v3sigma3[9] = 0.0e0;
2504
2505 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2506 v3sigma2lapl[0] = 0.0e0;
2507
2508 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2509 v3sigma2lapl[1] = 0.0e0;
2510
2511 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2512 v3sigma2lapl[2] = 0.0e0;
2513
2514 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2515 v3sigma2lapl[3] = 0.0e0;
2516
2517 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2518 v3sigma2lapl[4] = 0.0e0;
2519
2520 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2521 v3sigma2lapl[5] = 0.0e0;
2522
2523 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2524 v3sigma2lapl[6] = 0.0e0;
2525
2526 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2527 v3sigma2lapl[7] = 0.0e0;
2528
2529 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2530 v3sigma2lapl[8] = 0.0e0;
2531
2532 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2533 v3sigma2lapl[9] = 0.0e0;
2534
2535 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2536 v3sigma2lapl[10] = 0.0e0;
2537
2538 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2539 v3sigma2lapl[11] = 0.0e0;
2540
2541 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2542 v3sigma2tau[0] = 0.0e0;
2543
2544 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2545 v3sigma2tau[1] = 0.0e0;
2546
2547 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2548 v3sigma2tau[2] = 0.0e0;
2549
2550 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2551 v3sigma2tau[3] = 0.0e0;
2552
2553 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2554 v3sigma2tau[4] = 0.0e0;
2555
2556 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2557 v3sigma2tau[5] = 0.0e0;
2558
2559 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2560 v3sigma2tau[6] = 0.0e0;
2561
2562 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2563 v3sigma2tau[7] = 0.0e0;
2564
2565 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2566 v3sigma2tau[8] = 0.0e0;
2567
2568 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2569 v3sigma2tau[9] = 0.0e0;
2570
2571 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2572 v3sigma2tau[10] = 0.0e0;
2573
2574 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2575 v3sigma2tau[11] = 0.0e0;
2576
2577 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2578 v3sigmalapl2[0] = 0.0e0;
2579
2580 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2581 v3sigmalapl2[1] = 0.0e0;
2582
2583 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2584 v3sigmalapl2[2] = 0.0e0;
2585
2586 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2587 v3sigmalapl2[3] = 0.0e0;
2588
2589 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2590 v3sigmalapl2[4] = 0.0e0;
2591
2592 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2593 v3sigmalapl2[5] = 0.0e0;
2594
2595 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2596 v3sigmalapl2[6] = 0.0e0;
2597
2598 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2599 v3sigmalapl2[7] = 0.0e0;
2600
2601 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2602 v3sigmalapl2[8] = 0.0e0;
2603
2604 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2605 v3sigmalapltau[0] = 0.0e0;
2606
2607 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2608 v3sigmalapltau[1] = 0.0e0;
2609
2610 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2611 v3sigmalapltau[2] = 0.0e0;
2612
2613 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2614 v3sigmalapltau[3] = 0.0e0;
2615
2616 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2617 v3sigmalapltau[4] = 0.0e0;
2618
2619 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2620 v3sigmalapltau[5] = 0.0e0;
2621
2622 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2623 v3sigmalapltau[6] = 0.0e0;
2624
2625 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2626 v3sigmalapltau[7] = 0.0e0;
2627
2628 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2629 v3sigmalapltau[8] = 0.0e0;
2630
2631 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2632 v3sigmalapltau[9] = 0.0e0;
2633
2634 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2635 v3sigmalapltau[10] = 0.0e0;
2636
2637 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2638 v3sigmalapltau[11] = 0.0e0;
2639
2640 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2641 v3sigmatau2[0] = 0.0e0;
2642
2643 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2644 v3sigmatau2[1] = 0.0e0;
2645
2646 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2647 v3sigmatau2[2] = 0.0e0;
2648
2649 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2650 v3sigmatau2[3] = 0.0e0;
2651
2652 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2653 v3sigmatau2[4] = 0.0e0;
2654
2655 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2656 v3sigmatau2[5] = 0.0e0;
2657
2658 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2659 v3sigmatau2[6] = 0.0e0;
2660
2661 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2662 v3sigmatau2[7] = 0.0e0;
2663
2664 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2665 v3sigmatau2[8] = 0.0e0;
2666
2667 t2281 = t1233 * rho[0];
2668 t2282 = 0.1e1 / t2281;
2669 t2283 = t844 * t844;
2670 t2284 = t2283 * t101;
2671 t2285 = t2282 * t2284;
2672 t2290 = 0.18493142438399490044e-5 * t2285 * t568 - 0.60102712924798342641e-5 * t1287 * t2285;
2673 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2674 v3lapl3[0] = t232 * t2290;
2675
2676 t2292 = t568 * t843 * t846;
2677 t2295 = t114 * t843;
2678 t2296 = t2295 * t846;
2679 t2299 = 0.18493142438399490044e-5 * t309 * t2292 - 0.60102712924798342641e-5 * t1993 * t2296;
2680 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2681 v3lapl3[1] = t232 * t2299;
2682
2683 t2301 = t568 * t99 * t104;
2684 t2304 = t1287 * t867;
2685 t2305 = t870 * t99;
2686 t2306 = t2305 * t104;
2687 t2309 = 0.18493142438399490044e-5 * t871 * t2301 - 0.60102712924798342641e-5 * t2304 * t2306;
2688 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2689 v3lapl3[2] = t232 * t2309;
2690
2691 t2310 = t1731 * rho[1];
2692 t2311 = 0.1e1 / t2310;
2693 t2312 = t868 * t868;
2694 t2313 = t2312 * t111;
2695 t2314 = t2311 * t2313;
2696 t2319 = 0.18493142438399490044e-5 * t2314 * t568 - 0.60102712924798342641e-5 * t1287 * t2314;
2697 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2698 v3lapl3[3] = t232 * t2319;
2699
2700 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2701 v3lapl2tau[0] = 0.0e0;
2702
2703 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2704 v3lapl2tau[1] = 0.0e0;
2705
2706 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2707 v3lapl2tau[2] = 0.0e0;
2708
2709 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2710 v3lapl2tau[3] = 0.0e0;
2711
2712 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2713 v3lapl2tau[4] = 0.0e0;
2714
2715 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2716 v3lapl2tau[5] = 0.0e0;
2717
2718 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2719 v3lapltau2[0] = 0.0e0;
2720
2721 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2722 v3lapltau2[1] = 0.0e0;
2723
2724 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2725 v3lapltau2[2] = 0.0e0;
2726
2727 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2728 v3lapltau2[3] = 0.0e0;
2729
2730 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2731 v3lapltau2[4] = 0.0e0;
2732
2733 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2734 v3lapltau2[5] = 0.0e0;
2735
2736 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2737 v3tau3[0] = 0.0e0;
2738
2739 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2740 v3tau3[1] = 0.0e0;
2741
2742 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2743 v3tau3[2] = 0.0e0;
2744
2745 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2746 v3tau3[3] = 0.0e0;
2747
2748 #ifndef XC_DONT_COMPILE_LXC
2749
2750 if(order < 4) return;
2751
2752
2753 t2320 = t1226 * t125;
2754 t2322 = t525 * t258;
2755 t2324 = t229 * t578;
2756 t2326 = t94 * t1297;
2757 t2328 = t1094 * t215;
2758 t2329 = 0.96e2 * t2328;
2759 t2330 = t1097 * t215;
2760 t2331 = 0.576e3 * t2330;
2761 t2332 = t1094 * t182;
2762 t2334 = t173 * t1075;
2763 t2335 = 0.16e2 * t2334;
2764 t2336 = t385 * t385;
2765 t2339 = 0.24000000000000000000e2 * t1012 * t2336 * t168;
2766 t2340 = t477 * t440;
2767 t2341 = 0.72e2 * t2340;
2768 t2342 = t1097 * t182;
2769 t2344 = t55 * t55;
2770 t2348 = 0.840e3 * t53 / t2344 * t90;
2771 t2350 = t172 * t1104 * t90;
2772 t2351 = 0.1920e4 * t2350;
2773 t2353 = t52 * t473 * t90;
2774 t2354 = 0.1440e4 * t2353;
2775 t2355 = t11 * t177;
2776 t2356 = t2355 * t90;
2777 t2357 = 0.384e3 * t2356;
2778 t2359 = 0.480e3 * t1105 * t215;
2779 t2360 = t1100 * t182;
2780 t2362 = t2329 - t2331 + 0.96e2 * t2332 + t2335 - t2339 + t2341 - 0.576e3 * t2342 + t2348 - t2351 + t2354 - t2357 - t2359 + 0.960e3 * t2360;
2781 t2363 = t1100 * t215;
2782 t2364 = 0.960e3 * t2363;
2783 t2365 = t395 * t395;
2784 t2368 = 0.48245472966453314466e2 * t401 * t2365 * t403;
2785 t2371 = 0.60000000000000000000e1 * t384 * t2365 * t168;
2786 t2372 = t474 * t321;
2787 t2374 = t480 * t468;
2788 t2376 = t474 * t468;
2789 t2378 = t15 * t15;
2790 t2380 = 0.1e1 / t446 / t2378;
2791 t2381 = t448 * t448;
2792 t2387 = t455 * t455;
2793 t2392 = -t56 + t2355;
2794 t2393 = 0.24e2 * t2392;
2795 t2396 = t18 * t18;
2796 t2398 = 0.1e1 / t458 / t2396;
2797 t2399 = t460 * t460;
2798 t2405 = t463 * t463;
2799 t2413 = 0.40e2 / 0.81e2 * t2380 * t2381 - 0.16e2 / 0.9e1 * t1123 * t448 * t455 + 0.4e1 / 0.3e1 * t447 * t2387 + 0.16e2 / 0.9e1 * t1127 * t1131 + 0.4e1 / 0.3e1 * t16 * t2393 + 0.40e2 / 0.81e2 * t2398 * t2399 - 0.16e2 / 0.9e1 * t1135 * t460 * t463 + 0.4e1 / 0.3e1 * t459 * t2405 + 0.16e2 / 0.9e1 * t1139 * t1142 - 0.4e1 / 0.3e1 * t19 * t2393;
2800 t2414 = t2413 * t61;
2801 t2417 = t480 * t321;
2802 t2421 = 0.14246666666666666667e0 * t8 * t1057 * t396;
2803 t2423 = t972 * t427;
2804 t2426 = 0.61523382126046769581e4 * t224 * t969 * t417 * t2423;
2805 t2431 = 0.69263023597503453196e2 * t224 * t432 * t949 * t435 * t209;
2806 t2432 = t503 * t1210;
2807 t2434 = t503 * t1206;
2808 t2436 = t2364 + t2368 - t2371 + 0.240e3 * t2372 - 0.192e3 * t2374 + 0.120e3 * t2376 + t57 * t2414 * t89 - 0.384e3 * t2417 + t2421 - t2426 - t2431 + 0.14035736153892489771e2 * t2432 - 0.20778907079251035960e3 * t2434;
2809 t2441 = 0.46785787179641632568e1 * t224 * t415 * t949 * t211;
2810 t2445 = 0.36845452142031360636e2 * t8 * t142 * t1003 * t1007;
2811 t2448 = 0.71233333333333333333e-1 * t8 * t378 * t1025;
2812 t2452 = 0.68733717152873822009e1 * t8 * t142 * t1011 * t1013;
2813 t2456 = 0.22161481481481481481e0 * t8 * t893 * t148 * t169;
2814 t2459 = 0.42740000000000000000e0 * t8 * t1053 * t996;
2815 t2463 = 0.22911239050957940670e1 * t8 * t325 * t400 * t404;
2816 t2467 = 0.28493333333333333334e0 * t8 * t325 * t383 * t386;
2817 t2470 = 0.21053604230838734656e2 * t224 * t510 * t428;
2818 t2474 = 0.62336721237753107879e3 * t224 * t977 * t417 * t915;
2819 t2476 = t1146 * t2 * t221;
2820 t2478 = t1213 * t496;
2821 t2480 = t492 * t1219;
2822 t2482 = t2441 - t2445 - t2448 + t2452 - t2456 - t2459 + t2463 - t2467 - t2470 + t2474 - 0.73246220147012639764e-3 * t2476 + 0.14649244029402527953e-2 * t2478 - 0.22787712934626154593e-2 * t2480;
2823 t2484 = 0.1e1 / t23 / t55;
2824 t2488 = 0.18989760778855128827e-2 * t219 * t152 * t2484 * t86;
2825 t2490 = 0.120e3 * t474 * t440;
2826 t2493 = 0.80000000000000000000e1 * t384 * t1025 * t167;
2827 t2494 = t178 * t1119;
2828 t2497 = t57 * t1146 * t214;
2829 t2501 = 0.36000000000000000000e2 * t401 * t386 * t395;
2830 t2504 = 0.57894567559743977359e3 * t1012 * t885 * t385;
2831 t2505 = t7 * t2484;
2832 t2508 = 0.11483710345679012345e-1 * t5 * t2505 * t49;
2833 t2509 = t477 * t321;
2834 t2511 = t477 * t468;
2835 t2516 = 0.31035008823423701050e4 * t1004 * t395 * t1006 * t385;
2836 t2520 = 0.64327297288604419288e2 * t401 * t1024 * t403 * t167;
2837 t2522 = t57 * t467 * t439;
2838 t2524 = t2488 + t2490 - t2493 - 0.48e2 * t2494 + 0.4e1 * t2497 + t2501 - t2504 - t2508 + 0.144e3 * t2509 + 0.72e2 * t2511 + t2516 + t2520 + 0.6e1 * t2522;
2839 t2527 = t62 * t8;
2840 t2530 = 0.13012297059337829057e0 * t2527 * t1069 * t919;
2841 t2533 = 0.19263778438055647920e1 * t2527 * t1035 * t916;
2842 t2534 = t503 * t1173;
2843 t2536 = t431 * t431;
2844 t2537 = 0.1e1 / t2536;
2845 t2538 = t417 * t417;
2846 t2540 = t434 * t434;
2847 t2541 = 0.1e1 / t2540;
2848 t2544 = 0.91080982599109921211e5 * t224 * t2537 * t2538 * t2541;
2849 t2545 = t1105 * t182;
2850 t2550 = 0.62336721237753107880e3 * t224 * t969 * t2538 * t435;
2851 t2551 = t427 * t427;
2852 t2555 = 0.51947267698127589897e2 * t224 * t432 * t2551 * t435;
2853 t2557 = t8 * t134 * t345;
2854 t2561 = 0.5e1 / 0.54e2 * t8 * t22 * t929;
2855 t2565 = 0.35089340384731224426e1 * t224 * t415 * t2551 * t210;
2856 t2569 = 0.14035736153892489770e2 * t224 * t977 * t2538 * t210;
2857 t2570 = t173 * t1116;
2858 t2574 = -t2530 + t2533 + 0.41557814158502071920e3 * t2534 - t2544 - 0.480e3 * t2545 - t2550 - t2555 - 0.5e1 / 0.36e2 * t2557 + t2561 + t2565 + t2569 + 0.48e2 * t2570 + 0.19751789702565206229e-1 * t2414 * t87;
2859 t2576 = t8 * t1201 * t41;
2860 t2578 = t503 * t1177;
2861 t2580 = t1180 * t515;
2862 t2583 = t8 * t499 * t163;
2863 t2586 = 0.1e1 / t431 / t414;
2864 t2590 = 0.12304676425209353917e5 * t224 * t2586 * t2538 * t972;
2865 t2591 = t1180 * t507;
2866 t2593 = t503 * t1195;
2867 t2601 = 0.1e1 / t23 / t176;
2868 t2603 = 0.1e1 / t32 / t13 * t2601 * t8 / 0.48e2;
2869 t2605 = t925 * t177;
2870 t2608 = 0.1e1 / t40 / t55;
2871 t2609 = t254 * t2608;
2872 t2610 = t343 * t2609;
2873 t2612 = t152 * t2484;
2874 t2613 = t151 * t2612;
2875 t2615 = t5 * t2505;
2876 t2617 = pow(t29, -0.25e1);
2877 t2620 = t2617 * t3 * t2601 * t8;
2878 t2622 = t939 * t177;
2879 t2624 = t355 * t2609;
2880 t2626 = t159 * t2612;
2881 t2629 = t39 * t6 * t2608;
2882 t2631 = -0.28769444444444444444e1 * t2603 + 0.27618666666666666667e2 * t2605 - 0.10229135802469135803e2 * t2610 + 0.89504938271604938273e1 * t2613 + 0.31310740740740740741e1 * t2615 + 0.36677500000000000000e-1 * t2620 - 0.58684000000000000000e0 * t2622 + 0.65204444444444444445e0 * t2624 + 0.57053888888888888890e0 * t2626 + 0.13490888888888888889e1 * t2629;
2883 t2635 = 0.58482233974552040708e0 * t224 * t203 * t2631 * t210;
2884 t2640 = t1180 * t511;
2885 t2642 = t503 * t1187;
2886 t2645 = t1146 * t77 * t226;
2887 t2647 = t480 * t440;
2888 t2648 = 0.192e3 * t2647;
2889 t2649 = -t2576 / 0.8e1 - 0.14035736153892489771e2 * t2578 + 0.70178680769462448852e1 * t2580 + t2583 / 0.8e1 + t2590 - 0.35089340384731224426e1 * t2591 - 0.23392893589820816284e1 * t2593 - t2635 - 0.3e1 / 0.32e2 * t8 * t10 * t2413 * t23 - 0.10389453539625517980e3 * t2640 - 0.41015588084031179722e4 * t2642 - 0.23392893589820816284e1 * t2645 - t2648;
2890 t2651 = t173 * t1119;
2891 t2653 = t178 * t1116;
2892 t2655 = t173 * t1147;
2893 t2657 = t178 * t1147;
2894 t2660 = t57 * t181 * t1074;
2895 t2668 = t337 * t337;
2896 t2713 = t2339 + 0.51947267698127589897e2 * t433 * t2551 * t435 - 0.24829604254387158296e5 * t64 / t367 / t334 * t2668 * t958 + 0.62336721237753107880e3 * t970 * t2538 * t435 - 0.14035736153892489770e2 * t978 * t2538 * t210 - 0.35089340384731224426e1 * t416 * t2551 * t210 - 0.24000000000000000000e2 * t964 * t2668 * t195 - t2368 + t2371 - 0.67471169937307261776e-1 * t8 * t893 * t203 * t211 - 0.86748647062252193713e-1 * t8 * t325 * t415 * t418 + 0.38527556876111295841e1 * t8 * t142 * t977 * t979 + 0.13698666666666666666e0 * t8 * t1043 * t364 - 0.68493333333333333332e-1 * t8 * t330 * t991 - 0.14172186339420759129e3 * t8 * t142 * t954 * t959 + 0.13218398198777742039e2 * t8 * t142 * t963 * t965 - 0.41096000000000000000e0 * t8 * t1039 * t999;
2897 t2743 = -0.21309037037037037036e0 * t8 * t893 * t188 * t196 - 0.38024868119570572865e2 * t8 * t142 * t969 * t973 + 0.43374323531126096856e-1 * t8 * t1028 * t428 + 0.12842518958703765280e1 * t8 * t325 * t432 * t436 - 0.21687161765563048428e-1 * t8 * t410 * t950 - 0.13012297059337829057e0 * t8 * t1035 * t899 + 0.44061327329259140130e1 * t8 * t325 * t368 * t372 - 0.27397333333333333333e0 * t8 * t325 * t335 * t338 - t2421 + t2445 + t2448 - t2452 + t2456 + t2459 - t2463 + t2467 + t2493;
2898 t2745 = t363 * t363;
2899 t2759 = t367 * t367;
2900 t2762 = t370 * t370;
2901 t2800 = -t2501 + t2504 + t2508 + 0.96494049533612093922e2 * t369 * t2745 * t371 - t2516 - t2520 + 0.91080982599109921211e5 * t77 * t2537 * t2538 * t2541 + 0.58482233974552040708e0 * t204 * t2631 * t210 + 0.11579285944033451271e4 * t955 * t2668 * t371 + 0.19965908856856833625e6 * t64 / t2759 * t2668 / t2762 + 0.10000000000000000000e1 * t189 * (-0.39219166666666666667e1 * t2603 + 0.37650400000000000000e2 * t2605 - 0.13944592592592592593e2 * t2610 + 0.12201518518518518519e2 * t2613 + 0.53560370370370370370e1 * t2615 + 0.14025833333333333333e0 * t2620 - 0.22441333333333333332e1 * t2622 + 0.24934814814814814815e1 * t2624 + 0.21817962962962962963e1 * t2626 + 0.16979925925925925926e1 * t2629) * t195 + 0.21053604230838734656e2 * t433 * t418 * t427 + 0.69263023597503453196e2 * t433 * t949 * t435 * t209 - 0.46785787179641632568e1 * t416 * t211 * t949 + 0.61523382126046769581e4 * t970 * t2423 * t417 - 0.11579285944033451271e4 * t964 * t911 * t337 - 0.62336721237753107879e3 * t978 * t915 * t417;
2902 t2830 = 0.57894567559743977359e3 * t1004 * t2336 * t403;
2903 t2836 = 0.62070017646847402100e4 * t31 / t399 / t382 * t2336 * t1006;
2904 t2850 = 0.10000000000000000000e1 * t149 * (-0.21099166666666666667e1 * t2603 + 0.20255200000000000000e2 * t2605 - 0.75019259259259259258e1 * t2610 + 0.65641851851851851850e1 * t2613 + 0.31003950617283950618e1 * t2615 + 0.68258333333333333335e-1 * t2620 - 0.10921333333333333333e1 * t2622 + 0.12134814814814814815e1 * t2624 + 0.10617962962962962963e1 * t2626 + 0.13388493827160493828e1 * t2629) * t168;
2905 t2851 = t399 * t399;
2906 t2854 = t402 * t402;
2907 t2858 = 0.24954977986735470917e5 * t31 / t2851 * t2336 / t2854;
2908 t2867 = 0.34366858576436911004e1 * t156 * t400 * t395 * t403 * t167;
2909 t2871 = 0.42740000000000000000e0 * t156 * t383 * t395 * t169;
2910 t2881 = -0.18989760778855128827e-2 * t5 * t2505 * t86 - 0.55208163456790123453e-2 * t5 * t2505 * t73 + 0.12414802127193579148e5 * t955 * t363 * t958 * t337 + 0.12865873271148279190e3 * t369 * t990 * t371 * t194 + 0.36000000000000000000e2 * t369 * t338 * t363 - 0.80000000000000000000e1 * t336 * t196 * t990 - 0.12304676425209353917e5 * t77 * t2586 * t2538 * t972 - 0.60000000000000000000e1 * t336 * t2745 * t195 - t2830 + t2836 - t2850 - t2858 + 0.41096000000000000000e0 * t156 * t335 * t194 * t364 + t2867 - t2871 - 0.19263778438055647920e1 * t156 * t1206 + 0.13012297059337829057e0 * t156 * t1210 - 0.66091990993888710196e1 * t156 * t368 * t363 * t371 * t194;
2911 t2885 = t57 * t62 * (t2713 + t2743 + t2800 + t2881);
2912 t2888 = 0.21687161765563048428e-1 * t487 * t143 * t1195;
2913 t2889 = t1155 * t1160;
2914 t2893 = 0.43374323531126096856e-1 * t487 * t326 * t507;
2915 t2896 = 0.67471169937307261776e-1 * t487 * t894 * t226;
2916 t2899 = 0.86748647062252193713e-1 * t487 * t326 * t515;
2917 t2900 = t1155 * t1163;
2918 t2902 = 0.48e2 * t2651 - 0.48e2 * t2653 + 0.16e2 * t2655 - 0.16e2 * t2657 + 0.4e1 * t2660 + t2885 + t2830 + t2888 + 0.65061485296689145286e-1 * t2889 - t2893 + t2896 + t2899 - 0.86748647062252193714e-1 * t2900;
2919 t2905 = 0.12842518958703765280e1 * t487 * t326 * t511;
2920 t2909 = 0.24e2 * t56 * t58 * t61 * t89;
2921 t2911 = t467 * t5 * t488;
2922 t2915 = 0.38024868119570572865e2 * t487 * t143 * t1187;
2923 t2916 = t1155 * t1152;
2924 t2918 = t1155 * t1149;
2925 t2922 = 0.38527556876111295841e1 * t487 * t143 * t1173;
2926 t2925 = 0.13012297059337829057e0 * t487 * t143 * t1177;
2927 t2927 = 0.16e2 * t178 * t1075;
2928 t2928 = -t2905 - t2836 + t2909 + t2850 + t2858 + 0.65061485296689145287e-1 * t2911 + t2915 - 0.13012297059337829057e0 * t2916 + 0.19263778438055647920e1 * t2918 - t2922 + t2925 - t2927 - t2867 + t2871;
2929 t2946 = 0.1e1 / t2135;
2930 t2947 = t539 * t539;
2931 t2955 = t454 * t454;
2932 t2962 = 0.1e1 / t2193;
2933 t2963 = t547 * t547;
2934 t2971 = t551 * t551;
2935 t2989 = 0.12e2 * t2392;
2936 t2997 = 0.800e3 / 0.27e2 * t533 * t540 + 0.200e3 / 0.81e2 * t236 * t1248 - 0.200e3 / 0.9e1 * t236 * t1252 + 0.40e2 / 0.81e2 * t100 * t2946 * t2947 - 0.20e2 / 0.9e1 * t100 * t1246 * t539 * t454 + 0.10e2 / 0.3e1 * t100 * t538 * t2955 + 0.40e2 / 0.9e1 * t100 * t1251 * t1255 + 0.40e2 / 0.81e2 * t110 * t2962 * t2963 - 0.20e2 / 0.9e1 * t110 * t1260 * t547 * t551 + 0.10e2 / 0.3e1 * t110 * t546 * t2971 + 0.40e2 / 0.9e1 * t110 * t1265 * t1269 + 0.6160e4 / 0.81e2 * lapl[0] / t97 / t2281 * t104 - 0.8800e4 / 0.81e2 * t1236 * t239 + 0.400e3 / 0.9e1 * t533 * t543 - 0.100e3 / 0.9e1 * t236 * t1256 + 0.5e1 / 0.3e1 * t100 * t103 * t2989 - 0.5e1 / 0.3e1 * t110 * t113 * t2989;
2937 t3002 = t1273 * t251;
2938 t3006 = t555 * t568;
2939 t3009 = t555 * t555;
2940 t3014 = t562 * t562;
2941 t3020 = t120 / t1285 / t122;
2942 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2943 v4rho4[0] = 0.4e1 * t2320 + 0.12e2 * t2322 + 0.12e2 * t2324 + 0.4e1 * t2326 + t12 * (t2362 + t2436 + t2482 + t2524 + t2574 + t2649 + t2902 + t2928) * t125 + 0.4e1 * t1227 * t258 + 0.6e1 * t526 * t578 + 0.4e1 * t230 * t1297 + t232 * (0.20000000000000000000e-2 * t95 * t38 * t2997 * t123 - 0.31200000000000000000e-3 * t656 * t3002 * t245 + 0.11095885463039694026e-4 * t3006 * t562 - 0.23400000000000000000e-3 * t560 * t561 * t3009 * t251 - 0.48082170339838674114e-7 * t3014 * t1286 * t300 + 0.15626705360447569087e-6 * t3020 * t3014 * t300 - 0.36061627754879005584e-4 * t1287 * t562 * t555 + 0.76050000000000000000e-3 * t570 * t571 * t3009 + 0.10140000000000000000e-2 * t570 * t571 * t245 * t1273 - 0.65000000000000000000e-2 * t253 * t254 * t2997);
2944
2945 t3039 = t275 * t578;
2946 t3044 = t236 * t538;
2947 t3047 = t100 * t1246;
2948 t3057 = t110 * t1260;
2949 t3085 = -0.100e3 / 0.9e1 * t3044 * t1432 - 0.10e2 / 0.9e1 * t3047 * t1902 * t454 - 0.10e2 / 0.9e1 * t3047 * t453 * t539 + 0.10e2 / 0.3e1 * t1431 * t453 * t454 - 0.10e2 / 0.9e1 * t3057 * t1972 * t551 + 0.10e2 / 0.9e1 * t3057 * t453 * t547 - 0.10e2 / 0.3e1 * t1452 * t453 * t551 - 0.10e2 * t1431 * t1094 * t238 + 0.10e2 * t1452 * t1094 * t241 + 0.10e2 / 0.9e1 * t100 * t633 * t1255 - 0.50e2 / 0.9e1 * t284 * t1266 + 0.10e2 / 0.9e1 * t110 * t643 * t1269 + 0.400e3 / 0.27e2 * t533 * t634 + 0.200e3 / 0.9e1 * t533 * t638;
2950 t3090 = 0.20e2 * t110 * t647 * t177;
2951 t3105 = 0.20e2 * t100 * t637 * t177;
2952 t3128 = -0.50e2 / 0.9e1 * t236 * t1435 - t3090 + 0.50e2 / 0.27e2 * t236 * t1428 + 0.25e2 * t236 * t1441 + 0.40e2 / 0.81e2 * t100 * t2946 * t278 * t1247 + 0.10e2 / 0.3e1 * t100 * t538 * t452 * t238 + t3105 + 0.40e2 / 0.81e2 * t110 * t2962 * t286 * t1261 - 0.10e2 / 0.3e1 * t110 * t546 * t452 * t241 - 0.25e2 / 0.3e1 * t236 * t1438 - 0.10e2 * t100 * t103 * t56 + 0.50e2 / 0.81e2 * t284 * t1262 + 0.10e2 * t110 * t113 * t56 - 0.2200e4 / 0.81e2 * t1236 * t279 - 0.25e2 / 0.9e1 * t284 * t1270;
2953 t3129 = t3085 + t3128;
2954 t3140 = t1465 * t251;
2955 t3147 = t290 * t1286;
2956 t3151 = t651 * t568;
2957 t3156 = t1282 * t37 * t254;
2958 t3176 = -0.18030813877439502792e-4 * t1287 * t661 * t555 + 0.20000000000000000000e-2 * t95 * t38 * t3129 * t123 - 0.65000000000000000000e-2 * t253 * t254 * t3129 - 0.78000000000000000000e-4 * t656 * t657 * t1273 - 0.23400000000000000000e-3 * t656 * t3140 * t245 - 0.23400000000000000000e-3 * t656 * t1470 * t555 - 0.48082170339838674114e-7 * t3147 * t1282 * t300 + 0.55479427315198470131e-5 * t3151 * t562 + 0.15626705360447569087e-6 * t3020 * t290 * t3156 + 0.76050000000000000000e-3 * t570 * t571 * t1465 * t245 + 0.76050000000000000000e-3 * t570 * t571 * t651 * t555 + 0.25350000000000000000e-3 * t570 * t571 * t290 * t1273 - 0.18030813877439502792e-4 * t1287 * t651 * t562 + 0.55479427315198470132e-5 * t1474 * t1290;
2959 t3184 = t625 * t258;
2960 t3186 = t1408 * t125;
2961 t3189 = t94 * t1494;
2962 t3191 = t229 * t668;
2963 t3193 = 0.48e2 * t2328;
2964 t3195 = t608 * t1206;
2965 t3197 = t608 * t1210;
2966 t3200 = t1389 * t2 * t221;
2967 t3202 = 0.8e1 * t2334;
2968 t3203 = t1378 * t1160;
2969 t3205 = t1378 * t1149;
2970 t3208 = t596 * t5 * t488;
2971 t3209 = 0.32530742648344572643e-1 * t3208;
2972 t3210 = t480 * t622;
2973 t3211 = 0.96e2 * t3210;
2974 t3212 = t477 * t620;
2975 t3213 = 0.36e2 * t3212;
2976 t3215 = 0.96e2 * t480 * t620;
2977 t3216 = 0.144e3 * t2342;
2978 t3217 = 0.960e3 * t2350;
2979 t3218 = 0.192e3 * t2356;
2980 t3219 = -t3193 - 0.72e2 * t2332 - 0.51947267698127589897e2 * t3195 + 0.35089340384731224426e1 * t3197 - 0.54934665110259479823e-3 * t3200 + t3202 + 0.16265371324172286321e-1 * t3203 + 0.48159446095139119799e0 * t3205 + t3209 - t2339 - t3211 + t3213 - t3215 + t3216 + t2348 - t3217 + t3218;
2981 t3220 = 0.240e3 * t2360;
2982 t3221 = 0.480e3 * t2363;
2983 t3222 = t1396 * t496;
2984 t3223 = 0.73246220147012639764e-3 * t3222;
2985 t3226 = 0.96e2 * t2417;
2986 t3258 = 0.32e2 * t586 * t177;
2987 t3276 = 0.32e2 * t592 * t177;
2988 t3277 = -0.8e1 * t1347 * t56 * t128 + 0.8e1 * t1360 * t56 * t130 + 0.4e1 / 0.9e1 * t589 * t1142 + 0.16e2 * t19 * t56 + 0.4e1 / 0.9e1 * t583 * t1131 - 0.16e2 * t16 * t56 + 0.40e2 / 0.81e2 * t2380 * t260 * t1124 - 0.8e1 / 0.9e1 * t1344 * t128 * t455 - 0.16e2 / 0.9e1 * t1123 * t11 * t452 * t448 + 0.8e1 / 0.3e1 * t447 * t452 * t128 + 0.8e1 / 0.3e1 * t1347 * t452 * t455 + t3258 + 0.40e2 / 0.81e2 * t2398 * t262 * t1136 - 0.8e1 / 0.9e1 * t1357 * t130 * t463 + 0.16e2 / 0.9e1 * t1135 * t11 * t452 * t460 - 0.8e1 / 0.3e1 * t459 * t452 * t130 - 0.8e1 / 0.3e1 * t1360 * t452 * t463 - t3276;
2989 t3278 = t3277 * t61;
2990 t3283 = -t2359 + t3220 + t3221 + t2368 - t2371 + t3223 + 0.180e3 * t2372 + 0.60e2 * t2376 - t3226 + t57 * t3278 * t89 + t2421 - t2426 - t2431 + 0.10526802115419367328e2 * t2432 - 0.15584180309438276970e3 * t2434 + t2441 - t2445 - t2448;
2991 t3288 = t178 * t1316;
2992 t3290 = t1094 * t271;
2993 t3292 = t1097 * t271;
2994 t3293 = 0.144e3 * t3292;
2995 t3295 = t2452 - t2456 - t2459 + t2463 - t2467 - t2470 + t2474 - 0.18311555036753159941e-3 * t2476 + 0.73246220147012639763e-3 * t2478 - 0.17090784700969615944e-2 * t2480 + t2488 - 0.12e2 * t3288 + 0.24e2 * t3290 - t3293 + t2490 - t2493 - 0.36e2 * t2494;
2996 t3297 = t57 * t596 * t439;
2997 t3298 = 0.3e1 * t3297;
2998 t3300 = t57 * t270 * t1074;
2999 t3301 = t173 * t1316;
3000 t3302 = 0.12e2 * t3301;
3001 t3303 = 0.36e2 * t2509;
3002 t3306 = t608 * t1195;
3003 t3309 = t1389 * t77 * t226;
3004 t3311 = t608 * t1187;
3005 t3313 = t1322 * t511;
3006 t3314 = 0.51947267698127589899e2 * t3313;
3007 t3315 = t3298 + t3300 + t2497 + t3302 + t2501 - t2504 - t2508 - t3303 - 0.36e2 * t2511 + t2516 + t2520 + 0.3e1 * t2522 - t2530 + t2533 - 0.58482233974552040708e0 * t3306 - 0.17544670192365612213e1 * t3309 - 0.10253897021007794930e4 * t3311 - t3314;
3008 t3318 = t1322 * t507;
3009 t3319 = 0.17544670192365612213e1 * t3318;
3010 t3320 = t178 * t1392;
3011 t3322 = t178 * t1401;
3012 t3323 = 0.24e2 * t3322;
3013 t3324 = t173 * t1392;
3014 t3327 = 0.24e2 * t173 * t1401;
3015 t3329 = t1100 * t271;
3016 t3330 = 0.240e3 * t3329;
3017 t3331 = t1105 * t271;
3018 t3335 = t474 * t622;
3019 t3337 = -t3319 - 0.12e2 * t3320 - t3323 + 0.12e2 * t3324 + t3327 + 0.31168360618876553939e3 * t2534 - t2544 + t3330 - 0.120e3 * t3331 - 0.360e3 * t2545 - t2550 - t2555 - 0.5e1 / 0.48e2 * t2557 + t2561 + t2565 + t2569 + 0.60e2 * t3335;
3020 t3338 = t477 * t622;
3021 t3339 = 0.36e2 * t3338;
3022 t3340 = t474 * t620;
3023 t3341 = 0.60e2 * t3340;
3024 t3353 = t599 * t1219;
3025 t3355 = 0.96e2 * t2647;
3026 t3356 = 0.12e2 * t2651;
3027 t3358 = t3339 + t3341 - t2576 / 0.32e2 - 0.10526802115419367328e2 * t2578 + 0.35089340384731224426e1 * t2580 + t2583 / 0.16e2 + t2590 - 0.17544670192365612213e1 * t2591 - 0.17544670192365612213e1 * t2593 - t2635 + 0.19751789702565206229e-1 * t3278 * t87 - 0.51947267698127589897e2 * t2640 - 0.30761691063023384791e4 * t2642 - 0.58482233974552040708e0 * t2645 - 0.56969282336565386482e-3 * t3353 - t3355 + t3356 - 0.24e2 * t2653;
3028 t3364 = t8 * t611 * t163;
3029 t3365 = t3364 / 0.16e2;
3030 t3370 = t1378 * t1163;
3031 t3372 = t1378 * t1152;
3032 t3376 = -0.4e1 * t2655 - 0.4e1 * t2657 + 0.3e1 * t2660 + t2885 + t3365 - 0.3e1 / 0.32e2 * t8 * t10 * t3277 * t23 - 0.21687161765563048428e-1 * t3370 - 0.32530742648344572643e-1 * t3372 + t2830 + t2888 + 0.48796113972516858964e-1 * t2889 - t2893 + t2896 + t2899 - 0.65061485296689145284e-1 * t2900 - t2905 - t2836;
3033 t3380 = t608 * t1173;
3034 t3382 = t1322 * t515;
3035 t3383 = 0.35089340384731224426e1 * t3382;
3036 t3385 = t8 * t266 * t345;
3037 t3388 = t8 * t1371 * t41;
3038 t3390 = t608 * t1177;
3039 t3393 = t57 * t1389 * t214;
3040 t3395 = -t2909 + t2850 + t2858 + 0.32530742648344572642e-1 * t2911 + t2915 - 0.97592227945033717929e-1 * t2916 + 0.14447833828541735940e1 * t2918 - t2922 + t2925 - t2927 + 0.10389453539625517980e3 * t3380 + t3383 - 0.5e1 / 0.144e3 * t3385 - 0.3e1 / 0.32e2 * t3388 - 0.35089340384731224426e1 * t3390 - t2867 + t2871 + 0.3e1 * t3393;
3041 t3401 = t525 * t298;
3042 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3043 v4rho4[1] = 0.3e1 * t3039 + t232 * t3176 + 0.3e1 * t230 * t1494 + 0.3e1 * t526 * t668 + 0.3e1 * t1409 * t258 + 0.6e1 * t3184 + 0.3e1 * t3186 + t2320 + t1227 * t298 + 0.3e1 * t3189 + 0.6e1 * t3191 + t12 * (t3219 + t3283 + t3295 + t3315 + t3337 + t3358 + t3376 + t3395) * t125 + 0.3e1 * t3401 + t2326 + 0.3e1 * t2324 + 0.3e1 * t2322 + t276 * t1297 + 0.3e1 * t626 * t578;
3044
3045 t3408 = t703 * t258;
3046 t3419 = t686 * t5 * t488;
3047 t3424 = t173 * t1557;
3048 t3428 = 0.192e3 * t2330 + 0.48e2 * t2332 - 0.10389453539625517980e3 * t3195 + 0.70178680769462448852e1 * t3197 - 0.36623110073506319882e-3 * t3200 + 0.32530742648344572644e-1 * t3203 + 0.96318892190278239603e0 * t3205 + 0.43374323531126096858e-1 * t3208 + 0.10843580882781524214e-1 * t3419 - t2339 - 0.64e2 * t3210 - 0.48e2 * t3212 - 0.24e2 * t2340 + 0.8e1 * t3424 + 0.96e2 * t2342 + t2348 - 0.480e3 * t2353 - t2359;
3049 t3436 = t8 * t1525 * t41;
3050 t3439 = t8 * t691 * t163;
3051 t3441 = t1497 * t515;
3052 t3445 = -0.160e3 * t2360 + t2368 - t2371 + 0.97661626862683519686e-3 * t3222 + 0.120e3 * t2372 + 0.32e2 * t2374 + 0.20e2 * t2376 + 0.64e2 * t2417 - t3436 / 0.16e2 + t3439 / 0.48e2 + 0.11696446794910408142e1 * t3441 + t2421 - t2426 - t2431 + 0.70178680769462448852e1 * t2432 - 0.10389453539625517979e3 * t2434 + t2441 - t2445 - t2448;
3053 t3455 = t2452 - t2456 - t2459 + t2463 - t2467 - t2470 + t2474 + 0.24415406715670879921e-3 * t2478 - 0.11393856467313077296e-2 * t2480 + t2488 - 0.24e2 * t3288 - 0.48e2 * t3290 + 0.96e2 * t3292 + t2490 - t2493 - 0.24e2 * t2494 + 0.4e1 * t3297 + 0.2e1 * t3300;
3054 t3457 = t477 * t689;
3055 t3459 = t480 * t689;
3056 t3461 = t474 * t689;
3057 t3465 = t1566 * t496;
3058 t3468 = t1536 * t2 * t221;
3059 t3470 = t1497 * t511;
3060 t3520 = 0.40e2 / 0.81e2 * t2380 * t672 * t448 - 0.64e2 / 0.27e2 * t1344 * t128 * t11 * t452 - 0.8e1 / 0.27e2 * t1500 * t455 + 0.32e2 / 0.9e1 * t447 * t52 * t473 + 0.16e2 / 0.9e1 * t583 * t452 - 0.16e2 / 0.3e1 * t583 * t1094 - 0.8e1 / 0.27e2 * t1123 * t676 * t448 + 0.8e1 / 0.9e1 * t447 * t1510 * t128 + 0.4e1 / 0.9e1 * t1505 * t455 + t3258 + 0.40e2 / 0.81e2 * t2398 * t679 * t460 + 0.64e2 / 0.27e2 * t1357 * t130 * t11 * t452 - 0.8e1 / 0.27e2 * t1513 * t463 + 0.32e2 / 0.9e1 * t459 * t52 * t473 - 0.16e2 / 0.9e1 * t589 * t452 + 0.16e2 / 0.3e1 * t589 * t1094 - 0.8e1 / 0.27e2 * t1135 * t682 * t460 + 0.8e1 / 0.9e1 * t459 * t1521 * t130 + 0.4e1 / 0.9e1 * t1518 * t463 - t3276;
3061 t3525 = t1497 * t507;
3062 t3527 = 0.8e1 * t3301 + t2501 - t2504 - t2508 + 0.12e2 * t3457 - 0.32e2 * t3459 + 0.20e2 * t3461 - 0.24e2 * t2509 + 0.12e2 * t2511 + t2516 + t2520 + t2522 - t2530 + t2533 + 0.24415406715670879921e-3 * t3465 - 0.36623110073506319882e-3 * t3468 - 0.17315755899375863299e2 * t3470 - 0.3e1 / 0.32e2 * t8 * t10 * t3520 * t23 - 0.58482233974552040708e0 * t3525;
3063 t3531 = t1536 * t77 * t226;
3064 t3533 = t178 * t1557;
3065 t3535 = t173 * t1555;
3066 t3537 = t178 * t1555;
3067 t3540 = t57 * t686 * t439;
3068 t3553 = -0.11696446794910408142e1 * t3531 - 0.8e1 * t3533 + 0.8e1 * t3535 - 0.8e1 * t3537 + t3540 - 0.11696446794910408142e1 * t3306 - 0.11696446794910408142e1 * t3309 - 0.20507794042015589862e4 * t3311 - 0.69263023597503453200e2 * t3313 - 0.23392893589820816284e1 * t3318 - 0.8e1 * t3320 - 0.32e2 * t3322 - 0.8e1 * t3324 + 0.20778907079251035960e3 * t2534 - t2544 + 0.160e3 * t3329 - 0.240e3 * t3331 - 0.240e3 * t2545;
3069 t3566 = -t2550 - t2555 - 0.5e1 / 0.72e2 * t2557 + t2561 + t2565 + t2569 - 0.8e1 * t2570 + 0.120e3 * t3335 - 0.24e2 * t3338 + 0.80e2 * t3340 - 0.70178680769462448852e1 * t2578 + 0.11696446794910408142e1 * t2580 + t2583 / 0.48e2 + t2590 - 0.58482233974552040708e0 * t2591 - 0.11696446794910408142e1 * t2593 - t2635 - 0.17315755899375863299e2 * t2640 - 0.20507794042015589860e4 * t2642;
3070 t3569 = t3520 * t61;
3071 t3580 = -0.11393856467313077297e-2 * t3353 + 0.19751789702565206229e-1 * t3569 * t87 - 0.8e1 * t2651 - 0.8e1 * t2653 + 0.2e1 * t2660 + t2885 + t3364 / 0.12e2 - 0.43374323531126096858e-1 * t3370 - 0.65061485296689145288e-1 * t3372 + t2830 + t2888 + 0.32530742648344572642e-1 * t2889 - t2893 + t2896 + t2899 - 0.43374323531126096856e-1 * t2900 - t2905 - t2836 + t2909;
3072 t3590 = t57 * t1536 * t214;
3073 t3595 = t2850 + t2858 + 0.10843580882781524214e-1 * t2911 + t2915 - 0.65061485296689145286e-1 * t2916 + 0.96318892190278239598e0 * t2918 - t2922 + t2925 - t2927 + 0.20778907079251035960e3 * t3380 + 0.46785787179641632568e1 * t3382 - 0.5e1 / 0.72e2 * t3385 - t3388 / 0.16e2 - 0.70178680769462448852e1 * t3390 - t2867 + t2871 + 0.2e1 * t3590 + t57 * t3569 * t89 + 0.2e1 * t3393;
3074 t3602 = t275 * t668;
3075 t3614 = t731 * t568;
3076 t3646 = t284 * t546;
3077 t3657 = -0.20e2 / 0.3e1 * t1431 * t1591 * t56 + 0.20e2 / 0.3e1 * t1452 * t1616 * t56 - t3090 + t3105 - 0.40e2 / 0.27e2 * t3047 * t1902 * t453 + 0.40e2 / 0.27e2 * t3057 * t1972 * t453 + 0.200e3 / 0.27e2 * t718 * t552 - 0.50e2 / 0.9e1 * t236 * t1603 + 0.400e3 / 0.81e2 * t533 * t709 + 0.200e3 / 0.27e2 * t533 * t712 + 0.400e3 / 0.81e2 * t718 * t548 + 0.50e2 / 0.9e1 * t284 * t1459 - 0.200e3 / 0.27e2 * t3044 * t1592 + 0.200e3 / 0.27e2 * t3646 * t1453 + 0.20e2 / 0.9e1 * t100 * t538 * t52 * t473 + 0.20e2 / 0.9e1 * t110 * t546 * t1624 * t241;
3078 t3710 = 0.10e2 / 0.9e1 * t110 * t1620 * t551 + 0.100e3 / 0.81e2 * t236 * t1588 - 0.10e2 / 0.27e2 * t100 * t1587 * t454 - 0.100e3 / 0.27e2 * t236 * t1598 + 0.20e2 / 0.9e1 * t100 * t538 * t1602 * t238 + 0.10e2 / 0.9e1 * t100 * t1597 * t454 - 0.100e3 / 0.27e2 * t284 * t1456 - 0.10e2 / 0.27e2 * t110 * t1612 * t551 + 0.20e2 / 0.9e1 * t110 * t546 * t52 * t473 + 0.40e2 / 0.81e2 * t100 * t2946 * t708 * t539 + 0.20e2 / 0.9e1 * t100 * t633 * t452 - 0.10e2 / 0.27e2 * t100 * t1246 * t675 * t539 + 0.100e3 / 0.81e2 * t284 * t1449 - 0.50e2 / 0.3e1 * t284 * t1462 + 0.40e2 / 0.81e2 * t110 * t2962 * t723 * t547 - 0.20e2 / 0.9e1 * t110 * t643 * t452 - 0.10e2 / 0.27e2 * t110 * t1260 * t727 * t547;
3079 t3711 = t3657 + t3710;
3080 t3716 = t1628 * t251;
3081 t3726 = t651 * t651;
3082 t3734 = t736 * t1286;
3083 t3740 = t562 * t37 * t254;
3084 t3758 = -0.60102712924798342641e-5 * t1287 * t731 * t562 + 0.73972569753597960175e-5 * t1474 * t1483 - 0.60102712924798342641e-5 * t1287 * t736 * t555 + 0.18493142438399490044e-5 * t1640 * t555 + 0.18493142438399490044e-5 * t3614 * t562 - 0.24041085169919337056e-4 * t1287 * t661 * t651 + 0.20000000000000000000e-2 * t95 * t38 * t3711 * t123 - 0.15600000000000000000e-3 * t656 * t3716 * t245 - 0.65000000000000000000e-2 * t253 * t254 * t3711 - 0.78000000000000000000e-4 * t656 * t1633 * t555 - 0.15600000000000000000e-3 * t560 * t561 * t3726 * t251 - 0.15600000000000000000e-3 * t656 * t657 * t1465 - 0.48082170339838674114e-7 * t3734 * t562 * t300 + 0.15626705360447569087e-6 * t3020 * t736 * t3740 + 0.50700000000000000000e-3 * t570 * t571 * t3726 + 0.50700000000000000000e-3 * t570 * t571 * t290 * t1465 + 0.50700000000000000000e-3 * t570 * t571 * t1628 * t245 + 0.25350000000000000000e-3 * t570 * t571 * t731 * t555;
3085 t3760 = t1573 * t125;
3086 t3772 = t625 * t298;
3087 t3780 = t94 * t1657;
3088 t3782 = t229 * t747;
3089 t3786 = 0.2e1 * t1409 * t298 + 0.2e1 * t1574 * t258 + t578 * t704 + 0.4e1 * t626 * t668 + 0.2e1 * t3186 + 0.2e1 * t3189 + 0.4e1 * t3191 + 0.2e1 * t3401 + 0.4e1 * t3772 + 0.2e1 * t3780 + 0.2e1 * t3782;
3090 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3091 v4rho4[2] = 0.2e1 * t3408 + t12 * (t3428 + t3445 + t3455 + t3527 + t3553 + t3566 + t3580 + t3595) * t125 + 0.2e1 * t3039 + 0.4e1 * t3602 + t232 * t3758 + 0.2e1 * t3760 + 0.4e1 * t3184 + 0.2e1 * t230 * t1657 + t526 * t747 + 0.2e1 * t276 * t1494 + t3786;
3092
3093 t3793 = t1713 * t125;
3094 t3800 = t3193 - 0.24e2 * t2332 - 0.15584180309438276970e3 * t3195 + 0.10526802115419367328e2 * t3197 - t3202 + 0.48796113972516858965e-1 * t3203 + 0.14447833828541735940e1 * t3205 + t3209 + 0.32530742648344572644e-1 * t3419 - t2339 + t3211 + t3213 + t3215 - t3216 + t2348 + t3217 - t3218;
3095 t3807 = -t2359 - t3220 - t3221 + t2368 - t2371 + t3223 + 0.60e2 * t2372 + t3226 - 0.3e1 / 0.32e2 * t3436 + t3439 / 0.16e2 + 0.35089340384731224426e1 * t3441 + t2421 - t2426 - t2431 + 0.35089340384731224426e1 * t2432 - 0.51947267698127589897e2 * t2434 + t2441 - t2445;
3096 t3812 = t173 * t1695;
3097 t3814 = t178 * t1695;
3098 t3816 = -t2448 + t2452 - t2456 - t2459 + t2463 - t2467 - t2470 + t2474 - 0.56969282336565386482e-3 * t2480 + t2488 - 0.36e2 * t3288 + 0.72e2 * t3290 + t3293 + 0.4e1 * t3812 - 0.4e1 * t3814 + t2490 - t2493;
3099 t3839 = 0.12e2 * t56 + 0.24e2 * t2355;
3100 t3861 = 0.40e2 / 0.81e2 * t2380 * t1662 * t128 - 0.16e2 / 0.9e1 * t1500 * t453 - 0.8e1 / 0.9e1 * t1344 * t676 * t128 + 0.8e1 / 0.3e1 * t1347 * t452 * t676 + 0.4e1 / 0.3e1 * t583 * t1510 + 0.4e1 / 0.9e1 * t447 * t1668 * t128 + 0.4e1 / 0.3e1 * t16 * t3839 + 0.40e2 / 0.81e2 * t2398 * t1671 * t130 + 0.16e2 / 0.9e1 * t1513 * t453 - 0.8e1 / 0.9e1 * t1357 * t682 * t130 - 0.8e1 / 0.3e1 * t1360 * t452 * t682 + 0.4e1 / 0.3e1 * t589 * t1521 + 0.4e1 / 0.9e1 * t459 * t1676 * t130 - 0.4e1 / 0.3e1 * t19 * t3839;
3101 t3862 = t3861 * t61;
3102 t3868 = t57 * t1684 * t214;
3103 t3870 = -0.12e2 * t2494 + t3298 + 0.3e1 * t3300 - t3302 + t2501 - t2504 - t2508 - 0.36e2 * t3457 + 0.60e2 * t3461 + t3303 + t57 * t3862 * t89 + 0.19751789702565206229e-1 * t3862 * t87 + t2516 + t2520 - t2530 + t2533 + t3868 + 0.73246220147012639764e-3 * t3465;
3104 t3884 = -0.54934665110259479823e-3 * t3468 - 0.51947267698127589900e2 * t3470 - 0.17544670192365612213e1 * t3525 - 0.17544670192365612213e1 * t3531 - 0.24e2 * t3533 - 0.12e2 * t3535 - 0.12e2 * t3537 + 0.3e1 * t3540 - 0.17544670192365612213e1 * t3306 - 0.30761691063023384792e4 * t3311 - t3314 - t3319 - t3323 - t3327 + 0.10389453539625517980e3 * t2534 - t2544 - t3330;
3105 t3893 = -0.360e3 * t3331 - 0.120e3 * t2545 - t2550 - t2555 - 0.5e1 / 0.144e3 * t2557 + t2561 + t2565 + t2569 + 0.180e3 * t3335 - t3339 + t3341 - 0.35089340384731224426e1 * t2578 + t2590 - 0.58482233974552040708e0 * t2593 - t2635 - 0.10253897021007794930e4 * t2642 - 0.17090784700969615945e-2 * t3353 + t3355;
3106 t3896 = t1684 * t77 * t226;
3107 t3906 = -t3356 + t2660 + t2885 - 0.58482233974552040708e0 * t3896 - 0.3e1 / 0.32e2 * t8 * t10 * t3861 * t23 + t3365 - 0.65061485296689145286e-1 * t3370 - 0.97592227945033717931e-1 * t3372 + t2830 + t2888 + 0.16265371324172286321e-1 * t2889 - t2893 + t2896 + t2899 - 0.21687161765563048428e-1 * t2900 - t2905 - t2836;
3108 t3908 = t1684 * t2 * t221;
3109 t3916 = t8 * t1680 * t41;
3110 t3919 = -t2909 - 0.18311555036753159941e-3 * t3908 + t2850 + t2858 + t2915 - 0.32530742648344572643e-1 * t2916 + 0.48159446095139119799e0 * t2918 - t2922 + t2925 - t2927 + 0.31168360618876553940e3 * t3380 + t3383 - 0.5e1 / 0.48e2 * t3385 - 0.10526802115419367328e2 * t3390 - t3916 / 0.32e2 - t2867 + t2871 + 0.3e1 * t3590;
3111 t3926 = t703 * t298;
3112 t3932 = t275 * t747;
3113 t3938 = t94 * t1774;
3114 t3952 = t278 * t675;
3115 t3970 = 0.6e1 * t56 + 0.12e2 * t2355;
3116 t3978 = 0.50e2 / 0.81e2 * t236 * t1721 + 0.40e2 / 0.81e2 * t100 * t2946 * t1720 * t238 - 0.10e2 / 0.9e1 * t3047 * t708 * t11 * t452 - 0.50e2 / 0.9e1 * t236 * t1724 - 0.10e2 / 0.9e1 * t3047 * t3952 * t238 + 0.10e2 / 0.3e1 * t1431 * t453 * t675 + 0.10e2 / 0.3e1 * t100 * t633 * t1602 - 0.25e2 / 0.9e1 * t236 * t1728 + 0.10e2 / 0.9e1 * t100 * t538 * t1727 * t238 + 0.5e1 / 0.3e1 * t100 * t103 * t3970 - 0.2200e4 / 0.81e2 * t1734 * t242 + 0.400e3 / 0.27e2 * t718 * t644;
3117 t3997 = t286 * t727;
3118 t4015 = -0.200e3 / 0.9e1 * t718 * t648 + 0.50e2 / 0.27e2 * t284 * t1613 + 0.100e3 / 0.9e1 * t3646 * t1617 - 0.50e2 / 0.9e1 * t284 * t1621 - 0.25e2 / 0.3e1 * t284 * t1625 + 0.40e2 / 0.81e2 * t110 * t2962 * t1743 * t241 + 0.10e2 / 0.9e1 * t3057 * t723 * t11 * t452 - 0.10e2 / 0.9e1 * t3057 * t3997 * t241 - 0.10e2 / 0.3e1 * t1452 * t453 * t727 + 0.10e2 / 0.3e1 * t110 * t643 * t1624 + 0.10e2 / 0.9e1 * t110 * t546 * t1750 * t241 - 0.5e1 / 0.3e1 * t110 * t113 * t3970;
3119 t4016 = t3978 + t4015;
3120 t4021 = t1754 * t251;
3121 t4035 = t1762 * t1286;
3122 t4040 = t95 * t246;
3123 t4064 = 0.20000000000000000000e-2 * t95 * t38 * t4016 * t123 - 0.78000000000000000000e-4 * t656 * t4021 * t245 - 0.23400000000000000000e-3 * t656 * t3716 * t290 + 0.55479427315198470131e-5 * t3614 * t661 - 0.23400000000000000000e-3 * t656 * t1633 * t651 + 0.55479427315198470132e-5 * t1640 * t651 - 0.48082170339838674114e-7 * t4035 * t37 * t255 + 0.15626705360447569087e-6 * t3020 * t1762 * t4040 - 0.18030813877439502792e-4 * t1287 * t736 * t651 - 0.18030813877439502792e-4 * t1287 * t1767 * t245 + 0.76050000000000000000e-3 * t570 * t571 * t651 * t731 + 0.76050000000000000000e-3 * t570 * t571 * t290 * t1628 + 0.25350000000000000000e-3 * t570 * t571 * t1754 * t245 - 0.65000000000000000000e-2 * t253 * t254 * t4016;
3124 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3125 v4rho4[3] = 0.3e1 * t3760 + 0.3e1 * t3408 + 0.6e1 * t3772 + 0.6e1 * t3602 + 0.3e1 * t3782 + 0.3e1 * t3780 + t3793 + t12 * (t3800 + t3807 + t3816 + t3870 + t3884 + t3893 + t3906 + t3919) * t125 + t1714 * t258 + 0.3e1 * t3926 + 0.3e1 * t1574 * t298 + 0.3e1 * t704 * t668 + 0.3e1 * t3932 + 0.3e1 * t626 * t747 + 0.3e1 * t276 * t1657 + t3938 + t230 * t1774 + t232 * t4064;
3126
3127 t4077 = -t2329 - t2331 - 0.20778907079251035960e3 * t3195 + 0.14035736153892489771e2 * t3197 - t2335 + 0.65061485296689145286e-1 * t3203 + 0.19263778438055647920e1 * t3205 + 0.65061485296689145287e-1 * t3419 - t2339 + 0.384e3 * t3210 + t2341 - 0.48e2 * t3424 + t2348;
3128 t4080 = t2351 + t2354 + t2357 - t2359 - t2364 + t2368 - t2371 + t3439 / 0.8e1 + 0.70178680769462448852e1 * t3441 + t2421 - t2426 - t2431 + t2441;
3129 t4085 = -t2445 - t2448 + t2452 - t2456 - t2459 + t2463 - t2467 - t2470 + t2474 + t2488 - 0.48e2 * t3288 - 0.96e2 * t3290 - 0.576e3 * t3292;
3130 t4089 = t672 * t672;
3131 t4094 = t676 * t676;
3132 t4099 = t56 + t2355;
3133 t4100 = 0.24e2 * t4099;
3134 t4103 = t679 * t679;
3135 t4108 = t682 * t682;
3136 t4116 = 0.40e2 / 0.81e2 * t2380 * t4089 - 0.16e2 / 0.9e1 * t1500 * t676 + 0.4e1 / 0.3e1 * t447 * t4094 + 0.16e2 / 0.9e1 * t583 * t1668 + 0.4e1 / 0.3e1 * t16 * t4100 + 0.40e2 / 0.81e2 * t2398 * t4103 - 0.16e2 / 0.9e1 * t1513 * t682 + 0.4e1 / 0.3e1 * t459 * t4108 + 0.16e2 / 0.9e1 * t589 * t1676 - 0.4e1 / 0.3e1 * t19 * t4100;
3137 t4117 = t4116 * t61;
3138 t4124 = t4117 * t57 * t89 + t2490 - t2493 + t2501 - t2504 - t2508 + 0.4e1 * t3300 - 0.48e2 * t3301 + 0.72e2 * t3457 + 0.192e3 * t3459 + 0.120e3 * t3461 - 0.16e2 * t3812 - 0.16e2 * t3814;
3139 t4140 = t2516 + t2520 - t2530 + t2533 + 0.4e1 * t3868 + 0.14649244029402527953e-2 * t3465 + 0.19751789702565206229e-1 * t4117 * t87 - 0.10389453539625517980e3 * t3470 - 0.35089340384731224426e1 * t3525 - 0.48e2 * t3533 + 0.6e1 * t3540 - 0.3e1 / 0.32e2 * t8 * t10 * t4116 * t23 - 0.23392893589820816284e1 * t3306;
3140 t4146 = -0.41015588084031179722e4 * t3311 - t2544 - 0.960e3 * t3329 - 0.480e3 * t3331 - t2550 - t2555 + t2561 + t2565 + t2569 + 0.240e3 * t3335 + 0.144e3 * t3338 + t2590 - t2635;
3141 t4152 = -0.22787712934626154593e-2 * t3353 + t2648 + t2885 - 0.23392893589820816284e1 * t3896 - 0.86748647062252193714e-1 * t3370 - 0.13012297059337829057e0 * t3372 + t2830 + t2888 - t2893 + t2896 + t2899 - t2905 - t2836;
3142 t4158 = t2909 - 0.73246220147012639764e-3 * t3908 + t2850 + t2858 + t2915 - t2922 + t2925 - t2927 + 0.41557814158502071920e3 * t3380 - 0.5e1 / 0.36e2 * t3385 - 0.14035736153892489771e2 * t3390 - t3916 / 0.8e1 - t2867 + t2871;
3143 t4175 = -0.12e2 * t4099;
3144 t4194 = t723 * t723;
3145 t4201 = t727 * t727;
3146 t4208 = t708 * t708;
3147 t4215 = t675 * t675;
3148 t4224 = 0.400e3 / 0.9e1 * t718 * t728 - 0.100e3 / 0.9e1 * t284 * t1751 + 0.5e1 / 0.3e1 * t110 * t113 * t4175 - 0.5e1 / 0.3e1 * t100 * t103 * t4175 + 0.6160e4 / 0.81e2 * lapl[1] / t107 / t2310 * t114 - 0.8800e4 / 0.81e2 * t1734 * t287 + 0.200e3 / 0.81e2 * t284 * t1744 - 0.200e3 / 0.9e1 * t284 * t1747 + 0.40e2 / 0.81e2 * t110 * t2962 * t4194 - 0.20e2 / 0.9e1 * t110 * t1612 * t727 + 0.10e2 / 0.3e1 * t110 * t546 * t4201 + 0.40e2 / 0.9e1 * t110 * t643 * t1750 + 0.40e2 / 0.81e2 * t100 * t2946 * t4208 - 0.20e2 / 0.9e1 * t100 * t1587 * t675 + 0.10e2 / 0.3e1 * t100 * t538 * t4215 + 0.40e2 / 0.9e1 * t100 * t633 * t1727 + 0.800e3 / 0.27e2 * t718 * t724;
3149 t4234 = t731 * t731;
3150 t4239 = t736 * t736;
3151 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3152 v4rho4[4] = 0.4e1 * t3793 + 0.12e2 * t3926 + 0.12e2 * t3932 + 0.4e1 * t3938 + t12 * (t4077 + t4080 + t4085 + t4124 + t4140 + t4146 + t4152 + t4158) * t125 + 0.4e1 * t1714 * t298 + 0.6e1 * t704 * t747 + 0.4e1 * t276 * t1774 + t232 * (0.20000000000000000000e-2 * t95 * t38 * t4224 * t123 - 0.31200000000000000000e-3 * t656 * t4021 * t290 + 0.11095885463039694026e-4 * t3614 * t736 - 0.23400000000000000000e-3 * t560 * t561 * t4234 * t251 - 0.48082170339838674114e-7 * t4239 * t1286 * t300 + 0.15626705360447569087e-6 * t3020 * t4239 * t300 - 0.36061627754879005584e-4 * t1287 * t736 * t731 + 0.76050000000000000000e-3 * t570 * t571 * t4234 + 0.10140000000000000000e-2 * t570 * t571 * t290 * t1754 - 0.65000000000000000000e-2 * t253 * t254 * t4224);
3153
3154 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3155 v4rho3sigma[0] = 0.0e0;
3156
3157 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3158 v4rho3sigma[1] = 0.0e0;
3159
3160 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3161 v4rho3sigma[2] = 0.0e0;
3162
3163 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3164 v4rho3sigma[3] = 0.0e0;
3165
3166 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3167 v4rho3sigma[4] = 0.0e0;
3168
3169 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3170 v4rho3sigma[5] = 0.0e0;
3171
3172 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3173 v4rho3sigma[6] = 0.0e0;
3174
3175 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3176 v4rho3sigma[7] = 0.0e0;
3177
3178 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3179 v4rho3sigma[8] = 0.0e0;
3180
3181 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3182 v4rho3sigma[9] = 0.0e0;
3183
3184 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3185 v4rho3sigma[10] = 0.0e0;
3186
3187 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3188 v4rho3sigma[11] = 0.0e0;
3189
3190 t4261 = t525 * t308;
3191 t4263 = t229 * t778;
3192 t4265 = t94 * t1844;
3193 t4281 = t235 * t538;
3194 t4285 = t99 * t1246;
3195 t4290 = t1235 * t104;
3196 t4301 = t301 * t1286;
3197 t4304 = t532 * t103;
3198 t4337 = -0.10400000000000000000e-2 * t656 * t1786 * t760 - 0.16666666666666666666e-1 * t300 * t1790 * t1797 + 0.39000000000000000000e-3 * t656 * t751 * t1278 - 0.11111111111111111111e-1 * t300 * t4281 * t1805 - 0.74074074074074074073e-3 * t300 * t4285 * t123 * t1247 + 0.10592592592592592592e0 * t253 * t254 * t4290 + 0.33333333333333333333e-2 * t300 * t755 * t123 * t1255 - 0.78000000000000000000e-4 * t656 * t301 * t3002 - 0.48082170339838674114e-7 * t4301 * t3156 + 0.44444444444444444444e-1 * t300 * t4304 * t756 + 0.12675000000000000000e-2 * t764 * t765 * t103 * t555 * t238 + 0.84499999999999999999e-3 * t764 * t765 * t540 * t245 - 0.42249999999999999999e-2 * t764 * t1835 * t1840 - 0.21666666666666666666e-1 * t773 * t774 * t1252 + 0.12675000000000000000e-2 * t764 * t765 * t543 * t245 - 0.32592592592592592592e-1 * t300 * t4290 * t123 - 0.30051356462399171321e-4 * t1927 * t103 * t562 * t238 - 0.18030813877439502792e-4 * t1927 * t1815 * t245;
3199 t4343 = t2141 * t555;
3200 t4358 = t560 * t1835;
3201 t4373 = t538 * t251;
3202 t4382 = t38 * t532;
3203 t4386 = t561 * t532;
3204 t4396 = t3020 * t301;
3205 t4399 = -0.92465712191997450218e-5 * t751 * t1783 + 0.92465712191997450218e-5 * t755 * t1783 * t238 + 0.55479427315198470132e-5 * t301 * t4343 + 0.30051356462399171321e-4 * t1287 * t751 * t562 - 0.12675000000000000000e-2 * t764 * t1835 * t1815 + 0.24074074074074074073e-2 * t773 * t774 * t1248 + 0.36111111111111111110e-1 * t773 * t1822 * t540 + 0.13000000000000000000e-2 * t4358 * t1812 + 0.66666666666666666666e-2 * t1900 * t1901 * t454 * t238 - 0.39000000000000000000e-3 * t1809 * t1810 * t454 * t245 - 0.39000000000000000000e-3 * t1809 * t1810 * t555 * t238 - 0.25999999999999999999e-3 * t1809 * t4373 * t539 * t245 + 0.25350000000000000000e-3 * t764 * t765 * t104 * t1273 - 0.14444444444444444444e0 * t773 * t4382 * t239 + 0.33799999999999999999e-2 * t764 * t4386 * t766 + 0.54166666666666666665e-1 * t773 * t1822 * t543 - 0.10833333333333333333e-1 * t773 * t774 * t1256 + 0.15626705360447569087e-6 * t4396 * t3156;
3206 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3207 v4rho3lapl[0] = 0.3e1 * t4261 + 0.6e1 * t4263 + 0.3e1 * t4265 + t1227 * t308 + 0.3e1 * t526 * t778 + 0.3e1 * t230 * t1844 + t232 * (t4337 + t4399);
3208
3209 t4402 = t525 * t316;
3210 t4404 = t229 * t799;
3211 t4406 = t94 * t1890;
3212 t4423 = t568 * t241;
3213 t4456 = t109 * t1260;
3214 t4465 = t546 * t251;
3215 t4478 = t3020 * t309;
3216 t4488 = 0.33333333333333333333e-2 * t300 * t782 * t123 * t1269 - 0.48082170339838674114e-7 * t309 * t1286 * t3156 - 0.78000000000000000000e-4 * t656 * t309 * t3002 + 0.92465712191997450218e-5 * t782 * t4423 * t562 + 0.55479427315198470132e-5 * t309 * t4343 + 0.84499999999999999999e-3 * t764 * t790 * t546 * t245 * t547 - 0.30051356462399171321e-4 * t1993 * t113 * t562 * t241 - 0.18030813877439502792e-4 * t1993 * t791 * t555 + 0.12675000000000000000e-2 * t764 * t790 * t113 * t555 * t241 + 0.12675000000000000000e-2 * t764 * t790 * t1875 * t551 + 0.24074074074074074073e-2 * t773 * t795 * t1262 - 0.21666666666666666666e-1 * t773 * t795 * t1266 - 0.74074074074074074073e-3 * t300 * t4456 * t123 * t1261 + 0.66666666666666666666e-2 * t1970 * t1971 * t241 * t551 - 0.25999999999999999999e-3 * t855 * t4465 * t547 * t245 - 0.39000000000000000000e-3 * t855 * t1858 * t551 * t245 - 0.39000000000000000000e-3 * t855 * t1858 * t241 * t555 + 0.15626705360447569087e-6 * t4478 * t3156 + 0.25350000000000000000e-3 * t764 * t790 * t114 * t1273 - 0.10833333333333333333e-1 * t773 * t795 * t1270;
3217 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3218 v4rho3lapl[1] = t1227 * t316 + 0.3e1 * t1890 * t230 + t232 * t4488 + 0.3e1 * t526 * t799 + 0.3e1 * t4402 + 0.6e1 * t4404 + 0.3e1 * t4406;
3219
3220 t4492 = 0.2e1 * t625 * t308;
3221 t4494 = 0.2e1 * t275 * t778;
3222 t4500 = 0.2e1 * t229 * t816;
3223 t4502 = 0.2e1 * t94 * t1956;
3224 t4518 = t755 * t568;
3225 t4522 = t3151 * t245;
3226 t4525 = t1474 * t555;
3227 t4528 = t1906 * t238;
3228 t4532 = t453 * t245;
3229 t4536 = t252 * t300;
3230 t4546 = 0.20034237641599447547e-4 * t1287 * t235 * t1928 - 0.10017118820799723773e-4 * t1927 * t279 * t562 - 0.12020542584959668528e-4 * t1927 * t1939 * t245 - 0.60102712924798342641e-5 * t1927 * t809 * t555 + 0.61643808127998300145e-5 * t4518 * t1917 * t245 + 0.36986284876798980088e-5 * t301 * t4522 + 0.18493142438399490044e-5 * t301 * t4525 + 0.56333333333333333332e-3 * t2177 * t1804 * t4528 + 0.84499999999999999998e-3 * t2177 * t755 * t4532 - 0.14444444444444444444e-1 * t4536 * t1804 * t1432 - 0.78000000000000000000e-4 * t656 * t301 * t3140 - 0.20034237641599447547e-4 * t1927 * t1934 * t1811;
3231 t4560 = t1480 * t300;
3232 t4566 = t103 * t651;
3233 t4584 = t538 * t290;
3234 t4592 = 0.42249999999999999999e-3 * t764 * t765 * t279 * t555 + 0.24074074074074074074e-1 * t773 * t1822 * t634 + 0.36111111111111111110e-1 * t773 * t1822 * t638 - 0.72222222222222222220e-2 * t773 * t774 * t1435 + 0.15626705360447569087e-6 * t4396 * t4560 - 0.14083333333333333333e-2 * t764 * t1835 * t1935 + 0.84500000000000000000e-3 * t764 * t765 * t4566 * t238 + 0.42250000000000000000e-3 * t764 * t765 * t1934 * t454 - 0.17333333333333333333e-3 * t1809 * t4373 * t4528 + 0.44444444444444444444e-2 * t1900 * t1901 * t1432 - 0.26000000000000000000e-3 * t1809 * t1810 * t4532 + 0.28166666666666666667e-3 * t764 * t765 * t4584 * t539 - 0.14083333333333333333e-2 * t764 * t1835 * t1943;
3235 t4603 = t123 * t452;
3236 t4613 = t568 * t278;
3237 t4633 = 0.24074074074074074073e-2 * t773 * t774 * t1428 + 0.32499999999999999999e-1 * t773 * t774 * t1441 + 0.14814814814814814815e-1 * t300 * t4304 * t802 + 0.33333333333333333333e-2 * t300 * t755 * t4603 - 0.34666666666666666667e-3 * t656 * t1786 * t657 + 0.26000000000000000000e-3 * t656 * t751 * t1470 + 0.30821904063999150072e-5 * t755 * t4613 * t562 - 0.61643808127998300145e-5 * t751 * t1921 - 0.13000000000000000000e-3 * t1809 * t1810 * t290 * t454 - 0.48082170339838674114e-7 * t301 * t3147 * t3740 - 0.84500000000000000000e-3 * t764 * t1835 * t1939 + 0.25350000000000000000e-3 * t764 * t765 * t104 * t1465;
3238 t4634 = t95 * t1822;
3239 t4671 = t1246 * t123;
3240 t4676 = -0.74074074074074074074e-2 * t4634 * t1903 + 0.43333333333333333333e-3 * t4358 * t1907 - 0.11111111111111111111e-1 * t4634 * t1911 + 0.22222222222222222222e-2 * t1900 * t1901 * t278 * t454 - 0.13000000000000000000e-3 * t1809 * t1810 * t278 * t555 + 0.43333333333333333334e-3 * t4358 * t1918 - 0.26000000000000000000e-3 * t1809 * t1810 * t651 * t238 - 0.48148148148148148147e-1 * t773 * t4382 * t279 - 0.10833333333333333333e-1 * t773 * t774 * t1438 + 0.11266666666666666667e-2 * t764 * t4386 * t809 - 0.99999999999999999999e-2 * t1900 * t1910 * t1094 - 0.86666666666666666667e-4 * t1809 * t4373 * t290 * t539 - 0.74074074074074074073e-3 * t1900 * t4671 * t278 * t539;
3241 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3242 v4rho3lapl[2] = t4261 + 0.2e1 * t4263 + t4265 + t4492 + t4494 + t1409 * t308 + 0.2e1 * t626 * t778 + t276 * t1844 + t4500 + t4502 + t526 * t816 + 0.2e1 * t230 * t1956 + t232 * (t4546 + t4592 + t4633 + t4676);
3243
3244 t4682 = 0.2e1 * t625 * t316;
3245 t4684 = 0.2e1 * t275 * t799;
3246 t4690 = 0.2e1 * t229 * t840;
3247 t4692 = 0.2e1 * t94 * t2024;
3248 t4696 = t283 * t546;
3249 t4715 = t568 * t286;
3250 t4729 = -0.37037037037037037037e-2 * t300 * t4696 * t1854 - 0.33333333333333333333e-2 * t300 * t782 * t4603 + 0.13000000000000000000e-3 * t656 * t819 * t1278 - 0.78000000000000000000e-4 * t656 * t309 * t3140 - 0.20034237641599447547e-4 * t1993 * t1997 * t1859 - 0.55555555555555555555e-2 * t300 * t1963 * t1863 + 0.30821904063999150072e-5 * t782 * t4715 * t562 + 0.18493142438399490044e-5 * t309 * t4525 + 0.10017118820799723773e-4 * t1287 * t819 * t562 + 0.36986284876798980088e-5 * t309 * t4522 + 0.14444444444444444444e-1 * t4536 * t1853 * t1453;
3251 t4730 = t1976 * t241;
3252 t4762 = t113 * t651;
3253 t4767 = 0.56333333333333333332e-3 * t2177 * t1853 * t4730 - 0.84499999999999999998e-3 * t2177 * t782 * t4532 - 0.30821904063999150072e-5 * t819 * t1783 + 0.24074074074074074073e-2 * t773 * t795 * t1449 - 0.32499999999999999999e-1 * t773 * t795 * t1462 + 0.28166666666666666667e-3 * t764 * t790 * t546 * t290 * t547 - 0.14083333333333333333e-2 * t764 * t2006 * t1876 + 0.42249999999999999999e-3 * t764 * t790 * t287 * t555 - 0.72222222222222222220e-2 * t773 * t795 * t1456 + 0.15626705360447569087e-6 * t4478 * t4560 + 0.84500000000000000000e-3 * t764 * t790 * t4762 * t241;
3254 t4791 = t782 * t568;
3255 t4806 = 0.42250000000000000000e-3 * t764 * t790 * t1997 * t551 - 0.17333333333333333333e-3 * t855 * t4465 * t4730 - 0.44444444444444444444e-2 * t1970 * t1971 * t1453 + 0.26000000000000000000e-3 * t855 * t1858 * t4532 - 0.10017118820799723773e-4 * t1993 * t287 * t562 - 0.12020542584959668528e-4 * t1993 * t2002 * t245 - 0.60102712924798342641e-5 * t1993 * t830 * t555 + 0.61643808127998300145e-5 * t4791 * t1984 * t245 - 0.13000000000000000000e-3 * t855 * t1858 * t290 * t551 - 0.48082170339838674114e-7 * t309 * t3147 * t3740 + 0.25350000000000000000e-3 * t764 * t790 * t114 * t1465;
3256 t4833 = t1260 * t123;
3257 t4845 = -0.42249999999999999999e-3 * t764 * t2006 * t1880 + 0.18055555555555555555e-1 * t773 * t2010 * t552 + 0.43333333333333333333e-3 * t2228 * t1860 + 0.22222222222222222222e-2 * t1970 * t1971 * t286 * t551 - 0.13000000000000000000e-3 * t855 * t1858 * t286 * t555 + 0.12037037037037037037e-1 * t773 * t2010 * t548 + 0.10833333333333333333e-1 * t773 * t795 * t1459 - 0.86666666666666666667e-4 * t855 * t4465 * t290 * t547 - 0.74074074074074074073e-3 * t1970 * t4833 * t286 * t547 + 0.99999999999999999999e-2 * t1970 * t1980 * t1094 - 0.26000000000000000000e-3 * t855 * t1858 * t651 * t241;
3258 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3259 v4rho3lapl[3] = t4402 + 0.2e1 * t4404 + t4406 + t4682 + t4684 + t1409 * t316 + 0.2e1 * t626 * t799 + t276 * t1890 + t4690 + t4692 + t526 * t840 + 0.2e1 * t230 * t2024 + t232 * (t4729 + t4767 + t4806 + t4845);
3260
3261 t4849 = t703 * t308;
3262 t4852 = t275 * t816;
3263 t4858 = t94 * t2065;
3264 t4879 = t1474 * t651;
3265 t4931 = -0.13000000000000000000e-3 * t1809 * t1810 * t675 * t245 - 0.48082170339838674114e-7 * t301 * t3734 * t4040 - 0.13000000000000000000e-3 * t1809 * t1810 * t731 * t238 + 0.25350000000000000000e-3 * t764 * t765 * t104 * t1628 - 0.10833333333333333333e-1 * t773 * t774 * t1603 - 0.74074074074074074073e-3 * t1900 * t4671 * t708 * t238 - 0.86666666666666666665e-4 * t1809 * t4373 * t708 * t245 - 0.26000000000000000000e-3 * t1809 * t1810 * t278 * t651 + 0.43333333333333333333e-3 * t4358 * t2036 - 0.42250000000000000000e-3 * t764 * t1835 * t2055 + 0.12037037037037037037e-1 * t773 * t1822 * t709;
3266 t4936 = t103 * t736;
3267 t4960 = t2035 * t238;
3268 t4965 = t453 * t290;
3269 t4969 = t736 * t37;
3270 t4970 = t4969 * t255;
3271 t4977 = t103 * t731;
3272 t5005 = -0.26000000000000000000e-3 * t1809 * t1810 * t4965 + 0.15626705360447569087e-6 * t4396 * t4970 + 0.84499999999999999999e-3 * t764 * t765 * t4566 * t278 + 0.42250000000000000000e-3 * t764 * t765 * t4977 * t238 + 0.24074074074074074073e-2 * t773 * t774 * t1588 + 0.28166666666666666666e-3 * t764 * t765 * t709 * t245 - 0.72222222222222222220e-2 * t773 * t774 * t1598 + 0.42249999999999999999e-3 * t764 * t765 * t712 * t245 - 0.14444444444444444444e-1 * t4536 * t1804 * t1592 + 0.56333333333333333333e-3 * t2177 * t1804 * t4960 + 0.84499999999999999999e-3 * t2177 * t755 * t4965;
3273 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3274 v4rho3lapl[4] = t4492 + t4494 + t4500 + t4502 + t4849 + t1574 * t308 + t704 * t778 + 0.2e1 * t4852 + 0.2e1 * t626 * t816 + 0.2e1 * t276 * t1956 + t4858 + t230 * t2065 + t232 * (-0.55555555555555555555e-2 * t300 * t1790 * t2039 + 0.13000000000000000000e-3 * t656 * t751 * t1633 - 0.37037037037037037037e-2 * t300 * t4281 * t2031 + 0.33333333333333333333e-2 * t300 * t755 * t123 * t1602 - 0.78000000000000000000e-4 * t656 * t301 * t3716 - 0.20034237641599447547e-4 * t1927 * t1934 * t1906 + 0.36986284876798980088e-5 * t301 * t4879 + 0.18493142438399490044e-5 * t301 * t3614 * t245 + 0.30821904063999150073e-5 * t755 * t1640 * t238 + 0.22222222222222222222e-2 * t1900 * t1901 * t675 * t238 + t4931 + 0.18055555555555555555e-1 * t773 * t1822 * t712 - 0.10017118820799723774e-4 * t1927 * t4936 * t238 - 0.12020542584959668528e-4 * t1927 * t809 * t651 - 0.60102712924798342641e-5 * t1927 * t2055 * t245 + 0.61643808127998300145e-5 * t4518 * t2035 * t245 - 0.30821904063999150073e-5 * t751 * t1640 + 0.10017118820799723774e-4 * t1287 * t751 * t736 - 0.14083333333333333333e-2 * t764 * t1835 * t2051 + 0.44444444444444444444e-2 * t1900 * t1901 * t1592 - 0.17333333333333333333e-3 * t1809 * t4373 * t4960 + t5005);
3275
3276 t5009 = t703 * t316;
3277 t5012 = t275 * t840;
3278 t5018 = t94 * t2125;
3279 t5020 = t1287 * t283;
3280 t5026 = t113 * t736;
3281 t5036 = t113 * t731;
3282 t5059 = 0.20034237641599447547e-4 * t5020 * t1994 - 0.60102712924798342641e-5 * t1993 * t2080 * t245 - 0.10017118820799723774e-4 * t1993 * t5026 * t241 - 0.12020542584959668528e-4 * t1993 * t830 * t651 + 0.61643808127998300145e-5 * t4791 * t2076 * t245 + 0.42250000000000000000e-3 * t764 * t790 * t5036 * t241 + 0.24074074074074074073e-1 * t773 * t2010 * t644 - 0.14083333333333333333e-2 * t764 * t2006 * t2014 - 0.36111111111111111110e-1 * t773 * t2010 * t648 - 0.72222222222222222220e-2 * t773 * t795 * t1621 + 0.42249999999999999999e-3 * t764 * t790 * t728 * t245 + 0.15626705360447569087e-6 * t4478 * t4970;
3283 t5063 = t2076 * t241;
3284 t5070 = t95 * t2010;
3285 t5094 = t38 * t717;
3286 t5098 = t561 * t717;
3287 t5102 = -0.44444444444444444444e-2 * t1970 * t1971 * t1617 - 0.17333333333333333333e-3 * t855 * t4465 * t5063 + 0.26000000000000000000e-3 * t855 * t1858 * t4965 + 0.11111111111111111111e-1 * t5070 * t1981 + 0.43333333333333333333e-3 * t2228 * t1985 + 0.22222222222222222222e-2 * t1970 * t1971 * t727 * t241 - 0.13000000000000000000e-3 * t855 * t1858 * t731 * t241 - 0.84499999999999999999e-3 * t764 * t2006 * t2002 - 0.26000000000000000000e-3 * t855 * t1858 * t286 * t651 + 0.25350000000000000000e-3 * t764 * t790 * t114 * t1628 - 0.48148148148148148147e-1 * t773 * t5094 * t242 + 0.11266666666666666666e-2 * t764 * t5098 * t791;
3288 t5105 = t560 * t561 * t245;
3289 t5136 = t309 * t731;
3290 t5145 = 0.43333333333333333332e-3 * t5105 * t251 * t283 * t287 - 0.10833333333333333333e-1 * t773 * t795 * t1625 - 0.13000000000000000000e-3 * t5105 * t251 * t109 * t728 - 0.48082170339838674114e-7 * t4040 * t1286 * t109 * t114 * t736 - 0.74074074074074074073e-2 * t5070 * t1973 - 0.74074074074074074073e-3 * t1970 * t4833 * t723 * t241 - 0.86666666666666666665e-4 * t855 * t4465 * t723 * t245 + 0.36986284876798980088e-5 * t309 * t4879 - 0.61643808127998300145e-5 * t819 * t1921 + 0.18493142438399490044e-5 * t2141 * t5136 - 0.78000000000000000000e-4 * t656 * t309 * t3716 - 0.20034237641599447547e-4 * t1993 * t1997 * t1976;
3291 t5149 = t717 * t113;
3292 t5186 = -0.34666666666666666666e-3 * t656 * t760 * t2084 + 0.14814814814814814815e-1 * t300 * t5149 * t783 + 0.30821904063999150073e-5 * t782 * t1640 * t241 + 0.26000000000000000000e-3 * t656 * t819 * t1470 + 0.33333333333333333333e-2 * t300 * t782 * t123 * t1624 - 0.14083333333333333333e-2 * t764 * t2006 * t1998 + 0.84499999999999999999e-3 * t764 * t790 * t4762 * t286 + 0.24074074074074074073e-2 * t773 * t795 * t1613 + 0.28166666666666666666e-3 * t764 * t790 * t724 * t245 + 0.56333333333333333333e-3 * t2177 * t1853 * t5063 - 0.84499999999999999999e-3 * t2177 * t782 * t4965 + 0.14444444444444444444e-1 * t4536 * t1853 * t1617;
3293 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3294 v4rho3lapl[5] = t4682 + t4684 + t4690 + t4692 + t5009 + t1574 * t316 + t704 * t799 + 0.2e1 * t5012 + 0.2e1 * t626 * t840 + 0.2e1 * t276 * t2024 + t5018 + t230 * t2125 + t232 * (t5059 + t5102 + t5145 + t5186);
3295
3296 t5237 = t1762 * t37 * t254;
3297 t5267 = 0.12675000000000000000e-2 * t764 * t765 * t4977 * t278 + 0.12675000000000000000e-2 * t764 * t765 * t1934 * t675 + 0.24074074074074074073e-2 * t773 * t774 * t1721 - 0.21666666666666666666e-1 * t773 * t774 * t1724 + 0.84499999999999999999e-3 * t764 * t765 * t4584 * t708 - 0.30051356462399171321e-4 * t1927 * t4936 * t278 - 0.18030813877439502792e-4 * t1927 * t809 * t731 + 0.92465712191997450218e-5 * t755 * t4613 * t736 + 0.55479427315198470132e-5 * t301 * t1474 * t731 - 0.39000000000000000000e-3 * t1809 * t1810 * t675 * t290 - 0.39000000000000000000e-3 * t1809 * t1810 * t278 * t731 + 0.15626705360447569087e-6 * t4396 * t5237 + 0.25350000000000000000e-3 * t764 * t765 * t104 * t1754 - 0.10833333333333333333e-1 * t773 * t774 * t1728 - 0.74074074074074074073e-3 * t300 * t4285 * t123 * t1720 + 0.66666666666666666666e-2 * t1900 * t1901 * t3952 - 0.25999999999999999999e-3 * t1809 * t4373 * t708 * t290 + 0.33333333333333333333e-2 * t300 * t755 * t123 * t1727 - 0.48082170339838674114e-7 * t4301 * t5237 - 0.78000000000000000000e-4 * t656 * t301 * t4021;
3298 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3299 v4rho3lapl[6] = t1714 * t308 + 0.3e1 * t2065 * t276 + t232 * t5267 + 0.3e1 * t704 * t816 + 0.3e1 * t4849 + 0.6e1 * t4852 + 0.3e1 * t4858;
3300
3301 t5335 = 0.24074074074074074073e-2 * t773 * t795 * t1744 - 0.39000000000000000000e-3 * t855 * t1858 * t727 * t290 - 0.39000000000000000000e-3 * t855 * t1858 * t286 * t731 + 0.25350000000000000000e-3 * t764 * t790 * t114 * t1754 - 0.14444444444444444444e0 * t773 * t5094 * t287 + 0.33799999999999999999e-2 * t764 * t5098 * t830 + 0.54166666666666666665e-1 * t773 * t2010 * t728 - 0.10833333333333333333e-1 * t773 * t795 * t1751 + 0.15626705360447569087e-6 * t4478 * t5237 + 0.66666666666666666666e-2 * t1970 * t1971 * t3997 - 0.25999999999999999999e-3 * t855 * t4465 * t723 * t290 + 0.36111111111111111110e-1 * t773 * t2010 * t724 + 0.13000000000000000000e-2 * t2228 * t2077 - 0.12675000000000000000e-2 * t764 * t2006 * t2080 - 0.42249999999999999999e-2 * t764 * t2006 * t2121 - 0.21666666666666666666e-1 * t773 * t795 * t1747 + 0.12675000000000000000e-2 * t764 * t790 * t728 * t290 + 0.12675000000000000000e-2 * t764 * t790 * t5036 * t286;
3302 t5362 = t1733 * t114;
3303 t5392 = 0.84499999999999999999e-3 * t764 * t790 * t724 * t290 + 0.44444444444444444444e-1 * t300 * t5149 * t823 - 0.16666666666666666666e-1 * t300 * t1963 * t2106 + 0.39000000000000000000e-3 * t656 * t819 * t1633 + 0.33333333333333333333e-2 * t300 * t782 * t123 * t1750 - 0.78000000000000000000e-4 * t656 * t309 * t4021 - 0.10400000000000000000e-2 * t656 * t657 * t2084 - 0.48082170339838674114e-7 * t300 * t4035 * t309 + 0.10592592592592592592e0 * t253 * t254 * t5362 - 0.11111111111111111111e-1 * t300 * t4696 * t2072 - 0.74074074074074074073e-3 * t300 * t4456 * t123 * t1743 - 0.92465712191997450218e-5 * t819 * t1640 + 0.30051356462399171321e-4 * t1287 * t819 * t736 + 0.55479427315198470132e-5 * t1474 * t5136 + 0.92465712191997450218e-5 * t782 * t4715 * t736 - 0.32592592592592592592e-1 * t300 * t5362 * t123 - 0.30051356462399171321e-4 * t1993 * t5026 * t286 - 0.18030813877439502792e-4 * t1993 * t2080 * t290;
3304 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3305 v4rho3lapl[7] = 0.3e1 * t5009 + 0.6e1 * t5012 + 0.3e1 * t5018 + t1714 * t316 + 0.3e1 * t704 * t840 + 0.3e1 * t276 * t2125 + t232 * (t5335 + t5392);
3306
3307 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3308 v4rho3tau[0] = 0.0e0;
3309
3310 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3311 v4rho3tau[1] = 0.0e0;
3312
3313 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3314 v4rho3tau[2] = 0.0e0;
3315
3316 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3317 v4rho3tau[3] = 0.0e0;
3318
3319 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3320 v4rho3tau[4] = 0.0e0;
3321
3322 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3323 v4rho3tau[5] = 0.0e0;
3324
3325 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3326 v4rho3tau[6] = 0.0e0;
3327
3328 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3329 v4rho3tau[7] = 0.0e0;
3330
3331 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3332 v4rho2sigma2[0] = 0.0e0;
3333
3334 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3335 v4rho2sigma2[1] = 0.0e0;
3336
3337 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3338 v4rho2sigma2[2] = 0.0e0;
3339
3340 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3341 v4rho2sigma2[3] = 0.0e0;
3342
3343 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3344 v4rho2sigma2[4] = 0.0e0;
3345
3346 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3347 v4rho2sigma2[5] = 0.0e0;
3348
3349 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3350 v4rho2sigma2[6] = 0.0e0;
3351
3352 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3353 v4rho2sigma2[7] = 0.0e0;
3354
3355 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3356 v4rho2sigma2[8] = 0.0e0;
3357
3358 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3359 v4rho2sigma2[9] = 0.0e0;
3360
3361 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3362 v4rho2sigma2[10] = 0.0e0;
3363
3364 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3365 v4rho2sigma2[11] = 0.0e0;
3366
3367 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3368 v4rho2sigma2[12] = 0.0e0;
3369
3370 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3371 v4rho2sigma2[13] = 0.0e0;
3372
3373 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3374 v4rho2sigma2[14] = 0.0e0;
3375
3376 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3377 v4rho2sigma2[15] = 0.0e0;
3378
3379 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3380 v4rho2sigma2[16] = 0.0e0;
3381
3382 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3383 v4rho2sigma2[17] = 0.0e0;
3384
3385 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3386 v4rho2sigmalapl[0] = 0.0e0;
3387
3388 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3389 v4rho2sigmalapl[1] = 0.0e0;
3390
3391 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3392 v4rho2sigmalapl[2] = 0.0e0;
3393
3394 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3395 v4rho2sigmalapl[3] = 0.0e0;
3396
3397 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3398 v4rho2sigmalapl[4] = 0.0e0;
3399
3400 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3401 v4rho2sigmalapl[5] = 0.0e0;
3402
3403 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3404 v4rho2sigmalapl[6] = 0.0e0;
3405
3406 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3407 v4rho2sigmalapl[7] = 0.0e0;
3408
3409 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3410 v4rho2sigmalapl[8] = 0.0e0;
3411
3412 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3413 v4rho2sigmalapl[9] = 0.0e0;
3414
3415 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3416 v4rho2sigmalapl[10] = 0.0e0;
3417
3418 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3419 v4rho2sigmalapl[11] = 0.0e0;
3420
3421 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3422 v4rho2sigmalapl[12] = 0.0e0;
3423
3424 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3425 v4rho2sigmalapl[13] = 0.0e0;
3426
3427 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3428 v4rho2sigmalapl[14] = 0.0e0;
3429
3430 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3431 v4rho2sigmalapl[15] = 0.0e0;
3432
3433 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3434 v4rho2sigmalapl[16] = 0.0e0;
3435
3436 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3437 v4rho2sigmalapl[17] = 0.0e0;
3438
3439 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3440 v4rho2sigmatau[0] = 0.0e0;
3441
3442 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3443 v4rho2sigmatau[1] = 0.0e0;
3444
3445 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3446 v4rho2sigmatau[2] = 0.0e0;
3447
3448 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3449 v4rho2sigmatau[3] = 0.0e0;
3450
3451 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3452 v4rho2sigmatau[4] = 0.0e0;
3453
3454 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3455 v4rho2sigmatau[5] = 0.0e0;
3456
3457 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3458 v4rho2sigmatau[6] = 0.0e0;
3459
3460 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3461 v4rho2sigmatau[7] = 0.0e0;
3462
3463 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3464 v4rho2sigmatau[8] = 0.0e0;
3465
3466 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3467 v4rho2sigmatau[9] = 0.0e0;
3468
3469 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3470 v4rho2sigmatau[10] = 0.0e0;
3471
3472 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3473 v4rho2sigmatau[11] = 0.0e0;
3474
3475 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3476 v4rho2sigmatau[12] = 0.0e0;
3477
3478 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3479 v4rho2sigmatau[13] = 0.0e0;
3480
3481 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3482 v4rho2sigmatau[14] = 0.0e0;
3483
3484 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3485 v4rho2sigmatau[15] = 0.0e0;
3486
3487 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3488 v4rho2sigmatau[16] = 0.0e0;
3489
3490 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3491 v4rho2sigmatau[17] = 0.0e0;
3492
3493 t5395 = t229 * t854;
3494 t5397 = t94 * t2155;
3495 t5408 = 0.1e1 / t96 / t2281 * t846;
3496 t5412 = t2130 * t2135;
3497 t5420 = t847 * t1286;
3498 t5427 = t843 * t1245;
3499 t5432 = t3020 * t847;
3500 t5438 = t561 * t2130;
3501 t5449 = t568 * t238;
3502 t5456 = t1287 * t843;
3503 t5461 = -0.12328761625599660029e-4 * t2131 * t2141 + 0.18493142438399490044e-5 * t847 * t3006 - 0.11266666666666666667e-2 * t656 * t5408 * t251 + 0.17333333333333333333e-2 * t656 * t5412 * t2137 - 0.26000000000000000000e-3 * t656 * t2136 * t251 * t454 - 0.48082170339838674114e-7 * t5420 * t3740 + 0.19716666666666666667e-2 * t764 * t2150 * t1245 * t539 - 0.60666666666666666667e-3 * t656 * t5427 * t251 * t539 + 0.15626705360447569087e-6 * t5432 * t3740 + 0.36616666666666666667e-2 * t570 * t571 * t5408 - 0.56333333333333333334e-2 * t764 * t5438 * t2151 + 0.84500000000000000000e-3 * t764 * t2150 * t2135 * t454 - 0.60102712924798342641e-5 * t1287 * t847 * t555 + 0.12328761625599660029e-4 * t2136 * t5449 * t245 + 0.40068475283198895094e-4 * t1287 * t2131 * t245 - 0.40068475283198895094e-4 * t5456 * t2135 * t245 * t238;
3504 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3505 v4rho2lapl2[0] = 0.2e1 * t2155 * t230 + t232 * t5461 + t526 * t854 + 0.2e1 * t5395 + 0.2e1 * t5397;
3506
3507 t5463 = t229 * t865;
3508 t5465 = t94 * t2189;
3509 t5470 = t301 * t551;
3510 t5474 = t1286 * t99;
3511 t5475 = t309 * t5474;
3512 t5477 = t104 * t562 * t300;
3513 t5480 = t1790 * t238;
3514 t5485 = t560 * t790 * t113;
3515 t5486 = t251 * t99;
3516 t5488 = t103 * t241 * t238;
3517 t5492 = t309 * t99;
3518 t5493 = t3020 * t5492;
3519 t5499 = t1804 * t539;
3520 t5503 = t301 * t547;
3521 t5507 = t751 * t241;
3522 t5514 = t755 * t454;
3523 t5518 = t782 * t99;
3524 t5525 = -0.13000000000000000000e-3 * t855 * t1858 * t5470 - 0.48082170339838674114e-7 * t5475 * t5477 + 0.43333333333333333334e-3 * t855 * t856 * t5480 - 0.43333333333333333334e-3 * t5485 * t5486 * t5488 + 0.15626705360447569087e-6 * t5493 * t5477 + 0.42250000000000000000e-3 * t2177 * t782 * t5470 + 0.28166666666666666667e-3 * t2177 * t309 * t5499 + 0.28166666666666666667e-3 * t2177 * t1853 * t5503 - 0.14083333333333333333e-2 * t2177 * t782 * t5507 - 0.14083333333333333333e-2 * t2177 * t309 * t5480 + 0.42250000000000000000e-3 * t2177 * t309 * t5514 + 0.14083333333333333333e-2 * t2177 * t5518 * t5488 - 0.13000000000000000000e-3 * t855 * t856 * t5514;
3525 t5546 = t1287 * t782;
3526 t5547 = t301 * t1859;
3527 t5550 = t1287 * t309;
3528 t5551 = t755 * t1811;
3529 t5567 = 0.11266666666666666667e-2 * t764 * t790 * t114 * t532 * t104 - 0.86666666666666666667e-4 * t855 * t4465 * t5503 + 0.43333333333333333334e-3 * t855 * t1858 * t5507 - 0.86666666666666666667e-4 * t855 * t856 * t5499 - 0.61643808127998300145e-5 * t2163 * t751 * t245 + 0.18493142438399490044e-5 * t2163 * t301 * t555 - 0.20034237641599447547e-4 * t5546 * t5547 - 0.20034237641599447547e-4 * t5550 * t5551 - 0.34666666666666666667e-3 * t855 * t856 * t1786 + 0.61643808127998300145e-5 * t2163 * t5551 - 0.60102712924798342641e-5 * t1993 * t860 * t1815 + 0.20034237641599447547e-4 * t1993 * t2181 * t766 + 0.61643808127998300145e-5 * t4791 * t5547;
3530 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3531 v4rho2lapl2[1] = 0.2e1 * t5463 + 0.2e1 * t5465 + t526 * t865 + 0.2e1 * t230 * t2189 + t232 * (t5525 + t5567);
3532
3533 t5570 = t229 * t878;
3534 t5572 = t94 * t2209;
3535 t5577 = t867 * t1259;
3536 t5589 = t871 * t1286;
3537 t5594 = t3020 * t871;
3538 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3539 v4rho2lapl2[2] = 0.2e1 * t5570 + 0.2e1 * t5572 + t526 * t878 + 0.2e1 * t230 * t2209 + t232 * (-0.60666666666666666667e-3 * t656 * t5577 * t251 * t547 + 0.12328761625599660029e-4 * t2194 * t4423 * t245 - 0.26000000000000000000e-3 * t656 * t2194 * t251 * t551 - 0.48082170339838674114e-7 * t5589 * t3740 + 0.18493142438399490044e-5 * t871 * t3006 + 0.15626705360447569087e-6 * t5594 * t3740 - 0.40068475283198895094e-4 * t2304 * t2193 * t245 * t241 - 0.60102712924798342641e-5 * t1287 * t871 * t555 + 0.19716666666666666667e-2 * t764 * t2204 * t1259 * t547 + 0.84500000000000000000e-3 * t764 * t2204 * t2193 * t551);
3540
3541 t5614 = t275 * t854;
3542 t5617 = t94 * t2225;
3543 t5622 = t560 * t2150;
3544 t5645 = t290 * t37 * t255;
3545 t5651 = t2135 * t290;
3546 t5674 = 0.86666666666666666667e-3 * t656 * t5412 * t2212 - 0.60666666666666666667e-3 * t5622 * t1245 * t251 * t1902 + 0.61643808127998300145e-5 * t2136 * t4613 * t245 - 0.26000000000000000000e-3 * t5622 * t2135 * t251 * t453 - 0.61643808127998300147e-5 * t2131 * t1474 + 0.61643808127998300147e-5 * t2136 * t1474 * t238 - 0.48082170339838674114e-7 * t847 * t3147 * t4040 + 0.18493142438399490044e-5 * t847 * t3151 + 0.15626705360447569087e-6 * t5432 * t5645 + 0.20034237641599447547e-4 * t1287 * t2131 * t290 - 0.20034237641599447547e-4 * t5456 * t5651 * t238 - 0.60102712924798342641e-5 * t1287 * t847 * t651 - 0.20034237641599447547e-4 * t5456 * t2221 * t245 - 0.28166666666666666667e-2 * t764 * t5438 * t2221 + 0.19716666666666666667e-2 * t764 * t2150 * t1245 * t278 * t238 + 0.84500000000000000000e-3 * t764 * t2150 * t2135 * t11 * t452;
3547 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3548 v4rho2lapl2[3] = t2155 * t276 + t2225 * t230 + t232 * t5674 + t626 * t854 + t5395 + t5397 + t5614 + t5617;
3549
3550 t5676 = t275 * t865;
3551 t5679 = t94 * t2254;
3552 t5685 = t104 * t286;
3553 t5686 = t5685 * t241;
3554 t5690 = t103 * t286;
3555 t5691 = t5690 * t238;
3556 t5696 = t104 * t11 * t452;
3557 t5700 = t279 * t241;
3558 t5719 = t751 * t286;
3559 t5723 = t1790 * t278;
3560 t5749 = -0.70416666666666666667e-3 * t2177 * t1963 * t2159 + 0.28166666666666666667e-3 * t2177 * t1853 * t99 * t5686 + 0.70416666666666666667e-3 * t2177 * t5518 * t5691 - 0.42250000000000000000e-3 * t2177 * t5518 * t5696 + 0.70416666666666666667e-3 * t2177 * t5518 * t5700 + 0.28166666666666666667e-3 * t2177 * t5492 * t634 + 0.42250000000000000000e-3 * t2177 * t5492 * t638 + 0.15626705360447569087e-6 * t5493 * t809 * t37 * t255 + 0.21666666666666666667e-3 * t2228 * t2171 + 0.70416666666666666667e-3 * t764 * t2006 * t2182 + 0.21666666666666666667e-3 * t855 * t1858 * t5719 + 0.21666666666666666667e-3 * t855 * t856 * t5723 + 0.21666666666666666667e-3 * t2228 * t2160 - 0.70416666666666666667e-3 * t2177 * t819 * t2170 - 0.86666666666666666667e-4 * t560 * t790 * t546 * t5486 * t5686 - 0.21666666666666666667e-3 * t5485 * t5486 * t5691 + 0.13000000000000000000e-3 * t5485 * t5486 * t5696 - 0.48082170339838674114e-7 * t309 * t4301 * t5645 - 0.21666666666666666667e-3 * t5485 * t5486 * t5700;
3561 t5751 = t560 * t790 * t114;
3562 t5767 = t819 * t568;
3563 t5773 = t301 * t1976;
3564 t5776 = t301 * t1984;
3565 t5779 = t755 * t1917;
3566 t5782 = t755 * t1906;
3567 t5803 = -0.86666666666666666667e-4 * t5751 * t5486 * t634 - 0.13000000000000000000e-3 * t5751 * t5486 * t638 - 0.70416666666666666667e-3 * t2177 * t782 * t5719 - 0.70416666666666666667e-3 * t2177 * t309 * t5723 - 0.30821904063999150073e-5 * t2163 * t751 * t290 - 0.30821904063999150072e-5 * t5767 * t2164 + 0.18493142438399490044e-5 * t2163 * t301 * t651 + 0.30821904063999150072e-5 * t4791 * t5773 + 0.30821904063999150073e-5 * t4791 * t5776 + 0.30821904063999150073e-5 * t2163 * t5779 + 0.30821904063999150072e-5 * t2163 * t5782 - 0.60102712924798342641e-5 * t1993 * t860 * t1939 + 0.10017118820799723773e-4 * t5020 * t2174 + 0.10017118820799723774e-4 * t1993 * t2181 * t809 - 0.21666666666666666667e-3 * t2228 * t2167 - 0.10017118820799723774e-4 * t5546 * t5776 - 0.10017118820799723774e-4 * t5550 * t5779 - 0.10017118820799723773e-4 * t5546 * t5773 - 0.10017118820799723773e-4 * t5550 * t5782;
3568 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3569 v4rho2lapl2[4] = t5463 + t5465 + t5676 + t626 * t865 + t276 * t2189 + t5679 + t230 * t2254 + t232 * (t5749 + t5803);
3570
3571 t5806 = t275 * t878;
3572 t5809 = t94 * t2279;
3573 t5811 = t2258 * t2193;
3574 t5817 = t560 * t2204;
3575 t5839 = t2193 * t290;
3576 t5849 = t561 * t2258;
3577 t5866 = 0.86666666666666666667e-3 * t656 * t5811 * t2195 - 0.61643808127998300145e-5 * t2259 * t2141 - 0.60666666666666666667e-3 * t5817 * t1259 * t251 * t1972 + 0.61643808127998300145e-5 * t2194 * t4715 * t245 + 0.26000000000000000000e-3 * t5817 * t2193 * t251 * t453 + 0.61643808127998300147e-5 * t2194 * t1474 * t241 - 0.48082170339838674114e-7 * t871 * t3147 * t4040 + 0.18493142438399490044e-5 * t871 * t3151 + 0.15626705360447569087e-6 * t5594 * t5645 - 0.20034237641599447547e-4 * t2304 * t5839 * t241 - 0.60102712924798342641e-5 * t1287 * t871 * t651 + 0.20034237641599447547e-4 * t1287 * t2259 * t245 - 0.28166666666666666667e-2 * t764 * t5849 * t2205 - 0.20034237641599447547e-4 * t2304 * t2275 * t245 + 0.19716666666666666667e-2 * t764 * t2204 * t1259 * t286 * t241 - 0.84500000000000000000e-3 * t764 * t2204 * t2193 * t11 * t452;
3578 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3579 v4rho2lapl2[5] = t2209 * t276 + t2279 * t230 + t232 * t5866 + t626 * t878 + t5570 + t5572 + t5806 + t5809;
3580
3581 t5884 = t4969 * t254;
3582 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3583 v4rho2lapl2[6] = 0.2e1 * t5614 + 0.2e1 * t5617 + t704 * t854 + 0.2e1 * t276 * t2225 + t232 * (-0.60666666666666666667e-3 * t656 * t5427 * t251 * t708 + 0.12328761625599660029e-4 * t2136 * t4613 * t290 - 0.26000000000000000000e-3 * t656 * t2136 * t251 * t675 - 0.48082170339838674114e-7 * t5420 * t5884 + 0.18493142438399490044e-5 * t847 * t3614 + 0.15626705360447569087e-6 * t5432 * t5884 - 0.40068475283198895094e-4 * t5456 * t5651 * t278 - 0.60102712924798342641e-5 * t1287 * t847 * t731 + 0.19716666666666666667e-2 * t764 * t2150 * t1245 * t708 + 0.84500000000000000000e-3 * t764 * t2150 * t2135 * t675);
3584
3585 t5915 = t301 * t2076;
3586 t5918 = t755 * t2035;
3587 t5922 = t104 * t736 * t300;
3588 t5925 = t301 * t723;
3589 t5929 = t1804 * t708;
3590 t5933 = t5690 * t278;
3591 t5947 = t301 * t727;
3592 t5953 = -0.34666666666666666667e-3 * t560 * t5098 * t857 - 0.20034237641599447547e-4 * t5546 * t5915 - 0.20034237641599447547e-4 * t5550 * t5918 + 0.15626705360447569087e-6 * t5493 * t5922 + 0.28166666666666666667e-3 * t2177 * t1853 * t5925 + 0.28166666666666666667e-3 * t2177 * t309 * t5929 + 0.14083333333333333333e-2 * t2177 * t5518 * t5933 - 0.61643808127998300145e-5 * t5767 * t2235 + 0.18493142438399490044e-5 * t2163 * t301 * t731 - 0.86666666666666666667e-4 * t855 * t856 * t5929 + 0.43333333333333333334e-3 * t2228 * t2239 - 0.13000000000000000000e-3 * t855 * t1858 * t5947 - 0.48082170339838674114e-7 * t5475 * t5922;
3593 t5954 = t755 * t675;
3594 t5990 = -0.13000000000000000000e-3 * t855 * t856 * t5954 + 0.43333333333333333334e-3 * t2228 * t2232 + 0.11266666666666666667e-2 * t764 * t5098 * t861 - 0.86666666666666666667e-4 * t855 * t4465 * t5925 + 0.20034237641599447547e-4 * t5020 * t2242 - 0.60102712924798342641e-5 * t1993 * t860 * t2055 + 0.61643808127998300145e-5 * t4791 * t5915 + 0.61643808127998300145e-5 * t2163 * t5918 - 0.14083333333333333333e-2 * t2177 * t1963 * t2231 - 0.14083333333333333333e-2 * t2177 * t819 * t2238 + 0.42250000000000000000e-3 * t2177 * t782 * t5947 + 0.42250000000000000000e-3 * t2177 * t309 * t5954 - 0.43333333333333333334e-3 * t5485 * t5486 * t5933;
3595 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3596 v4rho2lapl2[7] = 0.2e1 * t5676 + 0.2e1 * t5679 + t704 * t865 + 0.2e1 * t276 * t2254 + t232 * (t5953 + t5990);
3597
3598 t6018 = 0.1e1 / t106 / t2310 * t870;
3599 t6049 = 0.12328761625599660029e-4 * t2194 * t4715 * t290 + 0.40068475283198895094e-4 * t1287 * t2259 * t290 - 0.40068475283198895094e-4 * t2304 * t5839 * t286 - 0.12328761625599660029e-4 * t2259 * t1474 + 0.18493142438399490044e-5 * t871 * t3614 - 0.60102712924798342641e-5 * t1287 * t871 * t731 - 0.48082170339838674114e-7 * t5589 * t5884 - 0.11266666666666666667e-2 * t656 * t6018 * t251 + 0.17333333333333333333e-2 * t656 * t5811 * t2263 - 0.26000000000000000000e-3 * t656 * t2194 * t251 * t727 + 0.19716666666666666667e-2 * t764 * t2204 * t1259 * t723 - 0.60666666666666666667e-3 * t656 * t5577 * t251 * t723 + 0.15626705360447569087e-6 * t5594 * t5884 + 0.36616666666666666667e-2 * t570 * t571 * t6018 - 0.56333333333333333334e-2 * t764 * t5849 * t2275 + 0.84500000000000000000e-3 * t764 * t2204 * t2193 * t727;
3600 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3601 v4rho2lapl2[8] = 0.2e1 * t2279 * t276 + t232 * t6049 + t704 * t878 + 0.2e1 * t5806 + 0.2e1 * t5809;
3602
3603 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3604 v4rho2lapltau[0] = 0.0e0;
3605
3606 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3607 v4rho2lapltau[1] = 0.0e0;
3608
3609 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3610 v4rho2lapltau[2] = 0.0e0;
3611
3612 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3613 v4rho2lapltau[3] = 0.0e0;
3614
3615 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3616 v4rho2lapltau[4] = 0.0e0;
3617
3618 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3619 v4rho2lapltau[5] = 0.0e0;
3620
3621 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3622 v4rho2lapltau[6] = 0.0e0;
3623
3624 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3625 v4rho2lapltau[7] = 0.0e0;
3626
3627 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3628 v4rho2lapltau[8] = 0.0e0;
3629
3630 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3631 v4rho2lapltau[9] = 0.0e0;
3632
3633 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3634 v4rho2lapltau[10] = 0.0e0;
3635
3636 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3637 v4rho2lapltau[11] = 0.0e0;
3638
3639 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3640 v4rho2tau2[0] = 0.0e0;
3641
3642 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3643 v4rho2tau2[1] = 0.0e0;
3644
3645 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3646 v4rho2tau2[2] = 0.0e0;
3647
3648 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3649 v4rho2tau2[3] = 0.0e0;
3650
3651 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3652 v4rho2tau2[4] = 0.0e0;
3653
3654 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3655 v4rho2tau2[5] = 0.0e0;
3656
3657 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3658 v4rho2tau2[6] = 0.0e0;
3659
3660 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3661 v4rho2tau2[7] = 0.0e0;
3662
3663 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3664 v4rho2tau2[8] = 0.0e0;
3665
3666 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3667 v4rhosigma3[0] = 0.0e0;
3668
3669 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3670 v4rhosigma3[1] = 0.0e0;
3671
3672 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3673 v4rhosigma3[2] = 0.0e0;
3674
3675 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3676 v4rhosigma3[3] = 0.0e0;
3677
3678 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3679 v4rhosigma3[4] = 0.0e0;
3680
3681 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3682 v4rhosigma3[5] = 0.0e0;
3683
3684 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3685 v4rhosigma3[6] = 0.0e0;
3686
3687 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3688 v4rhosigma3[7] = 0.0e0;
3689
3690 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3691 v4rhosigma3[8] = 0.0e0;
3692
3693 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3694 v4rhosigma3[9] = 0.0e0;
3695
3696 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3697 v4rhosigma3[10] = 0.0e0;
3698
3699 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3700 v4rhosigma3[11] = 0.0e0;
3701
3702 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3703 v4rhosigma3[12] = 0.0e0;
3704
3705 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3706 v4rhosigma3[13] = 0.0e0;
3707
3708 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3709 v4rhosigma3[14] = 0.0e0;
3710
3711 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3712 v4rhosigma3[15] = 0.0e0;
3713
3714 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3715 v4rhosigma3[16] = 0.0e0;
3716
3717 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3718 v4rhosigma3[17] = 0.0e0;
3719
3720 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3721 v4rhosigma3[18] = 0.0e0;
3722
3723 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3724 v4rhosigma3[19] = 0.0e0;
3725
3726 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3727 v4rhosigma2lapl[0] = 0.0e0;
3728
3729 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3730 v4rhosigma2lapl[1] = 0.0e0;
3731
3732 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3733 v4rhosigma2lapl[2] = 0.0e0;
3734
3735 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3736 v4rhosigma2lapl[3] = 0.0e0;
3737
3738 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3739 v4rhosigma2lapl[4] = 0.0e0;
3740
3741 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3742 v4rhosigma2lapl[5] = 0.0e0;
3743
3744 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3745 v4rhosigma2lapl[6] = 0.0e0;
3746
3747 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3748 v4rhosigma2lapl[7] = 0.0e0;
3749
3750 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3751 v4rhosigma2lapl[8] = 0.0e0;
3752
3753 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3754 v4rhosigma2lapl[9] = 0.0e0;
3755
3756 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3757 v4rhosigma2lapl[10] = 0.0e0;
3758
3759 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3760 v4rhosigma2lapl[11] = 0.0e0;
3761
3762 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3763 v4rhosigma2lapl[12] = 0.0e0;
3764
3765 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3766 v4rhosigma2lapl[13] = 0.0e0;
3767
3768 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3769 v4rhosigma2lapl[14] = 0.0e0;
3770
3771 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3772 v4rhosigma2lapl[15] = 0.0e0;
3773
3774 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3775 v4rhosigma2lapl[16] = 0.0e0;
3776
3777 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3778 v4rhosigma2lapl[17] = 0.0e0;
3779
3780 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3781 v4rhosigma2lapl[18] = 0.0e0;
3782
3783 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3784 v4rhosigma2lapl[19] = 0.0e0;
3785
3786 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3787 v4rhosigma2lapl[20] = 0.0e0;
3788
3789 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3790 v4rhosigma2lapl[21] = 0.0e0;
3791
3792 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3793 v4rhosigma2lapl[22] = 0.0e0;
3794
3795 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3796 v4rhosigma2lapl[23] = 0.0e0;
3797
3798 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3799 v4rhosigma2tau[0] = 0.0e0;
3800
3801 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3802 v4rhosigma2tau[1] = 0.0e0;
3803
3804 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3805 v4rhosigma2tau[2] = 0.0e0;
3806
3807 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3808 v4rhosigma2tau[3] = 0.0e0;
3809
3810 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3811 v4rhosigma2tau[4] = 0.0e0;
3812
3813 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3814 v4rhosigma2tau[5] = 0.0e0;
3815
3816 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3817 v4rhosigma2tau[6] = 0.0e0;
3818
3819 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3820 v4rhosigma2tau[7] = 0.0e0;
3821
3822 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3823 v4rhosigma2tau[8] = 0.0e0;
3824
3825 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3826 v4rhosigma2tau[9] = 0.0e0;
3827
3828 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3829 v4rhosigma2tau[10] = 0.0e0;
3830
3831 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3832 v4rhosigma2tau[11] = 0.0e0;
3833
3834 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3835 v4rhosigma2tau[12] = 0.0e0;
3836
3837 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3838 v4rhosigma2tau[13] = 0.0e0;
3839
3840 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3841 v4rhosigma2tau[14] = 0.0e0;
3842
3843 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3844 v4rhosigma2tau[15] = 0.0e0;
3845
3846 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3847 v4rhosigma2tau[16] = 0.0e0;
3848
3849 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3850 v4rhosigma2tau[17] = 0.0e0;
3851
3852 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3853 v4rhosigma2tau[18] = 0.0e0;
3854
3855 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3856 v4rhosigma2tau[19] = 0.0e0;
3857
3858 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3859 v4rhosigma2tau[20] = 0.0e0;
3860
3861 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3862 v4rhosigma2tau[21] = 0.0e0;
3863
3864 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3865 v4rhosigma2tau[22] = 0.0e0;
3866
3867 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3868 v4rhosigma2tau[23] = 0.0e0;
3869
3870 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3871 v4rhosigmalapl2[0] = 0.0e0;
3872
3873 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3874 v4rhosigmalapl2[1] = 0.0e0;
3875
3876 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3877 v4rhosigmalapl2[2] = 0.0e0;
3878
3879 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3880 v4rhosigmalapl2[3] = 0.0e0;
3881
3882 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3883 v4rhosigmalapl2[4] = 0.0e0;
3884
3885 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3886 v4rhosigmalapl2[5] = 0.0e0;
3887
3888 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3889 v4rhosigmalapl2[6] = 0.0e0;
3890
3891 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3892 v4rhosigmalapl2[7] = 0.0e0;
3893
3894 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3895 v4rhosigmalapl2[8] = 0.0e0;
3896
3897 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3898 v4rhosigmalapl2[9] = 0.0e0;
3899
3900 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3901 v4rhosigmalapl2[10] = 0.0e0;
3902
3903 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3904 v4rhosigmalapl2[11] = 0.0e0;
3905
3906 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3907 v4rhosigmalapl2[12] = 0.0e0;
3908
3909 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3910 v4rhosigmalapl2[13] = 0.0e0;
3911
3912 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3913 v4rhosigmalapl2[14] = 0.0e0;
3914
3915 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3916 v4rhosigmalapl2[15] = 0.0e0;
3917
3918 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3919 v4rhosigmalapl2[16] = 0.0e0;
3920
3921 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3922 v4rhosigmalapl2[17] = 0.0e0;
3923
3924 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3925 v4rhosigmalapltau[0] = 0.0e0;
3926
3927 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3928 v4rhosigmalapltau[1] = 0.0e0;
3929
3930 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3931 v4rhosigmalapltau[2] = 0.0e0;
3932
3933 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3934 v4rhosigmalapltau[3] = 0.0e0;
3935
3936 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3937 v4rhosigmalapltau[4] = 0.0e0;
3938
3939 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3940 v4rhosigmalapltau[5] = 0.0e0;
3941
3942 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3943 v4rhosigmalapltau[6] = 0.0e0;
3944
3945 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3946 v4rhosigmalapltau[7] = 0.0e0;
3947
3948 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3949 v4rhosigmalapltau[8] = 0.0e0;
3950
3951 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3952 v4rhosigmalapltau[9] = 0.0e0;
3953
3954 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3955 v4rhosigmalapltau[10] = 0.0e0;
3956
3957 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3958 v4rhosigmalapltau[11] = 0.0e0;
3959
3960 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3961 v4rhosigmalapltau[12] = 0.0e0;
3962
3963 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3964 v4rhosigmalapltau[13] = 0.0e0;
3965
3966 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3967 v4rhosigmalapltau[14] = 0.0e0;
3968
3969 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3970 v4rhosigmalapltau[15] = 0.0e0;
3971
3972 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3973 v4rhosigmalapltau[16] = 0.0e0;
3974
3975 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3976 v4rhosigmalapltau[17] = 0.0e0;
3977
3978 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3979 v4rhosigmalapltau[18] = 0.0e0;
3980
3981 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3982 v4rhosigmalapltau[19] = 0.0e0;
3983
3984 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3985 v4rhosigmalapltau[20] = 0.0e0;
3986
3987 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3988 v4rhosigmalapltau[21] = 0.0e0;
3989
3990 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3991 v4rhosigmalapltau[22] = 0.0e0;
3992
3993 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3994 v4rhosigmalapltau[23] = 0.0e0;
3995
3996 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3997 v4rhosigmatau2[0] = 0.0e0;
3998
3999 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4000 v4rhosigmatau2[1] = 0.0e0;
4001
4002 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4003 v4rhosigmatau2[2] = 0.0e0;
4004
4005 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4006 v4rhosigmatau2[3] = 0.0e0;
4007
4008 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4009 v4rhosigmatau2[4] = 0.0e0;
4010
4011 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4012 v4rhosigmatau2[5] = 0.0e0;
4013
4014 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4015 v4rhosigmatau2[6] = 0.0e0;
4016
4017 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4018 v4rhosigmatau2[7] = 0.0e0;
4019
4020 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4021 v4rhosigmatau2[8] = 0.0e0;
4022
4023 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4024 v4rhosigmatau2[9] = 0.0e0;
4025
4026 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4027 v4rhosigmatau2[10] = 0.0e0;
4028
4029 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4030 v4rhosigmatau2[11] = 0.0e0;
4031
4032 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4033 v4rhosigmatau2[12] = 0.0e0;
4034
4035 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4036 v4rhosigmatau2[13] = 0.0e0;
4037
4038 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4039 v4rhosigmatau2[14] = 0.0e0;
4040
4041 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4042 v4rhosigmatau2[15] = 0.0e0;
4043
4044 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4045 v4rhosigmatau2[16] = 0.0e0;
4046
4047 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4048 v4rhosigmatau2[17] = 0.0e0;
4049
4050 t6051 = t94 * t2290;
4051 t6053 = t1233 * t233;
4052 t6055 = 0.1e1 / t6053 * t2284;
4053 t6058 = t2282 * t2283;
4054 t6061 = t2285 * t1286;
4055 t6064 = t3020 * t2285;
4056 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4057 v4rholapl3[0] = t6051 + t230 * t2290 + t232 * (-0.92465712191997450220e-5 * t6055 * t568 + 0.92465712191997450220e-5 * t6058 * t5449 - 0.48082170339838674114e-7 * t6061 * t4040 + 0.15626705360447569087e-6 * t6064 * t4040 + 0.30051356462399171320e-4 * t1287 * t6055 - 0.30051356462399171320e-4 * t1287 * t6058 * t238);
4058
4059 t6074 = t94 * t2299;
4060 t6079 = t1286 * t843;
4061 t6080 = t309 * t6079;
4062 t6081 = t846 * t37;
4063 t6082 = t6081 * t255;
4064 t6093 = t3020 * t309 * t843;
4065 t6096 = t113 * t843;
4066 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4067 v4rholapl3[1] = t6074 + t230 * t2299 + t232 * (0.30821904063999150073e-5 * t4791 * t847 * t241 - 0.48082170339838674114e-7 * t6080 * t6082 - 0.61643808127998300147e-5 * t309 * t568 * t2130 * t846 + 0.61643808127998300147e-5 * t2163 * t2136 * t238 + 0.15626705360447569087e-6 * t6093 * t6082 - 0.10017118820799723774e-4 * t1993 * t6096 * t846 * t241 + 0.20034237641599447547e-4 * t1993 * t114 * t2130 * t846 - 0.20034237641599447547e-4 * t1993 * t2295 * t2151);
4068
4069 t6110 = t94 * t2309;
4070 t6112 = t2194 * t568;
4071 t6115 = t871 * t5474;
4072 t6116 = t104 * t37;
4073 t6117 = t6116 * t255;
4074 t6124 = t871 * t568;
4075 t6128 = t3020 * t871 * t99;
4076 t6131 = t2193 * t99;
4077 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4078 v4rholapl3[2] = t6110 + t230 * t2309 + t232 * (0.61643808127998300147e-5 * t6112 * t2159 - 0.48082170339838674114e-7 * t6115 * t6117 - 0.30821904063999150073e-5 * t871 * t568 * t235 * t104 + 0.30821904063999150073e-5 * t6124 * t2170 + 0.15626705360447569087e-6 * t6128 * t6117 - 0.20034237641599447547e-4 * t2304 * t6131 * t104 * t241 + 0.10017118820799723774e-4 * t2304 * t870 * t235 * t104 - 0.10017118820799723774e-4 * t2304 * t2305 * t239);
4079
4080 t6145 = t94 * t2319;
4081 t6147 = t2311 * t2312;
4082 t6150 = t2314 * t1286;
4083 t6153 = t3020 * t2314;
4084 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4085 v4rholapl3[3] = t6145 + t230 * t2319 + t232 * (0.92465712191997450220e-5 * t6147 * t4423 - 0.48082170339838674114e-7 * t6150 * t4040 + 0.15626705360447569087e-6 * t6153 * t4040 - 0.30051356462399171320e-4 * t1287 * t6147 * t241);
4086
4087 t6164 = t95 * t291;
4088 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4089 v4rholapl3[4] = t6051 + t276 * t2290 + t232 * (0.92465712191997450220e-5 * t6058 * t4613 - 0.48082170339838674114e-7 * t6061 * t6164 + 0.15626705360447569087e-6 * t6064 * t6164 - 0.30051356462399171320e-4 * t1287 * t6058 * t278);
4090
4091 t6180 = t6081 * t295;
4092 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4093 v4rholapl3[5] = t6074 + t276 * t2299 + t232 * (-0.30821904063999150073e-5 * t819 * t2292 + 0.30821904063999150073e-5 * t4791 * t847 * t286 - 0.48082170339838674114e-7 * t6080 * t6180 + 0.61643808127998300147e-5 * t2163 * t2136 * t278 + 0.15626705360447569087e-6 * t6093 * t6180 + 0.10017118820799723774e-4 * t5020 * t2296 - 0.10017118820799723774e-4 * t1993 * t6096 * t846 * t286 - 0.20034237641599447547e-4 * t1993 * t2295 * t2221);
4094
4095 t6204 = t6116 * t295;
4096 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4097 v4rholapl3[6] = t6110 + t276 * t2309 + t232 * (-0.61643808127998300147e-5 * t2259 * t2301 + 0.61643808127998300147e-5 * t6112 * t2231 - 0.48082170339838674114e-7 * t6115 * t6204 + 0.30821904063999150073e-5 * t6124 * t2238 + 0.15626705360447569087e-6 * t6128 * t6204 + 0.20034237641599447547e-4 * t1287 * t2258 * t2306 - 0.20034237641599447547e-4 * t2304 * t6131 * t5685 - 0.10017118820799723774e-4 * t2304 * t2305 * t279);
4098
4099 t6223 = t1731 * t281;
4100 t6225 = 0.1e1 / t6223 * t2313;
4101 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4102 v4rholapl3[7] = t6145 + t276 * t2319 + t232 * (-0.92465712191997450220e-5 * t6225 * t568 + 0.92465712191997450220e-5 * t6147 * t4715 - 0.48082170339838674114e-7 * t6150 * t6164 + 0.15626705360447569087e-6 * t6153 * t6164 + 0.30051356462399171320e-4 * t1287 * t6225 - 0.30051356462399171320e-4 * t1287 * t6147 * t286);
4103
4104 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4105 v4rholapl2tau[0] = 0.0e0;
4106
4107 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4108 v4rholapl2tau[1] = 0.0e0;
4109
4110 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4111 v4rholapl2tau[2] = 0.0e0;
4112
4113 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4114 v4rholapl2tau[3] = 0.0e0;
4115
4116 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4117 v4rholapl2tau[4] = 0.0e0;
4118
4119 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4120 v4rholapl2tau[5] = 0.0e0;
4121
4122 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4123 v4rholapl2tau[6] = 0.0e0;
4124
4125 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4126 v4rholapl2tau[7] = 0.0e0;
4127
4128 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4129 v4rholapl2tau[8] = 0.0e0;
4130
4131 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4132 v4rholapl2tau[9] = 0.0e0;
4133
4134 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4135 v4rholapl2tau[10] = 0.0e0;
4136
4137 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4138 v4rholapl2tau[11] = 0.0e0;
4139
4140 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4141 v4rholapltau2[0] = 0.0e0;
4142
4143 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4144 v4rholapltau2[1] = 0.0e0;
4145
4146 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4147 v4rholapltau2[2] = 0.0e0;
4148
4149 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4150 v4rholapltau2[3] = 0.0e0;
4151
4152 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4153 v4rholapltau2[4] = 0.0e0;
4154
4155 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4156 v4rholapltau2[5] = 0.0e0;
4157
4158 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4159 v4rholapltau2[6] = 0.0e0;
4160
4161 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4162 v4rholapltau2[7] = 0.0e0;
4163
4164 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4165 v4rholapltau2[8] = 0.0e0;
4166
4167 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4168 v4rholapltau2[9] = 0.0e0;
4169
4170 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4171 v4rholapltau2[10] = 0.0e0;
4172
4173 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4174 v4rholapltau2[11] = 0.0e0;
4175
4176 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4177 v4rhotau3[0] = 0.0e0;
4178
4179 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4180 v4rhotau3[1] = 0.0e0;
4181
4182 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4183 v4rhotau3[2] = 0.0e0;
4184
4185 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4186 v4rhotau3[3] = 0.0e0;
4187
4188 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4189 v4rhotau3[4] = 0.0e0;
4190
4191 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4192 v4rhotau3[5] = 0.0e0;
4193
4194 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4195 v4rhotau3[6] = 0.0e0;
4196
4197 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4198 v4rhotau3[7] = 0.0e0;
4199
4200 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4201 v4sigma4[0] = 0.0e0;
4202
4203 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4204 v4sigma4[1] = 0.0e0;
4205
4206 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4207 v4sigma4[2] = 0.0e0;
4208
4209 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4210 v4sigma4[3] = 0.0e0;
4211
4212 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4213 v4sigma4[4] = 0.0e0;
4214
4215 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4216 v4sigma4[5] = 0.0e0;
4217
4218 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4219 v4sigma4[6] = 0.0e0;
4220
4221 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4222 v4sigma4[7] = 0.0e0;
4223
4224 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4225 v4sigma4[8] = 0.0e0;
4226
4227 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4228 v4sigma4[9] = 0.0e0;
4229
4230 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4231 v4sigma4[10] = 0.0e0;
4232
4233 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4234 v4sigma4[11] = 0.0e0;
4235
4236 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4237 v4sigma4[12] = 0.0e0;
4238
4239 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4240 v4sigma4[13] = 0.0e0;
4241
4242 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4243 v4sigma4[14] = 0.0e0;
4244
4245 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4246 v4sigma3lapl[0] = 0.0e0;
4247
4248 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4249 v4sigma3lapl[1] = 0.0e0;
4250
4251 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4252 v4sigma3lapl[2] = 0.0e0;
4253
4254 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4255 v4sigma3lapl[3] = 0.0e0;
4256
4257 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4258 v4sigma3lapl[4] = 0.0e0;
4259
4260 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4261 v4sigma3lapl[5] = 0.0e0;
4262
4263 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4264 v4sigma3lapl[6] = 0.0e0;
4265
4266 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4267 v4sigma3lapl[7] = 0.0e0;
4268
4269 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4270 v4sigma3lapl[8] = 0.0e0;
4271
4272 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4273 v4sigma3lapl[9] = 0.0e0;
4274
4275 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4276 v4sigma3lapl[10] = 0.0e0;
4277
4278 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4279 v4sigma3lapl[11] = 0.0e0;
4280
4281 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4282 v4sigma3lapl[12] = 0.0e0;
4283
4284 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4285 v4sigma3lapl[13] = 0.0e0;
4286
4287 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4288 v4sigma3lapl[14] = 0.0e0;
4289
4290 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4291 v4sigma3lapl[15] = 0.0e0;
4292
4293 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4294 v4sigma3lapl[16] = 0.0e0;
4295
4296 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4297 v4sigma3lapl[17] = 0.0e0;
4298
4299 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4300 v4sigma3lapl[18] = 0.0e0;
4301
4302 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4303 v4sigma3lapl[19] = 0.0e0;
4304
4305 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4306 v4sigma3tau[0] = 0.0e0;
4307
4308 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4309 v4sigma3tau[1] = 0.0e0;
4310
4311 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4312 v4sigma3tau[2] = 0.0e0;
4313
4314 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4315 v4sigma3tau[3] = 0.0e0;
4316
4317 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4318 v4sigma3tau[4] = 0.0e0;
4319
4320 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4321 v4sigma3tau[5] = 0.0e0;
4322
4323 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4324 v4sigma3tau[6] = 0.0e0;
4325
4326 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4327 v4sigma3tau[7] = 0.0e0;
4328
4329 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4330 v4sigma3tau[8] = 0.0e0;
4331
4332 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4333 v4sigma3tau[9] = 0.0e0;
4334
4335 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4336 v4sigma3tau[10] = 0.0e0;
4337
4338 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4339 v4sigma3tau[11] = 0.0e0;
4340
4341 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4342 v4sigma3tau[12] = 0.0e0;
4343
4344 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4345 v4sigma3tau[13] = 0.0e0;
4346
4347 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4348 v4sigma3tau[14] = 0.0e0;
4349
4350 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4351 v4sigma3tau[15] = 0.0e0;
4352
4353 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4354 v4sigma3tau[16] = 0.0e0;
4355
4356 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4357 v4sigma3tau[17] = 0.0e0;
4358
4359 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4360 v4sigma3tau[18] = 0.0e0;
4361
4362 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4363 v4sigma3tau[19] = 0.0e0;
4364
4365 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4366 v4sigma2lapl2[0] = 0.0e0;
4367
4368 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4369 v4sigma2lapl2[1] = 0.0e0;
4370
4371 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4372 v4sigma2lapl2[2] = 0.0e0;
4373
4374 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4375 v4sigma2lapl2[3] = 0.0e0;
4376
4377 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4378 v4sigma2lapl2[4] = 0.0e0;
4379
4380 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4381 v4sigma2lapl2[5] = 0.0e0;
4382
4383 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4384 v4sigma2lapl2[6] = 0.0e0;
4385
4386 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4387 v4sigma2lapl2[7] = 0.0e0;
4388
4389 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4390 v4sigma2lapl2[8] = 0.0e0;
4391
4392 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4393 v4sigma2lapl2[9] = 0.0e0;
4394
4395 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4396 v4sigma2lapl2[10] = 0.0e0;
4397
4398 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4399 v4sigma2lapl2[11] = 0.0e0;
4400
4401 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4402 v4sigma2lapl2[12] = 0.0e0;
4403
4404 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4405 v4sigma2lapl2[13] = 0.0e0;
4406
4407 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4408 v4sigma2lapl2[14] = 0.0e0;
4409
4410 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4411 v4sigma2lapl2[15] = 0.0e0;
4412
4413 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4414 v4sigma2lapl2[16] = 0.0e0;
4415
4416 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4417 v4sigma2lapl2[17] = 0.0e0;
4418
4419 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4420 v4sigma2lapltau[0] = 0.0e0;
4421
4422 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4423 v4sigma2lapltau[1] = 0.0e0;
4424
4425 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4426 v4sigma2lapltau[2] = 0.0e0;
4427
4428 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4429 v4sigma2lapltau[3] = 0.0e0;
4430
4431 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4432 v4sigma2lapltau[4] = 0.0e0;
4433
4434 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4435 v4sigma2lapltau[5] = 0.0e0;
4436
4437 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4438 v4sigma2lapltau[6] = 0.0e0;
4439
4440 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4441 v4sigma2lapltau[7] = 0.0e0;
4442
4443 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4444 v4sigma2lapltau[8] = 0.0e0;
4445
4446 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4447 v4sigma2lapltau[9] = 0.0e0;
4448
4449 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4450 v4sigma2lapltau[10] = 0.0e0;
4451
4452 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4453 v4sigma2lapltau[11] = 0.0e0;
4454
4455 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4456 v4sigma2lapltau[12] = 0.0e0;
4457
4458 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4459 v4sigma2lapltau[13] = 0.0e0;
4460
4461 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4462 v4sigma2lapltau[14] = 0.0e0;
4463
4464 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4465 v4sigma2lapltau[15] = 0.0e0;
4466
4467 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4468 v4sigma2lapltau[16] = 0.0e0;
4469
4470 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4471 v4sigma2lapltau[17] = 0.0e0;
4472
4473 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4474 v4sigma2lapltau[18] = 0.0e0;
4475
4476 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4477 v4sigma2lapltau[19] = 0.0e0;
4478
4479 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4480 v4sigma2lapltau[20] = 0.0e0;
4481
4482 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4483 v4sigma2lapltau[21] = 0.0e0;
4484
4485 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4486 v4sigma2lapltau[22] = 0.0e0;
4487
4488 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4489 v4sigma2lapltau[23] = 0.0e0;
4490
4491 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4492 v4sigma2tau2[0] = 0.0e0;
4493
4494 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4495 v4sigma2tau2[1] = 0.0e0;
4496
4497 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4498 v4sigma2tau2[2] = 0.0e0;
4499
4500 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4501 v4sigma2tau2[3] = 0.0e0;
4502
4503 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4504 v4sigma2tau2[4] = 0.0e0;
4505
4506 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4507 v4sigma2tau2[5] = 0.0e0;
4508
4509 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4510 v4sigma2tau2[6] = 0.0e0;
4511
4512 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4513 v4sigma2tau2[7] = 0.0e0;
4514
4515 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4516 v4sigma2tau2[8] = 0.0e0;
4517
4518 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4519 v4sigma2tau2[9] = 0.0e0;
4520
4521 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4522 v4sigma2tau2[10] = 0.0e0;
4523
4524 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4525 v4sigma2tau2[11] = 0.0e0;
4526
4527 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4528 v4sigma2tau2[12] = 0.0e0;
4529
4530 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4531 v4sigma2tau2[13] = 0.0e0;
4532
4533 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4534 v4sigma2tau2[14] = 0.0e0;
4535
4536 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4537 v4sigma2tau2[15] = 0.0e0;
4538
4539 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4540 v4sigma2tau2[16] = 0.0e0;
4541
4542 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4543 v4sigma2tau2[17] = 0.0e0;
4544
4545 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4546 v4sigmalapl3[0] = 0.0e0;
4547
4548 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4549 v4sigmalapl3[1] = 0.0e0;
4550
4551 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4552 v4sigmalapl3[2] = 0.0e0;
4553
4554 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4555 v4sigmalapl3[3] = 0.0e0;
4556
4557 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4558 v4sigmalapl3[4] = 0.0e0;
4559
4560 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4561 v4sigmalapl3[5] = 0.0e0;
4562
4563 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4564 v4sigmalapl3[6] = 0.0e0;
4565
4566 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4567 v4sigmalapl3[7] = 0.0e0;
4568
4569 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4570 v4sigmalapl3[8] = 0.0e0;
4571
4572 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4573 v4sigmalapl3[9] = 0.0e0;
4574
4575 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4576 v4sigmalapl3[10] = 0.0e0;
4577
4578 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4579 v4sigmalapl3[11] = 0.0e0;
4580
4581 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4582 v4sigmalapl2tau[0] = 0.0e0;
4583
4584 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4585 v4sigmalapl2tau[1] = 0.0e0;
4586
4587 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4588 v4sigmalapl2tau[2] = 0.0e0;
4589
4590 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4591 v4sigmalapl2tau[3] = 0.0e0;
4592
4593 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4594 v4sigmalapl2tau[4] = 0.0e0;
4595
4596 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4597 v4sigmalapl2tau[5] = 0.0e0;
4598
4599 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4600 v4sigmalapl2tau[6] = 0.0e0;
4601
4602 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4603 v4sigmalapl2tau[7] = 0.0e0;
4604
4605 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4606 v4sigmalapl2tau[8] = 0.0e0;
4607
4608 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4609 v4sigmalapl2tau[9] = 0.0e0;
4610
4611 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4612 v4sigmalapl2tau[10] = 0.0e0;
4613
4614 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4615 v4sigmalapl2tau[11] = 0.0e0;
4616
4617 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4618 v4sigmalapl2tau[12] = 0.0e0;
4619
4620 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4621 v4sigmalapl2tau[13] = 0.0e0;
4622
4623 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4624 v4sigmalapl2tau[14] = 0.0e0;
4625
4626 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4627 v4sigmalapl2tau[15] = 0.0e0;
4628
4629 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4630 v4sigmalapl2tau[16] = 0.0e0;
4631
4632 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4633 v4sigmalapl2tau[17] = 0.0e0;
4634
4635 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4636 v4sigmalapltau2[0] = 0.0e0;
4637
4638 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4639 v4sigmalapltau2[1] = 0.0e0;
4640
4641 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4642 v4sigmalapltau2[2] = 0.0e0;
4643
4644 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4645 v4sigmalapltau2[3] = 0.0e0;
4646
4647 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4648 v4sigmalapltau2[4] = 0.0e0;
4649
4650 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4651 v4sigmalapltau2[5] = 0.0e0;
4652
4653 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4654 v4sigmalapltau2[6] = 0.0e0;
4655
4656 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4657 v4sigmalapltau2[7] = 0.0e0;
4658
4659 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4660 v4sigmalapltau2[8] = 0.0e0;
4661
4662 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4663 v4sigmalapltau2[9] = 0.0e0;
4664
4665 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4666 v4sigmalapltau2[10] = 0.0e0;
4667
4668 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4669 v4sigmalapltau2[11] = 0.0e0;
4670
4671 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4672 v4sigmalapltau2[12] = 0.0e0;
4673
4674 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4675 v4sigmalapltau2[13] = 0.0e0;
4676
4677 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4678 v4sigmalapltau2[14] = 0.0e0;
4679
4680 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4681 v4sigmalapltau2[15] = 0.0e0;
4682
4683 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4684 v4sigmalapltau2[16] = 0.0e0;
4685
4686 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4687 v4sigmalapltau2[17] = 0.0e0;
4688
4689 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4690 v4sigmatau3[0] = 0.0e0;
4691
4692 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4693 v4sigmatau3[1] = 0.0e0;
4694
4695 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4696 v4sigmatau3[2] = 0.0e0;
4697
4698 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4699 v4sigmatau3[3] = 0.0e0;
4700
4701 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4702 v4sigmatau3[4] = 0.0e0;
4703
4704 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4705 v4sigmatau3[5] = 0.0e0;
4706
4707 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4708 v4sigmatau3[6] = 0.0e0;
4709
4710 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4711 v4sigmatau3[7] = 0.0e0;
4712
4713 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4714 v4sigmatau3[8] = 0.0e0;
4715
4716 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4717 v4sigmatau3[9] = 0.0e0;
4718
4719 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4720 v4sigmatau3[10] = 0.0e0;
4721
4722 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4723 v4sigmatau3[11] = 0.0e0;
4724
4725 t6242 = 0.1e1 / t97 / t6053;
4726 t6244 = t103 * t2283 * t844;
4727 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4728 v4lapl4[0] = t232 * (-0.48082170339838674114e-7 * t6242 * t6244 * t1286 * t300 + 0.15626705360447569087e-6 * t3020 * t6242 * t6244 * t37 * t254);
4729
4730 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4731 v4lapl4[1] = t232 * (-0.48082170339838674114e-7 * t309 * t1286 * t2282 * t2284 * t37 * t254 + 0.15626705360447569087e-6 * t4478 * t2285 * t300);
4732
4733 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4734 v4lapl4[2] = t232 * (-0.48082170339838674114e-7 * t871 * t6079 * t6081 * t254 + 0.15626705360447569087e-6 * t5594 * t847 * t300);
4735
4736 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4737 v4lapl4[3] = t232 * (-0.48082170339838674114e-7 * t2314 * t1286 * t37 * t305 + 0.15626705360447569087e-6 * t6153 * t95 * t774 * t104);
4738
4739 t6283 = 0.1e1 / t107 / t6223;
4740 t6285 = t113 * t2312 * t868;
4741 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4742 v4lapl4[4] = t232 * (-0.48082170339838674114e-7 * t6283 * t6285 * t1286 * t300 + 0.15626705360447569087e-6 * t3020 * t6283 * t6285 * t37 * t254);
4743
4744 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4745 v4lapl3tau[0] = 0.0e0;
4746
4747 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4748 v4lapl3tau[1] = 0.0e0;
4749
4750 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4751 v4lapl3tau[2] = 0.0e0;
4752
4753 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4754 v4lapl3tau[3] = 0.0e0;
4755
4756 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4757 v4lapl3tau[4] = 0.0e0;
4758
4759 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4760 v4lapl3tau[5] = 0.0e0;
4761
4762 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4763 v4lapl3tau[6] = 0.0e0;
4764
4765 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4766 v4lapl3tau[7] = 0.0e0;
4767
4768 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4769 v4lapl2tau2[0] = 0.0e0;
4770
4771 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4772 v4lapl2tau2[1] = 0.0e0;
4773
4774 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4775 v4lapl2tau2[2] = 0.0e0;
4776
4777 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4778 v4lapl2tau2[3] = 0.0e0;
4779
4780 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4781 v4lapl2tau2[4] = 0.0e0;
4782
4783 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4784 v4lapl2tau2[5] = 0.0e0;
4785
4786 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4787 v4lapl2tau2[6] = 0.0e0;
4788
4789 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4790 v4lapl2tau2[7] = 0.0e0;
4791
4792 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4793 v4lapl2tau2[8] = 0.0e0;
4794
4795 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4796 v4lapltau3[0] = 0.0e0;
4797
4798 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4799 v4lapltau3[1] = 0.0e0;
4800
4801 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4802 v4lapltau3[2] = 0.0e0;
4803
4804 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4805 v4lapltau3[3] = 0.0e0;
4806
4807 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4808 v4lapltau3[4] = 0.0e0;
4809
4810 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4811 v4lapltau3[5] = 0.0e0;
4812
4813 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4814 v4lapltau3[6] = 0.0e0;
4815
4816 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4817 v4lapltau3[7] = 0.0e0;
4818
4819 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4820 v4tau4[0] = 0.0e0;
4821
4822 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4823 v4tau4[1] = 0.0e0;
4824
4825 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4826 v4tau4[2] = 0.0e0;
4827
4828 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4829 v4tau4[3] = 0.0e0;
4830
4831 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4832 v4tau4[4] = 0.0e0;
4833
4834 #ifndef XC_DONT_COMPILE_MXC
4835
4836 if(order < 5) return;
4837
4838
4839 #endif
4840
4841 #endif
4842
4843 #endif
4844
4845 #endif
4846
4847 #endif
4848
4849
4850 }
4851
4852