1 /*
2 This file was generated automatically with ./scripts/maple2c.pl.
3 Do not edit this file directly as it can be overwritten!!
4
5 This Source Code Form is subject to the terms of the Mozilla Public
6 License, v. 2.0. If a copy of the MPL was not distributed with this
7 file, You can obtain one at http://mozilla.org/MPL/2.0/.
8
9 Maple version : Maple 2016 (X86 64 LINUX)
10 Maple source : ./maple/mgga_exc/mgga_x_tau_hcth.mpl
11 Type of functional: mgga_exc
12 */
13
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16
17
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21
22 #ifndef XC_DONT_COMPILE_EXC
23 double t2, t4, t6, t7, t8, t9, t10, t11;
24 double t12, t14, t15, t16, t17, t19, t20, t24;
25 double t25, t26, t29, t30, t31, t32, t33, t35;
26 double t36, t37, t38, t39, t42, t43, t44, t45;
27 double t46, t47, t48, t49, t53, t54, t57, t58;
28 double t61, t62, t65, t66, t67, t68, t69, t70;
29 double t72, t73, t75, t76, t77, t78, t79, t81;
30 double t82, t83, t84, t85, t88, t89, t90, t92;
31 double t94, t96, t98;
32
33 #ifndef XC_DONT_COMPILE_VXC
34 double t103, t104, t105, t107, t108, t109, t112, t113;
35 double t115, t116, t117, t122, t123, t124, t125, t130;
36 double t131, t132, t134, t135, t136, t138, t143, t148;
37 double t153, t156, t161, t162, t163, t166, t169, t170;
38 double t173, t177, t178, t181, t183, t187, t188, t193;
39 double t198, t201, t203, t205, t208, t213, t218, t223;
40 double t226, t229, t240, t242;
41
42 #ifndef XC_DONT_COMPILE_FXC
43 double t245, t246, t254, t255, t256, t259, t261, t263;
44 double t266, t267, t268, t275, t276, t278, t280, t287;
45 double t288, t293, t295, t302, t309, t316, t319, t326;
46 double t327, t331, t332, t335, t338, t343, t348, t354;
47 double t355, t360, t362, t367, t370, t373, t374, t375;
48 double t390, t394, t399, t416, t419, t420, t426, t433;
49 double t434, t437, t458, t460, t463, t468, t475, t480;
50 double t484, t491, t498, t505, t508, t512, t517, t530;
51 double t532;
52
53 #ifndef XC_DONT_COMPILE_KXC
54 double t545, t547, t551, t553, t556, t557, t560, t562;
55 double t564, t573, t574, t578, t587, t588, t589, t592;
56 double t593, t602, t611, t620, t623, t629, t630, t636;
57 double t639, t661, t664, t667, t670, t673, t674, t675;
58 double t678, t680, t685, t690, t693, t694, t697, t698;
59 double t717, t719, t726, t747, t752, t753, t763, t767;
60 double t774, t775, t796, t799, t810, t812, t819, t820;
61 double t827, t840, t842, t847, t854, t869, t872, t873;
62 double t879, t883, t889, t894, t895, t898, t919, t921;
63 double t944, t968, t971, t975, t979, t982, t995, t997;
64
65 #ifndef XC_DONT_COMPILE_LXC
66 double t1013, t1014, t1015, t1016, t1019, t1022, t1025, t1030;
67 double t1036, t1041, t1050, t1065, t1078, t1086, t1087, t1088;
68 double t1094, t1098, t1104, t1111, t1123, t1125, t1136, t1142;
69 double t1144, t1147, t1182, t1187, t1204, t1207, t1211, t1216;
70 double t1264, t1275, t1306, t1317, t1321, t1323, t1334, t1361;
71 double t1380, t1408, t1411, t1444, t1480, t1484, t1486, t1523;
72 double t1534, t1561, t1592, t1595, t1627, t1632, t1653, t1659;
73 double t1681;
74 #endif
75
76 #endif
77
78 #endif
79
80 #endif
81
82 #endif
83
84
85 mgga_x_tau_hcth_params *params;
86
87 assert(p->params != NULL);
88 params = (mgga_x_tau_hcth_params * ) (p->params);
89
90 t2 = M_CBRT3;
91 t4 = POW_1_3(0.1e1 / M_PI);
92 t6 = M_CBRT4;
93 t7 = t6 * t6;
94 t8 = t2 * t4 * t7;
95 t9 = M_CBRT2;
96 t10 = t9 * t9;
97 t11 = POW_1_3(rho[0]);
98 t12 = t10 * t11;
99 t14 = params->cx_local[1];
100 t15 = t14 * sigma[0];
101 t16 = rho[0] * rho[0];
102 t17 = t11 * t11;
103 t19 = 0.1e1 / t17 / t16;
104 t20 = t10 * t19;
105 t24 = 0.1e1 + 0.4e-2 * sigma[0] * t10 * t19;
106 t25 = 0.1e1 / t24;
107 t26 = t20 * t25;
108 t29 = params->cx_local[2];
109 t30 = sigma[0] * sigma[0];
110 t31 = t29 * t30;
111 t32 = t16 * t16;
112 t33 = t32 * rho[0];
113 t35 = 0.1e1 / t11 / t33;
114 t36 = t9 * t35;
115 t37 = t24 * t24;
116 t38 = 0.1e1 / t37;
117 t39 = t36 * t38;
118 t42 = params->cx_local[3];
119 t43 = t30 * sigma[0];
120 t44 = t42 * t43;
121 t45 = t32 * t32;
122 t46 = 0.1e1 / t45;
123 t47 = t37 * t24;
124 t48 = 0.1e1 / t47;
125 t49 = t46 * t48;
126 t53 = params->cx_nlocal[1];
127 t54 = t53 * sigma[0];
128 t57 = params->cx_nlocal[2];
129 t58 = t57 * t30;
130 t61 = params->cx_nlocal[3];
131 t62 = t61 * t43;
132 t65 = params->cx_nlocal[0] + 0.4e-2 * t54 * t26 + 0.32e-4 * t58 * t39 + 0.256e-6 * t62 * t49;
133 t66 = M_CBRT6;
134 t67 = t66 * t66;
135 t68 = M_PI * M_PI;
136 t69 = POW_1_3(t68);
137 t70 = t69 * t69;
138 t72 = 0.3e1 / 0.10e2 * t67 * t70;
139 t73 = tau[0] * t10;
140 t75 = 0.1e1 / t17 / rho[0];
141 t76 = t73 * t75;
142 t77 = t72 - t76;
143 t78 = t72 + t76;
144 t79 = 0.1e1 / t78;
145 t81 = t77 * t77;
146 t82 = t81 * t77;
147 t83 = t78 * t78;
148 t84 = t83 * t78;
149 t85 = 0.1e1 / t84;
150 t88 = t81 * t81;
151 t89 = t88 * t77;
152 t90 = t83 * t83;
153 t92 = 0.1e1 / t90 / t78;
154 t94 = t77 * t79 - 0.2e1 * t82 * t85 + t89 * t92;
155 t96 = params->cx_local[0] + 0.4e-2 * t15 * t26 + 0.32e-4 * t31 * t39 + 0.256e-6 * t44 * t49 + t65 * t94;
156 t98 = t8 * t12 * t96;
157 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
158 zk[0] = -0.3e1 / 0.16e2 * t98;
159
160 #ifndef XC_DONT_COMPILE_VXC
161
162 if(order < 1) return;
163
164
165 t103 = t11 * rho[0] * t2 * t4;
166 t104 = t7 * t10;
167 t105 = t16 * rho[0];
168 t107 = 0.1e1 / t17 / t105;
169 t108 = t10 * t107;
170 t109 = t108 * t25;
171 t112 = t14 * t30;
172 t113 = t32 * t16;
173 t115 = 0.1e1 / t11 / t113;
174 t116 = t9 * t115;
175 t117 = t116 * t38;
176 t122 = t29 * t43;
177 t123 = t45 * rho[0];
178 t124 = 0.1e1 / t123;
179 t125 = t124 * t48;
180 t130 = t30 * t30;
181 t131 = t42 * t130;
182 t132 = t45 * t105;
183 t134 = 0.1e1 / t17 / t132;
184 t135 = t37 * t37;
185 t136 = 0.1e1 / t135;
186 t138 = t134 * t136 * t10;
187 t143 = t53 * t30;
188 t148 = t57 * t43;
189 t153 = t61 * t130;
190 t156 = -0.10666666666666666667e-1 * t54 * t109 + 0.85333333333333333336e-4 * t143 * t117 - 0.17066666666666666667e-3 * t58 * t117 + 0.13653333333333333334e-5 * t148 * t125 - 0.2048e-5 * t62 * t125 + 0.81920000000000000003e-8 * t153 * t138;
191 t161 = 0.1e1 / t83;
192 t162 = t77 * t161;
193 t163 = t73 * t19;
194 t166 = t81 * t85;
195 t169 = 0.1e1 / t90;
196 t170 = t82 * t169;
197 t173 = t88 * t92;
198 t177 = 0.1e1 / t90 / t83;
199 t178 = t89 * t177;
200 t181 = 0.5e1 / 0.3e1 * t73 * t19 * t79 + 0.5e1 / 0.3e1 * t162 * t163 - 0.10e2 * t166 * t163 - 0.10e2 * t170 * t163 + 0.25e2 / 0.3e1 * t173 * t163 + 0.25e2 / 0.3e1 * t178 * t163;
201 t183 = -0.10666666666666666667e-1 * t15 * t109 + 0.85333333333333333336e-4 * t112 * t117 - 0.17066666666666666667e-3 * t31 * t117 + 0.13653333333333333334e-5 * t122 * t125 - 0.2048e-5 * t44 * t125 + 0.81920000000000000003e-8 * t131 * t138 + t156 * t94 + t65 * t181;
202 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
203 vrho[0] = -t98 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t104 * t183;
204
205 t187 = t14 * t10;
206 t188 = t19 * t25;
207 t193 = t29 * sigma[0];
208 t198 = t42 * t30;
209 t201 = t45 * t16;
210 t203 = 0.1e1 / t17 / t201;
211 t205 = t203 * t136 * t10;
212 t208 = t53 * t10;
213 t213 = t57 * sigma[0];
214 t218 = t61 * t30;
215 t223 = 0.4e-2 * t208 * t188 - 0.32e-4 * t54 * t39 + 0.64e-4 * t213 * t39 - 0.512e-6 * t58 * t49 + 0.768e-6 * t218 * t49 - 0.3072e-8 * t62 * t205;
216 t226 = t104 * (0.4e-2 * t187 * t188 - 0.32e-4 * t15 * t39 + 0.64e-4 * t193 * t39 - 0.512e-6 * t31 * t49 + 0.768e-6 * t198 * t49 - 0.3072e-8 * t44 * t205 + t223 * t94);
217 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
218 vsigma[0] = -0.3e1 / 0.16e2 * t103 * t226;
219
220 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
221 vlapl[0] = 0.0e0;
222
223 t229 = t10 * t75;
224 t240 = -t162 * t229 + 0.6e1 * t166 * t229 + 0.6e1 * t170 * t229 - 0.5e1 * t173 * t229 - 0.5e1 * t178 * t229 - t229 * t79;
225 t242 = t104 * t65 * t240;
226 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
227 vtau[0] = -0.3e1 / 0.16e2 * t103 * t242;
228
229 #ifndef XC_DONT_COMPILE_FXC
230
231 if(order < 2) return;
232
233
234 t245 = 0.1e1 / t17;
235 t246 = t10 * t245;
236 t254 = 0.1e1 / t17 / t32;
237 t255 = t10 * t254;
238 t256 = t255 * t25;
239 t259 = t32 * t105;
240 t261 = 0.1e1 / t11 / t259;
241 t263 = t9 * t261 * t38;
242 t266 = t14 * t43;
243 t267 = 0.1e1 / t201;
244 t268 = t267 * t48;
245 t275 = t29 * t130;
246 t276 = t45 * t32;
247 t278 = 0.1e1 / t17 / t276;
248 t280 = t278 * t136 * t10;
249 t287 = t130 * sigma[0];
250 t288 = t42 * t287;
251 t293 = 0.1e1 / t135 / t24;
252 t295 = 0.1e1 / t11 / t45 / t259 * t293 * t9;
253 t302 = t53 * t43;
254 t309 = t57 * t130;
255 t316 = t61 * t287;
256 t319 = 0.39111111111111111112e-1 * t54 * t256 - 0.76800000000000000003e-3 * t143 * t263 + 0.36408888888888888891e-5 * t302 * t268 + 0.10808888888888888889e-2 * t58 * t263 - 0.19569777777777777779e-4 * t148 * t268 + 0.43690666666666666670e-7 * t309 * t280 + 0.18432e-4 * t62 * t268 - 0.16110933333333333334e-6 * t153 * t280 + 0.69905066666666666671e-9 * t316 * t295;
257 t326 = tau[0] * tau[0];
258 t327 = t326 * t9;
259 t331 = t77 * t85;
260 t332 = t327 * t35;
261 t335 = t73 * t107;
262 t338 = t81 * t169;
263 t343 = t82 * t92;
264 t348 = t88 * t177;
265 t354 = 0.1e1 / t90 / t84;
266 t355 = t89 * t354;
267 t360 = -0.40e2 / 0.9e1 * t73 * t107 * t79 + 0.100e3 / 0.9e1 * t327 * t35 * t161 - 0.500e3 / 0.9e1 * t331 * t332 - 0.40e2 / 0.9e1 * t162 * t335 - 0.200e3 * t338 * t332 + 0.80e2 / 0.3e1 * t166 * t335 - 0.200e3 / 0.9e1 * t343 * t332 + 0.80e2 / 0.3e1 * t170 * t335 + 0.2500e4 / 0.9e1 * t348 * t332 - 0.200e3 / 0.9e1 * t173 * t335 + 0.500e3 / 0.3e1 * t355 * t332 - 0.200e3 / 0.9e1 * t178 * t335;
268 t362 = 0.39111111111111111112e-1 * t15 * t256 - 0.76800000000000000003e-3 * t112 * t263 + 0.36408888888888888891e-5 * t266 * t268 + 0.10808888888888888889e-2 * t31 * t263 - 0.19569777777777777779e-4 * t122 * t268 + 0.43690666666666666670e-7 * t275 * t280 + 0.18432e-4 * t44 * t268 - 0.16110933333333333334e-6 * t131 * t280 + 0.69905066666666666671e-9 * t288 * t295 + t319 * t94 + 0.2e1 * t156 * t181 + t65 * t360;
269 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
270 v2rho2[0] = -t8 * t246 * t96 / 0.12e2 - t8 * t12 * t183 / 0.2e1 - 0.3e1 / 0.16e2 * t103 * t104 * t362;
271
272 t367 = t11 * t2 * t4;
273 t370 = t107 * t25;
274 t373 = t14 * t9;
275 t374 = t115 * t38;
276 t375 = t374 * sigma[0];
277 t390 = t45 * t113;
278 t394 = 0.1e1 / t11 / t390 * t293 * t9;
279 t399 = t53 * t9;
280 t416 = -0.10666666666666666667e-1 * t208 * t370 + 0.25600000000000000001e-3 * t399 * t375 - 0.13653333333333333334e-5 * t143 * t125 - 0.34133333333333333333e-3 * t213 * t117 + 0.68266666666666666668e-5 * t58 * t125 - 0.16384000000000000001e-7 * t148 * t138 - 0.6144e-5 * t218 * t125 + 0.57344000000000000001e-7 * t62 * t138 - 0.26214400000000000001e-9 * t153 * t394;
281 t419 = -0.10666666666666666667e-1 * t187 * t370 + 0.25600000000000000001e-3 * t373 * t375 - 0.13653333333333333334e-5 * t112 * t125 - 0.34133333333333333333e-3 * t193 * t117 + 0.68266666666666666668e-5 * t31 * t125 - 0.16384000000000000001e-7 * t122 * t138 - 0.6144e-5 * t198 * t125 + 0.57344000000000000001e-7 * t44 * t138 - 0.26214400000000000001e-9 * t131 * t394 + t416 * t94 + t223 * t181;
282 t420 = t104 * t419;
283 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
284 v2rhosigma[0] = -t367 * t226 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t420;
285
286 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
287 v2rholapl[0] = 0.0e0;
288
289 t426 = t104 * t156 * t240;
290 t433 = t9 / t11 / t32;
291 t434 = t161 * tau[0];
292 t437 = t433 * tau[0];
293 t458 = 0.5e1 / 0.3e1 * t20 * t79 - 0.20e2 / 0.3e1 * t433 * t434 + 0.100e3 / 0.3e1 * t331 * t437 + 0.5e1 / 0.3e1 * t162 * t20 + 0.120e3 * t338 * t437 - 0.10e2 * t166 * t20 + 0.40e2 / 0.3e1 * t343 * t437 - 0.10e2 * t170 * t20 - 0.500e3 / 0.3e1 * t348 * t437 + 0.25e2 / 0.3e1 * t173 * t20 - 0.100e3 * t355 * t437 + 0.25e2 / 0.3e1 * t178 * t20;
294 t460 = t104 * t65 * t458;
295 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
296 v2rhotau[0] = -t367 * t242 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t426 - 0.3e1 / 0.16e2 * t103 * t460;
297
298 t463 = t35 * t38;
299 t468 = t29 * t9;
300 t475 = t42 * sigma[0];
301 t480 = t45 * t33;
302 t484 = 0.1e1 / t11 / t480 * t293 * t9;
303 t491 = t57 * t9;
304 t498 = t61 * sigma[0];
305 t505 = -0.64e-4 * t399 * t463 + 0.512e-6 * t54 * t49 + 0.64e-4 * t491 * t463 - 0.2048e-5 * t213 * t49 + 0.6144e-8 * t58 * t205 + 0.1536e-5 * t498 * t49 - 0.18432e-7 * t218 * t205 + 0.98304e-10 * t62 * t484;
306 t508 = t104 * (-0.64e-4 * t373 * t463 + 0.512e-6 * t15 * t49 + 0.64e-4 * t468 * t463 - 0.2048e-5 * t193 * t49 + 0.6144e-8 * t31 * t205 + 0.1536e-5 * t475 * t49 - 0.18432e-7 * t198 * t205 + 0.98304e-10 * t44 * t484 + t505 * t94);
307 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
308 v2sigma2[0] = -0.3e1 / 0.16e2 * t103 * t508;
309
310 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
311 v2sigmalapl[0] = 0.0e0;
312
313 t512 = t104 * t223 * t240;
314 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
315 v2sigmatau[0] = -0.3e1 / 0.16e2 * t103 * t512;
316
317 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
318 v2lapl2[0] = 0.0e0;
319
320 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
321 v2lapltau[0] = 0.0e0;
322
323 t517 = t9 / t11 / t105;
324 t530 = 0.4e1 * t517 * t161 - 0.20e2 * t331 * t517 - 0.72e2 * t338 * t517 - 0.8e1 * t343 * t517 + 0.100e3 * t348 * t517 + 0.60e2 * t355 * t517;
325 t532 = t104 * t65 * t530;
326 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
327 v2tau2[0] = -0.3e1 / 0.16e2 * t103 * t532;
328
329 #ifndef XC_DONT_COMPILE_KXC
330
331 if(order < 3) return;
332
333
334 t545 = 0.1e1 / t17 / t33;
335 t547 = t10 * t545 * t25;
336 t551 = 0.1e1 / t11 / t45;
337 t553 = t9 * t551 * t38;
338 t556 = 0.1e1 / t132;
339 t557 = t556 * t48;
340 t560 = t14 * t130;
341 t562 = 0.1e1 / t17 / t480;
342 t564 = t562 * t136 * t10;
343 t573 = t29 * t287;
344 t574 = t45 * t45;
345 t578 = 0.1e1 / t11 / t574 * t293 * t9;
346 t587 = t130 * t30;
347 t588 = t42 * t587;
348 t589 = t574 * t105;
349 t592 = 0.1e1 / t135 / t37;
350 t593 = 0.1e1 / t589 * t592;
351 t602 = t53 * t130;
352 t611 = t57 * t287;
353 t620 = t61 * t587;
354 t623 = -0.18251851851851851852e0 * t54 * t547 + 0.64663703703703703706e-2 * t143 * t553 - 0.69176888888888888893e-4 * t302 * t557 + 0.11650844444444444445e-6 * t602 * t564 - 0.79265185185185185186e-2 * t58 * t553 + 0.24181570370370370372e-3 * t148 * t557 - 0.11796480000000000001e-5 * t309 * t564 + 0.37282702222222222226e-8 * t611 * t578 - 0.184320e-3 * t62 * t557 + 0.26305422222222222223e-5 * t153 * t564 - 0.24466773333333333335e-7 * t316 * t578 + 0.74565404444444444451e-10 * t620 * t593;
355 t629 = t326 * tau[0];
356 t630 = t629 * t46;
357 t636 = t327 * t115;
358 t639 = t73 * t254;
359 t661 = t77 * t169;
360 t664 = t81 * t92;
361 t667 = t82 * t177;
362 t670 = t88 * t354;
363 t673 = t90 * t90;
364 t674 = 0.1e1 / t673;
365 t675 = t89 * t674;
366 t678 = -0.1000e4 / 0.9e1 * t630 * t85 + 0.440e3 / 0.27e2 * t73 * t254 * t79 + 0.1600e4 / 0.9e1 * t343 * t636 - 0.880e3 / 0.9e1 * t170 * t639 - 0.20000e5 / 0.9e1 * t348 * t636 + 0.2200e4 / 0.27e2 * t173 * t639 - 0.4000e4 / 0.3e1 * t355 * t636 + 0.2200e4 / 0.27e2 * t178 * t639 + 0.4000e4 / 0.9e1 * t331 * t636 + 0.440e3 / 0.27e2 * t162 * t639 + 0.1600e4 * t338 * t636 - 0.880e3 / 0.9e1 * t166 * t639 - 0.800e3 / 0.9e1 * t327 * t115 * t161 - 0.17000e5 / 0.9e1 * t661 * t630 - 0.26000e5 / 0.9e1 * t664 * t630 + 0.10000e5 / 0.3e1 * t667 * t630 + 0.25000e5 / 0.3e1 * t670 * t630 + 0.35000e5 / 0.9e1 * t675 * t630;
367 t680 = -0.18251851851851851852e0 * t15 * t547 + 0.64663703703703703706e-2 * t112 * t553 - 0.69176888888888888893e-4 * t266 * t557 + 0.11650844444444444445e-6 * t560 * t564 - 0.79265185185185185186e-2 * t31 * t553 + 0.24181570370370370372e-3 * t122 * t557 - 0.11796480000000000001e-5 * t275 * t564 + 0.37282702222222222226e-8 * t573 * t578 - 0.184320e-3 * t44 * t557 + 0.26305422222222222223e-5 * t131 * t564 - 0.24466773333333333335e-7 * t288 * t578 + 0.74565404444444444451e-10 * t588 * t593 + t623 * t94 + 0.3e1 * t319 * t181 + 0.3e1 * t156 * t360 + t65 * t678;
368 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
369 v3rho3[0] = t8 * t229 * t96 / 0.18e2 - t8 * t246 * t183 / 0.4e1 - 0.3e1 / 0.4e1 * t8 * t12 * t362 - 0.3e1 / 0.16e2 * t103 * t104 * t680;
370
371 t685 = t245 * t2 * t4;
372 t690 = t254 * t25;
373 t693 = t261 * t38;
374 t694 = t693 * sigma[0];
375 t697 = t14 * t267;
376 t698 = t48 * t30;
377 t717 = t574 * t16;
378 t719 = 0.1e1 / t717 * t592;
379 t726 = t53 * t267;
380 t747 = 0.39111111111111111112e-1 * t208 * t690 - 0.18488888888888888890e-2 * t399 * t694 + 0.23210666666666666668e-4 * t726 * t698 - 0.43690666666666666670e-7 * t302 * t280 + 0.21617777777777777778e-2 * t213 * t263 - 0.76003555555555555557e-4 * t58 * t268 + 0.40960000000000000002e-6 * t148 * t280 - 0.13981013333333333335e-8 * t309 * t295 + 0.55296e-4 * t218 * t268 - 0.86562133333333333336e-6 * t62 * t280 + 0.86507520000000000004e-8 * t153 * t295 - 0.27962026666666666669e-10 * t316 * t719;
381 t752 = 0.39111111111111111112e-1 * t187 * t690 - 0.18488888888888888890e-2 * t373 * t694 + 0.23210666666666666668e-4 * t697 * t698 - 0.43690666666666666670e-7 * t266 * t280 + 0.21617777777777777778e-2 * t193 * t263 - 0.76003555555555555557e-4 * t31 * t268 + 0.40960000000000000002e-6 * t122 * t280 - 0.13981013333333333335e-8 * t275 * t295 + 0.55296e-4 * t198 * t268 - 0.86562133333333333336e-6 * t44 * t280 + 0.86507520000000000004e-8 * t131 * t295 - 0.27962026666666666669e-10 * t288 * t719 + t747 * t94 + 0.2e1 * t416 * t181 + t223 * t360;
382 t753 = t104 * t752;
383 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
384 v3rho2sigma[0] = -t685 * t226 / 0.12e2 - t367 * t420 / 0.2e1 - 0.3e1 / 0.16e2 * t103 * t753;
385
386 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
387 v3rho2lapl[0] = 0.0e0;
388
389 t763 = t104 * t319 * t240;
390 t767 = t104 * t156 * t458;
391 t774 = 0.1e1 / t259;
392 t775 = t774 * t326;
393 t796 = t774 * t85;
394 t799 = t36 * tau[0];
395 t810 = -0.40e2 / 0.9e1 * t108 * t79 + 0.40e2 * t36 * t434 + 0.3400e4 / 0.3e1 * t661 * t775 + 0.5200e4 / 0.3e1 * t664 * t775 - 0.2000e4 * t667 * t775 - 0.5000e4 * t670 * t775 - 0.7000e4 / 0.3e1 * t675 * t775 - 0.40e2 / 0.9e1 * t162 * t108 + 0.80e2 / 0.3e1 * t166 * t108 + 0.80e2 / 0.3e1 * t170 * t108 - 0.200e3 / 0.9e1 * t173 * t108 - 0.200e3 / 0.9e1 * t178 * t108 + 0.200e3 / 0.3e1 * t796 * t326 + 0.600e3 * t355 * t799 - 0.200e3 * t331 * t799 - 0.720e3 * t338 * t799 - 0.80e2 * t343 * t799 + 0.1000e4 * t348 * t799;
396 t812 = t104 * t65 * t810;
397 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
398 v3rho2tau[0] = -t685 * t242 / 0.12e2 - t367 * t426 / 0.2e1 - t367 * t460 / 0.2e1 - 0.3e1 / 0.16e2 * t103 * t763 - 0.3e1 / 0.8e1 * t103 * t767 - 0.3e1 / 0.16e2 * t103 * t812;
399
400 t819 = t14 * t124;
401 t820 = t48 * sigma[0];
402 t827 = t29 * t124;
403 t840 = t574 * rho[0];
404 t842 = 0.1e1 / t840 * t592;
405 t847 = t53 * t124;
406 t854 = t57 * t124;
407 t869 = 0.34133333333333333333e-3 * t399 * t374 - 0.68266666666666666668e-5 * t847 * t820 + 0.16384000000000000001e-7 * t143 * t138 - 0.34133333333333333333e-3 * t491 * t374 + 0.19114666666666666667e-4 * t854 * t820 - 0.13107200000000000000e-6 * t58 * t138 + 0.52428800000000000002e-9 * t148 * t394 - 0.12288e-4 * t498 * t125 + 0.24576000000000000000e-6 * t218 * t138 - 0.28835840000000000000e-8 * t62 * t394 + 0.10485760000000000000e-10 * t153 * t842;
408 t872 = 0.34133333333333333333e-3 * t373 * t374 - 0.68266666666666666668e-5 * t819 * t820 + 0.16384000000000000001e-7 * t112 * t138 - 0.34133333333333333333e-3 * t468 * t374 + 0.19114666666666666667e-4 * t827 * t820 - 0.13107200000000000000e-6 * t31 * t138 + 0.52428800000000000002e-9 * t122 * t394 - 0.12288e-4 * t475 * t125 + 0.24576000000000000000e-6 * t198 * t138 - 0.28835840000000000000e-8 * t44 * t394 + 0.10485760000000000000e-10 * t131 * t842 + t869 * t94 + t505 * t181;
409 t873 = t104 * t872;
410 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
411 v3rhosigma2[0] = -t367 * t508 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t873;
412
413 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
414 v3rhosigmalapl[0] = 0.0e0;
415
416 t879 = t104 * t416 * t240;
417 t883 = t104 * t223 * t458;
418 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
419 v3rhosigmatau[0] = -t367 * t512 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t879 - 0.3e1 / 0.16e2 * t103 * t883;
420
421 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
422 v3rholapl2[0] = 0.0e0;
423
424 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
425 v3rholapltau[0] = 0.0e0;
426
427 t889 = t104 * t156 * t530;
428 t894 = 0.1e1 / t113;
429 t895 = t894 * t85;
430 t898 = t894 * tau[0];
431 t919 = -0.40e2 / 0.3e1 * t433 * t161 - 0.40e2 * t895 * tau[0] - 0.680e3 * t661 * t898 + 0.200e3 / 0.3e1 * t331 * t433 - 0.1040e4 * t664 * t898 + 0.240e3 * t338 * t433 + 0.1200e4 * t667 * t898 + 0.80e2 / 0.3e1 * t343 * t433 + 0.3000e4 * t670 * t898 - 0.1000e4 / 0.3e1 * t348 * t433 + 0.1400e4 * t675 * t898 - 0.200e3 * t355 * t433;
432 t921 = t104 * t65 * t919;
433 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
434 v3rhotau2[0] = -t367 * t532 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t889 - 0.3e1 / 0.16e2 * t103 * t921;
435
436 t944 = 0.1e1 / t574 * t592;
437 t968 = 0.1536e-5 * t53 * t46 * t48 - 0.6144e-8 * t54 * t205 - 0.3072e-5 * t57 * t46 * t48 + 0.36864e-7 * t213 * t205 - 0.196608e-9 * t58 * t484 + 0.1536e-5 * t61 * t46 * t48 - 0.55296e-7 * t498 * t205 + 0.884736e-9 * t218 * t484 - 0.3932160e-11 * t62 * t944;
438 t971 = t104 * (0.1536e-5 * t14 * t46 * t48 - 0.6144e-8 * t15 * t205 - 0.3072e-5 * t29 * t46 * t48 + 0.36864e-7 * t193 * t205 - 0.196608e-9 * t31 * t484 + 0.1536e-5 * t42 * t46 * t48 - 0.55296e-7 * t475 * t205 + 0.884736e-9 * t198 * t484 - 0.3932160e-11 * t44 * t944 + t968 * t94);
439 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
440 v3sigma3[0] = -0.3e1 / 0.16e2 * t103 * t971;
441
442 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
443 v3sigma2lapl[0] = 0.0e0;
444
445 t975 = t104 * t505 * t240;
446 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
447 v3sigma2tau[0] = -0.3e1 / 0.16e2 * t103 * t975;
448
449 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
450 v3sigmalapl2[0] = 0.0e0;
451
452 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
453 v3sigmalapltau[0] = 0.0e0;
454
455 t979 = t104 * t223 * t530;
456 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
457 v3sigmatau2[0] = -0.3e1 / 0.16e2 * t103 * t979;
458
459 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
460 v3lapl3[0] = 0.0e0;
461
462 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
463 v3lapl2tau[0] = 0.0e0;
464
465 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
466 v3lapltau2[0] = 0.0e0;
467
468 t982 = 0.1e1 / t33;
469 t995 = 0.408e3 * t661 * t982 + 0.624e3 * t664 * t982 - 0.720e3 * t667 * t982 - 0.1800e4 * t670 * t982 - 0.840e3 * t675 * t982 + 0.24e2 * t982 * t85;
470 t997 = t104 * t65 * t995;
471 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
472 v3tau3[0] = -0.3e1 / 0.16e2 * t103 * t997;
473
474 #ifndef XC_DONT_COMPILE_LXC
475
476 if(order < 4) return;
477
478
479 t1013 = t77 * t92;
480 t1014 = t326 * t326;
481 t1015 = t1014 * t203;
482 t1016 = t1015 * t10;
483 t1019 = t81 * t177;
484 t1022 = t82 * t354;
485 t1025 = t88 * t674;
486 t1030 = t89 / t673 / t78;
487 t1036 = t327 * t261;
488 t1041 = t73 * t545;
489 t1050 = -0.200000e6 / 0.9e1 * t1013 * t1016 - 0.200000e6 / 0.27e2 * t1019 * t1016 + 0.800000e6 / 0.9e1 * t1022 * t1016 + 0.3500000e7 / 0.27e2 * t1025 * t1016 + 0.1400000e7 / 0.27e2 * t1030 * t1016 - 0.6160e4 / 0.81e2 * t73 * t545 * t79 - 0.108800e6 / 0.9e1 * t338 * t1036 + 0.272000e6 / 0.27e2 * t355 * t1036 - 0.30800e5 / 0.81e2 * t178 * t1041 - 0.272000e6 / 0.81e2 * t331 * t1036 - 0.6160e4 / 0.81e2 * t162 * t1041 + 0.12320e5 / 0.27e2 * t166 * t1041;
490 t1065 = t629 * t124;
491 t1078 = -0.108800e6 / 0.81e2 * t343 * t1036 + 0.12320e5 / 0.27e2 * t170 * t1041 + 0.1360000e7 / 0.81e2 * t348 * t1036 - 0.30800e5 / 0.81e2 * t173 * t1041 - 0.100000e6 / 0.27e2 * t1015 * t169 * t10 + 0.54400e5 / 0.81e2 * t327 * t261 * t161 + 0.416000e6 / 0.9e1 * t664 * t1065 - 0.160000e6 / 0.3e1 * t667 * t1065 - 0.400000e6 / 0.3e1 * t670 * t1065 - 0.560000e6 / 0.9e1 * t675 * t1065 + 0.272000e6 / 0.9e1 * t661 * t1065 + 0.16000e5 / 0.9e1 * t1065 * t85;
492 t1086 = 0.1e1 / t17 / t113;
493 t1087 = t10 * t1086;
494 t1088 = t1087 * t25;
495 t1094 = t9 / t11 / t123 * t38;
496 t1098 = 0.1e1 / t276 * t48;
497 t1104 = 0.1e1 / t17 / t390 * t136 * t10;
498 t1111 = 0.1e1 / t11 / t840 * t293 * t9;
499 t1123 = t574 * t32;
500 t1125 = 0.1e1 / t1123 * t592;
501 t1136 = t130 * t43;
502 t1142 = 0.1e1 / t135 / t47;
503 t1144 = 0.1e1 / t17 / t574 / t113 * t1142 * t10;
504 t1147 = 0.10342716049382716049e1 * t54 * t1088 - 0.57780148148148148150e-1 * t143 * t1094 + 0.10368442469135802470e-2 * t302 * t1098 - 0.38059425185185185188e-5 * t602 * t1104 + 0.99420539259259259267e-8 * t53 * t287 * t1111 + 0.66054320987654320988e-1 * t58 * t1094 - 0.29981708641975308644e-2 * t148 * t1098 + 0.23859958518518518520e-4 * t309 * t1104 - 0.16155837629629629631e-6 * t611 * t1111 + 0.39768215703703703709e-9 * t57 * t587 * t1125 + 0.2027520e-2 * t62 * t1098 - 0.41848983703703703705e-4 * t153 * t1104 + 0.62409690074074074078e-6 * t316 * t1111 - 0.40265318400000000004e-8 * t620 * t1125 + 0.47721858844444444450e-11 * t61 * t1136 * t1144;
505 t1182 = 0.4e1 * t156 * t678 + t65 * (t1050 + t1078) + 0.6e1 * t319 * t360 + 0.4e1 * t623 * t181 + t1147 * t94 + 0.10342716049382716049e1 * t15 * t1088 + 0.66054320987654320988e-1 * t31 * t1094 + 0.47721858844444444450e-11 * t42 * t1136 * t1144 - 0.57780148148148148150e-1 * t112 * t1094 - 0.38059425185185185188e-5 * t560 * t1104 + 0.99420539259259259267e-8 * t14 * t287 * t1111 + 0.23859958518518518520e-4 * t275 * t1104 - 0.16155837629629629631e-6 * t573 * t1111 + 0.2027520e-2 * t44 * t1098 - 0.41848983703703703705e-4 * t131 * t1104 + 0.62409690074074074078e-6 * t288 * t1111 + 0.10368442469135802470e-2 * t266 * t1098 - 0.29981708641975308644e-2 * t122 * t1098 + 0.39768215703703703709e-9 * t29 * t587 * t1125 - 0.40265318400000000004e-8 * t588 * t1125;
506 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
507 v4rho4[0] = -0.5e1 / 0.54e2 * t8 * t20 * t96 + 0.2e1 / 0.9e1 * t8 * t229 * t183 - t8 * t246 * t362 / 0.2e1 - t8 * t12 * t680 - 0.3e1 / 0.16e2 * t103 * t104 * t1182;
508
509 t1187 = t75 * t2 * t4;
510 t1204 = 0.1e1 / t17 / t574 / t33 * t1142 * t10;
511 t1207 = t545 * t25;
512 t1211 = t551 * t38 * sigma[0];
513 t1216 = t136 * t43 * t10;
514 t1264 = -0.18251851851851851852e0 * t208 * t1207 + 0.14392888888888888889e-1 * t399 * t1211 - 0.31099259259259259261e-3 * t53 * t556 * t698 + 0.12961564444444444446e-5 * t53 * t562 * t1216 - 0.37282702222222222226e-8 * t602 * t578 - 0.15853037037037037037e-1 * t213 * t553 + 0.85227140740740740743e-3 * t58 * t557 - 0.76203804444444444448e-5 * t148 * t564 + 0.56390087111111111116e-7 * t309 * t578 - 0.14913080888888888891e-9 * t611 * t593 - 0.552960e-3 * t218 * t557 + 0.12734008888888888889e-4 * t62 * t564 - 0.20651121777777777779e-6 * t153 * t578 + 0.14260633600000000001e-8 * t316 * t593 - 0.17895697066666666669e-11 * t620 * t1204;
515 t1275 = -0.552960e-3 * t198 * t557 + 0.12734008888888888889e-4 * t44 * t564 - 0.20651121777777777779e-6 * t131 * t578 - 0.17895697066666666669e-11 * t588 * t1204 - 0.18251851851851851852e0 * t187 * t1207 + 0.14392888888888888889e-1 * t373 * t1211 + 0.12961564444444444446e-5 * t14 * t562 * t1216 - 0.37282702222222222226e-8 * t560 * t578 - 0.76203804444444444448e-5 * t122 * t564 + 0.56390087111111111116e-7 * t275 * t578 - 0.15853037037037037037e-1 * t193 * t553 + 0.3e1 * t416 * t360 + t223 * t678 + 0.3e1 * t747 * t181 + t1264 * t94 - 0.31099259259259259261e-3 * t14 * t556 * t698 + 0.85227140740740740743e-3 * t31 * t557 - 0.14913080888888888891e-9 * t573 * t593 + 0.14260633600000000001e-8 * t288 * t593;
516 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
517 v4rho3sigma[0] = t1187 * t226 / 0.18e2 - t685 * t420 / 0.4e1 - 0.3e1 / 0.4e1 * t367 * t753 - 0.3e1 / 0.16e2 * t103 * t104 * t1275;
518
519 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
520 v4rho3lapl[0] = 0.0e0;
521
522 t1306 = t116 * tau[0];
523 t1317 = t46 * t326;
524 t1321 = 0.1e1 / t17 / t123;
525 t1323 = t1321 * t629 * t10;
526 t1334 = -0.2600e4 / 0.3e1 * t46 * t85 * t326 + 0.13120e5 / 0.27e2 * t343 * t1306 + 0.2200e4 / 0.27e2 * t173 * t255 - 0.164000e6 / 0.27e2 * t348 * t1306 + 0.2200e4 / 0.27e2 * t178 * t255 - 0.32800e5 / 0.9e1 * t355 * t1306 - 0.44200e5 / 0.3e1 * t661 * t1317 + 0.40000e5 / 0.3e1 * t1013 * t1323 - 0.67600e5 / 0.3e1 * t664 * t1317 + 0.40000e5 / 0.9e1 * t1019 * t1323 + 0.26000e5 * t667 * t1317 - 0.160000e6 / 0.3e1 * t1022 * t1323;
527 t1361 = 0.65000e5 * t670 * t1317 - 0.700000e6 / 0.9e1 * t1025 * t1323 + 0.91000e5 / 0.3e1 * t675 * t1317 - 0.280000e6 / 0.9e1 * t1030 * t1323 + 0.440e3 / 0.27e2 * t162 * t255 + 0.32800e5 / 0.27e2 * t331 * t1306 - 0.880e3 / 0.9e1 * t166 * t255 + 0.13120e5 / 0.3e1 * t338 * t1306 - 0.880e3 / 0.9e1 * t170 * t255 + 0.440e3 / 0.27e2 * t255 * t79 - 0.6560e4 / 0.27e2 * t116 * t434 + 0.20000e5 / 0.9e1 * t629 * t10 * t1321 * t169;
528 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
529 v4rho3tau[0] = t1187 * t242 / 0.18e2 - t685 * t426 / 0.4e1 - t685 * t460 / 0.4e1 - 0.3e1 / 0.4e1 * t367 * t763 - 0.3e1 / 0.2e1 * t367 * t767 - 0.3e1 / 0.4e1 * t367 * t812 - 0.3e1 / 0.16e2 * t103 * t104 * t623 * t240 - 0.9e1 / 0.16e2 * t103 * t104 * t319 * t458 - 0.9e1 / 0.16e2 * t103 * t104 * t156 * t810 - 0.3e1 / 0.16e2 * t103 * t104 * t65 * (t1334 + t1361);
530
531 t1380 = t136 * t30 * t10;
532 t1408 = 0.1e1 / t17 / t1123 * t1142 * t10;
533 t1411 = -0.21617777777777777778e-2 * t399 * t693 + 0.76003555555555555557e-4 * t726 * t820 - 0.40960000000000000002e-6 * t53 * t278 * t1380 + 0.13981013333333333335e-8 * t302 * t295 + 0.21617777777777777778e-2 * t491 * t693 - 0.18659555555555555556e-3 * t57 * t267 * t820 + 0.21408426666666666667e-5 * t57 * t278 * t1380 - 0.18699605333333333334e-7 * t148 * t295 + 0.55924053333333333337e-10 * t309 * t719 + 0.110592e-3 * t498 * t268 - 0.32604160000000000000e-5 * t218 * t280 + 0.62302890666666666668e-7 * t62 * t295 - 0.48584021333333333334e-9 * t153 * t719 + 0.67108864000000000002e-12 * t316 * t1408;
534 t1444 = 0.2e1 * t869 * t181 + t505 * t360 + t1411 * t94 + 0.76003555555555555557e-4 * t697 * t820 - 0.18659555555555555556e-3 * t29 * t267 * t820 + 0.55924053333333333337e-10 * t275 * t719 - 0.48584021333333333334e-9 * t131 * t719 - 0.21617777777777777778e-2 * t373 * t693 - 0.40960000000000000002e-6 * t14 * t278 * t1380 + 0.13981013333333333335e-8 * t266 * t295 + 0.21617777777777777778e-2 * t468 * t693 + 0.21408426666666666667e-5 * t29 * t278 * t1380 - 0.18699605333333333334e-7 * t122 * t295 + 0.110592e-3 * t475 * t268 - 0.32604160000000000000e-5 * t198 * t280 + 0.62302890666666666668e-7 * t44 * t295 + 0.67108864000000000002e-12 * t288 * t1408;
535 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
536 v4rho2sigma2[0] = -t685 * t508 / 0.12e2 - t367 * t873 / 0.2e1 - 0.3e1 / 0.16e2 * t103 * t104 * t1444;
537
538 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
539 v4rho2sigmalapl[0] = 0.0e0;
540
541 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
542 v4rho2sigmatau[0] = -t685 * t512 / 0.12e2 - t367 * t879 / 0.2e1 - t367 * t883 / 0.2e1 - 0.3e1 / 0.16e2 * t103 * t104 * t747 * t240 - 0.3e1 / 0.8e1 * t103 * t104 * t416 * t458 - 0.3e1 / 0.16e2 * t103 * t104 * t223 * t810;
543
544 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
545 v4rho2lapl2[0] = 0.0e0;
546
547 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
548 v4rho2lapltau[0] = 0.0e0;
549
550 t1480 = t774 * tau[0];
551 t1484 = 0.1e1 / t17 / t45;
552 t1486 = t1484 * t326 * t10;
553 t1523 = -0.39200e5 / 0.3e1 * t675 * t1480 + 0.56000e5 / 0.3e1 * t1030 * t1486 + 0.2600e4 / 0.3e1 * t355 * t36 + 0.19040e5 / 0.3e1 * t661 * t1480 - 0.8000e4 * t1013 * t1486 - 0.2600e4 / 0.9e1 * t331 * t36 + 0.29120e5 / 0.3e1 * t664 * t1480 - 0.8000e4 / 0.3e1 * t1019 * t1486 - 0.1040e4 * t338 * t36 - 0.11200e5 * t667 * t1480 + 0.32000e5 * t1022 * t1486 - 0.1040e4 / 0.9e1 * t343 * t36 - 0.28000e5 * t670 * t1480 + 0.140000e6 / 0.3e1 * t1025 * t1486 + 0.13000e5 / 0.9e1 * t348 * t36 + 0.520e3 / 0.9e1 * t36 * t161 - 0.4000e4 / 0.3e1 * t1484 * t169 * t326 * t10 + 0.1120e4 / 0.3e1 * t796 * tau[0];
554 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
555 v4rho2tau2[0] = -t685 * t532 / 0.12e2 - t367 * t889 / 0.2e1 - t367 * t921 / 0.2e1 - 0.3e1 / 0.16e2 * t103 * t104 * t319 * t530 - 0.3e1 / 0.8e1 * t103 * t104 * t156 * t919 - 0.3e1 / 0.16e2 * t103 * t104 * t65 * t1523;
556
557 t1534 = t136 * sigma[0] * t10;
558 t1561 = 0.1e1 / t17 / t589 * t1142 * t10;
559 t1592 = -0.12288e-4 * t847 * t48 + 0.11468800000000000000e-6 * t53 * t134 * t1534 - 0.52428800000000000002e-9 * t143 * t394 + 0.24576e-4 * t854 * t48 - 0.49152000000000000000e-6 * t57 * t134 * t1534 + 0.57671680000000000001e-8 * t58 * t394 - 0.20971520000000000001e-10 * t148 * t842 - 0.12288e-4 * t61 * t124 * t48 + 0.63897600000000000000e-6 * t61 * t134 * t1534 - 0.16515072000000000000e-7 * t218 * t394 + 0.15728640000000000000e-9 * t62 * t842 - 0.25165824000000000001e-12 * t153 * t1561;
560 t1595 = -0.12288e-4 * t819 * t48 + 0.11468800000000000000e-6 * t14 * t134 * t1534 - 0.52428800000000000002e-9 * t112 * t394 + 0.24576e-4 * t827 * t48 - 0.49152000000000000000e-6 * t29 * t134 * t1534 + 0.57671680000000000001e-8 * t31 * t394 - 0.20971520000000000001e-10 * t122 * t842 - 0.12288e-4 * t42 * t124 * t48 + 0.63897600000000000000e-6 * t42 * t134 * t1534 - 0.16515072000000000000e-7 * t198 * t394 + 0.15728640000000000000e-9 * t44 * t842 - 0.25165824000000000001e-12 * t131 * t1561 + t1592 * t94 + t968 * t181;
561 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
562 v4rhosigma3[0] = -t367 * t971 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t104 * t1595;
563
564 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
565 v4rhosigma2lapl[0] = 0.0e0;
566
567 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
568 v4rhosigma2tau[0] = -t367 * t975 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t104 * t869 * t240 - 0.3e1 / 0.16e2 * t103 * t104 * t505 * t458;
569
570 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
571 v4rhosigmalapl2[0] = 0.0e0;
572
573 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
574 v4rhosigmalapltau[0] = 0.0e0;
575
576 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
577 v4rhosigmatau2[0] = -t367 * t979 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t104 * t416 * t530 - 0.3e1 / 0.16e2 * t103 * t104 * t223 * t919;
578
579 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
580 v4rholapl3[0] = 0.0e0;
581
582 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
583 v4rholapl2tau[0] = 0.0e0;
584
585 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
586 v4rholapltau2[0] = 0.0e0;
587
588 t1627 = 0.1e1 / t17 / t259;
589 t1632 = t1627 * tau[0] * t10;
590 t1653 = 0.800e3 * t1627 * t169 * t73 + 0.4800e4 * t1013 * t1632 + 0.1600e4 * t1019 * t1632 - 0.19200e5 * t1022 * t1632 - 0.28000e5 * t1025 * t1632 - 0.11200e5 * t1030 * t1632 - 0.2040e4 * t661 * t894 - 0.3120e4 * t664 * t894 + 0.3600e4 * t667 * t894 + 0.9000e4 * t670 * t894 + 0.4200e4 * t675 * t894 - 0.120e3 * t895;
591 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
592 v4rhotau3[0] = -t367 * t997 / 0.4e1 - 0.3e1 / 0.16e2 * t103 * t104 * t156 * t995 - 0.3e1 / 0.16e2 * t103 * t104 * t65 * t1653;
593
594 t1659 = t136 * t10;
595 t1681 = 0.1e1 / t17 / t717 * t1142 * t10;
596 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
597 v4sigma4[0] = -0.3e1 / 0.16e2 * t103 * t104 * (-0.24576e-7 * t14 * t203 * t1659 + 0.196608e-9 * t15 * t484 + 0.73728e-7 * t29 * t203 * t1659 - 0.1572864e-8 * t193 * t484 + 0.7864320e-11 * t31 * t944 - 0.73728e-7 * t42 * t203 * t1659 + 0.3538944e-8 * t475 * t484 - 0.47185920e-10 * t198 * t944 + 0.94371840e-13 * t44 * t1681 + (-0.24576e-7 * t53 * t203 * t1659 + 0.196608e-9 * t54 * t484 + 0.73728e-7 * t57 * t203 * t1659 - 0.1572864e-8 * t213 * t484 + 0.7864320e-11 * t58 * t944 - 0.73728e-7 * t61 * t203 * t1659 + 0.3538944e-8 * t498 * t484 - 0.47185920e-10 * t218 * t944 + 0.94371840e-13 * t62 * t1681) * t94);
598
599 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
600 v4sigma3lapl[0] = 0.0e0;
601
602 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
603 v4sigma3tau[0] = -0.3e1 / 0.16e2 * t103 * t104 * t968 * t240;
604
605 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
606 v4sigma2lapl2[0] = 0.0e0;
607
608 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
609 v4sigma2lapltau[0] = 0.0e0;
610
611 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
612 v4sigma2tau2[0] = -0.3e1 / 0.16e2 * t103 * t104 * t505 * t530;
613
614 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
615 v4sigmalapl3[0] = 0.0e0;
616
617 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
618 v4sigmalapl2tau[0] = 0.0e0;
619
620 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
621 v4sigmalapltau2[0] = 0.0e0;
622
623 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
624 v4sigmatau3[0] = -0.3e1 / 0.16e2 * t103 * t104 * t223 * t995;
625
626 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
627 v4lapl4[0] = 0.0e0;
628
629 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
630 v4lapl3tau[0] = 0.0e0;
631
632 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
633 v4lapl2tau2[0] = 0.0e0;
634
635 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
636 v4lapltau3[0] = 0.0e0;
637
638 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
639 v4tau4[0] = -0.3e1 / 0.16e2 * t103 * t104 * t65 * (-0.480e3 * t1086 * t169 * t10 - 0.2880e4 * t1013 * t1087 - 0.960e3 * t1019 * t1087 + 0.11520e5 * t1022 * t1087 + 0.16800e5 * t1025 * t1087 + 0.6720e4 * t1030 * t1087);
640
641 #ifndef XC_DONT_COMPILE_MXC
642
643 if(order < 5) return;
644
645
646 #endif
647
648 #endif
649
650 #endif
651
652 #endif
653
654 #endif
655
656
657 }
658
659
660 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 *))661 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 *))
662 {
663
664 #ifndef XC_DONT_COMPILE_EXC
665 double t2, t4, t5, t6, t7, t8, t9, t11;
666 double t12, t13, t14, t16, t19, t20, t21, t24;
667 double t25, t26, t27, t28, t30, t31, t32, t33;
668 double t36, t37, t38, t39, t40, t41, t42, t43;
669 double t47, t48, t51, t52, t55, t56, t59, t60;
670 double t61, t62, t63, t64, t66, t68, t69, t70;
671 double t71, t72, t74, t75, t76, t77, t78, t81;
672 double t82, t83, t85, t87, t89, t91;
673
674 #ifndef XC_DONT_COMPILE_VXC
675 double t95, t96, t97, t99, t100, t103, t104, t106;
676 double t107, t112, t113, t114, t115, t120, t121, t122;
677 double t124, t125, t126, t127, t132, t137, t142, t145;
678 double t147, t150, t151, t154, t157, t158, t161, t165;
679 double t166, t169, t171, t180, t185, t188, t190, t191;
680 double t199, t204, t209, t212, t215, t216, t227, t228;
681
682 #ifndef XC_DONT_COMPILE_FXC
683 double t231, t232, t239, t240, t243, t245, t246, t249;
684 double t250, t251, t258, t259, t261, t262, t269, t270;
685 double t275, t276, t283, t290, t297, t300, t304, t307;
686 double t308, t311, t316, t321, t326, t332, t333, t338;
687 double t340, t344, t350, t351, t366, t369, t375, t392;
688 double t395, t396, t399, t402, t403, t409, t410, t413;
689 double t434, t435, t450, t455, t458, t473, t480, t483;
690 double t486, t487, t491, t504, t505;
691
692 #ifndef XC_DONT_COMPILE_KXC
693 double t508, t519, t520, t524, t525, t528, t529, t532;
694 double t534, t535, t544, t545, t548, t557, t558, t559;
695 double t562, t563, t572, t581, t590, t593, t599, t602;
696 double t619, t620, t621, t624, t627, t630, t633, t634;
697 double t635, t646, t648, t652, t659, t662, t663, t682;
698 double t684, t690, t693, t714, t719, t720, t723, t728;
699 double t729, t732, t737, t740, t741, t744, t765, t776;
700 double t777, t784, t785, t793, t806, t808, t813, t821;
701 double t836, t839, t840, t845, t846, t849, t854, t858;
702 double t859, t862, t883, t884, t907, t931, t934, t937;
703 double t938, t941, t944, t957, t958;
704
705 #ifndef XC_DONT_COMPILE_LXC
706 double t974, t976, t981, t986, t991, t997, t998, t1003;
707 double t1007, t1023, t1026, t1027, t1030, t1033, t1038, t1053;
708 double t1056, t1057, t1060, t1063, t1084, t1092, t1093, t1127;
709 double t1135, t1139, t1161, t1187, t1190, t1226, t1254, t1255;
710 double t1260, t1281, t1288, t1310, t1326, t1354, t1357, t1391;
711 double t1419, t1431, t1440, t1459, t1468, t1494, t1525, t1528;
712 double t1556, t1560, t1581, t1606;
713 #endif
714
715 #endif
716
717 #endif
718
719 #endif
720
721 #endif
722
723
724 mgga_x_tau_hcth_params *params;
725
726 assert(p->params != NULL);
727 params = (mgga_x_tau_hcth_params * ) (p->params);
728
729 t2 = M_CBRT3;
730 t4 = POW_1_3(0.1e1 / M_PI);
731 t5 = t2 * t4;
732 t6 = M_CBRT4;
733 t7 = t6 * t6;
734 t8 = POW_1_3(rho[0]);
735 t9 = t7 * t8;
736 t11 = params->cx_local[1];
737 t12 = t11 * sigma[0];
738 t13 = rho[0] * rho[0];
739 t14 = t8 * t8;
740 t16 = 0.1e1 / t14 / t13;
741 t19 = 0.1e1 + 0.4e-2 * sigma[0] * t16;
742 t20 = 0.1e1 / t19;
743 t21 = t16 * t20;
744 t24 = params->cx_local[2];
745 t25 = sigma[0] * sigma[0];
746 t26 = t24 * t25;
747 t27 = t13 * t13;
748 t28 = t27 * rho[0];
749 t30 = 0.1e1 / t8 / t28;
750 t31 = t19 * t19;
751 t32 = 0.1e1 / t31;
752 t33 = t30 * t32;
753 t36 = params->cx_local[3];
754 t37 = t25 * sigma[0];
755 t38 = t36 * t37;
756 t39 = t27 * t27;
757 t40 = 0.1e1 / t39;
758 t41 = t31 * t19;
759 t42 = 0.1e1 / t41;
760 t43 = t40 * t42;
761 t47 = params->cx_nlocal[1];
762 t48 = t47 * sigma[0];
763 t51 = params->cx_nlocal[2];
764 t52 = t51 * t25;
765 t55 = params->cx_nlocal[3];
766 t56 = t55 * t37;
767 t59 = params->cx_nlocal[0] + 0.4e-2 * t48 * t21 + 0.16e-4 * t52 * t33 + 0.64e-7 * t56 * t43;
768 t60 = M_CBRT6;
769 t61 = t60 * t60;
770 t62 = M_PI * M_PI;
771 t63 = POW_1_3(t62);
772 t64 = t63 * t63;
773 t66 = 0.3e1 / 0.10e2 * t61 * t64;
774 t68 = 0.1e1 / t14 / rho[0];
775 t69 = tau[0] * t68;
776 t70 = t66 - t69;
777 t71 = t66 + t69;
778 t72 = 0.1e1 / t71;
779 t74 = t70 * t70;
780 t75 = t74 * t70;
781 t76 = t71 * t71;
782 t77 = t76 * t71;
783 t78 = 0.1e1 / t77;
784 t81 = t74 * t74;
785 t82 = t81 * t70;
786 t83 = t76 * t76;
787 t85 = 0.1e1 / t83 / t71;
788 t87 = t70 * t72 - 0.2e1 * t75 * t78 + t82 * t85;
789 t89 = params->cx_local[0] + 0.4e-2 * t12 * t21 + 0.16e-4 * t26 * t33 + 0.64e-7 * t38 * t43 + t59 * t87;
790 t91 = t5 * t9 * t89;
791 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
792 zk[0] = -0.3e1 / 0.8e1 * t91;
793
794 #ifndef XC_DONT_COMPILE_VXC
795
796 if(order < 1) return;
797
798
799 t95 = t8 * rho[0] * t2;
800 t96 = t4 * t7;
801 t97 = t13 * rho[0];
802 t99 = 0.1e1 / t14 / t97;
803 t100 = t99 * t20;
804 t103 = t11 * t25;
805 t104 = t27 * t13;
806 t106 = 0.1e1 / t8 / t104;
807 t107 = t106 * t32;
808 t112 = t24 * t37;
809 t113 = t39 * rho[0];
810 t114 = 0.1e1 / t113;
811 t115 = t114 * t42;
812 t120 = t25 * t25;
813 t121 = t36 * t120;
814 t122 = t39 * t97;
815 t124 = 0.1e1 / t14 / t122;
816 t125 = t31 * t31;
817 t126 = 0.1e1 / t125;
818 t127 = t124 * t126;
819 t132 = t47 * t25;
820 t137 = t51 * t37;
821 t142 = t55 * t120;
822 t145 = -0.10666666666666666667e-1 * t48 * t100 + 0.42666666666666666668e-4 * t132 * t107 - 0.85333333333333333333e-4 * t52 * t107 + 0.34133333333333333334e-6 * t137 * t115 - 0.512e-6 * t56 * t115 + 0.20480000000000000001e-8 * t142 * t127;
823 t147 = tau[0] * t16;
824 t150 = 0.1e1 / t76;
825 t151 = t70 * t150;
826 t154 = t74 * t78;
827 t157 = 0.1e1 / t83;
828 t158 = t75 * t157;
829 t161 = t81 * t85;
830 t165 = 0.1e1 / t83 / t76;
831 t166 = t82 * t165;
832 t169 = 0.5e1 / 0.3e1 * t147 * t72 + 0.5e1 / 0.3e1 * t151 * t147 - 0.10e2 * t154 * t147 - 0.10e2 * t158 * t147 + 0.25e2 / 0.3e1 * t161 * t147 + 0.25e2 / 0.3e1 * t166 * t147;
833 t171 = -0.10666666666666666667e-1 * t12 * t100 + 0.42666666666666666668e-4 * t103 * t107 - 0.85333333333333333333e-4 * t26 * t107 + 0.34133333333333333334e-6 * t112 * t115 - 0.512e-6 * t38 * t115 + 0.20480000000000000001e-8 * t121 * t127 + t145 * t87 + t59 * t169;
834 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
835 vrho[0] = -t91 / 0.2e1 - 0.3e1 / 0.8e1 * t95 * t96 * t171;
836
837 t180 = t24 * sigma[0];
838 t185 = t36 * t25;
839 t188 = t39 * t13;
840 t190 = 0.1e1 / t14 / t188;
841 t191 = t190 * t126;
842 t199 = t51 * sigma[0];
843 t204 = t55 * t25;
844 t209 = 0.4e-2 * t47 * t16 * t20 - 0.16e-4 * t48 * t33 + 0.32e-4 * t199 * t33 - 0.128e-6 * t52 * t43 + 0.192e-6 * t204 * t43 - 0.768e-9 * t56 * t191;
845 t212 = t96 * (0.4e-2 * t11 * t16 * t20 - 0.16e-4 * t12 * t33 + 0.32e-4 * t180 * t33 - 0.128e-6 * t26 * t43 + 0.192e-6 * t185 * t43 - 0.768e-9 * t38 * t191 + t209 * t87);
846 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
847 vsigma[0] = -0.3e1 / 0.8e1 * t95 * t212;
848
849 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
850 vlapl[0] = 0.0e0;
851
852 t215 = t95 * t4;
853 t216 = t7 * t59;
854 t227 = -t151 * t68 + 0.6e1 * t154 * t68 + 0.6e1 * t158 * t68 - 0.5e1 * t161 * t68 - 0.5e1 * t166 * t68 - t68 * t72;
855 t228 = t216 * t227;
856 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
857 vtau[0] = -0.3e1 / 0.8e1 * t215 * t228;
858
859 #ifndef XC_DONT_COMPILE_FXC
860
861 if(order < 2) return;
862
863
864 t231 = 0.1e1 / t14;
865 t232 = t7 * t231;
866 t239 = 0.1e1 / t14 / t27;
867 t240 = t239 * t20;
868 t243 = t27 * t97;
869 t245 = 0.1e1 / t8 / t243;
870 t246 = t245 * t32;
871 t249 = t11 * t37;
872 t250 = 0.1e1 / t188;
873 t251 = t250 * t42;
874 t258 = t24 * t120;
875 t259 = t39 * t27;
876 t261 = 0.1e1 / t14 / t259;
877 t262 = t261 * t126;
878 t269 = t120 * sigma[0];
879 t270 = t36 * t269;
880 t275 = 0.1e1 / t125 / t19;
881 t276 = 0.1e1 / t8 / t39 / t243 * t275;
882 t283 = t47 * t37;
883 t290 = t51 * t120;
884 t297 = t55 * t269;
885 t300 = 0.39111111111111111112e-1 * t48 * t240 - 0.38400000000000000001e-3 * t132 * t246 + 0.91022222222222222228e-6 * t283 * t251 + 0.54044444444444444444e-3 * t52 * t246 - 0.48924444444444444446e-5 * t137 * t251 + 0.10922666666666666667e-7 * t290 * t262 + 0.4608e-5 * t56 * t251 - 0.40277333333333333336e-7 * t142 * t262 + 0.87381333333333333340e-10 * t297 * t276;
886 t304 = tau[0] * t99;
887 t307 = tau[0] * tau[0];
888 t308 = t307 * t30;
889 t311 = t70 * t78;
890 t316 = t74 * t157;
891 t321 = t75 * t85;
892 t326 = t81 * t165;
893 t332 = 0.1e1 / t83 / t77;
894 t333 = t82 * t332;
895 t338 = -0.40e2 / 0.9e1 * t304 * t72 + 0.50e2 / 0.9e1 * t308 * t150 - 0.250e3 / 0.9e1 * t311 * t308 - 0.40e2 / 0.9e1 * t151 * t304 - 0.100e3 * t316 * t308 + 0.80e2 / 0.3e1 * t154 * t304 - 0.100e3 / 0.9e1 * t321 * t308 + 0.80e2 / 0.3e1 * t158 * t304 + 0.1250e4 / 0.9e1 * t326 * t308 - 0.200e3 / 0.9e1 * t161 * t304 + 0.250e3 / 0.3e1 * t333 * t308 - 0.200e3 / 0.9e1 * t166 * t304;
896 t340 = 0.39111111111111111112e-1 * t12 * t240 - 0.38400000000000000001e-3 * t103 * t246 + 0.91022222222222222228e-6 * t249 * t251 + 0.54044444444444444444e-3 * t26 * t246 - 0.48924444444444444446e-5 * t112 * t251 + 0.10922666666666666667e-7 * t258 * t262 + 0.4608e-5 * t38 * t251 - 0.40277333333333333336e-7 * t121 * t262 + 0.87381333333333333340e-10 * t270 * t276 + t300 * t87 + 0.2e1 * t145 * t169 + t59 * t338;
897 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
898 v2rho2[0] = -t5 * t232 * t89 / 0.6e1 - t5 * t9 * t171 - 0.3e1 / 0.8e1 * t95 * t96 * t340;
899
900 t344 = t8 * t2;
901 t350 = t11 * t106;
902 t351 = t32 * sigma[0];
903 t366 = t39 * t104;
904 t369 = 0.1e1 / t8 / t366 * t275;
905 t375 = t47 * t106;
906 t392 = -0.10666666666666666667e-1 * t47 * t99 * t20 + 0.12800000000000000000e-3 * t375 * t351 - 0.34133333333333333334e-6 * t132 * t115 - 0.17066666666666666667e-3 * t199 * t107 + 0.17066666666666666667e-5 * t52 * t115 - 0.40960000000000000001e-8 * t137 * t127 - 0.1536e-5 * t204 * t115 + 0.14336000000000000000e-7 * t56 * t127 - 0.32768000000000000001e-10 * t142 * t369;
907 t395 = -0.10666666666666666667e-1 * t11 * t99 * t20 + 0.12800000000000000000e-3 * t350 * t351 - 0.34133333333333333334e-6 * t103 * t115 - 0.17066666666666666667e-3 * t180 * t107 + 0.17066666666666666667e-5 * t26 * t115 - 0.40960000000000000001e-8 * t112 * t127 - 0.1536e-5 * t185 * t115 + 0.14336000000000000000e-7 * t38 * t127 - 0.32768000000000000001e-10 * t121 * t369 + t392 * t87 + t209 * t169;
908 t396 = t96 * t395;
909 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
910 v2rhosigma[0] = -t344 * t212 / 0.2e1 - 0.3e1 / 0.8e1 * t95 * t396;
911
912 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
913 v2rholapl[0] = 0.0e0;
914
915 t399 = t344 * t4;
916 t402 = t7 * t145;
917 t403 = t402 * t227;
918 t409 = 0.1e1 / t8 / t27;
919 t410 = t409 * t150;
920 t413 = t409 * tau[0];
921 t434 = 0.5e1 / 0.3e1 * t16 * t72 - 0.10e2 / 0.3e1 * t410 * tau[0] + 0.50e2 / 0.3e1 * t311 * t413 + 0.5e1 / 0.3e1 * t151 * t16 + 0.60e2 * t316 * t413 - 0.10e2 * t154 * t16 + 0.20e2 / 0.3e1 * t321 * t413 - 0.10e2 * t158 * t16 - 0.250e3 / 0.3e1 * t326 * t413 + 0.25e2 / 0.3e1 * t161 * t16 - 0.50e2 * t333 * t413 + 0.25e2 / 0.3e1 * t166 * t16;
922 t435 = t216 * t434;
923 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
924 v2rhotau[0] = -t399 * t228 / 0.2e1 - 0.3e1 / 0.8e1 * t215 * t403 - 0.3e1 / 0.8e1 * t215 * t435;
925
926 t450 = t36 * sigma[0];
927 t455 = t39 * t28;
928 t458 = 0.1e1 / t8 / t455 * t275;
929 t473 = t55 * sigma[0];
930 t480 = -0.32e-4 * t47 * t30 * t32 + 0.128e-6 * t48 * t43 + 0.32e-4 * t51 * t30 * t32 - 0.512e-6 * t199 * t43 + 0.1536e-8 * t52 * t191 + 0.384e-6 * t473 * t43 - 0.4608e-8 * t204 * t191 + 0.12288e-10 * t56 * t458;
931 t483 = t96 * (-0.32e-4 * t11 * t30 * t32 + 0.128e-6 * t12 * t43 + 0.32e-4 * t24 * t30 * t32 - 0.512e-6 * t180 * t43 + 0.1536e-8 * t26 * t191 + 0.384e-6 * t450 * t43 - 0.4608e-8 * t185 * t191 + 0.12288e-10 * t38 * t458 + t480 * t87);
932 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
933 v2sigma2[0] = -0.3e1 / 0.8e1 * t95 * t483;
934
935 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
936 v2sigmalapl[0] = 0.0e0;
937
938 t486 = t7 * t209;
939 t487 = t486 * t227;
940 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
941 v2sigmatau[0] = -0.3e1 / 0.8e1 * t215 * t487;
942
943 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
944 v2lapl2[0] = 0.0e0;
945
946 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
947 v2lapltau[0] = 0.0e0;
948
949 t491 = 0.1e1 / t8 / t97;
950 t504 = 0.2e1 * t491 * t150 - 0.10e2 * t311 * t491 - 0.36e2 * t316 * t491 - 0.4e1 * t321 * t491 + 0.50e2 * t326 * t491 + 0.30e2 * t333 * t491;
951 t505 = t216 * t504;
952 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
953 v2tau2[0] = -0.3e1 / 0.8e1 * t215 * t505;
954
955 #ifndef XC_DONT_COMPILE_KXC
956
957 if(order < 3) return;
958
959
960 t508 = t7 * t68;
961 t519 = 0.1e1 / t14 / t28;
962 t520 = t519 * t20;
963 t524 = 0.1e1 / t8 / t39;
964 t525 = t524 * t32;
965 t528 = 0.1e1 / t122;
966 t529 = t528 * t42;
967 t532 = t11 * t120;
968 t534 = 0.1e1 / t14 / t455;
969 t535 = t534 * t126;
970 t544 = t24 * t269;
971 t545 = t39 * t39;
972 t548 = 0.1e1 / t8 / t545 * t275;
973 t557 = t120 * t25;
974 t558 = t36 * t557;
975 t559 = t545 * t97;
976 t562 = 0.1e1 / t125 / t31;
977 t563 = 0.1e1 / t559 * t562;
978 t572 = t47 * t120;
979 t581 = t51 * t269;
980 t590 = t55 * t557;
981 t593 = -0.18251851851851851852e0 * t48 * t520 + 0.32331851851851851853e-2 * t132 * t525 - 0.17294222222222222223e-4 * t283 * t529 + 0.29127111111111111114e-7 * t572 * t535 - 0.39632592592592592592e-2 * t52 * t525 + 0.60453925925925925928e-4 * t137 * t529 - 0.29491200000000000001e-6 * t290 * t535 + 0.46603377777777777781e-9 * t581 * t548 - 0.46080e-4 * t56 * t529 + 0.65763555555555555559e-6 * t142 * t535 - 0.30583466666666666669e-8 * t297 * t548 + 0.46603377777777777783e-11 * t590 * t563;
982 t599 = t307 * t106;
983 t602 = tau[0] * t239;
984 t619 = t70 * t157;
985 t620 = t307 * tau[0];
986 t621 = t620 * t40;
987 t624 = t74 * t85;
988 t627 = t75 * t165;
989 t630 = t81 * t332;
990 t633 = t83 * t83;
991 t634 = 0.1e1 / t633;
992 t635 = t82 * t634;
993 t646 = 0.800e3 * t316 * t599 - 0.880e3 / 0.9e1 * t154 * t602 + 0.800e3 / 0.9e1 * t321 * t599 - 0.880e3 / 0.9e1 * t158 * t602 - 0.10000e5 / 0.9e1 * t326 * t599 + 0.2200e4 / 0.27e2 * t161 * t602 - 0.2000e4 / 0.3e1 * t333 * t599 + 0.2200e4 / 0.27e2 * t166 * t602 + 0.440e3 / 0.27e2 * t602 * t72 - 0.4250e4 / 0.9e1 * t619 * t621 - 0.6500e4 / 0.9e1 * t624 * t621 + 0.2500e4 / 0.3e1 * t627 * t621 + 0.6250e4 / 0.3e1 * t630 * t621 + 0.8750e4 / 0.9e1 * t635 * t621 + 0.2000e4 / 0.9e1 * t311 * t599 + 0.440e3 / 0.27e2 * t151 * t602 - 0.400e3 / 0.9e1 * t599 * t150 - 0.250e3 / 0.9e1 * t621 * t78;
994 t648 = -0.18251851851851851852e0 * t12 * t520 + 0.32331851851851851853e-2 * t103 * t525 - 0.17294222222222222223e-4 * t249 * t529 + 0.29127111111111111114e-7 * t532 * t535 - 0.39632592592592592592e-2 * t26 * t525 + 0.60453925925925925928e-4 * t112 * t529 - 0.29491200000000000001e-6 * t258 * t535 + 0.46603377777777777781e-9 * t544 * t548 - 0.46080e-4 * t38 * t529 + 0.65763555555555555559e-6 * t121 * t535 - 0.30583466666666666669e-8 * t270 * t548 + 0.46603377777777777783e-11 * t558 * t563 + t593 * t87 + 0.3e1 * t300 * t169 + 0.3e1 * t145 * t338 + t59 * t646;
995 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
996 v3rho3[0] = t5 * t508 * t89 / 0.9e1 - t5 * t232 * t171 / 0.2e1 - 0.3e1 / 0.2e1 * t5 * t9 * t340 - 0.3e1 / 0.8e1 * t95 * t96 * t648;
997
998 t652 = t231 * t2;
999 t659 = t11 * t245;
1000 t662 = t11 * t250;
1001 t663 = t42 * t25;
1002 t682 = t545 * t13;
1003 t684 = 0.1e1 / t682 * t562;
1004 t690 = t47 * t245;
1005 t693 = t47 * t250;
1006 t714 = 0.39111111111111111112e-1 * t47 * t239 * t20 - 0.92444444444444444445e-3 * t690 * t351 + 0.58026666666666666669e-5 * t693 * t663 - 0.10922666666666666667e-7 * t283 * t262 + 0.10808888888888888889e-2 * t199 * t246 - 0.19000888888888888889e-4 * t52 * t251 + 0.10240000000000000000e-6 * t137 * t262 - 0.17476266666666666668e-9 * t290 * t276 + 0.13824e-4 * t204 * t251 - 0.21640533333333333333e-6 * t56 * t262 + 0.10813440000000000000e-8 * t142 * t276 - 0.17476266666666666668e-11 * t297 * t684;
1007 t719 = 0.39111111111111111112e-1 * t11 * t239 * t20 - 0.92444444444444444445e-3 * t659 * t351 + 0.58026666666666666669e-5 * t662 * t663 - 0.10922666666666666667e-7 * t249 * t262 + 0.10808888888888888889e-2 * t180 * t246 - 0.19000888888888888889e-4 * t26 * t251 + 0.10240000000000000000e-6 * t112 * t262 - 0.17476266666666666668e-9 * t258 * t276 + 0.13824e-4 * t185 * t251 - 0.21640533333333333333e-6 * t38 * t262 + 0.10813440000000000000e-8 * t121 * t276 - 0.17476266666666666668e-11 * t270 * t684 + t714 * t87 + 0.2e1 * t392 * t169 + t209 * t338;
1008 t720 = t96 * t719;
1009 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1010 v3rho2sigma[0] = -t652 * t212 / 0.6e1 - t344 * t396 - 0.3e1 / 0.8e1 * t95 * t720;
1011
1012 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1013 v3rho2lapl[0] = 0.0e0;
1014
1015 t723 = t652 * t4;
1016 t728 = t7 * t300;
1017 t729 = t728 * t227;
1018 t732 = t402 * t434;
1019 t737 = t30 * t150;
1020 t740 = 0.1e1 / t243;
1021 t741 = t740 * t78;
1022 t744 = t740 * t307;
1023 t765 = t30 * tau[0];
1024 t776 = -0.40e2 / 0.9e1 * t99 * t72 + 0.20e2 * t737 * tau[0] + 0.50e2 / 0.3e1 * t741 * t307 + 0.850e3 / 0.3e1 * t619 * t744 - 0.40e2 / 0.9e1 * t151 * t99 + 0.1300e4 / 0.3e1 * t624 * t744 + 0.80e2 / 0.3e1 * t154 * t99 - 0.500e3 * t627 * t744 + 0.80e2 / 0.3e1 * t158 * t99 - 0.1250e4 * t630 * t744 - 0.200e3 / 0.9e1 * t161 * t99 - 0.1750e4 / 0.3e1 * t635 * t744 - 0.200e3 / 0.9e1 * t166 * t99 - 0.100e3 * t311 * t765 - 0.360e3 * t316 * t765 - 0.40e2 * t321 * t765 + 0.500e3 * t326 * t765 + 0.300e3 * t333 * t765;
1025 t777 = t216 * t776;
1026 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1027 v3rho2tau[0] = -t723 * t228 / 0.6e1 - t399 * t403 - t399 * t435 - 0.3e1 / 0.8e1 * t215 * t729 - 0.3e1 / 0.4e1 * t215 * t732 - 0.3e1 / 0.8e1 * t215 * t777;
1028
1029 t784 = t11 * t114;
1030 t785 = t42 * sigma[0];
1031 t793 = t24 * t114;
1032 t806 = t545 * rho[0];
1033 t808 = 0.1e1 / t806 * t562;
1034 t813 = t47 * t114;
1035 t821 = t51 * t114;
1036 t836 = 0.17066666666666666667e-3 * t375 * t32 - 0.17066666666666666667e-5 * t813 * t785 + 0.40960000000000000001e-8 * t132 * t127 - 0.17066666666666666667e-3 * t51 * t106 * t32 + 0.47786666666666666667e-5 * t821 * t785 - 0.32768000000000000001e-7 * t52 * t127 + 0.65536000000000000002e-10 * t137 * t369 - 0.3072e-5 * t473 * t115 + 0.61440000000000000000e-7 * t204 * t127 - 0.36044800000000000001e-9 * t56 * t369 + 0.65536000000000000002e-12 * t142 * t808;
1037 t839 = 0.17066666666666666667e-3 * t350 * t32 - 0.17066666666666666667e-5 * t784 * t785 + 0.40960000000000000001e-8 * t103 * t127 - 0.17066666666666666667e-3 * t24 * t106 * t32 + 0.47786666666666666667e-5 * t793 * t785 - 0.32768000000000000001e-7 * t26 * t127 + 0.65536000000000000002e-10 * t112 * t369 - 0.3072e-5 * t450 * t115 + 0.61440000000000000000e-7 * t185 * t127 - 0.36044800000000000001e-9 * t38 * t369 + 0.65536000000000000002e-12 * t121 * t808 + t836 * t87 + t480 * t169;
1038 t840 = t96 * t839;
1039 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1040 v3rhosigma2[0] = -t344 * t483 / 0.2e1 - 0.3e1 / 0.8e1 * t95 * t840;
1041
1042 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1043 v3rhosigmalapl[0] = 0.0e0;
1044
1045 t845 = t7 * t392;
1046 t846 = t845 * t227;
1047 t849 = t486 * t434;
1048 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1049 v3rhosigmatau[0] = -t399 * t487 / 0.2e1 - 0.3e1 / 0.8e1 * t215 * t846 - 0.3e1 / 0.8e1 * t215 * t849;
1050
1051 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1052 v3rholapl2[0] = 0.0e0;
1053
1054 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1055 v3rholapltau[0] = 0.0e0;
1056
1057 t854 = t402 * t504;
1058 t858 = 0.1e1 / t104;
1059 t859 = t858 * t78;
1060 t862 = t858 * tau[0];
1061 t883 = -0.20e2 / 0.3e1 * t410 - 0.10e2 * t859 * tau[0] - 0.170e3 * t619 * t862 + 0.100e3 / 0.3e1 * t311 * t409 - 0.260e3 * t624 * t862 + 0.120e3 * t316 * t409 + 0.300e3 * t627 * t862 + 0.40e2 / 0.3e1 * t321 * t409 + 0.750e3 * t630 * t862 - 0.500e3 / 0.3e1 * t326 * t409 + 0.350e3 * t635 * t862 - 0.100e3 * t333 * t409;
1062 t884 = t216 * t883;
1063 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1064 v3rhotau2[0] = -t399 * t505 / 0.2e1 - 0.3e1 / 0.8e1 * t215 * t854 - 0.3e1 / 0.8e1 * t215 * t884;
1065
1066 t907 = 0.1e1 / t545 * t562;
1067 t931 = 0.384e-6 * t47 * t40 * t42 - 0.1536e-8 * t48 * t191 - 0.768e-6 * t51 * t40 * t42 + 0.9216e-8 * t199 * t191 - 0.24576e-10 * t52 * t458 + 0.384e-6 * t55 * t40 * t42 - 0.13824e-7 * t473 * t191 + 0.110592e-9 * t204 * t458 - 0.245760e-12 * t56 * t907;
1068 t934 = t96 * (0.384e-6 * t11 * t40 * t42 - 0.1536e-8 * t12 * t191 - 0.768e-6 * t24 * t40 * t42 + 0.9216e-8 * t180 * t191 - 0.24576e-10 * t26 * t458 + 0.384e-6 * t36 * t40 * t42 - 0.13824e-7 * t450 * t191 + 0.110592e-9 * t185 * t458 - 0.245760e-12 * t38 * t907 + t931 * t87);
1069 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1070 v3sigma3[0] = -0.3e1 / 0.8e1 * t95 * t934;
1071
1072 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1073 v3sigma2lapl[0] = 0.0e0;
1074
1075 t937 = t7 * t480;
1076 t938 = t937 * t227;
1077 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1078 v3sigma2tau[0] = -0.3e1 / 0.8e1 * t215 * t938;
1079
1080 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1081 v3sigmalapl2[0] = 0.0e0;
1082
1083 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1084 v3sigmalapltau[0] = 0.0e0;
1085
1086 t941 = t486 * t504;
1087 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1088 v3sigmatau2[0] = -0.3e1 / 0.8e1 * t215 * t941;
1089
1090 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1091 v3lapl3[0] = 0.0e0;
1092
1093 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1094 v3lapl2tau[0] = 0.0e0;
1095
1096 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1097 v3lapltau2[0] = 0.0e0;
1098
1099 t944 = 0.1e1 / t28;
1100 t957 = 0.102e3 * t619 * t944 + 0.156e3 * t624 * t944 - 0.180e3 * t627 * t944 - 0.450e3 * t630 * t944 - 0.210e3 * t635 * t944 + 0.6e1 * t944 * t78;
1101 t958 = t216 * t957;
1102 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1103 v3tau3[0] = -0.3e1 / 0.8e1 * t215 * t958;
1104
1105 #ifndef XC_DONT_COMPILE_LXC
1106
1107 if(order < 4) return;
1108
1109
1110 t974 = t545 * t27;
1111 t976 = 0.1e1 / t974 * t562;
1112 t981 = 0.1e1 / t14 / t366 * t126;
1113 t986 = 0.1e1 / t8 / t806 * t275;
1114 t991 = t120 * t37;
1115 t997 = 0.1e1 / t125 / t41;
1116 t998 = 0.1e1 / t14 / t545 / t104 * t997;
1117 t1003 = 0.1e1 / t8 / t113 * t32;
1118 t1007 = 0.1e1 / t259 * t42;
1119 t1023 = t307 * t245;
1120 t1026 = t307 * t307;
1121 t1027 = t1026 * t190;
1122 t1030 = t620 * t114;
1123 t1033 = t81 * t634;
1124 t1038 = t82 / t633 / t71;
1125 t1053 = tau[0] * t519;
1126 t1056 = 0.27200e5 / 0.81e2 * t1023 * t150 - 0.25000e5 / 0.27e2 * t1027 * t157 + 0.4000e4 / 0.9e1 * t1030 * t78 + 0.875000e6 / 0.27e2 * t1033 * t1027 + 0.350000e6 / 0.27e2 * t1038 * t1027 + 0.68000e5 / 0.9e1 * t619 * t1030 + 0.104000e6 / 0.9e1 * t624 * t1030 - 0.136000e6 / 0.81e2 * t311 * t1023 - 0.40000e5 / 0.3e1 * t627 * t1030 - 0.100000e6 / 0.3e1 * t630 * t1030 - 0.140000e6 / 0.9e1 * t635 * t1030 - 0.6160e4 / 0.81e2 * t1053 * t72;
1127 t1057 = t70 * t85;
1128 t1060 = t74 * t165;
1129 t1063 = t75 * t332;
1130 t1084 = -0.50000e5 / 0.9e1 * t1057 * t1027 - 0.50000e5 / 0.27e2 * t1060 * t1027 + 0.200000e6 / 0.9e1 * t1063 * t1027 - 0.6160e4 / 0.81e2 * t151 * t1053 + 0.12320e5 / 0.27e2 * t154 * t1053 - 0.54400e5 / 0.81e2 * t321 * t1023 + 0.12320e5 / 0.27e2 * t158 * t1053 + 0.680000e6 / 0.81e2 * t326 * t1023 - 0.30800e5 / 0.81e2 * t161 * t1053 + 0.136000e6 / 0.27e2 * t333 * t1023 - 0.30800e5 / 0.81e2 * t166 * t1053 - 0.54400e5 / 0.9e1 * t316 * t1023;
1131 t1092 = 0.1e1 / t14 / t104;
1132 t1093 = t1092 * t20;
1133 t1127 = 0.10342716049382716049e1 * t48 * t1093 - 0.28890074074074074075e-1 * t132 * t1003 + 0.25921106172839506174e-3 * t283 * t1007 - 0.95148562962962962971e-6 * t572 * t981 + 0.12427567407407407409e-8 * t47 * t269 * t986 + 0.33027160493827160493e-1 * t52 * t1003 - 0.74954271604938271608e-3 * t137 * t1007 + 0.59649896296296296299e-5 * t290 * t981 - 0.20194797037037037038e-7 * t581 * t986 + 0.24855134814814814817e-10 * t51 * t557 * t976 + 0.506880e-3 * t56 * t1007 - 0.10462245925925925926e-4 * t142 * t981 + 0.78012112592592592598e-7 * t297 * t986 - 0.25165824000000000003e-9 * t590 * t976 + 0.29826161777777777782e-12 * t55 * t991 * t998;
1134 t1135 = 0.24855134814814814817e-10 * t24 * t557 * t976 - 0.10462245925925925926e-4 * t121 * t981 + 0.78012112592592592598e-7 * t270 * t986 - 0.25165824000000000003e-9 * t558 * t976 + 0.29826161777777777782e-12 * t36 * t991 * t998 - 0.28890074074074074075e-1 * t103 * t1003 + 0.25921106172839506174e-3 * t249 * t1007 - 0.95148562962962962971e-6 * t532 * t981 + 0.12427567407407407409e-8 * t11 * t269 * t986 - 0.74954271604938271608e-3 * t112 * t1007 + 0.59649896296296296299e-5 * t258 * t981 - 0.20194797037037037038e-7 * t544 * t986 + 0.4e1 * t145 * t646 + t59 * (t1056 + t1084) + 0.6e1 * t300 * t338 + 0.4e1 * t593 * t169 + t1127 * t87 + 0.10342716049382716049e1 * t12 * t1093 + 0.33027160493827160493e-1 * t26 * t1003 + 0.506880e-3 * t38 * t1007;
1135 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1136 v4rho4[0] = -0.5e1 / 0.27e2 * t5 * t7 * t16 * t89 + 0.4e1 / 0.9e1 * t5 * t508 * t171 - t5 * t232 * t340 - 0.2e1 * t5 * t9 * t648 - 0.3e1 / 0.8e1 * t95 * t96 * t1135;
1137
1138 t1139 = t68 * t2;
1139 t1161 = t126 * t37;
1140 t1187 = 0.1e1 / t14 / t545 / t28 * t997;
1141 t1190 = -0.18251851851851851852e0 * t47 * t519 * t20 + 0.71964444444444444445e-2 * t47 * t524 * t351 - 0.77748148148148148151e-4 * t47 * t528 * t663 + 0.32403911111111111113e-6 * t47 * t534 * t1161 - 0.46603377777777777781e-9 * t572 * t548 - 0.79265185185185185186e-2 * t199 * t525 + 0.21306785185185185185e-3 * t52 * t529 - 0.19050951111111111112e-5 * t137 * t535 + 0.70487608888888888892e-8 * t290 * t548 - 0.93206755555555555566e-11 * t581 * t563 - 0.138240e-3 * t204 * t529 + 0.31835022222222222222e-5 * t56 * t535 - 0.25813902222222222222e-7 * t142 * t548 + 0.89128960000000000004e-10 * t297 * t563 - 0.11184810666666666668e-12 * t590 * t1187;
1142 t1226 = t209 * t646 + 0.3e1 * t392 * t338 + 0.3e1 * t714 * t169 + t1190 * t87 - 0.79265185185185185186e-2 * t180 * t525 - 0.138240e-3 * t185 * t529 + 0.21306785185185185185e-3 * t26 * t529 - 0.19050951111111111112e-5 * t112 * t535 + 0.70487608888888888892e-8 * t258 * t548 - 0.93206755555555555566e-11 * t544 * t563 + 0.31835022222222222222e-5 * t38 * t535 - 0.25813902222222222222e-7 * t121 * t548 + 0.89128960000000000004e-10 * t270 * t563 - 0.11184810666666666668e-12 * t558 * t1187 - 0.18251851851851851852e0 * t11 * t519 * t20 + 0.71964444444444444445e-2 * t11 * t524 * t351 - 0.77748148148148148151e-4 * t11 * t528 * t663 + 0.32403911111111111113e-6 * t11 * t534 * t1161 - 0.46603377777777777781e-9 * t532 * t548;
1143 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1144 v4rho3sigma[0] = t1139 * t212 / 0.9e1 - t652 * t396 / 0.2e1 - 0.3e1 / 0.2e1 * t344 * t720 - 0.3e1 / 0.8e1 * t95 * t96 * t1226;
1145
1146 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1147 v4rho3lapl[0] = 0.0e0;
1148
1149 t1254 = 0.1e1 / t14 / t113;
1150 t1255 = t1254 * t620;
1151 t1260 = t106 * tau[0];
1152 t1281 = -0.40000e5 / 0.3e1 * t1063 * t1255 - 0.880e3 / 0.9e1 * t158 * t239 + 0.6560e4 / 0.27e2 * t321 * t1260 - 0.175000e6 / 0.9e1 * t1033 * t1255 + 0.2200e4 / 0.27e2 * t161 * t239 - 0.82000e5 / 0.27e2 * t326 * t1260 - 0.70000e5 / 0.9e1 * t1038 * t1255 + 0.2200e4 / 0.27e2 * t166 * t239 - 0.16400e5 / 0.9e1 * t333 * t1260 + 0.10000e5 / 0.3e1 * t1057 * t1255 + 0.440e3 / 0.27e2 * t151 * t239 + 0.16400e5 / 0.27e2 * t311 * t1260;
1153 t1288 = t40 * t307;
1154 t1310 = 0.10000e5 / 0.9e1 * t1060 * t1255 - 0.880e3 / 0.9e1 * t154 * t239 + 0.6560e4 / 0.3e1 * t316 * t1260 - 0.16900e5 / 0.3e1 * t624 * t1288 + 0.6500e4 * t627 * t1288 + 0.16250e5 * t630 * t1288 + 0.22750e5 / 0.3e1 * t635 * t1288 - 0.11050e5 / 0.3e1 * t619 * t1288 + 0.440e3 / 0.27e2 * t239 * t72 - 0.3280e4 / 0.27e2 * t106 * t150 * tau[0] - 0.650e3 / 0.3e1 * t40 * t78 * t307 + 0.5000e4 / 0.9e1 * t1254 * t157 * t620;
1155 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1156 v4rho3tau[0] = t1139 * t4 * t228 / 0.9e1 - t723 * t403 / 0.2e1 - t723 * t435 / 0.2e1 - 0.3e1 / 0.2e1 * t399 * t729 - 0.3e1 * t399 * t732 - 0.3e1 / 0.2e1 * t399 * t777 - 0.3e1 / 0.8e1 * t215 * t7 * t593 * t227 - 0.9e1 / 0.8e1 * t215 * t728 * t434 - 0.9e1 / 0.8e1 * t215 * t402 * t776 - 0.3e1 / 0.8e1 * t215 * t216 * (t1281 + t1310);
1157
1158 t1326 = t126 * t25;
1159 t1354 = 0.1e1 / t14 / t974 * t997;
1160 t1357 = -0.10808888888888888889e-2 * t690 * t32 + 0.19000888888888888889e-4 * t693 * t785 - 0.10240000000000000000e-6 * t47 * t261 * t1326 + 0.17476266666666666668e-9 * t283 * t276 + 0.10808888888888888889e-2 * t51 * t245 * t32 - 0.46648888888888888889e-4 * t51 * t250 * t785 + 0.53521066666666666669e-6 * t51 * t261 * t1326 - 0.23374506666666666668e-8 * t137 * t276 + 0.34952533333333333335e-11 * t290 * t684 + 0.27648e-4 * t473 * t251 - 0.81510400000000000000e-6 * t204 * t262 + 0.77878613333333333336e-8 * t56 * t276 - 0.30365013333333333334e-10 * t142 * t684 + 0.41943040000000000003e-13 * t297 * t1354;
1161 t1391 = t480 * t338 + 0.2e1 * t836 * t169 + t1357 * t87 - 0.10240000000000000000e-6 * t11 * t261 * t1326 + 0.17476266666666666668e-9 * t249 * t276 + 0.10808888888888888889e-2 * t24 * t245 * t32 - 0.46648888888888888889e-4 * t24 * t250 * t785 + 0.53521066666666666669e-6 * t24 * t261 * t1326 - 0.23374506666666666668e-8 * t112 * t276 + 0.34952533333333333335e-11 * t258 * t684 - 0.81510400000000000000e-6 * t185 * t262 + 0.77878613333333333336e-8 * t38 * t276 - 0.30365013333333333334e-10 * t121 * t684 + 0.41943040000000000003e-13 * t270 * t1354 - 0.10808888888888888889e-2 * t659 * t32 + 0.19000888888888888889e-4 * t662 * t785 + 0.27648e-4 * t450 * t251;
1162 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1163 v4rho2sigma2[0] = -t652 * t483 / 0.6e1 - t344 * t840 - 0.3e1 / 0.8e1 * t95 * t96 * t1391;
1164
1165 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1166 v4rho2sigmalapl[0] = 0.0e0;
1167
1168 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1169 v4rho2sigmatau[0] = -t723 * t487 / 0.6e1 - t399 * t846 - t399 * t849 - 0.3e1 / 0.8e1 * t215 * t7 * t714 * t227 - 0.3e1 / 0.4e1 * t215 * t845 * t434 - 0.3e1 / 0.8e1 * t215 * t486 * t776;
1170
1171 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1172 v4rho2lapl2[0] = 0.0e0;
1173
1174 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1175 v4rho2lapltau[0] = 0.0e0;
1176
1177 t1419 = t740 * tau[0];
1178 t1431 = 0.1e1 / t14 / t39;
1179 t1440 = t1431 * t307;
1180 t1459 = 0.4760e4 / 0.3e1 * t619 * t1419 + 0.7280e4 / 0.3e1 * t624 * t1419 - 0.2800e4 * t627 * t1419 - 0.7000e4 * t630 * t1419 - 0.9800e4 / 0.3e1 * t635 * t1419 - 0.1000e4 / 0.3e1 * t1431 * t157 * t307 + 0.260e3 / 0.9e1 * t737 + 0.280e3 / 0.3e1 * t741 * tau[0] - 0.520e3 * t316 * t30 + 0.8000e4 * t1063 * t1440 - 0.520e3 / 0.9e1 * t321 * t30 + 0.35000e5 / 0.3e1 * t1033 * t1440 + 0.6500e4 / 0.9e1 * t326 * t30 + 0.14000e5 / 0.3e1 * t1038 * t1440 + 0.1300e4 / 0.3e1 * t333 * t30 - 0.2000e4 * t1057 * t1440 - 0.1300e4 / 0.9e1 * t311 * t30 - 0.2000e4 / 0.3e1 * t1060 * t1440;
1181 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1182 v4rho2tau2[0] = -t723 * t505 / 0.6e1 - t399 * t854 - t399 * t884 - 0.3e1 / 0.8e1 * t215 * t728 * t504 - 0.3e1 / 0.4e1 * t215 * t402 * t883 - 0.3e1 / 0.8e1 * t215 * t216 * t1459;
1183
1184 t1468 = t126 * sigma[0];
1185 t1494 = 0.1e1 / t14 / t559 * t997;
1186 t1525 = -0.3072e-5 * t813 * t42 + 0.28672000000000000000e-7 * t47 * t124 * t1468 - 0.65536000000000000002e-10 * t132 * t369 + 0.6144e-5 * t821 * t42 - 0.12288000000000000000e-6 * t51 * t124 * t1468 + 0.72089600000000000001e-9 * t52 * t369 - 0.13107200000000000000e-11 * t137 * t808 - 0.3072e-5 * t55 * t114 * t42 + 0.15974400000000000000e-6 * t55 * t124 * t1468 - 0.20643840000000000000e-8 * t204 * t369 + 0.98304000000000000002e-11 * t56 * t808 - 0.15728640000000000000e-13 * t142 * t1494;
1187 t1528 = -0.3072e-5 * t784 * t42 + 0.28672000000000000000e-7 * t11 * t124 * t1468 - 0.65536000000000000002e-10 * t103 * t369 + 0.6144e-5 * t793 * t42 - 0.12288000000000000000e-6 * t24 * t124 * t1468 + 0.72089600000000000001e-9 * t26 * t369 - 0.13107200000000000000e-11 * t112 * t808 - 0.3072e-5 * t36 * t114 * t42 + 0.15974400000000000000e-6 * t36 * t124 * t1468 - 0.20643840000000000000e-8 * t185 * t369 + 0.98304000000000000002e-11 * t38 * t808 - 0.15728640000000000000e-13 * t121 * t1494 + t1525 * t87 + t931 * t169;
1188 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1189 v4rhosigma3[0] = -t344 * t934 / 0.2e1 - 0.3e1 / 0.8e1 * t95 * t96 * t1528;
1190
1191 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1192 v4rhosigma2lapl[0] = 0.0e0;
1193
1194 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1195 v4rhosigma2tau[0] = -t399 * t938 / 0.2e1 - 0.3e1 / 0.8e1 * t215 * t7 * t836 * t227 - 0.3e1 / 0.8e1 * t215 * t937 * t434;
1196
1197 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1198 v4rhosigmalapl2[0] = 0.0e0;
1199
1200 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1201 v4rhosigmalapltau[0] = 0.0e0;
1202
1203 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1204 v4rhosigmatau2[0] = -t399 * t941 / 0.2e1 - 0.3e1 / 0.8e1 * t215 * t845 * t504 - 0.3e1 / 0.8e1 * t215 * t486 * t883;
1205
1206 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1207 v4rholapl3[0] = 0.0e0;
1208
1209 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1210 v4rholapl2tau[0] = 0.0e0;
1211
1212 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1213 v4rholapltau2[0] = 0.0e0;
1214
1215 t1556 = 0.1e1 / t14 / t243;
1216 t1560 = t1556 * tau[0];
1217 t1581 = 0.200e3 * t1556 * t157 * tau[0] - 0.7000e4 * t1033 * t1560 - 0.2800e4 * t1038 * t1560 + 0.1200e4 * t1057 * t1560 + 0.400e3 * t1060 * t1560 - 0.4800e4 * t1063 * t1560 - 0.510e3 * t619 * t858 - 0.780e3 * t624 * t858 + 0.900e3 * t627 * t858 + 0.2250e4 * t630 * t858 + 0.1050e4 * t635 * t858 - 0.30e2 * t859;
1218 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1219 v4rhotau3[0] = -t399 * t958 / 0.2e1 - 0.3e1 / 0.8e1 * t215 * t402 * t957 - 0.3e1 / 0.8e1 * t215 * t216 * t1581;
1220
1221 t1606 = 0.1e1 / t14 / t682 * t997;
1222 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1223 v4sigma4[0] = -0.3e1 / 0.8e1 * t95 * t96 * (-0.6144e-8 * t11 * t190 * t126 + 0.24576e-10 * t12 * t458 + 0.18432e-7 * t24 * t190 * t126 - 0.196608e-9 * t180 * t458 + 0.491520e-12 * t26 * t907 - 0.18432e-7 * t36 * t190 * t126 + 0.442368e-9 * t450 * t458 - 0.2949120e-11 * t185 * t907 + 0.5898240e-14 * t38 * t1606 + (-0.6144e-8 * t47 * t190 * t126 + 0.24576e-10 * t48 * t458 + 0.18432e-7 * t51 * t190 * t126 - 0.196608e-9 * t199 * t458 + 0.491520e-12 * t52 * t907 - 0.18432e-7 * t55 * t190 * t126 + 0.442368e-9 * t473 * t458 - 0.2949120e-11 * t204 * t907 + 0.5898240e-14 * t56 * t1606) * t87);
1224
1225 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1226 v4sigma3lapl[0] = 0.0e0;
1227
1228 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1229 v4sigma3tau[0] = -0.3e1 / 0.8e1 * t215 * t7 * t931 * t227;
1230
1231 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1232 v4sigma2lapl2[0] = 0.0e0;
1233
1234 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1235 v4sigma2lapltau[0] = 0.0e0;
1236
1237 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1238 v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t215 * t937 * t504;
1239
1240 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1241 v4sigmalapl3[0] = 0.0e0;
1242
1243 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1244 v4sigmalapl2tau[0] = 0.0e0;
1245
1246 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1247 v4sigmalapltau2[0] = 0.0e0;
1248
1249 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1250 v4sigmatau3[0] = -0.3e1 / 0.8e1 * t215 * t486 * t957;
1251
1252 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1253 v4lapl4[0] = 0.0e0;
1254
1255 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1256 v4lapl3tau[0] = 0.0e0;
1257
1258 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1259 v4lapl2tau2[0] = 0.0e0;
1260
1261 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
1262 v4lapltau3[0] = 0.0e0;
1263
1264 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
1265 v4tau4[0] = -0.3e1 / 0.8e1 * t215 * t216 * (0.4200e4 * t1033 * t1092 + 0.1680e4 * t1038 * t1092 - 0.720e3 * t1057 * t1092 - 0.240e3 * t1060 * t1092 + 0.2880e4 * t1063 * t1092 - 0.120e3 * t1092 * t157);
1266
1267 #ifndef XC_DONT_COMPILE_MXC
1268
1269 if(order < 5) return;
1270
1271
1272 #endif
1273
1274 #endif
1275
1276 #endif
1277
1278 #endif
1279
1280 #endif
1281
1282
1283 }
1284
1285
1286 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 *))1287 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 *))
1288 {
1289
1290 #ifndef XC_DONT_COMPILE_EXC
1291 double t2, t4, t5, t6, t7, t8, t9, t10;
1292 double t11, t12, t14, t15, t16, t17, t18, t19;
1293 double t20, t21, t22, t23, t24, t26, t29, t30;
1294 double t31, t34, t35, t36, t37, t38, t40, t41;
1295 double t42, t43, t46, t47, t48, t49, t50, t51;
1296 double t52, t53, t56, t57, t58, t61, t62, t65;
1297 double t66, t69, t70, t71, t72, t73, t74, t76;
1298 double t78, t79, t80, t81, t82, t84, t85, t86;
1299 double t87, t88, t91, t92, t93, t95, t97, t99;
1300 double t101, t103, t104, t105, t106, t107, t108, t109;
1301 double t110, t112, t115, t116, t117, t120, t121, t122;
1302 double t123, t125, t126, t127, t128, t131, t132, t133;
1303 double t134, t135, t136, t137, t140, t143, t146, t149;
1304 double t151, t152, t153, t154, t155, t157, t158, t159;
1305 double t160, t161, t164, t165, t166, t168, t170, t172;
1306 double t174;
1307
1308 #ifndef XC_DONT_COMPILE_VXC
1309 double t176, t177, t178, t179, t180, t181, t183, t184;
1310 double t186, t187, t188, t189, t190, t192, t193, t194;
1311 double t196, t197, t200, t201, t203, t204, t209, t210;
1312 double t211, t212, t217, t218, t219, t221, t222, t223;
1313 double t224, t229, t234, t239, t242, t244, t247, t248;
1314 double t251, t254, t255, t258, t262, t263, t266, t268;
1315 double t270, t271, t272, t273, t274, t276, t277, t278;
1316 double t280, t281, t285, t286, t288, t289, t290, t291;
1317 double t293, t294, t295, t297, t298, t301, t302, t304;
1318 double t305, t310, t311, t312, t313, t318, t319, t320;
1319 double t322, t323, t324, t325, t330, t335, t340, t343;
1320 double t345, t348, t349, t352, t355, t356, t359, t363;
1321 double t364, t367, t369, t371, t372, t376, t377, t378;
1322 double t384, t389, t392, t394, t395, t403, t408, t413;
1323 double t415, t419, t425, t430, t433, t435, t436, t444;
1324 double t449, t454, t456, t470, t471, t485, t486;
1325
1326 #ifndef XC_DONT_COMPILE_FXC
1327 double t490, t492, t493, t494, t495, t496, t497, t499;
1328 double t500, t501, t503, t504, t505, t507, t508, t509;
1329 double t510, t511, t512, t514, t515, t517, t518, t520;
1330 double t521, t523, t524, t526, t527, t530, t532, t533;
1331 double t536, t537, t538, t545, t546, t548, t549, t556;
1332 double t557, t562, t563, t570, t577, t584, t587, t591;
1333 double t594, t595, t598, t603, t608, t613, t619, t620;
1334 double t625, t627, t629, t630, t631, t632, t633, t634;
1335 double t635, t637, t638, t639, t641, t642, t643, t644;
1336 double t646, t647, t648, t650, t651, t652, t654, t655;
1337 double t656, t657, t659, t662, t664, t666, t669, t670;
1338 double t671, t673, t677, t678, t679, t680, t682, t685;
1339 double t687, t688, t690, t693, t695, t698, t700, t703;
1340 double t704, t706, t707, t708, t709, t710, t712, t713;
1341 double t714, t715, t717, t718, t719, t720, t722, t723;
1342 double t724, t726, t727, t728, t730, t731, t734, t736;
1343 double t737, t740, t741, t742, t749, t750, t752, t753;
1344 double t760, t761, t766, t767, t774, t781, t788, t791;
1345 double t795, t798, t799, t802, t807, t812, t817, t823;
1346 double t824, t829, t831, t833, t834, t835, t838, t840;
1347 double t841, t848, t849, t864, t867, t873, t890, t893;
1348 double t898, t899, t900, t905, t910, t916, t917, t932;
1349 double t935, t941, t958, t961, t962, t966, t968, t969;
1350 double t970, t971, t975, t982, t983, t986, t1007, t1008;
1351 double t1013, t1014, t1015, t1019, t1020, t1024, t1025, t1029;
1352 double t1035, t1036, t1039, t1060, t1062, t1077, t1082, t1085;
1353 double t1100, t1107, t1109, t1110, t1125, t1130, t1133, t1148;
1354 double t1155, t1157, t1158, t1162, t1166, t1170, t1183, t1185;
1355 double t1189, t1202, t1204;
1356
1357 #ifndef XC_DONT_COMPILE_KXC
1358 double t1208, t1211, t1212, t1216, t1217, t1220, t1221, t1224;
1359 double t1226, t1227, t1236, t1237, t1240, t1249, t1250, t1251;
1360 double t1254, t1255, t1264, t1273, t1282, t1285, t1291, t1292;
1361 double t1293, t1296, t1299, t1302, t1303, t1304, t1307, t1310;
1362 double t1335, t1338, t1340, t1342, t1343, t1345, t1346, t1348;
1363 double t1350, t1351, t1352, t1354, t1355, t1357, t1358, t1359;
1364 double t1361, t1362, t1363, t1365, t1366, t1367, t1369, t1370;
1365 double t1371, t1372, t1374, t1375, t1376, t1378, t1379, t1382;
1366 double t1384, t1386, t1388, t1389, t1391, t1392, t1393, t1394;
1367 double t1396, t1397, t1398, t1400, t1402, t1404, t1405, t1406;
1368 double t1408, t1409, t1411, t1412, t1413, t1414, t1416, t1417;
1369 double t1418, t1420, t1422, t1424, t1425, t1426, t1428, t1429;
1370 double t1430, t1436, t1439, t1443, t1446, t1449, t1453, t1455;
1371 double t1457, t1459, t1462, t1463, t1465, t1468, t1469, t1471;
1372 double t1473, t1475, t1477, t1479, t1481, t1484, t1485, t1486;
1373 double t1494, t1496, t1498, t1500, t1502, t1503, t1505, t1507;
1374 double t1509, t1510, t1511, t1512, t1514, t1516, t1517, t1518;
1375 double t1520, t1522, t1524, t1525, t1526, t1527, t1528, t1530;
1376 double t1532, t1534, t1536, t1538, t1540, t1546, t1547, t1549;
1377 double t1551, t1556, t1558, t1560, t1562, t1563, t1565, t1567;
1378 double t1569, t1571, t1573, t1575, t1576, t1578, t1580, t1582;
1379 double t1585, t1588, t1591, t1594, t1596, t1603, t1605, t1607;
1380 double t1609, t1611, t1613, t1615, t1617, t1619, t1621, t1623;
1381 double t1625, t1627, t1629, t1631, t1638, t1640, t1641, t1643;
1382 double t1644, t1646, t1647, t1651, t1652, t1655, t1656, t1659;
1383 double t1661, t1662, t1671, t1672, t1675, t1684, t1685, t1686;
1384 double t1689, t1690, t1699, t1708, t1717, t1720, t1726, t1729;
1385 double t1730, t1733, t1736, t1739, t1742, t1745, t1748, t1749;
1386 double t1750, t1773, t1775, t1777, t1778, t1779, t1781, t1782;
1387 double t1783, t1785, t1786, t1787, t1788, t1790, t1791, t1792;
1388 double t1794, t1795, t1797, t1799, t1800, t1802, t1803, t1804;
1389 double t1806, t1807, t1808, t1809, t1811, t1812, t1813, t1815;
1390 double t1816, t1817, t1818, t1823, t1834, t1838, t1840, t1841;
1391 double t1845, t1848, t1855, t1858, t1859, t1878, t1880, t1886;
1392 double t1889, t1910, t1915, t1920, t1924, t1925, t1929, t1935;
1393 double t1936, t1937, t1939, t1940, t1944, t1947, t1948, t1950;
1394 double t1954, t1956, t1957, t1961, t1964, t1967, t1972, t1976;
1395 double t1981, t1985, t1988, t1994, t1997, t1998, t2017, t2019;
1396 double t2025, t2028, t2049, t2054, t2055, t2058, t2059, t2061;
1397 double t2065, t2067, t2069, t2070, t2071, t2075, t2078, t2081;
1398 double t2085, t2089, t2093, t2094, t2117, t2120, t2123, t2134;
1399 double t2135, t2139, t2140, t2142, t2146, t2147, t2148, t2152;
1400 double t2159, t2160, t2162, t2163, t2166, t2169, t2170, t2173;
1401 double t2174, t2175, t2179, t2181, t2182, t2185, t2186, t2189;
1402 double t2191, t2192, t2195, t2197, t2198, t2202, t2203, t2206;
1403 double t2207, t2211, t2212, t2215, t2217, t2218, t2220, t2221;
1404 double t2225, t2229, t2232, t2243, t2244, t2267, t2270, t2273;
1405 double t2275, t2278, t2281, t2286, t2287, t2295, t2308, t2310;
1406 double t2315, t2323, t2338, t2341, t2342, t2345, t2347, t2351;
1407 double t2356, t2361, t2362, t2370, t2383, t2385, t2390, t2398;
1408 double t2413, t2416, t2417, t2420, t2422, t2423, t2427, t2431;
1409 double t2434, t2435, t2436, t2439, t2443, t2447, t2451, t2454;
1410 double t2456, t2457, t2461, t2465, t2466, t2469, t2490, t2492;
1411 double t2495, t2496, t2497, t2500, t2501, t2505, t2506, t2510;
1412 double t2514, t2515, t2518, t2539, t2541, t2564, t2588, t2590;
1413 double t2591, t2614, t2638, t2640, t2641, t2645, t2649, t2653;
1414 double t2657, t2660, t2673, t2675, t2678, t2691, t2693;
1415
1416 #ifndef XC_DONT_COMPILE_LXC
1417 double t2701, t2708, t2710, t2712, t2713, t2714, t2719, t2721;
1418 double t2723, t2725, t2727, t2733, t2735, t2737, t2738, t2739;
1419 double t2744, t2746, t2748, t2750, t2752, t2758, t2761, t2768;
1420 double t2771, t2777, t2778, t2780, t2782, t2791, t2799, t2802;
1421 double t2816, t2827, t2830, t2833, t2837, t2840, t2855, t2864;
1422 double t2867, t2868, t2869, t2872, t2875, t2878, t2883, t2898;
1423 double t2906, t2907, t2912, t2916, t2921, t2927, t2939, t2941;
1424 double t2952, t2958, t2959, t2962, t2997, t3002, t3007, t3011;
1425 double t3012, t3019, t3020, t3024, t3036, t3043, t3047, t3054;
1426 double t3055, t3057, t3061, t3067, t3071, t3072, t3074, t3080;
1427 double t3084, t3085, t3086, t3088, t3103, t3106, t3109, t3112;
1428 double t3115, t3119, t3122, t3124, t3126, t3133, t3134, t3136;
1429 double t3141, t3142, t3143, t3151, t3161, t3169, t3171, t3182;
1430 double t3200, t3202, t3205, t3215, t3231, t3234, t3237, t3245;
1431 double t3249, t3257, t3268, t3283, t3297, t3328, t3343, t3345;
1432 double t3361, t3367, t3370, t3373, t3376, t3382, t3388, t3391;
1433 double t3394, t3401, t3404, t3407, t3418, t3448, t3451, t3458;
1434 double t3465, t3472, t3479, t3485, t3488, t3497, t3501, t3505;
1435 double t3513, t3517, t3524, t3527, t3530, t3533, t3536, t3539;
1436 double t3542, t3562, t3572, t3591, t3596, t3631, t3661, t3668;
1437 double t3677, t3681, t3683, t3688, t3701, t3723, t3728, t3741;
1438 double t3748, t3751, t3752, t3753, t3756, t3759, t3762, t3767;
1439 double t3770, t3783, t3784, t3809, t3819, t3820, t3825, t3829;
1440 double t3834, t3840, t3852, t3854, t3865, t3871, t3872, t3875;
1441 double t3910, t3938, t3948, t3960, t3983, t3996, t4043, t4045;
1442 double t4050, t4053, t4069, t4071, t4074, t4084, t4087, t4090;
1443 double t4093, t4096, t4100, t4115, t4116, t4117, t4120, t4121;
1444 double t4122, t4123, t4140, t4147, t4157, t4160, t4161, t4163;
1445 double t4176, t4179, t4192, t4204, t4221, t4229, t4238, t4247;
1446 double t4299, t4325, t4328, t4364, t4386, t4393, t4412, t4419;
1447 double t4439, t4458, t4461, t4464, t4467, t4470, t4474, t4476;
1448 double t4478, t4481, t4483, t4488, t4496, t4520, t4523, t4526;
1449 double t4528, t4530, t4534, t4537, t4541, t4542, t4575, t4583;
1450 double t4594, t4595, t4597, t4598, t4601, t4603, t4613, t4614;
1451 double t4617, t4627, t4636, t4640, t4644, t4649, t4652, t4666;
1452 double t4683, t4721, t4723, t4724, t4727, t4743, t4749, t4751;
1453 double t4753, t4755, t4757, t4792, t4799, t4818, t4825, t4844;
1454 double t4855, t4892, t4894, t4895, t4897, t4917, t4945, t4948;
1455 double t4982, t4987, t4988, t5000, t5015, t5025, t5062, t5090;
1456 double t5093, t5125, t5130, t5131, t5133, t5134, t5135, t5139;
1457 double t5160, t5161, t5163, t5173, t5188, t5196, t5198, t5202;
1458 double t5238, t5239, t5241, t5242, t5268, t5272, t5283, t5304;
1459 double t5310, t5311, t5324, t5342, t5352, t5357, t5394, t5409;
1460 double t5413, t5434, t5439, t5448, t5474, t5505, t5508, t5512;
1461 double t5529, t5555, t5586, t5589, t5593, t5595, t5607, t5608;
1462 double t5627, t5640, t5659, t5671, t5675, t5696, t5701, t5721;
1463 double t5725, t5746, t5772, t5823;
1464 #endif
1465
1466 #endif
1467
1468 #endif
1469
1470 #endif
1471
1472 #endif
1473
1474
1475 mgga_x_tau_hcth_params *params;
1476
1477 assert(p->params != NULL);
1478 params = (mgga_x_tau_hcth_params * ) (p->params);
1479
1480 t2 = M_CBRT3;
1481 t4 = POW_1_3(0.1e1 / M_PI);
1482 t5 = t2 * t4;
1483 t6 = M_CBRT4;
1484 t7 = t6 * t6;
1485 t8 = t5 * t7;
1486 t9 = rho[0] - rho[1];
1487 t10 = rho[0] + rho[1];
1488 t11 = 0.1e1 / t10;
1489 t12 = t9 * t11;
1490 t14 = 0.1e1 / 0.2e1 + t12 / 0.2e1;
1491 t15 = POW_1_3(t14);
1492 t16 = t15 * t14;
1493 t17 = POW_1_3(t10);
1494 t18 = t16 * t17;
1495 t19 = params->cx_local[0];
1496 t20 = params->cx_local[1];
1497 t21 = t20 * sigma[0];
1498 t22 = rho[0] * rho[0];
1499 t23 = POW_1_3(rho[0]);
1500 t24 = t23 * t23;
1501 t26 = 0.1e1 / t24 / t22;
1502 t29 = 0.1e1 + 0.4e-2 * sigma[0] * t26;
1503 t30 = 0.1e1 / t29;
1504 t31 = t26 * t30;
1505 t34 = params->cx_local[2];
1506 t35 = sigma[0] * sigma[0];
1507 t36 = t34 * t35;
1508 t37 = t22 * t22;
1509 t38 = t37 * rho[0];
1510 t40 = 0.1e1 / t23 / t38;
1511 t41 = t29 * t29;
1512 t42 = 0.1e1 / t41;
1513 t43 = t40 * t42;
1514 t46 = params->cx_local[3];
1515 t47 = t35 * sigma[0];
1516 t48 = t46 * t47;
1517 t49 = t37 * t37;
1518 t50 = 0.1e1 / t49;
1519 t51 = t41 * t29;
1520 t52 = 0.1e1 / t51;
1521 t53 = t50 * t52;
1522 t56 = params->cx_nlocal[0];
1523 t57 = params->cx_nlocal[1];
1524 t58 = t57 * sigma[0];
1525 t61 = params->cx_nlocal[2];
1526 t62 = t61 * t35;
1527 t65 = params->cx_nlocal[3];
1528 t66 = t65 * t47;
1529 t69 = t56 + 0.4e-2 * t58 * t31 + 0.16e-4 * t62 * t43 + 0.64e-7 * t66 * t53;
1530 t70 = M_CBRT6;
1531 t71 = t70 * t70;
1532 t72 = M_PI * M_PI;
1533 t73 = POW_1_3(t72);
1534 t74 = t73 * t73;
1535 t76 = 0.3e1 / 0.10e2 * t71 * t74;
1536 t78 = 0.1e1 / t24 / rho[0];
1537 t79 = tau[0] * t78;
1538 t80 = t76 - t79;
1539 t81 = t76 + t79;
1540 t82 = 0.1e1 / t81;
1541 t84 = t80 * t80;
1542 t85 = t84 * t80;
1543 t86 = t81 * t81;
1544 t87 = t86 * t81;
1545 t88 = 0.1e1 / t87;
1546 t91 = t84 * t84;
1547 t92 = t91 * t80;
1548 t93 = t86 * t86;
1549 t95 = 0.1e1 / t93 / t81;
1550 t97 = t80 * t82 - 0.2e1 * t85 * t88 + t92 * t95;
1551 t99 = t19 + 0.4e-2 * t21 * t31 + 0.16e-4 * t36 * t43 + 0.64e-7 * t48 * t53 + t69 * t97;
1552 t101 = t8 * t18 * t99;
1553 t103 = 0.1e1 / 0.2e1 - t12 / 0.2e1;
1554 t104 = POW_1_3(t103);
1555 t105 = t104 * t103;
1556 t106 = t105 * t17;
1557 t107 = t20 * sigma[2];
1558 t108 = rho[1] * rho[1];
1559 t109 = POW_1_3(rho[1]);
1560 t110 = t109 * t109;
1561 t112 = 0.1e1 / t110 / t108;
1562 t115 = 0.1e1 + 0.4e-2 * sigma[2] * t112;
1563 t116 = 0.1e1 / t115;
1564 t117 = t112 * t116;
1565 t120 = sigma[2] * sigma[2];
1566 t121 = t34 * t120;
1567 t122 = t108 * t108;
1568 t123 = t122 * rho[1];
1569 t125 = 0.1e1 / t109 / t123;
1570 t126 = t115 * t115;
1571 t127 = 0.1e1 / t126;
1572 t128 = t125 * t127;
1573 t131 = t120 * sigma[2];
1574 t132 = t46 * t131;
1575 t133 = t122 * t122;
1576 t134 = 0.1e1 / t133;
1577 t135 = t126 * t115;
1578 t136 = 0.1e1 / t135;
1579 t137 = t134 * t136;
1580 t140 = t57 * sigma[2];
1581 t143 = t61 * t120;
1582 t146 = t65 * t131;
1583 t149 = t56 + 0.4e-2 * t140 * t117 + 0.16e-4 * t143 * t128 + 0.64e-7 * t146 * t137;
1584 t151 = 0.1e1 / t110 / rho[1];
1585 t152 = tau[1] * t151;
1586 t153 = t76 - t152;
1587 t154 = t76 + t152;
1588 t155 = 0.1e1 / t154;
1589 t157 = t153 * t153;
1590 t158 = t157 * t153;
1591 t159 = t154 * t154;
1592 t160 = t159 * t154;
1593 t161 = 0.1e1 / t160;
1594 t164 = t157 * t157;
1595 t165 = t164 * t153;
1596 t166 = t159 * t159;
1597 t168 = 0.1e1 / t166 / t154;
1598 t170 = t153 * t155 - 0.2e1 * t158 * t161 + t165 * t168;
1599 t172 = t19 + 0.4e-2 * t107 * t117 + 0.16e-4 * t121 * t128 + 0.64e-7 * t132 * t137 + t149 * t170;
1600 t174 = t8 * t106 * t172;
1601 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1602 zk[0] = -0.3e1 / 0.8e1 * t101 - 0.3e1 / 0.8e1 * t174;
1603
1604 #ifndef XC_DONT_COMPILE_VXC
1605
1606 if(order < 1) return;
1607
1608
1609 t176 = 0.3e1 / 0.8e1 * t101;
1610 t177 = 0.3e1 / 0.8e1 * t174;
1611 t178 = t15 * t17;
1612 t179 = t10 * t10;
1613 t180 = 0.1e1 / t179;
1614 t181 = t9 * t180;
1615 t183 = t11 / 0.2e1 - t181 / 0.2e1;
1616 t184 = t99 * t183;
1617 t186 = t8 * t178 * t184;
1618 t187 = t186 / 0.2e1;
1619 t188 = t17 * t17;
1620 t189 = 0.1e1 / t188;
1621 t190 = t16 * t189;
1622 t192 = t8 * t190 * t99;
1623 t193 = t192 / 0.8e1;
1624 t194 = t22 * rho[0];
1625 t196 = 0.1e1 / t24 / t194;
1626 t197 = t196 * t30;
1627 t200 = t20 * t35;
1628 t201 = t37 * t22;
1629 t203 = 0.1e1 / t23 / t201;
1630 t204 = t203 * t42;
1631 t209 = t34 * t47;
1632 t210 = t49 * rho[0];
1633 t211 = 0.1e1 / t210;
1634 t212 = t211 * t52;
1635 t217 = t35 * t35;
1636 t218 = t46 * t217;
1637 t219 = t49 * t194;
1638 t221 = 0.1e1 / t24 / t219;
1639 t222 = t41 * t41;
1640 t223 = 0.1e1 / t222;
1641 t224 = t221 * t223;
1642 t229 = t57 * t35;
1643 t234 = t61 * t47;
1644 t239 = t65 * t217;
1645 t242 = -0.10666666666666666667e-1 * t58 * t197 + 0.42666666666666666668e-4 * t229 * t204 - 0.85333333333333333333e-4 * t62 * t204 + 0.34133333333333333334e-6 * t234 * t212 - 0.512e-6 * t66 * t212 + 0.20480000000000000001e-8 * t239 * t224;
1646 t244 = tau[0] * t26;
1647 t247 = 0.1e1 / t86;
1648 t248 = t80 * t247;
1649 t251 = t84 * t88;
1650 t254 = 0.1e1 / t93;
1651 t255 = t85 * t254;
1652 t258 = t91 * t95;
1653 t262 = 0.1e1 / t93 / t86;
1654 t263 = t92 * t262;
1655 t266 = 0.5e1 / 0.3e1 * t244 * t82 + 0.5e1 / 0.3e1 * t248 * t244 - 0.10e2 * t251 * t244 - 0.10e2 * t255 * t244 + 0.25e2 / 0.3e1 * t258 * t244 + 0.25e2 / 0.3e1 * t263 * t244;
1656 t268 = -0.10666666666666666667e-1 * t21 * t197 + 0.42666666666666666668e-4 * t200 * t204 - 0.85333333333333333333e-4 * t36 * t204 + 0.34133333333333333334e-6 * t209 * t212 - 0.512e-6 * t48 * t212 + 0.20480000000000000001e-8 * t218 * t224 + t242 * t97 + t69 * t266;
1657 t270 = t8 * t18 * t268;
1658 t271 = 0.3e1 / 0.8e1 * t270;
1659 t272 = t104 * t17;
1660 t273 = -t183;
1661 t274 = t172 * t273;
1662 t276 = t8 * t272 * t274;
1663 t277 = t276 / 0.2e1;
1664 t278 = t105 * t189;
1665 t280 = t8 * t278 * t172;
1666 t281 = t280 / 0.8e1;
1667 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1668 vrho[0] = -t176 - t177 + t10 * (-t187 - t193 - t271 - t277 - t281);
1669
1670 t285 = -t11 / 0.2e1 - t181 / 0.2e1;
1671 t286 = t99 * t285;
1672 t288 = t8 * t178 * t286;
1673 t289 = t288 / 0.2e1;
1674 t290 = -t285;
1675 t291 = t172 * t290;
1676 t293 = t8 * t272 * t291;
1677 t294 = t293 / 0.2e1;
1678 t295 = t108 * rho[1];
1679 t297 = 0.1e1 / t110 / t295;
1680 t298 = t297 * t116;
1681 t301 = t20 * t120;
1682 t302 = t122 * t108;
1683 t304 = 0.1e1 / t109 / t302;
1684 t305 = t304 * t127;
1685 t310 = t34 * t131;
1686 t311 = t133 * rho[1];
1687 t312 = 0.1e1 / t311;
1688 t313 = t312 * t136;
1689 t318 = t120 * t120;
1690 t319 = t46 * t318;
1691 t320 = t133 * t295;
1692 t322 = 0.1e1 / t110 / t320;
1693 t323 = t126 * t126;
1694 t324 = 0.1e1 / t323;
1695 t325 = t322 * t324;
1696 t330 = t57 * t120;
1697 t335 = t61 * t131;
1698 t340 = t65 * t318;
1699 t343 = -0.10666666666666666667e-1 * t140 * t298 + 0.42666666666666666668e-4 * t330 * t305 - 0.85333333333333333333e-4 * t143 * t305 + 0.34133333333333333334e-6 * t335 * t313 - 0.512e-6 * t146 * t313 + 0.20480000000000000001e-8 * t340 * t325;
1700 t345 = tau[1] * t112;
1701 t348 = 0.1e1 / t159;
1702 t349 = t153 * t348;
1703 t352 = t157 * t161;
1704 t355 = 0.1e1 / t166;
1705 t356 = t158 * t355;
1706 t359 = t164 * t168;
1707 t363 = 0.1e1 / t166 / t159;
1708 t364 = t165 * t363;
1709 t367 = 0.5e1 / 0.3e1 * t345 * t155 + 0.5e1 / 0.3e1 * t349 * t345 - 0.10e2 * t352 * t345 - 0.10e2 * t356 * t345 + 0.25e2 / 0.3e1 * t359 * t345 + 0.25e2 / 0.3e1 * t364 * t345;
1710 t369 = -0.10666666666666666667e-1 * t107 * t298 + 0.42666666666666666668e-4 * t301 * t305 - 0.85333333333333333333e-4 * t121 * t305 + 0.34133333333333333334e-6 * t310 * t313 - 0.512e-6 * t132 * t313 + 0.20480000000000000001e-8 * t319 * t325 + t343 * t170 + t149 * t367;
1711 t371 = t8 * t106 * t369;
1712 t372 = 0.3e1 / 0.8e1 * t371;
1713 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1714 vrho[1] = -t176 - t177 + t10 * (-t289 - t193 - t294 - t281 - t372);
1715
1716 t376 = t17 * t10 * t2;
1717 t377 = t376 * t4;
1718 t378 = t7 * t16;
1719 t384 = t34 * sigma[0];
1720 t389 = t46 * t35;
1721 t392 = t49 * t22;
1722 t394 = 0.1e1 / t24 / t392;
1723 t395 = t394 * t223;
1724 t403 = t61 * sigma[0];
1725 t408 = t65 * t35;
1726 t413 = 0.4e-2 * t57 * t26 * t30 - 0.16e-4 * t58 * t43 + 0.32e-4 * t403 * t43 - 0.128e-6 * t62 * t53 + 0.192e-6 * t408 * t53 - 0.768e-9 * t66 * t395;
1727 t415 = 0.4e-2 * t20 * t26 * t30 - 0.16e-4 * t21 * t43 + 0.32e-4 * t384 * t43 - 0.128e-6 * t36 * t53 + 0.192e-6 * t389 * t53 - 0.768e-9 * t48 * t395 + t413 * t97;
1728 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1729 vsigma[0] = -0.3e1 / 0.8e1 * t377 * t378 * t415;
1730
1731 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1732 vsigma[1] = 0.0e0;
1733
1734 t419 = t7 * t105;
1735 t425 = t34 * sigma[2];
1736 t430 = t46 * t120;
1737 t433 = t133 * t108;
1738 t435 = 0.1e1 / t110 / t433;
1739 t436 = t435 * t324;
1740 t444 = t61 * sigma[2];
1741 t449 = t65 * t120;
1742 t454 = 0.4e-2 * t57 * t112 * t116 - 0.16e-4 * t140 * t128 + 0.32e-4 * t444 * t128 - 0.128e-6 * t143 * t137 + 0.192e-6 * t449 * t137 - 0.768e-9 * t146 * t436;
1743 t456 = 0.4e-2 * t20 * t112 * t116 - 0.16e-4 * t107 * t128 + 0.32e-4 * t425 * t128 - 0.128e-6 * t121 * t137 + 0.192e-6 * t430 * t137 - 0.768e-9 * t132 * t436 + t454 * t170;
1744 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1745 vsigma[2] = -0.3e1 / 0.8e1 * t377 * t419 * t456;
1746
1747 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1748 vlapl[0] = 0.0e0;
1749
1750 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1751 vlapl[1] = 0.0e0;
1752
1753 t470 = -t248 * t78 + 0.6e1 * t251 * t78 + 0.6e1 * t255 * t78 - 0.5e1 * t258 * t78 - 0.5e1 * t263 * t78 - t78 * t82;
1754 t471 = t69 * t470;
1755 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1756 vtau[0] = -0.3e1 / 0.8e1 * t377 * t378 * t471;
1757
1758 t485 = -t151 * t155 - t349 * t151 + 0.6e1 * t352 * t151 + 0.6e1 * t356 * t151 - 0.5e1 * t359 * t151 - 0.5e1 * t364 * t151;
1759 t486 = t149 * t485;
1760 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1761 vtau[1] = -0.3e1 / 0.8e1 * t377 * t419 * t486;
1762
1763 #ifndef XC_DONT_COMPILE_FXC
1764
1765 if(order < 2) return;
1766
1767
1768 t490 = t192 / 0.4e1;
1769 t492 = t280 / 0.4e1;
1770 t493 = t15 * t15;
1771 t494 = 0.1e1 / t493;
1772 t495 = t494 * t17;
1773 t496 = t183 * t183;
1774 t497 = t99 * t496;
1775 t499 = t8 * t495 * t497;
1776 t500 = t499 / 0.6e1;
1777 t501 = t15 * t189;
1778 t503 = t8 * t501 * t184;
1779 t504 = t503 / 0.3e1;
1780 t505 = t268 * t183;
1781 t507 = t8 * t178 * t505;
1782 t508 = t179 * t10;
1783 t509 = 0.1e1 / t508;
1784 t510 = t9 * t509;
1785 t511 = -t180 + t510;
1786 t512 = t99 * t511;
1787 t514 = t8 * t178 * t512;
1788 t515 = t514 / 0.2e1;
1789 t517 = 0.1e1 / t188 / t10;
1790 t518 = t16 * t517;
1791 t520 = t8 * t518 * t99;
1792 t521 = t520 / 0.12e2;
1793 t523 = t8 * t190 * t268;
1794 t524 = t523 / 0.4e1;
1795 t526 = 0.1e1 / t24 / t37;
1796 t527 = t526 * t30;
1797 t530 = t37 * t194;
1798 t532 = 0.1e1 / t23 / t530;
1799 t533 = t532 * t42;
1800 t536 = t20 * t47;
1801 t537 = 0.1e1 / t392;
1802 t538 = t537 * t52;
1803 t545 = t34 * t217;
1804 t546 = t49 * t37;
1805 t548 = 0.1e1 / t24 / t546;
1806 t549 = t548 * t223;
1807 t556 = t217 * sigma[0];
1808 t557 = t46 * t556;
1809 t562 = 0.1e1 / t222 / t29;
1810 t563 = 0.1e1 / t23 / t49 / t530 * t562;
1811 t570 = t57 * t47;
1812 t577 = t61 * t217;
1813 t584 = t65 * t556;
1814 t587 = 0.39111111111111111112e-1 * t58 * t527 - 0.38400000000000000001e-3 * t229 * t533 + 0.91022222222222222228e-6 * t570 * t538 + 0.54044444444444444444e-3 * t62 * t533 - 0.48924444444444444446e-5 * t234 * t538 + 0.10922666666666666667e-7 * t577 * t549 + 0.4608e-5 * t66 * t538 - 0.40277333333333333336e-7 * t239 * t549 + 0.87381333333333333340e-10 * t584 * t563;
1815 t591 = tau[0] * t196;
1816 t594 = tau[0] * tau[0];
1817 t595 = t594 * t40;
1818 t598 = t80 * t88;
1819 t603 = t84 * t254;
1820 t608 = t85 * t95;
1821 t613 = t91 * t262;
1822 t619 = 0.1e1 / t93 / t87;
1823 t620 = t92 * t619;
1824 t625 = -0.40e2 / 0.9e1 * t591 * t82 + 0.50e2 / 0.9e1 * t595 * t247 - 0.250e3 / 0.9e1 * t598 * t595 - 0.40e2 / 0.9e1 * t248 * t591 - 0.100e3 * t603 * t595 + 0.80e2 / 0.3e1 * t251 * t591 - 0.100e3 / 0.9e1 * t608 * t595 + 0.80e2 / 0.3e1 * t255 * t591 + 0.1250e4 / 0.9e1 * t613 * t595 - 0.200e3 / 0.9e1 * t258 * t591 + 0.250e3 / 0.3e1 * t620 * t595 - 0.200e3 / 0.9e1 * t263 * t591;
1825 t627 = 0.39111111111111111112e-1 * t21 * t527 - 0.38400000000000000001e-3 * t200 * t533 + 0.91022222222222222228e-6 * t536 * t538 + 0.54044444444444444444e-3 * t36 * t533 - 0.48924444444444444446e-5 * t209 * t538 + 0.10922666666666666667e-7 * t545 * t549 + 0.4608e-5 * t48 * t538 - 0.40277333333333333336e-7 * t218 * t549 + 0.87381333333333333340e-10 * t557 * t563 + t587 * t97 + 0.2e1 * t242 * t266 + t69 * t625;
1826 t629 = t8 * t18 * t627;
1827 t630 = 0.3e1 / 0.8e1 * t629;
1828 t631 = t104 * t104;
1829 t632 = 0.1e1 / t631;
1830 t633 = t632 * t17;
1831 t634 = t273 * t273;
1832 t635 = t172 * t634;
1833 t637 = t8 * t633 * t635;
1834 t638 = t637 / 0.6e1;
1835 t639 = t104 * t189;
1836 t641 = t8 * t639 * t274;
1837 t642 = t641 / 0.3e1;
1838 t643 = -t511;
1839 t644 = t172 * t643;
1840 t646 = t8 * t272 * t644;
1841 t647 = t646 / 0.2e1;
1842 t648 = t105 * t517;
1843 t650 = t8 * t648 * t172;
1844 t651 = t650 / 0.12e2;
1845 t652 = -t500 - t504 - t507 - t515 + t521 - t524 - t630 - t638 - t642 - t647 + t651;
1846 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1847 v2rho2[0] = -t186 - t490 - 0.3e1 / 0.4e1 * t270 - t276 - t492 + t10 * t652;
1848
1849 t654 = t7 * t494;
1850 t655 = t5 * t654;
1851 t656 = t17 * t99;
1852 t657 = t285 * t183;
1853 t659 = t655 * t656 * t657;
1854 t662 = t8 * t501 * t286;
1855 t664 = t268 * t285;
1856 t666 = t8 * t178 * t664;
1857 t669 = 0.1e1 / t188 / t179;
1858 t670 = t15 * t669;
1859 t671 = t99 * t9;
1860 t673 = t8 * t670 * t671;
1861 t677 = t7 * t632;
1862 t678 = t5 * t677;
1863 t679 = t17 * t172;
1864 t680 = t290 * t273;
1865 t682 = t678 * t679 * t680;
1866 t685 = t8 * t639 * t291;
1867 t687 = t104 * t669;
1868 t688 = t172 * t9;
1869 t690 = t8 * t687 * t688;
1870 t693 = t369 * t273;
1871 t695 = t8 * t272 * t693;
1872 t698 = t8 * t278 * t369;
1873 t700 = -t659 / 0.6e1 - t662 / 0.6e1 - t666 / 0.2e1 - t673 / 0.2e1 - t503 / 0.6e1 + t521 - t523 / 0.8e1 - t682 / 0.6e1 - t685 / 0.6e1 + t690 / 0.2e1 - t641 / 0.6e1 + t651 - t695 / 0.2e1 - t698 / 0.8e1;
1874 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1875 v2rho2[1] = t10 * t700 - t187 - t271 - t277 - t289 - t294 - t372 - t490 - t492;
1876
1877 t703 = t285 * t285;
1878 t704 = t99 * t703;
1879 t706 = t8 * t495 * t704;
1880 t707 = t706 / 0.6e1;
1881 t708 = t662 / 0.3e1;
1882 t709 = t180 + t510;
1883 t710 = t99 * t709;
1884 t712 = t8 * t178 * t710;
1885 t713 = t712 / 0.2e1;
1886 t714 = t290 * t290;
1887 t715 = t172 * t714;
1888 t717 = t8 * t633 * t715;
1889 t718 = t717 / 0.6e1;
1890 t719 = t685 / 0.3e1;
1891 t720 = t369 * t290;
1892 t722 = t8 * t272 * t720;
1893 t723 = -t709;
1894 t724 = t172 * t723;
1895 t726 = t8 * t272 * t724;
1896 t727 = t726 / 0.2e1;
1897 t728 = t698 / 0.4e1;
1898 t730 = 0.1e1 / t110 / t122;
1899 t731 = t730 * t116;
1900 t734 = t122 * t295;
1901 t736 = 0.1e1 / t109 / t734;
1902 t737 = t736 * t127;
1903 t740 = t20 * t131;
1904 t741 = 0.1e1 / t433;
1905 t742 = t741 * t136;
1906 t749 = t34 * t318;
1907 t750 = t133 * t122;
1908 t752 = 0.1e1 / t110 / t750;
1909 t753 = t752 * t324;
1910 t760 = t318 * sigma[2];
1911 t761 = t46 * t760;
1912 t766 = 0.1e1 / t323 / t115;
1913 t767 = 0.1e1 / t109 / t133 / t734 * t766;
1914 t774 = t57 * t131;
1915 t781 = t61 * t318;
1916 t788 = t65 * t760;
1917 t791 = 0.39111111111111111112e-1 * t140 * t731 - 0.38400000000000000001e-3 * t330 * t737 + 0.91022222222222222228e-6 * t774 * t742 + 0.54044444444444444444e-3 * t143 * t737 - 0.48924444444444444446e-5 * t335 * t742 + 0.10922666666666666667e-7 * t781 * t753 + 0.4608e-5 * t146 * t742 - 0.40277333333333333336e-7 * t340 * t753 + 0.87381333333333333340e-10 * t788 * t767;
1918 t795 = tau[1] * t297;
1919 t798 = tau[1] * tau[1];
1920 t799 = t798 * t125;
1921 t802 = t153 * t161;
1922 t807 = t157 * t355;
1923 t812 = t158 * t168;
1924 t817 = t164 * t363;
1925 t823 = 0.1e1 / t166 / t160;
1926 t824 = t165 * t823;
1927 t829 = -0.40e2 / 0.9e1 * t795 * t155 + 0.50e2 / 0.9e1 * t799 * t348 - 0.250e3 / 0.9e1 * t802 * t799 - 0.40e2 / 0.9e1 * t349 * t795 - 0.100e3 * t807 * t799 + 0.80e2 / 0.3e1 * t352 * t795 - 0.100e3 / 0.9e1 * t812 * t799 + 0.80e2 / 0.3e1 * t356 * t795 + 0.1250e4 / 0.9e1 * t817 * t799 - 0.200e3 / 0.9e1 * t359 * t795 + 0.250e3 / 0.3e1 * t824 * t799 - 0.200e3 / 0.9e1 * t364 * t795;
1928 t831 = 0.39111111111111111112e-1 * t107 * t731 - 0.38400000000000000001e-3 * t301 * t737 + 0.91022222222222222228e-6 * t740 * t742 + 0.54044444444444444444e-3 * t121 * t737 - 0.48924444444444444446e-5 * t310 * t742 + 0.10922666666666666667e-7 * t749 * t753 + 0.4608e-5 * t132 * t742 - 0.40277333333333333336e-7 * t319 * t753 + 0.87381333333333333340e-10 * t761 * t767 + t791 * t170 + 0.2e1 * t343 * t367 + t149 * t829;
1929 t833 = t8 * t106 * t831;
1930 t834 = 0.3e1 / 0.8e1 * t833;
1931 t835 = -t707 - t708 - t713 + t521 - t718 - t719 - t722 - t727 + t651 - t728 - t834;
1932 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1933 v2rho2[2] = -t288 - t490 - t293 - t492 - 0.3e1 / 0.4e1 * t371 + t10 * t835;
1934
1935 t838 = t8 * t18 * t415;
1936 t840 = t7 * t15;
1937 t841 = t415 * t183;
1938 t848 = t20 * t203;
1939 t849 = t42 * sigma[0];
1940 t864 = t49 * t201;
1941 t867 = 0.1e1 / t23 / t864 * t562;
1942 t873 = t57 * t203;
1943 t890 = -0.10666666666666666667e-1 * t57 * t196 * t30 + 0.12800000000000000000e-3 * t873 * t849 - 0.34133333333333333334e-6 * t229 * t212 - 0.17066666666666666667e-3 * t403 * t204 + 0.17066666666666666667e-5 * t62 * t212 - 0.40960000000000000001e-8 * t234 * t224 - 0.1536e-5 * t408 * t212 + 0.14336000000000000000e-7 * t66 * t224 - 0.32768000000000000001e-10 * t239 * t867;
1944 t893 = -0.10666666666666666667e-1 * t20 * t196 * t30 + 0.12800000000000000000e-3 * t848 * t849 - 0.34133333333333333334e-6 * t200 * t212 - 0.17066666666666666667e-3 * t384 * t204 + 0.17066666666666666667e-5 * t36 * t212 - 0.40960000000000000001e-8 * t209 * t224 - 0.1536e-5 * t389 * t212 + 0.14336000000000000000e-7 * t48 * t224 - 0.32768000000000000001e-10 * t218 * t867 + t890 * t97 + t413 * t266;
1945 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1946 v2rhosigma[0] = -t838 / 0.2e1 - t377 * t840 * t841 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t893;
1947
1948 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1949 v2rhosigma[1] = 0.0e0;
1950
1951 t898 = t8 * t106 * t456;
1952 t899 = t7 * t104;
1953 t900 = t456 * t273;
1954 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1955 v2rhosigma[2] = -t377 * t899 * t900 / 0.2e1 - t898 / 0.2e1;
1956
1957 t905 = t840 * t415 * t285;
1958 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1959 v2rhosigma[3] = -t377 * t905 / 0.2e1 - t838 / 0.2e1;
1960
1961 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1962 v2rhosigma[4] = 0.0e0;
1963
1964 t910 = t899 * t456 * t290;
1965 t916 = t20 * t304;
1966 t917 = t127 * sigma[2];
1967 t932 = t133 * t302;
1968 t935 = 0.1e1 / t109 / t932 * t766;
1969 t941 = t57 * t304;
1970 t958 = -0.10666666666666666667e-1 * t57 * t297 * t116 + 0.12800000000000000000e-3 * t941 * t917 - 0.34133333333333333334e-6 * t330 * t313 - 0.17066666666666666667e-3 * t444 * t305 + 0.17066666666666666667e-5 * t143 * t313 - 0.40960000000000000001e-8 * t335 * t325 - 0.1536e-5 * t449 * t313 + 0.14336000000000000000e-7 * t146 * t325 - 0.32768000000000000001e-10 * t340 * t935;
1971 t961 = -0.10666666666666666667e-1 * t20 * t297 * t116 + 0.12800000000000000000e-3 * t916 * t917 - 0.34133333333333333334e-6 * t301 * t313 - 0.17066666666666666667e-3 * t425 * t305 + 0.17066666666666666667e-5 * t121 * t313 - 0.40960000000000000001e-8 * t310 * t325 - 0.1536e-5 * t430 * t313 + 0.14336000000000000000e-7 * t132 * t325 - 0.32768000000000000001e-10 * t319 * t935 + t958 * t170 + t454 * t367;
1972 t962 = t419 * t961;
1973 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1974 v2rhosigma[5] = -t898 / 0.2e1 - t377 * t910 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t962;
1975
1976 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1977 v2rholapl[0] = 0.0e0;
1978
1979 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1980 v2rholapl[1] = 0.0e0;
1981
1982 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1983 v2rholapl[2] = 0.0e0;
1984
1985 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1986 v2rholapl[3] = 0.0e0;
1987
1988 t966 = t8 * t18 * t471;
1989 t968 = t4 * t7;
1990 t969 = t376 * t968;
1991 t970 = t15 * t69;
1992 t971 = t470 * t183;
1993 t975 = t242 * t470;
1994 t982 = 0.1e1 / t23 / t37;
1995 t983 = t982 * t247;
1996 t986 = t982 * tau[0];
1997 t1007 = 0.5e1 / 0.3e1 * t26 * t82 - 0.10e2 / 0.3e1 * t983 * tau[0] + 0.50e2 / 0.3e1 * t598 * t986 + 0.5e1 / 0.3e1 * t248 * t26 + 0.60e2 * t603 * t986 - 0.10e2 * t251 * t26 + 0.20e2 / 0.3e1 * t608 * t986 - 0.10e2 * t255 * t26 - 0.250e3 / 0.3e1 * t613 * t986 + 0.25e2 / 0.3e1 * t258 * t26 - 0.50e2 * t620 * t986 + 0.25e2 / 0.3e1 * t263 * t26;
1998 t1008 = t69 * t1007;
1999 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2000 v2rhotau[0] = -t966 / 0.2e1 - t969 * t970 * t971 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t975 - 0.3e1 / 0.8e1 * t377 * t378 * t1008;
2001
2002 t1013 = t8 * t106 * t486;
2003 t1014 = t104 * t149;
2004 t1015 = t485 * t273;
2005 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2006 v2rhotau[1] = -t969 * t1014 * t1015 / 0.2e1 - t1013 / 0.2e1;
2007
2008 t1019 = t470 * t285;
2009 t1020 = t970 * t1019;
2010 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2011 v2rhotau[2] = -t969 * t1020 / 0.2e1 - t966 / 0.2e1;
2012
2013 t1024 = t485 * t290;
2014 t1025 = t1014 * t1024;
2015 t1029 = t419 * t343 * t485;
2016 t1035 = 0.1e1 / t109 / t122;
2017 t1036 = t1035 * t348;
2018 t1039 = t1035 * tau[1];
2019 t1060 = 0.5e1 / 0.3e1 * t112 * t155 - 0.10e2 / 0.3e1 * t1036 * tau[1] + 0.50e2 / 0.3e1 * t802 * t1039 + 0.5e1 / 0.3e1 * t349 * t112 + 0.60e2 * t807 * t1039 - 0.10e2 * t352 * t112 + 0.20e2 / 0.3e1 * t812 * t1039 - 0.10e2 * t356 * t112 - 0.250e3 / 0.3e1 * t817 * t1039 + 0.25e2 / 0.3e1 * t359 * t112 - 0.50e2 * t824 * t1039 + 0.25e2 / 0.3e1 * t364 * t112;
2020 t1062 = t419 * t149 * t1060;
2021 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2022 v2rhotau[3] = -t1013 / 0.2e1 - t969 * t1025 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t1029 - 0.3e1 / 0.8e1 * t377 * t1062;
2023
2024 t1077 = t46 * sigma[0];
2025 t1082 = t49 * t38;
2026 t1085 = 0.1e1 / t23 / t1082 * t562;
2027 t1100 = t65 * sigma[0];
2028 t1107 = -0.32e-4 * t57 * t40 * t42 + 0.128e-6 * t58 * t53 + 0.32e-4 * t61 * t40 * t42 - 0.512e-6 * t403 * t53 + 0.1536e-8 * t62 * t395 + 0.384e-6 * t1100 * t53 - 0.4608e-8 * t408 * t395 + 0.12288e-10 * t66 * t1085;
2029 t1109 = -0.32e-4 * t20 * t40 * t42 + 0.128e-6 * t21 * t53 + 0.32e-4 * t34 * t40 * t42 - 0.512e-6 * t384 * t53 + 0.1536e-8 * t36 * t395 + 0.384e-6 * t1077 * t53 - 0.4608e-8 * t389 * t395 + 0.12288e-10 * t48 * t1085 + t1107 * t97;
2030 t1110 = t378 * t1109;
2031 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2032 v2sigma2[0] = -0.3e1 / 0.8e1 * t377 * t1110;
2033
2034 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2035 v2sigma2[1] = 0.0e0;
2036
2037 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2038 v2sigma2[2] = 0.0e0;
2039
2040 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2041 v2sigma2[3] = 0.0e0;
2042
2043 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2044 v2sigma2[4] = 0.0e0;
2045
2046 t1125 = t46 * sigma[2];
2047 t1130 = t133 * t123;
2048 t1133 = 0.1e1 / t109 / t1130 * t766;
2049 t1148 = t65 * sigma[2];
2050 t1155 = -0.32e-4 * t57 * t125 * t127 + 0.128e-6 * t140 * t137 + 0.32e-4 * t61 * t125 * t127 - 0.512e-6 * t444 * t137 + 0.1536e-8 * t143 * t436 + 0.384e-6 * t1148 * t137 - 0.4608e-8 * t449 * t436 + 0.12288e-10 * t146 * t1133;
2051 t1157 = -0.32e-4 * t20 * t125 * t127 + 0.128e-6 * t107 * t137 + 0.32e-4 * t34 * t125 * t127 - 0.512e-6 * t425 * t137 + 0.1536e-8 * t121 * t436 + 0.384e-6 * t1125 * t137 - 0.4608e-8 * t430 * t436 + 0.12288e-10 * t132 * t1133 + t1155 * t170;
2052 t1158 = t419 * t1157;
2053 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2054 v2sigma2[5] = -0.3e1 / 0.8e1 * t377 * t1158;
2055
2056 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2057 v2sigmalapl[0] = 0.0e0;
2058
2059 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2060 v2sigmalapl[1] = 0.0e0;
2061
2062 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2063 v2sigmalapl[2] = 0.0e0;
2064
2065 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2066 v2sigmalapl[3] = 0.0e0;
2067
2068 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2069 v2sigmalapl[4] = 0.0e0;
2070
2071 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2072 v2sigmalapl[5] = 0.0e0;
2073
2074 t1162 = t378 * t413 * t470;
2075 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2076 v2sigmatau[0] = -0.3e1 / 0.8e1 * t377 * t1162;
2077
2078 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2079 v2sigmatau[1] = 0.0e0;
2080
2081 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2082 v2sigmatau[2] = 0.0e0;
2083
2084 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2085 v2sigmatau[3] = 0.0e0;
2086
2087 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2088 v2sigmatau[4] = 0.0e0;
2089
2090 t1166 = t419 * t454 * t485;
2091 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2092 v2sigmatau[5] = -0.3e1 / 0.8e1 * t377 * t1166;
2093
2094 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2095 v2lapl2[0] = 0.0e0;
2096
2097 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2098 v2lapl2[1] = 0.0e0;
2099
2100 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2101 v2lapl2[2] = 0.0e0;
2102
2103 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2104 v2lapltau[0] = 0.0e0;
2105
2106 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2107 v2lapltau[1] = 0.0e0;
2108
2109 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2110 v2lapltau[2] = 0.0e0;
2111
2112 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
2113 v2lapltau[3] = 0.0e0;
2114
2115 t1170 = 0.1e1 / t23 / t194;
2116 t1183 = 0.2e1 * t1170 * t247 - 0.10e2 * t598 * t1170 - 0.36e2 * t603 * t1170 - 0.4e1 * t608 * t1170 + 0.50e2 * t613 * t1170 + 0.30e2 * t620 * t1170;
2117 t1185 = t378 * t69 * t1183;
2118 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2119 v2tau2[0] = -0.3e1 / 0.8e1 * t377 * t1185;
2120
2121 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2122 v2tau2[1] = 0.0e0;
2123
2124 t1189 = 0.1e1 / t109 / t295;
2125 t1202 = 0.2e1 * t1189 * t348 - 0.10e2 * t802 * t1189 - 0.36e2 * t807 * t1189 - 0.4e1 * t812 * t1189 + 0.50e2 * t817 * t1189 + 0.30e2 * t824 * t1189;
2126 t1204 = t419 * t149 * t1202;
2127 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
2128 v2tau2[2] = -0.3e1 / 0.8e1 * t377 * t1204;
2129
2130 #ifndef XC_DONT_COMPILE_KXC
2131
2132 if(order < 3) return;
2133
2134
2135 t1208 = t8 * t190 * t627;
2136 t1211 = 0.1e1 / t24 / t38;
2137 t1212 = t1211 * t30;
2138 t1216 = 0.1e1 / t23 / t49;
2139 t1217 = t1216 * t42;
2140 t1220 = 0.1e1 / t219;
2141 t1221 = t1220 * t52;
2142 t1224 = t20 * t217;
2143 t1226 = 0.1e1 / t24 / t1082;
2144 t1227 = t1226 * t223;
2145 t1236 = t34 * t556;
2146 t1237 = t49 * t49;
2147 t1240 = 0.1e1 / t23 / t1237 * t562;
2148 t1249 = t217 * t35;
2149 t1250 = t46 * t1249;
2150 t1251 = t1237 * t194;
2151 t1254 = 0.1e1 / t222 / t41;
2152 t1255 = 0.1e1 / t1251 * t1254;
2153 t1264 = t57 * t217;
2154 t1273 = t61 * t556;
2155 t1282 = t65 * t1249;
2156 t1285 = -0.18251851851851851852e0 * t58 * t1212 + 0.32331851851851851853e-2 * t229 * t1217 - 0.17294222222222222223e-4 * t570 * t1221 + 0.29127111111111111114e-7 * t1264 * t1227 - 0.39632592592592592592e-2 * t62 * t1217 + 0.60453925925925925928e-4 * t234 * t1221 - 0.29491200000000000001e-6 * t577 * t1227 + 0.46603377777777777781e-9 * t1273 * t1240 - 0.46080e-4 * t66 * t1221 + 0.65763555555555555559e-6 * t239 * t1227 - 0.30583466666666666669e-8 * t584 * t1240 + 0.46603377777777777783e-11 * t1282 * t1255;
2157 t1291 = t84 * t95;
2158 t1292 = t594 * tau[0];
2159 t1293 = t1292 * t50;
2160 t1296 = t85 * t262;
2161 t1299 = t91 * t619;
2162 t1302 = t93 * t93;
2163 t1303 = 0.1e1 / t1302;
2164 t1304 = t92 * t1303;
2165 t1307 = tau[0] * t526;
2166 t1310 = t594 * t203;
2167 t1335 = t80 * t254;
2168 t1338 = -0.6500e4 / 0.9e1 * t1291 * t1293 + 0.2500e4 / 0.3e1 * t1296 * t1293 + 0.6250e4 / 0.3e1 * t1299 * t1293 + 0.8750e4 / 0.9e1 * t1304 * t1293 + 0.2200e4 / 0.27e2 * t258 * t1307 - 0.2000e4 / 0.3e1 * t620 * t1310 + 0.2200e4 / 0.27e2 * t263 * t1307 + 0.2000e4 / 0.9e1 * t598 * t1310 + 0.440e3 / 0.27e2 * t248 * t1307 + 0.800e3 * t603 * t1310 - 0.880e3 / 0.9e1 * t251 * t1307 + 0.800e3 / 0.9e1 * t608 * t1310 - 0.880e3 / 0.9e1 * t255 * t1307 - 0.10000e5 / 0.9e1 * t613 * t1310 - 0.400e3 / 0.9e1 * t1310 * t247 - 0.250e3 / 0.9e1 * t1293 * t88 + 0.440e3 / 0.27e2 * t1307 * t82 - 0.4250e4 / 0.9e1 * t1335 * t1293;
2169 t1340 = -0.18251851851851851852e0 * t21 * t1212 + 0.32331851851851851853e-2 * t200 * t1217 - 0.17294222222222222223e-4 * t536 * t1221 + 0.29127111111111111114e-7 * t1224 * t1227 - 0.39632592592592592592e-2 * t36 * t1217 + 0.60453925925925925928e-4 * t209 * t1221 - 0.29491200000000000001e-6 * t545 * t1227 + 0.46603377777777777781e-9 * t1236 * t1240 - 0.46080e-4 * t48 * t1221 + 0.65763555555555555559e-6 * t218 * t1227 - 0.30583466666666666669e-8 * t557 * t1240 + 0.46603377777777777783e-11 * t1250 * t1255 + t1285 * t97 + 0.3e1 * t587 * t266 + 0.3e1 * t242 * t625 + t69 * t1338;
2170 t1342 = t8 * t18 * t1340;
2171 t1343 = 0.3e1 / 0.8e1 * t1342;
2172 t1345 = t8 * t518 * t268;
2173 t1346 = t1345 / 0.4e1;
2174 t1348 = t8 * t639 * t644;
2175 t1350 = t179 * t179;
2176 t1351 = 0.1e1 / t1350;
2177 t1352 = t9 * t1351;
2178 t1354 = -0.3e1 * t509 + 0.3e1 * t1352;
2179 t1355 = t172 * t1354;
2180 t1357 = t8 * t272 * t1355;
2181 t1358 = t1357 / 0.2e1;
2182 t1359 = t105 * t669;
2183 t1361 = t8 * t1359 * t172;
2184 t1362 = 0.5e1 / 0.36e2 * t1361;
2185 t1363 = t16 * t669;
2186 t1365 = t8 * t1363 * t99;
2187 t1366 = 0.5e1 / 0.36e2 * t1365;
2188 t1367 = t268 * t511;
2189 t1369 = t8 * t178 * t1367;
2190 t1370 = 0.3e1 / 0.2e1 * t1369;
2191 t1371 = -t1354;
2192 t1372 = t99 * t1371;
2193 t1374 = t8 * t178 * t1372;
2194 t1375 = t1374 / 0.2e1;
2195 t1376 = t268 * t496;
2196 t1378 = t8 * t495 * t1376;
2197 t1379 = t1378 / 0.2e1;
2198 t1382 = t8 * t501 * t505;
2199 t1384 = t8 * t501 * t512;
2200 t1386 = t627 * t183;
2201 t1388 = t8 * t178 * t1386;
2202 t1389 = 0.3e1 / 0.2e1 * t1388;
2203 t1391 = 0.1e1 / t493 / t14;
2204 t1392 = t1391 * t17;
2205 t1393 = t496 * t183;
2206 t1394 = t99 * t1393;
2207 t1396 = t8 * t1392 * t1394;
2208 t1397 = t1396 / 0.9e1;
2209 t1398 = t494 * t189;
2210 t1400 = t8 * t1398 * t497;
2211 t1402 = t183 * t511;
2212 t1404 = t655 * t656 * t1402;
2213 t1405 = t1404 / 0.2e1;
2214 t1406 = t15 * t517;
2215 t1408 = t8 * t1406 * t184;
2216 t1409 = t1408 / 0.3e1;
2217 t1411 = 0.1e1 / t631 / t103;
2218 t1412 = t1411 * t17;
2219 t1413 = t634 * t273;
2220 t1414 = t172 * t1413;
2221 t1416 = t8 * t1412 * t1414;
2222 t1417 = t1416 / 0.9e1;
2223 t1418 = t632 * t189;
2224 t1420 = t8 * t1418 * t635;
2225 t1422 = t273 * t643;
2226 t1424 = t678 * t679 * t1422;
2227 t1425 = t1424 / 0.2e1;
2228 t1426 = t104 * t517;
2229 t1428 = t8 * t1426 * t274;
2230 t1429 = t1428 / 0.3e1;
2231 t1430 = -t1382 - t1384 / 0.2e1 - t1389 + t1397 - t1400 / 0.6e1 - t1405 + t1409 + t1417 - t1420 / 0.6e1 - t1425 + t1429;
2232 t1436 = t650 / 0.4e1;
2233 t1439 = t520 / 0.4e1;
2234 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2235 v3rho3[0] = t10 * (-0.3e1 / 0.8e1 * t1208 - t1343 + t1346 - t1348 / 0.2e1 - t1358 - t1362 - t1366 - t1370 - t1375 - t1379 + t1430) - 0.9e1 / 0.8e1 * t629 - 0.3e1 / 0.4e1 * t523 - 0.3e1 / 0.2e1 * t646 + t1436 - 0.3e1 * t507 - 0.3e1 / 0.2e1 * t514 + t1439 - t637 / 0.2e1 - t641 - t499 / 0.2e1 - t503;
2236
2237 t1443 = t8 * t648 * t369;
2238 t1446 = t8 * t687 * t172;
2239 t1449 = t8 * t670 * t99;
2240 t1453 = t369 * t643;
2241 t1455 = t8 * t272 * t1453;
2242 t1457 = t627 * t285;
2243 t1459 = t8 * t178 * t1457;
2244 t1462 = t8 * t501 * t664;
2245 t1463 = t1462 / 0.3e1;
2246 t1465 = t8 * t1406 * t286;
2247 t1468 = 0.1e1 / t188 / t508;
2248 t1469 = t15 * t1468;
2249 t1471 = t8 * t1469 * t671;
2250 t1473 = t268 * t9;
2251 t1475 = t8 * t670 * t1473;
2252 t1477 = t8 * t1426 * t291;
2253 t1479 = t369 * t634;
2254 t1481 = t8 * t633 * t1479;
2255 t1484 = t8 * t639 * t693;
2256 t1485 = t1484 / 0.3e1;
2257 t1486 = t1443 / 0.12e2 + t1446 / 0.2e1 - t1449 / 0.2e1 - t1208 / 0.8e1 + t1345 / 0.6e1 - t1362 - t1366 - t1455 / 0.2e1 - t1459 / 0.2e1 - t1463 + t1465 / 0.9e1 + 0.7e1 / 0.6e1 * t1471 - t1475 + t1477 / 0.9e1 - t1481 / 0.6e1 - t1485;
2258 t1494 = t104 * t1468;
2259 t1496 = t8 * t1494 * t688;
2260 t1498 = t290 * t643;
2261 t1500 = t678 * t679 * t1498;
2262 t1502 = t669 * t172;
2263 t1503 = t9 * t273;
2264 t1505 = t678 * t1502 * t1503;
2265 t1507 = t189 * t99;
2266 t1509 = t655 * t1507 * t657;
2267 t1510 = t1509 / 0.9e1;
2268 t1511 = t669 * t99;
2269 t1512 = t9 * t183;
2270 t1514 = t655 * t1511 * t1512;
2271 t1516 = t7 * t1411;
2272 t1517 = t5 * t1516;
2273 t1518 = t290 * t634;
2274 t1520 = t1517 * t679 * t1518;
2275 t1522 = t189 * t172;
2276 t1524 = t678 * t1522 * t680;
2277 t1525 = t1524 / 0.9e1;
2278 t1526 = t7 * t1391;
2279 t1527 = t5 * t1526;
2280 t1528 = t285 * t496;
2281 t1530 = t1527 * t656 * t1528;
2282 t1532 = t17 * t268;
2283 t1534 = t655 * t1532 * t657;
2284 t1536 = t285 * t511;
2285 t1538 = t655 * t656 * t1536;
2286 t1540 = -t1348 / 0.6e1 - t1382 / 0.3e1 - t1384 / 0.6e1 - t1400 / 0.18e2 + 0.2e1 / 0.9e1 * t1408 - t1420 / 0.18e2 + 0.2e1 / 0.9e1 * t1428 - 0.7e1 / 0.6e1 * t1496 - t1500 / 0.6e1 + t1505 / 0.3e1 - t1510 - t1514 / 0.3e1 + t1520 / 0.9e1 - t1525 + t1530 / 0.9e1 - t1534 / 0.3e1 - t1538 / 0.6e1;
2287 t1546 = t659 / 0.3e1;
2288 t1547 = t682 / 0.3e1;
2289 t1549 = -t515 + t1439 - t719 - t638 - 0.2e1 / 0.3e1 * t641 - t1546 - t708 - t673 - t1547 - t500 - 0.2e1 / 0.3e1 * t503;
2290 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2291 v3rho3[1] = t10 * (t1486 + t1540) - t630 - t523 / 0.2e1 + t690 - t695 - t728 - t666 - t647 + t1436 - t507 + t1549;
2292
2293 t1551 = t8 * t278 * t831;
2294 t1556 = t8 * t639 * t724;
2295 t1558 = t369 * t9;
2296 t1560 = t8 * t687 * t1558;
2297 t1562 = t509 + 0.3e1 * t1352;
2298 t1563 = t172 * t1562;
2299 t1565 = t8 * t272 * t1563;
2300 t1567 = t831 * t273;
2301 t1569 = t8 * t272 * t1567;
2302 t1571 = t268 * t709;
2303 t1573 = t8 * t178 * t1571;
2304 t1575 = -t1562;
2305 t1576 = t99 * t1575;
2306 t1578 = t8 * t178 * t1576;
2307 t1580 = t268 * t703;
2308 t1582 = t8 * t495 * t1580;
2309 t1585 = t8 * t1398 * t704;
2310 t1588 = t8 * t501 * t710;
2311 t1591 = t8 * t1418 * t715;
2312 t1594 = t8 * t639 * t720;
2313 t1596 = -t1551 / 0.8e1 + t1443 / 0.6e1 + t1345 / 0.12e2 - t1362 - t1366 - t1556 / 0.6e1 + t1560 - t1565 / 0.2e1 - t1569 / 0.2e1 - t1573 / 0.2e1 - t1578 / 0.2e1 - t1582 / 0.6e1 - t1585 / 0.18e2 - t1588 / 0.6e1 - t1591 / 0.18e2 - t1594 / 0.3e1;
2314 t1603 = t714 * t273;
2315 t1605 = t1517 * t679 * t1603;
2316 t1607 = t290 * t9;
2317 t1609 = t678 * t1502 * t1607;
2318 t1611 = t17 * t369;
2319 t1613 = t678 * t1611 * t680;
2320 t1615 = t723 * t273;
2321 t1617 = t678 * t679 * t1615;
2322 t1619 = t285 * t9;
2323 t1621 = t655 * t1511 * t1619;
2324 t1623 = t703 * t183;
2325 t1625 = t1527 * t656 * t1623;
2326 t1627 = t709 * t183;
2327 t1629 = t655 * t656 * t1627;
2328 t1631 = -t1463 + 0.2e1 / 0.9e1 * t1465 - t1471 / 0.3e1 + 0.2e1 / 0.9e1 * t1477 - t1485 + t1408 / 0.9e1 + t1428 / 0.9e1 + t1496 / 0.3e1 + t1605 / 0.9e1 + t1609 / 0.3e1 - t1613 / 0.3e1 - t1617 / 0.6e1 - t1621 / 0.3e1 + t1625 / 0.9e1 - t1629 / 0.6e1 - t1510 - t1525;
2329 t1638 = t1436 + t1439 - 0.2e1 / 0.3e1 * t685 - t707 - t718 - t642 - t1546 - 0.2e1 / 0.3e1 * t662 - t673 - t1547 - t504;
2330 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2331 v3rho3[2] = t10 * (t1596 + t1631) - t834 - t524 - t722 - t727 - t713 + t690 - t695 - t698 / 0.2e1 - t666 + t1638;
2332
2333 t1640 = 0.3e1 * t509 + 0.3e1 * t1352;
2334 t1641 = t172 * t1640;
2335 t1643 = t8 * t272 * t1641;
2336 t1644 = t1643 / 0.2e1;
2337 t1646 = 0.1e1 / t110 / t123;
2338 t1647 = t1646 * t116;
2339 t1651 = 0.1e1 / t109 / t133;
2340 t1652 = t1651 * t127;
2341 t1655 = 0.1e1 / t320;
2342 t1656 = t1655 * t136;
2343 t1659 = t20 * t318;
2344 t1661 = 0.1e1 / t110 / t1130;
2345 t1662 = t1661 * t324;
2346 t1671 = t34 * t760;
2347 t1672 = t133 * t133;
2348 t1675 = 0.1e1 / t109 / t1672 * t766;
2349 t1684 = t318 * t120;
2350 t1685 = t46 * t1684;
2351 t1686 = t1672 * t295;
2352 t1689 = 0.1e1 / t323 / t126;
2353 t1690 = 0.1e1 / t1686 * t1689;
2354 t1699 = t57 * t318;
2355 t1708 = t61 * t760;
2356 t1717 = t65 * t1684;
2357 t1720 = -0.18251851851851851852e0 * t140 * t1647 + 0.32331851851851851853e-2 * t330 * t1652 - 0.17294222222222222223e-4 * t774 * t1656 + 0.29127111111111111114e-7 * t1699 * t1662 - 0.39632592592592592592e-2 * t143 * t1652 + 0.60453925925925925928e-4 * t335 * t1656 - 0.29491200000000000001e-6 * t781 * t1662 + 0.46603377777777777781e-9 * t1708 * t1675 - 0.46080e-4 * t146 * t1656 + 0.65763555555555555559e-6 * t340 * t1662 - 0.30583466666666666669e-8 * t788 * t1675 + 0.46603377777777777783e-11 * t1717 * t1690;
2358 t1726 = t798 * t304;
2359 t1729 = t798 * tau[1];
2360 t1730 = t1729 * t134;
2361 t1733 = tau[1] * t730;
2362 t1736 = t153 * t355;
2363 t1739 = t157 * t168;
2364 t1742 = t158 * t363;
2365 t1745 = t164 * t823;
2366 t1748 = t166 * t166;
2367 t1749 = 0.1e1 / t1748;
2368 t1750 = t165 * t1749;
2369 t1773 = -0.400e3 / 0.9e1 * t1726 * t348 - 0.250e3 / 0.9e1 * t1730 * t161 + 0.440e3 / 0.27e2 * t1733 * t155 - 0.4250e4 / 0.9e1 * t1736 * t1730 - 0.6500e4 / 0.9e1 * t1739 * t1730 + 0.2500e4 / 0.3e1 * t1742 * t1730 + 0.6250e4 / 0.3e1 * t1745 * t1730 + 0.8750e4 / 0.9e1 * t1750 * t1730 + 0.800e3 / 0.9e1 * t812 * t1726 - 0.880e3 / 0.9e1 * t356 * t1733 - 0.10000e5 / 0.9e1 * t817 * t1726 + 0.2200e4 / 0.27e2 * t359 * t1733 - 0.2000e4 / 0.3e1 * t824 * t1726 + 0.2200e4 / 0.27e2 * t364 * t1733 + 0.2000e4 / 0.9e1 * t802 * t1726 + 0.440e3 / 0.27e2 * t349 * t1733 + 0.800e3 * t807 * t1726 - 0.880e3 / 0.9e1 * t352 * t1733;
2370 t1775 = -0.18251851851851851852e0 * t107 * t1647 + 0.32331851851851851853e-2 * t301 * t1652 - 0.17294222222222222223e-4 * t740 * t1656 + 0.29127111111111111114e-7 * t1659 * t1662 - 0.39632592592592592592e-2 * t121 * t1652 + 0.60453925925925925928e-4 * t310 * t1656 - 0.29491200000000000001e-6 * t749 * t1662 + 0.46603377777777777781e-9 * t1671 * t1675 - 0.46080e-4 * t132 * t1656 + 0.65763555555555555559e-6 * t319 * t1662 - 0.30583466666666666669e-8 * t761 * t1675 + 0.46603377777777777783e-11 * t1685 * t1690 + t1720 * t170 + 0.3e1 * t791 * t367 + 0.3e1 * t343 * t829 + t149 * t1773;
2371 t1777 = t8 * t106 * t1775;
2372 t1778 = 0.3e1 / 0.8e1 * t1777;
2373 t1779 = t831 * t290;
2374 t1781 = t8 * t272 * t1779;
2375 t1782 = 0.3e1 / 0.2e1 * t1781;
2376 t1783 = t369 * t723;
2377 t1785 = t8 * t272 * t1783;
2378 t1786 = 0.3e1 / 0.2e1 * t1785;
2379 t1787 = -t1640;
2380 t1788 = t99 * t1787;
2381 t1790 = t8 * t178 * t1788;
2382 t1791 = t1790 / 0.2e1;
2383 t1792 = t369 * t714;
2384 t1794 = t8 * t633 * t1792;
2385 t1795 = t1794 / 0.2e1;
2386 t1797 = t1443 / 0.4e1;
2387 t1799 = t703 * t285;
2388 t1800 = t99 * t1799;
2389 t1802 = t8 * t1392 * t1800;
2390 t1803 = t1802 / 0.9e1;
2391 t1804 = t285 * t709;
2392 t1806 = t655 * t656 * t1804;
2393 t1807 = t1806 / 0.2e1;
2394 t1808 = t714 * t290;
2395 t1809 = t172 * t1808;
2396 t1811 = t8 * t1412 * t1809;
2397 t1812 = t1811 / 0.9e1;
2398 t1813 = t290 * t723;
2399 t1815 = t678 * t679 * t1813;
2400 t1816 = t1815 / 0.2e1;
2401 t1817 = t1465 / 0.3e1;
2402 t1818 = t1477 / 0.3e1;
2403 t1823 = t1803 - t1807 + t1812 - t1816 + t1817 + t1818 - t1585 / 0.6e1 - t1588 / 0.2e1 - t1591 / 0.6e1 - t1594 - t1556 / 0.2e1;
2404 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2405 v3rho3[3] = t10 * (-t1644 - t1778 - t1782 - t1786 - t1791 - t1795 - 0.3e1 / 0.8e1 * t1551 + t1797 - t1362 - t1366 + t1823) - 0.9e1 / 0.8e1 * t833 - 0.3e1 * t722 - 0.3e1 / 0.2e1 * t726 - 0.3e1 / 0.2e1 * t712 - 0.3e1 / 0.4e1 * t698 + t1436 + t1439 - t685 - t706 / 0.2e1 - t717 / 0.2e1 - t662;
2406
2407 t1834 = t8 * t178 * t841;
2408 t1838 = t8 * t190 * t415 / 0.6e1;
2409 t1840 = t8 * t18 * t893;
2410 t1841 = t415 * t496;
2411 t1845 = t893 * t183;
2412 t1848 = t415 * t511;
2413 t1855 = t20 * t532;
2414 t1858 = t20 * t537;
2415 t1859 = t52 * t35;
2416 t1878 = t1237 * t22;
2417 t1880 = 0.1e1 / t1878 * t1254;
2418 t1886 = t57 * t532;
2419 t1889 = t57 * t537;
2420 t1910 = 0.39111111111111111112e-1 * t57 * t526 * t30 - 0.92444444444444444445e-3 * t1886 * t849 + 0.58026666666666666669e-5 * t1889 * t1859 - 0.10922666666666666667e-7 * t570 * t549 + 0.10808888888888888889e-2 * t403 * t533 - 0.19000888888888888889e-4 * t62 * t538 + 0.10240000000000000000e-6 * t234 * t549 - 0.17476266666666666668e-9 * t577 * t563 + 0.13824e-4 * t408 * t538 - 0.21640533333333333333e-6 * t66 * t549 + 0.10813440000000000000e-8 * t239 * t563 - 0.17476266666666666668e-11 * t584 * t1880;
2421 t1915 = 0.39111111111111111112e-1 * t20 * t526 * t30 - 0.92444444444444444445e-3 * t1855 * t849 + 0.58026666666666666669e-5 * t1858 * t1859 - 0.10922666666666666667e-7 * t536 * t549 + 0.10808888888888888889e-2 * t384 * t533 - 0.19000888888888888889e-4 * t36 * t538 + 0.10240000000000000000e-6 * t209 * t549 - 0.17476266666666666668e-9 * t545 * t563 + 0.13824e-4 * t389 * t538 - 0.21640533333333333333e-6 * t48 * t549 + 0.10813440000000000000e-8 * t218 * t563 - 0.17476266666666666668e-11 * t557 * t1880 + t1910 * t97 + 0.2e1 * t890 * t266 + t413 * t625;
2422 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2423 v3rho2sigma[0] = -0.4e1 / 0.3e1 * t1834 - t1838 - t1840 - t377 * t654 * t1841 / 0.6e1 - t377 * t840 * t1845 - t377 * t840 * t1848 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t1915;
2424
2425 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2426 v3rho2sigma[1] = 0.0e0;
2427
2428 t1920 = t8 * t272 * t900;
2429 t1924 = t8 * t278 * t456 / 0.6e1;
2430 t1925 = t456 * t634;
2431 t1929 = t456 * t643;
2432 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2433 v3rho2sigma[2] = -0.4e1 / 0.3e1 * t1920 - t1924 - t377 * t677 * t1925 / 0.6e1 - t377 * t899 * t1929 / 0.2e1;
2434
2435 t1935 = t17 * t2;
2436 t1936 = t1935 * t4;
2437 t1937 = t1936 * t905;
2438 t1939 = t494 * t415;
2439 t1940 = t1939 * t657;
2440 t1944 = t840 * t893 * t285;
2441 t1947 = t517 * t2;
2442 t1948 = t1947 * t4;
2443 t1950 = t840 * t415 * t9;
2444 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2445 v3rho2sigma[3] = -0.2e1 / 0.3e1 * t1834 - t1838 - t1840 / 0.2e1 - 0.2e1 / 0.3e1 * t1937 - t969 * t1940 / 0.6e1 - t377 * t1944 / 0.2e1 - t1948 * t1950 / 0.2e1;
2446
2447 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2448 v3rho2sigma[4] = 0.0e0;
2449
2450 t1954 = t1936 * t910;
2451 t1956 = t632 * t456;
2452 t1957 = t1956 * t680;
2453 t1961 = t899 * t456 * t9;
2454 t1964 = t1936 * t962;
2455 t1967 = t899 * t961 * t273;
2456 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2457 v3rho2sigma[5] = -0.2e1 / 0.3e1 * t1920 - t1924 - 0.2e1 / 0.3e1 * t1954 - t969 * t1957 / 0.6e1 + t1948 * t1961 / 0.2e1 - t1964 / 0.2e1 - t377 * t1967 / 0.2e1;
2458
2459 t1972 = t654 * t415 * t703;
2460 t1976 = t840 * t415 * t709;
2461 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2462 v3rho2sigma[6] = -0.4e1 / 0.3e1 * t1937 - t1838 - t377 * t1972 / 0.6e1 - t377 * t1976 / 0.2e1;
2463
2464 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2465 v3rho2sigma[7] = 0.0e0;
2466
2467 t1981 = t677 * t456 * t714;
2468 t1985 = t899 * t961 * t290;
2469 t1988 = t899 * t456 * t723;
2470 t1994 = t20 * t736;
2471 t1997 = t20 * t741;
2472 t1998 = t136 * t120;
2473 t2017 = t1672 * t108;
2474 t2019 = 0.1e1 / t2017 * t1689;
2475 t2025 = t57 * t736;
2476 t2028 = t57 * t741;
2477 t2049 = 0.39111111111111111112e-1 * t57 * t730 * t116 - 0.92444444444444444445e-3 * t2025 * t917 + 0.58026666666666666669e-5 * t2028 * t1998 - 0.10922666666666666667e-7 * t774 * t753 + 0.10808888888888888889e-2 * t444 * t737 - 0.19000888888888888889e-4 * t143 * t742 + 0.10240000000000000000e-6 * t335 * t753 - 0.17476266666666666668e-9 * t781 * t767 + 0.13824e-4 * t449 * t742 - 0.21640533333333333333e-6 * t146 * t753 + 0.10813440000000000000e-8 * t340 * t767 - 0.17476266666666666668e-11 * t788 * t2019;
2478 t2054 = 0.39111111111111111112e-1 * t20 * t730 * t116 - 0.92444444444444444445e-3 * t1994 * t917 + 0.58026666666666666669e-5 * t1997 * t1998 - 0.10922666666666666667e-7 * t740 * t753 + 0.10808888888888888889e-2 * t425 * t737 - 0.19000888888888888889e-4 * t121 * t742 + 0.10240000000000000000e-6 * t310 * t753 - 0.17476266666666666668e-9 * t749 * t767 + 0.13824e-4 * t430 * t742 - 0.21640533333333333333e-6 * t132 * t753 + 0.10813440000000000000e-8 * t319 * t767 - 0.17476266666666666668e-11 * t761 * t2019 + t2049 * t170 + 0.2e1 * t958 * t367 + t454 * t829;
2479 t2055 = t419 * t2054;
2480 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2481 v3rho2sigma[8] = -0.4e1 / 0.3e1 * t1954 - t1924 - t1964 - t377 * t1981 / 0.6e1 - t377 * t1985 - t377 * t1988 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2055;
2482
2483 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2484 v3rho2lapl[0] = 0.0e0;
2485
2486 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2487 v3rho2lapl[1] = 0.0e0;
2488
2489 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2490 v3rho2lapl[2] = 0.0e0;
2491
2492 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2493 v3rho2lapl[3] = 0.0e0;
2494
2495 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2496 v3rho2lapl[4] = 0.0e0;
2497
2498 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2499 v3rho2lapl[5] = 0.0e0;
2500
2501 t2058 = t5 * t840;
2502 t2059 = t17 * t69;
2503 t2061 = t2058 * t2059 * t971;
2504 t2065 = t8 * t190 * t471 / 0.6e1;
2505 t2067 = t8 * t18 * t975;
2506 t2069 = t8 * t18 * t1008;
2507 t2070 = t494 * t69;
2508 t2071 = t470 * t496;
2509 t2075 = t15 * t242;
2510 t2078 = t1007 * t183;
2511 t2081 = t470 * t511;
2512 t2085 = t587 * t470;
2513 t2089 = t242 * t1007;
2514 t2093 = 0.1e1 / t530;
2515 t2094 = t2093 * t594;
2516 t2117 = t40 * t247;
2517 t2120 = t2093 * t88;
2518 t2123 = t40 * tau[0];
2519 t2134 = -0.1750e4 / 0.3e1 * t1304 * t2094 - 0.200e3 / 0.9e1 * t263 * t196 + 0.850e3 / 0.3e1 * t1335 * t2094 - 0.40e2 / 0.9e1 * t248 * t196 + 0.1300e4 / 0.3e1 * t1291 * t2094 + 0.80e2 / 0.3e1 * t251 * t196 - 0.500e3 * t1296 * t2094 + 0.80e2 / 0.3e1 * t255 * t196 - 0.1250e4 * t1299 * t2094 - 0.200e3 / 0.9e1 * t258 * t196 - 0.40e2 / 0.9e1 * t196 * t82 + 0.20e2 * t2117 * tau[0] + 0.50e2 / 0.3e1 * t2120 * t594 - 0.40e2 * t608 * t2123 + 0.500e3 * t613 * t2123 + 0.300e3 * t620 * t2123 - 0.100e3 * t598 * t2123 - 0.360e3 * t603 * t2123;
2520 t2135 = t69 * t2134;
2521 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2522 v3rho2tau[0] = -0.4e1 / 0.3e1 * t2061 - t2065 - t2067 - t2069 - t969 * t2070 * t2071 / 0.6e1 - t969 * t2075 * t971 - t969 * t970 * t2078 - t969 * t970 * t2081 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t2085 - 0.3e1 / 0.4e1 * t377 * t378 * t2089 - 0.3e1 / 0.8e1 * t377 * t378 * t2135;
2523
2524 t2139 = t5 * t899;
2525 t2140 = t17 * t149;
2526 t2142 = t2139 * t2140 * t1015;
2527 t2146 = t8 * t278 * t486 / 0.6e1;
2528 t2147 = t632 * t149;
2529 t2148 = t485 * t634;
2530 t2152 = t485 * t643;
2531 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2532 v3rho2tau[1] = -0.4e1 / 0.3e1 * t2142 - t2146 - t969 * t2147 * t2148 / 0.6e1 - t969 * t1014 * t2152 / 0.2e1;
2533
2534 t2159 = t1935 * t968;
2535 t2160 = t2159 * t1020;
2536 t2162 = t1019 * t183;
2537 t2163 = t2070 * t2162;
2538 t2166 = t2075 * t1019;
2539 t2169 = t1007 * t285;
2540 t2170 = t970 * t2169;
2541 t2173 = t1947 * t968;
2542 t2174 = t470 * t9;
2543 t2175 = t970 * t2174;
2544 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2545 v3rho2tau[2] = -0.2e1 / 0.3e1 * t2061 - t2065 - t2067 / 0.2e1 - t2069 / 0.2e1 - 0.2e1 / 0.3e1 * t2160 - t969 * t2163 / 0.6e1 - t969 * t2166 / 0.2e1 - t969 * t2170 / 0.2e1 - t2173 * t2175 / 0.2e1;
2546
2547 t2179 = t2159 * t1025;
2548 t2181 = t1024 * t273;
2549 t2182 = t2147 * t2181;
2550 t2185 = t485 * t9;
2551 t2186 = t1014 * t2185;
2552 t2189 = t1936 * t1029;
2553 t2191 = t104 * t343;
2554 t2192 = t2191 * t1015;
2555 t2195 = t1936 * t1062;
2556 t2197 = t1060 * t273;
2557 t2198 = t1014 * t2197;
2558 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2559 v3rho2tau[3] = -0.2e1 / 0.3e1 * t2142 - t2146 - 0.2e1 / 0.3e1 * t2179 - t969 * t2182 / 0.6e1 + t2173 * t2186 / 0.2e1 - t2189 / 0.2e1 - t969 * t2192 / 0.2e1 - t2195 / 0.2e1 - t969 * t2198 / 0.2e1;
2560
2561 t2202 = t470 * t703;
2562 t2203 = t2070 * t2202;
2563 t2206 = t470 * t709;
2564 t2207 = t970 * t2206;
2565 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2566 v3rho2tau[4] = -0.4e1 / 0.3e1 * t2160 - t2065 - t969 * t2203 / 0.6e1 - t969 * t2207 / 0.2e1;
2567
2568 t2211 = t485 * t714;
2569 t2212 = t2147 * t2211;
2570 t2215 = t2191 * t1024;
2571 t2217 = t1060 * t290;
2572 t2218 = t1014 * t2217;
2573 t2220 = t485 * t723;
2574 t2221 = t1014 * t2220;
2575 t2225 = t419 * t791 * t485;
2576 t2229 = t419 * t343 * t1060;
2577 t2232 = t125 * tau[1];
2578 t2243 = 0.1e1 / t734;
2579 t2244 = t2243 * t798;
2580 t2267 = t125 * t348;
2581 t2270 = t2243 * t161;
2582 t2273 = -0.100e3 * t802 * t2232 - 0.360e3 * t807 * t2232 - 0.40e2 * t812 * t2232 + 0.500e3 * t817 * t2232 + 0.300e3 * t824 * t2232 - 0.500e3 * t1742 * t2244 + 0.80e2 / 0.3e1 * t356 * t297 - 0.1250e4 * t1745 * t2244 - 0.200e3 / 0.9e1 * t359 * t297 - 0.1750e4 / 0.3e1 * t1750 * t2244 - 0.200e3 / 0.9e1 * t364 * t297 + 0.850e3 / 0.3e1 * t1736 * t2244 - 0.40e2 / 0.9e1 * t349 * t297 + 0.1300e4 / 0.3e1 * t1739 * t2244 + 0.80e2 / 0.3e1 * t352 * t297 - 0.40e2 / 0.9e1 * t297 * t155 + 0.20e2 * t2267 * tau[1] + 0.50e2 / 0.3e1 * t2270 * t798;
2583 t2275 = t419 * t149 * t2273;
2584 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2585 v3rho2tau[5] = -0.4e1 / 0.3e1 * t2179 - t2146 - t2189 - t2195 - t969 * t2212 / 0.6e1 - t969 * t2215 - t969 * t2218 - t969 * t2221 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2225 - 0.3e1 / 0.4e1 * t377 * t2229 - 0.3e1 / 0.8e1 * t377 * t2275;
2586
2587 t2278 = t1936 * t1110;
2588 t2281 = t840 * t1109 * t183;
2589 t2286 = t20 * t211;
2590 t2287 = t52 * sigma[0];
2591 t2295 = t34 * t211;
2592 t2308 = t1237 * rho[0];
2593 t2310 = 0.1e1 / t2308 * t1254;
2594 t2315 = t57 * t211;
2595 t2323 = t61 * t211;
2596 t2338 = 0.17066666666666666667e-3 * t873 * t42 - 0.17066666666666666667e-5 * t2315 * t2287 + 0.40960000000000000001e-8 * t229 * t224 - 0.17066666666666666667e-3 * t61 * t203 * t42 + 0.47786666666666666667e-5 * t2323 * t2287 - 0.32768000000000000001e-7 * t62 * t224 + 0.65536000000000000002e-10 * t234 * t867 - 0.3072e-5 * t1100 * t212 + 0.61440000000000000000e-7 * t408 * t224 - 0.36044800000000000001e-9 * t66 * t867 + 0.65536000000000000002e-12 * t239 * t2310;
2597 t2341 = 0.17066666666666666667e-3 * t848 * t42 - 0.17066666666666666667e-5 * t2286 * t2287 + 0.40960000000000000001e-8 * t200 * t224 - 0.17066666666666666667e-3 * t34 * t203 * t42 + 0.47786666666666666667e-5 * t2295 * t2287 - 0.32768000000000000001e-7 * t36 * t224 + 0.65536000000000000002e-10 * t209 * t867 - 0.3072e-5 * t1077 * t212 + 0.61440000000000000000e-7 * t389 * t224 - 0.36044800000000000001e-9 * t48 * t867 + 0.65536000000000000002e-12 * t218 * t2310 + t2338 * t97 + t1107 * t266;
2598 t2342 = t378 * t2341;
2599 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2600 v3rhosigma2[0] = -t2278 / 0.2e1 - t377 * t2281 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2342;
2601
2602 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2603 v3rhosigma2[1] = 0.0e0;
2604
2605 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2606 v3rhosigma2[2] = 0.0e0;
2607
2608 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2609 v3rhosigma2[3] = 0.0e0;
2610
2611 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2612 v3rhosigma2[4] = 0.0e0;
2613
2614 t2345 = t1936 * t1158;
2615 t2347 = t899 * t1157 * t273;
2616 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2617 v3rhosigma2[5] = -t377 * t2347 / 0.2e1 - t2345 / 0.2e1;
2618
2619 t2351 = t840 * t1109 * t285;
2620 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2621 v3rhosigma2[6] = -t377 * t2351 / 0.2e1 - t2278 / 0.2e1;
2622
2623 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2624 v3rhosigma2[7] = 0.0e0;
2625
2626 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2627 v3rhosigma2[8] = 0.0e0;
2628
2629 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2630 v3rhosigma2[9] = 0.0e0;
2631
2632 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2633 v3rhosigma2[10] = 0.0e0;
2634
2635 t2356 = t899 * t1157 * t290;
2636 t2361 = t20 * t312;
2637 t2362 = t136 * sigma[2];
2638 t2370 = t34 * t312;
2639 t2383 = t1672 * rho[1];
2640 t2385 = 0.1e1 / t2383 * t1689;
2641 t2390 = t57 * t312;
2642 t2398 = t61 * t312;
2643 t2413 = 0.17066666666666666667e-3 * t941 * t127 - 0.17066666666666666667e-5 * t2390 * t2362 + 0.40960000000000000001e-8 * t330 * t325 - 0.17066666666666666667e-3 * t61 * t304 * t127 + 0.47786666666666666667e-5 * t2398 * t2362 - 0.32768000000000000001e-7 * t143 * t325 + 0.65536000000000000002e-10 * t335 * t935 - 0.3072e-5 * t1148 * t313 + 0.61440000000000000000e-7 * t449 * t325 - 0.36044800000000000001e-9 * t146 * t935 + 0.65536000000000000002e-12 * t340 * t2385;
2644 t2416 = 0.17066666666666666667e-3 * t916 * t127 - 0.17066666666666666667e-5 * t2361 * t2362 + 0.40960000000000000001e-8 * t301 * t325 - 0.17066666666666666667e-3 * t34 * t304 * t127 + 0.47786666666666666667e-5 * t2370 * t2362 - 0.32768000000000000001e-7 * t121 * t325 + 0.65536000000000000002e-10 * t310 * t935 - 0.3072e-5 * t1125 * t313 + 0.61440000000000000000e-7 * t430 * t325 - 0.36044800000000000001e-9 * t132 * t935 + 0.65536000000000000002e-12 * t319 * t2385 + t2413 * t170 + t1155 * t367;
2645 t2417 = t419 * t2416;
2646 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2647 v3rhosigma2[11] = -t2345 / 0.2e1 - t377 * t2356 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2417;
2648
2649 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2650 v3rhosigmalapl[0] = 0.0e0;
2651
2652 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2653 v3rhosigmalapl[1] = 0.0e0;
2654
2655 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2656 v3rhosigmalapl[2] = 0.0e0;
2657
2658 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2659 v3rhosigmalapl[3] = 0.0e0;
2660
2661 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2662 v3rhosigmalapl[4] = 0.0e0;
2663
2664 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2665 v3rhosigmalapl[5] = 0.0e0;
2666
2667 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2668 v3rhosigmalapl[6] = 0.0e0;
2669
2670 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2671 v3rhosigmalapl[7] = 0.0e0;
2672
2673 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2674 v3rhosigmalapl[8] = 0.0e0;
2675
2676 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2677 v3rhosigmalapl[9] = 0.0e0;
2678
2679 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2680 v3rhosigmalapl[10] = 0.0e0;
2681
2682 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2683 v3rhosigmalapl[11] = 0.0e0;
2684
2685 t2420 = t1936 * t1162;
2686 t2422 = t15 * t413;
2687 t2423 = t2422 * t971;
2688 t2427 = t378 * t890 * t470;
2689 t2431 = t378 * t413 * t1007;
2690 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2691 v3rhosigmatau[0] = -t2420 / 0.2e1 - t969 * t2423 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2427 - 0.3e1 / 0.8e1 * t377 * t2431;
2692
2693 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2694 v3rhosigmatau[1] = 0.0e0;
2695
2696 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2697 v3rhosigmatau[2] = 0.0e0;
2698
2699 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2700 v3rhosigmatau[3] = 0.0e0;
2701
2702 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2703 v3rhosigmatau[4] = 0.0e0;
2704
2705 t2434 = t1936 * t1166;
2706 t2435 = t104 * t454;
2707 t2436 = t2435 * t1015;
2708 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2709 v3rhosigmatau[5] = -t969 * t2436 / 0.2e1 - t2434 / 0.2e1;
2710
2711 t2439 = t2422 * t1019;
2712 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2713 v3rhosigmatau[6] = -t969 * t2439 / 0.2e1 - t2420 / 0.2e1;
2714
2715 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2716 v3rhosigmatau[7] = 0.0e0;
2717
2718 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2719 v3rhosigmatau[8] = 0.0e0;
2720
2721 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2722 v3rhosigmatau[9] = 0.0e0;
2723
2724 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2725 v3rhosigmatau[10] = 0.0e0;
2726
2727 t2443 = t2435 * t1024;
2728 t2447 = t419 * t958 * t485;
2729 t2451 = t419 * t454 * t1060;
2730 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2731 v3rhosigmatau[11] = -t2434 / 0.2e1 - t969 * t2443 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2447 - 0.3e1 / 0.8e1 * t377 * t2451;
2732
2733 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2734 v3rholapl2[0] = 0.0e0;
2735
2736 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2737 v3rholapl2[1] = 0.0e0;
2738
2739 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2740 v3rholapl2[2] = 0.0e0;
2741
2742 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2743 v3rholapl2[3] = 0.0e0;
2744
2745 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2746 v3rholapl2[4] = 0.0e0;
2747
2748 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2749 v3rholapl2[5] = 0.0e0;
2750
2751 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2752 v3rholapltau[0] = 0.0e0;
2753
2754 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2755 v3rholapltau[1] = 0.0e0;
2756
2757 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2758 v3rholapltau[2] = 0.0e0;
2759
2760 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2761 v3rholapltau[3] = 0.0e0;
2762
2763 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2764 v3rholapltau[4] = 0.0e0;
2765
2766 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2767 v3rholapltau[5] = 0.0e0;
2768
2769 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2770 v3rholapltau[6] = 0.0e0;
2771
2772 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2773 v3rholapltau[7] = 0.0e0;
2774
2775 t2454 = t1936 * t1185;
2776 t2456 = t1183 * t183;
2777 t2457 = t970 * t2456;
2778 t2461 = t378 * t242 * t1183;
2779 t2465 = 0.1e1 / t201;
2780 t2466 = t2465 * t88;
2781 t2469 = t2465 * tau[0];
2782 t2490 = -0.20e2 / 0.3e1 * t983 - 0.10e2 * t2466 * tau[0] - 0.170e3 * t1335 * t2469 + 0.100e3 / 0.3e1 * t598 * t982 - 0.260e3 * t1291 * t2469 + 0.120e3 * t603 * t982 + 0.300e3 * t1296 * t2469 + 0.40e2 / 0.3e1 * t608 * t982 + 0.750e3 * t1299 * t2469 - 0.500e3 / 0.3e1 * t613 * t982 + 0.350e3 * t1304 * t2469 - 0.100e3 * t620 * t982;
2783 t2492 = t378 * t69 * t2490;
2784 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2785 v3rhotau2[0] = -t2454 / 0.2e1 - t969 * t2457 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2461 - 0.3e1 / 0.8e1 * t377 * t2492;
2786
2787 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2788 v3rhotau2[1] = 0.0e0;
2789
2790 t2495 = t1936 * t1204;
2791 t2496 = t1202 * t273;
2792 t2497 = t1014 * t2496;
2793 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2794 v3rhotau2[2] = -t969 * t2497 / 0.2e1 - t2495 / 0.2e1;
2795
2796 t2500 = t1183 * t285;
2797 t2501 = t970 * t2500;
2798 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2799 v3rhotau2[3] = -t969 * t2501 / 0.2e1 - t2454 / 0.2e1;
2800
2801 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2802 v3rhotau2[4] = 0.0e0;
2803
2804 t2505 = t1202 * t290;
2805 t2506 = t1014 * t2505;
2806 t2510 = t419 * t343 * t1202;
2807 t2514 = 0.1e1 / t302;
2808 t2515 = t2514 * t161;
2809 t2518 = t2514 * tau[1];
2810 t2539 = -0.20e2 / 0.3e1 * t1036 - 0.10e2 * t2515 * tau[1] - 0.170e3 * t1736 * t2518 + 0.100e3 / 0.3e1 * t802 * t1035 - 0.260e3 * t1739 * t2518 + 0.120e3 * t807 * t1035 + 0.300e3 * t1742 * t2518 + 0.40e2 / 0.3e1 * t812 * t1035 + 0.750e3 * t1745 * t2518 - 0.500e3 / 0.3e1 * t817 * t1035 + 0.350e3 * t1750 * t2518 - 0.100e3 * t824 * t1035;
2811 t2541 = t419 * t149 * t2539;
2812 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2813 v3rhotau2[5] = -t2495 / 0.2e1 - t969 * t2506 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t2510 - 0.3e1 / 0.8e1 * t377 * t2541;
2814
2815 t2564 = 0.1e1 / t1237 * t1254;
2816 t2588 = 0.384e-6 * t57 * t50 * t52 - 0.1536e-8 * t58 * t395 - 0.768e-6 * t61 * t50 * t52 + 0.9216e-8 * t403 * t395 - 0.24576e-10 * t62 * t1085 + 0.384e-6 * t65 * t50 * t52 - 0.13824e-7 * t1100 * t395 + 0.110592e-9 * t408 * t1085 - 0.245760e-12 * t66 * t2564;
2817 t2590 = 0.384e-6 * t20 * t50 * t52 - 0.1536e-8 * t21 * t395 - 0.768e-6 * t34 * t50 * t52 + 0.9216e-8 * t384 * t395 - 0.24576e-10 * t36 * t1085 + 0.384e-6 * t46 * t50 * t52 - 0.13824e-7 * t1077 * t395 + 0.110592e-9 * t389 * t1085 - 0.245760e-12 * t48 * t2564 + t2588 * t97;
2818 t2591 = t378 * t2590;
2819 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2820 v3sigma3[0] = -0.3e1 / 0.8e1 * t377 * t2591;
2821
2822 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2823 v3sigma3[1] = 0.0e0;
2824
2825 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2826 v3sigma3[2] = 0.0e0;
2827
2828 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2829 v3sigma3[3] = 0.0e0;
2830
2831 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2832 v3sigma3[4] = 0.0e0;
2833
2834 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2835 v3sigma3[5] = 0.0e0;
2836
2837 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2838 v3sigma3[6] = 0.0e0;
2839
2840 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2841 v3sigma3[7] = 0.0e0;
2842
2843 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2844 v3sigma3[8] = 0.0e0;
2845
2846 t2614 = 0.1e1 / t1672 * t1689;
2847 t2638 = 0.384e-6 * t57 * t134 * t136 - 0.1536e-8 * t140 * t436 - 0.768e-6 * t61 * t134 * t136 + 0.9216e-8 * t444 * t436 - 0.24576e-10 * t143 * t1133 + 0.384e-6 * t65 * t134 * t136 - 0.13824e-7 * t1148 * t436 + 0.110592e-9 * t449 * t1133 - 0.245760e-12 * t146 * t2614;
2848 t2640 = 0.384e-6 * t20 * t134 * t136 - 0.1536e-8 * t107 * t436 - 0.768e-6 * t34 * t134 * t136 + 0.9216e-8 * t425 * t436 - 0.24576e-10 * t121 * t1133 + 0.384e-6 * t46 * t134 * t136 - 0.13824e-7 * t1125 * t436 + 0.110592e-9 * t430 * t1133 - 0.245760e-12 * t132 * t2614 + t2638 * t170;
2849 t2641 = t419 * t2640;
2850 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2851 v3sigma3[9] = -0.3e1 / 0.8e1 * t377 * t2641;
2852
2853 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2854 v3sigma2lapl[0] = 0.0e0;
2855
2856 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2857 v3sigma2lapl[1] = 0.0e0;
2858
2859 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2860 v3sigma2lapl[2] = 0.0e0;
2861
2862 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2863 v3sigma2lapl[3] = 0.0e0;
2864
2865 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2866 v3sigma2lapl[4] = 0.0e0;
2867
2868 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2869 v3sigma2lapl[5] = 0.0e0;
2870
2871 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2872 v3sigma2lapl[6] = 0.0e0;
2873
2874 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2875 v3sigma2lapl[7] = 0.0e0;
2876
2877 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2878 v3sigma2lapl[8] = 0.0e0;
2879
2880 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2881 v3sigma2lapl[9] = 0.0e0;
2882
2883 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2884 v3sigma2lapl[10] = 0.0e0;
2885
2886 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2887 v3sigma2lapl[11] = 0.0e0;
2888
2889 t2645 = t378 * t1107 * t470;
2890 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2891 v3sigma2tau[0] = -0.3e1 / 0.8e1 * t377 * t2645;
2892
2893 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2894 v3sigma2tau[1] = 0.0e0;
2895
2896 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2897 v3sigma2tau[2] = 0.0e0;
2898
2899 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2900 v3sigma2tau[3] = 0.0e0;
2901
2902 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2903 v3sigma2tau[4] = 0.0e0;
2904
2905 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2906 v3sigma2tau[5] = 0.0e0;
2907
2908 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2909 v3sigma2tau[6] = 0.0e0;
2910
2911 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2912 v3sigma2tau[7] = 0.0e0;
2913
2914 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2915 v3sigma2tau[8] = 0.0e0;
2916
2917 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2918 v3sigma2tau[9] = 0.0e0;
2919
2920 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2921 v3sigma2tau[10] = 0.0e0;
2922
2923 t2649 = t419 * t1155 * t485;
2924 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2925 v3sigma2tau[11] = -0.3e1 / 0.8e1 * t377 * t2649;
2926
2927 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2928 v3sigmalapl2[0] = 0.0e0;
2929
2930 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2931 v3sigmalapl2[1] = 0.0e0;
2932
2933 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2934 v3sigmalapl2[2] = 0.0e0;
2935
2936 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2937 v3sigmalapl2[3] = 0.0e0;
2938
2939 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2940 v3sigmalapl2[4] = 0.0e0;
2941
2942 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2943 v3sigmalapl2[5] = 0.0e0;
2944
2945 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2946 v3sigmalapl2[6] = 0.0e0;
2947
2948 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2949 v3sigmalapl2[7] = 0.0e0;
2950
2951 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2952 v3sigmalapl2[8] = 0.0e0;
2953
2954 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2955 v3sigmalapltau[0] = 0.0e0;
2956
2957 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2958 v3sigmalapltau[1] = 0.0e0;
2959
2960 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2961 v3sigmalapltau[2] = 0.0e0;
2962
2963 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2964 v3sigmalapltau[3] = 0.0e0;
2965
2966 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2967 v3sigmalapltau[4] = 0.0e0;
2968
2969 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2970 v3sigmalapltau[5] = 0.0e0;
2971
2972 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2973 v3sigmalapltau[6] = 0.0e0;
2974
2975 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2976 v3sigmalapltau[7] = 0.0e0;
2977
2978 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2979 v3sigmalapltau[8] = 0.0e0;
2980
2981 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2982 v3sigmalapltau[9] = 0.0e0;
2983
2984 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2985 v3sigmalapltau[10] = 0.0e0;
2986
2987 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2988 v3sigmalapltau[11] = 0.0e0;
2989
2990 t2653 = t378 * t413 * t1183;
2991 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2992 v3sigmatau2[0] = -0.3e1 / 0.8e1 * t377 * t2653;
2993
2994 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2995 v3sigmatau2[1] = 0.0e0;
2996
2997 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2998 v3sigmatau2[2] = 0.0e0;
2999
3000 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3001 v3sigmatau2[3] = 0.0e0;
3002
3003 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3004 v3sigmatau2[4] = 0.0e0;
3005
3006 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3007 v3sigmatau2[5] = 0.0e0;
3008
3009 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3010 v3sigmatau2[6] = 0.0e0;
3011
3012 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3013 v3sigmatau2[7] = 0.0e0;
3014
3015 t2657 = t419 * t454 * t1202;
3016 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3017 v3sigmatau2[8] = -0.3e1 / 0.8e1 * t377 * t2657;
3018
3019 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3020 v3lapl3[0] = 0.0e0;
3021
3022 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3023 v3lapl3[1] = 0.0e0;
3024
3025 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3026 v3lapl3[2] = 0.0e0;
3027
3028 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3029 v3lapl3[3] = 0.0e0;
3030
3031 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3032 v3lapl2tau[0] = 0.0e0;
3033
3034 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3035 v3lapl2tau[1] = 0.0e0;
3036
3037 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3038 v3lapl2tau[2] = 0.0e0;
3039
3040 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3041 v3lapl2tau[3] = 0.0e0;
3042
3043 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3044 v3lapl2tau[4] = 0.0e0;
3045
3046 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3047 v3lapl2tau[5] = 0.0e0;
3048
3049 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3050 v3lapltau2[0] = 0.0e0;
3051
3052 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3053 v3lapltau2[1] = 0.0e0;
3054
3055 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3056 v3lapltau2[2] = 0.0e0;
3057
3058 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3059 v3lapltau2[3] = 0.0e0;
3060
3061 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3062 v3lapltau2[4] = 0.0e0;
3063
3064 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
3065 v3lapltau2[5] = 0.0e0;
3066
3067 t2660 = 0.1e1 / t38;
3068 t2673 = 0.156e3 * t1291 * t2660 - 0.180e3 * t1296 * t2660 - 0.450e3 * t1299 * t2660 - 0.210e3 * t1304 * t2660 + 0.102e3 * t1335 * t2660 + 0.6e1 * t2660 * t88;
3069 t2675 = t378 * t69 * t2673;
3070 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3071 v3tau3[0] = -0.3e1 / 0.8e1 * t377 * t2675;
3072
3073 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3074 v3tau3[1] = 0.0e0;
3075
3076 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3077 v3tau3[2] = 0.0e0;
3078
3079 t2678 = 0.1e1 / t123;
3080 t2691 = 0.6e1 * t2678 * t161 + 0.102e3 * t1736 * t2678 + 0.156e3 * t1739 * t2678 - 0.180e3 * t1742 * t2678 - 0.450e3 * t1745 * t2678 - 0.210e3 * t1750 * t2678;
3081 t2693 = t419 * t149 * t2691;
3082 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
3083 v3tau3[3] = -0.3e1 / 0.8e1 * t377 * t2693;
3084
3085 #ifndef XC_DONT_COMPILE_LXC
3086
3087 if(order < 4) return;
3088
3089
3090 t2701 = t8 * t1406 * t505;
3091 t2708 = t8 * t501 * t1386;
3092 t2710 = t103 * t103;
3093 t2712 = 0.1e1 / t631 / t2710;
3094 t2713 = t2712 * t17;
3095 t2714 = t634 * t634;
3096 t2719 = t1411 * t189;
3097 t2721 = t8 * t2719 * t1414;
3098 t2723 = t632 * t517;
3099 t2725 = t8 * t2723 * t635;
3100 t2727 = t643 * t643;
3101 t2733 = t8 * t1406 * t512;
3102 t2735 = t14 * t14;
3103 t2737 = 0.1e1 / t493 / t2735;
3104 t2738 = t2737 * t17;
3105 t2739 = t496 * t496;
3106 t2744 = t1391 * t189;
3107 t2746 = t8 * t2744 * t1394;
3108 t2748 = t494 * t517;
3109 t2750 = t8 * t2748 * t497;
3110 t2752 = t511 * t511;
3111 t2758 = t8 * t501 * t1367;
3112 t2761 = t8 * t501 * t1372;
3113 t2768 = t8 * t1398 * t1376;
3114 t2771 = t8 * t1426 * t644;
3115 t2777 = -0.3e1 * t8 * t178 * t627 * t511 + 0.4e1 / 0.3e1 * t2701 - 0.2e1 * t8 * t178 * t1340 * t183 - 0.2e1 * t2708 - 0.5e1 / 0.27e2 * t8 * t2713 * t172 * t2714 + 0.4e1 / 0.27e2 * t2721 + 0.2e1 / 0.9e1 * t2725 - t8 * t633 * t172 * t2727 / 0.2e1 + 0.2e1 / 0.3e1 * t2733 - 0.5e1 / 0.27e2 * t8 * t2738 * t99 * t2739 + 0.4e1 / 0.27e2 * t2746 + 0.2e1 / 0.9e1 * t2750 - t8 * t495 * t99 * t2752 / 0.2e1 - 0.2e1 * t2758 - 0.2e1 / 0.3e1 * t2761 + 0.4e1 / 0.9e1 * t8 * t1392 * t268 * t1393 - 0.2e1 / 0.3e1 * t2768 + 0.2e1 / 0.3e1 * t2771 - 0.2e1 * t8 * t178 * t268 * t1371;
3116 t2778 = t1350 * t10;
3117 t2780 = t9 / t2778;
3118 t2782 = -0.12e2 * t1351 + 0.12e2 * t2780;
3119 t2791 = t8 * t639 * t1355;
3120 t2799 = t8 * t687 * t274;
3121 t2802 = t8 * t670 * t184;
3122 t2816 = t678 * t1522 * t1422;
3123 t2827 = t655 * t1507 * t1402;
3124 t2830 = t8 * t1363 * t268;
3125 t2833 = t8 * t518 * t627;
3126 t2837 = tau[0] * t1211;
3127 t2840 = t594 * t532;
3128 t2855 = t1292 * t211;
3129 t2864 = -0.30800e5 / 0.81e2 * t258 * t2837 + 0.136000e6 / 0.27e2 * t620 * t2840 - 0.30800e5 / 0.81e2 * t263 * t2837 - 0.136000e6 / 0.81e2 * t598 * t2840 - 0.6160e4 / 0.81e2 * t248 * t2837 - 0.54400e5 / 0.9e1 * t603 * t2840 + 0.12320e5 / 0.27e2 * t251 * t2837 + 0.12320e5 / 0.27e2 * t255 * t2837 + 0.104000e6 / 0.9e1 * t1291 * t2855 - 0.40000e5 / 0.3e1 * t1296 * t2855 - 0.100000e6 / 0.3e1 * t1299 * t2855 - 0.140000e6 / 0.9e1 * t1304 * t2855;
3130 t2867 = t80 * t95;
3131 t2868 = t594 * t594;
3132 t2869 = t2868 * t394;
3133 t2872 = t84 * t262;
3134 t2875 = t85 * t619;
3135 t2878 = t91 * t1303;
3136 t2883 = t92 / t1302 / t81;
3137 t2898 = -0.6160e4 / 0.81e2 * t2837 * t82 - 0.50000e5 / 0.9e1 * t2867 * t2869 - 0.50000e5 / 0.27e2 * t2872 * t2869 + 0.200000e6 / 0.9e1 * t2875 * t2869 + 0.875000e6 / 0.27e2 * t2878 * t2869 + 0.350000e6 / 0.27e2 * t2883 * t2869 - 0.54400e5 / 0.81e2 * t608 * t2840 + 0.680000e6 / 0.81e2 * t613 * t2840 + 0.68000e5 / 0.9e1 * t1335 * t2855 + 0.4000e4 / 0.9e1 * t2855 * t88 + 0.27200e5 / 0.81e2 * t2840 * t247 - 0.25000e5 / 0.27e2 * t2869 * t254;
3138 t2906 = 0.1e1 / t24 / t201;
3139 t2907 = t2906 * t30;
3140 t2912 = 0.1e1 / t23 / t210 * t42;
3141 t2916 = 0.1e1 / t546 * t52;
3142 t2921 = 0.1e1 / t24 / t864 * t223;
3143 t2927 = 0.1e1 / t23 / t2308 * t562;
3144 t2939 = t1237 * t37;
3145 t2941 = 0.1e1 / t2939 * t1254;
3146 t2952 = t217 * t47;
3147 t2958 = 0.1e1 / t222 / t51;
3148 t2959 = 0.1e1 / t24 / t1237 / t201 * t2958;
3149 t2962 = 0.10342716049382716049e1 * t58 * t2907 - 0.28890074074074074075e-1 * t229 * t2912 + 0.25921106172839506174e-3 * t570 * t2916 - 0.95148562962962962971e-6 * t1264 * t2921 + 0.12427567407407407409e-8 * t57 * t556 * t2927 + 0.33027160493827160493e-1 * t62 * t2912 - 0.74954271604938271608e-3 * t234 * t2916 + 0.59649896296296296299e-5 * t577 * t2921 - 0.20194797037037037038e-7 * t1273 * t2927 + 0.24855134814814814817e-10 * t61 * t1249 * t2941 + 0.506880e-3 * t66 * t2916 - 0.10462245925925925926e-4 * t239 * t2921 + 0.78012112592592592598e-7 * t584 * t2927 - 0.25165824000000000003e-9 * t1282 * t2941 + 0.29826161777777777782e-12 * t65 * t2952 * t2959;
3150 t2997 = 0.4e1 * t242 * t1338 + t69 * (t2864 + t2898) + 0.6e1 * t587 * t625 + 0.4e1 * t1285 * t266 + t2962 * t97 + 0.506880e-3 * t48 * t2916 + 0.10342716049382716049e1 * t21 * t2907 + 0.33027160493827160493e-1 * t36 * t2912 - 0.20194797037037037038e-7 * t1236 * t2927 + 0.24855134814814814817e-10 * t34 * t1249 * t2941 - 0.10462245925925925926e-4 * t218 * t2921 + 0.78012112592592592598e-7 * t557 * t2927 - 0.25165824000000000003e-9 * t1250 * t2941 + 0.29826161777777777782e-12 * t46 * t2952 * t2959 - 0.28890074074074074075e-1 * t200 * t2912 + 0.25921106172839506174e-3 * t536 * t2916 - 0.95148562962962962971e-6 * t1224 * t2921 + 0.12427567407407407409e-8 * t20 * t556 * t2927 - 0.74954271604938271608e-3 * t209 * t2916 + 0.59649896296296296299e-5 * t545 * t2921;
3151 t3002 = t8 * t190 * t1340;
3152 t3007 = 0.10e2 / 0.27e2 * t8 * t105 * t1468 * t172;
3153 t3011 = 0.10e2 / 0.27e2 * t8 * t16 * t1468 * t99;
3154 t3012 = -t8 * t178 * t99 * t2782 / 0.2e1 - t8 * t495 * t627 * t496 - 0.2e1 / 0.3e1 * t2791 + t8 * t272 * t172 * t2782 / 0.2e1 - 0.20e2 / 0.27e2 * t2799 - 0.20e2 / 0.27e2 * t2802 + 0.2e1 / 0.3e1 * t1527 * t656 * t496 * t511 - 0.2e1 * t655 * t1532 * t1402 - 0.2e1 / 0.3e1 * t655 * t656 * t1371 * t183 - 0.2e1 / 0.3e1 * t2816 - 0.2e1 / 0.3e1 * t678 * t679 * t1354 * t273 + 0.2e1 / 0.3e1 * t1517 * t679 * t634 * t643 - 0.2e1 / 0.3e1 * t2827 - 0.5e1 / 0.9e1 * t2830 + t2833 / 0.2e1 - 0.3e1 / 0.8e1 * t8 * t18 * t2997 - t3002 / 0.2e1 + t3007 + t3011;
3155 t3019 = 0.5e1 / 0.9e1 * t1361;
3156 t3020 = 0.5e1 / 0.9e1 * t1365;
3157 t3024 = t10 * (t2777 + t3012) - 0.3e1 / 0.2e1 * t1208 - 0.3e1 / 0.2e1 * t1342 + t1345 - 0.2e1 * t1348 - 0.2e1 * t1357 - t3019 - t3020 - 0.6e1 * t1369 - 0.2e1 * t1374 - 0.2e1 * t1378;
3158 t3036 = -0.4e1 * t1382 - 0.2e1 * t1384 - 0.6e1 * t1388 + 0.4e1 / 0.9e1 * t1396 - 0.2e1 / 0.3e1 * t1400 - 0.2e1 * t1404 + 0.4e1 / 0.3e1 * t1408 + 0.4e1 / 0.9e1 * t1416 - 0.2e1 / 0.3e1 * t1420 - 0.2e1 * t1424 + 0.4e1 / 0.3e1 * t1428;
3159 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3160 v4rho4[0] = t3024 + t3036;
3161
3162 t3043 = t1797 + 0.3e1 / 0.2e1 * t1446 - 0.3e1 / 0.2e1 * t1449 - 0.3e1 / 0.4e1 * t1208 - t1343 + 0.3e1 / 0.4e1 * t1345 - t3019 - t3020 - 0.3e1 / 0.2e1 * t1455 - 0.3e1 / 0.2e1 * t1459 - t1462;
3163 t3047 = t1817 + 0.7e1 / 0.2e1 * t1471 - 0.3e1 * t1475 + t1818 - t1481 / 0.2e1 - t1484 - t1348 - t1358 - t1370 - t1375 - t1379;
3164 t3054 = -0.2e1 * t1382 - t1384 - t1389 + t1397 - t1400 / 0.3e1 + t1408 + t1417 - t1420 / 0.3e1 + t1428 - 0.7e1 / 0.2e1 * t1496 - t1500 / 0.2e1;
3165 t3055 = t1509 / 0.3e1;
3166 t3057 = t1524 / 0.3e1;
3167 t3061 = t5 * t7 * t2712;
3168 t3067 = t1517 * t1522 * t1518;
3169 t3071 = t678 * t517 * t172 * t680;
3170 t3072 = t3071 / 0.9e1;
3171 t3074 = t5 * t7 * t2737;
3172 t3080 = t1527 * t1507 * t1528;
3173 t3084 = t655 * t517 * t99 * t657;
3174 t3085 = t3084 / 0.9e1;
3175 t3086 = t1468 * t99;
3176 t3088 = t655 * t3086 * t1512;
3177 t3103 = t8 * t1418 * t1479;
3178 t3106 = t8 * t687 * t291;
3179 t3109 = t8 * t670 * t286;
3180 t3112 = 0.1e1 / t188 / t1350;
3181 t3115 = t8 * t15 * t3112 * t671;
3182 t3119 = t8 * t104 * t3112 * t688;
3183 t3122 = t8 * t639 * t1453;
3184 t3124 = -0.5e1 / 0.27e2 * t3061 * t679 * t290 * t1413 + t3067 / 0.9e1 + t3072 - 0.5e1 / 0.27e2 * t3074 * t656 * t285 * t1393 + t3080 / 0.9e1 + t3085 + 0.7e1 / 0.6e1 * t3088 + t1527 * t1511 * t9 * t496 / 0.3e1 - t8 * t178 * t1340 * t285 / 0.2e1 + t8 * t1412 * t369 * t1413 / 0.9e1 - t3103 / 0.6e1 - 0.5e1 / 0.27e2 * t3106 - 0.5e1 / 0.27e2 * t3109 - 0.25e2 / 0.6e1 * t3115 + 0.25e2 / 0.6e1 * t3119 - t3122 / 0.2e1;
3185 t3126 = t8 * t501 * t1457;
3186 t3133 = t8 * t1406 * t664;
3187 t3134 = t3133 / 0.3e1;
3188 t3136 = t8 * t1469 * t1473;
3189 t3141 = t8 * t1426 * t693;
3190 t3142 = t3141 / 0.3e1;
3191 t3143 = t632 * t669;
3192 t3151 = t494 * t669;
3193 t3161 = -t3126 / 0.2e1 - 0.3e1 / 0.2e1 * t8 * t670 * t627 * t9 + t3134 + 0.7e1 / 0.2e1 * t3136 + 0.2e1 / 0.3e1 * t2701 - t2708 / 0.2e1 + t3142 + t8 * t3143 * t274 / 0.2e1 - t8 * t272 * t369 * t1354 / 0.2e1 - t8 * t3151 * t184 / 0.2e1 + t2721 / 0.27e2 + t2725 / 0.9e1 + t2733 / 0.3e1 + t2746 / 0.27e2 + t2750 / 0.9e1 - t2758 / 0.2e1;
3194 t3169 = t1468 * t172;
3195 t3171 = t678 * t3169 * t1503;
3196 t3182 = t655 * t189 * t268 * t657;
3197 t3200 = t655 * t1507 * t1536;
3198 t3202 = t669 * t268;
3199 t3205 = -t2761 / 0.6e1 - t2768 / 0.6e1 + t2771 / 0.3e1 - t2791 / 0.6e1 - 0.5e1 / 0.9e1 * t2799 - 0.5e1 / 0.9e1 * t2802 - 0.7e1 / 0.6e1 * t3171 - t678 * t1611 * t1422 / 0.2e1 - t655 * t17 * t627 * t657 / 0.2e1 - t3182 / 0.3e1 - t678 * t679 * t290 * t1354 / 0.6e1 + t678 * t1502 * t9 * t643 / 0.2e1 - t655 * t1532 * t1536 / 0.2e1 - t655 * t656 * t285 * t1371 / 0.6e1 - t3200 / 0.6e1 - t655 * t3202 * t1512;
3200 t3215 = t678 * t1522 * t1498;
3201 t3231 = t8 * t1359 * t369;
3202 t3234 = t8 * t1494 * t172;
3203 t3237 = t8 * t1469 * t99;
3204 t3245 = -t655 * t1511 * t9 * t511 / 0.2e1 - t1517 * t1502 * t9 * t634 / 0.3e1 - t3215 / 0.6e1 + t1527 * t1532 * t1528 / 0.3e1 - t2816 / 0.6e1 - t2827 / 0.6e1 + t1517 * t679 * t680 * t643 / 0.3e1 + t1527 * t656 * t657 * t511 / 0.3e1 - 0.5e1 / 0.36e2 * t3231 - 0.5e1 / 0.2e1 * t3234 + 0.5e1 / 0.2e1 * t3237 - 0.5e1 / 0.12e2 * t2830 + t2833 / 0.4e1 - 0.3e1 / 0.2e1 * t8 * t670 * t268 - t3002 / 0.8e1 + t3007 + t3011;
3205 t3249 = t1505 - t3055 - t1514 + t1520 / 0.3e1 - t3057 + t1530 / 0.3e1 - t1534 - t1538 / 0.2e1 - t1405 - t1425 + t10 * (t3124 + t3161 + t3205 + t3245);
3206 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3207 v4rho4[1] = t3043 + t3047 + t3054 + t3249;
3208
3209 t3257 = -t1551 / 0.4e1 + t1443 / 0.2e1 + t1446 - t1449 - t1208 / 0.4e1 + t1345 / 0.2e1 - t3019 - t3020 - t1556 / 0.3e1 + 0.2e1 * t1560 - t1565 - t1569 - t1573;
3210 t3268 = -t1578 - t1582 / 0.3e1 - t1585 / 0.9e1 - t1588 / 0.3e1 - t1591 / 0.9e1 - 0.2e1 / 0.3e1 * t1594 - t1455 - t1459 - 0.4e1 / 0.3e1 * t1462 + 0.2e1 / 0.3e1 * t1465 + 0.5e1 / 0.3e1 * t1471 - 0.2e1 * t1475 + 0.2e1 / 0.3e1 * t1477;
3211 t3283 = -t1481 / 0.3e1 - 0.4e1 / 0.3e1 * t1484 - t1348 / 0.3e1 - 0.2e1 / 0.3e1 * t1382 - t1384 / 0.3e1 - t1400 / 0.9e1 + 0.2e1 / 0.3e1 * t1408 - t1420 / 0.9e1 + 0.2e1 / 0.3e1 * t1428 - 0.5e1 / 0.3e1 * t1496 + 0.2e1 / 0.9e1 * t1605 + 0.2e1 / 0.3e1 * t1609 - 0.2e1 / 0.3e1 * t1613;
3212 t3297 = t669 * t369;
3213 t3328 = t678 * t3169 * t1607;
3214 t3343 = 0.1e1 / t188 / t2778;
3215 t3345 = t9 * t9;
3216 t3361 = 0.2e1 / 0.3e1 * t678 * t3297 * t1503 - t678 * t679 * t1562 * t273 / 0.3e1 - t655 * t1532 * t1627 / 0.3e1 - t655 * t656 * t1575 * t183 / 0.3e1 - t678 * t1611 * t1498 / 0.3e1 - t678 * t679 * t723 * t643 / 0.6e1 - t655 * t656 * t709 * t511 / 0.6e1 + t1517 * t679 * t714 * t643 / 0.9e1 - 0.7e1 / 0.9e1 * t3328 + t1527 * t656 * t703 * t511 / 0.9e1 + 0.2e1 / 0.9e1 * t1527 * t1532 * t1623 + 0.2e1 / 0.27e2 * t3067 + 0.4e1 / 0.27e2 * t3071 + 0.2e1 / 0.27e2 * t3080 + 0.4e1 / 0.27e2 * t3084 - 0.2e1 / 0.9e1 * t3088 - t8 * t632 * t3343 * t172 * t3345 / 0.3e1 - t8 * t495 * t627 * t703 / 0.6e1 - t8 * t178 * t627 * t709 / 0.2e1 - t8 * t178 * t268 * t1575;
3217 t3367 = t8 * t1426 * t720;
3218 t3370 = t8 * t1426 * t724;
3219 t3373 = t8 * t1406 * t710;
3220 t3376 = t8 * t2723 * t715;
3221 t3382 = t8 * t2748 * t704;
3222 t3388 = t8 * t1398 * t1580;
3223 t3391 = t8 * t1494 * t1558;
3224 t3394 = t8 * t639 * t1563;
3225 t3401 = t8 * t639 * t1567;
3226 t3404 = t8 * t501 * t1571;
3227 t3407 = t8 * t501 * t1576;
3228 t3418 = -t8 * t272 * t831 * t643 / 0.2e1 + 0.2e1 / 0.9e1 * t3367 + t3370 / 0.9e1 + t3373 / 0.9e1 + t3376 / 0.27e2 + t8 * t3143 * t291 / 0.3e1 + t3382 / 0.27e2 - t8 * t3151 * t286 / 0.3e1 - t3388 / 0.9e1 - 0.7e1 / 0.3e1 * t3391 - t3394 / 0.3e1 - t8 * t633 * t831 * t634 / 0.6e1 - t3401 / 0.3e1 - t3404 / 0.3e1 - t3407 / 0.3e1 - t8 * t494 * t3343 * t99 * t3345 / 0.3e1 - t3103 / 0.9e1 - 0.10e2 / 0.27e2 * t3106 - 0.10e2 / 0.27e2 * t3109 - 0.41e2 / 0.9e1 * t3115;
3229 t3448 = 0.41e2 / 0.9e1 * t3119 - t3122 / 0.3e1 - t3126 / 0.3e1 + 0.4e1 / 0.9e1 * t3133 - 0.2e1 / 0.3e1 * t3136 + 0.2e1 / 0.9e1 * t2701 + 0.4e1 / 0.9e1 * t3141 + t2725 / 0.27e2 + t2733 / 0.9e1 + t2750 / 0.27e2 + t2771 / 0.9e1 - 0.10e2 / 0.27e2 * t2799 - 0.10e2 / 0.27e2 * t2802 + 0.2e1 / 0.9e1 * t3171 - 0.2e1 / 0.9e1 * t3182 - t3200 / 0.9e1 - t3215 / 0.9e1 - 0.4e1 / 0.9e1 * t1517 * t1502 * t680 * t9 + 0.4e1 / 0.9e1 * t1527 * t1511 * t1619 * t183 + 0.2e1 / 0.9e1 * t1517 * t1611 * t1518;
3230 t3451 = t678 * t189 * t369 * t680;
3231 t3458 = t678 * t1522 * t1615;
3232 t3465 = t1527 * t1507 * t1623;
3233 t3472 = t655 * t1507 * t1627;
3234 t3479 = t1517 * t1522 * t1603;
3235 t3485 = t655 * t3086 * t1619;
3236 t3488 = t8 * t648 * t831;
3237 t3497 = -0.2e1 / 0.9e1 * t3451 + t1517 * t679 * t723 * t634 / 0.9e1 - t3458 / 0.9e1 - 0.5e1 / 0.27e2 * t3074 * t656 * t703 * t496 + 0.2e1 / 0.27e2 * t3465 + t1527 * t656 * t709 * t496 / 0.9e1 - t3472 / 0.9e1 - 0.5e1 / 0.27e2 * t3061 * t679 * t714 * t634 + 0.2e1 / 0.27e2 * t3479 - 0.2e1 / 0.3e1 * t655 * t3202 * t1619 + 0.7e1 / 0.9e1 * t3485 + t3488 / 0.12e2 + t8 * t687 * t369 - 0.5e1 / 0.18e2 * t3231 + t3234 / 0.3e1 - t3237 / 0.3e1 - 0.5e1 / 0.18e2 * t2830 + t2833 / 0.12e2 + t3007 + t3011;
3238 t3501 = -t1617 / 0.3e1 - 0.2e1 / 0.3e1 * t1621 + 0.2e1 / 0.9e1 * t1625 - t1629 / 0.3e1 - t1500 / 0.3e1 + 0.2e1 / 0.3e1 * t1505 - 0.4e1 / 0.9e1 * t1509 - 0.2e1 / 0.3e1 * t1514 + 0.2e1 / 0.9e1 * t1520 - 0.4e1 / 0.9e1 * t1524 + 0.2e1 / 0.9e1 * t1530 - 0.2e1 / 0.3e1 * t1534 - t1538 / 0.3e1 + t10 * (t3361 + t3418 + t3448 + t3497);
3239 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3240 v4rho4[2] = t3257 + t3268 + t3283 + t3501;
3241
3242 t3505 = -t1778 - 0.3e1 / 0.4e1 * t1551 + 0.3e1 / 0.4e1 * t1443 + t1346 - t3019 - t3020 - t1556 - t1644 - t1782 - t1786 - t1791;
3243 t3513 = -t1795 + t1803 + t1812 + 0.3e1 * t1560 - 0.3e1 / 0.2e1 * t1565 - 0.3e1 / 0.2e1 * t1569 - 0.3e1 / 0.2e1 * t1573 - 0.3e1 / 0.2e1 * t1578 - t1582 / 0.2e1 - t1585 / 0.3e1 - t1588;
3244 t3517 = -t1591 / 0.3e1 - 0.2e1 * t1594 - t1462 + t1465 - t1471 + t1477 - t1484 + t1409 + t1429 + t1496 - t1807;
3245 t3524 = t8 * t2719 * t1809;
3246 t3527 = t8 * t501 * t1788;
3247 t3530 = t8 * t1418 * t1792;
3248 t3533 = t8 * t2744 * t1800;
3249 t3536 = t8 * t639 * t1641;
3250 t3539 = t8 * t639 * t1779;
3251 t3542 = t8 * t639 * t1783;
3252 t3562 = 0.6e1 * t1351 + 0.12e2 * t2780;
3253 t3572 = t3328 / 0.3e1 + t3072 + t3085 + t3524 / 0.27e2 - t3527 / 0.6e1 - t3530 / 0.6e1 + t3533 / 0.27e2 - t3536 / 0.6e1 - t3539 / 0.2e1 - t3542 / 0.2e1 + t8 * t1392 * t268 * t1799 / 0.9e1 + 0.3e1 / 0.2e1 * t8 * t687 * t831 * t9 - 0.3e1 / 0.2e1 * t8 * t272 * t369 * t1562 - t8 * t178 * t268 * t1787 / 0.2e1 - t8 * t178 * t99 * t3562 / 0.2e1 + t8 * t272 * t172 * t3562 / 0.2e1;
3254 t3591 = -t8 * t272 * t1775 * t273 / 0.2e1 + 0.2e1 / 0.3e1 * t3367 + t3370 / 0.3e1 + t3373 / 0.3e1 + t3376 / 0.9e1 + t3382 / 0.9e1 - t3388 / 0.6e1 + t3391 - t3394 / 0.2e1 - t3401 / 0.2e1 - t3404 / 0.2e1 - t3407 / 0.2e1 - 0.5e1 / 0.9e1 * t3106 - 0.5e1 / 0.9e1 * t3109 + t3115 / 0.3e1 - t3119 / 0.3e1 + t3134;
3255 t3596 = t8 * t278 * t1775;
3256 t3631 = t3142 - 0.5e1 / 0.27e2 * t2799 - 0.5e1 / 0.27e2 * t2802 - t3596 / 0.8e1 + t1527 * t656 * t1804 * t183 / 0.3e1 + t1517 * t679 * t1813 * t273 / 0.3e1 - t3451 / 0.3e1 - t3458 / 0.6e1 + t3465 / 0.9e1 - t3472 / 0.6e1 + t3479 / 0.9e1 - t3485 / 0.3e1 - 0.5e1 / 0.27e2 * t3061 * t679 * t1808 * t273 - t1517 * t1502 * t714 * t9 / 0.3e1 - t678 * t679 * t290 * t1562 / 0.2e1 + t678 * t1502 * t9 * t723 / 0.2e1 + t1517 * t1611 * t1603 / 0.3e1;
3257 t3661 = t655 * t1507 * t1804;
3258 t3668 = t678 * t1522 * t1813;
3259 t3677 = t678 * t3297 * t1607 - 0.5e1 / 0.27e2 * t3074 * t656 * t1799 * t183 - t655 * t1532 * t1804 / 0.2e1 - t655 * t656 * t285 * t1575 / 0.2e1 - t678 * t679 * t1640 * t273 / 0.6e1 - t678 * t17 * t831 * t680 / 0.2e1 - t678 * t1611 * t1615 / 0.2e1 - t655 * t656 * t1787 * t183 / 0.6e1 - t3661 / 0.6e1 - t655 * t1511 * t9 * t709 / 0.2e1 - t3668 / 0.6e1 + t1527 * t1511 * t703 * t9 / 0.3e1 + t3488 / 0.4e1 - 0.5e1 / 0.12e2 * t3231 - 0.5e1 / 0.36e2 * t2830 + t3007 + t3011;
3260 t3681 = -t1816 + t1605 / 0.3e1 + t1609 - t1613 - t1617 / 0.2e1 - t1621 + t1625 / 0.3e1 - t1629 / 0.2e1 - t3055 - t3057 + t10 * (t3572 + t3591 + t3631 + t3677);
3261 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3262 v4rho4[3] = t3505 + t3513 + t3517 + t3681;
3263
3264 t3683 = t709 * t709;
3265 t3688 = t714 * t714;
3266 t3701 = 0.12e2 * t1351 + 0.12e2 * t2780;
3267 t3723 = t723 * t723;
3268 t3728 = t703 * t703;
3269 t3741 = -t8 * t495 * t99 * t3683 / 0.2e1 - 0.5e1 / 0.27e2 * t8 * t2713 * t172 * t3688 - t8 * t633 * t831 * t714 + 0.4e1 / 0.9e1 * t8 * t1412 * t369 * t1808 - t8 * t178 * t99 * t3701 / 0.2e1 - 0.3e1 * t8 * t272 * t831 * t723 - 0.2e1 * t8 * t272 * t369 * t1640 + t8 * t272 * t172 * t3701 / 0.2e1 - 0.2e1 * t8 * t272 * t1775 * t290 - t8 * t633 * t172 * t3723 / 0.2e1 - 0.5e1 / 0.27e2 * t8 * t2738 * t99 * t3728 + 0.4e1 / 0.27e2 * t3524 - 0.2e1 / 0.3e1 * t3527 - 0.2e1 / 0.3e1 * t3530 + 0.4e1 / 0.27e2 * t3533 - 0.2e1 / 0.3e1 * t3536 - 0.2e1 * t3539 - 0.2e1 * t3542 + 0.4e1 / 0.3e1 * t3367;
3270 t3748 = tau[1] * t1646;
3271 t3751 = t153 * t168;
3272 t3752 = t798 * t798;
3273 t3753 = t3752 * t435;
3274 t3756 = t157 * t363;
3275 t3759 = t158 * t823;
3276 t3762 = t164 * t1749;
3277 t3767 = t165 / t1748 / t154;
3278 t3770 = t798 * t736;
3279 t3783 = -0.6160e4 / 0.81e2 * t3748 * t155 - 0.50000e5 / 0.9e1 * t3751 * t3753 - 0.50000e5 / 0.27e2 * t3756 * t3753 + 0.200000e6 / 0.9e1 * t3759 * t3753 + 0.875000e6 / 0.27e2 * t3762 * t3753 + 0.350000e6 / 0.27e2 * t3767 * t3753 - 0.54400e5 / 0.9e1 * t807 * t3770 + 0.136000e6 / 0.27e2 * t824 * t3770 - 0.30800e5 / 0.81e2 * t364 * t3748 - 0.136000e6 / 0.81e2 * t802 * t3770 - 0.6160e4 / 0.81e2 * t349 * t3748 + 0.12320e5 / 0.27e2 * t352 * t3748;
3280 t3784 = t1729 * t312;
3281 t3809 = 0.68000e5 / 0.9e1 * t1736 * t3784 + 0.104000e6 / 0.9e1 * t1739 * t3784 - 0.40000e5 / 0.3e1 * t1742 * t3784 - 0.100000e6 / 0.3e1 * t1745 * t3784 - 0.140000e6 / 0.9e1 * t1750 * t3784 - 0.54400e5 / 0.81e2 * t812 * t3770 + 0.12320e5 / 0.27e2 * t356 * t3748 + 0.680000e6 / 0.81e2 * t817 * t3770 - 0.30800e5 / 0.81e2 * t359 * t3748 + 0.4000e4 / 0.9e1 * t3784 * t161 - 0.25000e5 / 0.27e2 * t3753 * t355 + 0.27200e5 / 0.81e2 * t3770 * t348;
3282 t3819 = 0.1e1 / t110 / t302;
3283 t3820 = t3819 * t116;
3284 t3825 = 0.1e1 / t109 / t311 * t127;
3285 t3829 = 0.1e1 / t750 * t136;
3286 t3834 = 0.1e1 / t110 / t932 * t324;
3287 t3840 = 0.1e1 / t109 / t2383 * t766;
3288 t3852 = t1672 * t122;
3289 t3854 = 0.1e1 / t3852 * t1689;
3290 t3865 = t318 * t131;
3291 t3871 = 0.1e1 / t323 / t135;
3292 t3872 = 0.1e1 / t110 / t1672 / t302 * t3871;
3293 t3875 = 0.10342716049382716049e1 * t140 * t3820 - 0.28890074074074074075e-1 * t330 * t3825 + 0.25921106172839506174e-3 * t774 * t3829 - 0.95148562962962962971e-6 * t1699 * t3834 + 0.12427567407407407409e-8 * t57 * t760 * t3840 + 0.33027160493827160493e-1 * t143 * t3825 - 0.74954271604938271608e-3 * t335 * t3829 + 0.59649896296296296299e-5 * t781 * t3834 - 0.20194797037037037038e-7 * t1708 * t3840 + 0.24855134814814814817e-10 * t61 * t1684 * t3854 + 0.506880e-3 * t146 * t3829 - 0.10462245925925925926e-4 * t340 * t3834 + 0.78012112592592592598e-7 * t788 * t3840 - 0.25165824000000000003e-9 * t1717 * t3854 + 0.29826161777777777782e-12 * t65 * t3865 * t3872;
3294 t3910 = t149 * (t3783 + t3809) + 0.4e1 * t343 * t1773 + 0.6e1 * t791 * t829 + 0.4e1 * t1720 * t367 + t3875 * t170 - 0.28890074074074074075e-1 * t301 * t3825 + 0.25921106172839506174e-3 * t740 * t3829 - 0.95148562962962962971e-6 * t1659 * t3834 + 0.12427567407407407409e-8 * t20 * t760 * t3840 - 0.74954271604938271608e-3 * t310 * t3829 + 0.59649896296296296299e-5 * t749 * t3834 - 0.20194797037037037038e-7 * t1671 * t3840 + 0.24855134814814814817e-10 * t34 * t1684 * t3854 - 0.10462245925925925926e-4 * t319 * t3834 + 0.78012112592592592598e-7 * t761 * t3840 - 0.25165824000000000003e-9 * t1685 * t3854 + 0.29826161777777777782e-12 * t46 * t3865 * t3872 + 0.10342716049382716049e1 * t107 * t3820 + 0.33027160493827160493e-1 * t121 * t3825 + 0.506880e-3 * t132 * t3829;
3295 t3938 = 0.2e1 / 0.3e1 * t3370 + 0.2e1 / 0.3e1 * t3373 + 0.2e1 / 0.9e1 * t3376 + 0.2e1 / 0.9e1 * t3382 - 0.20e2 / 0.27e2 * t3106 - 0.20e2 / 0.27e2 * t3109 - 0.3e1 / 0.8e1 * t8 * t106 * t3910 - t3596 / 0.2e1 - 0.2e1 / 0.3e1 * t3661 - 0.2e1 / 0.3e1 * t3668 + 0.2e1 / 0.3e1 * t1527 * t656 * t703 * t709 + 0.2e1 / 0.3e1 * t1517 * t679 * t714 * t723 - 0.2e1 / 0.3e1 * t678 * t679 * t1640 * t290 - 0.2e1 * t678 * t1611 * t1813 - 0.2e1 / 0.3e1 * t655 * t656 * t1787 * t285 + t3488 / 0.2e1 - 0.5e1 / 0.9e1 * t3231 + t3007 + t3011;
3296 t3948 = t10 * (t3741 + t3938) - 0.2e1 * t1643 - 0.3e1 / 0.2e1 * t1777 - 0.6e1 * t1781 - 0.6e1 * t1785 - 0.2e1 * t1790 - 0.2e1 * t1794 - 0.3e1 / 0.2e1 * t1551 + t1443 - t3019 - t3020;
3297 t3960 = 0.4e1 / 0.9e1 * t1802 - 0.2e1 * t1806 + 0.4e1 / 0.9e1 * t1811 - 0.2e1 * t1815 + 0.4e1 / 0.3e1 * t1465 + 0.4e1 / 0.3e1 * t1477 - 0.2e1 / 0.3e1 * t1585 - 0.2e1 * t1588 - 0.2e1 / 0.3e1 * t1591 - 0.4e1 * t1594 - 0.2e1 * t1556;
3298 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3299 v4rho4[4] = t3948 + t3960;
3300
3301 t3983 = 0.1e1 / t24 / t1237 / t38 * t2958;
3302 t3996 = t223 * t47;
3303 t4043 = -0.18251851851851851852e0 * t57 * t1211 * t30 + 0.71964444444444444445e-2 * t57 * t1216 * t849 - 0.77748148148148148151e-4 * t57 * t1220 * t1859 + 0.32403911111111111113e-6 * t57 * t1226 * t3996 - 0.46603377777777777781e-9 * t1264 * t1240 - 0.79265185185185185186e-2 * t403 * t1217 + 0.21306785185185185185e-3 * t62 * t1221 - 0.19050951111111111112e-5 * t234 * t1227 + 0.70487608888888888892e-8 * t577 * t1240 - 0.93206755555555555566e-11 * t1273 * t1255 - 0.138240e-3 * t408 * t1221 + 0.31835022222222222222e-5 * t66 * t1227 - 0.25813902222222222222e-7 * t239 * t1240 + 0.89128960000000000004e-10 * t584 * t1255 - 0.11184810666666666668e-12 * t1282 * t3983;
3304 t4045 = t413 * t1338 + 0.3e1 * t890 * t625 - 0.79265185185185185186e-2 * t384 * t1217 - 0.138240e-3 * t389 * t1221 - 0.93206755555555555566e-11 * t1236 * t1255 + 0.31835022222222222222e-5 * t48 * t1227 - 0.25813902222222222222e-7 * t218 * t1240 + 0.89128960000000000004e-10 * t557 * t1255 - 0.11184810666666666668e-12 * t1250 * t3983 - 0.18251851851851851852e0 * t20 * t1211 * t30 + 0.71964444444444444445e-2 * t20 * t1216 * t849 - 0.77748148148148148151e-4 * t20 * t1220 * t1859 + 0.32403911111111111113e-6 * t20 * t1226 * t3996 - 0.46603377777777777781e-9 * t1224 * t1240 + 0.21306785185185185185e-3 * t36 * t1221 - 0.19050951111111111112e-5 * t209 * t1227 + 0.70487608888888888892e-8 * t545 * t1240 + 0.3e1 * t1910 * t266 + t4043 * t97;
3305 t4050 = t8 * t18 * t1915;
3306 t4053 = t8 * t190 * t893;
3307 t4069 = t8 * t518 * t415 / 0.9e1;
3308 t4071 = t8 * t178 * t1845;
3309 t4074 = t8 * t178 * t1848;
3310 t4084 = t8 * t495 * t1841;
3311 t4087 = t8 * t501 * t841;
3312 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3313 v4rho3sigma[0] = -t377 * t840 * t415 * t1371 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t4045 - 0.3e1 / 0.2e1 * t4050 - t4053 / 0.2e1 - 0.3e1 / 0.2e1 * t377 * t840 * t893 * t511 - t377 * t654 * t893 * t496 / 0.2e1 - 0.3e1 / 0.2e1 * t377 * t840 * t1915 * t183 + t4069 - 0.4e1 * t4071 - 0.2e1 * t4074 + t377 * t1526 * t415 * t1393 / 0.9e1 - t969 * t1939 * t1402 / 0.2e1 - 0.2e1 / 0.3e1 * t4084 - 0.2e1 / 0.3e1 * t4087;
3314
3315 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3316 v4rho3sigma[1] = 0.0e0;
3317
3318 t4090 = t8 * t633 * t1925;
3319 t4093 = t8 * t639 * t900;
3320 t4096 = t8 * t272 * t1929;
3321 t4100 = t8 * t648 * t456 / 0.9e1;
3322 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3323 v4rho3sigma[2] = -0.2e1 / 0.3e1 * t4090 - 0.2e1 / 0.3e1 * t4093 - 0.2e1 * t4096 + t4100 + t377 * t1516 * t456 * t1413 / 0.9e1 - t969 * t1956 * t1422 / 0.2e1 - t377 * t899 * t456 * t1354 / 0.2e1;
3324
3325 t4115 = t189 * t2;
3326 t4116 = t4115 * t4;
3327 t4117 = t4116 * t905;
3328 t4120 = 0.4e1 / 0.9e1 * t2159 * t1940;
3329 t4121 = t669 * t2;
3330 t4122 = t4121 * t4;
3331 t4123 = t4122 * t1950;
3332 t4140 = 0.4e1 / 0.3e1 * t1936 * t1944;
3333 t4147 = t1391 * t415;
3334 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3335 v4rho3sigma[3] = -t1948 * t840 * t893 * t9 - 0.2e1 / 0.9e1 * t4117 - t4120 + t4123 / 0.6e1 - t969 * t494 * t893 * t657 / 0.3e1 - t969 * t1939 * t1536 / 0.6e1 - t1948 * t840 * t415 / 0.2e1 - t377 * t840 * t1915 * t285 / 0.2e1 - t4140 - t4050 / 0.2e1 - t4053 / 0.3e1 + t4069 - 0.4e1 / 0.3e1 * t4071 - 0.2e1 / 0.3e1 * t4074 - 0.2e1 / 0.9e1 * t4084 - 0.4e1 / 0.9e1 * t4087 + t969 * t4147 * t1528 / 0.9e1 - t2173 * t1939 * t1512 / 0.3e1;
3336
3337 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3338 v4rho3sigma[4] = 0.0e0;
3339
3340 t4157 = t4116 * t910;
3341 t4160 = 0.4e1 / 0.9e1 * t2159 * t1957;
3342 t4161 = t4122 * t1961;
3343 t4163 = t1411 * t456;
3344 t4176 = t4116 * t962;
3345 t4179 = 0.4e1 / 0.3e1 * t1936 * t1967;
3346 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3347 v4rho3sigma[5] = -0.2e1 / 0.9e1 * t4090 - 0.4e1 / 0.9e1 * t4093 - 0.2e1 / 0.3e1 * t4096 + t4100 - 0.2e1 / 0.9e1 * t4157 - t4160 - t4161 / 0.6e1 + t969 * t4163 * t1518 / 0.9e1 + t2173 * t1956 * t1503 / 0.3e1 - t969 * t1956 * t1498 / 0.6e1 + t1948 * t899 * t456 / 0.2e1 - t4176 / 0.6e1 - t4179 - t377 * t677 * t961 * t634 / 0.6e1 - t377 * t899 * t961 * t643 / 0.2e1;
3348
3349 t4192 = t1936 * t1972;
3350 t4204 = t1936 * t1976;
3351 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3352 v4rho3sigma[6] = -0.4e1 / 0.9e1 * t4117 - t4120 - t4140 - 0.4e1 / 0.3e1 * t4123 - 0.2e1 / 0.9e1 * t4087 + t4069 - t4053 / 0.6e1 - 0.2e1 / 0.9e1 * t4192 + t969 * t4147 * t1623 / 0.9e1 - t377 * t654 * t893 * t703 / 0.6e1 - t2173 * t1939 * t1619 / 0.3e1 - 0.2e1 / 0.3e1 * t4204 - t969 * t1939 * t1627 / 0.6e1 - t377 * t840 * t893 * t709 / 0.2e1 - t377 * t840 * t415 * t1575 / 0.2e1;
3353
3354 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3355 v4rho3sigma[7] = 0.0e0;
3356
3357 t4221 = t1936 * t1981;
3358 t4229 = t1936 * t1985;
3359 t4238 = t1936 * t1988;
3360 t4247 = t1936 * t2055;
3361 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3362 v4rho3sigma[8] = -0.4e1 / 0.9e1 * t4157 - t4160 + 0.4e1 / 0.3e1 * t4161 - 0.2e1 / 0.9e1 * t4093 + t4100 - t4176 / 0.3e1 - t4179 - 0.2e1 / 0.9e1 * t4221 + t969 * t4163 * t1603 / 0.9e1 + t2173 * t1956 * t1607 / 0.3e1 - 0.4e1 / 0.3e1 * t4229 - t969 * t632 * t961 * t680 / 0.3e1 + t1948 * t899 * t961 * t9 - 0.2e1 / 0.3e1 * t4238 - t969 * t1956 * t1615 / 0.6e1 - t377 * t899 * t456 * t1562 / 0.2e1 - t4247 / 0.2e1 - t377 * t899 * t2054 * t273 / 0.2e1;
3363
3364 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3365 v4rho3sigma[9] = -0.2e1 / 0.3e1 * t4117 - 0.2e1 / 0.3e1 * t4192 - 0.2e1 * t4204 + t4069 + t377 * t1526 * t415 * t1799 / 0.9e1 - t969 * t1939 * t1804 / 0.2e1 - t377 * t840 * t415 * t1787 / 0.2e1;
3366
3367 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3368 v4rho3sigma[10] = 0.0e0;
3369
3370 t4299 = t324 * t131;
3371 t4325 = 0.1e1 / t110 / t1672 / t123 * t3871;
3372 t4328 = -0.18251851851851851852e0 * t57 * t1646 * t116 + 0.71964444444444444445e-2 * t57 * t1651 * t917 - 0.77748148148148148151e-4 * t57 * t1655 * t1998 + 0.32403911111111111113e-6 * t57 * t1661 * t4299 - 0.46603377777777777781e-9 * t1699 * t1675 - 0.79265185185185185186e-2 * t444 * t1652 + 0.21306785185185185185e-3 * t143 * t1656 - 0.19050951111111111112e-5 * t335 * t1662 + 0.70487608888888888892e-8 * t781 * t1675 - 0.93206755555555555566e-11 * t1708 * t1690 - 0.138240e-3 * t449 * t1656 + 0.31835022222222222222e-5 * t146 * t1662 - 0.25813902222222222222e-7 * t340 * t1675 + 0.89128960000000000004e-10 * t788 * t1690 - 0.11184810666666666668e-12 * t1717 * t4325;
3373 t4364 = t454 * t1773 + 0.3e1 * t958 * t829 + 0.3e1 * t2049 * t367 + t4328 * t170 - 0.11184810666666666668e-12 * t1685 * t4325 - 0.18251851851851851852e0 * t20 * t1646 * t116 + 0.71964444444444444445e-2 * t20 * t1651 * t917 - 0.77748148148148148151e-4 * t20 * t1655 * t1998 + 0.32403911111111111113e-6 * t20 * t1661 * t4299 - 0.46603377777777777781e-9 * t1659 * t1675 + 0.21306785185185185185e-3 * t121 * t1656 - 0.19050951111111111112e-5 * t310 * t1662 + 0.70487608888888888892e-8 * t749 * t1675 - 0.93206755555555555566e-11 * t1671 * t1690 + 0.31835022222222222222e-5 * t132 * t1662 - 0.25813902222222222222e-7 * t319 * t1675 + 0.89128960000000000004e-10 * t761 * t1690 - 0.79265185185185185186e-2 * t425 * t1652 - 0.138240e-3 * t430 * t1656;
3374 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3375 v4rho3sigma[11] = -t377 * t899 * t456 * t1640 / 0.2e1 - 0.3e1 / 0.2e1 * t377 * t899 * t961 * t723 - t377 * t677 * t961 * t714 / 0.2e1 - 0.3e1 / 0.2e1 * t377 * t899 * t2054 * t290 - 0.3e1 / 0.2e1 * t4247 - 0.3e1 / 0.8e1 * t377 * t419 * t4364 + t377 * t1516 * t456 * t1808 / 0.9e1 - t969 * t1956 * t1813 / 0.2e1 - 0.4e1 * t4229 - 0.2e1 * t4238 - 0.2e1 / 0.3e1 * t4221 - 0.2e1 / 0.3e1 * t4157 - t4176 / 0.2e1 + t4100;
3376
3377 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3378 v4rho3lapl[0] = 0.0e0;
3379
3380 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3381 v4rho3lapl[1] = 0.0e0;
3382
3383 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3384 v4rho3lapl[2] = 0.0e0;
3385
3386 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3387 v4rho3lapl[3] = 0.0e0;
3388
3389 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3390 v4rho3lapl[4] = 0.0e0;
3391
3392 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3393 v4rho3lapl[5] = 0.0e0;
3394
3395 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3396 v4rho3lapl[6] = 0.0e0;
3397
3398 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3399 v4rho3lapl[7] = 0.0e0;
3400
3401 t4386 = 0.1e1 / t24 / t210 * t1292;
3402 t4393 = t203 * tau[0];
3403 t4412 = -0.175000e6 / 0.9e1 * t2878 * t4386 - 0.70000e5 / 0.9e1 * t2883 * t4386 + 0.2200e4 / 0.27e2 * t263 * t526 - 0.82000e5 / 0.27e2 * t613 * t4393 - 0.16400e5 / 0.9e1 * t620 * t4393 + 0.10000e5 / 0.3e1 * t2867 * t4386 + 0.440e3 / 0.27e2 * t248 * t526 + 0.16400e5 / 0.27e2 * t598 * t4393 + 0.10000e5 / 0.9e1 * t2872 * t4386 - 0.880e3 / 0.9e1 * t251 * t526 + 0.6560e4 / 0.3e1 * t603 * t4393 - 0.40000e5 / 0.3e1 * t2875 * t4386;
3404 t4419 = t50 * t594;
3405 t4439 = -0.880e3 / 0.9e1 * t255 * t526 + 0.6560e4 / 0.27e2 * t608 * t4393 + 0.2200e4 / 0.27e2 * t258 * t526 + 0.22750e5 / 0.3e1 * t1304 * t4419 - 0.11050e5 / 0.3e1 * t1335 * t4419 - 0.16900e5 / 0.3e1 * t1291 * t4419 + 0.6500e4 * t1296 * t4419 + 0.16250e5 * t1299 * t4419 + 0.5000e4 / 0.9e1 * t4386 * t254 - 0.3280e4 / 0.27e2 * t4393 * t247 + 0.440e3 / 0.27e2 * t526 * t82 - 0.650e3 / 0.3e1 * t50 * t88 * t594;
3406 t4458 = t8 * t18 * t2089;
3407 t4461 = t8 * t18 * t2135;
3408 t4464 = t8 * t190 * t975;
3409 t4467 = t8 * t190 * t1008;
3410 t4470 = t8 * t18 * t2085;
3411 t4474 = t8 * t518 * t471 / 0.9e1;
3412 t4476 = t655 * t2059 * t2071;
3413 t4478 = -t969 * t2070 * t971 * t511 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t69 * (t4412 + t4439) - 0.3e1 / 0.8e1 * t377 * t378 * t1285 * t470 - 0.9e1 / 0.8e1 * t377 * t378 * t587 * t1007 - 0.9e1 / 0.8e1 * t377 * t378 * t242 * t2134 - 0.3e1 * t4458 - 0.3e1 / 0.2e1 * t4461 - t4464 / 0.2e1 - t4467 / 0.2e1 - 0.3e1 / 0.2e1 * t4470 + t4474 - 0.2e1 / 0.3e1 * t4476;
3414 t4481 = t2058 * t189 * t69 * t971;
3415 t4483 = t1391 * t69;
3416 t4488 = t494 * t242;
3417 t4496 = t15 * t587;
3418 t4520 = t2058 * t17 * t242 * t971;
3419 t4523 = t2058 * t2059 * t2078;
3420 t4526 = t2058 * t2059 * t2081;
3421 t4528 = -0.2e1 / 0.3e1 * t4481 + t969 * t4483 * t470 * t1393 / 0.9e1 - t969 * t4488 * t2071 / 0.2e1 - t969 * t2070 * t1007 * t496 / 0.2e1 - 0.3e1 / 0.2e1 * t969 * t4496 * t971 - 0.3e1 * t969 * t2075 * t2078 - 0.3e1 / 0.2e1 * t969 * t2075 * t2081 - 0.3e1 / 0.2e1 * t969 * t970 * t2134 * t183 - 0.3e1 / 0.2e1 * t969 * t970 * t1007 * t511 - t969 * t970 * t470 * t1371 / 0.2e1 - 0.4e1 * t4520 - 0.4e1 * t4523 - 0.2e1 * t4526;
3422 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3423 v4rho3tau[0] = t4478 + t4528;
3424
3425 t4530 = t678 * t2140 * t2148;
3426 t4534 = t2139 * t189 * t149 * t1015;
3427 t4537 = t2139 * t2140 * t2152;
3428 t4541 = t8 * t648 * t486 / 0.9e1;
3429 t4542 = t1411 * t149;
3430 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3431 v4rho3tau[1] = -0.2e1 / 0.3e1 * t4530 - 0.2e1 / 0.3e1 * t4534 - 0.2e1 * t4537 + t4541 + t969 * t4542 * t485 * t1413 / 0.9e1 - t969 * t2147 * t1015 * t643 / 0.2e1 - t969 * t1014 * t485 * t1354 / 0.2e1;
3432
3433 t4575 = 0.4e1 / 0.9e1 * t2159 * t2163;
3434 t4583 = t969 * t4483 * t1019 * t496 / 0.9e1 - t2173 * t2070 * t2174 * t183 / 0.3e1 - t969 * t4488 * t2162 / 0.3e1 - t969 * t2070 * t2169 * t183 / 0.3e1 - t969 * t2070 * t1019 * t511 / 0.6e1 - t4575 - t1948 * t840 * t471 / 0.2e1 - t4458 - t4461 / 0.2e1 - t4464 / 0.3e1 - t4467 / 0.3e1 - t4470 / 0.2e1 + t4474;
3435 t4594 = t4115 * t968;
3436 t4595 = t4594 * t1020;
3437 t4597 = t4121 * t968;
3438 t4598 = t4597 * t2175;
3439 t4601 = 0.4e1 / 0.3e1 * t2159 * t2166;
3440 t4603 = 0.4e1 / 0.3e1 * t2159 * t2170;
3441 t4613 = -0.2e1 / 0.9e1 * t4476 - 0.4e1 / 0.9e1 * t4481 - 0.4e1 / 0.3e1 * t4520 - 0.4e1 / 0.3e1 * t4523 - 0.2e1 / 0.3e1 * t4526 - t2173 * t2075 * t2174 - t2173 * t970 * t1007 * t9 - 0.2e1 / 0.9e1 * t4595 + t4598 / 0.6e1 - t4601 - t4603 - t969 * t4496 * t1019 / 0.2e1 - t969 * t2075 * t2169 - t969 * t970 * t2134 * t285 / 0.2e1;
3442 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3443 v4rho3tau[2] = t4583 + t4613;
3444
3445 t4614 = t4116 * t1062;
3446 t4617 = 0.4e1 / 0.3e1 * t2159 * t2198;
3447 t4627 = 0.4e1 / 0.9e1 * t2159 * t2182;
3448 t4636 = t632 * t343;
3449 t4640 = t4594 * t1025;
3450 t4644 = t4597 * t2186;
3451 t4649 = t4116 * t1029;
3452 t4652 = 0.4e1 / 0.3e1 * t2159 * t2192;
3453 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3454 v4rho3tau[3] = -t4614 / 0.6e1 - t4617 - t969 * t1014 * t1060 * t643 / 0.2e1 - t969 * t2147 * t1060 * t634 / 0.6e1 - t4627 - t969 * t2147 * t1024 * t643 / 0.6e1 + t2173 * t2147 * t2185 * t273 / 0.3e1 - t969 * t4636 * t2148 / 0.6e1 - 0.2e1 / 0.9e1 * t4640 - 0.2e1 / 0.9e1 * t4530 - 0.4e1 / 0.9e1 * t4534 - t4644 / 0.6e1 + t1948 * t899 * t486 / 0.2e1 - t4649 / 0.6e1 - t4652 - t969 * t2191 * t2152 / 0.2e1 + t4541 - 0.2e1 / 0.3e1 * t4537 + t969 * t4542 * t1024 * t634 / 0.9e1;
3455
3456 t4666 = t2159 * t2203;
3457 t4683 = t2159 * t2207;
3458 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3459 v4rho3tau[4] = -0.4e1 / 0.9e1 * t4595 - t4575 - t4601 - t4603 - 0.4e1 / 0.3e1 * t4598 - 0.2e1 / 0.9e1 * t4481 + t4474 - t4464 / 0.6e1 - t4467 / 0.6e1 - 0.2e1 / 0.9e1 * t4666 + t969 * t4483 * t2202 * t183 / 0.9e1 - t969 * t4488 * t2202 / 0.6e1 - t969 * t2070 * t1007 * t703 / 0.6e1 - t2173 * t2070 * t1019 * t9 / 0.3e1 - 0.2e1 / 0.3e1 * t4683 - t969 * t2070 * t2206 * t183 / 0.6e1 - t969 * t2075 * t2206 / 0.2e1 - t969 * t970 * t1007 * t709 / 0.2e1 - t969 * t970 * t470 * t1575 / 0.2e1;
3460
3461 t4721 = t1936 * t2225;
3462 t4723 = t1936 * t2229;
3463 t4724 = t1936 * t2275;
3464 t4727 = -t969 * t2147 * t2220 * t273 / 0.6e1 + t969 * t4542 * t2211 * t273 / 0.9e1 + t2173 * t2147 * t1024 * t9 / 0.3e1 - t969 * t4636 * t2181 / 0.3e1 - t969 * t2147 * t2217 * t273 / 0.3e1 - t4627 - t4614 / 0.3e1 - t4649 / 0.3e1 - t4721 / 0.2e1 - t4723 - t4724 / 0.2e1 + t4541 - 0.2e1 / 0.9e1 * t4534;
3465 t4743 = t104 * t791;
3466 t4749 = t2159 * t2221;
3467 t4751 = t2159 * t2212;
3468 t4753 = t2159 * t2215;
3469 t4755 = t2159 * t2218;
3470 t4757 = -t4617 - 0.4e1 / 0.9e1 * t4640 + 0.4e1 / 0.3e1 * t4644 - t4652 - t969 * t1014 * t2273 * t273 / 0.2e1 + t2173 * t2191 * t2185 + t2173 * t1014 * t1060 * t9 - t969 * t1014 * t485 * t1562 / 0.2e1 - t969 * t4743 * t1015 / 0.2e1 - t969 * t2191 * t2197 - 0.2e1 / 0.3e1 * t4749 - 0.2e1 / 0.9e1 * t4751 - 0.4e1 / 0.3e1 * t4753 - 0.4e1 / 0.3e1 * t4755;
3471 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3472 v4rho3tau[5] = t4727 + t4757;
3473
3474 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3475 v4rho3tau[6] = -0.2e1 / 0.3e1 * t4595 - 0.2e1 / 0.3e1 * t4666 - 0.2e1 * t4683 + t4474 + t969 * t4483 * t470 * t1799 / 0.9e1 - t969 * t2070 * t1019 * t709 / 0.2e1 - t969 * t970 * t470 * t1787 / 0.2e1;
3476
3477 t4792 = 0.1e1 / t110 / t311 * t1729;
3478 t4799 = t134 * t798;
3479 t4818 = 0.10000e5 / 0.3e1 * t3751 * t4792 + 0.440e3 / 0.27e2 * t349 * t730 - 0.880e3 / 0.9e1 * t352 * t730 - 0.11050e5 / 0.3e1 * t1736 * t4799 - 0.16900e5 / 0.3e1 * t1739 * t4799 + 0.6500e4 * t1742 * t4799 + 0.16250e5 * t1745 * t4799 + 0.22750e5 / 0.3e1 * t1750 * t4799 + 0.10000e5 / 0.9e1 * t3756 * t4792 - 0.40000e5 / 0.3e1 * t3759 * t4792 - 0.880e3 / 0.9e1 * t356 * t730 - 0.175000e6 / 0.9e1 * t3762 * t4792;
3480 t4825 = t304 * tau[1];
3481 t4844 = 0.2200e4 / 0.27e2 * t359 * t730 - 0.70000e5 / 0.9e1 * t3767 * t4792 + 0.2200e4 / 0.27e2 * t364 * t730 + 0.6560e4 / 0.3e1 * t807 * t4825 + 0.6560e4 / 0.27e2 * t812 * t4825 - 0.82000e5 / 0.27e2 * t817 * t4825 - 0.16400e5 / 0.9e1 * t824 * t4825 + 0.16400e5 / 0.27e2 * t802 * t4825 - 0.650e3 / 0.3e1 * t4799 * t161 + 0.5000e4 / 0.9e1 * t4792 * t355 - 0.3280e4 / 0.27e2 * t4825 * t348 + 0.440e3 / 0.27e2 * t730 * t155;
3482 t4855 = -t969 * t2147 * t1024 * t723 / 0.2e1 - t4614 / 0.2e1 - t4649 / 0.2e1 - 0.3e1 / 0.2e1 * t4721 - 0.3e1 * t4723 - 0.3e1 / 0.2e1 * t4724 - 0.9e1 / 0.8e1 * t377 * t419 * t791 * t1060 - 0.9e1 / 0.8e1 * t377 * t419 * t343 * t2273 - 0.3e1 / 0.8e1 * t377 * t419 * t149 * (t4818 + t4844) - 0.3e1 / 0.8e1 * t377 * t419 * t1720 * t485 + t4541 - 0.2e1 / 0.3e1 * t4640;
3483 t4892 = -0.2e1 * t4749 - 0.2e1 / 0.3e1 * t4751 - 0.4e1 * t4753 - 0.4e1 * t4755 - 0.3e1 / 0.2e1 * t969 * t2191 * t2220 - 0.3e1 / 0.2e1 * t969 * t1014 * t2273 * t290 - 0.3e1 / 0.2e1 * t969 * t1014 * t1060 * t723 - t969 * t1014 * t485 * t1640 / 0.2e1 - t969 * t4636 * t2211 / 0.2e1 - t969 * t2147 * t1060 * t714 / 0.2e1 - 0.3e1 / 0.2e1 * t969 * t4743 * t1024 - 0.3e1 * t969 * t2191 * t2217 + t969 * t4542 * t485 * t1808 / 0.9e1;
3484 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3485 v4rho3tau[7] = t4855 + t4892;
3486
3487 t4894 = t4116 * t1110 / 0.6e1;
3488 t4895 = t1936 * t2281;
3489 t4897 = t1936 * t2342;
3490 t4917 = t223 * t35;
3491 t4945 = 0.1e1 / t24 / t2939 * t2958;
3492 t4948 = -0.10808888888888888889e-2 * t1886 * t42 + 0.19000888888888888889e-4 * t1889 * t2287 - 0.10240000000000000000e-6 * t57 * t548 * t4917 + 0.17476266666666666668e-9 * t570 * t563 + 0.10808888888888888889e-2 * t61 * t532 * t42 - 0.46648888888888888889e-4 * t61 * t537 * t2287 + 0.53521066666666666669e-6 * t61 * t548 * t4917 - 0.23374506666666666668e-8 * t234 * t563 + 0.34952533333333333335e-11 * t577 * t1880 + 0.27648e-4 * t1100 * t538 - 0.81510400000000000000e-6 * t408 * t549 + 0.77878613333333333336e-8 * t66 * t563 - 0.30365013333333333334e-10 * t239 * t1880 + 0.41943040000000000003e-13 * t584 * t4945;
3493 t4982 = t1107 * t625 + 0.2e1 * t2338 * t266 + t4948 * t97 - 0.46648888888888888889e-4 * t34 * t537 * t2287 + 0.53521066666666666669e-6 * t34 * t548 * t4917 - 0.23374506666666666668e-8 * t209 * t563 + 0.34952533333333333335e-11 * t545 * t1880 - 0.81510400000000000000e-6 * t389 * t549 + 0.77878613333333333336e-8 * t48 * t563 - 0.30365013333333333334e-10 * t218 * t1880 + 0.41943040000000000003e-13 * t557 * t4945 - 0.10808888888888888889e-2 * t1855 * t42 + 0.19000888888888888889e-4 * t1858 * t2287 - 0.10240000000000000000e-6 * t20 * t548 * t4917 + 0.17476266666666666668e-9 * t536 * t563 + 0.10808888888888888889e-2 * t34 * t532 * t42 + 0.27648e-4 * t1077 * t538;
3494 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3495 v4rho2sigma2[0] = -t4894 - 0.4e1 / 0.3e1 * t4895 - t4897 - t377 * t654 * t1109 * t496 / 0.6e1 - t377 * t840 * t2341 * t183 - t377 * t840 * t1109 * t511 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t4982;
3496
3497 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3498 v4rho2sigma2[1] = 0.0e0;
3499
3500 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3501 v4rho2sigma2[2] = 0.0e0;
3502
3503 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3504 v4rho2sigma2[3] = 0.0e0;
3505
3506 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3507 v4rho2sigma2[4] = 0.0e0;
3508
3509 t4987 = t4116 * t1158 / 0.6e1;
3510 t4988 = t1936 * t2347;
3511 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3512 v4rho2sigma2[5] = -t4987 - 0.4e1 / 0.3e1 * t4988 - t377 * t677 * t1157 * t634 / 0.6e1 - t377 * t899 * t1157 * t643 / 0.2e1;
3513
3514 t5000 = t1936 * t2351;
3515 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3516 v4rho2sigma2[6] = -t4894 - 0.2e1 / 0.3e1 * t4895 - t4897 / 0.2e1 - 0.2e1 / 0.3e1 * t5000 - t969 * t494 * t1109 * t657 / 0.6e1 - t377 * t840 * t2341 * t285 / 0.2e1 - t1948 * t840 * t1109 * t9 / 0.2e1;
3517
3518 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3519 v4rho2sigma2[7] = 0.0e0;
3520
3521 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3522 v4rho2sigma2[8] = 0.0e0;
3523
3524 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3525 v4rho2sigma2[9] = 0.0e0;
3526
3527 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3528 v4rho2sigma2[10] = 0.0e0;
3529
3530 t5015 = t1936 * t2356;
3531 t5025 = t1936 * t2417;
3532 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3533 v4rho2sigma2[11] = -t4987 - 0.2e1 / 0.3e1 * t4988 - 0.2e1 / 0.3e1 * t5015 - t969 * t632 * t1157 * t680 / 0.6e1 + t1948 * t899 * t1157 * t9 / 0.2e1 - t5025 / 0.2e1 - t377 * t899 * t2416 * t273 / 0.2e1;
3534
3535 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3536 v4rho2sigma2[12] = -t4894 - 0.4e1 / 0.3e1 * t5000 - t377 * t654 * t1109 * t703 / 0.6e1 - t377 * t840 * t1109 * t709 / 0.2e1;
3537
3538 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3539 v4rho2sigma2[13] = 0.0e0;
3540
3541 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3542 v4rho2sigma2[14] = 0.0e0;
3543
3544 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3545 v4rho2sigma2[15] = 0.0e0;
3546
3547 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3548 v4rho2sigma2[16] = 0.0e0;
3549
3550 t5062 = t324 * t120;
3551 t5090 = 0.1e1 / t110 / t3852 * t3871;
3552 t5093 = -0.10808888888888888889e-2 * t2025 * t127 + 0.19000888888888888889e-4 * t2028 * t2362 - 0.10240000000000000000e-6 * t57 * t752 * t5062 + 0.17476266666666666668e-9 * t774 * t767 + 0.10808888888888888889e-2 * t61 * t736 * t127 - 0.46648888888888888889e-4 * t61 * t741 * t2362 + 0.53521066666666666669e-6 * t61 * t752 * t5062 - 0.23374506666666666668e-8 * t335 * t767 + 0.34952533333333333335e-11 * t781 * t2019 + 0.27648e-4 * t1148 * t742 - 0.81510400000000000000e-6 * t449 * t753 + 0.77878613333333333336e-8 * t146 * t767 - 0.30365013333333333334e-10 * t340 * t2019 + 0.41943040000000000003e-13 * t788 * t5090;
3553 t5125 = 0.27648e-4 * t1125 * t742 + t1155 * t829 + 0.2e1 * t2413 * t367 + t5093 * t170 + 0.77878613333333333336e-8 * t132 * t767 - 0.30365013333333333334e-10 * t319 * t2019 + 0.41943040000000000003e-13 * t761 * t5090 - 0.10808888888888888889e-2 * t1994 * t127 + 0.19000888888888888889e-4 * t1997 * t2362 - 0.10240000000000000000e-6 * t20 * t752 * t5062 + 0.17476266666666666668e-9 * t740 * t767 + 0.10808888888888888889e-2 * t34 * t736 * t127 - 0.46648888888888888889e-4 * t34 * t741 * t2362 + 0.53521066666666666669e-6 * t34 * t752 * t5062 - 0.23374506666666666668e-8 * t310 * t767 + 0.34952533333333333335e-11 * t749 * t2019 - 0.81510400000000000000e-6 * t430 * t753;
3554 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3555 v4rho2sigma2[17] = -t4987 - 0.4e1 / 0.3e1 * t5015 - t5025 - t377 * t677 * t1157 * t714 / 0.6e1 - t377 * t899 * t2416 * t290 - t377 * t899 * t1157 * t723 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t419 * t5125;
3556
3557 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3558 v4rho2sigmalapl[0] = 0.0e0;
3559
3560 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3561 v4rho2sigmalapl[1] = 0.0e0;
3562
3563 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3564 v4rho2sigmalapl[2] = 0.0e0;
3565
3566 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3567 v4rho2sigmalapl[3] = 0.0e0;
3568
3569 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3570 v4rho2sigmalapl[4] = 0.0e0;
3571
3572 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3573 v4rho2sigmalapl[5] = 0.0e0;
3574
3575 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3576 v4rho2sigmalapl[6] = 0.0e0;
3577
3578 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3579 v4rho2sigmalapl[7] = 0.0e0;
3580
3581 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3582 v4rho2sigmalapl[8] = 0.0e0;
3583
3584 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3585 v4rho2sigmalapl[9] = 0.0e0;
3586
3587 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3588 v4rho2sigmalapl[10] = 0.0e0;
3589
3590 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3591 v4rho2sigmalapl[11] = 0.0e0;
3592
3593 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3594 v4rho2sigmalapl[12] = 0.0e0;
3595
3596 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3597 v4rho2sigmalapl[13] = 0.0e0;
3598
3599 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3600 v4rho2sigmalapl[14] = 0.0e0;
3601
3602 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3603 v4rho2sigmalapl[15] = 0.0e0;
3604
3605 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3606 v4rho2sigmalapl[16] = 0.0e0;
3607
3608 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3609 v4rho2sigmalapl[17] = 0.0e0;
3610
3611 t5130 = t4116 * t1162 / 0.6e1;
3612 t5131 = t2159 * t2423;
3613 t5133 = t1936 * t2427;
3614 t5134 = t1936 * t2431;
3615 t5135 = t494 * t413;
3616 t5139 = t15 * t890;
3617 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3618 v4rho2sigmatau[0] = -t5130 - 0.4e1 / 0.3e1 * t5131 - t5133 - t5134 - t969 * t5135 * t2071 / 0.6e1 - t969 * t5139 * t971 - t969 * t2422 * t2078 - t969 * t2422 * t2081 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t1910 * t470 - 0.3e1 / 0.4e1 * t377 * t378 * t890 * t1007 - 0.3e1 / 0.8e1 * t377 * t378 * t413 * t2134;
3619
3620 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3621 v4rho2sigmatau[1] = 0.0e0;
3622
3623 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3624 v4rho2sigmatau[2] = 0.0e0;
3625
3626 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3627 v4rho2sigmatau[3] = 0.0e0;
3628
3629 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3630 v4rho2sigmatau[4] = 0.0e0;
3631
3632 t5160 = t4116 * t1166 / 0.6e1;
3633 t5161 = t2159 * t2436;
3634 t5163 = t632 * t454;
3635 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3636 v4rho2sigmatau[5] = -t5160 - 0.4e1 / 0.3e1 * t5161 - t969 * t5163 * t2148 / 0.6e1 - t969 * t2435 * t2152 / 0.2e1;
3637
3638 t5173 = t2159 * t2439;
3639 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3640 v4rho2sigmatau[6] = -t5130 - 0.2e1 / 0.3e1 * t5131 - t5133 / 0.2e1 - t5134 / 0.2e1 - 0.2e1 / 0.3e1 * t5173 - t969 * t5135 * t2162 / 0.6e1 - t969 * t5139 * t1019 / 0.2e1 - t969 * t2422 * t2169 / 0.2e1 - t2173 * t2422 * t2174 / 0.2e1;
3641
3642 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3643 v4rho2sigmatau[7] = 0.0e0;
3644
3645 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3646 v4rho2sigmatau[8] = 0.0e0;
3647
3648 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3649 v4rho2sigmatau[9] = 0.0e0;
3650
3651 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3652 v4rho2sigmatau[10] = 0.0e0;
3653
3654 t5188 = t2159 * t2443;
3655 t5196 = t1936 * t2447;
3656 t5198 = t104 * t958;
3657 t5202 = t1936 * t2451;
3658 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3659 v4rho2sigmatau[11] = -t5160 - 0.2e1 / 0.3e1 * t5161 - 0.2e1 / 0.3e1 * t5188 - t969 * t5163 * t2181 / 0.6e1 + t2173 * t2435 * t2185 / 0.2e1 - t5196 / 0.2e1 - t969 * t5198 * t1015 / 0.2e1 - t5202 / 0.2e1 - t969 * t2435 * t2197 / 0.2e1;
3660
3661 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3662 v4rho2sigmatau[12] = -t5130 - 0.4e1 / 0.3e1 * t5173 - t969 * t5135 * t2202 / 0.6e1 - t969 * t2422 * t2206 / 0.2e1;
3663
3664 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3665 v4rho2sigmatau[13] = 0.0e0;
3666
3667 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3668 v4rho2sigmatau[14] = 0.0e0;
3669
3670 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3671 v4rho2sigmatau[15] = 0.0e0;
3672
3673 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3674 v4rho2sigmatau[16] = 0.0e0;
3675
3676 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3677 v4rho2sigmatau[17] = -t5160 - 0.4e1 / 0.3e1 * t5188 - t5196 - t5202 - t969 * t5163 * t2211 / 0.6e1 - t969 * t5198 * t1024 - t969 * t2435 * t2217 - t969 * t2435 * t2220 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t419 * t2049 * t485 - 0.3e1 / 0.4e1 * t377 * t419 * t958 * t1060 - 0.3e1 / 0.8e1 * t377 * t419 * t454 * t2273;
3678
3679 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3680 v4rho2lapl2[0] = 0.0e0;
3681
3682 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3683 v4rho2lapl2[1] = 0.0e0;
3684
3685 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3686 v4rho2lapl2[2] = 0.0e0;
3687
3688 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3689 v4rho2lapl2[3] = 0.0e0;
3690
3691 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3692 v4rho2lapl2[4] = 0.0e0;
3693
3694 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3695 v4rho2lapl2[5] = 0.0e0;
3696
3697 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3698 v4rho2lapl2[6] = 0.0e0;
3699
3700 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3701 v4rho2lapl2[7] = 0.0e0;
3702
3703 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3704 v4rho2lapl2[8] = 0.0e0;
3705
3706 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3707 v4rho2lapltau[0] = 0.0e0;
3708
3709 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3710 v4rho2lapltau[1] = 0.0e0;
3711
3712 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3713 v4rho2lapltau[2] = 0.0e0;
3714
3715 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3716 v4rho2lapltau[3] = 0.0e0;
3717
3718 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3719 v4rho2lapltau[4] = 0.0e0;
3720
3721 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3722 v4rho2lapltau[5] = 0.0e0;
3723
3724 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3725 v4rho2lapltau[6] = 0.0e0;
3726
3727 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3728 v4rho2lapltau[7] = 0.0e0;
3729
3730 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3731 v4rho2lapltau[8] = 0.0e0;
3732
3733 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3734 v4rho2lapltau[9] = 0.0e0;
3735
3736 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3737 v4rho2lapltau[10] = 0.0e0;
3738
3739 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3740 v4rho2lapltau[11] = 0.0e0;
3741
3742 t5238 = t4116 * t1185 / 0.6e1;
3743 t5239 = t2159 * t2457;
3744 t5241 = t1936 * t2461;
3745 t5242 = t1936 * t2492;
3746 t5268 = 0.1e1 / t24 / t49;
3747 t5272 = t2093 * tau[0];
3748 t5283 = t5268 * t594;
3749 t5304 = 0.260e3 / 0.9e1 * t2117 + 0.280e3 / 0.3e1 * t2120 * tau[0] - 0.1000e4 / 0.3e1 * t5268 * t254 * t594 - 0.9800e4 / 0.3e1 * t1304 * t5272 + 0.4760e4 / 0.3e1 * t1335 * t5272 + 0.7280e4 / 0.3e1 * t1291 * t5272 - 0.2800e4 * t1296 * t5272 - 0.7000e4 * t1299 * t5272 - 0.2000e4 / 0.3e1 * t2872 * t5283 - 0.520e3 * t603 * t40 + 0.8000e4 * t2875 * t5283 - 0.520e3 / 0.9e1 * t608 * t40 + 0.35000e5 / 0.3e1 * t2878 * t5283 + 0.6500e4 / 0.9e1 * t613 * t40 + 0.14000e5 / 0.3e1 * t2883 * t5283 + 0.1300e4 / 0.3e1 * t620 * t40 - 0.2000e4 * t2867 * t5283 - 0.1300e4 / 0.9e1 * t598 * t40;
3750 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3751 v4rho2tau2[0] = -t5238 - 0.4e1 / 0.3e1 * t5239 - t5241 - t5242 - t969 * t2070 * t1183 * t496 / 0.6e1 - t969 * t2075 * t2456 - t969 * t970 * t2490 * t183 - t969 * t970 * t1183 * t511 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t587 * t1183 - 0.3e1 / 0.4e1 * t377 * t378 * t242 * t2490 - 0.3e1 / 0.8e1 * t377 * t378 * t69 * t5304;
3752
3753 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3754 v4rho2tau2[1] = 0.0e0;
3755
3756 t5310 = t4116 * t1204 / 0.6e1;
3757 t5311 = t2159 * t2497;
3758 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3759 v4rho2tau2[2] = -t5310 - 0.4e1 / 0.3e1 * t5311 - t969 * t2147 * t1202 * t634 / 0.6e1 - t969 * t1014 * t1202 * t643 / 0.2e1;
3760
3761 t5324 = t2159 * t2501;
3762 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3763 v4rho2tau2[3] = -t5238 - 0.2e1 / 0.3e1 * t5239 - t5241 / 0.2e1 - t5242 / 0.2e1 - 0.2e1 / 0.3e1 * t5324 - t969 * t2070 * t2500 * t183 / 0.6e1 - t969 * t2075 * t2500 / 0.2e1 - t969 * t970 * t2490 * t285 / 0.2e1 - t2173 * t970 * t1183 * t9 / 0.2e1;
3764
3765 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3766 v4rho2tau2[4] = 0.0e0;
3767
3768 t5342 = t2159 * t2506;
3769 t5352 = t1936 * t2510;
3770 t5357 = t1936 * t2541;
3771 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3772 v4rho2tau2[5] = -t5310 - 0.2e1 / 0.3e1 * t5311 - 0.2e1 / 0.3e1 * t5342 - t969 * t2147 * t2505 * t273 / 0.6e1 + t2173 * t1014 * t1202 * t9 / 0.2e1 - t5352 / 0.2e1 - t969 * t2191 * t2496 / 0.2e1 - t5357 / 0.2e1 - t969 * t1014 * t2539 * t273 / 0.2e1;
3773
3774 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3775 v4rho2tau2[6] = -t5238 - 0.4e1 / 0.3e1 * t5324 - t969 * t2070 * t1183 * t703 / 0.6e1 - t969 * t970 * t1183 * t709 / 0.2e1;
3776
3777 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3778 v4rho2tau2[7] = 0.0e0;
3779
3780 t5394 = t2243 * tau[1];
3781 t5409 = 0.1e1 / t110 / t133;
3782 t5413 = t5409 * t798;
3783 t5434 = 0.4760e4 / 0.3e1 * t1736 * t5394 + 0.7280e4 / 0.3e1 * t1739 * t5394 - 0.2800e4 * t1742 * t5394 - 0.7000e4 * t1745 * t5394 - 0.9800e4 / 0.3e1 * t1750 * t5394 + 0.260e3 / 0.9e1 * t2267 + 0.280e3 / 0.3e1 * t2270 * tau[1] - 0.1000e4 / 0.3e1 * t5409 * t355 * t798 - 0.2000e4 * t3751 * t5413 - 0.1300e4 / 0.9e1 * t802 * t125 - 0.2000e4 / 0.3e1 * t3756 * t5413 - 0.520e3 * t807 * t125 + 0.8000e4 * t3759 * t5413 - 0.520e3 / 0.9e1 * t812 * t125 + 0.35000e5 / 0.3e1 * t3762 * t5413 + 0.6500e4 / 0.9e1 * t817 * t125 + 0.14000e5 / 0.3e1 * t3767 * t5413 + 0.1300e4 / 0.3e1 * t824 * t125;
3784 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3785 v4rho2tau2[8] = -t5310 - 0.4e1 / 0.3e1 * t5342 - t5352 - t5357 - t969 * t2147 * t1202 * t714 / 0.6e1 - t969 * t2191 * t2505 - t969 * t1014 * t2539 * t290 - t969 * t1014 * t1202 * t723 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t419 * t791 * t1202 - 0.3e1 / 0.4e1 * t377 * t419 * t343 * t2539 - 0.3e1 / 0.8e1 * t377 * t419 * t149 * t5434;
3786
3787 t5439 = t1936 * t2591;
3788 t5448 = t223 * sigma[0];
3789 t5474 = 0.1e1 / t24 / t1251 * t2958;
3790 t5505 = -0.3072e-5 * t2315 * t52 + 0.28672000000000000000e-7 * t57 * t221 * t5448 - 0.65536000000000000002e-10 * t229 * t867 + 0.6144e-5 * t2323 * t52 - 0.12288000000000000000e-6 * t61 * t221 * t5448 + 0.72089600000000000001e-9 * t62 * t867 - 0.13107200000000000000e-11 * t234 * t2310 - 0.3072e-5 * t65 * t211 * t52 + 0.15974400000000000000e-6 * t65 * t221 * t5448 - 0.20643840000000000000e-8 * t408 * t867 + 0.98304000000000000002e-11 * t66 * t2310 - 0.15728640000000000000e-13 * t239 * t5474;
3791 t5508 = -0.3072e-5 * t2286 * t52 + 0.28672000000000000000e-7 * t20 * t221 * t5448 - 0.65536000000000000002e-10 * t200 * t867 + 0.6144e-5 * t2295 * t52 - 0.12288000000000000000e-6 * t34 * t221 * t5448 + 0.72089600000000000001e-9 * t36 * t867 - 0.13107200000000000000e-11 * t209 * t2310 - 0.3072e-5 * t46 * t211 * t52 + 0.15974400000000000000e-6 * t46 * t221 * t5448 - 0.20643840000000000000e-8 * t389 * t867 + 0.98304000000000000002e-11 * t48 * t2310 - 0.15728640000000000000e-13 * t218 * t5474 + t5505 * t97 + t2588 * t266;
3792 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3793 v4rhosigma3[0] = -t5439 / 0.2e1 - t377 * t840 * t2590 * t183 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t5508;
3794
3795 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3796 v4rhosigma3[1] = 0.0e0;
3797
3798 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3799 v4rhosigma3[2] = 0.0e0;
3800
3801 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3802 v4rhosigma3[3] = 0.0e0;
3803
3804 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3805 v4rhosigma3[4] = 0.0e0;
3806
3807 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3808 v4rhosigma3[5] = 0.0e0;
3809
3810 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3811 v4rhosigma3[6] = 0.0e0;
3812
3813 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3814 v4rhosigma3[7] = 0.0e0;
3815
3816 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3817 v4rhosigma3[8] = 0.0e0;
3818
3819 t5512 = t1936 * t2641;
3820 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3821 v4rhosigma3[9] = -t377 * t899 * t2640 * t273 / 0.2e1 - t5512 / 0.2e1;
3822
3823 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3824 v4rhosigma3[10] = -t377 * t840 * t2590 * t285 / 0.2e1 - t5439 / 0.2e1;
3825
3826 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3827 v4rhosigma3[11] = 0.0e0;
3828
3829 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3830 v4rhosigma3[12] = 0.0e0;
3831
3832 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3833 v4rhosigma3[13] = 0.0e0;
3834
3835 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3836 v4rhosigma3[14] = 0.0e0;
3837
3838 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3839 v4rhosigma3[15] = 0.0e0;
3840
3841 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3842 v4rhosigma3[16] = 0.0e0;
3843
3844 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3845 v4rhosigma3[17] = 0.0e0;
3846
3847 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3848 v4rhosigma3[18] = 0.0e0;
3849
3850 t5529 = t324 * sigma[2];
3851 t5555 = 0.1e1 / t110 / t1686 * t3871;
3852 t5586 = -0.3072e-5 * t2390 * t136 + 0.28672000000000000000e-7 * t57 * t322 * t5529 - 0.65536000000000000002e-10 * t330 * t935 + 0.6144e-5 * t2398 * t136 - 0.12288000000000000000e-6 * t61 * t322 * t5529 + 0.72089600000000000001e-9 * t143 * t935 - 0.13107200000000000000e-11 * t335 * t2385 - 0.3072e-5 * t65 * t312 * t136 + 0.15974400000000000000e-6 * t65 * t322 * t5529 - 0.20643840000000000000e-8 * t449 * t935 + 0.98304000000000000002e-11 * t146 * t2385 - 0.15728640000000000000e-13 * t340 * t5555;
3853 t5589 = -0.3072e-5 * t2361 * t136 + 0.28672000000000000000e-7 * t20 * t322 * t5529 - 0.65536000000000000002e-10 * t301 * t935 + 0.6144e-5 * t2370 * t136 - 0.12288000000000000000e-6 * t34 * t322 * t5529 + 0.72089600000000000001e-9 * t121 * t935 - 0.13107200000000000000e-11 * t310 * t2385 - 0.3072e-5 * t46 * t312 * t136 + 0.15974400000000000000e-6 * t46 * t322 * t5529 - 0.20643840000000000000e-8 * t430 * t935 + 0.98304000000000000002e-11 * t132 * t2385 - 0.15728640000000000000e-13 * t319 * t5555 + t5586 * t170 + t2638 * t367;
3854 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3855 v4rhosigma3[19] = -t5512 / 0.2e1 - t377 * t899 * t2640 * t290 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t419 * t5589;
3856
3857 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3858 v4rhosigma2lapl[0] = 0.0e0;
3859
3860 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3861 v4rhosigma2lapl[1] = 0.0e0;
3862
3863 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3864 v4rhosigma2lapl[2] = 0.0e0;
3865
3866 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3867 v4rhosigma2lapl[3] = 0.0e0;
3868
3869 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3870 v4rhosigma2lapl[4] = 0.0e0;
3871
3872 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3873 v4rhosigma2lapl[5] = 0.0e0;
3874
3875 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3876 v4rhosigma2lapl[6] = 0.0e0;
3877
3878 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3879 v4rhosigma2lapl[7] = 0.0e0;
3880
3881 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3882 v4rhosigma2lapl[8] = 0.0e0;
3883
3884 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3885 v4rhosigma2lapl[9] = 0.0e0;
3886
3887 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3888 v4rhosigma2lapl[10] = 0.0e0;
3889
3890 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3891 v4rhosigma2lapl[11] = 0.0e0;
3892
3893 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3894 v4rhosigma2lapl[12] = 0.0e0;
3895
3896 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3897 v4rhosigma2lapl[13] = 0.0e0;
3898
3899 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3900 v4rhosigma2lapl[14] = 0.0e0;
3901
3902 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3903 v4rhosigma2lapl[15] = 0.0e0;
3904
3905 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3906 v4rhosigma2lapl[16] = 0.0e0;
3907
3908 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3909 v4rhosigma2lapl[17] = 0.0e0;
3910
3911 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3912 v4rhosigma2lapl[18] = 0.0e0;
3913
3914 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3915 v4rhosigma2lapl[19] = 0.0e0;
3916
3917 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3918 v4rhosigma2lapl[20] = 0.0e0;
3919
3920 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3921 v4rhosigma2lapl[21] = 0.0e0;
3922
3923 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3924 v4rhosigma2lapl[22] = 0.0e0;
3925
3926 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3927 v4rhosigma2lapl[23] = 0.0e0;
3928
3929 t5593 = t1936 * t2645;
3930 t5595 = t15 * t1107;
3931 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3932 v4rhosigma2tau[0] = -t5593 / 0.2e1 - t969 * t5595 * t971 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t2338 * t470 - 0.3e1 / 0.8e1 * t377 * t378 * t1107 * t1007;
3933
3934 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3935 v4rhosigma2tau[1] = 0.0e0;
3936
3937 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3938 v4rhosigma2tau[2] = 0.0e0;
3939
3940 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3941 v4rhosigma2tau[3] = 0.0e0;
3942
3943 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3944 v4rhosigma2tau[4] = 0.0e0;
3945
3946 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3947 v4rhosigma2tau[5] = 0.0e0;
3948
3949 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3950 v4rhosigma2tau[6] = 0.0e0;
3951
3952 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3953 v4rhosigma2tau[7] = 0.0e0;
3954
3955 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3956 v4rhosigma2tau[8] = 0.0e0;
3957
3958 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3959 v4rhosigma2tau[9] = 0.0e0;
3960
3961 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3962 v4rhosigma2tau[10] = 0.0e0;
3963
3964 t5607 = t1936 * t2649;
3965 t5608 = t104 * t1155;
3966 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3967 v4rhosigma2tau[11] = -t969 * t5608 * t1015 / 0.2e1 - t5607 / 0.2e1;
3968
3969 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3970 v4rhosigma2tau[12] = -t969 * t5595 * t1019 / 0.2e1 - t5593 / 0.2e1;
3971
3972 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3973 v4rhosigma2tau[13] = 0.0e0;
3974
3975 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3976 v4rhosigma2tau[14] = 0.0e0;
3977
3978 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3979 v4rhosigma2tau[15] = 0.0e0;
3980
3981 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3982 v4rhosigma2tau[16] = 0.0e0;
3983
3984 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3985 v4rhosigma2tau[17] = 0.0e0;
3986
3987 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3988 v4rhosigma2tau[18] = 0.0e0;
3989
3990 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3991 v4rhosigma2tau[19] = 0.0e0;
3992
3993 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3994 v4rhosigma2tau[20] = 0.0e0;
3995
3996 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3997 v4rhosigma2tau[21] = 0.0e0;
3998
3999 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4000 v4rhosigma2tau[22] = 0.0e0;
4001
4002 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4003 v4rhosigma2tau[23] = -t5607 / 0.2e1 - t969 * t5608 * t1024 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t419 * t2413 * t485 - 0.3e1 / 0.8e1 * t377 * t419 * t1155 * t1060;
4004
4005 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4006 v4rhosigmalapl2[0] = 0.0e0;
4007
4008 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4009 v4rhosigmalapl2[1] = 0.0e0;
4010
4011 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4012 v4rhosigmalapl2[2] = 0.0e0;
4013
4014 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4015 v4rhosigmalapl2[3] = 0.0e0;
4016
4017 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4018 v4rhosigmalapl2[4] = 0.0e0;
4019
4020 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4021 v4rhosigmalapl2[5] = 0.0e0;
4022
4023 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4024 v4rhosigmalapl2[6] = 0.0e0;
4025
4026 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4027 v4rhosigmalapl2[7] = 0.0e0;
4028
4029 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4030 v4rhosigmalapl2[8] = 0.0e0;
4031
4032 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4033 v4rhosigmalapl2[9] = 0.0e0;
4034
4035 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4036 v4rhosigmalapl2[10] = 0.0e0;
4037
4038 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4039 v4rhosigmalapl2[11] = 0.0e0;
4040
4041 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4042 v4rhosigmalapl2[12] = 0.0e0;
4043
4044 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4045 v4rhosigmalapl2[13] = 0.0e0;
4046
4047 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4048 v4rhosigmalapl2[14] = 0.0e0;
4049
4050 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4051 v4rhosigmalapl2[15] = 0.0e0;
4052
4053 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4054 v4rhosigmalapl2[16] = 0.0e0;
4055
4056 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4057 v4rhosigmalapl2[17] = 0.0e0;
4058
4059 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4060 v4rhosigmalapltau[0] = 0.0e0;
4061
4062 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4063 v4rhosigmalapltau[1] = 0.0e0;
4064
4065 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4066 v4rhosigmalapltau[2] = 0.0e0;
4067
4068 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4069 v4rhosigmalapltau[3] = 0.0e0;
4070
4071 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4072 v4rhosigmalapltau[4] = 0.0e0;
4073
4074 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4075 v4rhosigmalapltau[5] = 0.0e0;
4076
4077 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4078 v4rhosigmalapltau[6] = 0.0e0;
4079
4080 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4081 v4rhosigmalapltau[7] = 0.0e0;
4082
4083 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4084 v4rhosigmalapltau[8] = 0.0e0;
4085
4086 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4087 v4rhosigmalapltau[9] = 0.0e0;
4088
4089 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4090 v4rhosigmalapltau[10] = 0.0e0;
4091
4092 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4093 v4rhosigmalapltau[11] = 0.0e0;
4094
4095 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4096 v4rhosigmalapltau[12] = 0.0e0;
4097
4098 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4099 v4rhosigmalapltau[13] = 0.0e0;
4100
4101 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4102 v4rhosigmalapltau[14] = 0.0e0;
4103
4104 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4105 v4rhosigmalapltau[15] = 0.0e0;
4106
4107 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4108 v4rhosigmalapltau[16] = 0.0e0;
4109
4110 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4111 v4rhosigmalapltau[17] = 0.0e0;
4112
4113 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4114 v4rhosigmalapltau[18] = 0.0e0;
4115
4116 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4117 v4rhosigmalapltau[19] = 0.0e0;
4118
4119 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4120 v4rhosigmalapltau[20] = 0.0e0;
4121
4122 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4123 v4rhosigmalapltau[21] = 0.0e0;
4124
4125 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4126 v4rhosigmalapltau[22] = 0.0e0;
4127
4128 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4129 v4rhosigmalapltau[23] = 0.0e0;
4130
4131 t5627 = t1936 * t2653;
4132 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4133 v4rhosigmatau2[0] = -t5627 / 0.2e1 - t969 * t2422 * t2456 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t890 * t1183 - 0.3e1 / 0.8e1 * t377 * t378 * t413 * t2490;
4134
4135 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4136 v4rhosigmatau2[1] = 0.0e0;
4137
4138 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4139 v4rhosigmatau2[2] = 0.0e0;
4140
4141 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4142 v4rhosigmatau2[3] = 0.0e0;
4143
4144 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4145 v4rhosigmatau2[4] = 0.0e0;
4146
4147 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4148 v4rhosigmatau2[5] = 0.0e0;
4149
4150 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4151 v4rhosigmatau2[6] = 0.0e0;
4152
4153 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4154 v4rhosigmatau2[7] = 0.0e0;
4155
4156 t5640 = t1936 * t2657;
4157 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4158 v4rhosigmatau2[8] = -t969 * t2435 * t2496 / 0.2e1 - t5640 / 0.2e1;
4159
4160 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4161 v4rhosigmatau2[9] = -t969 * t2422 * t2500 / 0.2e1 - t5627 / 0.2e1;
4162
4163 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4164 v4rhosigmatau2[10] = 0.0e0;
4165
4166 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4167 v4rhosigmatau2[11] = 0.0e0;
4168
4169 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4170 v4rhosigmatau2[12] = 0.0e0;
4171
4172 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4173 v4rhosigmatau2[13] = 0.0e0;
4174
4175 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4176 v4rhosigmatau2[14] = 0.0e0;
4177
4178 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4179 v4rhosigmatau2[15] = 0.0e0;
4180
4181 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4182 v4rhosigmatau2[16] = 0.0e0;
4183
4184 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4185 v4rhosigmatau2[17] = -t5640 / 0.2e1 - t969 * t2435 * t2505 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t419 * t958 * t1202 - 0.3e1 / 0.8e1 * t377 * t419 * t454 * t2539;
4186
4187 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4188 v4rholapl3[0] = 0.0e0;
4189
4190 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4191 v4rholapl3[1] = 0.0e0;
4192
4193 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4194 v4rholapl3[2] = 0.0e0;
4195
4196 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4197 v4rholapl3[3] = 0.0e0;
4198
4199 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4200 v4rholapl3[4] = 0.0e0;
4201
4202 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4203 v4rholapl3[5] = 0.0e0;
4204
4205 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4206 v4rholapl3[6] = 0.0e0;
4207
4208 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4209 v4rholapl3[7] = 0.0e0;
4210
4211 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4212 v4rholapl2tau[0] = 0.0e0;
4213
4214 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4215 v4rholapl2tau[1] = 0.0e0;
4216
4217 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4218 v4rholapl2tau[2] = 0.0e0;
4219
4220 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4221 v4rholapl2tau[3] = 0.0e0;
4222
4223 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4224 v4rholapl2tau[4] = 0.0e0;
4225
4226 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4227 v4rholapl2tau[5] = 0.0e0;
4228
4229 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4230 v4rholapl2tau[6] = 0.0e0;
4231
4232 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4233 v4rholapl2tau[7] = 0.0e0;
4234
4235 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4236 v4rholapl2tau[8] = 0.0e0;
4237
4238 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4239 v4rholapl2tau[9] = 0.0e0;
4240
4241 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4242 v4rholapl2tau[10] = 0.0e0;
4243
4244 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4245 v4rholapl2tau[11] = 0.0e0;
4246
4247 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4248 v4rholapltau2[0] = 0.0e0;
4249
4250 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4251 v4rholapltau2[1] = 0.0e0;
4252
4253 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4254 v4rholapltau2[2] = 0.0e0;
4255
4256 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4257 v4rholapltau2[3] = 0.0e0;
4258
4259 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4260 v4rholapltau2[4] = 0.0e0;
4261
4262 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4263 v4rholapltau2[5] = 0.0e0;
4264
4265 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4266 v4rholapltau2[6] = 0.0e0;
4267
4268 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4269 v4rholapltau2[7] = 0.0e0;
4270
4271 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4272 v4rholapltau2[8] = 0.0e0;
4273
4274 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4275 v4rholapltau2[9] = 0.0e0;
4276
4277 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4278 v4rholapltau2[10] = 0.0e0;
4279
4280 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4281 v4rholapltau2[11] = 0.0e0;
4282
4283 t5659 = t1936 * t2675;
4284 t5671 = 0.1e1 / t24 / t530;
4285 t5675 = t5671 * tau[0];
4286 t5696 = 0.200e3 * t5671 * t254 * tau[0] - 0.780e3 * t1291 * t2465 + 0.900e3 * t1296 * t2465 + 0.2250e4 * t1299 * t2465 + 0.1050e4 * t1304 * t2465 - 0.510e3 * t1335 * t2465 + 0.1200e4 * t2867 * t5675 + 0.400e3 * t2872 * t5675 - 0.4800e4 * t2875 * t5675 - 0.7000e4 * t2878 * t5675 - 0.2800e4 * t2883 * t5675 - 0.30e2 * t2466;
4287 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4288 v4rhotau3[0] = -t5659 / 0.2e1 - t969 * t970 * t2673 * t183 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t378 * t242 * t2673 - 0.3e1 / 0.8e1 * t377 * t378 * t69 * t5696;
4289
4290 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4291 v4rhotau3[1] = 0.0e0;
4292
4293 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4294 v4rhotau3[2] = 0.0e0;
4295
4296 t5701 = t1936 * t2693;
4297 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4298 v4rhotau3[3] = -t969 * t1014 * t2691 * t273 / 0.2e1 - t5701 / 0.2e1;
4299
4300 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4301 v4rhotau3[4] = -t969 * t970 * t2673 * t285 / 0.2e1 - t5659 / 0.2e1;
4302
4303 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4304 v4rhotau3[5] = 0.0e0;
4305
4306 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4307 v4rhotau3[6] = 0.0e0;
4308
4309 t5721 = 0.1e1 / t110 / t734;
4310 t5725 = t5721 * tau[1];
4311 t5746 = 0.200e3 * t5721 * t355 * tau[1] - 0.510e3 * t1736 * t2514 - 0.780e3 * t1739 * t2514 + 0.900e3 * t1742 * t2514 + 0.2250e4 * t1745 * t2514 + 0.1050e4 * t1750 * t2514 + 0.1200e4 * t3751 * t5725 + 0.400e3 * t3756 * t5725 - 0.4800e4 * t3759 * t5725 - 0.7000e4 * t3762 * t5725 - 0.2800e4 * t3767 * t5725 - 0.30e2 * t2515;
4312 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4313 v4rhotau3[7] = -t5701 / 0.2e1 - t969 * t1014 * t2691 * t290 / 0.2e1 - 0.3e1 / 0.8e1 * t377 * t419 * t343 * t2691 - 0.3e1 / 0.8e1 * t377 * t419 * t149 * t5746;
4314
4315 t5772 = 0.1e1 / t24 / t1878 * t2958;
4316 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4317 v4sigma4[0] = -0.3e1 / 0.8e1 * t377 * t378 * (-0.6144e-8 * t20 * t394 * t223 + 0.24576e-10 * t21 * t1085 + 0.18432e-7 * t34 * t394 * t223 - 0.196608e-9 * t384 * t1085 + 0.491520e-12 * t36 * t2564 - 0.18432e-7 * t46 * t394 * t223 + 0.442368e-9 * t1077 * t1085 - 0.2949120e-11 * t389 * t2564 + 0.5898240e-14 * t48 * t5772 + (-0.6144e-8 * t57 * t394 * t223 + 0.24576e-10 * t58 * t1085 + 0.18432e-7 * t61 * t394 * t223 - 0.196608e-9 * t403 * t1085 + 0.491520e-12 * t62 * t2564 - 0.18432e-7 * t65 * t394 * t223 + 0.442368e-9 * t1100 * t1085 - 0.2949120e-11 * t408 * t2564 + 0.5898240e-14 * t66 * t5772) * t97);
4318
4319 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4320 v4sigma4[1] = 0.0e0;
4321
4322 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4323 v4sigma4[2] = 0.0e0;
4324
4325 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4326 v4sigma4[3] = 0.0e0;
4327
4328 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4329 v4sigma4[4] = 0.0e0;
4330
4331 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4332 v4sigma4[5] = 0.0e0;
4333
4334 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4335 v4sigma4[6] = 0.0e0;
4336
4337 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4338 v4sigma4[7] = 0.0e0;
4339
4340 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4341 v4sigma4[8] = 0.0e0;
4342
4343 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4344 v4sigma4[9] = 0.0e0;
4345
4346 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4347 v4sigma4[10] = 0.0e0;
4348
4349 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4350 v4sigma4[11] = 0.0e0;
4351
4352 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4353 v4sigma4[12] = 0.0e0;
4354
4355 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4356 v4sigma4[13] = 0.0e0;
4357
4358 t5823 = 0.1e1 / t110 / t2017 * t3871;
4359 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4360 v4sigma4[14] = -0.3e1 / 0.8e1 * t377 * t419 * (-0.6144e-8 * t20 * t435 * t324 + 0.24576e-10 * t107 * t1133 + 0.18432e-7 * t34 * t435 * t324 - 0.196608e-9 * t425 * t1133 + 0.491520e-12 * t121 * t2614 - 0.18432e-7 * t46 * t435 * t324 + 0.442368e-9 * t1125 * t1133 - 0.2949120e-11 * t430 * t2614 + 0.5898240e-14 * t132 * t5823 + (-0.6144e-8 * t57 * t435 * t324 + 0.24576e-10 * t140 * t1133 + 0.18432e-7 * t61 * t435 * t324 - 0.196608e-9 * t444 * t1133 + 0.491520e-12 * t143 * t2614 - 0.18432e-7 * t65 * t435 * t324 + 0.442368e-9 * t1148 * t1133 - 0.2949120e-11 * t449 * t2614 + 0.5898240e-14 * t146 * t5823) * t170);
4361
4362 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4363 v4sigma3lapl[0] = 0.0e0;
4364
4365 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4366 v4sigma3lapl[1] = 0.0e0;
4367
4368 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4369 v4sigma3lapl[2] = 0.0e0;
4370
4371 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4372 v4sigma3lapl[3] = 0.0e0;
4373
4374 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4375 v4sigma3lapl[4] = 0.0e0;
4376
4377 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4378 v4sigma3lapl[5] = 0.0e0;
4379
4380 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4381 v4sigma3lapl[6] = 0.0e0;
4382
4383 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4384 v4sigma3lapl[7] = 0.0e0;
4385
4386 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4387 v4sigma3lapl[8] = 0.0e0;
4388
4389 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4390 v4sigma3lapl[9] = 0.0e0;
4391
4392 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4393 v4sigma3lapl[10] = 0.0e0;
4394
4395 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4396 v4sigma3lapl[11] = 0.0e0;
4397
4398 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4399 v4sigma3lapl[12] = 0.0e0;
4400
4401 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4402 v4sigma3lapl[13] = 0.0e0;
4403
4404 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4405 v4sigma3lapl[14] = 0.0e0;
4406
4407 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4408 v4sigma3lapl[15] = 0.0e0;
4409
4410 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4411 v4sigma3lapl[16] = 0.0e0;
4412
4413 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4414 v4sigma3lapl[17] = 0.0e0;
4415
4416 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4417 v4sigma3lapl[18] = 0.0e0;
4418
4419 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4420 v4sigma3lapl[19] = 0.0e0;
4421
4422 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4423 v4sigma3tau[0] = -0.3e1 / 0.8e1 * t377 * t378 * t2588 * t470;
4424
4425 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4426 v4sigma3tau[1] = 0.0e0;
4427
4428 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4429 v4sigma3tau[2] = 0.0e0;
4430
4431 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4432 v4sigma3tau[3] = 0.0e0;
4433
4434 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4435 v4sigma3tau[4] = 0.0e0;
4436
4437 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4438 v4sigma3tau[5] = 0.0e0;
4439
4440 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4441 v4sigma3tau[6] = 0.0e0;
4442
4443 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4444 v4sigma3tau[7] = 0.0e0;
4445
4446 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4447 v4sigma3tau[8] = 0.0e0;
4448
4449 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4450 v4sigma3tau[9] = 0.0e0;
4451
4452 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4453 v4sigma3tau[10] = 0.0e0;
4454
4455 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4456 v4sigma3tau[11] = 0.0e0;
4457
4458 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4459 v4sigma3tau[12] = 0.0e0;
4460
4461 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4462 v4sigma3tau[13] = 0.0e0;
4463
4464 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4465 v4sigma3tau[14] = 0.0e0;
4466
4467 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4468 v4sigma3tau[15] = 0.0e0;
4469
4470 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4471 v4sigma3tau[16] = 0.0e0;
4472
4473 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4474 v4sigma3tau[17] = 0.0e0;
4475
4476 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4477 v4sigma3tau[18] = 0.0e0;
4478
4479 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4480 v4sigma3tau[19] = -0.3e1 / 0.8e1 * t377 * t419 * t2638 * t485;
4481
4482 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4483 v4sigma2lapl2[0] = 0.0e0;
4484
4485 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4486 v4sigma2lapl2[1] = 0.0e0;
4487
4488 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4489 v4sigma2lapl2[2] = 0.0e0;
4490
4491 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4492 v4sigma2lapl2[3] = 0.0e0;
4493
4494 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4495 v4sigma2lapl2[4] = 0.0e0;
4496
4497 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4498 v4sigma2lapl2[5] = 0.0e0;
4499
4500 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4501 v4sigma2lapl2[6] = 0.0e0;
4502
4503 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4504 v4sigma2lapl2[7] = 0.0e0;
4505
4506 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4507 v4sigma2lapl2[8] = 0.0e0;
4508
4509 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4510 v4sigma2lapl2[9] = 0.0e0;
4511
4512 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4513 v4sigma2lapl2[10] = 0.0e0;
4514
4515 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4516 v4sigma2lapl2[11] = 0.0e0;
4517
4518 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4519 v4sigma2lapl2[12] = 0.0e0;
4520
4521 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4522 v4sigma2lapl2[13] = 0.0e0;
4523
4524 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4525 v4sigma2lapl2[14] = 0.0e0;
4526
4527 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4528 v4sigma2lapl2[15] = 0.0e0;
4529
4530 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4531 v4sigma2lapl2[16] = 0.0e0;
4532
4533 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4534 v4sigma2lapl2[17] = 0.0e0;
4535
4536 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4537 v4sigma2lapltau[0] = 0.0e0;
4538
4539 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4540 v4sigma2lapltau[1] = 0.0e0;
4541
4542 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4543 v4sigma2lapltau[2] = 0.0e0;
4544
4545 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4546 v4sigma2lapltau[3] = 0.0e0;
4547
4548 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4549 v4sigma2lapltau[4] = 0.0e0;
4550
4551 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4552 v4sigma2lapltau[5] = 0.0e0;
4553
4554 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4555 v4sigma2lapltau[6] = 0.0e0;
4556
4557 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4558 v4sigma2lapltau[7] = 0.0e0;
4559
4560 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4561 v4sigma2lapltau[8] = 0.0e0;
4562
4563 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4564 v4sigma2lapltau[9] = 0.0e0;
4565
4566 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4567 v4sigma2lapltau[10] = 0.0e0;
4568
4569 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4570 v4sigma2lapltau[11] = 0.0e0;
4571
4572 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4573 v4sigma2lapltau[12] = 0.0e0;
4574
4575 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4576 v4sigma2lapltau[13] = 0.0e0;
4577
4578 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4579 v4sigma2lapltau[14] = 0.0e0;
4580
4581 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4582 v4sigma2lapltau[15] = 0.0e0;
4583
4584 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4585 v4sigma2lapltau[16] = 0.0e0;
4586
4587 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4588 v4sigma2lapltau[17] = 0.0e0;
4589
4590 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4591 v4sigma2lapltau[18] = 0.0e0;
4592
4593 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4594 v4sigma2lapltau[19] = 0.0e0;
4595
4596 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4597 v4sigma2lapltau[20] = 0.0e0;
4598
4599 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4600 v4sigma2lapltau[21] = 0.0e0;
4601
4602 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4603 v4sigma2lapltau[22] = 0.0e0;
4604
4605 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4606 v4sigma2lapltau[23] = 0.0e0;
4607
4608 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4609 v4sigma2tau2[0] = -0.3e1 / 0.8e1 * t377 * t378 * t1107 * t1183;
4610
4611 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4612 v4sigma2tau2[1] = 0.0e0;
4613
4614 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4615 v4sigma2tau2[2] = 0.0e0;
4616
4617 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4618 v4sigma2tau2[3] = 0.0e0;
4619
4620 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4621 v4sigma2tau2[4] = 0.0e0;
4622
4623 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4624 v4sigma2tau2[5] = 0.0e0;
4625
4626 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4627 v4sigma2tau2[6] = 0.0e0;
4628
4629 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4630 v4sigma2tau2[7] = 0.0e0;
4631
4632 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4633 v4sigma2tau2[8] = 0.0e0;
4634
4635 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4636 v4sigma2tau2[9] = 0.0e0;
4637
4638 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4639 v4sigma2tau2[10] = 0.0e0;
4640
4641 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4642 v4sigma2tau2[11] = 0.0e0;
4643
4644 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4645 v4sigma2tau2[12] = 0.0e0;
4646
4647 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4648 v4sigma2tau2[13] = 0.0e0;
4649
4650 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4651 v4sigma2tau2[14] = 0.0e0;
4652
4653 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4654 v4sigma2tau2[15] = 0.0e0;
4655
4656 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4657 v4sigma2tau2[16] = 0.0e0;
4658
4659 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4660 v4sigma2tau2[17] = -0.3e1 / 0.8e1 * t377 * t419 * t1155 * t1202;
4661
4662 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4663 v4sigmalapl3[0] = 0.0e0;
4664
4665 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4666 v4sigmalapl3[1] = 0.0e0;
4667
4668 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4669 v4sigmalapl3[2] = 0.0e0;
4670
4671 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4672 v4sigmalapl3[3] = 0.0e0;
4673
4674 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4675 v4sigmalapl3[4] = 0.0e0;
4676
4677 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4678 v4sigmalapl3[5] = 0.0e0;
4679
4680 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4681 v4sigmalapl3[6] = 0.0e0;
4682
4683 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4684 v4sigmalapl3[7] = 0.0e0;
4685
4686 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4687 v4sigmalapl3[8] = 0.0e0;
4688
4689 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4690 v4sigmalapl3[9] = 0.0e0;
4691
4692 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4693 v4sigmalapl3[10] = 0.0e0;
4694
4695 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4696 v4sigmalapl3[11] = 0.0e0;
4697
4698 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4699 v4sigmalapl2tau[0] = 0.0e0;
4700
4701 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4702 v4sigmalapl2tau[1] = 0.0e0;
4703
4704 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4705 v4sigmalapl2tau[2] = 0.0e0;
4706
4707 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4708 v4sigmalapl2tau[3] = 0.0e0;
4709
4710 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4711 v4sigmalapl2tau[4] = 0.0e0;
4712
4713 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4714 v4sigmalapl2tau[5] = 0.0e0;
4715
4716 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4717 v4sigmalapl2tau[6] = 0.0e0;
4718
4719 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4720 v4sigmalapl2tau[7] = 0.0e0;
4721
4722 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4723 v4sigmalapl2tau[8] = 0.0e0;
4724
4725 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4726 v4sigmalapl2tau[9] = 0.0e0;
4727
4728 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4729 v4sigmalapl2tau[10] = 0.0e0;
4730
4731 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4732 v4sigmalapl2tau[11] = 0.0e0;
4733
4734 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4735 v4sigmalapl2tau[12] = 0.0e0;
4736
4737 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4738 v4sigmalapl2tau[13] = 0.0e0;
4739
4740 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4741 v4sigmalapl2tau[14] = 0.0e0;
4742
4743 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4744 v4sigmalapl2tau[15] = 0.0e0;
4745
4746 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4747 v4sigmalapl2tau[16] = 0.0e0;
4748
4749 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4750 v4sigmalapl2tau[17] = 0.0e0;
4751
4752 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4753 v4sigmalapltau2[0] = 0.0e0;
4754
4755 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4756 v4sigmalapltau2[1] = 0.0e0;
4757
4758 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4759 v4sigmalapltau2[2] = 0.0e0;
4760
4761 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4762 v4sigmalapltau2[3] = 0.0e0;
4763
4764 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4765 v4sigmalapltau2[4] = 0.0e0;
4766
4767 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4768 v4sigmalapltau2[5] = 0.0e0;
4769
4770 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4771 v4sigmalapltau2[6] = 0.0e0;
4772
4773 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4774 v4sigmalapltau2[7] = 0.0e0;
4775
4776 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4777 v4sigmalapltau2[8] = 0.0e0;
4778
4779 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4780 v4sigmalapltau2[9] = 0.0e0;
4781
4782 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4783 v4sigmalapltau2[10] = 0.0e0;
4784
4785 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4786 v4sigmalapltau2[11] = 0.0e0;
4787
4788 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4789 v4sigmalapltau2[12] = 0.0e0;
4790
4791 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4792 v4sigmalapltau2[13] = 0.0e0;
4793
4794 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4795 v4sigmalapltau2[14] = 0.0e0;
4796
4797 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4798 v4sigmalapltau2[15] = 0.0e0;
4799
4800 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4801 v4sigmalapltau2[16] = 0.0e0;
4802
4803 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4804 v4sigmalapltau2[17] = 0.0e0;
4805
4806 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4807 v4sigmatau3[0] = -0.3e1 / 0.8e1 * t377 * t378 * t413 * t2673;
4808
4809 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4810 v4sigmatau3[1] = 0.0e0;
4811
4812 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4813 v4sigmatau3[2] = 0.0e0;
4814
4815 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4816 v4sigmatau3[3] = 0.0e0;
4817
4818 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4819 v4sigmatau3[4] = 0.0e0;
4820
4821 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4822 v4sigmatau3[5] = 0.0e0;
4823
4824 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4825 v4sigmatau3[6] = 0.0e0;
4826
4827 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4828 v4sigmatau3[7] = 0.0e0;
4829
4830 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4831 v4sigmatau3[8] = 0.0e0;
4832
4833 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4834 v4sigmatau3[9] = 0.0e0;
4835
4836 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4837 v4sigmatau3[10] = 0.0e0;
4838
4839 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4840 v4sigmatau3[11] = -0.3e1 / 0.8e1 * t377 * t419 * t454 * t2691;
4841
4842 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4843 v4lapl4[0] = 0.0e0;
4844
4845 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4846 v4lapl4[1] = 0.0e0;
4847
4848 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4849 v4lapl4[2] = 0.0e0;
4850
4851 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4852 v4lapl4[3] = 0.0e0;
4853
4854 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4855 v4lapl4[4] = 0.0e0;
4856
4857 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4858 v4lapl3tau[0] = 0.0e0;
4859
4860 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4861 v4lapl3tau[1] = 0.0e0;
4862
4863 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4864 v4lapl3tau[2] = 0.0e0;
4865
4866 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4867 v4lapl3tau[3] = 0.0e0;
4868
4869 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4870 v4lapl3tau[4] = 0.0e0;
4871
4872 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4873 v4lapl3tau[5] = 0.0e0;
4874
4875 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4876 v4lapl3tau[6] = 0.0e0;
4877
4878 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4879 v4lapl3tau[7] = 0.0e0;
4880
4881 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4882 v4lapl2tau2[0] = 0.0e0;
4883
4884 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4885 v4lapl2tau2[1] = 0.0e0;
4886
4887 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4888 v4lapl2tau2[2] = 0.0e0;
4889
4890 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4891 v4lapl2tau2[3] = 0.0e0;
4892
4893 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4894 v4lapl2tau2[4] = 0.0e0;
4895
4896 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4897 v4lapl2tau2[5] = 0.0e0;
4898
4899 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4900 v4lapl2tau2[6] = 0.0e0;
4901
4902 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4903 v4lapl2tau2[7] = 0.0e0;
4904
4905 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4906 v4lapl2tau2[8] = 0.0e0;
4907
4908 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4909 v4lapltau3[0] = 0.0e0;
4910
4911 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4912 v4lapltau3[1] = 0.0e0;
4913
4914 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4915 v4lapltau3[2] = 0.0e0;
4916
4917 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4918 v4lapltau3[3] = 0.0e0;
4919
4920 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4921 v4lapltau3[4] = 0.0e0;
4922
4923 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4924 v4lapltau3[5] = 0.0e0;
4925
4926 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4927 v4lapltau3[6] = 0.0e0;
4928
4929 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4930 v4lapltau3[7] = 0.0e0;
4931
4932 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4933 v4tau4[0] = -0.3e1 / 0.8e1 * t377 * t378 * t69 * (-0.120e3 * t2906 * t254 - 0.720e3 * t2867 * t2906 - 0.240e3 * t2872 * t2906 + 0.2880e4 * t2875 * t2906 + 0.4200e4 * t2878 * t2906 + 0.1680e4 * t2883 * t2906);
4934
4935 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4936 v4tau4[1] = 0.0e0;
4937
4938 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4939 v4tau4[2] = 0.0e0;
4940
4941 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4942 v4tau4[3] = 0.0e0;
4943
4944 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4945 v4tau4[4] = -0.3e1 / 0.8e1 * t377 * t419 * t149 * (-0.120e3 * t3819 * t355 - 0.720e3 * t3751 * t3819 - 0.240e3 * t3756 * t3819 + 0.2880e4 * t3759 * t3819 + 0.4200e4 * t3762 * t3819 + 0.1680e4 * t3767 * t3819);
4946
4947 #ifndef XC_DONT_COMPILE_MXC
4948
4949 if(order < 5) return;
4950
4951
4952 #endif
4953
4954 #endif
4955
4956 #endif
4957
4958 #endif
4959
4960 #endif
4961
4962
4963 }
4964
4965