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