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_2d_js17.mpl
11 Type of functional: mgga_exc
12 */
13
14 #define maple2c_order 4
15 #define MAPLE2C_FLAGS (XC_FLAGS_I_HAVE_EXC | XC_FLAGS_I_HAVE_VXC | XC_FLAGS_I_HAVE_FXC | XC_FLAGS_I_HAVE_KXC | XC_FLAGS_I_HAVE_LXC)
16
17
18 static inline void
func_unpol(const xc_func_type * p,int order,const double * rho,const double * sigma,const double * lapl,const double * tau,double * zk,MGGA_OUT_PARAMS_NO_EXC (double *))19 func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, const double *lapl, const double *tau, double *zk, MGGA_OUT_PARAMS_NO_EXC(double *))
20 {
21
22 #ifndef XC_DONT_COMPILE_EXC
23 double t2, t3, t4, t5, t6, t7, t8, t9;
24 double t10, t12, t13, t14, t15, t18, t19, t29;
25 double t30, t31, t34, t36;
26
27 #ifndef XC_DONT_COMPILE_VXC
28 double t39, t40, t42, t43, t44, t46, t47, t50;
29 double t56, t60, t61, t64, t69, t71, t79, t82;
30 double t83;
31
32 #ifndef XC_DONT_COMPILE_FXC
33 double t90, t92, t93, t97, t98, t100, t101, t104;
34 double t110, t113, t117, t118, t123, t127, t130, t134;
35 double t136, t141, t146, t152, t155, t156, t159, t162;
36 double t174, t177;
37
38 #ifndef XC_DONT_COMPILE_KXC
39 double t189, t191, t192, t195, t200, t203, t209, t212;
40 double t215, t221, t222, t225, t230, t234, t238, t241;
41 double t249, t254, t257, t268, t271, t274, t279, t280;
42 double t284, t285, t290, t293, t298, t303, t316, t319;
43 double t324, t329, t330, t335, t336, t339, t342, t353;
44 double t357, t360, t365;
45
46 #ifndef XC_DONT_COMPILE_LXC
47 double t382, t385, t394, t396, t397, t403, t408, t417;
48 double t420, t427, t438, t479, t484, t487, t488, t514;
49 double t522, t541, t587, t595, t625, t671, t693, t713;
50 double t719;
51 #endif
52
53 #endif
54
55 #endif
56
57 #endif
58
59 #endif
60
61
62
63 t2 = sqrt(M_PI);
64 t3 = 0.1e1 / t2;
65 t4 = M_SQRT2;
66 t5 = t3 * t4;
67 t6 = sqrt(rho[0]);
68 t7 = rho[0] * rho[0];
69 t8 = t7 * rho[0];
70 t9 = 0.1e1 / t8;
71 t10 = sigma[0] * t9;
72 t12 = sigma[0] * sigma[0];
73 t13 = t7 * t7;
74 t14 = t13 * t7;
75 t15 = 0.1e1 / t14;
76 t18 = 0.1e1 + 0.82505922498838542062e0 * t10 + 0.25211952768090192343e-2 * t12 * t15;
77 t19 = pow(t18, 0.1e1 / 0.15e2);
78 t29 = 0.1e1 + 0.55877026877520282455e-1 * t10 + (-0.1544000000000000000e0 * tau[0] / t7 - 0.11596246802930644802e2) / M_PI / 0.4e1;
79 t30 = pow(t18, 0.1e1 / 0.5e1);
80 t31 = 0.1e1 / t30;
81 t34 = 0.1e1 / t19 + 0.2e1 / 0.5e1 * t29 * t31;
82 t36 = t5 * t6 * t34;
83 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
84 zk[0] = -0.4e1 / 0.3e1 * t36;
85
86 #ifndef XC_DONT_COMPILE_VXC
87
88 if(order < 1) return;
89
90
91 t39 = t6 * rho[0];
92 t40 = t39 * t3;
93 t42 = 0.1e1 / t19 / t18;
94 t43 = 0.1e1 / t13;
95 t44 = sigma[0] * t43;
96 t46 = t13 * t8;
97 t47 = 0.1e1 / t46;
98 t50 = -0.24751776749651562619e1 * t44 - 0.15127171660854115406e-1 * t12 * t47;
99 t56 = -0.16763108063256084736e0 * t44 + 0.24573523213388639842e-1 * tau[0] * t9;
100 t60 = 0.1e1 / t30 / t18;
101 t61 = t29 * t60;
102 t64 = -t42 * t50 / 0.15e2 + 0.2e1 / 0.5e1 * t56 * t31 - 0.2e1 / 0.25e2 * t61 * t50;
103 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
104 vrho[0] = -0.2e1 * t36 - 0.4e1 / 0.3e1 * t40 * t4 * t64;
105
106 t69 = sigma[0] * t15;
107 t71 = 0.82505922498838542062e0 * t9 + 0.50423905536180384686e-2 * t69;
108 t79 = t4 * (-t42 * t71 / 0.15e2 + 0.22350810751008112982e-1 * t9 * t31 - 0.2e1 / 0.25e2 * t61 * t71);
109 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
110 vsigma[0] = -0.4e1 / 0.3e1 * t40 * t79;
111
112 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
113 vlapl[0] = 0.0e0;
114
115 t82 = 0.1e1 / t6;
116 t83 = t82 * t4;
117 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
118 vtau[0] = 0.36971002208167622832e-2 * t83 * t31;
119
120 #ifndef XC_DONT_COMPILE_FXC
121
122 if(order < 2) return;
123
124
125 t90 = t18 * t18;
126 t92 = 0.1e1 / t19 / t90;
127 t93 = t50 * t50;
128 t97 = 0.1e1 / t13 / rho[0];
129 t98 = sigma[0] * t97;
130 t100 = t13 * t13;
131 t101 = 0.1e1 / t100;
132 t104 = 0.99007106998606250476e1 * t98 + 0.10589020162597880784e0 * t12 * t101;
133 t110 = 0.67052432253024338944e0 * t98 - 0.73720569640165919526e-1 * tau[0] * t43;
134 t113 = t56 * t60;
135 t117 = 0.1e1 / t30 / t90;
136 t118 = t29 * t117;
137 t123 = 0.16e2 / 0.225e3 * t92 * t93 - t42 * t104 / 0.15e2 + 0.2e1 / 0.5e1 * t110 * t31 - 0.4e1 / 0.25e2 * t113 * t50 + 0.12e2 / 0.125e3 * t118 * t93 - 0.2e1 / 0.25e2 * t61 * t104;
138 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
139 v2rho2[0] = -t5 * t82 * t34 - 0.4e1 * t5 * t6 * t64 - 0.4e1 / 0.3e1 * t40 * t4 * t123;
140
141 t127 = t6 * t3;
142 t130 = t92 * t71;
143 t134 = sigma[0] * t47;
144 t136 = -0.24751776749651562619e1 * t43 - 0.30254343321708230812e-1 * t134;
145 t141 = t9 * t60;
146 t146 = t71 * t50;
147 t152 = t4 * (0.16e2 / 0.225e3 * t130 * t50 - t42 * t136 / 0.15e2 - 0.67052432253024338946e-1 * t43 * t31 - 0.44701621502016225964e-2 * t141 * t50 - 0.2e1 / 0.25e2 * t113 * t71 + 0.12e2 / 0.125e3 * t118 * t146 - 0.2e1 / 0.25e2 * t61 * t136);
148 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
149 v2rhosigma[0] = -0.2e1 * t127 * t79 - 0.4e1 / 0.3e1 * t40 * t152;
150
151 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
152 v2rholapl[0] = 0.0e0;
153
154 t155 = 0.1e1 / t39;
155 t156 = t155 * t4;
156 t159 = t60 * t50;
157 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
158 v2rhotau[0] = -0.18485501104083811416e-2 * t156 * t31 - 0.73942004416335245664e-3 * t83 * t159;
159
160 t162 = t71 * t71;
161 t174 = t4 * (0.16e2 / 0.225e3 * t92 * t162 - 0.33615937024120256457e-3 * t42 * t15 - 0.89403243004032451928e-2 * t141 * t71 + 0.12e2 / 0.125e3 * t118 * t162 - 0.40339124428944307749e-3 * t61 * t15);
162 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
163 v2sigma2[0] = -0.4e1 / 0.3e1 * t40 * t174;
164
165 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
166 v2sigmalapl[0] = 0.0e0;
167
168 t177 = t60 * t71;
169 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
170 v2sigmatau[0] = -0.73942004416335245664e-3 * t83 * t177;
171
172 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
173 v2lapl2[0] = 0.0e0;
174
175 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
176 v2lapltau[0] = 0.0e0;
177
178 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
179 v2tau2[0] = 0.0e0;
180
181 #ifndef XC_DONT_COMPILE_KXC
182
183 if(order < 3) return;
184
185
186 t189 = t90 * t18;
187 t191 = 0.1e1 / t19 / t189;
188 t192 = t93 * t50;
189 t195 = t92 * t50;
190 t200 = 0.1e1 / t100 / rho[0];
191 t203 = -0.49503553499303125238e2 * t69 - 0.84712161300783046272e0 * t12 * t200;
192 t209 = -0.33526216126512169472e1 * t69 + 0.29488227856066367810e0 * tau[0] * t97;
193 t212 = t110 * t60;
194 t215 = t56 * t117;
195 t221 = 0.1e1 / t30 / t189;
196 t222 = t29 * t221;
197 t225 = t50 * t104;
198 t230 = -0.496e3 / 0.3375e4 * t191 * t192 + 0.16e2 / 0.75e2 * t195 * t104 - t42 * t203 / 0.15e2 + 0.2e1 / 0.5e1 * t209 * t31 - 0.6e1 / 0.25e2 * t212 * t50 + 0.36e2 / 0.125e3 * t215 * t93 - 0.6e1 / 0.25e2 * t113 * t104 - 0.132e3 / 0.625e3 * t222 * t192 + 0.36e2 / 0.125e3 * t118 * t225 - 0.2e1 / 0.25e2 * t61 * t203;
199 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
200 v3rho3[0] = t5 * t155 * t34 / 0.2e1 - 0.3e1 * t5 * t82 * t64 - 0.6e1 * t5 * t6 * t123 - 0.4e1 / 0.3e1 * t40 * t4 * t230;
201
202 t234 = t82 * t3;
203 t238 = t191 * t71;
204 t241 = t92 * t136;
205 t249 = 0.99007106998606250476e1 * t97 + 0.21178040325195761568e0 * sigma[0] * t101;
206 t254 = t43 * t60;
207 t257 = t9 * t117;
208 t268 = t71 * t93;
209 t271 = t136 * t50;
210 t274 = t71 * t104;
211 t279 = -0.496e3 / 0.3375e4 * t238 * t93 + 0.32e2 / 0.225e3 * t241 * t50 + 0.16e2 / 0.225e3 * t130 * t104 - t42 * t249 / 0.15e2 + 0.26820972901209735578e0 * t97 * t31 + 0.26820972901209735578e-1 * t254 * t50 + 0.53641945802419471157e-2 * t257 * t93 - 0.44701621502016225964e-2 * t141 * t104 - 0.2e1 / 0.25e2 * t212 * t71 + 0.24e2 / 0.125e3 * t215 * t146 - 0.4e1 / 0.25e2 * t113 * t136 - 0.132e3 / 0.625e3 * t222 * t268 + 0.24e2 / 0.125e3 * t118 * t271 + 0.12e2 / 0.125e3 * t118 * t274 - 0.2e1 / 0.25e2 * t61 * t249;
212 t280 = t4 * t279;
213 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
214 v3rho2sigma[0] = -t234 * t79 - 0.4e1 * t127 * t152 - 0.4e1 / 0.3e1 * t40 * t280;
215
216 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
217 v3rho2lapl[0] = 0.0e0;
218
219 t284 = 0.1e1 / t6 / t7;
220 t285 = t284 * t4;
221 t290 = t117 * t93;
222 t293 = t60 * t104;
223 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
224 v3rho2tau[0] = 0.27728251656125717124e-2 * t285 * t31 + 0.73942004416335245664e-3 * t156 * t159 + 0.88730405299602294797e-3 * t83 * t290 - 0.73942004416335245664e-3 * t83 * t293;
225
226 t298 = t191 * t162;
227 t303 = t92 * t15;
228 t316 = t162 * t50;
229 t319 = t71 * t136;
230 t324 = t15 * t50;
231 t329 = -0.496e3 / 0.3375e4 * t298 * t50 + 0.32e2 / 0.225e3 * t130 * t136 + 0.35856999492394940221e-3 * t303 * t50 + 0.20169562214472153874e-2 * t42 * t47 + 0.26820972901209735578e-1 * t254 * t71 + 0.10728389160483894231e-1 * t257 * t146 - 0.89403243004032451928e-2 * t141 * t136 + 0.12e2 / 0.125e3 * t215 * t162 - 0.132e3 / 0.625e3 * t222 * t316 + 0.24e2 / 0.125e3 * t118 * t319 - 0.40339124428944307749e-3 * t113 * t15 + 0.48406949314733169299e-3 * t118 * t324 + 0.24203474657366584649e-2 * t61 * t47;
232 t330 = t4 * t329;
233 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
234 v3rhosigma2[0] = -0.2e1 * t127 * t174 - 0.4e1 / 0.3e1 * t40 * t330;
235
236 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
237 v3rhosigmalapl[0] = 0.0e0;
238
239 t335 = t117 * t71;
240 t336 = t335 * t50;
241 t339 = t60 * t136;
242 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
243 v3rhosigmatau[0] = 0.36971002208167622832e-3 * t156 * t177 + 0.88730405299602294797e-3 * t83 * t336 - 0.73942004416335245664e-3 * t83 * t339;
244
245 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
246 v3rholapl2[0] = 0.0e0;
247
248 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
249 v3rholapltau[0] = 0.0e0;
250
251 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
252 v3rhotau2[0] = 0.0e0;
253
254 t342 = t162 * t71;
255 t353 = t71 * t15;
256 t357 = t4 * (-0.496e3 / 0.3375e4 * t191 * t342 + 0.10757099847718482066e-2 * t130 * t15 + 0.16092583740725841347e-1 * t257 * t162 - 0.67620910197952682985e-4 * t200 * t60 - 0.132e3 / 0.625e3 * t222 * t342 + 0.14522084794419950789e-2 * t118 * t353);
257 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
258 v3sigma3[0] = -0.4e1 / 0.3e1 * t40 * t357;
259
260 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
261 v3sigma2lapl[0] = 0.0e0;
262
263 t360 = t117 * t162;
264 t365 = 0.1e1 / t6 / t14 * t4;
265 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
266 v3sigma2tau[0] = 0.88730405299602294797e-3 * t83 * t360 - 0.37284446458451212479e-5 * t365 * t60;
267
268 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
269 v3sigmalapl2[0] = 0.0e0;
270
271 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
272 v3sigmalapltau[0] = 0.0e0;
273
274 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
275 v3sigmatau2[0] = 0.0e0;
276
277 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
278 v3lapl3[0] = 0.0e0;
279
280 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
281 v3lapl2tau[0] = 0.0e0;
282
283 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
284 v3lapltau2[0] = 0.0e0;
285
286 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
287 v3tau3[0] = 0.0e0;
288
289 #ifndef XC_DONT_COMPILE_LXC
290
291 if(order < 4) return;
292
293
294 t382 = 0.1e1 / t100 / t7;
295 t385 = 0.29702132099581875143e3 * t134 + 0.76240945170704741645e1 * t12 * t382;
296 t394 = t90 * t90;
297 t396 = 0.1e1 / t19 / t394;
298 t397 = t93 * t93;
299 t403 = t104 * t104;
300 t408 = t209 * t60;
301 t417 = t110 * t117;
302 t420 = t56 * t221;
303 t427 = t29 / t30 / t394;
304 t438 = -t42 * t385 / 0.15e2 + 0.2e1 / 0.5e1 * (0.20115729675907301683e2 * t134 - 0.14744113928033183905e1 * tau[0] * t15) * t31 + 0.22816e5 / 0.50625e5 * t396 * t397 - 0.992e3 / 0.1125e4 * t191 * t93 * t104 + 0.16e2 / 0.75e2 * t92 * t403 + 0.64e2 / 0.225e3 * t195 * t203 - 0.8e1 / 0.25e2 * t408 * t50 - 0.12e2 / 0.25e2 * t212 * t104 - 0.8e1 / 0.25e2 * t113 * t203 - 0.2e1 / 0.25e2 * t61 * t385 + 0.72e2 / 0.125e3 * t417 * t93 - 0.528e3 / 0.625e3 * t420 * t192 + 0.144e3 / 0.125e3 * t215 * t225 + 0.2112e4 / 0.3125e4 * t427 * t397 - 0.792e3 / 0.625e3 * t222 * t93 * t104 + 0.36e2 / 0.125e3 * t118 * t403 + 0.48e2 / 0.125e3 * t118 * t50 * t203;
305 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
306 v4rho4[0] = -0.3e1 / 0.4e1 * t5 * t284 * t34 + 0.2e1 * t5 * t155 * t64 - 0.6e1 * t5 * t82 * t123 - 0.8e1 * t5 * t6 * t230 - 0.4e1 / 0.3e1 * t40 * t4 * t438;
307
308 t479 = -0.49503553499303125238e2 * t15 - 0.16942432260156609254e1 * sigma[0] * t200;
309 t484 = t43 * t117;
310 t487 = -0.396e3 / 0.625e3 * t420 * t268 + 0.2112e4 / 0.3125e4 * t427 * t71 * t192 - 0.496e3 / 0.1125e4 * t238 * t225 + 0.16092583740725841347e-1 * t257 * t225 + 0.36e2 / 0.125e3 * t417 * t146 + 0.72e2 / 0.125e3 * t215 * t271 + 0.36e2 / 0.125e3 * t215 * t274 - 0.396e3 / 0.625e3 * t222 * t136 * t93 + 0.36e2 / 0.125e3 * t118 * t249 * t50 + 0.36e2 / 0.125e3 * t118 * t136 * t104 + 0.12e2 / 0.125e3 * t118 * t71 * t203 - t42 * t479 / 0.15e2 - 0.13410486450604867789e1 * t15 * t31 - 0.48277751222177524041e-1 * t484 * t93;
311 t488 = t9 * t221;
312 t514 = t97 * t60;
313 t522 = -0.11801228076532283655e-1 * t488 * t192 - 0.44701621502016225964e-2 * t141 * t203 - 0.2e1 / 0.25e2 * t408 * t71 - 0.6e1 / 0.25e2 * t212 * t136 - 0.6e1 / 0.25e2 * t113 * t249 - 0.2e1 / 0.25e2 * t61 * t479 + 0.22816e5 / 0.50625e5 * t396 * t71 * t192 - 0.496e3 / 0.1125e4 * t191 * t136 * t93 + 0.16e2 / 0.75e2 * t92 * t249 * t50 + 0.16e2 / 0.75e2 * t241 * t104 + 0.16e2 / 0.225e3 * t130 * t203 - 0.16092583740725841347e0 * t514 * t50 + 0.40231459351814603367e-1 * t254 * t104 - 0.396e3 / 0.625e3 * t222 * t146 * t104;
314 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
315 v4rho3sigma[0] = t155 * t3 * t79 / 0.2e1 - 0.3e1 * t234 * t152 - 0.6e1 * t127 * t280 - 0.4e1 / 0.3e1 * t40 * t4 * (t487 + t522);
316
317 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
318 v4rho3lapl[0] = 0.0e0;
319
320 t541 = t117 * t50;
321 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
322 v4rho3tau[0] = -0.69320629140314292810e-2 / t6 / t8 * t4 * t31 - 0.16636950993675430275e-2 * t285 * t159 - 0.13309560794940344220e-2 * t156 * t290 + 0.11091300662450286850e-2 * t156 * t293 - 0.19520689165912504855e-2 * t83 * t221 * t192 + 0.26619121589880688439e-2 * t83 * t541 * t104 - 0.73942004416335245664e-3 * t83 * t60 * t203;
323
324 t587 = -0.23602456153064567308e-1 * t488 * t268 + 0.2112e4 / 0.3125e4 * t427 * t162 * t93 - 0.10649528849241297246e-2 * t222 * t15 * t93 - 0.58088339177679803158e-2 * t118 * t47 * t50 - 0.1984e4 / 0.3375e4 * t238 * t271 - 0.64370334962903365387e-1 * t484 * t146 + 0.21456778320967788462e-1 * t257 * t271 + 0.10728389160483894231e-1 * t257 * t274 - 0.264e3 / 0.625e3 * t420 * t316 + 0.48e2 / 0.125e3 * t215 * t319 - 0.132e3 / 0.625e3 * t222 * t162 * t104 + 0.24e2 / 0.125e3 * t118 * t71 * t249 + 0.96813898629466338598e-3 * t215 * t324 + 0.48406949314733169299e-3 * t118 * t15 * t104 + 0.48406949314733169298e-2 * t113 * t47;
325 t595 = t136 * t136;
326 t625 = -0.16942432260156609254e-1 * t61 * t101 - 0.43028399390873928265e-2 * t92 * t47 * t50 - 0.10728389160483894231e0 * t514 * t71 + 0.24e2 / 0.125e3 * t118 * t595 - 0.40339124428944307749e-3 * t212 * t15 + 0.22816e5 / 0.50625e5 * t396 * t162 * t93 - 0.74104465617616209790e-3 * t191 * t15 * t93 - 0.496e3 / 0.3375e4 * t298 * t104 + 0.32e2 / 0.225e3 * t130 * t249 + 0.35856999492394940221e-3 * t303 * t104 + 0.53641945802419471156e-1 * t254 * t136 - 0.89403243004032451928e-2 * t141 * t249 + 0.12e2 / 0.125e3 * t417 * t162 - 0.14118693550130507712e-1 * t42 * t101 + 0.32e2 / 0.225e3 * t92 * t595 - 0.528e3 / 0.625e3 * t222 * t146 * t136;
327 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
328 v4rho2sigma2[0] = -t234 * t174 - 0.4e1 * t127 * t330 - 0.4e1 / 0.3e1 * t40 * t4 * (t587 + t625);
329
330 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
331 v4rho2sigmalapl[0] = 0.0e0;
332
333 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
334 v4rho2sigmatau[0] = -0.55456503312251434248e-3 * t285 * t177 - 0.88730405299602294796e-3 * t156 * t336 + 0.73942004416335245664e-3 * t156 * t339 - 0.19520689165912504855e-2 * t83 * t221 * t71 * t93 + 0.17746081059920458959e-2 * t83 * t117 * t136 * t50 + 0.88730405299602294797e-3 * t83 * t335 * t104 - 0.73942004416335245664e-3 * t83 * t60 * t249;
335
336 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
337 v4rho2lapl2[0] = 0.0e0;
338
339 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
340 v4rho2lapltau[0] = 0.0e0;
341
342 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
343 v4rho2tau2[0] = 0.0e0;
344
345 t671 = t200 * t117;
346 t693 = 0.22816e5 / 0.50625e5 * t396 * t342 * t50 - 0.496e3 / 0.1125e4 * t298 * t136 - 0.22231339685284862936e-2 * t238 * t324 + 0.10757099847718482066e-2 * t241 * t15 - 0.64542599086310892396e-2 * t130 * t47 - 0.48277751222177524041e-1 * t484 * t162 - 0.35403684229596850963e-1 * t488 * t316 + 0.32185167481451682694e-1 * t257 * t319 + 0.60858819178157414686e-3 * t382 * t60 + 0.81145092237543219582e-4 * t671 * t50 - 0.132e3 / 0.625e3 * t420 * t342 + 0.2112e4 / 0.3125e4 * t427 * t342 * t50 - 0.396e3 / 0.625e3 * t222 * t162 * t136 + 0.14522084794419950789e-2 * t215 * t353 - 0.31948586547723891736e-2 * t222 * t353 * t50 + 0.14522084794419950789e-2 * t118 * t136 * t15 - 0.87132508766519704734e-2 * t118 * t71 * t47;
347 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
348 v4rhosigma3[0] = -0.2e1 * t127 * t357 - 0.4e1 / 0.3e1 * t40 * t4 * t693;
349
350 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
351 v4rhosigma2lapl[0] = 0.0e0;
352
353 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
354 v4rhosigma2tau[0] = -0.44365202649801147398e-3 * t156 * t360 - 0.19520689165912504855e-2 * t83 * t221 * t162 * t50 + 0.17746081059920458959e-2 * t83 * t335 * t136 + 0.24234890197993288111e-4 / t6 / t46 * t4 * t60 + 0.44741335750141454975e-5 * t365 * t541;
355
356 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
357 v4rhosigmalapl2[0] = 0.0e0;
358
359 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
360 v4rhosigmalapltau[0] = 0.0e0;
361
362 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
363 v4rhosigmatau2[0] = 0.0e0;
364
365 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
366 v4rholapl3[0] = 0.0e0;
367
368 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
369 v4rholapl2tau[0] = 0.0e0;
370
371 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
372 v4rholapltau2[0] = 0.0e0;
373
374 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
375 v4rhotau3[0] = 0.0e0;
376
377 t713 = t162 * t162;
378 t719 = 0.1e1 / t100 / t13;
379 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
380 v4sigma4[0] = -0.4e1 / 0.3e1 * t40 * t4 * (0.22816e5 / 0.50625e5 * t396 * t713 - 0.44462679370569725873e-2 * t298 * t15 + 0.54241498656461714090e-5 * t92 * t719 - 0.47204912306129134617e-1 * t488 * t342 + 0.32458036895017287832e-3 * t671 * t71 + 0.2112e4 / 0.3125e4 * t427 * t713 - 0.63897173095447783473e-2 * t222 * t162 * t15 + 0.73226023186223314020e-5 * t118 * t719);
381
382 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
383 v4sigma3lapl[0] = 0.0e0;
384
385 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
386 v4sigma3tau[0] = -0.19520689165912504855e-2 * t83 * t221 * t342 + 0.13422400725042436492e-4 * t365 * t335;
387
388 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
389 v4sigma2lapl2[0] = 0.0e0;
390
391 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
392 v4sigma2lapltau[0] = 0.0e0;
393
394 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
395 v4sigma2tau2[0] = 0.0e0;
396
397 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
398 v4sigmalapl3[0] = 0.0e0;
399
400 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
401 v4sigmalapl2tau[0] = 0.0e0;
402
403 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
404 v4sigmalapltau2[0] = 0.0e0;
405
406 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
407 v4sigmatau3[0] = 0.0e0;
408
409 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
410 v4lapl4[0] = 0.0e0;
411
412 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
413 v4lapl3tau[0] = 0.0e0;
414
415 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
416 v4lapl2tau2[0] = 0.0e0;
417
418 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
419 v4lapltau3[0] = 0.0e0;
420
421 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
422 v4tau4[0] = 0.0e0;
423
424 #ifndef XC_DONT_COMPILE_MXC
425
426 if(order < 5) return;
427
428
429 #endif
430
431 #endif
432
433 #endif
434
435 #endif
436
437 #endif
438
439
440 }
441
442
443 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 *))444 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 *))
445 {
446
447 #ifndef XC_DONT_COMPILE_EXC
448 double t2, t3, t4, t5, t6, t7, t8, t9;
449 double t11, t12, t13, t14, t17, t18, t28, t29;
450 double t30, t33, t34;
451
452 #ifndef XC_DONT_COMPILE_VXC
453 double t37, t38, t40, t41, t42, t44, t45, t48;
454 double t54, t58, t59, t62, t66, t68, t75, t78;
455
456 #ifndef XC_DONT_COMPILE_FXC
457 double t80, t85, t87, t88, t92, t93, t95, t96;
458 double t99, t105, t108, t112, t113, t118, t123, t127;
459 double t129, t134, t139, t144, t147, t150, t153, t164;
460
461 #ifndef XC_DONT_COMPILE_KXC
462 double t169, t175, t177, t178, t181, t186, t189, t195;
463 double t198, t201, t207, t208, t211, t216, t223, t226;
464 double t234, t239, t242, t253, t256, t259, t264, t268;
465 double t271, t274, t281, t286, t299, t302, t307, t312;
466 double t321, t332, t335, t341;
467
468 #ifndef XC_DONT_COMPILE_LXC
469 double t355, t358, t367, t369, t370, t376, t381, t392;
470 double t403, t406, t411, t422, t425, t435, t448, t457;
471 double t492, t500, t503, t508, t519, t553, t593, t632;
472 double t654, t667, t670, t676;
473 #endif
474
475 #endif
476
477 #endif
478
479 #endif
480
481 #endif
482
483
484
485 t2 = sqrt(M_PI);
486 t3 = 0.1e1 / t2;
487 t4 = sqrt(rho[0]);
488 t5 = t3 * t4;
489 t6 = rho[0] * rho[0];
490 t7 = t6 * rho[0];
491 t8 = 0.1e1 / t7;
492 t9 = sigma[0] * t8;
493 t11 = sigma[0] * sigma[0];
494 t12 = t6 * t6;
495 t13 = t12 * t6;
496 t14 = 0.1e1 / t13;
497 t17 = 0.1e1 + 0.41252961249419271031e0 * t9 + 0.63029881920225480858e-3 * t11 * t14;
498 t18 = pow(t17, 0.1e1 / 0.15e2);
499 t28 = 0.1e1 + 0.27938513438760141227e-1 * t9 + (-0.7720000000000000000e-1 * tau[0] / t6 - 0.11596246802930644802e2) / M_PI / 0.4e1;
500 t29 = pow(t17, 0.1e1 / 0.5e1);
501 t30 = 0.1e1 / t29;
502 t33 = 0.1e1 / t18 + 0.2e1 / 0.5e1 * t28 * t30;
503 t34 = t5 * t33;
504 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
505 zk[0] = -0.8e1 / 0.3e1 * t34;
506
507 #ifndef XC_DONT_COMPILE_VXC
508
509 if(order < 1) return;
510
511
512 t37 = t4 * rho[0];
513 t38 = t37 * t3;
514 t40 = 0.1e1 / t18 / t17;
515 t41 = 0.1e1 / t12;
516 t42 = sigma[0] * t41;
517 t44 = t12 * t7;
518 t45 = 0.1e1 / t44;
519 t48 = -0.12375888374825781309e1 * t42 - 0.37817929152135288515e-2 * t11 * t45;
520 t54 = -0.83815540316280423681e-1 * t42 + 0.12286761606694319921e-1 * tau[0] * t8;
521 t58 = 0.1e1 / t29 / t17;
522 t59 = t28 * t58;
523 t62 = -t40 * t48 / 0.15e2 + 0.2e1 / 0.5e1 * t54 * t30 - 0.2e1 / 0.25e2 * t59 * t48;
524 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
525 vrho[0] = -0.4e1 * t34 - 0.8e1 / 0.3e1 * t38 * t62;
526
527 t66 = sigma[0] * t14;
528 t68 = 0.41252961249419271031e0 * t8 + 0.12605976384045096172e-2 * t66;
529 t75 = -t40 * t68 / 0.15e2 + 0.11175405375504056491e-1 * t8 * t30 - 0.2e1 / 0.25e2 * t59 * t68;
530 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
531 vsigma[0] = -0.8e1 / 0.3e1 * t38 * t75;
532
533 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
534 vlapl[0] = 0.0e0;
535
536 t78 = 0.1e1 / t4;
537 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
538 vtau[0] = 0.36971002208167622832e-2 * t78 * t30;
539
540 #ifndef XC_DONT_COMPILE_FXC
541
542 if(order < 2) return;
543
544
545 t80 = t3 * t78;
546 t85 = t17 * t17;
547 t87 = 0.1e1 / t18 / t85;
548 t88 = t48 * t48;
549 t92 = 0.1e1 / t12 / rho[0];
550 t93 = sigma[0] * t92;
551 t95 = t12 * t12;
552 t96 = 0.1e1 / t95;
553 t99 = 0.49503553499303125236e1 * t93 + 0.26472550406494701960e-1 * t11 * t96;
554 t105 = 0.33526216126512169472e0 * t93 - 0.36860284820082959763e-1 * tau[0] * t41;
555 t108 = t54 * t58;
556 t112 = 0.1e1 / t29 / t85;
557 t113 = t28 * t112;
558 t118 = 0.16e2 / 0.225e3 * t87 * t88 - t40 * t99 / 0.15e2 + 0.2e1 / 0.5e1 * t105 * t30 - 0.4e1 / 0.25e2 * t108 * t48 + 0.12e2 / 0.125e3 * t113 * t88 - 0.2e1 / 0.25e2 * t59 * t99;
559 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
560 v2rho2[0] = -0.2e1 * t80 * t33 - 0.8e1 * t5 * t62 - 0.8e1 / 0.3e1 * t38 * t118;
561
562 t123 = t87 * t68;
563 t127 = sigma[0] * t45;
564 t129 = -0.12375888374825781309e1 * t41 - 0.75635858304270577032e-2 * t127;
565 t134 = t8 * t58;
566 t139 = t68 * t48;
567 t144 = 0.16e2 / 0.225e3 * t123 * t48 - t40 * t129 / 0.15e2 - 0.33526216126512169473e-1 * t41 * t30 - 0.22350810751008112982e-2 * t134 * t48 - 0.2e1 / 0.25e2 * t108 * t68 + 0.12e2 / 0.125e3 * t113 * t139 - 0.2e1 / 0.25e2 * t59 * t129;
568 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
569 v2rhosigma[0] = -0.4e1 * t5 * t75 - 0.8e1 / 0.3e1 * t38 * t144;
570
571 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
572 v2rholapl[0] = 0.0e0;
573
574 t147 = 0.1e1 / t37;
575 t150 = t78 * t58;
576 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
577 v2rhotau[0] = -0.18485501104083811416e-2 * t147 * t30 - 0.73942004416335245664e-3 * t150 * t48;
578
579 t153 = t68 * t68;
580 t164 = 0.16e2 / 0.225e3 * t87 * t153 - 0.84039842560300641147e-4 * t40 * t14 - 0.44701621502016225964e-2 * t134 * t68 + 0.12e2 / 0.125e3 * t113 * t153 - 0.10084781107236076938e-3 * t59 * t14;
581 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
582 v2sigma2[0] = -0.8e1 / 0.3e1 * t38 * t164;
583
584 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
585 v2sigmalapl[0] = 0.0e0;
586
587 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
588 v2sigmatau[0] = -0.73942004416335245664e-3 * t150 * t68;
589
590 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
591 v2lapl2[0] = 0.0e0;
592
593 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
594 v2lapltau[0] = 0.0e0;
595
596 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
597 v2tau2[0] = 0.0e0;
598
599 #ifndef XC_DONT_COMPILE_KXC
600
601 if(order < 3) return;
602
603
604 t169 = t3 * t147;
605 t175 = t85 * t17;
606 t177 = 0.1e1 / t18 / t175;
607 t178 = t88 * t48;
608 t181 = t87 * t48;
609 t186 = 0.1e1 / t95 / rho[0];
610 t189 = -0.24751776749651562618e2 * t66 - 0.21178040325195761568e0 * t11 * t186;
611 t195 = -0.16763108063256084736e1 * t66 + 0.14744113928033183905e0 * tau[0] * t92;
612 t198 = t105 * t58;
613 t201 = t54 * t112;
614 t207 = 0.1e1 / t29 / t175;
615 t208 = t28 * t207;
616 t211 = t48 * t99;
617 t216 = -0.496e3 / 0.3375e4 * t177 * t178 + 0.16e2 / 0.75e2 * t181 * t99 - t40 * t189 / 0.15e2 + 0.2e1 / 0.5e1 * t195 * t30 - 0.6e1 / 0.25e2 * t198 * t48 + 0.36e2 / 0.125e3 * t201 * t88 - 0.6e1 / 0.25e2 * t108 * t99 - 0.132e3 / 0.625e3 * t208 * t178 + 0.36e2 / 0.125e3 * t113 * t211 - 0.2e1 / 0.25e2 * t59 * t189;
618 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
619 v3rho3[0] = t169 * t33 - 0.6e1 * t80 * t62 - 0.12e2 * t5 * t118 - 0.8e1 / 0.3e1 * t38 * t216;
620
621 t223 = t177 * t68;
622 t226 = t87 * t129;
623 t234 = 0.49503553499303125236e1 * t92 + 0.52945100812989403922e-1 * sigma[0] * t96;
624 t239 = t41 * t58;
625 t242 = t8 * t112;
626 t253 = t68 * t88;
627 t256 = t129 * t48;
628 t259 = t68 * t99;
629 t264 = -0.496e3 / 0.3375e4 * t223 * t88 + 0.32e2 / 0.225e3 * t226 * t48 + 0.16e2 / 0.225e3 * t123 * t99 - t40 * t234 / 0.15e2 + 0.13410486450604867789e0 * t92 * t30 + 0.13410486450604867789e-1 * t239 * t48 + 0.26820972901209735578e-2 * t242 * t88 - 0.22350810751008112982e-2 * t134 * t99 - 0.2e1 / 0.25e2 * t198 * t68 + 0.24e2 / 0.125e3 * t201 * t139 - 0.4e1 / 0.25e2 * t108 * t129 - 0.132e3 / 0.625e3 * t208 * t253 + 0.24e2 / 0.125e3 * t113 * t256 + 0.12e2 / 0.125e3 * t113 * t259 - 0.2e1 / 0.25e2 * t59 * t234;
630 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
631 v3rho2sigma[0] = -0.2e1 * t80 * t75 - 0.8e1 * t5 * t144 - 0.8e1 / 0.3e1 * t38 * t264;
632
633 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
634 v3rho2lapl[0] = 0.0e0;
635
636 t268 = 0.1e1 / t4 / t6;
637 t271 = t147 * t58;
638 t274 = t78 * t112;
639 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
640 v3rho2tau[0] = 0.27728251656125717124e-2 * t268 * t30 + 0.73942004416335245664e-3 * t271 * t48 + 0.88730405299602294797e-3 * t274 * t88 - 0.73942004416335245664e-3 * t150 * t99;
641
642 t281 = t177 * t153;
643 t286 = t87 * t14;
644 t299 = t153 * t48;
645 t302 = t68 * t129;
646 t307 = t14 * t48;
647 t312 = -0.496e3 / 0.3375e4 * t281 * t48 + 0.32e2 / 0.225e3 * t123 * t129 + 0.89642498730987350557e-4 * t286 * t48 + 0.50423905536180384688e-3 * t40 * t45 + 0.13410486450604867789e-1 * t239 * t68 + 0.53641945802419471157e-2 * t242 * t139 - 0.44701621502016225964e-2 * t134 * t129 + 0.12e2 / 0.125e3 * t201 * t153 - 0.132e3 / 0.625e3 * t208 * t299 + 0.24e2 / 0.125e3 * t113 * t302 - 0.10084781107236076938e-3 * t108 * t14 + 0.12101737328683292326e-3 * t113 * t307 + 0.60508686643416461628e-3 * t59 * t45;
648 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
649 v3rhosigma2[0] = -0.4e1 * t5 * t164 - 0.8e1 / 0.3e1 * t38 * t312;
650
651 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
652 v3rhosigmalapl[0] = 0.0e0;
653
654 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
655 v3rhosigmatau[0] = 0.36971002208167622832e-3 * t271 * t68 + 0.88730405299602294797e-3 * t274 * t139 - 0.73942004416335245664e-3 * t150 * t129;
656
657 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
658 v3rholapl2[0] = 0.0e0;
659
660 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
661 v3rholapltau[0] = 0.0e0;
662
663 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
664 v3rhotau2[0] = 0.0e0;
665
666 t321 = t153 * t68;
667 t332 = t68 * t14;
668 t335 = -0.496e3 / 0.3375e4 * t177 * t321 + 0.26892749619296205167e-3 * t123 * t14 + 0.80462918703629206735e-2 * t242 * t153 - 0.84526137747440853736e-5 * t186 * t58 - 0.132e3 / 0.625e3 * t208 * t321 + 0.36305211986049876976e-3 * t113 * t332;
669 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
670 v3sigma3[0] = -0.8e1 / 0.3e1 * t38 * t335;
671
672 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
673 v3sigma2lapl[0] = 0.0e0;
674
675 t341 = 0.1e1 / t4 / t13;
676 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
677 v3sigma2tau[0] = 0.88730405299602294797e-3 * t274 * t153 - 0.93211116146128031202e-6 * t341 * t58;
678
679 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
680 v3sigmalapl2[0] = 0.0e0;
681
682 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
683 v3sigmalapltau[0] = 0.0e0;
684
685 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
686 v3sigmatau2[0] = 0.0e0;
687
688 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
689 v3lapl3[0] = 0.0e0;
690
691 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
692 v3lapl2tau[0] = 0.0e0;
693
694 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
695 v3lapltau2[0] = 0.0e0;
696
697 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
698 v3tau3[0] = 0.0e0;
699
700 #ifndef XC_DONT_COMPILE_LXC
701
702 if(order < 4) return;
703
704
705 t355 = 0.1e1 / t95 / t6;
706 t358 = 0.14851066049790937571e3 * t127 + 0.19060236292676185411e1 * t11 * t355;
707 t367 = t85 * t85;
708 t369 = 0.1e1 / t18 / t367;
709 t370 = t88 * t88;
710 t376 = t99 * t99;
711 t381 = t195 * t58;
712 t392 = t28 / t29 / t367;
713 t403 = t105 * t112;
714 t406 = t54 * t207;
715 t411 = -t40 * t358 / 0.15e2 + 0.2e1 / 0.5e1 * (0.10057864837953650842e2 * t127 - 0.73720569640165919525e0 * tau[0] * t14) * t30 + 0.22816e5 / 0.50625e5 * t369 * t370 - 0.992e3 / 0.1125e4 * t177 * t88 * t99 + 0.16e2 / 0.75e2 * t87 * t376 + 0.64e2 / 0.225e3 * t181 * t189 - 0.8e1 / 0.25e2 * t381 * t48 - 0.12e2 / 0.25e2 * t198 * t99 - 0.8e1 / 0.25e2 * t108 * t189 - 0.2e1 / 0.25e2 * t59 * t358 + 0.2112e4 / 0.3125e4 * t392 * t370 - 0.792e3 / 0.625e3 * t208 * t88 * t99 + 0.36e2 / 0.125e3 * t113 * t376 + 0.48e2 / 0.125e3 * t113 * t48 * t189 + 0.72e2 / 0.125e3 * t403 * t88 - 0.528e3 / 0.625e3 * t406 * t178 + 0.144e3 / 0.125e3 * t201 * t211;
716 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
717 v4rho4[0] = -0.3e1 / 0.2e1 * t3 * t268 * t33 + 0.4e1 * t169 * t62 - 0.12e2 * t80 * t118 - 0.16e2 * t5 * t216 - 0.8e1 / 0.3e1 * t38 * t411;
718
719 t422 = t41 * t112;
720 t425 = t8 * t207;
721 t435 = -0.24751776749651562618e2 * t14 - 0.42356080650391523138e0 * sigma[0] * t186;
722 t448 = t92 * t58;
723 t457 = 0.22816e5 / 0.50625e5 * t369 * t68 * t178 - 0.24138875611088762020e-1 * t422 * t88 - 0.59006140382661418272e-2 * t425 * t178 - 0.6e1 / 0.25e2 * t198 * t129 - 0.6e1 / 0.25e2 * t108 * t234 - 0.2e1 / 0.25e2 * t59 * t435 - 0.496e3 / 0.1125e4 * t177 * t129 * t88 + 0.16e2 / 0.75e2 * t87 * t234 * t48 + 0.16e2 / 0.75e2 * t226 * t99 + 0.16e2 / 0.225e3 * t123 * t189 - 0.80462918703629206734e-1 * t448 * t48 + 0.20115729675907301684e-1 * t239 * t99 - 0.22350810751008112982e-2 * t134 * t189 - 0.2e1 / 0.25e2 * t381 * t68;
724 t492 = -0.396e3 / 0.625e3 * t208 * t139 * t99 - t40 * t435 / 0.15e2 - 0.67052432253024338945e0 * t14 * t30 - 0.396e3 / 0.625e3 * t406 * t253 + 0.2112e4 / 0.3125e4 * t392 * t68 * t178 - 0.496e3 / 0.1125e4 * t223 * t211 + 0.80462918703629206734e-2 * t242 * t211 + 0.36e2 / 0.125e3 * t403 * t139 + 0.72e2 / 0.125e3 * t201 * t256 + 0.36e2 / 0.125e3 * t201 * t259 - 0.396e3 / 0.625e3 * t208 * t129 * t88 + 0.36e2 / 0.125e3 * t113 * t234 * t48 + 0.36e2 / 0.125e3 * t113 * t129 * t99 + 0.12e2 / 0.125e3 * t113 * t68 * t189;
725 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
726 v4rho3sigma[0] = t169 * t75 - 0.6e1 * t80 * t144 - 0.12e2 * t5 * t264 - 0.8e1 / 0.3e1 * t38 * (t457 + t492);
727
728 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
729 v4rho3lapl[0] = 0.0e0;
730
731 t500 = t268 * t58;
732 t503 = t147 * t112;
733 t508 = t78 * t207;
734 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
735 v4rho3tau[0] = -0.69320629140314292810e-2 / t4 / t7 * t30 - 0.16636950993675430275e-2 * t500 * t48 - 0.13309560794940344220e-2 * t503 * t88 + 0.11091300662450286850e-2 * t271 * t99 - 0.19520689165912504855e-2 * t508 * t178 + 0.26619121589880688439e-2 * t274 * t211 - 0.73942004416335245664e-3 * t150 * t189;
736
737 t519 = t129 * t129;
738 t553 = 0.24e2 / 0.125e3 * t113 * t519 + 0.12101737328683292326e-2 * t108 * t45 - 0.42356080650391523140e-2 * t59 * t96 + 0.22816e5 / 0.50625e5 * t369 * t153 * t88 - 0.18526116404404052448e-3 * t177 * t14 * t88 - 0.10757099847718482067e-2 * t87 * t45 * t48 - 0.53641945802419471156e-1 * t448 * t68 - 0.496e3 / 0.3375e4 * t281 * t99 + 0.32e2 / 0.225e3 * t123 * t234 + 0.89642498730987350557e-4 * t286 * t99 + 0.26820972901209735578e-1 * t239 * t129 - 0.44701621502016225964e-2 * t134 * t234 + 0.12e2 / 0.125e3 * t403 * t153 - 0.10084781107236076938e-3 * t198 * t14 + 0.32e2 / 0.225e3 * t87 * t519;
739 t593 = -0.35296733875326269282e-2 * t40 * t96 - 0.528e3 / 0.625e3 * t208 * t139 * t129 - 0.26623822123103243117e-3 * t208 * t14 * t88 - 0.14522084794419950791e-2 * t113 * t45 * t48 - 0.11801228076532283655e-1 * t425 * t253 + 0.2112e4 / 0.3125e4 * t392 * t153 * t88 + 0.12101737328683292326e-3 * t113 * t14 * t99 - 0.1984e4 / 0.3375e4 * t223 * t256 - 0.32185167481451682694e-1 * t422 * t139 + 0.10728389160483894231e-1 * t242 * t256 + 0.53641945802419471157e-2 * t242 * t259 - 0.264e3 / 0.625e3 * t406 * t299 + 0.48e2 / 0.125e3 * t201 * t302 - 0.132e3 / 0.625e3 * t208 * t153 * t99 + 0.24e2 / 0.125e3 * t113 * t68 * t234 + 0.24203474657366584652e-3 * t201 * t307;
740 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
741 v4rho2sigma2[0] = -0.2e1 * t80 * t164 - 0.8e1 * t5 * t312 - 0.8e1 / 0.3e1 * t38 * (t553 + t593);
742
743 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
744 v4rho2sigmalapl[0] = 0.0e0;
745
746 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
747 v4rho2sigmatau[0] = -0.55456503312251434248e-3 * t500 * t68 - 0.88730405299602294796e-3 * t503 * t139 + 0.73942004416335245664e-3 * t271 * t129 - 0.19520689165912504855e-2 * t508 * t253 + 0.17746081059920458959e-2 * t274 * t256 + 0.88730405299602294797e-3 * t274 * t259 - 0.73942004416335245664e-3 * t150 * t234;
748
749 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
750 v4rho2lapl2[0] = 0.0e0;
751
752 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
753 v4rho2lapltau[0] = 0.0e0;
754
755 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
756 v4rho2tau2[0] = 0.0e0;
757
758 t632 = t186 * t112;
759 t654 = 0.22816e5 / 0.50625e5 * t369 * t321 * t48 - 0.496e3 / 0.1125e4 * t281 * t129 - 0.55578349213212157345e-3 * t223 * t307 + 0.26892749619296205167e-3 * t226 * t14 - 0.16135649771577723100e-2 * t123 * t45 - 0.24138875611088762020e-1 * t422 * t153 - 0.17701842114798425482e-1 * t425 * t299 + 0.16092583740725841347e-1 * t242 * t302 + 0.76073523972696768362e-4 * t355 * t58 + 0.10143136529692902448e-4 * t632 * t48 - 0.132e3 / 0.625e3 * t406 * t321 + 0.2112e4 / 0.3125e4 * t392 * t321 * t48 - 0.396e3 / 0.625e3 * t208 * t153 * t129 + 0.36305211986049876976e-3 * t201 * t332 - 0.79871466369309729347e-3 * t208 * t332 * t48 + 0.36305211986049876976e-3 * t113 * t129 * t14 - 0.21783127191629926186e-2 * t113 * t68 * t45;
760 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
761 v4rhosigma3[0] = -0.4e1 * t5 * t335 - 0.8e1 / 0.3e1 * t38 * t654;
762
763 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
764 v4rhosigma2lapl[0] = 0.0e0;
765
766 t667 = t341 * t112;
767 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
768 v4rhosigma2tau[0] = -0.44365202649801147398e-3 * t503 * t153 - 0.19520689165912504855e-2 * t508 * t299 + 0.17746081059920458959e-2 * t274 * t302 + 0.60587225494983220281e-5 / t4 / t44 * t58 + 0.11185333937535363744e-5 * t667 * t48;
769
770 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
771 v4rhosigmalapl2[0] = 0.0e0;
772
773 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
774 v4rhosigmalapltau[0] = 0.0e0;
775
776 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
777 v4rhosigmatau2[0] = 0.0e0;
778
779 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
780 v4rholapl3[0] = 0.0e0;
781
782 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
783 v4rholapl2tau[0] = 0.0e0;
784
785 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
786 v4rholapltau2[0] = 0.0e0;
787
788 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
789 v4rhotau3[0] = 0.0e0;
790
791 t670 = t153 * t153;
792 t676 = 0.1e1 / t95 / t12;
793 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
794 v4sigma4[0] = -0.8e1 / 0.3e1 * t38 * (0.22816e5 / 0.50625e5 * t369 * t670 - 0.11115669842642431469e-2 * t281 * t14 + 0.33900936660288571310e-6 * t87 * t676 - 0.23602456153064567309e-1 * t425 * t321 + 0.40572546118771609792e-4 * t632 * t68 + 0.2112e4 / 0.3125e4 * t392 * t670 - 0.15974293273861945869e-2 * t208 * t153 * t14 + 0.45766264491389571269e-6 * t113 * t676);
795
796 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
797 v4sigma3lapl[0] = 0.0e0;
798
799 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
800 v4sigma3tau[0] = -0.19520689165912504855e-2 * t508 * t321 + 0.33556001812606091232e-5 * t667 * t68;
801
802 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
803 v4sigma2lapl2[0] = 0.0e0;
804
805 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
806 v4sigma2lapltau[0] = 0.0e0;
807
808 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
809 v4sigma2tau2[0] = 0.0e0;
810
811 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
812 v4sigmalapl3[0] = 0.0e0;
813
814 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
815 v4sigmalapl2tau[0] = 0.0e0;
816
817 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
818 v4sigmalapltau2[0] = 0.0e0;
819
820 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
821 v4sigmatau3[0] = 0.0e0;
822
823 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
824 v4lapl4[0] = 0.0e0;
825
826 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
827 v4lapl3tau[0] = 0.0e0;
828
829 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
830 v4lapl2tau2[0] = 0.0e0;
831
832 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
833 v4lapltau3[0] = 0.0e0;
834
835 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
836 v4tau4[0] = 0.0e0;
837
838 #ifndef XC_DONT_COMPILE_MXC
839
840 if(order < 5) return;
841
842
843 #endif
844
845 #endif
846
847 #endif
848
849 #endif
850
851 #endif
852
853
854 }
855
856
857 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 *))858 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 *))
859 {
860
861 #ifndef XC_DONT_COMPILE_EXC
862 double t2, t3, t4, t5, t6, t7, t9, t10;
863 double t11, t12, t13, t14, t15, t16, t17, t19;
864 double t20, t22, t25, t26, t29, t33, t36, t37;
865 double t38, t41, t42, t43, t45, t46, t47, t48;
866 double t49, t50, t51, t52, t54, t55, t57, t60;
867 double t61, t64, t70, t71, t72, t75, t76, t77;
868
869 #ifndef XC_DONT_COMPILE_VXC
870 double t79, t80, t81, t82, t83, t84, t86, t88;
871 double t89, t90, t91, t92, t93, t95, t96, t97;
872 double t100, t103, t109, t113, t114, t117, t118, t119;
873 double t120, t121, t122, t124, t125, t126, t127, t128;
874 double t132, t134, t135, t136, t138, t139, t141, t142;
875 double t143, t146, t149, t155, t159, t160, t163, t164;
876 double t165, t166, t169, t170, t172, t174, t177, t181;
877 double t186, t188, t191, t195, t199, t200, t202, t203;
878
879 #ifndef XC_DONT_COMPILE_FXC
880 double t206, t209, t210, t211, t212, t214, t215, t217;
881 double t218, t220, t221, t222, t223, t224, t225, t227;
882 double t228, t229, t230, t231, t232, t233, t234, t235;
883 double t236, t238, t239, t243, t244, t246, t247, t250;
884 double t256, t259, t263, t264, t269, t270, t271, t272;
885 double t273, t274, t275, t277, t278, t280, t281, t282;
886 double t284, t285, t286, t287, t288, t289, t291, t292;
887 double t293, t294, t297, t300, t303, t304, t306, t310;
888 double t311, t312, t313, t316, t318, t320, t324, t326;
889 double t327, t329, t334, t336, t337, t338, t339, t341;
890 double t342, t343, t345, t346, t347, t349, t350, t351;
891 double t353, t354, t355, t356, t358, t359, t363, t364;
892 double t366, t367, t370, t376, t379, t383, t384, t389;
893 double t390, t391, t392, t393, t395, t396, t398, t402;
894 double t406, t408, t411, t413, t414, t418, t423, t427;
895 double t428, t429, t433, t437, t440, t444, t446, t449;
896 double t451, t452, t456, t461, t462, t465, t467, t468;
897 double t469, t474, t475, t478, t480, t481, t482, t485;
898 double t488, t493, t494, t497, t502, t508, t509, t512;
899 double t517, t523, t524, t527, t530;
900
901 #ifndef XC_DONT_COMPILE_KXC
902 double t534, t537, t538, t540, t541, t542, t543, t544;
903 double t546, t548, t549, t550, t552, t554, t556, t557;
904 double t558, t560, t561, t563, t566, t567, t568, t569;
905 double t570, t572, t574, t575, t578, t583, t586, t592;
906 double t595, t598, t604, t605, t608, t613, t614, t615;
907 double t616, t617, t618, t619, t621, t623, t626, t627;
908 double t628, t630, t631, t632, t633, t634, t636, t638;
909 double t641, t642, t643, t645, t646, t647, t656, t658;
910 double t663, t664, t666, t668, t670, t671, t672, t673;
911 double t674, t675, t676, t677, t678, t679, t681, t682;
912 double t683, t684, t685, t686, t687, t688, t689, t690;
913 double t692, t693, t694, t696, t697, t699, t700, t702;
914 double t704, t707, t708, t710, t713, t714, t716, t717;
915 double t719, t721, t724, t725, t727, t728, t730, t731;
916 double t732, t734, t741, t747, t748, t750, t751, t752;
917 double t753, t754, t755, t756, t760, t761, t762, t764;
918 double t765, t766, t767, t768, t770, t771, t772, t774;
919 double t775, t776, t777, t778, t780, t781, t782, t784;
920 double t786, t789, t791, t793, t795, t798, t801, t803;
921 double t805, t808, t811, t813, t816, t819, t824, t831;
922 double t833, t835, t836, t838, t839, t841, t842, t844;
923 double t845, t846, t848, t849, t851, t852, t854, t855;
924 double t858, t863, t866, t872, t875, t878, t884, t885;
925 double t888, t893, t894, t895, t896, t898, t899, t900;
926 double t901, t903, t904, t905, t906, t911, t913, t914;
927 double t916, t917, t930, t932, t934, t935, t936, t938;
928 double t942, t949, t952, t960, t963, t965, t966, t968;
929 double t969, t971, t979, t982, t985, t990, t995, t997;
930 double t999, t1000, t1009, t1010, t1012, t1013, t1014, t1017;
931 double t1020, t1021, t1025, t1027, t1028, t1029, t1032, t1035;
932 double t1037, t1038, t1042, t1045, t1050, t1053, t1056, t1059;
933 double t1062, t1070, t1073, t1075, t1076, t1078, t1079, t1081;
934 double t1089, t1092, t1095, t1100, t1101, t1104, t1105, t1107;
935 double t1109, t1110, t1112, t1114, t1115, t1118, t1121, t1122;
936 double t1123, t1126, t1133, t1134, t1137, t1140, t1141, t1143;
937 double t1145, t1146, t1147, t1150, t1156, t1158, t1159, t1160;
938 double t1163, t1166, t1167, t1170, t1171, t1175, t1177, t1178;
939 double t1179, t1182, t1183, t1186, t1188, t1191, t1193, t1194;
940 double t1195, t1199, t1202, t1208, t1211, t1214, t1215, t1218;
941 double t1225, t1226, t1229, t1232, t1234, t1235, t1238, t1243;
942 double t1248, t1252, t1256, t1259, t1264, t1269, t1270, t1273;
943 double t1274, t1275, t1278, t1282, t1285, t1290, t1295, t1299;
944 double t1303, t1306, t1311, t1316, t1317, t1321, t1322, t1323;
945 double t1328, t1329, t1330, t1333, t1337, t1338, t1339, t1342;
946 double t1345, t1350, t1351, t1352, t1355, t1358, t1363, t1365;
947 double t1369, t1372, t1373, t1376, t1381, t1383, t1387, t1390;
948 double t1391, t1394, t1397, t1400, t1403;
949
950 #ifndef XC_DONT_COMPILE_LXC
951 double t1407, t1410, t1412, t1414, t1415, t1421, t1426, t1435;
952 double t1438, t1449, t1452, t1459, t1470, t1474, t1477, t1479;
953 double t1488, t1502, t1504, t1505, t1508, t1510, t1512, t1514;
954 double t1518, t1519, t1522, t1524, t1527, t1528, t1532, t1534;
955 double t1537, t1539, t1543, t1546, t1547, t1552, t1555, t1557;
956 double t1562, t1568, t1571, t1577, t1580, t1583, t1598, t1605;
957 double t1608, t1611, t1623, t1629, t1630, t1633, t1638, t1640;
958 double t1641, t1648, t1652, t1653, t1655, t1659, t1660, t1661;
959 double t1662, t1663, t1665, t1669, t1670, t1672, t1673, t1674;
960 double t1675, t1679, t1683, t1698, t1704, t1705, t1710, t1720;
961 double t1737, t1738, t1740, t1747, t1748, t1753, t1755, t1756;
962 double t1759, t1762, t1765, t1768, t1769, t1770, t1773, t1781;
963 double t1797, t1802, t1803, t1808, t1812, t1819, t1832, t1845;
964 double t1861, t1889, t1906, t1908, t1913, t1918, t1920, t1925;
965 double t1928, t1931, t1933, t1936, t1942, t1945, t1948, t1951;
966 double t1978, t1988, t1992, t1997, t2001, t2005, t2010, t2011;
967 double t2016, t2031, t2044, t2051, t2057, t2071, t2074, t2077;
968 double t2080, t2083, t2085, t2096, t2112, t2115, t2125, t2140;
969 double t2145, t2146, t2151, t2178, t2199, t2203, t2213, t2221;
970 double t2225, t2228, t2237, t2239, t2240, t2246, t2251, t2260;
971 double t2263, t2270, t2281, t2289, t2309, t2313, t2317, t2324;
972 double t2330, t2360, t2371, t2383, t2385, t2390, t2393, t2399;
973 double t2426, t2442, t2460, t2466, t2469, t2472, t2474, t2482;
974 double t2485, t2488, t2489, t2493, t2504, t2507, t2510, t2513;
975 double t2514, t2525, t2536, t2537, t2540, t2552, t2562, t2565;
976 double t2566, t2578, t2581, t2582, t2590, t2595, t2606, t2623;
977 double t2631, t2640, t2649, t2651, t2683, t2691, t2716, t2720;
978 double t2723, t2753, t2769, t2778, t2780, t2782, t2784, t2794;
979 double t2795, t2797, t2798, t2800, t2802, t2804, t2805, t2817;
980 double t2818, t2820, t2835, t2836, t2846, t2853, t2854, t2855;
981 double t2857, t2858, t2860, t2864, t2865, t2887, t2889, t2894;
982 double t2898, t2904, t2906, t2917, t2926, t2931, t2939, t2943;
983 double t2946, t2952, t2960, t2962, t2964, t2969, t2972, t2977;
984 double t2994, t3010, t3030, t3041, t3043, t3045, t3047, t3049;
985 double t3051, t3053, t3064, t3071, t3076, t3088, t3094, t3143;
986 double t3157, t3173, t3175, t3176, t3178, t3180, t3184, t3191;
987 double t3228, t3265, t3271, t3272, t3274, t3283, t3296, t3305;
988 double t3307, t3329, t3362, t3403, t3408, t3428, t3429, t3431;
989 double t3434, t3436, t3456, t3457, t3469, t3488, t3497, t3502;
990 double t3507, t3509, t3560, t3562, t3585, t3607, t3611, t3612;
991 double t3642, t3664, t3669, t3670, t3684, t3690, t3695, t3696;
992 double t3701, t3728, t3732, t3738, t3756, t3762;
993 #endif
994
995 #endif
996
997 #endif
998
999 #endif
1000
1001 #endif
1002
1003
1004
1005 t2 = sqrt(M_PI);
1006 t3 = 0.1e1 / t2;
1007 t4 = rho[0] - rho[1];
1008 t5 = rho[0] + rho[1];
1009 t6 = 0.1e1 / t5;
1010 t7 = t4 * t6;
1011 t9 = 0.1e1 / 0.2e1 + t7 / 0.2e1;
1012 t10 = sqrt(t9);
1013 t11 = t10 * t9;
1014 t12 = t3 * t11;
1015 t13 = sqrt(t5);
1016 t14 = rho[0] * rho[0];
1017 t15 = t14 * rho[0];
1018 t16 = 0.1e1 / t15;
1019 t17 = sigma[0] * t16;
1020 t19 = sigma[0] * sigma[0];
1021 t20 = t14 * t14;
1022 t22 = 0.1e1 / t20 / t14;
1023 t25 = 0.1e1 + 0.41252961249419271031e0 * t17 + 0.63029881920225480858e-3 * t19 * t22;
1024 t26 = pow(t25, 0.1e1 / 0.15e2);
1025 t29 = 0.1e1 / t14;
1026 t33 = 0.1e1 / M_PI;
1027 t36 = 0.1e1 + 0.27938513438760141227e-1 * t17 + (-0.7720000000000000000e-1 * tau[0] * t29 - 0.11596246802930644802e2) * t33 / 0.4e1;
1028 t37 = pow(t25, 0.1e1 / 0.5e1);
1029 t38 = 0.1e1 / t37;
1030 t41 = 0.1e1 / t26 + 0.2e1 / 0.5e1 * t36 * t38;
1031 t42 = t13 * t41;
1032 t43 = t12 * t42;
1033 t45 = 0.1e1 / 0.2e1 - t7 / 0.2e1;
1034 t46 = sqrt(t45);
1035 t47 = t46 * t45;
1036 t48 = t3 * t47;
1037 t49 = rho[1] * rho[1];
1038 t50 = t49 * rho[1];
1039 t51 = 0.1e1 / t50;
1040 t52 = sigma[2] * t51;
1041 t54 = sigma[2] * sigma[2];
1042 t55 = t49 * t49;
1043 t57 = 0.1e1 / t55 / t49;
1044 t60 = 0.1e1 + 0.41252961249419271031e0 * t52 + 0.63029881920225480858e-3 * t54 * t57;
1045 t61 = pow(t60, 0.1e1 / 0.15e2);
1046 t64 = 0.1e1 / t49;
1047 t70 = 0.1e1 + 0.27938513438760141227e-1 * t52 + (-0.7720000000000000000e-1 * tau[1] * t64 - 0.11596246802930644802e2) * t33 / 0.4e1;
1048 t71 = pow(t60, 0.1e1 / 0.5e1);
1049 t72 = 0.1e1 / t71;
1050 t75 = 0.1e1 / t61 + 0.2e1 / 0.5e1 * t70 * t72;
1051 t76 = t13 * t75;
1052 t77 = t48 * t76;
1053 if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC))
1054 zk[0] = -0.8e1 / 0.3e1 * t43 - 0.8e1 / 0.3e1 * t77;
1055
1056 #ifndef XC_DONT_COMPILE_VXC
1057
1058 if(order < 1) return;
1059
1060
1061 t79 = 0.8e1 / 0.3e1 * t43;
1062 t80 = 0.8e1 / 0.3e1 * t77;
1063 t81 = t3 * t10;
1064 t82 = t5 * t5;
1065 t83 = 0.1e1 / t82;
1066 t84 = t4 * t83;
1067 t86 = t6 / 0.2e1 - t84 / 0.2e1;
1068 t88 = t81 * t42 * t86;
1069 t89 = 0.4e1 * t88;
1070 t90 = 0.1e1 / t13;
1071 t91 = t90 * t41;
1072 t92 = t12 * t91;
1073 t93 = 0.4e1 / 0.3e1 * t92;
1074 t95 = 0.1e1 / t26 / t25;
1075 t96 = 0.1e1 / t20;
1076 t97 = sigma[0] * t96;
1077 t100 = 0.1e1 / t20 / t15;
1078 t103 = -0.12375888374825781309e1 * t97 - 0.37817929152135288515e-2 * t19 * t100;
1079 t109 = -0.83815540316280423681e-1 * t97 + 0.12286761606694319921e-1 * tau[0] * t16;
1080 t113 = 0.1e1 / t37 / t25;
1081 t114 = t36 * t113;
1082 t117 = -t95 * t103 / 0.15e2 + 0.2e1 / 0.5e1 * t109 * t38 - 0.2e1 / 0.25e2 * t114 * t103;
1083 t118 = t13 * t117;
1084 t119 = t12 * t118;
1085 t120 = 0.8e1 / 0.3e1 * t119;
1086 t121 = t3 * t46;
1087 t122 = -t86;
1088 t124 = t121 * t76 * t122;
1089 t125 = 0.4e1 * t124;
1090 t126 = t90 * t75;
1091 t127 = t48 * t126;
1092 t128 = 0.4e1 / 0.3e1 * t127;
1093 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1094 vrho[0] = -t79 - t80 + t5 * (-t89 - t93 - t120 - t125 - t128);
1095
1096 t132 = -t6 / 0.2e1 - t84 / 0.2e1;
1097 t134 = t81 * t42 * t132;
1098 t135 = 0.4e1 * t134;
1099 t136 = -t132;
1100 t138 = t121 * t76 * t136;
1101 t139 = 0.4e1 * t138;
1102 t141 = 0.1e1 / t61 / t60;
1103 t142 = 0.1e1 / t55;
1104 t143 = sigma[2] * t142;
1105 t146 = 0.1e1 / t55 / t50;
1106 t149 = -0.12375888374825781309e1 * t143 - 0.37817929152135288515e-2 * t54 * t146;
1107 t155 = -0.83815540316280423681e-1 * t143 + 0.12286761606694319921e-1 * tau[1] * t51;
1108 t159 = 0.1e1 / t71 / t60;
1109 t160 = t70 * t159;
1110 t163 = -t141 * t149 / 0.15e2 + 0.2e1 / 0.5e1 * t155 * t72 - 0.2e1 / 0.25e2 * t160 * t149;
1111 t164 = t13 * t163;
1112 t165 = t48 * t164;
1113 t166 = 0.8e1 / 0.3e1 * t165;
1114 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1115 vrho[1] = -t79 - t80 + t5 * (-t135 - t93 - t139 - t128 - t166);
1116
1117 t169 = t13 * t5;
1118 t170 = t169 * t3;
1119 t172 = sigma[0] * t22;
1120 t174 = 0.41252961249419271031e0 * t16 + 0.12605976384045096172e-2 * t172;
1121 t177 = t16 * t38;
1122 t181 = -t95 * t174 / 0.15e2 + 0.11175405375504056491e-1 * t177 - 0.2e1 / 0.25e2 * t114 * t174;
1123 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1124 vsigma[0] = -0.8e1 / 0.3e1 * t170 * t11 * t181;
1125
1126 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1127 vsigma[1] = 0.0e0;
1128
1129 t186 = sigma[2] * t57;
1130 t188 = 0.41252961249419271031e0 * t51 + 0.12605976384045096172e-2 * t186;
1131 t191 = t51 * t72;
1132 t195 = -t141 * t188 / 0.15e2 + 0.11175405375504056491e-1 * t191 - 0.2e1 / 0.25e2 * t160 * t188;
1133 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1134 vsigma[2] = -0.8e1 / 0.3e1 * t170 * t47 * t195;
1135
1136 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1137 vlapl[0] = 0.0e0;
1138
1139 if(vrho != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_VXC))
1140 vlapl[1] = 0.0e0;
1141
1142 t199 = t169 * t11;
1143 t200 = t29 * t38;
1144 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1145 vtau[0] = 0.36971002208167622832e-2 * t199 * t200;
1146
1147 t202 = t169 * t47;
1148 t203 = t64 * t72;
1149 if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC))
1150 vtau[1] = 0.36971002208167622832e-2 * t202 * t203;
1151
1152 #ifndef XC_DONT_COMPILE_FXC
1153
1154 if(order < 2) return;
1155
1156
1157 t206 = 0.8e1 / 0.3e1 * t92;
1158 t209 = 0.8e1 / 0.3e1 * t127;
1159 t210 = 0.1e1 / t10;
1160 t211 = t3 * t210;
1161 t212 = t86 * t86;
1162 t214 = t211 * t42 * t212;
1163 t215 = 0.2e1 * t214;
1164 t217 = t81 * t91 * t86;
1165 t218 = 0.4e1 * t217;
1166 t220 = t81 * t118 * t86;
1167 t221 = 0.8e1 * t220;
1168 t222 = t82 * t5;
1169 t223 = 0.1e1 / t222;
1170 t224 = t4 * t223;
1171 t225 = -t83 + t224;
1172 t227 = t81 * t42 * t225;
1173 t228 = 0.4e1 * t227;
1174 t229 = 0.1e1 / t169;
1175 t230 = t229 * t41;
1176 t231 = t12 * t230;
1177 t232 = 0.2e1 / 0.3e1 * t231;
1178 t233 = t90 * t117;
1179 t234 = t12 * t233;
1180 t235 = 0.8e1 / 0.3e1 * t234;
1181 t236 = t25 * t25;
1182 t238 = 0.1e1 / t26 / t236;
1183 t239 = t103 * t103;
1184 t243 = 0.1e1 / t20 / rho[0];
1185 t244 = sigma[0] * t243;
1186 t246 = t20 * t20;
1187 t247 = 0.1e1 / t246;
1188 t250 = 0.49503553499303125236e1 * t244 + 0.26472550406494701960e-1 * t19 * t247;
1189 t256 = 0.33526216126512169472e0 * t244 - 0.36860284820082959763e-1 * tau[0] * t96;
1190 t259 = t109 * t113;
1191 t263 = 0.1e1 / t37 / t236;
1192 t264 = t36 * t263;
1193 t269 = 0.16e2 / 0.225e3 * t238 * t239 - t95 * t250 / 0.15e2 + 0.2e1 / 0.5e1 * t256 * t38 - 0.4e1 / 0.25e2 * t259 * t103 + 0.12e2 / 0.125e3 * t264 * t239 - 0.2e1 / 0.25e2 * t114 * t250;
1194 t270 = t13 * t269;
1195 t271 = t12 * t270;
1196 t272 = 0.8e1 / 0.3e1 * t271;
1197 t273 = 0.1e1 / t46;
1198 t274 = t3 * t273;
1199 t275 = t122 * t122;
1200 t277 = t274 * t76 * t275;
1201 t278 = 0.2e1 * t277;
1202 t280 = t121 * t126 * t122;
1203 t281 = 0.4e1 * t280;
1204 t282 = -t225;
1205 t284 = t121 * t76 * t282;
1206 t285 = 0.4e1 * t284;
1207 t286 = t229 * t75;
1208 t287 = t48 * t286;
1209 t288 = 0.2e1 / 0.3e1 * t287;
1210 t289 = -t215 - t218 - t221 - t228 + t232 - t235 - t272 - t278 - t281 - t285 + t288;
1211 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1212 v2rho2[0] = -0.8e1 * t88 - t206 - 0.16e2 / 0.3e1 * t119 - 0.8e1 * t124 - t209 + t5 * t289;
1213
1214 t291 = t211 * t13;
1215 t292 = t41 * t132;
1216 t293 = t292 * t86;
1217 t294 = t291 * t293;
1218 t297 = t81 * t91 * t132;
1219 t300 = t81 * t118 * t132;
1220 t303 = 0.1e1 / t13 / t82;
1221 t304 = t303 * t41;
1222 t306 = t81 * t304 * t4;
1223 t310 = t274 * t13;
1224 t311 = t75 * t136;
1225 t312 = t311 * t122;
1226 t313 = t310 * t312;
1227 t316 = t121 * t126 * t136;
1228 t318 = t303 * t75;
1229 t320 = t121 * t318 * t4;
1230 t324 = t121 * t164 * t122;
1231 t326 = t90 * t163;
1232 t327 = t48 * t326;
1233 t329 = -0.2e1 * t294 - 0.2e1 * t297 - 0.4e1 * t300 - 0.4e1 * t306 - 0.2e1 * t217 + t232 - 0.4e1 / 0.3e1 * t234 - 0.2e1 * t313 - 0.2e1 * t316 + 0.4e1 * t320 - 0.2e1 * t280 + t288 - 0.4e1 * t324 - 0.4e1 / 0.3e1 * t327;
1234 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1235 v2rho2[1] = t5 * t329 - t120 - t125 - t135 - t139 - t166 - t206 - t209 - t89;
1236
1237 t334 = t132 * t132;
1238 t336 = t211 * t42 * t334;
1239 t337 = 0.2e1 * t336;
1240 t338 = 0.4e1 * t297;
1241 t339 = t83 + t224;
1242 t341 = t81 * t42 * t339;
1243 t342 = 0.4e1 * t341;
1244 t343 = t136 * t136;
1245 t345 = t274 * t76 * t343;
1246 t346 = 0.2e1 * t345;
1247 t347 = 0.4e1 * t316;
1248 t349 = t121 * t164 * t136;
1249 t350 = 0.8e1 * t349;
1250 t351 = -t339;
1251 t353 = t121 * t76 * t351;
1252 t354 = 0.4e1 * t353;
1253 t355 = 0.8e1 / 0.3e1 * t327;
1254 t356 = t60 * t60;
1255 t358 = 0.1e1 / t61 / t356;
1256 t359 = t149 * t149;
1257 t363 = 0.1e1 / t55 / rho[1];
1258 t364 = sigma[2] * t363;
1259 t366 = t55 * t55;
1260 t367 = 0.1e1 / t366;
1261 t370 = 0.49503553499303125236e1 * t364 + 0.26472550406494701960e-1 * t54 * t367;
1262 t376 = 0.33526216126512169472e0 * t364 - 0.36860284820082959763e-1 * tau[1] * t142;
1263 t379 = t155 * t159;
1264 t383 = 0.1e1 / t71 / t356;
1265 t384 = t70 * t383;
1266 t389 = 0.16e2 / 0.225e3 * t358 * t359 - t141 * t370 / 0.15e2 + 0.2e1 / 0.5e1 * t376 * t72 - 0.4e1 / 0.25e2 * t379 * t149 + 0.12e2 / 0.125e3 * t384 * t359 - 0.2e1 / 0.25e2 * t160 * t370;
1267 t390 = t13 * t389;
1268 t391 = t48 * t390;
1269 t392 = 0.8e1 / 0.3e1 * t391;
1270 t393 = -t337 - t338 - t342 + t232 - t346 - t347 - t350 - t354 + t288 - t355 - t392;
1271 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1272 v2rho2[2] = -0.8e1 * t134 - t206 - 0.8e1 * t138 - t209 - 0.16e2 / 0.3e1 * t165 + t5 * t393;
1273
1274 t395 = t13 * t181;
1275 t396 = t12 * t395;
1276 t398 = t10 * t181;
1277 t402 = t238 * t174;
1278 t406 = sigma[0] * t100;
1279 t408 = -0.12375888374825781309e1 * t96 - 0.75635858304270577032e-2 * t406;
1280 t411 = t96 * t38;
1281 t413 = t16 * t113;
1282 t414 = t413 * t103;
1283 t418 = t174 * t103;
1284 t423 = 0.16e2 / 0.225e3 * t402 * t103 - t95 * t408 / 0.15e2 - 0.33526216126512169473e-1 * t411 - 0.22350810751008112982e-2 * t414 - 0.2e1 / 0.25e2 * t259 * t174 + 0.12e2 / 0.125e3 * t264 * t418 - 0.2e1 / 0.25e2 * t114 * t408;
1285 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1286 v2rhosigma[0] = -0.4e1 * t396 - 0.4e1 * t170 * t398 * t86 - 0.8e1 / 0.3e1 * t170 * t11 * t423;
1287
1288 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1289 v2rhosigma[1] = 0.0e0;
1290
1291 t427 = t13 * t195;
1292 t428 = t48 * t427;
1293 t429 = t46 * t195;
1294 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1295 v2rhosigma[2] = -0.4e1 * t170 * t429 * t122 - 0.4e1 * t428;
1296
1297 t433 = t398 * t132;
1298 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1299 v2rhosigma[3] = -0.4e1 * t170 * t433 - 0.4e1 * t396;
1300
1301 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1302 v2rhosigma[4] = 0.0e0;
1303
1304 t437 = t429 * t136;
1305 t440 = t358 * t188;
1306 t444 = sigma[2] * t146;
1307 t446 = -0.12375888374825781309e1 * t142 - 0.75635858304270577032e-2 * t444;
1308 t449 = t142 * t72;
1309 t451 = t51 * t159;
1310 t452 = t451 * t149;
1311 t456 = t188 * t149;
1312 t461 = 0.16e2 / 0.225e3 * t440 * t149 - t141 * t446 / 0.15e2 - 0.33526216126512169473e-1 * t449 - 0.22350810751008112982e-2 * t452 - 0.2e1 / 0.25e2 * t379 * t188 + 0.12e2 / 0.125e3 * t384 * t456 - 0.2e1 / 0.25e2 * t160 * t446;
1313 t462 = t47 * t461;
1314 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1315 v2rhosigma[5] = -0.4e1 * t428 - 0.4e1 * t170 * t437 - 0.8e1 / 0.3e1 * t170 * t462;
1316
1317 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1318 v2rholapl[0] = 0.0e0;
1319
1320 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1321 v2rholapl[1] = 0.0e0;
1322
1323 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1324 v2rholapl[2] = 0.0e0;
1325
1326 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1327 v2rholapl[3] = 0.0e0;
1328
1329 t465 = t11 * t13;
1330 t467 = 0.55456503312251434248e-2 * t465 * t200;
1331 t468 = t169 * t10;
1332 t469 = t200 * t86;
1333 t474 = t29 * t113;
1334 t475 = t474 * t103;
1335 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1336 v2rhotau[0] = t467 + 0.55456503312251434248e-2 * t468 * t469 - 0.73942004416335245664e-2 * t199 * t177 - 0.73942004416335245664e-3 * t199 * t475;
1337
1338 t478 = t47 * t13;
1339 t480 = 0.55456503312251434248e-2 * t478 * t203;
1340 t481 = t169 * t46;
1341 t482 = t203 * t122;
1342 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1343 v2rhotau[1] = t480 + 0.55456503312251434248e-2 * t481 * t482;
1344
1345 t485 = t200 * t132;
1346 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1347 v2rhotau[2] = t467 + 0.55456503312251434248e-2 * t468 * t485;
1348
1349 t488 = t203 * t136;
1350 t493 = t64 * t159;
1351 t494 = t493 * t149;
1352 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1353 v2rhotau[3] = t480 + 0.55456503312251434248e-2 * t481 * t488 - 0.73942004416335245664e-2 * t202 * t191 - 0.73942004416335245664e-3 * t202 * t494;
1354
1355 t497 = t174 * t174;
1356 t502 = t413 * t174;
1357 t508 = 0.16e2 / 0.225e3 * t238 * t497 - 0.84039842560300641147e-4 * t95 * t22 - 0.44701621502016225964e-2 * t502 + 0.12e2 / 0.125e3 * t264 * t497 - 0.10084781107236076938e-3 * t114 * t22;
1358 t509 = t11 * t508;
1359 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1360 v2sigma2[0] = -0.8e1 / 0.3e1 * t170 * t509;
1361
1362 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1363 v2sigma2[1] = 0.0e0;
1364
1365 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1366 v2sigma2[2] = 0.0e0;
1367
1368 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1369 v2sigma2[3] = 0.0e0;
1370
1371 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1372 v2sigma2[4] = 0.0e0;
1373
1374 t512 = t188 * t188;
1375 t517 = t451 * t188;
1376 t523 = 0.16e2 / 0.225e3 * t358 * t512 - 0.84039842560300641147e-4 * t141 * t57 - 0.44701621502016225964e-2 * t517 + 0.12e2 / 0.125e3 * t384 * t512 - 0.10084781107236076938e-3 * t160 * t57;
1377 t524 = t47 * t523;
1378 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1379 v2sigma2[5] = -0.8e1 / 0.3e1 * t170 * t524;
1380
1381 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1382 v2sigmalapl[0] = 0.0e0;
1383
1384 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1385 v2sigmalapl[1] = 0.0e0;
1386
1387 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1388 v2sigmalapl[2] = 0.0e0;
1389
1390 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1391 v2sigmalapl[3] = 0.0e0;
1392
1393 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1394 v2sigmalapl[4] = 0.0e0;
1395
1396 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1397 v2sigmalapl[5] = 0.0e0;
1398
1399 t527 = t474 * t174;
1400 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1401 v2sigmatau[0] = -0.73942004416335245664e-3 * t199 * t527;
1402
1403 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1404 v2sigmatau[1] = 0.0e0;
1405
1406 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1407 v2sigmatau[2] = 0.0e0;
1408
1409 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1410 v2sigmatau[3] = 0.0e0;
1411
1412 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1413 v2sigmatau[4] = 0.0e0;
1414
1415 t530 = t493 * t188;
1416 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1417 v2sigmatau[5] = -0.73942004416335245664e-3 * t202 * t530;
1418
1419 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1420 v2lapl2[0] = 0.0e0;
1421
1422 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1423 v2lapl2[1] = 0.0e0;
1424
1425 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1426 v2lapl2[2] = 0.0e0;
1427
1428 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1429 v2lapltau[0] = 0.0e0;
1430
1431 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1432 v2lapltau[1] = 0.0e0;
1433
1434 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1435 v2lapltau[2] = 0.0e0;
1436
1437 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_FXC))
1438 v2lapltau[3] = 0.0e0;
1439
1440 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1441 v2tau2[0] = 0.0e0;
1442
1443 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1444 v2tau2[1] = 0.0e0;
1445
1446 if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC))
1447 v2tau2[2] = 0.0e0;
1448
1449 #ifndef XC_DONT_COMPILE_KXC
1450
1451 if(order < 3) return;
1452
1453
1454 t534 = t81 * t91 * t225;
1455 t537 = t81 * t270 * t86;
1456 t538 = 0.12e2 * t537;
1457 t540 = t81 * t118 * t225;
1458 t541 = 0.12e2 * t540;
1459 t542 = t82 * t82;
1460 t543 = 0.1e1 / t542;
1461 t544 = t4 * t543;
1462 t546 = 0.3e1 * t223 - 0.3e1 * t544;
1463 t548 = t81 * t42 * t546;
1464 t549 = 0.4e1 * t548;
1465 t550 = t12 * t304;
1466 t552 = t121 * t126 * t282;
1467 t554 = -t546;
1468 t556 = t121 * t76 * t554;
1469 t557 = 0.4e1 * t556;
1470 t558 = t48 * t318;
1471 t560 = t211 * t118 * t212;
1472 t561 = 0.6e1 * t560;
1473 t563 = t81 * t233 * t86;
1474 t566 = t229 * t117;
1475 t567 = t12 * t566;
1476 t568 = 0.2e1 * t567;
1477 t569 = t90 * t269;
1478 t570 = t12 * t569;
1479 t572 = t236 * t25;
1480 t574 = 0.1e1 / t26 / t572;
1481 t575 = t239 * t103;
1482 t578 = t238 * t103;
1483 t583 = 0.1e1 / t246 / rho[0];
1484 t586 = -0.24751776749651562618e2 * t172 - 0.21178040325195761568e0 * t19 * t583;
1485 t592 = -0.16763108063256084736e1 * t172 + 0.14744113928033183905e0 * tau[0] * t243;
1486 t595 = t256 * t113;
1487 t598 = t109 * t263;
1488 t604 = 0.1e1 / t37 / t572;
1489 t605 = t36 * t604;
1490 t608 = t103 * t250;
1491 t613 = -0.496e3 / 0.3375e4 * t574 * t575 + 0.16e2 / 0.75e2 * t578 * t250 - t95 * t586 / 0.15e2 + 0.2e1 / 0.5e1 * t592 * t38 - 0.6e1 / 0.25e2 * t595 * t103 + 0.36e2 / 0.125e3 * t598 * t239 - 0.6e1 / 0.25e2 * t259 * t250 - 0.132e3 / 0.625e3 * t605 * t575 + 0.36e2 / 0.125e3 * t264 * t608 - 0.2e1 / 0.25e2 * t114 * t586;
1492 t614 = t13 * t613;
1493 t615 = t12 * t614;
1494 t616 = 0.8e1 / 0.3e1 * t615;
1495 t617 = 0.1e1 / t11;
1496 t618 = t3 * t617;
1497 t619 = t212 * t86;
1498 t621 = t618 * t42 * t619;
1499 t623 = t211 * t91 * t212;
1500 t626 = t41 * t86 * t225;
1501 t627 = t291 * t626;
1502 t628 = 0.6e1 * t627;
1503 t630 = t81 * t230 * t86;
1504 t631 = 0.3e1 * t630;
1505 t632 = 0.1e1 / t47;
1506 t633 = t3 * t632;
1507 t634 = t275 * t122;
1508 t636 = t633 * t76 * t634;
1509 t638 = t274 * t126 * t275;
1510 t641 = t75 * t122 * t282;
1511 t642 = t310 * t641;
1512 t643 = 0.6e1 * t642;
1513 t645 = t121 * t286 * t122;
1514 t646 = 0.3e1 * t645;
1515 t647 = t568 - 0.4e1 * t570 - t616 + t621 - 0.3e1 * t623 - t628 + t631 + t636 - 0.3e1 * t638 - t643 + t646;
1516 t656 = 0.2e1 * t231;
1517 t658 = 0.2e1 * t287;
1518 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1519 v3rho3[0] = t5 * (-0.6e1 * t534 - t538 - t541 - t549 - t550 - 0.6e1 * t552 - t557 - t558 - t561 - 0.12e2 * t563 + t647) - 0.6e1 * t214 - 0.12e2 * t217 - 0.6e1 * t277 - 0.12e2 * t280 - 0.8e1 * t234 - 0.8e1 * t271 + t656 - 0.12e2 * t284 + t658 - 0.24e2 * t220 - 0.12e2 * t227;
1520
1521 t663 = t229 * t163;
1522 t664 = t48 * t663;
1523 t666 = t81 * t304;
1524 t668 = t121 * t318;
1525 t670 = t618 * t13;
1526 t671 = t292 * t212;
1527 t672 = t670 * t671;
1528 t673 = t211 * t90;
1529 t674 = t673 * t293;
1530 t675 = 0.2e1 * t674;
1531 t676 = t211 * t303;
1532 t677 = t41 * t4;
1533 t678 = t677 * t86;
1534 t679 = t676 * t678;
1535 t681 = t633 * t13;
1536 t682 = t311 * t275;
1537 t683 = t681 * t682;
1538 t684 = t274 * t90;
1539 t685 = t684 * t312;
1540 t686 = 0.2e1 * t685;
1541 t687 = t274 * t303;
1542 t688 = t75 * t4;
1543 t689 = t688 * t122;
1544 t690 = t687 * t689;
1545 t692 = t117 * t132;
1546 t693 = t692 * t86;
1547 t694 = t291 * t693;
1548 t696 = t292 * t225;
1549 t697 = t291 * t696;
1550 t699 = t311 * t282;
1551 t700 = t310 * t699;
1552 t702 = -t550 - t558 + 0.4e1 / 0.3e1 * t567 - 0.4e1 / 0.3e1 * t570 + 0.2e1 / 0.3e1 * t664 - 0.4e1 * t666 + 0.4e1 * t668 + t672 - t675 - 0.4e1 * t679 + t683 - t686 + 0.4e1 * t690 - 0.4e1 * t694 - 0.2e1 * t697 - 0.2e1 * t700;
1553 t704 = t121 * t164 * t282;
1554 t707 = t81 * t233 * t132;
1555 t708 = 0.4e1 * t707;
1556 t710 = t81 * t270 * t132;
1557 t713 = 0.1e1 / t13 / t222;
1558 t714 = t713 * t75;
1559 t716 = t121 * t714 * t4;
1560 t717 = 0.8e1 * t716;
1561 t719 = t121 * t286 * t136;
1562 t721 = t274 * t164 * t275;
1563 t724 = t121 * t326 * t122;
1564 t725 = 0.4e1 * t724;
1565 t727 = t81 * t230 * t132;
1566 t728 = t713 * t41;
1567 t730 = t81 * t728 * t4;
1568 t731 = 0.8e1 * t730;
1569 t732 = t303 * t117;
1570 t734 = t81 * t732 * t4;
1571 t741 = -0.4e1 * t704 - t708 - 0.4e1 * t710 - t717 + t719 - 0.2e1 * t721 - t725 + t727 + t731 - 0.8e1 * t734 - 0.2e1 * t534 - 0.2e1 * t552 - 0.4e1 * t563 - t623 + 0.2e1 * t630 - t638 + 0.2e1 * t645;
1572 t747 = 0.4e1 * t294;
1573 t748 = 0.8e1 * t306;
1574 t750 = 0.4e1 * t313;
1575 t751 = 0.8e1 * t300;
1576 t752 = 0.8e1 * t320;
1577 t753 = 0.8e1 * t324;
1578 t754 = -t750 - t347 - t751 + t752 - t753 - t355 + t656 - t285 + t658 - t221 - t228;
1579 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1580 v3rho3[1] = t5 * (t702 + t741) - t215 - 0.8e1 * t217 - t278 - 0.8e1 * t280 - 0.16e2 / 0.3e1 * t234 - t272 - t747 - t338 - t748 + t754;
1581
1582 t755 = t90 * t389;
1583 t756 = t48 * t755;
1584 t760 = t75 * t351;
1585 t761 = t760 * t122;
1586 t762 = t310 * t761;
1587 t764 = t41 * t334;
1588 t765 = t764 * t86;
1589 t766 = t670 * t765;
1590 t767 = t292 * t4;
1591 t768 = t676 * t767;
1592 t770 = t41 * t339;
1593 t771 = t770 * t86;
1594 t772 = t291 * t771;
1595 t774 = t75 * t343;
1596 t775 = t774 * t122;
1597 t776 = t681 * t775;
1598 t777 = t311 * t4;
1599 t778 = t687 * t777;
1600 t780 = t163 * t136;
1601 t781 = t780 * t122;
1602 t782 = t310 * t781;
1603 t784 = t303 * t163;
1604 t786 = t121 * t784 * t4;
1605 t789 = t223 + 0.3e1 * t544;
1606 t791 = t121 * t76 * t789;
1607 t793 = -0.4e1 / 0.3e1 * t756 - t550 - t558 + 0.2e1 / 0.3e1 * t567 + 0.4e1 / 0.3e1 * t664 - 0.2e1 * t762 + t766 - 0.4e1 * t768 - 0.2e1 * t772 + t776 + 0.4e1 * t778 - 0.4e1 * t782 - t675 - t686 + 0.8e1 * t786 - 0.4e1 * t791;
1608 t795 = t121 * t390 * t122;
1609 t798 = t211 * t118 * t334;
1610 t801 = t81 * t118 * t339;
1611 t803 = -t789;
1612 t805 = t81 * t42 * t803;
1613 t808 = t81 * t91 * t339;
1614 t811 = t274 * t126 * t343;
1615 t813 = t121 * t326 * t136;
1616 t816 = t121 * t126 * t351;
1617 t819 = t211 * t91 * t334;
1618 t824 = -0.4e1 * t795 - 0.2e1 * t798 - 0.4e1 * t801 - 0.4e1 * t805 - 0.2e1 * t808 - t811 - 0.4e1 * t813 - 0.2e1 * t816 - t819 - t708 + 0.4e1 * t716 + 0.2e1 * t719 - t725 + 0.2e1 * t727 - 0.4e1 * t730 + t630 + t645;
1619 t831 = -t337 - t346 - t342 - t350 - t354 - t751 + t752 - t753 - 0.16e2 / 0.3e1 * t327 + t656 + t658;
1620 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1621 v3rho3[2] = t5 * (t793 + t824) - t218 - t281 - t235 - t392 - t747 - 0.8e1 * t297 - t748 - t750 - 0.8e1 * t316 + t831;
1622
1623 t833 = -0.3e1 * t223 - 0.3e1 * t544;
1624 t835 = t81 * t42 * t833;
1625 t836 = 0.4e1 * t835;
1626 t838 = t274 * t164 * t343;
1627 t839 = 0.6e1 * t838;
1628 t841 = t121 * t390 * t136;
1629 t842 = 0.12e2 * t841;
1630 t844 = t121 * t164 * t351;
1631 t845 = 0.12e2 * t844;
1632 t846 = -t833;
1633 t848 = t121 * t76 * t846;
1634 t849 = 0.4e1 * t848;
1635 t851 = 0.2e1 * t664;
1636 t852 = t356 * t60;
1637 t854 = 0.1e1 / t61 / t852;
1638 t855 = t359 * t149;
1639 t858 = t358 * t149;
1640 t863 = 0.1e1 / t366 / rho[1];
1641 t866 = -0.24751776749651562618e2 * t186 - 0.21178040325195761568e0 * t54 * t863;
1642 t872 = -0.16763108063256084736e1 * t186 + 0.14744113928033183905e0 * tau[1] * t363;
1643 t875 = t376 * t159;
1644 t878 = t155 * t383;
1645 t884 = 0.1e1 / t71 / t852;
1646 t885 = t70 * t884;
1647 t888 = t149 * t370;
1648 t893 = -0.496e3 / 0.3375e4 * t854 * t855 + 0.16e2 / 0.75e2 * t858 * t370 - t141 * t866 / 0.15e2 + 0.2e1 / 0.5e1 * t872 * t72 - 0.6e1 / 0.25e2 * t875 * t149 + 0.36e2 / 0.125e3 * t878 * t359 - 0.6e1 / 0.25e2 * t379 * t370 - 0.132e3 / 0.625e3 * t885 * t855 + 0.36e2 / 0.125e3 * t384 * t888 - 0.2e1 / 0.25e2 * t160 * t866;
1649 t894 = t13 * t893;
1650 t895 = t48 * t894;
1651 t896 = 0.8e1 / 0.3e1 * t895;
1652 t898 = t292 * t339;
1653 t899 = t291 * t898;
1654 t900 = 0.6e1 * t899;
1655 t901 = t343 * t136;
1656 t903 = t633 * t76 * t901;
1657 t904 = t311 * t351;
1658 t905 = t310 * t904;
1659 t906 = 0.6e1 * t905;
1660 t911 = t334 * t132;
1661 t913 = t618 * t42 * t911;
1662 t914 = 0.3e1 * t719;
1663 t916 = 0.3e1 * t727;
1664 t917 = -t900 + t903 - t906 - 0.6e1 * t808 - 0.3e1 * t811 - 0.12e2 * t813 - 0.6e1 * t816 + t913 + t914 - 0.3e1 * t819 + t916;
1665 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1666 v3rho3[3] = t5 * (-t836 - t839 - t842 - t845 - t849 - 0.4e1 * t756 + t851 - t550 - t558 - t896 + t917) - 0.8e1 * t391 - 0.12e2 * t297 - 0.12e2 * t316 - 0.6e1 * t336 - 0.6e1 * t345 - 0.12e2 * t341 - 0.24e2 * t349 - 0.12e2 * t353 - 0.8e1 * t327 + t656 + t658;
1667
1668 t930 = t81 * t395 * t86;
1669 t932 = t90 * t181;
1670 t934 = 0.2e1 * t12 * t932;
1671 t935 = t13 * t423;
1672 t936 = t12 * t935;
1673 t938 = t210 * t181;
1674 t942 = t10 * t423;
1675 t949 = t574 * t174;
1676 t952 = t238 * t408;
1677 t960 = 0.49503553499303125236e1 * t243 + 0.52945100812989403922e-1 * sigma[0] * t247;
1678 t963 = t243 * t38;
1679 t965 = t96 * t113;
1680 t966 = t965 * t103;
1681 t968 = t16 * t263;
1682 t969 = t968 * t239;
1683 t971 = t413 * t250;
1684 t979 = t174 * t239;
1685 t982 = t408 * t103;
1686 t985 = t174 * t250;
1687 t990 = -0.496e3 / 0.3375e4 * t949 * t239 + 0.32e2 / 0.225e3 * t952 * t103 + 0.16e2 / 0.225e3 * t402 * t250 - t95 * t960 / 0.15e2 + 0.13410486450604867789e0 * t963 + 0.13410486450604867789e-1 * t966 + 0.26820972901209735578e-2 * t969 - 0.22350810751008112982e-2 * t971 - 0.2e1 / 0.25e2 * t595 * t174 + 0.24e2 / 0.125e3 * t598 * t418 - 0.4e1 / 0.25e2 * t259 * t408 - 0.132e3 / 0.625e3 * t605 * t979 + 0.24e2 / 0.125e3 * t264 * t982 + 0.12e2 / 0.125e3 * t264 * t985 - 0.2e1 / 0.25e2 * t114 * t960;
1688 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1689 v3rho2sigma[0] = -0.12e2 * t930 - t934 - 0.8e1 * t936 - 0.2e1 * t170 * t938 * t212 - 0.8e1 * t170 * t942 * t86 - 0.4e1 * t170 * t398 * t225 - 0.8e1 / 0.3e1 * t170 * t11 * t990;
1690
1691 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1692 v3rho2sigma[1] = 0.0e0;
1693
1694 t995 = t121 * t427 * t122;
1695 t997 = t90 * t195;
1696 t999 = 0.2e1 * t48 * t997;
1697 t1000 = t273 * t195;
1698 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1699 v3rho2sigma[2] = -0.2e1 * t170 * t1000 * t275 - 0.4e1 * t170 * t429 * t282 - 0.12e2 * t995 - t999;
1700
1701 t1009 = t13 * t3;
1702 t1010 = t1009 * t433;
1703 t1012 = t170 * t210;
1704 t1013 = t181 * t132;
1705 t1014 = t1013 * t86;
1706 t1017 = t942 * t132;
1707 t1020 = t229 * t3;
1708 t1021 = t398 * t4;
1709 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1710 v3rho2sigma[3] = -0.2e1 * t1012 * t1014 - 0.4e1 * t170 * t1017 - 0.4e1 * t1020 * t1021 - 0.6e1 * t1010 - 0.6e1 * t930 - t934 - 0.4e1 * t936;
1711
1712 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1713 v3rho2sigma[4] = 0.0e0;
1714
1715 t1025 = t1009 * t437;
1716 t1027 = t170 * t273;
1717 t1028 = t195 * t136;
1718 t1029 = t1028 * t122;
1719 t1032 = t429 * t4;
1720 t1035 = t1009 * t462;
1721 t1037 = t46 * t461;
1722 t1038 = t1037 * t122;
1723 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1724 v3rho2sigma[5] = 0.4e1 * t1020 * t1032 - 0.2e1 * t1027 * t1029 - 0.4e1 * t170 * t1038 - 0.6e1 * t1025 - 0.4e1 * t1035 - 0.6e1 * t995 - t999;
1725
1726 t1042 = t938 * t334;
1727 t1045 = t398 * t339;
1728 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1729 v3rho2sigma[6] = -0.2e1 * t170 * t1042 - 0.4e1 * t170 * t1045 - 0.12e2 * t1010 - t934;
1730
1731 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1732 v3rho2sigma[7] = 0.0e0;
1733
1734 t1050 = t1000 * t343;
1735 t1053 = t1037 * t136;
1736 t1056 = t429 * t351;
1737 t1059 = t854 * t188;
1738 t1062 = t358 * t446;
1739 t1070 = 0.49503553499303125236e1 * t363 + 0.52945100812989403922e-1 * sigma[2] * t367;
1740 t1073 = t363 * t72;
1741 t1075 = t142 * t159;
1742 t1076 = t1075 * t149;
1743 t1078 = t51 * t383;
1744 t1079 = t1078 * t359;
1745 t1081 = t451 * t370;
1746 t1089 = t188 * t359;
1747 t1092 = t446 * t149;
1748 t1095 = t188 * t370;
1749 t1100 = -0.496e3 / 0.3375e4 * t1059 * t359 + 0.32e2 / 0.225e3 * t1062 * t149 + 0.16e2 / 0.225e3 * t440 * t370 - t141 * t1070 / 0.15e2 + 0.13410486450604867789e0 * t1073 + 0.13410486450604867789e-1 * t1076 + 0.26820972901209735578e-2 * t1079 - 0.22350810751008112982e-2 * t1081 - 0.2e1 / 0.25e2 * t875 * t188 + 0.24e2 / 0.125e3 * t878 * t456 - 0.4e1 / 0.25e2 * t379 * t446 - 0.132e3 / 0.625e3 * t885 * t1089 + 0.24e2 / 0.125e3 * t384 * t1092 + 0.12e2 / 0.125e3 * t384 * t1095 - 0.2e1 / 0.25e2 * t160 * t1070;
1750 t1101 = t47 * t1100;
1751 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1752 v3rho2sigma[8] = -0.12e2 * t1025 - t999 - 0.8e1 * t1035 - 0.2e1 * t170 * t1050 - 0.8e1 * t170 * t1053 - 0.4e1 * t170 * t1056 - 0.8e1 / 0.3e1 * t170 * t1101;
1753
1754 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1755 v3rho2lapl[0] = 0.0e0;
1756
1757 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1758 v3rho2lapl[1] = 0.0e0;
1759
1760 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1761 v3rho2lapl[2] = 0.0e0;
1762
1763 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1764 v3rho2lapl[3] = 0.0e0;
1765
1766 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1767 v3rho2lapl[4] = 0.0e0;
1768
1769 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1770 v3rho2lapl[5] = 0.0e0;
1771
1772 t1104 = t10 * t13;
1773 t1105 = t1104 * t469;
1774 t1107 = t11 * t90;
1775 t1109 = 0.27728251656125717124e-2 * t1107 * t200;
1776 t1110 = t465 * t177;
1777 t1112 = t465 * t475;
1778 t1114 = t169 * t210;
1779 t1115 = t200 * t212;
1780 t1118 = t177 * t86;
1781 t1121 = t468 * t29;
1782 t1122 = t113 * t86;
1783 t1123 = t1122 * t103;
1784 t1126 = t200 * t225;
1785 t1133 = t29 * t263;
1786 t1134 = t1133 * t239;
1787 t1137 = t474 * t250;
1788 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1789 v3rho2tau[0] = 0.16636950993675430274e-1 * t1105 + t1109 - 0.22182601324900573700e-1 * t1110 - 0.22182601324900573700e-2 * t1112 + 0.27728251656125717124e-2 * t1114 * t1115 - 0.22182601324900573700e-1 * t468 * t1118 - 0.22182601324900573700e-2 * t1121 * t1123 + 0.55456503312251434248e-2 * t468 * t1126 + 0.22182601324900573699e-1 * t199 * t411 + 0.29576801766534098266e-2 * t199 * t414 + 0.88730405299602294797e-3 * t199 * t1134 - 0.73942004416335245664e-3 * t199 * t1137;
1790
1791 t1140 = t46 * t13;
1792 t1141 = t1140 * t482;
1793 t1143 = t47 * t90;
1794 t1145 = 0.27728251656125717124e-2 * t1143 * t203;
1795 t1146 = t169 * t273;
1796 t1147 = t203 * t275;
1797 t1150 = t203 * t282;
1798 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1799 v3rho2tau[1] = 0.16636950993675430274e-1 * t1141 + t1145 + 0.27728251656125717124e-2 * t1146 * t1147 + 0.55456503312251434248e-2 * t481 * t1150;
1800
1801 t1156 = t1104 * t485;
1802 t1158 = t1114 * t29;
1803 t1159 = t38 * t132;
1804 t1160 = t1159 * t86;
1805 t1163 = t177 * t132;
1806 t1166 = t113 * t132;
1807 t1167 = t1166 * t103;
1808 t1170 = t229 * t10;
1809 t1171 = t200 * t4;
1810 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1811 v3rho2tau[2] = 0.83184754968377151372e-2 * t1105 + t1109 - 0.11091300662450286850e-1 * t1110 - 0.11091300662450286850e-2 * t1112 + 0.83184754968377151372e-2 * t1156 + 0.27728251656125717124e-2 * t1158 * t1160 - 0.11091300662450286850e-1 * t468 * t1163 - 0.11091300662450286850e-2 * t1121 * t1167 + 0.55456503312251434248e-2 * t1170 * t1171;
1812
1813 t1175 = t1140 * t488;
1814 t1177 = t1146 * t64;
1815 t1178 = t72 * t136;
1816 t1179 = t1178 * t122;
1817 t1182 = t229 * t46;
1818 t1183 = t203 * t4;
1819 t1186 = t478 * t191;
1820 t1188 = t191 * t122;
1821 t1191 = t478 * t494;
1822 t1193 = t481 * t64;
1823 t1194 = t159 * t149;
1824 t1195 = t1194 * t122;
1825 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1826 v3rho2tau[3] = 0.83184754968377151372e-2 * t1141 + t1145 + 0.83184754968377151372e-2 * t1175 + 0.27728251656125717124e-2 * t1177 * t1179 - 0.55456503312251434248e-2 * t1182 * t1183 - 0.11091300662450286850e-1 * t1186 - 0.11091300662450286850e-1 * t481 * t1188 - 0.11091300662450286850e-2 * t1191 - 0.11091300662450286850e-2 * t1193 * t1195;
1827
1828 t1199 = t200 * t334;
1829 t1202 = t200 * t339;
1830 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1831 v3rho2tau[4] = 0.16636950993675430274e-1 * t1156 + t1109 + 0.27728251656125717124e-2 * t1114 * t1199 + 0.55456503312251434248e-2 * t468 * t1202;
1832
1833 t1208 = t203 * t343;
1834 t1211 = t191 * t136;
1835 t1214 = t159 * t136;
1836 t1215 = t1214 * t149;
1837 t1218 = t203 * t351;
1838 t1225 = t64 * t383;
1839 t1226 = t1225 * t359;
1840 t1229 = t493 * t370;
1841 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1842 v3rho2tau[5] = 0.16636950993675430274e-1 * t1175 + t1145 - 0.22182601324900573700e-1 * t1186 - 0.22182601324900573700e-2 * t1191 + 0.27728251656125717124e-2 * t1146 * t1208 - 0.22182601324900573700e-1 * t481 * t1211 - 0.22182601324900573700e-2 * t1193 * t1215 + 0.55456503312251434248e-2 * t481 * t1218 + 0.22182601324900573699e-1 * t202 * t449 + 0.29576801766534098266e-2 * t202 * t452 + 0.88730405299602294797e-3 * t202 * t1226 - 0.73942004416335245664e-3 * t202 * t1229;
1843
1844 t1232 = t1009 * t509;
1845 t1234 = t10 * t508;
1846 t1235 = t1234 * t86;
1847 t1238 = t574 * t497;
1848 t1243 = t238 * t22;
1849 t1248 = t965 * t174;
1850 t1252 = t413 * t408;
1851 t1256 = t497 * t103;
1852 t1259 = t174 * t408;
1853 t1264 = t22 * t103;
1854 t1269 = -0.496e3 / 0.3375e4 * t1238 * t103 + 0.32e2 / 0.225e3 * t402 * t408 + 0.89642498730987350557e-4 * t1243 * t103 + 0.50423905536180384688e-3 * t95 * t100 + 0.13410486450604867789e-1 * t1248 + 0.53641945802419471157e-2 * t968 * t418 - 0.44701621502016225964e-2 * t1252 + 0.12e2 / 0.125e3 * t598 * t497 - 0.132e3 / 0.625e3 * t605 * t1256 + 0.24e2 / 0.125e3 * t264 * t1259 - 0.10084781107236076938e-3 * t259 * t22 + 0.12101737328683292326e-3 * t264 * t1264 + 0.60508686643416461628e-3 * t114 * t100;
1855 t1270 = t11 * t1269;
1856 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1857 v3rhosigma2[0] = -0.4e1 * t1232 - 0.4e1 * t170 * t1235 - 0.8e1 / 0.3e1 * t170 * t1270;
1858
1859 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1860 v3rhosigma2[1] = 0.0e0;
1861
1862 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1863 v3rhosigma2[2] = 0.0e0;
1864
1865 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1866 v3rhosigma2[3] = 0.0e0;
1867
1868 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1869 v3rhosigma2[4] = 0.0e0;
1870
1871 t1273 = t1009 * t524;
1872 t1274 = t46 * t523;
1873 t1275 = t1274 * t122;
1874 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1875 v3rhosigma2[5] = -0.4e1 * t170 * t1275 - 0.4e1 * t1273;
1876
1877 t1278 = t1234 * t132;
1878 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1879 v3rhosigma2[6] = -0.4e1 * t170 * t1278 - 0.4e1 * t1232;
1880
1881 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1882 v3rhosigma2[7] = 0.0e0;
1883
1884 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1885 v3rhosigma2[8] = 0.0e0;
1886
1887 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1888 v3rhosigma2[9] = 0.0e0;
1889
1890 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1891 v3rhosigma2[10] = 0.0e0;
1892
1893 t1282 = t1274 * t136;
1894 t1285 = t854 * t512;
1895 t1290 = t358 * t57;
1896 t1295 = t1075 * t188;
1897 t1299 = t451 * t446;
1898 t1303 = t512 * t149;
1899 t1306 = t188 * t446;
1900 t1311 = t57 * t149;
1901 t1316 = -0.496e3 / 0.3375e4 * t1285 * t149 + 0.32e2 / 0.225e3 * t440 * t446 + 0.89642498730987350557e-4 * t1290 * t149 + 0.50423905536180384688e-3 * t141 * t146 + 0.13410486450604867789e-1 * t1295 + 0.53641945802419471157e-2 * t1078 * t456 - 0.44701621502016225964e-2 * t1299 + 0.12e2 / 0.125e3 * t878 * t512 - 0.132e3 / 0.625e3 * t885 * t1303 + 0.24e2 / 0.125e3 * t384 * t1306 - 0.10084781107236076938e-3 * t379 * t57 + 0.12101737328683292326e-3 * t384 * t1311 + 0.60508686643416461628e-3 * t160 * t146;
1902 t1317 = t47 * t1316;
1903 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1904 v3rhosigma2[11] = -0.4e1 * t1273 - 0.4e1 * t170 * t1282 - 0.8e1 / 0.3e1 * t170 * t1317;
1905
1906 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1907 v3rhosigmalapl[0] = 0.0e0;
1908
1909 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1910 v3rhosigmalapl[1] = 0.0e0;
1911
1912 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1913 v3rhosigmalapl[2] = 0.0e0;
1914
1915 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1916 v3rhosigmalapl[3] = 0.0e0;
1917
1918 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1919 v3rhosigmalapl[4] = 0.0e0;
1920
1921 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1922 v3rhosigmalapl[5] = 0.0e0;
1923
1924 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1925 v3rhosigmalapl[6] = 0.0e0;
1926
1927 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1928 v3rhosigmalapl[7] = 0.0e0;
1929
1930 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1931 v3rhosigmalapl[8] = 0.0e0;
1932
1933 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1934 v3rhosigmalapl[9] = 0.0e0;
1935
1936 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1937 v3rhosigmalapl[10] = 0.0e0;
1938
1939 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1940 v3rhosigmalapl[11] = 0.0e0;
1941
1942 t1321 = 0.11091300662450286850e-2 * t465 * t527;
1943 t1322 = t113 * t174;
1944 t1323 = t1322 * t86;
1945 t1328 = t199 * t29;
1946 t1329 = t263 * t174;
1947 t1330 = t1329 * t103;
1948 t1333 = t474 * t408;
1949 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1950 v3rhosigmatau[0] = -t1321 - 0.11091300662450286850e-2 * t1121 * t1323 + 0.14788400883267049133e-2 * t199 * t502 + 0.88730405299602294797e-3 * t1328 * t1330 - 0.73942004416335245664e-3 * t199 * t1333;
1951
1952 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1953 v3rhosigmatau[1] = 0.0e0;
1954
1955 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1956 v3rhosigmatau[2] = 0.0e0;
1957
1958 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1959 v3rhosigmatau[3] = 0.0e0;
1960
1961 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1962 v3rhosigmatau[4] = 0.0e0;
1963
1964 t1337 = 0.11091300662450286850e-2 * t478 * t530;
1965 t1338 = t159 * t188;
1966 t1339 = t1338 * t122;
1967 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1968 v3rhosigmatau[5] = -t1337 - 0.11091300662450286850e-2 * t1193 * t1339;
1969
1970 t1342 = t1322 * t132;
1971 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1972 v3rhosigmatau[6] = -t1321 - 0.11091300662450286850e-2 * t1121 * t1342;
1973
1974 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1975 v3rhosigmatau[7] = 0.0e0;
1976
1977 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1978 v3rhosigmatau[8] = 0.0e0;
1979
1980 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1981 v3rhosigmatau[9] = 0.0e0;
1982
1983 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1984 v3rhosigmatau[10] = 0.0e0;
1985
1986 t1345 = t1338 * t136;
1987 t1350 = t202 * t64;
1988 t1351 = t383 * t188;
1989 t1352 = t1351 * t149;
1990 t1355 = t493 * t446;
1991 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
1992 v3rhosigmatau[11] = -t1337 - 0.11091300662450286850e-2 * t1193 * t1345 + 0.14788400883267049133e-2 * t202 * t517 + 0.88730405299602294797e-3 * t1350 * t1352 - 0.73942004416335245664e-3 * t202 * t1355;
1993
1994 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1995 v3rholapl2[0] = 0.0e0;
1996
1997 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
1998 v3rholapl2[1] = 0.0e0;
1999
2000 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2001 v3rholapl2[2] = 0.0e0;
2002
2003 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2004 v3rholapl2[3] = 0.0e0;
2005
2006 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2007 v3rholapl2[4] = 0.0e0;
2008
2009 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2010 v3rholapl2[5] = 0.0e0;
2011
2012 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2013 v3rholapltau[0] = 0.0e0;
2014
2015 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2016 v3rholapltau[1] = 0.0e0;
2017
2018 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2019 v3rholapltau[2] = 0.0e0;
2020
2021 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2022 v3rholapltau[3] = 0.0e0;
2023
2024 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2025 v3rholapltau[4] = 0.0e0;
2026
2027 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2028 v3rholapltau[5] = 0.0e0;
2029
2030 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2031 v3rholapltau[6] = 0.0e0;
2032
2033 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2034 v3rholapltau[7] = 0.0e0;
2035
2036 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2037 v3rhotau2[0] = 0.0e0;
2038
2039 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2040 v3rhotau2[1] = 0.0e0;
2041
2042 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2043 v3rhotau2[2] = 0.0e0;
2044
2045 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2046 v3rhotau2[3] = 0.0e0;
2047
2048 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2049 v3rhotau2[4] = 0.0e0;
2050
2051 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2052 v3rhotau2[5] = 0.0e0;
2053
2054 t1358 = t497 * t174;
2055 t1363 = t968 * t497;
2056 t1365 = t583 * t113;
2057 t1369 = t174 * t22;
2058 t1372 = -0.496e3 / 0.3375e4 * t574 * t1358 + 0.26892749619296205167e-3 * t402 * t22 + 0.80462918703629206735e-2 * t1363 - 0.84526137747440853736e-5 * t1365 - 0.132e3 / 0.625e3 * t605 * t1358 + 0.36305211986049876976e-3 * t264 * t1369;
2059 t1373 = t11 * t1372;
2060 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2061 v3sigma3[0] = -0.8e1 / 0.3e1 * t170 * t1373;
2062
2063 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2064 v3sigma3[1] = 0.0e0;
2065
2066 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2067 v3sigma3[2] = 0.0e0;
2068
2069 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2070 v3sigma3[3] = 0.0e0;
2071
2072 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2073 v3sigma3[4] = 0.0e0;
2074
2075 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2076 v3sigma3[5] = 0.0e0;
2077
2078 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2079 v3sigma3[6] = 0.0e0;
2080
2081 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2082 v3sigma3[7] = 0.0e0;
2083
2084 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2085 v3sigma3[8] = 0.0e0;
2086
2087 t1376 = t512 * t188;
2088 t1381 = t1078 * t512;
2089 t1383 = t863 * t159;
2090 t1387 = t188 * t57;
2091 t1390 = -0.496e3 / 0.3375e4 * t854 * t1376 + 0.26892749619296205167e-3 * t440 * t57 + 0.80462918703629206735e-2 * t1381 - 0.84526137747440853736e-5 * t1383 - 0.132e3 / 0.625e3 * t885 * t1376 + 0.36305211986049876976e-3 * t384 * t1387;
2092 t1391 = t47 * t1390;
2093 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2094 v3sigma3[9] = -0.8e1 / 0.3e1 * t170 * t1391;
2095
2096 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2097 v3sigma2lapl[0] = 0.0e0;
2098
2099 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2100 v3sigma2lapl[1] = 0.0e0;
2101
2102 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2103 v3sigma2lapl[2] = 0.0e0;
2104
2105 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2106 v3sigma2lapl[3] = 0.0e0;
2107
2108 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2109 v3sigma2lapl[4] = 0.0e0;
2110
2111 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2112 v3sigma2lapl[5] = 0.0e0;
2113
2114 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2115 v3sigma2lapl[6] = 0.0e0;
2116
2117 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2118 v3sigma2lapl[7] = 0.0e0;
2119
2120 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2121 v3sigma2lapl[8] = 0.0e0;
2122
2123 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2124 v3sigma2lapl[9] = 0.0e0;
2125
2126 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2127 v3sigma2lapl[10] = 0.0e0;
2128
2129 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2130 v3sigma2lapl[11] = 0.0e0;
2131
2132 t1394 = t1133 * t497;
2133 t1397 = t247 * t113;
2134 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2135 v3sigma2tau[0] = 0.88730405299602294797e-3 * t199 * t1394 - 0.93211116146128031202e-6 * t199 * t1397;
2136
2137 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2138 v3sigma2tau[1] = 0.0e0;
2139
2140 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2141 v3sigma2tau[2] = 0.0e0;
2142
2143 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2144 v3sigma2tau[3] = 0.0e0;
2145
2146 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2147 v3sigma2tau[4] = 0.0e0;
2148
2149 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2150 v3sigma2tau[5] = 0.0e0;
2151
2152 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2153 v3sigma2tau[6] = 0.0e0;
2154
2155 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2156 v3sigma2tau[7] = 0.0e0;
2157
2158 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2159 v3sigma2tau[8] = 0.0e0;
2160
2161 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2162 v3sigma2tau[9] = 0.0e0;
2163
2164 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2165 v3sigma2tau[10] = 0.0e0;
2166
2167 t1400 = t1225 * t512;
2168 t1403 = t367 * t159;
2169 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2170 v3sigma2tau[11] = 0.88730405299602294797e-3 * t202 * t1400 - 0.93211116146128031202e-6 * t202 * t1403;
2171
2172 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2173 v3sigmalapl2[0] = 0.0e0;
2174
2175 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2176 v3sigmalapl2[1] = 0.0e0;
2177
2178 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2179 v3sigmalapl2[2] = 0.0e0;
2180
2181 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2182 v3sigmalapl2[3] = 0.0e0;
2183
2184 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2185 v3sigmalapl2[4] = 0.0e0;
2186
2187 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2188 v3sigmalapl2[5] = 0.0e0;
2189
2190 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2191 v3sigmalapl2[6] = 0.0e0;
2192
2193 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2194 v3sigmalapl2[7] = 0.0e0;
2195
2196 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2197 v3sigmalapl2[8] = 0.0e0;
2198
2199 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2200 v3sigmalapltau[0] = 0.0e0;
2201
2202 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2203 v3sigmalapltau[1] = 0.0e0;
2204
2205 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2206 v3sigmalapltau[2] = 0.0e0;
2207
2208 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2209 v3sigmalapltau[3] = 0.0e0;
2210
2211 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2212 v3sigmalapltau[4] = 0.0e0;
2213
2214 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2215 v3sigmalapltau[5] = 0.0e0;
2216
2217 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2218 v3sigmalapltau[6] = 0.0e0;
2219
2220 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2221 v3sigmalapltau[7] = 0.0e0;
2222
2223 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2224 v3sigmalapltau[8] = 0.0e0;
2225
2226 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2227 v3sigmalapltau[9] = 0.0e0;
2228
2229 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2230 v3sigmalapltau[10] = 0.0e0;
2231
2232 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2233 v3sigmalapltau[11] = 0.0e0;
2234
2235 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2236 v3sigmatau2[0] = 0.0e0;
2237
2238 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2239 v3sigmatau2[1] = 0.0e0;
2240
2241 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2242 v3sigmatau2[2] = 0.0e0;
2243
2244 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2245 v3sigmatau2[3] = 0.0e0;
2246
2247 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2248 v3sigmatau2[4] = 0.0e0;
2249
2250 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2251 v3sigmatau2[5] = 0.0e0;
2252
2253 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2254 v3sigmatau2[6] = 0.0e0;
2255
2256 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2257 v3sigmatau2[7] = 0.0e0;
2258
2259 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2260 v3sigmatau2[8] = 0.0e0;
2261
2262 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2263 v3lapl3[0] = 0.0e0;
2264
2265 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2266 v3lapl3[1] = 0.0e0;
2267
2268 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2269 v3lapl3[2] = 0.0e0;
2270
2271 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2272 v3lapl3[3] = 0.0e0;
2273
2274 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2275 v3lapl2tau[0] = 0.0e0;
2276
2277 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2278 v3lapl2tau[1] = 0.0e0;
2279
2280 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2281 v3lapl2tau[2] = 0.0e0;
2282
2283 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2284 v3lapl2tau[3] = 0.0e0;
2285
2286 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2287 v3lapl2tau[4] = 0.0e0;
2288
2289 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2290 v3lapl2tau[5] = 0.0e0;
2291
2292 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2293 v3lapltau2[0] = 0.0e0;
2294
2295 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2296 v3lapltau2[1] = 0.0e0;
2297
2298 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2299 v3lapltau2[2] = 0.0e0;
2300
2301 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2302 v3lapltau2[3] = 0.0e0;
2303
2304 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2305 v3lapltau2[4] = 0.0e0;
2306
2307 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_KXC))
2308 v3lapltau2[5] = 0.0e0;
2309
2310 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2311 v3tau3[0] = 0.0e0;
2312
2313 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2314 v3tau3[1] = 0.0e0;
2315
2316 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2317 v3tau3[2] = 0.0e0;
2318
2319 if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC))
2320 v3tau3[3] = 0.0e0;
2321
2322 #ifndef XC_DONT_COMPILE_LXC
2323
2324 if(order < 4) return;
2325
2326
2327 t1407 = t12 * t229 * t269;
2328 t1410 = t12 * t90 * t613;
2329 t1412 = t236 * t236;
2330 t1414 = 0.1e1 / t26 / t1412;
2331 t1415 = t239 * t239;
2332 t1421 = t250 * t250;
2333 t1426 = t592 * t113;
2334 t1435 = 0.1e1 / t246 / t14;
2335 t1438 = 0.14851066049790937571e3 * t406 + 0.19060236292676185411e1 * t19 * t1435;
2336 t1449 = t256 * t263;
2337 t1452 = t109 * t604;
2338 t1459 = t36 / t37 / t1412;
2339 t1470 = 0.22816e5 / 0.50625e5 * t1414 * t1415 - 0.992e3 / 0.1125e4 * t574 * t239 * t250 + 0.16e2 / 0.75e2 * t238 * t1421 + 0.64e2 / 0.225e3 * t578 * t586 - 0.8e1 / 0.25e2 * t1426 * t103 - 0.12e2 / 0.25e2 * t595 * t250 - 0.8e1 / 0.25e2 * t259 * t586 - 0.2e1 / 0.25e2 * t114 * t1438 - t95 * t1438 / 0.15e2 + 0.2e1 / 0.5e1 * (0.10057864837953650842e2 * t406 - 0.73720569640165919525e0 * tau[0] * t22) * t38 + 0.72e2 / 0.125e3 * t1449 * t239 - 0.528e3 / 0.625e3 * t1452 * t575 + 0.144e3 / 0.125e3 * t598 * t608 + 0.2112e4 / 0.3125e4 * t1459 * t1415 - 0.792e3 / 0.625e3 * t605 * t239 * t250 + 0.36e2 / 0.125e3 * t264 * t1421 + 0.48e2 / 0.125e3 * t264 * t103 * t586;
2340 t1474 = t12 * t732;
2341 t1477 = 0.5e1 / 0.2e1 * t12 * t728;
2342 t1479 = 0.5e1 / 0.2e1 * t48 * t714;
2343 t1488 = t684 * t641;
2344 t1502 = t673 * t626;
2345 t1504 = t304 * t86;
2346 t1505 = t81 * t1504;
2347 t1508 = t121 * t126 * t554;
2348 t1510 = t542 * t5;
2349 t1512 = t4 / t1510;
2350 t1514 = 0.12e2 * t543 - 0.12e2 * t1512;
2351 t1518 = t318 * t122;
2352 t1519 = t121 * t1518;
2353 t1522 = t81 * t566 * t86;
2354 t1524 = t9 * t9;
2355 t1527 = t3 / t10 / t1524;
2356 t1528 = t212 * t212;
2357 t1532 = 0.4e1 * t1407 - 0.16e2 / 0.3e1 * t1410 - 0.8e1 / 0.3e1 * t12 * t13 * t1470 - 0.4e1 * t1474 + t1477 + t1479 - 0.24e2 * t291 * t117 * t225 * t86 - 0.8e1 * t291 * t41 * t546 * t86 - 0.12e2 * t1488 - 0.8e1 * t310 * t75 * t554 * t122 + 0.6e1 * t670 * t41 * t212 * t225 + 0.6e1 * t681 * t75 * t275 * t282 - 0.12e2 * t1502 - 0.6e1 * t1505 - 0.8e1 * t1508 - 0.4e1 * t121 * t76 * t1514 - 0.6e1 * t1519 + 0.12e2 * t1522 - 0.3e1 / 0.2e1 * t1527 * t42 * t1528;
2358 t1534 = t618 * t91 * t619;
2359 t1537 = t211 * t230 * t212;
2360 t1539 = t225 * t225;
2361 t1543 = t45 * t45;
2362 t1546 = t3 / t46 / t1543;
2363 t1547 = t275 * t275;
2364 t1552 = t633 * t126 * t634;
2365 t1555 = t274 * t286 * t275;
2366 t1557 = t282 * t282;
2367 t1562 = t81 * t230 * t225;
2368 t1568 = t81 * t569 * t86;
2369 t1571 = t121 * t286 * t282;
2370 t1577 = t211 * t233 * t212;
2371 t1580 = t81 * t233 * t225;
2372 t1583 = t81 * t91 * t546;
2373 t1598 = 0.2e1 * t1534 + 0.3e1 * t1537 - 0.6e1 * t211 * t42 * t1539 - 0.3e1 / 0.2e1 * t1546 * t76 * t1547 + 0.2e1 * t1552 + 0.3e1 * t1555 - 0.6e1 * t274 * t76 * t1557 + 0.6e1 * t1562 - 0.12e2 * t211 * t270 * t212 - 0.24e2 * t1568 + 0.6e1 * t1571 + 0.4e1 * t618 * t118 * t619 - 0.12e2 * t1577 - 0.24e2 * t1580 - 0.8e1 * t1583 - 0.16e2 * t81 * t614 * t86 - 0.24e2 * t81 * t270 * t225 - 0.16e2 * t81 * t118 * t546 + 0.4e1 * t81 * t42 * t1514;
2374 t1605 = 0.4e1 * t550;
2375 t1608 = 0.4e1 * t558;
2376 t1611 = t5 * (t1532 + t1598) - 0.24e2 * t534 - 0.48e2 * t537 - 0.48e2 * t540 - 0.16e2 * t548 - t1605 - 0.24e2 * t552 - 0.16e2 * t556 - t1608 - 0.24e2 * t560 - 0.48e2 * t563;
2377 t1623 = 0.8e1 * t567 - 0.16e2 * t570 - 0.32e2 / 0.3e1 * t615 + 0.4e1 * t621 - 0.12e2 * t623 - 0.24e2 * t627 + 0.12e2 * t630 + 0.4e1 * t636 - 0.12e2 * t638 - 0.24e2 * t642 + 0.12e2 * t645;
2378 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2379 v4rho4[0] = t1611 + t1623;
2380
2381 t1629 = -t1605 - t1608 + 0.6e1 * t567 - 0.8e1 * t570 - t616 + t851 - 0.12e2 * t666 + 0.12e2 * t668 - t628 - t643 + 0.3e1 * t672;
2382 t1630 = 0.6e1 * t674;
2383 t1633 = 0.6e1 * t685;
2384 t1638 = t121 * t714;
2385 t1640 = t48 * t784;
2386 t1641 = t81 * t728;
2387 t1648 = t1527 * t13;
2388 t1652 = t618 * t90;
2389 t1653 = t1652 * t671;
2390 t1655 = t618 * t303;
2391 t1659 = t211 * t229;
2392 t1660 = t1659 * t293;
2393 t1661 = 0.3e1 / 0.2e1 * t1660;
2394 t1662 = t211 * t713;
2395 t1663 = t1662 * t678;
2396 t1665 = t1546 * t13;
2397 t1669 = t633 * t90;
2398 t1670 = t1669 * t682;
2399 t1672 = -0.18e2 * t1638 - t1640 + 0.18e2 * t1641 - 0.12e2 * t81 * t732 + 0.2e1 * t1407 - 0.4e1 / 0.3e1 * t1410 - 0.3e1 * t1474 + t1477 + t1479 - 0.3e1 / 0.2e1 * t1648 * t292 * t619 + 0.3e1 / 0.2e1 * t1653 + 0.3e1 * t1655 * t677 * t212 + t1661 + 0.12e2 * t1663 - 0.3e1 / 0.2e1 * t1665 * t311 * t634 + 0.3e1 / 0.2e1 * t1670;
2400 t1673 = t274 * t229;
2401 t1674 = t1673 * t312;
2402 t1675 = 0.3e1 / 0.2e1 * t1674;
2403 t1679 = t633 * t303;
2404 t1683 = t684 * t699;
2405 t1698 = t673 * t693;
2406 t1704 = t274 * t713;
2407 t1705 = t1704 * t689;
2408 t1710 = t673 * t696;
2409 t1720 = -0.12e2 * t676 * t117 * t4 * t86 - 0.6e1 * t310 * t163 * t282 * t122 - 0.6e1 * t291 * t269 * t132 * t86 - 0.3e1 * t1679 * t688 * t275 + 0.3e1 * t670 * t692 * t212 - 0.6e1 * t291 * t692 * t225 - 0.6e1 * t676 * t677 * t225 + 0.6e1 * t687 * t688 * t282 - 0.2e1 * t291 * t292 * t546 - 0.2e1 * t310 * t311 * t554 - 0.3e1 * t1488 + t1675 - 0.3e1 * t1683 - 0.6e1 * t1698 - 0.12e2 * t1705 - 0.3e1 * t1710;
2410 t1737 = t121 * t663 * t122;
2411 t1738 = 0.3e1 * t1737;
2412 t1740 = t81 * t569 * t132;
2413 t1747 = t318 * t136;
2414 t1748 = t121 * t1747;
2415 t1753 = t274 * t326 * t275;
2416 t1755 = t304 * t132;
2417 t1756 = t81 * t1755;
2418 t1759 = 0.1e1 / t13 / t542;
2419 t1762 = t81 * t1759 * t41 * t4;
2420 t1765 = t121 * t326 * t282;
2421 t1768 = t81 * t566 * t132;
2422 t1769 = 0.3e1 * t1768;
2423 t1770 = -0.3e1 * t1502 + 0.3e1 * t670 * t292 * t86 * t225 + 0.3e1 * t681 * t311 * t122 * t282 + 0.6e1 * t274 * t1518 - 0.4e1 * t121 * t164 * t554 + t1738 - 0.6e1 * t1740 - 0.4e1 * t81 * t614 * t132 - 0.6e1 * t211 * t1504 - 0.3e1 / 0.2e1 * t1748 + t633 * t164 * t634 - 0.3e1 * t1753 - 0.3e1 / 0.2e1 * t1756 - 0.27e2 * t1762 - 0.6e1 * t1765 + t1769;
2424 t1773 = t81 * t713 * t117 * t4;
2425 t1781 = t121 * t1759 * t75 * t4;
2426 t1797 = 0.24e2 * t1773 - 0.12e2 * t81 * t303 * t269 * t4 + 0.27e2 * t1781 - 0.9e1 / 0.2e1 * t1505 - 0.2e1 * t1508 - 0.9e1 / 0.2e1 * t1519 + 0.6e1 * t1522 + t1534 / 0.2e1 + 0.3e1 / 0.2e1 * t1537 + t1552 / 0.2e1 + 0.3e1 / 0.2e1 * t1555 + 0.3e1 * t1562 - 0.6e1 * t1568 + 0.3e1 * t1571 - 0.3e1 * t1577 - 0.6e1 * t1580 - 0.2e1 * t1583;
2427 t1802 = 0.12e2 * t707;
2428 t1803 = -t1630 - 0.12e2 * t679 + 0.3e1 * t683 - t1633 + 0.12e2 * t690 - 0.12e2 * t694 - 0.6e1 * t697 - 0.6e1 * t700 + t5 * (t1672 + t1720 + t1770 + t1797) - 0.12e2 * t704 - t1802;
2429 t1808 = 0.12e2 * t724;
2430 t1812 = -0.12e2 * t710 - 0.24e2 * t716 + t914 - 0.6e1 * t721 - t1808 + t916 + 0.24e2 * t730 - 0.24e2 * t734 - 0.12e2 * t534 - t538 - t541;
2431 t1819 = -t549 - 0.12e2 * t552 - t557 - t561 - 0.24e2 * t563 + t621 - 0.6e1 * t623 + 0.9e1 * t630 + t636 - 0.6e1 * t638 + 0.9e1 * t645;
2432 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2433 v4rho4[1] = t1629 + t1803 + t1812 + t1819;
2434
2435 t1832 = -0.8e1 / 0.3e1 * t756 - t1605 - t1608 + 0.4e1 * t567 - 0.8e1 / 0.3e1 * t570 + 0.4e1 * t664 - 0.8e1 * t666 + 0.8e1 * t668 - 0.4e1 * t762 + 0.2e1 * t766 - 0.8e1 * t768 - 0.4e1 * t772 + 0.2e1 * t776;
2436 t1845 = t48 * t229 * t389;
2437 t1861 = t1704 * t777;
2438 t1889 = 0.2e1 / 0.3e1 * t1845 + 0.8e1 * t121 * t784 + 0.4e1 * t1638 - 0.2e1 * t1640 - 0.4e1 * t1641 + 0.2e1 / 0.3e1 * t1407 - 0.2e1 * t1474 + t1477 + t1479 + t670 * t764 * t225 - 0.2e1 * t291 * t770 * t225 + t681 * t774 * t282 - 0.8e1 * t1861 - 0.4e1 * t310 * t780 * t282 - 0.2e1 * t310 * t760 * t282 + 0.8e1 * t687 * t163 * t4 * t122 - 0.4e1 * t310 * t75 * t789 * t122 + 0.2e1 * t670 * t117 * t334 * t86 - 0.4e1 * t291 * t117 * t339 * t86 - 0.4e1 * t291 * t41 * t803 * t86;
2439 t1906 = 0.1e1 / t13 / t1510;
2440 t1908 = t4 * t4;
2441 t1913 = t211 * t230 * t334;
2442 t1918 = t81 * t230 * t339;
2443 t1920 = t274 * t286 * t343;
2444 t1925 = t121 * t663 * t136;
2445 t1928 = t121 * t286 * t351;
2446 t1931 = t121 * t713 * t163 * t4;
2447 t1933 = t1653 + 0.2e1 * t1660 - 0.4e1 * t1663 + t1670 + 0.2e1 * t1674 - 0.2e1 * t1683 - 0.4e1 * t1698 + 0.4e1 * t1705 - 0.2e1 * t1710 + 0.4e1 * t1655 * t292 * t4 * t86 - 0.4e1 * t1679 * t311 * t122 * t4 - 0.4e1 * t211 * t1906 * t41 * t1908 + t1913 / 0.2e1 - 0.4e1 * t211 * t1755 + t1918 + t1920 / 0.2e1 + 0.4e1 * t274 * t1747 + 0.2e1 * t1925 + t1928 - 0.16e2 * t1931;
2448 t1936 = t121 * t126 * t789;
2449 t1942 = t121 * t755 * t122;
2450 t1945 = t211 * t233 * t334;
2451 t1948 = t81 * t233 * t339;
2452 t1951 = t81 * t91 * t803;
2453 t1978 = -0.4e1 * t274 * t1906 * t75 * t1908 - 0.8e1 * t81 * t118 * t803 - 0.4e1 * t121 * t390 * t282 - 0.2e1 * t211 * t270 * t334 - 0.4e1 * t81 * t270 * t339 - 0.2e1 * t274 * t390 * t275 + 0.4e1 * t1737 - 0.4e1 * t1740 - 0.3e1 * t1748 - 0.2e1 * t1753 - 0.3e1 * t1756 - 0.32e2 * t1762 - 0.4e1 * t1765 + 0.4e1 * t1768 - 0.8e1 * t1773 - 0.4e1 * t1936 - 0.4e1 * t1942 - 0.2e1 * t1945 - 0.4e1 * t1948 - 0.4e1 * t1951;
2454 t1988 = t684 * t781;
2455 t1992 = t684 * t761;
2456 t1997 = t1652 * t765;
2457 t2001 = t1662 * t767;
2458 t2005 = t673 * t771;
2459 t2010 = t1669 * t775;
2460 t2011 = 0.32e2 * t1781 - 0.3e1 * t1505 - 0.3e1 * t1519 + 0.2e1 * t1522 + t1537 / 0.2e1 + t1555 / 0.2e1 + t1562 + t1571 + 0.2e1 * t681 * t780 * t275 - 0.4e1 * t1988 + t681 * t760 * t275 - 0.2e1 * t1992 - 0.3e1 / 0.2e1 * t1648 * t764 * t212 + t1997 - 0.8e1 * t676 * t692 * t4 + 0.8e1 * t2001 + t670 * t770 * t212 - 0.2e1 * t2005 - 0.3e1 / 0.2e1 * t1665 * t774 * t275 + t2010;
2461 t2016 = 0.8e1 * t778 - 0.8e1 * t782 + 0.2e1 * t672 - 0.8e1 * t674 - 0.8e1 * t679 + 0.2e1 * t683 - 0.8e1 * t685 + 0.8e1 * t690 - 0.8e1 * t694 - 0.4e1 * t697 - 0.4e1 * t700 + t5 * (t1889 + t1933 + t1978 + t2011) + 0.16e2 * t786;
2462 t2031 = -0.8e1 * t791 - 0.8e1 * t795 - 0.4e1 * t798 - 0.8e1 * t801 - 0.8e1 * t805 - 0.4e1 * t808 - 0.2e1 * t811 - 0.8e1 * t813 - 0.4e1 * t816 - 0.2e1 * t819 - 0.8e1 * t704 - 0.16e2 * t707 - 0.8e1 * t710;
2463 t2044 = -t717 + 0.6e1 * t719 - 0.4e1 * t721 - 0.16e2 * t724 + 0.6e1 * t727 + t731 - 0.16e2 * t734 - 0.4e1 * t534 - 0.4e1 * t552 - 0.8e1 * t563 - 0.2e1 * t623 + 0.6e1 * t630 - 0.2e1 * t638 + 0.6e1 * t645;
2464 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2465 v4rho4[2] = t1832 + t2016 + t2031 + t2044;
2466
2467 t2051 = -t896 - 0.8e1 * t756 - t1605 - t1608 + t568 + 0.6e1 * t664 - 0.6e1 * t762 + 0.3e1 * t766 - t900 - t906 - 0.12e2 * t768;
2468 t2057 = t48 * t90 * t893;
2469 t2071 = t274 * t326 * t343;
2470 t2074 = t121 * t755 * t136;
2471 t2077 = t121 * t326 * t351;
2472 t2080 = t121 * t126 * t846;
2473 t2083 = t633 * t126 * t901;
2474 t2085 = -0.4e1 / 0.3e1 * t2057 + 0.2e1 * t1845 - 0.3e1 * t1640 - t1474 + t1477 + t1479 + 0.6e1 * t1861 + t1661 + t1675 + 0.3e1 * t670 * t292 * t339 * t86 + 0.3e1 * t681 * t311 * t351 * t122 - 0.3e1 * t2071 - 0.6e1 * t2074 - 0.6e1 * t2077 - 0.2e1 * t2080 + t2083 / 0.2e1;
2475 t2096 = 0.6e1 * t543 + 0.12e2 * t1512;
2476 t2112 = t618 * t91 * t911;
2477 t2115 = t81 * t91 * t833;
2478 t2125 = -0.4e1 * t121 * t894 * t122 + t618 * t118 * t911 - 0.4e1 * t81 * t118 * t833 - 0.4e1 * t81 * t42 * t2096 + 0.12e2 * t121 * t303 * t389 * t4 - 0.12e2 * t121 * t164 * t789 + 0.4e1 * t121 * t76 * t2096 + t2112 / 0.2e1 - 0.2e1 * t2115 + 0.3e1 / 0.2e1 * t1913 + 0.3e1 * t1918 + 0.3e1 / 0.2e1 * t1920 + 0.6e1 * t1925 + 0.3e1 * t1928 + 0.12e2 * t1931 - 0.6e1 * t1936 - 0.6e1 * t1942;
2479 t2140 = t673 * t898;
2480 t2145 = -0.3e1 * t1945 - 0.6e1 * t1948 - 0.6e1 * t1951 + t1738 - 0.9e1 / 0.2e1 * t1748 - 0.9e1 / 0.2e1 * t1756 + 0.3e1 * t1762 + t1769 - 0.3e1 * t1781 - 0.3e1 / 0.2e1 * t1505 - 0.3e1 / 0.2e1 * t1519 - 0.6e1 * t1988 - 0.3e1 * t1992 + 0.3e1 / 0.2e1 * t1997 - 0.6e1 * t2001 - 0.3e1 * t2140 - 0.6e1 * t676 * t677 * t339;
2481 t2146 = t684 * t904;
2482 t2151 = t75 * t846;
2483 t2178 = t41 * t833;
2484 t2199 = -0.3e1 * t2146 + 0.3e1 * t1655 * t764 * t4 - 0.2e1 * t310 * t2151 * t122 - 0.6e1 * t291 * t692 * t339 - 0.6e1 * t291 * t292 * t803 - 0.3e1 / 0.2e1 * t1665 * t75 * t901 * t122 - 0.3e1 * t1679 * t774 * t4 - 0.6e1 * t310 * t311 * t789 + 0.6e1 * t687 * t688 * t351 - 0.3e1 / 0.2e1 * t1648 * t41 * t911 * t86 - 0.2e1 * t291 * t2178 * t86 + 0.3e1 * t681 * t163 * t343 * t122 + 0.12e2 * t687 * t780 * t4 - 0.6e1 * t310 * t389 * t136 * t122 - 0.6e1 * t310 * t163 * t351 * t122 - 0.3e1 * t2005 + 0.3e1 / 0.2e1 * t2010;
2485 t2203 = -0.6e1 * t772 + 0.3e1 * t776 + 0.12e2 * t778 - 0.12e2 * t782 - t1630 - t1633 + t5 * (t2085 + t2125 + t2145 + t2199) - t836 - t839 - t842 - t845;
2486 t2213 = -t849 + t903 + t913 + 0.24e2 * t786 - 0.12e2 * t791 - 0.12e2 * t795 - 0.6e1 * t798 - 0.12e2 * t801 - 0.12e2 * t805 - 0.12e2 * t808 - 0.6e1 * t811;
2487 t2221 = -0.24e2 * t813 - 0.12e2 * t816 - 0.6e1 * t819 - t1802 + 0.12e2 * t716 + 0.9e1 * t719 - t1808 + 0.9e1 * t727 - 0.12e2 * t730 + t631 + t646;
2488 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2489 v4rho4[3] = t2051 + t2203 + t2213 + t2221;
2490
2491 t2225 = 0.1e1 / t366 / t49;
2492 t2228 = 0.14851066049790937571e3 * t444 + 0.19060236292676185411e1 * t54 * t2225;
2493 t2237 = t356 * t356;
2494 t2239 = 0.1e1 / t61 / t2237;
2495 t2240 = t359 * t359;
2496 t2246 = t370 * t370;
2497 t2251 = t872 * t159;
2498 t2260 = t376 * t383;
2499 t2263 = t155 * t884;
2500 t2270 = t70 / t71 / t2237;
2501 t2281 = -t141 * t2228 / 0.15e2 + 0.2e1 / 0.5e1 * (0.10057864837953650842e2 * t444 - 0.73720569640165919525e0 * tau[1] * t57) * t72 + 0.22816e5 / 0.50625e5 * t2239 * t2240 - 0.992e3 / 0.1125e4 * t854 * t359 * t370 + 0.16e2 / 0.75e2 * t358 * t2246 + 0.64e2 / 0.225e3 * t858 * t866 - 0.8e1 / 0.25e2 * t2251 * t149 - 0.12e2 / 0.25e2 * t875 * t370 - 0.8e1 / 0.25e2 * t379 * t866 - 0.2e1 / 0.25e2 * t160 * t2228 + 0.72e2 / 0.125e3 * t2260 * t359 - 0.528e3 / 0.625e3 * t2263 * t855 + 0.144e3 / 0.125e3 * t878 * t888 + 0.2112e4 / 0.3125e4 * t2270 * t2240 - 0.792e3 / 0.625e3 * t885 * t359 * t370 + 0.36e2 / 0.125e3 * t384 * t2246 + 0.48e2 / 0.125e3 * t384 * t149 * t866;
2502 t2289 = 0.12e2 * t543 + 0.12e2 * t1512;
2503 t2309 = t343 * t343;
2504 t2313 = t351 * t351;
2505 t2317 = t334 * t334;
2506 t2324 = t339 * t339;
2507 t2330 = -0.8e1 / 0.3e1 * t48 * t13 * t2281 - 0.16e2 / 0.3e1 * t2057 + 0.4e1 * t1845 - 0.4e1 * t1640 + t1477 + t1479 - 0.4e1 * t81 * t42 * t2289 - 0.12e2 * t274 * t390 * t343 - 0.16e2 * t121 * t894 * t136 - 0.24e2 * t121 * t390 * t351 - 0.16e2 * t121 * t164 * t846 + 0.4e1 * t121 * t76 * t2289 - 0.3e1 / 0.2e1 * t1546 * t76 * t2309 - 0.6e1 * t274 * t76 * t2313 - 0.3e1 / 0.2e1 * t1527 * t42 * t2317 + 0.4e1 * t633 * t164 * t901 - 0.6e1 * t211 * t42 * t2324 - 0.12e2 * t2071 - 0.24e2 * t2074;
2508 t2360 = -0.8e1 * t291 * t2178 * t132 - 0.8e1 * t310 * t2151 * t136 - 0.24e2 * t310 * t780 * t351 + 0.6e1 * t670 * t764 * t339 + 0.6e1 * t681 * t774 * t351 - 0.6e1 * t1748 - 0.6e1 * t1756 + 0.3e1 * t1913 + 0.6e1 * t1918 + 0.3e1 * t1920 + 0.12e2 * t1925 + 0.6e1 * t1928 - 0.24e2 * t2077 - 0.8e1 * t2080 + 0.2e1 * t2083 + 0.2e1 * t2112 - 0.8e1 * t2115 - 0.12e2 * t2140 - 0.12e2 * t2146;
2509 t2371 = t5 * (t2330 + t2360) - 0.16e2 * t835 - 0.24e2 * t838 - 0.48e2 * t841 - 0.48e2 * t844 - 0.16e2 * t848 - 0.16e2 * t756 + 0.8e1 * t664 - t1605 - t1608 - 0.32e2 / 0.3e1 * t895;
2510 t2383 = -0.24e2 * t899 + 0.4e1 * t903 - 0.24e2 * t905 - 0.24e2 * t808 - 0.12e2 * t811 - 0.48e2 * t813 - 0.24e2 * t816 + 0.4e1 * t913 + 0.12e2 * t719 - 0.12e2 * t819 + 0.12e2 * t727;
2511 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2512 v4rho4[4] = t2371 + t2383;
2513
2514 t2385 = t12 * t13 * t990;
2515 t2390 = t96 * t263;
2516 t2393 = t16 * t604;
2517 t2399 = -0.24751776749651562618e2 * t22 - 0.42356080650391523138e0 * sigma[0] * t583;
2518 t2426 = 0.22816e5 / 0.50625e5 * t1414 * t174 * t575 - 0.24138875611088762020e-1 * t2390 * t239 - 0.59006140382661418272e-2 * t2393 * t575 - t95 * t2399 / 0.15e2 - 0.67052432253024338945e0 * t22 * t38 + 0.36e2 / 0.125e3 * t264 * t960 * t103 + 0.36e2 / 0.125e3 * t264 * t408 * t250 + 0.12e2 / 0.125e3 * t264 * t174 * t586 - 0.496e3 / 0.1125e4 * t949 * t608 + 0.80462918703629206734e-2 * t968 * t608 + 0.36e2 / 0.125e3 * t1449 * t418 + 0.72e2 / 0.125e3 * t598 * t982 + 0.36e2 / 0.125e3 * t598 * t985 - 0.396e3 / 0.625e3 * t605 * t408 * t239;
2519 t2442 = t243 * t113;
2520 t2460 = -0.396e3 / 0.625e3 * t1452 * t979 + 0.2112e4 / 0.3125e4 * t1459 * t174 * t575 - 0.396e3 / 0.625e3 * t605 * t418 * t250 + 0.16e2 / 0.75e2 * t238 * t960 * t103 + 0.16e2 / 0.75e2 * t952 * t250 + 0.16e2 / 0.225e3 * t402 * t586 - 0.80462918703629206734e-1 * t2442 * t103 + 0.20115729675907301684e-1 * t965 * t250 - 0.22350810751008112982e-2 * t413 * t586 - 0.2e1 / 0.25e2 * t1426 * t174 - 0.6e1 / 0.25e2 * t595 * t408 - 0.6e1 / 0.25e2 * t259 * t960 - 0.2e1 / 0.25e2 * t114 * t2399 - 0.496e3 / 0.1125e4 * t574 * t408 * t239;
2521 t2466 = t12 * t90 * t423;
2522 t2469 = t211 * t395 * t212;
2523 t2472 = t81 * t932 * t86;
2524 t2474 = t617 * t181;
2525 t2482 = t81 * t935 * t86;
2526 t2485 = t81 * t395 * t225;
2527 t2488 = t12 * t229 * t181;
2528 t2489 = t210 * t423;
2529 t2493 = t10 * t990;
2530 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2531 v4rho3sigma[0] = -0.12e2 * t2385 - 0.8e1 / 0.3e1 * t170 * t11 * (t2426 + t2460) - 0.6e1 * t2466 - 0.9e1 * t2469 - 0.9e1 * t2472 + t170 * t2474 * t619 - 0.6e1 * t1012 * t181 * t86 * t225 - 0.36e2 * t2482 - 0.18e2 * t2485 + t2488 - 0.6e1 * t170 * t2489 * t212 - 0.12e2 * t170 * t2493 * t86 - 0.12e2 * t170 * t942 * t225 - 0.4e1 * t170 * t398 * t546;
2532
2533 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2534 v4rho3sigma[1] = 0.0e0;
2535
2536 t2504 = t274 * t427 * t275;
2537 t2507 = t121 * t997 * t122;
2538 t2510 = t121 * t427 * t282;
2539 t2513 = t48 * t229 * t195;
2540 t2514 = t632 * t195;
2541 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2542 v4rho3sigma[2] = -0.6e1 * t1027 * t195 * t122 * t282 + t170 * t2514 * t634 - 0.4e1 * t170 * t429 * t554 - 0.9e1 * t2504 - 0.9e1 * t2507 - 0.18e2 * t2510 + t2513;
2543
2544 t2525 = 0.12e2 * t1009 * t1017;
2545 t2536 = t90 * t3;
2546 t2537 = t2536 * t433;
2547 t2540 = 0.6e1 * t291 * t1014;
2548 t2552 = t170 * t617;
2549 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2550 v4rho3sigma[3] = -0.4e1 * t1012 * t423 * t132 * t86 - 0.4e1 * t1659 * t181 * t4 * t86 - 0.2e1 * t1012 * t1013 * t225 + t2552 * t1013 * t212 - 0.8e1 * t1020 * t942 * t4 - 0.4e1 * t170 * t2493 * t132 - 0.4e1 * t1020 * t398 - 0.4e1 * t2385 - 0.4e1 * t2466 - 0.3e1 * t2469 - 0.6e1 * t2472 - 0.12e2 * t2482 - 0.6e1 * t2485 + t2488 - t2525 - 0.3e1 * t2537 - t2540;
2551
2552 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2553 v4rho3sigma[4] = 0.0e0;
2554
2555 t2562 = t2536 * t437;
2556 t2565 = 0.6e1 * t310 * t1029;
2557 t2566 = t170 * t632;
2558 t2578 = t2536 * t462;
2559 t2581 = 0.12e2 * t1009 * t1038;
2560 t2582 = t273 * t461;
2561 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2562 v4rho3sigma[5] = 0.4e1 * t1673 * t195 * t4 * t122 - 0.2e1 * t1027 * t1028 * t282 + t2566 * t1028 * t275 - 0.4e1 * t170 * t1037 * t282 - 0.2e1 * t170 * t2582 * t275 + 0.4e1 * t1020 * t429 - 0.3e1 * t2504 - 0.6e1 * t2507 - 0.6e1 * t2510 + t2513 - 0.3e1 * t2562 - t2565 - 0.2e1 * t2578 - t2581;
2563
2564 t2590 = t303 * t3;
2565 t2595 = t1009 * t1042;
2566 t2606 = t1009 * t1045;
2567 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2568 v4rho3sigma[6] = -0.2e1 * t1012 * t181 * t339 * t86 + t2552 * t181 * t334 * t86 - 0.4e1 * t1659 * t1013 * t4 - 0.2e1 * t170 * t2489 * t334 - 0.4e1 * t170 * t942 * t339 - 0.4e1 * t170 * t398 * t803 - 0.12e2 * t2590 * t1021 - 0.2e1 * t2466 - 0.3e1 * t2472 + t2488 - t2525 - 0.6e1 * t2537 - t2540 - 0.3e1 * t2595 - 0.6e1 * t2606;
2569
2570 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2571 v4rho3sigma[7] = 0.0e0;
2572
2573 t2623 = t1009 * t1050;
2574 t2631 = t1009 * t1053;
2575 t2640 = t1009 * t1056;
2576 t2649 = t1009 * t1101;
2577 t2651 = t46 * t1100;
2578 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2579 v4rho3sigma[8] = -0.4e1 * t1027 * t461 * t136 * t122 - 0.2e1 * t1027 * t195 * t351 * t122 + t2566 * t195 * t343 * t122 + 0.8e1 * t1020 * t1037 * t4 + 0.4e1 * t1673 * t1028 * t4 - 0.4e1 * t170 * t2651 * t122 - 0.4e1 * t170 * t429 * t789 + 0.12e2 * t2590 * t1032 - 0.3e1 * t2507 + t2513 - 0.6e1 * t2562 - t2565 - 0.4e1 * t2578 - t2581 - 0.3e1 * t2623 - 0.12e2 * t2631 - 0.6e1 * t2640 - 0.4e1 * t2649;
2580
2581 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2582 v4rho3sigma[9] = -0.6e1 * t1012 * t1013 * t339 + t170 * t2474 * t911 - 0.4e1 * t170 * t398 * t833 + t2488 - 0.9e1 * t2537 - 0.9e1 * t2595 - 0.18e2 * t2606;
2583
2584 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2585 v4rho3sigma[10] = 0.0e0;
2586
2587 t2683 = -0.24751776749651562618e2 * t57 - 0.42356080650391523138e0 * sigma[2] * t863;
2588 t2691 = t363 * t159;
2589 t2716 = -t141 * t2683 / 0.15e2 - 0.67052432253024338945e0 * t57 * t72 - 0.396e3 / 0.625e3 * t885 * t456 * t370 - 0.80462918703629206734e-1 * t2691 * t149 + 0.20115729675907301684e-1 * t1075 * t370 - 0.22350810751008112982e-2 * t451 * t866 - 0.2e1 / 0.25e2 * t2251 * t188 - 0.6e1 / 0.25e2 * t875 * t446 - 0.6e1 / 0.25e2 * t379 * t1070 - 0.2e1 / 0.25e2 * t160 * t2683 - 0.496e3 / 0.1125e4 * t854 * t446 * t359 + 0.16e2 / 0.75e2 * t358 * t1070 * t149 + 0.16e2 / 0.75e2 * t1062 * t370 + 0.16e2 / 0.225e3 * t440 * t866;
2590 t2720 = t142 * t383;
2591 t2723 = t51 * t884;
2592 t2753 = 0.22816e5 / 0.50625e5 * t2239 * t188 * t855 - 0.24138875611088762020e-1 * t2720 * t359 - 0.59006140382661418272e-2 * t2723 * t855 - 0.396e3 / 0.625e3 * t2263 * t1089 + 0.2112e4 / 0.3125e4 * t2270 * t188 * t855 + 0.36e2 / 0.125e3 * t384 * t1070 * t149 + 0.36e2 / 0.125e3 * t384 * t446 * t370 + 0.12e2 / 0.125e3 * t384 * t188 * t866 - 0.496e3 / 0.1125e4 * t1059 * t888 + 0.80462918703629206734e-2 * t1078 * t888 + 0.36e2 / 0.125e3 * t2260 * t456 + 0.72e2 / 0.125e3 * t878 * t1092 + 0.36e2 / 0.125e3 * t878 * t1095 - 0.396e3 / 0.625e3 * t885 * t446 * t359;
2593 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2594 v4rho3sigma[11] = -0.6e1 * t170 * t2582 * t343 - 0.12e2 * t170 * t2651 * t136 - 0.12e2 * t170 * t1037 * t351 - 0.4e1 * t170 * t429 * t846 - 0.12e2 * t2649 - 0.6e1 * t2578 + t2513 - 0.8e1 / 0.3e1 * t170 * t47 * (t2716 + t2753) + t170 * t2514 * t901 - 0.6e1 * t1027 * t1028 * t351 - 0.9e1 * t2623 - 0.36e2 * t2631 - 0.18e2 * t2640 - 0.9e1 * t2562;
2595
2596 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2597 v4rho3lapl[0] = 0.0e0;
2598
2599 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2600 v4rho3lapl[1] = 0.0e0;
2601
2602 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2603 v4rho3lapl[2] = 0.0e0;
2604
2605 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2606 v4rho3lapl[3] = 0.0e0;
2607
2608 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2609 v4rho3lapl[4] = 0.0e0;
2610
2611 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2612 v4rho3lapl[5] = 0.0e0;
2613
2614 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2615 v4rho3lapl[6] = 0.0e0;
2616
2617 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2618 v4rho3lapl[7] = 0.0e0;
2619
2620 t2769 = t29 * t604;
2621 t2778 = t1104 * t1126;
2622 t2780 = t1107 * t475;
2623 t2782 = t465 * t414;
2624 t2784 = t465 * t1137;
2625 t2794 = t210 * t13;
2626 t2795 = t2794 * t1115;
2627 t2797 = t10 * t90;
2628 t2798 = t2797 * t469;
2629 t2800 = t1104 * t1118;
2630 t2802 = t465 * t1134;
2631 t2804 = -0.53238243179761376878e-2 * t199 * t969 - 0.19520689165912504855e-2 * t199 * t2769 * t575 + 0.44365202649801147399e-2 * t199 * t971 - 0.73942004416335245664e-3 * t199 * t474 * t586 + 0.24955426490513145411e-1 * t2778 - 0.16636950993675430275e-2 * t2780 + 0.13309560794940344220e-1 * t2782 - 0.33273901987350860550e-2 * t2784 - 0.33273901987350860550e-1 * t468 * t177 * t225 + 0.55456503312251434248e-2 * t468 * t200 * t546 - 0.13309560794940344220e-1 * t199 * t966 + 0.12477713245256572706e-1 * t2795 + 0.12477713245256572706e-1 * t2798 - 0.99821705962052581648e-1 * t2800 + 0.39928682384821032660e-2 * t2802;
2632 t2805 = t169 * t617;
2633 t2817 = 0.13864125828062858562e-2 * t11 * t229 * t200;
2634 t2818 = t1107 * t177;
2635 t2820 = t465 * t411;
2636 t2835 = t1104 * t29;
2637 t2836 = t2835 * t1123;
2638 t2846 = t468 * t16;
2639 t2853 = -0.13864125828062858562e-2 * t2805 * t200 * t619 - 0.16636950993675430275e-1 * t1114 * t177 * t212 + 0.99821705962052581648e-1 * t468 * t411 * t86 - t2817 - 0.16636950993675430275e-1 * t2818 + 0.99821705962052581648e-1 * t2820 - 0.88730405299602294796e-1 * t199 * t963 - 0.33273901987350860550e-2 * t1121 * t113 * t225 * t103 - 0.33273901987350860550e-2 * t1121 * t1122 * t250 + 0.26619121589880688439e-2 * t1328 * t263 * t103 * t250 - 0.99821705962052581648e-2 * t2836 - 0.16636950993675430275e-2 * t1158 * t113 * t212 * t103 + 0.83184754968377151372e-2 * t1158 * t38 * t86 * t225 + 0.13309560794940344220e-1 * t2846 * t1123 + 0.39928682384821032660e-2 * t1121 * t263 * t86 * t239;
2640 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2641 v4rho3tau[0] = t2804 + t2853;
2642
2643 t2854 = t273 * t13;
2644 t2855 = t2854 * t1147;
2645 t2857 = t46 * t90;
2646 t2858 = t2857 * t482;
2647 t2860 = t1140 * t1150;
2648 t2864 = 0.13864125828062858562e-2 * t47 * t229 * t203;
2649 t2865 = t169 * t632;
2650 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2651 v4rho3tau[1] = 0.12477713245256572706e-1 * t2855 + 0.12477713245256572706e-1 * t2858 + 0.24955426490513145411e-1 * t2860 - t2864 - 0.13864125828062858562e-2 * t2865 * t203 * t634 + 0.83184754968377151372e-2 * t1177 * t72 * t122 * t282 + 0.55456503312251434248e-2 * t481 * t203 * t554;
2652
2653 t2887 = t2797 * t485;
2654 t2889 = t1104 * t1163;
2655 t2894 = t86 * t103;
2656 t2898 = -0.22182601324900573700e-1 * t1170 * t177 * t4 + 0.83184754968377151372e-2 * t2778 - 0.11091300662450286850e-2 * t2780 + 0.44365202649801147400e-2 * t2782 - 0.11091300662450286850e-2 * t2784 + 0.41592377484188575686e-2 * t2795 + 0.83184754968377151372e-2 * t2798 - 0.33273901987350860549e-1 * t2800 + 0.13309560794940344220e-2 * t2802 + 0.41592377484188575686e-2 * t2887 - 0.33273901987350860549e-1 * t2889 + 0.33273901987350860550e-1 * t468 * t411 * t132 - 0.11091300662450286850e-2 * t1158 * t1166 * t2894 - t2817;
2657 t2904 = t2794 * t29 * t1160;
2658 t2906 = t2835 * t1167;
2659 t2917 = t229 * t210 * t29;
2660 t2926 = t1170 * t29;
2661 t2931 = t2805 * t29;
2662 t2939 = -0.11091300662450286850e-1 * t2818 + 0.33273901987350860550e-1 * t2820 + 0.55456503312251434248e-2 * t1170 * t200 + 0.83184754968377151372e-2 * t2904 - 0.33273901987350860549e-2 * t2906 + 0.27728251656125717124e-2 * t1158 * t1159 * t225 + 0.44365202649801147400e-2 * t2846 * t1167 - 0.11091300662450286850e-2 * t1121 * t1166 * t250 + 0.55456503312251434248e-2 * t2917 * t38 * t4 * t86 + 0.13309560794940344220e-2 * t1121 * t263 * t132 * t239 - 0.22182601324900573700e-2 * t2926 * t113 * t4 * t103 - 0.13864125828062858562e-2 * t2931 * t1159 * t212 - 0.11091300662450286850e-1 * t1114 * t16 * t1160 - 0.33273901987350860549e-2 * t2836;
2663 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2664 v4rho3tau[2] = t2898 + t2939;
2665
2666 t2943 = t2857 * t488;
2667 t2946 = t2854 * t64 * t1179;
2668 t2952 = t229 * t273 * t64;
2669 t2960 = t1143 * t494;
2670 t2962 = t1140 * t64;
2671 t2964 = 0.33273901987350860550e-2 * t2962 * t1195;
2672 t2969 = t1143 * t191;
2673 t2972 = 0.33273901987350860550e-1 * t1140 * t1188;
2674 t2977 = t2865 * t64;
2675 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2676 v4rho3tau[3] = -0.11091300662450286850e-2 * t1193 * t1194 * t282 + 0.41592377484188575686e-2 * t2943 + 0.83184754968377151372e-2 * t2946 + 0.27728251656125717124e-2 * t1177 * t1178 * t282 - 0.55456503312251434248e-2 * t2952 * t72 * t4 * t122 - 0.55456503312251434250e-2 * t1146 * t191 * t275 - 0.55456503312251434250e-3 * t2960 - t2964 + 0.41592377484188575686e-2 * t2855 + 0.83184754968377151372e-2 * t2858 - 0.55456503312251434248e-2 * t1182 * t203 - 0.55456503312251434250e-2 * t2969 - t2972 - 0.11091300662450286850e-1 * t481 * t191 * t282 + 0.83184754968377151372e-2 * t2860 - t2864 - 0.13864125828062858562e-2 * t2977 * t1178 * t275 - 0.55456503312251434250e-3 * t1177 * t1194 * t275;
2677
2678 t2994 = t2794 * t1199;
2679 t3010 = t1104 * t1202;
2680 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2681 v4rho3tau[4] = 0.83184754968377151370e-2 * t2887 + 0.83184754968377151370e-2 * t2904 - 0.33273901987350860548e-1 * t2889 - 0.33273901987350860548e-2 * t2906 + 0.16636950993675430274e-1 * t303 * t10 * t1171 + 0.41592377484188575686e-2 * t2798 - t2817 - 0.55456503312251434248e-2 * t2818 - 0.55456503312251434248e-3 * t2780 + 0.41592377484188575686e-2 * t2994 - 0.13864125828062858562e-2 * t2931 * t38 * t334 * t86 - 0.55456503312251434248e-2 * t1114 * t177 * t334 - 0.55456503312251434248e-3 * t1158 * t113 * t334 * t103 + 0.55456503312251434248e-2 * t2917 * t1159 * t4 + 0.83184754968377151372e-2 * t3010 + 0.27728251656125717124e-2 * t1158 * t38 * t339 * t86 - 0.11091300662450286850e-1 * t468 * t177 * t339 - 0.11091300662450286850e-2 * t1121 * t113 * t339 * t103 + 0.55456503312251434248e-2 * t468 * t200 * t803;
2682
2683 t3030 = t481 * t51;
2684 t3041 = t2962 * t1215;
2685 t3043 = t2854 * t1208;
2686 t3045 = t1140 * t1211;
2687 t3047 = t1140 * t1218;
2688 t3049 = t478 * t452;
2689 t3051 = t478 * t1226;
2690 t3053 = t478 * t1229;
2691 t3064 = 0.27728251656125717124e-2 * t1177 * t72 * t351 * t122 + 0.44365202649801147399e-2 * t3030 * t1195 + 0.13309560794940344220e-2 * t1193 * t383 * t359 * t122 - 0.11091300662450286850e-2 * t1193 * t159 * t370 * t122 - 0.33273901987350860550e-2 * t3041 + 0.41592377484188575686e-2 * t3043 - 0.33273901987350860550e-1 * t3045 + 0.83184754968377151372e-2 * t3047 + 0.44365202649801147399e-2 * t3049 + 0.13309560794940344220e-2 * t3051 - 0.11091300662450286850e-2 * t3053 + 0.22182601324900573700e-1 * t1182 * t191 * t4 + 0.55456503312251434248e-2 * t481 * t203 * t789 + 0.33273901987350860548e-1 * t481 * t449 * t122;
2692 t3071 = t149 * t122;
2693 t3076 = t478 * t449;
2694 t3088 = t1182 * t64;
2695 t3094 = -0.16636950993675430274e-1 * t303 * t46 * t1183 + 0.83184754968377151370e-2 * t2943 - 0.11091300662450286850e-2 * t2960 - t2972 + 0.41592377484188575686e-2 * t2858 - 0.11091300662450286850e-2 * t1177 * t1214 * t3071 - t2864 - 0.11091300662450286850e-1 * t2969 + 0.33273901987350860548e-1 * t3076 - t2964 - 0.13864125828062858562e-2 * t2977 * t72 * t343 * t122 - 0.55456503312251434248e-2 * t2952 * t1178 * t4 - 0.11091300662450286850e-1 * t1146 * t51 * t1179 + 0.22182601324900573700e-2 * t3088 * t159 * t4 * t149 + 0.83184754968377151370e-2 * t2946;
2696 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2697 v4rho3tau[5] = t3064 + t3094;
2698
2699 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2700 v4rho3tau[6] = 0.12477713245256572706e-1 * t2887 + 0.12477713245256572706e-1 * t2994 + 0.24955426490513145411e-1 * t3010 - t2817 - 0.13864125828062858562e-2 * t2805 * t200 * t911 + 0.83184754968377151372e-2 * t1158 * t1159 * t339 + 0.55456503312251434248e-2 * t468 * t200 * t833;
2701
2702 t3143 = 0.39928682384821032660e-2 * t1193 * t383 * t136 * t359 - 0.99821705962052581648e-2 * t3041 - 0.16636950993675430275e-2 * t1177 * t159 * t343 * t149 + 0.83184754968377151372e-2 * t1177 * t1178 * t351 + 0.13309560794940344220e-1 * t3030 * t1215 - 0.33273901987350860550e-2 * t1193 * t159 * t351 * t149 - 0.33273901987350860550e-2 * t1193 * t1214 * t370 + 0.26619121589880688439e-2 * t1350 * t383 * t149 * t370 - 0.13309560794940344220e-1 * t202 * t1076 + 0.44365202649801147399e-2 * t202 * t1081 - 0.73942004416335245664e-3 * t202 * t493 * t866 + 0.12477713245256572706e-1 * t3043 - 0.99821705962052581648e-1 * t3045 + 0.24955426490513145411e-1 * t3047 + 0.13309560794940344220e-1 * t3049;
2703 t3157 = t64 * t884;
2704 t3173 = 0.39928682384821032660e-2 * t3051 - 0.33273901987350860550e-2 * t3053 - 0.13864125828062858562e-2 * t2865 * t203 * t901 - 0.16636950993675430275e-1 * t1146 * t191 * t343 + 0.99821705962052581648e-1 * t481 * t449 * t136 - 0.53238243179761376878e-2 * t202 * t1079 - 0.19520689165912504855e-2 * t202 * t3157 * t855 - 0.33273901987350860550e-1 * t481 * t191 * t351 + 0.55456503312251434248e-2 * t481 * t203 * t846 + 0.12477713245256572706e-1 * t2943 - 0.16636950993675430275e-2 * t2960 - t2864 - 0.16636950993675430275e-1 * t2969 + 0.99821705962052581648e-1 * t3076 - 0.88730405299602294796e-1 * t202 * t1073;
2705 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2706 v4rho3tau[7] = t3143 + t3173;
2707
2708 t3175 = 0.2e1 * t2536 * t509;
2709 t3176 = t1009 * t1235;
2710 t3178 = t1009 * t1270;
2711 t3180 = t210 * t508;
2712 t3184 = t10 * t1269;
2713 t3191 = t408 * t408;
2714 t3228 = 0.32e2 / 0.225e3 * t238 * t3191 - 0.35296733875326269282e-2 * t95 * t247 - 0.528e3 / 0.625e3 * t605 * t418 * t408 - 0.11801228076532283655e-1 * t2393 * t979 + 0.2112e4 / 0.3125e4 * t1459 * t497 * t239 - 0.26623822123103243117e-3 * t605 * t22 * t239 - 0.14522084794419950791e-2 * t264 * t100 * t103 - 0.1984e4 / 0.3375e4 * t949 * t982 - 0.32185167481451682694e-1 * t2390 * t418 + 0.10728389160483894231e-1 * t968 * t982 + 0.53641945802419471157e-2 * t968 * t985 - 0.264e3 / 0.625e3 * t1452 * t1256 + 0.48e2 / 0.125e3 * t598 * t1259 - 0.132e3 / 0.625e3 * t605 * t497 * t250 + 0.24e2 / 0.125e3 * t264 * t174 * t960;
2715 t3265 = 0.24203474657366584652e-3 * t598 * t1264 + 0.12101737328683292326e-3 * t264 * t22 * t250 - 0.496e3 / 0.3375e4 * t1238 * t250 + 0.32e2 / 0.225e3 * t402 * t960 + 0.89642498730987350557e-4 * t1243 * t250 + 0.26820972901209735578e-1 * t965 * t408 - 0.44701621502016225964e-2 * t413 * t960 + 0.12e2 / 0.125e3 * t1449 * t497 - 0.10084781107236076938e-3 * t595 * t22 + 0.22816e5 / 0.50625e5 * t1414 * t497 * t239 - 0.18526116404404052448e-3 * t574 * t22 * t239 - 0.10757099847718482067e-2 * t238 * t100 * t103 - 0.53641945802419471156e-1 * t2442 * t174 + 0.24e2 / 0.125e3 * t264 * t3191 + 0.12101737328683292326e-2 * t259 * t100 - 0.42356080650391523140e-2 * t114 * t247;
2716 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2717 v4rho2sigma2[0] = -t3175 - 0.12e2 * t3176 - 0.8e1 * t3178 - 0.2e1 * t170 * t3180 * t212 - 0.8e1 * t170 * t3184 * t86 - 0.4e1 * t170 * t1234 * t225 - 0.8e1 / 0.3e1 * t170 * t11 * (t3228 + t3265);
2718
2719 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2720 v4rho2sigma2[1] = 0.0e0;
2721
2722 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2723 v4rho2sigma2[2] = 0.0e0;
2724
2725 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2726 v4rho2sigma2[3] = 0.0e0;
2727
2728 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2729 v4rho2sigma2[4] = 0.0e0;
2730
2731 t3271 = 0.2e1 * t2536 * t524;
2732 t3272 = t1009 * t1275;
2733 t3274 = t273 * t523;
2734 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2735 v4rho2sigma2[5] = -0.4e1 * t170 * t1274 * t282 - 0.2e1 * t170 * t3274 * t275 - t3271 - 0.12e2 * t3272;
2736
2737 t3283 = t1009 * t1278;
2738 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2739 v4rho2sigma2[6] = -0.2e1 * t1012 * t508 * t132 * t86 - 0.4e1 * t1020 * t1234 * t4 - 0.4e1 * t170 * t3184 * t132 - t3175 - 0.6e1 * t3176 - 0.4e1 * t3178 - 0.6e1 * t3283;
2740
2741 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2742 v4rho2sigma2[7] = 0.0e0;
2743
2744 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2745 v4rho2sigma2[8] = 0.0e0;
2746
2747 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2748 v4rho2sigma2[9] = 0.0e0;
2749
2750 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2751 v4rho2sigma2[10] = 0.0e0;
2752
2753 t3296 = t1009 * t1282;
2754 t3305 = t1009 * t1317;
2755 t3307 = t46 * t1316;
2756 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2757 v4rho2sigma2[11] = -0.2e1 * t1027 * t523 * t136 * t122 + 0.4e1 * t1020 * t1274 * t4 - 0.4e1 * t170 * t3307 * t122 - t3271 - 0.6e1 * t3272 - 0.6e1 * t3296 - 0.4e1 * t3305;
2758
2759 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2760 v4rho2sigma2[12] = -0.4e1 * t170 * t1234 * t339 - 0.2e1 * t170 * t3180 * t334 - t3175 - 0.12e2 * t3283;
2761
2762 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2763 v4rho2sigma2[13] = 0.0e0;
2764
2765 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2766 v4rho2sigma2[14] = 0.0e0;
2767
2768 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2769 v4rho2sigma2[15] = 0.0e0;
2770
2771 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2772 v4rho2sigma2[16] = 0.0e0;
2773
2774 t3329 = t446 * t446;
2775 t3362 = 0.32e2 / 0.225e3 * t358 * t3329 - 0.35296733875326269282e-2 * t141 * t367 + 0.12101737328683292326e-2 * t379 * t146 - 0.42356080650391523140e-2 * t160 * t367 - 0.10757099847718482067e-2 * t358 * t146 * t149 - 0.53641945802419471156e-1 * t2691 * t188 + 0.24e2 / 0.125e3 * t384 * t3329 + 0.89642498730987350557e-4 * t1290 * t370 + 0.26820972901209735578e-1 * t1075 * t446 - 0.44701621502016225964e-2 * t451 * t1070 + 0.12e2 / 0.125e3 * t2260 * t512 - 0.10084781107236076938e-3 * t875 * t57 - 0.496e3 / 0.3375e4 * t1285 * t370 + 0.32e2 / 0.225e3 * t440 * t1070 + 0.22816e5 / 0.50625e5 * t2239 * t512 * t359;
2776 t3403 = -0.18526116404404052448e-3 * t854 * t57 * t359 + 0.53641945802419471157e-2 * t1078 * t1095 - 0.264e3 / 0.625e3 * t2263 * t1303 + 0.48e2 / 0.125e3 * t878 * t1306 - 0.132e3 / 0.625e3 * t885 * t512 * t370 + 0.24e2 / 0.125e3 * t384 * t188 * t1070 + 0.24203474657366584652e-3 * t878 * t1311 + 0.12101737328683292326e-3 * t384 * t57 * t370 - 0.11801228076532283655e-1 * t2723 * t1089 + 0.2112e4 / 0.3125e4 * t2270 * t512 * t359 - 0.26623822123103243117e-3 * t885 * t57 * t359 - 0.14522084794419950791e-2 * t384 * t146 * t149 - 0.1984e4 / 0.3375e4 * t1059 * t1092 - 0.32185167481451682694e-1 * t2720 * t456 + 0.10728389160483894231e-1 * t1078 * t1092 - 0.528e3 / 0.625e3 * t885 * t456 * t446;
2777 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2778 v4rho2sigma2[17] = -t3271 - 0.12e2 * t3296 - 0.8e1 * t3305 - 0.2e1 * t170 * t3274 * t343 - 0.8e1 * t170 * t3307 * t136 - 0.4e1 * t170 * t1274 * t351 - 0.8e1 / 0.3e1 * t170 * t47 * (t3362 + t3403);
2779
2780 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2781 v4rho2sigmalapl[0] = 0.0e0;
2782
2783 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2784 v4rho2sigmalapl[1] = 0.0e0;
2785
2786 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2787 v4rho2sigmalapl[2] = 0.0e0;
2788
2789 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2790 v4rho2sigmalapl[3] = 0.0e0;
2791
2792 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2793 v4rho2sigmalapl[4] = 0.0e0;
2794
2795 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2796 v4rho2sigmalapl[5] = 0.0e0;
2797
2798 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2799 v4rho2sigmalapl[6] = 0.0e0;
2800
2801 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2802 v4rho2sigmalapl[7] = 0.0e0;
2803
2804 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2805 v4rho2sigmalapl[8] = 0.0e0;
2806
2807 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2808 v4rho2sigmalapl[9] = 0.0e0;
2809
2810 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2811 v4rho2sigmalapl[10] = 0.0e0;
2812
2813 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2814 v4rho2sigmalapl[11] = 0.0e0;
2815
2816 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2817 v4rho2sigmalapl[12] = 0.0e0;
2818
2819 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2820 v4rho2sigmalapl[13] = 0.0e0;
2821
2822 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2823 v4rho2sigmalapl[14] = 0.0e0;
2824
2825 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2826 v4rho2sigmalapl[15] = 0.0e0;
2827
2828 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2829 v4rho2sigmalapl[16] = 0.0e0;
2830
2831 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2832 v4rho2sigmalapl[17] = 0.0e0;
2833
2834 t3408 = t465 * t1333;
2835 t3428 = 0.55456503312251434250e-3 * t1107 * t527;
2836 t3429 = t2835 * t1323;
2837 t3431 = t465 * t502;
2838 t3434 = t465 * t29 * t1330;
2839 t3436 = t113 * t408;
2840 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2841 v4rho2sigmatau[0] = -0.22182601324900573700e-2 * t3408 + 0.29576801766534098266e-2 * t199 * t1252 - 0.73942004416335245664e-3 * t199 * t474 * t960 - 0.44365202649801147399e-2 * t199 * t1248 - 0.35492162119840917919e-2 * t199 * t16 * t1330 + 0.17746081059920458959e-2 * t1328 * t263 * t408 * t103 + 0.88730405299602294797e-3 * t1328 * t1329 * t250 - t3428 - 0.33273901987350860550e-2 * t3429 + 0.44365202649801147400e-2 * t3431 + 0.26619121589880688440e-2 * t3434 - 0.22182601324900573700e-2 * t1121 * t3436 * t86 - 0.11091300662450286850e-2 * t1121 * t1322 * t225 - 0.55456503312251434250e-3 * t1158 * t1322 * t212 + 0.44365202649801147400e-2 * t2846 * t1323 + 0.26619121589880688440e-2 * t1121 * t1329 * t2894 - 0.19520689165912504855e-2 * t1328 * t604 * t174 * t239;
2842
2843 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2844 v4rho2sigmatau[1] = 0.0e0;
2845
2846 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2847 v4rho2sigmatau[2] = 0.0e0;
2848
2849 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2850 v4rho2sigmatau[3] = 0.0e0;
2851
2852 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2853 v4rho2sigmatau[4] = 0.0e0;
2854
2855 t3456 = 0.55456503312251434250e-3 * t1143 * t530;
2856 t3457 = t2962 * t1339;
2857 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2858 v4rho2sigmatau[5] = -t3456 - 0.33273901987350860550e-2 * t3457 - 0.55456503312251434250e-3 * t1177 * t1338 * t275 - 0.11091300662450286850e-2 * t1193 * t1338 * t282;
2859
2860 t3469 = t2835 * t1342;
2861 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2862 v4rho2sigmatau[6] = -t3428 - 0.16636950993675430275e-2 * t3429 + 0.22182601324900573700e-2 * t3431 + 0.13309560794940344220e-2 * t3434 - 0.11091300662450286850e-2 * t3408 - 0.16636950993675430275e-2 * t3469 - 0.55456503312251434250e-3 * t1158 * t1322 * t132 * t86 + 0.22182601324900573700e-2 * t2846 * t1342 + 0.13309560794940344220e-2 * t1121 * t1329 * t132 * t103 - 0.11091300662450286850e-2 * t1121 * t3436 * t132 - 0.11091300662450286850e-2 * t2926 * t1322 * t4;
2863
2864 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2865 v4rho2sigmatau[7] = 0.0e0;
2866
2867 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2868 v4rho2sigmatau[8] = 0.0e0;
2869
2870 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2871 v4rho2sigmatau[9] = 0.0e0;
2872
2873 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2874 v4rho2sigmatau[10] = 0.0e0;
2875
2876 t3488 = t2962 * t1345;
2877 t3497 = t478 * t517;
2878 t3502 = t478 * t64 * t1352;
2879 t3507 = t478 * t1355;
2880 t3509 = t159 * t446;
2881 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2882 v4rho2sigmatau[11] = -t3456 - 0.16636950993675430275e-2 * t3457 - 0.16636950993675430275e-2 * t3488 - 0.55456503312251434250e-3 * t1177 * t1338 * t136 * t122 + 0.11091300662450286850e-2 * t3088 * t1338 * t4 + 0.22182601324900573700e-2 * t3497 + 0.22182601324900573700e-2 * t3030 * t1339 + 0.13309560794940344220e-2 * t3502 + 0.13309560794940344220e-2 * t1193 * t1351 * t3071 - 0.11091300662450286850e-2 * t3507 - 0.11091300662450286850e-2 * t1193 * t3509 * t122;
2883
2884 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2885 v4rho2sigmatau[12] = -t3428 - 0.33273901987350860550e-2 * t3469 - 0.55456503312251434250e-3 * t1158 * t1322 * t334 - 0.11091300662450286850e-2 * t1121 * t1322 * t339;
2886
2887 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2888 v4rho2sigmatau[13] = 0.0e0;
2889
2890 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2891 v4rho2sigmatau[14] = 0.0e0;
2892
2893 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2894 v4rho2sigmatau[15] = 0.0e0;
2895
2896 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2897 v4rho2sigmatau[16] = 0.0e0;
2898
2899 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2900 v4rho2sigmatau[17] = 0.29576801766534098266e-2 * t202 * t1299 - 0.73942004416335245664e-3 * t202 * t493 * t1070 - 0.22182601324900573700e-2 * t1193 * t3509 * t136 - 0.11091300662450286850e-2 * t1193 * t1338 * t351 - 0.44365202649801147399e-2 * t202 * t1295 - 0.35492162119840917919e-2 * t202 * t51 * t1352 + 0.17746081059920458959e-2 * t1350 * t383 * t446 * t149 + 0.88730405299602294797e-3 * t1350 * t1351 * t370 + 0.44365202649801147400e-2 * t3497 - 0.22182601324900573700e-2 * t3507 - t3456 + 0.44365202649801147400e-2 * t3030 * t1345 + 0.26619121589880688440e-2 * t1193 * t1351 * t136 * t149 - 0.19520689165912504855e-2 * t1350 * t884 * t188 * t359 - 0.33273901987350860550e-2 * t3488 + 0.26619121589880688440e-2 * t3502 - 0.55456503312251434250e-3 * t1177 * t1338 * t343;
2901
2902 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2903 v4rho2lapl2[0] = 0.0e0;
2904
2905 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2906 v4rho2lapl2[1] = 0.0e0;
2907
2908 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2909 v4rho2lapl2[2] = 0.0e0;
2910
2911 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2912 v4rho2lapl2[3] = 0.0e0;
2913
2914 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2915 v4rho2lapl2[4] = 0.0e0;
2916
2917 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2918 v4rho2lapl2[5] = 0.0e0;
2919
2920 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2921 v4rho2lapl2[6] = 0.0e0;
2922
2923 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2924 v4rho2lapl2[7] = 0.0e0;
2925
2926 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2927 v4rho2lapl2[8] = 0.0e0;
2928
2929 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2930 v4rho2lapltau[0] = 0.0e0;
2931
2932 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2933 v4rho2lapltau[1] = 0.0e0;
2934
2935 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2936 v4rho2lapltau[2] = 0.0e0;
2937
2938 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2939 v4rho2lapltau[3] = 0.0e0;
2940
2941 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2942 v4rho2lapltau[4] = 0.0e0;
2943
2944 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2945 v4rho2lapltau[5] = 0.0e0;
2946
2947 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2948 v4rho2lapltau[6] = 0.0e0;
2949
2950 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2951 v4rho2lapltau[7] = 0.0e0;
2952
2953 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2954 v4rho2lapltau[8] = 0.0e0;
2955
2956 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2957 v4rho2lapltau[9] = 0.0e0;
2958
2959 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2960 v4rho2lapltau[10] = 0.0e0;
2961
2962 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
2963 v4rho2lapltau[11] = 0.0e0;
2964
2965 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2966 v4rho2tau2[0] = 0.0e0;
2967
2968 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2969 v4rho2tau2[1] = 0.0e0;
2970
2971 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2972 v4rho2tau2[2] = 0.0e0;
2973
2974 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2975 v4rho2tau2[3] = 0.0e0;
2976
2977 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2978 v4rho2tau2[4] = 0.0e0;
2979
2980 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2981 v4rho2tau2[5] = 0.0e0;
2982
2983 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2984 v4rho2tau2[6] = 0.0e0;
2985
2986 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2987 v4rho2tau2[7] = 0.0e0;
2988
2989 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2990 v4rho2tau2[8] = 0.0e0;
2991
2992 t3560 = t1009 * t1373;
2993 t3562 = t10 * t1372;
2994 t3585 = t583 * t263;
2995 t3607 = 0.22816e5 / 0.50625e5 * t1414 * t1358 * t103 - 0.496e3 / 0.1125e4 * t1238 * t408 - 0.55578349213212157345e-3 * t949 * t1264 + 0.26892749619296205167e-3 * t952 * t22 - 0.16135649771577723100e-2 * t402 * t100 - 0.24138875611088762020e-1 * t2390 * t497 - 0.17701842114798425482e-1 * t2393 * t1256 + 0.16092583740725841347e-1 * t968 * t1259 + 0.76073523972696768362e-4 * t1435 * t113 + 0.10143136529692902448e-4 * t3585 * t103 - 0.132e3 / 0.625e3 * t1452 * t1358 + 0.2112e4 / 0.3125e4 * t1459 * t1358 * t103 - 0.396e3 / 0.625e3 * t605 * t497 * t408 + 0.36305211986049876976e-3 * t598 * t1369 - 0.79871466369309729347e-3 * t605 * t1369 * t103 + 0.36305211986049876976e-3 * t264 * t408 * t22 - 0.21783127191629926186e-2 * t264 * t174 * t100;
2996 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
2997 v4rhosigma3[0] = -0.4e1 * t3560 - 0.4e1 * t170 * t3562 * t86 - 0.8e1 / 0.3e1 * t170 * t11 * t3607;
2998
2999 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3000 v4rhosigma3[1] = 0.0e0;
3001
3002 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3003 v4rhosigma3[2] = 0.0e0;
3004
3005 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3006 v4rhosigma3[3] = 0.0e0;
3007
3008 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3009 v4rhosigma3[4] = 0.0e0;
3010
3011 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3012 v4rhosigma3[5] = 0.0e0;
3013
3014 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3015 v4rhosigma3[6] = 0.0e0;
3016
3017 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3018 v4rhosigma3[7] = 0.0e0;
3019
3020 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3021 v4rhosigma3[8] = 0.0e0;
3022
3023 t3611 = t1009 * t1391;
3024 t3612 = t46 * t1390;
3025 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3026 v4rhosigma3[9] = -0.4e1 * t170 * t3612 * t122 - 0.4e1 * t3611;
3027
3028 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3029 v4rhosigma3[10] = -0.4e1 * t170 * t3562 * t132 - 0.4e1 * t3560;
3030
3031 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3032 v4rhosigma3[11] = 0.0e0;
3033
3034 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3035 v4rhosigma3[12] = 0.0e0;
3036
3037 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3038 v4rhosigma3[13] = 0.0e0;
3039
3040 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3041 v4rhosigma3[14] = 0.0e0;
3042
3043 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3044 v4rhosigma3[15] = 0.0e0;
3045
3046 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3047 v4rhosigma3[16] = 0.0e0;
3048
3049 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3050 v4rhosigma3[17] = 0.0e0;
3051
3052 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3053 v4rhosigma3[18] = 0.0e0;
3054
3055 t3642 = t863 * t383;
3056 t3664 = 0.22816e5 / 0.50625e5 * t2239 * t1376 * t149 - 0.496e3 / 0.1125e4 * t1285 * t446 - 0.55578349213212157345e-3 * t1059 * t1311 + 0.26892749619296205167e-3 * t1062 * t57 - 0.16135649771577723100e-2 * t440 * t146 - 0.24138875611088762020e-1 * t2720 * t512 - 0.17701842114798425482e-1 * t2723 * t1303 + 0.16092583740725841347e-1 * t1078 * t1306 + 0.76073523972696768362e-4 * t2225 * t159 + 0.10143136529692902448e-4 * t3642 * t149 - 0.132e3 / 0.625e3 * t2263 * t1376 + 0.2112e4 / 0.3125e4 * t2270 * t1376 * t149 - 0.396e3 / 0.625e3 * t885 * t512 * t446 + 0.36305211986049876976e-3 * t878 * t1387 - 0.79871466369309729347e-3 * t885 * t1387 * t149 + 0.36305211986049876976e-3 * t384 * t446 * t57 - 0.21783127191629926186e-2 * t384 * t188 * t146;
3057 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3058 v4rhosigma3[19] = -0.4e1 * t3611 - 0.4e1 * t170 * t3612 * t136 - 0.8e1 / 0.3e1 * t170 * t47 * t3664;
3059
3060 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3061 v4rhosigma2lapl[0] = 0.0e0;
3062
3063 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3064 v4rhosigma2lapl[1] = 0.0e0;
3065
3066 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3067 v4rhosigma2lapl[2] = 0.0e0;
3068
3069 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3070 v4rhosigma2lapl[3] = 0.0e0;
3071
3072 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3073 v4rhosigma2lapl[4] = 0.0e0;
3074
3075 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3076 v4rhosigma2lapl[5] = 0.0e0;
3077
3078 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3079 v4rhosigma2lapl[6] = 0.0e0;
3080
3081 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3082 v4rhosigma2lapl[7] = 0.0e0;
3083
3084 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3085 v4rhosigma2lapl[8] = 0.0e0;
3086
3087 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3088 v4rhosigma2lapl[9] = 0.0e0;
3089
3090 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3091 v4rhosigma2lapl[10] = 0.0e0;
3092
3093 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3094 v4rhosigma2lapl[11] = 0.0e0;
3095
3096 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3097 v4rhosigma2lapl[12] = 0.0e0;
3098
3099 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3100 v4rhosigma2lapl[13] = 0.0e0;
3101
3102 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3103 v4rhosigma2lapl[14] = 0.0e0;
3104
3105 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3106 v4rhosigma2lapl[15] = 0.0e0;
3107
3108 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3109 v4rhosigma2lapl[16] = 0.0e0;
3110
3111 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3112 v4rhosigma2lapl[17] = 0.0e0;
3113
3114 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3115 v4rhosigma2lapl[18] = 0.0e0;
3116
3117 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3118 v4rhosigma2lapl[19] = 0.0e0;
3119
3120 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3121 v4rhosigma2lapl[20] = 0.0e0;
3122
3123 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3124 v4rhosigma2lapl[21] = 0.0e0;
3125
3126 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3127 v4rhosigma2lapl[22] = 0.0e0;
3128
3129 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3130 v4rhosigma2lapl[23] = 0.0e0;
3131
3132 t3669 = 0.13309560794940344220e-2 * t465 * t1394;
3133 t3670 = t263 * t497;
3134 t3684 = 0.13981667421919204680e-5 * t465 * t1397;
3135 t3690 = t247 * t263;
3136 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3137 v4rhosigma2tau[0] = t3669 + 0.13309560794940344220e-2 * t1121 * t3670 * t86 - 0.17746081059920458959e-2 * t199 * t1363 - 0.19520689165912504855e-2 * t1328 * t604 * t497 * t103 + 0.17746081059920458959e-2 * t1328 * t1329 * t408 - t3684 - 0.13981667421919204680e-5 * t468 * t1397 * t86 + 0.74568892916902424962e-5 * t199 * t1365 + 0.11185333937535363744e-5 * t199 * t3690 * t103;
3138
3139 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3140 v4rhosigma2tau[1] = 0.0e0;
3141
3142 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3143 v4rhosigma2tau[2] = 0.0e0;
3144
3145 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3146 v4rhosigma2tau[3] = 0.0e0;
3147
3148 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3149 v4rhosigma2tau[4] = 0.0e0;
3150
3151 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3152 v4rhosigma2tau[5] = 0.0e0;
3153
3154 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3155 v4rhosigma2tau[6] = 0.0e0;
3156
3157 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3158 v4rhosigma2tau[7] = 0.0e0;
3159
3160 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3161 v4rhosigma2tau[8] = 0.0e0;
3162
3163 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3164 v4rhosigma2tau[9] = 0.0e0;
3165
3166 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3167 v4rhosigma2tau[10] = 0.0e0;
3168
3169 t3695 = 0.13309560794940344220e-2 * t478 * t1400;
3170 t3696 = t383 * t512;
3171 t3701 = 0.13981667421919204680e-5 * t478 * t1403;
3172 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3173 v4rhosigma2tau[11] = t3695 + 0.13309560794940344220e-2 * t1193 * t3696 * t122 - t3701 - 0.13981667421919204680e-5 * t481 * t1403 * t122;
3174
3175 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3176 v4rhosigma2tau[12] = t3669 + 0.13309560794940344220e-2 * t1121 * t3670 * t132 - t3684 - 0.13981667421919204680e-5 * t468 * t1397 * t132;
3177
3178 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3179 v4rhosigma2tau[13] = 0.0e0;
3180
3181 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3182 v4rhosigma2tau[14] = 0.0e0;
3183
3184 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3185 v4rhosigma2tau[15] = 0.0e0;
3186
3187 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3188 v4rhosigma2tau[16] = 0.0e0;
3189
3190 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3191 v4rhosigma2tau[17] = 0.0e0;
3192
3193 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3194 v4rhosigma2tau[18] = 0.0e0;
3195
3196 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3197 v4rhosigma2tau[19] = 0.0e0;
3198
3199 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3200 v4rhosigma2tau[20] = 0.0e0;
3201
3202 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3203 v4rhosigma2tau[21] = 0.0e0;
3204
3205 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3206 v4rhosigma2tau[22] = 0.0e0;
3207
3208 t3728 = t367 * t383;
3209 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3210 v4rhosigma2tau[23] = t3695 + 0.13309560794940344220e-2 * t1193 * t3696 * t136 - 0.17746081059920458959e-2 * t202 * t1381 - 0.19520689165912504855e-2 * t1350 * t884 * t512 * t149 + 0.17746081059920458959e-2 * t1350 * t1351 * t446 - t3701 - 0.13981667421919204680e-5 * t481 * t1403 * t136 + 0.74568892916902424962e-5 * t202 * t1383 + 0.11185333937535363744e-5 * t202 * t3728 * t149;
3211
3212 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3213 v4rhosigmalapl2[0] = 0.0e0;
3214
3215 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3216 v4rhosigmalapl2[1] = 0.0e0;
3217
3218 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3219 v4rhosigmalapl2[2] = 0.0e0;
3220
3221 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3222 v4rhosigmalapl2[3] = 0.0e0;
3223
3224 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3225 v4rhosigmalapl2[4] = 0.0e0;
3226
3227 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3228 v4rhosigmalapl2[5] = 0.0e0;
3229
3230 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3231 v4rhosigmalapl2[6] = 0.0e0;
3232
3233 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3234 v4rhosigmalapl2[7] = 0.0e0;
3235
3236 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3237 v4rhosigmalapl2[8] = 0.0e0;
3238
3239 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3240 v4rhosigmalapl2[9] = 0.0e0;
3241
3242 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3243 v4rhosigmalapl2[10] = 0.0e0;
3244
3245 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3246 v4rhosigmalapl2[11] = 0.0e0;
3247
3248 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3249 v4rhosigmalapl2[12] = 0.0e0;
3250
3251 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3252 v4rhosigmalapl2[13] = 0.0e0;
3253
3254 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3255 v4rhosigmalapl2[14] = 0.0e0;
3256
3257 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3258 v4rhosigmalapl2[15] = 0.0e0;
3259
3260 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3261 v4rhosigmalapl2[16] = 0.0e0;
3262
3263 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3264 v4rhosigmalapl2[17] = 0.0e0;
3265
3266 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3267 v4rhosigmalapltau[0] = 0.0e0;
3268
3269 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3270 v4rhosigmalapltau[1] = 0.0e0;
3271
3272 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3273 v4rhosigmalapltau[2] = 0.0e0;
3274
3275 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3276 v4rhosigmalapltau[3] = 0.0e0;
3277
3278 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3279 v4rhosigmalapltau[4] = 0.0e0;
3280
3281 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3282 v4rhosigmalapltau[5] = 0.0e0;
3283
3284 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3285 v4rhosigmalapltau[6] = 0.0e0;
3286
3287 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3288 v4rhosigmalapltau[7] = 0.0e0;
3289
3290 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3291 v4rhosigmalapltau[8] = 0.0e0;
3292
3293 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3294 v4rhosigmalapltau[9] = 0.0e0;
3295
3296 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3297 v4rhosigmalapltau[10] = 0.0e0;
3298
3299 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3300 v4rhosigmalapltau[11] = 0.0e0;
3301
3302 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3303 v4rhosigmalapltau[12] = 0.0e0;
3304
3305 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3306 v4rhosigmalapltau[13] = 0.0e0;
3307
3308 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3309 v4rhosigmalapltau[14] = 0.0e0;
3310
3311 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3312 v4rhosigmalapltau[15] = 0.0e0;
3313
3314 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3315 v4rhosigmalapltau[16] = 0.0e0;
3316
3317 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3318 v4rhosigmalapltau[17] = 0.0e0;
3319
3320 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3321 v4rhosigmalapltau[18] = 0.0e0;
3322
3323 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3324 v4rhosigmalapltau[19] = 0.0e0;
3325
3326 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3327 v4rhosigmalapltau[20] = 0.0e0;
3328
3329 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3330 v4rhosigmalapltau[21] = 0.0e0;
3331
3332 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3333 v4rhosigmalapltau[22] = 0.0e0;
3334
3335 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3336 v4rhosigmalapltau[23] = 0.0e0;
3337
3338 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3339 v4rhosigmatau2[0] = 0.0e0;
3340
3341 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3342 v4rhosigmatau2[1] = 0.0e0;
3343
3344 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3345 v4rhosigmatau2[2] = 0.0e0;
3346
3347 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3348 v4rhosigmatau2[3] = 0.0e0;
3349
3350 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3351 v4rhosigmatau2[4] = 0.0e0;
3352
3353 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3354 v4rhosigmatau2[5] = 0.0e0;
3355
3356 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3357 v4rhosigmatau2[6] = 0.0e0;
3358
3359 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3360 v4rhosigmatau2[7] = 0.0e0;
3361
3362 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3363 v4rhosigmatau2[8] = 0.0e0;
3364
3365 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3366 v4rhosigmatau2[9] = 0.0e0;
3367
3368 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3369 v4rhosigmatau2[10] = 0.0e0;
3370
3371 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3372 v4rhosigmatau2[11] = 0.0e0;
3373
3374 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3375 v4rhosigmatau2[12] = 0.0e0;
3376
3377 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3378 v4rhosigmatau2[13] = 0.0e0;
3379
3380 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3381 v4rhosigmatau2[14] = 0.0e0;
3382
3383 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3384 v4rhosigmatau2[15] = 0.0e0;
3385
3386 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3387 v4rhosigmatau2[16] = 0.0e0;
3388
3389 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3390 v4rhosigmatau2[17] = 0.0e0;
3391
3392 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3393 v4rholapl3[0] = 0.0e0;
3394
3395 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3396 v4rholapl3[1] = 0.0e0;
3397
3398 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3399 v4rholapl3[2] = 0.0e0;
3400
3401 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3402 v4rholapl3[3] = 0.0e0;
3403
3404 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3405 v4rholapl3[4] = 0.0e0;
3406
3407 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3408 v4rholapl3[5] = 0.0e0;
3409
3410 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3411 v4rholapl3[6] = 0.0e0;
3412
3413 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3414 v4rholapl3[7] = 0.0e0;
3415
3416 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3417 v4rholapl2tau[0] = 0.0e0;
3418
3419 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3420 v4rholapl2tau[1] = 0.0e0;
3421
3422 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3423 v4rholapl2tau[2] = 0.0e0;
3424
3425 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3426 v4rholapl2tau[3] = 0.0e0;
3427
3428 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3429 v4rholapl2tau[4] = 0.0e0;
3430
3431 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3432 v4rholapl2tau[5] = 0.0e0;
3433
3434 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3435 v4rholapl2tau[6] = 0.0e0;
3436
3437 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3438 v4rholapl2tau[7] = 0.0e0;
3439
3440 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3441 v4rholapl2tau[8] = 0.0e0;
3442
3443 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3444 v4rholapl2tau[9] = 0.0e0;
3445
3446 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3447 v4rholapl2tau[10] = 0.0e0;
3448
3449 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3450 v4rholapl2tau[11] = 0.0e0;
3451
3452 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3453 v4rholapltau2[0] = 0.0e0;
3454
3455 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3456 v4rholapltau2[1] = 0.0e0;
3457
3458 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3459 v4rholapltau2[2] = 0.0e0;
3460
3461 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3462 v4rholapltau2[3] = 0.0e0;
3463
3464 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3465 v4rholapltau2[4] = 0.0e0;
3466
3467 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3468 v4rholapltau2[5] = 0.0e0;
3469
3470 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3471 v4rholapltau2[6] = 0.0e0;
3472
3473 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3474 v4rholapltau2[7] = 0.0e0;
3475
3476 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3477 v4rholapltau2[8] = 0.0e0;
3478
3479 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3480 v4rholapltau2[9] = 0.0e0;
3481
3482 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3483 v4rholapltau2[10] = 0.0e0;
3484
3485 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3486 v4rholapltau2[11] = 0.0e0;
3487
3488 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3489 v4rhotau3[0] = 0.0e0;
3490
3491 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3492 v4rhotau3[1] = 0.0e0;
3493
3494 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3495 v4rhotau3[2] = 0.0e0;
3496
3497 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3498 v4rhotau3[3] = 0.0e0;
3499
3500 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3501 v4rhotau3[4] = 0.0e0;
3502
3503 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3504 v4rhotau3[5] = 0.0e0;
3505
3506 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3507 v4rhotau3[6] = 0.0e0;
3508
3509 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3510 v4rhotau3[7] = 0.0e0;
3511
3512 t3732 = t497 * t497;
3513 t3738 = 0.1e1 / t246 / t20;
3514 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3515 v4sigma4[0] = -0.8e1 / 0.3e1 * t170 * t11 * (0.22816e5 / 0.50625e5 * t1414 * t3732 - 0.11115669842642431469e-2 * t1238 * t22 + 0.33900936660288571310e-6 * t238 * t3738 - 0.23602456153064567309e-1 * t2393 * t1358 + 0.40572546118771609792e-4 * t3585 * t174 + 0.2112e4 / 0.3125e4 * t1459 * t3732 - 0.15974293273861945869e-2 * t605 * t497 * t22 + 0.45766264491389571269e-6 * t264 * t3738);
3516
3517 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3518 v4sigma4[1] = 0.0e0;
3519
3520 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3521 v4sigma4[2] = 0.0e0;
3522
3523 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3524 v4sigma4[3] = 0.0e0;
3525
3526 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3527 v4sigma4[4] = 0.0e0;
3528
3529 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3530 v4sigma4[5] = 0.0e0;
3531
3532 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3533 v4sigma4[6] = 0.0e0;
3534
3535 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3536 v4sigma4[7] = 0.0e0;
3537
3538 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3539 v4sigma4[8] = 0.0e0;
3540
3541 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3542 v4sigma4[9] = 0.0e0;
3543
3544 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3545 v4sigma4[10] = 0.0e0;
3546
3547 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3548 v4sigma4[11] = 0.0e0;
3549
3550 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3551 v4sigma4[12] = 0.0e0;
3552
3553 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3554 v4sigma4[13] = 0.0e0;
3555
3556 t3756 = t512 * t512;
3557 t3762 = 0.1e1 / t366 / t55;
3558 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3559 v4sigma4[14] = -0.8e1 / 0.3e1 * t170 * t47 * (0.22816e5 / 0.50625e5 * t2239 * t3756 - 0.11115669842642431469e-2 * t1285 * t57 + 0.33900936660288571310e-6 * t358 * t3762 - 0.23602456153064567309e-1 * t2723 * t1376 + 0.40572546118771609792e-4 * t3642 * t188 + 0.2112e4 / 0.3125e4 * t2270 * t3756 - 0.15974293273861945869e-2 * t885 * t512 * t57 + 0.45766264491389571269e-6 * t384 * t3762);
3560
3561 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3562 v4sigma3lapl[0] = 0.0e0;
3563
3564 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3565 v4sigma3lapl[1] = 0.0e0;
3566
3567 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3568 v4sigma3lapl[2] = 0.0e0;
3569
3570 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3571 v4sigma3lapl[3] = 0.0e0;
3572
3573 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3574 v4sigma3lapl[4] = 0.0e0;
3575
3576 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3577 v4sigma3lapl[5] = 0.0e0;
3578
3579 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3580 v4sigma3lapl[6] = 0.0e0;
3581
3582 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3583 v4sigma3lapl[7] = 0.0e0;
3584
3585 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3586 v4sigma3lapl[8] = 0.0e0;
3587
3588 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3589 v4sigma3lapl[9] = 0.0e0;
3590
3591 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3592 v4sigma3lapl[10] = 0.0e0;
3593
3594 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3595 v4sigma3lapl[11] = 0.0e0;
3596
3597 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3598 v4sigma3lapl[12] = 0.0e0;
3599
3600 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3601 v4sigma3lapl[13] = 0.0e0;
3602
3603 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3604 v4sigma3lapl[14] = 0.0e0;
3605
3606 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3607 v4sigma3lapl[15] = 0.0e0;
3608
3609 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3610 v4sigma3lapl[16] = 0.0e0;
3611
3612 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3613 v4sigma3lapl[17] = 0.0e0;
3614
3615 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3616 v4sigma3lapl[18] = 0.0e0;
3617
3618 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3619 v4sigma3lapl[19] = 0.0e0;
3620
3621 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3622 v4sigma3tau[0] = -0.19520689165912504855e-2 * t199 * t2769 * t1358 + 0.33556001812606091232e-5 * t199 * t3690 * t174;
3623
3624 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3625 v4sigma3tau[1] = 0.0e0;
3626
3627 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3628 v4sigma3tau[2] = 0.0e0;
3629
3630 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3631 v4sigma3tau[3] = 0.0e0;
3632
3633 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3634 v4sigma3tau[4] = 0.0e0;
3635
3636 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3637 v4sigma3tau[5] = 0.0e0;
3638
3639 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3640 v4sigma3tau[6] = 0.0e0;
3641
3642 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3643 v4sigma3tau[7] = 0.0e0;
3644
3645 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3646 v4sigma3tau[8] = 0.0e0;
3647
3648 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3649 v4sigma3tau[9] = 0.0e0;
3650
3651 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3652 v4sigma3tau[10] = 0.0e0;
3653
3654 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3655 v4sigma3tau[11] = 0.0e0;
3656
3657 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3658 v4sigma3tau[12] = 0.0e0;
3659
3660 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3661 v4sigma3tau[13] = 0.0e0;
3662
3663 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3664 v4sigma3tau[14] = 0.0e0;
3665
3666 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3667 v4sigma3tau[15] = 0.0e0;
3668
3669 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3670 v4sigma3tau[16] = 0.0e0;
3671
3672 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3673 v4sigma3tau[17] = 0.0e0;
3674
3675 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3676 v4sigma3tau[18] = 0.0e0;
3677
3678 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3679 v4sigma3tau[19] = -0.19520689165912504855e-2 * t202 * t3157 * t1376 + 0.33556001812606091232e-5 * t202 * t3728 * t188;
3680
3681 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3682 v4sigma2lapl2[0] = 0.0e0;
3683
3684 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3685 v4sigma2lapl2[1] = 0.0e0;
3686
3687 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3688 v4sigma2lapl2[2] = 0.0e0;
3689
3690 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3691 v4sigma2lapl2[3] = 0.0e0;
3692
3693 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3694 v4sigma2lapl2[4] = 0.0e0;
3695
3696 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3697 v4sigma2lapl2[5] = 0.0e0;
3698
3699 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3700 v4sigma2lapl2[6] = 0.0e0;
3701
3702 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3703 v4sigma2lapl2[7] = 0.0e0;
3704
3705 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3706 v4sigma2lapl2[8] = 0.0e0;
3707
3708 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3709 v4sigma2lapl2[9] = 0.0e0;
3710
3711 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3712 v4sigma2lapl2[10] = 0.0e0;
3713
3714 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3715 v4sigma2lapl2[11] = 0.0e0;
3716
3717 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3718 v4sigma2lapl2[12] = 0.0e0;
3719
3720 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3721 v4sigma2lapl2[13] = 0.0e0;
3722
3723 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3724 v4sigma2lapl2[14] = 0.0e0;
3725
3726 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3727 v4sigma2lapl2[15] = 0.0e0;
3728
3729 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3730 v4sigma2lapl2[16] = 0.0e0;
3731
3732 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3733 v4sigma2lapl2[17] = 0.0e0;
3734
3735 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3736 v4sigma2lapltau[0] = 0.0e0;
3737
3738 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3739 v4sigma2lapltau[1] = 0.0e0;
3740
3741 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3742 v4sigma2lapltau[2] = 0.0e0;
3743
3744 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3745 v4sigma2lapltau[3] = 0.0e0;
3746
3747 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3748 v4sigma2lapltau[4] = 0.0e0;
3749
3750 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3751 v4sigma2lapltau[5] = 0.0e0;
3752
3753 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3754 v4sigma2lapltau[6] = 0.0e0;
3755
3756 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3757 v4sigma2lapltau[7] = 0.0e0;
3758
3759 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3760 v4sigma2lapltau[8] = 0.0e0;
3761
3762 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3763 v4sigma2lapltau[9] = 0.0e0;
3764
3765 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3766 v4sigma2lapltau[10] = 0.0e0;
3767
3768 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3769 v4sigma2lapltau[11] = 0.0e0;
3770
3771 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3772 v4sigma2lapltau[12] = 0.0e0;
3773
3774 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3775 v4sigma2lapltau[13] = 0.0e0;
3776
3777 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3778 v4sigma2lapltau[14] = 0.0e0;
3779
3780 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3781 v4sigma2lapltau[15] = 0.0e0;
3782
3783 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3784 v4sigma2lapltau[16] = 0.0e0;
3785
3786 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3787 v4sigma2lapltau[17] = 0.0e0;
3788
3789 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3790 v4sigma2lapltau[18] = 0.0e0;
3791
3792 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3793 v4sigma2lapltau[19] = 0.0e0;
3794
3795 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3796 v4sigma2lapltau[20] = 0.0e0;
3797
3798 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3799 v4sigma2lapltau[21] = 0.0e0;
3800
3801 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3802 v4sigma2lapltau[22] = 0.0e0;
3803
3804 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3805 v4sigma2lapltau[23] = 0.0e0;
3806
3807 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3808 v4sigma2tau2[0] = 0.0e0;
3809
3810 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3811 v4sigma2tau2[1] = 0.0e0;
3812
3813 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3814 v4sigma2tau2[2] = 0.0e0;
3815
3816 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3817 v4sigma2tau2[3] = 0.0e0;
3818
3819 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3820 v4sigma2tau2[4] = 0.0e0;
3821
3822 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3823 v4sigma2tau2[5] = 0.0e0;
3824
3825 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3826 v4sigma2tau2[6] = 0.0e0;
3827
3828 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3829 v4sigma2tau2[7] = 0.0e0;
3830
3831 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3832 v4sigma2tau2[8] = 0.0e0;
3833
3834 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3835 v4sigma2tau2[9] = 0.0e0;
3836
3837 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3838 v4sigma2tau2[10] = 0.0e0;
3839
3840 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3841 v4sigma2tau2[11] = 0.0e0;
3842
3843 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3844 v4sigma2tau2[12] = 0.0e0;
3845
3846 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3847 v4sigma2tau2[13] = 0.0e0;
3848
3849 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3850 v4sigma2tau2[14] = 0.0e0;
3851
3852 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3853 v4sigma2tau2[15] = 0.0e0;
3854
3855 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3856 v4sigma2tau2[16] = 0.0e0;
3857
3858 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
3859 v4sigma2tau2[17] = 0.0e0;
3860
3861 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3862 v4sigmalapl3[0] = 0.0e0;
3863
3864 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3865 v4sigmalapl3[1] = 0.0e0;
3866
3867 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3868 v4sigmalapl3[2] = 0.0e0;
3869
3870 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3871 v4sigmalapl3[3] = 0.0e0;
3872
3873 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3874 v4sigmalapl3[4] = 0.0e0;
3875
3876 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3877 v4sigmalapl3[5] = 0.0e0;
3878
3879 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3880 v4sigmalapl3[6] = 0.0e0;
3881
3882 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3883 v4sigmalapl3[7] = 0.0e0;
3884
3885 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3886 v4sigmalapl3[8] = 0.0e0;
3887
3888 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3889 v4sigmalapl3[9] = 0.0e0;
3890
3891 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3892 v4sigmalapl3[10] = 0.0e0;
3893
3894 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3895 v4sigmalapl3[11] = 0.0e0;
3896
3897 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3898 v4sigmalapl2tau[0] = 0.0e0;
3899
3900 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3901 v4sigmalapl2tau[1] = 0.0e0;
3902
3903 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3904 v4sigmalapl2tau[2] = 0.0e0;
3905
3906 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3907 v4sigmalapl2tau[3] = 0.0e0;
3908
3909 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3910 v4sigmalapl2tau[4] = 0.0e0;
3911
3912 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3913 v4sigmalapl2tau[5] = 0.0e0;
3914
3915 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3916 v4sigmalapl2tau[6] = 0.0e0;
3917
3918 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3919 v4sigmalapl2tau[7] = 0.0e0;
3920
3921 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3922 v4sigmalapl2tau[8] = 0.0e0;
3923
3924 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3925 v4sigmalapl2tau[9] = 0.0e0;
3926
3927 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3928 v4sigmalapl2tau[10] = 0.0e0;
3929
3930 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3931 v4sigmalapl2tau[11] = 0.0e0;
3932
3933 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3934 v4sigmalapl2tau[12] = 0.0e0;
3935
3936 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3937 v4sigmalapl2tau[13] = 0.0e0;
3938
3939 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3940 v4sigmalapl2tau[14] = 0.0e0;
3941
3942 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3943 v4sigmalapl2tau[15] = 0.0e0;
3944
3945 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3946 v4sigmalapl2tau[16] = 0.0e0;
3947
3948 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3949 v4sigmalapl2tau[17] = 0.0e0;
3950
3951 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3952 v4sigmalapltau2[0] = 0.0e0;
3953
3954 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3955 v4sigmalapltau2[1] = 0.0e0;
3956
3957 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3958 v4sigmalapltau2[2] = 0.0e0;
3959
3960 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3961 v4sigmalapltau2[3] = 0.0e0;
3962
3963 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3964 v4sigmalapltau2[4] = 0.0e0;
3965
3966 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3967 v4sigmalapltau2[5] = 0.0e0;
3968
3969 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3970 v4sigmalapltau2[6] = 0.0e0;
3971
3972 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3973 v4sigmalapltau2[7] = 0.0e0;
3974
3975 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3976 v4sigmalapltau2[8] = 0.0e0;
3977
3978 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3979 v4sigmalapltau2[9] = 0.0e0;
3980
3981 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3982 v4sigmalapltau2[10] = 0.0e0;
3983
3984 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3985 v4sigmalapltau2[11] = 0.0e0;
3986
3987 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3988 v4sigmalapltau2[12] = 0.0e0;
3989
3990 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3991 v4sigmalapltau2[13] = 0.0e0;
3992
3993 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3994 v4sigmalapltau2[14] = 0.0e0;
3995
3996 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
3997 v4sigmalapltau2[15] = 0.0e0;
3998
3999 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4000 v4sigmalapltau2[16] = 0.0e0;
4001
4002 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4003 v4sigmalapltau2[17] = 0.0e0;
4004
4005 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4006 v4sigmatau3[0] = 0.0e0;
4007
4008 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4009 v4sigmatau3[1] = 0.0e0;
4010
4011 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4012 v4sigmatau3[2] = 0.0e0;
4013
4014 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4015 v4sigmatau3[3] = 0.0e0;
4016
4017 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4018 v4sigmatau3[4] = 0.0e0;
4019
4020 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4021 v4sigmatau3[5] = 0.0e0;
4022
4023 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4024 v4sigmatau3[6] = 0.0e0;
4025
4026 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4027 v4sigmatau3[7] = 0.0e0;
4028
4029 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4030 v4sigmatau3[8] = 0.0e0;
4031
4032 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4033 v4sigmatau3[9] = 0.0e0;
4034
4035 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4036 v4sigmatau3[10] = 0.0e0;
4037
4038 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4039 v4sigmatau3[11] = 0.0e0;
4040
4041 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4042 v4lapl4[0] = 0.0e0;
4043
4044 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4045 v4lapl4[1] = 0.0e0;
4046
4047 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4048 v4lapl4[2] = 0.0e0;
4049
4050 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4051 v4lapl4[3] = 0.0e0;
4052
4053 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4054 v4lapl4[4] = 0.0e0;
4055
4056 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4057 v4lapl3tau[0] = 0.0e0;
4058
4059 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4060 v4lapl3tau[1] = 0.0e0;
4061
4062 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4063 v4lapl3tau[2] = 0.0e0;
4064
4065 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4066 v4lapl3tau[3] = 0.0e0;
4067
4068 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4069 v4lapl3tau[4] = 0.0e0;
4070
4071 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4072 v4lapl3tau[5] = 0.0e0;
4073
4074 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4075 v4lapl3tau[6] = 0.0e0;
4076
4077 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4078 v4lapl3tau[7] = 0.0e0;
4079
4080 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4081 v4lapl2tau2[0] = 0.0e0;
4082
4083 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4084 v4lapl2tau2[1] = 0.0e0;
4085
4086 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4087 v4lapl2tau2[2] = 0.0e0;
4088
4089 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4090 v4lapl2tau2[3] = 0.0e0;
4091
4092 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4093 v4lapl2tau2[4] = 0.0e0;
4094
4095 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4096 v4lapl2tau2[5] = 0.0e0;
4097
4098 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4099 v4lapl2tau2[6] = 0.0e0;
4100
4101 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4102 v4lapl2tau2[7] = 0.0e0;
4103
4104 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4105 v4lapl2tau2[8] = 0.0e0;
4106
4107 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4108 v4lapltau3[0] = 0.0e0;
4109
4110 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4111 v4lapltau3[1] = 0.0e0;
4112
4113 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4114 v4lapltau3[2] = 0.0e0;
4115
4116 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4117 v4lapltau3[3] = 0.0e0;
4118
4119 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4120 v4lapltau3[4] = 0.0e0;
4121
4122 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4123 v4lapltau3[5] = 0.0e0;
4124
4125 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4126 v4lapltau3[6] = 0.0e0;
4127
4128 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_NEEDS_LAPLACIAN) && (p->info->flags & XC_FLAGS_HAVE_LXC))
4129 v4lapltau3[7] = 0.0e0;
4130
4131 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4132 v4tau4[0] = 0.0e0;
4133
4134 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4135 v4tau4[1] = 0.0e0;
4136
4137 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4138 v4tau4[2] = 0.0e0;
4139
4140 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4141 v4tau4[3] = 0.0e0;
4142
4143 if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC))
4144 v4tau4[4] = 0.0e0;
4145
4146 #ifndef XC_DONT_COMPILE_MXC
4147
4148 if(order < 5) return;
4149
4150
4151 #endif
4152
4153 #endif
4154
4155 #endif
4156
4157 #endif
4158
4159 #endif
4160
4161
4162 }
4163
4164