/* This file was generated automatically with ./scripts/maple2c.pl. Do not edit this file directly as it can be overwritten!! This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0. If a copy of the MPL was not distributed with this file, You can obtain one at http://mozilla.org/MPL/2.0/. Maple version : Maple 2016 (X86 64 LINUX) Maple source : ./maple/gga_exc/gga_c_op_pw91.mpl Type of functional: gga_exc */ #define maple2c_order 4 #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) static inline void func_unpol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *)) { #ifndef XC_DONT_COMPILE_EXC double t1, t2, t3, t5, t6, t7, t8, t9; double t10, t11, t12, t13, t14, t15, t16, t17; double t18, t19, t20, t22, t23, t24, t26, t29; double t30, t33, t35, t36, t37, t38, t39, t40; double t42, t45, t46, t48, t49, t50, t51, t52; double t53, t58, t59, t62, t63, t65, t69, t70; double t72, t73, t74, t75, t76, t80, t83, t84; double t86, t87, t91, t92, t93; #ifndef XC_DONT_COMPILE_VXC double t96, t97, t101, t102, t104, t105, t106, t109; double t111, t117, t118, t120, t121, t122, t123, t125; double t126, t129, t130, t132, t133, t134, t135, t138; double t140, t144, t145, t148, t149, t150, t154, t159; double t163, t167, t171, t172, t175, t176, t177, t178; double t183, t187, t190, t191, t194, t197, t198, t201; double t203, t205, t208, t214, t218, t219; #ifndef XC_DONT_COMPILE_FXC double t224, t231, t238, t240, t241, t242, t245, t246; double t247, t248, t249, t250, t251, t256, t262, t263; double t265, t269, t270, t271, t276, t277, t281, t285; double t286, t289, t291, t295, t296, t302, t303, t304; double t313, t314, t318, t324, t338, t342, t343, t346; double t347, t354, t355, t356, t357, t365, t366, t368; double t371, t382, t384, t386, t389, t390, t391, t392; double t399, t400, t406, t407, t408, t412, t428, t432; double t433, t436, t437, t438, t441, t446, t447, t451; double t456, t459, t460, t463, t466, t468, t470, t473; double t476, t477, t480, t481, t485, t496, t500, t501; #ifndef XC_DONT_COMPILE_KXC double t506, t509, t528, t529, t533, t534, t538, t539; double t540, t542, t544, t545, t549, t555, t556, t558; double t561, t566, t567, t568, t569, t572, t578, t582; double t589, t591, t594, t596, t600, t601, t610, t611; double t612, t613, t616, t617, t622, t626, t642, t643; double t653, t674, t675, t679, t682, t685, t686, t693; double t696, t698, t699, t708, t709, t711, t714, t723; double t726, t729, t740, t743, t745, t747, t756, t759; double t760, t763, t766, t767, t770, t775, t779, t783; double t796, t818, t822, t823, t827, t834, t835, t851; double t853, t855, t861, t862, t864, t874, t877, t881; double t888, t891, t894, t896, t898, t901, t902, t907; double t910, t913, t920, t921, t924, t931, t932, t938; double t942, t949, t953, t959, t982, t986, t987, t991; double t993, t994, t999, t1007, t1010, t1015, t1018, t1019; double t1022, t1027, t1029, t1031, t1034, t1037, t1040, t1043; double t1044, t1047, t1050, t1051, t1055, t1059, t1072, t1076; double t1077; #ifndef XC_DONT_COMPILE_LXC double t1083, t1092, t1093, t1116, t1117, t1121, t1125, t1127; double t1133, t1138, t1139, t1143, t1149, t1152, t1155, t1160; double t1169, t1170, t1176, t1198, t1200, t1205, t1219, t1225; double t1232, t1235, t1243, t1267, t1312, t1329, t1334, t1339; double t1358, t1381, t1384, t1430, t1466, t1469, t1470, t1477; double t1486, t1501, t1522, t1550, t1554, t1566, t1601, t1622; double t1630, t1682, t1693, t1698, t1701, t1719, t1735, t1745; double t1753, t1776, t1810, t1811, t1835, t1846, t1890, t1920; double t1939, t1947, t1976, t1986, t2026, t2034, t2093, t2094; double t2099, t2104, t2107, t2136, t2163, t2174, t2181, t2206; double t2212, t2238, t2261, t2268, t2275, t2283, t2288, t2314; #endif #endif #endif #endif #endif t1 = M_CBRT3; t2 = 0.1e1 / M_PI; t3 = POW_1_3(t2); t5 = M_CBRT4; t6 = t5 * t5; t7 = t1 * t3 * t6; t8 = M_CBRT2; t9 = t8 * t8; t10 = POW_1_3(rho[0]); t11 = t9 * t10; t12 = M_CBRT6; t13 = M_PI * M_PI; t14 = POW_1_3(t13); t15 = t14 * t14; t16 = 0.1e1 / t15; t17 = t12 * t16; t18 = sigma[0] * t9; t19 = rho[0] * rho[0]; t20 = t10 * t10; t22 = 0.1e1 / t20 / t19; t23 = t18 * t22; t24 = t17 * t23; t26 = exp(-0.25e2 / 0.6e1 * t24); t29 = (0.2743e0 - 0.1508e0 * t26) * t12; t30 = t29 * t16; t33 = t12 * t12; t35 = 0.1e1 / t14 / t13; t36 = t33 * t35; t37 = sigma[0] * sigma[0]; t38 = t37 * t8; t39 = t19 * t19; t40 = t39 * rho[0]; t42 = 0.1e1 / t10 / t40; t45 = 0.13888888888888888889e-4 * t36 * t38 * t42; t46 = t30 * t23 / 0.24e2 - t45; t48 = t33 / t14; t49 = sqrt(sigma[0]); t50 = t48 * t49; t51 = t10 * rho[0]; t52 = 0.1e1 / t51; t53 = t8 * t52; t58 = log(0.64963333333333333333e0 * t48 * t49 * t8 * t52 + sqrt(POW_2(0.64963333333333333333e0 * t48 * t49 * t8 * t52) + 0.1e1)); t59 = t53 * t58; t62 = 0.1e1 + 0.16370833333333333333e-1 * t50 * t59 + t45; t63 = 0.1e1 / t62; t65 = t46 * t63 + 0.1e1; t69 = 0.67624328250000000000e0 * t7 * t11 * t65 + 0.5764e0; t70 = rho[0] * t69; t72 = t1 * t3 * t2; t73 = t72 * t6; t74 = t9 * t51; t75 = t65 * t65; t76 = t75 * t75; t80 = t75 * t65; t83 = t1 * t1; t84 = t3 * t3; t86 = t83 * t84 * t5; t87 = t8 * t20; t91 = 0.74944443176129782548e1 * t73 * t74 * t76 + 0.60561007270379084344e1 * rho[0] * t80 + 0.50309005212787500000e0 * t86 * t87 * t75; t92 = 0.1e1 / t91; t93 = t70 * t92; if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC)) zk[0] = -0.25000000000000000000e0 * t93; #ifndef XC_DONT_COMPILE_VXC if(order < 1) return; t96 = 0.1e1 / t20; t97 = t9 * t96; t101 = t36 * t37; t102 = t39 * t19; t104 = 0.1e1 / t10 / t102; t105 = t8 * t104; t106 = t105 * t26; t109 = t19 * rho[0]; t111 = 0.1e1 / t20 / t109; t117 = 0.74074074074074074075e-4 * t36 * t38 * t104; t118 = -0.13962962962962962963e0 * t101 * t106 - t30 * t18 * t111 / 0.9e1 + t117; t120 = t62 * t62; t121 = 0.1e1 / t120; t122 = t46 * t121; t123 = t10 * t19; t125 = t8 / t123; t126 = t125 * t58; t129 = t17 * sigma[0]; t130 = t9 * t111; t132 = 0.25321408066666666666e1 * t24 + 0.1e1; t133 = sqrt(t132); t134 = 0.1e1 / t133; t135 = t130 * t134; t138 = -0.21827777777777777777e-1 * t50 * t126 - 0.85080312222222222219e-1 * t129 * t135 - t117; t140 = t118 * t63 - t122 * t138; t144 = 0.22541442750000000000e0 * t7 * t97 * t65 + 0.67624328250000000000e0 * t7 * t11 * t140; t145 = t19 * t144; t148 = t19 * t69; t149 = t91 * t91; t150 = 0.1e1 / t149; t154 = t80 * t140; t159 = rho[0] * t75; t163 = t8 / t10; t167 = t65 * t140; t171 = 0.99925924234839710064e1 * t73 * t11 * t76 + 0.29977777270451913019e2 * t73 * t74 * t154 + 0.60561007270379084344e1 * t80 + 0.18168302181113725303e2 * t159 * t140 + 0.33539336808525000000e0 * t86 * t163 * t75 + 0.10061801042557500000e1 * t86 * t87 * t167; t172 = t150 * t171; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[0] = -0.50000000000000000000e0 * t93 - 0.25000000000000000000e0 * t145 * t92 + 0.25000000000000000000e0 * t148 * t172; t175 = t123 * t1; t176 = t175 * t3; t177 = t6 * t9; t178 = t36 * t8; t183 = t16 * t9; t187 = sigma[0] * t8; t190 = 0.27777777777777777778e-4 * t36 * t187 * t42; t191 = 0.52361111111111111112e-1 * t178 * t42 * t26 * sigma[0] + t29 * t183 * t22 / 0.24e2 - t190; t194 = t48 / t49; t197 = t9 * t22; t198 = t197 * t134; t201 = 0.81854166666666666665e-2 * t194 * t59 + 0.31905117083333333333e-1 * t17 * t198 + t190; t203 = -t122 * t201 + t191 * t63; t205 = t177 * t203 * t92; t208 = t80 * t203; t214 = t65 * t203; t218 = 0.29977777270451913019e2 * t73 * t74 * t208 + 0.18168302181113725303e2 * t159 * t203 + 0.10061801042557500000e1 * t86 * t87 * t214; t219 = t150 * t218; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[0] = -0.16906082062500000000e0 * t176 * t205 + 0.25000000000000000000e0 * t148 * t219; #ifndef XC_DONT_COMPILE_FXC if(order < 2) return; t224 = rho[0] * t144; t231 = t9 / t20 / rho[0]; t238 = t39 * t109; t240 = 0.1e1 / t10 / t238; t241 = t8 * t240; t242 = t241 * t26; t245 = t13 * t13; t246 = 0.1e1 / t245; t247 = t37 * sigma[0]; t248 = t246 * t247; t249 = t39 * t39; t250 = t249 * t19; t251 = 0.1e1 / t250; t256 = 0.1e1 / t20 / t39; t262 = 0.46913580246913580247e-3 * t36 * t38 * t240; t263 = 0.12566666666666666667e1 * t101 * t242 - 0.18617283950617283951e2 * t248 * t251 * t26 + 0.11e2 / 0.27e2 * t30 * t18 * t256 - t262; t265 = t118 * t121; t269 = 0.1e1 / t120 / t62; t270 = t46 * t269; t271 = t138 * t138; t276 = t8 / t10 / t109; t277 = t276 * t58; t281 = t9 * t256 * t134; t285 = 0.1e1 / t133 / t132; t286 = t241 * t285; t289 = 0.50931481481481481480e-1 * t50 * t277 + 0.42540156111111111109e0 * t129 * t281 - 0.57449421445821236542e0 * t101 * t286 + t262; t291 = -t122 * t289 - 0.2e1 * t138 * t265 + t263 * t63 + 0.2e1 * t270 * t271; t295 = -0.15027628500000000000e0 * t7 * t231 * t65 + 0.45082885500000000000e0 * t7 * t97 * t140 + 0.67624328250000000000e0 * t7 * t11 * t291; t296 = t19 * t295; t302 = 0.1e1 / t149 / t91; t303 = t171 * t171; t304 = t302 * t303; t313 = t140 * t140; t314 = t75 * t313; t318 = t80 * t291; t324 = rho[0] * t65; t338 = t65 * t291; t342 = 0.33308641411613236688e1 * t73 * t97 * t76 + 0.79940739387871768051e2 * t73 * t11 * t154 + 0.89933331811355739057e2 * t73 * t74 * t314 + 0.29977777270451913019e2 * t73 * t74 * t318 + 0.36336604362227450606e2 * t75 * t140 + 0.36336604362227450606e2 * t324 * t313 + 0.18168302181113725303e2 * t159 * t291 - 0.11179778936175000000e0 * t86 * t53 * t75 + 0.13415734723410000000e1 * t86 * t163 * t167 + 0.10061801042557500000e1 * t86 * t87 * t313 + 0.10061801042557500000e1 * t86 * t87 * t338; t343 = t150 * t342; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[0] = -0.50000000000000000000e0 * t69 * t92 - 0.10000000000000000000e1 * t224 * t92 + 0.10000000000000000000e1 * t70 * t172 - 0.25000000000000000000e0 * t296 * t92 + 0.50000000000000000000e0 * t145 * t172 - 0.50000000000000000000e0 * t148 * t304 + 0.25000000000000000000e0 * t148 * t343; t346 = t51 * t1; t347 = t346 * t3; t354 = t249 * rho[0]; t355 = 0.1e1 / t354; t356 = t246 * t355; t357 = t37 * t26; t365 = 0.14814814814814814815e-3 * t36 * t187 * t104; t366 = -0.41888888888888888889e0 * t178 * t104 * t26 * sigma[0] + 0.69814814814814814816e1 * t356 * t357 - t29 * t183 * t111 / 0.9e1 + t365; t368 = t191 * t121; t371 = t201 * t138; t382 = -0.10913888888888888889e-1 * t194 * t126 - 0.12762046833333333333e0 * t17 * t135 + 0.21543533042182963704e0 * t178 * t104 * t285 * sigma[0] - t365; t384 = -t122 * t382 - t138 * t368 - t201 * t265 + 0.2e1 * t270 * t371 + t366 * t63; t386 = t177 * t384 * t92; t389 = t3 * t6; t390 = t175 * t389; t391 = t9 * t203; t392 = t391 * t172; t399 = t302 * t218; t400 = t399 * t171; t406 = t72 * t177; t407 = t51 * t75; t408 = t203 * t140; t412 = t80 * t384; t428 = t65 * t384; t432 = 0.39970369693935884025e2 * t73 * t11 * t208 + 0.89933331811355739057e2 * t406 * t407 * t408 + 0.29977777270451913019e2 * t73 * t74 * t412 + 0.18168302181113725303e2 * t75 * t203 + 0.36336604362227450606e2 * t324 * t408 + 0.18168302181113725303e2 * t159 * t384 + 0.67078673617050000000e0 * t86 * t163 * t214 + 0.10061801042557500000e1 * t86 * t87 * t408 + 0.10061801042557500000e1 * t86 * t87 * t428; t433 = t150 * t432; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[0] = -0.39447524812500000000e0 * t347 * t205 - 0.16906082062500000000e0 * t176 * t386 + 0.16906082062500000000e0 * t390 * t392 + 0.50000000000000000000e0 * t70 * t219 + 0.25000000000000000000e0 * t145 * t219 - 0.50000000000000000000e0 * t148 * t400 + 0.25000000000000000000e0 * t148 * t433; t436 = 0.1e1 / t249; t437 = t246 * t436; t438 = t26 * sigma[0]; t441 = t8 * t42; t446 = 0.27777777777777777778e-4 * t36 * t441; t447 = -0.26180555555555555556e1 * t437 * t438 + 0.10472222222222222222e0 * t36 * t441 * t26 - t446; t451 = t201 * t201; t456 = t48 / t49 / sigma[0]; t459 = 0.1e1 / sigma[0]; t460 = t17 * t459; t463 = t441 * t285; t466 = -0.40927083333333333332e-2 * t456 * t59 + 0.15952558541666666666e-1 * t460 * t198 - 0.80788248908186113886e-1 * t36 * t463 + t446; t468 = -t122 * t466 - 0.2e1 * t201 * t368 + 0.2e1 * t270 * t451 + t447 * t63; t470 = t177 * t468 * t92; t473 = t391 * t219; t476 = t218 * t218; t477 = t302 * t476; t480 = t203 * t203; t481 = t75 * t480; t485 = t80 * t468; t496 = t65 * t468; t500 = 0.89933331811355739057e2 * t73 * t74 * t481 + 0.29977777270451913019e2 * t73 * t74 * t485 + 0.36336604362227450606e2 * t324 * t480 + 0.18168302181113725303e2 * t159 * t468 + 0.10061801042557500000e1 * t86 * t87 * t480 + 0.10061801042557500000e1 * t86 * t87 * t496; t501 = t150 * t500; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[0] = -0.16906082062500000000e0 * t176 * t470 + 0.33812164125000000000e0 * t390 * t473 - 0.50000000000000000000e0 * t148 * t477 + 0.25000000000000000000e0 * t148 * t501; #ifndef XC_DONT_COMPILE_KXC if(order < 3) return; t506 = t69 * t150; t509 = rho[0] * t295; t528 = 0.1e1 / t10 / t249; t529 = t8 * t528; t533 = t249 * t109; t534 = 0.1e1 / t533; t538 = t37 * t37; t539 = t246 * t538; t540 = t249 * t40; t542 = 0.1e1 / t20 / t540; t544 = t9 * t26; t545 = t17 * t544; t549 = 0.1e1 / t20 / t40; t555 = 0.34403292181069958848e-2 * t36 * t38 * t528; t556 = -0.10580823045267489712e2 * t101 * t529 * t26 + 0.35372839506172839507e3 * t248 * t534 * t26 - 0.20685871056241426612e3 * t539 * t542 * t545 - 0.154e3 / 0.81e2 * t30 * t18 * t549 + t555; t558 = t263 * t121; t561 = t118 * t269; t566 = t120 * t120; t567 = 0.1e1 / t566; t568 = t46 * t567; t569 = t271 * t138; t572 = t138 * t289; t578 = t8 / t10 / t39 * t58; t582 = t9 * t549 * t134; t589 = t132 * t132; t591 = 0.1e1 / t133 / t589; t594 = -0.16977160493827160493e0 * t50 * t578 - 0.22499015898765432098e1 * t129 * t582 + 0.70854286449846191734e1 * t101 * t529 * t285 - 0.71682849057236891051e0 * t247 * t534 * t591 - t555; t596 = -t122 * t594 - 0.3e1 * t138 * t558 - 0.3e1 * t265 * t289 + 0.6e1 * t270 * t572 + 0.6e1 * t561 * t271 + t556 * t63 - 0.6e1 * t568 * t569; t600 = 0.25046047500000000000e0 * t7 * t197 * t65 - 0.45082885500000000000e0 * t7 * t231 * t140 + 0.67624328250000000000e0 * t7 * t97 * t291 + 0.67624328250000000000e0 * t7 * t11 * t596; t601 = t19 * t600; t610 = t149 * t149; t611 = 0.1e1 / t610; t612 = t303 * t171; t613 = t611 * t612; t616 = t302 * t171; t617 = t616 * t342; t622 = t65 * t596; t626 = t140 * t291; t642 = t313 * t140; t643 = t65 * t642; t653 = t80 * t596; t674 = 0.54504906543341175909e2 * t75 * t291 + 0.10061801042557500000e1 * t86 * t87 * t622 + 0.30185403127672500000e1 * t86 * t87 * t626 + 0.20123602085115000000e1 * t86 * t163 * t313 + 0.20123602085115000000e1 * t86 * t163 * t338 + 0.14906371914900000000e0 * t86 * t125 * t75 - 0.67078673617050000000e0 * t86 * t53 * t167 + 0.17986666362271147811e3 * t73 * t74 * t643 + 0.26979999543406721717e3 * t406 * t407 * t626 + 0.35973332724542295623e3 * t73 * t11 * t314 + 0.29977777270451913019e2 * t73 * t74 * t653 + 0.11991110908180765208e3 * t73 * t11 * t318 - 0.22205760941075491125e1 * t73 * t231 * t76 + 0.39970369693935884025e2 * t73 * t97 * t154 + 0.10900981308668235182e3 * t324 * t626 + 0.10900981308668235182e3 * t65 * t313 + 0.36336604362227450606e2 * rho[0] * t642 + 0.18168302181113725303e2 * t159 * t596; t675 = t150 * t674; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[0] = -0.15000000000000000000e1 * t144 * t92 + 0.15000000000000000000e1 * t506 * t171 - 0.15000000000000000000e1 * t509 * t92 + 0.30000000000000000000e1 * t224 * t172 - 0.30000000000000000000e1 * t70 * t304 + 0.15000000000000000000e1 * t70 * t343 - 0.25000000000000000000e0 * t601 * t92 + 0.75000000000000000000e0 * t296 * t172 - 0.15000000000000000000e1 * t145 * t304 + 0.75000000000000000000e0 * t145 * t343 + 0.15000000000000000000e1 * t148 * t613 - 0.15000000000000000000e1 * t148 * t617 + 0.25000000000000000000e0 * t148 * t675; t679 = t611 * t218 * t303; t682 = t399 * t342; t685 = t302 * t432; t686 = t685 * t171; t693 = t246 * t251; t696 = t249 * t39; t698 = 0.1e1 / t20 / t696; t699 = t246 * t698; t708 = 0.93827160493827160495e-3 * t36 * t187 * t240; t709 = 0.30253086419753086420e1 * t178 * t240 * t26 * sigma[0] - 0.11868518518518518519e3 * t693 * t357 + 0.77572016460905349795e2 * t699 * t247 * t545 + 0.11e2 / 0.27e2 * t29 * t183 * t256 - t708; t711 = t366 * t121; t714 = t191 * t269; t723 = t201 * t271; t726 = t382 * t138; t729 = t201 * t289; t740 = t251 * t591; t743 = 0.25465740740740740741e-1 * t194 * t277 + 0.52466192537037037036e0 * t17 * t281 - 0.22261650810255729160e1 * t178 * t240 * t285 * sigma[0] + 0.26881068396463834145e0 * t740 * t37 + t708; t745 = -t122 * t743 - 0.2e1 * t711 * t138 - t558 * t201 - 0.2e1 * t265 * t382 + 0.4e1 * t270 * t726 + 0.2e1 * t270 * t729 + 0.2e1 * t714 * t271 - t368 * t289 + 0.4e1 * t561 * t371 - 0.6e1 * t568 * t723 + t709 * t63; t747 = t177 * t745 * t92; t756 = t391 * t343; t759 = t9 * t384; t760 = t759 * t172; t763 = t346 * t389; t766 = t10 * t1; t767 = t766 * t3; t770 = t391 * t304; t775 = t65 * t745; t779 = t140 * t384; t783 = t291 * t203; t796 = t80 * t745; t818 = t10 * t75; t822 = t51 * t65; t823 = t313 * t203; t827 = rho[0] * t313; t834 = 0.10061801042557500000e1 * t86 * t87 * t775 + 0.20123602085115000000e1 * t86 * t87 * t779 + 0.10061801042557500000e1 * t86 * t87 * t783 + 0.13415734723410000000e1 * t86 * t163 * t408 + 0.13415734723410000000e1 * t86 * t163 * t428 - 0.22359557872350000000e0 * t86 * t53 * t214 + 0.29977777270451913019e2 * t73 * t74 * t796 + 0.79940739387871768050e2 * t73 * t11 * t412 + 0.36336604362227450606e2 * t75 * t384 + 0.18168302181113725303e2 * t159 * t745 + 0.72673208724454901212e2 * t214 * t140 + 0.17986666362271147811e3 * t406 * t407 * t779 + 0.89933331811355739057e2 * t406 * t407 * t783 + 0.13323456564645294675e2 * t73 * t97 * t208 + 0.23982221816361530416e3 * t406 * t818 * t408 + 0.17986666362271147811e3 * t406 * t822 * t823 + 0.36336604362227450606e2 * t827 * t203 + 0.72673208724454901212e2 * t324 * t779 + 0.36336604362227450606e2 * t324 * t783; t835 = t150 * t834; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[0] = 0.15000000000000000000e1 * t148 * t679 - 0.50000000000000000000e0 * t148 * t682 - 0.10000000000000000000e1 * t148 * t686 - 0.16906082062500000000e0 * t176 * t747 - 0.78895049625000000000e0 * t347 * t386 - 0.10000000000000000000e1 * t145 * t400 - 0.20000000000000000000e1 * t70 * t400 + 0.16906082062500000000e0 * t390 * t756 + 0.33812164125000000000e0 * t390 * t760 + 0.78895049625000000000e0 * t763 * t392 - 0.52596699750000000000e0 * t767 * t205 - 0.33812164125000000000e0 * t390 * t770 + 0.50000000000000000000e0 * t145 * t433 + 0.25000000000000000000e0 * t148 * t835 + 0.50000000000000000000e0 * t506 * t218 + 0.10000000000000000000e1 * t224 * t219 + 0.10000000000000000000e1 * t70 * t433 + 0.25000000000000000000e0 * t296 * t219; t851 = 0.1e1 / t20 / t533; t853 = t246 * t851 * t12; t855 = t16 * t37 * t544; t861 = 0.14814814814814814815e-3 * t36 * t105; t862 = 0.34907407407407407408e2 * t356 * t438 - 0.29089506172839506173e2 * t853 * t855 - 0.55851851851851851851e0 * t36 * t106 + t861; t864 = t447 * t121; t874 = t451 * t138; t877 = t201 * t382; t881 = t466 * t138; t888 = t105 * t285; t891 = t355 * t591; t894 = 0.54569444444444444443e-2 * t456 * t126 - 0.21270078055555555554e-1 * t460 * t135 + 0.53858832605457409257e0 * t36 * t888 - 0.10080400648673937804e0 * t891 * sigma[0] - t861; t896 = -t122 * t894 - t864 * t138 - 0.2e1 * t711 * t201 - t265 * t466 + 0.4e1 * t270 * t877 + 0.2e1 * t270 * t881 - 0.2e1 * t368 * t382 + 0.4e1 * t714 * t371 + 0.2e1 * t561 * t451 - 0.6e1 * t568 * t874 + t862 * t63; t898 = t177 * t896 * t92; t901 = t9 * t468; t902 = t901 * t172; t907 = t759 * t219; t910 = t391 * t400; t913 = t391 * t433; t920 = t611 * t476; t921 = t920 * t171; t924 = t399 * t432; t931 = t302 * t500; t932 = t931 * t171; t938 = t140 * t480; t942 = t203 * t384; t949 = t468 * t140; t953 = t80 * t896; t959 = rho[0] * t140; t982 = t65 * t896; t986 = 0.11991110908180765208e3 * t73 * t11 * t481 + 0.17986666362271147811e3 * t406 * t822 * t938 + 0.17986666362271147811e3 * t406 * t407 * t942 + 0.39970369693935884025e2 * t73 * t11 * t485 + 0.89933331811355739057e2 * t406 * t407 * t949 + 0.29977777270451913019e2 * t73 * t74 * t953 + 0.36336604362227450606e2 * t65 * t480 + 0.36336604362227450606e2 * t959 * t480 + 0.72673208724454901212e2 * t324 * t942 + 0.18168302181113725303e2 * t75 * t468 + 0.36336604362227450606e2 * t324 * t949 + 0.18168302181113725303e2 * t159 * t896 + 0.67078673617050000000e0 * t86 * t163 * t480 + 0.20123602085115000000e1 * t86 * t87 * t942 + 0.67078673617050000000e0 * t86 * t163 * t496 + 0.10061801042557500000e1 * t86 * t87 * t949 + 0.10061801042557500000e1 * t86 * t87 * t982; t987 = t150 * t986; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[0] = -0.39447524812500000000e0 * t347 * t470 - 0.16906082062500000000e0 * t176 * t898 + 0.16906082062500000000e0 * t390 * t902 + 0.78895049625000000000e0 * t763 * t473 + 0.33812164125000000000e0 * t390 * t907 - 0.67624328250000000000e0 * t390 * t910 + 0.33812164125000000000e0 * t390 * t913 - 0.10000000000000000000e1 * t70 * t477 - 0.50000000000000000000e0 * t145 * t477 + 0.15000000000000000000e1 * t148 * t921 - 0.10000000000000000000e1 * t148 * t924 + 0.50000000000000000000e0 * t70 * t501 + 0.25000000000000000000e0 * t145 * t501 - 0.50000000000000000000e0 * t148 * t932 + 0.25000000000000000000e0 * t148 * t987; t991 = 0.1e1 / t20 / t250; t993 = t246 * t991 * t12; t994 = t183 * t438; t999 = 0.10908564814814814815e2 * t993 * t994 - 0.78541666666666666666e1 * t437 * t26; t1007 = t451 * t201; t1010 = t201 * t466; t1015 = t48 / t49 / t37; t1018 = 0.1e1 / t37; t1019 = t17 * t1018; t1022 = t36 * t459; t1027 = 0.61390624999999999998e-2 * t1015 * t59 - 0.23928837812499999999e-1 * t1019 * t198 - 0.40394124454093056942e-1 * t1022 * t463 + 0.37801502432527266763e-1 * t436 * t591; t1029 = -0.6e1 * t568 * t1007 + 0.6e1 * t270 * t1010 - t122 * t1027 - 0.3e1 * t864 * t201 - 0.3e1 * t368 * t466 + 0.6e1 * t714 * t451 + t999 * t63; t1031 = t177 * t1029 * t92; t1034 = t901 * t219; t1037 = t391 * t477; t1040 = t391 * t501; t1043 = t476 * t218; t1044 = t611 * t1043; t1047 = t399 * t500; t1050 = t480 * t203; t1051 = t65 * t1050; t1055 = t203 * t468; t1059 = t80 * t1029; t1072 = t65 * t1029; t1076 = 0.17986666362271147811e3 * t73 * t74 * t1051 + 0.26979999543406721717e3 * t406 * t407 * t1055 + 0.29977777270451913019e2 * t73 * t74 * t1059 + 0.36336604362227450606e2 * rho[0] * t1050 + 0.10900981308668235182e3 * t324 * t1055 + 0.18168302181113725303e2 * t159 * t1029 + 0.30185403127672500000e1 * t86 * t87 * t1055 + 0.10061801042557500000e1 * t86 * t87 * t1072; t1077 = t150 * t1076; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[0] = -0.16906082062500000000e0 * t176 * t1031 + 0.50718246187500000000e0 * t390 * t1034 - 0.10143649237500000000e1 * t390 * t1037 + 0.50718246187500000000e0 * t390 * t1040 + 0.15000000000000000000e1 * t148 * t1044 - 0.15000000000000000000e1 * t148 * t1047 + 0.25000000000000000000e0 * t148 * t1077; #ifndef XC_DONT_COMPILE_LXC if(order < 4) return; t1083 = t342 * t342; t1092 = 0.1e1 / t610 / t91; t1093 = t303 * t303; t1116 = 0.1e1 / t10 / t354; t1117 = t8 * t1116; t1121 = 0.1e1 / t696; t1125 = t249 * t102; t1127 = 0.1e1 / t20 / t1125; t1133 = t249 * t249; t1138 = t8 * t26; t1139 = t36 * t1138; t1143 = 0.1e1 / t20 / t102; t1149 = 0.28669410150891632373e-1 * t36 * t38 * t1116; t1152 = t556 * t121; t1155 = t263 * t269; t1160 = t118 * t567; t1169 = t46 / t566 / t62; t1170 = t271 * t271; t1176 = t289 * t289; t1198 = 0.1e1 / t133 / t589 / t132; t1200 = t17 * t9; t1205 = (0.94544773662551440330e2 * t101 * t1117 * t26 - 0.53017887517146776407e4 * t248 * t1121 * t26 + 0.67573845450388660266e4 * t539 * t1127 * t545 - 0.45968602347203170249e4 * t246 * t538 * sigma[0] / t10 / t1133 / rho[0] * t1139 + 0.2618e4 / 0.243e3 * t30 * t18 * t1143 - t1149) * t63 - 0.4e1 * t1152 * t138 + 0.12e2 * t1155 * t271 - 0.6e1 * t558 * t289 - 0.24e2 * t1160 * t569 + 0.24e2 * t561 * t572 - 0.4e1 * t265 * t594 + 0.24e2 * t1169 * t1170 - 0.36e2 * t568 * t271 * t289 + 0.6e1 * t270 * t1176 + 0.8e1 * t270 * t138 * t594 - t122 * (0.73567695473251028803e0 * t50 * t441 * t58 + 0.13631756691604938272e2 * t129 * t9 * t1143 * t134 - 0.74237419046100108997e2 * t101 * t1117 * t285 + 0.16725998113355274578e2 * t247 * t1121 * t591 - 0.12100737815730448498e2 * t538 * t1127 * t1198 * t1200 + t1149); t1219 = -0.20000000000000000000e1 * t148 * t616 * t674 - 0.15000000000000000000e1 * t148 * t302 * t1083 + 0.90000000000000000000e1 * t148 * t611 * t303 * t342 - 0.60000000000000000000e1 * t148 * t1092 * t1093 + 0.60000000000000000000e1 * t145 * t613 - 0.60000000000000000000e1 * t145 * t617 - 0.30000000000000000000e1 * t296 * t304 - 0.25000000000000000000e0 * t19 * (-0.66789460000000000000e0 * t7 * t130 * t65 + 0.10018419000000000000e1 * t7 * t197 * t140 - 0.90165771000000000000e0 * t7 * t231 * t291 + 0.90165771000000000000e0 * t7 * t97 * t596 + 0.67624328250000000000e0 * t7 * t11 * t1205) * t92 - 0.12000000000000000000e2 * t70 * t617 + 0.12000000000000000000e2 * t70 * t613 - 0.30000000000000000000e1 * t295 * t92; t1225 = t144 * t150; t1232 = t291 * t291; t1235 = t140 * t596; t1243 = t313 * t313; t1267 = 0.43603925234672940728e3 * t338 * t140 + 0.21801962617336470364e3 * t827 * t291 + 0.10900981308668235182e3 * t324 * t1232 + 0.14534641744890980243e3 * t324 * t1235 + 0.18168302181113725303e2 * t159 * t1205 + 0.30185403127672500000e1 * t86 * t87 * t1232 + 0.17986666362271147811e3 * t73 * t74 * t1243 - 0.34781534468100000000e0 * t86 * t276 * t75 + 0.10061801042557500000e1 * t86 * t87 * t65 * t1205 - 0.13415734723410000000e1 * t86 * t53 * t313 + 0.40247204170230000000e1 * t86 * t87 * t1235 + 0.14534641744890980243e3 * t642 + 0.26831469446820000000e1 * t86 * t163 * t622 + 0.80494408340460000000e1 * t86 * t163 * t626; t1312 = -0.13415734723410000000e1 * t86 * t53 * t338 + 0.95928887265446121661e3 * t73 * t11 * t643 + 0.26979999543406721717e3 * t73 * t74 * t75 * t1232 + 0.15988147877574353610e3 * t73 * t11 * t653 + 0.23982221816361530416e3 * t73 * t97 * t314 + 0.11925097531920000000e1 * t86 * t125 * t167 + 0.29977777270451913019e2 * t73 * t74 * t80 * t1205 + 0.79940739387871768052e2 * t73 * t97 * t318 - 0.35529217505720785800e2 * t73 * t231 * t154 + 0.72673208724454901212e2 * t75 * t596 + 0.37009601568459151875e1 * t73 * t197 * t76 + 0.35973332724542295623e3 * t406 * t407 * t1235 + 0.10791999817362688687e4 * t406 * t822 * t313 * t291 + 0.14389333089816918249e4 * t406 * t818 * t626; t1329 = t69 * t302; t1334 = -0.20000000000000000000e1 * rho[0] * t600 * t92 + 0.30000000000000000000e1 * t506 * t342 + 0.60000000000000000000e1 * t1225 * t171 + 0.25000000000000000000e0 * t148 * t150 * (t1267 + t1312) + 0.10000000000000000000e1 * t145 * t675 + 0.10000000000000000000e1 * t601 * t172 + 0.15000000000000000000e1 * t296 * t343 + 0.60000000000000000000e1 * t509 * t172 + 0.60000000000000000000e1 * t224 * t343 + 0.20000000000000000000e1 * t70 * t675 - 0.60000000000000000000e1 * t1329 * t303 - 0.12000000000000000000e2 * t224 * t304; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[0] = t1219 + t1334; t1339 = t218 * t171; t1358 = t148 * t611; t1381 = t366 * t269; t1384 = t191 * t567; t1430 = 0.68806584362139917696e-2 * t36 * t187 * t528; t1466 = t709 * t121; t1469 = (-0.23550864197530864197e2 * t178 * t528 * t26 * sigma[0] + 0.15902263374485596708e4 * t246 * t534 * t357 - 0.23013031550068587107e4 * t246 * t542 * t247 * t545 + 0.17238225880201188843e4 * t246 / t10 / t1133 * t538 * t1139 - 0.154e3 / 0.81e2 * t29 * t183 * t549 + t1430) * t63 + 0.24e2 * t1169 * t201 * t569 - 0.18e2 * t568 * t371 * t289 - 0.18e2 * t1160 * t723 - t122 * (-0.84885802469135802470e-1 * t194 * t578 - 0.25807694707407407406e1 * t17 * t582 + 0.19867924916679844304e2 * t178 * t528 * t285 * sigma[0] - 0.54658172406143129427e1 * t534 * t591 * t37 + 0.45377766808989181870e1 * t542 * t1198 * t247 * t1200 - t1430) - t1152 * t201 - 0.3e1 * t558 * t382 - 0.3e1 * t265 * t743 - 0.3e1 * t711 * t289 - t368 * t594 - 0.3e1 * t1466 * t138; t1470 = 0.6e1 * t138 * t270 * t743 + 0.2e1 * t201 * t270 * t594 + 0.6e1 * t270 * t289 * t382 - 0.18e2 * t271 * t382 * t568 + 0.6e1 * t1155 * t371 + 0.6e1 * t1381 * t271 - 0.6e1 * t1384 * t569 + 0.12e2 * t561 * t726 + 0.6e1 * t561 * t729 + 0.6e1 * t714 * t572 + t1469; t1477 = 0.25000000000000000000e0 * t601 * t219 + 0.15000000000000000000e1 * t509 * t219 - 0.30000000000000000000e1 * t1329 * t1339 + 0.45000000000000000000e1 * t148 * t611 * t432 * t303 - 0.10143649237500000000e1 * t390 * t391 * t617 - 0.15000000000000000000e1 * t145 * t682 - 0.60000000000000000000e1 * t70 * t686 - 0.15000000000000000000e1 * t148 * t685 * t342 - 0.11834257443750000000e1 * t347 * t747 + 0.45000000000000000000e1 * t1358 * t1339 * t342 + 0.90000000000000000000e1 * t70 * t679 - 0.60000000000000000000e1 * t148 * t1092 * t218 * t612 - 0.30000000000000000000e1 * t70 * t682 - 0.17532233250000000000e0 * t96 * t1 * t3 * t205 + 0.30000000000000000000e1 * t224 * t433 + 0.15000000000000000000e1 * t70 * t835 - 0.50000000000000000000e0 * t148 * t399 * t674 - 0.16906082062500000000e0 * t176 * t177 * t1470 * t92 - 0.60000000000000000000e1 * t224 * t400; t1486 = t766 * t389; t1501 = t384 * t291; t1522 = t140 * t745; t1550 = t596 * t203; t1554 = 0.10900981308668235182e3 * t959 * t783 + 0.10900981308668235182e3 * t324 * t1501 + 0.53959999086813443433e3 * t406 * t822 * t783 * t140 + 0.17986666362271147811e3 * t73 * t74 * t642 * t203 - 0.88823043764301964500e1 * t73 * t231 * t208 + 0.20123602085115000000e1 * t86 * t163 * t775 + 0.10061801042557500000e1 * t86 * t87 * t65 * t1470 + 0.30185403127672500000e1 * t86 * t87 * t1522 + 0.20123602085115000000e1 * t86 * t163 * t783 + 0.40247204170230000000e1 * t86 * t163 * t779 - 0.67078673617050000000e0 * t86 * t53 * t408 + 0.29812743829800000000e0 * t86 * t125 * t214 - 0.67078673617050000000e0 * t86 * t53 * t428 + 0.11991110908180765208e3 * t73 * t11 * t796 + 0.39970369693935884025e2 * t73 * t97 * t412 + 0.30185403127672500000e1 * t86 * t87 * t1501 + 0.10061801042557500000e1 * t86 * t87 * t1550; t1566 = t10 * t65; t1601 = 0.29977777270451913019e2 * t73 * t74 * t80 * t1470 + 0.53959999086813443433e3 * t406 * t822 * t384 * t313 + 0.35973332724542295624e3 * t406 * t818 * t783 + 0.71946665449084591247e3 * t406 * t1566 * t823 + 0.26979999543406721717e3 * t406 * t407 * t1501 + 0.89933331811355739057e2 * t406 * t407 * t1550 + 0.11991110908180765208e3 * t406 * t96 * t75 * t408 + 0.54504906543341175909e2 * t75 * t745 + 0.10900981308668235182e3 * t823 + 0.10900981308668235182e3 * t214 * t291 + 0.18168302181113725303e2 * t159 * t1470 + 0.21801962617336470363e3 * t428 * t140 + 0.36336604362227450606e2 * t324 * t1550 + 0.10900981308668235182e3 * t324 * t1522 + 0.10900981308668235182e3 * t827 * t384 + 0.71946665449084591246e3 * t406 * t818 * t779 + 0.26979999543406721717e3 * t406 * t407 * t1522; t1622 = t9 * t745; t1630 = -0.30000000000000000000e1 * t145 * t686 + 0.10143649237500000000e1 * t390 * t391 * t613 - 0.10143649237500000000e1 * t390 * t759 * t304 + 0.15779009925000000000e1 * t1486 * t392 - 0.23668514887500000000e1 * t763 * t770 + 0.11834257443750000000e1 * t763 * t756 - 0.15000000000000000000e1 * t148 * t302 * t834 * t171 - 0.15000000000000000000e1 * t296 * t400 + 0.25000000000000000000e0 * t148 * t150 * (t1554 + t1601) + 0.75000000000000000000e0 * t296 * t433 + 0.75000000000000000000e0 * t145 * t835 + 0.45000000000000000000e1 * t145 * t679 - 0.15779009925000000000e1 * t767 * t386 + 0.16906082062500000000e0 * t390 * t391 * t675 + 0.50718246187500000000e0 * t390 * t759 * t343 + 0.23668514887500000000e1 * t763 * t760 + 0.50718246187500000000e0 * t390 * t1622 * t172 + 0.15000000000000000000e1 * t1225 * t218 + 0.15000000000000000000e1 * t506 * t432; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[0] = t1477 + t1630; t1682 = -0.10000000000000000000e1 * t148 * t399 * t834 - 0.10000000000000000000e1 * t148 * t302 * t986 * t171 - 0.52596699750000000000e0 * t767 * t470 - 0.50000000000000000000e0 * t148 * t931 * t342 + 0.15000000000000000000e1 * t148 * t611 * t500 * t303 + 0.20287298475000000000e1 * t390 * t391 * t679 - 0.13524865650000000000e1 * t390 * t391 * t686 - 0.67624328250000000000e0 * t390 * t391 * t682 - 0.31558019850000000000e1 * t763 * t910 - 0.13524865650000000000e1 * t390 * t759 * t400 + 0.10000000000000000000e1 * t224 * t501 - 0.20000000000000000000e1 * t224 * t477 - 0.50000000000000000000e0 * t296 * t477 + 0.50000000000000000000e0 * t145 * t987 - 0.20000000000000000000e1 * t70 * t932 - 0.40000000000000000000e1 * t70 * t924 + 0.60000000000000000000e1 * t1358 * t1339 * t432 + 0.60000000000000000000e1 * t70 * t921 + 0.30000000000000000000e1 * t145 * t921 - 0.20000000000000000000e1 * t145 * t924; t1693 = t468 * t291; t1698 = t203 * t745; t1701 = t896 * t140; t1719 = t382 * t382; t1735 = 0.93827160493827160495e-3 * t36 * t241; t1745 = t862 * t121; t1753 = t447 * t269; t1776 = 0.4e1 * t270 * t1719 - t122 * (-0.12732870370370370370e-1 * t456 * t277 + 0.49630182129629629625e-1 * t460 * t281 - 0.35546829519601890110e1 * t36 * t286 + 0.15792627682922502560e1 * t740 * sigma[0] - 0.17016662553370943201e1 * t698 * t1198 * t37 * t1200 + t1735) - t558 * t466 - 0.2e1 * t265 * t894 - 0.2e1 * t368 * t743 + 0.2e1 * t1155 * t451 - 0.2e1 * t1745 * t138 - t864 * t289 - 0.2e1 * t1466 * t201 - 0.4e1 * t711 * t382 + 0.2e1 * t1753 * t271 + (-0.38863580246913580247e3 * t693 * t438 + 0.72723765432098765433e3 * t699 * t12 * t855 - 0.64643347050754458162e3 * t246 / t10 / t249 / t238 * t33 * t35 * t247 * t1138 + 0.35372839506172839506e1 * t36 * t242 - t1735) * t63 + 0.4e1 * t561 * t881; t1810 = 0.24e2 * t1169 * t271 * t451 + 0.4e1 * t138 * t270 * t894 + 0.4e1 * t201 * t270 * t743 + 0.2e1 * t270 * t289 * t466 - 0.6e1 * t271 * t466 * t568 - 0.6e1 * t289 * t451 * t568 - 0.24e2 * t371 * t382 * t568 - 0.12e2 * t1160 * t874 + 0.8e1 * t1381 * t371 - 0.12e2 * t1384 * t723 + 0.8e1 * t561 * t877 + 0.8e1 * t714 * t726 + 0.4e1 * t714 * t729; t1811 = t1776 + t1810; t1835 = 0.71946665449084591244e3 * t406 * t822 * t408 * t384 + 0.13415734723410000000e1 * t86 * t163 * t949 + 0.36336604362227450606e2 * t324 * t1693 + 0.14534641744890980242e3 * t959 * t942 + 0.72673208724454901212e2 * t324 * t1698 + 0.72673208724454901212e2 * t324 * t1701 + 0.26831469446820000000e1 * t86 * t163 * t942 - 0.22359557872350000000e0 * t86 * t53 * t496 + 0.20123602085115000000e1 * t86 * t87 * t1698 + 0.10061801042557500000e1 * t86 * t87 * t1693 + 0.20123602085115000000e1 * t86 * t87 * t1701 + 0.10061801042557500000e1 * t86 * t87 * t65 * t1811 + 0.13415734723410000000e1 * t86 * t163 * t982 + 0.23982221816361530416e3 * t406 * t818 * t949 + 0.17986666362271147811e3 * t406 * t407 * t1698 + 0.17986666362271147811e3 * t406 * t822 * t480 * t291 + 0.47964443632723060831e3 * t406 * t1566 * t938 + 0.47964443632723060831e3 * t406 * t818 * t942; t1846 = t384 * t384; t1890 = 0.17986666362271147811e3 * t406 * t822 * t468 * t313 + 0.89933331811355739057e2 * t406 * t407 * t1693 + 0.17986666362271147811e3 * t406 * t407 * t1701 + 0.17986666362271147811e3 * t73 * t74 * t75 * t1846 + 0.17986666362271147811e3 * t73 * t74 * t313 * t480 + 0.39970369693935884027e2 * t73 * t97 * t481 + 0.36336604362227450606e2 * t75 * t896 + 0.72673208724454901212e2 * t938 - 0.22359557872350000000e0 * t86 * t53 * t480 + 0.20123602085115000000e1 * t86 * t87 * t1846 + 0.18168302181113725303e2 * t159 * t1811 + 0.72673208724454901212e2 * t496 * t140 + 0.14534641744890980242e3 * t214 * t384 + 0.36336604362227450606e2 * rho[0] * t291 * t480 + 0.36336604362227450606e2 * t827 * t468 + 0.72673208724454901212e2 * t324 * t1846 + 0.29977777270451913019e2 * t73 * t74 * t80 * t1811 + 0.79940739387871768050e2 * t73 * t11 * t953 + 0.13323456564645294675e2 * t73 * t97 * t485; t1920 = t9 * t896; t1939 = t432 * t432; t1947 = 0.33812164125000000000e0 * t390 * t391 * t835 + 0.67624328250000000000e0 * t390 * t759 * t433 + 0.33812164125000000000e0 * t390 * t1920 * t172 + 0.78895049625000000000e0 * t763 * t902 + 0.16906082062500000000e0 * t390 * t901 * t343 - 0.60000000000000000000e1 * t148 * t1092 * t476 * t303 - 0.78895049625000000000e0 * t347 * t898 - 0.16906082062500000000e0 * t176 * t177 * t1811 * t92 - 0.10000000000000000000e1 * t148 * t302 * t1939 - 0.10000000000000000000e1 * t1329 * t476 + 0.50000000000000000000e0 * t506 * t500; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[0] = t1682 + 0.15000000000000000000e1 * t148 * t920 * t342 + 0.25000000000000000000e0 * t148 * t150 * (t1835 + t1890) + 0.25000000000000000000e0 * t296 * t501 + 0.10000000000000000000e1 * t70 * t987 - 0.10000000000000000000e1 * t145 * t932 + 0.15779009925000000000e1 * t763 * t907 + 0.15779009925000000000e1 * t763 * t913 + 0.33812164125000000000e0 * t390 * t1622 * t219 + 0.10519339950000000000e1 * t1486 * t473 - 0.33812164125000000000e0 * t390 * t901 * t304 + t1947; t1976 = t9 * t1029; t1986 = 0.25000000000000000000e0 * t145 * t1077 + 0.50000000000000000000e0 * t70 * t1077 - 0.39447524812500000000e0 * t347 * t1031 - 0.10143649237500000000e1 * t390 * t391 * t932 - 0.10143649237500000000e1 * t390 * t901 * t400 + 0.30430947712500000000e1 * t390 * t391 * t921 - 0.20287298475000000000e1 * t390 * t391 * t924 - 0.15000000000000000000e1 * t148 * t399 * t986 + 0.50718246187500000000e0 * t390 * t901 * t433 + 0.50718246187500000000e0 * t390 * t1920 * t219 + 0.16906082062500000000e0 * t390 * t1976 * t172 + 0.11834257443750000000e1 * t763 * t1040 + 0.11834257443750000000e1 * t763 * t1034 - 0.23668514887500000000e1 * t763 * t1037; t2026 = t35 * t8; t2034 = t999 * t121; t2093 = -0.3e1 * t368 * t894 - 0.6e1 * t1160 * t1007 + 0.24e2 * t1169 * t1007 * t138 - 0.18e2 * t568 * t451 * t382 + 0.6e1 * t561 * t1010 - 0.18e2 * t568 * t1010 * t138 + 0.6e1 * t270 * t382 * t466 + 0.6e1 * t270 * t201 * t894 - t265 * t1027 + 0.2e1 * t270 * t1027 * t138 - t122 * (-0.81854166666666666664e-2 * t1015 * t126 + 0.31905117083333333332e-1 * t1019 * t135 + 0.5385883260545740925e-1 * t1022 * t888 - 0.35281402270358782312e0 * t891 + 0.63812484575141037000e0 * t851 * t1198 * t12 * t16 * sigma[0] * t9); t2094 = (-0.20362654320987654321e3 * t853 * t994 + 0.24241255144032921811e3 * t246 / t10 / t1125 * t33 * t2026 * t357 + 0.62833333333333333333e2 * t356 * t26) * t63 - t2034 * t138 - 0.3e1 * t1745 * t201 + 0.6e1 * t1753 * t371 - 0.3e1 * t864 * t382 + 0.6e1 * t1381 * t451 - 0.18e2 * t1384 * t874 + 0.12e2 * t714 * t877 - 0.3e1 * t711 * t466 + 0.6e1 * t714 * t881 + t2093; t2099 = t1029 * t140; t2104 = t384 * t468; t2107 = t203 * t896; t2136 = 0.36336604362227450606e2 * t324 * t2099 + 0.10900981308668235182e3 * t959 * t1055 + 0.10900981308668235182e3 * t324 * t2104 + 0.10900981308668235182e3 * t324 * t2107 + 0.29977777270451913019e2 * t73 * t74 * t80 * t2094 + 0.53959999086813443434e3 * t406 * t822 * t1055 * t140 + 0.18168302181113725303e2 * t75 * t1029 + 0.39970369693935884025e2 * t73 * t11 * t1059 + 0.10061801042557500000e1 * t86 * t87 * t65 * t2094 + 0.10061801042557500000e1 * t86 * t87 * t2099 + 0.20123602085115000000e1 * t86 * t163 * t1055 + 0.67078673617050000000e0 * t86 * t163 * t1072; t2163 = rho[0] * t480; t2174 = 0.17986666362271147811e3 * t73 * t74 * t140 * t1050 + 0.23982221816361530415e3 * t73 * t11 * t1051 + 0.35973332724542295623e3 * t406 * t818 * t1055 + 0.89933331811355739057e2 * t406 * t407 * t2099 + 0.26979999543406721717e3 * t406 * t407 * t2107 + 0.26979999543406721717e3 * t406 * t407 * t2104 + 0.53959999086813443433e3 * t406 * t822 * t480 * t384 + 0.36336604362227450606e2 * t1050 + 0.10900981308668235182e3 * t214 * t468 + 0.10900981308668235182e3 * t2163 * t384 + 0.30185403127672500000e1 * t86 * t87 * t2107 + 0.30185403127672500000e1 * t86 * t87 * t2104 + 0.18168302181113725303e2 * t159 * t2094; t2181 = -0.10143649237500000000e1 * t390 * t759 * t477 + 0.45000000000000000000e1 * t1358 * t218 * t500 * t171 - 0.15000000000000000000e1 * t148 * t685 * t500 + 0.50718246187500000000e0 * t390 * t391 * t987 + 0.50718246187500000000e0 * t390 * t759 * t501 - 0.60000000000000000000e1 * t148 * t1092 * t1043 * t171 - 0.15000000000000000000e1 * t145 * t1047 + 0.30000000000000000000e1 * t70 * t1044 - 0.30000000000000000000e1 * t70 * t1047 - 0.50000000000000000000e0 * t148 * t302 * t1076 * t171 + 0.45000000000000000000e1 * t148 * t920 * t432 - 0.16906082062500000000e0 * t176 * t177 * t2094 * t92 + 0.25000000000000000000e0 * t148 * t150 * (t2136 + t2174) + 0.15000000000000000000e1 * t145 * t1044; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[0] = t1986 + t2181; t2206 = t451 * t451; t2212 = t466 * t466; t2238 = (-0.90904706790123456792e2 * t246 / t10 / t540 * t33 * t2026 * t438 + 0.43634259259259259259e2 * t993 * t183 * t26) * t63 - 0.4e1 * t2034 * t201 + 0.12e2 * t1753 * t451 - 0.6e1 * t864 * t466 - 0.24e2 * t1384 * t1007 + 0.24e2 * t714 * t1010 - 0.4e1 * t368 * t1027 + 0.24e2 * t1169 * t2206 - 0.36e2 * t568 * t451 * t466 + 0.6e1 * t270 * t2212 + 0.8e1 * t270 * t201 * t1027 - t122 * (-0.15347656250000000000e-1 * t48 / t49 / t247 * t59 + 0.59822094531249999998e-1 * t17 / t247 * t198 + 0.10098531113523264236e0 * t36 * t1018 * t463 + 0.18900751216263633381e-1 * t459 * t436 * t591 - 0.23929681715677888874e0 * t991 * t1198 * t1200); t2261 = t476 * t476; t2268 = t500 * t500; t2275 = t480 * t480; t2283 = t468 * t468; t2288 = t203 * t1029; t2314 = 0.17986666362271147811e3 * t73 * t74 * t2275 + 0.10791999817362688687e4 * t406 * t822 * t480 * t468 + 0.26979999543406721717e3 * t73 * t74 * t75 * t2283 + 0.35973332724542295623e3 * t406 * t407 * t2288 + 0.29977777270451913019e2 * t73 * t74 * t80 * t2238 + 0.21801962617336470364e3 * t2163 * t468 + 0.10900981308668235182e3 * t324 * t2283 + 0.14534641744890980243e3 * t324 * t2288 + 0.18168302181113725303e2 * t159 * t2238 + 0.30185403127672500000e1 * t86 * t87 * t2283 + 0.40247204170230000000e1 * t86 * t87 * t2288 + 0.10061801042557500000e1 * t86 * t87 * t65 * t2238; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[0] = -0.16906082062500000000e0 * t176 * t177 * t2238 * t92 + 0.67624328250000000000e0 * t390 * t1976 * t219 - 0.20287298475000000000e1 * t390 * t901 * t477 + 0.10143649237500000000e1 * t390 * t901 * t501 + 0.40574596950000000000e1 * t390 * t391 * t1044 - 0.40574596950000000000e1 * t390 * t391 * t1047 + 0.67624328250000000000e0 * t390 * t391 * t1077 - 0.60000000000000000000e1 * t148 * t1092 * t2261 + 0.90000000000000000000e1 * t148 * t920 * t500 - 0.15000000000000000000e1 * t148 * t302 * t2268 - 0.20000000000000000000e1 * t148 * t399 * t1076 + 0.25000000000000000000e0 * t148 * t150 * t2314; #ifndef XC_DONT_COMPILE_MXC if(order < 5) return; #endif #endif #endif #endif #endif } static inline void func_ferr(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *)) { if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC)) zk[0] = -0.0e0; #ifndef XC_DONT_COMPILE_VXC if(order < 1) return; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[0] = 0.0e0; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[0] = 0.0e0; #ifndef XC_DONT_COMPILE_FXC if(order < 2) return; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[0] = 0.0e0; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[0] = 0.0e0; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[0] = 0.0e0; #ifndef XC_DONT_COMPILE_KXC if(order < 3) return; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[0] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[0] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[0] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[0] = 0.0e0; #ifndef XC_DONT_COMPILE_LXC if(order < 4) return; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[0] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[0] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[0] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[0] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[0] = 0.0e0; #ifndef XC_DONT_COMPILE_MXC if(order < 5) return; #endif #endif #endif #endif #endif } static inline void func_pol(const xc_func_type *p, int order, const double *rho, const double *sigma, double *zk, GGA_OUT_PARAMS_NO_EXC(double *)) { #ifndef XC_DONT_COMPILE_EXC double t1, t2, t3, t4, t5, t7, t8, t9; double t10, t12, t13, t14, t15, t16, t17, t18; double t19, t20, t21, t22, t23, t24, t25, t26; double t28, t30, t32, t35, t36, t40, t42, t43; double t44, t45, t46, t48, t51, t52, t54, t55; double t57, t58, t61, t65, t66, t68, t69, t72; double t73, t74, t75, t76, t78, t80, t82, t85; double t86, t90, t91, t92, t94, t97, t98, t99; double t101, t102, t105, t109, t110, t112, t113, t117; double t120, t121, t122, t123, t125, t126, t128, t130; double t131, t132, t133; #ifndef XC_DONT_COMPILE_VXC double t135, t136, t138, t139, t141, t142, t145, t146; double t150, t151, t152, t153, t154, t156, t157, t161; double t163, t168, t169, t171, t172, t173, t175, t182; double t183, t184, t188, t190, t194, t195, t196, t199; double t200, t201, t203, t204, t206, t210, t211, t215; double t216, t219, t223, t224, t225, t226, t228, t229; double t233, t235, t240, t241, t243, t244, t245, t247; double t254, t255, t256, t260, t262, t266, t267, t268; double t271, t273, t275, t277, t278, t282, t283, t284; double t293, t294, t296, t304, t306, t307, t308, t309; double t312, t313, t314, t317, t318, t321, t322, t325; double t326, t329, t338, t339, t341, t349, t351, t352; double t353, t354, t357, t364, t365; #ifndef XC_DONT_COMPILE_FXC double t368, t369, t371, t373, t374, t376, t378, t380; double t381, t382, t384, t385, t386, t393, t395, t398; double t402, t406, t407, t408, t409, t413, t415, t416; double t420, t421, t422, t423, t424, t425, t426, t431; double t436, t437, t439, t443, t444, t445, t449, t459; double t463, t465, t469, t471, t474, t475, t476, t480; double t481, t482, t483, t487, t488, t492, t500, t501; double t507, t508, t510, t511, t518, t522, t523, t524; double t527, t528, t531, t535, t538, t539, t540, t543; double t550, t551, t557, t558, t565, t567, t570, t574; double t578, t579, t580, t581, t585, t587, t588, t592; double t593, t594, t595, t596, t601, t606, t607, t609; double t613, t614, t615, t619, t629, t633, t635, t639; double t641, t644, t647, t648, t651, t653, t655, t657; double t663, t664, t667, t669, t670, t673, t674, t675; double t676, t677, t680, t683, t684, t685, t688, t692; double t693, t694, t695, t703, t704, t706, t709, t719; double t723, t725, t726, t727, t728, t731, t732, t733; double t737, t740, t743, t744, t747, t748, t749, t750; double t751, t754, t757, t758, t759, t762, t769, t778; double t783, t784, t788, t791, t792, t793, t794, t797; double t798, t799, t803, t806, t809, t810, t813, t814; double t821, t822, t825, t828, t829, t832, t833, t838; double t841, t844, t845, t852, t853, t858, t859, t862; double t865, t866, t867, t870, t874, t875, t876, t877; double t885, t886, t888, t891, t901, t905, t907, t908; double t909, t910, t913, t914, t919, t922, t925, t926; double t929, t932, t933, t936, t955, t956, t960, t961; double t962, t963, t964, t965, t966, t967, t968, t969; double t970, t971, t972, t975, t976, t977, t980, t981; double t982, t988, t989, t993, t997, t1002, t1010, t1012; double t1013, t1014, t1015, t1018, t1019, t1022, t1023, t1026; double t1027, t1028, t1031, t1034, t1037, t1038, t1045, t1046; double t1053, t1054, t1057, t1058, t1059, t1060, t1061, t1062; double t1063, t1066, t1067, t1070, t1071, t1074, t1077, t1078; double t1079, t1080, t1081, t1084, t1087, t1090, t1091, t1094; double t1095, t1096, t1097, t1098, t1099, t1100, t1101, t1104; double t1105, t1106, t1109, t1110, t1111, t1117, t1118, t1122; double t1126, t1131, t1139, t1141, t1142, t1143, t1144, t1147; double t1148, t1151, t1152, t1155, t1158, t1161, t1176, t1177; #ifndef XC_DONT_COMPILE_KXC double t1180, t1182, t1184, t1186, t1188, t1190, t1192, t1195; double t1196, t1203, t1204, t1207, t1208, t1212, t1213, t1216; double t1223, t1227, t1231, t1238, t1239, t1243, t1248, t1249; double t1253, t1254, t1258, t1259, t1260, t1262, t1264, t1268; double t1273, t1274, t1276, t1279, t1284, t1285, t1286, t1287; double t1290, t1294, t1307, t1309, t1312, t1314, t1318, t1320; double t1323, t1326, t1328, t1331, t1332, t1334, t1335, t1337; double t1338, t1340, t1341, t1342, t1344, t1346, t1347, t1348; double t1351, t1352, t1353, t1354, t1355, t1359, t1362, t1363; double t1365, t1366, t1370, t1373, t1390, t1391, t1394, t1397; double t1401, t1406, t1407, t1410, t1419, t1420, t1421, t1424; double t1428, t1429, t1432, t1433, t1441, t1446, t1449, t1451; double t1453, t1466, t1467, t1470, t1473, t1477, t1478, t1480; double t1484, t1485, t1489, t1491, t1492, t1494, t1497, t1499; double t1500, t1503, t1507, t1510, t1511, t1514, t1515, t1517; double t1518, t1521, t1522, t1523, t1524, t1527, t1529, t1534; double t1537, t1539, t1540, t1543, t1544, t1547, t1550, t1554; double t1557, t1558, t1561, t1564, t1575, t1576, t1579, t1582; double t1584, t1586, t1589, t1590, t1591, t1596, t1608, t1611; double t1612, t1615, t1619, t1623, t1629, t1632, t1635, t1639; double t1640, t1641, t1644, t1645, t1648, t1649, t1652, t1653; double t1661, t1665, t1666, t1669, t1672, t1674, t1677, t1680; double t1691, t1694, t1699, t1703, t1707, t1714, t1715, t1719; double t1724, t1725, t1729, t1730, t1734, t1735, t1736, t1738; double t1740, t1744, t1749, t1750, t1752, t1755, t1760, t1761; double t1762, t1763, t1766, t1770, t1783, t1785, t1788, t1790; double t1794, t1796, t1802, t1803, t1808, t1813, t1820, t1824; double t1826, t1830, t1838, t1839, t1842, t1843, t1846, t1851; double t1852, t1854, t1856, t1859, t1863, t1867, t1870, t1872; double t1873, t1882, t1883, t1885, t1888, t1897, t1900, t1903; double t1913, t1917, t1920, t1922, t1923, t1924, t1925, t1928; double t1930, t1933, t1935, t1936, t1943, t1945, t1948, t1949; double t1952, t1955, t1958, t1960, t1962, t1963, t1968, t1973; double t1976, t1991, t1992, t1995, t1996, t1997, t1998, t2001; double t2006, t2009, t2010, t2013, t2014, t2015, t2018, t2019; double t2022, t2023, t2056, t2057, t2058, t2061, t2063, t2064; double t2066, t2067, t2068, t2069, t2072, t2075, t2076, t2077; double t2078, t2085, t2086, t2087, t2090, t2092, t2097, t2098; double t2101, t2102, t2105, t2106, t2107, t2110, t2111, t2112; double t2114, t2116, t2117, t2120, t2121, t2124, t2125, t2126; double t2129, t2130, t2131, t2134, t2135, t2136, t2139, t2142; double t2143, t2146, t2147, t2150, t2151, t2154, t2155, t2158; double t2162, t2168, t2171, t2172, t2175, t2176, t2179, t2181; double t2182, t2186, t2189, t2192, t2195, t2197, t2198, t2199; double t2202, t2203, t2214, t2215, t2220, t2221, t2224, t2227; double t2228, t2230, t2233, t2234, t2237, t2238, t2241, t2243; double t2247, t2248, t2251, t2252, t2253, t2258, t2259, t2260; double t2269, t2276, t2279, t2280, t2283, t2284, t2285, t2288; double t2291, t2294, t2300, t2301, t2304, t2307, t2308, t2311; double t2312, t2331, t2332, t2337, t2344, t2348, t2352, t2355; double t2358, t2361, t2364, t2365, t2368, t2371, t2372, t2375; double t2376, t2379, t2380, t2383, t2384, t2389, t2390, t2393; double t2394, t2397, t2398, t2401, t2410, t2412, t2415, t2420; double t2422, t2424, t2432, t2434, t2436, t2447, t2450, t2454; double t2456, t2459, t2460, t2464, t2466, t2468, t2469, t2473; double t2474, t2477, t2480, t2481, t2484, t2485, t2504, t2505; double t2509, t2512, t2514, t2515, t2516, t2517, t2520, t2521; double t2522, t2525, t2528, t2531, t2538, t2539, t2540, t2543; double t2544, t2549, t2554, t2556, t2558, t2559, t2561, t2562; double t2563, t2568, t2569, t2576, t2579, t2584, t2587, t2588; double t2591, t2594, t2596, t2599, t2602, t2605, t2611, t2614; double t2617, t2620, t2628, t2629, t2632, t2635, t2636, t2639; double t2640, t2651, t2652, t2655, t2656, t2659, t2660, t2667; double t2668, t2671, t2672, t2681, t2682, t2686, t2689, t2691; double t2692, t2701, t2702, t2704, t2707, t2716, t2719, t2722; double t2732, t2736, t2739, t2741, t2742, t2743, t2744, t2747; double t2754, t2766, t2767, t2770, t2771, t2772, t2775, t2779; double t2782, t2783, t2786, t2787, t2796, t2797, t2800, t2801; double t2804, t2806, t2807, t2810, t2815, t2818, t2827, t2836; double t2837, t2840, t2843, t2844, t2855, t2856, t2859, t2862; double t2863, t2864, t2867, t2868, t2871, t2872, t2899, t2900; double t2907, t2908, t2909, t2912, t2917, t2920, t2925, t2928; double t2929, t2930, t2931, t2934, t2935, t2938, t2939, t2942; double t2943, t2946, t2947, t2950, t2956, t2959, t2963, t2965; double t2969, t2970, t2973, t2975, t2977, t2978, t2979, t2987; double t2989, t2991, t2997, t2998, t3000, t3010, t3013, t3017; double t3030, t3033, t3035, t3036, t3037, t3038, t3043, t3047; double t3048, t3049, t3050, t3053, t3054, t3057, t3058, t3059; double t3062, t3065, t3068, t3069, t3072, t3073, t3074, t3075; double t3078, t3080, t3081, t3082, t3083, t3086, t3087, t3090; double t3093, t3096, t3099, t3100, t3103, t3106, t3109, t3124; double t3129, t3142, t3143, t3146, t3147, t3156, t3171, t3172; double t3173, t3176, t3179, t3180, t3181, t3182, t3185, t3186; double t3187, t3190, t3191, t3192, t3195, t3196, t3199, t3200; double t3201, t3206, t3209, t3212, t3215, t3219, t3220, t3221; double t3224, t3225, t3228, t3229, t3232, t3233, t3236, t3239; double t3243, t3245, t3250, t3252, t3253, t3256, t3257, t3258; double t3259, t3260, t3261, t3262, t3265, t3268, t3271, t3272; double t3275, t3276, t3279, t3280, t3281, t3282, t3285, t3286; double t3289, t3290, t3291, t3294, t3295, t3314, t3315, t3318; double t3321, t3322, t3325, t3327, t3328, t3329, t3330, t3333; double t3336, t3337, t3342, t3343, t3344, t3349, t3350, t3356; double t3357, t3360, t3363, t3364, t3367, t3370, t3374, t3375; double t3379, t3380, t3381, t3386, t3389, t3397, t3399, t3401; double t3402, t3405, t3406, t3409, t3412, t3413, t3414, t3419; double t3420, t3423, t3424, t3425, t3426, t3429, t3431, t3432; double t3433, t3434, t3437, t3440, t3443, t3444, t3445, t3448; double t3451, t3454, t3458, t3459, t3460, t3461, t3464, t3467; double t3468, t3483, t3484, t3489, t3490, t3494, t3497, t3502; double t3505, t3506, t3509, t3512, t3513, t3516, t3517, t3520; double t3521, t3526, t3527, t3528, t3531, t3534, t3537, t3540; double t3543, t3546, t3553, t3556, t3559, t3560, t3563, t3566; double t3567, t3582, t3583, t3586, t3587, t3590, t3593, t3594; double t3595, t3596, t3597, t3600, t3601, t3602, t3607, t3608; double t3613, t3614, t3617, t3618, t3621, t3624, t3627, t3628; double t3631, t3632, t3635, t3636, t3639, t3642, t3643, t3646; double t3649, t3652, t3655, t3658, t3661, t3664, t3665, t3668; double t3669, t3672, t3673, t3674, t3677, t3682, t3691, t3698; double t3699, t3706, t3709, t3710, t3711, t3714, t3717, t3721; double t3722, t3723, t3724, t3727, t3728, t3731, t3732, t3735; double t3736, t3739, t3742, t3745, t3748, t3749, t3752, t3753; double t3756, t3759, t3760, t3763, t3764, t3767, t3768, t3771; double t3774, t3778, t3779, t3780, t3783, t3795, t3797, t3799; double t3805, t3806, t3808, t3818, t3821, t3825, t3838, t3841; double t3843, t3844, t3845, t3846, t3849, t3852, t3855, t3858; double t3865, t3868, t3869, t3872, t3873, t3874, t3877, t3878; double t3881, t3884, t3887, t3890, t3891, t3894, t3895, t3918; double t3931, t3938, t3941, t3944, t3959, t3960, t3961, t3964; double t3967, t3968, t3969, t3970, t3972, t3973, t3974, t3975; double t3976, t3979, t3980, t3981, t3984, t3985, t3988, t3989; double t3992, t3993, t3994, t3997, t4000, t4004, t4005, t4008; double t4013, t4021, t4024, t4028, t4033, t4044, t4046, t4047; double t4048, t4049, t4052, t4053, t4056, t4057, t4060, t4061; double t4064, t4065, t4068, t4071, t4078, t4079, t4082, t4085; double t4088, t4089, t4092, t4095, t4098, t4117, t4118, t4121; double t4122, t4123, t4124, t4127, t4128, t4129, t4132, t4133; double t4136, t4137, t4140, t4141, t4144, t4145, t4148, t4149; double t4152, t4155, t4156, t4159, t4162, t4163, t4166, t4169; double t4172, t4175, t4176, t4177, t4180, t4181, t4184, t4185; double t4188, t4195, t4202, t4203, t4206, t4207, t4208, t4211; double t4212, t4215, t4216, t4219, t4222, t4223, t4226, t4227; double t4230, t4231, t4232, t4235, t4238, t4239, t4242, t4243; double t4246, t4249, t4252, t4253, t4256, t4259, t4260, t4261; double t4264, t4267, t4270, t4277, t4284, t4285, t4288, t4290; double t4291, t4292, t4293, t4294, t4297, t4298, t4299, t4302; double t4303, t4306, t4307, t4310, t4311, t4312, t4315, t4318; double t4322, t4323, t4326, t4331, t4339, t4342, t4346, t4351; double t4362, t4364, t4365, t4366, t4367, t4370, t4371, t4374; double t4375, t4378, t4379, t4382, t4383, t4386, t4389, t4392; double t4394, t4401, t4403, t4406, t4407, t4410, t4413, t4432; double t4433; #ifndef XC_DONT_COMPILE_LXC double t4436, t4437, t4438, t4442, t4452, t4457, t4458, t4459; double t4465, t4478, t4485, t4495, t4496, t4504, t4514, t4518; double t4522, t4524, t4530, t4535, t4539, t4544, t4547, t4550; double t4555, t4564, t4565, t4571, t4594, t4601, t4605, t4628; double t4632, t4636, t4638, t4642, t4643, t4645, t4647, t4652; double t4654, t4660, t4661, t4667, t4669, t4673, t4681, t4685; double t4687, t4692, t4693, t4695, t4699, t4703, t4704, t4708; double t4710, t4718, t4723, t4733, t4735, t4740, t4742, t4743; double t4745, t4747, t4751, t4756, t4758, t4765, t4774, t4779; double t4780, t4781, t4785, t4793, t4795, t4813, t4821, t4822; double t4831, t4834, t4836, t4839, t4843, t4848, t4851, t4865; double t4874, t4877, t4884, t4891, t4909, t4916, t4917, t4919; double t4923, t4924, t4926, t4928, t4944, t4946, t4947, t4948; double t4949, t4953, t4956, t4961, t4963, t4964, t4967, t4974; double t4980, t4981, t4982, t4984, t4988, t4991, t5024, t5027; double t5038, t5039, t5040, t5044, t5045, t5046, t5048, t5054; double t5055, t5056, t5057, t5058, t5061, t5062, t5064, t5067; double t5068, t5069, t5070, t5074, t5075, t5076, t5078, t5086; double t5098, t5106, t5108, t5110, t5114, t5118, t5125, t5132; double t5136, t5168, t5172, t5179, t5181, t5187, t5189, t5192; double t5195, t5197, t5202, t5214, t5232, t5234, t5241, t5243; double t5245, t5249, t5255, t5264, t5276, t5282, t5285, t5289; double t5294, t5297, t5298, t5309, t5315, t5324, t5328, t5330; double t5343, t5356, t5357, t5359, t5363, t5367, t5370, t5374; double t5385, t5400, t5405, t5413, t5415, t5451, t5452, t5459; double t5462, t5469, t5470, t5480, t5487, t5490, t5496, t5501; double t5502, t5504, t5508, t5517, t5519, t5537, t5539, t5547; double t5559, t5564, t5570, t5577, t5583, t5602, t5604, t5609; double t5614, t5619, t5649, t5661, t5664, t5678, t5691, t5697; double t5699, t5715, t5720, t5728, t5731, t5755, t5756, t5762; double t5779, t5781, t5788, t5802, t5807, t5812, t5825, t5832; double t5842, t5843, t5851, t5861, t5865, t5869, t5871, t5877; double t5882, t5886, t5891, t5894, t5897, t5902, t5911, t5912; double t5918, t5941, t5948, t5952, t5975, t5988, t5994, t6026; double t6060, t6088, t6094, t6096, t6097, t6102, t6110, t6112; double t6114, t6116, t6120, t6131, t6140, t6142, t6146, t6151; double t6187, t6191, t6193, t6197, t6198, t6200, t6202, t6204; double t6208, t6215, t6216, t6218, t6220, t6221, t6227, t6235; double t6242, t6250, t6257, t6259, t6263, t6265, t6266, t6270; double t6274, t6278, t6282, t6292, t6315, t6318, t6343, t6352; double t6387, t6389, t6390, t6393, t6396, t6398, t6402, t6405; double t6414, t6418, t6422, t6425, t6430, t6435, t6440, t6443; double t6446, t6450, t6460, t6463, t6465, t6469, t6490, t6493; double t6496, t6501, t6519, t6522, t6530, t6532, t6535, t6550; double t6574, t6578, t6601, t6608, t6619, t6621, t6623, t6625; double t6628, t6630, t6639, t6644, t6648, t6650, t6655, t6658; double t6659, t6661, t6667, t6670, t6718, t6728, t6745, t6758; double t6762, t6766, t6768, t6773, t6778, t6786, t6787, t6789; double t6800, t6809, t6815, t6823, t6828, t6840, t6841, t6843; double t6845, t6847, t6854, t6860, t6862, t6864, t6866, t6871; double t6879, t6884, t6885, t6887, t6889, t6894, t6896, t6898; double t6900, t6905, t6926, t6936, t6940, t6943, t6957, t6964; double t6980, t6982, t6987, t6989, t6991, t6997, t6999, t7001; double t7009, t7013, t7015, t7017, t7024, t7028, t7033, t7038; double t7042, t7046, t7050, t7072, t7074, t7076, t7080, t7086; double t7088, t7090, t7096, t7097, t7100, t7103, t7113, t7120; double t7131, t7133, t7138, t7139, t7144, t7155, t7160, t7163; double t7167, t7170, t7180, t7187, t7217, t7218, t7244, t7252; double t7255, t7267, t7283, t7287, t7295, t7296, t7299, t7306; double t7310, t7312, t7316, t7317, t7326, t7334, t7336, t7345; double t7354, t7357, t7361, t7363, t7372, t7377, t7388, t7395; double t7405, t7409, t7415, t7416, t7421, t7423, t7424, t7440; double t7444, t7447, t7449, t7450, t7483, t7490, t7492, t7509; double t7511, t7523, t7533, t7535, t7537, t7546, t7554, t7558; double t7561, t7565, t7569, t7573, t7576, t7580, t7591, t7616; double t7620, t7631, t7638, t7645, t7655, t7656, t7658, t7661; double t7665, t7667, t7673, t7688, t7698, t7700, t7702, t7706; double t7708, t7709, t7710, t7720, t7728, t7743, t7756, t7759; double t7762, t7765, t7767, t7769, t7772, t7779, t7782, t7783; double t7791, t7793, t7797, t7800, t7803, t7807, t7811, t7815; double t7819, t7830, t7855, t7860, t7871, t7889, t7890, t7905; double t7907, t7919, t7923, t7927, t7928, t7936, t7939, t7947; double t7948, t7957, t7971, t7980, t7988, t7992, t8000, t8002; double t8014, t8016, t8017, t8033, t8043, t8045, t8046, t8057; double t8058, t8070, t8076, t8086, t8093, t8099, t8114, t8120; double t8128, t8133, t8138, t8145, t8154, t8174, t8176, t8182; double t8192, t8194, t8196, t8198, t8200, t8201, t8216, t8220; double t8222, t8224, t8227, t8237, t8244, t8245, t8253, t8265; double t8268, t8270, t8275, t8280, t8286, t8303, t8305, t8312; double t8319, t8324, t8336, t8354, t8359, t8368, t8370, t8372; double t8376, t8384, t8390, t8397, t8401, t8406, t8423, t8436; double t8461, t8469, t8476, t8481, t8484, t8485, t8489, t8492; double t8493, t8508, t8532, t8539, t8566, t8580, t8585, t8592; double t8602, t8610, t8613, t8616, t8620, t8624, t8628, t8631; double t8635, t8639, t8650, t8675, t8680, t8682, t8694, t8696; double t8698, t8700, t8702, t8707, t8720, t8730, t8732, t8736; double t8743, t8760, t8787, t8791, t8794, t8804, t8817, t8819; double t8821, t8823, t8827, t8829, t8833, t8835, t8837, t8839; double t8841, t8856, t8858, t8881, t8886, t8890, t8894, t8896; double t8903, t8927, t8937, t8950, t8952, t8954, t8961, t8973; double t8980, t8984, t8995, t8997, t8999, t9009, t9013, t9017; double t9025, t9028, t9029, t9033, t9036, t9040, t9071, t9076; double t9083, t9091, t9109, t9115, t9126, t9142, t9144, t9149; double t9165, t9167, t9169, t9170, t9172, t9174, t9190, t9200; double t9202, t9220, t9233, t9238, t9243, t9252, t9261, t9263; double t9310, t9352, t9379, t9383, t9387, t9410, t9413, t9453; double t9460, t9463, t9466, t9503, t9550, t9565, t9570, t9573; double t9575, t9576, t9581, t9585, t9588, t9592, t9595, t9603; double t9612, t9618, t9622, t9625, t9628, t9631, t9634, t9638; double t9642, t9646, t9649, t9651, t9654, t9677, t9683, t9687; double t9706, t9708, t9712, t9716, t9719, t9725, t9731, t9737; double t9742, t9747, t9768, t9793, t9820, t9829, t9833, t9881; double t9917, t9928, t9973, t10017, t10077, t10118, t10165, t10173; double t10174, t10175, t10180, t10182, t10184, t10186, t10190, t10194; double t10198, t10203, t10205, t10226, t10230, t10238, t10254, t10258; double t10265, t10273, t10283, t10285, t10286, t10288, t10291, t10294; double t10304, t10307, t10315, t10317, t10319, t10321, t10325, t10341; double t10346, t10350, t10366, t10370, t10372, t10373, t10377, t10384; double t10400, t10401, t10426, t10437, t10445, t10449, t10450, t10460; double t10465, t10469, t10477, t10482, t10511, t10514, t10520, t10548; double t10551, t10585, t10587, t10592, t10594, t10597, t10601, t10605; double t10609, t10610, t10623, t10638, t10652, t10653, t10655, t10662; double t10664, t10671, t10682, t10698, t10700, t10702, t10722, t10724; double t10728, t10735, t10739, t10741, t10743, t10745, t10746, t10751; double t10753, t10755, t10756, t10785, t10788, t10791, t10794, t10797; double t10802, t10805, t10820, t10835, t10836, t10840, t10843, t10844; double t10847, t10848, t10851, t10854, t10857, t10860, t10890, t10891; double t10894, t10897, t10898, t10901, t10902, t10906, t10910, t10913; double t10917, t10921, t10932, t10933, t10936, t10937, t10940, t10944; double t10947, t10950, t10951, t10954, t10957, t10958, t10962, t10978; double t10981, t10982, t10985, t10986, t10989, t10992, t11005, t11012; double t11017, t11018, t11021, t11051, t11082, t11089, t11096, t11100; double t11102, t11109, t11114, t11133, t11134, t11139, t11156, t11157; double t11159, t11161, t11170, t11180, t11192, t11194, t11202, t11210; double t11229, t11231, t11238, t11252, t11255, t11273, t11275, t11285; double t11287, t11290, t11292, t11294, t11299, t11322, t11323, t11328; double t11329, t11338, t11339, t11341, t11348, t11355, t11357, t11382; double t11383, t11400, t11406, t11408, t11418, t11426, t11436, t11440; double t11445, t11464, t11465, t11469, t11471, t11477, t11480, t11481; double t11485, t11489, t11493, t11496, t11501, t11511, t11517, t11521; double t11528, t11545, t11560, t11561, t11562, t11563, t11564, t11567; double t11570, t11571, t11574, t11579, t11591, t11595, t11597, t11599; double t11610, t11612, t11613, t11619, t11634, t11639, t11641, t11645; double t11655, t11670, t11672, t11673, t11686, t11694, t11701, t11703; double t11704, t11708, t11711, t11716, t11728, t11730, t11732, t11736; double t11737, t11740, t11741, t11744, t11747, t11751, t11755, t11782; double t11786, t11789, t11794, t11796, t11800, t11807, t11809, t11813; double t11815, t11817, t11818, t11824, t11834, t11836, t11838, t11842; double t11843, t11847, t11852, t11853, t11867, t11869, t11873, t11878; double t11881, t11894, t11897, t11900, t11901, t11904, t11905, t11908; double t11909, t11915, t11918, t11923, t11926, t11945, t11959, t11966; double t11969, t11974, t11987, t11994, t11998, t12000, t12005, t12010; double t12012, t12018, t12023, t12025, t12057, t12067, t12069, t12078; double t12083, t12086, t12094, t12095, t12099, t12103, t12111, t12126; double t12137, t12165, t12167, t12169, t12184, t12198, t12213, t12223; double t12229, t12260, t12282, t12286, t12316, t12336, t12359, t12362; double t12371, t12379, t12386, t12390, t12396, t12403, t12408, t12410; double t12414, t12422, t12440, t12442, t12447, t12448, t12476, t12501; double t12532, t12533, t12536, t12541, t12551, t12559, t12575, t12576; double t12582, t12584, t12607, t12639, t12646, t12671, t12678, t12695; double t12698, t12700, t12702, t12704, t12705, t12707, t12712, t12736; double t12749, t12751, t12764, t12785, t12812, t12815, t12823, t12829; double t12843, t12851, t12855, t12861, t12866, t12870, t12876, t12877; double t12880, t12886, t12889, t12902, t12907, t12916, t12920, t12933; double t12934, t12937, t12938, t12940, t12943, t12947, t12950, t12952; double t12955, t12974, t12977, t12998, t13003, t13030, t13038, t13042; double t13047, t13049, t13051, t13053, t13055, t13057, t13061, t13079; double t13087, t13091, t13112, t13120, t13145, t13152, t13159, t13163; double t13165, t13175, t13190, t13216, t13227, t13229, t13233, t13235; double t13237, t13239, t13245, t13247, t13249, t13253, t13257, t13267; double t13271, t13273, t13275, t13277, t13279, t13281, t13284, t13289; double t13290, t13296, t13301, t13308, t13309, t13313, t13317, t13320; double t13323, t13324, t13327, t13328, t13333, t13336, t13339, t13376; double t13382, t13384, t13393, t13402, t13404, t13406, t13410, t13421; double t13429, t13462, t13469, t13488, t13490, t13495, t13523, t13527; double t13534, t13538, t13540, t13542, t13547, t13552, t13576, t13577; double t13586, t13595, t13597, t13599, t13605, t13624, t13625, t13628; double t13629, t13632, t13635, t13639, t13643, t13670, t13674, t13694; double t13720, t13747, t13754, t13759, t13767, t13780, t13801, t13810; double t13812, t13820, t13838, t13861, t13897, t13939, t13982, t13997; double t14023, t14027, t14030, t14034, t14037, t14040, t14048, t14063; double t14075, t14078, t14094, t14098, t14119, t14152, t14198, t14247; double t14281, t14284, t14332, t14336, t14339, t14360, t14369, t14396; double t14398, t14434, t14438, t14441, t14442, t14448, t14451, t14454; double t14457, t14458, t14473, t14476, t14477, t14480, t14490, t14493; double t14494, t14498, t14501, t14505, t14514, t14516, t14519, t14520; double t14523, t14524, t14528, t14536, t14539, t14540, t14543, t14544; double t14547, t14548, t14555, t14558, t14561, t14562, t14577, t14580; double t14585, t14586, t14587, t14590, t14593, t14594, t14601, t14604; double t14613, t14616, t14619, t14622, t14637, t14646, t14650, t14669; double t14673, t14700, t14731, t14741, t14806, t14833, t14852, t14856; double t14858, t14862, t14875, t14912, t14952, t14969, t14995, t15002; double t15017, t15031, t15091, t15095, t15118, t15132, t15173, t15190; double t15191, t15200, t15217, t15233, t15238, t15241, t15249, t15254; double t15255, t15260, t15262, t15269, t15276, t15288, t15292, t15296; double t15299, t15300, t15306, t15313, t15316, t15318, t15320, t15324; double t15329, t15332, t15335, t15360, t15423, t15425, t15426, t15435; double t15436, t15437, t15440, t15441, t15442, t15446, t15449, t15450; double t15453, t15454, t15457, t15458, t15461, t15462, t15463, t15466; double t15467, t15470, t15473, t15476, t15479, t15482, t15489, t15490; double t15493, t15495, t15497, t15508, t15511, t15520, t15525, t15562; double t15573, t15574, t15577, t15580, t15581, t15584, t15609, t15616; double t15622, t15626, t15638, t15645, t15650, t15660, t15664, t15675; double t15698, t15714, t15719, t15729, t15733, t15737, t15740, t15741; double t15742, t15743, t15744, t15777, t15781, t15785, t15790, t15795; double t15800, t15803, t15809, t15819, t15820, t15823, t15832, t15844; double t15860, t15867, t15886, t15903, t15906, t15917, t15921, t15922; double t15926, t15936, t15956, t15990, t15993, t16031, t16033, t16034; double t16054, t16061, t16065, t16069, t16073, t16077, t16094, t16097; double t16100, t16105, t16114, t16118, t16122, t16126, t16149, t16154; double t16159, t16169, t16170, t16176, t16181, t16183, t16203, t16207; double t16208, t16209, t16210, t16235, t16246, t16248, t16252, t16263; double t16268, t16282, t16290, t16295, t16297, t16299, t16314, t16324; double t16326, t16329, t16333, t16338, t16340, t16347, t16351, t16373; double t16384, t16390, t16392, t16423, t16424, t16427, t16430, t16435; double t16440, t16455, t16456, t16459, t16468, t16469, t16482, t16485; double t16494, t16497, t16505, t16512, t16517, t16521, t16522, t16526; double t16544, t16557, t16561, t16575, t16580, t16581, t16592, t16596; double t16600, t16601, t16607, t16613, t16614, t16615, t16618, t16622; double t16629, t16632, t16633, t16636, t16637, t16640, t16643, t16662; double t16670, t16672, t16674, t16676, t16678, t16680, t16682, t16698; double t16703, t16712, t16740, t16747, t16753, t16758, t16789, t16791; double t16793, t16794, t16813, t16820, t16825, t16826, t16829, t16830; double t16833, t16836, t16857, t16869, t16873, t16877, t16889, t16919; double t16953, t16984, t16993, t17008, t17012, t17016, t17020, t17031; double t17036, t17053, t17066, t17067, t17070, t17071, t17072, t17082; double t17094, t17099, t17102, t17125, t17136, t17157, t17193, t17218; double t17231, t17251, t17285, t17325, t17352, t17392, t17420, t17440; double t17454, t17457, t17458, t17461, t17464, t17466, t17470, t17493; double t17500, t17513, t17514, t17517, t17529, t17532, t17539, t17546; double t17553, t17589, t17611, t17649, t17688, t17731, t17760, t17823; double t17825, t17837, t17841, t17878, t17880, t17921, t17941, t17967; double t17971, t17977, t17988, t17992, t18001, t18007, t18020, t18022; double t18025, t18028, t18043, t18046, t18047, t18050, t18051, t18054; double t18055, t18058, t18059, t18062, t18063, t18066, t18069, t18072; double t18075, t18078, t18079, t18092, t18094, t18096, t18099, t18102; double t18114, t18118, t18129, t18132, t18170, t18173, t18174, t18175; double t18188, t18189, t18192, t18193, t18198, t18201, t18222, t18234; double t18263, t18293, t18299, t18304, t18333, t18339, t18368, t18369; double t18374, t18375, t18380, t18385, t18390, t18396, t18397, t18406; double t18410, t18417, t18421, t18428, t18432, t18436, t18481, t18482; double t18485, t18490, t18493, t18498, t18499, t18502, t18523, t18526; double t18531, t18532, t18535, t18540, t18543, t18560, t18573, t18578; double t18597, t18642, t18670, t18694, t18712, t18716, t18720, t18728; double t18742, t18745, t18759, t18766, t18773, t18790, t18794, t18798; double t18805, t18852, t18854, t18857, t18866, t18873, t18877, t18884; double t18888, t18891, t18895, t18898, t18923, t18961, t18989, t19002; double t19034, t19038, t19069, t19130, t19135, t19146, t19149, t19152; double t19156, t19175, t19182, t19203, t19207, t19214, t19218, t19224; double t19225, t19226, t19232, t19248, t19249, t19254, t19255, t19260; double t19265, t19294, t19300, t19329, t19330, t19341, t19348, t19353; double t19362, t19365, t19368, t19371, t19384, t19391, t19394, t19397; double t19398, t19401, t19402, t19405, t19422, t19433, t19441, t19445; double t19465; #endif #endif #endif #endif #endif t1 = rho[0] - rho[1]; t2 = t1 * t1; t3 = rho[0] + rho[1]; t4 = t3 * t3; t5 = 0.1e1 / t4; t7 = -t2 * t5 + 0.1e1; t8 = t7 * t3; t9 = M_CBRT3; t10 = t9 * t9; t12 = POW_1_3(0.1e1 / M_PI); t13 = 0.1e1 / t12; t14 = t10 * t13; t15 = M_CBRT4; t16 = POW_1_3(rho[0]); t17 = 0.1e1 / t16; t18 = t15 * t17; t19 = M_CBRT6; t20 = M_PI * M_PI; t21 = POW_1_3(t20); t22 = t21 * t21; t23 = 0.1e1 / t22; t24 = t19 * t23; t25 = rho[0] * rho[0]; t26 = t16 * t16; t28 = 0.1e1 / t26 / t25; t30 = t24 * sigma[0] * t28; t32 = exp(-0.25e2 / 0.6e1 * t30); t35 = (0.2743e0 - 0.1508e0 * t32) * t19; t36 = t23 * sigma[0]; t40 = t19 * t19; t42 = 0.1e1 / t21 / t20; t43 = t40 * t42; t44 = sigma[0] * sigma[0]; t45 = t25 * t25; t46 = t45 * rho[0]; t48 = 0.1e1 / t16 / t46; t51 = 0.69444444444444444444e-5 * t43 * t44 * t48; t52 = t35 * t36 * t28 / 0.24e2 - t51; t54 = t40 / t21; t55 = sqrt(sigma[0]); t57 = 0.1e1 / t16 / rho[0]; t58 = t55 * t57; t61 = log(0.64963333333333333333e0 * t54 * t58 + sqrt(POW_2(0.64963333333333333333e0 * t54 * t58) + 0.1e1)); t65 = 0.1e1 + 0.16370833333333333333e-1 * t54 * t58 * t61 + t51; t66 = 0.1e1 / t65; t68 = t52 * t66 + 0.1e1; t69 = 0.1e1 / t68; t72 = POW_1_3(rho[1]); t73 = 0.1e1 / t72; t74 = t15 * t73; t75 = rho[1] * rho[1]; t76 = t72 * t72; t78 = 0.1e1 / t76 / t75; t80 = t24 * sigma[2] * t78; t82 = exp(-0.25e2 / 0.6e1 * t80); t85 = (0.2743e0 - 0.1508e0 * t82) * t19; t86 = t23 * sigma[2]; t90 = sigma[2] * sigma[2]; t91 = t75 * t75; t92 = t91 * rho[1]; t94 = 0.1e1 / t72 / t92; t97 = 0.69444444444444444444e-5 * t43 * t90 * t94; t98 = t85 * t86 * t78 / 0.24e2 - t97; t99 = sqrt(sigma[2]); t101 = 0.1e1 / t72 / rho[1]; t102 = t99 * t101; t105 = log(0.64963333333333333333e0 * t54 * t102 + sqrt(POW_2(0.64963333333333333333e0 * t54 * t102) + 0.1e1)); t109 = 0.1e1 + 0.16370833333333333333e-1 * t54 * t102 * t105 + t97; t110 = 0.1e1 / t109; t112 = t98 * t110 + 0.1e1; t113 = 0.1e1 / t112; t117 = t14 * t74 * t113 / 0.9e1 + t14 * t18 * t69 / 0.9e1; t120 = 0.360663084e1 / t117 + 0.5764e0; t121 = t117 * t117; t122 = t121 * t121; t123 = 0.1e1 / t122; t125 = t121 * t117; t126 = 0.1e1 / t125; t128 = 0.1e1 / t121; t130 = 0.315815266717518096e2 * t123 + 0.150327320916243744e2 * t126 + 0.1788764629788e1 * t128; t131 = 0.1e1 / t130; t132 = t120 * t131; t133 = t8 * t132; if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC)) zk[0] = -0.25000000000000000000e0 * t133; #ifndef XC_DONT_COMPILE_VXC if(order < 1) return; t135 = 0.50000000000000000000e0 * t133; t136 = t1 * t5; t138 = 0.1e1 / t4 / t3; t139 = t2 * t138; t141 = -0.2e1 * t136 + 0.2e1 * t139; t142 = t4 * t141; t145 = t4 * t7; t146 = t15 * t57; t150 = t14 * t15; t151 = t68 * t68; t152 = 0.1e1 / t151; t153 = t17 * t152; t154 = t45 * t25; t156 = 0.1e1 / t16 / t154; t157 = t44 * t156; t161 = t25 * rho[0]; t163 = 0.1e1 / t26 / t161; t168 = 0.37037037037037037037e-4 * t43 * t157; t169 = -0.69814814814814814817e-1 * t43 * t157 * t32 - t35 * t36 * t163 / 0.9e1 + t168; t171 = t65 * t65; t172 = 0.1e1 / t171; t173 = t52 * t172; t175 = 0.1e1 / t16 / t25; t182 = 0.25321408066666666666e1 * t30 + 0.1e1; t183 = sqrt(t182); t184 = 0.1e1 / t183; t188 = -0.21827777777777777777e-1 * t54 * t55 * t175 * t61 - 0.85080312222222222219e-1 * t24 * sigma[0] * t163 * t184 - t168; t190 = t169 * t66 - t173 * t188; t194 = -t14 * t146 * t69 / 0.27e2 - t150 * t153 * t190 / 0.9e1; t195 = t128 * t194; t196 = t195 * t131; t199 = t130 * t130; t200 = 0.1e1 / t199; t201 = t120 * t200; t203 = 0.1e1 / t122 / t117; t204 = t203 * t194; t206 = t123 * t194; t210 = -0.1263261066870072384e3 * t204 - 0.450981962748731232e2 * t206 - 0.3577529259576e1 * t126 * t194; t211 = t201 * t210; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[0] = -t135 - 0.25000000000000000000e0 * t142 * t132 + 0.90165771000000000000e0 * t145 * t196 + 0.25000000000000000000e0 * t145 * t211; t215 = 0.2e1 * t136 + 0.2e1 * t139; t216 = t4 * t215; t219 = t15 * t101; t223 = t112 * t112; t224 = 0.1e1 / t223; t225 = t73 * t224; t226 = t91 * t75; t228 = 0.1e1 / t72 / t226; t229 = t90 * t228; t233 = t75 * rho[1]; t235 = 0.1e1 / t76 / t233; t240 = 0.37037037037037037037e-4 * t43 * t229; t241 = -0.69814814814814814817e-1 * t43 * t229 * t82 - t85 * t86 * t235 / 0.9e1 + t240; t243 = t109 * t109; t244 = 0.1e1 / t243; t245 = t98 * t244; t247 = 0.1e1 / t72 / t75; t254 = 0.25321408066666666666e1 * t80 + 0.1e1; t255 = sqrt(t254); t256 = 0.1e1 / t255; t260 = -0.21827777777777777777e-1 * t54 * t99 * t247 * t105 - 0.85080312222222222219e-1 * t24 * sigma[2] * t235 * t256 - t240; t262 = t241 * t110 - t245 * t260; t266 = -t14 * t219 * t113 / 0.27e2 - t150 * t225 * t262 / 0.9e1; t267 = t128 * t266; t268 = t267 * t131; t271 = t203 * t266; t273 = t123 * t266; t275 = t126 * t266; t277 = -0.1263261066870072384e3 * t271 - 0.450981962748731232e2 * t273 - 0.3577529259576e1 * t275; t278 = t201 * t277; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[1] = -t135 - 0.25000000000000000000e0 * t216 * t132 + 0.90165771000000000000e0 * t145 * t268 + 0.25000000000000000000e0 * t145 * t278; t282 = t128 * t10 * t13; t283 = t145 * t282; t284 = t48 * t32; t293 = 0.13888888888888888889e-4 * t43 * sigma[0] * t48; t294 = 0.26180555555555555555e-1 * t43 * t284 * sigma[0] + t35 * t23 * t28 / 0.24e2 - t293; t296 = 0.1e1 / t55; t304 = 0.81854166666666666665e-2 * t54 * t296 * t57 * t61 + 0.31905117083333333333e-1 * t24 * t28 * t184 + t293; t306 = -t173 * t304 + t294 * t66; t307 = t152 * t306; t308 = t307 * t131; t309 = t18 * t308; t312 = t203 * t10; t313 = t312 * t13; t314 = t18 * t307; t317 = t123 * t10; t318 = t317 * t13; t321 = t126 * t10; t322 = t321 * t13; t325 = 0.14036234076334137600e2 * t313 * t314 + 0.50109106972081248000e1 * t318 * t314 + 0.39750325106400000000e0 * t322 * t314; t326 = t201 * t325; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[0] = -0.10018419000000000000e0 * t283 * t309 + 0.25000000000000000000e0 * t145 * t326; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[1] = 0.0e0; t329 = t94 * t82; t338 = 0.13888888888888888889e-4 * t43 * sigma[2] * t94; t339 = 0.26180555555555555555e-1 * t43 * t329 * sigma[2] + t85 * t23 * t78 / 0.24e2 - t338; t341 = 0.1e1 / t99; t349 = 0.81854166666666666665e-2 * t54 * t341 * t101 * t105 + 0.31905117083333333333e-1 * t24 * t78 * t256 + t338; t351 = t339 * t110 - t245 * t349; t352 = t224 * t351; t353 = t352 * t131; t354 = t74 * t353; t357 = t74 * t352; t364 = 0.14036234076334137600e2 * t313 * t357 + 0.50109106972081248000e1 * t318 * t357 + 0.39750325106400000000e0 * t322 * t357; t365 = t201 * t364; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[2] = -0.10018419000000000000e0 * t283 * t354 + 0.25000000000000000000e0 * t145 * t365; #ifndef XC_DONT_COMPILE_FXC if(order < 2) return; t368 = t141 * t3; t369 = t368 * t132; t371 = t7 * t120; t373 = 0.50000000000000000000e0 * t371 * t131; t374 = t8 * t196; t376 = t8 * t211; t378 = 0.2e1 * t5; t380 = 0.8e1 * t1 * t138; t381 = t4 * t4; t382 = 0.1e1 / t381; t384 = 0.6e1 * t2 * t382; t385 = -t378 + t380 - t384; t386 = t4 * t385; t393 = t194 * t194; t395 = t126 * t393 * t131; t398 = t15 * t175; t402 = t57 * t152; t406 = t151 * t68; t407 = 0.1e1 / t406; t408 = t17 * t407; t409 = t190 * t190; t413 = t45 * t161; t415 = 0.1e1 / t16 / t413; t416 = t44 * t415; t420 = t20 * t20; t421 = 0.1e1 / t420; t422 = t44 * sigma[0]; t423 = t421 * t422; t424 = t45 * t45; t425 = t424 * t25; t426 = 0.1e1 / t425; t431 = 0.1e1 / t26 / t45; t436 = 0.23456790123456790123e-3 * t43 * t416; t437 = 0.62833333333333333335e0 * t43 * t416 * t32 - 0.46543209876543209878e1 * t423 * t426 * t32 + 0.11e2 / 0.27e2 * t35 * t36 * t431 - t436; t439 = t169 * t172; t443 = 0.1e1 / t171 / t65; t444 = t52 * t443; t445 = t188 * t188; t449 = 0.1e1 / t16 / t161; t459 = 0.1e1 / t183 / t182; t463 = 0.50931481481481481480e-1 * t54 * t55 * t449 * t61 + 0.42540156111111111109e0 * t24 * sigma[0] * t431 * t184 - 0.28724710722910618270e0 * t43 * t416 * t459 + t436; t465 = -t173 * t463 - 0.2e1 * t439 * t188 + t437 * t66 + 0.2e1 * t444 * t445; t469 = 0.4e1 / 0.81e2 * t14 * t398 * t69 + 0.2e1 / 0.27e2 * t150 * t402 * t190 + 0.2e1 / 0.9e1 * t150 * t408 * t409 - t150 * t153 * t465 / 0.9e1; t471 = t128 * t469 * t131; t474 = t145 * t128; t475 = t194 * t200; t476 = t475 * t210; t480 = 0.1e1 / t199 / t130; t481 = t120 * t480; t482 = t210 * t210; t483 = t481 * t482; t487 = 0.1e1 / t122 / t121; t488 = t487 * t393; t492 = t203 * t393; t500 = 0.6316305334350361920e3 * t488 - 0.1263261066870072384e3 * t203 * t469 + 0.1803927850994924928e3 * t492 - 0.450981962748731232e2 * t123 * t469 + 0.10732587778728e2 * t123 * t393 - 0.3577529259576e1 * t126 * t469; t501 = t201 * t500; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[0] = -0.10000000000000000000e1 * t369 - t373 + 0.36066308400000000000e1 * t374 + 0.10000000000000000000e1 * t376 - 0.25000000000000000000e0 * t386 * t132 + 0.18033154200000000000e1 * t142 * t196 + 0.50000000000000000000e0 * t142 * t211 - 0.18033154200000000000e1 * t145 * t395 + 0.90165771000000000000e0 * t145 * t471 - 0.18033154200000000000e1 * t474 * t476 - 0.50000000000000000000e0 * t145 * t483 + 0.25000000000000000000e0 * t145 * t501; t507 = t3 * t215; t508 = t507 * t132; t510 = t378 - t384; t511 = t4 * t510; t518 = t8 * t268; t522 = t145 * t126; t523 = t266 * t131; t524 = t523 * t194; t527 = t266 * t200; t528 = t527 * t210; t531 = t8 * t278; t535 = t475 * t277; t538 = t145 * t120; t539 = t480 * t277; t540 = t539 * t210; t543 = t487 * t266; t550 = 0.6316305334350361920e3 * t543 * t194 + 0.1803927850994924928e3 * t271 * t194 + 0.10732587778728e2 * t273 * t194; t551 = t201 * t550; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[1] = -0.50000000000000000000e0 * t369 - t373 + 0.18033154200000000000e1 * t374 + 0.50000000000000000000e0 * t376 - 0.50000000000000000000e0 * t508 - 0.25000000000000000000e0 * t511 * t132 + 0.90165771000000000000e0 * t216 * t196 + 0.25000000000000000000e0 * t216 * t211 + 0.18033154200000000000e1 * t518 + 0.90165771000000000000e0 * t142 * t268 - 0.18033154200000000000e1 * t522 * t524 - 0.90165771000000000000e0 * t474 * t528 + 0.50000000000000000000e0 * t531 + 0.25000000000000000000e0 * t142 * t278 - 0.90165771000000000000e0 * t474 * t535 - 0.50000000000000000000e0 * t538 * t540 + 0.25000000000000000000e0 * t145 * t551; t557 = -t378 - t380 - t384; t558 = t4 * t557; t565 = t266 * t266; t567 = t126 * t565 * t131; t570 = t15 * t247; t574 = t101 * t224; t578 = t223 * t112; t579 = 0.1e1 / t578; t580 = t73 * t579; t581 = t262 * t262; t585 = t91 * t233; t587 = 0.1e1 / t72 / t585; t588 = t90 * t587; t592 = t90 * sigma[2]; t593 = t421 * t592; t594 = t91 * t91; t595 = t594 * t75; t596 = 0.1e1 / t595; t601 = 0.1e1 / t76 / t91; t606 = 0.23456790123456790123e-3 * t43 * t588; t607 = 0.62833333333333333335e0 * t43 * t588 * t82 - 0.46543209876543209878e1 * t593 * t596 * t82 + 0.11e2 / 0.27e2 * t85 * t86 * t601 - t606; t609 = t241 * t244; t613 = 0.1e1 / t243 / t109; t614 = t98 * t613; t615 = t260 * t260; t619 = 0.1e1 / t72 / t233; t629 = 0.1e1 / t255 / t254; t633 = 0.50931481481481481480e-1 * t54 * t99 * t619 * t105 + 0.42540156111111111109e0 * t24 * sigma[2] * t601 * t256 - 0.28724710722910618270e0 * t43 * t588 * t629 + t606; t635 = t607 * t110 - t245 * t633 - 0.2e1 * t609 * t260 + 0.2e1 * t614 * t615; t639 = 0.4e1 / 0.81e2 * t14 * t570 * t113 + 0.2e1 / 0.27e2 * t150 * t574 * t262 + 0.2e1 / 0.9e1 * t150 * t580 * t581 - t150 * t225 * t635 / 0.9e1; t641 = t128 * t639 * t131; t644 = t527 * t277; t647 = t277 * t277; t648 = t481 * t647; t651 = t487 * t565; t653 = t203 * t639; t655 = t203 * t565; t657 = t123 * t639; t663 = 0.6316305334350361920e3 * t651 - 0.1263261066870072384e3 * t653 + 0.1803927850994924928e3 * t655 - 0.450981962748731232e2 * t657 + 0.10732587778728e2 * t123 * t565 - 0.3577529259576e1 * t126 * t639; t664 = t201 * t663; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[2] = -0.10000000000000000000e1 * t508 - t373 + 0.36066308400000000000e1 * t518 + 0.10000000000000000000e1 * t531 - 0.25000000000000000000e0 * t558 * t132 + 0.18033154200000000000e1 * t216 * t268 + 0.50000000000000000000e0 * t216 * t278 - 0.18033154200000000000e1 * t145 * t567 + 0.90165771000000000000e0 * t145 * t641 - 0.18033154200000000000e1 * t474 * t644 - 0.50000000000000000000e0 * t145 * t648 + 0.25000000000000000000e0 * t145 * t664; t667 = t8 * t282; t669 = 0.20036838000000000000e0 * t667 * t309; t670 = t142 * t282; t673 = t145 * t322; t674 = t18 * t152; t675 = t306 * t131; t676 = t675 * t194; t677 = t674 * t676; t680 = t146 * t308; t683 = t18 * t407; t684 = t675 * t190; t685 = t683 * t684; t688 = t156 * t32; t692 = t424 * rho[0]; t693 = 0.1e1 / t692; t694 = t421 * t693; t695 = t44 * t32; t703 = 0.74074074074074074075e-4 * t43 * sigma[0] * t156; t704 = -0.20944444444444444445e0 * t43 * t688 * sigma[0] + 0.17453703703703703703e1 * t694 * t695 - t35 * t23 * t163 / 0.9e1 + t703; t706 = t294 * t172; t709 = t304 * t188; t719 = t156 * t459; t723 = -0.10913888888888888889e-1 * t54 * t296 * t175 * t61 - 0.12762046833333333333e0 * t24 * t163 * t184 + 0.10771766521091481852e0 * t43 * t719 * sigma[0] - t703; t725 = -t173 * t723 - t706 * t188 - t439 * t304 + 0.2e1 * t444 * t709 + t704 * t66; t726 = t152 * t725; t727 = t726 * t131; t728 = t18 * t727; t731 = t306 * t200; t732 = t731 * t210; t733 = t674 * t732; t737 = 0.50000000000000000000e0 * t8 * t326; t740 = t475 * t325; t743 = t480 * t325; t744 = t743 * t210; t747 = t487 * t10; t748 = t13 * t15; t749 = t747 * t748; t750 = t306 * t194; t751 = t153 * t750; t754 = t146 * t307; t757 = t312 * t748; t758 = t306 * t190; t759 = t408 * t758; t762 = t18 * t726; t769 = t317 * t748; t778 = t321 * t748; t783 = -0.70181170381670688000e2 * t749 * t751 - 0.46787446921113792000e1 * t313 * t754 - 0.28072468152668275200e2 * t757 * t759 + 0.14036234076334137600e2 * t313 * t762 - 0.20043642788832499200e2 * t757 * t751 - 0.16703035657360416000e1 * t318 * t754 - 0.10021821394416249600e2 * t769 * t759 + 0.50109106972081248000e1 * t318 * t762 - 0.11925097531920000000e1 * t769 * t751 - 0.13250108368800000000e0 * t322 * t754 - 0.79500650212800000000e0 * t778 * t759 + 0.39750325106400000000e0 * t322 * t762; t784 = t201 * t783; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[0] = -t669 - 0.10018419000000000000e0 * t670 * t309 + 0.20036838000000000000e0 * t673 * t677 + 0.33394730000000000000e-1 * t283 * t680 + 0.20036838000000000000e0 * t283 * t685 - 0.10018419000000000000e0 * t283 * t728 + 0.10018419000000000000e0 * t283 * t733 + t737 + 0.25000000000000000000e0 * t142 * t326 - 0.90165771000000000000e0 * t474 * t740 - 0.50000000000000000000e0 * t538 * t744 + 0.25000000000000000000e0 * t145 * t784; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[1] = 0.0e0; t788 = 0.20036838000000000000e0 * t667 * t354; t791 = t74 * t224; t792 = t351 * t131; t793 = t792 * t194; t794 = t791 * t793; t797 = t351 * t200; t798 = t797 * t210; t799 = t791 * t798; t803 = 0.50000000000000000000e0 * t8 * t365; t806 = t475 * t364; t809 = t480 * t364; t810 = t809 * t210; t813 = t351 * t194; t814 = t225 * t813; t821 = -0.70181170381670688000e2 * t749 * t814 - 0.20043642788832499200e2 * t757 * t814 - 0.11925097531920000000e1 * t769 * t814; t822 = t201 * t821; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[2] = -t788 - 0.10018419000000000000e0 * t670 * t354 + 0.20036838000000000000e0 * t673 * t794 + 0.10018419000000000000e0 * t283 * t799 + t803 + 0.25000000000000000000e0 * t142 * t365 - 0.90165771000000000000e0 * t474 * t806 - 0.50000000000000000000e0 * t538 * t810 + 0.25000000000000000000e0 * t145 * t822; t825 = t216 * t282; t828 = t675 * t266; t829 = t674 * t828; t832 = t731 * t277; t833 = t674 * t832; t838 = t527 * t325; t841 = t743 * t277; t844 = t306 * t266; t845 = t153 * t844; t852 = -0.70181170381670688000e2 * t749 * t845 - 0.20043642788832499200e2 * t757 * t845 - 0.11925097531920000000e1 * t769 * t845; t853 = t201 * t852; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[3] = -t669 - 0.10018419000000000000e0 * t825 * t309 + 0.20036838000000000000e0 * t673 * t829 + 0.10018419000000000000e0 * t283 * t833 + t737 + 0.25000000000000000000e0 * t216 * t326 - 0.90165771000000000000e0 * t474 * t838 - 0.50000000000000000000e0 * t538 * t841 + 0.25000000000000000000e0 * t145 * t853; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[4] = 0.0e0; t858 = t792 * t266; t859 = t791 * t858; t862 = t219 * t353; t865 = t74 * t579; t866 = t792 * t262; t867 = t865 * t866; t870 = t228 * t82; t874 = t594 * rho[1]; t875 = 0.1e1 / t874; t876 = t421 * t875; t877 = t90 * t82; t885 = 0.74074074074074074075e-4 * t43 * sigma[2] * t228; t886 = -0.20944444444444444445e0 * t43 * t870 * sigma[2] + 0.17453703703703703703e1 * t876 * t877 - t85 * t23 * t235 / 0.9e1 + t885; t888 = t339 * t244; t891 = t349 * t260; t901 = t228 * t629; t905 = -0.10913888888888888889e-1 * t54 * t341 * t247 * t105 - 0.12762046833333333333e0 * t24 * t235 * t256 + 0.10771766521091481852e0 * t43 * t901 * sigma[2] - t885; t907 = t886 * t110 - t245 * t905 - t888 * t260 - t609 * t349 + 0.2e1 * t614 * t891; t908 = t224 * t907; t909 = t908 * t131; t910 = t74 * t909; t913 = t797 * t277; t914 = t791 * t913; t919 = t527 * t364; t922 = t809 * t277; t925 = t351 * t266; t926 = t225 * t925; t929 = t219 * t352; t932 = t351 * t262; t933 = t580 * t932; t936 = t74 * t908; t955 = -0.70181170381670688000e2 * t749 * t926 - 0.46787446921113792000e1 * t313 * t929 - 0.28072468152668275200e2 * t757 * t933 + 0.14036234076334137600e2 * t313 * t936 - 0.20043642788832499200e2 * t757 * t926 - 0.16703035657360416000e1 * t318 * t929 - 0.10021821394416249600e2 * t769 * t933 + 0.50109106972081248000e1 * t318 * t936 - 0.11925097531920000000e1 * t769 * t926 - 0.13250108368800000000e0 * t322 * t929 - 0.79500650212800000000e0 * t778 * t933 + 0.39750325106400000000e0 * t322 * t936; t956 = t201 * t955; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[5] = -t788 - 0.10018419000000000000e0 * t825 * t354 + 0.20036838000000000000e0 * t673 * t859 + 0.33394730000000000000e-1 * t283 * t862 + 0.20036838000000000000e0 * t283 * t867 - 0.10018419000000000000e0 * t283 * t910 + 0.10018419000000000000e0 * t283 * t914 + t803 + 0.25000000000000000000e0 * t216 * t365 - 0.90165771000000000000e0 * t474 * t919 - 0.50000000000000000000e0 * t538 * t922 + 0.25000000000000000000e0 * t145 * t956; t960 = t12 * t12; t961 = 0.1e1 / t960; t962 = t126 * t9 * t961; t963 = t145 * t962; t964 = t15 * t15; t965 = 0.1e1 / t26; t966 = t964 * t965; t967 = t151 * t151; t968 = 0.1e1 / t967; t969 = t306 * t306; t970 = t968 * t969; t971 = t970 * t131; t972 = t966 * t971; t975 = t407 * t969; t976 = t975 * t131; t977 = t18 * t976; t980 = 0.1e1 / t424; t981 = t421 * t980; t982 = t32 * sigma[0]; t988 = 0.13888888888888888889e-4 * t43 * t48; t989 = -0.65451388888888888888e0 * t981 * t982 + 0.52361111111111111110e-1 * t43 * t284 - t988; t993 = t304 * t304; t997 = 0.1e1 / t55 / sigma[0]; t1002 = 0.1e1 / sigma[0]; t1010 = -0.40927083333333333332e-2 * t54 * t997 * t57 * t61 + 0.15952558541666666666e-1 * t24 * t1002 * t28 * t184 - 0.40394124454093056943e-1 * t43 * t48 * t459 + t988; t1012 = -t173 * t1010 - 0.2e1 * t706 * t304 + 0.2e1 * t444 * t993 + t989 * t66; t1013 = t152 * t1012; t1014 = t1013 * t131; t1015 = t18 * t1014; t1018 = t731 * t325; t1019 = t674 * t1018; t1022 = t325 * t325; t1023 = t481 * t1022; t1026 = t487 * t9; t1027 = t1026 * t961; t1028 = t966 * t970; t1031 = t18 * t975; t1034 = t18 * t1013; t1037 = t203 * t9; t1038 = t1037 * t961; t1045 = t123 * t9; t1046 = t1045 * t961; t1053 = 0.23393723460556896000e2 * t1027 * t1028 - 0.28072468152668275200e2 * t313 * t1031 + 0.14036234076334137600e2 * t313 * t1034 + 0.66812142629441664000e1 * t1038 * t1028 - 0.10021821394416249600e2 * t318 * t1031 + 0.50109106972081248000e1 * t318 * t1034 + 0.39750325106400000000e0 * t1046 * t1028 - 0.79500650212800000000e0 * t322 * t1031 + 0.39750325106400000000e0 * t322 * t1034; t1054 = t201 * t1053; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[0] = -0.66789460000000000000e-1 * t963 * t972 + 0.20036838000000000000e0 * t283 * t977 - 0.10018419000000000000e0 * t283 * t1015 + 0.20036838000000000000e0 * t283 * t1019 - 0.50000000000000000000e0 * t145 * t1023 + 0.25000000000000000000e0 * t145 * t1054; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[1] = 0.0e0; t1057 = t9 * t961; t1058 = t1057 * t964; t1059 = t522 * t1058; t1060 = t225 * t351; t1061 = t131 * t17; t1062 = t1061 * t307; t1063 = t1060 * t1062; t1066 = t797 * t325; t1067 = t791 * t1066; t1070 = t731 * t364; t1071 = t674 * t1070; t1074 = t809 * t325; t1077 = t961 * t964; t1078 = t1077 * t73; t1079 = t1026 * t1078; t1080 = t153 * t306; t1081 = t352 * t1080; t1084 = t1037 * t1078; t1087 = t1045 * t1078; t1090 = 0.23393723460556896000e2 * t1079 * t1081 + 0.66812142629441664000e1 * t1084 * t1081 + 0.39750325106400000000e0 * t1087 * t1081; t1091 = t201 * t1090; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[2] = -0.66789460000000000000e-1 * t1059 * t1063 + 0.10018419000000000000e0 * t283 * t1067 + 0.10018419000000000000e0 * t283 * t1071 - 0.50000000000000000000e0 * t538 * t1074 + 0.25000000000000000000e0 * t145 * t1091; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[3] = 0.0e0; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[4] = 0.0e0; t1094 = 0.1e1 / t76; t1095 = t964 * t1094; t1096 = t223 * t223; t1097 = 0.1e1 / t1096; t1098 = t351 * t351; t1099 = t1097 * t1098; t1100 = t1099 * t131; t1101 = t1095 * t1100; t1104 = t579 * t1098; t1105 = t1104 * t131; t1106 = t74 * t1105; t1109 = 0.1e1 / t594; t1110 = t421 * t1109; t1111 = t82 * sigma[2]; t1117 = 0.13888888888888888889e-4 * t43 * t94; t1118 = -0.65451388888888888888e0 * t1110 * t1111 + 0.52361111111111111110e-1 * t43 * t329 - t1117; t1122 = t349 * t349; t1126 = 0.1e1 / t99 / sigma[2]; t1131 = 0.1e1 / sigma[2]; t1139 = -0.40927083333333333332e-2 * t54 * t1126 * t101 * t105 + 0.15952558541666666666e-1 * t24 * t1131 * t78 * t256 - 0.40394124454093056943e-1 * t43 * t94 * t629 + t1117; t1141 = t1118 * t110 + 0.2e1 * t614 * t1122 - t245 * t1139 - 0.2e1 * t888 * t349; t1142 = t224 * t1141; t1143 = t1142 * t131; t1144 = t74 * t1143; t1147 = t797 * t364; t1148 = t791 * t1147; t1151 = t364 * t364; t1152 = t481 * t1151; t1155 = t1095 * t1099; t1158 = t74 * t1104; t1161 = t74 * t1142; t1176 = 0.23393723460556896000e2 * t1027 * t1155 - 0.28072468152668275200e2 * t313 * t1158 + 0.14036234076334137600e2 * t313 * t1161 + 0.66812142629441664000e1 * t1038 * t1155 - 0.10021821394416249600e2 * t318 * t1158 + 0.50109106972081248000e1 * t318 * t1161 + 0.39750325106400000000e0 * t1046 * t1155 - 0.79500650212800000000e0 * t322 * t1158 + 0.39750325106400000000e0 * t322 * t1161; t1177 = t201 * t1176; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[5] = -0.66789460000000000000e-1 * t963 * t1101 + 0.20036838000000000000e0 * t283 * t1106 - 0.10018419000000000000e0 * t283 * t1144 + 0.20036838000000000000e0 * t283 * t1148 - 0.50000000000000000000e0 * t145 * t1152 + 0.25000000000000000000e0 * t145 * t1177; #ifndef XC_DONT_COMPILE_KXC if(order < 3) return; t1180 = t8 * t395; t1182 = t8 * t483; t1184 = t368 * t211; t1186 = t368 * t196; t1188 = t8 * t471; t1190 = t8 * t501; t1192 = t475 * t500; t1195 = t194 * t480; t1196 = t1195 * t482; t1203 = t194 * t131; t1204 = t1203 * t469; t1207 = t8 * t128; t1208 = t1207 * t476; t1212 = t469 * t200; t1213 = t1212 * t210; t1216 = -0.10819892520000000000e2 * t1180 - 0.30000000000000000000e1 * t1182 + 0.30000000000000000000e1 * t1184 + 0.10819892520000000000e2 * t1186 + 0.54099462600000000000e1 * t1188 + 0.15000000000000000000e1 * t1190 - 0.27049731300000000000e1 * t474 * t1192 + 0.54099462600000000000e1 * t474 * t1196 + 0.75000000000000000000e0 * t386 * t211 - 0.54099462600000000000e1 * t142 * t395 - 0.54099462600000000000e1 * t522 * t1204 - 0.10819892520000000000e2 * t1208 - 0.15000000000000000000e1 * t142 * t483 - 0.27049731300000000000e1 * t474 * t1213; t1223 = t15 * t449; t1227 = t175 * t152; t1231 = t57 * t407; t1238 = t17 * t968; t1239 = t409 * t190; t1243 = t190 * t465; t1248 = 0.1e1 / t16 / t424; t1249 = t44 * t1248; t1253 = t424 * t161; t1254 = 0.1e1 / t1253; t1258 = t44 * t44; t1259 = t421 * t1258; t1260 = t424 * t46; t1262 = 0.1e1 / t26 / t1260; t1264 = t24 * t32; t1268 = 0.1e1 / t26 / t46; t1273 = 0.17201646090534979424e-2 * t43 * t1249; t1274 = -0.52904115226337448561e1 * t43 * t1249 * t32 + 0.88432098765432098768e2 * t423 * t1254 * t32 - 0.51714677640603566531e2 * t1259 * t1262 * t1264 - 0.154e3 / 0.81e2 * t35 * t36 * t1268 + t1273; t1276 = t437 * t172; t1279 = t169 * t443; t1284 = t171 * t171; t1285 = 0.1e1 / t1284; t1286 = t52 * t1285; t1287 = t445 * t188; t1290 = t188 * t463; t1294 = 0.1e1 / t16 / t45; t1307 = t182 * t182; t1309 = 0.1e1 / t183 / t1307; t1312 = -0.16977160493827160493e0 * t54 * t55 * t1294 * t61 - 0.22499015898765432098e1 * t24 * sigma[0] * t1268 * t184 + 0.35427143224923095866e1 * t43 * t1249 * t459 - 0.17920712264309222762e0 * t422 * t1254 * t1309 - t1273; t1314 = t1274 * t66 - 0.3e1 * t1276 * t188 + 0.6e1 * t1279 * t445 - 0.6e1 * t1286 * t1287 + 0.6e1 * t444 * t1290 - t173 * t1312 - 0.3e1 * t439 * t463; t1318 = -0.28e2 / 0.243e3 * t14 * t1223 * t69 - 0.4e1 / 0.27e2 * t150 * t1227 * t190 - 0.2e1 / 0.9e1 * t150 * t1231 * t409 + t150 * t402 * t465 / 0.9e1 - 0.2e1 / 0.3e1 * t150 * t1238 * t1239 + 0.2e1 / 0.3e1 * t150 * t408 * t1243 - t150 * t153 * t1314 / 0.9e1; t1320 = t128 * t1318 * t131; t1323 = t142 * t128; t1326 = t393 * t194; t1328 = t123 * t1326 * t131; t1331 = t385 * t3; t1332 = t1331 * t132; t1334 = t200 * t210; t1335 = t371 * t1334; t1337 = t7 * t128; t1338 = t1337 * t1203; t1340 = 0.12e2 * t138; t1341 = t1 * t382; t1342 = 0.36e2 * t1341; t1344 = 0.1e1 / t381 / t3; t1346 = 0.24e2 * t2 * t1344; t1347 = t1340 - t1342 + t1346; t1348 = t4 * t1347; t1351 = t199 * t199; t1352 = 0.1e1 / t1351; t1353 = t120 * t1352; t1354 = t482 * t210; t1355 = t1353 * t1354; t1359 = t480 * t210 * t500; t1362 = t141 * t120; t1363 = t1362 * t131; t1365 = t393 * t200; t1366 = t1365 * t210; t1370 = 0.1e1 / t122 / t125; t1373 = t487 * t194; t1390 = -0.37897832006102171520e4 * t1370 * t1326 + 0.18948916003051085760e4 * t1373 * t469 - 0.1263261066870072384e3 * t203 * t1318 - 0.9019639254974624640e3 * t487 * t1326 + 0.5411783552984774784e3 * t204 * t469 - 0.450981962748731232e2 * t123 * t1318 - 0.42930351114912e2 * t203 * t1326 + 0.32197763336184e2 * t206 * t469 - 0.3577529259576e1 * t126 * t1318; t1391 = t201 * t1390; t1394 = 0.27049731300000000000e1 * t386 * t196 + 0.27049731300000000000e1 * t142 * t471 + 0.75000000000000000000e0 * t142 * t501 + 0.90165771000000000000e0 * t145 * t1320 - 0.54099462600000000000e1 * t1323 * t476 + 0.54099462600000000000e1 * t145 * t1328 - 0.15000000000000000000e1 * t1332 + 0.15000000000000000000e1 * t1335 + 0.54099462600000000000e1 * t1338 - 0.25000000000000000000e0 * t1348 * t132 + 0.15000000000000000000e1 * t145 * t1355 - 0.15000000000000000000e1 * t538 * t1359 - 0.15000000000000000000e1 * t1363 + 0.54099462600000000000e1 * t522 * t1366 + 0.25000000000000000000e0 * t145 * t1391; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[0] = t1216 + t1394; t1397 = t475 * t550; t1401 = 0.36066308400000000000e1 * t368 * t268; t1406 = t480 * t550; t1407 = t1406 * t210; t1410 = t1212 * t277; t1419 = 0.25000000000000000000e0 * t216 * t501 - 0.18033154200000000000e1 * t474 * t1397 + t1401 - 0.36066308400000000000e1 * t1180 - 0.18033154200000000000e1 * t1323 * t535 - 0.10000000000000000000e1 * t1182 - 0.10000000000000000000e1 * t538 * t1407 - 0.90165771000000000000e0 * t474 * t1410 + 0.10000000000000000000e1 * t1184 + 0.36066308400000000000e1 * t1186 + 0.18033154200000000000e1 * t1188 - 0.50000000000000000000e0 * t216 * t483 + 0.50000000000000000000e0 * t1190; t1420 = t200 * t277; t1421 = t371 * t1420; t1424 = 0.36066308400000000000e1 * t1207 * t535; t1428 = t277 * t210; t1429 = t1195 * t1428; t1432 = t194 * t210; t1433 = t527 * t1432; t1441 = 0.36066308400000000000e1 * t507 * t196; t1446 = t216 * t128; t1449 = t1337 * t523; t1451 = 0.50000000000000000000e0 * t1421 - t1424 - 0.36066308400000000000e1 * t1208 + 0.50000000000000000000e0 * t511 * t211 + 0.36066308400000000000e1 * t474 * t1429 + 0.36066308400000000000e1 * t522 * t1433 - 0.18033154200000000000e1 * t216 * t395 + 0.90165771000000000000e0 * t386 * t268 + t1441 + 0.90165771000000000000e0 * t216 * t471 + 0.18033154200000000000e1 * t511 * t196 - 0.18033154200000000000e1 * t1446 * t476 + 0.18033154200000000000e1 * t1449; t1453 = t1370 * t266; t1466 = -0.37897832006102171520e4 * t1453 * t393 + 0.6316305334350361920e3 * t543 * t469 - 0.9019639254974624640e3 * t543 * t393 + 0.1803927850994924928e3 * t271 * t469 - 0.42930351114912e2 * t271 * t393 + 0.10732587778728e2 * t273 * t469; t1467 = t201 * t1466; t1470 = t539 * t500; t1473 = t142 * t120; t1477 = 0.10000000000000000000e1 * t507 * t211; t1478 = t8 * t120; t1480 = 0.20000000000000000000e1 * t1478 * t540; t1484 = t1352 * t277; t1485 = t1484 * t482; t1489 = 0.10000000000000000000e1 * t368 * t278; t1491 = 0.36066308400000000000e1 * t1207 * t528; t1492 = t8 * t126; t1494 = 0.72132616800000000000e1 * t1492 * t524; t1497 = 0.25000000000000000000e0 * t145 * t1467 - 0.50000000000000000000e0 * t538 * t1470 - 0.10000000000000000000e1 * t1473 * t540 + t1477 - t1480 - 0.50000000000000000000e0 * t1332 + 0.10000000000000000000e1 * t1335 + 0.36066308400000000000e1 * t1338 + 0.15000000000000000000e1 * t538 * t1485 + t1489 - t1491 - t1494 - 0.18033154200000000000e1 * t1323 * t528; t1499 = 0.10000000000000000000e1 * t8 * t551; t1500 = t142 * t126; t1503 = t523 * t469; t1507 = t1365 * t277; t1510 = t266 * t480; t1511 = t1510 * t482; t1514 = t215 * t120; t1515 = t1514 * t131; t1517 = t145 * t123; t1518 = t523 * t393; t1521 = 0.4e1 * t138; t1522 = 0.12e2 * t1341; t1523 = -t1521 - t1522 + t1346; t1524 = t4 * t1523; t1527 = t3 * t510; t1529 = 0.10000000000000000000e1 * t1527 * t132; t1534 = t527 * t500; t1537 = t1499 - 0.36066308400000000000e1 * t1500 * t524 - 0.18033154200000000000e1 * t522 * t1503 - 0.10000000000000000000e1 * t1363 + 0.18033154200000000000e1 * t522 * t1507 + 0.18033154200000000000e1 * t474 * t1511 - 0.50000000000000000000e0 * t1515 + 0.54099462600000000000e1 * t1517 * t1518 - 0.25000000000000000000e0 * t1524 * t132 - t1529 + 0.50000000000000000000e0 * t142 * t551 + 0.25000000000000000000e0 * t386 * t278 - 0.90165771000000000000e0 * t474 * t1534; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[1] = t1419 + t1451 + t1497 + t1537; t1539 = t639 * t200; t1540 = t1539 * t210; t1543 = t639 * t131; t1544 = t1543 * t194; t1547 = t216 * t120; t1550 = t8 * t567; t1554 = t527 * t550; t1557 = t1352 * t647; t1558 = t1557 * t210; t1561 = t1370 * t565; t1564 = t487 * t639; t1575 = -0.37897832006102171520e4 * t1561 * t194 + 0.6316305334350361920e3 * t1564 * t194 - 0.9019639254974624640e3 * t651 * t194 + 0.1803927850994924928e3 * t653 * t194 - 0.42930351114912e2 * t655 * t194 + 0.10732587778728e2 * t657 * t194; t1576 = t201 * t1575; t1579 = t539 * t550; t1582 = t507 * t268; t1584 = t8 * t641; t1586 = t1195 * t647; t1589 = -0.90165771000000000000e0 * t474 * t1540 - 0.18033154200000000000e1 * t522 * t1544 - 0.10000000000000000000e1 * t1547 * t540 + t1401 - 0.36066308400000000000e1 * t1550 - 0.18033154200000000000e1 * t1323 * t644 - 0.18033154200000000000e1 * t474 * t1554 + 0.15000000000000000000e1 * t538 * t1558 + 0.25000000000000000000e0 * t145 * t1576 - 0.10000000000000000000e1 * t538 * t1579 + 0.36066308400000000000e1 * t1582 + 0.18033154200000000000e1 * t1584 + 0.18033154200000000000e1 * t474 * t1586; t1590 = t480 * t663; t1591 = t1590 * t210; t1596 = t475 * t663; t1608 = t1510 * t1428; t1611 = t277 * t194; t1612 = t527 * t1611; t1615 = t1207 * t644; t1619 = -0.50000000000000000000e0 * t538 * t1591 + 0.25000000000000000000e0 * t558 * t211 - 0.90165771000000000000e0 * t474 * t1596 + 0.18033154200000000000e1 * t511 * t268 + 0.90165771000000000000e0 * t558 * t196 + 0.50000000000000000000e0 * t511 * t278 + 0.50000000000000000000e0 * t216 * t551 + 0.10000000000000000000e1 * t1421 - t1424 + 0.36066308400000000000e1 * t474 * t1608 + 0.36066308400000000000e1 * t522 * t1612 - 0.36066308400000000000e1 * t1615 - 0.18033154200000000000e1 * t142 * t567; t1623 = t507 * t278; t1629 = t8 * t648; t1632 = t216 * t126; t1635 = t8 * t664; t1639 = 0.90165771000000000000e0 * t142 * t641 + 0.10000000000000000000e1 * t1623 - 0.50000000000000000000e0 * t142 * t648 - 0.18033154200000000000e1 * t1446 * t528 + t1441 - 0.10000000000000000000e1 * t1629 + 0.36066308400000000000e1 * t1449 - 0.36066308400000000000e1 * t1632 * t524 + t1477 + 0.50000000000000000000e0 * t1635 - t1480 + 0.50000000000000000000e0 * t1335 + 0.18033154200000000000e1 * t1338; t1640 = -t1521 + t1522 + t1346; t1641 = t4 * t1640; t1644 = t3 * t557; t1645 = t1644 * t132; t1648 = t565 * t200; t1649 = t1648 * t210; t1652 = t565 * t131; t1653 = t1652 * t194; t1661 = -0.25000000000000000000e0 * t1641 * t132 + t1489 - t1491 - t1494 + t1499 - 0.50000000000000000000e0 * t1645 - 0.50000000000000000000e0 * t1363 + 0.18033154200000000000e1 * t522 * t1649 + 0.54099462600000000000e1 * t1517 * t1653 - 0.10000000000000000000e1 * t1515 + 0.25000000000000000000e0 * t142 * t664 - 0.18033154200000000000e1 * t1446 * t535 - t1529; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[2] = t1589 + t1619 + t1639 + t1661; t1665 = t647 * t277; t1666 = t1353 * t1665; t1669 = t539 * t663; t1672 = t565 * t266; t1674 = t123 * t1672 * t131; t1677 = t523 * t639; t1680 = t1648 * t277; t1691 = t1510 * t647; t1694 = -0.15000000000000000000e1 * t216 * t648 + 0.15000000000000000000e1 * t145 * t1666 - 0.15000000000000000000e1 * t538 * t1669 + 0.54099462600000000000e1 * t145 * t1674 - 0.54099462600000000000e1 * t522 * t1677 + 0.54099462600000000000e1 * t522 * t1680 - 0.10819892520000000000e2 * t1550 + 0.10819892520000000000e2 * t1582 + 0.54099462600000000000e1 * t1584 + 0.27049731300000000000e1 * t216 * t641 + 0.15000000000000000000e1 * t1421 - 0.10819892520000000000e2 * t1615 + 0.30000000000000000000e1 * t1623 + 0.54099462600000000000e1 * t474 * t1691; t1699 = t15 * t619; t1703 = t247 * t224; t1707 = t101 * t579; t1714 = t73 * t1097; t1715 = t581 * t262; t1719 = t262 * t635; t1724 = 0.1e1 / t72 / t594; t1725 = t90 * t1724; t1729 = t594 * t233; t1730 = 0.1e1 / t1729; t1734 = t90 * t90; t1735 = t421 * t1734; t1736 = t594 * t92; t1738 = 0.1e1 / t76 / t1736; t1740 = t24 * t82; t1744 = 0.1e1 / t76 / t92; t1749 = 0.17201646090534979424e-2 * t43 * t1725; t1750 = -0.52904115226337448561e1 * t43 * t1725 * t82 + 0.88432098765432098768e2 * t593 * t1730 * t82 - 0.51714677640603566531e2 * t1735 * t1738 * t1740 - 0.154e3 / 0.81e2 * t85 * t86 * t1744 + t1749; t1752 = t607 * t244; t1755 = t241 * t613; t1760 = t243 * t243; t1761 = 0.1e1 / t1760; t1762 = t98 * t1761; t1763 = t615 * t260; t1766 = t260 * t633; t1770 = 0.1e1 / t72 / t91; t1783 = t254 * t254; t1785 = 0.1e1 / t255 / t1783; t1788 = -0.16977160493827160493e0 * t54 * t99 * t1770 * t105 - 0.22499015898765432098e1 * t24 * sigma[2] * t1744 * t256 + 0.35427143224923095866e1 * t43 * t1725 * t629 - 0.17920712264309222762e0 * t592 * t1730 * t1785 - t1749; t1790 = t1750 * t110 - 0.3e1 * t1752 * t260 + 0.6e1 * t1755 * t615 - 0.6e1 * t1762 * t1763 + 0.6e1 * t614 * t1766 - t245 * t1788 - 0.3e1 * t609 * t633; t1794 = -0.28e2 / 0.243e3 * t14 * t1699 * t113 - 0.4e1 / 0.27e2 * t150 * t1703 * t262 - 0.2e1 / 0.9e1 * t150 * t1707 * t581 + t150 * t574 * t635 / 0.9e1 - 0.2e1 / 0.3e1 * t150 * t1714 * t1715 + 0.2e1 / 0.3e1 * t150 * t580 * t1719 - t150 * t225 * t1790 / 0.9e1; t1796 = t128 * t1794 * t131; t1802 = t1340 + t1342 + t1346; t1803 = t4 * t1802; t1808 = t1539 * t277; t1813 = t527 * t663; t1820 = t1370 * t1672; t1824 = t203 * t1794; t1826 = t487 * t1672; t1830 = t123 * t1794; t1838 = -0.37897832006102171520e4 * t1820 + 0.18948916003051085760e4 * t543 * t639 - 0.1263261066870072384e3 * t1824 - 0.9019639254974624640e3 * t1826 + 0.5411783552984774784e3 * t271 * t639 - 0.450981962748731232e2 * t1830 - 0.42930351114912e2 * t203 * t1672 + 0.32197763336184e2 * t273 * t639 - 0.3577529259576e1 * t126 * t1794; t1839 = t201 * t1838; t1842 = -0.54099462600000000000e1 * t216 * t567 + 0.75000000000000000000e0 * t216 * t664 + 0.90165771000000000000e0 * t145 * t1796 - 0.54099462600000000000e1 * t1446 * t644 - 0.30000000000000000000e1 * t1629 - 0.25000000000000000000e0 * t1803 * t132 + 0.75000000000000000000e0 * t558 * t278 - 0.27049731300000000000e1 * t474 * t1808 + 0.54099462600000000000e1 * t1449 + 0.15000000000000000000e1 * t1635 - 0.27049731300000000000e1 * t474 * t1813 + 0.27049731300000000000e1 * t558 * t268 - 0.15000000000000000000e1 * t1645 - 0.15000000000000000000e1 * t1515 + 0.25000000000000000000e0 * t145 * t1839; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[3] = t1694 + t1842; t1843 = t146 * t727; t1846 = t386 * t282; t1851 = t368 * t282; t1852 = t1851 * t309; t1854 = t667 * t728; t1856 = t398 * t308; t1859 = t667 * t680; t1863 = t415 * t32; t1867 = t421 * t426; t1870 = t424 * t45; t1872 = 0.1e1 / t26 / t1870; t1873 = t421 * t1872; t1882 = 0.46913580246913580247e-3 * t43 * sigma[0] * t415; t1883 = 0.15126543209876543210e1 * t43 * t1863 * sigma[0] - 0.29671296296296296296e2 * t1867 * t695 + 0.19393004115226337448e2 * t1873 * t422 * t1264 + 0.11e2 / 0.27e2 * t35 * t23 * t431 - t1882; t1885 = t704 * t172; t1888 = t294 * t443; t1897 = t304 * t445; t1900 = t723 * t188; t1903 = t304 * t463; t1913 = t415 * t459; t1917 = t426 * t1309; t1920 = 0.25465740740740740741e-1 * t54 * t296 * t449 * t61 + 0.52466192537037037036e0 * t24 * t431 * t184 - 0.11130825405127864580e1 * t43 * t1913 * sigma[0] + 0.67202670991159585361e-1 * t1917 * t44 + t1882; t1922 = -t1276 * t304 + 0.4e1 * t1279 * t709 - 0.6e1 * t1286 * t1897 - t173 * t1920 - 0.2e1 * t1885 * t188 + t1883 * t66 + 0.2e1 * t1888 * t445 + 0.4e1 * t444 * t1900 + 0.2e1 * t444 * t1903 - 0.2e1 * t439 * t723 - t706 * t463; t1923 = t152 * t1922; t1924 = t1923 * t131; t1925 = t18 * t1924; t1928 = t1207 * t740; t1930 = t1212 * t325; t1933 = t8 * t784; t1935 = 0.66789460000000000000e-1 * t283 * t1843 - 0.10018419000000000000e0 * t1846 * t309 - 0.20036838000000000000e0 * t670 * t728 - 0.40073676000000000000e0 * t1852 - 0.40073676000000000000e0 * t1854 - 0.44526306666666666667e-1 * t283 * t1856 + 0.13357892000000000000e0 * t1859 + 0.66789460000000000000e-1 * t670 * t680 - 0.10018419000000000000e0 * t283 * t1925 - 0.36066308400000000000e1 * t1928 - 0.90165771000000000000e0 * t474 * t1930 + 0.10000000000000000000e1 * t1933; t1936 = t475 * t783; t1943 = t200 * t325; t1945 = 0.50000000000000000000e0 * t371 * t1943; t1948 = t325 * t210; t1949 = t1195 * t1948; t1952 = t1365 * t325; t1955 = t743 * t500; t1958 = t368 * t326; t1960 = t1478 * t744; t1962 = t750 * t190; t1963 = t408 * t1962; t1968 = t398 * t307; t1973 = t18 * t1923; t1976 = t146 * t726; t1991 = t306 * t409; t1992 = t1238 * t1991; t1995 = t1370 * t10; t1996 = t1995 * t748; t1997 = t306 * t393; t1998 = t153 * t1997; t2001 = t402 * t750; t2006 = t1231 * t758; t2009 = t725 * t190; t2010 = t408 * t2009; t2013 = 0.47700390127680000000e1 * t769 * t1963 + 0.80174571155329996800e2 * t757 * t1963 + 0.17666811158400000000e0 * t322 * t1968 + 0.62383262561485056000e1 * t313 * t1968 + 0.39750325106400000000e0 * t322 * t1973 - 0.26500216737600000000e0 * t322 * t1976 + 0.50109106972081248000e1 * t318 * t1973 - 0.33406071314720832000e1 * t318 * t1976 + 0.14036234076334137600e2 * t313 * t1973 - 0.93574893842227584000e1 * t313 * t1976 + 0.22270714209813888000e1 * t318 * t1968 + 0.28072468152668275200e3 * t749 * t1963 + 0.30065464183248748800e2 * t769 * t1992 + 0.42108702229002412800e3 * t1996 * t1998 + 0.46787446921113792000e2 * t749 * t2001 + 0.84217404458004825600e2 * t757 * t1992 + 0.66812142629441664000e1 * t769 * t2006 - 0.20043642788832499200e2 * t769 * t2010; t2014 = t306 * t465; t2015 = t408 * t2014; t2018 = t725 * t194; t2019 = t153 * t2018; t2022 = t306 * t469; t2023 = t153 * t2022; t2056 = -0.10021821394416249600e2 * t769 * t2015 - 0.23850195063840000000e1 * t769 * t2019 - 0.11925097531920000000e1 * t769 * t2023 + 0.53000433475200000000e0 * t778 * t2006 - 0.15900130042560000000e1 * t778 * t2010 - 0.79500650212800000000e0 * t778 * t2015 - 0.14036234076334137600e3 * t749 * t2019 - 0.70181170381670688000e2 * t749 * t2023 + 0.18714978768445516800e2 * t757 * t2006 - 0.56144936305336550400e2 * t757 * t2010 - 0.28072468152668275200e2 * t757 * t2015 - 0.40087285577664998400e2 * t757 * t2019 - 0.20043642788832499200e2 * t757 * t2023 + 0.47700390127680000000e1 * t757 * t1998 + 0.79500650212800000000e0 * t769 * t2001 + 0.23850195063840000000e1 * t778 * t1992 + 0.10021821394416249600e3 * t749 * t1998 + 0.13362428525888332800e2 * t757 * t2001; t2057 = t2013 + t2056; t2058 = t201 * t2057; t2061 = t1337 * t14; t2063 = 0.20036838000000000000e0 * t2061 * t309; t2064 = -0.18033154200000000000e1 * t474 * t1936 - 0.18033154200000000000e1 * t1323 * t740 + 0.50000000000000000000e0 * t142 * t784 + t1945 - 0.10000000000000000000e1 * t1473 * t744 + 0.36066308400000000000e1 * t474 * t1949 + 0.18033154200000000000e1 * t522 * t1952 - 0.50000000000000000000e0 * t538 * t1955 + 0.10000000000000000000e1 * t1958 - 0.20000000000000000000e1 * t1960 + 0.25000000000000000000e0 * t145 * t2058 - t2063; t2066 = t522 * t150; t2067 = t408 * t306; t2068 = t1203 * t190; t2069 = t2067 * t2068; t2072 = t1080 * t476; t2075 = t474 * t150; t2076 = t200 * t190; t2077 = t2076 * t210; t2078 = t2067 * t2077; t2085 = t725 * t131; t2086 = t2085 * t194; t2087 = t674 * t2086; t2090 = t667 * t733; t2092 = t142 * t322; t2097 = t2085 * t190; t2098 = t683 * t2097; t2101 = t675 * t465; t2102 = t683 * t2101; t2105 = t725 * t200; t2106 = t2105 * t210; t2107 = t674 * t2106; t2110 = -0.80147352000000000000e0 * t2066 * t2069 - 0.40073676000000000000e0 * t2066 * t2072 - 0.40073676000000000000e0 * t2075 * t2078 + 0.25000000000000000000e0 * t386 * t326 + 0.20036838000000000000e0 * t670 * t733 + 0.40073676000000000000e0 * t673 * t2087 + 0.40073676000000000000e0 * t2090 + 0.40073676000000000000e0 * t2092 * t677 + 0.40073676000000000000e0 * t670 * t685 + 0.40073676000000000000e0 * t283 * t2098 + 0.20036838000000000000e0 * t283 * t2102 + 0.20036838000000000000e0 * t283 * t2107; t2111 = t8 * t322; t2112 = t2111 * t677; t2114 = t667 * t685; t2116 = t146 * t407; t2117 = t2116 * t684; t2120 = t146 * t152; t2121 = t2120 * t732; t2124 = t18 * t968; t2125 = t675 * t409; t2126 = t2124 * t2125; t2129 = t306 * t480; t2130 = t2129 * t482; t2131 = t674 * t2130; t2134 = t145 * t318; t2135 = t675 * t393; t2136 = t674 * t2135; t2139 = t2120 * t676; t2142 = t731 * t500; t2143 = t674 * t2142; t2146 = t675 * t469; t2147 = t674 * t2146; t2150 = t1352 * t325; t2151 = t2150 * t482; t2154 = t480 * t783; t2155 = t2154 * t210; t2158 = 0.80147352000000000000e0 * t2112 + 0.80147352000000000000e0 * t2114 - 0.13357892000000000000e0 * t283 * t2117 - 0.66789460000000000000e-1 * t283 * t2121 - 0.60110514000000000000e0 * t283 * t2126 - 0.20036838000000000000e0 * t283 * t2131 - 0.60110514000000000000e0 * t2134 * t2136 - 0.13357892000000000000e0 * t673 * t2139 + 0.10018419000000000000e0 * t283 * t2143 + 0.20036838000000000000e0 * t673 * t2147 + 0.15000000000000000000e1 * t538 * t2151 - 0.10000000000000000000e1 * t538 * t2155; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[0] = t1935 + t2064 + t2110 + t2158; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[1] = 0.0e0; t2162 = t1851 * t354; t2168 = t475 * t821; t2171 = t364 * t210; t2172 = t1195 * t2171; t2175 = t1352 * t364; t2176 = t2175 * t482; t2179 = t200 * t364; t2181 = 0.50000000000000000000e0 * t371 * t2179; t2182 = t1207 * t806; t2186 = t1212 * t364; t2189 = t809 * t500; t2192 = t1365 * t364; t2195 = t8 * t822; t2197 = -0.10018419000000000000e0 * t1846 * t354 - 0.40073676000000000000e0 * t2162 + 0.50000000000000000000e0 * t142 * t822 - 0.18033154200000000000e1 * t1323 * t806 - 0.18033154200000000000e1 * t474 * t2168 + 0.36066308400000000000e1 * t474 * t2172 + 0.15000000000000000000e1 * t538 * t2176 + t2181 - 0.36066308400000000000e1 * t2182 - 0.10000000000000000000e1 * t1473 * t810 - 0.90165771000000000000e0 * t474 * t2186 - 0.50000000000000000000e0 * t538 * t2189 + 0.18033154200000000000e1 * t522 * t2192 + 0.10000000000000000000e1 * t2195; t2198 = t351 * t393; t2199 = t225 * t2198; t2202 = t351 * t469; t2203 = t225 * t2202; t2214 = 0.42108702229002412800e3 * t1996 * t2199 - 0.70181170381670688000e2 * t749 * t2203 + 0.10021821394416249600e3 * t749 * t2199 - 0.20043642788832499200e2 * t757 * t2203 + 0.47700390127680000000e1 * t757 * t2199 - 0.11925097531920000000e1 * t769 * t2203; t2215 = t201 * t2214; t2220 = t480 * t821; t2221 = t2220 * t210; t2224 = t368 * t365; t2227 = 0.20036838000000000000e0 * t2061 * t354; t2228 = t1478 * t810; t2230 = t1060 * t476; t2233 = t792 * t469; t2234 = t791 * t2233; t2237 = t797 * t500; t2238 = t791 * t2237; t2241 = t2111 * t794; t2243 = t667 * t799; t2247 = t792 * t393; t2248 = t791 * t2247; t2251 = t351 * t480; t2252 = t2251 * t482; t2253 = t791 * t2252; t2258 = 0.25000000000000000000e0 * t145 * t2215 + 0.25000000000000000000e0 * t386 * t365 - 0.10000000000000000000e1 * t538 * t2221 + 0.10000000000000000000e1 * t2224 - t2227 - 0.20000000000000000000e1 * t2228 - 0.40073676000000000000e0 * t2066 * t2230 + 0.20036838000000000000e0 * t673 * t2234 + 0.10018419000000000000e0 * t283 * t2238 + 0.80147352000000000000e0 * t2241 + 0.40073676000000000000e0 * t2243 + 0.40073676000000000000e0 * t2092 * t794 - 0.60110514000000000000e0 * t2134 * t2248 - 0.20036838000000000000e0 * t283 * t2253 + 0.20036838000000000000e0 * t670 * t799; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[2] = t2197 + t2258; t2259 = t507 * t282; t2260 = t2259 * t309; t2269 = t511 * t282; t2276 = t2150 * t1428; t2279 = t325 * t277; t2280 = t1195 * t2279; t2283 = -0.20036838000000000000e0 * t2260 + 0.33394730000000000000e-1 * t825 * t680 - 0.20036838000000000000e0 * t1852 - 0.20036838000000000000e0 * t1854 + 0.66789460000000000000e-1 * t1859 - 0.10018419000000000000e0 * t825 * t728 - 0.10018419000000000000e0 * t2269 * t309 + 0.25000000000000000000e0 * t216 * t784 - 0.18033154200000000000e1 * t1928 + 0.50000000000000000000e0 * t1933 + 0.15000000000000000000e1 * t538 * t2276 + 0.18033154200000000000e1 * t474 * t2280 + t1945; t2284 = t325 * t194; t2285 = t527 * t2284; t2288 = t1510 * t1948; t2291 = t8 * t853; t2294 = t1207 * t838; t2300 = t844 * t194; t2301 = t153 * t2300; t2304 = t402 * t844; t2307 = t844 * t190; t2308 = t408 * t2307; t2311 = t725 * t266; t2312 = t153 * t2311; t2331 = 0.42108702229002412800e3 * t1996 * t2301 + 0.23393723460556896000e2 * t749 * t2304 + 0.14036234076334137600e3 * t749 * t2308 - 0.70181170381670688000e2 * t749 * t2312 + 0.10021821394416249600e3 * t749 * t2301 + 0.66812142629441664000e1 * t757 * t2304 + 0.40087285577664998400e2 * t757 * t2308 - 0.20043642788832499200e2 * t757 * t2312 + 0.47700390127680000000e1 * t757 * t2301 + 0.39750325106400000000e0 * t769 * t2304 + 0.23850195063840000000e1 * t769 * t2308 - 0.11925097531920000000e1 * t769 * t2312; t2332 = t201 * t2331; t2337 = t475 * t852; t2344 = t527 * t783; t2348 = 0.18033154200000000000e1 * t522 * t2285 + 0.18033154200000000000e1 * t474 * t2288 + 0.50000000000000000000e0 * t2291 + 0.50000000000000000000e0 * t1958 - 0.18033154200000000000e1 * t2294 - 0.50000000000000000000e0 * t1547 * t744 + 0.25000000000000000000e0 * t142 * t853 + 0.25000000000000000000e0 * t145 * t2332 + 0.25000000000000000000e0 * t511 * t326 - 0.90165771000000000000e0 * t474 * t2337 - 0.90165771000000000000e0 * t1323 * t838 - 0.90165771000000000000e0 * t1446 * t740 - 0.90165771000000000000e0 * t474 * t2344 - 0.10000000000000000000e1 * t1960; t2352 = t2154 * t277; t2355 = t743 * t550; t2358 = t1080 * t528; t2361 = t1080 * t535; t2364 = t1420 * t190; t2365 = t2067 * t2364; t2368 = t1080 * t540; t2371 = t1517 * t150; t2372 = t1080 * t524; t2375 = t523 * t190; t2376 = t2067 * t2375; t2379 = t480 * t852; t2380 = t2379 * t210; t2383 = t2085 * t266; t2384 = t674 * t2383; t2389 = t2105 * t277; t2390 = t674 * t2389; t2393 = -0.50000000000000000000e0 * t1473 * t841 - 0.50000000000000000000e0 * t538 * t2352 - 0.50000000000000000000e0 * t538 * t2355 - t2063 - 0.20036838000000000000e0 * t2066 * t2358 - 0.20036838000000000000e0 * t2066 * t2361 - 0.20036838000000000000e0 * t2075 * t2365 - 0.20036838000000000000e0 * t2075 * t2368 - 0.60110514000000000000e0 * t2371 * t2372 - 0.40073676000000000000e0 * t2066 * t2376 - 0.50000000000000000000e0 * t538 * t2380 + 0.20036838000000000000e0 * t673 * t2384 + 0.10018419000000000000e0 * t670 * t833 + 0.10018419000000000000e0 * t283 * t2390; t2394 = t2120 * t832; t2397 = t731 * t550; t2398 = t674 * t2397; t2401 = t216 * t322; t2410 = t2111 * t829; t2412 = t2120 * t828; t2415 = t667 * t833; t2420 = t1478 * t841; t2422 = t507 * t326; t2424 = -0.33394730000000000000e-1 * t283 * t2394 + 0.10018419000000000000e0 * t283 * t2398 + 0.20036838000000000000e0 * t2401 * t677 + 0.20036838000000000000e0 * t825 * t685 + 0.10018419000000000000e0 * t825 * t733 + 0.20036838000000000000e0 * t2092 * t829 + 0.40073676000000000000e0 * t2410 - 0.66789460000000000000e-1 * t673 * t2412 + 0.20036838000000000000e0 * t2415 + 0.20036838000000000000e0 * t2090 + 0.40073676000000000000e0 * t2112 + 0.40073676000000000000e0 * t2114 - 0.10000000000000000000e1 * t2420 + 0.50000000000000000000e0 * t2422; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[3] = t2283 + t2348 + t2393 + t2424; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[4] = 0.0e0; t2432 = t667 * t862; t2434 = t667 * t910; t2436 = t2259 * t354; t2447 = t2220 * t277; t2450 = -0.10018419000000000000e0 * t670 * t910 + 0.33394730000000000000e-1 * t670 * t862 - 0.10018419000000000000e0 * t2269 * t354 + 0.66789460000000000000e-1 * t2432 - 0.20036838000000000000e0 * t2434 - 0.20036838000000000000e0 * t2436 - 0.20036838000000000000e0 * t2162 + 0.25000000000000000000e0 * t511 * t365 - 0.50000000000000000000e0 * t1473 * t922 - 0.90165771000000000000e0 * t1323 * t919 + 0.25000000000000000000e0 * t216 * t822 - 0.50000000000000000000e0 * t538 * t2447 + t2181; t2454 = t1478 * t922; t2456 = t809 * t550; t2459 = t364 * t277; t2460 = t1195 * t2459; t2464 = t1207 * t919; t2466 = t507 * t365; t2468 = t480 * t955; t2469 = t2468 * t210; t2473 = t925 * t194; t2474 = t225 * t2473; t2477 = t574 * t813; t2480 = t932 * t194; t2481 = t580 * t2480; t2484 = t907 * t194; t2485 = t225 * t2484; t2504 = 0.42108702229002412800e3 * t1996 * t2474 + 0.23393723460556896000e2 * t749 * t2477 + 0.14036234076334137600e3 * t749 * t2481 - 0.70181170381670688000e2 * t749 * t2485 + 0.10021821394416249600e3 * t749 * t2474 + 0.66812142629441664000e1 * t757 * t2477 + 0.40087285577664998400e2 * t757 * t2481 - 0.20043642788832499200e2 * t757 * t2485 + 0.47700390127680000000e1 * t757 * t2474 + 0.39750325106400000000e0 * t769 * t2477 + 0.23850195063840000000e1 * t769 * t2481 - 0.11925097531920000000e1 * t769 * t2485; t2505 = t201 * t2504; t2509 = t1060 * t524; t2512 = -0.18033154200000000000e1 * t2182 - 0.90165771000000000000e0 * t1446 * t806 - 0.10000000000000000000e1 * t2454 - 0.50000000000000000000e0 * t538 * t2456 + 0.18033154200000000000e1 * t474 * t2460 + 0.50000000000000000000e0 * t2195 - 0.18033154200000000000e1 * t2464 + 0.50000000000000000000e0 * t2466 - 0.50000000000000000000e0 * t538 * t2469 + 0.50000000000000000000e0 * t2224 + 0.25000000000000000000e0 * t145 * t2505 - t2227 - 0.10000000000000000000e1 * t2228 - 0.60110514000000000000e0 * t2371 * t2509; t2514 = t580 * t351; t2515 = t131 * t262; t2516 = t2515 * t194; t2517 = t2514 * t2516; t2520 = t200 * t262; t2521 = t2520 * t210; t2522 = t2514 * t2521; t2525 = t1060 * t535; t2528 = t1060 * t540; t2531 = t1060 * t528; t2538 = t907 * t131; t2539 = t2538 * t194; t2540 = t791 * t2539; t2543 = t219 * t224; t2544 = t2543 * t798; t2549 = t2543 * t793; t2554 = t667 * t867; t2556 = t667 * t914; t2558 = -0.40073676000000000000e0 * t2066 * t2517 - 0.20036838000000000000e0 * t2075 * t2522 - 0.20036838000000000000e0 * t2066 * t2525 - 0.20036838000000000000e0 * t2075 * t2528 - 0.20036838000000000000e0 * t2066 * t2531 - 0.50000000000000000000e0 * t1547 * t810 + 0.20036838000000000000e0 * t2401 * t794 + 0.20036838000000000000e0 * t673 * t2540 - 0.33394730000000000000e-1 * t283 * t2544 + 0.20036838000000000000e0 * t670 * t867 - 0.66789460000000000000e-1 * t673 * t2549 + 0.20036838000000000000e0 * t2092 * t859 + 0.40073676000000000000e0 * t2554 + 0.20036838000000000000e0 * t2556; t2559 = t2111 * t859; t2561 = t907 * t200; t2562 = t2561 * t210; t2563 = t791 * t2562; t2568 = t797 * t550; t2569 = t791 * t2568; t2576 = t527 * t821; t2579 = t475 * t955; t2584 = t2175 * t1428; t2587 = t364 * t194; t2588 = t527 * t2587; t2591 = t1510 * t2171; t2594 = t8 * t956; t2596 = 0.40073676000000000000e0 * t2559 + 0.10018419000000000000e0 * t283 * t2563 + 0.10018419000000000000e0 * t670 * t914 + 0.10018419000000000000e0 * t283 * t2569 + 0.10018419000000000000e0 * t825 * t799 + 0.40073676000000000000e0 * t2241 + 0.20036838000000000000e0 * t2243 - 0.90165771000000000000e0 * t474 * t2576 - 0.90165771000000000000e0 * t474 * t2579 + 0.25000000000000000000e0 * t142 * t956 + 0.15000000000000000000e1 * t538 * t2584 + 0.18033154200000000000e1 * t522 * t2588 + 0.18033154200000000000e1 * t474 * t2591 + 0.50000000000000000000e0 * t2594; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[5] = t2450 + t2512 + t2558 + t2596; t2599 = t558 * t282; t2602 = t527 * t852; t2605 = t1080 * t644; t2611 = t1648 * t325; t2614 = t2379 * t277; t2617 = t1539 * t325; t2620 = t2150 * t647; t2628 = -0.40073676000000000000e0 * t2260 - 0.10018419000000000000e0 * t2599 * t309 - 0.18033154200000000000e1 * t474 * t2602 - 0.40073676000000000000e0 * t2066 * t2605 - 0.18033154200000000000e1 * t1446 * t838 + t1945 + 0.10000000000000000000e1 * t2291 + 0.18033154200000000000e1 * t522 * t2611 - 0.10000000000000000000e1 * t538 * t2614 - 0.90165771000000000000e0 * t474 * t2617 + 0.15000000000000000000e1 * t538 * t2620 + 0.50000000000000000000e0 * t216 * t853 - 0.36066308400000000000e1 * t2294 + 0.25000000000000000000e0 * t558 * t326; t2629 = t1510 * t2279; t2632 = t743 * t663; t2635 = t306 * t565; t2636 = t153 * t2635; t2639 = t306 * t639; t2640 = t153 * t2639; t2651 = 0.42108702229002412800e3 * t1996 * t2636 - 0.70181170381670688000e2 * t749 * t2640 + 0.10021821394416249600e3 * t749 * t2636 - 0.20043642788832499200e2 * t757 * t2640 + 0.47700390127680000000e1 * t757 * t2636 - 0.11925097531920000000e1 * t769 * t2640; t2652 = t201 * t2651; t2655 = t675 * t639; t2656 = t674 * t2655; t2659 = t731 * t663; t2660 = t674 * t2659; t2667 = t2129 * t647; t2668 = t674 * t2667; t2671 = t675 * t565; t2672 = t674 * t2671; t2681 = 0.36066308400000000000e1 * t474 * t2629 - 0.50000000000000000000e0 * t538 * t2632 - t2063 + 0.25000000000000000000e0 * t145 * t2652 + 0.20036838000000000000e0 * t673 * t2656 + 0.10018419000000000000e0 * t283 * t2660 + 0.40073676000000000000e0 * t2401 * t829 + 0.20036838000000000000e0 * t825 * t833 - 0.20036838000000000000e0 * t283 * t2668 - 0.60110514000000000000e0 * t2134 * t2672 + 0.80147352000000000000e0 * t2410 + 0.40073676000000000000e0 * t2415 - 0.20000000000000000000e1 * t2420 + 0.10000000000000000000e1 * t2422 - 0.10000000000000000000e1 * t1547 * t841; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[6] = t2628 + t2681; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[7] = 0.0e0; t2682 = t587 * t82; t2686 = t421 * t596; t2689 = t594 * t91; t2691 = 0.1e1 / t76 / t2689; t2692 = t421 * t2691; t2701 = 0.46913580246913580247e-3 * t43 * sigma[2] * t587; t2702 = 0.15126543209876543210e1 * t43 * t2682 * sigma[2] - 0.29671296296296296296e2 * t2686 * t877 + 0.19393004115226337448e2 * t2692 * t592 * t1740 + 0.11e2 / 0.27e2 * t85 * t23 * t601 - t2701; t2704 = t886 * t244; t2707 = t339 * t613; t2716 = t349 * t615; t2719 = t905 * t260; t2722 = t349 * t633; t2732 = t587 * t629; t2736 = t596 * t1785; t2739 = 0.25465740740740740741e-1 * t54 * t341 * t619 * t105 + 0.52466192537037037036e0 * t24 * t601 * t256 - 0.11130825405127864580e1 * t43 * t2732 * sigma[2] + 0.67202670991159585361e-1 * t2736 * t90 + t2701; t2741 = t2702 * t110 - t1752 * t349 + 0.4e1 * t1755 * t891 - 0.6e1 * t1762 * t2716 - t245 * t2739 - 0.2e1 * t2704 * t260 + 0.2e1 * t2707 * t615 + 0.4e1 * t614 * t2719 + 0.2e1 * t614 * t2722 - 0.2e1 * t609 * t905 - t888 * t633; t2742 = t224 * t2741; t2743 = t2742 * t131; t2744 = t74 * t2743; t2747 = t219 * t909; t2754 = t570 * t353; t2766 = t2520 * t277; t2767 = t2514 * t2766; t2770 = -0.10018419000000000000e0 * t283 * t2744 + 0.66789460000000000000e-1 * t283 * t2747 - 0.10018419000000000000e0 * t2599 * t354 - 0.20036838000000000000e0 * t825 * t910 - 0.44526306666666666667e-1 * t283 * t2754 + 0.66789460000000000000e-1 * t825 * t862 + 0.13357892000000000000e0 * t2432 - 0.40073676000000000000e0 * t2434 - 0.40073676000000000000e0 * t2436 + 0.25000000000000000000e0 * t558 * t365 + 0.50000000000000000000e0 * t216 * t956 - 0.40073676000000000000e0 * t2075 * t2767; t2771 = t523 * t262; t2772 = t2514 * t2771; t2775 = t1060 * t644; t2779 = t2543 * t913; t2782 = t2538 * t262; t2783 = t865 * t2782; t2786 = t792 * t635; t2787 = t865 * t2786; t2796 = t2538 * t266; t2797 = t791 * t2796; t2800 = t792 * t639; t2801 = t791 * t2800; t2804 = -0.80147352000000000000e0 * t2066 * t2772 - 0.40073676000000000000e0 * t2066 * t2775 + t2181 - 0.20000000000000000000e1 * t2454 - 0.66789460000000000000e-1 * t283 * t2779 + 0.40073676000000000000e0 * t283 * t2783 + 0.20036838000000000000e0 * t283 * t2787 + 0.40073676000000000000e0 * t2401 * t859 + 0.40073676000000000000e0 * t825 * t867 + 0.20036838000000000000e0 * t825 * t914 + 0.40073676000000000000e0 * t673 * t2797 + 0.20036838000000000000e0 * t673 * t2801; t2806 = t219 * t579; t2807 = t2806 * t866; t2810 = t809 * t663; t2815 = t219 * t908; t2818 = t74 * t2742; t2827 = t570 * t352; t2836 = t351 * t565; t2837 = t225 * t2836; t2840 = t574 * t925; t2843 = t351 * t581; t2844 = t1714 * t2843; t2855 = t351 * t639; t2856 = t225 * t2855; t2859 = t1707 * t932; t2862 = -0.26500216737600000000e0 * t322 * t2815 + 0.50109106972081248000e1 * t318 * t2818 - 0.33406071314720832000e1 * t318 * t2815 + 0.14036234076334137600e2 * t313 * t2818 - 0.93574893842227584000e1 * t313 * t2815 + 0.22270714209813888000e1 * t318 * t2827 + 0.17666811158400000000e0 * t322 * t2827 + 0.62383262561485056000e1 * t313 * t2827 + 0.39750325106400000000e0 * t322 * t2818 + 0.47700390127680000000e1 * t757 * t2837 + 0.79500650212800000000e0 * t769 * t2840 + 0.84217404458004825600e2 * t757 * t2844 + 0.10021821394416249600e3 * t749 * t2837 + 0.13362428525888332800e2 * t757 * t2840 + 0.42108702229002412800e3 * t1996 * t2837 + 0.46787446921113792000e2 * t749 * t2840 - 0.11925097531920000000e1 * t769 * t2856 + 0.53000433475200000000e0 * t778 * t2859; t2863 = t907 * t262; t2864 = t580 * t2863; t2867 = t351 * t635; t2868 = t580 * t2867; t2871 = t907 * t266; t2872 = t225 * t2871; t2899 = t925 * t262; t2900 = t580 * t2899; t2907 = -0.15900130042560000000e1 * t778 * t2864 - 0.79500650212800000000e0 * t778 * t2868 - 0.14036234076334137600e3 * t749 * t2872 - 0.70181170381670688000e2 * t749 * t2856 + 0.18714978768445516800e2 * t757 * t2859 - 0.56144936305336550400e2 * t757 * t2864 - 0.28072468152668275200e2 * t757 * t2868 - 0.40087285577664998400e2 * t757 * t2872 - 0.20043642788832499200e2 * t757 * t2856 + 0.23850195063840000000e1 * t778 * t2844 + 0.30065464183248748800e2 * t769 * t2844 + 0.66812142629441664000e1 * t769 * t2859 - 0.20043642788832499200e2 * t769 * t2864 - 0.10021821394416249600e2 * t769 * t2868 - 0.23850195063840000000e1 * t769 * t2872 + 0.80174571155329996800e2 * t757 * t2900 + 0.28072468152668275200e3 * t749 * t2900 + 0.47700390127680000000e1 * t769 * t2900; t2908 = t2862 + t2907; t2909 = t201 * t2908; t2912 = t1648 * t364; t2917 = t1539 * t364; t2920 = t1510 * t2459; t2925 = t527 * t955; t2928 = -0.13357892000000000000e0 * t283 * t2807 - 0.50000000000000000000e0 * t538 * t2810 - 0.36066308400000000000e1 * t2464 + 0.10000000000000000000e1 * t2466 + 0.25000000000000000000e0 * t145 * t2909 + 0.18033154200000000000e1 * t522 * t2912 - 0.10000000000000000000e1 * t1547 * t922 - t2227 - 0.90165771000000000000e0 * t474 * t2917 + 0.36066308400000000000e1 * t474 * t2920 - 0.18033154200000000000e1 * t1446 * t919 - 0.18033154200000000000e1 * t474 * t2925; t2929 = t74 * t1097; t2930 = t792 * t581; t2931 = t2929 * t2930; t2934 = t792 * t565; t2935 = t791 * t2934; t2938 = t2561 * t277; t2939 = t791 * t2938; t2942 = t797 * t663; t2943 = t791 * t2942; t2946 = t2251 * t647; t2947 = t791 * t2946; t2950 = t2543 * t858; t2956 = t2468 * t277; t2959 = t2175 * t647; t2963 = -0.60110514000000000000e0 * t283 * t2931 - 0.60110514000000000000e0 * t2134 * t2935 + 0.20036838000000000000e0 * t283 * t2939 + 0.10018419000000000000e0 * t283 * t2943 - 0.20036838000000000000e0 * t283 * t2947 - 0.13357892000000000000e0 * t673 * t2950 + 0.80147352000000000000e0 * t2554 + 0.40073676000000000000e0 * t2556 + 0.80147352000000000000e0 * t2559 - 0.10000000000000000000e1 * t538 * t2956 + 0.15000000000000000000e1 * t538 * t2959 + 0.10000000000000000000e1 * t2594; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[8] = t2770 + t2804 + t2928 + t2963; t2965 = t146 * t976; t2969 = 0.20036838000000000000e0 * t667 * t1015; t2970 = t146 * t1014; t2973 = t8 * t962; t2975 = 0.13357892000000000000e0 * t2973 * t972; t2977 = 0.1e1 / t26 / rho[0]; t2978 = t964 * t2977; t2979 = t2978 * t971; t2987 = 0.1e1 / t26 / t1253; t2989 = t421 * t2987 * t19; t2991 = t23 * t44 * t32; t2997 = 0.74074074074074074075e-4 * t43 * t156; t2998 = 0.87268518518518518517e1 * t694 * t982 - 0.72723765432098765431e1 * t2989 * t2991 - 0.27925925925925925925e0 * t43 * t688 + t2997; t3000 = t989 * t172; t3010 = t993 * t188; t3013 = t304 * t723; t3017 = t1010 * t188; t3030 = t693 * t1309; t3033 = 0.54569444444444444443e-2 * t54 * t997 * t175 * t61 - 0.21270078055555555554e-1 * t24 * t1002 * t163 * t184 + 0.26929416302728704629e0 * t43 * t719 - 0.25201001621684844509e-1 * t3030 * sigma[0] - t2997; t3035 = -t439 * t1010 + 0.2e1 * t1279 * t993 - 0.6e1 * t1286 * t3010 - t173 * t3033 - t3000 * t188 - 0.2e1 * t1885 * t304 + 0.4e1 * t1888 * t709 + t2998 * t66 + 0.4e1 * t444 * t3013 + 0.2e1 * t444 * t3017 - 0.2e1 * t706 * t723; t3036 = t152 * t3035; t3037 = t3036 * t131; t3038 = t18 * t3037; t3043 = t142 * t962; t3047 = 0.40073676000000000000e0 * t667 * t977; t3048 = t969 * t131; t3049 = t3048 * t190; t3050 = t2124 * t3049; t3053 = t675 * t725; t3054 = t683 * t3053; t3057 = t969 * t200; t3058 = t3057 * t210; t3059 = t683 * t3058; t3062 = t743 * t783; t3065 = t1195 * t1022; t3068 = t480 * t1053; t3069 = t3068 * t210; t3072 = t1026 * t1077; t3073 = t965 * t968; t3074 = t969 * t194; t3075 = t3073 * t3074; t3078 = t1037 * t1077; t3080 = 0.1e1 / t967 / t68; t3081 = t965 * t3080; t3082 = t969 * t190; t3083 = t3081 * t3082; t3086 = t306 * t725; t3087 = t3073 * t3086; t3090 = t408 * t3074; t3093 = t1238 * t3082; t3096 = t408 * t3086; t3099 = t1370 * t9; t3100 = t3099 * t1077; t3103 = t2978 * t970; t3106 = t146 * t975; t3109 = t146 * t1013; t3124 = t18 * t3036; t3129 = -0.33406071314720832000e2 * t3072 * t3075 - 0.26724857051776665600e2 * t3078 * t3083 + 0.13362428525888332800e2 * t3078 * t3087 + 0.40087285577664998400e2 * t757 * t3090 + 0.30065464183248748800e2 * t769 * t3093 - 0.20043642788832499200e2 * t769 * t3096 - 0.14036234076334137600e3 * t3100 * t3075 - 0.15595815640371264000e2 * t1027 * t3103 + 0.93574893842227584000e1 * t313 * t3106 - 0.46787446921113792000e1 * t313 * t3109 - 0.44541428419627776000e1 * t1038 * t3103 + 0.33406071314720832000e1 * t318 * t3106 - 0.16703035657360416000e1 * t318 * t3109 - 0.26500216737600000000e0 * t1046 * t3103 + 0.26500216737600000000e0 * t322 * t3106 - 0.13250108368800000000e0 * t322 * t3109 + 0.39750325106400000000e0 * t322 * t3124 + 0.50109106972081248000e1 * t318 * t3124; t3142 = t1012 * t194; t3143 = t153 * t3142; t3146 = t1012 * t190; t3147 = t408 * t3146; t3156 = t1045 * t1077; t3171 = 0.14036234076334137600e2 * t313 * t3124 - 0.93574893842227584000e2 * t3072 * t3083 + 0.46787446921113792000e2 * t3072 * t3087 + 0.14036234076334137600e3 * t749 * t3090 + 0.84217404458004825600e2 * t757 * t3093 - 0.56144936305336550400e2 * t757 * t3096 - 0.70181170381670688000e2 * t749 * t3143 - 0.28072468152668275200e2 * t757 * t3147 - 0.20043642788832499200e2 * t757 * t3143 - 0.10021821394416249600e2 * t769 * t3147 - 0.15900130042560000000e1 * t3078 * t3075 - 0.15900130042560000000e1 * t3156 * t3083 + 0.79500650212800000000e0 * t3156 * t3087 + 0.23850195063840000000e1 * t769 * t3090 + 0.23850195063840000000e1 * t778 * t3093 - 0.15900130042560000000e1 * t778 * t3096 - 0.11925097531920000000e1 * t769 * t3143 - 0.79500650212800000000e0 * t778 * t3147; t3172 = t3129 + t3171; t3173 = t201 * t3172; t3176 = t475 * t1053; t3179 = t145 * t1046; t3180 = t966 * t968; t3181 = t3048 * t194; t3182 = t3180 * t3181; t3185 = -0.66789460000000000000e-1 * t283 * t2965 - t2969 + 0.33394730000000000000e-1 * t283 * t2970 - t2975 + 0.44526306666666666667e-1 * t963 * t2979 - 0.10018419000000000000e0 * t670 * t1015 - 0.10018419000000000000e0 * t283 * t3038 + 0.20036838000000000000e0 * t670 * t977 - 0.66789460000000000000e-1 * t3043 * t972 + t3047 - 0.60110514000000000000e0 * t283 * t3050 + 0.40073676000000000000e0 * t283 * t3054 - 0.20036838000000000000e0 * t283 * t3059 - 0.10000000000000000000e1 * t538 * t3062 + 0.18033154200000000000e1 * t474 * t3065 - 0.50000000000000000000e0 * t538 * t3069 + 0.25000000000000000000e0 * t145 * t3173 - 0.90165771000000000000e0 * t474 * t3176 + 0.20036838000000000000e0 * t3179 * t3182; t3186 = t966 * t3080; t3187 = t3186 * t3049; t3190 = t1012 * t131; t3191 = t3190 * t194; t3192 = t674 * t3191; t3195 = t3190 * t190; t3196 = t683 * t3195; t3199 = t1012 * t200; t3200 = t3199 * t210; t3201 = t674 * t3200; t3206 = t3180 * t3053; t3209 = t3180 * t3058; t3212 = t683 * t3181; t3215 = t2120 * t1018; t3219 = 0.40073676000000000000e0 * t667 * t1019; t3220 = t2105 * t325; t3221 = t674 * t3220; t3224 = t731 * t783; t3225 = t674 * t3224; t3228 = t1352 * t1022; t3229 = t3228 * t210; t3232 = t1943 * t190; t3233 = t2067 * t3232; t3236 = t1080 * t744; t3239 = t1080 * t740; t3243 = 0.50000000000000000000e0 * t8 * t1054; t3245 = 0.10000000000000000000e1 * t8 * t1023; t3250 = 0.26715784000000000000e0 * t963 * t3187 + 0.20036838000000000000e0 * t673 * t3192 + 0.20036838000000000000e0 * t283 * t3196 + 0.10018419000000000000e0 * t283 * t3201 + 0.20036838000000000000e0 * t670 * t1019 - 0.13357892000000000000e0 * t963 * t3206 + 0.66789460000000000000e-1 * t963 * t3209 - 0.40073676000000000000e0 * t673 * t3212 - 0.66789460000000000000e-1 * t283 * t3215 + t3219 + 0.20036838000000000000e0 * t283 * t3221 + 0.20036838000000000000e0 * t283 * t3225 + 0.15000000000000000000e1 * t538 * t3229 - 0.40073676000000000000e0 * t2075 * t3233 - 0.40073676000000000000e0 * t2075 * t3236 - 0.40073676000000000000e0 * t2066 * t3239 + t3243 - t3245 + 0.25000000000000000000e0 * t142 * t1054 - 0.50000000000000000000e0 * t142 * t1023; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[0] = t3185 + t3250; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[1] = 0.0e0; t3252 = 0.50000000000000000000e0 * t8 * t1091; t3253 = t2175 * t1948; t3256 = t964 * t73; t3257 = t1057 * t3256; t3258 = t522 * t3257; t3259 = t352 * t200; t3260 = t306 * t210; t3261 = t153 * t3260; t3262 = t3259 * t3261; t3265 = t353 * t759; t3268 = t809 * t783; t3271 = t364 * t325; t3272 = t1195 * t3271; t3275 = t480 * t1090; t3276 = t3275 * t210; t3279 = t3099 * t1078; t3280 = t352 * t17; t3281 = t307 * t194; t3282 = t3280 * t3281; t3285 = t402 * t306; t3286 = t352 * t3285; t3289 = t407 * t306; t3290 = t3289 * t190; t3291 = t3280 * t3290; t3294 = t153 * t725; t3295 = t352 * t3294; t3314 = -0.14036234076334137600e3 * t3279 * t3282 - 0.77979078201856320000e1 * t1079 * t3286 - 0.46787446921113792000e2 * t1079 * t3291 + 0.23393723460556896000e2 * t1079 * t3295 - 0.33406071314720832000e2 * t1079 * t3282 - 0.22270714209813888000e1 * t1084 * t3286 - 0.13362428525888332800e2 * t1084 * t3291 + 0.66812142629441664000e1 * t1084 * t3295 - 0.15900130042560000000e1 * t1084 * t3282 - 0.13250108368800000000e0 * t1087 * t3286 - 0.79500650212800000000e0 * t1087 * t3291 + 0.39750325106400000000e0 * t1087 * t3295; t3315 = t201 * t3314; t3318 = t1500 * t1058; t3321 = t1061 * t726; t3322 = t1060 * t3321; t3325 = t1492 * t1058; t3327 = 0.13357892000000000000e0 * t3325 * t1063; t3328 = t131 * t57; t3329 = t3328 * t307; t3330 = t1060 * t3329; t3333 = t475 * t1090; t3336 = t731 * t821; t3337 = t674 * t3336; t3342 = t3252 + 0.15000000000000000000e1 * t538 * t3253 + 0.66789460000000000000e-1 * t3258 * t3262 + 0.13357892000000000000e0 * t3258 * t3265 - 0.50000000000000000000e0 * t538 * t3268 + 0.18033154200000000000e1 * t474 * t3272 - 0.50000000000000000000e0 * t538 * t3276 + 0.25000000000000000000e0 * t145 * t3315 - 0.66789460000000000000e-1 * t3318 * t1063 - 0.66789460000000000000e-1 * t1059 * t3322 - t3327 + 0.22263153333333333333e-1 * t1059 * t3330 - 0.90165771000000000000e0 * t474 * t3333 + 0.10018419000000000000e0 * t283 * t3337 + 0.10018419000000000000e0 * t670 * t1067; t3343 = t797 * t783; t3344 = t791 * t3343; t3349 = t2105 * t364; t3350 = t674 * t3349; t3356 = 0.10000000000000000000e1 * t1478 * t1074; t3357 = t1060 * t740; t3360 = t1080 * t806; t3363 = t2179 * t190; t3364 = t2067 * t3363; t3367 = t1080 * t810; t3370 = t1060 * t744; t3374 = 0.20036838000000000000e0 * t667 * t1071; t3375 = t2120 * t1070; t3379 = 0.20036838000000000000e0 * t667 * t1067; t3380 = t1517 * t3257; t3381 = t353 * t751; t3386 = t2220 * t325; t3389 = 0.10018419000000000000e0 * t283 * t3344 + 0.10018419000000000000e0 * t670 * t1071 + 0.10018419000000000000e0 * t283 * t3350 + 0.25000000000000000000e0 * t142 * t1091 - t3356 - 0.20036838000000000000e0 * t2066 * t3357 - 0.20036838000000000000e0 * t2066 * t3360 - 0.20036838000000000000e0 * t2075 * t3364 - 0.20036838000000000000e0 * t2075 * t3367 - 0.20036838000000000000e0 * t2075 * t3370 + t3374 - 0.33394730000000000000e-1 * t283 * t3375 + t3379 + 0.20036838000000000000e0 * t3380 * t3381 - 0.50000000000000000000e0 * t1473 * t1074 - 0.50000000000000000000e0 * t538 * t3386; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[2] = t3342 + t3389; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[3] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[4] = 0.0e0; t3397 = 0.40073676000000000000e0 * t667 * t1106; t3399 = 0.20036838000000000000e0 * t667 * t1144; t3401 = 0.13357892000000000000e0 * t2973 * t1101; t3402 = t475 * t1176; t3405 = t480 * t1176; t3406 = t3405 * t210; t3409 = t1195 * t1151; t3412 = t1141 * t200; t3413 = t3412 * t210; t3414 = t791 * t3413; t3419 = t797 * t821; t3420 = t791 * t3419; t3423 = t1095 * t1097; t3424 = t1098 * t131; t3425 = t3424 * t194; t3426 = t3423 * t3425; t3429 = 0.20036838000000000000e0 * t670 * t1106 - 0.10018419000000000000e0 * t670 * t1144 - 0.66789460000000000000e-1 * t3043 * t1101 + t3397 - t3399 - t3401 - 0.90165771000000000000e0 * t474 * t3402 - 0.50000000000000000000e0 * t538 * t3406 + 0.18033154200000000000e1 * t474 * t3409 + 0.10018419000000000000e0 * t283 * t3414 + 0.20036838000000000000e0 * t670 * t1148 + 0.20036838000000000000e0 * t283 * t3420 + 0.20036838000000000000e0 * t3179 * t3426; t3431 = 0.40073676000000000000e0 * t667 * t1148; t3432 = t1098 * t200; t3433 = t3432 * t210; t3434 = t3423 * t3433; t3437 = t865 * t3425; t3440 = t865 * t3433; t3443 = t1141 * t131; t3444 = t3443 * t194; t3445 = t791 * t3444; t3448 = t809 * t821; t3451 = t1060 * t810; t3454 = t1060 * t806; t3458 = 0.10000000000000000000e1 * t8 * t1152; t3459 = t1094 * t1097; t3460 = t1098 * t194; t3461 = t3459 * t3460; t3464 = t580 * t3460; t3467 = t1141 * t194; t3468 = t225 * t3467; t3483 = -0.14036234076334137600e3 * t3100 * t3461 + 0.14036234076334137600e3 * t749 * t3464 - 0.70181170381670688000e2 * t749 * t3468 - 0.33406071314720832000e2 * t3072 * t3461 + 0.40087285577664998400e2 * t757 * t3464 - 0.20043642788832499200e2 * t757 * t3468 - 0.15900130042560000000e1 * t3078 * t3461 + 0.23850195063840000000e1 * t769 * t3464 - 0.11925097531920000000e1 * t769 * t3468; t3484 = t201 * t3483; t3489 = t1352 * t1151; t3490 = t3489 * t210; t3494 = 0.50000000000000000000e0 * t8 * t1177; t3497 = t3431 + 0.66789460000000000000e-1 * t963 * t3434 - 0.40073676000000000000e0 * t673 * t3437 - 0.20036838000000000000e0 * t283 * t3440 + 0.20036838000000000000e0 * t673 * t3445 - 0.10000000000000000000e1 * t538 * t3448 - 0.40073676000000000000e0 * t2075 * t3451 - 0.40073676000000000000e0 * t2066 * t3454 - t3458 + 0.25000000000000000000e0 * t145 * t3484 + 0.25000000000000000000e0 * t142 * t1177 + 0.15000000000000000000e1 * t538 * t3490 + t3494 - 0.50000000000000000000e0 * t142 * t1152; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[5] = t3429 + t3497; t3502 = t216 * t962; t3505 = t3048 * t266; t3506 = t683 * t3505; t3509 = t3228 * t277; t3512 = t3057 * t277; t3513 = t683 * t3512; t3516 = t3190 * t266; t3517 = t674 * t3516; t3520 = t3199 * t277; t3521 = t674 * t3520; t3526 = 0.20036838000000000000e0 * t825 * t977 - 0.10018419000000000000e0 * t825 * t1015 - 0.66789460000000000000e-1 * t3502 * t972 - t2969 - t2975 + t3047 - 0.40073676000000000000e0 * t673 * t3506 + t3219 + 0.15000000000000000000e1 * t538 * t3509 - 0.20036838000000000000e0 * t283 * t3513 + 0.20036838000000000000e0 * t673 * t3517 + 0.10018419000000000000e0 * t283 * t3521 + 0.20036838000000000000e0 * t825 * t1019; t3527 = t731 * t852; t3528 = t674 * t3527; t3531 = t3180 * t3505; t3534 = t3180 * t3512; t3537 = t743 * t852; t3540 = t3068 * t277; t3543 = t1080 * t838; t3546 = t1080 * t841; t3553 = t527 * t1053; t3556 = t1510 * t1022; t3559 = t969 * t266; t3560 = t3073 * t3559; t3563 = t408 * t3559; t3566 = t1012 * t266; t3567 = t153 * t3566; t3582 = -0.14036234076334137600e3 * t3100 * t3560 + 0.14036234076334137600e3 * t749 * t3563 - 0.70181170381670688000e2 * t749 * t3567 - 0.33406071314720832000e2 * t3072 * t3560 + 0.40087285577664998400e2 * t757 * t3563 - 0.20043642788832499200e2 * t757 * t3567 - 0.15900130042560000000e1 * t3078 * t3560 + 0.23850195063840000000e1 * t769 * t3563 - 0.11925097531920000000e1 * t769 * t3567; t3583 = t201 * t3582; t3586 = 0.20036838000000000000e0 * t283 * t3528 + 0.20036838000000000000e0 * t3179 * t3531 + 0.66789460000000000000e-1 * t963 * t3534 - 0.10000000000000000000e1 * t538 * t3537 - 0.50000000000000000000e0 * t538 * t3540 - 0.40073676000000000000e0 * t2066 * t3543 - 0.40073676000000000000e0 * t2075 * t3546 - 0.50000000000000000000e0 * t216 * t1023 + 0.25000000000000000000e0 * t216 * t1054 - 0.90165771000000000000e0 * t474 * t3553 + t3243 - t3245 + 0.18033154200000000000e1 * t474 * t3556 + 0.25000000000000000000e0 * t145 * t3583; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[6] = t3526 + t3586; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[7] = 0.0e0; t3587 = t527 * t1090; t3590 = t353 * t845; t3593 = t579 * t351; t3594 = t3593 * t131; t3595 = t306 * t262; t3596 = t153 * t3595; t3597 = t3594 * t3596; t3600 = t306 * t277; t3601 = t153 * t3600; t3602 = t3259 * t3601; t3607 = t731 * t955; t3608 = t674 * t3607; t3613 = t2561 * t325; t3614 = t791 * t3613; t3617 = t797 * t852; t3618 = t791 * t3617; t3621 = t2543 * t1066; t3624 = t1632 * t1058; t3627 = t225 * t907; t3628 = t3627 * t1062; t3631 = t574 * t351; t3632 = t3631 * t1062; t3635 = t3252 - 0.90165771000000000000e0 * t474 * t3587 + 0.20036838000000000000e0 * t3380 * t3590 + 0.13357892000000000000e0 * t3258 * t3597 + 0.66789460000000000000e-1 * t3258 * t3602 + 0.10018419000000000000e0 * t825 * t1071 + 0.10018419000000000000e0 * t283 * t3608 + 0.10018419000000000000e0 * t825 * t1067 + 0.10018419000000000000e0 * t283 * t3614 + 0.10018419000000000000e0 * t283 * t3618 - 0.33394730000000000000e-1 * t283 * t3621 - 0.66789460000000000000e-1 * t3624 * t1063 - 0.66789460000000000000e-1 * t1059 * t3628 + 0.22263153333333333333e-1 * t1059 * t3632 - t3327; t3636 = t1080 * t922; t3639 = t1060 * t838; t3642 = t1943 * t262; t3643 = t2514 * t3642; t3646 = t1060 * t841; t3649 = t1080 * t919; t3652 = t809 * t852; t3655 = t3275 * t277; t3658 = t2175 * t2279; t3661 = t1510 * t3271; t3664 = t307 * t266; t3665 = t3280 * t3664; t3668 = t1077 * t101; t3669 = t1026 * t3668; t3672 = t3593 * t17; t3673 = t307 * t262; t3674 = t3672 * t3673; t3677 = t908 * t1080; t3682 = t1037 * t3668; t3691 = t1045 * t3668; t3698 = -0.14036234076334137600e3 * t3279 * t3665 - 0.77979078201856320000e1 * t3669 * t1081 - 0.46787446921113792000e2 * t1079 * t3674 + 0.23393723460556896000e2 * t1079 * t3677 - 0.33406071314720832000e2 * t1079 * t3665 - 0.22270714209813888000e1 * t3682 * t1081 - 0.13362428525888332800e2 * t1084 * t3674 + 0.66812142629441664000e1 * t1084 * t3677 - 0.15900130042560000000e1 * t1084 * t3665 - 0.13250108368800000000e0 * t3691 * t1081 - 0.79500650212800000000e0 * t1087 * t3674 + 0.39750325106400000000e0 * t1087 * t3677; t3699 = t201 * t3698; t3706 = t2468 * t325; t3709 = -0.20036838000000000000e0 * t2075 * t3636 - 0.20036838000000000000e0 * t2066 * t3639 - 0.20036838000000000000e0 * t2075 * t3643 - 0.20036838000000000000e0 * t2075 * t3646 - 0.20036838000000000000e0 * t2066 * t3649 - 0.50000000000000000000e0 * t538 * t3652 - t3356 + t3374 + t3379 - 0.50000000000000000000e0 * t538 * t3655 + 0.15000000000000000000e1 * t538 * t3658 + 0.18033154200000000000e1 * t474 * t3661 + 0.25000000000000000000e0 * t145 * t3699 + 0.25000000000000000000e0 * t216 * t1091 - 0.50000000000000000000e0 * t1547 * t1074 - 0.50000000000000000000e0 * t538 * t3706; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[8] = t3635 + t3709; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[9] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[10] = 0.0e0; t3710 = t2179 * t262; t3711 = t2514 * t3710; t3714 = t1060 * t922; t3717 = t1060 * t919; t3721 = 0.1e1 / t1096 / t112; t3722 = t1095 * t3721; t3723 = t3424 * t262; t3724 = t3722 * t3723; t3727 = t792 * t907; t3728 = t3423 * t3727; t3731 = t3432 * t277; t3732 = t3423 * t3731; t3735 = t3424 * t266; t3736 = t865 * t3735; t3739 = t2929 * t3723; t3742 = t865 * t3727; t3745 = t865 * t3731; t3748 = t2561 * t364; t3749 = t791 * t3748; t3752 = t797 * t955; t3753 = t791 * t3752; t3756 = t2543 * t1147; t3759 = t3443 * t266; t3760 = t791 * t3759; t3763 = t3443 * t262; t3764 = t865 * t3763; t3767 = t3412 * t277; t3768 = t791 * t3767; t3771 = t3397 - t3399 - t3401 - 0.40073676000000000000e0 * t2075 * t3711 - 0.40073676000000000000e0 * t2075 * t3714 - 0.40073676000000000000e0 * t2066 * t3717 + 0.26715784000000000000e0 * t963 * t3724 - 0.13357892000000000000e0 * t963 * t3728 + 0.66789460000000000000e-1 * t963 * t3732 - 0.40073676000000000000e0 * t673 * t3736 - 0.60110514000000000000e0 * t283 * t3739 + 0.40073676000000000000e0 * t283 * t3742 - 0.20036838000000000000e0 * t283 * t3745 + 0.20036838000000000000e0 * t283 * t3749 + 0.20036838000000000000e0 * t283 * t3753 - 0.66789460000000000000e-1 * t283 * t3756 + 0.20036838000000000000e0 * t673 * t3760 + 0.20036838000000000000e0 * t283 * t3764 + 0.10018419000000000000e0 * t283 * t3768; t3774 = t219 * t1143; t3778 = 0.1e1 / t76 / rho[1]; t3779 = t964 * t3778; t3780 = t3779 * t1100; t3783 = t219 * t1105; t3795 = 0.1e1 / t76 / t1729; t3797 = t421 * t3795 * t19; t3799 = t23 * t90 * t82; t3805 = 0.74074074074074074075e-4 * t43 * t228; t3806 = 0.87268518518518518517e1 * t876 * t1111 - 0.72723765432098765431e1 * t3797 * t3799 - 0.27925925925925925925e0 * t43 * t870 + t3805; t3808 = t1118 * t244; t3818 = t1122 * t260; t3821 = t349 * t905; t3825 = t1139 * t260; t3838 = t875 * t1785; t3841 = 0.54569444444444444443e-2 * t54 * t1126 * t247 * t105 - 0.21270078055555555554e-1 * t24 * t1131 * t235 * t256 + 0.26929416302728704629e0 * t43 * t901 - 0.25201001621684844509e-1 * t3838 * sigma[2] - t3805; t3843 = t3806 * t110 + 0.2e1 * t1755 * t1122 - t609 * t1139 - 0.6e1 * t1762 * t3818 - t245 * t3841 - t3808 * t260 - 0.2e1 * t2704 * t349 + 0.4e1 * t2707 * t891 + 0.4e1 * t614 * t3821 + 0.2e1 * t614 * t3825 - 0.2e1 * t888 * t905; t3844 = t224 * t3843; t3845 = t3844 * t131; t3846 = t74 * t3845; t3849 = t3489 * t277; t3852 = t809 * t955; t3855 = t3423 * t3735; t3858 = t3405 * t277; t3865 = t1510 * t1151; t3868 = t1098 * t266; t3869 = t3459 * t3868; t3872 = t1094 * t3721; t3873 = t1098 * t262; t3874 = t3872 * t3873; t3877 = t351 * t907; t3878 = t3459 * t3877; t3881 = t580 * t3868; t3884 = t1714 * t3873; t3887 = t580 * t3877; t3890 = t1141 * t266; t3891 = t225 * t3890; t3894 = t1141 * t262; t3895 = t580 * t3894; t3918 = -0.14036234076334137600e3 * t3100 * t3869 - 0.93574893842227584000e2 * t3072 * t3874 + 0.46787446921113792000e2 * t3072 * t3878 + 0.14036234076334137600e3 * t749 * t3881 + 0.84217404458004825600e2 * t757 * t3884 - 0.56144936305336550400e2 * t757 * t3887 - 0.70181170381670688000e2 * t749 * t3891 - 0.28072468152668275200e2 * t757 * t3895 - 0.33406071314720832000e2 * t3072 * t3869 - 0.26724857051776665600e2 * t3078 * t3874 + 0.13362428525888332800e2 * t3078 * t3878 + 0.40087285577664998400e2 * t757 * t3881 + 0.30065464183248748800e2 * t769 * t3884 - 0.20043642788832499200e2 * t769 * t3887 - 0.20043642788832499200e2 * t757 * t3891 - 0.10021821394416249600e2 * t769 * t3895 - 0.15900130042560000000e1 * t3078 * t3869 - 0.15900130042560000000e1 * t3156 * t3874; t3931 = t74 * t3844; t3938 = t3779 * t1099; t3941 = t219 * t1104; t3944 = t219 * t1142; t3959 = 0.79500650212800000000e0 * t3156 * t3878 + 0.23850195063840000000e1 * t769 * t3881 + 0.23850195063840000000e1 * t778 * t3884 - 0.15900130042560000000e1 * t778 * t3887 - 0.11925097531920000000e1 * t769 * t3891 - 0.79500650212800000000e0 * t778 * t3895 + 0.39750325106400000000e0 * t322 * t3931 + 0.50109106972081248000e1 * t318 * t3931 + 0.14036234076334137600e2 * t313 * t3931 - 0.15595815640371264000e2 * t1027 * t3938 + 0.93574893842227584000e1 * t313 * t3941 - 0.46787446921113792000e1 * t313 * t3944 - 0.44541428419627776000e1 * t1038 * t3938 + 0.33406071314720832000e1 * t318 * t3941 - 0.16703035657360416000e1 * t318 * t3944 - 0.26500216737600000000e0 * t1046 * t3938 + 0.26500216737600000000e0 * t322 * t3941 - 0.13250108368800000000e0 * t322 * t3944; t3960 = t3918 + t3959; t3961 = t201 * t3960; t3964 = t527 * t1176; t3967 = 0.20036838000000000000e0 * t825 * t1148 + t3431 + 0.33394730000000000000e-1 * t283 * t3774 + 0.44526306666666666667e-1 * t963 * t3780 - 0.66789460000000000000e-1 * t283 * t3783 - 0.66789460000000000000e-1 * t3502 * t1101 + 0.20036838000000000000e0 * t825 * t1106 - 0.10018419000000000000e0 * t825 * t1144 - 0.10018419000000000000e0 * t283 * t3846 + 0.15000000000000000000e1 * t538 * t3849 - 0.10000000000000000000e1 * t538 * t3852 + 0.20036838000000000000e0 * t3179 * t3855 - 0.50000000000000000000e0 * t538 * t3858 - 0.50000000000000000000e0 * t216 * t1152 + 0.25000000000000000000e0 * t216 * t1177 + 0.18033154200000000000e1 * t474 * t3865 + 0.25000000000000000000e0 * t145 * t3961 - t3458 - 0.90165771000000000000e0 * t474 * t3964 + t3494; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[11] = t3771 + t3967; t3968 = t123 * M_PI; t3969 = t145 * t3968; t3970 = 0.1e1 / rho[0]; t3972 = 0.1e1 / t967 / t151; t3973 = t3970 * t3972; t3974 = t969 * t306; t3975 = t3974 * t131; t3976 = t3973 * t3975; t3979 = t3080 * t3974; t3980 = t3979 * t131; t3981 = t966 * t3980; t3984 = t675 * t1012; t3985 = t3180 * t3984; t3988 = t3057 * t325; t3989 = t3180 * t3988; t3992 = t968 * t3974; t3993 = t3992 * t131; t3994 = t18 * t3993; t3997 = t683 * t3984; t4000 = t683 * t3988; t4004 = 0.1e1 / t26 / t425; t4005 = t421 * t4004; t4008 = t23 * t32 * sigma[0]; t4013 = 0.27271412037037037037e1 * t4005 * t19 * t4008 - 0.19635416666666666667e1 * t981 * t32; t4021 = t993 * t304; t4024 = t304 * t1010; t4028 = 0.1e1 / t55 / t44; t4033 = 0.1e1 / t44; t4044 = 0.61390624999999999998e-2 * t54 * t4028 * t57 * t61 - 0.23928837812499999999e-1 * t24 * t4033 * t28 * t184 - 0.20197062227046528471e-1 * t43 * t1002 * t48 * t459 + 0.94503756081318166912e-2 * t980 * t1309; t4046 = -0.3e1 * t706 * t1010 - 0.6e1 * t1286 * t4021 - t173 * t4044 + 0.6e1 * t1888 * t993 - 0.3e1 * t3000 * t304 + t4013 * t66 + 0.6e1 * t444 * t4024; t4047 = t152 * t4046; t4048 = t4047 * t131; t4049 = t18 * t4048; t4052 = t3199 * t325; t4053 = t674 * t4052; t4056 = t2129 * t1022; t4057 = t674 * t4056; t4060 = t731 * t1053; t4061 = t674 * t4060; t4064 = t1022 * t325; t4065 = t1353 * t4064; t4068 = t743 * t1053; t4071 = t18 * t4047; t4078 = t203 * M_PI; t4079 = t3973 * t3974; t4082 = t487 * M_PI; t4085 = t966 * t3979; t4088 = t306 * t1012; t4089 = t3073 * t4088; t4092 = t18 * t3992; t4095 = t408 * t4088; t4098 = t1370 * M_PI; t4117 = 0.39750325106400000000e0 * t322 * t4071 + 0.50109106972081248000e1 * t318 * t4071 + 0.14036234076334137600e2 * t313 * t4071 + 0.21200173390080000000e1 * t4078 * t4079 + 0.44541428419627776000e2 * t4082 * t4079 - 0.23850195063840000000e1 * t1046 * t4085 + 0.11925097531920000000e1 * t3156 * t4089 + 0.23850195063840000000e1 * t322 * t4092 - 0.23850195063840000000e1 * t778 * t4095 + 0.18714978768445516800e3 * t4098 * t4079 - 0.14036234076334137600e3 * t1027 * t4085 + 0.70181170381670688000e2 * t3072 * t4089 + 0.84217404458004825600e2 * t313 * t4092 - 0.84217404458004825600e2 * t757 * t4095 - 0.40087285577664998400e2 * t1038 * t4085 + 0.20043642788832499200e2 * t3078 * t4089 + 0.30065464183248748800e2 * t318 * t4092 - 0.30065464183248748800e2 * t769 * t4095; t4118 = t201 * t4117; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[0] = -0.26715784000000000000e0 * t3969 * t3976 + 0.40073676000000000000e0 * t963 * t3981 - 0.20036838000000000000e0 * t963 * t3985 + 0.20036838000000000000e0 * t963 * t3989 - 0.60110514000000000000e0 * t283 * t3994 + 0.60110514000000000000e0 * t283 * t3997 - 0.60110514000000000000e0 * t283 * t4000 - 0.10018419000000000000e0 * t283 * t4049 + 0.30055257000000000000e0 * t283 * t4053 - 0.60110514000000000000e0 * t283 * t4057 + 0.30055257000000000000e0 * t283 * t4061 + 0.15000000000000000000e1 * t145 * t4065 - 0.15000000000000000000e1 * t538 * t4068 + 0.25000000000000000000e0 * t145 * t4118; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[1] = 0.0e0; t4121 = t3968 * t73; t4122 = t145 * t4121; t4123 = t3073 * t969; t4124 = t353 * t4123; t4127 = t306 * t325; t4128 = t153 * t4127; t4129 = t3259 * t4128; t4132 = t1061 * t975; t4133 = t1060 * t4132; t4136 = t1061 * t1013; t4137 = t1060 * t4136; t4140 = t2251 * t1022; t4141 = t791 * t4140; t4144 = t797 * t1053; t4145 = t791 * t4144; t4148 = t3057 * t364; t4149 = t3180 * t4148; t4152 = t683 * t4148; t4155 = t3199 * t364; t4156 = t674 * t4155; t4159 = t1080 * t1074; t4162 = t731 * t1090; t4163 = t674 * t4162; t4166 = t2175 * t1022; t4169 = t3275 * t325; t4172 = t809 * t1053; t4175 = t4098 * t225; t4176 = t351 * t965; t4177 = t4176 * t970; t4180 = t408 * t969; t4181 = t352 * t4180; t4184 = t153 * t1012; t4185 = t352 * t4184; t4188 = t4082 * t225; t4195 = t4078 * t225; t4202 = 0.18714978768445516800e3 * t4175 * t4177 - 0.46787446921113792000e2 * t1079 * t4181 + 0.23393723460556896000e2 * t1079 * t4185 + 0.44541428419627776000e2 * t4188 * t4177 - 0.13362428525888332800e2 * t1084 * t4181 + 0.66812142629441664000e1 * t1084 * t4185 + 0.21200173390080000000e1 * t4195 * t4177 - 0.79500650212800000000e0 * t1087 * t4181 + 0.39750325106400000000e0 * t1087 * t4185; t4203 = t201 * t4202; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[2] = -0.26715784000000000000e0 * t4122 * t4124 + 0.13357892000000000000e0 * t3258 * t4129 + 0.13357892000000000000e0 * t1059 * t4133 - 0.66789460000000000000e-1 * t1059 * t4137 - 0.20036838000000000000e0 * t283 * t4141 + 0.10018419000000000000e0 * t283 * t4145 + 0.66789460000000000000e-1 * t963 * t4149 - 0.20036838000000000000e0 * t283 * t4152 + 0.10018419000000000000e0 * t283 * t4156 - 0.40073676000000000000e0 * t2075 * t4159 + 0.20036838000000000000e0 * t283 * t4163 + 0.15000000000000000000e1 * t538 * t4166 - 0.10000000000000000000e1 * t538 * t4169 - 0.50000000000000000000e0 * t538 * t4172 + 0.25000000000000000000e0 * t145 * t4203; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[3] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[4] = 0.0e0; t4206 = t3968 * t1094; t4207 = t145 * t4206; t4208 = t1100 * t1080; t4211 = t3432 * t325; t4212 = t3423 * t4211; t4215 = t580 * t1098; t4216 = t4215 * t1062; t4219 = t865 * t4211; t4222 = t225 * t1141; t4223 = t4222 * t1062; t4226 = t3412 * t325; t4227 = t791 * t4226; t4230 = t364 * t17; t4231 = t4230 * t307; t4232 = t3259 * t4231; t4235 = t1060 * t1074; t4238 = t797 * t1090; t4239 = t791 * t4238; t4242 = t2129 * t1151; t4243 = t674 * t4242; t4246 = t3489 * t325; t4249 = t809 * t1090; t4252 = t731 * t1176; t4253 = t674 * t4252; t4256 = t3405 * t325; t4259 = t4098 * t3459; t4260 = t1098 * t17; t4261 = t4260 * t307; t4264 = t1104 * t1080; t4267 = t1142 * t1080; t4270 = t4082 * t3459; t4277 = t4078 * t3459; t4284 = 0.18714978768445516800e3 * t4259 * t4261 - 0.46787446921113792000e2 * t1079 * t4264 + 0.23393723460556896000e2 * t1079 * t4267 + 0.44541428419627776000e2 * t4270 * t4261 - 0.13362428525888332800e2 * t1084 * t4264 + 0.66812142629441664000e1 * t1084 * t4267 + 0.21200173390080000000e1 * t4277 * t4261 - 0.79500650212800000000e0 * t1087 * t4264 + 0.39750325106400000000e0 * t1087 * t4267; t4285 = t201 * t4284; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[5] = -0.26715784000000000000e0 * t4207 * t4208 + 0.66789460000000000000e-1 * t963 * t4212 + 0.13357892000000000000e0 * t1059 * t4216 - 0.20036838000000000000e0 * t283 * t4219 - 0.66789460000000000000e-1 * t1059 * t4223 + 0.10018419000000000000e0 * t283 * t4227 + 0.13357892000000000000e0 * t3258 * t4232 - 0.40073676000000000000e0 * t2075 * t4235 + 0.20036838000000000000e0 * t283 * t4239 - 0.20036838000000000000e0 * t283 * t4243 + 0.15000000000000000000e1 * t538 * t4246 - 0.10000000000000000000e1 * t538 * t4249 + 0.10018419000000000000e0 * t283 * t4253 - 0.50000000000000000000e0 * t538 * t4256 + 0.25000000000000000000e0 * t145 * t4285; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[6] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[7] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[8] = 0.0e0; t4288 = 0.1e1 / rho[1]; t4290 = 0.1e1 / t1096 / t223; t4291 = t4288 * t4290; t4292 = t1098 * t351; t4293 = t4292 * t131; t4294 = t4291 * t4293; t4297 = t3721 * t4292; t4298 = t4297 * t131; t4299 = t1095 * t4298; t4302 = t792 * t1141; t4303 = t3423 * t4302; t4306 = t3432 * t364; t4307 = t3423 * t4306; t4310 = t1097 * t4292; t4311 = t4310 * t131; t4312 = t74 * t4311; t4315 = t865 * t4302; t4318 = t865 * t4306; t4322 = 0.1e1 / t76 / t595; t4323 = t421 * t4322; t4326 = t23 * t82 * sigma[2]; t4331 = 0.27271412037037037037e1 * t4323 * t19 * t4326 - 0.19635416666666666667e1 * t1110 * t82; t4339 = t1122 * t349; t4342 = t349 * t1139; t4346 = 0.1e1 / t99 / t90; t4351 = 0.1e1 / t90; t4362 = 0.61390624999999999998e-2 * t54 * t4346 * t101 * t105 - 0.23928837812499999999e-1 * t24 * t4351 * t78 * t256 - 0.20197062227046528471e-1 * t43 * t1131 * t94 * t629 + 0.94503756081318166912e-2 * t1109 * t1785; t4364 = t4331 * t110 + 0.6e1 * t2707 * t1122 - 0.3e1 * t888 * t1139 - 0.6e1 * t1762 * t4339 - t245 * t4362 - 0.3e1 * t3808 * t349 + 0.6e1 * t614 * t4342; t4365 = t224 * t4364; t4366 = t4365 * t131; t4367 = t74 * t4366; t4370 = t3412 * t364; t4371 = t791 * t4370; t4374 = t2251 * t1151; t4375 = t791 * t4374; t4378 = t797 * t1176; t4379 = t791 * t4378; t4382 = t1151 * t364; t4383 = t1353 * t4382; t4386 = t809 * t1176; t4389 = t4291 * t4292; t4392 = t4082 * t4389; t4394 = t74 * t4365; t4401 = t4098 * t4389; t4403 = t1095 * t4297; t4406 = t351 * t1141; t4407 = t3459 * t4406; t4410 = t74 * t4310; t4413 = t580 * t4406; t4432 = 0.21200173390080000000e1 * t4078 * t4389 + 0.44541428419627776000e2 * t4392 + 0.39750325106400000000e0 * t322 * t4394 + 0.50109106972081248000e1 * t318 * t4394 + 0.14036234076334137600e2 * t313 * t4394 + 0.18714978768445516800e3 * t4401 - 0.23850195063840000000e1 * t1046 * t4403 + 0.11925097531920000000e1 * t3156 * t4407 + 0.23850195063840000000e1 * t322 * t4410 - 0.23850195063840000000e1 * t778 * t4413 - 0.40087285577664998400e2 * t1038 * t4403 + 0.20043642788832499200e2 * t3078 * t4407 + 0.30065464183248748800e2 * t318 * t4410 - 0.30065464183248748800e2 * t769 * t4413 - 0.14036234076334137600e3 * t1027 * t4403 + 0.70181170381670688000e2 * t3072 * t4407 + 0.84217404458004825600e2 * t313 * t4410 - 0.84217404458004825600e2 * t757 * t4413; t4433 = t201 * t4432; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[9] = -0.26715784000000000000e0 * t3969 * t4294 + 0.40073676000000000000e0 * t963 * t4299 - 0.20036838000000000000e0 * t963 * t4303 + 0.20036838000000000000e0 * t963 * t4307 - 0.60110514000000000000e0 * t283 * t4312 + 0.60110514000000000000e0 * t283 * t4315 - 0.60110514000000000000e0 * t283 * t4318 - 0.10018419000000000000e0 * t283 * t4367 + 0.30055257000000000000e0 * t283 * t4371 - 0.60110514000000000000e0 * t283 * t4375 + 0.30055257000000000000e0 * t283 * t4379 + 0.15000000000000000000e1 * t145 * t4383 - 0.15000000000000000000e1 * t538 * t4386 + 0.25000000000000000000e0 * t145 * t4433; #ifndef XC_DONT_COMPILE_LXC if(order < 4) return; t4436 = 0.72e2 * t382; t4437 = t1 * t1344; t4438 = 0.192e3 * t4437; t4442 = 0.120e3 * t2 / t381 / t4; t4452 = t3 * t1347 * t132; t4457 = t122 * t122; t4458 = 0.1e1 / t4457; t4459 = t393 * t393; t4465 = t469 * t469; t4478 = t175 * t407; t4485 = t57 * t968; t4495 = t17 * t3080; t4496 = t409 * t409; t4504 = t465 * t465; t4514 = t44 / t16 / t692; t4518 = 0.1e1 / t1870; t4522 = t424 * t154; t4524 = 0.1e1 / t26 / t4522; t4530 = t424 * t424; t4535 = t43 * t32; t4539 = 0.1e1 / t26 / t154; t4544 = 0.14334705075445816187e-1 * t43 * t4514; t4547 = t1274 * t172; t4550 = t437 * t443; t4555 = t169 * t1285; t4564 = t52 / t1284 / t65; t4565 = t445 * t445; t4571 = t463 * t463; t4594 = 0.1e1 / t183 / t1307 / t182; t4601 = (0.47272386831275720165e2 * t43 * t4514 * t32 - 0.13254471879286694102e4 * t423 * t4518 * t32 + 0.16893461362597165067e4 * t1259 * t4524 * t1264 - 0.57460752934003962812e3 * t421 * t1258 * sigma[0] / t16 / t4530 / rho[0] * t4535 + 0.2618e4 / 0.243e3 * t35 * t36 * t4539 - t4544) * t66 - 0.4e1 * t4547 * t188 + 0.12e2 * t4550 * t445 - 0.6e1 * t1276 * t463 - 0.24e2 * t4555 * t1287 + 0.24e2 * t1279 * t1290 - 0.4e1 * t439 * t1312 + 0.24e2 * t4564 * t4565 - 0.36e2 * t1286 * t445 * t463 + 0.6e1 * t444 * t4571 + 0.8e1 * t444 * t188 * t1312 - t173 * (0.73567695473251028803e0 * t54 * t55 * t48 * t61 + 0.13631756691604938272e2 * t24 * sigma[0] * t4539 * t184 - 0.37118709523050054497e2 * t43 * t4514 * t459 + 0.41814995283388186444e1 * t422 * t4518 * t1309 - 0.30251844539326121245e1 * t1258 * t4524 * t4594 * t19 * t23 + t4544); t4605 = 0.280e3 / 0.729e3 * t14 * t15 * t1294 * t69 + 0.112e3 / 0.243e3 * t150 * t449 * t152 * t190 + 0.16e2 / 0.27e2 * t150 * t4478 * t409 - 0.8e1 / 0.27e2 * t150 * t1227 * t465 + 0.8e1 / 0.9e1 * t150 * t4485 * t1239 - 0.8e1 / 0.9e1 * t150 * t1231 * t1243 + 0.4e1 / 0.27e2 * t150 * t402 * t1314 + 0.8e1 / 0.3e1 * t150 * t4495 * t4496 - 0.4e1 * t150 * t1238 * t409 * t465 + 0.2e1 / 0.3e1 * t150 * t408 * t4504 + 0.8e1 / 0.9e1 * t150 * t408 * t190 * t1314 - t150 * t153 * t4601 / 0.9e1; t4628 = 0.26528482404271520064e5 * t4458 * t4459 - 0.22738699203661302912e5 * t1370 * t393 * t469 + 0.18948916003051085760e4 * t487 * t4465 + 0.25265221337401447680e4 * t1373 * t1318 - 0.1263261066870072384e3 * t203 * t4605 + 0.54117835529847747840e4 * t1370 * t4459 - 0.54117835529847747840e4 * t488 * t469 + 0.5411783552984774784e3 * t203 * t4465 + 0.7215711403979699712e3 * t204 * t1318 - 0.450981962748731232e2 * t123 * t4605 + 0.214651755574560e3 * t487 * t4459 - 0.257582106689472e3 * t492 * t469 + 0.32197763336184e2 * t123 * t4465 + 0.42930351114912e2 * t206 * t1318 - 0.3577529259576e1 * t126 * t4605; t4632 = t368 * t483; t4636 = t1207 * t1192; t4638 = t393 * t480; t4642 = t469 * t131; t4643 = t1337 * t4642; t4645 = t1337 * t476; t4647 = t500 * t500; t4652 = t385 * t120 * t131; t4654 = t194 * t1352; t4660 = -0.25000000000000000000e0 * t4 * (-t4436 + t4438 - t4442) * t132 + 0.15000000000000000000e1 * t386 * t501 - 0.10819892520000000000e2 * t386 * t395 - 0.20000000000000000000e1 * t4452 + 0.10819892520000000000e2 * t522 * t1365 * t500 + 0.25000000000000000000e0 * t145 * t201 * t4628 - 0.12000000000000000000e2 * t4632 - 0.10819892520000000000e2 * t1323 * t1213 - 0.21639785040000000000e2 * t4636 - 0.21639785040000000000e2 * t522 * t4638 * t482 + 0.10819892520000000000e2 * t4643 - 0.21639785040000000000e2 * t4645 - 0.15000000000000000000e1 * t145 * t481 * t4647 - 0.30000000000000000000e1 * t4652 - 0.21639785040000000000e2 * t474 * t4654 * t1354 - 0.21639785040000000000e2 * t1500 * t1204; t4661 = t469 * t480; t4667 = t8 * t1320; t4669 = t210 * t500; t4673 = t368 * t501; t4681 = t393 * t131; t4685 = t8 * t1391; t4687 = t1492 * t1204; t4692 = t7 * t126; t4693 = t4692 * t4681; t4695 = t1318 * t200; t4699 = t1326 * t200; t4703 = t368 * t128; t4704 = t4703 * t476; t4708 = 0.10819892520000000000e2 * t474 * t4661 * t482 + 0.21639785040000000000e2 * t1323 * t1196 + 0.72132616800000000000e1 * t4667 + 0.21639785040000000000e2 * t474 * t1195 * t4669 + 0.60000000000000000000e1 * t4673 - 0.20000000000000000000e1 * t538 * t480 * t1390 * t210 + 0.10000000000000000000e1 * t142 * t1391 + 0.32459677560000000000e2 * t1517 * t4681 * t469 + 0.20000000000000000000e1 * t4685 - 0.43279570080000000000e2 * t4687 - 0.54099462600000000000e1 * t474 * t1212 * t500 - 0.21639785040000000000e2 * t4693 - 0.36066308400000000000e1 * t474 * t4695 * t210 - 0.21639785040000000000e2 * t1517 * t4699 * t210 - 0.43279570080000000000e2 * t4704 + 0.21639785040000000000e2 * t1500 * t1366; t4710 = t1478 * t1359; t4718 = t1331 * t196; t4723 = t368 * t395; t4733 = t368 * t471; t4735 = t1207 * t1196; t4740 = t1362 * t1334; t4742 = t141 * t128; t4743 = t4742 * t1203; t4745 = t1331 * t211; t4747 = -0.12000000000000000000e2 * t4710 + 0.54099462600000000000e1 * t386 * t471 + 0.36066308400000000000e1 * t1348 * t196 + 0.36066308400000000000e1 * t142 * t1320 + 0.21639785040000000000e2 * t4718 - 0.72132616800000000000e1 * t522 * t1203 * t1318 - 0.43279570080000000000e2 * t4723 + 0.90000000000000000000e1 * t538 * t1352 * t482 * t500 - 0.60000000000000000000e1 * t1473 * t1359 - 0.30000000000000000000e1 * t386 * t483 + 0.21639785040000000000e2 * t4733 + 0.43279570080000000000e2 * t4735 - 0.36066308400000000000e1 * t474 * t475 * t1390 + 0.60000000000000000000e1 * t4740 + 0.21639785040000000000e2 * t4743 + 0.60000000000000000000e1 * t4745; t4751 = t371 * t200 * t500; t4756 = t371 * t480 * t482; t4758 = t386 * t128; t4765 = t1207 * t1213; t4774 = t1492 * t1366; t4779 = 0.1e1 / t1351 / t130; t4780 = t120 * t4779; t4781 = t482 * t482; t4785 = t8 * t1355; t4793 = t8 * t1328; t4795 = -0.10819892520000000000e2 * t1323 * t1192 + 0.30000000000000000000e1 * t4751 + 0.10000000000000000000e1 * t1348 * t211 - 0.60000000000000000000e1 * t4756 - 0.10819892520000000000e2 * t4758 * t476 - 0.21639785040000000000e2 * t145 * t203 * t4459 * t131 - 0.21639785040000000000e2 * t4765 + 0.90165771000000000000e0 * t145 * t128 * t4605 * t131 + 0.21639785040000000000e2 * t522 * t1212 * t1432 + 0.43279570080000000000e2 * t4774 + 0.21639785040000000000e2 * t142 * t1328 - 0.60000000000000000000e1 * t145 * t4780 * t4781 + 0.12000000000000000000e2 * t4785 - 0.54099462600000000000e1 * t145 * t126 * t4465 * t131 + 0.60000000000000000000e1 * t142 * t1355 + 0.43279570080000000000e2 * t4793; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[0] = t4660 + t4708 + t4747 + t4795; t4813 = t1207 * t1511; t4821 = t507 * t128; t4822 = t4821 * t476; t4831 = t507 * t501; t4834 = t1492 * t1507; t4836 = 0.54099462600000000000e1 * t522 * t527 * t194 * t500 + 0.54099462600000000000e1 * t474 * t4661 * t1428 + 0.54099462600000000000e1 * t522 * t1212 * t1611 + 0.10819892520000000000e2 * t1500 * t1433 + 0.54099462600000000000e1 * t522 * t527 * t469 * t210 + 0.10819892520000000000e2 * t4813 - 0.50000000000000000000e0 * t4452 + 0.45000000000000000000e1 * t538 * t1352 * t550 * t482 - 0.30000000000000000000e1 * t4632 - 0.10819892520000000000e2 * t4822 + 0.54099462600000000000e1 * t1446 * t1196 - 0.18033154200000000000e1 * t522 * t523 * t1318 - 0.54099462600000000000e1 * t1323 * t1397 + 0.15000000000000000000e1 * t4831 - 0.54099462600000000000e1 * t4636 + 0.10819892520000000000e2 * t4834; t4839 = t1331 * t268; t4843 = t1478 * t1407; t4848 = t1492 * t1503; t4851 = t386 * t120; t4865 = t386 * t126; t4874 = -0.15000000000000000000e1 * t511 * t483 + 0.54099462600000000000e1 * t4839 + 0.54099462600000000000e1 * t1323 * t1511 - 0.60000000000000000000e1 * t4843 + 0.54099462600000000000e1 * t522 * t1365 * t550 - 0.10819892520000000000e2 * t4848 + 0.54099462600000000000e1 * t4643 - 0.15000000000000000000e1 * t4851 * t540 - 0.27049731300000000000e1 * t4758 * t535 - 0.10819892520000000000e2 * t4645 - 0.10819892520000000000e2 * t522 * t1510 * t482 * t194 - 0.15000000000000000000e1 * t1473 * t1470 + 0.25000000000000000000e0 * t1348 * t278 - 0.54099462600000000000e1 * t4865 * t524 - 0.27049731300000000000e1 * t4758 * t528 - 0.60000000000000000000e1 * t538 * t4779 * t277 * t1354; t4877 = t4703 * t528; t4884 = t194 * t469; t4891 = t277 * t500; t4909 = t145 * t203; t4916 = -0.15000000000000000000e1 * t4652 - 0.10819892520000000000e2 * t4877 + 0.90165771000000000000e0 * t1348 * t268 - 0.54099462600000000000e1 * t1517 * t4699 * t277 + 0.16229838780000000000e2 * t1517 * t523 * t4884 + 0.54099462600000000000e1 * t474 * t1510 * t4669 + 0.54099462600000000000e1 * t474 * t1195 * t4891 + 0.75000000000000000000e0 * t1524 * t211 - 0.27049731300000000000e1 * t474 * t1212 * t550 - 0.27049731300000000000e1 * t474 * t475 * t1466 + 0.18033154200000000000e1 * t4667 - 0.27049731300000000000e1 * t1323 * t1410 - 0.90165771000000000000e0 * t474 * t4695 * t277 - 0.21639785040000000000e2 * t4909 * t523 * t1326 + 0.27049731300000000000e1 * t1524 * t196 + 0.15000000000000000000e1 * t4673; t4917 = t1207 * t1429; t4919 = t550 * t210; t4923 = t8 * t123; t4924 = t4923 * t1518; t4926 = t1207 * t1534; t4928 = t277 * t482; t4944 = t1207 * t1397; t4946 = t4742 * t523; t4947 = 0.54099462600000000000e1 * t4946; t4948 = t368 * t126; t4949 = t4948 * t524; t4953 = t511 * t128; t4956 = 0.21639785040000000000e2 * t4917 + 0.10819892520000000000e2 * t474 * t1195 * t4919 + 0.32459677560000000000e2 * t4924 - 0.54099462600000000000e1 * t4926 - 0.16229838780000000000e2 * t474 * t4654 * t4928 + 0.45000000000000000000e1 * t538 * t1484 * t4669 + 0.50000000000000000000e0 * t4685 - 0.10819892520000000000e2 * t4687 + 0.27049731300000000000e1 * t511 * t471 + 0.90165771000000000000e0 * t216 * t1320 + 0.75000000000000000000e0 * t511 * t501 - 0.10819892520000000000e2 * t4693 - 0.10819892520000000000e2 * t4944 + t4947 - 0.21639785040000000000e2 * t4949 - 0.54099462600000000000e1 * t1500 * t1503 - 0.54099462600000000000e1 * t4953 * t476; t4961 = t8 * t1467; t4963 = t368 * t120; t4964 = t4963 * t540; t4967 = t1478 * t1485; t4974 = t1478 * t1470; t4980 = t1362 * t1420; t4981 = 0.15000000000000000000e1 * t4980; t4982 = t1527 * t211; t4984 = t1527 * t196; t4988 = t142 * t123; t4991 = -0.54099462600000000000e1 * t1632 * t1204 + 0.15000000000000000000e1 * t4961 - 0.60000000000000000000e1 * t4964 - 0.10819892520000000000e2 * t4704 + 0.90000000000000000000e1 * t4967 - 0.27049731300000000000e1 * t1446 * t1213 - 0.30000000000000000000e1 * t4710 - 0.27049731300000000000e1 * t1446 * t1192 - 0.30000000000000000000e1 * t4974 - 0.54099462600000000000e1 * t511 * t395 + 0.54099462600000000000e1 * t216 * t1328 + t4981 + 0.30000000000000000000e1 * t4982 + 0.10819892520000000000e2 * t4984 + 0.25000000000000000000e0 * t216 * t1391 + 0.16229838780000000000e2 * t4988 * t1518; t5024 = t4703 * t535; t5027 = t507 * t471; t5038 = t1337 * t535; t5039 = 0.54099462600000000000e1 * t5038; t5040 = 0.54099462600000000000e1 * t4718 + 0.54099462600000000000e1 * t1632 * t1366 + 0.75000000000000000000e0 * t142 * t1467 - 0.10819892520000000000e2 * t4723 + 0.25000000000000000000e0 * t145 * t201 * (0.26528482404271520064e5 * t4458 * t266 * t1326 - 0.11369349601830651456e5 * t1453 * t4884 + 0.6316305334350361920e3 * t543 * t1318 + 0.54117835529847747840e4 * t1453 * t1326 - 0.27058917764923873920e4 * t543 * t4884 + 0.1803927850994924928e3 * t271 * t1318 + 0.214651755574560e3 * t543 * t1326 - 0.128791053344736e3 * t271 * t4884 + 0.10732587778728e2 * t273 * t1318) + 0.54099462600000000000e1 * t4733 + 0.54099462600000000000e1 * t1500 * t1507 - 0.10819892520000000000e2 * t5024 + 0.10819892520000000000e2 * t4735 + 0.54099462600000000000e1 * t5027 + 0.30000000000000000000e1 * t4740 + 0.10819892520000000000e2 * t4743 - 0.50000000000000000000e0 * t538 * t539 * t1390 + 0.15000000000000000000e1 * t4745 - 0.15000000000000000000e1 * t538 * t1406 * t500 - t5039; t5044 = t200 * t550; t5045 = t371 * t5044; t5046 = 0.15000000000000000000e1 * t5045; t5048 = t1207 * t1410; t5054 = t371 * t540; t5055 = 0.30000000000000000000e1 * t5054; t5056 = t215 * t128; t5057 = t5056 * t1203; t5058 = 0.54099462600000000000e1 * t5057; t5061 = t1514 * t1334; t5062 = 0.15000000000000000000e1 * t5061; t5064 = t3 * t1523 * t132; t5067 = t4692 * t524; t5068 = 0.10819892520000000000e2 * t5067; t5069 = t1337 * t528; t5070 = 0.54099462600000000000e1 * t5069; t5074 = t510 * t120 * t131; t5075 = 0.15000000000000000000e1 * t5074; t5076 = t507 * t395; t5078 = 0.45000000000000000000e1 * t1473 * t1485 + t5046 + 0.15000000000000000000e1 * t4751 - 0.54099462600000000000e1 * t5048 - 0.15000000000000000000e1 * t538 * t480 * t1466 * t210 - t5055 + t5058 - 0.15000000000000000000e1 * t1547 * t1359 + t5062 - 0.15000000000000000000e1 * t5064 - 0.30000000000000000000e1 * t4756 - t5068 - t5070 - 0.30000000000000000000e1 * t1473 * t1407 - t5075 - 0.10819892520000000000e2 * t5076; t5086 = 0.96e2 * t4437; t5098 = t1492 * t1433; t5106 = t1331 * t278; t5108 = t368 * t551; t5110 = t266 * t1352; t5114 = t507 * t483; t5118 = -0.27049731300000000000e1 * t1323 * t1534 + 0.15000000000000000000e1 * t216 * t1355 - 0.90165771000000000000e0 * t474 * t527 * t1390 - 0.25000000000000000000e0 * t4 * (t5086 - t4442) * t132 - 0.16229838780000000000e2 * t1517 * t527 * t393 * t210 - 0.10819892520000000000e2 * t522 * t4638 * t1428 + 0.21639785040000000000e2 * t5098 + 0.10819892520000000000e2 * t1323 * t1429 - 0.54099462600000000000e1 * t4765 + 0.75000000000000000000e0 * t386 * t551 + 0.10819892520000000000e2 * t4774 + 0.15000000000000000000e1 * t5106 + 0.30000000000000000000e1 * t5108 - 0.54099462600000000000e1 * t474 * t5110 * t1354 - 0.30000000000000000000e1 * t5114 + 0.30000000000000000000e1 * t4785 + 0.10819892520000000000e2 * t4793; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[1] = t4836 + t4874 + t4916 + t4956 + t4991 + t5040 + t5078 + t5118; t5125 = t4821 * t528; t5132 = t216 * t123; t5136 = t368 * t567; t5168 = 0.26528482404271520064e5 * t4458 * t565 * t393 - 0.37897832006102171520e4 * t1561 * t469 - 0.37897832006102171520e4 * t1370 * t639 * t393 + 0.6316305334350361920e3 * t1564 * t469 + 0.54117835529847747840e4 * t1561 * t393 - 0.9019639254974624640e3 * t651 * t469 - 0.9019639254974624640e3 * t1564 * t393 + 0.1803927850994924928e3 * t653 * t469 + 0.214651755574560e3 * t651 * t393 - 0.42930351114912e2 * t655 * t469 - 0.42930351114912e2 * t653 * t393 + 0.10732587778728e2 * t657 * t469; t5172 = t511 * t120; t5179 = t1207 * t1586; t5181 = t1478 * t1579; t5187 = t368 * t641; t5189 = t511 * t126; t5192 = -0.60000000000000000000e1 * t538 * t4779 * t647 * t482 - 0.72132616800000000000e1 * t5125 - 0.18033154200000000000e1 * t474 * t475 * t1575 + 0.50000000000000000000e0 * t1641 * t211 + 0.10819892520000000000e2 * t5132 * t1518 + 0.72132616800000000000e1 * t4813 - 0.72132616800000000000e1 * t5136 + 0.15000000000000000000e1 * t538 * t1352 * t663 * t482 + 0.25000000000000000000e0 * t145 * t201 * t5168 - 0.20000000000000000000e1 * t5172 * t540 - 0.72132616800000000000e1 * t4822 - 0.18033154200000000000e1 * t474 * t527 * t1466 + 0.72132616800000000000e1 * t5179 - 0.40000000000000000000e1 * t5181 + 0.10000000000000000000e1 * t4831 + 0.72132616800000000000e1 * t4834 + 0.36066308400000000000e1 * t4839 - 0.40000000000000000000e1 * t4843 + 0.36066308400000000000e1 * t5187 - 0.72132616800000000000e1 * t5189 * t524; t5195 = t4703 * t644; t5197 = t663 * t210; t5202 = t507 * t551; t5214 = t565 * t480; t5232 = t1527 * t278; t5234 = -0.18033154200000000000e1 * t1446 * t1410 - 0.72132616800000000000e1 * t5195 + 0.36066308400000000000e1 * t474 * t1195 * t5197 - 0.72132616800000000000e1 * t4848 + 0.20000000000000000000e1 * t5202 + 0.18033154200000000000e1 * t4643 - 0.90165771000000000000e0 * t474 * t1212 * t663 - 0.36066308400000000000e1 * t4645 - 0.50000000000000000000e0 * t386 * t648 - 0.36066308400000000000e1 * t1446 * t1397 - 0.50000000000000000000e0 * t4652 - 0.36066308400000000000e1 * t522 * t5214 * t482 - 0.36066308400000000000e1 * t4953 * t528 + 0.36066308400000000000e1 * t522 * t1539 * t1432 + 0.90165771000000000000e0 * t386 * t641 - 0.72132616800000000000e1 * t4877 + 0.10819892520000000000e2 * t4988 * t1653 - 0.36066308400000000000e1 * t1323 * t1554 - 0.20000000000000000000e1 * t1547 * t1407 + 0.20000000000000000000e1 * t5232; t5241 = t5056 * t523; t5243 = t1337 * t644; t5245 = t1478 * t1591; t5249 = t4821 * t535; t5255 = t558 * t128; t5264 = t368 * t664; t5276 = -0.10000000000000000000e1 * t1473 * t1591 - 0.10000000000000000000e1 * t538 * t539 * t1466 + 0.36066308400000000000e1 * t5241 - 0.36066308400000000000e1 * t5243 - 0.20000000000000000000e1 * t5245 - 0.18033154200000000000e1 * t1323 * t1596 - 0.72132616800000000000e1 * t5249 + 0.14426523360000000000e2 * t4917 + 0.54099462600000000000e1 * t1517 * t1543 * t393 - 0.18033154200000000000e1 * t5255 * t476 + 0.21639785040000000000e2 * t4924 - 0.36066308400000000000e1 * t4926 + 0.36066308400000000000e1 * t1323 * t1586 + 0.25000000000000000000e0 * t558 * t501 + 0.10000000000000000000e1 * t5264 + 0.36066308400000000000e1 * t1500 * t1649 - 0.18033154200000000000e1 * t4758 * t644 + 0.30000000000000000000e1 * t1473 * t1558 + 0.15000000000000000000e1 * t538 * t1557 * t500 - 0.36066308400000000000e1 * t4693; t5282 = t1527 * t268; t5285 = t647 * t210; t5289 = t1492 * t1544; t5294 = t1644 * t196; t5297 = t507 * t126; t5298 = t5297 * t524; t5309 = t1207 * t1596; t5315 = 0.36066308400000000000e1 * t5294 - 0.20000000000000000000e1 * t4974 - 0.14426523360000000000e2 * t5298 - 0.50000000000000000000e0 * t538 * t1590 * t500 - 0.18033154200000000000e1 * t1446 * t1534 + 0.20000000000000000000e1 * t4980 + 0.20000000000000000000e1 * t4982 + 0.18033154200000000000e1 * t1524 * t268 - 0.36066308400000000000e1 * t5309 + 0.72132616800000000000e1 * t4984 - 0.18033154200000000000e1 * t522 * t1543 * t469; t5324 = t557 * t120 * t131; t5328 = t1207 * t1608; t5330 = t1492 * t1612; t5343 = t8 * t1576; t5356 = t200 * t663; t5357 = t371 * t5356; t5359 = t639 * t480; t5363 = -0.10000000000000000000e1 * t538 * t480 * t1575 * t210 - 0.50000000000000000000e0 * t5324 - 0.36066308400000000000e1 * t4953 * t535 + 0.14426523360000000000e2 * t5328 + 0.14426523360000000000e2 * t5330 + 0.50000000000000000000e0 * t142 * t1576 - 0.20000000000000000000e1 * t1473 * t1579 - 0.36066308400000000000e1 * t1632 * t1503 + 0.60000000000000000000e1 * t538 * t1484 * t4919 - 0.10000000000000000000e1 * t1547 * t1470 + 0.10000000000000000000e1 * t5343 - 0.21639785040000000000e2 * t4909 * t1652 * t393 - 0.72132616800000000000e1 * t5024 - 0.18033154200000000000e1 * t386 * t567 + 0.36066308400000000000e1 * t5027 + 0.10000000000000000000e1 * t4740 + 0.36066308400000000000e1 * t4743 + 0.36066308400000000000e1 * t1632 * t1507 + 0.50000000000000000000e0 * t5357 + 0.18033154200000000000e1 * t474 * t5359 * t482; t5367 = t1644 * t211; t5370 = t1207 * t1540; t5374 = t1207 * t1554; t5385 = t1337 * t1543; t5400 = -0.40000000000000000000e1 * t5054 + 0.72132616800000000000e1 * t5057 + 0.20000000000000000000e1 * t5061 + 0.18033154200000000000e1 * t5385 - 0.10000000000000000000e1 * t5064 - 0.10000000000000000000e1 * t4756 - 0.36066308400000000000e1 * t1500 * t1544 - 0.14426523360000000000e2 * t5067 - 0.72132616800000000000e1 * t5069 + 0.36066308400000000000e1 * t474 * t1510 * t4891 + 0.36066308400000000000e1 * t522 * t527 * t277 * t469; t5405 = t368 * t648; t5413 = t1492 * t1649; t5415 = t4923 * t1653; t5451 = -0.50000000000000000000e0 * t558 * t483 - 0.20000000000000000000e1 * t5405 + 0.72132616800000000000e1 * t1500 * t1612 + 0.72132616800000000000e1 * t1323 * t1608 + 0.50000000000000000000e0 * t1524 * t278 + 0.72132616800000000000e1 * t5413 + 0.21639785040000000000e2 * t5415 - 0.20000000000000000000e1 * t5074 + 0.90165771000000000000e0 * t558 * t471 - 0.72132616800000000000e1 * t5076 - 0.36066308400000000000e1 * t522 * t4638 * t647 + 0.54099462600000000000e1 * t1517 * t1652 * t469 + 0.18033154200000000000e1 * t522 * t1648 * t500 + 0.18033154200000000000e1 * t1641 * t196 + 0.72132616800000000000e1 * t1446 * t1429 - 0.10819892520000000000e2 * t1517 * t1648 * t1432 + 0.72132616800000000000e1 * t522 * t527 * t550 * t194 + 0.72132616800000000000e1 * t474 * t1510 * t4919 - 0.10819892520000000000e2 * t1517 * t527 * t277 * t393 - 0.10819892520000000000e2 * t474 * t5110 * t4928; t5452 = t277 * t550; t5459 = t145 * t275; t5462 = t1514 * t1420; t5469 = t480 * t647; t5470 = t371 * t5469; t5480 = t4692 * t1652; t5487 = t1478 * t1558; t5490 = t550 * t550; t5496 = t3 * t1640 * t132; t5501 = t507 * t120; t5502 = t5501 * t540; t5504 = -0.36066308400000000000e1 * t5480 + 0.18033154200000000000e1 * t474 * t4661 * t647 + 0.72132616800000000000e1 * t1632 * t1433 + 0.60000000000000000000e1 * t5487 + 0.10000000000000000000e1 * t5106 - 0.10000000000000000000e1 * t145 * t481 * t5490 + 0.20000000000000000000e1 * t5108 - 0.10000000000000000000e1 * t5496 - 0.20000000000000000000e1 * t5114 + 0.25000000000000000000e0 * t386 * t664 - 0.40000000000000000000e1 * t5502; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[2] = -0.14426523360000000000e2 * t4949 + t5504 + t5276 + 0.14426523360000000000e2 * t5098 - 0.72132616800000000000e1 * t5289 + 0.10000000000000000000e1 * t5367 + t5192 + 0.10000000000000000000e1 * t5462 - 0.72132616800000000000e1 * t5038 - 0.72132616800000000000e1 * t5374 - 0.10000000000000000000e1 * t5470 + t5451 + 0.50000000000000000000e0 * t4751 + t5234 + t5315 - 0.18033154200000000000e1 * t1323 * t1540 + 0.30000000000000000000e1 * t1547 * t1485 + 0.36066308400000000000e1 * t1446 * t1511 + 0.10000000000000000000e1 * t511 * t551 - 0.18033154200000000000e1 * t558 * t395 + 0.50000000000000000000e0 * t216 * t1467 - 0.14426523360000000000e2 * t5459 * t1429 + t5400 + t5363 - 0.36066308400000000000e1 * t5370 + 0.20000000000000000000e1 * t5045 + 0.10000000000000000000e1 * t4961 - 0.36066308400000000000e1 * t5048 - 0.72132616800000000000e1 * t4944 + 0.72132616800000000000e1 * t4946 + 0.72132616800000000000e1 * t5282 - 0.40000000000000000000e1 * t4964 + 0.60000000000000000000e1 * t4967 + 0.72132616800000000000e1 * t474 * t1195 * t5452 - 0.90165771000000000000e0 * t474 * t1539 * t500 - 0.25000000000000000000e0 * t4 * (0.24e2 * t382 - t4442) * t132 - 0.10819892520000000000e2 * t474 * t4654 * t5285 + 0.18033154200000000000e1 * t522 * t1365 * t663; t5508 = t480 * t1838; t5517 = t507 * t664; t5519 = t1492 * t1680; t5537 = -0.50000000000000000000e0 * t538 * t5508 * t210 - 0.15000000000000000000e1 * t1473 * t1669 - 0.10819892520000000000e2 * t5125 + 0.27049731300000000000e1 * t511 * t641 + 0.15000000000000000000e1 * t5517 + 0.10819892520000000000e2 * t5519 + 0.75000000000000000000e0 * t216 * t1576 - 0.15000000000000000000e1 * t538 * t539 * t1575 - 0.10819892520000000000e2 * t5136 + 0.10819892520000000000e2 * t5179 - 0.60000000000000000000e1 * t5181 + 0.54099462600000000000e1 * t1500 * t1680 - 0.54099462600000000000e1 * t1446 * t1554 + 0.54099462600000000000e1 * t5187 - 0.10819892520000000000e2 * t5195 - 0.27049731300000000000e1 * t1323 * t1808; t5539 = t1492 * t1677; t5547 = t1672 * t200; t5559 = t8 * t1796; t5564 = t1794 * t200; t5570 = 0.30000000000000000000e1 * t5202 - 0.10819892520000000000e2 * t5539 + 0.27049731300000000000e1 * t1641 * t268 - 0.54099462600000000000e1 * t511 * t567 + 0.54099462600000000000e1 * t1323 * t1691 - 0.54099462600000000000e1 * t1517 * t5547 * t210 - 0.54099462600000000000e1 * t1500 * t1677 + 0.45000000000000000000e1 * t1547 * t1558 + 0.15000000000000000000e1 * t142 * t1666 + 0.75000000000000000000e0 * t558 * t551 + 0.18033154200000000000e1 * t5559 - 0.30000000000000000000e1 * t1547 * t1579 + 0.30000000000000000000e1 * t5232 - 0.90165771000000000000e0 * t474 * t5564 * t210 + 0.10819892520000000000e2 * t5241 - 0.10819892520000000000e2 * t5243; t5577 = t1207 * t1813; t5583 = t277 * t663; t5602 = t1207 * t1808; t5604 = t1207 * t1691; t5609 = -0.18033154200000000000e1 * t522 * t1794 * t131 * t194 - 0.30000000000000000000e1 * t5245 - 0.54099462600000000000e1 * t5577 - 0.10819892520000000000e2 * t5249 + 0.45000000000000000000e1 * t538 * t1484 * t5197 + 0.54099462600000000000e1 * t474 * t1195 * t5583 + 0.54099462600000000000e1 * t522 * t527 * t663 * t194 + 0.54099462600000000000e1 * t474 * t1510 * t5197 - 0.27049731300000000000e1 * t474 * t1539 * t550 + 0.54099462600000000000e1 * t1446 * t1586 - 0.15000000000000000000e1 * t1547 * t1591 + 0.15000000000000000000e1 * t5264 - 0.54099462600000000000e1 * t5602 + t4947 + 0.10819892520000000000e2 * t5604 + 0.54099462600000000000e1 * t522 * t1648 * t550; t5614 = t1644 * t268; t5619 = t639 * t194; t5649 = t8 * t1674; t5661 = -0.27049731300000000000e1 * t5255 * t535 + 0.10819892520000000000e2 * t5282 - 0.10819892520000000000e2 * t5289 + 0.54099462600000000000e1 * t5614 + 0.25000000000000000000e0 * t145 * t201 * (0.26528482404271520064e5 * t4458 * t1672 * t194 - 0.11369349601830651456e5 * t1453 * t5619 + 0.6316305334350361920e3 * t487 * t1794 * t194 + 0.54117835529847747840e4 * t1820 * t194 - 0.27058917764923873920e4 * t543 * t5619 + 0.1803927850994924928e3 * t1824 * t194 + 0.214651755574560e3 * t1826 * t194 - 0.128791053344736e3 * t271 * t5619 + 0.10732587778728e2 * t1830 * t194) + 0.25000000000000000000e0 * t1803 * t211 + 0.54099462600000000000e1 * t5294 - 0.27049731300000000000e1 * t1446 * t1540 - 0.21639785040000000000e2 * t5298 - 0.54099462600000000000e1 * t1632 * t1544 + 0.10819892520000000000e2 * t5649 - 0.27049731300000000000e1 * t474 * t527 * t1575 + 0.16229838780000000000e2 * t5132 * t1653 - 0.27049731300000000000e1 * t5255 * t528 + t4981 - 0.54099462600000000000e1 * t5309 + 0.54099462600000000000e1 * t1632 * t1649; t5664 = t507 * t641; t5678 = t4821 * t644; t5691 = t1478 * t1669; t5697 = 0.54099462600000000000e1 * t5664 - 0.27049731300000000000e1 * t1446 * t1596 - 0.15000000000000000000e1 * t5324 - 0.90165771000000000000e0 * t474 * t475 * t1838 + 0.21639785040000000000e2 * t5328 + 0.21639785040000000000e2 * t5330 - 0.25000000000000000000e0 * t4 * (-t5086 - t4442) * t132 - 0.10819892520000000000e2 * t5678 + 0.25000000000000000000e0 * t142 * t1839 + 0.15000000000000000000e1 * t5343 + 0.90165771000000000000e0 * t1803 * t196 + 0.45000000000000000000e1 * t538 * t1557 * t550 + 0.54099462600000000000e1 * t522 * t1539 * t1611 - 0.30000000000000000000e1 * t5691 + 0.15000000000000000000e1 * t5357 - 0.54099462600000000000e1 * t474 * t4654 * t1665; t5699 = t558 * t120; t5715 = t558 * t126; t5720 = t507 * t567; t5728 = -t5039 + 0.15000000000000000000e1 * t5367 - 0.15000000000000000000e1 * t5699 * t540 - 0.21639785040000000000e2 * t4909 * t1672 * t131 * t194 + t5046 + 0.54099462600000000000e1 * t474 * t5359 * t1428 - 0.10819892520000000000e2 * t522 * t1510 * t647 * t194 - 0.54099462600000000000e1 * t5370 - 0.10819892520000000000e2 * t5374 - 0.54099462600000000000e1 * t5715 * t524 - 0.54099462600000000000e1 * t4953 * t644 - 0.10819892520000000000e2 * t5720 - 0.16229838780000000000e2 * t474 * t5110 * t5285 + 0.10819892520000000000e2 * t474 * t1510 * t5452 - t5055 + t5058; t5731 = t1644 * t278; t5755 = t5062 + 0.54099462600000000000e1 * t5385 - t5068 + 0.15000000000000000000e1 * t5731 - t5070 - 0.30000000000000000000e1 * t5405 + 0.16229838780000000000e2 * t1517 * t523 * t5619 - 0.16229838780000000000e2 * t1517 * t1648 * t1611 - 0.10819892520000000000e2 * t522 * t5214 * t1428 + 0.10819892520000000000e2 * t1446 * t1608 + 0.10819892520000000000e2 * t1632 * t1612 + 0.54099462600000000000e1 * t522 * t527 * t639 * t210 + 0.10819892520000000000e2 * t5413 + 0.32459677560000000000e2 * t5415 - t5075 - 0.27049731300000000000e1 * t1323 * t1813; t5756 = t8 * t1666; t5762 = t3 * t1802 * t132; t5779 = t8 * t1839; t5781 = t507 * t648; t5788 = 0.30000000000000000000e1 * t5756 + 0.75000000000000000000e0 * t511 * t664 + 0.30000000000000000000e1 * t5462 - 0.50000000000000000000e0 * t5762 - 0.30000000000000000000e1 * t5470 - 0.15000000000000000000e1 * t538 * t1406 * t663 - 0.10819892520000000000e2 * t5480 + 0.90165771000000000000e0 * t142 * t1796 + 0.90000000000000000000e1 * t5487 - 0.15000000000000000000e1 * t511 * t648 + 0.54099462600000000000e1 * t142 * t1674 + 0.75000000000000000000e0 * t1641 * t278 - 0.15000000000000000000e1 * t5496 + 0.50000000000000000000e0 * t5779 - 0.30000000000000000000e1 * t5781 - 0.60000000000000000000e1 * t5502 - 0.60000000000000000000e1 * t538 * t4779 * t1665 * t210; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[3] = t5537 + t5570 + t5609 + t5661 + t5697 + t5728 + t5755 + t5788; t5802 = t647 * t647; t5807 = t565 * t565; t5812 = t639 * t639; t5825 = t247 * t579; t5832 = t101 * t1097; t5842 = t73 * t3721; t5843 = t581 * t581; t5851 = t635 * t635; t5861 = t90 / t72 / t874; t5865 = 0.1e1 / t2689; t5869 = t594 * t226; t5871 = 0.1e1 / t76 / t5869; t5877 = t594 * t594; t5882 = t43 * t82; t5886 = 0.1e1 / t76 / t226; t5891 = 0.14334705075445816187e-1 * t43 * t5861; t5894 = t1750 * t244; t5897 = t607 * t613; t5902 = t241 * t1761; t5911 = t98 / t1760 / t109; t5912 = t615 * t615; t5918 = t633 * t633; t5941 = 0.1e1 / t255 / t1783 / t254; t5948 = (0.47272386831275720165e2 * t43 * t5861 * t82 - 0.13254471879286694102e4 * t593 * t5865 * t82 + 0.16893461362597165067e4 * t1735 * t5871 * t1740 - 0.57460752934003962812e3 * t421 * t1734 * sigma[2] / t72 / t5877 / rho[1] * t5882 + 0.2618e4 / 0.243e3 * t85 * t86 * t5886 - t5891) * t110 - 0.4e1 * t5894 * t260 + 0.12e2 * t5897 * t615 - 0.6e1 * t1752 * t633 - 0.24e2 * t5902 * t1763 + 0.24e2 * t1755 * t1766 - 0.4e1 * t609 * t1788 + 0.24e2 * t5911 * t5912 - 0.36e2 * t1762 * t615 * t633 + 0.6e1 * t614 * t5918 + 0.8e1 * t614 * t260 * t1788 - t245 * (0.73567695473251028803e0 * t54 * t99 * t94 * t105 + 0.13631756691604938272e2 * t24 * sigma[2] * t5886 * t256 - 0.37118709523050054497e2 * t43 * t5861 * t629 + 0.41814995283388186444e1 * t592 * t5865 * t1785 - 0.30251844539326121245e1 * t1734 * t5871 * t5941 * t19 * t23 + t5891); t5952 = 0.280e3 / 0.729e3 * t14 * t15 * t1770 * t113 + 0.112e3 / 0.243e3 * t150 * t619 * t224 * t262 + 0.16e2 / 0.27e2 * t150 * t5825 * t581 - 0.8e1 / 0.27e2 * t150 * t1703 * t635 + 0.8e1 / 0.9e1 * t150 * t5832 * t1715 - 0.8e1 / 0.9e1 * t150 * t1707 * t1719 + 0.4e1 / 0.27e2 * t150 * t574 * t1790 + 0.8e1 / 0.3e1 * t150 * t5842 * t5843 - 0.4e1 * t150 * t1714 * t581 * t635 + 0.2e1 / 0.3e1 * t150 * t580 * t5851 + 0.8e1 / 0.9e1 * t150 * t580 * t262 * t1790 - t150 * t225 * t5948 / 0.9e1; t5975 = 0.26528482404271520064e5 * t4458 * t5807 - 0.22738699203661302912e5 * t1561 * t639 + 0.18948916003051085760e4 * t487 * t5812 + 0.25265221337401447680e4 * t543 * t1794 - 0.1263261066870072384e3 * t203 * t5952 + 0.54117835529847747840e4 * t1370 * t5807 - 0.54117835529847747840e4 * t651 * t639 + 0.5411783552984774784e3 * t203 * t5812 + 0.7215711403979699712e3 * t271 * t1794 - 0.450981962748731232e2 * t123 * t5952 + 0.214651755574560e3 * t487 * t5807 - 0.257582106689472e3 * t655 * t639 + 0.32197763336184e2 * t123 * t5812 + 0.42930351114912e2 * t273 * t1794 - 0.3577529259576e1 * t126 * t5952; t5988 = t277 * t266; t5994 = 0.60000000000000000000e1 * t5517 + 0.43279570080000000000e2 * t5519 - 0.10819892520000000000e2 * t558 * t567 - 0.20000000000000000000e1 * t538 * t5508 * t277 - 0.10819892520000000000e2 * t1446 * t1808 - 0.21639785040000000000e2 * t1632 * t1677 - 0.60000000000000000000e1 * t145 * t4780 * t5802 - 0.43279570080000000000e2 * t5539 + 0.25000000000000000000e0 * t145 * t201 * t5975 + 0.10819892520000000000e2 * t522 * t1648 * t663 + 0.10000000000000000000e1 * t1803 * t278 + 0.72132616800000000000e1 * t5559 - 0.36066308400000000000e1 * t474 * t5564 * t277 + 0.21639785040000000000e2 * t522 * t1539 * t5988 + 0.21639785040000000000e2 * t5241 - 0.21639785040000000000e2 * t5243; t6026 = 0.21639785040000000000e2 * t474 * t1510 * t5583 - 0.21639785040000000000e2 * t5577 + 0.10819892520000000000e2 * t474 * t5359 * t647 - 0.21639785040000000000e2 * t5602 + 0.43279570080000000000e2 * t5604 - 0.72132616800000000000e1 * t522 * t523 * t1794 + 0.21639785040000000000e2 * t5614 + 0.43279570080000000000e2 * t5649 + 0.21639785040000000000e2 * t216 * t1674 + 0.21639785040000000000e2 * t5664 - 0.21639785040000000000e2 * t1517 * t5547 * t277 - 0.54099462600000000000e1 * t474 * t1539 * t663 - 0.30000000000000000000e1 * t5324 + 0.21639785040000000000e2 * t1446 * t1691 + 0.32459677560000000000e2 * t1517 * t1652 * t639 + 0.10000000000000000000e1 * t216 * t1839; t6060 = -0.43279570080000000000e2 * t5678 - 0.10819892520000000000e2 * t1446 * t1813 + 0.60000000000000000000e1 * t216 * t1666 - 0.21639785040000000000e2 * t474 * t5110 * t1665 - 0.10819892520000000000e2 * t5255 * t644 - 0.12000000000000000000e2 * t5691 + 0.15000000000000000000e1 * t558 * t664 + 0.30000000000000000000e1 * t5357 - 0.43279570080000000000e2 * t5720 + 0.10819892520000000000e2 * t5385 + 0.21639785040000000000e2 * t1632 * t1680 + 0.60000000000000000000e1 * t5731 - 0.54099462600000000000e1 * t145 * t126 * t5812 * t131 - 0.60000000000000000000e1 * t1547 * t1669 + 0.90165771000000000000e0 * t145 * t128 * t5952 * t131 + 0.90000000000000000000e1 * t538 * t1557 * t663; t6088 = t663 * t663; t6094 = -0.36066308400000000000e1 * t474 * t527 * t1838 + 0.12000000000000000000e2 * t5756 - 0.30000000000000000000e1 * t558 * t648 - 0.25000000000000000000e0 * t4 * (-t4436 - t4438 - t4442) * t132 + 0.60000000000000000000e1 * t5462 - 0.20000000000000000000e1 * t5762 - 0.60000000000000000000e1 * t5470 - 0.21639785040000000000e2 * t522 * t5214 * t647 - 0.21639785040000000000e2 * t5480 - 0.21639785040000000000e2 * t145 * t203 * t5807 * t131 + 0.36066308400000000000e1 * t1803 * t268 + 0.54099462600000000000e1 * t558 * t641 + 0.36066308400000000000e1 * t216 * t1796 - 0.15000000000000000000e1 * t145 * t481 * t6088 + 0.20000000000000000000e1 * t5779 - 0.12000000000000000000e2 * t5781; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[4] = t5994 + t6026 + t6060 + t6094; t6096 = t200 * t783; t6097 = t371 * t6096; t6102 = t145 * t313; t6110 = t2111 * t2139; t6112 = t667 * t2131; t6114 = t667 * t2126; t6116 = t146 * t968; t6120 = t18 * t3080; t6131 = t398 * t152; t6140 = t1478 * t2151; t6142 = t371 * t744; t6146 = t1478 * t1955; t6151 = 0.15000000000000000000e1 * t6097 - 0.54099462600000000000e1 * t1517 * t4699 * t325 + 0.24044205600000000000e1 * t6102 * t674 * t675 * t1326 + 0.60110514000000000000e0 * t2134 * t2120 * t2135 - 0.80147352000000000000e0 * t6110 - 0.12022102800000000000e1 * t6112 - 0.36066308400000000000e1 * t6114 + 0.60110514000000000000e0 * t283 * t6116 * t2125 + 0.24044205600000000000e1 * t283 * t6120 * t675 * t1239 + 0.60110514000000000000e0 * t670 * t2102 + 0.20036838000000000000e0 * t283 * t683 * t675 * t1314 + 0.13357892000000000000e0 * t283 * t6131 * t732 - 0.27049731300000000000e1 * t474 * t475 * t2057 + 0.75000000000000000000e0 * t386 * t784 + 0.90000000000000000000e1 * t6140 - 0.30000000000000000000e1 * t6142 - 0.15000000000000000000e1 * t4851 * t744 - 0.30000000000000000000e1 * t6146 - 0.90165771000000000000e0 * t474 * t4695 * t325; t6187 = t667 * t2107; t6191 = t368 * t784; t6193 = t480 * t2057; t6197 = t4742 * t14; t6198 = t6197 * t309; t6200 = t2061 * t728; t6202 = t2061 * t680; t6204 = t1231 * t306; t6208 = -0.40073676000000000000e0 * t670 * t2117 - 0.20036838000000000000e0 * t283 * t2116 * t2101 - 0.20036838000000000000e0 * t670 * t2121 + 0.60110514000000000000e0 * t283 * t683 * t2085 * t465 + 0.60110514000000000000e0 * t2092 * t2147 + 0.60110514000000000000e0 * t673 * t674 * t2085 * t469 + 0.20036838000000000000e0 * t673 * t674 * t675 * t1318 + 0.26715784000000000000e0 * t283 * t398 * t407 * t684 + 0.30055257000000000000e0 * t670 * t2143 + 0.30055257000000000000e0 * t283 * t674 * t2105 * t500 + 0.10018419000000000000e0 * t283 * t674 * t731 * t1390 + 0.12022102800000000000e1 * t6187 - 0.18033154200000000000e1 * t670 * t2126 + 0.30000000000000000000e1 * t6191 - 0.15000000000000000000e1 * t538 * t6193 * t210 - 0.60110514000000000000e0 * t6198 - 0.60110514000000000000e0 * t6200 + 0.20036838000000000000e0 * t6202 + 0.40073676000000000000e0 * t2075 * t6204 * t2077; t6215 = t1492 * t150; t6216 = t6215 * t2069; t6218 = t6215 * t2072; t6220 = t1207 * t150; t6221 = t6220 * t2078; t6227 = t1207 * t1949; t6235 = t325 * t482; t6242 = t1492 * t1952; t6250 = t783 * t210; t6257 = t8 * t2058; t6259 = t325 * t500; t6263 = t4963 * t744; t6265 = 0.12022102800000000000e1 * t2075 * t2067 * t480 * t190 * t482 - 0.48088411200000000000e1 * t6216 - 0.24044205600000000000e1 * t6218 - 0.24044205600000000000e1 * t6221 + 0.24044205600000000000e1 * t2066 * t2067 * t2076 * t1432 + 0.21639785040000000000e2 * t6227 - 0.15000000000000000000e1 * t538 * t2154 * t500 + 0.45000000000000000000e1 * t538 * t2150 * t4669 - 0.16229838780000000000e2 * t474 * t4654 * t6235 - 0.10819892520000000000e2 * t522 * t4638 * t1948 + 0.10819892520000000000e2 * t6242 - 0.27049731300000000000e1 * t1323 * t1930 - 0.15000000000000000000e1 * t1473 * t1955 - 0.54099462600000000000e1 * t1323 * t1936 + 0.10819892520000000000e2 * t474 * t1195 * t6250 - 0.50000000000000000000e0 * t538 * t743 * t1390 + 0.15000000000000000000e1 * t6257 + 0.54099462600000000000e1 * t474 * t1195 * t6259 - 0.60000000000000000000e1 * t6263; t6266 = t1231 * t1962; t6270 = t408 * t2014 * t194; t6274 = t408 * t2018 * t190; t6278 = t153 * t2022 * t194; t6282 = t408 * t2022 * t190; t6292 = t1238 * t2014 * t190; t6315 = t704 * t443; t6318 = t294 * t1285; t6343 = 0.34403292181069958848e-2 * t43 * sigma[0] * t1248; t6352 = t1883 * t172; t6387 = -t173 * (-0.84885802469135802470e-1 * t54 * t296 * t1294 * t61 - 0.25807694707407407406e1 * t24 * t1268 * t184 + 0.99339624583399221521e1 * t43 * t1248 * t459 * sigma[0] - 0.13664543101535782356e1 * t1254 * t1309 * t44 + 0.11344441702247295467e1 * t1262 * t4594 * t422 * t19 * t23 - t6343) - 0.3e1 * t1276 * t723 - 0.3e1 * t439 * t1920 - t706 * t1312 - t4547 * t304 - 0.3e1 * t6352 * t188 - 0.3e1 * t1885 * t463 + 0.24e2 * t4564 * t304 * t1287 - 0.18e2 * t1286 * t709 * t463 - 0.18e2 * t4555 * t1897 + (-0.11775432098765432099e2 * t43 * t1248 * t32 * sigma[0] + 0.39755658436213991769e3 * t421 * t1254 * t695 - 0.57532578875171467763e3 * t421 * t1262 * t422 * t1264 + 0.21547782350251486053e3 * t421 / t16 / t4530 * t1258 * t4535 - 0.154e3 / 0.81e2 * t35 * t23 * t1268 + t6343) * t66; t6389 = t152 * (-0.18e2 * t1286 * t723 * t445 + 0.2e1 * t444 * t304 * t1312 + 0.6e1 * t444 * t1920 * t188 + 0.6e1 * t444 * t723 * t463 + 0.12e2 * t1279 * t1900 + 0.6e1 * t1279 * t1903 - 0.6e1 * t6318 * t1287 + 0.6e1 * t1888 * t1290 + 0.6e1 * t6315 * t445 + 0.6e1 * t4550 * t709 + t6387); t6390 = t18 * t6389; t6393 = t1231 * t2009; t6396 = -0.47700390127680000000e1 * t769 * t6266 + 0.71550585191520000000e1 * t769 * t6270 + 0.14310117038304000000e2 * t769 * t6274 + 0.14310117038304000000e2 * t757 * t6278 + 0.71550585191520000000e1 * t769 * t6282 - 0.80174571155329996800e2 * t757 * t6266 + 0.24052371346598999040e3 * t757 * t6274 + 0.12026185673299499520e3 * t757 * t6270 + 0.90196392549746246400e2 * t769 * t6292 + 0.14036234076334137600e2 * t313 * t6390 + 0.15900130042560000000e1 * t778 * t6393; t6398 = t153 * t1922 * t194; t6402 = t408 * t1922 * t190; t6405 = t402 * t2018; t6414 = t4485 * t1991; t6418 = t1238 * t725 * t409; t6422 = t153 * t725 * t393; t6425 = t402 * t2022; t6430 = -0.60130928366497497600e2 * t757 * t6398 - 0.30065464183248748800e2 * t769 * t6402 + 0.40087285577664998400e2 * t757 * t6405 + 0.20043642788832499200e2 * t769 * t6393 - 0.21054351114501206400e3 * t749 * t6398 - 0.35775292595760000000e1 * t769 * t6398 - 0.23850195063840000000e1 * t778 * t6414 + 0.71550585191520000000e1 * t778 * t6418 + 0.14310117038304000000e2 * t757 * t6422 + 0.11925097531920000000e1 * t769 * t6425 - 0.30065464183248748800e2 * t769 * t6414; t6435 = t4495 * t306 * t1239; t6440 = t1227 * t750; t6443 = t4478 * t758; t6446 = t1231 * t2014; t6450 = t408 * t725 * t465; t6460 = t408 * t306 * t1314; t6463 = 0.90196392549746246400e2 * t769 * t6418 - 0.33686961783201930240e3 * t757 * t6435 + 0.56144936305336550400e2 * t757 * t6393 - 0.26724857051776665600e2 * t757 * t6440 - 0.13362428525888332800e2 * t769 * t6443 + 0.10021821394416249600e2 * t769 * t6446 - 0.30065464183248748800e2 * t769 * t6450 - 0.23850195063840000000e1 * t778 * t6402 + 0.23850195063840000000e1 * t769 * t6405 - 0.23850195063840000000e1 * t778 * t6450 - 0.79500650212800000000e0 * t778 * t6460; t6465 = t153 * t725 * t469; t6469 = t153 * t306 * t1318; t6490 = t1223 * t307; t6493 = -0.21054351114501206400e3 * t749 * t6465 - 0.70181170381670688000e2 * t749 * t6469 - 0.93574893842227584000e2 * t749 * t6440 - 0.10021821394416249600e2 * t769 * t6460 - 0.35775292595760000000e1 * t769 * t6465 - 0.11925097531920000000e1 * t769 * t6469 - 0.15900130042560000000e1 * t769 * t6440 - 0.10600086695040000000e1 * t778 * t6443 + 0.79500650212800000000e0 * t778 * t6446 - 0.84217404458004825600e2 * t757 * t6402 + 0.14036234076334137600e3 * t749 * t6405 - 0.14556094597679846400e2 * t313 * t6490; t6496 = t398 * t726; t6501 = t146 * t1923; t6519 = t1238 * t750 * t409; t6522 = 0.18714978768445516800e2 * t313 * t6496 - 0.51964999822899072000e1 * t318 * t6490 - 0.39750325106400000000e0 * t322 * t6501 + 0.53000433475200000000e0 * t322 * t6496 - 0.50109106972081248000e1 * t318 * t6501 + 0.66812142629441664000e1 * t318 * t6496 - 0.41222559369600000000e0 * t322 * t6490 - 0.14036234076334137600e2 * t313 * t6501 + 0.39750325106400000000e0 * t322 * t6390 + 0.50109106972081248000e1 * t318 * t6390 - 0.21465175557456000000e2 * t769 * t6519; t6530 = t4458 * t10 * t748; t6532 = t153 * t306 * t1326; t6535 = t402 * t1997; t6550 = -0.12632610668700723840e4 * t749 * t6519 - 0.36078557019898498560e3 * t757 * t6519 - 0.20043642788832499200e2 * t757 * t6469 - 0.29476091560301688960e4 * t6530 * t6532 - 0.42108702229002412800e3 * t1996 * t6535 - 0.12026185673299499520e3 * t769 * t6435 - 0.95400780255360000000e1 * t778 * t6435 - 0.60130928366497497600e3 * t1996 * t6532 - 0.10021821394416249600e3 * t749 * t6535 + 0.20043642788832499200e2 * t757 * t6425 - 0.23850195063840000000e2 * t749 * t6532; t6574 = -0.47700390127680000000e1 * t757 * t6535 + 0.30065464183248748800e3 * t749 * t6422 - 0.84217404458004825600e2 * t757 * t6414 + 0.25265221337401447680e3 * t757 * t6418 - 0.37429957536891033600e2 * t757 * t6443 + 0.12632610668700723840e4 * t1996 * t6422 + 0.70181170381670688000e2 * t749 * t6425 + 0.28072468152668275200e2 * t757 * t6446 - 0.84217404458004825600e2 * t757 * t6450 - 0.28072468152668275200e2 * t757 * t6460 - 0.60130928366497497600e2 * t757 * t6465; t6578 = t408 * t1997 * t190; t6601 = 0.42108702229002412800e3 * t749 * t6282 - 0.25265221337401447680e4 * t1996 * t6578 - 0.60130928366497497600e3 * t749 * t6578 + 0.12026185673299499520e3 * t757 * t6282 - 0.28620234076608000000e2 * t757 * t6578 + 0.42108702229002412800e3 * t749 * t6270 + 0.25265221337401447680e3 * t757 * t6292 + 0.30065464183248748800e3 * t749 * t6278 - 0.28072468152668275200e3 * t749 * t6266 + 0.71550585191520000000e1 * t778 * t6292 + 0.84217404458004825600e3 * t749 * t6274 + 0.12632610668700723840e4 * t1996 * t6278; t6608 = t667 * t1925; t6619 = t4692 * t150; t6621 = t6619 * t153 * t676; t6623 = t1337 * t150; t6625 = t6623 * t408 * t684; t6628 = t6623 * t153 * t732; t6630 = t1348 * t282; t6639 = t667 * t1856; t6644 = t1851 * t680; t6648 = t1851 * t728; t6650 = t667 * t1843; t6655 = 0.25000000000000000000e0 * t145 * t201 * (t6396 + t6430 + t6463 + t6493 + t6522 + t6550 + t6574 + t6601) - 0.60110514000000000000e0 * t6608 + 0.10018419000000000000e0 * t283 * t146 * t1924 - 0.30055257000000000000e0 * t670 * t1925 - 0.10018419000000000000e0 * t283 * t18 * t6389 * t131 + 0.12022102800000000000e1 * t6621 + 0.12022102800000000000e1 * t6625 + 0.60110514000000000000e0 * t6628 - 0.10018419000000000000e0 * t6630 * t309 - 0.30055257000000000000e0 * t1846 * t728 + 0.20036838000000000000e0 * t670 * t1843 - 0.13357892000000000000e0 * t670 * t1856 - 0.26715784000000000000e0 * t6639 + 0.10389471555555555556e0 * t283 * t1223 * t308 + 0.40073676000000000000e0 * t6644 + 0.10018419000000000000e0 * t1846 * t680 - 0.12022102800000000000e1 * t6648 + 0.40073676000000000000e0 * t6650 - 0.13357892000000000000e0 * t283 * t398 * t727; t6658 = t1331 * t282; t6659 = t6658 * t309; t6661 = t1238 * t306; t6667 = t1323 * t150; t6670 = t408 * t725; t6718 = t1500 * t150; t6728 = -0.60110514000000000000e0 * t6659 - 0.18033154200000000000e1 * t2075 * t6661 * t131 * t190 * t465 - 0.12022102800000000000e1 * t6667 * t2078 - 0.12022102800000000000e1 * t2075 * t6670 * t2077 - 0.60110514000000000000e0 * t2075 * t2067 * t200 * t465 * t210 - 0.60110514000000000000e0 * t2075 * t2067 * t2076 * t500 + 0.12022102800000000000e1 * t2066 * t1080 * t1196 + 0.36066308400000000000e1 * t2066 * t6661 * t131 * t409 * t194 + 0.18033154200000000000e1 * t2075 * t6661 * t200 * t409 * t210 - 0.60110514000000000000e0 * t2066 * t1080 * t1213 - 0.60110514000000000000e0 * t2075 * t1080 * t1359 + 0.36066308400000000000e1 * t2371 * t2067 * t4681 * t190 + 0.18033154200000000000e1 * t2371 * t1080 * t1366 - 0.18033154200000000000e1 * t2371 * t1080 * t1204 + 0.80147352000000000000e0 * t2066 * t6204 * t2068 + 0.40073676000000000000e0 * t2066 * t3285 * t476 - 0.24044205600000000000e1 * t6718 * t2069 - 0.24044205600000000000e1 * t2066 * t6670 * t2068 - 0.12022102800000000000e1 * t2066 * t2067 * t4642 * t190; t6745 = t1331 * t326; t6758 = t1337 * t740; t6762 = t4779 * t325; t6766 = t1207 * t1936; t6768 = t1207 * t1930; t6773 = t386 * t322; t6778 = -0.12022102800000000000e1 * t2066 * t2067 * t1203 * t465 - 0.12022102800000000000e1 * t6718 * t2072 - 0.12022102800000000000e1 * t2066 * t3294 * t476 - 0.60110514000000000000e0 * t2066 * t1080 * t1192 - 0.30000000000000000000e1 * t1473 * t2155 + 0.45000000000000000000e1 * t1473 * t2151 + 0.15000000000000000000e1 * t6745 + 0.54099462600000000000e1 * t522 * t1365 * t783 + 0.54099462600000000000e1 * t522 * t1212 * t2284 + 0.10819892520000000000e2 * t1323 * t1949 + 0.54099462600000000000e1 * t474 * t4661 * t1948 - 0.54099462600000000000e1 * t6758 + 0.54099462600000000000e1 * t1500 * t1952 - 0.60000000000000000000e1 * t538 * t6762 * t1354 - 0.10819892520000000000e2 * t6766 - 0.54099462600000000000e1 * t6768 - 0.20036838000000000000e0 * t283 * t2120 * t2106 + 0.60110514000000000000e0 * t6773 * t677 + 0.30055257000000000000e0 * t1846 * t733; t6786 = t368 * t322; t6787 = t6786 * t677; t6789 = t1922 * t200; t6800 = t1922 * t131; t6809 = t1352 * t783; t6815 = t4703 * t740; t6823 = t725 * t480; t6828 = t142 * t318; t6840 = 0.12022102800000000000e1 * t2092 * t2087 + 0.12022102800000000000e1 * t670 * t2098 + 0.60110514000000000000e0 * t670 * t2107 + 0.24044205600000000000e1 * t6787 + 0.30055257000000000000e0 * t283 * t674 * t6789 * t210 - 0.40073676000000000000e0 * t673 * t2120 * t2086 - 0.40073676000000000000e0 * t283 * t2116 * t2097 + 0.60110514000000000000e0 * t283 * t683 * t6800 * t190 + 0.60110514000000000000e0 * t673 * t674 * t6800 * t194 + 0.45000000000000000000e1 * t538 * t6809 * t482 + 0.75000000000000000000e0 * t142 * t2058 - 0.10819892520000000000e2 * t6815 - 0.18033154200000000000e1 * t283 * t2124 * t2085 * t409 - 0.60110514000000000000e0 * t670 * t2131 - 0.60110514000000000000e0 * t283 * t674 * t6823 * t482 - 0.18033154200000000000e1 * t6828 * t2136 - 0.18033154200000000000e1 * t2134 * t674 * t2085 * t393 - 0.40073676000000000000e0 * t2092 * t2139 - 0.20036838000000000000e0 * t673 * t2120 * t2146; t6841 = t1851 * t685; t6843 = t1851 * t733; t6845 = t2111 * t2087; t6847 = t667 * t2098; t6854 = t1362 * t1943; t6860 = t667 * t2102; t6862 = t667 * t2117; t6864 = t667 * t2121; t6866 = t667 * t2143; t6871 = t2111 * t2147; t6879 = t306 * t1352; t6884 = t8 * t318; t6885 = t6884 * t2136; t6887 = t1478 * t2155; t6889 = 0.24044205600000000000e1 * t6841 + 0.12022102800000000000e1 * t6843 + 0.24044205600000000000e1 * t6845 + 0.24044205600000000000e1 * t6847 + 0.60110514000000000000e0 * t1846 * t685 - 0.27049731300000000000e1 * t474 * t1212 * t783 + 0.15000000000000000000e1 * t6854 - 0.27049731300000000000e1 * t4758 * t740 + 0.25000000000000000000e0 * t1348 * t326 + 0.12022102800000000000e1 * t6860 - 0.80147352000000000000e0 * t6862 - 0.40073676000000000000e0 * t6864 + 0.60110514000000000000e0 * t6866 - 0.10018419000000000000e0 * t283 * t2120 * t2142 + 0.12022102800000000000e1 * t6871 + 0.26715784000000000000e0 * t673 * t6131 * t676 + 0.20036838000000000000e0 * t283 * t2120 * t2130 + 0.60110514000000000000e0 * t283 * t674 * t6879 * t1354 - 0.36066308400000000000e1 * t6885 - 0.60000000000000000000e1 * t6887; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[0] = t6151 + t6208 + t6265 + t6655 + t6728 + t6778 + t6840 + t6889; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[1] = 0.0e0; t6894 = t4703 * t806; t6896 = t1492 * t2192; t6898 = t1207 * t2172; t6900 = t1207 * t2186; t6905 = t371 * t810; t6926 = t821 * t210; t6936 = t364 * t482; t6940 = 0.54099462600000000000e1 * t1500 * t2192 - 0.10819892520000000000e2 * t6894 + 0.10819892520000000000e2 * t6896 + 0.21639785040000000000e2 * t6898 - 0.54099462600000000000e1 * t6900 - 0.54099462600000000000e1 * t1517 * t4699 * t364 - 0.30000000000000000000e1 * t6905 + 0.18033154200000000000e1 * t2371 * t1060 * t1366 - 0.18033154200000000000e1 * t2371 * t1060 * t1204 - 0.12022102800000000000e1 * t6718 * t2230 - 0.60110514000000000000e0 * t2066 * t1060 * t1213 - 0.60110514000000000000e0 * t2066 * t1060 * t1192 - 0.15000000000000000000e1 * t538 * t2220 * t500 - 0.15000000000000000000e1 * t1473 * t2189 + 0.10819892520000000000e2 * t474 * t1195 * t6926 + 0.54099462600000000000e1 * t522 * t1212 * t2587 + 0.54099462600000000000e1 * t474 * t4661 * t2171 - 0.16229838780000000000e2 * t474 * t4654 * t6936; t6943 = t4963 * t810; t6957 = t1478 * t2176; t6964 = t6197 * t354; t6980 = t667 * t2238; t6982 = t351 * t1352; t6987 = t2111 * t2234; t6989 = 0.45000000000000000000e1 * t1473 * t2176 - 0.60000000000000000000e1 * t6943 - 0.15000000000000000000e1 * t4851 * t810 - 0.27049731300000000000e1 * t474 * t1212 * t821 - 0.54099462600000000000e1 * t1323 * t2168 - 0.30000000000000000000e1 * t1473 * t2221 - 0.27049731300000000000e1 * t474 * t475 * t2214 + 0.90000000000000000000e1 * t6957 - 0.27049731300000000000e1 * t1323 * t2186 - 0.90165771000000000000e0 * t474 * t4695 * t364 - 0.60110514000000000000e0 * t6964 + 0.30055257000000000000e0 * t670 * t2238 + 0.60110514000000000000e0 * t2092 * t2234 + 0.20036838000000000000e0 * t673 * t791 * t792 * t1318 + 0.10018419000000000000e0 * t283 * t791 * t797 * t1390 - 0.60110514000000000000e0 * t670 * t2253 + 0.60110514000000000000e0 * t6980 + 0.60110514000000000000e0 * t283 * t791 * t6982 * t1354 + 0.12022102800000000000e1 * t6987; t6991 = t6884 * t2248; t6997 = t667 * t2253; t6999 = t6786 * t794; t7001 = t1851 * t799; t7009 = t6658 * t354; t7013 = t368 * t822; t7015 = t1478 * t2221; t7017 = t4779 * t364; t7024 = t480 * t2214; t7028 = t1337 * t806; t7033 = t6215 * t2230; t7038 = -0.36066308400000000000e1 * t6991 + 0.24044205600000000000e1 * t6102 * t791 * t792 * t1326 - 0.12022102800000000000e1 * t6997 + 0.24044205600000000000e1 * t6999 + 0.12022102800000000000e1 * t7001 - 0.18033154200000000000e1 * t6828 * t2248 + 0.60110514000000000000e0 * t6773 * t794 + 0.30055257000000000000e0 * t1846 * t799 - 0.60110514000000000000e0 * t7009 - 0.27049731300000000000e1 * t4758 * t806 + 0.30000000000000000000e1 * t7013 - 0.60000000000000000000e1 * t7015 - 0.60000000000000000000e1 * t538 * t7017 * t1354 + 0.54099462600000000000e1 * t522 * t1365 * t821 - 0.15000000000000000000e1 * t538 * t7024 * t210 - 0.54099462600000000000e1 * t7028 + 0.12022102800000000000e1 * t2066 * t1060 * t1196 - 0.24044205600000000000e1 * t7033 - 0.60110514000000000000e0 * t2075 * t1060 * t1359; t7042 = t225 * t351 * t1326; t7046 = t225 * t813 * t469; t7050 = t225 * t351 * t1318; t7072 = t1478 * t2189; t7074 = t1331 * t365; t7076 = t1352 * t821; t7080 = t1207 * t2168; t7086 = t8 * t2215; t7088 = t1362 * t2179; t7090 = t364 * t500; t7096 = t200 * t821; t7097 = t371 * t7096; t7100 = t6619 * t225 * t793; t7103 = t6623 * t225 * t798; t7113 = 0.75000000000000000000e0 * t142 * t2215 + 0.25000000000000000000e0 * t145 * t201 * (-0.29476091560301688960e4 * t6530 * t7042 + 0.12632610668700723840e4 * t1996 * t7046 - 0.70181170381670688000e2 * t749 * t7050 - 0.60130928366497497600e3 * t1996 * t7042 + 0.30065464183248748800e3 * t749 * t7046 - 0.20043642788832499200e2 * t757 * t7050 - 0.23850195063840000000e2 * t749 * t7042 + 0.14310117038304000000e2 * t757 * t7046 - 0.11925097531920000000e1 * t769 * t7050) - 0.50000000000000000000e0 * t538 * t809 * t1390 - 0.30000000000000000000e1 * t7072 + 0.15000000000000000000e1 * t7074 + 0.45000000000000000000e1 * t538 * t7076 * t482 - 0.10819892520000000000e2 * t7080 + 0.25000000000000000000e0 * t1348 * t365 + 0.75000000000000000000e0 * t386 * t822 + 0.15000000000000000000e1 * t7086 + 0.15000000000000000000e1 * t7088 + 0.54099462600000000000e1 * t474 * t1195 * t7090 + 0.10819892520000000000e2 * t1323 * t2172 + 0.15000000000000000000e1 * t7097 + 0.12022102800000000000e1 * t7100 + 0.60110514000000000000e0 * t7103 - 0.10018419000000000000e0 * t6630 * t354 + 0.45000000000000000000e1 * t538 * t2175 * t4669 - 0.10819892520000000000e2 * t522 * t4638 * t2171; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[2] = t6940 + t6989 + t7038 + t7113; t7120 = 0.10000000000000000000e1 * t507 * t784; t7131 = 0.40073676000000000000e0 * t2259 * t728; t7133 = 0.72132616800000000000e1 * t1207 * t2280; t7138 = 0.60000000000000000000e1 * t1478 * t2276; t7139 = 0.10000000000000000000e1 * t6097 + 0.18033154200000000000e1 * t474 * t4661 * t2279 + t7120 - 0.26715784000000000000e0 * t6110 - 0.40073676000000000000e0 * t6112 - 0.12022102800000000000e1 * t6114 - 0.60110514000000000000e0 * t825 * t2126 - 0.20036838000000000000e0 * t825 * t2131 + 0.66789460000000000000e-1 * t2269 * t680 - t7131 + t7133 - 0.36066308400000000000e1 * t522 * t4638 * t2279 + t7138; t7144 = 0.20000000000000000000e1 * t1478 * t2355; t7155 = 0.36066308400000000000e1 * t1207 * t2344; t7160 = t1446 * t150; t7163 = t1632 * t150; t7167 = t1514 * t1943; t7170 = -0.60000000000000000000e1 * t538 * t6762 * t4928 - t7144 - 0.50000000000000000000e0 * t538 * t743 * t1466 + 0.30000000000000000000e1 * t6140 + 0.36066308400000000000e1 * t522 * t527 * t783 * t194 - 0.20000000000000000000e1 * t6142 - t7155 - 0.50000000000000000000e0 * t538 * t2379 * t500 - 0.10000000000000000000e1 * t6146 - 0.40073676000000000000e0 * t7160 * t2078 - 0.80147352000000000000e0 * t7163 * t2069 + 0.40073676000000000000e0 * t6187 + 0.50000000000000000000e0 * t7167 + 0.10000000000000000000e1 * t6191; t7180 = 0.80147352000000000000e0 * t6220 * t2368; t7187 = t4909 * t150; t7217 = -0.54099462600000000000e1 * t474 * t5110 * t6235 - 0.54099462600000000000e1 * t1517 * t527 * t325 * t393 - t7180 + 0.13357892000000000000e0 * t2075 * t3285 * t540 + 0.60110514000000000000e0 * t2075 * t1080 * t1485 + 0.24044205600000000000e1 * t7187 * t1080 * t1518 + 0.13357892000000000000e0 * t2066 * t3285 * t535 + 0.40073676000000000000e0 * t2371 * t3285 * t524 + 0.12022102800000000000e1 * t2066 * t6661 * t523 * t409 + 0.60110514000000000000e0 * t2075 * t6661 * t1420 * t409 + 0.40073676000000000000e0 * t2066 * t1080 * t1511 + 0.60110514000000000000e0 * t2371 * t1080 * t1507 - 0.18033154200000000000e1 * t474 * t475 * t2331 + 0.30000000000000000000e1 * t538 * t6809 * t1428; t7218 = t325 * t550; t7244 = 0.36066308400000000000e1 * t474 * t1195 * t7218 + 0.50000000000000000000e0 * t142 * t2332 - 0.40073676000000000000e0 * t6198 - 0.40073676000000000000e0 * t6200 + 0.13357892000000000000e0 * t6202 - 0.10000000000000000000e1 * t1547 * t2155 + 0.18033154200000000000e1 * t522 * t527 * t325 * t469 - 0.72132616800000000000e1 * t5459 * t1949 + 0.40073676000000000000e0 * t2269 * t685 + 0.40073676000000000000e0 * t2401 * t2087 - 0.16029470400000000000e1 * t6216 - 0.80147352000000000000e0 * t6218 - 0.80147352000000000000e0 * t6221 + 0.36066308400000000000e1 * t1446 * t1949; t7252 = 0.36066308400000000000e1 * t4703 * t838; t7255 = t194 * t190; t7267 = t190 * t210; t7283 = 0.10000000000000000000e1 * t8 * t2332; t7287 = 0.36066308400000000000e1 * t1500 * t2285 + 0.36066308400000000000e1 * t1323 * t2288 - t7252 - 0.10000000000000000000e1 * t1473 * t2352 + 0.80147352000000000000e0 * t2066 * t2067 * t1420 * t7255 + 0.24044205600000000000e1 * t2371 * t2067 * t523 * t7255 + 0.12022102800000000000e1 * t2371 * t1080 * t1433 + 0.80147352000000000000e0 * t2066 * t2067 * t527 * t7267 + 0.80147352000000000000e0 * t2066 * t1080 * t1429 + 0.80147352000000000000e0 * t2075 * t2067 * t539 * t7267 + 0.30000000000000000000e1 * t538 * t2150 * t4919 + t7283 + 0.15000000000000000000e1 * t538 * t2150 * t4891; t7295 = t5056 * t14; t7296 = t7295 * t309; t7299 = 0.80147352000000000000e0 * t6786 * t829; t7306 = t511 * t322; t7310 = 0.40073676000000000000e0 * t667 * t2390; t7312 = 0.40073676000000000000e0 * t667 * t2398; t7316 = 0.80147352000000000000e0 * t2111 * t2384; t7317 = 0.72132616800000000000e1 * t6227 - 0.50000000000000000000e0 * t538 * t6193 * t277 - 0.10000000000000000000e1 * t1473 * t2380 + 0.36066308400000000000e1 * t6242 - 0.20036838000000000000e0 * t7296 + t7299 + 0.20036838000000000000e0 * t2269 * t733 + 0.40073676000000000000e0 * t825 * t2098 + 0.20036838000000000000e0 * t825 * t2107 + 0.40073676000000000000e0 * t7306 * t677 + t7310 + t7312 - 0.66789460000000000000e-1 * t670 * t2394 + t7316; t7326 = t783 * t277; t7334 = 0.20000000000000000000e1 * t1478 * t2352; t7336 = 0.10000000000000000000e1 * t368 * t853; t7345 = t145 * t195; t7354 = -0.13357892000000000000e0 * t2092 * t2412 - 0.13357892000000000000e0 * t673 * t2120 * t2383 - 0.18033154200000000000e1 * t1446 * t1936 + 0.36066308400000000000e1 * t474 * t1195 * t7326 + 0.18033154200000000000e1 * t522 * t1365 * t852 - t7334 + t7336 - 0.90165771000000000000e0 * t474 * t1212 * t852 - 0.50000000000000000000e0 * t4851 * t841 + 0.18033154200000000000e1 * t474 * t1510 * t6259 - 0.10819892520000000000e2 * t7345 * t2276 - 0.10000000000000000000e1 * t1473 * t2355 - 0.90165771000000000000e0 * t1446 * t1930 - 0.50000000000000000000e0 * t1547 * t1955; t7357 = 0.20000000000000000000e1 * t1478 * t2380; t7361 = t371 * t841; t7363 = t216 * t318; t7372 = 0.13357892000000000000e0 * t667 * t2394; t7377 = 0.26715784000000000000e0 * t2111 * t2412; t7388 = 0.50000000000000000000e0 * t6257 - t7357 + 0.36066308400000000000e1 * t474 * t1510 * t6250 - 0.10000000000000000000e1 * t7361 - 0.60110514000000000000e0 * t7363 * t2136 - 0.13357892000000000000e0 * t2401 * t2139 + 0.44526306666666666667e-1 * t283 * t6131 * t832 - t7372 + 0.89052613333333333333e-1 * t673 * t6131 * t828 - t7377 + 0.10018419000000000000e0 * t1846 * t833 + 0.20036838000000000000e0 * t670 * t2390 + 0.10018419000000000000e0 * t283 * t674 * t6789 * t277 + 0.10018419000000000000e0 * t825 * t2143; t7395 = 0.40073676000000000000e0 * t2259 * t733; t7405 = 0.40073676000000000000e0 * t1851 * t833; t7409 = 0.36066308400000000000e1 * t1207 * t2337; t7415 = 0.20000000000000000000e1 * t5501 * t744; t7416 = t1352 * t852; t7421 = 0.20036838000000000000e0 * t6773 * t829 + t7395 - 0.66789460000000000000e-1 * t283 * t2120 * t2397 + 0.20036838000000000000e0 * t670 * t2398 - 0.66789460000000000000e-1 * t283 * t2120 * t2389 + t7405 - 0.18033154200000000000e1 * t1323 * t2337 - t7409 - 0.18033154200000000000e1 * t1323 * t2344 + 0.15000000000000000000e1 * t1547 * t2151 - t7415 + 0.15000000000000000000e1 * t538 * t7416 * t482 - 0.20000000000000000000e1 * t6263; t7423 = 0.20000000000000000000e1 * t4963 * t841; t7424 = t480 * t2331; t7440 = t1337 * t838; t7444 = -t7423 - 0.10000000000000000000e1 * t538 * t7424 * t210 - 0.20036838000000000000e0 * t6608 + 0.80147352000000000000e0 * t6621 + 0.80147352000000000000e0 * t6625 + 0.40073676000000000000e0 * t6628 - 0.89052613333333333333e-1 * t6639 + 0.13357892000000000000e0 * t6644 - 0.40073676000000000000e0 * t6648 + 0.13357892000000000000e0 * t6650 - 0.20036838000000000000e0 * t6659 - 0.90165771000000000000e0 * t474 * t527 * t2057 - 0.18033154200000000000e1 * t7440 + 0.18033154200000000000e1 * t1632 * t1952; t7447 = 0.16029470400000000000e1 * t6215 * t2376; t7449 = 0.80147352000000000000e0 * t6215 * t2358; t7450 = t4988 * t150; t7483 = -t7447 - t7449 - 0.12022102800000000000e1 * t7450 * t2372 - 0.12022102800000000000e1 * t2371 * t3294 * t524 - 0.40073676000000000000e0 * t6718 * t2361 - 0.60110514000000000000e0 * t2371 * t1080 * t1503 + 0.26715784000000000000e0 * t2066 * t6204 * t2375 + 0.13357892000000000000e0 * t2066 * t3285 * t528 - 0.80147352000000000000e0 * t6718 * t2376 - 0.80147352000000000000e0 * t2066 * t6670 * t2375 - 0.40073676000000000000e0 * t2066 * t2067 * t523 * t465 - 0.40073676000000000000e0 * t6718 * t2358 - 0.40073676000000000000e0 * t6667 * t2368 - 0.40073676000000000000e0 * t2075 * t3294 * t540; t7490 = t4923 * t150; t7492 = 0.24044205600000000000e1 * t7490 * t2372; t7509 = 0.80147352000000000000e0 * t6215 * t2361; t7511 = 0.80147352000000000000e0 * t6220 * t2365; t7523 = -0.40073676000000000000e0 * t2075 * t1080 * t1407 - 0.20036838000000000000e0 * t2075 * t1080 * t1470 - t7492 - 0.40073676000000000000e0 * t2066 * t3294 * t535 - 0.40073676000000000000e0 * t2066 * t1080 * t1397 - 0.20036838000000000000e0 * t2066 * t1080 * t1410 - 0.40073676000000000000e0 * t2066 * t3294 * t528 - 0.20036838000000000000e0 * t2066 * t1080 * t1534 - t7509 - t7511 - 0.40073676000000000000e0 * t7163 * t2072 - 0.40073676000000000000e0 * t6667 * t2365 - 0.40073676000000000000e0 * t2075 * t6670 * t2364 - 0.40073676000000000000e0 * t2075 * t2067 * t5044 * t190; t7533 = t748 * t17; t7535 = t266 * t194; t7537 = t3289 * t7535 * t190; t7546 = t1227 * t844; t7554 = t1238 * t844 * t409; t7558 = t153 * t844 * t393; t7561 = t402 * t2300; t7565 = t408 * t844 * t465; t7569 = t153 * t2311 * t194; t7573 = t153 * t844 * t469; t7576 = t1231 * t2307; t7580 = t408 * t2311 * t190; t7591 = -0.16843480891600965120e4 * t1995 * t7533 * t7537 - 0.19080156051072000000e2 * t312 * t7533 * t7537 - 0.40087285577664998400e3 * t747 * t7533 * t7537 - 0.53000433475200000000e0 * t769 * t7546 - 0.89082856839255552000e1 * t757 * t7546 - 0.31191631280742528000e2 * t749 * t7546 - 0.42108702229002412800e3 * t749 * t7554 - 0.29476091560301688960e4 * t6530 * t7558 - 0.28072468152668275200e3 * t1996 * t7561 + 0.23850195063840000000e1 * t769 * t7565 + 0.95400780255360000000e1 * t757 * t7569 + 0.47700390127680000000e1 * t757 * t7573 - 0.15900130042560000000e1 * t769 * t7576 + 0.47700390127680000000e1 * t769 * t7580 - 0.26724857051776665600e2 * t757 * t7576 + 0.80174571155329996800e2 * t757 * t7580 + 0.40087285577664998400e2 * t757 * t7565 + 0.20043642788832499200e3 * t749 * t7569; t7616 = t402 * t2311; t7620 = t153 * t1922 * t266; t7631 = 0.10021821394416249600e3 * t749 * t7573 + 0.42108702229002412800e3 * t1996 * t7573 - 0.93574893842227584000e2 * t749 * t7576 + 0.28072468152668275200e3 * t749 * t7580 + 0.14036234076334137600e3 * t749 * t7565 + 0.84217404458004825600e3 * t1996 * t7569 - 0.71550585191520000000e1 * t769 * t7554 - 0.23850195063840000000e2 * t749 * t7558 - 0.31800260085120000000e1 * t757 * t7561 - 0.12026185673299499520e3 * t757 * t7554 - 0.66812142629441664000e2 * t749 * t7561 - 0.60130928366497497600e3 * t1996 * t7558 + 0.79500650212800000000e0 * t769 * t7616 - 0.11925097531920000000e1 * t769 * t7620 + 0.46787446921113792000e2 * t749 * t7616 - 0.70181170381670688000e2 * t749 * t7620 + 0.13362428525888332800e2 * t757 * t7616 - 0.20043642788832499200e2 * t757 * t7620; t7638 = 0.36066308400000000000e1 * t4821 * t740; t7645 = t1524 * t282; t7655 = 0.13357892000000000000e0 * t2259 * t680; t7656 = -0.20036838000000000000e0 * t2075 * t2067 * t1420 * t465 + 0.13357892000000000000e0 * t2075 * t6204 * t2364 + 0.25000000000000000000e0 * t145 * t201 * (t7591 + t7631) + 0.50000000000000000000e0 * t6745 - t7638 - 0.36066308400000000000e1 * t6758 - 0.18033154200000000000e1 * t4953 * t740 + 0.25000000000000000000e0 * t1524 * t326 - 0.36066308400000000000e1 * t6766 - 0.10018419000000000000e0 * t7645 * t309 - 0.10018419000000000000e0 * t825 * t1925 - 0.20036838000000000000e0 * t2269 * t728 - 0.44526306666666666667e-1 * t825 * t1856 + t7655; t7658 = t6623 * t153 * t832; t7661 = t6619 * t153 * t828; t7665 = t1527 * t282; t7667 = 0.40073676000000000000e0 * t7665 * t309; t7673 = 0.10000000000000000000e1 * t1527 * t326; t7688 = 0.20036838000000000000e0 * t7658 + 0.40073676000000000000e0 * t7661 + 0.66789460000000000000e-1 * t825 * t1843 - t7667 - 0.18033154200000000000e1 * t6768 + 0.80147352000000000000e0 * t6787 - 0.90165771000000000000e0 * t4758 * t838 + t7673 + 0.40073676000000000000e0 * t2092 * t2384 + 0.20036838000000000000e0 * t673 * t674 * t6800 * t266 - 0.13357892000000000000e0 * t825 * t2117 - 0.66789460000000000000e-1 * t825 * t2121 + 0.20036838000000000000e0 * t825 * t2102 + 0.20036838000000000000e0 * t2401 * t2147; t7698 = t507 * t322; t7700 = 0.80147352000000000000e0 * t7698 * t677; t7702 = 0.80147352000000000000e0 * t2259 * t685; t7706 = 0.72132616800000000000e1 * t1207 * t2288; t7708 = 0.72132616800000000000e1 * t1492 * t2285; t7709 = t200 * t852; t7710 = t371 * t7709; t7720 = 0.20036838000000000000e0 * t283 * t674 * t2105 * t550 + 0.10018419000000000000e0 * t283 * t674 * t731 * t1466 + t7700 + t7702 + 0.25000000000000000000e0 * t216 * t2058 + t7706 + t7708 + 0.50000000000000000000e0 * t7710 - 0.36066308400000000000e1 * t6815 - 0.10000000000000000000e1 * t538 * t2154 * t550 + 0.80147352000000000000e0 * t6841 + 0.40073676000000000000e0 * t6843 + 0.80147352000000000000e0 * t6845 + 0.80147352000000000000e0 * t6847; t7728 = t852 * t210; t7743 = 0.30000000000000000000e1 * t1473 * t2276 + 0.36066308400000000000e1 * t1323 * t2280 + 0.10000000000000000000e1 * t6854 - 0.10000000000000000000e1 * t5172 * t744 + 0.36066308400000000000e1 * t474 * t1195 * t7728 + 0.25000000000000000000e0 * t386 * t853 + 0.40073676000000000000e0 * t6860 - 0.26715784000000000000e0 * t6862 - 0.13357892000000000000e0 * t6864 + 0.20036838000000000000e0 * t6866 + 0.40073676000000000000e0 * t6871 - 0.12022102800000000000e1 * t6885 + 0.50000000000000000000e0 * t511 * t784 - 0.20000000000000000000e1 * t6887; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[3] = t7139 + t7170 + t7217 + t7244 + t7287 + t7317 + t7354 + t7388 + t7421 + t7444 + t7483 + t7523 + t7656 + t7688 + t7720 + t7743; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[4] = 0.0e0; t7756 = t6623 * t580 * t866; t7759 = t6623 * t225 * t913; t7762 = t6619 * t225 * t858; t7765 = 0.40073676000000000000e0 * t7665 * t354; t7767 = 0.40073676000000000000e0 * t1851 * t910; t7769 = 0.13357892000000000000e0 * t1851 * t862; t7772 = -0.10000000000000000000e1 * t1547 * t2221 - 0.10000000000000000000e1 * t538 * t2220 * t550 - 0.10000000000000000000e1 * t1473 * t2456 - 0.36066308400000000000e1 * t6894 + 0.40073676000000000000e0 * t7756 + 0.20036838000000000000e0 * t7759 + 0.40073676000000000000e0 * t7762 - t7765 - t7767 + t7769 - 0.10018419000000000000e0 * t7645 * t354; t7779 = t1337 * t919; t7782 = t200 * t955; t7783 = t371 * t7782; t7791 = 0.10000000000000000000e1 * t507 * t822; t7793 = t225 * t925 * t393; t7797 = t225 * t925 * t469; t7800 = t574 * t2198; t7803 = t574 * t2202; t7807 = t580 * t932 * t393; t7811 = t580 * t932 * t469; t7815 = t225 * t907 * t393; t7819 = t225 * t907 * t469; t7830 = -0.29476091560301688960e4 * t6530 * t7793 + 0.42108702229002412800e3 * t1996 * t7797 - 0.14036234076334137600e3 * t1996 * t7800 + 0.23393723460556896000e2 * t749 * t7803 - 0.84217404458004825600e3 * t1996 * t7807 + 0.14036234076334137600e3 * t749 * t7811 + 0.42108702229002412800e3 * t1996 * t7815 - 0.70181170381670688000e2 * t749 * t7819 - 0.60130928366497497600e3 * t1996 * t7793 + 0.10021821394416249600e3 * t749 * t7797 - 0.33406071314720832000e2 * t749 * t7800 + 0.66812142629441664000e1 * t757 * t7803; t7855 = -0.20043642788832499200e3 * t749 * t7807 + 0.40087285577664998400e2 * t757 * t7811 + 0.10021821394416249600e3 * t749 * t7815 - 0.20043642788832499200e2 * t757 * t7819 - 0.23850195063840000000e2 * t749 * t7793 + 0.47700390127680000000e1 * t757 * t7797 - 0.15900130042560000000e1 * t757 * t7800 + 0.39750325106400000000e0 * t769 * t7803 - 0.95400780255360000000e1 * t757 * t7807 + 0.23850195063840000000e1 * t769 * t7811 + 0.47700390127680000000e1 * t757 * t7815 - 0.11925097531920000000e1 * t769 * t7819; t7860 = -0.10018419000000000000e0 * t1846 * t910 + 0.33394730000000000000e-1 * t1846 * t862 + 0.36066308400000000000e1 * t1500 * t2588 - 0.18033154200000000000e1 * t7779 + 0.36066308400000000000e1 * t6896 + 0.50000000000000000000e0 * t7783 + 0.72132616800000000000e1 * t6898 - 0.18033154200000000000e1 * t474 * t475 * t2504 - 0.18033154200000000000e1 * t6900 + t7791 + 0.25000000000000000000e0 * t145 * t201 * (t7830 + t7855); t7871 = t821 * t277; t7889 = 0.36066308400000000000e1 * t4821 * t806; t7890 = -0.18033154200000000000e1 * t4953 * t806 - 0.20000000000000000000e1 * t6905 - 0.54099462600000000000e1 * t474 * t5110 * t6936 - 0.60000000000000000000e1 * t538 * t7017 * t4928 + 0.36066308400000000000e1 * t474 * t1195 * t7871 + 0.30000000000000000000e1 * t1473 * t2584 - 0.54099462600000000000e1 * t1517 * t527 * t364 * t393 - 0.50000000000000000000e0 * t538 * t809 * t1466 - 0.50000000000000000000e0 * t4851 * t922 + 0.18033154200000000000e1 * t1632 * t2192 - t7889; t7905 = 0.72132616800000000000e1 * t1492 * t2588; t7907 = 0.72132616800000000000e1 * t1207 * t2591; t7919 = -0.90165771000000000000e0 * t1446 * t2186 + 0.50000000000000000000e0 * t511 * t822 - 0.10000000000000000000e1 * t1473 * t2469 + 0.13357892000000000000e0 * t2066 * t3631 * t476 + 0.18033154200000000000e1 * t522 * t527 * t364 * t469 + t7905 + t7907 - 0.90165771000000000000e0 * t474 * t1212 * t955 + 0.20036838000000000000e0 * t2401 * t2234 + 0.20036838000000000000e0 * t2134 * t2543 * t2247 + 0.66789460000000000000e-1 * t283 * t2543 * t2252; t7923 = 0.40073676000000000000e0 * t2259 * t799; t7927 = 0.40073676000000000000e0 * t667 * t2563; t7928 = t907 * t480; t7936 = t371 * t922; t7939 = 0.20000000000000000000e1 * t4963 * t922; t7947 = 0.80147352000000000000e0 * t6215 * t2531; t7948 = t7923 - 0.20036838000000000000e0 * t825 * t2253 + t7927 - 0.20036838000000000000e0 * t283 * t791 * t7928 * t482 - 0.66789460000000000000e-1 * t673 * t2543 * t2233 - 0.10000000000000000000e1 * t7936 - t7939 - 0.20000000000000000000e1 * t6943 + 0.25000000000000000000e0 * t216 * t2215 + 0.60110514000000000000e0 * t2075 * t1060 * t1485 - t7947; t7957 = 0.80147352000000000000e0 * t6220 * t2528; t7971 = 0.80147352000000000000e0 * t6215 * t2525; t7980 = 0.40073676000000000000e0 * t2066 * t1060 * t1511 + 0.12022102800000000000e1 * t2371 * t2514 * t2515 * t393 - t7957 - 0.80147352000000000000e0 * t6718 * t2517 - 0.40073676000000000000e0 * t2066 * t2514 * t2515 * t469 - 0.40073676000000000000e0 * t6667 * t2522 - 0.20036838000000000000e0 * t2075 * t2514 * t2520 * t500 - t7971 - 0.40073676000000000000e0 * t6667 * t2528 - 0.40073676000000000000e0 * t2075 * t1060 * t1407 - 0.20036838000000000000e0 * t2075 * t1060 * t1470; t7988 = 0.16029470400000000000e1 * t6215 * t2517; t7992 = t480 * t262; t8000 = t7295 * t354; t8002 = t2061 * t862; t8014 = -0.40073676000000000000e0 * t6718 * t2531 - 0.20036838000000000000e0 * t2066 * t1060 * t1534 - t7988 + 0.24044205600000000000e1 * t7187 * t1060 * t1518 + 0.40073676000000000000e0 * t2075 * t2514 * t7992 * t482 + 0.60110514000000000000e0 * t2371 * t1060 * t1507 - 0.20036838000000000000e0 * t8000 + 0.66789460000000000000e-1 * t8002 + 0.12022102800000000000e1 * t2371 * t1060 * t1433 + 0.80147352000000000000e0 * t2066 * t1060 * t1429 + 0.80147352000000000000e0 * t2066 * t2514 * t2520 * t1432; t8016 = 0.10000000000000000000e1 * t368 * t956; t8017 = t955 * t210; t8033 = t364 * t550; t8043 = 0.20000000000000000000e1 * t1478 * t2447; t8045 = 0.60000000000000000000e1 * t1478 * t2584; t8046 = t8016 + 0.36066308400000000000e1 * t474 * t1195 * t8017 + 0.40073676000000000000e0 * t2092 * t2540 + 0.20036838000000000000e0 * t670 * t2563 - 0.13357892000000000000e0 * t2092 * t2549 - 0.60110514000000000000e0 * t2134 * t791 * t2538 * t393 - 0.60110514000000000000e0 * t7363 * t2248 + 0.36066308400000000000e1 * t474 * t1195 * t8033 + 0.30000000000000000000e1 * t538 * t7076 * t1428 - 0.18033154200000000000e1 * t1323 * t2576 - t8043 + t8045; t8057 = 0.72132616800000000000e1 * t1207 * t2460; t8058 = t480 * t2504; t8070 = 0.20000000000000000000e1 * t1478 * t2456; t8076 = 0.15000000000000000000e1 * t538 * t2175 * t4891 + 0.30000000000000000000e1 * t6957 - 0.90165771000000000000e0 * t4758 * t919 + t8057 - 0.10000000000000000000e1 * t538 * t8058 * t210 - 0.50000000000000000000e0 * t538 * t2468 * t500 - 0.40073676000000000000e0 * t6964 + 0.36066308400000000000e1 * t474 * t1510 * t6926 - t8070 - 0.40073676000000000000e0 * t7163 * t2230 - 0.40073676000000000000e0 * t2066 * t3627 * t476; t8086 = 0.24044205600000000000e1 * t7490 * t2509; t8093 = 0.80147352000000000000e0 * t6220 * t2522; t8099 = -0.40073676000000000000e0 * t6718 * t2525 - 0.40073676000000000000e0 * t2066 * t1060 * t1397 - 0.20036838000000000000e0 * t2066 * t1060 * t1410 - t8086 - 0.12022102800000000000e1 * t7450 * t2509 - 0.60110514000000000000e0 * t2371 * t1060 * t1503 - t8093 - 0.18033154200000000000e1 * t1446 * t2168 + 0.20036838000000000000e0 * t6980 + 0.40073676000000000000e0 * t6987 - 0.12022102800000000000e1 * t6991; t8114 = 0.36066308400000000000e1 * t1207 * t2579; t8120 = -0.40073676000000000000e0 * t6997 + 0.80147352000000000000e0 * t6999 + 0.40073676000000000000e0 * t7001 - 0.20036838000000000000e0 * t7009 + 0.36066308400000000000e1 * t1323 * t2460 + 0.36066308400000000000e1 * t522 * t527 * t821 * t194 + 0.10000000000000000000e1 * t7013 - 0.20000000000000000000e1 * t7015 - t8114 + 0.18033154200000000000e1 * t474 * t4661 * t2459 + 0.25000000000000000000e0 * t386 * t956; t8128 = t1352 * t955; t8133 = 0.10000000000000000000e1 * t8 * t2505; t8138 = 0.10000000000000000000e1 * t1527 * t365; t8145 = -0.18033154200000000000e1 * t1323 * t2579 + 0.30000000000000000000e1 * t538 * t2175 * t4919 + 0.15000000000000000000e1 * t1547 * t2176 + 0.15000000000000000000e1 * t538 * t8128 * t482 + t8133 - 0.36066308400000000000e1 * t7028 + 0.50000000000000000000e0 * t142 * t2505 + t8138 - 0.10000000000000000000e1 * t5172 * t810 - 0.80147352000000000000e0 * t7033 + 0.18033154200000000000e1 * t474 * t1510 * t7090; t8154 = 0.80147352000000000000e0 * t6786 * t859; t8174 = 0.25000000000000000000e0 * t1524 * t365 + 0.18033154200000000000e1 * t522 * t1365 * t955 + t8154 + 0.10018419000000000000e0 * t283 * t791 * t2561 * t500 + 0.10018419000000000000e0 * t1846 * t914 + 0.20036838000000000000e0 * t670 * t2569 - 0.66789460000000000000e-1 * t670 * t2544 + 0.40073676000000000000e0 * t7306 * t794 + 0.20036838000000000000e0 * t2269 * t799 - 0.33394730000000000000e-1 * t283 * t2543 * t2237 + 0.20036838000000000000e0 * t1846 * t867; t8176 = 0.80147352000000000000e0 * t2111 * t2540; t8182 = 0.80147352000000000000e0 * t7698 * t794; t8192 = 0.26715784000000000000e0 * t2111 * t2549; t8194 = 0.13357892000000000000e0 * t667 * t2544; t8196 = 0.80147352000000000000e0 * t1851 * t867; t8198 = 0.40073676000000000000e0 * t1851 * t914; t8200 = 0.40073676000000000000e0 * t667 * t2569; t8201 = t8176 + 0.20036838000000000000e0 * t673 * t791 * t2538 * t469 + t8182 + 0.10018419000000000000e0 * t283 * t791 * t797 * t1466 + 0.10018419000000000000e0 * t825 * t2238 + 0.20036838000000000000e0 * t6773 * t859 - t8192 - t8194 + t8196 + t8198 + t8200; t8216 = 0.20000000000000000000e1 * t5501 * t810; t8220 = t2061 * t910; t8222 = -0.10000000000000000000e1 * t7072 + 0.50000000000000000000e0 * t7074 - 0.50000000000000000000e0 * t1547 * t2189 - 0.50000000000000000000e0 * t538 * t7024 * t277 - 0.36066308400000000000e1 * t7080 + 0.50000000000000000000e0 * t7086 + 0.10000000000000000000e1 * t7088 - 0.72132616800000000000e1 * t5459 * t2172 - t8216 - 0.36066308400000000000e1 * t522 * t4638 * t2459 - 0.20036838000000000000e0 * t8220; t8224 = 0.36066308400000000000e1 * t4703 * t919; t8227 = t1514 * t2179; t8237 = 0.36066308400000000000e1 * t1207 * t2576; t8244 = 0.20000000000000000000e1 * t1478 * t2469; t8245 = -t8224 - 0.10819892520000000000e2 * t7345 * t2584 + 0.50000000000000000000e0 * t8227 + 0.36066308400000000000e1 * t1446 * t2172 - 0.90165771000000000000e0 * t474 * t527 * t2214 + 0.36066308400000000000e1 * t1323 * t2591 - t8237 + 0.10000000000000000000e1 * t7097 - 0.10000000000000000000e1 * t1473 * t2447 + 0.80147352000000000000e0 * t7100 + 0.40073676000000000000e0 * t7103 - t8244; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[5] = t7772 + t7860 + t7890 + t7919 + t7948 + t7980 + t8014 + t8046 + t8076 + t8099 + t8120 + t8145 + t8174 + t8201 + t8222 + t8245; t8253 = t852 * t277; t8265 = 0.50000000000000000000e0 * t6097 + 0.36066308400000000000e1 * t474 * t1510 * t7728 + 0.36066308400000000000e1 * t474 * t1195 * t8253 + 0.36066308400000000000e1 * t522 * t527 * t852 * t194 + t7120 - t7131 + t7133 + t7138 - t7144 - 0.10000000000000000000e1 * t538 * t2379 * t550 - 0.10000000000000000000e1 * t6142; t8268 = t7698 * t829; t8270 = t667 * t2668; t8275 = t6884 * t2672; t8280 = t1207 * t2602; t8286 = -t7155 - 0.18033154200000000000e1 * t1323 * t2602 + 0.80147352000000000000e0 * t8268 - 0.40073676000000000000e0 * t8270 + 0.66789460000000000000e-1 * t283 * t2120 * t2667 - 0.12022102800000000000e1 * t8275 + 0.20036838000000000000e0 * t2134 * t2120 * t2671 - 0.36066308400000000000e1 * t8280 + 0.10000000000000000000e1 * t7167 - t7180 + 0.15000000000000000000e1 * t538 * t6809 * t647; t8303 = t1207 * t2629; t8305 = t1478 * t2614; t8312 = -0.20036838000000000000e0 * t6198 - 0.20036838000000000000e0 * t6200 + 0.66789460000000000000e-1 * t6202 + 0.36066308400000000000e1 * t474 * t1510 * t7218 - 0.54099462600000000000e1 * t1517 * t1648 * t2284 - 0.36066308400000000000e1 * t522 * t5214 * t1948 + 0.15000000000000000000e1 * t538 * t2150 * t5197 + 0.72132616800000000000e1 * t8303 - 0.20000000000000000000e1 * t8305 - 0.90165771000000000000e0 * t5255 * t740 - 0.90165771000000000000e0 * t474 * t1539 * t783; t8319 = t277 * t190; t8324 = t5501 * t841; t8336 = -t7252 + 0.80147352000000000000e0 * t2066 * t1080 * t1608 + 0.12022102800000000000e1 * t2371 * t1080 * t1612 + 0.80147352000000000000e0 * t2066 * t2067 * t527 * t8319 + t7283 - 0.20000000000000000000e1 * t8324 - 0.50000000000000000000e0 * t1473 * t2632 - 0.10000000000000000000e1 * t1547 * t2355 + 0.18033154200000000000e1 * t1500 * t2611 - 0.10000000000000000000e1 * t1547 * t2352 - 0.10000000000000000000e1 * t1547 * t2380; t8354 = t8 * t2652; t8359 = 0.18033154200000000000e1 * t522 * t1648 * t783 + 0.30000000000000000000e1 * t1547 * t2276 + 0.18033154200000000000e1 * t522 * t1539 * t2284 + 0.18033154200000000000e1 * t474 * t5359 * t1948 + 0.36066308400000000000e1 * t1323 * t2629 + 0.36066308400000000000e1 * t1446 * t2280 + 0.50000000000000000000e0 * t8354 - 0.40073676000000000000e0 * t7296 - 0.90165771000000000000e0 * t1323 * t2617 + t7299 + t7310; t8368 = t1207 * t2617; t8370 = t1478 * t2632; t8372 = t480 * t2651; t8376 = t7312 + t7316 - 0.10000000000000000000e1 * t5172 * t841 - 0.60000000000000000000e1 * t538 * t6762 * t5285 - t7334 + t7336 - 0.90165771000000000000e0 * t474 * t475 * t2651 - 0.18033154200000000000e1 * t8368 - 0.10000000000000000000e1 * t8370 - 0.50000000000000000000e0 * t538 * t8372 * t210 - t7357; t8384 = t325 * t647; t8390 = t667 * t2660; t8397 = t2259 * t833; t8401 = t2111 * t2656; t8406 = 0.36066308400000000000e1 * t474 * t1510 * t7326 + 0.30000000000000000000e1 * t538 * t2150 * t5452 - 0.54099462600000000000e1 * t474 * t4654 * t8384 - 0.60110514000000000000e0 * t6828 * t2672 + 0.20036838000000000000e0 * t8390 - 0.33394730000000000000e-1 * t283 * t2120 * t2659 - 0.13357892000000000000e0 * t2401 * t2412 + 0.40073676000000000000e0 * t8397 - 0.66789460000000000000e-1 * t825 * t2394 + 0.40073676000000000000e0 * t8401 - 0.66789460000000000000e-1 * t673 * t2120 * t2655; t8423 = t558 * t322; t8436 = 0.15000000000000000000e1 * t1473 * t2620 + 0.40073676000000000000e0 * t2401 * t2384 + 0.20036838000000000000e0 * t2269 * t833 + 0.20036838000000000000e0 * t825 * t2390 + 0.20036838000000000000e0 * t825 * t2398 + 0.20036838000000000000e0 * t2092 * t2656 + 0.20036838000000000000e0 * t673 * t674 * t2085 * t639 + 0.20036838000000000000e0 * t8423 * t677 + 0.20036838000000000000e0 * t2599 * t685 + 0.10018419000000000000e0 * t2599 * t733 - 0.20036838000000000000e0 * t670 * t2668 - 0.20036838000000000000e0 * t283 * t674 * t6823 * t647; t8461 = 0.10018419000000000000e0 * t670 * t2660 + 0.10018419000000000000e0 * t283 * t674 * t2105 * t663 + 0.10018419000000000000e0 * t283 * t674 * t731 * t1575 - 0.60110514000000000000e0 * t2134 * t674 * t2085 * t565 + 0.40073676000000000000e0 * t7306 * t829 - 0.18033154200000000000e1 * t1446 * t2337 - 0.50000000000000000000e0 * t5699 * t744 - 0.20000000000000000000e1 * t7361 - t7372 - t7377 + t7395; t8469 = t145 * t267; t8476 = t7405 - t7409 - t7415 - 0.18033154200000000000e1 * t1446 * t2344 - 0.18033154200000000000e1 * t474 * t527 * t2331 - 0.72132616800000000000e1 * t5459 * t2280 - 0.10819892520000000000e2 * t8469 * t2276 - 0.10000000000000000000e1 * t1473 * t2614 - t7423 + 0.40073676000000000000e0 * t6621 + 0.40073676000000000000e0 * t6625; t8481 = t1641 * t282; t8484 = t1644 * t282; t8485 = t8484 * t309; t8489 = t507 * t853; t8492 = 0.20036838000000000000e0 * t6628 - 0.10018419000000000000e0 * t2599 * t728 - 0.10018419000000000000e0 * t8481 * t309 - 0.20036838000000000000e0 * t8485 + 0.33394730000000000000e-1 * t2599 * t680 + 0.10000000000000000000e1 * t8489 - 0.36066308400000000000e1 * t7440 - t7447 - t7449 - t7492 - t7509; t8493 = t4821 * t838; t8508 = -t7511 - t7638 - 0.36066308400000000000e1 * t8493 - 0.10000000000000000000e1 * t538 * t7424 * t277 - 0.50000000000000000000e0 * t538 * t743 * t1575 + 0.50000000000000000000e0 * t216 * t2332 - 0.18033154200000000000e1 * t6758 + 0.25000000000000000000e0 * t1641 * t326 + t7655 + 0.40073676000000000000e0 * t7658 + 0.80147352000000000000e0 * t7661; t8532 = -t7667 + 0.25000000000000000000e0 * t558 * t784 + t7673 + t7700 + t7702 + 0.12022102800000000000e1 * t2371 * t2067 * t1652 * t190 + 0.60110514000000000000e0 * t2371 * t1080 * t1649 - 0.40073676000000000000e0 * t6718 * t2605 + 0.40073676000000000000e0 * t2075 * t2067 * t5469 * t190 + 0.60110514000000000000e0 * t2075 * t1080 * t1558 - 0.40073676000000000000e0 * t2075 * t1080 * t1579; t8539 = t5132 * t150; t8566 = 0.24044205600000000000e1 * t7187 * t1080 * t1653 + 0.40073676000000000000e0 * t2066 * t1080 * t1586 - 0.12022102800000000000e1 * t8539 * t2372 - 0.40073676000000000000e0 * t2066 * t3294 * t644 - 0.40073676000000000000e0 * t2066 * t1080 * t1554 - 0.60110514000000000000e0 * t2371 * t1080 * t1544 - 0.40073676000000000000e0 * t2066 * t2067 * t1543 * t190 - 0.20036838000000000000e0 * t2075 * t2067 * t5356 * t190 - 0.20036838000000000000e0 * t2075 * t1080 * t1591 - 0.80147352000000000000e0 * t7163 * t2376 - 0.40073676000000000000e0 * t7163 * t2358; t8580 = t6215 * t2605; t8585 = t325 * t663; t8592 = -0.40073676000000000000e0 * t7163 * t2361 - 0.40073676000000000000e0 * t7160 * t2365 - 0.40073676000000000000e0 * t7160 * t2368 - 0.20036838000000000000e0 * t2066 * t1080 * t1540 - 0.20036838000000000000e0 * t2066 * t1080 * t1596 - 0.80147352000000000000e0 * t8580 + 0.13357892000000000000e0 * t2066 * t3285 * t644 + 0.18033154200000000000e1 * t474 * t1195 * t8585 + 0.30000000000000000000e1 * t538 * t7416 * t1428 + t7706 + t7708; t8602 = t1644 * t326; t8610 = t1478 * t2620; t8613 = t153 * t2635 * t194; t8616 = t402 * t2635; t8620 = t408 * t2635 * t190; t8624 = t153 * t725 * t565; t8628 = t153 * t2639 * t194; t8631 = t402 * t2639; t8635 = t408 * t2639 * t190; t8639 = t153 * t725 * t639; t8650 = -0.29476091560301688960e4 * t6530 * t8613 - 0.14036234076334137600e3 * t1996 * t8616 - 0.84217404458004825600e3 * t1996 * t8620 + 0.42108702229002412800e3 * t1996 * t8624 + 0.42108702229002412800e3 * t1996 * t8628 + 0.23393723460556896000e2 * t749 * t8631 + 0.14036234076334137600e3 * t749 * t8635 - 0.70181170381670688000e2 * t749 * t8639 - 0.60130928366497497600e3 * t1996 * t8613 - 0.33406071314720832000e2 * t749 * t8616 - 0.20043642788832499200e3 * t749 * t8620 + 0.10021821394416249600e3 * t749 * t8624; t8675 = 0.10021821394416249600e3 * t749 * t8628 + 0.66812142629441664000e1 * t757 * t8631 + 0.40087285577664998400e2 * t757 * t8635 - 0.20043642788832499200e2 * t757 * t8639 - 0.23850195063840000000e2 * t749 * t8613 - 0.15900130042560000000e1 * t757 * t8616 - 0.95400780255360000000e1 * t757 * t8620 + 0.47700390127680000000e1 * t757 * t8624 + 0.47700390127680000000e1 * t757 * t8628 + 0.39750325106400000000e0 * t769 * t8631 + 0.23850195063840000000e1 * t769 * t8635 - 0.11925097531920000000e1 * t769 * t8639; t8680 = t1492 * t2611; t8682 = 0.36066308400000000000e1 * t1632 * t2285 + 0.36066308400000000000e1 * t1446 * t2288 + 0.25000000000000000000e0 * t142 * t2652 + 0.10000000000000000000e1 * t7710 + 0.50000000000000000000e0 * t511 * t853 + 0.50000000000000000000e0 * t8602 + 0.50000000000000000000e0 * t6854 - 0.18033154200000000000e1 * t4953 * t838 - 0.50000000000000000000e0 * t538 * t2154 * t663 + 0.30000000000000000000e1 * t8610 + 0.25000000000000000000e0 * t145 * t201 * (t8650 + t8675) + 0.36066308400000000000e1 * t8680; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[6] = t8265 + t8286 + t8312 + t8336 + t8359 + t8376 + t8406 + t8436 + t8461 + t8476 + t8492 + t8508 + t8532 + t8566 + t8592 + t8682; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[7] = 0.0e0; t8694 = t2111 * t2801; t8696 = t667 * t2807; t8698 = t667 * t2779; t8700 = t667 * t2943; t8702 = t2111 * t2797; t8707 = 0.40073676000000000000e0 * t2401 * t2540 + 0.20036838000000000000e0 * t825 * t2563 - 0.20036838000000000000e0 * t670 * t2947 - 0.13357892000000000000e0 * t2092 * t2950 + 0.40073676000000000000e0 * t8694 - 0.26715784000000000000e0 * t8696 - 0.13357892000000000000e0 * t8698 + 0.20036838000000000000e0 * t8700 + 0.80147352000000000000e0 * t8702 + 0.80147352000000000000e0 * t7756 + 0.40073676000000000000e0 * t7759 + 0.80147352000000000000e0 * t7762 - t7765; t8720 = t200 * t635; t8730 = -t7767 + t7769 - 0.72132616800000000000e1 * t5459 * t2460 - 0.10819892520000000000e2 * t8469 * t2584 + 0.25000000000000000000e0 * t1641 * t365 + 0.50000000000000000000e0 * t216 * t2505 - 0.36066308400000000000e1 * t7779 - 0.18033154200000000000e1 * t1446 * t2576 + 0.10000000000000000000e1 * t7783 - 0.20036838000000000000e0 * t2075 * t2514 * t8720 * t210 - 0.12022102800000000000e1 * t8539 * t2509 - 0.40073676000000000000e0 * t7163 * t2531 + t7791 - 0.10000000000000000000e1 * t6905; t8732 = t1207 * t2917; t8736 = t1644 * t365; t8743 = t1478 * t2810; t8760 = -0.18033154200000000000e1 * t8732 - t7889 - 0.90165771000000000000e0 * t1323 * t2917 + 0.50000000000000000000e0 * t8736 - 0.90165771000000000000e0 * t474 * t1539 * t821 - 0.10000000000000000000e1 * t1473 * t2956 - 0.10000000000000000000e1 * t8743 - 0.18033154200000000000e1 * t4953 * t919 - 0.13357892000000000000e0 * t670 * t2807 - 0.66789460000000000000e-1 * t670 * t2779 - 0.66789460000000000000e-1 * t283 * t2543 * t2568 + 0.40073676000000000000e0 * t670 * t2783 + 0.20036838000000000000e0 * t670 * t2787 + 0.40073676000000000000e0 * t7306 * t859; t8787 = t570 * t224; t8791 = 0.20036838000000000000e0 * t670 * t2939 + 0.20036838000000000000e0 * t283 * t791 * t2561 * t550 + 0.10018419000000000000e0 * t670 * t2943 + 0.10018419000000000000e0 * t283 * t791 * t797 * t1575 + 0.40073676000000000000e0 * t2092 * t2797 + 0.20036838000000000000e0 * t2092 * t2801 - 0.13357892000000000000e0 * t2401 * t2549 - 0.66789460000000000000e-1 * t825 * t2544 + 0.40073676000000000000e0 * t2269 * t867 + 0.20036838000000000000e0 * t2269 * t914 + 0.20036838000000000000e0 * t825 * t2569 + 0.44526306666666666667e-1 * t283 * t8787 * t798 + t7905 + t7907; t8794 = t4821 * t919; t8804 = -0.36066308400000000000e1 * t8794 - 0.10000000000000000000e1 * t5172 * t922 + t7923 + t7927 - 0.20000000000000000000e1 * t7936 - t7939 - t7947 - t7957 - t7971 - t7988 - 0.40073676000000000000e0 * t8000 + 0.13357892000000000000e0 * t8002 + 0.80147352000000000000e0 * t2066 * t1060 * t1608; t8817 = t667 * t2744; t8819 = t667 * t2747; t8821 = t8484 * t354; t8823 = t2259 * t910; t8827 = t2259 * t862; t8829 = t667 * t2754; t8833 = 0.12022102800000000000e1 * t2371 * t1060 * t1612 + t8016 - 0.50000000000000000000e0 * t538 * t2220 * t663 + 0.66789460000000000000e-1 * t670 * t2747 - 0.10018419000000000000e0 * t8481 * t354 - 0.20036838000000000000e0 * t2269 * t910 - 0.20036838000000000000e0 * t8817 + 0.13357892000000000000e0 * t8819 - 0.20036838000000000000e0 * t8821 - 0.40073676000000000000e0 * t8823 + 0.66789460000000000000e-1 * t2269 * t862 + 0.13357892000000000000e0 * t8827 - 0.89052613333333333334e-1 * t8829 + 0.10018419000000000000e0 * t2599 * t799; t8835 = t7698 * t859; t8837 = t2259 * t867; t8839 = t667 * t2783; t8841 = t667 * t2787; t8856 = t1207 * t2920; t8858 = 0.80147352000000000000e0 * t8835 + 0.80147352000000000000e0 * t8837 + 0.80147352000000000000e0 * t8839 + 0.40073676000000000000e0 * t8841 - t8043 - 0.50000000000000000000e0 * t538 * t809 * t1575 + t8045 - 0.18033154200000000000e1 * t1323 * t2925 + t8057 - 0.10000000000000000000e1 * t538 * t2468 * t550 - 0.20036838000000000000e0 * t6964 + 0.50000000000000000000e0 * t511 * t956 + 0.30000000000000000000e1 * t1547 * t2584 + 0.72132616800000000000e1 * t8856; t8881 = t1207 * t2925; t8886 = t364 * t663; t8890 = 0.36066308400000000000e1 * t474 * t1510 * t7871 + 0.36066308400000000000e1 * t474 * t1510 * t8033 - t8070 - t8086 - t8093 - 0.18033154200000000000e1 * t1446 * t2579 - 0.90165771000000000000e0 * t474 * t475 * t2908 - 0.40073676000000000000e0 * t2066 * t3627 * t535 - 0.40073676000000000000e0 * t6667 * t2767 - 0.40073676000000000000e0 * t2075 * t2514 * t2520 * t550 - 0.10000000000000000000e1 * t1547 * t2456 - 0.36066308400000000000e1 * t8881 + 0.30000000000000000000e1 * t538 * t8128 * t1428 + 0.18033154200000000000e1 * t474 * t1195 * t8886; t8894 = t1478 * t2959; t8896 = t955 * t277; t8903 = t364 * t647; t8927 = -t8114 + 0.30000000000000000000e1 * t8894 + 0.36066308400000000000e1 * t474 * t1195 * t8896 - 0.60000000000000000000e1 * t538 * t7017 * t5285 - 0.54099462600000000000e1 * t474 * t4654 * t8903 + 0.36066308400000000000e1 * t1323 * t2920 + 0.30000000000000000000e1 * t538 * t2175 * t5452 + 0.25000000000000000000e0 * t558 * t822 - 0.10000000000000000000e1 * t1547 * t2469 - 0.50000000000000000000e0 * t5699 * t810 - 0.20036838000000000000e0 * t2066 * t1060 * t1596 - 0.20036838000000000000e0 * t2075 * t1060 * t1591 - 0.12022102800000000000e1 * t2371 * t3627 * t524; t8937 = t1707 * t351; t8950 = t6220 * t2767; t8952 = t6215 * t2772; t8954 = t6215 * t2775; t8961 = -0.40073676000000000000e0 * t2066 * t3627 * t528 - 0.60110514000000000000e0 * t2371 * t1060 * t1544 - 0.20036838000000000000e0 * t2066 * t1060 * t1540 + 0.26715784000000000000e0 * t2066 * t8937 * t2516 + 0.13357892000000000000e0 * t2075 * t8937 * t2521 + 0.13357892000000000000e0 * t2066 * t3631 * t535 - 0.40073676000000000000e0 * t2075 * t3627 * t540 - 0.80147352000000000000e0 * t8950 - 0.16029470400000000000e1 * t8952 - 0.80147352000000000000e0 * t8954 + t8133 - 0.18033154200000000000e1 * t7028 - 0.10018419000000000000e0 * t670 * t2744 - 0.44526306666666666667e-1 * t670 * t2754; t8973 = t1703 * t813; t8980 = t574 * t2484; t8984 = t225 * t2741 * t194; t8995 = t748 * t73; t8997 = t266 * t262; t8999 = t3593 * t8997 * t194; t9009 = t580 * t2867 * t194; t9013 = t225 * t2871 * t194; t9017 = t580 * t2863 * t194; t9025 = t225 * t2855 * t194; t9028 = -0.31191631280742528000e2 * t749 * t8973 - 0.53000433475200000000e0 * t769 * t8973 - 0.89082856839255552000e1 * t757 * t8973 + 0.79500650212800000000e0 * t769 * t8980 - 0.20043642788832499200e2 * t757 * t8984 + 0.13362428525888332800e2 * t757 * t8980 - 0.70181170381670688000e2 * t749 * t8984 + 0.46787446921113792000e2 * t749 * t8980 - 0.11925097531920000000e1 * t769 * t8984 - 0.16843480891600965120e4 * t1995 * t8995 * t8999 - 0.19080156051072000000e2 * t312 * t8995 * t8999 - 0.40087285577664998400e3 * t747 * t8995 * t8999 + 0.23850195063840000000e1 * t769 * t9009 + 0.84217404458004825600e3 * t1996 * t9013 + 0.80174571155329996800e2 * t757 * t9017 + 0.40087285577664998400e2 * t757 * t9009 + 0.95400780255360000000e1 * t757 * t9013 + 0.47700390127680000000e1 * t757 * t9025; t9029 = t1707 * t2480; t9033 = t225 * t2836 * t194; t9036 = t574 * t2473; t9040 = t1714 * t2843 * t194; t9071 = -0.26724857051776665600e2 * t757 * t9029 - 0.60130928366497497600e3 * t1996 * t9033 - 0.66812142629441664000e2 * t749 * t9036 - 0.12026185673299499520e3 * t757 * t9040 - 0.23850195063840000000e2 * t749 * t9033 - 0.31800260085120000000e1 * t757 * t9036 + 0.14036234076334137600e3 * t749 * t9009 + 0.20043642788832499200e3 * t749 * t9013 + 0.10021821394416249600e3 * t749 * t9025 - 0.71550585191520000000e1 * t769 * t9040 + 0.42108702229002412800e3 * t1996 * t9025 - 0.93574893842227584000e2 * t749 * t9029 + 0.28072468152668275200e3 * t749 * t9017 - 0.15900130042560000000e1 * t769 * t9029 + 0.47700390127680000000e1 * t769 * t9017 - 0.29476091560301688960e4 * t6530 * t9033 - 0.28072468152668275200e3 * t1996 * t9036 - 0.42108702229002412800e3 * t749 * t9040; t9076 = t1492 * t2912; t9083 = -0.18033154200000000000e1 * t474 * t527 * t2504 + t8138 + 0.36066308400000000000e1 * t522 * t527 * t955 * t194 + 0.36066308400000000000e1 * t474 * t1510 * t8017 + 0.25000000000000000000e0 * t145 * t201 * (t9028 + t9071) + 0.36066308400000000000e1 * t9076 - 0.10000000000000000000e1 * t1547 * t2447 + 0.15000000000000000000e1 * t538 * t2175 * t5197 + t8154 + t8176 + t8182 - t8192 - t8194 + t8196; t9091 = t580 * t907; t9109 = t1714 * t351; t9115 = t200 * t581; t9126 = t8198 + t8200 - 0.80147352000000000000e0 * t7163 * t2517 - 0.40073676000000000000e0 * t7160 * t2522 + 0.13357892000000000000e0 * t2075 * t3631 * t540 - 0.80147352000000000000e0 * t2066 * t9091 * t2516 - 0.40073676000000000000e0 * t2075 * t9091 * t2521 - 0.40073676000000000000e0 * t2066 * t2514 * t131 * t635 * t194 - 0.40073676000000000000e0 * t2075 * t1060 * t1579 + 0.60110514000000000000e0 * t2075 * t1060 * t1558 + 0.12022102800000000000e1 * t2066 * t9109 * t131 * t581 * t194 + 0.60110514000000000000e0 * t2075 * t9109 * t9115 * t210 + 0.40073676000000000000e0 * t2066 * t1060 * t1586 + 0.24044205600000000000e1 * t7187 * t1060 * t1653; t9142 = t2259 * t914; t9144 = t2741 * t131; t9149 = t2741 * t200; t9165 = t667 * t2939; t9167 = t6884 * t2935; t9169 = 0.60110514000000000000e0 * t2371 * t1060 * t1649 + 0.13357892000000000000e0 * t2066 * t3631 * t528 - 0.80147352000000000000e0 * t6718 * t2772 - 0.40073676000000000000e0 * t6718 * t2775 - 0.40073676000000000000e0 * t2066 * t1060 * t1554 + 0.40073676000000000000e0 * t9142 + 0.20036838000000000000e0 * t673 * t791 * t9144 * t194 + 0.10018419000000000000e0 * t283 * t791 * t9149 * t210 - 0.13357892000000000000e0 * t673 * t2543 * t2539 - 0.66789460000000000000e-1 * t283 * t2543 * t2562 + 0.20036838000000000000e0 * t8423 * t794 + 0.89052613333333333334e-1 * t673 * t8787 * t793 + 0.40073676000000000000e0 * t9165 - 0.12022102800000000000e1 * t9167; t9170 = t667 * t2931; t9172 = t667 * t2947; t9174 = t2111 * t2950; t9190 = t1478 * t2956; t9200 = t8 * t2909; t9202 = -0.12022102800000000000e1 * t9170 - 0.40073676000000000000e0 * t9172 - 0.26715784000000000000e0 * t9174 - 0.60110514000000000000e0 * t670 * t2931 - 0.60110514000000000000e0 * t6828 * t2935 + 0.18033154200000000000e1 * t522 * t1648 * t821 - 0.10000000000000000000e1 * t538 * t8058 * t277 + 0.18033154200000000000e1 * t1500 * t2912 - 0.90165771000000000000e0 * t5255 * t806 - 0.20000000000000000000e1 * t9190 - 0.54099462600000000000e1 * t1517 * t1648 * t2587 - 0.36066308400000000000e1 * t522 * t5214 * t2171 + 0.36066308400000000000e1 * t1446 * t2460 + 0.50000000000000000000e0 * t9200; t9220 = t480 * t2908; t9233 = 0.50000000000000000000e0 * t7088 - t8216 + 0.36066308400000000000e1 * t1632 * t2588 + 0.36066308400000000000e1 * t1446 * t2591 + 0.18033154200000000000e1 * t522 * t1539 * t2587 + 0.18033154200000000000e1 * t474 * t5359 * t2171 + 0.25000000000000000000e0 * t142 * t2909 - 0.40073676000000000000e0 * t8220 + 0.15000000000000000000e1 * t1473 * t2959 - 0.50000000000000000000e0 * t538 * t9220 * t210 - t8224 + 0.15000000000000000000e1 * t538 * t7076 * t647 - 0.50000000000000000000e0 * t1473 * t2810 + 0.80147352000000000000e0 * t2066 * t2514 * t2520 * t1611; t9238 = t262 * t194; t9243 = t262 * t210; t9252 = t5501 * t922; t9261 = t507 * t956; t9263 = 0.80147352000000000000e0 * t2075 * t2514 * t7992 * t1428 + 0.24044205600000000000e1 * t2371 * t2514 * t523 * t9238 + 0.80147352000000000000e0 * t2066 * t2514 * t527 * t9243 + 0.10000000000000000000e1 * t8227 - t8237 + 0.50000000000000000000e0 * t7097 + 0.40073676000000000000e0 * t7100 + 0.20036838000000000000e0 * t7103 - 0.20000000000000000000e1 * t9252 + 0.40073676000000000000e0 * t2371 * t3631 * t524 - 0.40073676000000000000e0 * t7163 * t2525 - 0.40073676000000000000e0 * t7160 * t2528 + 0.10000000000000000000e1 * t9261 - t8244; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[8] = t8707 + t8730 + t8760 + t8791 + t8804 + t8833 + t8858 + t8890 + t8927 + t8961 + t9083 + t9126 + t9169 + t9202 + t9233 + t9263; t9310 = -0.90165771000000000000e0 * t474 * t5564 * t325 - 0.15000000000000000000e1 * t538 * t8372 * t277 + 0.24044205600000000000e1 * t8268 - 0.12022102800000000000e1 * t8270 - 0.36066308400000000000e1 * t8275 - 0.10819892520000000000e2 * t8280 + 0.15000000000000000000e1 * t7167 - 0.18033154200000000000e1 * t2371 * t1080 * t1677 - 0.12022102800000000000e1 * t7163 * t2605 - 0.60110514000000000000e0 * t2075 * t1080 * t1669 + 0.12022102800000000000e1 * t2066 * t1080 * t1691 - 0.60110514000000000000e0 * t2066 * t1080 * t1808 - 0.60110514000000000000e0 * t2066 * t1080 * t1813 + 0.18033154200000000000e1 * t2371 * t1080 * t1680 + 0.54099462600000000000e1 * t474 * t5359 * t2279 + 0.54099462600000000000e1 * t522 * t527 * t325 * t639 - 0.16229838780000000000e2 * t474 * t5110 * t8384 + 0.10819892520000000000e2 * t1446 * t2629; t9352 = -0.54099462600000000000e1 * t1517 * t5547 * t325 - 0.27049731300000000000e1 * t5255 * t838 - 0.54099462600000000000e1 * t1446 * t2602 + 0.21639785040000000000e2 * t8303 - 0.27049731300000000000e1 * t474 * t1539 * t852 - 0.60000000000000000000e1 * t8305 + 0.45000000000000000000e1 * t538 * t2150 * t5583 - 0.10819892520000000000e2 * t522 * t5214 * t2279 + 0.54099462600000000000e1 * t474 * t1510 * t8585 - 0.60000000000000000000e1 * t8324 + 0.54099462600000000000e1 * t522 * t1648 * t852 + 0.75000000000000000000e0 * t216 * t2652 - 0.15000000000000000000e1 * t1547 * t2632 - 0.27049731300000000000e1 * t474 * t527 * t2651 + 0.54099462600000000000e1 * t1632 * t2611 + 0.15000000000000000000e1 * t8354 + 0.10819892520000000000e2 * t474 * t1510 * t8253 - 0.60110514000000000000e0 * t7296 + 0.25000000000000000000e0 * t1803 * t326; t9379 = t153 * t306 * t1672; t9383 = t153 * t844 * t639; t9387 = t153 * t306 * t1794; t9410 = -0.54099462600000000000e1 * t8368 - 0.30000000000000000000e1 * t8370 - 0.60000000000000000000e1 * t538 * t6762 * t1665 + 0.60110514000000000000e0 * t8390 + 0.12022102800000000000e1 * t8397 + 0.12022102800000000000e1 * t8401 - 0.30000000000000000000e1 * t7361 - 0.30000000000000000000e1 * t1547 * t2614 - 0.15000000000000000000e1 * t538 * t2379 * t663 - 0.60110514000000000000e0 * t8485 + 0.30000000000000000000e1 * t8489 - 0.50000000000000000000e0 * t538 * t743 * t1838 - 0.54099462600000000000e1 * t7440 - 0.10819892520000000000e2 * t8493 + 0.45000000000000000000e1 * t538 * t7416 * t647 + 0.25000000000000000000e0 * t145 * t201 * (-0.29476091560301688960e4 * t6530 * t9379 + 0.12632610668700723840e4 * t1996 * t9383 - 0.70181170381670688000e2 * t749 * t9387 - 0.60130928366497497600e3 * t1996 * t9379 + 0.30065464183248748800e3 * t749 * t9383 - 0.20043642788832499200e2 * t757 * t9387 - 0.23850195063840000000e2 * t749 * t9379 + 0.14310117038304000000e2 * t757 * t9383 - 0.11925097531920000000e1 * t769 * t9387) + 0.45000000000000000000e1 * t1547 * t2620 + 0.60110514000000000000e0 * t7658 + 0.12022102800000000000e1 * t7661; t9413 = t1803 * t282; t9453 = -0.24044205600000000000e1 * t8580 + 0.15000000000000000000e1 * t7710 - 0.10018419000000000000e0 * t9413 * t309 + 0.60110514000000000000e0 * t8423 * t829 + 0.60110514000000000000e0 * t2401 * t2656 - 0.18033154200000000000e1 * t7363 * t2672 + 0.30055257000000000000e0 * t2599 * t833 - 0.60110514000000000000e0 * t825 * t2668 + 0.30055257000000000000e0 * t825 * t2660 + 0.20036838000000000000e0 * t673 * t674 * t675 * t1794 + 0.10018419000000000000e0 * t283 * t674 * t731 * t1838 + 0.15000000000000000000e1 * t8602 + 0.24044205600000000000e1 * t6102 * t674 * t675 * t1672 + 0.60110514000000000000e0 * t283 * t674 * t6879 * t1665 - 0.15000000000000000000e1 * t5699 * t841 + 0.75000000000000000000e0 * t558 * t853 - 0.27049731300000000000e1 * t1446 * t2617 + 0.90000000000000000000e1 * t8610 + 0.10819892520000000000e2 * t8680; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[9] = t9310 + t9352 + t9410 + t9453; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[10] = 0.0e0; t9460 = t219 * t2742; t9463 = t570 * t908; t9466 = t1699 * t352; t9503 = 0.34403292181069958848e-2 * t43 * sigma[2] * t1724; t9550 = t339 * t1761; t9565 = t2702 * t244; t9570 = t886 * t613; t9573 = -0.3e1 * t1752 * t905 + 0.12e2 * t1755 * t2719 - 0.6e1 * t9550 * t1763 + 0.6e1 * t2707 * t1766 - t888 * t1788 - 0.3e1 * t9565 * t260 - 0.3e1 * t2704 * t633 - 0.3e1 * t609 * t2739 - t5894 * t349 + 0.6e1 * t5897 * t891 + 0.6e1 * t9570 * t615; t9575 = t224 * ((-0.11775432098765432099e2 * t43 * t1724 * t82 * sigma[2] + 0.39755658436213991769e3 * t421 * t1730 * t877 - 0.57532578875171467763e3 * t421 * t1738 * t592 * t1740 + 0.21547782350251486053e3 * t421 / t72 / t5877 * t1734 * t5882 - 0.154e3 / 0.81e2 * t85 * t23 * t1744 + t9503) * t110 + 0.6e1 * t614 * t905 * t633 + 0.2e1 * t614 * t349 * t1788 + 0.6e1 * t1755 * t2722 - 0.18e2 * t1762 * t905 * t615 + 0.6e1 * t614 * t2739 * t260 + 0.24e2 * t5911 * t349 * t1763 - 0.18e2 * t1762 * t891 * t633 - 0.18e2 * t5902 * t2716 - t245 * (-0.84885802469135802470e-1 * t54 * t341 * t1770 * t105 - 0.25807694707407407406e1 * t24 * t1744 * t256 + 0.99339624583399221521e1 * t43 * t1724 * t629 * sigma[2] - 0.13664543101535782356e1 * t1730 * t1785 * t90 + 0.11344441702247295467e1 * t1738 * t5941 * t592 * t19 * t23 - t9503) + t9573); t9576 = t74 * t9575; t9581 = -0.14036234076334137600e2 * t313 * t9460 + 0.18714978768445516800e2 * t313 * t9463 - 0.51964999822899072000e1 * t318 * t9466 - 0.39750325106400000000e0 * t322 * t9460 + 0.53000433475200000000e0 * t322 * t9463 - 0.50109106972081248000e1 * t318 * t9460 + 0.66812142629441664000e1 * t318 * t9463 - 0.14556094597679846400e2 * t313 * t9466 - 0.41222559369600000000e0 * t322 * t9466 + 0.50109106972081248000e1 * t318 * t9576 + 0.39750325106400000000e0 * t322 * t9576; t9585 = t225 * t907 * t565; t9588 = t5832 * t2843; t9592 = t225 * t351 * t1672; t9595 = t574 * t2836; t9603 = t5842 * t351 * t1715; t9612 = 0.14036234076334137600e2 * t313 * t9576 + 0.14310117038304000000e2 * t757 * t9585 - 0.30065464183248748800e2 * t769 * t9588 - 0.29476091560301688960e4 * t6530 * t9592 - 0.42108702229002412800e3 * t1996 * t9595 - 0.60130928366497497600e3 * t1996 * t9592 - 0.10021821394416249600e3 * t749 * t9595 - 0.33686961783201930240e3 * t757 * t9603 - 0.23850195063840000000e2 * t749 * t9592 - 0.47700390127680000000e1 * t757 * t9595 - 0.95400780255360000000e1 * t778 * t9603; t9618 = t574 * t2855; t9622 = t1714 * t907 * t581; t9625 = t1707 * t2863; t9628 = t1703 * t925; t9631 = t5825 * t932; t9634 = t1707 * t2867; t9638 = t580 * t907 * t635; t9642 = t580 * t351 * t1790; t9646 = t225 * t2741 * t266; t9649 = -0.12026185673299499520e3 * t769 * t9603 + 0.30065464183248748800e3 * t749 * t9585 + 0.20043642788832499200e2 * t757 * t9618 + 0.25265221337401447680e3 * t757 * t9622 + 0.56144936305336550400e2 * t757 * t9625 - 0.26724857051776665600e2 * t757 * t9628 - 0.13362428525888332800e2 * t769 * t9631 + 0.10021821394416249600e2 * t769 * t9634 - 0.30065464183248748800e2 * t769 * t9638 - 0.10021821394416249600e2 * t769 * t9642 - 0.35775292595760000000e1 * t769 * t9646; t9651 = t580 * t2741 * t262; t9654 = t574 * t2871; t9677 = -0.23850195063840000000e1 * t778 * t9651 + 0.23850195063840000000e1 * t769 * t9654 + 0.15900130042560000000e1 * t778 * t9625 - 0.60130928366497497600e2 * t757 * t9646 - 0.30065464183248748800e2 * t769 * t9651 + 0.40087285577664998400e2 * t757 * t9654 + 0.20043642788832499200e2 * t769 * t9625 - 0.21054351114501206400e3 * t749 * t9646 + 0.71550585191520000000e1 * t778 * t9622 + 0.12632610668700723840e4 * t1996 * t9585 + 0.11925097531920000000e1 * t769 * t9618 - 0.23850195063840000000e1 * t778 * t9588; t9683 = t225 * t907 * t639; t9687 = t225 * t351 * t1794; t9706 = 0.90196392549746246400e2 * t769 * t9622 - 0.35775292595760000000e1 * t769 * t9683 - 0.11925097531920000000e1 * t769 * t9687 - 0.15900130042560000000e1 * t769 * t9628 - 0.10600086695040000000e1 * t778 * t9631 + 0.79500650212800000000e0 * t778 * t9634 - 0.23850195063840000000e1 * t778 * t9638 - 0.79500650212800000000e0 * t778 * t9642 - 0.21054351114501206400e3 * t749 * t9683 - 0.84217404458004825600e2 * t757 * t9651 + 0.14036234076334137600e3 * t749 * t9654; t9708 = t225 * t2855 * t266; t9712 = t580 * t2867 * t266; t9716 = t580 * t2871 * t262; t9719 = t1707 * t2899; t9725 = t580 * t2836 * t262; t9731 = t1714 * t2843 * t266; t9737 = t580 * t2855 * t262; t9742 = 0.30065464183248748800e3 * t749 * t9708 + 0.42108702229002412800e3 * t749 * t9712 + 0.14310117038304000000e2 * t769 * t9716 - 0.80174571155329996800e2 * t757 * t9719 + 0.24052371346598999040e3 * t757 * t9716 - 0.25265221337401447680e4 * t1996 * t9725 - 0.60130928366497497600e3 * t749 * t9725 - 0.12632610668700723840e4 * t749 * t9731 - 0.28620234076608000000e2 * t757 * t9725 + 0.12026185673299499520e3 * t757 * t9737 - 0.21465175557456000000e2 * t769 * t9731; t9747 = t1714 * t2867 * t262; t9768 = -0.36078557019898498560e3 * t757 * t9731 + 0.25265221337401447680e3 * t757 * t9747 + 0.71550585191520000000e1 * t769 * t9712 + 0.71550585191520000000e1 * t778 * t9747 + 0.84217404458004825600e3 * t749 * t9716 + 0.14310117038304000000e2 * t757 * t9708 + 0.71550585191520000000e1 * t769 * t9737 - 0.47700390127680000000e1 * t769 * t9719 + 0.12026185673299499520e3 * t757 * t9712 + 0.90196392549746246400e2 * t769 * t9747 + 0.12632610668700723840e4 * t1996 * t9708; t9793 = 0.42108702229002412800e3 * t749 * t9737 - 0.28072468152668275200e3 * t749 * t9719 - 0.20043642788832499200e2 * t757 * t9687 - 0.70181170381670688000e2 * t749 * t9687 - 0.93574893842227584000e2 * t749 * t9628 - 0.37429957536891033600e2 * t757 * t9631 + 0.28072468152668275200e2 * t757 * t9634 - 0.84217404458004825600e2 * t757 * t9638 - 0.28072468152668275200e2 * t757 * t9642 - 0.60130928366497497600e2 * t757 * t9683 + 0.70181170381670688000e2 * t749 * t9618 - 0.84217404458004825600e2 * t757 * t9588; t9820 = 0.12022102800000000000e1 * t8694 - 0.80147352000000000000e0 * t8696 - 0.40073676000000000000e0 * t8698 + 0.60110514000000000000e0 * t8700 + 0.24044205600000000000e1 * t8702 + 0.25000000000000000000e0 * t145 * t201 * (t9581 + t9612 + t9649 + t9677 + t9706 + t9742 + t9768 + t9793) + 0.12022102800000000000e1 * t7756 + 0.60110514000000000000e0 * t7759 + 0.12022102800000000000e1 * t7762 - 0.54099462600000000000e1 * t7779 + 0.15000000000000000000e1 * t7783 - 0.15000000000000000000e1 * t5699 * t922 + 0.54099462600000000000e1 * t522 * t1648 * t955 + 0.45000000000000000000e1 * t1547 * t2959 - 0.54099462600000000000e1 * t8732 + 0.54099462600000000000e1 * t1632 * t2912 + 0.15000000000000000000e1 * t8736 - 0.54099462600000000000e1 * t1517 * t5547 * t364 - 0.30000000000000000000e1 * t8743; t9829 = t219 * t1097; t9833 = t74 * t3721; t9881 = 0.60110514000000000000e0 * t283 * t791 * t6982 * t1665 - 0.10819892520000000000e2 * t8794 - 0.10018419000000000000e0 * t283 * t2543 * t2942 + 0.60110514000000000000e0 * t283 * t9829 * t2930 + 0.24044205600000000000e1 * t283 * t9833 * t792 * t1715 + 0.24044205600000000000e1 * t6102 * t791 * t792 * t1672 + 0.60110514000000000000e0 * t2134 * t2543 * t2934 - 0.30000000000000000000e1 * t7936 + 0.18033154200000000000e1 * t2371 * t1060 * t1680 + 0.40073676000000000000e0 * t2075 * t8937 * t2766 + 0.36066308400000000000e1 * t2371 * t2514 * t1652 * t262 - 0.15000000000000000000e1 * t538 * t9220 * t277 + 0.60110514000000000000e0 * t673 * t791 * t2538 * t639 - 0.40073676000000000000e0 * t825 * t2807 - 0.20036838000000000000e0 * t283 * t2806 * t2786 + 0.60110514000000000000e0 * t2401 * t2801 + 0.20036838000000000000e0 * t673 * t791 * t792 * t1794 + 0.26715784000000000000e0 * t283 * t570 * t579 * t866 - 0.40073676000000000000e0 * t673 * t2543 * t2796; t9917 = t262 * t277; t9928 = 0.60110514000000000000e0 * t673 * t791 * t9144 * t266 + 0.60110514000000000000e0 * t283 * t865 * t2538 * t635 + 0.60110514000000000000e0 * t825 * t2787 + 0.20036838000000000000e0 * t283 * t865 * t792 * t1790 - 0.20036838000000000000e0 * t825 * t2779 + 0.13357892000000000000e0 * t283 * t8787 * t913 - 0.20036838000000000000e0 * t283 * t2543 * t2938 + 0.60110514000000000000e0 * t8423 * t859 + 0.60110514000000000000e0 * t283 * t865 * t9144 * t262 + 0.30055257000000000000e0 * t283 * t791 * t9149 * t277 - 0.60110514000000000000e0 * t8000 + 0.20036838000000000000e0 * t8002 + 0.24044205600000000000e1 * t2066 * t2514 * t527 * t9917 - 0.60110514000000000000e0 * t8817 + 0.40073676000000000000e0 * t8819 - 0.60110514000000000000e0 * t8821 - 0.12022102800000000000e1 * t8823 + 0.40073676000000000000e0 * t8827 - 0.26715784000000000000e0 * t8829; t9973 = 0.45000000000000000000e1 * t538 * t2175 * t5583 - 0.10819892520000000000e2 * t522 * t5214 * t2459 + 0.10819892520000000000e2 * t474 * t1510 * t8896 + 0.24044205600000000000e1 * t8835 + 0.24044205600000000000e1 * t8837 + 0.24044205600000000000e1 * t8839 + 0.12022102800000000000e1 * t8841 + 0.54099462600000000000e1 * t522 * t1539 * t364 * t266 - 0.30000000000000000000e1 * t1547 * t2956 + 0.30055257000000000000e0 * t283 * t791 * t2561 * t663 + 0.30055257000000000000e0 * t825 * t2943 + 0.10018419000000000000e0 * t283 * t791 * t797 * t1838 + 0.60110514000000000000e0 * t825 * t2939 - 0.18033154200000000000e1 * t2134 * t791 * t2538 * t565 + 0.60110514000000000000e0 * t2599 * t867 + 0.30055257000000000000e0 * t2599 * t914 + 0.12022102800000000000e1 * t2401 * t2797 + 0.12022102800000000000e1 * t825 * t2783 + 0.21639785040000000000e2 * t8856; t10017 = 0.25000000000000000000e0 * t1803 * t365 - 0.10819892520000000000e2 * t8881 - 0.60110514000000000000e0 * t825 * t2947 - 0.60110514000000000000e0 * t283 * t791 * t7928 * t647 - 0.40073676000000000000e0 * t283 * t2806 * t2782 + 0.54099462600000000000e1 * t474 * t5359 * t2459 - 0.50000000000000000000e0 * t538 * t809 * t1838 - 0.27049731300000000000e1 * t1446 * t2917 + 0.90000000000000000000e1 * t8894 - 0.27049731300000000000e1 * t474 * t1539 * t955 - 0.16229838780000000000e2 * t474 * t5110 * t8903 + 0.10819892520000000000e2 * t1446 * t2920 - 0.27049731300000000000e1 * t5255 * t919 - 0.54099462600000000000e1 * t1446 * t2925 - 0.24044205600000000000e1 * t8950 - 0.48088411200000000000e1 * t8952 - 0.24044205600000000000e1 * t8954 - 0.40073676000000000000e0 * t2401 * t2950 - 0.20036838000000000000e0 * t673 * t2543 * t2800; t10077 = -0.18033154200000000000e1 * t825 * t2931 - 0.18033154200000000000e1 * t283 * t2929 * t2538 * t581 - 0.18033154200000000000e1 * t7363 * t2935 + 0.12022102800000000000e1 * t2075 * t2514 * t5469 * t262 - 0.60110514000000000000e0 * t2075 * t1060 * t1669 + 0.45000000000000000000e1 * t538 * t8128 * t647 - 0.60110514000000000000e0 * t2066 * t1060 * t1808 - 0.60110514000000000000e0 * t2066 * t1060 * t1813 + 0.80147352000000000000e0 * t2066 * t8937 * t2771 + 0.40073676000000000000e0 * t2066 * t3631 * t644 - 0.24044205600000000000e1 * t7163 * t2772 + 0.12022102800000000000e1 * t2066 * t1060 * t1691 + 0.18033154200000000000e1 * t2075 * t9109 * t9115 * t277 - 0.18033154200000000000e1 * t2075 * t9109 * t2515 * t635 - 0.12022102800000000000e1 * t7160 * t2767 - 0.12022102800000000000e1 * t2075 * t9091 * t2766 - 0.60110514000000000000e0 * t2075 * t2514 * t8720 * t277 - 0.60110514000000000000e0 * t2075 * t2514 * t2520 * t663 - 0.18033154200000000000e1 * t2371 * t1060 * t1677; t10118 = -0.24044205600000000000e1 * t2066 * t9091 * t2771 - 0.12022102800000000000e1 * t2066 * t2514 * t1543 * t262 - 0.12022102800000000000e1 * t2066 * t2514 * t523 * t635 - 0.12022102800000000000e1 * t7163 * t2775 - 0.12022102800000000000e1 * t2066 * t3627 * t644 + 0.36066308400000000000e1 * t2066 * t9109 * t523 * t581 + 0.10819892520000000000e2 * t9076 - 0.27049731300000000000e1 * t474 * t527 * t2908 + 0.75000000000000000000e0 * t558 * t956 + 0.54099462600000000000e1 * t474 * t1510 * t8886 - 0.15000000000000000000e1 * t1547 * t2810 + 0.12022102800000000000e1 * t9142 + 0.12022102800000000000e1 * t9165 - 0.36066308400000000000e1 * t9167 - 0.36066308400000000000e1 * t9170 - 0.12022102800000000000e1 * t9172 - 0.80147352000000000000e0 * t9174 - 0.60000000000000000000e1 * t9190 + 0.15000000000000000000e1 * t9200; t10165 = -0.13357892000000000000e0 * t825 * t2754 - 0.13357892000000000000e0 * t283 * t570 * t909 + 0.10018419000000000000e0 * t2599 * t862 + 0.10018419000000000000e0 * t283 * t219 * t2743 + 0.10389471555555555556e0 * t283 * t1699 * t353 - 0.10018419000000000000e0 * t9413 * t354 - 0.30055257000000000000e0 * t2599 * t910 + 0.20036838000000000000e0 * t825 * t2747 - 0.30055257000000000000e0 * t825 * t2744 - 0.10018419000000000000e0 * t283 * t74 * t9575 * t131 - 0.60110514000000000000e0 * t8220 + 0.15000000000000000000e1 * t8227 - 0.60000000000000000000e1 * t538 * t7017 * t1665 + 0.26715784000000000000e0 * t673 * t8787 * t858 + 0.20036838000000000000e0 * t283 * t2543 * t2946 - 0.60000000000000000000e1 * t9252 + 0.30000000000000000000e1 * t9261 - 0.15000000000000000000e1 * t538 * t2468 * t663 + 0.75000000000000000000e0 * t216 * t2909 - 0.90165771000000000000e0 * t474 * t5564 * t364; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[11] = t9820 + t9881 + t9928 + t9973 + t10017 + t10077 + t10118 + t10165; t10173 = 0.40073676000000000000e0 * t6623 * t153 * t1018; t10174 = t725 * t725; t10175 = t968 * t10174; t10180 = t667 * t3050; t10182 = t667 * t3054; t10184 = t667 * t3059; t10186 = t3048 * t469; t10190 = t3048 * t393; t10194 = t675 * t1922; t10198 = t3057 * t500; t10203 = t2111 * t3212; t10205 = t1352 * t1053; t10226 = t1517 * t1058; t10230 = t3081 * t969; t10238 = -0.16029470400000000000e1 * t10203 + 0.15000000000000000000e1 * t538 * t10205 * t482 + 0.26715784000000000000e0 * t2075 * t6204 * t3232 + 0.26715784000000000000e0 * t2075 * t3285 * t744 - 0.80147352000000000000e0 * t6667 * t3233 - 0.80147352000000000000e0 * t2075 * t6670 * t3232 - 0.80147352000000000000e0 * t2075 * t2067 * t6096 * t190 - 0.80147352000000000000e0 * t6718 * t3239 - 0.40073676000000000000e0 * t10226 * t4123 * t476 - 0.53431568000000000000e0 * t1059 * t10230 * t2077 - 0.40073676000000000000e0 * t2075 * t2067 * t1943 * t465; t10254 = t3081 * t306; t10258 = t3073 * t306; t10265 = t1022 * t210; t10273 = t408 * t1012; t10283 = t200 * t1053; t10285 = 0.50000000000000000000e0 * t371 * t10283; t10286 = t1478 * t3062; t10288 = t8 * t3173; t10291 = 0.40073676000000000000e0 * t2061 * t977; t10294 = t1238 * t969; t10304 = -0.40073676000000000000e0 * t2075 * t10273 * t2077 - 0.80147352000000000000e0 * t2066 * t10273 * t2068 - 0.40073676000000000000e0 * t2066 * t4184 * t476 + t10285 - 0.40000000000000000000e1 * t10286 + 0.10000000000000000000e1 * t10288 + t10291 + 0.30000000000000000000e1 * t1473 * t3229 + 0.24044205600000000000e1 * t2066 * t10294 * t2068 - 0.16029470400000000000e1 * t2066 * t2067 * t2086 + 0.80147352000000000000e0 * t2066 * t4180 * t476; t10307 = t6215 * t3239; t10315 = t6220 * t3233; t10317 = t368 * t1023; t10319 = t2973 * t3209; t10321 = t2978 * t968; t10325 = t2973 * t3206; t10341 = t1478 * t3229; t10346 = t480 * t3172; t10350 = t1053 * t210; t10366 = t783 * t783; t10370 = 0.16029470400000000000e1 * t2066 * t1080 * t1949 + 0.16029470400000000000e1 * t2075 * t2067 * t743 * t7267 + 0.60000000000000000000e1 * t10341 - 0.36066308400000000000e1 * t522 * t4638 * t1022 - 0.10000000000000000000e1 * t538 * t10346 * t210 + 0.36066308400000000000e1 * t474 * t1195 * t10350 - 0.13357892000000000000e0 * t283 * t2120 * t3224 - 0.80147352000000000000e0 * t2075 * t2067 * t2106 - 0.24044205600000000000e1 * t2075 * t6661 * t2097 + 0.12022102800000000000e1 * t2075 * t10294 * t2077 - 0.10000000000000000000e1 * t145 * t481 * t10366; t10372 = t966 * t3972; t10373 = t3048 * t409; t10377 = t145 * t1038; t10384 = t1012 * t480; t10400 = t969 * t480; t10401 = t10400 * t482; t10426 = t3048 * t465; t10437 = t2973 * t3187; t10445 = -0.20036838000000000000e0 * t283 * t683 * t10198 - 0.10000000000000000000e1 * t538 * t743 * t2057 + 0.18033154200000000000e1 * t474 * t4661 * t1022 + 0.36066308400000000000e1 * t1323 * t3065 + 0.26715784000000000000e0 * t673 * t2116 * t3181 + 0.26715784000000000000e0 * t963 * t3186 * t10426 - 0.35621045333333333334e0 * t963 * t2978 * t3080 * t3049 + 0.20036838000000000000e0 * t3179 * t3180 * t10186 + 0.10686313600000000000e1 * t10437 + 0.10018419000000000000e0 * t283 * t674 * t3199 * t500 + 0.20036838000000000000e0 * t1846 * t1019; t10449 = t8 * t1046; t10450 = t10449 * t3182; t10460 = t667 * t3038; t10465 = t1851 * t977; t10469 = t1851 * t1015; t10477 = t667 * t2970; t10482 = t407 * t10174; t10511 = t723 * t723; t10514 = t2998 * t172; t10520 = 0.2e1 * t444 * t1010 * t463 - 0.6e1 * t1286 * t993 * t463 + 0.4e1 * t444 * t3033 * t188 + 0.4e1 * t444 * t304 * t1920 + 0.4e1 * t444 * t10511 - 0.2e1 * t10514 * t188 + 0.8e1 * t1279 * t3013 + 0.4e1 * t1279 * t3017 + 0.8e1 * t1888 * t1900 + 0.4e1 * t1888 * t1903 - t3000 * t463 - 0.2e1 * t6352 * t304 + 0.8e1 * t6315 * t709; t10548 = 0.46913580246913580247e-3 * t43 * t415; t10551 = t989 * t443; t10585 = -0.4e1 * t1885 * t723 - 0.2e1 * t706 * t1920 + 0.2e1 * t4550 * t993 - t1276 * t1010 - 0.2e1 * t439 * t3033 - t173 * (-0.12732870370370370370e-1 * t54 * t997 * t449 * t61 + 0.49630182129629629625e-1 * t24 * t1002 * t431 * t184 - 0.17773414759800945055e1 * t43 * t1913 + 0.39481569207306256398e0 * t1917 * sigma[0] - 0.42541656383427358000e0 * t1872 * t4594 * t44 * t19 * t23 + t10548) + 0.2e1 * t10551 * t445 - 0.24e2 * t1286 * t709 * t723 - 0.6e1 * t1286 * t1010 * t445 + 0.24e2 * t4564 * t993 * t445 - 0.12e2 * t6318 * t1897 - 0.12e2 * t4555 * t3010 + (-0.97158950617283950615e2 * t1867 * t982 + 0.18180941358024691358e3 * t1873 * t19 * t2991 - 0.80804183813443072701e2 * t421 / t16 / t424 / t413 * t40 * t42 * t422 * t32 + 0.17686419753086419752e1 * t43 * t1863 - t10548) * t66; t10587 = t152 * (t10520 + t10585); t10592 = t667 * t2965; t10594 = t386 * t962; t10597 = t964 * t28; t10601 = t2973 * t2979; t10605 = -0.44526306666666666667e-1 * t283 * t398 * t1014 + 0.13357892000000000000e0 * t10477 + 0.89052613333333333333e-1 * t283 * t398 * t976 + 0.40073676000000000000e0 * t283 * t18 * t10482 * t131 + 0.20036838000000000000e0 * t1846 * t977 - 0.10018419000000000000e0 * t283 * t18 * t10587 * t131 - 0.26715784000000000000e0 * t10592 - 0.66789460000000000000e-1 * t10594 * t972 - 0.74210511111111111112e-1 * t963 * t10597 * t971 + 0.17810522666666666667e0 * t10601 - 0.10018419000000000000e0 * t1846 * t1015; t10609 = t368 * t962; t10610 = t10609 * t972; t10623 = t6220 * t3236; t10638 = t4779 * t1022; t10652 = 0.20036838000000000000e0 * t2061 * t1015; t10653 = t4692 * t1057; t10655 = 0.13357892000000000000e0 * t10653 * t972; t10662 = t1207 * t3176; t10664 = -0.18033154200000000000e1 * t474 * t475 * t3172 - 0.60000000000000000000e1 * t538 * t10638 * t482 - 0.26715784000000000000e0 * t3043 * t3206 + 0.13357892000000000000e0 * t3043 * t3209 - 0.13357892000000000000e0 * t670 * t3215 - 0.13357892000000000000e0 * t283 * t2120 * t3220 - t10652 - t10655 - 0.90165771000000000000e0 * t474 * t1212 * t1053 + 0.18033154200000000000e1 * t522 * t1365 * t1053 - 0.36066308400000000000e1 * t10662; t10671 = t3035 * t200; t10682 = t142 * t1046; t10698 = t2111 * t3192; t10700 = t667 * t3196; t10702 = t667 * t3201; t10722 = t368 * t1054; t10724 = 0.20036838000000000000e0 * t283 * t683 * t3190 * t465 + 0.80147352000000000000e0 * t10698 + 0.80147352000000000000e0 * t10700 + 0.40073676000000000000e0 * t10702 + 0.20036838000000000000e0 * t673 * t674 * t3190 * t469 + 0.40073676000000000000e0 * t283 * t6116 * t3049 - 0.26715784000000000000e0 * t283 * t2116 * t3053 + 0.13357892000000000000e0 * t283 * t2116 * t3058 - 0.60110514000000000000e0 * t283 * t2124 * t10426 + 0.40073676000000000000e0 * t2092 * t3192 + 0.10000000000000000000e1 * t10722; t10728 = t3035 * t131; t10735 = t325 * t783; t10739 = t1207 * t3065; t10741 = t1478 * t3069; t10743 = t480 * t1022; t10745 = 0.10000000000000000000e1 * t371 * t10743; t10746 = t667 * t3215; t10751 = t1851 * t1019; t10753 = t667 * t3221; t10755 = -0.20000000000000000000e1 * t1473 * t3062 + 0.40073676000000000000e0 * t283 * t683 * t10728 * t190 - 0.50000000000000000000e0 * t386 * t1023 + 0.72132616800000000000e1 * t474 * t1195 * t10735 + 0.72132616800000000000e1 * t10739 - 0.20000000000000000000e1 * t10741 - t10745 - 0.26715784000000000000e0 * t10746 + 0.89052613333333333333e-1 * t283 * t6131 * t1018 + 0.80147352000000000000e0 * t10751 + 0.80147352000000000000e0 * t10753; t10756 = t667 * t3225; t10785 = t10597 * t970; t10788 = t966 * t10175; t10791 = t398 * t1013; t10794 = t398 * t975; t10797 = t18 * t10482; t10802 = t146 * t3036; t10805 = t18 * t10587; t10820 = 0.44167027896000000000e0 * t1046 * t10785 + 0.79500650212800000000e0 * t1046 * t10788 + 0.22270714209813888000e1 * t318 * t10791 - 0.35333622316800000000e0 * t322 * t10794 - 0.15900130042560000000e1 * t322 * t10797 + 0.17666811158400000000e0 * t322 * t10791 - 0.33406071314720832000e1 * t318 * t10802 + 0.39750325106400000000e0 * t322 * t10805 - 0.44541428419627776000e1 * t318 * t10794 - 0.20043642788832499200e2 * t318 * t10797 - 0.26500216737600000000e0 * t322 * t10802 + 0.74235714032712960000e1 * t1038 * t10785 + 0.13362428525888332800e2 * t1038 * t10788 - 0.93574893842227584000e1 * t313 * t10802; t10835 = t758 * t725; t10836 = t1238 * t10835; t10840 = t408 * t3142 * t190; t10843 = t3074 * t190; t10844 = t1238 * t10843; t10847 = t750 * t725; t10848 = t408 * t10847; t10851 = t3081 * t10843; t10854 = t3081 * t10835; t10857 = t3073 * t10847; t10860 = 0.25993026067285440000e2 * t1027 * t10785 + 0.14036234076334137600e2 * t313 * t10805 + 0.50109106972081248000e1 * t318 * t10805 + 0.46787446921113792000e2 * t1027 * t10788 - 0.12476652512297011200e2 * t313 * t10794 - 0.56144936305336550400e2 * t313 * t10797 + 0.62383262561485056000e1 * t313 * t10791 + 0.33686961783201930240e3 * t757 * t10836 + 0.28072468152668275200e3 * t749 * t10840 - 0.84217404458004825600e3 * t749 * t10844 + 0.56144936305336550400e3 * t749 * t10848 + 0.11228987261067310080e4 * t3100 * t10851 - 0.37429957536891033600e3 * t3072 * t10854 - 0.56144936305336550400e3 * t3100 * t10857; t10890 = -0.63600520170240000000e1 * t3156 * t10854 + 0.12026185673299499520e3 * t769 * t10836 - 0.24052371346598999040e3 * t757 * t10844 + 0.16034914231065999360e3 * t757 * t10848 + 0.26724857051776665600e3 * t3072 * t10851 - 0.13362428525888332800e3 * t3072 * t10857 - 0.10689942820710666240e3 * t3078 * t10854 + 0.80174571155329996800e2 * t757 * t10840 + 0.47700390127680000000e1 * t769 * t10840 - 0.14310117038304000000e2 * t769 * t10844 + 0.95400780255360000000e1 * t769 * t10848 + 0.95400780255360000000e1 * t778 * t10836 + 0.12720104034048000000e2 * t3078 * t10851 - 0.63600520170240000000e1 * t3078 * t10857; t10891 = t4485 * t3082; t10894 = t1231 * t3086; t10897 = t969 * t465; t10898 = t1238 * t10897; t10901 = t306 * t1922; t10902 = t408 * t10901; t10906 = t153 * t3035 * t194; t10910 = t153 * t1012 * t469; t10913 = t1231 * t3146; t10917 = t408 * t3035 * t190; t10921 = t408 * t1012 * t465; t10932 = t969 * t469; t10933 = t3073 * t10932; t10936 = t969 * t409; t10937 = t4495 * t10936; t10940 = -0.15900130042560000000e1 * t778 * t10891 + 0.10600086695040000000e1 * t778 * t10894 + 0.23850195063840000000e1 * t778 * t10898 - 0.15900130042560000000e1 * t778 * t10902 - 0.23850195063840000000e1 * t769 * t10906 - 0.11925097531920000000e1 * t769 * t10910 + 0.53000433475200000000e0 * t778 * t10913 - 0.15900130042560000000e1 * t778 * t10917 - 0.79500650212800000000e0 * t778 * t10921 - 0.20043642788832499200e2 * t769 * t10891 + 0.13362428525888332800e2 * t769 * t10894 + 0.30065464183248748800e2 * t769 * t10898 - 0.20043642788832499200e2 * t769 * t10902 - 0.14036234076334137600e3 * t3100 * t10933 - 0.33686961783201930240e3 * t757 * t10937; t10944 = t153 * t1012 * t393; t10947 = t402 * t3142; t10950 = t969 * t393; t10951 = t408 * t10950; t10954 = t1231 * t3074; t10957 = t965 * t3972; t10958 = t10957 * t10936; t10962 = t1238 * t1012 * t409; t10978 = t2977 * t3080 * t3082; t10981 = t2977 * t968; t10982 = t10981 * t3086; t10985 = 0.42108702229002412800e3 * t1996 * t10944 + 0.46787446921113792000e2 * t749 * t10947 - 0.84217404458004825600e3 * t1996 * t10951 - 0.93574893842227584000e2 * t749 * t10954 + 0.46787446921113792000e3 * t3072 * t10958 + 0.23850195063840000000e1 * t778 * t10962 + 0.47700390127680000000e1 * t757 * t10944 + 0.79500650212800000000e0 * t769 * t10947 + 0.66812142629441664000e1 * t769 * t10913 - 0.20043642788832499200e2 * t769 * t10917 - 0.10021821394416249600e2 * t769 * t10921 - 0.15900130042560000000e1 * t3078 * t10933 + 0.21200173390080000000e1 * t3156 * t10978 - 0.10600086695040000000e1 * t3156 * t10982; t10986 = t3081 * t10897; t10989 = t3073 * t10901; t10992 = t408 * t10932; t11005 = t10981 * t3074; t11012 = t3073 * t10950; t11017 = t4458 * t9; t11018 = t11017 * t1077; t11021 = -0.15900130042560000000e1 * t3156 * t10986 + 0.79500650212800000000e0 * t3156 * t10989 + 0.23850195063840000000e1 * t769 * t10992 - 0.40087285577664998400e2 * t757 * t10906 - 0.20043642788832499200e2 * t757 * t10910 - 0.95400780255360000000e1 * t757 * t10951 - 0.15900130042560000000e1 * t769 * t10954 - 0.95400780255360000000e1 * t778 * t10937 + 0.21200173390080000000e1 * t3078 * t11005 + 0.79500650212800000000e1 * t3156 * t10958 + 0.30065464183248748800e2 * t769 * t10962 + 0.79500650212800000000e1 * t3072 * t11012 - 0.12026185673299499520e3 * t769 * t10937 + 0.98253638534338963200e3 * t11018 * t11012; t11051 = -0.20043642788832499200e3 * t749 * t10951 - 0.26724857051776665600e2 * t757 * t10954 + 0.44541428419627776000e2 * t3072 * t11005 + 0.13362428525888332800e3 * t3078 * t10958 + 0.84217404458004825600e2 * t757 * t10962 + 0.20043642788832499200e3 * t3100 * t11012 + 0.10021821394416249600e3 * t749 * t10944 + 0.13362428525888332800e2 * t757 * t10947 - 0.93574893842227584000e2 * t3072 * t10986 + 0.46787446921113792000e2 * t3072 * t10989 + 0.14036234076334137600e3 * t749 * t10992 - 0.56144936305336550400e2 * t757 * t10891 + 0.37429957536891033600e2 * t757 * t10894 + 0.84217404458004825600e2 * t757 * t10898; t11082 = -0.56144936305336550400e2 * t757 * t10902 - 0.70181170381670688000e2 * t749 * t10910 + 0.18714978768445516800e2 * t757 * t10913 - 0.28072468152668275200e2 * t757 * t10921 - 0.33406071314720832000e2 * t3072 * t10933 + 0.35633142735702220800e2 * t3078 * t10978 - 0.17816571367851110400e2 * t3078 * t10982 - 0.26724857051776665600e2 * t3078 * t10986 + 0.13362428525888332800e2 * t3078 * t10989 + 0.40087285577664998400e2 * t757 * t10992 - 0.14036234076334137600e3 * t749 * t10906 - 0.56144936305336550400e2 * t757 * t10917 + 0.18714978768445516800e3 * t3100 * t11005 + 0.12476652512297011200e3 * t3072 * t10978 - 0.62383262561485056000e2 * t3072 * t10982; t11089 = 0.80147352000000000000e0 * t10756 + 0.40073676000000000000e0 * t670 * t3221 + 0.20036838000000000000e0 * t283 * t674 * t6789 * t325 + 0.40073676000000000000e0 * t283 * t674 * t2105 * t783 + 0.40073676000000000000e0 * t670 * t3225 + 0.20036838000000000000e0 * t283 * t674 * t731 * t2057 + 0.60000000000000000000e1 * t538 * t2150 * t6250 + 0.20036838000000000000e0 * t670 * t3201 + 0.40073676000000000000e0 * t673 * t674 * t10728 * t194 + 0.25000000000000000000e0 * t386 * t1054 + 0.25000000000000000000e0 * t145 * t201 * (t10820 + t10860 + t10890 + t10940 + t10985 + t11021 + t11051 + t11082); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[0] = -0.16029470400000000000e1 * t10307 + t10755 - 0.40073676000000000000e0 * t10460 + t10304 - 0.13357892000000000000e0 * t963 * t966 * t10175 * t131 + 0.16029470400000000000e1 * t2066 * t2067 * t1943 * t7255 - 0.20036838000000000000e0 * t283 * t674 * t10384 * t482 - 0.60110514000000000000e0 * t283 * t2124 * t3190 * t409 - 0.60110514000000000000e0 * t2134 * t674 * t3190 * t393 + 0.12022102800000000000e1 * t2075 * t6661 * t1943 * t409 + 0.20036838000000000000e0 * t283 * t674 * t10671 * t210 - 0.16029470400000000000e1 * t10623 + t10724 + t10605 - 0.16029470400000000000e1 * t10315 - 0.20000000000000000000e1 * t10317 - 0.40073676000000000000e0 * t10469 - 0.26715784000000000000e0 * t10610 + 0.15000000000000000000e1 * t538 * t3228 * t500 - 0.40073676000000000000e0 * t673 * t683 * t10186 + t10238 + t10664 + t11089 + 0.16029470400000000000e1 * t10182 - 0.80147352000000000000e0 * t10184 - 0.10000000000000000000e1 * t1473 * t3069 - 0.80147352000000000000e0 * t2092 * t3212 + 0.50000000000000000000e0 * t142 * t3173 - 0.40073676000000000000e0 * t670 * t3059 + 0.40073676000000000000e0 * t10682 * t3182 + 0.40073676000000000000e0 * t670 * t3196 - 0.12022102800000000000e1 * t670 * t3050 + 0.80147352000000000000e0 * t670 * t3054 - 0.80147352000000000000e0 * t6667 * t3236 + 0.53431568000000000000e0 * t3043 * t3187 - 0.13357892000000000000e0 * t670 * t2965 + 0.66789460000000000000e-1 * t670 * t2970 - 0.20036838000000000000e0 * t670 * t3038 + 0.89052613333333333334e-1 * t3043 * t2979 - 0.18033154200000000000e1 * t1323 * t3176 + 0.80147352000000000000e0 * t10465 + t10445 + 0.80147352000000000000e0 * t10450 - 0.24044205600000000000e1 * t10180 + 0.12022102800000000000e1 * t2134 * t683 * t10190 - 0.13357892000000000000e0 * t963 * t3180 * t10194 + 0.66789460000000000000e-1 * t963 * t3180 * t10198 - 0.80147352000000000000e0 * t2075 * t3294 * t744 - 0.80147352000000000000e0 * t2075 * t1080 * t2155 - 0.40073676000000000000e0 * t2075 * t1080 * t1955 - 0.40073676000000000000e0 * t2066 * t1080 * t1930 + 0.10686313600000000000e1 * t1059 * t10254 * t2097 + 0.26715784000000000000e0 * t1059 * t10258 * t2106 + 0.80147352000000000000e0 * t10226 * t10258 * t2086 - 0.10819892520000000000e2 * t474 * t4654 * t10265 - 0.16029470400000000000e1 * t10226 * t10230 * t2068 + 0.12022102800000000000e1 * t2371 * t1080 * t1952 + 0.26715784000000000000e0 * t2066 * t3285 * t740 + 0.17810522666666666667e0 * t963 * t10321 * t3053 - 0.13357892000000000000e1 * t963 * t10372 * t10373 - 0.80147352000000000000e0 * t10377 * t3180 * t10190 - 0.26715784000000000000e0 * t3179 * t10321 * t3181 - 0.13357892000000000000e0 * t673 * t2120 * t3191 + 0.40073676000000000000e0 * t283 * t683 * t10401 + 0.24044205600000000000e1 * t283 * t6120 * t10373 + 0.40073676000000000000e0 * t283 * t683 * t10194 - 0.89052613333333333334e-1 * t963 * t10321 * t3058 - 0.13357892000000000000e0 * t963 * t3180 * t10401 + 0.66789460000000000000e-1 * t283 * t146 * t3037 - 0.50000000000000000000e0 * t538 * t3068 * t500 + 0.12022102800000000000e1 * t2075 * t1080 * t2151 - 0.80147352000000000000e0 * t2066 * t3294 * t740 - 0.80147352000000000000e0 * t2066 * t1080 * t1936 - 0.13357892000000000000e0 * t283 * t2116 * t3195 - 0.66789460000000000000e-1 * t283 * t2120 * t3200 + 0.26715784000000000000e0 * t10319 + t10173 - 0.53431568000000000000e0 * t10325 + t10370; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[1] = 0.0e0; t11096 = t1090 * t210; t11100 = t1478 * t3268; t11102 = t364 * t783; t11109 = t1500 * t3257; t11114 = t1352 * t1090; t11133 = t1492 * t3257; t11134 = t11133 * t3265; t11139 = 0.18033154200000000000e1 * t474 * t4661 * t3271 + 0.36066308400000000000e1 * t474 * t1195 * t11096 - 0.20000000000000000000e1 * t11100 + 0.36066308400000000000e1 * t474 * t1195 * t11102 + 0.30000000000000000000e1 * t538 * t7076 * t1948 + 0.13357892000000000000e0 * t11109 * t3262 + 0.26715784000000000000e0 * t11109 * t3265 + 0.15000000000000000000e1 * t538 * t11114 * t482 - 0.20036838000000000000e0 * t2066 * t1060 * t1930 + 0.13357892000000000000e0 * t2075 * t6204 * t3363 - 0.90165771000000000000e0 * t474 * t1212 * t1090 - 0.89052613333333333333e-1 * t3258 * t353 * t2006 + 0.13357892000000000000e0 * t3258 * t353 * t2015 + 0.53431568000000000000e0 * t11134 + 0.20036838000000000000e0 * t3380 * t353 * t2023; t11156 = t4923 * t3257; t11157 = t11156 * t3381; t11159 = t11133 * t3262; t11161 = t4988 * t3257; t11170 = t352 * t480; t11180 = t4909 * t3257; t11192 = t6215 * t3357; t11194 = 0.66789460000000000000e-1 * t3258 * t3259 * t153 * t306 * t500 + 0.40073676000000000000e0 * t3380 * t353 * t2019 + 0.13357892000000000000e0 * t3258 * t3259 * t153 * t725 * t210 + 0.26715784000000000000e0 * t3258 * t353 * t2010 + 0.80147352000000000000e0 * t11157 + 0.26715784000000000000e0 * t11159 + 0.40073676000000000000e0 * t11161 * t3381 - 0.40073676000000000000e0 * t3258 * t353 * t1992 - 0.13357892000000000000e0 * t3380 * t353 * t2001 - 0.13357892000000000000e0 * t3258 * t11170 * t153 * t306 * t482 - 0.44526306666666666666e-1 * t3258 * t3259 * t402 * t3260 - 0.80147352000000000000e0 * t11180 * t353 * t1998 - 0.40073676000000000000e0 * t6718 * t3357 - 0.40073676000000000000e0 * t2066 * t1060 * t1936 - 0.20036838000000000000e0 * t2075 * t1080 * t2189 - 0.80147352000000000000e0 * t11192; t11202 = t1478 * t3253; t11210 = t368 * t1091; t11229 = t1207 * t3272; t11231 = t3325 * t3322; t11238 = -0.40073676000000000000e0 * t2075 * t3294 * t810 - 0.40073676000000000000e0 * t2075 * t1080 * t2221 + 0.60000000000000000000e1 * t11202 + 0.30000000000000000000e1 * t538 * t2175 * t6250 - 0.36066308400000000000e1 * t522 * t4638 * t3271 + 0.10000000000000000000e1 * t11210 + 0.10018419000000000000e0 * t283 * t791 * t797 * t2057 + 0.10018419000000000000e0 * t1846 * t1071 + 0.20036838000000000000e0 * t670 * t3350 + 0.10018419000000000000e0 * t283 * t674 * t6789 * t364 - 0.18033154200000000000e1 * t1323 * t3333 + 0.15000000000000000000e1 * t538 * t2175 * t6259 + 0.72132616800000000000e1 * t11229 - 0.26715784000000000000e0 * t11231 - 0.66789460000000000000e-1 * t4865 * t1058 * t1063 - 0.13357892000000000000e0 * t3318 * t3322; t11252 = t3325 * t3330; t11255 = t4948 * t1058 * t1063; t11273 = t8 * t3315; t11275 = t667 * t3337; t11285 = t1851 * t1067; t11287 = -0.66789460000000000000e-1 * t1059 * t1060 * t1061 * t1923 - 0.29684204444444444444e-1 * t1059 * t1060 * t131 * t175 * t307 + 0.44526306666666666666e-1 * t1059 * t1060 * t3328 * t726 + 0.89052613333333333333e-1 * t11252 - 0.26715784000000000000e0 * t11255 + 0.44526306666666666666e-1 * t3318 * t3330 + 0.80147352000000000000e0 * t2075 * t2067 * t809 * t7267 + 0.80147352000000000000e0 * t2066 * t2067 * t2179 * t7255 + 0.80147352000000000000e0 * t2066 * t1080 * t2172 + 0.80147352000000000000e0 * t2066 * t1060 * t1949 + 0.10000000000000000000e1 * t11273 + 0.40073676000000000000e0 * t11275 - 0.66789460000000000000e-1 * t670 * t3375 - 0.66789460000000000000e-1 * t283 * t2120 * t3349 - 0.66789460000000000000e-1 * t283 * t2120 * t3336 + 0.40073676000000000000e0 * t11285; t11290 = t667 * t3344; t11292 = t1851 * t1071; t11294 = t667 * t3350; t11299 = t1207 * t3333; t11322 = 0.20036838000000000000e0 * t6623 * t153 * t1070; t11323 = t352 * t1061; t11328 = t200 * t17; t11329 = t352 * t11328; t11338 = 0.40073676000000000000e0 * t11290 + 0.40073676000000000000e0 * t11292 + 0.40073676000000000000e0 * t11294 - 0.18033154200000000000e1 * t474 * t475 * t3314 - 0.36066308400000000000e1 * t11299 - 0.10000000000000000000e1 * t1473 * t3276 + 0.20036838000000000000e0 * t670 * t3337 + 0.20036838000000000000e0 * t283 * t674 * t2105 * t821 + 0.10018419000000000000e0 * t283 * t674 * t731 * t2214 + 0.10018419000000000000e0 * t1846 * t1067 + 0.20036838000000000000e0 * t670 * t3344 + 0.18033154200000000000e1 * t522 * t1365 * t1090 + t11322 - 0.80147352000000000000e0 * t3380 * t11323 * t3289 * t7255 - 0.26715784000000000000e0 * t3258 * t11329 * t3289 * t7267 - 0.40073676000000000000e0 * t3380 * t11329 * t307 * t1432; t11339 = t200 * t1090; t11341 = 0.50000000000000000000e0 * t371 * t11339; t11348 = t6215 * t3360; t11355 = t6220 * t3364; t11357 = t6220 * t3367; t11382 = 0.20036838000000000000e0 * t6623 * t225 * t1066; t11383 = t11341 - 0.40073676000000000000e0 * t2075 * t1060 * t2155 - 0.20036838000000000000e0 * t2075 * t1060 * t1955 - 0.80147352000000000000e0 * t11348 - 0.40073676000000000000e0 * t6667 * t3370 - 0.20036838000000000000e0 * t2066 * t1080 * t2186 - 0.80147352000000000000e0 * t11355 - 0.80147352000000000000e0 * t11357 - 0.40073676000000000000e0 * t6718 * t3360 - 0.40073676000000000000e0 * t2066 * t3294 * t806 - 0.40073676000000000000e0 * t2066 * t1080 * t2168 - 0.40073676000000000000e0 * t2075 * t2067 * t7096 * t190 - 0.20036838000000000000e0 * t2075 * t2067 * t2179 * t465 - 0.40073676000000000000e0 * t6667 * t3367 - 0.50000000000000000000e0 * t538 * t3275 * t500 + t11382; t11400 = t821 * t325; t11406 = t4963 * t1074; t11408 = t1478 * t3386; t11418 = 0.10000000000000000000e1 * t371 * t1074; t11426 = -0.10819892520000000000e2 * t7345 * t3253 + 0.50000000000000000000e0 * t142 * t3315 - 0.10000000000000000000e1 * t538 * t2220 * t783 + 0.13357892000000000000e0 * t2075 * t3285 * t810 - 0.40073676000000000000e0 * t6667 * t3364 - 0.40073676000000000000e0 * t2075 * t6670 * t3363 + 0.36066308400000000000e1 * t474 * t1195 * t11400 + 0.30000000000000000000e1 * t1473 * t3253 - 0.20000000000000000000e1 * t11406 - 0.20000000000000000000e1 * t11408 - 0.50000000000000000000e0 * t538 * t809 * t2057 - 0.50000000000000000000e0 * t4851 * t1074 + 0.25000000000000000000e0 * t386 * t1091 - t11418 + 0.60110514000000000000e0 * t2075 * t6661 * t2179 * t409 + 0.60110514000000000000e0 * t2075 * t1080 * t2176; t11436 = t480 * t3314; t11440 = t1478 * t3276; t11445 = t667 * t3375; t11464 = 0.13357892000000000000e0 * t4692 * t9 * t1078 * t353 * t1080; t11465 = t6220 * t3370; t11469 = t968 * t306; t11471 = t3280 * t11469 * t409; t11477 = t3280 * t307 * t393; t11480 = t352 * t57; t11481 = t11480 * t3281; t11485 = t3280 * t726 * t194; t11489 = t3280 * t307 * t469; t11493 = t3280 * t3289 * t465; t11496 = t11480 * t3290; t11501 = t3280 * t407 * t725 * t190; t11511 = t352 * t1227 * t306; t11517 = t352 * t402 * t725; t11521 = t352 * t153 * t1922; t11528 = 0.23850195063840000000e1 * t1087 * t11471 + 0.40087285577664998400e2 * t1084 * t11471 + 0.79500650212800000000e1 * t1079 * t11477 + 0.10600086695040000000e1 * t1084 * t11481 - 0.66812142629441664000e2 * t1079 * t11485 - 0.33406071314720832000e2 * t1079 * t11489 - 0.46787446921113792000e2 * t1079 * t11493 + 0.31191631280742528000e2 * t1079 * t11496 - 0.93574893842227584000e2 * t1079 * t11501 - 0.28072468152668275200e3 * t3279 * t11485 - 0.14036234076334137600e3 * t3279 * t11489 + 0.22270714209813888000e2 * t1079 * t11481 + 0.17666811158400000000e0 * t1087 * t11511 + 0.29694285613085184000e1 * t1084 * t11511 - 0.26500216737600000000e0 * t1087 * t11517 + 0.66812142629441664000e1 * t1084 * t11521 - 0.44541428419627776000e1 * t1084 * t11517 + 0.23393723460556896000e2 * t1079 * t11521; t11545 = t11017 * t1078; t11560 = t3256 * t224; t11561 = t1027 * t11560; t11562 = t351 * t17; t11563 = t11562 * t407; t11564 = t11563 * t1962; t11567 = t1038 * t11560; t11570 = t3099 * t961; t11571 = t11570 * t11560; t11574 = -0.15595815640371264000e2 * t1079 * t11517 + 0.39750325106400000000e0 * t1087 * t11521 + 0.10397210426914176000e2 * t1079 * t11511 - 0.13362428525888332800e2 * t1084 * t11493 + 0.89082856839255552000e1 * t1084 * t11496 - 0.26724857051776665600e2 * t1084 * t11501 + 0.14036234076334137600e3 * t1079 * t11471 + 0.20043642788832499200e3 * t3279 * t11477 + 0.98253638534338963200e3 * t11545 * t11477 + 0.93574893842227584000e2 * t3279 * t11481 - 0.31800260085120000000e1 * t1084 * t11485 - 0.15900130042560000000e1 * t1084 * t11489 + 0.53000433475200000000e0 * t1087 * t11496 - 0.15900130042560000000e1 * t1087 * t11501 - 0.79500650212800000000e0 * t1087 * t11493 + 0.13362428525888332800e3 * t11561 * t11564 + 0.63600520170240000000e1 * t11567 * t11564 + 0.56144936305336550400e3 * t11571 * t11564; t11579 = 0.60110514000000000000e0 * t2371 * t1060 * t1952 + 0.13357892000000000000e0 * t2066 * t3285 * t806 + 0.60110514000000000000e0 * t2075 * t1060 * t2151 - 0.10000000000000000000e1 * t538 * t11436 * t210 - 0.20000000000000000000e1 * t11440 - 0.60000000000000000000e1 * t538 * t7017 * t6235 - 0.13357892000000000000e0 * t11445 + 0.44526306666666666667e-1 * t283 * t6131 * t1070 - 0.10000000000000000000e1 * t1473 * t3386 + 0.36066308400000000000e1 * t1323 * t3272 - 0.50000000000000000000e0 * t538 * t7024 * t325 + 0.60110514000000000000e0 * t2371 * t1080 * t2192 - t11464 - 0.80147352000000000000e0 * t11465 - 0.10000000000000000000e1 * t1473 * t3268 + 0.25000000000000000000e0 * t145 * t201 * (t11528 + t11574); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[2] = t11139 + t11194 + t11238 + t11287 + t11338 + t11383 + t11426 + t11579; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[3] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[4] = 0.0e0; t11591 = t3424 * t469; t11595 = t667 * t3414; t11597 = t368 * t1152; t11599 = t1352 * t1176; t11610 = t1478 * t3406; t11612 = 0.80147352000000000000e0 * t2066 * t4215 * t476 - 0.80147352000000000000e0 * t2075 * t1060 * t2221 - 0.40073676000000000000e0 * t2066 * t4222 * t476 + 0.20036838000000000000e0 * t3179 * t3423 * t11591 + 0.40073676000000000000e0 * t11595 - 0.20000000000000000000e1 * t11597 + 0.15000000000000000000e1 * t538 * t11599 * t482 - 0.50000000000000000000e0 * t386 * t1152 + 0.30000000000000000000e1 * t1473 * t3490 + 0.15000000000000000000e1 * t538 * t3489 * t500 - 0.20000000000000000000e1 * t11610; t11613 = t480 * t3483; t11619 = t1478 * t3448; t11634 = t667 * t3440; t11639 = -0.10000000000000000000e1 * t538 * t11613 * t210 - 0.20000000000000000000e1 * t1473 * t3448 - 0.40000000000000000000e1 * t11619 - 0.18033154200000000000e1 * t1323 * t3402 - 0.90165771000000000000e0 * t474 * t1212 * t1176 + 0.20036838000000000000e0 * t670 * t3414 + 0.40073676000000000000e0 * t10682 * t3426 + 0.13357892000000000000e0 * t3043 * t3434 + 0.40073676000000000000e0 * t2092 * t3445 - 0.80147352000000000000e0 * t11634 - 0.40073676000000000000e0 * t673 * t865 * t11591; t11641 = t3432 * t500; t11645 = t2111 * t3445; t11655 = t1176 * t210; t11670 = t10449 * t3426; t11672 = -0.20036838000000000000e0 * t283 * t865 * t11641 + 0.80147352000000000000e0 * t11645 - 0.40073676000000000000e0 * t670 * t3440 - 0.18033154200000000000e1 * t474 * t475 * t3483 + 0.16029470400000000000e1 * t2066 * t1060 * t2172 + 0.36066308400000000000e1 * t474 * t1195 * t11655 + 0.18033154200000000000e1 * t522 * t1365 * t1176 + 0.20036838000000000000e0 * t1846 * t1148 + 0.40073676000000000000e0 * t670 * t3420 + 0.20036838000000000000e0 * t283 * t791 * t797 * t2214 + 0.80147352000000000000e0 * t11670; t11673 = t667 * t3420; t11686 = t1478 * t3490; t11694 = t4779 * t1151; t11701 = t200 * t1176; t11703 = 0.50000000000000000000e0 * t371 * t11701; t11704 = t3424 * t393; t11708 = 0.80147352000000000000e0 * t11673 + 0.66789460000000000000e-1 * t963 * t3423 * t11641 + 0.20036838000000000000e0 * t673 * t791 * t3443 * t469 + 0.10018419000000000000e0 * t283 * t791 * t3412 * t500 + 0.60000000000000000000e1 * t11686 + 0.12022102800000000000e1 * t2075 * t1060 * t2176 + 0.12022102800000000000e1 * t2371 * t1060 * t2192 - 0.60000000000000000000e1 * t538 * t11694 * t482 + 0.18033154200000000000e1 * t474 * t4661 * t1151 + t11703 - 0.80147352000000000000e0 * t10377 * t3423 * t11704; t11711 = t368 * t1177; t11716 = t3459 * t1098; t11728 = t6220 * t3451; t11730 = t8 * t3484; t11732 = t2111 * t3437; t11736 = t1098 * t393; t11737 = t3459 * t11736; t11740 = t1098 * t469; t11741 = t3459 * t11740; t11744 = t580 * t11736; t11747 = t580 * t11740; t11751 = t225 * t1141 * t393; t11755 = t225 * t1141 * t469; t11782 = 0.98253638534338963200e3 * t11018 * t11737 - 0.14036234076334137600e3 * t3100 * t11741 - 0.84217404458004825600e3 * t1996 * t11744 + 0.14036234076334137600e3 * t749 * t11747 + 0.42108702229002412800e3 * t1996 * t11751 - 0.70181170381670688000e2 * t749 * t11755 + 0.20043642788832499200e3 * t3100 * t11737 - 0.33406071314720832000e2 * t3072 * t11741 - 0.20043642788832499200e3 * t749 * t11744 + 0.40087285577664998400e2 * t757 * t11747 + 0.10021821394416249600e3 * t749 * t11751 - 0.20043642788832499200e2 * t757 * t11755 + 0.79500650212800000000e1 * t3072 * t11737 - 0.15900130042560000000e1 * t3078 * t11741 - 0.95400780255360000000e1 * t757 * t11744 + 0.23850195063840000000e1 * t769 * t11747 + 0.47700390127680000000e1 * t757 * t11751 - 0.11925097531920000000e1 * t769 * t11755; t11786 = 0.10000000000000000000e1 * t11711 - 0.40073676000000000000e0 * t2075 * t1060 * t2189 - 0.40073676000000000000e0 * t10226 * t11716 * t476 - 0.80147352000000000000e0 * t2066 * t1060 * t2168 - 0.40073676000000000000e0 * t2066 * t1060 * t2186 - 0.80147352000000000000e0 * t6667 * t3451 - 0.16029470400000000000e1 * t11728 + 0.10000000000000000000e1 * t11730 - 0.16029470400000000000e1 * t11732 - 0.10000000000000000000e1 * t1473 * t3406 + 0.25000000000000000000e0 * t145 * t201 * t11782; t11789 = t1851 * t1148; t11794 = t1851 * t1144; t11796 = t10609 * t1101; t11800 = 0.40073676000000000000e0 * t6623 * t225 * t1147; t11807 = t1851 * t1106; t11809 = t364 * t821; t11813 = 0.36066308400000000000e1 * t1323 * t3409 + 0.80147352000000000000e0 * t11789 - 0.10000000000000000000e1 * t538 * t809 * t2214 - 0.40073676000000000000e0 * t11794 - 0.26715784000000000000e0 * t11796 + t11800 + 0.20036838000000000000e0 * t1846 * t1106 - 0.10018419000000000000e0 * t1846 * t1144 - 0.66789460000000000000e-1 * t10594 * t1101 + 0.80147352000000000000e0 * t11807 + 0.72132616800000000000e1 * t474 * t1195 * t11809; t11815 = t480 * t1151; t11817 = 0.10000000000000000000e1 * t371 * t11815; t11818 = t6215 * t3454; t11824 = t1151 * t210; t11834 = 0.20036838000000000000e0 * t2061 * t1144; t11836 = 0.13357892000000000000e0 * t10653 * t1101; t11838 = 0.40073676000000000000e0 * t2061 * t1106; t11842 = -t11817 - 0.16029470400000000000e1 * t11818 - 0.80147352000000000000e0 * t6718 * t3454 + 0.25000000000000000000e0 * t386 * t1177 - 0.10819892520000000000e2 * t474 * t4654 * t11824 + 0.50000000000000000000e0 * t142 * t3484 - 0.50000000000000000000e0 * t538 * t3405 * t500 - t11834 - t11836 + t11838 + 0.60000000000000000000e1 * t538 * t2175 * t6926; t11843 = t1207 * t3402; t11847 = t1141 * t480; t11852 = t1098 * t480; t11853 = t11852 * t482; t11867 = t2973 * t3434; t11869 = t821 * t821; t11873 = t1207 * t3409; t11878 = -0.36066308400000000000e1 * t11843 - 0.80147352000000000000e0 * t2092 * t3437 - 0.20036838000000000000e0 * t283 * t791 * t11847 * t482 + 0.40073676000000000000e0 * t283 * t865 * t11853 - 0.60110514000000000000e0 * t2134 * t791 * t3443 * t393 - 0.13357892000000000000e0 * t963 * t3423 * t11853 + 0.12022102800000000000e1 * t2134 * t865 * t11704 + 0.26715784000000000000e0 * t11867 - 0.10000000000000000000e1 * t145 * t481 * t11869 + 0.72132616800000000000e1 * t11873 - 0.36066308400000000000e1 * t522 * t4638 * t1151; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[5] = t11612 + t11639 + t11672 + t11708 + t11786 + t11813 + t11842 + t11878; t11881 = t3057 * t550; t11894 = t1478 * t3540; t11897 = t153 * t3566 * t194; t11900 = t3559 * t194; t11901 = t408 * t11900; t11904 = t3559 * t190; t11905 = t1238 * t11904; t11908 = t844 * t725; t11909 = t408 * t11908; t11915 = t408 * t3566 * t190; t11918 = t3073 * t11900; t11923 = t3081 * t11904; t11926 = t3073 * t11908; t11945 = 0.10021821394416249600e3 * t749 * t11897 - 0.84217404458004825600e3 * t1996 * t11901 - 0.42108702229002412800e3 * t749 * t11905 + 0.28072468152668275200e3 * t749 * t11909 + 0.42108702229002412800e3 * t1996 * t11897 + 0.14036234076334137600e3 * t749 * t11915 + 0.20043642788832499200e3 * t3100 * t11918 + 0.98253638534338963200e3 * t11018 * t11918 + 0.56144936305336550400e3 * t3100 * t11923 - 0.28072468152668275200e3 * t3100 * t11926 + 0.47700390127680000000e1 * t769 * t11909 + 0.47700390127680000000e1 * t757 * t11897 + 0.23850195063840000000e1 * t769 * t11915 + 0.40087285577664998400e2 * t757 * t11915 + 0.79500650212800000000e1 * t3072 * t11918 + 0.63600520170240000000e1 * t3078 * t11923 - 0.31800260085120000000e1 * t3078 * t11926 + 0.13362428525888332800e3 * t3072 * t11923; t11959 = t153 * t3035 * t266; t11966 = t1231 * t3559; t11969 = t402 * t3566; t11974 = t10981 * t3559; t11987 = -0.66812142629441664000e2 * t3072 * t11926 - 0.20043642788832499200e3 * t749 * t11901 - 0.12026185673299499520e3 * t757 * t11905 + 0.80174571155329996800e2 * t757 * t11909 - 0.95400780255360000000e1 * t757 * t11901 - 0.71550585191520000000e1 * t769 * t11905 - 0.70181170381670688000e2 * t749 * t11959 - 0.20043642788832499200e2 * t757 * t11959 - 0.11925097531920000000e1 * t769 * t11959 - 0.79500650212800000000e0 * t769 * t11966 + 0.39750325106400000000e0 * t769 * t11969 + 0.66812142629441664000e1 * t757 * t11969 + 0.10600086695040000000e1 * t3078 * t11974 + 0.22270714209813888000e2 * t3072 * t11974 - 0.13362428525888332800e2 * t757 * t11966 - 0.46787446921113792000e2 * t749 * t11966 + 0.23393723460556896000e2 * t749 * t11969 + 0.93574893842227584000e2 * t3100 * t11974; t11994 = 0.66789460000000000000e-1 * t963 * t3180 * t11881 - 0.10000000000000000000e1 * t538 * t2154 * t852 + t10173 - 0.12022102800000000000e1 * t10180 + 0.80147352000000000000e0 * t10182 - 0.40073676000000000000e0 * t10184 - 0.80147352000000000000e0 * t10203 + 0.15000000000000000000e1 * t1473 * t3509 - 0.10000000000000000000e1 * t11894 + 0.25000000000000000000e0 * t145 * t201 * (t11945 + t11987) + 0.15000000000000000000e1 * t1547 * t3229; t11998 = t10449 * t3531; t12000 = t2111 * t3517; t12005 = t667 * t3521; t12010 = t2259 * t1019; t12012 = t1053 * t277; t12018 = t6220 * t3546; t12023 = -0.66789460000000000000e-1 * t283 * t2120 * t3527 + 0.40073676000000000000e0 * t11998 + 0.40073676000000000000e0 * t12000 - 0.66789460000000000000e-1 * t673 * t2120 * t3516 + 0.20036838000000000000e0 * t12005 - 0.33394730000000000000e-1 * t283 * t2120 * t3520 + 0.40073676000000000000e0 * t12010 + 0.18033154200000000000e1 * t474 * t1195 * t12012 + 0.26715784000000000000e0 * t3502 * t3187 - 0.80147352000000000000e0 * t12018 + 0.13357892000000000000e0 * t2075 * t3285 * t841; t12025 = t6215 * t3543; t12057 = -0.80147352000000000000e0 * t12025 + 0.13357892000000000000e0 * t2066 * t3285 * t838 + 0.12022102800000000000e1 * t2066 * t10294 * t2375 - 0.80147352000000000000e0 * t2066 * t2067 * t2383 + 0.40073676000000000000e0 * t2066 * t4180 * t528 - 0.26715784000000000000e0 * t1059 * t10230 * t2364 + 0.13357892000000000000e0 * t1059 * t10258 * t2389 - 0.13357892000000000000e0 * t1059 * t4123 * t540 + 0.12022102800000000000e1 * t2371 * t4180 * t524 - 0.80147352000000000000e0 * t10226 * t10230 * t2375 + 0.40073676000000000000e0 * t10226 * t10258 * t2383; t12067 = t1207 * t3553; t12069 = t1478 * t3537; t12078 = t2973 * t3534; t12083 = -0.20036838000000000000e0 * t10226 * t4123 * t528 - 0.20036838000000000000e0 * t10226 * t4123 * t535 - 0.90165771000000000000e0 * t474 * t475 * t3582 - 0.18033154200000000000e1 * t12067 - 0.20000000000000000000e1 * t12069 + t10285 - 0.20000000000000000000e1 * t10286 + 0.50000000000000000000e0 * t10288 - 0.40073676000000000000e0 * t2092 * t3506 - 0.13357892000000000000e0 * t3179 * t10321 * t3505 + 0.13357892000000000000e0 * t12078 - 0.44526306666666666667e-1 * t963 * t10321 * t3512; t12086 = t2111 * t3506; t12094 = t507 * t962; t12095 = t12094 * t972; t12099 = t2259 * t977; t12103 = t2259 * t1015; t12111 = -0.80147352000000000000e0 * t12086 + 0.13357892000000000000e0 * t673 * t2116 * t3505 + 0.18033154200000000000e1 * t474 * t1510 * t10350 + t10291 - 0.13357892000000000000e0 * t12095 + 0.44526306666666666667e-1 * t3502 * t2979 + 0.40073676000000000000e0 * t12099 - 0.66789460000000000000e-1 * t825 * t2965 - 0.20036838000000000000e0 * t12103 + 0.33394730000000000000e-1 * t825 * t2970 + 0.10018419000000000000e0 * t283 * t674 * t10671 * t277; t12126 = t266 * t190; t12137 = 0.10018419000000000000e0 * t283 * t674 * t3199 * t550 - 0.80147352000000000000e0 * t10307 - 0.80147352000000000000e0 * t10315 + 0.18033154200000000000e1 * t1446 * t3065 - 0.10000000000000000000e1 * t10317 + 0.13357892000000000000e0 * t10319 - 0.26715784000000000000e0 * t10325 + 0.12022102800000000000e1 * t2371 * t1080 * t2285 + 0.80147352000000000000e0 * t2066 * t2067 * t1943 * t12126 + 0.80147352000000000000e0 * t2066 * t1080 * t2288 + 0.80147352000000000000e0 * t2066 * t1080 * t2280; t12165 = t667 * t3513; t12167 = t507 * t1054; t12169 = 0.80147352000000000000e0 * t2075 * t2067 * t743 * t8319 + 0.12022102800000000000e1 * t2075 * t1080 * t2276 + 0.30000000000000000000e1 * t10341 + 0.20036838000000000000e0 * t283 * t674 * t2105 * t852 + 0.20036838000000000000e0 * t283 * t674 * t731 * t2331 + 0.20036838000000000000e0 * t10682 * t3531 + 0.66789460000000000000e-1 * t3043 * t3534 - 0.90165771000000000000e0 * t474 * t527 * t3172 + 0.66789460000000000000e-1 * t283 * t2116 * t3512 - 0.40073676000000000000e0 * t12165 + 0.50000000000000000000e0 * t12167; t12184 = t511 * t962; t12198 = 0.18033154200000000000e1 * t1323 * t3556 - 0.90165771000000000000e0 * t1323 * t3553 - 0.10000000000000000000e1 * t1547 * t3062 - 0.50000000000000000000e0 * t1473 * t3540 + 0.20036838000000000000e0 * t2269 * t977 - 0.10018419000000000000e0 * t2269 * t1015 - 0.10018419000000000000e0 * t825 * t3038 - 0.66789460000000000000e-1 * t12184 * t972 + 0.10018419000000000000e0 * t670 * t3521 + 0.20036838000000000000e0 * t2092 * t3517 + 0.20036838000000000000e0 * t673 * t674 * t10728 * t266 + 0.36066308400000000000e1 * t474 * t1510 * t10735; t12213 = t1207 * t3556; t12223 = t667 * t3528; t12229 = -0.36066308400000000000e1 * t522 * t1510 * t1022 * t194 - 0.54099462600000000000e1 * t474 * t5110 * t10265 + 0.18033154200000000000e1 * t522 * t527 * t1053 * t194 + 0.36066308400000000000e1 * t12213 + 0.20036838000000000000e0 * t825 * t3196 - 0.90165771000000000000e0 * t1446 * t3176 + 0.25000000000000000000e0 * t142 * t3583 - 0.66789460000000000000e-1 * t825 * t3215 + 0.40073676000000000000e0 * t12223 + 0.15000000000000000000e1 * t538 * t3228 * t550 + 0.53431568000000000000e0 * t10437; t12260 = 0.40073676000000000000e0 * t10450 - 0.10000000000000000000e1 * t538 * t743 * t2331 - 0.20036838000000000000e0 * t2075 * t10273 * t2364 - 0.20036838000000000000e0 * t2075 * t4184 * t540 - 0.40073676000000000000e0 * t7163 * t3239 - 0.40073676000000000000e0 * t2075 * t3294 * t841 - 0.40073676000000000000e0 * t2075 * t1080 * t2352 - 0.40073676000000000000e0 * t2075 * t1080 * t2355 - 0.40073676000000000000e0 * t2066 * t10273 * t2375 - 0.20036838000000000000e0 * t2066 * t4184 * t528 - 0.20036838000000000000e0 * t2066 * t4184 * t535; t12282 = -0.20036838000000000000e0 * t10460 + 0.40073676000000000000e0 * t10465 - 0.20036838000000000000e0 * t10469 + 0.66789460000000000000e-1 * t10477 - 0.13357892000000000000e0 * t10592 + 0.89052613333333333333e-1 * t10601 - 0.13357892000000000000e0 * t10610 - 0.60110514000000000000e0 * t2371 * t4184 * t524 + 0.40073676000000000000e0 * t2075 * t4180 * t540 - 0.40073676000000000000e0 * t2066 * t1080 * t2337 - 0.40073676000000000000e0 * t2075 * t2067 * t7709 * t190; t12286 = t4909 * t1058; t12316 = -0.40073676000000000000e0 * t2075 * t1080 * t2380 - 0.80147352000000000000e0 * t12286 * t4123 * t524 - 0.40073676000000000000e0 * t7160 * t3233 - 0.40073676000000000000e0 * t7160 * t3236 + 0.40073676000000000000e0 * t2066 * t4180 * t535 + 0.60110514000000000000e0 * t2075 * t10294 * t2364 - 0.40073676000000000000e0 * t2075 * t2067 * t2389 - 0.40073676000000000000e0 * t6718 * t3543 - 0.40073676000000000000e0 * t2066 * t3294 * t838 - 0.40073676000000000000e0 * t2066 * t1080 * t2344 - 0.40073676000000000000e0 * t6667 * t3546 + 0.30000000000000000000e1 * t538 * t2150 * t7728; t12336 = -0.80147352000000000000e0 * t10623 + 0.20036838000000000000e0 * t825 * t3225 + 0.20036838000000000000e0 * t670 * t3528 + 0.20036838000000000000e0 * t2269 * t1019 + 0.20036838000000000000e0 * t825 * t3221 - t10652 - t10655 - 0.10000000000000000000e1 * t1473 * t3537 - 0.18033154200000000000e1 * t10662 - 0.20036838000000000000e0 * t283 * t683 * t11881 + 0.66789460000000000000e-1 * t3502 * t3209; t12359 = -0.20036838000000000000e0 * t670 * t3513 - 0.50000000000000000000e0 * t538 * t3068 * t550 - 0.60110514000000000000e0 * t825 * t3050 + 0.40073676000000000000e0 * t825 * t3054 + 0.40073676000000000000e0 * t10698 - 0.20036838000000000000e0 * t825 * t3059 + 0.40073676000000000000e0 * t10700 + 0.20036838000000000000e0 * t10702 + 0.20036838000000000000e0 * t2401 * t3192 - 0.40073676000000000000e0 * t2401 * t3212 - 0.50000000000000000000e0 * t1547 * t3069 - 0.50000000000000000000e0 * t511 * t1023; t12362 = t480 * t3582; t12371 = t507 * t1023; t12379 = t1022 * t277; t12386 = t325 * t852; t12390 = 0.50000000000000000000e0 * t10722 - 0.50000000000000000000e0 * t538 * t12362 * t210 - 0.50000000000000000000e0 * t538 * t10346 * t277 - 0.13357892000000000000e0 * t3502 * t3206 - 0.10000000000000000000e1 * t12371 + 0.25000000000000000000e0 * t216 * t3173 + 0.36066308400000000000e1 * t10739 - 0.60000000000000000000e1 * t538 * t10638 * t1428 - 0.54099462600000000000e1 * t474 * t4654 * t12379 + 0.30000000000000000000e1 * t538 * t2150 * t7326 + 0.36066308400000000000e1 * t474 * t1195 * t12386; t12396 = t1478 * t3509; t12403 = t216 * t1046; t12408 = t8 * t3583; t12410 = -0.10000000000000000000e1 * t10741 - t10745 - 0.13357892000000000000e0 * t10746 + 0.40073676000000000000e0 * t10751 + 0.40073676000000000000e0 * t10753 + 0.40073676000000000000e0 * t10756 + 0.30000000000000000000e1 * t12396 + 0.15000000000000000000e1 * t538 * t10205 * t1428 + 0.10018419000000000000e0 * t825 * t3201 + 0.20036838000000000000e0 * t12403 * t3182 + 0.25000000000000000000e0 * t511 * t1054 + 0.50000000000000000000e0 * t12408; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[6] = t11994 + t12023 + t12057 + t12083 + t12111 + t12137 + t12169 + t12198 + t12229 + t12260 + t12282 + t12316 + t12336 + t12359 + t12390 + t12410; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[7] = 0.0e0; t12414 = t955 * t325; t12422 = t1478 * t3706; t12440 = t11133 * t3602; t12442 = t11156 * t3590; t12447 = 0.18033154200000000000e1 * t474 * t1195 * t12414 - 0.10000000000000000000e1 * t11100 + 0.15000000000000000000e1 * t538 * t8128 * t1948 - 0.10000000000000000000e1 * t12422 - 0.60000000000000000000e1 * t145 * t4780 * t3271 * t1428 + 0.25000000000000000000e0 * t511 * t1091 + 0.66789460000000000000e-1 * t11109 * t3602 - 0.22263153333333333333e-1 * t3258 * t3259 * t402 * t3600 - 0.44526306666666666667e-1 * t3258 * t3594 * t402 * t3595 + 0.13357892000000000000e0 * t12440 + 0.40073676000000000000e0 * t12442 - 0.66789460000000000000e-1 * t3380 * t353 * t2304; t12448 = t11133 * t3597; t12476 = 0.26715784000000000000e0 * t12448 - 0.90165771000000000000e0 * t474 * t475 * t3698 - 0.50000000000000000000e0 * t538 * t2220 * t852 + 0.26715784000000000000e0 * t11134 + 0.40073676000000000000e0 * t11157 + 0.13357892000000000000e0 * t11159 - 0.50000000000000000000e0 * t538 * t3275 * t550 - 0.20036838000000000000e0 * t2075 * t3627 * t744 - 0.40073676000000000000e0 * t11192 - 0.20036838000000000000e0 * t2075 * t2067 * t7782 * t190 - 0.20036838000000000000e0 * t2075 * t1080 * t2469 - 0.20036838000000000000e0 * t2066 * t1080 * t2579; t12501 = 0.30000000000000000000e1 * t11202 - 0.50000000000000000000e0 * t5172 * t1074 - 0.50000000000000000000e0 * t1473 * t3652 - 0.50000000000000000000e0 * t1547 * t3386 - 0.90165771000000000000e0 * t1323 * t3587 + 0.50000000000000000000e0 * t11210 - 0.50000000000000000000e0 * t1473 * t3655 + 0.15000000000000000000e1 * t1547 * t3253 - 0.90165771000000000000e0 * t1446 * t3333 + 0.36066308400000000000e1 * t11229 - 0.20036838000000000000e0 * t2075 * t2514 * t6096 * t262 - 0.20036838000000000000e0 * t6667 * t3646; t12532 = t1057 * t964 * t101; t12533 = t1517 * t12532; t12536 = t522 * t12532; t12541 = -0.20036838000000000000e0 * t2075 * t1060 * t2352 - 0.20036838000000000000e0 * t2075 * t1060 * t2355 - 0.20036838000000000000e0 * t6718 * t3649 - 0.20036838000000000000e0 * t2066 * t3294 * t919 - 0.20036838000000000000e0 * t2066 * t1080 * t2576 - 0.50000000000000000000e0 * t1473 * t3706 + 0.66789460000000000000e-1 * t3258 * t3259 * t153 * t725 * t277 + 0.66789460000000000000e-1 * t3258 * t3259 * t153 * t306 * t550 + 0.20036838000000000000e0 * t3380 * t353 * t2312 - 0.66789459999999999999e-1 * t12533 * t3381 - 0.22263153333333333333e-1 * t12536 * t3262 - 0.44526306666666666666e-1 * t12536 * t3265; t12551 = t1632 * t3257; t12559 = t908 * t200; t12575 = 0.13357892000000000000e0 * t11109 * t3597 + 0.13357892000000000000e0 * t3258 * t3594 * t153 * t725 * t262 + 0.66789460000000000000e-1 * t12551 * t3262 + 0.13357892000000000000e0 * t12551 * t3265 + 0.20036838000000000000e0 * t3380 * t909 * t751 + 0.66789460000000000000e-1 * t3258 * t12559 * t3261 - 0.13357892000000000000e0 * t11231 + 0.40073676000000000000e0 * t2066 * t2067 * t2179 * t12126 + 0.40073676000000000000e0 * t2066 * t1080 * t2591 + 0.44526306666666666667e-1 * t11252 - 0.13357892000000000000e0 * t11255 + 0.22263153333333333333e-1 * t3624 * t3330; t12576 = t3325 * t3628; t12582 = t5297 * t1058 * t1063; t12584 = t3325 * t3632; t12607 = -0.13357892000000000000e0 * t12576 + 0.22263153333333333333e-1 * t1059 * t3627 * t3329 - 0.13357892000000000000e0 * t12582 + 0.44526306666666666666e-1 * t12584 - 0.74210511111111111110e-2 * t1059 * t3631 * t3329 + 0.60110514000000000000e0 * t2075 * t1080 * t2584 - 0.66789460000000000000e-1 * t5189 * t1058 * t1063 - 0.66789460000000000000e-1 * t3624 * t3322 - 0.66789460000000000000e-1 * t3318 * t3628 - 0.66789460000000000000e-1 * t1059 * t3627 * t3321 + 0.22263153333333333333e-1 * t3318 * t3632 + 0.22263153333333333333e-1 * t1059 * t3631 * t3321; t12639 = t1478 * t3658; t12646 = 0.60110514000000000000e0 * t2371 * t1060 * t2285 + 0.40073676000000000000e0 * t2066 * t1060 * t2288 + 0.40073676000000000000e0 * t2066 * t2514 * t1943 * t9238 + 0.40073676000000000000e0 * t2066 * t1080 * t2460 + 0.40073676000000000000e0 * t2075 * t2067 * t809 * t8319 + 0.40073676000000000000e0 * t2075 * t2514 * t743 * t9243 + 0.40073676000000000000e0 * t2066 * t1060 * t2280 + 0.60110514000000000000e0 * t2075 * t1060 * t2276 + 0.60110514000000000000e0 * t2371 * t1080 * t2588 + 0.30000000000000000000e1 * t12639 - 0.33394730000000000000e-1 * t670 * t3621 - 0.33394730000000000000e-1 * t283 * t2543 * t3343; t12671 = -0.50000000000000000000e0 * t538 * t8058 * t325 + 0.50000000000000000000e0 * t11273 + 0.20036838000000000000e0 * t11275 + 0.20036838000000000000e0 * t11285 + 0.20036838000000000000e0 * t11290 + 0.20036838000000000000e0 * t11292 + 0.20036838000000000000e0 * t11294 + 0.25000000000000000000e0 * t216 * t3315 - 0.90165771000000000000e0 * t474 * t527 * t3314 + 0.15000000000000000000e1 * t538 * t7076 * t2279 + 0.18033154200000000000e1 * t1446 * t3272 + 0.15000000000000000000e1 * t1473 * t3658 + 0.66789460000000000000e-1 * t2066 * t3285 * t919; t12678 = t1207 * t3587; t12695 = t5132 * t3257; t12698 = t6220 * t3646; t12700 = t6215 * t3649; t12702 = t6215 * t3639; t12704 = -0.50000000000000000000e0 * t1547 * t3268 - 0.18033154200000000000e1 * t11299 - 0.18033154200000000000e1 * t12678 - 0.50000000000000000000e0 * t538 * t809 * t2331 + 0.18033154200000000000e1 * t522 * t527 * t1090 * t194 + 0.18033154200000000000e1 * t474 * t1510 * t11096 + 0.13357892000000000000e0 * t3258 * t909 * t759 + 0.20036838000000000000e0 * t11161 * t3590 + 0.20036838000000000000e0 * t12695 * t3381 - 0.40073676000000000000e0 * t12698 - 0.40073676000000000000e0 * t12700 - 0.40073676000000000000e0 * t12702; t12705 = t6220 * t3643; t12707 = t6220 * t3636; t12712 = t3593 * t1061; t12736 = t352 * t480 * t17; t12749 = -0.40073676000000000000e0 * t12705 - 0.40073676000000000000e0 * t12707 + 0.66789460000000000000e-1 * t2075 * t3285 * t922 + t11322 - 0.26715784000000000000e0 * t3258 * t12712 * t3289 * t262 * t190 - 0.20036838000000000000e0 * t3380 * t11329 * t307 * t1611 - 0.80147352000000000000e0 * t11180 * t11323 * t307 * t7535 - 0.20036838000000000000e0 * t3380 * t11329 * t307 * t266 * t210 - 0.40073676000000000000e0 * t3380 * t11323 * t3289 * t12126 - 0.13357892000000000000e0 * t3258 * t12736 * t307 * t1428 - 0.13357892000000000000e0 * t3258 * t11329 * t3289 * t8319 - 0.40073676000000000000e0 * t3380 * t12712 * t307 * t9238; t12751 = t3593 * t11328; t12764 = t1478 * t3652; t12785 = -0.13357892000000000000e0 * t3258 * t12751 * t307 * t9243 + 0.15000000000000000000e1 * t538 * t2175 * t7218 + 0.18033154200000000000e1 * t1323 * t3661 + 0.15000000000000000000e1 * t538 * t11114 * t1428 - 0.10000000000000000000e1 * t12764 - 0.50000000000000000000e0 * t1547 * t3276 - 0.20036838000000000000e0 * t2066 * t1060 * t2344 + 0.66789460000000000000e-1 * t2066 * t3631 * t740 + 0.66789460000000000000e-1 * t2075 * t3631 * t744 - 0.20036838000000000000e0 * t2075 * t1080 * t2456 - 0.20036838000000000000e0 * t6718 * t3639 - 0.20036838000000000000e0 * t2075 * t3294 * t922; t12812 = -0.20036838000000000000e0 * t2075 * t1080 * t2447 - 0.20036838000000000000e0 * t7163 * t3357 - 0.20036838000000000000e0 * t7160 * t3370 - 0.20036838000000000000e0 * t2066 * t3627 * t740 - 0.20036838000000000000e0 * t6667 * t3636 + t11341 - 0.50000000000000000000e0 * t538 * t2468 * t783 - 0.40073676000000000000e0 * t11348 - 0.20036838000000000000e0 * t7163 * t3360 - 0.20036838000000000000e0 * t2075 * t1060 * t2380 - 0.20036838000000000000e0 * t2066 * t1060 * t2337 - 0.40073676000000000000e0 * t11355 - 0.40073676000000000000e0 * t11357; t12815 = t1207 * t3661; t12823 = t364 * t852; t12829 = t5501 * t1074; t12843 = t11382 + 0.36066308400000000000e1 * t12815 + 0.18033154200000000000e1 * t474 * t1510 * t11102 + 0.18033154200000000000e1 * t474 * t1510 * t11400 + 0.18033154200000000000e1 * t474 * t1195 * t12823 - 0.20036838000000000000e0 * t6667 * t3643 - 0.10000000000000000000e1 * t12829 + 0.10018419000000000000e0 * t2269 * t1067 + 0.10018419000000000000e0 * t825 * t3344 + 0.10018419000000000000e0 * t670 * t3614 + 0.10018419000000000000e0 * t283 * t791 * t2561 * t783 + 0.10018419000000000000e0 * t670 * t3618; t12851 = t480 * t3698; t12855 = t8 * t3699; t12861 = t507 * t1091; t12866 = t1090 * t277; t12870 = 0.25000000000000000000e0 * t142 * t3699 - 0.10000000000000000000e1 * t11406 - 0.10000000000000000000e1 * t11408 - 0.50000000000000000000e0 * t538 * t11436 * t277 - 0.50000000000000000000e0 * t538 * t12851 * t210 + 0.50000000000000000000e0 * t12855 - t11418 - 0.20036838000000000000e0 * t7160 * t3364 - 0.20036838000000000000e0 * t7160 * t3367 + 0.50000000000000000000e0 * t12861 + 0.15000000000000000000e1 * t538 * t2175 * t7326 + 0.18033154200000000000e1 * t474 * t1195 * t12866; t12876 = t908 * t17; t12877 = t12876 * t3281; t12880 = t12876 * t3290; t12886 = t3672 * t726 * t262; t12889 = t908 * t3294; t12902 = t908 * t3285; t12907 = -0.15900130042560000000e1 * t1084 * t12877 - 0.79500650212800000000e0 * t1087 * t12880 + 0.26500216737600000000e0 * t3691 * t3291 - 0.79500650212800000000e0 * t1087 * t12886 + 0.23393723460556896000e2 * t1079 * t12889 + 0.66812142629441664000e1 * t1084 * t12889 - 0.22270714209813888000e1 * t3682 * t3295 + 0.39750325106400000000e0 * t1087 * t12889 - 0.13250108368800000000e0 * t3691 * t3295 + 0.25993026067285440000e1 * t3669 * t3286 - 0.77979078201856320000e1 * t1079 * t12902 - 0.77979078201856320000e1 * t3669 * t3295; t12916 = t11480 * t3664; t12920 = t3593 * t57 * t3673; t12933 = t11562 * t152; t12934 = t12933 * t2300; t12937 = t3256 * t579; t12938 = t1027 * t12937; t12940 = t11563 * t3595 * t190; t12943 = 0.74235714032712960000e0 * t3682 * t3286 - 0.22270714209813888000e1 * t1084 * t12902 + 0.44167027896000000000e-1 * t3691 * t3286 - 0.13250108368800000000e0 * t1087 * t12902 + 0.46787446921113792000e2 * t3279 * t12916 + 0.26500216737600000000e0 * t1087 * t12920 + 0.44541428419627776000e1 * t1084 * t12920 + 0.53000433475200000000e0 * t1084 * t12916 + 0.15595815640371264000e2 * t1079 * t12920 + 0.11135357104906944000e2 * t1079 * t12916 + 0.98253638534338963200e3 * t11017 * t961 * t11560 * t12934 + 0.93574893842227584000e2 * t12938 * t12940; t12947 = t11563 * t2307; t12950 = t11570 * t12937; t12952 = t12933 * t3595 * t194; t12955 = t1038 * t12937; t12974 = t3280 * t726 * t266; t12977 = 0.20043642788832499200e3 * t11571 * t12934 + 0.28072468152668275200e3 * t11571 * t12947 + 0.28072468152668275200e3 * t12950 * t12952 + 0.26724857051776665600e2 * t12955 * t12940 + 0.79500650212800000000e1 * t11561 * t12934 + 0.66812142629441664000e2 * t11561 * t12947 + 0.66812142629441664000e2 * t12938 * t12952 + 0.15900130042560000000e1 * t1046 * t12937 * t12940 + 0.31800260085120000000e1 * t11567 * t12947 + 0.31800260085120000000e1 * t12955 * t12952 - 0.13362428525888332800e2 * t1084 * t12880 - 0.15900130042560000000e1 * t1084 * t12974; t12998 = t3099 * t3668; t13003 = 0.53000433475200000000e0 * t3682 * t3282 + 0.44541428419627776000e1 * t3682 * t3291 - 0.13362428525888332800e2 * t1084 * t12886 - 0.33406071314720832000e2 * t1079 * t12877 - 0.33406071314720832000e2 * t1079 * t12974 + 0.11135357104906944000e2 * t3669 * t3282 - 0.46787446921113792000e2 * t1079 * t12880 - 0.14036234076334137600e3 * t3279 * t12877 + 0.15595815640371264000e2 * t3669 * t3291 - 0.46787446921113792000e2 * t1079 * t12886 + 0.46787446921113792000e2 * t12998 * t3282 - 0.14036234076334137600e3 * t3279 * t12974; t13030 = 0.15000000000000000000e1 * t538 * t2175 * t7728 - 0.10000000000000000000e1 * t11440 + 0.25000000000000000000e0 * t145 * t201 * (t12907 + t12943 + t12977 + t13003) - 0.66789460000000000000e-1 * t11445 + 0.10018419000000000000e0 * t670 * t3608 + 0.10018419000000000000e0 * t283 * t674 * t2105 * t955 + 0.10018419000000000000e0 * t283 * t674 * t731 * t2504 + 0.10018419000000000000e0 * t825 * t3337 + 0.10018419000000000000e0 * t825 * t3350 + 0.10018419000000000000e0 * t2269 * t1071 + 0.10018419000000000000e0 * t283 * t791 * t797 * t2331 - t11464; t13038 = t1478 * t3655; t13042 = t667 * t3608; t13047 = t667 * t3618; t13049 = t2259 * t1071; t13051 = t2259 * t1067; t13053 = t667 * t3614; t13055 = t667 * t3621; t13057 = -0.40073676000000000000e0 * t11465 - 0.54099462600000000000e1 * t7345 * t3658 - 0.36066308400000000000e1 * t5459 * t3272 - 0.54099462600000000000e1 * t8469 * t3253 - 0.10000000000000000000e1 * t13038 - 0.33394730000000000000e-1 * t825 * t3375 + 0.20036838000000000000e0 * t13042 - 0.33394730000000000000e-1 * t283 * t2120 * t3607 + 0.20036838000000000000e0 * t13047 + 0.20036838000000000000e0 * t13049 + 0.20036838000000000000e0 * t13051 + 0.20036838000000000000e0 * t13053 - 0.66789460000000000000e-1 * t13055; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[8] = t12447 + t12476 + t12501 + t12541 + t12575 + t12607 + t12646 + t12671 + t12704 + t12749 + t12785 + t12812 + t12843 + t12870 + t13030 + t13057; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[9] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[10] = 0.0e0; t13061 = t3432 * t550; t13079 = t2111 * t3736; t13087 = t3459 * t351; t13091 = 0.66789460000000000000e-1 * t963 * t3423 * t13061 - 0.50000000000000000000e0 * t538 * t3405 * t550 + 0.15000000000000000000e1 * t538 * t3489 * t550 + 0.20036838000000000000e0 * t11595 - 0.10000000000000000000e1 * t11597 - 0.60000000000000000000e1 * t538 * t11694 * t1428 + 0.30000000000000000000e1 * t538 * t2175 * t7871 - 0.80147352000000000000e0 * t13079 + 0.12022102800000000000e1 * t2371 * t4215 * t524 - 0.40073676000000000000e0 * t2075 * t1060 * t2469 + 0.13357892000000000000e0 * t1059 * t13087 * t2562; t13112 = t3779 * t1097; t13120 = -0.20036838000000000000e0 * t10226 * t11716 * t535 - 0.13357892000000000000e0 * t1059 * t11716 * t540 + 0.40073676000000000000e0 * t2066 * t4215 * t535 - 0.10000000000000000000e1 * t11610 + 0.25000000000000000000e0 * t511 * t1177 - 0.50000000000000000000e0 * t1547 * t3406 - 0.40073676000000000000e0 * t2092 * t3736 + 0.26715784000000000000e0 * t3043 * t3724 - 0.13357892000000000000e0 * t3043 * t3728 - 0.44526306666666666667e-1 * t963 * t13112 * t3433 + 0.20036838000000000000e0 * t283 * t791 * t797 * t2504; t13145 = t3872 * t1098; t13152 = -0.13357892000000000000e0 * t3179 * t13112 * t3425 + 0.20036838000000000000e0 * t283 * t791 * t2561 * t821 + 0.18033154200000000000e1 * t1446 * t3409 - 0.20000000000000000000e1 * t11619 - 0.20036838000000000000e0 * t2075 * t4222 * t540 - 0.40073676000000000000e0 * t7163 * t3454 - 0.40073676000000000000e0 * t7160 * t3451 - 0.40073676000000000000e0 * t2066 * t3627 * t806 - 0.40073676000000000000e0 * t2075 * t3627 * t810 - 0.80147352000000000000e0 * t10226 * t13145 * t2516 - 0.26715784000000000000e0 * t1059 * t13145 * t2521; t13159 = t1714 * t1098; t13163 = t1478 * t3852; t13165 = t3843 * t200; t13175 = t1176 * t277; t13190 = 0.40073676000000000000e0 * t10226 * t13087 * t2539 + 0.40073676000000000000e0 * t2066 * t4215 * t528 + 0.12022102800000000000e1 * t2066 * t13159 * t2516 - 0.20000000000000000000e1 * t13163 + 0.10018419000000000000e0 * t283 * t791 * t13165 * t210 - 0.40073676000000000000e0 * t11634 + 0.40073676000000000000e0 * t11645 - 0.90165771000000000000e0 * t474 * t475 * t3960 + 0.18033154200000000000e1 * t474 * t1195 * t13175 + 0.80147352000000000000e0 * t2066 * t2514 * t2179 * t9238 + 0.80147352000000000000e0 * t2075 * t2514 * t809 * t9243 + 0.12022102800000000000e1 * t2371 * t1060 * t2588; t13216 = 0.80147352000000000000e0 * t2066 * t1060 * t2460 + 0.12022102800000000000e1 * t2075 * t1060 * t2584 + 0.80147352000000000000e0 * t2066 * t1060 * t2591 - 0.50000000000000000000e0 * t511 * t1152 - 0.10000000000000000000e1 * t1473 * t3852 + 0.40073676000000000000e0 * t11670 + 0.40073676000000000000e0 * t11673 + 0.13357892000000000000e0 * t673 * t2806 * t3425 + 0.66789460000000000000e-1 * t3043 * t3732 - 0.10000000000000000000e1 * t1547 * t3448 + 0.30000000000000000000e1 * t11686; t13227 = t667 * t3846; t13229 = t2259 * t1106; t13233 = t2973 * t3780; t13235 = t667 * t3774; t13237 = t2259 * t1144; t13239 = -0.10018419000000000000e0 * t2269 * t1144 - 0.10018419000000000000e0 * t670 * t3846 - 0.66789460000000000000e-1 * t12184 * t1101 + 0.20036838000000000000e0 * t2269 * t1106 + 0.44526306666666666667e-1 * t3043 * t3780 - 0.20036838000000000000e0 * t13227 + 0.40073676000000000000e0 * t13229 - 0.50000000000000000000e0 * t1473 * t3858 + 0.89052613333333333334e-1 * t13233 + 0.66789460000000000000e-1 * t13235 - 0.20036838000000000000e0 * t13237; t13245 = t12094 * t1101; t13247 = t667 * t3783; t13249 = t1151 * t277; t13253 = t364 * t955; t13257 = t1478 * t3849; t13267 = -0.66789460000000000000e-1 * t670 * t3783 + 0.33394730000000000000e-1 * t670 * t3774 - 0.13357892000000000000e0 * t13245 - 0.13357892000000000000e0 * t13247 - 0.54099462600000000000e1 * t474 * t4654 * t13249 + 0.36066308400000000000e1 * t474 * t1195 * t13253 + 0.30000000000000000000e1 * t13257 + t11703 + 0.30000000000000000000e1 * t538 * t2175 * t8017 - 0.20036838000000000000e0 * t283 * t865 * t13061 - 0.20036838000000000000e0 * t670 * t3745; t13271 = t667 * t3756; t13273 = t667 * t3749; t13275 = t667 * t3753; t13277 = t667 * t3764; t13279 = t667 * t3768; t13281 = t2111 * t3760; t13284 = t574 * t3467; t13289 = t3778 * t1097; t13290 = t13289 * t3460; t13296 = t225 * t3843 * t194; t13301 = t1707 * t3460; t13308 = t3877 * t194; t13309 = t580 * t13308; t13313 = t225 * t3890 * t194; t13317 = t580 * t3894 * t194; t13320 = t3459 * t13308; t13323 = t3868 * t194; t13324 = t580 * t13323; t13327 = t3873 * t194; t13328 = t1714 * t13327; t13333 = t3459 * t13323; t13336 = t3872 * t13327; t13339 = 0.66812142629441664000e1 * t757 * t13284 + 0.23393723460556896000e2 * t749 * t13284 + 0.22270714209813888000e2 * t3072 * t13290 + 0.39750325106400000000e0 * t769 * t13284 - 0.70181170381670688000e2 * t749 * t13296 + 0.93574893842227584000e2 * t3100 * t13290 - 0.46787446921113792000e2 * t749 * t13301 - 0.11925097531920000000e1 * t769 * t13296 - 0.20043642788832499200e2 * t757 * t13296 + 0.47700390127680000000e1 * t769 * t13309 + 0.47700390127680000000e1 * t757 * t13313 + 0.23850195063840000000e1 * t769 * t13317 - 0.31800260085120000000e1 * t3078 * t13320 - 0.95400780255360000000e1 * t757 * t13324 - 0.71550585191520000000e1 * t769 * t13328 + 0.40087285577664998400e2 * t757 * t13317 + 0.79500650212800000000e1 * t3072 * t13333 + 0.63600520170240000000e1 * t3078 * t13336; t13376 = -0.12026185673299499520e3 * t757 * t13328 + 0.80174571155329996800e2 * t757 * t13309 + 0.10021821394416249600e3 * t749 * t13313 + 0.13362428525888332800e3 * t3072 * t13336 - 0.66812142629441664000e2 * t3072 * t13320 + 0.10600086695040000000e1 * t3078 * t13290 - 0.79500650212800000000e0 * t769 * t13301 - 0.13362428525888332800e2 * t757 * t13301 - 0.20043642788832499200e3 * t749 * t13324 + 0.42108702229002412800e3 * t1996 * t13313 + 0.14036234076334137600e3 * t749 * t13317 + 0.20043642788832499200e3 * t3100 * t13333 - 0.28072468152668275200e3 * t3100 * t13320 - 0.84217404458004825600e3 * t1996 * t13324 - 0.42108702229002412800e3 * t749 * t13328 + 0.28072468152668275200e3 * t749 * t13309 + 0.98253638534338963200e3 * t11018 * t13333 + 0.56144936305336550400e3 * t3100 * t13336; t13382 = t507 * t1177; t13384 = 0.25000000000000000000e0 * t142 * t3961 + 0.50000000000000000000e0 * t11711 - 0.13357892000000000000e0 * t13271 + 0.40073676000000000000e0 * t13273 + 0.40073676000000000000e0 * t13275 + 0.40073676000000000000e0 * t13277 + 0.20036838000000000000e0 * t13279 + 0.40073676000000000000e0 * t13281 - 0.80147352000000000000e0 * t11728 + 0.25000000000000000000e0 * t145 * t201 * (t13339 + t13376) + 0.50000000000000000000e0 * t11730 + 0.50000000000000000000e0 * t13382; t13393 = t1478 * t3858; t13402 = t10449 * t3855; t13404 = t667 * t3742; t13406 = t667 * t3745; t13410 = -0.80147352000000000000e0 * t11732 + 0.18033154200000000000e1 * t1323 * t3865 + 0.15000000000000000000e1 * t1473 * t3849 - 0.10000000000000000000e1 * t13393 + 0.66789460000000000000e-1 * t283 * t2806 * t3433 + 0.40073676000000000000e0 * t670 * t3742 - 0.60110514000000000000e0 * t670 * t3739 + 0.40073676000000000000e0 * t13402 + 0.80147352000000000000e0 * t13404 - 0.40073676000000000000e0 * t13406 + 0.20036838000000000000e0 * t10682 * t3855; t13421 = t8 * t3961; t13429 = 0.40073676000000000000e0 * t11789 + 0.20036838000000000000e0 * t2401 * t3445 + 0.10018419000000000000e0 * t825 * t3414 + 0.66789460000000000000e-1 * t3502 * t3434 - 0.20036838000000000000e0 * t11794 - 0.13357892000000000000e0 * t11796 + t11800 + 0.40073676000000000000e0 * t11807 + 0.50000000000000000000e0 * t13421 - 0.20036838000000000000e0 * t10226 * t11716 * t528 + 0.40073676000000000000e0 * t2075 * t4215 * t540; t13462 = -0.80147352000000000000e0 * t12286 * t11716 * t524 - 0.40073676000000000000e0 * t6667 * t3711 - 0.40073676000000000000e0 * t2075 * t2514 * t7096 * t262 - 0.40073676000000000000e0 * t6667 * t3714 - 0.40073676000000000000e0 * t6718 * t3717 - 0.40073676000000000000e0 * t2066 * t1060 * t2576 + 0.13357892000000000000e0 * t2066 * t3631 * t806 + 0.13357892000000000000e0 * t2075 * t3631 * t810 - 0.40073676000000000000e0 * t2075 * t1060 * t2447 - 0.40073676000000000000e0 * t2075 * t1060 * t2456 - 0.60110514000000000000e0 * t2371 * t4222 * t524; t13469 = t580 * t1141; t13488 = t6215 * t3717; t13490 = t480 * t3960; t13495 = -0.40073676000000000000e0 * t2066 * t1060 * t2579 - 0.20036838000000000000e0 * t2066 * t4222 * t528 - 0.40073676000000000000e0 * t2066 * t13469 * t2516 - 0.20036838000000000000e0 * t2075 * t13469 * t2521 - 0.20036838000000000000e0 * t2066 * t4222 * t535 + 0.60110514000000000000e0 * t2075 * t13159 * t2521 - 0.80147352000000000000e0 * t2066 * t2514 * t2539 - 0.40073676000000000000e0 * t2075 * t2514 * t2562 - 0.80147352000000000000e0 * t13488 - 0.50000000000000000000e0 * t538 * t13490 * t210 - t11817 - 0.80147352000000000000e0 * t11818; t13523 = 0.15000000000000000000e1 * t1547 * t3490 - 0.33394730000000000000e-1 * t283 * t2543 * t3413 + 0.20036838000000000000e0 * t670 * t3764 + 0.20036838000000000000e0 * t2092 * t3760 + 0.20036838000000000000e0 * t670 * t3753 + 0.10018419000000000000e0 * t670 * t3768 + 0.10018419000000000000e0 * t283 * t791 * t3412 * t550 + 0.20036838000000000000e0 * t2269 * t1148 + 0.20036838000000000000e0 * t825 * t3420 + 0.20036838000000000000e0 * t670 * t3749 + 0.25000000000000000000e0 * t216 * t3484; t13527 = t1207 * t3865; t13534 = t2973 * t3724; t13538 = t2259 * t1148; t13540 = t2973 * t3728; t13542 = t507 * t1152; t13547 = t667 * t3739; t13552 = -0.10000000000000000000e1 * t538 * t809 * t2504 + 0.36066308400000000000e1 * t13527 - 0.90165771000000000000e0 * t1446 * t3402 - 0.10000000000000000000e1 * t538 * t2220 * t955 + 0.53431568000000000000e0 * t13534 + 0.20036838000000000000e0 * t12403 * t3426 + 0.40073676000000000000e0 * t13538 - 0.26715784000000000000e0 * t13540 - 0.10000000000000000000e1 * t13542 - 0.50000000000000000000e0 * t538 * t11613 * t277 - 0.12022102800000000000e1 * t13547 - 0.66789460000000000000e-1 * t673 * t2543 * t3444; t13576 = -0.66789460000000000000e-1 * t670 * t3756 - 0.66789460000000000000e-1 * t283 * t2543 * t3419 - t11834 - t11836 + t11838 - 0.36066308400000000000e1 * t522 * t1510 * t1151 * t194 - 0.54099462600000000000e1 * t474 * t5110 * t11824 + 0.36066308400000000000e1 * t474 * t1510 * t11809 - 0.90165771000000000000e0 * t1323 * t3964 + 0.18033154200000000000e1 * t522 * t527 * t1176 * t194 - 0.18033154200000000000e1 * t11843; t13577 = t1207 * t3964; t13586 = t3843 * t131; t13595 = t2973 * t3732; t13597 = t6220 * t3711; t13599 = t6220 * t3714; t13605 = -0.18033154200000000000e1 * t13577 + 0.18033154200000000000e1 * t474 * t1510 * t11655 + 0.15000000000000000000e1 * t538 * t11599 * t1428 + 0.13357892000000000000e0 * t11867 + 0.20036838000000000000e0 * t673 * t791 * t13586 * t194 - 0.40073676000000000000e0 * t2401 * t3437 - 0.20036838000000000000e0 * t825 * t3440 + 0.13357892000000000000e0 * t13595 - 0.80147352000000000000e0 * t13597 - 0.80147352000000000000e0 * t13599 + 0.36066308400000000000e1 * t11873 - 0.90165771000000000000e0 * t474 * t527 * t3483; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[11] = t13091 + t13120 + t13152 + t13190 + t13216 + t13239 + t13267 + t13384 + t13410 + t13429 + t13462 + t13495 + t13523 + t13552 + t13576 + t13605; t13624 = t969 * t565; t13625 = t3073 * t13624; t13628 = t969 * t639; t13629 = t3073 * t13628; t13632 = t408 * t13624; t13635 = t408 * t13628; t13639 = t153 * t1012 * t565; t13643 = t153 * t1012 * t639; t13670 = 0.98253638534338963200e3 * t11018 * t13625 - 0.14036234076334137600e3 * t3100 * t13629 - 0.84217404458004825600e3 * t1996 * t13632 + 0.14036234076334137600e3 * t749 * t13635 + 0.42108702229002412800e3 * t1996 * t13639 - 0.70181170381670688000e2 * t749 * t13643 + 0.20043642788832499200e3 * t3100 * t13625 - 0.33406071314720832000e2 * t3072 * t13629 - 0.20043642788832499200e3 * t749 * t13632 + 0.40087285577664998400e2 * t757 * t13635 + 0.10021821394416249600e3 * t749 * t13639 - 0.20043642788832499200e2 * t757 * t13643 + 0.79500650212800000000e1 * t3072 * t13625 - 0.15900130042560000000e1 * t3078 * t13629 - 0.95400780255360000000e1 * t757 * t13632 + 0.23850195063840000000e1 * t769 * t13635 + 0.47700390127680000000e1 * t757 * t13639 - 0.11925097531920000000e1 * t769 * t13643; t13674 = -0.20000000000000000000e1 * t1547 * t3537 + t10173 + 0.40073676000000000000e0 * t2401 * t3517 - 0.10000000000000000000e1 * t538 * t743 * t2651 - 0.20000000000000000000e1 * t11894 + 0.15000000000000000000e1 * t538 * t3228 * t663 + 0.80147352000000000000e0 * t11998 + 0.80147352000000000000e0 * t12000 + 0.40073676000000000000e0 * t12005 + 0.80147352000000000000e0 * t12010 + 0.25000000000000000000e0 * t145 * t201 * t13670; t13694 = -0.16029470400000000000e1 * t12018 - 0.16029470400000000000e1 * t12025 - 0.36066308400000000000e1 * t522 * t5214 * t1022 - 0.36066308400000000000e1 * t12067 - 0.40000000000000000000e1 * t12069 + 0.12022102800000000000e1 * t2075 * t1080 * t2620 + 0.12022102800000000000e1 * t2371 * t1080 * t2611 + t10285 + 0.20036838000000000000e0 * t283 * t674 * t731 * t2651 + 0.26715784000000000000e0 * t12078 - 0.16029470400000000000e1 * t12086; t13720 = 0.20036838000000000000e0 * t673 * t674 * t3190 * t639 + t10291 - 0.26715784000000000000e0 * t12095 + 0.80147352000000000000e0 * t12099 - 0.40073676000000000000e0 * t12103 - 0.40073676000000000000e0 * t10226 * t4123 * t644 - 0.40073676000000000000e0 * t2066 * t4184 * t644 - 0.80147352000000000000e0 * t2075 * t1080 * t2614 - 0.40073676000000000000e0 * t2075 * t1080 * t2632 + 0.80147352000000000000e0 * t2066 * t4180 * t644 - 0.80147352000000000000e0 * t7163 * t3543; t13747 = -0.80147352000000000000e0 * t2066 * t1080 * t2602 - 0.40073676000000000000e0 * t2066 * t1080 * t2617 - 0.80147352000000000000e0 * t7160 * t3546 + 0.40073676000000000000e0 * t825 * t3528 + 0.20036838000000000000e0 * t2599 * t1019 + 0.16029470400000000000e1 * t2066 * t1080 * t2629 - 0.60000000000000000000e1 * t538 * t10638 * t647 - 0.60110514000000000000e0 * t2134 * t674 * t3190 * t565 - 0.80147352000000000000e0 * t12165 + 0.10000000000000000000e1 * t12167 - 0.50000000000000000000e0 * t558 * t1023; t13754 = t558 * t962; t13759 = t3048 * t565; t13767 = t10400 * t647; t13780 = 0.30000000000000000000e1 * t1547 * t3509 - 0.10018419000000000000e0 * t2599 * t1015 - 0.66789460000000000000e-1 * t13754 * t972 + 0.20036838000000000000e0 * t2599 * t977 + 0.12022102800000000000e1 * t2134 * t683 * t13759 + 0.10018419000000000000e0 * t283 * t674 * t3199 * t663 - 0.13357892000000000000e0 * t963 * t3180 * t13767 - 0.80147352000000000000e0 * t2401 * t3506 + 0.60000000000000000000e1 * t538 * t2150 * t8253 + 0.36066308400000000000e1 * t474 * t1510 * t12012 + 0.72132616800000000000e1 * t12213; t13801 = t3057 * t663; t13810 = -0.10000000000000000000e1 * t1547 * t3540 + 0.18033154200000000000e1 * t474 * t5359 * t1022 + 0.15000000000000000000e1 * t538 * t10205 * t647 - 0.10819892520000000000e2 * t474 * t5110 * t12379 + 0.72132616800000000000e1 * t474 * t1510 * t12386 - 0.10000000000000000000e1 * t538 * t12362 * t277 + 0.80147352000000000000e0 * t12223 + 0.20036838000000000000e0 * t825 * t3521 - 0.20036838000000000000e0 * t283 * t683 * t13801 - 0.90165771000000000000e0 * t474 * t1539 * t1053 + 0.36066308400000000000e1 * t1446 * t3556; t13812 = t852 * t852; t13820 = t3048 * t639; t13838 = -0.10000000000000000000e1 * t145 * t481 * t13812 + 0.25000000000000000000e0 * t558 * t1054 - 0.18033154200000000000e1 * t1446 * t3553 + 0.20036838000000000000e0 * t3179 * t3180 * t13820 + 0.66789460000000000000e-1 * t963 * t3180 * t13801 - t10652 - t10655 - 0.18033154200000000000e1 * t474 * t527 * t3582 - 0.50000000000000000000e0 * t538 * t3068 * t663 + 0.50000000000000000000e0 * t216 * t3583 - 0.40073676000000000000e0 * t673 * t683 * t13820; t13861 = -0.20000000000000000000e1 * t12371 + 0.18033154200000000000e1 * t522 * t1648 * t1053 - t10745 - 0.80147352000000000000e0 * t10377 * t3180 * t13759 - 0.20036838000000000000e0 * t283 * t674 * t10384 * t647 + 0.40073676000000000000e0 * t283 * t683 * t13767 + 0.60000000000000000000e1 * t12396 + 0.40073676000000000000e0 * t12403 * t3531 + 0.13357892000000000000e0 * t3502 * t3534 - 0.40073676000000000000e0 * t825 * t3513 + 0.10000000000000000000e1 * t12408; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[12] = t13674 + t13694 + t13720 + t13747 + t13780 + t13810 + t13838 + t13861; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[13] = 0.0e0; t13897 = -0.18033154200000000000e1 * t1446 * t3587 - 0.20000000000000000000e1 * t12422 - 0.36066308400000000000e1 * t522 * t5214 * t3271 + 0.15000000000000000000e1 * t538 * t2175 * t8585 - 0.60000000000000000000e1 * t538 * t7017 * t8384 + 0.25000000000000000000e0 * t558 * t1091 + 0.26715784000000000000e0 * t12440 + 0.80147352000000000000e0 * t12442 + 0.53431568000000000000e0 * t12448 - 0.50000000000000000000e0 * t5699 * t1074 + 0.60110514000000000000e0 * t2075 * t1080 * t2959 + 0.60110514000000000000e0 * t2371 * t1060 * t2611 + 0.13357892000000000000e0 * t2066 * t3631 * t838 + 0.36066308400000000000e1 * t474 * t1510 * t12866 + 0.36066308400000000000e1 * t1446 * t3661; t13939 = -0.10000000000000000000e1 * t1547 * t3652 + 0.30000000000000000000e1 * t538 * t2175 * t8253 + 0.36066308400000000000e1 * t474 * t1510 * t12414 + 0.30000000000000000000e1 * t1547 * t3658 + 0.36066308400000000000e1 * t474 * t1510 * t12823 - 0.10000000000000000000e1 * t538 * t2468 * t852 + 0.18033154200000000000e1 * t474 * t5359 * t3271 - 0.26715784000000000000e0 * t12576 - 0.26715784000000000000e0 * t12582 + 0.89052613333333333333e-1 * t12584 + 0.44526306666666666666e-1 * t1059 * t574 * t907 * t1062 - 0.29684204444444444444e-1 * t1059 * t1703 * t351 * t1062 + 0.44526306666666666666e-1 * t3624 * t3632 - 0.13357892000000000000e0 * t3624 * t3628 + 0.80147352000000000000e0 * t2066 * t2514 * t1943 * t8997 + 0.80147352000000000000e0 * t2066 * t1060 * t2629; t13982 = -0.66789460000000000000e-1 * t1059 * t225 * t2741 * t1062 + 0.80147352000000000000e0 * t2066 * t1080 * t2920 - 0.66789460000000000000e-1 * t5715 * t1058 * t1063 + 0.80147352000000000000e0 * t2075 * t2514 * t743 * t9917 + 0.60000000000000000000e1 * t12639 - 0.40073676000000000000e0 * t3380 * t11329 * t307 * t5988 - 0.26715784000000000000e0 * t3258 * t12751 * t307 * t9917 - 0.80147352000000000000e0 * t3380 * t12712 * t307 * t8997 + 0.30000000000000000000e1 * t538 * t8128 * t2279 + 0.50000000000000000000e0 * t216 * t3699 - 0.50000000000000000000e0 * t538 * t9220 * t325 - 0.36066308400000000000e1 * t12678 - 0.66789460000000000000e-1 * t825 * t3621 - 0.80147352000000000000e0 * t12698 - 0.80147352000000000000e0 * t12700 - 0.80147352000000000000e0 * t12702; t13997 = t579 * t907; t14023 = -0.80147352000000000000e0 * t12705 - 0.80147352000000000000e0 * t12707 - 0.44526306666666666666e-1 * t12536 * t3602 + 0.13357892000000000000e0 * t3258 * t3594 * t153 * t306 * t635 + 0.66789460000000000000e-1 * t3258 * t3259 * t153 * t306 * t663 + 0.26715784000000000000e0 * t3258 * t13997 * t131 * t3596 + 0.13357892000000000000e0 * t3258 * t12559 * t3601 + 0.20036838000000000000e0 * t3380 * t353 * t2640 + 0.40073676000000000000e0 * t12695 * t3590 + 0.26715784000000000000e0 * t12551 * t3597 + 0.13357892000000000000e0 * t12551 * t3602 + 0.40073676000000000000e0 * t3380 * t909 * t845 + t11322 - 0.10000000000000000000e1 * t1547 * t3706 - 0.90165771000000000000e0 * t474 * t1539 * t1090 - 0.20000000000000000000e1 * t12764; t14027 = t12933 * t844 * t262; t14030 = t12876 * t3664; t14034 = t3280 * t307 * t639; t14037 = t1097 * t351; t14040 = t14037 * t17 * t307 * t581; t14048 = t3280 * t307 * t565; t14063 = t1077 * t247; t14075 = t2742 * t1080; t14078 = 0.56144936305336550400e3 * t12950 * t14027 - 0.28072468152668275200e3 * t3279 * t14030 - 0.14036234076334137600e3 * t3279 * t14034 + 0.23850195063840000000e1 * t1087 * t14040 + 0.10600086695040000000e1 * t3682 * t3665 + 0.40087285577664998400e2 * t1084 * t14040 + 0.79500650212800000000e1 * t1079 * t14048 + 0.14036234076334137600e3 * t1079 * t14040 + 0.20043642788832499200e3 * t3279 * t14048 + 0.22270714209813888000e2 * t3669 * t3665 + 0.63600520170240000000e1 * t12955 * t14027 + 0.13362428525888332800e3 * t12938 * t14027 - 0.15595815640371264000e2 * t3669 * t3677 + 0.17666811158400000000e0 * t1045 * t14063 * t1081 + 0.29694285613085184000e1 * t1037 * t14063 * t1081 + 0.10397210426914176000e2 * t1026 * t14063 * t1081 - 0.44541428419627776000e1 * t3682 * t3677 + 0.66812142629441664000e1 * t1084 * t14075; t14094 = t13997 * t17 * t3673; t14098 = t3672 * t307 * t635; t14119 = -0.26500216737600000000e0 * t3691 * t3677 + 0.39750325106400000000e0 * t1087 * t14075 + 0.23393723460556896000e2 * t1079 * t14075 + 0.98253638534338963200e3 * t11545 * t14048 + 0.93574893842227584000e2 * t12998 * t3665 - 0.15900130042560000000e1 * t1084 * t14034 + 0.53000433475200000000e0 * t3691 * t3674 - 0.15900130042560000000e1 * t1087 * t14094 - 0.79500650212800000000e0 * t1087 * t14098 + 0.89082856839255552000e1 * t3682 * t3674 - 0.26724857051776665600e2 * t1084 * t14094 - 0.13362428525888332800e2 * t1084 * t14098 - 0.31800260085120000000e1 * t1084 * t14030 + 0.31191631280742528000e2 * t3669 * t3674 - 0.93574893842227584000e2 * t1079 * t14094 - 0.46787446921113792000e2 * t1079 * t14098 - 0.66812142629441664000e2 * t1079 * t14030 - 0.33406071314720832000e2 * t1079 * t14034; t14152 = 0.25000000000000000000e0 * t145 * t201 * (t14078 + t14119) + t11341 + t11382 + 0.15000000000000000000e1 * t538 * t11114 * t647 + 0.72132616800000000000e1 * t12815 - 0.10000000000000000000e1 * t1547 * t3655 - 0.50000000000000000000e0 * t538 * t809 * t2651 - 0.20000000000000000000e1 * t12829 - 0.66789460000000000000e-1 * t283 * t2543 * t3613 - 0.66789460000000000000e-1 * t283 * t2543 * t3617 - 0.10819892520000000000e2 * t8469 * t3658 - 0.18033154200000000000e1 * t474 * t527 * t3698 - 0.10000000000000000000e1 * t538 * t12851 * t277 + 0.10000000000000000000e1 * t12855 - t11418 + 0.18033154200000000000e1 * t522 * t1648 * t1090; t14198 = -0.40073676000000000000e0 * t7160 * t3643 + 0.60110514000000000000e0 * t2371 * t1080 * t2912 + 0.60110514000000000000e0 * t2075 * t9109 * t1943 * t581 + 0.60110514000000000000e0 * t2075 * t1060 * t2620 - 0.40073676000000000000e0 * t7160 * t3636 - 0.40073676000000000000e0 * t2075 * t1080 * t2956 - 0.20036838000000000000e0 * t2075 * t1080 * t2810 - 0.40073676000000000000e0 * t7163 * t3639 - 0.40073676000000000000e0 * t2066 * t1060 * t2602 - 0.20036838000000000000e0 * t2066 * t1060 * t2617 + 0.13357892000000000000e0 * t2075 * t8937 * t3642 + 0.13357892000000000000e0 * t2075 * t3631 * t841 - 0.40073676000000000000e0 * t7163 * t3649 - 0.40073676000000000000e0 * t2066 * t1080 * t2925 - 0.20036838000000000000e0 * t2066 * t1080 * t2917 - 0.40073676000000000000e0 * t2066 * t3627 * t838; t14247 = -0.40073676000000000000e0 * t2075 * t3627 * t841 - 0.40073676000000000000e0 * t2075 * t1060 * t2614 - 0.20036838000000000000e0 * t2075 * t1060 * t2632 - 0.20036838000000000000e0 * t2075 * t2514 * t1943 * t635 - 0.40073676000000000000e0 * t7160 * t3646 - 0.40073676000000000000e0 * t2075 * t2514 * t7709 * t262 - 0.40073676000000000000e0 * t2075 * t9091 * t3642 + 0.10000000000000000000e1 * t12861 + 0.44526306666666666667e-1 * t283 * t8787 * t1066 - 0.13357892000000000000e0 * t3258 * t11170 * t153 * t306 * t647 - 0.13357892000000000000e0 * t12533 * t3590 - 0.40073676000000000000e0 * t3258 * t14037 * t131 * t153 * t306 * t581 - 0.80147352000000000000e0 * t11180 * t353 * t2636 - 0.89052613333333333333e-1 * t12536 * t3597 - t11464 - 0.50000000000000000000e0 * t538 * t3275 * t663; t14281 = -0.20000000000000000000e1 * t13038 + 0.40073676000000000000e0 * t13042 + 0.40073676000000000000e0 * t13047 + 0.40073676000000000000e0 * t13049 + 0.40073676000000000000e0 * t13051 + 0.40073676000000000000e0 * t13053 - 0.13357892000000000000e0 * t13055 + 0.10018419000000000000e0 * t283 * t674 * t731 * t2908 + 0.10018419000000000000e0 * t2599 * t1067 + 0.20036838000000000000e0 * t825 * t3614 + 0.20036838000000000000e0 * t825 * t3618 + 0.10018419000000000000e0 * t283 * t791 * t9149 * t325 + 0.20036838000000000000e0 * t283 * t791 * t2561 * t852 + 0.10018419000000000000e0 * t283 * t791 * t797 * t2651 + 0.10018419000000000000e0 * t2599 * t1071 + 0.20036838000000000000e0 * t825 * t3608; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[14] = t13897 + t13939 + t13982 + t14023 + t14152 + t14198 + t14247 + t14281; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[15] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[16] = 0.0e0; t14284 = t964 * t78; t14332 = -0.6e1 * t1762 * t1122 * t633 + 0.24e2 * t5911 * t1122 * t615 + 0.2e1 * t614 * t1139 * t633 - 0.24e2 * t1762 * t891 * t905 + 0.4e1 * t614 * t3841 * t260 + 0.4e1 * t614 * t349 * t2739 + 0.8e1 * t1755 * t3821 + 0.4e1 * t1755 * t3825 + 0.8e1 * t2707 * t2719 + 0.4e1 * t2707 * t2722 - 0.12e2 * t9550 * t2716 - 0.12e2 * t5902 * t3818 + 0.8e1 * t9570 * t891; t14336 = t905 * t905; t14339 = t1118 * t613; t14360 = 0.46913580246913580247e-3 * t43 * t587; t14369 = t3806 * t244; t14396 = -0.6e1 * t1762 * t1139 * t615 + 0.4e1 * t614 * t14336 + 0.2e1 * t14339 * t615 - t245 * (-0.12732870370370370370e-1 * t54 * t1126 * t619 * t105 + 0.49630182129629629625e-1 * t24 * t1131 * t601 * t256 - 0.17773414759800945055e1 * t43 * t2732 + 0.39481569207306256398e0 * t2736 * sigma[2] - 0.42541656383427358000e0 * t2691 * t5941 * t90 * t19 * t23 + t14360) - 0.4e1 * t2704 * t905 - 0.2e1 * t888 * t2739 + 0.2e1 * t5897 * t1122 - 0.2e1 * t14369 * t260 - t3808 * t633 - 0.2e1 * t9565 * t349 - t1752 * t1139 - 0.2e1 * t609 * t3841 + (-0.97158950617283950615e2 * t2686 * t1111 + 0.18180941358024691358e3 * t2692 * t19 * t3799 - 0.80804183813443072701e2 * t421 / t72 / t594 / t585 * t40 * t42 * t592 * t82 + 0.17686419753086419752e1 * t43 * t2682 - t14360) * t110; t14398 = t224 * (t14332 + t14396); t14434 = t13289 * t3868; t14438 = t1714 * t1141 * t581; t14441 = t1098 * t565; t14442 = t3459 * t14441; t14448 = t225 * t1141 * t565; t14451 = t574 * t3890; t14454 = t1707 * t3868; t14457 = t1098 * t581; t14458 = t5842 * t14457; t14473 = 0.44541428419627776000e2 * t3072 * t14434 + 0.84217404458004825600e2 * t757 * t14438 + 0.98253638534338963200e3 * t11018 * t14442 + 0.18714978768445516800e3 * t3100 * t14434 + 0.10021821394416249600e3 * t749 * t14448 + 0.13362428525888332800e2 * t757 * t14451 - 0.26724857051776665600e2 * t757 * t14454 - 0.12026185673299499520e3 * t769 * t14458 + 0.23850195063840000000e1 * t778 * t14438 + 0.47700390127680000000e1 * t757 * t14448 + 0.79500650212800000000e0 * t769 * t14451 + 0.30065464183248748800e2 * t769 * t14438 + 0.79500650212800000000e1 * t3072 * t14442 + 0.21200173390080000000e1 * t3078 * t14434; t14476 = t1094 * t4290; t14477 = t14476 * t14457; t14480 = t580 * t14441; t14490 = t580 * t3843 * t262; t14493 = t1098 * t639; t14494 = t3459 * t14493; t14498 = t3778 * t3721 * t3873; t14501 = t13289 * t3877; t14505 = t225 * t3843 * t266; t14514 = 0.20043642788832499200e3 * t3100 * t14442 + 0.13362428525888332800e3 * t3078 * t14477 - 0.20043642788832499200e3 * t749 * t14480 - 0.84217404458004825600e3 * t1996 * t14480 - 0.93574893842227584000e2 * t749 * t14454 + 0.46787446921113792000e3 * t3072 * t14477 - 0.56144936305336550400e2 * t757 * t14490 - 0.14036234076334137600e3 * t3100 * t14494 + 0.12476652512297011200e3 * t3072 * t14498 - 0.62383262561485056000e2 * t3072 * t14501 - 0.23850195063840000000e1 * t769 * t14505 - 0.15900130042560000000e1 * t778 * t14490 - 0.40087285577664998400e2 * t757 * t14505 - 0.95400780255360000000e1 * t778 * t14458; t14516 = t1707 * t3877; t14519 = t1098 * t635; t14520 = t1714 * t14519; t14523 = t351 * t2741; t14524 = t580 * t14523; t14528 = t225 * t1141 * t639; t14536 = t580 * t3890 * t262; t14539 = t3868 * t262; t14540 = t1714 * t14539; t14543 = t925 * t907; t14544 = t580 * t14543; t14547 = t932 * t907; t14548 = t1714 * t14547; t14555 = t3872 * t14539; t14558 = t3459 * t14543; t14561 = 0.37429957536891033600e2 * t757 * t14516 + 0.84217404458004825600e2 * t757 * t14520 - 0.56144936305336550400e2 * t757 * t14524 - 0.70181170381670688000e2 * t749 * t14528 - 0.20043642788832499200e2 * t769 * t14490 - 0.14036234076334137600e3 * t749 * t14505 + 0.80174571155329996800e2 * t757 * t14536 - 0.24052371346598999040e3 * t757 * t14540 + 0.16034914231065999360e3 * t757 * t14544 + 0.12026185673299499520e3 * t769 * t14548 - 0.84217404458004825600e3 * t749 * t14540 + 0.56144936305336550400e3 * t749 * t14544 + 0.11228987261067310080e4 * t3100 * t14555 - 0.56144936305336550400e3 * t3100 * t14558; t14562 = t3872 * t14547; t14577 = t219 * t3844; t14580 = t74 * t14398; t14585 = t907 * t907; t14586 = t1097 * t14585; t14587 = t1095 * t14586; t14590 = t570 * t1104; t14593 = t579 * t14585; t14594 = t74 * t14593; t14601 = -0.37429957536891033600e3 * t3072 * t14562 + 0.47700390127680000000e1 * t769 * t14536 + 0.12720104034048000000e2 * t3078 * t14555 - 0.63600520170240000000e1 * t3078 * t14558 + 0.26724857051776665600e3 * t3072 * t14555 - 0.13362428525888332800e3 * t3072 * t14558 + 0.28072468152668275200e3 * t749 * t14536 - 0.26500216737600000000e0 * t322 * t14577 + 0.14036234076334137600e2 * t313 * t14580 + 0.39750325106400000000e0 * t322 * t14580 + 0.46787446921113792000e2 * t1027 * t14587 - 0.12476652512297011200e2 * t313 * t14590 - 0.56144936305336550400e2 * t313 * t14594 - 0.33406071314720832000e1 * t318 * t14577 - 0.93574893842227584000e1 * t313 * t14577; t14604 = t14284 * t1099; t14613 = t3872 * t14519; t14616 = t3459 * t14523; t14619 = t580 * t14493; t14622 = t5832 * t3873; t14637 = 0.25993026067285440000e2 * t1027 * t14604 + 0.95400780255360000000e1 * t769 * t14544 + 0.95400780255360000000e1 * t778 * t14548 - 0.10689942820710666240e3 * t3078 * t14562 - 0.93574893842227584000e2 * t3072 * t14613 + 0.46787446921113792000e2 * t3072 * t14616 + 0.14036234076334137600e3 * t749 * t14619 - 0.56144936305336550400e2 * t757 * t14622 + 0.42108702229002412800e3 * t1996 * t14448 + 0.46787446921113792000e2 * t749 * t14451 + 0.13362428525888332800e2 * t3078 * t14616 + 0.40087285577664998400e2 * t757 * t14619 + 0.79500650212800000000e1 * t3156 * t14477 - 0.95400780255360000000e1 * t757 * t14480; t14646 = t1707 * t3894; t14650 = t580 * t1141 * t635; t14669 = -0.15900130042560000000e1 * t769 * t14454 - 0.33686961783201930240e3 * t757 * t14458 - 0.20043642788832499200e2 * t769 * t14524 - 0.20043642788832499200e2 * t757 * t14528 + 0.66812142629441664000e1 * t769 * t14646 - 0.10021821394416249600e2 * t769 * t14650 + 0.18714978768445516800e2 * t757 * t14646 - 0.28072468152668275200e2 * t757 * t14650 - 0.33406071314720832000e2 * t3072 * t14494 + 0.35633142735702220800e2 * t3078 * t14498 - 0.17816571367851110400e2 * t3078 * t14501 - 0.26724857051776665600e2 * t3078 * t14613 - 0.35333622316800000000e0 * t322 * t14590 - 0.44541428419627776000e1 * t318 * t14590; t14673 = t570 * t1142; t14700 = -0.20043642788832499200e2 * t318 * t14594 + 0.22270714209813888000e1 * t318 * t14673 + 0.62383262561485056000e1 * t313 * t14673 + 0.74235714032712960000e1 * t1038 * t14604 + 0.13362428525888332800e2 * t1038 * t14587 + 0.50109106972081248000e1 * t318 * t14580 - 0.15900130042560000000e1 * t322 * t14594 + 0.17666811158400000000e0 * t322 * t14673 + 0.44167027896000000000e0 * t1046 * t14604 + 0.79500650212800000000e0 * t1046 * t14587 - 0.63600520170240000000e1 * t3156 * t14562 - 0.14310117038304000000e2 * t769 * t14540 + 0.33686961783201930240e3 * t757 * t14548 - 0.15900130042560000000e1 * t778 * t14524; t14731 = -0.11925097531920000000e1 * t769 * t14528 + 0.53000433475200000000e0 * t778 * t14646 - 0.79500650212800000000e0 * t778 * t14650 - 0.15900130042560000000e1 * t3078 * t14494 + 0.21200173390080000000e1 * t3156 * t14498 - 0.10600086695040000000e1 * t3156 * t14501 - 0.15900130042560000000e1 * t3156 * t14613 + 0.79500650212800000000e0 * t3156 * t14616 + 0.23850195063840000000e1 * t769 * t14619 - 0.15900130042560000000e1 * t778 * t14622 + 0.10600086695040000000e1 * t778 * t14516 + 0.23850195063840000000e1 * t778 * t14520 - 0.20043642788832499200e2 * t769 * t14622 + 0.13362428525888332800e2 * t769 * t14516 + 0.30065464183248748800e2 * t769 * t14520; t14741 = -0.80147352000000000000e0 * t2075 * t1060 * t2956 - 0.80147352000000000000e0 * t2075 * t9091 * t3710 - 0.80147352000000000000e0 * t7160 * t3714 - 0.80147352000000000000e0 * t2075 * t3627 * t922 + 0.15000000000000000000e1 * t538 * t11599 * t647 + 0.60000000000000000000e1 * t538 * t2175 * t8896 - 0.24044205600000000000e1 * t2075 * t9109 * t2782 - 0.10000000000000000000e1 * t538 * t13490 * t277 - 0.16029470400000000000e1 * t13079 + 0.25000000000000000000e0 * t145 * t201 * (t14473 + t14514 + t14561 + t14601 + t14637 + t14669 + t14700 + t14731) + 0.26715784000000000000e0 * t2066 * t3631 * t919; t14806 = 0.10018419000000000000e0 * t283 * t791 * t3412 * t663 + 0.20036838000000000000e0 * t2599 * t1148 + 0.40073676000000000000e0 * t825 * t3749 + 0.18033154200000000000e1 * t522 * t1648 * t1176 + 0.12022102800000000000e1 * t2075 * t9109 * t2179 * t581 + 0.12022102800000000000e1 * t2075 * t1060 * t2959 - 0.40000000000000000000e1 * t13163 - 0.20000000000000000000e1 * t1547 * t3852 + 0.16029470400000000000e1 * t2066 * t2514 * t2179 * t8997 + 0.16029470400000000000e1 * t2066 * t1060 * t2920 + 0.16029470400000000000e1 * t2075 * t2514 * t809 * t9917; t14833 = t3872 * t351; t14852 = t11852 * t647; t14856 = -0.40073676000000000000e0 * t13227 + 0.80147352000000000000e0 * t13229 + 0.17810522666666666667e0 * t13233 + 0.13357892000000000000e0 * t13235 - 0.40073676000000000000e0 * t13237 - 0.26715784000000000000e0 * t13245 - 0.26715784000000000000e0 * t13247 - 0.10000000000000000000e1 * t538 * t809 * t2908 + 0.60000000000000000000e1 * t13257 + t11703 + 0.40073676000000000000e0 * t283 * t865 * t14852; t14858 = t3424 * t565; t14862 = t3424 * t581; t14875 = t1095 * t4290; t14912 = 0.89052613333333333333e-1 * t283 * t8787 * t1147 - 0.26715784000000000000e0 * t13271 + 0.80147352000000000000e0 * t13273 + 0.80147352000000000000e0 * t13275 + 0.80147352000000000000e0 * t13277 + 0.40073676000000000000e0 * t13279 + 0.80147352000000000000e0 * t13281 + 0.10000000000000000000e1 * t13382 - 0.36066308400000000000e1 * t522 * t5214 * t1151 - 0.20000000000000000000e1 * t13393 + 0.36066308400000000000e1 * t474 * t1510 * t13175; t14952 = t792 * t2741; t14969 = -0.13357892000000000000e0 * t825 * t3756 - 0.13357892000000000000e0 * t283 * t2543 * t3748 - 0.13357892000000000000e0 * t283 * t2543 * t3752 - 0.26715784000000000000e0 * t3502 * t3728 - 0.13357892000000000000e0 * t963 * t3423 * t14952 + 0.12022102800000000000e1 * t2075 * t13159 * t2766 + t11800 + 0.10000000000000000000e1 * t13421 - 0.66789460000000000000e-1 * t13754 * t1101 - 0.13357892000000000000e0 * t963 * t1095 * t14586 * t131 + 0.89052613333333333333e-1 * t283 * t570 * t1105; t14995 = t3432 * t663; t15002 = t3424 * t639; t15017 = t3424 * t635; t15031 = -0.80147352000000000000e0 * t2401 * t3736 - 0.40073676000000000000e0 * t673 * t865 * t15002 + 0.40073676000000000000e0 * t283 * t9829 * t3723 - 0.26715784000000000000e0 * t283 * t2806 * t3727 + 0.13357892000000000000e0 * t283 * t2806 * t3731 - 0.12022102800000000000e1 * t825 * t3739 - 0.60110514000000000000e0 * t283 * t2929 * t15017 + 0.80147352000000000000e0 * t825 * t3742 + 0.40073676000000000000e0 * t283 * t865 * t14952 - 0.40073676000000000000e0 * t825 * t3745 - 0.20036838000000000000e0 * t283 * t865 * t14995; t15091 = t955 * t955; t15095 = -0.26715784000000000000e0 * t3179 * t13112 * t3735 - 0.35621045333333333334e0 * t963 * t3779 * t3721 * t3723 + 0.17810522666666666667e0 * t963 * t13112 * t3727 - 0.89052613333333333334e-1 * t963 * t13112 * t3731 + 0.53431568000000000000e0 * t3502 * t3724 + 0.26715784000000000000e0 * t963 * t3722 * t15017 - 0.60000000000000000000e1 * t538 * t11694 * t647 + 0.18033154200000000000e1 * t474 * t5359 * t1151 + 0.36066308400000000000e1 * t1446 * t3865 - 0.10000000000000000000e1 * t1547 * t3858 - 0.10000000000000000000e1 * t145 * t481 * t15091; t15118 = -0.50000000000000000000e0 * t558 * t1152 + 0.10686313600000000000e1 * t13534 - 0.90165771000000000000e0 * t474 * t1539 * t1176 + 0.80147352000000000000e0 * t13538 - 0.53431568000000000000e0 * t13540 - 0.50000000000000000000e0 * t538 * t3405 * t663 + 0.25000000000000000000e0 * t558 * t1177 - 0.20000000000000000000e1 * t13542 - 0.10819892520000000000e2 * t474 * t5110 * t13249 - 0.18033154200000000000e1 * t1446 * t3964 + 0.50000000000000000000e0 * t216 * t3961; t15132 = -0.24044205600000000000e1 * t13547 - t11834 - t11836 + t11838 + 0.30000000000000000000e1 * t1547 * t3849 - 0.18033154200000000000e1 * t474 * t527 * t3960 - 0.36066308400000000000e1 * t13577 + 0.26715784000000000000e0 * t13595 - 0.16029470400000000000e1 * t13597 + 0.26715784000000000000e0 * t2075 * t8937 * t3710 - 0.16029470400000000000e1 * t13599; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[17] = t15118 + t14912 + t15132 - t11817 + t14806 - 0.80147352000000000000e0 * t7163 * t3717 + 0.40073676000000000000e0 * t825 * t3753 + 0.40073676000000000000e0 * t12403 * t3855 + 0.40073676000000000000e0 * t2401 * t3760 - 0.10018419000000000000e0 * t2599 * t1144 - 0.20036838000000000000e0 * t825 * t3846 - 0.13357892000000000000e0 * t825 * t3783 + 0.20036838000000000000e0 * t2599 * t1106 + 0.40073676000000000000e0 * t825 * t3764 + 0.20036838000000000000e0 * t825 * t3768 + 0.66789460000000000000e-1 * t825 * t3774 + 0.89052613333333333334e-1 * t3502 * t3780 - 0.80147352000000000000e0 * t7160 * t3711 + 0.13357892000000000000e0 * t3502 * t3732 + t14741 + t15095 + 0.80147352000000000000e0 * t13402 + t14856 + t15031 - 0.16029470400000000000e1 * t13488 + 0.16029470400000000000e1 * t13404 - 0.80147352000000000000e0 * t13406 + 0.72132616800000000000e1 * t13527 - 0.10018419000000000000e0 * t283 * t74 * t14398 * t131 + 0.40073676000000000000e0 * t283 * t865 * t13586 * t262 + 0.20036838000000000000e0 * t283 * t865 * t3443 * t635 + 0.20036838000000000000e0 * t283 * t791 * t13165 * t277 - 0.20036838000000000000e0 * t283 * t791 * t11847 * t647 - 0.60110514000000000000e0 * t283 * t2929 * t3443 * t581 - 0.60110514000000000000e0 * t2134 * t791 * t3443 * t565 + 0.40073676000000000000e0 * t673 * t791 * t13586 * t266 + 0.20036838000000000000e0 * t673 * t791 * t3443 * t639 + 0.40073676000000000000e0 * t283 * t74 * t14593 * t131 - 0.40073676000000000000e0 * t2075 * t2514 * t2179 * t635 - 0.80147352000000000000e0 * t2075 * t2514 * t7782 * t262 + 0.20036838000000000000e0 * t283 * t791 * t9149 * t364 + 0.40073676000000000000e0 * t283 * t791 * t2561 * t955 + 0.20036838000000000000e0 * t283 * t791 * t797 * t2908 - 0.74210511111111111112e-1 * t963 * t14284 * t1100 - 0.44526306666666666667e-1 * t283 * t570 * t1143 + 0.66789460000000000000e-1 * t283 * t219 * t3845 + 0.15000000000000000000e1 * t538 * t3489 * t663 - 0.80147352000000000000e0 * t2075 * t2514 * t2938 - 0.13357892000000000000e0 * t283 * t2806 * t3763 - 0.66789460000000000000e-1 * t283 * t2543 * t3767 + 0.72132616800000000000e1 * t474 * t1510 * t13253 - 0.40073676000000000000e0 * t2075 * t13469 * t2766 - 0.80147352000000000000e0 * t2066 * t13469 * t2771 - 0.40073676000000000000e0 * t2066 * t4222 * t644 - 0.40073676000000000000e0 * t2075 * t1060 * t2810 + 0.80147352000000000000e0 * t10226 * t13087 * t2796 + 0.26715784000000000000e0 * t1059 * t13087 * t2938 - 0.16029470400000000000e1 * t10226 * t13145 * t2771 + 0.10686313600000000000e1 * t1059 * t14833 * t2782 - 0.53431568000000000000e0 * t1059 * t13145 * t2766 - 0.80147352000000000000e0 * t10377 * t3423 * t14858 + 0.24044205600000000000e1 * t283 * t9833 * t14862 + 0.12022102800000000000e1 * t2134 * t865 * t14858 + 0.26715784000000000000e0 * t673 * t2806 * t3735 - 0.13357892000000000000e0 * t963 * t3423 * t14852 - 0.13357892000000000000e1 * t963 * t14875 * t14862 - 0.13357892000000000000e0 * t673 * t2543 * t3759 + 0.24044205600000000000e1 * t2066 * t13159 * t2771 - 0.16029470400000000000e1 * t2066 * t2514 * t2796 + 0.80147352000000000000e0 * t2066 * t4215 * t644 - 0.40073676000000000000e0 * t10226 * t11716 * t644 + 0.26715784000000000000e0 * t2075 * t3631 * t922 - 0.80147352000000000000e0 * t2066 * t3627 * t919 - 0.80147352000000000000e0 * t2066 * t1060 * t2925 - 0.40073676000000000000e0 * t2066 * t1060 * t2917 + 0.12022102800000000000e1 * t2371 * t1060 * t2912 + 0.66789460000000000000e-1 * t963 * t3423 * t14995 + 0.20036838000000000000e0 * t3179 * t3423 * t15002 + t14969; t15173 = -0.15000000000000000000e1 * t538 * t2154 * t1053 - 0.80147352000000000000e0 * t1059 * t10230 * t3232 + 0.40073676000000000000e0 * t1059 * t10258 * t3220 - 0.40073676000000000000e0 * t1059 * t4123 * t744 - 0.60110514000000000000e0 * t2075 * t2067 * t3200 + 0.12022102800000000000e1 * t2066 * t4180 * t740 - 0.18033154200000000000e1 * t2075 * t6661 * t3195 - 0.60110514000000000000e0 * t2066 * t4184 * t740 - 0.12022102800000000000e1 * t2075 * t2067 * t3220 + 0.12022102800000000000e1 * t2075 * t4180 * t744 - 0.60110514000000000000e0 * t2075 * t10273 * t3232 + 0.12022102800000000000e1 * t2075 * t2067 * t10743 * t190; t15190 = 0.40073676000000000000e0 * t2973 * t3989; t15191 = t4046 * t131; t15200 = t4046 * t200; t15217 = 0.18033154200000000000e1 * t2075 * t1080 * t3229 - 0.12022102800000000000e1 * t2075 * t1080 * t3062 - 0.60110514000000000000e0 * t2066 * t1080 * t3176 - 0.60110514000000000000e0 * t2075 * t4184 * t744 + 0.12022102800000000000e1 * t2066 * t1080 * t3065 + t15190 + 0.20036838000000000000e0 * t673 * t674 * t15191 * t194 + 0.20036838000000000000e0 * t283 * t683 * t15191 * t190 + 0.10018419000000000000e0 * t283 * t674 * t15200 * t210 + 0.30055257000000000000e0 * t670 * t4053 + 0.30055257000000000000e0 * t283 * t674 * t10671 * t325 + 0.30055257000000000000e0 * t283 * t674 * t3199 * t783 - 0.60110514000000000000e0 * t670 * t4057; t15233 = t3975 * t194; t15238 = 0.30000000000000000000e1 * t1478 * t4068; t15241 = t3057 * t783; t15249 = 0.60110514000000000000e0 * t667 * t4053; t15254 = 0.12022102800000000000e1 * t667 * t4000; t15255 = -0.60110514000000000000e0 * t283 * t674 * t6823 * t1022 + 0.30055257000000000000e0 * t670 * t4061 + 0.30055257000000000000e0 * t283 * t674 * t2105 * t1053 + 0.30055257000000000000e0 * t283 * t674 * t731 * t3172 - 0.12022102800000000000e1 * t3179 * t3186 * t15233 - t15238 - 0.60110514000000000000e0 * t670 * t4000 - 0.60110514000000000000e0 * t283 * t683 * t15241 + 0.20036838000000000000e0 * t283 * t2116 * t3988 + t15249 - 0.20036838000000000000e0 * t283 * t2116 * t3984 - t15254; t15260 = 0.12022102800000000000e1 * t667 * t3997; t15262 = 0.40073676000000000000e0 * t2973 * t3985; t15269 = t325 * t1053; t15276 = t675 * t3035; t15288 = t3975 * t190; t15292 = t3048 * t725; t15296 = -0.13357892000000000000e0 * t963 * t10321 * t3988 + t15260 - t15262 + 0.13357892000000000000e0 * t963 * t10321 * t3984 + 0.45000000000000000000e1 * t538 * t2150 * t10350 + 0.54099462600000000000e1 * t474 * t1195 * t15269 - 0.15000000000000000000e1 * t538 * t743 * t3172 - 0.20036838000000000000e0 * t963 * t3180 * t15276 + 0.20036838000000000000e0 * t3043 * t3989 + 0.20036838000000000000e0 * t963 * t3180 * t15241 + 0.12022102800000000000e1 * t673 * t2124 * t15233 + 0.24044205600000000000e1 * t283 * t6120 * t15288 - 0.18033154200000000000e1 * t283 * t2124 * t15292; t15299 = t3974 * t200; t15300 = t15299 * t210; t15306 = t2085 * t1012; t15313 = t142 * t3968; t15316 = t8 * t3968; t15318 = 0.53431568000000000000e0 * t15316 * t3976; t15320 = 0.1e1 / t25 * t3972; t15324 = t15320 * t3974; t15329 = t146 * t4047; t15332 = t2978 * t3979; t15335 = t146 * t3992; t15360 = t4013 * t172; t15423 = -0.3e1 * t706 * t3033 - 0.6e1 * t4555 * t4021 + 0.24e2 * t4564 * t4021 * t188 - 0.18e2 * t1286 * t993 * t723 + 0.6e1 * t1279 * t4024 - 0.18e2 * t1286 * t4024 * t188 + 0.6e1 * t444 * t723 * t1010 + 0.6e1 * t444 * t304 * t3033 - t439 * t4044 + 0.2e1 * t444 * t4044 * t188 - t173 * (-0.81854166666666666664e-2 * t54 * t4028 * t175 * t61 + 0.31905117083333333332e-1 * t24 * t4033 * t163 * t184 + 0.26929416302728704625e-1 * t43 * t1002 * t156 * t459 - 0.88203505675896955784e-1 * t3030 + 0.15953121143785259251e0 * t2987 * t4594 * t24 * sigma[0]); t15425 = t152 * ((-0.50906635802469135803e2 * t2989 * t4008 + 0.30301568930041152263e2 * t421 / t16 / t4522 * t40 * t42 * t44 * t32 + 0.15708333333333333334e2 * t694 * t32) * t66 - t15360 * t188 - 0.3e1 * t10514 * t304 + 0.6e1 * t10551 * t709 - 0.3e1 * t3000 * t723 + 0.6e1 * t6315 * t993 - 0.18e2 * t6318 * t3010 + 0.12e2 * t1888 * t3013 - 0.3e1 * t1885 * t1010 + 0.6e1 * t1888 * t3017 + t15423); t15426 = t18 * t15425; t15435 = t4078 * t3970; t15436 = t3972 * t969; t15437 = t15436 * t725; t15440 = t4082 * t3970; t15441 = t3972 * t3974; t15442 = t15441 * t194; t15446 = t408 * t4046 * t190; t15449 = t3974 * t194; t15450 = t3081 * t15449; t15453 = t3974 * t190; t15454 = t10957 * t15453; t15457 = t969 * t725; t15458 = t3081 * t15457; t15461 = -0.44541428419627776000e2 * t4082 * t15324 - 0.18714978768445516800e3 * t4098 * t15324 - 0.46787446921113792000e1 * t313 * t15329 + 0.15900130042560000000e1 * t1046 * t15332 - 0.79500650212800000000e0 * t322 * t15335 + 0.93574893842227584000e2 * t1027 * t15332 - 0.28072468152668275200e2 * t313 * t15335 + 0.26724857051776665600e2 * t1038 * t15332 - 0.10021821394416249600e2 * t318 * t15335 + 0.50109106972081248000e1 * t318 * t15426 + 0.39750325106400000000e0 * t322 * t15426 - 0.13250108368800000000e0 * t322 * t15329 - 0.16703035657360416000e1 * t318 * t15329 + 0.63600520170240000000e1 * t15435 * t15437 - 0.10600086695040000000e2 * t15440 * t15442 - 0.28072468152668275200e2 * t757 * t15446 + 0.95400780255360000000e1 * t3078 * t15450 + 0.11925097531920000000e2 * t3156 * t15454 - 0.71550585191520000000e1 * t3156 * t15458; t15462 = t725 * t1012; t15463 = t3073 * t15462; t15466 = t306 * t3035; t15467 = t3073 * t15466; t15470 = t1238 * t15449; t15473 = t4495 * t15453; t15476 = t1238 * t15457; t15479 = t408 * t15462; t15482 = t408 * t15466; t15489 = t4458 * M_PI; t15490 = t15489 * t3970; t15493 = t4098 * t3970; t15495 = 0.1e1 / t967 / t406; t15497 = t15495 * t3974 * t190; t15508 = t1231 * t4088; t15511 = t10981 * t4088; t15520 = 0.11925097531920000000e1 * t3156 * t15463 + 0.11925097531920000000e1 * t3156 * t15467 - 0.71550585191520000000e1 * t769 * t15470 - 0.95400780255360000000e1 * t778 * t15473 + 0.71550585191520000000e1 * t778 * t15476 - 0.23850195063840000000e1 * t778 * t15479 - 0.23850195063840000000e1 * t778 * t15482 + 0.84217404458004825600e3 * t3100 * t15450 + 0.70181170381670688000e3 * t3072 * t15454 - 0.13100485137911861760e4 * t15490 * t15442 - 0.11228987261067310080e4 * t15493 * t15497 + 0.13362428525888332800e3 * t15440 * t15437 - 0.12720104034048000000e2 * t15435 * t15497 - 0.26724857051776665600e3 * t15440 * t15497 - 0.26724857051776665600e3 * t15493 * t15442 + 0.10021821394416249600e2 * t769 * t15508 - 0.13362428525888332800e2 * t3078 * t15511 + 0.28072468152668275200e2 * t757 * t15508 - 0.46787446921113792000e2 * t3072 * t15511 + 0.79500650212800000000e0 * t778 * t15508; t15525 = t153 * t4046 * t194; t15562 = -0.79500650212800000000e0 * t3156 * t15511 - 0.11925097531920000000e1 * t769 * t15525 - 0.79500650212800000000e0 * t778 * t15446 - 0.20043642788832499200e2 * t757 * t15525 - 0.10021821394416249600e2 * t769 * t15446 - 0.70181170381670688000e2 * t749 * t15525 - 0.42108702229002412800e3 * t3072 * t15458 + 0.70181170381670688000e2 * t3072 * t15463 + 0.70181170381670688000e2 * t3072 * t15467 - 0.42108702229002412800e3 * t749 * t15470 - 0.33686961783201930240e3 * t757 * t15473 + 0.25265221337401447680e3 * t757 * t15476 - 0.84217404458004825600e2 * t757 * t15479 - 0.84217404458004825600e2 * t757 * t15482 + 0.20043642788832499200e3 * t3072 * t15450 + 0.20043642788832499200e3 * t3078 * t15454 - 0.12026185673299499520e3 * t3078 * t15458 + 0.20043642788832499200e2 * t3078 * t15463 + 0.20043642788832499200e2 * t3078 * t15467; t15573 = t4088 * t190; t15574 = t3081 * t15573; t15577 = t1238 * t15573; t15580 = t4088 * t194; t15581 = t408 * t15580; t15584 = t3073 * t15580; t15609 = -0.12026185673299499520e3 * t757 * t15470 - 0.12026185673299499520e3 * t769 * t15473 + 0.90196392549746246400e2 * t769 * t15476 - 0.30065464183248748800e2 * t769 * t15479 - 0.30065464183248748800e2 * t769 * t15482 - 0.28072468152668275200e3 * t3072 * t15574 + 0.71550585191520000000e1 * t778 * t15577 + 0.71550585191520000000e1 * t769 * t15581 - 0.47700390127680000000e1 * t3078 * t15584 - 0.47700390127680000000e1 * t3156 * t15574 + 0.90196392549746246400e2 * t769 * t15577 - 0.10021821394416249600e3 * t3072 * t15584 - 0.80174571155329996800e2 * t3078 * t15574 + 0.12026185673299499520e3 * t757 * t15581 + 0.42108702229002412800e3 * t749 * t15581 + 0.25265221337401447680e3 * t757 * t15577 - 0.42108702229002412800e3 * t3100 * t15584 + 0.14036234076334137600e2 * t313 * t15426 + 0.56144936305336550400e3 * t15493 * t15437 - 0.21200173390080000000e1 * t4078 * t15324; t15616 = 0.30000000000000000000e1 * t8 * t4065; t15622 = t4779 * t4064; t15626 = 0.60110514000000000000e0 * t283 * t2124 * t15300 + 0.60110514000000000000e0 * t670 * t3997 + 0.60110514000000000000e0 * t283 * t683 * t15306 + 0.60110514000000000000e0 * t283 * t683 * t15276 - 0.26715784000000000000e0 * t15313 * t3976 - t15318 + 0.26715784000000000000e0 * t3969 * t15320 * t3975 + 0.25000000000000000000e0 * t145 * t201 * (t15461 + t15520 + t15562 + t15609) + t15616 - 0.90165771000000000000e0 * t474 * t475 * t4117 + 0.25000000000000000000e0 * t142 * t4118 - 0.60000000000000000000e1 * t538 * t15622 * t210; t15638 = 0.20036838000000000000e0 * t667 * t4049; t15645 = 0.80147352000000000000e0 * t2973 * t3981; t15650 = 0.12022102800000000000e1 * t667 * t3994; t15660 = 0.45000000000000000000e1 * t538 * t3228 * t783 + 0.15000000000000000000e1 * t142 * t4065 - 0.15000000000000000000e1 * t1473 * t4068 - 0.54099462600000000000e1 * t474 * t4654 * t4064 - t15638 + 0.33394730000000000000e-1 * t283 * t146 * t4048 + 0.40073676000000000000e0 * t3043 * t3981 + t15645 - 0.26715784000000000000e0 * t963 * t2978 * t3980 - t15650 + 0.20036838000000000000e0 * t283 * t146 * t3993 - 0.10018419000000000000e0 * t670 * t4049 - 0.10018419000000000000e0 * t283 * t18 * t15425 * t131; t15664 = t480 * t4117; t15675 = 0.50000000000000000000e0 * t8 * t4118; t15698 = -0.60110514000000000000e0 * t670 * t3994 - 0.50000000000000000000e0 * t538 * t15664 * t210 - 0.60110514000000000000e0 * t2075 * t1080 * t3069 + 0.18033154200000000000e1 * t2075 * t10294 * t3232 + t15675 - 0.60110514000000000000e0 * t10226 * t4123 * t740 + 0.60110514000000000000e0 * t10226 * t10258 * t3191 + 0.80147352000000000000e0 * t1059 * t10254 * t3195 + 0.20036838000000000000e0 * t1059 * t10258 * t3200 - 0.12022102800000000000e1 * t2066 * t2067 * t3191 - 0.60110514000000000000e0 * t2075 * t2067 * t10283 * t190 - 0.20036838000000000000e1 * t963 * t10372 * t15288; t15714 = 0.12022102800000000000e1 * t667 * t4057; t15719 = 0.60110514000000000000e0 * t667 * t4061; t15729 = t145 * t4078; t15733 = t3970 * t15495; t15737 = 0.12022102800000000000e1 * t963 * t3186 * t15292 - 0.40073676000000000000e0 * t963 * t3186 * t15300 - 0.20036838000000000000e0 * t3043 * t3985 - 0.20036838000000000000e0 * t963 * t3180 * t15306 - 0.10018419000000000000e0 * t283 * t2120 * t4052 - t15714 + 0.20036838000000000000e0 * t283 * t2120 * t4056 + t15719 - 0.10018419000000000000e0 * t283 * t2120 * t4060 - 0.80147352000000000000e0 * t3969 * t3973 * t15292 + 0.26715784000000000000e0 * t3969 * t3973 * t15300 + 0.10686313600000000000e1 * t15729 * t3973 * t15233 + 0.16029470400000000000e1 * t3969 * t15733 * t15288; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[0] = t15173 + t15217 + t15255 + t15296 + t15626 + t15660 + t15698 + t15737; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[1] = 0.0e0; t15740 = M_PI * t73; t15741 = t15740 * t224; t15742 = t1517 * t15741; t15743 = t792 * t965; t15744 = t11469 * t725; t15777 = t480 * t4202; t15781 = -0.53431568000000000000e0 * t15742 * t15743 * t15744 + 0.30000000000000000000e1 * t538 * t2175 * t10735 - 0.10000000000000000000e1 * t538 * t3275 * t783 + 0.40073676000000000000e0 * t2075 * t4180 * t810 - 0.40073676000000000000e0 * t2075 * t2067 * t3349 - 0.40073676000000000000e0 * t2075 * t1080 * t3276 + 0.60110514000000000000e0 * t2075 * t10294 * t3363 + 0.60110514000000000000e0 * t2075 * t1060 * t3229 + 0.40073676000000000000e0 * t2066 * t4180 * t806 - 0.10000000000000000000e1 * t1473 * t4169 - 0.10000000000000000000e1 * t538 * t11436 * t325 - 0.50000000000000000000e0 * t538 * t15777 * t210; t15785 = t1090 * t325; t15790 = 0.13357892000000000000e0 * t2973 * t4149; t15795 = 0.40073676000000000000e0 * t667 * t4152; t15800 = 0.20036838000000000000e0 * t667 * t4145; t15803 = 0.53431568000000000000e0 * t8 * t4121 * t4124; t15809 = 0.40073676000000000000e0 * t667 * t4141; t15819 = 0.13357892000000000000e0 * t3325 * t4137; t15820 = 0.15000000000000000000e1 * t538 * t2175 * t10350 + 0.36066308400000000000e1 * t474 * t1195 * t15785 + t15790 - 0.44526306666666666667e-1 * t963 * t10321 * t4148 - t15795 + 0.66789460000000000000e-1 * t283 * t2116 * t4148 + t15800 - t15803 + 0.17810522666666666667e0 * t4122 * t353 * t10981 * t969 - t15809 + 0.22263153333333333333e-1 * t1059 * t1060 * t3328 * t1013 - 0.44526306666666666667e-1 * t1059 * t1060 * t3328 * t975 - t15819; t15823 = 0.26715784000000000000e0 * t3325 * t4133; t15832 = t325 * t190; t15844 = 0.20036838000000000000e0 * t667 * t4156; t15860 = t15823 + 0.13357892000000000000e0 * t3318 * t4133 - 0.66789460000000000000e-1 * t3318 * t4137 - 0.66789460000000000000e-1 * t1059 * t1060 * t1061 * t3036 + 0.80147352000000000000e0 * t2075 * t2067 * t809 * t15832 + 0.12022102800000000000e1 * t2075 * t1080 * t3253 + 0.80147352000000000000e0 * t2066 * t1080 * t3272 + t15844 - 0.33394730000000000000e-1 * t283 * t2120 * t4155 + 0.10018419000000000000e0 * t670 * t4156 + 0.10018419000000000000e0 * t283 * t674 * t10671 * t364 + 0.10018419000000000000e0 * t283 * t674 * t3199 * t821 + 0.20036838000000000000e0 * t670 * t4163; t15867 = t3057 * t821; t15886 = 0.10000000000000000000e1 * t1478 * t4172; t15903 = 0.20036838000000000000e0 * t283 * t674 * t2105 * t1090 - 0.20036838000000000000e0 * t670 * t4152 - 0.20036838000000000000e0 * t283 * t683 * t15867 + 0.10018419000000000000e0 * t670 * t4145 + 0.10018419000000000000e0 * t283 * t791 * t797 * t3172 + 0.66789460000000000000e-1 * t3043 * t4149 + 0.66789460000000000000e-1 * t963 * t3180 * t15867 - 0.26715784000000000000e0 * t142 * t4121 * t4124 - t15886 - 0.26715784000000000000e0 * t3258 * t12736 * t307 * t1948 - 0.26715784000000000000e0 * t3258 * t11329 * t3289 * t15832 - 0.40073676000000000000e0 * t3380 * t11329 * t307 * t2284 + 0.20036838000000000000e0 * t283 * t674 * t731 * t3314; t15906 = t364 * t1022; t15917 = t3080 * t969 * t190; t15921 = t4909 * t15741; t15922 = t970 * t194; t15926 = t797 * t965; t15936 = 0.26715784000000000000e0 * t11133 * t4129; t15956 = -0.54099462600000000000e1 * t474 * t4654 * t15906 + 0.30000000000000000000e1 * t538 * t11114 * t1948 - 0.90165771000000000000e0 * t474 * t475 * t4202 + 0.10686313600000000000e1 * t15742 * t15743 * t15917 + 0.10686313600000000000e1 * t15921 * t15743 * t15922 + 0.26715784000000000000e0 * t15742 * t15926 * t970 * t210 - 0.44526306666666666667e-1 * t3258 * t3259 * t402 * t4127 + t15936 + 0.66789460000000000000e-1 * t3258 * t3259 * t153 * t1012 * t210 + 0.13357892000000000000e0 * t3258 * t353 * t3147 - 0.40073676000000000000e0 * t3380 * t353 * t3090 - 0.13357892000000000000e0 * t3258 * t3259 * t408 * t969 * t210 - 0.40073676000000000000e0 * t3258 * t353 * t3093; t15990 = 0.30000000000000000000e1 * t1478 * t4166; t15993 = 0.40073676000000000000e0 * t2066 * t1060 * t3065 + 0.15000000000000000000e1 * t1473 * t4166 - 0.50000000000000000000e0 * t538 * t2220 * t1053 - 0.20036838000000000000e0 * t670 * t4141 - 0.50000000000000000000e0 * t538 * t809 * t3172 - 0.20036838000000000000e0 * t2066 * t1060 * t3176 + 0.15000000000000000000e1 * t538 * t7076 * t1022 - 0.40073676000000000000e0 * t2075 * t1060 * t3062 - 0.40073676000000000000e0 * t2075 * t2067 * t11339 * t190 - 0.40073676000000000000e0 * t2066 * t1080 * t3333 - 0.40073676000000000000e0 * t2075 * t1080 * t3268 + t15990 - 0.50000000000000000000e0 * t1473 * t4172; t16031 = 0.50000000000000000000e0 * t8 * t4203; t16033 = 0.40073676000000000000e0 * t667 * t4163; t16034 = -0.40073676000000000000e0 * t2075 * t3294 * t1074 - 0.40073676000000000000e0 * t2075 * t1080 * t3386 - 0.40073676000000000000e0 * t6667 * t4159 - 0.20036838000000000000e0 * t2075 * t10273 * t3363 - 0.20036838000000000000e0 * t2075 * t4184 * t810 - 0.20036838000000000000e0 * t2066 * t4184 * t806 + 0.26715784000000000000e0 * t3258 * t353 * t3096 + 0.20036838000000000000e0 * t3380 * t353 * t3143 + 0.13357892000000000000e0 * t11109 * t4129 + 0.13357892000000000000e0 * t3258 * t3259 * t153 * t725 * t325 + 0.13357892000000000000e0 * t3258 * t3259 * t153 * t306 * t783 + t16031 + t16033; t16054 = t351 * t2977 * t970; t16061 = t3280 * t407 * t1012 * t190; t16065 = t3280 * t975 * t194; t16069 = t3280 * t970 * t190; t16073 = t3280 * t3289 * t725; t16077 = t3280 * t1013 * t194; t16094 = t4176 * t15917; t16097 = t4176 * t15744; t16100 = t4176 * t15922; t16105 = -0.29694285613085184000e2 * t4188 * t16054 - 0.12476652512297011200e3 * t4175 * t16054 - 0.13362428525888332800e2 * t1084 * t16061 + 0.31800260085120000000e1 * t1084 * t16065 + 0.23850195063840000000e1 * t1087 * t16069 - 0.15900130042560000000e1 * t1087 * t16073 - 0.15900130042560000000e1 * t1084 * t16077 - 0.79500650212800000000e0 * t1087 * t16061 - 0.33406071314720832000e2 * t1079 * t16077 - 0.46787446921113792000e2 * t1079 * t16061 + 0.66812142629441664000e2 * t1079 * t16065 + 0.40087285577664998400e2 * t1084 * t16069 - 0.26724857051776665600e2 * t1084 * t16073 + 0.28072468152668275200e3 * t3279 * t16065 - 0.74859915073782067200e3 * t4175 * t16094 + 0.37429957536891033600e3 * t4175 * t16097 - 0.10600086695040000000e2 * t4188 * t16100 - 0.84800693560320000000e1 * t4195 * t16094; t16114 = t15489 * t225; t16118 = t352 * t153 * t3035; t16122 = t352 * t402 * t1012; t16126 = t352 * t1231 * t969; t16149 = 0.42400346780160000000e1 * t4195 * t16097 - 0.26724857051776665600e3 * t4175 * t16100 - 0.17816571367851110400e3 * t4188 * t16094 + 0.89082856839255552000e2 * t4188 * t16097 - 0.13100485137911861760e4 * t16114 * t16100 + 0.23393723460556896000e2 * t1079 * t16118 - 0.22270714209813888000e1 * t1084 * t16122 + 0.26500216737600000000e0 * t1087 * t16126 + 0.66812142629441664000e1 * t1084 * t16118 + 0.39750325106400000000e0 * t1087 * t16118 - 0.13250108368800000000e0 * t1087 * t16122 - 0.77979078201856320000e1 * t1079 * t16122 + 0.44541428419627776000e1 * t1084 * t16126 + 0.15595815640371264000e2 * t1079 * t16126 + 0.14036234076334137600e3 * t1079 * t16069 - 0.93574893842227584000e2 * t1079 * t16073 - 0.14036234076334137600e3 * t3279 * t16077 - 0.14133448926720000000e1 * t4195 * t16054; t16154 = t364 * t1053; t16159 = 0.20000000000000000000e1 * t1478 * t4169; t16169 = 0.80147352000000000000e0 * t6220 * t4159; t16170 = -0.66789460000000000000e-1 * t283 * t2120 * t4162 - 0.13357892000000000000e0 * t1059 * t4123 * t810 - 0.26715784000000000000e0 * t1059 * t10230 * t3363 + 0.13357892000000000000e0 * t1059 * t10258 * t3349 - 0.20036838000000000000e0 * t10226 * t4123 * t806 - 0.20036838000000000000e0 * t2075 * t1060 * t3069 + 0.25000000000000000000e0 * t145 * t201 * (t16105 + t16149) + 0.18033154200000000000e1 * t474 * t1195 * t16154 - t16159 + 0.25000000000000000000e0 * t142 * t4203 - 0.60000000000000000000e1 * t538 * t7017 * t10265 + 0.13357892000000000000e0 * t2075 * t3285 * t1074 - t16169; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[2] = t15781 + t15820 + t15860 + t15903 + t15956 + t15993 + t16034 + t16170; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[3] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[4] = 0.0e0; t16176 = t1176 * t325; t16181 = 0.10000000000000000000e1 * t1478 * t4256; t16183 = 0.50000000000000000000e0 * t8 * t4285; t16203 = 0.30000000000000000000e1 * t538 * t2175 * t11096 + 0.18033154200000000000e1 * t474 * t1195 * t16176 - t16181 + t16183 - 0.10000000000000000000e1 * t538 * t809 * t3314 + 0.15000000000000000000e1 * t1473 * t4246 - 0.40073676000000000000e0 * t6667 * t4235 - 0.40073676000000000000e0 * t2075 * t1060 * t3268 + 0.15000000000000000000e1 * t538 * t11599 * t1948 + 0.15000000000000000000e1 * t538 * t3489 * t783 - 0.20036838000000000000e0 * t10226 * t11716 * t740; t16207 = M_PI * t1094; t16208 = t16207 * t1097; t16209 = t4909 * t16208; t16210 = t3424 * t17; t16235 = 0.20036838000000000000e0 * t667 * t4227; t16246 = -0.13357892000000000000e0 * t1059 * t11716 * t744 + 0.10686313600000000000e1 * t16209 * t16210 * t3281 + 0.10018419000000000000e0 * t670 * t4253 + 0.10018419000000000000e0 * t283 * t674 * t2105 * t1176 + 0.10018419000000000000e0 * t283 * t674 * t731 * t3483 - 0.20036838000000000000e0 * t670 * t4243 - 0.20036838000000000000e0 * t283 * t674 * t6823 * t1151 + 0.20036838000000000000e0 * t283 * t791 * t797 * t3314 + t16235 - 0.20036838000000000000e0 * t2066 * t1080 * t3402 - 0.20036838000000000000e0 * t2075 * t2067 * t11701 * t190 - 0.20036838000000000000e0 * t2075 * t1080 * t3406; t16248 = t1517 * t16208; t16252 = t480 * t4284; t16263 = 0.13357892000000000000e0 * t3325 * t4223; t16268 = 0.26715784000000000000e0 * t3325 * t4216; t16282 = 0.53431568000000000000e0 * t16248 * t16210 * t3290 - 0.50000000000000000000e0 * t538 * t16252 * t210 - 0.90165771000000000000e0 * t474 * t475 * t4284 - 0.44526306666666666667e-1 * t1059 * t4215 * t3329 - t16263 + 0.22263153333333333333e-1 * t1059 * t4222 * t3329 + t16268 - 0.66789460000000000000e-1 * t1059 * t4222 * t3321 - 0.66789460000000000000e-1 * t3318 * t4223 + 0.13357892000000000000e0 * t3318 * t4216 + 0.13357892000000000000e0 * t1059 * t4215 * t3321 + 0.80147352000000000000e0 * t2066 * t1060 * t3272; t16290 = 0.20036838000000000000e0 * t667 * t4253; t16295 = 0.40073676000000000000e0 * t667 * t4243; t16297 = 0.40073676000000000000e0 * t667 * t4239; t16299 = 0.20000000000000000000e1 * t1478 * t4249; t16314 = 0.12022102800000000000e1 * t2075 * t1060 * t3253 - 0.33394730000000000000e-1 * t283 * t2120 * t4252 + t16290 + 0.66789460000000000000e-1 * t283 * t2120 * t4242 - t16295 + t16297 - t16299 + 0.25000000000000000000e0 * t142 * t4285 - 0.60000000000000000000e1 * t538 * t11694 * t1948 + 0.30000000000000000000e1 * t538 * t2175 * t11400 - 0.50000000000000000000e0 * t538 * t11613 * t325 - 0.20036838000000000000e0 * t2075 * t4222 * t744; t16324 = 0.13357892000000000000e0 * t2973 * t4212; t16326 = 0.40073676000000000000e0 * t667 * t4219; t16329 = 0.53431568000000000000e0 * t8 * t4206 * t4208; t16333 = t364 * t1090; t16338 = 0.30000000000000000000e1 * t1478 * t4246; t16340 = 0.80147352000000000000e0 * t6220 * t4235; t16347 = -0.40073676000000000000e0 * t2075 * t1060 * t3386 + 0.89052613333333333333e-1 * t4207 * t1100 * t3285 + t16324 - t16326 - t16329 - 0.50000000000000000000e0 * t538 * t3405 * t783 + 0.36066308400000000000e1 * t474 * t1195 * t16333 + t16338 - t16340 + 0.40073676000000000000e0 * t2066 * t4215 * t740 + 0.40073676000000000000e0 * t2075 * t4215 * t744; t16351 = t3432 * t17; t16373 = t1104 * t200; t16384 = 0.26715784000000000000e0 * t11133 * t4232; t16390 = -0.20036838000000000000e0 * t2066 * t4222 * t740 + 0.26715784000000000000e0 * t16248 * t16351 * t307 * t210 + 0.13357892000000000000e0 * t3258 * t1143 * t759 + 0.13357892000000000000e0 * t11109 * t4232 + 0.13357892000000000000e0 * t3258 * t3259 * t821 * t17 * t307 + 0.13357892000000000000e0 * t3258 * t3259 * t4230 * t726 - 0.40073676000000000000e0 * t3380 * t1105 * t751 - 0.13357892000000000000e0 * t3258 * t16373 * t3261 - 0.26715784000000000000e0 * t3258 * t1105 * t759 + 0.20036838000000000000e0 * t3380 * t1143 * t751 + t16384 - 0.44526306666666666667e-1 * t3258 * t3259 * t364 * t57 * t307; t16392 = t1142 * t200; t16423 = t1142 * t17; t16424 = t16423 * t3290; t16427 = t1104 * t3294; t16430 = t1142 * t3294; t16435 = t1104 * t3285; t16440 = t1142 * t3285; t16455 = t1104 * t17; t16456 = t16455 * t3290; t16459 = t16423 * t3281; t16468 = -0.79500650212800000000e0 * t1087 * t16424 - 0.13362428525888332800e2 * t1084 * t16427 + 0.66812142629441664000e1 * t1084 * t16430 + 0.23393723460556896000e2 * t1079 * t16430 + 0.26500216737600000000e0 * t1087 * t16435 + 0.44541428419627776000e1 * t1084 * t16435 - 0.22270714209813888000e1 * t1084 * t16440 + 0.15595815640371264000e2 * t1079 * t16435 - 0.77979078201856320000e1 * t1079 * t16440 - 0.13250108368800000000e0 * t1087 * t16440 - 0.46787446921113792000e2 * t1079 * t16427 + 0.39750325106400000000e0 * t1087 * t16430 - 0.79500650212800000000e0 * t1087 * t16427 + 0.15900130042560000000e1 * t1087 * t16456 - 0.15900130042560000000e1 * t1084 * t16459 + 0.26724857051776665600e2 * t1084 * t16456 - 0.33406071314720832000e2 * t1079 * t16459 - 0.13362428525888332800e2 * t1084 * t16424; t16469 = t16455 * t3281; t16482 = t4260 * t3281; t16485 = t4260 * t3290; t16494 = t15489 * t3459; t16497 = t4260 * t726; t16505 = t1098 * t57 * t307; t16512 = 0.31800260085120000000e1 * t1084 * t16469 + 0.93574893842227584000e2 * t1079 * t16456 - 0.14036234076334137600e3 * t3279 * t16459 + 0.28072468152668275200e3 * t3279 * t16469 + 0.66812142629441664000e2 * t1079 * t16469 - 0.46787446921113792000e2 * t1079 * t16424 - 0.10600086695040000000e2 * t4270 * t16482 - 0.42400346780160000000e1 * t4277 * t16485 - 0.37429957536891033600e3 * t4259 * t16485 - 0.26724857051776665600e3 * t4259 * t16482 - 0.89082856839255552000e2 * t4270 * t16485 - 0.13100485137911861760e4 * t16494 * t16482 + 0.18714978768445516800e3 * t4259 * t16497 + 0.44541428419627776000e2 * t4270 * t16497 + 0.21200173390080000000e1 * t4277 * t16497 - 0.70667244633600000000e0 * t4277 * t16505 - 0.62383262561485056000e2 * t4259 * t16505 - 0.14847142806542592000e2 * t4270 * t16505; t16517 = t1151 * t325; t16521 = 0.66789460000000000000e-1 * t3258 * t16392 * t3261 - 0.10000000000000000000e1 * t1473 * t4249 + 0.10018419000000000000e0 * t283 * t791 * t3412 * t783 + 0.20036838000000000000e0 * t670 * t4239 + 0.40073676000000000000e0 * t2075 * t2067 * t11815 * t190 + 0.60110514000000000000e0 * t2075 * t1080 * t3490 - 0.40073676000000000000e0 * t2075 * t1080 * t3448 + 0.40073676000000000000e0 * t2066 * t1080 * t3409 - 0.40073676000000000000e0 * t2066 * t1060 * t3333 - 0.40073676000000000000e0 * t2075 * t1060 * t3276 + 0.25000000000000000000e0 * t145 * t201 * (t16468 + t16512) - 0.54099462600000000000e1 * t474 * t4654 * t16517; t16522 = t352 * t2179; t16526 = t352 * t809; t16544 = t3432 * t783; t16557 = -0.40073676000000000000e0 * t3380 * t16522 * t751 - 0.26715784000000000000e0 * t3258 * t16526 * t3261 - 0.26715784000000000000e0 * t3258 * t16522 * t759 - 0.10000000000000000000e1 * t538 * t2220 * t1090 - 0.26715784000000000000e0 * t142 * t4206 * t4208 - 0.26715784000000000000e0 * t4207 * t1100 * t3294 + 0.66789460000000000000e-1 * t3043 * t4212 + 0.66789460000000000000e-1 * t963 * t3423 * t16544 - 0.20036838000000000000e0 * t670 * t4219 - 0.20036838000000000000e0 * t283 * t865 * t16544 + 0.10018419000000000000e0 * t670 * t4227 - 0.50000000000000000000e0 * t1473 * t4256; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[5] = t16203 + t16246 + t16282 + t16314 + t16347 + t16390 + t16521 + t16557; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[6] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[7] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[8] = 0.0e0; t16561 = 0.30000000000000000000e1 * t1478 * t4386; t16575 = 0.53431568000000000000e0 * t15316 * t4294; t16580 = 0.50000000000000000000e0 * t8 * t4433; t16581 = t364 * t1176; t16592 = t3432 * t821; t16596 = t4293 * t194; t16600 = t4292 * t200; t16601 = t16600 * t210; t16607 = -t16561 + 0.12022102800000000000e1 * t2066 * t1060 * t3409 + 0.12022102800000000000e1 * t2066 * t4215 * t806 + 0.12022102800000000000e1 * t2075 * t4215 * t810 - 0.60110514000000000000e0 * t2075 * t4222 * t810 - t16575 - 0.60110514000000000000e0 * t2066 * t4222 * t806 + t16580 + 0.54099462600000000000e1 * t474 * t1195 * t16581 + 0.45000000000000000000e1 * t538 * t2175 * t11655 - 0.20036838000000000000e0 * t3043 * t4303 + 0.20036838000000000000e0 * t3043 * t4307 + 0.20036838000000000000e0 * t963 * t3423 * t16592 + 0.12022102800000000000e1 * t673 * t2929 * t16596 + 0.60110514000000000000e0 * t283 * t2929 * t16601 + 0.60110514000000000000e0 * t670 * t4315; t16613 = t4082 * t4288; t16614 = t4290 * t4292; t16615 = t16614 * t194; t16618 = t4098 * t4288; t16622 = t225 * t4364 * t194; t16629 = t15489 * t4288; t16632 = t4292 * t194; t16633 = t3872 * t16632; t16636 = t4406 * t194; t16637 = t3459 * t16636; t16640 = t1714 * t16632; t16643 = t580 * t16636; t16662 = -0.10600086695040000000e2 * t16613 * t16615 - 0.26724857051776665600e3 * t16618 * t16615 - 0.11925097531920000000e1 * t769 * t16622 - 0.20043642788832499200e2 * t757 * t16622 - 0.70181170381670688000e2 * t749 * t16622 - 0.13100485137911861760e4 * t16629 * t16615 + 0.95400780255360000000e1 * t3078 * t16633 - 0.47700390127680000000e1 * t3078 * t16637 - 0.71550585191520000000e1 * t769 * t16640 + 0.71550585191520000000e1 * t769 * t16643 + 0.20043642788832499200e3 * t3072 * t16633 - 0.10021821394416249600e3 * t3072 * t16637 - 0.12026185673299499520e3 * t757 * t16640 + 0.12026185673299499520e3 * t757 * t16643 + 0.84217404458004825600e3 * t3100 * t16633 - 0.42108702229002412800e3 * t3100 * t16637 - 0.42108702229002412800e3 * t749 * t16640 + 0.42108702229002412800e3 * t749 * t16643; t16670 = 0.30000000000000000000e1 * t8 * t4383; t16672 = 0.12022102800000000000e1 * t667 * t4375; t16674 = 0.60110514000000000000e0 * t667 * t4371; t16676 = 0.12022102800000000000e1 * t667 * t4315; t16678 = 0.12022102800000000000e1 * t667 * t4318; t16680 = 0.40073676000000000000e0 * t2973 * t4307; t16682 = 0.40073676000000000000e0 * t2973 * t4303; t16698 = -0.60110514000000000000e0 * t670 * t4318 - 0.60110514000000000000e0 * t283 * t865 * t16592 + 0.25000000000000000000e0 * t145 * t201 * t16662 - 0.15000000000000000000e1 * t538 * t809 * t3483 + t16670 - t16672 + t16674 + t16676 - t16678 + t16680 - t16682 - 0.12022102800000000000e1 * t3179 * t3722 * t16596 - 0.40073676000000000000e0 * t963 * t3722 * t16601 - 0.12022102800000000000e1 * t2075 * t1060 * t3448 - 0.60110514000000000000e0 * t2075 * t1060 * t3406 + 0.45000000000000000000e1 * t538 * t3489 * t821; t16703 = 0.60110514000000000000e0 * t667 * t4379; t16712 = t480 * t4432; t16740 = t4779 * t4382; t16747 = -0.15000000000000000000e1 * t1473 * t4386 + t16703 - 0.54099462600000000000e1 * t474 * t4654 * t4382 - 0.26715784000000000000e0 * t15313 * t4294 - 0.15000000000000000000e1 * t538 * t2220 * t1176 - 0.50000000000000000000e0 * t538 * t16712 * t210 - 0.60110514000000000000e0 * t10226 * t11716 * t806 + 0.20036838000000000000e0 * t1059 * t13087 * t3413 - 0.60110514000000000000e0 * t2075 * t2514 * t3413 - 0.40073676000000000000e0 * t1059 * t11716 * t810 - 0.12022102800000000000e1 * t2066 * t2514 * t3444 - 0.60110514000000000000e0 * t2066 * t1060 * t3402 + 0.18033154200000000000e1 * t2075 * t1060 * t3490 + 0.60110514000000000000e0 * t10226 * t13087 * t3444 - 0.60000000000000000000e1 * t538 * t16740 * t210 + 0.26715784000000000000e0 * t3969 * t4291 * t16601; t16753 = t4364 * t131; t16758 = t4364 * t200; t16789 = 0.80147352000000000000e0 * t2973 * t4299; t16791 = 0.12022102800000000000e1 * t667 * t4312; t16793 = 0.20036838000000000000e0 * t667 * t4367; t16794 = 0.10686313600000000000e1 * t15729 * t4291 * t16596 + 0.15000000000000000000e1 * t142 * t4383 + 0.20036838000000000000e0 * t673 * t791 * t16753 * t194 + 0.10018419000000000000e0 * t283 * t791 * t16758 * t210 + 0.30055257000000000000e0 * t670 * t4371 + 0.30055257000000000000e0 * t283 * t791 * t3412 * t821 - 0.60110514000000000000e0 * t670 * t4375 + 0.30055257000000000000e0 * t670 * t4379 + 0.30055257000000000000e0 * t283 * t791 * t797 * t3483 - 0.90165771000000000000e0 * t474 * t475 * t4432 + 0.25000000000000000000e0 * t142 * t4433 - 0.10018419000000000000e0 * t670 * t4367 - 0.60110514000000000000e0 * t670 * t4312 + 0.40073676000000000000e0 * t3043 * t4299 + t16789 - t16791 - t16793; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[9] = t16607 + t16698 + t16747 + t16794; t16813 = t153 * t4046 * t266; t16820 = t15441 * t266; t16825 = t3974 * t266; t16826 = t3081 * t16825; t16829 = t4088 * t266; t16830 = t3073 * t16829; t16833 = t1238 * t16825; t16836 = t408 * t16829; t16857 = -0.11925097531920000000e1 * t769 * t16813 - 0.20043642788832499200e2 * t757 * t16813 - 0.70181170381670688000e2 * t749 * t16813 - 0.10600086695040000000e2 * t15440 * t16820 - 0.26724857051776665600e3 * t15493 * t16820 + 0.95400780255360000000e1 * t3078 * t16826 - 0.47700390127680000000e1 * t3078 * t16830 - 0.71550585191520000000e1 * t769 * t16833 + 0.71550585191520000000e1 * t769 * t16836 - 0.13100485137911861760e4 * t15490 * t16820 + 0.84217404458004825600e3 * t3100 * t16826 - 0.42108702229002412800e3 * t3100 * t16830 - 0.42108702229002412800e3 * t749 * t16833 + 0.42108702229002412800e3 * t749 * t16836 + 0.20043642788832499200e3 * t3072 * t16826 - 0.10021821394416249600e3 * t3072 * t16830 - 0.12026185673299499520e3 * t757 * t16833 + 0.12026185673299499520e3 * t757 * t16836; t16869 = t3057 * t852; t16873 = t3975 * t266; t16877 = t15299 * t277; t16889 = 0.12022102800000000000e1 * t2075 * t4180 * t841 + 0.15000000000000000000e1 * t216 * t4065 - 0.60110514000000000000e0 * t2075 * t2067 * t3520 - 0.60110514000000000000e0 * t2066 * t4184 * t838 + 0.20036838000000000000e0 * t1059 * t10258 * t3520 - 0.15000000000000000000e1 * t1547 * t4068 + 0.25000000000000000000e0 * t145 * t201 * t16857 + 0.12022102800000000000e1 * t2066 * t4180 * t838 - 0.40073676000000000000e0 * t1059 * t4123 * t841 + 0.20036838000000000000e0 * t3502 * t3989 + 0.20036838000000000000e0 * t963 * t3180 * t16869 + 0.12022102800000000000e1 * t673 * t2124 * t16873 + 0.60110514000000000000e0 * t283 * t2124 * t16877 + 0.60110514000000000000e0 * t825 * t3997 - 0.12022102800000000000e1 * t3179 * t3186 * t16873 - 0.40073676000000000000e0 * t963 * t3186 * t16877; t16919 = -0.20036838000000000000e0 * t3502 * t3985 - 0.60110514000000000000e0 * t825 * t4057 + 0.30055257000000000000e0 * t825 * t4061 + 0.30055257000000000000e0 * t283 * t674 * t731 * t3582 - 0.60110514000000000000e0 * t825 * t4000 - 0.60110514000000000000e0 * t283 * t683 * t16869 + 0.20036838000000000000e0 * t673 * t674 * t15191 * t266 + 0.10018419000000000000e0 * t283 * t674 * t15200 * t277 + 0.30055257000000000000e0 * t825 * t4053 + 0.30055257000000000000e0 * t283 * t674 * t3199 * t852 + t15190 - t15238 + t15249 - t15254 + t15260 - t15262; t16953 = 0.45000000000000000000e1 * t538 * t2150 * t12012 + 0.54099462600000000000e1 * t474 * t1510 * t15269 + 0.45000000000000000000e1 * t538 * t3228 * t852 + 0.10686313600000000000e1 * t15729 * t3973 * t16873 + 0.26715784000000000000e0 * t3969 * t3973 * t16877 - 0.15000000000000000000e1 * t538 * t743 * t3582 - t15318 + 0.25000000000000000000e0 * t216 * t4118 - 0.90165771000000000000e0 * t474 * t527 * t4117 - 0.50000000000000000000e0 * t538 * t15664 * t277 + t15616 - 0.60000000000000000000e1 * t538 * t15622 * t277 - t15638 + t15645 - t15650 + 0.60110514000000000000e0 * t10226 * t10258 * t3516; t16984 = t216 * t3968; t16993 = -0.60110514000000000000e0 * t10226 * t4123 * t838 - 0.12022102800000000000e1 * t2066 * t2067 * t3516 + t15675 - 0.54099462600000000000e1 * t474 * t5110 * t4064 - 0.15000000000000000000e1 * t538 * t2379 * t1053 - 0.60110514000000000000e0 * t2066 * t1080 * t3553 - 0.60110514000000000000e0 * t2075 * t1080 * t3540 - 0.60110514000000000000e0 * t2075 * t4184 * t841 + 0.12022102800000000000e1 * t2066 * t1080 * t3556 - t15714 + t15719 - 0.12022102800000000000e1 * t2075 * t1080 * t3537 + 0.18033154200000000000e1 * t2075 * t1080 * t3509 - 0.26715784000000000000e0 * t16984 * t3976 - 0.10018419000000000000e0 * t825 * t4049 - 0.60110514000000000000e0 * t825 * t3994 + 0.40073676000000000000e0 * t3502 * t3981; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[10] = t16889 + t16919 + t16953 + t16993; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[11] = 0.0e0; t17008 = t3672 * t975 * t262; t17012 = t3280 * t1013 * t266; t17016 = t3672 * t1013 * t262; t17020 = t3280 * t975 * t266; t17031 = t908 * t4180; t17036 = t908 * t4184; t17053 = 0.93574893842227584000e2 * t1079 * t17008 - 0.14036234076334137600e3 * t3279 * t17012 - 0.46787446921113792000e2 * t1079 * t17016 + 0.66812142629441664000e2 * t1079 * t17020 - 0.79500650212800000000e0 * t1087 * t17016 + 0.26724857051776665600e2 * t1084 * t17008 - 0.33406071314720832000e2 * t1079 * t17012 - 0.15900130042560000000e1 * t1084 * t17012 - 0.46787446921113792000e2 * t1079 * t17031 - 0.13250108368800000000e0 * t3691 * t4185 + 0.23393723460556896000e2 * t1079 * t17036 - 0.79500650212800000000e0 * t1087 * t17031 + 0.39750325106400000000e0 * t1087 * t17036 - 0.13362428525888332800e2 * t1084 * t17031 + 0.66812142629441664000e1 * t1084 * t17036 + 0.44541428419627776000e1 * t3682 * t4181 - 0.22270714209813888000e1 * t3682 * t4185 + 0.26500216737600000000e0 * t3691 * t4181; t17066 = t970 * t266; t17067 = t4176 * t17066; t17070 = t4082 * t580; t17071 = t970 * t262; t17072 = t4176 * t17071; t17082 = t907 * t965 * t970; t17094 = t4078 * t580; t17099 = t4098 * t580; t17102 = 0.15595815640371264000e2 * t3669 * t4181 - 0.77979078201856320000e1 * t3669 * t4185 - 0.13362428525888332800e2 * t1084 * t17016 + 0.31800260085120000000e1 * t1084 * t17020 + 0.15900130042560000000e1 * t1087 * t17008 + 0.28072468152668275200e3 * t3279 * t17020 - 0.26724857051776665600e3 * t4175 * t17067 - 0.89082856839255552000e2 * t17070 * t17072 - 0.14847142806542592000e2 * t4082 * t574 * t4177 - 0.70667244633600000000e0 * t4078 * t574 * t4177 + 0.18714978768445516800e3 * t4175 * t17082 + 0.44541428419627776000e2 * t4188 * t17082 + 0.21200173390080000000e1 * t4195 * t17082 - 0.62383262561485056000e2 * t4098 * t574 * t4177 - 0.10600086695040000000e2 * t4188 * t17067 - 0.42400346780160000000e1 * t17094 * t17072 - 0.13100485137911861760e4 * t16114 * t17067 - 0.37429957536891033600e3 * t17099 * t17072; t17125 = -0.50000000000000000000e0 * t538 * t809 * t3582 - 0.54099462600000000000e1 * t474 * t5110 * t15906 + 0.30000000000000000000e1 * t538 * t11114 * t2279 + 0.30000000000000000000e1 * t538 * t2175 * t12386 + 0.25000000000000000000e0 * t145 * t201 * (t17053 + t17102) - 0.50000000000000000000e0 * t1547 * t4172 - 0.90165771000000000000e0 * t474 * t527 * t4202 + 0.40073676000000000000e0 * t2075 * t2514 * t10743 * t262 + 0.60110514000000000000e0 * t2075 * t1060 * t3509 - 0.40073676000000000000e0 * t2075 * t1060 * t3537 + 0.10686313600000000000e1 * t15921 * t15743 * t17066; t17136 = t325 * t262; t17157 = -0.10000000000000000000e1 * t1547 * t4169 - 0.10000000000000000000e1 * t538 * t12851 * t325 - 0.40073676000000000000e0 * t3380 * t11329 * t307 * t325 * t266 - 0.26715784000000000000e0 * t3258 * t12751 * t307 * t17136 - 0.26715784000000000000e0 * t3258 * t12736 * t307 * t2279 + 0.53431568000000000000e0 * t1517 * t15740 * t579 * t15743 * t17071 + 0.26715784000000000000e0 * t15742 * t15926 * t970 * t277 + 0.40073676000000000000e0 * t2066 * t1060 * t3556 + t15790 - t15795 + t15800 - t15803; t17193 = -t15809 - 0.20036838000000000000e0 * t2066 * t1060 * t3553 - 0.20036838000000000000e0 * t2075 * t2514 * t10283 * t262 - 0.20036838000000000000e0 * t2075 * t1060 * t3540 - 0.20036838000000000000e0 * t10226 * t4123 * t919 - 0.13357892000000000000e0 * t1059 * t4123 * t922 + 0.40073676000000000000e0 * t2066 * t4180 * t919 - 0.40073676000000000000e0 * t2075 * t1080 * t3706 - 0.40073676000000000000e0 * t2075 * t1080 * t3652 - 0.40073676000000000000e0 * t2066 * t1080 * t3587 + 0.80147352000000000000e0 * t2066 * t1080 * t3661 + 0.12022102800000000000e1 * t2075 * t1080 * t3658; t17218 = -t15819 + t15823 - 0.44526306666666666667e-1 * t1059 * t3631 * t4132 + 0.13357892000000000000e0 * t3624 * t4133 + 0.13357892000000000000e0 * t1059 * t3627 * t4132 - 0.66789460000000000000e-1 * t3624 * t4137 - 0.66789460000000000000e-1 * t1059 * t3627 * t4136 + 0.22263153333333333333e-1 * t1059 * t3631 * t4136 + 0.25000000000000000000e0 * t216 * t4203 + t15844 + 0.20036838000000000000e0 * t283 * t674 * t731 * t3698 + 0.10018419000000000000e0 * t825 * t4145; t17231 = t3057 * t955; t17251 = 0.10018419000000000000e0 * t283 * t791 * t2561 * t1053 + 0.10018419000000000000e0 * t283 * t791 * t797 * t3582 + 0.66789460000000000000e-1 * t3502 * t4149 + 0.66789460000000000000e-1 * t963 * t3180 * t17231 - 0.20036838000000000000e0 * t825 * t4152 - 0.20036838000000000000e0 * t283 * t683 * t17231 - t15886 + 0.15000000000000000000e1 * t538 * t2175 * t12012 + 0.36066308400000000000e1 * t474 * t1510 * t15785 + 0.15000000000000000000e1 * t1547 * t4166 - 0.40073676000000000000e0 * t2075 * t1080 * t3655; t17285 = -0.40073676000000000000e0 * t7160 * t4159 - 0.20036838000000000000e0 * t2075 * t4184 * t922 - 0.20036838000000000000e0 * t2066 * t4184 * t919 + 0.40073676000000000000e0 * t2075 * t4180 * t922 + 0.15000000000000000000e1 * t538 * t8128 * t1022 + t15936 - 0.50000000000000000000e0 * t538 * t2468 * t1053 - 0.50000000000000000000e0 * t538 * t15777 * t277 + t15990 + 0.18033154200000000000e1 * t474 * t1510 * t16154 + 0.66789460000000000000e-1 * t3258 * t3259 * t153 * t1012 * t277 - 0.26715784000000000000e0 * t3258 * t3594 * t408 * t969 * t262; t17325 = -0.13357892000000000000e0 * t3258 * t3259 * t408 * t969 * t277 + 0.20036838000000000000e0 * t3380 * t353 * t3567 + 0.13357892000000000000e0 * t12551 * t4129 + 0.13357892000000000000e0 * t3258 * t12559 * t4128 + 0.13357892000000000000e0 * t3258 * t3259 * t153 * t306 * t852 - 0.40073676000000000000e0 * t3380 * t353 * t3563 - 0.44526306666666666667e-1 * t12536 * t4129 + 0.13357892000000000000e0 * t3258 * t3594 * t153 * t1012 * t262 + t16031 - 0.10000000000000000000e1 * t538 * t3275 * t852 + 0.66789460000000000000e-1 * t283 * t2543 * t4140 + 0.89052613333333333333e-1 * t145 * t3968 * t101 * t4124; t17352 = 0.10018419000000000000e0 * t825 * t4156 + 0.10018419000000000000e0 * t283 * t674 * t3199 * t955 + 0.20036838000000000000e0 * t825 * t4163 + t16033 - t16159 - 0.60000000000000000000e1 * t538 * t7017 * t12379 - 0.26715784000000000000e0 * t216 * t4121 * t4124 - 0.26715784000000000000e0 * t4122 * t909 * t4123 - 0.20036838000000000000e0 * t825 * t4141 - 0.20036838000000000000e0 * t283 * t791 * t7928 * t1022 - 0.33394730000000000000e-1 * t283 * t2543 * t4144 - t16169; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[12] = t17125 + t17157 + t17193 + t17218 + t17251 + t17285 + t17325 + t17352; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[13] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[14] = 0.0e0; t17392 = 0.15000000000000000000e1 * t538 * t3489 * t852 - 0.40073676000000000000e0 * t2075 * t1080 * t3852 - 0.20036838000000000000e0 * t2066 * t1080 * t3964 - 0.20036838000000000000e0 * t2075 * t1080 * t3858 - 0.40073676000000000000e0 * t2075 * t2514 * t11339 * t262 - 0.40073676000000000000e0 * t2075 * t1060 * t3655 + 0.40073676000000000000e0 * t2066 * t1080 * t3865 + 0.60110514000000000000e0 * t2075 * t1080 * t3849 - 0.40073676000000000000e0 * t2075 * t2514 * t3613 + 0.40073676000000000000e0 * t2075 * t4215 * t841 - 0.20036838000000000000e0 * t2066 * t4222 * t838 - 0.20036838000000000000e0 * t2075 * t13469 * t3642; t17420 = -0.20036838000000000000e0 * t2075 * t4222 * t841 - 0.40073676000000000000e0 * t7160 * t4235 - 0.40073676000000000000e0 * t2075 * t3627 * t1074 - 0.10000000000000000000e1 * t1547 * t4249 - t16181 + t16183 + 0.15000000000000000000e1 * t538 * t11599 * t2279 + 0.30000000000000000000e1 * t538 * t2175 * t12866 - 0.54099462600000000000e1 * t474 * t5110 * t16517 - 0.50000000000000000000e0 * t538 * t13490 * t325 + 0.10018419000000000000e0 * t825 * t4253 + t16235 - 0.13357892000000000000e0 * t3258 * t16373 * t3601; t17440 = t3432 * t852; t17454 = t16455 * t3664; t17457 = t307 * t907; t17458 = t3672 * t17457; t17461 = t16423 * t3664; t17464 = t579 * t1141; t17466 = t17464 * t17 * t3673; t17470 = t1099 * t17 * t3673; t17493 = t3844 * t1080; t17500 = 0.66812142629441664000e2 * t1079 * t17454 - 0.93574893842227584000e2 * t1079 * t17458 - 0.14036234076334137600e3 * t3279 * t17461 - 0.46787446921113792000e2 * t1079 * t17466 + 0.40087285577664998400e2 * t1084 * t17470 - 0.26724857051776665600e2 * t1084 * t17458 - 0.33406071314720832000e2 * t1079 * t17461 - 0.13362428525888332800e2 * t1084 * t17466 + 0.31800260085120000000e1 * t1084 * t17454 + 0.23850195063840000000e1 * t1087 * t17470 - 0.15900130042560000000e1 * t1087 * t17458 + 0.28072468152668275200e3 * t3279 * t17454 + 0.14036234076334137600e3 * t1079 * t17470 - 0.15900130042560000000e1 * t1084 * t17461 - 0.79500650212800000000e0 * t1087 * t17466 + 0.66812142629441664000e1 * t1084 * t17493 + 0.39750325106400000000e0 * t1087 * t17493 + 0.44541428419627776000e1 * t3682 * t4264; t17513 = t4082 * t3872; t17514 = t4260 * t3673; t17517 = t11562 * t17457; t17529 = t4260 * t3664; t17532 = t4078 * t3872; t17539 = t4098 * t3872; t17546 = -0.22270714209813888000e1 * t3682 * t4267 + 0.26500216737600000000e0 * t3691 * t4264 + 0.15595815640371264000e2 * t3669 * t4264 - 0.77979078201856320000e1 * t3669 * t4267 + 0.23393723460556896000e2 * t1079 * t17493 - 0.13250108368800000000e0 * t3691 * t4267 - 0.17816571367851110400e3 * t17513 * t17514 + 0.89082856839255552000e2 * t4270 * t17517 - 0.14133448926720000000e1 * t4078 * t13289 * t4261 - 0.12476652512297011200e3 * t4098 * t13289 * t4261 - 0.29694285613085184000e2 * t4082 * t13289 * t4261 - 0.10600086695040000000e2 * t4270 * t17529 - 0.84800693560320000000e1 * t17532 * t17514 + 0.42400346780160000000e1 * t4277 * t17517 - 0.13100485137911861760e4 * t16494 * t17529 - 0.74859915073782067200e3 * t17539 * t17514 + 0.37429957536891033600e3 * t4259 * t17517 - 0.26724857051776665600e3 * t4259 * t17529; t17553 = -0.40073676000000000000e0 * t3380 * t16522 * t845 - 0.26715784000000000000e0 * t3258 * t3593 * t2179 * t3596 - 0.26715784000000000000e0 * t3258 * t16526 * t3601 + 0.36066308400000000000e1 * t474 * t1510 * t16333 + 0.30000000000000000000e1 * t538 * t2175 * t12414 + 0.66789460000000000000e-1 * t3502 * t4212 + 0.66789460000000000000e-1 * t963 * t3423 * t17440 - 0.20036838000000000000e0 * t825 * t4219 - 0.20036838000000000000e0 * t283 * t865 * t17440 - 0.66789460000000000000e-1 * t283 * t2543 * t4238 + 0.10018419000000000000e0 * t825 * t4227 + 0.25000000000000000000e0 * t145 * t201 * (t17500 + t17546) - 0.66789460000000000000e-1 * t3624 * t4223; t17589 = -0.66789460000000000000e-1 * t1059 * t225 * t3843 * t1062 + 0.22263153333333333333e-1 * t1059 * t574 * t1141 * t1062 - 0.44526306666666666667e-1 * t1059 * t1707 * t1098 * t1062 + 0.12022102800000000000e1 * t2075 * t1060 * t3658 + 0.13357892000000000000e0 * t3624 * t4216 + 0.80147352000000000000e0 * t2066 * t1060 * t3661 + 0.80147352000000000000e0 * t2075 * t2514 * t809 * t17136 - t16263 + t16268 - 0.20036838000000000000e0 * t825 * t4243 - 0.60000000000000000000e1 * t538 * t11694 * t2279 + 0.18033154200000000000e1 * t474 * t1510 * t16176 - 0.10000000000000000000e1 * t538 * t809 * t3698; t17611 = t16290 - t16295 + t16297 - t16299 - 0.50000000000000000000e0 * t538 * t16252 * t277 - 0.90165771000000000000e0 * t474 * t527 * t4284 - 0.10000000000000000000e1 * t538 * t2468 * t1090 + t16324 - t16326 - t16329 + 0.10018419000000000000e0 * t283 * t674 * t731 * t3960 + 0.10018419000000000000e0 * t283 * t791 * t3412 * t852 + 0.20036838000000000000e0 * t825 * t4239; t17649 = t16338 - t16340 + 0.20036838000000000000e0 * t283 * t791 * t2561 * t1090 - 0.44526306666666666667e-1 * t12536 * t4232 + 0.13357892000000000000e0 * t12551 * t4232 + 0.13357892000000000000e0 * t3258 * t12559 * t4231 + 0.13357892000000000000e0 * t3258 * t3259 * t955 * t17 * t307 + 0.20036838000000000000e0 * t3380 * t1143 * t845 + 0.13357892000000000000e0 * t3258 * t17464 * t131 * t3596 + 0.66789460000000000000e-1 * t3258 * t16392 * t3601 - 0.40073676000000000000e0 * t3380 * t1105 * t845 - 0.40073676000000000000e0 * t3258 * t1100 * t3596 + 0.26715784000000000000e0 * t3258 * t3594 * t153 * t306 * t907; t17688 = t16384 - 0.50000000000000000000e0 * t538 * t3405 * t852 + 0.15000000000000000000e1 * t1547 * t4246 + 0.10018419000000000000e0 * t283 * t791 * t13165 * t325 - 0.33394730000000000000e-1 * t283 * t2543 * t4226 - 0.44526306666666666667e-1 * t963 * t13112 * t4211 + 0.66789460000000000000e-1 * t283 * t2806 * t4211 + 0.17810522666666666667e0 * t145 * t3968 * t3778 * t4208 - 0.50000000000000000000e0 * t1547 * t4256 + 0.20036838000000000000e0 * t283 * t791 * t797 * t3698 - 0.26715784000000000000e0 * t216 * t4206 * t4208 - 0.40073676000000000000e0 * t2075 * t1060 * t3706 - 0.40073676000000000000e0 * t2075 * t1060 * t3652; t17731 = -0.40073676000000000000e0 * t2066 * t1060 * t3587 - 0.53431568000000000000e0 * t16248 * t792 * t17 * t17457 + 0.26715784000000000000e0 * t16248 * t16351 * t307 * t277 - 0.20036838000000000000e0 * t10226 * t11716 * t838 - 0.26715784000000000000e0 * t1059 * t13145 * t3642 + 0.13357892000000000000e0 * t1059 * t13087 * t3613 - 0.13357892000000000000e0 * t1059 * t11716 * t841 + 0.40073676000000000000e0 * t2066 * t4215 * t838 + 0.60110514000000000000e0 * t2075 * t13159 * t3642 + 0.10686313600000000000e1 * t16209 * t16210 * t3664 + 0.10686313600000000000e1 * t1517 * t16207 * t3721 * t16210 * t3673 + 0.13357892000000000000e0 * t2075 * t3631 * t1074 + 0.25000000000000000000e0 * t216 * t4285; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[15] = t17392 + t17420 + t17553 + t17589 + t17611 + t17649 + t17688 + t17731; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[16] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[17] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[18] = 0.0e0; t17760 = t4331 * t244; t17823 = -0.3e1 * t888 * t3841 - 0.6e1 * t5902 * t4339 + 0.24e2 * t5911 * t4339 * t260 - 0.18e2 * t1762 * t1122 * t905 + 0.6e1 * t1755 * t4342 - 0.18e2 * t1762 * t4342 * t260 + 0.6e1 * t614 * t905 * t1139 + 0.6e1 * t614 * t349 * t3841 - t609 * t4362 + 0.2e1 * t614 * t4362 * t260 - t245 * (-0.81854166666666666664e-2 * t54 * t4346 * t247 * t105 + 0.31905117083333333332e-1 * t24 * t4351 * t235 * t256 + 0.26929416302728704625e-1 * t43 * t1131 * t228 * t629 - 0.88203505675896955784e-1 * t3838 + 0.15953121143785259251e0 * t3795 * t5941 * t24 * sigma[2]); t17825 = t224 * ((-0.50906635802469135803e2 * t3797 * t4326 + 0.30301568930041152263e2 * t421 / t72 / t5869 * t40 * t42 * t90 * t82 + 0.15708333333333333334e2 * t876 * t82) * t110 - t17760 * t260 - 0.3e1 * t14369 * t349 + 0.6e1 * t14339 * t891 - 0.3e1 * t3808 * t905 + 0.6e1 * t9570 * t1122 - 0.18e2 * t9550 * t3818 + 0.12e2 * t2707 * t3821 - 0.3e1 * t2704 * t1139 + 0.6e1 * t2707 * t3825 + t17823); t17837 = t2538 * t1141; t17841 = -t16561 + 0.20036838000000000000e0 * t283 * t219 * t4311 - 0.26715784000000000000e0 * t963 * t3779 * t4298 - 0.60110514000000000000e0 * t825 * t4312 + 0.40073676000000000000e0 * t3502 * t4299 - 0.10018419000000000000e0 * t825 * t4367 - 0.10018419000000000000e0 * t283 * t74 * t17825 * t131 - 0.15000000000000000000e1 * t1547 * t4386 - 0.15000000000000000000e1 * t538 * t809 * t3960 - t16575 + 0.60110514000000000000e0 * t825 * t4315 + 0.60110514000000000000e0 * t283 * t865 * t17837; t17878 = -0.20036838000000000000e0 * t283 * t2806 * t4302 + 0.20036838000000000000e0 * t283 * t2806 * t4306 + 0.60110514000000000000e0 * t10226 * t13087 * t3759 + 0.80147352000000000000e0 * t1059 * t14833 * t3763 + 0.20036838000000000000e0 * t1059 * t13087 * t3767 - 0.60110514000000000000e0 * t10226 * t11716 * t919 - 0.80147352000000000000e0 * t1059 * t13145 * t3710 + 0.40073676000000000000e0 * t1059 * t13087 * t3748 + t16580 - 0.50000000000000000000e0 * t538 * t16712 * t277 - 0.60000000000000000000e1 * t538 * t16740 * t277 + 0.45000000000000000000e1 * t538 * t3489 * t955 + 0.54099462600000000000e1 * t474 * t1510 * t16581; t17880 = t4293 * t266; t17921 = 0.12022102800000000000e1 * t673 * t2929 * t17880 + 0.20036838000000000000e0 * t283 * t865 * t16753 * t262 + 0.10018419000000000000e0 * t283 * t791 * t16758 * t277 + 0.30055257000000000000e0 * t825 * t4371 + 0.30055257000000000000e0 * t283 * t791 * t13165 * t364 + 0.30055257000000000000e0 * t283 * t791 * t3412 * t955 - 0.60110514000000000000e0 * t825 * t4375 - 0.60110514000000000000e0 * t283 * t791 * t7928 * t1151 + 0.30055257000000000000e0 * t825 * t4379 + 0.30055257000000000000e0 * t283 * t791 * t2561 * t1176 + 0.30055257000000000000e0 * t283 * t791 * t797 * t3960 + 0.13357892000000000000e0 * t963 * t13112 * t4302; t17941 = -0.13357892000000000000e0 * t963 * t13112 * t4306 + t16670 - t16672 + t16674 + t16676 - t16678 + t16680 - t16682 + 0.12022102800000000000e1 * t2075 * t2514 * t11815 * t262 + 0.18033154200000000000e1 * t2075 * t1060 * t3849 - 0.12022102800000000000e1 * t2066 * t2514 * t3759 - 0.18033154200000000000e1 * t2075 * t9109 * t3763 - 0.60110514000000000000e0 * t2075 * t2514 * t3767; t17967 = t4293 * t262; t17971 = t3424 * t907; t17977 = 0.12022102800000000000e1 * t2066 * t4215 * t919 + 0.18033154200000000000e1 * t2075 * t13159 * t3710 - 0.12022102800000000000e1 * t2075 * t2514 * t3748 + 0.12022102800000000000e1 * t2075 * t4215 * t922 + t16703 - 0.15000000000000000000e1 * t538 * t2468 * t1176 + 0.45000000000000000000e1 * t538 * t2175 * t13175 - 0.90165771000000000000e0 * t474 * t527 * t4432 + 0.15000000000000000000e1 * t216 * t4383 + 0.24044205600000000000e1 * t283 * t9833 * t17967 - 0.18033154200000000000e1 * t283 * t2929 * t17971 + 0.25000000000000000000e0 * t216 * t4433; t17988 = 0.1e1 / t75 * t4290; t17992 = t16600 * t277; t18001 = t792 * t3843; t18007 = t3432 * t955; t18020 = -0.40073676000000000000e0 * t1059 * t11716 * t922 + 0.33394730000000000000e-1 * t283 * t219 * t4366 - 0.54099462600000000000e1 * t474 * t5110 * t4382 + 0.26715784000000000000e0 * t3969 * t17988 * t4293 - 0.40073676000000000000e0 * t963 * t3722 * t17992 - 0.20036838000000000000e0 * t3502 * t4303 - 0.20036838000000000000e0 * t963 * t3423 * t17837 - 0.20036838000000000000e0 * t963 * t3423 * t18001 + 0.20036838000000000000e0 * t3502 * t4307 + 0.20036838000000000000e0 * t963 * t3423 * t18007 - 0.10018419000000000000e0 * t283 * t2543 * t4378 - 0.10018419000000000000e0 * t283 * t2543 * t4370 + 0.20036838000000000000e0 * t283 * t2543 * t4374; t18022 = t219 * t4310; t18025 = t219 * t4365; t18028 = t3779 * t4297; t18043 = t17988 * t4292; t18046 = t4292 * t262; t18047 = t14476 * t18046; t18050 = t1098 * t907; t18051 = t3872 * t18050; t18054 = t907 * t1141; t18055 = t3459 * t18054; t18058 = t351 * t3843; t18059 = t3459 * t18058; t18062 = t4292 * t266; t18063 = t1714 * t18062; t18066 = t5842 * t18046; t18069 = t1714 * t18050; t18072 = t580 * t18054; t18075 = t580 * t18058; t18078 = -0.28072468152668275200e2 * t313 * t18022 - 0.46787446921113792000e1 * t313 * t18025 + 0.15900130042560000000e1 * t1046 * t18028 - 0.79500650212800000000e0 * t322 * t18022 + 0.26724857051776665600e2 * t1038 * t18028 - 0.10021821394416249600e2 * t318 * t18022 + 0.93574893842227584000e2 * t1027 * t18028 - 0.13250108368800000000e0 * t322 * t18025 - 0.16703035657360416000e1 * t318 * t18025 - 0.18714978768445516800e3 * t4098 * t18043 + 0.20043642788832499200e3 * t3078 * t18047 - 0.12026185673299499520e3 * t3078 * t18051 + 0.20043642788832499200e2 * t3078 * t18055 + 0.20043642788832499200e2 * t3078 * t18059 - 0.12026185673299499520e3 * t757 * t18063 - 0.12026185673299499520e3 * t769 * t18066 + 0.90196392549746246400e2 * t769 * t18069 - 0.30065464183248748800e2 * t769 * t18072 - 0.30065464183248748800e2 * t769 * t18075; t18079 = t3872 * t18062; t18092 = t4078 * t4288; t18094 = 0.1e1 / t1096 / t578; t18096 = t18094 * t4292 * t262; t18099 = t13289 * t4406; t18102 = t1707 * t4406; t18114 = t225 * t4364 * t266; t18118 = t580 * t4364 * t262; t18129 = t74 * t17825; t18132 = 0.84217404458004825600e3 * t3100 * t18079 + 0.70181170381670688000e3 * t3072 * t18047 - 0.42108702229002412800e3 * t3072 * t18051 + 0.70181170381670688000e2 * t3072 * t18055 + 0.70181170381670688000e2 * t3072 * t18059 - 0.42108702229002412800e3 * t749 * t18063 - 0.12720104034048000000e2 * t18092 * t18096 - 0.46787446921113792000e2 * t3072 * t18099 + 0.28072468152668275200e2 * t757 * t18102 + 0.10021821394416249600e2 * t769 * t18102 - 0.13362428525888332800e2 * t3078 * t18099 + 0.79500650212800000000e0 * t778 * t18102 - 0.79500650212800000000e0 * t3156 * t18099 - 0.11925097531920000000e1 * t769 * t18114 - 0.79500650212800000000e0 * t778 * t18118 - 0.20043642788832499200e2 * t757 * t18114 - 0.10021821394416249600e2 * t769 * t18118 - 0.70181170381670688000e2 * t749 * t18114 - 0.28072468152668275200e2 * t757 * t18118 + 0.14036234076334137600e2 * t313 * t18129; t18170 = t16614 * t266; t18173 = 0.50109106972081248000e1 * t318 * t18129 + 0.39750325106400000000e0 * t322 * t18129 + 0.95400780255360000000e1 * t3078 * t18079 + 0.11925097531920000000e2 * t3156 * t18047 - 0.71550585191520000000e1 * t3156 * t18051 + 0.11925097531920000000e1 * t3156 * t18055 + 0.11925097531920000000e1 * t3156 * t18059 - 0.71550585191520000000e1 * t769 * t18063 - 0.95400780255360000000e1 * t778 * t18066 + 0.71550585191520000000e1 * t778 * t18069 - 0.23850195063840000000e1 * t778 * t18072 - 0.23850195063840000000e1 * t778 * t18075 - 0.21200173390080000000e1 * t4078 * t18043 - 0.33686961783201930240e3 * t757 * t18066 + 0.25265221337401447680e3 * t757 * t18069 - 0.84217404458004825600e2 * t757 * t18072 - 0.84217404458004825600e2 * t757 * t18075 - 0.11228987261067310080e4 * t16618 * t18096 - 0.13100485137911861760e4 * t16629 * t18170; t18174 = t4290 * t1098; t18175 = t18174 * t907; t18188 = t4406 * t262; t18189 = t1714 * t18188; t18192 = t4406 * t266; t18193 = t580 * t18192; t18198 = t3459 * t18192; t18201 = t3872 * t18188; t18222 = 0.13362428525888332800e3 * t16613 * t18175 - 0.44541428419627776000e2 * t4082 * t18043 - 0.26724857051776665600e3 * t16613 * t18096 - 0.26724857051776665600e3 * t16618 * t18170 + 0.63600520170240000000e1 * t18092 * t18175 - 0.10600086695040000000e2 * t16613 * t18170 + 0.25265221337401447680e3 * t757 * t18189 + 0.12026185673299499520e3 * t757 * t18193 + 0.90196392549746246400e2 * t769 * t18189 - 0.10021821394416249600e3 * t3072 * t18198 - 0.80174571155329996800e2 * t3078 * t18201 + 0.71550585191520000000e1 * t769 * t18193 + 0.71550585191520000000e1 * t778 * t18189 - 0.47700390127680000000e1 * t3078 * t18198 - 0.47700390127680000000e1 * t3156 * t18201 - 0.42108702229002412800e3 * t3100 * t18198 - 0.28072468152668275200e3 * t3072 * t18201 + 0.42108702229002412800e3 * t749 * t18193 + 0.56144936305336550400e3 * t16618 * t18175 + 0.20043642788832499200e3 * t3072 * t18079; t18234 = t4288 * t18094; t18263 = 0.25000000000000000000e0 * t145 * t201 * (t18078 + t18132 + t18173 + t18222) + 0.60110514000000000000e0 * t283 * t2929 * t17992 + 0.10686313600000000000e1 * t15729 * t4291 * t17880 + 0.16029470400000000000e1 * t3969 * t18234 * t17967 - 0.80147352000000000000e0 * t3969 * t4291 * t17971 + 0.26715784000000000000e0 * t3969 * t4291 * t17992 - 0.12022102800000000000e1 * t2075 * t1060 * t3852 - 0.60110514000000000000e0 * t2066 * t1060 * t3964 - 0.60110514000000000000e0 * t2075 * t2514 * t11701 * t262 - 0.60110514000000000000e0 * t2075 * t1060 * t3858 - 0.60110514000000000000e0 * t2066 * t4222 * t919 - 0.60110514000000000000e0 * t2075 * t13469 * t3710; t18293 = -0.60110514000000000000e0 * t2075 * t4222 * t922 + 0.12022102800000000000e1 * t2066 * t1060 * t3865 - 0.26715784000000000000e0 * t16984 * t4294 + 0.60110514000000000000e0 * t283 * t865 * t18001 - 0.60110514000000000000e0 * t825 * t4318 + t16789 - t16791 - t16793 - 0.60110514000000000000e0 * t283 * t865 * t18007 + 0.20036838000000000000e0 * t673 * t791 * t16753 * t266 - 0.12022102800000000000e1 * t3179 * t3722 * t17880 - 0.20036838000000000000e1 * t963 * t14875 * t17967 + 0.12022102800000000000e1 * t963 * t3722 * t17971; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[19] = t17841 + t17878 + t17921 + t17941 + t17977 + t18020 + t18263 + t18293; t18299 = t969 * t969; t18304 = t3972 * t18299; t18333 = t993 * t993; t18339 = t1010 * t1010; t18368 = (-0.11363088348765432099e2 * t421 / t16 / t1260 * t40 * t42 * t32 * sigma[0] + 0.10908564814814814815e2 * t4005 * t1264) * t66 - 0.4e1 * t15360 * t304 + 0.12e2 * t10551 * t993 - 0.6e1 * t3000 * t1010 - 0.24e2 * t6318 * t4021 + 0.24e2 * t1888 * t4024 - 0.4e1 * t706 * t4044 + 0.24e2 * t4564 * t18333 - 0.36e2 * t1286 * t993 * t1010 + 0.6e1 * t444 * t18339 + 0.8e1 * t444 * t304 * t4044 - t173 * (-0.15347656250000000000e-1 * t54 / t55 / t422 * t57 * t61 + 0.59822094531249999998e-1 * t24 / t422 * t28 * t184 + 0.50492655567616321177e-1 * t43 * t4033 * t48 * t459 + 0.47251878040659083455e-2 * t1002 * t980 * t1309 - 0.59824204289194722189e-1 * t4004 * t4594 * t24); t18369 = t152 * t18368; t18374 = t1012 * t1012; t18375 = t968 * t18374; t18380 = t3080 * t18299; t18385 = t407 * t18374; t18390 = t10400 * t1022; t18396 = t967 * t967; t18397 = 0.1e1 / t18396; t18406 = t675 * t4046; t18410 = t3057 * t1053; t18417 = t3048 * t1012; t18421 = t15299 * t325; t18428 = -0.20000000000000000000e1 * t538 * t743 * t4117 + 0.32058940800000000000e1 * t3969 * t15733 * t18299 * t131 - 0.24044205600000000000e1 * t963 * t966 * t18304 * t131 - 0.10018419000000000000e0 * t283 * t18 * t18369 * t131 - 0.20036838000000000000e0 * t963 * t966 * t18375 * t131 + 0.24044205600000000000e1 * t283 * t18 * t18380 * t131 + 0.60110514000000000000e0 * t283 * t18 * t18385 * t131 - 0.80147352000000000000e0 * t963 * t3180 * t18390 - 0.11873681777777777778e0 * t145 * t4078 * t57 * t18397 * t18299 * t131 * t150 + 0.90000000000000000000e1 * t538 * t3228 * t1053 - 0.26715784000000000000e0 * t963 * t3180 * t18406 + 0.40073676000000000000e0 * t963 * t3180 * t18410 - 0.24044205600000000000e1 * t2075 * t1080 * t4068 - 0.36066308400000000000e1 * t283 * t2124 * t18417 + 0.24044205600000000000e1 * t283 * t2124 * t18421 - 0.24044205600000000000e1 * t2075 * t2067 * t4052; t18432 = t1053 * t1053; t18436 = t1022 * t1022; t18481 = t969 * t1012; t18482 = t1238 * t18481; t18485 = t3081 * t18481; t18490 = t57 * t18397; t18493 = t18299 * t10 * t748; t18498 = t4046 * t306; t18499 = t3073 * t18498; t18502 = t408 * t18498; t18523 = t15733 * t18299; t18526 = t15436 * t1012; t18531 = 0.50530442674802895360e3 * t757 * t18482 - 0.14310117038304000000e2 * t3156 * t18485 - 0.24052371346598999040e3 * t3078 * t18485 + 0.14556094597679846400e3 * t15489 * t18490 * t18493 - 0.84217404458004825600e3 * t3072 * t18485 + 0.26724857051776665600e2 * t3078 * t18499 - 0.11228987261067310080e3 * t757 * t18502 + 0.93574893842227584000e2 * t3072 * t18499 + 0.11777874105600000000e1 * t4082 * t18490 * t18493 + 0.18039278509949249280e3 * t769 * t18482 - 0.31800260085120000000e1 * t778 * t18502 + 0.15900130042560000000e1 * t3156 * t18499 - 0.40087285577664998400e2 * t769 * t18502 + 0.14310117038304000000e2 * t778 * t18482 + 0.29694285613085184000e2 * t4098 * t18490 * t18493 - 0.25440208068096000000e2 * t4078 * t18523 + 0.11228987261067310080e4 * t15493 * t18526 - 0.22457974522134620160e4 * t4098 * t18523; t18532 = t18 * t18385; t18535 = t18 * t18380; t18540 = t966 * t18304; t18543 = t966 * t18375; t18560 = t18 * t18369; t18573 = -0.30065464183248748800e2 * t318 * t18532 - 0.95400780255360000000e1 * t322 * t18535 - 0.23850195063840000000e1 * t322 * t18532 + 0.14310117038304000000e2 * t1046 * t18540 + 0.11925097531920000000e1 * t1046 * t18543 - 0.84217404458004825600e2 * t313 * t18532 + 0.24052371346598999040e3 * t1038 * t18540 + 0.20043642788832499200e2 * t1038 * t18543 + 0.70181170381670688000e2 * t1027 * t18543 - 0.33686961783201930240e3 * t313 * t18535 - 0.53449714103553331200e3 * t4082 * t18523 + 0.12720104034048000000e2 * t15435 * t18526 + 0.14036234076334137600e2 * t313 * t18560 + 0.50109106972081248000e1 * t318 * t18560 + 0.39750325106400000000e0 * t322 * t18560 + 0.84217404458004825600e3 * t1027 * t18540 - 0.12026185673299499520e3 * t318 * t18535 + 0.26724857051776665600e3 * t15440 * t18526; t18578 = 0.80147352000000000000e0 * t1059 * t10258 * t4052 - 0.15000000000000000000e1 * t145 * t481 * t18432 - 0.60000000000000000000e1 * t145 * t4780 * t18436 - 0.12022102800000000000e1 * t283 * t674 * t10384 * t1022 + 0.24044205600000000000e1 * t283 * t674 * t6879 * t4064 + 0.24044205600000000000e1 * t963 * t3186 * t18417 - 0.16029470400000000000e1 * t963 * t3186 * t18421 - 0.16029470400000000000e1 * t3969 * t3973 * t18417 + 0.10686313600000000000e1 * t3969 * t3973 * t18421 + 0.40073676000000000000e0 * t283 * t674 * t731 * t4117 + 0.80147352000000000000e0 * t283 * t683 * t18406 - 0.12022102800000000000e1 * t283 * t683 * t18410 + 0.40073676000000000000e0 * t283 * t674 * t15200 * t325 + 0.60110514000000000000e0 * t283 * t674 * t3199 * t1053 + 0.24044205600000000000e1 * t283 * t683 * t18390 + 0.25000000000000000000e0 * t145 * t201 * (t18531 + t18573); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[0] = t18428 + t18578; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[1] = 0.0e0; t18597 = t11469 * t1012; t18642 = 0.12022102800000000000e1 * t2075 * t4180 * t1074 - 0.60110514000000000000e0 * t2075 * t4184 * t1074 - 0.12022102800000000000e1 * t2075 * t1080 * t4169 + 0.20036838000000000000e0 * t1059 * t10258 * t4155 - 0.40073676000000000000e0 * t1059 * t4123 * t1074 - 0.60110514000000000000e0 * t2075 * t2067 * t4155 - 0.80147352000000000000e0 * t15742 * t15743 * t18597 - 0.60110514000000000000e0 * t2075 * t1060 * t4068 + 0.18033154200000000000e1 * t2075 * t1080 * t4166 - 0.50000000000000000000e0 * t538 * t809 * t4117 + 0.80147352000000000000e0 * t15742 * t15926 * t970 * t325 - 0.60110514000000000000e0 * t2075 * t1080 * t4172 + 0.30055257000000000000e0 * t283 * t674 * t3199 * t1090 + 0.30055257000000000000e0 * t283 * t674 * t731 * t4202 + 0.10018419000000000000e0 * t283 * t791 * t797 * t4117 - 0.40073676000000000000e0 * t3258 * t11170 * t153 * t306 * t1022 - 0.40073676000000000000e0 * t3258 * t3259 * t408 * t969 * t325 + 0.40073676000000000000e0 * t3258 * t353 * t4095; t18670 = t15299 * t364; t18694 = t3057 * t1090; t18712 = t352 * t153 * t4046; t18716 = t352 * t1238 * t3974; t18720 = t3280 * t3289 * t1012; t18728 = t4079 * t150; t18742 = t4176 * t3979; t18745 = t4176 * t18597; t18759 = 0.23393723460556896000e2 * t1079 * t18712 + 0.23850195063840000000e1 * t1087 * t18716 - 0.23850195063840000000e1 * t1087 * t18720 + 0.39750325106400000000e0 * t1087 * t18712 + 0.66812142629441664000e1 * t1084 * t18712 + 0.11777874105600000000e1 * t4082 * t1060 * t18728 + 0.40087285577664998400e2 * t1084 * t18716 - 0.40087285577664998400e2 * t1084 * t18720 + 0.29694285613085184000e2 * t4098 * t1060 * t18728 + 0.14036234076334137600e3 * t1079 * t18716 - 0.14036234076334137600e3 * t1079 * t18720 - 0.12720104034048000000e2 * t4195 * t18742 + 0.63600520170240000000e1 * t4195 * t18745 - 0.26724857051776665600e3 * t4188 * t18742 + 0.13362428525888332800e3 * t4188 * t18745 - 0.11228987261067310080e4 * t4175 * t18742 + 0.56144936305336550400e3 * t4175 * t18745 + 0.14556094597679846400e3 * t15489 * t1060 * t18728; t18766 = -0.11873681777777777778e0 * t4909 * t15740 * t352 * t131 * t3970 * t3972 * t3974 * t10 * t748 + 0.20036838000000000000e0 * t3258 * t3259 * t153 * t1012 * t325 + 0.20036838000000000000e0 * t3258 * t3259 * t153 * t306 * t1053 - 0.40073676000000000000e0 * t1059 * t1060 * t1061 * t3992 - 0.66789460000000000000e-1 * t1059 * t1060 * t1061 * t4047 + 0.26715784000000000000e0 * t3969 * t3973 * t18670 - 0.40073676000000000000e0 * t963 * t3186 * t18670 + 0.60110514000000000000e0 * t283 * t2124 * t18670 + 0.60110514000000000000e0 * t283 * t791 * t6982 * t4064 + 0.16029470400000000000e1 * t4122 * t353 * t3081 * t3974 + 0.45000000000000000000e1 * t538 * t2175 * t15269 - 0.15000000000000000000e1 * t538 * t3275 * t1053 - 0.60110514000000000000e0 * t283 * t683 * t18694 + 0.10018419000000000000e0 * t283 * t674 * t15200 * t364 + 0.20036838000000000000e0 * t963 * t3180 * t18694 - 0.15000000000000000000e1 * t538 * t15777 * t325 - 0.60000000000000000000e1 * t538 * t7017 * t4064 + 0.25000000000000000000e0 * t145 * t201 * t18759 + 0.45000000000000000000e1 * t538 * t11114 * t1022; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[2] = t18642 + t18766; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[3] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[4] = 0.0e0; t18773 = t3432 * t1053; t18790 = t3057 * t1176; t18794 = t10400 * t1151; t18798 = t11852 * t1022; t18805 = -0.10000000000000000000e1 * t538 * t16252 * t325 - 0.26715784000000000000e0 * t4207 * t1100 * t4184 + 0.66789460000000000000e-1 * t963 * t3423 * t18773 + 0.53431568000000000000e0 * t4122 * t1105 * t4123 - 0.20036838000000000000e0 * t283 * t865 * t18773 - 0.26715784000000000000e0 * t4122 * t1143 * t4123 + 0.10018419000000000000e0 * t283 * t791 * t3412 * t1053 - 0.20036838000000000000e0 * t283 * t683 * t18790 + 0.40073676000000000000e0 * t283 * t683 * t18794 - 0.13357892000000000000e0 * t963 * t3423 * t18798 + 0.53431568000000000000e0 * t4207 * t1100 * t4180; t18852 = -0.60000000000000000000e1 * t538 * t11694 * t1022 + 0.15000000000000000000e1 * t538 * t3489 * t1053 - 0.40073676000000000000e0 * t2075 * t1060 * t4172 - 0.80147352000000000000e0 * t2075 * t1060 * t4169 + 0.53431568000000000000e0 * t15742 * t1147 * t4123 + 0.13357892000000000000e0 * t3258 * t3259 * t4230 * t1013 + 0.13357892000000000000e0 * t3258 * t16392 * t4128 - 0.11873681777777777778e0 * t4909 * t16207 * t1099 * t131 * t965 * t968 * t969 * t10 * t748 - 0.26715784000000000000e0 * t3258 * t16373 * t4128 - 0.26715784000000000000e0 * t3258 * t3259 * t4230 * t975 + 0.26715784000000000000e0 * t3258 * t3259 * t1090 * t17 * t307 - 0.53431568000000000000e0 * t3258 * t16526 * t4128; t18854 = t1142 * t4180; t18857 = t1104 * t4180; t18866 = t4260 * t975; t18873 = t4260 * t1013; t18877 = t4123 * t150; t18884 = t1098 * t965 * t970; t18888 = t1141 * t965 * t970; t18891 = -0.46787446921113792000e2 * t1079 * t18854 + 0.26724857051776665600e2 * t1084 * t18857 - 0.13362428525888332800e2 * t1084 * t18854 + 0.15900130042560000000e1 * t1087 * t18857 - 0.79500650212800000000e0 * t1087 * t18854 - 0.42400346780160000000e1 * t4277 * t18866 - 0.37429957536891033600e3 * t4259 * t18866 - 0.89082856839255552000e2 * t4270 * t18866 + 0.44541428419627776000e2 * t4270 * t18873 + 0.14556094597679846400e3 * t15489 * t11716 * t18877 + 0.11777874105600000000e1 * t4082 * t11716 * t18877 - 0.37429957536891033600e3 * t17099 * t18884 + 0.18714978768445516800e3 * t4175 * t18888; t18895 = t1104 * t4184; t18898 = t1142 * t4184; t18923 = 0.29694285613085184000e2 * t4098 * t11716 * t18877 - 0.46787446921113792000e2 * t1079 * t18895 + 0.23393723460556896000e2 * t1079 * t18898 + 0.93574893842227584000e2 * t1079 * t18857 - 0.79500650212800000000e0 * t1087 * t18895 + 0.39750325106400000000e0 * t1087 * t18898 - 0.13362428525888332800e2 * t1084 * t18895 + 0.66812142629441664000e1 * t1084 * t18898 - 0.89082856839255552000e2 * t17070 * t18884 + 0.44541428419627776000e2 * t4188 * t18888 + 0.21200173390080000000e1 * t4277 * t18873 - 0.42400346780160000000e1 * t17094 * t18884 + 0.21200173390080000000e1 * t4195 * t18888 + 0.18714978768445516800e3 * t4259 * t18873; t18961 = 0.25000000000000000000e0 * t145 * t201 * (t18891 + t18923) + 0.13357892000000000000e0 * t1059 * t4222 * t4132 - 0.26715784000000000000e0 * t1059 * t4215 * t4132 + 0.13357892000000000000e0 * t1059 * t4215 * t4136 - 0.20036838000000000000e0 * t283 * t791 * t11847 * t1022 + 0.12022102800000000000e1 * t2075 * t1060 * t4166 - 0.40073676000000000000e0 * t2075 * t1080 * t4256 + 0.12022102800000000000e1 * t2075 * t1080 * t4246 - 0.80147352000000000000e0 * t2075 * t1080 * t4249 + 0.53431568000000000000e0 * t16248 * t16351 * t307 * t325 + 0.10018419000000000000e0 * t283 * t674 * t3199 * t1176; t18989 = t1090 * t1090; t19002 = 0.15000000000000000000e1 * t538 * t11599 * t1022 - 0.10000000000000000000e1 * t538 * t809 * t4202 + 0.20036838000000000000e0 * t283 * t674 * t731 * t4284 + 0.66789460000000000000e-1 * t963 * t3180 * t18790 - 0.20036838000000000000e0 * t283 * t674 * t10384 * t1151 - 0.13357892000000000000e0 * t963 * t3180 * t18794 + 0.20036838000000000000e0 * t283 * t791 * t797 * t4202 - 0.50000000000000000000e0 * t538 * t3405 * t1053 - 0.10000000000000000000e1 * t145 * t481 * t18989 + 0.60000000000000000000e1 * t538 * t2175 * t15785 - 0.66789460000000000000e-1 * t1059 * t4222 * t4136 + 0.40073676000000000000e0 * t283 * t865 * t18798; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[5] = t18805 + t18852 + t18961 + t19002; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[6] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[7] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[8] = 0.0e0; t19034 = t3432 * t1090; t19038 = t16600 * t325; t19069 = 0.18033154200000000000e1 * t2075 * t1060 * t4246 - 0.12022102800000000000e1 * t2075 * t1060 * t4249 - 0.60110514000000000000e0 * t2075 * t1060 * t4256 - 0.60110514000000000000e0 * t2075 * t4222 * t1074 - 0.60110514000000000000e0 * t2075 * t1080 * t4386 + 0.20036838000000000000e0 * t1059 * t13087 * t4226 - 0.80147352000000000000e0 * t16248 * t4302 * t1080 + 0.12022102800000000000e1 * t2075 * t4215 * t1074 + 0.80147352000000000000e0 * t16248 * t4306 * t1080 - 0.40073676000000000000e0 * t1059 * t11716 * t1074 + 0.20036838000000000000e0 * t963 * t3423 * t19034 + 0.60110514000000000000e0 * t283 * t2929 * t19038 - 0.60000000000000000000e1 * t538 * t16740 * t325 - 0.15000000000000000000e1 * t538 * t3275 * t1176 + 0.20036838000000000000e0 * t3258 * t16392 * t4231 - 0.40073676000000000000e0 * t3258 * t11170 * t1151 * t17 * t307 + 0.20036838000000000000e0 * t3258 * t3259 * t1176 * t17 * t307 - 0.37302271444129662563e0 * t4909 * t4288 * t16614 * t131 * t10 * t13 * t314; t19130 = t150 * t1080; t19135 = t4365 * t1080; t19146 = t4292 * t17 * t307; t19149 = t4406 * t1080; t19152 = t4310 * t1080; t19156 = t3593 * t1141 * t1080; t19175 = 0.11777874105600000000e1 * t4392 * t19130 + 0.29694285613085184000e2 * t4401 * t19130 + 0.39750325106400000000e0 * t1087 * t19135 + 0.66812142629441664000e1 * t1084 * t19135 + 0.23393723460556896000e2 * t1079 * t19135 + 0.14556094597679846400e3 * t15489 * t4389 * t19130 - 0.12720104034048000000e2 * t17532 * t19146 + 0.63600520170240000000e1 * t4277 * t19149 + 0.23850195063840000000e1 * t1087 * t19152 - 0.23850195063840000000e1 * t1087 * t19156 - 0.26724857051776665600e3 * t17513 * t19146 + 0.13362428525888332800e3 * t4270 * t19149 + 0.40087285577664998400e2 * t1084 * t19152 - 0.40087285577664998400e2 * t1084 * t19156 - 0.11228987261067310080e4 * t17539 * t19146 + 0.56144936305336550400e3 * t4259 * t19149 + 0.14036234076334137600e3 * t1079 * t19152 - 0.14036234076334137600e3 * t1079 * t19156; t19182 = 0.40073676000000000000e0 * t3258 * t3594 * t1141 * t17 * t307 - 0.40073676000000000000e0 * t3258 * t16373 * t4231 + 0.45000000000000000000e1 * t538 * t3489 * t1090 - 0.66789460000000000000e-1 * t1059 * t225 * t4364 * t1062 - 0.40073676000000000000e0 * t1059 * t1714 * t4292 * t1062 + 0.26715784000000000000e0 * t3969 * t4291 * t19038 - 0.15000000000000000000e1 * t538 * t809 * t4284 - 0.40073676000000000000e0 * t963 * t3722 * t19038 + 0.16029470400000000000e1 * t4207 * t4298 * t1080 - 0.60110514000000000000e0 * t2075 * t2514 * t4226 + 0.30055257000000000000e0 * t283 * t791 * t3412 * t1090 + 0.30055257000000000000e0 * t283 * t791 * t797 * t4284 + 0.60110514000000000000e0 * t283 * t674 * t6879 * t4382 - 0.60110514000000000000e0 * t283 * t865 * t19034 + 0.10018419000000000000e0 * t283 * t791 * t16758 * t325 + 0.10018419000000000000e0 * t283 * t674 * t731 * t4432 - 0.50000000000000000000e0 * t538 * t16712 * t325 + 0.25000000000000000000e0 * t145 * t201 * t19175 + 0.45000000000000000000e1 * t538 * t2175 * t16176; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[9] = t19069 + t19182; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[10] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[11] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[12] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[13] = 0.0e0; t19203 = t792 * t4364; t19207 = t3432 * t1176; t19214 = t3424 * t1141; t19218 = t16600 * t364; t19224 = t1096 * t1096; t19225 = 0.1e1 / t19224; t19226 = t1098 * t1098; t19232 = t11852 * t1151; t19248 = -0.12022102800000000000e1 * t283 * t791 * t11847 * t1151 + 0.24044205600000000000e1 * t283 * t791 * t6982 * t4382 + 0.40073676000000000000e0 * t283 * t791 * t16758 * t364 + 0.60110514000000000000e0 * t283 * t791 * t3412 * t1176 + 0.40073676000000000000e0 * t283 * t791 * t797 * t4432 + 0.80147352000000000000e0 * t283 * t865 * t19203 - 0.12022102800000000000e1 * t283 * t865 * t19207 + 0.40073676000000000000e0 * t963 * t3423 * t19207 - 0.36066308400000000000e1 * t283 * t2929 * t19214 + 0.24044205600000000000e1 * t283 * t2929 * t19218 - 0.11873681777777777778e0 * t145 * t4078 * t101 * t19225 * t19226 * t131 * t150 - 0.80147352000000000000e0 * t963 * t3423 * t19232 + 0.24044205600000000000e1 * t283 * t865 * t19232 + 0.24044205600000000000e1 * t963 * t3722 * t19214 - 0.16029470400000000000e1 * t963 * t3722 * t19218 - 0.26715784000000000000e0 * t963 * t3423 * t19203; t19249 = t3721 * t19226; t19254 = t1141 * t1141; t19255 = t579 * t19254; t19260 = t4290 * t19226; t19265 = t1097 * t19254; t19294 = t1122 * t1122; t19300 = t1139 * t1139; t19329 = (-0.11363088348765432099e2 * t421 / t72 / t1736 * t40 * t42 * t82 * sigma[2] + 0.10908564814814814815e2 * t4323 * t1740) * t110 - 0.4e1 * t17760 * t349 + 0.12e2 * t14339 * t1122 - 0.6e1 * t3808 * t1139 - 0.24e2 * t9550 * t4339 + 0.24e2 * t2707 * t4342 - 0.4e1 * t888 * t4362 + 0.24e2 * t5911 * t19294 - 0.36e2 * t1762 * t1122 * t1139 + 0.6e1 * t614 * t19300 + 0.8e1 * t614 * t349 * t4362 - t245 * (-0.15347656250000000000e-1 * t54 / t99 / t592 * t101 * t105 + 0.59822094531249999998e-1 * t24 / t592 * t78 * t256 + 0.50492655567616321177e-1 * t43 * t4351 * t94 * t629 + 0.47251878040659083455e-2 * t1131 * t1109 * t1785 - 0.59824204289194722189e-1 * t4322 * t5941 * t24); t19330 = t224 * t19329; t19341 = t18174 * t1141; t19348 = t18234 * t19226; t19353 = t74 * t19330; t19362 = t1095 * t19260; t19365 = t1095 * t19265; t19368 = t74 * t19249; t19371 = t74 * t19255; t19384 = 0.26724857051776665600e3 * t16613 * t19341 + 0.12720104034048000000e2 * t18092 * t19341 + 0.11228987261067310080e4 * t16618 * t19341 - 0.53449714103553331200e3 * t4082 * t19348 - 0.25440208068096000000e2 * t4078 * t19348 + 0.14036234076334137600e2 * t313 * t19353 + 0.50109106972081248000e1 * t318 * t19353 + 0.39750325106400000000e0 * t322 * t19353 - 0.22457974522134620160e4 * t4098 * t19348 + 0.84217404458004825600e3 * t1027 * t19362 + 0.70181170381670688000e2 * t1027 * t19365 - 0.33686961783201930240e3 * t313 * t19368 - 0.84217404458004825600e2 * t313 * t19371 - 0.12026185673299499520e3 * t318 * t19368 - 0.30065464183248748800e2 * t318 * t19371 + 0.24052371346598999040e3 * t1038 * t19362 + 0.20043642788832499200e2 * t1038 * t19365 - 0.95400780255360000000e1 * t322 * t19368; t19391 = t101 * t19225; t19394 = t19226 * t10 * t748; t19397 = t1098 * t1141; t19398 = t3872 * t19397; t19401 = t4364 * t351; t19402 = t3459 * t19401; t19405 = t580 * t19401; t19422 = t1714 * t19397; t19433 = -0.23850195063840000000e1 * t322 * t19371 + 0.14310117038304000000e2 * t1046 * t19362 + 0.11925097531920000000e1 * t1046 * t19365 + 0.14556094597679846400e3 * t15489 * t19391 * t19394 - 0.14310117038304000000e2 * t3156 * t19398 + 0.26724857051776665600e2 * t3078 * t19402 - 0.11228987261067310080e3 * t757 * t19405 - 0.31800260085120000000e1 * t778 * t19405 + 0.15900130042560000000e1 * t3156 * t19402 - 0.40087285577664998400e2 * t769 * t19405 + 0.11777874105600000000e1 * t4082 * t19391 * t19394 + 0.29694285613085184000e2 * t4098 * t19391 * t19394 - 0.84217404458004825600e3 * t3072 * t19398 + 0.50530442674802895360e3 * t757 * t19422 + 0.18039278509949249280e3 * t769 * t19422 - 0.24052371346598999040e3 * t3078 * t19398 + 0.14310117038304000000e2 * t778 * t19422 + 0.93574893842227584000e2 * t3072 * t19402; t19441 = t1151 * t1151; t19445 = t1176 * t1176; t19465 = 0.24044205600000000000e1 * t283 * t74 * t19249 * t131 + 0.60110514000000000000e0 * t283 * t74 * t19255 * t131 - 0.24044205600000000000e1 * t963 * t1095 * t19260 * t131 - 0.20036838000000000000e0 * t963 * t1095 * t19265 * t131 - 0.10018419000000000000e0 * t283 * t74 * t19330 * t131 + 0.90000000000000000000e1 * t538 * t3489 * t1176 - 0.24044205600000000000e1 * t2075 * t1060 * t4386 + 0.25000000000000000000e0 * t145 * t201 * (t19384 + t19433) - 0.20000000000000000000e1 * t538 * t809 * t4432 - 0.60000000000000000000e1 * t145 * t4780 * t19441 - 0.15000000000000000000e1 * t145 * t481 * t19445 + 0.32058940800000000000e1 * t3969 * t18234 * t19226 * t131 + 0.10686313600000000000e1 * t3969 * t4291 * t19218 - 0.16029470400000000000e1 * t3969 * t4291 * t19214 + 0.80147352000000000000e0 * t1059 * t13087 * t4370 - 0.24044205600000000000e1 * t2075 * t2514 * t4370; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[14] = t19248 + t19465; #ifndef XC_DONT_COMPILE_MXC if(order < 5) return; #endif #endif #endif #endif #endif }