1!--------------------------------------------------------------------------------------------------! 2! CP2K: A general program to perform molecular dynamics simulations ! 3! Copyright (C) 2000 - 2019 CP2K developers group ! 4!--------------------------------------------------------------------------------------------------! 5 6! ************************************************************************************************** 7!> \brief Calculates the density_scaled BECKE88 long-range functional 8!> when used in adiabatic hybrids. 9!> The energy is given as 10!> 11!> Ec = 2*lambda*Ex(rho/lambda) + lambda^2*d/dlambda(Ex(rho/lambda)), 12!> 13!> where rho/lambda is the scaled density 14!> \par History 15!> 01.2008 created [mguidon] 16!> \author Manuel Guidon 17! ************************************************************************************************** 18MODULE xc_xbecke88_lr_adiabatic 19 USE bibliography, ONLY: Becke1988,& 20 cite_reference 21 USE cp_array_utils, ONLY: cp_3d_r_p_type 22 USE input_section_types, ONLY: section_vals_type,& 23 section_vals_val_get 24 USE kinds, ONLY: dp 25 USE mathconstants, ONLY: pi,& 26 rootpi 27 USE xc_derivative_set_types, ONLY: xc_derivative_set_type,& 28 xc_dset_get_derivative 29 USE xc_derivative_types, ONLY: xc_derivative_get,& 30 xc_derivative_type 31 USE xc_rho_cflags_types, ONLY: xc_rho_cflags_type 32 USE xc_rho_set_types, ONLY: xc_rho_set_get,& 33 xc_rho_set_type 34#include "../base/base_uses.f90" 35 36 IMPLICIT NONE 37 PRIVATE 38 39 LOGICAL, PRIVATE, PARAMETER :: debug_this_module = .TRUE. 40 CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'xc_xbecke88_lr_adiabatic' 41 REAL(kind=dp), PARAMETER :: beta = 0.0042_dp 42 43 PUBLIC :: xb88_lr_adiabatic_lda_info, xb88_lr_adiabatic_lsd_info, & 44 xb88_lr_adiabatic_lda_eval, xb88_lr_adiabatic_lsd_eval 45CONTAINS 46 47! ************************************************************************************************** 48!> \brief return various information on the functional 49!> \param reference string with the reference of the actual functional 50!> \param shortform string with the shortform of the functional name 51!> \param needs the components needed by this functional are set to 52!> true (does not set the unneeded components to false) 53!> \param max_deriv ... 54!> \par History 55!> 01.2008 created [mguidon] 56!> \author Manuel Guidon 57! ************************************************************************************************** 58 SUBROUTINE xb88_lr_adiabatic_lda_info(reference, shortform, needs, max_deriv) 59 CHARACTER(LEN=*), INTENT(OUT), OPTIONAL :: reference, shortform 60 TYPE(xc_rho_cflags_type), INTENT(inout), OPTIONAL :: needs 61 INTEGER, INTENT(out), OPTIONAL :: max_deriv 62 63 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lda_info', & 64 routineP = moduleN//':'//routineN 65 66 IF (PRESENT(reference)) THEN 67 reference = "A. Becke, Phys. Rev. A 38, 3098 (1988) {LDA version}" 68 END IF 69 IF (PRESENT(shortform)) THEN 70 shortform = "Becke 1988 Exchange Functional (LDA)" 71 END IF 72 IF (PRESENT(needs)) THEN 73 needs%rho = .TRUE. 74 needs%norm_drho = .TRUE. 75 END IF 76 IF (PRESENT(max_deriv)) max_deriv = 1 77 78 END SUBROUTINE xb88_lr_adiabatic_lda_info 79 80! ************************************************************************************************** 81!> \brief return various information on the functional 82!> \param reference string with the reference of the actual functional 83!> \param shortform string with the shortform of the functional name 84!> \param needs the components needed by this functional are set to 85!> true (does not set the unneeded components to false) 86!> \param max_deriv ... 87!> \par History 88!> 01.2008 created [mguidon] 89!> \author Manuel Guidon 90! ************************************************************************************************** 91 SUBROUTINE xb88_lr_adiabatic_lsd_info(reference, shortform, needs, max_deriv) 92 CHARACTER(LEN=*), INTENT(OUT), OPTIONAL :: reference, shortform 93 TYPE(xc_rho_cflags_type), INTENT(inout), OPTIONAL :: needs 94 INTEGER, INTENT(out), OPTIONAL :: max_deriv 95 96 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lsd_info', & 97 routineP = moduleN//':'//routineN 98 99 IF (PRESENT(reference)) THEN 100 reference = "A. Becke, Phys. Rev. A 38, 3098 (1988) {LSD version}" 101 END IF 102 IF (PRESENT(shortform)) THEN 103 shortform = "Becke 1988 Exchange Functional (LSD)" 104 END IF 105 IF (PRESENT(needs)) THEN 106 needs%rho_spin = .TRUE. 107 needs%rho_spin_1_3 = .TRUE. 108 needs%norm_drho_spin = .TRUE. 109 END IF 110 IF (PRESENT(max_deriv)) max_deriv = 3 111 112 END SUBROUTINE xb88_lr_adiabatic_lsd_info 113 114! ************************************************************************************************** 115!> \brief evaluates the becke 88 longrange exchange functional for lda 116!> \param rho_set the density where you want to evaluate the functional 117!> \param deriv_set place where to store the functional derivatives (they are 118!> added to the derivatives) 119!> \param grad_deriv degree of the derivative that should be evalated, 120!> if positive all the derivatives up to the given degree are evaluated, 121!> if negative only the given degree is calculated 122!> \param xb88_lr_ad_params input parameters (scaling) 123!> \par History 124!> 01.2008 created [mguidon] 125!> \author Manuel Guidon 126! ************************************************************************************************** 127 SUBROUTINE xb88_lr_adiabatic_lda_eval(rho_set, deriv_set, grad_deriv, xb88_lr_ad_params) 128 TYPE(xc_rho_set_type), POINTER :: rho_set 129 TYPE(xc_derivative_set_type), POINTER :: deriv_set 130 INTEGER, INTENT(in) :: grad_deriv 131 TYPE(section_vals_type), POINTER :: xb88_lr_ad_params 132 133 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lda_eval', & 134 routineP = moduleN//':'//routineN 135 136 INTEGER :: handle, npoints 137 INTEGER, DIMENSION(:, :), POINTER :: bo 138 REAL(kind=dp) :: epsilon_rho, lambda, omega, sx 139 REAL(kind=dp), DIMENSION(:, :, :), POINTER :: dummy, e_0, e_ndrho, e_ndrho_ndrho, & 140 e_ndrho_ndrho_ndrho, e_ndrho_ndrho_rho, e_ndrho_rho, e_ndrho_rho_rho, e_rho, e_rho_rho, & 141 e_rho_rho_rho, norm_drho, rho 142 TYPE(xc_derivative_type), POINTER :: deriv 143 144 CALL timeset(routineN, handle) 145 NULLIFY (bo) 146 147 CALL section_vals_val_get(xb88_lr_ad_params, "SCALE_X", r_val=sx) 148 CALL section_vals_val_get(xb88_lr_ad_params, "OMEGA", r_val=omega) 149 CALL section_vals_val_get(xb88_lr_ad_params, "LAMBDA", r_val=lambda) 150 151 CALL cite_reference(Becke1988) 152 153 CPASSERT(ASSOCIATED(rho_set)) 154 CPASSERT(rho_set%ref_count > 0) 155 CPASSERT(ASSOCIATED(deriv_set)) 156 CPASSERT(deriv_set%ref_count > 0) 157 CALL xc_rho_set_get(rho_set, rho=rho, & 158 norm_drho=norm_drho, local_bounds=bo, rho_cutoff=epsilon_rho) 159 npoints = (bo(2, 1) - bo(1, 1) + 1)*(bo(2, 2) - bo(1, 2) + 1)*(bo(2, 3) - bo(1, 3) + 1) 160 161 dummy => rho 162 163 e_0 => dummy 164 e_rho => dummy 165 e_ndrho => dummy 166 e_rho_rho => dummy 167 e_ndrho_rho => dummy 168 e_ndrho_ndrho => dummy 169 e_rho_rho_rho => dummy 170 e_ndrho_rho_rho => dummy 171 e_ndrho_ndrho_rho => dummy 172 e_ndrho_ndrho_ndrho => dummy 173 174 IF (grad_deriv >= 0) THEN 175 deriv => xc_dset_get_derivative(deriv_set, "", & 176 allocate_deriv=.TRUE.) 177 CALL xc_derivative_get(deriv, deriv_data=e_0) 178 END IF 179 IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN 180 deriv => xc_dset_get_derivative(deriv_set, "(rho)", & 181 allocate_deriv=.TRUE.) 182 CALL xc_derivative_get(deriv, deriv_data=e_rho) 183 deriv => xc_dset_get_derivative(deriv_set, "(norm_drho)", & 184 allocate_deriv=.TRUE.) 185 CALL xc_derivative_get(deriv, deriv_data=e_ndrho) 186 END IF 187 IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN 188 deriv => xc_dset_get_derivative(deriv_set, "(rho)(rho)", & 189 allocate_deriv=.TRUE.) 190 CALL xc_derivative_get(deriv, deriv_data=e_rho_rho) 191 deriv => xc_dset_get_derivative(deriv_set, "(norm_drho)(rho)", & 192 allocate_deriv=.TRUE.) 193 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho) 194 deriv => xc_dset_get_derivative(deriv_set, & 195 "(norm_drho)(norm_drho)", allocate_deriv=.TRUE.) 196 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho) 197 END IF 198 IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN 199 deriv => xc_dset_get_derivative(deriv_set, "(rho)(rho)(rho)", & 200 allocate_deriv=.TRUE.) 201 CALL xc_derivative_get(deriv, deriv_data=e_rho_rho_rho) 202 deriv => xc_dset_get_derivative(deriv_set, & 203 "(norm_drho)(rho)(rho)", allocate_deriv=.TRUE.) 204 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho_rho) 205 deriv => xc_dset_get_derivative(deriv_set, & 206 "(norm_drho)(norm_drho)(rho)", allocate_deriv=.TRUE.) 207 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_rho) 208 deriv => xc_dset_get_derivative(deriv_set, & 209 "(norm_drho)(norm_drho)(norm_drho)", allocate_deriv=.TRUE.) 210 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_ndrho) 211 END IF 212 IF (grad_deriv > 3 .OR. grad_deriv < -3) THEN 213 CPABORT("derivatives bigger than 3 not implemented") 214 END IF 215 216!$OMP PARALLEL DEFAULT(NONE) & 217!$OMP SHARED(rho, norm_drho, e_0, e_rho, e_ndrho, e_rho_rho) & 218!$OMP SHARED(e_ndrho_rho, e_ndrho_ndrho, e_rho_rho_rho) & 219!$OMP SHARED(e_ndrho_rho_rho, e_ndrho_ndrho_rho) & 220!$OMP SHARED(e_ndrho_ndrho_ndrho, grad_deriv, npoints) & 221!$OMP SHARED(epsilon_rho, sx, omega, lambda) 222 223 CALL xb88_lr_adiabatic_lda_calc(rho=rho, norm_drho=norm_drho, & 224 e_0=e_0, e_rho=e_rho, e_ndrho=e_ndrho, e_rho_rho=e_rho_rho, & 225 e_ndrho_rho=e_ndrho_rho, e_ndrho_ndrho=e_ndrho_ndrho, & 226 e_rho_rho_rho=e_rho_rho_rho, e_ndrho_rho_rho=e_ndrho_rho_rho, & 227 e_ndrho_ndrho_rho=e_ndrho_ndrho_rho, & 228 e_ndrho_ndrho_ndrho=e_ndrho_ndrho_ndrho, grad_deriv=grad_deriv, & 229 npoints=npoints, epsilon_rho=epsilon_rho, & 230 sx=sx, omega=omega, lambda=lambda) 231 232!$OMP END PARALLEL 233 234 CALL timestop(handle) 235 END SUBROUTINE xb88_lr_adiabatic_lda_eval 236 237! ************************************************************************************************** 238!> \brief low level calculation of the becke 88 exchange functional for lda 239!> \param rho alpha or beta spin density 240!> \param norm_drho || grad rho || 241!> \param e_0 adds to it the local value of the functional 242!> \param e_rho e_*: derivative of the functional wrt. to the variables 243!> named where the * is. Everything wrt. to the spin of the arguments. 244!> \param e_ndrho ... 245!> \param e_rho_rho ... 246!> \param e_ndrho_rho ... 247!> \param e_ndrho_ndrho ... 248!> \param e_rho_rho_rho ... 249!> \param e_ndrho_rho_rho ... 250!> \param e_ndrho_ndrho_rho ... 251!> \param e_ndrho_ndrho_ndrho ... 252!> \param grad_deriv ... 253!> \param npoints ... 254!> \param epsilon_rho ... 255!> \param sx scaling-parameter for exchange 256!> \param omega parameter for erfc 257!> \param lambda ... 258!> \par History 259!> 01.2008 created [mguidon] 260!> \author Manuel Guidon 261!> \note 262!> - Just took the lsd code and scaled rho and ndrho by 1/2 (e_0 with 2.0) 263! ************************************************************************************************** 264 SUBROUTINE xb88_lr_adiabatic_lda_calc(rho, norm_drho, & 265 e_0, e_rho, e_ndrho, e_rho_rho, e_ndrho_rho, & 266 e_ndrho_ndrho, e_rho_rho_rho, e_ndrho_rho_rho, e_ndrho_ndrho_rho, & 267 e_ndrho_ndrho_ndrho, grad_deriv, npoints, epsilon_rho, sx, & 268 omega, lambda) 269 INTEGER, INTENT(in) :: npoints, grad_deriv 270 REAL(kind=dp), DIMENSION(1:npoints), INTENT(inout) :: e_ndrho_ndrho_ndrho, & 271 e_ndrho_ndrho_rho, e_ndrho_rho_rho, e_rho_rho_rho, e_ndrho_ndrho, e_ndrho_rho, e_rho_rho, & 272 e_ndrho, e_rho, e_0 273 REAL(kind=dp), DIMENSION(1:npoints), INTENT(in) :: norm_drho, rho 274 REAL(kind=dp), INTENT(in) :: epsilon_rho, sx, omega, lambda 275 276 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lda_calc', & 277 routineP = moduleN//':'//routineN 278 279 INTEGER :: ii 280 REAL(KIND=dp) :: Cx, epsilon_rho43, my_epsilon_rho, my_ndrho, my_rho, t1, t10, t1000, t1002, & 281 t1004, t1008, t1012, t1014, t1019, t102, t1021, t1024, t1026, t103, t1030, t1033, t1034, & 282 t1036, t104, t1040, t1044, t1046, t105, t1050, t1054, t1055, t1056, t1058, t1059, t106, & 283 t1060, t1063, t1064, t1067, t1068, t107, t1071, t1076, t1079, t108, t1082, t1085, t1089, & 284 t1093, t1097, t1099, t11, t1100, t1101, t1106, t1109, t1111, t1119, t112, t1122, t1125, & 285 t1126, t1129, t1134, t1137, t114, t1140, t1141, t1142, t1143, t115, t1150, t1157, t116, & 286 t1161, t1168, t1172, t1176, t1189, t119, t1191, t1192, t1193 287 REAL(KIND=dp) :: t1194, t12, t1200, t1201, t1206, t1207, t1210, t1213, t1216, t122, t1221, & 288 t1224, t123, t1235, t1238, t1239, t1246, t1247, t1254, t126, t1264, t1268, t1275, t1283, & 289 t1284, t1288, t1292, t13, t130, t1300, t1301, t1302, t1309, t131, t1316, t132, t1320, & 290 t133, t1333, t1340, t1347, t1348, t136, t1360, t1367, t1368, t137, t1372, t1373, t1377, & 291 t1387, t1388, t1392, t1396, t1397, t14, t140, t1401, t1406, t1408, t1409, t141, t1410, & 292 t1411, t1413, t1417, t1420, t1425, t1426, t1429, t1436, t1438, t1439, t144, t1440, t1443, & 293 t1444, t1447, t145, t1451, t1455, t1459, t146, t1466, t147, t1470 294 REAL(KIND=dp) :: t1471, t1476, t1479, t1482, t1483, t1485, t1489, t149, t1492, t1493, t1496, & 295 t1498, t15, t150, t1500, t1502, t1504, t1505, t1506, t1507, t1509, t151, t1510, t1512, & 296 t1513, t1515, t1517, t1518, t1519, t1523, t1525, t1528, t1530, t1531, t1535, t1536, & 297 t1541, t1543, t1545, t1546, t1547, t1549, t155, t1552, t1553, t1556, t1557, t156, t1560, & 298 t1563, t1564, t1565, t1568, t1570, t1571, t1574, t1575, t1577, t1579, t1581, t1582, & 299 t1584, t1586, t1588, t1589, t1591, t1592, t1594, t1596, t1597, t1598, t1599, t16, t160, & 300 t1601, t1602, t1603, t1605, t1607, t1608, t161, t1610, t1611, t1613 301 REAL(KIND=dp) :: t1615, t1616, t1617, t1618, t1620, t1621, t1622, t1624, t1625, t1626, & 302 t1628, t1630, t1631, t1632, t1634, t1636, t1638, t164, t1640, t1642, t1644, t1645, t1647, & 303 t1649, t165, t1652, t1654, t1656, t1658, t166, t1660, t1662, t1664, t1667, t1669, t1671, & 304 t1675, t1677, t1679, t1680, t1681, t1684, t1685, t1688, t1689, t1693, t1694, t1696, & 305 t1699, t17, t170, t1700, t1702, t1703, t1705, t1706, t1708, t1709, t171, t1712, t1714, & 306 t1715, t1717, t1718, t1719, t172, t1720, t1722, t1724, t1726, t1728, t1730, t1731, t1735, & 307 t1737, t1740, t1741, t1743, t1745, t1748, t1752, t1754, t1755, t1757 308 REAL(KIND=dp) :: t1758, t176, t1760, t1762, t1763, t1765, t1766, t1768, t1769, t177, t1773, & 309 t1774, t1776, t1777, t1779, t178, t1782, t1784, t1785, t1787, t1789, t1790, t1794, t1795, & 310 t1797, t18, t1800, t1801, t1804, t1807, t1810, t1811, t1814, t1817, t182, t1821, t1822, & 311 t1824, t1825, t1828, t1829, t183, t1832, t1835, t1836, t1837, t1838, t1842, t1843, t1849, & 312 t1852, t1854, t1858, t1861, t1864, t1865, t1868, t187, t1871, t1874, t1875, t1878, t1881, & 313 t1884, t1885, t1886, t189, t1891, t1892, t1895, t1898, t19, t1901, t1902, t1905, t1908, & 314 t1912, t1914, t1917, t192, t1920, t1923, t1924, t1925 315 REAL(KIND=dp) :: t1928, t1932, t1938, t1939, t194, t1940, t1943, t1946, t195, t1952, t1954, & 316 t1958, t196, t1961, t1962, t1965, t1966, t1969, t1971, t1972, t1973, t1974, t1975, t1977, & 317 t1980, t1981, t1984, t1987, t1988, t199, t1991, t1994, t1997, t20, t200, t2000, t2001, & 318 t2002, t2006, t2009, t2013, t2014, t2018, t2022, t2027, t2028, t203, t2031, t2032, t2035, & 319 t2042, t2046, t2050, t2054, t2057, t2058, t2061, t207, t2073, t2074, t2077, t2081, t2082, & 320 t2086, t2088, t2095, t2098, t2099, t2104, t2107, t2113, t2114, t2117, t2118, t2124, & 321 t2126, t2130, t2131, t2138, t2139, t214, t2143, t2147, t2160 322 REAL(KIND=dp) :: t2169, t217, t218, t2182, t2183, t2187, t219, t2190, t2193, t2196, t2197, & 323 t22, t220, t2200, t2201, t2204, t2205, t221, t2220, t2226, t2227, t2230, t224, t225, & 324 t2257, t2261, t2264, t2268, t2272, t2274, t2276, t2279, t2280, t2281, t2282, t2285, & 325 t2287, t2292, t2295, t2296, t2299, t23, t230, t2300, t2304, t2307, t2308, t2311, t2312, & 326 t2319, t2326, t233, t234, t2351, t2368, t237, t2378, t2382, t2392, t24, t2404, t2418, & 327 t2424, t2437, t2439, t245, t2451, t2455, t2468, t2480, t249, t2492, t25, t250, t2537, & 328 t2552, t2565, t2569, t2576, t2585, t26, t260, t2611, t262, t2621, t2622 329 REAL(KIND=dp) :: t2631, t2635, t2636, t264, t2645, t2655, t266, t267, t268, t27, t2707, & 330 t271, t2720, t2724, t2732, t274, t275, t2759, t2763, t2779, t278, t2783, t2808, t2816, & 331 t282, t2821, t2823, t283, t2833, t2843, t2853, t2869, t2873, t2877, t2885, t289, t290, & 332 t2935, t2937, t294, t295, t298, t299, t2992, t2994, t2998, t302, t3026, t3030, t306, & 333 t3069, t307, t3070, t308, t3085, t309, t3093, t3097, t3098, t31, t311, t3129, t313, & 334 t3141, t316, t317, t318, t3181, t321, t322, t3232, t3244, t3248, t326, t3262, t3264, & 335 t3268, t327, t3278, t328, t3288, t329, t3291, t3305, t3306, t3314, t332, t3329 336 REAL(KIND=dp) :: t3339, t3344, t3347, t3352, t3353, t3356, t3357, t336, t3362, t3363, t3366, & 337 t3378, t3379, t3382, t339, t341, t342, t343, t3449, t3453, t347, t3472, t3491, t3494, & 338 t3497, t35, t350, t3501, t3505, t3507, t3512, t3513, t3514, t352, t3525, t3533, t3543, & 339 t3546, t3547, t3552, t3553, t356, t3561, t3569, t357, t3575, t3576, t3580, t3581, t36, & 340 t360, t3608, t3618, t362, t365, t366, t3668, t367, t3673, t3674, t3677, t3679, t368, & 341 t3682, t37, t371, t3711, t372, t3726, t375, t3750, t376, t3763, t379, t3794, t3796, t380, & 342 t3826, t3827, t383, t384, t3842, t3849, t3853, t3861, t3865, t3869 343 REAL(KIND=dp) :: t387, t3871, t3875, t3892, t3918, t392, t3925, t393, t3933, t3939, t394, & 344 t3940, t3965, t3969, t3975, t3979, t398, t3985, t399, t4, t40, t400, t401, t4010, t4018, & 345 t4025, t4032, t405, t406, t4070, t4079, t41, t4101, t4108, t413, t4140, t4156, t417, t42, & 346 t4201, t4214, t4230, t424, t425, t4255, t4256, t4261, t4272, t428, t429, t4292, t43, & 347 t4317, t433, t4345, t4352, t437, t4378, t4392, t44, t4428, t444, t445, t446, t4466, & 348 t4498, t45, t450, t4505, t451, t4512, t4545, t455, t4553, t4575, t4585, t46, t4607, t462, & 349 t4627, t4657, t466, t4696, t47, t470, t4700, t4701, t4704, t4707 350 REAL(KIND=dp) :: t4708, t471, t4713, t4714, t4717, t472, t4721, t4725, t4726, t4729, t473, & 351 t4732, t4733, t4734, t4736, t4738, t4739, t474, t4743, t4744, t4748, t4760, t4764, t4768, & 352 t4769, t4770, t4771, t4772, t4776, t478, t4782, t4786, t4789, t479, t4790, t4793, t4796, & 353 t4797, t48, t4800, t4801, t4804, t4808, t4812, t4817, t4820, t4829, t4830, t4833, t4834, & 354 t4837, t4838, t4849, t4850, t4853, t4857, t4861, t4864, t4869, t4872, t4874, t4878, & 355 t4881, t4884, t4887, t4889, t489, t4893, t4895, t4897, t4898, t49, t4901, t4904, t4905, & 356 t4907, t4908, t4909, t4911, t4915, t4917, t4918, t4920, t4922 357 REAL(KIND=dp) :: t4925, t4929, t4932, t4935, t4940, t4941, t4943, t4945, t4946, t4951, & 358 t4952, t4955, t4958, t496, t498, t4994, t4995, t50, t500, t5001, t5002, t5005, t5008, & 359 t5009, t5011, t5013, t5016, t5019, t5022, t5025, t5028, t5029, t503, t5032, t5035, t5036, & 360 t5040, t5043, t5044, t5047, t5050, t5051, t5060, t5065, t5069, t5079, t508, t5083, t5087, & 361 t5106, t5108, t511, t5115, t5118, t512, t5122, t5123, t5126, t5139, t5143, t5147, t515, & 362 t516, t5163, t517, t5170, t5174, t520, t5226, t5228, t5229, t5237, t5244, t5247, t5251, & 363 t5256, t526, t5262, t527, t5270, t5271, t5276, t5280, t5281, t5284 364 REAL(KIND=dp) :: t5291, t5294, t5295, t5298, t53, t530, t5301, t5303, t5305, t5308, t531, & 365 t5311, t5314, t5317, t5320, t5323, t5326, t5329, t5330, t5333, t5335, t5338, t5339, t534, & 366 t5342, t5343, t5345, t5347, t5351, t5354, t5357, t5360, t5363, t5367, t537, t5370, t5371, & 367 t5373, t5376, t5379, t5383, t5386, t5389, t5397, t5400, t5402, t5406, t5409, t541, t5412, & 368 t5415, t5418, t5421, t5423, t5426, t5429, t5430, t5432, t5436, t5440, t5443, t5446, & 369 t5449, t5451, t5454, t5456, t5459, t5460, t5462, t5466, t5468, t5469, t5472, t5474, & 370 t5478, t5480, t5482, t5484, t5487, t5489, t5492, t5494, t5496, t5499 371 REAL(KIND=dp) :: t55, t550, t5503, t5507, t5509, t551, t5511, t5516, t5523, t5525, t5528, & 372 t5531, t5533, t5535, t5537, t5540, t5541, t5545, t5548, t5551, t5553, t5558, t5560, & 373 t5562, t5564, t5565, t5568, t557, t5572, t5574, t5575, t5579, t558, t5581, t5585, t5590, & 374 t5593, t5595, t5597, t56, t5600, t5602, t5604, t5607, t561, t5610, t5611, t5613, t5619, & 375 t5622, t5625, t5628, t5631, t5632, t5635, t5638, t5641, t5643, t5647, t5650, t5653, & 376 t5657, t566, t5660, t5663, t5666, t5667, t567, t5670, t5671, t5673, t5676, t5679, t5682, & 377 t5686, t5689, t569, t5692, t5695, t5696, t5698, t5699, t57, t5701, t5705 378 REAL(KIND=dp) :: t5713, t5716, t5719, t5722, t5724, t5728, t5731, t5734, t5738, t5741, & 379 t5742, t5745, t5749, t575, t5752, t5756, t5760, t5767, t5770, t5773, t5776, t5780, t5783, & 380 t5786, t5789, t579, t5792, t5795, t5797, t58, t5801, t5804, t5807, t5810, t5813, t5816, & 381 t5819, t5822, t5825, t5828, t5830, t5831, t5833, t5835, t5838, t5841, t5845, t5848, t585, & 382 t5850, t5854, t5857, t5861, t5864, t5868, t5869, t5875, t5880, t5881, t5885, t5888, t589, & 383 t5891, t5898, t59, t590, t5902, t5905, t5908, t5911, t5913, t5918, t5922, t5925, t5926, & 384 t5929, t593, t5932, t5938, t5940, t5942, t5944, t5949, t5952 385 REAL(KIND=dp) :: t5954, t5956, t5958, t5960, t5963, t5964, t5966, t597, t5971, t5973, t5975, & 386 t5977, t5978, t598, t5985, t5990, t5994, t5996, t6, t60, t6000, t6002, t6004, t6006, & 387 t6009, t6017, t6019, t6021, t6023, t6025, t6029, t6031, t6033, t6036, t6040, t6042, & 388 t6044, t6047, t6049, t605, t6052, t6053, t6056, t6058, t6060, t6063, t6066, t6074, t6075, & 389 t6078, t6079, t608, t6087, t609, t6090, t6091, t6094, t6099, t61, t6102, t6106, t6109, & 390 t6112, t6116, t6119, t6123, t6126, t6129, t6132, t6136, t6138, t614, t6141, t6144, t615, & 391 t6155, t6158, t6160, t6162, t6170, t6173, t6175, t6179, t6181, t6185 392 REAL(KIND=dp) :: t6186, t6189, t6192, t6194, t6198, t62, t6201, t6207, t6210, t6213, t6216, & 393 t6219, t6222, t6223, t6227, t624, t6247, t6249, t6252, t6253, t6256, t6257, t6260, t6263, & 394 t6267, t6268, t627, t6271, t628, t6281, t6283, t6290, t6291, t63, t6308, t6338, t6339, & 395 t6344, t635, t6352, t6363, t6367, t637, t6370, t6373, t6375, t6380, t6389, t640, t6400, & 396 t6415, t6428, t6433, t6442, t645, t6451, t646, t6461, t6479, t649, t6490, t6499, t65, & 397 t650, t6509, t6529, t653, t6539, t6554, t6557, t6569, t657, t658, t6583, t6596, t66, & 398 t6603, t6611, t6620, t6621, t6630, t6640, t6658, t6665, t6669, t668 399 REAL(KIND=dp) :: t67, t672, t673, t679, t68, t689, t69, t7, t70, t705, t707, t708, t709, & 400 t71, t710, t713, t716, t719, t722, t723, t728, t729, t732, t735, t739, t74, t747, t753, & 401 t754, t764, t765, t766, t769, t772, t773, t776, t777, t78, t782, t785, t786, t787, t79, & 402 t790, t792, t795, t796, t797, t8, t800, t801, t804, t815, t822, t826, t827, t83, t833, & 403 t84, t85, t851, t852, t855, t857, t859, t86, t862, t863, t864, t865, t866, t867, t87, & 404 t874, t877, t878, t88, t881, t882, t886, t889, t893, t894, t897, t9, t905, t906, t907, & 405 t914, t918, t92, t922, t923, t926, t929, t93, t930, t94, t940, t941 406 REAL(KIND=dp) :: t942, t944, t946, t949, t95, t950, t953, t954, t955, t958, t959, t962, & 407 t963, t966, t969, t97, t972, t973, t974, t975, t976, t979, t98, t980, t983, t984, t987, & 408 t99, t991, t995, t997, xx 409 410 my_epsilon_rho = epsilon_rho 411 epsilon_rho43 = my_epsilon_rho**(4.0_dp/3.0_dp) 412 Cx = 1.5_dp*(3.0_dp/4.0_dp/pi)**(1.0_dp/3.0_dp) 413 414!$OMP DO 415 DO ii = 1, npoints 416 !! scale densities with 0.5 because code comes from LSD 417 my_rho = rho(ii)*0.5_dp 418 my_ndrho = norm_drho(ii)*0.5_dp 419 IF (my_rho > my_epsilon_rho) THEN 420 IF (grad_deriv >= 0) THEN 421 t1 = my_rho**(0.1e1_dp/0.3e1_dp) 422 xx = my_ndrho*MAX(1.0_dp/t1/my_rho, epsilon_rho43) 423 t4 = lambda*my_rho 424 t6 = my_ndrho**2 425 t7 = beta*t6 426 t8 = lambda**2 427 t9 = t8**2 428 t10 = t9**2 429 t11 = 0.1e1_dp/t10 430 t12 = my_rho**2 431 t13 = t9*t8 432 t14 = 0.1e1_dp/t13 433 t15 = t12*t14 434 t16 = t8*lambda 435 t17 = 0.1e1_dp/t16 436 t18 = my_rho*t17 437 t19 = t18**(0.1e1_dp/0.3e1_dp) 438 t20 = t19**2 439 t22 = 0.1e1_dp/t20/t15 440 t23 = t11*t22 441 t24 = beta*my_ndrho 442 t25 = 0.1e1_dp/t9 443 t26 = t19*t18 444 t27 = 0.1e1_dp/t26 445 t31 = LOG(my_ndrho*t25*t27 + SQRT((my_ndrho*t25*t27)**0.2e1_dp + & 446 0.1e1_dp)) 447 t35 = 0.10e1_dp + 0.60e1_dp*t24*t25*t27*t31 448 t36 = 0.1e1_dp/t35 449 t37 = t23*t36 450 t40 = 0.20e1_dp*Cx + 0.20e1_dp*t7*t37 451 t41 = SQRT(t40) 452 t42 = t41*t40 453 t43 = t4*t42 454 t44 = rootpi 455 t45 = 0.1e1_dp/t44 456 t46 = omega*t45 457 t47 = 0.1e1_dp/omega 458 t48 = 0.1e1_dp/t41 459 t49 = t47*t48 460 t50 = t44*t19 461 t53 = erf(0.3000000000e1_dp*t49*t50) 462 t55 = omega*t41 463 t56 = 0.1e1_dp/t19 464 t57 = t45*t56 465 t58 = omega**2 466 t59 = 0.1e1_dp/t58 467 t60 = 0.1e1_dp/t40 468 t61 = t59*t60 469 t62 = pi*t20 470 t63 = t61*t62 471 t65 = EXP(-0.8999999998e1_dp*t63) 472 t66 = t58*t40 473 t67 = 0.1e1_dp/pi 474 t68 = 0.1e1_dp/t20 475 t69 = t67*t68 476 t70 = t65 - 0.10e1_dp 477 t71 = t69*t70 478 t74 = t65 - 0.15e1_dp - 0.5555555558e-1_dp*t66*t71 479 t78 = t44*t53 + 0.3333333334e0_dp*t55*t57*t74 480 t79 = t46*t78 481 t83 = my_rho*t41*omega 482 t84 = t45*t78 483 t85 = t10*lambda 484 t86 = 0.1e1_dp/t85 485 t87 = t86*t22 486 t88 = t87*t36 487 t92 = 0.1e1_dp/t10/t9 488 t93 = t7*t92 489 t94 = t12*my_rho 490 t95 = t94*t86 491 t97 = 0.1e1_dp/t20/t95 492 t98 = t97*t36 493 t99 = t98*my_rho 494 t102 = t7*t11 495 t103 = t35**2 496 t104 = 0.1e1_dp/t103 497 t105 = t22*t104 498 t106 = t9*lambda 499 t107 = 0.1e1_dp/t106 500 t108 = t107*t27 501 t112 = t24*t11 502 t114 = 0.1e1_dp/t19/t15 503 t115 = t114*t31 504 t116 = t115*my_rho 505 t119 = t24*t25 506 t122 = my_ndrho*t11 507 t123 = t114*my_rho 508 t126 = -4*my_ndrho*t107*t27 + 4*t122*t123 509 t130 = 1 + t6*t11*t22 510 t131 = SQRT(t130) 511 t132 = 0.1e1_dp/t131 512 t133 = t27*t126*t132 513 t136 = -0.240e2_dp*t24*t108*t31 + 0.240e2_dp*t112*t116 + 0.60e1_dp & 514 *t119*t133 515 t137 = t105*t136 516 t140 = -0.160e2_dp*t7*t88 + 0.160e2_dp*t93*t99 - 0.20e1_dp*t102* & 517 t137 518 t141 = t84*t140 519 t144 = my_rho*t42 520 t145 = SQRT(0.3141592654e1_dp) 521 t146 = 0.1e1_dp/t145 522 t147 = t44*t146 523 t149 = EXP(-0.9000000000e1_dp*t63) 524 t150 = 0.1e1_dp/t42 525 t151 = t47*t150 526 t155 = t49*t44 527 t156 = t68*my_rho 528 t160 = -0.1500000000e1_dp*t151*t50*t140 - 0.3000000000e1_dp*t155 & 529 *t156*t25 530 t161 = t149*t160 531 t164 = omega*t48 532 t165 = t164*t45 533 t166 = t56*t74 534 t170 = t55*t45 535 t171 = t27*t74 536 t172 = my_rho*t25 537 t176 = t40**2 538 t177 = 0.1e1_dp/t176 539 t178 = t59*t177 540 t182 = t61*pi 541 t183 = t56*my_rho 542 t187 = 0.8999999998e1_dp*t178*t62*t140 + 0.1800000000e2_dp*t182* & 543 t183*t25 544 t189 = t58*t140 545 t192 = t66*t67 546 t194 = 0.1e1_dp/t20/t18 547 t195 = t194*t70 548 t196 = t195*t172 549 t199 = t68*t187 550 t200 = t199*t65 551 t203 = t187*t65 - 0.5555555558e-1_dp*t189*t71 - 0.1111111112e0_dp* & 552 t192*t196 - 0.5555555558e-1_dp*t192*t200 553 t207 = (2*t147*t161) + 0.1666666667e0_dp*t165*t166*t140 & 554 + 0.3333333334e0_dp*t170*t171*t172 + 0.3333333334e0_dp*t55*t57 & 555 *t203 556 !! Multiply with 2.0 because Code comes from LSD 557 558 e_0(ii) = e_0(ii) + (-0.4444444448e0_dp*t43*t79 + t8*(-0.3333333336e0_dp*t83*t141 & 559 - 0.2222222224e0_dp*t144*t46*t207))*sx*2.0_dp 560 END IF 561 IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN 562 t214 = lambda*t42 563 t217 = t4*t41 564 t218 = t10*t16 565 t219 = 0.1e1_dp/t218 566 t220 = t219*t97 567 t221 = t220*t36 568 t224 = t9*t16 569 t225 = 0.1e1_dp/t224 570 t230 = t220*t132 571 t233 = -0.8000000000e1_dp*t24*t225*t114*t31 - 0.8000000000e1_dp* & 572 t7*t230 573 t234 = t105*t233 574 t237 = -0.5333333333e1_dp*t7*t221 - 0.20e1_dp*t102*t234 575 t245 = t44*t68 576 t249 = -0.1500000000e1_dp*t151*t50*t237 + 0.1000000000e1_dp*t49* & 577 t245*t17 578 t250 = t149*t249 579 t260 = t178*t62*t237 580 t262 = pi*t56 581 t264 = t61*t262*t17 582 t266 = 0.8999999998e1_dp*t260 - 0.5999999999e1_dp*t264 583 t267 = t266*t65 584 t268 = t58*t237 585 t271 = t195*t17 586 t274 = t68*t266 587 t275 = t274*t65 588 t278 = t267 - 0.5555555558e-1_dp*t268*t71 + 0.3703703705e-1_dp*t192 & 589 *t271 - 0.5555555558e-1_dp*t192*t275 590 t282 = (2*t147*t250) + 0.1666666667e0_dp*t165*t166*t237 & 591 - 0.1111111111e0_dp*t170*t171*t17 + 0.3333333334e0_dp*t55*t57 & 592 *t278 593 t283 = t46*t282 594 t289 = my_rho*t48*omega 595 t290 = t140*t237 596 t294 = t45*t282 597 t295 = t294*t140 598 t298 = t92*t97 599 t299 = t298*t36 600 t302 = t7*t86 601 t306 = 0.1e1_dp/t10/t224 602 t307 = t7*t306 603 t308 = t12**2 604 t309 = t308*t92 605 t311 = 0.1e1_dp/t20/t309 606 t313 = t311*t36*my_rho 607 t316 = t97*t104 608 t317 = my_rho*t233 609 t318 = t316*t317 610 t321 = t7*t219 611 t322 = t316*t136 612 t326 = 0.1e1_dp/t103/t35 613 t327 = t22*t326 614 t328 = t136*t233 615 t329 = t327*t328 616 t332 = t11*t114 617 t336 = t298*t132 618 t339 = t24*t219 619 t341 = 0.1e1_dp/t19/t95 620 t342 = t341*t31 621 t343 = t342*my_rho 622 t347 = t311*t132*my_rho 623 t350 = t24*t225 624 t352 = t114*t126*t132 625 t356 = my_ndrho*t219 626 t357 = t341*my_rho 627 t360 = 0.28e2_dp/0.3e1_dp*t122*t114 - 0.28e2_dp/0.3e1_dp*t356*t357 628 t362 = t27*t360*t132 629 t365 = t6*my_ndrho 630 t366 = beta*t365 631 t367 = t308*my_rho 632 t368 = 0.1e1_dp/t367 633 t371 = 0.1e1_dp/t131/t130 634 t372 = t368*t126*t371 635 t375 = 0.5600000000e2_dp*t24*t332*t31 + 0.3200000000e2_dp*t7*t336 & 636 - 0.5600000000e2_dp*t339*t343 - 0.3200000000e2_dp*t307*t347 - & 637 0.8000000000e1_dp*t350*t352 + 0.60e1_dp*t119*t362 + 0.8000000000e1_dp & 638 *t366*t372 639 t376 = t105*t375 640 t379 = 0.5866666667e2_dp*t7*t299 + 0.160e2_dp*t302*t234 - 0.5866666667e2_dp & 641 *t307*t313 - 0.160e2_dp*t93*t318 + 0.5333333333e1_dp*t321 & 642 *t322 + 0.40e1_dp*t102*t329 - 0.20e1_dp*t102*t376 643 t380 = t84*t379 644 t383 = t42*omega 645 t384 = t45*t207 646 t387 = t384*t237 647 t392 = 0.9000000000e1_dp*t260 - 0.6000000000e1_dp*t264 648 t393 = t392*t149 649 t394 = t393*t160 650 t398 = 0.1e1_dp/t41/t176 651 t399 = t47*t398 652 t400 = t399*t44 653 t401 = t19*t140 654 t405 = t151*t44 655 t406 = t68*t140 656 t413 = t25*t237 657 t417 = t194*my_rho 658 t424 = 0.2250000000e1_dp*t400*t401*t237 - 0.5000000000e0_dp*t405 & 659 *t406*t17 - 0.1500000000e1_dp*t151*t50*t379 + 0.1500000000e1_dp & 660 *t405*t156*t413 + 0.2000000000e1_dp*t155*t417*t225 - 0.3000000000e1_dp & 661 *t49*t245*t25 662 t425 = t149*t424 663 t428 = omega*t150 664 t429 = t428*t45 665 t433 = t140*t17 666 t437 = t56*t278 667 t444 = t45*t27 668 t445 = t164*t444 669 t446 = t74*my_rho 670 t450 = t114*t74 671 t451 = my_rho*t225 672 t455 = t27*t278 673 t462 = t56*t203 674 t466 = t27*t203 675 t470 = t176*t40 676 t471 = 0.1e1_dp/t470 677 t472 = t59*t471 678 t473 = t472*pi 679 t474 = t20*t140 680 t478 = t178*pi 681 t479 = t56*t140 682 t489 = t27*my_rho 683 t496 = -0.1800000000e2_dp*t473*t474*t237 + 0.5999999999e1_dp*t478 & 684 *t479*t17 + 0.8999999998e1_dp*t178*t62*t379 - 0.1800000000e2_dp & 685 *t478*t183*t413 - 0.6000000000e1_dp*t182*t489*t225 + 0.1800000000e2_dp & 686 *t61*t262*t25 687 t498 = t187*t266 688 t500 = t58*t379 689 t503 = t189*t67 690 t508 = t268*t67 691 t511 = t22*t70 692 t512 = t511*t451 693 t515 = t67*t194 694 t516 = t66*t515 695 t517 = t267*t172 696 t520 = t195*t25 697 t526 = t65*t17 698 t527 = t194*t187*t526 699 t530 = t68*t496 700 t531 = t530*t65 701 t534 = t199*t267 702 t537 = t496*t65 + t498*t65 - 0.5555555558e-1_dp*t500*t71 + 0.3703703705e-1_dp & 703 *t503*t271 - 0.5555555558e-1_dp*t503*t275 - 0.1111111112e0_dp & 704 *t508*t196 + 0.1851851853e0_dp*t192*t512 - 0.1111111112e0_dp & 705 *t516*t517 - 0.1111111112e0_dp*t192*t520 - 0.5555555558e-1_dp & 706 *t508*t200 + 0.3703703705e-1_dp*t192*t527 - 0.5555555558e-1_dp & 707 *t192*t531 - 0.5555555558e-1_dp*t192*t534 708 t541 = (2*t147*t394) + (2*t147*t425) - 0.8333333335e-1_dp & 709 *t429*t166*t290 - 0.5555555557e-1_dp*t165*t171*t433 + & 710 0.1666666667e0_dp*t165*t437*t140 + 0.1666666667e0_dp*t165*t166 & 711 *t379 + 0.1666666667e0_dp*t445*t446*t413 - 0.4444444445e0_dp*t170 & 712 *t450*t451 + 0.3333333334e0_dp*t170*t455*t172 + 0.3333333334e0_dp & 713 *t170*t171*t25 + 0.1666666667e0_dp*t165*t462*t237 - & 714 0.1111111111e0_dp*t170*t466*t17 + 0.3333333334e0_dp*t55*t57* & 715 t537 716 e_rho(ii) = e_rho(ii) + (-0.4444444448e0_dp*t214*t79 - 0.6666666672e0_dp*t217*t46 & 717 *t78*t237 - 0.4444444448e0_dp*t43*t283 + t8*(-0.3333333336e0_dp & 718 *t55*t141 - 0.1666666668e0_dp*t289*t84*t290 - 0.3333333336e0_dp & 719 *t83*t295 - 0.3333333336e0_dp*t83*t380 - 0.2222222224e0_dp*t383 & 720 *t384 - 0.3333333336e0_dp*t83*t387 - 0.2222222224e0_dp*t144* & 721 t46*t541))*sx 722 t550 = beta*t25 723 t551 = t27*t31 724 t557 = 0.60e1_dp*t550*t551 + 0.60e1_dp*t24*t23*t132 725 t558 = t105*t557 726 t561 = 0.40e1_dp*t24*t37 - 0.20e1_dp*t102*t558 727 t566 = pi*t146 728 t567 = t566*t149 729 t569 = t151*t19*t561 730 t575 = t20*t561 731 t579 = t58*t561 732 t585 = 0.8999999998e1_dp*t478*t575*t65 - 0.5555555558e-1_dp*t579 & 733 *t71 - 0.5000000001e0_dp*t60*t561*t65 734 t589 = -0.3000000000e1_dp*t567*t569 + 0.1666666667e0_dp*t165*t166 & 735 *t561 + 0.3333333334e0_dp*t55*t57*t585 736 t590 = t46*t589 737 t593 = t140*t561 738 t597 = t45*t589 739 t598 = t597*t140 740 t605 = t24*t92 741 t608 = my_rho*t557 742 t609 = t316*t608 743 t614 = t136*t557 744 t615 = t327*t614 745 t624 = beta*t11 746 t627 = t97*t132 747 t628 = t627*my_rho 748 t635 = -4*t108 + 4*t332*my_rho 749 t637 = t27*t635*t132 750 t640 = 0.1e1_dp/t308 751 t645 = -0.240e2_dp*beta*t107*t551 - 0.240e2_dp*t24*t87*t132 + & 752 0.240e2_dp*t624*t116 + 0.240e2_dp*t605*t628 + 0.60e1_dp*t550*t133 & 753 + 0.60e1_dp*t119*t637 - 0.60e1_dp*t7*t640*t126*t371 754 t646 = t105*t645 755 t649 = -0.320e2_dp*t24*t88 + 0.160e2_dp*t302*t558 + 0.320e2_dp*t605 & 756 *t99 - 0.160e2_dp*t93*t609 - 0.40e1_dp*t112*t137 + 0.40e1_dp*t102 & 757 *t615 - 0.20e1_dp*t102*t646 758 t650 = t84*t649 759 t653 = t384*t561 760 t657 = t44*pi*t146 761 t658 = t657*t178 762 t668 = t25*t561 763 t672 = 0.2250000000e1_dp*t400*t401*t561 - 0.1500000000e1_dp*t151 & 764 *t50*t649 + 0.1500000000e1_dp*t405*t156*t668 765 t673 = t149*t672 766 t679 = t56*t585 767 t689 = t27*t585 768 t705 = -0.1800000000e2_dp*t473*t474*t561 + 0.8999999998e1_dp*t178 & 769 *t62*t649 - 0.1800000000e2_dp*t478*t183*t668 770 t707 = t187*t59 771 t708 = t707*t177 772 t709 = t561*t65 773 t710 = t62*t709 774 t713 = t58*t649 775 t716 = t140*t177 776 t719 = t579*t67 777 t722 = 0.1e1_dp/lambda 778 t723 = t60*t722 779 t728 = t68*t705 780 t729 = t728*t65 781 t732 = t60*t187 782 t735 = t705*t65 + 0.8999999998e1_dp*t708*t710 - 0.5555555558e-1_dp & 783 *t713*t71 - 0.5000000001e0_dp*t716*t709 - 0.1111111112e0_dp*t719 & 784 *t196 - 0.1000000001e1_dp*t723*t709 - 0.5555555558e-1_dp*t719* & 785 t200 - 0.5555555558e-1_dp*t192*t729 - 0.5000000001e0_dp*t732*t709 786 t739 = 0.1800000000e2_dp*t658*t575*t161 + (2*t147*t673) & 787 - 0.8333333335e-1_dp*t429*t166*t593 + 0.1666666667e0_dp*t165*t679 & 788 *t140 + 0.1666666667e0_dp*t165*t166*t649 + 0.1666666667e0_dp & 789 *t445*t446*t668 + 0.3333333334e0_dp*t170*t689*t172 + 0.1666666667e0_dp & 790 *t165*t462*t561 + 0.3333333334e0_dp*t55*t57*t735 791 e_ndrho(ii) = e_ndrho(ii) + (-0.6666666672e0_dp*t217*t46*t78*t561 - 0.4444444448e0_dp & 792 *t43*t590 + t8*(-0.1666666668e0_dp*t289*t84*t593 - 0.3333333336e0_dp & 793 *t83*t598 - 0.3333333336e0_dp*t83*t650 - 0.3333333336e0_dp & 794 *t83*t653 - 0.2222222224e0_dp*t144*t46*t739))*sx 795 END IF 796 797 IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN 798 t747 = lambda*t41*omega 799 t753 = t4*t48 800 t754 = t237**2 801 t764 = 0.1e1_dp/t10/t13 802 t765 = t764*t311 803 t766 = t765*t36 804 t769 = t316*t233 805 t772 = t233**2 806 t773 = t327*t772 807 t776 = t10*t8 808 t777 = 0.1e1_dp/t776 809 t782 = t765*t132 810 t785 = t6**2 811 t786 = beta*t785 812 t787 = t10**2 813 t790 = t308*t94 814 t792 = 0.1e1_dp/t787/t106 815 t795 = 0.1e1_dp/t19/t790/t792 816 t796 = 0.1e1_dp/t787/t13*t795 817 t797 = t796*t371 818 t800 = 0.1866666667e2_dp*t24*t777*t341*t31 + 0.4000000000e2_dp* & 819 t7*t782 - 0.1066666667e2_dp*t786*t797 820 t801 = t105*t800 821 t804 = 0.1955555555e2_dp*t7*t766 + 0.1066666667e2_dp*t321*t769 + & 822 0.40e1_dp*t102*t773 - 0.20e1_dp*t102*t801 823 t815 = t68*t237 824 t822 = t44*t194 825 t826 = 0.2250000000e1_dp*t399*t50*t754 - 0.1000000000e1_dp*t405* & 826 t815*t17 - 0.1500000000e1_dp*t151*t50*t804 - 0.6666666667e0_dp & 827 *t49*t822*t14 828 t827 = t149*t826 829 t833 = t237*t17 830 t851 = 0.1800000000e2_dp*t472*t62*t754 831 t852 = t56*t237 832 t855 = 0.1200000000e2_dp*t478*t852*t17 833 t857 = t178*t62*t804 834 t859 = pi*t27 835 t862 = 0.2000000000e1_dp*t61*t859*t14 836 t863 = -t851 + t855 + 0.8999999998e1_dp*t857 + t862 837 t864 = t863*t65 838 t865 = t266**2 839 t866 = t865*t65 840 t867 = t58*t804 841 t874 = t511*t14 842 t877 = t194*t266 843 t878 = t877*t526 844 t881 = t68*t863 845 t882 = t881*t65 846 t886 = t68*t865*t65 847 t889 = t864 + t866 - 0.5555555558e-1_dp*t867*t71 + 0.7407407410e-1_dp & 848 *t508*t271 - 0.1111111112e0_dp*t508*t275 - 0.6172839508e-1_dp* & 849 t192*t874 + 0.7407407410e-1_dp*t192*t878 - 0.5555555558e-1_dp*t192 & 850 *t882 - 0.5555555558e-1_dp*t192*t886 851 t893 = (2*t147*t393*t249) + (2*t147*t827) - 0.8333333335e-1_dp & 852 *t429*t166*t754 - 0.1111111111e0_dp*t165*t171*t833 & 853 + 0.3333333334e0_dp*t165*t437*t237 + 0.1666666667e0_dp*t165 & 854 *t166*t804 + 0.1481481481e0_dp*t170*t450*t14 - 0.2222222222e0_dp & 855 *t170*t455*t17 + 0.3333333334e0_dp*t55*t57*t889 856 t894 = t46*t893 857 t897 = t78*t140 858 t905 = my_rho*t150 859 t906 = t905*omega 860 t907 = t140*t754 861 t914 = t379*t237 862 t918 = t140*t804 863 t922 = t45*t893 864 t923 = t922*t140 865 t926 = t294*t379 866 t929 = t306*t311 867 t930 = t929*t36 868 t940 = 0.1e1_dp/t787/t8 869 t941 = t7*t940 870 t942 = t367*t306 871 t944 = 0.1e1_dp/t20/t942 872 t946 = t944*t36*my_rho 873 t949 = t311*t104 874 t950 = t949*t317 875 t953 = t97*t326 876 t954 = my_rho*t772 877 t955 = t953*t954 878 t958 = my_rho*t800 879 t959 = t316*t958 880 t962 = t7*t764 881 t963 = t949*t136 882 t966 = t953*t328 883 t969 = t316*t375 884 t972 = t103**2 885 t973 = 0.1e1_dp/t972 886 t974 = t22*t973 887 t975 = t136*t772 888 t976 = t974*t975 889 t979 = t375*t233 890 t980 = t327*t979 891 t983 = t136*t800 892 t984 = t327*t983 893 t987 = t219*t341 894 t991 = t929*t132 895 t995 = 0.1e1_dp/t787/t224 896 t997 = t995*t795*t371 897 t1000 = t24*t764 898 t1002 = 0.1e1_dp/t19/t309 899 t1004 = t1002*t31*my_rho 900 t1008 = t944*t132*my_rho 901 t1012 = 0.1e1_dp/t787/t776 902 t1014 = t308**2 903 t1019 = 0.1e1_dp/t19/t1014*t787*t10 904 t1021 = t1019*t371*my_rho 905 t1024 = t24*t777 906 t1026 = t341*t126*t132 907 t1030 = t114*t360*t132 908 t1033 = t308*t12 909 t1034 = 0.1e1_dp/t1033 910 t1036 = t1034*t126*t371 911 t1040 = my_ndrho*t764 912 t1044 = -0.280e3_dp/0.9e1_dp*t356*t341 + 0.280e3_dp/0.9e1_dp*t1040* & 913 t1002*my_rho 914 t1046 = t27*t1044*t132 915 t1050 = t368*t360*t371 916 t1054 = beta*t785*my_ndrho 917 t1055 = t1054*t368 918 t1056 = t130**2 919 t1058 = 0.1e1_dp/t131/t1056 920 t1059 = t126*t1058 921 t1060 = t1059*t220 922 t1063 = -0.1866666667e3_dp*t24*t987*t31 - 0.2240000000e3_dp*t7* & 923 t991 + 0.4266666667e2_dp*t786*t997 + 0.1866666667e3_dp*t1000*t1004 & 924 + 0.2240000000e3_dp*t941*t1008 - 0.4266666667e2_dp*t786*t1012 & 925 *t1021 + 0.1866666667e2_dp*t1024*t1026 - 0.1600000000e2_dp*t350 & 926 *t1030 - 0.5066666667e2_dp*t366*t1036 + 0.60e1_dp*t119*t1046 + & 927 0.1600000000e2_dp*t366*t1050 + 0.3200000000e2_dp*t1055*t1060 928 t1064 = t105*t1063 929 t1067 = -0.2737777778e3_dp*t7*t930 - 0.1173333333e3_dp*t93*t769 - & 930 0.320e2_dp*t302*t773 + 0.160e2_dp*t302*t801 + 0.2737777778e3_dp* & 931 t941*t946 + 0.1173333333e3_dp*t307*t950 + 0.320e2_dp*t93*t955 & 932 - 0.160e2_dp*t93*t959 - 0.1955555555e2_dp*t962*t963 - 0.2133333334e2_dp & 933 *t321*t966 + 0.1066666667e2_dp*t321*t969 - 0.120e2_dp*t102 & 934 *t976 + 0.80e1_dp*t102*t980 + 0.40e1_dp*t102*t984 - 0.20e1_dp*t102 & 935 *t1064 936 t1068 = t84*t1067 937 t1071 = t45*t541 938 t1076 = t384*t754 939 t1079 = t1071*t237 940 t1082 = t384*t804 941 t1085 = t379*t17 942 t1089 = t114*t278 943 t1093 = t25*t804 944 t1097 = t187*t865 945 t1099 = t97*t70 946 t1100 = my_rho*t777 947 t1101 = t1099*t1100 948 t1106 = t500*t67 949 t1109 = t187*t863 950 t1111 = t496*t266 951 t1119 = t194*t496*t526 952 t1122 = t199*t866 953 t1125 = t65*t25 954 t1126 = t877*t1125 955 t1129 = t867*t67 956 t1134 = t866*t172 957 t1137 = t268*t515 958 t1140 = t176**2 959 t1141 = 0.1e1_dp/t1140 960 t1142 = t59*t1141 961 t1143 = t1142*pi 962 t1150 = t20*t379 963 t1157 = t27*t140 964 t1161 = t56*t379 965 t1168 = t25*t754 966 t1172 = t225*t237 967 t1176 = t56*t25 968 t1189 = 0.5400000000e2_dp*t1143*t474*t754 - 0.2400000000e2_dp*t473 & 969 *t479*t833 - 0.3600000000e2_dp*t473*t1150*t237 - 0.1800000000e2_dp & 970 *t473*t474*t804 - 0.2000000000e1_dp*t478*t1157*t14 + & 971 0.1200000000e2_dp*t478*t1161*t17 + 0.8999999998e1_dp*t178*t62 & 972 *t1067 + 0.3600000000e2_dp*t473*t183*t1168 + 0.1200000000e2_dp* & 973 t478*t489*t1172 - 0.3600000000e2_dp*t478*t1176*t237 - 0.1800000000e2_dp & 974 *t478*t183*t1093 + 0.8000000000e1_dp*t182*t123* & 975 t777 - 0.1200000000e2_dp*t61*t859*t225 976 t1191 = (t1097*t65) - 0.4938271608e0_dp*t192*t1101 - 0.6172839508e-1_dp & 977 *t503*t874 - 0.1111111112e0_dp*t1106*t275 + (t1109 & 978 *t65) + (2*t1111*t65) + 0.3703703706e0_dp*t508*t512 + & 979 0.7407407410e-1_dp*t503*t878 + 0.7407407410e-1_dp*t192*t1119 - 0.5555555558e-1_dp & 980 *t192*t1122 - 0.2222222224e0_dp*t192*t1126 - 0.1111111112e0_dp & 981 *t1129*t196 - 0.5555555558e-1_dp*t503*t882 - 0.1111111112e0_dp & 982 *t516*t1134 - 0.2222222224e0_dp*t1137*t517 + (t1189 & 983 *t65) 984 t1192 = t67*t22 985 t1193 = t66*t1192 986 t1194 = t267*t451 987 t1200 = t65*t14 988 t1201 = t22*t187*t1200 989 t1206 = t68*t1189 990 t1207 = t1206*t65 991 t1210 = t58*t1067 992 t1213 = t511*t225 993 t1216 = t864*t172 994 t1221 = t498*t526 995 t1224 = t530*t267 996 t1235 = t199*t864 997 t1238 = 0.3703703706e0_dp*t1193*t1194 - 0.5555555558e-1_dp*t503*t886 & 998 - 0.6172839508e-1_dp*t192*t1201 - 0.5555555558e-1_dp*t1129*t200 & 999 - 0.5555555558e-1_dp*t192*t1207 - 0.5555555558e-1_dp*t1210*t71 & 1000 + 0.3703703706e0_dp*t192*t1213 - 0.1111111112e0_dp*t516*t1216 & 1001 - 0.1111111112e0_dp*t508*t534 + 0.7407407410e-1_dp*t516*t1221 - & 1002 0.1111111112e0_dp*t192*t1224 + 0.7407407410e-1_dp*t508*t527 + 0.7407407410e-1_dp & 1003 *t1106*t271 - 0.1111111112e0_dp*t508*t531 - 0.2222222224e0_dp & 1004 *t508*t520 - 0.5555555558e-1_dp*t192*t1235 1005 t1239 = t1191 + t1238 1006 t1246 = t428*t444 1007 t1247 = t74*t140 1008 t1254 = t27*t889 1009 t1264 = t27*t537 1010 t1268 = t341*t74 1011 t1275 = t56*t889 1012 t1283 = -t851 + t855 + 0.9000000000e1_dp*t857 + t862 1013 t1284 = t1283*t149 1014 t1288 = -0.1111111111e0_dp*t165*t171*t1085 - 0.8888888890e0_dp*t170 & 1015 *t1089*t451 + 0.1666666667e0_dp*t445*t446*t1093 + 0.3333333334e0_dp & 1016 *t55*t57*t1239 - 0.8333333335e-1_dp*t429*t462*t754 & 1017 + 0.5555555556e-1_dp*t1246*t1247*t833 + (4*t147*t393* & 1018 t424) + 0.3333333334e0_dp*t170*t1254*t172 - 0.1111111111e0_dp*t165 & 1019 *t466*t833 + 0.3333333334e0_dp*t165*t437*t379 - 0.2222222222e0_dp & 1020 *t170*t1264*t17 + 0.1037037037e1_dp*t170*t1268*t1100 & 1021 + 0.1666666667e0_dp*t165*t166*t1067 + 0.1666666667e0_dp*t165* & 1022 t1275*t140 - 0.8333333335e-1_dp*t1246*t446*t1168 + (2* & 1023 t147*t1284*t160) 1024 t1292 = t278*my_rho 1025 t1300 = 0.1e1_dp/t41/t470 1026 t1301 = t47*t1300 1027 t1302 = t1301*t44 1028 t1309 = t19*t379 1029 t1316 = t194*t140 1030 t1320 = t68*t379 1031 t1333 = t68*t25 1032 t1340 = t22*my_rho 1033 t1347 = -0.5625000000e1_dp*t1302*t401*t754 + 0.1500000000e1_dp*t400 & 1034 *t406*t833 + 0.4500000000e1_dp*t400*t1309*t237 + 0.2250000000e1_dp & 1035 *t400*t401*t804 + 0.3333333333e0_dp*t405*t1316*t14 & 1036 - 0.1000000000e1_dp*t405*t1320*t17 - 0.1500000000e1_dp*t151*t50 & 1037 *t1067 - 0.2250000000e1_dp*t400*t156*t1168 - 0.2000000000e1_dp & 1038 *t405*t417*t1172 + 0.3000000000e1_dp*t405*t1333*t237 + 0.1500000000e1_dp & 1039 *t405*t156*t1093 - 0.3333333333e1_dp*t155*t1340 & 1040 *t777 + 0.4000000000e1_dp*t49*t822*t225 1041 t1348 = t149*t1347 1042 t1360 = t140*t14 1043 t1367 = omega*t398 1044 t1368 = t1367*t45 1045 t1372 = t45*t114 1046 t1373 = t164*t1372 1047 t1377 = t114*t203 1048 t1387 = t392**2 1049 t1388 = t1387*t149 1050 t1392 = t56*t537 1051 t1396 = 0.6666666668e0_dp*t170*t455*t25 + 0.3333333334e0_dp*t445 & 1052 *t1292*t413 + 0.1666666667e0_dp*t165*t462*t804 + (2*t147 & 1053 *t1348) - 0.1111111111e0_dp*t165*t455*t433 - 0.8333333335e-1_dp & 1054 *t429*t166*t918 + 0.3333333334e0_dp*t165*t171*t413 + 0.7407407409e-1_dp & 1055 *t165*t450*t1360 - 0.1666666667e0_dp*t429*t437 & 1056 *t290 + 0.1250000000e0_dp*t1368*t166*t907 - 0.4444444445e0_dp*t1373 & 1057 *t446*t1172 + 0.1481481481e0_dp*t170*t1377*t14 - 0.8888888890e0_dp & 1058 *t170*t450*t225 - 0.1666666667e0_dp*t429*t166*t914 & 1059 + (2*t147*t1388*t160) + 0.3333333334e0_dp*t165*t1392 & 1060 *t237 1061 t1397 = t1288 + t1396 1062 t1401 = -0.3333333336e0_dp*t165*t897*t237 - 0.6666666672e0_dp*t55 & 1063 *t295 - 0.6666666672e0_dp*t55*t380 + 0.8333333340e-1_dp*t906*t84 & 1064 *t907 - 0.3333333336e0_dp*t289*t294*t290 - 0.3333333336e0_dp* & 1065 t289*t84*t914 - 0.1666666668e0_dp*t289*t84*t918 - 0.3333333336e0_dp & 1066 *t83*t923 - 0.6666666672e0_dp*t83*t926 - 0.3333333336e0_dp & 1067 *t83*t1068 - 0.4444444448e0_dp*t383*t1071 - 0.6666666672e0_dp* & 1068 t55*t387 - 0.1666666668e0_dp*t289*t1076 - 0.6666666672e0_dp*t83 & 1069 *t1079 - 0.3333333336e0_dp*t83*t1082 - 0.2222222224e0_dp*t144*t46 & 1070 *t1397 1071 e_rho_rho(ii) = e_rho_rho(ii) + (-0.1333333334e1_dp*t747*t84*t237 - 0.8888888896e0_dp*t214 & 1072 *t283 - 0.3333333336e0_dp*t753*t46*t78*t754 - 0.1333333334e1_dp & 1073 *t217*t46*t282*t237 - 0.6666666672e0_dp*t217*t46*t78* & 1074 t804 - 0.4444444448e0_dp*t43*t894 + t8*t1401)*sx 1075 t1406 = 0.6666666672e0_dp*t747*t84*t561 1076 t1408 = 0.4444444448e0_dp*t214*t590 1077 t1409 = t4*t164 1078 t1410 = t237*t561 1079 t1411 = t84*t1410 1080 t1413 = 0.3333333336e0_dp*t1409*t1411 1081 t1417 = 0.6666666672e0_dp*t217*t46*t589*t237 1082 t1420 = t316*t557 1083 t1425 = t233*t557 1084 t1426 = t327*t1425 1085 t1429 = beta*t225 1086 t1436 = t1033*t940 1087 t1438 = 0.1e1_dp/t19/t1436 1088 t1439 = 0.1e1_dp/t787/t16*t1438 1089 t1440 = t1439*t371 1090 t1443 = -0.8000000000e1_dp*t1429*t115 - 0.2400000000e2_dp*t24*t230 & 1091 + 0.8000000000e1_dp*t366*t1440 1092 t1444 = t105*t1443 1093 t1447 = -0.1066666667e2_dp*t24*t221 + 0.5333333333e1_dp*t321*t1420 & 1094 - 0.40e1_dp*t112*t234 + 0.40e1_dp*t102*t1426 - 0.20e1_dp*t102* & 1095 t1444 1096 t1451 = 0.6666666672e0_dp*t217*t46*t78*t1447 1097 t1455 = 0.6666666672e0_dp*t217*t46*t282*t561 1098 t1459 = t19*t237 1099 t1466 = t68*t17 1100 t1470 = 0.2250000000e1_dp*t400*t1459*t561 - 0.1500000000e1_dp*t151 & 1101 *t50*t1447 - 0.5000000000e0_dp*t405*t1466*t561 1102 t1471 = t149*t1470 1103 t1476 = 0.8333333335e-1_dp*t429*t166*t1410 1104 t1479 = 0.1666666667e0_dp*t165*t679*t237 1105 t1482 = 0.1666666667e0_dp*t165*t166*t1447 1106 t1483 = t17*t561 1107 t1485 = t165*t171*t1483 1108 t1489 = 0.1111111111e0_dp*t170*t689*t17 1109 t1492 = 0.1666666667e0_dp*t165*t437*t561 1110 t1493 = t20*t237 1111 t1496 = 0.1800000000e2_dp*t473*t1493*t561 1112 t1498 = t178*t62*t1447 1113 t1500 = t56*t17 1114 t1502 = t478*t1500*t561 1115 t1504 = -t1496 + 0.8999999998e1_dp*t1498 + 0.5999999999e1_dp*t1502 1116 t1505 = t1504*t65 1117 t1506 = t266*t59 1118 t1507 = t1506*t177 1119 t1509 = 0.8999999998e1_dp*t1507*t710 1120 t1510 = t58*t1447 1121 t1512 = 0.5555555558e-1_dp*t1510*t71 1122 t1513 = t237*t177 1123 t1515 = 0.5000000001e0_dp*t1513*t709 1124 t1517 = 0.3703703705e-1_dp*t719*t271 1125 t1518 = 0.1e1_dp/my_rho 1126 t1519 = t60*t1518 1127 t1523 = 0.5555555558e-1_dp*t719*t275 1128 t1525 = t68*t1504*t65 1129 t1528 = t60*t266 1130 t1530 = 0.5000000001e0_dp*t1528*t709 1131 t1531 = t1505 + t1509 - t1512 - t1515 + t1517 + 0.3333333334e0_dp*t1519 & 1132 *t709 - t1523 - 0.5555555558e-1_dp*t192*t1525 - t1530 1133 t1535 = 0.1800000000e2_dp*t658*t575*t250 + (2*t147*t1471) & 1134 - t1476 + t1479 + t1482 - 0.5555555555e-1_dp*t1485 - t1489 + t1492 & 1135 + 0.3333333334e0_dp*t55*t57*t1531 1136 t1536 = t46*t1535 1137 t1541 = 0.1666666668e0_dp*t165*t897*t561 1138 t1543 = 0.3333333336e0_dp*t55*t598 1139 t1545 = 0.3333333336e0_dp*t55*t650 1140 t1546 = t905*t46 1141 t1547 = t897*t1410 1142 t1549 = 0.8333333340e-1_dp*t1546*t1547 1143 t1552 = 0.1666666668e0_dp*t289*t597*t290 1144 t1553 = t649*t237 1145 t1556 = 0.1666666668e0_dp*t289*t84*t1553 1146 t1557 = t140*t1447 1147 t1560 = 0.1666666668e0_dp*t289*t84*t1557 1148 t1563 = 0.1666666668e0_dp*t289*t294*t593 1149 t1564 = t45*t1535 1150 t1565 = t1564*t140 1151 t1568 = t294*t649 1152 t1570 = 0.3333333336e0_dp*t83*t1568 1153 t1571 = t379*t561 1154 t1574 = 0.1666666668e0_dp*t289*t84*t1571 1155 t1575 = t597*t379 1156 t1577 = 0.3333333336e0_dp*t83*t1575 1157 t1579 = 0.1173333333e3_dp*t24*t299 1158 t1581 = 0.5866666667e2_dp*t93*t1420 1159 t1582 = t24*t86 1160 t1584 = 0.320e2_dp*t1582*t234 1161 t1586 = 0.320e2_dp*t302*t1426 1162 t1588 = 0.160e2_dp*t302*t1444 1163 t1589 = t24*t306 1164 t1591 = 0.1173333333e3_dp*t1589*t313 1165 t1592 = t949*t608 1166 t1594 = 0.5866666667e2_dp*t307*t1592 1167 t1596 = 0.320e2_dp*t605*t318 1168 t1597 = t7*t298 1169 t1598 = t326*my_rho 1170 t1599 = t1598*t1425 1171 t1601 = 0.320e2_dp*t1597*t1599 1172 t1602 = my_rho*t1443 1173 t1603 = t316*t1602 1174 t1605 = 0.160e2_dp*t93*t1603 1175 t1607 = 0.1066666667e2_dp*t339*t322 1176 t1608 = t953*t614 1177 t1610 = 0.1066666667e2_dp*t321*t1608 1178 t1611 = t316*t645 1179 t1613 = 0.5333333333e1_dp*t321*t1611 1180 t1615 = 0.80e1_dp*t112*t329 1181 t1616 = t7*t23 1182 t1617 = t973*t136 1183 t1618 = t1617*t1425 1184 t1620 = 0.120e2_dp*t1616*t1618 1185 t1621 = t645*t233 1186 t1622 = t327*t1621 1187 t1624 = 0.40e1_dp*t102*t1622 1188 t1625 = t136*t1443 1189 t1626 = t327*t1625 1190 t1628 = 0.40e1_dp*t102*t1626 1191 t1630 = 0.40e1_dp*t112*t376 1192 t1631 = t375*t557 1193 t1632 = t327*t1631 1194 t1634 = 0.40e1_dp*t102*t1632 1195 t1636 = 0.5600000000e2_dp*t624*t115 1196 t1638 = 0.1200000000e3_dp*t24*t336 1197 t1640 = 0.1e1_dp/t787/t9 1198 t1642 = t1640*t1438*t371 1199 t1644 = 0.3200000000e2_dp*t366*t1642 1200 t1645 = beta*t219 1201 t1647 = 0.5600000000e2_dp*t1645*t343 1202 t1649 = 0.1200000000e3_dp*t1589*t347 1203 t1652 = t795*t371*my_rho 1204 t1654 = 0.3200000000e2_dp*t366*t995*t1652 1205 t1656 = 0.8000000000e1_dp*t1429*t352 1206 t1658 = t114*t635*t132 1207 t1660 = 0.8000000000e1_dp*t350*t1658 1208 t1662 = 0.3200000000e2_dp*t7*t372 1209 t1664 = 0.60e1_dp*t550*t362 1210 t1667 = 0.28e2_dp/0.3e1_dp*t332 - 0.28e2_dp/0.3e1_dp*t987*my_rho 1211 t1669 = t27*t1667*t132 1212 t1671 = 0.60e1_dp*t119*t1669 1213 t1675 = 0.60e1_dp*t7*t640*t360*t371 1214 t1677 = t368*t635*t371 1215 t1679 = 0.8000000000e1_dp*t366*t1677 1216 t1680 = t786*t368 1217 t1681 = t1059*t23 1218 t1684 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 - t1660 & 1219 + t1662 + t1664 + t1671 - t1675 + t1679 - 0.2400000000e2_dp*t1680 & 1220 *t1681 1221 t1685 = t105*t1684 1222 t1688 = t1579 - t1581 + t1584 - t1586 + t1588 - t1591 + t1594 - t1596 & 1223 + t1601 - t1605 + t1607 - t1610 + t1613 + t1615 - t1620 + t1624 & 1224 + t1628 - t1630 + t1634 - 0.20e1_dp*t102*t1685 1225 t1689 = t84*t1688 1226 t1693 = 0.3333333336e0_dp*t55*t653 1227 t1694 = t45*t739 1228 t1696 = 0.2222222224e0_dp*t383*t1694 1229 t1699 = 0.1666666668e0_dp*t289*t384*t1410 1230 t1700 = t1694*t237 1231 t1702 = 0.3333333336e0_dp*t83*t1700 1232 t1703 = t384*t1447 1233 t1705 = 0.3333333336e0_dp*t83*t1703 1234 t1706 = t1071*t561 1235 t1708 = 0.3333333336e0_dp*t83*t1706 1236 t1709 = t187*t1504 1237 t1712 = t266*t561*t65 1238 t1714 = 0.5000000001e0_dp*t732*t1712 1239 t1715 = t713*t67 1240 t1717 = 0.3703703705e-1_dp*t1715*t271 1241 t1718 = t705*t266 1242 t1719 = t1718*t65 1243 t1720 = t140*t266 1244 t1722 = t177*t561*t65 1245 t1724 = 0.5000000001e0_dp*t1720*t1722 1246 t1726 = t194*t705*t526 1247 t1728 = 0.3703703705e-1_dp*t192*t1726 1248 t1730 = 0.1111111112e0_dp*t719*t520 1249 t1731 = t58*t1688 1250 t1735 = 0.3703703705e-1_dp*t719*t527 1251 t1737 = t722*t561*t65 1252 t1740 = t496*t59 1253 t1741 = t1740*t177 1254 t1743 = 0.8999999998e1_dp*t1741*t710 1255 t1745 = t187*t561*t65 1256 t1748 = t140*t1518 1257 t1752 = 0.1851851853e0_dp*t719*t512 1258 t1754 = 0.5555555558e-1_dp*t1715*t275 1259 t1755 = t1510*t67 1260 t1757 = 0.1111111112e0_dp*t1755*t196 1261 t1758 = t1709*t65 - t1714 + t1717 + t1719 - t1724 + t1728 - t1730 & 1262 - 0.5555555558e-1_dp*t1731*t71 + t1735 + 0.666666666e0_dp*t1519* & 1263 t1737 + t1743 + 0.3333333334e0_dp*t1519*t1745 + 0.3333333334e0_dp* & 1264 t1748*t1722 + t1752 - t1754 - t1757 1265 t1760 = 0.5555555558e-1_dp*t719*t534 1266 t1762 = 0.5555555558e-1_dp*t1755*t200 1267 t1763 = t237*t722 1268 t1765 = 0.1000000001e1_dp*t1763*t1722 1269 t1766 = t237*t187 1270 t1768 = 0.5000000001e0_dp*t1766*t1722 1271 t1769 = t199*t1505 1272 t1773 = 0.5555555558e-1_dp*t719*t531 1273 t1774 = t60*t496 1274 t1776 = 0.5000000001e0_dp*t1774*t709 1275 t1777 = t379*t177 1276 t1779 = 0.5000000001e0_dp*t1777*t709 1277 t1782 = t728*t267 1278 t1784 = 0.5555555558e-1_dp*t192*t1782 1279 t1785 = t579*t515 1280 t1787 = 0.1111111112e0_dp*t1785*t517 1281 t1789 = 0.5555555558e-1_dp*t508*t729 1282 t1790 = t1505*t172 1283 t1794 = 0.1000000001e1_dp*t723*t1712 1284 t1795 = t498*t178 1285 t1797 = 0.8999999998e1_dp*t1795*t710 1286 t1800 = 0.5400000000e2_dp*t1143*t474*t1410 1287 t1801 = t20*t649 1288 t1804 = 0.1800000000e2_dp*t473*t1801*t237 1289 t1807 = 0.1800000000e2_dp*t473*t474*t1447 1290 t1810 = 0.1200000000e2_dp*t473*t479*t1483 1291 t1811 = t56*t649 1292 t1814 = 0.5999999999e1_dp*t478*t1811*t17 1293 t1817 = 0.1800000000e2_dp*t473*t1150*t561 1294 t1821 = t472*t262 1295 t1822 = t172*t1410 1296 t1824 = 0.3600000000e2_dp*t1821*t1822 1297 t1825 = t25*t1447 1298 t1828 = 0.1800000000e2_dp*t478*t183*t1825 1299 t1829 = t225*t561 1300 t1832 = 0.6000000000e1_dp*t478*t489*t1829 1301 t1835 = 0.1800000000e2_dp*t478*t1176*t561 1302 t1836 = t1800 - t1804 - t1807 - t1810 + t1814 - t1817 + 0.8999999998e1_dp & 1303 *t178*t62*t1688 + t1824 - t1828 + t1832 - t1835 1304 t1837 = t68*t1836 1305 t1838 = t1837*t65 1306 t1842 = -t1760 - t1762 - t1765 - t1768 - 0.5555555558e-1_dp*t192*t1769 & 1307 - t1773 - t1776 - t1779 - 0.5555555558e-1_dp*t503*t1525 - t1784 & 1308 - t1787 - t1789 - 0.1111111112e0_dp*t516*t1790 - t1794 + t1797 & 1309 - 0.5555555558e-1_dp*t192*t1838 + t1836*t65 1310 t1843 = t1758 + t1842 1311 t1849 = 0.8333333335e-1_dp*t429*t166*t1571 1312 t1852 = 0.8333333335e-1_dp*t429*t679*t290 1313 t1854 = t165*t466*t1483 1314 t1858 = 0.1666666667e0_dp*t445*t446*t1825 1315 t1861 = 0.1800000000e2_dp*t658*t575*t425 1316 t1864 = 0.1666666667e0_dp*t445*t1292*t668 1317 t1865 = t413*t561 1318 t1868 = 0.8333333335e-1_dp*t1246*t446*t1865 1319 t1871 = 2*t147*t393*t672 1320 t1874 = 0.3333333334e0_dp*t170*t689*t25 1321 t1875 = t114*t585 1322 t1878 = 0.4444444445e0_dp*t170*t1875*t451 1323 t1881 = 0.1666666667e0_dp*t165*t437*t649 1324 t1884 = -t1496 + 0.9000000000e1_dp*t1498 + 0.6000000000e1_dp*t1502 1325 t1885 = t1884*t149 1326 t1886 = t1885*t160 1327 t1891 = 0.5625000000e1_dp*t1302*t401*t1410 1328 t1892 = t19*t649 1329 t1895 = 0.2250000000e1_dp*t400*t1892*t237 1330 t1898 = 0.2250000000e1_dp*t400*t401*t1447 1331 t1901 = 0.7500000000e0_dp*t400*t406*t1483 1332 t1902 = t68*t649 1333 t1905 = 0.5000000000e0_dp*t405*t1902*t17 1334 t1908 = 0.2250000000e1_dp*t400*t1309*t561 1335 t1912 = t399*t245 1336 t1914 = 0.2250000000e1_dp*t1912*t1822 1337 t1917 = 0.1500000000e1_dp*t405*t156*t1825 1338 t1920 = 0.1000000000e1_dp*t405*t417*t1829 1339 t1923 = 0.1500000000e1_dp*t405*t1333*t561 1340 t1924 = -t1891 + t1895 + t1898 + t1901 - t1905 + t1908 - 0.1500000000e1_dp & 1341 *t151*t50*t1688 - t1914 + t1917 - t1920 + t1923 1342 t1925 = t149*t1924 1343 t1928 = t56*t1531 1344 t1932 = t27*t1531 1345 t1938 = 0.1666666667e0_dp*t165*t462*t1447 1346 t1939 = 0.3333333334e0_dp*t55*t57*t1843 - t1849 - t1852 - 0.5555555555e-1_dp & 1347 *t1854 + t1858 + t1861 + t1864 - t1868 + t1871 + t1874 & 1348 - t1878 + t1881 + (2*t147*t1886) + (2*t147*t1925) & 1349 + 0.1666666667e0_dp*t165*t1928*t140 + 0.3333333334e0_dp*t170*t1932 & 1350 *t172 + t1938 1351 t1940 = t27*t735 1352 t1943 = 0.1111111111e0_dp*t170*t1940*t17 1353 t1946 = 0.1666666667e0_dp*t165*t1392*t561 1354 t1952 = 0.5555555557e-1_dp*t165*t689*t433 1355 t1954 = t1373*t446*t1829 1356 t1958 = 0.8333333335e-1_dp*t429*t166*t1553 1357 t1961 = 0.1666666667e0_dp*t165*t679*t379 1358 t1962 = t585*my_rho 1359 t1965 = 0.1666666667e0_dp*t445*t1962*t413 1360 t1966 = t56*t735 1361 t1969 = 0.1666666667e0_dp*t165*t1966*t237 1362 t1971 = t657*t392*t59 1363 t1972 = t177*t20 1364 t1973 = t561*t149 1365 t1974 = t1973*t160 1366 t1975 = t1972*t1974 1367 t1977 = 0.1800000000e2_dp*t1971*t1975 1368 t1980 = 0.2777777778e-1_dp*t1246*t1247*t1483 1369 t1981 = t1367*t57 1370 t1984 = 0.1250000000e0_dp*t1981*t1247*t1410 1371 t1987 = 0.8333333335e-1_dp*t429*t437*t593 1372 t1988 = t649*t17 1373 t1991 = 0.5555555557e-1_dp*t165*t171*t1988 1374 t1994 = 0.8333333335e-1_dp*t429*t166*t1557 1375 t1997 = 0.1666666667e0_dp*t165*t171*t668 1376 t2000 = 0.8333333335e-1_dp*t429*t462*t1410 1377 t2001 = -t1943 + t1946 + 0.1666666667e0_dp*t165*t166*t1688 - t1952 & 1378 - 0.2222222222e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 + t1977 & 1379 + t1980 + t1984 - t1987 - t1991 - t1994 + t1997 - t2000 1380 t2002 = t1939 + t2001 1381 t2006 = -t1541 - t1543 - t1545 + t1549 - t1552 - t1556 - t1560 - t1563 & 1382 - 0.3333333336e0_dp*t83*t1565 - t1570 - t1574 - t1577 - 0.3333333336e0_dp & 1383 *t83*t1689 - t1693 - t1696 - t1699 - t1702 - t1705 - & 1384 t1708 - 0.2222222224e0_dp*t144*t46*t2002 1385 e_ndrho_rho(ii) = e_ndrho_rho(ii) + (-t1406 - t1408 - t1413 - t1417 - t1451 - t1455 - 0.4444444448e0_dp & 1386 *t43*t1536 + t8*t2006)*sx 1387 t2009 = t566*t393 1388 t2013 = t566*t149*t47 1389 t2014 = t398*t19 1390 t2018 = t150*t68 1391 t2022 = t19*t1447 1392 t2027 = t65*t237 1393 t2028 = t575*t2027 1394 t2031 = t56*t561 1395 t2032 = t2031*t526 1396 t2035 = t20*t1447 1397 t2042 = -0.1800000000e2_dp*t473*t2028 + 0.5999999999e1_dp*t478*t2032 & 1398 + 0.8999999998e1_dp*t478*t2035*t65 + t1509 - t1512 + t1517 & 1399 - t1523 + t1515 - 0.5000000001e0_dp*t60*t1447*t65 - t1530 1400 t2046 = -0.3000000000e1_dp*t2009*t569 + 0.4500000000e1_dp*t2013*t2014 & 1401 *t1410 - 0.1000000000e1_dp*t2013*t2018*t1483 - 0.3000000000e1_dp & 1402 *t567*t151*t2022 - t1476 - 0.5555555557e-1_dp*t1485 + t1492 & 1403 + t1482 + t1479 - t1489 + 0.3333333334e0_dp*t55*t57*t2042 1404 t2050 = t45*t2046 1405 t2054 = t786*t640 1406 t2057 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 + t1664 & 1407 + t1662 - t1660 + t1671 + t1679 - t1675 - 0.240e2_dp*t2054*t1060 1408 t2058 = t105*t2057 1409 t2061 = t1579 + t1584 - t1581 - t1586 + t1588 - t1591 - t1596 + t1594 & 1410 + t1601 - t1605 + t1607 + t1615 - t1630 - t1610 - t1620 + t1634 & 1411 + t1628 + t1613 + t1624 - 0.20e1_dp*t102*t2058 1412 t2073 = -t1891 + t1901 + t1908 + t1898 + t1895 - t1905 - 0.1500000000e1_dp & 1413 *t151*t50*t2061 - t1914 - t1920 + t1923 + t1917 1414 t2074 = t149*t2073 1415 t2077 = t161*t17 1416 t2081 = t657*t472 1417 t2082 = t161*t237 1418 t2086 = -t1849 - t1852 - 0.5555555557e-1_dp*t1854 + t1858 + t1861 + & 1419 t1864 - t1868 + t1871 + t1874 + 0.3333333334e0_dp*t170*t27*t2042 & 1420 *t172 - t1878 + (2*t147*t2074) + t1881 + t1938 - t1943 & 1421 + 0.1200000000e2_dp*t658*t2031*t2077 + t1946 - 0.3600000000e2_dp* & 1422 t2081*t575*t2082 1423 t2088 = t56*t2042 1424 t2095 = t1447*t65 1425 t2098 = t140*t471 1426 t2099 = t709*t237 1427 t2104 = t62*t2095 1428 t2107 = -t1714 + t1717 + t1719 - t1724 + t1728 - 0.5000000001e0_dp*t716 & 1429 *t2095 + 0.1000000000e1_dp*t2098*t2099 - 0.1000000001e1_dp*t723 & 1430 *t2095 - t1730 + t1735 + t1743 + 0.8999999998e1_dp*t708*t2104 & 1431 + t1752 - t1754 - t1757 - t1760 1432 t2113 = t177*pi 1433 t2114 = t707*t2113 1434 t2117 = t471*pi 1435 t2118 = t707*t2117 1436 t2124 = t1800 - t1810 - t1817 - t1807 - t1804 + t1814 + 0.8999999998e1_dp & 1437 *t178*t62*t2061 + t1824 + t1832 - t1835 - t1828 1438 t2126 = t68*t2124*t65 1439 t2130 = -0.5000000001e0_dp*t732*t2095 - 0.5555555558e-1_dp*t58*t2061 & 1440 *t71 - t1762 + t1765 + t1768 + 0.5999999999e1_dp*t2114*t2032 & 1441 - t1773 - t1776 - 0.1800000000e2_dp*t2118*t2028 - 0.5555555558e-1_dp & 1442 *t192*t2126 - t1779 - t1784 - t1787 - t1789 - t1794 + t1797 + & 1443 t2124*t65 1444 t2131 = t2107 + t2130 1445 t2138 = -t1952 - 0.2222222223e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 & 1446 + t1977 + t1980 + 0.1666666667e0_dp*t165*t2088*t140 + 0.1800000000e2_dp & 1447 *t658*t2035*t161 + 0.3333333334e0_dp*t55*t57*t2131 & 1448 + t1984 + 0.1666666667e0_dp*t165*t166*t2061 - t1987 - t1991 & 1449 - t1994 + t1997 - t2000 1450 t2139 = t2086 + t2138 1451 t2143 = -t1541 + t1549 - t1563 - t1574 - t1560 - t1543 - t1552 - 0.3333333336e0_dp & 1452 *t83*t2050*t140 - t1577 - t1545 - t1556 - t1570 & 1453 - 0.3333333336e0_dp*t83*t84*t2061 - t1693 - t1699 - t1708 - t1705 & 1454 - t1696 - t1702 - 0.2222222224e0_dp*t144*t46*t2139 1455 e_ndrho_ndrho(ii) = e_ndrho_ndrho(ii) + (-t1406 - t1413 - t1455 - t1451 - t1408 - t1417 - 0.4444444448e0_dp & 1456 *t43*t46*t2046 + t8*t2143)*sx 1457 t2147 = lambda*t48*omega 1458 t2160 = t754*t237 1459 t2169 = t237*t804 1460 t2182 = 0.1e1_dp/t787/lambda 1461 t2183 = t2182*t944 1462 t2187 = t949*t233 1463 t2190 = t953*t772 1464 t2193 = t316*t800 1465 t2196 = t772*t233 1466 t2197 = t974*t2196 1467 t2200 = t233*t800 1468 t2201 = t327*t2200 1469 t2204 = t10*t106 1470 t2205 = 0.1e1_dp/t2204 1471 t2220 = beta*t785*t6 1472 t2226 = -0.6222222223e2_dp*t24*t2205*t1002*t31 - 0.2115555556e3_dp & 1473 *t7*t2183*t132 + 0.1315555556e3_dp*t786/t787/t85*t1019 & 1474 *t371 - 0.4266666668e2_dp*t2220/t1014/t94*t1058 1475 t2227 = t105*t2226 1476 t2230 = -0.9125925923e2_dp*t7*t2183*t36 - 0.5866666667e2_dp*t962 & 1477 *t2187 - 0.3200000001e2_dp*t321*t2190 + 0.1600000000e2_dp*t321* & 1478 t2193 - 0.120e2_dp*t102*t2197 + 0.120e2_dp*t102*t2201 - 0.20e1_dp* & 1479 t102*t2227 1480 t2257 = 0.5400000000e2_dp*t1142*t62*t2160 1481 t2261 = 0.3600000000e2_dp*t473*t56*t754*t17 1482 t2264 = 0.5400000000e2_dp*t473*t1493*t804 1483 t2268 = 0.6000000000e1_dp*t478*t27*t237*t14 1484 t2272 = 0.1800000000e2_dp*t478*t56*t804*t17 1485 t2274 = t178*t62*t2230 1486 t2276 = pi*t114 1487 t2279 = 0.2666666667e1_dp*t61*t2276*t86 1488 t2280 = t2257 - t2261 - t2264 - t2268 + t2272 + 0.8999999998e1_dp*t2274 & 1489 - t2279 1490 t2281 = t2280*t65 1491 t2282 = t881*t267 1492 t2285 = t865*t266 1493 t2287 = t68*t2285*t65 1494 t2292 = t863*t266 1495 t2295 = t2285*t65 1496 t2296 = t58*t2230 1497 t2299 = t194*t865 1498 t2300 = t2299*t526 1499 t2304 = t68*t2280*t65 1500 t2307 = t22*t266 1501 t2308 = t2307*t1200 1502 t2311 = t194*t863 1503 t2312 = t2311*t526 1504 t2319 = t1099*t86 1505 t2326 = -0.1851851853e0_dp*t508*t874 + t2281 - 0.1666666668e0_dp*t192 & 1506 *t2282 - 0.5555555558e-1_dp*t192*t2287 - 0.1666666668e0_dp*t508 & 1507 *t886 + (3*t2292*t65) + t2295 - 0.5555555558e-1_dp*t2296 & 1508 *t71 + 0.1111111112e0_dp*t192*t2300 - 0.5555555558e-1_dp*t192* & 1509 t2304 - 0.1851851853e0_dp*t192*t2308 + 0.1111111112e0_dp*t192*t2312 & 1510 + 0.2222222223e0_dp*t508*t878 - 0.1666666668e0_dp*t508*t882 & 1511 + 0.1646090535e0_dp*t192*t2319 - 0.1666666668e0_dp*t1129*t275 + & 1512 0.1111111112e0_dp*t1129*t271 1513 t2351 = t44*t22 1514 t2368 = t237*t14 1515 t2378 = t804*t17 1516 t2382 = t754*t17 1517 t2392 = (2*t147*t1284*t249) + (2*t147*t1388*t249) & 1518 - 0.3456790122e0_dp*t170*t1268*t86 + 0.4444444444e0_dp*t170* & 1519 t1089*t14 + 0.1666666667e0_dp*t165*t166*t2230 + 0.5000000001e0_dp & 1520 *t165*t437*t804 + 0.3333333334e0_dp*t55*t57*t2326 + 0.2e1_dp & 1521 *(t147)*t149*(-0.5625000000e1_dp*t1301*t50*t2160 + & 1522 0.2250000000e1_dp*t400*t68*t754*t17 + 0.6750000000e1_dp*t400* & 1523 t1459*t804 + 0.1000000000e1_dp*t405*t194*t237*t14 - 0.1500000000e1_dp & 1524 *t405*t68*t804*t17 - 0.1500000000e1_dp*t151*t50* & 1525 t2230 + 0.1111111111e1_dp*t49*t2351*t86) - 0.3333333333e0_dp*t170 & 1526 *t1254*t17 + (4*t147*t393*t826) + 0.5000000001e0_dp* & 1527 t165*t1275*t237 + 0.2222222222e0_dp*t165*t450*t2368 - 0.3333333333e0_dp & 1528 *t165*t455*t833 - 0.2500000000e0_dp*t429*t166*t2169 & 1529 - 0.1666666667e0_dp*t165*t171*t2378 + 0.8333333333e-1_dp*t429 & 1530 *t171*t2382 - 0.2500000000e0_dp*t429*t437*t754 + 0.1250000000e0_dp & 1531 *t1368*t166*t2160 1532 t2404 = t45*t1397 1533 t2418 = t379*t754 1534 t2424 = t1067*t237 1535 t2437 = t7*t792 1536 t2439 = 0.1e1_dp/t20/t1436 1537 t2451 = t940*t944 1538 t2455 = t97*t973 1539 t2468 = t944*t104 1540 t2480 = 0.1e1_dp/t19/t942 1541 t2492 = t1014*my_rho 1542 t2537 = t764*t1002 1543 t2552 = t360*t1058 1544 t2565 = t126/t131/t1056/t130 1545 t2569 = -0.8088888890e3_dp*t24*t2182*t2480*t31*my_rho - 0.1518222222e4_dp & 1546 *t2437*t2439*t132*my_rho + 0.6542222223e3_dp*t786/t2204 & 1547 /t19/t2492*t218*t371*my_rho - 0.6222222223e2_dp*t24*t2205 & 1548 *t1002*t126*t132 + 0.5600000000e2_dp*t1024*t341*t360 & 1549 *t132 + 0.3288888889e3_dp*t366/t790*t126*t371 - 0.2400000000e2_dp & 1550 *t350*t114*t1044*t132 - 0.1520000000e3_dp*t366*t1034* & 1551 t360*t371 - 0.3626666667e3_dp*t1054*t1034*t1060 + 0.60e1_dp*t119 & 1552 *t27*(0.3640e4_dp/0.27e2_dp*t1040*t1002 - 0.3640e4_dp/0.27e2_dp & 1553 *my_ndrho*t2182*t2480*my_rho)*t132 + 0.8088888890e3_dp*t24*t2537 & 1554 *t31 + 0.1518222222e4_dp*t7*t2451*t132 - 0.6542222223e3_dp* & 1555 t786*t1012*t1019*t371 + 0.2400000000e2_dp*t366*t368*t1044 & 1556 *t371 + 0.9600000000e2_dp*t1055*t2552*t220 - 0.1173333333e3_dp & 1557 *t1055*t1059*t765 + 0.2133333333e3_dp*beta*t785*t365*t368 & 1558 *t2565*t796 1559 t2576 = 0.40e1_dp*t102*t327*t136*t2226 + 0.3519999999e3_dp*t93 & 1560 *t2190 - 0.1551407408e4_dp*t2437*t2439*t36*my_rho + 0.960e2_dp* & 1561 t1597*t1598*t2200 + 0.120e2_dp*t102*t327*t375*t800 + 0.1551407408e4_dp & 1562 *t7*t2451*t36 - 0.960e2_dp*t93*t2455*my_rho*t2196 & 1563 + 0.120e2_dp*t102*t327*t1063*t233 + 0.1600000000e2_dp*t321 & 1564 *t316*t1063 + 0.9125925923e2_dp*t7*t2182*t2468*t136 + 0.1760000000e3_dp & 1565 *t307*t949*t958 - 0.360e2_dp*t1616*t1617*t2200 & 1566 - 0.20e1_dp*t102*t105*t2569 - 0.6400000001e2_dp*t321*t953*t979 1567 t2585 = 0.1e1_dp/t972/t35 1568 t2611 = t311*t326 1569 t2621 = -0.3200000001e2_dp*t321*t953*t983 - 0.160e2_dp*t93*t316 & 1570 *my_rho*t2226 + 0.480e2_dp*t102*t22*t2585*t136*t2196 - 0.1760000000e3_dp & 1571 *t93*t2193 + 0.960e2_dp*t302*t2197 + 0.160e2_dp*t302 & 1572 *t2227 - 0.960e2_dp*t302*t2201 - 0.8213333332e3_dp*t941*t2468 & 1573 *t317 + 0.8213333332e3_dp*t307*t2187 + 0.9600000002e2_dp*t321* & 1574 t2455*t975 - 0.360e2_dp*t102*t974*t375*t772 - 0.3519999999e3_dp & 1575 *t307*t2611*t954 + 0.1173333334e3_dp*t962*t2611*t328 - & 1576 0.5866666667e2_dp*t962*t949*t375 1577 t2622 = t2576 + t2621 1578 t2631 = t282*t140 1579 t2635 = -0.1000000001e1_dp*t55*t923 - 0.3333333336e0_dp*t83*t384 & 1580 *t2230 - 0.5000000004e0_dp*t165*t897*t804 - 0.6666666672e0_dp*t383 & 1581 *t2404 - 0.1000000001e1_dp*t83*t1071*t804 - 0.5000000004e0_dp & 1582 *t164*t1076 - 0.1000000001e1_dp*t289*t294*t914 - 0.5000000004e0_dp & 1583 *t289*t294*t918 + 0.2500000002e0_dp*t906*t84*t2418 - & 1584 0.2000000001e1_dp*t55*t1079 - 0.5000000004e0_dp*t289*t84*t2424 & 1585 + 0.2500000002e0_dp*t1546*t897*t2169 - 0.3333333336e0_dp*t83* & 1586 t84*t2622 + 0.2500000002e0_dp*t906*t294*t907 - 0.1000000001e1_dp & 1587 *t55*t1082 - 0.1000000001e1_dp*t165*t2631*t237 1588 t2636 = t78*t379 1589 t2645 = t379*t804 1590 t2655 = t140*t2230 1591 t2707 = t74*t379 1592 t2720 = t56*t1239 1593 t2724 = 0.5000000001e0_dp*t165*t1392*t804 - 0.1333333334e1_dp*t165 & 1594 *t450*t1172 - 0.2666666667e1_dp*t170*t1089*t225 + 0.8333333333e-1_dp & 1595 *t429*t466*t2382 + 0.1000000000e1_dp*t170*t1254*t25 & 1596 + 0.1666666667e0_dp*t165*t166*t2622 + 0.1666666667e0_dp*t165* & 1597 t56*t2326*t140 - 0.2500000000e0_dp*t429*t166*t2424 - 0.3333333333e0_dp & 1598 *t165*t455*t1085 - 0.1728395062e0_dp*t165*t1268* & 1599 t140*t86 - 0.2500000000e0_dp*t1246*t446*t413*t804 + 0.1666666666e0_dp & 1600 *t1246*t2707*t833 + 0.1250000000e0_dp*t1368*t462*t2160 & 1601 - 0.1666666667e0_dp*t165*t466*t2378 + (6*t147*t1283 & 1602 *t394) + 0.5000000001e0_dp*t165*t2720*t237 1603 t2732 = my_rho*t2205 1604 t2759 = t25*t2230 1605 t2763 = t1367*t444 1606 t2779 = t25*t2160 1607 t2783 = -0.2500000000e0_dp*t429*t1392*t754 + (6*t147*t393 & 1608 *t1347) - 0.3456790123e1_dp*t170*t1002*t74*t2732 + 0.5000000001e0_dp & 1609 *t165*t1275*t379 - 0.1333333334e1_dp*t170*t114*t889 & 1610 *t451 + 0.3333333334e0_dp*t170*t27*t2326*t172 - 0.2500000000e0_dp & 1611 *t429*t171*t1168 + 0.3750000000e0_dp*t1981*t1247*t2169 & 1612 + 0.5000000001e0_dp*t165*t171*t1093 + 0.8333333334e-1_dp*t1246 & 1613 *t1247*t2378 + 0.1666666667e0_dp*t445*t446*t2759 - 0.1250000000e0_dp & 1614 *t2763*t1247*t2382 + 0.5000000001e0_dp*t165*t437*t1067 & 1615 + 0.2222222222e0_dp*t165*t1089*t1360 + 0.1000000000e1_dp*t165 & 1616 *t455*t413 - 0.2500000000e0_dp*t429*t462*t2169 + 0.1250000000e0_dp & 1617 *t2763*t446*t2779 1618 t2808 = t19*t1067 1619 t2816 = t225*t754 1620 t2821 = 0.1e1_dp/t41/t1140 1621 t2823 = t47*t2821*t44 1622 t2833 = -0.1687500000e2_dp*t1302*t401*t2169 + 0.6750000000e1_dp*t400 & 1623 *t1309*t804 + 0.4500000000e1_dp*t400*t1320*t833 - 0.1500000000e1_dp & 1624 *t400*t1316*t2368 + 0.1000000000e1_dp*t405*t194*t379 & 1625 *t14 + 0.8888888888e1_dp*t155*t97*my_rho*t2205 + 0.6750000000e1_dp & 1626 *t400*t2808*t237 - 0.1500000000e1_dp*t405*t68*t1067 & 1627 *t17 + 0.4500000000e1_dp*t400*t417*t2816 + 0.1968750000e2_dp*t2823 & 1628 *t401*t2160 + 0.1500000000e1_dp*t405*t156*t2759 + 0.2250000000e1_dp & 1629 *t400*t401*t2230 1630 t2843 = t777*t237 1631 t2853 = t172*t2169 1632 t2869 = t225*t804 1633 t2873 = t194*t225 1634 t2877 = -0.1500000000e1_dp*t151*t50*t2622 + 0.5625000000e1_dp*t1302 & 1635 *t156*t2779 - 0.6750000000e1_dp*t400*t1333*t754 + 0.4999999999e1_dp & 1636 *t405*t1340*t2843 - 0.1000000000e2_dp*t49*t2351*t777 & 1637 - 0.5625000000e1_dp*t1302*t406*t2382 - 0.6750000000e1_dp*t1912 & 1638 *t2853 - 0.5555555555e0_dp*t405*t22*t140*t86 + 0.4500000000e1_dp & 1639 *t405*t1333*t804 + 0.2250000000e1_dp*t400*t406*t2378 - & 1640 0.1687500000e2_dp*t1302*t1309*t754 - 0.3000000000e1_dp*t405*t417 & 1641 *t2869 - 0.6000000000e1_dp*t405*t2873*t237 1642 t2885 = t428*t1372 1643 t2935 = -0.2500000000e0_dp*t429*t166*t2645 + (2*t147*t149 & 1644 *(t2833 + t2877)) + 0.5000000001e0_dp*t445*t1292*t1093 + 0.3333333333e0_dp & 1645 *t2885*t446*t2816 + 0.2222222222e0_dp*t165*t1377 & 1646 *t2368 - 0.3333333333e0_dp*t165*t1264*t833 + 0.2e1_dp*(t147) & 1647 *(t2257 - t2261 - t2264 - t2268 + t2272 + 0.9000000000e1_dp*t2274 & 1648 - t2279)*(t149)*t160 - 0.3333333333e0_dp*t170*t27*t1239 & 1649 *t17 - 0.8333333335e-1_dp*t429*t166*t2655 + (6*t147 & 1650 *t1284*t424) + 0.2e1_dp*(t147)*t1387*t392*(t149)* & 1651 t160 - 0.2500000000e0_dp*t1246*t1292*t1168 - 0.1666666667e0_dp* & 1652 t165*t1254*t433 + (6*t147*t1388*t424) + 0.1666666667e0_dp & 1653 *t165*t462*t2230 + 0.2222222222e0_dp*t165*t450*t379*t14 & 1654 - 0.5000000001e0_dp*t429*t437*t914 1655 t2937 = t164*t45*t341 1656 t2992 = 0.1e1_dp/t1140/t40 1657 t2994 = t59*t2992*pi 1658 t2998 = t27*t225 1659 t3026 = 0.1620000000e3_dp*t1143*t474*t2169 + 0.1080000000e3_dp*t1143 & 1660 *t479*t2382 - 0.2160000000e3_dp*t2994*t474*t2160 + 0.3600000000e2_dp & 1661 *t478*t2998*t237 + 0.1620000000e3_dp*t1143*t1150* & 1662 t754 + 0.2666666667e1_dp*t478*t114*t140*t86 - 0.3600000000e2_dp & 1663 *t473*t479*t2378 + 0.1080000000e3_dp*t1821*t2853 - 0.7200000000e2_dp & 1664 *t473*t1161*t833 - 0.1800000000e2_dp*t473*t474*t2230 & 1665 + 0.8999999998e1_dp*t178*t62*t2622 - 0.5400000000e2_dp*t478* & 1666 t1176*t804 1667 t3030 = t20*t1067 1668 t3069 = -0.1800000000e2_dp*t478*t183*t2759 - 0.5400000000e2_dp*t473 & 1669 *t3030*t237 - 0.6000000000e1_dp*t478*t27*t379*t14 - 0.5400000000e2_dp & 1670 *t473*t1150*t804 + 0.1800000000e2_dp*t478*t489* & 1671 t2869 + 0.1080000000e3_dp*t473*t1176*t754 + 0.1800000000e2_dp*t478 & 1672 *t56*t1067*t17 - 0.3600000000e2_dp*t473*t489*t2816 - 0.1866666667e2_dp & 1673 *t182*t357*t2205 + 0.2400000000e2_dp*t61*t2276 & 1674 *t777 - 0.2400000000e2_dp*t478*t123*t2843 - 0.1080000000e3_dp* & 1675 t1143*t183*t2779 + 0.1200000000e2_dp*t473*t1157*t2368 1676 t3070 = t3026 + t3069 1677 t3085 = t1210*t67 1678 t3093 = (3*t496*t865*t65) + (3*t1189*t266*t65) & 1679 + 0.1111111112e1_dp*(t192)*(t2307)*(t65)*(t225) & 1680 + (t187*t2280*t65) + (3*t496*t863*t65) + 0.2222222223e0_dp & 1681 *t516*t1111*t526 + (t187*t2285*t65) + (t3070 & 1682 *t65) - 0.1851851853e0_dp*t1193*t498*t1200 + 0.2222222223e0_dp & 1683 *t508*t1119 + 0.1111111112e0_dp*(t192)*t194*(t1189) & 1684 *t526 + 0.2222222223e0_dp*t1137*t1221 - 0.1666666668e0_dp*t1129 & 1685 *t534 + 0.1111111112e0_dp*t3085*t271 - 0.5555555558e-1_dp*(t192) & 1686 *(t199)*(t2281) - 0.1851851853e0_dp*t508*t1201 1687 t3097 = t66*t69 1688 t3098 = t1109*t267 1689 t3129 = t2296*t67 1690 t3141 = -0.3333333336e0_dp*t192*t2299*t1125 - 0.1666666668e0_dp*t3097 & 1691 *t3098 + 0.1111111112e0_dp*t503*t2300 + 0.1111111112e0_dp*t1129 & 1692 *t527 - 0.1666666668e0_dp*t1129*t531 - 0.5555555558e-1_dp*t192 & 1693 *t68*t3070*t65 + 0.1646090535e0_dp*t192*t97*t187*t65* & 1694 t86 + 0.5555555559e0_dp*t1129*t512 - 0.1666666668e0_dp*t192*t530 & 1695 *t864 - 0.1666666668e0_dp*t1106*t882 - 0.1666666668e0_dp*t192* & 1696 t530*t866 - 0.1481481482e1_dp*t192*t1099*t777 - 0.1111111112e0_dp & 1697 *t3129*t196 + 0.5555555559e0_dp*t1193*t866*t451 - 0.1666666668e0_dp & 1698 *t503*t2282 - 0.1666666668e0_dp*t3085*t275 + 0.1111111112e0_dp & 1699 *t503*t2312 1700 t3181 = -0.1851851853e0_dp*t1106*t874 - 0.1666666668e0_dp*t508*t1235 & 1701 - 0.3333333336e0_dp*t508*t1224 - 0.1111111112e0_dp*t516*t2281 & 1702 *t172 + 0.1111111112e0_dp*t516*t1097*t526 + 0.2222222223e0_dp* & 1703 t1106*t878 - 0.1851851853e0_dp*t503*t2308 - 0.3333333336e0_dp*t1137 & 1704 *t1216 + (3*t3098) + 0.1111111112e0_dp*t516*t1109*t526 & 1705 - 0.5555555558e-1_dp*t503*t2287 - 0.3333333336e0_dp*t192*t2311 & 1706 *t1125 - 0.6666666672e0_dp*t508*t1126 + 0.1646090535e0_dp*t503 & 1707 *t2319 - 0.5555555558e-1_dp*t3129*t200 - 0.5555555558e-1_dp*t58 & 1708 *t2622*t71 - 0.1666666668e0_dp*t1106*t886 1709 t3232 = -0.1666666668e0_dp*t192*t1206*t267 - 0.5555555558e-1_dp*t192 & 1710 *t199*t2295 - 0.1666666668e0_dp*t508*t1122 - 0.3333333336e0_dp & 1711 *t1129*t520 - 0.1111111112e0_dp*t516*t2295*t172 - 0.1481481482e1_dp & 1712 *t66*t67*t97*t267*t1100 - 0.1851851853e0_dp*t192* & 1713 t22*t496*t1200 - 0.3333333336e0_dp*t516*t2292*t65*my_rho* & 1714 t25 + 0.1810699590e1_dp*t192*t311*t70*t2732 - 0.5555555558e-1_dp & 1715 *t503*t2304 - 0.1481481482e1_dp*t508*t1101 - 0.3333333336e0_dp* & 1716 t867*t515*t517 + 0.1111111112e1_dp*t268*t1192*t1194 + 0.5555555559e0_dp & 1717 *t1193*t864*t451 + 0.1111111112e1_dp*t508*t1213 - & 1718 0.1666666668e0_dp*t508*t1207 - 0.3333333336e0_dp*t1137*t1134 1719 t3244 = t278*t140 1720 t3248 = t889*my_rho 1721 t3262 = omega*t1300 1722 t3264 = t140*t2160 1723 t3268 = 0.1555555556e1_dp*t2937*t446*t2843 + 0.3111111111e1_dp*t170 & 1724 *t1268*t777 - 0.2500000000e0_dp*t429*t1275*t290 - 0.1333333334e1_dp & 1725 *t1373*t1292*t1172 + 0.3111111111e1_dp*t170*t341*t278 & 1726 *t1100 - 0.3456790122e0_dp*t170*t341*t203*t86 + 0.3750000000e0_dp & 1727 *t1368*t166*t2418 + 0.4444444444e0_dp*t170*t114*t537 & 1728 *t14 + 0.3333333334e0_dp*t55*t57*(t3093 + t3141 + t3181 + t3232) & 1729 - 0.1111111111e0_dp*t2885*t1247*t2368 - 0.6666666668e0_dp*t1373 & 1730 *t446*t2869 + 0.1666666667e0_dp*t1246*t3244*t833 + 0.5000000001e0_dp & 1731 *t445*t3248*t413 - 0.1666666667e0_dp*t165*t171* & 1732 t1067*t17 - 0.2500000000e0_dp*t429*t437*t918 + 0.3750000000e0_dp & 1733 *t1368*t437*t907 - 0.3125000000e0_dp*t3262*t45*t166*t3264 1734 t3278 = my_rho*t398 1735 t3288 = -0.1000000001e1_dp*t165*t2636*t237 - 0.2000000001e1_dp*t55 & 1736 *t926 - 0.1000000001e1_dp*t83*t922*t379 - 0.5000000004e0_dp*t289 & 1737 *t84*t2645 + 0.2500000002e0_dp*t429*t897*t754 - 0.1000000001e1_dp & 1738 *t83*t294*t1067 - 0.1666666668e0_dp*t289*t84*t2655 & 1739 - 0.1000000001e1_dp*t83*t2404*t237 - 0.5000000004e0_dp*t289*t922 & 1740 *t290 - 0.5000000004e0_dp*t289*t384*t2169 - 0.5000000004e0_dp & 1741 *t289*t1071*t754 - 0.2222222224e0_dp*t144*t46*(t2724 + t2783 & 1742 + t2935 + t3268) - 0.3333333336e0_dp*t83*t45*t2392*t140 - & 1743 0.1250000001e0_dp*t3278*omega*t84*t3264 - 0.1000000001e1_dp*t55 & 1744 *t1068 + 0.8333333340e-1_dp*t906*t384*t2160 1745 t3291 = -0.1000000001e1_dp*t2147*t84*t754 - 0.4000000002e1_dp*t747 & 1746 *t294*t237 - 0.2000000001e1_dp*t747*t84*t804 - 0.1333333334e1_dp & 1747 *t214*t894 + 0.1666666668e0_dp*t4*t150*t46*t78*t2160 & 1748 - 0.1000000001e1_dp*t753*t46*t282*t754 - 0.1000000001e1_dp*t1409 & 1749 *t84*t2169 - 0.2000000001e1_dp*t217*t46*t893*t237 - 0.2000000001e1_dp & 1750 *t217*t46*t282*t804 - 0.6666666672e0_dp*t217* & 1751 t46*t78*t2230 - 0.4444444448e0_dp*t43*t46*t2392 + t8*(t2635 & 1752 + t3288) 1753 END IF 1754 IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN 1755 e_rho_rho_rho(ii) = e_rho_rho_rho(ii) + t3291*sx 1756 t3305 = t4*t428 1757 t3306 = t754*t561 1758 t3314 = t237*t1447 1759 t3329 = t804*t561 1760 t3339 = t949*t557 1761 t3344 = t953*t1425 1762 t3347 = t316*t1443 1763 t3352 = t772*t557 1764 t3353 = t974*t3352 1765 t3356 = t233*t1443 1766 t3357 = t327*t3356 1767 t3362 = t800*t557 1768 t3363 = t327*t3362 1769 t3366 = beta*t777 1770 t3378 = 0.1866666667e2_dp*t3366*t342 + 0.9866666667e2_dp*t24*t782 & 1771 - 0.8266666668e2_dp*t366*t797 + 0.3200000001e2_dp*t1054/t1014/ & 1772 t12*t1058 1773 t3379 = t105*t3378 1774 t3382 = 0.3911111110e2_dp*t24*t766 - 0.1955555555e2_dp*t962*t3339 & 1775 + 0.2133333334e2_dp*t339*t769 - 0.2133333334e2_dp*t321*t3344 + & 1776 0.1066666667e2_dp*t321*t3347 + 0.80e1_dp*t112*t773 - 0.120e2_dp*t102 & 1777 *t3353 + 0.80e1_dp*t102*t3357 - 0.40e1_dp*t112*t801 + 0.40e1_dp & 1778 *t102*t3363 - 0.20e1_dp*t102*t3379 1779 t3449 = t1447*t17 1780 t3453 = (2*t147*t1885*t249) + 0.1800000000e2_dp*(t1971) & 1781 *(t1972)*(t1973)*(t249) + (2*t147*t393 & 1782 *t1470) + 0.1800000000e2_dp*t658*t575*t827 + 0.2e1_dp*(t147) & 1783 *t149*(-0.5625000000e1_dp*t1302*t19*t754*t561 + 0.4500000000e1_dp & 1784 *t400*t1459*t1447 + 0.1500000000e1_dp*t400*t815*t1483 & 1785 - 0.1000000000e1_dp*t405*t68*t1447*t17 + 0.2250000000e1_dp* & 1786 t400*t19*t804*t561 - 0.1500000000e1_dp*t151*t50*t3382 + 0.3333333334e0_dp & 1787 *t405*t194*t14*t561) + 0.1250000000e0_dp*t1368 & 1788 *t166*t3306 - 0.8333333335e-1_dp*t429*t679*t754 - 0.1666666667e0_dp & 1789 *t429*t166*t3314 + 0.5555555555e-1_dp*t1246*t74*t237 & 1790 *t1483 - 0.1111111111e0_dp*t165*t689*t833 - 0.1111111111e0_dp* & 1791 t165*t171*t3449 1792 t3472 = t14*t561 1793 t3491 = 0.5400000000e2_dp*t1143*t20*t754*t561 1794 t3494 = 0.3600000000e2_dp*t473*t1493*t1447 1795 t3497 = 0.2400000000e2_dp*t473*t852*t1483 1796 t3501 = 0.1200000000e2_dp*t478*t56*t1447*t17 1797 t3505 = 0.1800000000e2_dp*t473*t20*t804*t561 1798 t3507 = t178*t62*t3382 1799 t3512 = 0.2000000000e1_dp*t478*t27*t14*t561 1800 t3513 = t3491 - t3494 - t3497 + t3501 - t3505 + 0.8999999998e1_dp*t3507 & 1801 - t3512 1802 t3514 = t3513*t65 1803 t3525 = t58*t3382 1804 t3533 = t237*t1518 1805 t3543 = t3514 + 0.8999999998e1_dp*t863*t59*t177*t710 + (2 & 1806 *t267*t1504) + 0.8999999998e1_dp*t865*t59*t177*t710 - 0.5555555558e-1_dp & 1807 *t3525*t71 - 0.5000000001e0_dp*t804*t177*t709 + & 1808 0.7407407410e-1_dp*t1755*t271 + 0.6666666668e0_dp*t3533*t1722 - & 1809 0.1111111112e0_dp*t1755*t275 - 0.1111111112e0_dp*t508*t1525 - 0.1000000001e1_dp & 1810 *t237*t266*t1722 1811 t3546 = 0.1e1_dp/t12 1812 t3547 = t60*t3546 1813 t3552 = t194*t1504 1814 t3553 = t3552*t526 1815 t3561 = t68*t3513*t65 1816 t3569 = t274*t1505 1817 t3575 = -0.6172839508e-1_dp*t719*t874 - 0.5555555556e0_dp*t3547*t709 & 1818 + 0.7407407410e-1_dp*t719*t878 + 0.7407407410e-1_dp*t192*t3553 & 1819 + 0.6666666668e0_dp*t1519*t1712 - 0.5555555558e-1_dp*t719*t882 & 1820 - 0.5555555558e-1_dp*t192*t3561 - 0.5000000001e0_dp*t60*t863* & 1821 t709 - 0.5555555558e-1_dp*t719*t886 - 0.1111111112e0_dp*t192*t3569 & 1822 - 0.5000000001e0_dp*t60*t865*t709 1823 t3576 = t3543 + t3575 1824 t3580 = -0.1666666667e0_dp*t429*t437*t1410 + 0.3333333334e0_dp*t165 & 1825 *t1928*t237 + 0.3333333334e0_dp*t165*t437*t1447 - 0.8333333335e-1_dp & 1826 *t429*t166*t3329 + 0.1666666667e0_dp*t165*t679*t804 & 1827 + 0.1666666667e0_dp*t165*t166*t3382 + 0.7407407405e-1_dp*t165 & 1828 *t450*t3472 + 0.1481481481e0_dp*t170*t1875*t14 - 0.1111111111e0_dp & 1829 *t165*t455*t1483 - 0.2222222222e0_dp*t170*t1932*t17 + & 1830 0.1666666667e0_dp*t165*t1275*t561 + 0.3333333334e0_dp*t55*t57 & 1831 *t3576 1832 t3581 = t3453 + t3580 1833 t3608 = t973*my_rho 1834 t3618 = 0.640e2_dp*t1597*t1598*t3356 - 0.640e2_dp*t1582*t773 - & 1835 0.1173333333e3_dp*t93*t3347 - 0.3911111110e2_dp*t1000*t963 - 0.320e2_dp & 1836 *t605*t959 + 0.1173333333e3_dp*t307*t949*t1602 + 0.40e1_dp & 1837 *t102*t327*t136*t3378 - 0.960e2_dp*t1597*t3608*t3352 - & 1838 0.40e1_dp*t112*t1064 + 0.80e1_dp*t112*t984 + 0.2737777778e3_dp*t307 & 1839 *t3339 1840 t3668 = t2552*t23 1841 t3673 = t635*t1058 1842 t3674 = t3673*t220 1843 t3677 = -0.1866666667e3_dp*t1645*t342 - 0.6346666667e3_dp*t24*t991 & 1844 + 0.3946666667e3_dp*t366*t997 + 0.1866666667e3_dp*beta*t764* & 1845 t1004 + 0.60e1_dp*t550*t1046 + 0.60e1_dp*t119*t27*(-0.280e3_dp/ & 1846 0.9e1_dp*t987 + 0.280e3_dp/0.9e1_dp*t2537*my_rho)*t132 - 0.60e1_dp*t7 & 1847 *t640*t1044*t371 + 0.1600000000e2_dp*t366*t368*t1667*t371 & 1848 - 0.4800000000e2_dp*t1680*t3668 + 0.1600000000e3_dp*t1680*t1060 & 1849 + 0.3200000000e2_dp*t1055*t3674 1850 t3679 = t2565*t1439 1851 t3682 = t24*t940 1852 t3711 = -0.1600000000e3_dp*t2220*t368*t3679 + 0.6346666667e3_dp*t3682 & 1853 *t1008 - 0.3946666667e3_dp*t366*t1012*t1021 + 0.1866666667e2_dp & 1854 *t3366*t1026 + 0.1866666667e2_dp*t1024*t341*t635*t132 & 1855 - 0.1706666667e3_dp*t7*t1036 - 0.1600000000e2_dp*t1429*t1030 - 0.1600000000e2_dp & 1856 *t350*t114*t1667*t132 + 0.6400000000e2_dp*t7* & 1857 t1050 - 0.5066666667e2_dp*t366*t1034*t635*t371 + 0.1520000000e3_dp & 1858 *t786*t1034*t1681 1859 t3726 = -0.240e2_dp*t1616*t1617*t3356 + 0.160e2_dp*t302*t3379 + & 1860 0.40e1_dp*t102*t327*t1063*t557 + 0.960e2_dp*t302*t3353 - 0.320e2_dp & 1861 *t302*t3363 - 0.2737777778e3_dp*t941*t2468*t608 - 0.120e2_dp & 1862 *t102*t974*t645*t772 - 0.2133333334e2_dp*t321*t953*t1621 & 1863 - 0.20e1_dp*t102*t105*(t3677 + t3711) + 0.80e1_dp*t102*t327 & 1864 *t375*t1443 - 0.120e2_dp*t1616*t1617*t3362 - 0.2133333334e2_dp & 1865 *t321*t953*t1625 1866 t3750 = t2585*t136 1867 t3763 = 0.2346666666e3_dp*t1589*t950 + 0.80e1_dp*t102*t327*t1684 & 1868 *t233 + 0.6400000002e2_dp*t7*t220*t1618 - 0.240e2_dp*t112*t976 & 1869 - 0.160e2_dp*t93*t316*my_rho*t3378 + 0.2346666666e3_dp*t93* & 1870 t3344 + 0.3911111110e2_dp*t962*t2611*t614 - 0.5475555556e3_dp*t24 & 1871 *t930 + 0.480e2_dp*t1616*t3750*t3352 - 0.1955555555e2_dp*t962 & 1872 *t949*t645 - 0.240e2_dp*t1616*t973*t375*t1425 + 0.2133333334e2_dp & 1873 *t339*t969 1874 t3794 = -0.640e2_dp*t302*t3357 - 0.4266666668e2_dp*t339*t966 + 0.640e2_dp & 1875 *t605*t955 + 0.40e1_dp*t102*t327*t645*t800 + 0.5475555556e3_dp & 1876 *t3682*t946 + 0.1066666667e2_dp*t321*t316*t1684 + 0.160e2_dp & 1877 *t112*t980 - 0.2346666666e3_dp*t7*t929*t1599 + 0.320e2_dp & 1878 *t1597*t1598*t3362 - 0.2346666666e3_dp*t605*t769 + 0.320e2_dp & 1879 *t1582*t801 - 0.2133333334e2_dp*t321*t953*t1631 1880 t3796 = t3618 + t3726 + t3763 + t3794 1881 t3826 = 0.8333333340e-1_dp*t906*t597*t907 + 0.1666666668e0_dp*t429 & 1882 *t1547 - 0.3333333336e0_dp*t83*t84*t3796 - 0.3333333336e0_dp* & 1883 t83*t922*t649 - 0.3333333336e0_dp*t289*t294*t1571 - 0.3333333336e0_dp & 1884 *t289*t1071*t1410 - 0.6666666672e0_dp*t83*t1564*t379 & 1885 - 0.6666666672e0_dp*t55*t1700 - 0.3333333336e0_dp*t165*t207* & 1886 t237*t561 - 0.6666666672e0_dp*t55*t1689 - 0.3333333336e0_dp*t83 & 1887 *t1694*t804 + 0.1666666668e0_dp*t1546*t897*t3314 1888 t3827 = t649*t804 1889 t3842 = t3278*t46 1890 t3849 = t140*t3382 1891 t3853 = t649*t754 1892 t3861 = t78*t649 1893 t3865 = t589*t140 1894 t3869 = -0.1666666668e0_dp*t289*t84*t3827 - 0.1666666668e0_dp*t289 & 1895 *t922*t593 + 0.1666666668e0_dp*t1546*t2636*t1410 - 0.6666666672e0_dp & 1896 *t55*t1703 - 0.3333333336e0_dp*t83*t597*t1067 - 0.1250000001e0_dp & 1897 *t3842*t897*t3306 - 0.3333333336e0_dp*t83*t384* & 1898 t3382 - 0.1666666668e0_dp*t289*t84*t3849 + 0.8333333340e-1_dp*t906 & 1899 *t84*t3853 - 0.6666666672e0_dp*t55*t1568 - 0.6666666672e0_dp* & 1900 t55*t1565 - 0.3333333336e0_dp*t165*t3861*t237 - 0.3333333336e0_dp & 1901 *t165*t3865*t237 1902 t3871 = t379*t1447 1903 t3875 = t45*t2002 1904 t3892 = t225*t1447 1905 t3918 = t25*t3382 1906 t3925 = t777*t561 1907 t3933 = t451*t1410 1908 t3939 = t1301*t245 1909 t3940 = t172*t3306 1910 t3965 = 0.1500000000e1_dp*t405*t156*t3918 + 0.1968750000e2_dp*t2823 & 1911 *t401*t3306 + 0.1666666666e1_dp*t405*t1340*t3925 + 0.3000000000e1_dp & 1912 *t405*t1333*t1447 + 0.3000000000e1_dp*t399*t822*t3933 & 1913 + 0.2250000000e1_dp*t400*t401*t3382 + 0.5625000000e1_dp*t3939 & 1914 *t3940 + 0.3333333333e0_dp*t405*t194*t649*t14 - 0.1125000000e2_dp & 1915 *t1302*t1309*t1410 + 0.2250000000e1_dp*t400*t1892*t804 & 1916 - 0.5625000000e1_dp*t1302*t401*t3329 - 0.5625000000e1_dp*t1302 & 1917 *t1892*t754 + 0.2250000000e1_dp*t400*t2808*t561 - 0.4500000000e1_dp & 1918 *t400*t1333*t1410 1919 t3969 = t172*t3314 1920 t3975 = t19*t1688 1921 t3979 = t290*t1483 1922 t3985 = t172*t3329 1923 t4010 = -0.1125000000e2_dp*t1302*t401*t3314 - 0.4500000000e1_dp*t1912 & 1924 *t3969 + 0.4500000000e1_dp*t400*t1309*t1447 + 0.4500000000e1_dp & 1925 *t400*t3975*t237 - 0.3750000000e1_dp*t3939*t3979 - 0.2000000000e1_dp & 1926 *t405*t417*t3892 - 0.2250000000e1_dp*t1912*t3985 - & 1927 0.2000000000e1_dp*t405*t2873*t561 - 0.5000000000e0_dp*t400*t1316 & 1928 *t3472 - 0.1000000000e1_dp*t405*t68*t1688*t17 + 0.1500000000e1_dp & 1929 *t400*t406*t3449 - 0.1500000000e1_dp*t151*t50*t3796 & 1930 + 0.1500000000e1_dp*t400*t1902*t833 + 0.1500000000e1_dp*t400* & 1931 t1320*t1483 1932 t4018 = 0.2222222222e0_dp*t2885*t446*t1172*t561 - 0.1666666667e0_dp & 1933 *t1246*t1292*t1865 - 0.4444444445e0_dp*t1373*t446*t3892 & 1934 - 0.1111111111e0_dp*t165*t171*t1688*t17 + 0.1666666667e0_dp*t165 & 1935 *t56*t3576*t140 + 0.1250000000e0_dp*t2763*t446*t1168* & 1936 t561 + 0.3333333334e0_dp*t165*t689*t413 + 0.1666666667e0_dp*t165 & 1937 *t679*t1067 - 0.1666666667e0_dp*t1246*t446*t413*t1447 + & 1938 (2*t147*t149*(t3965 + t4010)) - 0.4444444445e0_dp*t1373* & 1939 t1292*t1829 1940 t4025 = t3262*t57 1941 t4032 = t74*t649 1942 t4070 = t3525*t67 1943 t4079 = -0.5555555558e-1_dp*t192*t199*t3514 + (t705*t863* & 1944 t65) + (2*t496*t1504*t65) + (t187*t3513*t65) - & 1945 0.5555555558e-1_dp*t192*t728*t864 - 0.5555555556e0_dp*t140*t3546 & 1946 *t1722 + (t705*t865*t65) - 0.1111111112e0_dp*t1106*t1525 & 1947 - 0.1111111112e0_dp*t4070*t196 + 0.6666666668e0_dp*t1748*t266 & 1948 *t1722 + 0.3703703706e0_dp*t1193*t1505*t451 1949 t4101 = t498*t1505 1950 t4108 = -0.5000000001e0_dp*t60*t1189*t709 + 0.3703703706e0_dp*t1755 & 1951 *t512 - 0.5555555558e-1_dp*t503*t3561 - 0.2222222224e0_dp*t516 & 1952 *t267*t172*t1504 - 0.5555555558e-1_dp*t1715*t886 - 0.5555555558e-1_dp & 1953 *t1715*t882 - 0.1111111112e0_dp*t516*t3514*t172 - 0.5000000001e0_dp & 1954 *t1067*t177*t709 + (2*t4101) - 0.1111111112e0_dp & 1955 *t508*t1769 - 0.1111111112e0_dp*t192*t1837*t267 1956 t4140 = -0.5555555558e-1_dp*t719*t1207 - 0.2000000001e1_dp*t1763* & 1957 t266*t1722 - 0.1111111112e0_dp*t192*t530*t1505 + 0.1333333334e1_dp & 1958 *t1519*t722*t1712 + 0.7407407410e-1_dp*t516*t1718*t526 & 1959 + 0.6666666668e0_dp*t379*t1518*t1722 - 0.5555555558e-1_dp*t192* & 1960 t728*t866 - 0.2222222224e0_dp*t719*t1126 + 0.1800000000e2_dp*t1111 & 1961 *t178*t710 - 0.1111111112e0_dp*t508*t1782 - 0.5555555558e-1_dp & 1962 *t58*t3796*t71 1963 t4156 = t865*t561*t65 1964 t4201 = t20*t1688 1965 t4214 = -0.8000000000e1_dp*t478*t123*t3925 - 0.2400000000e2_dp*t473 & 1966 *t479*t3449 + 0.1200000000e2_dp*t478*t489*t3892 + 0.1200000000e2_dp & 1967 *t478*t2998*t561 - 0.2000000000e1_dp*t478*t27*t649 & 1968 *t14 + 0.1200000000e2_dp*t478*t56*t1688*t17 - 0.2400000000e2_dp & 1969 *t473*t1161*t1483 + 0.1080000000e3_dp*t1143*t474*t3314 - & 1970 0.2160000000e3_dp*t2994*t474*t3306 + 0.7200000000e2_dp*t1821* & 1971 t3969 - 0.3600000000e2_dp*t473*t4201*t237 - 0.1800000000e2_dp*t473 & 1972 *t3030*t561 - 0.2400000000e2_dp*t473*t1811*t833 - 0.1800000000e2_dp & 1973 *t478*t183*t3918 1974 t4230 = t1142*t262 1975 t4255 = 0.5400000000e2_dp*t1143*t474*t3329 + 0.5400000000e2_dp*t1143 & 1976 *t1801*t754 + 0.7200000000e2_dp*t473*t1176*t1410 + 0.8999999998e1_dp & 1977 *t178*t62*t3796 - 0.2400000000e2_dp*t472*t859*t3933 & 1978 - 0.1080000000e3_dp*t4230*t3940 + 0.4000000000e1_dp*t473*t1157 & 1979 *t3472 + 0.1080000000e3_dp*t1143*t1150*t1410 + 0.3600000000e2_dp & 1980 *t1821*t3985 + 0.7200000000e2_dp*t4230*t3979 - 0.1800000000e2_dp & 1981 *t473*t1801*t804 - 0.3600000000e2_dp*t473*t1150*t1447 - & 1982 0.3600000000e2_dp*t478*t1176*t1447 - 0.1800000000e2_dp*t473*t474 & 1983 *t3382 1984 t4256 = t4214 + t4255 1985 t4261 = -0.2222222224e0_dp*t1510*t515*t517 + 0.3703703706e0_dp*t719 & 1986 *t1213 - 0.1000000001e1_dp*t1766*t266*t1722 - 0.5555555558e-1_dp & 1987 *t4070*t200 + 0.6666666668e0_dp*t1519*t496*t561*t65 - 0.5000000001e0_dp & 1988 *t732*t4156 - 0.5000000001e0_dp*t140*t865*t1722 & 1989 - 0.5000000001e0_dp*t804*t187*t1722 - 0.4938271608e0_dp*t719* & 1990 t1101 + 0.8999999998e1_dp*t1097*t178*t710 - 0.5555555558e-1_dp* & 1991 t192*t68*t4256*t65 1992 t4272 = t863*t561*t65 1993 t4292 = (2*t1836*t266*t65) - 0.1111111112e0_dp*t719*t1224 & 1994 - 0.2222222224e0_dp*t1137*t1790 - 0.1000000001e1_dp*t723*t4272 & 1995 - 0.1111111112e0_dp*t1785*t1134 - 0.6172839508e-1_dp*t192*t22* & 1996 t705*t1200 - 0.5000000001e0_dp*t140*t863*t1722 - 0.1111111112e0_dp & 1997 *t1755*t531 - 0.6172839508e-1_dp*t1715*t874 - 0.5555555558e-1_dp & 1998 *t719*t1122 + 0.7407407410e-1_dp*t508*t1726 1999 t4317 = 0.7407407410e-1_dp*t1755*t527 - 0.6172839508e-1_dp*t719*t1201 & 2000 - 0.1111111112e0_dp*t508*t1838 - 0.2222222224e0_dp*t192*t3552 & 2001 *t1125 + 0.7407407410e-1_dp*t1785*t1221 - 0.1111111111e1_dp*t3547 & 2002 *t1737 + 0.6666666668e0_dp*t1519*t187*t1712 + 0.7407407410e-1_dp & 2003 *t503*t3553 - 0.1111111112e0_dp*t1755*t534 - 0.1000000001e1_dp & 2004 *t1774*t1712 + 0.7407407410e-1_dp*t719*t1119 2005 t4345 = -0.1000000001e1_dp*t379*t266*t1722 - 0.1000000001e1_dp*t804 & 2006 *t722*t1722 + 0.8999999998e1_dp*t1109*t178*t710 - 0.5555555558e-1_dp & 2007 *t1129*t729 + t4256*t65 - 0.2222222224e0_dp*t1755*t520 & 2008 - 0.1111111112e0_dp*t503*t3569 - 0.1111111112e0_dp*t1785*t1216 & 2009 - 0.1111111112e0_dp*t3097*t4101 - 0.5000000001e0_dp*t732*t4272 & 2010 + 0.7407407410e-1_dp*t192*t194*t1836*t526 2011 t4352 = t1731*t67 2012 t4378 = 0.7407407410e-1_dp*t1715*t878 + 0.8999999998e1_dp*t1189*t59 & 2013 *t177*t710 + 0.7407407410e-1_dp*t4352*t271 - 0.1111111112e0_dp & 2014 *t4352*t275 - 0.5555555556e0_dp*t3547*t1745 + 0.7407407410e-1_dp & 2015 *t516*t1709*t526 + 0.6666666668e0_dp*t3533*t187*t1722 - 0.1000000001e1_dp & 2016 *t237*t496*t1722 + 0.3703703706e0_dp*t579*t1192 & 2017 *t1194 - 0.1000000001e1_dp*t723*t4156 + 0.1333333334e1_dp*t3533 & 2018 *t722*t1722 - 0.5555555558e-1_dp*t719*t1235 2019 t4392 = 0.3333333334e0_dp*t165*t171*t1825 + 0.1250000000e0_dp*t1981 & 2020 *t1247*t3329 - 0.3125000000e0_dp*t4025*t1247*t3306 + 0.3333333334e0_dp & 2021 *t165*t1392*t1447 + 0.5555555556e-1_dp*t1246*t4032 & 2022 *t833 - 0.1666666667e0_dp*t1246*t74*t25*t1410 + 0.5555555556e-1_dp & 2023 *t1246*t1247*t3449 + 0.1800000000e2_dp*t657*t1283*t59 & 2024 *t1975 - 0.1666666667e0_dp*t429*t166*t3871 + 0.3333333334e0_dp & 2025 *t55*t57*(t4079 + t4108 + t4140 + t4261 + t4292 + t4317 + t4345 & 2026 + t4378) + 0.1481481481e0_dp*t170*t114*t735*t14 - 0.1666666667e0_dp & 2027 *t429*t1928*t290 2028 t4428 = -0.1111111111e0_dp*t165*t1264*t1483 + 0.1800000000e2_dp*t658 & 2029 *t575*t1348 - 0.8333333335e-1_dp*t429*t679*t918 - 0.1111111111e0_dp & 2030 *t165*t455*t1988 + 0.3333333334e0_dp*t170*t27*t3576 & 2031 *t172 - 0.8333333335e-1_dp*t429*t1966*t754 + 0.1250000000e0_dp & 2032 *t1368*t679*t907 + 0.1666666667e0_dp*t445*t446*t3918 - 0.4444444445e0_dp & 2033 *t165*t450*t1829 + 0.2500000000e0_dp*t1981*t3244 & 2034 *t1410 - 0.1666666667e0_dp*t429*t1392*t1410 2035 t4466 = -0.1666666667e0_dp*t429*t437*t1553 - 0.1111111111e0_dp*t165 & 2036 *t689*t1085 + 0.1666666667e0_dp*t165*t1275*t649 - 0.2222222222e0_dp & 2037 *t170*t27*t1843*t17 - 0.8333333335e-1_dp*t1246*t1962 & 2038 *t1168 + 0.1666666667e0_dp*t165*t2720*t561 + 0.6666666668e0_dp & 2039 *t170*t1932*t25 + 0.3333333334e0_dp*t445*t1292*t1825 + 0.1250000000e0_dp & 2040 *t1368*t166*t3853 - 0.4444444445e0_dp*t1373*t1962 & 2041 *t1172 + 0.7407407405e-1_dp*t165*t1377*t3472 + 0.5555555555e-1_dp & 2042 *t1246*t3244*t1483 2043 t4498 = t56*t1843 2044 t4505 = 0.1666666667e0_dp*t165*t166*t3796 - 0.8333333334e-1_dp*t2763 & 2045 *t1247*t833*t561 + (4*t147*t392*t1886) + (2 & 2046 *t147*t1388*t672) - 0.1111111111e0_dp*t165*t1940*t833 + 0.3333333334e0_dp & 2047 *t165*t1928*t379 + 0.7407407409e-1_dp*t165*t450 & 2048 *t649*t14 - 0.1666666667e0_dp*t429*t462*t3314 - 0.3703703704e-1_dp & 2049 *t2885*t1247*t3472 + 0.3333333334e0_dp*t165*t4498*t237 & 2050 + (2*t147*t1284*t672) 2051 t4512 = t1531*my_rho 2052 t4545 = (4*t147*t1885*t424) + 0.1666666667e0_dp*t165*t462 & 2053 *t3382 + 0.3333333334e0_dp*t445*t4512*t413 + 0.5185185185e0_dp & 2054 *t2937*t446*t3925 - 0.8333333335e-1_dp*t429*t166*t3827 - 0.1666666667e0_dp & 2055 *t429*t437*t1571 + 0.5555555555e-1_dp*t1246*t203 & 2056 *t237*t1483 + 0.5555555555e-1_dp*t1246*t2707*t1483 + 0.7407407409e-1_dp & 2057 *t165*t1875*t1360 + (4*t147*t393*t1924) & 2058 + 0.3600000000e2_dp*(t1971)*(t1972)*(t1973)*(t424) & 2059 + 0.3333333334e0_dp*t165*t437*t1688 2060 t4553 = t585*t140 2061 t4575 = t1067*t561 2062 t4585 = 0.1666666667e0_dp*t445*t3248*t668 - 0.1111111111e0_dp*t165 & 2063 *t1932*t433 + 0.5555555556e-1_dp*t1246*t4553*t833 - 0.8333333335e-1_dp & 2064 *t429*t1275*t593 - 0.8333333335e-1_dp*t429*t462* & 2065 t3329 + 0.2500000000e0_dp*t1981*t1247*t3314 + 0.1666666667e0_dp* & 2066 t445*t1962*t1093 + 0.3333333334e0_dp*t165*t455*t668 - 0.8333333335e-1_dp & 2067 *t429*t166*t3849 - 0.8333333335e-1_dp*t429*t166* & 2068 t4575 + 0.2e1_dp*t147*(t3491 - t3494 - t3497 + t3501 - t3505 + 0.9000000000e1_dp & 2069 *t3507 - t3512)*t149*t160 2070 t4607 = t1688*t237 2071 t4627 = 0.1666666667e0_dp*t165*t1966*t804 - 0.1666666667e0_dp*t429 & 2072 *t437*t1557 + 0.1800000000e2_dp*t657*t1387*t59*t1975 + 0.1037037037e1_dp & 2073 *t170*t341*t585*t1100 - 0.8888888890e0_dp*t170 & 2074 *t114*t1531*t451 - 0.8888888890e0_dp*t170*t1875*t225 - 0.1666666667e0_dp & 2075 *t429*t166*t4607 - 0.1111111111e0_dp*t165*t466 & 2076 *t3449 - 0.1666666667e0_dp*t429*t679*t914 - 0.8333333335e-1_dp* & 2077 t1246*t446*t1093*t561 + 0.1250000000e0_dp*t1368*t462*t3306 & 2078 + 0.2500000000e0_dp*t1981*t2707*t1410 2079 t4657 = -0.3333333336e0_dp*t289*t84*t3871 - 0.6666666672e0_dp*t83 & 2080 *t3875*t237 + 0.8333333340e-1_dp*t906*t384*t3306 - 0.1666666668e0_dp & 2081 *t289*t597*t918 - 0.2222222224e0_dp*t144*t46*(t4018 & 2082 + t4392 + t4428 + t4466 + t4505 + t4545 + t4585 + t4627) - 0.1666666668e0_dp & 2083 *t289*t384*t3329 - 0.3333333336e0_dp*t165*t2636*t561 & 2084 - 0.3333333336e0_dp*t165*t897*t1447 + 0.8333333340e-1_dp*t1546 & 2085 *t897*t3329 - 0.6666666672e0_dp*t83*t1071*t1447 - 0.3333333336e0_dp & 2086 *t83*t2404*t561 - 0.4444444448e0_dp*t383*t3875 - 0.3333333336e0_dp & 2087 *t289*t294*t1553 2088 t4696 = -0.6666666672e0_dp*t55*t1575 - 0.3333333336e0_dp*t289*t597 & 2089 *t914 - 0.3333333336e0_dp*t165*t2631*t561 - 0.6666666672e0_dp* & 2090 t55*t1706 - 0.3333333336e0_dp*t289*t384*t3314 - 0.6666666672e0_dp & 2091 *t83*t294*t1688 + 0.1666666668e0_dp*t1546*t2631*t1410 - & 2092 0.3333333336e0_dp*t289*t1564*t290 - 0.1666666668e0_dp*t289*t84 & 2093 *t4575 - 0.3333333336e0_dp*t289*t294*t1557 - 0.1666666668e0_dp & 2094 *t289*t1694*t754 - 0.3333333336e0_dp*t289*t84*t4607 - 0.3333333336e0_dp & 2095 *t83*t45*t3581*t140 2096 t4700 = -0.6666666670e0_dp*t2147*t1411 - 0.1333333334e1_dp*t747*t597 & 2097 *t237 - 0.1333333334e1_dp*t747*t84*t1447 - 0.1333333334e1_dp & 2098 *t747*t294*t561 - 0.8888888896e0_dp*t214*t1536 + 0.1666666668e0_dp & 2099 *t3305*t84*t3306 - 0.3333333336e0_dp*t753*t46*t589*t754 & 2100 - 0.6666666672e0_dp*t1409*t84*t3314 - 0.6666666670e0_dp*t1409 & 2101 *t294*t1410 - 0.1333333334e1_dp*t217*t46*t1535*t237 - 0.1333333334e1_dp & 2102 *t217*t46*t282*t1447 - 0.3333333336e0_dp*t1409 & 2103 *t84*t3329 - 0.6666666672e0_dp*t217*t46*t589*t804 - 0.6666666672e0_dp & 2104 *t217*t46*t78*t3382 - 0.6666666672e0_dp*t217*t46 & 2105 *t893*t561 - 0.4444444448e0_dp*t43*t46*t3581 + t8*(t3826 + & 2106 t3869 + t4657 + t4696) 2107 e_ndrho_rho_rho(ii) = e_ndrho_rho_rho(ii) + t4700*sx 2108 t4701 = t561**2 2109 t4704 = 0.3333333336e0_dp*t2147*t84*t4701 2110 t4707 = 0.1333333334e1_dp*t747*t597*t561 2111 t4708 = t22*t36 2112 t4713 = t557**2 2113 t4714 = t327*t4713 2114 t4717 = t22*t132 2115 t4721 = 0.1e1_dp/t787*t2480 2116 t4725 = 0.120e2_dp*t624*t4717 - 0.60e1_dp*t7*t4721*t371 2117 t4726 = t105*t4725 2118 t4729 = 0.40e1_dp*t624*t4708 - 0.80e1_dp*t112*t558 + 0.40e1_dp*t102 & 2119 *t4714 - 0.20e1_dp*t102*t4726 2120 t4732 = 0.6666666672e0_dp*t747*t84*t4729 2121 t4733 = pi**2 2122 t4734 = t4733*t146 2123 t4736 = 0.1e1_dp/t58/omega 2124 t4738 = t4734*t4736*t1300 2125 t4739 = t4701*t149 2126 t4743 = t19*t4701 2127 t4744 = t399*t4743 2128 t4748 = t151*t19*t4729 2129 t4760 = t20*t4701 2130 t4764 = t20*t4729 2131 t4768 = t58**2 2132 t4769 = 0.1e1_dp/t4768 2133 t4770 = t4769*t1141 2134 t4771 = t4770*t4733 2135 t4772 = t26*t4701 2136 t4776 = t58*t4729 2137 t4782 = -0.2250000000e2_dp*t473*t4760*t65 + 0.8999999998e1_dp*t478 & 2138 *t4764*t65 + 0.8099999996e2_dp*t4771*t4772*t65 - 0.5555555558e-1_dp & 2139 *t4776*t71 - 0.5000000001e0_dp*t60*t4729*t65 2140 t4786 = -0.2700000000e2_dp*t4738*t18*t4739 + 0.4500000000e1_dp*t567 & 2141 *t4744 - 0.3000000000e1_dp*t567*t4748 - 0.8333333335e-1_dp*t429 & 2142 *t166*t4701 + 0.3333333334e0_dp*t165*t679*t561 + 0.1666666667e0_dp & 2143 *t165*t166*t4729 + 0.3333333334e0_dp*t55*t57*t4782 2144 t4789 = 0.4444444448e0_dp*t214*t46*t4786 2145 t4790 = t237*t4701 2146 t4793 = 0.1666666668e0_dp*t3305*t84*t4790 2147 t4796 = 0.6666666672e0_dp*t1409*t597*t1410 2148 t4797 = t1447*t561 2149 t4800 = 0.6666666672e0_dp*t1409*t84*t4797 2150 t4801 = t237*t4729 2151 t4804 = 0.3333333336e0_dp*t1409*t84*t4801 2152 t4808 = 0.6666666672e0_dp*t217*t46*t4786*t237 2153 t4812 = 0.1333333334e1_dp*t217*t46*t589*t1447 2154 t4817 = t953*t4713 2155 t4820 = t316*t4725 2156 t4829 = t233*t4713 2157 t4830 = t974*t4829 2158 t4833 = t1443*t557 2159 t4834 = t327*t4833 2160 t4837 = t233*t4725 2161 t4838 = t327*t4837 2162 t4849 = -0.3200000000e2_dp*t1645*t627 + 0.4800000000e2_dp*t7*t1440 & 2163 - 0.2400000000e2_dp*t786/t2492*t1058 2164 t4850 = t105*t4849 2165 t4853 = -0.1066666667e2_dp*t1645*t98 + 0.2133333334e2_dp*t339*t1420 & 2166 - 0.1066666667e2_dp*t321*t4817 + 0.5333333333e1_dp*t321*t4820 & 2167 - 0.40e1_dp*t624*t234 + 0.160e2_dp*t112*t1426 - 0.80e1_dp*t112* & 2168 t1444 - 0.120e2_dp*t102*t4830 + 0.80e1_dp*t102*t4834 + 0.40e1_dp* & 2169 t102*t4838 - 0.20e1_dp*t102*t4850 2170 t4857 = 0.6666666672e0_dp*t217*t46*t78*t4853 2171 t4861 = 0.3333333336e0_dp*t753*t46*t282*t4701 2172 t4864 = t217*t46*t1535*t561 2173 t4869 = 0.6666666672e0_dp*t217*t46*t282*t4729 2174 t4872 = 0.8333333335e-1_dp*t429*t437*t4701 2175 t4874 = t165*t1928*t561 2176 t4878 = 0.1666666667e0_dp*t165*t437*t4729 2177 t4881 = 0.5400000000e2_dp*t1143*t1493*t4701 2178 t4884 = 0.3600000000e2_dp*t473*t2035*t561 2179 t4887 = 0.1800000000e2_dp*t473*t1493*t4729 2180 t4889 = t178*t62*t4853 2181 t4893 = 0.1200000000e2_dp*t473*t1500*t4701 2182 t4895 = t478*t1500*t4729 2183 t4897 = t4881 - t4884 - t4887 + 0.8999999998e1_dp*t4889 - t4893 + 0.5999999999e1_dp & 2184 *t4895 2185 t4898 = t4897*t65 2186 t4901 = t1504*t59*t177*t710 2187 t4904 = t4701*t65 2188 t4905 = t62*t4904 2189 t4907 = 0.2250000000e2_dp*t1506*t471*t4905 2190 t4908 = t4729*t65 2191 t4909 = t62*t4908 2192 t4911 = 0.8999999998e1_dp*t1507*t4909 2193 t4915 = t4733*t26*t4904 2194 t4917 = 0.8099999996e2_dp*t266*t4769*t1141*t4915 2195 t4918 = t58*t4853 2196 t4920 = 0.5555555558e-1_dp*t4918*t71 2197 t4922 = t1447*t177*t709 2198 t4925 = 0.5000000001e0_dp*t1513*t4908 2199 t4929 = t60*t1504*t709 2200 t4932 = 0.5000000001e0_dp*t1528*t4908 2201 t4935 = 0.1000000000e1_dp*t237*t471*t4904 2202 t4940 = t59*pi*t20*t65 2203 t4941 = t237*t1141*t4701*t4940 2204 t4943 = t4776*t67 2205 t4945 = 0.3703703705e-1_dp*t4943*t271 2206 t4946 = t471*t1518 2207 t4951 = 0.5555555558e-1_dp*t4943*t275 2208 t4952 = t719*t1525 2209 t4955 = t68*t4897*t65 2210 t4958 = t4898 + 0.1800000000e2_dp*t4901 - t4907 + t4911 + t4917 - t4920 & 2211 - 0.1000000000e1_dp*t4922 - t4925 + 0.3333333334e0_dp*t1519*t4908 & 2212 - 0.1000000000e1_dp*t4929 - t4932 + t4935 - 0.4500000000e1_dp*t4941 & 2213 + t4945 + 0.3000000000e1_dp*t4946*t4701*t4940 - t4951 - 0.1111111112e0_dp & 2214 *t4952 - 0.5555555558e-1_dp*t192*t4955 2215 t4994 = t44*t4733*t146 2216 t4995 = t4994*t4770 2217 t5001 = 0.1666666667e0_dp*t165*t166*t4853 2218 t5002 = t17*t4701 2219 t5005 = 0.2777777778e-1_dp*t429*t171*t5002 2220 t5008 = 0.1111111111e0_dp*t165*t689*t1483 2221 t5009 = t17*t4729 2222 t5011 = t165*t171*t5009 2223 t5013 = t27*t4782 2224 t5016 = 0.1111111111e0_dp*t170*t5013*t17 2225 t5019 = 0.1250000000e0_dp*t1368*t166*t4790 2226 t5022 = 0.1666666667e0_dp*t429*t679*t1410 2227 t5025 = 0.1666666667e0_dp*t429*t166*t4797 2228 t5028 = 0.8333333335e-1_dp*t429*t166*t4801 2229 t5029 = t56*t4782 2230 t5032 = 0.1666666667e0_dp*t165*t5029*t237 2231 t5035 = 0.3333333334e0_dp*t165*t679*t1447 2232 t5036 = -t4872 + 0.3333333334e0_dp*t4874 + t4878 + 0.3333333334e0_dp* & 2233 t55*t57*t4958 + 0.2e1_dp*t147*t149*(-0.5625000000e1_dp*t1302 & 2234 *t1459*t4701 + 0.4500000000e1_dp*t400*t2022*t561 + 0.2250000000e1_dp & 2235 *t400*t1459*t4729 - 0.1500000000e1_dp*t151*t50*t4853 & 2236 + 0.7500000000e0_dp*t400*t1466*t4701 - 0.5000000000e0_dp*t405 & 2237 *t1466*t4729) - 0.3600000000e2_dp*t2081*t4760*t250 + 0.1800000000e2_dp & 2238 *t658*t4764*t250 + 0.3600000000e2_dp*t658*t575*t1471 & 2239 + 0.1620000000e3_dp*t4995*t4772*t250 + t5001 + t5005 - t5008 & 2240 - 0.5555555555e-1_dp*t5011 - t5016 + t5019 - t5022 - t5025 - t5028 & 2241 + t5032 + t5035 2242 t5040 = t379*t4729 2243 t5043 = 0.1666666668e0_dp*t289*t84*t5040 2244 t5044 = t140*t4853 2245 t5047 = 0.1666666668e0_dp*t289*t84*t5044 2246 t5050 = 0.1666666668e0_dp*t165*t897*t4729 2247 t5051 = beta*t86 2248 t5060 = beta*t92 2249 t5065 = my_rho*t4713 2250 t5069 = my_rho*t4725 2251 t5079 = t136*t4713 2252 t5083 = t645*t557 2253 t5087 = t136*t4725 2254 t5106 = beta*t640 2255 t5108 = t126*t371*my_ndrho 2256 t5115 = t366*t640 2257 t5118 = -0.480e2_dp*t5051*t4717 + 0.240e2_dp*t7*t2182*t2480*t371 & 2258 + 0.480e2_dp*t5060*t628 - 0.240e2_dp*t7*t1640*t1438*t371 & 2259 *my_rho + 0.120e2_dp*t550*t637 - 0.180e2_dp*t5106*t5108 - 0.120e2_dp & 2260 *t7*t640*t635*t371 + 0.180e2_dp*t5115*t1681 2261 t5122 = -0.320e2_dp*t5051*t4708 + 0.640e2_dp*t1582*t558 - 0.320e2_dp & 2262 *t302*t4714 + 0.160e2_dp*t302*t4726 + 0.320e2_dp*t5060*t99 - & 2263 0.640e2_dp*t605*t609 + 0.320e2_dp*t93*t953*t5065 - 0.160e2_dp* & 2264 t93*t316*t5069 - 0.40e1_dp*t624*t137 + 0.160e2_dp*t112*t615 & 2265 - 0.80e1_dp*t112*t646 - 0.120e2_dp*t102*t974*t5079 + 0.80e1_dp* & 2266 t102*t327*t5083 + 0.40e1_dp*t102*t327*t5087 - 0.20e1_dp*t102 & 2267 *t105*t5118 2268 t5123 = t5122*t237 2269 t5126 = 0.1666666668e0_dp*t289*t84*t5123 2270 t5139 = t25*t4701 2271 t5143 = t25*t4729 2272 t5147 = -0.5625000000e1_dp*t1302*t401*t4701 + 0.4500000000e1_dp*t400 & 2273 *t1892*t561 + 0.2250000000e1_dp*t400*t401*t4729 - 0.1500000000e1_dp & 2274 *t151*t50*t5122 - 0.2250000000e1_dp*t400*t156*t5139 & 2275 + 0.1500000000e1_dp*t405*t156*t5143 2276 t5163 = t140*t4701 2277 t5170 = t649*t561 2278 t5174 = t140*t4729 2279 t5226 = 0.5400000000e2_dp*t1143*t474*t4701 - 0.3600000000e2_dp*t473 & 2280 *t1801*t561 - 0.1800000000e2_dp*t473*t474*t4729 + 0.8999999998e1_dp & 2281 *t178*t62*t5122 + 0.3600000000e2_dp*t473*t183*t5139 & 2282 - 0.1800000000e2_dp*t478*t183*t5143 2283 t5228 = t705*t59 2284 t5229 = t5228*t177 2285 t5237 = t649*t177 2286 t5244 = t60*t705 2287 t5247 = t187*t4769 2288 t5251 = t58*t5122 2289 t5256 = t140*t1141 2290 t5262 = t471*t722 2291 t5270 = t68*t5226 2292 t5271 = t5270*t65 2293 t5276 = t5226*t65 + 0.1800000000e2_dp*t5229*t710 - 0.2250000000e2_dp & 2294 *t707*t471*t4905 + 0.8999999998e1_dp*t708*t4909 - 0.1000000000e1_dp & 2295 *t5237*t709 - 0.5000000001e0_dp*t716*t4908 - 0.1000000001e1_dp & 2296 *t723*t4908 - 0.1000000000e1_dp*t5244*t709 + 0.8099999996e2_dp & 2297 *t5247*t1141*t4915 - 0.5555555558e-1_dp*t5251*t71 + 0.1000000000e1_dp & 2298 *t2098*t4904 - 0.4500000000e1_dp*t5256*t4701*t4940 & 2299 - 0.1111111112e0_dp*t4943*t196 - 0.9000000007e1_dp*t5262*t4701 & 2300 *t4940 - 0.5555555558e-1_dp*t4943*t200 - 0.1111111112e0_dp*t719* & 2301 t729 - 0.5555555558e-1_dp*t192*t5271 - 0.5000000001e0_dp*t732*t4908 2302 t5280 = (2*t147*t149*t5147) - 0.3600000000e2_dp*t2081*t4760 & 2303 *t161 + 0.1800000000e2_dp*t658*t4764*t161 + 0.3600000000e2_dp & 2304 *t658*t575*t673 + 0.1620000000e3_dp*t4995*t4772*t161 + 0.1250000000e0_dp & 2305 *t1368*t166*t5163 - 0.1666666667e0_dp*t429*t679 & 2306 *t593 - 0.1666666667e0_dp*t429*t166*t5170 - 0.8333333335e-1_dp* & 2307 t429*t166*t5174 + 0.1666666667e0_dp*t165*t5029*t140 + 0.3333333334e0_dp & 2308 *t165*t679*t649 + 0.1666666667e0_dp*t165*t166*t5122 & 2309 - 0.8333333335e-1_dp*t1246*t446*t5139 + 0.3333333334e0_dp*t445 & 2310 *t1962*t668 + 0.1666666667e0_dp*t445*t446*t5143 + 0.3333333334e0_dp & 2311 *t170*t5013*t172 - 0.8333333335e-1_dp*t429*t462*t4701 & 2312 + 0.3333333334e0_dp*t165*t1966*t561 + 0.1666666667e0_dp*t165 & 2313 *t462*t4729 + 0.3333333334e0_dp*t55*t57*t5276 2314 t5281 = t45*t5280 2315 t5284 = 0.3333333336e0_dp*t83*t5281*t237 2316 t5291 = 0.1666666668e0_dp*t289*t384*t4801 2317 t5294 = 0.1666666668e0_dp*t1546*t3865*t1410 2318 t5295 = t45*t4786 2319 t5298 = 0.3333333336e0_dp*t83*t5295*t379 2320 t5301 = 0.3333333336e0_dp*t55*t384*t4729 2321 t5303 = t83*t1564*t649 2322 t5305 = -t5043 - t5047 - t5050 - t5126 - t5284 - 0.3333333336e0_dp*t83 & 2323 *t45*t5036*t140 - t5291 + t5294 - t5298 - t5301 - 0.6666666672e0_dp & 2324 *t5303 2325 t5308 = 0.3333333336e0_dp*t289*t1694*t1410 2326 t5311 = 0.1666666668e0_dp*t289*t1071*t4701 2327 t5314 = 0.1666666668e0_dp*t289*t5295*t290 2328 t5317 = 0.3333333336e0_dp*t165*t3861*t561 2329 t5320 = 0.3333333336e0_dp*t83*t1071*t4729 2330 t5323 = 0.1666666668e0_dp*t1546*t3861*t1410 2331 t5326 = 0.1250000001e0_dp*t3842*t897*t4790 2332 t5329 = 0.6666666672e0_dp*t83*t1694*t1447 2333 t5330 = t379*t4701 2334 t5333 = 0.8333333340e-1_dp*t906*t84*t5330 2335 t5335 = 0.2222222224e0_dp*t383*t5281 2336 t5338 = 0.6666666672e0_dp*t55*t1694*t561 2337 t5339 = t649*t1447 2338 t5342 = 0.3333333336e0_dp*t289*t84*t5339 2339 t5343 = -t5308 - t5311 - t5314 - t5317 - t5320 + t5323 - t5326 - t5329 & 2340 + t5333 - t5335 - t5338 - t5342 2341 t5345 = t1688*t561 2342 t5347 = t289*t84*t5345 2343 t5351 = 0.1666666668e0_dp*t164*t384*t4701 2344 t5354 = 0.3333333336e0_dp*t83*t384*t4853 2345 t5357 = 0.6666666672e0_dp*t55*t597*t649 2346 t5360 = 0.3333333336e0_dp*t289*t384*t4797 2347 t5363 = 0.8333333335e-1_dp*t429*t166*t5040 2348 t5367 = 0.1666666667e0_dp*t445*t4782*my_rho*t413 2349 t5370 = 0.1666666667e0_dp*t429*t679*t1557 2350 t5371 = t225*t4701 2351 t5373 = t2885*t446*t5371 2352 t5376 = t165*t466*t5009 2353 t5379 = t165*t1928*t649 2354 t5383 = 0.4166666667e-1_dp*t2763*t1247*t5002 2355 t5386 = 0.8333333335e-1_dp*t429*t5029*t290 2356 t5389 = 0.8333333335e-1_dp*t429*t166*t5044 2357 t5397 = 0.8333333335e-1_dp*t1246*t446*t413*t4729 2358 t5400 = 0.3333333334e0_dp*t445*t1962*t1825 2359 t5402 = t165*t679*t1688 2360 t5406 = 0.8333333335e-1_dp*t429*t166*t5123 2361 t5409 = 0.8333333335e-1_dp*t429*t1392*t4701 2362 t5412 = 0.8333333335e-1_dp*t429*t171*t5139 2363 t5415 = 0.1666666667e0_dp*t429*t462*t4797 2364 t5418 = 2*t147*t393*t5147 2365 t5421 = t657*t1884*t59*t1975 2366 t5423 = -t5363 + t5367 - t5370 + 0.1111111111e0_dp*t5373 - 0.5555555555e-1_dp & 2367 *t5376 + 0.3333333334e0_dp*t5379 - t5383 - t5386 - t5389 + & 2368 0.3333333334e0_dp*t170*t27*t4958*t172 - t5397 + t5400 + 0.3333333334e0_dp & 2369 *t5402 - t5406 - t5409 - t5412 - t5415 + t5418 + 0.3600000000e2_dp & 2370 *t5421 2371 t5426 = 0.8333333335e-1_dp*t1246*t1292*t5139 2372 t5429 = 0.1666666667e0_dp*t445*t1292*t5143 2373 t5430 = t225*t4729 2374 t5432 = t1373*t446*t5430 2375 t5436 = 0.1666666667e0_dp*t165*t5029*t379 2376 t5440 = 0.40e1_dp*t102*t327*t375*t4725 2377 t5443 = 0.960e2_dp*t1597*t3608*t4829 2378 t5446 = 0.480e2_dp*t24*t23*t1618 2379 t5449 = 0.1173333333e3_dp*t307*t2611*t5065 2380 t5451 = 0.640e2_dp*t605*t1603 2381 t5454 = 0.2133333334e2_dp*t321*t953*t5083 2382 t5456 = 0.1280e3_dp*t1582*t1426 2383 t5459 = 0.5333333333e1_dp*t321*t316*t5118 2384 t5460 = beta*t306 2385 t5462 = 0.1173333333e3_dp*t5460*t313 2386 t5466 = 0.40e1_dp*t102*t327*t136*t4849 2387 t5468 = 0.2346666666e3_dp*t605*t1420 2388 t5469 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 - t5456 + t5459 & 2389 - t5462 + t5466 - t5468 2390 t5472 = 0.3200000001e2_dp*t321*t2455*t5079 2391 t5474 = 0.4266666668e2_dp*t339*t1608 2392 t5478 = 0.240e2_dp*t1616*t973*t645*t1425 2393 t5480 = 0.1760000000e3_dp*t5060*t627 2394 t5482 = 0.2160000000e3_dp*t7*t1642 2395 t5484 = 0.1760000000e3_dp*t5460*t347 2396 t5487 = 0.2160000000e3_dp*t7*t995*t1652 2397 t5489 = 0.1600000000e2_dp*t1429*t1658 2398 t5492 = 0.7200000000e2_dp*beta*t368*t5108 2399 t5494 = 0.6400000000e2_dp*t7*t1677 2400 t5496 = t366*t368*t1681 2401 t5499 = 0.120e2_dp*t550*t1669 2402 t5503 = 0.180e2_dp*t5106*t360*t371*my_ndrho 2403 t5507 = 0.120e2_dp*t7*t640*t1667*t371 2404 t5509 = 0.180e2_dp*t5115*t3668 2405 t5511 = t1680*t3673*t23 2406 t5516 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.1920000000e3_dp & 2407 *t5496 + t5499 - t5503 - t5507 + t5509 - 0.4800000000e2_dp & 2408 *t5511 + 0.1200000000e3_dp*t1055*t2565*t4721 2409 t5523 = 0.120e2_dp*t102*t974*t375*t4713 2410 t5525 = 0.2133333334e2_dp*t339*t1611 2411 t5528 = t102*t327*t1684*t557 2412 t5531 = 0.160e2_dp*t112*t1626 2413 t5533 = 0.160e2_dp*t112*t1632 2414 t5535 = 0.640e2_dp*t1582*t1444 2415 t5537 = 0.160e2_dp*t112*t1622 2416 t5540 = 0.320e2_dp*t1597*t1598*t4837 2417 t5541 = t5472 - t5474 - t5478 - 0.20e1_dp*t102*t105*t5516 - t5523 & 2418 + t5525 + 0.80e1_dp*t5528 + t5531 + t5533 + t5535 + t5537 + t5540 2419 t5545 = 0.480e2_dp*t1616*t3750*t4829 2420 t5548 = 0.120e2_dp*t1616*t1617*t4837 2421 t5551 = 0.1280e3_dp*t24*t298*t1599 2422 t5553 = 0.160e2_dp*t302*t4850 2423 t5558 = 0.320e2_dp*t5060*t97*t104*my_rho*t233 2424 t5560 = 0.2346666666e3_dp*t1589*t1592 2425 t5562 = 0.5866666667e2_dp*t93*t4820 2426 t5564 = 0.1173333333e3_dp*t5060*t98 2427 t5565 = t112*t1685 2428 t5568 = 0.1066666667e2_dp*t1645*t322 2429 t5572 = 0.40e1_dp*t102*t327*t5118*t233 2430 t5574 = 0.1173333333e3_dp*t93*t4817 2431 t5575 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 2432 - 0.80e1_dp*t5565 + t5568 + t5572 + t5574 2433 t5579 = 0.80e1_dp*t102*t327*t645*t1443 2434 t5581 = 0.320e2_dp*t302*t4838 2435 t5585 = 0.160e2_dp*t93*t316*my_rho*t4849 2436 t5590 = 0.80e1_dp*t624*t22*t326*t136*t233 2437 t5593 = 0.1066666667e2_dp*t321*t953*t5087 2438 t5595 = 0.640e2_dp*t302*t4834 2439 t5597 = 0.960e2_dp*t302*t4830 2440 t5600 = 0.240e2_dp*t1616*t1617*t4833 2441 t5602 = 0.40e1_dp*t624*t376 2442 t5604 = 0.320e2_dp*t5051*t234 2443 t5607 = 0.5866666667e2_dp*t307*t949*t5069 2444 t5610 = 0.640e2_dp*t1597*t1598*t4833 2445 t5611 = t5579 - t5581 - t5585 + t5590 - t5593 - t5595 + t5597 - t5600 & 2446 - t5602 + t5604 + t5607 + t5610 2447 t5613 = t5469 + t5541 + t5575 + t5611 2448 t5619 = 0.3333333334e0_dp*t170*t5013*t25 2449 t5622 = 0.1666666667e0_dp*t165*t1392*t4729 2450 t5625 = 0.1666666667e0_dp*t429*t166*t5339 2451 t5628 = 0.3600000000e2_dp*t2081*t4760*t425 2452 t5631 = 0.5555555556e-1_dp*t1246*t4032*t1483 2453 t5632 = t25*t4853 2454 t5635 = 0.1500000000e1_dp*t405*t156*t5632 2455 t5638 = 0.2250000000e1_dp*t400*t1333*t4701 2456 t5641 = 0.1500000000e1_dp*t405*t1333*t4729 2457 t5643 = t400*t3975*t561 2458 t5647 = 0.5625000000e1_dp*t1302*t1309*t4701 2459 t5650 = 0.5625000000e1_dp*t1302*t401*t4801 2460 t5653 = 0.4500000000e1_dp*t400*t1892*t1447 2461 t5657 = 0.5000000000e0_dp*t405*t68*t5122*t17 2462 t5660 = 0.1125000000e2_dp*t1302*t401*t4797 2463 t5663 = 0.1500000000e1_dp*t400*t417*t5371 2464 t5666 = 0.1125000000e2_dp*t1302*t1892*t1410 2465 t5667 = t5635 - t5638 + t5641 + 0.4500000000e1_dp*t5643 - t5647 - t5650 & 2466 + t5653 - t5657 - t5660 + t5663 - t5666 2467 t5670 = 0.2250000000e1_dp*t400*t1309*t4729 2468 t5671 = t172*t4801 2469 t5673 = 0.2250000000e1_dp*t1912*t5671 2470 t5676 = 0.2250000000e1_dp*t400*t401*t4853 2471 t5679 = 0.1875000000e1_dp*t1302*t406*t5002 2472 t5682 = 0.1500000000e1_dp*t400*t1902*t1483 2473 t5686 = 0.2250000000e1_dp*t400*t19*t5122*t237 2474 t5689 = 0.1000000000e1_dp*t405*t417*t5430 2475 t5692 = 0.1968750000e2_dp*t2823*t401*t4790 2476 t5695 = 0.7500000000e0_dp*t400*t406*t5009 2477 t5696 = t172*t4790 2478 t5698 = 0.5625000000e1_dp*t3939*t5696 2479 t5699 = t172*t4797 2480 t5701 = 0.4500000000e1_dp*t1912*t5699 2481 t5705 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 2482 + t5695 + t5698 - t5701 - 0.1500000000e1_dp*t151*t50*t5613 2483 t5713 = t4739*t160 2484 t5716 = 0.1620000000e3_dp*t4994*t392*t4769*t1141*t26*t5713 2485 t5719 = 0.3333333334e0_dp*t165*t1966*t1447 2486 t5722 = 0.1111111111e0_dp*t165*t689*t1988 2487 t5724 = t429*t166*t5345 2488 t5728 = 0.2500000000e0_dp*t1981*t1247*t4797 2489 t5731 = 0.1666666667e0_dp*t445*t446*t5632 2490 t5734 = 0.1666666667e0_dp*t429*t679*t1553 2491 t5738 = 0.4444444445e0_dp*t170*t114*t4782*t451 2492 t5741 = 0.1666666667e0_dp*t165*t171*t5143 2493 t5742 = -t5426 + t5429 - 0.2222222222e0_dp*t5432 + t5436 + 0.1666666667e0_dp & 2494 *t165*t166*t5613 + t5619 + t5622 - t5625 - t5628 + t5631 & 2495 + (2*t147*t149*(t5667 + t5705)) + t5716 + t5719 - t5722 & 2496 - 0.1666666667e0_dp*t5724 + t5728 + t5731 - t5734 - t5738 + t5741 2497 t5745 = t165*t4498*t561 2498 t5749 = 0.1666666667e0_dp*t429*t437*t5170 2499 t5752 = 0.8333333335e-1_dp*t429*t462*t4801 2500 t5756 = 0.1111111111e0_dp*t170*t27*t5276*t17 2501 t5760 = 0.1250000000e0_dp*t2763*t446*t413*t4701 2502 t5767 = 0.1666666667e0_dp*t165*t437*t5122 2503 t5770 = 0.1620000000e3_dp*t4995*t4772*t425 2504 t5773 = 0.1250000000e0_dp*t1368*t437*t5163 2505 t5776 = 0.2777777778e-1_dp*t1246*t1247*t5009 2506 t5780 = 0.1666666667e0_dp*t165*t56*t5276*t237 2507 t5783 = 0.5555555557e-1_dp*t165*t5013*t433 2508 t5786 = 0.3333333334e0_dp*t165*t689*t668 2509 t5789 = 0.1250000000e0_dp*t1368*t166*t5330 2510 t5792 = 0.2777777778e-1_dp*t429*t466*t5002 2511 t5795 = 0.1111111111e0_dp*t165*t1940*t1483 2512 t5797 = t1373*t1962*t1829 2513 t5801 = 0.3600000000e2_dp*t1143*t479*t5002 2514 t5804 = 0.2400000000e2_dp*t473*t1811*t1483 2515 t5807 = 0.2160000000e3_dp*t2994*t474*t4790 2516 t5810 = 0.1080000000e3_dp*t1143*t1801*t1410 2517 t5813 = 0.1800000000e2_dp*t478*t183*t5632 2518 t5816 = 0.3600000000e2_dp*t473*t1176*t4701 2519 t5819 = 0.1800000000e2_dp*t478*t1176*t4729 2520 t5822 = 0.1800000000e2_dp*t473*t474*t4853 2521 t5825 = 0.1200000000e2_dp*t473*t479*t5009 2522 t5828 = 0.3600000000e2_dp*t473*t1801*t1447 2523 t5830 = 0.1080000000e3_dp*t4230*t5696 2524 t5831 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 2525 - t5825 - t5828 - t5830 2526 t5833 = 0.7200000000e2_dp*t1821*t5699 2527 t5835 = 0.3600000000e2_dp*t1821*t5671 2528 t5838 = 0.1080000000e3_dp*t1143*t474*t4797 2529 t5841 = 0.5400000000e2_dp*t1143*t474*t4801 2530 t5845 = 0.1800000000e2_dp*t473*t20*t5122*t237 2531 t5848 = 0.5400000000e2_dp*t1143*t1150*t4701 2532 t5850 = t473*t4201*t561 2533 t5854 = 0.1200000000e2_dp*t473*t489*t5371 2534 t5857 = 0.6000000000e1_dp*t478*t489*t5430 2535 t5861 = 0.5999999999e1_dp*t478*t56*t5122*t17 2536 t5864 = 0.1800000000e2_dp*t473*t1150*t4729 2537 t5868 = t5833 + t5835 + t5838 + t5841 - t5845 + t5848 - 0.3600000000e2_dp & 2538 *t5850 - t5854 + t5857 + t5861 - t5864 + 0.8999999998e1_dp*t178 & 2539 *t62*t5613 2540 t5869 = t5831 + t5868 2541 t5875 = t1447*t187*t1722 2542 t5880 = 0.3703703705e-1_dp*t192*t194*t5226*t526 2543 t5881 = t1141*t4701 2544 t5885 = t719*t1769 2545 t5888 = t60*t1836*t709 2546 t5891 = 0.5555555558e-1_dp*t4943*t534 2547 t5898 = t705*t1504*t65 2548 t5902 = 0.1800000000e2_dp*t1718*t178*t710 2549 t5905 = 0.5555555558e-1_dp*t192*t5270*t267 2550 t5908 = t1836*t59*t177*t710 2551 t5911 = t266*t4729*t65 2552 t5913 = 0.1000000001e1_dp*t723*t5911 2553 t5918 = t140*t1504*t1722 2554 t5922 = 0.1111111112e0_dp*t4776*t515*t517 2555 t5925 = 0.8099999996e2_dp*t498*t4770*t4915 2556 t5926 = -0.5555555558e-1_dp*t192*t68*t5869*t65 - 0.1000000000e1_dp & 2557 *t5875 + t5880 + 0.3000000000e1_dp*t1748*t5881*t4940 - 0.1111111112e0_dp & 2558 *t5885 - 0.1000000000e1_dp*t5888 - t5891 + t5869*t65 + & 2559 0.666666666e0_dp*t1519*t722*t4729*t65 + (2*t5898) + t5902 & 2560 - t5905 + 0.1800000000e2_dp*t5908 - t5913 - 0.1111111112e0_dp*t516 & 2561 *t4898*t172 - 0.1000000000e1_dp*t5918 - t5922 + t5925 2562 t5929 = 0.2250000000e2_dp*t1740*t471*t4905 2563 t5932 = 0.1000000000e1_dp*t649*t266*t1722 2564 t5938 = t192*t728*t1505 2565 t5940 = t4918*t67 2566 t5942 = 0.1111111112e0_dp*t5940*t196 2567 t5944 = t1447*t722*t1722 2568 t5949 = 0.8999999998e1_dp*t1795*t4909 2569 t5952 = 0.9000000007e1_dp*t1763*t5881*t4940 2570 t5954 = 0.8999999998e1_dp*t1741*t4909 2571 t5956 = t471*t4701*t65 2572 t5958 = 0.1000000000e1_dp*t1766*t5956 2573 t5960 = 0.5555555558e-1_dp*t5940*t200 2574 t5963 = 0.1000000000e1_dp*t379*t471*t4904 2575 t5964 = t1715*t1525 2576 t5966 = t1785*t1790 2577 t5971 = 0.4500000000e1_dp*t379*t1141*t4701*t4940 2578 t5973 = 0.5555555558e-1_dp*t4943*t531 2579 t5975 = t5226*t266*t65 2580 t5977 = 0.1111111112e0_dp*t1755*t729 2581 t5978 = -t5929 - t5932 + 0.3333333334e0_dp*t1519*t187*t4729*t65 & 2582 - 0.1111111112e0_dp*t5938 - t5942 - 0.2000000002e1_dp*t5944 - 0.5555555558e-1_dp & 2583 *t503*t4955 + t5949 - t5952 + t5954 + t5958 - t5960 & 2584 + t5963 - 0.1111111112e0_dp*t5964 - 0.2222222224e0_dp*t5966 - t5971 & 2585 - t5973 + t5975 - t5977 2586 t5985 = 0.5000000001e0_dp*t1774*t4908 2587 t5990 = t177*t4729*t65 2588 t5994 = 0.5000000001e0_dp*t1766*t5990 2589 t5996 = 0.3703703705e-1_dp*t4943*t527 2590 t6000 = 0.9000000007e1_dp*t5262*t266*t4701*t4940 2591 t6002 = 0.1851851853e0_dp*t4943*t512 2592 t6004 = t1709*t178*t710 2593 t6006 = t719*t1838 2594 t6009 = 0.5000000001e0_dp*t1777*t4908 2595 t6017 = 0.5000000001e0_dp*t732*t5911 2596 t6019 = 0.7407407410e-1_dp*t719*t1726 2597 t6021 = t649*t1518*t1722 2598 t6023 = t5251*t67 2599 t6025 = 0.3703703705e-1_dp*t6023*t271 2600 t6029 = 0.5999999993e1_dp*t4946*t722*t4701*t4940 - t5985 - 0.5555555558e-1_dp & 2601 *t192*t199*t4898 + 0.3333333334e0_dp*t1748*t5990 & 2602 - t5994 + t5996 - t6000 + t6002 + 0.1800000000e2_dp*t6004 - 0.1111111112e0_dp & 2603 *t6006 - t6009 + 0.3000000000e1_dp*t4946*t187*t4701 & 2604 *t4940 - 0.6666666668e0_dp*t1748*t5956 - t6017 + t6019 + 0.6666666668e0_dp & 2605 *t6021 + t6025 - 0.5555555558e-1_dp*t58*t5613*t71 2606 t6031 = 0.5000000001e0_dp*t1720*t5990 2607 t6033 = 0.1000000000e1_dp*t5244*t1712 2608 t6036 = 0.2250000000e2_dp*t498*t472*t4905 2609 t6040 = 0.5555555558e-1_dp*t6023*t275 2610 t6042 = 0.1000000001e1_dp*t1763*t5990 2611 t6044 = 0.2000000002e1_dp*t1763*t5956 2612 t6047 = 0.4500000000e1_dp*t1720*t5881*t4940 2613 t6049 = t1688*t177*t709 2614 t6052 = t1504*t561*t65 2615 t6053 = t732*t6052 2616 t6056 = 0.5555555558e-1_dp*t508*t5271 2617 t6058 = 0.1111111112e0_dp*t4943*t520 2618 t6060 = t1766*t5881*t4940 2619 t6063 = 0.1000000000e1_dp*t1720*t5956 2620 t6066 = t1519*t705*t561*t65 2621 t6074 = 0.8099999996e2_dp*t496*t4769*t1141*t4915 2622 t6075 = t723*t6052 2623 t6078 = 0.1111111112e0_dp*t719*t1782 2624 t6079 = -t6031 - t6033 - t6036 + t187*t4897*t65 - t6040 - t6042 & 2625 + t6044 - t6047 - 0.1000000000e1_dp*t6049 - 0.1000000000e1_dp*t6053 & 2626 - t6056 - t6058 - 0.4500000000e1_dp*t6060 + t6063 + 0.6666666668e0_dp & 2627 *t6066 - 0.1000000000e1_dp*t237*t705*t1722 + t6074 - 0.2000000002e1_dp & 2628 *t6075 - t6078 2629 t6087 = 0.1666666667e0_dp*t429*t1966*t1410 2630 t6090 = 0.3125000000e0_dp*t4025*t1247*t4790 2631 t6091 = 0.3333333334e0_dp*t5745 - t5749 - t5752 - t5756 + t5760 + 0.1666666667e0_dp & 2632 *t165*t56*t4958*t140 + t5767 + t5770 + t5773 + & 2633 t5776 + t5780 - t5783 + t5786 + t5789 + t5792 - t5795 - 0.4444444444e0_dp & 2634 *t5797 + 0.3333333334e0_dp*t55*t57*(t5926 + t5978 + t6029 & 2635 + t6079) - t6087 - t6090 2636 t6094 = 0.1250000000e0_dp*t1981*t1247*t4801 2637 t6099 = 0.1800000000e2_dp*t1971*t1972*t4729*t149*t160 2638 t6102 = 0.2500000000e0_dp*t1981*t4553*t1410 2639 t6106 = 0.3600000000e2_dp*t1971*t1972*t1973*t672 2640 t6109 = 0.1666666667e0_dp*t1246*t1962*t1865 2641 t6112 = 0.5555555556e-1_dp*t1246*t4553*t1483 2642 t6116 = 0.3600000000e2_dp*t1971*t471*t20*t5713 2643 t6119 = 0.1250000000e0_dp*t1368*t462*t4790 2644 t6123 = 0.1666666667e0_dp*t1246*t446*t1825*t561 2645 t6126 = 0.1800000000e2_dp*t658*t4764*t425 2646 t6129 = 0.8333333335e-1_dp*t429*t437*t5174 2647 t6132 = 0.1666666667e0_dp*t165*t462*t4853 2648 t6136 = 0.5555555557e-1_dp*t165*t171*t5122*t17 2649 t6138 = t429*t1928*t593 2650 t6141 = t658*t575*t1925 2651 t6144 = t445*t4512*t668 2652 t6155 = 0.2500000000e0_dp*t1981*t4032*t1410 2653 t6158 = 0.1666666667e0_dp*t429*t679*t1571 2654 t6160 = t147*t1885*t672 2655 t6162 = t6094 + t6099 + t6102 + t6106 - t6109 + t6112 - t6116 + t6119 & 2656 - t6123 + t6126 - t6129 + t6132 - t6136 - 0.1666666667e0_dp*t6138 & 2657 + 0.3600000000e2_dp*t6141 + 0.3333333334e0_dp*t6144 + 0.2e1_dp*t147 & 2658 *(t4881 - t4884 - t4887 + 0.9000000000e1_dp*t4889 - t4893 + 0.6000000000e1_dp & 2659 *t4895)*t149*t160 + t6155 - t6158 + (4*t6160) 2660 t6170 = 0.3333333336e0_dp*t289*t597*t1571 2661 t6173 = 0.3333333336e0_dp*t55*t5295*t140 2662 t6175 = t83*t597*t1688 2663 t6179 = 0.3333333336e0_dp*t165*t3865*t561 2664 t6181 = t289*t1564*t593 2665 t6185 = 0.3333333336e0_dp*t289*t597*t1553 2666 t6186 = -0.3333333336e0_dp*t5347 - t5351 - t5354 - t5357 - t5360 - 0.2222222224e0_dp & 2667 *t144*t46*(t5423 + t5742 + t6091 + t6162) - t6170 & 2668 - t6173 - 0.6666666672e0_dp*t6175 - t6179 - 0.3333333336e0_dp*t6181 & 2669 - t6185 2670 t6189 = 0.8333333340e-1_dp*t906*t294*t5163 2671 t6192 = 0.3333333336e0_dp*t83*t294*t5122 2672 t6194 = t83*t3875*t561 2673 t6198 = 0.3333333336e0_dp*t289*t294*t5170 2674 t6201 = 0.3333333336e0_dp*t289*t597*t1557 2675 t6207 = 0.1666666668e0_dp*t1546*t897*t4797 2676 t6210 = 0.1666666668e0_dp*t289*t294*t5174 2677 t6213 = 0.3333333336e0_dp*t55*t84*t5122 2678 t6216 = 0.8333333340e-1_dp*t429*t897*t4701 2679 t6219 = 0.8333333340e-1_dp*t906*t384*t4790 2680 t6222 = 0.8333333340e-1_dp*t1546*t897*t4801 2681 t6223 = t6189 - t6192 - 0.6666666672e0_dp*t6194 - t6198 - t6201 - 0.3333333336e0_dp & 2682 *t83*t84*t5613 + t6207 - t6210 - t6213 + t6216 + & 2683 t6219 + t6222 2684 t6227 = -t4704 - t4707 - t4732 - t4789 + t4793 - t4796 - t4800 - t4804 & 2685 - t4808 - t4812 - t4857 - t4861 - 0.1333333334e1_dp*t4864 - t4869 & 2686 - 0.4444444448e0_dp*t43*t46*t5036 + t8*(t5305 + t5343 + t6186 & 2687 + t6223) 2688 e_ndrho_ndrho_rho(ii) = e_ndrho_ndrho_rho(ii) + t6227*sx 2689 t6247 = t4769*t2992 2690 t6249 = t4772*t2027 2691 t6252 = t56*t4701 2692 t6253 = t6252*t526 2693 t6256 = t56*t4729 2694 t6257 = t6256*t526 2695 t6260 = t4743*t526 2696 t6263 = t20*t4853 2697 t6267 = t26*t1447 2698 t6268 = t6267*t709 2699 t6271 = t4764*t2027 2700 t6281 = -0.1620000000e3_dp*t6247*t4733*t6249 - 0.1200000000e2_dp* & 2701 t473*t6253 + 0.5999999999e1_dp*t478*t6257 + 0.5399999998e2_dp*t4771 & 2702 *t6260 + 0.8999999998e1_dp*t478*t6263*t65 + 0.8099999996e2_dp & 2703 *t4771*t6268 - 0.1800000000e2_dp*t473*t6271 - 0.4050000000e2_dp & 2704 *t473*t575*t2095 - 0.5000000001e0_dp*t60*t4853*t65 + 0.8999999998e1_dp & 2705 *t4901 - t4907 + t4911 2706 t6283 = t4701*t1518 2707 t6290 = t4917 - t4920 + 0.5000000001e0_dp*t4922 + t4925 + 0.3333333334e0_dp & 2708 *t6283*t177*t65 - 0.5000000001e0_dp*t4929 - t4932 - t4935 & 2709 + 0.5850000000e2_dp*t4941 + t4945 - t4951 - 0.5555555558e-1_dp*t4952 2710 t6291 = t6281 + t6290 2711 t6308 = 0.4050000000e2_dp*t4734*t4736*t2821*t18*t4739*t237 & 2712 - 0.1125000000e2_dp*t2013*t1300*t19*t4790 - t5028 - t5022 + & 2713 0.1500000000e1_dp*t2013*t398*t68*t5002 + 0.3333333334e0_dp*t55 & 2714 *t57*t6291 + t5019 - 0.3000000000e1_dp*t566*t1885*t569 - t5016 & 2715 - 0.9000000000e1_dp*t4734*t4736*t1300*t4701*t149*t17 & 2716 + t5032 + 0.1666666667e0_dp*t165*t2088*t561 - 0.5555555557e-1_dp* & 2717 t5011 + t5001 2718 t6338 = 0.1666666667e0_dp*t4874 - t5025 - 0.2700000000e2_dp*t4734*t392 & 2719 *t4736*t1300*my_rho*t5002*t149 - 0.3000000000e1_dp*t2009 & 2720 *t4748 - 0.2700000000e2_dp*t4738*t18*t1973*t1447 - t5008 - & 2721 0.3000000000e1_dp*t567*t151*t19*t4853 + t5035 - 0.1000000000e1_dp & 2722 *t2013*t2018*t5009 + 0.9000000000e1_dp*t2013*t2014*t4797 & 2723 - t4872 + 0.4500000000e1_dp*t2013*t2014*t4801 + t4878 + t5005 & 2724 + 0.4500000000e1_dp*t2009*t4744 2725 t6339 = t6308 + t6338 2726 t6344 = -t5043 - t5047 - t5050 - t5126 - t5284 - t5291 + t5294 - t5298 & 2727 - t5301 - 0.3333333336e0_dp*t5303 - t5308 - t5311 - t5314 2728 t6352 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 + 0.40e1_dp*t102 & 2729 *t327*t2057*t557 - t5456 + t5459 - t5462 + t5466 - t5468 2730 t6363 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.9600000000e2_dp & 2731 *t5496 + t5499 - t5503 - t5507 + t5509 - 0.2400000000e2_dp & 2732 *t5511 - 0.960e2_dp*t5115*t1060 - 0.240e2_dp*t2054*t3674 + 0.1200e3_dp & 2733 *t1054*t640*t3679 2734 t6367 = t5472 - t5474 - t5478 - t5523 + t5525 + 0.40e1_dp*t5528 + t5531 & 2735 + t5533 + t5535 + t5537 - 0.20e1_dp*t102*t105*t6363 + t5540 2736 t6370 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 2737 - 0.40e1_dp*t5565 + t5568 + t5572 + t5574 2738 t6373 = t5579 - t5581 - 0.40e1_dp*t112*t2058 - t5585 + t5590 - t5593 & 2739 - t5595 + t5597 - t5600 - t5602 + t5604 + t5607 + t5610 2740 t6375 = t6352 + t6367 + t6370 + t6373 2741 t6380 = -t5317 - t5320 + t5323 - t5326 - t5329 - 0.3333333336e0_dp*t83 & 2742 *t597*t2061 - 0.3333333336e0_dp*t83*t84*t6375 + t5333 - t5335 & 2743 - t5338 - t5342 - 0.1666666668e0_dp*t5347 - t5351 2744 t6389 = -t5354 - t5357 - 0.3333333336e0_dp*t83*t45*t2139*t561 & 2745 - t5360 - t6170 - t6173 - 0.3333333336e0_dp*t6175 - t6179 - 0.1666666668e0_dp & 2746 *t6181 - t6185 + t6189 - t6192 - 0.3333333336e0_dp*t6194 2747 t6400 = t2061*t561 2748 t6415 = -t5363 + t5367 - t5370 + 0.1111111112e0_dp*t5373 - 0.5555555557e-1_dp & 2749 *t5376 + 0.1666666667e0_dp*t5379 - t5383 - t5386 - t5389 + & 2750 0.1200000000e2_dp*t658*t2031*t673*t17 + 0.3333333334e0_dp*t170 & 2751 *t27*t6291*t172 - t5397 2752 t6428 = t5635 - t5638 + t5641 + 0.2250000000e1_dp*t5643 - t5647 - 0.1500000000e1_dp & 2753 *t151*t50*t6375 - t5650 + t5653 - t5657 - t5660 & 2754 + t5663 - t5666 2755 t6433 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 2756 + t5695 + 0.2250000000e1_dp*t400*t19*t2061*t561 + t5698 - & 2757 t5701 2758 t6442 = t5400 + 0.1666666667e0_dp*t5402 - t5406 + 0.1666666667e0_dp*t165 & 2759 *t56*t2131*t561 + 0.1666666667e0_dp*t165*t679*t2061 + & 2760 (2*t147*t149*(t6428 + t6433)) - t5409 - t5412 - t5415 + & 2761 t5418 + 0.1800000000e2_dp*t658*t575*t2074 + 0.1800000000e2_dp*t5421 2762 t6451 = -t5426 + t5429 - 0.2222222223e0_dp*t5432 + t5436 + 0.1620000000e3_dp & 2763 *t4995*t6267*t1974 + 0.1666666667e0_dp*t165*t2088*t649 & 2764 + t5619 + t5622 - t5625 - t5628 + t5631 + t5716 2765 t6461 = t5719 - t5722 - 0.8333333335e-1_dp*t5724 + 0.1200000000e2_dp* & 2766 t658*t6256*t2077 - 0.3240000000e3_dp*t4994*t6247*t4772*t2082 & 2767 + t5728 + t5731 - t5734 - t5738 + t5741 + 0.1666666667e0_dp*t5745 & 2768 - t5749 2769 t6479 = -t5752 + 0.1666666667e0_dp*t445*t2042*my_rho*t668 - t5756 & 2770 - 0.3600000000e2_dp*t2081*t575*t673*t237 + 0.1800000000e2_dp* & 2771 t658*t6263*t161 + t5760 + t5767 + t5770 - 0.7200000000e2_dp*t2081 & 2772 *t575*t161*t1447 + t5773 + t5776 + t5780 2773 t6490 = -t5783 - 0.3600000000e2_dp*t2081*t4764*t2082 - 0.2400000000e2_dp & 2774 *t2081*t6252*t2077 + t5786 + t5789 + t5792 - t5795 - 0.4444444445e0_dp & 2775 *t5797 - t6087 - 0.8333333335e-1_dp*t429*t166*t6400 & 2776 - t6090 + t6094 2777 t6499 = t6099 + 0.1666666667e0_dp*t165*t166*t6375 + t6102 + 0.1666666667e0_dp & 2778 *t165*t56*t6291*t140 + t6106 - t6109 + t6112 - t6116 & 2779 + t6119 - t6123 + t6126 - t6129 2780 t6509 = t4853*t65 2781 t6529 = 0.4999999999e0_dp*t5875 - 0.5000000001e0_dp*t5244*t2095 - 0.5000000001e0_dp & 2782 *t732*t6509 + t5880 + 0.1000000000e1_dp*t649*t471 & 2783 *t2099 - 0.1620000000e3_dp*t5247*t2992*t4733*t6249 - 0.5555555558e-1_dp & 2784 *t5885 + 0.8999999998e1_dp*t140*t2992*t4701*t59* & 2785 t62*t2027 - 0.5000000001e0_dp*t5888 - t5891 - 0.1800000000e2_dp*t2118 & 2786 *t6271 2787 t6539 = t5898 + t5902 - t5905 + 0.8999999998e1_dp*t5908 - t5913 + 0.2000000000e1_dp & 2788 *t2098*t2095*t561 - 0.5000000001e0_dp*t5918 - t5922 & 2789 + 0.3333333334e0_dp*t6283*t187*t177*t65 + t5925 - t5929 2790 t6554 = -t5932 - 0.5555555558e-1_dp*t5938 + 0.666666666e0_dp*t6283* & 2791 t722*t177*t65 - t5942 + 0.8999999998e1_dp*t2124*t59*t177* & 2792 t710 + 0.1000000001e1_dp*t5944 - 0.5000000001e0_dp*t2061*t177*t709 & 2793 + t5949 + t5952 + t5954 - t5958 2794 t6557 = t1447*t59 2795 t6569 = -t5960 - 0.5000000001e0_dp*t5237*t2095 + t5963 - 0.4500000000e1_dp & 2796 *t5256*t6557*t710 - 0.5555555558e-1_dp*t5964 - 0.1111111112e0_dp & 2797 *t5966 - t5971 - 0.1200000000e2_dp*t2118*t6253 - 0.5555555558e-1_dp & 2798 *t719*t2126 - t5973 + t5975 + 0.5999999999e1_dp*t2114*t6257 2799 t6583 = -t5977 - t5985 + t5994 - 0.5000000001e0_dp*t716*t6509 + t5996 & 2800 - t6000 + t6002 + 0.8999999998e1_dp*t6004 + 0.1000000000e1_dp*t2098 & 2801 *t4908*t237 - 0.1000000001e1_dp*t723*t6509 - 0.1800000000e2_dp & 2802 *t5228*t2117*t2028 2803 t6596 = t5247*t1141*t4733 2804 t6603 = -0.5555555558e-1_dp*t6006 - t6009 - t6017 - 0.5555555558e-1_dp & 2805 *t58*t6375*t71 + t6019 - 0.9000000007e1_dp*t5262*t6557*t710 & 2806 + 0.8999999998e1_dp*t708*t62*t6509 + 0.3333333334e0_dp*t6021 + & 2807 t6025 + 0.8099999996e2_dp*t6596*t6268 + 0.5399999998e2_dp*t6596* & 2808 t6260 + 0.8999999998e1_dp*t5229*t2104 2809 t6611 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 2810 - t5825 - t5828 - t5830 + t5833 2811 t6620 = t5835 + t5838 + t5841 - t5845 + t5848 - 0.1800000000e2_dp*t5850 & 2812 - t5854 + t5857 + t5861 - t5864 - 0.1800000000e2_dp*t473*t20 & 2813 *t2061*t561 + 0.8999999998e1_dp*t178*t62*t6375 2814 t6621 = t6611 + t6620 2815 t6630 = -0.3000000000e1_dp*t5256*t4904*t237 + 0.5999999999e1_dp*t5228 & 2816 *t2113*t2032 + t6621*t65 - t6031 - 0.4050000000e2_dp*t471 & 2817 *t187*t6557*t710 - t6033 - t6036 - t6040 + t6042 - 0.5000000001e0_dp & 2818 *t60*t2124*t709 - t6044 2819 t6640 = -t6047 - 0.5000000001e0_dp*t6049 - 0.5555555558e-1_dp*t192* & 2820 t68*t6621*t65 - 0.5000000001e0_dp*t6053 - t6056 - t6058 + 0.5850000000e2_dp & 2821 *t6060 + t6063 + 0.3333333334e0_dp*t6066 + t6074 - 0.1000000001e1_dp & 2822 *t6075 - t6078 2823 t6658 = 0.1800000000e2_dp*t658*t2035*t673 - 0.8333333335e-1_dp*t429 & 2824 *t2088*t593 + t6132 + 0.3333333334e0_dp*t55*t57*(t6529 + & 2825 t6539 + t6554 + t6569 + t6583 + t6603 + t6630 + t6640) - t6136 - 0.8333333335e-1_dp & 2826 *t6138 + 0.1800000000e2_dp*t6141 + 0.1080000000e3_dp* & 2827 t4995*t4743*t2077 + 0.1080000000e3_dp*t657*t1142*t4760*t2082 & 2828 + 0.1666666667e0_dp*t6144 + t6155 - t6158 + (2*t6160) 2829 t6665 = -0.3333333336e0_dp*t83*t45*t6339*t140 - t6198 - 0.3333333336e0_dp & 2830 *t83*t2050*t649 - t6201 + t6207 - t6210 - t6213 + t6216 & 2831 + t6219 - 0.1666666668e0_dp*t289*t2050*t593 - 0.1666666668e0_dp & 2832 *t289*t84*t6400 + t6222 - 0.2222222224e0_dp*t144*t46*(t6415 & 2833 + t6442 + t6451 + t6461 + t6479 + t6490 + t6499 + t6658) 2834 t6669 = -t4704 - t4707 - t4732 + t4793 - t4796 - t4800 - t4804 - t4861 & 2835 - 0.6666666672e0_dp*t4864 - t4869 - t4812 - t4857 - t4789 - t4808 & 2836 - 0.6666666672e0_dp*t217*t46*t2046*t561 - 0.4444444448e0_dp* & 2837 t43*t46*t6339 + t8*(t6344 + t6380 + t6389 + t6665) 2838 e_ndrho_ndrho_ndrho(ii) = e_ndrho_ndrho_ndrho(ii) + t6669*sx 2839 END IF 2840 2841 END IF 2842 END DO 2843!$OMP END DO 2844 END SUBROUTINE xb88_lr_adiabatic_lda_calc 2845 2846! ************************************************************************************************** 2847!> \brief evaluates the becke 88 longrange exchange functional for lsd 2848!> \param rho_set ... 2849!> \param deriv_set ... 2850!> \param grad_deriv ... 2851!> \param xb88_lr_ad_params ... 2852!> \par History 2853!> 01.2008 created [mguidon] 2854!> \author Manuel Guidon 2855! ************************************************************************************************** 2856 SUBROUTINE xb88_lr_adiabatic_lsd_eval(rho_set, deriv_set, grad_deriv, xb88_lr_ad_params) 2857 TYPE(xc_rho_set_type), POINTER :: rho_set 2858 TYPE(xc_derivative_set_type), POINTER :: deriv_set 2859 INTEGER, INTENT(in) :: grad_deriv 2860 TYPE(section_vals_type), POINTER :: xb88_lr_ad_params 2861 2862 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lsd_eval', & 2863 routineP = moduleN//':'//routineN 2864 2865 INTEGER :: handle, i, ispin, npoints 2866 INTEGER, DIMENSION(:, :), POINTER :: bo 2867 REAL(kind=dp) :: epsilon_rho, lambda, omega, sx 2868 REAL(kind=dp), DIMENSION(:, :, :), POINTER :: dummy, e_0 2869 TYPE(cp_3d_r_p_type), DIMENSION(2) :: e_ndrho, e_ndrho_ndrho, e_ndrho_ndrho_ndrho, & 2870 e_ndrho_ndrho_rho, e_ndrho_rho, e_ndrho_rho_rho, e_rho, e_rho_rho, e_rho_rho_rho, & 2871 norm_drho, rho 2872 TYPE(xc_derivative_type), POINTER :: deriv 2873 2874 CALL timeset(routineN, handle) 2875 2876 CALL cite_reference(Becke1988) 2877 2878 NULLIFY (deriv, bo) 2879 DO i = 1, 2 2880 NULLIFY (norm_drho(i)%array, rho(i)%array) 2881 END DO 2882 2883 CALL section_vals_val_get(xb88_lr_ad_params, "SCALE_X", r_val=sx) 2884 CALL section_vals_val_get(xb88_lr_ad_params, "OMEGA", r_val=omega) 2885 CALL section_vals_val_get(xb88_lr_ad_params, "LAMBDA", r_val=lambda) 2886 2887 CPASSERT(ASSOCIATED(rho_set)) 2888 CPASSERT(rho_set%ref_count > 0) 2889 CPASSERT(ASSOCIATED(deriv_set)) 2890 CPASSERT(deriv_set%ref_count > 0) 2891 CALL xc_rho_set_get(rho_set, & 2892 rhoa=rho(1)%array, & 2893 rhob=rho(2)%array, norm_drhoa=norm_drho(1)%array, & 2894 norm_drhob=norm_drho(2)%array, rho_cutoff=epsilon_rho, & 2895 local_bounds=bo) 2896 npoints = (bo(2, 1) - bo(1, 1) + 1)*(bo(2, 2) - bo(1, 2) + 1)*(bo(2, 3) - bo(1, 3) + 1) 2897 2898 dummy => rho(1)%array 2899 2900 e_0 => dummy 2901 DO i = 1, 2 2902 e_rho(i)%array => dummy 2903 e_ndrho(i)%array => dummy 2904 e_rho_rho(i)%array => dummy 2905 e_ndrho_rho(i)%array => dummy 2906 e_ndrho_ndrho(i)%array => dummy 2907 e_rho_rho_rho(i)%array => dummy 2908 e_ndrho_rho_rho(i)%array => dummy 2909 e_ndrho_ndrho_rho(i)%array => dummy 2910 e_ndrho_ndrho_ndrho(i)%array => dummy 2911 END DO 2912 2913 IF (grad_deriv >= 0) THEN 2914 deriv => xc_dset_get_derivative(deriv_set, "", & 2915 allocate_deriv=.TRUE.) 2916 CALL xc_derivative_get(deriv, deriv_data=e_0) 2917 END IF 2918 IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN 2919 deriv => xc_dset_get_derivative(deriv_set, "(rhoa)", & 2920 allocate_deriv=.TRUE.) 2921 CALL xc_derivative_get(deriv, deriv_data=e_rho(1)%array) 2922 deriv => xc_dset_get_derivative(deriv_set, "(rhob)", & 2923 allocate_deriv=.TRUE.) 2924 CALL xc_derivative_get(deriv, deriv_data=e_rho(2)%array) 2925 deriv => xc_dset_get_derivative(deriv_set, "(norm_drhoa)", & 2926 allocate_deriv=.TRUE.) 2927 CALL xc_derivative_get(deriv, deriv_data=e_ndrho(1)%array) 2928 deriv => xc_dset_get_derivative(deriv_set, "(norm_drhob)", & 2929 allocate_deriv=.TRUE.) 2930 CALL xc_derivative_get(deriv, deriv_data=e_ndrho(2)%array) 2931 END IF 2932 IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN 2933 deriv => xc_dset_get_derivative(deriv_set, "(rhoa)(rhoa)", & 2934 allocate_deriv=.TRUE.) 2935 CALL xc_derivative_get(deriv, deriv_data=e_rho_rho(1)%array) 2936 deriv => xc_dset_get_derivative(deriv_set, "(rhob)(rhob)", & 2937 allocate_deriv=.TRUE.) 2938 CALL xc_derivative_get(deriv, deriv_data=e_rho_rho(2)%array) 2939 deriv => xc_dset_get_derivative(deriv_set, "(norm_drhoa)(rhoa)", & 2940 allocate_deriv=.TRUE.) 2941 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho(1)%array) 2942 deriv => xc_dset_get_derivative(deriv_set, "(norm_drhob)(rhob)", & 2943 allocate_deriv=.TRUE.) 2944 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho(2)%array) 2945 deriv => xc_dset_get_derivative(deriv_set, & 2946 "(norm_drhoa)(norm_drhoa)", allocate_deriv=.TRUE.) 2947 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho(1)%array) 2948 deriv => xc_dset_get_derivative(deriv_set, & 2949 "(norm_drhob)(norm_drhob)", allocate_deriv=.TRUE.) 2950 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho(2)%array) 2951 END IF 2952 IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN 2953 deriv => xc_dset_get_derivative(deriv_set, "(rhoa)(rhoa)(rhoa)", & 2954 allocate_deriv=.TRUE.) 2955 CALL xc_derivative_get(deriv, deriv_data=e_rho_rho_rho(1)%array) 2956 deriv => xc_dset_get_derivative(deriv_set, "(rhob)(rhob)(rhob)", & 2957 allocate_deriv=.TRUE.) 2958 CALL xc_derivative_get(deriv, deriv_data=e_rho_rho_rho(2)%array) 2959 deriv => xc_dset_get_derivative(deriv_set, & 2960 "(norm_drhoa)(rhoa)(rhoa)", allocate_deriv=.TRUE.) 2961 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho_rho(1)%array) 2962 deriv => xc_dset_get_derivative(deriv_set, & 2963 "(norm_drhob)(rhob)(rhob)", allocate_deriv=.TRUE.) 2964 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_rho_rho(2)%array) 2965 deriv => xc_dset_get_derivative(deriv_set, & 2966 "(norm_drhoa)(norm_drhoa)(rhoa)", allocate_deriv=.TRUE.) 2967 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_rho(1)%array) 2968 deriv => xc_dset_get_derivative(deriv_set, & 2969 "(norm_drhob)(norm_drhob)(rhob)", allocate_deriv=.TRUE.) 2970 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_rho(2)%array) 2971 deriv => xc_dset_get_derivative(deriv_set, & 2972 "(norm_drhoa)(norm_drhoa)(norm_drhoa)", allocate_deriv=.TRUE.) 2973 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_ndrho(1)%array) 2974 deriv => xc_dset_get_derivative(deriv_set, & 2975 "(norm_drhob)(norm_drhob)(norm_drhob)", allocate_deriv=.TRUE.) 2976 CALL xc_derivative_get(deriv, deriv_data=e_ndrho_ndrho_ndrho(2)%array) 2977 END IF 2978 IF (grad_deriv > 3 .OR. grad_deriv < -3) THEN 2979 CPABORT("derivatives bigger than 3 not implemented") 2980 END IF 2981 2982 DO ispin = 1, 2 2983 2984!$OMP PARALLEL DEFAULT(NONE) & 2985!$OMP SHARED(rho, ispin, norm_drho, e_0, e_rho, e_ndrho) & 2986!$OMP SHARED(e_rho_rho, e_ndrho_rho, e_ndrho_ndrho) & 2987!$OMP SHARED(e_rho_rho_rho, e_ndrho_rho_rho) & 2988!$OMP SHARED(e_ndrho_ndrho_rho, e_ndrho_ndrho_ndrho) & 2989!$OMP SHARED(grad_deriv, npoints, epsilon_rho, sx, omega) & 2990!$OMP SHARED(lambda) 2991 2992 CALL xb88_lr_adiabatic_lsd_calc( & 2993 rho_spin=rho(ispin)%array, & 2994 norm_drho_spin=norm_drho(ispin)%array, & 2995 e_0=e_0, & 2996 e_rho_spin=e_rho(ispin)%array, & 2997 e_ndrho_spin=e_ndrho(ispin)%array, & 2998 e_rho_rho_spin=e_rho_rho(ispin)%array, & 2999 e_ndrho_rho_spin=e_ndrho_rho(ispin)%array, & 3000 e_ndrho_ndrho_spin=e_ndrho_ndrho(ispin)%array, & 3001 e_rho_rho_rho_spin=e_rho_rho_rho(ispin)%array, & 3002 e_ndrho_rho_rho_spin=e_ndrho_rho_rho(ispin)%array, & 3003 e_ndrho_ndrho_rho_spin=e_ndrho_ndrho_rho(ispin)%array, & 3004 e_ndrho_ndrho_ndrho_spin=e_ndrho_ndrho_ndrho(ispin)%array, & 3005 grad_deriv=grad_deriv, npoints=npoints, & 3006 epsilon_rho=epsilon_rho, & 3007 sx=sx, omega=omega, lambda=lambda) 3008 3009!$OMP END PARALLEL 3010 3011 END DO 3012 3013 CALL timestop(handle) 3014 3015 END SUBROUTINE xb88_lr_adiabatic_lsd_eval 3016 3017! ************************************************************************************************** 3018!> \brief low level calculation of the becke 88 exchange functional for lsd 3019!> \param rho_spin alpha or beta spin density 3020!> \param norm_drho_spin || grad rho_spin || 3021!> \param e_0 adds to it the local value of the functional 3022!> \param e_rho_spin e_*_spin: derivative of the functional wrt. to the variables 3023!> named where the * is. Everything wrt. to the spin of the arguments. 3024!> \param e_ndrho_spin ... 3025!> \param e_rho_rho_spin ... 3026!> \param e_ndrho_rho_spin ... 3027!> \param e_ndrho_ndrho_spin ... 3028!> \param e_rho_rho_rho_spin ... 3029!> \param e_ndrho_rho_rho_spin ... 3030!> \param e_ndrho_ndrho_rho_spin ... 3031!> \param e_ndrho_ndrho_ndrho_spin ... 3032!> \param grad_deriv ... 3033!> \param npoints ... 3034!> \param epsilon_rho ... 3035!> \param sx scaling-parameter for exchange 3036!> \param omega ... 3037!> \param lambda ... 3038!> \par History 3039!> 01.2008 created [mguidon] 3040!> \author Manuel Guidon 3041! ************************************************************************************************** 3042 SUBROUTINE xb88_lr_adiabatic_lsd_calc(rho_spin, norm_drho_spin, e_0, & 3043 e_rho_spin, e_ndrho_spin, e_rho_rho_spin, e_ndrho_rho_spin, & 3044 e_ndrho_ndrho_spin, e_rho_rho_rho_spin, e_ndrho_rho_rho_spin, & 3045 e_ndrho_ndrho_rho_spin, & 3046 e_ndrho_ndrho_ndrho_spin, grad_deriv, npoints, epsilon_rho, sx, & 3047 omega, lambda) 3048 REAL(kind=dp), DIMENSION(*), INTENT(in) :: rho_spin, norm_drho_spin 3049 REAL(kind=dp), DIMENSION(*), INTENT(inout) :: e_0, e_rho_spin, e_ndrho_spin, e_rho_rho_spin, & 3050 e_ndrho_rho_spin, e_ndrho_ndrho_spin, e_rho_rho_rho_spin, e_ndrho_rho_rho_spin, & 3051 e_ndrho_ndrho_rho_spin, e_ndrho_ndrho_ndrho_spin 3052 INTEGER, INTENT(in) :: grad_deriv, npoints 3053 REAL(kind=dp), INTENT(in) :: epsilon_rho, sx, omega, lambda 3054 3055 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lsd_calc', & 3056 routineP = moduleN//':'//routineN 3057 3058 INTEGER :: ii 3059 REAL(kind=dp) :: Cx, epsilon_rho43, my_epsilon_rho, ndrho, rho, t1, t10, t1000, t1002, & 3060 t1004, t1008, t1012, t1014, t1019, t102, t1021, t1024, t1026, t103, t1030, t1033, t1034, & 3061 t1036, t104, t1040, t1044, t1046, t105, t1050, t1054, t1055, t1056, t1058, t1059, t106, & 3062 t1060, t1063, t1064, t1067, t1068, t107, t1071, t1076, t1079, t108, t1082, t1085, t1089, & 3063 t1093, t1097, t1099, t11, t1100, t1101, t1106, t1109, t1111, t1119, t112, t1122, t1125, & 3064 t1126, t1129, t1134, t1137, t114, t1140, t1141, t1142, t1143, t115, t1150, t1157, t116, & 3065 t1161, t1168, t1172, t1176, t1189, t119, t1191, t1192, t1193, t1194 3066 REAL(kind=dp) :: t12, t1200, t1201, t1206, t1207, t1210, t1213, t1216, t122, t1221, t1224, & 3067 t123, t1235, t1238, t1239, t1246, t1247, t1254, t126, t1264, t1268, t1275, t1283, t1284, & 3068 t1288, t1292, t13, t130, t1300, t1301, t1302, t1309, t131, t1316, t132, t1320, t133, & 3069 t1333, t1340, t1347, t1348, t136, t1360, t1367, t1368, t137, t1372, t1373, t1377, t1387, & 3070 t1388, t1392, t1396, t1397, t14, t140, t1401, t1406, t1408, t1409, t141, t1410, t1411, & 3071 t1413, t1417, t1420, t1425, t1426, t1429, t1436, t1438, t1439, t144, t1440, t1443, t1444, & 3072 t1447, t145, t1451, t1455, t1459, t146, t1466, t147, t1470, t1471 3073 REAL(kind=dp) :: t1476, t1479, t1482, t1483, t1485, t1489, t149, t1492, t1493, t1496, t1498, & 3074 t15, t150, t1500, t1502, t1504, t1505, t1506, t1507, t1509, t151, t1510, t1512, t1513, & 3075 t1515, t1517, t1518, t1519, t1523, t1525, t1528, t1530, t1531, t1535, t1536, t1541, & 3076 t1543, t1545, t1546, t1547, t1549, t155, t1552, t1553, t1556, t1557, t156, t1560, t1563, & 3077 t1564, t1565, t1568, t1570, t1571, t1574, t1575, t1577, t1579, t1581, t1582, t1584, & 3078 t1586, t1588, t1589, t1591, t1592, t1594, t1596, t1597, t1598, t1599, t16, t160, t1601, & 3079 t1602, t1603, t1605, t1607, t1608, t161, t1610, t1611, t1613, t1615 3080 REAL(kind=dp) :: t1616, t1617, t1618, t1620, t1621, t1622, t1624, t1625, t1626, t1628, & 3081 t1630, t1631, t1632, t1634, t1636, t1638, t164, t1640, t1642, t1644, t1645, t1647, t1649, & 3082 t165, t1652, t1654, t1656, t1658, t166, t1660, t1662, t1664, t1667, t1669, t1671, t1675, & 3083 t1677, t1679, t1680, t1681, t1684, t1685, t1688, t1689, t1693, t1694, t1696, t1699, t17, & 3084 t170, t1700, t1702, t1703, t1705, t1706, t1708, t1709, t171, t1712, t1714, t1715, t1717, & 3085 t1718, t1719, t172, t1720, t1722, t1724, t1726, t1728, t1730, t1731, t1735, t1737, t1740, & 3086 t1741, t1743, t1745, t1748, t1752, t1754, t1755, t1757, t1758 3087 REAL(kind=dp) :: t176, t1760, t1762, t1763, t1765, t1766, t1768, t1769, t177, t1773, t1774, & 3088 t1776, t1777, t1779, t178, t1782, t1784, t1785, t1787, t1789, t1790, t1794, t1795, t1797, & 3089 t18, t1800, t1801, t1804, t1807, t1810, t1811, t1814, t1817, t182, t1821, t1822, t1824, & 3090 t1825, t1828, t1829, t183, t1832, t1835, t1836, t1837, t1838, t1842, t1843, t1849, t1852, & 3091 t1854, t1858, t1861, t1864, t1865, t1868, t187, t1871, t1874, t1875, t1878, t1881, t1884, & 3092 t1885, t1886, t189, t1891, t1892, t1895, t1898, t19, t1901, t1902, t1905, t1908, t1912, & 3093 t1914, t1917, t192, t1920, t1923, t1924, t1925, t1928 3094 REAL(kind=dp) :: t1932, t1938, t1939, t194, t1940, t1943, t1946, t195, t1952, t1954, t1958, & 3095 t196, t1961, t1962, t1965, t1966, t1969, t1971, t1972, t1973, t1974, t1975, t1977, t1980, & 3096 t1981, t1984, t1987, t1988, t199, t1991, t1994, t1997, t20, t200, t2000, t2001, t2002, & 3097 t2006, t2009, t2013, t2014, t2018, t2022, t2027, t2028, t203, t2031, t2032, t2035, t2042, & 3098 t2046, t2050, t2054, t2057, t2058, t2061, t207, t2073, t2074, t2077, t2081, t2082, t2086, & 3099 t2088, t2095, t2098, t2099, t2104, t2107, t2113, t2114, t2117, t2118, t2124, t2126, & 3100 t2130, t2131, t2138, t2139, t214, t2143, t2147, t2160, t2169 3101 REAL(kind=dp) :: t217, t218, t2182, t2183, t2187, t219, t2190, t2193, t2196, t2197, t22, & 3102 t220, t2200, t2201, t2204, t2205, t221, t2220, t2226, t2227, t2230, t224, t225, t2257, & 3103 t2261, t2264, t2268, t2272, t2274, t2276, t2279, t2280, t2281, t2282, t2285, t2287, & 3104 t2292, t2295, t2296, t2299, t23, t230, t2300, t2304, t2307, t2308, t2311, t2312, t2319, & 3105 t2326, t233, t234, t2351, t2368, t237, t2378, t2382, t2392, t24, t2404, t2418, t2424, & 3106 t2437, t2439, t245, t2451, t2455, t2468, t2480, t249, t2492, t25, t250, t2537, t2552, & 3107 t2565, t2569, t2576, t2585, t26, t260, t2611, t262, t2621, t2622, t2631 3108 REAL(kind=dp) :: t2635, t2636, t264, t2645, t2655, t266, t267, t268, t27, t2707, t271, & 3109 t2720, t2724, t2732, t274, t275, t2759, t2763, t2779, t278, t2783, t2808, t2816, t282, & 3110 t2821, t2823, t283, t2833, t2843, t2853, t2869, t2873, t2877, t2885, t289, t290, t2935, & 3111 t2937, t294, t295, t298, t299, t2992, t2994, t2998, t302, t3026, t3030, t306, t3069, & 3112 t307, t3070, t308, t3085, t309, t3093, t3097, t3098, t31, t311, t3129, t313, t3141, t316, & 3113 t317, t318, t3181, t321, t322, t3232, t3244, t3248, t326, t3262, t3264, t3268, t327, & 3114 t3278, t328, t3288, t329, t3291, t3305, t3306, t3314, t332, t3329, t3339 3115 REAL(kind=dp) :: t3344, t3347, t3352, t3353, t3356, t3357, t336, t3362, t3363, t3366, t3378, & 3116 t3379, t3382, t339, t341, t342, t343, t3449, t3453, t347, t3472, t3491, t3494, t3497, & 3117 t35, t350, t3501, t3505, t3507, t3512, t3513, t3514, t352, t3525, t3533, t3543, t3546, & 3118 t3547, t3552, t3553, t356, t3561, t3569, t357, t3575, t3576, t3580, t3581, t36, t360, & 3119 t3608, t3618, t362, t365, t366, t3668, t367, t3673, t3674, t3677, t3679, t368, t3682, & 3120 t37, t371, t3711, t372, t3726, t375, t3750, t376, t3763, t379, t3794, t3796, t380, t3826, & 3121 t3827, t383, t384, t3842, t3849, t3853, t3861, t3865, t3869, t387 3122 REAL(kind=dp) :: t3871, t3875, t3892, t3918, t392, t3925, t393, t3933, t3939, t394, t3940, & 3123 t3965, t3969, t3975, t3979, t398, t3985, t399, t4, t40, t400, t401, t4010, t4018, t4025, & 3124 t4032, t405, t406, t4070, t4079, t41, t4101, t4108, t413, t4140, t4156, t417, t42, t4201, & 3125 t4214, t4230, t424, t425, t4255, t4256, t4261, t4272, t428, t429, t4292, t43, t4317, & 3126 t433, t4345, t4352, t437, t4378, t4392, t44, t4428, t444, t445, t446, t4466, t4498, t45, & 3127 t450, t4505, t451, t4512, t4545, t455, t4553, t4575, t4585, t46, t4607, t462, t4627, & 3128 t4657, t466, t4696, t47, t470, t4700, t4701, t4704, t4707, t4708 3129 REAL(kind=dp) :: t471, t4713, t4714, t4717, t472, t4721, t4725, t4726, t4729, t473, t4732, & 3130 t4733, t4734, t4736, t4738, t4739, t474, t4743, t4744, t4748, t4760, t4764, t4768, t4769, & 3131 t4770, t4771, t4772, t4776, t478, t4782, t4786, t4789, t479, t4790, t4793, t4796, t4797, & 3132 t48, t4800, t4801, t4804, t4808, t4812, t4817, t4820, t4829, t4830, t4833, t4834, t4837, & 3133 t4838, t4849, t4850, t4853, t4857, t4861, t4864, t4869, t4872, t4874, t4878, t4881, & 3134 t4884, t4887, t4889, t489, t4893, t4895, t4897, t4898, t49, t4901, t4904, t4905, t4907, & 3135 t4908, t4909, t4911, t4915, t4917, t4918, t4920, t4922, t4925 3136 REAL(kind=dp) :: t4929, t4932, t4935, t4940, t4941, t4943, t4945, t4946, t4951, t4952, & 3137 t4955, t4958, t496, t498, t4994, t4995, t50, t500, t5001, t5002, t5005, t5008, t5009, & 3138 t5011, t5013, t5016, t5019, t5022, t5025, t5028, t5029, t503, t5032, t5035, t5036, t5040, & 3139 t5043, t5044, t5047, t5050, t5051, t5060, t5065, t5069, t5079, t508, t5083, t5087, t5106, & 3140 t5108, t511, t5115, t5118, t512, t5122, t5123, t5126, t5139, t5143, t5147, t515, t516, & 3141 t5163, t517, t5170, t5174, t520, t5226, t5228, t5229, t5237, t5244, t5247, t5251, t5256, & 3142 t526, t5262, t527, t5270, t5271, t5276, t5280, t5281, t5284, t5291 3143 REAL(kind=dp) :: t5294, t5295, t5298, t53, t530, t5301, t5303, t5305, t5308, t531, t5311, & 3144 t5314, t5317, t5320, t5323, t5326, t5329, t5330, t5333, t5335, t5338, t5339, t534, t5342, & 3145 t5343, t5345, t5347, t5351, t5354, t5357, t5360, t5363, t5367, t537, t5370, t5371, t5373, & 3146 t5376, t5379, t5383, t5386, t5389, t5397, t5400, t5402, t5406, t5409, t541, t5412, t5415, & 3147 t5418, t5421, t5423, t5426, t5429, t5430, t5432, t5436, t5440, t5443, t5446, t5449, & 3148 t5451, t5454, t5456, t5459, t5460, t5462, t5466, t5468, t5469, t5472, t5474, t5478, & 3149 t5480, t5482, t5484, t5487, t5489, t5492, t5494, t5496, t5499, t55 3150 REAL(kind=dp) :: t550, t5503, t5507, t5509, t551, t5511, t5516, t5523, t5525, t5528, t5531, & 3151 t5533, t5535, t5537, t5540, t5541, t5545, t5548, t5551, t5553, t5558, t5560, t5562, & 3152 t5564, t5565, t5568, t557, t5572, t5574, t5575, t5579, t558, t5581, t5585, t5590, t5593, & 3153 t5595, t5597, t56, t5600, t5602, t5604, t5607, t561, t5610, t5611, t5613, t5619, t5622, & 3154 t5625, t5628, t5631, t5632, t5635, t5638, t5641, t5643, t5647, t5650, t5653, t5657, t566, & 3155 t5660, t5663, t5666, t5667, t567, t5670, t5671, t5673, t5676, t5679, t5682, t5686, t5689, & 3156 t569, t5692, t5695, t5696, t5698, t5699, t57, t5701, t5705 3157 REAL(kind=dp) :: t5713, t5716, t5719, t5722, t5724, t5728, t5731, t5734, t5738, t5741, & 3158 t5742, t5745, t5749, t575, t5752, t5756, t5760, t5767, t5770, t5773, t5776, t5780, t5783, & 3159 t5786, t5789, t579, t5792, t5795, t5797, t58, t5801, t5804, t5807, t5810, t5813, t5816, & 3160 t5819, t5822, t5825, t5828, t5830, t5831, t5833, t5835, t5838, t5841, t5845, t5848, t585, & 3161 t5850, t5854, t5857, t5861, t5864, t5868, t5869, t5875, t5880, t5881, t5885, t5888, t589, & 3162 t5891, t5898, t59, t590, t5902, t5905, t5908, t5911, t5913, t5918, t5922, t5925, t5926, & 3163 t5929, t593, t5932, t5938, t5940, t5942, t5944, t5949, t5952 3164 REAL(kind=dp) :: t5954, t5956, t5958, t5960, t5963, t5964, t5966, t597, t5971, t5973, t5975, & 3165 t5977, t5978, t598, t5985, t5990, t5994, t5996, t6, t60, t6000, t6002, t6004, t6006, & 3166 t6009, t6017, t6019, t6021, t6023, t6025, t6029, t6031, t6033, t6036, t6040, t6042, & 3167 t6044, t6047, t6049, t605, t6052, t6053, t6056, t6058, t6060, t6063, t6066, t6074, t6075, & 3168 t6078, t6079, t608, t6087, t609, t6090, t6091, t6094, t6099, t61, t6102, t6106, t6109, & 3169 t6112, t6116, t6119, t6123, t6126, t6129, t6132, t6136, t6138, t614, t6141, t6144, t615, & 3170 t6155, t6158, t6160, t6162, t6170, t6173, t6175, t6179, t6181, t6185 3171 REAL(kind=dp) :: t6186, t6189, t6192, t6194, t6198, t62, t6201, t6207, t6210, t6213, t6216, & 3172 t6219, t6222, t6223, t6227, t624, t6247, t6249, t6252, t6253, t6256, t6257, t6260, t6263, & 3173 t6267, t6268, t627, t6271, t628, t6281, t6283, t6290, t6291, t63, t6308, t6338, t6339, & 3174 t6344, t635, t6352, t6363, t6367, t637, t6370, t6373, t6375, t6380, t6389, t640, t6400, & 3175 t6415, t6428, t6433, t6442, t645, t6451, t646, t6461, t6479, t649, t6490, t6499, t65, & 3176 t650, t6509, t6529, t653, t6539, t6554, t6557, t6569, t657, t658, t6583, t6596, t66, & 3177 t6603, t6611, t6620, t6621, t6630, t6640, t6658, t6665, t6669, t668 3178 REAL(kind=dp) :: t67, t672, t673, t679, t68, t689, t69, t7, t70, t705, t707, t708, t709, & 3179 t71, t710, t713, t716, t719, t722, t723, t728, t729, t732, t735, t739, t74, t747, t753, & 3180 t754, t764, t765, t766, t769, t772, t773, t776, t777, t78, t782, t785, t786, t787, t79, & 3181 t790, t792, t795, t796, t797, t8, t800, t801, t804, t815, t822, t826, t827, t83, t833, & 3182 t84, t85, t851, t852, t855, t857, t859, t86, t862, t863, t864, t865, t866, t867, t87, & 3183 t874, t877, t878, t88, t881, t882, t886, t889, t893, t894, t897, t9, t905, t906, t907, & 3184 t914, t918, t92, t922, t923, t926, t929, t93, t930, t94, t940, t941 3185 REAL(kind=dp) :: t942, t944, t946, t949, t95, t950, t953, t954, t955, t958, t959, t962, & 3186 t963, t966, t969, t97, t972, t973, t974, t975, t976, t979, t98, t980, t983, t984, t987, & 3187 t99, t991, t995, t997, xx 3188 3189 my_epsilon_rho = 0.5_dp*epsilon_rho 3190 epsilon_rho43 = my_epsilon_rho**(4.0_dp/3.0_dp) 3191 Cx = 1.5_dp*(3.0_dp/4.0_dp/pi)**(1.0_dp/3.0_dp) 3192 3193!$OMP DO 3194 DO ii = 1, npoints 3195 rho = rho_spin(ii) 3196 ndrho = norm_drho_spin(ii) 3197 IF (rho > my_epsilon_rho) THEN 3198 IF (grad_deriv >= 0) THEN 3199 t1 = rho**(0.1e1_dp/0.3e1_dp) 3200 xx = ndrho*MAX(1.0_dp/t1/rho, epsilon_rho43) 3201 t4 = lambda*rho 3202 t6 = ndrho**2 3203 t7 = beta*t6 3204 t8 = lambda**2 3205 t9 = t8**2 3206 t10 = t9**2 3207 t11 = 0.1e1_dp/t10 3208 t12 = rho**2 3209 t13 = t9*t8 3210 t14 = 0.1e1_dp/t13 3211 t15 = t12*t14 3212 t16 = t8*lambda 3213 t17 = 0.1e1_dp/t16 3214 t18 = rho*t17 3215 t19 = t18**(0.1e1_dp/0.3e1_dp) 3216 t20 = t19**2 3217 t22 = 0.1e1_dp/t20/t15 3218 t23 = t11*t22 3219 t24 = beta*ndrho 3220 t25 = 0.1e1_dp/t9 3221 t26 = t19*t18 3222 t27 = 0.1e1_dp/t26 3223 t31 = LOG(ndrho*t25*t27 + SQRT((ndrho*t25*t27)**0.2e1_dp + & 3224 0.1e1_dp)) 3225 t35 = 0.10e1_dp + 0.60e1_dp*t24*t25*t27*t31 3226 t36 = 0.1e1_dp/t35 3227 t37 = t23*t36 3228 t40 = 0.20e1_dp*Cx + 0.20e1_dp*t7*t37 3229 t41 = SQRT(t40) 3230 t42 = t41*t40 3231 t43 = t4*t42 3232 t44 = rootpi 3233 t45 = 0.1e1_dp/t44 3234 t46 = omega*t45 3235 t47 = 0.1e1_dp/omega 3236 t48 = 0.1e1_dp/t41 3237 t49 = t47*t48 3238 t50 = t44*t19 3239 t53 = erf(0.3000000000e1_dp*t49*t50) 3240 t55 = omega*t41 3241 t56 = 0.1e1_dp/t19 3242 t57 = t45*t56 3243 t58 = omega**2 3244 t59 = 0.1e1_dp/t58 3245 t60 = 0.1e1_dp/t40 3246 t61 = t59*t60 3247 t62 = pi*t20 3248 t63 = t61*t62 3249 t65 = EXP(-0.8999999998e1_dp*t63) 3250 t66 = t58*t40 3251 t67 = 0.1e1_dp/pi 3252 t68 = 0.1e1_dp/t20 3253 t69 = t67*t68 3254 t70 = t65 - 0.10e1_dp 3255 t71 = t69*t70 3256 t74 = t65 - 0.15e1_dp - 0.5555555558e-1_dp*t66*t71 3257 t78 = t44*t53 + 0.3333333334e0_dp*t55*t57*t74 3258 t79 = t46*t78 3259 t83 = rho*t41*omega 3260 t84 = t45*t78 3261 t85 = t10*lambda 3262 t86 = 0.1e1_dp/t85 3263 t87 = t86*t22 3264 t88 = t87*t36 3265 t92 = 0.1e1_dp/t10/t9 3266 t93 = t7*t92 3267 t94 = t12*rho 3268 t95 = t94*t86 3269 t97 = 0.1e1_dp/t20/t95 3270 t98 = t97*t36 3271 t99 = t98*rho 3272 t102 = t7*t11 3273 t103 = t35**2 3274 t104 = 0.1e1_dp/t103 3275 t105 = t22*t104 3276 t106 = t9*lambda 3277 t107 = 0.1e1_dp/t106 3278 t108 = t107*t27 3279 t112 = t24*t11 3280 t114 = 0.1e1_dp/t19/t15 3281 t115 = t114*t31 3282 t116 = t115*rho 3283 t119 = t24*t25 3284 t122 = ndrho*t11 3285 t123 = t114*rho 3286 t126 = -4*ndrho*t107*t27 + 4*t122*t123 3287 t130 = 1 + t6*t11*t22 3288 t131 = SQRT(t130) 3289 t132 = 0.1e1_dp/t131 3290 t133 = t27*t126*t132 3291 t136 = -0.240e2_dp*t24*t108*t31 + 0.240e2_dp*t112*t116 + 0.60e1_dp & 3292 *t119*t133 3293 t137 = t105*t136 3294 t140 = -0.160e2_dp*t7*t88 + 0.160e2_dp*t93*t99 - 0.20e1_dp*t102* & 3295 t137 3296 t141 = t84*t140 3297 t144 = rho*t42 3298 t145 = SQRT(0.3141592654e1_dp) 3299 t146 = 0.1e1_dp/t145 3300 t147 = t44*t146 3301 t149 = EXP(-0.9000000000e1_dp*t63) 3302 t150 = 0.1e1_dp/t42 3303 t151 = t47*t150 3304 t155 = t49*t44 3305 t156 = t68*rho 3306 t160 = -0.1500000000e1_dp*t151*t50*t140 - 0.3000000000e1_dp*t155 & 3307 *t156*t25 3308 t161 = t149*t160 3309 t164 = omega*t48 3310 t165 = t164*t45 3311 t166 = t56*t74 3312 t170 = t55*t45 3313 t171 = t27*t74 3314 t172 = rho*t25 3315 t176 = t40**2 3316 t177 = 0.1e1_dp/t176 3317 t178 = t59*t177 3318 t182 = t61*pi 3319 t183 = t56*rho 3320 t187 = 0.8999999998e1_dp*t178*t62*t140 + 0.1800000000e2_dp*t182* & 3321 t183*t25 3322 t189 = t58*t140 3323 t192 = t66*t67 3324 t194 = 0.1e1_dp/t20/t18 3325 t195 = t194*t70 3326 t196 = t195*t172 3327 t199 = t68*t187 3328 t200 = t199*t65 3329 t203 = t187*t65 - 0.5555555558e-1_dp*t189*t71 - 0.1111111112e0_dp* & 3330 t192*t196 - 0.5555555558e-1_dp*t192*t200 3331 t207 = (2*t147*t161) + 0.1666666667e0_dp*t165*t166*t140 & 3332 + 0.3333333334e0_dp*t170*t171*t172 + 0.3333333334e0_dp*t55*t57 & 3333 *t203 3334 e_0(ii) = e_0(ii) + (-0.4444444448e0_dp*t43*t79 + t8*(-0.3333333336e0_dp*t83*t141 & 3335 - 0.2222222224e0_dp*t144*t46*t207))*sx 3336 END IF 3337 IF (grad_deriv >= 1 .OR. grad_deriv == -1) THEN 3338 t214 = lambda*t42 3339 t217 = t4*t41 3340 t218 = t10*t16 3341 t219 = 0.1e1_dp/t218 3342 t220 = t219*t97 3343 t221 = t220*t36 3344 t224 = t9*t16 3345 t225 = 0.1e1_dp/t224 3346 t230 = t220*t132 3347 t233 = -0.8000000000e1_dp*t24*t225*t114*t31 - 0.8000000000e1_dp* & 3348 t7*t230 3349 t234 = t105*t233 3350 t237 = -0.5333333333e1_dp*t7*t221 - 0.20e1_dp*t102*t234 3351 t245 = t44*t68 3352 t249 = -0.1500000000e1_dp*t151*t50*t237 + 0.1000000000e1_dp*t49* & 3353 t245*t17 3354 t250 = t149*t249 3355 t260 = t178*t62*t237 3356 t262 = pi*t56 3357 t264 = t61*t262*t17 3358 t266 = 0.8999999998e1_dp*t260 - 0.5999999999e1_dp*t264 3359 t267 = t266*t65 3360 t268 = t58*t237 3361 t271 = t195*t17 3362 t274 = t68*t266 3363 t275 = t274*t65 3364 t278 = t267 - 0.5555555558e-1_dp*t268*t71 + 0.3703703705e-1_dp*t192 & 3365 *t271 - 0.5555555558e-1_dp*t192*t275 3366 t282 = (2*t147*t250) + 0.1666666667e0_dp*t165*t166*t237 & 3367 - 0.1111111111e0_dp*t170*t171*t17 + 0.3333333334e0_dp*t55*t57 & 3368 *t278 3369 t283 = t46*t282 3370 t289 = rho*t48*omega 3371 t290 = t140*t237 3372 t294 = t45*t282 3373 t295 = t294*t140 3374 t298 = t92*t97 3375 t299 = t298*t36 3376 t302 = t7*t86 3377 t306 = 0.1e1_dp/t10/t224 3378 t307 = t7*t306 3379 t308 = t12**2 3380 t309 = t308*t92 3381 t311 = 0.1e1_dp/t20/t309 3382 t313 = t311*t36*rho 3383 t316 = t97*t104 3384 t317 = rho*t233 3385 t318 = t316*t317 3386 t321 = t7*t219 3387 t322 = t316*t136 3388 t326 = 0.1e1_dp/t103/t35 3389 t327 = t22*t326 3390 t328 = t136*t233 3391 t329 = t327*t328 3392 t332 = t11*t114 3393 t336 = t298*t132 3394 t339 = t24*t219 3395 t341 = 0.1e1_dp/t19/t95 3396 t342 = t341*t31 3397 t343 = t342*rho 3398 t347 = t311*t132*rho 3399 t350 = t24*t225 3400 t352 = t114*t126*t132 3401 t356 = ndrho*t219 3402 t357 = t341*rho 3403 t360 = 0.28e2_dp/0.3e1_dp*t122*t114 - 0.28e2_dp/0.3e1_dp*t356*t357 3404 t362 = t27*t360*t132 3405 t365 = t6*ndrho 3406 t366 = beta*t365 3407 t367 = t308*rho 3408 t368 = 0.1e1_dp/t367 3409 t371 = 0.1e1_dp/t131/t130 3410 t372 = t368*t126*t371 3411 t375 = 0.5600000000e2_dp*t24*t332*t31 + 0.3200000000e2_dp*t7*t336 & 3412 - 0.5600000000e2_dp*t339*t343 - 0.3200000000e2_dp*t307*t347 - & 3413 0.8000000000e1_dp*t350*t352 + 0.60e1_dp*t119*t362 + 0.8000000000e1_dp & 3414 *t366*t372 3415 t376 = t105*t375 3416 t379 = 0.5866666667e2_dp*t7*t299 + 0.160e2_dp*t302*t234 - 0.5866666667e2_dp & 3417 *t307*t313 - 0.160e2_dp*t93*t318 + 0.5333333333e1_dp*t321 & 3418 *t322 + 0.40e1_dp*t102*t329 - 0.20e1_dp*t102*t376 3419 t380 = t84*t379 3420 t383 = t42*omega 3421 t384 = t45*t207 3422 t387 = t384*t237 3423 t392 = 0.9000000000e1_dp*t260 - 0.6000000000e1_dp*t264 3424 t393 = t392*t149 3425 t394 = t393*t160 3426 t398 = 0.1e1_dp/t41/t176 3427 t399 = t47*t398 3428 t400 = t399*t44 3429 t401 = t19*t140 3430 t405 = t151*t44 3431 t406 = t68*t140 3432 t413 = t25*t237 3433 t417 = t194*rho 3434 t424 = 0.2250000000e1_dp*t400*t401*t237 - 0.5000000000e0_dp*t405 & 3435 *t406*t17 - 0.1500000000e1_dp*t151*t50*t379 + 0.1500000000e1_dp & 3436 *t405*t156*t413 + 0.2000000000e1_dp*t155*t417*t225 - 0.3000000000e1_dp & 3437 *t49*t245*t25 3438 t425 = t149*t424 3439 t428 = omega*t150 3440 t429 = t428*t45 3441 t433 = t140*t17 3442 t437 = t56*t278 3443 t444 = t45*t27 3444 t445 = t164*t444 3445 t446 = t74*rho 3446 t450 = t114*t74 3447 t451 = rho*t225 3448 t455 = t27*t278 3449 t462 = t56*t203 3450 t466 = t27*t203 3451 t470 = t176*t40 3452 t471 = 0.1e1_dp/t470 3453 t472 = t59*t471 3454 t473 = t472*pi 3455 t474 = t20*t140 3456 t478 = t178*pi 3457 t479 = t56*t140 3458 t489 = t27*rho 3459 t496 = -0.1800000000e2_dp*t473*t474*t237 + 0.5999999999e1_dp*t478 & 3460 *t479*t17 + 0.8999999998e1_dp*t178*t62*t379 - 0.1800000000e2_dp & 3461 *t478*t183*t413 - 0.6000000000e1_dp*t182*t489*t225 + 0.1800000000e2_dp & 3462 *t61*t262*t25 3463 t498 = t187*t266 3464 t500 = t58*t379 3465 t503 = t189*t67 3466 t508 = t268*t67 3467 t511 = t22*t70 3468 t512 = t511*t451 3469 t515 = t67*t194 3470 t516 = t66*t515 3471 t517 = t267*t172 3472 t520 = t195*t25 3473 t526 = t65*t17 3474 t527 = t194*t187*t526 3475 t530 = t68*t496 3476 t531 = t530*t65 3477 t534 = t199*t267 3478 t537 = t496*t65 + t498*t65 - 0.5555555558e-1_dp*t500*t71 + 0.3703703705e-1_dp & 3479 *t503*t271 - 0.5555555558e-1_dp*t503*t275 - 0.1111111112e0_dp & 3480 *t508*t196 + 0.1851851853e0_dp*t192*t512 - 0.1111111112e0_dp & 3481 *t516*t517 - 0.1111111112e0_dp*t192*t520 - 0.5555555558e-1_dp & 3482 *t508*t200 + 0.3703703705e-1_dp*t192*t527 - 0.5555555558e-1_dp & 3483 *t192*t531 - 0.5555555558e-1_dp*t192*t534 3484 t541 = (2*t147*t394) + (2*t147*t425) - 0.8333333335e-1_dp & 3485 *t429*t166*t290 - 0.5555555557e-1_dp*t165*t171*t433 + & 3486 0.1666666667e0_dp*t165*t437*t140 + 0.1666666667e0_dp*t165*t166 & 3487 *t379 + 0.1666666667e0_dp*t445*t446*t413 - 0.4444444445e0_dp*t170 & 3488 *t450*t451 + 0.3333333334e0_dp*t170*t455*t172 + 0.3333333334e0_dp & 3489 *t170*t171*t25 + 0.1666666667e0_dp*t165*t462*t237 - & 3490 0.1111111111e0_dp*t170*t466*t17 + 0.3333333334e0_dp*t55*t57* & 3491 t537 3492 e_rho_spin(ii) = e_rho_spin(ii) + (-0.4444444448e0_dp*t214*t79 - 0.6666666672e0_dp*t217*t46 & 3493 *t78*t237 - 0.4444444448e0_dp*t43*t283 + t8*(-0.3333333336e0_dp & 3494 *t55*t141 - 0.1666666668e0_dp*t289*t84*t290 - 0.3333333336e0_dp & 3495 *t83*t295 - 0.3333333336e0_dp*t83*t380 - 0.2222222224e0_dp*t383 & 3496 *t384 - 0.3333333336e0_dp*t83*t387 - 0.2222222224e0_dp*t144* & 3497 t46*t541))*sx 3498 t550 = beta*t25 3499 t551 = t27*t31 3500 t557 = 0.60e1_dp*t550*t551 + 0.60e1_dp*t24*t23*t132 3501 t558 = t105*t557 3502 t561 = 0.40e1_dp*t24*t37 - 0.20e1_dp*t102*t558 3503 t566 = pi*t146 3504 t567 = t566*t149 3505 t569 = t151*t19*t561 3506 t575 = t20*t561 3507 t579 = t58*t561 3508 t585 = 0.8999999998e1_dp*t478*t575*t65 - 0.5555555558e-1_dp*t579 & 3509 *t71 - 0.5000000001e0_dp*t60*t561*t65 3510 t589 = -0.3000000000e1_dp*t567*t569 + 0.1666666667e0_dp*t165*t166 & 3511 *t561 + 0.3333333334e0_dp*t55*t57*t585 3512 t590 = t46*t589 3513 t593 = t140*t561 3514 t597 = t45*t589 3515 t598 = t597*t140 3516 t605 = t24*t92 3517 t608 = rho*t557 3518 t609 = t316*t608 3519 t614 = t136*t557 3520 t615 = t327*t614 3521 t624 = beta*t11 3522 t627 = t97*t132 3523 t628 = t627*rho 3524 t635 = -4*t108 + 4*t332*rho 3525 t637 = t27*t635*t132 3526 t640 = 0.1e1_dp/t308 3527 t645 = -0.240e2_dp*beta*t107*t551 - 0.240e2_dp*t24*t87*t132 + & 3528 0.240e2_dp*t624*t116 + 0.240e2_dp*t605*t628 + 0.60e1_dp*t550*t133 & 3529 + 0.60e1_dp*t119*t637 - 0.60e1_dp*t7*t640*t126*t371 3530 t646 = t105*t645 3531 t649 = -0.320e2_dp*t24*t88 + 0.160e2_dp*t302*t558 + 0.320e2_dp*t605 & 3532 *t99 - 0.160e2_dp*t93*t609 - 0.40e1_dp*t112*t137 + 0.40e1_dp*t102 & 3533 *t615 - 0.20e1_dp*t102*t646 3534 t650 = t84*t649 3535 t653 = t384*t561 3536 t657 = t44*pi*t146 3537 t658 = t657*t178 3538 t668 = t25*t561 3539 t672 = 0.2250000000e1_dp*t400*t401*t561 - 0.1500000000e1_dp*t151 & 3540 *t50*t649 + 0.1500000000e1_dp*t405*t156*t668 3541 t673 = t149*t672 3542 t679 = t56*t585 3543 t689 = t27*t585 3544 t705 = -0.1800000000e2_dp*t473*t474*t561 + 0.8999999998e1_dp*t178 & 3545 *t62*t649 - 0.1800000000e2_dp*t478*t183*t668 3546 t707 = t187*t59 3547 t708 = t707*t177 3548 t709 = t561*t65 3549 t710 = t62*t709 3550 t713 = t58*t649 3551 t716 = t140*t177 3552 t719 = t579*t67 3553 t722 = 0.1e1_dp/lambda 3554 t723 = t60*t722 3555 t728 = t68*t705 3556 t729 = t728*t65 3557 t732 = t60*t187 3558 t735 = t705*t65 + 0.8999999998e1_dp*t708*t710 - 0.5555555558e-1_dp & 3559 *t713*t71 - 0.5000000001e0_dp*t716*t709 - 0.1111111112e0_dp*t719 & 3560 *t196 - 0.1000000001e1_dp*t723*t709 - 0.5555555558e-1_dp*t719* & 3561 t200 - 0.5555555558e-1_dp*t192*t729 - 0.5000000001e0_dp*t732*t709 3562 t739 = 0.1800000000e2_dp*t658*t575*t161 + (2*t147*t673) & 3563 - 0.8333333335e-1_dp*t429*t166*t593 + 0.1666666667e0_dp*t165*t679 & 3564 *t140 + 0.1666666667e0_dp*t165*t166*t649 + 0.1666666667e0_dp & 3565 *t445*t446*t668 + 0.3333333334e0_dp*t170*t689*t172 + 0.1666666667e0_dp & 3566 *t165*t462*t561 + 0.3333333334e0_dp*t55*t57*t735 3567 e_ndrho_spin(ii) = e_ndrho_spin(ii) + (-0.6666666672e0_dp*t217*t46*t78*t561 - 0.4444444448e0_dp & 3568 *t43*t590 + t8*(-0.1666666668e0_dp*t289*t84*t593 - 0.3333333336e0_dp & 3569 *t83*t598 - 0.3333333336e0_dp*t83*t650 - 0.3333333336e0_dp & 3570 *t83*t653 - 0.2222222224e0_dp*t144*t46*t739))*sx 3571 END IF 3572 3573 IF (grad_deriv >= 2 .OR. grad_deriv == -2) THEN 3574 t747 = lambda*t41*omega 3575 t753 = t4*t48 3576 t754 = t237**2 3577 t764 = 0.1e1_dp/t10/t13 3578 t765 = t764*t311 3579 t766 = t765*t36 3580 t769 = t316*t233 3581 t772 = t233**2 3582 t773 = t327*t772 3583 t776 = t10*t8 3584 t777 = 0.1e1_dp/t776 3585 t782 = t765*t132 3586 t785 = t6**2 3587 t786 = beta*t785 3588 t787 = t10**2 3589 t790 = t308*t94 3590 t792 = 0.1e1_dp/t787/t106 3591 t795 = 0.1e1_dp/t19/t790/t792 3592 t796 = 0.1e1_dp/t787/t13*t795 3593 t797 = t796*t371 3594 t800 = 0.1866666667e2_dp*t24*t777*t341*t31 + 0.4000000000e2_dp* & 3595 t7*t782 - 0.1066666667e2_dp*t786*t797 3596 t801 = t105*t800 3597 t804 = 0.1955555555e2_dp*t7*t766 + 0.1066666667e2_dp*t321*t769 + & 3598 0.40e1_dp*t102*t773 - 0.20e1_dp*t102*t801 3599 t815 = t68*t237 3600 t822 = t44*t194 3601 t826 = 0.2250000000e1_dp*t399*t50*t754 - 0.1000000000e1_dp*t405* & 3602 t815*t17 - 0.1500000000e1_dp*t151*t50*t804 - 0.6666666667e0_dp & 3603 *t49*t822*t14 3604 t827 = t149*t826 3605 t833 = t237*t17 3606 t851 = 0.1800000000e2_dp*t472*t62*t754 3607 t852 = t56*t237 3608 t855 = 0.1200000000e2_dp*t478*t852*t17 3609 t857 = t178*t62*t804 3610 t859 = pi*t27 3611 t862 = 0.2000000000e1_dp*t61*t859*t14 3612 t863 = -t851 + t855 + 0.8999999998e1_dp*t857 + t862 3613 t864 = t863*t65 3614 t865 = t266**2 3615 t866 = t865*t65 3616 t867 = t58*t804 3617 t874 = t511*t14 3618 t877 = t194*t266 3619 t878 = t877*t526 3620 t881 = t68*t863 3621 t882 = t881*t65 3622 t886 = t68*t865*t65 3623 t889 = t864 + t866 - 0.5555555558e-1_dp*t867*t71 + 0.7407407410e-1_dp & 3624 *t508*t271 - 0.1111111112e0_dp*t508*t275 - 0.6172839508e-1_dp* & 3625 t192*t874 + 0.7407407410e-1_dp*t192*t878 - 0.5555555558e-1_dp*t192 & 3626 *t882 - 0.5555555558e-1_dp*t192*t886 3627 t893 = (2*t147*t393*t249) + (2*t147*t827) - 0.8333333335e-1_dp & 3628 *t429*t166*t754 - 0.1111111111e0_dp*t165*t171*t833 & 3629 + 0.3333333334e0_dp*t165*t437*t237 + 0.1666666667e0_dp*t165 & 3630 *t166*t804 + 0.1481481481e0_dp*t170*t450*t14 - 0.2222222222e0_dp & 3631 *t170*t455*t17 + 0.3333333334e0_dp*t55*t57*t889 3632 t894 = t46*t893 3633 t897 = t78*t140 3634 t905 = rho*t150 3635 t906 = t905*omega 3636 t907 = t140*t754 3637 t914 = t379*t237 3638 t918 = t140*t804 3639 t922 = t45*t893 3640 t923 = t922*t140 3641 t926 = t294*t379 3642 t929 = t306*t311 3643 t930 = t929*t36 3644 t940 = 0.1e1_dp/t787/t8 3645 t941 = t7*t940 3646 t942 = t367*t306 3647 t944 = 0.1e1_dp/t20/t942 3648 t946 = t944*t36*rho 3649 t949 = t311*t104 3650 t950 = t949*t317 3651 t953 = t97*t326 3652 t954 = rho*t772 3653 t955 = t953*t954 3654 t958 = rho*t800 3655 t959 = t316*t958 3656 t962 = t7*t764 3657 t963 = t949*t136 3658 t966 = t953*t328 3659 t969 = t316*t375 3660 t972 = t103**2 3661 t973 = 0.1e1_dp/t972 3662 t974 = t22*t973 3663 t975 = t136*t772 3664 t976 = t974*t975 3665 t979 = t375*t233 3666 t980 = t327*t979 3667 t983 = t136*t800 3668 t984 = t327*t983 3669 t987 = t219*t341 3670 t991 = t929*t132 3671 t995 = 0.1e1_dp/t787/t224 3672 t997 = t995*t795*t371 3673 t1000 = t24*t764 3674 t1002 = 0.1e1_dp/t19/t309 3675 t1004 = t1002*t31*rho 3676 t1008 = t944*t132*rho 3677 t1012 = 0.1e1_dp/t787/t776 3678 t1014 = t308**2 3679 t1019 = 0.1e1_dp/t19/t1014*t787*t10 3680 t1021 = t1019*t371*rho 3681 t1024 = t24*t777 3682 t1026 = t341*t126*t132 3683 t1030 = t114*t360*t132 3684 t1033 = t308*t12 3685 t1034 = 0.1e1_dp/t1033 3686 t1036 = t1034*t126*t371 3687 t1040 = ndrho*t764 3688 t1044 = -0.280e3_dp/0.9e1_dp*t356*t341 + 0.280e3_dp/0.9e1_dp*t1040* & 3689 t1002*rho 3690 t1046 = t27*t1044*t132 3691 t1050 = t368*t360*t371 3692 t1054 = beta*t785*ndrho 3693 t1055 = t1054*t368 3694 t1056 = t130**2 3695 t1058 = 0.1e1_dp/t131/t1056 3696 t1059 = t126*t1058 3697 t1060 = t1059*t220 3698 t1063 = -0.1866666667e3_dp*t24*t987*t31 - 0.2240000000e3_dp*t7* & 3699 t991 + 0.4266666667e2_dp*t786*t997 + 0.1866666667e3_dp*t1000*t1004 & 3700 + 0.2240000000e3_dp*t941*t1008 - 0.4266666667e2_dp*t786*t1012 & 3701 *t1021 + 0.1866666667e2_dp*t1024*t1026 - 0.1600000000e2_dp*t350 & 3702 *t1030 - 0.5066666667e2_dp*t366*t1036 + 0.60e1_dp*t119*t1046 + & 3703 0.1600000000e2_dp*t366*t1050 + 0.3200000000e2_dp*t1055*t1060 3704 t1064 = t105*t1063 3705 t1067 = -0.2737777778e3_dp*t7*t930 - 0.1173333333e3_dp*t93*t769 - & 3706 0.320e2_dp*t302*t773 + 0.160e2_dp*t302*t801 + 0.2737777778e3_dp* & 3707 t941*t946 + 0.1173333333e3_dp*t307*t950 + 0.320e2_dp*t93*t955 & 3708 - 0.160e2_dp*t93*t959 - 0.1955555555e2_dp*t962*t963 - 0.2133333334e2_dp & 3709 *t321*t966 + 0.1066666667e2_dp*t321*t969 - 0.120e2_dp*t102 & 3710 *t976 + 0.80e1_dp*t102*t980 + 0.40e1_dp*t102*t984 - 0.20e1_dp*t102 & 3711 *t1064 3712 t1068 = t84*t1067 3713 t1071 = t45*t541 3714 t1076 = t384*t754 3715 t1079 = t1071*t237 3716 t1082 = t384*t804 3717 t1085 = t379*t17 3718 t1089 = t114*t278 3719 t1093 = t25*t804 3720 t1097 = t187*t865 3721 t1099 = t97*t70 3722 t1100 = rho*t777 3723 t1101 = t1099*t1100 3724 t1106 = t500*t67 3725 t1109 = t187*t863 3726 t1111 = t496*t266 3727 t1119 = t194*t496*t526 3728 t1122 = t199*t866 3729 t1125 = t65*t25 3730 t1126 = t877*t1125 3731 t1129 = t867*t67 3732 t1134 = t866*t172 3733 t1137 = t268*t515 3734 t1140 = t176**2 3735 t1141 = 0.1e1_dp/t1140 3736 t1142 = t59*t1141 3737 t1143 = t1142*pi 3738 t1150 = t20*t379 3739 t1157 = t27*t140 3740 t1161 = t56*t379 3741 t1168 = t25*t754 3742 t1172 = t225*t237 3743 t1176 = t56*t25 3744 t1189 = 0.5400000000e2_dp*t1143*t474*t754 - 0.2400000000e2_dp*t473 & 3745 *t479*t833 - 0.3600000000e2_dp*t473*t1150*t237 - 0.1800000000e2_dp & 3746 *t473*t474*t804 - 0.2000000000e1_dp*t478*t1157*t14 + & 3747 0.1200000000e2_dp*t478*t1161*t17 + 0.8999999998e1_dp*t178*t62 & 3748 *t1067 + 0.3600000000e2_dp*t473*t183*t1168 + 0.1200000000e2_dp* & 3749 t478*t489*t1172 - 0.3600000000e2_dp*t478*t1176*t237 - 0.1800000000e2_dp & 3750 *t478*t183*t1093 + 0.8000000000e1_dp*t182*t123* & 3751 t777 - 0.1200000000e2_dp*t61*t859*t225 3752 t1191 = (t1097*t65) - 0.4938271608e0_dp*t192*t1101 - 0.6172839508e-1_dp & 3753 *t503*t874 - 0.1111111112e0_dp*t1106*t275 + (t1109 & 3754 *t65) + (2*t1111*t65) + 0.3703703706e0_dp*t508*t512 + & 3755 0.7407407410e-1_dp*t503*t878 + 0.7407407410e-1_dp*t192*t1119 - 0.5555555558e-1_dp & 3756 *t192*t1122 - 0.2222222224e0_dp*t192*t1126 - 0.1111111112e0_dp & 3757 *t1129*t196 - 0.5555555558e-1_dp*t503*t882 - 0.1111111112e0_dp & 3758 *t516*t1134 - 0.2222222224e0_dp*t1137*t517 + (t1189 & 3759 *t65) 3760 t1192 = t67*t22 3761 t1193 = t66*t1192 3762 t1194 = t267*t451 3763 t1200 = t65*t14 3764 t1201 = t22*t187*t1200 3765 t1206 = t68*t1189 3766 t1207 = t1206*t65 3767 t1210 = t58*t1067 3768 t1213 = t511*t225 3769 t1216 = t864*t172 3770 t1221 = t498*t526 3771 t1224 = t530*t267 3772 t1235 = t199*t864 3773 t1238 = 0.3703703706e0_dp*t1193*t1194 - 0.5555555558e-1_dp*t503*t886 & 3774 - 0.6172839508e-1_dp*t192*t1201 - 0.5555555558e-1_dp*t1129*t200 & 3775 - 0.5555555558e-1_dp*t192*t1207 - 0.5555555558e-1_dp*t1210*t71 & 3776 + 0.3703703706e0_dp*t192*t1213 - 0.1111111112e0_dp*t516*t1216 & 3777 - 0.1111111112e0_dp*t508*t534 + 0.7407407410e-1_dp*t516*t1221 - & 3778 0.1111111112e0_dp*t192*t1224 + 0.7407407410e-1_dp*t508*t527 + 0.7407407410e-1_dp & 3779 *t1106*t271 - 0.1111111112e0_dp*t508*t531 - 0.2222222224e0_dp & 3780 *t508*t520 - 0.5555555558e-1_dp*t192*t1235 3781 t1239 = t1191 + t1238 3782 t1246 = t428*t444 3783 t1247 = t74*t140 3784 t1254 = t27*t889 3785 t1264 = t27*t537 3786 t1268 = t341*t74 3787 t1275 = t56*t889 3788 t1283 = -t851 + t855 + 0.9000000000e1_dp*t857 + t862 3789 t1284 = t1283*t149 3790 t1288 = -0.1111111111e0_dp*t165*t171*t1085 - 0.8888888890e0_dp*t170 & 3791 *t1089*t451 + 0.1666666667e0_dp*t445*t446*t1093 + 0.3333333334e0_dp & 3792 *t55*t57*t1239 - 0.8333333335e-1_dp*t429*t462*t754 & 3793 + 0.5555555556e-1_dp*t1246*t1247*t833 + (4*t147*t393* & 3794 t424) + 0.3333333334e0_dp*t170*t1254*t172 - 0.1111111111e0_dp*t165 & 3795 *t466*t833 + 0.3333333334e0_dp*t165*t437*t379 - 0.2222222222e0_dp & 3796 *t170*t1264*t17 + 0.1037037037e1_dp*t170*t1268*t1100 & 3797 + 0.1666666667e0_dp*t165*t166*t1067 + 0.1666666667e0_dp*t165* & 3798 t1275*t140 - 0.8333333335e-1_dp*t1246*t446*t1168 + (2* & 3799 t147*t1284*t160) 3800 t1292 = t278*rho 3801 t1300 = 0.1e1_dp/t41/t470 3802 t1301 = t47*t1300 3803 t1302 = t1301*t44 3804 t1309 = t19*t379 3805 t1316 = t194*t140 3806 t1320 = t68*t379 3807 t1333 = t68*t25 3808 t1340 = t22*rho 3809 t1347 = -0.5625000000e1_dp*t1302*t401*t754 + 0.1500000000e1_dp*t400 & 3810 *t406*t833 + 0.4500000000e1_dp*t400*t1309*t237 + 0.2250000000e1_dp & 3811 *t400*t401*t804 + 0.3333333333e0_dp*t405*t1316*t14 & 3812 - 0.1000000000e1_dp*t405*t1320*t17 - 0.1500000000e1_dp*t151*t50 & 3813 *t1067 - 0.2250000000e1_dp*t400*t156*t1168 - 0.2000000000e1_dp & 3814 *t405*t417*t1172 + 0.3000000000e1_dp*t405*t1333*t237 + 0.1500000000e1_dp & 3815 *t405*t156*t1093 - 0.3333333333e1_dp*t155*t1340 & 3816 *t777 + 0.4000000000e1_dp*t49*t822*t225 3817 t1348 = t149*t1347 3818 t1360 = t140*t14 3819 t1367 = omega*t398 3820 t1368 = t1367*t45 3821 t1372 = t45*t114 3822 t1373 = t164*t1372 3823 t1377 = t114*t203 3824 t1387 = t392**2 3825 t1388 = t1387*t149 3826 t1392 = t56*t537 3827 t1396 = 0.6666666668e0_dp*t170*t455*t25 + 0.3333333334e0_dp*t445 & 3828 *t1292*t413 + 0.1666666667e0_dp*t165*t462*t804 + (2*t147 & 3829 *t1348) - 0.1111111111e0_dp*t165*t455*t433 - 0.8333333335e-1_dp & 3830 *t429*t166*t918 + 0.3333333334e0_dp*t165*t171*t413 + 0.7407407409e-1_dp & 3831 *t165*t450*t1360 - 0.1666666667e0_dp*t429*t437 & 3832 *t290 + 0.1250000000e0_dp*t1368*t166*t907 - 0.4444444445e0_dp*t1373 & 3833 *t446*t1172 + 0.1481481481e0_dp*t170*t1377*t14 - 0.8888888890e0_dp & 3834 *t170*t450*t225 - 0.1666666667e0_dp*t429*t166*t914 & 3835 + (2*t147*t1388*t160) + 0.3333333334e0_dp*t165*t1392 & 3836 *t237 3837 t1397 = t1288 + t1396 3838 t1401 = -0.3333333336e0_dp*t165*t897*t237 - 0.6666666672e0_dp*t55 & 3839 *t295 - 0.6666666672e0_dp*t55*t380 + 0.8333333340e-1_dp*t906*t84 & 3840 *t907 - 0.3333333336e0_dp*t289*t294*t290 - 0.3333333336e0_dp* & 3841 t289*t84*t914 - 0.1666666668e0_dp*t289*t84*t918 - 0.3333333336e0_dp & 3842 *t83*t923 - 0.6666666672e0_dp*t83*t926 - 0.3333333336e0_dp & 3843 *t83*t1068 - 0.4444444448e0_dp*t383*t1071 - 0.6666666672e0_dp* & 3844 t55*t387 - 0.1666666668e0_dp*t289*t1076 - 0.6666666672e0_dp*t83 & 3845 *t1079 - 0.3333333336e0_dp*t83*t1082 - 0.2222222224e0_dp*t144*t46 & 3846 *t1397 3847 e_rho_rho_spin(ii) = e_rho_rho_spin(ii) + (-0.1333333334e1_dp*t747*t84*t237 - 0.8888888896e0_dp*t214 & 3848 *t283 - 0.3333333336e0_dp*t753*t46*t78*t754 - 0.1333333334e1_dp & 3849 *t217*t46*t282*t237 - 0.6666666672e0_dp*t217*t46*t78* & 3850 t804 - 0.4444444448e0_dp*t43*t894 + t8*t1401)*sx 3851 t1406 = 0.6666666672e0_dp*t747*t84*t561 3852 t1408 = 0.4444444448e0_dp*t214*t590 3853 t1409 = t4*t164 3854 t1410 = t237*t561 3855 t1411 = t84*t1410 3856 t1413 = 0.3333333336e0_dp*t1409*t1411 3857 t1417 = 0.6666666672e0_dp*t217*t46*t589*t237 3858 t1420 = t316*t557 3859 t1425 = t233*t557 3860 t1426 = t327*t1425 3861 t1429 = beta*t225 3862 t1436 = t1033*t940 3863 t1438 = 0.1e1_dp/t19/t1436 3864 t1439 = 0.1e1_dp/t787/t16*t1438 3865 t1440 = t1439*t371 3866 t1443 = -0.8000000000e1_dp*t1429*t115 - 0.2400000000e2_dp*t24*t230 & 3867 + 0.8000000000e1_dp*t366*t1440 3868 t1444 = t105*t1443 3869 t1447 = -0.1066666667e2_dp*t24*t221 + 0.5333333333e1_dp*t321*t1420 & 3870 - 0.40e1_dp*t112*t234 + 0.40e1_dp*t102*t1426 - 0.20e1_dp*t102* & 3871 t1444 3872 t1451 = 0.6666666672e0_dp*t217*t46*t78*t1447 3873 t1455 = 0.6666666672e0_dp*t217*t46*t282*t561 3874 t1459 = t19*t237 3875 t1466 = t68*t17 3876 t1470 = 0.2250000000e1_dp*t400*t1459*t561 - 0.1500000000e1_dp*t151 & 3877 *t50*t1447 - 0.5000000000e0_dp*t405*t1466*t561 3878 t1471 = t149*t1470 3879 t1476 = 0.8333333335e-1_dp*t429*t166*t1410 3880 t1479 = 0.1666666667e0_dp*t165*t679*t237 3881 t1482 = 0.1666666667e0_dp*t165*t166*t1447 3882 t1483 = t17*t561 3883 t1485 = t165*t171*t1483 3884 t1489 = 0.1111111111e0_dp*t170*t689*t17 3885 t1492 = 0.1666666667e0_dp*t165*t437*t561 3886 t1493 = t20*t237 3887 t1496 = 0.1800000000e2_dp*t473*t1493*t561 3888 t1498 = t178*t62*t1447 3889 t1500 = t56*t17 3890 t1502 = t478*t1500*t561 3891 t1504 = -t1496 + 0.8999999998e1_dp*t1498 + 0.5999999999e1_dp*t1502 3892 t1505 = t1504*t65 3893 t1506 = t266*t59 3894 t1507 = t1506*t177 3895 t1509 = 0.8999999998e1_dp*t1507*t710 3896 t1510 = t58*t1447 3897 t1512 = 0.5555555558e-1_dp*t1510*t71 3898 t1513 = t237*t177 3899 t1515 = 0.5000000001e0_dp*t1513*t709 3900 t1517 = 0.3703703705e-1_dp*t719*t271 3901 t1518 = 0.1e1_dp/rho 3902 t1519 = t60*t1518 3903 t1523 = 0.5555555558e-1_dp*t719*t275 3904 t1525 = t68*t1504*t65 3905 t1528 = t60*t266 3906 t1530 = 0.5000000001e0_dp*t1528*t709 3907 t1531 = t1505 + t1509 - t1512 - t1515 + t1517 + 0.3333333334e0_dp*t1519 & 3908 *t709 - t1523 - 0.5555555558e-1_dp*t192*t1525 - t1530 3909 t1535 = 0.1800000000e2_dp*t658*t575*t250 + (2*t147*t1471) & 3910 - t1476 + t1479 + t1482 - 0.5555555555e-1_dp*t1485 - t1489 + t1492 & 3911 + 0.3333333334e0_dp*t55*t57*t1531 3912 t1536 = t46*t1535 3913 t1541 = 0.1666666668e0_dp*t165*t897*t561 3914 t1543 = 0.3333333336e0_dp*t55*t598 3915 t1545 = 0.3333333336e0_dp*t55*t650 3916 t1546 = t905*t46 3917 t1547 = t897*t1410 3918 t1549 = 0.8333333340e-1_dp*t1546*t1547 3919 t1552 = 0.1666666668e0_dp*t289*t597*t290 3920 t1553 = t649*t237 3921 t1556 = 0.1666666668e0_dp*t289*t84*t1553 3922 t1557 = t140*t1447 3923 t1560 = 0.1666666668e0_dp*t289*t84*t1557 3924 t1563 = 0.1666666668e0_dp*t289*t294*t593 3925 t1564 = t45*t1535 3926 t1565 = t1564*t140 3927 t1568 = t294*t649 3928 t1570 = 0.3333333336e0_dp*t83*t1568 3929 t1571 = t379*t561 3930 t1574 = 0.1666666668e0_dp*t289*t84*t1571 3931 t1575 = t597*t379 3932 t1577 = 0.3333333336e0_dp*t83*t1575 3933 t1579 = 0.1173333333e3_dp*t24*t299 3934 t1581 = 0.5866666667e2_dp*t93*t1420 3935 t1582 = t24*t86 3936 t1584 = 0.320e2_dp*t1582*t234 3937 t1586 = 0.320e2_dp*t302*t1426 3938 t1588 = 0.160e2_dp*t302*t1444 3939 t1589 = t24*t306 3940 t1591 = 0.1173333333e3_dp*t1589*t313 3941 t1592 = t949*t608 3942 t1594 = 0.5866666667e2_dp*t307*t1592 3943 t1596 = 0.320e2_dp*t605*t318 3944 t1597 = t7*t298 3945 t1598 = t326*rho 3946 t1599 = t1598*t1425 3947 t1601 = 0.320e2_dp*t1597*t1599 3948 t1602 = rho*t1443 3949 t1603 = t316*t1602 3950 t1605 = 0.160e2_dp*t93*t1603 3951 t1607 = 0.1066666667e2_dp*t339*t322 3952 t1608 = t953*t614 3953 t1610 = 0.1066666667e2_dp*t321*t1608 3954 t1611 = t316*t645 3955 t1613 = 0.5333333333e1_dp*t321*t1611 3956 t1615 = 0.80e1_dp*t112*t329 3957 t1616 = t7*t23 3958 t1617 = t973*t136 3959 t1618 = t1617*t1425 3960 t1620 = 0.120e2_dp*t1616*t1618 3961 t1621 = t645*t233 3962 t1622 = t327*t1621 3963 t1624 = 0.40e1_dp*t102*t1622 3964 t1625 = t136*t1443 3965 t1626 = t327*t1625 3966 t1628 = 0.40e1_dp*t102*t1626 3967 t1630 = 0.40e1_dp*t112*t376 3968 t1631 = t375*t557 3969 t1632 = t327*t1631 3970 t1634 = 0.40e1_dp*t102*t1632 3971 t1636 = 0.5600000000e2_dp*t624*t115 3972 t1638 = 0.1200000000e3_dp*t24*t336 3973 t1640 = 0.1e1_dp/t787/t9 3974 t1642 = t1640*t1438*t371 3975 t1644 = 0.3200000000e2_dp*t366*t1642 3976 t1645 = beta*t219 3977 t1647 = 0.5600000000e2_dp*t1645*t343 3978 t1649 = 0.1200000000e3_dp*t1589*t347 3979 t1652 = t795*t371*rho 3980 t1654 = 0.3200000000e2_dp*t366*t995*t1652 3981 t1656 = 0.8000000000e1_dp*t1429*t352 3982 t1658 = t114*t635*t132 3983 t1660 = 0.8000000000e1_dp*t350*t1658 3984 t1662 = 0.3200000000e2_dp*t7*t372 3985 t1664 = 0.60e1_dp*t550*t362 3986 t1667 = 0.28e2_dp/0.3e1_dp*t332 - 0.28e2_dp/0.3e1_dp*t987*rho 3987 t1669 = t27*t1667*t132 3988 t1671 = 0.60e1_dp*t119*t1669 3989 t1675 = 0.60e1_dp*t7*t640*t360*t371 3990 t1677 = t368*t635*t371 3991 t1679 = 0.8000000000e1_dp*t366*t1677 3992 t1680 = t786*t368 3993 t1681 = t1059*t23 3994 t1684 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 - t1660 & 3995 + t1662 + t1664 + t1671 - t1675 + t1679 - 0.2400000000e2_dp*t1680 & 3996 *t1681 3997 t1685 = t105*t1684 3998 t1688 = t1579 - t1581 + t1584 - t1586 + t1588 - t1591 + t1594 - t1596 & 3999 + t1601 - t1605 + t1607 - t1610 + t1613 + t1615 - t1620 + t1624 & 4000 + t1628 - t1630 + t1634 - 0.20e1_dp*t102*t1685 4001 t1689 = t84*t1688 4002 t1693 = 0.3333333336e0_dp*t55*t653 4003 t1694 = t45*t739 4004 t1696 = 0.2222222224e0_dp*t383*t1694 4005 t1699 = 0.1666666668e0_dp*t289*t384*t1410 4006 t1700 = t1694*t237 4007 t1702 = 0.3333333336e0_dp*t83*t1700 4008 t1703 = t384*t1447 4009 t1705 = 0.3333333336e0_dp*t83*t1703 4010 t1706 = t1071*t561 4011 t1708 = 0.3333333336e0_dp*t83*t1706 4012 t1709 = t187*t1504 4013 t1712 = t266*t561*t65 4014 t1714 = 0.5000000001e0_dp*t732*t1712 4015 t1715 = t713*t67 4016 t1717 = 0.3703703705e-1_dp*t1715*t271 4017 t1718 = t705*t266 4018 t1719 = t1718*t65 4019 t1720 = t140*t266 4020 t1722 = t177*t561*t65 4021 t1724 = 0.5000000001e0_dp*t1720*t1722 4022 t1726 = t194*t705*t526 4023 t1728 = 0.3703703705e-1_dp*t192*t1726 4024 t1730 = 0.1111111112e0_dp*t719*t520 4025 t1731 = t58*t1688 4026 t1735 = 0.3703703705e-1_dp*t719*t527 4027 t1737 = t722*t561*t65 4028 t1740 = t496*t59 4029 t1741 = t1740*t177 4030 t1743 = 0.8999999998e1_dp*t1741*t710 4031 t1745 = t187*t561*t65 4032 t1748 = t140*t1518 4033 t1752 = 0.1851851853e0_dp*t719*t512 4034 t1754 = 0.5555555558e-1_dp*t1715*t275 4035 t1755 = t1510*t67 4036 t1757 = 0.1111111112e0_dp*t1755*t196 4037 t1758 = t1709*t65 - t1714 + t1717 + t1719 - t1724 + t1728 - t1730 & 4038 - 0.5555555558e-1_dp*t1731*t71 + t1735 + 0.666666666e0_dp*t1519* & 4039 t1737 + t1743 + 0.3333333334e0_dp*t1519*t1745 + 0.3333333334e0_dp* & 4040 t1748*t1722 + t1752 - t1754 - t1757 4041 t1760 = 0.5555555558e-1_dp*t719*t534 4042 t1762 = 0.5555555558e-1_dp*t1755*t200 4043 t1763 = t237*t722 4044 t1765 = 0.1000000001e1_dp*t1763*t1722 4045 t1766 = t237*t187 4046 t1768 = 0.5000000001e0_dp*t1766*t1722 4047 t1769 = t199*t1505 4048 t1773 = 0.5555555558e-1_dp*t719*t531 4049 t1774 = t60*t496 4050 t1776 = 0.5000000001e0_dp*t1774*t709 4051 t1777 = t379*t177 4052 t1779 = 0.5000000001e0_dp*t1777*t709 4053 t1782 = t728*t267 4054 t1784 = 0.5555555558e-1_dp*t192*t1782 4055 t1785 = t579*t515 4056 t1787 = 0.1111111112e0_dp*t1785*t517 4057 t1789 = 0.5555555558e-1_dp*t508*t729 4058 t1790 = t1505*t172 4059 t1794 = 0.1000000001e1_dp*t723*t1712 4060 t1795 = t498*t178 4061 t1797 = 0.8999999998e1_dp*t1795*t710 4062 t1800 = 0.5400000000e2_dp*t1143*t474*t1410 4063 t1801 = t20*t649 4064 t1804 = 0.1800000000e2_dp*t473*t1801*t237 4065 t1807 = 0.1800000000e2_dp*t473*t474*t1447 4066 t1810 = 0.1200000000e2_dp*t473*t479*t1483 4067 t1811 = t56*t649 4068 t1814 = 0.5999999999e1_dp*t478*t1811*t17 4069 t1817 = 0.1800000000e2_dp*t473*t1150*t561 4070 t1821 = t472*t262 4071 t1822 = t172*t1410 4072 t1824 = 0.3600000000e2_dp*t1821*t1822 4073 t1825 = t25*t1447 4074 t1828 = 0.1800000000e2_dp*t478*t183*t1825 4075 t1829 = t225*t561 4076 t1832 = 0.6000000000e1_dp*t478*t489*t1829 4077 t1835 = 0.1800000000e2_dp*t478*t1176*t561 4078 t1836 = t1800 - t1804 - t1807 - t1810 + t1814 - t1817 + 0.8999999998e1_dp & 4079 *t178*t62*t1688 + t1824 - t1828 + t1832 - t1835 4080 t1837 = t68*t1836 4081 t1838 = t1837*t65 4082 t1842 = -t1760 - t1762 - t1765 - t1768 - 0.5555555558e-1_dp*t192*t1769 & 4083 - t1773 - t1776 - t1779 - 0.5555555558e-1_dp*t503*t1525 - t1784 & 4084 - t1787 - t1789 - 0.1111111112e0_dp*t516*t1790 - t1794 + t1797 & 4085 - 0.5555555558e-1_dp*t192*t1838 + t1836*t65 4086 t1843 = t1758 + t1842 4087 t1849 = 0.8333333335e-1_dp*t429*t166*t1571 4088 t1852 = 0.8333333335e-1_dp*t429*t679*t290 4089 t1854 = t165*t466*t1483 4090 t1858 = 0.1666666667e0_dp*t445*t446*t1825 4091 t1861 = 0.1800000000e2_dp*t658*t575*t425 4092 t1864 = 0.1666666667e0_dp*t445*t1292*t668 4093 t1865 = t413*t561 4094 t1868 = 0.8333333335e-1_dp*t1246*t446*t1865 4095 t1871 = 2*t147*t393*t672 4096 t1874 = 0.3333333334e0_dp*t170*t689*t25 4097 t1875 = t114*t585 4098 t1878 = 0.4444444445e0_dp*t170*t1875*t451 4099 t1881 = 0.1666666667e0_dp*t165*t437*t649 4100 t1884 = -t1496 + 0.9000000000e1_dp*t1498 + 0.6000000000e1_dp*t1502 4101 t1885 = t1884*t149 4102 t1886 = t1885*t160 4103 t1891 = 0.5625000000e1_dp*t1302*t401*t1410 4104 t1892 = t19*t649 4105 t1895 = 0.2250000000e1_dp*t400*t1892*t237 4106 t1898 = 0.2250000000e1_dp*t400*t401*t1447 4107 t1901 = 0.7500000000e0_dp*t400*t406*t1483 4108 t1902 = t68*t649 4109 t1905 = 0.5000000000e0_dp*t405*t1902*t17 4110 t1908 = 0.2250000000e1_dp*t400*t1309*t561 4111 t1912 = t399*t245 4112 t1914 = 0.2250000000e1_dp*t1912*t1822 4113 t1917 = 0.1500000000e1_dp*t405*t156*t1825 4114 t1920 = 0.1000000000e1_dp*t405*t417*t1829 4115 t1923 = 0.1500000000e1_dp*t405*t1333*t561 4116 t1924 = -t1891 + t1895 + t1898 + t1901 - t1905 + t1908 - 0.1500000000e1_dp & 4117 *t151*t50*t1688 - t1914 + t1917 - t1920 + t1923 4118 t1925 = t149*t1924 4119 t1928 = t56*t1531 4120 t1932 = t27*t1531 4121 t1938 = 0.1666666667e0_dp*t165*t462*t1447 4122 t1939 = 0.3333333334e0_dp*t55*t57*t1843 - t1849 - t1852 - 0.5555555555e-1_dp & 4123 *t1854 + t1858 + t1861 + t1864 - t1868 + t1871 + t1874 & 4124 - t1878 + t1881 + (2*t147*t1886) + (2*t147*t1925) & 4125 + 0.1666666667e0_dp*t165*t1928*t140 + 0.3333333334e0_dp*t170*t1932 & 4126 *t172 + t1938 4127 t1940 = t27*t735 4128 t1943 = 0.1111111111e0_dp*t170*t1940*t17 4129 t1946 = 0.1666666667e0_dp*t165*t1392*t561 4130 t1952 = 0.5555555557e-1_dp*t165*t689*t433 4131 t1954 = t1373*t446*t1829 4132 t1958 = 0.8333333335e-1_dp*t429*t166*t1553 4133 t1961 = 0.1666666667e0_dp*t165*t679*t379 4134 t1962 = t585*rho 4135 t1965 = 0.1666666667e0_dp*t445*t1962*t413 4136 t1966 = t56*t735 4137 t1969 = 0.1666666667e0_dp*t165*t1966*t237 4138 t1971 = t657*t392*t59 4139 t1972 = t177*t20 4140 t1973 = t561*t149 4141 t1974 = t1973*t160 4142 t1975 = t1972*t1974 4143 t1977 = 0.1800000000e2_dp*t1971*t1975 4144 t1980 = 0.2777777778e-1_dp*t1246*t1247*t1483 4145 t1981 = t1367*t57 4146 t1984 = 0.1250000000e0_dp*t1981*t1247*t1410 4147 t1987 = 0.8333333335e-1_dp*t429*t437*t593 4148 t1988 = t649*t17 4149 t1991 = 0.5555555557e-1_dp*t165*t171*t1988 4150 t1994 = 0.8333333335e-1_dp*t429*t166*t1557 4151 t1997 = 0.1666666667e0_dp*t165*t171*t668 4152 t2000 = 0.8333333335e-1_dp*t429*t462*t1410 4153 t2001 = -t1943 + t1946 + 0.1666666667e0_dp*t165*t166*t1688 - t1952 & 4154 - 0.2222222222e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 + t1977 & 4155 + t1980 + t1984 - t1987 - t1991 - t1994 + t1997 - t2000 4156 t2002 = t1939 + t2001 4157 t2006 = -t1541 - t1543 - t1545 + t1549 - t1552 - t1556 - t1560 - t1563 & 4158 - 0.3333333336e0_dp*t83*t1565 - t1570 - t1574 - t1577 - 0.3333333336e0_dp & 4159 *t83*t1689 - t1693 - t1696 - t1699 - t1702 - t1705 - & 4160 t1708 - 0.2222222224e0_dp*t144*t46*t2002 4161 e_ndrho_rho_spin(ii) = e_ndrho_rho_spin(ii) + (-t1406 - t1408 - t1413 - t1417 - t1451 - t1455 - 0.4444444448e0_dp & 4162 *t43*t1536 + t8*t2006)*sx 4163 t2009 = t566*t393 4164 t2013 = t566*t149*t47 4165 t2014 = t398*t19 4166 t2018 = t150*t68 4167 t2022 = t19*t1447 4168 t2027 = t65*t237 4169 t2028 = t575*t2027 4170 t2031 = t56*t561 4171 t2032 = t2031*t526 4172 t2035 = t20*t1447 4173 t2042 = -0.1800000000e2_dp*t473*t2028 + 0.5999999999e1_dp*t478*t2032 & 4174 + 0.8999999998e1_dp*t478*t2035*t65 + t1509 - t1512 + t1517 & 4175 - t1523 + t1515 - 0.5000000001e0_dp*t60*t1447*t65 - t1530 4176 t2046 = -0.3000000000e1_dp*t2009*t569 + 0.4500000000e1_dp*t2013*t2014 & 4177 *t1410 - 0.1000000000e1_dp*t2013*t2018*t1483 - 0.3000000000e1_dp & 4178 *t567*t151*t2022 - t1476 - 0.5555555557e-1_dp*t1485 + t1492 & 4179 + t1482 + t1479 - t1489 + 0.3333333334e0_dp*t55*t57*t2042 4180 t2050 = t45*t2046 4181 t2054 = t786*t640 4182 t2057 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 + t1664 & 4183 + t1662 - t1660 + t1671 + t1679 - t1675 - 0.240e2_dp*t2054*t1060 4184 t2058 = t105*t2057 4185 t2061 = t1579 + t1584 - t1581 - t1586 + t1588 - t1591 - t1596 + t1594 & 4186 + t1601 - t1605 + t1607 + t1615 - t1630 - t1610 - t1620 + t1634 & 4187 + t1628 + t1613 + t1624 - 0.20e1_dp*t102*t2058 4188 t2073 = -t1891 + t1901 + t1908 + t1898 + t1895 - t1905 - 0.1500000000e1_dp & 4189 *t151*t50*t2061 - t1914 - t1920 + t1923 + t1917 4190 t2074 = t149*t2073 4191 t2077 = t161*t17 4192 t2081 = t657*t472 4193 t2082 = t161*t237 4194 t2086 = -t1849 - t1852 - 0.5555555557e-1_dp*t1854 + t1858 + t1861 + & 4195 t1864 - t1868 + t1871 + t1874 + 0.3333333334e0_dp*t170*t27*t2042 & 4196 *t172 - t1878 + (2*t147*t2074) + t1881 + t1938 - t1943 & 4197 + 0.1200000000e2_dp*t658*t2031*t2077 + t1946 - 0.3600000000e2_dp* & 4198 t2081*t575*t2082 4199 t2088 = t56*t2042 4200 t2095 = t1447*t65 4201 t2098 = t140*t471 4202 t2099 = t709*t237 4203 t2104 = t62*t2095 4204 t2107 = -t1714 + t1717 + t1719 - t1724 + t1728 - 0.5000000001e0_dp*t716 & 4205 *t2095 + 0.1000000000e1_dp*t2098*t2099 - 0.1000000001e1_dp*t723 & 4206 *t2095 - t1730 + t1735 + t1743 + 0.8999999998e1_dp*t708*t2104 & 4207 + t1752 - t1754 - t1757 - t1760 4208 t2113 = t177*pi 4209 t2114 = t707*t2113 4210 t2117 = t471*pi 4211 t2118 = t707*t2117 4212 t2124 = t1800 - t1810 - t1817 - t1807 - t1804 + t1814 + 0.8999999998e1_dp & 4213 *t178*t62*t2061 + t1824 + t1832 - t1835 - t1828 4214 t2126 = t68*t2124*t65 4215 t2130 = -0.5000000001e0_dp*t732*t2095 - 0.5555555558e-1_dp*t58*t2061 & 4216 *t71 - t1762 + t1765 + t1768 + 0.5999999999e1_dp*t2114*t2032 & 4217 - t1773 - t1776 - 0.1800000000e2_dp*t2118*t2028 - 0.5555555558e-1_dp & 4218 *t192*t2126 - t1779 - t1784 - t1787 - t1789 - t1794 + t1797 + & 4219 t2124*t65 4220 t2131 = t2107 + t2130 4221 t2138 = -t1952 - 0.2222222223e0_dp*t1954 - t1958 + t1961 + t1965 + t1969 & 4222 + t1977 + t1980 + 0.1666666667e0_dp*t165*t2088*t140 + 0.1800000000e2_dp & 4223 *t658*t2035*t161 + 0.3333333334e0_dp*t55*t57*t2131 & 4224 + t1984 + 0.1666666667e0_dp*t165*t166*t2061 - t1987 - t1991 & 4225 - t1994 + t1997 - t2000 4226 t2139 = t2086 + t2138 4227 t2143 = -t1541 + t1549 - t1563 - t1574 - t1560 - t1543 - t1552 - 0.3333333336e0_dp & 4228 *t83*t2050*t140 - t1577 - t1545 - t1556 - t1570 & 4229 - 0.3333333336e0_dp*t83*t84*t2061 - t1693 - t1699 - t1708 - t1705 & 4230 - t1696 - t1702 - 0.2222222224e0_dp*t144*t46*t2139 4231 e_ndrho_ndrho_spin(ii) = e_ndrho_ndrho_spin(ii) + (-t1406 - t1413 - t1455 - t1451 - t1408 - t1417 - & 4232 0.4444444448e0_dp*t43*t46*t2046 + t8*t2143)*sx 4233 t2147 = lambda*t48*omega 4234 t2160 = t754*t237 4235 t2169 = t237*t804 4236 t2182 = 0.1e1_dp/t787/lambda 4237 t2183 = t2182*t944 4238 t2187 = t949*t233 4239 t2190 = t953*t772 4240 t2193 = t316*t800 4241 t2196 = t772*t233 4242 t2197 = t974*t2196 4243 t2200 = t233*t800 4244 t2201 = t327*t2200 4245 t2204 = t10*t106 4246 t2205 = 0.1e1_dp/t2204 4247 t2220 = beta*t785*t6 4248 t2226 = -0.6222222223e2_dp*t24*t2205*t1002*t31 - 0.2115555556e3_dp & 4249 *t7*t2183*t132 + 0.1315555556e3_dp*t786/t787/t85*t1019 & 4250 *t371 - 0.4266666668e2_dp*t2220/t1014/t94*t1058 4251 t2227 = t105*t2226 4252 t2230 = -0.9125925923e2_dp*t7*t2183*t36 - 0.5866666667e2_dp*t962 & 4253 *t2187 - 0.3200000001e2_dp*t321*t2190 + 0.1600000000e2_dp*t321* & 4254 t2193 - 0.120e2_dp*t102*t2197 + 0.120e2_dp*t102*t2201 - 0.20e1_dp* & 4255 t102*t2227 4256 t2257 = 0.5400000000e2_dp*t1142*t62*t2160 4257 t2261 = 0.3600000000e2_dp*t473*t56*t754*t17 4258 t2264 = 0.5400000000e2_dp*t473*t1493*t804 4259 t2268 = 0.6000000000e1_dp*t478*t27*t237*t14 4260 t2272 = 0.1800000000e2_dp*t478*t56*t804*t17 4261 t2274 = t178*t62*t2230 4262 t2276 = pi*t114 4263 t2279 = 0.2666666667e1_dp*t61*t2276*t86 4264 t2280 = t2257 - t2261 - t2264 - t2268 + t2272 + 0.8999999998e1_dp*t2274 & 4265 - t2279 4266 t2281 = t2280*t65 4267 t2282 = t881*t267 4268 t2285 = t865*t266 4269 t2287 = t68*t2285*t65 4270 t2292 = t863*t266 4271 t2295 = t2285*t65 4272 t2296 = t58*t2230 4273 t2299 = t194*t865 4274 t2300 = t2299*t526 4275 t2304 = t68*t2280*t65 4276 t2307 = t22*t266 4277 t2308 = t2307*t1200 4278 t2311 = t194*t863 4279 t2312 = t2311*t526 4280 t2319 = t1099*t86 4281 t2326 = -0.1851851853e0_dp*t508*t874 + t2281 - 0.1666666668e0_dp*t192 & 4282 *t2282 - 0.5555555558e-1_dp*t192*t2287 - 0.1666666668e0_dp*t508 & 4283 *t886 + (3*t2292*t65) + t2295 - 0.5555555558e-1_dp*t2296 & 4284 *t71 + 0.1111111112e0_dp*t192*t2300 - 0.5555555558e-1_dp*t192* & 4285 t2304 - 0.1851851853e0_dp*t192*t2308 + 0.1111111112e0_dp*t192*t2312 & 4286 + 0.2222222223e0_dp*t508*t878 - 0.1666666668e0_dp*t508*t882 & 4287 + 0.1646090535e0_dp*t192*t2319 - 0.1666666668e0_dp*t1129*t275 + & 4288 0.1111111112e0_dp*t1129*t271 4289 t2351 = t44*t22 4290 t2368 = t237*t14 4291 t2378 = t804*t17 4292 t2382 = t754*t17 4293 t2392 = (2*t147*t1284*t249) + (2*t147*t1388*t249) & 4294 - 0.3456790122e0_dp*t170*t1268*t86 + 0.4444444444e0_dp*t170* & 4295 t1089*t14 + 0.1666666667e0_dp*t165*t166*t2230 + 0.5000000001e0_dp & 4296 *t165*t437*t804 + 0.3333333334e0_dp*t55*t57*t2326 + 0.2e1_dp & 4297 *(t147)*t149*(-0.5625000000e1_dp*t1301*t50*t2160 + & 4298 0.2250000000e1_dp*t400*t68*t754*t17 + 0.6750000000e1_dp*t400* & 4299 t1459*t804 + 0.1000000000e1_dp*t405*t194*t237*t14 - 0.1500000000e1_dp & 4300 *t405*t68*t804*t17 - 0.1500000000e1_dp*t151*t50* & 4301 t2230 + 0.1111111111e1_dp*t49*t2351*t86) - 0.3333333333e0_dp*t170 & 4302 *t1254*t17 + (4*t147*t393*t826) + 0.5000000001e0_dp* & 4303 t165*t1275*t237 + 0.2222222222e0_dp*t165*t450*t2368 - 0.3333333333e0_dp & 4304 *t165*t455*t833 - 0.2500000000e0_dp*t429*t166*t2169 & 4305 - 0.1666666667e0_dp*t165*t171*t2378 + 0.8333333333e-1_dp*t429 & 4306 *t171*t2382 - 0.2500000000e0_dp*t429*t437*t754 + 0.1250000000e0_dp & 4307 *t1368*t166*t2160 4308 t2404 = t45*t1397 4309 t2418 = t379*t754 4310 t2424 = t1067*t237 4311 t2437 = t7*t792 4312 t2439 = 0.1e1_dp/t20/t1436 4313 t2451 = t940*t944 4314 t2455 = t97*t973 4315 t2468 = t944*t104 4316 t2480 = 0.1e1_dp/t19/t942 4317 t2492 = t1014*rho 4318 t2537 = t764*t1002 4319 t2552 = t360*t1058 4320 t2565 = t126/t131/t1056/t130 4321 t2569 = -0.8088888890e3_dp*t24*t2182*t2480*t31*rho - 0.1518222222e4_dp & 4322 *t2437*t2439*t132*rho + 0.6542222223e3_dp*t786/t2204 & 4323 /t19/t2492*t218*t371*rho - 0.6222222223e2_dp*t24*t2205 & 4324 *t1002*t126*t132 + 0.5600000000e2_dp*t1024*t341*t360 & 4325 *t132 + 0.3288888889e3_dp*t366/t790*t126*t371 - 0.2400000000e2_dp & 4326 *t350*t114*t1044*t132 - 0.1520000000e3_dp*t366*t1034* & 4327 t360*t371 - 0.3626666667e3_dp*t1054*t1034*t1060 + 0.60e1_dp*t119 & 4328 *t27*(0.3640e4_dp/0.27e2_dp*t1040*t1002 - 0.3640e4_dp/0.27e2_dp & 4329 *ndrho*t2182*t2480*rho)*t132 + 0.8088888890e3_dp*t24*t2537 & 4330 *t31 + 0.1518222222e4_dp*t7*t2451*t132 - 0.6542222223e3_dp* & 4331 t786*t1012*t1019*t371 + 0.2400000000e2_dp*t366*t368*t1044 & 4332 *t371 + 0.9600000000e2_dp*t1055*t2552*t220 - 0.1173333333e3_dp & 4333 *t1055*t1059*t765 + 0.2133333333e3_dp*beta*t785*t365*t368 & 4334 *t2565*t796 4335 t2576 = 0.40e1_dp*t102*t327*t136*t2226 + 0.3519999999e3_dp*t93 & 4336 *t2190 - 0.1551407408e4_dp*t2437*t2439*t36*rho + 0.960e2_dp* & 4337 t1597*t1598*t2200 + 0.120e2_dp*t102*t327*t375*t800 + 0.1551407408e4_dp & 4338 *t7*t2451*t36 - 0.960e2_dp*t93*t2455*rho*t2196 & 4339 + 0.120e2_dp*t102*t327*t1063*t233 + 0.1600000000e2_dp*t321 & 4340 *t316*t1063 + 0.9125925923e2_dp*t7*t2182*t2468*t136 + 0.1760000000e3_dp & 4341 *t307*t949*t958 - 0.360e2_dp*t1616*t1617*t2200 & 4342 - 0.20e1_dp*t102*t105*t2569 - 0.6400000001e2_dp*t321*t953*t979 4343 t2585 = 0.1e1_dp/t972/t35 4344 t2611 = t311*t326 4345 t2621 = -0.3200000001e2_dp*t321*t953*t983 - 0.160e2_dp*t93*t316 & 4346 *rho*t2226 + 0.480e2_dp*t102*t22*t2585*t136*t2196 - 0.1760000000e3_dp & 4347 *t93*t2193 + 0.960e2_dp*t302*t2197 + 0.160e2_dp*t302 & 4348 *t2227 - 0.960e2_dp*t302*t2201 - 0.8213333332e3_dp*t941*t2468 & 4349 *t317 + 0.8213333332e3_dp*t307*t2187 + 0.9600000002e2_dp*t321* & 4350 t2455*t975 - 0.360e2_dp*t102*t974*t375*t772 - 0.3519999999e3_dp & 4351 *t307*t2611*t954 + 0.1173333334e3_dp*t962*t2611*t328 - & 4352 0.5866666667e2_dp*t962*t949*t375 4353 t2622 = t2576 + t2621 4354 t2631 = t282*t140 4355 t2635 = -0.1000000001e1_dp*t55*t923 - 0.3333333336e0_dp*t83*t384 & 4356 *t2230 - 0.5000000004e0_dp*t165*t897*t804 - 0.6666666672e0_dp*t383 & 4357 *t2404 - 0.1000000001e1_dp*t83*t1071*t804 - 0.5000000004e0_dp & 4358 *t164*t1076 - 0.1000000001e1_dp*t289*t294*t914 - 0.5000000004e0_dp & 4359 *t289*t294*t918 + 0.2500000002e0_dp*t906*t84*t2418 - & 4360 0.2000000001e1_dp*t55*t1079 - 0.5000000004e0_dp*t289*t84*t2424 & 4361 + 0.2500000002e0_dp*t1546*t897*t2169 - 0.3333333336e0_dp*t83* & 4362 t84*t2622 + 0.2500000002e0_dp*t906*t294*t907 - 0.1000000001e1_dp & 4363 *t55*t1082 - 0.1000000001e1_dp*t165*t2631*t237 4364 t2636 = t78*t379 4365 t2645 = t379*t804 4366 t2655 = t140*t2230 4367 t2707 = t74*t379 4368 t2720 = t56*t1239 4369 t2724 = 0.5000000001e0_dp*t165*t1392*t804 - 0.1333333334e1_dp*t165 & 4370 *t450*t1172 - 0.2666666667e1_dp*t170*t1089*t225 + 0.8333333333e-1_dp & 4371 *t429*t466*t2382 + 0.1000000000e1_dp*t170*t1254*t25 & 4372 + 0.1666666667e0_dp*t165*t166*t2622 + 0.1666666667e0_dp*t165* & 4373 t56*t2326*t140 - 0.2500000000e0_dp*t429*t166*t2424 - 0.3333333333e0_dp & 4374 *t165*t455*t1085 - 0.1728395062e0_dp*t165*t1268* & 4375 t140*t86 - 0.2500000000e0_dp*t1246*t446*t413*t804 + 0.1666666666e0_dp & 4376 *t1246*t2707*t833 + 0.1250000000e0_dp*t1368*t462*t2160 & 4377 - 0.1666666667e0_dp*t165*t466*t2378 + (6*t147*t1283 & 4378 *t394) + 0.5000000001e0_dp*t165*t2720*t237 4379 t2732 = rho*t2205 4380 t2759 = t25*t2230 4381 t2763 = t1367*t444 4382 t2779 = t25*t2160 4383 t2783 = -0.2500000000e0_dp*t429*t1392*t754 + (6*t147*t393 & 4384 *t1347) - 0.3456790123e1_dp*t170*t1002*t74*t2732 + 0.5000000001e0_dp & 4385 *t165*t1275*t379 - 0.1333333334e1_dp*t170*t114*t889 & 4386 *t451 + 0.3333333334e0_dp*t170*t27*t2326*t172 - 0.2500000000e0_dp & 4387 *t429*t171*t1168 + 0.3750000000e0_dp*t1981*t1247*t2169 & 4388 + 0.5000000001e0_dp*t165*t171*t1093 + 0.8333333334e-1_dp*t1246 & 4389 *t1247*t2378 + 0.1666666667e0_dp*t445*t446*t2759 - 0.1250000000e0_dp & 4390 *t2763*t1247*t2382 + 0.5000000001e0_dp*t165*t437*t1067 & 4391 + 0.2222222222e0_dp*t165*t1089*t1360 + 0.1000000000e1_dp*t165 & 4392 *t455*t413 - 0.2500000000e0_dp*t429*t462*t2169 + 0.1250000000e0_dp & 4393 *t2763*t446*t2779 4394 t2808 = t19*t1067 4395 t2816 = t225*t754 4396 t2821 = 0.1e1_dp/t41/t1140 4397 t2823 = t47*t2821*t44 4398 t2833 = -0.1687500000e2_dp*t1302*t401*t2169 + 0.6750000000e1_dp*t400 & 4399 *t1309*t804 + 0.4500000000e1_dp*t400*t1320*t833 - 0.1500000000e1_dp & 4400 *t400*t1316*t2368 + 0.1000000000e1_dp*t405*t194*t379 & 4401 *t14 + 0.8888888888e1_dp*t155*t97*rho*t2205 + 0.6750000000e1_dp & 4402 *t400*t2808*t237 - 0.1500000000e1_dp*t405*t68*t1067 & 4403 *t17 + 0.4500000000e1_dp*t400*t417*t2816 + 0.1968750000e2_dp*t2823 & 4404 *t401*t2160 + 0.1500000000e1_dp*t405*t156*t2759 + 0.2250000000e1_dp & 4405 *t400*t401*t2230 4406 t2843 = t777*t237 4407 t2853 = t172*t2169 4408 t2869 = t225*t804 4409 t2873 = t194*t225 4410 t2877 = -0.1500000000e1_dp*t151*t50*t2622 + 0.5625000000e1_dp*t1302 & 4411 *t156*t2779 - 0.6750000000e1_dp*t400*t1333*t754 + 0.4999999999e1_dp & 4412 *t405*t1340*t2843 - 0.1000000000e2_dp*t49*t2351*t777 & 4413 - 0.5625000000e1_dp*t1302*t406*t2382 - 0.6750000000e1_dp*t1912 & 4414 *t2853 - 0.5555555555e0_dp*t405*t22*t140*t86 + 0.4500000000e1_dp & 4415 *t405*t1333*t804 + 0.2250000000e1_dp*t400*t406*t2378 - & 4416 0.1687500000e2_dp*t1302*t1309*t754 - 0.3000000000e1_dp*t405*t417 & 4417 *t2869 - 0.6000000000e1_dp*t405*t2873*t237 4418 t2885 = t428*t1372 4419 t2935 = -0.2500000000e0_dp*t429*t166*t2645 + (2*t147*t149 & 4420 *(t2833 + t2877)) + 0.5000000001e0_dp*t445*t1292*t1093 + 0.3333333333e0_dp & 4421 *t2885*t446*t2816 + 0.2222222222e0_dp*t165*t1377 & 4422 *t2368 - 0.3333333333e0_dp*t165*t1264*t833 + 0.2e1_dp*(t147) & 4423 *(t2257 - t2261 - t2264 - t2268 + t2272 + 0.9000000000e1_dp*t2274 & 4424 - t2279)*(t149)*t160 - 0.3333333333e0_dp*t170*t27*t1239 & 4425 *t17 - 0.8333333335e-1_dp*t429*t166*t2655 + (6*t147 & 4426 *t1284*t424) + 0.2e1_dp*(t147)*t1387*t392*(t149)* & 4427 t160 - 0.2500000000e0_dp*t1246*t1292*t1168 - 0.1666666667e0_dp* & 4428 t165*t1254*t433 + (6*t147*t1388*t424) + 0.1666666667e0_dp & 4429 *t165*t462*t2230 + 0.2222222222e0_dp*t165*t450*t379*t14 & 4430 - 0.5000000001e0_dp*t429*t437*t914 4431 t2937 = t164*t45*t341 4432 t2992 = 0.1e1_dp/t1140/t40 4433 t2994 = t59*t2992*pi 4434 t2998 = t27*t225 4435 t3026 = 0.1620000000e3_dp*t1143*t474*t2169 + 0.1080000000e3_dp*t1143 & 4436 *t479*t2382 - 0.2160000000e3_dp*t2994*t474*t2160 + 0.3600000000e2_dp & 4437 *t478*t2998*t237 + 0.1620000000e3_dp*t1143*t1150* & 4438 t754 + 0.2666666667e1_dp*t478*t114*t140*t86 - 0.3600000000e2_dp & 4439 *t473*t479*t2378 + 0.1080000000e3_dp*t1821*t2853 - 0.7200000000e2_dp & 4440 *t473*t1161*t833 - 0.1800000000e2_dp*t473*t474*t2230 & 4441 + 0.8999999998e1_dp*t178*t62*t2622 - 0.5400000000e2_dp*t478* & 4442 t1176*t804 4443 t3030 = t20*t1067 4444 t3069 = -0.1800000000e2_dp*t478*t183*t2759 - 0.5400000000e2_dp*t473 & 4445 *t3030*t237 - 0.6000000000e1_dp*t478*t27*t379*t14 - 0.5400000000e2_dp & 4446 *t473*t1150*t804 + 0.1800000000e2_dp*t478*t489* & 4447 t2869 + 0.1080000000e3_dp*t473*t1176*t754 + 0.1800000000e2_dp*t478 & 4448 *t56*t1067*t17 - 0.3600000000e2_dp*t473*t489*t2816 - 0.1866666667e2_dp & 4449 *t182*t357*t2205 + 0.2400000000e2_dp*t61*t2276 & 4450 *t777 - 0.2400000000e2_dp*t478*t123*t2843 - 0.1080000000e3_dp* & 4451 t1143*t183*t2779 + 0.1200000000e2_dp*t473*t1157*t2368 4452 t3070 = t3026 + t3069 4453 t3085 = t1210*t67 4454 t3093 = (3*t496*t865*t65) + (3*t1189*t266*t65) & 4455 + 0.1111111112e1_dp*(t192)*(t2307)*(t65)*(t225) & 4456 + (t187*t2280*t65) + (3*t496*t863*t65) + 0.2222222223e0_dp & 4457 *t516*t1111*t526 + (t187*t2285*t65) + (t3070 & 4458 *t65) - 0.1851851853e0_dp*t1193*t498*t1200 + 0.2222222223e0_dp & 4459 *t508*t1119 + 0.1111111112e0_dp*(t192)*t194*(t1189) & 4460 *t526 + 0.2222222223e0_dp*t1137*t1221 - 0.1666666668e0_dp*t1129 & 4461 *t534 + 0.1111111112e0_dp*t3085*t271 - 0.5555555558e-1_dp*(t192) & 4462 *(t199)*(t2281) - 0.1851851853e0_dp*t508*t1201 4463 t3097 = t66*t69 4464 t3098 = t1109*t267 4465 t3129 = t2296*t67 4466 t3141 = -0.3333333336e0_dp*t192*t2299*t1125 - 0.1666666668e0_dp*t3097 & 4467 *t3098 + 0.1111111112e0_dp*t503*t2300 + 0.1111111112e0_dp*t1129 & 4468 *t527 - 0.1666666668e0_dp*t1129*t531 - 0.5555555558e-1_dp*t192 & 4469 *t68*t3070*t65 + 0.1646090535e0_dp*t192*t97*t187*t65* & 4470 t86 + 0.5555555559e0_dp*t1129*t512 - 0.1666666668e0_dp*t192*t530 & 4471 *t864 - 0.1666666668e0_dp*t1106*t882 - 0.1666666668e0_dp*t192* & 4472 t530*t866 - 0.1481481482e1_dp*t192*t1099*t777 - 0.1111111112e0_dp & 4473 *t3129*t196 + 0.5555555559e0_dp*t1193*t866*t451 - 0.1666666668e0_dp & 4474 *t503*t2282 - 0.1666666668e0_dp*t3085*t275 + 0.1111111112e0_dp & 4475 *t503*t2312 4476 t3181 = -0.1851851853e0_dp*t1106*t874 - 0.1666666668e0_dp*t508*t1235 & 4477 - 0.3333333336e0_dp*t508*t1224 - 0.1111111112e0_dp*t516*t2281 & 4478 *t172 + 0.1111111112e0_dp*t516*t1097*t526 + 0.2222222223e0_dp* & 4479 t1106*t878 - 0.1851851853e0_dp*t503*t2308 - 0.3333333336e0_dp*t1137 & 4480 *t1216 + (3*t3098) + 0.1111111112e0_dp*t516*t1109*t526 & 4481 - 0.5555555558e-1_dp*t503*t2287 - 0.3333333336e0_dp*t192*t2311 & 4482 *t1125 - 0.6666666672e0_dp*t508*t1126 + 0.1646090535e0_dp*t503 & 4483 *t2319 - 0.5555555558e-1_dp*t3129*t200 - 0.5555555558e-1_dp*t58 & 4484 *t2622*t71 - 0.1666666668e0_dp*t1106*t886 4485 t3232 = -0.1666666668e0_dp*t192*t1206*t267 - 0.5555555558e-1_dp*t192 & 4486 *t199*t2295 - 0.1666666668e0_dp*t508*t1122 - 0.3333333336e0_dp & 4487 *t1129*t520 - 0.1111111112e0_dp*t516*t2295*t172 - 0.1481481482e1_dp & 4488 *t66*t67*t97*t267*t1100 - 0.1851851853e0_dp*t192* & 4489 t22*t496*t1200 - 0.3333333336e0_dp*t516*t2292*t65*rho* & 4490 t25 + 0.1810699590e1_dp*t192*t311*t70*t2732 - 0.5555555558e-1_dp & 4491 *t503*t2304 - 0.1481481482e1_dp*t508*t1101 - 0.3333333336e0_dp* & 4492 t867*t515*t517 + 0.1111111112e1_dp*t268*t1192*t1194 + 0.5555555559e0_dp & 4493 *t1193*t864*t451 + 0.1111111112e1_dp*t508*t1213 - & 4494 0.1666666668e0_dp*t508*t1207 - 0.3333333336e0_dp*t1137*t1134 4495 t3244 = t278*t140 4496 t3248 = t889*rho 4497 t3262 = omega*t1300 4498 t3264 = t140*t2160 4499 t3268 = 0.1555555556e1_dp*t2937*t446*t2843 + 0.3111111111e1_dp*t170 & 4500 *t1268*t777 - 0.2500000000e0_dp*t429*t1275*t290 - 0.1333333334e1_dp & 4501 *t1373*t1292*t1172 + 0.3111111111e1_dp*t170*t341*t278 & 4502 *t1100 - 0.3456790122e0_dp*t170*t341*t203*t86 + 0.3750000000e0_dp & 4503 *t1368*t166*t2418 + 0.4444444444e0_dp*t170*t114*t537 & 4504 *t14 + 0.3333333334e0_dp*t55*t57*(t3093 + t3141 + t3181 + t3232) & 4505 - 0.1111111111e0_dp*t2885*t1247*t2368 - 0.6666666668e0_dp*t1373 & 4506 *t446*t2869 + 0.1666666667e0_dp*t1246*t3244*t833 + 0.5000000001e0_dp & 4507 *t445*t3248*t413 - 0.1666666667e0_dp*t165*t171* & 4508 t1067*t17 - 0.2500000000e0_dp*t429*t437*t918 + 0.3750000000e0_dp & 4509 *t1368*t437*t907 - 0.3125000000e0_dp*t3262*t45*t166*t3264 4510 t3278 = rho*t398 4511 t3288 = -0.1000000001e1_dp*t165*t2636*t237 - 0.2000000001e1_dp*t55 & 4512 *t926 - 0.1000000001e1_dp*t83*t922*t379 - 0.5000000004e0_dp*t289 & 4513 *t84*t2645 + 0.2500000002e0_dp*t429*t897*t754 - 0.1000000001e1_dp & 4514 *t83*t294*t1067 - 0.1666666668e0_dp*t289*t84*t2655 & 4515 - 0.1000000001e1_dp*t83*t2404*t237 - 0.5000000004e0_dp*t289*t922 & 4516 *t290 - 0.5000000004e0_dp*t289*t384*t2169 - 0.5000000004e0_dp & 4517 *t289*t1071*t754 - 0.2222222224e0_dp*t144*t46*(t2724 + t2783 & 4518 + t2935 + t3268) - 0.3333333336e0_dp*t83*t45*t2392*t140 - & 4519 0.1250000001e0_dp*t3278*omega*t84*t3264 - 0.1000000001e1_dp*t55 & 4520 *t1068 + 0.8333333340e-1_dp*t906*t384*t2160 4521 t3291 = -0.1000000001e1_dp*t2147*t84*t754 - 0.4000000002e1_dp*t747 & 4522 *t294*t237 - 0.2000000001e1_dp*t747*t84*t804 - 0.1333333334e1_dp & 4523 *t214*t894 + 0.1666666668e0_dp*t4*t150*t46*t78*t2160 & 4524 - 0.1000000001e1_dp*t753*t46*t282*t754 - 0.1000000001e1_dp*t1409 & 4525 *t84*t2169 - 0.2000000001e1_dp*t217*t46*t893*t237 - 0.2000000001e1_dp & 4526 *t217*t46*t282*t804 - 0.6666666672e0_dp*t217* & 4527 t46*t78*t2230 - 0.4444444448e0_dp*t43*t46*t2392 + t8*(t2635 & 4528 + t3288) 4529 END IF 4530 IF (grad_deriv >= 3 .OR. grad_deriv == -3) THEN 4531 e_rho_rho_rho_spin(ii) = e_rho_rho_rho_spin(ii) + t3291*sx 4532 t3305 = t4*t428 4533 t3306 = t754*t561 4534 t3314 = t237*t1447 4535 t3329 = t804*t561 4536 t3339 = t949*t557 4537 t3344 = t953*t1425 4538 t3347 = t316*t1443 4539 t3352 = t772*t557 4540 t3353 = t974*t3352 4541 t3356 = t233*t1443 4542 t3357 = t327*t3356 4543 t3362 = t800*t557 4544 t3363 = t327*t3362 4545 t3366 = beta*t777 4546 t3378 = 0.1866666667e2_dp*t3366*t342 + 0.9866666667e2_dp*t24*t782 & 4547 - 0.8266666668e2_dp*t366*t797 + 0.3200000001e2_dp*t1054/t1014/ & 4548 t12*t1058 4549 t3379 = t105*t3378 4550 t3382 = 0.3911111110e2_dp*t24*t766 - 0.1955555555e2_dp*t962*t3339 & 4551 + 0.2133333334e2_dp*t339*t769 - 0.2133333334e2_dp*t321*t3344 + & 4552 0.1066666667e2_dp*t321*t3347 + 0.80e1_dp*t112*t773 - 0.120e2_dp*t102 & 4553 *t3353 + 0.80e1_dp*t102*t3357 - 0.40e1_dp*t112*t801 + 0.40e1_dp & 4554 *t102*t3363 - 0.20e1_dp*t102*t3379 4555 t3449 = t1447*t17 4556 t3453 = (2*t147*t1885*t249) + 0.1800000000e2_dp*(t1971) & 4557 *(t1972)*(t1973)*(t249) + (2*t147*t393 & 4558 *t1470) + 0.1800000000e2_dp*t658*t575*t827 + 0.2e1_dp*(t147) & 4559 *t149*(-0.5625000000e1_dp*t1302*t19*t754*t561 + 0.4500000000e1_dp & 4560 *t400*t1459*t1447 + 0.1500000000e1_dp*t400*t815*t1483 & 4561 - 0.1000000000e1_dp*t405*t68*t1447*t17 + 0.2250000000e1_dp* & 4562 t400*t19*t804*t561 - 0.1500000000e1_dp*t151*t50*t3382 + 0.3333333334e0_dp & 4563 *t405*t194*t14*t561) + 0.1250000000e0_dp*t1368 & 4564 *t166*t3306 - 0.8333333335e-1_dp*t429*t679*t754 - 0.1666666667e0_dp & 4565 *t429*t166*t3314 + 0.5555555555e-1_dp*t1246*t74*t237 & 4566 *t1483 - 0.1111111111e0_dp*t165*t689*t833 - 0.1111111111e0_dp* & 4567 t165*t171*t3449 4568 t3472 = t14*t561 4569 t3491 = 0.5400000000e2_dp*t1143*t20*t754*t561 4570 t3494 = 0.3600000000e2_dp*t473*t1493*t1447 4571 t3497 = 0.2400000000e2_dp*t473*t852*t1483 4572 t3501 = 0.1200000000e2_dp*t478*t56*t1447*t17 4573 t3505 = 0.1800000000e2_dp*t473*t20*t804*t561 4574 t3507 = t178*t62*t3382 4575 t3512 = 0.2000000000e1_dp*t478*t27*t14*t561 4576 t3513 = t3491 - t3494 - t3497 + t3501 - t3505 + 0.8999999998e1_dp*t3507 & 4577 - t3512 4578 t3514 = t3513*t65 4579 t3525 = t58*t3382 4580 t3533 = t237*t1518 4581 t3543 = t3514 + 0.8999999998e1_dp*t863*t59*t177*t710 + (2 & 4582 *t267*t1504) + 0.8999999998e1_dp*t865*t59*t177*t710 - 0.5555555558e-1_dp & 4583 *t3525*t71 - 0.5000000001e0_dp*t804*t177*t709 + & 4584 0.7407407410e-1_dp*t1755*t271 + 0.6666666668e0_dp*t3533*t1722 - & 4585 0.1111111112e0_dp*t1755*t275 - 0.1111111112e0_dp*t508*t1525 - 0.1000000001e1_dp & 4586 *t237*t266*t1722 4587 t3546 = 0.1e1_dp/t12 4588 t3547 = t60*t3546 4589 t3552 = t194*t1504 4590 t3553 = t3552*t526 4591 t3561 = t68*t3513*t65 4592 t3569 = t274*t1505 4593 t3575 = -0.6172839508e-1_dp*t719*t874 - 0.5555555556e0_dp*t3547*t709 & 4594 + 0.7407407410e-1_dp*t719*t878 + 0.7407407410e-1_dp*t192*t3553 & 4595 + 0.6666666668e0_dp*t1519*t1712 - 0.5555555558e-1_dp*t719*t882 & 4596 - 0.5555555558e-1_dp*t192*t3561 - 0.5000000001e0_dp*t60*t863* & 4597 t709 - 0.5555555558e-1_dp*t719*t886 - 0.1111111112e0_dp*t192*t3569 & 4598 - 0.5000000001e0_dp*t60*t865*t709 4599 t3576 = t3543 + t3575 4600 t3580 = -0.1666666667e0_dp*t429*t437*t1410 + 0.3333333334e0_dp*t165 & 4601 *t1928*t237 + 0.3333333334e0_dp*t165*t437*t1447 - 0.8333333335e-1_dp & 4602 *t429*t166*t3329 + 0.1666666667e0_dp*t165*t679*t804 & 4603 + 0.1666666667e0_dp*t165*t166*t3382 + 0.7407407405e-1_dp*t165 & 4604 *t450*t3472 + 0.1481481481e0_dp*t170*t1875*t14 - 0.1111111111e0_dp & 4605 *t165*t455*t1483 - 0.2222222222e0_dp*t170*t1932*t17 + & 4606 0.1666666667e0_dp*t165*t1275*t561 + 0.3333333334e0_dp*t55*t57 & 4607 *t3576 4608 t3581 = t3453 + t3580 4609 t3608 = t973*rho 4610 t3618 = 0.640e2_dp*t1597*t1598*t3356 - 0.640e2_dp*t1582*t773 - & 4611 0.1173333333e3_dp*t93*t3347 - 0.3911111110e2_dp*t1000*t963 - 0.320e2_dp & 4612 *t605*t959 + 0.1173333333e3_dp*t307*t949*t1602 + 0.40e1_dp & 4613 *t102*t327*t136*t3378 - 0.960e2_dp*t1597*t3608*t3352 - & 4614 0.40e1_dp*t112*t1064 + 0.80e1_dp*t112*t984 + 0.2737777778e3_dp*t307 & 4615 *t3339 4616 t3668 = t2552*t23 4617 t3673 = t635*t1058 4618 t3674 = t3673*t220 4619 t3677 = -0.1866666667e3_dp*t1645*t342 - 0.6346666667e3_dp*t24*t991 & 4620 + 0.3946666667e3_dp*t366*t997 + 0.1866666667e3_dp*beta*t764* & 4621 t1004 + 0.60e1_dp*t550*t1046 + 0.60e1_dp*t119*t27*(-0.280e3_dp/ & 4622 0.9e1_dp*t987 + 0.280e3_dp/0.9e1_dp*t2537*rho)*t132 - 0.60e1_dp*t7 & 4623 *t640*t1044*t371 + 0.1600000000e2_dp*t366*t368*t1667*t371 & 4624 - 0.4800000000e2_dp*t1680*t3668 + 0.1600000000e3_dp*t1680*t1060 & 4625 + 0.3200000000e2_dp*t1055*t3674 4626 t3679 = t2565*t1439 4627 t3682 = t24*t940 4628 t3711 = -0.1600000000e3_dp*t2220*t368*t3679 + 0.6346666667e3_dp*t3682 & 4629 *t1008 - 0.3946666667e3_dp*t366*t1012*t1021 + 0.1866666667e2_dp & 4630 *t3366*t1026 + 0.1866666667e2_dp*t1024*t341*t635*t132 & 4631 - 0.1706666667e3_dp*t7*t1036 - 0.1600000000e2_dp*t1429*t1030 - 0.1600000000e2_dp & 4632 *t350*t114*t1667*t132 + 0.6400000000e2_dp*t7* & 4633 t1050 - 0.5066666667e2_dp*t366*t1034*t635*t371 + 0.1520000000e3_dp & 4634 *t786*t1034*t1681 4635 t3726 = -0.240e2_dp*t1616*t1617*t3356 + 0.160e2_dp*t302*t3379 + & 4636 0.40e1_dp*t102*t327*t1063*t557 + 0.960e2_dp*t302*t3353 - 0.320e2_dp & 4637 *t302*t3363 - 0.2737777778e3_dp*t941*t2468*t608 - 0.120e2_dp & 4638 *t102*t974*t645*t772 - 0.2133333334e2_dp*t321*t953*t1621 & 4639 - 0.20e1_dp*t102*t105*(t3677 + t3711) + 0.80e1_dp*t102*t327 & 4640 *t375*t1443 - 0.120e2_dp*t1616*t1617*t3362 - 0.2133333334e2_dp & 4641 *t321*t953*t1625 4642 t3750 = t2585*t136 4643 t3763 = 0.2346666666e3_dp*t1589*t950 + 0.80e1_dp*t102*t327*t1684 & 4644 *t233 + 0.6400000002e2_dp*t7*t220*t1618 - 0.240e2_dp*t112*t976 & 4645 - 0.160e2_dp*t93*t316*rho*t3378 + 0.2346666666e3_dp*t93* & 4646 t3344 + 0.3911111110e2_dp*t962*t2611*t614 - 0.5475555556e3_dp*t24 & 4647 *t930 + 0.480e2_dp*t1616*t3750*t3352 - 0.1955555555e2_dp*t962 & 4648 *t949*t645 - 0.240e2_dp*t1616*t973*t375*t1425 + 0.2133333334e2_dp & 4649 *t339*t969 4650 t3794 = -0.640e2_dp*t302*t3357 - 0.4266666668e2_dp*t339*t966 + 0.640e2_dp & 4651 *t605*t955 + 0.40e1_dp*t102*t327*t645*t800 + 0.5475555556e3_dp & 4652 *t3682*t946 + 0.1066666667e2_dp*t321*t316*t1684 + 0.160e2_dp & 4653 *t112*t980 - 0.2346666666e3_dp*t7*t929*t1599 + 0.320e2_dp & 4654 *t1597*t1598*t3362 - 0.2346666666e3_dp*t605*t769 + 0.320e2_dp & 4655 *t1582*t801 - 0.2133333334e2_dp*t321*t953*t1631 4656 t3796 = t3618 + t3726 + t3763 + t3794 4657 t3826 = 0.8333333340e-1_dp*t906*t597*t907 + 0.1666666668e0_dp*t429 & 4658 *t1547 - 0.3333333336e0_dp*t83*t84*t3796 - 0.3333333336e0_dp* & 4659 t83*t922*t649 - 0.3333333336e0_dp*t289*t294*t1571 - 0.3333333336e0_dp & 4660 *t289*t1071*t1410 - 0.6666666672e0_dp*t83*t1564*t379 & 4661 - 0.6666666672e0_dp*t55*t1700 - 0.3333333336e0_dp*t165*t207* & 4662 t237*t561 - 0.6666666672e0_dp*t55*t1689 - 0.3333333336e0_dp*t83 & 4663 *t1694*t804 + 0.1666666668e0_dp*t1546*t897*t3314 4664 t3827 = t649*t804 4665 t3842 = t3278*t46 4666 t3849 = t140*t3382 4667 t3853 = t649*t754 4668 t3861 = t78*t649 4669 t3865 = t589*t140 4670 t3869 = -0.1666666668e0_dp*t289*t84*t3827 - 0.1666666668e0_dp*t289 & 4671 *t922*t593 + 0.1666666668e0_dp*t1546*t2636*t1410 - 0.6666666672e0_dp & 4672 *t55*t1703 - 0.3333333336e0_dp*t83*t597*t1067 - 0.1250000001e0_dp & 4673 *t3842*t897*t3306 - 0.3333333336e0_dp*t83*t384* & 4674 t3382 - 0.1666666668e0_dp*t289*t84*t3849 + 0.8333333340e-1_dp*t906 & 4675 *t84*t3853 - 0.6666666672e0_dp*t55*t1568 - 0.6666666672e0_dp* & 4676 t55*t1565 - 0.3333333336e0_dp*t165*t3861*t237 - 0.3333333336e0_dp & 4677 *t165*t3865*t237 4678 t3871 = t379*t1447 4679 t3875 = t45*t2002 4680 t3892 = t225*t1447 4681 t3918 = t25*t3382 4682 t3925 = t777*t561 4683 t3933 = t451*t1410 4684 t3939 = t1301*t245 4685 t3940 = t172*t3306 4686 t3965 = 0.1500000000e1_dp*t405*t156*t3918 + 0.1968750000e2_dp*t2823 & 4687 *t401*t3306 + 0.1666666666e1_dp*t405*t1340*t3925 + 0.3000000000e1_dp & 4688 *t405*t1333*t1447 + 0.3000000000e1_dp*t399*t822*t3933 & 4689 + 0.2250000000e1_dp*t400*t401*t3382 + 0.5625000000e1_dp*t3939 & 4690 *t3940 + 0.3333333333e0_dp*t405*t194*t649*t14 - 0.1125000000e2_dp & 4691 *t1302*t1309*t1410 + 0.2250000000e1_dp*t400*t1892*t804 & 4692 - 0.5625000000e1_dp*t1302*t401*t3329 - 0.5625000000e1_dp*t1302 & 4693 *t1892*t754 + 0.2250000000e1_dp*t400*t2808*t561 - 0.4500000000e1_dp & 4694 *t400*t1333*t1410 4695 t3969 = t172*t3314 4696 t3975 = t19*t1688 4697 t3979 = t290*t1483 4698 t3985 = t172*t3329 4699 t4010 = -0.1125000000e2_dp*t1302*t401*t3314 - 0.4500000000e1_dp*t1912 & 4700 *t3969 + 0.4500000000e1_dp*t400*t1309*t1447 + 0.4500000000e1_dp & 4701 *t400*t3975*t237 - 0.3750000000e1_dp*t3939*t3979 - 0.2000000000e1_dp & 4702 *t405*t417*t3892 - 0.2250000000e1_dp*t1912*t3985 - & 4703 0.2000000000e1_dp*t405*t2873*t561 - 0.5000000000e0_dp*t400*t1316 & 4704 *t3472 - 0.1000000000e1_dp*t405*t68*t1688*t17 + 0.1500000000e1_dp & 4705 *t400*t406*t3449 - 0.1500000000e1_dp*t151*t50*t3796 & 4706 + 0.1500000000e1_dp*t400*t1902*t833 + 0.1500000000e1_dp*t400* & 4707 t1320*t1483 4708 t4018 = 0.2222222222e0_dp*t2885*t446*t1172*t561 - 0.1666666667e0_dp & 4709 *t1246*t1292*t1865 - 0.4444444445e0_dp*t1373*t446*t3892 & 4710 - 0.1111111111e0_dp*t165*t171*t1688*t17 + 0.1666666667e0_dp*t165 & 4711 *t56*t3576*t140 + 0.1250000000e0_dp*t2763*t446*t1168* & 4712 t561 + 0.3333333334e0_dp*t165*t689*t413 + 0.1666666667e0_dp*t165 & 4713 *t679*t1067 - 0.1666666667e0_dp*t1246*t446*t413*t1447 + & 4714 (2*t147*t149*(t3965 + t4010)) - 0.4444444445e0_dp*t1373* & 4715 t1292*t1829 4716 t4025 = t3262*t57 4717 t4032 = t74*t649 4718 t4070 = t3525*t67 4719 t4079 = -0.5555555558e-1_dp*t192*t199*t3514 + (t705*t863* & 4720 t65) + (2*t496*t1504*t65) + (t187*t3513*t65) - & 4721 0.5555555558e-1_dp*t192*t728*t864 - 0.5555555556e0_dp*t140*t3546 & 4722 *t1722 + (t705*t865*t65) - 0.1111111112e0_dp*t1106*t1525 & 4723 - 0.1111111112e0_dp*t4070*t196 + 0.6666666668e0_dp*t1748*t266 & 4724 *t1722 + 0.3703703706e0_dp*t1193*t1505*t451 4725 t4101 = t498*t1505 4726 t4108 = -0.5000000001e0_dp*t60*t1189*t709 + 0.3703703706e0_dp*t1755 & 4727 *t512 - 0.5555555558e-1_dp*t503*t3561 - 0.2222222224e0_dp*t516 & 4728 *t267*t172*t1504 - 0.5555555558e-1_dp*t1715*t886 - 0.5555555558e-1_dp & 4729 *t1715*t882 - 0.1111111112e0_dp*t516*t3514*t172 - 0.5000000001e0_dp & 4730 *t1067*t177*t709 + (2*t4101) - 0.1111111112e0_dp & 4731 *t508*t1769 - 0.1111111112e0_dp*t192*t1837*t267 4732 t4140 = -0.5555555558e-1_dp*t719*t1207 - 0.2000000001e1_dp*t1763* & 4733 t266*t1722 - 0.1111111112e0_dp*t192*t530*t1505 + 0.1333333334e1_dp & 4734 *t1519*t722*t1712 + 0.7407407410e-1_dp*t516*t1718*t526 & 4735 + 0.6666666668e0_dp*t379*t1518*t1722 - 0.5555555558e-1_dp*t192* & 4736 t728*t866 - 0.2222222224e0_dp*t719*t1126 + 0.1800000000e2_dp*t1111 & 4737 *t178*t710 - 0.1111111112e0_dp*t508*t1782 - 0.5555555558e-1_dp & 4738 *t58*t3796*t71 4739 t4156 = t865*t561*t65 4740 t4201 = t20*t1688 4741 t4214 = -0.8000000000e1_dp*t478*t123*t3925 - 0.2400000000e2_dp*t473 & 4742 *t479*t3449 + 0.1200000000e2_dp*t478*t489*t3892 + 0.1200000000e2_dp & 4743 *t478*t2998*t561 - 0.2000000000e1_dp*t478*t27*t649 & 4744 *t14 + 0.1200000000e2_dp*t478*t56*t1688*t17 - 0.2400000000e2_dp & 4745 *t473*t1161*t1483 + 0.1080000000e3_dp*t1143*t474*t3314 - & 4746 0.2160000000e3_dp*t2994*t474*t3306 + 0.7200000000e2_dp*t1821* & 4747 t3969 - 0.3600000000e2_dp*t473*t4201*t237 - 0.1800000000e2_dp*t473 & 4748 *t3030*t561 - 0.2400000000e2_dp*t473*t1811*t833 - 0.1800000000e2_dp & 4749 *t478*t183*t3918 4750 t4230 = t1142*t262 4751 t4255 = 0.5400000000e2_dp*t1143*t474*t3329 + 0.5400000000e2_dp*t1143 & 4752 *t1801*t754 + 0.7200000000e2_dp*t473*t1176*t1410 + 0.8999999998e1_dp & 4753 *t178*t62*t3796 - 0.2400000000e2_dp*t472*t859*t3933 & 4754 - 0.1080000000e3_dp*t4230*t3940 + 0.4000000000e1_dp*t473*t1157 & 4755 *t3472 + 0.1080000000e3_dp*t1143*t1150*t1410 + 0.3600000000e2_dp & 4756 *t1821*t3985 + 0.7200000000e2_dp*t4230*t3979 - 0.1800000000e2_dp & 4757 *t473*t1801*t804 - 0.3600000000e2_dp*t473*t1150*t1447 - & 4758 0.3600000000e2_dp*t478*t1176*t1447 - 0.1800000000e2_dp*t473*t474 & 4759 *t3382 4760 t4256 = t4214 + t4255 4761 t4261 = -0.2222222224e0_dp*t1510*t515*t517 + 0.3703703706e0_dp*t719 & 4762 *t1213 - 0.1000000001e1_dp*t1766*t266*t1722 - 0.5555555558e-1_dp & 4763 *t4070*t200 + 0.6666666668e0_dp*t1519*t496*t561*t65 - 0.5000000001e0_dp & 4764 *t732*t4156 - 0.5000000001e0_dp*t140*t865*t1722 & 4765 - 0.5000000001e0_dp*t804*t187*t1722 - 0.4938271608e0_dp*t719* & 4766 t1101 + 0.8999999998e1_dp*t1097*t178*t710 - 0.5555555558e-1_dp* & 4767 t192*t68*t4256*t65 4768 t4272 = t863*t561*t65 4769 t4292 = (2*t1836*t266*t65) - 0.1111111112e0_dp*t719*t1224 & 4770 - 0.2222222224e0_dp*t1137*t1790 - 0.1000000001e1_dp*t723*t4272 & 4771 - 0.1111111112e0_dp*t1785*t1134 - 0.6172839508e-1_dp*t192*t22* & 4772 t705*t1200 - 0.5000000001e0_dp*t140*t863*t1722 - 0.1111111112e0_dp & 4773 *t1755*t531 - 0.6172839508e-1_dp*t1715*t874 - 0.5555555558e-1_dp & 4774 *t719*t1122 + 0.7407407410e-1_dp*t508*t1726 4775 t4317 = 0.7407407410e-1_dp*t1755*t527 - 0.6172839508e-1_dp*t719*t1201 & 4776 - 0.1111111112e0_dp*t508*t1838 - 0.2222222224e0_dp*t192*t3552 & 4777 *t1125 + 0.7407407410e-1_dp*t1785*t1221 - 0.1111111111e1_dp*t3547 & 4778 *t1737 + 0.6666666668e0_dp*t1519*t187*t1712 + 0.7407407410e-1_dp & 4779 *t503*t3553 - 0.1111111112e0_dp*t1755*t534 - 0.1000000001e1_dp & 4780 *t1774*t1712 + 0.7407407410e-1_dp*t719*t1119 4781 t4345 = -0.1000000001e1_dp*t379*t266*t1722 - 0.1000000001e1_dp*t804 & 4782 *t722*t1722 + 0.8999999998e1_dp*t1109*t178*t710 - 0.5555555558e-1_dp & 4783 *t1129*t729 + t4256*t65 - 0.2222222224e0_dp*t1755*t520 & 4784 - 0.1111111112e0_dp*t503*t3569 - 0.1111111112e0_dp*t1785*t1216 & 4785 - 0.1111111112e0_dp*t3097*t4101 - 0.5000000001e0_dp*t732*t4272 & 4786 + 0.7407407410e-1_dp*t192*t194*t1836*t526 4787 t4352 = t1731*t67 4788 t4378 = 0.7407407410e-1_dp*t1715*t878 + 0.8999999998e1_dp*t1189*t59 & 4789 *t177*t710 + 0.7407407410e-1_dp*t4352*t271 - 0.1111111112e0_dp & 4790 *t4352*t275 - 0.5555555556e0_dp*t3547*t1745 + 0.7407407410e-1_dp & 4791 *t516*t1709*t526 + 0.6666666668e0_dp*t3533*t187*t1722 - 0.1000000001e1_dp & 4792 *t237*t496*t1722 + 0.3703703706e0_dp*t579*t1192 & 4793 *t1194 - 0.1000000001e1_dp*t723*t4156 + 0.1333333334e1_dp*t3533 & 4794 *t722*t1722 - 0.5555555558e-1_dp*t719*t1235 4795 t4392 = 0.3333333334e0_dp*t165*t171*t1825 + 0.1250000000e0_dp*t1981 & 4796 *t1247*t3329 - 0.3125000000e0_dp*t4025*t1247*t3306 + 0.3333333334e0_dp & 4797 *t165*t1392*t1447 + 0.5555555556e-1_dp*t1246*t4032 & 4798 *t833 - 0.1666666667e0_dp*t1246*t74*t25*t1410 + 0.5555555556e-1_dp & 4799 *t1246*t1247*t3449 + 0.1800000000e2_dp*t657*t1283*t59 & 4800 *t1975 - 0.1666666667e0_dp*t429*t166*t3871 + 0.3333333334e0_dp & 4801 *t55*t57*(t4079 + t4108 + t4140 + t4261 + t4292 + t4317 + t4345 & 4802 + t4378) + 0.1481481481e0_dp*t170*t114*t735*t14 - 0.1666666667e0_dp & 4803 *t429*t1928*t290 4804 t4428 = -0.1111111111e0_dp*t165*t1264*t1483 + 0.1800000000e2_dp*t658 & 4805 *t575*t1348 - 0.8333333335e-1_dp*t429*t679*t918 - 0.1111111111e0_dp & 4806 *t165*t455*t1988 + 0.3333333334e0_dp*t170*t27*t3576 & 4807 *t172 - 0.8333333335e-1_dp*t429*t1966*t754 + 0.1250000000e0_dp & 4808 *t1368*t679*t907 + 0.1666666667e0_dp*t445*t446*t3918 - 0.4444444445e0_dp & 4809 *t165*t450*t1829 + 0.2500000000e0_dp*t1981*t3244 & 4810 *t1410 - 0.1666666667e0_dp*t429*t1392*t1410 4811 t4466 = -0.1666666667e0_dp*t429*t437*t1553 - 0.1111111111e0_dp*t165 & 4812 *t689*t1085 + 0.1666666667e0_dp*t165*t1275*t649 - 0.2222222222e0_dp & 4813 *t170*t27*t1843*t17 - 0.8333333335e-1_dp*t1246*t1962 & 4814 *t1168 + 0.1666666667e0_dp*t165*t2720*t561 + 0.6666666668e0_dp & 4815 *t170*t1932*t25 + 0.3333333334e0_dp*t445*t1292*t1825 + 0.1250000000e0_dp & 4816 *t1368*t166*t3853 - 0.4444444445e0_dp*t1373*t1962 & 4817 *t1172 + 0.7407407405e-1_dp*t165*t1377*t3472 + 0.5555555555e-1_dp & 4818 *t1246*t3244*t1483 4819 t4498 = t56*t1843 4820 t4505 = 0.1666666667e0_dp*t165*t166*t3796 - 0.8333333334e-1_dp*t2763 & 4821 *t1247*t833*t561 + (4*t147*t392*t1886) + (2 & 4822 *t147*t1388*t672) - 0.1111111111e0_dp*t165*t1940*t833 + 0.3333333334e0_dp & 4823 *t165*t1928*t379 + 0.7407407409e-1_dp*t165*t450 & 4824 *t649*t14 - 0.1666666667e0_dp*t429*t462*t3314 - 0.3703703704e-1_dp & 4825 *t2885*t1247*t3472 + 0.3333333334e0_dp*t165*t4498*t237 & 4826 + (2*t147*t1284*t672) 4827 t4512 = t1531*rho 4828 t4545 = (4*t147*t1885*t424) + 0.1666666667e0_dp*t165*t462 & 4829 *t3382 + 0.3333333334e0_dp*t445*t4512*t413 + 0.5185185185e0_dp & 4830 *t2937*t446*t3925 - 0.8333333335e-1_dp*t429*t166*t3827 - 0.1666666667e0_dp & 4831 *t429*t437*t1571 + 0.5555555555e-1_dp*t1246*t203 & 4832 *t237*t1483 + 0.5555555555e-1_dp*t1246*t2707*t1483 + 0.7407407409e-1_dp & 4833 *t165*t1875*t1360 + (4*t147*t393*t1924) & 4834 + 0.3600000000e2_dp*(t1971)*(t1972)*(t1973)*(t424) & 4835 + 0.3333333334e0_dp*t165*t437*t1688 4836 t4553 = t585*t140 4837 t4575 = t1067*t561 4838 t4585 = 0.1666666667e0_dp*t445*t3248*t668 - 0.1111111111e0_dp*t165 & 4839 *t1932*t433 + 0.5555555556e-1_dp*t1246*t4553*t833 - 0.8333333335e-1_dp & 4840 *t429*t1275*t593 - 0.8333333335e-1_dp*t429*t462* & 4841 t3329 + 0.2500000000e0_dp*t1981*t1247*t3314 + 0.1666666667e0_dp* & 4842 t445*t1962*t1093 + 0.3333333334e0_dp*t165*t455*t668 - 0.8333333335e-1_dp & 4843 *t429*t166*t3849 - 0.8333333335e-1_dp*t429*t166* & 4844 t4575 + 0.2e1_dp*t147*(t3491 - t3494 - t3497 + t3501 - t3505 + 0.9000000000e1_dp & 4845 *t3507 - t3512)*t149*t160 4846 t4607 = t1688*t237 4847 t4627 = 0.1666666667e0_dp*t165*t1966*t804 - 0.1666666667e0_dp*t429 & 4848 *t437*t1557 + 0.1800000000e2_dp*t657*t1387*t59*t1975 + 0.1037037037e1_dp & 4849 *t170*t341*t585*t1100 - 0.8888888890e0_dp*t170 & 4850 *t114*t1531*t451 - 0.8888888890e0_dp*t170*t1875*t225 - 0.1666666667e0_dp & 4851 *t429*t166*t4607 - 0.1111111111e0_dp*t165*t466 & 4852 *t3449 - 0.1666666667e0_dp*t429*t679*t914 - 0.8333333335e-1_dp* & 4853 t1246*t446*t1093*t561 + 0.1250000000e0_dp*t1368*t462*t3306 & 4854 + 0.2500000000e0_dp*t1981*t2707*t1410 4855 t4657 = -0.3333333336e0_dp*t289*t84*t3871 - 0.6666666672e0_dp*t83 & 4856 *t3875*t237 + 0.8333333340e-1_dp*t906*t384*t3306 - 0.1666666668e0_dp & 4857 *t289*t597*t918 - 0.2222222224e0_dp*t144*t46*(t4018 & 4858 + t4392 + t4428 + t4466 + t4505 + t4545 + t4585 + t4627) - 0.1666666668e0_dp & 4859 *t289*t384*t3329 - 0.3333333336e0_dp*t165*t2636*t561 & 4860 - 0.3333333336e0_dp*t165*t897*t1447 + 0.8333333340e-1_dp*t1546 & 4861 *t897*t3329 - 0.6666666672e0_dp*t83*t1071*t1447 - 0.3333333336e0_dp & 4862 *t83*t2404*t561 - 0.4444444448e0_dp*t383*t3875 - 0.3333333336e0_dp & 4863 *t289*t294*t1553 4864 t4696 = -0.6666666672e0_dp*t55*t1575 - 0.3333333336e0_dp*t289*t597 & 4865 *t914 - 0.3333333336e0_dp*t165*t2631*t561 - 0.6666666672e0_dp* & 4866 t55*t1706 - 0.3333333336e0_dp*t289*t384*t3314 - 0.6666666672e0_dp & 4867 *t83*t294*t1688 + 0.1666666668e0_dp*t1546*t2631*t1410 - & 4868 0.3333333336e0_dp*t289*t1564*t290 - 0.1666666668e0_dp*t289*t84 & 4869 *t4575 - 0.3333333336e0_dp*t289*t294*t1557 - 0.1666666668e0_dp & 4870 *t289*t1694*t754 - 0.3333333336e0_dp*t289*t84*t4607 - 0.3333333336e0_dp & 4871 *t83*t45*t3581*t140 4872 t4700 = -0.6666666670e0_dp*t2147*t1411 - 0.1333333334e1_dp*t747*t597 & 4873 *t237 - 0.1333333334e1_dp*t747*t84*t1447 - 0.1333333334e1_dp & 4874 *t747*t294*t561 - 0.8888888896e0_dp*t214*t1536 + 0.1666666668e0_dp & 4875 *t3305*t84*t3306 - 0.3333333336e0_dp*t753*t46*t589*t754 & 4876 - 0.6666666672e0_dp*t1409*t84*t3314 - 0.6666666670e0_dp*t1409 & 4877 *t294*t1410 - 0.1333333334e1_dp*t217*t46*t1535*t237 - 0.1333333334e1_dp & 4878 *t217*t46*t282*t1447 - 0.3333333336e0_dp*t1409 & 4879 *t84*t3329 - 0.6666666672e0_dp*t217*t46*t589*t804 - 0.6666666672e0_dp & 4880 *t217*t46*t78*t3382 - 0.6666666672e0_dp*t217*t46 & 4881 *t893*t561 - 0.4444444448e0_dp*t43*t46*t3581 + t8*(t3826 + & 4882 t3869 + t4657 + t4696) 4883 e_ndrho_rho_rho_spin(ii) = e_ndrho_rho_rho_spin(ii) + t4700*sx 4884 t4701 = t561**2 4885 t4704 = 0.3333333336e0_dp*t2147*t84*t4701 4886 t4707 = 0.1333333334e1_dp*t747*t597*t561 4887 t4708 = t22*t36 4888 t4713 = t557**2 4889 t4714 = t327*t4713 4890 t4717 = t22*t132 4891 t4721 = 0.1e1_dp/t787*t2480 4892 t4725 = 0.120e2_dp*t624*t4717 - 0.60e1_dp*t7*t4721*t371 4893 t4726 = t105*t4725 4894 t4729 = 0.40e1_dp*t624*t4708 - 0.80e1_dp*t112*t558 + 0.40e1_dp*t102 & 4895 *t4714 - 0.20e1_dp*t102*t4726 4896 t4732 = 0.6666666672e0_dp*t747*t84*t4729 4897 t4733 = pi**2 4898 t4734 = t4733*t146 4899 t4736 = 0.1e1_dp/t58/omega 4900 t4738 = t4734*t4736*t1300 4901 t4739 = t4701*t149 4902 t4743 = t19*t4701 4903 t4744 = t399*t4743 4904 t4748 = t151*t19*t4729 4905 t4760 = t20*t4701 4906 t4764 = t20*t4729 4907 t4768 = t58**2 4908 t4769 = 0.1e1_dp/t4768 4909 t4770 = t4769*t1141 4910 t4771 = t4770*t4733 4911 t4772 = t26*t4701 4912 t4776 = t58*t4729 4913 t4782 = -0.2250000000e2_dp*t473*t4760*t65 + 0.8999999998e1_dp*t478 & 4914 *t4764*t65 + 0.8099999996e2_dp*t4771*t4772*t65 - 0.5555555558e-1_dp & 4915 *t4776*t71 - 0.5000000001e0_dp*t60*t4729*t65 4916 t4786 = -0.2700000000e2_dp*t4738*t18*t4739 + 0.4500000000e1_dp*t567 & 4917 *t4744 - 0.3000000000e1_dp*t567*t4748 - 0.8333333335e-1_dp*t429 & 4918 *t166*t4701 + 0.3333333334e0_dp*t165*t679*t561 + 0.1666666667e0_dp & 4919 *t165*t166*t4729 + 0.3333333334e0_dp*t55*t57*t4782 4920 t4789 = 0.4444444448e0_dp*t214*t46*t4786 4921 t4790 = t237*t4701 4922 t4793 = 0.1666666668e0_dp*t3305*t84*t4790 4923 t4796 = 0.6666666672e0_dp*t1409*t597*t1410 4924 t4797 = t1447*t561 4925 t4800 = 0.6666666672e0_dp*t1409*t84*t4797 4926 t4801 = t237*t4729 4927 t4804 = 0.3333333336e0_dp*t1409*t84*t4801 4928 t4808 = 0.6666666672e0_dp*t217*t46*t4786*t237 4929 t4812 = 0.1333333334e1_dp*t217*t46*t589*t1447 4930 t4817 = t953*t4713 4931 t4820 = t316*t4725 4932 t4829 = t233*t4713 4933 t4830 = t974*t4829 4934 t4833 = t1443*t557 4935 t4834 = t327*t4833 4936 t4837 = t233*t4725 4937 t4838 = t327*t4837 4938 t4849 = -0.3200000000e2_dp*t1645*t627 + 0.4800000000e2_dp*t7*t1440 & 4939 - 0.2400000000e2_dp*t786/t2492*t1058 4940 t4850 = t105*t4849 4941 t4853 = -0.1066666667e2_dp*t1645*t98 + 0.2133333334e2_dp*t339*t1420 & 4942 - 0.1066666667e2_dp*t321*t4817 + 0.5333333333e1_dp*t321*t4820 & 4943 - 0.40e1_dp*t624*t234 + 0.160e2_dp*t112*t1426 - 0.80e1_dp*t112* & 4944 t1444 - 0.120e2_dp*t102*t4830 + 0.80e1_dp*t102*t4834 + 0.40e1_dp* & 4945 t102*t4838 - 0.20e1_dp*t102*t4850 4946 t4857 = 0.6666666672e0_dp*t217*t46*t78*t4853 4947 t4861 = 0.3333333336e0_dp*t753*t46*t282*t4701 4948 t4864 = t217*t46*t1535*t561 4949 t4869 = 0.6666666672e0_dp*t217*t46*t282*t4729 4950 t4872 = 0.8333333335e-1_dp*t429*t437*t4701 4951 t4874 = t165*t1928*t561 4952 t4878 = 0.1666666667e0_dp*t165*t437*t4729 4953 t4881 = 0.5400000000e2_dp*t1143*t1493*t4701 4954 t4884 = 0.3600000000e2_dp*t473*t2035*t561 4955 t4887 = 0.1800000000e2_dp*t473*t1493*t4729 4956 t4889 = t178*t62*t4853 4957 t4893 = 0.1200000000e2_dp*t473*t1500*t4701 4958 t4895 = t478*t1500*t4729 4959 t4897 = t4881 - t4884 - t4887 + 0.8999999998e1_dp*t4889 - t4893 + 0.5999999999e1_dp & 4960 *t4895 4961 t4898 = t4897*t65 4962 t4901 = t1504*t59*t177*t710 4963 t4904 = t4701*t65 4964 t4905 = t62*t4904 4965 t4907 = 0.2250000000e2_dp*t1506*t471*t4905 4966 t4908 = t4729*t65 4967 t4909 = t62*t4908 4968 t4911 = 0.8999999998e1_dp*t1507*t4909 4969 t4915 = t4733*t26*t4904 4970 t4917 = 0.8099999996e2_dp*t266*t4769*t1141*t4915 4971 t4918 = t58*t4853 4972 t4920 = 0.5555555558e-1_dp*t4918*t71 4973 t4922 = t1447*t177*t709 4974 t4925 = 0.5000000001e0_dp*t1513*t4908 4975 t4929 = t60*t1504*t709 4976 t4932 = 0.5000000001e0_dp*t1528*t4908 4977 t4935 = 0.1000000000e1_dp*t237*t471*t4904 4978 t4940 = t59*pi*t20*t65 4979 t4941 = t237*t1141*t4701*t4940 4980 t4943 = t4776*t67 4981 t4945 = 0.3703703705e-1_dp*t4943*t271 4982 t4946 = t471*t1518 4983 t4951 = 0.5555555558e-1_dp*t4943*t275 4984 t4952 = t719*t1525 4985 t4955 = t68*t4897*t65 4986 t4958 = t4898 + 0.1800000000e2_dp*t4901 - t4907 + t4911 + t4917 - t4920 & 4987 - 0.1000000000e1_dp*t4922 - t4925 + 0.3333333334e0_dp*t1519*t4908 & 4988 - 0.1000000000e1_dp*t4929 - t4932 + t4935 - 0.4500000000e1_dp*t4941 & 4989 + t4945 + 0.3000000000e1_dp*t4946*t4701*t4940 - t4951 - 0.1111111112e0_dp & 4990 *t4952 - 0.5555555558e-1_dp*t192*t4955 4991 t4994 = t44*t4733*t146 4992 t4995 = t4994*t4770 4993 t5001 = 0.1666666667e0_dp*t165*t166*t4853 4994 t5002 = t17*t4701 4995 t5005 = 0.2777777778e-1_dp*t429*t171*t5002 4996 t5008 = 0.1111111111e0_dp*t165*t689*t1483 4997 t5009 = t17*t4729 4998 t5011 = t165*t171*t5009 4999 t5013 = t27*t4782 5000 t5016 = 0.1111111111e0_dp*t170*t5013*t17 5001 t5019 = 0.1250000000e0_dp*t1368*t166*t4790 5002 t5022 = 0.1666666667e0_dp*t429*t679*t1410 5003 t5025 = 0.1666666667e0_dp*t429*t166*t4797 5004 t5028 = 0.8333333335e-1_dp*t429*t166*t4801 5005 t5029 = t56*t4782 5006 t5032 = 0.1666666667e0_dp*t165*t5029*t237 5007 t5035 = 0.3333333334e0_dp*t165*t679*t1447 5008 t5036 = -t4872 + 0.3333333334e0_dp*t4874 + t4878 + 0.3333333334e0_dp* & 5009 t55*t57*t4958 + 0.2e1_dp*t147*t149*(-0.5625000000e1_dp*t1302 & 5010 *t1459*t4701 + 0.4500000000e1_dp*t400*t2022*t561 + 0.2250000000e1_dp & 5011 *t400*t1459*t4729 - 0.1500000000e1_dp*t151*t50*t4853 & 5012 + 0.7500000000e0_dp*t400*t1466*t4701 - 0.5000000000e0_dp*t405 & 5013 *t1466*t4729) - 0.3600000000e2_dp*t2081*t4760*t250 + 0.1800000000e2_dp & 5014 *t658*t4764*t250 + 0.3600000000e2_dp*t658*t575*t1471 & 5015 + 0.1620000000e3_dp*t4995*t4772*t250 + t5001 + t5005 - t5008 & 5016 - 0.5555555555e-1_dp*t5011 - t5016 + t5019 - t5022 - t5025 - t5028 & 5017 + t5032 + t5035 5018 t5040 = t379*t4729 5019 t5043 = 0.1666666668e0_dp*t289*t84*t5040 5020 t5044 = t140*t4853 5021 t5047 = 0.1666666668e0_dp*t289*t84*t5044 5022 t5050 = 0.1666666668e0_dp*t165*t897*t4729 5023 t5051 = beta*t86 5024 t5060 = beta*t92 5025 t5065 = rho*t4713 5026 t5069 = rho*t4725 5027 t5079 = t136*t4713 5028 t5083 = t645*t557 5029 t5087 = t136*t4725 5030 t5106 = beta*t640 5031 t5108 = t126*t371*ndrho 5032 t5115 = t366*t640 5033 t5118 = -0.480e2_dp*t5051*t4717 + 0.240e2_dp*t7*t2182*t2480*t371 & 5034 + 0.480e2_dp*t5060*t628 - 0.240e2_dp*t7*t1640*t1438*t371 & 5035 *rho + 0.120e2_dp*t550*t637 - 0.180e2_dp*t5106*t5108 - 0.120e2_dp & 5036 *t7*t640*t635*t371 + 0.180e2_dp*t5115*t1681 5037 t5122 = -0.320e2_dp*t5051*t4708 + 0.640e2_dp*t1582*t558 - 0.320e2_dp & 5038 *t302*t4714 + 0.160e2_dp*t302*t4726 + 0.320e2_dp*t5060*t99 - & 5039 0.640e2_dp*t605*t609 + 0.320e2_dp*t93*t953*t5065 - 0.160e2_dp* & 5040 t93*t316*t5069 - 0.40e1_dp*t624*t137 + 0.160e2_dp*t112*t615 & 5041 - 0.80e1_dp*t112*t646 - 0.120e2_dp*t102*t974*t5079 + 0.80e1_dp* & 5042 t102*t327*t5083 + 0.40e1_dp*t102*t327*t5087 - 0.20e1_dp*t102 & 5043 *t105*t5118 5044 t5123 = t5122*t237 5045 t5126 = 0.1666666668e0_dp*t289*t84*t5123 5046 t5139 = t25*t4701 5047 t5143 = t25*t4729 5048 t5147 = -0.5625000000e1_dp*t1302*t401*t4701 + 0.4500000000e1_dp*t400 & 5049 *t1892*t561 + 0.2250000000e1_dp*t400*t401*t4729 - 0.1500000000e1_dp & 5050 *t151*t50*t5122 - 0.2250000000e1_dp*t400*t156*t5139 & 5051 + 0.1500000000e1_dp*t405*t156*t5143 5052 t5163 = t140*t4701 5053 t5170 = t649*t561 5054 t5174 = t140*t4729 5055 t5226 = 0.5400000000e2_dp*t1143*t474*t4701 - 0.3600000000e2_dp*t473 & 5056 *t1801*t561 - 0.1800000000e2_dp*t473*t474*t4729 + 0.8999999998e1_dp & 5057 *t178*t62*t5122 + 0.3600000000e2_dp*t473*t183*t5139 & 5058 - 0.1800000000e2_dp*t478*t183*t5143 5059 t5228 = t705*t59 5060 t5229 = t5228*t177 5061 t5237 = t649*t177 5062 t5244 = t60*t705 5063 t5247 = t187*t4769 5064 t5251 = t58*t5122 5065 t5256 = t140*t1141 5066 t5262 = t471*t722 5067 t5270 = t68*t5226 5068 t5271 = t5270*t65 5069 t5276 = t5226*t65 + 0.1800000000e2_dp*t5229*t710 - 0.2250000000e2_dp & 5070 *t707*t471*t4905 + 0.8999999998e1_dp*t708*t4909 - 0.1000000000e1_dp & 5071 *t5237*t709 - 0.5000000001e0_dp*t716*t4908 - 0.1000000001e1_dp & 5072 *t723*t4908 - 0.1000000000e1_dp*t5244*t709 + 0.8099999996e2_dp & 5073 *t5247*t1141*t4915 - 0.5555555558e-1_dp*t5251*t71 + 0.1000000000e1_dp & 5074 *t2098*t4904 - 0.4500000000e1_dp*t5256*t4701*t4940 & 5075 - 0.1111111112e0_dp*t4943*t196 - 0.9000000007e1_dp*t5262*t4701 & 5076 *t4940 - 0.5555555558e-1_dp*t4943*t200 - 0.1111111112e0_dp*t719* & 5077 t729 - 0.5555555558e-1_dp*t192*t5271 - 0.5000000001e0_dp*t732*t4908 5078 t5280 = (2*t147*t149*t5147) - 0.3600000000e2_dp*t2081*t4760 & 5079 *t161 + 0.1800000000e2_dp*t658*t4764*t161 + 0.3600000000e2_dp & 5080 *t658*t575*t673 + 0.1620000000e3_dp*t4995*t4772*t161 + 0.1250000000e0_dp & 5081 *t1368*t166*t5163 - 0.1666666667e0_dp*t429*t679 & 5082 *t593 - 0.1666666667e0_dp*t429*t166*t5170 - 0.8333333335e-1_dp* & 5083 t429*t166*t5174 + 0.1666666667e0_dp*t165*t5029*t140 + 0.3333333334e0_dp & 5084 *t165*t679*t649 + 0.1666666667e0_dp*t165*t166*t5122 & 5085 - 0.8333333335e-1_dp*t1246*t446*t5139 + 0.3333333334e0_dp*t445 & 5086 *t1962*t668 + 0.1666666667e0_dp*t445*t446*t5143 + 0.3333333334e0_dp & 5087 *t170*t5013*t172 - 0.8333333335e-1_dp*t429*t462*t4701 & 5088 + 0.3333333334e0_dp*t165*t1966*t561 + 0.1666666667e0_dp*t165 & 5089 *t462*t4729 + 0.3333333334e0_dp*t55*t57*t5276 5090 t5281 = t45*t5280 5091 t5284 = 0.3333333336e0_dp*t83*t5281*t237 5092 t5291 = 0.1666666668e0_dp*t289*t384*t4801 5093 t5294 = 0.1666666668e0_dp*t1546*t3865*t1410 5094 t5295 = t45*t4786 5095 t5298 = 0.3333333336e0_dp*t83*t5295*t379 5096 t5301 = 0.3333333336e0_dp*t55*t384*t4729 5097 t5303 = t83*t1564*t649 5098 t5305 = -t5043 - t5047 - t5050 - t5126 - t5284 - 0.3333333336e0_dp*t83 & 5099 *t45*t5036*t140 - t5291 + t5294 - t5298 - t5301 - 0.6666666672e0_dp & 5100 *t5303 5101 t5308 = 0.3333333336e0_dp*t289*t1694*t1410 5102 t5311 = 0.1666666668e0_dp*t289*t1071*t4701 5103 t5314 = 0.1666666668e0_dp*t289*t5295*t290 5104 t5317 = 0.3333333336e0_dp*t165*t3861*t561 5105 t5320 = 0.3333333336e0_dp*t83*t1071*t4729 5106 t5323 = 0.1666666668e0_dp*t1546*t3861*t1410 5107 t5326 = 0.1250000001e0_dp*t3842*t897*t4790 5108 t5329 = 0.6666666672e0_dp*t83*t1694*t1447 5109 t5330 = t379*t4701 5110 t5333 = 0.8333333340e-1_dp*t906*t84*t5330 5111 t5335 = 0.2222222224e0_dp*t383*t5281 5112 t5338 = 0.6666666672e0_dp*t55*t1694*t561 5113 t5339 = t649*t1447 5114 t5342 = 0.3333333336e0_dp*t289*t84*t5339 5115 t5343 = -t5308 - t5311 - t5314 - t5317 - t5320 + t5323 - t5326 - t5329 & 5116 + t5333 - t5335 - t5338 - t5342 5117 t5345 = t1688*t561 5118 t5347 = t289*t84*t5345 5119 t5351 = 0.1666666668e0_dp*t164*t384*t4701 5120 t5354 = 0.3333333336e0_dp*t83*t384*t4853 5121 t5357 = 0.6666666672e0_dp*t55*t597*t649 5122 t5360 = 0.3333333336e0_dp*t289*t384*t4797 5123 t5363 = 0.8333333335e-1_dp*t429*t166*t5040 5124 t5367 = 0.1666666667e0_dp*t445*t4782*rho*t413 5125 t5370 = 0.1666666667e0_dp*t429*t679*t1557 5126 t5371 = t225*t4701 5127 t5373 = t2885*t446*t5371 5128 t5376 = t165*t466*t5009 5129 t5379 = t165*t1928*t649 5130 t5383 = 0.4166666667e-1_dp*t2763*t1247*t5002 5131 t5386 = 0.8333333335e-1_dp*t429*t5029*t290 5132 t5389 = 0.8333333335e-1_dp*t429*t166*t5044 5133 t5397 = 0.8333333335e-1_dp*t1246*t446*t413*t4729 5134 t5400 = 0.3333333334e0_dp*t445*t1962*t1825 5135 t5402 = t165*t679*t1688 5136 t5406 = 0.8333333335e-1_dp*t429*t166*t5123 5137 t5409 = 0.8333333335e-1_dp*t429*t1392*t4701 5138 t5412 = 0.8333333335e-1_dp*t429*t171*t5139 5139 t5415 = 0.1666666667e0_dp*t429*t462*t4797 5140 t5418 = 2*t147*t393*t5147 5141 t5421 = t657*t1884*t59*t1975 5142 t5423 = -t5363 + t5367 - t5370 + 0.1111111111e0_dp*t5373 - 0.5555555555e-1_dp & 5143 *t5376 + 0.3333333334e0_dp*t5379 - t5383 - t5386 - t5389 + & 5144 0.3333333334e0_dp*t170*t27*t4958*t172 - t5397 + t5400 + 0.3333333334e0_dp & 5145 *t5402 - t5406 - t5409 - t5412 - t5415 + t5418 + 0.3600000000e2_dp & 5146 *t5421 5147 t5426 = 0.8333333335e-1_dp*t1246*t1292*t5139 5148 t5429 = 0.1666666667e0_dp*t445*t1292*t5143 5149 t5430 = t225*t4729 5150 t5432 = t1373*t446*t5430 5151 t5436 = 0.1666666667e0_dp*t165*t5029*t379 5152 t5440 = 0.40e1_dp*t102*t327*t375*t4725 5153 t5443 = 0.960e2_dp*t1597*t3608*t4829 5154 t5446 = 0.480e2_dp*t24*t23*t1618 5155 t5449 = 0.1173333333e3_dp*t307*t2611*t5065 5156 t5451 = 0.640e2_dp*t605*t1603 5157 t5454 = 0.2133333334e2_dp*t321*t953*t5083 5158 t5456 = 0.1280e3_dp*t1582*t1426 5159 t5459 = 0.5333333333e1_dp*t321*t316*t5118 5160 t5460 = beta*t306 5161 t5462 = 0.1173333333e3_dp*t5460*t313 5162 t5466 = 0.40e1_dp*t102*t327*t136*t4849 5163 t5468 = 0.2346666666e3_dp*t605*t1420 5164 t5469 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 - t5456 + t5459 & 5165 - t5462 + t5466 - t5468 5166 t5472 = 0.3200000001e2_dp*t321*t2455*t5079 5167 t5474 = 0.4266666668e2_dp*t339*t1608 5168 t5478 = 0.240e2_dp*t1616*t973*t645*t1425 5169 t5480 = 0.1760000000e3_dp*t5060*t627 5170 t5482 = 0.2160000000e3_dp*t7*t1642 5171 t5484 = 0.1760000000e3_dp*t5460*t347 5172 t5487 = 0.2160000000e3_dp*t7*t995*t1652 5173 t5489 = 0.1600000000e2_dp*t1429*t1658 5174 t5492 = 0.7200000000e2_dp*beta*t368*t5108 5175 t5494 = 0.6400000000e2_dp*t7*t1677 5176 t5496 = t366*t368*t1681 5177 t5499 = 0.120e2_dp*t550*t1669 5178 t5503 = 0.180e2_dp*t5106*t360*t371*ndrho 5179 t5507 = 0.120e2_dp*t7*t640*t1667*t371 5180 t5509 = 0.180e2_dp*t5115*t3668 5181 t5511 = t1680*t3673*t23 5182 t5516 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.1920000000e3_dp & 5183 *t5496 + t5499 - t5503 - t5507 + t5509 - 0.4800000000e2_dp & 5184 *t5511 + 0.1200000000e3_dp*t1055*t2565*t4721 5185 t5523 = 0.120e2_dp*t102*t974*t375*t4713 5186 t5525 = 0.2133333334e2_dp*t339*t1611 5187 t5528 = t102*t327*t1684*t557 5188 t5531 = 0.160e2_dp*t112*t1626 5189 t5533 = 0.160e2_dp*t112*t1632 5190 t5535 = 0.640e2_dp*t1582*t1444 5191 t5537 = 0.160e2_dp*t112*t1622 5192 t5540 = 0.320e2_dp*t1597*t1598*t4837 5193 t5541 = t5472 - t5474 - t5478 - 0.20e1_dp*t102*t105*t5516 - t5523 & 5194 + t5525 + 0.80e1_dp*t5528 + t5531 + t5533 + t5535 + t5537 + t5540 5195 t5545 = 0.480e2_dp*t1616*t3750*t4829 5196 t5548 = 0.120e2_dp*t1616*t1617*t4837 5197 t5551 = 0.1280e3_dp*t24*t298*t1599 5198 t5553 = 0.160e2_dp*t302*t4850 5199 t5558 = 0.320e2_dp*t5060*t97*t104*rho*t233 5200 t5560 = 0.2346666666e3_dp*t1589*t1592 5201 t5562 = 0.5866666667e2_dp*t93*t4820 5202 t5564 = 0.1173333333e3_dp*t5060*t98 5203 t5565 = t112*t1685 5204 t5568 = 0.1066666667e2_dp*t1645*t322 5205 t5572 = 0.40e1_dp*t102*t327*t5118*t233 5206 t5574 = 0.1173333333e3_dp*t93*t4817 5207 t5575 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 5208 - 0.80e1_dp*t5565 + t5568 + t5572 + t5574 5209 t5579 = 0.80e1_dp*t102*t327*t645*t1443 5210 t5581 = 0.320e2_dp*t302*t4838 5211 t5585 = 0.160e2_dp*t93*t316*rho*t4849 5212 t5590 = 0.80e1_dp*t624*t22*t326*t136*t233 5213 t5593 = 0.1066666667e2_dp*t321*t953*t5087 5214 t5595 = 0.640e2_dp*t302*t4834 5215 t5597 = 0.960e2_dp*t302*t4830 5216 t5600 = 0.240e2_dp*t1616*t1617*t4833 5217 t5602 = 0.40e1_dp*t624*t376 5218 t5604 = 0.320e2_dp*t5051*t234 5219 t5607 = 0.5866666667e2_dp*t307*t949*t5069 5220 t5610 = 0.640e2_dp*t1597*t1598*t4833 5221 t5611 = t5579 - t5581 - t5585 + t5590 - t5593 - t5595 + t5597 - t5600 & 5222 - t5602 + t5604 + t5607 + t5610 5223 t5613 = t5469 + t5541 + t5575 + t5611 5224 t5619 = 0.3333333334e0_dp*t170*t5013*t25 5225 t5622 = 0.1666666667e0_dp*t165*t1392*t4729 5226 t5625 = 0.1666666667e0_dp*t429*t166*t5339 5227 t5628 = 0.3600000000e2_dp*t2081*t4760*t425 5228 t5631 = 0.5555555556e-1_dp*t1246*t4032*t1483 5229 t5632 = t25*t4853 5230 t5635 = 0.1500000000e1_dp*t405*t156*t5632 5231 t5638 = 0.2250000000e1_dp*t400*t1333*t4701 5232 t5641 = 0.1500000000e1_dp*t405*t1333*t4729 5233 t5643 = t400*t3975*t561 5234 t5647 = 0.5625000000e1_dp*t1302*t1309*t4701 5235 t5650 = 0.5625000000e1_dp*t1302*t401*t4801 5236 t5653 = 0.4500000000e1_dp*t400*t1892*t1447 5237 t5657 = 0.5000000000e0_dp*t405*t68*t5122*t17 5238 t5660 = 0.1125000000e2_dp*t1302*t401*t4797 5239 t5663 = 0.1500000000e1_dp*t400*t417*t5371 5240 t5666 = 0.1125000000e2_dp*t1302*t1892*t1410 5241 t5667 = t5635 - t5638 + t5641 + 0.4500000000e1_dp*t5643 - t5647 - t5650 & 5242 + t5653 - t5657 - t5660 + t5663 - t5666 5243 t5670 = 0.2250000000e1_dp*t400*t1309*t4729 5244 t5671 = t172*t4801 5245 t5673 = 0.2250000000e1_dp*t1912*t5671 5246 t5676 = 0.2250000000e1_dp*t400*t401*t4853 5247 t5679 = 0.1875000000e1_dp*t1302*t406*t5002 5248 t5682 = 0.1500000000e1_dp*t400*t1902*t1483 5249 t5686 = 0.2250000000e1_dp*t400*t19*t5122*t237 5250 t5689 = 0.1000000000e1_dp*t405*t417*t5430 5251 t5692 = 0.1968750000e2_dp*t2823*t401*t4790 5252 t5695 = 0.7500000000e0_dp*t400*t406*t5009 5253 t5696 = t172*t4790 5254 t5698 = 0.5625000000e1_dp*t3939*t5696 5255 t5699 = t172*t4797 5256 t5701 = 0.4500000000e1_dp*t1912*t5699 5257 t5705 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 5258 + t5695 + t5698 - t5701 - 0.1500000000e1_dp*t151*t50*t5613 5259 t5713 = t4739*t160 5260 t5716 = 0.1620000000e3_dp*t4994*t392*t4769*t1141*t26*t5713 5261 t5719 = 0.3333333334e0_dp*t165*t1966*t1447 5262 t5722 = 0.1111111111e0_dp*t165*t689*t1988 5263 t5724 = t429*t166*t5345 5264 t5728 = 0.2500000000e0_dp*t1981*t1247*t4797 5265 t5731 = 0.1666666667e0_dp*t445*t446*t5632 5266 t5734 = 0.1666666667e0_dp*t429*t679*t1553 5267 t5738 = 0.4444444445e0_dp*t170*t114*t4782*t451 5268 t5741 = 0.1666666667e0_dp*t165*t171*t5143 5269 t5742 = -t5426 + t5429 - 0.2222222222e0_dp*t5432 + t5436 + 0.1666666667e0_dp & 5270 *t165*t166*t5613 + t5619 + t5622 - t5625 - t5628 + t5631 & 5271 + (2*t147*t149*(t5667 + t5705)) + t5716 + t5719 - t5722 & 5272 - 0.1666666667e0_dp*t5724 + t5728 + t5731 - t5734 - t5738 + t5741 5273 t5745 = t165*t4498*t561 5274 t5749 = 0.1666666667e0_dp*t429*t437*t5170 5275 t5752 = 0.8333333335e-1_dp*t429*t462*t4801 5276 t5756 = 0.1111111111e0_dp*t170*t27*t5276*t17 5277 t5760 = 0.1250000000e0_dp*t2763*t446*t413*t4701 5278 t5767 = 0.1666666667e0_dp*t165*t437*t5122 5279 t5770 = 0.1620000000e3_dp*t4995*t4772*t425 5280 t5773 = 0.1250000000e0_dp*t1368*t437*t5163 5281 t5776 = 0.2777777778e-1_dp*t1246*t1247*t5009 5282 t5780 = 0.1666666667e0_dp*t165*t56*t5276*t237 5283 t5783 = 0.5555555557e-1_dp*t165*t5013*t433 5284 t5786 = 0.3333333334e0_dp*t165*t689*t668 5285 t5789 = 0.1250000000e0_dp*t1368*t166*t5330 5286 t5792 = 0.2777777778e-1_dp*t429*t466*t5002 5287 t5795 = 0.1111111111e0_dp*t165*t1940*t1483 5288 t5797 = t1373*t1962*t1829 5289 t5801 = 0.3600000000e2_dp*t1143*t479*t5002 5290 t5804 = 0.2400000000e2_dp*t473*t1811*t1483 5291 t5807 = 0.2160000000e3_dp*t2994*t474*t4790 5292 t5810 = 0.1080000000e3_dp*t1143*t1801*t1410 5293 t5813 = 0.1800000000e2_dp*t478*t183*t5632 5294 t5816 = 0.3600000000e2_dp*t473*t1176*t4701 5295 t5819 = 0.1800000000e2_dp*t478*t1176*t4729 5296 t5822 = 0.1800000000e2_dp*t473*t474*t4853 5297 t5825 = 0.1200000000e2_dp*t473*t479*t5009 5298 t5828 = 0.3600000000e2_dp*t473*t1801*t1447 5299 t5830 = 0.1080000000e3_dp*t4230*t5696 5300 t5831 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 5301 - t5825 - t5828 - t5830 5302 t5833 = 0.7200000000e2_dp*t1821*t5699 5303 t5835 = 0.3600000000e2_dp*t1821*t5671 5304 t5838 = 0.1080000000e3_dp*t1143*t474*t4797 5305 t5841 = 0.5400000000e2_dp*t1143*t474*t4801 5306 t5845 = 0.1800000000e2_dp*t473*t20*t5122*t237 5307 t5848 = 0.5400000000e2_dp*t1143*t1150*t4701 5308 t5850 = t473*t4201*t561 5309 t5854 = 0.1200000000e2_dp*t473*t489*t5371 5310 t5857 = 0.6000000000e1_dp*t478*t489*t5430 5311 t5861 = 0.5999999999e1_dp*t478*t56*t5122*t17 5312 t5864 = 0.1800000000e2_dp*t473*t1150*t4729 5313 t5868 = t5833 + t5835 + t5838 + t5841 - t5845 + t5848 - 0.3600000000e2_dp & 5314 *t5850 - t5854 + t5857 + t5861 - t5864 + 0.8999999998e1_dp*t178 & 5315 *t62*t5613 5316 t5869 = t5831 + t5868 5317 t5875 = t1447*t187*t1722 5318 t5880 = 0.3703703705e-1_dp*t192*t194*t5226*t526 5319 t5881 = t1141*t4701 5320 t5885 = t719*t1769 5321 t5888 = t60*t1836*t709 5322 t5891 = 0.5555555558e-1_dp*t4943*t534 5323 t5898 = t705*t1504*t65 5324 t5902 = 0.1800000000e2_dp*t1718*t178*t710 5325 t5905 = 0.5555555558e-1_dp*t192*t5270*t267 5326 t5908 = t1836*t59*t177*t710 5327 t5911 = t266*t4729*t65 5328 t5913 = 0.1000000001e1_dp*t723*t5911 5329 t5918 = t140*t1504*t1722 5330 t5922 = 0.1111111112e0_dp*t4776*t515*t517 5331 t5925 = 0.8099999996e2_dp*t498*t4770*t4915 5332 t5926 = -0.5555555558e-1_dp*t192*t68*t5869*t65 - 0.1000000000e1_dp & 5333 *t5875 + t5880 + 0.3000000000e1_dp*t1748*t5881*t4940 - 0.1111111112e0_dp & 5334 *t5885 - 0.1000000000e1_dp*t5888 - t5891 + t5869*t65 + & 5335 0.666666666e0_dp*t1519*t722*t4729*t65 + (2*t5898) + t5902 & 5336 - t5905 + 0.1800000000e2_dp*t5908 - t5913 - 0.1111111112e0_dp*t516 & 5337 *t4898*t172 - 0.1000000000e1_dp*t5918 - t5922 + t5925 5338 t5929 = 0.2250000000e2_dp*t1740*t471*t4905 5339 t5932 = 0.1000000000e1_dp*t649*t266*t1722 5340 t5938 = t192*t728*t1505 5341 t5940 = t4918*t67 5342 t5942 = 0.1111111112e0_dp*t5940*t196 5343 t5944 = t1447*t722*t1722 5344 t5949 = 0.8999999998e1_dp*t1795*t4909 5345 t5952 = 0.9000000007e1_dp*t1763*t5881*t4940 5346 t5954 = 0.8999999998e1_dp*t1741*t4909 5347 t5956 = t471*t4701*t65 5348 t5958 = 0.1000000000e1_dp*t1766*t5956 5349 t5960 = 0.5555555558e-1_dp*t5940*t200 5350 t5963 = 0.1000000000e1_dp*t379*t471*t4904 5351 t5964 = t1715*t1525 5352 t5966 = t1785*t1790 5353 t5971 = 0.4500000000e1_dp*t379*t1141*t4701*t4940 5354 t5973 = 0.5555555558e-1_dp*t4943*t531 5355 t5975 = t5226*t266*t65 5356 t5977 = 0.1111111112e0_dp*t1755*t729 5357 t5978 = -t5929 - t5932 + 0.3333333334e0_dp*t1519*t187*t4729*t65 & 5358 - 0.1111111112e0_dp*t5938 - t5942 - 0.2000000002e1_dp*t5944 - 0.5555555558e-1_dp & 5359 *t503*t4955 + t5949 - t5952 + t5954 + t5958 - t5960 & 5360 + t5963 - 0.1111111112e0_dp*t5964 - 0.2222222224e0_dp*t5966 - t5971 & 5361 - t5973 + t5975 - t5977 5362 t5985 = 0.5000000001e0_dp*t1774*t4908 5363 t5990 = t177*t4729*t65 5364 t5994 = 0.5000000001e0_dp*t1766*t5990 5365 t5996 = 0.3703703705e-1_dp*t4943*t527 5366 t6000 = 0.9000000007e1_dp*t5262*t266*t4701*t4940 5367 t6002 = 0.1851851853e0_dp*t4943*t512 5368 t6004 = t1709*t178*t710 5369 t6006 = t719*t1838 5370 t6009 = 0.5000000001e0_dp*t1777*t4908 5371 t6017 = 0.5000000001e0_dp*t732*t5911 5372 t6019 = 0.7407407410e-1_dp*t719*t1726 5373 t6021 = t649*t1518*t1722 5374 t6023 = t5251*t67 5375 t6025 = 0.3703703705e-1_dp*t6023*t271 5376 t6029 = 0.5999999993e1_dp*t4946*t722*t4701*t4940 - t5985 - 0.5555555558e-1_dp & 5377 *t192*t199*t4898 + 0.3333333334e0_dp*t1748*t5990 & 5378 - t5994 + t5996 - t6000 + t6002 + 0.1800000000e2_dp*t6004 - 0.1111111112e0_dp & 5379 *t6006 - t6009 + 0.3000000000e1_dp*t4946*t187*t4701 & 5380 *t4940 - 0.6666666668e0_dp*t1748*t5956 - t6017 + t6019 + 0.6666666668e0_dp & 5381 *t6021 + t6025 - 0.5555555558e-1_dp*t58*t5613*t71 5382 t6031 = 0.5000000001e0_dp*t1720*t5990 5383 t6033 = 0.1000000000e1_dp*t5244*t1712 5384 t6036 = 0.2250000000e2_dp*t498*t472*t4905 5385 t6040 = 0.5555555558e-1_dp*t6023*t275 5386 t6042 = 0.1000000001e1_dp*t1763*t5990 5387 t6044 = 0.2000000002e1_dp*t1763*t5956 5388 t6047 = 0.4500000000e1_dp*t1720*t5881*t4940 5389 t6049 = t1688*t177*t709 5390 t6052 = t1504*t561*t65 5391 t6053 = t732*t6052 5392 t6056 = 0.5555555558e-1_dp*t508*t5271 5393 t6058 = 0.1111111112e0_dp*t4943*t520 5394 t6060 = t1766*t5881*t4940 5395 t6063 = 0.1000000000e1_dp*t1720*t5956 5396 t6066 = t1519*t705*t561*t65 5397 t6074 = 0.8099999996e2_dp*t496*t4769*t1141*t4915 5398 t6075 = t723*t6052 5399 t6078 = 0.1111111112e0_dp*t719*t1782 5400 t6079 = -t6031 - t6033 - t6036 + t187*t4897*t65 - t6040 - t6042 & 5401 + t6044 - t6047 - 0.1000000000e1_dp*t6049 - 0.1000000000e1_dp*t6053 & 5402 - t6056 - t6058 - 0.4500000000e1_dp*t6060 + t6063 + 0.6666666668e0_dp & 5403 *t6066 - 0.1000000000e1_dp*t237*t705*t1722 + t6074 - 0.2000000002e1_dp & 5404 *t6075 - t6078 5405 t6087 = 0.1666666667e0_dp*t429*t1966*t1410 5406 t6090 = 0.3125000000e0_dp*t4025*t1247*t4790 5407 t6091 = 0.3333333334e0_dp*t5745 - t5749 - t5752 - t5756 + t5760 + 0.1666666667e0_dp & 5408 *t165*t56*t4958*t140 + t5767 + t5770 + t5773 + & 5409 t5776 + t5780 - t5783 + t5786 + t5789 + t5792 - t5795 - 0.4444444444e0_dp & 5410 *t5797 + 0.3333333334e0_dp*t55*t57*(t5926 + t5978 + t6029 & 5411 + t6079) - t6087 - t6090 5412 t6094 = 0.1250000000e0_dp*t1981*t1247*t4801 5413 t6099 = 0.1800000000e2_dp*t1971*t1972*t4729*t149*t160 5414 t6102 = 0.2500000000e0_dp*t1981*t4553*t1410 5415 t6106 = 0.3600000000e2_dp*t1971*t1972*t1973*t672 5416 t6109 = 0.1666666667e0_dp*t1246*t1962*t1865 5417 t6112 = 0.5555555556e-1_dp*t1246*t4553*t1483 5418 t6116 = 0.3600000000e2_dp*t1971*t471*t20*t5713 5419 t6119 = 0.1250000000e0_dp*t1368*t462*t4790 5420 t6123 = 0.1666666667e0_dp*t1246*t446*t1825*t561 5421 t6126 = 0.1800000000e2_dp*t658*t4764*t425 5422 t6129 = 0.8333333335e-1_dp*t429*t437*t5174 5423 t6132 = 0.1666666667e0_dp*t165*t462*t4853 5424 t6136 = 0.5555555557e-1_dp*t165*t171*t5122*t17 5425 t6138 = t429*t1928*t593 5426 t6141 = t658*t575*t1925 5427 t6144 = t445*t4512*t668 5428 t6155 = 0.2500000000e0_dp*t1981*t4032*t1410 5429 t6158 = 0.1666666667e0_dp*t429*t679*t1571 5430 t6160 = t147*t1885*t672 5431 t6162 = t6094 + t6099 + t6102 + t6106 - t6109 + t6112 - t6116 + t6119 & 5432 - t6123 + t6126 - t6129 + t6132 - t6136 - 0.1666666667e0_dp*t6138 & 5433 + 0.3600000000e2_dp*t6141 + 0.3333333334e0_dp*t6144 + 0.2e1_dp*t147 & 5434 *(t4881 - t4884 - t4887 + 0.9000000000e1_dp*t4889 - t4893 + 0.6000000000e1_dp & 5435 *t4895)*t149*t160 + t6155 - t6158 + (4*t6160) 5436 t6170 = 0.3333333336e0_dp*t289*t597*t1571 5437 t6173 = 0.3333333336e0_dp*t55*t5295*t140 5438 t6175 = t83*t597*t1688 5439 t6179 = 0.3333333336e0_dp*t165*t3865*t561 5440 t6181 = t289*t1564*t593 5441 t6185 = 0.3333333336e0_dp*t289*t597*t1553 5442 t6186 = -0.3333333336e0_dp*t5347 - t5351 - t5354 - t5357 - t5360 - 0.2222222224e0_dp & 5443 *t144*t46*(t5423 + t5742 + t6091 + t6162) - t6170 & 5444 - t6173 - 0.6666666672e0_dp*t6175 - t6179 - 0.3333333336e0_dp*t6181 & 5445 - t6185 5446 t6189 = 0.8333333340e-1_dp*t906*t294*t5163 5447 t6192 = 0.3333333336e0_dp*t83*t294*t5122 5448 t6194 = t83*t3875*t561 5449 t6198 = 0.3333333336e0_dp*t289*t294*t5170 5450 t6201 = 0.3333333336e0_dp*t289*t597*t1557 5451 t6207 = 0.1666666668e0_dp*t1546*t897*t4797 5452 t6210 = 0.1666666668e0_dp*t289*t294*t5174 5453 t6213 = 0.3333333336e0_dp*t55*t84*t5122 5454 t6216 = 0.8333333340e-1_dp*t429*t897*t4701 5455 t6219 = 0.8333333340e-1_dp*t906*t384*t4790 5456 t6222 = 0.8333333340e-1_dp*t1546*t897*t4801 5457 t6223 = t6189 - t6192 - 0.6666666672e0_dp*t6194 - t6198 - t6201 - 0.3333333336e0_dp & 5458 *t83*t84*t5613 + t6207 - t6210 - t6213 + t6216 + & 5459 t6219 + t6222 5460 t6227 = -t4704 - t4707 - t4732 - t4789 + t4793 - t4796 - t4800 - t4804 & 5461 - t4808 - t4812 - t4857 - t4861 - 0.1333333334e1_dp*t4864 - t4869 & 5462 - 0.4444444448e0_dp*t43*t46*t5036 + t8*(t5305 + t5343 + t6186 & 5463 + t6223) 5464 e_ndrho_ndrho_rho_spin(ii) = e_ndrho_ndrho_rho_spin(ii) + t6227*sx 5465 t6247 = t4769*t2992 5466 t6249 = t4772*t2027 5467 t6252 = t56*t4701 5468 t6253 = t6252*t526 5469 t6256 = t56*t4729 5470 t6257 = t6256*t526 5471 t6260 = t4743*t526 5472 t6263 = t20*t4853 5473 t6267 = t26*t1447 5474 t6268 = t6267*t709 5475 t6271 = t4764*t2027 5476 t6281 = -0.1620000000e3_dp*t6247*t4733*t6249 - 0.1200000000e2_dp* & 5477 t473*t6253 + 0.5999999999e1_dp*t478*t6257 + 0.5399999998e2_dp*t4771 & 5478 *t6260 + 0.8999999998e1_dp*t478*t6263*t65 + 0.8099999996e2_dp & 5479 *t4771*t6268 - 0.1800000000e2_dp*t473*t6271 - 0.4050000000e2_dp & 5480 *t473*t575*t2095 - 0.5000000001e0_dp*t60*t4853*t65 + 0.8999999998e1_dp & 5481 *t4901 - t4907 + t4911 5482 t6283 = t4701*t1518 5483 t6290 = t4917 - t4920 + 0.5000000001e0_dp*t4922 + t4925 + 0.3333333334e0_dp & 5484 *t6283*t177*t65 - 0.5000000001e0_dp*t4929 - t4932 - t4935 & 5485 + 0.5850000000e2_dp*t4941 + t4945 - t4951 - 0.5555555558e-1_dp*t4952 5486 t6291 = t6281 + t6290 5487 t6308 = 0.4050000000e2_dp*t4734*t4736*t2821*t18*t4739*t237 & 5488 - 0.1125000000e2_dp*t2013*t1300*t19*t4790 - t5028 - t5022 + & 5489 0.1500000000e1_dp*t2013*t398*t68*t5002 + 0.3333333334e0_dp*t55 & 5490 *t57*t6291 + t5019 - 0.3000000000e1_dp*t566*t1885*t569 - t5016 & 5491 - 0.9000000000e1_dp*t4734*t4736*t1300*t4701*t149*t17 & 5492 + t5032 + 0.1666666667e0_dp*t165*t2088*t561 - 0.5555555557e-1_dp* & 5493 t5011 + t5001 5494 t6338 = 0.1666666667e0_dp*t4874 - t5025 - 0.2700000000e2_dp*t4734*t392 & 5495 *t4736*t1300*rho*t5002*t149 - 0.3000000000e1_dp*t2009 & 5496 *t4748 - 0.2700000000e2_dp*t4738*t18*t1973*t1447 - t5008 - & 5497 0.3000000000e1_dp*t567*t151*t19*t4853 + t5035 - 0.1000000000e1_dp & 5498 *t2013*t2018*t5009 + 0.9000000000e1_dp*t2013*t2014*t4797 & 5499 - t4872 + 0.4500000000e1_dp*t2013*t2014*t4801 + t4878 + t5005 & 5500 + 0.4500000000e1_dp*t2009*t4744 5501 t6339 = t6308 + t6338 5502 t6344 = -t5043 - t5047 - t5050 - t5126 - t5284 - t5291 + t5294 - t5298 & 5503 - t5301 - 0.3333333336e0_dp*t5303 - t5308 - t5311 - t5314 5504 t6352 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 + 0.40e1_dp*t102 & 5505 *t327*t2057*t557 - t5456 + t5459 - t5462 + t5466 - t5468 5506 t6363 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.9600000000e2_dp & 5507 *t5496 + t5499 - t5503 - t5507 + t5509 - 0.2400000000e2_dp & 5508 *t5511 - 0.960e2_dp*t5115*t1060 - 0.240e2_dp*t2054*t3674 + 0.1200e3_dp & 5509 *t1054*t640*t3679 5510 t6367 = t5472 - t5474 - t5478 - t5523 + t5525 + 0.40e1_dp*t5528 + t5531 & 5511 + t5533 + t5535 + t5537 - 0.20e1_dp*t102*t105*t6363 + t5540 5512 t6370 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 5513 - 0.40e1_dp*t5565 + t5568 + t5572 + t5574 5514 t6373 = t5579 - t5581 - 0.40e1_dp*t112*t2058 - t5585 + t5590 - t5593 & 5515 - t5595 + t5597 - t5600 - t5602 + t5604 + t5607 + t5610 5516 t6375 = t6352 + t6367 + t6370 + t6373 5517 t6380 = -t5317 - t5320 + t5323 - t5326 - t5329 - 0.3333333336e0_dp*t83 & 5518 *t597*t2061 - 0.3333333336e0_dp*t83*t84*t6375 + t5333 - t5335 & 5519 - t5338 - t5342 - 0.1666666668e0_dp*t5347 - t5351 5520 t6389 = -t5354 - t5357 - 0.3333333336e0_dp*t83*t45*t2139*t561 & 5521 - t5360 - t6170 - t6173 - 0.3333333336e0_dp*t6175 - t6179 - 0.1666666668e0_dp & 5522 *t6181 - t6185 + t6189 - t6192 - 0.3333333336e0_dp*t6194 5523 t6400 = t2061*t561 5524 t6415 = -t5363 + t5367 - t5370 + 0.1111111112e0_dp*t5373 - 0.5555555557e-1_dp & 5525 *t5376 + 0.1666666667e0_dp*t5379 - t5383 - t5386 - t5389 + & 5526 0.1200000000e2_dp*t658*t2031*t673*t17 + 0.3333333334e0_dp*t170 & 5527 *t27*t6291*t172 - t5397 5528 t6428 = t5635 - t5638 + t5641 + 0.2250000000e1_dp*t5643 - t5647 - 0.1500000000e1_dp & 5529 *t151*t50*t6375 - t5650 + t5653 - t5657 - t5660 & 5530 + t5663 - t5666 5531 t6433 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 5532 + t5695 + 0.2250000000e1_dp*t400*t19*t2061*t561 + t5698 - & 5533 t5701 5534 t6442 = t5400 + 0.1666666667e0_dp*t5402 - t5406 + 0.1666666667e0_dp*t165 & 5535 *t56*t2131*t561 + 0.1666666667e0_dp*t165*t679*t2061 + & 5536 (2*t147*t149*(t6428 + t6433)) - t5409 - t5412 - t5415 + & 5537 t5418 + 0.1800000000e2_dp*t658*t575*t2074 + 0.1800000000e2_dp*t5421 5538 t6451 = -t5426 + t5429 - 0.2222222223e0_dp*t5432 + t5436 + 0.1620000000e3_dp & 5539 *t4995*t6267*t1974 + 0.1666666667e0_dp*t165*t2088*t649 & 5540 + t5619 + t5622 - t5625 - t5628 + t5631 + t5716 5541 t6461 = t5719 - t5722 - 0.8333333335e-1_dp*t5724 + 0.1200000000e2_dp* & 5542 t658*t6256*t2077 - 0.3240000000e3_dp*t4994*t6247*t4772*t2082 & 5543 + t5728 + t5731 - t5734 - t5738 + t5741 + 0.1666666667e0_dp*t5745 & 5544 - t5749 5545 t6479 = -t5752 + 0.1666666667e0_dp*t445*t2042*rho*t668 - t5756 & 5546 - 0.3600000000e2_dp*t2081*t575*t673*t237 + 0.1800000000e2_dp* & 5547 t658*t6263*t161 + t5760 + t5767 + t5770 - 0.7200000000e2_dp*t2081 & 5548 *t575*t161*t1447 + t5773 + t5776 + t5780 5549 t6490 = -t5783 - 0.3600000000e2_dp*t2081*t4764*t2082 - 0.2400000000e2_dp & 5550 *t2081*t6252*t2077 + t5786 + t5789 + t5792 - t5795 - 0.4444444445e0_dp & 5551 *t5797 - t6087 - 0.8333333335e-1_dp*t429*t166*t6400 & 5552 - t6090 + t6094 5553 t6499 = t6099 + 0.1666666667e0_dp*t165*t166*t6375 + t6102 + 0.1666666667e0_dp & 5554 *t165*t56*t6291*t140 + t6106 - t6109 + t6112 - t6116 & 5555 + t6119 - t6123 + t6126 - t6129 5556 t6509 = t4853*t65 5557 t6529 = 0.4999999999e0_dp*t5875 - 0.5000000001e0_dp*t5244*t2095 - 0.5000000001e0_dp & 5558 *t732*t6509 + t5880 + 0.1000000000e1_dp*t649*t471 & 5559 *t2099 - 0.1620000000e3_dp*t5247*t2992*t4733*t6249 - 0.5555555558e-1_dp & 5560 *t5885 + 0.8999999998e1_dp*t140*t2992*t4701*t59* & 5561 t62*t2027 - 0.5000000001e0_dp*t5888 - t5891 - 0.1800000000e2_dp*t2118 & 5562 *t6271 5563 t6539 = t5898 + t5902 - t5905 + 0.8999999998e1_dp*t5908 - t5913 + 0.2000000000e1_dp & 5564 *t2098*t2095*t561 - 0.5000000001e0_dp*t5918 - t5922 & 5565 + 0.3333333334e0_dp*t6283*t187*t177*t65 + t5925 - t5929 5566 t6554 = -t5932 - 0.5555555558e-1_dp*t5938 + 0.666666666e0_dp*t6283* & 5567 t722*t177*t65 - t5942 + 0.8999999998e1_dp*t2124*t59*t177* & 5568 t710 + 0.1000000001e1_dp*t5944 - 0.5000000001e0_dp*t2061*t177*t709 & 5569 + t5949 + t5952 + t5954 - t5958 5570 t6557 = t1447*t59 5571 t6569 = -t5960 - 0.5000000001e0_dp*t5237*t2095 + t5963 - 0.4500000000e1_dp & 5572 *t5256*t6557*t710 - 0.5555555558e-1_dp*t5964 - 0.1111111112e0_dp & 5573 *t5966 - t5971 - 0.1200000000e2_dp*t2118*t6253 - 0.5555555558e-1_dp & 5574 *t719*t2126 - t5973 + t5975 + 0.5999999999e1_dp*t2114*t6257 5575 t6583 = -t5977 - t5985 + t5994 - 0.5000000001e0_dp*t716*t6509 + t5996 & 5576 - t6000 + t6002 + 0.8999999998e1_dp*t6004 + 0.1000000000e1_dp*t2098 & 5577 *t4908*t237 - 0.1000000001e1_dp*t723*t6509 - 0.1800000000e2_dp & 5578 *t5228*t2117*t2028 5579 t6596 = t5247*t1141*t4733 5580 t6603 = -0.5555555558e-1_dp*t6006 - t6009 - t6017 - 0.5555555558e-1_dp & 5581 *t58*t6375*t71 + t6019 - 0.9000000007e1_dp*t5262*t6557*t710 & 5582 + 0.8999999998e1_dp*t708*t62*t6509 + 0.3333333334e0_dp*t6021 + & 5583 t6025 + 0.8099999996e2_dp*t6596*t6268 + 0.5399999998e2_dp*t6596* & 5584 t6260 + 0.8999999998e1_dp*t5229*t2104 5585 t6611 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 5586 - t5825 - t5828 - t5830 + t5833 5587 t6620 = t5835 + t5838 + t5841 - t5845 + t5848 - 0.1800000000e2_dp*t5850 & 5588 - t5854 + t5857 + t5861 - t5864 - 0.1800000000e2_dp*t473*t20 & 5589 *t2061*t561 + 0.8999999998e1_dp*t178*t62*t6375 5590 t6621 = t6611 + t6620 5591 t6630 = -0.3000000000e1_dp*t5256*t4904*t237 + 0.5999999999e1_dp*t5228 & 5592 *t2113*t2032 + t6621*t65 - t6031 - 0.4050000000e2_dp*t471 & 5593 *t187*t6557*t710 - t6033 - t6036 - t6040 + t6042 - 0.5000000001e0_dp & 5594 *t60*t2124*t709 - t6044 5595 t6640 = -t6047 - 0.5000000001e0_dp*t6049 - 0.5555555558e-1_dp*t192* & 5596 t68*t6621*t65 - 0.5000000001e0_dp*t6053 - t6056 - t6058 + 0.5850000000e2_dp & 5597 *t6060 + t6063 + 0.3333333334e0_dp*t6066 + t6074 - 0.1000000001e1_dp & 5598 *t6075 - t6078 5599 t6658 = 0.1800000000e2_dp*t658*t2035*t673 - 0.8333333335e-1_dp*t429 & 5600 *t2088*t593 + t6132 + 0.3333333334e0_dp*t55*t57*(t6529 + & 5601 t6539 + t6554 + t6569 + t6583 + t6603 + t6630 + t6640) - t6136 - 0.8333333335e-1_dp & 5602 *t6138 + 0.1800000000e2_dp*t6141 + 0.1080000000e3_dp* & 5603 t4995*t4743*t2077 + 0.1080000000e3_dp*t657*t1142*t4760*t2082 & 5604 + 0.1666666667e0_dp*t6144 + t6155 - t6158 + (2*t6160) 5605 t6665 = -0.3333333336e0_dp*t83*t45*t6339*t140 - t6198 - 0.3333333336e0_dp & 5606 *t83*t2050*t649 - t6201 + t6207 - t6210 - t6213 + t6216 & 5607 + t6219 - 0.1666666668e0_dp*t289*t2050*t593 - 0.1666666668e0_dp & 5608 *t289*t84*t6400 + t6222 - 0.2222222224e0_dp*t144*t46*(t6415 & 5609 + t6442 + t6451 + t6461 + t6479 + t6490 + t6499 + t6658) 5610 t6669 = -t4704 - t4707 - t4732 + t4793 - t4796 - t4800 - t4804 - t4861 & 5611 - 0.6666666672e0_dp*t4864 - t4869 - t4812 - t4857 - t4789 - t4808 & 5612 - 0.6666666672e0_dp*t217*t46*t2046*t561 - 0.4444444448e0_dp* & 5613 t43*t46*t6339 + t8*(t6344 + t6380 + t6389 + t6665) 5614 e_ndrho_ndrho_ndrho_spin(ii) = e_ndrho_ndrho_ndrho_spin(ii) + t6669*sx 5615 END IF 5616 END IF 5617 END DO 5618!$OMP END DO 5619 5620 END SUBROUTINE xb88_lr_adiabatic_lsd_calc 5621 5622END MODULE xc_xbecke88_lr_adiabatic 5623