/* 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_x_sfat.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, t4, t5, t6, t7, t8; double t9, t10, t11, t12, t13, t14, t15, t16; double t17, t18, t19, t20, t21, t22, t23, t24; double t25, t26, t28, t29, t32, t33, t38, t39; double t41, t42, t44, t45, t46, t48, t49, t50; double t51, t52, t53, t54, t55, t56, t57, t59; double t60, t61, t62, t63, t64, t65, t66, t67; double t68, t69, t70, t75, t76, t77, t78, t79; double t80, t84, t85, t86, t89, t90, t92, t93; double t96, t97, t101, t102, t104; #ifndef XC_DONT_COMPILE_VXC double t108, t109, t110, t111, t113, t118, t119, t120; double t121, t122, t123, t124, t125, t129, t130, t131; double t132, t135, t136, t137, t140, t141, t143, t145; double t146, t148, t149, t150, t160, t161, t162, t163; double t164, t165, t168, t169, t173, t174, t180, t181; double t183, t184, t186, t189, t192, t195, t199, t200; double t201, t205, t207, t208, t209, t215, t217, t219; double t220, t223, t224, t228, t229, t233, t241, t246; double t247, t248, t251, t252, t256, t262, t265, t266; double t268, t269, t270, t272, t277, t278, t282, t283; double t284, t286, t289, t290, t293, t294, t298, t300; double t303; #ifndef XC_DONT_COMPILE_FXC double t315, t316, t319, t323, t325, t327, t332, t333; double t337, t338, t339, t340, t344, t345, t348, t351; double t352, t355, t357, t361, t362, t363, t366, t369; double t371, t372, t374, t375, t376, t393, t394, t399; double t400, t401, t402, t403, t404, t407, t410, t413; double t414, t417, t418, t421, t422, t425, t429, t430; double t434, t437, t440, t446, t447, t450, t451, t453; double t457, t460, t461, t462, t463, t466, t468, t471; double t474, t477, t484, t487, t490, t500, t505, t506; double t510, t520, t521, t523, t525, t526, t528, t529; double t532, t533, t537, t538, t542, t546, t551, t554; double t559, t568, t571, t572, t580, t582, t583, t584; double t587, t588, t589, t592, t593, t597, t598, t599; double t613, t614, t616, t617, t619, t626, t628, t630; double t634, t637, t640, t643, t644, t645, t647, t648; double t649, t650, t651, t655, t658, t661, t662, t663; double t666, t668, t671, t672, t674, t677, t679, t687; double t692, t695, t698, t702, t706, t707, t709, t713; double t714, t717, t718, t719, t720, t723, t725, t728; double t730, t733, t734, t735, t736, t739, t740, t743; double t744, t748, t750, t754, t760, t764, t767, t768; double t774, t775, t776, t781, t784, t785, t786, t789; double t791, t795, t796, t797, t800, t801, t805, t809; double t815, t821, t825, t828, t829, t832, t834, t837; double t839, t842, t843, t844, t845, t846, t858, t862; double t865, t866, t869, t871, t874, t876, t879, t880; double t881, t883, t886, t887, t890, t891, t895, t897; double t901, t905; #ifndef XC_DONT_COMPILE_KXC double t926, t927, t930, t934, t937, t938, t942, t946; double t949, t954, t955, t958, t961, t964, t965, t966; double t967, t968, t971, t972, t977, t978, t984, t986; double t990, t991, t992, t994, t996, t999, t1000, t1001; double t1004, t1007, t1009, t1010, t1012, t1021, t1041, t1047; double t1048, t1049, t1050, t1052, t1053, t1058, t1061, t1062; double t1067, t1071, t1078, t1079, t1084, t1087, t1088, t1091; double t1094, t1096, t1100, t1106, t1113, t1117, t1119, t1121; double t1124, t1127, t1130, t1133, t1135, t1138, t1140, t1147; double t1149, t1152, t1153, t1156, t1161, t1166, t1168, t1173; double t1176, t1177, t1178, t1181, t1184, t1187, t1200, t1205; double t1211, t1236, t1237, t1239, t1242, t1245, t1248, t1249; double t1252, t1260, t1261, t1262, t1263, t1266, t1267, t1268; double t1271, t1274, t1277, t1278, t1281, t1288, t1291, t1294; double t1305, t1310, t1317, t1318, t1319, t1323, t1327, t1331; double t1336, t1376, t1382, t1386, t1390, t1391, t1395, t1403; double t1406, t1408, t1411, t1412, t1413, t1416, t1421, t1426; double t1431, t1440, t1452, t1455, t1466, t1470, t1475, t1480; double t1481, t1482, t1485, t1486, t1489, t1493, t1496, t1498; double t1501, t1503, t1506, t1508, t1511, t1513, t1517, t1521; double t1525, t1529, t1533, t1536, t1538, t1541, t1544, t1547; double t1551, t1553, t1558, t1560, t1563, t1568, t1573, t1578; double t1584, t1588, t1589, t1592, t1593, t1594, t1595, t1596; double t1597, t1600, t1601, t1602, t1603, t1606, t1607, t1608; double t1611, t1612, t1613, t1616, t1617, t1621, t1631, t1632; double t1633, t1636, t1637, t1640, t1642, t1645, t1646, t1649; double t1650, t1651, t1656, t1671, t1673, t1678, t1684, t1687; double t1690, t1691, t1694, t1695, t1696, t1699, t1702, t1704; double t1707, t1708, t1709, t1714, t1716, t1721, t1722, t1725; double t1727, t1730, t1732, t1737, t1741, t1744, t1745, t1748; double t1749, t1750, t1754, t1757, t1758, t1759, t1760, t1762; double t1764, t1765, t1773, t1781, t1785, t1786, t1789, t1791; double t1792, t1795, t1797, t1799, t1803, t1807, t1817, t1821; double t1825, t1853, t1854, t1855, t1861, t1864, t1865, t1869; double t1873, t1876, t1877, t1887, t1889, t1892, t1893, t1894; double t1897, t1914, t1927, t1928, t1929, t1930, t1936, t1938; double t1942, t1945, t1947, t1955, t1962, t1966, t1970, t1973; double t1975, t1983, t1987, t1990, t1993, t1996, t1999, t2000; double t2001, t2005, t2006, t2009, t2012, t2015, t2016, t2019; double t2020, t2021, t2024, t2025, t2028, t2029, t2032, t2033; double t2040, t2042, t2046, t2053, t2056, t2057, t2058, t2065; double t2066, t2069, t2072, t2077, t2084, t2088, t2091, t2092; double t2097, t2101, t2105, t2111, t2112, t2113, t2116, t2118; double t2121, t2122, t2123, t2126, t2127, t2128, t2133, t2134; double t2135, t2138, t2140, t2143, t2145, t2148, t2149, t2150; double t2154, t2157, t2158, t2159, t2162, t2164, t2167, t2168; double t2169, t2172, t2173, t2174, t2177, t2178, t2179, t2201; double t2203, t2206, t2207, t2209, t2210, t2218, t2223, t2227; double t2229, t2230, t2233, t2235, t2237, t2241, t2247, t2251; double t2257, t2261, t2264, t2265, t2277, t2278, t2279, t2282; double t2288, t2291, t2292, t2295, t2296, t2299, t2302, t2303; double t2304, t2307, t2325, t2326, t2332, t2336, t2346, t2350; double t2354, t2357, t2361, t2364, t2367, t2368, t2369, t2370; double t2372, t2375, t2378, t2381, t2383, t2386, t2387, t2390; double t2392, t2395, t2397, t2400, t2401, t2405, t2406, t2413; double t2414, t2415, t2416, t2417, t2420, t2421, t2424, t2427; double t2428, t2431, t2432, t2435, t2436, t2439, t2443, t2457; double t2459, t2462, t2470, t2471, t2473, t2476, t2478, t2482; double t2483, t2484, t2488, t2489, t2490, t2497, t2498, t2499; double t2502, t2503, t2505, t2509, t2513, t2517; #ifndef XC_DONT_COMPILE_LXC double t2526, t2531, t2551, t2552, t2562, t2582, t2587, t2594; double t2603, t2616, t2640, t2649, t2650, t2651, t2674, t2682; double t2685, t2695, t2702, t2704, t2711, t2717, t2729, t2734; double t2744, t2747, t2752, t2757, t2768, t2769, t2770, t2771; double t2772, t2773, t2775, t2778, t2781, t2784, t2785, t2788; double t2794, t2795, t2798, t2803, t2807, t2846, t2887, t2892; double t2895, t2899, t2901, t2902, t2905, t2921, t2925, t2926; double t2933, t2939, t2944, t2945, t2952, t2967, t2993, t3010; double t3016, t3020, t3023, t3052, t3060, t3064, t3088, t3099; double t3102, t3103, t3105, t3110, t3113, t3118, t3130, t3147; double t3150, t3153, t3156, t3159, t3162, t3173, t3189, t3206; double t3244, t3247, t3298, t3404, t3405, t3410, t3411, t3487; double t3513, t3539, t3540, t3547, t3551, t3562, t3564, t3567; double t3576, t3580, t3584, t3588, t3591, t3592, t3599, t3604; double t3607, t3610, t3616, t3623, t3627, t3636, t3640, t3648; double t3652, t3656, t3657, t3661, t3666, t3669, t3672, t3679; double t3686, t3707, t3728, t3750, t3772, t3777, t3809, t3814; double t3829, t3839, t3845, t3894, t3957, t3963, t3965, t3969; double t3979, t3988, t3989, t3994, t3998, t4004, t4012, t4020; double t4025, t4031, t4034, t4044, t4049, t4072, t4076, t4079; double t4081, t4084, t4088, t4093, t4097, t4119, t4134, t4136; double t4145, t4158, t4160, t4163, t4165, t4192, t4193, t4246; double t4261, t4274, t4290, t4313, t4314, t4319, t4354, t4357; double t4390, t4409, t4463, t4468, t4510, t4511, t4549, t4611; double t4615, t4619, t4624, t4625, t4655, t4663, t4666, t4669; double t4677, t4689, t4694, t4704, t4707, t4710, t4713, t4721; double t4725, t4729, t4736, t4739, t4749, t4758, t4764, t4771; double t4773, t4779, t4783, t4802, t4804, t4808, t4813, t4814; double t4840, t4855, t4872, t4873, t4879, t4883, t4887, t4891; double t4899, t4904, t4907, t4911, t4916, t4918, t4941, t4952; double t4958, t4967, t4986, t5018, t5049, t5082, t5110, t5174; double t5178, t5183, t5184, t5205, t5232, t5235, t5244, t5252; double t5269, t5270, t5277, t5299, t5332, t5343, t5348, t5393; double t5416, t5441, t5499, t5511, t5514, t5564, t5621, t5660; double t5705, t5709, t5711, t5733, t5736, t5743, t5755, t5773; double t5776, t5807, t5818, t5823, t5827, t5835, t5840, t5844; double t5848, t5855, t5859, t5863, t5866, t5868, t5875, t5878; double t5912, t5946, t5949, t6005, t6048, t6053, t6083, t6117; double t6123, t6152, t6155, t6162, t6166, t6170, t6175, t6182; double t6192, t6195, t6198, t6202, t6229, t6234, t6237, t6238; double t6253, t6257, t6275, t6301, t6310, t6333, t6360, t6367; double t6396, t6399, t6438, t6447, t6463, t6472, t6506, t6533; double t6543, t6547, t6551, t6555, t6560, t6564, t6568, t6570; double t6574, t6578, t6582, t6590, t6603, t6616, t6620, t6678; double t6699, t6704, t6755, t6760, t6794, t6814, t6839, t6883; double t6892, t6894; #endif #endif #endif #endif #endif t1 = M_CBRT3; t2 = 0.1e1 / M_PI; t3 = POW_1_3(t2); t4 = t1 * t3; t5 = M_CBRT4; t6 = t5 * t5; t7 = t4 * t6; t8 = M_CBRT2; t9 = t8 * t8; t10 = POW_1_3(rho[0]); t11 = t9 * t10; t12 = t1 * t1; t13 = M_PI * t12; t14 = 0.1e1 / t3; t15 = t14 * t5; t16 = t12 * t14; t17 = t16 * t5; t18 = sigma[0] * t9; t19 = rho[0] * rho[0]; t20 = t10 * t10; t21 = t20 * t19; t22 = 0.1e1 / t21; t23 = sqrt(sigma[0]); t24 = t23 * t8; t25 = t10 * rho[0]; t26 = 0.1e1 / t25; t28 = log(t24 * t26 + sqrt(POW_2(t24 * t26) + 0.1e1)); t29 = t26 * t28; t32 = 0.10e1 + 0.2520e-1 * t24 * t29; t33 = 0.1e1 / t32; t38 = 0.10e1 + 0.93333333333333333332e-3 * t17 * t18 * t22 * t33; t39 = 0.1e1 / t38; t41 = t13 * t15 * t39; t42 = sqrt(t41); t44 = p->cam_omega / t42; t45 = 0.1e1 / t10; t46 = t8 * t45; t48 = t44 * t46 / 0.2e1; t49 = 0.50e2 < t48; t50 = p->cam_omega * p->cam_omega; t51 = 0.1e1 / t50; t52 = t51 * M_PI; t53 = t52 * t16; t54 = t5 * t39; t55 = t8 * t20; t56 = t54 * t55; t57 = t53 * t56; t59 = t50 * t50; t60 = 0.1e1 / t59; t61 = M_PI * M_PI; t62 = t60 * t61; t63 = t3 * t3; t64 = 0.1e1 / t63; t65 = t1 * t64; t66 = t62 * t65; t67 = t38 * t38; t68 = 0.1e1 / t67; t69 = t6 * t68; t70 = t9 * t25; t75 = atan2(0.1e1, t48); t76 = t50 * t2; t77 = t76 * t4; t78 = t6 * t38; t79 = 0.1e1 / t20; t80 = t9 * t79; t84 = t77 * t78 * t80 / 0.48e2 + 0.3e1; t85 = t51 * t12; t86 = t85 * t14; t89 = 0.10e1 + 0.62831853071795864770e1 * t86 * t56; t90 = log(t89); t92 = -t84 * t90 + 0.1e1; t93 = t46 * t92; t96 = t75 + t44 * t93 / 0.8e1; t97 = t46 * t96; t101 = my_piecewise3(t49, 0.2e1 / 0.9e1 * t57 - 0.2e1 / 0.5e1 * t66 * t69 * t70, 0.10e1 - 0.4e1 / 0.3e1 * t44 * t97); t102 = t101 * t38; t104 = t7 * t11 * t102; if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC)) zk[0] = -0.3e1 / 0.16e2 * t104; #ifndef XC_DONT_COMPILE_VXC if(order < 1) return; t108 = t25 * t1 * t3; t109 = t6 * t9; t110 = t5 * t68; t111 = t19 * rho[0]; t113 = 0.1e1 / t20 / t111; t118 = t5 * sigma[0]; t119 = t16 * t118; t120 = t9 * t22; t121 = t32 * t32; t122 = 0.1e1 / t121; t123 = t10 * t19; t124 = 0.1e1 / t123; t125 = t124 * t28; t129 = t18 * t22 + 0.1e1; t130 = sqrt(t129); t131 = 0.1e1 / t130; t132 = t113 * t131; t135 = -0.33600000000000000000e-1 * t24 * t125 - 0.33600000000000000000e-1 * t18 * t132; t136 = t122 * t135; t137 = t120 * t136; t140 = -0.24888888888888888889e-2 * t17 * t18 * t113 * t33 - 0.93333333333333333332e-3 * t119 * t137; t141 = t55 * t140; t143 = t53 * t110 * t141; t145 = t54 * t46; t146 = t53 * t145; t148 = t67 * t38; t149 = 0.1e1 / t148; t150 = t6 * t149; t160 = 0.1e1 / t42 / t41; t161 = p->cam_omega * t160; t162 = t161 * t97; t163 = t13 * t14; t164 = t110 * t140; t165 = t163 * t164; t168 = t8 * t26; t169 = t168 * t96; t173 = t161 * t46 * M_PI; t174 = t16 * t164; t180 = (t173 * t174 / 0.4e1 - t44 * t168 / 0.6e1) * t51; t181 = t180 * t163; t183 = 0.1e1 + 0.2e1 * t57; t184 = 0.1e1 / t183; t186 = t54 * t55 * t184; t189 = t161 * t93; t192 = t168 * t92; t195 = t6 * t140; t199 = t20 * rho[0]; t200 = 0.1e1 / t199; t201 = t9 * t200; t205 = t77 * t195 * t80 / 0.48e2 - t77 * t78 * t201 / 0.72e2; t207 = t85 * t15; t208 = t68 * t8; t209 = t20 * t140; t215 = -0.62831853071795864770e1 * t207 * t208 * t209 + 0.41887902047863909847e1 * t86 * t145; t217 = 0.1e1 / t89; t219 = -t84 * t215 * t217 - t205 * t90; t220 = t46 * t219; t223 = -0.2e1 * t181 * t186 + t189 * t165 / 0.16e2 - t44 * t192 / 0.24e2 + t44 * t220 / 0.8e1; t224 = t46 * t223; t228 = my_piecewise3(t49, -0.2e1 / 0.9e1 * t143 + 0.4e1 / 0.27e2 * t146 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t140 - 0.8e1 / 0.15e2 * t66 * t69 * t11, -0.2e1 / 0.3e1 * t162 * t165 + 0.4e1 / 0.9e1 * t44 * t169 - 0.4e1 / 0.3e1 * t44 * t224); t229 = t228 * t38; t233 = t101 * t140; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[0] = -t104 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t109 * t229 - 0.3e1 / 0.16e2 * t108 * t109 * t233; t241 = 0.1e1 / t23 * t8; t246 = 0.12600000000000000000e-1 * t241 * t29 + 0.12600000000000000000e-1 * t120 * t131; t247 = t122 * t246; t248 = t120 * t247; t251 = 0.93333333333333333332e-3 * t17 * t120 * t33 - 0.93333333333333333332e-3 * t119 * t248; t252 = t55 * t251; t256 = t70 * t251; t262 = t163 * t110 * t251; t265 = 0.1e1 / p->cam_omega; t266 = t265 * t160; t268 = t266 * t11 * t61; t269 = t65 * t6; t270 = t149 * t251; t272 = t269 * t270 * t184; t277 = t6 * t251; t278 = t80 * t90; t282 = t84 * t51; t283 = t282 * t17; t284 = t20 * t251; t286 = t208 * t284 * t217; t289 = -t77 * t277 * t278 / 0.48e2 + 0.62831853071795864770e1 * t283 * t286; t290 = t46 * t289; t293 = -0.3e1 / 0.2e1 * t268 * t272 + t189 * t262 / 0.16e2 + t44 * t290 / 0.8e1; t294 = t46 * t293; t298 = my_piecewise3(t49, -0.2e1 / 0.9e1 * t53 * t110 * t252 + 0.4e1 / 0.5e1 * t66 * t150 * t256, -0.2e1 / 0.3e1 * t162 * t262 - 0.4e1 / 0.3e1 * t44 * t294); t300 = t109 * t298 * t38; t303 = t109 * t101 * t251; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[0] = -0.3e1 / 0.16e2 * t108 * t300 - 0.3e1 / 0.16e2 * t108 * t303; #ifndef XC_DONT_COMPILE_FXC if(order < 2) return; t315 = t5 * t149; t316 = t140 * t140; t319 = t53 * t315 * t55 * t316; t323 = t53 * t110 * t46 * t140; t325 = t19 * t19; t327 = 0.1e1 / t20 / t325; t332 = t9 * t113; t333 = t332 * t136; t337 = 0.1e1 / t121 / t32; t338 = t135 * t135; t339 = t337 * t338; t340 = t120 * t339; t344 = 0.1e1 / t10 / t111; t345 = t344 * t28; t348 = t327 * t131; t351 = sigma[0] * sigma[0]; t352 = t351 * t8; t355 = 0.1e1 / t10 / t325 / t111; t357 = 0.1e1 / t130 / t129; t361 = 0.78400000000000000000e-1 * t24 * t345 + 0.16800000000000000000e0 * t18 * t348 - 0.89600000000000000000e-1 * t352 * t355 * t357; t362 = t122 * t361; t363 = t120 * t362; t366 = 0.91259259259259259260e-2 * t17 * t18 * t327 * t33 + 0.49777777777777777778e-2 * t119 * t333 + 0.18666666666666666666e-2 * t119 * t340 - 0.93333333333333333332e-3 * t119 * t363; t369 = t53 * t110 * t55 * t366; t371 = t54 * t168; t372 = t53 * t371; t374 = t67 * t67; t375 = 0.1e1 / t374; t376 = t6 * t375; t393 = t61 * t1; t394 = t64 * t6; t399 = 0.1e1 / t42 / t393 / t394 / t68 / 0.3e1; t400 = p->cam_omega * t399; t401 = t400 * t97; t402 = t393 * t64; t403 = t376 * t316; t404 = t402 * t403; t407 = t161 * t169; t410 = t161 * t224; t413 = t315 * t316; t414 = t163 * t413; t417 = t110 * t366; t418 = t163 * t417; t421 = t8 * t124; t422 = t421 * t96; t425 = t168 * t223; t429 = t400 * t46 * t61; t430 = t65 * t403; t434 = t161 * t168 * M_PI; t437 = t16 * t413; t440 = t16 * t417; t446 = (0.9e1 / 0.8e1 * t429 * t430 - t434 * t174 / 0.6e1 - t173 * t437 / 0.2e1 + t173 * t440 / 0.4e1 + 0.2e1 / 0.9e1 * t44 * t421) * t51; t447 = t446 * t163; t450 = t110 * t8; t451 = t20 * t184; t453 = t450 * t451 * t140; t457 = t54 * t46 * t184; t460 = t54 * t8; t461 = t183 * t183; t462 = 0.1e1 / t461; t463 = t20 * t462; t466 = -0.2e1 * t143 + 0.4e1 / 0.3e1 * t146; t468 = t460 * t463 * t466; t471 = t400 * t93; t474 = t161 * t192; t477 = t161 * t220; t484 = t421 * t92; t487 = t168 * t219; t490 = t6 * t366; t500 = t77 * t490 * t80 / 0.48e2 - t77 * t195 * t201 / 0.36e2 + 0.5e1 / 0.216e3 * t77 * t78 * t120; t505 = t149 * t8; t506 = t20 * t316; t510 = t45 * t140; t520 = 0.12566370614359172954e2 * t207 * t505 * t506 - 0.83775804095727819694e1 * t207 * t208 * t510 - 0.62831853071795864770e1 * t207 * t208 * t20 * t366 - 0.13962634015954636616e1 * t86 * t371; t521 = t84 * t520; t523 = t215 * t215; t525 = t89 * t89; t526 = 0.1e1 / t525; t528 = -0.2e1 * t205 * t215 * t217 + t84 * t523 * t526 - t521 * t217 - t500 * t90; t529 = t46 * t528; t532 = -0.2e1 * t447 * t186 + 0.2e1 * t181 * t453 - 0.4e1 / 0.3e1 * t181 * t457 + 0.2e1 * t181 * t468 + 0.9e1 / 0.32e2 * t471 * t404 - t474 * t165 / 0.24e2 + t477 * t165 / 0.8e1 - t189 * t414 / 0.8e1 + t189 * t418 / 0.16e2 + t44 * t484 / 0.18e2 - t44 * t487 / 0.12e2 + t44 * t529 / 0.8e1; t533 = t46 * t532; t537 = my_piecewise3(t49, 0.4e1 / 0.9e1 * t319 - 0.8e1 / 0.27e2 * t323 - 0.2e1 / 0.9e1 * t369 - 0.4e1 / 0.81e2 * t372 - 0.12e2 / 0.5e1 * t66 * t376 * t70 * t316 + 0.32e2 / 0.15e2 * t66 * t150 * t11 * t140 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t366 - 0.8e1 / 0.45e2 * t66 * t69 * t80, -0.3e1 * t401 * t404 + 0.4e1 / 0.9e1 * t407 * t165 - 0.4e1 / 0.3e1 * t410 * t165 + 0.4e1 / 0.3e1 * t162 * t414 - 0.2e1 / 0.3e1 * t162 * t418 - 0.16e2 / 0.27e2 * t44 * t422 + 0.8e1 / 0.9e1 * t44 * t425 - 0.4e1 / 0.3e1 * t44 * t533); t538 = t537 * t38; t542 = t228 * t140; t546 = t101 * t366; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[0] = -t7 * t80 * t102 / 0.12e2 - t7 * t11 * t229 / 0.2e1 - t7 * t11 * t233 / 0.2e1 - 0.3e1 / 0.16e2 * t108 * t109 * t538 - 0.3e1 / 0.8e1 * t108 * t109 * t542 - 0.3e1 / 0.16e2 * t108 * t109 * t546; t551 = t10 * t1 * t3; t554 = t52 * t17; t559 = t46 * t251; t568 = t332 * t247; t571 = t337 * t246; t572 = t571 * t135; t580 = t325 * t19; t582 = 0.1e1 / t10 / t580; t583 = t8 * t582; t584 = t357 * sigma[0]; t587 = -0.16800000000000000000e-1 * t241 * t125 - 0.50400000000000000000e-1 * t332 * t131 + 0.33600000000000000000e-1 * t583 * t584; t588 = t122 * t587; t589 = t120 * t588; t592 = -0.24888888888888888889e-2 * t17 * t332 * t33 - 0.93333333333333333332e-3 * t17 * t137 + 0.24888888888888888889e-2 * t119 * t568 + 0.18666666666666666666e-2 * t119 * t120 * t572 - 0.93333333333333333332e-3 * t119 * t589; t593 = t55 * t592; t597 = t62 * t269; t598 = t375 * t9; t599 = t25 * t251; t613 = t400 * t8; t614 = t45 * t96; t616 = t613 * t614 * t61; t617 = t375 * t251; t619 = t269 * t617 * t140; t626 = t161 * t8; t628 = t626 * t614 * M_PI; t630 = t17 * t270 * t140; t634 = t163 * t110 * t592; t637 = t161 * t294; t640 = t168 * t293; t643 = t265 * t399; t644 = t643 * t11; t645 = t61 * t61; t647 = 0.1e1 / t374 / t38; t648 = t645 * t647; t649 = t251 * t184; t650 = t649 * t140; t651 = t648 * t650; t655 = t266 * t80 * t61; t658 = t266 * t9; t661 = t658 * t10 * t61 * t1; t662 = t394 * t375; t663 = t662 * t650; t666 = t149 * t592; t668 = t269 * t666 * t184; t671 = t394 * t149; t672 = t251 * t462; t674 = t671 * t672 * t466; t677 = t45 * t92; t679 = t613 * t677 * t61; t687 = t626 * t677 * M_PI; t692 = t161 * t290; t695 = t168 * t289; t698 = t6 * t592; t702 = t201 * t90; t706 = t76 * t7; t707 = t251 * t9; t709 = t79 * t215 * t217; t713 = t205 * t51; t714 = t713 * t17; t717 = t505 * t20; t718 = t251 * t217; t719 = t718 * t140; t720 = t717 * t719; t723 = t45 * t251; t725 = t208 * t723 * t217; t728 = t20 * t592; t730 = t208 * t728 * t217; t733 = t208 * t20; t734 = t251 * t526; t735 = t734 * t215; t736 = t733 * t735; t739 = -t77 * t698 * t278 / 0.48e2 + t77 * t277 * t702 / 0.72e2 - t706 * t707 * t709 / 0.48e2 + 0.62831853071795864770e1 * t714 * t286 - 0.12566370614359172954e2 * t283 * t720 + 0.41887902047863909847e1 * t283 * t725 + 0.62831853071795864770e1 * t283 * t730 - 0.62831853071795864770e1 * t283 * t736; t740 = t46 * t739; t743 = -0.27e2 * t644 * t651 - t655 * t272 / 0.2e1 + 0.9e1 / 0.2e1 * t661 * t663 - 0.3e1 / 0.2e1 * t268 * t668 + 0.3e1 / 0.2e1 * t661 * t674 + 0.9e1 / 0.32e2 * t679 * t619 - t474 * t262 / 0.48e2 + t477 * t262 / 0.16e2 - t687 * t630 / 0.8e1 + t189 * t634 / 0.16e2 + t692 * t165 / 0.16e2 - t44 * t695 / 0.24e2 + t44 * t740 / 0.8e1; t744 = t46 * t743; t748 = my_piecewise3(t49, 0.4e1 / 0.9e1 * t554 * t505 * t284 * t140 - 0.4e1 / 0.27e2 * t53 * t110 * t559 - 0.2e1 / 0.9e1 * t53 * t110 * t593 - 0.12e2 / 0.5e1 * t597 * t598 * t599 * t140 + 0.16e2 / 0.15e2 * t66 * t150 * t11 * t251 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t592, -0.3e1 * t616 * t619 + 0.2e1 / 0.9e1 * t407 * t262 - 0.2e1 / 0.3e1 * t410 * t262 + 0.4e1 / 0.3e1 * t628 * t630 - 0.2e1 / 0.3e1 * t162 * t634 - 0.2e1 / 0.3e1 * t637 * t165 + 0.4e1 / 0.9e1 * t44 * t640 - 0.4e1 / 0.3e1 * t44 * t744); t750 = t109 * t748 * t38; t754 = t109 * t298 * t140; t760 = t109 * t228 * t251; t764 = t109 * t101 * t592; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[0] = -t551 * t300 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t750 - 0.3e1 / 0.16e2 * t108 * t754 - t551 * t303 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t760 - 0.3e1 / 0.16e2 * t108 * t764; t767 = t251 * t251; t768 = t55 * t767; t774 = t246 * t246; t775 = t337 * t774; t776 = t120 * t775; t781 = 0.1e1 / t23 / sigma[0] * t8; t784 = 0.1e1 / sigma[0]; t785 = t784 * t9; t786 = t22 * t131; t789 = t325 * rho[0]; t791 = 0.1e1 / t10 / t789; t795 = -0.63000000000000000000e-2 * t781 * t29 + 0.63000000000000000000e-2 * t785 * t786 - 0.12600000000000000000e-1 * t8 * t791 * t357; t796 = t122 * t795; t797 = t120 * t796; t800 = -0.18666666666666666666e-2 * t17 * t248 + 0.18666666666666666666e-2 * t119 * t776 - 0.93333333333333333332e-3 * t119 * t797; t801 = t55 * t800; t805 = t70 * t767; t809 = t70 * t800; t815 = t402 * t376 * t767; t821 = t163 * t315 * t767; t825 = t163 * t110 * t800; t828 = t767 * t184; t829 = t648 * t828; t832 = t375 * t767; t834 = t269 * t832 * t184; t837 = t149 * t800; t839 = t269 * t837 * t184; t842 = t50 * p->cam_omega; t843 = 0.1e1 / t842; t844 = t843 * t160; t845 = t844 * rho[0]; t846 = t767 * t462; t858 = t6 * t800; t862 = t767 * t68; t865 = t2 * t767; t866 = t68 * t217; t869 = t20 * t767; t871 = t505 * t869 * t217; t874 = t20 * t800; t876 = t208 * t874 * t217; t879 = t84 * t60; t880 = t879 * t269; t881 = t25 * t767; t883 = t598 * t881 * t526; t886 = -t77 * t858 * t278 / 0.48e2 + 0.10000000000000000000e1 * t862 * t217 + M_PI * t865 * t866 - 0.12566370614359172954e2 * t283 * t871 + 0.62831853071795864770e1 * t283 * t876 + 0.11843525281307230343e3 * t880 * t883; t887 = t46 * t886; t890 = -0.27e2 * t644 * t829 + 0.9e1 / 0.2e1 * t268 * t834 - 0.3e1 / 0.2e1 * t268 * t839 - 0.72e2 * t845 * t648 * t846 + 0.9e1 / 0.32e2 * t471 * t815 + t692 * t262 / 0.8e1 - t189 * t821 / 0.8e1 + t189 * t825 / 0.16e2 + t44 * t887 / 0.8e1; t891 = t46 * t890; t895 = my_piecewise3(t49, 0.4e1 / 0.9e1 * t53 * t315 * t768 - 0.2e1 / 0.9e1 * t53 * t110 * t801 - 0.12e2 / 0.5e1 * t66 * t376 * t805 + 0.4e1 / 0.5e1 * t66 * t150 * t809, -0.3e1 * t401 * t815 - 0.4e1 / 0.3e1 * t637 * t262 + 0.4e1 / 0.3e1 * t162 * t821 - 0.2e1 / 0.3e1 * t162 * t825 - 0.4e1 / 0.3e1 * t44 * t891); t897 = t109 * t895 * t38; t901 = t109 * t298 * t251; t905 = t109 * t101 * t800; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[0] = -0.3e1 / 0.16e2 * t108 * t897 - 0.3e1 / 0.8e1 * t108 * t901 - 0.3e1 / 0.16e2 * t108 * t905; #ifndef XC_DONT_COMPILE_KXC if(order < 3) return; t926 = t5 * t375; t927 = t316 * t140; t930 = t53 * t926 * t55 * t927; t934 = t53 * t315 * t46 * t316; t937 = t505 * t209 * t366; t938 = t554 * t937; t942 = t53 * t110 * t168 * t140; t946 = t53 * t110 * t46 * t366; t949 = 0.1e1 / t20 / t789; t954 = t9 * t327; t955 = t954 * t136; t958 = t332 * t339; t961 = t332 * t362; t964 = t121 * t121; t965 = 0.1e1 / t964; t966 = t338 * t135; t967 = t965 * t966; t968 = t120 * t967; t971 = t337 * t135; t972 = t971 * t361; t977 = 0.1e1 / t10 / t325; t978 = t977 * t28; t984 = t325 * t325; t986 = 0.1e1 / t10 / t984; t990 = t351 * sigma[0]; t991 = t984 * t111; t992 = 0.1e1 / t991; t994 = t129 * t129; t996 = 0.1e1 / t130 / t994; t999 = -0.26133333333333333333e0 * t24 * t978 - 0.88853333333333333333e0 * t18 * t949 * t131 + 0.11050666666666666667e1 * t352 * t986 * t357 - 0.71680000000000000000e0 * t990 * t992 * t996; t1000 = t122 * t999; t1001 = t120 * t1000; t1004 = -0.42587654320987654321e-1 * t17 * t18 * t949 * t33 - 0.27377777777777777778e-1 * t119 * t955 - 0.14933333333333333333e-1 * t119 * t958 + 0.74666666666666666667e-2 * t119 * t961 - 0.55999999999999999998e-2 * t119 * t968 + 0.55999999999999999998e-2 * t119 * t120 * t972 - 0.93333333333333333332e-3 * t119 * t1001; t1007 = t53 * t110 * t55 * t1004; t1009 = t54 * t421; t1010 = t53 * t1009; t1012 = t6 * t647; t1021 = t25 * t140; t1041 = -0.4e1 / 0.3e1 * t930 + 0.8e1 / 0.9e1 * t934 + 0.4e1 / 0.3e1 * t938 + 0.4e1 / 0.27e2 * t942 - 0.4e1 / 0.9e1 * t946 - 0.2e1 / 0.9e1 * t1007 + 0.16e2 / 0.243e3 * t1010 + 0.48e2 / 0.5e1 * t66 * t1012 * t70 * t927 - 0.48e2 / 0.5e1 * t66 * t376 * t11 * t316 - 0.36e2 / 0.5e1 * t597 * t598 * t1021 * t366 + 0.16e2 / 0.15e2 * t66 * t150 * t80 * t140 + 0.16e2 / 0.5e1 * t66 * t150 * t11 * t366 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t1004 + 0.16e2 / 0.135e3 * t66 * t69 * t201; t1047 = 0.1e1 / t42 / t645 / t149 / 0.36e2; t1048 = p->cam_omega * t1047; t1049 = t1048 * t8; t1050 = t45 * t645; t1052 = 0.1e1 / t374 / t67; t1053 = t1052 * t927; t1058 = t400 * t168 * t61; t1061 = t1012 * t927; t1062 = t65 * t1061; t1067 = t269 * t375 * t140 * t366; t1071 = t161 * t421 * M_PI; t1078 = t926 * t927; t1079 = t16 * t1078; t1084 = t17 * t149 * t140 * t366; t1087 = t110 * t1004; t1088 = t16 * t1087; t1091 = t8 * t344; t1094 = 0.135e3 / 0.4e1 * t1049 * t1050 * t1053 - 0.9e1 / 0.8e1 * t1058 * t430 - 0.27e2 / 0.4e1 * t429 * t1062 + 0.27e2 / 0.8e1 * t429 * t1067 + t1071 * t174 / 0.3e1 + t434 * t437 / 0.2e1 - t434 * t440 / 0.4e1 + 0.3e1 / 0.2e1 * t173 * t1079 - 0.3e1 / 0.2e1 * t173 * t1084 + t173 * t1088 / 0.4e1 - 0.14e2 / 0.27e2 * t44 * t1091; t1096 = t1094 * t51 * t163; t1100 = t54 * t168 * t184; t1106 = t450 * t451 * t366; t1113 = t163 * t1078; t1117 = 0.1e1 / t461 / t183; t1119 = t466 * t466; t1121 = t460 * t20 * t1117 * t1119; t1124 = t400 * t192; t1127 = t402 * t1061; t1130 = t161 * t484; t1133 = t315 * t8; t1135 = t1133 * t451 * t316; t1138 = t45 * t184; t1140 = t450 * t1138 * t140; t1147 = 0.4e1 * t319 - 0.8e1 / 0.3e1 * t323 - 0.2e1 * t369 - 0.4e1 / 0.9e1 * t372; t1149 = t460 * t463 * t1147; t1152 = -0.8e1 / 0.3e1 * t447 * t457 - 0.2e1 * t1096 * t186 + 0.4e1 / 0.9e1 * t181 * t1100 + 0.4e1 * t447 * t468 + 0.2e1 * t181 * t1106 + t474 * t414 / 0.8e1 - 0.3e1 / 0.8e1 * t477 * t414 + 0.3e1 / 0.8e1 * t189 * t1113 - 0.4e1 * t181 * t1121 - 0.9e1 / 0.32e2 * t1124 * t404 - 0.27e2 / 0.16e2 * t471 * t1127 + t1130 * t165 / 0.12e2 - 0.4e1 * t181 * t1135 + 0.8e1 / 0.3e1 * t181 * t1140 + 0.2e1 * t181 * t1149; t1153 = t400 * t220; t1156 = t161 * t487; t1161 = t161 * t529; t1166 = t45 * t462; t1168 = t460 * t1166 * t466; t1173 = t163 * t1087; t1176 = t1048 * t46; t1177 = t92 * t645; t1178 = t1177 * t1053; t1181 = t1091 * t92; t1184 = t168 * t528; t1187 = t6 * t1004; t1200 = t77 * t1187 * t80 / 0.48e2 - t77 * t490 * t201 / 0.24e2 + 0.5e1 / 0.72e2 * t77 * t195 * t120 - 0.5e1 / 0.81e2 * t77 * t78 * t332; t1205 = t205 * t520; t1211 = t375 * t8; t1236 = -0.37699111843077518862e2 * t207 * t1211 * t20 * t927 + 0.25132741228718345908e2 * t207 * t505 * t45 * t316 + 0.37699111843077518862e2 * t207 * t937 + 0.41887902047863909847e1 * t207 * t208 * t26 * t140 - 0.12566370614359172954e2 * t207 * t208 * t45 * t366 - 0.62831853071795864770e1 * t207 * t208 * t20 * t1004 + 0.18616845354606182155e1 * t86 * t1009; t1237 = t84 * t1236; t1239 = t526 * t215; t1242 = t523 * t215; t1245 = 0.1e1 / t525 / t89; t1248 = -0.2e1 * t84 * t1242 * t1245 + 0.3e1 * t205 * t523 * t526 - 0.3e1 * t500 * t215 * t217 - t1200 * t90 - 0.3e1 * t1205 * t217 - t1237 * t217 + 0.3e1 * t521 * t1239; t1249 = t46 * t1248; t1252 = t421 * t219; t1260 = t180 * M_PI * t17; t1261 = t462 * t140; t1262 = t1261 * t466; t1263 = t733 * t1262; t1266 = 0.27e2 / 0.32e2 * t1153 * t404 - t1156 * t165 / 0.8e1 - t474 * t418 / 0.16e2 + 0.3e1 / 0.16e2 * t1161 * t165 + 0.3e1 / 0.16e2 * t477 * t418 + 0.8e1 / 0.3e1 * t181 * t1168 + 0.4e1 * t447 * t453 + t189 * t1173 / 0.16e2 + 0.135e3 / 0.16e2 * t1176 * t1178 - 0.7e1 / 0.54e2 * t44 * t1181 - t44 * t1184 / 0.8e1 + t44 * t1249 / 0.8e1 + t44 * t1252 / 0.6e1 - 0.3e1 / 0.8e1 * t687 * t1084 + 0.27e2 / 0.32e2 * t679 * t1067 - 0.4e1 * t1260 * t1263; t1267 = t1152 + t1266; t1268 = t46 * t1267; t1271 = t168 * t532; t1274 = t421 * t223; t1277 = t96 * t645; t1278 = t1277 * t1053; t1281 = t1091 * t96; t1288 = t161 * t533; t1291 = t400 * t224; t1294 = t161 * t425; t1305 = t161 * t422; t1310 = t400 * t169; t1317 = -0.4e1 / 0.3e1 * t44 * t1268 + 0.4e1 / 0.3e1 * t44 * t1271 - 0.16e2 / 0.9e1 * t44 * t1274 - 0.90e2 * t1176 * t1278 + 0.112e3 / 0.81e2 * t44 * t1281 - 0.2e1 / 0.3e1 * t162 * t1173 - 0.2e1 * t410 * t418 - 0.2e1 * t1288 * t165 - 0.9e1 * t1291 * t404 + 0.4e1 / 0.3e1 * t1294 * t165 + 0.2e1 / 0.3e1 * t407 * t418 + 0.4e1 * t628 * t1084 + 0.4e1 * t410 * t414 - 0.4e1 * t162 * t1113 - 0.8e1 / 0.9e1 * t1305 * t165 - 0.4e1 / 0.3e1 * t407 * t414 + 0.3e1 * t1310 * t404 + 0.18e2 * t401 * t1127 - 0.9e1 * t616 * t1067; t1318 = my_piecewise3(t49, t1041, t1317); t1319 = t1318 * t38; t1323 = t537 * t140; t1327 = t228 * t366; t1331 = t101 * t1004; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[0] = t7 * t201 * t102 / 0.18e2 - t7 * t80 * t229 / 0.4e1 - t7 * t80 * t233 / 0.4e1 - 0.3e1 / 0.4e1 * t7 * t11 * t538 - 0.3e1 / 0.2e1 * t7 * t11 * t542 - 0.3e1 / 0.4e1 * t7 * t11 * t546 - 0.3e1 / 0.16e2 * t108 * t109 * t1319 - 0.9e1 / 0.16e2 * t108 * t109 * t1323 - 0.9e1 / 0.16e2 * t108 * t109 * t1327 - 0.3e1 / 0.16e2 * t108 * t109 * t1331; t1336 = t79 * t1 * t3; t1376 = t954 * t247; t1382 = t332 * t588; t1386 = t965 * t246 * t338; t1390 = t337 * t587; t1391 = t1390 * t135; t1395 = t571 * t361; t1403 = t8 * t355; t1406 = t984 * t19; t1408 = 0.1e1 / t1406 * t996; t1411 = 0.39200000000000000000e-1 * t241 * t345 + 0.20720000000000000000e0 * t954 * t131 - 0.34720000000000000000e0 * t1403 * t584 + 0.26880000000000000000e0 * t1408 * t351; t1412 = t122 * t1411; t1413 = t120 * t1412; t1416 = 0.91259259259259259260e-2 * t17 * t954 * t33 + 0.49777777777777777778e-2 * t17 * t333 + 0.18666666666666666666e-2 * t17 * t340 - 0.93333333333333333332e-3 * t17 * t363 - 0.91259259259259259260e-2 * t119 * t1376 - 0.99555555555555555554e-2 * t119 * t332 * t572 + 0.49777777777777777778e-2 * t119 * t1382 - 0.55999999999999999998e-2 * t119 * t120 * t1386 + 0.37333333333333333332e-2 * t119 * t120 * t1391 + 0.18666666666666666666e-2 * t119 * t120 * t1395 - 0.93333333333333333332e-3 * t119 * t1413; t1421 = t647 * t9; t1426 = t10 * t251; t1431 = t25 * t592; t1440 = t80 * t251; t1452 = -0.4e1 / 0.3e1 * t554 * t1211 * t284 * t316 + 0.16e2 / 0.27e2 * t554 * t505 * t723 * t140 + 0.8e1 / 0.9e1 * t554 * t505 * t728 * t140 + 0.4e1 / 0.9e1 * t554 * t505 * t284 * t366 + 0.4e1 / 0.81e2 * t53 * t110 * t168 * t251 - 0.8e1 / 0.27e2 * t53 * t110 * t46 * t592 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t1416 + 0.48e2 / 0.5e1 * t597 * t1421 * t599 * t316 - 0.32e2 / 0.5e1 * t597 * t598 * t1426 * t140 - 0.24e2 / 0.5e1 * t597 * t598 * t1431 * t140 - 0.12e2 / 0.5e1 * t597 * t598 * t599 * t366 + 0.16e2 / 0.45e2 * t66 * t150 * t1440 + 0.32e2 / 0.15e2 * t66 * t150 * t11 * t592 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t1416; t1455 = t161 * t744; t1466 = t400 * t294; t1470 = t163 * t110 * t1416; t1475 = t161 * t640; t1480 = t1052 * t251; t1481 = t1480 * t316; t1482 = t1277 * t1481; t1485 = -0.2e1 / 0.3e1 * t1288 * t262 - 0.4e1 / 0.3e1 * t1455 * t165 - 0.4e1 / 0.3e1 * t410 * t634 + 0.4e1 / 0.9e1 * t1294 * t262 + 0.4e1 / 0.9e1 * t407 * t634 - 0.2e1 / 0.3e1 * t637 * t418 - 0.3e1 * t1466 * t404 - 0.2e1 / 0.3e1 * t162 * t1470 + 0.4e1 / 0.3e1 * t637 * t414 + 0.4e1 / 0.9e1 * t1475 * t165 - 0.8e1 / 0.27e2 * t1305 * t262 - 0.90e2 * t1176 * t1482; t1486 = t421 * t293; t1489 = t168 * t743; t1493 = t17 * t617 * t316; t1496 = t26 * t96; t1498 = t613 * t1496 * t61; t1501 = t647 * t251; t1503 = t269 * t1501 * t316; t1506 = t45 * t223; t1508 = t613 * t1506 * t61; t1511 = t375 * t592; t1513 = t269 * t1511 * t140; t1517 = t269 * t617 * t366; t1521 = t626 * t1496 * M_PI; t1525 = t626 * t1506 * M_PI; t1529 = t17 * t666 * t140; t1533 = t17 * t270 * t366; t1536 = t140 * t466; t1538 = t662 * t672 * t1536; t1541 = t421 * t289; t1544 = t168 * t739; t1547 = t6 * t1416; t1551 = t20 * t1416; t1553 = t208 * t1551 * t217; t1558 = t45 * t592; t1560 = t208 * t1558 * t217; t1563 = t120 * t90; t1568 = t200 * t215 * t217; t1573 = t79 * t520 * t217; t1578 = t500 * t51 * t17; t1584 = t592 * t9; t1588 = t505 * t45; t1589 = t1588 * t719; t1592 = t282 * t12; t1593 = t15 * t149; t1594 = t1592 * t1593; t1595 = t526 * t140; t1596 = t1595 * t215; t1597 = t252 * t1596; t1600 = -t77 * t1547 * t278 / 0.48e2 + 0.62831853071795864770e1 * t283 * t1553 + 0.12566370614359172954e2 * t714 * t730 + 0.83775804095727819694e1 * t283 * t1560 - 0.5e1 / 0.216e3 * t77 * t277 * t1563 + t706 * t707 * t1568 / 0.36e2 - t706 * t707 * t1573 / 0.48e2 + 0.62831853071795864770e1 * t1578 * t286 + t77 * t698 * t702 / 0.36e2 - t706 * t1584 * t709 / 0.24e2 - 0.16755160819145563939e2 * t283 * t1589 + 0.25132741228718345908e2 * t1594 * t1597; t1601 = t251 * t1245; t1602 = t1601 * t523; t1603 = t733 * t1602; t1606 = t1211 * t20; t1607 = t718 * t316; t1608 = t1606 * t1607; t1611 = t592 * t526; t1612 = t1611 * t215; t1613 = t733 * t1612; t1616 = t734 * t520; t1617 = t733 * t1616; t1621 = t79 * t523 * t526; t1631 = t592 * t217; t1632 = t1631 * t140; t1633 = t717 * t1632; t1636 = t718 * t366; t1637 = t717 * t1636; t1640 = t26 * t251; t1642 = t208 * t1640 * t217; t1645 = t208 * t45; t1646 = t1645 * t735; t1649 = 0.12566370614359172954e2 * t283 * t1603 + 0.37699111843077518862e2 * t283 * t1608 - 0.12566370614359172954e2 * t283 * t1613 - 0.62831853071795864770e1 * t283 * t1617 + t706 * t707 * t1621 / 0.48e2 - 0.25132741228718345908e2 * t714 * t720 + 0.83775804095727819694e1 * t714 * t725 - 0.12566370614359172954e2 * t714 * t736 - 0.25132741228718345908e2 * t283 * t1633 - 0.12566370614359172954e2 * t283 * t1637 - 0.13962634015954636616e1 * t283 * t1642 - 0.83775804095727819694e1 * t283 * t1646; t1650 = t1600 + t1649; t1651 = t46 * t1650; t1656 = t400 * t290; t1671 = t149 * t1416; t1673 = t269 * t1671 * t184; t1678 = t161 * t695; t1684 = t266 * t201 * t61; t1687 = t161 * t740; t1690 = t649 * t366; t1691 = t648 * t1690; t1694 = t592 * t184; t1695 = t1694 * t140; t1696 = t648 * t1695; t1699 = t1177 * t1481; t1702 = t189 * t1470 / 0.16e2 - t655 * t668 - 0.3e1 / 0.2e1 * t268 * t1673 - t692 * t414 / 0.8e1 - t1678 * t165 / 0.24e2 + t1130 * t262 / 0.36e2 + t1684 * t272 / 0.3e1 + t1687 * t165 / 0.8e1 - 0.27e2 * t644 * t1691 - 0.54e2 * t644 * t1696 + 0.135e3 / 0.16e2 * t1176 * t1699; t1704 = t643 * t80; t1707 = t645 * t1052; t1708 = t649 * t316; t1709 = t1707 * t1708; t1714 = t26 * t92; t1716 = t613 * t1714 * t61; t1721 = t394 * t647; t1722 = t1721 * t1708; t1725 = t251 * t1117; t1727 = t671 * t1725 * t1119; t1730 = t45 * t219; t1732 = t626 * t1730 * M_PI; t1737 = t658 * t79 * t61 * t1; t1741 = t662 * t1695; t1744 = -0.18e2 * t1704 * t651 + 0.216e3 * t644 * t1709 + 0.3e1 / 0.8e1 * t687 * t1493 - 0.3e1 / 0.16e2 * t1716 * t619 - 0.27e2 / 0.16e2 * t679 * t1503 - 0.18e2 * t661 * t1722 - 0.3e1 * t661 * t1727 - t1732 * t630 / 0.4e1 + 0.3e1 * t1737 * t663 + t1737 * t674 + 0.9e1 * t661 * t1741; t1745 = t662 * t1690; t1748 = t592 * t462; t1749 = t1748 * t466; t1750 = t671 * t1749; t1754 = t671 * t672 * t1147; t1757 = t265 * t1047; t1758 = t1757 * t9; t1759 = t645 * M_PI; t1760 = t10 * t1759; t1762 = 0.1e1 / t374 / t148; t1764 = t1758 * t1760 * t1762; t1765 = t1708 * t17; t1773 = t613 * t1730 * t61; t1781 = t626 * t1714 * M_PI; t1785 = t643 * t11 * t645; t1786 = t1501 * t1262; t1789 = 0.9e1 / 0.2e1 * t661 * t1745 + 0.3e1 * t661 * t1750 + 0.3e1 / 0.2e1 * t661 * t1754 - 0.135e3 / 0.2e1 * t1764 * t1765 - t687 * t1529 / 0.4e1 - t687 * t1533 / 0.8e1 + 0.9e1 / 0.16e2 * t1773 * t619 + 0.9e1 / 0.16e2 * t679 * t1513 + 0.9e1 / 0.32e2 * t679 * t1517 + t1781 * t630 / 0.12e2 + 0.54e2 * t1785 * t1786; t1791 = -0.9e1 * t661 * t1538 + t44 * t1541 / 0.18e2 - t44 * t1544 / 0.12e2 + t44 * t1651 / 0.8e1 + t692 * t418 / 0.16e2 + 0.9e1 / 0.32e2 * t1656 * t404 - t1156 * t262 / 0.24e2 - t474 * t634 / 0.24e2 + t1161 * t262 / 0.16e2 + t477 * t634 / 0.8e1 + t1702 + t1744 + t1789; t1792 = t46 * t1791; t1795 = -0.16e2 / 0.27e2 * t44 * t1486 + 0.8e1 / 0.9e1 * t44 * t1489 - 0.4e1 * t628 * t1493 + 0.2e1 * t1498 * t619 + 0.18e2 * t616 * t1503 - 0.6e1 * t1508 * t619 - 0.6e1 * t616 * t1513 - 0.3e1 * t616 * t1517 - 0.8e1 / 0.9e1 * t1521 * t630 + 0.8e1 / 0.3e1 * t1525 * t630 + 0.8e1 / 0.3e1 * t628 * t1529 + 0.4e1 / 0.3e1 * t628 * t1533 - 0.4e1 / 0.3e1 * t44 * t1792; t1797 = my_piecewise3(t49, t1452, t1485 + t1795); t1799 = t109 * t1797 * t38; t1803 = t109 * t748 * t140; t1807 = t109 * t298 * t366; t1817 = t109 * t537 * t251; t1821 = t109 * t228 * t592; t1825 = t109 * t101 * t1416; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[0] = -t1336 * t300 / 0.12e2 - t551 * t750 / 0.2e1 - t551 * t754 / 0.2e1 - 0.3e1 / 0.16e2 * t108 * t1799 - 0.3e1 / 0.8e1 * t108 * t1803 - 0.3e1 / 0.16e2 * t108 * t1807 - t1336 * t303 / 0.12e2 - t551 * t760 / 0.2e1 - t551 * t764 / 0.2e1 - 0.3e1 / 0.16e2 * t108 * t1817 - 0.3e1 / 0.8e1 * t108 * t1821 - 0.3e1 / 0.16e2 * t108 * t1825; t1853 = t16 * t5 * t9; t1854 = t22 * t337; t1855 = t246 * t135; t1861 = t332 * t775; t1864 = t965 * t774; t1865 = t1864 * t135; t1869 = t571 * t587; t1873 = t332 * t796; t1876 = t337 * t795; t1877 = t1876 * t135; t1887 = t984 * rho[0]; t1889 = 0.1e1 / t1887 * t996; t1892 = 0.84000000000000000000e-2 * t781 * t125 - 0.84000000000000000000e-2 * t785 * t132 + 0.84000000000000000000e-1 * t583 * t357 - 0.10080000000000000000e0 * t1889 * sigma[0]; t1893 = t122 * t1892; t1894 = t120 * t1893; t1897 = 0.49777777777777777776e-2 * t17 * t568 + 0.37333333333333333332e-2 * t1853 * t1854 * t1855 - 0.18666666666666666666e-2 * t17 * t589 - 0.49777777777777777776e-2 * t119 * t1861 - 0.55999999999999999998e-2 * t119 * t120 * t1865 + 0.37333333333333333332e-2 * t119 * t120 * t1869 + 0.24888888888888888889e-2 * t119 * t1873 + 0.18666666666666666666e-2 * t119 * t120 * t1877 - 0.93333333333333333332e-3 * t119 * t1894; t1914 = t25 * t800; t1927 = -0.4e1 / 0.3e1 * t554 * t1211 * t869 * t140 + 0.8e1 / 0.27e2 * t53 * t315 * t46 * t767 + 0.8e1 / 0.9e1 * t554 * t505 * t284 * t592 + 0.4e1 / 0.9e1 * t554 * t505 * t874 * t140 - 0.4e1 / 0.27e2 * t53 * t110 * t46 * t800 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t1897 + 0.48e2 / 0.5e1 * t597 * t1421 * t881 * t140 - 0.16e2 / 0.5e1 * t66 * t376 * t11 * t767 - 0.24e2 / 0.5e1 * t597 * t598 * t599 * t592 - 0.12e2 / 0.5e1 * t597 * t598 * t1914 * t140 + 0.16e2 / 0.15e2 * t66 * t150 * t11 * t800 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t1897; t1928 = t1052 * t767; t1929 = t1928 * t140; t1930 = t1277 * t1929; t1936 = t647 * t767; t1938 = t269 * t1936 * t140; t1942 = t269 * t617 * t592; t1945 = t45 * t293; t1947 = t613 * t1945 * t61; t1955 = t626 * t1945 * M_PI; t1962 = -0.90e2 * t1176 * t1930 + t1310 * t815 - 0.3e1 * t1291 * t815 + 0.18e2 * t616 * t1938 - 0.6e1 * t616 * t1942 - 0.6e1 * t1947 * t619 + 0.4e1 / 0.9e1 * t1475 * t262 - 0.4e1 / 0.3e1 * t1455 * t262 + 0.8e1 / 0.3e1 * t1955 * t630 - 0.4e1 / 0.3e1 * t637 * t634 - 0.4e1 / 0.9e1 * t407 * t821; t1966 = t17 * t832 * t140; t1970 = t17 * t270 * t592; t1973 = t375 * t800; t1975 = t269 * t1973 * t140; t1983 = t17 * t837 * t140; t1987 = t163 * t110 * t1897; t1990 = t161 * t891; t1993 = t168 * t890; t1996 = t1177 * t1929; t1999 = t800 * t184; t2000 = t1999 * t140; t2001 = t648 * t2000; t2005 = t844 * rho[0] * t645; t2006 = t1928 * t1261; t2009 = t168 * t886; t2012 = t1501 * t1748; t2015 = t1117 * t466; t2016 = t1936 * t2015; t2019 = t828 * t12; t2020 = t15 * t140; t2021 = t2019 * t2020; t2024 = t828 * t140; t2025 = t1721 * t2024; t2028 = t649 * t592; t2029 = t662 * t2028; t2032 = t846 * t466; t2033 = t662 * t2032; t2040 = t45 * t289; t2042 = t626 * t2040 * M_PI; t2046 = t613 * t2040 * t61; t2053 = t662 * t2000; t2056 = t800 * t462; t2057 = t2056 * t466; t2058 = t671 * t2057; t2065 = 0.135e3 / 0.16e2 * t1176 * t1996 - 0.27e2 * t644 * t2001 + 0.360e3 * t2005 * t2006 - t44 * t2009 / 0.24e2 - 0.144e3 * t2005 * t2012 + 0.144e3 * t2005 * t2016 - 0.135e3 / 0.2e1 * t1764 * t2021 - 0.18e2 * t661 * t2025 + 0.9e1 * t661 * t2029 - 0.9e1 / 0.2e1 * t661 * t2033 - t687 * t1983 / 0.8e1 + 0.9e1 / 0.32e2 * t679 * t1975 - t2042 * t630 / 0.4e1 + 0.9e1 / 0.16e2 * t2046 * t619 + 0.3e1 / 0.8e1 * t687 * t1966 - t687 * t1970 / 0.4e1 + 0.9e1 / 0.2e1 * t661 * t2053 + 0.3e1 / 0.2e1 * t661 * t2058 - 0.27e2 / 0.16e2 * t679 * t1938 + 0.9e1 / 0.16e2 * t679 * t1942; t2066 = t648 * t2028; t2069 = t648 * t2032; t2072 = t1707 * t2024; t2077 = t6 * t1897; t2084 = t800 * t9; t2088 = t251 * t68; t2091 = t767 * t149; t2092 = t217 * t140; t2097 = t2 * t251; t2101 = t149 * t217; t2105 = t68 * t526; t2111 = t767 * t217; t2112 = t2111 * t140; t2113 = t1606 * t2112; t2116 = t45 * t767; t2118 = t505 * t2116 * t217; t2121 = -t77 * t2077 * t278 / 0.48e2 + t77 * t858 * t702 / 0.72e2 - t706 * t2084 * t709 / 0.48e2 + 0.20000000000000000000e1 * t2088 * t1631 - 0.20000000000000000000e1 * t2091 * t2092 - 0.10000000000000000000e1 * t862 * t1239 + 0.62831853071795864770e1 * t2097 * t866 * t592 - 0.62831853071795864770e1 * t865 * t2101 * t140 - M_PI * t865 * t2105 * t215 - 0.12566370614359172954e2 * t714 * t871 + 0.37699111843077518862e2 * t283 * t2113 - 0.83775804095727819693e1 * t283 * t2118; t2122 = t718 * t592; t2123 = t717 * t2122; t2126 = t767 * t526; t2127 = t2126 * t215; t2128 = t717 * t2127; t2133 = t800 * t217; t2134 = t2133 * t140; t2135 = t717 * t2134; t2138 = t45 * t800; t2140 = t208 * t2138 * t217; t2143 = t20 * t1897; t2145 = t208 * t2143 * t217; t2148 = t800 * t526; t2149 = t2148 * t215; t2150 = t733 * t2149; t2154 = t205 * t60 * t269; t2157 = t1421 * t25; t2158 = t2126 * t140; t2159 = t2157 * t2158; t2162 = t10 * t767; t2164 = t598 * t2162 * t526; t2167 = t598 * t25; t2168 = t734 * t592; t2169 = t2167 * t2168; t2172 = t767 * t1245; t2173 = t2172 * t215; t2174 = t2167 * t2173; t2177 = -0.25132741228718345908e2 * t283 * t2123 + 0.12566370614359172954e2 * t283 * t2128 + 0.62831853071795864770e1 * t714 * t876 - 0.12566370614359172954e2 * t283 * t2135 + 0.41887902047863909847e1 * t283 * t2140 + 0.62831853071795864770e1 * t283 * t2145 - 0.62831853071795864770e1 * t283 * t2150 + 0.11843525281307230343e3 * t2154 * t883 - 0.47374101125228921372e3 * t880 * t2159 + 0.15791367041742973791e3 * t880 * t2164 + 0.23687050562614460686e3 * t880 * t2169 - 0.23687050562614460686e3 * t880 * t2174; t2178 = t2121 + t2177; t2179 = t46 * t2178; t2201 = t149 * t1897; t2203 = t269 * t2201 * t184; t2206 = t843 * t399; t2207 = rho[0] * t1759; t2209 = t2206 * t2207 * t1762; t2210 = t846 * t12; t2218 = t161 * t887; t2223 = t844 * t645; t2227 = 0.3e1 / 0.2e1 * t655 * t834 - t477 * t821 / 0.8e1 + t477 * t825 / 0.16e2 + t189 * t1987 / 0.16e2 - 0.3e1 / 0.2e1 * t268 * t2203 - 0.108e3 * t2209 * t2210 * t2020 + 0.9e1 / 0.32e2 * t1153 * t815 + t1687 * t262 / 0.8e1 + t2218 * t165 / 0.16e2 + t692 * t634 / 0.8e1 - 0.72e2 * t2223 * t1936 * t462; t2229 = t2065 - 0.54e2 * t644 * t2066 + 0.27e2 * t644 * t2069 + 0.216e3 * t644 * t2072 - 0.9e1 * t1704 * t829 + t44 * t2179 / 0.8e1 + t474 * t821 / 0.24e2 - t474 * t825 / 0.48e2 - t655 * t839 / 0.2e1 - 0.3e1 / 0.32e2 * t1124 * t815 - t1678 * t262 / 0.24e2 + t2227; t2230 = t46 * t2229; t2233 = 0.4e1 / 0.3e1 * t410 * t821 - 0.4e1 * t628 * t1966 + 0.8e1 / 0.3e1 * t628 * t1970 - 0.3e1 * t616 * t1975 + 0.2e1 / 0.9e1 * t407 * t825 - 0.2e1 / 0.3e1 * t410 * t825 + 0.4e1 / 0.3e1 * t628 * t1983 - 0.2e1 / 0.3e1 * t162 * t1987 - 0.2e1 / 0.3e1 * t1990 * t165 + 0.4e1 / 0.9e1 * t44 * t1993 - 0.4e1 / 0.3e1 * t44 * t2230; t2235 = my_piecewise3(t49, t1927, t1962 + t2233); t2237 = t109 * t2235 * t38; t2241 = t109 * t895 * t140; t2247 = t109 * t748 * t251; t2251 = t109 * t298 * t592; t2257 = t109 * t228 * t800; t2261 = t109 * t101 * t1897; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[0] = -t551 * t897 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t2237 - 0.3e1 / 0.16e2 * t108 * t2241 - t551 * t901 / 0.2e1 - 0.3e1 / 0.8e1 * t108 * t2247 - 0.3e1 / 0.8e1 * t108 * t2251 - t551 * t905 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t2257 - 0.3e1 / 0.16e2 * t108 * t2261; t2264 = t767 * t251; t2265 = t55 * t2264; t2277 = t774 * t246; t2278 = t965 * t2277; t2279 = t120 * t2278; t2282 = t571 * t795; t2288 = 0.1e1 / t23 / t351 * t8; t2291 = 0.1e1 / t351; t2292 = t2291 * t9; t2295 = t784 * t8; t2296 = t791 * t357; t2299 = 0.1e1 / t984; t2302 = 0.94500000000000000000e-2 * t2288 * t29 - 0.94500000000000000000e-2 * t2292 * t786 - 0.63000000000000000000e-2 * t2295 * t2296 + 0.37800000000000000000e-1 * t2299 * t996; t2303 = t122 * t2302; t2304 = t120 * t2303; t2307 = 0.55999999999999999998e-2 * t17 * t776 - 0.27999999999999999999e-2 * t17 * t797 - 0.55999999999999999998e-2 * t119 * t2279 + 0.55999999999999999998e-2 * t119 * t120 * t2282 - 0.93333333333333333332e-3 * t119 * t2304; t2325 = t1052 * t2264; t2326 = t1277 * t2325; t2332 = t402 * t1012 * t2264; t2336 = t269 * t617 * t800; t2346 = t163 * t926 * t2264; t2350 = t17 * t270 * t800; t2354 = t163 * t110 * t2307; t2357 = t6 * t2307; t2361 = t800 * t68; t2364 = t2264 * t149; t2367 = t2264 * t375; t2368 = t526 * t51; t2369 = t2367 * t2368; t2370 = t5 * t8; t2372 = t16 * t2370 * t20; t2375 = t866 * t800; t2378 = t2 * t2264; t2381 = t20 * t2264; t2383 = t1211 * t2381 * t217; t2386 = t718 * t800; t2387 = t717 * t2386; t2390 = t25 * t2264; t2392 = t1421 * t2390 * t526; t2395 = t20 * t2307; t2397 = t208 * t2395 * t217; t2400 = t2148 * t251; t2401 = t2167 * t2400; t2405 = t51 * t2 * t17; t2406 = t2264 * t8; t2413 = 0.1e1 / t59 / t50; t2414 = t84 * t2413; t2415 = t2414 * t1052; t2416 = t19 * t2264; t2417 = t2416 * t1245; t2420 = -t77 * t2357 * t278 / 0.48e2 + 0.30000000000000000000e1 * t2361 * t718 - 0.20000000000000000000e1 * t2364 * t217 + 0.12566370614359172954e2 * t2369 * t2372 + 0.94247779607693797155e1 * t2097 * t2375 - 0.12566370614359172954e2 * t2378 * t2101 + 0.37699111843077518862e2 * t283 * t2383 - 0.37699111843077518862e2 * t283 * t2387 - 0.71061151687843382058e3 * t880 * t2392 + 0.62831853071795864770e1 * t283 * t2397 + 0.35530575843921691029e3 * t880 * t2401 + 0.19739208802178717238e2 * t2405 * t2406 * t20 * t375 * t526 + 0.11221527287117080770e6 * t2415 * t2417; t2421 = t46 * t2420; t2424 = t1177 * t2325; t2427 = t647 * t800; t2428 = t2427 * t672; t2431 = t2264 * t184; t2432 = t1707 * t2431; t2435 = t649 * t800; t2436 = t648 * t2435; t2439 = t2264 * t462; t2443 = t2439 * t17; t2457 = t647 * t2264; t2459 = t269 * t2457 * t184; t2462 = t662 * t2435; t2470 = t1757 * t11 * t1759; t2471 = t1762 * t2264; t2473 = t2471 * t184 * t17; t2476 = t149 * t2307; t2478 = t269 * t2476 * t184; t2482 = 0.1e1 / t59 / p->cam_omega; t2483 = t2482 * t160; t2484 = t199 * t1759; t2488 = t2264 * t1117 * t12; t2489 = t15 * t8; t2490 = t2488 * t2489; t2497 = 0.27e2 / 0.32e2 * t679 * t2336 - 0.3e1 / 0.8e1 * t692 * t821 - 0.18e2 * t268 * t2459 + 0.27e2 / 0.2e1 * t661 * t2462 + 0.3e1 / 0.16e2 * t692 * t825 + t189 * t2354 / 0.16e2 - 0.135e3 / 0.2e1 * t2470 * t2473 - 0.3e1 / 0.2e1 * t268 * t2478 - 0.288e3 * t2483 * t2484 * t1762 * t2490 + 0.27e2 / 0.32e2 * t1656 * t815 + 0.3e1 / 0.16e2 * t2218 * t262; t2498 = t44 * t2421 / 0.8e1 + 0.135e3 / 0.16e2 * t1176 * t2424 - 0.216e3 * t2005 * t2428 + 0.216e3 * t644 * t2432 - 0.81e2 * t644 * t2436 + 0.576e3 * t845 * t1707 * t2439 - 0.216e3 * t2209 * t2443 + 0.3e1 / 0.8e1 * t189 * t2346 - 0.3e1 / 0.8e1 * t687 * t2350 - 0.27e2 / 0.16e2 * t471 * t2332 + t2497; t2499 = t46 * t2498; t2502 = -0.90e2 * t1176 * t2326 - 0.9e1 * t1466 * t815 + 0.18e2 * t401 * t2332 - 0.9e1 * t616 * t2336 - 0.2e1 * t1990 * t262 + 0.4e1 * t637 * t821 - 0.2e1 * t637 * t825 - 0.4e1 * t162 * t2346 + 0.4e1 * t628 * t2350 - 0.2e1 / 0.3e1 * t162 * t2354 - 0.4e1 / 0.3e1 * t44 * t2499; t2503 = my_piecewise3(t49, -0.4e1 / 0.3e1 * t53 * t926 * t2265 + 0.4e1 / 0.3e1 * t554 * t505 * t284 * t800 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t2307 + 0.48e2 / 0.5e1 * t66 * t1012 * t70 * t2264 - 0.36e2 / 0.5e1 * t597 * t598 * t599 * t800 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t2307, t2502); t2505 = t109 * t2503 * t38; t2509 = t109 * t895 * t251; t2513 = t109 * t298 * t800; t2517 = t109 * t101 * t2307; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[0] = -0.3e1 / 0.16e2 * t108 * t2505 - 0.9e1 / 0.16e2 * t108 * t2509 - 0.9e1 / 0.16e2 * t108 * t2513 - 0.3e1 / 0.16e2 * t108 * t2517; #ifndef XC_DONT_COMPILE_LXC if(order < 4) return; t2526 = 0.1e1 / t20 / t580; t2531 = t9 * t949; t2551 = 0.1e1 / t964 / t32; t2552 = t338 * t338; t2562 = t361 * t361; t2582 = t984 * t325; t2587 = t351 * t351; t2594 = 0.1e1 / t130 / t994 / t129; t2603 = 0.24133004115226337449e0 * t17 * t18 * t2526 * t33 + 0.17035061728395061728e0 * t119 * t2531 * t136 + 0.10951111111111111111e0 * t119 * t954 * t339 - 0.54755555555555555556e-1 * t119 * t954 * t362 + 0.59733333333333333332e-1 * t119 * t332 * t967 - 0.59733333333333333332e-1 * t119 * t332 * t972 + 0.99555555555555555556e-2 * t119 * t332 * t1000 + 0.22399999999999999999e-1 * t119 * t120 * t2551 * t2552 - 0.33599999999999999998e-1 * t119 * t120 * t965 * t338 * t361 + 0.55999999999999999998e-2 * t119 * t120 * t337 * t2562 + 0.74666666666666666664e-2 * t119 * t120 * t971 * t999 - 0.93333333333333333332e-3 * t119 * t120 * t122 * (0.11324444444444444444e1 * t24 * t791 * t28 + 0.53834666666666666666e1 * t18 * t2526 * t131 - 0.11578311111111111111e2 * t352 / t10 / t1887 * t357 + 0.16725333333333333334e2 * t990 / t2582 * t996 - 0.47786666666666666667e1 * t2587 / t20 / t984 / t580 * t2594 * t9); t2616 = t54 * t1091; t2640 = t366 * t366; t2649 = -0.16e2 / 0.81e2 * t66 * t69 * t120 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t2603 + 0.32e2 / 0.15e2 * t66 * t150 * t80 * t366 + 0.64e2 / 0.15e2 * t66 * t150 * t11 * t1004 - 0.112e3 / 0.729e3 * t53 * t2616 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t2603 - 0.16e2 / 0.27e2 * t53 * t110 * t46 * t1004 - 0.128e3 / 0.135e3 * t66 * t150 * t201 * t140 - 0.32e2 / 0.5e1 * t66 * t376 * t80 * t316 - 0.192e3 / 0.5e1 * t597 * t598 * t10 * t140 * t366 - 0.36e2 / 0.5e1 * t66 * t376 * t70 * t2640 - 0.48e2 / 0.5e1 * t597 * t598 * t1021 * t1004; t2650 = t6 * t1052; t2651 = t316 * t316; t2674 = t505 * t510 * t366; t2682 = t505 * t209 * t1004; t2685 = t5 * t647; t2695 = t1211 * t506 * t366; t2702 = -0.48e2 * t66 * t2650 * t70 * t2651 + 0.256e3 / 0.5e1 * t66 * t1012 * t11 * t927 + 0.288e3 / 0.5e1 * t597 * t1421 * t25 * t316 * t366 - 0.64e2 / 0.243e3 * t53 * t110 * t421 * t140 - 0.16e2 / 0.27e2 * t53 * t315 * t168 * t316 + 0.32e2 / 0.9e1 * t554 * t2674 + 0.4e1 / 0.3e1 * t53 * t315 * t55 * t2640 + 0.16e2 / 0.9e1 * t554 * t2682 + 0.16e2 / 0.3e1 * t53 * t2685 * t55 * t2651 - 0.32e2 / 0.9e1 * t53 * t926 * t46 * t927 - 0.8e1 * t554 * t2695 + 0.8e1 / 0.27e2 * t53 * t110 * t168 * t366; t2704 = t223 * t645; t2711 = t8 * t977; t2717 = t269 * t375 * t1004 * t140; t2729 = t17 * t149 * t1004 * t140; t2734 = t269 * t647 * t316 * t366; t2744 = t17 * t375 * t316 * t366; t2747 = t161 * t1268; t2752 = t161 * t1271; t2757 = t161 * t1274; t2768 = 0.1e1 / t42 / t645 / t12 * t3 * t2 / t5 / t375 / 0.36e2; t2769 = p->cam_omega * t2768; t2770 = t2769 * t97; t2771 = t374 * t374; t2772 = 0.1e1 / t2771; t2773 = t1759 * t2772; t2775 = t2773 * t2651 * t17; t2778 = t161 * t1281; t2781 = t400 * t533; t2784 = t110 * t2603; t2785 = t163 * t2784; t2788 = 0.12e2 * t1498 * t1067 - 0.24e2 * t628 * t2744 - 0.8e1 / 0.3e1 * t2747 * t165 - 0.8e1 / 0.3e1 * t410 * t1173 + 0.8e1 / 0.3e1 * t2752 * t165 - 0.4e1 * t1288 * t418 - 0.32e2 / 0.9e1 * t2757 * t165 - 0.315e3 * t2770 * t2775 + 0.224e3 / 0.81e2 * t2778 * t165 - 0.18e2 * t2781 * t404 - 0.2e1 / 0.3e1 * t162 * t2785; t2794 = t2650 * t2651; t2795 = t402 * t2794; t2798 = t400 * t422; t2803 = t400 * t425; t2807 = t1052 * t316 * t366; t2846 = t647 * t8; t2887 = 0.15079644737231007545e3 * t207 * t2846 * t20 * t2651 - 0.10053096491487338363e3 * t207 * t1211 * t45 * t927 - 0.22619467105846511318e3 * t207 * t2695 - 0.16755160819145563939e2 * t207 * t505 * t26 * t316 + 0.10053096491487338363e3 * t207 * t2674 + 0.37699111843077518862e2 * t207 * t505 * t20 * t2640 + 0.50265482457436691816e2 * t207 * t2682 - 0.74467381418424728618e1 * t207 * t208 * t124 * t140 + 0.83775804095727819694e1 * t207 * t208 * t26 * t366 - 0.16755160819145563939e2 * t207 * t208 * t45 * t1004 - 0.62831853071795864770e1 * t207 * t208 * t20 * t2603 - 0.43439305827414425028e1 * t86 * t2616; t2892 = t1245 * t523; t2895 = t520 * t520; t2899 = t523 * t523; t2901 = t525 * t525; t2902 = 0.1e1 / t2901; t2905 = -(t77 * t6 * t2603 * t80 / 0.48e2 - t77 * t1187 * t201 / 0.18e2 + 0.5e1 / 0.36e2 * t77 * t490 * t120 - 0.20e2 / 0.81e2 * t77 * t195 * t332 + 0.55e2 / 0.243e3 * t77 * t78 * t954) * t90 - 0.4e1 * t1200 * t215 * t217 - 0.6e1 * t500 * t520 * t217 + 0.6e1 * t500 * t523 * t526 - 0.4e1 * t205 * t1236 * t217 + 0.12e2 * t1205 * t1239 - 0.8e1 * t205 * t1242 * t1245 - t84 * t2887 * t217 + 0.4e1 * t1237 * t1239 - 0.12e2 * t521 * t2892 + 0.3e1 * t84 * t2895 * t526 + 0.6e1 * t84 * t2899 * t2902; t2921 = t184 * t366 * t140; t2925 = t462 * t366; t2926 = t2925 * t466; t2933 = t462 * t1147 * t140; t2939 = t1117 * t1147; t2944 = t462 * t316; t2945 = t2944 * t466; t2952 = t1117 * t1119 * t140; t2967 = 0.405e3 / 0.8e1 * t1176 * t1177 * t2807 + t44 * t46 * t2905 / 0.8e1 + t44 * t421 * t528 / 0.3e1 + 0.35e2 / 0.81e2 * t44 * t2711 * t92 - 0.14e2 / 0.27e2 * t44 * t1091 * t219 + 0.9e1 / 0.4e1 * t687 * t2744 - 0.12e2 * t1260 * t717 * t2921 - 0.6e1 * t1260 * t733 * t2926 + 0.9e1 / 0.8e1 * t679 * t2717 - 0.6e1 * t1260 * t733 * t2933 - 0.12e2 * t1260 * t39 * t8 * t20 * t2939 * t466 + 0.12e2 * t1260 * t717 * t2945 - 0.81e2 / 0.8e1 * t679 * t2734 + 0.12e2 * t1260 * t733 * t2952 - 0.12e2 * t446 * M_PI * t17 * t1263 - 0.8e1 * t1260 * t1645 * t1262 + t1781 * t1084 / 0.2e1 - 0.9e1 / 0.8e1 * t1716 * t1067; t2993 = t1762 * t2651; t3010 = t2685 * t2651; t3016 = t315 * t2640; t3020 = 0.140e3 / 0.81e2 * t44 * t2711 + 0.405e3 / 0.2e1 * t1176 * t1707 * t316 * t366 - 0.45e2 * t1049 * t26 * t645 * t1053 - 0.405e3 * t1049 * t1050 * t2993 + t173 * t16 * t2784 / 0.4e1 + 0.2e1 / 0.3e1 * t1071 * t440 - t434 * t1088 / 0.3e1 + 0.945e3 / 0.8e1 * t2769 * t46 * t1759 * t2772 * t2651 * t17 - 0.6e1 * t173 * t16 * t3010 + 0.9e1 * t173 * t2744 - 0.3e1 / 0.2e1 * t173 * t16 * t3016; t3023 = t376 * t2640; t3052 = -0.2e1 * t173 * t2729 + 0.27e2 / 0.8e1 * t429 * t65 * t3023 + 0.9e1 / 0.2e1 * t429 * t2717 - 0.28e2 / 0.27e2 * t161 * t1091 * M_PI * t174 - 0.4e1 / 0.3e1 * t1071 * t437 - 0.2e1 * t434 * t1079 + 0.2e1 * t434 * t1084 + 0.3e1 * t400 * t421 * t61 * t430 + 0.9e1 * t1058 * t1062 - 0.9e1 / 0.2e1 * t1058 * t1067 + 0.81e2 / 0.2e1 * t429 * t65 * t2794 - 0.81e2 / 0.2e1 * t429 * t2734; t3060 = t219 * t645; t3064 = t1048 * t168; t3088 = -0.3e1 / 0.2e1 * t1732 * t1084 + 0.27e2 / 0.8e1 * t1773 * t1067 - t687 * t2729 / 0.2e1 - 0.4e1 * t1096 * t457 - t44 * t168 * t1248 / 0.6e1 - 0.16e2 / 0.27e2 * t181 * t54 * t421 * t184 - 0.2e1 * (t3020 + t3052) * t51 * t163 * t186 + 0.4e1 / 0.3e1 * t447 * t1100 + 0.135e3 / 0.4e1 * t1176 * t3060 * t1053 - 0.45e2 / 0.4e1 * t3064 * t1178 - 0.405e3 / 0.4e1 * t1176 * t1177 * t2993 + 0.4e1 * t181 * t450 * t1138 * t366 - t1130 * t414 / 0.3e1 - t474 * t1113 / 0.2e1 - 0.12e2 * t447 * t1121 + 0.81e2 / 0.8e1 * t471 * t2795 + 0.2e1 * t181 * t450 * t451 * t1004 + 0.9e1 / 0.4e1 * t1124 * t1127; t3099 = t402 * t3023; t3102 = t461 * t461; t3103 = 0.1e1 / t3102; t3105 = t1119 * t466; t3110 = t400 * t484; t3113 = t163 * t3016; t3118 = t163 * t3010; t3130 = t400 * t487; t3147 = 0.12e2 * t181 * t926 * t8 * t451 * t927 - 0.8e1 * t181 * t1133 * t1138 * t316 + 0.27e2 / 0.32e2 * t471 * t3099 + 0.12e2 * t181 * t460 * t20 * t3103 * t3105 + 0.3e1 / 0.4e1 * t3110 * t404 - 0.3e1 / 0.8e1 * t189 * t3113 + 0.3e1 / 0.2e1 * t477 * t1113 - 0.3e1 / 0.2e1 * t189 * t3118 + 0.8e1 * t447 * t1140 - 0.8e1 * t181 * t460 * t45 * t1117 * t1119 - 0.3e1 / 0.4e1 * t1161 * t414 - 0.9e1 / 0.8e1 * t3130 * t404 - 0.27e2 / 0.4e1 * t1153 * t1127 + t1156 * t414 / 0.2e1 + t1130 * t418 / 0.6e1 + 0.4e1 * t181 * t460 * t1166 * t1147 - t474 * t1173 / 0.12e2 + 0.6e1 * t1096 * t468; t3150 = t161 * t1181; t3153 = t161 * t1249; t3156 = t161 * t1252; t3159 = t161 * t1184; t3162 = t2769 * t93; t3173 = t400 * t529; t3189 = -0.12e2 * t930 + 0.8e1 * t934 + 0.12e2 * t938 + 0.4e1 / 0.3e1 * t942 - 0.4e1 * t946 - 0.2e1 * t1007 + 0.16e2 / 0.27e2 * t1010; t3206 = t477 * t1173 / 0.4e1 - 0.7e1 / 0.27e2 * t3150 * t165 + t3153 * t165 / 0.4e1 + t3156 * t165 / 0.3e1 - t3159 * t165 / 0.4e1 + 0.945e3 / 0.32e2 * t3162 * t2775 - 0.12e2 * t447 * t1135 + 0.6e1 * t1096 * t453 + 0.8e1 * t447 * t1168 + 0.3e1 / 0.8e1 * t1161 * t418 + 0.27e2 / 0.16e2 * t3173 * t404 - t1156 * t418 / 0.4e1 + t189 * t2785 / 0.16e2 + 0.6e1 * t447 * t1149 + 0.2e1 * t181 * t460 * t463 * t3189 + 0.6e1 * t447 * t1106 - 0.4e1 / 0.3e1 * t181 * t450 * t26 * t184 * t140 - 0.4e1 / 0.3e1 * t181 * t460 * t26 * t462 * t466; t3244 = 0.4e1 * t162 * t3113 - 0.16e2 / 0.3e1 * t1294 * t414 - 0.16e2 / 0.9e1 * t1305 * t418 + 0.72e2 * t1291 * t1127 - 0.9e1 * t401 * t3099 + 0.16e2 * t162 * t3118 + 0.32e2 / 0.9e1 * t1305 * t414 + 0.1080e4 * t1176 * t1277 * t2993 + 0.120e3 * t3064 * t1278 - 0.540e3 * t1176 * t1277 * t2807 - 0.32e2 / 0.9e1 * t44 * t421 * t532; t3247 = my_piecewise3(t49, t2649 + t2702, -0.360e3 * t1176 * t2704 * t1053 + 0.448e3 / 0.81e2 * t44 * t1091 * t223 - 0.1120e4 / 0.243e3 * t44 * t2711 * t96 - 0.12e2 * t616 * t2717 + 0.16e2 / 0.9e1 * t44 * t168 * t1267 + 0.16e2 * t1525 * t1084 - 0.36e2 * t1508 * t1067 + 0.16e2 / 0.3e1 * t628 * t2729 + 0.108e3 * t616 * t2734 - 0.16e2 / 0.3e1 * t1521 * t1084 + t2788 + 0.8e1 / 0.9e1 * t407 * t1173 + 0.8e1 / 0.3e1 * t1294 * t418 - 0.108e3 * t401 * t2795 - 0.8e1 * t2798 * t404 + 0.8e1 * t1288 * t414 + 0.12e2 * t2803 * t404 - 0.4e1 / 0.3e1 * t44 * t46 * (t2967 + t3088 + t3147 + t3206) - 0.16e2 * t410 * t1113 + 0.16e2 / 0.3e1 * t407 * t1113 - 0.24e2 * t1310 * t1127 + t3244); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[0] = -t7 * t11 * t1331 - 0.3e1 / 0.16e2 * t108 * t109 * t3247 * t38 - 0.3e1 * t7 * t11 * t1327 - 0.3e1 * t7 * t11 * t1323 - 0.5e1 / 0.54e2 * t7 * t120 * t102 - t7 * t80 * t546 / 0.2e1 - t7 * t11 * t1319 - t7 * t80 * t542 + 0.2e1 / 0.9e1 * t7 * t201 * t233 - t7 * t80 * t538 / 0.2e1 + 0.2e1 / 0.9e1 * t7 * t201 * t229 - 0.3e1 / 0.4e1 * t108 * t109 * t1318 * t140 - 0.3e1 / 0.4e1 * t108 * t109 * t228 * t1004 - 0.3e1 / 0.16e2 * t108 * t109 * t101 * t2603 - 0.9e1 / 0.8e1 * t108 * t109 * t537 * t366; t3298 = t200 * t1 * t3; t3404 = t16 * t118 * t9; t3405 = t22 * t965; t3410 = -0.55999999999999999998e-2 * t17 * t968 + 0.55999999999999999998e-2 * t1853 * t1854 * t135 * t361 - 0.27377777777777777778e-1 * t119 * t954 * t588 - 0.14933333333333333333e-1 * t17 * t958 - 0.42587654320987654321e-1 * t17 * t2531 * t33 - 0.27377777777777777778e-1 * t17 * t955 + 0.74666666666666666667e-2 * t17 * t961 - 0.93333333333333333332e-3 * t17 * t1001 + 0.44799999999999999999e-1 * t119 * t332 * t1386 + 0.22399999999999999999e-1 * t119 * t120 * t2551 * t246 * t966 - 0.16800000000000000000e-1 * t3404 * t3405 * t1855 * t361; t3411 = 0.55999999999999999998e-2 * t119 * t120 * t337 * t1411 * t135 + 0.55999999999999999998e-2 * t119 * t120 * t1390 * t361 + 0.18666666666666666666e-2 * t119 * t120 * t571 * t999 + 0.42587654320987654321e-1 * t119 * t2531 * t247 + 0.54755555555555555555e-1 * t119 * t954 * t572 - 0.29866666666666666666e-1 * t119 * t332 * t1391 - 0.14933333333333333333e-1 * t119 * t332 * t1395 - 0.16800000000000000000e-1 * t119 * t120 * t965 * t587 * t338 + 0.74666666666666666667e-2 * t119 * t332 * t1412 - 0.93333333333333333332e-3 * t119 * t120 * t122 * (-0.13066666666666666667e0 * t241 * t978 - 0.10192000000000000000e1 * t2531 * t131 + 0.30986666666666666666e1 * t8 * t986 * t584 - 0.54656000000000000000e1 * t992 * t996 * t351 + 0.17920000000000000000e1 / t20 / t984 / t789 * t2594 * t990 * t9) + t3410; t3487 = -0.32e2 / 0.135e3 * t66 * t150 * t201 * t251 - 0.16e2 / 0.243e3 * t53 * t110 * t421 * t251 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t3411 + 0.4e1 / 0.27e2 * t53 * t110 * t168 * t592 - 0.4e1 / 0.9e1 * t53 * t110 * t46 * t1416 + 0.16e2 / 0.15e2 * t66 * t150 * t80 * t592 + 0.16e2 / 0.5e1 * t66 * t150 * t11 * t1416 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t3411 - 0.48e2 / 0.5e1 * t597 * t598 * t1426 * t366 - 0.36e2 / 0.5e1 * t597 * t598 * t25 * t1416 * t140 - 0.36e2 / 0.5e1 * t597 * t598 * t1431 * t366 - 0.12e2 / 0.5e1 * t597 * t598 * t599 * t1004 + 0.16e2 / 0.9e1 * t554 * t505 * t1558 * t140 + 0.8e1 / 0.9e1 * t554 * t505 * t723 * t366; t3513 = t1052 * t9; t3539 = t251 * t140; t3540 = t3539 * t366; t3547 = 0.4e1 / 0.3e1 * t554 * t505 * t1551 * t140 + 0.4e1 / 0.3e1 * t554 * t505 * t728 * t366 + 0.4e1 / 0.9e1 * t554 * t505 * t284 * t1004 + 0.144e3 / 0.5e1 * t597 * t1421 * t1431 * t316 - 0.96e2 / 0.5e1 * t597 * t598 * t10 * t592 * t140 - 0.4e1 * t554 * t1211 * t728 * t316 - 0.48e2 * t597 * t3513 * t599 * t927 + 0.192e3 / 0.5e1 * t597 * t1421 * t1426 * t316 - 0.16e2 / 0.5e1 * t597 * t598 * t79 * t251 * t140 - 0.8e1 / 0.27e2 * t554 * t505 * t1640 * t140 + 0.16e2 / 0.3e1 * t554 * t2846 * t284 * t927 - 0.8e1 / 0.3e1 * t554 * t1211 * t723 * t316 - 0.4e1 * t554 * t1606 * t3540 + 0.144e3 / 0.5e1 * t597 * t2157 * t3540; t3551 = t124 * t96; t3562 = t2769 * t8; t3564 = t3562 * t614 * t1759; t3567 = t2772 * t251 * t927 * t17; t3576 = t269 * t375 * t1416 * t140; t3580 = t269 * t1511 * t366; t3584 = t269 * t617 * t1004; t3588 = t17 * t270 * t1004; t3591 = t1048 * t97; t3592 = t1707 * t3540; t3599 = t161 * t1486; t3604 = -0.9e1 * t1947 * t1067 + 0.16e2 / 0.9e1 * t626 * t3551 * M_PI * t630 - 0.4e1 * t613 * t3551 * t61 * t619 - 0.18e2 * t1498 * t1503 - 0.315e3 * t3564 * t3567 - 0.18e2 * t1508 * t1513 - 0.9e1 * t1508 * t1517 - 0.9e1 * t616 * t3576 - 0.9e1 * t616 * t3580 - 0.3e1 * t616 * t3584 + 0.4e1 / 0.3e1 * t628 * t3588 - 0.270e3 * t3591 * t3592 - 0.4e1 / 0.3e1 * t1475 * t414 - 0.4e1 * t637 * t1113 - 0.8e1 / 0.9e1 * t3599 * t165 + 0.2e1 / 0.3e1 * t407 * t1470; t3607 = t400 * t744; t3610 = t161 * t1792; t3616 = t163 * t110 * t3411; t3623 = t293 * t645; t3627 = t1694 * t316; t3636 = t1052 * t592 * t316; t3640 = t643 * t201; t3648 = t1762 * t251 * t927; t3652 = t289 * t645; t3656 = t645 * t1762; t3657 = t649 * t927; t3661 = t161 * t1651; t3666 = t161 * t1541; t3669 = t161 * t1544; t3672 = 0.648e3 * t644 * t1707 * t3627 - 0.27e2 * t1704 * t1691 - 0.54e2 * t1704 * t1696 + 0.405e3 / 0.16e2 * t1176 * t1177 * t3636 + 0.18e2 * t3640 * t651 + 0.216e3 * t1704 * t1709 - 0.135e3 / 0.16e2 * t3064 * t1699 - 0.405e3 / 0.4e1 * t1176 * t1177 * t3648 + 0.135e3 / 0.16e2 * t1176 * t3652 * t1053 - 0.1620e4 * t644 * t3656 * t3657 + 0.3e1 / 0.16e2 * t3661 * t165 - 0.27e2 / 0.16e2 * t1656 * t1127 + t3666 * t165 / 0.12e2 - t3669 * t165 / 0.8e1; t3679 = t400 * t695; t3686 = t400 * t740; t3707 = t3156 * t262 / 0.12e2 + t1130 * t634 / 0.12e2 - t1678 * t418 / 0.16e2 - 0.9e1 / 0.32e2 * t3679 * t404 - 0.3e1 / 0.8e1 * t1687 * t414 + 0.3e1 / 0.16e2 * t1687 * t418 + 0.27e2 / 0.32e2 * t3686 * t404 + t692 * t1173 / 0.16e2 + t1684 * t668 - 0.3e1 / 0.2e1 * t268 * t269 * t149 * t3411 * t184 + t189 * t3616 / 0.16e2 - 0.3e1 / 0.2e1 * t655 * t1673 + t3153 * t262 / 0.16e2 + 0.3e1 / 0.16e2 * t1161 * t634 + 0.3e1 / 0.16e2 * t477 * t1470; t3728 = t520 * t526; t3750 = t1416 * t217; t3772 = t592 * t1245; t3777 = t706 * t1440 * t3728 * t215 / 0.16e2 - 0.37699111843077518862e2 * t1578 * t720 - 0.37699111843077518862e2 * t714 * t1613 - 0.50265482457436691817e2 * t283 * t1588 * t1632 - 0.25132741228718345908e2 * t283 * t1645 * t1612 - 0.18849555921538759431e2 * t283 * t733 * t1416 * t526 * t215 - 0.75398223686155037724e2 * t714 * t1633 - 0.37699111843077518862e2 * t283 * t717 * t3750 * t140 - 0.12566370614359172954e2 * t283 * t717 * t718 * t1004 + 0.41887902047863909847e1 * t283 * t208 * t26 * t735 - 0.37699111843077518862e2 * t714 * t1637 - 0.25132741228718345908e2 * t714 * t1646 - 0.25132741228718345908e2 * t283 * t1588 * t1636 + 0.37699111843077518862e2 * t714 * t1603 + 0.37699111843077518862e2 * t283 * t733 * t3772 * t523; t3809 = t2846 * t20; t3814 = t1211 * t45; t3829 = 0.11309733552923255659e3 * t714 * t1608 + 0.11309733552923255659e3 * t283 * t1606 * t1631 * t316 - 0.18849555921538759431e2 * t283 * t733 * t1611 * t520 - 0.18849555921538759431e2 * t714 * t1617 - 0.62831853071795864770e1 * t283 * t733 * t734 * t1236 - 0.18849555921538759431e2 * t1578 * t736 - 0.50265482457436691817e2 * t714 * t1589 - 0.12566370614359172954e2 * t283 * t1645 * t1616 + 0.25132741228718345908e2 * t283 * t1645 * t1602 - 0.37699111843077518862e2 * t283 * t733 * t251 * t2902 * t1242 - 0.15079644737231007545e3 * t283 * t3809 * t718 * t927 + 0.75398223686155037725e2 * t283 * t3814 * t1607 + 0.83775804095727819695e1 * t283 * t505 * t26 * t719 - 0.37699111843077518862e2 * t283 * t717 * t1631 * t366 - 0.5e1 / 0.72e2 * t77 * t698 * t1563; t3839 = t1592 * t15 * t375; t3845 = t1245 * t140; t3894 = t77 * t1547 * t702 / 0.24e2 - t77 * t6 * t3411 * t278 / 0.48e2 - 0.11309733552923255659e3 * t3839 * t252 * t526 * t316 * t215 - 0.75398223686155037724e2 * t1594 * t252 * t3845 * t523 + 0.11309733552923255659e3 * t3839 * t252 * t2092 * t366 + 0.50265482457436691817e2 * t1594 * t559 * t1596 + 0.75398223686155037724e2 * t713 * t12 * t1593 * t1597 + 0.75398223686155037724e2 * t1594 * t593 * t1596 + 0.37699111843077518862e2 * t1594 * t252 * t526 * t366 * t215 + 0.37699111843077518862e2 * t1594 * t252 * t1595 * t520 + 0.37699111843077518862e2 * t1592 * t15 * t68 * t252 * t1245 * t215 * t520 + 0.62831853071795864770e1 * t1200 * t51 * t17 * t286 - t706 * t1584 * t1573 / 0.16e2 - t706 * t707 * t79 * t1236 * t217 / 0.48e2 + 0.18849555921538759431e2 * t1578 * t730; t3957 = -0.41887902047863909847e1 * t283 * t208 * t26 * t592 * t217 + 0.12566370614359172954e2 * t283 * t208 * t45 * t1416 * t217 + 0.18616845354606182155e1 * t283 * t208 * t124 * t251 * t217 - t706 * t707 * t79 * t1242 * t1245 / 0.24e2 - 0.41887902047863909847e1 * t714 * t1642 + 0.12566370614359172954e2 * t1578 * t725 + t706 * t1584 * t1621 / 0.16e2 - t706 * t707 * t200 * t523 * t526 / 0.24e2 + 0.25132741228718345908e2 * t714 * t1560 + 0.5e1 / 0.81e2 * t77 * t277 * t332 * t90 + 0.62831853071795864770e1 * t283 * t208 * t20 * t3411 * t217 - 0.5e1 / 0.72e2 * t706 * t707 * t22 * t215 * t217 + t706 * t1584 * t1568 / 0.12e2 + t706 * t707 * t200 * t520 * t217 / 0.24e2 - t706 * t1416 * t9 * t709 / 0.16e2 + 0.18849555921538759431e2 * t714 * t1553; t3963 = t366 * t140; t3965 = t17 * t617 * t3963; t3969 = t269 * t1501 * t3963; t3979 = t16 * t5 * t140; t3988 = -t3159 * t262 / 0.16e2 - t1156 * t634 / 0.8e1 - t474 * t1470 / 0.16e2 - 0.7e1 / 0.108e3 * t3150 * t262 + 0.3e1 / 0.8e1 * t692 * t1113 + t1678 * t414 / 0.8e1 - 0.5e1 / 0.9e1 * t266 * t120 * t61 * t272 + 0.405e3 / 0.16e2 * t1176 * t3060 * t1481 + t44 * t46 * (t3777 + t3829 + t3894 + t3957) / 0.8e1 + 0.9e1 / 0.8e1 * t687 * t3965 - 0.81e2 / 0.16e2 * t679 * t3969 + 0.405e3 / 0.2e1 * t1764 * t672 * t316 * t466 * t12 * t15 - 0.405e3 / 0.2e1 * t1764 * t1690 * t3979 + 0.54e2 * t661 * t1721 * t672 * t316 * t466; t3989 = t1694 * t366; t3994 = t1416 * t184 * t140; t3998 = t649 * t1004; t4004 = t26 * t219; t4012 = t17 * t1511 * t316; t4020 = t394 * t1052; t4025 = t269 * t1480 * t927; t4031 = t17 * t1501 * t927; t4034 = t592 * t1117; t4044 = -0.81e2 * t644 * t648 * t3989 - 0.81e2 * t644 * t648 * t3994 - 0.27e2 * t644 * t648 * t3998 + t1781 * t1533 / 0.8e1 - 0.9e1 / 0.16e2 * t613 * t4004 * t61 * t619 + t1781 * t1529 / 0.4e1 + 0.9e1 / 0.8e1 * t687 * t4012 + 0.9e1 * t661 * t671 * t251 * t3103 * t3105 + 0.90e2 * t661 * t4020 * t3657 + 0.81e2 / 0.8e1 * t679 * t4025 + 0.27e2 / 0.32e2 * t2046 * t1067 - 0.3e1 / 0.2e1 * t687 * t4031 - 0.9e1 * t661 * t671 * t4034 * t1119 - 0.3e1 * t1737 * t1727 - 0.54e2 * t661 * t1721 * t3627; t4049 = t658 * t200 * t61 * t1; t4072 = t17 * t1671 * t140; t4076 = t17 * t666 * t366; t4079 = t647 * t592; t4081 = t269 * t4079 * t316; t4084 = -0.3e1 * t4049 * t663 - 0.18e2 * t1737 * t1722 - t4049 * t674 - 0.3e1 / 0.8e1 * t1781 * t1493 + 0.9e1 / 0.8e1 * t1732 * t1493 - 0.81e2 / 0.16e2 * t1773 * t1503 - 0.9e1 / 0.16e2 * t1716 * t1513 - 0.9e1 / 0.32e2 * t1716 * t1517 + 0.27e2 / 0.32e2 * t679 * t3576 - 0.3e1 / 0.8e1 * t2042 * t1084 - 0.3e1 / 0.4e1 * t1732 * t1529 - 0.3e1 / 0.8e1 * t687 * t4072 - 0.3e1 / 0.8e1 * t687 * t4076 - 0.81e2 / 0.16e2 * t679 * t4081; t4088 = t3562 * t677 * t1759; t4093 = t1758 * t79 * t1759 * t1762; t4097 = t1758 * t1760 * t2772; t4119 = t124 * t92; t4134 = -0.3e1 / 0.8e1 * t1732 * t1533 + 0.945e3 / 0.32e2 * t4088 * t3567 - 0.135e3 / 0.2e1 * t4093 * t1765 + 0.2025e4 / 0.2e1 * t4097 * t3657 * t17 - 0.405e3 / 0.2e1 * t1764 * t3627 * t17 + 0.3e1 / 0.2e1 * t1737 * t1754 + 0.27e2 / 0.2e1 * t661 * t662 * t3994 + 0.27e2 / 0.2e1 * t661 * t662 * t3989 + 0.9e1 / 0.2e1 * t661 * t662 * t3998 + 0.27e2 / 0.32e2 * t679 * t3580 + 0.9e1 / 0.32e2 * t679 * t3584 - t626 * t4119 * M_PI * t630 / 0.6e1 + 0.3e1 / 0.8e1 * t613 * t4119 * t61 * t619 + t626 * t4004 * M_PI * t630 / 0.4e1 - t687 * t3588 / 0.8e1; t4136 = t45 * t528; t4145 = t1416 * t462; t4158 = t265 * t2768; t4160 = t645 * t61; t4163 = 0.1e1 / t2771 / t38; t4165 = t4158 * t9 * t10 * t4160 * t4163; t4192 = 0.27e2 / 0.32e2 * t613 * t4136 * t61 * t619 + 0.27e2 / 0.16e2 * t1773 * t1513 + 0.27e2 / 0.32e2 * t1773 * t1517 + 0.9e1 / 0.2e1 * t661 * t671 * t4145 * t466 + 0.9e1 / 0.2e1 * t661 * t671 * t1748 * t1147 + 0.3e1 / 0.2e1 * t661 * t671 * t672 * t3189 - 0.2835e4 / 0.4e1 * t4165 * t3657 * t269 + 0.27e2 / 0.16e2 * t1716 * t1503 - 0.3e1 / 0.8e1 * t626 * t4136 * M_PI * t630 + 0.9e1 * t1737 * t1741 + 0.9e1 / 0.2e1 * t1737 * t1745 + 0.3e1 * t1737 * t1750 + 0.27e2 * t661 * t662 * t1725 * t140 * t1119 - 0.648e3 * t1785 * t1480 * t2945 + 0.648e3 * t1785 * t1480 * t2921; t4193 = t1048 * t93; t4246 = 0.405e3 / 0.16e2 * t4193 * t3592 + 0.162e3 * t1785 * t4079 * t1262 + 0.81e2 * t1785 * t1501 * t2926 + 0.81e2 * t1785 * t1501 * t2933 + 0.54e2 * t643 * t80 * t645 * t1786 - 0.7e1 / 0.54e2 * t44 * t1091 * t289 - 0.27e2 / 0.2e1 * t661 * t662 * t672 * t1147 * t140 - 0.9e1 * t661 * t671 * t1725 * t1147 * t466 - 0.54e2 * t661 * t1721 * t649 * t3963 - 0.27e2 / 0.2e1 * t661 * t662 * t672 * t366 * t466 - 0.27e2 * t661 * t662 * t1748 * t1536 - 0.9e1 * t1737 * t1538 - 0.162e3 * t1785 * t1501 * t2952 + t44 * t421 * t739 / 0.6e1 - t44 * t168 * t1650 / 0.8e1; t4261 = t26 * t223; t4274 = 0.56e2 / 0.81e2 * t2778 * t262 - 0.9e1 * t3607 * t404 - 0.2e1 * t3610 * t165 - 0.2e1 * t410 * t1470 - 0.2e1 / 0.3e1 * t162 * t3616 - 0.2e1 / 0.3e1 * t637 * t1173 + 0.4e1 / 0.3e1 * t1294 * t634 - 0.90e2 * t1176 * t3623 * t1053 - 0.4e1 / 0.3e1 * t44 * t46 * (t3672 + t3707 + t3988 + t4044 + t4084 + t4134 + t4192 + t4246) - 0.270e3 * t1176 * t2704 * t1481 + 0.90e2 * t3064 * t1482 + 0.1080e4 * t1176 * t1277 * t3648 + 0.6e1 * t613 * t4261 * t61 * t619 - 0.8e1 / 0.3e1 * t626 * t4261 * M_PI * t630 - 0.12e2 * t1525 * t1493 - 0.8e1 / 0.3e1 * t1521 * t1529; t4290 = t45 * t532; t4313 = -0.12e2 * t628 * t4012 - 0.108e3 * t616 * t4025 + 0.16e2 * t628 * t4031 + 0.4e1 * t1521 * t1493 + 0.6e1 * t1498 * t1513 + 0.3e1 * t1498 * t1517 - 0.4e1 / 0.3e1 * t1521 * t1533 + 0.4e1 * t626 * t4290 * M_PI * t630 + 0.4e1 * t1955 * t1084 - 0.9e1 * t613 * t4290 * t61 * t619 + 0.8e1 * t1525 * t1529 + 0.4e1 * t1525 * t1533 + 0.54e2 * t1508 * t1503 + 0.4e1 * t628 * t4072 + 0.4e1 * t628 * t4076 + 0.54e2 * t616 * t4081; t4314 = t161 * t1489; t4319 = t400 * t640; t4354 = 0.4e1 / 0.3e1 * t4314 * t165 + 0.4e1 * t1455 * t414 + 0.3e1 * t4319 * t404 + 0.18e2 * t1466 * t1127 - 0.2e1 * t1455 * t418 - 0.8e1 / 0.9e1 * t2757 * t262 - 0.8e1 / 0.9e1 * t1305 * t634 + 0.2e1 / 0.3e1 * t1475 * t418 - 0.2e1 * t1288 * t634 + 0.2e1 / 0.3e1 * t2752 * t262 - 0.2e1 / 0.3e1 * t2747 * t262 - 0.270e3 * t1176 * t1277 * t3636 + 0.112e3 / 0.81e2 * t44 * t1091 * t293 - 0.12e2 * t628 * t3965 + 0.54e2 * t616 * t3969 - 0.16e2 / 0.9e1 * t44 * t421 * t743 + 0.4e1 / 0.3e1 * t44 * t168 * t1791; t4357 = my_piecewise3(t49, t3487 + t3547, t3604 + t4274 + t4313 + t4354); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[0] = -0.9e1 / 0.16e2 * t108 * t109 * t1797 * t140 + t3298 * t300 / 0.18e2 - 0.3e1 / 0.4e1 * t551 * t1825 - 0.3e1 / 0.16e2 * t108 * t109 * t1318 * t251 - 0.3e1 / 0.2e1 * t551 * t1821 - t1336 * t764 / 0.4e1 - 0.3e1 / 0.4e1 * t551 * t1817 - 0.3e1 / 0.16e2 * t108 * t109 * t298 * t1004 - t1336 * t760 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t109 * t101 * t3411 - 0.9e1 / 0.16e2 * t108 * t109 * t228 * t1416 - 0.9e1 / 0.16e2 * t108 * t109 * t748 * t366 - t1336 * t754 / 0.4e1 - 0.3e1 / 0.4e1 * t551 * t1799 - 0.3e1 / 0.4e1 * t551 * t1807 - 0.3e1 / 0.16e2 * t108 * t109 * t4357 * t38 - 0.3e1 / 0.2e1 * t551 * t1803 + t3298 * t303 / 0.18e2 - t1336 * t750 / 0.4e1 - 0.9e1 / 0.16e2 * t108 * t109 * t537 * t592; t4390 = t3539 * t592; t4409 = t592 * t592; t4463 = 0.49777777777777777778e-2 * t119 * t332 * t1893 - 0.93333333333333333332e-3 * t119 * t120 * t122 * (-0.19600000000000000000e-1 * t781 * t345 + 0.19600000000000000000e-1 * t785 * t348 - 0.55440000000000000000e0 * t1403 * t357 + 0.15792000000000000000e1 * t1408 * sigma[0] - 0.67200000000000000000e0 / t20 / t2582 * t2594 * t351 * t9) - 0.18251851851851851851e-1 * t17 * t1376 - 0.19911111111111111110e-1 * t1853 * t113 * t337 * t1855 + 0.74666666666666666664e-2 * t1853 * t1854 * t587 * t135 + 0.37333333333333333332e-2 * t1853 * t1854 * t246 * t361 + 0.99555555555555555552e-2 * t17 * t1382 - 0.18666666666666666666e-2 * t17 * t1413 + 0.18251851851851851851e-1 * t119 * t954 * t775 + 0.29866666666666666666e-1 * t119 * t332 * t1865 - 0.19911111111111111110e-1 * t119 * t332 * t1869; t4468 = t587 * t587; t4510 = -0.55999999999999999998e-2 * t119 * t120 * t1864 * t361 + 0.37333333333333333332e-2 * t119 * t120 * t337 * t4468 + 0.37333333333333333332e-2 * t119 * t120 * t571 * t1411 - 0.91259259259259259260e-2 * t119 * t954 * t796 - 0.99555555555555555554e-2 * t119 * t332 * t1877 + 0.37333333333333333332e-2 * t119 * t120 * t337 * t1892 * t135 + 0.18666666666666666666e-2 * t119 * t120 * t1876 * t361 - 0.11200000000000000000e-1 * t1853 * t3405 * t246 * t338 - 0.55999999999999999998e-2 * t119 * t120 * t965 * t795 * t338 + 0.22399999999999999999e-1 * t119 * t120 * t2551 * t774 * t338 - 0.22400000000000000000e-1 * t3404 * t3405 * t1855 * t587; t4511 = t4463 + t4510; t4549 = -0.16e2 / 0.3e1 * t554 * t1606 * t4390 + 0.192e3 / 0.5e1 * t597 * t2157 * t4390 + 0.4e1 / 0.81e2 * t53 * t110 * t168 * t800 + 0.16e2 / 0.45e2 * t66 * t150 * t80 * t800 - 0.16e2 / 0.15e2 * t66 * t376 * t80 * t767 - 0.24e2 / 0.5e1 * t66 * t376 * t70 * t4409 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t4511 - 0.8e1 / 0.81e2 * t53 * t315 * t168 * t767 - 0.8e1 / 0.27e2 * t53 * t110 * t46 * t1897 + 0.8e1 / 0.9e1 * t53 * t315 * t55 * t4409 + 0.48e2 / 0.5e1 * t597 * t1421 * t1914 * t316 - 0.32e2 / 0.5e1 * t597 * t598 * t10 * t800 * t140 - 0.48e2 * t597 * t3513 * t881 * t316 + 0.128e3 / 0.5e1 * t597 * t1421 * t2162 * t140 - 0.4e1 / 0.3e1 * t554 * t1211 * t874 * t316; t4611 = 0.16e2 / 0.27e2 * t554 * t505 * t2138 * t140 + 0.16e2 / 0.3e1 * t554 * t2846 * t869 * t316 - 0.16e2 / 0.9e1 * t554 * t1211 * t2116 * t140 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t4511 + 0.32e2 / 0.15e2 * t66 * t150 * t11 * t1897 - 0.24e2 / 0.5e1 * t597 * t598 * t25 * t1897 * t140 - 0.12e2 / 0.5e1 * t597 * t598 * t1914 * t366 - 0.64e2 / 0.5e1 * t597 * t598 * t1426 * t592 - 0.24e2 / 0.5e1 * t597 * t598 * t599 * t1416 + 0.48e2 / 0.5e1 * t597 * t1421 * t881 * t366 + 0.4e1 / 0.9e1 * t554 * t505 * t874 * t366 + 0.8e1 / 0.9e1 * t554 * t505 * t284 * t1416 + 0.8e1 / 0.9e1 * t554 * t505 * t2143 * t140 - 0.4e1 / 0.3e1 * t554 * t1211 * t869 * t366 + 0.32e2 / 0.27e2 * t554 * t505 * t723 * t592; t4615 = t161 * t1993; t4619 = t163 * t315 * t4409; t4624 = t1762 * t767; t4625 = t4624 * t316; t4655 = 0.4e1 / 0.3e1 * t1990 * t414 + 0.4e1 / 0.9e1 * t4615 * t165 + 0.8e1 / 0.3e1 * t162 * t4619 - 0.8e1 / 0.27e2 * t1305 * t825 + 0.1080e4 * t1176 * t1277 * t4625 + 0.60e2 * t3064 * t1930 - 0.4e1 / 0.3e1 * t2798 * t815 - 0.3e1 * t2781 * t815 + 0.16e2 / 0.27e2 * t1305 * t821 + 0.8e1 / 0.9e1 * t4314 * t262 + 0.2e1 * t2803 * t815 - 0.4e1 / 0.3e1 * t3610 * t262 - 0.8e1 / 0.3e1 * t1455 * t634 + 0.8e1 / 0.9e1 * t1475 * t634 + 0.4e1 / 0.3e1 * t1288 * t821 - 0.2e1 / 0.3e1 * t1288 * t825 + 0.4e1 / 0.9e1 * t1294 * t825 + 0.4e1 / 0.9e1 * t407 * t1987; t4663 = t163 * t110 * t4511; t4666 = t161 * t2230; t4669 = t400 * t891; t4677 = t402 * t376 * t4409; t4689 = t1928 * t366; t4694 = t269 * t1973 * t366; t4704 = t17 * t832 * t366; t4707 = -0.4e1 / 0.3e1 * t637 * t1470 - 0.8e1 / 0.9e1 * t1294 * t821 - 0.4e1 / 0.3e1 * t410 * t1987 - 0.2e1 / 0.3e1 * t162 * t4663 - 0.4e1 / 0.3e1 * t4666 * t165 - 0.3e1 * t4669 * t404 - 0.2e1 / 0.3e1 * t1990 * t418 - 0.16e2 / 0.27e2 * t3599 * t262 - 0.6e1 * t401 * t4677 - 0.180e3 * t1176 * t3623 * t1481 - 0.16e2 / 0.27e2 * t44 * t421 * t890 - 0.180e3 * t1176 * t2704 * t1929 - 0.90e2 * t1176 * t1277 * t4689 - 0.3e1 * t616 * t4694 - 0.8e1 / 0.9e1 * t1521 * t1983 - 0.8e1 * t1525 * t1966 + 0.16e2 / 0.3e1 * t1525 * t1970 - 0.4e1 * t628 * t4704; t4710 = t269 * t1928 * t316; t4713 = t26 * t293; t4721 = t17 * t2201 * t140; t4725 = t17 * t837 * t366; t4729 = t17 * t270 * t1416; t4736 = t269 * t375 * t1897 * t140; t4739 = t45 * t743; t4749 = t269 * t1936 * t366; t4758 = t2772 * t767 * t316 * t17; t4764 = t269 * t617 * t1416; t4771 = -0.108e3 * t616 * t4710 + 0.4e1 * t613 * t4713 * t61 * t619 + 0.8e1 / 0.3e1 * t1525 * t1983 + 0.8e1 / 0.3e1 * t628 * t4721 + 0.4e1 / 0.3e1 * t628 * t4725 + 0.8e1 / 0.3e1 * t628 * t4729 - 0.6e1 * t1508 * t1975 - 0.6e1 * t616 * t4736 - 0.12e2 * t613 * t4739 * t61 * t619 + 0.36e2 * t1508 * t1938 - 0.12e2 * t1508 * t1942 + 0.18e2 * t616 * t4749 - 0.12e2 * t1498 * t1938 + 0.4e1 * t1498 * t1942 - 0.315e3 * t3564 * t4758 - 0.6e1 * t1947 * t1517 - 0.6e1 * t616 * t4764 + 0.16e2 / 0.3e1 * t626 * t4739 * M_PI * t630; t4773 = t17 * t1973 * t316; t4779 = t269 * t2427 * t316; t4783 = t17 * t1936 * t316; t4802 = t140 * t592; t4804 = t269 * t1501 * t4802; t4808 = t17 * t617 * t4802; t4813 = t1052 * t800; t4814 = t4813 * t316; t4840 = t161 * t2179; t4855 = -t3669 * t262 / 0.12e2 - t474 * t1987 / 0.24e2 - t655 * t2203 + t1156 * t821 / 0.12e2 - t1156 * t825 / 0.24e2 - t2218 * t414 / 0.8e1 - t1678 * t634 / 0.12e2 - 0.3e1 / 0.16e2 * t3130 * t815 - t44 * t168 * t2178 / 0.12e2 - t1130 * t821 / 0.18e2 - t189 * t4619 / 0.4e1 + t4840 * t165 / 0.8e1 - t1684 * t834 + 0.9e1 * t268 * t269 * t375 * t4409 * t184 + 0.9e1 / 0.16e2 * t471 * t4677 + t3666 * t262 / 0.18e2 + t3110 * t815 / 0.8e1; t4872 = t767 * t1117; t4873 = t4872 * t1119; t4879 = t828 * t316; t4883 = t846 * t1147; t4887 = t649 * t1416; t4891 = t400 * t887; t4899 = t2206 * t2207 * t2772; t4904 = t161 * t2009; t4907 = t15 * t366; t4911 = t1130 * t825 / 0.36e2 + t1684 * t839 / 0.3e1 - 0.288e3 * t2223 * t2012 - 0.144e3 * t845 * t648 * t4409 * t462 + 0.720e3 * t2223 * t2006 + 0.288e3 * t2223 * t2016 + 0.18e2 * t1704 * t2069 - 0.54e2 * t644 * t648 * t4873 - 0.36e2 * t1704 * t2066 - 0.1620e4 * t644 * t3656 * t4879 + 0.27e2 * t644 * t648 * t4883 - 0.54e2 * t644 * t648 * t4887 + 0.9e1 / 0.32e2 * t4891 * t404 + t1687 * t634 / 0.4e1 + t692 * t1470 / 0.8e1 + 0.1296e4 * t4899 * t846 * t316 * t17 - t4904 * t165 / 0.24e2 - 0.108e3 * t2209 * t2210 * t4907; t4916 = t843 * t1047 * rho[0] * t4160 * t4163; t4918 = t394 * t316; t4941 = t1999 * t366; t4952 = t1897 * t184 * t140; t4958 = t1999 * t316; t4967 = -0.810e3 * t4916 * t846 * t1 * t4918 + 0.9e1 / 0.32e2 * t3173 * t815 - t1161 * t821 / 0.8e1 + t1161 * t825 / 0.16e2 + t477 * t1987 / 0.8e1 + t189 * t4663 / 0.16e2 + t2218 * t418 / 0.16e2 + t3661 * t262 / 0.8e1 - 0.3e1 / 0.2e1 * t268 * t269 * t149 * t4511 * t184 - 0.27e2 * t644 * t648 * t4941 + 0.135e3 / 0.8e1 * t1176 * t3060 * t1929 + 0.135e3 / 0.16e2 * t1176 * t1177 * t4689 - 0.54e2 * t644 * t648 * t4952 - 0.18e2 * t1704 * t2001 + 0.216e3 * t644 * t1707 * t4958 - 0.45e2 / 0.8e1 * t3064 * t1996 - 0.405e3 / 0.4e1 * t1176 * t1177 * t4625; t4986 = t3513 * t25; t5018 = t1897 * t526; t5049 = 0.20000000000000000000e1 * t4409 * t68 * t217 + 0.12566370614359172954e2 * t283 * t733 * t800 * t1245 * t523 + 0.23687050562614460686e4 * t880 * t4986 * t2126 * t316 - 0.12633093633394379033e4 * t880 * t1421 * t10 * t2158 + 0.37699111843077518862e2 * t283 * t1606 * t2133 * t316 - 0.16755160819145563939e2 * t283 * t1588 * t2134 - 0.25132741228718345908e2 * t283 * t717 * t2172 * t523 - 0.15079644737231007545e3 * t283 * t3809 * t2111 * t316 + 0.50265482457436691816e2 * t283 * t3814 * t2112 + 0.71061151687843382058e3 * t880 * t2167 * t767 * t2902 * t523 - 0.12566370614359172954e2 * t283 * t733 * t5018 * t215 - 0.62831853071795864770e1 * t283 * t733 * t2148 * t520 - 0.94748202250457842744e3 * t2154 * t2159 - 0.25132741228718345908e2 * t714 * t2135 - 0.12566370614359172954e2 * t714 * t2150 - 0.25132741228718345908e2 * t283 * t717 * t1897 * t217 * t140 - 0.12566370614359172954e2 * t283 * t717 * t2133 * t366 - 0.83775804095727819694e1 * t283 * t1645 * t2149 + 0.37699111843077518862e2 * t283 * t1606 * t2111 * t366; t5082 = t598 * t10; t5110 = -0.33510321638291127878e2 * t283 * t1588 * t2122 + 0.16755160819145563939e2 * t283 * t1588 * t2127 - 0.25132741228718345908e2 * t283 * t717 * t718 * t1416 + 0.12566370614359172954e2 * t283 * t717 * t2126 * t520 + 0.75398223686155037724e2 * t714 * t2113 - 0.50265482457436691816e2 * t714 * t2123 - 0.23687050562614460686e3 * t880 * t2167 * t2172 * t520 + 0.25132741228718345908e2 * t714 * t2128 + 0.47374101125228921372e3 * t2154 * t2169 - 0.47374101125228921372e3 * t2154 * t2174 - 0.47374101125228921372e3 * t880 * t2157 * t2126 * t366 + 0.63165468166971895163e3 * t880 * t5082 * t2168 - 0.63165468166971895163e3 * t880 * t5082 * t2173 + 0.23687050562614460686e3 * t880 * t2167 * t734 * t1416 + 0.62831853071795864770e1 * t2 * t4409 * t866 + 0.20000000000000000000e1 * t862 * t2892 + 0.60000000000000000000e1 * t832 * t217 * t316 + 0.83775804095727819694e1 * t283 * t208 * t45 * t1897 * t217 + 0.62831853071795864770e1 * t1578 * t876 + 0.12566370614359172954e2 * t714 * t2145; t5174 = t375 * t217; t5178 = -0.12566370614359172954e2 * t1578 * t871 + 0.11843525281307230343e3 * t500 * t60 * t269 * t883 + 0.62831853071795864770e1 * t283 * t208 * t20 * t4511 * t217 + 0.23687050562614460686e3 * t880 * t598 * t25 * t4409 * t526 + 0.83775804095727819694e1 * t714 * t2140 - 0.13962634015954636616e1 * t283 * t208 * t26 * t800 * t217 + 0.27925268031909273231e1 * t283 * t505 * t26 * t767 * t217 - 0.25132741228718345908e2 * t283 * t505 * t20 * t4409 * t217 - 0.20000000000000000000e1 * t2091 * t217 * t366 - 0.10000000000000000000e1 * t862 * t3728 + t706 * t2084 * t1621 / 0.48e2 - 0.16755160819145563939e2 * t714 * t2118 + t706 * t2084 * t1568 / 0.36e2 - t706 * t2084 * t1573 / 0.48e2 - t706 * t1897 * t9 * t709 / 0.24e2 + 0.31582734083485947582e3 * t2154 * t2164 + 0.52637890139143245970e2 * t880 * t598 * t79 * t767 * t526 + 0.20000000000000000000e1 * t2088 * t3750 + 0.18849555921538759431e2 * t865 * t5174 * t316; t5183 = t879 * t1; t5184 = t5183 * t1721; t5205 = t5183 * t662; t5232 = t2097 * t149; t5235 = t2097 * t68; t5244 = 0.62831853071795864770e1 * t865 * t68 * t1245 * t523 - 0.18949640450091568549e4 * t5184 * t256 * t1595 * t592 + 0.18949640450091568549e4 * t5184 * t805 * t3845 * t215 + 0.25132741228718345908e2 * t1594 * t801 * t1596 + 0.50265482457436691816e2 * t1594 * t252 * t1612 + 0.15079644737231007545e3 * t3839 * t252 * t1632 - 0.75398223686155037724e2 * t3839 * t768 * t1596 - 0.94748202250457842744e3 * t5205 * t256 * t3772 * t215 - 0.40000000000000000000e1 * t2088 * t1612 + 0.40000000000000000000e1 * t2091 * t1596 - 0.80000000000000000000e1 * t270 * t1632 + 0.62831853071795864770e1 * t2097 * t866 * t1416 - 0.62831853071795864770e1 * t865 * t2101 * t366 - t77 * t6 * t4511 * t278 / 0.48e2 - M_PI * t865 * t2105 * t520 + 0.12566370614359172954e2 * t865 * t149 * t1596 - 0.25132741228718345908e2 * t5232 * t1632 - 0.12566370614359172954e2 * t5235 * t1612 - 0.5e1 / 0.216e3 * t77 * t858 * t1563 + t77 * t2077 * t702 / 0.36e2; t5252 = t26 * t289; t5269 = t2206 * rho[0]; t5270 = t1759 * t1762; t5277 = t5270 * t767; t5299 = -0.432e3 * t2005 * t1936 * t3103 * t1119 - 0.270e3 * t1764 * t2028 * t3979 + 0.135e3 * t1764 * t2032 * t3979 + t44 * t46 * (t5049 + t5110 + t5178 + t5244) / 0.8e1 + 0.3e1 / 0.4e1 * t2042 * t1493 - 0.3e1 / 0.8e1 * t613 * t5252 * t61 * t619 - t2042 * t1529 / 0.2e1 + 0.945e3 / 0.32e2 * t4088 * t4758 - 0.135e3 / 0.2e1 * t1764 * t4958 * t17 - 0.45e2 * t4093 * t2021 + 0.2025e4 / 0.2e1 * t4097 * t4879 * t17 - 0.432e3 * t5269 * t5270 * t251 * t1748 * t12 * t2020 + 0.432e3 * t5269 * t5277 * t2015 * t12 * t2020 + 0.9e1 * t661 * t662 * t4873 + 0.90e2 * t661 * t4020 * t4879 - 0.3e1 * t661 * t671 * t800 * t1117 * t1119 - 0.18e2 * t661 * t1721 * t4958 - 0.3e1 / 0.2e1 * t687 * t4783; t5332 = t1707 * t4390; t5343 = t45 * t739; t5348 = -t687 * t4721 / 0.4e1 + 0.9e1 / 0.16e2 * t679 * t4736 + 0.9e1 * t661 * t662 * t4952 + 0.3e1 * t661 * t671 * t1897 * t462 * t466 + 0.9e1 / 0.8e1 * t2046 * t1513 + 0.3e1 / 0.4e1 * t1732 * t1966 - t1732 * t1970 / 0.2e1 - 0.27e2 / 0.8e1 * t1773 * t1938 - t1732 * t1983 / 0.4e1 + 0.9e1 / 0.16e2 * t1773 * t1975 + 0.135e3 / 0.8e1 * t1176 * t3652 * t1481 + 0.135e3 / 0.16e2 * t1176 * t1177 * t4814 + 0.135e3 / 0.4e1 * t4193 * t5332 + 0.54e2 * t1785 * t2427 * t1262 - 0.2160e4 * t2005 * t4624 * t2944 + 0.9e1 / 0.16e2 * t2046 * t1517 - t626 * t5343 * M_PI * t630 / 0.2e1; t5393 = 0.9e1 / 0.8e1 * t613 * t5343 * t61 * t619 - t687 * t4725 / 0.8e1 - 0.27e2 / 0.16e2 * t679 * t4779 + 0.9e1 / 0.8e1 * t1773 * t1942 - t1781 * t1966 / 0.4e1 + t1781 * t1970 / 0.6e1 + 0.9e1 / 0.8e1 * t1716 * t1938 + 0.3e1 / 0.8e1 * t687 * t4704 + 0.81e2 / 0.8e1 * t679 * t4710 + 0.9e1 / 0.32e2 * t679 * t4694 - t2042 * t1533 / 0.4e1 - 0.27e2 / 0.8e1 * t2046 * t1503 - 0.135e3 / 0.2e1 * t1764 * t2019 * t4907 - 0.2835e4 / 0.4e1 * t4165 * t828 * t1 * t4918 + 0.9e1 / 0.2e1 * t661 * t662 * t4941 + 0.3e1 / 0.2e1 * t661 * t671 * t2056 * t1147 - 0.3e1 / 0.8e1 * t1716 * t1942 - 0.27e2 / 0.16e2 * t679 * t4749; t5416 = t828 * t366; t5441 = -t687 * t4729 / 0.4e1 + 0.3e1 * t1737 * t2053 + t1737 * t2058 + t1781 * t1983 / 0.12e2 + 0.3e1 / 0.8e1 * t687 * t4773 - 0.3e1 / 0.16e2 * t1716 * t1975 + t626 * t5252 * M_PI * t630 / 0.6e1 - 0.12e2 * t1737 * t2025 + 0.6e1 * t1737 * t2029 - 0.3e1 * t1737 * t2033 - 0.18e2 * t661 * t1721 * t5416 + 0.9e1 * t661 * t662 * t4887 - 0.9e1 / 0.2e1 * t661 * t662 * t4883 + 0.9e1 / 0.16e2 * t679 * t4764 - 0.72e2 * t661 * t1721 * t649 * t4802 + 0.36e2 * t661 * t1721 * t846 * t1536 - 0.18e2 * t661 * t662 * t672 * t592 * t466; t5499 = -0.9e1 * t661 * t662 * t2056 * t1536 + 0.3e1 / 0.2e1 * t687 * t4808 - 0.27e2 / 0.4e1 * t679 * t4804 - 0.216e3 * t2206 * t5277 * t462 * t12 * t2020 - 0.432e3 * t1785 * t1928 * t1262 + 0.864e3 * t1785 * t1480 * t1695 + 0.108e3 * t1785 * t1501 * t1749 + t44 * t421 * t886 / 0.18e2 - 0.144e3 * t2005 * t1501 * t4145 + 0.6e1 * t3640 * t829 - 0.54e2 * t644 * t648 * t4409 * t184 + 0.360e3 * t2005 * t1928 * t2925 + 0.144e3 * t2005 * t1936 * t2939 - 0.1440e4 * t2005 * t1928 * t2015 * t140 + 0.1440e4 * t2005 * t1480 * t1748 * t140 + 0.576e3 * t2005 * t1501 * t4034 * t466 + 0.216e3 * t644 * t1707 * t5416 + 0.144e3 * t1704 * t2072; t5511 = -0.4e1 * t628 * t4773 + 0.2e1 * t1498 * t1975 + 0.18e2 * t616 * t4779 + 0.16e2 * t628 * t4783 - 0.8e1 * t1955 * t1493 - 0.16e2 / 0.9e1 * t626 * t4713 * M_PI * t630 - 0.12e2 * t1947 * t1513 - 0.16e2 / 0.9e1 * t1521 * t1970 + 0.8e1 / 0.3e1 * t1521 * t1966 + 0.8e1 / 0.3e1 * t1955 * t1533 + 0.16e2 / 0.3e1 * t1955 * t1529 + 0.72e2 * t616 * t4804 - 0.16e2 * t628 * t4808 + 0.36e2 * t1947 * t1503 - 0.90e2 * t1176 * t1277 * t4814 - 0.4e1 / 0.3e1 * t44 * t46 * (t4855 + t4911 + t4967 + t5299 + t5348 + t5393 + t5441 + t5499) - 0.360e3 * t3591 * t5332 + 0.8e1 / 0.9e1 * t44 * t168 * t2229; t5514 = my_piecewise3(t49, t4549 + t4611, t4655 + t4707 + t4771 + t5511); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[0] = -0.3e1 / 0.8e1 * t108 * t109 * t2235 * t140 - t551 * t2251 - 0.3e1 / 0.8e1 * t108 * t109 * t1797 * t251 - 0.3e1 / 0.16e2 * t108 * t109 * t895 * t366 - t551 * t2247 - t551 * t2237 / 0.2e1 - t551 * t2241 / 0.2e1 - 0.3e1 / 0.16e2 * t108 * t109 * t5514 * t38 - 0.3e1 / 0.16e2 * t108 * t109 * t101 * t4511 - 0.3e1 / 0.8e1 * t108 * t109 * t228 * t1897 - t551 * t2261 / 0.2e1 - 0.3e1 / 0.16e2 * t108 * t109 * t537 * t800 - 0.3e1 / 0.8e1 * t108 * t109 * t298 * t1416 - t551 * t2257 / 0.2e1 - t1336 * t897 / 0.12e2 - 0.3e1 / 0.4e1 * t108 * t109 * t748 * t592 - t1336 * t901 / 0.6e1 - t1336 * t905 / 0.12e2; t5564 = t251 * t800 * t140; t5621 = t246 * t795; t5660 = -0.14933333333333333333e-1 * t17 * t1861 - 0.16799999999999999999e-1 * t1853 * t3405 * t774 * t135 + 0.11200000000000000000e-1 * t1853 * t1854 * t246 * t587 + 0.74666666666666666664e-2 * t17 * t1873 + 0.55999999999999999998e-2 * t1853 * t1854 * t795 * t135 - 0.27999999999999999999e-2 * t17 * t1894 + 0.14933333333333333333e-1 * t119 * t332 * t2278 + 0.22399999999999999999e-1 * t119 * t120 * t2551 * t2277 * t135 - 0.16799999999999999999e-1 * t119 * t120 * t1864 * t587 - 0.14933333333333333333e-1 * t119 * t332 * t2282 - 0.16799999999999999999e-1 * t3404 * t3405 * t5621 * t135 + 0.55999999999999999998e-2 * t119 * t120 * t1390 * t795 + 0.55999999999999999998e-2 * t119 * t120 * t571 * t1892 + 0.24888888888888888889e-2 * t119 * t332 * t2303 + 0.18666666666666666666e-2 * t119 * t120 * t337 * t2302 * t135 - 0.93333333333333333332e-3 * t119 * t120 * t122 * (-0.12600000000000000000e-1 * t2288 * t125 + 0.12600000000000000000e-1 * t2292 * t132 + 0.8400000000000000000e-2 * t2295 * t582 * t357 - 0.35280000000000000000e0 * t1889 + 0.25200000000000000000e0 / t20 / t991 * t2594 * t18); t5705 = 0.16e2 / 0.3e1 * t554 * t2846 * t2381 * t140 - 0.8e1 / 0.9e1 * t53 * t926 * t46 * t2264 - 0.4e1 * t554 * t1211 * t869 * t592 - 0.4e1 * t554 * t1606 * t5564 + 0.8e1 / 0.9e1 * t554 * t505 * t723 * t800 + 0.4e1 / 0.3e1 * t554 * t505 * t728 * t800 + 0.4e1 / 0.3e1 * t554 * t505 * t284 * t1897 + 0.4e1 / 0.9e1 * t554 * t505 * t2395 * t140 - 0.4e1 / 0.27e2 * t53 * t110 * t46 * t2307 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t5660 - 0.48e2 * t597 * t3513 * t2390 * t140 + 0.64e2 / 0.5e1 * t66 * t1012 * t11 * t2264 + 0.144e3 / 0.5e1 * t597 * t1421 * t881 * t592 + 0.144e3 / 0.5e1 * t597 * t2157 * t5564 - 0.48e2 / 0.5e1 * t597 * t598 * t1426 * t800 - 0.36e2 / 0.5e1 * t597 * t598 * t1431 * t800 - 0.36e2 / 0.5e1 * t597 * t598 * t599 * t1897 - 0.12e2 / 0.5e1 * t597 * t598 * t25 * t2307 * t140 + 0.16e2 / 0.15e2 * t66 * t150 * t11 * t2307 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t5660; t5709 = t800 * t140; t5711 = t17 * t617 * t5709; t5733 = t1707 * t5564; t5736 = -0.90e2 * t1176 * t2704 * t2325 - 0.12e2 * t628 * t5711 - 0.6e1 * t1310 * t2332 + 0.3e1 * t4319 * t815 + 0.2e1 / 0.3e1 * t4615 * t262 - 0.4e1 / 0.3e1 * t1475 * t821 + 0.2e1 / 0.3e1 * t1475 * t825 + 0.2e1 / 0.9e1 * t407 * t2354 + 0.4e1 / 0.3e1 * t407 * t2346 + 0.4e1 / 0.9e1 * t44 * t168 * t2498 + 0.30e2 * t3064 * t2326 - 0.270e3 * t3591 * t5733; t5743 = t649 * t1897; t5755 = t269 * t1501 * t5709; t5773 = t163 * t110 * t5660; t5776 = 0.576e3 * t2223 * t2325 * t462 - 0.216e3 * t2005 * t2427 * t1748 - 0.81e2 * t644 * t648 * t5743 - 0.27e2 / 0.2e1 * t661 * t662 * t672 * t800 * t466 + 0.9e1 / 0.8e1 * t687 * t5711 - 0.81e2 / 0.16e2 * t679 * t5755 - 0.405e3 / 0.2e1 * t1764 * t2435 * t3979 - 0.54e2 * t661 * t1721 * t649 * t5709 + 0.135e3 / 0.16e2 * t1176 * t3060 * t2325 + 0.3e1 / 0.16e2 * t4840 * t262 + t477 * t2354 / 0.16e2 + t189 * t5773 / 0.16e2; t5807 = t1928 * t592; t5818 = -0.3e1 / 0.2e1 * t268 * t269 * t149 * t5660 * t184 - t4904 * t262 / 0.16e2 - 0.480e3 * t2483 * t20 * t1759 * t1762 * t2490 - 0.45e2 / 0.2e1 * t1757 * t80 * t1759 * t2473 - t655 * t2478 / 0.2e1 - t474 * t2354 / 0.48e2 + 0.3e1 / 0.16e2 * t2218 * t634 - 0.9e1 / 0.32e2 * t3679 * t815 - 0.216e3 * t2005 * t647 * t1897 * t672 + 0.405e3 / 0.16e2 * t4193 * t5733 + 0.405e3 / 0.16e2 * t1176 * t1177 * t5807 + 0.1080e4 * t2005 * t4813 * t672 * t140 + 0.648e3 * t1785 * t1480 * t2000; t5823 = t2431 * t140; t5827 = t828 * t592; t5835 = t2471 * t140; t5840 = t2307 * t184 * t140; t5844 = t2439 * t466; t5848 = t1694 * t800; t5855 = t269 * t1511 * t800; t5859 = t17 * t2457 * t140; t5863 = t17 * t832 * t592; t5866 = 0.81e2 * t1785 * t1501 * t2057 - 0.1620e4 * t644 * t3656 * t5823 + 0.648e3 * t644 * t1707 * t5827 + 0.432e3 * t2005 * t2427 * t1725 * t466 - 0.405e3 / 0.4e1 * t1176 * t1177 * t5835 - 0.27e2 * t644 * t648 * t5840 - 0.216e3 * t644 * t1707 * t5844 - 0.81e2 * t644 * t648 * t5848 + 0.27e2 / 0.32e2 * t1773 * t2336 + 0.27e2 / 0.32e2 * t679 * t5855 - 0.3e1 / 0.2e1 * t687 * t5859 + 0.9e1 / 0.8e1 * t687 * t5863; t5868 = t269 * t2325 * t140; t5875 = t2772 * t2264 * t12 * t2020; t5878 = t5270 * t800; t5912 = t2414 * t1762; t5946 = 0.33664581861351242310e6 * t2415 * t19 * t767 * t3772 - 0.33664581861351242310e6 * t2415 * t2416 * t2902 * t215 - 0.67329163722702484620e6 * t5912 * t2416 * t3845 + 0.22443054574234161540e6 * t2415 * rho[0] * t2264 * t1245 + 0.30000000000000000000e1 * t2361 * t1631 + 0.30000000000000000000e1 * t1897 * t68 * t718 - 0.60000000000000000000e1 * t2091 * t1631 + 0.60000000000000000000e1 * t2367 * t2092 + 0.20000000000000000000e1 * t2364 * t1239 + 0.11221527287117080770e6 * t205 * t2413 * t1052 * t2417 - 0.18849555921538759431e2 * t5232 * t2134 - 0.94247779607693797155e1 * t5235 * t2149 + 0.62831853071795864770e1 * t714 * t2397 + 0.62831853071795864770e1 * t283 * t208 * t20 * t5660 * t217; t5949 = t2368 * t12; t6005 = 0.37699111843077518862e2 * t714 * t2383 + 0.37699111843077518862e2 * t832 * t5949 * t15 * t593 - 0.50265482457436691816e2 * t2457 * t5949 * t15 * t141 - 0.25132741228718345908e2 * t2367 * t1245 * t51 * t12 * t15 * t55 * t215 - t706 * t2307 * t9 * t709 / 0.48e2 + 0.13159472534785811492e2 * t2405 * t2406 * t45 * t375 * t526 - 0.94748202250457842744e3 * t880 * t1421 * t10 * t2264 * t526 + 0.41887902047863909847e1 * t283 * t208 * t45 * t2307 * t217 + 0.25132741228718345908e2 * t283 * t1211 * t45 * t2264 * t217 - 0.71061151687843382058e3 * t2154 * t2392 - t77 * t6 * t5660 * t278 / 0.48e2 + 0.83775804095727819693e1 * t2369 * t16 * t2370 * t45 + t77 * t2357 * t702 / 0.72e2 + 0.37699111843077518862e2 * t1594 * t252 * t2149; t6048 = t2264 * t526; t6053 = -0.14212230337568676412e4 * t5184 * t809 * t734 * t140 - 0.71061151687843382058e3 * t5205 * t809 * t1601 * t215 + 0.11309733552923255659e3 * t3839 * t252 * t2134 - 0.60000000000000000000e1 * t837 * t719 - 0.30000000000000000000e1 * t2361 * t735 + 0.94247779607693797155e1 * t2097 * t866 * t1897 + 0.94247779607693797155e1 * t2 * t592 * t2375 - 0.37699111843077518862e2 * t865 * t2101 * t592 + 0.37699111843077518862e2 * t2378 * t5174 * t140 + 0.12566370614359172954e2 * t2378 * t149 * t526 * t215 + 0.47374101125228921372e3 * t880 * t5082 * t2400 - 0.25132741228718345908e2 * t283 * t1588 * t2386 - 0.37699111843077518862e2 * t283 * t717 * t718 * t1897 + 0.35530575843921691029e4 * t880 * t4986 * t6048 * t140; t6083 = t2307 * t526; t6117 = -0.21318345506353014617e4 * t880 * t2157 * t2126 * t592 + 0.14212230337568676412e4 * t880 * t2157 * t2264 * t1245 * t215 - 0.12566370614359172954e2 * t283 * t717 * t2307 * t217 * t140 - 0.15079644737231007545e3 * t283 * t3809 * t2264 * t217 * t140 + 0.11309733552923255659e3 * t283 * t1606 * t2111 * t592 - 0.37699111843077518862e2 * t283 * t1606 * t6048 * t215 - 0.37699111843077518862e2 * t714 * t2387 - 0.62831853071795864770e1 * t283 * t733 * t6083 * t215 + 0.35530575843921691029e3 * t2154 * t2401 + 0.35530575843921691029e3 * t880 * t2167 * t5018 * t251 + 0.35530575843921691029e3 * t880 * t2167 * t2148 * t592 + 0.59217626406536151714e2 * t2405 * t768 * t375 * t526 * t592 - 0.78956835208714868952e2 * t2405 * t2265 * t647 * t526 * t140 - 0.39478417604357434476e2 * t2405 * t2265 * t375 * t1245 * t215 - 0.37699111843077518862e2 * t283 * t717 * t1631 * t800; t6123 = 0.81e2 / 0.8e1 * t679 * t5868 - 0.3e1 / 0.8e1 * t1732 * t2350 + 0.945e3 / 0.32e2 * t4088 * t5875 - 0.324e3 * t5269 * t5878 * t672 * t12 * t2020 + 0.2025e4 / 0.2e1 * t4097 * t2431 * t12 * t2020 + 0.9e1 / 0.2e1 * t1737 * t2462 - 0.9e1 / 0.32e2 * t1716 * t2336 + t1781 * t2350 / 0.8e1 + 0.405e3 / 0.16e2 * t1176 * t3652 * t1929 - 0.216e3 * t2206 * t5270 * t2443 - 0.27e2 * t1704 * t2436 - 0.216e3 * t2223 * t2428 + t44 * t46 * (t5946 + t6005 + t6053 + t6117) / 0.8e1; t6152 = t161 * t2421; t6155 = -t44 * t168 * t2420 / 0.24e2 - 0.45e2 / 0.16e2 * t3064 * t2424 + 0.72e2 * t1704 * t2432 - 0.1152e4 * t2005 * t2325 * t2015 - 0.3456e4 * t2005 * t2471 * t1261 + 0.1728e4 * t2005 * t1928 * t1748 - 0.6e1 * t655 * t2459 + 0.9e1 / 0.16e2 * t1124 * t2332 - t474 * t2346 / 0.8e1 + 0.3e1 / 0.8e1 * t477 * t2346 - 0.27e2 / 0.16e2 * t1153 * t2332 + t6152 * t165 / 0.16e2; t6162 = t2439 * t12; t6166 = t15 * t592; t6170 = t15 * t466; t6175 = t394 * t140; t6182 = t269 * t617 * t1897; t6192 = t17 * t666 * t800; t6195 = -t1678 * t825 / 0.16e2 + t1678 * t821 / 0.8e1 + 0.3e1 / 0.16e2 * t1687 * t825 + 0.2376e4 * t4899 * t6162 * t2020 - 0.648e3 * t2209 * t2210 * t6166 + 0.432e3 * t2209 * t2488 * t6170 - 0.1620e4 * t4916 * t2439 * t1 * t6175 - 0.3e1 / 0.8e1 * t1687 * t821 + 0.27e2 / 0.32e2 * t679 * t6182 + 0.9e1 / 0.8e1 * t2042 * t1966 - 0.3e1 / 0.4e1 * t2042 * t1970 - 0.81e2 / 0.16e2 * t2046 * t1938 - 0.3e1 / 0.8e1 * t687 * t6192; t6198 = t17 * t270 * t1897; t6202 = t269 * t1936 * t592; t6229 = t17 * t2476 * t140; t6234 = t269 * t375 * t2307 * t140; t6237 = -0.3e1 / 0.8e1 * t687 * t6198 - 0.81e2 / 0.16e2 * t679 * t6202 + 0.90e2 * t661 * t4020 * t5823 - 0.54e2 * t661 * t1721 * t5827 + 0.18e2 * t661 * t1721 * t5844 + 0.27e2 / 0.2e1 * t661 * t662 * t5848 + 0.27e2 / 0.2e1 * t661 * t662 * t5743 - 0.2835e4 / 0.4e1 * t4165 * t2431 * t1 * t6175 - 0.3e1 / 0.8e1 * t2042 * t1983 + 0.27e2 / 0.32e2 * t2046 * t1975 - t687 * t6229 / 0.8e1 + 0.9e1 / 0.32e2 * t679 * t6234; t6238 = t45 * t886; t6253 = t2483 * t199; t6257 = t1117 * t12 * t14; t6275 = t2482 * t399; t6301 = 0.27e2 / 0.32e2 * t613 * t6238 * t61 * t619 + 0.27e2 / 0.16e2 * t2046 * t1942 + 0.9e1 / 0.2e1 * t661 * t662 * t5840 + 0.3e1 / 0.2e1 * t661 * t671 * t2307 * t462 * t466 + 0.2016e4 * t6253 * t2773 * t2264 * t6257 * t2370 * t140 - 0.864e3 * t6253 * t5277 * t6257 * t2370 * t592 + 0.864e3 * t6253 * t5270 * t2264 * t3103 * t12 * t14 * t2370 * t466 - 0.1296e4 * t6275 * t199 * t4160 * t4163 * t2264 * t1117 * t1 * t64 * t6 * t8 * t140 - 0.405e3 / 0.2e1 * t1764 * t2019 * t6166 + 0.135e3 / 0.2e1 * t1764 * t6162 * t6170 - 0.3e1 / 0.8e1 * t626 * t6238 * M_PI * t630 + 0.27e2 / 0.32e2 * t3686 * t815 + 0.3e1 / 0.16e2 * t692 * t1987; t6310 = t161 * t2499; t6333 = -0.4e1 / 0.3e1 * t44 * t46 * (t5776 + t5818 + t5866 + t6123 + t6155 + t6195 + t6237 + t6301) + 0.54e2 * t616 * t5755 - 0.2e1 / 0.3e1 * t6310 * t165 - 0.9e1 * t3607 * t815 - 0.2e1 * t4666 * t262 + 0.18e2 * t1291 * t2332 + 0.4e1 * t1455 * t821 - 0.2e1 * t1990 * t634 - 0.2e1 * t1455 * t825 - 0.2e1 / 0.3e1 * t410 * t2354 - 0.2e1 / 0.3e1 * t162 * t5773 - 0.2e1 * t637 * t1987 - 0.4e1 * t410 * t2346; t6360 = t45 * t890; t6367 = -0.270e3 * t1176 * t1277 * t5807 - 0.270e3 * t1176 * t3623 * t1929 + 0.1080e4 * t1176 * t1277 * t5835 + 0.54e2 * t1947 * t1938 - 0.18e2 * t1947 * t1942 - 0.108e3 * t616 * t5868 + 0.54e2 * t616 * t6202 - 0.315e3 * t3564 * t5875 - 0.4e1 / 0.3e1 * t1521 * t2350 - 0.9e1 * t616 * t5855 - 0.9e1 * t616 * t6182 - 0.9e1 * t613 * t6360 * t61 * t619 + 0.3e1 * t1498 * t2336; t6396 = -0.9e1 * t1508 * t2336 + 0.4e1 * t626 * t6360 * M_PI * t630 - 0.12e2 * t1955 * t1966 + 0.8e1 * t1955 * t1970 + 0.4e1 * t1525 * t2350 + 0.4e1 * t628 * t6192 + 0.4e1 * t628 * t6198 + 0.4e1 * t1955 * t1983 - 0.9e1 * t1947 * t1975 + 0.16e2 * t628 * t5859 - 0.12e2 * t628 * t5863 + 0.4e1 / 0.3e1 * t628 * t6229 - 0.3e1 * t616 * t6234; t6399 = my_piecewise3(t49, t5705, t5736 + t6333 + t6367 + t6396); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[0] = -t551 * t2505 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t109 * t6399 * t38 - 0.3e1 / 0.16e2 * t108 * t109 * t2503 * t140 - 0.3e1 / 0.4e1 * t551 * t2509 - 0.9e1 / 0.16e2 * t108 * t109 * t2235 * t251 - 0.9e1 / 0.16e2 * t108 * t109 * t895 * t592 - 0.3e1 / 0.4e1 * t551 * t2513 - 0.9e1 / 0.16e2 * t108 * t109 * t748 * t800 - 0.9e1 / 0.16e2 * t108 * t109 * t298 * t1897 - t551 * t2517 / 0.4e1 - 0.3e1 / 0.16e2 * t108 * t109 * t228 * t2307 - 0.3e1 / 0.16e2 * t108 * t109 * t101 * t5660; t6438 = t767 * t767; t6447 = t800 * t800; t6463 = t774 * t774; t6472 = t795 * t795; t6506 = -0.22399999999999999999e-1 * t17 * t2279 + 0.22400000000000000000e-1 * t1853 * t1854 * t5621 - 0.37333333333333333332e-2 * t17 * t2304 + 0.22399999999999999999e-1 * t119 * t120 * t2551 * t6463 - 0.33599999999999999998e-1 * t119 * t120 * t1864 * t795 + 0.55999999999999999998e-2 * t119 * t120 * t337 * t6472 + 0.74666666666666666664e-2 * t119 * t120 * t571 * t2302 - 0.93333333333333333332e-3 * t119 * t120 * t122 * (-0.23625000000000000000e-1 / t23 / t990 * t8 * t29 + 0.23625000000000000000e-1 / t990 * t9 * t786 + 0.15750000000000000000e-1 * t2291 * t8 * t2296 + 0.18900000000000000000e-1 * t784 * t2299 * t996 - 0.94500000000000000000e-1 / t20 / t1406 * t2594 * t9); t6533 = t2773 * t6438 * t17; t6543 = t163 * t2685 * t6438; t6547 = t17 * t832 * t800; t6551 = t163 * t315 * t6447; t6555 = t17 * t270 * t2307; t6560 = t1762 * t6438; t6564 = t1928 * t800; t6568 = -0.315e3 * t2770 * t6533 - 0.18e2 * t4669 * t815 + 0.16e2 * t1955 * t2350 - 0.16e2 * t637 * t2346 + 0.16e2 * t162 * t6543 - 0.24e2 * t628 * t6547 + 0.4e1 * t162 * t6551 + 0.16e2 / 0.3e1 * t628 * t6555 + 0.8e1 * t1990 * t821 + 0.1080e4 * t1176 * t1277 * t6560 - 0.540e3 * t1176 * t1277 * t6564; t6570 = t402 * t2650 * t6438; t6574 = t269 * t1936 * t800; t6578 = t402 * t376 * t6447; t6582 = t269 * t617 * t2307; t6590 = t163 * t110 * t6506; t6603 = t6438 * t462; t6616 = t649 * t2307; t6620 = t828 * t800; t6678 = t59 * t59; t6699 = 0.60000000000000000000e1 * t6438 * t375 * t217 + 0.30000000000000000000e1 * t6447 * t68 * t217 + 0.94247779607693797155e1 * t2 * t6447 * t866 - 0.12000000000000000000e2 * t837 * t2111 + 0.35530575843921691029e3 * t880 * t598 * t25 * t6447 * t526 - 0.15079644737231007545e3 * t283 * t2846 * t20 * t6438 * t217 - 0.37699111843077518862e2 * t283 * t505 * t20 * t6447 * t217 + 0.42636691012706029235e4 * t880 * t3513 * t25 * t6438 * t526 + 0.75398223686155037724e2 * t1973 * t2126 * t51 * t2372 + 0.23378181848160584938e4 * t60 * t2 * t7 * t6438 * t9 * t25 * t1052 * t1245 + 0.21152080612358654050e7 * t84 / t6678 * t2772 * t21 * t6438 * t2902 * t12 * t2489 - 0.19739208802178717238e3 * t2405 * t6438 * t8 * t20 * t647 * t526 + 0.62831853071795864770e1 * t283 * t208 * t20 * t6506 * t217; t6704 = t6438 * t1052; t6755 = -t77 * t6 * t6506 * t278 / 0.48e2 + 0.71061151687843382058e3 * t6704 * t1245 * t60 * t65 * t109 * t25 - 0.87964594300514210678e2 * t6438 * t647 * t2368 * t2372 + 0.56548667764616278293e2 * t2 * t6438 * t5174 + 0.40000000000000000000e1 * t2307 * t68 * t718 - 0.13465832744540496924e7 * t5912 * t19 * t6438 * t1245 + 0.12566370614359172954e2 * t2097 * t866 * t2307 + 0.11843525281307230343e3 * t2405 * t768 * t1973 * t526 + 0.22619467105846511318e3 * t283 * t1606 * t2111 * t800 - 0.50265482457436691816e2 * t283 * t717 * t718 * t2307 - 0.42636691012706029235e4 * t880 * t2157 * t2126 * t800 + 0.67329163722702484621e6 * t2415 * t19 * t800 * t2172 - 0.75398223686155037724e2 * t865 * t2101 * t800 + 0.47374101125228921372e3 * t880 * t2167 * t6083 * t251; t6760 = -0.288e3 * t2005 * t647 * t2307 * t672 - 0.2430e4 * t4916 * t6603 * t269 + 0.3240e4 * t4899 * t6603 * t17 - 0.405e3 / 0.4e1 * t1176 * t1177 * t6560 + 0.3456e4 * t2005 * t4813 * t846 - 0.108e3 * t644 * t648 * t6616 + 0.1296e4 * t644 * t1707 * t6620 + 0.405e3 / 0.8e1 * t1176 * t1177 * t6564 - 0.81e2 * t644 * t648 * t6447 * t184 - 0.1620e4 * t644 * t3656 * t6438 * t184 + t44 * t46 * (t6699 + t6755) / 0.8e1; t6794 = -0.81e2 / 0.8e1 * t679 * t6574 - 0.1728e4 * t6253 * t5878 * t4872 * t12 * t2489 - 0.405e3 * t1764 * t6620 * t17 + 0.18e2 * t661 * t662 * t6616 + 0.27e2 / 0.8e1 * t2046 * t2336 + 0.9e1 / 0.8e1 * t679 * t6582 + 0.9e1 / 0.4e1 * t687 * t6547 - 0.3e1 / 0.2e1 * t2042 * t2350 - t687 * t6555 / 0.2e1 - 0.108e3 * t661 * t1721 * t6620 - 0.4320e4 * t845 * t3656 * t6603 - 0.216e3 * t845 * t648 * t6447 * t462; t6814 = t6438 * t1117; t6839 = 0.135e3 / 0.4e1 * t1176 * t3652 * t2325 + t6152 * t262 / 0.4e1 + 0.945e3 / 0.32e2 * t3162 * t6533 - 0.1296e4 * t2209 * t2056 * t767 * t17 + 0.2025e4 / 0.2e1 * t2470 * t2772 * t6438 * t184 * t17 + 0.4320e4 * t2483 * t2484 * t2772 * t6814 * t12 * t2489 + 0.81e2 / 0.8e1 * t471 * t6570 - 0.27e2 / 0.4e1 * t1656 * t2332 - 0.3e1 / 0.4e1 * t2218 * t821 - 0.3e1 / 0.8e1 * t189 * t6551 - 0.5184e4 / t59 / t842 * t160 * t123 * t4160 * t4163 * t6438 * t3103 * t1 * t394 * t9; t6883 = 0.27e2 / 0.16e2 * t4891 * t815 + t692 * t2354 / 0.4e1 + t189 * t6590 / 0.16e2 - 0.2835e4 / 0.4e1 * t4158 * t11 * t4160 * t4163 * t6438 * t184 * t269 - 0.3e1 / 0.2e1 * t268 * t269 * t149 * t6506 * t184 + 0.3e1 / 0.8e1 * t2218 * t825 - 0.3888e4 * t6275 * t199 * t4160 * t4163 * t6814 * t1 * t394 * t8 + 0.3e1 / 0.2e1 * t692 * t2346 + 0.90e2 * t268 * t269 * t6704 * t184 + 0.27e2 / 0.2e1 * t268 * t269 * t375 * t6447 * t184 + 0.27e2 / 0.32e2 * t471 * t6578 - 0.3e1 / 0.2e1 * t189 * t6543; t6892 = -0.108e3 * t401 * t6570 + 0.108e3 * t616 * t6574 - 0.9e1 * t401 * t6578 - 0.12e2 * t616 * t6582 + 0.72e2 * t1466 * t2332 - 0.36e2 * t1947 * t2336 - 0.2e1 / 0.3e1 * t162 * t6590 - 0.8e1 / 0.3e1 * t637 * t2354 - 0.4e1 * t1990 * t825 - 0.8e1 / 0.3e1 * t6310 * t262 - 0.4e1 / 0.3e1 * t44 * t46 * (t6760 + t6794 + t6839 + t6883) - 0.360e3 * t1176 * t3623 * t2325; t6894 = my_piecewise3(t49, 0.16e2 / 0.3e1 * t53 * t2685 * t55 * t6438 - 0.8e1 * t554 * t1211 * t869 * t800 + 0.4e1 / 0.3e1 * t53 * t315 * t55 * t6447 + 0.16e2 / 0.9e1 * t554 * t505 * t284 * t2307 - 0.2e1 / 0.9e1 * t53 * t110 * t55 * t6506 - 0.48e2 * t66 * t2650 * t70 * t6438 + 0.288e3 / 0.5e1 * t597 * t1421 * t881 * t800 - 0.36e2 / 0.5e1 * t66 * t376 * t70 * t6447 - 0.48e2 / 0.5e1 * t597 * t598 * t599 * t2307 + 0.4e1 / 0.5e1 * t66 * t150 * t70 * t6506, t6568 + t6892); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[0] = -0.3e1 / 0.16e2 * t108 * t109 * t6894 * t38 - 0.3e1 / 0.4e1 * t108 * t109 * t2503 * t251 - 0.9e1 / 0.8e1 * t108 * t109 * t895 * t800 - 0.3e1 / 0.4e1 * t108 * t109 * t298 * t2307 - 0.3e1 / 0.16e2 * t108 * t109 * t101 * t6506; #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 *)) { #ifndef XC_DONT_COMPILE_EXC double t1, t2, t3, t4, t5, t6, t7, t8; double t9, t10, t11, t12, t13, t14, t15, t16; double t17, t18, t19, t20, t21, t22, t23, t24; double t27, t28, t32, t33, t35, t36, t38, t39; double t41, t42, t43, t44, t45, t46, t47, t49; double t51, t52, t53, t54, t55, t56, t57, t58; double t59, t60, t66, t67, t68, t69, t70, t75; double t76, t77, t78, t79, t82, t83, t85, t86; double t89, t90, t94, t95, t97; #ifndef XC_DONT_COMPILE_VXC double t101, t102, t103, t104, t106, t107, t111, t112; double t113, t114, t118, t119, t120, t123, t124, t128; double t129, t130, t131, t133, t135, t137, t138, t139; double t140, t141, t142, t152, t153, t155, t157, t160; double t163, t164, t170, t171, t173, t174, t176, t180; double t183, t186, t190, t191, t196, t203, t205, t207; double t208, t211, t212, t216, t217, t221, t229, t235; double t236, t240, t241, t245, t251, t254, t255, t258; double t259, t261, t266, t267, t268, t272, t273, t275; double t278, t279, t282, t283, t287, t288, t289, t291; #ifndef XC_DONT_COMPILE_FXC double t294, t298, t303, t304, t305, t306, t307, t309; double t310, t311, t313, t315, t316, t324, t325, t326; double t331, t337, t340, t343, t346, t347, t351, t353; double t354, t356, t358, t360, t361, t362, t363, t367; double t380, t385, t386, t388, t390, t394, t398, t402; double t406, t409, t412, t415, t416, t419, t420, t430; double t431, t434, t435, t436, t438, t442, t445, t446; double t447, t450, t452, t456, t460, t464, t471, t474; double t477, t481, t489, t503, t504, t506, t508, t509; double t511, t512, t515, t516, t520, t521, t532, t539; double t547, t555, t556, t557, t558, t566, t568, t569; double t572, t573, t577, t578, t586, t590, t595, t596; double t598, t606, t610, t614, t617, t620, t621, t623; double t625, t626, t627, t628, t633, t635, t636, t638; double t641, t643, t646, t647, t649, t663, t666, t669; double t673, t678, t682, t683, t686, t687, t688, t689; double t690, t694, t698, t701, t702, t703, t704, t707; double t708, t711, t712, t716, t717, t718, t721, t726; double t729, t732, t733, t740, t741, t746, t750, t754; double t756, t759, t760, t764, t765, t769, t773, t779; double t785, t789, t792, t793, t794, t795, t798, t800; double t803, t805, t808, t809, t810, t811, t812, t824; double t828, t831, t832, t836, t840, t843, t844, t846; double t849, t850, t853, t854, t858, t859, t860, t863; double t866; #ifndef XC_DONT_COMPILE_KXC double t869, t873, t880, t890, t891, t893, t894, t897; double t898, t902, t905, t906, t909, t910, t913, t914; double t927, t928, t929, t930, t934, t935, t939, t945; double t947, t951, t952, t953, t955, t957, t960, t961; double t965, t967, t968, t970, t972, t974, t1002, t1003; double t1010, t1012, t1016, t1020, t1028, t1032, t1034, t1036; double t1040, t1044, t1048, t1051, t1053, t1057, t1063, t1066; double t1067, t1069, t1073, t1081, t1087, t1088, t1089, t1090; double t1092, t1093, t1094, t1098, t1103, t1104, t1107, t1108; double t1114, t1115, t1116, t1117, t1121, t1131, t1132, t1133; double t1134, t1141, t1142, t1143, t1146, t1149, t1152, t1155; double t1156, t1157, t1158, t1161, t1164, t1183, t1188, t1198; double t1199, t1212, t1213, t1215, t1218, t1221, t1224, t1225; double t1228, t1229, t1230, t1233, t1236, t1239, t1242, t1243; double t1255, t1263, t1271, t1275, t1281, t1284, t1285, t1286; double t1300, t1321, t1325, t1333, t1346, t1347, t1353, t1354; double t1355, t1358, t1359, t1362, t1363, t1371, t1374, t1376; double t1379, t1380, t1384, t1385, t1405, t1409, t1413, t1417; double t1425, t1433, t1437, t1445, t1448, t1450, t1453, t1457; double t1461, t1466, t1468, t1472, t1478, t1484, t1488, t1500; double t1505, t1507, t1513, t1523, t1528, t1531, t1535, t1536; double t1537, t1538, t1541, t1544, t1545, t1548, t1549, t1553; double t1556, t1558, t1559, t1560, t1563, t1566, t1570, t1571; double t1572, t1575, t1576, t1577, t1580, t1581, t1584, t1585; double t1586, t1587, t1591, t1595, t1598, t1603, t1608, t1612; double t1613, t1618, t1625, t1626, t1627, t1630, t1631, t1635; double t1639, t1646, t1647, t1648, t1651, t1652, t1656, t1659; double t1660, t1663, t1664, t1665, t1672, t1673, t1674, t1678; double t1689, t1690, t1691, t1692, t1694, t1696, t1697, t1698; double t1705, t1706, t1707, t1711, t1720, t1721, t1724, t1726; double t1731, t1733, t1734, t1737, t1740, t1743, t1745, t1746; double t1747, t1750, t1753, t1760, t1763, t1766, t1775, t1787; double t1802, t1803, t1806, t1807, t1813, t1814, t1824, t1826; double t1829, t1830, t1834, t1835, t1843, t1855, t1859, t1863; double t1865, t1871, t1873, t1877, t1892, t1896, t1900, t1903; double t1905, t1913, t1917, t1921, t1924, t1927, t1930, t1940; double t1943, t1944, t1949, t1953, t1957, t1963, t1964, t1965; double t1969, t1972, t1973, t1974, t1977, t1978, t1979, t1984; double t1985, t1986, t1990, t1994, t1997, t1998, t1999, t2002; double t2003, t2006, t2007, t2008, t2009, t2013, t2016, t2017; double t2018, t2021, t2022, t2023, t2026, t2027, t2028, t2031; double t2040, t2051, t2053, t2069, t2072, t2073, t2076, t2077; double t2078, t2082, t2083, t2084, t2087, t2090, t2091, t2094; double t2106, t2111, t2115, t2118, t2119, t2120, t2123, t2124; double t2125, t2128, t2129, t2131, t2132, t2133, t2137, t2138; double t2149, t2152, t2154, t2155, t2158, t2160, t2161, t2162; double t2165, t2169, t2172, t2177, t2180, t2183, t2184, t2198; double t2199, t2203, t2204, t2208, t2212, t2219, t2222, t2223; double t2227, t2228, t2232, t2240, t2245, t2246, t2252, t2256; double t2266, t2270, t2274, t2287, t2290, t2294, t2297, t2298; double t2301, t2305, t2309, t2312, t2315, t2316, t2317, t2318; double t2319, t2322, t2325, t2329, t2332, t2333, t2337, t2341; double t2344, t2345, t2348, t2349, t2350, t2356, t2357, t2358; double t2359, t2360, t2363, t2364, t2373, t2376, t2379, t2381; double t2385, t2386, t2387, t2389, t2390, t2391, t2396, t2398; double t2402, t2405, t2406, t2407, t2410, t2411, t2412, t2413; double t2416, t2419, t2422; #ifndef XC_DONT_COMPILE_LXC double t2431, t2454, t2455, t2464, t2483, t2488, t2495, t2503; double t2530, t2539, t2540, t2549, t2555, t2559, t2563, t2567; double t2570, t2572, t2576, t2584, t2592, t2599, t2605, t2609; double t2613, t2619, t2625, t2634, t2645, t2646, t2648, t2649; double t2650, t2652, t2662, t2668, t2672, t2679, t2682, t2687; double t2688, t2693, t2696, t2700, t2717, t2721, t2776, t2802; double t2807, t2810, t2814, t2816, t2817, t2820, t2829, t2842; double t2852, t2869, t2870, t2874, t2880, t2891, t2895, t2900; double t2907, t2911, t2916, t2934, t2953, t2975, t2976, t2978; double t2989, t2996, t3000, t3004, t3008, t3030, t3034, t3043; double t3044, t3045, t3049, t3050, t3054, t3055, t3059, t3065; double t3068, t3071, t3077, t3100, t3136, t3139, t3221, t3232; double t3236, t3281, t3282, t3299, t3330, t3334, t3338, t3354; double t3386, t3435, t3436, t3437, t3441, t3445, t3453, t3467; double t3471, t3475, t3485, t3490, t3496, t3501, t3507, t3511; double t3515, t3518, t3521, t3522, t3525, t3528, t3529, t3530; double t3536, t3547, t3554, t3563, t3569, t3573, t3591, t3594; double t3598, t3618, t3641, t3655, t3663, t3676, t3680, t3684; double t3699, t3703, t3717, t3722, t3750, t3755, t3758, t3759; double t3769, t3818, t3865, t3885, t3929, t3937, t3942, t3956; double t3973, t3974, t3975, t3976, t3978, t3983, t3987, t4000; double t4015, t4018, t4019, t4023, t4031, t4036, t4070, t4074; double t4096, t4113, t4118, t4121, t4123, t4127, t4147, t4163; double t4182, t4184, t4197, t4213, t4217, t4223, t4226, t4229; double t4234, t4255, t4283, t4333, t4334, t4379, t4383, t4384; double t4385, t4389, t4393, t4397, t4405, t4409, t4445, t4448; double t4456, t4462, t4469, t4473, t4477, t4484, t4487, t4490; double t4493, t4499, t4504, t4509, t4523, t4535, t4543, t4550; double t4558, t4562, t4609, t4617, t4622, t4652, t4699, t4719; double t4738, t4756, t4761, t4764, t4765, t4827, t4839, t4850; double t4856, t4863, t4869, t4891, t4907, t4912, t4917, t4931; double t4938, t4948, t4959, t4967, t4973, t4992, t5021, t5023; double t5038, t5045, t5053, t5058, t5073, t5083, t5091, t5106; double t5148, t5159, t5192, t5205, t5208, t5212, t5253, t5260; double t5287, t5324, t5327, t5376, t5385, t5405, t5477, t5478; double t5486, t5521, t5534, t5581, t5593, t5617, t5630, t5654; double t5674, t5707, t5754, t5771, t5776, t5779, t5785, t5788; double t5796, t5813, t5816, t5850, t5873, t5879, t5882, t5908; double t5922, t5925, t5929, t5934, t5939, t5944, t5953, t5972; double t5979, t5980, t5996, t6019, t6021, t6027, t6031, t6042; double t6046, t6050, t6054, t6060, t6063, t6092, t6120, t6135; double t6150, t6178, t6181, t6213, t6214, t6222, t6223, t6239; double t6248, t6281, t6282, t6286, t6294, t6311, t6314, t6318; double t6331, t6337, t6347, t6352, t6374, t6396, t6398, t6404; double t6408, t6412, t6459, t6467, t6527, t6533, t6537, t6543; double t6547, t6550, t6554, t6575, t6593, t6616, t6641, t6643; #endif #endif #endif #endif #endif t1 = M_CBRT3; t2 = 0.1e1 / M_PI; t3 = POW_1_3(t2); t4 = t1 * t3; t5 = M_CBRT4; t6 = t5 * t5; t7 = t4 * t6; t8 = POW_1_3(rho[0]); t9 = t1 * t1; t10 = M_PI * t9; t11 = 0.1e1 / t3; t12 = t11 * t5; t13 = t9 * t11; t14 = t13 * t5; t15 = rho[0] * rho[0]; t16 = t8 * t8; t17 = t16 * t15; t18 = 0.1e1 / t17; t19 = sigma[0] * t18; t20 = sqrt(sigma[0]); t21 = t8 * rho[0]; t22 = 0.1e1 / t21; t23 = t20 * t22; t24 = log(t23 + sqrt(t23 * t23 + 0.1e1)); t27 = 0.10e1 + 0.2520e-1 * t23 * t24; t28 = 0.1e1 / t27; t32 = 0.10e1 + 0.93333333333333333332e-3 * t14 * t19 * t28; t33 = 0.1e1 / t32; t35 = t10 * t12 * t33; t36 = sqrt(t35); t38 = p->cam_omega / t36; t39 = 0.1e1 / t8; t41 = t38 * t39 / 0.2e1; t42 = 0.50e2 < t41; t43 = p->cam_omega * p->cam_omega; t44 = 0.1e1 / t43; t45 = t44 * M_PI; t46 = t45 * t9; t47 = t33 * t16; t49 = t46 * t12 * t47; t51 = t43 * t43; t52 = 0.1e1 / t51; t53 = M_PI * M_PI; t54 = t52 * t53; t55 = t54 * t1; t56 = t3 * t3; t57 = 0.1e1 / t56; t58 = t57 * t6; t59 = t32 * t32; t60 = 0.1e1 / t59; t66 = atan2(0.1e1, t41); t67 = t43 * t2; t68 = t67 * t1; t69 = t3 * t6; t70 = 0.1e1 / t16; t75 = t68 * t69 * t32 * t70 / 0.48e2 + 0.3e1; t76 = t44 * t9; t77 = t76 * t11; t78 = t5 * t33; t79 = t78 * t16; t82 = 0.10e1 + 0.12566370614359172954e2 * t77 * t79; t83 = log(t82); t85 = -t75 * t83 + 0.1e1; t86 = t39 * t85; t89 = t66 + t38 * t86 / 0.8e1; t90 = t39 * t89; t94 = my_piecewise3(t42, 0.4e1 / 0.9e1 * t49 - 0.8e1 / 0.5e1 * t55 * t58 * t60 * t21, 0.10e1 - 0.4e1 / 0.3e1 * t38 * t90); t95 = t8 * t94; t97 = t7 * t95 * t32; if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC)) zk[0] = -0.3e1 / 0.8e1 * t97; #ifndef XC_DONT_COMPILE_VXC if(order < 1) return; t101 = t21 * t1 * t3; t102 = t45 * t13; t103 = t5 * t60; t104 = t15 * rho[0]; t106 = 0.1e1 / t16 / t104; t107 = sigma[0] * t106; t111 = t27 * t27; t112 = 0.1e1 / t111; t113 = t8 * t15; t114 = 0.1e1 / t113; t118 = t19 + 0.1e1; t119 = sqrt(t118); t120 = 0.1e1 / t119; t123 = -0.33600000000000000000e-1 * t20 * t114 * t24 - 0.33600000000000000000e-1 * t107 * t120; t124 = t112 * t123; t128 = -0.24888888888888888889e-2 * t14 * t107 * t28 - 0.93333333333333333332e-3 * t14 * t19 * t124; t129 = t16 * t128; t130 = t103 * t129; t131 = t102 * t130; t133 = t33 * t39; t135 = t46 * t12 * t133; t137 = t1 * t57; t138 = t54 * t137; t139 = t59 * t32; t140 = 0.1e1 / t139; t141 = t6 * t140; t142 = t21 * t128; t152 = 0.1e1 / t36 / t35; t153 = p->cam_omega * t152; t155 = t153 * t90 * M_PI; t157 = t13 * t103 * t128; t160 = t22 * t89; t163 = t39 * M_PI; t164 = t153 * t163; t170 = (t164 * t157 / 0.4e1 - t38 * t22 / 0.6e1) * t44; t171 = t170 * t10; t173 = 0.1e1 + 0.4e1 * t49; t174 = 0.1e1 / t173; t176 = t12 * t47 * t174; t180 = t153 * t86 * M_PI; t183 = t22 * t85; t186 = t128 * t70; t190 = t16 * rho[0]; t191 = 0.1e1 / t190; t196 = t68 * t69 * t186 / 0.48e2 - t68 * t69 * t32 * t191 / 0.72e2; t203 = -0.12566370614359172954e2 * t77 * t130 + 0.83775804095727819693e1 * t77 * t78 * t39; t205 = 0.1e1 / t82; t207 = -t75 * t203 * t205 - t196 * t83; t208 = t39 * t207; t211 = -0.4e1 * t171 * t176 + t180 * t157 / 0.16e2 - t38 * t183 / 0.24e2 + t38 * t208 / 0.8e1; t212 = t39 * t211; t216 = my_piecewise3(t42, -0.4e1 / 0.9e1 * t131 + 0.8e1 / 0.27e2 * t135 + 0.16e2 / 0.5e1 * t138 * t141 * t142 - 0.32e2 / 0.15e2 * t55 * t58 * t60 * t8, -0.2e1 / 0.3e1 * t155 * t157 + 0.4e1 / 0.9e1 * t38 * t160 - 0.4e1 / 0.3e1 * t38 * t212); t217 = t6 * t216; t221 = t6 * t94; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[0] = -t97 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t217 * t32 - 0.3e1 / 0.8e1 * t101 * t221 * t128; t229 = 0.1e1 / t20; t235 = 0.12600000000000000000e-1 * t229 * t22 * t24 + 0.12600000000000000000e-1 * t18 * t120; t236 = t112 * t235; t240 = 0.93333333333333333332e-3 * t13 * t5 * t18 * t28 - 0.93333333333333333332e-3 * t14 * t19 * t236; t241 = t16 * t240; t245 = t21 * t240; t251 = t13 * t103 * t240; t254 = 0.1e1 / p->cam_omega; t255 = t254 * t152; t258 = t255 * t8 * t53 * t1; t259 = t140 * t240; t261 = t58 * t259 * t174; t266 = t67 * t4; t267 = t6 * t240; t268 = t70 * t83; t272 = t75 * t44; t273 = t272 * t13; t275 = t103 * t241 * t205; t278 = -t266 * t267 * t268 / 0.48e2 + 0.12566370614359172954e2 * t273 * t275; t279 = t39 * t278; t282 = -0.3e1 * t258 * t261 + t180 * t251 / 0.16e2 + t38 * t279 / 0.8e1; t283 = t39 * t282; t287 = my_piecewise3(t42, -0.4e1 / 0.9e1 * t102 * t103 * t241 + 0.16e2 / 0.5e1 * t138 * t141 * t245, -0.2e1 / 0.3e1 * t155 * t251 - 0.4e1 / 0.3e1 * t38 * t283); t288 = t6 * t287; t289 = t288 * t32; t291 = t221 * t240; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[0] = -0.3e1 / 0.8e1 * t101 * t289 - 0.3e1 / 0.8e1 * t101 * t291; #ifndef XC_DONT_COMPILE_FXC if(order < 2) return; t294 = t70 * t94; t298 = t8 * t216; t303 = t5 * t140; t304 = t128 * t128; t305 = t16 * t304; t306 = t303 * t305; t307 = t102 * t306; t309 = t39 * t128; t310 = t103 * t309; t311 = t102 * t310; t313 = t15 * t15; t315 = 0.1e1 / t16 / t313; t316 = sigma[0] * t315; t324 = 0.1e1 / t111 / t27; t325 = t123 * t123; t326 = t324 * t325; t331 = 0.1e1 / t8 / t104; t337 = sigma[0] * sigma[0]; t340 = 0.1e1 / t8 / t313 / t104; t343 = 0.1e1 / t119 / t118; t346 = 0.78400000000000000000e-1 * t20 * t331 * t24 + 0.16800000000000000000e0 * t316 * t120 - 0.44800000000000000000e-1 * t337 * t340 * t343; t347 = t112 * t346; t351 = 0.91259259259259259260e-2 * t14 * t316 * t28 + 0.49777777777777777778e-2 * t14 * t107 * t124 + 0.18666666666666666666e-2 * t14 * t19 * t326 - 0.93333333333333333332e-3 * t14 * t19 * t347; t353 = t103 * t16 * t351; t354 = t102 * t353; t356 = t33 * t22; t358 = t46 * t12 * t356; t360 = t59 * t59; t361 = 0.1e1 / t360; t362 = t6 * t361; t363 = t21 * t304; t367 = t8 * t128; t380 = t53 * t1; t385 = 0.1e1 / t36 / t380 / t58 / t60 / 0.3e1; t386 = p->cam_omega * t385; t388 = t386 * t90 * t53; t390 = t137 * t362 * t304; t394 = t153 * t160 * M_PI; t398 = t153 * t212 * M_PI; t402 = t13 * t303 * t304; t406 = t13 * t103 * t351; t409 = t114 * t89; t412 = t22 * t211; t415 = t39 * t53; t416 = t386 * t415; t419 = t22 * M_PI; t420 = t153 * t419; t430 = (0.9e1 / 0.8e1 * t416 * t390 - t420 * t157 / 0.6e1 - t164 * t402 / 0.2e1 + t164 * t406 / 0.4e1 + 0.2e1 / 0.9e1 * t38 * t114) * t44; t431 = t430 * t10; t434 = t10 * t11; t435 = t170 * t434; t436 = t16 * t174; t438 = t103 * t436 * t128; t442 = t12 * t133 * t174; t445 = t173 * t173; t446 = 0.1e1 / t445; t447 = t16 * t446; t450 = -0.4e1 * t131 + 0.8e1 / 0.3e1 * t135; t452 = t78 * t447 * t450; t456 = t386 * t86 * t53; t460 = t153 * t183 * M_PI; t464 = t153 * t208 * M_PI; t471 = t114 * t85; t474 = t22 * t207; t477 = t351 * t70; t481 = t128 * t191; t489 = t68 * t69 * t477 / 0.48e2 - t68 * t69 * t481 / 0.36e2 + 0.5e1 / 0.216e3 * t68 * t69 * t32 * t18; t503 = 0.25132741228718345908e2 * t77 * t306 - 0.16755160819145563939e2 * t77 * t310 - 0.12566370614359172954e2 * t77 * t353 - 0.27925268031909273231e1 * t77 * t78 * t22; t504 = t75 * t503; t506 = t203 * t203; t508 = t82 * t82; t509 = 0.1e1 / t508; t511 = -0.2e1 * t196 * t203 * t205 + t75 * t506 * t509 - t504 * t205 - t489 * t83; t512 = t39 * t511; t515 = -0.4e1 * t431 * t176 + 0.4e1 * t435 * t438 - 0.8e1 / 0.3e1 * t171 * t442 + 0.4e1 * t435 * t452 + 0.9e1 / 0.32e2 * t456 * t390 - t460 * t157 / 0.24e2 + t464 * t157 / 0.8e1 - t180 * t402 / 0.8e1 + t180 * t406 / 0.16e2 + t38 * t471 / 0.18e2 - t38 * t474 / 0.12e2 + t38 * t512 / 0.8e1; t516 = t39 * t515; t520 = my_piecewise3(t42, 0.8e1 / 0.9e1 * t307 - 0.16e2 / 0.27e2 * t311 - 0.4e1 / 0.9e1 * t354 - 0.8e1 / 0.81e2 * t358 - 0.48e2 / 0.5e1 * t138 * t362 * t363 + 0.128e3 / 0.15e2 * t138 * t141 * t367 + 0.16e2 / 0.5e1 * t138 * t141 * t21 * t351 - 0.32e2 / 0.45e2 * t55 * t58 * t60 * t70, -0.3e1 * t388 * t390 + 0.4e1 / 0.9e1 * t394 * t157 - 0.4e1 / 0.3e1 * t398 * t157 + 0.4e1 / 0.3e1 * t155 * t402 - 0.2e1 / 0.3e1 * t155 * t406 - 0.16e2 / 0.27e2 * t38 * t409 + 0.8e1 / 0.9e1 * t38 * t412 - 0.4e1 / 0.3e1 * t38 * t516); t521 = t6 * t520; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[0] = -t7 * t294 * t32 / 0.6e1 - t7 * t298 * t32 - t7 * t95 * t128 - 0.3e1 / 0.8e1 * t101 * t521 * t32 - 0.3e1 / 0.4e1 * t101 * t217 * t128 - 0.3e1 / 0.8e1 * t101 * t221 * t351; t532 = t8 * t1 * t3; t539 = t39 * t240; t547 = t18 * t112; t555 = t13 * t5 * sigma[0]; t556 = t18 * t324; t557 = t235 * t123; t558 = t556 * t557; t566 = t313 * t15; t568 = 0.1e1 / t8 / t566; t569 = t568 * t343; t572 = -0.16800000000000000000e-1 * t229 * t114 * t24 - 0.50400000000000000000e-1 * t106 * t120 + 0.16800000000000000000e-1 * t569 * sigma[0]; t573 = t112 * t572; t577 = -0.24888888888888888889e-2 * t13 * t5 * t106 * t28 - 0.93333333333333333332e-3 * t14 * t547 * t123 + 0.24888888888888888889e-2 * t14 * t107 * t236 + 0.18666666666666666666e-2 * t555 * t558 - 0.93333333333333333332e-3 * t14 * t19 * t573; t578 = t16 * t577; t586 = t8 * t240; t590 = t21 * t577; t595 = t137 * t6; t596 = t361 * t240; t598 = t595 * t596 * t128; t606 = t14 * t259 * t128; t610 = t13 * t103 * t577; t614 = t153 * t283 * M_PI; t617 = t22 * t282; t620 = t254 * t385; t621 = t53 * t53; t623 = t620 * t8 * t621; t625 = 0.1e1 / t360 / t32; t626 = t625 * t240; t627 = t174 * t128; t628 = t626 * t627; t633 = t255 * t70 * t53 * t1; t635 = t58 * t361; t636 = t240 * t174; t638 = t635 * t636 * t128; t641 = t140 * t577; t643 = t58 * t641 * t174; t646 = t58 * t140; t647 = t240 * t446; t649 = t646 * t647 * t450; t663 = t153 * t279 * M_PI; t666 = t22 * t278; t669 = t6 * t577; t673 = t191 * t83; t678 = t70 * t203 * t205; t682 = t196 * t44; t683 = t682 * t13; t686 = t272 * t14; t687 = t140 * t16; t688 = t240 * t205; t689 = t688 * t128; t690 = t687 * t689; t694 = t103 * t539 * t205; t698 = t103 * t578 * t205; t701 = t60 * t16; t702 = t240 * t509; t703 = t702 * t203; t704 = t701 * t703; t707 = -t266 * t669 * t268 / 0.48e2 + t266 * t267 * t673 / 0.72e2 - t266 * t267 * t678 / 0.48e2 + 0.12566370614359172954e2 * t683 * t275 - 0.25132741228718345908e2 * t686 * t690 + 0.83775804095727819693e1 * t273 * t694 + 0.12566370614359172954e2 * t273 * t698 - 0.12566370614359172954e2 * t686 * t704; t708 = t39 * t707; t711 = -0.54e2 * t623 * t628 - t633 * t261 + 0.9e1 * t258 * t638 - 0.3e1 * t258 * t643 + 0.3e1 * t258 * t649 + 0.9e1 / 0.32e2 * t456 * t598 - t460 * t251 / 0.48e2 + t464 * t251 / 0.16e2 - t180 * t606 / 0.8e1 + t180 * t610 / 0.16e2 + t663 * t157 / 0.16e2 - t38 * t666 / 0.24e2 + t38 * t708 / 0.8e1; t712 = t39 * t711; t716 = my_piecewise3(t42, 0.8e1 / 0.9e1 * t102 * t303 * t241 * t128 - 0.8e1 / 0.27e2 * t102 * t103 * t539 - 0.4e1 / 0.9e1 * t102 * t103 * t578 - 0.48e2 / 0.5e1 * t138 * t362 * t245 * t128 + 0.64e2 / 0.15e2 * t138 * t141 * t586 + 0.16e2 / 0.5e1 * t138 * t141 * t590, -0.3e1 * t388 * t598 + 0.2e1 / 0.9e1 * t394 * t251 - 0.2e1 / 0.3e1 * t398 * t251 + 0.4e1 / 0.3e1 * t155 * t606 - 0.2e1 / 0.3e1 * t155 * t610 - 0.2e1 / 0.3e1 * t614 * t157 + 0.4e1 / 0.9e1 * t38 * t617 - 0.4e1 / 0.3e1 * t38 * t712); t717 = t6 * t716; t718 = t717 * t32; t721 = t288 * t128; t726 = t217 * t240; t729 = t221 * t577; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[0] = -t532 * t289 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t718 - 0.3e1 / 0.8e1 * t101 * t721 - t532 * t291 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t726 - 0.3e1 / 0.8e1 * t101 * t729; t732 = t240 * t240; t733 = t16 * t732; t740 = t235 * t235; t741 = t324 * t740; t746 = 0.1e1 / t20 / sigma[0]; t750 = 0.1e1 / sigma[0]; t754 = t313 * rho[0]; t756 = 0.1e1 / t8 / t754; t759 = -0.63000000000000000000e-2 * t746 * t22 * t24 + 0.63000000000000000000e-2 * t750 * t18 * t120 - 0.63000000000000000000e-2 * t756 * t343; t760 = t112 * t759; t764 = -0.18666666666666666666e-2 * t14 * t547 * t235 + 0.18666666666666666666e-2 * t14 * t19 * t741 - 0.93333333333333333332e-3 * t14 * t19 * t760; t765 = t16 * t764; t769 = t21 * t732; t773 = t21 * t764; t779 = t137 * t362 * t732; t785 = t13 * t303 * t732; t789 = t13 * t103 * t764; t792 = t620 * t8; t793 = t621 * t625; t794 = t732 * t174; t795 = t793 * t794; t798 = t361 * t732; t800 = t58 * t798 * t174; t803 = t140 * t764; t805 = t58 * t803 * t174; t808 = t43 * p->cam_omega; t809 = 0.1e1 / t808; t810 = t809 * t152; t811 = t810 * rho[0]; t812 = t732 * t446; t824 = t6 * t764; t828 = t732 * t60; t831 = t2 * t732; t832 = t60 * t205; t836 = t303 * t733 * t205; t840 = t103 * t765 * t205; t843 = t75 * t52; t844 = t843 * t137; t846 = t362 * t769 * t509; t849 = -t266 * t824 * t268 / 0.48e2 + 0.10000000000000000000e1 * t828 * t205 + M_PI * t831 * t832 - 0.25132741228718345908e2 * t273 * t836 + 0.12566370614359172954e2 * t273 * t840 + 0.47374101125228921372e3 * t844 * t846; t850 = t39 * t849; t853 = -0.54e2 * t792 * t795 + 0.9e1 * t258 * t800 - 0.3e1 * t258 * t805 - 0.144e3 * t811 * t793 * t812 + 0.9e1 / 0.32e2 * t456 * t779 + t663 * t251 / 0.8e1 - t180 * t785 / 0.8e1 + t180 * t789 / 0.16e2 + t38 * t850 / 0.8e1; t854 = t39 * t853; t858 = my_piecewise3(t42, 0.8e1 / 0.9e1 * t102 * t303 * t733 - 0.4e1 / 0.9e1 * t102 * t103 * t765 - 0.48e2 / 0.5e1 * t138 * t362 * t769 + 0.16e2 / 0.5e1 * t138 * t141 * t773, -0.3e1 * t388 * t779 - 0.4e1 / 0.3e1 * t614 * t251 + 0.4e1 / 0.3e1 * t155 * t785 - 0.2e1 / 0.3e1 * t155 * t789 - 0.4e1 / 0.3e1 * t38 * t854); t859 = t6 * t858; t860 = t859 * t32; t863 = t288 * t240; t866 = t221 * t764; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[0] = -0.3e1 / 0.8e1 * t101 * t860 - 0.3e1 / 0.4e1 * t101 * t863 - 0.3e1 / 0.8e1 * t101 * t866; #ifndef XC_DONT_COMPILE_KXC if(order < 3) return; t869 = t191 * t94; t873 = t70 * t216; t880 = t8 * t520; t890 = t5 * t361; t891 = t304 * t128; t893 = t890 * t16 * t891; t894 = t102 * t893; t897 = t303 * t39 * t304; t898 = t102 * t897; t902 = t102 * t303 * t129 * t351; t905 = t103 * t22 * t128; t906 = t102 * t905; t909 = t103 * t39 * t351; t910 = t102 * t909; t913 = 0.1e1 / t16 / t754; t914 = sigma[0] * t913; t927 = t111 * t111; t928 = 0.1e1 / t927; t929 = t325 * t123; t930 = t928 * t929; t934 = t123 * t346; t935 = t556 * t934; t939 = 0.1e1 / t8 / t313; t945 = t313 * t313; t947 = 0.1e1 / t8 / t945; t951 = t337 * sigma[0]; t952 = t945 * t104; t953 = 0.1e1 / t952; t955 = t118 * t118; t957 = 0.1e1 / t119 / t955; t960 = -0.26133333333333333333e0 * t20 * t939 * t24 - 0.88853333333333333333e0 * t914 * t120 + 0.55253333333333333333e0 * t337 * t947 * t343 - 0.17920000000000000000e0 * t951 * t953 * t957; t961 = t112 * t960; t965 = -0.42587654320987654321e-1 * t14 * t914 * t28 - 0.27377777777777777778e-1 * t14 * t316 * t124 - 0.14933333333333333333e-1 * t14 * t107 * t326 + 0.74666666666666666667e-2 * t14 * t107 * t347 - 0.55999999999999999998e-2 * t14 * t19 * t930 + 0.55999999999999999998e-2 * t555 * t935 - 0.93333333333333333332e-3 * t14 * t19 * t961; t967 = t103 * t16 * t965; t968 = t102 * t967; t970 = t33 * t114; t972 = t46 * t12 * t970; t974 = t6 * t625; t1002 = -0.8e1 / 0.3e1 * t894 + 0.16e2 / 0.9e1 * t898 + 0.8e1 / 0.3e1 * t902 + 0.8e1 / 0.27e2 * t906 - 0.8e1 / 0.9e1 * t910 - 0.4e1 / 0.9e1 * t968 + 0.32e2 / 0.243e3 * t972 + 0.192e3 / 0.5e1 * t138 * t974 * t21 * t891 - 0.192e3 / 0.5e1 * t138 * t362 * t8 * t304 - 0.144e3 / 0.5e1 * t138 * t362 * t142 * t351 + 0.64e2 / 0.15e2 * t138 * t141 * t186 + 0.64e2 / 0.5e1 * t138 * t141 * t8 * t351 + 0.16e2 / 0.5e1 * t138 * t141 * t21 * t965 + 0.64e2 / 0.135e3 * t55 * t58 * t60 * t191; t1003 = t430 * t434; t1010 = 0.8e1 * t307 - 0.16e2 / 0.3e1 * t311 - 0.4e1 * t354 - 0.8e1 / 0.9e1 * t358; t1012 = t78 * t447 * t1010; t1016 = t386 * t208 * t53; t1020 = t153 * t474 * M_PI; t1028 = t103 * t436 * t351; t1032 = 0.1e1 / t445 / t173; t1034 = t450 * t450; t1036 = t78 * t16 * t1032 * t1034; t1040 = t386 * t183 * t53; t1044 = t137 * t974 * t891; t1048 = t303 * t436 * t304; t1051 = t39 * t174; t1053 = t103 * t1051 * t128; t1057 = t153 * t512 * M_PI; t1063 = t13 * t103 * t965; t1066 = 0.8e1 * t1003 * t438 + 0.4e1 * t435 * t1012 + 0.27e2 / 0.32e2 * t1016 * t390 - t1020 * t157 / 0.8e1 - t460 * t406 / 0.16e2 + 0.8e1 * t1003 * t452 + 0.4e1 * t435 * t1028 - 0.8e1 * t435 * t1036 - 0.9e1 / 0.32e2 * t1040 * t390 - 0.27e2 / 0.16e2 * t456 * t1044 - 0.8e1 * t435 * t1048 + 0.16e2 / 0.3e1 * t435 * t1053 + 0.3e1 / 0.16e2 * t1057 * t157 + 0.3e1 / 0.16e2 * t464 * t406 + t180 * t1063 / 0.16e2; t1067 = t39 * t446; t1069 = t78 * t1067 * t450; t1073 = t153 * t471 * M_PI; t1081 = t13 * t890 * t891; t1087 = 0.1e1 / t36 / t621 / t140 / 0.36e2; t1088 = p->cam_omega * t1087; t1089 = t1088 * t39; t1090 = t85 * t621; t1092 = 0.1e1 / t360 / t59; t1093 = t1092 * t891; t1094 = t1090 * t1093; t1098 = t12 * t356 * t174; t1103 = t621 * t1092; t1104 = t1103 * t891; t1107 = t22 * t53; t1108 = t386 * t1107; t1114 = t386 * t415 * t1; t1115 = t361 * t128; t1116 = t1115 * t351; t1117 = t58 * t1116; t1121 = t153 * t114 * M_PI; t1131 = t153 * t163 * t9; t1132 = t140 * t128; t1133 = t1132 * t351; t1134 = t12 * t1133; t1141 = 0.135e3 / 0.4e1 * t1089 * t1104 - 0.9e1 / 0.8e1 * t1108 * t390 - 0.27e2 / 0.4e1 * t416 * t1044 + 0.27e2 / 0.8e1 * t1114 * t1117 + t1121 * t157 / 0.3e1 + t420 * t402 / 0.2e1 - t420 * t406 / 0.4e1 + 0.3e1 / 0.2e1 * t164 * t1081 - 0.3e1 / 0.2e1 * t1131 * t1134 + t164 * t1063 / 0.4e1 - 0.14e2 / 0.27e2 * t38 * t331; t1142 = t1141 * t44; t1143 = t1142 * t10; t1146 = t331 * t85; t1149 = t14 * t1133; t1152 = t595 * t1116; t1155 = t103 * t16; t1156 = t446 * t128; t1157 = t1156 * t450; t1158 = t1155 * t1157; t1161 = t22 * t511; t1164 = t114 * t207; t1183 = t68 * t69 * t965 * t70 / 0.48e2 - t68 * t69 * t351 * t191 / 0.24e2 + 0.5e1 / 0.72e2 * t68 * t69 * t128 * t18 - 0.5e1 / 0.81e2 * t68 * t69 * t32 * t106; t1188 = t196 * t503; t1198 = t76 * t12; t1199 = t128 * t351; t1212 = -0.75398223686155037724e2 * t77 * t893 + 0.50265482457436691817e2 * t77 * t897 + 0.75398223686155037724e2 * t1198 * t687 * t1199 + 0.83775804095727819694e1 * t77 * t905 - 0.25132741228718345908e2 * t77 * t909 - 0.12566370614359172954e2 * t77 * t967 + 0.37233690709212364308e1 * t77 * t78 * t114; t1213 = t75 * t1212; t1215 = t509 * t203; t1218 = t506 * t203; t1221 = 0.1e1 / t508 / t82; t1224 = -0.2e1 * t75 * t1218 * t1221 + 0.3e1 * t196 * t506 * t509 - 0.3e1 * t489 * t203 * t205 - t1183 * t83 - 0.3e1 * t1188 * t205 - t1213 * t205 + 0.3e1 * t504 * t1215; t1225 = t39 * t1224; t1228 = 0.16e2 / 0.3e1 * t435 * t1069 + t1073 * t157 / 0.12e2 + t460 * t402 / 0.8e1 - 0.3e1 / 0.8e1 * t464 * t402 + 0.3e1 / 0.8e1 * t180 * t1081 + 0.135e3 / 0.16e2 * t1089 * t1094 + 0.8e1 / 0.9e1 * t171 * t1098 - 0.16e2 / 0.3e1 * t431 * t442 - 0.4e1 * t1143 * t176 - 0.7e1 / 0.54e2 * t38 * t1146 - 0.3e1 / 0.8e1 * t180 * t1149 + 0.27e2 / 0.32e2 * t456 * t1152 - 0.8e1 * t435 * t1158 - t38 * t1161 / 0.8e1 + t38 * t1164 / 0.6e1 + t38 * t1225 / 0.8e1; t1229 = t1066 + t1228; t1230 = t39 * t1229; t1233 = t114 * t211; t1236 = t22 * t515; t1239 = t331 * t89; t1242 = t89 * t621; t1243 = t1242 * t1093; t1255 = t386 * t160 * t53; t1263 = t153 * t409 * M_PI; t1271 = t386 * t212 * t53; t1275 = t153 * t412 * M_PI; t1281 = t153 * t516 * M_PI; t1284 = -0.4e1 / 0.3e1 * t38 * t1230 - 0.16e2 / 0.9e1 * t38 * t1233 + 0.4e1 / 0.3e1 * t38 * t1236 + 0.112e3 / 0.81e2 * t38 * t1239 - 0.90e2 * t1089 * t1243 - 0.4e1 * t155 * t1081 + 0.4e1 * t155 * t1149 - 0.4e1 / 0.3e1 * t394 * t402 + 0.4e1 * t398 * t402 + 0.3e1 * t1255 * t390 + 0.18e2 * t388 * t1044 - 0.9e1 * t388 * t1152 - 0.8e1 / 0.9e1 * t1263 * t157 - 0.2e1 / 0.3e1 * t155 * t1063 - 0.2e1 * t398 * t406 - 0.9e1 * t1271 * t390 + 0.4e1 / 0.3e1 * t1275 * t157 + 0.2e1 / 0.3e1 * t394 * t406 - 0.2e1 * t1281 * t157; t1285 = my_piecewise3(t42, t1002, t1284); t1286 = t6 * t1285; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[0] = t7 * t869 * t32 / 0.9e1 - t7 * t873 * t32 / 0.2e1 - t7 * t294 * t128 / 0.2e1 - 0.3e1 / 0.2e1 * t7 * t880 * t32 - 0.3e1 * t7 * t298 * t128 - 0.3e1 / 0.2e1 * t7 * t95 * t351 - 0.3e1 / 0.8e1 * t101 * t1286 * t32 - 0.9e1 / 0.8e1 * t101 * t521 * t128 - 0.9e1 / 0.8e1 * t101 * t217 * t351 - 0.3e1 / 0.8e1 * t101 * t221 * t965; t1300 = t70 * t1 * t3; t1321 = t22 * t240; t1325 = t39 * t577; t1333 = t106 * t112; t1346 = t106 * t324; t1347 = t1346 * t557; t1353 = t18 * t928; t1354 = t235 * t325; t1355 = t1353 * t1354; t1358 = t572 * t123; t1359 = t556 * t1358; t1362 = t235 * t346; t1363 = t556 * t1362; t1371 = t340 * t343; t1374 = t945 * t15; t1376 = 0.1e1 / t1374 * t957; t1379 = 0.39200000000000000000e-1 * t229 * t331 * t24 + 0.20720000000000000000e0 * t315 * t120 - 0.17360000000000000000e0 * t1371 * sigma[0] + 0.67200000000000000000e-1 * t1376 * t337; t1380 = t112 * t1379; t1384 = 0.91259259259259259260e-2 * t13 * t5 * t315 * t28 + 0.49777777777777777778e-2 * t14 * t1333 * t123 + 0.18666666666666666666e-2 * t14 * t556 * t325 - 0.93333333333333333332e-3 * t14 * t547 * t346 - 0.91259259259259259260e-2 * t14 * t316 * t236 - 0.99555555555555555554e-2 * t555 * t1347 + 0.49777777777777777778e-2 * t14 * t107 * t573 - 0.55999999999999999998e-2 * t555 * t1355 + 0.37333333333333333332e-2 * t555 * t1359 + 0.18666666666666666666e-2 * t555 * t1363 - 0.93333333333333333332e-3 * t14 * t19 * t1380; t1385 = t16 * t1384; t1405 = t70 * t240; t1409 = t8 * t577; t1413 = t21 * t1384; t1417 = -0.8e1 / 0.3e1 * t102 * t890 * t241 * t304 + 0.32e2 / 0.27e2 * t102 * t303 * t539 * t128 + 0.16e2 / 0.9e1 * t102 * t303 * t578 * t128 + 0.8e1 / 0.9e1 * t102 * t303 * t241 * t351 + 0.8e1 / 0.81e2 * t102 * t103 * t1321 - 0.16e2 / 0.27e2 * t102 * t103 * t1325 - 0.4e1 / 0.9e1 * t102 * t103 * t1385 + 0.192e3 / 0.5e1 * t138 * t974 * t245 * t304 - 0.128e3 / 0.5e1 * t138 * t362 * t586 * t128 - 0.96e2 / 0.5e1 * t138 * t362 * t590 * t128 - 0.48e2 / 0.5e1 * t138 * t362 * t245 * t351 + 0.64e2 / 0.45e2 * t138 * t141 * t1405 + 0.128e3 / 0.15e2 * t138 * t141 * t1409 + 0.16e2 / 0.5e1 * t138 * t141 * t1413; t1425 = t153 * t617 * M_PI; t1433 = t13 * t103 * t1384; t1437 = t153 * t712 * M_PI; t1445 = t386 * t283 * t53; t1448 = t1088 * t90; t1450 = t1103 * t240 * t304; t1453 = -0.8e1 / 0.27e2 * t1263 * t251 + 0.4e1 / 0.9e1 * t1275 * t251 + 0.4e1 / 0.3e1 * t614 * t402 + 0.4e1 / 0.9e1 * t1425 * t157 - 0.2e1 / 0.3e1 * t1281 * t251 - 0.4e1 / 0.3e1 * t398 * t610 - 0.2e1 / 0.3e1 * t155 * t1433 - 0.4e1 / 0.3e1 * t1437 * t157 + 0.4e1 / 0.9e1 * t394 * t610 - 0.2e1 / 0.3e1 * t614 * t406 - 0.3e1 * t1445 * t390 - 0.90e2 * t1448 * t1450; t1457 = t14 * t641 * t128; t1461 = t14 * t259 * t351; t1466 = t361 * t577; t1468 = t595 * t1466 * t128; t1472 = t595 * t596 * t351; t1478 = t14 * t596 * t304; t1484 = t595 * t626 * t304; t1488 = t386 * t279 * t53; t1500 = t153 * t708 * M_PI; t1505 = t140 * t1384; t1507 = t58 * t1505 * t174; t1513 = t153 * t666 * M_PI; t1523 = t255 * t191 * t53 * t1; t1528 = t22 * t707; t1531 = t114 * t278; t1535 = t380 * t57; t1536 = t255 * t8 * t1535; t1537 = t362 * t240; t1538 = t1537 * t1157; t1541 = t1088 * t86; t1544 = t625 * t577; t1545 = t1544 * t627; t1548 = t174 * t351; t1549 = t626 * t1548; t1553 = t620 * t70 * t621; t1556 = -t663 * t402 / 0.8e1 + t1073 * t251 / 0.36e2 + 0.2e1 / 0.3e1 * t1523 * t261 + t663 * t406 / 0.16e2 - t38 * t1528 / 0.12e2 + t38 * t1531 / 0.18e2 - 0.18e2 * t1536 * t1538 + 0.135e3 / 0.16e2 * t1541 * t1450 - 0.108e3 * t623 * t1545 - 0.54e2 * t623 * t1549 - 0.36e2 * t1553 * t628; t1558 = t1092 * t240; t1559 = t174 * t304; t1560 = t1558 * t1559; t1563 = t626 * t1157; t1566 = t6 * t1384; t1570 = t240 * t1221; t1571 = t1570 * t506; t1572 = t701 * t1571; t1575 = t361 * t16; t1576 = t688 * t304; t1577 = t1575 * t1576; t1580 = t140 * t39; t1581 = t1580 * t689; t1584 = t687 * t240; t1585 = t509 * t128; t1586 = t1585 * t203; t1587 = t1584 * t1586; t1591 = t103 * t1325 * t205; t1595 = t103 * t1385 * t205; t1598 = t18 * t83; t1603 = t191 * t203 * t205; t1608 = t70 * t503 * t205; t1612 = t489 * t44; t1613 = t1612 * t13; t1618 = -t266 * t1566 * t268 / 0.48e2 + 0.25132741228718345908e2 * t686 * t1572 + 0.75398223686155037724e2 * t686 * t1577 - 0.33510321638291127878e2 * t686 * t1581 + 0.50265482457436691816e2 * t686 * t1587 + 0.16755160819145563939e2 * t273 * t1591 + 0.12566370614359172954e2 * t273 * t1595 - 0.5e1 / 0.216e3 * t266 * t267 * t1598 + t266 * t267 * t1603 / 0.36e2 - t266 * t267 * t1608 / 0.48e2 + 0.12566370614359172954e2 * t1613 * t275 + 0.25132741228718345908e2 * t683 * t698; t1625 = t577 * t509; t1626 = t1625 * t203; t1627 = t701 * t1626; t1630 = t702 * t503; t1631 = t701 * t1630; t1635 = t70 * t506 * t509; t1639 = t682 * t14; t1646 = t577 * t205; t1647 = t1646 * t128; t1648 = t687 * t1647; t1651 = t688 * t351; t1652 = t687 * t1651; t1656 = t103 * t1321 * t205; t1659 = t60 * t39; t1660 = t1659 * t703; t1663 = t266 * t669 * t673 / 0.36e2 - t266 * t669 * t678 / 0.24e2 - 0.25132741228718345908e2 * t686 * t1627 - 0.12566370614359172954e2 * t686 * t1631 + t266 * t267 * t1635 / 0.48e2 - 0.50265482457436691816e2 * t1639 * t690 + 0.16755160819145563939e2 * t683 * t694 - 0.25132741228718345908e2 * t1639 * t704 - 0.50265482457436691816e2 * t686 * t1648 - 0.25132741228718345908e2 * t686 * t1652 - 0.27925268031909273231e1 * t273 * t1656 - 0.16755160819145563939e2 * t686 * t1660; t1664 = t1618 + t1663; t1665 = t39 * t1664; t1672 = t577 * t446; t1673 = t1672 * t450; t1674 = t646 * t1673; t1678 = t646 * t647 * t1010; t1689 = 0.432e3 * t623 * t1560 + 0.108e3 * t623 * t1563 + t38 * t1665 / 0.8e1 - t180 * t1457 / 0.4e1 - t180 * t1461 / 0.8e1 + 0.6e1 * t258 * t1674 + 0.3e1 * t258 * t1678 + 0.9e1 / 0.16e2 * t1016 * t598 + 0.9e1 / 0.16e2 * t456 * t1468 + 0.9e1 / 0.32e2 * t456 * t1472 + t460 * t606 / 0.12e2; t1690 = t254 * t1087; t1691 = t621 * M_PI; t1692 = t8 * t1691; t1694 = 0.1e1 / t360 / t139; t1696 = t1690 * t1692 * t1694; t1697 = t636 * t304; t1698 = t1697 * t14; t1705 = t577 * t174; t1706 = t1705 * t128; t1707 = t635 * t1706; t1711 = t635 * t636 * t351; t1720 = t58 * t625; t1721 = t1720 * t1697; t1724 = t240 * t1032; t1726 = t646 * t1724 * t1034; t1731 = -0.135e3 * t1696 * t1698 + 0.6e1 * t633 * t638 + 0.2e1 * t633 * t649 + 0.18e2 * t258 * t1707 + 0.9e1 * t258 * t1711 - t464 * t606 / 0.4e1 - 0.27e2 / 0.16e2 * t456 * t1484 + 0.3e1 / 0.8e1 * t180 * t1478 - 0.36e2 * t258 * t1721 - 0.6e1 * t258 * t1726 - 0.3e1 / 0.16e2 * t1040 * t598; t1733 = 0.9e1 / 0.32e2 * t1488 * t390 - t460 * t610 / 0.24e2 + t1057 * t251 / 0.16e2 + t464 * t610 / 0.8e1 + t180 * t1433 / 0.16e2 + t1500 * t157 / 0.8e1 - 0.2e1 * t633 * t643 - 0.3e1 * t258 * t1507 - t1020 * t251 / 0.24e2 - t1513 * t157 / 0.24e2 + t1556 + t1689 + t1731; t1734 = t39 * t1733; t1737 = t114 * t282; t1740 = t22 * t711; t1743 = 0.8e1 / 0.3e1 * t398 * t606 + 0.8e1 / 0.3e1 * t155 * t1457 + 0.4e1 / 0.3e1 * t155 * t1461 - 0.6e1 * t1271 * t598 - 0.6e1 * t388 * t1468 - 0.3e1 * t388 * t1472 - 0.8e1 / 0.9e1 * t394 * t606 - 0.4e1 * t155 * t1478 + 0.2e1 * t1255 * t598 + 0.18e2 * t388 * t1484 - 0.4e1 / 0.3e1 * t38 * t1734 - 0.16e2 / 0.27e2 * t38 * t1737 + 0.8e1 / 0.9e1 * t38 * t1740; t1745 = my_piecewise3(t42, t1417, t1453 + t1743); t1746 = t6 * t1745; t1747 = t1746 * t32; t1750 = t717 * t128; t1753 = t288 * t351; t1760 = t521 * t240; t1763 = t217 * t577; t1766 = t221 * t1384; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[0] = -t1300 * t289 / 0.6e1 - t532 * t718 - t532 * t721 - 0.3e1 / 0.8e1 * t101 * t1747 - 0.3e1 / 0.4e1 * t101 * t1750 - 0.3e1 / 0.8e1 * t101 * t1753 - t1300 * t291 / 0.6e1 - t532 * t726 - t532 * t729 - 0.3e1 / 0.8e1 * t101 * t1760 - 0.3e1 / 0.4e1 * t101 * t1763 - 0.3e1 / 0.8e1 * t101 * t1766; t1775 = t39 * t732; t1787 = t39 * t764; t1802 = t740 * t123; t1803 = t1353 * t1802; t1806 = t235 * t572; t1807 = t556 * t1806; t1813 = t759 * t123; t1814 = t556 * t1813; t1824 = t945 * rho[0]; t1826 = 0.1e1 / t1824 * t957; t1829 = 0.84000000000000000000e-2 * t746 * t114 * t24 - 0.84000000000000000000e-2 * t750 * t106 * t120 + 0.42000000000000000000e-1 * t569 - 0.25200000000000000000e-1 * t1826 * sigma[0]; t1830 = t112 * t1829; t1834 = 0.49777777777777777776e-2 * t14 * t1333 * t235 + 0.37333333333333333332e-2 * t14 * t558 - 0.18666666666666666666e-2 * t14 * t547 * t572 - 0.49777777777777777776e-2 * t14 * t107 * t741 - 0.55999999999999999998e-2 * t555 * t1803 + 0.37333333333333333332e-2 * t555 * t1807 + 0.24888888888888888889e-2 * t14 * t107 * t760 + 0.18666666666666666666e-2 * t555 * t1814 - 0.93333333333333333332e-3 * t14 * t19 * t1830; t1835 = t16 * t1834; t1843 = t8 * t732; t1855 = t8 * t764; t1859 = t21 * t1834; t1863 = -0.8e1 / 0.3e1 * t102 * t890 * t733 * t128 + 0.16e2 / 0.27e2 * t102 * t303 * t1775 + 0.16e2 / 0.9e1 * t102 * t303 * t241 * t577 + 0.8e1 / 0.9e1 * t102 * t303 * t765 * t128 - 0.8e1 / 0.27e2 * t102 * t103 * t1787 - 0.4e1 / 0.9e1 * t102 * t103 * t1835 + 0.192e3 / 0.5e1 * t138 * t974 * t769 * t128 - 0.64e2 / 0.5e1 * t138 * t362 * t1843 - 0.96e2 / 0.5e1 * t138 * t362 * t245 * t577 - 0.48e2 / 0.5e1 * t138 * t362 * t773 * t128 + 0.64e2 / 0.15e2 * t138 * t141 * t1855 + 0.16e2 / 0.5e1 * t138 * t141 * t1859; t1865 = t1103 * t732 * t128; t1871 = t625 * t732; t1873 = t595 * t1871 * t128; t1877 = t595 * t596 * t577; t1892 = -0.90e2 * t1448 * t1865 + t1255 * t779 - 0.3e1 * t1271 * t779 + 0.18e2 * t388 * t1873 - 0.6e1 * t388 * t1877 - 0.6e1 * t1445 * t598 + 0.4e1 / 0.9e1 * t1425 * t251 - 0.4e1 / 0.3e1 * t1437 * t251 + 0.8e1 / 0.3e1 * t614 * t606 - 0.4e1 / 0.3e1 * t614 * t610 - 0.4e1 / 0.9e1 * t394 * t785; t1896 = t14 * t798 * t128; t1900 = t14 * t259 * t577; t1903 = t361 * t764; t1905 = t595 * t1903 * t128; t1913 = t14 * t803 * t128; t1917 = t13 * t103 * t1834; t1921 = t153 * t854 * M_PI; t1924 = t22 * t853; t1927 = t22 * t849; t1930 = t6 * t1834; t1940 = t240 * t60; t1943 = t732 * t140; t1944 = t205 * t128; t1949 = t2 * t240; t1953 = t140 * t205; t1957 = t60 * t509; t1963 = t732 * t205; t1964 = t1963 * t128; t1965 = t1575 * t1964; t1969 = t303 * t1775 * t205; t1972 = -t266 * t1930 * t268 / 0.48e2 + t266 * t824 * t673 / 0.72e2 - t266 * t824 * t678 / 0.48e2 + 0.20000000000000000000e1 * t1940 * t1646 - 0.20000000000000000000e1 * t1943 * t1944 - 0.10000000000000000000e1 * t828 * t1215 + 0.62831853071795864770e1 * t1949 * t832 * t577 - 0.62831853071795864770e1 * t831 * t1953 * t128 - M_PI * t831 * t1957 * t203 - 0.25132741228718345908e2 * t683 * t836 + 0.75398223686155037724e2 * t686 * t1965 - 0.16755160819145563939e2 * t273 * t1969; t1973 = t688 * t577; t1974 = t687 * t1973; t1977 = t732 * t509; t1978 = t1977 * t203; t1979 = t687 * t1978; t1984 = t764 * t205; t1985 = t1984 * t128; t1986 = t687 * t1985; t1990 = t103 * t1787 * t205; t1994 = t103 * t1835 * t205; t1997 = t764 * t509; t1998 = t1997 * t203; t1999 = t701 * t1998; t2002 = t196 * t52; t2003 = t2002 * t137; t2006 = t843 * t595; t2007 = t625 * t21; t2008 = t1977 * t128; t2009 = t2007 * t2008; t2013 = t362 * t1843 * t509; t2016 = t361 * t21; t2017 = t702 * t577; t2018 = t2016 * t2017; t2021 = t732 * t1221; t2022 = t2021 * t203; t2023 = t2016 * t2022; t2026 = -0.50265482457436691816e2 * t686 * t1974 + 0.25132741228718345908e2 * t686 * t1979 + 0.12566370614359172954e2 * t683 * t840 - 0.25132741228718345908e2 * t686 * t1986 + 0.83775804095727819693e1 * t273 * t1990 + 0.12566370614359172954e2 * t273 * t1994 - 0.12566370614359172954e2 * t686 * t1999 + 0.47374101125228921372e3 * t2003 * t846 - 0.18949640450091568549e4 * t2006 * t2009 + 0.63165468166971895163e3 * t844 * t2013 + 0.94748202250457842744e3 * t2006 * t2018 - 0.94748202250457842744e3 * t2006 * t2023; t2027 = t1972 + t2026; t2028 = t39 * t2027; t2031 = t810 * t621; t2040 = t153 * t850 * M_PI; t2051 = t140 * t1834; t2053 = t58 * t2051 * t174; t2069 = t626 * t1705; t2072 = t446 * t450; t2073 = t1871 * t2072; t2076 = -t38 * t1927 / 0.24e2 + t38 * t2028 / 0.8e1 - 0.144e3 * t2031 * t1871 * t446 + 0.135e3 / 0.16e2 * t1541 * t1865 + 0.3e1 * t633 * t800 + t2040 * t157 / 0.16e2 + t663 * t610 / 0.8e1 - t464 * t785 / 0.8e1 + t464 * t789 / 0.16e2 + t180 * t1917 / 0.16e2 - 0.3e1 * t258 * t2053 + 0.9e1 / 0.32e2 * t1016 * t779 + t1500 * t251 / 0.8e1 - t1513 * t251 / 0.24e2 + t460 * t785 / 0.24e2 - t460 * t789 / 0.48e2 - t633 * t805 - 0.3e1 / 0.32e2 * t1040 * t779 - 0.108e3 * t623 * t2069 + 0.54e2 * t623 * t2073; t2077 = t625 * t764; t2078 = t2077 * t627; t2082 = t810 * rho[0] * t621; t2083 = t1092 * t732; t2084 = t2083 * t1156; t2087 = t626 * t1672; t2090 = t1032 * t450; t2091 = t1871 * t2090; t2094 = t2083 * t627; t2106 = t1720 * t794 * t128; t2111 = t635 * t636 * t577; t2115 = t635 * t812 * t450; t2118 = t764 * t174; t2119 = t2118 * t128; t2120 = t635 * t2119; t2123 = t764 * t446; t2124 = t2123 * t450; t2125 = t646 * t2124; t2128 = t809 * t385; t2129 = rho[0] * t1691; t2131 = t2128 * t2129 * t1694; t2132 = t812 * t9; t2133 = t12 * t128; t2137 = t794 * t9; t2138 = t2137 * t2133; t2149 = t620 * t70; t2152 = 0.18e2 * t258 * t2111 - 0.9e1 * t258 * t2115 + 0.9e1 * t258 * t2120 + 0.3e1 * t258 * t2125 - 0.216e3 * t2131 * t2132 * t2133 - 0.135e3 * t1696 * t2138 - t180 * t1913 / 0.8e1 + 0.9e1 / 0.32e2 * t456 * t1905 - 0.27e2 / 0.16e2 * t456 * t1873 + 0.9e1 / 0.16e2 * t456 * t1877 - 0.18e2 * t2149 * t795; t2154 = t2076 - 0.54e2 * t623 * t2078 + 0.720e3 * t2082 * t2084 - 0.288e3 * t2082 * t2087 + 0.288e3 * t2082 * t2091 + 0.432e3 * t623 * t2094 - t663 * t606 / 0.4e1 + 0.9e1 / 0.16e2 * t1488 * t598 + 0.3e1 / 0.8e1 * t180 * t1896 - t180 * t1900 / 0.4e1 - 0.36e2 * t258 * t2106 + t2152; t2155 = t39 * t2154; t2158 = 0.4e1 / 0.3e1 * t398 * t785 - 0.4e1 * t155 * t1896 + 0.8e1 / 0.3e1 * t155 * t1900 - 0.3e1 * t388 * t1905 + 0.2e1 / 0.9e1 * t394 * t789 - 0.2e1 / 0.3e1 * t398 * t789 + 0.4e1 / 0.3e1 * t155 * t1913 - 0.2e1 / 0.3e1 * t155 * t1917 - 0.2e1 / 0.3e1 * t1921 * t157 + 0.4e1 / 0.9e1 * t38 * t1924 - 0.4e1 / 0.3e1 * t38 * t2155; t2160 = my_piecewise3(t42, t1863, t1892 + t2158); t2161 = t6 * t2160; t2162 = t2161 * t32; t2165 = t859 * t128; t2169 = t717 * t240; t2172 = t288 * t577; t2177 = t217 * t764; t2180 = t221 * t1834; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[0] = -t532 * t860 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t2162 - 0.3e1 / 0.8e1 * t101 * t2165 - t532 * t863 - 0.3e1 / 0.4e1 * t101 * t2169 - 0.3e1 / 0.4e1 * t101 * t2172 - t532 * t866 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t2177 - 0.3e1 / 0.8e1 * t101 * t2180; t2183 = t732 * t240; t2184 = t16 * t2183; t2198 = t740 * t235; t2199 = t928 * t2198; t2203 = t235 * t759; t2204 = t556 * t2203; t2208 = 0.1e1 / t20 / t337; t2212 = 0.1e1 / t337; t2219 = 0.1e1 / t945; t2222 = 0.94500000000000000000e-2 * t2208 * t22 * t24 - 0.94500000000000000000e-2 * t2212 * t18 * t120 - 0.31500000000000000000e-2 * t750 * t756 * t343 + 0.94500000000000000000e-2 * t2219 * t957; t2223 = t112 * t2222; t2227 = 0.55999999999999999998e-2 * t14 * t556 * t740 - 0.27999999999999999999e-2 * t14 * t547 * t759 - 0.55999999999999999998e-2 * t14 * t19 * t2199 + 0.55999999999999999998e-2 * t555 * t2204 - 0.93333333333333333332e-3 * t14 * t19 * t2223; t2228 = t16 * t2227; t2232 = t21 * t2183; t2240 = t21 * t2227; t2245 = t1092 * t2183; t2246 = t1242 * t2245; t2252 = t137 * t974 * t2183; t2256 = t595 * t596 * t764; t2266 = t13 * t890 * t2183; t2270 = t14 * t259 * t764; t2274 = t13 * t103 * t2227; t2287 = t1090 * t2245; t2290 = t2183 * t446; t2294 = t2077 * t647; t2297 = t2183 * t174; t2298 = t1103 * t2297; t2301 = t626 * t2118; t2305 = t6 * t2227; t2309 = t764 * t60; t2312 = t2183 * t140; t2315 = t2183 * t361; t2316 = t509 * t44; t2317 = t2315 * t2316; t2318 = t5 * t16; t2319 = t13 * t2318; t2322 = t832 * t764; t2325 = t2 * t2183; t2329 = t890 * t2184 * t205; t2332 = t688 * t764; t2333 = t687 * t2332; t2337 = t974 * t2232 * t509; t2341 = t103 * t2228 * t205; t2344 = t1997 * t240; t2345 = t2016 * t2344; t2348 = t44 * t2; t2349 = t2348 * t13; t2350 = t5 * t2183; t2356 = 0.1e1 / t51 / t43; t2357 = t75 * t2356; t2358 = t2357 * t1092; t2359 = t15 * t2183; t2360 = t2359 * t1221; t2363 = -t266 * t2305 * t268 / 0.48e2 + 0.30000000000000000000e1 * t2309 * t688 - 0.20000000000000000000e1 * t2312 * t205 + 0.25132741228718345908e2 * t2317 * t2319 + 0.94247779607693797155e1 * t1949 * t2322 - 0.12566370614359172954e2 * t2325 * t1953 + 0.75398223686155037724e2 * t273 * t2329 - 0.75398223686155037724e2 * t686 * t2333 - 0.28424460675137352823e4 * t844 * t2337 + 0.12566370614359172954e2 * t273 * t2341 + 0.14212230337568676412e4 * t2006 * t2345 + 0.39478417604357434477e2 * t2349 * t2350 * t1575 * t509 + 0.44886109148468323082e6 * t2358 * t2360; t2364 = t39 * t2363; t2373 = t2297 * t14; t2376 = t2290 * t14; t2379 = t140 * t2227; t2381 = t58 * t2379 * t174; t2385 = 0.1e1 / t51 / p->cam_omega; t2386 = t2385 * t152; t2387 = t190 * t1691; t2389 = t2386 * t2387 * t1694; t2390 = t2183 * t1032; t2391 = t2390 * t14; t2396 = t625 * t2183; t2398 = t58 * t2396 * t174; t2402 = t635 * t636 * t764; t2405 = t38 * t2364 / 0.8e1 + t180 * t2274 / 0.16e2 + 0.3e1 / 0.16e2 * t2040 * t251 + 0.3e1 / 0.16e2 * t663 * t789 - 0.135e3 * t1696 * t2373 - 0.432e3 * t2131 * t2376 - 0.3e1 * t258 * t2381 - 0.1152e4 * t2389 * t2391 + 0.27e2 / 0.32e2 * t1488 * t779 - 0.36e2 * t258 * t2398 + 0.27e2 * t258 * t2402; t2406 = 0.3e1 / 0.8e1 * t180 * t2266 - 0.3e1 / 0.8e1 * t180 * t2270 - 0.27e2 / 0.16e2 * t456 * t2252 + 0.27e2 / 0.32e2 * t456 * t2256 - 0.3e1 / 0.8e1 * t663 * t785 + 0.135e3 / 0.16e2 * t1089 * t2287 + 0.1152e4 * t811 * t1103 * t2290 - 0.432e3 * t2082 * t2294 + 0.432e3 * t792 * t2298 - 0.162e3 * t623 * t2301 + t2405; t2407 = t39 * t2406; t2410 = -0.90e2 * t1089 * t2246 - 0.9e1 * t1445 * t779 + 0.18e2 * t388 * t2252 - 0.9e1 * t388 * t2256 - 0.2e1 * t1921 * t251 + 0.4e1 * t614 * t785 - 0.2e1 * t614 * t789 - 0.4e1 * t155 * t2266 + 0.4e1 * t155 * t2270 - 0.2e1 / 0.3e1 * t155 * t2274 - 0.4e1 / 0.3e1 * t38 * t2407; t2411 = my_piecewise3(t42, -0.8e1 / 0.3e1 * t102 * t890 * t2184 + 0.8e1 / 0.3e1 * t102 * t303 * t241 * t764 - 0.4e1 / 0.9e1 * t102 * t103 * t2228 + 0.192e3 / 0.5e1 * t138 * t974 * t2232 - 0.144e3 / 0.5e1 * t138 * t362 * t245 * t764 + 0.16e2 / 0.5e1 * t138 * t141 * t2240, t2410); t2412 = t6 * t2411; t2413 = t2412 * t32; t2416 = t859 * t240; t2419 = t288 * t764; t2422 = t221 * t2227; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[0] = -0.3e1 / 0.8e1 * t101 * t2413 - 0.9e1 / 0.8e1 * t101 * t2416 - 0.9e1 / 0.8e1 * t101 * t2419 - 0.3e1 / 0.8e1 * t101 * t2422; #ifndef XC_DONT_COMPILE_LXC if(order < 4) return; t2431 = sigma[0] / t16 / t566; t2454 = 0.1e1 / t927 / t27; t2455 = t325 * t325; t2464 = t346 * t346; t2483 = t945 * t313; t2488 = t337 * t337; t2495 = 0.1e1 / t119 / t955 / t118; t2503 = 0.24133004115226337449e0 * t14 * t2431 * t28 + 0.17035061728395061728e0 * t14 * t914 * t124 + 0.10951111111111111111e0 * t14 * t316 * t326 - 0.54755555555555555556e-1 * t14 * t316 * t347 + 0.59733333333333333332e-1 * t14 * t107 * t930 - 0.59733333333333333332e-1 * t555 * t1346 * t934 + 0.99555555555555555556e-2 * t14 * t107 * t961 + 0.22399999999999999999e-1 * t14 * t19 * t2454 * t2455 - 0.33599999999999999998e-1 * t555 * t1353 * t325 * t346 + 0.55999999999999999998e-2 * t14 * t19 * t324 * t2464 + 0.74666666666666666664e-2 * t555 * t556 * t123 * t960 - 0.93333333333333333332e-3 * t14 * t19 * t112 * (0.11324444444444444444e1 * t20 * t756 * t24 + 0.53834666666666666666e1 * t2431 * t120 - 0.57891555555555555555e1 * t337 / t8 / t1824 * t343 + 0.41813333333333333333e1 * t951 / t2483 * t957 - 0.11946666666666666667e1 * t2488 / t16 / t945 / t566 * t2495); t2530 = t351 * t351; t2539 = t6 * t1092; t2540 = t304 * t304; t2549 = -0.64e2 / 0.81e2 * t55 * t58 * t60 * t18 + 0.16e2 / 0.5e1 * t138 * t141 * t21 * t2503 + 0.256e3 / 0.15e2 * t138 * t141 * t8 * t965 + 0.128e3 / 0.15e2 * t138 * t141 * t477 - 0.224e3 / 0.729e3 * t46 * t12 * t33 * t331 - 0.512e3 / 0.135e3 * t138 * t141 * t481 - 0.128e3 / 0.5e1 * t138 * t362 * t70 * t304 - 0.768e3 / 0.5e1 * t138 * t362 * t367 * t351 - 0.144e3 / 0.5e1 * t138 * t362 * t21 * t2530 - 0.192e3 / 0.5e1 * t138 * t362 * t142 * t965 - 0.192e3 * t138 * t2539 * t21 * t2540 + 0.1024e4 / 0.5e1 * t138 * t974 * t8 * t891; t2555 = t103 * t114 * t128; t2559 = t103 * t39 * t965; t2563 = t103 * t16 * t2503; t2567 = t103 * t22 * t351; t2570 = t5 * t625; t2572 = t2570 * t16 * t2540; t2576 = t890 * t39 * t891; t2584 = t303 * t22 * t304; t2592 = t303 * t16 * t2530; t2599 = 0.1152e4 / 0.5e1 * t138 * t974 * t363 * t351 - 0.128e3 / 0.243e3 * t102 * t2555 - 0.32e2 / 0.27e2 * t102 * t2559 - 0.4e1 / 0.9e1 * t102 * t2563 + 0.16e2 / 0.27e2 * t102 * t2567 + 0.32e2 / 0.3e1 * t102 * t2572 - 0.64e2 / 0.9e1 * t102 * t2576 - 0.16e2 * t102 * t890 * t305 * t351 - 0.32e2 / 0.27e2 * t102 * t2584 + 0.64e2 / 0.9e1 * t102 * t303 * t309 * t351 + 0.8e1 / 0.3e1 * t102 * t2592 + 0.32e2 / 0.9e1 * t102 * t303 * t129 * t965; t2605 = t153 * t1230 * M_PI; t2609 = t153 * t1236 * M_PI; t2613 = t153 * t1233 * M_PI; t2619 = t137 * t2539 * t2540; t2625 = t386 * t412 * t53; t2634 = t153 * t1239 * M_PI; t2645 = 0.1e1 / t36 / t621 / t9 * t3 * t2 / t5 / t361 / 0.36e2; t2646 = p->cam_omega * t2645; t2648 = t2646 * t90 * t1691; t2649 = t360 * t360; t2650 = 0.1e1 / t2649; t2652 = t2650 * t2540 * t14; t2662 = t137 * t362 * t2530; t2668 = t386 * t409 * t53; t2672 = t386 * t516 * t53; t2679 = 0.224e3 / 0.81e2 * t2634 * t157 - 0.315e3 * t2648 * t2652 + 0.72e2 * t1271 * t1044 - 0.4e1 * t1281 * t406 + 0.8e1 / 0.3e1 * t1275 * t406 - 0.9e1 * t388 * t2662 + 0.8e1 / 0.9e1 * t394 * t1063 - 0.8e1 * t2668 * t390 - 0.18e2 * t2672 * t390 - 0.16e2 / 0.9e1 * t1263 * t406 - 0.8e1 / 0.3e1 * t398 * t1063; t2682 = t13 * t103 * t2503; t2687 = t1115 * t965; t2688 = t595 * t2687; t2693 = t1088 * t22; t2696 = t211 * t621; t2700 = t1694 * t2540; t2717 = t386 * t512 * t53; t2721 = t386 * t474 * t53; t2776 = t304 * t351; t2802 = 0.30159289474462015090e3 * t77 * t2572 - 0.20106192982974676727e3 * t77 * t2576 - 0.45238934211693022634e3 * t1198 * t1575 * t2776 - 0.33510321638291127878e2 * t77 * t2584 + 0.20106192982974676727e3 * t1198 * t1580 * t1199 + 0.75398223686155037724e2 * t77 * t2592 + 0.10053096491487338363e3 * t1198 * t687 * t128 * t965 - 0.14893476283684945724e2 * t77 * t2555 + 0.16755160819145563939e2 * t77 * t2567 - 0.33510321638291127877e2 * t77 * t2559 - 0.12566370614359172954e2 * t77 * t2563 - 0.86878611654828850052e1 * t77 * t78 * t331; t2807 = t1221 * t506; t2810 = t503 * t503; t2814 = t506 * t506; t2816 = t508 * t508; t2817 = 0.1e1 / t2816; t2820 = -(t68 * t69 * t2503 * t70 / 0.48e2 - t68 * t69 * t965 * t191 / 0.18e2 + 0.5e1 / 0.36e2 * t68 * t69 * t351 * t18 - 0.20e2 / 0.81e2 * t68 * t69 * t128 * t106 + 0.55e2 / 0.243e3 * t68 * t69 * t32 * t315) * t83 - 0.4e1 * t1183 * t203 * t205 - 0.6e1 * t489 * t503 * t205 + 0.6e1 * t489 * t506 * t509 - 0.4e1 * t196 * t1212 * t205 + 0.12e2 * t1188 * t1215 - 0.8e1 * t196 * t1218 * t1221 - t75 * t2802 * t205 + 0.4e1 * t1213 * t1215 - 0.12e2 * t504 * t2807 + 0.3e1 * t75 * t2810 * t509 + 0.6e1 * t75 * t2814 * t2817; t2829 = t207 * t621; t2842 = -0.24e2 * t894 + 0.16e2 * t898 + 0.24e2 * t902 + 0.8e1 / 0.3e1 * t906 - 0.8e1 * t910 - 0.4e1 * t968 + 0.32e2 / 0.27e2 * t972; t2852 = 0.12e2 * t1003 * t1012 + t464 * t1063 / 0.4e1 + t180 * t2682 / 0.16e2 + 0.8e1 * t435 * t103 * t1051 * t351 + 0.3e1 / 0.8e1 * t1057 * t406 + 0.27e2 / 0.16e2 * t2717 * t390 - 0.9e1 / 0.8e1 * t2721 * t390 - 0.24e2 * t1003 * t1048 + 0.16e2 * t1003 * t1053 + t1073 * t406 / 0.6e1 + 0.35e2 / 0.81e2 * t38 * t939 * t85 + t38 * t39 * t2820 / 0.8e1 - 0.45e2 / 0.4e1 * t2693 * t1094 - 0.405e3 / 0.4e1 * t1089 * t1090 * t2700 + 0.135e3 / 0.4e1 * t1089 * t2829 * t1093 + 0.12e2 * t1003 * t1028 + 0.4e1 * t435 * t78 * t447 * t2842 - 0.8e1 / 0.3e1 * t435 * t78 * t22 * t446 * t450; t2869 = t446 * t351; t2870 = t2869 * t450; t2874 = t1156 * t1010; t2880 = t1132 * t965; t2891 = t13 * t2570 * t2540; t2895 = t361 * t304 * t351; t2900 = t13 * t303 * t2530; t2907 = t621 * t1694; t2911 = t1103 * t2776; t2916 = -0.2e1 * t1131 * t12 * t2880 - 0.2e1 * t420 * t1081 + 0.2e1 * t153 * t419 * t9 * t1134 - 0.6e1 * t164 * t2891 + 0.9e1 * t1131 * t12 * t2895 - 0.3e1 / 0.2e1 * t164 * t2900 + 0.140e3 / 0.81e2 * t38 * t939 - 0.45e2 * t2693 * t1104 - 0.405e3 * t1089 * t2907 * t2540 + 0.405e3 / 0.2e1 * t1089 * t2911 + t164 * t2682 / 0.4e1; t2934 = t625 * t304 * t351; t2953 = 0.2e1 / 0.3e1 * t1121 * t406 - t420 * t1063 / 0.3e1 + 0.945e3 / 0.8e1 * t2646 * t39 * t1691 * t2652 + 0.9e1 * t1108 * t1044 - 0.9e1 / 0.2e1 * t386 * t1107 * t1 * t1117 + 0.81e2 / 0.2e1 * t416 * t2619 - 0.81e2 / 0.2e1 * t1114 * t58 * t2934 + 0.27e2 / 0.8e1 * t416 * t2662 + 0.9e1 / 0.2e1 * t1114 * t58 * t2687 - 0.28e2 / 0.27e2 * t153 * t331 * M_PI * t157 - 0.4e1 / 0.3e1 * t1121 * t402 + 0.3e1 * t386 * t114 * t53 * t390; t2975 = t445 * t445; t2976 = 0.1e1 / t2975; t2978 = t1034 * t450; t2989 = 0.16e2 * t1003 * t1069 + 0.8e1 * t435 * t78 * t1067 * t1010 + 0.4e1 * t435 * t103 * t436 * t965 - 0.16e2 * t435 * t103 * t39 * t1157 - 0.24e2 * t1003 * t1158 - 0.12e2 * t435 * t1155 * t2870 - 0.12e2 * t435 * t1155 * t2874 + 0.27e2 / 0.8e1 * t1016 * t1152 - 0.4e1 * (t2916 + t2953) * t44 * t10 * t176 - 0.8e1 * t1143 * t442 - 0.32e2 / 0.27e2 * t171 * t12 * t970 * t174 - t38 * t22 * t1224 / 0.6e1 - 0.3e1 / 0.2e1 * t464 * t1149 - 0.16e2 * t435 * t78 * t39 * t1032 * t1034 + 0.24e2 * t435 * t78 * t16 * t2976 * t2978 - 0.3e1 / 0.2e1 * t180 * t2891 - 0.3e1 / 0.8e1 * t180 * t2900 - t1073 * t402 / 0.3e1; t2996 = t153 * t1225 * M_PI; t3000 = t153 * t1161 * M_PI; t3004 = t153 * t1164 * M_PI; t3008 = t2646 * t86 * t1691; t3030 = t1142 * t434; t3034 = t153 * t1146 * M_PI; t3043 = t303 * t16; t3044 = t446 * t304; t3045 = t3044 * t450; t3049 = -t460 * t1081 / 0.2e1 + 0.3e1 / 0.2e1 * t464 * t1081 + t2996 * t157 / 0.4e1 - t3000 * t157 / 0.4e1 + t3004 * t157 / 0.3e1 + 0.945e3 / 0.32e2 * t3008 * t2652 - t460 * t1063 / 0.12e2 - 0.8e1 / 0.3e1 * t435 * t103 * t22 * t174 * t128 + 0.27e2 / 0.32e2 * t456 * t2662 + 0.24e2 * t435 * t890 * t436 * t891 - 0.16e2 * t435 * t303 * t1051 * t304 - t1020 * t406 / 0.4e1 + 0.12e2 * t3030 * t452 - 0.7e1 / 0.27e2 * t3034 * t157 - 0.24e2 * t1003 * t1036 + 0.12e2 * t3030 * t438 + 0.9e1 / 0.8e1 * t456 * t2688 + 0.24e2 * t435 * t3043 * t3045; t3050 = t627 * t351; t3054 = t1032 * t1034; t3055 = t3054 * t128; t3059 = t2090 * t1010; t3065 = t14 * t2895; t3068 = t14 * t2880; t3071 = t595 * t2934; t3077 = t386 * t471 * t53; t3100 = -0.24e2 * t435 * t3043 * t3050 + 0.24e2 * t435 * t1155 * t3055 - 0.24e2 * t435 * t79 * t3059 - 0.9e1 / 0.8e1 * t1040 * t1152 + 0.9e1 / 0.4e1 * t180 * t3065 - t180 * t3068 / 0.2e1 - 0.81e2 / 0.8e1 * t456 * t3071 + t460 * t1149 / 0.2e1 + 0.3e1 / 0.4e1 * t3077 * t390 + t1020 * t402 / 0.2e1 + 0.9e1 / 0.4e1 * t1040 * t1044 - 0.3e1 / 0.4e1 * t1057 * t402 - 0.27e2 / 0.4e1 * t1016 * t1044 + 0.81e2 / 0.8e1 * t456 * t2619 + 0.405e3 / 0.8e1 * t1541 * t2911 - 0.14e2 / 0.27e2 * t38 * t331 * t207 + t38 * t114 * t511 / 0.3e1 + 0.8e1 / 0.3e1 * t431 * t1098; t3136 = 0.16e2 / 0.3e1 * t155 * t3068 + 0.108e3 * t388 * t3071 - 0.24e2 * t155 * t3065 + 0.16e2 * t398 * t1149 - 0.16e2 / 0.3e1 * t394 * t1149 + 0.4e1 * t155 * t2900 + 0.32e2 / 0.9e1 * t1263 * t402 + 0.16e2 / 0.3e1 * t394 * t1081 + 0.16e2 * t155 * t2891 - 0.1120e4 / 0.243e3 * t38 * t939 * t89 - 0.540e3 * t1448 * t2911; t3139 = my_piecewise3(t42, t2549 + t2599, 0.16e2 / 0.9e1 * t38 * t22 * t1229 - 0.8e1 / 0.3e1 * t2605 * t157 + 0.8e1 / 0.3e1 * t2609 * t157 - 0.32e2 / 0.9e1 * t2613 * t157 - 0.16e2 * t398 * t1081 - 0.108e3 * t388 * t2619 - 0.16e2 / 0.3e1 * t1275 * t402 + 0.12e2 * t2625 * t390 - 0.24e2 * t1255 * t1044 + 0.8e1 * t1281 * t402 + t2679 - 0.2e1 / 0.3e1 * t155 * t2682 - 0.36e2 * t1271 * t1152 - 0.12e2 * t388 * t2688 + 0.12e2 * t1255 * t1152 + 0.120e3 * t2693 * t1243 - 0.360e3 * t1089 * t2696 * t1093 + 0.1080e4 * t1089 * t1242 * t2700 - 0.4e1 / 0.3e1 * t38 * t39 * (t2852 + t2989 + t3049 + t3100) + 0.448e3 / 0.81e2 * t38 * t331 * t211 - 0.32e2 / 0.9e1 * t38 * t114 * t515 + t3136); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[0] = -0.3e1 / 0.8e1 * t101 * t6 * t3139 * t32 - 0.2e1 * t7 * t95 * t965 - 0.6e1 * t7 * t298 * t351 - 0.6e1 * t7 * t880 * t128 - t7 * t294 * t351 - 0.2e1 * t7 * t8 * t1285 * t32 - 0.2e1 * t7 * t873 * t128 - 0.5e1 / 0.27e2 * t7 * t18 * t94 * t32 + 0.4e1 / 0.9e1 * t7 * t869 * t128 - t7 * t70 * t520 * t32 + 0.4e1 / 0.9e1 * t7 * t191 * t216 * t32 - 0.3e1 / 0.8e1 * t101 * t221 * t2503 - 0.3e1 / 0.2e1 * t101 * t217 * t965 - 0.9e1 / 0.4e1 * t101 * t521 * t351 - 0.3e1 / 0.2e1 * t101 * t1286 * t128; t3221 = t315 * t112; t3232 = t106 * t928; t3236 = t18 * t2454; t3281 = 0.74666666666666666667e-2 * t14 * t1333 * t346 - 0.93333333333333333332e-3 * t14 * t547 * t960 + 0.44799999999999999999e-1 * t555 * t3232 * t1354 + 0.22399999999999999999e-1 * t555 * t3236 * t235 * t929 - 0.16800000000000000000e-1 * t555 * t1353 * t557 * t346 - 0.27377777777777777778e-1 * t14 * t316 * t573 + 0.74666666666666666667e-2 * t14 * t107 * t1380 - 0.93333333333333333332e-3 * t14 * t19 * t112 * (-0.13066666666666666667e0 * t229 * t939 * t24 - 0.10192000000000000000e1 * t913 * t120 + 0.15493333333333333334e1 * t947 * t343 * sigma[0] - 0.13664000000000000000e1 * t953 * t957 * t337 + 0.44800000000000000000e0 / t16 / t945 / t754 * t2495 * t951) - 0.14933333333333333333e-1 * t14 * t1346 * t325 - 0.55999999999999999998e-2 * t14 * t1353 * t929 + 0.55999999999999999998e-2 * t14 * t935; t3282 = 0.18666666666666666666e-2 * t555 * t556 * t235 * t960 + 0.42587654320987654321e-1 * t14 * t914 * t236 + 0.54755555555555555555e-1 * t555 * t315 * t324 * t557 - 0.29866666666666666666e-1 * t555 * t1346 * t1358 - 0.14933333333333333333e-1 * t555 * t1346 * t1362 - 0.16800000000000000000e-1 * t555 * t1353 * t572 * t325 + 0.55999999999999999998e-2 * t555 * t556 * t1379 * t123 + 0.55999999999999999998e-2 * t555 * t556 * t572 * t346 - 0.42587654320987654321e-1 * t13 * t5 * t913 * t28 - 0.27377777777777777778e-1 * t14 * t3221 * t123 + t3281; t3299 = t191 * t1 * t3; t3330 = t114 * t240; t3334 = t16 * t3282; t3338 = t22 * t577; t3354 = t39 * t1384; t3386 = -0.32e2 / 0.243e3 * t102 * t103 * t3330 - 0.4e1 / 0.9e1 * t102 * t103 * t3334 + 0.8e1 / 0.27e2 * t102 * t103 * t3338 - 0.128e3 / 0.135e3 * t138 * t141 * t191 * t240 + 0.16e2 / 0.5e1 * t138 * t141 * t21 * t3282 + 0.64e2 / 0.15e2 * t138 * t141 * t70 * t577 - 0.8e1 / 0.9e1 * t102 * t103 * t3354 + 0.64e2 / 0.5e1 * t138 * t141 * t8 * t1384 + 0.8e1 / 0.3e1 * t102 * t303 * t578 * t351 + 0.8e1 / 0.9e1 * t102 * t303 * t241 * t965 - 0.8e1 * t102 * t890 * t578 * t304 + 0.32e2 / 0.9e1 * t102 * t303 * t1325 * t128 - 0.48e2 / 0.5e1 * t138 * t362 * t245 * t965 + 0.576e3 / 0.5e1 * t138 * t974 * t590 * t304; t3435 = t54 * t595; t3436 = t240 * t128; t3437 = t3436 * t351; t3441 = t45 * t14; t3445 = -0.384e3 / 0.5e1 * t138 * t362 * t1409 * t128 - 0.192e3 / 0.5e1 * t138 * t362 * t586 * t351 - 0.144e3 / 0.5e1 * t138 * t362 * t1413 * t128 - 0.192e3 * t138 * t2539 * t245 * t891 + 0.768e3 / 0.5e1 * t138 * t974 * t586 * t304 - 0.64e2 / 0.5e1 * t138 * t362 * t1405 * t128 + 0.32e2 / 0.3e1 * t102 * t2570 * t241 * t891 - 0.16e2 / 0.3e1 * t102 * t890 * t539 * t304 - 0.16e2 / 0.27e2 * t102 * t303 * t1321 * t128 + 0.16e2 / 0.9e1 * t102 * t303 * t539 * t351 + 0.8e1 / 0.3e1 * t102 * t303 * t1385 * t128 - 0.144e3 / 0.5e1 * t138 * t362 * t590 * t351 + 0.576e3 / 0.5e1 * t3435 * t2007 * t3437 - 0.8e1 * t3441 * t1575 * t3437; t3453 = t386 * t617 * t53; t3467 = t595 * t1466 * t351; t3471 = t14 * t641 * t351; t3475 = t14 * t259 * t965; t3485 = t595 * t596 * t965; t3490 = 0.4e1 / 0.3e1 * t38 * t22 * t1733 + 0.4e1 / 0.3e1 * t1275 * t610 + 0.3e1 * t3453 * t390 + 0.2e1 / 0.3e1 * t1425 * t406 + 0.56e2 / 0.81e2 * t2634 * t251 + 0.2e1 / 0.3e1 * t394 * t1433 + 0.18e2 * t1445 * t1044 - 0.9e1 * t1271 * t1472 - 0.9e1 * t388 * t3467 + 0.4e1 * t155 * t3471 + 0.4e1 / 0.3e1 * t155 * t3475 + 0.4e1 * t398 * t1461 + 0.4e1 * t614 * t1149 - 0.9e1 * t1445 * t1152 - 0.3e1 * t388 * t3485 + 0.16e2 / 0.9e1 * t1263 * t606; t3496 = t14 * t1505 * t128; t3501 = t595 * t361 * t1384 * t128; t3507 = t282 * t621; t3511 = t1088 * t212; t3515 = t1103 * t577 * t304; t3518 = t386 * t39; t3521 = t3518 * t89 * t53 * t1; t3522 = t1720 * t3437; t3525 = t153 * t39; t3528 = t3525 * t89 * M_PI * t9; t3529 = t12 * t361; t3530 = t3529 * t3437; t3536 = t1103 * t3437; t3547 = 0.8e1 * t398 * t1457 - 0.18e2 * t1271 * t1468 + 0.4e1 * t155 * t3496 - 0.9e1 * t388 * t3501 + 0.112e3 / 0.81e2 * t38 * t331 * t282 - 0.90e2 * t1089 * t3507 * t1093 - 0.270e3 * t3511 * t1450 - 0.270e3 * t1448 * t3515 + 0.54e2 * t3521 * t3522 - 0.12e2 * t3528 * t3530 - 0.16e2 / 0.9e1 * t38 * t114 * t711 - 0.270e3 * t1448 * t3536 + 0.6e1 * t1255 * t1468 - 0.8e1 / 0.3e1 * t394 * t1457 + 0.4e1 * t1281 * t606 - 0.9e1 * t2672 * t598; t3554 = t595 * t1544 * t304; t3563 = t2650 * t240 * t891 * t14; t3569 = t14 * t1466 * t304; t3573 = t595 * t1558 * t891; t3591 = t1088 * t208; t3594 = t1088 * t183; t3598 = t2907 * t240 * t891; t3618 = -t38 * t22 * t1664 / 0.8e1 + 0.36e2 * t620 * t191 * t621 * t628 + 0.405e3 / 0.16e2 * t1541 * t3515 + t38 * t114 * t707 / 0.6e1 - 0.7e1 / 0.54e2 * t38 * t331 * t278 + 0.405e3 / 0.16e2 * t3591 * t1450 - 0.135e3 / 0.16e2 * t3594 * t1450 - 0.405e3 / 0.4e1 * t1541 * t3598 - 0.162e3 * t623 * t1544 * t1548 - 0.162e3 * t623 * t625 * t1384 * t627 + 0.1296e4 * t623 * t1092 * t577 * t1559 + 0.432e3 * t1553 * t1560 + 0.9e1 / 0.8e1 * t180 * t3569 + t460 * t1461 / 0.8e1; t3641 = t577 * t1032; t3655 = t153 * t1665 * M_PI; t3663 = 0.162e3 * t623 * t626 * t2874 + 0.405e3 / 0.16e2 * t1541 * t3536 + 0.324e3 * t623 * t1544 * t1157 - 0.108e3 * t1553 * t1545 - 0.54e2 * t1553 * t1549 - 0.3240e4 * t623 * t1694 * t240 * t174 * t891 - 0.324e3 * t623 * t626 * t3055 + 0.6e1 * t633 * t1674 - 0.18e2 * t258 * t646 * t3641 * t1034 + 0.3e1 * t633 * t1678 + t1020 * t606 / 0.4e1 + 0.9e1 / 0.8e1 * t464 * t1478 + t460 * t1457 / 0.4e1 + 0.3e1 / 0.16e2 * t3655 * t157 - 0.10e2 / 0.9e1 * t255 * t18 * t53 * t1 * t261; t3676 = t153 * t1528 * M_PI; t3680 = t153 * t1531 * M_PI; t3684 = t386 * t708 * t53; t3699 = -0.7e1 / 0.108e3 * t3034 * t251 + t1513 * t402 / 0.8e1 + 0.3e1 / 0.8e1 * t663 * t1081 - 0.3e1 / 0.8e1 * t1500 * t402 - 0.27e2 / 0.16e2 * t1488 * t1044 - t3676 * t157 / 0.8e1 + t3680 * t157 / 0.12e2 + 0.27e2 / 0.32e2 * t3684 * t390 - t1020 * t610 / 0.8e1 - t460 * t1433 / 0.16e2 + 0.3e1 / 0.16e2 * t1500 * t406 + t3004 * t251 / 0.12e2 + t1073 * t610 / 0.12e2 + 0.2e1 * t1523 * t643; t3703 = t386 * t666 * t53; t3717 = t625 * t16; t3722 = t361 * t39; t3750 = t503 * t509; t3755 = t1612 * t14; t3758 = -0.25132741228718345908e2 * t686 * t1659 * t1630 + 0.50265482457436691817e2 * t686 * t1659 * t1571 - 0.75398223686155037724e2 * t686 * t701 * t240 * t2817 * t1218 - 0.30159289474462015090e3 * t686 * t3717 * t688 * t891 + 0.15079644737231007545e3 * t686 * t3722 * t1576 + 0.16755160819145563939e2 * t686 * t140 * t22 * t689 + 0.22619467105846511317e3 * t1639 * t1577 + 0.22619467105846511317e3 * t686 * t1575 * t1646 * t304 - 0.10053096491487338363e3 * t1639 * t1581 - 0.10053096491487338363e3 * t686 * t1580 * t1647 - 0.50265482457436691817e2 * t686 * t1580 * t1651 - 0.50265482457436691817e2 * t686 * t1659 * t1626 + 0.75398223686155037724e2 * t1639 * t1572 + t67 * t7 * t1405 * t3750 * t203 / 0.16e2 - 0.75398223686155037724e2 * t3755 * t690; t3759 = t1384 * t205; t3769 = t577 * t1221; t3818 = -0.75398223686155037724e2 * t686 * t687 * t3759 * t128 - 0.37699111843077518862e2 * t686 * t701 * t1384 * t509 * t203 + 0.75398223686155037724e2 * t686 * t701 * t3769 * t506 - t266 * t669 * t1608 / 0.16e2 - t266 * t267 * t70 * t1212 * t205 / 0.48e2 + 0.12566370614359172954e2 * t1183 * t44 * t13 * t275 + 0.37699111843077518862e2 * t1613 * t698 + 0.12566370614359172954e2 * t273 * t103 * t3334 * t205 + 0.50265482457436691817e2 * t683 * t1591 + 0.25132741228718345908e2 * t273 * t103 * t3354 * t205 - t266 * t1566 * t678 / 0.16e2 - 0.83775804095727819694e1 * t273 * t103 * t3338 * t205 - 0.5e1 / 0.72e2 * t266 * t267 * t18 * t203 * t205 + t266 * t669 * t1603 / 0.12e2 + t266 * t267 * t191 * t503 * t205 / 0.24e2; t3865 = 0.37699111843077518862e2 * t683 * t1595 - 0.37699111843077518862e2 * t1639 * t1631 - 0.12566370614359172954e2 * t686 * t701 * t702 * t1212 - 0.37699111843077518862e2 * t3755 * t704 - 0.15079644737231007545e3 * t1639 * t1648 - 0.75398223686155037724e2 * t1639 * t1627 - 0.25132741228718345908e2 * t686 * t687 * t688 * t965 + 0.83775804095727819694e1 * t686 * t60 * t22 * t703 - 0.75398223686155037724e2 * t1639 * t1652 - 0.50265482457436691817e2 * t1639 * t1660 - 0.37699111843077518862e2 * t686 * t701 * t1625 * t503 - 0.75398223686155037724e2 * t686 * t687 * t1646 * t351 - 0.5e1 / 0.72e2 * t266 * t669 * t1598 - t266 * t6 * t3282 * t268 / 0.48e2 + 0.15079644737231007545e3 * t686 * t687 * t577 * t1586; t3885 = t1575 * t240; t3929 = 0.75398223686155037724e2 * t686 * t1584 * t509 * t351 * t203 + 0.75398223686155037724e2 * t686 * t1584 * t1585 * t503 - 0.15079644737231007545e3 * t686 * t1584 * t2807 * t128 + 0.75398223686155037724e2 * t686 * t701 * t240 * t1221 * t203 * t503 - 0.22619467105846511317e3 * t686 * t3885 * t509 * t304 * t203 + 0.22619467105846511317e3 * t686 * t3885 * t1944 * t351 + 0.10053096491487338363e3 * t686 * t1580 * t240 * t1586 + 0.15079644737231007545e3 * t1639 * t1587 + t266 * t1566 * t673 / 0.24e2 + 0.5e1 / 0.81e2 * t266 * t267 * t106 * t83 + 0.37233690709212364308e1 * t273 * t103 * t3330 * t205 - t266 * t267 * t70 * t1218 * t1221 / 0.24e2 - 0.83775804095727819694e1 * t683 * t1656 + t266 * t669 * t1635 / 0.16e2 - t266 * t267 * t191 * t506 * t509 / 0.24e2 + 0.25132741228718345908e2 * t1613 * t694; t3937 = t3525 * t85 * M_PI * t9; t3942 = t3518 * t85 * t53 * t1; t3956 = t974 * t240; t3973 = t1690 * t8; t3974 = t1691 * t1694; t3975 = t3974 * t240; t3976 = t3973 * t3975; t3978 = t12 * t450; t3983 = t12 * t351; t3987 = -t1513 * t406 / 0.16e2 - 0.9e1 / 0.32e2 * t3703 * t390 + t38 * t39 * (t3758 + t3818 + t3865 + t3929) / 0.8e1 + 0.9e1 / 0.8e1 * t3937 * t3530 - 0.81e2 / 0.16e2 * t3942 * t3522 - 0.54e2 * t1536 * t362 * t577 * t1157 - 0.27e2 * t1536 * t1537 * t2874 - 0.18e2 * t1536 * t141 * t240 * t3059 + 0.108e3 * t1536 * t3956 * t3045 - 0.108e3 * t1536 * t3956 * t3050 - 0.27e2 * t1536 * t1537 * t2870 - 0.18e2 * t255 * t70 * t1535 * t1538 + 0.54e2 * t1536 * t1537 * t3055 + 0.405e3 * t3976 * t3044 * t9 * t3978 - 0.405e3 * t3976 * t627 * t9 * t3983; t4000 = t1690 * t70 * t1691 * t1694; t4015 = t14 * t626 * t891; t4018 = t58 * t1092; t4019 = t636 * t891; t4023 = t1705 * t304; t4031 = t1384 * t446; t4036 = -0.54e2 * t623 * t626 * t174 * t965 - 0.9e1 / 0.32e2 * t1040 * t1472 - 0.3e1 / 0.8e1 * t460 * t1478 - 0.135e3 * t4000 * t1698 - 0.9e1 / 0.16e2 * t2721 * t598 - 0.9e1 / 0.16e2 * t1040 * t1468 + 0.18e2 * t258 * t646 * t240 * t2976 * t2978 + 0.81e2 / 0.8e1 * t456 * t3573 - 0.3e1 / 0.2e1 * t180 * t4015 + 0.180e3 * t258 * t4018 * t4019 - 0.108e3 * t258 * t1720 * t4023 - 0.36e2 * t633 * t1721 - 0.6e1 * t633 * t1726 + 0.9e1 * t258 * t646 * t4031 * t450; t4070 = t1690 * t1692 * t2650; t4074 = 0.9e1 * t258 * t646 * t1672 * t1010 + 0.3e1 * t258 * t646 * t647 * t2842 + 0.27e2 / 0.32e2 * t2717 * t598 + 0.27e2 / 0.16e2 * t1016 * t1468 + 0.27e2 / 0.32e2 * t1016 * t1472 - 0.3e1 / 0.8e1 * t464 * t1461 - 0.81e2 / 0.16e2 * t1016 * t1484 - 0.3e1 / 0.8e1 * t180 * t3496 - 0.3e1 / 0.8e1 * t180 * t3471 - 0.81e2 / 0.16e2 * t456 * t3554 - t180 * t3475 / 0.8e1 - 0.3e1 / 0.8e1 * t663 * t1149 - 0.3e1 / 0.8e1 * t1057 * t606 - 0.3e1 / 0.4e1 * t464 * t1457 + 0.2025e4 * t4070 * t4019 * t14; t4096 = t1384 * t174; t4113 = -0.6e1 * t1523 * t638 - 0.2e1 * t1523 * t649 + 0.18e2 * t633 * t1707 + 0.9e1 * t633 * t1711 + 0.27e2 / 0.32e2 * t456 * t3501 + 0.27e2 / 0.32e2 * t456 * t3467 + 0.9e1 / 0.32e2 * t456 * t3485 - t1073 * t606 / 0.6e1 + 0.3e1 / 0.8e1 * t3077 * t598 + 0.27e2 / 0.32e2 * t1488 * t1152 + 0.27e2 * t258 * t635 * t4096 * t128 + 0.27e2 * t258 * t635 * t1705 * t351 + 0.9e1 * t258 * t635 * t636 * t965 + 0.945e3 / 0.32e2 * t3008 * t3563 + 0.27e2 / 0.16e2 * t1040 * t1484; t4118 = t621 * t53; t4121 = 0.1e1 / t2649 / t32; t4123 = t254 * t2645 * t8 * t4118 * t4121; t4127 = t278 * t621; t4147 = t13 * t103 * t3282; t4163 = -0.405e3 * t1696 * t4023 * t14 - 0.2835e4 / 0.2e1 * t4123 * t4019 * t595 + 0.135e3 / 0.16e2 * t1089 * t4127 * t1093 - 0.3e1 * t258 * t58 * t140 * t3282 * t174 - t3000 * t251 / 0.16e2 - 0.3e1 * t633 * t1507 + t2996 * t251 / 0.16e2 + 0.3e1 / 0.16e2 * t1057 * t610 + 0.3e1 / 0.16e2 * t464 * t1433 + t180 * t4147 / 0.16e2 + t663 * t1063 / 0.16e2 - 0.1296e4 * t623 * t1558 * t3045 + 0.162e3 * t623 * t626 * t2870 + 0.1296e4 * t623 * t1558 * t3050 + 0.108e3 * t1553 * t1563; t4182 = 0.3e1 * t1255 * t1472 + 0.54e2 * t1271 * t1484 + 0.54e2 * t388 * t3554 - 0.8e1 / 0.3e1 * t1275 * t606 + 0.6e1 * t2625 * t598 - 0.315e3 * t2648 * t3563 - 0.12e2 * t398 * t1478 - 0.12e2 * t155 * t3569 - 0.108e3 * t388 * t3573 - 0.4e1 / 0.3e1 * t38 * t39 * (t3618 + t3663 + t3699 + t3987 + t4036 + t4074 + t4113 + t4163) + 0.2e1 / 0.3e1 * t2609 * t251 + 0.4e1 * t1437 * t402 - 0.8e1 / 0.9e1 * t1263 * t610 - 0.4e1 / 0.3e1 * t1425 * t402 - 0.8e1 / 0.9e1 * t2613 * t251 - 0.4e1 * t614 * t1081; t4184 = t386 * t712 * t53; t4197 = t1088 * t160; t4213 = t153 * t1734 * M_PI; t4217 = t153 * t1737 * M_PI; t4223 = t153 * t1740 * M_PI; t4226 = -0.9e1 * t4184 * t390 - 0.2e1 * t1281 * t610 - 0.2e1 / 0.3e1 * t614 * t1063 - 0.2e1 * t398 * t1433 - 0.2e1 / 0.3e1 * t2605 * t251 - 0.2e1 / 0.3e1 * t155 * t4147 + 0.90e2 * t4197 * t1450 + 0.1080e4 * t1448 * t3598 - 0.4e1 / 0.3e1 * t394 * t1461 + 0.4e1 * t394 * t1478 + 0.16e2 * t155 * t4015 - 0.4e1 * t2668 * t598 - 0.18e2 * t1255 * t1484 - 0.2e1 * t4213 * t157 - 0.8e1 / 0.9e1 * t4217 * t157 - 0.2e1 * t1437 * t406 + 0.4e1 / 0.3e1 * t4223 * t157; t4229 = my_piecewise3(t42, t3386 + t3445, t3490 + t3547 + t4182 + t4226); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[0] = -0.3e1 / 0.8e1 * t101 * t221 * t3282 - 0.9e1 / 0.8e1 * t101 * t217 * t1384 - 0.9e1 / 0.8e1 * t101 * t521 * t577 - 0.3e1 * t532 * t1750 - t1300 * t721 / 0.2e1 - 0.3e1 / 0.2e1 * t532 * t1747 + t3299 * t289 / 0.9e1 - t1300 * t718 / 0.2e1 - 0.9e1 / 0.8e1 * t101 * t1746 * t128 + t3299 * t291 / 0.9e1 - 0.3e1 / 0.8e1 * t101 * t1286 * t240 - 0.3e1 / 0.2e1 * t532 * t1766 - 0.3e1 * t532 * t1763 - t1300 * t729 / 0.2e1 - 0.3e1 / 0.2e1 * t532 * t1760 - t1300 * t726 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t288 * t965 - 0.9e1 / 0.8e1 * t101 * t717 * t351 - 0.3e1 / 0.2e1 * t532 * t1753 - 0.3e1 / 0.8e1 * t101 * t6 * t4229 * t32; t4234 = t3436 * t577; t4255 = t572 * t572; t4283 = 0.29866666666666666666e-1 * t555 * t3232 * t1802 - 0.19911111111111111110e-1 * t555 * t1346 * t1806 - 0.55999999999999999998e-2 * t555 * t1353 * t740 * t346 + 0.37333333333333333332e-2 * t14 * t19 * t324 * t4255 + 0.37333333333333333332e-2 * t555 * t556 * t235 * t1379 - 0.91259259259259259260e-2 * t14 * t316 * t760 - 0.99555555555555555554e-2 * t555 * t1346 * t1813 + 0.37333333333333333332e-2 * t555 * t556 * t1829 * t123 + 0.18666666666666666666e-2 * t555 * t556 * t759 * t346 - 0.11200000000000000000e-1 * t14 * t1355 + 0.18251851851851851851e-1 * t14 * t316 * t741; t4333 = 0.99555555555555555552e-2 * t14 * t1333 * t572 - 0.18666666666666666666e-2 * t14 * t547 * t1379 + 0.22399999999999999999e-1 * t555 * t3236 * t740 * t325 - 0.22400000000000000000e-1 * t555 * t1353 * t557 * t572 - 0.55999999999999999998e-2 * t555 * t1353 * t759 * t325 - 0.18251851851851851851e-1 * t14 * t3221 * t235 - 0.19911111111111111110e-1 * t14 * t1347 + 0.74666666666666666664e-2 * t14 * t1359 + 0.37333333333333333332e-2 * t14 * t1363 + 0.49777777777777777778e-2 * t14 * t107 * t1830 - 0.93333333333333333332e-3 * t14 * t19 * t112 * (-0.19600000000000000000e-1 * t746 * t331 * t24 + 0.19600000000000000000e-1 * t750 * t315 * t120 - 0.27720000000000000000e0 * t1371 + 0.39480000000000000000e0 * t1376 * sigma[0] - 0.16800000000000000000e0 / t16 / t2483 * t2495 * t337); t4334 = t4283 + t4333; t4379 = t22 * t732; t4383 = -0.32e2 / 0.3e1 * t3441 * t1575 * t4234 + 0.768e3 / 0.5e1 * t3435 * t2007 * t4234 + 0.128e3 / 0.15e2 * t138 * t141 * t8 * t1834 + 0.16e2 / 0.5e1 * t138 * t141 * t21 * t4334 - 0.96e2 / 0.5e1 * t138 * t362 * t245 * t1384 + 0.16e2 / 0.9e1 * t102 * t303 * t241 * t1384 + 0.16e2 / 0.9e1 * t102 * t303 * t1835 * t128 + 0.8e1 / 0.9e1 * t102 * t303 * t765 * t351 - 0.8e1 / 0.3e1 * t102 * t890 * t733 * t351 + 0.64e2 / 0.27e2 * t102 * t303 * t539 * t577 - 0.96e2 / 0.5e1 * t138 * t362 * t1859 * t128 - 0.48e2 / 0.5e1 * t138 * t362 * t773 * t351 + 0.192e3 / 0.5e1 * t138 * t974 * t769 * t351 - 0.256e3 / 0.5e1 * t138 * t362 * t586 * t577 - 0.16e2 / 0.81e2 * t102 * t303 * t4379; t4384 = t577 * t577; t4385 = t16 * t4384; t4389 = t21 * t4384; t4393 = t22 * t764; t4397 = t39 * t1834; t4405 = t70 * t732; t4409 = t16 * t4334; t4445 = 0.16e2 / 0.9e1 * t102 * t303 * t4385 - 0.96e2 / 0.5e1 * t138 * t362 * t4389 + 0.8e1 / 0.81e2 * t102 * t103 * t4393 - 0.16e2 / 0.27e2 * t102 * t103 * t4397 + 0.64e2 / 0.45e2 * t138 * t141 * t70 * t764 - 0.64e2 / 0.15e2 * t138 * t362 * t4405 - 0.4e1 / 0.9e1 * t102 * t103 * t4409 + 0.192e3 / 0.5e1 * t138 * t974 * t773 * t304 - 0.128e3 / 0.5e1 * t138 * t362 * t1855 * t128 - 0.192e3 * t138 * t2539 * t769 * t304 + 0.512e3 / 0.5e1 * t138 * t974 * t1843 * t128 - 0.8e1 / 0.3e1 * t102 * t890 * t765 * t304 + 0.32e2 / 0.27e2 * t102 * t303 * t1787 * t128 + 0.32e2 / 0.3e1 * t102 * t2570 * t733 * t304 - 0.32e2 / 0.9e1 * t102 * t890 * t1775 * t128; t4448 = t153 * t2155 * M_PI; t4456 = t14 * t2051 * t128; t4462 = t14 * t259 * t1384; t4469 = t595 * t361 * t1834 * t128; t4473 = t386 * t854 * t53; t4477 = t153 * t1924 * M_PI; t4484 = t14 * t803 * t351; t4487 = t1103 * t4234; t4490 = t3529 * t4234; t4493 = t1720 * t4234; t4499 = t595 * t1871 * t351; t4504 = -0.4e1 / 0.3e1 * t4448 * t157 - 0.2e1 / 0.3e1 * t1921 * t406 + 0.8e1 / 0.3e1 * t398 * t1913 + 0.8e1 / 0.3e1 * t155 * t4456 - 0.8e1 / 0.9e1 * t394 * t1913 + 0.8e1 / 0.3e1 * t155 * t4462 - 0.6e1 * t1271 * t1905 - 0.6e1 * t388 * t4469 - 0.3e1 * t4473 * t390 + 0.4e1 / 0.9e1 * t4477 * t157 + 0.8e1 / 0.9e1 * t38 * t22 * t2154 + 0.4e1 / 0.3e1 * t155 * t4484 - 0.360e3 * t1448 * t4487 - 0.16e2 * t3528 * t4490 + 0.72e2 * t3521 * t4493 - 0.12e2 * t1271 * t1877 + 0.18e2 * t388 * t4499 - 0.12e2 * t1255 * t1873; t4509 = t2650 * t732 * t304 * t14; t4523 = t595 * t596 * t1384; t4535 = t13 * t103 * t4334; t4543 = t13 * t303 * t4384; t4550 = 0.4e1 * t1255 * t1877 - 0.315e3 * t2648 * t4509 - 0.12e2 * t4184 * t598 + 0.36e2 * t1271 * t1873 - 0.16e2 / 0.9e1 * t1425 * t606 - 0.12e2 * t1445 * t1468 - 0.6e1 * t1445 * t1472 - 0.6e1 * t388 * t4523 + 0.4e1 / 0.9e1 * t1275 * t789 - 0.4e1 / 0.3e1 * t614 * t1433 - 0.8e1 / 0.9e1 * t1275 * t785 - 0.2e1 / 0.3e1 * t1281 * t789 - 0.2e1 / 0.3e1 * t155 * t4535 - 0.4e1 / 0.3e1 * t398 * t1917 + 0.4e1 / 0.9e1 * t394 * t1917 + 0.8e1 / 0.3e1 * t155 * t4543 - 0.8e1 / 0.27e2 * t1263 * t789 + 0.16e2 / 0.27e2 * t1263 * t785; t4558 = t1103 * t764 * t304; t4562 = t1103 * t732 * t351; t4609 = t361 * t205; t4617 = t1221 * t128; t4622 = 0.20000000000000000000e1 * t828 * t2807 + 0.62831853071795864770e1 * t2 * t4384 * t832 - t266 * t6 * t4334 * t268 / 0.48e2 + t266 * t1930 * t673 / 0.36e2 - 0.5e1 / 0.216e3 * t266 * t824 * t1598 - 0.80000000000000000000e1 * t259 * t1647 - 0.40000000000000000000e1 * t1940 * t1626 + 0.40000000000000000000e1 * t1943 * t1586 + 0.62831853071795864770e1 * t831 * t60 * t1221 * t506 - 0.62831853071795864770e1 * t831 * t1953 * t351 - M_PI * t831 * t1957 * t503 + 0.62831853071795864770e1 * t1949 * t832 * t1384 + 0.12566370614359172954e2 * t831 * t140 * t1586 + 0.20000000000000000000e1 * t1940 * t3759 - 0.20000000000000000000e1 * t1943 * t205 * t351 - 0.10000000000000000000e1 * t828 * t3750 + 0.18849555921538759431e2 * t831 * t4609 * t304 + 0.60000000000000000000e1 * t798 * t205 * t304 + 0.75798561800366274196e4 * t2006 * t2007 * t732 * t4617 * t203; t4652 = t1092 * t21; t4699 = 0.50265482457436691816e2 * t686 * t687 * t764 * t1586 + 0.10053096491487338363e3 * t686 * t1584 * t1626 + 0.30159289474462015090e3 * t686 * t3885 * t1647 - 0.15079644737231007545e3 * t686 * t1575 * t732 * t1586 - 0.37899280900183137098e4 * t2006 * t2016 * t240 * t3769 * t203 - 0.75798561800366274196e4 * t2006 * t2007 * t240 * t1585 * t577 + 0.28424460675137352823e4 * t2006 * t2016 * t732 * t2817 * t506 + 0.94748202250457842745e4 * t2006 * t4652 * t1977 * t304 - 0.50532374533577516130e4 * t2006 * t625 * t8 * t2008 + 0.75398223686155037724e2 * t686 * t1575 * t1984 * t304 - 0.33510321638291127878e2 * t686 * t1580 * t1985 + 0.25132741228718345908e2 * t686 * t701 * t764 * t1221 * t506 - 0.50265482457436691816e2 * t686 * t687 * t2021 * t506 - 0.30159289474462015090e3 * t686 * t3717 * t1963 * t304 + 0.10053096491487338363e3 * t686 * t3722 * t1964 + 0.33510321638291127878e2 * t686 * t1580 * t1978 - 0.50265482457436691816e2 * t686 * t687 * t688 * t1384 + 0.25132741228718345908e2 * t686 * t687 * t1977 * t503 - 0.50265482457436691816e2 * t1639 * t1986 - 0.25132741228718345908e2 * t1639 * t1999; t4719 = t361 * t8; t4738 = t2002 * t595; t4756 = t1834 * t509; t4761 = t1949 * t140; t4764 = -0.50265482457436691816e2 * t686 * t687 * t1834 * t205 * t128 + 0.15079644737231007545e3 * t1639 * t1965 - 0.10053096491487338363e3 * t1639 * t1974 + 0.50265482457436691816e2 * t1639 * t1979 + 0.75398223686155037724e2 * t686 * t1575 * t1963 * t351 - 0.67020643276582255755e2 * t686 * t1580 * t1973 + 0.25266187266788758066e4 * t2006 * t4719 * t2017 - 0.25266187266788758066e4 * t2006 * t4719 * t2022 + 0.94748202250457842744e3 * t2006 * t2016 * t702 * t1384 - 0.94748202250457842744e3 * t2006 * t2016 * t2021 * t503 - 0.12566370614359172954e2 * t686 * t701 * t1997 * t503 - 0.37899280900183137098e4 * t4738 * t2009 + 0.18949640450091568549e4 * t4738 * t2018 - 0.18949640450091568549e4 * t4738 * t2023 - 0.18949640450091568549e4 * t2006 * t2007 * t1977 * t351 - 0.25132741228718345908e2 * t686 * t687 * t1984 * t351 - 0.16755160819145563939e2 * t686 * t1659 * t1998 - 0.25132741228718345908e2 * t686 * t701 * t4756 * t203 - 0.25132741228718345908e2 * t4761 * t1647; t4765 = t1949 * t60; t4827 = -0.12566370614359172954e2 * t4765 * t1626 + 0.20000000000000000000e1 * t4384 * t60 * t205 + 0.21055156055657298388e3 * t844 * t362 * t4405 * t509 + 0.94748202250457842744e3 * t844 * t362 * t4389 * t509 + 0.12633093633394379033e4 * t2003 * t2013 - 0.27925268031909273231e1 * t273 * t103 * t4393 * t205 - 0.50265482457436691816e2 * t273 * t303 * t4385 * t205 + 0.16755160819145563939e2 * t683 * t1990 - 0.33510321638291127878e2 * t683 * t1969 + 0.55850536063818546463e1 * t273 * t303 * t4379 * t205 + t266 * t824 * t1635 / 0.48e2 + 0.47374101125228921372e3 * t489 * t52 * t137 * t846 + 0.16755160819145563939e2 * t273 * t103 * t4397 * t205 + 0.12566370614359172954e2 * t273 * t103 * t4409 * t205 + 0.12566370614359172954e2 * t1613 * t840 + 0.25132741228718345908e2 * t683 * t1994 - 0.25132741228718345908e2 * t1613 * t836 - t266 * t1930 * t678 / 0.24e2 + t266 * t824 * t1603 / 0.36e2 - t266 * t824 * t1608 / 0.48e2; t4839 = t1092 * t764; t4850 = t625 * t1834; t4856 = t1088 * t279; t4863 = t2128 * rho[0]; t4869 = t3974 * t732; t4891 = t38 * t39 * (t4622 + t4699 + t4764 + t4827) / 0.8e1 - 0.288e3 * t811 * t793 * t4384 * t446 - 0.36e2 * t1553 * t2078 + 0.432e3 * t623 * t4839 * t1559 - 0.108e3 * t792 * t793 * t4384 * t174 + 0.12e2 * t620 * t191 * t795 - 0.108e3 * t623 * t4850 * t627 + 0.135e3 / 0.16e2 * t1541 * t4558 + 0.135e3 / 0.8e1 * t4856 * t1450 + 0.135e3 / 0.8e1 * t3591 * t1865 + 0.135e3 / 0.16e2 * t1541 * t4562 - 0.864e3 * t4863 * t3975 * t1672 * t9 * t2133 + 0.864e3 * t4863 * t4869 * t2090 * t9 * t2133 - 0.540e3 * t3976 * t1705 * t9 * t2133 + 0.270e3 * t3973 * t4869 * t2072 * t9 * t2133 - 0.144e3 * t1536 * t3956 * t1706 + 0.72e2 * t1536 * t974 * t732 * t1157; t4907 = t764 * t1032; t4912 = t732 * t1032; t4917 = t2118 * t304; t4931 = t2907 * t732 * t304; t4938 = t1694 * t732; t4948 = -0.36e2 * t1536 * t1537 * t1673 + 0.3e1 / 0.2e1 * t3937 * t4490 - 0.27e2 / 0.4e1 * t3942 * t4493 - 0.27e2 / 0.8e1 * t1016 * t1873 - 0.27e2 / 0.16e2 * t456 * t4499 + 0.9e1 / 0.8e1 * t1016 * t1877 + 0.9e1 / 0.16e2 * t456 * t4523 - 0.6e1 * t258 * t646 * t4907 * t1034 + 0.18e2 * t258 * t635 * t4912 * t1034 - 0.36e2 * t258 * t1720 * t4917 + 0.54e2 * t623 * t1871 * t446 * t1010 - 0.108e3 * t623 * t626 * t4096 - 0.45e2 / 0.8e1 * t3594 * t1865 - 0.405e3 / 0.4e1 * t1541 * t4931 - 0.864e3 * t2082 * t1871 * t2976 * t1034 - 0.4320e4 * t2082 * t4938 * t3044 - 0.108e3 * t623 * t1871 * t3054 - 0.3240e4 * t623 * t4938 * t1559; t4959 = t595 * t2077 * t304; t4967 = t595 * t1903 * t351; t4973 = t14 * t798 * t351; t4992 = -0.27e2 / 0.8e1 * t1488 * t1484 - t464 * t1913 / 0.4e1 - t180 * t4456 / 0.4e1 - t180 * t4484 / 0.8e1 - 0.27e2 / 0.16e2 * t456 * t4959 + 0.9e1 / 0.16e2 * t1016 * t1905 + 0.9e1 / 0.16e2 * t456 * t4469 + 0.9e1 / 0.32e2 * t456 * t4967 + 0.3e1 / 0.4e1 * t464 * t1896 + 0.3e1 / 0.8e1 * t180 * t4973 + t1513 * t606 / 0.6e1 - 0.3e1 / 0.8e1 * t3703 * t598 - t1500 * t606 / 0.2e1 - t663 * t1457 / 0.2e1 - t663 * t1461 / 0.4e1 - t180 * t4462 / 0.4e1 - 0.36e2 * t258 * t1720 * t794 * t351; t5021 = t809 * t1087 * rho[0] * t4118 * t4121; t5023 = t58 * t304; t5038 = t2128 * t2129 * t2650; t5045 = t794 * t304; t5053 = 0.18e2 * t258 * t635 * t636 * t1384 - 0.9e1 * t258 * t635 * t812 * t1010 + 0.9e1 / 0.8e1 * t3684 * t598 + 0.9e1 / 0.8e1 * t1488 * t1468 + 0.9e1 / 0.16e2 * t1488 * t1472 - t460 * t1896 / 0.4e1 + t460 * t1900 / 0.6e1 + 0.3e1 * t258 * t646 * t2123 * t1010 - 0.216e3 * t2131 * t2132 * t3983 - 0.1620e4 * t5021 * t812 * t1 * t5023 - 0.135e3 * t1696 * t2137 * t3983 - 0.2835e4 / 0.2e1 * t4123 * t794 * t1 * t5023 - 0.135e3 * t1696 * t4917 * t14 + 0.2592e4 * t5038 * t812 * t304 * t14 - 0.90e2 * t4000 * t2138 + 0.2025e4 * t4070 * t5045 * t14 + 0.945e3 / 0.32e2 * t3008 * t4509 + 0.6e1 * t633 * t2120; t5058 = t1834 * t174; t5073 = t14 * t1871 * t304; t5083 = t595 * t2083 * t304; t5091 = t14 * t1903 * t304; t5106 = 0.2e1 * t633 * t2125 + 0.18e2 * t258 * t635 * t5058 * t128 + 0.9e1 * t258 * t635 * t2118 * t351 - t464 * t1900 / 0.2e1 - t38 * t22 * t2027 / 0.12e2 - 0.3e1 / 0.2e1 * t180 * t5073 - 0.24e2 * t633 * t2106 + 0.3e1 / 0.4e1 * t663 * t1478 + 0.9e1 / 0.8e1 * t1040 * t1873 + 0.81e2 / 0.8e1 * t456 * t5083 - 0.3e1 / 0.8e1 * t1040 * t1877 + t460 * t1913 / 0.12e2 + 0.3e1 / 0.8e1 * t180 * t5091 - 0.3e1 / 0.16e2 * t1040 * t1905 + 0.6e1 * t258 * t646 * t1834 * t446 * t450 + 0.180e3 * t258 * t4018 * t5045 + 0.12e2 * t633 * t2111; t5148 = t137 * t362 * t4384; t5159 = -0.6e1 * t633 * t2115 + t38 * t114 * t849 / 0.18e2 + 0.135e3 / 0.4e1 * t1541 * t4487 + 0.108e3 * t623 * t2077 * t1157 + 0.1728e4 * t623 * t1558 * t1706 - 0.864e3 * t623 * t2083 * t1157 + 0.216e3 * t623 * t626 * t1673 + 0.2880e4 * t2082 * t1558 * t1156 * t577 - 0.2880e4 * t2082 * t2083 * t1032 * t128 * t450 + 0.1152e4 * t2082 * t626 * t3641 * t450 - 0.18e2 * t1536 * t362 * t764 * t1157 - t1073 * t785 / 0.18e2 + t3680 * t251 / 0.18e2 + 0.9e1 / 0.16e2 * t456 * t5148 + t1500 * t610 / 0.4e1 + t663 * t1433 / 0.8e1 - t1057 * t785 / 0.8e1 - t2040 * t402 / 0.8e1; t5192 = t153 * t2028 * M_PI; t5205 = t153 * t1927 * M_PI; t5208 = t3077 * t779 / 0.8e1 - 0.2e1 * t1523 * t800 + 0.2e1 / 0.3e1 * t1523 * t805 - t180 * t4543 / 0.4e1 + t1073 * t789 / 0.36e2 + 0.18e2 * t258 * t58 * t361 * t4384 * t174 + t3655 * t251 / 0.8e1 + t1057 * t789 / 0.16e2 + t464 * t1917 / 0.8e1 + t180 * t4535 / 0.16e2 - 0.3e1 * t258 * t58 * t140 * t4334 * t174 + 0.9e1 / 0.32e2 * t2717 * t779 + t5192 * t157 / 0.8e1 - 0.432e3 * t2128 * t4869 * t446 * t9 * t2133 - t3676 * t251 / 0.12e2 - t1513 * t610 / 0.12e2 - t5205 * t157 / 0.24e2; t5212 = t386 * t850 * t53; t5253 = t2040 * t406 / 0.16e2 + 0.9e1 / 0.32e2 * t5212 * t390 - t460 * t1917 / 0.24e2 - 0.2e1 * t633 * t2053 - 0.3e1 / 0.16e2 * t2721 * t779 + t1020 * t785 / 0.12e2 - t1020 * t789 / 0.24e2 + 0.1440e4 * t2031 * t2084 - 0.576e3 * t2031 * t2087 + 0.432e3 * t623 * t2083 * t1548 + 0.288e3 * t1553 * t2094 - 0.72e2 * t1553 * t2069 + 0.36e2 * t1553 * t2073 + 0.288e3 * t2082 * t1871 * t1032 * t1010 - 0.288e3 * t2082 * t626 * t4031 + 0.720e3 * t2082 * t2083 * t2869 - 0.54e2 * t623 * t2077 * t1548 + 0.576e3 * t2031 * t2091; t5260 = t1088 * t283; t5287 = -0.16e2 / 0.27e2 * t38 * t114 * t853 - 0.180e3 * t3511 * t1865 - 0.90e2 * t1448 * t4558 - 0.90e2 * t1448 * t4562 - 0.4e1 / 0.3e1 * t38 * t39 * (t4891 + t4948 + t4992 + t5053 + t5106 + t5159 + t5208 + t5253) - 0.180e3 * t5260 * t1450 - 0.4e1 * t155 * t5091 + 0.2e1 * t1255 * t1905 + 0.18e2 * t388 * t4959 + 0.16e2 * t155 * t5073 - 0.8e1 * t614 * t1478 + 0.4e1 * t3453 * t598 + 0.36e2 * t1445 * t1484 - 0.108e3 * t388 * t5083 + 0.4e1 / 0.3e1 * t1921 * t402 - 0.3e1 * t2672 * t779 + 0.8e1 / 0.9e1 * t4223 * t251 + 0.2e1 * t2625 * t779; t5324 = -0.4e1 / 0.3e1 * t4213 * t251 - 0.6e1 * t388 * t5148 - 0.4e1 / 0.3e1 * t2668 * t779 + 0.8e1 / 0.9e1 * t1425 * t610 + 0.1080e4 * t1448 * t4931 + 0.60e2 * t4197 * t1865 + 0.16e2 / 0.3e1 * t1437 * t606 - 0.3e1 * t388 * t4967 - 0.8e1 * t398 * t1896 + 0.16e2 / 0.3e1 * t398 * t1900 - 0.4e1 * t155 * t4973 + 0.8e1 / 0.3e1 * t394 * t1896 - 0.16e2 / 0.9e1 * t394 * t1900 + 0.16e2 / 0.3e1 * t614 * t1457 + 0.8e1 / 0.3e1 * t614 * t1461 - 0.16e2 / 0.27e2 * t4217 * t251 - 0.8e1 / 0.3e1 * t1437 * t610 + 0.4e1 / 0.3e1 * t1281 * t785; t5327 = my_piecewise3(t42, t4383 + t4445, t4504 + t4550 + t5287 + t5324); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[0] = -0.3e1 / 0.8e1 * t101 * t6 * t5327 * t32 - t532 * t2165 - 0.3e1 / 0.8e1 * t101 * t859 * t351 - 0.2e1 * t532 * t2169 - 0.3e1 / 0.8e1 * t101 * t221 * t4334 - t1300 * t863 / 0.3e1 - 0.3e1 / 0.4e1 * t101 * t217 * t1834 - 0.3e1 / 0.8e1 * t101 * t521 * t764 - t532 * t2180 - 0.3e1 / 0.4e1 * t101 * t288 * t1384 - t532 * t2177 - 0.3e1 / 0.4e1 * t101 * t2161 * t128 - t532 * t2162 - t1300 * t860 / 0.6e1 - t1300 * t866 / 0.6e1 - 0.3e1 / 0.2e1 * t101 * t717 * t577 - 0.2e1 * t532 * t2172 - 0.3e1 / 0.4e1 * t101 * t1746 * t240; t5376 = t39 * t2183; t5385 = t240 * t764 * t128; t5405 = t39 * t2227; t5477 = -0.14933333333333333333e-1 * t14 * t1346 * t740 - 0.16799999999999999999e-1 * t14 * t1803 + 0.11200000000000000000e-1 * t14 * t1807 + 0.74666666666666666664e-2 * t14 * t1333 * t759 + 0.55999999999999999998e-2 * t14 * t1814 - 0.27999999999999999999e-2 * t14 * t547 * t1829 + 0.14933333333333333333e-1 * t14 * t107 * t2199 + 0.22399999999999999999e-1 * t555 * t3236 * t2198 * t123 - 0.16799999999999999999e-1 * t555 * t1353 * t740 * t572 - 0.14933333333333333333e-1 * t555 * t1346 * t2203 - 0.16799999999999999999e-1 * t555 * t1353 * t2203 * t123 + 0.55999999999999999998e-2 * t555 * t556 * t572 * t759 + 0.55999999999999999998e-2 * t555 * t556 * t235 * t1829 + 0.24888888888888888889e-2 * t14 * t107 * t2223 + 0.18666666666666666666e-2 * t555 * t556 * t2222 * t123 - 0.93333333333333333332e-3 * t14 * t19 * t112 * (-0.12600000000000000000e-1 * t2208 * t114 * t24 + 0.12600000000000000000e-1 * t2212 * t106 * t120 + 0.4200000000000000000e-2 * t750 * t568 * t343 - 0.88200000000000000000e-1 * t1826 + 0.63000000000000000000e-1 / t16 / t952 * t2495 * sigma[0]); t5478 = t16 * t5477; t5486 = t8 * t2183; t5521 = 0.32e2 / 0.3e1 * t102 * t2570 * t2184 * t128 - 0.16e2 / 0.9e1 * t102 * t890 * t5376 - 0.8e1 * t102 * t890 * t733 * t577 - 0.8e1 * t3441 * t1575 * t5385 + 0.16e2 / 0.9e1 * t102 * t303 * t539 * t764 + 0.8e1 / 0.3e1 * t102 * t303 * t578 * t764 + 0.8e1 / 0.3e1 * t102 * t303 * t241 * t1834 + 0.8e1 / 0.9e1 * t102 * t303 * t2228 * t128 - 0.8e1 / 0.27e2 * t102 * t103 * t5405 - 0.4e1 / 0.9e1 * t102 * t103 * t5478 - 0.192e3 * t138 * t2539 * t2232 * t128 + 0.256e3 / 0.5e1 * t138 * t974 * t5486 + 0.576e3 / 0.5e1 * t138 * t974 * t769 * t577 + 0.576e3 / 0.5e1 * t3435 * t2007 * t5385 - 0.192e3 / 0.5e1 * t138 * t362 * t586 * t764 - 0.144e3 / 0.5e1 * t138 * t362 * t590 * t764 - 0.144e3 / 0.5e1 * t138 * t362 * t245 * t1834 - 0.48e2 / 0.5e1 * t138 * t362 * t2240 * t128 + 0.64e2 / 0.15e2 * t138 * t141 * t8 * t2227 + 0.16e2 / 0.5e1 * t138 * t141 * t21 * t5477; t5534 = t625 * t2227; t5581 = t2357 * t1694; t5593 = -0.37899280900183137097e4 * t844 * t974 * t5486 * t509 + 0.83775804095727819693e1 * t273 * t103 * t5405 * t205 + 0.50265482457436691816e2 * t273 * t890 * t5376 * t205 + 0.12566370614359172954e2 * t683 * t2341 + 0.16755160819145563939e2 * t2317 * t13 * t5 * t39 + t266 * t2305 * t673 / 0.72e2 + 0.26318945069571622985e2 * t2349 * t2350 * t3722 * t509 - t266 * t6 * t5477 * t268 / 0.48e2 + 0.13465832744540496925e7 * t2358 * t15 * t732 * t3769 - 0.13465832744540496925e7 * t2358 * t2359 * t2817 * t203 - 0.26931665489080993849e7 * t5581 * t2359 * t4617 + 0.12566370614359172954e2 * t273 * t103 * t5478 * t205 + 0.75398223686155037724e2 * t683 * t2329 - 0.28424460675137352823e4 * t2003 * t2337; t5617 = t2183 * t509; t5630 = t2348 * t14; t5654 = -t266 * t2305 * t678 / 0.48e2 + 0.75398223686155037724e2 * t798 * t2316 * t13 * t2318 * t577 - 0.10053096491487338363e3 * t2396 * t2316 * t13 * t2318 * t128 - 0.50265482457436691816e2 * t2315 * t1221 * t44 * t13 * t2318 * t203 + 0.22619467105846511317e3 * t686 * t1575 * t1963 * t577 - 0.75398223686155037724e2 * t686 * t1575 * t5617 * t203 - 0.75398223686155037724e2 * t1639 * t2333 - 0.50265482457436691816e2 * t686 * t1580 * t2332 + 0.18949640450091568549e4 * t2006 * t4719 * t2344 + 0.11843525281307230343e3 * t5630 * t733 * t361 * t509 * t577 - 0.15791367041742973791e3 * t5630 * t2184 * t625 * t509 * t128 - 0.78956835208714868954e2 * t5630 * t2184 * t361 * t1221 * t203 - 0.75398223686155037724e2 * t686 * t687 * t1646 * t764 - 0.75398223686155037724e2 * t686 * t687 * t688 * t1834; t5674 = t2227 * t509; t5707 = 0.14212230337568676412e5 * t2006 * t4652 * t5617 * t128 - 0.85273382025412058469e4 * t2006 * t2007 * t1977 * t577 + 0.56848921350274705646e4 * t2006 * t2007 * t2183 * t1221 * t203 - 0.25132741228718345908e2 * t686 * t687 * t2227 * t205 * t128 - 0.12566370614359172954e2 * t686 * t701 * t5674 * t203 + 0.14212230337568676412e4 * t4738 * t2345 + 0.14212230337568676412e4 * t2006 * t2016 * t4756 * t240 + 0.14212230337568676412e4 * t2006 * t2016 * t1997 * t577 - 0.30159289474462015090e3 * t686 * t3717 * t2183 * t205 * t128 + 0.30000000000000000000e1 * t1834 * t60 * t688 + 0.30000000000000000000e1 * t2309 * t1646 - 0.60000000000000000000e1 * t1943 * t1646 - 0.94247779607693797155e1 * t4765 * t1998 + 0.44886109148468323082e6 * t196 * t2356 * t1092 * t2360; t5754 = 0.60000000000000000000e1 * t2315 * t1944 + 0.20000000000000000000e1 * t2312 * t1215 + 0.22619467105846511317e3 * t686 * t3885 * t1985 + 0.75398223686155037724e2 * t686 * t1584 * t1998 - 0.56848921350274705648e4 * t2006 * t2007 * t764 * t702 * t128 - 0.28424460675137352824e4 * t2006 * t2016 * t764 * t1570 * t203 + 0.94247779607693797155e1 * t2 * t577 * t2322 + 0.94247779607693797155e1 * t1949 * t832 * t1834 - 0.37699111843077518862e2 * t831 * t1953 * t577 + 0.37699111843077518862e2 * t2325 * t4609 * t128 + 0.12566370614359172954e2 * t2325 * t140 * t509 * t203 - 0.60000000000000000000e1 * t803 * t689 - 0.30000000000000000000e1 * t2309 * t703 + 0.89772218296936646164e6 * t2358 * rho[0] * t2183 * t1221 - 0.18849555921538759431e2 * t4761 * t1985; t5771 = 0.144e3 * t2149 * t2298 - 0.45e2 / 0.16e2 * t2693 * t2287 - 0.2304e4 * t2082 * t2245 * t2090 - 0.432e3 * t2082 * t4850 * t647 + 0.405e3 / 0.16e2 * t4856 * t1865 - 0.54e2 * t623 * t5534 * t627 - 0.162e3 * t623 * t626 * t5058 - 0.162e3 * t623 * t1544 * t2118 + t38 * t39 * (t5593 + t5654 + t5707 + t5754) / 0.8e1 + 0.135e3 / 0.16e2 * t1089 * t2829 * t2245 - 0.432e3 * t2031 * t2294 - 0.648e3 * t4863 * t3974 * t764 * t647 * t9 * t2133; t5776 = t3529 * t5385; t5779 = t1720 * t5385; t5785 = t1103 * t732 * t577; t5788 = t1694 * t2183; t5796 = t2907 * t2183 * t128; t5813 = t1103 * t5385; t5816 = -0.405e3 * t3976 * t2118 * t9 * t2133 + 0.9e1 / 0.8e1 * t3937 * t5776 - 0.81e2 / 0.16e2 * t3942 * t5779 - 0.54e2 * t1553 * t2301 + 0.405e3 / 0.16e2 * t1541 * t5785 - 0.6912e4 * t2082 * t5788 * t1156 + 0.3456e4 * t2082 * t2083 * t1672 - 0.405e3 / 0.4e1 * t1541 * t5796 - t38 * t22 * t2363 / 0.24e2 + 0.1152e4 * t2031 * t2245 * t446 + 0.2160e4 * t2082 * t4839 * t647 * t128 + 0.864e3 * t2082 * t2077 * t1724 * t450 + 0.405e3 / 0.16e2 * t1541 * t5813; t5850 = 0.1296e4 * t623 * t1558 * t2119 + 0.162e3 * t623 * t626 * t2124 - 0.432e3 * t2082 * t2077 * t1672 - 0.3240e4 * t623 * t5788 * t627 + 0.1296e4 * t623 * t2083 * t1705 - 0.432e3 * t623 * t2245 * t2072 - t633 * t2381 - 0.1920e4 * t2386 * t16 * t1691 * t1694 * t2391 - t1513 * t789 / 0.16e2 - 0.45e2 * t4000 * t2373 - t460 * t2274 / 0.48e2 - t5205 * t251 / 0.16e2; t5873 = t153 * t2364 * M_PI; t5879 = t13 * t103 * t5477; t5882 = -0.3e1 / 0.8e1 * t1500 * t785 + t1513 * t785 / 0.8e1 - t460 * t2266 / 0.8e1 + 0.9e1 / 0.16e2 * t1040 * t2252 - 0.9e1 / 0.32e2 * t3703 * t779 - 0.12e2 * t633 * t2398 + 0.3e1 / 0.16e2 * t5192 * t251 + 0.3e1 / 0.8e1 * t464 * t2266 - 0.27e2 / 0.16e2 * t1016 * t2252 - 0.432e3 * t2128 * t3974 * t2376 + t5873 * t157 / 0.16e2 + t464 * t2274 / 0.16e2 + t180 * t5879 / 0.16e2; t5908 = t2227 * t174; t5922 = 0.3e1 / 0.16e2 * t1500 * t789 + 0.3e1 / 0.16e2 * t663 * t1917 - 0.3e1 * t258 * t58 * t140 * t5477 * t174 + 0.27e2 / 0.32e2 * t3684 * t779 + 0.3e1 / 0.16e2 * t2040 * t610 - 0.108e3 * t1536 * t3956 * t2119 - 0.27e2 * t1536 * t1537 * t2124 + 0.2025e4 * t4070 * t2297 * t9 * t2133 + 0.9e1 * t258 * t635 * t5908 * t128 + 0.3e1 * t258 * t646 * t2227 * t446 * t450 + 0.27e2 / 0.32e2 * t5212 * t598 - 0.3e1 / 0.8e1 * t663 * t1913; t5925 = t12 * t577; t5929 = t2290 * t9; t5934 = t58 * t128; t5939 = t14 * t2379 * t128; t5944 = t595 * t361 * t2227 * t128; t5953 = t14 * t259 * t1834; t5972 = 0.27e2 / 0.32e2 * t1488 * t1905 - 0.405e3 * t1696 * t2137 * t5925 + 0.135e3 * t1696 * t5929 * t3978 - 0.2835e4 / 0.2e1 * t4123 * t2297 * t1 * t5934 - t180 * t5939 / 0.8e1 + 0.9e1 / 0.32e2 * t456 * t5944 - 0.3e1 / 0.8e1 * t2040 * t606 + 0.4752e4 * t5038 * t5929 * t2133 - 0.3e1 / 0.8e1 * t180 * t5953 + 0.180e3 * t258 * t4018 * t2297 * t128 - 0.108e3 * t258 * t1720 * t794 * t577 + 0.36e2 * t258 * t1720 * t2290 * t450 + 0.27e2 * t258 * t635 * t1705 * t764; t5979 = t2386 * t2387 * t2650; t5980 = t2390 * t9; t5996 = t2385 * t385 * t190 * t4118 * t4121; t6019 = 0.27e2 * t258 * t635 * t636 * t1834 + 0.8064e4 * t5979 * t5980 * t2133 - 0.3456e4 * t2389 * t4912 * t9 * t5925 + 0.3456e4 * t2389 * t2183 * t2976 * t9 * t3978 - 0.5184e4 * t5996 * t2390 * t1 * t5934 + 0.27e2 / 0.16e2 * t1488 * t1877 - 0.1296e4 * t2131 * t2132 * t5925 + 0.864e3 * t2131 * t5980 * t3978 - 0.3240e4 * t5021 * t2290 * t1 * t5934 + 0.9e1 * t633 * t2402 + t460 * t2270 / 0.8e1 - 0.9e1 / 0.32e2 * t1040 * t2256; t6021 = t595 * t1871 * t577; t6027 = t595 * t1466 * t764; t6031 = t595 * t596 * t1834; t6042 = t2650 * t2183 * t9 * t2133; t6046 = t14 * t2396 * t128; t6050 = t14 * t798 * t577; t6054 = t595 * t2245 * t128; t6060 = t14 * t641 * t764; t6063 = -0.81e2 / 0.16e2 * t456 * t6021 + 0.27e2 / 0.32e2 * t1016 * t2256 + 0.27e2 / 0.32e2 * t456 * t6027 + 0.27e2 / 0.32e2 * t456 * t6031 + 0.9e1 / 0.8e1 * t663 * t1896 - 0.3e1 / 0.4e1 * t663 * t1900 - 0.81e2 / 0.16e2 * t1488 * t1873 + 0.945e3 / 0.32e2 * t3008 * t6042 - 0.3e1 / 0.2e1 * t180 * t6046 + 0.9e1 / 0.8e1 * t180 * t6050 + 0.81e2 / 0.8e1 * t456 * t6054 - 0.3e1 / 0.8e1 * t464 * t2270 - 0.3e1 / 0.8e1 * t180 * t6060; t6092 = -0.4e1 / 0.3e1 * t38 * t39 * (t5771 + t5816 + t5850 + t5882 + t5922 + t5972 + t6019 + t6063) + 0.2e1 / 0.3e1 * t4477 * t251 + 0.3e1 * t3453 * t779 - 0.4e1 / 0.3e1 * t1425 * t785 - 0.6e1 * t1255 * t2252 + 0.4e1 / 0.3e1 * t394 * t2266 + 0.2e1 / 0.9e1 * t394 * t2274 + 0.2e1 / 0.3e1 * t1425 * t789 - 0.9e1 * t4184 * t779 - 0.2e1 * t4448 * t251 + 0.18e2 * t1271 * t2252 + 0.4e1 * t1437 * t785; t6120 = -0.2e1 * t1921 * t610 - 0.2e1 * t1437 * t789 - 0.4e1 * t398 * t2266 - 0.270e3 * t1448 * t5813 - 0.12e2 * t3528 * t5776 + 0.54e2 * t3521 * t5779 - 0.2e1 * t614 * t1917 - 0.2e1 / 0.3e1 * t155 * t5879 - 0.2e1 / 0.3e1 * t398 * t2274 + 0.30e2 * t2693 * t2246 + 0.4e1 / 0.9e1 * t38 * t22 * t2406 + 0.54e2 * t1445 * t1873 - 0.315e3 * t2648 * t6042; t6135 = t153 * t2407 * M_PI; t6150 = -0.18e2 * t1445 * t1877 - 0.108e3 * t388 * t6054 + 0.54e2 * t388 * t6021 - 0.9e1 * t1271 * t2256 - 0.9e1 * t388 * t6027 - 0.9e1 * t388 * t6031 - 0.2e1 / 0.3e1 * t6135 * t157 + 0.8e1 * t614 * t1900 + 0.4e1 * t1921 * t606 - 0.9e1 * t4473 * t598 + 0.4e1 * t614 * t1913 - 0.9e1 * t1445 * t1905 + 0.16e2 * t155 * t6046; t6178 = -0.12e2 * t155 * t6050 + 0.4e1 * t398 * t2270 + 0.4e1 * t155 * t6060 + 0.4e1 * t155 * t5953 - 0.12e2 * t614 * t1896 - 0.4e1 / 0.3e1 * t394 * t2270 + 0.3e1 * t1255 * t2256 + 0.4e1 / 0.3e1 * t155 * t5939 - 0.3e1 * t388 * t5944 - 0.90e2 * t1089 * t2696 * t2245 - 0.270e3 * t5260 * t1865 + 0.1080e4 * t1448 * t5796 - 0.270e3 * t1448 * t5785; t6181 = my_piecewise3(t42, t5521, t6092 + t6120 + t6150 + t6178); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[0] = -t532 * t2413 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t6 * t6181 * t32 - 0.3e1 / 0.8e1 * t101 * t2412 * t128 - 0.3e1 / 0.2e1 * t532 * t2416 - 0.9e1 / 0.8e1 * t101 * t2161 * t240 - 0.9e1 / 0.8e1 * t101 * t859 * t577 - 0.3e1 / 0.2e1 * t532 * t2419 - 0.9e1 / 0.8e1 * t101 * t717 * t764 - 0.9e1 / 0.8e1 * t101 * t288 * t1834 - t532 * t2422 / 0.2e1 - 0.3e1 / 0.8e1 * t101 * t217 * t2227 - 0.3e1 / 0.8e1 * t101 * t221 * t5477; t6213 = t732 * t732; t6214 = t16 * t6213; t6222 = t764 * t764; t6223 = t16 * t6222; t6239 = t740 * t740; t6248 = t759 * t759; t6281 = -0.22399999999999999999e-1 * t14 * t1353 * t2198 + 0.22400000000000000000e-1 * t14 * t2204 - 0.37333333333333333332e-2 * t14 * t547 * t2222 + 0.22399999999999999999e-1 * t14 * t19 * t2454 * t6239 - 0.33599999999999999998e-1 * t555 * t1353 * t740 * t759 + 0.55999999999999999998e-2 * t14 * t19 * t324 * t6248 + 0.74666666666666666664e-2 * t555 * t556 * t235 * t2222 - 0.93333333333333333332e-3 * t14 * t19 * t112 * (-0.23625000000000000000e-1 / t20 / t951 * t22 * t24 + 0.23625000000000000000e-1 / t951 * t18 * t120 + 0.78750000000000000000e-2 * t2212 * t756 * t343 + 0.47250000000000000000e-2 * t750 * t2219 * t957 - 0.23625000000000000000e-1 / t16 / t1374 * t2495); t6282 = t16 * t6281; t6286 = t21 * t6213; t6294 = t21 * t6222; t6311 = t1103 * t732 * t764; t6314 = t6213 * t174; t6318 = t6213 * t446; t6331 = t2650 * t6213 * t14; t6337 = t6213 * t1032; t6347 = t137 * t2539 * t6213; t6352 = -0.3240e4 * t792 * t2907 * t6314 - 0.8640e4 * t811 * t2907 * t6318 - 0.162e3 * t792 * t793 * t6222 * t174 - 0.432e3 * t811 * t793 * t6222 * t446 + 0.945e3 / 0.32e2 * t3008 * t6331 + 0.6480e4 * t5038 * t6318 * t14 + 0.17280e5 * t5979 * t6337 * t14 + 0.2025e4 * t4070 * t6314 * t14 + 0.3e1 / 0.2e1 * t663 * t2266 + 0.81e2 / 0.8e1 * t456 * t6347 - 0.27e2 / 0.4e1 * t1488 * t2252; t6374 = t13 * t103 * t6281; t6396 = -0.3e1 / 0.4e1 * t2040 * t785 - 0.41472e5 / t51 / t808 * t152 * t113 * t4118 * t4121 * t6213 * t2976 * t595 + 0.3e1 / 0.8e1 * t2040 * t789 + 0.27e2 / 0.16e2 * t5212 * t779 + t5873 * t251 / 0.4e1 + t663 * t2274 / 0.4e1 + t180 * t6374 / 0.16e2 - 0.2835e4 / 0.2e1 * t4123 * t6314 * t595 - 0.4860e4 * t5021 * t6318 * t595 - 0.15552e5 * t5996 * t6337 * t595 - 0.3e1 * t258 * t58 * t140 * t6281 * t174 + 0.27e2 * t258 * t58 * t361 * t6222 * t174; t6398 = t1092 * t6213; t6404 = t137 * t362 * t6222; t6408 = t13 * t2570 * t6213; t6412 = t13 * t303 * t6222; t6459 = 0.26931665489080993850e7 * t2358 * t15 * t764 * t2021 + 0.94247779607693797155e1 * t2 * t6222 * t832 + 0.56548667764616278293e2 * t2 * t6213 * t4609 + 0.60000000000000000000e1 * t6213 * t361 * t205 - 0.75398223686155037724e2 * t831 * t1953 * t764 + 0.45238934211693022634e3 * t686 * t1575 * t1963 * t764 + 0.18949640450091568549e4 * t2006 * t2016 * t5674 * t240 + 0.23687050562614460686e3 * t5630 * t733 * t1903 * t509 - 0.10053096491487338363e3 * t686 * t687 * t688 * t2227 - 0.17054676405082411694e5 * t2006 * t2007 * t1977 * t764 - 0.12000000000000000000e2 * t803 * t1963 + 0.30000000000000000000e1 * t6222 * t60 * t205 + 0.12566370614359172954e2 * t1949 * t832 * t2227; t6467 = t51 * t51; t6527 = 0.93512727392642339754e4 * t52 * t2 * t4 * t6 * t6213 * t4652 * t1221 + 0.16921664489886923241e8 * t75 / t6467 * t2650 * t17 * t6213 * t2817 * t14 - 0.39478417604357434477e3 * t2349 * t5 * t6213 * t3717 * t509 + 0.12566370614359172954e2 * t273 * t103 * t6282 * t205 + 0.17054676405082411694e5 * t844 * t2539 * t6286 * t509 + 0.15079644737231007545e3 * t1903 * t1977 * t76 * t12 * t16 + 0.14212230337568676412e4 * t844 * t362 * t6294 * t509 - 0.75398223686155037724e2 * t273 * t303 * t6223 * t205 - 0.30159289474462015090e3 * t273 * t2570 * t6214 * t205 + 0.40000000000000000000e1 * t2227 * t60 * t688 - 0.17592918860102842136e3 * t6213 * t625 * t2316 * t2319 + 0.28424460675137352824e4 * t6398 * t1221 * t52 * t137 * t6 * t21 - t266 * t6 * t6281 * t268 / 0.48e2 - 0.53863330978161987698e7 * t5581 * t15 * t6213 * t1221; t6533 = t595 * t596 * t2227; t6537 = t14 * t798 * t764; t6543 = t14 * t259 * t2227; t6547 = t595 * t1871 * t764; t6550 = t794 * t764; t6554 = 0.180e3 * t258 * t58 * t6398 * t174 + 0.27e2 / 0.32e2 * t456 * t6404 - 0.3e1 / 0.2e1 * t180 * t6408 - 0.3e1 / 0.8e1 * t180 * t6412 + t38 * t39 * (t6459 + t6527) / 0.8e1 + 0.9e1 / 0.8e1 * t456 * t6533 + 0.9e1 / 0.4e1 * t180 * t6537 - 0.3e1 / 0.2e1 * t663 * t2270 - t180 * t6543 / 0.2e1 - 0.81e2 / 0.8e1 * t456 * t6547 - 0.216e3 * t258 * t1720 * t6550; t6575 = t1694 * t6213; t6593 = 0.36e2 * t258 * t635 * t5908 * t240 - 0.2592e4 * t2131 * t2123 * t732 * t14 - 0.6912e4 * t2389 * t4907 * t732 * t14 - 0.810e3 * t1696 * t6550 * t14 + 0.27e2 / 0.8e1 * t1488 * t2256 + 0.135e3 / 0.4e1 * t1089 * t4127 * t2245 - 0.405e3 / 0.4e1 * t1089 * t1090 * t6575 + 0.405e3 / 0.8e1 * t1541 * t6311 + 0.6912e4 * t2082 * t2083 * t2123 - 0.216e3 * t623 * t626 * t5908 + 0.2592e4 * t623 * t2083 * t2118 - 0.576e3 * t2082 * t5534 * t647; t6616 = -0.360e3 * t1089 * t3507 * t2245 - 0.540e3 * t1448 * t6311 - 0.4e1 / 0.3e1 * t38 * t39 * (t6352 + t6396 + t6554 + t6593) + 0.1080e4 * t1089 * t1242 * t6575 + 0.4e1 * t155 * t6412 + 0.16e2 / 0.3e1 * t155 * t6543 + 0.16e2 * t155 * t6408 - 0.24e2 * t155 * t6537 - 0.16e2 * t614 * t2266 + 0.16e2 * t614 * t2270 - 0.2e1 / 0.3e1 * t155 * t6374; t6641 = -0.8e1 / 0.3e1 * t614 * t2274 + 0.8e1 * t1921 * t785 - 0.108e3 * t388 * t6347 + 0.108e3 * t388 * t6547 - 0.9e1 * t388 * t6404 - 0.12e2 * t388 * t6533 + 0.72e2 * t1445 * t2252 - 0.36e2 * t1445 * t2256 - 0.4e1 * t1921 * t789 - 0.8e1 / 0.3e1 * t6135 * t251 - 0.315e3 * t2648 * t6331 - 0.18e2 * t4473 * t779; t6643 = my_piecewise3(t42, 0.32e2 / 0.3e1 * t102 * t2570 * t6214 - 0.16e2 * t102 * t890 * t733 * t764 + 0.8e1 / 0.3e1 * t102 * t303 * t6223 + 0.32e2 / 0.9e1 * t102 * t303 * t241 * t2227 - 0.4e1 / 0.9e1 * t102 * t103 * t6282 - 0.192e3 * t138 * t2539 * t6286 + 0.1152e4 / 0.5e1 * t138 * t974 * t769 * t764 - 0.144e3 / 0.5e1 * t138 * t362 * t6294 - 0.192e3 / 0.5e1 * t138 * t362 * t245 * t2227 + 0.16e2 / 0.5e1 * t138 * t141 * t21 * t6281, t6616 + t6641); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[0] = -0.3e1 / 0.8e1 * t101 * t6 * t6643 * t32 - 0.3e1 / 0.2e1 * t101 * t2412 * t240 - 0.9e1 / 0.4e1 * t101 * t859 * t764 - 0.3e1 / 0.2e1 * t101 * t288 * t2227 - 0.3e1 / 0.8e1 * t101 * t221 * t6281; #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, t6, t7, t8; double t9, t10, t11, t13, t14, t15, t16, t17; double t18, t19, t20, t21, t22, t23, t24, t25; double t26, t27, t28, t29, t30, t31, t32, t33; double t34, t37, t38, t42, t43, t45, t46, t48; double t49, t51, t52, t53, t54, t55, t56, t57; double t59, t61, t62, t63, t64, t65, t66, t67; double t68, t69, t70, t76, t77, t78, t79, t80; double t85, t86, t87, t88, t89, t92, t93, t95; double t96, t99, t100, t104, t105, t107, t109, t110; double t111, t112, t113, t114, t115, t116, t117, t118; double t119, t120, t121, t122, t123, t126, t127, t131; double t132, t134, t135, t137, t138, t140, t141, t142; double t144, t146, t147, t153, t154, t159, t160, t161; double t164, t165, t167, t168, t171, t172, t176, t177; double t179; #ifndef XC_DONT_COMPILE_VXC double t181, t182, t184, t185, t186, t187, t188, t190; double t191, t193, t194, t195, t196, t197, t199, t200; double t201, t202, t203, t205, t206, t210, t211, t212; double t213, t217, t218, t219, t222, t223, t227, t228; double t229, t230, t232, t234, t236, t237, t238, t239; double t240, t241, t251, t252, t254, t256, t259, t262; double t263, t269, t270, t272, t273, t275, t279, t282; double t285, t289, t290, t295, t302, t304, t306, t307; double t310, t311, t315, t316, t318, t319, t320, t322; double t323, t325, t326, t327, t328, t330, t331, t332; double t334, t335, t339, t340, t342, t343, t344, t345; double t347, t348, t349, t350, t352, t353, t357, t358; double t359, t360, t364, t365, t366, t369, t370, t374; double t375, t376, t377, t379, t381, t383, t384, t385; double t386, t396, t397, t399, t401, t404, t407, t408; double t414, t415, t417, t418, t420, t424, t427, t430; double t434, t435, t440, t447, t449, t451, t452, t455; double t456, t460, t461, t463, t464, t465, t467, t468; double t475, t481, t482, t486, t487, t491, t497, t500; double t501, t504, t505, t507, t512, t513, t514, t518; double t519, t521, t524, t525, t528, t529, t533, t534; double t536, t537, t539, t546, t552, t553, t557, t558; double t562, t568, t571, t574, t575, t577, t582, t583; double t587, t588, t590, t593, t594, t597, t598, t602; double t603, t605, t606, t608; #ifndef XC_DONT_COMPILE_FXC double t611, t614, t615, t618, t619, t620, t622, t623; double t624, t626, t627, t628, t630, t631, t633, t634; double t635, t636, t637, t638, t640, t641, t643, t644; double t646, t647, t649, t650, t652, t653, t654, t655; double t656, t657, t658, t660, t661, t662, t664, t666; double t667, t675, t676, t677, t682, t688, t691, t694; double t697, t698, t702, t704, t705, t707, t709, t711; double t712, t713, t714, t718, t731, t736, t737, t739; double t741, t745, t749, t753, t757, t760, t763, t766; double t767, t770, t771, t781, t782, t785, t786, t787; double t789, t793, t796, t797, t798, t801, t803, t807; double t811, t815, t822, t825, t828, t832, t840, t854; double t855, t857, t859, t860, t862, t863, t866, t867; double t871, t872, t874, t875, t876, t878, t879, t880; double t882, t883, t884, t887, t888, t889, t891, t892; double t893, t895, t896, t897, t898, t900, t901, t902; double t904, t905, t906, t908, t910, t913, t916, t918; double t920, t923, t924, t925, t927, t932, t934, t937; double t939, t940, t942, t945, t947, t950, t952, t954; double t957, t959, t963, t964, t966, t967, t968, t969; double t970, t972, t973, t974, t975, t977, t978, t979; double t981, t982, t984, t985, t986, t988, t989, t990; double t991, t992, t993, t994, t995, t996, t998, t999; double t1000, t1002, t1004, t1005, t1013, t1014, t1015, t1020; double t1026, t1029, t1032, t1035, t1036, t1040, t1042, t1043; double t1045, t1047, t1049, t1050, t1051, t1052, t1056, t1073; double t1074, t1076, t1078, t1082, t1086, t1090, t1094, t1097; double t1100, t1103, t1104, t1107, t1108, t1118, t1119, t1122; double t1123, t1125, t1129, t1132, t1133, t1134, t1137, t1139; double t1143, t1147, t1151, t1158, t1161, t1164, t1168, t1176; double t1190, t1191, t1193, t1195, t1196, t1198, t1199, t1202; double t1203, t1207, t1208, t1210, t1211, t1212, t1214, t1215; double t1216, t1218, t1219, t1220, t1222, t1223, t1224, t1226; double t1227, t1229, t1230, t1235, t1243, t1251, t1252, t1253; double t1254, t1262, t1264, t1265, t1268, t1269, t1273, t1274; double t1282, t1286, t1291, t1292, t1294, t1302, t1306, t1310; double t1313, t1316, t1317, t1319, t1321, t1322, t1323, t1324; double t1329, t1331, t1332, t1334, t1337, t1339, t1342, t1343; double t1345, t1359, t1362, t1365, t1369, t1374, t1378, t1379; double t1382, t1383, t1384, t1385, t1386, t1390, t1394, t1397; double t1398, t1399, t1400, t1403, t1404, t1407, t1408, t1412; double t1413, t1415, t1416, t1417, t1419, t1420, t1421, t1423; double t1424, t1426, t1427, t1428, t1430, t1431, t1432, t1434; double t1435, t1438, t1439, t1440, t1442, t1443, t1445, t1446; double t1447, t1449, t1450, t1452, t1453, t1457, t1458, t1459; double t1461, t1462, t1466, t1467, t1472, t1480, t1488, t1489; double t1490, t1491, t1499, t1501, t1502, t1505, t1506, t1510; double t1511, t1519, t1523, t1528, t1530, t1538, t1542, t1546; double t1549, t1552, t1554, t1556, t1557, t1558, t1559, t1564; double t1566, t1567, t1569, t1572, t1574, t1577, t1578, t1580; double t1594, t1597, t1600, t1604, t1609, t1613, t1614, t1617; double t1618, t1619, t1620, t1621, t1625, t1629, t1632, t1633; double t1634, t1635, t1638, t1639, t1642, t1643, t1647, t1648; double t1650, t1651, t1652, t1654, t1655, t1656, t1658, t1659; double t1660, t1662, t1663, t1664, t1666, t1667, t1670, t1671; double t1678, t1679, t1684, t1688, t1692, t1694, t1697, t1698; double t1702, t1703, t1707, t1711, t1717, t1723, t1727, t1730; double t1731, t1732, t1733, t1736, t1738, t1741, t1743, t1746; double t1747, t1748, t1749, t1750, t1762, t1766, t1769, t1770; double t1774, t1778, t1781, t1782, t1784, t1787, t1788, t1791; double t1792, t1796, t1797, t1800, t1801, t1804, t1805, t1808; double t1810, t1811, t1818, t1819, t1824, t1828, t1832, t1834; double t1837, t1838, t1842, t1843, t1847, t1851, t1857, t1863; double t1867, t1870, t1871, t1872, t1873, t1876, t1878, t1881; double t1883, t1886, t1887, t1888, t1900, t1904, t1907, t1908; double t1912, t1916, t1919, t1920, t1922, t1925, t1926, t1929; double t1930, t1934, t1935, t1938, t1939, t1942, t1943, t1946; #ifndef XC_DONT_COMPILE_KXC double t1949, t1952, t1953, t1954, t1956, t1957, t1958, t1959; double t1961, t1962, t1965, t1966, t1970, t1973, t1974, t1977; double t1978, t1981, t1982, t1995, t1996, t1997, t1998, t2002; double t2003, t2007, t2013, t2015, t2019, t2020, t2021, t2023; double t2025, t2028, t2029, t2033, t2035, t2036, t2038, t2040; double t2042, t2070, t2072, t2079, t2081, t2085, t2087, t2089; double t2093, t2097, t2100, t2103, t2122, t2127, t2137, t2138; double t2151, t2152, t2154, t2157, t2160, t2163, t2164, t2167; double t2173, t2174, t2175, t2176, t2178, t2179, t2180, t2184; double t2188, t2192, t2195, t2196, t2198, t2205, t2207, t2210; double t2216, t2220, t2226, t2232, t2236, t2240, t2241, t2245; double t2246, t2249, t2250, t2251, t2252, t2257, t2258, t2261; double t2262, t2268, t2269, t2273, t2283, t2284, t2291, t2292; double t2293, t2296, t2297, t2298, t2301, t2302, t2305, t2308; double t2311, t2319, t2323, t2327, t2341, t2347, t2352, t2353; double t2354, t2356, t2357, t2359, t2362, t2363, t2364, t2366; double t2367, t2368, t2370, t2371, t2372, t2374, t2375, t2376; double t2378, t2379, t2381, t2383, t2384, t2385, t2387, t2388; double t2390, t2391, t2392, t2394, t2395, t2396, t2398, t2399; double t2401, t2402, t2404, t2405, t2406, t2408, t2410, t2412; double t2414, t2415, t2416, t2418, t2419, t2420, t2422, t2424; double t2425, t2426, t2428, t2429, t2432, t2433, t2434, t2435; double t2437, t2438, t2440, t2442, t2444, t2445, t2447, t2449; double t2450, t2452, t2453, t2456, t2457, t2458, t2459, t2461; double t2462, t2464, t2466, t2468, t2469, t2470, t2472, t2473; double t2474, t2478, t2489, t2491, t2492, t2499, t2501, t2504; double t2505, t2506, t2508, t2510, t2512, t2515, t2516, t2517; double t2519, t2521, t2522, t2524, t2526, t2528, t2530, t2532; double t2535, t2539, t2542, t2543, t2545, t2547, t2549, t2552; double t2553, t2555, t2558, t2559, t2560, t2563, t2566, t2568; double t2570, t2571, t2572, t2574, t2575, t2577, t2579, t2580; double t2582, t2585, t2586, t2588, t2590, t2592, t2594, t2596; double t2598, t2604, t2606, t2608, t2610, t2613, t2616, t2621; double t2625, t2627, t2631, t2634, t2637, t2639, t2641, t2643; double t2645, t2647, t2649, t2651, t2653, t2655, t2657, t2659; double t2661, t2663, t2665, t2667, t2669, t2672, t2675, t2678; double t2681, t2684, t2687, t2689, t2692, t2693, t2695, t2697; double t2699, t2700, t2702, t2704, t2705, t2707, t2709, t2711; double t2713, t2714, t2716, t2719, t2721, t2723, t2726, t2728; double t2730, t2732, t2741, t2745, t2750, t2754, t2755, t2757; double t2758, t2761, t2762, t2766, t2769, t2770, t2773, t2774; double t2777, t2778, t2791, t2792, t2793, t2794, t2798, t2799; double t2803, t2809, t2811, t2815, t2816, t2817, t2819, t2821; double t2824, t2825, t2829, t2831, t2832, t2834, t2836, t2838; double t2866, t2867, t2873, t2874, t2875, t2876, t2878, t2879; double t2880, t2884, t2890, t2893, t2895, t2898, t2902, t2909; double t2911, t2915, t2919, t2926, t2927, t2930, t2931, t2935; double t2939, t2941, t2942, t2946, t2954, t2958, t2960, t2961; double t2968, t2969, t2970, t2973, t2976, t2977, t2978, t2979; double t2980, t2999, t3004, t3014, t3027, t3028, t3030, t3033; double t3036, t3039, t3040, t3043, t3046, t3049, t3053, t3063; double t3065, t3067, t3071, t3077, t3081, t3084, t3086, t3091; double t3092, t3093, t3100, t3103, t3104, t3107, t3110, t3116; double t3120, t3124, t3134, t3142, t3147, t3148, t3149, t3151; double t3152, t3153, t3155, t3156, t3157, t3159, t3160, t3161; double t3163, t3164, t3165, t3167, t3168, t3169, t3171, t3172; double t3174, t3175, t3177, t3178, t3180, t3181, t3182, t3184; double t3185, t3187, t3188, t3190, t3191, t3193, t3194, t3195; double t3196, t3197, t3199, t3200, t3201, t3202, t3204, t3205; double t3206, t3207, t3209, t3210, t3215, t3216, t3217, t3219; double t3220, t3221, t3223, t3224, t3225, t3226, t3227, t3241; double t3244, t3251, t3264, t3265, t3271, t3272, t3273, t3276; double t3277, t3280, t3281, t3289, t3292, t3294, t3297, t3298; double t3302, t3303, t3305, t3306, t3307, t3309, t3310, t3311; double t3313, t3314, t3316, t3317, t3319, t3320, t3322, t3324; double t3325, t3326, t3328, t3329, t3331, t3332, t3333, t3335; double t3336, t3337, t3339, t3340, t3341, t3342, t3344, t3345; double t3347, t3348, t3350, t3351, t3368, t3372, t3376, t3396; double t3400, t3404, t3408, t3409, t3411, t3414, t3419, t3422; double t3423, t3426, t3427, t3431, t3434, t3435, t3436, t3439; double t3443, t3444, t3445, t3446, t3452, t3456, t3459, t3460; double t3461, t3465, t3467, t3470, t3472, t3476, t3479, t3480; double t3481, t3483, t3485, t3486, t3494, t3498, t3505, t3506; double t3507, t3510, t3513, t3516, t3517, t3518, t3522, t3527; double t3530, t3532, t3544, t3547, t3549, t3558, t3562, t3568; double t3573, t3577, t3581, t3584, t3589, t3594, t3598, t3599; double t3604, t3605, t3609, t3612, t3613, t3616, t3617, t3618; double t3621, t3622, t3625, t3627, t3631, t3638, t3639, t3640; double t3643, t3653, t3654, t3655, t3658, t3659, t3662, t3663; double t3664, t3665, t3668, t3669, t3670, t3673, t3674, t3675; double t3678, t3681, t3683, t3684, t3701, t3709, t3721, t3727; double t3734, t3736, t3737, t3739, t3740, t3742, t3743, t3745; double t3746, t3748, t3749, t3751, t3752, t3754, t3756, t3757; double t3758, t3760, t3761, t3762, t3765, t3766, t3768, t3769; double t3770, t3772, t3773, t3775, t3776, t3778, t3779, t3780; double t3782, t3783, t3785, t3786, t3787, t3789, t3790, t3792; double t3793, t3797, t3800, t3803, t3806, t3808, t3810, t3815; double t3817, t3820, t3823, t3825, t3827, t3829, t3831, t3836; double t3839, t3842, t3844, t3846, t3849, t3851, t3854, t3857; double t3860, t3862, t3864, t3867, t3869, t3871, t3875, t3878; double t3880, t3882, t3885, t3887, t3890, t3891, t3892, t3894; double t3895, t3896, t3898, t3899, t3900, t3901, t3903, t3904; double t3911, t3913, t3914, t3931, t3935, t3943, t3956, t3957; double t3963, t3964, t3965, t3968, t3969, t3972, t3973, t3981; double t3984, t3986, t3989, t3990, t3994, t3995, t4015, t4019; double t4023, t4027, t4028, t4030, t4033, t4041, t4046, t4048; double t4052, t4058, t4064, t4067, t4069, t4075, t4085, t4093; double t4097, t4100, t4103, t4104, t4107, t4108, t4112, t4115; double t4116, t4117, t4120, t4123, t4127, t4130, t4131, t4137; double t4146, t4151, t4156, t4160, t4161, t4164, t4167, t4168; double t4169, t4172, t4173, t4174, t4178, t4181, t4182, t4185; double t4186, t4187, t4191, t4199, t4200, t4201, t4204, t4205; double t4208, t4209, t4210, t4211, t4214, t4215, t4216, t4219; double t4223, t4224, t4225, t4236, t4245, t4251, t4257, t4262; double t4264, t4267, t4271, t4275, t4276, t4277, t4282, t4283; double t4285, t4287, t4288, t4289, t4298, t4300, t4307, t4308; double t4309, t4320, t4321, t4322, t4326, t4329, t4330, t4331; double t4335, t4342, t4344, t4345, t4348, t4351, t4353, t4354; double t4356, t4357, t4359, t4361, t4362, t4364, t4366, t4367; double t4368, t4369, t4370, t4371, t4372, t4373, t4374, t4375; double t4377, t4378, t4379, t4381, t4382, t4383, t4385, t4386; double t4387, t4389, t4390, t4391, t4393, t4394, t4396, t4397; double t4399, t4400, t4402, t4403, t4404, t4407, t4409, t4410; double t4412, t4413, t4418, t4430, t4445, t4446, t4449, t4450; double t4456, t4457, t4467, t4469, t4472, t4473, t4477, t4478; double t4486, t4498, t4502, t4506, t4508, t4514, t4516, t4520; double t4535, t4539, t4543, t4546, t4548, t4556, t4560, t4564; double t4567, t4570, t4575, t4576, t4577, t4581, t4585, t4589; double t4596, t4598, t4613, t4624, t4625, t4628, t4629, t4633; double t4634, t4635, t4638, t4641, t4642, t4645, t4663, t4664; double t4665, t4668, t4669, t4670, t4673, t4674, t4676, t4677; double t4683, t4693, t4696, t4697, t4702, t4706, t4710, t4716; double t4717, t4718, t4722, t4725, t4726, t4727, t4730, t4731; double t4732, t4737, t4738, t4739, t4743, t4747, t4750, t4751; double t4752, t4755, t4756, t4759, t4760, t4761, t4762, t4766; double t4769, t4770, t4771, t4774, t4775, t4776, t4779, t4780; double t4781, t4784, t4788, t4789, t4792, t4795, t4797, t4798; double t4801, t4803, t4804, t4806, t4807, t4808, t4810, t4811; double t4813, t4815, t4816, t4817, t4819, t4820, t4821, t4823; double t4824, t4825, t4827, t4828, t4830, t4831, t4832, t4834; double t4835, t4836, t4838, t4839, t4840, t4842, t4844, t4845; double t4847, t4848, t4850, t4852, t4853, t4854, t4856, t4857; double t4859, t4860, t4864, t4865, t4867, t4868, t4870, t4871; double t4875, t4876, t4881, t4893, t4908, t4909, t4912, t4913; double t4919, t4920, t4930, t4932, t4935, t4936, t4940, t4941; double t4949, t4961, t4965, t4969, t4971, t4977, t4979, t4983; double t4998, t5002, t5006, t5009, t5011, t5019, t5023, t5027; double t5030, t5035, t5036, t5038, t5039, t5040, t5044, t5045; double t5059, t5063, t5067, t5070, t5071, t5072, t5075, t5076; double t5077, t5086, t5089, t5090, t5093, t5094, t5098, t5099; double t5100, t5103, t5104, t5107, t5108, t5111, t5114, t5116; double t5136, t5147, t5151, t5154, t5164, t5167, t5168, t5173; double t5177, t5181, t5187, t5188, t5189, t5193, t5196, t5197; double t5198, t5201, t5202, t5203, t5208, t5209, t5210, t5214; double t5218, t5221, t5222, t5223, t5226, t5227, t5230, t5231; double t5232, t5233, t5237, t5240, t5241, t5242, t5245, t5246; double t5247, t5250, t5251, t5252, t5255, t5258, t5260, t5261; double t5264, t5266, t5267, t5269, t5270, t5271, t5273, t5274; double t5276, t5277, t5279, t5280, t5281, t5283, t5284, t5285; double t5287, t5288, t5289, t5291, t5292, t5293, t5295, t5296; double t5297, t5299, t5300, t5314, t5315, t5319, t5320, t5324; double t5328, t5335, t5338, t5339, t5343, t5344, t5348, t5356; double t5361, t5362, t5368, t5372, t5382, t5386, t5390, t5393; double t5397, t5400, t5403, t5404, t5405, t5406, t5407, t5410; double t5413, t5417, t5420, t5421, t5425, t5429, t5432, t5433; double t5436, t5437, t5438, t5444, t5445, t5446, t5447, t5448; double t5451, t5452, t5455, t5458, t5462, t5465, t5466, t5469; double t5483, t5485, t5489, t5496, t5499, t5502, t5504, t5508; double t5509, t5510, t5512, t5513, t5514, t5521, t5522, t5523; double t5526, t5527, t5528, t5531, t5532, t5535, t5536, t5539; double t5540, t5543, t5545, t5546, t5560, t5561, t5565, t5566; double t5570, t5574, t5581, t5584, t5585, t5589, t5590, t5594; double t5602, t5607, t5608, t5614, t5618, t5628, t5632, t5636; double t5639, t5642, t5643, t5646, t5649, t5653, t5656, t5659; double t5660, t5661, t5662, t5663, t5666, t5669, t5673, t5676; double t5677, t5681, t5685, t5688, t5689, t5692, t5697, t5698; double t5699, t5700, t5703, t5704, t5713, t5715, t5719, t5733; double t5736, t5737, t5740, t5742, t5745, t5746, t5748, t5749; double t5750, t5755, t5761, t5762, t5763, t5766, t5767, t5768; double t5771, t5772, t5775, t5776, t5779, t5780, t5783; #ifndef XC_DONT_COMPILE_LXC double t5786, t5789, t5799, t5821, t5823, t5825, t5830, t5831; double t5837, t5840, t5846, t5849, t5855, t5857, t5859, t5865; double t5867, t5888, t5895, t5896, t5903, t5910, t5915, t5917; double t5920, t5922, t5925, t5927, t5931, t5932, t5938, t5940; double t5946, t5951, t5955, t5956, t5962, t5965, t5967, t5972; double t5977, t5984, t5991, t5993, t5996, t5999, t6002, t6007; double t6019, t6020, t6038, t6046, t6053, t6055, t6058, t6060; double t6064, t6081, t6104, t6105, t6114, t6133, t6138, t6145; double t6153, t6166, t6170, t6174, t6177, t6179, t6180, t6184; double t6190, t6194, t6198, t6204, t6208, t6215, t6219, t6229; double t6233, t6243, t6247, t6249, t6252, t6257, t6258, t6262; double t6263, t6275, t6276, t6280, t6281, t6286, t6315, t6318; double t6323, t6324, t6326, t6327, t6328, t6330, t6334, t6338; double t6342, t6346, t6360, t6365, t6366, t6370, t6387, t6388; double t6389, t6393, t6394, t6402, t6406, t6407, t6413, t6414; double t6418, t6419, t6425, t6453, t6479, t6480, t6481, t6483; double t6510, t6533, t6569, t6579, t6661, t6666, t6669, t6673; double t6675, t6676, t6679, t6683, t6699, t6708, t6712, t6718; double t6721, t6727, t6730, t6735, t6753, t6756, t6759, t6764; double t6765, t6775, t6776, t6777, t6780, t6783, t6786, t6787; double t6789, t6792, t6796, t6799, t6802, t6805, t6806, t6810; double t6825, t6832, t6841, t6844, t6864, t6871, t6874, t6875; double t6877, t6883, t6885, t6886, t6895, t6902, t6926, t6936; double t6938, t6939, t6945, t6946, t6952, t6954, t6958, t6960; double t6961, t6966, t6968, t6978, t6993, t7002, t7009, t7010; double t7016, t7020, t7024, t7027, t7029, t7045, t7055, t7057; double t7060, t7068, t7076, t7082, t7101, t7119, t7134, t7144; double t7151, t7158, t7165, t7171, t7178, t7184, t7190, t7206; double t7228, t7230, t7238, t7240, t7247, t7255, t7258, t7261; double t7266, t7269, t7272, t7277, t7280, t7283, t7285, t7289; double t7293, t7296, t7299, t7302, t7307, t7309, t7323, t7369; double t7380, t7406, t7409, t7412, t7418, t7443, t7453, t7458; double t7463, t7479, t7491, t7494, t7497, t7504, t7507, t7510; double t7513, t7516, t7524, t7526, t7532, t7550, t7566, t7599; double t7607, t7639, t7652, t7680, t7683, t7686, t7689, t7693; double t7696, t7698, t7701, t7704, t7720, t7727, t7746, t7763; double t7803, t7818, t7823, t7828, t7833, t7858, t7881, t7882; double t7891, t7910, t7915, t7922, t7930, t7939, t7951, t7955; double t7959, t7962, t7963, t7984, t7986, t7994, t7997, t7998; double t8000, t8004, t8012, t8045, t8048, t8056, t8062, t8068; double t8079, t8083, t8086, t8089, t8094, t8095, t8103, t8104; double t8107, t8113, t8118, t8119, t8123, t8124, t8134, t8140; double t8144, t8149, t8153, t8170, t8176, t8182, t8186, t8190; double t8197, t8198, t8200, t8201, t8202, t8204, t8217, t8218; double t8224, t8225, t8226, t8230, t8235, t8236, t8240, t8241; double t8255, t8259, t8260, t8276, t8294, t8298, t8299, t8311; double t8343, t8349, t8357, t8433, t8438, t8441, t8445, t8447; double t8448, t8451, t8469, t8479, t8500, t8502, t8509, t8510; double t8512, t8540, t8554, t8579, t8582, t8585, t8596, t8614; double t8629, t8634, t8641, t8647, t8654, t8666, t8683, t8691; double t8698, t8700, t8703, t8711, t8717, t8719, t8722, t8727; double t8729, t8730, t8736, t8758, t8766, t8776, t8851, t8852; double t8857, t8861, t8869, t8873, t8893, t8942, t8943, t8944; double t8948, t8952, t8971, t8975, t8985, t9001, t9014, t9018; double t9028, t9049, t9054, t9058, t9062, t9066, t9071, t9078; double t9092, t9096, t9101, t9105, t9109, t9113, t9116, t9118; double t9119, t9123, t9138, t9141, t9146, t9155, t9163, t9167; double t9173, t9181, t9193, t9196, t9197, t9216, t9224, t9228; double t9243, t9262, t9269, t9270, t9271, t9272, t9291, t9292; double t9299, t9302, t9303, t9304, t9307, t9310, t9311, t9395; double t9409, t9431, t9436, t9441, t9459, t9476, t9481, t9504; double t9509, t9516, t9538, t9543, t9566, t9572, t9581, t9586; double t9614, t9646, t9649, t9681, t9684, t9687, t9695, t9704; double t9715, t9719, t9727, t9732, t9735, t9756, t9759, t9762; double t9765, t9767, t9774, t9776, t9779, t9782, t9790, t9792; double t9795, t9802, t9812, t9816, t9819, t9822, t9827, t9832; double t9834, t9837, t9844, t9850, t9857, t9860, t9868, t9869; double t9872, t9878, t9879, t9893, t9904, t9922, t9935, t9940; double t9943, t9945, t9953, t9956, t9960, t9965, t9971, t9981; double t10002, t10006, t10007, t10008, t10009, t10019, t10026, t10030; double t10033, t10039, t10041, t10047, t10050, t10053, t10056, t10058; double t10081, t10087, t10098, t10110, t10114, t10116, t10119, t10120; double t10124, t10127, t10130, t10178, t10194, t10200, t10203, t10206; double t10219, t10221, t10224, t10227, t10230, t10233, t10236, t10239; double t10242, t10245, t10248, t10250, t10253, t10256, t10259, t10295; double t10312, t10319, t10332, t10340, t10372, t10383, t10385, t10389; double t10474, t10478, t10479, t10504, t10508, t10516, t10548, t10593; double t10597, t10598, t10605, t10607, t10610, t10611, t10612, t10615; double t10618, t10619, t10623, t10644, t10653, t10664, t10676, t10686; double t10687, t10688, t10689, t10701, t10702, t10712, t10766, t10771; double t10814, t10821, t10828, t10846, t10851, t10869, t10884, t10921; double t10931, t10934, t10944, t10946, t10947, t10983, t10987, t10989; double t11004, t11020, t11026, t11031, t11037, t11040, t11056, t11062; double t11066, t11081, t11088, t11093, t11103, t11108, t11116, t11120; double t11130, t11133, t11137, t11152, t11167, t11180, t11184, t11187; double t11193, t11201, t11209, t11213, t11217, t11223, t11231, t11244; double t11267, t11275, t11279, t11283, t11307, t11341, t11347, t11361; double t11368, t11377, t11383, t11386, t11399, t11407, t11448, t11493; double t11505, t11512, t11519, t11531, t11533, t11540, t11543, t11545; double t11552, t11556, t11560, t11561, t11612, t11620, t11653, t11654; double t11655, t11659, t11663, t11679, t11695, t11756, t11760, t11770; double t11780, t11784, t11792, t11799, t11803, t11808, t11816, t11822; double t11826, t11832, t11838, t11842, t11850, t11859, t11866, t11874; double t11877, t11886, t11890, t11913, t11945, t11948, t11973, t11981; double t11993, t11997, t12003, t12004, t12019, t12023, t12025, t12026; double t12027, t12028, t12032, t12036, t12063, t12080, t12092, t12144; double t12156, t12165, t12168, t12176, t12239, t12251, t12257, t12298; double t12332, t12362, t12369, t12373, t12379, t12382, t12405, t12416; double t12421, t12435, t12442, t12468, t12472, t12475, t12492, t12502; double t12525, t12538, t12584, t12596, t12599, t12636, t12639, t12651; double t12657, t12659, t12669, t12672, t12679, t12683, t12693, t12697; double t12710, t12718, t12720, t12721, t12723, t12725, t12726, t12730; double t12732, t12739, t12744, t12750, t12756, t12764, t12765, t12778; double t12788, t12802, t12810, t12823, t12840, t12843, t12850, t12853; double t12856, t12860, t12872, t12884, t12887, t12890, t12893, t12895; double t12921, t12960, t12999, t13067, t13087, t13108, t13109, t13118; double t13122, t13126, t13130, t13131, t13139, t13143, t13147, t13151; double t13154, t13167, t13171, t13178, t13182, t13200, t13203, t13205; double t13211, t13216, t13222, t13226, t13233, t13237, t13249, t13253; double t13256, t13261, t13287, t13290, t13305, t13311, t13315, t13320; double t13324, t13327, t13394, t13404, t13436, t13451, t13470, t13533; double t13555, t13588, t13592, t13595, t13601, t13609, t13613, t13621; double t13638, t13643, t13645, t13659, t13683, t13688, t13691, t13698; double t13712, t13715, t13721, t13744, t13785, t13790, t13826, t13834; double t13838, t13885, t13892, t13905, t13916, t13919, t13953, t13983; double t13988, t13997, t14027, t14030, t14070, t14100, t14104, t14110; double t14115, t14124, t14144, t14216, t14217, t14225, t14260, t14261; double t14264, t14268, t14272, t14276, t14280, t14284, t14290, t14295; double t14299, t14304, t14306, t14334, t14337, t14341, t14346, t14354; double t14359, t14382, t14385, t14387, t14418, t14423, t14427, t14431; double t14435, t14449, t14465, t14470, t14485, t14514, t14547, t14560; double t14577, t14585, t14615, t14636, t14642, t14696, t14739, t14748; double t14760, t14788, t14812, t14829, t14859, t14865, t14890, t14918; double t14921, t14935, t14949, t14964, t14973, t14975, t14981, t14987; double t14993, t15000, t15025, t15034, t15054, t15126, t15127, t15135; double t15170, t15175, t15183, t15187, t15193, t15197, t15203, t15208; double t15211, t15225, t15237, t15246, t15249, t15289, t15292, t15297; double t15301, t15311, t15325, t15357, t15364, t15375, t15376, t15381; double t15387, t15394, t15396, t15416, t15429, t15454, t15507, t15558; double t15593, t15609, t15618, t15625, t15633, t15664, t15670, t15689; double t15701, t15721, t15724, t15731, t15743, t15769, t15793, t15800; double t15827, t15830, t15873, t15875, t15876, t15884, t15885, t15901; double t15910, t15943, t15944, t15948, t15956, t15969, t15976, t15983; double t15987, t15991, t16009, t16013, t16017, t16020, t16024, t16051; double t16053, t16065, t16071, t16075, t16079, t16087, t16100, t16112; double t16123, t16126, t16185, t16191, t16197, t16198, t16245, t16250; double t16277, t16303, t16305, t16327, t16328, t16336, t16337, t16353; double t16362, t16395, t16396, t16400, t16408, t16422, t16487, t16505; double t16539, t16549, t16562, t16566, t16572, t16575, t16579, t16580; double t16594, t16601, t16616, t16627, t16642, t16651, t16655, t16659; double t16662, t16666, t16695, t16703, t16724, t16749, t16751; #endif #endif #endif #endif #endif t1 = M_CBRT3; t2 = 0.1e1 / M_PI; t3 = POW_1_3(t2); t4 = t1 * t3; t5 = M_CBRT4; t6 = t5 * t5; t7 = t4 * t6; t8 = rho[0] - rho[1]; t9 = rho[0] + rho[1]; t10 = 0.1e1 / t9; t11 = t8 * t10; t13 = 0.1e1 / 0.2e1 + t11 / 0.2e1; t14 = POW_1_3(t13); t15 = t14 * t13; t16 = POW_1_3(t9); t17 = t15 * t16; t18 = t1 * t1; t19 = M_PI * t18; t20 = 0.1e1 / t3; t21 = t20 * t5; t22 = t18 * t20; t23 = t22 * t5; t24 = rho[0] * rho[0]; t25 = POW_1_3(rho[0]); t26 = t25 * t25; t27 = t26 * t24; t28 = 0.1e1 / t27; t29 = sigma[0] * t28; t30 = sqrt(sigma[0]); t31 = t25 * rho[0]; t32 = 0.1e1 / t31; t33 = t30 * t32; t34 = log(t33 + sqrt(t33 * t33 + 0.1e1)); t37 = 0.10e1 + 0.2520e-1 * t33 * t34; t38 = 0.1e1 / t37; t42 = 0.10e1 + 0.93333333333333333332e-3 * t23 * t29 * t38; t43 = 0.1e1 / t42; t45 = t19 * t21 * t43; t46 = sqrt(t45); t48 = p->cam_omega / t46; t49 = 0.1e1 / t25; t51 = t48 * t49 / 0.2e1; t52 = 0.50e2 < t51; t53 = p->cam_omega * p->cam_omega; t54 = 0.1e1 / t53; t55 = t54 * M_PI; t56 = t55 * t18; t57 = t43 * t26; t59 = t56 * t21 * t57; t61 = t53 * t53; t62 = 0.1e1 / t61; t63 = M_PI * M_PI; t64 = t62 * t63; t65 = t64 * t1; t66 = t3 * t3; t67 = 0.1e1 / t66; t68 = t67 * t6; t69 = t42 * t42; t70 = 0.1e1 / t69; t76 = atan2(0.1e1, t51); t77 = t53 * t2; t78 = t77 * t1; t79 = t3 * t6; t80 = 0.1e1 / t26; t85 = t78 * t79 * t42 * t80 / 0.48e2 + 0.3e1; t86 = t54 * t18; t87 = t86 * t20; t88 = t5 * t43; t89 = t88 * t26; t92 = 0.10e1 + 0.12566370614359172954e2 * t87 * t89; t93 = log(t92); t95 = -t85 * t93 + 0.1e1; t96 = t49 * t95; t99 = t76 + t48 * t96 / 0.8e1; t100 = t49 * t99; t104 = my_piecewise3(t52, 0.4e1 / 0.9e1 * t59 - 0.8e1 / 0.5e1 * t65 * t68 * t70 * t31, 0.10e1 - 0.4e1 / 0.3e1 * t48 * t100); t105 = t104 * t42; t107 = t7 * t17 * t105; t109 = 0.1e1 / 0.2e1 - t11 / 0.2e1; t110 = POW_1_3(t109); t111 = t110 * t109; t112 = t111 * t16; t113 = rho[1] * rho[1]; t114 = POW_1_3(rho[1]); t115 = t114 * t114; t116 = t115 * t113; t117 = 0.1e1 / t116; t118 = sigma[2] * t117; t119 = sqrt(sigma[2]); t120 = t114 * rho[1]; t121 = 0.1e1 / t120; t122 = t119 * t121; t123 = log(t122 + sqrt(t122 * t122 + 0.1e1)); t126 = 0.10e1 + 0.2520e-1 * t122 * t123; t127 = 0.1e1 / t126; t131 = 0.10e1 + 0.93333333333333333332e-3 * t23 * t118 * t127; t132 = 0.1e1 / t131; t134 = t19 * t21 * t132; t135 = sqrt(t134); t137 = p->cam_omega / t135; t138 = 0.1e1 / t114; t140 = t137 * t138 / 0.2e1; t141 = 0.50e2 < t140; t142 = t132 * t115; t144 = t56 * t21 * t142; t146 = t131 * t131; t147 = 0.1e1 / t146; t153 = atan2(0.1e1, t140); t154 = 0.1e1 / t115; t159 = t78 * t79 * t131 * t154 / 0.48e2 + 0.3e1; t160 = t5 * t132; t161 = t160 * t115; t164 = 0.10e1 + 0.12566370614359172954e2 * t87 * t161; t165 = log(t164); t167 = -t159 * t165 + 0.1e1; t168 = t138 * t167; t171 = t153 + t137 * t168 / 0.8e1; t172 = t138 * t171; t176 = my_piecewise3(t141, 0.4e1 / 0.9e1 * t144 - 0.8e1 / 0.5e1 * t65 * t68 * t147 * t120, 0.10e1 - 0.4e1 / 0.3e1 * t137 * t172); t177 = t176 * t131; t179 = t7 * t112 * t177; if(zk != NULL && (p->info->flags & XC_FLAGS_HAVE_EXC)) zk[0] = -0.3e1 / 0.8e1 * t107 - 0.3e1 / 0.8e1 * t179; #ifndef XC_DONT_COMPILE_VXC if(order < 1) return; t181 = 0.3e1 / 0.8e1 * t107; t182 = 0.3e1 / 0.8e1 * t179; t184 = t4 * t6 * t14; t185 = t16 * t104; t186 = t9 * t9; t187 = 0.1e1 / t186; t188 = t8 * t187; t190 = t10 / 0.2e1 - t188 / 0.2e1; t191 = t42 * t190; t193 = t184 * t185 * t191; t194 = t193 / 0.2e1; t195 = t16 * t16; t196 = 0.1e1 / t195; t197 = t15 * t196; t199 = t7 * t197 * t105; t200 = t199 / 0.8e1; t201 = t55 * t22; t202 = t5 * t70; t203 = t24 * rho[0]; t205 = 0.1e1 / t26 / t203; t206 = sigma[0] * t205; t210 = t37 * t37; t211 = 0.1e1 / t210; t212 = t25 * t24; t213 = 0.1e1 / t212; t217 = t29 + 0.1e1; t218 = sqrt(t217); t219 = 0.1e1 / t218; t222 = -0.33600000000000000000e-1 * t30 * t213 * t34 - 0.33600000000000000000e-1 * t206 * t219; t223 = t211 * t222; t227 = -0.24888888888888888889e-2 * t23 * t206 * t38 - 0.93333333333333333332e-3 * t23 * t29 * t223; t228 = t26 * t227; t229 = t202 * t228; t230 = t201 * t229; t232 = t43 * t49; t234 = t56 * t21 * t232; t236 = t1 * t67; t237 = t64 * t236; t238 = t69 * t42; t239 = 0.1e1 / t238; t240 = t6 * t239; t241 = t31 * t227; t251 = 0.1e1 / t46 / t45; t252 = p->cam_omega * t251; t254 = t252 * t100 * M_PI; t256 = t22 * t202 * t227; t259 = t32 * t99; t262 = t49 * M_PI; t263 = t252 * t262; t269 = (t263 * t256 / 0.4e1 - t48 * t32 / 0.6e1) * t54; t270 = t269 * t19; t272 = 0.1e1 + 0.4e1 * t59; t273 = 0.1e1 / t272; t275 = t21 * t57 * t273; t279 = t252 * t96 * M_PI; t282 = t32 * t95; t285 = t227 * t80; t289 = t26 * rho[0]; t290 = 0.1e1 / t289; t295 = t78 * t79 * t285 / 0.48e2 - t78 * t79 * t42 * t290 / 0.72e2; t302 = -0.12566370614359172954e2 * t87 * t229 + 0.83775804095727819693e1 * t87 * t88 * t49; t304 = 0.1e1 / t92; t306 = -t302 * t304 * t85 - t295 * t93; t307 = t49 * t306; t310 = -0.4e1 * t270 * t275 + t279 * t256 / 0.16e2 - t48 * t282 / 0.24e2 + t48 * t307 / 0.8e1; t311 = t49 * t310; t315 = my_piecewise3(t52, -0.4e1 / 0.9e1 * t230 + 0.8e1 / 0.27e2 * t234 + 0.16e2 / 0.5e1 * t237 * t240 * t241 - 0.32e2 / 0.15e2 * t65 * t68 * t70 * t25, -0.2e1 / 0.3e1 * t254 * t256 + 0.4e1 / 0.9e1 * t48 * t259 - 0.4e1 / 0.3e1 * t48 * t311); t316 = t315 * t42; t318 = t7 * t17 * t316; t319 = 0.3e1 / 0.8e1 * t318; t320 = t104 * t227; t322 = t7 * t17 * t320; t323 = 0.3e1 / 0.8e1 * t322; t325 = t4 * t6 * t110; t326 = t16 * t176; t327 = -t190; t328 = t131 * t327; t330 = t325 * t326 * t328; t331 = t330 / 0.2e1; t332 = t111 * t196; t334 = t7 * t332 * t177; t335 = t334 / 0.8e1; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[0] = -t181 - t182 + t9 * (-t194 - t200 - t319 - t323 - t331 - t335); t339 = -t10 / 0.2e1 - t188 / 0.2e1; t340 = t42 * t339; t342 = t184 * t185 * t340; t343 = t342 / 0.2e1; t344 = -t339; t345 = t131 * t344; t347 = t325 * t326 * t345; t348 = t347 / 0.2e1; t349 = t5 * t147; t350 = t113 * rho[1]; t352 = 0.1e1 / t115 / t350; t353 = sigma[2] * t352; t357 = t126 * t126; t358 = 0.1e1 / t357; t359 = t114 * t113; t360 = 0.1e1 / t359; t364 = t118 + 0.1e1; t365 = sqrt(t364); t366 = 0.1e1 / t365; t369 = -0.33600000000000000000e-1 * t119 * t360 * t123 - 0.33600000000000000000e-1 * t353 * t366; t370 = t358 * t369; t374 = -0.24888888888888888889e-2 * t23 * t353 * t127 - 0.93333333333333333332e-3 * t23 * t118 * t370; t375 = t115 * t374; t376 = t349 * t375; t377 = t201 * t376; t379 = t132 * t138; t381 = t56 * t21 * t379; t383 = t146 * t131; t384 = 0.1e1 / t383; t385 = t6 * t384; t386 = t120 * t374; t396 = 0.1e1 / t135 / t134; t397 = p->cam_omega * t396; t399 = t397 * t172 * M_PI; t401 = t22 * t349 * t374; t404 = t121 * t171; t407 = t138 * M_PI; t408 = t397 * t407; t414 = (t408 * t401 / 0.4e1 - t137 * t121 / 0.6e1) * t54; t415 = t414 * t19; t417 = 0.1e1 + 0.4e1 * t144; t418 = 0.1e1 / t417; t420 = t21 * t142 * t418; t424 = t397 * t168 * M_PI; t427 = t121 * t167; t430 = t374 * t154; t434 = t115 * rho[1]; t435 = 0.1e1 / t434; t440 = t78 * t79 * t430 / 0.48e2 - t78 * t79 * t131 * t435 / 0.72e2; t447 = -0.12566370614359172954e2 * t87 * t376 + 0.83775804095727819693e1 * t87 * t160 * t138; t449 = 0.1e1 / t164; t451 = -t159 * t447 * t449 - t165 * t440; t452 = t138 * t451; t455 = -0.4e1 * t415 * t420 + t424 * t401 / 0.16e2 - t137 * t427 / 0.24e2 + t137 * t452 / 0.8e1; t456 = t138 * t455; t460 = my_piecewise3(t141, -0.4e1 / 0.9e1 * t377 + 0.8e1 / 0.27e2 * t381 + 0.16e2 / 0.5e1 * t237 * t385 * t386 - 0.32e2 / 0.15e2 * t65 * t68 * t147 * t114, -0.2e1 / 0.3e1 * t399 * t401 + 0.4e1 / 0.9e1 * t137 * t404 - 0.4e1 / 0.3e1 * t137 * t456); t461 = t460 * t131; t463 = t7 * t112 * t461; t464 = 0.3e1 / 0.8e1 * t463; t465 = t176 * t374; t467 = t7 * t112 * t465; t468 = 0.3e1 / 0.8e1 * t467; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vrho[1] = -t181 - t182 + t9 * (-t343 - t200 - t348 - t335 - t464 - t468); t475 = 0.1e1 / t30; t481 = 0.12600000000000000000e-1 * t475 * t32 * t34 + 0.12600000000000000000e-1 * t28 * t219; t482 = t211 * t481; t486 = 0.93333333333333333332e-3 * t22 * t5 * t28 * t38 - 0.93333333333333333332e-3 * t23 * t29 * t482; t487 = t26 * t486; t491 = t31 * t486; t497 = t22 * t202 * t486; t500 = 0.1e1 / p->cam_omega; t501 = t500 * t251; t504 = t501 * t25 * t63 * t1; t505 = t239 * t486; t507 = t68 * t505 * t273; t512 = t77 * t4; t513 = t6 * t486; t514 = t80 * t93; t518 = t85 * t54; t519 = t518 * t22; t521 = t202 * t487 * t304; t524 = -t512 * t513 * t514 / 0.48e2 + 0.12566370614359172954e2 * t519 * t521; t525 = t49 * t524; t528 = -0.3e1 * t504 * t507 + t279 * t497 / 0.16e2 + t48 * t525 / 0.8e1; t529 = t49 * t528; t533 = my_piecewise3(t52, -0.4e1 / 0.9e1 * t201 * t202 * t487 + 0.16e2 / 0.5e1 * t237 * t240 * t491, -0.2e1 / 0.3e1 * t254 * t497 - 0.4e1 / 0.3e1 * t48 * t529); t534 = t533 * t42; t536 = t7 * t17 * t534; t537 = t104 * t486; t539 = t7 * t17 * t537; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[0] = t9 * (-0.3e1 / 0.8e1 * t536 - 0.3e1 / 0.8e1 * t539); if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[1] = 0.0e0; t546 = 0.1e1 / t119; t552 = 0.12600000000000000000e-1 * t546 * t121 * t123 + 0.12600000000000000000e-1 * t117 * t366; t553 = t358 * t552; t557 = 0.93333333333333333332e-3 * t22 * t5 * t117 * t127 - 0.93333333333333333332e-3 * t23 * t118 * t553; t558 = t115 * t557; t562 = t120 * t557; t568 = t22 * t349 * t557; t571 = t500 * t396; t574 = t571 * t114 * t63 * t1; t575 = t384 * t557; t577 = t68 * t575 * t418; t582 = t6 * t557; t583 = t154 * t165; t587 = t159 * t54; t588 = t587 * t22; t590 = t349 * t558 * t449; t593 = -t512 * t582 * t583 / 0.48e2 + 0.12566370614359172954e2 * t588 * t590; t594 = t138 * t593; t597 = -0.3e1 * t574 * t577 + t424 * t568 / 0.16e2 + t137 * t594 / 0.8e1; t598 = t138 * t597; t602 = my_piecewise3(t141, -0.4e1 / 0.9e1 * t201 * t349 * t558 + 0.16e2 / 0.5e1 * t237 * t385 * t562, -0.2e1 / 0.3e1 * t399 * t568 - 0.4e1 / 0.3e1 * t137 * t598); t603 = t602 * t131; t605 = t7 * t112 * t603; t606 = t176 * t557; t608 = t7 * t112 * t606; if(vrho != NULL && (p->info->flags & XC_FLAGS_HAVE_VXC)) vsigma[2] = t9 * (-0.3e1 / 0.8e1 * t605 - 0.3e1 / 0.8e1 * t608); #ifndef XC_DONT_COMPILE_FXC if(order < 2) return; t611 = t199 / 0.4e1; t614 = t334 / 0.4e1; t615 = t14 * t14; t618 = t4 * t6 / t615; t619 = t190 * t190; t620 = t42 * t619; t622 = t618 * t185 * t620; t623 = t622 / 0.6e1; t624 = t196 * t104; t626 = t184 * t624 * t191; t627 = t626 / 0.3e1; t628 = t16 * t315; t630 = t184 * t628 * t191; t631 = t227 * t190; t633 = t184 * t185 * t631; t634 = t186 * t9; t635 = 0.1e1 / t634; t636 = t8 * t635; t637 = -t187 + t636; t638 = t42 * t637; t640 = t184 * t185 * t638; t641 = t640 / 0.2e1; t643 = 0.1e1 / t195 / t9; t644 = t15 * t643; t646 = t7 * t644 * t105; t647 = t646 / 0.12e2; t649 = t7 * t197 * t316; t650 = t649 / 0.4e1; t652 = t7 * t197 * t320; t653 = t652 / 0.4e1; t654 = t5 * t239; t655 = t227 * t227; t656 = t26 * t655; t657 = t654 * t656; t658 = t201 * t657; t660 = t49 * t227; t661 = t202 * t660; t662 = t201 * t661; t664 = t24 * t24; t666 = 0.1e1 / t26 / t664; t667 = sigma[0] * t666; t675 = 0.1e1 / t210 / t37; t676 = t222 * t222; t677 = t675 * t676; t682 = 0.1e1 / t25 / t203; t688 = sigma[0] * sigma[0]; t691 = 0.1e1 / t25 / t664 / t203; t694 = 0.1e1 / t218 / t217; t697 = 0.78400000000000000000e-1 * t30 * t682 * t34 + 0.16800000000000000000e0 * t667 * t219 - 0.44800000000000000000e-1 * t688 * t691 * t694; t698 = t211 * t697; t702 = 0.91259259259259259260e-2 * t23 * t667 * t38 + 0.49777777777777777778e-2 * t23 * t206 * t223 + 0.18666666666666666666e-2 * t23 * t29 * t677 - 0.93333333333333333332e-3 * t23 * t29 * t698; t704 = t202 * t26 * t702; t705 = t201 * t704; t707 = t43 * t32; t709 = t56 * t21 * t707; t711 = t69 * t69; t712 = 0.1e1 / t711; t713 = t6 * t712; t714 = t31 * t655; t718 = t25 * t227; t731 = t63 * t1; t736 = 0.1e1 / t46 / t731 / t68 / t70 / 0.3e1; t737 = p->cam_omega * t736; t739 = t737 * t100 * t63; t741 = t236 * t713 * t655; t745 = t252 * t259 * M_PI; t749 = t252 * t311 * M_PI; t753 = t22 * t654 * t655; t757 = t22 * t202 * t702; t760 = t213 * t99; t763 = t32 * t310; t766 = t49 * t63; t767 = t737 * t766; t770 = t32 * M_PI; t771 = t252 * t770; t781 = (0.9e1 / 0.8e1 * t767 * t741 - t771 * t256 / 0.6e1 - t263 * t753 / 0.2e1 + t263 * t757 / 0.4e1 + 0.2e1 / 0.9e1 * t48 * t213) * t54; t782 = t781 * t19; t785 = t19 * t20; t786 = t269 * t785; t787 = t26 * t273; t789 = t202 * t787 * t227; t793 = t21 * t232 * t273; t796 = t272 * t272; t797 = 0.1e1 / t796; t798 = t26 * t797; t801 = -0.4e1 * t230 + 0.8e1 / 0.3e1 * t234; t803 = t88 * t798 * t801; t807 = t737 * t96 * t63; t811 = t252 * t282 * M_PI; t815 = t252 * t307 * M_PI; t822 = t213 * t95; t825 = t32 * t306; t828 = t702 * t80; t832 = t227 * t290; t840 = t78 * t79 * t828 / 0.48e2 - t78 * t79 * t832 / 0.36e2 + 0.5e1 / 0.216e3 * t78 * t79 * t42 * t28; t854 = 0.25132741228718345908e2 * t87 * t657 - 0.16755160819145563939e2 * t87 * t661 - 0.12566370614359172954e2 * t87 * t704 - 0.27925268031909273231e1 * t87 * t88 * t32; t855 = t85 * t854; t857 = t302 * t302; t859 = t92 * t92; t860 = 0.1e1 / t859; t862 = -0.2e1 * t295 * t302 * t304 + t85 * t857 * t860 - t304 * t855 - t840 * t93; t863 = t49 * t862; t866 = -0.4e1 * t782 * t275 + 0.4e1 * t786 * t789 - 0.8e1 / 0.3e1 * t270 * t793 + 0.4e1 * t786 * t803 + 0.9e1 / 0.32e2 * t807 * t741 - t811 * t256 / 0.24e2 + t815 * t256 / 0.8e1 - t279 * t753 / 0.8e1 + t279 * t757 / 0.16e2 + t48 * t822 / 0.18e2 - t48 * t825 / 0.12e2 + t48 * t863 / 0.8e1; t867 = t49 * t866; t871 = my_piecewise3(t52, 0.8e1 / 0.9e1 * t658 - 0.16e2 / 0.27e2 * t662 - 0.4e1 / 0.9e1 * t705 - 0.8e1 / 0.81e2 * t709 - 0.48e2 / 0.5e1 * t237 * t713 * t714 + 0.128e3 / 0.15e2 * t237 * t240 * t718 + 0.16e2 / 0.5e1 * t237 * t240 * t31 * t702 - 0.32e2 / 0.45e2 * t65 * t68 * t70 * t80, -0.3e1 * t739 * t741 + 0.4e1 / 0.9e1 * t745 * t256 - 0.4e1 / 0.3e1 * t749 * t256 + 0.4e1 / 0.3e1 * t254 * t753 - 0.2e1 / 0.3e1 * t254 * t757 - 0.16e2 / 0.27e2 * t48 * t760 + 0.8e1 / 0.9e1 * t48 * t763 - 0.4e1 / 0.3e1 * t48 * t867); t872 = t871 * t42; t874 = t7 * t17 * t872; t875 = 0.3e1 / 0.8e1 * t874; t876 = t315 * t227; t878 = t7 * t17 * t876; t879 = 0.3e1 / 0.4e1 * t878; t880 = t104 * t702; t882 = t7 * t17 * t880; t883 = 0.3e1 / 0.8e1 * t882; t884 = t110 * t110; t887 = t4 * t6 / t884; t888 = t327 * t327; t889 = t131 * t888; t891 = t887 * t326 * t889; t892 = t891 / 0.6e1; t893 = t196 * t176; t895 = t325 * t893 * t328; t896 = t895 / 0.3e1; t897 = -t637; t898 = t131 * t897; t900 = t325 * t326 * t898; t901 = t900 / 0.2e1; t902 = t111 * t643; t904 = t7 * t902 * t177; t905 = t904 / 0.12e2; t906 = -t623 - t627 - t630 - t633 - t641 + t647 - t650 - t653 - t875 - t879 - t883 - t892 - t896 - t901 + t905; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[0] = -t193 - t611 - 0.3e1 / 0.4e1 * t318 - 0.3e1 / 0.4e1 * t322 - t330 - t614 + t9 * t906; t908 = t340 * t190; t910 = t618 * t185 * t908; t913 = t184 * t624 * t340; t916 = t184 * t628 * t340; t918 = t227 * t339; t920 = t184 * t185 * t918; t923 = 0.1e1 / t195 / t186; t924 = t923 * t104; t925 = t42 * t8; t927 = t184 * t924 * t925; t932 = t345 * t327; t934 = t887 * t326 * t932; t937 = t325 * t893 * t345; t939 = t923 * t176; t940 = t131 * t8; t942 = t325 * t939 * t940; t945 = t16 * t460; t947 = t325 * t945 * t328; t950 = t7 * t332 * t461; t952 = t374 * t327; t954 = t325 * t326 * t952; t957 = t7 * t332 * t465; t959 = -t910 / 0.6e1 - t913 / 0.6e1 - t916 / 0.2e1 - t920 / 0.2e1 - t927 / 0.2e1 - t626 / 0.6e1 + t647 - t649 / 0.8e1 - t652 / 0.8e1 - t934 / 0.6e1 - t937 / 0.6e1 + t942 / 0.2e1 - t895 / 0.6e1 + t905 - t947 / 0.2e1 - t950 / 0.8e1 - t954 / 0.2e1 - t957 / 0.8e1; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[1] = t9 * t959 - t194 - t319 - t323 - t331 - t343 - t348 - t464 - t468 - t611 - t614; t963 = t339 * t339; t964 = t42 * t963; t966 = t618 * t185 * t964; t967 = t966 / 0.6e1; t968 = t913 / 0.3e1; t969 = t187 + t636; t970 = t42 * t969; t972 = t184 * t185 * t970; t973 = t972 / 0.2e1; t974 = t344 * t344; t975 = t131 * t974; t977 = t887 * t326 * t975; t978 = t977 / 0.6e1; t979 = t937 / 0.3e1; t981 = t325 * t945 * t345; t982 = t374 * t344; t984 = t325 * t326 * t982; t985 = -t969; t986 = t131 * t985; t988 = t325 * t326 * t986; t989 = t988 / 0.2e1; t990 = t950 / 0.4e1; t991 = t957 / 0.4e1; t992 = t5 * t384; t993 = t374 * t374; t994 = t115 * t993; t995 = t992 * t994; t996 = t201 * t995; t998 = t138 * t374; t999 = t349 * t998; t1000 = t201 * t999; t1002 = t113 * t113; t1004 = 0.1e1 / t115 / t1002; t1005 = sigma[2] * t1004; t1013 = 0.1e1 / t357 / t126; t1014 = t369 * t369; t1015 = t1013 * t1014; t1020 = 0.1e1 / t114 / t350; t1026 = sigma[2] * sigma[2]; t1029 = 0.1e1 / t114 / t1002 / t350; t1032 = 0.1e1 / t365 / t364; t1035 = 0.78400000000000000000e-1 * t119 * t1020 * t123 + 0.16800000000000000000e0 * t1005 * t366 - 0.44800000000000000000e-1 * t1026 * t1029 * t1032; t1036 = t358 * t1035; t1040 = 0.91259259259259259260e-2 * t23 * t1005 * t127 + 0.49777777777777777778e-2 * t23 * t353 * t370 + 0.18666666666666666666e-2 * t23 * t118 * t1015 - 0.93333333333333333332e-3 * t23 * t118 * t1036; t1042 = t349 * t115 * t1040; t1043 = t201 * t1042; t1045 = t132 * t121; t1047 = t56 * t21 * t1045; t1049 = t146 * t146; t1050 = 0.1e1 / t1049; t1051 = t6 * t1050; t1052 = t120 * t993; t1056 = t114 * t374; t1073 = 0.1e1 / t135 / t731 / t68 / t147 / 0.3e1; t1074 = p->cam_omega * t1073; t1076 = t1074 * t172 * t63; t1078 = t236 * t1051 * t993; t1082 = t397 * t404 * M_PI; t1086 = t397 * t456 * M_PI; t1090 = t22 * t992 * t993; t1094 = t22 * t349 * t1040; t1097 = t360 * t171; t1100 = t121 * t455; t1103 = t138 * t63; t1104 = t1074 * t1103; t1107 = t121 * M_PI; t1108 = t397 * t1107; t1118 = (0.9e1 / 0.8e1 * t1104 * t1078 - t1108 * t401 / 0.6e1 - t408 * t1090 / 0.2e1 + t408 * t1094 / 0.4e1 + 0.2e1 / 0.9e1 * t137 * t360) * t54; t1119 = t1118 * t19; t1122 = t414 * t785; t1123 = t115 * t418; t1125 = t349 * t1123 * t374; t1129 = t21 * t379 * t418; t1132 = t417 * t417; t1133 = 0.1e1 / t1132; t1134 = t115 * t1133; t1137 = -0.4e1 * t377 + 0.8e1 / 0.3e1 * t381; t1139 = t160 * t1134 * t1137; t1143 = t1074 * t168 * t63; t1147 = t397 * t427 * M_PI; t1151 = t397 * t452 * M_PI; t1158 = t360 * t167; t1161 = t121 * t451; t1164 = t1040 * t154; t1168 = t374 * t435; t1176 = t78 * t79 * t1164 / 0.48e2 - t78 * t79 * t1168 / 0.36e2 + 0.5e1 / 0.216e3 * t78 * t79 * t131 * t117; t1190 = 0.25132741228718345908e2 * t87 * t995 - 0.16755160819145563939e2 * t87 * t999 - 0.12566370614359172954e2 * t87 * t1042 - 0.27925268031909273231e1 * t87 * t160 * t121; t1191 = t159 * t1190; t1193 = t447 * t447; t1195 = t164 * t164; t1196 = 0.1e1 / t1195; t1198 = t1193 * t1196 * t159 - 0.2e1 * t440 * t447 * t449 - t1176 * t165 - t1191 * t449; t1199 = t138 * t1198; t1202 = -0.4e1 * t1119 * t420 + 0.4e1 * t1122 * t1125 - 0.8e1 / 0.3e1 * t415 * t1129 + 0.4e1 * t1122 * t1139 + 0.9e1 / 0.32e2 * t1143 * t1078 - t1147 * t401 / 0.24e2 + t1151 * t401 / 0.8e1 - t424 * t1090 / 0.8e1 + t424 * t1094 / 0.16e2 + t137 * t1158 / 0.18e2 - t137 * t1161 / 0.12e2 + t137 * t1199 / 0.8e1; t1203 = t138 * t1202; t1207 = my_piecewise3(t141, 0.8e1 / 0.9e1 * t996 - 0.16e2 / 0.27e2 * t1000 - 0.4e1 / 0.9e1 * t1043 - 0.8e1 / 0.81e2 * t1047 - 0.48e2 / 0.5e1 * t237 * t1051 * t1052 + 0.128e3 / 0.15e2 * t237 * t385 * t1056 + 0.16e2 / 0.5e1 * t237 * t385 * t120 * t1040 - 0.32e2 / 0.45e2 * t65 * t68 * t147 * t154, -0.3e1 * t1076 * t1078 + 0.4e1 / 0.9e1 * t1082 * t401 - 0.4e1 / 0.3e1 * t1086 * t401 + 0.4e1 / 0.3e1 * t399 * t1090 - 0.2e1 / 0.3e1 * t399 * t1094 - 0.16e2 / 0.27e2 * t137 * t1097 + 0.8e1 / 0.9e1 * t137 * t1100 - 0.4e1 / 0.3e1 * t137 * t1203); t1208 = t1207 * t131; t1210 = t7 * t112 * t1208; t1211 = 0.3e1 / 0.8e1 * t1210; t1212 = t460 * t374; t1214 = t7 * t112 * t1212; t1215 = 0.3e1 / 0.4e1 * t1214; t1216 = t176 * t1040; t1218 = t7 * t112 * t1216; t1219 = 0.3e1 / 0.8e1 * t1218; t1220 = -t967 - t968 - t973 + t647 - t978 - t979 - t981 - t984 - t989 + t905 - t990 - t991 - t1211 - t1215 - t1219; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rho2[2] = -t342 - t611 - t347 - t614 - 0.3e1 / 0.4e1 * t463 - 0.3e1 / 0.4e1 * t467 + t9 * t1220; t1222 = 0.3e1 / 0.8e1 * t536; t1223 = 0.3e1 / 0.8e1 * t539; t1224 = t16 * t533; t1226 = t184 * t1224 * t191; t1227 = t1226 / 0.2e1; t1229 = t7 * t197 * t534; t1230 = t1229 / 0.8e1; t1235 = t49 * t486; t1243 = t28 * t211; t1251 = t22 * t5 * sigma[0]; t1252 = t28 * t675; t1253 = t481 * t222; t1254 = t1252 * t1253; t1262 = t664 * t24; t1264 = 0.1e1 / t25 / t1262; t1265 = t1264 * t694; t1268 = -0.16800000000000000000e-1 * t475 * t213 * t34 - 0.50400000000000000000e-1 * t205 * t219 + 0.16800000000000000000e-1 * t1265 * sigma[0]; t1269 = t211 * t1268; t1273 = -0.24888888888888888889e-2 * t22 * t5 * t205 * t38 - 0.93333333333333333332e-3 * t23 * t1243 * t222 + 0.24888888888888888889e-2 * t23 * t206 * t482 + 0.18666666666666666666e-2 * t1251 * t1254 - 0.93333333333333333332e-3 * t23 * t29 * t1269; t1274 = t26 * t1273; t1282 = t25 * t486; t1286 = t31 * t1273; t1291 = t236 * t6; t1292 = t712 * t486; t1294 = t1291 * t1292 * t227; t1302 = t23 * t505 * t227; t1306 = t22 * t202 * t1273; t1310 = t252 * t529 * M_PI; t1313 = t32 * t528; t1316 = t500 * t736; t1317 = t63 * t63; t1319 = t1316 * t25 * t1317; t1321 = 0.1e1 / t711 / t42; t1322 = t1321 * t486; t1323 = t273 * t227; t1324 = t1322 * t1323; t1329 = t501 * t80 * t63 * t1; t1331 = t68 * t712; t1332 = t486 * t273; t1334 = t1331 * t1332 * t227; t1337 = t239 * t1273; t1339 = t68 * t1337 * t273; t1342 = t68 * t239; t1343 = t486 * t797; t1345 = t1342 * t1343 * t801; t1359 = t252 * t525 * M_PI; t1362 = t32 * t524; t1365 = t6 * t1273; t1369 = t290 * t93; t1374 = t80 * t302 * t304; t1378 = t295 * t54; t1379 = t1378 * t22; t1382 = t518 * t23; t1383 = t239 * t26; t1384 = t486 * t304; t1385 = t1384 * t227; t1386 = t1383 * t1385; t1390 = t202 * t1235 * t304; t1394 = t202 * t1274 * t304; t1397 = t70 * t26; t1398 = t486 * t860; t1399 = t1398 * t302; t1400 = t1397 * t1399; t1403 = -t512 * t1365 * t514 / 0.48e2 + t512 * t513 * t1369 / 0.72e2 - t512 * t513 * t1374 / 0.48e2 + 0.12566370614359172954e2 * t1379 * t521 - 0.25132741228718345908e2 * t1382 * t1386 + 0.83775804095727819693e1 * t519 * t1390 + 0.12566370614359172954e2 * t519 * t1394 - 0.12566370614359172954e2 * t1382 * t1400; t1404 = t49 * t1403; t1407 = -0.54e2 * t1319 * t1324 - t1329 * t507 + 0.9e1 * t504 * t1334 - 0.3e1 * t504 * t1339 + 0.3e1 * t504 * t1345 + 0.9e1 / 0.32e2 * t807 * t1294 - t811 * t497 / 0.48e2 + t815 * t497 / 0.16e2 - t279 * t1302 / 0.8e1 + t279 * t1306 / 0.16e2 + t1359 * t256 / 0.16e2 - t48 * t1362 / 0.24e2 + t48 * t1404 / 0.8e1; t1408 = t49 * t1407; t1412 = my_piecewise3(t52, 0.8e1 / 0.9e1 * t201 * t654 * t487 * t227 - 0.8e1 / 0.27e2 * t201 * t202 * t1235 - 0.4e1 / 0.9e1 * t201 * t202 * t1274 - 0.48e2 / 0.5e1 * t237 * t713 * t491 * t227 + 0.64e2 / 0.15e2 * t237 * t240 * t1282 + 0.16e2 / 0.5e1 * t237 * t240 * t1286, -0.3e1 * t739 * t1294 + 0.2e1 / 0.9e1 * t745 * t497 - 0.2e1 / 0.3e1 * t749 * t497 + 0.4e1 / 0.3e1 * t254 * t1302 - 0.2e1 / 0.3e1 * t254 * t1306 - 0.2e1 / 0.3e1 * t1310 * t256 + 0.4e1 / 0.9e1 * t48 * t1313 - 0.4e1 / 0.3e1 * t48 * t1408); t1413 = t1412 * t42; t1415 = t7 * t17 * t1413; t1416 = 0.3e1 / 0.8e1 * t1415; t1417 = t533 * t227; t1419 = t7 * t17 * t1417; t1420 = 0.3e1 / 0.8e1 * t1419; t1421 = t486 * t190; t1423 = t184 * t185 * t1421; t1424 = t1423 / 0.2e1; t1426 = t7 * t197 * t537; t1427 = t1426 / 0.8e1; t1428 = t315 * t486; t1430 = t7 * t17 * t1428; t1431 = 0.3e1 / 0.8e1 * t1430; t1432 = t104 * t1273; t1434 = t7 * t17 * t1432; t1435 = 0.3e1 / 0.8e1 * t1434; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[0] = -t1222 - t1223 + t9 * (-t1227 - t1230 - t1416 - t1420 - t1424 - t1427 - t1431 - t1435); if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[1] = 0.0e0; t1438 = 0.3e1 / 0.8e1 * t605; t1439 = 0.3e1 / 0.8e1 * t608; t1440 = t16 * t602; t1442 = t325 * t1440 * t328; t1443 = t1442 / 0.2e1; t1445 = t7 * t332 * t603; t1446 = t1445 / 0.8e1; t1447 = t557 * t327; t1449 = t325 * t326 * t1447; t1450 = t1449 / 0.2e1; t1452 = t7 * t332 * t606; t1453 = t1452 / 0.8e1; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[2] = -t1438 - t1439 + t9 * (-t1443 - t1446 - t1450 - t1453); t1457 = t184 * t1224 * t340; t1458 = t1457 / 0.2e1; t1459 = t486 * t339; t1461 = t184 * t185 * t1459; t1462 = t1461 / 0.2e1; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[3] = -t1222 - t1223 + t9 * (-t1458 - t1230 - t1462 - t1427); if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[4] = 0.0e0; t1466 = t325 * t1440 * t345; t1467 = t1466 / 0.2e1; t1472 = t138 * t557; t1480 = t117 * t358; t1488 = t22 * t5 * sigma[2]; t1489 = t117 * t1013; t1490 = t552 * t369; t1491 = t1489 * t1490; t1499 = t1002 * t113; t1501 = 0.1e1 / t114 / t1499; t1502 = t1501 * t1032; t1505 = -0.16800000000000000000e-1 * t546 * t360 * t123 - 0.50400000000000000000e-1 * t352 * t366 + 0.16800000000000000000e-1 * t1502 * sigma[2]; t1506 = t358 * t1505; t1510 = -0.24888888888888888889e-2 * t22 * t5 * t352 * t127 - 0.93333333333333333332e-3 * t23 * t1480 * t369 + 0.24888888888888888889e-2 * t23 * t353 * t553 + 0.18666666666666666666e-2 * t1488 * t1491 - 0.93333333333333333332e-3 * t23 * t118 * t1506; t1511 = t115 * t1510; t1519 = t114 * t557; t1523 = t120 * t1510; t1528 = t1050 * t557; t1530 = t1291 * t1528 * t374; t1538 = t23 * t575 * t374; t1542 = t22 * t349 * t1510; t1546 = t397 * t598 * M_PI; t1549 = t121 * t597; t1552 = t500 * t1073; t1554 = t1552 * t114 * t1317; t1556 = 0.1e1 / t1049 / t131; t1557 = t1556 * t557; t1558 = t418 * t374; t1559 = t1557 * t1558; t1564 = t571 * t154 * t63 * t1; t1566 = t68 * t1050; t1567 = t557 * t418; t1569 = t1566 * t1567 * t374; t1572 = t384 * t1510; t1574 = t68 * t1572 * t418; t1577 = t68 * t384; t1578 = t557 * t1133; t1580 = t1577 * t1578 * t1137; t1594 = t397 * t594 * M_PI; t1597 = t121 * t593; t1600 = t6 * t1510; t1604 = t435 * t165; t1609 = t154 * t447 * t449; t1613 = t440 * t54; t1614 = t1613 * t22; t1617 = t587 * t23; t1618 = t384 * t115; t1619 = t557 * t449; t1620 = t1619 * t374; t1621 = t1618 * t1620; t1625 = t349 * t1472 * t449; t1629 = t349 * t1511 * t449; t1632 = t147 * t115; t1633 = t557 * t1196; t1634 = t1633 * t447; t1635 = t1632 * t1634; t1638 = -t512 * t1600 * t583 / 0.48e2 + t512 * t582 * t1604 / 0.72e2 - t512 * t582 * t1609 / 0.48e2 + 0.12566370614359172954e2 * t1614 * t590 - 0.25132741228718345908e2 * t1617 * t1621 + 0.83775804095727819693e1 * t588 * t1625 + 0.12566370614359172954e2 * t588 * t1629 - 0.12566370614359172954e2 * t1617 * t1635; t1639 = t138 * t1638; t1642 = -0.54e2 * t1554 * t1559 - t1564 * t577 + 0.9e1 * t574 * t1569 - 0.3e1 * t574 * t1574 + 0.3e1 * t574 * t1580 + 0.9e1 / 0.32e2 * t1143 * t1530 - t1147 * t568 / 0.48e2 + t1151 * t568 / 0.16e2 - t424 * t1538 / 0.8e1 + t424 * t1542 / 0.16e2 + t1594 * t401 / 0.16e2 - t137 * t1597 / 0.24e2 + t137 * t1639 / 0.8e1; t1643 = t138 * t1642; t1647 = my_piecewise3(t141, 0.8e1 / 0.9e1 * t201 * t992 * t558 * t374 - 0.8e1 / 0.27e2 * t201 * t349 * t1472 - 0.4e1 / 0.9e1 * t201 * t349 * t1511 - 0.48e2 / 0.5e1 * t237 * t1051 * t562 * t374 + 0.64e2 / 0.15e2 * t237 * t385 * t1519 + 0.16e2 / 0.5e1 * t237 * t385 * t1523, -0.3e1 * t1076 * t1530 + 0.2e1 / 0.9e1 * t1082 * t568 - 0.2e1 / 0.3e1 * t1086 * t568 + 0.4e1 / 0.3e1 * t399 * t1538 - 0.2e1 / 0.3e1 * t399 * t1542 - 0.2e1 / 0.3e1 * t1546 * t401 + 0.4e1 / 0.9e1 * t137 * t1549 - 0.4e1 / 0.3e1 * t137 * t1643); t1648 = t1647 * t131; t1650 = t7 * t112 * t1648; t1651 = 0.3e1 / 0.8e1 * t1650; t1652 = t602 * t374; t1654 = t7 * t112 * t1652; t1655 = 0.3e1 / 0.8e1 * t1654; t1656 = t557 * t344; t1658 = t325 * t326 * t1656; t1659 = t1658 / 0.2e1; t1660 = t460 * t557; t1662 = t7 * t112 * t1660; t1663 = 0.3e1 / 0.8e1 * t1662; t1664 = t176 * t1510; t1666 = t7 * t112 * t1664; t1667 = 0.3e1 / 0.8e1 * t1666; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2rhosigma[5] = -t1438 - t1439 + t9 * (-t1467 - t1446 - t1651 - t1655 - t1659 - t1453 - t1663 - t1667); t1670 = t486 * t486; t1671 = t26 * t1670; t1678 = t481 * t481; t1679 = t675 * t1678; t1684 = 0.1e1 / t30 / sigma[0]; t1688 = 0.1e1 / sigma[0]; t1692 = t664 * rho[0]; t1694 = 0.1e1 / t25 / t1692; t1697 = -0.63000000000000000000e-2 * t1684 * t32 * t34 + 0.63000000000000000000e-2 * t1688 * t28 * t219 - 0.63000000000000000000e-2 * t1694 * t694; t1698 = t211 * t1697; t1702 = -0.18666666666666666666e-2 * t23 * t1243 * t481 + 0.18666666666666666666e-2 * t23 * t29 * t1679 - 0.93333333333333333332e-3 * t23 * t29 * t1698; t1703 = t26 * t1702; t1707 = t31 * t1670; t1711 = t31 * t1702; t1717 = t236 * t713 * t1670; t1723 = t22 * t654 * t1670; t1727 = t22 * t202 * t1702; t1730 = t1316 * t25; t1731 = t1317 * t1321; t1732 = t1670 * t273; t1733 = t1731 * t1732; t1736 = t712 * t1670; t1738 = t68 * t1736 * t273; t1741 = t239 * t1702; t1743 = t68 * t1741 * t273; t1746 = t53 * p->cam_omega; t1747 = 0.1e1 / t1746; t1748 = t1747 * t251; t1749 = t1748 * rho[0]; t1750 = t1670 * t797; t1762 = t6 * t1702; t1766 = t1670 * t70; t1769 = t2 * t1670; t1770 = t70 * t304; t1774 = t654 * t1671 * t304; t1778 = t202 * t1703 * t304; t1781 = t85 * t62; t1782 = t1781 * t236; t1784 = t713 * t1707 * t860; t1787 = -t512 * t1762 * t514 / 0.48e2 + 0.10000000000000000000e1 * t1766 * t304 + M_PI * t1769 * t1770 - 0.25132741228718345908e2 * t519 * t1774 + 0.12566370614359172954e2 * t519 * t1778 + 0.47374101125228921372e3 * t1782 * t1784; t1788 = t49 * t1787; t1791 = -0.54e2 * t1730 * t1733 + 0.9e1 * t504 * t1738 - 0.3e1 * t504 * t1743 - 0.144e3 * t1749 * t1731 * t1750 + 0.9e1 / 0.32e2 * t807 * t1717 + t1359 * t497 / 0.8e1 - t279 * t1723 / 0.8e1 + t279 * t1727 / 0.16e2 + t48 * t1788 / 0.8e1; t1792 = t49 * t1791; t1796 = my_piecewise3(t52, 0.8e1 / 0.9e1 * t201 * t654 * t1671 - 0.4e1 / 0.9e1 * t201 * t202 * t1703 - 0.48e2 / 0.5e1 * t237 * t713 * t1707 + 0.16e2 / 0.5e1 * t237 * t240 * t1711, -0.3e1 * t739 * t1717 - 0.4e1 / 0.3e1 * t1310 * t497 + 0.4e1 / 0.3e1 * t254 * t1723 - 0.2e1 / 0.3e1 * t254 * t1727 - 0.4e1 / 0.3e1 * t48 * t1792); t1797 = t1796 * t42; t1800 = 0.3e1 / 0.8e1 * t7 * t17 * t1797; t1801 = t533 * t486; t1804 = 0.3e1 / 0.4e1 * t7 * t17 * t1801; t1805 = t104 * t1702; t1808 = 0.3e1 / 0.8e1 * t7 * t17 * t1805; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[0] = t9 * (-t1800 - t1804 - t1808); if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[1] = 0.0e0; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[2] = 0.0e0; 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; t1810 = t557 * t557; t1811 = t115 * t1810; t1818 = t552 * t552; t1819 = t1013 * t1818; t1824 = 0.1e1 / t119 / sigma[2]; t1828 = 0.1e1 / sigma[2]; t1832 = t1002 * rho[1]; t1834 = 0.1e1 / t114 / t1832; t1837 = -0.63000000000000000000e-2 * t1824 * t121 * t123 + 0.63000000000000000000e-2 * t1828 * t117 * t366 - 0.63000000000000000000e-2 * t1834 * t1032; t1838 = t358 * t1837; t1842 = -0.18666666666666666666e-2 * t23 * t1480 * t552 + 0.18666666666666666666e-2 * t23 * t118 * t1819 - 0.93333333333333333332e-3 * t23 * t118 * t1838; t1843 = t115 * t1842; t1847 = t120 * t1810; t1851 = t120 * t1842; t1857 = t236 * t1051 * t1810; t1863 = t22 * t992 * t1810; t1867 = t22 * t349 * t1842; t1870 = t1552 * t114; t1871 = t1317 * t1556; t1872 = t1810 * t418; t1873 = t1871 * t1872; t1876 = t1050 * t1810; t1878 = t68 * t1876 * t418; t1881 = t384 * t1842; t1883 = t68 * t1881 * t418; t1886 = t1747 * t396; t1887 = t1886 * rho[1]; t1888 = t1810 * t1133; t1900 = t6 * t1842; t1904 = t1810 * t147; t1907 = t2 * t1810; t1908 = t147 * t449; t1912 = t992 * t1811 * t449; t1916 = t349 * t1843 * t449; t1919 = t159 * t62; t1920 = t1919 * t236; t1922 = t1051 * t1847 * t1196; t1925 = -t512 * t1900 * t583 / 0.48e2 + 0.10000000000000000000e1 * t1904 * t449 + M_PI * t1907 * t1908 - 0.25132741228718345908e2 * t588 * t1912 + 0.12566370614359172954e2 * t588 * t1916 + 0.47374101125228921372e3 * t1920 * t1922; t1926 = t138 * t1925; t1929 = -0.54e2 * t1870 * t1873 + 0.9e1 * t574 * t1878 - 0.3e1 * t574 * t1883 - 0.144e3 * t1887 * t1871 * t1888 + 0.9e1 / 0.32e2 * t1143 * t1857 + t1594 * t568 / 0.8e1 - t424 * t1863 / 0.8e1 + t424 * t1867 / 0.16e2 + t137 * t1926 / 0.8e1; t1930 = t138 * t1929; t1934 = my_piecewise3(t141, 0.8e1 / 0.9e1 * t201 * t992 * t1811 - 0.4e1 / 0.9e1 * t201 * t349 * t1843 - 0.48e2 / 0.5e1 * t237 * t1051 * t1847 + 0.16e2 / 0.5e1 * t237 * t385 * t1851, -0.3e1 * t1076 * t1857 - 0.4e1 / 0.3e1 * t1546 * t568 + 0.4e1 / 0.3e1 * t399 * t1863 - 0.2e1 / 0.3e1 * t399 * t1867 - 0.4e1 / 0.3e1 * t137 * t1930); t1935 = t1934 * t131; t1938 = 0.3e1 / 0.8e1 * t7 * t112 * t1935; t1939 = t602 * t557; t1942 = 0.3e1 / 0.4e1 * t7 * t112 * t1939; t1943 = t176 * t1842; t1946 = 0.3e1 / 0.8e1 * t7 * t112 * t1943; if(v2rho2 != NULL && (p->info->flags & XC_FLAGS_HAVE_FXC)) v2sigma2[5] = t9 * (-t1938 - t1942 - t1946); #ifndef XC_DONT_COMPILE_KXC if(order < 3) return; t1949 = t7 * t197 * t872; t1952 = t7 * t644 * t316; t1953 = t1952 / 0.4e1; t1954 = t15 * t923; t1956 = t7 * t1954 * t105; t1957 = 0.5e1 / 0.36e2 * t1956; t1958 = t5 * t712; t1959 = t655 * t227; t1961 = t1958 * t26 * t1959; t1962 = t201 * t1961; t1965 = t654 * t49 * t655; t1966 = t201 * t1965; t1970 = t201 * t654 * t228 * t702; t1973 = t202 * t32 * t227; t1974 = t201 * t1973; t1977 = t202 * t49 * t702; t1978 = t201 * t1977; t1981 = 0.1e1 / t26 / t1692; t1982 = sigma[0] * t1981; t1995 = t210 * t210; t1996 = 0.1e1 / t1995; t1997 = t676 * t222; t1998 = t1996 * t1997; t2002 = t222 * t697; t2003 = t1252 * t2002; t2007 = 0.1e1 / t25 / t664; t2013 = t664 * t664; t2015 = 0.1e1 / t25 / t2013; t2019 = t688 * sigma[0]; t2020 = t2013 * t203; t2021 = 0.1e1 / t2020; t2023 = t217 * t217; t2025 = 0.1e1 / t218 / t2023; t2028 = -0.26133333333333333333e0 * t30 * t2007 * t34 - 0.88853333333333333333e0 * t1982 * t219 + 0.55253333333333333333e0 * t688 * t2015 * t694 - 0.17920000000000000000e0 * t2019 * t2021 * t2025; t2029 = t211 * t2028; t2033 = -0.42587654320987654321e-1 * t23 * t1982 * t38 - 0.27377777777777777778e-1 * t23 * t667 * t223 - 0.14933333333333333333e-1 * t23 * t206 * t677 + 0.74666666666666666667e-2 * t23 * t206 * t698 - 0.55999999999999999998e-2 * t23 * t29 * t1998 + 0.55999999999999999998e-2 * t1251 * t2003 - 0.93333333333333333332e-3 * t23 * t29 * t2029; t2035 = t202 * t26 * t2033; t2036 = t201 * t2035; t2038 = t43 * t213; t2040 = t56 * t21 * t2038; t2042 = t6 * t1321; t2070 = -0.8e1 / 0.3e1 * t1962 + 0.16e2 / 0.9e1 * t1966 + 0.8e1 / 0.3e1 * t1970 + 0.8e1 / 0.27e2 * t1974 - 0.8e1 / 0.9e1 * t1978 - 0.4e1 / 0.9e1 * t2036 + 0.32e2 / 0.243e3 * t2040 + 0.192e3 / 0.5e1 * t237 * t2042 * t31 * t1959 - 0.192e3 / 0.5e1 * t237 * t713 * t25 * t655 - 0.144e3 / 0.5e1 * t237 * t713 * t241 * t702 + 0.64e2 / 0.15e2 * t237 * t240 * t285 + 0.64e2 / 0.5e1 * t237 * t240 * t25 * t702 + 0.16e2 / 0.5e1 * t237 * t240 * t31 * t2033 + 0.64e2 / 0.135e3 * t65 * t68 * t70 * t290; t2072 = t252 * t822 * M_PI; t2079 = t49 * t273; t2081 = t202 * t2079 * t227; t2085 = 0.1e1 / t796 / t272; t2087 = t801 * t801; t2089 = t88 * t26 * t2085 * t2087; t2093 = t737 * t282 * t63; t2097 = t654 * t787 * t655; t2100 = t32 * t862; t2103 = t682 * t95; t2122 = t78 * t79 * t2033 * t80 / 0.48e2 - t78 * t79 * t702 * t290 / 0.24e2 + 0.5e1 / 0.72e2 * t78 * t79 * t227 * t28 - 0.5e1 / 0.81e2 * t78 * t79 * t42 * t205; t2127 = t295 * t854; t2137 = t86 * t21; t2138 = t227 * t702; t2151 = -0.75398223686155037724e2 * t87 * t1961 + 0.50265482457436691817e2 * t87 * t1965 + 0.75398223686155037724e2 * t2137 * t1383 * t2138 + 0.83775804095727819694e1 * t87 * t1973 - 0.25132741228718345908e2 * t87 * t1977 - 0.12566370614359172954e2 * t87 * t2035 + 0.37233690709212364308e1 * t87 * t88 * t213; t2152 = t85 * t2151; t2154 = t860 * t302; t2157 = t857 * t302; t2160 = 0.1e1 / t859 / t92; t2163 = -0.2e1 * t2157 * t2160 * t85 + 0.3e1 * t295 * t857 * t860 - 0.3e1 * t302 * t304 * t840 - t2122 * t93 - 0.3e1 * t2127 * t304 - t2152 * t304 + 0.3e1 * t2154 * t855; t2164 = t49 * t2163; t2167 = t213 * t306; t2173 = 0.1e1 / t46 / t1317 / t239 / 0.36e2; t2174 = p->cam_omega * t2173; t2175 = t2174 * t49; t2176 = t95 * t1317; t2178 = 0.1e1 / t711 / t69; t2179 = t2178 * t1959; t2180 = t2176 * t2179; t2184 = t202 * t787 * t702; t2188 = t22 * t1958 * t1959; t2192 = t236 * t2042 * t1959; t2195 = t2072 * t256 / 0.12e2 + t811 * t753 / 0.8e1 - 0.3e1 / 0.8e1 * t815 * t753 + 0.16e2 / 0.3e1 * t786 * t2081 - 0.8e1 * t786 * t2089 - 0.9e1 / 0.32e2 * t2093 * t741 - 0.8e1 * t786 * t2097 - t48 * t2100 / 0.8e1 - 0.7e1 / 0.54e2 * t48 * t2103 + t48 * t2164 / 0.8e1 + t48 * t2167 / 0.6e1 + 0.135e3 / 0.16e2 * t2175 * t2180 + 0.4e1 * t786 * t2184 + 0.3e1 / 0.8e1 * t279 * t2188 - 0.27e2 / 0.16e2 * t807 * t2192; t2196 = t49 * t797; t2198 = t88 * t2196 * t801; t2205 = 0.8e1 * t658 - 0.16e2 / 0.3e1 * t662 - 0.4e1 * t705 - 0.8e1 / 0.9e1 * t709; t2207 = t88 * t798 * t2205; t2210 = t781 * t785; t2216 = t737 * t307 * t63; t2220 = t252 * t825 * M_PI; t2226 = t252 * t863 * M_PI; t2232 = t22 * t202 * t2033; t2236 = t21 * t707 * t273; t2240 = t239 * t227 * t702; t2241 = t23 * t2240; t2245 = t712 * t227 * t702; t2246 = t1291 * t2245; t2249 = t202 * t26; t2250 = t797 * t227; t2251 = t2250 * t801; t2252 = t2249 * t2251; t2257 = t1317 * t2178; t2258 = t2257 * t1959; t2261 = t32 * t63; t2262 = t737 * t2261; t2268 = t737 * t766 * t1; t2269 = t68 * t2245; t2273 = t252 * t213 * M_PI; t2283 = t252 * t262 * t18; t2284 = t21 * t2240; t2291 = 0.135e3 / 0.4e1 * t2175 * t2258 - 0.9e1 / 0.8e1 * t2262 * t741 - 0.27e2 / 0.4e1 * t767 * t2192 + 0.27e2 / 0.8e1 * t2268 * t2269 + t2273 * t256 / 0.3e1 + t771 * t753 / 0.2e1 - t771 * t757 / 0.4e1 + 0.3e1 / 0.2e1 * t263 * t2188 - 0.3e1 / 0.2e1 * t2283 * t2284 + t263 * t2232 / 0.4e1 - 0.14e2 / 0.27e2 * t48 * t682; t2292 = t2291 * t54; t2293 = t2292 * t19; t2296 = 0.16e2 / 0.3e1 * t786 * t2198 + 0.4e1 * t786 * t2207 + 0.8e1 * t2210 * t789 + 0.8e1 * t2210 * t803 + 0.27e2 / 0.32e2 * t2216 * t741 - t2220 * t256 / 0.8e1 - t811 * t757 / 0.16e2 + 0.3e1 / 0.16e2 * t2226 * t256 + 0.3e1 / 0.16e2 * t815 * t757 + t279 * t2232 / 0.16e2 + 0.8e1 / 0.9e1 * t270 * t2236 - 0.3e1 / 0.8e1 * t279 * t2241 + 0.27e2 / 0.32e2 * t807 * t2246 - 0.8e1 * t786 * t2252 - 0.16e2 / 0.3e1 * t782 * t793 - 0.4e1 * t2293 * t275; t2297 = t2195 + t2296; t2298 = t49 * t2297; t2301 = t99 * t1317; t2302 = t2301 * t2179; t2305 = t32 * t866; t2308 = t213 * t310; t2311 = t682 * t99; t2319 = t252 * t867 * M_PI; t2323 = t737 * t311 * t63; t2327 = t252 * t763 * M_PI; t2341 = t252 * t760 * M_PI; t2347 = t737 * t259 * t63; t2352 = -0.4e1 / 0.3e1 * t48 * t2298 - 0.90e2 * t2175 * t2302 + 0.4e1 / 0.3e1 * t48 * t2305 - 0.16e2 / 0.9e1 * t48 * t2308 + 0.112e3 / 0.81e2 * t48 * t2311 - 0.2e1 * t749 * t757 - 0.2e1 / 0.3e1 * t254 * t2232 - 0.2e1 * t2319 * t256 - 0.9e1 * t2323 * t741 + 0.4e1 / 0.3e1 * t2327 * t256 + 0.2e1 / 0.3e1 * t745 * t757 + 0.4e1 * t749 * t753 - 0.4e1 * t254 * t2188 + 0.4e1 * t254 * t2241 - 0.9e1 * t739 * t2246 - 0.8e1 / 0.9e1 * t2341 * t256 - 0.4e1 / 0.3e1 * t745 * t753 + 0.3e1 * t2347 * t741 + 0.18e2 * t739 * t2192; t2353 = my_piecewise3(t52, t2070, t2352); t2354 = t2353 * t42; t2356 = t7 * t17 * t2354; t2357 = 0.3e1 / 0.8e1 * t2356; t2359 = t7 * t197 * t876; t2362 = t7 * t644 * t320; t2363 = t2362 / 0.4e1; t2364 = t111 * t923; t2366 = t7 * t2364 * t177; t2367 = 0.5e1 / 0.36e2 * t2366; t2368 = t104 * t2033; t2370 = t7 * t17 * t2368; t2371 = 0.3e1 / 0.8e1 * t2370; t2372 = t315 * t702; t2374 = t7 * t17 * t2372; t2375 = 0.9e1 / 0.8e1 * t2374; t2376 = t871 * t227; t2378 = t7 * t17 * t2376; t2379 = 0.9e1 / 0.8e1 * t2378; t2381 = t7 * t197 * t880; t2383 = t186 * t186; t2384 = 0.1e1 / t2383; t2385 = t8 * t2384; t2387 = 0.3e1 * t635 - 0.3e1 * t2385; t2388 = t42 * t2387; t2390 = t184 * t185 * t2388; t2391 = t2390 / 0.2e1; t2392 = t702 * t190; t2394 = t184 * t185 * t2392; t2395 = 0.3e1 / 0.2e1 * t2394; t2396 = t227 * t637; t2398 = t184 * t185 * t2396; t2399 = 0.3e1 / 0.2e1 * t2398; t2401 = t184 * t628 * t638; t2402 = 0.3e1 / 0.2e1 * t2401; t2404 = t184 * t628 * t631; t2405 = 0.3e1 * t2404; t2406 = -0.3e1 / 0.8e1 * t1949 + t1953 - t1957 - t2357 - 0.3e1 / 0.4e1 * t2359 + t2363 - t2367 - t2371 - t2375 - t2379 - 0.3e1 / 0.8e1 * t2381 - t2391 - t2395 - t2399 - t2402 - t2405; t2408 = t184 * t624 * t631; t2410 = t184 * t624 * t638; t2412 = t16 * t871; t2414 = t184 * t2412 * t191; t2415 = 0.3e1 / 0.2e1 * t2414; t2416 = t227 * t619; t2418 = t618 * t185 * t2416; t2419 = t2418 / 0.2e1; t2420 = t196 * t315; t2422 = t184 * t2420 * t191; t2424 = t618 * t628 * t620; t2425 = t2424 / 0.2e1; t2426 = t643 * t104; t2428 = t184 * t2426 * t191; t2429 = t2428 / 0.3e1; t2432 = t6 / t615 / t13; t2433 = t4 * t2432; t2434 = t619 * t190; t2435 = t42 * t2434; t2437 = t2433 * t185 * t2435; t2438 = t2437 / 0.9e1; t2440 = t618 * t624 * t620; t2442 = t328 * t897; t2444 = t887 * t326 * t2442; t2445 = t2444 / 0.2e1; t2447 = t325 * t893 * t898; t2449 = -t2387; t2450 = t131 * t2449; t2452 = t325 * t326 * t2450; t2453 = t2452 / 0.2e1; t2456 = t6 / t884 / t109; t2457 = t4 * t2456; t2458 = t888 * t327; t2459 = t131 * t2458; t2461 = t2457 * t326 * t2459; t2462 = t2461 / 0.9e1; t2464 = t887 * t893 * t889; t2466 = t643 * t176; t2468 = t325 * t2466 * t328; t2469 = t2468 / 0.3e1; t2470 = t191 * t637; t2472 = t618 * t185 * t2470; t2473 = t2472 / 0.2e1; t2474 = -t2408 - t2410 / 0.2e1 - t2415 - t2419 - t2422 - t2425 + t2429 + t2438 - t2440 / 0.6e1 - t2445 - t2447 / 0.2e1 - t2453 + t2462 - t2464 / 0.6e1 + t2469 - t2473; t2478 = t904 / 0.4e1; t2489 = t646 / 0.4e1; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[0] = t9 * (t2406 + t2474) - 0.3e1 / 0.2e1 * t900 + t2478 - 0.9e1 / 0.8e1 * t882 - 0.9e1 / 0.4e1 * t878 - 0.3e1 / 0.4e1 * t652 - 0.9e1 / 0.8e1 * t874 - 0.3e1 / 0.4e1 * t649 - t891 / 0.2e1 - t895 - t622 / 0.2e1 - t626 - 0.3e1 * t630 - 0.3e1 * t633 - 0.3e1 / 0.2e1 * t640 + t2489; t2491 = t910 / 0.3e1; t2492 = t934 / 0.3e1; t2499 = t340 * t619; t2501 = t2433 * t185 * t2499; t2504 = t618 * t624 * t908; t2505 = t2504 / 0.9e1; t2506 = t925 * t190; t2508 = t618 * t924 * t2506; t2510 = t345 * t888; t2512 = t2457 * t326 * t2510; t2515 = t887 * t893 * t932; t2516 = t2515 / 0.9e1; t2517 = t940 * t327; t2519 = t887 * t939 * t2517; t2521 = -t1949 / 0.8e1 + t1952 / 0.6e1 - t1957 - t2359 / 0.4e1 + t2362 / 0.6e1 + t2501 / 0.9e1 - t2505 - t2508 / 0.3e1 + t2512 / 0.9e1 - t2516 + t2519 / 0.3e1; t2522 = t345 * t897; t2524 = t887 * t326 * t2522; t2526 = t918 * t190; t2528 = t618 * t185 * t2526; t2530 = t340 * t637; t2532 = t618 * t185 * t2530; t2535 = t618 * t628 * t908; t2539 = t184 * t2426 * t340; t2542 = 0.1e1 / t195 / t634; t2543 = t2542 * t104; t2545 = t184 * t2543 * t925; t2547 = t702 * t339; t2549 = t184 * t185 * t2547; t2552 = t184 * t628 * t918; t2553 = t374 * t888; t2555 = t887 * t326 * t2553; t2558 = t325 * t893 * t952; t2559 = t2558 / 0.3e1; t2560 = -t2524 / 0.6e1 - t2528 / 0.3e1 - t2532 / 0.6e1 - t2535 / 0.3e1 - t2367 - t2381 / 0.8e1 + t2539 / 0.9e1 + 0.7e1 / 0.6e1 * t2545 - t2549 / 0.2e1 - t2552 - t2555 / 0.6e1 - t2559; t2563 = t325 * t2466 * t345; t2566 = t887 * t945 * t889; t2568 = t196 * t460; t2570 = t325 * t2568 * t328; t2571 = t2570 / 0.3e1; t2572 = t227 * t8; t2574 = t184 * t924 * t2572; t2575 = t923 * t315; t2577 = t184 * t2575 * t925; t2579 = t184 * t624 * t918; t2580 = t2579 / 0.3e1; t2582 = t184 * t2412 * t340; t2585 = t184 * t2420 * t340; t2586 = t2585 / 0.3e1; t2588 = t325 * t945 * t898; t2590 = t374 * t897; t2592 = t325 * t326 * t2590; t2594 = t2542 * t176; t2596 = t325 * t2594 * t940; t2598 = t2563 / 0.9e1 - t2566 / 0.6e1 - t2571 - t2574 - t2577 - t2580 - t2582 / 0.2e1 - t2586 - t2588 / 0.2e1 - t2592 / 0.2e1 - 0.7e1 / 0.6e1 * t2596; t2604 = t110 * t923; t2606 = t7 * t2604 * t177; t2608 = t14 * t923; t2610 = t7 * t2608 * t105; t2613 = t7 * t902 * t461; t2616 = t7 * t902 * t465; t2621 = -t2408 / 0.3e1 - t2410 / 0.6e1 - t2422 / 0.3e1 + 0.2e1 / 0.9e1 * t2428 - t2440 / 0.18e2 + t2606 / 0.2e1 - t2610 / 0.2e1 + t2613 / 0.12e2 + t2616 / 0.12e2 - t2447 / 0.6e1 - t2464 / 0.18e2 + 0.2e1 / 0.9e1 * t2468; t2625 = -t623 - 0.2e1 / 0.3e1 * t626 - t630 - t633 - t641 - t2491 - t2492 + t2489 - t649 / 0.2e1 - t652 / 0.2e1 + t942 - t947 - t954 + t9 * (t2521 + t2560 + t2598 + t2621); t2627 = -t892 - 0.2e1 / 0.3e1 * t895 - t901 - t968 - t916 - t920 - t927 - t979 - t875 - t879 - t883 + t2478 - t990 - t991; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[1] = t2625 + t2627; t2631 = t7 * t332 * t1208; t2634 = t7 * t332 * t1212; t2637 = t7 * t332 * t1216; t2639 = t340 * t8; t2641 = t618 * t924 * t2639; t2643 = t982 * t327; t2645 = t887 * t326 * t2643; t2647 = t986 * t327; t2649 = t887 * t326 * t2647; t2651 = t975 * t327; t2653 = t2457 * t326 * t2651; t2655 = t345 * t8; t2657 = t887 * t939 * t2655; t2659 = t1952 / 0.12e2 - t1957 + t2362 / 0.12e2 - t2631 / 0.8e1 - t2634 / 0.4e1 - t2637 / 0.8e1 - t2641 / 0.3e1 - t2645 / 0.3e1 - t2649 / 0.6e1 + t2653 / 0.9e1 + t2657 / 0.3e1; t2661 = t887 * t945 * t932; t2663 = t970 * t190; t2665 = t618 * t185 * t2663; t2667 = t964 * t190; t2669 = t2433 * t185 * t2667; t2672 = t325 * t893 * t982; t2675 = t325 * t893 * t986; t2678 = t887 * t893 * t975; t2681 = t325 * t2568 * t345; t2684 = t184 * t624 * t970; t2687 = t618 * t624 * t964; t2689 = -t2661 / 0.3e1 - t2665 / 0.6e1 + t2669 / 0.9e1 - t2505 - t2516 - t2367 - t2672 / 0.3e1 - t2675 / 0.6e1 - t2678 / 0.18e2 - t2681 / 0.3e1 - t2684 / 0.6e1 - t2687 / 0.18e2; t2692 = t325 * t945 * t952; t2693 = t1040 * t327; t2695 = t325 * t326 * t2693; t2697 = t923 * t460; t2699 = t325 * t2697 * t940; t2700 = t374 * t8; t2702 = t325 * t939 * t2700; t2704 = t635 + 0.3e1 * t2385; t2705 = t131 * t2704; t2707 = t325 * t326 * t2705; t2709 = t227 * t969; t2711 = t184 * t185 * t2709; t2713 = -t2704; t2714 = t42 * t2713; t2716 = t184 * t185 * t2714; t2719 = t184 * t628 * t970; t2721 = t227 * t963; t2723 = t618 * t185 * t2721; t2726 = t618 * t628 * t964; t2728 = t16 * t1207; t2730 = t325 * t2728 * t328; t2732 = -t2692 - t2695 / 0.2e1 + t2699 + t2702 - t2707 / 0.2e1 - t2711 / 0.2e1 - t2716 / 0.2e1 - t2719 / 0.2e1 - t2723 / 0.6e1 - t2726 / 0.6e1 - t2730 / 0.2e1; t2741 = 0.2e1 / 0.9e1 * t2539 - t2545 / 0.3e1 - t2559 + 0.2e1 / 0.9e1 * t2563 - t2571 - t2580 - t2586 + t2596 / 0.3e1 + t2428 / 0.9e1 + t2613 / 0.6e1 + t2616 / 0.6e1 + t2468 / 0.9e1; t2745 = -t627 - t2491 - t2492 + t9 * (t2659 + t2689 + t2732 + t2741) + t2489 - t650 - t653 + t942 - t947 - t954 - t967 - t973 - t978 - t981; t2750 = -t984 - t989 - t896 - 0.2e1 / 0.3e1 * t913 - t916 - t920 - t927 - 0.2e1 / 0.3e1 * t937 - t1211 - t1215 - t1219 + t2478 - t950 / 0.2e1 - t957 / 0.2e1; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[2] = t2745 + t2750; t2754 = t5 * t1050; t2755 = t993 * t374; t2757 = t2754 * t115 * t2755; t2758 = t201 * t2757; t2761 = t992 * t138 * t993; t2762 = t201 * t2761; t2766 = t201 * t992 * t375 * t1040; t2769 = t349 * t121 * t374; t2770 = t201 * t2769; t2773 = t349 * t138 * t1040; t2774 = t201 * t2773; t2777 = 0.1e1 / t115 / t1832; t2778 = sigma[2] * t2777; t2791 = t357 * t357; t2792 = 0.1e1 / t2791; t2793 = t1014 * t369; t2794 = t2792 * t2793; t2798 = t369 * t1035; t2799 = t1489 * t2798; t2803 = 0.1e1 / t114 / t1002; t2809 = t1002 * t1002; t2811 = 0.1e1 / t114 / t2809; t2815 = t1026 * sigma[2]; t2816 = t2809 * t350; t2817 = 0.1e1 / t2816; t2819 = t364 * t364; t2821 = 0.1e1 / t365 / t2819; t2824 = -0.26133333333333333333e0 * t119 * t2803 * t123 - 0.88853333333333333333e0 * t2778 * t366 + 0.55253333333333333333e0 * t1026 * t2811 * t1032 - 0.17920000000000000000e0 * t2815 * t2817 * t2821; t2825 = t358 * t2824; t2829 = -0.42587654320987654321e-1 * t23 * t2778 * t127 - 0.27377777777777777778e-1 * t23 * t1005 * t370 - 0.14933333333333333333e-1 * t23 * t353 * t1015 + 0.74666666666666666667e-2 * t23 * t353 * t1036 - 0.55999999999999999998e-2 * t23 * t118 * t2794 + 0.55999999999999999998e-2 * t1488 * t2799 - 0.93333333333333333332e-3 * t23 * t118 * t2825; t2831 = t349 * t115 * t2829; t2832 = t201 * t2831; t2834 = t132 * t360; t2836 = t56 * t21 * t2834; t2838 = t6 * t1556; t2866 = -0.8e1 / 0.3e1 * t2758 + 0.16e2 / 0.9e1 * t2762 + 0.8e1 / 0.3e1 * t2766 + 0.8e1 / 0.27e2 * t2770 - 0.8e1 / 0.9e1 * t2774 - 0.4e1 / 0.9e1 * t2832 + 0.32e2 / 0.243e3 * t2836 + 0.192e3 / 0.5e1 * t237 * t2838 * t120 * t2755 - 0.192e3 / 0.5e1 * t237 * t1051 * t114 * t993 - 0.144e3 / 0.5e1 * t237 * t1051 * t386 * t1040 + 0.64e2 / 0.15e2 * t237 * t385 * t430 + 0.64e2 / 0.5e1 * t237 * t385 * t114 * t1040 + 0.16e2 / 0.5e1 * t237 * t385 * t120 * t2829 + 0.64e2 / 0.135e3 * t65 * t68 * t147 * t435; t2867 = t1020 * t167; t2873 = 0.1e1 / t135 / t1317 / t384 / 0.36e2; t2874 = p->cam_omega * t2873; t2875 = t2874 * t138; t2876 = t167 * t1317; t2878 = 0.1e1 / t1049 / t146; t2879 = t2878 * t2755; t2880 = t2876 * t2879; t2884 = t397 * t1199 * M_PI; t2890 = t349 * t1123 * t1040; t2893 = t138 * t1133; t2895 = t160 * t2893 * t1137; t2898 = t1118 * t785; t2902 = t22 * t349 * t2829; t2909 = 0.8e1 * t996 - 0.16e2 / 0.3e1 * t1000 - 0.4e1 * t1043 - 0.8e1 / 0.9e1 * t1047; t2911 = t160 * t1134 * t2909; t2915 = t1074 * t452 * t63; t2919 = t397 * t1161 * M_PI; t2926 = t1317 * t2878; t2927 = t2926 * t2755; t2930 = t121 * t63; t2931 = t1074 * t2930; t2935 = t236 * t2838 * t2755; t2939 = t1074 * t1103 * t1; t2941 = t1050 * t374 * t1040; t2942 = t68 * t2941; t2946 = t397 * t360 * M_PI; t2954 = t22 * t2754 * t2755; t2958 = t397 * t407 * t18; t2960 = t384 * t374 * t1040; t2961 = t21 * t2960; t2968 = 0.135e3 / 0.4e1 * t2875 * t2927 - 0.9e1 / 0.8e1 * t2931 * t1078 - 0.27e2 / 0.4e1 * t1104 * t2935 + 0.27e2 / 0.8e1 * t2939 * t2942 + t2946 * t401 / 0.3e1 + t1108 * t1090 / 0.2e1 - t1108 * t1094 / 0.4e1 + 0.3e1 / 0.2e1 * t408 * t2954 - 0.3e1 / 0.2e1 * t2958 * t2961 + t408 * t2902 / 0.4e1 - 0.14e2 / 0.27e2 * t137 * t1020; t2969 = t2968 * t54; t2970 = t2969 * t19; t2973 = t1291 * t2941; t2976 = -0.7e1 / 0.54e2 * t137 * t2867 + 0.135e3 / 0.16e2 * t2875 * t2880 + 0.3e1 / 0.16e2 * t2884 * t401 + 0.3e1 / 0.16e2 * t1151 * t1094 + 0.4e1 * t1122 * t2890 + 0.16e2 / 0.3e1 * t1122 * t2895 + 0.8e1 * t2898 * t1125 + t424 * t2902 / 0.16e2 + 0.4e1 * t1122 * t2911 + 0.27e2 / 0.32e2 * t2915 * t1078 - t2919 * t401 / 0.8e1 - t1147 * t1094 / 0.16e2 - 0.16e2 / 0.3e1 * t1119 * t1129 - 0.4e1 * t2970 * t420 + 0.27e2 / 0.32e2 * t1143 * t2973; t2977 = t349 * t115; t2978 = t1133 * t374; t2979 = t2978 * t1137; t2980 = t2977 * t2979; t2999 = t78 * t79 * t2829 * t154 / 0.48e2 - t78 * t79 * t1040 * t435 / 0.24e2 + 0.5e1 / 0.72e2 * t78 * t79 * t374 * t117 - 0.5e1 / 0.81e2 * t78 * t79 * t131 * t352; t3004 = t440 * t1190; t3014 = t374 * t1040; t3027 = -0.75398223686155037724e2 * t87 * t2757 + 0.50265482457436691817e2 * t87 * t2761 + 0.75398223686155037724e2 * t2137 * t1618 * t3014 + 0.83775804095727819694e1 * t87 * t2769 - 0.25132741228718345908e2 * t87 * t2773 - 0.12566370614359172954e2 * t87 * t2831 + 0.37233690709212364308e1 * t87 * t160 * t360; t3028 = t159 * t3027; t3030 = t1196 * t447; t3033 = t1193 * t447; t3036 = 0.1e1 / t1195 / t164; t3039 = -0.3e1 * t1176 * t447 * t449 + 0.3e1 * t1193 * t1196 * t440 - 0.2e1 * t159 * t3033 * t3036 + 0.3e1 * t1191 * t3030 - t165 * t2999 - 0.3e1 * t3004 * t449 - t3028 * t449; t3040 = t138 * t3039; t3043 = t360 * t451; t3046 = t23 * t2960; t3049 = t121 * t1198; t3053 = t21 * t1045 * t418; t3063 = 0.1e1 / t1132 / t417; t3065 = t1137 * t1137; t3067 = t160 * t115 * t3063 * t3065; t3071 = t1074 * t427 * t63; t3077 = t397 * t1158 * M_PI; t3081 = t992 * t1123 * t993; t3084 = t138 * t418; t3086 = t349 * t3084 * t374; t3091 = -0.8e1 * t1122 * t2980 + t137 * t3040 / 0.8e1 + t137 * t3043 / 0.6e1 - 0.3e1 / 0.8e1 * t424 * t3046 - t137 * t3049 / 0.8e1 + 0.8e1 / 0.9e1 * t415 * t3053 + t1147 * t1090 / 0.8e1 - 0.3e1 / 0.8e1 * t1151 * t1090 + 0.3e1 / 0.8e1 * t424 * t2954 - 0.8e1 * t1122 * t3067 - 0.9e1 / 0.32e2 * t3071 * t1078 - 0.27e2 / 0.16e2 * t1143 * t2935 + t3077 * t401 / 0.12e2 - 0.8e1 * t1122 * t3081 + 0.16e2 / 0.3e1 * t1122 * t3086 + 0.8e1 * t2898 * t1139; t3092 = t2976 + t3091; t3093 = t138 * t3092; t3100 = t1020 * t171; t3103 = t171 * t1317; t3104 = t3103 * t2879; t3107 = t121 * t1202; t3110 = t360 * t455; t3116 = t397 * t1203 * M_PI; t3120 = t1074 * t456 * t63; t3124 = t397 * t1100 * M_PI; t3134 = t1074 * t404 * t63; t3142 = t397 * t1097 * M_PI; t3147 = -0.4e1 / 0.3e1 * t137 * t3093 - 0.2e1 / 0.3e1 * t399 * t2902 - 0.2e1 * t1086 * t1094 + 0.112e3 / 0.81e2 * t137 * t3100 - 0.90e2 * t2875 * t3104 + 0.4e1 / 0.3e1 * t137 * t3107 - 0.16e2 / 0.9e1 * t137 * t3110 + 0.2e1 / 0.3e1 * t1082 * t1094 - 0.2e1 * t3116 * t401 - 0.9e1 * t3120 * t1078 + 0.4e1 / 0.3e1 * t3124 * t401 - 0.4e1 * t399 * t2954 + 0.4e1 * t399 * t3046 + 0.4e1 * t1086 * t1090 + 0.3e1 * t3134 * t1078 + 0.18e2 * t1076 * t2935 - 0.9e1 * t1076 * t2973 - 0.8e1 / 0.9e1 * t3142 * t401 - 0.4e1 / 0.3e1 * t1082 * t1090; t3148 = my_piecewise3(t141, t2866, t3147); t3149 = t3148 * t131; t3151 = t7 * t112 * t3149; t3152 = 0.3e1 / 0.8e1 * t3151; t3153 = t176 * t2829; t3155 = t7 * t112 * t3153; t3156 = 0.3e1 / 0.8e1 * t3155; t3157 = t460 * t1040; t3159 = t7 * t112 * t3157; t3160 = 0.9e1 / 0.8e1 * t3159; t3161 = t1207 * t374; t3163 = t7 * t112 * t3161; t3164 = 0.9e1 / 0.8e1 * t3163; t3165 = t1040 * t344; t3167 = t325 * t326 * t3165; t3168 = 0.3e1 / 0.2e1 * t3167; t3169 = t374 * t985; t3171 = t325 * t326 * t3169; t3172 = 0.3e1 / 0.2e1 * t3171; t3174 = t325 * t945 * t982; t3175 = 0.3e1 * t3174; t3177 = t325 * t945 * t986; t3178 = 0.3e1 / 0.2e1 * t3177; t3180 = t325 * t2728 * t345; t3181 = 0.3e1 / 0.2e1 * t3180; t3182 = t374 * t974; t3184 = t887 * t326 * t3182; t3185 = t3184 / 0.2e1; t3187 = t887 * t945 * t975; t3188 = t3187 / 0.2e1; t3190 = -0.3e1 * t635 - 0.3e1 * t2385; t3191 = t42 * t3190; t3193 = t184 * t185 * t3191; t3194 = t3193 / 0.2e1; t3195 = -t1957 - 0.3e1 / 0.8e1 * t2631 - 0.3e1 / 0.4e1 * t2634 - 0.3e1 / 0.8e1 * t2637 - t3152 - t3156 - t3160 - t3164 - t3168 - t3172 - t3175 - t3178 - t3181 - t3185 - t3188 - t3194; t3196 = t974 * t344; t3197 = t131 * t3196; t3199 = t2457 * t326 * t3197; t3200 = t3199 / 0.9e1; t3201 = t963 * t339; t3202 = t42 * t3201; t3204 = t2433 * t185 * t3202; t3205 = t3204 / 0.9e1; t3206 = -t3190; t3207 = t131 * t3206; t3209 = t325 * t326 * t3207; t3210 = t3209 / 0.2e1; t3215 = t2539 / 0.3e1; t3216 = t2563 / 0.3e1; t3217 = t345 * t985; t3219 = t887 * t326 * t3217; t3220 = t3219 / 0.2e1; t3221 = t340 * t969; t3223 = t618 * t185 * t3221; t3224 = t3223 / 0.2e1; t3225 = t2613 / 0.4e1; t3226 = t2616 / 0.4e1; t3227 = t3200 + t3205 - t3210 - t2367 - t2672 - t2675 / 0.2e1 - t2678 / 0.6e1 - t2681 - t2684 / 0.2e1 - t2687 / 0.6e1 + t3215 + t3216 - t3220 - t3224 + t3225 + t3226; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho3[3] = t9 * (t3195 + t3227) - 0.9e1 / 0.8e1 * t1218 - 0.9e1 / 0.4e1 * t1214 - 0.3e1 * t984 - 0.3e1 / 0.2e1 * t988 - 0.3e1 / 0.2e1 * t972 - 0.3e1 * t981 - 0.9e1 / 0.8e1 * t1210 - 0.3e1 / 0.4e1 * t950 - 0.3e1 / 0.4e1 * t957 + t2478 - t966 / 0.2e1 - t977 / 0.2e1 - t937 - t913 + t2489; t3241 = t1229 / 0.4e1; t3244 = t1426 / 0.4e1; t3251 = t205 * t211; t3264 = t205 * t675; t3265 = t3264 * t1253; t3271 = t28 * t1996; t3272 = t481 * t676; t3273 = t3271 * t3272; t3276 = t1268 * t222; t3277 = t1252 * t3276; t3280 = t481 * t697; t3281 = t1252 * t3280; t3289 = t691 * t694; t3292 = t2013 * t24; t3294 = 0.1e1 / t3292 * t2025; t3297 = 0.39200000000000000000e-1 * t475 * t682 * t34 + 0.20720000000000000000e0 * t666 * t219 - 0.17360000000000000000e0 * t3289 * sigma[0] + 0.67200000000000000000e-1 * t3294 * t688; t3298 = t211 * t3297; t3302 = 0.91259259259259259260e-2 * t22 * t5 * t666 * t38 + 0.49777777777777777778e-2 * t23 * t3251 * t222 + 0.18666666666666666666e-2 * t23 * t1252 * t676 - 0.93333333333333333332e-3 * t23 * t1243 * t697 - 0.91259259259259259260e-2 * t23 * t667 * t482 - 0.99555555555555555554e-2 * t1251 * t3265 + 0.49777777777777777778e-2 * t23 * t206 * t1269 - 0.55999999999999999998e-2 * t1251 * t3273 + 0.37333333333333333332e-2 * t1251 * t3277 + 0.18666666666666666666e-2 * t1251 * t3281 - 0.93333333333333333332e-3 * t23 * t29 * t3298; t3303 = t104 * t3302; t3305 = t7 * t17 * t3303; t3306 = 0.3e1 / 0.8e1 * t3305; t3307 = t315 * t1273; t3309 = t7 * t17 * t3307; t3310 = 0.3e1 / 0.4e1 * t3309; t3311 = t1273 * t190; t3313 = t184 * t185 * t3311; t3314 = t486 * t637; t3316 = t184 * t185 * t3314; t3317 = t3316 / 0.2e1; t3319 = t7 * t644 * t537; t3320 = t3319 / 0.12e2; t3322 = t184 * t628 * t1421; t3324 = t7 * t197 * t1432; t3325 = t3324 / 0.4e1; t3326 = t871 * t486; t3328 = t7 * t17 * t3326; t3329 = 0.3e1 / 0.8e1 * t3328; t3331 = t7 * t197 * t1428; t3332 = t3331 / 0.4e1; t3333 = t533 * t702; t3335 = t7 * t17 * t3333; t3336 = 0.3e1 / 0.8e1 * t3335; t3337 = t1412 * t227; t3339 = t7 * t17 * t3337; t3340 = 0.3e1 / 0.4e1 * t3339; t3341 = -t3306 - t3310 - t3313 - t3317 + t3320 - t3322 - t3325 - t3329 - t3332 - t3336 - t3340; t3342 = t486 * t619; t3344 = t618 * t185 * t3342; t3345 = t3344 / 0.6e1; t3347 = t184 * t624 * t1421; t3348 = t3347 / 0.3e1; t3350 = t7 * t197 * t1417; t3351 = t3350 / 0.4e1; t3368 = t32 * t486; t3372 = t49 * t1273; t3376 = t26 * t3302; t3396 = t80 * t486; t3400 = t25 * t1273; t3404 = t31 * t3302; t3408 = -0.8e1 / 0.3e1 * t201 * t1958 * t487 * t655 + 0.32e2 / 0.27e2 * t201 * t654 * t1235 * t227 + 0.16e2 / 0.9e1 * t201 * t654 * t1274 * t227 + 0.8e1 / 0.9e1 * t201 * t654 * t487 * t702 + 0.8e1 / 0.81e2 * t201 * t202 * t3368 - 0.16e2 / 0.27e2 * t201 * t202 * t3372 - 0.4e1 / 0.9e1 * t201 * t202 * t3376 + 0.192e3 / 0.5e1 * t237 * t2042 * t491 * t655 - 0.128e3 / 0.5e1 * t237 * t713 * t1282 * t227 - 0.96e2 / 0.5e1 * t237 * t713 * t1286 * t227 - 0.48e2 / 0.5e1 * t237 * t713 * t491 * t702 + 0.64e2 / 0.45e2 * t237 * t240 * t3396 + 0.128e3 / 0.15e2 * t237 * t240 * t3400 + 0.16e2 / 0.5e1 * t237 * t240 * t3404; t3409 = t2174 * t100; t3411 = t2257 * t486 * t655; t3414 = t213 * t528; t3419 = t32 * t1407; t3422 = t273 * t702; t3423 = t1322 * t3422; t3426 = t1321 * t1273; t3427 = t3426 * t1323; t3431 = t1316 * t80 * t1317; t3434 = t2178 * t486; t3435 = t273 * t655; t3436 = t3434 * t3435; t3439 = t2174 * t96; t3443 = t731 * t67; t3444 = t501 * t25 * t3443; t3445 = t713 * t486; t3446 = t3445 * t2251; t3452 = t1291 * t1322 * t655; t3456 = t23 * t1292 * t655; t3459 = t68 * t1321; t3460 = t1332 * t655; t3461 = t3459 * t3460; t3465 = t486 * t2085; t3467 = t1342 * t3465 * t2087; t3470 = t712 * t1273; t3472 = t1291 * t3470 * t227; t3476 = t1291 * t1292 * t702; t3479 = t500 * t2173; t3480 = t1317 * M_PI; t3481 = t25 * t3480; t3483 = 0.1e1 / t711 / t238; t3485 = t3479 * t3481 * t3483; t3486 = t3460 * t23; t3494 = t23 * t1337 * t227; t3498 = t23 * t505 * t702; t3505 = t1273 * t273; t3506 = t3505 * t227; t3507 = t1331 * t3506; t3510 = -0.6e1 * t504 * t3467 + 0.9e1 / 0.16e2 * t807 * t3472 + 0.9e1 / 0.32e2 * t807 * t3476 - 0.135e3 * t3485 * t3486 + t811 * t1302 / 0.12e2 - t815 * t1302 / 0.4e1 - t279 * t3494 / 0.4e1 - t279 * t3498 / 0.8e1 + 0.6e1 * t1329 * t1334 + 0.2e1 * t1329 * t1345 + 0.18e2 * t504 * t3507; t3513 = t1331 * t1332 * t702; t3516 = t1273 * t797; t3517 = t3516 * t801; t3518 = t1342 * t3517; t3522 = t1342 * t1343 * t2205; t3527 = t213 * t524; t3530 = t239 * t3302; t3532 = t68 * t3530 * t273; t3544 = t22 * t202 * t3302; t3547 = 0.9e1 * t504 * t3513 + 0.6e1 * t504 * t3518 + 0.3e1 * t504 * t3522 + 0.9e1 / 0.16e2 * t2216 * t1294 + t48 * t3527 / 0.18e2 - 0.3e1 * t504 * t3532 - t2220 * t497 / 0.24e2 - t811 * t1306 / 0.24e2 + t2226 * t497 / 0.16e2 + t815 * t1306 / 0.8e1 + t279 * t3544 / 0.16e2; t3549 = t252 * t1362 * M_PI; t3558 = t501 * t290 * t63 * t1; t3562 = t252 * t1404 * M_PI; t3568 = t737 * t525 * t63; t3573 = t1322 * t2251; t3577 = t202 * t3372 * t304; t3581 = t202 * t3376 * t304; t3584 = t28 * t93; t3589 = t290 * t302 * t304; t3594 = t80 * t854 * t304; t3598 = t840 * t54; t3599 = t3598 * t22; t3604 = t1384 * t702; t3605 = t1383 * t3604; t3609 = t202 * t3368 * t304; t3612 = t70 * t49; t3613 = t3612 * t1399; t3616 = t1273 * t860; t3617 = t3616 * t302; t3618 = t1397 * t3617; t3621 = t1398 * t854; t3622 = t1397 * t3621; t3625 = 0.16755160819145563939e2 * t519 * t3577 + 0.12566370614359172954e2 * t519 * t3581 - 0.5e1 / 0.216e3 * t512 * t513 * t3584 + t512 * t513 * t3589 / 0.36e2 - t512 * t513 * t3594 / 0.48e2 + 0.12566370614359172954e2 * t3599 * t521 + 0.25132741228718345908e2 * t1379 * t1394 - 0.25132741228718345908e2 * t1382 * t3605 - 0.27925268031909273231e1 * t519 * t3609 - 0.16755160819145563939e2 * t1382 * t3613 - 0.25132741228718345908e2 * t1382 * t3618 - 0.12566370614359172954e2 * t1382 * t3622; t3627 = t80 * t857 * t860; t3631 = t1378 * t23; t3638 = t1273 * t304; t3639 = t3638 * t227; t3640 = t1383 * t3639; t3643 = t6 * t3302; t3653 = t712 * t26; t3654 = t1384 * t655; t3655 = t3653 * t3654; t3658 = t239 * t49; t3659 = t3658 * t1385; t3662 = t1383 * t486; t3663 = t860 * t227; t3664 = t3663 * t302; t3665 = t3662 * t3664; t3668 = t486 * t2160; t3669 = t3668 * t857; t3670 = t1397 * t3669; t3673 = t512 * t513 * t3627 / 0.48e2 - 0.50265482457436691816e2 * t3631 * t1386 + 0.16755160819145563939e2 * t1379 * t1390 - 0.25132741228718345908e2 * t3631 * t1400 - 0.50265482457436691816e2 * t1382 * t3640 - t512 * t3643 * t514 / 0.48e2 + t512 * t1365 * t1369 / 0.36e2 - t512 * t1365 * t1374 / 0.24e2 + 0.75398223686155037724e2 * t1382 * t3655 - 0.33510321638291127878e2 * t1382 * t3659 + 0.50265482457436691816e2 * t1382 * t3665 + 0.25132741228718345908e2 * t1382 * t3670; t3674 = t3625 + t3673; t3675 = t49 * t3674; t3678 = t32 * t1403; t3681 = -t3549 * t256 / 0.24e2 - t1359 * t753 / 0.8e1 + t2072 * t497 / 0.36e2 + 0.2e1 / 0.3e1 * t3558 * t507 + t3562 * t256 / 0.8e1 + t1359 * t757 / 0.16e2 + 0.9e1 / 0.32e2 * t3568 * t741 - 0.2e1 * t1329 * t1339 + 0.108e3 * t1319 * t3573 + t48 * t3675 / 0.8e1 - t48 * t3678 / 0.12e2; t3683 = -0.54e2 * t1319 * t3423 - 0.108e3 * t1319 * t3427 - 0.36e2 * t3431 * t1324 + 0.432e3 * t1319 * t3436 + 0.135e3 / 0.16e2 * t3439 * t3411 - 0.18e2 * t3444 * t3446 - 0.3e1 / 0.16e2 * t2093 * t1294 - 0.27e2 / 0.16e2 * t807 * t3452 + 0.3e1 / 0.8e1 * t279 * t3456 - 0.36e2 * t504 * t3461 + t3510 + t3547 + t3681; t3684 = t49 * t3683; t3701 = -0.90e2 * t3409 * t3411 - 0.16e2 / 0.27e2 * t48 * t3414 - 0.2e1 / 0.3e1 * t2319 * t497 + 0.8e1 / 0.9e1 * t48 * t3419 - 0.4e1 / 0.3e1 * t48 * t3684 + 0.18e2 * t739 * t3452 - 0.4e1 * t254 * t3456 + 0.2e1 * t2347 * t1294 + 0.4e1 / 0.3e1 * t254 * t3498 + 0.8e1 / 0.3e1 * t749 * t1302 - 0.6e1 * t2323 * t1294 - 0.6e1 * t739 * t3472; t3709 = t252 * t1408 * M_PI; t3721 = t737 * t529 * t63; t3727 = t252 * t1313 * M_PI; t3734 = -0.3e1 * t739 * t3476 - 0.8e1 / 0.9e1 * t745 * t1302 + 0.8e1 / 0.3e1 * t254 * t3494 - 0.4e1 / 0.3e1 * t3709 * t256 - 0.4e1 / 0.3e1 * t749 * t1306 + 0.4e1 / 0.9e1 * t2327 * t497 + 0.4e1 / 0.9e1 * t745 * t1306 - 0.2e1 / 0.3e1 * t1310 * t757 - 0.3e1 * t3721 * t741 - 0.2e1 / 0.3e1 * t254 * t3544 + 0.4e1 / 0.9e1 * t3727 * t256 - 0.8e1 / 0.27e2 * t2341 * t497 + 0.4e1 / 0.3e1 * t1310 * t753; t3736 = my_piecewise3(t52, t3408, t3701 + t3734); t3737 = t3736 * t42; t3739 = t7 * t17 * t3737; t3740 = 0.3e1 / 0.8e1 * t3739; t3742 = t7 * t197 * t1413; t3743 = t3742 / 0.4e1; t3745 = t184 * t1224 * t638; t3746 = t3745 / 0.2e1; t3748 = t7 * t644 * t534; t3749 = t3748 / 0.12e2; t3751 = t184 * t1224 * t631; t3752 = t16 * t1412; t3754 = t184 * t3752 * t191; t3756 = t618 * t1224 * t620; t3757 = t3756 / 0.6e1; t3758 = t196 * t533; t3760 = t184 * t3758 * t191; t3761 = t3760 / 0.3e1; t3762 = -t3345 - t3348 - t3351 - t3740 - t3743 - t3746 + t3749 - t3751 - t3754 - t3757 - t3761; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[0] = -t1226 - t3241 - 0.3e1 / 0.4e1 * t1415 - 0.3e1 / 0.4e1 * t1419 - t1423 - t3244 - 0.3e1 / 0.4e1 * t1430 - 0.3e1 / 0.4e1 * t1434 + t9 * (t3341 + t3762); if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[1] = 0.0e0; t3765 = t1445 / 0.4e1; t3766 = t1452 / 0.4e1; t3768 = t887 * t1440 * t889; t3769 = t3768 / 0.6e1; t3770 = t196 * t602; t3772 = t325 * t3770 * t328; t3773 = t3772 / 0.3e1; t3775 = t325 * t1440 * t898; t3776 = t3775 / 0.2e1; t3778 = t7 * t902 * t603; t3779 = t3778 / 0.12e2; t3780 = t557 * t888; t3782 = t887 * t326 * t3780; t3783 = t3782 / 0.6e1; t3785 = t325 * t893 * t1447; t3786 = t3785 / 0.3e1; t3787 = t557 * t897; t3789 = t325 * t326 * t3787; t3790 = t3789 / 0.2e1; t3792 = t7 * t902 * t606; t3793 = t3792 / 0.12e2; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[2] = -t1442 - t3765 - t1449 - t3766 + t9 * (-t3769 - t3773 - t3776 + t3779 - t3783 - t3786 - t3790 + t3793); t3797 = t618 * t1224 * t908; t3800 = t184 * t3758 * t340; t3803 = t184 * t3752 * t340; t3806 = t184 * t1224 * t918; t3808 = t923 * t533; t3810 = t184 * t3808 * t925; t3815 = t1459 * t190; t3817 = t618 * t185 * t3815; t3820 = t184 * t624 * t1459; t3823 = t184 * t628 * t1459; t3825 = t1273 * t339; t3827 = t184 * t185 * t3825; t3829 = t486 * t8; t3831 = t184 * t924 * t3829; t3836 = -t3797 / 0.6e1 - t3800 / 0.6e1 - t3803 / 0.2e1 - t3806 / 0.2e1 - t3810 / 0.2e1 - t3760 / 0.6e1 + t3749 - t3742 / 0.8e1 - t3350 / 0.8e1 - t3817 / 0.6e1 - t3820 / 0.6e1 - t3823 / 0.2e1 - t3827 / 0.2e1 - t3831 / 0.2e1 - t3347 / 0.6e1 + t3320 - t3331 / 0.8e1 - t3324 / 0.8e1; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[3] = t3836 * t9 - t1227 - t1416 - t1420 - t1424 - t1431 - t1435 - t1458 - t1462 - t3241 - t3244; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[4] = 0.0e0; t3839 = t887 * t1440 * t932; t3842 = t325 * t3770 * t345; t3844 = t923 * t602; t3846 = t325 * t3844 * t940; t3849 = t16 * t1647; t3851 = t325 * t3849 * t328; t3854 = t7 * t332 * t1648; t3857 = t325 * t1440 * t952; t3860 = t7 * t332 * t1652; t3862 = t1656 * t327; t3864 = t887 * t326 * t3862; t3867 = t325 * t893 * t1656; t3869 = t557 * t8; t3871 = t325 * t939 * t3869; t3875 = t325 * t945 * t1447; t3878 = t7 * t332 * t1660; t3880 = t1510 * t327; t3882 = t325 * t326 * t3880; t3885 = t7 * t332 * t1664; t3887 = -t3839 / 0.6e1 - t3842 / 0.6e1 + t3846 / 0.2e1 - t3772 / 0.6e1 + t3779 - t3851 / 0.2e1 - t3854 / 0.8e1 - t3857 / 0.2e1 - t3860 / 0.8e1 - t3864 / 0.6e1 - t3867 / 0.6e1 + t3871 / 0.2e1 - t3785 / 0.6e1 + t3793 - t3875 / 0.2e1 - t3878 / 0.8e1 - t3882 / 0.2e1 - t3885 / 0.8e1; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[5] = t3887 * t9 - t1443 - t1450 - t1467 - t1651 - t1655 - t1659 - t1663 - t1667 - t3765 - t3766; t3890 = t618 * t1224 * t964; t3891 = t3890 / 0.6e1; t3892 = t3800 / 0.3e1; t3894 = t184 * t1224 * t970; t3895 = t3894 / 0.2e1; t3896 = t486 * t963; t3898 = t618 * t185 * t3896; t3899 = t3898 / 0.6e1; t3900 = t3820 / 0.3e1; t3901 = t486 * t969; t3903 = t184 * t185 * t3901; t3904 = t3903 / 0.2e1; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[6] = -t1457 - t3241 - t1461 - t3244 + t9 * (-t3891 - t3892 - t3895 + t3749 - t3899 - t3900 - t3904 + t3320); if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[7] = 0.0e0; t3911 = t557 * t974; t3913 = t887 * t326 * t3911; t3914 = t3913 / 0.6e1; t3931 = t121 * t557; t3935 = t138 * t1510; t3943 = t352 * t358; t3956 = t352 * t1013; t3957 = t3956 * t1490; t3963 = t117 * t2792; t3964 = t552 * t1014; t3965 = t3963 * t3964; t3968 = t1505 * t369; t3969 = t1489 * t3968; t3972 = t552 * t1035; t3973 = t1489 * t3972; t3981 = t1029 * t1032; t3984 = t2809 * t113; t3986 = 0.1e1 / t3984 * t2821; t3989 = 0.39200000000000000000e-1 * t546 * t1020 * t123 + 0.20720000000000000000e0 * t1004 * t366 - 0.17360000000000000000e0 * t3981 * sigma[2] + 0.67200000000000000000e-1 * t3986 * t1026; t3990 = t358 * t3989; t3994 = 0.91259259259259259260e-2 * t22 * t5 * t1004 * t127 + 0.49777777777777777778e-2 * t23 * t3943 * t369 + 0.18666666666666666666e-2 * t23 * t1489 * t1014 - 0.93333333333333333332e-3 * t23 * t1480 * t1035 - 0.91259259259259259260e-2 * t23 * t1005 * t553 - 0.99555555555555555554e-2 * t1488 * t3957 + 0.49777777777777777778e-2 * t23 * t353 * t1506 - 0.55999999999999999998e-2 * t1488 * t3965 + 0.37333333333333333332e-2 * t1488 * t3969 + 0.18666666666666666666e-2 * t1488 * t3973 - 0.93333333333333333332e-3 * t23 * t118 * t3990; t3995 = t115 * t3994; t4015 = t154 * t557; t4019 = t114 * t1510; t4023 = t120 * t3994; t4027 = -0.8e1 / 0.3e1 * t201 * t2754 * t558 * t993 + 0.32e2 / 0.27e2 * t201 * t992 * t1472 * t374 + 0.16e2 / 0.9e1 * t201 * t992 * t1511 * t374 + 0.8e1 / 0.9e1 * t201 * t992 * t558 * t1040 + 0.8e1 / 0.81e2 * t201 * t349 * t3931 - 0.16e2 / 0.27e2 * t201 * t349 * t3935 - 0.4e1 / 0.9e1 * t201 * t349 * t3995 + 0.192e3 / 0.5e1 * t237 * t2838 * t562 * t993 - 0.128e3 / 0.5e1 * t237 * t1051 * t1519 * t374 - 0.96e2 / 0.5e1 * t237 * t1051 * t1523 * t374 - 0.48e2 / 0.5e1 * t237 * t1051 * t562 * t1040 + 0.64e2 / 0.45e2 * t237 * t385 * t4015 + 0.128e3 / 0.15e2 * t237 * t385 * t4019 + 0.16e2 / 0.5e1 * t237 * t385 * t4023; t4028 = t2874 * t172; t4030 = t2926 * t557 * t993; t4033 = t360 * t597; t4041 = t23 * t1572 * t374; t4046 = t1050 * t1510; t4048 = t1291 * t4046 * t374; t4052 = t1291 * t1528 * t1040; t4058 = t23 * t1528 * t993; t4064 = t1291 * t1557 * t993; t4067 = -0.90e2 * t4028 * t4030 - 0.16e2 / 0.27e2 * t137 * t4033 - 0.2e1 / 0.3e1 * t3116 * t568 + 0.8e1 / 0.3e1 * t1086 * t1538 + 0.8e1 / 0.3e1 * t399 * t4041 - 0.6e1 * t3120 * t1530 - 0.6e1 * t1076 * t4048 - 0.3e1 * t1076 * t4052 - 0.8e1 / 0.9e1 * t1082 * t1538 - 0.4e1 * t399 * t4058 + 0.2e1 * t3134 * t1530 + 0.18e2 * t1076 * t4064; t4069 = t23 * t575 * t1040; t4075 = t397 * t1549 * M_PI; t4085 = t397 * t1643 * M_PI; t4093 = t1074 * t598 * t63; t4097 = t22 * t349 * t3994; t4100 = t2874 * t168; t4103 = t1556 * t1510; t4104 = t4103 * t1558; t4107 = t418 * t1040; t4108 = t1557 * t4107; t4112 = t1552 * t154 * t1317; t4115 = t2878 * t557; t4116 = t418 * t993; t4117 = t4115 * t4116; t4120 = t121 * t1638; t4123 = t360 * t593; t4127 = t349 * t3995 * t449; t4130 = t1176 * t54; t4131 = t4130 * t22; t4137 = t349 * t3935 * t449; t4146 = t117 * t165; t4151 = t435 * t447 * t449; t4156 = t154 * t1190 * t449; t4160 = t1633 * t1190; t4161 = t1632 * t4160; t4164 = t1613 * t23; t4167 = t1510 * t449; t4168 = t4167 * t374; t4169 = t1618 * t4168; t4172 = 0.12566370614359172954e2 * t588 * t4127 + 0.12566370614359172954e2 * t4131 * t590 + 0.25132741228718345908e2 * t1614 * t1629 + 0.16755160819145563939e2 * t588 * t4137 + t512 * t1600 * t1604 / 0.36e2 - t512 * t1600 * t1609 / 0.24e2 - 0.5e1 / 0.216e3 * t512 * t582 * t4146 + t512 * t582 * t4151 / 0.36e2 - t512 * t582 * t4156 / 0.48e2 - 0.12566370614359172954e2 * t1617 * t4161 - 0.25132741228718345908e2 * t4164 * t1635 - 0.50265482457436691816e2 * t1617 * t4169; t4173 = t1619 * t1040; t4174 = t1618 * t4173; t4178 = t349 * t3931 * t449; t4181 = t147 * t138; t4182 = t4181 * t1634; t4185 = t1510 * t1196; t4186 = t4185 * t447; t4187 = t1632 * t4186; t4191 = t154 * t1193 * t1196; t4199 = t1050 * t115; t4200 = t1619 * t993; t4201 = t4199 * t4200; t4204 = t384 * t138; t4205 = t4204 * t1620; t4208 = t1618 * t557; t4209 = t1196 * t374; t4210 = t4209 * t447; t4211 = t4208 * t4210; t4214 = t557 * t3036; t4215 = t4214 * t1193; t4216 = t1632 * t4215; t4219 = t6 * t3994; t4223 = -0.25132741228718345908e2 * t1617 * t4174 - 0.27925268031909273231e1 * t588 * t4178 - 0.16755160819145563939e2 * t1617 * t4182 - 0.25132741228718345908e2 * t1617 * t4187 + t512 * t582 * t4191 / 0.48e2 - 0.50265482457436691816e2 * t4164 * t1621 + 0.16755160819145563939e2 * t1614 * t1625 + 0.75398223686155037724e2 * t1617 * t4201 - 0.33510321638291127878e2 * t1617 * t4205 + 0.50265482457436691816e2 * t1617 * t4211 + 0.25132741228718345908e2 * t1617 * t4216 - t512 * t4219 * t583 / 0.48e2; t4224 = t4172 + t4223; t4225 = t138 * t4224; t4236 = t397 * t1597 * M_PI; t4245 = t571 * t435 * t63 * t1; t4251 = t397 * t1639 * M_PI; t4257 = t1074 * t594 * t63; t4262 = t384 * t3994; t4264 = t68 * t4262 * t418; t4267 = t1151 * t1542 / 0.8e1 - t4236 * t401 / 0.24e2 - t1594 * t1090 / 0.8e1 + t3077 * t568 / 0.36e2 + 0.2e1 / 0.3e1 * t4245 * t577 + t424 * t4097 / 0.16e2 + t4251 * t401 / 0.8e1 + t1594 * t1094 / 0.16e2 + 0.9e1 / 0.32e2 * t4257 * t1078 - 0.2e1 * t1564 * t1574 - 0.3e1 * t574 * t4264; t4271 = t1557 * t2979; t4275 = t571 * t114 * t3443; t4276 = t1051 * t557; t4277 = t4276 * t2979; t4282 = t500 * t2873; t4283 = t114 * t3480; t4285 = 0.1e1 / t1049 / t383; t4287 = t4282 * t4283 * t4285; t4288 = t1567 * t993; t4289 = t4288 * t23; t4298 = t557 * t3063; t4300 = t1577 * t4298 * t3065; t4307 = -t2919 * t568 / 0.24e2 + 0.108e3 * t1554 * t4271 - 0.18e2 * t4275 * t4277 + 0.9e1 / 0.32e2 * t1143 * t4052 - 0.135e3 * t4287 * t4289 + 0.6e1 * t1564 * t1569 + 0.2e1 * t1564 * t1580 + 0.3e1 / 0.8e1 * t424 * t4058 - 0.6e1 * t574 * t4300 - 0.3e1 / 0.16e2 * t3071 * t1530 - 0.27e2 / 0.16e2 * t1143 * t4064; t4308 = t68 * t1556; t4309 = t4308 * t4288; t4320 = t1510 * t418; t4321 = t4320 * t374; t4322 = t1566 * t4321; t4326 = t1566 * t1567 * t1040; t4329 = t1510 * t1133; t4330 = t4329 * t1137; t4331 = t1577 * t4330; t4335 = t1577 * t1578 * t2909; t4342 = -0.36e2 * t574 * t4309 + t1147 * t1538 / 0.12e2 - t1151 * t1538 / 0.4e1 - t424 * t4041 / 0.4e1 - t424 * t4069 / 0.8e1 + 0.18e2 * t574 * t4322 + 0.9e1 * t574 * t4326 + 0.6e1 * t574 * t4331 + 0.3e1 * t574 * t4335 + 0.9e1 / 0.16e2 * t2915 * t1530 + 0.9e1 / 0.16e2 * t1143 * t4048; t4344 = 0.135e3 / 0.16e2 * t4100 * t4030 - 0.108e3 * t1554 * t4104 - 0.54e2 * t1554 * t4108 - 0.36e2 * t4112 * t1559 + 0.432e3 * t1554 * t4117 - t137 * t4120 / 0.12e2 + t137 * t4123 / 0.18e2 + t137 * t4225 / 0.8e1 - t1147 * t1542 / 0.24e2 + t2884 * t568 / 0.16e2 + t4267 + t4307 + t4342; t4345 = t138 * t4344; t4348 = t121 * t1642; t4351 = 0.4e1 / 0.3e1 * t399 * t4069 + 0.4e1 / 0.9e1 * t1082 * t1542 + 0.4e1 / 0.9e1 * t4075 * t401 - 0.8e1 / 0.27e2 * t3142 * t568 + 0.4e1 / 0.9e1 * t3124 * t568 + 0.4e1 / 0.3e1 * t1546 * t1090 - 0.4e1 / 0.3e1 * t4085 * t401 - 0.4e1 / 0.3e1 * t1086 * t1542 - 0.2e1 / 0.3e1 * t1546 * t1094 - 0.3e1 * t4093 * t1078 - 0.2e1 / 0.3e1 * t399 * t4097 - 0.4e1 / 0.3e1 * t137 * t4345 + 0.8e1 / 0.9e1 * t137 * t4348; t4353 = my_piecewise3(t141, t4027, t4067 + t4351); t4354 = t4353 * t131; t4356 = t7 * t112 * t4354; t4357 = 0.3e1 / 0.8e1 * t4356; t4359 = t325 * t1440 * t982; t4361 = t325 * t1440 * t986; t4362 = t4361 / 0.2e1; t4364 = t325 * t3849 * t345; t4366 = t887 * t1440 * t975; t4367 = t4366 / 0.6e1; t4368 = t3842 / 0.3e1; t4369 = t3867 / 0.3e1; t4370 = t3878 / 0.4e1; t4371 = t3885 / 0.4e1; t4372 = t3854 / 0.4e1; t4373 = -t3914 - t4357 - t4359 - t4362 - t4364 - t4367 - t4368 - t4369 - t4370 - t4371 - t4372; t4374 = t3860 / 0.4e1; t4375 = t1207 * t557; t4377 = t7 * t112 * t4375; t4378 = 0.3e1 / 0.8e1 * t4377; t4379 = t602 * t1040; t4381 = t7 * t112 * t4379; t4382 = 0.3e1 / 0.8e1 * t4381; t4383 = t1647 * t374; t4385 = t7 * t112 * t4383; t4386 = 0.3e1 / 0.4e1 * t4385; t4387 = t460 * t1510; t4389 = t7 * t112 * t4387; t4390 = 0.3e1 / 0.4e1 * t4389; t4391 = t176 * t3994; t4393 = t7 * t112 * t4391; t4394 = 0.3e1 / 0.8e1 * t4393; t4396 = t325 * t945 * t1656; t4397 = t1510 * t344; t4399 = t325 * t326 * t4397; t4400 = t557 * t985; t4402 = t325 * t326 * t4400; t4403 = t4402 / 0.2e1; t4404 = -t4374 + t3793 + t3779 - t4378 - t4382 - t4386 - t4390 - t4394 - t4396 - t4399 - t4403; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rho2sigma[8] = -t1466 - t3765 - 0.3e1 / 0.4e1 * t1650 - 0.3e1 / 0.4e1 * t1654 - t1658 - t3766 - 0.3e1 / 0.4e1 * t1662 - 0.3e1 / 0.4e1 * t1666 + t9 * (t4373 + t4404); t4407 = t16 * t1796; t4409 = t184 * t4407 * t191; t4410 = t4409 / 0.2e1; t4412 = t7 * t197 * t1797; t4413 = t4412 / 0.8e1; t4418 = t49 * t1670; t4430 = t49 * t1702; t4445 = t1678 * t222; t4446 = t3271 * t4445; t4449 = t481 * t1268; t4450 = t1252 * t4449; t4456 = t1697 * t222; t4457 = t1252 * t4456; t4467 = t2013 * rho[0]; t4469 = 0.1e1 / t4467 * t2025; t4472 = 0.84000000000000000000e-2 * t1684 * t213 * t34 - 0.84000000000000000000e-2 * t1688 * t205 * t219 + 0.42000000000000000000e-1 * t1265 - 0.25200000000000000000e-1 * t4469 * sigma[0]; t4473 = t211 * t4472; t4477 = 0.49777777777777777776e-2 * t23 * t3251 * t481 + 0.37333333333333333332e-2 * t23 * t1254 - 0.18666666666666666666e-2 * t23 * t1243 * t1268 - 0.49777777777777777776e-2 * t23 * t206 * t1679 - 0.55999999999999999998e-2 * t1251 * t4446 + 0.37333333333333333332e-2 * t1251 * t4450 + 0.24888888888888888889e-2 * t23 * t206 * t1698 + 0.18666666666666666666e-2 * t1251 * t4457 - 0.93333333333333333332e-3 * t23 * t29 * t4473; t4478 = t26 * t4477; t4486 = t25 * t1670; t4498 = t25 * t1702; t4502 = t31 * t4477; t4506 = -0.8e1 / 0.3e1 * t201 * t1958 * t1671 * t227 + 0.16e2 / 0.27e2 * t201 * t654 * t4418 + 0.16e2 / 0.9e1 * t201 * t654 * t487 * t1273 + 0.8e1 / 0.9e1 * t201 * t654 * t1703 * t227 - 0.8e1 / 0.27e2 * t201 * t202 * t4430 - 0.4e1 / 0.9e1 * t201 * t202 * t4478 + 0.192e3 / 0.5e1 * t237 * t2042 * t1707 * t227 - 0.64e2 / 0.5e1 * t237 * t713 * t4486 - 0.96e2 / 0.5e1 * t237 * t713 * t491 * t1273 - 0.48e2 / 0.5e1 * t237 * t713 * t1711 * t227 + 0.64e2 / 0.15e2 * t237 * t240 * t4498 + 0.16e2 / 0.5e1 * t237 * t240 * t4502; t4508 = t2257 * t1670 * t227; t4514 = t1321 * t1670; t4516 = t1291 * t4514 * t227; t4520 = t1291 * t1292 * t1273; t4535 = -0.90e2 * t3409 * t4508 + t2347 * t1717 - 0.3e1 * t2323 * t1717 + 0.18e2 * t739 * t4516 - 0.6e1 * t739 * t4520 - 0.6e1 * t3721 * t1294 + 0.4e1 / 0.9e1 * t3727 * t497 - 0.4e1 / 0.3e1 * t3709 * t497 + 0.8e1 / 0.3e1 * t1310 * t1302 - 0.4e1 / 0.3e1 * t1310 * t1306 - 0.4e1 / 0.9e1 * t745 * t1723; t4539 = t23 * t1736 * t227; t4543 = t23 * t505 * t1273; t4546 = t712 * t1702; t4548 = t1291 * t4546 * t227; t4556 = t23 * t1741 * t227; t4560 = t22 * t202 * t4477; t4564 = t252 * t1792 * M_PI; t4567 = t32 * t1791; t4570 = t1316 * t80; t4575 = t1732 * t18; t4576 = t21 * t227; t4577 = t4575 * t4576; t4581 = t3459 * t1732 * t227; t4585 = t1331 * t1332 * t1273; t4589 = t1331 * t1750 * t801; t4596 = t239 * t4477; t4598 = t68 * t4596 * t273; t4613 = t252 * t1788 * M_PI; t4624 = -0.18e2 * t4570 * t1733 + 0.9e1 / 0.16e2 * t807 * t4520 - 0.135e3 * t3485 * t4577 - 0.36e2 * t504 * t4581 + 0.18e2 * t504 * t4585 - 0.9e1 * t504 * t4589 - t815 * t1723 / 0.8e1 + t815 * t1727 / 0.16e2 - 0.3e1 * t504 * t4598 + t811 * t1723 / 0.24e2 - t811 * t1727 / 0.48e2 - 0.3e1 / 0.32e2 * t2093 * t1717 - t3549 * t497 / 0.24e2 + 0.3e1 * t1329 * t1738 - t1329 * t1743 + t4613 * t256 / 0.16e2 + t279 * t4560 / 0.16e2 + 0.9e1 / 0.32e2 * t2216 * t1717 + t3562 * t497 / 0.8e1 + t1359 * t1306 / 0.8e1; t4625 = t32 * t1787; t4628 = t1321 * t1702; t4629 = t4628 * t1323; t4633 = t1748 * rho[0] * t1317; t4634 = t2178 * t1670; t4635 = t4634 * t2250; t4638 = t1322 * t3516; t4641 = t2085 * t801; t4642 = t4514 * t4641; t4645 = t1322 * t3505; t4663 = t1702 * t273; t4664 = t4663 * t227; t4665 = t1331 * t4664; t4668 = t1702 * t797; t4669 = t4668 * t801; t4670 = t1342 * t4669; t4673 = t1747 * t736; t4674 = rho[0] * t3480; t4676 = t4673 * t4674 * t3483; t4677 = t1750 * t18; t4683 = t6 * t4477; t4693 = t486 * t70; t4696 = t1670 * t239; t4697 = t304 * t227; t4702 = t2 * t486; t4706 = t239 * t304; t4710 = t70 * t860; t4716 = t1670 * t304; t4717 = t4716 * t227; t4718 = t3653 * t4717; t4722 = t654 * t4418 * t304; t4725 = -t512 * t4683 * t514 / 0.48e2 + t512 * t1762 * t1369 / 0.72e2 - t512 * t1762 * t1374 / 0.48e2 + 0.20000000000000000000e1 * t4693 * t3638 - 0.20000000000000000000e1 * t4696 * t4697 - 0.10000000000000000000e1 * t1766 * t2154 + 0.62831853071795864770e1 * t4702 * t1770 * t1273 - 0.62831853071795864770e1 * t1769 * t4706 * t227 - M_PI * t1769 * t4710 * t302 - 0.25132741228718345908e2 * t1379 * t1774 + 0.75398223686155037724e2 * t1382 * t4718 - 0.16755160819145563939e2 * t519 * t4722; t4726 = t1384 * t1273; t4727 = t1383 * t4726; t4730 = t1670 * t860; t4731 = t4730 * t302; t4732 = t1383 * t4731; t4737 = t1702 * t304; t4738 = t4737 * t227; t4739 = t1383 * t4738; t4743 = t202 * t4430 * t304; t4747 = t202 * t4478 * t304; t4750 = t1702 * t860; t4751 = t4750 * t302; t4752 = t1397 * t4751; t4755 = t295 * t62; t4756 = t4755 * t236; t4759 = t1781 * t1291; t4760 = t1321 * t31; t4761 = t4730 * t227; t4762 = t4760 * t4761; t4766 = t713 * t4486 * t860; t4769 = t712 * t31; t4770 = t1398 * t1273; t4771 = t4769 * t4770; t4774 = t1670 * t2160; t4775 = t4774 * t302; t4776 = t4769 * t4775; t4779 = -0.50265482457436691816e2 * t1382 * t4727 + 0.25132741228718345908e2 * t1382 * t4732 + 0.12566370614359172954e2 * t1379 * t1778 - 0.25132741228718345908e2 * t1382 * t4739 + 0.83775804095727819693e1 * t519 * t4743 + 0.12566370614359172954e2 * t519 * t4747 - 0.12566370614359172954e2 * t1382 * t4752 + 0.47374101125228921372e3 * t4756 * t1784 - 0.18949640450091568549e4 * t4759 * t4762 + 0.63165468166971895163e3 * t1782 * t4766 + 0.94748202250457842744e3 * t4759 * t4771 - 0.94748202250457842744e3 * t4759 * t4776; t4780 = t4725 + t4779; t4781 = t49 * t4780; t4784 = t1748 * t1317; t4788 = t797 * t801; t4789 = t4514 * t4788; t4792 = t4634 * t1323; t4795 = -t279 * t4543 / 0.4e1 - t279 * t4556 / 0.8e1 + 0.9e1 / 0.32e2 * t807 * t4548 + 0.9e1 * t504 * t4665 + 0.3e1 * t504 * t4670 - 0.216e3 * t4676 * t4677 * t4576 - 0.27e2 / 0.16e2 * t807 * t4516 + t48 * t4781 / 0.8e1 - 0.144e3 * t4784 * t4514 * t797 + 0.54e2 * t1319 * t4789 + 0.432e3 * t1319 * t4792; t4797 = t4624 - t48 * t4625 / 0.24e2 - 0.54e2 * t1319 * t4629 + 0.720e3 * t4633 * t4635 - 0.288e3 * t4633 * t4638 + 0.288e3 * t4633 * t4642 - 0.108e3 * t1319 * t4645 + 0.135e3 / 0.16e2 * t3439 * t4508 - t1359 * t1302 / 0.4e1 + 0.9e1 / 0.16e2 * t3568 * t1294 + 0.3e1 / 0.8e1 * t279 * t4539 + t4795; t4798 = t49 * t4797; t4801 = 0.4e1 / 0.3e1 * t749 * t1723 - 0.4e1 * t254 * t4539 + 0.8e1 / 0.3e1 * t254 * t4543 - 0.3e1 * t739 * t4548 + 0.2e1 / 0.9e1 * t745 * t1727 - 0.2e1 / 0.3e1 * t749 * t1727 + 0.4e1 / 0.3e1 * t254 * t4556 - 0.2e1 / 0.3e1 * t254 * t4560 - 0.2e1 / 0.3e1 * t4564 * t256 + 0.4e1 / 0.9e1 * t48 * t4567 - 0.4e1 / 0.3e1 * t48 * t4798; t4803 = my_piecewise3(t52, t4506, t4535 + t4801); t4804 = t4803 * t42; t4806 = t7 * t17 * t4804; t4807 = 0.3e1 / 0.8e1 * t4806; t4808 = t1796 * t227; t4810 = t7 * t17 * t4808; t4811 = 0.3e1 / 0.8e1 * t4810; t4813 = t184 * t1224 * t1421; t4815 = t7 * t197 * t1801; t4816 = t4815 / 0.4e1; t4817 = t1412 * t486; t4819 = t7 * t17 * t4817; t4820 = 0.3e1 / 0.4e1 * t4819; t4821 = t533 * t1273; t4823 = t7 * t17 * t4821; t4824 = 0.3e1 / 0.4e1 * t4823; t4825 = t1702 * t190; t4827 = t184 * t185 * t4825; t4828 = t4827 / 0.2e1; t4830 = t7 * t197 * t1805; t4831 = t4830 / 0.8e1; t4832 = t315 * t1702; t4834 = t7 * t17 * t4832; t4835 = 0.3e1 / 0.8e1 * t4834; t4836 = t104 * t4477; t4838 = t7 * t17 * t4836; t4839 = 0.3e1 / 0.8e1 * t4838; t4840 = -t4410 - t4413 - t4807 - t4811 - t4813 - t4816 - t4820 - t4824 - t4828 - t4831 - t4835 - t4839; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[0] = t9 * t4840 - t1800 - t1804 - t1808; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[1] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[2] = 0.0e0; 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; t4842 = t16 * t1934; t4844 = t325 * t4842 * t328; t4845 = t4844 / 0.2e1; t4847 = t7 * t332 * t1935; t4848 = t4847 / 0.8e1; t4850 = t325 * t1440 * t1447; t4852 = t7 * t332 * t1939; t4853 = t4852 / 0.4e1; t4854 = t1842 * t327; t4856 = t325 * t326 * t4854; t4857 = t4856 / 0.2e1; t4859 = t7 * t332 * t1943; t4860 = t4859 / 0.8e1; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[5] = -t1938 - t1942 - t1946 + t9 * (-t4845 - t4848 - t4850 - t4853 - t4857 - t4860); t4864 = t184 * t4407 * t340; t4865 = t4864 / 0.2e1; t4867 = t184 * t1224 * t1459; t4868 = t1702 * t339; t4870 = t184 * t185 * t4868; t4871 = t4870 / 0.2e1; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[6] = -t1800 - t1804 - t1808 + t9 * (-t4865 - t4413 - t4867 - t4816 - t4871 - t4831); if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[7] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[8] = 0.0e0; 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; t4875 = t325 * t4842 * t345; t4876 = t4875 / 0.2e1; t4881 = t138 * t1810; t4893 = t138 * t1842; t4908 = t1818 * t369; t4909 = t3963 * t4908; t4912 = t552 * t1505; t4913 = t1489 * t4912; t4919 = t1837 * t369; t4920 = t1489 * t4919; t4930 = t2809 * rho[1]; t4932 = 0.1e1 / t4930 * t2821; t4935 = 0.84000000000000000000e-2 * t1824 * t360 * t123 - 0.84000000000000000000e-2 * t1828 * t352 * t366 + 0.42000000000000000000e-1 * t1502 - 0.25200000000000000000e-1 * t4932 * sigma[2]; t4936 = t358 * t4935; t4940 = 0.49777777777777777776e-2 * t23 * t3943 * t552 + 0.37333333333333333332e-2 * t23 * t1491 - 0.18666666666666666666e-2 * t23 * t1480 * t1505 - 0.49777777777777777776e-2 * t23 * t353 * t1819 - 0.55999999999999999998e-2 * t1488 * t4909 + 0.37333333333333333332e-2 * t1488 * t4913 + 0.24888888888888888889e-2 * t23 * t353 * t1838 + 0.18666666666666666666e-2 * t1488 * t4920 - 0.93333333333333333332e-3 * t23 * t118 * t4936; t4941 = t115 * t4940; t4949 = t114 * t1810; t4961 = t114 * t1842; t4965 = t120 * t4940; t4969 = -0.8e1 / 0.3e1 * t201 * t2754 * t1811 * t374 + 0.16e2 / 0.27e2 * t201 * t992 * t4881 + 0.16e2 / 0.9e1 * t201 * t992 * t558 * t1510 + 0.8e1 / 0.9e1 * t201 * t992 * t1843 * t374 - 0.8e1 / 0.27e2 * t201 * t349 * t4893 - 0.4e1 / 0.9e1 * t201 * t349 * t4941 + 0.192e3 / 0.5e1 * t237 * t2838 * t1847 * t374 - 0.64e2 / 0.5e1 * t237 * t1051 * t4949 - 0.96e2 / 0.5e1 * t237 * t1051 * t562 * t1510 - 0.48e2 / 0.5e1 * t237 * t1051 * t1851 * t374 + 0.64e2 / 0.15e2 * t237 * t385 * t4961 + 0.16e2 / 0.5e1 * t237 * t385 * t4965; t4971 = t2926 * t1810 * t374; t4977 = t1556 * t1810; t4979 = t1291 * t4977 * t374; t4983 = t1291 * t1528 * t1510; t4998 = -0.90e2 * t4028 * t4971 + t3134 * t1857 - 0.3e1 * t3120 * t1857 + 0.18e2 * t1076 * t4979 - 0.6e1 * t1076 * t4983 - 0.6e1 * t4093 * t1530 + 0.4e1 / 0.9e1 * t4075 * t568 - 0.4e1 / 0.3e1 * t4085 * t568 + 0.8e1 / 0.3e1 * t1546 * t1538 - 0.4e1 / 0.3e1 * t1546 * t1542 - 0.4e1 / 0.9e1 * t1082 * t1863; t5002 = t23 * t1876 * t374; t5006 = t23 * t575 * t1510; t5009 = t1050 * t1842; t5011 = t1291 * t5009 * t374; t5019 = t23 * t1881 * t374; t5023 = t22 * t349 * t4940; t5027 = t397 * t1930 * M_PI; t5030 = t121 * t1929; t5035 = t1747 * t1073; t5036 = rho[1] * t3480; t5038 = t5035 * t5036 * t4285; t5039 = t1888 * t18; t5040 = t21 * t374; t5044 = t1872 * t18; t5045 = t5044 * t5040; t5059 = t4308 * t1872 * t374; t5063 = t1566 * t1567 * t1510; t5067 = t1566 * t1888 * t1137; t5070 = t1842 * t418; t5071 = t5070 * t374; t5072 = t1566 * t5071; t5075 = t1842 * t1133; t5076 = t5075 * t1137; t5077 = t1577 * t5076; t5086 = t1557 * t4320; t5089 = t1133 * t1137; t5090 = t4977 * t5089; t5093 = t1556 * t1842; t5094 = t5093 * t1558; t5098 = t1886 * rho[1] * t1317; t5099 = t2878 * t1810; t5100 = t5099 * t2978; t5103 = 0.135e3 / 0.16e2 * t4100 * t4971 - 0.216e3 * t5038 * t5039 * t5040 - 0.135e3 * t4287 * t5045 - 0.27e2 / 0.16e2 * t1143 * t4979 + 0.9e1 / 0.16e2 * t1143 * t4983 - t1594 * t1538 / 0.4e1 + 0.9e1 / 0.16e2 * t4257 * t1530 + 0.3e1 / 0.8e1 * t424 * t5002 - 0.36e2 * t574 * t5059 + 0.18e2 * t574 * t5063 - 0.9e1 * t574 * t5067 + 0.9e1 * t574 * t5072 + 0.3e1 * t574 * t5077 - t424 * t5006 / 0.4e1 - t424 * t5019 / 0.8e1 + 0.9e1 / 0.32e2 * t1143 * t5011 - 0.108e3 * t1554 * t5086 + 0.54e2 * t1554 * t5090 - 0.54e2 * t1554 * t5094 + 0.720e3 * t5098 * t5100; t5104 = t1557 * t4329; t5107 = t3063 * t1137; t5108 = t4977 * t5107; t5111 = t5099 * t1558; t5114 = t384 * t4940; t5116 = t68 * t5114 * t418; t5136 = t397 * t1926 * M_PI; t5147 = t1886 * t1317; t5151 = t1552 * t154; t5154 = t6 * t4940; t5164 = t557 * t147; t5167 = t1810 * t384; t5168 = t449 * t374; t5173 = t2 * t557; t5177 = t384 * t449; t5181 = t147 * t1196; t5187 = t1810 * t449; t5188 = t5187 * t374; t5189 = t4199 * t5188; t5193 = t992 * t4881 * t449; t5196 = -t512 * t5154 * t583 / 0.48e2 + t512 * t1900 * t1604 / 0.72e2 - t512 * t1900 * t1609 / 0.48e2 + 0.20000000000000000000e1 * t5164 * t4167 - 0.20000000000000000000e1 * t5167 * t5168 - 0.10000000000000000000e1 * t1904 * t3030 + 0.62831853071795864770e1 * t5173 * t1908 * t1510 - 0.62831853071795864770e1 * t1907 * t5177 * t374 - M_PI * t1907 * t5181 * t447 - 0.25132741228718345908e2 * t1614 * t1912 + 0.75398223686155037724e2 * t1617 * t5189 - 0.16755160819145563939e2 * t588 * t5193; t5197 = t1619 * t1510; t5198 = t1618 * t5197; t5201 = t1810 * t1196; t5202 = t5201 * t447; t5203 = t1618 * t5202; t5208 = t1842 * t449; t5209 = t5208 * t374; t5210 = t1618 * t5209; t5214 = t349 * t4893 * t449; t5218 = t349 * t4941 * t449; t5221 = t1842 * t1196; t5222 = t5221 * t447; t5223 = t1632 * t5222; t5226 = t440 * t62; t5227 = t5226 * t236; t5230 = t1919 * t1291; t5231 = t1556 * t120; t5232 = t5201 * t374; t5233 = t5231 * t5232; t5237 = t1051 * t4949 * t1196; t5240 = t1050 * t120; t5241 = t1633 * t1510; t5242 = t5240 * t5241; t5245 = t1810 * t3036; t5246 = t5245 * t447; t5247 = t5240 * t5246; t5250 = -0.50265482457436691816e2 * t1617 * t5198 + 0.25132741228718345908e2 * t1617 * t5203 + 0.12566370614359172954e2 * t1614 * t1916 - 0.25132741228718345908e2 * t1617 * t5210 + 0.83775804095727819693e1 * t588 * t5214 + 0.12566370614359172954e2 * t588 * t5218 - 0.12566370614359172954e2 * t1617 * t5223 + 0.47374101125228921372e3 * t5227 * t1922 - 0.18949640450091568549e4 * t5230 * t5233 + 0.63165468166971895163e3 * t1920 * t5237 + 0.94748202250457842744e3 * t5230 * t5242 - 0.94748202250457842744e3 * t5230 * t5247; t5251 = t5196 + t5250; t5252 = t138 * t5251; t5255 = t121 * t1925; t5258 = -0.3e1 / 0.32e2 * t3071 * t1857 + 0.3e1 * t1564 * t1878 + t5136 * t401 / 0.16e2 + t1594 * t1542 / 0.8e1 - t1151 * t1863 / 0.8e1 + t1151 * t1867 / 0.16e2 + t424 * t5023 / 0.16e2 - 0.144e3 * t5147 * t4977 * t1133 - 0.18e2 * t5151 * t1873 + t137 * t5252 / 0.8e1 - t137 * t5255 / 0.24e2; t5260 = t5103 - 0.288e3 * t5098 * t5104 + 0.288e3 * t5098 * t5108 + 0.432e3 * t1554 * t5111 - 0.3e1 * t574 * t5116 + 0.9e1 / 0.32e2 * t2915 * t1857 + t4251 * t568 / 0.8e1 - t1147 * t1867 / 0.48e2 - t4236 * t568 / 0.24e2 + t1147 * t1863 / 0.24e2 - t1564 * t1883 + t5258; t5261 = t138 * t5260; t5264 = 0.4e1 / 0.3e1 * t1086 * t1863 - 0.4e1 * t399 * t5002 + 0.8e1 / 0.3e1 * t399 * t5006 - 0.3e1 * t1076 * t5011 + 0.2e1 / 0.9e1 * t1082 * t1867 - 0.2e1 / 0.3e1 * t1086 * t1867 + 0.4e1 / 0.3e1 * t399 * t5019 - 0.2e1 / 0.3e1 * t399 * t5023 - 0.2e1 / 0.3e1 * t5027 * t401 + 0.4e1 / 0.9e1 * t137 * t5030 - 0.4e1 / 0.3e1 * t137 * t5261; t5266 = my_piecewise3(t141, t4969, t4998 + t5264); t5267 = t5266 * t131; t5269 = t7 * t112 * t5267; t5270 = 0.3e1 / 0.8e1 * t5269; t5271 = t1934 * t374; t5273 = t7 * t112 * t5271; t5274 = 0.3e1 / 0.8e1 * t5273; t5276 = t325 * t1440 * t1656; t5277 = t1647 * t557; t5279 = t7 * t112 * t5277; t5280 = 0.3e1 / 0.4e1 * t5279; t5281 = t602 * t1510; t5283 = t7 * t112 * t5281; t5284 = 0.3e1 / 0.4e1 * t5283; t5285 = t1842 * t344; t5287 = t325 * t326 * t5285; t5288 = t5287 / 0.2e1; t5289 = t460 * t1842; t5291 = t7 * t112 * t5289; t5292 = 0.3e1 / 0.8e1 * t5291; t5293 = t176 * t4940; t5295 = t7 * t112 * t5293; t5296 = 0.3e1 / 0.8e1 * t5295; t5297 = -t4876 - t4848 - t5270 - t5274 - t5276 - t4853 - t5280 - t5284 - t5288 - t4860 - t5292 - t5296; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3rhosigma2[11] = t9 * t5297 - t1938 - t1942 - t1946; t5299 = t1670 * t486; t5300 = t26 * t5299; t5314 = t1678 * t481; t5315 = t1996 * t5314; t5319 = t481 * t1697; t5320 = t1252 * t5319; t5324 = 0.1e1 / t30 / t688; t5328 = 0.1e1 / t688; t5335 = 0.1e1 / t2013; t5338 = 0.94500000000000000000e-2 * t5324 * t32 * t34 - 0.94500000000000000000e-2 * t5328 * t28 * t219 - 0.31500000000000000000e-2 * t1688 * t1694 * t694 + 0.94500000000000000000e-2 * t5335 * t2025; t5339 = t211 * t5338; t5343 = 0.55999999999999999998e-2 * t23 * t1252 * t1678 - 0.27999999999999999999e-2 * t23 * t1243 * t1697 - 0.55999999999999999998e-2 * t23 * t29 * t5315 + 0.55999999999999999998e-2 * t1251 * t5320 - 0.93333333333333333332e-3 * t23 * t29 * t5339; t5344 = t26 * t5343; t5348 = t31 * t5299; t5356 = t31 * t5343; t5361 = t2178 * t5299; t5362 = t2301 * t5361; t5368 = t236 * t2042 * t5299; t5372 = t1291 * t1292 * t1702; t5382 = t22 * t1958 * t5299; t5386 = t23 * t505 * t1702; t5390 = t22 * t202 * t5343; t5393 = t6 * t5343; t5397 = t1702 * t70; t5400 = t5299 * t239; t5403 = t5299 * t712; t5404 = t860 * t54; t5405 = t5403 * t5404; t5406 = t5 * t26; t5407 = t22 * t5406; t5410 = t1770 * t1702; t5413 = t2 * t5299; t5417 = t1958 * t5300 * t304; t5420 = t1384 * t1702; t5421 = t1383 * t5420; t5425 = t2042 * t5348 * t860; t5429 = t202 * t5344 * t304; t5432 = t4750 * t486; t5433 = t4769 * t5432; t5436 = t54 * t2; t5437 = t5436 * t22; t5438 = t5 * t5299; t5444 = 0.1e1 / t61 / t53; t5445 = t85 * t5444; t5446 = t5445 * t2178; t5447 = t24 * t5299; t5448 = t5447 * t2160; t5451 = -t512 * t5393 * t514 / 0.48e2 + 0.30000000000000000000e1 * t5397 * t1384 - 0.20000000000000000000e1 * t5400 * t304 + 0.25132741228718345908e2 * t5405 * t5407 + 0.94247779607693797155e1 * t4702 * t5410 - 0.12566370614359172954e2 * t5413 * t4706 + 0.75398223686155037724e2 * t519 * t5417 - 0.75398223686155037724e2 * t1382 * t5421 - 0.28424460675137352823e4 * t1782 * t5425 + 0.12566370614359172954e2 * t519 * t5429 + 0.14212230337568676412e4 * t4759 * t5433 + 0.39478417604357434477e2 * t5437 * t5438 * t3653 * t860 + 0.44886109148468323082e6 * t5446 * t5448; t5452 = t49 * t5451; t5455 = t2176 * t5361; t5458 = t5299 * t797; t5462 = t4628 * t1343; t5465 = t5299 * t273; t5466 = t2257 * t5465; t5469 = t1322 * t4663; t5483 = t1321 * t5299; t5485 = t68 * t5483 * t273; t5489 = t1331 * t1332 * t1702; t5496 = t5465 * t23; t5499 = t5458 * t23; t5502 = t239 * t5343; t5504 = t68 * t5502 * t273; t5508 = 0.1e1 / t61 / p->cam_omega; t5509 = t5508 * t251; t5510 = t289 * t3480; t5512 = t5509 * t5510 * t3483; t5513 = t5299 * t2085; t5514 = t5513 * t23; t5521 = 0.27e2 / 0.32e2 * t807 * t5372 - 0.36e2 * t504 * t5485 + 0.27e2 * t504 * t5489 + t279 * t5390 / 0.16e2 + 0.3e1 / 0.16e2 * t1359 * t1727 - 0.135e3 * t3485 * t5496 - 0.432e3 * t4676 * t5499 - 0.3e1 * t504 * t5504 - 0.1152e4 * t5512 * t5514 + 0.27e2 / 0.32e2 * t3568 * t1717 + 0.3e1 / 0.16e2 * t4613 * t497; t5522 = t48 * t5452 / 0.8e1 + 0.135e3 / 0.16e2 * t2175 * t5455 + 0.1152e4 * t1749 * t2257 * t5458 - 0.432e3 * t4633 * t5462 + 0.432e3 * t1730 * t5466 - 0.162e3 * t1319 * t5469 - 0.3e1 / 0.8e1 * t1359 * t1723 + 0.3e1 / 0.8e1 * t279 * t5382 - 0.3e1 / 0.8e1 * t279 * t5386 - 0.27e2 / 0.16e2 * t807 * t5368 + t5521; t5523 = t49 * t5522; t5526 = -0.90e2 * t2175 * t5362 - 0.9e1 * t3721 * t1717 + 0.18e2 * t739 * t5368 - 0.9e1 * t739 * t5372 - 0.2e1 * t4564 * t497 + 0.4e1 * t1310 * t1723 - 0.2e1 * t1310 * t1727 - 0.4e1 * t254 * t5382 + 0.4e1 * t254 * t5386 - 0.2e1 / 0.3e1 * t254 * t5390 - 0.4e1 / 0.3e1 * t48 * t5523; t5527 = my_piecewise3(t52, -0.8e1 / 0.3e1 * t201 * t1958 * t5300 + 0.8e1 / 0.3e1 * t201 * t654 * t487 * t1702 - 0.4e1 / 0.9e1 * t201 * t202 * t5344 + 0.192e3 / 0.5e1 * t237 * t2042 * t5348 - 0.144e3 / 0.5e1 * t237 * t713 * t491 * t1702 + 0.16e2 / 0.5e1 * t237 * t240 * t5356, t5526); t5528 = t5527 * t42; t5531 = 0.3e1 / 0.8e1 * t7 * t17 * t5528; t5532 = t1796 * t486; t5535 = 0.9e1 / 0.8e1 * t7 * t17 * t5532; t5536 = t533 * t1702; t5539 = 0.9e1 / 0.8e1 * t7 * t17 * t5536; t5540 = t104 * t5343; t5543 = 0.3e1 / 0.8e1 * t7 * t17 * t5540; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[0] = t9 * (-t5531 - t5535 - t5539 - t5543); if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[1] = 0.0e0; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[2] = 0.0e0; 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; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[5] = 0.0e0; 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; t5545 = t1810 * t557; t5546 = t115 * t5545; t5560 = t1818 * t552; t5561 = t2792 * t5560; t5565 = t552 * t1837; t5566 = t1489 * t5565; t5570 = 0.1e1 / t119 / t1026; t5574 = 0.1e1 / t1026; t5581 = 0.1e1 / t2809; t5584 = 0.94500000000000000000e-2 * t5570 * t121 * t123 - 0.94500000000000000000e-2 * t5574 * t117 * t366 - 0.31500000000000000000e-2 * t1828 * t1834 * t1032 + 0.94500000000000000000e-2 * t5581 * t2821; t5585 = t358 * t5584; t5589 = 0.55999999999999999998e-2 * t23 * t1489 * t1818 - 0.27999999999999999999e-2 * t23 * t1480 * t1837 - 0.55999999999999999998e-2 * t23 * t118 * t5561 + 0.55999999999999999998e-2 * t1488 * t5566 - 0.93333333333333333332e-3 * t23 * t118 * t5585; t5590 = t115 * t5589; t5594 = t120 * t5545; t5602 = t120 * t5589; t5607 = t2878 * t5545; t5608 = t3103 * t5607; t5614 = t236 * t2838 * t5545; t5618 = t1291 * t1528 * t1842; t5628 = t22 * t2754 * t5545; t5632 = t23 * t575 * t1842; t5636 = t22 * t349 * t5589; t5639 = t5093 * t1578; t5642 = t5545 * t418; t5643 = t2926 * t5642; t5646 = t1557 * t5070; t5649 = t6 * t5589; t5653 = t1842 * t147; t5656 = t5545 * t384; t5659 = t5545 * t1050; t5660 = t1196 * t54; t5661 = t5659 * t5660; t5662 = t5 * t115; t5663 = t22 * t5662; t5666 = t1908 * t1842; t5669 = t2 * t5545; t5673 = t2754 * t5546 * t449; t5676 = t1619 * t1842; t5677 = t1618 * t5676; t5681 = t2838 * t5594 * t1196; t5685 = t349 * t5590 * t449; t5688 = t5221 * t557; t5689 = t5240 * t5688; t5692 = t5 * t5545; t5697 = t159 * t5444; t5698 = t5697 * t2878; t5699 = t113 * t5545; t5700 = t5699 * t3036; t5703 = -t512 * t5649 * t583 / 0.48e2 + 0.30000000000000000000e1 * t5653 * t1619 - 0.20000000000000000000e1 * t5656 * t449 + 0.25132741228718345908e2 * t5661 * t5663 + 0.94247779607693797155e1 * t5173 * t5666 - 0.12566370614359172954e2 * t5669 * t5177 + 0.75398223686155037724e2 * t588 * t5673 - 0.75398223686155037724e2 * t1617 * t5677 - 0.28424460675137352823e4 * t1920 * t5681 + 0.12566370614359172954e2 * t588 * t5685 + 0.14212230337568676412e4 * t5230 * t5689 + 0.39478417604357434477e2 * t5437 * t5692 * t4199 * t1196 + 0.44886109148468323082e6 * t5698 * t5700; t5704 = t138 * t5703; t5713 = t1556 * t5545; t5715 = t68 * t5713 * t418; t5719 = t1566 * t1567 * t1842; t5733 = t5642 * t23; t5736 = t5545 * t1133; t5737 = t5736 * t23; t5740 = t384 * t5589; t5742 = t68 * t5740 * t418; t5745 = t5508 * t396; t5746 = t434 * t3480; t5748 = t5745 * t5746 * t4285; t5749 = t5545 * t3063; t5750 = t5749 * t23; t5755 = t2876 * t5607; t5761 = 0.27e2 / 0.32e2 * t1143 * t5618 + t424 * t5636 / 0.16e2 + 0.3e1 / 0.16e2 * t5136 * t568 + 0.3e1 / 0.16e2 * t1594 * t1867 - 0.135e3 * t4287 * t5733 - 0.432e3 * t5038 * t5737 - 0.3e1 * t574 * t5742 - 0.1152e4 * t5748 * t5750 + 0.27e2 / 0.32e2 * t4257 * t1857 + 0.135e3 / 0.16e2 * t2875 * t5755 + 0.1152e4 * t1887 * t2926 * t5736; t5762 = -0.432e3 * t5098 * t5639 + 0.432e3 * t1870 * t5643 - 0.162e3 * t1554 * t5646 + t137 * t5704 / 0.8e1 - 0.3e1 / 0.8e1 * t1594 * t1863 + 0.3e1 / 0.8e1 * t424 * t5628 - 0.3e1 / 0.8e1 * t424 * t5632 - 0.36e2 * t574 * t5715 + 0.27e2 * t574 * t5719 - 0.27e2 / 0.16e2 * t1143 * t5614 + t5761; t5763 = t138 * t5762; t5766 = -0.90e2 * t2875 * t5608 - 0.9e1 * t4093 * t1857 + 0.18e2 * t1076 * t5614 - 0.9e1 * t1076 * t5618 - 0.2e1 * t5027 * t568 + 0.4e1 * t1546 * t1863 - 0.2e1 * t1546 * t1867 - 0.4e1 * t399 * t5628 + 0.4e1 * t399 * t5632 - 0.2e1 / 0.3e1 * t399 * t5636 - 0.4e1 / 0.3e1 * t137 * t5763; t5767 = my_piecewise3(t141, -0.8e1 / 0.3e1 * t201 * t2754 * t5546 + 0.8e1 / 0.3e1 * t201 * t992 * t558 * t1842 - 0.4e1 / 0.9e1 * t201 * t349 * t5590 + 0.192e3 / 0.5e1 * t237 * t2838 * t5594 - 0.144e3 / 0.5e1 * t237 * t1051 * t562 * t1842 + 0.16e2 / 0.5e1 * t237 * t385 * t5602, t5766); t5768 = t5767 * t131; t5771 = 0.3e1 / 0.8e1 * t7 * t112 * t5768; t5772 = t1934 * t557; t5775 = 0.9e1 / 0.8e1 * t7 * t112 * t5772; t5776 = t602 * t1842; t5779 = 0.9e1 / 0.8e1 * t7 * t112 * t5776; t5780 = t176 * t5589; t5783 = 0.3e1 / 0.8e1 * t7 * t112 * t5780; if(v3rho3 != NULL && (p->info->flags & XC_FLAGS_HAVE_KXC)) v3sigma3[9] = t9 * (-t5771 - t5775 - t5779 - t5783); #ifndef XC_DONT_COMPILE_LXC if(order < 4) return; t5786 = 0.5e1 / 0.9e1 * t1956; t5789 = 0.5e1 / 0.9e1 * t2366; t5799 = -0.3e1 / 0.2e1 * t1949 + t1952 - t5786 - 0.3e1 / 0.2e1 * t2356 - 0.3e1 * t2359 + t2362 - t5789 - 0.3e1 / 0.2e1 * t2370 - 0.9e1 / 0.2e1 * t2374 - 0.9e1 / 0.2e1 * t2378 - 0.3e1 / 0.2e1 * t2381 - 0.2e1 * t2390 - 0.6e1 * t2394 - 0.6e1 * t2398 - 0.6e1 * t2401 - 0.12e2 * t2404; t5821 = t2383 * t9; t5823 = t8 / t5821; t5825 = -0.12e2 * t2384 + 0.12e2 * t5823; t5830 = t924 * t191; t5831 = t184 * t5830; t5837 = t184 * t2426 * t638; t5840 = t618 * t624 * t2416; t5846 = t184 * t2420 * t638; t5849 = t184 * t624 * t2396; t5855 = t184 * t624 * t2388; t5857 = t643 * t315; t5859 = t184 * t5857 * t191; t5865 = -0.3e1 * t184 * t185 * t702 * t637 - 0.6e1 * t184 * t628 * t2396 - 0.2e1 * t184 * t185 * t227 * t2387 - t184 * t185 * t42 * t5825 / 0.2e1 - 0.20e2 / 0.27e2 * t5831 - 0.2e1 * t184 * t628 * t2388 + 0.2e1 / 0.3e1 * t5837 - 0.2e1 / 0.3e1 * t5840 - 0.2e1 * t618 * t628 * t2416 - 0.2e1 * t5846 - 0.2e1 * t5849 - t618 * t185 * t702 * t619 - 0.2e1 / 0.3e1 * t5855 + 0.4e1 / 0.3e1 * t5859 - 0.2e1 / 0.3e1 * t618 * t185 * t2388 * t190; t5867 = t618 * t624 * t2470; t5888 = t325 * t893 * t2450; t5895 = t939 * t328; t5896 = t325 * t5895; t5903 = t887 * t893 * t2442; t5910 = t325 * t2466 * t898; t5915 = t196 * t871; t5917 = t184 * t5915 * t191; t5920 = t184 * t2426 * t631; t5922 = -0.2e1 / 0.3e1 * t5867 - 0.2e1 * t618 * t628 * t2470 - 0.2e1 * t618 * t185 * t2396 * t190 + 0.2e1 / 0.3e1 * t2433 * t185 * t620 * t637 + 0.2e1 / 0.3e1 * t2457 * t326 * t889 * t897 - 0.6e1 * t184 * t628 * t2392 - 0.2e1 / 0.3e1 * t5888 + t325 * t326 * t131 * t5825 / 0.2e1 - 0.20e2 / 0.27e2 * t5896 - 0.2e1 * t184 * t185 * t2033 * t190 - 0.2e1 / 0.3e1 * t5903 - 0.2e1 / 0.3e1 * t887 * t326 * t2450 * t327 + 0.2e1 / 0.3e1 * t5910 - 0.6e1 * t184 * t2412 * t631 - 0.2e1 * t5917 + 0.4e1 / 0.3e1 * t5920; t5925 = t184 * t2420 * t631; t5927 = t13 * t13; t5931 = t4 * t6 / t615 / t5927; t5932 = t619 * t619; t5938 = t2433 * t624 * t2435; t5940 = t637 * t637; t5946 = t618 * t2426 * t620; t5951 = t109 * t109; t5955 = t4 * t6 / t884 / t5951; t5956 = t888 * t888; t5962 = t2457 * t893 * t2459; t5965 = t887 * t2466 * t889; t5967 = t897 * t897; t5972 = t16 * t2353; t5977 = t184 * t624 * t2392; t5984 = t618 * t2420 * t620; t5991 = -0.4e1 * t5925 - 0.5e1 / 0.27e2 * t5931 * t185 * t42 * t5932 + 0.4e1 / 0.27e2 * t5938 - t618 * t185 * t42 * t5940 / 0.2e1 + 0.2e1 / 0.9e1 * t5946 + 0.4e1 / 0.9e1 * t2433 * t628 * t2435 - 0.5e1 / 0.27e2 * t5955 * t326 * t131 * t5956 + 0.4e1 / 0.27e2 * t5962 + 0.2e1 / 0.9e1 * t5965 - t887 * t326 * t131 * t5967 / 0.2e1 - 0.2e1 * t184 * t5972 * t191 - 0.2e1 * t5977 + 0.4e1 / 0.9e1 * t2433 * t185 * t227 * t2434 - 0.2e1 / 0.3e1 * t5984 - t618 * t2412 * t620 - 0.3e1 * t184 * t2412 * t638; t5993 = t7 * t197 * t2368; t5996 = t7 * t644 * t872; t5999 = t7 * t1954 * t320; t6002 = t7 * t644 * t876; t6007 = t702 * t702; t6019 = t6 * t2178; t6020 = t655 * t655; t6038 = t654 * t32 * t655; t6046 = t654 * t26 * t6007; t6053 = -0.768e3 / 0.5e1 * t237 * t713 * t718 * t702 - 0.144e3 / 0.5e1 * t237 * t713 * t31 * t6007 - 0.192e3 / 0.5e1 * t237 * t713 * t241 * t2033 - 0.512e3 / 0.135e3 * t237 * t240 * t832 - 0.192e3 * t237 * t6019 * t31 * t6020 + 0.1024e4 / 0.5e1 * t237 * t2042 * t25 * t1959 + 0.1152e4 / 0.5e1 * t237 * t2042 * t714 * t702 - 0.128e3 / 0.5e1 * t237 * t713 * t80 * t655 - 0.32e2 / 0.27e2 * t201 * t6038 + 0.64e2 / 0.9e1 * t201 * t654 * t660 * t702 + 0.8e1 / 0.3e1 * t201 * t6046 + 0.32e2 / 0.9e1 * t201 * t654 * t228 * t2033; t6055 = t202 * t213 * t227; t6058 = t5 * t1321; t6060 = t6058 * t26 * t6020; t6064 = t1958 * t49 * t1959; t6081 = sigma[0] / t26 / t1262; t6104 = 0.1e1 / t1995 / t37; t6105 = t676 * t676; t6114 = t697 * t697; t6133 = t2013 * t664; t6138 = t688 * t688; t6145 = 0.1e1 / t218 / t2023 / t217; t6153 = 0.24133004115226337449e0 * t23 * t6081 * t38 + 0.17035061728395061728e0 * t23 * t1982 * t223 + 0.10951111111111111111e0 * t23 * t667 * t677 - 0.54755555555555555556e-1 * t23 * t667 * t698 + 0.59733333333333333332e-1 * t23 * t206 * t1998 - 0.59733333333333333332e-1 * t1251 * t3264 * t2002 + 0.99555555555555555556e-2 * t23 * t206 * t2029 + 0.22399999999999999999e-1 * t23 * t29 * t6104 * t6105 - 0.33599999999999999998e-1 * t1251 * t3271 * t676 * t697 + 0.55999999999999999998e-2 * t23 * t29 * t675 * t6114 + 0.74666666666666666664e-2 * t1251 * t1252 * t222 * t2028 - 0.93333333333333333332e-3 * t23 * t29 * t211 * (0.11324444444444444444e1 * t30 * t1694 * t34 + 0.53834666666666666666e1 * t6081 * t219 - 0.57891555555555555555e1 * t688 / t25 / t4467 * t694 + 0.41813333333333333333e1 * t2019 / t6133 * t2025 - 0.11946666666666666667e1 * t6138 / t26 / t2013 / t1262 * t6145); t6166 = t202 * t49 * t2033; t6170 = t202 * t26 * t6153; t6174 = t202 * t32 * t702; t6177 = -0.128e3 / 0.243e3 * t201 * t6055 + 0.32e2 / 0.3e1 * t201 * t6060 - 0.64e2 / 0.9e1 * t201 * t6064 - 0.16e2 * t201 * t1958 * t656 * t702 - 0.64e2 / 0.81e2 * t65 * t68 * t70 * t28 + 0.256e3 / 0.15e2 * t237 * t240 * t25 * t2033 + 0.16e2 / 0.5e1 * t237 * t240 * t31 * t6153 + 0.128e3 / 0.15e2 * t237 * t240 * t828 - 0.224e3 / 0.729e3 * t56 * t21 * t43 * t682 - 0.32e2 / 0.27e2 * t201 * t6166 - 0.4e1 / 0.9e1 * t201 * t6170 + 0.16e2 / 0.27e2 * t201 * t6174; t6179 = t655 * t702; t6180 = t2257 * t6179; t6184 = t252 * t2305 * M_PI; t6190 = t252 * t2308 * M_PI; t6194 = t252 * t2311 * M_PI; t6198 = t737 * t867 * t63; t6204 = t22 * t202 * t6153; t6208 = t737 * t760 * t63; t6215 = t236 * t6019 * t6020; t6219 = t236 * t713 * t6007; t6229 = t22 * t6058 * t6020; t6233 = t22 * t654 * t6007; t6243 = t3483 * t6020; t6247 = -0.108e3 * t739 * t6215 - 0.9e1 * t739 * t6219 + 0.32e2 / 0.9e1 * t2341 * t753 - 0.16e2 * t749 * t2188 + 0.16e2 / 0.3e1 * t745 * t2188 + 0.16e2 * t254 * t6229 + 0.4e1 * t254 * t6233 - 0.16e2 / 0.3e1 * t2327 * t753 - 0.16e2 / 0.9e1 * t2341 * t757 - 0.32e2 / 0.9e1 * t48 * t213 * t866 + 0.1080e4 * t2175 * t2301 * t6243; t6249 = t2174 * t32; t6252 = t310 * t1317; t6257 = t712 * t655 * t702; t6258 = t23 * t6257; t6262 = t1321 * t655 * t702; t6263 = t1291 * t6262; t6275 = t239 * t2033 * t227; t6276 = t23 * t6275; t6280 = t712 * t2033 * t227; t6281 = t1291 * t6280; t6286 = t737 * t863 * t63; t6315 = t1317 * t18; t6318 = 0.1e1 / t3 / t2 * t5; t6323 = 0.1e1 / t46 / t6315 / t6318 / t712 / 0.36e2; t6324 = p->cam_omega * t6323; t6326 = t6324 * t96 * t3480; t6327 = t711 * t711; t6328 = 0.1e1 / t6327; t6330 = t6328 * t6020 * t23; t6334 = t252 * t2164 * M_PI; t6338 = t252 * t2167 * M_PI; t6342 = t252 * t2100 * M_PI; t6346 = t252 * t2103 * M_PI; t6360 = -0.24e2 * t1962 + 0.16e2 * t1966 + 0.24e2 * t1970 + 0.8e1 / 0.3e1 * t1974 - 0.8e1 * t1978 - 0.4e1 * t2036 + 0.32e2 / 0.27e2 * t2040; t6365 = 0.27e2 / 0.16e2 * t6286 * t741 - t2220 * t757 / 0.4e1 - 0.8e1 / 0.3e1 * t786 * t202 * t32 * t273 * t227 - 0.8e1 / 0.3e1 * t786 * t88 * t32 * t797 * t801 + 0.16e2 * t2210 * t2198 + 0.8e1 * t786 * t88 * t2196 * t2205 - t811 * t2232 / 0.12e2 + 0.3e1 / 0.8e1 * t2226 * t757 + t815 * t2232 / 0.4e1 + t279 * t6204 / 0.16e2 + 0.945e3 / 0.32e2 * t6326 * t6330 + t6334 * t256 / 0.4e1 + t6338 * t256 / 0.3e1 - t6342 * t256 / 0.4e1 - 0.7e1 / 0.27e2 * t6346 * t256 + 0.12e2 * t2210 * t2184 + 0.12e2 * t2210 * t2207 + 0.4e1 * t786 * t88 * t798 * t6360; t6366 = t2292 * t785; t6370 = t737 * t822 * t63; t6387 = t654 * t26; t6388 = t797 * t655; t6389 = t6388 * t801; t6393 = t2085 * t227; t6394 = t6393 * t2087; t6402 = t3422 * t227; t6406 = t797 * t702; t6407 = t6406 * t801; t6413 = t797 * t2205; t6414 = t6413 * t227; t6418 = t2085 * t2205; t6419 = t6418 * t801; t6425 = 0.12e2 * t6366 * t789 + 0.3e1 / 0.4e1 * t6370 * t741 + 0.3e1 / 0.2e1 * t815 * t2188 + 0.81e2 / 0.8e1 * t807 * t6215 + 0.4e1 * t786 * t202 * t787 * t2033 + 0.12e2 * t6366 * t803 + t811 * t2241 / 0.2e1 - 0.9e1 / 0.8e1 * t2093 * t2246 + 0.24e2 * t786 * t6387 * t6389 + 0.24e2 * t786 * t2249 * t6394 - 0.3e1 / 0.2e1 * t815 * t2241 + 0.27e2 / 0.8e1 * t2216 * t2246 - 0.24e2 * t786 * t6387 * t6402 - 0.12e2 * t786 * t2249 * t6407 - 0.24e2 * t2210 * t2252 - 0.12e2 * t786 * t2249 * t6414 - 0.24e2 * t786 * t89 * t6419 - t279 * t6276 / 0.2e1; t6453 = t737 * t825 * t63; t6479 = 0.9e1 / 0.8e1 * t807 * t6281 - 0.16e2 * t786 * t202 * t49 * t2251 + 0.9e1 / 0.4e1 * t279 * t6258 - 0.81e2 / 0.8e1 * t807 * t6263 + 0.35e2 / 0.81e2 * t48 * t2007 * t95 - 0.14e2 / 0.27e2 * t48 * t682 * t306 - t48 * t32 * t2163 / 0.6e1 - 0.32e2 / 0.27e2 * t270 * t21 * t2038 * t273 - 0.3e1 / 0.4e1 * t2226 * t753 - 0.9e1 / 0.8e1 * t6453 * t741 - 0.27e2 / 0.4e1 * t2216 * t2192 + t2220 * t753 / 0.2e1 + t2072 * t757 / 0.6e1 + 0.8e1 * t786 * t202 * t2079 * t702 - 0.24e2 * t2210 * t2097 + 0.16e2 * t2210 * t2081 - 0.16e2 * t786 * t88 * t49 * t2085 * t2087 + 0.24e2 * t786 * t1958 * t787 * t1959; t6480 = t796 * t796; t6481 = 0.1e1 / t6480; t6483 = t2087 * t801; t6510 = t1317 * t3483; t6533 = 0.405e3 / 0.2e1 * t2175 * t6180 - 0.45e2 * t6249 * t2258 - 0.405e3 * t2175 * t6510 * t6020 + 0.140e3 / 0.81e2 * t48 * t2007 + t263 * t6204 / 0.4e1 + 0.2e1 / 0.3e1 * t2273 * t757 - t771 * t2232 / 0.3e1 + 0.945e3 / 0.8e1 * t6324 * t49 * t3480 * t6330 - 0.6e1 * t263 * t6229 + 0.9e1 * t2283 * t21 * t6257 - 0.3e1 / 0.2e1 * t263 * t6233; t6569 = -0.2e1 * t2283 * t21 * t6275 + 0.81e2 / 0.2e1 * t767 * t6215 - 0.81e2 / 0.2e1 * t2268 * t68 * t6262 + 0.27e2 / 0.8e1 * t767 * t6219 + 0.9e1 / 0.2e1 * t2268 * t68 * t6280 - 0.28e2 / 0.27e2 * t252 * t682 * M_PI * t256 - 0.4e1 / 0.3e1 * t2273 * t753 - 0.2e1 * t771 * t2188 + 0.2e1 * t252 * t770 * t18 * t2284 + 0.3e1 * t737 * t213 * t63 * t741 + 0.9e1 * t2262 * t2192 - 0.9e1 / 0.2e1 * t737 * t2261 * t1 * t2269; t6579 = t306 * t1317; t6661 = 0.30159289474462015090e3 * t87 * t6060 - 0.20106192982974676727e3 * t87 * t6064 - 0.45238934211693022634e3 * t2137 * t3653 * t6179 - 0.33510321638291127878e2 * t87 * t6038 + 0.20106192982974676727e3 * t2137 * t3658 * t2138 + 0.75398223686155037724e2 * t87 * t6046 + 0.10053096491487338363e3 * t2137 * t1383 * t227 * t2033 - 0.14893476283684945724e2 * t87 * t6055 + 0.16755160819145563939e2 * t87 * t6174 - 0.33510321638291127877e2 * t87 * t6166 - 0.12566370614359172954e2 * t87 * t6170 - 0.86878611654828850052e1 * t87 * t88 * t682; t6666 = t2160 * t857; t6669 = t854 * t854; t6673 = t857 * t857; t6675 = t859 * t859; t6676 = 0.1e1 / t6675; t6679 = -(t78 * t79 * t6153 * t80 / 0.48e2 - t78 * t79 * t2033 * t290 / 0.18e2 + 0.5e1 / 0.36e2 * t78 * t79 * t702 * t28 - 0.20e2 / 0.81e2 * t78 * t79 * t227 * t205 + 0.55e2 / 0.243e3 * t78 * t79 * t42 * t666) * t93 - 0.4e1 * t2122 * t302 * t304 - 0.6e1 * t840 * t854 * t304 + 0.6e1 * t840 * t857 * t860 - 0.4e1 * t295 * t2151 * t304 + 0.12e2 * t2127 * t2154 - 0.8e1 * t295 * t2157 * t2160 - t85 * t6661 * t304 + 0.4e1 * t2152 * t2154 - 0.12e2 * t855 * t6666 + 0.3e1 * t85 * t6669 * t860 + 0.6e1 * t85 * t6673 * t6676; t6683 = 0.24e2 * t786 * t88 * t26 * t6481 * t6483 - 0.16e2 * t786 * t654 * t2079 * t655 - t2072 * t753 / 0.3e1 - 0.3e1 / 0.2e1 * t279 * t6229 - 0.3e1 / 0.8e1 * t279 * t6233 + 0.9e1 / 0.4e1 * t2093 * t2192 + 0.27e2 / 0.32e2 * t807 * t6219 - t811 * t2188 / 0.2e1 - 0.24e2 * t2210 * t2089 - 0.4e1 * (t6533 + t6569) * t54 * t19 * t275 - 0.8e1 * t2293 * t793 + 0.8e1 / 0.3e1 * t782 * t2236 + 0.135e3 / 0.4e1 * t2175 * t6579 * t2179 - 0.405e3 / 0.4e1 * t2175 * t2176 * t6243 - 0.45e2 / 0.4e1 * t6249 * t2180 + 0.405e3 / 0.8e1 * t3439 * t6180 + t48 * t213 * t862 / 0.3e1 + t48 * t49 * t6679 / 0.8e1; t6699 = t737 * t763 * t63; t6708 = t252 * t2298 * M_PI; t6712 = t6324 * t100 * t3480; t6718 = -0.4e1 / 0.3e1 * t48 * t49 * (t6365 + t6425 + t6479 + t6683) - 0.1120e4 / 0.243e3 * t48 * t2007 * t99 + 0.8e1 / 0.9e1 * t745 * t2232 + 0.8e1 / 0.3e1 * t2327 * t757 + 0.8e1 * t2319 * t753 + 0.12e2 * t6699 * t741 + 0.72e2 * t2323 * t2192 + 0.448e3 / 0.81e2 * t48 * t682 * t310 - 0.8e1 / 0.3e1 * t6708 * t256 - 0.315e3 * t6712 * t6330 + 0.16e2 / 0.9e1 * t48 * t32 * t2297; t6721 = my_piecewise3(t52, t6053 + t6177, -0.540e3 * t3409 * t6180 + 0.8e1 / 0.3e1 * t6184 * t256 - 0.4e1 * t2319 * t757 - 0.32e2 / 0.9e1 * t6190 * t256 + 0.224e3 / 0.81e2 * t6194 * t256 - 0.18e2 * t6198 * t741 - 0.8e1 / 0.3e1 * t749 * t2232 - 0.2e1 / 0.3e1 * t254 * t6204 - 0.8e1 * t6208 * t741 - 0.24e2 * t2347 * t2192 + t6247 + 0.120e3 * t6249 * t2302 - 0.360e3 * t2175 * t6252 * t2179 - 0.24e2 * t254 * t6258 + 0.108e3 * t739 * t6263 - 0.16e2 / 0.3e1 * t745 * t2241 + 0.12e2 * t2347 * t2246 + 0.16e2 * t749 * t2241 - 0.36e2 * t2323 * t2246 + 0.16e2 / 0.3e1 * t254 * t6276 - 0.12e2 * t739 * t6281 + t6718); t6727 = t7 * t197 * t2354; t6730 = t7 * t644 * t880; t6735 = 0.10e2 / 0.27e2 * t7 * t15 * t2542 * t105; t6753 = t7 * t1954 * t316; t6756 = t7 * t197 * t2376; t6759 = t7 * t197 * t2372; t6764 = 0.10e2 / 0.27e2 * t7 * t111 * t2542 * t177; t6765 = -t5993 / 0.2e1 + t5996 / 0.2e1 - 0.5e1 / 0.9e1 * t5999 + t6002 - 0.3e1 / 0.8e1 * t7 * t17 * t6721 * t42 - t6727 / 0.2e1 + t6730 / 0.2e1 + t6735 - 0.3e1 / 0.2e1 * t7 * t17 * t2353 * t227 - 0.3e1 / 0.8e1 * t7 * t17 * t104 * t6153 - 0.9e1 / 0.4e1 * t7 * t17 * t871 * t702 - 0.3e1 / 0.2e1 * t7 * t17 * t315 * t2033 - 0.5e1 / 0.9e1 * t6753 - 0.3e1 / 0.2e1 * t6756 - 0.3e1 / 0.2e1 * t6759 + t6764; t6775 = -0.4e1 * t2408 - 0.2e1 * t2410 - 0.6e1 * t2414 - 0.2e1 * t2418 - 0.4e1 * t2422 - 0.2e1 * t2424 + 0.4e1 / 0.3e1 * t2428 + 0.4e1 / 0.9e1 * t2437 - 0.2e1 / 0.3e1 * t2440 - 0.2e1 * t2444 + t9 * (t5865 + t5922 + t5991 + t6765) - 0.2e1 * t2447 - 0.2e1 * t2452 + 0.4e1 / 0.9e1 * t2461 - 0.2e1 / 0.3e1 * t2464 + 0.4e1 / 0.3e1 * t2468 - 0.2e1 * t2472; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[0] = t5799 + t6775; t6776 = t924 * t340; t6777 = t184 * t6776; t6780 = 0.1e1 / t195 / t2383; t6783 = t184 * t6780 * t104 * t925; t6786 = t184 * t5857 * t340; t6787 = t6786 / 0.3e1; t6789 = t325 * t2568 * t898; t6792 = t325 * t893 * t2590; t6796 = t325 * t6780 * t176 * t940; t6799 = t184 * t624 * t2547; t6802 = t184 * t5915 * t340; t6805 = t184 * t2426 * t918; t6806 = t6805 / 0.3e1; t6810 = -0.5e1 / 0.27e2 * t6777 - 0.25e2 / 0.6e1 * t6783 + t6787 - t6789 / 0.2e1 - t6792 / 0.2e1 + 0.25e2 / 0.6e1 * t6796 - t6799 / 0.2e1 - t6802 / 0.2e1 + t6806 - 0.5e1 / 0.9e1 * t5831 + t5837 / 0.3e1 - t5840 / 0.6e1; t6825 = t618 * t624 * t2530; t6832 = t887 * t2594 * t2517; t6841 = -t5846 / 0.2e1 - t5849 / 0.2e1 - t5855 / 0.6e1 + 0.2e1 / 0.3e1 * t5859 - t618 * t628 * t2526 + t2433 * t628 * t2499 / 0.3e1 + t2433 * t185 * t918 * t619 / 0.3e1 - t6825 / 0.6e1 - t618 * t924 * t925 * t637 / 0.2e1 - 0.7e1 / 0.6e1 * t6832 - t618 * t185 * t2547 * t190 / 0.2e1 - t618 * t2412 * t908 / 0.2e1; t6844 = t618 * t624 * t2526; t6864 = t887 * t893 * t2522; t6871 = t2457 * t893 * t2510; t6874 = t887 * t2466 * t932; t6875 = t6874 / 0.9e1; t6877 = t618 * t2543 * t2506; t6883 = -t6844 / 0.3e1 - t618 * t924 * t2572 * t190 - t618 * t2575 * t2506 + t887 * t939 * t940 * t897 / 0.2e1 - t887 * t326 * t345 * t2449 / 0.6e1 - t2457 * t939 * t940 * t888 / 0.3e1 - t6864 / 0.6e1 - 0.5e1 / 0.27e2 * t5955 * t326 * t345 * t2458 + t6871 / 0.9e1 + t6875 + 0.7e1 / 0.6e1 * t6877 - t618 * t185 * t340 * t2387 / 0.6e1; t6885 = t618 * t2426 * t908; t6886 = t6885 / 0.9e1; t6895 = t618 * t2420 * t908; t6902 = t2433 * t624 * t2499; t6926 = t6886 - t618 * t185 * t918 * t637 / 0.2e1 - t618 * t628 * t2530 / 0.2e1 - t6895 / 0.3e1 - 0.5e1 / 0.27e2 * t5931 * t185 * t340 * t2434 + t6902 / 0.9e1 + t2433 * t924 * t925 * t619 / 0.3e1 - t887 * t945 * t2442 / 0.2e1 - t887 * t326 * t2590 * t327 / 0.2e1 - t5867 / 0.6e1 - t184 * t5972 * t340 / 0.2e1 - 0.3e1 / 0.2e1 * t184 * t923 * t871 * t925 - 0.3e1 / 0.2e1 * t184 * t628 * t2547; t6936 = t643 * t460; t6938 = t325 * t6936 * t328; t6939 = t6938 / 0.3e1; t6945 = t325 * t2466 * t952; t6946 = t6945 / 0.3e1; t6952 = t184 * t2420 * t918; t6954 = t184 * t2543 * t2572; t6958 = t184 * t2542 * t315 * t925; t6960 = t939 * t345; t6961 = t325 * t6960; t6966 = t887 * t5895 / 0.2e1 - t618 * t5830 / 0.2e1 - t325 * t945 * t2450 / 0.2e1 + t6939 - t325 * t326 * t374 * t2449 / 0.2e1 + t6946 - 0.3e1 / 0.2e1 * t184 * t924 * t702 * t8 - t6952 + 0.7e1 / 0.2e1 * t6954 + 0.7e1 / 0.2e1 * t6958 - 0.5e1 / 0.27e2 * t6961 + t2457 * t945 * t2459 / 0.9e1; t6968 = t887 * t2568 * t889; t6978 = t887 * t893 * t2553; t6993 = -t6968 / 0.6e1 - 0.3e1 * t184 * t2575 * t2572 + t2457 * t326 * t374 * t2458 / 0.9e1 - t6978 / 0.6e1 - t184 * t185 * t2033 * t339 / 0.2e1 - 0.3e1 / 0.2e1 * t184 * t2412 * t918 - t5888 / 0.6e1 - 0.5e1 / 0.9e1 * t5896 - t5903 / 0.6e1 + t5910 / 0.3e1 - t5917 / 0.2e1 + 0.2e1 / 0.3e1 * t5920 - t5925; t7002 = t4 * t2432 * t16; t7009 = t4 * t2456 * t16; t7010 = t344 * t327; t7016 = t7 * t2364 * t465; t7020 = t7 * t110 * t2542 * t177; t7024 = t7 * t14 * t2542 * t105; t7027 = t7 * t2364 * t461; t7029 = t5938 / 0.27e2 + t5946 / 0.9e1 + t5962 / 0.27e2 + t5965 / 0.9e1 - t5977 / 0.2e1 - t5984 / 0.6e1 + t7002 * t105 * t339 * t637 * t190 / 0.3e1 + t7009 * t177 * t7010 * t897 / 0.3e1 - 0.5e1 / 0.36e2 * t7016 - 0.5e1 / 0.2e1 * t7020 + 0.5e1 / 0.2e1 * t7024 - 0.5e1 / 0.36e2 * t7027; t7045 = -0.3e1 / 0.2e1 * t7 * t2608 * t316 - 0.3e1 / 0.2e1 * t7 * t2608 * t320 - t5993 / 0.8e1 + t5996 / 0.4e1 - 0.5e1 / 0.12e2 * t5999 + t6002 / 0.2e1 - t6727 / 0.8e1 + t6730 / 0.4e1 + t6735 - 0.5e1 / 0.12e2 * t6753 - 0.3e1 / 0.8e1 * t6756 - 0.3e1 / 0.8e1 * t6759 + t6764; t7055 = t2504 / 0.3e1; t7057 = t2515 / 0.3e1; t7060 = t9 * (t6810 + t6841 + t6883 + t6926 + t6966 + t6993 + t7029 + t7045) - 0.3e1 / 0.4e1 * t1949 + 0.3e1 / 0.4e1 * t1952 - t5786 - t2357 - 0.3e1 / 0.2e1 * t2359 + 0.3e1 / 0.4e1 * t2362 + t2501 / 0.3e1 - t7055 - t2508 + t2512 / 0.3e1 - t7057 + t2519 - t2524 / 0.2e1 - t2528 - t2532 / 0.2e1; t7068 = -t2535 - t5789 - t2371 - t2375 - t2379 - 0.3e1 / 0.4e1 * t2381 + t3215 + 0.7e1 / 0.2e1 * t2545 - 0.3e1 / 0.2e1 * t2549 - 0.3e1 * t2552 - t2555 / 0.2e1 - t2558 + t3216 - t2566 / 0.2e1 - t2570 - 0.3e1 * t2574; t7076 = -0.3e1 * t2577 - t2579 - 0.3e1 / 0.2e1 * t2582 - t2585 - 0.3e1 / 0.2e1 * t2588 - 0.3e1 / 0.2e1 * t2592 - 0.7e1 / 0.2e1 * t2596 - t2391 - t2395 - t2399 - t2402 - t2405 - 0.2e1 * t2408 - t2410 - t2415 - t2419; t7082 = -0.2e1 * t2422 - t2425 + t2428 + t2438 - t2440 / 0.3e1 - t2445 + 0.3e1 / 0.2e1 * t2606 - 0.3e1 / 0.2e1 * t2610 + t3225 + t3226 - t2447 - t2453 + t2462 - t2464 / 0.3e1 + t2468 - t2473; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[1] = t7060 + t7068 + t7076 + t7082; t7101 = -t1949 / 0.4e1 + t1952 / 0.2e1 - t5786 - t2359 / 0.2e1 + t2362 / 0.2e1 - t2631 / 0.4e1 - t2634 / 0.2e1 - t2637 / 0.4e1 - 0.2e1 / 0.3e1 * t2641 - 0.2e1 / 0.3e1 * t2645 - t2649 / 0.3e1 + 0.2e1 / 0.9e1 * t2653 + 0.2e1 / 0.3e1 * t2657 - 0.2e1 / 0.3e1 * t2661 - t2665 / 0.3e1 + 0.2e1 / 0.9e1 * t2669 + 0.2e1 / 0.9e1 * t2501 - 0.4e1 / 0.9e1 * t2504; t7119 = -0.2e1 / 0.3e1 * t2508 + 0.2e1 / 0.9e1 * t2512 - 0.4e1 / 0.9e1 * t2515 + 0.2e1 / 0.3e1 * t2519 - t2524 / 0.3e1 - 0.2e1 / 0.3e1 * t2528 - t2532 / 0.3e1 - 0.2e1 / 0.3e1 * t2535 - t5789 - t2381 / 0.4e1 - 0.2e1 / 0.3e1 * t2672 - t2675 / 0.3e1 - t2678 / 0.9e1 - 0.2e1 / 0.3e1 * t2681 - t2684 / 0.3e1 - t2687 / 0.9e1 - 0.2e1 * t2692 - t2695 + 0.2e1 * t2699; t7134 = 0.2e1 * t2702 - t2707 - t2711 - t2716 - t2719 - t2723 / 0.3e1 - t2726 / 0.3e1 - t2730 + 0.2e1 / 0.3e1 * t2539 + 0.5e1 / 0.3e1 * t2545 - t2549 - 0.2e1 * t2552 - t2555 / 0.3e1 - 0.4e1 / 0.3e1 * t2558 + 0.2e1 / 0.3e1 * t2563 - t2566 / 0.3e1 - 0.4e1 / 0.3e1 * t2570 - 0.2e1 * t2574 - 0.2e1 * t2577; t7144 = t618 * t624 * t2663; t7151 = t887 * t893 * t2643; t7158 = t887 * t893 * t2647; t7165 = t2457 * t893 * t2651; t7171 = t618 * t2543 * t2639; t7178 = t2433 * t624 * t2667; t7184 = t887 * t2568 * t932; t7190 = -t7144 / 0.9e1 + 0.2e1 / 0.9e1 * t2457 * t326 * t982 * t888 - 0.2e1 / 0.9e1 * t7151 + t2457 * t326 * t986 * t888 / 0.9e1 - t7158 / 0.9e1 - 0.5e1 / 0.27e2 * t5955 * t326 * t975 * t888 + 0.2e1 / 0.27e2 * t7165 - 0.2e1 / 0.3e1 * t618 * t2575 * t2639 + 0.7e1 / 0.9e1 * t7171 - 0.5e1 / 0.27e2 * t5931 * t185 * t964 * t619 + 0.2e1 / 0.27e2 * t7178 + 0.2e1 / 0.9e1 * t2457 * t945 * t2510 - 0.2e1 / 0.9e1 * t7184 + t2433 * t185 * t970 * t619 / 0.9e1; t7206 = -0.10e2 / 0.27e2 * t6777 - 0.41e2 / 0.9e1 * t6783 + 0.4e1 / 0.9e1 * t6786 - t6789 / 0.3e1 - t6792 / 0.3e1 + 0.41e2 / 0.9e1 * t6796 - t6799 / 0.3e1 - t6802 / 0.3e1 + 0.4e1 / 0.9e1 * t6805 - 0.10e2 / 0.27e2 * t5831 + t5837 / 0.9e1 + 0.2e1 / 0.9e1 * t5859 - t6825 / 0.9e1 + 0.2e1 / 0.9e1 * t6832 - 0.2e1 / 0.9e1 * t6844; t7228 = 0.1e1 / t195 / t5821; t7230 = t8 * t8; t7238 = -t6864 / 0.9e1 + 0.2e1 / 0.27e2 * t6871 + 0.4e1 / 0.27e2 * t6874 - 0.2e1 / 0.9e1 * t6877 + 0.4e1 / 0.27e2 * t6885 - 0.2e1 / 0.9e1 * t6895 + 0.2e1 / 0.27e2 * t6902 - t325 * t326 * t1040 * t897 / 0.2e1 - t184 * t628 * t2709 - t325 * t2728 * t898 / 0.2e1 - t184 * t2412 * t970 / 0.2e1 - t618 * t7228 * t104 * t42 * t7230 / 0.3e1 + 0.4e1 / 0.9e1 * t6938 + 0.4e1 / 0.9e1 * t6945 - 0.2e1 / 0.3e1 * t6952; t7240 = t325 * t2568 * t952; t7247 = t325 * t893 * t2693; t7255 = t618 * t2426 * t964; t7258 = t184 * t2426 * t970; t7261 = t887 * t2466 * t975; t7266 = t325 * t6936 * t345; t7269 = t325 * t2466 * t982; t7272 = t325 * t2466 * t986; t7277 = t618 * t2420 * t964; t7280 = t618 * t624 * t2721; t7283 = t184 * t624 * t2714; t7285 = -0.2e1 / 0.3e1 * t7240 - t887 * t326 * t1040 * t888 / 0.6e1 - t7247 / 0.3e1 - t887 * t7228 * t176 * t131 * t7230 / 0.3e1 + t7255 / 0.27e2 + t7258 / 0.9e1 + t7261 / 0.27e2 + t887 * t6960 / 0.3e1 + 0.2e1 / 0.9e1 * t7266 + 0.2e1 / 0.9e1 * t7269 + t7272 / 0.9e1 - t618 * t6776 / 0.3e1 - t7277 / 0.9e1 - t7280 / 0.9e1 - t7283 / 0.3e1; t7289 = t184 * t2420 * t970; t7293 = t325 * t2542 * t460 * t940; t7296 = t325 * t2594 * t2700; t7299 = t325 * t893 * t2705; t7302 = t184 * t624 * t2709; t7307 = t196 * t1207; t7309 = t325 * t7307 * t328; t7323 = -t7289 / 0.3e1 - 0.7e1 / 0.3e1 * t7293 - 0.7e1 / 0.3e1 * t7296 - t7299 / 0.3e1 - t7302 / 0.3e1 - t887 * t2728 * t889 / 0.6e1 - t7309 / 0.3e1 - t887 * t945 * t2553 / 0.3e1 - 0.2e1 / 0.3e1 * t6954 - 0.2e1 / 0.3e1 * t6958 - 0.10e2 / 0.27e2 * t6961 - t6968 / 0.9e1 - t6978 / 0.9e1 - t618 * t185 * t702 * t963 / 0.6e1; t7369 = -t618 * t2412 * t964 / 0.6e1 - t618 * t628 * t2721 / 0.3e1 - t184 * t185 * t702 * t969 / 0.2e1 - t184 * t185 * t227 * t2713 - t184 * t628 * t2714 - t325 * t945 * t2590 - 0.10e2 / 0.27e2 * t5896 + t5910 / 0.9e1 - t618 * t185 * t2714 * t190 / 0.3e1 - t618 * t628 * t2663 / 0.3e1 + 0.2e1 / 0.3e1 * t887 * t2697 * t2517 + 0.2e1 / 0.3e1 * t887 * t939 * t2700 * t327 - t887 * t326 * t2705 * t327 / 0.3e1 - t618 * t185 * t2709 * t190 / 0.3e1 - 0.2e1 / 0.3e1 * t618 * t924 * t918 * t8; t7380 = t887 * t2594 * t2655; t7406 = t7 * t902 * t1208; t7409 = t7 * t902 * t1212; t7412 = t7 * t902 * t1216; t7418 = t2433 * t185 * t964 * t637 / 0.9e1 - t618 * t185 * t970 * t637 / 0.6e1 - 0.7e1 / 0.9e1 * t7380 - t887 * t945 * t2522 / 0.3e1 - t887 * t326 * t982 * t897 / 0.3e1 - t887 * t326 * t986 * t897 / 0.6e1 + t2457 * t326 * t975 * t897 / 0.9e1 + 0.2e1 / 0.9e1 * t2433 * t628 * t2667 + 0.2e1 / 0.9e1 * t2433 * t185 * t2721 * t190 + 0.2e1 / 0.9e1 * t5920 + t7406 / 0.12e2 + t7409 / 0.6e1 + t7412 / 0.12e2 + t7 * t2604 * t461 + t7 * t2604 * t465; t7443 = t5946 / 0.27e2 + t5965 / 0.27e2 - 0.4e1 / 0.9e1 * t4 * t2456 * t923 * t177 * t7010 * t8 + 0.4e1 / 0.9e1 * t4 * t2432 * t923 * t105 * t339 * t8 * t190 - 0.5e1 / 0.18e2 * t7016 + t7020 / 0.3e1 - t7024 / 0.3e1 - 0.5e1 / 0.18e2 * t7027 + t5996 / 0.12e2 - 0.5e1 / 0.18e2 * t5999 + t6002 / 0.6e1 + t6730 / 0.12e2 + t6735 - 0.5e1 / 0.18e2 * t6753 + t6764; t7453 = -0.4e1 / 0.3e1 * t2579 - t2582 - 0.4e1 / 0.3e1 * t2585 - t2588 - t2592 - 0.5e1 / 0.3e1 * t2596 - 0.2e1 / 0.3e1 * t2408 - t2410 / 0.3e1 - 0.2e1 / 0.3e1 * t2422 + 0.2e1 / 0.3e1 * t2428 - t2440 / 0.9e1 + t9 * (t7190 + t7206 + t7238 + t7285 + t7323 + t7369 + t7418 + t7443) + t2606 - t2610 + t2613 / 0.2e1 + t2616 / 0.2e1 - t2447 / 0.3e1 - t2464 / 0.9e1 + 0.2e1 / 0.3e1 * t2468; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[2] = t7101 + t7119 + t7134 + t7453; t7458 = t1953 - t5786 + t2363 - 0.3e1 / 0.4e1 * t2631 - 0.3e1 / 0.2e1 * t2634 - 0.3e1 / 0.4e1 * t2637 - t3152 - t3156 - t3160 - t3164 - t3168 - t3172 - t3175 - t3178 - t3181 - t3185; t7463 = -t3188 - t3194 + t3200 + t3205 - t3210 - t2641 - t2645 - t2649 / 0.2e1 + t2653 / 0.3e1 + t2657 - t2661 - t2665 / 0.2e1 + t2669 / 0.3e1 - t7055 - t7057 - t5789; t7479 = -0.2e1 * t2672 - t2675 - t2678 / 0.3e1 - 0.2e1 * t2681 - t2684 - t2687 / 0.3e1 - 0.3e1 * t2692 - 0.3e1 / 0.2e1 * t2695 + 0.3e1 * t2699 + 0.3e1 * t2702 - 0.3e1 / 0.2e1 * t2707 - 0.3e1 / 0.2e1 * t2711 - 0.3e1 / 0.2e1 * t2716 - 0.3e1 / 0.2e1 * t2719 - t2723 / 0.2e1 - t2726 / 0.2e1; t7491 = -t7144 / 0.6e1 - t7151 / 0.3e1 - t7158 / 0.6e1 + t7165 / 0.9e1 - t7171 / 0.3e1 + t7178 / 0.9e1 - t7184 / 0.3e1 - 0.5e1 / 0.9e1 * t6777 + t6783 / 0.3e1 + t6787 - t6796 / 0.3e1 + t6806; t7494 = t2457 * t893 * t3197; t7497 = t2433 * t624 * t3202; t7504 = t887 * t893 * t3182; t7507 = t887 * t2568 * t975; t7510 = t184 * t624 * t3191; t7513 = t325 * t893 * t3165; t7516 = t325 * t893 * t3169; t7524 = -0.5e1 / 0.27e2 * t5831 + t7494 / 0.27e2 + t7497 / 0.27e2 + t2433 * t185 * t227 * t3201 / 0.9e1 - t7504 / 0.6e1 - t7507 / 0.6e1 - t7510 / 0.6e1 - t7513 / 0.2e1 - t7516 / 0.2e1 + t6875 + t6886 - 0.3e1 / 0.2e1 * t325 * t945 * t2693 - 0.3e1 / 0.2e1 * t325 * t2728 * t952; t7526 = t16 * t3148; t7532 = -0.6e1 * t2384 - 0.12e2 * t5823; t7550 = -t325 * t7526 * t328 / 0.2e1 - t325 * t326 * t131 * t7532 / 0.2e1 + 0.3e1 / 0.2e1 * t325 * t939 * t1040 * t8 - t325 * t326 * t2829 * t327 / 0.2e1 + t6939 + t6946 - t7240 - t7247 / 0.2e1 + t7255 / 0.9e1 + t7258 / 0.3e1 + t7261 / 0.9e1 + 0.2e1 / 0.3e1 * t7266; t7566 = 0.2e1 / 0.3e1 * t7269 + t7272 / 0.3e1 - t7277 / 0.6e1 - t7280 / 0.6e1 - t7283 / 0.2e1 - t7289 / 0.2e1 + t7293 + t7296 - t7299 / 0.2e1 - t7302 / 0.2e1 - t7309 / 0.2e1 - 0.5e1 / 0.9e1 * t6961 + t184 * t185 * t42 * t7532 / 0.2e1; t7599 = t887 * t893 * t3217; t7607 = t2433 * t628 * t3202 / 0.9e1 - 0.3e1 / 0.2e1 * t325 * t326 * t374 * t2704 + 0.3e1 * t325 * t2697 * t2700 - 0.3e1 / 0.2e1 * t325 * t945 * t2705 + 0.3e1 / 0.2e1 * t325 * t923 * t1207 * t940 - t184 * t628 * t3191 / 0.2e1 - t184 * t185 * t227 * t3190 / 0.2e1 - 0.5e1 / 0.27e2 * t5896 - t618 * t924 * t925 * t969 / 0.2e1 - t7599 / 0.6e1 + t887 * t939 * t982 * t8 + t2457 * t945 * t2651 / 0.3e1; t7639 = t618 * t624 * t3221; t7652 = t887 * t2697 * t2655 - t618 * t185 * t3191 * t190 / 0.6e1 - t887 * t326 * t3165 * t327 / 0.2e1 - t887 * t326 * t3169 * t327 / 0.2e1 - t887 * t945 * t2643 - t887 * t945 * t2647 / 0.2e1 - t887 * t2728 * t932 / 0.2e1 - t887 * t326 * t3207 * t327 / 0.6e1 + t2433 * t924 * t964 * t8 / 0.3e1 - t7639 / 0.6e1 - t618 * t628 * t3221 / 0.2e1 - t618 * t185 * t918 * t969 / 0.2e1 - t618 * t185 * t340 * t2713 / 0.2e1; t7680 = t7 * t332 * t3153; t7683 = t7 * t332 * t3157; t7686 = t7 * t332 * t3161; t7689 = t7 * t332 * t3149; t7693 = -0.5e1 / 0.27e2 * t5955 * t326 * t3197 * t327 - t2457 * t939 * t975 * t8 / 0.3e1 - t887 * t326 * t345 * t2704 / 0.2e1 + t887 * t939 * t940 * t985 / 0.2e1 - 0.5e1 / 0.27e2 * t5931 * t185 * t3202 * t190 + t2457 * t326 * t3182 * t327 / 0.3e1 + t7380 / 0.3e1 - t7680 / 0.8e1 - 0.3e1 / 0.8e1 * t7683 - 0.3e1 / 0.8e1 * t7686 - t7689 / 0.8e1 + t7406 / 0.4e1 + t7409 / 0.2e1; t7696 = t325 * t2568 * t982; t7698 = t325 * t2568 * t986; t7701 = t325 * t7307 * t345; t7704 = t325 * t893 * t3207; t7720 = t7412 / 0.4e1 - t7696 - t7698 / 0.2e1 - t7701 / 0.2e1 - t7704 / 0.6e1 + t7002 * t105 * t339 * t969 * t190 / 0.3e1 + t7009 * t177 * t344 * t985 * t327 / 0.3e1 - 0.5e1 / 0.12e2 * t7016 - 0.5e1 / 0.12e2 * t7027 - 0.5e1 / 0.36e2 * t5999 + t6735 - 0.5e1 / 0.36e2 * t6753 + t6764; t7727 = -0.3e1 / 0.2e1 * t2730 + t2539 - t2545 - t2558 + t2563 - t2570 - t2579 - t2585 + t2596 + t2429 + t9 * (t7491 + t7524 + t7550 + t7566 + t7607 + t7652 + t7693 + t7720) - t3220 - t3224 + 0.3e1 / 0.4e1 * t2613 + 0.3e1 / 0.4e1 * t2616 + t2469; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[3] = t7458 + t7463 + t7479 + t7727; t7746 = 0.12e2 * t2384 + 0.12e2 * t5823; t7763 = -0.2e1 * t325 * t7526 * t345 - 0.20e2 / 0.27e2 * t6777 + 0.4e1 / 0.27e2 * t7494 + 0.4e1 / 0.27e2 * t7497 - 0.2e1 / 0.3e1 * t7504 - 0.2e1 / 0.3e1 * t7507 - 0.2e1 / 0.3e1 * t7510 - 0.2e1 * t7513 - 0.2e1 * t7516 - 0.6e1 * t325 * t945 * t3165 - t887 * t2728 * t975 - t184 * t185 * t42 * t7746 / 0.2e1 - 0.2e1 * t887 * t945 * t3182 - 0.2e1 * t325 * t326 * t374 * t3206 + t325 * t326 * t131 * t7746 / 0.2e1; t7803 = -0.2e1 * t325 * t945 * t3207 - 0.6e1 * t325 * t2728 * t982 + 0.4e1 / 0.9e1 * t2457 * t326 * t374 * t3196 - 0.3e1 * t325 * t2728 * t986 + 0.2e1 / 0.9e1 * t7255 + 0.2e1 / 0.3e1 * t7258 + 0.2e1 / 0.9e1 * t7261 + 0.4e1 / 0.3e1 * t7266 + 0.4e1 / 0.3e1 * t7269 + 0.2e1 / 0.3e1 * t7272 - 0.20e2 / 0.27e2 * t6961 - 0.2e1 * t887 * t945 * t3217 - 0.2e1 * t887 * t326 * t3169 * t344 + 0.2e1 / 0.3e1 * t2457 * t326 * t975 * t985 - 0.2e1 / 0.3e1 * t618 * t185 * t3191 * t339 + 0.2e1 / 0.3e1 * t2433 * t185 * t964 * t969; t7818 = t985 * t985; t7823 = t963 * t963; t7828 = t969 * t969; t7833 = t974 * t974; t7858 = sigma[2] / t115 / t1499; t7881 = 0.1e1 / t2791 / t126; t7882 = t1014 * t1014; t7891 = t1035 * t1035; t7910 = t2809 * t1002; t7915 = t1026 * t1026; t7922 = 0.1e1 / t365 / t2819 / t364; t7930 = 0.24133004115226337449e0 * t23 * t7858 * t127 + 0.17035061728395061728e0 * t23 * t2778 * t370 + 0.10951111111111111111e0 * t23 * t1005 * t1015 - 0.54755555555555555556e-1 * t23 * t1005 * t1036 + 0.59733333333333333332e-1 * t23 * t353 * t2794 - 0.59733333333333333332e-1 * t1488 * t3956 * t2798 + 0.99555555555555555556e-2 * t23 * t353 * t2825 + 0.22399999999999999999e-1 * t23 * t118 * t7881 * t7882 - 0.33599999999999999998e-1 * t1488 * t3963 * t1014 * t1035 + 0.55999999999999999998e-2 * t23 * t118 * t1013 * t7891 + 0.74666666666666666664e-2 * t1488 * t1489 * t369 * t2824 - 0.93333333333333333332e-3 * t23 * t118 * t358 * (0.11324444444444444444e1 * t119 * t1834 * t123 + 0.53834666666666666666e1 * t7858 * t366 - 0.57891555555555555555e1 * t1026 / t114 / t4930 * t1032 + 0.41813333333333333333e1 * t2815 / t7910 * t2821 - 0.11946666666666666667e1 * t7915 / t115 / t2809 / t1499 * t7922); t7939 = -t887 * t326 * t1040 * t974 - 0.2e1 / 0.3e1 * t7599 - 0.2e1 / 0.3e1 * t7639 - 0.2e1 / 0.3e1 * t887 * t326 * t3207 * t344 - 0.2e1 * t325 * t326 * t2829 * t344 - t887 * t326 * t131 * t7818 / 0.2e1 - 0.5e1 / 0.27e2 * t5931 * t185 * t42 * t7823 - t618 * t185 * t42 * t7828 / 0.2e1 - 0.5e1 / 0.27e2 * t5955 * t326 * t131 * t7833 + 0.4e1 / 0.9e1 * t2457 * t945 * t3197 - 0.3e1 * t325 * t326 * t1040 * t985 - 0.6e1 * t325 * t945 * t3169 - 0.3e1 / 0.2e1 * t7 * t112 * t460 * t2829 - 0.3e1 / 0.2e1 * t7 * t112 * t3148 * t374 - 0.3e1 / 0.8e1 * t7 * t112 * t176 * t7930 - 0.9e1 / 0.4e1 * t7 * t112 * t1207 * t1040; t7951 = t349 * t115 * t7930; t7955 = t349 * t138 * t2829; t7959 = t349 * t121 * t1040; t7962 = t6 * t2878; t7963 = t993 * t993; t7984 = t1040 * t1040; t7986 = t992 * t115 * t7984; t7994 = t349 * t360 * t374; t7997 = -0.224e3 / 0.729e3 * t56 * t21 * t132 * t1020 - 0.4e1 / 0.9e1 * t201 * t7951 - 0.32e2 / 0.27e2 * t201 * t7955 + 0.16e2 / 0.27e2 * t201 * t7959 - 0.192e3 * t237 * t7962 * t120 * t7963 + 0.1024e4 / 0.5e1 * t237 * t2838 * t114 * t2755 + 0.1152e4 / 0.5e1 * t237 * t2838 * t1052 * t1040 - 0.128e3 / 0.5e1 * t237 * t1051 * t154 * t993 - 0.768e3 / 0.5e1 * t237 * t1051 * t1056 * t1040 + 0.8e1 / 0.3e1 * t201 * t7986 + 0.32e2 / 0.9e1 * t201 * t992 * t375 * t2829 - 0.128e3 / 0.243e3 * t201 * t7994; t7998 = t5 * t1556; t8000 = t7998 * t115 * t7963; t8004 = t2754 * t138 * t2755; t8012 = t992 * t121 * t993; t8045 = 0.32e2 / 0.3e1 * t201 * t8000 - 0.64e2 / 0.9e1 * t201 * t8004 - 0.16e2 * t201 * t2754 * t994 * t1040 - 0.32e2 / 0.27e2 * t201 * t8012 + 0.64e2 / 0.9e1 * t201 * t992 * t998 * t1040 - 0.64e2 / 0.81e2 * t65 * t68 * t147 * t117 + 0.16e2 / 0.5e1 * t237 * t385 * t120 * t7930 + 0.128e3 / 0.15e2 * t237 * t385 * t1164 + 0.256e3 / 0.15e2 * t237 * t385 * t114 * t2829 - 0.144e3 / 0.5e1 * t237 * t1051 * t120 * t7984 - 0.192e3 / 0.5e1 * t237 * t1051 * t386 * t2829 - 0.512e3 / 0.135e3 * t237 * t385 * t1168; t8048 = t1074 * t1100 * t63; t8056 = t397 * t3093 * M_PI; t8062 = t236 * t1051 * t7984; t8068 = t1074 * t1097 * t63; t8079 = t22 * t7998 * t7963; t8083 = t22 * t992 * t7984; t8086 = t2874 * t121; t8089 = t455 * t1317; t8094 = t1050 * t993 * t1040; t8095 = t23 * t8094; t8103 = t1556 * t993 * t1040; t8104 = t1291 * t8103; t8107 = t4285 * t7963; t8113 = 0.16e2 / 0.3e1 * t1082 * t2954 + 0.16e2 * t399 * t8079 + 0.4e1 * t399 * t8083 + 0.120e3 * t8086 * t3104 - 0.360e3 * t2875 * t8089 * t2879 - 0.24e2 * t399 * t8095 - 0.16e2 / 0.3e1 * t1082 * t3046 + 0.12e2 * t3134 * t2973 + 0.108e3 * t1076 * t8104 + 0.1080e4 * t2875 * t3103 * t8107 + 0.16e2 * t1086 * t3046; t8118 = t384 * t2829 * t374; t8119 = t23 * t8118; t8123 = t1050 * t2829 * t374; t8124 = t1291 * t8123; t8134 = t397 * t3100 * M_PI; t8140 = t22 * t349 * t7930; t8144 = t397 * t3107 * M_PI; t8149 = t1074 * t1203 * t63; t8153 = t397 * t3110 * M_PI; t8170 = -0.24e2 * t2758 + 0.16e2 * t2762 + 0.24e2 * t2766 + 0.8e1 / 0.3e1 * t2770 - 0.8e1 * t2774 - 0.4e1 * t2832 + 0.32e2 / 0.27e2 * t2836; t8176 = t1074 * t1199 * t63; t8182 = t397 * t3040 * M_PI; t8186 = t397 * t3043 * M_PI; t8190 = t397 * t3049 * M_PI; t8197 = 0.1e1 / t135 / t6315 / t6318 / t1050 / 0.36e2; t8198 = p->cam_omega * t8197; t8200 = t8198 * t168 * t3480; t8201 = t1049 * t1049; t8202 = 0.1e1 / t8201; t8204 = t8202 * t7963 * t23; t8217 = t3063 * t3065; t8218 = t8217 * t374; t8224 = t992 * t115; t8225 = t1133 * t993; t8226 = t8225 * t1137; t8230 = -0.45e2 / 0.4e1 * t8086 * t2880 - 0.405e3 / 0.4e1 * t2875 * t2876 * t8107 + 0.12e2 * t2898 * t2890 + 0.4e1 * t1122 * t160 * t1134 * t8170 + 0.27e2 / 0.16e2 * t8176 * t1078 - t2919 * t1094 / 0.4e1 + t8182 * t401 / 0.4e1 + t8186 * t401 / 0.3e1 - t8190 * t401 / 0.4e1 + 0.945e3 / 0.32e2 * t8200 * t8204 + t1151 * t2902 / 0.4e1 + t424 * t8140 / 0.16e2 + 0.12e2 * t2898 * t2911 - 0.24e2 * t2898 * t2980 - 0.81e2 / 0.8e1 * t1143 * t8104 + 0.24e2 * t1122 * t2977 * t8218 + 0.9e1 / 0.4e1 * t424 * t8095 + 0.24e2 * t1122 * t8224 * t8226; t8235 = t1133 * t2909; t8236 = t8235 * t374; t8240 = t3063 * t2909; t8241 = t8240 * t1137; t8255 = t4107 * t374; t8259 = t1133 * t1040; t8260 = t8259 * t1137; t8276 = t451 * t1317; t8294 = t1317 * t4285; t8298 = t993 * t1040; t8299 = t2926 * t8298; t8311 = t408 * t8140 / 0.4e1 + 0.2e1 / 0.3e1 * t2946 * t1094 - t1108 * t2902 / 0.3e1 + 0.945e3 / 0.8e1 * t8198 * t138 * t3480 * t8204 - 0.45e2 * t8086 * t2927 - 0.405e3 * t2875 * t8294 * t7963 + 0.405e3 / 0.2e1 * t2875 * t8299 + 0.140e3 / 0.81e2 * t137 * t2803 - 0.6e1 * t408 * t8079 + 0.9e1 * t2958 * t21 * t8094 - 0.3e1 / 0.2e1 * t408 * t8083; t8343 = t236 * t7962 * t7963; t8349 = -0.2e1 * t2958 * t21 * t8118 + 0.27e2 / 0.8e1 * t1104 * t8062 + 0.9e1 / 0.2e1 * t2939 * t68 * t8123 - 0.28e2 / 0.27e2 * t397 * t1020 * M_PI * t401 - 0.4e1 / 0.3e1 * t2946 * t1090 - 0.2e1 * t1108 * t2954 + 0.2e1 * t397 * t1107 * t18 * t2961 + 0.3e1 * t1074 * t360 * t63 * t1078 + 0.9e1 * t2931 * t2935 - 0.9e1 / 0.2e1 * t1074 * t2930 * t1 * t2942 + 0.81e2 / 0.2e1 * t1104 * t8343 - 0.81e2 / 0.2e1 * t2939 * t68 * t8103; t8357 = t1147 * t3046 / 0.2e1 - 0.9e1 / 0.8e1 * t3071 * t2973 - 0.12e2 * t1122 * t2977 * t8236 - 0.24e2 * t1122 * t161 * t8241 + 0.27e2 / 0.8e1 * t2915 * t2973 - t424 * t8119 / 0.2e1 + 0.9e1 / 0.8e1 * t1143 * t8124 - 0.16e2 * t1122 * t349 * t138 * t2979 - 0.24e2 * t1122 * t8224 * t8255 - 0.12e2 * t1122 * t2977 * t8260 - 0.3e1 / 0.2e1 * t1151 * t3046 - t137 * t121 * t3039 / 0.6e1 - 0.14e2 / 0.27e2 * t137 * t1020 * t451 - 0.32e2 / 0.27e2 * t415 * t21 * t2834 * t418 + 0.135e3 / 0.4e1 * t2875 * t8276 * t2879 + 0.8e1 / 0.3e1 * t1119 * t3053 - 0.4e1 * (t8311 + t8349) * t54 * t19 * t420 - 0.8e1 * t2970 * t1129; t8433 = 0.30159289474462015090e3 * t87 * t8000 - 0.20106192982974676727e3 * t87 * t8004 - 0.45238934211693022634e3 * t2137 * t4199 * t8298 - 0.33510321638291127878e2 * t87 * t8012 + 0.20106192982974676727e3 * t2137 * t4204 * t3014 + 0.75398223686155037724e2 * t87 * t7986 + 0.10053096491487338363e3 * t2137 * t1618 * t374 * t2829 - 0.14893476283684945724e2 * t87 * t7994 + 0.16755160819145563939e2 * t87 * t7959 - 0.33510321638291127877e2 * t87 * t7955 - 0.12566370614359172954e2 * t87 * t7951 - 0.86878611654828850052e1 * t87 * t160 * t1020; t8438 = t3036 * t1193; t8441 = t1190 * t1190; t8445 = t1193 * t1193; t8447 = t1195 * t1195; t8448 = 0.1e1 / t8447; t8451 = -(t78 * t79 * t7930 * t154 / 0.48e2 - t78 * t79 * t2829 * t435 / 0.18e2 + 0.5e1 / 0.36e2 * t78 * t79 * t1040 * t117 - 0.20e2 / 0.81e2 * t78 * t79 * t374 * t352 + 0.55e2 / 0.243e3 * t78 * t79 * t131 * t1004) * t165 - 0.4e1 * t2999 * t447 * t449 - 0.6e1 * t1176 * t1190 * t449 + 0.6e1 * t1176 * t1193 * t1196 - 0.4e1 * t440 * t3027 * t449 + 0.12e2 * t3004 * t3030 - 0.8e1 * t440 * t3033 * t3036 - t159 * t8433 * t449 + 0.4e1 * t3028 * t3030 - 0.12e2 * t1191 * t8438 + 0.3e1 * t159 * t8441 * t1196 + 0.6e1 * t159 * t8445 * t8448; t8469 = t2969 * t785; t8479 = t397 * t2867 * M_PI; t8500 = t137 * t360 * t1198 / 0.3e1 + 0.35e2 / 0.81e2 * t137 * t2803 * t167 + t137 * t138 * t8451 / 0.8e1 - 0.8e1 / 0.3e1 * t1122 * t349 * t121 * t418 * t374 - 0.8e1 / 0.3e1 * t1122 * t160 * t121 * t1133 * t1137 + 0.16e2 * t2898 * t2895 + 0.3e1 / 0.8e1 * t2884 * t1094 + 0.12e2 * t8469 * t1125 + 0.4e1 * t1122 * t349 * t1123 * t2829 + 0.81e2 / 0.8e1 * t1143 * t8343 - 0.7e1 / 0.27e2 * t8479 * t401 + 0.12e2 * t8469 * t1139 - 0.24e2 * t2898 * t3067 - 0.24e2 * t2898 * t3081 + 0.16e2 * t2898 * t3086 + 0.9e1 / 0.4e1 * t3071 * t2935 + 0.24e2 * t1122 * t2754 * t1123 * t2755 - 0.16e2 * t1122 * t992 * t3084 * t993; t8502 = t1074 * t1158 * t63; t8509 = t1132 * t1132; t8510 = 0.1e1 / t8509; t8512 = t3065 * t1137; t8540 = t1074 * t1161 * t63; t8554 = 0.3e1 / 0.4e1 * t8502 * t1078 + 0.27e2 / 0.32e2 * t1143 * t8062 - 0.3e1 / 0.8e1 * t424 * t8083 + 0.24e2 * t1122 * t160 * t115 * t8510 * t8512 - t1147 * t2954 / 0.2e1 + 0.3e1 / 0.2e1 * t1151 * t2954 - 0.3e1 / 0.2e1 * t424 * t8079 - t3077 * t1090 / 0.3e1 + 0.8e1 * t1122 * t349 * t3084 * t1040 - 0.3e1 / 0.4e1 * t2884 * t1090 + t2919 * t1090 / 0.2e1 + t3077 * t1094 / 0.6e1 + 0.8e1 * t1122 * t160 * t2893 * t2909 - 0.9e1 / 0.8e1 * t8540 * t1078 - 0.27e2 / 0.4e1 * t2915 * t2935 - t1147 * t2902 / 0.12e2 - 0.16e2 * t1122 * t160 * t138 * t3063 * t3065 + 0.405e3 / 0.8e1 * t4100 * t8299; t8579 = t8198 * t172 * t3480; t8582 = -0.18e2 * t8149 * t1078 - 0.32e2 / 0.9e1 * t8153 * t401 - 0.4e1 / 0.3e1 * t137 * t138 * (t8230 + t8357 + t8500 + t8554) - 0.540e3 * t4028 * t8299 + 0.16e2 / 0.9e1 * t137 * t121 * t3092 - 0.32e2 / 0.9e1 * t137 * t360 * t1202 - 0.1120e4 / 0.243e3 * t137 * t2803 * t171 + 0.448e3 / 0.81e2 * t137 * t1020 * t455 - 0.16e2 * t1086 * t2954 - 0.108e3 * t1076 * t8343 - 0.315e3 * t8579 * t8204; t8585 = my_piecewise3(t141, t7997 + t8045, 0.12e2 * t8048 * t1078 + 0.72e2 * t3120 * t2935 + 0.8e1 * t3116 * t1090 - 0.8e1 / 0.3e1 * t8056 * t401 - 0.16e2 / 0.9e1 * t3142 * t1094 - 0.9e1 * t1076 * t8062 + 0.32e2 / 0.9e1 * t3142 * t1090 - 0.8e1 * t8068 * t1078 - 0.24e2 * t3134 * t2935 - 0.16e2 / 0.3e1 * t3124 * t1090 + t8113 - 0.36e2 * t3120 * t2973 + 0.16e2 / 0.3e1 * t399 * t8119 - 0.12e2 * t1076 * t8124 - 0.4e1 * t3116 * t1094 + 0.8e1 / 0.3e1 * t3124 * t1094 + 0.8e1 / 0.9e1 * t1082 * t2902 + 0.224e3 / 0.81e2 * t8134 * t401 - 0.8e1 / 0.3e1 * t1086 * t2902 - 0.2e1 / 0.3e1 * t399 * t8140 + 0.8e1 / 0.3e1 * t8144 * t401 + t8582); t8596 = -t7680 / 0.2e1 - 0.3e1 / 0.2e1 * t7683 - 0.3e1 / 0.2e1 * t7686 - t7689 / 0.2e1 + t7406 / 0.2e1 + t7409 + t7412 / 0.2e1 - 0.3e1 / 0.8e1 * t7 * t112 * t8585 * t131 - 0.4e1 * t7696 - 0.2e1 * t7698 - 0.2e1 * t7701 - 0.2e1 / 0.3e1 * t7704 - 0.5e1 / 0.9e1 * t7016 - 0.5e1 / 0.9e1 * t7027 + t6735 + t6764; t8614 = -t5786 + t9 * (t7763 + t7803 + t7939 + t8596) - 0.3e1 / 0.2e1 * t2631 - 0.3e1 * t2634 - 0.3e1 / 0.2e1 * t2637 - 0.3e1 / 0.2e1 * t3151 - 0.3e1 / 0.2e1 * t3155 - 0.9e1 / 0.2e1 * t3159 - 0.9e1 / 0.2e1 * t3163 - 0.6e1 * t3167 - 0.6e1 * t3171 - 0.12e2 * t3174 - 0.6e1 * t3177 - 0.6e1 * t3180 - 0.2e1 * t3184 - 0.2e1 * t3187; t8629 = -0.2e1 * t3193 + 0.4e1 / 0.9e1 * t3199 + 0.4e1 / 0.9e1 * t3204 - 0.2e1 * t3209 - t5789 - 0.4e1 * t2672 - 0.2e1 * t2675 - 0.2e1 / 0.3e1 * t2678 - 0.4e1 * t2681 - 0.2e1 * t2684 - 0.2e1 / 0.3e1 * t2687 + 0.4e1 / 0.3e1 * t2539 + 0.4e1 / 0.3e1 * t2563 - 0.2e1 * t3219 - 0.2e1 * t3223 + t2613 + t2616; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho4[4] = t8614 + t8629; t8634 = t3319 / 0.4e1; t8641 = -0.9e1 / 0.8e1 * t3305 - 0.9e1 / 0.4e1 * t3309 - 0.3e1 * t3313 - 0.3e1 / 0.2e1 * t3316 + t8634 - 0.3e1 * t3322 - 0.3e1 / 0.4e1 * t3324 - 0.9e1 / 0.8e1 * t3328 - 0.3e1 / 0.4e1 * t3331 - 0.9e1 / 0.8e1 * t3335 - 0.9e1 / 0.4e1 * t3339; t8647 = t3748 / 0.4e1; t8654 = t16 * t3736; t8666 = t184 * t2426 * t1421; t8683 = t184 * t624 * t3311; t8691 = -0.3e1 * t184 * t3752 * t631 - 0.3e1 / 0.2e1 * t184 * t8654 * t191 - 0.3e1 / 0.2e1 * t184 * t2412 * t1421 - t184 * t185 * t486 * t2387 / 0.2e1 + t8666 / 0.3e1 - 0.3e1 / 0.2e1 * t184 * t185 * t1273 * t637 - 0.3e1 / 0.2e1 * t184 * t628 * t3314 - 0.3e1 / 0.2e1 * t184 * t3752 * t638 - t618 * t185 * t1273 * t619 / 0.2e1 - t8683 - 0.3e1 * t184 * t628 * t3311 - 0.3e1 / 0.2e1 * t184 * t185 * t3302 * t190; t8698 = t643 * t533; t8700 = t184 * t8698 * t191; t8703 = t184 * t3758 * t631; t8711 = t618 * t3758 * t620; t8717 = t184 * t2420 * t1421; t8719 = t184 * t624 * t3314; t8722 = t618 * t624 * t3342; t8727 = t196 * t1412; t8729 = t184 * t8727 * t191; t8730 = -0.3e1 / 0.2e1 * t184 * t1224 * t2396 - t184 * t1224 * t2388 / 0.2e1 + t8700 / 0.3e1 - t8703 - 0.3e1 / 0.2e1 * t184 * t1224 * t2392 + t2433 * t1224 * t2435 / 0.9e1 - t8711 / 0.6e1 - t618 * t628 * t3342 / 0.2e1 - t8717 - t8719 / 0.2e1 - t8722 / 0.6e1 - t618 * t3752 * t620 / 0.2e1 - t8729; t8736 = t184 * t3758 * t638; t8758 = t205 * t1996; t8766 = t666 * t211; t8776 = t28 * t6104; t8851 = 0.18666666666666666666e-2 * t1251 * t1252 * t481 * t2028 + 0.42587654320987654321e-1 * t23 * t1982 * t482 + 0.54755555555555555555e-1 * t1251 * t666 * t675 * t1253 - 0.29866666666666666666e-1 * t1251 * t3264 * t3276 - 0.14933333333333333333e-1 * t1251 * t3264 * t3280 - 0.14933333333333333333e-1 * t23 * t3264 * t676 - 0.55999999999999999998e-2 * t23 * t3271 * t1997 + 0.55999999999999999998e-2 * t23 * t2003 - 0.27377777777777777778e-1 * t23 * t667 * t1269 + 0.74666666666666666667e-2 * t23 * t206 * t3298 - 0.93333333333333333332e-3 * t23 * t29 * t211 * (-0.13066666666666666667e0 * t475 * t2007 * t34 - 0.10192000000000000000e1 * t1981 * t219 + 0.15493333333333333334e1 * t2015 * t694 * sigma[0] - 0.13664000000000000000e1 * t2021 * t2025 * t688 + 0.44800000000000000000e0 / t26 / t2013 / t1692 * t6145 * t2019); t8852 = 0.44799999999999999999e-1 * t1251 * t8758 * t3272 - 0.42587654320987654321e-1 * t22 * t5 * t1981 * t38 - 0.27377777777777777778e-1 * t23 * t8766 * t222 + 0.74666666666666666667e-2 * t23 * t3251 * t697 - 0.93333333333333333332e-3 * t23 * t1243 * t2028 + 0.22399999999999999999e-1 * t1251 * t8776 * t481 * t1997 - 0.16800000000000000000e-1 * t1251 * t3271 * t1253 * t697 - 0.16800000000000000000e-1 * t1251 * t3271 * t1268 * t676 + 0.55999999999999999998e-2 * t1251 * t1252 * t3297 * t222 + 0.55999999999999999998e-2 * t1251 * t1252 * t1268 * t697 + t8851; t8857 = t26 * t8852; t8861 = t32 * t1273; t8869 = t49 * t3302; t8873 = t213 * t486; t8893 = -0.192e3 * t237 * t6019 * t491 * t1959 + 0.768e3 / 0.5e1 * t237 * t2042 * t1282 * t655 - 0.64e2 / 0.5e1 * t237 * t713 * t3396 * t227 + 0.64e2 / 0.5e1 * t237 * t240 * t25 * t3302 + 0.16e2 / 0.5e1 * t237 * t240 * t31 * t8852 - 0.4e1 / 0.9e1 * t201 * t202 * t8857 + 0.8e1 / 0.27e2 * t201 * t202 * t8861 + 0.64e2 / 0.15e2 * t237 * t240 * t80 * t1273 - 0.8e1 / 0.9e1 * t201 * t202 * t8869 - 0.32e2 / 0.243e3 * t201 * t202 * t8873 - 0.128e3 / 0.135e3 * t237 * t240 * t290 * t486 - 0.144e3 / 0.5e1 * t237 * t713 * t1286 * t702 - 0.48e2 / 0.5e1 * t237 * t713 * t491 * t2033 + 0.576e3 / 0.5e1 * t237 * t2042 * t1286 * t655; t8942 = t55 * t23; t8943 = t486 * t227; t8944 = t8943 * t702; t8948 = t64 * t1291; t8952 = -0.384e3 / 0.5e1 * t237 * t713 * t3400 * t227 + 0.8e1 / 0.9e1 * t201 * t654 * t487 * t2033 + 0.32e2 / 0.9e1 * t201 * t654 * t3372 * t227 + 0.16e2 / 0.9e1 * t201 * t654 * t1235 * t702 + 0.8e1 / 0.3e1 * t201 * t654 * t3376 * t227 + 0.8e1 / 0.3e1 * t201 * t654 * t1274 * t702 - 0.8e1 * t201 * t1958 * t1274 * t655 + 0.32e2 / 0.3e1 * t201 * t6058 * t487 * t1959 - 0.16e2 / 0.3e1 * t201 * t1958 * t1235 * t655 - 0.16e2 / 0.27e2 * t201 * t654 * t3368 * t227 - 0.192e3 / 0.5e1 * t237 * t713 * t1282 * t702 - 0.144e3 / 0.5e1 * t237 * t713 * t3404 * t227 - 0.8e1 * t8942 * t3653 * t8944 + 0.576e3 / 0.5e1 * t8948 * t4760 * t8944; t8971 = t2174 * t307; t8975 = t2257 * t1273 * t655; t8985 = t2257 * t8944; t9001 = -0.3240e4 * t1319 * t3483 * t486 * t273 * t1959 - 0.1296e4 * t1319 * t3434 * t6389 + 0.162e3 * t1319 * t1322 * t6414 - 0.54e2 * t1319 * t1322 * t273 * t2033 + 0.405e3 / 0.16e2 * t8971 * t3411 + 0.405e3 / 0.16e2 * t3439 * t8975 - 0.162e3 * t1319 * t1321 * t3302 * t1323 - 0.162e3 * t1319 * t3426 * t3422 + 0.405e3 / 0.16e2 * t3439 * t8985 + 0.324e3 * t1319 * t3426 * t2251 + 0.108e3 * t3431 * t3573 + 0.1296e4 * t1319 * t3434 * t6402 + 0.162e3 * t1319 * t1322 * t6407 - 0.54e2 * t3431 * t3423; t9014 = t2174 * t282; t9018 = t6510 * t486 * t1959; t9028 = t3302 * t797; t9049 = 0.36e2 * t1316 * t290 * t1317 * t1324 + 0.432e3 * t3431 * t3436 - 0.108e3 * t3431 * t3427 + 0.1296e4 * t1319 * t2178 * t1273 * t3435 - 0.135e3 / 0.16e2 * t9014 * t3411 - 0.405e3 / 0.4e1 * t3439 * t9018 - 0.324e3 * t1319 * t1322 * t6394 + 0.9e1 * t504 * t1331 * t1332 * t2033 + 0.9e1 * t504 * t1342 * t9028 * t801 + 0.9e1 * t504 * t1342 * t3516 * t2205 + 0.3e1 * t504 * t1342 * t1343 * t6360 + 0.27e2 / 0.32e2 * t6286 * t1294 + 0.27e2 / 0.16e2 * t2216 * t3472 + 0.27e2 / 0.32e2 * t2216 * t3476 - 0.3e1 / 0.8e1 * t815 * t3498; t9054 = t23 * t3530 * t227; t9058 = t23 * t1337 * t702; t9062 = t1291 * t3426 * t655; t9066 = t23 * t505 * t2033; t9071 = t1273 * t2085; t9078 = t3505 * t655; t9092 = -0.81e2 / 0.16e2 * t2216 * t3452 - 0.3e1 / 0.8e1 * t279 * t9054 - 0.3e1 / 0.8e1 * t279 * t9058 - 0.81e2 / 0.16e2 * t807 * t9062 - t279 * t9066 / 0.8e1 + 0.18e2 * t1329 * t3507 - 0.18e2 * t504 * t1342 * t9071 * t2087 - 0.9e1 / 0.16e2 * t6453 * t1294 - 0.108e3 * t504 * t3459 * t9078 - 0.6e1 * t3558 * t1334 - 0.36e2 * t1329 * t3461 - 0.2e1 * t3558 * t1345 - 0.6e1 * t1329 * t3467 - 0.3e1 / 0.8e1 * t811 * t3456; t9096 = t23 * t3470 * t655; t9101 = t1291 * t712 * t3302 * t227; t9105 = t1291 * t3470 * t702; t9109 = t1291 * t1292 * t2033; t9113 = t1317 * t63; t9116 = 0.1e1 / t6327 / t42; t9118 = t500 * t6323 * t25 * t9113 * t9116; t9119 = t1332 * t1959; t9123 = t3302 * t273; t9138 = t23 * t1322 * t1959; t9141 = t68 * t2178; t9146 = t1291 * t3434 * t1959; t9155 = 0.9e1 / 0.8e1 * t815 * t3456 + 0.9e1 / 0.8e1 * t279 * t9096 + 0.27e2 / 0.32e2 * t807 * t9101 + 0.27e2 / 0.32e2 * t807 * t9105 + 0.9e1 / 0.32e2 * t807 * t9109 - 0.2835e4 / 0.2e1 * t9118 * t9119 * t1291 + 0.27e2 * t504 * t1331 * t9123 * t227 + 0.27e2 * t504 * t1331 * t3505 * t702 + 0.18e2 * t504 * t1342 * t486 * t6481 * t6483 - 0.3e1 / 0.2e1 * t279 * t9138 + 0.180e3 * t504 * t9141 * t9119 + 0.81e2 / 0.8e1 * t807 * t9146 - 0.9e1 / 0.16e2 * t2093 * t3472 - 0.9e1 / 0.32e2 * t2093 * t3476 + 0.27e2 / 0.32e2 * t3568 * t2246; t9163 = t252 * t3527 * M_PI; t9167 = t252 * t3678 * M_PI; t9173 = t737 * t1404 * t63; t9181 = t737 * t1362 * t63; t9193 = t22 * t202 * t8852; t9196 = -0.3e1 / 0.8e1 * t3562 * t753 - 0.27e2 / 0.16e2 * t3568 * t2192 + t9163 * t256 / 0.12e2 - t9167 * t256 / 0.8e1 + 0.3e1 / 0.16e2 * t3562 * t757 + 0.27e2 / 0.32e2 * t9173 * t741 + t1359 * t2232 / 0.16e2 - t3549 * t757 / 0.16e2 - 0.9e1 / 0.32e2 * t9181 * t741 - t811 * t3544 / 0.16e2 + t6334 * t497 / 0.16e2 + 0.3e1 / 0.16e2 * t2226 * t1306 + 0.3e1 / 0.16e2 * t815 * t3544 + t279 * t9193 / 0.16e2; t9197 = t524 * t1317; t9216 = t6328 * t486 * t1959 * t23; t9224 = t3479 * t80 * t3480 * t3483; t9228 = t3479 * t3481 * t6328; t9243 = 0.135e3 / 0.16e2 * t2175 * t9197 * t2179 + t3549 * t753 / 0.8e1 - 0.3e1 * t1329 * t3532 - 0.3e1 * t504 * t68 * t239 * t8852 * t273 - t6342 * t497 / 0.16e2 - t2220 * t1306 / 0.8e1 + 0.945e3 / 0.32e2 * t6326 * t9216 - 0.405e3 * t3485 * t9078 * t23 - 0.135e3 * t9224 * t3486 + 0.2025e4 * t9228 * t9119 * t23 - t48 * t32 * t3674 / 0.8e1 + 0.9e1 * t1329 * t3513 + 0.6e1 * t1329 * t3518 + 0.3e1 * t1329 * t3522 - 0.3e1 / 0.8e1 * t1359 * t2241; t9262 = t252 * t3675 * M_PI; t9269 = t3479 * t25; t9270 = t3480 * t3483; t9271 = t9270 * t486; t9272 = t9269 * t9271; t9291 = -t2072 * t1302 / 0.6e1 + 0.3e1 / 0.8e1 * t6370 * t1294 + t2220 * t1302 / 0.4e1 + t811 * t3494 / 0.4e1 + t811 * t3498 / 0.8e1 + 0.27e2 / 0.16e2 * t2093 * t3452 - 0.3e1 / 0.8e1 * t2226 * t1302 - 0.3e1 / 0.4e1 * t815 * t3494 + 0.3e1 / 0.16e2 * t9262 * t256 - 0.18e2 * t501 * t80 * t3443 * t3446 - 0.405e3 * t9272 * t3422 * t18 * t4576 + 0.405e3 * t9272 * t6389 * t23 - 0.27e2 * t3444 * t3445 * t6414 - 0.18e2 * t3444 * t240 * t486 * t6419 - 0.54e2 * t3444 * t713 * t1273 * t2251; t9292 = t2042 * t486; t9299 = t252 * t49; t9302 = t9299 * t95 * M_PI * t18; t9303 = t21 * t712; t9304 = t9303 * t8944; t9307 = t737 * t49; t9310 = t9307 * t95 * t63 * t1; t9311 = t3459 * t8944; t9395 = -t512 * t513 * t290 * t857 * t860 / 0.24e2 + 0.25132741228718345908e2 * t3599 * t1390 + 0.37233690709212364308e1 * t519 * t202 * t8873 * t304 - t512 * t513 * t80 * t2157 * t2160 / 0.24e2 + 0.12566370614359172954e2 * t519 * t202 * t8857 * t304 + 0.50265482457436691817e2 * t1379 * t3577 + 0.25132741228718345908e2 * t519 * t202 * t8869 * t304 + 0.37699111843077518862e2 * t1379 * t3581 - 0.83775804095727819694e1 * t519 * t202 * t8861 * t304 + 0.37699111843077518862e2 * t3599 * t1394 + 0.12566370614359172954e2 * t2122 * t54 * t22 * t521 - 0.5e1 / 0.72e2 * t512 * t513 * t28 * t302 * t304 + t512 * t1365 * t3589 / 0.12e2 + t512 * t513 * t290 * t854 * t304 / 0.24e2 - t512 * t1365 * t3594 / 0.16e2; t9409 = t3653 * t486; t9431 = t860 * t854; t9436 = t2160 * t227; t9441 = t304 * t702; t9459 = -t512 * t513 * t80 * t2151 * t304 / 0.48e2 - t512 * t3643 * t1374 / 0.16e2 + t512 * t1365 * t3627 / 0.16e2 - 0.83775804095727819694e1 * t1379 * t3609 - 0.22619467105846511317e3 * t1382 * t9409 * t860 * t655 * t302 + 0.75398223686155037724e2 * t1382 * t1397 * t486 * t2160 * t854 * t302 + 0.15079644737231007545e3 * t3631 * t3665 + 0.10053096491487338363e3 * t1382 * t3658 * t486 * t3664 + 0.15079644737231007545e3 * t1382 * t1383 * t1273 * t3664 + 0.75398223686155037724e2 * t1382 * t3662 * t9431 * t227 - 0.15079644737231007545e3 * t1382 * t3662 * t9436 * t857 + 0.22619467105846511317e3 * t1382 * t9409 * t9441 * t227 + 0.75398223686155037724e2 * t1382 * t3662 * t860 * t702 * t302 + 0.5e1 / 0.81e2 * t512 * t513 * t205 * t93 + 0.83775804095727819694e1 * t1382 * t70 * t32 * t1399; t9476 = t77 * t7; t9481 = t3598 * t23; t9504 = t1273 * t2160; t9509 = -0.50265482457436691817e2 * t3631 * t3613 - 0.25132741228718345908e2 * t1382 * t3612 * t3621 - 0.37699111843077518862e2 * t1382 * t1397 * t3616 * t854 - 0.37699111843077518862e2 * t3631 * t3622 - 0.12566370614359172954e2 * t1382 * t1397 * t1398 * t2151 + t9476 * t3396 * t9431 * t302 / 0.16e2 - 0.75398223686155037724e2 * t9481 * t1386 - 0.37699111843077518862e2 * t9481 * t1400 - 0.15079644737231007545e3 * t3631 * t3640 - 0.75398223686155037724e2 * t3631 * t3618 - 0.75398223686155037724e2 * t3631 * t3605 - 0.75398223686155037724e2 * t1382 * t1383 * t3638 * t702 - 0.25132741228718345908e2 * t1382 * t1383 * t1384 * t2033 + 0.16755160819145563939e2 * t1382 * t239 * t32 * t1385 + 0.75398223686155037724e2 * t1382 * t1397 * t9504 * t857; t9516 = t3302 * t304; t9538 = t1321 * t26; t9543 = t712 * t49; t9566 = -0.10053096491487338363e3 * t1382 * t3658 * t3639 - 0.50265482457436691817e2 * t1382 * t3612 * t3617 - 0.75398223686155037724e2 * t1382 * t1383 * t9516 * t227 - 0.37699111843077518862e2 * t1382 * t1397 * t3302 * t860 * t302 - 0.50265482457436691817e2 * t1382 * t3658 * t3604 - 0.75398223686155037724e2 * t1382 * t1397 * t486 * t6676 * t2157 + 0.22619467105846511317e3 * t1382 * t3653 * t3638 * t655 - 0.30159289474462015090e3 * t1382 * t9538 * t1384 * t1959 + 0.15079644737231007545e3 * t1382 * t9543 * t3654 + 0.22619467105846511317e3 * t3631 * t3655 - 0.10053096491487338363e3 * t3631 * t3659 + 0.75398223686155037724e2 * t3631 * t3670 + 0.50265482457436691817e2 * t1382 * t3612 * t3669 - t512 * t6 * t8852 * t514 / 0.48e2 + t512 * t3643 * t1369 / 0.24e2 - 0.5e1 / 0.72e2 * t512 * t1365 * t3584; t9572 = -0.108e3 * t3444 * t9292 * t6402 - 0.27e2 * t3444 * t3445 * t6407 + 0.9e1 / 0.8e1 * t9302 * t9304 - 0.81e2 / 0.16e2 * t9310 * t9311 + 0.54e2 * t3444 * t3445 * t6394 + 0.108e3 * t3444 * t9292 * t6389 - 0.7e1 / 0.108e3 * t6346 * t497 + t2072 * t1306 / 0.12e2 + 0.2e1 * t3558 * t1339 - 0.10e2 / 0.9e1 * t501 * t28 * t63 * t1 * t507 + 0.3e1 / 0.8e1 * t1359 * t2188 + t6338 * t497 / 0.12e2 + t48 * t213 * t1403 / 0.6e1 - 0.7e1 / 0.54e2 * t48 * t682 * t524 + t48 * t49 * (t9395 + t9459 + t9509 + t9566) / 0.8e1; t9581 = t9299 * t99 * M_PI * t18; t9586 = t9307 * t99 * t63 * t1; t9614 = -0.4e1 * t1310 * t2188 - 0.4e1 / 0.3e1 * t48 * t49 * (t9001 + t9049 + t9092 + t9155 + t9196 + t9243 + t9291 + t9572) - 0.12e2 * t9581 * t9304 + 0.54e2 * t9586 * t9311 - 0.270e3 * t3409 * t8985 - 0.16e2 / 0.9e1 * t48 * t213 * t1407 + 0.2e1 / 0.3e1 * t6184 * t497 - 0.2e1 / 0.3e1 * t6708 * t497 - 0.4e1 / 0.3e1 * t3727 * t753 - 0.2e1 / 0.3e1 * t1310 * t2232 - 0.8e1 / 0.3e1 * t745 * t3494 + 0.8e1 * t749 * t3494 + 0.4e1 * t254 * t9054 + 0.4e1 * t254 * t9058 + 0.54e2 * t739 * t9062 + 0.4e1 * t749 * t3498; t9646 = t737 * t1408 * t63; t9649 = 0.4e1 / 0.3e1 * t254 * t9066 - 0.315e3 * t6712 * t9216 + 0.4e1 * t2319 * t1302 + 0.4e1 * t1310 * t2241 + 0.16e2 / 0.9e1 * t2341 * t1302 - 0.4e1 * t6208 * t1294 + 0.54e2 * t2323 * t3452 - 0.9e1 * t6198 * t1294 - 0.18e2 * t2323 * t3472 - 0.9e1 * t2323 * t3476 + 0.4e1 * t3709 * t753 - 0.2e1 * t3709 * t757 - 0.2e1 * t749 * t3544 - 0.2e1 / 0.3e1 * t254 * t9193 + 0.18e2 * t3721 * t2192 - 0.9e1 * t9646 * t741; t9681 = t2174 * t311; t9684 = -0.8e1 / 0.9e1 * t6190 * t497 - 0.8e1 / 0.9e1 * t2341 * t1306 - 0.4e1 / 0.3e1 * t745 * t3498 - 0.8e1 / 0.3e1 * t2327 * t1302 + 0.4e1 * t745 * t3456 + 0.6e1 * t2347 * t3472 + 0.3e1 * t2347 * t3476 - 0.12e2 * t749 * t3456 + 0.6e1 * t6699 * t1294 - 0.12e2 * t254 * t9096 - 0.9e1 * t3721 * t2246 - 0.18e2 * t2347 * t3452 - 0.9e1 * t739 * t9101 - 0.9e1 * t739 * t9105 - 0.3e1 * t739 * t9109 - 0.270e3 * t9681 * t3411; t9687 = t2174 * t259; t9695 = t252 * t3684 * M_PI; t9704 = t528 * t1317; t9715 = t252 * t3419 * M_PI; t9719 = t737 * t1313 * t63; t9727 = t252 * t3414 * M_PI; t9732 = -0.270e3 * t3409 * t8975 + 0.90e2 * t9687 * t3411 + 0.1080e4 * t3409 * t9018 + 0.4e1 / 0.3e1 * t2327 * t1306 - 0.2e1 * t9695 * t256 + 0.56e2 / 0.81e2 * t6194 * t497 + 0.16e2 * t254 * t9138 - 0.108e3 * t739 * t9146 - 0.90e2 * t2175 * t9704 * t2179 + 0.112e3 / 0.81e2 * t48 * t682 * t528 + 0.4e1 / 0.3e1 * t48 * t32 * t3683 + 0.4e1 / 0.3e1 * t9715 * t256 + 0.3e1 * t9719 * t741 + 0.2e1 / 0.3e1 * t3727 * t757 - 0.2e1 * t2319 * t1306 - 0.8e1 / 0.9e1 * t9727 * t256 + 0.2e1 / 0.3e1 * t745 * t3544; t9735 = my_piecewise3(t52, t8893 + t8952, t9614 + t9649 + t9684 + t9732); t9756 = t7 * t197 * t3337; t9759 = t7 * t197 * t3737; t9762 = t7 * t197 * t3307; t9765 = t7 * t197 * t3303; t9767 = -t618 * t1224 * t2416 / 0.2e1 - t8736 / 0.2e1 + t2433 * t185 * t486 * t2434 / 0.9e1 - 0.3e1 / 0.8e1 * t7 * t17 * t9735 * t42 - 0.3e1 / 0.8e1 * t7 * t17 * t104 * t8852 - 0.9e1 / 0.8e1 * t7 * t17 * t871 * t1273 - t618 * t1224 * t2470 / 0.2e1 - t618 * t185 * t3314 * t190 / 0.2e1 - 0.3e1 / 0.4e1 * t9756 - 0.3e1 / 0.8e1 * t9759 - 0.3e1 / 0.4e1 * t9762 - 0.3e1 / 0.8e1 * t9765; t9774 = 0.5e1 / 0.36e2 * t7 * t1954 * t537; t9776 = t7 * t197 * t3333; t9779 = t7 * t197 * t3326; t9782 = t7 * t644 * t1413; t9790 = 0.5e1 / 0.36e2 * t7 * t1954 * t534; t9792 = t7 * t644 * t1432; t9795 = t7 * t644 * t1428; t9802 = t7 * t644 * t1417; t9812 = -0.9e1 / 0.8e1 * t7 * t17 * t315 * t3302 - t9774 - 0.3e1 / 0.8e1 * t9776 - 0.3e1 / 0.8e1 * t9779 + t9782 / 0.4e1 - 0.9e1 / 0.8e1 * t7 * t17 * t1412 * t702 - t9790 + t9792 / 0.4e1 + t9795 / 0.4e1 - 0.3e1 / 0.8e1 * t7 * t17 * t2353 * t486 + t9802 / 0.4e1 - 0.9e1 / 0.8e1 * t7 * t17 * t3736 * t227 - 0.3e1 / 0.8e1 * t7 * t17 * t533 * t2033; t9816 = -t3344 / 0.2e1 - t3347 - 0.3e1 / 0.4e1 * t3350 - 0.9e1 / 0.8e1 * t3739 - 0.3e1 / 0.4e1 * t3742 - 0.3e1 / 0.2e1 * t3745 + t8647 - 0.3e1 * t3751 - 0.3e1 * t3754 - t3756 / 0.2e1 - t3760 + t9 * (t8691 + t8730 + t9767 + t9812); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[0] = t8641 + t9816; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[1] = 0.0e0; t9819 = t3778 / 0.4e1; t9822 = t3792 / 0.4e1; t9827 = t887 * t3770 * t889; t9832 = t643 * t602; t9834 = t325 * t9832 * t328; t9837 = t325 * t3770 * t898; t9844 = 0.5e1 / 0.36e2 * t7 * t2364 * t603; t9850 = t887 * t893 * t3780; t9857 = t325 * t2466 * t1447; t9860 = t325 * t893 * t3787; t9868 = 0.5e1 / 0.36e2 * t7 * t2364 * t606; t9869 = t2457 * t1440 * t2459 / 0.9e1 - t9827 / 0.6e1 - t887 * t1440 * t2442 / 0.2e1 + t9834 / 0.3e1 - t9837 / 0.2e1 - t325 * t1440 * t2450 / 0.2e1 - t9844 + t2457 * t326 * t557 * t2458 / 0.9e1 - t9850 / 0.6e1 - t887 * t326 * t1447 * t897 / 0.2e1 + t9857 / 0.3e1 - t9860 / 0.2e1 - t325 * t326 * t557 * t2449 / 0.2e1 - t9868; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[2] = -t3768 / 0.2e1 - t3772 - 0.3e1 / 0.2e1 * t3775 + t9819 - t3782 / 0.2e1 - t3785 - 0.3e1 / 0.2e1 * t3789 + t9822 + t9 * t9869; t9872 = -t3306 - t3827 - t3831 - t3892 - t3803 - t3806 - t3810 - t3900 - t3823 - t3746 - t3751 - t3754 - t3757 - 0.2e1 / 0.3e1 * t3760 - t3310 + t8634; t9878 = t3797 / 0.3e1; t9879 = t3817 / 0.3e1; t9893 = t618 * t3758 * t908 / 0.9e1; t9904 = t618 * t624 * t3815 / 0.9e1; t9922 = -t184 * t3808 * t2572 - t184 * t923 * t1412 * t925 - t618 * t3808 * t2506 / 0.3e1 + t2433 * t1224 * t2499 / 0.9e1 - t9893 - t618 * t924 * t3829 * t190 / 0.3e1 + t2433 * t185 * t1459 * t619 / 0.9e1 - t9904 - t618 * t185 * t3825 * t190 / 0.3e1 - t618 * t185 * t1459 * t637 / 0.6e1 - t618 * t628 * t3815 / 0.3e1 - t7 * t2608 * t534 / 0.2e1 - t184 * t1224 * t2547 / 0.2e1; t9935 = t184 * t2420 * t1459 / 0.3e1; t9940 = t184 * t2542 * t533 * t925; t9943 = t184 * t8698 * t340; t9945 = 0.2e1 / 0.9e1 * t8666 - t8683 / 0.3e1 + 0.2e1 / 0.9e1 * t8700 - t8703 / 0.3e1 - t8711 / 0.18e2 - t8717 / 0.3e1 - t8719 / 0.6e1 - t8722 / 0.18e2 - t8729 / 0.3e1 - t8736 / 0.6e1 - t9935 - t184 * t3752 * t918 + 0.7e1 / 0.6e1 * t9940 + t9943 / 0.9e1; t9953 = t184 * t2543 * t3829; t9956 = t184 * t2426 * t1459; t9960 = t184 * t8727 * t340 / 0.3e1; t9965 = t184 * t3758 * t918 / 0.3e1; t9971 = t184 * t624 * t3825 / 0.3e1; t9981 = -t184 * t924 * t1273 * t8 - t184 * t2575 * t3829 + 0.7e1 / 0.6e1 * t9953 + t9956 / 0.9e1 - t9960 - t184 * t628 * t3825 - t9965 - t184 * t8654 * t340 / 0.2e1 - t9971 - t184 * t2412 * t1459 / 0.2e1 - t184 * t185 * t3302 * t339 / 0.2e1 - t9756 / 0.4e1 - t9759 / 0.8e1; t10002 = -t9762 / 0.4e1 - t9765 / 0.8e1 - t9774 - t9776 / 0.8e1 - t9779 / 0.8e1 + t9782 / 0.6e1 - t9790 + t9792 / 0.6e1 + t9795 / 0.6e1 + t9802 / 0.6e1 - t618 * t1224 * t2526 / 0.3e1 - t618 * t1224 * t2530 / 0.6e1 - t618 * t3752 * t908 / 0.3e1 - t7 * t2608 * t537 / 0.2e1; t10006 = -t3324 / 0.2e1 - t3329 - t3331 / 0.2e1 - t3336 - t3340 - t3350 / 0.2e1 - t3317 - t3322 - t3345 - 0.2e1 / 0.3e1 * t3347 - t3313 - t3740 - t3742 / 0.2e1 + t8647 - t9878 - t9879 + t9 * (t9922 + t9945 + t9981 + t10002); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[3] = t9872 + t10006; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[4] = 0.0e0; t10007 = t3839 / 0.3e1; t10008 = t3864 / 0.3e1; t10009 = -t10007 - t4368 - t10008 - t4369 - t3875 - t4370 - t3882 - t4371 + t3846 - t3851 - t4372; t10019 = t325 * t2466 * t1656; t10026 = t325 * t2568 * t1447 / 0.3e1; t10030 = t196 * t1647; t10033 = t325 * t10030 * t328 / 0.3e1; t10039 = t325 * t3770 * t952 / 0.3e1; t10041 = t325 * t9832 * t345; t10047 = t7 * t902 * t1660; t10050 = t7 * t902 * t1664; t10053 = t7 * t902 * t1648; t10056 = t7 * t902 * t1652; t10058 = 0.2e1 / 0.9e1 * t9857 - t9860 / 0.6e1 - t9827 / 0.18e2 + 0.2e1 / 0.9e1 * t9834 - t9837 / 0.6e1 - t9850 / 0.18e2 + t10019 / 0.9e1 - t887 * t945 * t3780 / 0.6e1 - t10026 - t887 * t3849 * t889 / 0.6e1 - t10033 - t887 * t1440 * t2553 / 0.6e1 - t10039 + t10041 / 0.9e1 - t325 * t945 * t3787 / 0.2e1 + t10047 / 0.12e2 + t10050 / 0.12e2 + t10053 / 0.12e2 + t10056 / 0.12e2; t10081 = t887 * t893 * t3862 / 0.9e1; t10087 = t887 * t3770 * t932 / 0.9e1; t10098 = t325 * t893 * t3880 / 0.3e1; t10110 = t325 * t2594 * t3869; t10114 = t325 * t2542 * t602 * t940; t10116 = t7 * t2604 * t606 / 0.2e1 + t7 * t2604 * t603 / 0.2e1 - t887 * t326 * t1656 * t897 / 0.6e1 - t887 * t1440 * t2522 / 0.6e1 + t887 * t3844 * t2517 / 0.3e1 + t2457 * t326 * t1656 * t888 / 0.9e1 - t10081 + t2457 * t1440 * t2510 / 0.9e1 - t10087 + t887 * t939 * t3869 * t327 / 0.3e1 - t887 * t326 * t1510 * t888 / 0.6e1 - t10098 - t9844 - t9868 - t325 * t326 * t1510 * t897 / 0.2e1 - t325 * t3849 * t898 / 0.2e1 - t325 * t1440 * t2590 / 0.2e1 - 0.7e1 / 0.6e1 * t10110 - 0.7e1 / 0.6e1 * t10114; t10119 = -t3857 - t4374 + t3871 - t3790 + t9822 - t3776 + t9819 - t3783 - 0.2e1 / 0.3e1 * t3785 - t3769 - 0.2e1 / 0.3e1 * t3772 + t9 * (t10058 + t10116); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[5] = t10009 + t10119; t10120 = -t3895 - t3904 - t3899 - t3891 - t3827 - t3823 - t3806 - t3803 + t8634 - t3325 - t3332; t10124 = t184 * t624 * t3901; t10127 = t618 * t624 * t3896; t10130 = t184 * t3758 * t970; t10178 = -t10124 / 0.6e1 - t10127 / 0.18e2 - t10130 / 0.6e1 - t184 * t1224 * t2709 / 0.2e1 - t184 * t1224 * t2714 / 0.2e1 - t618 * t628 * t3896 / 0.6e1 - t618 * t185 * t1273 * t963 / 0.6e1 - t184 * t628 * t3901 / 0.2e1 - t184 * t185 * t1273 * t969 / 0.2e1 - t184 * t185 * t486 * t2713 / 0.2e1 - t618 * t1224 * t2663 / 0.6e1 - t618 * t3808 * t2639 / 0.3e1 + t2433 * t1224 * t2667 / 0.9e1 - t618 * t924 * t1459 * t8 / 0.3e1 - t618 * t185 * t3901 * t190 / 0.6e1 + t2433 * t185 * t3896 * t190 / 0.9e1 - t9893 - t9904 + t8666 / 0.9e1; t10194 = t618 * t3758 * t964; t10200 = t8700 / 0.9e1 - t9935 - t9940 / 0.3e1 + 0.2e1 / 0.9e1 * t9943 - t9953 / 0.3e1 + 0.2e1 / 0.9e1 * t9956 - t9960 - t184 * t3752 * t970 / 0.2e1 - t618 * t1224 * t2721 / 0.6e1 - t618 * t3752 * t964 / 0.6e1 - t10194 / 0.18e2 - t9965 - t9971 - t9774 + t9782 / 0.12e2 - t9790 + t9792 / 0.12e2 + t9795 / 0.12e2 + t9802 / 0.12e2; t10203 = -t3831 - t9879 - 0.2e1 / 0.3e1 * t3820 - t3810 - t9878 - 0.2e1 / 0.3e1 * t3800 - t3348 - t3351 - t3743 + t8647 - t3761 + t9 * (t10178 + t10200); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[6] = t10120 + t10203; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[7] = 0.0e0; t10206 = -t3914 - t3875 - t3882 - 0.2e1 / 0.3e1 * t3842 + t3846 - t3851 - t3857 - 0.2e1 / 0.3e1 * t3867 + t3871 - t4359 - t4362 - t4364 - t3786 - t3773 - t4396 - t4399; t10219 = t9857 / 0.9e1 + t9834 / 0.9e1 + 0.2e1 / 0.9e1 * t10019 - t10026 - t10033 - t10039 + 0.2e1 / 0.9e1 * t10041 + t10047 / 0.6e1 + t10050 / 0.6e1 + t10053 / 0.6e1 + t10056 / 0.6e1 - t325 * t326 * t557 * t2704 / 0.2e1 - t10081; t10221 = t7 * t332 * t4391; t10224 = t7 * t332 * t4375; t10227 = t7 * t332 * t4354; t10230 = t7 * t332 * t4379; t10233 = t7 * t332 * t4383; t10236 = t7 * t332 * t4387; t10239 = t325 * t2568 * t1656; t10242 = t325 * t893 * t4397; t10245 = t325 * t3770 * t986; t10248 = t325 * t10030 * t345; t10250 = -t10087 - t10221 / 0.8e1 - t10224 / 0.8e1 - t10227 / 0.8e1 - t10230 / 0.8e1 - t10233 / 0.4e1 - t10236 / 0.4e1 - t10098 - t9844 - t9868 - t10239 / 0.3e1 - t10242 / 0.3e1 - t10245 / 0.6e1 - t10248 / 0.3e1; t10253 = t887 * t3770 * t975; t10256 = t887 * t893 * t3911; t10259 = t325 * t3770 * t982; t10295 = -t10253 / 0.18e2 - t10256 / 0.18e2 - t10259 / 0.3e1 + t887 * t3844 * t2655 / 0.3e1 + t2457 * t326 * t3911 * t327 / 0.9e1 + t887 * t939 * t1656 * t8 / 0.3e1 - t887 * t1440 * t2643 / 0.3e1 - t887 * t326 * t4400 * t327 / 0.6e1 - t887 * t945 * t3862 / 0.3e1 - t887 * t326 * t4397 * t327 / 0.3e1 - t887 * t1440 * t2647 / 0.6e1 - t887 * t3849 * t932 / 0.3e1 + t2457 * t1440 * t2651 / 0.9e1; t10312 = t16 * t4353; t10319 = t325 * t893 * t4400; t10332 = t10110 / 0.3e1 + t10114 / 0.3e1 + t325 * t2697 * t3869 + t325 * t939 * t1510 * t8 - t325 * t2728 * t1447 / 0.2e1 - t325 * t1440 * t2705 / 0.2e1 + t325 * t923 * t1647 * t940 - t325 * t10312 * t328 / 0.2e1 + t325 * t3844 * t2700 - t10319 / 0.6e1 - t325 * t1440 * t2693 / 0.2e1 - t325 * t3849 * t952 - t325 * t945 * t3880 - t325 * t326 * t3994 * t327 / 0.2e1; t10340 = -t4403 - t4367 - t4378 - t4382 - t4386 - t4390 - t4394 - t4357 + t9 * (t10219 + t10250 + t10295 + t10332) - t10007 - t10008 - t3878 / 0.2e1 - t3885 / 0.2e1 - t3854 / 0.2e1 - t3860 / 0.2e1 + t9822 + t9819; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[8] = t10206 + t10340; t10372 = t2433 * t1224 * t3202 / 0.9e1 - t10194 / 0.6e1 - t618 * t1224 * t3221 / 0.2e1 + t9943 / 0.3e1 - t10130 / 0.2e1 - t184 * t1224 * t3191 / 0.2e1 - t9790 + t2433 * t185 * t486 * t3201 / 0.9e1 - t10127 / 0.6e1 - t618 * t185 * t1459 * t969 / 0.2e1 + t9956 / 0.3e1 - t10124 / 0.2e1 - t184 * t185 * t486 * t3190 / 0.2e1 - t9774; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[9] = -t3890 / 0.2e1 - t3800 - 0.3e1 / 0.2e1 * t3894 + t8647 - t3898 / 0.2e1 - t3820 - 0.3e1 / 0.2e1 * t3903 + t8634 + t9 * t10372; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[10] = 0.0e0; t10383 = -t3913 / 0.2e1 - 0.9e1 / 0.8e1 * t4356 - 0.3e1 * t4359 - 0.3e1 / 0.2e1 * t4361 - 0.3e1 * t4364 - t4366 / 0.2e1 - t3842 - t3867 - 0.3e1 / 0.4e1 * t3878 - 0.3e1 / 0.4e1 * t3885 - 0.3e1 / 0.4e1 * t3854; t10385 = t352 * t2792; t10389 = t117 * t7881; t10474 = t1004 * t358; t10478 = 0.18666666666666666666e-2 * t1488 * t1489 * t552 * t2824 - 0.55999999999999999998e-2 * t23 * t3963 * t2793 + 0.55999999999999999998e-2 * t23 * t2799 - 0.27377777777777777778e-1 * t23 * t1005 * t1506 + 0.74666666666666666667e-2 * t23 * t353 * t3990 - 0.93333333333333333332e-3 * t23 * t118 * t358 * (-0.13066666666666666667e0 * t546 * t2803 * t123 - 0.10192000000000000000e1 * t2777 * t366 + 0.15493333333333333334e1 * t2811 * t1032 * sigma[2] - 0.13664000000000000000e1 * t2817 * t2821 * t1026 + 0.44800000000000000000e0 / t115 / t2809 / t1832 * t7922 * t2815) - 0.14933333333333333333e-1 * t23 * t3956 * t1014 + 0.74666666666666666667e-2 * t23 * t3943 * t1035 - 0.93333333333333333332e-3 * t23 * t1480 * t2824 - 0.42587654320987654321e-1 * t22 * t5 * t2777 * t127 - 0.27377777777777777778e-1 * t23 * t10474 * t369; t10479 = 0.44799999999999999999e-1 * t1488 * t10385 * t3964 + 0.22399999999999999999e-1 * t1488 * t10389 * t552 * t2793 - 0.16800000000000000000e-1 * t1488 * t3963 * t1490 * t1035 + 0.42587654320987654321e-1 * t23 * t2778 * t553 + 0.54755555555555555555e-1 * t1488 * t1004 * t1013 * t1490 - 0.29866666666666666666e-1 * t1488 * t3956 * t3968 - 0.14933333333333333333e-1 * t1488 * t3956 * t3972 - 0.16800000000000000000e-1 * t1488 * t3963 * t1505 * t1014 + 0.55999999999999999998e-2 * t1488 * t1489 * t3989 * t369 + 0.55999999999999999998e-2 * t1488 * t1489 * t1505 * t1035 + t10478; t10504 = t115 * t10479; t10508 = t121 * t1510; t10516 = t360 * t557; t10548 = 0.16e2 / 0.5e1 * t237 * t385 * t120 * t10479 + 0.64e2 / 0.15e2 * t237 * t385 * t154 * t1510 + 0.64e2 / 0.5e1 * t237 * t385 * t114 * t3994 - 0.4e1 / 0.9e1 * t201 * t349 * t10504 + 0.8e1 / 0.27e2 * t201 * t349 * t10508 - 0.128e3 / 0.135e3 * t237 * t385 * t435 * t557 - 0.32e2 / 0.243e3 * t201 * t349 * t10516 + 0.32e2 / 0.9e1 * t201 * t992 * t3935 * t374 + 0.16e2 / 0.9e1 * t201 * t992 * t1472 * t1040 + 0.8e1 / 0.3e1 * t201 * t992 * t3995 * t374 - 0.192e3 * t237 * t7962 * t562 * t2755 + 0.768e3 / 0.5e1 * t237 * t2838 * t1519 * t993 - 0.64e2 / 0.5e1 * t237 * t1051 * t4015 * t374 + 0.32e2 / 0.3e1 * t201 * t7998 * t558 * t2755; t10593 = t138 * t3994; t10597 = t557 * t374; t10598 = t10597 * t1040; t10605 = -0.16e2 / 0.3e1 * t201 * t2754 * t1472 * t993 - 0.16e2 / 0.27e2 * t201 * t992 * t3931 * t374 + 0.8e1 / 0.3e1 * t201 * t992 * t1511 * t1040 + 0.8e1 / 0.9e1 * t201 * t992 * t558 * t2829 - 0.8e1 * t201 * t2754 * t1511 * t993 - 0.48e2 / 0.5e1 * t237 * t1051 * t562 * t2829 - 0.384e3 / 0.5e1 * t237 * t1051 * t4019 * t374 - 0.192e3 / 0.5e1 * t237 * t1051 * t1519 * t1040 - 0.144e3 / 0.5e1 * t237 * t1051 * t4023 * t374 - 0.144e3 / 0.5e1 * t237 * t1051 * t1523 * t1040 + 0.576e3 / 0.5e1 * t237 * t2838 * t1523 * t993 - 0.8e1 / 0.9e1 * t201 * t349 * t10593 - 0.8e1 * t8942 * t4199 * t10598 + 0.576e3 / 0.5e1 * t8948 * t5231 * t10598; t10607 = t397 * t138; t10610 = t10607 * t171 * M_PI * t18; t10611 = t21 * t1050; t10612 = t10611 * t10598; t10615 = t1074 * t138; t10618 = t10615 * t171 * t63 * t1; t10619 = t4308 * t10598; t10623 = t1291 * t4103 * t993; t10644 = t2926 * t10598; t10653 = t593 * t1317; t10664 = -0.81e2 / 0.16e2 * t1143 * t10623 + t1147 * t4069 / 0.8e1 + 0.27e2 / 0.16e2 * t3071 * t4064 - t137 * t121 * t4224 / 0.8e1 + 0.108e3 * t4112 * t4271 - 0.1296e4 * t1554 * t4115 * t8226 + 0.1296e4 * t1554 * t4115 * t8255 + 0.162e3 * t1554 * t1557 * t8260 + 0.405e3 / 0.16e2 * t4100 * t10644 + 0.324e3 * t1554 * t4103 * t2979 - 0.7e1 / 0.54e2 * t137 * t1020 * t593 + 0.135e3 / 0.16e2 * t2875 * t10653 * t2879 + 0.54e2 * t4275 * t4276 * t8218 - 0.18e2 * t571 * t154 * t3443 * t4277; t10676 = t2838 * t557; t10686 = t4282 * t114; t10687 = t3480 * t4285; t10688 = t10687 * t557; t10689 = t10686 * t10688; t10701 = t4199 * t557; t10702 = t449 * t1040; t10712 = t1196 * t1190; t10766 = 0.15079644737231007545e3 * t1617 * t1618 * t1510 * t4210 + 0.22619467105846511317e3 * t1617 * t10701 * t10702 * t374 + 0.75398223686155037724e2 * t1617 * t4208 * t1196 * t1040 * t447 + 0.75398223686155037724e2 * t1617 * t4208 * t10712 * t374 + 0.75398223686155037724e2 * t1617 * t1632 * t557 * t3036 * t1190 * t447 - 0.22619467105846511317e3 * t1617 * t10701 * t1196 * t993 * t447 + 0.5e1 / 0.81e2 * t512 * t582 * t352 * t165 + 0.12566370614359172954e2 * t588 * t349 * t10504 * t449 - 0.83775804095727819694e1 * t1614 * t4178 - t512 * t582 * t154 * t3027 * t449 / 0.48e2 - 0.5e1 / 0.72e2 * t512 * t582 * t117 * t447 * t449 + t512 * t582 * t435 * t1190 * t449 / 0.24e2 + t512 * t1600 * t4191 / 0.16e2 - t512 * t582 * t435 * t1193 * t1196 / 0.24e2 - t512 * t582 * t154 * t3033 * t3036 / 0.24e2; t10771 = t3036 * t374; t10814 = 0.37233690709212364308e1 * t588 * t349 * t10516 * t449 - 0.15079644737231007545e3 * t1617 * t4208 * t10771 * t1193 + 0.10053096491487338363e3 * t1617 * t4204 * t557 * t4210 + 0.15079644737231007545e3 * t4164 * t4211 + 0.37699111843077518862e2 * t4131 * t1629 - 0.83775804095727819694e1 * t588 * t349 * t10508 * t449 + 0.25132741228718345908e2 * t4131 * t1625 + 0.50265482457436691817e2 * t1614 * t4137 + 0.12566370614359172954e2 * t2999 * t54 * t22 * t590 + 0.37699111843077518862e2 * t1614 * t4127 + t512 * t1600 * t4151 / 0.12e2 - t512 * t4219 * t1609 / 0.16e2 - t512 * t1600 * t4156 / 0.16e2 + 0.25132741228718345908e2 * t588 * t349 * t10593 * t449 - 0.50265482457436691817e2 * t1617 * t4181 * t4186; t10821 = t4130 * t23; t10828 = t3994 * t449; t10846 = t1556 * t115; t10851 = t1050 * t138; t10869 = -0.37699111843077518862e2 * t1617 * t1632 * t3994 * t1196 * t447 - 0.75398223686155037724e2 * t10821 * t1621 - 0.37699111843077518862e2 * t10821 * t1635 - 0.15079644737231007545e3 * t4164 * t4169 - 0.75398223686155037724e2 * t1617 * t1618 * t10828 * t374 + 0.83775804095727819694e1 * t1617 * t147 * t121 * t1634 - 0.75398223686155037724e2 * t1617 * t1632 * t557 * t8448 * t3033 + 0.22619467105846511317e3 * t4164 * t4201 - 0.10053096491487338363e3 * t4164 * t4205 - 0.30159289474462015090e3 * t1617 * t10846 * t1619 * t2755 + 0.15079644737231007545e3 * t1617 * t10851 * t4200 - 0.37699111843077518862e2 * t4164 * t4161 - 0.37699111843077518862e2 * t1617 * t1632 * t4185 * t1190 - 0.12566370614359172954e2 * t1617 * t1632 * t1633 * t3027 - 0.75398223686155037724e2 * t1617 * t1618 * t4167 * t1040; t10884 = t1510 * t3036; t10921 = -0.75398223686155037724e2 * t4164 * t4174 - 0.25132741228718345908e2 * t1617 * t1618 * t1619 * t2829 - 0.75398223686155037724e2 * t4164 * t4187 - 0.10053096491487338363e3 * t1617 * t4204 * t4168 + 0.50265482457436691817e2 * t1617 * t4181 * t4215 + 0.75398223686155037724e2 * t1617 * t1632 * t10884 * t1193 - 0.50265482457436691817e2 * t4164 * t4182 + 0.75398223686155037724e2 * t4164 * t4216 + 0.22619467105846511317e3 * t1617 * t4199 * t4167 * t993 - 0.50265482457436691817e2 * t1617 * t4204 * t4173 - 0.25132741228718345908e2 * t1617 * t4181 * t4160 + t9476 * t4015 * t10712 * t447 / 0.16e2 + 0.16755160819145563939e2 * t1617 * t384 * t121 * t1620 - t512 * t6 * t10479 * t583 / 0.48e2 - 0.5e1 / 0.72e2 * t512 * t1600 * t4146 + t512 * t4219 * t1604 / 0.24e2; t10931 = t23 * t4046 * t993; t10934 = t4320 * t993; t10944 = -0.27e2 * t4275 * t4276 * t8236 - 0.18e2 * t4275 * t385 * t557 * t8241 - 0.54e2 * t4275 * t1051 * t1510 * t2979 - 0.108e3 * t4275 * t10676 * t8255 - 0.27e2 * t4275 * t4276 * t8260 + 0.108e3 * t4275 * t10676 * t8226 + 0.405e3 * t10689 * t8226 * t23 - 0.405e3 * t10689 * t4107 * t18 * t5040 + t137 * t138 * (t10766 + t10814 + t10869 + t10921) / 0.8e1 + 0.162e3 * t1554 * t1557 * t8236 + 0.9e1 / 0.8e1 * t424 * t10931 - 0.108e3 * t574 * t4308 * t10934 - t3077 * t1538 / 0.6e1 - 0.3e1 / 0.8e1 * t1147 * t4058 + 0.9e1 / 0.8e1 * t1151 * t4058; t10946 = t68 * t2878; t10947 = t1567 * t2755; t10983 = 0.180e3 * t574 * t10946 * t10947 + 0.3e1 / 0.8e1 * t1594 * t2954 - t8190 * t568 / 0.16e2 - t2919 * t1542 / 0.8e1 + t8182 * t568 / 0.16e2 + 0.3e1 / 0.16e2 * t2884 * t1542 - 0.3e1 / 0.8e1 * t4251 * t1090 - t4236 * t1094 / 0.16e2 - t1147 * t4097 / 0.16e2 - 0.7e1 / 0.108e3 * t8479 * t568 - 0.10e2 / 0.9e1 * t571 * t117 * t63 * t1 * t577 - 0.3e1 * t1564 * t4264 - 0.3e1 * t574 * t68 * t384 * t10479 * t418 + 0.3e1 / 0.8e1 * t8502 * t1530; t10987 = 0.1e1 / t8201 / t131; t10989 = t500 * t8197 * t114 * t9113 * t10987; t11004 = t23 * t575 * t2829; t11020 = t23 * t1572 * t1040; t11026 = t23 * t4262 * t374; t11031 = t1291 * t1050 * t3994 * t374; t11037 = t23 * t1557 * t2755; t11040 = -0.2835e4 / 0.2e1 * t10989 * t10947 * t1291 + 0.9e1 * t574 * t1577 * t4329 * t2909 + 0.3e1 * t574 * t1577 * t1578 * t8170 + 0.27e2 / 0.32e2 * t2915 * t4052 - t424 * t11004 / 0.8e1 + 0.27e2 * t574 * t1566 * t4320 * t1040 + 0.9e1 * t574 * t1566 * t1567 * t2829 - 0.3e1 / 0.8e1 * t1151 * t4069 - 0.81e2 / 0.16e2 * t2915 * t4064 - 0.3e1 / 0.8e1 * t424 * t11020 - 0.3e1 / 0.8e1 * t1594 * t3046 - 0.3e1 / 0.8e1 * t424 * t11026 + 0.27e2 / 0.32e2 * t1143 * t11031 - 0.6e1 * t1564 * t4300 - 0.3e1 / 0.2e1 * t424 * t11037; t11056 = t1510 * t3063; t11062 = t1291 * t4046 * t1040; t11066 = t1291 * t1528 * t2829; t11081 = 0.18e2 * t574 * t1577 * t557 * t8510 * t8512 - 0.36e2 * t1564 * t4309 - 0.9e1 / 0.32e2 * t3071 * t4052 + 0.3e1 * t1564 * t4335 + 0.9e1 * t1564 * t4326 - 0.18e2 * t574 * t1577 * t11056 * t3065 + 0.27e2 / 0.32e2 * t1143 * t11062 + 0.9e1 / 0.32e2 * t1143 * t11066 + t2919 * t1538 / 0.4e1 - 0.9e1 / 0.16e2 * t8540 * t1530 + 0.27e2 / 0.32e2 * t4257 * t2973 + 0.18e2 * t1564 * t4322 + 0.6e1 * t1564 * t4331 + t1147 * t4041 / 0.4e1; t11088 = t3994 * t418; t11093 = t3994 * t1133; t11103 = t1291 * t4115 * t2755; t11108 = t8202 * t557 * t2755 * t23; t11116 = t4282 * t154 * t3480 * t4285; t11120 = t4282 * t4283 * t8202; t11130 = t10607 * t167 * M_PI * t18; t11133 = -0.9e1 / 0.16e2 * t3071 * t4048 - 0.3e1 / 0.8e1 * t2884 * t1538 + 0.27e2 / 0.32e2 * t8176 * t1530 + 0.27e2 * t574 * t1566 * t11088 * t374 + 0.9e1 * t574 * t1577 * t11093 * t1137 - 0.6e1 * t4245 * t1569 - 0.2e1 * t4245 * t1580 + 0.81e2 / 0.8e1 * t1143 * t11103 + 0.945e3 / 0.32e2 * t8200 * t11108 - 0.405e3 * t4287 * t10934 * t23 - 0.135e3 * t11116 * t4289 + 0.2025e4 * t11120 * t10947 * t23 - 0.3e1 / 0.4e1 * t1151 * t4041 + 0.27e2 / 0.16e2 * t2915 * t4048 + 0.9e1 / 0.8e1 * t11130 * t10612; t11137 = t10615 * t167 * t63 * t1; t11152 = t8294 * t557 * t2755; t11167 = t2874 * t427; t11180 = t2874 * t452; t11184 = t2926 * t1510 * t993; t11187 = -0.81e2 / 0.16e2 * t11137 * t10619 - 0.162e3 * t1554 * t1556 * t3994 * t1558 - 0.162e3 * t1554 * t4103 * t4107 - 0.54e2 * t1554 * t1557 * t418 * t2829 - 0.405e3 / 0.4e1 * t4100 * t11152 - 0.108e3 * t4112 * t4104 + 0.1296e4 * t1554 * t2878 * t1510 * t4116 + 0.36e2 * t1552 * t435 * t1317 * t1559 + 0.432e3 * t4112 * t4117 - 0.135e3 / 0.16e2 * t11167 * t4030 - 0.3240e4 * t1554 * t4285 * t557 * t418 * t2755 - 0.54e2 * t4112 * t4108 - 0.324e3 * t1554 * t1557 * t8218 + 0.405e3 / 0.16e2 * t11180 * t4030 + 0.405e3 / 0.16e2 * t4100 * t11184; t11193 = t1074 * t1597 * t63; t11201 = t397 * t4225 * M_PI; t11209 = t397 * t4120 * M_PI; t11213 = t397 * t4123 * M_PI; t11217 = t1074 * t1639 * t63; t11223 = t22 * t349 * t10479; t11231 = t8186 * t568 / 0.12e2 + t3077 * t1542 / 0.12e2 - 0.9e1 / 0.32e2 * t11193 * t1078 - 0.27e2 / 0.16e2 * t4257 * t2935 + 0.2e1 * t4245 * t1574 + 0.3e1 / 0.16e2 * t11201 * t401 + t4236 * t1090 / 0.8e1 + t1594 * t2902 / 0.16e2 - t11209 * t401 / 0.8e1 + t11213 * t401 / 0.12e2 + 0.27e2 / 0.32e2 * t11217 * t1078 + 0.3e1 / 0.16e2 * t1151 * t4097 + t424 * t11223 / 0.16e2 + 0.3e1 / 0.16e2 * t4251 * t1094 + t137 * t360 * t1638 / 0.6e1; t11244 = t2874 * t404; t11267 = -0.12e2 * t10610 * t10612 + 0.54e2 * t10618 * t10619 - 0.4e1 / 0.3e1 * t137 * t138 * (t10664 + t10944 + t10983 + t11040 + t11081 + t11133 + t11187 + t11231) + 0.112e3 / 0.81e2 * t137 * t1020 * t597 + 0.4e1 / 0.3e1 * t137 * t121 * t4344 + 0.90e2 * t11244 * t4030 + 0.1080e4 * t4028 * t11152 + 0.16e2 * t399 * t11037 + 0.3e1 * t3134 * t4052 + 0.4e1 * t1082 * t4058 + 0.4e1 * t1086 * t4069 + 0.4e1 * t399 * t11020 + 0.4e1 / 0.3e1 * t399 * t11004 + 0.4e1 * t1546 * t3046 - 0.9e1 * t4093 * t2973 - 0.315e3 * t8579 * t11108; t11275 = t1074 * t1643 * t63; t11279 = t397 * t4033 * M_PI; t11283 = t397 * t4345 * M_PI; t11307 = 0.4e1 * t399 * t11026 - 0.9e1 * t1076 * t11031 - 0.2e1 * t4085 * t1094 - 0.9e1 * t11275 * t1078 - 0.8e1 / 0.9e1 * t11279 * t401 - 0.2e1 * t11283 * t401 - 0.2e1 / 0.3e1 * t1546 * t2902 - 0.16e2 / 0.9e1 * t137 * t360 * t1642 - 0.9e1 * t8149 * t1530 + 0.8e1 * t1086 * t4041 - 0.18e2 * t3120 * t4048 + 0.16e2 / 0.9e1 * t3142 * t1538 - 0.4e1 * t8068 * t1530 - 0.18e2 * t3134 * t4064 - 0.108e3 * t1076 * t11103 - 0.9e1 * t3120 * t4052; t11341 = -0.9e1 * t1076 * t11062 - 0.3e1 * t1076 * t11066 + 0.54e2 * t3120 * t4064 + 0.54e2 * t1076 * t10623 + 0.4e1 * t3116 * t1538 - 0.2e1 * t3116 * t1542 - 0.2e1 * t1086 * t4097 - 0.2e1 / 0.3e1 * t399 * t11223 - 0.8e1 / 0.3e1 * t3124 * t1538 - 0.12e2 * t1086 * t4058 - 0.8e1 / 0.3e1 * t1082 * t4041 - 0.12e2 * t399 * t10931 + 0.6e1 * t8048 * t1530 + 0.6e1 * t3134 * t4048 + 0.2e1 / 0.3e1 * t8144 * t568 - 0.2e1 / 0.3e1 * t8056 * t568; t11347 = t1074 * t1549 * t63; t11361 = t397 * t4348 * M_PI; t11368 = t2874 * t456; t11377 = t597 * t1317; t11383 = -0.4e1 / 0.3e1 * t4075 * t1090 - 0.270e3 * t4028 * t10644 + 0.3e1 * t11347 * t1078 + 0.2e1 / 0.3e1 * t4075 * t1094 - 0.8e1 / 0.9e1 * t8153 * t568 - 0.8e1 / 0.9e1 * t3142 * t1542 + 0.18e2 * t4093 * t2935 + 0.2e1 / 0.3e1 * t1082 * t4097 + 0.4e1 / 0.3e1 * t11361 * t401 + 0.4e1 * t4085 * t1090 + 0.4e1 / 0.3e1 * t3124 * t1542 - 0.270e3 * t11368 * t4030 - 0.270e3 * t4028 * t11184 + 0.56e2 / 0.81e2 * t8134 * t568 - 0.4e1 * t1546 * t2954 - 0.90e2 * t2875 * t11377 * t2879 - 0.4e1 / 0.3e1 * t1082 * t4069; t11386 = my_piecewise3(t141, t10548 + t10605, t11267 + t11307 + t11341 + t11383); t11399 = -0.3e1 / 0.8e1 * t7 * t112 * t176 * t10479 - 0.3e1 / 0.8e1 * t7 * t112 * t602 * t2829 - 0.3e1 / 0.8e1 * t7 * t112 * t3148 * t557 - 0.3e1 / 0.8e1 * t7 * t112 * t11386 * t131 + t10019 / 0.3e1 + t10041 / 0.3e1 + t10047 / 0.4e1 + t10050 / 0.4e1 + t10053 / 0.4e1 + t10056 / 0.4e1 - 0.3e1 / 0.8e1 * t10221 - 0.3e1 / 0.8e1 * t10224; t11407 = -0.3e1 / 0.8e1 * t10227 - 0.3e1 / 0.8e1 * t10230 - 0.3e1 / 0.4e1 * t10233 - 0.3e1 / 0.4e1 * t10236 - t9844 - t9868 - t10239 - t10242 - t10245 / 0.2e1 - t10248 - t10253 / 0.6e1 - t10256 / 0.6e1 - t10259; t11448 = -0.3e1 / 0.2e1 * t325 * t326 * t3994 * t344 - 0.3e1 * t325 * t945 * t4397 + t2457 * t1440 * t3197 / 0.9e1 - t887 * t3849 * t975 / 0.2e1 - t325 * t1440 * t3207 / 0.2e1 - 0.3e1 / 0.2e1 * t325 * t3849 * t986 - 0.3e1 / 0.2e1 * t325 * t1440 * t3165 - 0.3e1 / 0.2e1 * t325 * t1440 * t3169 + t2457 * t326 * t557 * t3196 / 0.9e1 - 0.3e1 / 0.2e1 * t325 * t326 * t1510 * t985 - t887 * t1440 * t3182 / 0.2e1 - 0.3e1 / 0.2e1 * t325 * t945 * t4400; t11493 = -t887 * t326 * t1510 * t974 / 0.2e1 - 0.3e1 / 0.2e1 * t325 * t10312 * t345 - t887 * t945 * t3911 / 0.2e1 - 0.3e1 * t325 * t3849 * t982 - 0.3e1 / 0.2e1 * t325 * t2728 * t1656 - t325 * t326 * t557 * t3206 / 0.2e1 - t10319 / 0.2e1 - t887 * t1440 * t3217 / 0.2e1 - t887 * t326 * t1656 * t985 / 0.2e1 - 0.9e1 / 0.8e1 * t7 * t112 * t460 * t3994 - 0.9e1 / 0.8e1 * t7 * t112 * t1207 * t1510 - 0.9e1 / 0.8e1 * t7 * t112 * t1647 * t1040 - 0.9e1 / 0.8e1 * t7 * t112 * t4353 * t374; t11505 = -0.3e1 / 0.4e1 * t3860 + t9822 + t9819 + t9 * (t11399 + t11407 + t11448 + t11493) - 0.9e1 / 0.8e1 * t4377 - 0.9e1 / 0.8e1 * t4381 - 0.9e1 / 0.4e1 * t4385 - 0.9e1 / 0.4e1 * t4389 - 0.9e1 / 0.8e1 * t4393 - 0.3e1 * t4396 - 0.3e1 * t4399 - 0.3e1 / 0.2e1 * t4402; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho3sigma[11] = t10383 + t11505; t11512 = t16 * t4803; t11519 = t184 * t3758 * t1421; t11531 = t7 * t644 * t1797 / 0.12e2; t11533 = t7 * t197 * t4821; t11540 = t7 * t197 * t4817; t11543 = t7 * t197 * t4836; t11545 = t8943 * t1273; t11552 = t49 * t4477; t11556 = t80 * t1670; t11560 = t1273 * t1273; t11561 = t31 * t11560; t11612 = -0.18251851851851851851e-1 * t23 * t8766 * t481 - 0.19911111111111111110e-1 * t23 * t3265 + 0.74666666666666666664e-2 * t23 * t3277 + 0.37333333333333333332e-2 * t23 * t3281 + 0.49777777777777777778e-2 * t23 * t206 * t4473 - 0.93333333333333333332e-3 * t23 * t29 * t211 * (-0.19600000000000000000e-1 * t1684 * t682 * t34 + 0.19600000000000000000e-1 * t1688 * t666 * t219 - 0.27720000000000000000e0 * t3289 + 0.39480000000000000000e0 * t3294 * sigma[0] - 0.16800000000000000000e0 / t26 / t6133 * t6145 * t688) + 0.37333333333333333332e-2 * t1251 * t1252 * t4472 * t222 + 0.18666666666666666666e-2 * t1251 * t1252 * t1697 * t697 - 0.11200000000000000000e-1 * t23 * t3273 + 0.18251851851851851851e-1 * t23 * t667 * t1679 + 0.29866666666666666666e-1 * t1251 * t8758 * t4445; t11620 = t1268 * t1268; t11653 = -0.19911111111111111110e-1 * t1251 * t3264 * t4449 - 0.55999999999999999998e-2 * t1251 * t3271 * t1678 * t697 + 0.37333333333333333332e-2 * t23 * t29 * t675 * t11620 + 0.37333333333333333332e-2 * t1251 * t1252 * t481 * t3297 - 0.91259259259259259260e-2 * t23 * t667 * t1698 - 0.99555555555555555554e-2 * t1251 * t3264 * t4456 - 0.22400000000000000000e-1 * t1251 * t3271 * t1253 * t1268 - 0.55999999999999999998e-2 * t1251 * t3271 * t1697 * t676 + 0.22399999999999999999e-1 * t1251 * t8776 * t1678 * t676 + 0.99555555555555555552e-2 * t23 * t3251 * t1268 - 0.18666666666666666666e-2 * t23 * t1243 * t3297; t11654 = t11612 + t11653; t11655 = t26 * t11654; t11659 = t32 * t1670; t11663 = t26 * t11560; t11679 = t32 * t1702; t11695 = -0.32e2 / 0.3e1 * t8942 * t3653 * t11545 + 0.768e3 / 0.5e1 * t8948 * t4760 * t11545 - 0.16e2 / 0.27e2 * t201 * t202 * t11552 - 0.64e2 / 0.15e2 * t237 * t713 * t11556 - 0.96e2 / 0.5e1 * t237 * t713 * t11561 - 0.4e1 / 0.9e1 * t201 * t202 * t11655 - 0.16e2 / 0.81e2 * t201 * t654 * t11659 + 0.16e2 / 0.9e1 * t201 * t654 * t11663 + 0.64e2 / 0.27e2 * t201 * t654 * t1235 * t1273 + 0.64e2 / 0.45e2 * t237 * t240 * t80 * t1702 + 0.128e3 / 0.15e2 * t237 * t240 * t25 * t4477 + 0.8e1 / 0.81e2 * t201 * t202 * t11679 + 0.16e2 / 0.5e1 * t237 * t240 * t31 * t11654 + 0.192e3 / 0.5e1 * t237 * t2042 * t1711 * t655 - 0.128e3 / 0.5e1 * t237 * t713 * t4498 * t227; t11756 = 0.32e2 / 0.3e1 * t201 * t6058 * t1671 * t655 - 0.32e2 / 0.9e1 * t201 * t1958 * t4418 * t227 - 0.192e3 * t237 * t6019 * t1707 * t655 + 0.512e3 / 0.5e1 * t237 * t2042 * t4486 * t227 - 0.96e2 / 0.5e1 * t237 * t713 * t4502 * t227 - 0.48e2 / 0.5e1 * t237 * t713 * t1711 * t702 - 0.8e1 / 0.3e1 * t201 * t1958 * t1703 * t655 + 0.32e2 / 0.27e2 * t201 * t654 * t4430 * t227 - 0.96e2 / 0.5e1 * t237 * t713 * t491 * t3302 + 0.192e3 / 0.5e1 * t237 * t2042 * t1707 * t702 + 0.16e2 / 0.9e1 * t201 * t654 * t487 * t3302 - 0.256e3 / 0.5e1 * t237 * t713 * t1282 * t1273 + 0.16e2 / 0.9e1 * t201 * t654 * t4478 * t227 + 0.8e1 / 0.9e1 * t201 * t654 * t1703 * t702 - 0.8e1 / 0.3e1 * t201 * t1958 * t1671 * t702; t11760 = t9303 * t11545; t11770 = t737 * t1792 * t63; t11780 = t2257 * t1702 * t655; t11784 = t2257 * t1670 * t702; t11792 = t23 * t505 * t3302; t11799 = t1291 * t712 * t4477 * t227; t11803 = t1291 * t4546 * t702; t11808 = -0.3e1 * t6198 * t1717 - 0.16e2 * t9581 * t11760 + 0.4e1 / 0.3e1 * t4564 * t753 - 0.2e1 / 0.3e1 * t2319 * t1727 + 0.2e1 * t6699 * t1717 - 0.3e1 * t11770 * t741 + 0.4e1 / 0.9e1 * t2327 * t1727 + 0.4e1 / 0.9e1 * t745 * t4560 - 0.2e1 / 0.3e1 * t4564 * t757 - 0.90e2 * t3409 * t11780 - 0.90e2 * t3409 * t11784 - 0.8e1 / 0.27e2 * t2341 * t1727 + 0.16e2 / 0.27e2 * t2341 * t1723 + 0.8e1 / 0.3e1 * t254 * t11792 - 0.6e1 * t2323 * t4548 - 0.6e1 * t739 * t11799 - 0.3e1 * t739 * t11803 - 0.8e1 * t749 * t4539; t11816 = t23 * t1736 * t702; t11822 = t23 * t4596 * t227; t11826 = t23 * t1741 * t702; t11832 = t23 * t4546 * t655; t11838 = t1291 * t4628 * t655; t11842 = t23 * t4514 * t655; t11850 = t6510 * t1670 * t655; t11859 = 0.16e2 / 0.3e1 * t749 * t4543 + 0.8e1 / 0.3e1 * t745 * t4539 - 0.16e2 / 0.9e1 * t745 * t4543 - 0.4e1 * t254 * t11816 + 0.8e1 / 0.3e1 * t749 * t4556 + 0.8e1 / 0.3e1 * t254 * t11822 + 0.4e1 / 0.3e1 * t254 * t11826 - 0.8e1 / 0.9e1 * t745 * t4556 - 0.4e1 * t254 * t11832 + 0.2e1 * t2347 * t4548 + 0.18e2 * t739 * t11838 + 0.16e2 * t254 * t11842 - 0.8e1 * t1310 * t3456 + 0.60e2 * t9687 * t4508 + 0.1080e4 * t3409 * t11850 + 0.8e1 / 0.3e1 * t1310 * t3498 + 0.16e2 / 0.3e1 * t3709 * t1302 - 0.16e2 / 0.9e1 * t3727 * t1302; t11866 = t1291 * t4634 * t655; t11874 = t3459 * t11545; t11877 = t2174 * t529; t11886 = t252 * t4567 * M_PI; t11890 = t22 * t654 * t11560; t11913 = t3483 * t1670; t11945 = t252 * t4625 * M_PI; t11948 = -0.288e3 * t4633 * t1322 * t9028 + 0.288e3 * t4633 * t4514 * t6418 + 0.135e3 / 0.16e2 * t3439 * t11784 - 0.54e2 * t1319 * t4628 * t3422 + 0.720e3 * t4633 * t4634 * t6406 - 0.4320e4 * t4633 * t11913 * t6388 + 0.36e2 * t3431 * t4789 - 0.108e3 * t1319 * t4514 * t2085 * t2087 - 0.72e2 * t3431 * t4645 - 0.864e3 * t4633 * t4514 * t6481 * t2087 - t3549 * t1306 / 0.12e2 + t2220 * t1723 / 0.12e2 - t2220 * t1727 / 0.24e2 - 0.2e1 * t3558 * t1738 + 0.18e2 * t504 * t68 * t712 * t11560 * t273 + 0.2e1 / 0.3e1 * t3558 * t1743 - t11945 * t256 / 0.24e2; t11973 = t2174 * t525; t11981 = t4663 * t655; t11993 = -t4613 * t753 / 0.8e1 - t811 * t4560 / 0.24e2 - 0.3e1 / 0.16e2 * t6453 * t1717 - t9167 * t497 / 0.12e2 - t2072 * t1723 / 0.18e2 - 0.2e1 * t1329 * t4598 - 0.144e3 * t3444 * t9292 * t3506 + 0.72e2 * t3444 * t2042 * t1670 * t2251 - 0.36e2 * t3444 * t3445 * t3517 + 0.135e3 / 0.8e1 * t8971 * t4508 + 0.135e3 / 0.8e1 * t11973 * t3411 - t48 * t32 * t4780 / 0.12e2 + 0.6e1 * t1329 * t4665 - 0.36e2 * t504 * t3459 * t11981 + 0.2e1 * t1329 * t4670 - 0.3e1 / 0.2e1 * t279 * t11842 + 0.3e1 / 0.8e1 * t279 * t11832 + 0.3e1 / 0.4e1 * t1359 * t3456; t11997 = t1702 * t2085; t12003 = t4673 * t4674 * t6328; t12004 = t21 * t655; t12019 = t1321 * t4477; t12023 = t4673 * rho[0]; t12025 = t797 * t18; t12026 = t12025 * t20; t12027 = t5 * t227; t12028 = t12027 * t1273; t12032 = t9270 * t1670; t12036 = t12027 * t801; t12063 = -0.3e1 / 0.8e1 * t9181 * t1294 - 0.6e1 * t504 * t1342 * t11997 * t2087 + 0.2592e4 * t12003 * t4677 * t12004 - 0.108e3 * t1319 * t1322 * t9123 - 0.36e2 * t3431 * t4629 + 0.432e3 * t1319 * t4634 * t3422 + 0.54e2 * t1319 * t4514 * t6413 - 0.108e3 * t1319 * t12019 * t1323 - 0.864e3 * t12023 * t9271 * t12026 * t12028 + 0.864e3 * t12023 * t12032 * t2085 * t18 * t20 * t12036 - 0.18e2 * t3444 * t713 * t1702 * t2251 + 0.3e1 / 0.2e1 * t9302 * t11760 - 0.27e2 / 0.4e1 * t9310 * t11874 + 0.216e3 * t1319 * t1322 * t3517 + 0.2880e4 * t4633 * t3434 * t2250 * t1273 - 0.2880e4 * t4633 * t4634 * t6393 * t801 + 0.1152e4 * t4633 * t1322 * t9071 * t801; t12080 = t2257 * t11545; t12092 = t2178 * t1702; t12144 = t712 * t25; t12156 = t4477 * t860; t12165 = t4755 * t1291; t12168 = 0.28424460675137352823e4 * t4759 * t4769 * t1670 * t6676 * t857 - 0.16755160819145563939e2 * t1382 * t3612 * t4751 + 0.15079644737231007545e3 * t3631 * t4718 - 0.10053096491487338363e3 * t3631 * t4727 + 0.50265482457436691816e2 * t3631 * t4732 + 0.75398223686155037724e2 * t1382 * t3653 * t4716 * t702 - 0.67020643276582255755e2 * t1382 * t3658 * t4726 + 0.33510321638291127878e2 * t1382 * t3658 * t4731 - 0.50265482457436691816e2 * t1382 * t1383 * t4774 * t857 + 0.75398223686155037724e2 * t1382 * t3653 * t4737 * t655 - 0.33510321638291127878e2 * t1382 * t3658 * t4738 - 0.30159289474462015090e3 * t1382 * t9538 * t4716 * t655 + 0.10053096491487338363e3 * t1382 * t9543 * t4717 - 0.25266187266788758066e4 * t4759 * t12144 * t4775 + 0.94748202250457842744e3 * t4759 * t4769 * t1398 * t3302 - 0.94748202250457842744e3 * t4759 * t4769 * t4774 * t854 - 0.25132741228718345908e2 * t1382 * t1397 * t12156 * t302 - 0.12566370614359172954e2 * t1382 * t1397 * t4750 * t854 - 0.37899280900183137098e4 * t12165 * t4762; t12176 = t2178 * t31; t12239 = 0.18949640450091568549e4 * t12165 * t4771 + 0.25132741228718345908e2 * t1382 * t1397 * t1702 * t2160 * t857 + 0.94748202250457842745e4 * t4759 * t12176 * t4730 * t655 - 0.50532374533577516130e4 * t4759 * t1321 * t25 * t4761 - 0.50265482457436691816e2 * t1382 * t1383 * t1384 * t3302 + 0.25132741228718345908e2 * t1382 * t1383 * t4730 * t854 - 0.50265482457436691816e2 * t3631 * t4739 - 0.25132741228718345908e2 * t3631 * t4752 - 0.50265482457436691816e2 * t1382 * t1383 * t4477 * t304 * t227 - 0.25132741228718345908e2 * t1382 * t1383 * t4737 * t702 - 0.18949640450091568549e4 * t12165 * t4776 - 0.18949640450091568549e4 * t4759 * t4760 * t4730 * t702 + 0.25266187266788758066e4 * t4759 * t12144 * t4770 - 0.5e1 / 0.216e3 * t512 * t1762 * t3584 + t512 * t4683 * t1369 / 0.36e2 - t512 * t6 * t11654 * t514 / 0.48e2 + 0.10053096491487338363e3 * t1382 * t3662 * t3617 + 0.50265482457436691816e2 * t1382 * t1383 * t1702 * t3664 + 0.30159289474462015090e3 * t1382 * t9409 * t3639 - 0.15079644737231007545e3 * t1382 * t3653 * t1670 * t3664; t12251 = t4702 * t239; t12257 = t4702 * t70; t12298 = -0.75798561800366274196e4 * t4759 * t4760 * t486 * t3663 * t1273 + 0.75798561800366274196e4 * t4759 * t4760 * t1670 * t9436 * t302 - 0.25132741228718345908e2 * t12251 * t3639 + 0.12566370614359172954e2 * t1769 * t239 * t3664 - 0.12566370614359172954e2 * t12257 * t3617 + 0.25132741228718345908e2 * t1379 * t4747 - 0.25132741228718345908e2 * t3599 * t1774 - t512 * t4683 * t1374 / 0.24e2 + t512 * t1762 * t3589 / 0.36e2 - t512 * t1762 * t3594 / 0.48e2 + t512 * t1762 * t3627 / 0.48e2 + 0.47374101125228921372e3 * t840 * t62 * t236 * t1784 + 0.16755160819145563939e2 * t519 * t202 * t11552 * t304 + 0.12566370614359172954e2 * t519 * t202 * t11655 * t304 + 0.12566370614359172954e2 * t3599 * t1778 - 0.20000000000000000000e1 * t4696 * t9441 - 0.10000000000000000000e1 * t1766 * t9431 + 0.20000000000000000000e1 * t4693 * t9516 - 0.33510321638291127878e2 * t1379 * t4722; t12332 = t712 * t304; t12362 = 0.55850536063818546463e1 * t519 * t654 * t11659 * t304 - 0.50265482457436691816e2 * t519 * t654 * t11663 * t304 + 0.16755160819145563939e2 * t1379 * t4743 - 0.27925268031909273231e1 * t519 * t202 * t11679 * t304 + 0.21055156055657298388e3 * t1782 * t713 * t11556 * t860 + 0.94748202250457842744e3 * t1782 * t713 * t11561 * t860 + 0.12633093633394379033e4 * t4756 * t4766 - 0.37899280900183137098e4 * t4759 * t4769 * t486 * t9504 * t302 + 0.62831853071795864770e1 * t1769 * t70 * t2160 * t857 + 0.18849555921538759431e2 * t1769 * t12332 * t655 - 0.62831853071795864770e1 * t1769 * t4706 * t702 - M_PI * t1769 * t4710 * t854 + 0.40000000000000000000e1 * t4696 * t3664 + 0.62831853071795864770e1 * t4702 * t1770 * t3302 - 0.80000000000000000000e1 * t505 * t3639 - 0.40000000000000000000e1 * t4693 * t3617 + 0.60000000000000000000e1 * t1736 * t304 * t655 + 0.20000000000000000000e1 * t1766 * t6666 + 0.62831853071795864770e1 * t2 * t11560 * t1770 + 0.20000000000000000000e1 * t11560 * t70 * t304; t12369 = t252 * t4781 * M_PI; t12373 = t737 * t1788 * t63; t12379 = t22 * t202 * t11654; t12382 = -0.288e3 * t1749 * t1731 * t11560 * t797 - 0.3240e4 * t1319 * t11913 * t3435 + 0.288e3 * t3431 * t4792 - 0.108e3 * t1730 * t1731 * t11560 * t273 + 0.1728e4 * t1319 * t3434 * t3506 + 0.135e3 / 0.4e1 * t3439 * t12080 + 0.108e3 * t1319 * t4628 * t2251 - 0.864e3 * t1319 * t4634 * t2251 + 0.12e2 * t1316 * t290 * t1733 + 0.432e3 * t1319 * t12092 * t3435 + 0.135e3 / 0.16e2 * t3439 * t11780 - 0.405e3 / 0.4e1 * t3439 * t11850 - 0.45e2 / 0.8e1 * t9014 * t4508 + t48 * t49 * (t12168 + t12239 + t12298 + t12362) / 0.8e1 + t12369 * t256 / 0.8e1 + 0.9e1 / 0.32e2 * t12373 * t741 + t815 * t4560 / 0.8e1 + t279 * t12379 / 0.16e2; t12405 = t6328 * t1670 * t655 * t23; t12416 = t21 * t702; t12421 = t68 * t655; t12435 = t9262 * t497 / 0.8e1 + t4613 * t757 / 0.16e2 - 0.135e3 * t3485 * t11981 * t23 + t3549 * t1302 / 0.6e1 - 0.90e2 * t9224 * t4577 + 0.2025e4 * t9228 * t4575 * t12004 + 0.180e3 * t504 * t9141 * t1732 * t655 + 0.945e3 / 0.32e2 * t6326 * t12405 + t811 * t4556 / 0.12e2 - 0.3e1 / 0.16e2 * t2093 * t4548 - t279 * t11826 / 0.8e1 - 0.27e2 / 0.16e2 * t807 * t11838 - 0.135e3 * t3485 * t4575 * t12416 - 0.2835e4 / 0.2e1 * t9118 * t1732 * t1 * t12421 + 0.9e1 / 0.32e2 * t807 * t11803 + 0.9e1 * t504 * t1331 * t4663 * t702 + 0.3e1 * t504 * t1342 * t4668 * t2205; t12442 = t1747 * t2173 * rho[0] * t9113 * t9116; t12468 = t1291 * t4514 * t702; t12472 = t1291 * t1292 * t3302; t12475 = t1670 * t2085; t12492 = -0.216e3 * t4676 * t4677 * t12416 - 0.1620e4 * t12442 * t1750 * t1 * t12421 - 0.3e1 / 0.8e1 * t2093 * t4520 - t279 * t11792 / 0.4e1 + 0.12e2 * t1329 * t4585 - 0.6e1 * t1329 * t4589 - 0.36e2 * t504 * t3459 * t1732 * t702 + 0.18e2 * t504 * t1331 * t1332 * t3302 - 0.9e1 * t504 * t1331 * t1750 * t2205 - 0.27e2 / 0.16e2 * t807 * t12468 + 0.9e1 / 0.16e2 * t807 * t12472 + 0.18e2 * t504 * t1331 * t12475 * t2087 - 0.24e2 * t1329 * t4581 + 0.9e1 / 0.8e1 * t9173 * t1294 - t1359 * t3494 / 0.2e1 + 0.9e1 / 0.8e1 * t3568 * t3472 + 0.3e1 / 0.4e1 * t815 * t4539 - t815 * t4543 / 0.2e1; t12502 = t4477 * t273; t12525 = t236 * t713 * t11560; t12538 = -t3562 * t1302 / 0.2e1 - 0.27e2 / 0.8e1 * t2216 * t4516 + 0.9e1 / 0.8e1 * t2216 * t4520 + 0.9e1 / 0.16e2 * t2216 * t4548 + 0.18e2 * t504 * t1331 * t12502 * t227 + 0.6e1 * t504 * t1342 * t4477 * t797 * t801 - t1359 * t3498 / 0.4e1 - t279 * t11822 / 0.4e1 + 0.9e1 / 0.16e2 * t807 * t11799 + t3562 * t1306 / 0.4e1 + t1359 * t3544 / 0.8e1 + 0.9e1 / 0.32e2 * t6286 * t1717 + 0.9e1 / 0.16e2 * t807 * t12525 + t9163 * t497 / 0.18e2 - 0.432e3 * t4673 * t12032 * t12025 * t4576 + t6370 * t1717 / 0.8e1 - t279 * t11890 / 0.4e1; t12584 = t2072 * t1727 / 0.36e2 - t2226 * t1723 / 0.8e1 + t2226 * t1727 / 0.16e2 - 0.3e1 * t504 * t68 * t239 * t11654 * t273 + t48 * t213 * t1787 / 0.18e2 - 0.27e2 / 0.8e1 * t3568 * t3452 + 0.9e1 / 0.16e2 * t3568 * t3476 - t811 * t4539 / 0.4e1 + t811 * t4543 / 0.6e1 + 0.9e1 / 0.8e1 * t2093 * t4516 + 0.3e1 / 0.8e1 * t279 * t11816 + 0.81e2 / 0.8e1 * t807 * t11866 - t815 * t4556 / 0.4e1 + 0.1440e4 * t4784 * t4635 - 0.576e3 * t4784 * t4638 + 0.576e3 * t4784 * t4642 - 0.540e3 * t9272 * t273 * t18 * t20 * t12028 + 0.270e3 * t9269 * t12032 * t12026 * t12036; t12596 = t252 * t4798 * M_PI; t12599 = 0.4e1 * t9719 * t1294 + 0.36e2 * t3721 * t3452 - 0.108e3 * t739 * t11866 + 0.16e2 / 0.3e1 * t1310 * t3494 + 0.8e1 / 0.9e1 * t48 * t32 * t4797 + 0.72e2 * t9586 * t11874 - 0.180e3 * t11877 * t3411 - 0.180e3 * t9681 * t4508 - 0.16e2 / 0.27e2 * t48 * t213 * t1791 + 0.4e1 / 0.9e1 * t11886 * t256 + 0.8e1 / 0.3e1 * t254 * t11890 + 0.4e1 / 0.3e1 * t2319 * t1723 + 0.8e1 / 0.9e1 * t9715 * t497 - 0.4e1 / 0.3e1 * t9695 * t497 - 0.4e1 / 0.3e1 * t48 * t49 * (t11948 + t11993 + t12063 + t12382 + t12435 + t12492 + t12538 + t12584) + 0.8e1 / 0.9e1 * t3727 * t1306 - 0.8e1 / 0.3e1 * t3709 * t1306 - 0.4e1 / 0.3e1 * t12596 * t256; t12636 = -0.4e1 / 0.3e1 * t749 * t4560 - 0.4e1 / 0.3e1 * t6208 * t1717 - 0.2e1 / 0.3e1 * t254 * t12379 - 0.6e1 * t739 * t12525 - 0.4e1 / 0.3e1 * t1310 * t3544 - 0.8e1 / 0.9e1 * t2327 * t1723 - 0.16e2 / 0.27e2 * t9727 * t497 - 0.12e2 * t9646 * t1294 + 0.36e2 * t2323 * t4516 - 0.12e2 * t2323 * t4520 - 0.315e3 * t6712 * t12405 - 0.12e2 * t2347 * t4516 + 0.4e1 * t2347 * t4520 - 0.12e2 * t3721 * t3472 - 0.6e1 * t3721 * t3476 + 0.18e2 * t739 * t12468 - 0.6e1 * t739 * t12472 - 0.360e3 * t3409 * t12080; t12639 = my_piecewise3(t52, t11695 + t11756, t11808 + t11859 + t12599 + t12636); t12651 = -0.3e1 / 0.8e1 * t7 * t17 * t871 * t1702 - t184 * t4407 * t631 - t184 * t11512 * t191 - t618 * t1224 * t3342 / 0.3e1 - 0.2e1 / 0.3e1 * t11519 - 0.2e1 * t184 * t1224 * t3311 - t184 * t1224 * t3314 - 0.2e1 * t184 * t3752 * t1421 + t11531 - t11533 / 0.2e1 - 0.3e1 / 0.4e1 * t7 * t17 * t3736 * t486 - t11540 / 0.2e1 - t11543 / 0.4e1 - 0.3e1 / 0.8e1 * t7 * t17 * t12639 * t42 - t184 * t185 * t1702 * t637 / 0.2e1 - t184 * t185 * t4477 * t190; t12657 = t196 * t1796; t12659 = t184 * t12657 * t191; t12669 = t184 * t624 * t4825; t12672 = t7 * t197 * t4808; t12679 = t7 * t197 * t4832; t12683 = t7 * t644 * t1801 / 0.6e1; t12693 = t7 * t197 * t4804; t12697 = t7 * t644 * t1805 / 0.12e2; t12710 = -t184 * t628 * t4825 - t618 * t4407 * t620 / 0.6e1 - t12659 / 0.3e1 - t184 * t4407 * t638 / 0.2e1 - t618 * t185 * t1702 * t619 / 0.6e1 - t12669 / 0.3e1 - t12672 / 0.4e1 - 0.3e1 / 0.8e1 * t7 * t17 * t1796 * t702 - t12679 / 0.4e1 + t12683 - 0.3e1 / 0.4e1 * t7 * t17 * t4803 * t227 - 0.3e1 / 0.8e1 * t7 * t17 * t104 * t11654 - t12693 / 0.4e1 + t12697 - 0.3e1 / 0.4e1 * t7 * t17 * t315 * t4477 - 0.3e1 / 0.2e1 * t7 * t17 * t1412 * t1273 - 0.3e1 / 0.4e1 * t7 * t17 * t533 * t3302; t12718 = t4830 / 0.4e1; t12720 = t4815 / 0.2e1; t12721 = t4412 / 0.4e1; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[0] = t9 * (t12651 + t12710) - 0.3e1 / 0.4e1 * t4838 - 0.3e1 / 0.2e1 * t4823 - 0.3e1 / 0.4e1 * t4834 - 0.3e1 / 0.4e1 * t4810 - 0.3e1 / 0.2e1 * t4819 - t4827 - t12718 - 0.2e1 * t4813 - t12720 - t4409 - t12721 - 0.3e1 / 0.4e1 * t4806; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[1] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[2] = 0.0e0; 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; t12723 = t4847 / 0.4e1; t12725 = t4852 / 0.2e1; t12726 = t4859 / 0.4e1; t12730 = t196 * t1934; t12732 = t325 * t12730 * t328; t12739 = t7 * t902 * t1935 / 0.12e2; t12744 = t325 * t3770 * t1447; t12750 = t7 * t902 * t1939 / 0.6e1; t12756 = t325 * t893 * t4854; t12764 = t7 * t902 * t1943 / 0.12e2; t12765 = -t887 * t4842 * t889 / 0.6e1 - t12732 / 0.3e1 - t325 * t4842 * t898 / 0.2e1 + t12739 - t887 * t1440 * t3780 / 0.3e1 - 0.2e1 / 0.3e1 * t12744 - t325 * t1440 * t3787 + t12750 - t887 * t326 * t1842 * t888 / 0.6e1 - t12756 / 0.3e1 - t325 * t326 * t1842 * t897 / 0.2e1 + t12764; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[5] = t12765 * t9 - t12723 - t12725 - t12726 - t4844 - 0.2e1 * t4850 - t4856; t12778 = t184 * t3758 * t1459; t12788 = t184 * t624 * t4868; t12802 = -t184 * t185 * t4477 * t339 / 0.2e1 - t184 * t923 * t1796 * t925 / 0.2e1 - t184 * t3808 * t3829 - t12778 / 0.3e1 - t184 * t4407 * t918 / 0.2e1 - t184 * t924 * t1702 * t8 / 0.2e1 - t12788 / 0.6e1 - t618 * t4407 * t908 / 0.6e1 - t618 * t185 * t4868 * t190 / 0.6e1 - t618 * t1224 * t3815 / 0.3e1 - t11519 / 0.3e1 + t11531 - t11533 / 0.4e1; t12810 = t184 * t12657 * t340; t12823 = -t11540 / 0.4e1 - t11543 / 0.8e1 - t12659 / 0.6e1 - t12669 / 0.6e1 - t12672 / 0.8e1 - t12679 / 0.8e1 + t12683 - t12810 / 0.6e1 - t184 * t628 * t4868 / 0.2e1 - t184 * t3752 * t1459 - t184 * t11512 * t340 / 0.2e1 - t184 * t1224 * t3825 - t12693 / 0.8e1 + t12697; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[6] = -t4410 - t12721 - t4807 - t4811 - t4813 - t12720 - t4820 - t4824 - t4828 - t12718 - t4835 - t4839 - t4865 - t4867 - t4871 + t9 * (t12802 + t12823); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[7] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[8] = 0.0e0; 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; t12840 = t7 * t332 * t5271; t12843 = t7 * t332 * t5277; t12850 = t325 * t3770 * t1656; t12853 = t325 * t893 * t5285; t12856 = t325 * t12730 * t345; t12860 = -t12756 / 0.6e1 - t887 * t1440 * t3862 / 0.3e1 - t887 * t326 * t5285 * t327 / 0.6e1 - t887 * t4842 * t932 / 0.6e1 - t12732 / 0.6e1 - t12744 / 0.3e1 - t12840 / 0.8e1 - t12843 / 0.4e1 + t325 * t923 * t1934 * t940 / 0.2e1 - t12850 / 0.3e1 - t12853 / 0.6e1 - t12856 / 0.6e1 - t325 * t1440 * t3880; t12872 = t16 * t5266; t12884 = t7 * t332 * t5281; t12887 = t7 * t332 * t5289; t12890 = t7 * t332 * t5293; t12893 = t7 * t332 * t5267; t12895 = t325 * t939 * t1842 * t8 / 0.2e1 - t325 * t945 * t4854 / 0.2e1 - t325 * t326 * t4940 * t327 / 0.2e1 - t325 * t12872 * t328 / 0.2e1 - t325 * t4842 * t952 / 0.2e1 + t325 * t3844 * t3869 - t325 * t3849 * t1447 + t12739 + t12750 + t12764 - t12884 / 0.4e1 - t12887 / 0.8e1 - t12890 / 0.8e1 - t12893 / 0.8e1; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[11] = -t4845 - t12723 - t4850 - t12725 - t4857 - t12726 - t4876 - t5270 - t5274 - t5276 - t5280 - t5284 - t5288 - t5292 - t5296 + t9 * (t12860 + t12895); t12921 = -t618 * t4407 * t964 / 0.6e1 - t12810 / 0.3e1 - t184 * t4407 * t970 / 0.2e1 + t11531 - t618 * t1224 * t3896 / 0.3e1 - 0.2e1 / 0.3e1 * t12778 - t184 * t1224 * t3901 + t12683 - t618 * t185 * t1702 * t963 / 0.6e1 - t12788 / 0.3e1 - t184 * t185 * t1702 * t969 / 0.2e1 + t12697; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[12] = t12921 * t9 - t12718 - t12720 - t12721 - t4864 - 0.2e1 * t4867 - t4870; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[13] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[14] = 0.0e0; 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; t12960 = t10597 * t1510; t12999 = 0.16e2 / 0.9e1 * t201 * t992 * t558 * t3994 - 0.8e1 / 0.3e1 * t201 * t2754 * t1843 * t993 + 0.32e2 / 0.27e2 * t201 * t992 * t4893 * t374 + 0.192e3 / 0.5e1 * t237 * t2838 * t1851 * t993 - 0.128e3 / 0.5e1 * t237 * t1051 * t4961 * t374 + 0.768e3 / 0.5e1 * t8948 * t5231 * t12960 - 0.32e2 / 0.3e1 * t8942 * t4199 * t12960 - 0.96e2 / 0.5e1 * t237 * t1051 * t562 * t3994 - 0.96e2 / 0.5e1 * t237 * t1051 * t4965 * t374 - 0.48e2 / 0.5e1 * t237 * t1051 * t1851 * t1040 + 0.16e2 / 0.9e1 * t201 * t992 * t4941 * t374 + 0.8e1 / 0.9e1 * t201 * t992 * t1843 * t1040 + 0.64e2 / 0.27e2 * t201 * t992 * t1472 * t1510 - 0.8e1 / 0.3e1 * t201 * t2754 * t1811 * t1040 - 0.192e3 * t237 * t7962 * t1847 * t993; t13067 = 0.99555555555555555552e-2 * t23 * t3943 * t1505 - 0.18666666666666666666e-2 * t23 * t1480 * t3989 + 0.49777777777777777778e-2 * t23 * t353 * t4936 - 0.93333333333333333332e-3 * t23 * t118 * t358 * (-0.19600000000000000000e-1 * t1824 * t1020 * t123 + 0.19600000000000000000e-1 * t1828 * t1004 * t366 - 0.27720000000000000000e0 * t3981 + 0.39480000000000000000e0 * t3986 * sigma[2] - 0.16800000000000000000e0 / t115 / t7910 * t7922 * t1026) - 0.18251851851851851851e-1 * t23 * t10474 * t552 - 0.19911111111111111110e-1 * t23 * t3957 + 0.74666666666666666664e-2 * t23 * t3969 + 0.37333333333333333332e-2 * t23 * t3973 - 0.91259259259259259260e-2 * t23 * t1005 * t1838 - 0.99555555555555555554e-2 * t1488 * t3956 * t4919 + 0.37333333333333333332e-2 * t1488 * t1489 * t4935 * t369; t13087 = t1505 * t1505; t13108 = 0.18666666666666666666e-2 * t1488 * t1489 * t1837 * t1035 - 0.11200000000000000000e-1 * t23 * t3965 + 0.18251851851851851851e-1 * t23 * t1005 * t1819 + 0.29866666666666666666e-1 * t1488 * t10385 * t4908 - 0.19911111111111111110e-1 * t1488 * t3956 * t4912 - 0.55999999999999999998e-2 * t1488 * t3963 * t1818 * t1035 + 0.37333333333333333332e-2 * t23 * t118 * t1013 * t13087 + 0.37333333333333333332e-2 * t1488 * t1489 * t552 * t3989 - 0.55999999999999999998e-2 * t1488 * t3963 * t1837 * t1014 + 0.22399999999999999999e-1 * t1488 * t10389 * t1818 * t1014 - 0.22400000000000000000e-1 * t1488 * t3963 * t1490 * t1505; t13109 = t13067 + t13108; t13118 = t115 * t13109; t13122 = t138 * t4940; t13126 = t154 * t1810; t13130 = t1510 * t1510; t13131 = t120 * t13130; t13139 = t121 * t1842; t13143 = t121 * t1810; t13147 = t115 * t13130; t13151 = 0.512e3 / 0.5e1 * t237 * t2838 * t4949 * t374 + 0.32e2 / 0.3e1 * t201 * t7998 * t1811 * t993 - 0.32e2 / 0.9e1 * t201 * t2754 * t4881 * t374 + 0.192e3 / 0.5e1 * t237 * t2838 * t1847 * t1040 - 0.256e3 / 0.5e1 * t237 * t1051 * t1519 * t1510 + 0.16e2 / 0.5e1 * t237 * t385 * t120 * t13109 + 0.128e3 / 0.15e2 * t237 * t385 * t114 * t4940 - 0.4e1 / 0.9e1 * t201 * t349 * t13118 - 0.16e2 / 0.27e2 * t201 * t349 * t13122 - 0.64e2 / 0.15e2 * t237 * t1051 * t13126 - 0.96e2 / 0.5e1 * t237 * t1051 * t13131 + 0.64e2 / 0.45e2 * t237 * t385 * t154 * t1842 + 0.8e1 / 0.81e2 * t201 * t349 * t13139 - 0.16e2 / 0.81e2 * t201 * t992 * t13143 + 0.16e2 / 0.9e1 * t201 * t992 * t13147; t13154 = t2926 * t1842 * t993; t13167 = t23 * t1876 * t1040; t13171 = t23 * t575 * t3994; t13178 = t1291 * t1050 * t4940 * t374; t13182 = t1291 * t5009 * t1040; t13200 = t23 * t5114 * t374; t13203 = -0.90e2 * t4028 * t13154 - 0.16e2 / 0.27e2 * t137 * t360 * t1929 + 0.4e1 / 0.3e1 * t3116 * t1863 + 0.4e1 / 0.3e1 * t5027 * t1090 + 0.16e2 / 0.3e1 * t1086 * t5006 - 0.4e1 * t399 * t13167 + 0.8e1 / 0.3e1 * t399 * t13171 - 0.6e1 * t3120 * t5011 - 0.6e1 * t1076 * t13178 - 0.3e1 * t1076 * t13182 + 0.16e2 / 0.3e1 * t1546 * t4041 + 0.8e1 / 0.3e1 * t1546 * t4069 + 0.16e2 / 0.3e1 * t4085 * t1538 - 0.16e2 / 0.9e1 * t1082 * t5006 - 0.8e1 * t1086 * t5002 + 0.8e1 / 0.3e1 * t1082 * t5002 + 0.8e1 / 0.3e1 * t1086 * t5019 + 0.8e1 / 0.3e1 * t399 * t13200; t13205 = t23 * t1881 * t1040; t13211 = t1291 * t5099 * t993; t13216 = t2926 * t12960; t13222 = t1074 * t1930 * t63; t13226 = t397 * t5030 * M_PI; t13233 = t10611 * t12960; t13237 = t1291 * t1528 * t3994; t13249 = t1291 * t4977 * t1040; t13253 = t23 * t5009 * t993; t13256 = 0.4e1 / 0.3e1 * t399 * t13205 - 0.8e1 / 0.9e1 * t1082 * t5019 - 0.108e3 * t1076 * t13211 + 0.4e1 * t11347 * t1530 - 0.360e3 * t4028 * t13216 - 0.2e1 / 0.3e1 * t5027 * t1094 - 0.3e1 * t13222 * t1078 + 0.4e1 / 0.9e1 * t13226 * t401 - 0.8e1 / 0.27e2 * t3142 * t1867 + 0.16e2 / 0.27e2 * t3142 * t1863 - 0.16e2 * t10610 * t13233 - 0.6e1 * t1076 * t13237 - 0.12e2 * t11275 * t1530 - 0.12e2 * t4093 * t4048 - 0.6e1 * t4093 * t4052 - 0.12e2 * t3120 * t4983 + 0.18e2 * t1076 * t13249 - 0.4e1 * t399 * t13253; t13261 = t1291 * t5093 * t993; t13287 = t2926 * t1810 * t1040; t13290 = t1556 * t4940; t13305 = t236 * t1051 * t13130; t13311 = t4285 * t1810; t13315 = t21 * t1040; t13320 = t68 * t993; t13324 = -0.108e3 * t1870 * t1871 * t13130 * t418 + 0.12e2 * t1552 * t435 * t1873 + 0.36e2 * t4112 * t5090 + 0.432e3 * t1554 * t5099 * t4107 - 0.288e3 * t5098 * t1557 * t11093 + 0.720e3 * t5098 * t5099 * t8259 + 0.135e3 / 0.16e2 * t4100 * t13287 - 0.108e3 * t1554 * t13290 * t1558 - 0.54e2 * t1554 * t5093 * t4107 + 0.288e3 * t5098 * t4977 * t8240 + 0.288e3 * t4112 * t5111 - 0.72e2 * t4112 * t5086 + 0.9e1 / 0.16e2 * t1143 * t13305 - 0.108e3 * t1554 * t4977 * t8217 - 0.3240e4 * t1554 * t13311 * t4116 - 0.135e3 * t4287 * t5044 * t13315 - 0.2835e4 / 0.2e1 * t10989 * t1872 * t1 * t13320; t13327 = t4940 * t418; t13394 = t5226 * t1291; t13404 = 0.60000000000000000000e1 * t1876 * t449 * t993 - 0.10000000000000000000e1 * t1904 * t10712 + 0.20000000000000000000e1 * t5164 * t10828 + 0.20000000000000000000e1 * t1904 * t8438 + 0.62831853071795864770e1 * t2 * t13130 * t1908 - 0.20000000000000000000e1 * t5167 * t10702 - t512 * t6 * t13109 * t583 / 0.48e2 + t512 * t5154 * t1604 / 0.36e2 - 0.5e1 / 0.216e3 * t512 * t1900 * t4146 + 0.50265482457436691816e2 * t1617 * t1618 * t1842 * t4210 + 0.30159289474462015090e3 * t1617 * t10701 * t4168 - 0.15079644737231007545e3 * t1617 * t4199 * t1810 * t4210 + 0.10053096491487338363e3 * t1617 * t4208 * t4186 - 0.75798561800366274196e4 * t5230 * t5231 * t557 * t4209 * t1510 + 0.75798561800366274196e4 * t5230 * t5231 * t1810 * t10771 * t447 - 0.37899280900183137098e4 * t5230 * t5240 * t557 * t10884 * t447 - 0.18949640450091568549e4 * t13394 * t5247 - 0.25132741228718345908e2 * t4164 * t5223 - 0.50265482457436691816e2 * t1617 * t1618 * t4940 * t449 * t374; t13436 = t1050 * t114; t13451 = t4940 * t1196; t13470 = -0.25132741228718345908e2 * t1617 * t1618 * t5208 * t1040 - 0.16755160819145563939e2 * t1617 * t4181 * t5222 - 0.67020643276582255755e2 * t1617 * t4204 * t5197 + 0.33510321638291127878e2 * t1617 * t4204 * t5202 - 0.50265482457436691816e2 * t1617 * t1618 * t1619 * t3994 + 0.25132741228718345908e2 * t1617 * t1618 * t5201 * t1190 - 0.50265482457436691816e2 * t4164 * t5210 + 0.15079644737231007545e3 * t4164 * t5189 - 0.10053096491487338363e3 * t4164 * t5198 - 0.18949640450091568549e4 * t5230 * t5231 * t5201 * t1040 + 0.25266187266788758066e4 * t5230 * t13436 * t5241 - 0.25266187266788758066e4 * t5230 * t13436 * t5246 + 0.94748202250457842744e3 * t5230 * t5240 * t1633 * t3994 - 0.94748202250457842744e3 * t5230 * t5240 * t5245 * t1190 - 0.25132741228718345908e2 * t1617 * t1632 * t13451 * t447 - 0.12566370614359172954e2 * t1617 * t1632 * t5221 * t1190 - 0.37899280900183137098e4 * t13394 * t5233 + 0.18949640450091568549e4 * t13394 * t5242 - t512 * t5154 * t1609 / 0.24e2 + t512 * t1900 * t4151 / 0.36e2; t13533 = -t512 * t1900 * t4156 / 0.48e2 + 0.55850536063818546463e1 * t588 * t992 * t13143 * t449 - 0.50265482457436691816e2 * t588 * t992 * t13147 * t449 + 0.16755160819145563939e2 * t1614 * t5214 + t512 * t1900 * t4191 / 0.48e2 - 0.33510321638291127878e2 * t1614 * t5193 + 0.47374101125228921372e3 * t1176 * t62 * t236 * t1922 + 0.12633093633394379033e4 * t5227 * t5237 - 0.27925268031909273231e1 * t588 * t349 * t13139 * t449 + 0.12566370614359172954e2 * t588 * t349 * t13118 * t449 + 0.12566370614359172954e2 * t4131 * t1916 + 0.25132741228718345908e2 * t1614 * t5218 - 0.25132741228718345908e2 * t4131 * t1912 + 0.21055156055657298388e3 * t1920 * t1051 * t13126 * t1196 + 0.94748202250457842744e3 * t1920 * t1051 * t13131 * t1196 + 0.16755160819145563939e2 * t588 * t349 * t13122 * t449 + 0.50265482457436691816e2 * t4164 * t5203 + 0.75398223686155037724e2 * t1617 * t4199 * t5187 * t1040 + 0.28424460675137352823e4 * t5230 * t5240 * t1810 * t8448 * t1193; t13555 = t2878 * t120; t13588 = t1050 * t449; t13592 = t5173 * t384; t13595 = t5173 * t147; t13601 = 0.62831853071795864770e1 * t1907 * t147 * t3036 * t1193 + 0.62831853071795864770e1 * t5173 * t1908 * t3994 - 0.80000000000000000000e1 * t575 * t4168 - 0.40000000000000000000e1 * t5164 * t4186 + 0.40000000000000000000e1 * t5167 * t4210 + 0.20000000000000000000e1 * t13130 * t147 * t449 + 0.25132741228718345908e2 * t1617 * t1632 * t1842 * t3036 * t1193 + 0.94748202250457842745e4 * t5230 * t13555 * t5201 * t993 - 0.50532374533577516130e4 * t5230 * t1556 * t114 * t5232 - 0.50265482457436691816e2 * t1617 * t1618 * t5245 * t1193 + 0.75398223686155037724e2 * t1617 * t4199 * t5208 * t993 - 0.33510321638291127878e2 * t1617 * t4204 * t5209 - 0.30159289474462015090e3 * t1617 * t10846 * t5187 * t993 + 0.10053096491487338363e3 * t1617 * t10851 * t5188 - 0.62831853071795864770e1 * t1907 * t5177 * t1040 - M_PI * t1907 * t5181 * t1190 + 0.18849555921538759431e2 * t1907 * t13588 * t993 - 0.25132741228718345908e2 * t13592 * t4168 - 0.12566370614359172954e2 * t13595 * t4186 + 0.12566370614359172954e2 * t1907 * t384 * t4210; t13609 = t5070 * t993; t13613 = t1842 * t3063; t13621 = t23 * t4977 * t993; t13638 = t1810 * t3063; t13643 = 0.2e1 * t1564 * t5077 + 0.18e2 * t574 * t1566 * t13327 * t374 + 0.9e1 * t574 * t1566 * t5070 * t1040 + 0.6e1 * t574 * t1577 * t4940 * t1133 * t1137 + t137 * t138 * (t13404 + t13470 + t13533 + t13601) / 0.8e1 + t1147 * t5006 / 0.6e1 - 0.36e2 * t574 * t4308 * t13609 - 0.6e1 * t574 * t1577 * t13613 * t3065 + 0.12e2 * t1564 * t5063 - 0.3e1 / 0.2e1 * t424 * t13621 - 0.24e2 * t1564 * t5059 + 0.3e1 / 0.4e1 * t1594 * t4058 + 0.9e1 / 0.8e1 * t3071 * t4979 + 0.81e2 / 0.8e1 * t1143 * t13211 - 0.3e1 / 0.8e1 * t3071 * t4983 + 0.3e1 / 0.8e1 * t424 * t13253 - 0.6e1 * t1564 * t5067 + 0.18e2 * t574 * t1566 * t13638 * t3065; t13645 = t1872 * t993; t13659 = t397 * t5252 * M_PI; t13683 = t1074 * t1926 * t63; t13688 = 0.180e3 * t574 * t10946 * t13645 + 0.18e2 * t574 * t68 * t1050 * t13130 * t418 + 0.2e1 / 0.3e1 * t4245 * t1883 - t3077 * t1863 / 0.18e2 + t13659 * t401 / 0.8e1 - t5136 * t1090 / 0.8e1 - 0.2e1 * t4245 * t1878 + t8502 * t1857 / 0.8e1 - t2919 * t1867 / 0.24e2 - t1147 * t5023 / 0.24e2 - t11209 * t568 / 0.12e2 + t2919 * t1863 / 0.12e2 - 0.2e1 * t1564 * t5116 - 0.3e1 / 0.16e2 * t8540 * t1857 - t4236 * t1542 / 0.12e2 + 0.9e1 / 0.32e2 * t13683 * t1078 + t4251 * t1542 / 0.4e1; t13691 = t8202 * t1810 * t993 * t23; t13698 = t5035 * t5036 * t8202; t13712 = t397 * t5255 * M_PI; t13715 = t10687 * t1810; t13721 = t2874 * t594; t13744 = 0.945e3 / 0.32e2 * t8200 * t13691 - 0.135e3 * t4287 * t13609 * t23 + 0.2592e4 * t13698 * t1888 * t993 * t23 - 0.90e2 * t11116 * t5045 + 0.2025e4 * t11120 * t13645 * t23 - t137 * t121 * t5251 / 0.12e2 - t13712 * t401 / 0.24e2 - 0.432e3 * t5035 * t13715 * t1133 * t18 * t5040 + 0.135e3 / 0.8e1 * t13721 * t4030 + 0.135e3 / 0.16e2 * t4100 * t13154 + 0.576e3 * t5147 * t5108 + 0.1440e4 * t5147 * t5100 - 0.576e3 * t5147 * t5104 - 0.288e3 * t1887 * t1871 * t13130 * t1133 + 0.9e1 / 0.8e1 * t11217 * t1530 - t424 * t13200 / 0.4e1 - t424 * t13205 / 0.8e1 - 0.27e2 / 0.16e2 * t1143 * t13261; t13785 = t1747 * t2873 * rho[1] * t9113 * t10987; t13790 = 0.9e1 / 0.16e2 * t2915 * t5011 + 0.9e1 / 0.16e2 * t1143 * t13178 + 0.9e1 / 0.32e2 * t1143 * t13182 - t4251 * t1538 / 0.2e1 - t1594 * t4041 / 0.2e1 - t1594 * t4069 / 0.4e1 - 0.27e2 / 0.8e1 * t4257 * t4064 + 0.6e1 * t1564 * t5072 + 0.9e1 / 0.8e1 * t4257 * t4048 + 0.9e1 / 0.16e2 * t4257 * t4052 - t1147 * t5002 / 0.4e1 + 0.3e1 / 0.4e1 * t1151 * t5002 + t4236 * t1538 / 0.6e1 - 0.3e1 / 0.8e1 * t11193 * t1530 + 0.3e1 * t574 * t1577 * t5075 * t2909 - 0.216e3 * t5038 * t5039 * t13315 - 0.1620e4 * t13785 * t1888 * t1 * t13320; t13826 = t8294 * t1810 * t993; t13834 = t2878 * t1842; t13838 = 0.3e1 / 0.8e1 * t424 * t13167 - 0.36e2 * t574 * t4308 * t1872 * t1040 + 0.18e2 * t574 * t1566 * t1567 * t3994 - 0.9e1 * t574 * t1566 * t1888 * t2909 + t1147 * t5019 / 0.12e2 - 0.3e1 / 0.16e2 * t3071 * t5011 - t1151 * t5019 / 0.4e1 + 0.9e1 / 0.8e1 * t2915 * t4983 + 0.9e1 / 0.16e2 * t1143 * t13237 - t1151 * t5006 / 0.2e1 - t424 * t13171 / 0.4e1 - 0.27e2 / 0.8e1 * t2915 * t4979 - 0.27e2 / 0.16e2 * t1143 * t13249 - 0.45e2 / 0.8e1 * t11167 * t4971 - 0.405e3 / 0.4e1 * t4100 * t13826 - 0.4320e4 * t5098 * t13311 * t8225 - 0.36e2 * t4112 * t5094 + 0.432e3 * t1554 * t13834 * t4116; t13885 = t22 * t992 * t13130; t13892 = -0.864e3 * t5098 * t4977 * t8510 * t3065 + 0.108e3 * t1554 * t5093 * t2979 + 0.135e3 / 0.4e1 * t4100 * t13216 + 0.1728e4 * t1554 * t4115 * t4321 - 0.864e3 * t1554 * t5099 * t2979 + 0.216e3 * t1554 * t1557 * t4330 + 0.1152e4 * t5098 * t1557 * t11056 * t1137 + 0.2880e4 * t5098 * t4115 * t2978 * t1510 - 0.2880e4 * t5098 * t5099 * t3063 * t374 * t1137 + t137 * t360 * t1925 / 0.18e2 - 0.108e3 * t1554 * t1557 * t11088 + 0.54e2 * t1554 * t4977 * t8235 + 0.135e3 / 0.8e1 * t11180 * t4971 + t11213 * t568 / 0.18e2 - t424 * t13885 / 0.4e1 + t3077 * t1867 / 0.36e2 + 0.9e1 / 0.32e2 * t8176 * t1857; t13905 = t22 * t349 * t13109; t13916 = t4308 * t12960; t13919 = t5035 * rho[1]; t13953 = t5136 * t1094 / 0.16e2 - 0.3e1 * t574 * t68 * t384 * t13109 * t418 + t1594 * t4097 / 0.8e1 - t2884 * t1863 / 0.8e1 + t424 * t13905 / 0.16e2 + t1151 * t5023 / 0.8e1 + t2884 * t1867 / 0.16e2 + t11201 * t568 / 0.8e1 + 0.3e1 / 0.2e1 * t11130 * t13233 - 0.27e2 / 0.4e1 * t11137 * t13916 - 0.864e3 * t13919 * t10688 * t4329 * t18 * t5040 + 0.864e3 * t13919 * t13715 * t5107 * t18 * t5040 - 0.540e3 * t10689 * t4320 * t18 * t5040 + 0.270e3 * t10686 * t13715 * t5089 * t18 * t5040 - 0.18e2 * t4275 * t1051 * t1842 * t2979 - 0.144e3 * t4275 * t10676 * t4321 + 0.72e2 * t4275 * t2838 * t1810 * t2979 - 0.36e2 * t4275 * t4276 * t4330; t13983 = t397 * t5261 * M_PI; t13988 = 0.2e1 * t3134 * t5011 + 0.18e2 * t1076 * t13261 - 0.16e2 / 0.9e1 * t4075 * t1538 - 0.16e2 / 0.27e2 * t11279 * t568 - 0.4e1 / 0.3e1 * t137 * t138 * (t13324 + t13643 + t13688 + t13744 + t13790 + t13838 + t13892 + t13953) + 0.36e2 * t3120 * t4979 - 0.12e2 * t3134 * t4979 + 0.4e1 * t3134 * t4983 - 0.315e3 * t8579 * t13691 + 0.16e2 * t399 * t13621 + 0.8e1 / 0.9e1 * t11361 * t568 - 0.8e1 / 0.9e1 * t3124 * t1863 - 0.180e3 * t11368 * t4971 - 0.90e2 * t4028 * t13287 + 0.8e1 / 0.9e1 * t4075 * t1542 - 0.8e1 / 0.3e1 * t4085 * t1542 - 0.4e1 / 0.3e1 * t13983 * t401 - 0.6e1 * t1076 * t13305; t13997 = t2874 * t598; t14027 = -0.4e1 / 0.3e1 * t1546 * t4097 - 0.4e1 / 0.3e1 * t1086 * t5023 - 0.2e1 / 0.3e1 * t399 * t13905 - 0.4e1 / 0.3e1 * t11283 * t568 - 0.180e3 * t13997 * t4030 + 0.36e2 * t4093 * t4064 - 0.8e1 * t1546 * t4058 + 0.8e1 / 0.9e1 * t137 * t121 * t5260 + 0.1080e4 * t4028 * t13826 + 0.60e2 * t11244 * t4971 - 0.3e1 * t8149 * t1857 + 0.2e1 * t8048 * t1857 - 0.2e1 / 0.3e1 * t3116 * t1867 - 0.4e1 / 0.3e1 * t8068 * t1857 + 0.4e1 / 0.9e1 * t3124 * t1867 + 0.4e1 / 0.9e1 * t1082 * t5023 + 0.8e1 / 0.3e1 * t399 * t13885 + 0.72e2 * t10618 * t13916; t14030 = my_piecewise3(t141, t12999 + t13151, t13203 + t13256 + t13988 + t14027); t14070 = -t325 * t326 * t4940 * t344 - t325 * t326 * t1842 * t985 / 0.2e1 - t325 * t945 * t5285 - t325 * t12872 * t345 - 0.3e1 / 0.8e1 * t7 * t112 * t14030 * t131 - 0.3e1 / 0.4e1 * t7 * t112 * t460 * t4940 - 0.3e1 / 0.8e1 * t7 * t112 * t176 * t13109 - 0.3e1 / 0.2e1 * t7 * t112 * t1647 * t1510 - 0.3e1 / 0.8e1 * t7 * t112 * t1207 * t1842 - 0.3e1 / 0.4e1 * t7 * t112 * t602 * t3994 - 0.3e1 / 0.4e1 * t7 * t112 * t4353 * t557 - 0.3e1 / 0.4e1 * t7 * t112 * t5266 * t374 - 0.3e1 / 0.8e1 * t7 * t112 * t1934 * t1040 - t12840 / 0.4e1 - t12843 / 0.2e1 - 0.2e1 / 0.3e1 * t12850; t14100 = -t12853 / 0.3e1 - t12856 / 0.3e1 - t325 * t4842 * t982 - t325 * t4842 * t986 / 0.2e1 - t887 * t326 * t1842 * t974 / 0.6e1 - t887 * t4842 * t975 / 0.6e1 - 0.2e1 * t325 * t1440 * t4397 - t325 * t1440 * t4400 - 0.2e1 * t325 * t3849 * t1656 - t887 * t1440 * t3911 / 0.3e1 + t12739 + t12750 + t12764 - t12884 / 0.2e1 - t12887 / 0.4e1 - t12890 / 0.4e1 - t12893 / 0.4e1; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rho2sigma2[17] = -t5287 - 0.2e1 * t5276 - t4875 - 0.3e1 / 0.4e1 * t5295 - 0.3e1 / 0.2e1 * t5283 - 0.3e1 / 0.4e1 * t5291 - 0.3e1 / 0.4e1 * t5273 - 0.3e1 / 0.2e1 * t5279 + t9 * (t14070 + t14100) - t12723 - t12725 - t12726 - 0.3e1 / 0.4e1 * t5269; t14104 = t16 * t5527; t14110 = t7 * t197 * t5528 / 0.8e1; t14115 = t49 * t5299; t14124 = t486 * t1702 * t227; t14144 = t49 * t5343; t14216 = -0.14933333333333333333e-1 * t23 * t3264 * t1678 - 0.16799999999999999999e-1 * t23 * t4446 + 0.11200000000000000000e-1 * t23 * t4450 + 0.74666666666666666664e-2 * t23 * t3251 * t1697 + 0.55999999999999999998e-2 * t23 * t4457 - 0.27999999999999999999e-2 * t23 * t1243 * t4472 + 0.14933333333333333333e-1 * t23 * t206 * t5315 + 0.22399999999999999999e-1 * t1251 * t8776 * t5314 * t222 - 0.16799999999999999999e-1 * t1251 * t3271 * t1678 * t1268 - 0.14933333333333333333e-1 * t1251 * t3264 * t5319 - 0.16799999999999999999e-1 * t1251 * t3271 * t5319 * t222 + 0.55999999999999999998e-2 * t1251 * t1252 * t1268 * t1697 + 0.55999999999999999998e-2 * t1251 * t1252 * t481 * t4472 + 0.24888888888888888889e-2 * t23 * t206 * t5339 + 0.18666666666666666666e-2 * t1251 * t1252 * t5338 * t222 - 0.93333333333333333332e-3 * t23 * t29 * t211 * (-0.12600000000000000000e-1 * t5324 * t213 * t34 + 0.12600000000000000000e-1 * t5328 * t205 * t219 + 0.4200000000000000000e-2 * t1688 * t1264 * t694 - 0.88200000000000000000e-1 * t4469 + 0.63000000000000000000e-1 / t26 / t2020 * t6145 * sigma[0]); t14217 = t26 * t14216; t14225 = t25 * t5299; t14260 = 0.32e2 / 0.3e1 * t201 * t6058 * t5300 * t227 - 0.16e2 / 0.9e1 * t201 * t1958 * t14115 - 0.8e1 * t201 * t1958 * t1671 * t1273 - 0.8e1 * t8942 * t3653 * t14124 + 0.16e2 / 0.9e1 * t201 * t654 * t1235 * t1702 + 0.8e1 / 0.3e1 * t201 * t654 * t1274 * t1702 + 0.8e1 / 0.3e1 * t201 * t654 * t487 * t4477 + 0.8e1 / 0.9e1 * t201 * t654 * t5344 * t227 - 0.8e1 / 0.27e2 * t201 * t202 * t14144 - 0.4e1 / 0.9e1 * t201 * t202 * t14217 - 0.192e3 * t237 * t6019 * t5348 * t227 + 0.256e3 / 0.5e1 * t237 * t2042 * t14225 + 0.576e3 / 0.5e1 * t237 * t2042 * t1707 * t1273 + 0.576e3 / 0.5e1 * t8948 * t4760 * t14124 - 0.192e3 / 0.5e1 * t237 * t713 * t1282 * t1702 - 0.144e3 / 0.5e1 * t237 * t713 * t1286 * t1702 - 0.144e3 / 0.5e1 * t237 * t713 * t491 * t4477 - 0.48e2 / 0.5e1 * t237 * t713 * t5356 * t227 + 0.64e2 / 0.15e2 * t237 * t240 * t25 * t5343 + 0.16e2 / 0.5e1 * t237 * t240 * t31 * t14216; t14261 = t9303 * t14124; t14264 = t3459 * t14124; t14268 = t6510 * t5299 * t227; t14272 = t2257 * t1670 * t1273; t14276 = t23 * t1337 * t1702; t14280 = t23 * t505 * t4477; t14284 = t23 * t1736 * t1273; t14290 = t23 * t5502 * t227; t14295 = t1291 * t712 * t5343 * t227; t14299 = t23 * t5483 * t227; t14304 = -0.12e2 * t9581 * t14261 + 0.54e2 * t9586 * t14264 + 0.1080e4 * t3409 * t14268 - 0.270e3 * t3409 * t14272 + 0.4e1 * t254 * t14276 + 0.4e1 * t254 * t14280 - 0.12e2 * t254 * t14284 + 0.4e1 * t749 * t5386 + 0.4e1 / 0.3e1 * t254 * t14290 - 0.3e1 * t739 * t14295 + 0.16e2 * t254 * t14299 - 0.4e1 / 0.3e1 * t745 * t5386; t14306 = t252 * t5523 * M_PI; t14334 = -0.2e1 / 0.3e1 * t14306 * t256 + 0.3e1 * t9719 * t1717 + 0.2e1 / 0.3e1 * t11886 * t497 - 0.6e1 * t2347 * t5368 - 0.4e1 / 0.3e1 * t3727 * t1723 + 0.4e1 / 0.3e1 * t745 * t5382 + 0.2e1 / 0.3e1 * t3727 * t1727 + 0.2e1 / 0.9e1 * t745 * t5390 - 0.90e2 * t2175 * t6252 * t5361 + 0.30e2 * t6249 * t5362 + 0.3e1 * t2347 * t5372 + 0.54e2 * t3721 * t4516 - 0.18e2 * t3721 * t4520; t14337 = t1291 * t5361 * t227; t14341 = t1291 * t4514 * t1273; t14346 = t6328 * t5299 * t18 * t4576; t14354 = t2257 * t14124; t14359 = t5458 * t18; t14382 = t1291 * t3470 * t1702; t14385 = -0.54e2 * t3431 * t5469 - 0.432e3 * t4673 * t9270 * t5499 + 0.405e3 / 0.16e2 * t3439 * t14354 + 0.945e3 / 0.32e2 * t6326 * t14346 + 0.4752e4 * t12003 * t14359 * t4576 + 0.2025e4 * t9228 * t5465 * t18 * t4576 + 0.27e2 * t504 * t1331 * t3505 * t1702 + 0.27e2 * t504 * t1331 * t1332 * t4477 - t279 * t14290 / 0.8e1 + 0.9e1 / 0.32e2 * t807 * t14295 + 0.27e2 / 0.32e2 * t2216 * t5372 + 0.27e2 / 0.32e2 * t807 * t14382; t14387 = t1291 * t1292 * t4477; t14418 = t21 * t801; t14423 = t68 * t227; t14427 = t21 * t1273; t14431 = t5513 * t18; t14435 = 0.27e2 / 0.32e2 * t807 * t14387 + 0.180e3 * t504 * t9141 * t5465 * t227 - 0.108e3 * t504 * t3459 * t1732 * t1273 + 0.9e1 / 0.8e1 * t9302 * t14261 - 0.81e2 / 0.16e2 * t9310 * t14264 - 0.648e3 * t12023 * t9270 * t1702 * t1343 * t18 * t4576 - 0.405e3 * t9272 * t4663 * t18 * t4576 - 0.108e3 * t3444 * t9292 * t4664 - 0.27e2 * t3444 * t3445 * t4669 + 0.135e3 * t3485 * t14359 * t14418 - 0.2835e4 / 0.2e1 * t9118 * t5465 * t1 * t14423 - 0.1296e4 * t4676 * t4677 * t14427 + 0.864e3 * t4676 * t14431 * t14418; t14449 = t5509 * t5510 * t6328; t14465 = t5508 * t736 * t289 * t9113 * t9116; t14470 = t5343 * t273; t14485 = -0.3240e4 * t12442 * t5458 * t1 * t14423 - 0.3e1 / 0.8e1 * t1359 * t4556 + 0.27e2 / 0.32e2 * t3568 * t4548 - 0.405e3 * t3485 * t4575 * t14427 + 0.8064e4 * t14449 * t14431 * t4576 - 0.3456e4 * t5512 * t12475 * t18 * t14427 + 0.3456e4 * t5512 * t5299 * t6481 * t18 * t14418 - 0.5184e4 * t14465 * t5513 * t1 * t14423 + 0.9e1 * t504 * t1331 * t14470 * t227 + 0.3e1 * t504 * t1342 * t5343 * t797 * t801 + 0.135e3 / 0.16e2 * t2175 * t6579 * t5361 - 0.432e3 * t4784 * t5462; t14514 = -0.45e2 / 0.16e2 * t6249 * t5455 - 0.9e1 / 0.32e2 * t2093 * t5372 + 0.9e1 * t1329 * t5489 + t811 * t5386 / 0.8e1 + 0.36e2 * t504 * t3459 * t5458 * t801 - 0.3e1 / 0.2e1 * t279 * t14299 + 0.9e1 / 0.8e1 * t279 * t14284 + 0.81e2 / 0.8e1 * t807 * t14337 - 0.3e1 / 0.8e1 * t815 * t5386 - 0.3e1 / 0.8e1 * t279 * t14276 - 0.3e1 / 0.8e1 * t279 * t14280 - 0.81e2 / 0.16e2 * t807 * t14341 + 0.9e1 / 0.8e1 * t1359 * t4539; t14547 = -0.3e1 / 0.4e1 * t1359 * t4543 - 0.81e2 / 0.16e2 * t3568 * t4516 - 0.3e1 / 0.8e1 * t4613 * t1302 + 0.27e2 / 0.32e2 * t12373 * t1294 + 0.27e2 / 0.16e2 * t3568 * t4520 + 0.27e2 / 0.32e2 * t9173 * t1717 + 0.3e1 / 0.16e2 * t12369 * t497 + 0.3e1 / 0.16e2 * t1359 * t4560 - 0.3e1 * t504 * t68 * t239 * t14216 * t273 + 0.3e1 / 0.16e2 * t4613 * t1306 - 0.1920e4 * t5509 * t26 * t3480 * t3483 * t5514 - 0.9e1 / 0.32e2 * t9181 * t1717; t14560 = t1321 * t5343; t14577 = -t1329 * t5504 - 0.45e2 * t9224 * t5496 + t3549 * t1723 / 0.8e1 - t811 * t5382 / 0.8e1 - t11945 * t497 / 0.16e2 + 0.1152e4 * t4784 * t5361 * t797 - 0.54e2 * t1319 * t14560 * t1323 - t811 * t5390 / 0.48e2 - t3549 * t1727 / 0.16e2 - 0.12e2 * t1329 * t5485 + 0.9e1 / 0.16e2 * t2093 * t5368 - 0.3e1 / 0.8e1 * t3562 * t1723 - 0.162e3 * t1319 * t3426 * t4663; t14585 = t3483 * t5299; t14615 = -0.432e3 * t4633 * t12019 * t1343 - 0.432e3 * t4633 * t4628 * t3516 - 0.3240e4 * t1319 * t14585 * t1323 + 0.1296e4 * t1319 * t4634 * t3505 - 0.432e3 * t1319 * t5361 * t4788 - 0.405e3 / 0.4e1 * t3439 * t14268 + 0.405e3 / 0.16e2 * t3439 * t14272 - 0.6912e4 * t4633 * t14585 * t2250 + 0.3456e4 * t4633 * t4634 * t3516 - 0.2304e4 * t4633 * t5361 * t4641 + 0.162e3 * t1319 * t1322 * t4669 + 0.2160e4 * t4633 * t12092 * t1343 * t227; t14636 = t252 * t5452 * M_PI; t14642 = t22 * t202 * t14216; t14696 = 0.16755160819145563939e2 * t5405 * t22 * t5 * t49 + 0.30000000000000000000e1 * t4477 * t70 * t1384 - 0.28424460675137352824e4 * t4759 * t4769 * t1702 * t3668 * t302 + 0.22619467105846511317e3 * t1382 * t9409 * t4738 + 0.75398223686155037724e2 * t1382 * t3662 * t4751 - 0.56848921350274705648e4 * t4759 * t4760 * t1702 * t1398 * t227 - t512 * t5393 * t1374 / 0.48e2 + 0.30000000000000000000e1 * t5397 * t3638 - t512 * t6 * t14216 * t514 / 0.48e2 + 0.44886109148468323082e6 * t295 * t5444 * t2178 * t5448 + 0.89772218296936646164e6 * t5446 * rho[0] * t5299 * t2160 - 0.18849555921538759431e2 * t12251 * t4738 - 0.94247779607693797155e1 * t12257 * t4751 + t512 * t5393 * t1369 / 0.72e2; t14739 = t5299 * t860; t14748 = 0.12566370614359172954e2 * t1379 * t5429 + 0.12566370614359172954e2 * t519 * t202 * t14217 * t304 + 0.75398223686155037724e2 * t1379 * t5417 - 0.28424460675137352823e4 * t4756 * t5425 + 0.75398223686155037724e2 * t1736 * t5404 * t22 * t5406 * t1273 - 0.10053096491487338363e3 * t5483 * t5404 * t22 * t5406 * t227 - 0.50265482457436691816e2 * t5403 * t2160 * t54 * t22 * t5406 * t302 - 0.75398223686155037724e2 * t3631 * t5421 - 0.75398223686155037724e2 * t1382 * t1383 * t3638 * t1702 - 0.75398223686155037724e2 * t1382 * t1383 * t1384 * t4477 + 0.18949640450091568549e4 * t4759 * t12144 * t5432 - 0.50265482457436691816e2 * t1382 * t3658 * t5420 + 0.14212230337568676412e5 * t4759 * t12176 * t14739 * t227 - 0.85273382025412058469e4 * t4759 * t4760 * t4730 * t1273; t14760 = t5343 * t860; t14788 = t5436 * t23; t14812 = 0.56848921350274705646e4 * t4759 * t4760 * t5299 * t2160 * t302 - 0.25132741228718345908e2 * t1382 * t1383 * t5343 * t304 * t227 - 0.12566370614359172954e2 * t1382 * t1397 * t14760 * t302 + 0.14212230337568676412e4 * t12165 * t5433 + 0.14212230337568676412e4 * t4759 * t4769 * t12156 * t486 + 0.14212230337568676412e4 * t4759 * t4769 * t4750 * t1273 - 0.30159289474462015090e3 * t1382 * t9538 * t5299 * t304 * t227 + 0.22619467105846511317e3 * t1382 * t3653 * t4716 * t1273 - 0.75398223686155037724e2 * t1382 * t3653 * t14739 * t302 + 0.11843525281307230343e3 * t14788 * t1671 * t712 * t860 * t1273 - 0.15791367041742973791e3 * t14788 * t5300 * t1321 * t860 * t227 - 0.78956835208714868954e2 * t14788 * t5300 * t712 * t2160 * t302 + 0.26318945069571622985e2 * t5437 * t5438 * t9543 * t860 - 0.37899280900183137097e4 * t1782 * t2042 * t14225 * t860; t14829 = t5445 * t3483; t14859 = 0.83775804095727819693e1 * t519 * t202 * t14144 * t304 + 0.50265482457436691816e2 * t519 * t1958 * t14115 * t304 - 0.13465832744540496925e7 * t5446 * t5447 * t6676 * t302 + 0.13465832744540496925e7 * t5446 * t24 * t1670 * t9504 - 0.26931665489080993849e7 * t14829 * t5447 * t9436 + 0.20000000000000000000e1 * t5400 * t2154 - 0.60000000000000000000e1 * t4696 * t3638 + 0.60000000000000000000e1 * t5403 * t4697 - 0.60000000000000000000e1 * t1741 * t1385 - 0.37699111843077518862e2 * t1769 * t4706 * t1273 + 0.37699111843077518862e2 * t5413 * t12332 * t227 + 0.12566370614359172954e2 * t5413 * t239 * t860 * t302 - 0.30000000000000000000e1 * t5397 * t1399 + 0.94247779607693797155e1 * t2 * t1273 * t5410 + 0.94247779607693797155e1 * t4702 * t1770 * t4477; t14865 = 0.864e3 * t4633 * t4628 * t3465 * t801 + 0.1296e4 * t1319 * t3434 * t4664 - 0.162e3 * t1319 * t1322 * t12502 - t48 * t32 * t5451 / 0.24e2 + 0.3e1 / 0.16e2 * t3562 * t1727 + 0.3e1 / 0.8e1 * t815 * t5382 - 0.27e2 / 0.16e2 * t2216 * t5368 + t14636 * t256 / 0.16e2 + t815 * t5390 / 0.16e2 + t279 * t14642 / 0.16e2 + 0.144e3 * t4570 * t5466 + 0.405e3 / 0.16e2 * t11973 * t4508 + t48 * t49 * (t14696 + t14748 + t14812 + t14859) / 0.8e1; t14890 = -0.108e3 * t739 * t14337 + 0.54e2 * t739 * t14341 - 0.315e3 * t6712 * t14346 - 0.4e1 / 0.3e1 * t48 * t49 * (t14385 + t14435 + t14485 + t14514 + t14547 + t14577 + t14615 + t14865) - 0.9e1 * t11770 * t1294 - 0.9e1 * t2323 * t5372 - 0.9e1 * t739 * t14382 - 0.9e1 * t739 * t14387 - 0.12e2 * t1310 * t4539 + 0.8e1 * t1310 * t4543 + 0.4e1 * t4564 * t1302 + 0.4e1 * t1310 * t4556 - 0.9e1 * t3721 * t4548; t14918 = -0.9e1 * t9646 * t1717 - 0.2e1 * t12596 * t497 + 0.18e2 * t2323 * t5368 + 0.4e1 * t3709 * t1723 - 0.2e1 * t4564 * t1306 + 0.4e1 / 0.9e1 * t48 * t32 * t5522 - 0.270e3 * t11877 * t4508 - 0.270e3 * t3409 * t14354 - 0.2e1 * t3709 * t1727 - 0.4e1 * t749 * t5382 - 0.2e1 / 0.3e1 * t749 * t5390 - 0.2e1 / 0.3e1 * t254 * t14642 - 0.2e1 * t1310 * t4560; t14921 = my_piecewise3(t52, t14260, t14304 + t14334 + t14890 + t14918); t14935 = 0.3e1 / 0.8e1 * t7 * t197 * t5532; t14949 = 0.3e1 / 0.8e1 * t7 * t197 * t5536; t14964 = t7 * t197 * t5540 / 0.8e1; t14973 = -t184 * t14104 * t191 / 0.2e1 - t14110 - 0.3e1 / 0.8e1 * t7 * t17 * t14921 * t42 - 0.3e1 / 0.8e1 * t7 * t17 * t5527 * t227 - 0.3e1 / 0.2e1 * t184 * t4407 * t1421 - t14935 - 0.9e1 / 0.8e1 * t7 * t17 * t4803 * t486 - 0.9e1 / 0.8e1 * t7 * t17 * t1796 * t1273 - 0.3e1 / 0.2e1 * t184 * t1224 * t4825 - t14949 - 0.9e1 / 0.8e1 * t7 * t17 * t1412 * t1702 - 0.9e1 / 0.8e1 * t7 * t17 * t533 * t4477 - t184 * t185 * t5343 * t190 / 0.2e1 - t14964 - 0.3e1 / 0.8e1 * t7 * t17 * t315 * t5343 - 0.3e1 / 0.8e1 * t7 * t17 * t104 * t14216; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[0] = t14973 * t9 - t5531 - t5535 - t5539 - t5543; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[1] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[2] = 0.0e0; 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; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[5] = 0.0e0; 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; t14975 = t16 * t5767; t14981 = t7 * t332 * t5768 / 0.8e1; t14987 = 0.3e1 / 0.8e1 * t7 * t332 * t5772; t14993 = 0.3e1 / 0.8e1 * t7 * t332 * t5776; t15000 = t7 * t332 * t5780 / 0.8e1; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[9] = -t5771 - t5775 - t5779 - t5783 + t9 * (-t325 * t14975 * t328 / 0.2e1 - t14981 - 0.3e1 / 0.2e1 * t325 * t4842 * t1447 - t14987 - 0.3e1 / 0.2e1 * t325 * t1440 * t4854 - t14993 - t325 * t326 * t5589 * t327 / 0.2e1 - t15000); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[10] = -t5531 - t5535 - t5539 - t5543 + t9 * (-t184 * t14104 * t340 / 0.2e1 - t14110 - 0.3e1 / 0.2e1 * t184 * t4407 * t1459 - t14935 - 0.3e1 / 0.2e1 * t184 * t1224 * t4868 - t14949 - t184 * t185 * t5343 * t339 / 0.2e1 - t14964); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[11] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[12] = 0.0e0; 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; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[15] = 0.0e0; 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; t15025 = t138 * t5545; t15034 = t557 * t1842 * t374; t15054 = t138 * t5589; t15126 = -0.14933333333333333333e-1 * t23 * t3956 * t1818 - 0.16799999999999999999e-1 * t23 * t4909 + 0.11200000000000000000e-1 * t23 * t4913 + 0.74666666666666666664e-2 * t23 * t3943 * t1837 + 0.55999999999999999998e-2 * t23 * t4920 - 0.27999999999999999999e-2 * t23 * t1480 * t4935 + 0.14933333333333333333e-1 * t23 * t353 * t5561 + 0.22399999999999999999e-1 * t1488 * t10389 * t5560 * t369 - 0.16799999999999999999e-1 * t1488 * t3963 * t1818 * t1505 - 0.14933333333333333333e-1 * t1488 * t3956 * t5565 - 0.16799999999999999999e-1 * t1488 * t3963 * t5565 * t369 + 0.55999999999999999998e-2 * t1488 * t1489 * t1505 * t1837 + 0.55999999999999999998e-2 * t1488 * t1489 * t552 * t4935 + 0.24888888888888888889e-2 * t23 * t353 * t5585 + 0.18666666666666666666e-2 * t1488 * t1489 * t5584 * t369 - 0.93333333333333333332e-3 * t23 * t118 * t358 * (-0.12600000000000000000e-1 * t5570 * t360 * t123 + 0.12600000000000000000e-1 * t5574 * t352 * t366 + 0.4200000000000000000e-2 * t1828 * t1501 * t1032 - 0.88200000000000000000e-1 * t4932 + 0.63000000000000000000e-1 / t115 / t2816 * t7922 * sigma[2]); t15127 = t115 * t15126; t15135 = t114 * t5545; t15170 = 0.32e2 / 0.3e1 * t201 * t7998 * t5546 * t374 - 0.16e2 / 0.9e1 * t201 * t2754 * t15025 - 0.8e1 * t201 * t2754 * t1811 * t1510 - 0.8e1 * t8942 * t4199 * t15034 + 0.16e2 / 0.9e1 * t201 * t992 * t1472 * t1842 + 0.8e1 / 0.3e1 * t201 * t992 * t1511 * t1842 + 0.8e1 / 0.3e1 * t201 * t992 * t558 * t4940 + 0.8e1 / 0.9e1 * t201 * t992 * t5590 * t374 - 0.8e1 / 0.27e2 * t201 * t349 * t15054 - 0.4e1 / 0.9e1 * t201 * t349 * t15127 - 0.192e3 * t237 * t7962 * t5594 * t374 + 0.256e3 / 0.5e1 * t237 * t2838 * t15135 + 0.576e3 / 0.5e1 * t237 * t2838 * t1847 * t1510 + 0.576e3 / 0.5e1 * t8948 * t5231 * t15034 - 0.192e3 / 0.5e1 * t237 * t1051 * t1519 * t1842 - 0.144e3 / 0.5e1 * t237 * t1051 * t1523 * t1842 - 0.144e3 / 0.5e1 * t237 * t1051 * t562 * t4940 - 0.48e2 / 0.5e1 * t237 * t1051 * t5602 * t374 + 0.64e2 / 0.15e2 * t237 * t385 * t114 * t5589 + 0.16e2 / 0.5e1 * t237 * t385 * t120 * t15126; t15175 = t8202 * t5545 * t18 * t5040; t15183 = t23 * t5713 * t374; t15187 = t23 * t1876 * t1510; t15193 = t23 * t1572 * t1842; t15197 = t23 * t575 * t4940; t15203 = t23 * t5740 * t374; t15208 = t1291 * t1050 * t5589 * t374; t15211 = -0.18e2 * t4093 * t4983 - 0.315e3 * t8579 * t15175 + 0.4e1 * t1546 * t5019 - 0.9e1 * t4093 * t5011 + 0.16e2 * t399 * t15183 - 0.12e2 * t399 * t15187 + 0.4e1 * t1086 * t5632 + 0.4e1 * t399 * t15193 + 0.4e1 * t399 * t15197 - 0.9e1 * t13222 * t1530 + 0.4e1 / 0.3e1 * t399 * t15203 - 0.3e1 * t1076 * t15208; t15225 = t397 * t5704 * M_PI; t15237 = t22 * t349 * t15126; t15246 = t2926 * t15034; t15249 = -0.3e1 / 0.8e1 * t4251 * t1863 + 0.3e1 / 0.8e1 * t1151 * t5628 - 0.27e2 / 0.16e2 * t2915 * t5614 + t15225 * t401 / 0.16e2 + 0.3e1 / 0.16e2 * t13659 * t568 + 0.3e1 / 0.16e2 * t5136 * t1542 + 0.3e1 / 0.16e2 * t4251 * t1867 + t1151 * t5636 / 0.16e2 + t424 * t15237 / 0.16e2 + 0.1296e4 * t1554 * t4115 * t5071 + 0.162e3 * t1554 * t1557 * t5076 + 0.405e3 / 0.16e2 * t4100 * t15246; t15289 = t1291 * t4977 * t1510; t15292 = 0.2160e4 * t5098 * t13834 * t1578 * t374 + 0.864e3 * t5098 * t5093 * t4298 * t1137 + 0.180e3 * t574 * t10946 * t5642 * t374 - 0.108e3 * t574 * t4308 * t1872 * t1510 + 0.36e2 * t574 * t4308 * t5736 * t1137 + 0.27e2 * t574 * t1566 * t4320 * t1842 + 0.27e2 * t574 * t1566 * t1567 * t4940 + 0.9e1 / 0.8e1 * t1594 * t5002 - 0.3e1 / 0.4e1 * t1594 * t5006 - 0.81e2 / 0.16e2 * t4257 * t4979 - 0.3e1 / 0.2e1 * t424 * t15183 + 0.27e2 / 0.32e2 * t4257 * t5011 - 0.81e2 / 0.16e2 * t1143 * t15289; t15297 = t1291 * t4046 * t1842; t15301 = t1291 * t1528 * t4940; t15311 = t1291 * t5607 * t374; t15325 = 0.27e2 / 0.32e2 * t2915 * t5618 + 0.27e2 / 0.32e2 * t1143 * t15297 + 0.27e2 / 0.32e2 * t1143 * t15301 - t424 * t15203 / 0.8e1 + 0.9e1 / 0.32e2 * t1143 * t15208 + 0.9e1 / 0.8e1 * t424 * t15187 + 0.81e2 / 0.8e1 * t1143 * t15311 - 0.3e1 / 0.8e1 * t1151 * t5632 - 0.3e1 / 0.8e1 * t424 * t15193 - 0.3e1 / 0.8e1 * t424 * t15197 - 0.432e3 * t5035 * t10687 * t5737 - t1147 * t5628 / 0.8e1; t15357 = 0.3e1 / 0.16e2 * t1594 * t5023 - 0.3e1 * t574 * t68 * t384 * t15126 * t418 + 0.27e2 / 0.32e2 * t11217 * t1857 + 0.9e1 / 0.16e2 * t3071 * t5614 - t1147 * t5636 / 0.48e2 - t13712 * t568 / 0.16e2 - 0.12e2 * t1564 * t5715 + t4236 * t1863 / 0.8e1 - 0.1920e4 * t5745 * t115 * t3480 * t4285 * t5750 - 0.9e1 / 0.32e2 * t11193 * t1857 - t1564 * t5742 - t4236 * t1867 / 0.16e2 - 0.45e2 * t11116 * t5733; t15364 = t5589 * t418; t15375 = t5745 * t5746 * t8202; t15376 = t5749 * t18; t15381 = t21 * t1510; t15387 = t21 * t1137; t15394 = t5508 * t1073 * t434 * t9113 * t10987; t15396 = t68 * t374; t15416 = t5545 * t1196; t15429 = t5589 * t1196; t15454 = 0.18949640450091568549e4 * t5230 * t13436 * t5688 - 0.50265482457436691816e2 * t1617 * t4204 * t5676 - 0.75398223686155037724e2 * t4164 * t5677 - 0.75398223686155037724e2 * t1617 * t1618 * t4167 * t1842 - 0.75398223686155037724e2 * t1617 * t1618 * t1619 * t4940 + 0.14212230337568676412e5 * t5230 * t13555 * t15416 * t374 + 0.22619467105846511317e3 * t1617 * t4199 * t5187 * t1510 - 0.75398223686155037724e2 * t1617 * t4199 * t15416 * t447 - 0.12566370614359172954e2 * t1617 * t1632 * t15429 * t447 + 0.14212230337568676412e4 * t13394 * t5689 + 0.14212230337568676412e4 * t5230 * t5240 * t13451 * t557 + 0.14212230337568676412e4 * t5230 * t5240 * t5221 * t1510 + 0.11843525281307230343e3 * t14788 * t1811 * t1050 * t1196 * t1510 - 0.15791367041742973791e3 * t14788 * t5546 * t1556 * t1196 * t374; t15507 = -0.78956835208714868954e2 * t14788 * t5546 * t1050 * t3036 * t447 - 0.30159289474462015090e3 * t1617 * t10846 * t5545 * t449 * t374 - 0.85273382025412058469e4 * t5230 * t5231 * t5201 * t1510 + 0.56848921350274705646e4 * t5230 * t5231 * t5545 * t3036 * t447 - 0.25132741228718345908e2 * t1617 * t1618 * t5589 * t449 * t374 - 0.37699111843077518862e2 * t1907 * t5177 * t1510 + 0.37699111843077518862e2 * t5669 * t13588 * t374 + 0.12566370614359172954e2 * t5669 * t384 * t1196 * t447 - 0.30000000000000000000e1 * t5653 * t1634 + 0.94247779607693797155e1 * t2 * t1510 * t5666 + 0.94247779607693797155e1 * t5173 * t1908 * t4940 - 0.60000000000000000000e1 * t1881 * t1620 + 0.26318945069571622985e2 * t5437 * t5692 * t10851 * t1196 + 0.50265482457436691816e2 * t588 * t2754 * t15025 * t449; t15558 = -0.37899280900183137097e4 * t1920 * t2838 * t15135 * t1196 + 0.12566370614359172954e2 * t1614 * t5685 + 0.12566370614359172954e2 * t588 * t349 * t15127 * t449 + 0.83775804095727819693e1 * t588 * t349 * t15054 * t449 + 0.75398223686155037724e2 * t1614 * t5673 - 0.28424460675137352823e4 * t5227 * t5681 - t512 * t5649 * t1609 / 0.48e2 + 0.75398223686155037724e2 * t1876 * t5660 * t22 * t5662 * t1510 - 0.10053096491487338363e3 * t5713 * t5660 * t22 * t5662 * t374 - 0.50265482457436691816e2 * t5659 * t3036 * t54 * t22 * t5662 * t447 + 0.30000000000000000000e1 * t4940 * t147 * t1619 + 0.30000000000000000000e1 * t5653 * t4167 - 0.60000000000000000000e1 * t5167 * t4167 - 0.56848921350274705648e4 * t5230 * t5231 * t1842 * t1633 * t374; t15593 = t5697 * t4285; t15609 = -0.28424460675137352824e4 * t5230 * t5240 * t1842 * t4214 * t447 + 0.22619467105846511317e3 * t1617 * t10701 * t5209 + 0.75398223686155037724e2 * t1617 * t4208 * t5222 + 0.16755160819145563939e2 * t5661 * t22 * t5 * t138 + 0.89772218296936646164e6 * t5698 * rho[1] * t5545 * t3036 + 0.60000000000000000000e1 * t5659 * t5168 + 0.20000000000000000000e1 * t5656 * t3030 + t512 * t5649 * t1604 / 0.72e2 - 0.13465832744540496925e7 * t5698 * t5699 * t8448 * t447 + 0.13465832744540496925e7 * t5698 * t113 * t1810 * t10884 - 0.26931665489080993849e7 * t15593 * t5699 * t10771 - t512 * t6 * t15126 * t583 / 0.48e2 + 0.44886109148468323082e6 * t440 * t5444 * t2878 * t5700 - 0.94247779607693797155e1 * t13595 * t5222 - 0.18849555921538759431e2 * t13592 * t5209; t15618 = t4285 * t5545; t15625 = 0.27e2 / 0.16e2 * t4257 * t4983 + 0.945e3 / 0.32e2 * t8200 * t15175 + 0.9e1 * t574 * t1566 * t15364 * t374 + 0.3e1 * t574 * t1577 * t5589 * t1133 * t1137 + 0.8064e4 * t15375 * t15376 * t5040 - 0.3456e4 * t5748 * t13638 * t18 * t15381 + 0.3456e4 * t5748 * t5545 * t8510 * t18 * t15387 - 0.5184e4 * t15394 * t5749 * t1 * t15396 + t137 * t138 * (t15454 + t15507 + t15558 + t15609) / 0.8e1 - 0.432e3 * t5098 * t5093 * t4329 - 0.3240e4 * t1554 * t15618 * t1558 + 0.1296e4 * t1554 * t5099 * t4320; t15633 = t5736 * t18; t15664 = 0.144e3 * t5151 * t5643 + t1147 * t5632 / 0.8e1 - 0.405e3 * t4287 * t5044 * t15381 + 0.135e3 * t4287 * t15633 * t15387 - 0.2835e4 / 0.2e1 * t10989 * t5642 * t1 * t15396 + 0.4752e4 * t13698 * t15633 * t5040 - 0.1296e4 * t5038 * t5039 * t15381 + 0.864e3 * t5038 * t15376 * t15387 - 0.3240e4 * t13785 * t5736 * t1 * t15396 - 0.3e1 / 0.8e1 * t5136 * t1538 + 0.27e2 / 0.32e2 * t13683 * t1530 - 0.3e1 / 0.8e1 * t1594 * t5019 + 0.2025e4 * t11120 * t5642 * t18 * t5040; t15670 = t4308 * t15034; t15689 = t10611 * t15034; t15701 = 0.9e1 * t1564 * t5719 - 0.9e1 / 0.32e2 * t3071 * t5618 - 0.81e2 / 0.16e2 * t11137 * t15670 - 0.648e3 * t13919 * t10687 * t1842 * t1578 * t18 * t5040 - 0.405e3 * t10689 * t5070 * t18 * t5040 - 0.108e3 * t4275 * t10676 * t5071 - 0.27e2 * t4275 * t4276 * t5076 + 0.9e1 / 0.8e1 * t11130 * t15689 + 0.1152e4 * t5147 * t5607 * t1133 - 0.45e2 / 0.16e2 * t8086 * t5755 - 0.54e2 * t4112 * t5646 - 0.432e3 * t5147 * t5639; t15721 = t8294 * t5545 * t374; t15724 = t1556 * t5589; t15731 = t2926 * t1810 * t1510; t15743 = 0.135e3 / 0.16e2 * t2875 * t8276 * t5607 - 0.162e3 * t1554 * t1557 * t13327 - 0.432e3 * t1554 * t5607 * t5089 - 0.162e3 * t1554 * t4103 * t5070 - t137 * t121 * t5703 / 0.24e2 - 0.432e3 * t5098 * t13290 * t1578 - 0.405e3 / 0.4e1 * t4100 * t15721 - 0.54e2 * t1554 * t15724 * t1558 + 0.405e3 / 0.16e2 * t13721 * t4971 + 0.405e3 / 0.16e2 * t4100 * t15731 - 0.6912e4 * t5098 * t15618 * t2978 + 0.3456e4 * t5098 * t5099 * t4329 - 0.2304e4 * t5098 * t5607 * t5107; t15769 = 0.54e2 * t4093 * t4979 + 0.4e1 * t5027 * t1538 + 0.18e2 * t3120 * t5614 - 0.4e1 / 0.3e1 * t137 * t138 * (t15249 + t15292 + t15325 + t15357 + t15625 + t15664 + t15701 + t15743) - 0.12e2 * t1546 * t5002 + 0.8e1 * t1546 * t5006 - 0.90e2 * t2875 * t8089 * t5607 + 0.30e2 * t8086 * t5608 + 0.3e1 * t3134 * t5618 - 0.4e1 / 0.3e1 * t1082 * t5632 - 0.108e3 * t1076 * t15311 + 0.54e2 * t1076 * t15289 - 0.9e1 * t3120 * t5618; t15793 = t397 * t5763 * M_PI; t15800 = -0.9e1 * t1076 * t15297 - 0.9e1 * t1076 * t15301 - 0.12e2 * t10610 * t15689 - 0.270e3 * t4028 * t15246 + 0.54e2 * t10618 * t15670 + 0.4e1 / 0.9e1 * t137 * t121 * t5762 - 0.270e3 * t13997 * t4971 + 0.1080e4 * t4028 * t15721 - 0.270e3 * t4028 * t15731 + 0.2e1 / 0.3e1 * t13226 * t568 - 0.2e1 / 0.3e1 * t15793 * t401 - 0.6e1 * t3134 * t5614 + 0.2e1 / 0.9e1 * t1082 * t5636; t15827 = 0.3e1 * t11347 * t1857 + 0.4e1 / 0.3e1 * t1082 * t5628 - 0.4e1 / 0.3e1 * t4075 * t1863 + 0.4e1 * t4085 * t1863 - 0.2e1 * t5027 * t1542 - 0.2e1 / 0.3e1 * t399 * t15237 - 0.2e1 * t4085 * t1867 - 0.2e1 * t1546 * t5023 - 0.4e1 * t1086 * t5628 - 0.2e1 / 0.3e1 * t1086 * t5636 + 0.2e1 / 0.3e1 * t4075 * t1867 - 0.9e1 * t11275 * t1857 - 0.2e1 * t13983 * t568; t15830 = my_piecewise3(t141, t15170, t15211 + t15769 + t15800 + t15827); t15873 = -t325 * t14975 * t345 / 0.2e1 - t14981 - 0.3e1 / 0.8e1 * t7 * t112 * t15830 * t131 - 0.3e1 / 0.8e1 * t7 * t112 * t5767 * t374 - 0.3e1 / 0.2e1 * t325 * t4842 * t1656 - t14987 - 0.9e1 / 0.8e1 * t7 * t112 * t5266 * t557 - 0.9e1 / 0.8e1 * t7 * t112 * t1934 * t1510 - 0.3e1 / 0.2e1 * t325 * t1440 * t5285 - t14993 - 0.9e1 / 0.8e1 * t7 * t112 * t1647 * t1842 - 0.9e1 / 0.8e1 * t7 * t112 * t602 * t4940 - t325 * t326 * t5589 * t344 / 0.2e1 - t15000 - 0.3e1 / 0.8e1 * t7 * t112 * t460 * t5589 - 0.3e1 / 0.8e1 * t7 * t112 * t176 * t15126; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4rhosigma3[19] = t15873 * t9 - t5771 - t5775 - t5779 - t5783; t15875 = t1670 * t1670; t15876 = t26 * t15875; t15884 = t1702 * t1702; t15885 = t26 * t15884; t15901 = t1678 * t1678; t15910 = t1697 * t1697; t15943 = -0.22399999999999999999e-1 * t23 * t3271 * t5314 + 0.22400000000000000000e-1 * t23 * t5320 - 0.37333333333333333332e-2 * t23 * t1243 * t5338 + 0.22399999999999999999e-1 * t23 * t29 * t6104 * t15901 - 0.33599999999999999998e-1 * t1251 * t3271 * t1678 * t1697 + 0.55999999999999999998e-2 * t23 * t29 * t675 * t15910 + 0.74666666666666666664e-2 * t1251 * t1252 * t481 * t5338 - 0.93333333333333333332e-3 * t23 * t29 * t211 * (-0.23625000000000000000e-1 / t30 / t2019 * t32 * t34 + 0.23625000000000000000e-1 / t2019 * t28 * t219 + 0.78750000000000000000e-2 * t5328 * t1694 * t694 + 0.47250000000000000000e-2 * t1688 * t5335 * t2025 - 0.23625000000000000000e-1 / t26 / t3292 * t6145); t15944 = t26 * t15943; t15948 = t31 * t15875; t15956 = t31 * t15884; t15969 = t3483 * t15875; t15976 = t1732 * t1702; t15983 = t23 * t1736 * t1702; t15987 = t23 * t505 * t5343; t15991 = t1291 * t4514 * t1702; t16009 = -0.405e3 / 0.4e1 * t2175 * t2176 * t15969 + 0.135e3 / 0.4e1 * t2175 * t9197 * t5361 - 0.216e3 * t504 * t3459 * t15976 - 0.3e1 / 0.2e1 * t1359 * t5386 + 0.9e1 / 0.4e1 * t279 * t15983 - t279 * t15987 / 0.2e1 - 0.81e2 / 0.8e1 * t807 * t15991 - 0.2592e4 * t4676 * t4668 * t1670 * t23 - 0.6912e4 * t5512 * t11997 * t1670 * t23 - 0.810e3 * t3485 * t15976 * t23 + 0.36e2 * t504 * t1331 * t1332 * t5343; t16013 = t1291 * t1292 * t5343; t16017 = t2257 * t1670 * t1702; t16020 = t15875 * t273; t16024 = t15875 * t797; t16051 = 0.27e2 / 0.8e1 * t3568 * t5372 + 0.9e1 / 0.8e1 * t807 * t16013 + 0.405e3 / 0.8e1 * t3439 * t16017 - 0.3240e4 * t1730 * t6510 * t16020 - 0.8640e4 * t1749 * t6510 * t16024 - 0.162e3 * t1730 * t1731 * t15884 * t273 - 0.432e3 * t1749 * t1731 * t15884 * t797 + 0.6912e4 * t4633 * t4634 * t4668 + 0.2592e4 * t1319 * t4634 * t4663 - 0.576e3 * t4633 * t14560 * t1343 - 0.216e3 * t1319 * t1322 * t14470 + 0.6480e4 * t12003 * t16024 * t23; t16053 = t15875 * t2085; t16065 = t236 * t6019 * t15875; t16071 = t6328 * t15875 * t23; t16075 = t22 * t6058 * t15875; t16079 = t22 * t654 * t15884; t16087 = 0.17280e5 * t14449 * t16053 * t23 + 0.2025e4 * t9228 * t16020 * t23 - 0.3e1 / 0.4e1 * t4613 * t1723 - 0.27e2 / 0.4e1 * t3568 * t5368 + 0.81e2 / 0.8e1 * t807 * t16065 + t14636 * t497 / 0.4e1 + 0.945e3 / 0.32e2 * t6326 * t16071 - 0.3e1 / 0.2e1 * t279 * t16075 - 0.3e1 / 0.8e1 * t279 * t16079 + 0.27e2 / 0.16e2 * t12373 * t1717 - 0.2835e4 / 0.2e1 * t9118 * t16020 * t1291; t16100 = 0.1e1 / t61 / t1746; t16112 = t22 * t202 * t15943; t16123 = t236 * t713 * t15884; t16126 = t2178 * t15875; t16185 = 0.40000000000000000000e1 * t5343 * t70 * t1384 - 0.53863330978161987698e7 * t14829 * t24 * t15875 * t2160 - 0.75398223686155037724e2 * t1769 * t4706 * t1702 + 0.12566370614359172954e2 * t4702 * t1770 * t5343 + 0.28424460675137352824e4 * t16126 * t2160 * t62 * t236 * t6 * t31 - 0.17592918860102842136e3 * t15875 * t1321 * t5404 * t5407 - t512 * t6 * t15943 * t514 / 0.48e2 + 0.12566370614359172954e2 * t519 * t202 * t15944 * t304 + 0.15079644737231007545e3 * t4546 * t4730 * t86 * t21 * t26 + 0.14212230337568676412e4 * t1782 * t713 * t15956 * t860 - 0.75398223686155037724e2 * t519 * t654 * t15885 * t304 - 0.30159289474462015090e3 * t519 * t6058 * t15876 * t304 + 0.26931665489080993850e7 * t5446 * t24 * t1702 * t4774; t16191 = t62 * t2 * t4; t16197 = t61 * t61; t16198 = 0.1e1 / t16197; t16245 = 0.45238934211693022634e3 * t1382 * t3653 * t4716 * t1702 + 0.93512727392642339754e4 * t16191 * t6 * t15875 * t12176 * t2160 + 0.16921664489886923241e8 * t85 * t16198 * t6328 * t27 * t15875 * t6676 * t23 + 0.17054676405082411694e5 * t1782 * t6019 * t15948 * t860 - 0.39478417604357434477e3 * t5437 * t5 * t15875 * t9538 * t860 + 0.18949640450091568549e4 * t4759 * t4769 * t14760 * t486 + 0.23687050562614460686e3 * t14788 * t1671 * t4546 * t860 - 0.10053096491487338363e3 * t1382 * t1383 * t1384 * t5343 - 0.17054676405082411694e5 * t4759 * t4760 * t4730 * t1702 + 0.94247779607693797155e1 * t2 * t15884 * t1770 + 0.56548667764616278293e2 * t2 * t15875 * t12332 - 0.12000000000000000000e2 * t1741 * t4716 + 0.30000000000000000000e1 * t15884 * t70 * t304 + 0.60000000000000000000e1 * t15875 * t712 * t304; t16250 = -0.4860e4 * t12442 * t16024 * t1291 - 0.15552e5 * t14465 * t16053 * t1291 - 0.3e1 * t504 * t68 * t239 * t15943 * t273 - 0.41472e5 * t16100 * t251 * t212 * t9113 * t9116 * t15875 * t6481 * t1291 + t1359 * t5390 / 0.4e1 + t279 * t16112 / 0.16e2 + 0.3e1 / 0.8e1 * t4613 * t1727 + 0.27e2 * t504 * t68 * t712 * t15884 * t273 + 0.27e2 / 0.32e2 * t807 * t16123 + 0.180e3 * t504 * t68 * t16126 * t273 + 0.3e1 / 0.2e1 * t1359 * t5382 + t48 * t49 * (t16185 + t16245) / 0.8e1; t16277 = -0.4e1 / 0.3e1 * t48 * t49 * (t16009 + t16051 + t16087 + t16250) + 0.1080e4 * t2175 * t2301 * t15969 - 0.540e3 * t3409 * t16017 + 0.4e1 * t254 * t16079 + 0.16e2 / 0.3e1 * t254 * t15987 + 0.16e2 * t254 * t16075 - 0.24e2 * t254 * t15983 - 0.16e2 * t1310 * t5382 + 0.16e2 * t1310 * t5386 + 0.8e1 * t4564 * t1723 - 0.2e1 / 0.3e1 * t254 * t16112; t16303 = -0.8e1 / 0.3e1 * t1310 * t5390 - 0.4e1 * t4564 * t1727 - 0.360e3 * t2175 * t9704 * t5361 - 0.36e2 * t3721 * t5372 - 0.108e3 * t739 * t16065 + 0.108e3 * t739 * t15991 - 0.9e1 * t739 * t16123 - 0.12e2 * t739 * t16013 + 0.72e2 * t3721 * t5368 - 0.8e1 / 0.3e1 * t14306 * t497 - 0.315e3 * t6712 * t16071 - 0.18e2 * t11770 * t1717; t16305 = my_piecewise3(t52, 0.32e2 / 0.3e1 * t201 * t6058 * t15876 - 0.16e2 * t201 * t1958 * t1671 * t1702 + 0.8e1 / 0.3e1 * t201 * t654 * t15885 + 0.32e2 / 0.9e1 * t201 * t654 * t487 * t5343 - 0.4e1 / 0.9e1 * t201 * t202 * t15944 - 0.192e3 * t237 * t6019 * t15948 + 0.1152e4 / 0.5e1 * t237 * t2042 * t1707 * t1702 - 0.144e3 / 0.5e1 * t237 * t713 * t15956 - 0.192e3 / 0.5e1 * t237 * t713 * t491 * t5343 + 0.16e2 / 0.5e1 * t237 * t240 * t31 * t15943, t16277 + t16303); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[0] = t9 * (-0.3e1 / 0.8e1 * t7 * t17 * t16305 * t42 - 0.3e1 / 0.2e1 * t7 * t17 * t5527 * t486 - 0.9e1 / 0.4e1 * t7 * t17 * t1796 * t1702 - 0.3e1 / 0.2e1 * t7 * t17 * t533 * t5343 - 0.3e1 / 0.8e1 * t7 * t17 * t104 * t15943); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[1] = 0.0e0; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[2] = 0.0e0; 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; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[5] = 0.0e0; 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; if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[9] = 0.0e0; 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; t16327 = t1810 * t1810; t16328 = t115 * t16327; t16336 = t1842 * t1842; t16337 = t115 * t16336; t16353 = t1818 * t1818; t16362 = t1837 * t1837; t16395 = -0.22399999999999999999e-1 * t23 * t3963 * t5560 + 0.22400000000000000000e-1 * t23 * t5566 - 0.37333333333333333332e-2 * t23 * t1480 * t5584 + 0.22399999999999999999e-1 * t23 * t118 * t7881 * t16353 - 0.33599999999999999998e-1 * t1488 * t3963 * t1818 * t1837 + 0.55999999999999999998e-2 * t23 * t118 * t1013 * t16362 + 0.74666666666666666664e-2 * t1488 * t1489 * t552 * t5584 - 0.93333333333333333332e-3 * t23 * t118 * t358 * (-0.23625000000000000000e-1 / t119 / t2815 * t121 * t123 + 0.23625000000000000000e-1 / t2815 * t117 * t366 + 0.78750000000000000000e-2 * t5574 * t1834 * t1032 + 0.47250000000000000000e-2 * t1828 * t5581 * t2821 - 0.23625000000000000000e-1 / t115 / t3984 * t7922); t16396 = t115 * t16395; t16400 = t120 * t16327; t16408 = t120 * t16336; t16422 = t8202 * t16327 * t23; t16487 = 0.23687050562614460686e3 * t14788 * t1811 * t5009 * t1196 + 0.18949640450091568549e4 * t5230 * t5240 * t15429 * t557 + 0.45238934211693022634e3 * t1617 * t4199 * t5187 * t1842 - 0.10053096491487338363e3 * t1617 * t1618 * t1619 * t5589 - 0.17054676405082411694e5 * t5230 * t5231 * t5201 * t1842 + 0.16921664489886923241e8 * t159 * t16198 * t8202 * t116 * t16327 * t8448 * t23 - 0.39478417604357434477e3 * t5437 * t5 * t16327 * t10846 * t1196 + 0.12566370614359172954e2 * t588 * t349 * t16396 * t449 + 0.15079644737231007545e3 * t5009 * t5201 * t86 * t21 * t115 + 0.14212230337568676412e4 * t1920 * t1051 * t16408 * t1196 - 0.30159289474462015090e3 * t588 * t7998 * t16328 * t449 - 0.75398223686155037724e2 * t588 * t992 * t16337 * t449 + 0.17054676405082411694e5 * t1920 * t7962 * t16400 * t1196; t16505 = t16327 * t2878; t16539 = 0.93512727392642339754e4 * t16191 * t6 * t16327 * t13555 * t3036 + 0.56548667764616278293e2 * t2 * t16327 * t13588 - 0.12000000000000000000e2 * t1881 * t5187 + 0.94247779607693797155e1 * t2 * t16336 * t1908 - 0.17592918860102842136e3 * t16327 * t1556 * t5660 * t5663 + 0.28424460675137352824e4 * t16505 * t3036 * t62 * t236 * t6 * t120 - t512 * t6 * t16395 * t583 / 0.48e2 + 0.40000000000000000000e1 * t5589 * t147 * t1619 + 0.60000000000000000000e1 * t16327 * t1050 * t449 + 0.30000000000000000000e1 * t16336 * t147 * t449 - 0.75398223686155037724e2 * t1907 * t5177 * t1842 - 0.53863330978161987698e7 * t15593 * t113 * t16327 * t3036 + 0.12566370614359172954e2 * t5173 * t1908 * t5589 + 0.26931665489080993850e7 * t5698 * t113 * t1842 * t5245; t16549 = t236 * t1051 * t16336; t16562 = t22 * t7998 * t16327; t16566 = t22 * t992 * t16336; t16572 = t22 * t349 * t16395; t16575 = t16327 * t418; t16579 = t137 * t138 * (t16487 + t16539) / 0.8e1 + t15225 * t568 / 0.4e1 - 0.3e1 / 0.4e1 * t5136 * t1863 + 0.27e2 / 0.32e2 * t1143 * t16549 + 0.180e3 * t574 * t68 * t16505 * t418 + 0.27e2 * t574 * t68 * t1050 * t16336 * t418 - 0.3e1 / 0.2e1 * t424 * t16562 - 0.3e1 / 0.8e1 * t424 * t16566 + t1594 * t5636 / 0.4e1 + t424 * t16572 / 0.16e2 + 0.2025e4 * t11120 * t16575 * t23; t16580 = t16327 * t1133; t16594 = t236 * t7962 * t16327; t16601 = t16327 * t3063; t16616 = 0.6480e4 * t13698 * t16580 * t23 + 0.3e1 / 0.8e1 * t5136 * t1867 + 0.27e2 / 0.16e2 * t13683 * t1857 - 0.2835e4 / 0.2e1 * t10989 * t16575 * t1291 - 0.27e2 / 0.4e1 * t4257 * t5614 + 0.81e2 / 0.8e1 * t1143 * t16594 + 0.945e3 / 0.32e2 * t8200 * t16422 + 0.3e1 / 0.2e1 * t1594 * t5628 + 0.17280e5 * t15375 * t16601 * t23 - 0.4860e4 * t13785 * t16580 * t1291 - 0.15552e5 * t15394 * t16601 * t1291 - 0.3e1 * t574 * t68 * t384 * t16395 * t418; t16627 = t2926 * t1810 * t1842; t16642 = t1872 * t1842; t16651 = t23 * t1876 * t1842; t16655 = t23 * t575 * t5589; t16659 = t1291 * t4977 * t1842; t16662 = -0.41472e5 * t16100 * t396 * t359 * t9113 * t10987 * t16327 * t8510 * t1291 + 0.405e3 / 0.8e1 * t4100 * t16627 + 0.6912e4 * t5098 * t13834 * t1888 + 0.2592e4 * t1554 * t5099 * t5070 - 0.576e3 * t5098 * t15724 * t1578 - 0.216e3 * t1554 * t1557 * t15364 - 0.216e3 * t574 * t4308 * t16642 + 0.36e2 * t574 * t1566 * t1567 * t5589 + 0.9e1 / 0.4e1 * t424 * t16651 - t424 * t16655 / 0.2e1 - 0.81e2 / 0.8e1 * t1143 * t16659; t16666 = t1291 * t1528 * t5589; t16695 = t4285 * t16327; t16703 = 0.27e2 / 0.8e1 * t4257 * t5618 + 0.9e1 / 0.8e1 * t1143 * t16666 - 0.2592e4 * t5038 * t5075 * t1810 * t23 - 0.6912e4 * t5748 * t13613 * t1810 * t23 - 0.810e3 * t4287 * t16642 * t23 - 0.3e1 / 0.2e1 * t1594 * t5632 + 0.135e3 / 0.4e1 * t2875 * t10653 * t5607 - 0.432e3 * t1887 * t1871 * t16336 * t1133 - 0.3240e4 * t1870 * t8294 * t16575 - 0.8640e4 * t1887 * t8294 * t16580 - 0.405e3 / 0.4e1 * t2875 * t2876 * t16695 - 0.162e3 * t1870 * t1871 * t16336 * t418; t16724 = -0.315e3 * t8579 * t16422 - 0.18e2 * t13222 * t1857 - 0.360e3 * t2875 * t11377 * t5607 - 0.4e1 / 0.3e1 * t137 * t138 * (t16579 + t16616 + t16662 + t16703) + 0.1080e4 * t2875 * t3103 * t16695 - 0.540e3 * t4028 * t16627 - 0.8e1 / 0.3e1 * t15793 * t568 - 0.108e3 * t1076 * t16594 + 0.108e3 * t1076 * t16659 - 0.9e1 * t1076 * t16549 - 0.12e2 * t1076 * t16666; t16749 = 0.72e2 * t4093 * t5614 - 0.36e2 * t4093 * t5618 + 0.16e2 * t399 * t16562 - 0.24e2 * t399 * t16651 + 0.4e1 * t399 * t16566 + 0.16e2 / 0.3e1 * t399 * t16655 - 0.16e2 * t1546 * t5628 + 0.16e2 * t1546 * t5632 + 0.8e1 * t5027 * t1863 - 0.4e1 * t5027 * t1867 - 0.8e1 / 0.3e1 * t1546 * t5636 - 0.2e1 / 0.3e1 * t399 * t16572; t16751 = my_piecewise3(t141, 0.32e2 / 0.3e1 * t201 * t7998 * t16328 - 0.16e2 * t201 * t2754 * t1811 * t1842 + 0.8e1 / 0.3e1 * t201 * t992 * t16337 + 0.32e2 / 0.9e1 * t201 * t992 * t558 * t5589 - 0.4e1 / 0.9e1 * t201 * t349 * t16396 - 0.192e3 * t237 * t7962 * t16400 + 0.1152e4 / 0.5e1 * t237 * t2838 * t1847 * t1842 - 0.144e3 / 0.5e1 * t237 * t1051 * t16408 - 0.192e3 / 0.5e1 * t237 * t1051 * t562 * t5589 + 0.16e2 / 0.5e1 * t237 * t385 * t120 * t16395, t16724 + t16749); if(v4rho4 != NULL && (p->info->flags & XC_FLAGS_HAVE_LXC)) v4sigma4[14] = t9 * (-0.3e1 / 0.8e1 * t7 * t112 * t16751 * t131 - 0.3e1 / 0.2e1 * t7 * t112 * t5767 * t557 - 0.9e1 / 0.4e1 * t7 * t112 * t1934 * t1842 - 0.3e1 / 0.2e1 * t7 * t112 * t602 * t5589 - 0.3e1 / 0.8e1 * t7 * t112 * t176 * t16395); #ifndef XC_DONT_COMPILE_MXC if(order < 5) return; #endif #endif #endif #endif #endif }