|
CP2K 2.4 (Revision 12889)
|
00001 !-----------------------------------------------------------------------------! 00002 ! CP2K: A general program to perform molecular dynamics simulations ! 00003 ! Copyright (C) 2000 - 2013 CP2K developers group ! 00004 !-----------------------------------------------------------------------------! 00005 00006 ! ***************************************************************************** 00018 MODULE xc_xbecke88_lr_adiabatic 00019 USE bibliography, ONLY: Becke1988,& 00020 cite_reference 00021 USE cp_array_r_utils, ONLY: cp_3d_r_p_type 00022 USE erf_fn, ONLY: erf 00023 USE f77_blas 00024 USE input_section_types, ONLY: section_vals_type,& 00025 section_vals_val_get 00026 USE kinds, ONLY: dp 00027 USE mathconstants, ONLY: pi,& 00028 rootpi 00029 USE timings, ONLY: timeset,& 00030 timestop 00031 USE xc_derivative_set_types, ONLY: xc_derivative_set_type,& 00032 xc_dset_get_derivative 00033 USE xc_derivative_types, ONLY: xc_derivative_get,& 00034 xc_derivative_type 00035 USE xc_rho_cflags_types, ONLY: xc_rho_cflags_type 00036 USE xc_rho_set_types, ONLY: xc_rho_set_get,& 00037 xc_rho_set_type 00038 #include "cp_common_uses.h" 00039 00040 IMPLICIT NONE 00041 PRIVATE 00042 00043 LOGICAL, PRIVATE, PARAMETER :: debug_this_module=.TRUE. 00044 CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'xc_xbecke88_lr_adiabatic' 00045 REAL(kind=dp), PARAMETER :: beta=0.0042_dp 00046 00047 PUBLIC :: xb88_lr_adiabatic_lda_info, xb88_lr_adiabatic_lsd_info, & 00048 xb88_lr_adiabatic_lda_eval, xb88_lr_adiabatic_lsd_eval 00049 CONTAINS 00050 00051 ! ***************************************************************************** 00063 SUBROUTINE xb88_lr_adiabatic_lda_info(reference,shortform, needs, max_deriv,error) 00064 CHARACTER(LEN=*), INTENT(OUT), OPTIONAL :: reference, shortform 00065 TYPE(xc_rho_cflags_type), 00066 INTENT(inout), OPTIONAL :: needs 00067 INTEGER, INTENT(out), OPTIONAL :: max_deriv 00068 TYPE(cp_error_type), INTENT(inout) :: error 00069 00070 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lda_info', 00071 routineP = moduleN//':'//routineN 00072 00073 IF ( PRESENT ( reference ) ) THEN 00074 reference = "A. Becke, Phys. Rev. A 38, 3098 (1988) {LDA version}" 00075 END IF 00076 IF ( PRESENT ( shortform ) ) THEN 00077 shortform = "Becke 1988 Exchange Functional (LDA)" 00078 END IF 00079 IF (PRESENT(needs)) THEN 00080 needs%rho=.TRUE. 00081 needs%norm_drho=.TRUE. 00082 END IF 00083 IF (PRESENT(max_deriv)) max_deriv=1 00084 00085 END SUBROUTINE xb88_lr_adiabatic_lda_info 00086 00087 ! ***************************************************************************** 00099 SUBROUTINE xb88_lr_adiabatic_lsd_info(reference,shortform, needs, max_deriv, error) 00100 CHARACTER(LEN=*), INTENT(OUT), OPTIONAL :: reference, shortform 00101 TYPE(xc_rho_cflags_type), 00102 INTENT(inout), OPTIONAL :: needs 00103 INTEGER, INTENT(out), OPTIONAL :: max_deriv 00104 TYPE(cp_error_type), INTENT(inout) :: error 00105 00106 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lsd_info', 00107 routineP = moduleN//':'//routineN 00108 00109 IF ( PRESENT ( reference ) ) THEN 00110 reference = "A. Becke, Phys. Rev. A 38, 3098 (1988) {LSD version}" 00111 END IF 00112 IF ( PRESENT ( shortform ) ) THEN 00113 shortform = "Becke 1988 Exchange Functional (LSD)" 00114 END IF 00115 IF (PRESENT(needs)) THEN 00116 needs%rho_spin=.TRUE. 00117 needs%rho_spin_1_3=.TRUE. 00118 needs%norm_drho_spin=.TRUE. 00119 END IF 00120 IF (PRESENT(max_deriv)) max_deriv=3 00121 00122 END SUBROUTINE xb88_lr_adiabatic_lsd_info 00123 00124 ! ***************************************************************************** 00139 SUBROUTINE xb88_lr_adiabatic_lda_eval(rho_set,deriv_set,grad_deriv,xb88_lr_ad_params,error) 00140 TYPE(xc_rho_set_type), POINTER :: rho_set 00141 TYPE(xc_derivative_set_type), POINTER :: deriv_set 00142 INTEGER, INTENT(in) :: grad_deriv 00143 TYPE(section_vals_type), POINTER :: xb88_lr_ad_params 00144 TYPE(cp_error_type), INTENT(inout) :: error 00145 00146 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lda_eval', 00147 routineP = moduleN//':'//routineN 00148 00149 INTEGER :: handle, npoints, stat 00150 INTEGER, DIMENSION(:, :), POINTER :: bo 00151 LOGICAL :: failure 00152 REAL(kind=dp) :: epsilon_rho, lambda, omega, sx 00153 REAL(kind=dp), DIMENSION(:, :, :), POINTER :: dummy, e_0, e_ndrho, 00154 e_ndrho_ndrho, e_ndrho_ndrho_ndrho, e_ndrho_ndrho_rho, e_ndrho_rho, 00155 e_ndrho_rho_rho, e_rho, e_rho_rho, e_rho_rho_rho, norm_drho, rho 00156 TYPE(xc_derivative_type), POINTER :: deriv 00157 00158 CALL timeset(routineN,handle) 00159 failure=.FALSE. 00160 NULLIFY(bo) 00161 00162 CALL section_vals_val_get(xb88_lr_ad_params,"SCALE_X",r_val=sx,error=error) 00163 CALL section_vals_val_get(xb88_lr_ad_params, "OMEGA",r_val=omega, error=error) 00164 CALL section_vals_val_get(xb88_lr_ad_params, "LAMBDA",r_val=lambda, error=error) 00165 00166 CALL cite_reference(Becke1988) 00167 00168 CPPrecondition(ASSOCIATED(rho_set),cp_failure_level,routineP,error,failure) 00169 CPPrecondition(rho_set%ref_count>0,cp_failure_level,routineP,error,failure) 00170 CPPrecondition(ASSOCIATED(deriv_set),cp_failure_level,routineP,error,failure) 00171 CPPrecondition(deriv_set%ref_count>0,cp_failure_level,routineP,error,failure) 00172 IF (.NOT. failure) THEN 00173 CALL xc_rho_set_get(rho_set,rho=rho,& 00174 norm_drho=norm_drho,local_bounds=bo,rho_cutoff=epsilon_rho,& 00175 error=error) 00176 npoints=(bo(2,1)-bo(1,1)+1)*(bo(2,2)-bo(1,2)+1)*(bo(2,3)-bo(1,3)+1) 00177 00178 ! meaningful default for the arrays we don't need: let us make compiler 00179 ! and debugger happy... 00180 IF (cp_debug) THEN 00181 ALLOCATE(dummy(bo(1,1):bo(2,1),bo(1,2):bo(2,2),bo(1,3):bo(2,3)),stat=stat) 00182 CPPostcondition(stat==0,cp_failure_level,routineP,error,failure) 00183 ELSE 00184 dummy=> rho 00185 END IF 00186 00187 e_0 => dummy 00188 e_rho => dummy 00189 e_ndrho => dummy 00190 e_rho_rho => dummy 00191 e_ndrho_rho => dummy 00192 e_ndrho_ndrho => dummy 00193 e_rho_rho_rho => dummy 00194 e_ndrho_rho_rho => dummy 00195 e_ndrho_ndrho_rho => dummy 00196 e_ndrho_ndrho_ndrho => dummy 00197 00198 IF (grad_deriv>=0) THEN 00199 deriv => xc_dset_get_derivative(deriv_set,"",& 00200 allocate_deriv=.TRUE., error=error) 00201 CALL xc_derivative_get(deriv,deriv_data=e_0,error=error) 00202 END IF 00203 IF (grad_deriv>=1.OR.grad_deriv==-1) THEN 00204 deriv => xc_dset_get_derivative(deriv_set,"(rho)",& 00205 allocate_deriv=.TRUE.,error=error) 00206 CALL xc_derivative_get(deriv,deriv_data=e_rho,error=error) 00207 deriv => xc_dset_get_derivative(deriv_set,"(norm_drho)",& 00208 allocate_deriv=.TRUE.,error=error) 00209 CALL xc_derivative_get(deriv,deriv_data=e_ndrho,error=error) 00210 END IF 00211 IF (grad_deriv>=2.OR.grad_deriv==-2) THEN 00212 deriv => xc_dset_get_derivative(deriv_set,"(rho)(rho)",& 00213 allocate_deriv=.TRUE.,error=error) 00214 CALL xc_derivative_get(deriv,deriv_data=e_rho_rho,error=error) 00215 deriv => xc_dset_get_derivative(deriv_set,"(norm_drho)(rho)",& 00216 allocate_deriv=.TRUE.,error=error) 00217 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_rho,error=error) 00218 deriv => xc_dset_get_derivative(deriv_set,& 00219 "(norm_drho)(norm_drho)", allocate_deriv=.TRUE.,error=error) 00220 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho,error=error) 00221 END IF 00222 IF (grad_deriv>=3.OR.grad_deriv==-3) THEN 00223 deriv => xc_dset_get_derivative(deriv_set,"(rho)(rho)(rho)",& 00224 allocate_deriv=.TRUE.,error=error) 00225 CALL xc_derivative_get(deriv,deriv_data=e_rho_rho_rho,error=error) 00226 deriv => xc_dset_get_derivative(deriv_set,& 00227 "(norm_drho)(rho)(rho)",allocate_deriv=.TRUE.,error=error) 00228 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_rho_rho,error=error) 00229 deriv => xc_dset_get_derivative(deriv_set,& 00230 "(norm_drho)(norm_drho)(rho)",allocate_deriv=.TRUE.,error=error) 00231 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho_rho,error=error) 00232 deriv => xc_dset_get_derivative(deriv_set,& 00233 "(norm_drho)(norm_drho)(norm_drho)", allocate_deriv=.TRUE.,& 00234 error=error) 00235 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho_ndrho,error=error) 00236 END IF 00237 IF (grad_deriv>3.OR.grad_deriv<-3) THEN 00238 CALL cp_unimplemented_error(fromWhere=routineP, & 00239 message="derivatives bigger than 3 not implemented", & 00240 error=error, error_level=cp_failure_level) 00241 END IF 00242 00243 !$omp parallel default(none) & 00244 !$omp shared(rho, norm_drho, e_0, e_rho, e_ndrho, e_rho_rho) & 00245 !$omp shared(e_ndrho_rho, e_ndrho_ndrho, e_rho_rho_rho) & 00246 !$omp shared(e_ndrho_rho_rho, e_ndrho_ndrho_rho) & 00247 !$omp shared(e_ndrho_ndrho_ndrho, grad_deriv, npoints) & 00248 !$omp shared(epsilon_rho, sx, omega, lambda, error) 00249 00250 CALL xb88_lr_adiabatic_lda_calc(rho=rho, norm_drho=norm_drho,& 00251 e_0=e_0,e_rho=e_rho,e_ndrho=e_ndrho,e_rho_rho=e_rho_rho,& 00252 e_ndrho_rho=e_ndrho_rho, e_ndrho_ndrho=e_ndrho_ndrho, & 00253 e_rho_rho_rho=e_rho_rho_rho, e_ndrho_rho_rho=e_ndrho_rho_rho,& 00254 e_ndrho_ndrho_rho=e_ndrho_ndrho_rho,& 00255 e_ndrho_ndrho_ndrho=e_ndrho_ndrho_ndrho,grad_deriv=grad_deriv,& 00256 npoints=npoints,epsilon_rho=epsilon_rho,& 00257 sx=sx,omega=omega,lambda=lambda,error=error) 00258 00259 !$omp end parallel 00260 00261 IF (cp_debug) THEN 00262 DEALLOCATE(dummy,stat=stat) 00263 CPPostconditionNoFail(stat==0,cp_warning_level,routineP,error) 00264 ELSE 00265 NULLIFY(dummy) 00266 END IF 00267 END IF 00268 CALL timestop(handle) 00269 END SUBROUTINE xb88_lr_adiabatic_lda_eval 00270 00271 ! ***************************************************************************** 00288 SUBROUTINE xb88_lr_adiabatic_lda_calc(rho, norm_drho,& 00289 e_0,e_rho,e_ndrho,e_rho_rho,e_ndrho_rho,& 00290 e_ndrho_ndrho, e_rho_rho_rho, e_ndrho_rho_rho, e_ndrho_ndrho_rho,& 00291 e_ndrho_ndrho_ndrho,grad_deriv,npoints,epsilon_rho, sx,& 00292 omega, lambda, error) 00293 INTEGER, INTENT(in) :: npoints, grad_deriv 00294 REAL(kind=dp), DIMENSION(1:npoints), INTENT(inout) :: 00295 e_ndrho_ndrho_ndrho, e_ndrho_ndrho_rho, e_ndrho_rho_rho, e_rho_rho_rho, 00296 e_ndrho_ndrho, e_ndrho_rho, e_rho_rho, e_ndrho, e_rho, e_0 00297 REAL(kind=dp), DIMENSION(1:npoints), 00298 INTENT(in) :: norm_drho, rho 00299 REAL(kind=dp), INTENT(in) :: epsilon_rho, sx, omega, lambda 00300 TYPE(cp_error_type), INTENT(inout) :: error 00301 00302 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lda_calc', 00303 routineP = moduleN//':'//routineN 00304 00305 INTEGER :: ii 00306 LOGICAL :: failure 00307 REAL(KIND=dp) :: Cx, epsilon_rho43, my_epsilon_rho, my_ndrho, my_rho, t1, 00308 t10, t1000, t1002, t1004, t1008, t1012, t1014, t1019, t102, t1021, 00309 t1024, t1026, t103, t1030, t1033, t1034, t1036, t104, t1040, t1044, 00310 t1046, t105, t1050, t1054, t1055, t1056, t1058, t1059, t106, t1060, 00311 t1063, t1064, t1067, t1068, t107, t1071, t1076, t1079, t108, t1082, 00312 t1085, t1089, t1093, t1097, t1099, t11, t1100, t1101, t1106, t1109, 00313 t1111, t1119, t112, t1122, t1125, t1126, t1129, t1134, t1137, t114, 00314 t1140, t1141, t1142, t1143, t115, t1150, t1157, t116, t1161, t1168, 00315 t1172, t1176, t1189, t119, t1191, t1192, t1193, t1194, t12, t1200, t1201 00316 REAL(KIND=dp) :: t1206, t1207, t1210, t1213, t1216, t122, t1221, t1224, 00317 t123, t1235, t1238, t1239, t1246, t1247, t1254, t126, t1264, t1268, 00318 t1275, t1283, t1284, t1288, t1292, t13, t130, t1300, t1301, t1302, 00319 t1309, t131, t1316, t132, t1320, t133, t1333, t1340, t1347, t1348, 00320 t136, t1360, t1367, t1368, t137, t1372, t1373, t1377, t1387, t1388, 00321 t1392, t1396, t1397, t14, t140, t1401, t1406, t1408, t1409, t141, 00322 t1410, t1411, t1413, t1417, t1420, t1425, t1426, t1429, t1436, t1438, 00323 t1439, t144, t1440, t1443, t1444, t1447, t145, t1451, t1455, t1459, 00324 t146, t1466, t147, t1470, t1471, t1476, t1479, t1482, t1483, t1485, 00325 t1489 00326 REAL(KIND=dp) :: t149, t1492, t1493, t1496, t1498, t15, t150, t1500, 00327 t1502, t1504, t1505, t1506, t1507, t1509, t151, t1510, t1512, t1513, 00328 t1515, t1517, t1518, t1519, t1523, t1525, t1528, t1530, t1531, t1535, 00329 t1536, t1541, t1543, t1545, t1546, t1547, t1549, t155, t1552, t1553, 00330 t1556, t1557, t156, t1560, t1563, t1564, t1565, t1568, t1570, t1571, 00331 t1574, t1575, t1577, t1579, t1581, t1582, t1584, t1586, t1588, t1589, 00332 t1591, t1592, t1594, t1596, t1597, t1598, t1599, t16, t160, t1601, 00333 t1602, t1603, t1605, t1607, t1608, t161, t1610, t1611, t1613, t1615, 00334 t1616, t1617, t1618, t1620, t1621, t1622, t1624, t1625, t1626, t1628 00335 REAL(KIND=dp) :: t1630, t1631, t1632, t1634, t1636, t1638, t164, t1640, 00336 t1642, t1644, t1645, t1647, t1649, t165, t1652, t1654, t1656, t1658, 00337 t166, t1660, t1662, t1664, t1667, t1669, t1671, t1675, t1677, t1679, 00338 t1680, t1681, t1684, t1685, t1688, t1689, t1693, t1694, t1696, t1699, 00339 t17, t170, t1700, t1702, t1703, t1705, t1706, t1708, t1709, t171, 00340 t1712, t1714, t1715, t1717, t1718, t1719, t172, t1720, t1722, t1724, 00341 t1726, t1728, t1730, t1731, t1735, t1737, t1740, t1741, t1743, t1745, 00342 t1748, t1752, t1754, t1755, t1757, t1758, t176, t1760, t1762, t1763, 00343 t1765, t1766, t1768, t1769, t177, t1773, t1774, t1776, t1777, t1779 00344 REAL(KIND=dp) :: t178, t1782, t1784, t1785, t1787, t1789, t1790, t1794, 00345 t1795, t1797, t18, t1800, t1801, t1804, t1807, t1810, t1811, t1814, 00346 t1817, t182, t1821, t1822, t1824, t1825, t1828, t1829, t183, t1832, 00347 t1835, t1836, t1837, t1838, t1842, t1843, t1849, t1852, t1854, t1858, 00348 t1861, t1864, t1865, t1868, t187, t1871, t1874, t1875, t1878, t1881, 00349 t1884, t1885, t1886, t189, t1891, t1892, t1895, t1898, t19, t1901, 00350 t1902, t1905, t1908, t1912, t1914, t1917, t192, t1920, t1923, t1924, 00351 t1925, t1928, t1932, t1938, t1939, t194, t1940, t1943, t1946, t195, 00352 t1952, t1954, t1958, t196, t1961, t1962, t1965, t1966, t1969, t1971 00353 REAL(KIND=dp) :: t1972, t1973, t1974, t1975, t1977, t1980, t1981, t1984, 00354 t1987, t1988, t199, t1991, t1994, t1997, t20, t200, t2000, t2001, 00355 t2002, t2006, t2009, t2013, t2014, t2018, t2022, t2027, t2028, t203, 00356 t2031, t2032, t2035, t2042, t2046, t2050, t2054, t2057, t2058, t2061, 00357 t207, t2073, t2074, t2077, t2081, t2082, t2086, t2088, t2095, t2098, 00358 t2099, t2104, t2107, t2113, t2114, t2117, t2118, t2124, t2126, t2130, 00359 t2131, t2138, t2139, t214, t2143, t2147, t2160, t2169, t217, t218, 00360 t2182, t2183, t2187, t219, t2190, t2193, t2196, t2197, t22, t220, 00361 t2200, t2201, t2204, t2205, t221, t2220, t2226, t2227, t2230, t224 00362 REAL(KIND=dp) :: t225, t2257, t2261, t2264, t2268, t2272, t2274, t2276, 00363 t2279, t2280, t2281, t2282, t2285, t2287, t2292, t2295, t2296, t2299, 00364 t23, t230, t2300, t2304, t2307, t2308, t2311, t2312, t2319, t2326, 00365 t233, t234, t2351, t2368, t237, t2378, t2382, t2392, t24, t2404, t2418, 00366 t2424, t2437, t2439, t245, t2451, t2455, t2468, t2480, t249, t2492, 00367 t25, t250, t2537, t2552, t2565, t2569, t2576, t2585, t26, t260, t2611, 00368 t262, t2621, t2622, t2631, t2635, t2636, t264, t2645, t2655, t266, 00369 t267, t268, t27, t2707, t271, t2720, t2724, t2732, t274, t275, t2759, 00370 t2763, t2779, t278, t2783, t2808, t2816, t282, t2821, t2823 00371 REAL(KIND=dp) :: t283, t2833, t2843, t2853, t2869, t2873, t2877, t2885, 00372 t289, t290, t2935, t2937, t294, t295, t298, t299, t2992, t2994, t2998, 00373 t302, t3026, t3030, t306, t3069, t307, t3070, t308, t3085, t309, t3093, 00374 t3097, t3098, t31, t311, t3129, t313, t3141, t316, t317, t318, t3181, 00375 t321, t322, t3232, t3244, t3248, t326, t3262, t3264, t3268, t327, 00376 t3278, t328, t3288, t329, t3291, t3305, t3306, t3314, t332, t3329, 00377 t3339, t3344, t3347, t3352, t3353, t3356, t3357, t336, t3362, t3363, 00378 t3366, t3378, t3379, t3382, t339, t341, t342, t343, t3449, t3453, t347, 00379 t3472, t3491, t3494, t3497, t35, t350, t3501, t3505, t3507 00380 REAL(KIND=dp) :: t3512, t3513, t3514, t352, t3525, t3533, t3543, t3546, 00381 t3547, t3552, t3553, t356, t3561, t3569, t357, t3575, t3576, t3580, 00382 t3581, t36, t360, t3608, t3618, t362, t365, t366, t3668, t367, t3673, 00383 t3674, t3677, t3679, t368, t3682, t37, t371, t3711, t372, t3726, t375, 00384 t3750, t376, t3763, t379, t3794, t3796, t380, t3826, t3827, t383, t384, 00385 t3842, t3849, t3853, t3861, t3865, t3869, t387, t3871, t3875, t3892, 00386 t3918, t392, t3925, t393, t3933, t3939, t394, t3940, t3965, t3969, 00387 t3975, t3979, t398, t3985, t399, t4, t40, t400, t401, t4010, t4018, 00388 t4025, t4032, t405, t406, t4070, t4079, t41, t4101, t4108, t413 00389 REAL(KIND=dp) :: t4140, t4156, t417, t42, t4201, t4214, t4230, t424, 00390 t425, t4255, t4256, t4261, t4272, t428, t429, t4292, t43, t4317, t433, 00391 t4345, t4352, t437, t4378, t4392, t44, t4428, t444, t445, t446, t4466, 00392 t4498, t45, t450, t4505, t451, t4512, t4545, t455, t4553, t4575, t4585, 00393 t46, t4607, t462, t4627, t4657, t466, t4696, t47, t470, t4700, t4701, 00394 t4704, t4707, t4708, t471, t4713, t4714, t4717, t472, t4721, t4725, 00395 t4726, t4729, t473, t4732, t4733, t4734, t4736, t4738, t4739, t474, 00396 t4743, t4744, t4748, t4760, t4764, t4768, t4769, t4770, t4771, t4772, 00397 t4776, t478, t4782, t4786, t4789, t479, t4790, t4793, t4796 00398 REAL(KIND=dp) :: t4797, t48, t4800, t4801, t4804, t4808, t4812, t4817, 00399 t4820, t4829, t4830, t4833, t4834, t4837, t4838, t4849, t4850, t4853, 00400 t4857, t4861, t4864, t4869, t4872, t4874, t4878, t4881, t4884, t4887, 00401 t4889, t489, t4893, t4895, t4897, t4898, t49, t4901, t4904, t4905, 00402 t4907, t4908, t4909, t4911, t4915, t4917, t4918, t4920, t4922, t4925, 00403 t4929, t4932, t4935, t4940, t4941, t4943, t4945, t4946, t4951, t4952, 00404 t4955, t4958, t496, t498, t4994, t4995, t50, t500, t5001, t5002, t5005, 00405 t5008, t5009, t5011, t5013, t5016, t5019, t5022, t5025, t5028, t5029, 00406 t503, t5032, t5035, t5036, t5040, t5043, t5044, t5047, t5050 00407 REAL(KIND=dp) :: t5051, t5060, t5065, t5069, t5079, t508, t5083, t5087, 00408 t5106, t5108, t511, t5115, t5118, t512, t5122, t5123, t5126, t5139, 00409 t5143, t5147, t515, t516, t5163, t517, t5170, t5174, t520, t5226, 00410 t5228, t5229, t5237, t5244, t5247, t5251, t5256, t526, t5262, t527, 00411 t5270, t5271, t5276, t5280, t5281, t5284, t5291, t5294, t5295, t5298, 00412 t53, t530, t5301, t5303, t5305, t5308, t531, t5311, t5314, t5317, 00413 t5320, t5323, t5326, t5329, t5330, t5333, t5335, t5338, t5339, t534, 00414 t5342, t5343, t5345, t5347, t5351, t5354, t5357, t5360, t5363, t5367, 00415 t537, t5370, t5371, t5373, t5376, t5379, t5383, t5386, t5389, t5397 00416 REAL(KIND=dp) :: t5400, t5402, t5406, t5409, t541, t5412, t5415, t5418, 00417 t5421, t5423, t5426, t5429, t5430, t5432, t5436, t5440, t5443, t5446, 00418 t5449, t5451, t5454, t5456, t5459, t5460, t5462, t5466, t5468, t5469, 00419 t5472, t5474, t5478, t5480, t5482, t5484, t5487, t5489, t5492, t5494, 00420 t5496, t5499, t55, t550, t5503, t5507, t5509, t551, t5511, t5516, 00421 t5523, t5525, t5528, t5531, t5533, t5535, t5537, t5540, t5541, t5545, 00422 t5548, t5551, t5553, t5558, t5560, t5562, t5564, t5565, t5568, t557, 00423 t5572, t5574, t5575, t5579, t558, t5581, t5585, t5590, t5593, t5595, 00424 t5597, t56, t5600, t5602, t5604, t5607, t561, t5610, t5611, t5613 00425 REAL(KIND=dp) :: t5619, t5622, t5625, t5628, t5631, t5632, t5635, t5638, 00426 t5641, t5643, t5647, t5650, t5653, t5657, t566, t5660, t5663, t5666, 00427 t5667, t567, t5670, t5671, t5673, t5676, t5679, t5682, t5686, t5689, 00428 t569, t5692, t5695, t5696, t5698, t5699, t57, t5701, t5705, t5713, 00429 t5716, t5719, t5722, t5724, t5728, t5731, t5734, t5738, t5741, t5742, 00430 t5745, t5749, t575, t5752, t5756, t5760, t5767, t5770, t5773, t5776, 00431 t5780, t5783, t5786, t5789, t579, t5792, t5795, t5797, t58, t5801, 00432 t5804, t5807, t5810, t5813, t5816, t5819, t5822, t5825, t5828, t5830, 00433 t5831, t5833, t5835, t5838, t5841, t5845, t5848, t585, t5850, t5854 00434 REAL(KIND=dp) :: t5857, t5861, t5864, t5868, t5869, t5875, t5880, t5881, 00435 t5885, t5888, t589, t5891, t5898, t59, t590, t5902, t5905, t5908, 00436 t5911, t5913, t5918, t5922, t5925, t5926, t5929, t593, t5932, t5938, 00437 t5940, t5942, t5944, t5949, t5952, t5954, t5956, t5958, t5960, t5963, 00438 t5964, t5966, t597, t5971, t5973, t5975, t5977, t5978, t598, t5985, 00439 t5990, t5994, t5996, t6, t60, t6000, t6002, t6004, t6006, t6009, t6017, 00440 t6019, t6021, t6023, t6025, t6029, t6031, t6033, t6036, t6040, t6042, 00441 t6044, t6047, t6049, t605, t6052, t6053, t6056, t6058, t6060, t6063, 00442 t6066, t6074, t6075, t6078, t6079, t608, t6087, t609, t6090 00443 REAL(KIND=dp) :: t6091, t6094, t6099, t61, t6102, t6106, t6109, t6112, 00444 t6116, t6119, t6123, t6126, t6129, t6132, t6136, t6138, t614, t6141, 00445 t6144, t615, t6155, t6158, t6160, t6162, t6170, t6173, t6175, t6179, 00446 t6181, t6185, t6186, t6189, t6192, t6194, t6198, t62, t6201, t6207, 00447 t6210, t6213, t6216, t6219, t6222, t6223, t6227, t624, t6247, t6249, 00448 t6252, t6253, t6256, t6257, t6260, t6263, t6267, t6268, t627, t6271, 00449 t628, t6281, t6283, t6290, t6291, t63, t6308, t6338, t6339, t6344, 00450 t635, t6352, t6363, t6367, t637, t6370, t6373, t6375, t6380, t6389, 00451 t640, t6400, t6415, t6428, t6433, t6442, t645, t6451, t646, t6461, t6479 00452 REAL(KIND=dp) :: t649, t6490, t6499, t65, t650, t6509, t6529, t653, 00453 t6539, t6554, t6557, t6569, t657, t658, t6583, t6596, t66, t6603, 00454 t6611, t6620, t6621, t6630, t6640, t6658, t6665, t6669, t668, t67, 00455 t672, t673, t679, t68, t689, t69, t7, t70, t705, t707, t708, t709, t71, 00456 t710, t713, t716, t719, t722, t723, t728, t729, t732, t735, t739, t74, 00457 t747, t753, t754, t764, t765, t766, t769, t772, t773, t776, t777, t78, 00458 t782, t785, t786, t787, t79, t790, t792, t795, t796, t797, t8, t800, 00459 t801, t804, t815, t822, t826, t827, t83, t833, t84, t85, t851, t852, 00460 t855, t857, t859, t86, t862, t863, t864, t865, t866, t867, t87, t874 00461 REAL(KIND=dp) :: t877, t878, t88, t881, t882, t886, t889, t893, t894, 00462 t897, t9, t905, t906, t907, t914, t918, t92, t922, t923, t926, t929, 00463 t93, t930, t94, t940, t941, t942, t944, t946, t949, t95, t950, t953, 00464 t954, t955, t958, t959, t962, t963, t966, t969, t97, t972, t973, t974, 00465 t975, t976, t979, t98, t980, t983, t984, t987, t99, t991, t995, t997, xx 00466 00467 failure=.FALSE. 00468 my_epsilon_rho=epsilon_rho 00469 epsilon_rho43 = my_epsilon_rho**(4.0_dp/3.0_dp) 00470 Cx = 1.5_dp*(3.0_dp/4.0_dp/pi)**(1.0_dp/3.0_dp) 00471 00472 IF (.NOT. failure) THEN 00473 !$omp do 00474 DO ii=1,npoints 00475 !! scale densities with 0.5 because code comes from LSD 00476 my_rho=rho(ii) * 0.5_dp 00477 my_ndrho=norm_drho(ii) * 0.5_dp 00478 IF (my_rho>my_epsilon_rho) THEN 00479 IF( grad_deriv >=0 ) THEN 00480 t1 = my_rho ** (0.1e1_dp / 0.3e1_dp) 00481 xx = my_ndrho * MAX(1.0_dp/t1/my_rho,epsilon_rho43) 00482 t4 = lambda * my_rho 00483 t6 = my_ndrho ** 2 00484 t7 = beta * t6 00485 t8 = lambda ** 2 00486 t9 = t8 ** 2 00487 t10 = t9 ** 2 00488 t11 = 0.1e1_dp / t10 00489 t12 = my_rho ** 2 00490 t13 = t9 * t8 00491 t14 = 0.1e1_dp / t13 00492 t15 = t12 * t14 00493 t16 = t8 * lambda 00494 t17 = 0.1e1_dp / t16 00495 t18 = my_rho * t17 00496 t19 = t18 ** (0.1e1_dp / 0.3e1_dp) 00497 t20 = t19 ** 2 00498 t22 = 0.1e1_dp / t20 / t15 00499 t23 = t11 * t22 00500 t24 = beta * my_ndrho 00501 t25 = 0.1e1_dp / t9 00502 t26 = t19 * t18 00503 t27 = 0.1e1_dp / t26 00504 t31 = LOG(my_ndrho * t25 * t27 + SQRT((my_ndrho * t25 * t27) ** 0.2e1_dp + & 00505 0.1e1_dp)) 00506 t35 = 0.10e1_dp + 0.60e1_dp * t24 * t25 * t27 * t31 00507 t36 = 0.1e1_dp / t35 00508 t37 = t23 * t36 00509 t40 = 0.20e1_dp * Cx + 0.20e1_dp * t7 * t37 00510 t41 = SQRT(t40) 00511 t42 = t41 * t40 00512 t43 = t4 * t42 00513 t44 = rootpi 00514 t45 = 0.1e1_dp / t44 00515 t46 = omega * t45 00516 t47 = 0.1e1_dp / omega 00517 t48 = 0.1e1_dp / t41 00518 t49 = t47 * t48 00519 t50 = t44 * t19 00520 t53 = erf(0.3000000000e1_dp * t49 * t50) 00521 t55 = omega * t41 00522 t56 = 0.1e1_dp / t19 00523 t57 = t45 * t56 00524 t58 = omega ** 2 00525 t59 = 0.1e1_dp / t58 00526 t60 = 0.1e1_dp / t40 00527 t61 = t59 * t60 00528 t62 = pi * t20 00529 t63 = t61 * t62 00530 t65 = EXP(-0.8999999998e1_dp * t63) 00531 t66 = t58 * t40 00532 t67 = 0.1e1_dp / pi 00533 t68 = 0.1e1_dp / t20 00534 t69 = t67 * t68 00535 t70 = t65 - 0.10e1_dp 00536 t71 = t69 * t70 00537 t74 = t65 - 0.15e1_dp - 0.5555555558e-1_dp * t66 * t71 00538 t78 = t44 * t53 + 0.3333333334e0_dp * t55 * t57 * t74 00539 t79 = t46 * t78 00540 t83 = my_rho * t41 * omega 00541 t84 = t45 * t78 00542 t85 = t10 * lambda 00543 t86 = 0.1e1_dp / t85 00544 t87 = t86 * t22 00545 t88 = t87 * t36 00546 t92 = 0.1e1_dp / t10 / t9 00547 t93 = t7 * t92 00548 t94 = t12 * my_rho 00549 t95 = t94 * t86 00550 t97 = 0.1e1_dp / t20 / t95 00551 t98 = t97 * t36 00552 t99 = t98 * my_rho 00553 t102 = t7 * t11 00554 t103 = t35 ** 2 00555 t104 = 0.1e1_dp / t103 00556 t105 = t22 * t104 00557 t106 = t9 * lambda 00558 t107 = 0.1e1_dp / t106 00559 t108 = t107 * t27 00560 t112 = t24 * t11 00561 t114 = 0.1e1_dp / t19 / t15 00562 t115 = t114 * t31 00563 t116 = t115 * my_rho 00564 t119 = t24 * t25 00565 t122 = my_ndrho * t11 00566 t123 = t114 * my_rho 00567 t126 = -4 * my_ndrho * t107 * t27 + 4 * t122 * t123 00568 t130 = 1 + t6 * t11 * t22 00569 t131 = SQRT(t130) 00570 t132 = 0.1e1_dp / t131 00571 t133 = t27 * t126 * t132 00572 t136 = -0.240e2_dp * t24 * t108 * t31 + 0.240e2_dp * t112 * t116 + 0.60e1_dp & 00573 * t119 * t133 00574 t137 = t105 * t136 00575 t140 = -0.160e2_dp * t7 * t88 + 0.160e2_dp * t93 * t99 - 0.20e1_dp * t102 * & 00576 t137 00577 t141 = t84 * t140 00578 t144 = my_rho * t42 00579 t145 = SQRT(0.3141592654e1_dp) 00580 t146 = 0.1e1_dp / t145 00581 t147 = t44 * t146 00582 t149 = EXP(-0.9000000000e1_dp * t63) 00583 t150 = 0.1e1_dp / t42 00584 t151 = t47 * t150 00585 t155 = t49 * t44 00586 t156 = t68 * my_rho 00587 t160 = -0.1500000000e1_dp * t151 * t50 * t140 - 0.3000000000e1_dp * t155 & 00588 * t156 * t25 00589 t161 = t149 * t160 00590 t164 = omega * t48 00591 t165 = t164 * t45 00592 t166 = t56 * t74 00593 t170 = t55 * t45 00594 t171 = t27 * t74 00595 t172 = my_rho * t25 00596 t176 = t40 ** 2 00597 t177 = 0.1e1_dp / t176 00598 t178 = t59 * t177 00599 t182 = t61 * pi 00600 t183 = t56 * my_rho 00601 t187 = 0.8999999998e1_dp * t178 * t62 * t140 + 0.1800000000e2_dp * t182 * & 00602 t183 * t25 00603 t189 = t58 * t140 00604 t192 = t66 * t67 00605 t194 = 0.1e1_dp / t20 / t18 00606 t195 = t194 * t70 00607 t196 = t195 * t172 00608 t199 = t68 * t187 00609 t200 = t199 * t65 00610 t203 = t187 * t65 - 0.5555555558e-1_dp * t189 * t71 - 0.1111111112e0_dp * & 00611 t192 * t196 - 0.5555555558e-1_dp * t192 * t200 00612 t207 = (2 * t147 * t161) + 0.1666666667e0_dp * t165 * t166 * t140 & 00613 + 0.3333333334e0_dp * t170 * t171 * t172 + 0.3333333334e0_dp * t55 * t57 & 00614 * t203 00615 !! Multiply with 2.0 because Code comes from LSD 00616 00617 e_0(ii) = e_0(ii) + (-0.4444444448e0_dp * t43 * t79 + t8 * (-0.3333333336e0_dp * t83 * t141 & 00618 - 0.2222222224e0_dp * t144 * t46 * t207)) * sx * 2.0_dp 00619 END IF 00620 IF( grad_deriv >= 1 .OR. grad_deriv == -1 ) THEN 00621 t214 = lambda * t42 00622 t217 = t4 * t41 00623 t218 = t10 * t16 00624 t219 = 0.1e1_dp / t218 00625 t220 = t219 * t97 00626 t221 = t220 * t36 00627 t224 = t9 * t16 00628 t225 = 0.1e1_dp / t224 00629 t230 = t220 * t132 00630 t233 = -0.8000000000e1_dp * t24 * t225 * t114 * t31 - 0.8000000000e1_dp * & 00631 t7 * t230 00632 t234 = t105 * t233 00633 t237 = -0.5333333333e1_dp * t7 * t221 - 0.20e1_dp * t102 * t234 00634 t245 = t44 * t68 00635 t249 = -0.1500000000e1_dp * t151 * t50 * t237 + 0.1000000000e1_dp * t49 * & 00636 t245 * t17 00637 t250 = t149 * t249 00638 t260 = t178 * t62 * t237 00639 t262 = pi * t56 00640 t264 = t61 * t262 * t17 00641 t266 = 0.8999999998e1_dp * t260 - 0.5999999999e1_dp * t264 00642 t267 = t266 * t65 00643 t268 = t58 * t237 00644 t271 = t195 * t17 00645 t274 = t68 * t266 00646 t275 = t274 * t65 00647 t278 = t267 - 0.5555555558e-1_dp * t268 * t71 + 0.3703703705e-1_dp * t192 & 00648 * t271 - 0.5555555558e-1_dp * t192 * t275 00649 t282 = (2 * t147 * t250) + 0.1666666667e0_dp * t165 * t166 * t237 & 00650 - 0.1111111111e0_dp * t170 * t171 * t17 + 0.3333333334e0_dp * t55 * t57 & 00651 * t278 00652 t283 = t46 * t282 00653 t289 = my_rho * t48 * omega 00654 t290 = t140 * t237 00655 t294 = t45 * t282 00656 t295 = t294 * t140 00657 t298 = t92 * t97 00658 t299 = t298 * t36 00659 t302 = t7 * t86 00660 t306 = 0.1e1_dp / t10 / t224 00661 t307 = t7 * t306 00662 t308 = t12 ** 2 00663 t309 = t308 * t92 00664 t311 = 0.1e1_dp / t20 / t309 00665 t313 = t311 * t36 * my_rho 00666 t316 = t97 * t104 00667 t317 = my_rho * t233 00668 t318 = t316 * t317 00669 t321 = t7 * t219 00670 t322 = t316 * t136 00671 t326 = 0.1e1_dp / t103 / t35 00672 t327 = t22 * t326 00673 t328 = t136 * t233 00674 t329 = t327 * t328 00675 t332 = t11 * t114 00676 t336 = t298 * t132 00677 t339 = t24 * t219 00678 t341 = 0.1e1_dp / t19 / t95 00679 t342 = t341 * t31 00680 t343 = t342 * my_rho 00681 t347 = t311 * t132 * my_rho 00682 t350 = t24 * t225 00683 t352 = t114 * t126 * t132 00684 t356 = my_ndrho * t219 00685 t357 = t341 * my_rho 00686 t360 = 0.28e2_dp / 0.3e1_dp * t122 * t114 - 0.28e2_dp / 0.3e1_dp * t356 * t357 00687 t362 = t27 * t360 * t132 00688 t365 = t6 * my_ndrho 00689 t366 = beta * t365 00690 t367 = t308 * my_rho 00691 t368 = 0.1e1_dp / t367 00692 t371 = 0.1e1_dp / t131 / t130 00693 t372 = t368 * t126 * t371 00694 t375 = 0.5600000000e2_dp * t24 * t332 * t31 + 0.3200000000e2_dp * t7 * t336 & 00695 - 0.5600000000e2_dp * t339 * t343 - 0.3200000000e2_dp * t307 * t347 - & 00696 0.8000000000e1_dp * t350 * t352 + 0.60e1_dp * t119 * t362 + 0.8000000000e1_dp & 00697 * t366 * t372 00698 t376 = t105 * t375 00699 t379 = 0.5866666667e2_dp * t7 * t299 + 0.160e2_dp * t302 * t234 - 0.5866666667e2_dp & 00700 * t307 * t313 - 0.160e2_dp * t93 * t318 + 0.5333333333e1_dp * t321 & 00701 * t322 + 0.40e1_dp * t102 * t329 - 0.20e1_dp * t102 * t376 00702 t380 = t84 * t379 00703 t383 = t42 * omega 00704 t384 = t45 * t207 00705 t387 = t384 * t237 00706 t392 = 0.9000000000e1_dp * t260 - 0.6000000000e1_dp * t264 00707 t393 = t392 * t149 00708 t394 = t393 * t160 00709 t398 = 0.1e1_dp / t41 / t176 00710 t399 = t47 * t398 00711 t400 = t399 * t44 00712 t401 = t19 * t140 00713 t405 = t151 * t44 00714 t406 = t68 * t140 00715 t413 = t25 * t237 00716 t417 = t194 * my_rho 00717 t424 = 0.2250000000e1_dp * t400 * t401 * t237 - 0.5000000000e0_dp * t405 & 00718 * t406 * t17 - 0.1500000000e1_dp * t151 * t50 * t379 + 0.1500000000e1_dp & 00719 * t405 * t156 * t413 + 0.2000000000e1_dp * t155 * t417 * t225 - 0.3000000000e1_dp & 00720 * t49 * t245 * t25 00721 t425 = t149 * t424 00722 t428 = omega * t150 00723 t429 = t428 * t45 00724 t433 = t140 * t17 00725 t437 = t56 * t278 00726 t444 = t45 * t27 00727 t445 = t164 * t444 00728 t446 = t74 * my_rho 00729 t450 = t114 * t74 00730 t451 = my_rho * t225 00731 t455 = t27 * t278 00732 t462 = t56 * t203 00733 t466 = t27 * t203 00734 t470 = t176 * t40 00735 t471 = 0.1e1_dp / t470 00736 t472 = t59 * t471 00737 t473 = t472 * pi 00738 t474 = t20 * t140 00739 t478 = t178 * pi 00740 t479 = t56 * t140 00741 t489 = t27 * my_rho 00742 t496 = -0.1800000000e2_dp * t473 * t474 * t237 + 0.5999999999e1_dp * t478 & 00743 * t479 * t17 + 0.8999999998e1_dp * t178 * t62 * t379 - 0.1800000000e2_dp & 00744 * t478 * t183 * t413 - 0.6000000000e1_dp * t182 * t489 * t225 + 0.1800000000e2_dp & 00745 * t61 * t262 * t25 00746 t498 = t187 * t266 00747 t500 = t58 * t379 00748 t503 = t189 * t67 00749 t508 = t268 * t67 00750 t511 = t22 * t70 00751 t512 = t511 * t451 00752 t515 = t67 * t194 00753 t516 = t66 * t515 00754 t517 = t267 * t172 00755 t520 = t195 * t25 00756 t526 = t65 * t17 00757 t527 = t194 * t187 * t526 00758 t530 = t68 * t496 00759 t531 = t530 * t65 00760 t534 = t199 * t267 00761 t537 = t496 * t65 + t498 * t65 - 0.5555555558e-1_dp * t500 * t71 + 0.3703703705e-1_dp & 00762 * t503 * t271 - 0.5555555558e-1_dp * t503 * t275 - 0.1111111112e0_dp & 00763 * t508 * t196 + 0.1851851853e0_dp * t192 * t512 - 0.1111111112e0_dp & 00764 * t516 * t517 - 0.1111111112e0_dp * t192 * t520 - 0.5555555558e-1_dp & 00765 * t508 * t200 + 0.3703703705e-1_dp * t192 * t527 - 0.5555555558e-1_dp & 00766 * t192 * t531 - 0.5555555558e-1_dp * t192 * t534 00767 t541 = (2 * t147 * t394) + (2 * t147 * t425) - 0.8333333335e-1_dp & 00768 * t429 * t166 * t290 - 0.5555555557e-1_dp * t165 * t171 * t433 + & 00769 0.1666666667e0_dp * t165 * t437 * t140 + 0.1666666667e0_dp * t165 * t166 & 00770 * t379 + 0.1666666667e0_dp * t445 * t446 * t413 - 0.4444444445e0_dp * t170 & 00771 * t450 * t451 + 0.3333333334e0_dp * t170 * t455 * t172 + 0.3333333334e0_dp & 00772 * t170 * t171 * t25 + 0.1666666667e0_dp * t165 * t462 * t237 - & 00773 0.1111111111e0_dp * t170 * t466 * t17 + 0.3333333334e0_dp * t55 * t57 * & 00774 t537 00775 e_rho(ii) = e_rho(ii) + (-0.4444444448e0_dp * t214 * t79 - 0.6666666672e0_dp * t217 * t46 & 00776 * t78 * t237 - 0.4444444448e0_dp * t43 * t283 + t8 * (-0.3333333336e0_dp & 00777 * t55 * t141 - 0.1666666668e0_dp * t289 * t84 * t290 - 0.3333333336e0_dp & 00778 * t83 * t295 - 0.3333333336e0_dp * t83 * t380 - 0.2222222224e0_dp * t383 & 00779 * t384 - 0.3333333336e0_dp * t83 * t387 - 0.2222222224e0_dp * t144 * & 00780 t46 * t541)) * sx 00781 t550 = beta * t25 00782 t551 = t27 * t31 00783 t557 = 0.60e1_dp * t550 * t551 + 0.60e1_dp * t24 * t23 * t132 00784 t558 = t105 * t557 00785 t561 = 0.40e1_dp * t24 * t37 - 0.20e1_dp * t102 * t558 00786 t566 = pi * t146 00787 t567 = t566 * t149 00788 t569 = t151 * t19 * t561 00789 t575 = t20 * t561 00790 t579 = t58 * t561 00791 t585 = 0.8999999998e1_dp * t478 * t575 * t65 - 0.5555555558e-1_dp * t579 & 00792 * t71 - 0.5000000001e0_dp * t60 * t561 * t65 00793 t589 = -0.3000000000e1_dp * t567 * t569 + 0.1666666667e0_dp * t165 * t166 & 00794 * t561 + 0.3333333334e0_dp * t55 * t57 * t585 00795 t590 = t46 * t589 00796 t593 = t140 * t561 00797 t597 = t45 * t589 00798 t598 = t597 * t140 00799 t605 = t24 * t92 00800 t608 = my_rho * t557 00801 t609 = t316 * t608 00802 t614 = t136 * t557 00803 t615 = t327 * t614 00804 t624 = beta * t11 00805 t627 = t97 * t132 00806 t628 = t627 * my_rho 00807 t635 = -4 * t108 + 4 * t332 * my_rho 00808 t637 = t27 * t635 * t132 00809 t640 = 0.1e1_dp / t308 00810 t645 = -0.240e2_dp * beta * t107 * t551 - 0.240e2_dp * t24 * t87 * t132 + & 00811 0.240e2_dp * t624 * t116 + 0.240e2_dp * t605 * t628 + 0.60e1_dp * t550 * t133 & 00812 + 0.60e1_dp * t119 * t637 - 0.60e1_dp * t7 * t640 * t126 * t371 00813 t646 = t105 * t645 00814 t649 = -0.320e2_dp * t24 * t88 + 0.160e2_dp * t302 * t558 + 0.320e2_dp * t605 & 00815 * t99 - 0.160e2_dp * t93 * t609 - 0.40e1_dp * t112 * t137 + 0.40e1_dp * t102 & 00816 * t615 - 0.20e1_dp * t102 * t646 00817 t650 = t84 * t649 00818 t653 = t384 * t561 00819 t657 = t44 * pi * t146 00820 t658 = t657 * t178 00821 t668 = t25 * t561 00822 t672 = 0.2250000000e1_dp * t400 * t401 * t561 - 0.1500000000e1_dp * t151 & 00823 * t50 * t649 + 0.1500000000e1_dp * t405 * t156 * t668 00824 t673 = t149 * t672 00825 t679 = t56 * t585 00826 t689 = t27 * t585 00827 t705 = -0.1800000000e2_dp * t473 * t474 * t561 + 0.8999999998e1_dp * t178 & 00828 * t62 * t649 - 0.1800000000e2_dp * t478 * t183 * t668 00829 t707 = t187 * t59 00830 t708 = t707 * t177 00831 t709 = t561 * t65 00832 t710 = t62 * t709 00833 t713 = t58 * t649 00834 t716 = t140 * t177 00835 t719 = t579 * t67 00836 t722 = 0.1e1_dp / lambda 00837 t723 = t60 * t722 00838 t728 = t68 * t705 00839 t729 = t728 * t65 00840 t732 = t60 * t187 00841 t735 = t705 * t65 + 0.8999999998e1_dp * t708 * t710 - 0.5555555558e-1_dp & 00842 * t713 * t71 - 0.5000000001e0_dp * t716 * t709 - 0.1111111112e0_dp * t719 & 00843 * t196 - 0.1000000001e1_dp * t723 * t709 - 0.5555555558e-1_dp * t719 * & 00844 t200 - 0.5555555558e-1_dp * t192 * t729 - 0.5000000001e0_dp * t732 * t709 00845 t739 = 0.1800000000e2_dp * t658 * t575 * t161 + (2 * t147 * t673) & 00846 - 0.8333333335e-1_dp * t429 * t166 * t593 + 0.1666666667e0_dp * t165 * t679 & 00847 * t140 + 0.1666666667e0_dp * t165 * t166 * t649 + 0.1666666667e0_dp & 00848 * t445 * t446 * t668 + 0.3333333334e0_dp * t170 * t689 * t172 + 0.1666666667e0_dp & 00849 * t165 * t462 * t561 + 0.3333333334e0_dp * t55 * t57 * t735 00850 e_ndrho(ii) = e_ndrho(ii) + (-0.6666666672e0_dp * t217 * t46 * t78 * t561 - 0.4444444448e0_dp & 00851 * t43 * t590 + t8 * (-0.1666666668e0_dp * t289 * t84 * t593 - 0.3333333336e0_dp & 00852 * t83 * t598 - 0.3333333336e0_dp * t83 * t650 - 0.3333333336e0_dp & 00853 * t83 * t653 - 0.2222222224e0_dp * t144 * t46 * t739)) * sx 00854 END IF 00855 00856 IF( grad_deriv >= 2 .OR. grad_deriv == -2 ) THEN 00857 t747 = lambda * t41 * omega 00858 t753 = t4 * t48 00859 t754 = t237 ** 2 00860 t764 = 0.1e1_dp / t10 / t13 00861 t765 = t764 * t311 00862 t766 = t765 * t36 00863 t769 = t316 * t233 00864 t772 = t233 ** 2 00865 t773 = t327 * t772 00866 t776 = t10 * t8 00867 t777 = 0.1e1_dp / t776 00868 t782 = t765 * t132 00869 t785 = t6 ** 2 00870 t786 = beta * t785 00871 t787 = t10 ** 2 00872 t790 = t308 * t94 00873 t792 = 0.1e1_dp / t787 / t106 00874 t795 = 0.1e1_dp / t19 / t790 / t792 00875 t796 = 0.1e1_dp / t787 / t13 * t795 00876 t797 = t796 * t371 00877 t800 = 0.1866666667e2_dp * t24 * t777 * t341 * t31 + 0.4000000000e2_dp * & 00878 t7 * t782 - 0.1066666667e2_dp * t786 * t797 00879 t801 = t105 * t800 00880 t804 = 0.1955555555e2_dp * t7 * t766 + 0.1066666667e2_dp * t321 * t769 + & 00881 0.40e1_dp * t102 * t773 - 0.20e1_dp * t102 * t801 00882 t815 = t68 * t237 00883 t822 = t44 * t194 00884 t826 = 0.2250000000e1_dp * t399 * t50 * t754 - 0.1000000000e1_dp * t405 * & 00885 t815 * t17 - 0.1500000000e1_dp * t151 * t50 * t804 - 0.6666666667e0_dp & 00886 * t49 * t822 * t14 00887 t827 = t149 * t826 00888 t833 = t237 * t17 00889 t851 = 0.1800000000e2_dp * t472 * t62 * t754 00890 t852 = t56 * t237 00891 t855 = 0.1200000000e2_dp * t478 * t852 * t17 00892 t857 = t178 * t62 * t804 00893 t859 = pi * t27 00894 t862 = 0.2000000000e1_dp * t61 * t859 * t14 00895 t863 = -t851 + t855 + 0.8999999998e1_dp * t857 + t862 00896 t864 = t863 * t65 00897 t865 = t266 ** 2 00898 t866 = t865 * t65 00899 t867 = t58 * t804 00900 t874 = t511 * t14 00901 t877 = t194 * t266 00902 t878 = t877 * t526 00903 t881 = t68 * t863 00904 t882 = t881 * t65 00905 t886 = t68 * t865 * t65 00906 t889 = t864 + t866 - 0.5555555558e-1_dp * t867 * t71 + 0.7407407410e-1_dp & 00907 * t508 * t271 - 0.1111111112e0_dp * t508 * t275 - 0.6172839508e-1_dp * & 00908 t192 * t874 + 0.7407407410e-1_dp * t192 * t878 - 0.5555555558e-1_dp * t192 & 00909 * t882 - 0.5555555558e-1_dp * t192 * t886 00910 t893 = (2 * t147 * t393 * t249) + (2 * t147 * t827) - 0.8333333335e-1_dp & 00911 * t429 * t166 * t754 - 0.1111111111e0_dp * t165 * t171 * t833 & 00912 + 0.3333333334e0_dp * t165 * t437 * t237 + 0.1666666667e0_dp * t165 & 00913 * t166 * t804 + 0.1481481481e0_dp * t170 * t450 * t14 - 0.2222222222e0_dp & 00914 * t170 * t455 * t17 + 0.3333333334e0_dp * t55 * t57 * t889 00915 t894 = t46 * t893 00916 t897 = t78 * t140 00917 t905 = my_rho * t150 00918 t906 = t905 * omega 00919 t907 = t140 * t754 00920 t914 = t379 * t237 00921 t918 = t140 * t804 00922 t922 = t45 * t893 00923 t923 = t922 * t140 00924 t926 = t294 * t379 00925 t929 = t306 * t311 00926 t930 = t929 * t36 00927 t940 = 0.1e1_dp / t787 / t8 00928 t941 = t7 * t940 00929 t942 = t367 * t306 00930 t944 = 0.1e1_dp / t20 / t942 00931 t946 = t944 * t36 * my_rho 00932 t949 = t311 * t104 00933 t950 = t949 * t317 00934 t953 = t97 * t326 00935 t954 = my_rho * t772 00936 t955 = t953 * t954 00937 t958 = my_rho * t800 00938 t959 = t316 * t958 00939 t962 = t7 * t764 00940 t963 = t949 * t136 00941 t966 = t953 * t328 00942 t969 = t316 * t375 00943 t972 = t103 ** 2 00944 t973 = 0.1e1_dp / t972 00945 t974 = t22 * t973 00946 t975 = t136 * t772 00947 t976 = t974 * t975 00948 t979 = t375 * t233 00949 t980 = t327 * t979 00950 t983 = t136 * t800 00951 t984 = t327 * t983 00952 t987 = t219 * t341 00953 t991 = t929 * t132 00954 t995 = 0.1e1_dp / t787 / t224 00955 t997 = t995 * t795 * t371 00956 t1000 = t24 * t764 00957 t1002 = 0.1e1_dp / t19 / t309 00958 t1004 = t1002 * t31 * my_rho 00959 t1008 = t944 * t132 * my_rho 00960 t1012 = 0.1e1_dp / t787 / t776 00961 t1014 = t308 ** 2 00962 t1019 = 0.1e1_dp / t19 / t1014 * t787 * t10 00963 t1021 = t1019 * t371 * my_rho 00964 t1024 = t24 * t777 00965 t1026 = t341 * t126 * t132 00966 t1030 = t114 * t360 * t132 00967 t1033 = t308 * t12 00968 t1034 = 0.1e1_dp / t1033 00969 t1036 = t1034 * t126 * t371 00970 t1040 = my_ndrho * t764 00971 t1044 = -0.280e3_dp / 0.9e1_dp * t356 * t341 + 0.280e3_dp / 0.9e1_dp * t1040 * & 00972 t1002 * my_rho 00973 t1046 = t27 * t1044 * t132 00974 t1050 = t368 * t360 * t371 00975 t1054 = beta * t785 * my_ndrho 00976 t1055 = t1054 * t368 00977 t1056 = t130 ** 2 00978 t1058 = 0.1e1_dp / t131 / t1056 00979 t1059 = t126 * t1058 00980 t1060 = t1059 * t220 00981 t1063 = -0.1866666667e3_dp * t24 * t987 * t31 - 0.2240000000e3_dp * t7 * & 00982 t991 + 0.4266666667e2_dp * t786 * t997 + 0.1866666667e3_dp * t1000 * t1004 & 00983 + 0.2240000000e3_dp * t941 * t1008 - 0.4266666667e2_dp * t786 * t1012 & 00984 * t1021 + 0.1866666667e2_dp * t1024 * t1026 - 0.1600000000e2_dp * t350 & 00985 * t1030 - 0.5066666667e2_dp * t366 * t1036 + 0.60e1_dp * t119 * t1046 + & 00986 0.1600000000e2_dp * t366 * t1050 + 0.3200000000e2_dp * t1055 * t1060 00987 t1064 = t105 * t1063 00988 t1067 = -0.2737777778e3_dp * t7 * t930 - 0.1173333333e3_dp * t93 * t769 - & 00989 0.320e2_dp * t302 * t773 + 0.160e2_dp * t302 * t801 + 0.2737777778e3_dp * & 00990 t941 * t946 + 0.1173333333e3_dp * t307 * t950 + 0.320e2_dp * t93 * t955 & 00991 - 0.160e2_dp * t93 * t959 - 0.1955555555e2_dp * t962 * t963 - 0.2133333334e2_dp & 00992 * t321 * t966 + 0.1066666667e2_dp * t321 * t969 - 0.120e2_dp * t102 & 00993 * t976 + 0.80e1_dp * t102 * t980 + 0.40e1_dp * t102 * t984 - 0.20e1_dp * t102 & 00994 * t1064 00995 t1068 = t84 * t1067 00996 t1071 = t45 * t541 00997 t1076 = t384 * t754 00998 t1079 = t1071 * t237 00999 t1082 = t384 * t804 01000 t1085 = t379 * t17 01001 t1089 = t114 * t278 01002 t1093 = t25 * t804 01003 t1097 = t187 * t865 01004 t1099 = t97 * t70 01005 t1100 = my_rho * t777 01006 t1101 = t1099 * t1100 01007 t1106 = t500 * t67 01008 t1109 = t187 * t863 01009 t1111 = t496 * t266 01010 t1119 = t194 * t496 * t526 01011 t1122 = t199 * t866 01012 t1125 = t65 * t25 01013 t1126 = t877 * t1125 01014 t1129 = t867 * t67 01015 t1134 = t866 * t172 01016 t1137 = t268 * t515 01017 t1140 = t176 ** 2 01018 t1141 = 0.1e1_dp / t1140 01019 t1142 = t59 * t1141 01020 t1143 = t1142 * pi 01021 t1150 = t20 * t379 01022 t1157 = t27 * t140 01023 t1161 = t56 * t379 01024 t1168 = t25 * t754 01025 t1172 = t225 * t237 01026 t1176 = t56 * t25 01027 t1189 = 0.5400000000e2_dp * t1143 * t474 * t754 - 0.2400000000e2_dp * t473 & 01028 * t479 * t833 - 0.3600000000e2_dp * t473 * t1150 * t237 - 0.1800000000e2_dp & 01029 * t473 * t474 * t804 - 0.2000000000e1_dp * t478 * t1157 * t14 + & 01030 0.1200000000e2_dp * t478 * t1161 * t17 + 0.8999999998e1_dp * t178 * t62 & 01031 * t1067 + 0.3600000000e2_dp * t473 * t183 * t1168 + 0.1200000000e2_dp * & 01032 t478 * t489 * t1172 - 0.3600000000e2_dp * t478 * t1176 * t237 - 0.1800000000e2_dp & 01033 * t478 * t183 * t1093 + 0.8000000000e1_dp * t182 * t123 * & 01034 t777 - 0.1200000000e2_dp * t61 * t859 * t225 01035 t1191 = (t1097 * t65) - 0.4938271608e0_dp * t192 * t1101 - 0.6172839508e-1_dp & 01036 * t503 * t874 - 0.1111111112e0_dp * t1106 * t275 + (t1109 & 01037 * t65) + (2 * t1111 * t65) + 0.3703703706e0_dp * t508 * t512 + & 01038 0.7407407410e-1_dp * t503 * t878 + 0.7407407410e-1_dp * t192 * t1119 - 0.5555555558e-1_dp & 01039 * t192 * t1122 - 0.2222222224e0_dp * t192 * t1126 - 0.1111111112e0_dp & 01040 * t1129 * t196 - 0.5555555558e-1_dp * t503 * t882 - 0.1111111112e0_dp & 01041 * t516 * t1134 - 0.2222222224e0_dp * t1137 * t517 + (t1189 & 01042 * t65) 01043 t1192 = t67 * t22 01044 t1193 = t66 * t1192 01045 t1194 = t267 * t451 01046 t1200 = t65 * t14 01047 t1201 = t22 * t187 * t1200 01048 t1206 = t68 * t1189 01049 t1207 = t1206 * t65 01050 t1210 = t58 * t1067 01051 t1213 = t511 * t225 01052 t1216 = t864 * t172 01053 t1221 = t498 * t526 01054 t1224 = t530 * t267 01055 t1235 = t199 * t864 01056 t1238 = 0.3703703706e0_dp * t1193 * t1194 - 0.5555555558e-1_dp * t503 * t886 & 01057 - 0.6172839508e-1_dp * t192 * t1201 - 0.5555555558e-1_dp * t1129 * t200 & 01058 - 0.5555555558e-1_dp * t192 * t1207 - 0.5555555558e-1_dp * t1210 * t71 & 01059 + 0.3703703706e0_dp * t192 * t1213 - 0.1111111112e0_dp * t516 * t1216 & 01060 - 0.1111111112e0_dp * t508 * t534 + 0.7407407410e-1_dp * t516 * t1221 - & 01061 0.1111111112e0_dp * t192 * t1224 + 0.7407407410e-1_dp * t508 * t527 + 0.7407407410e-1_dp & 01062 * t1106 * t271 - 0.1111111112e0_dp * t508 * t531 - 0.2222222224e0_dp & 01063 * t508 * t520 - 0.5555555558e-1_dp * t192 * t1235 01064 t1239 = t1191 + t1238 01065 t1246 = t428 * t444 01066 t1247 = t74 * t140 01067 t1254 = t27 * t889 01068 t1264 = t27 * t537 01069 t1268 = t341 * t74 01070 t1275 = t56 * t889 01071 t1283 = -t851 + t855 + 0.9000000000e1_dp * t857 + t862 01072 t1284 = t1283 * t149 01073 t1288 = -0.1111111111e0_dp * t165 * t171 * t1085 - 0.8888888890e0_dp * t170 & 01074 * t1089 * t451 + 0.1666666667e0_dp * t445 * t446 * t1093 + 0.3333333334e0_dp & 01075 * t55 * t57 * t1239 - 0.8333333335e-1_dp * t429 * t462 * t754 & 01076 + 0.5555555556e-1_dp * t1246 * t1247 * t833 + (4 * t147 * t393 * & 01077 t424) + 0.3333333334e0_dp * t170 * t1254 * t172 - 0.1111111111e0_dp * t165 & 01078 * t466 * t833 + 0.3333333334e0_dp * t165 * t437 * t379 - 0.2222222222e0_dp & 01079 * t170 * t1264 * t17 + 0.1037037037e1_dp * t170 * t1268 * t1100 & 01080 + 0.1666666667e0_dp * t165 * t166 * t1067 + 0.1666666667e0_dp * t165 * & 01081 t1275 * t140 - 0.8333333335e-1_dp * t1246 * t446 * t1168 + (2 * & 01082 t147 * t1284 * t160) 01083 t1292 = t278 * my_rho 01084 t1300 = 0.1e1_dp / t41 / t470 01085 t1301 = t47 * t1300 01086 t1302 = t1301 * t44 01087 t1309 = t19 * t379 01088 t1316 = t194 * t140 01089 t1320 = t68 * t379 01090 t1333 = t68 * t25 01091 t1340 = t22 * my_rho 01092 t1347 = -0.5625000000e1_dp * t1302 * t401 * t754 + 0.1500000000e1_dp * t400 & 01093 * t406 * t833 + 0.4500000000e1_dp * t400 * t1309 * t237 + 0.2250000000e1_dp & 01094 * t400 * t401 * t804 + 0.3333333333e0_dp * t405 * t1316 * t14 & 01095 - 0.1000000000e1_dp * t405 * t1320 * t17 - 0.1500000000e1_dp * t151 * t50 & 01096 * t1067 - 0.2250000000e1_dp * t400 * t156 * t1168 - 0.2000000000e1_dp & 01097 * t405 * t417 * t1172 + 0.3000000000e1_dp * t405 * t1333 * t237 + 0.1500000000e1_dp & 01098 * t405 * t156 * t1093 - 0.3333333333e1_dp * t155 * t1340 & 01099 * t777 + 0.4000000000e1_dp * t49 * t822 * t225 01100 t1348 = t149 * t1347 01101 t1360 = t140 * t14 01102 t1367 = omega * t398 01103 t1368 = t1367 * t45 01104 t1372 = t45 * t114 01105 t1373 = t164 * t1372 01106 t1377 = t114 * t203 01107 t1387 = t392 ** 2 01108 t1388 = t1387 * t149 01109 t1392 = t56 * t537 01110 t1396 = 0.6666666668e0_dp * t170 * t455 * t25 + 0.3333333334e0_dp * t445 & 01111 * t1292 * t413 + 0.1666666667e0_dp * t165 * t462 * t804 + (2 * t147 & 01112 * t1348) - 0.1111111111e0_dp * t165 * t455 * t433 - 0.8333333335e-1_dp & 01113 * t429 * t166 * t918 + 0.3333333334e0_dp * t165 * t171 * t413 + 0.7407407409e-1_dp & 01114 * t165 * t450 * t1360 - 0.1666666667e0_dp * t429 * t437 & 01115 * t290 + 0.1250000000e0_dp * t1368 * t166 * t907 - 0.4444444445e0_dp * t1373 & 01116 * t446 * t1172 + 0.1481481481e0_dp * t170 * t1377 * t14 - 0.8888888890e0_dp & 01117 * t170 * t450 * t225 - 0.1666666667e0_dp * t429 * t166 * t914 & 01118 + (2 * t147 * t1388 * t160) + 0.3333333334e0_dp * t165 * t1392 & 01119 * t237 01120 t1397 = t1288 + t1396 01121 t1401 = -0.3333333336e0_dp * t165 * t897 * t237 - 0.6666666672e0_dp * t55 & 01122 * t295 - 0.6666666672e0_dp * t55 * t380 + 0.8333333340e-1_dp * t906 * t84 & 01123 * t907 - 0.3333333336e0_dp * t289 * t294 * t290 - 0.3333333336e0_dp * & 01124 t289 * t84 * t914 - 0.1666666668e0_dp * t289 * t84 * t918 - 0.3333333336e0_dp & 01125 * t83 * t923 - 0.6666666672e0_dp * t83 * t926 - 0.3333333336e0_dp & 01126 * t83 * t1068 - 0.4444444448e0_dp * t383 * t1071 - 0.6666666672e0_dp * & 01127 t55 * t387 - 0.1666666668e0_dp * t289 * t1076 - 0.6666666672e0_dp * t83 & 01128 * t1079 - 0.3333333336e0_dp * t83 * t1082 - 0.2222222224e0_dp * t144 * t46 & 01129 * t1397 01130 e_rho_rho(ii) = e_rho_rho(ii) + (-0.1333333334e1_dp * t747 * t84 * t237 - 0.8888888896e0_dp * t214 & 01131 * t283 - 0.3333333336e0_dp * t753 * t46 * t78 * t754 - 0.1333333334e1_dp & 01132 * t217 * t46 * t282 * t237 - 0.6666666672e0_dp * t217 * t46 * t78 * & 01133 t804 - 0.4444444448e0_dp * t43 * t894 + t8 * t1401) * sx 01134 t1406 = 0.6666666672e0_dp * t747 * t84 * t561 01135 t1408 = 0.4444444448e0_dp * t214 * t590 01136 t1409 = t4 * t164 01137 t1410 = t237 * t561 01138 t1411 = t84 * t1410 01139 t1413 = 0.3333333336e0_dp * t1409 * t1411 01140 t1417 = 0.6666666672e0_dp * t217 * t46 * t589 * t237 01141 t1420 = t316 * t557 01142 t1425 = t233 * t557 01143 t1426 = t327 * t1425 01144 t1429 = beta * t225 01145 t1436 = t1033 * t940 01146 t1438 = 0.1e1_dp / t19 / t1436 01147 t1439 = 0.1e1_dp / t787 / t16 * t1438 01148 t1440 = t1439 * t371 01149 t1443 = -0.8000000000e1_dp * t1429 * t115 - 0.2400000000e2_dp * t24 * t230 & 01150 + 0.8000000000e1_dp * t366 * t1440 01151 t1444 = t105 * t1443 01152 t1447 = -0.1066666667e2_dp * t24 * t221 + 0.5333333333e1_dp * t321 * t1420 & 01153 - 0.40e1_dp * t112 * t234 + 0.40e1_dp * t102 * t1426 - 0.20e1_dp * t102 * & 01154 t1444 01155 t1451 = 0.6666666672e0_dp * t217 * t46 * t78 * t1447 01156 t1455 = 0.6666666672e0_dp * t217 * t46 * t282 * t561 01157 t1459 = t19 * t237 01158 t1466 = t68 * t17 01159 t1470 = 0.2250000000e1_dp * t400 * t1459 * t561 - 0.1500000000e1_dp * t151 & 01160 * t50 * t1447 - 0.5000000000e0_dp * t405 * t1466 * t561 01161 t1471 = t149 * t1470 01162 t1476 = 0.8333333335e-1_dp * t429 * t166 * t1410 01163 t1479 = 0.1666666667e0_dp * t165 * t679 * t237 01164 t1482 = 0.1666666667e0_dp * t165 * t166 * t1447 01165 t1483 = t17 * t561 01166 t1485 = t165 * t171 * t1483 01167 t1489 = 0.1111111111e0_dp * t170 * t689 * t17 01168 t1492 = 0.1666666667e0_dp * t165 * t437 * t561 01169 t1493 = t20 * t237 01170 t1496 = 0.1800000000e2_dp * t473 * t1493 * t561 01171 t1498 = t178 * t62 * t1447 01172 t1500 = t56 * t17 01173 t1502 = t478 * t1500 * t561 01174 t1504 = -t1496 + 0.8999999998e1_dp * t1498 + 0.5999999999e1_dp * t1502 01175 t1505 = t1504 * t65 01176 t1506 = t266 * t59 01177 t1507 = t1506 * t177 01178 t1509 = 0.8999999998e1_dp * t1507 * t710 01179 t1510 = t58 * t1447 01180 t1512 = 0.5555555558e-1_dp * t1510 * t71 01181 t1513 = t237 * t177 01182 t1515 = 0.5000000001e0_dp * t1513 * t709 01183 t1517 = 0.3703703705e-1_dp * t719 * t271 01184 t1518 = 0.1e1_dp / my_rho 01185 t1519 = t60 * t1518 01186 t1523 = 0.5555555558e-1_dp * t719 * t275 01187 t1525 = t68 * t1504 * t65 01188 t1528 = t60 * t266 01189 t1530 = 0.5000000001e0_dp * t1528 * t709 01190 t1531 = t1505 + t1509 - t1512 - t1515 + t1517 + 0.3333333334e0_dp * t1519 & 01191 * t709 - t1523 - 0.5555555558e-1_dp * t192 * t1525 - t1530 01192 t1535 = 0.1800000000e2_dp * t658 * t575 * t250 + (2 * t147 * t1471) & 01193 - t1476 + t1479 + t1482 - 0.5555555555e-1_dp * t1485 - t1489 + t1492 & 01194 + 0.3333333334e0_dp * t55 * t57 * t1531 01195 t1536 = t46 * t1535 01196 t1541 = 0.1666666668e0_dp * t165 * t897 * t561 01197 t1543 = 0.3333333336e0_dp * t55 * t598 01198 t1545 = 0.3333333336e0_dp * t55 * t650 01199 t1546 = t905 * t46 01200 t1547 = t897 * t1410 01201 t1549 = 0.8333333340e-1_dp * t1546 * t1547 01202 t1552 = 0.1666666668e0_dp * t289 * t597 * t290 01203 t1553 = t649 * t237 01204 t1556 = 0.1666666668e0_dp * t289 * t84 * t1553 01205 t1557 = t140 * t1447 01206 t1560 = 0.1666666668e0_dp * t289 * t84 * t1557 01207 t1563 = 0.1666666668e0_dp * t289 * t294 * t593 01208 t1564 = t45 * t1535 01209 t1565 = t1564 * t140 01210 t1568 = t294 * t649 01211 t1570 = 0.3333333336e0_dp * t83 * t1568 01212 t1571 = t379 * t561 01213 t1574 = 0.1666666668e0_dp * t289 * t84 * t1571 01214 t1575 = t597 * t379 01215 t1577 = 0.3333333336e0_dp * t83 * t1575 01216 t1579 = 0.1173333333e3_dp * t24 * t299 01217 t1581 = 0.5866666667e2_dp * t93 * t1420 01218 t1582 = t24 * t86 01219 t1584 = 0.320e2_dp * t1582 * t234 01220 t1586 = 0.320e2_dp * t302 * t1426 01221 t1588 = 0.160e2_dp * t302 * t1444 01222 t1589 = t24 * t306 01223 t1591 = 0.1173333333e3_dp * t1589 * t313 01224 t1592 = t949 * t608 01225 t1594 = 0.5866666667e2_dp * t307 * t1592 01226 t1596 = 0.320e2_dp * t605 * t318 01227 t1597 = t7 * t298 01228 t1598 = t326 * my_rho 01229 t1599 = t1598 * t1425 01230 t1601 = 0.320e2_dp * t1597 * t1599 01231 t1602 = my_rho * t1443 01232 t1603 = t316 * t1602 01233 t1605 = 0.160e2_dp * t93 * t1603 01234 t1607 = 0.1066666667e2_dp * t339 * t322 01235 t1608 = t953 * t614 01236 t1610 = 0.1066666667e2_dp * t321 * t1608 01237 t1611 = t316 * t645 01238 t1613 = 0.5333333333e1_dp * t321 * t1611 01239 t1615 = 0.80e1_dp * t112 * t329 01240 t1616 = t7 * t23 01241 t1617 = t973 * t136 01242 t1618 = t1617 * t1425 01243 t1620 = 0.120e2_dp * t1616 * t1618 01244 t1621 = t645 * t233 01245 t1622 = t327 * t1621 01246 t1624 = 0.40e1_dp * t102 * t1622 01247 t1625 = t136 * t1443 01248 t1626 = t327 * t1625 01249 t1628 = 0.40e1_dp * t102 * t1626 01250 t1630 = 0.40e1_dp * t112 * t376 01251 t1631 = t375 * t557 01252 t1632 = t327 * t1631 01253 t1634 = 0.40e1_dp * t102 * t1632 01254 t1636 = 0.5600000000e2_dp * t624 * t115 01255 t1638 = 0.1200000000e3_dp * t24 * t336 01256 t1640 = 0.1e1_dp / t787 / t9 01257 t1642 = t1640 * t1438 * t371 01258 t1644 = 0.3200000000e2_dp * t366 * t1642 01259 t1645 = beta * t219 01260 t1647 = 0.5600000000e2_dp * t1645 * t343 01261 t1649 = 0.1200000000e3_dp * t1589 * t347 01262 t1652 = t795 * t371 * my_rho 01263 t1654 = 0.3200000000e2_dp * t366 * t995 * t1652 01264 t1656 = 0.8000000000e1_dp * t1429 * t352 01265 t1658 = t114 * t635 * t132 01266 t1660 = 0.8000000000e1_dp * t350 * t1658 01267 t1662 = 0.3200000000e2_dp * t7 * t372 01268 t1664 = 0.60e1_dp * t550 * t362 01269 t1667 = 0.28e2_dp / 0.3e1_dp * t332 - 0.28e2_dp / 0.3e1_dp * t987 * my_rho 01270 t1669 = t27 * t1667 * t132 01271 t1671 = 0.60e1_dp * t119 * t1669 01272 t1675 = 0.60e1_dp * t7 * t640 * t360 * t371 01273 t1677 = t368 * t635 * t371 01274 t1679 = 0.8000000000e1_dp * t366 * t1677 01275 t1680 = t786 * t368 01276 t1681 = t1059 * t23 01277 t1684 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 - t1660 & 01278 + t1662 + t1664 + t1671 - t1675 + t1679 - 0.2400000000e2_dp * t1680 & 01279 * t1681 01280 t1685 = t105 * t1684 01281 t1688 = t1579 - t1581 + t1584 - t1586 + t1588 - t1591 + t1594 - t1596 & 01282 + t1601 - t1605 + t1607 - t1610 + t1613 + t1615 - t1620 + t1624 & 01283 + t1628 - t1630 + t1634 - 0.20e1_dp * t102 * t1685 01284 t1689 = t84 * t1688 01285 t1693 = 0.3333333336e0_dp * t55 * t653 01286 t1694 = t45 * t739 01287 t1696 = 0.2222222224e0_dp * t383 * t1694 01288 t1699 = 0.1666666668e0_dp * t289 * t384 * t1410 01289 t1700 = t1694 * t237 01290 t1702 = 0.3333333336e0_dp * t83 * t1700 01291 t1703 = t384 * t1447 01292 t1705 = 0.3333333336e0_dp * t83 * t1703 01293 t1706 = t1071 * t561 01294 t1708 = 0.3333333336e0_dp * t83 * t1706 01295 t1709 = t187 * t1504 01296 t1712 = t266 * t561 * t65 01297 t1714 = 0.5000000001e0_dp * t732 * t1712 01298 t1715 = t713 * t67 01299 t1717 = 0.3703703705e-1_dp * t1715 * t271 01300 t1718 = t705 * t266 01301 t1719 = t1718 * t65 01302 t1720 = t140 * t266 01303 t1722 = t177 * t561 * t65 01304 t1724 = 0.5000000001e0_dp * t1720 * t1722 01305 t1726 = t194 * t705 * t526 01306 t1728 = 0.3703703705e-1_dp * t192 * t1726 01307 t1730 = 0.1111111112e0_dp * t719 * t520 01308 t1731 = t58 * t1688 01309 t1735 = 0.3703703705e-1_dp * t719 * t527 01310 t1737 = t722 * t561 * t65 01311 t1740 = t496 * t59 01312 t1741 = t1740 * t177 01313 t1743 = 0.8999999998e1_dp * t1741 * t710 01314 t1745 = t187 * t561 * t65 01315 t1748 = t140 * t1518 01316 t1752 = 0.1851851853e0_dp * t719 * t512 01317 t1754 = 0.5555555558e-1_dp * t1715 * t275 01318 t1755 = t1510 * t67 01319 t1757 = 0.1111111112e0_dp * t1755 * t196 01320 t1758 = t1709 * t65 - t1714 + t1717 + t1719 - t1724 + t1728 - t1730 & 01321 - 0.5555555558e-1_dp * t1731 * t71 + t1735 + 0.666666666e0_dp * t1519 * & 01322 t1737 + t1743 + 0.3333333334e0_dp * t1519 * t1745 + 0.3333333334e0_dp * & 01323 t1748 * t1722 + t1752 - t1754 - t1757 01324 t1760 = 0.5555555558e-1_dp * t719 * t534 01325 t1762 = 0.5555555558e-1_dp * t1755 * t200 01326 t1763 = t237 * t722 01327 t1765 = 0.1000000001e1_dp * t1763 * t1722 01328 t1766 = t237 * t187 01329 t1768 = 0.5000000001e0_dp * t1766 * t1722 01330 t1769 = t199 * t1505 01331 t1773 = 0.5555555558e-1_dp * t719 * t531 01332 t1774 = t60 * t496 01333 t1776 = 0.5000000001e0_dp * t1774 * t709 01334 t1777 = t379 * t177 01335 t1779 = 0.5000000001e0_dp * t1777 * t709 01336 t1782 = t728 * t267 01337 t1784 = 0.5555555558e-1_dp * t192 * t1782 01338 t1785 = t579 * t515 01339 t1787 = 0.1111111112e0_dp * t1785 * t517 01340 t1789 = 0.5555555558e-1_dp * t508 * t729 01341 t1790 = t1505 * t172 01342 t1794 = 0.1000000001e1_dp * t723 * t1712 01343 t1795 = t498 * t178 01344 t1797 = 0.8999999998e1_dp * t1795 * t710 01345 t1800 = 0.5400000000e2_dp * t1143 * t474 * t1410 01346 t1801 = t20 * t649 01347 t1804 = 0.1800000000e2_dp * t473 * t1801 * t237 01348 t1807 = 0.1800000000e2_dp * t473 * t474 * t1447 01349 t1810 = 0.1200000000e2_dp * t473 * t479 * t1483 01350 t1811 = t56 * t649 01351 t1814 = 0.5999999999e1_dp * t478 * t1811 * t17 01352 t1817 = 0.1800000000e2_dp * t473 * t1150 * t561 01353 t1821 = t472 * t262 01354 t1822 = t172 * t1410 01355 t1824 = 0.3600000000e2_dp * t1821 * t1822 01356 t1825 = t25 * t1447 01357 t1828 = 0.1800000000e2_dp * t478 * t183 * t1825 01358 t1829 = t225 * t561 01359 t1832 = 0.6000000000e1_dp * t478 * t489 * t1829 01360 t1835 = 0.1800000000e2_dp * t478 * t1176 * t561 01361 t1836 = t1800 - t1804 - t1807 - t1810 + t1814 - t1817 + 0.8999999998e1_dp & 01362 * t178 * t62 * t1688 + t1824 - t1828 + t1832 - t1835 01363 t1837 = t68 * t1836 01364 t1838 = t1837 * t65 01365 t1842 = -t1760 - t1762 - t1765 - t1768 - 0.5555555558e-1_dp * t192 * t1769 & 01366 - t1773 - t1776 - t1779 - 0.5555555558e-1_dp * t503 * t1525 - t1784 & 01367 - t1787 - t1789 - 0.1111111112e0_dp * t516 * t1790 - t1794 + t1797 & 01368 - 0.5555555558e-1_dp * t192 * t1838 + t1836 * t65 01369 t1843 = t1758 + t1842 01370 t1849 = 0.8333333335e-1_dp * t429 * t166 * t1571 01371 t1852 = 0.8333333335e-1_dp * t429 * t679 * t290 01372 t1854 = t165 * t466 * t1483 01373 t1858 = 0.1666666667e0_dp * t445 * t446 * t1825 01374 t1861 = 0.1800000000e2_dp * t658 * t575 * t425 01375 t1864 = 0.1666666667e0_dp * t445 * t1292 * t668 01376 t1865 = t413 * t561 01377 t1868 = 0.8333333335e-1_dp * t1246 * t446 * t1865 01378 t1871 = 2 * t147 * t393 * t672 01379 t1874 = 0.3333333334e0_dp * t170 * t689 * t25 01380 t1875 = t114 * t585 01381 t1878 = 0.4444444445e0_dp * t170 * t1875 * t451 01382 t1881 = 0.1666666667e0_dp * t165 * t437 * t649 01383 t1884 = -t1496 + 0.9000000000e1_dp * t1498 + 0.6000000000e1_dp * t1502 01384 t1885 = t1884 * t149 01385 t1886 = t1885 * t160 01386 t1891 = 0.5625000000e1_dp * t1302 * t401 * t1410 01387 t1892 = t19 * t649 01388 t1895 = 0.2250000000e1_dp * t400 * t1892 * t237 01389 t1898 = 0.2250000000e1_dp * t400 * t401 * t1447 01390 t1901 = 0.7500000000e0_dp * t400 * t406 * t1483 01391 t1902 = t68 * t649 01392 t1905 = 0.5000000000e0_dp * t405 * t1902 * t17 01393 t1908 = 0.2250000000e1_dp * t400 * t1309 * t561 01394 t1912 = t399 * t245 01395 t1914 = 0.2250000000e1_dp * t1912 * t1822 01396 t1917 = 0.1500000000e1_dp * t405 * t156 * t1825 01397 t1920 = 0.1000000000e1_dp * t405 * t417 * t1829 01398 t1923 = 0.1500000000e1_dp * t405 * t1333 * t561 01399 t1924 = -t1891 + t1895 + t1898 + t1901 - t1905 + t1908 - 0.1500000000e1_dp & 01400 * t151 * t50 * t1688 - t1914 + t1917 - t1920 + t1923 01401 t1925 = t149 * t1924 01402 t1928 = t56 * t1531 01403 t1932 = t27 * t1531 01404 t1938 = 0.1666666667e0_dp * t165 * t462 * t1447 01405 t1939 = 0.3333333334e0_dp * t55 * t57 * t1843 - t1849 - t1852 - 0.5555555555e-1_dp & 01406 * t1854 + t1858 + t1861 + t1864 - t1868 + t1871 + t1874 & 01407 - t1878 + t1881 + (2 * t147 * t1886) + (2 * t147 * t1925) & 01408 + 0.1666666667e0_dp * t165 * t1928 * t140 + 0.3333333334e0_dp * t170 * t1932 & 01409 * t172 + t1938 01410 t1940 = t27 * t735 01411 t1943 = 0.1111111111e0_dp * t170 * t1940 * t17 01412 t1946 = 0.1666666667e0_dp * t165 * t1392 * t561 01413 t1952 = 0.5555555557e-1_dp * t165 * t689 * t433 01414 t1954 = t1373 * t446 * t1829 01415 t1958 = 0.8333333335e-1_dp * t429 * t166 * t1553 01416 t1961 = 0.1666666667e0_dp * t165 * t679 * t379 01417 t1962 = t585 * my_rho 01418 t1965 = 0.1666666667e0_dp * t445 * t1962 * t413 01419 t1966 = t56 * t735 01420 t1969 = 0.1666666667e0_dp * t165 * t1966 * t237 01421 t1971 = t657 * t392 * t59 01422 t1972 = t177 * t20 01423 t1973 = t561 * t149 01424 t1974 = t1973 * t160 01425 t1975 = t1972 * t1974 01426 t1977 = 0.1800000000e2_dp * t1971 * t1975 01427 t1980 = 0.2777777778e-1_dp * t1246 * t1247 * t1483 01428 t1981 = t1367 * t57 01429 t1984 = 0.1250000000e0_dp * t1981 * t1247 * t1410 01430 t1987 = 0.8333333335e-1_dp * t429 * t437 * t593 01431 t1988 = t649 * t17 01432 t1991 = 0.5555555557e-1_dp * t165 * t171 * t1988 01433 t1994 = 0.8333333335e-1_dp * t429 * t166 * t1557 01434 t1997 = 0.1666666667e0_dp * t165 * t171 * t668 01435 t2000 = 0.8333333335e-1_dp * t429 * t462 * t1410 01436 t2001 = -t1943 + t1946 + 0.1666666667e0_dp * t165 * t166 * t1688 - t1952 & 01437 - 0.2222222222e0_dp * t1954 - t1958 + t1961 + t1965 + t1969 + t1977 & 01438 + t1980 + t1984 - t1987 - t1991 - t1994 + t1997 - t2000 01439 t2002 = t1939 + t2001 01440 t2006 = -t1541 - t1543 - t1545 + t1549 - t1552 - t1556 - t1560 - t1563 & 01441 - 0.3333333336e0_dp * t83 * t1565 - t1570 - t1574 - t1577 - 0.3333333336e0_dp & 01442 * t83 * t1689 - t1693 - t1696 - t1699 - t1702 - t1705 - & 01443 t1708 - 0.2222222224e0_dp * t144 * t46 * t2002 01444 e_ndrho_rho(ii) = e_ndrho_rho(ii) + (-t1406 - t1408 - t1413 - t1417 - t1451 - t1455 - 0.4444444448e0_dp & 01445 * t43 * t1536 + t8 * t2006) * sx 01446 t2009 = t566 * t393 01447 t2013 = t566 * t149 * t47 01448 t2014 = t398 * t19 01449 t2018 = t150 * t68 01450 t2022 = t19 * t1447 01451 t2027 = t65 * t237 01452 t2028 = t575 * t2027 01453 t2031 = t56 * t561 01454 t2032 = t2031 * t526 01455 t2035 = t20 * t1447 01456 t2042 = -0.1800000000e2_dp * t473 * t2028 + 0.5999999999e1_dp * t478 * t2032 & 01457 + 0.8999999998e1_dp * t478 * t2035 * t65 + t1509 - t1512 + t1517 & 01458 - t1523 + t1515 - 0.5000000001e0_dp * t60 * t1447 * t65 - t1530 01459 t2046 = -0.3000000000e1_dp * t2009 * t569 + 0.4500000000e1_dp * t2013 * t2014 & 01460 * t1410 - 0.1000000000e1_dp * t2013 * t2018 * t1483 - 0.3000000000e1_dp & 01461 * t567 * t151 * t2022 - t1476 - 0.5555555557e-1_dp * t1485 + t1492 & 01462 + t1482 + t1479 - t1489 + 0.3333333334e0_dp * t55 * t57 * t2042 01463 t2050 = t45 * t2046 01464 t2054 = t786 * t640 01465 t2057 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 + t1664 & 01466 + t1662 - t1660 + t1671 + t1679 - t1675 - 0.240e2_dp * t2054 * t1060 01467 t2058 = t105 * t2057 01468 t2061 = t1579 + t1584 - t1581 - t1586 + t1588 - t1591 - t1596 + t1594 & 01469 + t1601 - t1605 + t1607 + t1615 - t1630 - t1610 - t1620 + t1634 & 01470 + t1628 + t1613 + t1624 - 0.20e1_dp * t102 * t2058 01471 t2073 = -t1891 + t1901 + t1908 + t1898 + t1895 - t1905 - 0.1500000000e1_dp & 01472 * t151 * t50 * t2061 - t1914 - t1920 + t1923 + t1917 01473 t2074 = t149 * t2073 01474 t2077 = t161 * t17 01475 t2081 = t657 * t472 01476 t2082 = t161 * t237 01477 t2086 = -t1849 - t1852 - 0.5555555557e-1_dp * t1854 + t1858 + t1861 + & 01478 t1864 - t1868 + t1871 + t1874 + 0.3333333334e0_dp * t170 * t27 * t2042 & 01479 * t172 - t1878 + (2 * t147 * t2074) + t1881 + t1938 - t1943 & 01480 + 0.1200000000e2_dp * t658 * t2031 * t2077 + t1946 - 0.3600000000e2_dp * & 01481 t2081 * t575 * t2082 01482 t2088 = t56 * t2042 01483 t2095 = t1447 * t65 01484 t2098 = t140 * t471 01485 t2099 = t709 * t237 01486 t2104 = t62 * t2095 01487 t2107 = -t1714 + t1717 + t1719 - t1724 + t1728 - 0.5000000001e0_dp * t716 & 01488 * t2095 + 0.1000000000e1_dp * t2098 * t2099 - 0.1000000001e1_dp * t723 & 01489 * t2095 - t1730 + t1735 + t1743 + 0.8999999998e1_dp * t708 * t2104 & 01490 + t1752 - t1754 - t1757 - t1760 01491 t2113 = t177 * pi 01492 t2114 = t707 * t2113 01493 t2117 = t471 * pi 01494 t2118 = t707 * t2117 01495 t2124 = t1800 - t1810 - t1817 - t1807 - t1804 + t1814 + 0.8999999998e1_dp & 01496 * t178 * t62 * t2061 + t1824 + t1832 - t1835 - t1828 01497 t2126 = t68 * t2124 * t65 01498 t2130 = -0.5000000001e0_dp * t732 * t2095 - 0.5555555558e-1_dp * t58 * t2061 & 01499 * t71 - t1762 + t1765 + t1768 + 0.5999999999e1_dp * t2114 * t2032 & 01500 - t1773 - t1776 - 0.1800000000e2_dp * t2118 * t2028 - 0.5555555558e-1_dp & 01501 * t192 * t2126 - t1779 - t1784 - t1787 - t1789 - t1794 + t1797 + & 01502 t2124 * t65 01503 t2131 = t2107 + t2130 01504 t2138 = -t1952 - 0.2222222223e0_dp * t1954 - t1958 + t1961 + t1965 + t1969 & 01505 + t1977 + t1980 + 0.1666666667e0_dp * t165 * t2088 * t140 + 0.1800000000e2_dp & 01506 * t658 * t2035 * t161 + 0.3333333334e0_dp * t55 * t57 * t2131 & 01507 + t1984 + 0.1666666667e0_dp * t165 * t166 * t2061 - t1987 - t1991 & 01508 - t1994 + t1997 - t2000 01509 t2139 = t2086 + t2138 01510 t2143 = -t1541 + t1549 - t1563 - t1574 - t1560 - t1543 - t1552 - 0.3333333336e0_dp & 01511 * t83 * t2050 * t140 - t1577 - t1545 - t1556 - t1570 & 01512 - 0.3333333336e0_dp * t83 * t84 * t2061 - t1693 - t1699 - t1708 - t1705 & 01513 - t1696 - t1702 - 0.2222222224e0_dp * t144 * t46 * t2139 01514 e_ndrho_ndrho(ii) = e_ndrho_ndrho(ii) + (-t1406 - t1413 - t1455 - t1451 - t1408 - t1417 - 0.4444444448e0_dp & 01515 * t43 * t46 * t2046 + t8 * t2143) * sx 01516 t2147 = lambda * t48 * omega 01517 t2160 = t754 * t237 01518 t2169 = t237 * t804 01519 t2182 = 0.1e1_dp / t787 / lambda 01520 t2183 = t2182 * t944 01521 t2187 = t949 * t233 01522 t2190 = t953 * t772 01523 t2193 = t316 * t800 01524 t2196 = t772 * t233 01525 t2197 = t974 * t2196 01526 t2200 = t233 * t800 01527 t2201 = t327 * t2200 01528 t2204 = t10 * t106 01529 t2205 = 0.1e1_dp / t2204 01530 t2220 = beta * t785 * t6 01531 t2226 = -0.6222222223e2_dp * t24 * t2205 * t1002 * t31 - 0.2115555556e3_dp & 01532 * t7 * t2183 * t132 + 0.1315555556e3_dp * t786 / t787 / t85 * t1019 & 01533 * t371 - 0.4266666668e2_dp * t2220 / t1014 / t94 * t1058 01534 t2227 = t105 * t2226 01535 t2230 = -0.9125925923e2_dp * t7 * t2183 * t36 - 0.5866666667e2_dp * t962 & 01536 * t2187 - 0.3200000001e2_dp * t321 * t2190 + 0.1600000000e2_dp * t321 * & 01537 t2193 - 0.120e2_dp * t102 * t2197 + 0.120e2_dp * t102 * t2201 - 0.20e1_dp * & 01538 t102 * t2227 01539 t2257 = 0.5400000000e2_dp * t1142 * t62 * t2160 01540 t2261 = 0.3600000000e2_dp * t473 * t56 * t754 * t17 01541 t2264 = 0.5400000000e2_dp * t473 * t1493 * t804 01542 t2268 = 0.6000000000e1_dp * t478 * t27 * t237 * t14 01543 t2272 = 0.1800000000e2_dp * t478 * t56 * t804 * t17 01544 t2274 = t178 * t62 * t2230 01545 t2276 = pi * t114 01546 t2279 = 0.2666666667e1_dp * t61 * t2276 * t86 01547 t2280 = t2257 - t2261 - t2264 - t2268 + t2272 + 0.8999999998e1_dp * t2274 & 01548 - t2279 01549 t2281 = t2280 * t65 01550 t2282 = t881 * t267 01551 t2285 = t865 * t266 01552 t2287 = t68 * t2285 * t65 01553 t2292 = t863 * t266 01554 t2295 = t2285 * t65 01555 t2296 = t58 * t2230 01556 t2299 = t194 * t865 01557 t2300 = t2299 * t526 01558 t2304 = t68 * t2280 * t65 01559 t2307 = t22 * t266 01560 t2308 = t2307 * t1200 01561 t2311 = t194 * t863 01562 t2312 = t2311 * t526 01563 t2319 = t1099 * t86 01564 t2326 = -0.1851851853e0_dp * t508 * t874 + t2281 - 0.1666666668e0_dp * t192 & 01565 * t2282 - 0.5555555558e-1_dp * t192 * t2287 - 0.1666666668e0_dp * t508 & 01566 * t886 + (3 * t2292 * t65) + t2295 - 0.5555555558e-1_dp * t2296 & 01567 * t71 + 0.1111111112e0_dp * t192 * t2300 - 0.5555555558e-1_dp * t192 * & 01568 t2304 - 0.1851851853e0_dp * t192 * t2308 + 0.1111111112e0_dp * t192 * t2312 & 01569 + 0.2222222223e0_dp * t508 * t878 - 0.1666666668e0_dp * t508 * t882 & 01570 + 0.1646090535e0_dp * t192 * t2319 - 0.1666666668e0_dp * t1129 * t275 + & 01571 0.1111111112e0_dp * t1129 * t271 01572 t2351 = t44 * t22 01573 t2368 = t237 * t14 01574 t2378 = t804 * t17 01575 t2382 = t754 * t17 01576 t2392 = (2 * t147 * t1284 * t249) + (2 * t147 * t1388 * t249) & 01577 - 0.3456790122e0_dp * t170 * t1268 * t86 + 0.4444444444e0_dp * t170 * & 01578 t1089 * t14 + 0.1666666667e0_dp * t165 * t166 * t2230 + 0.5000000001e0_dp & 01579 * t165 * t437 * t804 + 0.3333333334e0_dp * t55 * t57 * t2326 + 0.2e1_dp & 01580 * (t147) * t149 * (-0.5625000000e1_dp * t1301 * t50 * t2160 + & 01581 0.2250000000e1_dp * t400 * t68 * t754 * t17 + 0.6750000000e1_dp * t400 * & 01582 t1459 * t804 + 0.1000000000e1_dp * t405 * t194 * t237 * t14 - 0.1500000000e1_dp & 01583 * t405 * t68 * t804 * t17 - 0.1500000000e1_dp * t151 * t50 * & 01584 t2230 + 0.1111111111e1_dp * t49 * t2351 * t86) - 0.3333333333e0_dp * t170 & 01585 * t1254 * t17 + (4 * t147 * t393 * t826) + 0.5000000001e0_dp * & 01586 t165 * t1275 * t237 + 0.2222222222e0_dp * t165 * t450 * t2368 - 0.3333333333e0_dp & 01587 * t165 * t455 * t833 - 0.2500000000e0_dp * t429 * t166 * t2169 & 01588 - 0.1666666667e0_dp * t165 * t171 * t2378 + 0.8333333333e-1_dp * t429 & 01589 * t171 * t2382 - 0.2500000000e0_dp * t429 * t437 * t754 + 0.1250000000e0_dp & 01590 * t1368 * t166 * t2160 01591 t2404 = t45 * t1397 01592 t2418 = t379 * t754 01593 t2424 = t1067 * t237 01594 t2437 = t7 * t792 01595 t2439 = 0.1e1_dp / t20 / t1436 01596 t2451 = t940 * t944 01597 t2455 = t97 * t973 01598 t2468 = t944 * t104 01599 t2480 = 0.1e1_dp / t19 / t942 01600 t2492 = t1014 * my_rho 01601 t2537 = t764 * t1002 01602 t2552 = t360 * t1058 01603 t2565 = t126 / t131 / t1056 / t130 01604 t2569 = -0.8088888890e3_dp * t24 * t2182 * t2480 * t31 * my_rho - 0.1518222222e4_dp & 01605 * t2437 * t2439 * t132 * my_rho + 0.6542222223e3_dp * t786 / t2204 & 01606 / t19 / t2492 * t218 * t371 * my_rho - 0.6222222223e2_dp * t24 * t2205 & 01607 * t1002 * t126 * t132 + 0.5600000000e2_dp * t1024 * t341 * t360 & 01608 * t132 + 0.3288888889e3_dp * t366 / t790 * t126 * t371 - 0.2400000000e2_dp & 01609 * t350 * t114 * t1044 * t132 - 0.1520000000e3_dp * t366 * t1034 * & 01610 t360 * t371 - 0.3626666667e3_dp * t1054 * t1034 * t1060 + 0.60e1_dp * t119 & 01611 * t27 * (0.3640e4_dp / 0.27e2_dp * t1040 * t1002 - 0.3640e4_dp / 0.27e2_dp & 01612 * my_ndrho * t2182 * t2480 * my_rho) * t132 + 0.8088888890e3_dp * t24 * t2537 & 01613 * t31 + 0.1518222222e4_dp * t7 * t2451 * t132 - 0.6542222223e3_dp * & 01614 t786 * t1012 * t1019 * t371 + 0.2400000000e2_dp * t366 * t368 * t1044 & 01615 * t371 + 0.9600000000e2_dp * t1055 * t2552 * t220 - 0.1173333333e3_dp & 01616 * t1055 * t1059 * t765 + 0.2133333333e3_dp * beta * t785 * t365 * t368 & 01617 * t2565 * t796 01618 t2576 = 0.40e1_dp * t102 * t327 * t136 * t2226 + 0.3519999999e3_dp * t93 & 01619 * t2190 - 0.1551407408e4_dp * t2437 * t2439 * t36 * my_rho + 0.960e2_dp * & 01620 t1597 * t1598 * t2200 + 0.120e2_dp * t102 * t327 * t375 * t800 + 0.1551407408e4_dp & 01621 * t7 * t2451 * t36 - 0.960e2_dp * t93 * t2455 * my_rho * t2196 & 01622 + 0.120e2_dp * t102 * t327 * t1063 * t233 + 0.1600000000e2_dp * t321 & 01623 * t316 * t1063 + 0.9125925923e2_dp * t7 * t2182 * t2468 * t136 + 0.1760000000e3_dp & 01624 * t307 * t949 * t958 - 0.360e2_dp * t1616 * t1617 * t2200 & 01625 - 0.20e1_dp * t102 * t105 * t2569 - 0.6400000001e2_dp * t321 * t953 * t979 01626 t2585 = 0.1e1_dp / t972 / t35 01627 t2611 = t311 * t326 01628 t2621 = -0.3200000001e2_dp * t321 * t953 * t983 - 0.160e2_dp * t93 * t316 & 01629 * my_rho * t2226 + 0.480e2_dp * t102 * t22 * t2585 * t136 * t2196 - 0.1760000000e3_dp & 01630 * t93 * t2193 + 0.960e2_dp * t302 * t2197 + 0.160e2_dp * t302 & 01631 * t2227 - 0.960e2_dp * t302 * t2201 - 0.8213333332e3_dp * t941 * t2468 & 01632 * t317 + 0.8213333332e3_dp * t307 * t2187 + 0.9600000002e2_dp * t321 * & 01633 t2455 * t975 - 0.360e2_dp * t102 * t974 * t375 * t772 - 0.3519999999e3_dp & 01634 * t307 * t2611 * t954 + 0.1173333334e3_dp * t962 * t2611 * t328 - & 01635 0.5866666667e2_dp * t962 * t949 * t375 01636 t2622 = t2576 + t2621 01637 t2631 = t282 * t140 01638 t2635 = -0.1000000001e1_dp * t55 * t923 - 0.3333333336e0_dp * t83 * t384 & 01639 * t2230 - 0.5000000004e0_dp * t165 * t897 * t804 - 0.6666666672e0_dp * t383 & 01640 * t2404 - 0.1000000001e1_dp * t83 * t1071 * t804 - 0.5000000004e0_dp & 01641 * t164 * t1076 - 0.1000000001e1_dp * t289 * t294 * t914 - 0.5000000004e0_dp & 01642 * t289 * t294 * t918 + 0.2500000002e0_dp * t906 * t84 * t2418 - & 01643 0.2000000001e1_dp * t55 * t1079 - 0.5000000004e0_dp * t289 * t84 * t2424 & 01644 + 0.2500000002e0_dp * t1546 * t897 * t2169 - 0.3333333336e0_dp * t83 * & 01645 t84 * t2622 + 0.2500000002e0_dp * t906 * t294 * t907 - 0.1000000001e1_dp & 01646 * t55 * t1082 - 0.1000000001e1_dp * t165 * t2631 * t237 01647 t2636 = t78 * t379 01648 t2645 = t379 * t804 01649 t2655 = t140 * t2230 01650 t2707 = t74 * t379 01651 t2720 = t56 * t1239 01652 t2724 = 0.5000000001e0_dp * t165 * t1392 * t804 - 0.1333333334e1_dp * t165 & 01653 * t450 * t1172 - 0.2666666667e1_dp * t170 * t1089 * t225 + 0.8333333333e-1_dp & 01654 * t429 * t466 * t2382 + 0.1000000000e1_dp * t170 * t1254 * t25 & 01655 + 0.1666666667e0_dp * t165 * t166 * t2622 + 0.1666666667e0_dp * t165 * & 01656 t56 * t2326 * t140 - 0.2500000000e0_dp * t429 * t166 * t2424 - 0.3333333333e0_dp & 01657 * t165 * t455 * t1085 - 0.1728395062e0_dp * t165 * t1268 * & 01658 t140 * t86 - 0.2500000000e0_dp * t1246 * t446 * t413 * t804 + 0.1666666666e0_dp & 01659 * t1246 * t2707 * t833 + 0.1250000000e0_dp * t1368 * t462 * t2160 & 01660 - 0.1666666667e0_dp * t165 * t466 * t2378 + (6 * t147 * t1283 & 01661 * t394) + 0.5000000001e0_dp * t165 * t2720 * t237 01662 t2732 = my_rho * t2205 01663 t2759 = t25 * t2230 01664 t2763 = t1367 * t444 01665 t2779 = t25 * t2160 01666 t2783 = -0.2500000000e0_dp * t429 * t1392 * t754 + (6 * t147 * t393 & 01667 * t1347) - 0.3456790123e1_dp * t170 * t1002 * t74 * t2732 + 0.5000000001e0_dp & 01668 * t165 * t1275 * t379 - 0.1333333334e1_dp * t170 * t114 * t889 & 01669 * t451 + 0.3333333334e0_dp * t170 * t27 * t2326 * t172 - 0.2500000000e0_dp & 01670 * t429 * t171 * t1168 + 0.3750000000e0_dp * t1981 * t1247 * t2169 & 01671 + 0.5000000001e0_dp * t165 * t171 * t1093 + 0.8333333334e-1_dp * t1246 & 01672 * t1247 * t2378 + 0.1666666667e0_dp * t445 * t446 * t2759 - 0.1250000000e0_dp & 01673 * t2763 * t1247 * t2382 + 0.5000000001e0_dp * t165 * t437 * t1067 & 01674 + 0.2222222222e0_dp * t165 * t1089 * t1360 + 0.1000000000e1_dp * t165 & 01675 * t455 * t413 - 0.2500000000e0_dp * t429 * t462 * t2169 + 0.1250000000e0_dp & 01676 * t2763 * t446 * t2779 01677 t2808 = t19 * t1067 01678 t2816 = t225 * t754 01679 t2821 = 0.1e1_dp / t41 / t1140 01680 t2823 = t47 * t2821 * t44 01681 t2833 = -0.1687500000e2_dp * t1302 * t401 * t2169 + 0.6750000000e1_dp * t400 & 01682 * t1309 * t804 + 0.4500000000e1_dp * t400 * t1320 * t833 - 0.1500000000e1_dp & 01683 * t400 * t1316 * t2368 + 0.1000000000e1_dp * t405 * t194 * t379 & 01684 * t14 + 0.8888888888e1_dp * t155 * t97 * my_rho * t2205 + 0.6750000000e1_dp & 01685 * t400 * t2808 * t237 - 0.1500000000e1_dp * t405 * t68 * t1067 & 01686 * t17 + 0.4500000000e1_dp * t400 * t417 * t2816 + 0.1968750000e2_dp * t2823 & 01687 * t401 * t2160 + 0.1500000000e1_dp * t405 * t156 * t2759 + 0.2250000000e1_dp & 01688 * t400 * t401 * t2230 01689 t2843 = t777 * t237 01690 t2853 = t172 * t2169 01691 t2869 = t225 * t804 01692 t2873 = t194 * t225 01693 t2877 = -0.1500000000e1_dp * t151 * t50 * t2622 + 0.5625000000e1_dp * t1302 & 01694 * t156 * t2779 - 0.6750000000e1_dp * t400 * t1333 * t754 + 0.4999999999e1_dp & 01695 * t405 * t1340 * t2843 - 0.1000000000e2_dp * t49 * t2351 * t777 & 01696 - 0.5625000000e1_dp * t1302 * t406 * t2382 - 0.6750000000e1_dp * t1912 & 01697 * t2853 - 0.5555555555e0_dp * t405 * t22 * t140 * t86 + 0.4500000000e1_dp & 01698 * t405 * t1333 * t804 + 0.2250000000e1_dp * t400 * t406 * t2378 - & 01699 0.1687500000e2_dp * t1302 * t1309 * t754 - 0.3000000000e1_dp * t405 * t417 & 01700 * t2869 - 0.6000000000e1_dp * t405 * t2873 * t237 01701 t2885 = t428 * t1372 01702 t2935 = -0.2500000000e0_dp * t429 * t166 * t2645 + (2 * t147 * t149 & 01703 * (t2833 + t2877)) + 0.5000000001e0_dp * t445 * t1292 * t1093 + 0.3333333333e0_dp & 01704 * t2885 * t446 * t2816 + 0.2222222222e0_dp * t165 * t1377 & 01705 * t2368 - 0.3333333333e0_dp * t165 * t1264 * t833 + 0.2e1_dp * (t147) & 01706 * (t2257 - t2261 - t2264 - t2268 + t2272 + 0.9000000000e1_dp * t2274 & 01707 - t2279) * (t149) * t160 - 0.3333333333e0_dp * t170 * t27 * t1239 & 01708 * t17 - 0.8333333335e-1_dp * t429 * t166 * t2655 + (6 * t147 & 01709 * t1284 * t424) + 0.2e1_dp * (t147) * t1387 * t392 * (t149) * & 01710 t160 - 0.2500000000e0_dp * t1246 * t1292 * t1168 - 0.1666666667e0_dp * & 01711 t165 * t1254 * t433 + (6 * t147 * t1388 * t424) + 0.1666666667e0_dp & 01712 * t165 * t462 * t2230 + 0.2222222222e0_dp * t165 * t450 * t379 * t14 & 01713 - 0.5000000001e0_dp * t429 * t437 * t914 01714 t2937 = t164 * t45 * t341 01715 t2992 = 0.1e1_dp / t1140 / t40 01716 t2994 = t59 * t2992 * pi 01717 t2998 = t27 * t225 01718 t3026 = 0.1620000000e3_dp * t1143 * t474 * t2169 + 0.1080000000e3_dp * t1143 & 01719 * t479 * t2382 - 0.2160000000e3_dp * t2994 * t474 * t2160 + 0.3600000000e2_dp & 01720 * t478 * t2998 * t237 + 0.1620000000e3_dp * t1143 * t1150 * & 01721 t754 + 0.2666666667e1_dp * t478 * t114 * t140 * t86 - 0.3600000000e2_dp & 01722 * t473 * t479 * t2378 + 0.1080000000e3_dp * t1821 * t2853 - 0.7200000000e2_dp & 01723 * t473 * t1161 * t833 - 0.1800000000e2_dp * t473 * t474 * t2230 & 01724 + 0.8999999998e1_dp * t178 * t62 * t2622 - 0.5400000000e2_dp * t478 * & 01725 t1176 * t804 01726 t3030 = t20 * t1067 01727 t3069 = -0.1800000000e2_dp * t478 * t183 * t2759 - 0.5400000000e2_dp * t473 & 01728 * t3030 * t237 - 0.6000000000e1_dp * t478 * t27 * t379 * t14 - 0.5400000000e2_dp & 01729 * t473 * t1150 * t804 + 0.1800000000e2_dp * t478 * t489 * & 01730 t2869 + 0.1080000000e3_dp * t473 * t1176 * t754 + 0.1800000000e2_dp * t478 & 01731 * t56 * t1067 * t17 - 0.3600000000e2_dp * t473 * t489 * t2816 - 0.1866666667e2_dp & 01732 * t182 * t357 * t2205 + 0.2400000000e2_dp * t61 * t2276 & 01733 * t777 - 0.2400000000e2_dp * t478 * t123 * t2843 - 0.1080000000e3_dp * & 01734 t1143 * t183 * t2779 + 0.1200000000e2_dp * t473 * t1157 * t2368 01735 t3070 = t3026 + t3069 01736 t3085 = t1210 * t67 01737 t3093 = (3 * t496 * t865 * t65) + (3 * t1189 * t266 * t65) & 01738 + 0.1111111112e1_dp * (t192) * (t2307) * (t65) * (t225) & 01739 + (t187 * t2280 * t65) + (3 * t496 * t863 * t65) + 0.2222222223e0_dp & 01740 * t516 * t1111 * t526 + (t187 * t2285 * t65) + (t3070 & 01741 * t65) - 0.1851851853e0_dp * t1193 * t498 * t1200 + 0.2222222223e0_dp & 01742 * t508 * t1119 + 0.1111111112e0_dp * (t192) * t194 * (t1189) & 01743 * t526 + 0.2222222223e0_dp * t1137 * t1221 - 0.1666666668e0_dp * t1129 & 01744 * t534 + 0.1111111112e0_dp * t3085 * t271 - 0.5555555558e-1_dp * (t192) & 01745 * (t199) * (t2281) - 0.1851851853e0_dp * t508 * t1201 01746 t3097 = t66 * t69 01747 t3098 = t1109 * t267 01748 t3129 = t2296 * t67 01749 t3141 = -0.3333333336e0_dp * t192 * t2299 * t1125 - 0.1666666668e0_dp * t3097 & 01750 * t3098 + 0.1111111112e0_dp * t503 * t2300 + 0.1111111112e0_dp * t1129 & 01751 * t527 - 0.1666666668e0_dp * t1129 * t531 - 0.5555555558e-1_dp * t192 & 01752 * t68 * t3070 * t65 + 0.1646090535e0_dp * t192 * t97 * t187 * t65 * & 01753 t86 + 0.5555555559e0_dp * t1129 * t512 - 0.1666666668e0_dp * t192 * t530 & 01754 * t864 - 0.1666666668e0_dp * t1106 * t882 - 0.1666666668e0_dp * t192 * & 01755 t530 * t866 - 0.1481481482e1_dp * t192 * t1099 * t777 - 0.1111111112e0_dp & 01756 * t3129 * t196 + 0.5555555559e0_dp * t1193 * t866 * t451 - 0.1666666668e0_dp & 01757 * t503 * t2282 - 0.1666666668e0_dp * t3085 * t275 + 0.1111111112e0_dp & 01758 * t503 * t2312 01759 t3181 = -0.1851851853e0_dp * t1106 * t874 - 0.1666666668e0_dp * t508 * t1235 & 01760 - 0.3333333336e0_dp * t508 * t1224 - 0.1111111112e0_dp * t516 * t2281 & 01761 * t172 + 0.1111111112e0_dp * t516 * t1097 * t526 + 0.2222222223e0_dp * & 01762 t1106 * t878 - 0.1851851853e0_dp * t503 * t2308 - 0.3333333336e0_dp * t1137 & 01763 * t1216 + (3 * t3098) + 0.1111111112e0_dp * t516 * t1109 * t526 & 01764 - 0.5555555558e-1_dp * t503 * t2287 - 0.3333333336e0_dp * t192 * t2311 & 01765 * t1125 - 0.6666666672e0_dp * t508 * t1126 + 0.1646090535e0_dp * t503 & 01766 * t2319 - 0.5555555558e-1_dp * t3129 * t200 - 0.5555555558e-1_dp * t58 & 01767 * t2622 * t71 - 0.1666666668e0_dp * t1106 * t886 01768 t3232 = -0.1666666668e0_dp * t192 * t1206 * t267 - 0.5555555558e-1_dp * t192 & 01769 * t199 * t2295 - 0.1666666668e0_dp * t508 * t1122 - 0.3333333336e0_dp & 01770 * t1129 * t520 - 0.1111111112e0_dp * t516 * t2295 * t172 - 0.1481481482e1_dp & 01771 * t66 * t67 * t97 * t267 * t1100 - 0.1851851853e0_dp * t192 * & 01772 t22 * t496 * t1200 - 0.3333333336e0_dp * t516 * t2292 * t65 * my_rho * & 01773 t25 + 0.1810699590e1_dp * t192 * t311 * t70 * t2732 - 0.5555555558e-1_dp & 01774 * t503 * t2304 - 0.1481481482e1_dp * t508 * t1101 - 0.3333333336e0_dp * & 01775 t867 * t515 * t517 + 0.1111111112e1_dp * t268 * t1192 * t1194 + 0.5555555559e0_dp & 01776 * t1193 * t864 * t451 + 0.1111111112e1_dp * t508 * t1213 - & 01777 0.1666666668e0_dp * t508 * t1207 - 0.3333333336e0_dp * t1137 * t1134 01778 t3244 = t278 * t140 01779 t3248 = t889 * my_rho 01780 t3262 = omega * t1300 01781 t3264 = t140 * t2160 01782 t3268 = 0.1555555556e1_dp * t2937 * t446 * t2843 + 0.3111111111e1_dp * t170 & 01783 * t1268 * t777 - 0.2500000000e0_dp * t429 * t1275 * t290 - 0.1333333334e1_dp & 01784 * t1373 * t1292 * t1172 + 0.3111111111e1_dp * t170 * t341 * t278 & 01785 * t1100 - 0.3456790122e0_dp * t170 * t341 * t203 * t86 + 0.3750000000e0_dp & 01786 * t1368 * t166 * t2418 + 0.4444444444e0_dp * t170 * t114 * t537 & 01787 * t14 + 0.3333333334e0_dp * t55 * t57 * (t3093 + t3141 + t3181 + t3232) & 01788 - 0.1111111111e0_dp * t2885 * t1247 * t2368 - 0.6666666668e0_dp * t1373 & 01789 * t446 * t2869 + 0.1666666667e0_dp * t1246 * t3244 * t833 + 0.5000000001e0_dp & 01790 * t445 * t3248 * t413 - 0.1666666667e0_dp * t165 * t171 * & 01791 t1067 * t17 - 0.2500000000e0_dp * t429 * t437 * t918 + 0.3750000000e0_dp & 01792 * t1368 * t437 * t907 - 0.3125000000e0_dp * t3262 * t45 * t166 * t3264 01793 t3278 = my_rho * t398 01794 t3288 = -0.1000000001e1_dp * t165 * t2636 * t237 - 0.2000000001e1_dp * t55 & 01795 * t926 - 0.1000000001e1_dp * t83 * t922 * t379 - 0.5000000004e0_dp * t289 & 01796 * t84 * t2645 + 0.2500000002e0_dp * t429 * t897 * t754 - 0.1000000001e1_dp & 01797 * t83 * t294 * t1067 - 0.1666666668e0_dp * t289 * t84 * t2655 & 01798 - 0.1000000001e1_dp * t83 * t2404 * t237 - 0.5000000004e0_dp * t289 * t922 & 01799 * t290 - 0.5000000004e0_dp * t289 * t384 * t2169 - 0.5000000004e0_dp & 01800 * t289 * t1071 * t754 - 0.2222222224e0_dp * t144 * t46 * (t2724 + t2783 & 01801 + t2935 + t3268) - 0.3333333336e0_dp * t83 * t45 * t2392 * t140 - & 01802 0.1250000001e0_dp * t3278 * omega * t84 * t3264 - 0.1000000001e1_dp * t55 & 01803 * t1068 + 0.8333333340e-1_dp * t906 * t384 * t2160 01804 t3291 = -0.1000000001e1_dp * t2147 * t84 * t754 - 0.4000000002e1_dp * t747 & 01805 * t294 * t237 - 0.2000000001e1_dp * t747 * t84 * t804 - 0.1333333334e1_dp & 01806 * t214 * t894 + 0.1666666668e0_dp * t4 * t150 * t46 * t78 * t2160 & 01807 - 0.1000000001e1_dp * t753 * t46 * t282 * t754 - 0.1000000001e1_dp * t1409 & 01808 * t84 * t2169 - 0.2000000001e1_dp * t217 * t46 * t893 * t237 - 0.2000000001e1_dp & 01809 * t217 * t46 * t282 * t804 - 0.6666666672e0_dp * t217 * & 01810 t46 * t78 * t2230 - 0.4444444448e0_dp * t43 * t46 * t2392 + t8 * (t2635 & 01811 + t3288) 01812 END IF 01813 IF( grad_deriv >= 3 .OR. grad_deriv == -3 ) THEN 01814 e_rho_rho_rho(ii) = e_rho_rho_rho(ii) + t3291 * sx 01815 t3305 = t4 * t428 01816 t3306 = t754 * t561 01817 t3314 = t237 * t1447 01818 t3329 = t804 * t561 01819 t3339 = t949 * t557 01820 t3344 = t953 * t1425 01821 t3347 = t316 * t1443 01822 t3352 = t772 * t557 01823 t3353 = t974 * t3352 01824 t3356 = t233 * t1443 01825 t3357 = t327 * t3356 01826 t3362 = t800 * t557 01827 t3363 = t327 * t3362 01828 t3366 = beta * t777 01829 t3378 = 0.1866666667e2_dp * t3366 * t342 + 0.9866666667e2_dp * t24 * t782 & 01830 - 0.8266666668e2_dp * t366 * t797 + 0.3200000001e2_dp * t1054 / t1014 / & 01831 t12 * t1058 01832 t3379 = t105 * t3378 01833 t3382 = 0.3911111110e2_dp * t24 * t766 - 0.1955555555e2_dp * t962 * t3339 & 01834 + 0.2133333334e2_dp * t339 * t769 - 0.2133333334e2_dp * t321 * t3344 + & 01835 0.1066666667e2_dp * t321 * t3347 + 0.80e1_dp * t112 * t773 - 0.120e2_dp * t102 & 01836 * t3353 + 0.80e1_dp * t102 * t3357 - 0.40e1_dp * t112 * t801 + 0.40e1_dp & 01837 * t102 * t3363 - 0.20e1_dp * t102 * t3379 01838 t3449 = t1447 * t17 01839 t3453 = (2 * t147 * t1885 * t249) + 0.1800000000e2_dp * (t1971) & 01840 * (t1972) * (t1973) * (t249) + (2 * t147 * t393 & 01841 * t1470) + 0.1800000000e2_dp * t658 * t575 * t827 + 0.2e1_dp * (t147) & 01842 * t149 * (-0.5625000000e1_dp * t1302 * t19 * t754 * t561 + 0.4500000000e1_dp & 01843 * t400 * t1459 * t1447 + 0.1500000000e1_dp * t400 * t815 * t1483 & 01844 - 0.1000000000e1_dp * t405 * t68 * t1447 * t17 + 0.2250000000e1_dp * & 01845 t400 * t19 * t804 * t561 - 0.1500000000e1_dp * t151 * t50 * t3382 + 0.3333333334e0_dp & 01846 * t405 * t194 * t14 * t561) + 0.1250000000e0_dp * t1368 & 01847 * t166 * t3306 - 0.8333333335e-1_dp * t429 * t679 * t754 - 0.1666666667e0_dp & 01848 * t429 * t166 * t3314 + 0.5555555555e-1_dp * t1246 * t74 * t237 & 01849 * t1483 - 0.1111111111e0_dp * t165 * t689 * t833 - 0.1111111111e0_dp * & 01850 t165 * t171 * t3449 01851 t3472 = t14 * t561 01852 t3491 = 0.5400000000e2_dp * t1143 * t20 * t754 * t561 01853 t3494 = 0.3600000000e2_dp * t473 * t1493 * t1447 01854 t3497 = 0.2400000000e2_dp * t473 * t852 * t1483 01855 t3501 = 0.1200000000e2_dp * t478 * t56 * t1447 * t17 01856 t3505 = 0.1800000000e2_dp * t473 * t20 * t804 * t561 01857 t3507 = t178 * t62 * t3382 01858 t3512 = 0.2000000000e1_dp * t478 * t27 * t14 * t561 01859 t3513 = t3491 - t3494 - t3497 + t3501 - t3505 + 0.8999999998e1_dp * t3507 & 01860 - t3512 01861 t3514 = t3513 * t65 01862 t3525 = t58 * t3382 01863 t3533 = t237 * t1518 01864 t3543 = t3514 + 0.8999999998e1_dp * t863 * t59 * t177 * t710 + (2 & 01865 * t267 * t1504) + 0.8999999998e1_dp * t865 * t59 * t177 * t710 - 0.5555555558e-1_dp & 01866 * t3525 * t71 - 0.5000000001e0_dp * t804 * t177 * t709 + & 01867 0.7407407410e-1_dp * t1755 * t271 + 0.6666666668e0_dp * t3533 * t1722 - & 01868 0.1111111112e0_dp * t1755 * t275 - 0.1111111112e0_dp * t508 * t1525 - 0.1000000001e1_dp & 01869 * t237 * t266 * t1722 01870 t3546 = 0.1e1_dp / t12 01871 t3547 = t60 * t3546 01872 t3552 = t194 * t1504 01873 t3553 = t3552 * t526 01874 t3561 = t68 * t3513 * t65 01875 t3569 = t274 * t1505 01876 t3575 = -0.6172839508e-1_dp * t719 * t874 - 0.5555555556e0_dp * t3547 * t709 & 01877 + 0.7407407410e-1_dp * t719 * t878 + 0.7407407410e-1_dp * t192 * t3553 & 01878 + 0.6666666668e0_dp * t1519 * t1712 - 0.5555555558e-1_dp * t719 * t882 & 01879 - 0.5555555558e-1_dp * t192 * t3561 - 0.5000000001e0_dp * t60 * t863 * & 01880 t709 - 0.5555555558e-1_dp * t719 * t886 - 0.1111111112e0_dp * t192 * t3569 & 01881 - 0.5000000001e0_dp * t60 * t865 * t709 01882 t3576 = t3543 + t3575 01883 t3580 = -0.1666666667e0_dp * t429 * t437 * t1410 + 0.3333333334e0_dp * t165 & 01884 * t1928 * t237 + 0.3333333334e0_dp * t165 * t437 * t1447 - 0.8333333335e-1_dp & 01885 * t429 * t166 * t3329 + 0.1666666667e0_dp * t165 * t679 * t804 & 01886 + 0.1666666667e0_dp * t165 * t166 * t3382 + 0.7407407405e-1_dp * t165 & 01887 * t450 * t3472 + 0.1481481481e0_dp * t170 * t1875 * t14 - 0.1111111111e0_dp & 01888 * t165 * t455 * t1483 - 0.2222222222e0_dp * t170 * t1932 * t17 + & 01889 0.1666666667e0_dp * t165 * t1275 * t561 + 0.3333333334e0_dp * t55 * t57 & 01890 * t3576 01891 t3581 = t3453 + t3580 01892 t3608 = t973 * my_rho 01893 t3618 = 0.640e2_dp * t1597 * t1598 * t3356 - 0.640e2_dp * t1582 * t773 - & 01894 0.1173333333e3_dp * t93 * t3347 - 0.3911111110e2_dp * t1000 * t963 - 0.320e2_dp & 01895 * t605 * t959 + 0.1173333333e3_dp * t307 * t949 * t1602 + 0.40e1_dp & 01896 * t102 * t327 * t136 * t3378 - 0.960e2_dp * t1597 * t3608 * t3352 - & 01897 0.40e1_dp * t112 * t1064 + 0.80e1_dp * t112 * t984 + 0.2737777778e3_dp * t307 & 01898 * t3339 01899 t3668 = t2552 * t23 01900 t3673 = t635 * t1058 01901 t3674 = t3673 * t220 01902 t3677 = -0.1866666667e3_dp * t1645 * t342 - 0.6346666667e3_dp * t24 * t991 & 01903 + 0.3946666667e3_dp * t366 * t997 + 0.1866666667e3_dp * beta * t764 * & 01904 t1004 + 0.60e1_dp * t550 * t1046 + 0.60e1_dp * t119 * t27 * (-0.280e3_dp / & 01905 0.9e1_dp * t987 + 0.280e3_dp / 0.9e1_dp * t2537 * my_rho) * t132 - 0.60e1_dp * t7 & 01906 * t640 * t1044 * t371 + 0.1600000000e2_dp * t366 * t368 * t1667 * t371 & 01907 - 0.4800000000e2_dp * t1680 * t3668 + 0.1600000000e3_dp * t1680 * t1060 & 01908 + 0.3200000000e2_dp * t1055 * t3674 01909 t3679 = t2565 * t1439 01910 t3682 = t24 * t940 01911 t3711 = -0.1600000000e3_dp * t2220 * t368 * t3679 + 0.6346666667e3_dp * t3682 & 01912 * t1008 - 0.3946666667e3_dp * t366 * t1012 * t1021 + 0.1866666667e2_dp & 01913 * t3366 * t1026 + 0.1866666667e2_dp * t1024 * t341 * t635 * t132 & 01914 - 0.1706666667e3_dp * t7 * t1036 - 0.1600000000e2_dp * t1429 * t1030 - 0.1600000000e2_dp & 01915 * t350 * t114 * t1667 * t132 + 0.6400000000e2_dp * t7 * & 01916 t1050 - 0.5066666667e2_dp * t366 * t1034 * t635 * t371 + 0.1520000000e3_dp & 01917 * t786 * t1034 * t1681 01918 t3726 = -0.240e2_dp * t1616 * t1617 * t3356 + 0.160e2_dp * t302 * t3379 + & 01919 0.40e1_dp * t102 * t327 * t1063 * t557 + 0.960e2_dp * t302 * t3353 - 0.320e2_dp & 01920 * t302 * t3363 - 0.2737777778e3_dp * t941 * t2468 * t608 - 0.120e2_dp & 01921 * t102 * t974 * t645 * t772 - 0.2133333334e2_dp * t321 * t953 * t1621 & 01922 - 0.20e1_dp * t102 * t105 * (t3677 + t3711) + 0.80e1_dp * t102 * t327 & 01923 * t375 * t1443 - 0.120e2_dp * t1616 * t1617 * t3362 - 0.2133333334e2_dp & 01924 * t321 * t953 * t1625 01925 t3750 = t2585 * t136 01926 t3763 = 0.2346666666e3_dp * t1589 * t950 + 0.80e1_dp * t102 * t327 * t1684 & 01927 * t233 + 0.6400000002e2_dp * t7 * t220 * t1618 - 0.240e2_dp * t112 * t976 & 01928 - 0.160e2_dp * t93 * t316 * my_rho * t3378 + 0.2346666666e3_dp * t93 * & 01929 t3344 + 0.3911111110e2_dp * t962 * t2611 * t614 - 0.5475555556e3_dp * t24 & 01930 * t930 + 0.480e2_dp * t1616 * t3750 * t3352 - 0.1955555555e2_dp * t962 & 01931 * t949 * t645 - 0.240e2_dp * t1616 * t973 * t375 * t1425 + 0.2133333334e2_dp & 01932 * t339 * t969 01933 t3794 = -0.640e2_dp * t302 * t3357 - 0.4266666668e2_dp * t339 * t966 + 0.640e2_dp & 01934 * t605 * t955 + 0.40e1_dp * t102 * t327 * t645 * t800 + 0.5475555556e3_dp & 01935 * t3682 * t946 + 0.1066666667e2_dp * t321 * t316 * t1684 + 0.160e2_dp & 01936 * t112 * t980 - 0.2346666666e3_dp * t7 * t929 * t1599 + 0.320e2_dp & 01937 * t1597 * t1598 * t3362 - 0.2346666666e3_dp * t605 * t769 + 0.320e2_dp & 01938 * t1582 * t801 - 0.2133333334e2_dp * t321 * t953 * t1631 01939 t3796 = t3618 + t3726 + t3763 + t3794 01940 t3826 = 0.8333333340e-1_dp * t906 * t597 * t907 + 0.1666666668e0_dp * t429 & 01941 * t1547 - 0.3333333336e0_dp * t83 * t84 * t3796 - 0.3333333336e0_dp * & 01942 t83 * t922 * t649 - 0.3333333336e0_dp * t289 * t294 * t1571 - 0.3333333336e0_dp & 01943 * t289 * t1071 * t1410 - 0.6666666672e0_dp * t83 * t1564 * t379 & 01944 - 0.6666666672e0_dp * t55 * t1700 - 0.3333333336e0_dp * t165 * t207 * & 01945 t237 * t561 - 0.6666666672e0_dp * t55 * t1689 - 0.3333333336e0_dp * t83 & 01946 * t1694 * t804 + 0.1666666668e0_dp * t1546 * t897 * t3314 01947 t3827 = t649 * t804 01948 t3842 = t3278 * t46 01949 t3849 = t140 * t3382 01950 t3853 = t649 * t754 01951 t3861 = t78 * t649 01952 t3865 = t589 * t140 01953 t3869 = -0.1666666668e0_dp * t289 * t84 * t3827 - 0.1666666668e0_dp * t289 & 01954 * t922 * t593 + 0.1666666668e0_dp * t1546 * t2636 * t1410 - 0.6666666672e0_dp & 01955 * t55 * t1703 - 0.3333333336e0_dp * t83 * t597 * t1067 - 0.1250000001e0_dp & 01956 * t3842 * t897 * t3306 - 0.3333333336e0_dp * t83 * t384 * & 01957 t3382 - 0.1666666668e0_dp * t289 * t84 * t3849 + 0.8333333340e-1_dp * t906 & 01958 * t84 * t3853 - 0.6666666672e0_dp * t55 * t1568 - 0.6666666672e0_dp * & 01959 t55 * t1565 - 0.3333333336e0_dp * t165 * t3861 * t237 - 0.3333333336e0_dp & 01960 * t165 * t3865 * t237 01961 t3871 = t379 * t1447 01962 t3875 = t45 * t2002 01963 t3892 = t225 * t1447 01964 t3918 = t25 * t3382 01965 t3925 = t777 * t561 01966 t3933 = t451 * t1410 01967 t3939 = t1301 * t245 01968 t3940 = t172 * t3306 01969 t3965 = 0.1500000000e1_dp * t405 * t156 * t3918 + 0.1968750000e2_dp * t2823 & 01970 * t401 * t3306 + 0.1666666666e1_dp * t405 * t1340 * t3925 + 0.3000000000e1_dp & 01971 * t405 * t1333 * t1447 + 0.3000000000e1_dp * t399 * t822 * t3933 & 01972 + 0.2250000000e1_dp * t400 * t401 * t3382 + 0.5625000000e1_dp * t3939 & 01973 * t3940 + 0.3333333333e0_dp * t405 * t194 * t649 * t14 - 0.1125000000e2_dp & 01974 * t1302 * t1309 * t1410 + 0.2250000000e1_dp * t400 * t1892 * t804 & 01975 - 0.5625000000e1_dp * t1302 * t401 * t3329 - 0.5625000000e1_dp * t1302 & 01976 * t1892 * t754 + 0.2250000000e1_dp * t400 * t2808 * t561 - 0.4500000000e1_dp & 01977 * t400 * t1333 * t1410 01978 t3969 = t172 * t3314 01979 t3975 = t19 * t1688 01980 t3979 = t290 * t1483 01981 t3985 = t172 * t3329 01982 t4010 = -0.1125000000e2_dp * t1302 * t401 * t3314 - 0.4500000000e1_dp * t1912 & 01983 * t3969 + 0.4500000000e1_dp * t400 * t1309 * t1447 + 0.4500000000e1_dp & 01984 * t400 * t3975 * t237 - 0.3750000000e1_dp * t3939 * t3979 - 0.2000000000e1_dp & 01985 * t405 * t417 * t3892 - 0.2250000000e1_dp * t1912 * t3985 - & 01986 0.2000000000e1_dp * t405 * t2873 * t561 - 0.5000000000e0_dp * t400 * t1316 & 01987 * t3472 - 0.1000000000e1_dp * t405 * t68 * t1688 * t17 + 0.1500000000e1_dp & 01988 * t400 * t406 * t3449 - 0.1500000000e1_dp * t151 * t50 * t3796 & 01989 + 0.1500000000e1_dp * t400 * t1902 * t833 + 0.1500000000e1_dp * t400 * & 01990 t1320 * t1483 01991 t4018 = 0.2222222222e0_dp * t2885 * t446 * t1172 * t561 - 0.1666666667e0_dp & 01992 * t1246 * t1292 * t1865 - 0.4444444445e0_dp * t1373 * t446 * t3892 & 01993 - 0.1111111111e0_dp * t165 * t171 * t1688 * t17 + 0.1666666667e0_dp * t165 & 01994 * t56 * t3576 * t140 + 0.1250000000e0_dp * t2763 * t446 * t1168 * & 01995 t561 + 0.3333333334e0_dp * t165 * t689 * t413 + 0.1666666667e0_dp * t165 & 01996 * t679 * t1067 - 0.1666666667e0_dp * t1246 * t446 * t413 * t1447 + & 01997 (2 * t147 * t149 * (t3965 + t4010)) - 0.4444444445e0_dp * t1373 * & 01998 t1292 * t1829 01999 t4025 = t3262 * t57 02000 t4032 = t74 * t649 02001 t4070 = t3525 * t67 02002 t4079 = -0.5555555558e-1_dp * t192 * t199 * t3514 + (t705 * t863 * & 02003 t65) + (2 * t496 * t1504 * t65) + (t187 * t3513 * t65) - & 02004 0.5555555558e-1_dp * t192 * t728 * t864 - 0.5555555556e0_dp * t140 * t3546 & 02005 * t1722 + (t705 * t865 * t65) - 0.1111111112e0_dp * t1106 * t1525 & 02006 - 0.1111111112e0_dp * t4070 * t196 + 0.6666666668e0_dp * t1748 * t266 & 02007 * t1722 + 0.3703703706e0_dp * t1193 * t1505 * t451 02008 t4101 = t498 * t1505 02009 t4108 = -0.5000000001e0_dp * t60 * t1189 * t709 + 0.3703703706e0_dp * t1755 & 02010 * t512 - 0.5555555558e-1_dp * t503 * t3561 - 0.2222222224e0_dp * t516 & 02011 * t267 * t172 * t1504 - 0.5555555558e-1_dp * t1715 * t886 - 0.5555555558e-1_dp & 02012 * t1715 * t882 - 0.1111111112e0_dp * t516 * t3514 * t172 - 0.5000000001e0_dp & 02013 * t1067 * t177 * t709 + (2 * t4101) - 0.1111111112e0_dp & 02014 * t508 * t1769 - 0.1111111112e0_dp * t192 * t1837 * t267 02015 t4140 = -0.5555555558e-1_dp * t719 * t1207 - 0.2000000001e1_dp * t1763 * & 02016 t266 * t1722 - 0.1111111112e0_dp * t192 * t530 * t1505 + 0.1333333334e1_dp & 02017 * t1519 * t722 * t1712 + 0.7407407410e-1_dp * t516 * t1718 * t526 & 02018 + 0.6666666668e0_dp * t379 * t1518 * t1722 - 0.5555555558e-1_dp * t192 * & 02019 t728 * t866 - 0.2222222224e0_dp * t719 * t1126 + 0.1800000000e2_dp * t1111 & 02020 * t178 * t710 - 0.1111111112e0_dp * t508 * t1782 - 0.5555555558e-1_dp & 02021 * t58 * t3796 * t71 02022 t4156 = t865 * t561 * t65 02023 t4201 = t20 * t1688 02024 t4214 = -0.8000000000e1_dp * t478 * t123 * t3925 - 0.2400000000e2_dp * t473 & 02025 * t479 * t3449 + 0.1200000000e2_dp * t478 * t489 * t3892 + 0.1200000000e2_dp & 02026 * t478 * t2998 * t561 - 0.2000000000e1_dp * t478 * t27 * t649 & 02027 * t14 + 0.1200000000e2_dp * t478 * t56 * t1688 * t17 - 0.2400000000e2_dp & 02028 * t473 * t1161 * t1483 + 0.1080000000e3_dp * t1143 * t474 * t3314 - & 02029 0.2160000000e3_dp * t2994 * t474 * t3306 + 0.7200000000e2_dp * t1821 * & 02030 t3969 - 0.3600000000e2_dp * t473 * t4201 * t237 - 0.1800000000e2_dp * t473 & 02031 * t3030 * t561 - 0.2400000000e2_dp * t473 * t1811 * t833 - 0.1800000000e2_dp & 02032 * t478 * t183 * t3918 02033 t4230 = t1142 * t262 02034 t4255 = 0.5400000000e2_dp * t1143 * t474 * t3329 + 0.5400000000e2_dp * t1143 & 02035 * t1801 * t754 + 0.7200000000e2_dp * t473 * t1176 * t1410 + 0.8999999998e1_dp & 02036 * t178 * t62 * t3796 - 0.2400000000e2_dp * t472 * t859 * t3933 & 02037 - 0.1080000000e3_dp * t4230 * t3940 + 0.4000000000e1_dp * t473 * t1157 & 02038 * t3472 + 0.1080000000e3_dp * t1143 * t1150 * t1410 + 0.3600000000e2_dp & 02039 * t1821 * t3985 + 0.7200000000e2_dp * t4230 * t3979 - 0.1800000000e2_dp & 02040 * t473 * t1801 * t804 - 0.3600000000e2_dp * t473 * t1150 * t1447 - & 02041 0.3600000000e2_dp * t478 * t1176 * t1447 - 0.1800000000e2_dp * t473 * t474 & 02042 * t3382 02043 t4256 = t4214 + t4255 02044 t4261 = -0.2222222224e0_dp * t1510 * t515 * t517 + 0.3703703706e0_dp * t719 & 02045 * t1213 - 0.1000000001e1_dp * t1766 * t266 * t1722 - 0.5555555558e-1_dp & 02046 * t4070 * t200 + 0.6666666668e0_dp * t1519 * t496 * t561 * t65 - 0.5000000001e0_dp & 02047 * t732 * t4156 - 0.5000000001e0_dp * t140 * t865 * t1722 & 02048 - 0.5000000001e0_dp * t804 * t187 * t1722 - 0.4938271608e0_dp * t719 * & 02049 t1101 + 0.8999999998e1_dp * t1097 * t178 * t710 - 0.5555555558e-1_dp * & 02050 t192 * t68 * t4256 * t65 02051 t4272 = t863 * t561 * t65 02052 t4292 = (2 * t1836 * t266 * t65) - 0.1111111112e0_dp * t719 * t1224 & 02053 - 0.2222222224e0_dp * t1137 * t1790 - 0.1000000001e1_dp * t723 * t4272 & 02054 - 0.1111111112e0_dp * t1785 * t1134 - 0.6172839508e-1_dp * t192 * t22 * & 02055 t705 * t1200 - 0.5000000001e0_dp * t140 * t863 * t1722 - 0.1111111112e0_dp & 02056 * t1755 * t531 - 0.6172839508e-1_dp * t1715 * t874 - 0.5555555558e-1_dp & 02057 * t719 * t1122 + 0.7407407410e-1_dp * t508 * t1726 02058 t4317 = 0.7407407410e-1_dp * t1755 * t527 - 0.6172839508e-1_dp * t719 * t1201 & 02059 - 0.1111111112e0_dp * t508 * t1838 - 0.2222222224e0_dp * t192 * t3552 & 02060 * t1125 + 0.7407407410e-1_dp * t1785 * t1221 - 0.1111111111e1_dp * t3547 & 02061 * t1737 + 0.6666666668e0_dp * t1519 * t187 * t1712 + 0.7407407410e-1_dp & 02062 * t503 * t3553 - 0.1111111112e0_dp * t1755 * t534 - 0.1000000001e1_dp & 02063 * t1774 * t1712 + 0.7407407410e-1_dp * t719 * t1119 02064 t4345 = -0.1000000001e1_dp * t379 * t266 * t1722 - 0.1000000001e1_dp * t804 & 02065 * t722 * t1722 + 0.8999999998e1_dp * t1109 * t178 * t710 - 0.5555555558e-1_dp & 02066 * t1129 * t729 + t4256 * t65 - 0.2222222224e0_dp * t1755 * t520 & 02067 - 0.1111111112e0_dp * t503 * t3569 - 0.1111111112e0_dp * t1785 * t1216 & 02068 - 0.1111111112e0_dp * t3097 * t4101 - 0.5000000001e0_dp * t732 * t4272 & 02069 + 0.7407407410e-1_dp * t192 * t194 * t1836 * t526 02070 t4352 = t1731 * t67 02071 t4378 = 0.7407407410e-1_dp * t1715 * t878 + 0.8999999998e1_dp * t1189 * t59 & 02072 * t177 * t710 + 0.7407407410e-1_dp * t4352 * t271 - 0.1111111112e0_dp & 02073 * t4352 * t275 - 0.5555555556e0_dp * t3547 * t1745 + 0.7407407410e-1_dp & 02074 * t516 * t1709 * t526 + 0.6666666668e0_dp * t3533 * t187 * t1722 - 0.1000000001e1_dp & 02075 * t237 * t496 * t1722 + 0.3703703706e0_dp * t579 * t1192 & 02076 * t1194 - 0.1000000001e1_dp * t723 * t4156 + 0.1333333334e1_dp * t3533 & 02077 * t722 * t1722 - 0.5555555558e-1_dp * t719 * t1235 02078 t4392 = 0.3333333334e0_dp * t165 * t171 * t1825 + 0.1250000000e0_dp * t1981 & 02079 * t1247 * t3329 - 0.3125000000e0_dp * t4025 * t1247 * t3306 + 0.3333333334e0_dp & 02080 * t165 * t1392 * t1447 + 0.5555555556e-1_dp * t1246 * t4032 & 02081 * t833 - 0.1666666667e0_dp * t1246 * t74 * t25 * t1410 + 0.5555555556e-1_dp & 02082 * t1246 * t1247 * t3449 + 0.1800000000e2_dp * t657 * t1283 * t59 & 02083 * t1975 - 0.1666666667e0_dp * t429 * t166 * t3871 + 0.3333333334e0_dp & 02084 * t55 * t57 * (t4079 + t4108 + t4140 + t4261 + t4292 + t4317 + t4345 & 02085 + t4378) + 0.1481481481e0_dp * t170 * t114 * t735 * t14 - 0.1666666667e0_dp & 02086 * t429 * t1928 * t290 02087 t4428 = -0.1111111111e0_dp * t165 * t1264 * t1483 + 0.1800000000e2_dp * t658 & 02088 * t575 * t1348 - 0.8333333335e-1_dp * t429 * t679 * t918 - 0.1111111111e0_dp & 02089 * t165 * t455 * t1988 + 0.3333333334e0_dp * t170 * t27 * t3576 & 02090 * t172 - 0.8333333335e-1_dp * t429 * t1966 * t754 + 0.1250000000e0_dp & 02091 * t1368 * t679 * t907 + 0.1666666667e0_dp * t445 * t446 * t3918 - 0.4444444445e0_dp & 02092 * t165 * t450 * t1829 + 0.2500000000e0_dp * t1981 * t3244 & 02093 * t1410 - 0.1666666667e0_dp * t429 * t1392 * t1410 02094 t4466 = -0.1666666667e0_dp * t429 * t437 * t1553 - 0.1111111111e0_dp * t165 & 02095 * t689 * t1085 + 0.1666666667e0_dp * t165 * t1275 * t649 - 0.2222222222e0_dp & 02096 * t170 * t27 * t1843 * t17 - 0.8333333335e-1_dp * t1246 * t1962 & 02097 * t1168 + 0.1666666667e0_dp * t165 * t2720 * t561 + 0.6666666668e0_dp & 02098 * t170 * t1932 * t25 + 0.3333333334e0_dp * t445 * t1292 * t1825 + 0.1250000000e0_dp & 02099 * t1368 * t166 * t3853 - 0.4444444445e0_dp * t1373 * t1962 & 02100 * t1172 + 0.7407407405e-1_dp * t165 * t1377 * t3472 + 0.5555555555e-1_dp & 02101 * t1246 * t3244 * t1483 02102 t4498 = t56 * t1843 02103 t4505 = 0.1666666667e0_dp * t165 * t166 * t3796 - 0.8333333334e-1_dp * t2763 & 02104 * t1247 * t833 * t561 + (4 * t147 * t392 * t1886) + (2 & 02105 * t147 * t1388 * t672) - 0.1111111111e0_dp * t165 * t1940 * t833 + 0.3333333334e0_dp & 02106 * t165 * t1928 * t379 + 0.7407407409e-1_dp * t165 * t450 & 02107 * t649 * t14 - 0.1666666667e0_dp * t429 * t462 * t3314 - 0.3703703704e-1_dp & 02108 * t2885 * t1247 * t3472 + 0.3333333334e0_dp * t165 * t4498 * t237 & 02109 + (2 * t147 * t1284 * t672) 02110 t4512 = t1531 * my_rho 02111 t4545 = (4 * t147 * t1885 * t424) + 0.1666666667e0_dp * t165 * t462 & 02112 * t3382 + 0.3333333334e0_dp * t445 * t4512 * t413 + 0.5185185185e0_dp & 02113 * t2937 * t446 * t3925 - 0.8333333335e-1_dp * t429 * t166 * t3827 - 0.1666666667e0_dp & 02114 * t429 * t437 * t1571 + 0.5555555555e-1_dp * t1246 * t203 & 02115 * t237 * t1483 + 0.5555555555e-1_dp * t1246 * t2707 * t1483 + 0.7407407409e-1_dp & 02116 * t165 * t1875 * t1360 + (4 * t147 * t393 * t1924) & 02117 + 0.3600000000e2_dp * (t1971) * (t1972) * (t1973) * (t424) & 02118 + 0.3333333334e0_dp * t165 * t437 * t1688 02119 t4553 = t585 * t140 02120 t4575 = t1067 * t561 02121 t4585 = 0.1666666667e0_dp * t445 * t3248 * t668 - 0.1111111111e0_dp * t165 & 02122 * t1932 * t433 + 0.5555555556e-1_dp * t1246 * t4553 * t833 - 0.8333333335e-1_dp & 02123 * t429 * t1275 * t593 - 0.8333333335e-1_dp * t429 * t462 * & 02124 t3329 + 0.2500000000e0_dp * t1981 * t1247 * t3314 + 0.1666666667e0_dp * & 02125 t445 * t1962 * t1093 + 0.3333333334e0_dp * t165 * t455 * t668 - 0.8333333335e-1_dp & 02126 * t429 * t166 * t3849 - 0.8333333335e-1_dp * t429 * t166 * & 02127 t4575 + 0.2e1_dp * t147 * (t3491 - t3494 - t3497 + t3501 - t3505 + 0.9000000000e1_dp & 02128 * t3507 - t3512) * t149 * t160 02129 t4607 = t1688 * t237 02130 t4627 = 0.1666666667e0_dp * t165 * t1966 * t804 - 0.1666666667e0_dp * t429 & 02131 * t437 * t1557 + 0.1800000000e2_dp * t657 * t1387 * t59 * t1975 + 0.1037037037e1_dp & 02132 * t170 * t341 * t585 * t1100 - 0.8888888890e0_dp * t170 & 02133 * t114 * t1531 * t451 - 0.8888888890e0_dp * t170 * t1875 * t225 - 0.1666666667e0_dp & 02134 * t429 * t166 * t4607 - 0.1111111111e0_dp * t165 * t466 & 02135 * t3449 - 0.1666666667e0_dp * t429 * t679 * t914 - 0.8333333335e-1_dp * & 02136 t1246 * t446 * t1093 * t561 + 0.1250000000e0_dp * t1368 * t462 * t3306 & 02137 + 0.2500000000e0_dp * t1981 * t2707 * t1410 02138 t4657 = -0.3333333336e0_dp * t289 * t84 * t3871 - 0.6666666672e0_dp * t83 & 02139 * t3875 * t237 + 0.8333333340e-1_dp * t906 * t384 * t3306 - 0.1666666668e0_dp & 02140 * t289 * t597 * t918 - 0.2222222224e0_dp * t144 * t46 * (t4018 & 02141 + t4392 + t4428 + t4466 + t4505 + t4545 + t4585 + t4627) - 0.1666666668e0_dp & 02142 * t289 * t384 * t3329 - 0.3333333336e0_dp * t165 * t2636 * t561 & 02143 - 0.3333333336e0_dp * t165 * t897 * t1447 + 0.8333333340e-1_dp * t1546 & 02144 * t897 * t3329 - 0.6666666672e0_dp * t83 * t1071 * t1447 - 0.3333333336e0_dp & 02145 * t83 * t2404 * t561 - 0.4444444448e0_dp * t383 * t3875 - 0.3333333336e0_dp & 02146 * t289 * t294 * t1553 02147 t4696 = -0.6666666672e0_dp * t55 * t1575 - 0.3333333336e0_dp * t289 * t597 & 02148 * t914 - 0.3333333336e0_dp * t165 * t2631 * t561 - 0.6666666672e0_dp * & 02149 t55 * t1706 - 0.3333333336e0_dp * t289 * t384 * t3314 - 0.6666666672e0_dp & 02150 * t83 * t294 * t1688 + 0.1666666668e0_dp * t1546 * t2631 * t1410 - & 02151 0.3333333336e0_dp * t289 * t1564 * t290 - 0.1666666668e0_dp * t289 * t84 & 02152 * t4575 - 0.3333333336e0_dp * t289 * t294 * t1557 - 0.1666666668e0_dp & 02153 * t289 * t1694 * t754 - 0.3333333336e0_dp * t289 * t84 * t4607 - 0.3333333336e0_dp & 02154 * t83 * t45 * t3581 * t140 02155 t4700 = -0.6666666670e0_dp * t2147 * t1411 - 0.1333333334e1_dp * t747 * t597 & 02156 * t237 - 0.1333333334e1_dp * t747 * t84 * t1447 - 0.1333333334e1_dp & 02157 * t747 * t294 * t561 - 0.8888888896e0_dp * t214 * t1536 + 0.1666666668e0_dp & 02158 * t3305 * t84 * t3306 - 0.3333333336e0_dp * t753 * t46 * t589 * t754 & 02159 - 0.6666666672e0_dp * t1409 * t84 * t3314 - 0.6666666670e0_dp * t1409 & 02160 * t294 * t1410 - 0.1333333334e1_dp * t217 * t46 * t1535 * t237 - 0.1333333334e1_dp & 02161 * t217 * t46 * t282 * t1447 - 0.3333333336e0_dp * t1409 & 02162 * t84 * t3329 - 0.6666666672e0_dp * t217 * t46 * t589 * t804 - 0.6666666672e0_dp & 02163 * t217 * t46 * t78 * t3382 - 0.6666666672e0_dp * t217 * t46 & 02164 * t893 * t561 - 0.4444444448e0_dp * t43 * t46 * t3581 + t8 * (t3826 + & 02165 t3869 + t4657 + t4696) 02166 e_ndrho_rho_rho(ii) = e_ndrho_rho_rho(ii) + t4700 * sx 02167 t4701 = t561 ** 2 02168 t4704 = 0.3333333336e0_dp * t2147 * t84 * t4701 02169 t4707 = 0.1333333334e1_dp * t747 * t597 * t561 02170 t4708 = t22 * t36 02171 t4713 = t557 ** 2 02172 t4714 = t327 * t4713 02173 t4717 = t22 * t132 02174 t4721 = 0.1e1_dp / t787 * t2480 02175 t4725 = 0.120e2_dp * t624 * t4717 - 0.60e1_dp * t7 * t4721 * t371 02176 t4726 = t105 * t4725 02177 t4729 = 0.40e1_dp * t624 * t4708 - 0.80e1_dp * t112 * t558 + 0.40e1_dp * t102 & 02178 * t4714 - 0.20e1_dp * t102 * t4726 02179 t4732 = 0.6666666672e0_dp * t747 * t84 * t4729 02180 t4733 = pi ** 2 02181 t4734 = t4733 * t146 02182 t4736 = 0.1e1_dp / t58 / omega 02183 t4738 = t4734 * t4736 * t1300 02184 t4739 = t4701 * t149 02185 t4743 = t19 * t4701 02186 t4744 = t399 * t4743 02187 t4748 = t151 * t19 * t4729 02188 t4760 = t20 * t4701 02189 t4764 = t20 * t4729 02190 t4768 = t58 ** 2 02191 t4769 = 0.1e1_dp / t4768 02192 t4770 = t4769 * t1141 02193 t4771 = t4770 * t4733 02194 t4772 = t26 * t4701 02195 t4776 = t58 * t4729 02196 t4782 = -0.2250000000e2_dp * t473 * t4760 * t65 + 0.8999999998e1_dp * t478 & 02197 * t4764 * t65 + 0.8099999996e2_dp * t4771 * t4772 * t65 - 0.5555555558e-1_dp & 02198 * t4776 * t71 - 0.5000000001e0_dp * t60 * t4729 * t65 02199 t4786 = -0.2700000000e2_dp * t4738 * t18 * t4739 + 0.4500000000e1_dp * t567 & 02200 * t4744 - 0.3000000000e1_dp * t567 * t4748 - 0.8333333335e-1_dp * t429 & 02201 * t166 * t4701 + 0.3333333334e0_dp * t165 * t679 * t561 + 0.1666666667e0_dp & 02202 * t165 * t166 * t4729 + 0.3333333334e0_dp * t55 * t57 * t4782 02203 t4789 = 0.4444444448e0_dp * t214 * t46 * t4786 02204 t4790 = t237 * t4701 02205 t4793 = 0.1666666668e0_dp * t3305 * t84 * t4790 02206 t4796 = 0.6666666672e0_dp * t1409 * t597 * t1410 02207 t4797 = t1447 * t561 02208 t4800 = 0.6666666672e0_dp * t1409 * t84 * t4797 02209 t4801 = t237 * t4729 02210 t4804 = 0.3333333336e0_dp * t1409 * t84 * t4801 02211 t4808 = 0.6666666672e0_dp * t217 * t46 * t4786 * t237 02212 t4812 = 0.1333333334e1_dp * t217 * t46 * t589 * t1447 02213 t4817 = t953 * t4713 02214 t4820 = t316 * t4725 02215 t4829 = t233 * t4713 02216 t4830 = t974 * t4829 02217 t4833 = t1443 * t557 02218 t4834 = t327 * t4833 02219 t4837 = t233 * t4725 02220 t4838 = t327 * t4837 02221 t4849 = -0.3200000000e2_dp * t1645 * t627 + 0.4800000000e2_dp * t7 * t1440 & 02222 - 0.2400000000e2_dp * t786 / t2492 * t1058 02223 t4850 = t105 * t4849 02224 t4853 = -0.1066666667e2_dp * t1645 * t98 + 0.2133333334e2_dp * t339 * t1420 & 02225 - 0.1066666667e2_dp * t321 * t4817 + 0.5333333333e1_dp * t321 * t4820 & 02226 - 0.40e1_dp * t624 * t234 + 0.160e2_dp * t112 * t1426 - 0.80e1_dp * t112 * & 02227 t1444 - 0.120e2_dp * t102 * t4830 + 0.80e1_dp * t102 * t4834 + 0.40e1_dp * & 02228 t102 * t4838 - 0.20e1_dp * t102 * t4850 02229 t4857 = 0.6666666672e0_dp * t217 * t46 * t78 * t4853 02230 t4861 = 0.3333333336e0_dp * t753 * t46 * t282 * t4701 02231 t4864 = t217 * t46 * t1535 * t561 02232 t4869 = 0.6666666672e0_dp * t217 * t46 * t282 * t4729 02233 t4872 = 0.8333333335e-1_dp * t429 * t437 * t4701 02234 t4874 = t165 * t1928 * t561 02235 t4878 = 0.1666666667e0_dp * t165 * t437 * t4729 02236 t4881 = 0.5400000000e2_dp * t1143 * t1493 * t4701 02237 t4884 = 0.3600000000e2_dp * t473 * t2035 * t561 02238 t4887 = 0.1800000000e2_dp * t473 * t1493 * t4729 02239 t4889 = t178 * t62 * t4853 02240 t4893 = 0.1200000000e2_dp * t473 * t1500 * t4701 02241 t4895 = t478 * t1500 * t4729 02242 t4897 = t4881 - t4884 - t4887 + 0.8999999998e1_dp * t4889 - t4893 + 0.5999999999e1_dp & 02243 * t4895 02244 t4898 = t4897 * t65 02245 t4901 = t1504 * t59 * t177 * t710 02246 t4904 = t4701 * t65 02247 t4905 = t62 * t4904 02248 t4907 = 0.2250000000e2_dp * t1506 * t471 * t4905 02249 t4908 = t4729 * t65 02250 t4909 = t62 * t4908 02251 t4911 = 0.8999999998e1_dp * t1507 * t4909 02252 t4915 = t4733 * t26 * t4904 02253 t4917 = 0.8099999996e2_dp * t266 * t4769 * t1141 * t4915 02254 t4918 = t58 * t4853 02255 t4920 = 0.5555555558e-1_dp * t4918 * t71 02256 t4922 = t1447 * t177 * t709 02257 t4925 = 0.5000000001e0_dp * t1513 * t4908 02258 t4929 = t60 * t1504 * t709 02259 t4932 = 0.5000000001e0_dp * t1528 * t4908 02260 t4935 = 0.1000000000e1_dp * t237 * t471 * t4904 02261 t4940 = t59 * pi * t20 * t65 02262 t4941 = t237 * t1141 * t4701 * t4940 02263 t4943 = t4776 * t67 02264 t4945 = 0.3703703705e-1_dp * t4943 * t271 02265 t4946 = t471 * t1518 02266 t4951 = 0.5555555558e-1_dp * t4943 * t275 02267 t4952 = t719 * t1525 02268 t4955 = t68 * t4897 * t65 02269 t4958 = t4898 + 0.1800000000e2_dp * t4901 - t4907 + t4911 + t4917 - t4920 & 02270 - 0.1000000000e1_dp * t4922 - t4925 + 0.3333333334e0_dp * t1519 * t4908 & 02271 - 0.1000000000e1_dp * t4929 - t4932 + t4935 - 0.4500000000e1_dp * t4941 & 02272 + t4945 + 0.3000000000e1_dp * t4946 * t4701 * t4940 - t4951 - 0.1111111112e0_dp & 02273 * t4952 - 0.5555555558e-1_dp * t192 * t4955 02274 t4994 = t44 * t4733 * t146 02275 t4995 = t4994 * t4770 02276 t5001 = 0.1666666667e0_dp * t165 * t166 * t4853 02277 t5002 = t17 * t4701 02278 t5005 = 0.2777777778e-1_dp * t429 * t171 * t5002 02279 t5008 = 0.1111111111e0_dp * t165 * t689 * t1483 02280 t5009 = t17 * t4729 02281 t5011 = t165 * t171 * t5009 02282 t5013 = t27 * t4782 02283 t5016 = 0.1111111111e0_dp * t170 * t5013 * t17 02284 t5019 = 0.1250000000e0_dp * t1368 * t166 * t4790 02285 t5022 = 0.1666666667e0_dp * t429 * t679 * t1410 02286 t5025 = 0.1666666667e0_dp * t429 * t166 * t4797 02287 t5028 = 0.8333333335e-1_dp * t429 * t166 * t4801 02288 t5029 = t56 * t4782 02289 t5032 = 0.1666666667e0_dp * t165 * t5029 * t237 02290 t5035 = 0.3333333334e0_dp * t165 * t679 * t1447 02291 t5036 = -t4872 + 0.3333333334e0_dp * t4874 + t4878 + 0.3333333334e0_dp * & 02292 t55 * t57 * t4958 + 0.2e1_dp * t147 * t149 * (-0.5625000000e1_dp * t1302 & 02293 * t1459 * t4701 + 0.4500000000e1_dp * t400 * t2022 * t561 + 0.2250000000e1_dp & 02294 * t400 * t1459 * t4729 - 0.1500000000e1_dp * t151 * t50 * t4853 & 02295 + 0.7500000000e0_dp * t400 * t1466 * t4701 - 0.5000000000e0_dp * t405 & 02296 * t1466 * t4729) - 0.3600000000e2_dp * t2081 * t4760 * t250 + 0.1800000000e2_dp & 02297 * t658 * t4764 * t250 + 0.3600000000e2_dp * t658 * t575 * t1471 & 02298 + 0.1620000000e3_dp * t4995 * t4772 * t250 + t5001 + t5005 - t5008 & 02299 - 0.5555555555e-1_dp * t5011 - t5016 + t5019 - t5022 - t5025 - t5028 & 02300 + t5032 + t5035 02301 t5040 = t379 * t4729 02302 t5043 = 0.1666666668e0_dp * t289 * t84 * t5040 02303 t5044 = t140 * t4853 02304 t5047 = 0.1666666668e0_dp * t289 * t84 * t5044 02305 t5050 = 0.1666666668e0_dp * t165 * t897 * t4729 02306 t5051 = beta * t86 02307 t5060 = beta * t92 02308 t5065 = my_rho * t4713 02309 t5069 = my_rho * t4725 02310 t5079 = t136 * t4713 02311 t5083 = t645 * t557 02312 t5087 = t136 * t4725 02313 t5106 = beta * t640 02314 t5108 = t126 * t371 * my_ndrho 02315 t5115 = t366 * t640 02316 t5118 = -0.480e2_dp * t5051 * t4717 + 0.240e2_dp * t7 * t2182 * t2480 * t371 & 02317 + 0.480e2_dp * t5060 * t628 - 0.240e2_dp * t7 * t1640 * t1438 * t371 & 02318 * my_rho + 0.120e2_dp * t550 * t637 - 0.180e2_dp * t5106 * t5108 - 0.120e2_dp & 02319 * t7 * t640 * t635 * t371 + 0.180e2_dp * t5115 * t1681 02320 t5122 = -0.320e2_dp * t5051 * t4708 + 0.640e2_dp * t1582 * t558 - 0.320e2_dp & 02321 * t302 * t4714 + 0.160e2_dp * t302 * t4726 + 0.320e2_dp * t5060 * t99 - & 02322 0.640e2_dp * t605 * t609 + 0.320e2_dp * t93 * t953 * t5065 - 0.160e2_dp * & 02323 t93 * t316 * t5069 - 0.40e1_dp * t624 * t137 + 0.160e2_dp * t112 * t615 & 02324 - 0.80e1_dp * t112 * t646 - 0.120e2_dp * t102 * t974 * t5079 + 0.80e1_dp * & 02325 t102 * t327 * t5083 + 0.40e1_dp * t102 * t327 * t5087 - 0.20e1_dp * t102 & 02326 * t105 * t5118 02327 t5123 = t5122 * t237 02328 t5126 = 0.1666666668e0_dp * t289 * t84 * t5123 02329 t5139 = t25 * t4701 02330 t5143 = t25 * t4729 02331 t5147 = -0.5625000000e1_dp * t1302 * t401 * t4701 + 0.4500000000e1_dp * t400 & 02332 * t1892 * t561 + 0.2250000000e1_dp * t400 * t401 * t4729 - 0.1500000000e1_dp & 02333 * t151 * t50 * t5122 - 0.2250000000e1_dp * t400 * t156 * t5139 & 02334 + 0.1500000000e1_dp * t405 * t156 * t5143 02335 t5163 = t140 * t4701 02336 t5170 = t649 * t561 02337 t5174 = t140 * t4729 02338 t5226 = 0.5400000000e2_dp * t1143 * t474 * t4701 - 0.3600000000e2_dp * t473 & 02339 * t1801 * t561 - 0.1800000000e2_dp * t473 * t474 * t4729 + 0.8999999998e1_dp & 02340 * t178 * t62 * t5122 + 0.3600000000e2_dp * t473 * t183 * t5139 & 02341 - 0.1800000000e2_dp * t478 * t183 * t5143 02342 t5228 = t705 * t59 02343 t5229 = t5228 * t177 02344 t5237 = t649 * t177 02345 t5244 = t60 * t705 02346 t5247 = t187 * t4769 02347 t5251 = t58 * t5122 02348 t5256 = t140 * t1141 02349 t5262 = t471 * t722 02350 t5270 = t68 * t5226 02351 t5271 = t5270 * t65 02352 t5276 = t5226 * t65 + 0.1800000000e2_dp * t5229 * t710 - 0.2250000000e2_dp & 02353 * t707 * t471 * t4905 + 0.8999999998e1_dp * t708 * t4909 - 0.1000000000e1_dp & 02354 * t5237 * t709 - 0.5000000001e0_dp * t716 * t4908 - 0.1000000001e1_dp & 02355 * t723 * t4908 - 0.1000000000e1_dp * t5244 * t709 + 0.8099999996e2_dp & 02356 * t5247 * t1141 * t4915 - 0.5555555558e-1_dp * t5251 * t71 + 0.1000000000e1_dp & 02357 * t2098 * t4904 - 0.4500000000e1_dp * t5256 * t4701 * t4940 & 02358 - 0.1111111112e0_dp * t4943 * t196 - 0.9000000007e1_dp * t5262 * t4701 & 02359 * t4940 - 0.5555555558e-1_dp * t4943 * t200 - 0.1111111112e0_dp * t719 * & 02360 t729 - 0.5555555558e-1_dp * t192 * t5271 - 0.5000000001e0_dp * t732 * t4908 02361 t5280 = (2 * t147 * t149 * t5147) - 0.3600000000e2_dp * t2081 * t4760 & 02362 * t161 + 0.1800000000e2_dp * t658 * t4764 * t161 + 0.3600000000e2_dp & 02363 * t658 * t575 * t673 + 0.1620000000e3_dp * t4995 * t4772 * t161 + 0.1250000000e0_dp & 02364 * t1368 * t166 * t5163 - 0.1666666667e0_dp * t429 * t679 & 02365 * t593 - 0.1666666667e0_dp * t429 * t166 * t5170 - 0.8333333335e-1_dp * & 02366 t429 * t166 * t5174 + 0.1666666667e0_dp * t165 * t5029 * t140 + 0.3333333334e0_dp & 02367 * t165 * t679 * t649 + 0.1666666667e0_dp * t165 * t166 * t5122 & 02368 - 0.8333333335e-1_dp * t1246 * t446 * t5139 + 0.3333333334e0_dp * t445 & 02369 * t1962 * t668 + 0.1666666667e0_dp * t445 * t446 * t5143 + 0.3333333334e0_dp & 02370 * t170 * t5013 * t172 - 0.8333333335e-1_dp * t429 * t462 * t4701 & 02371 + 0.3333333334e0_dp * t165 * t1966 * t561 + 0.1666666667e0_dp * t165 & 02372 * t462 * t4729 + 0.3333333334e0_dp * t55 * t57 * t5276 02373 t5281 = t45 * t5280 02374 t5284 = 0.3333333336e0_dp * t83 * t5281 * t237 02375 t5291 = 0.1666666668e0_dp * t289 * t384 * t4801 02376 t5294 = 0.1666666668e0_dp * t1546 * t3865 * t1410 02377 t5295 = t45 * t4786 02378 t5298 = 0.3333333336e0_dp * t83 * t5295 * t379 02379 t5301 = 0.3333333336e0_dp * t55 * t384 * t4729 02380 t5303 = t83 * t1564 * t649 02381 t5305 = -t5043 - t5047 - t5050 - t5126 - t5284 - 0.3333333336e0_dp * t83 & 02382 * t45 * t5036 * t140 - t5291 + t5294 - t5298 - t5301 - 0.6666666672e0_dp & 02383 * t5303 02384 t5308 = 0.3333333336e0_dp * t289 * t1694 * t1410 02385 t5311 = 0.1666666668e0_dp * t289 * t1071 * t4701 02386 t5314 = 0.1666666668e0_dp * t289 * t5295 * t290 02387 t5317 = 0.3333333336e0_dp * t165 * t3861 * t561 02388 t5320 = 0.3333333336e0_dp * t83 * t1071 * t4729 02389 t5323 = 0.1666666668e0_dp * t1546 * t3861 * t1410 02390 t5326 = 0.1250000001e0_dp * t3842 * t897 * t4790 02391 t5329 = 0.6666666672e0_dp * t83 * t1694 * t1447 02392 t5330 = t379 * t4701 02393 t5333 = 0.8333333340e-1_dp * t906 * t84 * t5330 02394 t5335 = 0.2222222224e0_dp * t383 * t5281 02395 t5338 = 0.6666666672e0_dp * t55 * t1694 * t561 02396 t5339 = t649 * t1447 02397 t5342 = 0.3333333336e0_dp * t289 * t84 * t5339 02398 t5343 = -t5308 - t5311 - t5314 - t5317 - t5320 + t5323 - t5326 - t5329 & 02399 + t5333 - t5335 - t5338 - t5342 02400 t5345 = t1688 * t561 02401 t5347 = t289 * t84 * t5345 02402 t5351 = 0.1666666668e0_dp * t164 * t384 * t4701 02403 t5354 = 0.3333333336e0_dp * t83 * t384 * t4853 02404 t5357 = 0.6666666672e0_dp * t55 * t597 * t649 02405 t5360 = 0.3333333336e0_dp * t289 * t384 * t4797 02406 t5363 = 0.8333333335e-1_dp * t429 * t166 * t5040 02407 t5367 = 0.1666666667e0_dp * t445 * t4782 * my_rho * t413 02408 t5370 = 0.1666666667e0_dp * t429 * t679 * t1557 02409 t5371 = t225 * t4701 02410 t5373 = t2885 * t446 * t5371 02411 t5376 = t165 * t466 * t5009 02412 t5379 = t165 * t1928 * t649 02413 t5383 = 0.4166666667e-1_dp * t2763 * t1247 * t5002 02414 t5386 = 0.8333333335e-1_dp * t429 * t5029 * t290 02415 t5389 = 0.8333333335e-1_dp * t429 * t166 * t5044 02416 t5397 = 0.8333333335e-1_dp * t1246 * t446 * t413 * t4729 02417 t5400 = 0.3333333334e0_dp * t445 * t1962 * t1825 02418 t5402 = t165 * t679 * t1688 02419 t5406 = 0.8333333335e-1_dp * t429 * t166 * t5123 02420 t5409 = 0.8333333335e-1_dp * t429 * t1392 * t4701 02421 t5412 = 0.8333333335e-1_dp * t429 * t171 * t5139 02422 t5415 = 0.1666666667e0_dp * t429 * t462 * t4797 02423 t5418 = 2 * t147 * t393 * t5147 02424 t5421 = t657 * t1884 * t59 * t1975 02425 t5423 = -t5363 + t5367 - t5370 + 0.1111111111e0_dp * t5373 - 0.5555555555e-1_dp & 02426 * t5376 + 0.3333333334e0_dp * t5379 - t5383 - t5386 - t5389 + & 02427 0.3333333334e0_dp * t170 * t27 * t4958 * t172 - t5397 + t5400 + 0.3333333334e0_dp & 02428 * t5402 - t5406 - t5409 - t5412 - t5415 + t5418 + 0.3600000000e2_dp & 02429 * t5421 02430 t5426 = 0.8333333335e-1_dp * t1246 * t1292 * t5139 02431 t5429 = 0.1666666667e0_dp * t445 * t1292 * t5143 02432 t5430 = t225 * t4729 02433 t5432 = t1373 * t446 * t5430 02434 t5436 = 0.1666666667e0_dp * t165 * t5029 * t379 02435 t5440 = 0.40e1_dp * t102 * t327 * t375 * t4725 02436 t5443 = 0.960e2_dp * t1597 * t3608 * t4829 02437 t5446 = 0.480e2_dp * t24 * t23 * t1618 02438 t5449 = 0.1173333333e3_dp * t307 * t2611 * t5065 02439 t5451 = 0.640e2_dp * t605 * t1603 02440 t5454 = 0.2133333334e2_dp * t321 * t953 * t5083 02441 t5456 = 0.1280e3_dp * t1582 * t1426 02442 t5459 = 0.5333333333e1_dp * t321 * t316 * t5118 02443 t5460 = beta * t306 02444 t5462 = 0.1173333333e3_dp * t5460 * t313 02445 t5466 = 0.40e1_dp * t102 * t327 * t136 * t4849 02446 t5468 = 0.2346666666e3_dp * t605 * t1420 02447 t5469 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 - t5456 + t5459 & 02448 - t5462 + t5466 - t5468 02449 t5472 = 0.3200000001e2_dp * t321 * t2455 * t5079 02450 t5474 = 0.4266666668e2_dp * t339 * t1608 02451 t5478 = 0.240e2_dp * t1616 * t973 * t645 * t1425 02452 t5480 = 0.1760000000e3_dp * t5060 * t627 02453 t5482 = 0.2160000000e3_dp * t7 * t1642 02454 t5484 = 0.1760000000e3_dp * t5460 * t347 02455 t5487 = 0.2160000000e3_dp * t7 * t995 * t1652 02456 t5489 = 0.1600000000e2_dp * t1429 * t1658 02457 t5492 = 0.7200000000e2_dp * beta * t368 * t5108 02458 t5494 = 0.6400000000e2_dp * t7 * t1677 02459 t5496 = t366 * t368 * t1681 02460 t5499 = 0.120e2_dp * t550 * t1669 02461 t5503 = 0.180e2_dp * t5106 * t360 * t371 * my_ndrho 02462 t5507 = 0.120e2_dp * t7 * t640 * t1667 * t371 02463 t5509 = 0.180e2_dp * t5115 * t3668 02464 t5511 = t1680 * t3673 * t23 02465 t5516 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.1920000000e3_dp & 02466 * t5496 + t5499 - t5503 - t5507 + t5509 - 0.4800000000e2_dp & 02467 * t5511 + 0.1200000000e3_dp * t1055 * t2565 * t4721 02468 t5523 = 0.120e2_dp * t102 * t974 * t375 * t4713 02469 t5525 = 0.2133333334e2_dp * t339 * t1611 02470 t5528 = t102 * t327 * t1684 * t557 02471 t5531 = 0.160e2_dp * t112 * t1626 02472 t5533 = 0.160e2_dp * t112 * t1632 02473 t5535 = 0.640e2_dp * t1582 * t1444 02474 t5537 = 0.160e2_dp * t112 * t1622 02475 t5540 = 0.320e2_dp * t1597 * t1598 * t4837 02476 t5541 = t5472 - t5474 - t5478 - 0.20e1_dp * t102 * t105 * t5516 - t5523 & 02477 + t5525 + 0.80e1_dp * t5528 + t5531 + t5533 + t5535 + t5537 + t5540 02478 t5545 = 0.480e2_dp * t1616 * t3750 * t4829 02479 t5548 = 0.120e2_dp * t1616 * t1617 * t4837 02480 t5551 = 0.1280e3_dp * t24 * t298 * t1599 02481 t5553 = 0.160e2_dp * t302 * t4850 02482 t5558 = 0.320e2_dp * t5060 * t97 * t104 * my_rho * t233 02483 t5560 = 0.2346666666e3_dp * t1589 * t1592 02484 t5562 = 0.5866666667e2_dp * t93 * t4820 02485 t5564 = 0.1173333333e3_dp * t5060 * t98 02486 t5565 = t112 * t1685 02487 t5568 = 0.1066666667e2_dp * t1645 * t322 02488 t5572 = 0.40e1_dp * t102 * t327 * t5118 * t233 02489 t5574 = 0.1173333333e3_dp * t93 * t4817 02490 t5575 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 02491 - 0.80e1_dp * t5565 + t5568 + t5572 + t5574 02492 t5579 = 0.80e1_dp * t102 * t327 * t645 * t1443 02493 t5581 = 0.320e2_dp * t302 * t4838 02494 t5585 = 0.160e2_dp * t93 * t316 * my_rho * t4849 02495 t5590 = 0.80e1_dp * t624 * t22 * t326 * t136 * t233 02496 t5593 = 0.1066666667e2_dp * t321 * t953 * t5087 02497 t5595 = 0.640e2_dp * t302 * t4834 02498 t5597 = 0.960e2_dp * t302 * t4830 02499 t5600 = 0.240e2_dp * t1616 * t1617 * t4833 02500 t5602 = 0.40e1_dp * t624 * t376 02501 t5604 = 0.320e2_dp * t5051 * t234 02502 t5607 = 0.5866666667e2_dp * t307 * t949 * t5069 02503 t5610 = 0.640e2_dp * t1597 * t1598 * t4833 02504 t5611 = t5579 - t5581 - t5585 + t5590 - t5593 - t5595 + t5597 - t5600 & 02505 - t5602 + t5604 + t5607 + t5610 02506 t5613 = t5469 + t5541 + t5575 + t5611 02507 t5619 = 0.3333333334e0_dp * t170 * t5013 * t25 02508 t5622 = 0.1666666667e0_dp * t165 * t1392 * t4729 02509 t5625 = 0.1666666667e0_dp * t429 * t166 * t5339 02510 t5628 = 0.3600000000e2_dp * t2081 * t4760 * t425 02511 t5631 = 0.5555555556e-1_dp * t1246 * t4032 * t1483 02512 t5632 = t25 * t4853 02513 t5635 = 0.1500000000e1_dp * t405 * t156 * t5632 02514 t5638 = 0.2250000000e1_dp * t400 * t1333 * t4701 02515 t5641 = 0.1500000000e1_dp * t405 * t1333 * t4729 02516 t5643 = t400 * t3975 * t561 02517 t5647 = 0.5625000000e1_dp * t1302 * t1309 * t4701 02518 t5650 = 0.5625000000e1_dp * t1302 * t401 * t4801 02519 t5653 = 0.4500000000e1_dp * t400 * t1892 * t1447 02520 t5657 = 0.5000000000e0_dp * t405 * t68 * t5122 * t17 02521 t5660 = 0.1125000000e2_dp * t1302 * t401 * t4797 02522 t5663 = 0.1500000000e1_dp * t400 * t417 * t5371 02523 t5666 = 0.1125000000e2_dp * t1302 * t1892 * t1410 02524 t5667 = t5635 - t5638 + t5641 + 0.4500000000e1_dp * t5643 - t5647 - t5650 & 02525 + t5653 - t5657 - t5660 + t5663 - t5666 02526 t5670 = 0.2250000000e1_dp * t400 * t1309 * t4729 02527 t5671 = t172 * t4801 02528 t5673 = 0.2250000000e1_dp * t1912 * t5671 02529 t5676 = 0.2250000000e1_dp * t400 * t401 * t4853 02530 t5679 = 0.1875000000e1_dp * t1302 * t406 * t5002 02531 t5682 = 0.1500000000e1_dp * t400 * t1902 * t1483 02532 t5686 = 0.2250000000e1_dp * t400 * t19 * t5122 * t237 02533 t5689 = 0.1000000000e1_dp * t405 * t417 * t5430 02534 t5692 = 0.1968750000e2_dp * t2823 * t401 * t4790 02535 t5695 = 0.7500000000e0_dp * t400 * t406 * t5009 02536 t5696 = t172 * t4790 02537 t5698 = 0.5625000000e1_dp * t3939 * t5696 02538 t5699 = t172 * t4797 02539 t5701 = 0.4500000000e1_dp * t1912 * t5699 02540 t5705 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 02541 + t5695 + t5698 - t5701 - 0.1500000000e1_dp * t151 * t50 * t5613 02542 t5713 = t4739 * t160 02543 t5716 = 0.1620000000e3_dp * t4994 * t392 * t4769 * t1141 * t26 * t5713 02544 t5719 = 0.3333333334e0_dp * t165 * t1966 * t1447 02545 t5722 = 0.1111111111e0_dp * t165 * t689 * t1988 02546 t5724 = t429 * t166 * t5345 02547 t5728 = 0.2500000000e0_dp * t1981 * t1247 * t4797 02548 t5731 = 0.1666666667e0_dp * t445 * t446 * t5632 02549 t5734 = 0.1666666667e0_dp * t429 * t679 * t1553 02550 t5738 = 0.4444444445e0_dp * t170 * t114 * t4782 * t451 02551 t5741 = 0.1666666667e0_dp * t165 * t171 * t5143 02552 t5742 = -t5426 + t5429 - 0.2222222222e0_dp * t5432 + t5436 + 0.1666666667e0_dp & 02553 * t165 * t166 * t5613 + t5619 + t5622 - t5625 - t5628 + t5631 & 02554 + (2 * t147 * t149 * (t5667 + t5705)) + t5716 + t5719 - t5722 & 02555 - 0.1666666667e0_dp * t5724 + t5728 + t5731 - t5734 - t5738 + t5741 02556 t5745 = t165 * t4498 * t561 02557 t5749 = 0.1666666667e0_dp * t429 * t437 * t5170 02558 t5752 = 0.8333333335e-1_dp * t429 * t462 * t4801 02559 t5756 = 0.1111111111e0_dp * t170 * t27 * t5276 * t17 02560 t5760 = 0.1250000000e0_dp * t2763 * t446 * t413 * t4701 02561 t5767 = 0.1666666667e0_dp * t165 * t437 * t5122 02562 t5770 = 0.1620000000e3_dp * t4995 * t4772 * t425 02563 t5773 = 0.1250000000e0_dp * t1368 * t437 * t5163 02564 t5776 = 0.2777777778e-1_dp * t1246 * t1247 * t5009 02565 t5780 = 0.1666666667e0_dp * t165 * t56 * t5276 * t237 02566 t5783 = 0.5555555557e-1_dp * t165 * t5013 * t433 02567 t5786 = 0.3333333334e0_dp * t165 * t689 * t668 02568 t5789 = 0.1250000000e0_dp * t1368 * t166 * t5330 02569 t5792 = 0.2777777778e-1_dp * t429 * t466 * t5002 02570 t5795 = 0.1111111111e0_dp * t165 * t1940 * t1483 02571 t5797 = t1373 * t1962 * t1829 02572 t5801 = 0.3600000000e2_dp * t1143 * t479 * t5002 02573 t5804 = 0.2400000000e2_dp * t473 * t1811 * t1483 02574 t5807 = 0.2160000000e3_dp * t2994 * t474 * t4790 02575 t5810 = 0.1080000000e3_dp * t1143 * t1801 * t1410 02576 t5813 = 0.1800000000e2_dp * t478 * t183 * t5632 02577 t5816 = 0.3600000000e2_dp * t473 * t1176 * t4701 02578 t5819 = 0.1800000000e2_dp * t478 * t1176 * t4729 02579 t5822 = 0.1800000000e2_dp * t473 * t474 * t4853 02580 t5825 = 0.1200000000e2_dp * t473 * t479 * t5009 02581 t5828 = 0.3600000000e2_dp * t473 * t1801 * t1447 02582 t5830 = 0.1080000000e3_dp * t4230 * t5696 02583 t5831 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 02584 - t5825 - t5828 - t5830 02585 t5833 = 0.7200000000e2_dp * t1821 * t5699 02586 t5835 = 0.3600000000e2_dp * t1821 * t5671 02587 t5838 = 0.1080000000e3_dp * t1143 * t474 * t4797 02588 t5841 = 0.5400000000e2_dp * t1143 * t474 * t4801 02589 t5845 = 0.1800000000e2_dp * t473 * t20 * t5122 * t237 02590 t5848 = 0.5400000000e2_dp * t1143 * t1150 * t4701 02591 t5850 = t473 * t4201 * t561 02592 t5854 = 0.1200000000e2_dp * t473 * t489 * t5371 02593 t5857 = 0.6000000000e1_dp * t478 * t489 * t5430 02594 t5861 = 0.5999999999e1_dp * t478 * t56 * t5122 * t17 02595 t5864 = 0.1800000000e2_dp * t473 * t1150 * t4729 02596 t5868 = t5833 + t5835 + t5838 + t5841 - t5845 + t5848 - 0.3600000000e2_dp & 02597 * t5850 - t5854 + t5857 + t5861 - t5864 + 0.8999999998e1_dp * t178 & 02598 * t62 * t5613 02599 t5869 = t5831 + t5868 02600 t5875 = t1447 * t187 * t1722 02601 t5880 = 0.3703703705e-1_dp * t192 * t194 * t5226 * t526 02602 t5881 = t1141 * t4701 02603 t5885 = t719 * t1769 02604 t5888 = t60 * t1836 * t709 02605 t5891 = 0.5555555558e-1_dp * t4943 * t534 02606 t5898 = t705 * t1504 * t65 02607 t5902 = 0.1800000000e2_dp * t1718 * t178 * t710 02608 t5905 = 0.5555555558e-1_dp * t192 * t5270 * t267 02609 t5908 = t1836 * t59 * t177 * t710 02610 t5911 = t266 * t4729 * t65 02611 t5913 = 0.1000000001e1_dp * t723 * t5911 02612 t5918 = t140 * t1504 * t1722 02613 t5922 = 0.1111111112e0_dp * t4776 * t515 * t517 02614 t5925 = 0.8099999996e2_dp * t498 * t4770 * t4915 02615 t5926 = -0.5555555558e-1_dp * t192 * t68 * t5869 * t65 - 0.1000000000e1_dp & 02616 * t5875 + t5880 + 0.3000000000e1_dp * t1748 * t5881 * t4940 - 0.1111111112e0_dp & 02617 * t5885 - 0.1000000000e1_dp * t5888 - t5891 + t5869 * t65 + & 02618 0.666666666e0_dp * t1519 * t722 * t4729 * t65 + (2 * t5898) + t5902 & 02619 - t5905 + 0.1800000000e2_dp * t5908 - t5913 - 0.1111111112e0_dp * t516 & 02620 * t4898 * t172 - 0.1000000000e1_dp * t5918 - t5922 + t5925 02621 t5929 = 0.2250000000e2_dp * t1740 * t471 * t4905 02622 t5932 = 0.1000000000e1_dp * t649 * t266 * t1722 02623 t5938 = t192 * t728 * t1505 02624 t5940 = t4918 * t67 02625 t5942 = 0.1111111112e0_dp * t5940 * t196 02626 t5944 = t1447 * t722 * t1722 02627 t5949 = 0.8999999998e1_dp * t1795 * t4909 02628 t5952 = 0.9000000007e1_dp * t1763 * t5881 * t4940 02629 t5954 = 0.8999999998e1_dp * t1741 * t4909 02630 t5956 = t471 * t4701 * t65 02631 t5958 = 0.1000000000e1_dp * t1766 * t5956 02632 t5960 = 0.5555555558e-1_dp * t5940 * t200 02633 t5963 = 0.1000000000e1_dp * t379 * t471 * t4904 02634 t5964 = t1715 * t1525 02635 t5966 = t1785 * t1790 02636 t5971 = 0.4500000000e1_dp * t379 * t1141 * t4701 * t4940 02637 t5973 = 0.5555555558e-1_dp * t4943 * t531 02638 t5975 = t5226 * t266 * t65 02639 t5977 = 0.1111111112e0_dp * t1755 * t729 02640 t5978 = -t5929 - t5932 + 0.3333333334e0_dp * t1519 * t187 * t4729 * t65 & 02641 - 0.1111111112e0_dp * t5938 - t5942 - 0.2000000002e1_dp * t5944 - 0.5555555558e-1_dp & 02642 * t503 * t4955 + t5949 - t5952 + t5954 + t5958 - t5960 & 02643 + t5963 - 0.1111111112e0_dp * t5964 - 0.2222222224e0_dp * t5966 - t5971 & 02644 - t5973 + t5975 - t5977 02645 t5985 = 0.5000000001e0_dp * t1774 * t4908 02646 t5990 = t177 * t4729 * t65 02647 t5994 = 0.5000000001e0_dp * t1766 * t5990 02648 t5996 = 0.3703703705e-1_dp * t4943 * t527 02649 t6000 = 0.9000000007e1_dp * t5262 * t266 * t4701 * t4940 02650 t6002 = 0.1851851853e0_dp * t4943 * t512 02651 t6004 = t1709 * t178 * t710 02652 t6006 = t719 * t1838 02653 t6009 = 0.5000000001e0_dp * t1777 * t4908 02654 t6017 = 0.5000000001e0_dp * t732 * t5911 02655 t6019 = 0.7407407410e-1_dp * t719 * t1726 02656 t6021 = t649 * t1518 * t1722 02657 t6023 = t5251 * t67 02658 t6025 = 0.3703703705e-1_dp * t6023 * t271 02659 t6029 = 0.5999999993e1_dp * t4946 * t722 * t4701 * t4940 - t5985 - 0.5555555558e-1_dp & 02660 * t192 * t199 * t4898 + 0.3333333334e0_dp * t1748 * t5990 & 02661 - t5994 + t5996 - t6000 + t6002 + 0.1800000000e2_dp * t6004 - 0.1111111112e0_dp & 02662 * t6006 - t6009 + 0.3000000000e1_dp * t4946 * t187 * t4701 & 02663 * t4940 - 0.6666666668e0_dp * t1748 * t5956 - t6017 + t6019 + 0.6666666668e0_dp & 02664 * t6021 + t6025 - 0.5555555558e-1_dp * t58 * t5613 * t71 02665 t6031 = 0.5000000001e0_dp * t1720 * t5990 02666 t6033 = 0.1000000000e1_dp * t5244 * t1712 02667 t6036 = 0.2250000000e2_dp * t498 * t472 * t4905 02668 t6040 = 0.5555555558e-1_dp * t6023 * t275 02669 t6042 = 0.1000000001e1_dp * t1763 * t5990 02670 t6044 = 0.2000000002e1_dp * t1763 * t5956 02671 t6047 = 0.4500000000e1_dp * t1720 * t5881 * t4940 02672 t6049 = t1688 * t177 * t709 02673 t6052 = t1504 * t561 * t65 02674 t6053 = t732 * t6052 02675 t6056 = 0.5555555558e-1_dp * t508 * t5271 02676 t6058 = 0.1111111112e0_dp * t4943 * t520 02677 t6060 = t1766 * t5881 * t4940 02678 t6063 = 0.1000000000e1_dp * t1720 * t5956 02679 t6066 = t1519 * t705 * t561 * t65 02680 t6074 = 0.8099999996e2_dp * t496 * t4769 * t1141 * t4915 02681 t6075 = t723 * t6052 02682 t6078 = 0.1111111112e0_dp * t719 * t1782 02683 t6079 = -t6031 - t6033 - t6036 + t187 * t4897 * t65 - t6040 - t6042 & 02684 + t6044 - t6047 - 0.1000000000e1_dp * t6049 - 0.1000000000e1_dp * t6053 & 02685 - t6056 - t6058 - 0.4500000000e1_dp * t6060 + t6063 + 0.6666666668e0_dp & 02686 * t6066 - 0.1000000000e1_dp * t237 * t705 * t1722 + t6074 - 0.2000000002e1_dp & 02687 * t6075 - t6078 02688 t6087 = 0.1666666667e0_dp * t429 * t1966 * t1410 02689 t6090 = 0.3125000000e0_dp * t4025 * t1247 * t4790 02690 t6091 = 0.3333333334e0_dp * t5745 - t5749 - t5752 - t5756 + t5760 + 0.1666666667e0_dp & 02691 * t165 * t56 * t4958 * t140 + t5767 + t5770 + t5773 + & 02692 t5776 + t5780 - t5783 + t5786 + t5789 + t5792 - t5795 - 0.4444444444e0_dp & 02693 * t5797 + 0.3333333334e0_dp * t55 * t57 * (t5926 + t5978 + t6029 & 02694 + t6079) - t6087 - t6090 02695 t6094 = 0.1250000000e0_dp * t1981 * t1247 * t4801 02696 t6099 = 0.1800000000e2_dp * t1971 * t1972 * t4729 * t149 * t160 02697 t6102 = 0.2500000000e0_dp * t1981 * t4553 * t1410 02698 t6106 = 0.3600000000e2_dp * t1971 * t1972 * t1973 * t672 02699 t6109 = 0.1666666667e0_dp * t1246 * t1962 * t1865 02700 t6112 = 0.5555555556e-1_dp * t1246 * t4553 * t1483 02701 t6116 = 0.3600000000e2_dp * t1971 * t471 * t20 * t5713 02702 t6119 = 0.1250000000e0_dp * t1368 * t462 * t4790 02703 t6123 = 0.1666666667e0_dp * t1246 * t446 * t1825 * t561 02704 t6126 = 0.1800000000e2_dp * t658 * t4764 * t425 02705 t6129 = 0.8333333335e-1_dp * t429 * t437 * t5174 02706 t6132 = 0.1666666667e0_dp * t165 * t462 * t4853 02707 t6136 = 0.5555555557e-1_dp * t165 * t171 * t5122 * t17 02708 t6138 = t429 * t1928 * t593 02709 t6141 = t658 * t575 * t1925 02710 t6144 = t445 * t4512 * t668 02711 t6155 = 0.2500000000e0_dp * t1981 * t4032 * t1410 02712 t6158 = 0.1666666667e0_dp * t429 * t679 * t1571 02713 t6160 = t147 * t1885 * t672 02714 t6162 = t6094 + t6099 + t6102 + t6106 - t6109 + t6112 - t6116 + t6119 & 02715 - t6123 + t6126 - t6129 + t6132 - t6136 - 0.1666666667e0_dp * t6138 & 02716 + 0.3600000000e2_dp * t6141 + 0.3333333334e0_dp * t6144 + 0.2e1_dp * t147 & 02717 * (t4881 - t4884 - t4887 + 0.9000000000e1_dp * t4889 - t4893 + 0.6000000000e1_dp & 02718 * t4895) * t149 * t160 + t6155 - t6158 + (4 * t6160) 02719 t6170 = 0.3333333336e0_dp * t289 * t597 * t1571 02720 t6173 = 0.3333333336e0_dp * t55 * t5295 * t140 02721 t6175 = t83 * t597 * t1688 02722 t6179 = 0.3333333336e0_dp * t165 * t3865 * t561 02723 t6181 = t289 * t1564 * t593 02724 t6185 = 0.3333333336e0_dp * t289 * t597 * t1553 02725 t6186 = -0.3333333336e0_dp * t5347 - t5351 - t5354 - t5357 - t5360 - 0.2222222224e0_dp & 02726 * t144 * t46 * (t5423 + t5742 + t6091 + t6162) - t6170 & 02727 - t6173 - 0.6666666672e0_dp * t6175 - t6179 - 0.3333333336e0_dp * t6181 & 02728 - t6185 02729 t6189 = 0.8333333340e-1_dp * t906 * t294 * t5163 02730 t6192 = 0.3333333336e0_dp * t83 * t294 * t5122 02731 t6194 = t83 * t3875 * t561 02732 t6198 = 0.3333333336e0_dp * t289 * t294 * t5170 02733 t6201 = 0.3333333336e0_dp * t289 * t597 * t1557 02734 t6207 = 0.1666666668e0_dp * t1546 * t897 * t4797 02735 t6210 = 0.1666666668e0_dp * t289 * t294 * t5174 02736 t6213 = 0.3333333336e0_dp * t55 * t84 * t5122 02737 t6216 = 0.8333333340e-1_dp * t429 * t897 * t4701 02738 t6219 = 0.8333333340e-1_dp * t906 * t384 * t4790 02739 t6222 = 0.8333333340e-1_dp * t1546 * t897 * t4801 02740 t6223 = t6189 - t6192 - 0.6666666672e0_dp * t6194 - t6198 - t6201 - 0.3333333336e0_dp & 02741 * t83 * t84 * t5613 + t6207 - t6210 - t6213 + t6216 + & 02742 t6219 + t6222 02743 t6227 = -t4704 - t4707 - t4732 - t4789 + t4793 - t4796 - t4800 - t4804 & 02744 - t4808 - t4812 - t4857 - t4861 - 0.1333333334e1_dp * t4864 - t4869 & 02745 - 0.4444444448e0_dp * t43 * t46 * t5036 + t8 * (t5305 + t5343 + t6186 & 02746 + t6223) 02747 e_ndrho_ndrho_rho(ii) = e_ndrho_ndrho_rho(ii) + t6227 * sx 02748 t6247 = t4769 * t2992 02749 t6249 = t4772 * t2027 02750 t6252 = t56 * t4701 02751 t6253 = t6252 * t526 02752 t6256 = t56 * t4729 02753 t6257 = t6256 * t526 02754 t6260 = t4743 * t526 02755 t6263 = t20 * t4853 02756 t6267 = t26 * t1447 02757 t6268 = t6267 * t709 02758 t6271 = t4764 * t2027 02759 t6281 = -0.1620000000e3_dp * t6247 * t4733 * t6249 - 0.1200000000e2_dp * & 02760 t473 * t6253 + 0.5999999999e1_dp * t478 * t6257 + 0.5399999998e2_dp * t4771 & 02761 * t6260 + 0.8999999998e1_dp * t478 * t6263 * t65 + 0.8099999996e2_dp & 02762 * t4771 * t6268 - 0.1800000000e2_dp * t473 * t6271 - 0.4050000000e2_dp & 02763 * t473 * t575 * t2095 - 0.5000000001e0_dp * t60 * t4853 * t65 + 0.8999999998e1_dp & 02764 * t4901 - t4907 + t4911 02765 t6283 = t4701 * t1518 02766 t6290 = t4917 - t4920 + 0.5000000001e0_dp * t4922 + t4925 + 0.3333333334e0_dp & 02767 * t6283 * t177 * t65 - 0.5000000001e0_dp * t4929 - t4932 - t4935 & 02768 + 0.5850000000e2_dp * t4941 + t4945 - t4951 - 0.5555555558e-1_dp * t4952 02769 t6291 = t6281 + t6290 02770 t6308 = 0.4050000000e2_dp * t4734 * t4736 * t2821 * t18 * t4739 * t237 & 02771 - 0.1125000000e2_dp * t2013 * t1300 * t19 * t4790 - t5028 - t5022 + & 02772 0.1500000000e1_dp * t2013 * t398 * t68 * t5002 + 0.3333333334e0_dp * t55 & 02773 * t57 * t6291 + t5019 - 0.3000000000e1_dp * t566 * t1885 * t569 - t5016 & 02774 - 0.9000000000e1_dp * t4734 * t4736 * t1300 * t4701 * t149 * t17 & 02775 + t5032 + 0.1666666667e0_dp * t165 * t2088 * t561 - 0.5555555557e-1_dp * & 02776 t5011 + t5001 02777 t6338 = 0.1666666667e0_dp * t4874 - t5025 - 0.2700000000e2_dp * t4734 * t392 & 02778 * t4736 * t1300 * my_rho * t5002 * t149 - 0.3000000000e1_dp * t2009 & 02779 * t4748 - 0.2700000000e2_dp * t4738 * t18 * t1973 * t1447 - t5008 - & 02780 0.3000000000e1_dp * t567 * t151 * t19 * t4853 + t5035 - 0.1000000000e1_dp & 02781 * t2013 * t2018 * t5009 + 0.9000000000e1_dp * t2013 * t2014 * t4797 & 02782 - t4872 + 0.4500000000e1_dp * t2013 * t2014 * t4801 + t4878 + t5005 & 02783 + 0.4500000000e1_dp * t2009 * t4744 02784 t6339 = t6308 + t6338 02785 t6344 = -t5043 - t5047 - t5050 - t5126 - t5284 - t5291 + t5294 - t5298 & 02786 - t5301 - 0.3333333336e0_dp * t5303 - t5308 - t5311 - t5314 02787 t6352 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 + 0.40e1_dp * t102 & 02788 * t327 * t2057 * t557 - t5456 + t5459 - t5462 + t5466 - t5468 02789 t6363 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.9600000000e2_dp & 02790 * t5496 + t5499 - t5503 - t5507 + t5509 - 0.2400000000e2_dp & 02791 * t5511 - 0.960e2_dp * t5115 * t1060 - 0.240e2_dp * t2054 * t3674 + 0.1200e3_dp & 02792 * t1054 * t640 * t3679 02793 t6367 = t5472 - t5474 - t5478 - t5523 + t5525 + 0.40e1_dp * t5528 + t5531 & 02794 + t5533 + t5535 + t5537 - 0.20e1_dp * t102 * t105 * t6363 + t5540 02795 t6370 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 02796 - 0.40e1_dp * t5565 + t5568 + t5572 + t5574 02797 t6373 = t5579 - t5581 - 0.40e1_dp * t112 * t2058 - t5585 + t5590 - t5593 & 02798 - t5595 + t5597 - t5600 - t5602 + t5604 + t5607 + t5610 02799 t6375 = t6352 + t6367 + t6370 + t6373 02800 t6380 = -t5317 - t5320 + t5323 - t5326 - t5329 - 0.3333333336e0_dp * t83 & 02801 * t597 * t2061 - 0.3333333336e0_dp * t83 * t84 * t6375 + t5333 - t5335 & 02802 - t5338 - t5342 - 0.1666666668e0_dp * t5347 - t5351 02803 t6389 = -t5354 - t5357 - 0.3333333336e0_dp * t83 * t45 * t2139 * t561 & 02804 - t5360 - t6170 - t6173 - 0.3333333336e0_dp * t6175 - t6179 - 0.1666666668e0_dp & 02805 * t6181 - t6185 + t6189 - t6192 - 0.3333333336e0_dp * t6194 02806 t6400 = t2061 * t561 02807 t6415 = -t5363 + t5367 - t5370 + 0.1111111112e0_dp * t5373 - 0.5555555557e-1_dp & 02808 * t5376 + 0.1666666667e0_dp * t5379 - t5383 - t5386 - t5389 + & 02809 0.1200000000e2_dp * t658 * t2031 * t673 * t17 + 0.3333333334e0_dp * t170 & 02810 * t27 * t6291 * t172 - t5397 02811 t6428 = t5635 - t5638 + t5641 + 0.2250000000e1_dp * t5643 - t5647 - 0.1500000000e1_dp & 02812 * t151 * t50 * t6375 - t5650 + t5653 - t5657 - t5660 & 02813 + t5663 - t5666 02814 t6433 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 02815 + t5695 + 0.2250000000e1_dp * t400 * t19 * t2061 * t561 + t5698 - & 02816 t5701 02817 t6442 = t5400 + 0.1666666667e0_dp * t5402 - t5406 + 0.1666666667e0_dp * t165 & 02818 * t56 * t2131 * t561 + 0.1666666667e0_dp * t165 * t679 * t2061 + & 02819 (2 * t147 * t149 * (t6428 + t6433)) - t5409 - t5412 - t5415 + & 02820 t5418 + 0.1800000000e2_dp * t658 * t575 * t2074 + 0.1800000000e2_dp * t5421 02821 t6451 = -t5426 + t5429 - 0.2222222223e0_dp * t5432 + t5436 + 0.1620000000e3_dp & 02822 * t4995 * t6267 * t1974 + 0.1666666667e0_dp * t165 * t2088 * t649 & 02823 + t5619 + t5622 - t5625 - t5628 + t5631 + t5716 02824 t6461 = t5719 - t5722 - 0.8333333335e-1_dp * t5724 + 0.1200000000e2_dp * & 02825 t658 * t6256 * t2077 - 0.3240000000e3_dp * t4994 * t6247 * t4772 * t2082 & 02826 + t5728 + t5731 - t5734 - t5738 + t5741 + 0.1666666667e0_dp * t5745 & 02827 - t5749 02828 t6479 = -t5752 + 0.1666666667e0_dp * t445 * t2042 * my_rho * t668 - t5756 & 02829 - 0.3600000000e2_dp * t2081 * t575 * t673 * t237 + 0.1800000000e2_dp * & 02830 t658 * t6263 * t161 + t5760 + t5767 + t5770 - 0.7200000000e2_dp * t2081 & 02831 * t575 * t161 * t1447 + t5773 + t5776 + t5780 02832 t6490 = -t5783 - 0.3600000000e2_dp * t2081 * t4764 * t2082 - 0.2400000000e2_dp & 02833 * t2081 * t6252 * t2077 + t5786 + t5789 + t5792 - t5795 - 0.4444444445e0_dp & 02834 * t5797 - t6087 - 0.8333333335e-1_dp * t429 * t166 * t6400 & 02835 - t6090 + t6094 02836 t6499 = t6099 + 0.1666666667e0_dp * t165 * t166 * t6375 + t6102 + 0.1666666667e0_dp & 02837 * t165 * t56 * t6291 * t140 + t6106 - t6109 + t6112 - t6116 & 02838 + t6119 - t6123 + t6126 - t6129 02839 t6509 = t4853 * t65 02840 t6529 = 0.4999999999e0_dp * t5875 - 0.5000000001e0_dp * t5244 * t2095 - 0.5000000001e0_dp & 02841 * t732 * t6509 + t5880 + 0.1000000000e1_dp * t649 * t471 & 02842 * t2099 - 0.1620000000e3_dp * t5247 * t2992 * t4733 * t6249 - 0.5555555558e-1_dp & 02843 * t5885 + 0.8999999998e1_dp * t140 * t2992 * t4701 * t59 * & 02844 t62 * t2027 - 0.5000000001e0_dp * t5888 - t5891 - 0.1800000000e2_dp * t2118 & 02845 * t6271 02846 t6539 = t5898 + t5902 - t5905 + 0.8999999998e1_dp * t5908 - t5913 + 0.2000000000e1_dp & 02847 * t2098 * t2095 * t561 - 0.5000000001e0_dp * t5918 - t5922 & 02848 + 0.3333333334e0_dp * t6283 * t187 * t177 * t65 + t5925 - t5929 02849 t6554 = -t5932 - 0.5555555558e-1_dp * t5938 + 0.666666666e0_dp * t6283 * & 02850 t722 * t177 * t65 - t5942 + 0.8999999998e1_dp * t2124 * t59 * t177 * & 02851 t710 + 0.1000000001e1_dp * t5944 - 0.5000000001e0_dp * t2061 * t177 * t709 & 02852 + t5949 + t5952 + t5954 - t5958 02853 t6557 = t1447 * t59 02854 t6569 = -t5960 - 0.5000000001e0_dp * t5237 * t2095 + t5963 - 0.4500000000e1_dp & 02855 * t5256 * t6557 * t710 - 0.5555555558e-1_dp * t5964 - 0.1111111112e0_dp & 02856 * t5966 - t5971 - 0.1200000000e2_dp * t2118 * t6253 - 0.5555555558e-1_dp & 02857 * t719 * t2126 - t5973 + t5975 + 0.5999999999e1_dp * t2114 * t6257 02858 t6583 = -t5977 - t5985 + t5994 - 0.5000000001e0_dp * t716 * t6509 + t5996 & 02859 - t6000 + t6002 + 0.8999999998e1_dp * t6004 + 0.1000000000e1_dp * t2098 & 02860 * t4908 * t237 - 0.1000000001e1_dp * t723 * t6509 - 0.1800000000e2_dp & 02861 * t5228 * t2117 * t2028 02862 t6596 = t5247 * t1141 * t4733 02863 t6603 = -0.5555555558e-1_dp * t6006 - t6009 - t6017 - 0.5555555558e-1_dp & 02864 * t58 * t6375 * t71 + t6019 - 0.9000000007e1_dp * t5262 * t6557 * t710 & 02865 + 0.8999999998e1_dp * t708 * t62 * t6509 + 0.3333333334e0_dp * t6021 + & 02866 t6025 + 0.8099999996e2_dp * t6596 * t6268 + 0.5399999998e2_dp * t6596 * & 02867 t6260 + 0.8999999998e1_dp * t5229 * t2104 02868 t6611 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 02869 - t5825 - t5828 - t5830 + t5833 02870 t6620 = t5835 + t5838 + t5841 - t5845 + t5848 - 0.1800000000e2_dp * t5850 & 02871 - t5854 + t5857 + t5861 - t5864 - 0.1800000000e2_dp * t473 * t20 & 02872 * t2061 * t561 + 0.8999999998e1_dp * t178 * t62 * t6375 02873 t6621 = t6611 + t6620 02874 t6630 = -0.3000000000e1_dp * t5256 * t4904 * t237 + 0.5999999999e1_dp * t5228 & 02875 * t2113 * t2032 + t6621 * t65 - t6031 - 0.4050000000e2_dp * t471 & 02876 * t187 * t6557 * t710 - t6033 - t6036 - t6040 + t6042 - 0.5000000001e0_dp & 02877 * t60 * t2124 * t709 - t6044 02878 t6640 = -t6047 - 0.5000000001e0_dp * t6049 - 0.5555555558e-1_dp * t192 * & 02879 t68 * t6621 * t65 - 0.5000000001e0_dp * t6053 - t6056 - t6058 + 0.5850000000e2_dp & 02880 * t6060 + t6063 + 0.3333333334e0_dp * t6066 + t6074 - 0.1000000001e1_dp & 02881 * t6075 - t6078 02882 t6658 = 0.1800000000e2_dp * t658 * t2035 * t673 - 0.8333333335e-1_dp * t429 & 02883 * t2088 * t593 + t6132 + 0.3333333334e0_dp * t55 * t57 * (t6529 + & 02884 t6539 + t6554 + t6569 + t6583 + t6603 + t6630 + t6640) - t6136 - 0.8333333335e-1_dp & 02885 * t6138 + 0.1800000000e2_dp * t6141 + 0.1080000000e3_dp * & 02886 t4995 * t4743 * t2077 + 0.1080000000e3_dp * t657 * t1142 * t4760 * t2082 & 02887 + 0.1666666667e0_dp * t6144 + t6155 - t6158 + (2 * t6160) 02888 t6665 = -0.3333333336e0_dp * t83 * t45 * t6339 * t140 - t6198 - 0.3333333336e0_dp & 02889 * t83 * t2050 * t649 - t6201 + t6207 - t6210 - t6213 + t6216 & 02890 + t6219 - 0.1666666668e0_dp * t289 * t2050 * t593 - 0.1666666668e0_dp & 02891 * t289 * t84 * t6400 + t6222 - 0.2222222224e0_dp * t144 * t46 * (t6415 & 02892 + t6442 + t6451 + t6461 + t6479 + t6490 + t6499 + t6658) 02893 t6669 = -t4704 - t4707 - t4732 + t4793 - t4796 - t4800 - t4804 - t4861 & 02894 - 0.6666666672e0_dp * t4864 - t4869 - t4812 - t4857 - t4789 - t4808 & 02895 - 0.6666666672e0_dp * t217 * t46 * t2046 * t561 - 0.4444444448e0_dp * & 02896 t43 * t46 * t6339 + t8 * (t6344 + t6380 + t6389 + t6665) 02897 e_ndrho_ndrho_ndrho(ii) = e_ndrho_ndrho_ndrho(ii) + t6669 * sx 02898 END IF 02899 02900 END IF 02901 END DO 02902 !$omp end do 02903 END IF 02904 END SUBROUTINE xb88_lr_adiabatic_lda_calc 02905 02906 ! ***************************************************************************** 02915 SUBROUTINE xb88_lr_adiabatic_lsd_eval(rho_set,deriv_set,grad_deriv,xb88_lr_ad_params,error) 02916 TYPE(xc_rho_set_type), POINTER :: rho_set 02917 TYPE(xc_derivative_set_type), POINTER :: deriv_set 02918 INTEGER, INTENT(in) :: grad_deriv 02919 TYPE(section_vals_type), POINTER :: xb88_lr_ad_params 02920 TYPE(cp_error_type), INTENT(inout) :: error 02921 02922 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lsd_eval', 02923 routineP = moduleN//':'//routineN 02924 02925 INTEGER :: handle, i, ispin, npoints, 02926 stat 02927 INTEGER, DIMENSION(:, :), POINTER :: bo 02928 LOGICAL :: failure 02929 REAL(kind=dp) :: epsilon_rho, lambda, omega, sx 02930 REAL(kind=dp), DIMENSION(:, :, :), 02931 POINTER :: dummy, e_0 02932 TYPE(cp_3d_r_p_type), DIMENSION(2) :: e_ndrho, e_ndrho_ndrho, 02933 e_ndrho_ndrho_ndrho, e_ndrho_ndrho_rho, e_ndrho_rho, e_ndrho_rho_rho, 02934 e_rho, e_rho_rho, e_rho_rho_rho, norm_drho, rho 02935 TYPE(xc_derivative_type), POINTER :: deriv 02936 02937 CALL timeset(routineN,handle) 02938 02939 CALL cite_reference(Becke1988) 02940 02941 failure=.FALSE. 02942 NULLIFY(deriv, bo) 02943 DO i=1,2 02944 NULLIFY(norm_drho(i)%array, rho(i)%array) 02945 END DO 02946 02947 CALL section_vals_val_get(xb88_lr_ad_params,"SCALE_X",r_val=sx,error=error) 02948 CALL section_vals_val_get(xb88_lr_ad_params, "OMEGA",r_val=omega, error=error) 02949 CALL section_vals_val_get(xb88_lr_ad_params, "LAMBDA",r_val=lambda, error=error) 02950 02951 CPPrecondition(ASSOCIATED(rho_set),cp_failure_level,routineP,error,failure) 02952 CPPrecondition(rho_set%ref_count>0,cp_failure_level,routineP,error,failure) 02953 CPPrecondition(ASSOCIATED(deriv_set),cp_failure_level,routineP,error,failure) 02954 CPPrecondition(deriv_set%ref_count>0,cp_failure_level,routineP,error,failure) 02955 IF (.NOT. failure) THEN 02956 CALL xc_rho_set_get(rho_set,& 02957 rhoa=rho(1)%array,& 02958 rhob=rho(2)%array,norm_drhoa=norm_drho(1)%array, & 02959 norm_drhob=norm_drho(2)%array,rho_cutoff=epsilon_rho,& 02960 local_bounds=bo, error=error) 02961 npoints=(bo(2,1)-bo(1,1)+1)*(bo(2,2)-bo(1,2)+1)*(bo(2,3)-bo(1,3)+1) 02962 02963 ! meaningful default for the arrays we don't need: let us make compiler 02964 ! and debugger happy... 02965 IF (cp_debug) THEN 02966 ALLOCATE(dummy(bo(1,1):bo(2,1),bo(1,2):bo(2,2),bo(1,3):bo(2,3)),stat=stat) 02967 CPPostcondition(stat==0,cp_failure_level,routineP,error,failure) 02968 ELSE 02969 dummy=> rho(1)%array 02970 END IF 02971 02972 e_0=>dummy 02973 DO i=1,2 02974 e_rho(i)%array => dummy 02975 e_ndrho(i)%array => dummy 02976 e_rho_rho(i)%array => dummy 02977 e_ndrho_rho(i)%array => dummy 02978 e_ndrho_ndrho(i)%array => dummy 02979 e_rho_rho_rho(i)%array => dummy 02980 e_ndrho_rho_rho(i)%array => dummy 02981 e_ndrho_ndrho_rho(i)%array => dummy 02982 e_ndrho_ndrho_ndrho(i)%array => dummy 02983 END DO 02984 02985 IF (grad_deriv>=0) THEN 02986 deriv => xc_dset_get_derivative(deriv_set,"",& 02987 allocate_deriv=.TRUE., error=error) 02988 CALL xc_derivative_get(deriv, deriv_data=e_0,error=error) 02989 END IF 02990 IF (grad_deriv>=1.OR.grad_deriv==-1) THEN 02991 deriv => xc_dset_get_derivative(deriv_set,"(rhoa)",& 02992 allocate_deriv=.TRUE.,error=error) 02993 CALL xc_derivative_get(deriv,deriv_data=e_rho(1)%array,error=error) 02994 deriv => xc_dset_get_derivative(deriv_set,"(rhob)",& 02995 allocate_deriv=.TRUE.,error=error) 02996 CALL xc_derivative_get(deriv,deriv_data=e_rho(2)%array,error=error) 02997 deriv => xc_dset_get_derivative(deriv_set,"(norm_drhoa)",& 02998 allocate_deriv=.TRUE.,error=error) 02999 CALL xc_derivative_get(deriv,deriv_data=e_ndrho(1)%array,error=error) 03000 deriv => xc_dset_get_derivative(deriv_set,"(norm_drhob)",& 03001 allocate_deriv=.TRUE.,error=error) 03002 CALL xc_derivative_get(deriv,deriv_data=e_ndrho(2)%array,error=error) 03003 END IF 03004 IF (grad_deriv>=2.OR.grad_deriv==-2) THEN 03005 deriv => xc_dset_get_derivative(deriv_set,"(rhoa)(rhoa)",& 03006 allocate_deriv=.TRUE.,error=error) 03007 CALL xc_derivative_get(deriv,deriv_data=e_rho_rho(1)%array,error=error) 03008 deriv => xc_dset_get_derivative(deriv_set,"(rhob)(rhob)",& 03009 allocate_deriv=.TRUE.,error=error) 03010 CALL xc_derivative_get(deriv,deriv_data=e_rho_rho(2)%array,error=error) 03011 deriv => xc_dset_get_derivative(deriv_set,"(norm_drhoa)(rhoa)",& 03012 allocate_deriv=.TRUE.,error=error) 03013 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_rho(1)%array,error=error) 03014 deriv => xc_dset_get_derivative(deriv_set,"(norm_drhob)(rhob)",& 03015 allocate_deriv=.TRUE.,error=error) 03016 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_rho(2)%array,error=error) 03017 deriv => xc_dset_get_derivative(deriv_set,& 03018 "(norm_drhoa)(norm_drhoa)", allocate_deriv=.TRUE.,error=error) 03019 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho(1)%array,error=error) 03020 deriv => xc_dset_get_derivative(deriv_set,& 03021 "(norm_drhob)(norm_drhob)", allocate_deriv=.TRUE.,error=error) 03022 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho(2)%array,error=error) 03023 END IF 03024 IF (grad_deriv>=3.OR.grad_deriv==-3) THEN 03025 deriv => xc_dset_get_derivative(deriv_set,"(rhoa)(rhoa)(rhoa)",& 03026 allocate_deriv=.TRUE.,error=error) 03027 CALL xc_derivative_get(deriv,deriv_data=e_rho_rho_rho(1)%array,error=error) 03028 deriv => xc_dset_get_derivative(deriv_set,"(rhob)(rhob)(rhob)",& 03029 allocate_deriv=.TRUE.,error=error) 03030 CALL xc_derivative_get(deriv,deriv_data=e_rho_rho_rho(2)%array,error=error) 03031 deriv => xc_dset_get_derivative(deriv_set,& 03032 "(norm_drhoa)(rhoa)(rhoa)",allocate_deriv=.TRUE.,error=error) 03033 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_rho_rho(1)%array,error=error) 03034 deriv => xc_dset_get_derivative(deriv_set,& 03035 "(norm_drhob)(rhob)(rhob)",allocate_deriv=.TRUE.,error=error) 03036 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_rho_rho(2)%array,error=error) 03037 deriv => xc_dset_get_derivative(deriv_set,& 03038 "(norm_drhoa)(norm_drhoa)(rhoa)",allocate_deriv=.TRUE.,error=error) 03039 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho_rho(1)%array,error=error) 03040 deriv => xc_dset_get_derivative(deriv_set,& 03041 "(norm_drhob)(norm_drhob)(rhob)",allocate_deriv=.TRUE.,error=error) 03042 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho_rho(2)%array,error=error) 03043 deriv => xc_dset_get_derivative(deriv_set,& 03044 "(norm_drhoa)(norm_drhoa)(norm_drhoa)", allocate_deriv=.TRUE.,& 03045 error=error) 03046 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho_ndrho(1)%array,error=error) 03047 deriv => xc_dset_get_derivative(deriv_set,& 03048 "(norm_drhob)(norm_drhob)(norm_drhob)", allocate_deriv=.TRUE.,& 03049 error=error) 03050 CALL xc_derivative_get(deriv,deriv_data=e_ndrho_ndrho_ndrho(2)%array,error=error) 03051 END IF 03052 IF (grad_deriv>3.OR.grad_deriv<-3) THEN 03053 CALL cp_unimplemented_error(fromWhere=routineP, & 03054 message="derivatives bigger than 3 not implemented", & 03055 error=error, error_level=cp_failure_level) 03056 END IF 03057 03058 DO ispin=1,2 03059 03060 !$omp parallel default(none) & 03061 !$omp shared(rho, ispin, norm_drho, e_0, e_rho, e_ndrho) & 03062 !$omp shared(e_rho_rho, e_ndrho_rho, e_ndrho_ndrho) & 03063 !$omp shared(e_rho_rho_rho, e_ndrho_rho_rho) & 03064 !$omp shared(e_ndrho_ndrho_rho, e_ndrho_ndrho_ndrho) & 03065 !$omp shared(grad_deriv, npoints, epsilon_rho, sx, omega) & 03066 !$omp shared(lambda, error) 03067 03068 CALL xb88_lr_adiabatic_lsd_calc(& 03069 rho_spin=rho(ispin)%array,& 03070 norm_drho_spin=norm_drho(ispin)%array,& 03071 e_0=e_0,& 03072 e_rho_spin=e_rho(ispin)%array,& 03073 e_ndrho_spin=e_ndrho(ispin)%array,& 03074 e_rho_rho_spin=e_rho_rho(ispin)%array,& 03075 e_ndrho_rho_spin=e_ndrho_rho(ispin)%array,& 03076 e_ndrho_ndrho_spin=e_ndrho_ndrho(ispin)%array,& 03077 e_rho_rho_rho_spin=e_rho_rho_rho(ispin)%array,& 03078 e_ndrho_rho_rho_spin=e_ndrho_rho_rho(ispin)%array,& 03079 e_ndrho_ndrho_rho_spin=e_ndrho_ndrho_rho(ispin)%array,& 03080 e_ndrho_ndrho_ndrho_spin=e_ndrho_ndrho_ndrho(ispin)%array,& 03081 grad_deriv=grad_deriv, npoints=npoints,& 03082 epsilon_rho=epsilon_rho, & 03083 sx=sx, omega=omega, lambda=lambda, & 03084 error=error) 03085 03086 !$omp end parallel 03087 03088 END DO 03089 03090 IF (cp_debug) THEN 03091 DEALLOCATE(dummy,stat=stat) 03092 CPPostconditionNoFail(stat==0,cp_warning_level,routineP,error) 03093 ELSE 03094 NULLIFY(dummy) 03095 END IF 03096 END IF 03097 CALL timestop(handle) 03098 03099 END SUBROUTINE xb88_lr_adiabatic_lsd_eval 03100 03101 ! ***************************************************************************** 03115 SUBROUTINE xb88_lr_adiabatic_lsd_calc(rho_spin, norm_drho_spin,e_0,& 03116 e_rho_spin,e_ndrho_spin,e_rho_rho_spin,e_ndrho_rho_spin,& 03117 e_ndrho_ndrho_spin, e_rho_rho_rho_spin, e_ndrho_rho_rho_spin,& 03118 e_ndrho_ndrho_rho_spin,& 03119 e_ndrho_ndrho_ndrho_spin,grad_deriv,npoints,epsilon_rho, sx,& 03120 omega, lambda, error) 03121 REAL(kind=dp), DIMENSION(*), INTENT(in) :: rho_spin, norm_drho_spin 03122 REAL(kind=dp), DIMENSION(*), INTENT(inout) :: e_0, e_rho_spin, 03123 e_ndrho_spin, e_rho_rho_spin, e_ndrho_rho_spin, e_ndrho_ndrho_spin, 03124 e_rho_rho_rho_spin, e_ndrho_rho_rho_spin, e_ndrho_ndrho_rho_spin, 03125 e_ndrho_ndrho_ndrho_spin 03126 INTEGER, INTENT(in) :: grad_deriv, npoints 03127 REAL(kind=dp), INTENT(in) :: epsilon_rho, sx, omega, lambda 03128 TYPE(cp_error_type), INTENT(inout) :: error 03129 03130 CHARACTER(len=*), PARAMETER :: routineN = 'xb88_lr_adiabatic_lsd_calc', 03131 routineP = moduleN//':'//routineN 03132 03133 INTEGER :: ii 03134 LOGICAL :: failure 03135 REAL(kind=dp) :: Cx, epsilon_rho43, my_epsilon_rho, ndrho, rho, t1, t10, 03136 t1000, t1002, t1004, t1008, t1012, t1014, t1019, t102, t1021, t1024, 03137 t1026, t103, t1030, t1033, t1034, t1036, t104, t1040, t1044, t1046, 03138 t105, t1050, t1054, t1055, t1056, t1058, t1059, t106, t1060, t1063, 03139 t1064, t1067, t1068, t107, t1071, t1076, t1079, t108, t1082, t1085, 03140 t1089, t1093, t1097, t1099, t11, t1100, t1101, t1106, t1109, t1111, 03141 t1119, t112, t1122, t1125, t1126, t1129, t1134, t1137, t114, t1140, 03142 t1141, t1142, t1143, t115, t1150, t1157, t116, t1161, t1168, t1172, 03143 t1176, t1189, t119, t1191, t1192, t1193, t1194, t12, t1200, t1201, t1206 03144 REAL(kind=dp) :: t1207, t1210, t1213, t1216, t122, t1221, t1224, t123, 03145 t1235, t1238, t1239, t1246, t1247, t1254, t126, t1264, t1268, t1275, 03146 t1283, t1284, t1288, t1292, t13, t130, t1300, t1301, t1302, t1309, 03147 t131, t1316, t132, t1320, t133, t1333, t1340, t1347, t1348, t136, 03148 t1360, t1367, t1368, t137, t1372, t1373, t1377, t1387, t1388, t1392, 03149 t1396, t1397, t14, t140, t1401, t1406, t1408, t1409, t141, t1410, 03150 t1411, t1413, t1417, t1420, t1425, t1426, t1429, t1436, t1438, t1439, 03151 t144, t1440, t1443, t1444, t1447, t145, t1451, t1455, t1459, t146, 03152 t1466, t147, t1470, t1471, t1476, t1479, t1482, t1483, t1485, t1489, 03153 t149 03154 REAL(kind=dp) :: t1492, t1493, t1496, t1498, t15, t150, t1500, t1502, 03155 t1504, t1505, t1506, t1507, t1509, t151, t1510, t1512, t1513, t1515, 03156 t1517, t1518, t1519, t1523, t1525, t1528, t1530, t1531, t1535, t1536, 03157 t1541, t1543, t1545, t1546, t1547, t1549, t155, t1552, t1553, t1556, 03158 t1557, t156, t1560, t1563, t1564, t1565, t1568, t1570, t1571, t1574, 03159 t1575, t1577, t1579, t1581, t1582, t1584, t1586, t1588, t1589, t1591, 03160 t1592, t1594, t1596, t1597, t1598, t1599, t16, t160, t1601, t1602, 03161 t1603, t1605, t1607, t1608, t161, t1610, t1611, t1613, t1615, t1616, 03162 t1617, t1618, t1620, t1621, t1622, t1624, t1625, t1626, t1628, t1630 03163 REAL(kind=dp) :: t1631, t1632, t1634, t1636, t1638, t164, t1640, t1642, 03164 t1644, t1645, t1647, t1649, t165, t1652, t1654, t1656, t1658, t166, 03165 t1660, t1662, t1664, t1667, t1669, t1671, t1675, t1677, t1679, t1680, 03166 t1681, t1684, t1685, t1688, t1689, t1693, t1694, t1696, t1699, t17, 03167 t170, t1700, t1702, t1703, t1705, t1706, t1708, t1709, t171, t1712, 03168 t1714, t1715, t1717, t1718, t1719, t172, t1720, t1722, t1724, t1726, 03169 t1728, t1730, t1731, t1735, t1737, t1740, t1741, t1743, t1745, t1748, 03170 t1752, t1754, t1755, t1757, t1758, t176, t1760, t1762, t1763, t1765, 03171 t1766, t1768, t1769, t177, t1773, t1774, t1776, t1777, t1779, t178 03172 REAL(kind=dp) :: t1782, t1784, t1785, t1787, t1789, t1790, t1794, t1795, 03173 t1797, t18, t1800, t1801, t1804, t1807, t1810, t1811, t1814, t1817, 03174 t182, t1821, t1822, t1824, t1825, t1828, t1829, t183, t1832, t1835, 03175 t1836, t1837, t1838, t1842, t1843, t1849, t1852, t1854, t1858, t1861, 03176 t1864, t1865, t1868, t187, t1871, t1874, t1875, t1878, t1881, t1884, 03177 t1885, t1886, t189, t1891, t1892, t1895, t1898, t19, t1901, t1902, 03178 t1905, t1908, t1912, t1914, t1917, t192, t1920, t1923, t1924, t1925, 03179 t1928, t1932, t1938, t1939, t194, t1940, t1943, t1946, t195, t1952, 03180 t1954, t1958, t196, t1961, t1962, t1965, t1966, t1969, t1971, t1972 03181 REAL(kind=dp) :: t1973, t1974, t1975, t1977, t1980, t1981, t1984, t1987, 03182 t1988, t199, t1991, t1994, t1997, t20, t200, t2000, t2001, t2002, 03183 t2006, t2009, t2013, t2014, t2018, t2022, t2027, t2028, t203, t2031, 03184 t2032, t2035, t2042, t2046, t2050, t2054, t2057, t2058, t2061, t207, 03185 t2073, t2074, t2077, t2081, t2082, t2086, t2088, t2095, t2098, t2099, 03186 t2104, t2107, t2113, t2114, t2117, t2118, t2124, t2126, t2130, t2131, 03187 t2138, t2139, t214, t2143, t2147, t2160, t2169, t217, t218, t2182, 03188 t2183, t2187, t219, t2190, t2193, t2196, t2197, t22, t220, t2200, 03189 t2201, t2204, t2205, t221, t2220, t2226, t2227, t2230, t224, t225, t2257 03190 REAL(kind=dp) :: t2261, t2264, t2268, t2272, t2274, t2276, t2279, t2280, 03191 t2281, t2282, t2285, t2287, t2292, t2295, t2296, t2299, t23, t230, 03192 t2300, t2304, t2307, t2308, t2311, t2312, t2319, t2326, t233, t234, 03193 t2351, t2368, t237, t2378, t2382, t2392, t24, t2404, t2418, t2424, 03194 t2437, t2439, t245, t2451, t2455, t2468, t2480, t249, t2492, t25, t250, 03195 t2537, t2552, t2565, t2569, t2576, t2585, t26, t260, t2611, t262, 03196 t2621, t2622, t2631, t2635, t2636, t264, t2645, t2655, t266, t267, 03197 t268, t27, t2707, t271, t2720, t2724, t2732, t274, t275, t2759, t2763, 03198 t2779, t278, t2783, t2808, t2816, t282, t2821, t2823, t283, t2833 03199 REAL(kind=dp) :: t2843, t2853, t2869, t2873, t2877, t2885, t289, t290, 03200 t2935, t2937, t294, t295, t298, t299, t2992, t2994, t2998, t302, t3026, 03201 t3030, t306, t3069, t307, t3070, t308, t3085, t309, t3093, t3097, 03202 t3098, t31, t311, t3129, t313, t3141, t316, t317, t318, t3181, t321, 03203 t322, t3232, t3244, t3248, t326, t3262, t3264, t3268, t327, t3278, 03204 t328, t3288, t329, t3291, t3305, t3306, t3314, t332, t3329, t3339, 03205 t3344, t3347, t3352, t3353, t3356, t3357, t336, t3362, t3363, t3366, 03206 t3378, t3379, t3382, t339, t341, t342, t343, t3449, t3453, t347, t3472, 03207 t3491, t3494, t3497, t35, t350, t3501, t3505, t3507, t3512, t3513 03208 REAL(kind=dp) :: t3514, t352, t3525, t3533, t3543, t3546, t3547, t3552, 03209 t3553, t356, t3561, t3569, t357, t3575, t3576, t3580, t3581, t36, t360, 03210 t3608, t3618, t362, t365, t366, t3668, t367, t3673, t3674, t3677, 03211 t3679, t368, t3682, t37, t371, t3711, t372, t3726, t375, t3750, t376, 03212 t3763, t379, t3794, t3796, t380, t3826, t3827, t383, t384, t3842, 03213 t3849, t3853, t3861, t3865, t3869, t387, t3871, t3875, t3892, t3918, 03214 t392, t3925, t393, t3933, t3939, t394, t3940, t3965, t3969, t3975, 03215 t3979, t398, t3985, t399, t4, t40, t400, t401, t4010, t4018, t4025, 03216 t4032, t405, t406, t4070, t4079, t41, t4101, t4108, t413, t4140, t4156 03217 REAL(kind=dp) :: t417, t42, t4201, t4214, t4230, t424, t425, t4255, 03218 t4256, t4261, t4272, t428, t429, t4292, t43, t4317, t433, t4345, t4352, 03219 t437, t4378, t4392, t44, t4428, t444, t445, t446, t4466, t4498, t45, 03220 t450, t4505, t451, t4512, t4545, t455, t4553, t4575, t4585, t46, t4607, 03221 t462, t4627, t4657, t466, t4696, t47, t470, t4700, t4701, t4704, t4707, 03222 t4708, t471, t4713, t4714, t4717, t472, t4721, t4725, t4726, t4729, 03223 t473, t4732, t4733, t4734, t4736, t4738, t4739, t474, t4743, t4744, 03224 t4748, t4760, t4764, t4768, t4769, t4770, t4771, t4772, t4776, t478, 03225 t4782, t4786, t4789, t479, t4790, t4793, t4796, t4797, t48 03226 REAL(kind=dp) :: t4800, t4801, t4804, t4808, t4812, t4817, t4820, t4829, 03227 t4830, t4833, t4834, t4837, t4838, t4849, t4850, t4853, t4857, t4861, 03228 t4864, t4869, t4872, t4874, t4878, t4881, t4884, t4887, t4889, t489, 03229 t4893, t4895, t4897, t4898, t49, t4901, t4904, t4905, t4907, t4908, 03230 t4909, t4911, t4915, t4917, t4918, t4920, t4922, t4925, t4929, t4932, 03231 t4935, t4940, t4941, t4943, t4945, t4946, t4951, t4952, t4955, t4958, 03232 t496, t498, t4994, t4995, t50, t500, t5001, t5002, t5005, t5008, t5009, 03233 t5011, t5013, t5016, t5019, t5022, t5025, t5028, t5029, t503, t5032, 03234 t5035, t5036, t5040, t5043, t5044, t5047, t5050, t5051, t5060 03235 REAL(kind=dp) :: t5065, t5069, t5079, t508, t5083, t5087, t5106, t5108, 03236 t511, t5115, t5118, t512, t5122, t5123, t5126, t5139, t5143, t5147, 03237 t515, t516, t5163, t517, t5170, t5174, t520, t5226, t5228, t5229, 03238 t5237, t5244, t5247, t5251, t5256, t526, t5262, t527, t5270, t5271, 03239 t5276, t5280, t5281, t5284, t5291, t5294, t5295, t5298, t53, t530, 03240 t5301, t5303, t5305, t5308, t531, t5311, t5314, t5317, t5320, t5323, 03241 t5326, t5329, t5330, t5333, t5335, t5338, t5339, t534, t5342, t5343, 03242 t5345, t5347, t5351, t5354, t5357, t5360, t5363, t5367, t537, t5370, 03243 t5371, t5373, t5376, t5379, t5383, t5386, t5389, t5397, t5400, t5402 03244 REAL(kind=dp) :: t5406, t5409, t541, t5412, t5415, t5418, t5421, t5423, 03245 t5426, t5429, t5430, t5432, t5436, t5440, t5443, t5446, t5449, t5451, 03246 t5454, t5456, t5459, t5460, t5462, t5466, t5468, t5469, t5472, t5474, 03247 t5478, t5480, t5482, t5484, t5487, t5489, t5492, t5494, t5496, t5499, 03248 t55, t550, t5503, t5507, t5509, t551, t5511, t5516, t5523, t5525, 03249 t5528, t5531, t5533, t5535, t5537, t5540, t5541, t5545, t5548, t5551, 03250 t5553, t5558, t5560, t5562, t5564, t5565, t5568, t557, t5572, t5574, 03251 t5575, t5579, t558, t5581, t5585, t5590, t5593, t5595, t5597, t56, 03252 t5600, t5602, t5604, t5607, t561, t5610, t5611, t5613, t5619, t5622 03253 REAL(kind=dp) :: t5625, t5628, t5631, t5632, t5635, t5638, t5641, t5643, 03254 t5647, t5650, t5653, t5657, t566, t5660, t5663, t5666, t5667, t567, 03255 t5670, t5671, t5673, t5676, t5679, t5682, t5686, t5689, t569, t5692, 03256 t5695, t5696, t5698, t5699, t57, t5701, t5705, t5713, t5716, t5719, 03257 t5722, t5724, t5728, t5731, t5734, t5738, t5741, t5742, t5745, t5749, 03258 t575, t5752, t5756, t5760, t5767, t5770, t5773, t5776, t5780, t5783, 03259 t5786, t5789, t579, t5792, t5795, t5797, t58, t5801, t5804, t5807, 03260 t5810, t5813, t5816, t5819, t5822, t5825, t5828, t5830, t5831, t5833, 03261 t5835, t5838, t5841, t5845, t5848, t585, t5850, t5854, t5857, t5861 03262 REAL(kind=dp) :: t5864, t5868, t5869, t5875, t5880, t5881, t5885, t5888, 03263 t589, t5891, t5898, t59, t590, t5902, t5905, t5908, t5911, t5913, 03264 t5918, t5922, t5925, t5926, t5929, t593, t5932, t5938, t5940, t5942, 03265 t5944, t5949, t5952, t5954, t5956, t5958, t5960, t5963, t5964, t5966, 03266 t597, t5971, t5973, t5975, t5977, t5978, t598, t5985, t5990, t5994, 03267 t5996, t6, t60, t6000, t6002, t6004, t6006, t6009, t6017, t6019, t6021, 03268 t6023, t6025, t6029, t6031, t6033, t6036, t6040, t6042, t6044, t6047, 03269 t6049, t605, t6052, t6053, t6056, t6058, t6060, t6063, t6066, t6074, 03270 t6075, t6078, t6079, t608, t6087, t609, t6090, t6091, t6094 03271 REAL(kind=dp) :: t6099, t61, t6102, t6106, t6109, t6112, t6116, t6119, 03272 t6123, t6126, t6129, t6132, t6136, t6138, t614, t6141, t6144, t615, 03273 t6155, t6158, t6160, t6162, t6170, t6173, t6175, t6179, t6181, t6185, 03274 t6186, t6189, t6192, t6194, t6198, t62, t6201, t6207, t6210, t6213, 03275 t6216, t6219, t6222, t6223, t6227, t624, t6247, t6249, t6252, t6253, 03276 t6256, t6257, t6260, t6263, t6267, t6268, t627, t6271, t628, t6281, 03277 t6283, t6290, t6291, t63, t6308, t6338, t6339, t6344, t635, t6352, 03278 t6363, t6367, t637, t6370, t6373, t6375, t6380, t6389, t640, t6400, 03279 t6415, t6428, t6433, t6442, t645, t6451, t646, t6461, t6479, t649, t6490 03280 REAL(kind=dp) :: t6499, t65, t650, t6509, t6529, t653, t6539, t6554, 03281 t6557, t6569, t657, t658, t6583, t6596, t66, t6603, t6611, t6620, 03282 t6621, t6630, t6640, t6658, t6665, t6669, t668, t67, t672, t673, t679, 03283 t68, t689, t69, t7, t70, t705, t707, t708, t709, t71, t710, t713, t716, 03284 t719, t722, t723, t728, t729, t732, t735, t739, t74, t747, t753, t754, 03285 t764, t765, t766, t769, t772, t773, t776, t777, t78, t782, t785, t786, 03286 t787, t79, t790, t792, t795, t796, t797, t8, t800, t801, t804, t815, 03287 t822, t826, t827, t83, t833, t84, t85, t851, t852, t855, t857, t859, 03288 t86, t862, t863, t864, t865, t866, t867, t87, t874, t877, t878 03289 REAL(kind=dp) :: t88, t881, t882, t886, t889, t893, t894, t897, t9, t905, 03290 t906, t907, t914, t918, t92, t922, t923, t926, t929, t93, t930, t94, 03291 t940, t941, t942, t944, t946, t949, t95, t950, t953, t954, t955, t958, 03292 t959, t962, t963, t966, t969, t97, t972, t973, t974, t975, t976, t979, 03293 t98, t980, t983, t984, t987, t99, t991, t995, t997, xx 03294 03295 failure=.FALSE. 03296 my_epsilon_rho=0.5_dp*epsilon_rho 03297 epsilon_rho43 = my_epsilon_rho**(4.0_dp/3.0_dp) 03298 Cx = 1.5_dp*(3.0_dp/4.0_dp/pi)**(1.0_dp/3.0_dp) 03299 03300 IF (.NOT. failure) THEN 03301 !$omp do 03302 DO ii=1,npoints 03303 rho=rho_spin(ii) 03304 ndrho=norm_drho_spin(ii) 03305 IF (rho>my_epsilon_rho) THEN 03306 IF( grad_deriv >=0 ) THEN 03307 t1 = rho ** (0.1e1_dp / 0.3e1_dp) 03308 xx = ndrho * MAX(1.0_dp/t1/rho,epsilon_rho43) 03309 t4 = lambda * rho 03310 t6 = ndrho ** 2 03311 t7 = beta * t6 03312 t8 = lambda ** 2 03313 t9 = t8 ** 2 03314 t10 = t9 ** 2 03315 t11 = 0.1e1_dp / t10 03316 t12 = rho ** 2 03317 t13 = t9 * t8 03318 t14 = 0.1e1_dp / t13 03319 t15 = t12 * t14 03320 t16 = t8 * lambda 03321 t17 = 0.1e1_dp / t16 03322 t18 = rho * t17 03323 t19 = t18 ** (0.1e1_dp / 0.3e1_dp) 03324 t20 = t19 ** 2 03325 t22 = 0.1e1_dp / t20 / t15 03326 t23 = t11 * t22 03327 t24 = beta * ndrho 03328 t25 = 0.1e1_dp / t9 03329 t26 = t19 * t18 03330 t27 = 0.1e1_dp / t26 03331 t31 = LOG(ndrho * t25 * t27 + SQRT((ndrho * t25 * t27) ** 0.2e1_dp + & 03332 0.1e1_dp)) 03333 t35 = 0.10e1_dp + 0.60e1_dp * t24 * t25 * t27 * t31 03334 t36 = 0.1e1_dp / t35 03335 t37 = t23 * t36 03336 t40 = 0.20e1_dp * Cx + 0.20e1_dp * t7 * t37 03337 t41 = SQRT(t40) 03338 t42 = t41 * t40 03339 t43 = t4 * t42 03340 t44 = rootpi 03341 t45 = 0.1e1_dp / t44 03342 t46 = omega * t45 03343 t47 = 0.1e1_dp / omega 03344 t48 = 0.1e1_dp / t41 03345 t49 = t47 * t48 03346 t50 = t44 * t19 03347 t53 = erf(0.3000000000e1_dp * t49 * t50) 03348 t55 = omega * t41 03349 t56 = 0.1e1_dp / t19 03350 t57 = t45 * t56 03351 t58 = omega ** 2 03352 t59 = 0.1e1_dp / t58 03353 t60 = 0.1e1_dp / t40 03354 t61 = t59 * t60 03355 t62 = pi * t20 03356 t63 = t61 * t62 03357 t65 = EXP(-0.8999999998e1_dp * t63) 03358 t66 = t58 * t40 03359 t67 = 0.1e1_dp / pi 03360 t68 = 0.1e1_dp / t20 03361 t69 = t67 * t68 03362 t70 = t65 - 0.10e1_dp 03363 t71 = t69 * t70 03364 t74 = t65 - 0.15e1_dp - 0.5555555558e-1_dp * t66 * t71 03365 t78 = t44 * t53 + 0.3333333334e0_dp * t55 * t57 * t74 03366 t79 = t46 * t78 03367 t83 = rho * t41 * omega 03368 t84 = t45 * t78 03369 t85 = t10 * lambda 03370 t86 = 0.1e1_dp / t85 03371 t87 = t86 * t22 03372 t88 = t87 * t36 03373 t92 = 0.1e1_dp / t10 / t9 03374 t93 = t7 * t92 03375 t94 = t12 * rho 03376 t95 = t94 * t86 03377 t97 = 0.1e1_dp / t20 / t95 03378 t98 = t97 * t36 03379 t99 = t98 * rho 03380 t102 = t7 * t11 03381 t103 = t35 ** 2 03382 t104 = 0.1e1_dp / t103 03383 t105 = t22 * t104 03384 t106 = t9 * lambda 03385 t107 = 0.1e1_dp / t106 03386 t108 = t107 * t27 03387 t112 = t24 * t11 03388 t114 = 0.1e1_dp / t19 / t15 03389 t115 = t114 * t31 03390 t116 = t115 * rho 03391 t119 = t24 * t25 03392 t122 = ndrho * t11 03393 t123 = t114 * rho 03394 t126 = -4 * ndrho * t107 * t27 + 4 * t122 * t123 03395 t130 = 1 + t6 * t11 * t22 03396 t131 = SQRT(t130) 03397 t132 = 0.1e1_dp / t131 03398 t133 = t27 * t126 * t132 03399 t136 = -0.240e2_dp * t24 * t108 * t31 + 0.240e2_dp * t112 * t116 + 0.60e1_dp & 03400 * t119 * t133 03401 t137 = t105 * t136 03402 t140 = -0.160e2_dp * t7 * t88 + 0.160e2_dp * t93 * t99 - 0.20e1_dp * t102 * & 03403 t137 03404 t141 = t84 * t140 03405 t144 = rho * t42 03406 t145 = SQRT(0.3141592654e1_dp) 03407 t146 = 0.1e1_dp / t145 03408 t147 = t44 * t146 03409 t149 = EXP(-0.9000000000e1_dp * t63) 03410 t150 = 0.1e1_dp / t42 03411 t151 = t47 * t150 03412 t155 = t49 * t44 03413 t156 = t68 * rho 03414 t160 = -0.1500000000e1_dp * t151 * t50 * t140 - 0.3000000000e1_dp * t155 & 03415 * t156 * t25 03416 t161 = t149 * t160 03417 t164 = omega * t48 03418 t165 = t164 * t45 03419 t166 = t56 * t74 03420 t170 = t55 * t45 03421 t171 = t27 * t74 03422 t172 = rho * t25 03423 t176 = t40 ** 2 03424 t177 = 0.1e1_dp / t176 03425 t178 = t59 * t177 03426 t182 = t61 * pi 03427 t183 = t56 * rho 03428 t187 = 0.8999999998e1_dp * t178 * t62 * t140 + 0.1800000000e2_dp * t182 * & 03429 t183 * t25 03430 t189 = t58 * t140 03431 t192 = t66 * t67 03432 t194 = 0.1e1_dp / t20 / t18 03433 t195 = t194 * t70 03434 t196 = t195 * t172 03435 t199 = t68 * t187 03436 t200 = t199 * t65 03437 t203 = t187 * t65 - 0.5555555558e-1_dp * t189 * t71 - 0.1111111112e0_dp * & 03438 t192 * t196 - 0.5555555558e-1_dp * t192 * t200 03439 t207 = (2 * t147 * t161) + 0.1666666667e0_dp * t165 * t166 * t140 & 03440 + 0.3333333334e0_dp * t170 * t171 * t172 + 0.3333333334e0_dp * t55 * t57 & 03441 * t203 03442 e_0(ii) = e_0(ii) + (-0.4444444448e0_dp * t43 * t79 + t8 * (-0.3333333336e0_dp * t83 * t141 & 03443 - 0.2222222224e0_dp * t144 * t46 * t207)) * sx 03444 END IF 03445 IF( grad_deriv >= 1 .OR. grad_deriv == -1 ) THEN 03446 t214 = lambda * t42 03447 t217 = t4 * t41 03448 t218 = t10 * t16 03449 t219 = 0.1e1_dp / t218 03450 t220 = t219 * t97 03451 t221 = t220 * t36 03452 t224 = t9 * t16 03453 t225 = 0.1e1_dp / t224 03454 t230 = t220 * t132 03455 t233 = -0.8000000000e1_dp * t24 * t225 * t114 * t31 - 0.8000000000e1_dp * & 03456 t7 * t230 03457 t234 = t105 * t233 03458 t237 = -0.5333333333e1_dp * t7 * t221 - 0.20e1_dp * t102 * t234 03459 t245 = t44 * t68 03460 t249 = -0.1500000000e1_dp * t151 * t50 * t237 + 0.1000000000e1_dp * t49 * & 03461 t245 * t17 03462 t250 = t149 * t249 03463 t260 = t178 * t62 * t237 03464 t262 = pi * t56 03465 t264 = t61 * t262 * t17 03466 t266 = 0.8999999998e1_dp * t260 - 0.5999999999e1_dp * t264 03467 t267 = t266 * t65 03468 t268 = t58 * t237 03469 t271 = t195 * t17 03470 t274 = t68 * t266 03471 t275 = t274 * t65 03472 t278 = t267 - 0.5555555558e-1_dp * t268 * t71 + 0.3703703705e-1_dp * t192 & 03473 * t271 - 0.5555555558e-1_dp * t192 * t275 03474 t282 = (2 * t147 * t250) + 0.1666666667e0_dp * t165 * t166 * t237 & 03475 - 0.1111111111e0_dp * t170 * t171 * t17 + 0.3333333334e0_dp * t55 * t57 & 03476 * t278 03477 t283 = t46 * t282 03478 t289 = rho * t48 * omega 03479 t290 = t140 * t237 03480 t294 = t45 * t282 03481 t295 = t294 * t140 03482 t298 = t92 * t97 03483 t299 = t298 * t36 03484 t302 = t7 * t86 03485 t306 = 0.1e1_dp / t10 / t224 03486 t307 = t7 * t306 03487 t308 = t12 ** 2 03488 t309 = t308 * t92 03489 t311 = 0.1e1_dp / t20 / t309 03490 t313 = t311 * t36 * rho 03491 t316 = t97 * t104 03492 t317 = rho * t233 03493 t318 = t316 * t317 03494 t321 = t7 * t219 03495 t322 = t316 * t136 03496 t326 = 0.1e1_dp / t103 / t35 03497 t327 = t22 * t326 03498 t328 = t136 * t233 03499 t329 = t327 * t328 03500 t332 = t11 * t114 03501 t336 = t298 * t132 03502 t339 = t24 * t219 03503 t341 = 0.1e1_dp / t19 / t95 03504 t342 = t341 * t31 03505 t343 = t342 * rho 03506 t347 = t311 * t132 * rho 03507 t350 = t24 * t225 03508 t352 = t114 * t126 * t132 03509 t356 = ndrho * t219 03510 t357 = t341 * rho 03511 t360 = 0.28e2_dp / 0.3e1_dp * t122 * t114 - 0.28e2_dp / 0.3e1_dp * t356 * t357 03512 t362 = t27 * t360 * t132 03513 t365 = t6 * ndrho 03514 t366 = beta * t365 03515 t367 = t308 * rho 03516 t368 = 0.1e1_dp / t367 03517 t371 = 0.1e1_dp / t131 / t130 03518 t372 = t368 * t126 * t371 03519 t375 = 0.5600000000e2_dp * t24 * t332 * t31 + 0.3200000000e2_dp * t7 * t336 & 03520 - 0.5600000000e2_dp * t339 * t343 - 0.3200000000e2_dp * t307 * t347 - & 03521 0.8000000000e1_dp * t350 * t352 + 0.60e1_dp * t119 * t362 + 0.8000000000e1_dp & 03522 * t366 * t372 03523 t376 = t105 * t375 03524 t379 = 0.5866666667e2_dp * t7 * t299 + 0.160e2_dp * t302 * t234 - 0.5866666667e2_dp & 03525 * t307 * t313 - 0.160e2_dp * t93 * t318 + 0.5333333333e1_dp * t321 & 03526 * t322 + 0.40e1_dp * t102 * t329 - 0.20e1_dp * t102 * t376 03527 t380 = t84 * t379 03528 t383 = t42 * omega 03529 t384 = t45 * t207 03530 t387 = t384 * t237 03531 t392 = 0.9000000000e1_dp * t260 - 0.6000000000e1_dp * t264 03532 t393 = t392 * t149 03533 t394 = t393 * t160 03534 t398 = 0.1e1_dp / t41 / t176 03535 t399 = t47 * t398 03536 t400 = t399 * t44 03537 t401 = t19 * t140 03538 t405 = t151 * t44 03539 t406 = t68 * t140 03540 t413 = t25 * t237 03541 t417 = t194 * rho 03542 t424 = 0.2250000000e1_dp * t400 * t401 * t237 - 0.5000000000e0_dp * t405 & 03543 * t406 * t17 - 0.1500000000e1_dp * t151 * t50 * t379 + 0.1500000000e1_dp & 03544 * t405 * t156 * t413 + 0.2000000000e1_dp * t155 * t417 * t225 - 0.3000000000e1_dp & 03545 * t49 * t245 * t25 03546 t425 = t149 * t424 03547 t428 = omega * t150 03548 t429 = t428 * t45 03549 t433 = t140 * t17 03550 t437 = t56 * t278 03551 t444 = t45 * t27 03552 t445 = t164 * t444 03553 t446 = t74 * rho 03554 t450 = t114 * t74 03555 t451 = rho * t225 03556 t455 = t27 * t278 03557 t462 = t56 * t203 03558 t466 = t27 * t203 03559 t470 = t176 * t40 03560 t471 = 0.1e1_dp / t470 03561 t472 = t59 * t471 03562 t473 = t472 * pi 03563 t474 = t20 * t140 03564 t478 = t178 * pi 03565 t479 = t56 * t140 03566 t489 = t27 * rho 03567 t496 = -0.1800000000e2_dp * t473 * t474 * t237 + 0.5999999999e1_dp * t478 & 03568 * t479 * t17 + 0.8999999998e1_dp * t178 * t62 * t379 - 0.1800000000e2_dp & 03569 * t478 * t183 * t413 - 0.6000000000e1_dp * t182 * t489 * t225 + 0.1800000000e2_dp & 03570 * t61 * t262 * t25 03571 t498 = t187 * t266 03572 t500 = t58 * t379 03573 t503 = t189 * t67 03574 t508 = t268 * t67 03575 t511 = t22 * t70 03576 t512 = t511 * t451 03577 t515 = t67 * t194 03578 t516 = t66 * t515 03579 t517 = t267 * t172 03580 t520 = t195 * t25 03581 t526 = t65 * t17 03582 t527 = t194 * t187 * t526 03583 t530 = t68 * t496 03584 t531 = t530 * t65 03585 t534 = t199 * t267 03586 t537 = t496 * t65 + t498 * t65 - 0.5555555558e-1_dp * t500 * t71 + 0.3703703705e-1_dp & 03587 * t503 * t271 - 0.5555555558e-1_dp * t503 * t275 - 0.1111111112e0_dp & 03588 * t508 * t196 + 0.1851851853e0_dp * t192 * t512 - 0.1111111112e0_dp & 03589 * t516 * t517 - 0.1111111112e0_dp * t192 * t520 - 0.5555555558e-1_dp & 03590 * t508 * t200 + 0.3703703705e-1_dp * t192 * t527 - 0.5555555558e-1_dp & 03591 * t192 * t531 - 0.5555555558e-1_dp * t192 * t534 03592 t541 = (2 * t147 * t394) + (2 * t147 * t425) - 0.8333333335e-1_dp & 03593 * t429 * t166 * t290 - 0.5555555557e-1_dp * t165 * t171 * t433 + & 03594 0.1666666667e0_dp * t165 * t437 * t140 + 0.1666666667e0_dp * t165 * t166 & 03595 * t379 + 0.1666666667e0_dp * t445 * t446 * t413 - 0.4444444445e0_dp * t170 & 03596 * t450 * t451 + 0.3333333334e0_dp * t170 * t455 * t172 + 0.3333333334e0_dp & 03597 * t170 * t171 * t25 + 0.1666666667e0_dp * t165 * t462 * t237 - & 03598 0.1111111111e0_dp * t170 * t466 * t17 + 0.3333333334e0_dp * t55 * t57 * & 03599 t537 03600 e_rho_spin(ii) = e_rho_spin(ii) + (-0.4444444448e0_dp * t214 * t79 - 0.6666666672e0_dp * t217 * t46 & 03601 * t78 * t237 - 0.4444444448e0_dp * t43 * t283 + t8 * (-0.3333333336e0_dp & 03602 * t55 * t141 - 0.1666666668e0_dp * t289 * t84 * t290 - 0.3333333336e0_dp & 03603 * t83 * t295 - 0.3333333336e0_dp * t83 * t380 - 0.2222222224e0_dp * t383 & 03604 * t384 - 0.3333333336e0_dp * t83 * t387 - 0.2222222224e0_dp * t144 * & 03605 t46 * t541)) * sx 03606 t550 = beta * t25 03607 t551 = t27 * t31 03608 t557 = 0.60e1_dp * t550 * t551 + 0.60e1_dp * t24 * t23 * t132 03609 t558 = t105 * t557 03610 t561 = 0.40e1_dp * t24 * t37 - 0.20e1_dp * t102 * t558 03611 t566 = pi * t146 03612 t567 = t566 * t149 03613 t569 = t151 * t19 * t561 03614 t575 = t20 * t561 03615 t579 = t58 * t561 03616 t585 = 0.8999999998e1_dp * t478 * t575 * t65 - 0.5555555558e-1_dp * t579 & 03617 * t71 - 0.5000000001e0_dp * t60 * t561 * t65 03618 t589 = -0.3000000000e1_dp * t567 * t569 + 0.1666666667e0_dp * t165 * t166 & 03619 * t561 + 0.3333333334e0_dp * t55 * t57 * t585 03620 t590 = t46 * t589 03621 t593 = t140 * t561 03622 t597 = t45 * t589 03623 t598 = t597 * t140 03624 t605 = t24 * t92 03625 t608 = rho * t557 03626 t609 = t316 * t608 03627 t614 = t136 * t557 03628 t615 = t327 * t614 03629 t624 = beta * t11 03630 t627 = t97 * t132 03631 t628 = t627 * rho 03632 t635 = -4 * t108 + 4 * t332 * rho 03633 t637 = t27 * t635 * t132 03634 t640 = 0.1e1_dp / t308 03635 t645 = -0.240e2_dp * beta * t107 * t551 - 0.240e2_dp * t24 * t87 * t132 + & 03636 0.240e2_dp * t624 * t116 + 0.240e2_dp * t605 * t628 + 0.60e1_dp * t550 * t133 & 03637 + 0.60e1_dp * t119 * t637 - 0.60e1_dp * t7 * t640 * t126 * t371 03638 t646 = t105 * t645 03639 t649 = -0.320e2_dp * t24 * t88 + 0.160e2_dp * t302 * t558 + 0.320e2_dp * t605 & 03640 * t99 - 0.160e2_dp * t93 * t609 - 0.40e1_dp * t112 * t137 + 0.40e1_dp * t102 & 03641 * t615 - 0.20e1_dp * t102 * t646 03642 t650 = t84 * t649 03643 t653 = t384 * t561 03644 t657 = t44 * pi * t146 03645 t658 = t657 * t178 03646 t668 = t25 * t561 03647 t672 = 0.2250000000e1_dp * t400 * t401 * t561 - 0.1500000000e1_dp * t151 & 03648 * t50 * t649 + 0.1500000000e1_dp * t405 * t156 * t668 03649 t673 = t149 * t672 03650 t679 = t56 * t585 03651 t689 = t27 * t585 03652 t705 = -0.1800000000e2_dp * t473 * t474 * t561 + 0.8999999998e1_dp * t178 & 03653 * t62 * t649 - 0.1800000000e2_dp * t478 * t183 * t668 03654 t707 = t187 * t59 03655 t708 = t707 * t177 03656 t709 = t561 * t65 03657 t710 = t62 * t709 03658 t713 = t58 * t649 03659 t716 = t140 * t177 03660 t719 = t579 * t67 03661 t722 = 0.1e1_dp / lambda 03662 t723 = t60 * t722 03663 t728 = t68 * t705 03664 t729 = t728 * t65 03665 t732 = t60 * t187 03666 t735 = t705 * t65 + 0.8999999998e1_dp * t708 * t710 - 0.5555555558e-1_dp & 03667 * t713 * t71 - 0.5000000001e0_dp * t716 * t709 - 0.1111111112e0_dp * t719 & 03668 * t196 - 0.1000000001e1_dp * t723 * t709 - 0.5555555558e-1_dp * t719 * & 03669 t200 - 0.5555555558e-1_dp * t192 * t729 - 0.5000000001e0_dp * t732 * t709 03670 t739 = 0.1800000000e2_dp * t658 * t575 * t161 + (2 * t147 * t673) & 03671 - 0.8333333335e-1_dp * t429 * t166 * t593 + 0.1666666667e0_dp * t165 * t679 & 03672 * t140 + 0.1666666667e0_dp * t165 * t166 * t649 + 0.1666666667e0_dp & 03673 * t445 * t446 * t668 + 0.3333333334e0_dp * t170 * t689 * t172 + 0.1666666667e0_dp & 03674 * t165 * t462 * t561 + 0.3333333334e0_dp * t55 * t57 * t735 03675 e_ndrho_spin(ii) = e_ndrho_spin(ii) + (-0.6666666672e0_dp * t217 * t46 * t78 * t561 - 0.4444444448e0_dp & 03676 * t43 * t590 + t8 * (-0.1666666668e0_dp * t289 * t84 * t593 - 0.3333333336e0_dp & 03677 * t83 * t598 - 0.3333333336e0_dp * t83 * t650 - 0.3333333336e0_dp & 03678 * t83 * t653 - 0.2222222224e0_dp * t144 * t46 * t739)) * sx 03679 END IF 03680 03681 IF( grad_deriv >= 2 .OR. grad_deriv == -2 ) THEN 03682 t747 = lambda * t41 * omega 03683 t753 = t4 * t48 03684 t754 = t237 ** 2 03685 t764 = 0.1e1_dp / t10 / t13 03686 t765 = t764 * t311 03687 t766 = t765 * t36 03688 t769 = t316 * t233 03689 t772 = t233 ** 2 03690 t773 = t327 * t772 03691 t776 = t10 * t8 03692 t777 = 0.1e1_dp / t776 03693 t782 = t765 * t132 03694 t785 = t6 ** 2 03695 t786 = beta * t785 03696 t787 = t10 ** 2 03697 t790 = t308 * t94 03698 t792 = 0.1e1_dp / t787 / t106 03699 t795 = 0.1e1_dp / t19 / t790 / t792 03700 t796 = 0.1e1_dp / t787 / t13 * t795 03701 t797 = t796 * t371 03702 t800 = 0.1866666667e2_dp * t24 * t777 * t341 * t31 + 0.4000000000e2_dp * & 03703 t7 * t782 - 0.1066666667e2_dp * t786 * t797 03704 t801 = t105 * t800 03705 t804 = 0.1955555555e2_dp * t7 * t766 + 0.1066666667e2_dp * t321 * t769 + & 03706 0.40e1_dp * t102 * t773 - 0.20e1_dp * t102 * t801 03707 t815 = t68 * t237 03708 t822 = t44 * t194 03709 t826 = 0.2250000000e1_dp * t399 * t50 * t754 - 0.1000000000e1_dp * t405 * & 03710 t815 * t17 - 0.1500000000e1_dp * t151 * t50 * t804 - 0.6666666667e0_dp & 03711 * t49 * t822 * t14 03712 t827 = t149 * t826 03713 t833 = t237 * t17 03714 t851 = 0.1800000000e2_dp * t472 * t62 * t754 03715 t852 = t56 * t237 03716 t855 = 0.1200000000e2_dp * t478 * t852 * t17 03717 t857 = t178 * t62 * t804 03718 t859 = pi * t27 03719 t862 = 0.2000000000e1_dp * t61 * t859 * t14 03720 t863 = -t851 + t855 + 0.8999999998e1_dp * t857 + t862 03721 t864 = t863 * t65 03722 t865 = t266 ** 2 03723 t866 = t865 * t65 03724 t867 = t58 * t804 03725 t874 = t511 * t14 03726 t877 = t194 * t266 03727 t878 = t877 * t526 03728 t881 = t68 * t863 03729 t882 = t881 * t65 03730 t886 = t68 * t865 * t65 03731 t889 = t864 + t866 - 0.5555555558e-1_dp * t867 * t71 + 0.7407407410e-1_dp & 03732 * t508 * t271 - 0.1111111112e0_dp * t508 * t275 - 0.6172839508e-1_dp * & 03733 t192 * t874 + 0.7407407410e-1_dp * t192 * t878 - 0.5555555558e-1_dp * t192 & 03734 * t882 - 0.5555555558e-1_dp * t192 * t886 03735 t893 = (2 * t147 * t393 * t249) + (2 * t147 * t827) - 0.8333333335e-1_dp & 03736 * t429 * t166 * t754 - 0.1111111111e0_dp * t165 * t171 * t833 & 03737 + 0.3333333334e0_dp * t165 * t437 * t237 + 0.1666666667e0_dp * t165 & 03738 * t166 * t804 + 0.1481481481e0_dp * t170 * t450 * t14 - 0.2222222222e0_dp & 03739 * t170 * t455 * t17 + 0.3333333334e0_dp * t55 * t57 * t889 03740 t894 = t46 * t893 03741 t897 = t78 * t140 03742 t905 = rho * t150 03743 t906 = t905 * omega 03744 t907 = t140 * t754 03745 t914 = t379 * t237 03746 t918 = t140 * t804 03747 t922 = t45 * t893 03748 t923 = t922 * t140 03749 t926 = t294 * t379 03750 t929 = t306 * t311 03751 t930 = t929 * t36 03752 t940 = 0.1e1_dp / t787 / t8 03753 t941 = t7 * t940 03754 t942 = t367 * t306 03755 t944 = 0.1e1_dp / t20 / t942 03756 t946 = t944 * t36 * rho 03757 t949 = t311 * t104 03758 t950 = t949 * t317 03759 t953 = t97 * t326 03760 t954 = rho * t772 03761 t955 = t953 * t954 03762 t958 = rho * t800 03763 t959 = t316 * t958 03764 t962 = t7 * t764 03765 t963 = t949 * t136 03766 t966 = t953 * t328 03767 t969 = t316 * t375 03768 t972 = t103 ** 2 03769 t973 = 0.1e1_dp / t972 03770 t974 = t22 * t973 03771 t975 = t136 * t772 03772 t976 = t974 * t975 03773 t979 = t375 * t233 03774 t980 = t327 * t979 03775 t983 = t136 * t800 03776 t984 = t327 * t983 03777 t987 = t219 * t341 03778 t991 = t929 * t132 03779 t995 = 0.1e1_dp / t787 / t224 03780 t997 = t995 * t795 * t371 03781 t1000 = t24 * t764 03782 t1002 = 0.1e1_dp / t19 / t309 03783 t1004 = t1002 * t31 * rho 03784 t1008 = t944 * t132 * rho 03785 t1012 = 0.1e1_dp / t787 / t776 03786 t1014 = t308 ** 2 03787 t1019 = 0.1e1_dp / t19 / t1014 * t787 * t10 03788 t1021 = t1019 * t371 * rho 03789 t1024 = t24 * t777 03790 t1026 = t341 * t126 * t132 03791 t1030 = t114 * t360 * t132 03792 t1033 = t308 * t12 03793 t1034 = 0.1e1_dp / t1033 03794 t1036 = t1034 * t126 * t371 03795 t1040 = ndrho * t764 03796 t1044 = -0.280e3_dp / 0.9e1_dp * t356 * t341 + 0.280e3_dp / 0.9e1_dp * t1040 * & 03797 t1002 * rho 03798 t1046 = t27 * t1044 * t132 03799 t1050 = t368 * t360 * t371 03800 t1054 = beta * t785 * ndrho 03801 t1055 = t1054 * t368 03802 t1056 = t130 ** 2 03803 t1058 = 0.1e1_dp / t131 / t1056 03804 t1059 = t126 * t1058 03805 t1060 = t1059 * t220 03806 t1063 = -0.1866666667e3_dp * t24 * t987 * t31 - 0.2240000000e3_dp * t7 * & 03807 t991 + 0.4266666667e2_dp * t786 * t997 + 0.1866666667e3_dp * t1000 * t1004 & 03808 + 0.2240000000e3_dp * t941 * t1008 - 0.4266666667e2_dp * t786 * t1012 & 03809 * t1021 + 0.1866666667e2_dp * t1024 * t1026 - 0.1600000000e2_dp * t350 & 03810 * t1030 - 0.5066666667e2_dp * t366 * t1036 + 0.60e1_dp * t119 * t1046 + & 03811 0.1600000000e2_dp * t366 * t1050 + 0.3200000000e2_dp * t1055 * t1060 03812 t1064 = t105 * t1063 03813 t1067 = -0.2737777778e3_dp * t7 * t930 - 0.1173333333e3_dp * t93 * t769 - & 03814 0.320e2_dp * t302 * t773 + 0.160e2_dp * t302 * t801 + 0.2737777778e3_dp * & 03815 t941 * t946 + 0.1173333333e3_dp * t307 * t950 + 0.320e2_dp * t93 * t955 & 03816 - 0.160e2_dp * t93 * t959 - 0.1955555555e2_dp * t962 * t963 - 0.2133333334e2_dp & 03817 * t321 * t966 + 0.1066666667e2_dp * t321 * t969 - 0.120e2_dp * t102 & 03818 * t976 + 0.80e1_dp * t102 * t980 + 0.40e1_dp * t102 * t984 - 0.20e1_dp * t102 & 03819 * t1064 03820 t1068 = t84 * t1067 03821 t1071 = t45 * t541 03822 t1076 = t384 * t754 03823 t1079 = t1071 * t237 03824 t1082 = t384 * t804 03825 t1085 = t379 * t17 03826 t1089 = t114 * t278 03827 t1093 = t25 * t804 03828 t1097 = t187 * t865 03829 t1099 = t97 * t70 03830 t1100 = rho * t777 03831 t1101 = t1099 * t1100 03832 t1106 = t500 * t67 03833 t1109 = t187 * t863 03834 t1111 = t496 * t266 03835 t1119 = t194 * t496 * t526 03836 t1122 = t199 * t866 03837 t1125 = t65 * t25 03838 t1126 = t877 * t1125 03839 t1129 = t867 * t67 03840 t1134 = t866 * t172 03841 t1137 = t268 * t515 03842 t1140 = t176 ** 2 03843 t1141 = 0.1e1_dp / t1140 03844 t1142 = t59 * t1141 03845 t1143 = t1142 * pi 03846 t1150 = t20 * t379 03847 t1157 = t27 * t140 03848 t1161 = t56 * t379 03849 t1168 = t25 * t754 03850 t1172 = t225 * t237 03851 t1176 = t56 * t25 03852 t1189 = 0.5400000000e2_dp * t1143 * t474 * t754 - 0.2400000000e2_dp * t473 & 03853 * t479 * t833 - 0.3600000000e2_dp * t473 * t1150 * t237 - 0.1800000000e2_dp & 03854 * t473 * t474 * t804 - 0.2000000000e1_dp * t478 * t1157 * t14 + & 03855 0.1200000000e2_dp * t478 * t1161 * t17 + 0.8999999998e1_dp * t178 * t62 & 03856 * t1067 + 0.3600000000e2_dp * t473 * t183 * t1168 + 0.1200000000e2_dp * & 03857 t478 * t489 * t1172 - 0.3600000000e2_dp * t478 * t1176 * t237 - 0.1800000000e2_dp & 03858 * t478 * t183 * t1093 + 0.8000000000e1_dp * t182 * t123 * & 03859 t777 - 0.1200000000e2_dp * t61 * t859 * t225 03860 t1191 = (t1097 * t65) - 0.4938271608e0_dp * t192 * t1101 - 0.6172839508e-1_dp & 03861 * t503 * t874 - 0.1111111112e0_dp * t1106 * t275 + (t1109 & 03862 * t65) + (2 * t1111 * t65) + 0.3703703706e0_dp * t508 * t512 + & 03863 0.7407407410e-1_dp * t503 * t878 + 0.7407407410e-1_dp * t192 * t1119 - 0.5555555558e-1_dp & 03864 * t192 * t1122 - 0.2222222224e0_dp * t192 * t1126 - 0.1111111112e0_dp & 03865 * t1129 * t196 - 0.5555555558e-1_dp * t503 * t882 - 0.1111111112e0_dp & 03866 * t516 * t1134 - 0.2222222224e0_dp * t1137 * t517 + (t1189 & 03867 * t65) 03868 t1192 = t67 * t22 03869 t1193 = t66 * t1192 03870 t1194 = t267 * t451 03871 t1200 = t65 * t14 03872 t1201 = t22 * t187 * t1200 03873 t1206 = t68 * t1189 03874 t1207 = t1206 * t65 03875 t1210 = t58 * t1067 03876 t1213 = t511 * t225 03877 t1216 = t864 * t172 03878 t1221 = t498 * t526 03879 t1224 = t530 * t267 03880 t1235 = t199 * t864 03881 t1238 = 0.3703703706e0_dp * t1193 * t1194 - 0.5555555558e-1_dp * t503 * t886 & 03882 - 0.6172839508e-1_dp * t192 * t1201 - 0.5555555558e-1_dp * t1129 * t200 & 03883 - 0.5555555558e-1_dp * t192 * t1207 - 0.5555555558e-1_dp * t1210 * t71 & 03884 + 0.3703703706e0_dp * t192 * t1213 - 0.1111111112e0_dp * t516 * t1216 & 03885 - 0.1111111112e0_dp * t508 * t534 + 0.7407407410e-1_dp * t516 * t1221 - & 03886 0.1111111112e0_dp * t192 * t1224 + 0.7407407410e-1_dp * t508 * t527 + 0.7407407410e-1_dp & 03887 * t1106 * t271 - 0.1111111112e0_dp * t508 * t531 - 0.2222222224e0_dp & 03888 * t508 * t520 - 0.5555555558e-1_dp * t192 * t1235 03889 t1239 = t1191 + t1238 03890 t1246 = t428 * t444 03891 t1247 = t74 * t140 03892 t1254 = t27 * t889 03893 t1264 = t27 * t537 03894 t1268 = t341 * t74 03895 t1275 = t56 * t889 03896 t1283 = -t851 + t855 + 0.9000000000e1_dp * t857 + t862 03897 t1284 = t1283 * t149 03898 t1288 = -0.1111111111e0_dp * t165 * t171 * t1085 - 0.8888888890e0_dp * t170 & 03899 * t1089 * t451 + 0.1666666667e0_dp * t445 * t446 * t1093 + 0.3333333334e0_dp & 03900 * t55 * t57 * t1239 - 0.8333333335e-1_dp * t429 * t462 * t754 & 03901 + 0.5555555556e-1_dp * t1246 * t1247 * t833 + (4 * t147 * t393 * & 03902 t424) + 0.3333333334e0_dp * t170 * t1254 * t172 - 0.1111111111e0_dp * t165 & 03903 * t466 * t833 + 0.3333333334e0_dp * t165 * t437 * t379 - 0.2222222222e0_dp & 03904 * t170 * t1264 * t17 + 0.1037037037e1_dp * t170 * t1268 * t1100 & 03905 + 0.1666666667e0_dp * t165 * t166 * t1067 + 0.1666666667e0_dp * t165 * & 03906 t1275 * t140 - 0.8333333335e-1_dp * t1246 * t446 * t1168 + (2 * & 03907 t147 * t1284 * t160) 03908 t1292 = t278 * rho 03909 t1300 = 0.1e1_dp / t41 / t470 03910 t1301 = t47 * t1300 03911 t1302 = t1301 * t44 03912 t1309 = t19 * t379 03913 t1316 = t194 * t140 03914 t1320 = t68 * t379 03915 t1333 = t68 * t25 03916 t1340 = t22 * rho 03917 t1347 = -0.5625000000e1_dp * t1302 * t401 * t754 + 0.1500000000e1_dp * t400 & 03918 * t406 * t833 + 0.4500000000e1_dp * t400 * t1309 * t237 + 0.2250000000e1_dp & 03919 * t400 * t401 * t804 + 0.3333333333e0_dp * t405 * t1316 * t14 & 03920 - 0.1000000000e1_dp * t405 * t1320 * t17 - 0.1500000000e1_dp * t151 * t50 & 03921 * t1067 - 0.2250000000e1_dp * t400 * t156 * t1168 - 0.2000000000e1_dp & 03922 * t405 * t417 * t1172 + 0.3000000000e1_dp * t405 * t1333 * t237 + 0.1500000000e1_dp & 03923 * t405 * t156 * t1093 - 0.3333333333e1_dp * t155 * t1340 & 03924 * t777 + 0.4000000000e1_dp * t49 * t822 * t225 03925 t1348 = t149 * t1347 03926 t1360 = t140 * t14 03927 t1367 = omega * t398 03928 t1368 = t1367 * t45 03929 t1372 = t45 * t114 03930 t1373 = t164 * t1372 03931 t1377 = t114 * t203 03932 t1387 = t392 ** 2 03933 t1388 = t1387 * t149 03934 t1392 = t56 * t537 03935 t1396 = 0.6666666668e0_dp * t170 * t455 * t25 + 0.3333333334e0_dp * t445 & 03936 * t1292 * t413 + 0.1666666667e0_dp * t165 * t462 * t804 + (2 * t147 & 03937 * t1348) - 0.1111111111e0_dp * t165 * t455 * t433 - 0.8333333335e-1_dp & 03938 * t429 * t166 * t918 + 0.3333333334e0_dp * t165 * t171 * t413 + 0.7407407409e-1_dp & 03939 * t165 * t450 * t1360 - 0.1666666667e0_dp * t429 * t437 & 03940 * t290 + 0.1250000000e0_dp * t1368 * t166 * t907 - 0.4444444445e0_dp * t1373 & 03941 * t446 * t1172 + 0.1481481481e0_dp * t170 * t1377 * t14 - 0.8888888890e0_dp & 03942 * t170 * t450 * t225 - 0.1666666667e0_dp * t429 * t166 * t914 & 03943 + (2 * t147 * t1388 * t160) + 0.3333333334e0_dp * t165 * t1392 & 03944 * t237 03945 t1397 = t1288 + t1396 03946 t1401 = -0.3333333336e0_dp * t165 * t897 * t237 - 0.6666666672e0_dp * t55 & 03947 * t295 - 0.6666666672e0_dp * t55 * t380 + 0.8333333340e-1_dp * t906 * t84 & 03948 * t907 - 0.3333333336e0_dp * t289 * t294 * t290 - 0.3333333336e0_dp * & 03949 t289 * t84 * t914 - 0.1666666668e0_dp * t289 * t84 * t918 - 0.3333333336e0_dp & 03950 * t83 * t923 - 0.6666666672e0_dp * t83 * t926 - 0.3333333336e0_dp & 03951 * t83 * t1068 - 0.4444444448e0_dp * t383 * t1071 - 0.6666666672e0_dp * & 03952 t55 * t387 - 0.1666666668e0_dp * t289 * t1076 - 0.6666666672e0_dp * t83 & 03953 * t1079 - 0.3333333336e0_dp * t83 * t1082 - 0.2222222224e0_dp * t144 * t46 & 03954 * t1397 03955 e_rho_rho_spin(ii) = e_rho_rho_spin(ii) + (-0.1333333334e1_dp * t747 * t84 * t237 - 0.8888888896e0_dp * t214 & 03956 * t283 - 0.3333333336e0_dp * t753 * t46 * t78 * t754 - 0.1333333334e1_dp & 03957 * t217 * t46 * t282 * t237 - 0.6666666672e0_dp * t217 * t46 * t78 * & 03958 t804 - 0.4444444448e0_dp * t43 * t894 + t8 * t1401) * sx 03959 t1406 = 0.6666666672e0_dp * t747 * t84 * t561 03960 t1408 = 0.4444444448e0_dp * t214 * t590 03961 t1409 = t4 * t164 03962 t1410 = t237 * t561 03963 t1411 = t84 * t1410 03964 t1413 = 0.3333333336e0_dp * t1409 * t1411 03965 t1417 = 0.6666666672e0_dp * t217 * t46 * t589 * t237 03966 t1420 = t316 * t557 03967 t1425 = t233 * t557 03968 t1426 = t327 * t1425 03969 t1429 = beta * t225 03970 t1436 = t1033 * t940 03971 t1438 = 0.1e1_dp / t19 / t1436 03972 t1439 = 0.1e1_dp / t787 / t16 * t1438 03973 t1440 = t1439 * t371 03974 t1443 = -0.8000000000e1_dp * t1429 * t115 - 0.2400000000e2_dp * t24 * t230 & 03975 + 0.8000000000e1_dp * t366 * t1440 03976 t1444 = t105 * t1443 03977 t1447 = -0.1066666667e2_dp * t24 * t221 + 0.5333333333e1_dp * t321 * t1420 & 03978 - 0.40e1_dp * t112 * t234 + 0.40e1_dp * t102 * t1426 - 0.20e1_dp * t102 * & 03979 t1444 03980 t1451 = 0.6666666672e0_dp * t217 * t46 * t78 * t1447 03981 t1455 = 0.6666666672e0_dp * t217 * t46 * t282 * t561 03982 t1459 = t19 * t237 03983 t1466 = t68 * t17 03984 t1470 = 0.2250000000e1_dp * t400 * t1459 * t561 - 0.1500000000e1_dp * t151 & 03985 * t50 * t1447 - 0.5000000000e0_dp * t405 * t1466 * t561 03986 t1471 = t149 * t1470 03987 t1476 = 0.8333333335e-1_dp * t429 * t166 * t1410 03988 t1479 = 0.1666666667e0_dp * t165 * t679 * t237 03989 t1482 = 0.1666666667e0_dp * t165 * t166 * t1447 03990 t1483 = t17 * t561 03991 t1485 = t165 * t171 * t1483 03992 t1489 = 0.1111111111e0_dp * t170 * t689 * t17 03993 t1492 = 0.1666666667e0_dp * t165 * t437 * t561 03994 t1493 = t20 * t237 03995 t1496 = 0.1800000000e2_dp * t473 * t1493 * t561 03996 t1498 = t178 * t62 * t1447 03997 t1500 = t56 * t17 03998 t1502 = t478 * t1500 * t561 03999 t1504 = -t1496 + 0.8999999998e1_dp * t1498 + 0.5999999999e1_dp * t1502 04000 t1505 = t1504 * t65 04001 t1506 = t266 * t59 04002 t1507 = t1506 * t177 04003 t1509 = 0.8999999998e1_dp * t1507 * t710 04004 t1510 = t58 * t1447 04005 t1512 = 0.5555555558e-1_dp * t1510 * t71 04006 t1513 = t237 * t177 04007 t1515 = 0.5000000001e0_dp * t1513 * t709 04008 t1517 = 0.3703703705e-1_dp * t719 * t271 04009 t1518 = 0.1e1_dp / rho 04010 t1519 = t60 * t1518 04011 t1523 = 0.5555555558e-1_dp * t719 * t275 04012 t1525 = t68 * t1504 * t65 04013 t1528 = t60 * t266 04014 t1530 = 0.5000000001e0_dp * t1528 * t709 04015 t1531 = t1505 + t1509 - t1512 - t1515 + t1517 + 0.3333333334e0_dp * t1519 & 04016 * t709 - t1523 - 0.5555555558e-1_dp * t192 * t1525 - t1530 04017 t1535 = 0.1800000000e2_dp * t658 * t575 * t250 + (2 * t147 * t1471) & 04018 - t1476 + t1479 + t1482 - 0.5555555555e-1_dp * t1485 - t1489 + t1492 & 04019 + 0.3333333334e0_dp * t55 * t57 * t1531 04020 t1536 = t46 * t1535 04021 t1541 = 0.1666666668e0_dp * t165 * t897 * t561 04022 t1543 = 0.3333333336e0_dp * t55 * t598 04023 t1545 = 0.3333333336e0_dp * t55 * t650 04024 t1546 = t905 * t46 04025 t1547 = t897 * t1410 04026 t1549 = 0.8333333340e-1_dp * t1546 * t1547 04027 t1552 = 0.1666666668e0_dp * t289 * t597 * t290 04028 t1553 = t649 * t237 04029 t1556 = 0.1666666668e0_dp * t289 * t84 * t1553 04030 t1557 = t140 * t1447 04031 t1560 = 0.1666666668e0_dp * t289 * t84 * t1557 04032 t1563 = 0.1666666668e0_dp * t289 * t294 * t593 04033 t1564 = t45 * t1535 04034 t1565 = t1564 * t140 04035 t1568 = t294 * t649 04036 t1570 = 0.3333333336e0_dp * t83 * t1568 04037 t1571 = t379 * t561 04038 t1574 = 0.1666666668e0_dp * t289 * t84 * t1571 04039 t1575 = t597 * t379 04040 t1577 = 0.3333333336e0_dp * t83 * t1575 04041 t1579 = 0.1173333333e3_dp * t24 * t299 04042 t1581 = 0.5866666667e2_dp * t93 * t1420 04043 t1582 = t24 * t86 04044 t1584 = 0.320e2_dp * t1582 * t234 04045 t1586 = 0.320e2_dp * t302 * t1426 04046 t1588 = 0.160e2_dp * t302 * t1444 04047 t1589 = t24 * t306 04048 t1591 = 0.1173333333e3_dp * t1589 * t313 04049 t1592 = t949 * t608 04050 t1594 = 0.5866666667e2_dp * t307 * t1592 04051 t1596 = 0.320e2_dp * t605 * t318 04052 t1597 = t7 * t298 04053 t1598 = t326 * rho 04054 t1599 = t1598 * t1425 04055 t1601 = 0.320e2_dp * t1597 * t1599 04056 t1602 = rho * t1443 04057 t1603 = t316 * t1602 04058 t1605 = 0.160e2_dp * t93 * t1603 04059 t1607 = 0.1066666667e2_dp * t339 * t322 04060 t1608 = t953 * t614 04061 t1610 = 0.1066666667e2_dp * t321 * t1608 04062 t1611 = t316 * t645 04063 t1613 = 0.5333333333e1_dp * t321 * t1611 04064 t1615 = 0.80e1_dp * t112 * t329 04065 t1616 = t7 * t23 04066 t1617 = t973 * t136 04067 t1618 = t1617 * t1425 04068 t1620 = 0.120e2_dp * t1616 * t1618 04069 t1621 = t645 * t233 04070 t1622 = t327 * t1621 04071 t1624 = 0.40e1_dp * t102 * t1622 04072 t1625 = t136 * t1443 04073 t1626 = t327 * t1625 04074 t1628 = 0.40e1_dp * t102 * t1626 04075 t1630 = 0.40e1_dp * t112 * t376 04076 t1631 = t375 * t557 04077 t1632 = t327 * t1631 04078 t1634 = 0.40e1_dp * t102 * t1632 04079 t1636 = 0.5600000000e2_dp * t624 * t115 04080 t1638 = 0.1200000000e3_dp * t24 * t336 04081 t1640 = 0.1e1_dp / t787 / t9 04082 t1642 = t1640 * t1438 * t371 04083 t1644 = 0.3200000000e2_dp * t366 * t1642 04084 t1645 = beta * t219 04085 t1647 = 0.5600000000e2_dp * t1645 * t343 04086 t1649 = 0.1200000000e3_dp * t1589 * t347 04087 t1652 = t795 * t371 * rho 04088 t1654 = 0.3200000000e2_dp * t366 * t995 * t1652 04089 t1656 = 0.8000000000e1_dp * t1429 * t352 04090 t1658 = t114 * t635 * t132 04091 t1660 = 0.8000000000e1_dp * t350 * t1658 04092 t1662 = 0.3200000000e2_dp * t7 * t372 04093 t1664 = 0.60e1_dp * t550 * t362 04094 t1667 = 0.28e2_dp / 0.3e1_dp * t332 - 0.28e2_dp / 0.3e1_dp * t987 * rho 04095 t1669 = t27 * t1667 * t132 04096 t1671 = 0.60e1_dp * t119 * t1669 04097 t1675 = 0.60e1_dp * t7 * t640 * t360 * t371 04098 t1677 = t368 * t635 * t371 04099 t1679 = 0.8000000000e1_dp * t366 * t1677 04100 t1680 = t786 * t368 04101 t1681 = t1059 * t23 04102 t1684 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 - t1660 & 04103 + t1662 + t1664 + t1671 - t1675 + t1679 - 0.2400000000e2_dp * t1680 & 04104 * t1681 04105 t1685 = t105 * t1684 04106 t1688 = t1579 - t1581 + t1584 - t1586 + t1588 - t1591 + t1594 - t1596 & 04107 + t1601 - t1605 + t1607 - t1610 + t1613 + t1615 - t1620 + t1624 & 04108 + t1628 - t1630 + t1634 - 0.20e1_dp * t102 * t1685 04109 t1689 = t84 * t1688 04110 t1693 = 0.3333333336e0_dp * t55 * t653 04111 t1694 = t45 * t739 04112 t1696 = 0.2222222224e0_dp * t383 * t1694 04113 t1699 = 0.1666666668e0_dp * t289 * t384 * t1410 04114 t1700 = t1694 * t237 04115 t1702 = 0.3333333336e0_dp * t83 * t1700 04116 t1703 = t384 * t1447 04117 t1705 = 0.3333333336e0_dp * t83 * t1703 04118 t1706 = t1071 * t561 04119 t1708 = 0.3333333336e0_dp * t83 * t1706 04120 t1709 = t187 * t1504 04121 t1712 = t266 * t561 * t65 04122 t1714 = 0.5000000001e0_dp * t732 * t1712 04123 t1715 = t713 * t67 04124 t1717 = 0.3703703705e-1_dp * t1715 * t271 04125 t1718 = t705 * t266 04126 t1719 = t1718 * t65 04127 t1720 = t140 * t266 04128 t1722 = t177 * t561 * t65 04129 t1724 = 0.5000000001e0_dp * t1720 * t1722 04130 t1726 = t194 * t705 * t526 04131 t1728 = 0.3703703705e-1_dp * t192 * t1726 04132 t1730 = 0.1111111112e0_dp * t719 * t520 04133 t1731 = t58 * t1688 04134 t1735 = 0.3703703705e-1_dp * t719 * t527 04135 t1737 = t722 * t561 * t65 04136 t1740 = t496 * t59 04137 t1741 = t1740 * t177 04138 t1743 = 0.8999999998e1_dp * t1741 * t710 04139 t1745 = t187 * t561 * t65 04140 t1748 = t140 * t1518 04141 t1752 = 0.1851851853e0_dp * t719 * t512 04142 t1754 = 0.5555555558e-1_dp * t1715 * t275 04143 t1755 = t1510 * t67 04144 t1757 = 0.1111111112e0_dp * t1755 * t196 04145 t1758 = t1709 * t65 - t1714 + t1717 + t1719 - t1724 + t1728 - t1730 & 04146 - 0.5555555558e-1_dp * t1731 * t71 + t1735 + 0.666666666e0_dp * t1519 * & 04147 t1737 + t1743 + 0.3333333334e0_dp * t1519 * t1745 + 0.3333333334e0_dp * & 04148 t1748 * t1722 + t1752 - t1754 - t1757 04149 t1760 = 0.5555555558e-1_dp * t719 * t534 04150 t1762 = 0.5555555558e-1_dp * t1755 * t200 04151 t1763 = t237 * t722 04152 t1765 = 0.1000000001e1_dp * t1763 * t1722 04153 t1766 = t237 * t187 04154 t1768 = 0.5000000001e0_dp * t1766 * t1722 04155 t1769 = t199 * t1505 04156 t1773 = 0.5555555558e-1_dp * t719 * t531 04157 t1774 = t60 * t496 04158 t1776 = 0.5000000001e0_dp * t1774 * t709 04159 t1777 = t379 * t177 04160 t1779 = 0.5000000001e0_dp * t1777 * t709 04161 t1782 = t728 * t267 04162 t1784 = 0.5555555558e-1_dp * t192 * t1782 04163 t1785 = t579 * t515 04164 t1787 = 0.1111111112e0_dp * t1785 * t517 04165 t1789 = 0.5555555558e-1_dp * t508 * t729 04166 t1790 = t1505 * t172 04167 t1794 = 0.1000000001e1_dp * t723 * t1712 04168 t1795 = t498 * t178 04169 t1797 = 0.8999999998e1_dp * t1795 * t710 04170 t1800 = 0.5400000000e2_dp * t1143 * t474 * t1410 04171 t1801 = t20 * t649 04172 t1804 = 0.1800000000e2_dp * t473 * t1801 * t237 04173 t1807 = 0.1800000000e2_dp * t473 * t474 * t1447 04174 t1810 = 0.1200000000e2_dp * t473 * t479 * t1483 04175 t1811 = t56 * t649 04176 t1814 = 0.5999999999e1_dp * t478 * t1811 * t17 04177 t1817 = 0.1800000000e2_dp * t473 * t1150 * t561 04178 t1821 = t472 * t262 04179 t1822 = t172 * t1410 04180 t1824 = 0.3600000000e2_dp * t1821 * t1822 04181 t1825 = t25 * t1447 04182 t1828 = 0.1800000000e2_dp * t478 * t183 * t1825 04183 t1829 = t225 * t561 04184 t1832 = 0.6000000000e1_dp * t478 * t489 * t1829 04185 t1835 = 0.1800000000e2_dp * t478 * t1176 * t561 04186 t1836 = t1800 - t1804 - t1807 - t1810 + t1814 - t1817 + 0.8999999998e1_dp & 04187 * t178 * t62 * t1688 + t1824 - t1828 + t1832 - t1835 04188 t1837 = t68 * t1836 04189 t1838 = t1837 * t65 04190 t1842 = -t1760 - t1762 - t1765 - t1768 - 0.5555555558e-1_dp * t192 * t1769 & 04191 - t1773 - t1776 - t1779 - 0.5555555558e-1_dp * t503 * t1525 - t1784 & 04192 - t1787 - t1789 - 0.1111111112e0_dp * t516 * t1790 - t1794 + t1797 & 04193 - 0.5555555558e-1_dp * t192 * t1838 + t1836 * t65 04194 t1843 = t1758 + t1842 04195 t1849 = 0.8333333335e-1_dp * t429 * t166 * t1571 04196 t1852 = 0.8333333335e-1_dp * t429 * t679 * t290 04197 t1854 = t165 * t466 * t1483 04198 t1858 = 0.1666666667e0_dp * t445 * t446 * t1825 04199 t1861 = 0.1800000000e2_dp * t658 * t575 * t425 04200 t1864 = 0.1666666667e0_dp * t445 * t1292 * t668 04201 t1865 = t413 * t561 04202 t1868 = 0.8333333335e-1_dp * t1246 * t446 * t1865 04203 t1871 = 2 * t147 * t393 * t672 04204 t1874 = 0.3333333334e0_dp * t170 * t689 * t25 04205 t1875 = t114 * t585 04206 t1878 = 0.4444444445e0_dp * t170 * t1875 * t451 04207 t1881 = 0.1666666667e0_dp * t165 * t437 * t649 04208 t1884 = -t1496 + 0.9000000000e1_dp * t1498 + 0.6000000000e1_dp * t1502 04209 t1885 = t1884 * t149 04210 t1886 = t1885 * t160 04211 t1891 = 0.5625000000e1_dp * t1302 * t401 * t1410 04212 t1892 = t19 * t649 04213 t1895 = 0.2250000000e1_dp * t400 * t1892 * t237 04214 t1898 = 0.2250000000e1_dp * t400 * t401 * t1447 04215 t1901 = 0.7500000000e0_dp * t400 * t406 * t1483 04216 t1902 = t68 * t649 04217 t1905 = 0.5000000000e0_dp * t405 * t1902 * t17 04218 t1908 = 0.2250000000e1_dp * t400 * t1309 * t561 04219 t1912 = t399 * t245 04220 t1914 = 0.2250000000e1_dp * t1912 * t1822 04221 t1917 = 0.1500000000e1_dp * t405 * t156 * t1825 04222 t1920 = 0.1000000000e1_dp * t405 * t417 * t1829 04223 t1923 = 0.1500000000e1_dp * t405 * t1333 * t561 04224 t1924 = -t1891 + t1895 + t1898 + t1901 - t1905 + t1908 - 0.1500000000e1_dp & 04225 * t151 * t50 * t1688 - t1914 + t1917 - t1920 + t1923 04226 t1925 = t149 * t1924 04227 t1928 = t56 * t1531 04228 t1932 = t27 * t1531 04229 t1938 = 0.1666666667e0_dp * t165 * t462 * t1447 04230 t1939 = 0.3333333334e0_dp * t55 * t57 * t1843 - t1849 - t1852 - 0.5555555555e-1_dp & 04231 * t1854 + t1858 + t1861 + t1864 - t1868 + t1871 + t1874 & 04232 - t1878 + t1881 + (2 * t147 * t1886) + (2 * t147 * t1925) & 04233 + 0.1666666667e0_dp * t165 * t1928 * t140 + 0.3333333334e0_dp * t170 * t1932 & 04234 * t172 + t1938 04235 t1940 = t27 * t735 04236 t1943 = 0.1111111111e0_dp * t170 * t1940 * t17 04237 t1946 = 0.1666666667e0_dp * t165 * t1392 * t561 04238 t1952 = 0.5555555557e-1_dp * t165 * t689 * t433 04239 t1954 = t1373 * t446 * t1829 04240 t1958 = 0.8333333335e-1_dp * t429 * t166 * t1553 04241 t1961 = 0.1666666667e0_dp * t165 * t679 * t379 04242 t1962 = t585 * rho 04243 t1965 = 0.1666666667e0_dp * t445 * t1962 * t413 04244 t1966 = t56 * t735 04245 t1969 = 0.1666666667e0_dp * t165 * t1966 * t237 04246 t1971 = t657 * t392 * t59 04247 t1972 = t177 * t20 04248 t1973 = t561 * t149 04249 t1974 = t1973 * t160 04250 t1975 = t1972 * t1974 04251 t1977 = 0.1800000000e2_dp * t1971 * t1975 04252 t1980 = 0.2777777778e-1_dp * t1246 * t1247 * t1483 04253 t1981 = t1367 * t57 04254 t1984 = 0.1250000000e0_dp * t1981 * t1247 * t1410 04255 t1987 = 0.8333333335e-1_dp * t429 * t437 * t593 04256 t1988 = t649 * t17 04257 t1991 = 0.5555555557e-1_dp * t165 * t171 * t1988 04258 t1994 = 0.8333333335e-1_dp * t429 * t166 * t1557 04259 t1997 = 0.1666666667e0_dp * t165 * t171 * t668 04260 t2000 = 0.8333333335e-1_dp * t429 * t462 * t1410 04261 t2001 = -t1943 + t1946 + 0.1666666667e0_dp * t165 * t166 * t1688 - t1952 & 04262 - 0.2222222222e0_dp * t1954 - t1958 + t1961 + t1965 + t1969 + t1977 & 04263 + t1980 + t1984 - t1987 - t1991 - t1994 + t1997 - t2000 04264 t2002 = t1939 + t2001 04265 t2006 = -t1541 - t1543 - t1545 + t1549 - t1552 - t1556 - t1560 - t1563 & 04266 - 0.3333333336e0_dp * t83 * t1565 - t1570 - t1574 - t1577 - 0.3333333336e0_dp & 04267 * t83 * t1689 - t1693 - t1696 - t1699 - t1702 - t1705 - & 04268 t1708 - 0.2222222224e0_dp * t144 * t46 * t2002 04269 e_ndrho_rho_spin(ii) = e_ndrho_rho_spin(ii) + (-t1406 - t1408 - t1413 - t1417 - t1451 - t1455 - 0.4444444448e0_dp & 04270 * t43 * t1536 + t8 * t2006) * sx 04271 t2009 = t566 * t393 04272 t2013 = t566 * t149 * t47 04273 t2014 = t398 * t19 04274 t2018 = t150 * t68 04275 t2022 = t19 * t1447 04276 t2027 = t65 * t237 04277 t2028 = t575 * t2027 04278 t2031 = t56 * t561 04279 t2032 = t2031 * t526 04280 t2035 = t20 * t1447 04281 t2042 = -0.1800000000e2_dp * t473 * t2028 + 0.5999999999e1_dp * t478 * t2032 & 04282 + 0.8999999998e1_dp * t478 * t2035 * t65 + t1509 - t1512 + t1517 & 04283 - t1523 + t1515 - 0.5000000001e0_dp * t60 * t1447 * t65 - t1530 04284 t2046 = -0.3000000000e1_dp * t2009 * t569 + 0.4500000000e1_dp * t2013 * t2014 & 04285 * t1410 - 0.1000000000e1_dp * t2013 * t2018 * t1483 - 0.3000000000e1_dp & 04286 * t567 * t151 * t2022 - t1476 - 0.5555555557e-1_dp * t1485 + t1492 & 04287 + t1482 + t1479 - t1489 + 0.3333333334e0_dp * t55 * t57 * t2042 04288 t2050 = t45 * t2046 04289 t2054 = t786 * t640 04290 t2057 = t1636 + t1638 - t1644 - t1647 - t1649 + t1654 - t1656 + t1664 & 04291 + t1662 - t1660 + t1671 + t1679 - t1675 - 0.240e2_dp * t2054 * t1060 04292 t2058 = t105 * t2057 04293 t2061 = t1579 + t1584 - t1581 - t1586 + t1588 - t1591 - t1596 + t1594 & 04294 + t1601 - t1605 + t1607 + t1615 - t1630 - t1610 - t1620 + t1634 & 04295 + t1628 + t1613 + t1624 - 0.20e1_dp * t102 * t2058 04296 t2073 = -t1891 + t1901 + t1908 + t1898 + t1895 - t1905 - 0.1500000000e1_dp & 04297 * t151 * t50 * t2061 - t1914 - t1920 + t1923 + t1917 04298 t2074 = t149 * t2073 04299 t2077 = t161 * t17 04300 t2081 = t657 * t472 04301 t2082 = t161 * t237 04302 t2086 = -t1849 - t1852 - 0.5555555557e-1_dp * t1854 + t1858 + t1861 + & 04303 t1864 - t1868 + t1871 + t1874 + 0.3333333334e0_dp * t170 * t27 * t2042 & 04304 * t172 - t1878 + (2 * t147 * t2074) + t1881 + t1938 - t1943 & 04305 + 0.1200000000e2_dp * t658 * t2031 * t2077 + t1946 - 0.3600000000e2_dp * & 04306 t2081 * t575 * t2082 04307 t2088 = t56 * t2042 04308 t2095 = t1447 * t65 04309 t2098 = t140 * t471 04310 t2099 = t709 * t237 04311 t2104 = t62 * t2095 04312 t2107 = -t1714 + t1717 + t1719 - t1724 + t1728 - 0.5000000001e0_dp * t716 & 04313 * t2095 + 0.1000000000e1_dp * t2098 * t2099 - 0.1000000001e1_dp * t723 & 04314 * t2095 - t1730 + t1735 + t1743 + 0.8999999998e1_dp * t708 * t2104 & 04315 + t1752 - t1754 - t1757 - t1760 04316 t2113 = t177 * pi 04317 t2114 = t707 * t2113 04318 t2117 = t471 * pi 04319 t2118 = t707 * t2117 04320 t2124 = t1800 - t1810 - t1817 - t1807 - t1804 + t1814 + 0.8999999998e1_dp & 04321 * t178 * t62 * t2061 + t1824 + t1832 - t1835 - t1828 04322 t2126 = t68 * t2124 * t65 04323 t2130 = -0.5000000001e0_dp * t732 * t2095 - 0.5555555558e-1_dp * t58 * t2061 & 04324 * t71 - t1762 + t1765 + t1768 + 0.5999999999e1_dp * t2114 * t2032 & 04325 - t1773 - t1776 - 0.1800000000e2_dp * t2118 * t2028 - 0.5555555558e-1_dp & 04326 * t192 * t2126 - t1779 - t1784 - t1787 - t1789 - t1794 + t1797 + & 04327 t2124 * t65 04328 t2131 = t2107 + t2130 04329 t2138 = -t1952 - 0.2222222223e0_dp * t1954 - t1958 + t1961 + t1965 + t1969 & 04330 + t1977 + t1980 + 0.1666666667e0_dp * t165 * t2088 * t140 + 0.1800000000e2_dp & 04331 * t658 * t2035 * t161 + 0.3333333334e0_dp * t55 * t57 * t2131 & 04332 + t1984 + 0.1666666667e0_dp * t165 * t166 * t2061 - t1987 - t1991 & 04333 - t1994 + t1997 - t2000 04334 t2139 = t2086 + t2138 04335 t2143 = -t1541 + t1549 - t1563 - t1574 - t1560 - t1543 - t1552 - 0.3333333336e0_dp & 04336 * t83 * t2050 * t140 - t1577 - t1545 - t1556 - t1570 & 04337 - 0.3333333336e0_dp * t83 * t84 * t2061 - t1693 - t1699 - t1708 - t1705 & 04338 - t1696 - t1702 - 0.2222222224e0_dp * t144 * t46 * t2139 04339 e_ndrho_ndrho_spin(ii) = e_ndrho_ndrho_spin(ii) + (-t1406 - t1413 - t1455 - t1451 - t1408 - t1417 -& 04340 0.4444444448e0_dp * t43 * t46 * t2046 + t8 * t2143) * sx 04341 t2147 = lambda * t48 * omega 04342 t2160 = t754 * t237 04343 t2169 = t237 * t804 04344 t2182 = 0.1e1_dp / t787 / lambda 04345 t2183 = t2182 * t944 04346 t2187 = t949 * t233 04347 t2190 = t953 * t772 04348 t2193 = t316 * t800 04349 t2196 = t772 * t233 04350 t2197 = t974 * t2196 04351 t2200 = t233 * t800 04352 t2201 = t327 * t2200 04353 t2204 = t10 * t106 04354 t2205 = 0.1e1_dp / t2204 04355 t2220 = beta * t785 * t6 04356 t2226 = -0.6222222223e2_dp * t24 * t2205 * t1002 * t31 - 0.2115555556e3_dp & 04357 * t7 * t2183 * t132 + 0.1315555556e3_dp * t786 / t787 / t85 * t1019 & 04358 * t371 - 0.4266666668e2_dp * t2220 / t1014 / t94 * t1058 04359 t2227 = t105 * t2226 04360 t2230 = -0.9125925923e2_dp * t7 * t2183 * t36 - 0.5866666667e2_dp * t962 & 04361 * t2187 - 0.3200000001e2_dp * t321 * t2190 + 0.1600000000e2_dp * t321 * & 04362 t2193 - 0.120e2_dp * t102 * t2197 + 0.120e2_dp * t102 * t2201 - 0.20e1_dp * & 04363 t102 * t2227 04364 t2257 = 0.5400000000e2_dp * t1142 * t62 * t2160 04365 t2261 = 0.3600000000e2_dp * t473 * t56 * t754 * t17 04366 t2264 = 0.5400000000e2_dp * t473 * t1493 * t804 04367 t2268 = 0.6000000000e1_dp * t478 * t27 * t237 * t14 04368 t2272 = 0.1800000000e2_dp * t478 * t56 * t804 * t17 04369 t2274 = t178 * t62 * t2230 04370 t2276 = pi * t114 04371 t2279 = 0.2666666667e1_dp * t61 * t2276 * t86 04372 t2280 = t2257 - t2261 - t2264 - t2268 + t2272 + 0.8999999998e1_dp * t2274 & 04373 - t2279 04374 t2281 = t2280 * t65 04375 t2282 = t881 * t267 04376 t2285 = t865 * t266 04377 t2287 = t68 * t2285 * t65 04378 t2292 = t863 * t266 04379 t2295 = t2285 * t65 04380 t2296 = t58 * t2230 04381 t2299 = t194 * t865 04382 t2300 = t2299 * t526 04383 t2304 = t68 * t2280 * t65 04384 t2307 = t22 * t266 04385 t2308 = t2307 * t1200 04386 t2311 = t194 * t863 04387 t2312 = t2311 * t526 04388 t2319 = t1099 * t86 04389 t2326 = -0.1851851853e0_dp * t508 * t874 + t2281 - 0.1666666668e0_dp * t192 & 04390 * t2282 - 0.5555555558e-1_dp * t192 * t2287 - 0.1666666668e0_dp * t508 & 04391 * t886 + (3 * t2292 * t65) + t2295 - 0.5555555558e-1_dp * t2296 & 04392 * t71 + 0.1111111112e0_dp * t192 * t2300 - 0.5555555558e-1_dp * t192 * & 04393 t2304 - 0.1851851853e0_dp * t192 * t2308 + 0.1111111112e0_dp * t192 * t2312 & 04394 + 0.2222222223e0_dp * t508 * t878 - 0.1666666668e0_dp * t508 * t882 & 04395 + 0.1646090535e0_dp * t192 * t2319 - 0.1666666668e0_dp * t1129 * t275 + & 04396 0.1111111112e0_dp * t1129 * t271 04397 t2351 = t44 * t22 04398 t2368 = t237 * t14 04399 t2378 = t804 * t17 04400 t2382 = t754 * t17 04401 t2392 = (2 * t147 * t1284 * t249) + (2 * t147 * t1388 * t249) & 04402 - 0.3456790122e0_dp * t170 * t1268 * t86 + 0.4444444444e0_dp * t170 * & 04403 t1089 * t14 + 0.1666666667e0_dp * t165 * t166 * t2230 + 0.5000000001e0_dp & 04404 * t165 * t437 * t804 + 0.3333333334e0_dp * t55 * t57 * t2326 + 0.2e1_dp & 04405 * (t147) * t149 * (-0.5625000000e1_dp * t1301 * t50 * t2160 + & 04406 0.2250000000e1_dp * t400 * t68 * t754 * t17 + 0.6750000000e1_dp * t400 * & 04407 t1459 * t804 + 0.1000000000e1_dp * t405 * t194 * t237 * t14 - 0.1500000000e1_dp & 04408 * t405 * t68 * t804 * t17 - 0.1500000000e1_dp * t151 * t50 * & 04409 t2230 + 0.1111111111e1_dp * t49 * t2351 * t86) - 0.3333333333e0_dp * t170 & 04410 * t1254 * t17 + (4 * t147 * t393 * t826) + 0.5000000001e0_dp * & 04411 t165 * t1275 * t237 + 0.2222222222e0_dp * t165 * t450 * t2368 - 0.3333333333e0_dp & 04412 * t165 * t455 * t833 - 0.2500000000e0_dp * t429 * t166 * t2169 & 04413 - 0.1666666667e0_dp * t165 * t171 * t2378 + 0.8333333333e-1_dp * t429 & 04414 * t171 * t2382 - 0.2500000000e0_dp * t429 * t437 * t754 + 0.1250000000e0_dp & 04415 * t1368 * t166 * t2160 04416 t2404 = t45 * t1397 04417 t2418 = t379 * t754 04418 t2424 = t1067 * t237 04419 t2437 = t7 * t792 04420 t2439 = 0.1e1_dp / t20 / t1436 04421 t2451 = t940 * t944 04422 t2455 = t97 * t973 04423 t2468 = t944 * t104 04424 t2480 = 0.1e1_dp / t19 / t942 04425 t2492 = t1014 * rho 04426 t2537 = t764 * t1002 04427 t2552 = t360 * t1058 04428 t2565 = t126 / t131 / t1056 / t130 04429 t2569 = -0.8088888890e3_dp * t24 * t2182 * t2480 * t31 * rho - 0.1518222222e4_dp & 04430 * t2437 * t2439 * t132 * rho + 0.6542222223e3_dp * t786 / t2204 & 04431 / t19 / t2492 * t218 * t371 * rho - 0.6222222223e2_dp * t24 * t2205 & 04432 * t1002 * t126 * t132 + 0.5600000000e2_dp * t1024 * t341 * t360 & 04433 * t132 + 0.3288888889e3_dp * t366 / t790 * t126 * t371 - 0.2400000000e2_dp & 04434 * t350 * t114 * t1044 * t132 - 0.1520000000e3_dp * t366 * t1034 * & 04435 t360 * t371 - 0.3626666667e3_dp * t1054 * t1034 * t1060 + 0.60e1_dp * t119 & 04436 * t27 * (0.3640e4_dp / 0.27e2_dp * t1040 * t1002 - 0.3640e4_dp / 0.27e2_dp & 04437 * ndrho * t2182 * t2480 * rho) * t132 + 0.8088888890e3_dp * t24 * t2537 & 04438 * t31 + 0.1518222222e4_dp * t7 * t2451 * t132 - 0.6542222223e3_dp * & 04439 t786 * t1012 * t1019 * t371 + 0.2400000000e2_dp * t366 * t368 * t1044 & 04440 * t371 + 0.9600000000e2_dp * t1055 * t2552 * t220 - 0.1173333333e3_dp & 04441 * t1055 * t1059 * t765 + 0.2133333333e3_dp * beta * t785 * t365 * t368 & 04442 * t2565 * t796 04443 t2576 = 0.40e1_dp * t102 * t327 * t136 * t2226 + 0.3519999999e3_dp * t93 & 04444 * t2190 - 0.1551407408e4_dp * t2437 * t2439 * t36 * rho + 0.960e2_dp * & 04445 t1597 * t1598 * t2200 + 0.120e2_dp * t102 * t327 * t375 * t800 + 0.1551407408e4_dp & 04446 * t7 * t2451 * t36 - 0.960e2_dp * t93 * t2455 * rho * t2196 & 04447 + 0.120e2_dp * t102 * t327 * t1063 * t233 + 0.1600000000e2_dp * t321 & 04448 * t316 * t1063 + 0.9125925923e2_dp * t7 * t2182 * t2468 * t136 + 0.1760000000e3_dp & 04449 * t307 * t949 * t958 - 0.360e2_dp * t1616 * t1617 * t2200 & 04450 - 0.20e1_dp * t102 * t105 * t2569 - 0.6400000001e2_dp * t321 * t953 * t979 04451 t2585 = 0.1e1_dp / t972 / t35 04452 t2611 = t311 * t326 04453 t2621 = -0.3200000001e2_dp * t321 * t953 * t983 - 0.160e2_dp * t93 * t316 & 04454 * rho * t2226 + 0.480e2_dp * t102 * t22 * t2585 * t136 * t2196 - 0.1760000000e3_dp & 04455 * t93 * t2193 + 0.960e2_dp * t302 * t2197 + 0.160e2_dp * t302 & 04456 * t2227 - 0.960e2_dp * t302 * t2201 - 0.8213333332e3_dp * t941 * t2468 & 04457 * t317 + 0.8213333332e3_dp * t307 * t2187 + 0.9600000002e2_dp * t321 * & 04458 t2455 * t975 - 0.360e2_dp * t102 * t974 * t375 * t772 - 0.3519999999e3_dp & 04459 * t307 * t2611 * t954 + 0.1173333334e3_dp * t962 * t2611 * t328 - & 04460 0.5866666667e2_dp * t962 * t949 * t375 04461 t2622 = t2576 + t2621 04462 t2631 = t282 * t140 04463 t2635 = -0.1000000001e1_dp * t55 * t923 - 0.3333333336e0_dp * t83 * t384 & 04464 * t2230 - 0.5000000004e0_dp * t165 * t897 * t804 - 0.6666666672e0_dp * t383 & 04465 * t2404 - 0.1000000001e1_dp * t83 * t1071 * t804 - 0.5000000004e0_dp & 04466 * t164 * t1076 - 0.1000000001e1_dp * t289 * t294 * t914 - 0.5000000004e0_dp & 04467 * t289 * t294 * t918 + 0.2500000002e0_dp * t906 * t84 * t2418 - & 04468 0.2000000001e1_dp * t55 * t1079 - 0.5000000004e0_dp * t289 * t84 * t2424 & 04469 + 0.2500000002e0_dp * t1546 * t897 * t2169 - 0.3333333336e0_dp * t83 * & 04470 t84 * t2622 + 0.2500000002e0_dp * t906 * t294 * t907 - 0.1000000001e1_dp & 04471 * t55 * t1082 - 0.1000000001e1_dp * t165 * t2631 * t237 04472 t2636 = t78 * t379 04473 t2645 = t379 * t804 04474 t2655 = t140 * t2230 04475 t2707 = t74 * t379 04476 t2720 = t56 * t1239 04477 t2724 = 0.5000000001e0_dp * t165 * t1392 * t804 - 0.1333333334e1_dp * t165 & 04478 * t450 * t1172 - 0.2666666667e1_dp * t170 * t1089 * t225 + 0.8333333333e-1_dp & 04479 * t429 * t466 * t2382 + 0.1000000000e1_dp * t170 * t1254 * t25 & 04480 + 0.1666666667e0_dp * t165 * t166 * t2622 + 0.1666666667e0_dp * t165 * & 04481 t56 * t2326 * t140 - 0.2500000000e0_dp * t429 * t166 * t2424 - 0.3333333333e0_dp & 04482 * t165 * t455 * t1085 - 0.1728395062e0_dp * t165 * t1268 * & 04483 t140 * t86 - 0.2500000000e0_dp * t1246 * t446 * t413 * t804 + 0.1666666666e0_dp & 04484 * t1246 * t2707 * t833 + 0.1250000000e0_dp * t1368 * t462 * t2160 & 04485 - 0.1666666667e0_dp * t165 * t466 * t2378 + (6 * t147 * t1283 & 04486 * t394) + 0.5000000001e0_dp * t165 * t2720 * t237 04487 t2732 = rho * t2205 04488 t2759 = t25 * t2230 04489 t2763 = t1367 * t444 04490 t2779 = t25 * t2160 04491 t2783 = -0.2500000000e0_dp * t429 * t1392 * t754 + (6 * t147 * t393 & 04492 * t1347) - 0.3456790123e1_dp * t170 * t1002 * t74 * t2732 + 0.5000000001e0_dp & 04493 * t165 * t1275 * t379 - 0.1333333334e1_dp * t170 * t114 * t889 & 04494 * t451 + 0.3333333334e0_dp * t170 * t27 * t2326 * t172 - 0.2500000000e0_dp & 04495 * t429 * t171 * t1168 + 0.3750000000e0_dp * t1981 * t1247 * t2169 & 04496 + 0.5000000001e0_dp * t165 * t171 * t1093 + 0.8333333334e-1_dp * t1246 & 04497 * t1247 * t2378 + 0.1666666667e0_dp * t445 * t446 * t2759 - 0.1250000000e0_dp & 04498 * t2763 * t1247 * t2382 + 0.5000000001e0_dp * t165 * t437 * t1067 & 04499 + 0.2222222222e0_dp * t165 * t1089 * t1360 + 0.1000000000e1_dp * t165 & 04500 * t455 * t413 - 0.2500000000e0_dp * t429 * t462 * t2169 + 0.1250000000e0_dp & 04501 * t2763 * t446 * t2779 04502 t2808 = t19 * t1067 04503 t2816 = t225 * t754 04504 t2821 = 0.1e1_dp / t41 / t1140 04505 t2823 = t47 * t2821 * t44 04506 t2833 = -0.1687500000e2_dp * t1302 * t401 * t2169 + 0.6750000000e1_dp * t400 & 04507 * t1309 * t804 + 0.4500000000e1_dp * t400 * t1320 * t833 - 0.1500000000e1_dp & 04508 * t400 * t1316 * t2368 + 0.1000000000e1_dp * t405 * t194 * t379 & 04509 * t14 + 0.8888888888e1_dp * t155 * t97 * rho * t2205 + 0.6750000000e1_dp & 04510 * t400 * t2808 * t237 - 0.1500000000e1_dp * t405 * t68 * t1067 & 04511 * t17 + 0.4500000000e1_dp * t400 * t417 * t2816 + 0.1968750000e2_dp * t2823 & 04512 * t401 * t2160 + 0.1500000000e1_dp * t405 * t156 * t2759 + 0.2250000000e1_dp & 04513 * t400 * t401 * t2230 04514 t2843 = t777 * t237 04515 t2853 = t172 * t2169 04516 t2869 = t225 * t804 04517 t2873 = t194 * t225 04518 t2877 = -0.1500000000e1_dp * t151 * t50 * t2622 + 0.5625000000e1_dp * t1302 & 04519 * t156 * t2779 - 0.6750000000e1_dp * t400 * t1333 * t754 + 0.4999999999e1_dp & 04520 * t405 * t1340 * t2843 - 0.1000000000e2_dp * t49 * t2351 * t777 & 04521 - 0.5625000000e1_dp * t1302 * t406 * t2382 - 0.6750000000e1_dp * t1912 & 04522 * t2853 - 0.5555555555e0_dp * t405 * t22 * t140 * t86 + 0.4500000000e1_dp & 04523 * t405 * t1333 * t804 + 0.2250000000e1_dp * t400 * t406 * t2378 - & 04524 0.1687500000e2_dp * t1302 * t1309 * t754 - 0.3000000000e1_dp * t405 * t417 & 04525 * t2869 - 0.6000000000e1_dp * t405 * t2873 * t237 04526 t2885 = t428 * t1372 04527 t2935 = -0.2500000000e0_dp * t429 * t166 * t2645 + (2 * t147 * t149 & 04528 * (t2833 + t2877)) + 0.5000000001e0_dp * t445 * t1292 * t1093 + 0.3333333333e0_dp & 04529 * t2885 * t446 * t2816 + 0.2222222222e0_dp * t165 * t1377 & 04530 * t2368 - 0.3333333333e0_dp * t165 * t1264 * t833 + 0.2e1_dp * (t147) & 04531 * (t2257 - t2261 - t2264 - t2268 + t2272 + 0.9000000000e1_dp * t2274 & 04532 - t2279) * (t149) * t160 - 0.3333333333e0_dp * t170 * t27 * t1239 & 04533 * t17 - 0.8333333335e-1_dp * t429 * t166 * t2655 + (6 * t147 & 04534 * t1284 * t424) + 0.2e1_dp * (t147) * t1387 * t392 * (t149) * & 04535 t160 - 0.2500000000e0_dp * t1246 * t1292 * t1168 - 0.1666666667e0_dp * & 04536 t165 * t1254 * t433 + (6 * t147 * t1388 * t424) + 0.1666666667e0_dp & 04537 * t165 * t462 * t2230 + 0.2222222222e0_dp * t165 * t450 * t379 * t14 & 04538 - 0.5000000001e0_dp * t429 * t437 * t914 04539 t2937 = t164 * t45 * t341 04540 t2992 = 0.1e1_dp / t1140 / t40 04541 t2994 = t59 * t2992 * pi 04542 t2998 = t27 * t225 04543 t3026 = 0.1620000000e3_dp * t1143 * t474 * t2169 + 0.1080000000e3_dp * t1143 & 04544 * t479 * t2382 - 0.2160000000e3_dp * t2994 * t474 * t2160 + 0.3600000000e2_dp & 04545 * t478 * t2998 * t237 + 0.1620000000e3_dp * t1143 * t1150 * & 04546 t754 + 0.2666666667e1_dp * t478 * t114 * t140 * t86 - 0.3600000000e2_dp & 04547 * t473 * t479 * t2378 + 0.1080000000e3_dp * t1821 * t2853 - 0.7200000000e2_dp & 04548 * t473 * t1161 * t833 - 0.1800000000e2_dp * t473 * t474 * t2230 & 04549 + 0.8999999998e1_dp * t178 * t62 * t2622 - 0.5400000000e2_dp * t478 * & 04550 t1176 * t804 04551 t3030 = t20 * t1067 04552 t3069 = -0.1800000000e2_dp * t478 * t183 * t2759 - 0.5400000000e2_dp * t473 & 04553 * t3030 * t237 - 0.6000000000e1_dp * t478 * t27 * t379 * t14 - 0.5400000000e2_dp & 04554 * t473 * t1150 * t804 + 0.1800000000e2_dp * t478 * t489 * & 04555 t2869 + 0.1080000000e3_dp * t473 * t1176 * t754 + 0.1800000000e2_dp * t478 & 04556 * t56 * t1067 * t17 - 0.3600000000e2_dp * t473 * t489 * t2816 - 0.1866666667e2_dp & 04557 * t182 * t357 * t2205 + 0.2400000000e2_dp * t61 * t2276 & 04558 * t777 - 0.2400000000e2_dp * t478 * t123 * t2843 - 0.1080000000e3_dp * & 04559 t1143 * t183 * t2779 + 0.1200000000e2_dp * t473 * t1157 * t2368 04560 t3070 = t3026 + t3069 04561 t3085 = t1210 * t67 04562 t3093 = (3 * t496 * t865 * t65) + (3 * t1189 * t266 * t65) & 04563 + 0.1111111112e1_dp * (t192) * (t2307) * (t65) * (t225) & 04564 + (t187 * t2280 * t65) + (3 * t496 * t863 * t65) + 0.2222222223e0_dp & 04565 * t516 * t1111 * t526 + (t187 * t2285 * t65) + (t3070 & 04566 * t65) - 0.1851851853e0_dp * t1193 * t498 * t1200 + 0.2222222223e0_dp & 04567 * t508 * t1119 + 0.1111111112e0_dp * (t192) * t194 * (t1189) & 04568 * t526 + 0.2222222223e0_dp * t1137 * t1221 - 0.1666666668e0_dp * t1129 & 04569 * t534 + 0.1111111112e0_dp * t3085 * t271 - 0.5555555558e-1_dp * (t192) & 04570 * (t199) * (t2281) - 0.1851851853e0_dp * t508 * t1201 04571 t3097 = t66 * t69 04572 t3098 = t1109 * t267 04573 t3129 = t2296 * t67 04574 t3141 = -0.3333333336e0_dp * t192 * t2299 * t1125 - 0.1666666668e0_dp * t3097 & 04575 * t3098 + 0.1111111112e0_dp * t503 * t2300 + 0.1111111112e0_dp * t1129 & 04576 * t527 - 0.1666666668e0_dp * t1129 * t531 - 0.5555555558e-1_dp * t192 & 04577 * t68 * t3070 * t65 + 0.1646090535e0_dp * t192 * t97 * t187 * t65 * & 04578 t86 + 0.5555555559e0_dp * t1129 * t512 - 0.1666666668e0_dp * t192 * t530 & 04579 * t864 - 0.1666666668e0_dp * t1106 * t882 - 0.1666666668e0_dp * t192 * & 04580 t530 * t866 - 0.1481481482e1_dp * t192 * t1099 * t777 - 0.1111111112e0_dp & 04581 * t3129 * t196 + 0.5555555559e0_dp * t1193 * t866 * t451 - 0.1666666668e0_dp & 04582 * t503 * t2282 - 0.1666666668e0_dp * t3085 * t275 + 0.1111111112e0_dp & 04583 * t503 * t2312 04584 t3181 = -0.1851851853e0_dp * t1106 * t874 - 0.1666666668e0_dp * t508 * t1235 & 04585 - 0.3333333336e0_dp * t508 * t1224 - 0.1111111112e0_dp * t516 * t2281 & 04586 * t172 + 0.1111111112e0_dp * t516 * t1097 * t526 + 0.2222222223e0_dp * & 04587 t1106 * t878 - 0.1851851853e0_dp * t503 * t2308 - 0.3333333336e0_dp * t1137 & 04588 * t1216 + (3 * t3098) + 0.1111111112e0_dp * t516 * t1109 * t526 & 04589 - 0.5555555558e-1_dp * t503 * t2287 - 0.3333333336e0_dp * t192 * t2311 & 04590 * t1125 - 0.6666666672e0_dp * t508 * t1126 + 0.1646090535e0_dp * t503 & 04591 * t2319 - 0.5555555558e-1_dp * t3129 * t200 - 0.5555555558e-1_dp * t58 & 04592 * t2622 * t71 - 0.1666666668e0_dp * t1106 * t886 04593 t3232 = -0.1666666668e0_dp * t192 * t1206 * t267 - 0.5555555558e-1_dp * t192 & 04594 * t199 * t2295 - 0.1666666668e0_dp * t508 * t1122 - 0.3333333336e0_dp & 04595 * t1129 * t520 - 0.1111111112e0_dp * t516 * t2295 * t172 - 0.1481481482e1_dp & 04596 * t66 * t67 * t97 * t267 * t1100 - 0.1851851853e0_dp * t192 * & 04597 t22 * t496 * t1200 - 0.3333333336e0_dp * t516 * t2292 * t65 * rho * & 04598 t25 + 0.1810699590e1_dp * t192 * t311 * t70 * t2732 - 0.5555555558e-1_dp & 04599 * t503 * t2304 - 0.1481481482e1_dp * t508 * t1101 - 0.3333333336e0_dp * & 04600 t867 * t515 * t517 + 0.1111111112e1_dp * t268 * t1192 * t1194 + 0.5555555559e0_dp & 04601 * t1193 * t864 * t451 + 0.1111111112e1_dp * t508 * t1213 - & 04602 0.1666666668e0_dp * t508 * t1207 - 0.3333333336e0_dp * t1137 * t1134 04603 t3244 = t278 * t140 04604 t3248 = t889 * rho 04605 t3262 = omega * t1300 04606 t3264 = t140 * t2160 04607 t3268 = 0.1555555556e1_dp * t2937 * t446 * t2843 + 0.3111111111e1_dp * t170 & 04608 * t1268 * t777 - 0.2500000000e0_dp * t429 * t1275 * t290 - 0.1333333334e1_dp & 04609 * t1373 * t1292 * t1172 + 0.3111111111e1_dp * t170 * t341 * t278 & 04610 * t1100 - 0.3456790122e0_dp * t170 * t341 * t203 * t86 + 0.3750000000e0_dp & 04611 * t1368 * t166 * t2418 + 0.4444444444e0_dp * t170 * t114 * t537 & 04612 * t14 + 0.3333333334e0_dp * t55 * t57 * (t3093 + t3141 + t3181 + t3232) & 04613 - 0.1111111111e0_dp * t2885 * t1247 * t2368 - 0.6666666668e0_dp * t1373 & 04614 * t446 * t2869 + 0.1666666667e0_dp * t1246 * t3244 * t833 + 0.5000000001e0_dp & 04615 * t445 * t3248 * t413 - 0.1666666667e0_dp * t165 * t171 * & 04616 t1067 * t17 - 0.2500000000e0_dp * t429 * t437 * t918 + 0.3750000000e0_dp & 04617 * t1368 * t437 * t907 - 0.3125000000e0_dp * t3262 * t45 * t166 * t3264 04618 t3278 = rho * t398 04619 t3288 = -0.1000000001e1_dp * t165 * t2636 * t237 - 0.2000000001e1_dp * t55 & 04620 * t926 - 0.1000000001e1_dp * t83 * t922 * t379 - 0.5000000004e0_dp * t289 & 04621 * t84 * t2645 + 0.2500000002e0_dp * t429 * t897 * t754 - 0.1000000001e1_dp & 04622 * t83 * t294 * t1067 - 0.1666666668e0_dp * t289 * t84 * t2655 & 04623 - 0.1000000001e1_dp * t83 * t2404 * t237 - 0.5000000004e0_dp * t289 * t922 & 04624 * t290 - 0.5000000004e0_dp * t289 * t384 * t2169 - 0.5000000004e0_dp & 04625 * t289 * t1071 * t754 - 0.2222222224e0_dp * t144 * t46 * (t2724 + t2783 & 04626 + t2935 + t3268) - 0.3333333336e0_dp * t83 * t45 * t2392 * t140 - & 04627 0.1250000001e0_dp * t3278 * omega * t84 * t3264 - 0.1000000001e1_dp * t55 & 04628 * t1068 + 0.8333333340e-1_dp * t906 * t384 * t2160 04629 t3291 = -0.1000000001e1_dp * t2147 * t84 * t754 - 0.4000000002e1_dp * t747 & 04630 * t294 * t237 - 0.2000000001e1_dp * t747 * t84 * t804 - 0.1333333334e1_dp & 04631 * t214 * t894 + 0.1666666668e0_dp * t4 * t150 * t46 * t78 * t2160 & 04632 - 0.1000000001e1_dp * t753 * t46 * t282 * t754 - 0.1000000001e1_dp * t1409 & 04633 * t84 * t2169 - 0.2000000001e1_dp * t217 * t46 * t893 * t237 - 0.2000000001e1_dp & 04634 * t217 * t46 * t282 * t804 - 0.6666666672e0_dp * t217 * & 04635 t46 * t78 * t2230 - 0.4444444448e0_dp * t43 * t46 * t2392 + t8 * (t2635 & 04636 + t3288) 04637 END IF 04638 IF( grad_deriv >= 3 .OR. grad_deriv == -3 ) THEN 04639 e_rho_rho_rho_spin(ii) = e_rho_rho_rho_spin(ii) + t3291 * sx 04640 t3305 = t4 * t428 04641 t3306 = t754 * t561 04642 t3314 = t237 * t1447 04643 t3329 = t804 * t561 04644 t3339 = t949 * t557 04645 t3344 = t953 * t1425 04646 t3347 = t316 * t1443 04647 t3352 = t772 * t557 04648 t3353 = t974 * t3352 04649 t3356 = t233 * t1443 04650 t3357 = t327 * t3356 04651 t3362 = t800 * t557 04652 t3363 = t327 * t3362 04653 t3366 = beta * t777 04654 t3378 = 0.1866666667e2_dp * t3366 * t342 + 0.9866666667e2_dp * t24 * t782 & 04655 - 0.8266666668e2_dp * t366 * t797 + 0.3200000001e2_dp * t1054 / t1014 / & 04656 t12 * t1058 04657 t3379 = t105 * t3378 04658 t3382 = 0.3911111110e2_dp * t24 * t766 - 0.1955555555e2_dp * t962 * t3339 & 04659 + 0.2133333334e2_dp * t339 * t769 - 0.2133333334e2_dp * t321 * t3344 + & 04660 0.1066666667e2_dp * t321 * t3347 + 0.80e1_dp * t112 * t773 - 0.120e2_dp * t102 & 04661 * t3353 + 0.80e1_dp * t102 * t3357 - 0.40e1_dp * t112 * t801 + 0.40e1_dp & 04662 * t102 * t3363 - 0.20e1_dp * t102 * t3379 04663 t3449 = t1447 * t17 04664 t3453 = (2 * t147 * t1885 * t249) + 0.1800000000e2_dp * (t1971) & 04665 * (t1972) * (t1973) * (t249) + (2 * t147 * t393 & 04666 * t1470) + 0.1800000000e2_dp * t658 * t575 * t827 + 0.2e1_dp * (t147) & 04667 * t149 * (-0.5625000000e1_dp * t1302 * t19 * t754 * t561 + 0.4500000000e1_dp & 04668 * t400 * t1459 * t1447 + 0.1500000000e1_dp * t400 * t815 * t1483 & 04669 - 0.1000000000e1_dp * t405 * t68 * t1447 * t17 + 0.2250000000e1_dp * & 04670 t400 * t19 * t804 * t561 - 0.1500000000e1_dp * t151 * t50 * t3382 + 0.3333333334e0_dp & 04671 * t405 * t194 * t14 * t561) + 0.1250000000e0_dp * t1368 & 04672 * t166 * t3306 - 0.8333333335e-1_dp * t429 * t679 * t754 - 0.1666666667e0_dp & 04673 * t429 * t166 * t3314 + 0.5555555555e-1_dp * t1246 * t74 * t237 & 04674 * t1483 - 0.1111111111e0_dp * t165 * t689 * t833 - 0.1111111111e0_dp * & 04675 t165 * t171 * t3449 04676 t3472 = t14 * t561 04677 t3491 = 0.5400000000e2_dp * t1143 * t20 * t754 * t561 04678 t3494 = 0.3600000000e2_dp * t473 * t1493 * t1447 04679 t3497 = 0.2400000000e2_dp * t473 * t852 * t1483 04680 t3501 = 0.1200000000e2_dp * t478 * t56 * t1447 * t17 04681 t3505 = 0.1800000000e2_dp * t473 * t20 * t804 * t561 04682 t3507 = t178 * t62 * t3382 04683 t3512 = 0.2000000000e1_dp * t478 * t27 * t14 * t561 04684 t3513 = t3491 - t3494 - t3497 + t3501 - t3505 + 0.8999999998e1_dp * t3507 & 04685 - t3512 04686 t3514 = t3513 * t65 04687 t3525 = t58 * t3382 04688 t3533 = t237 * t1518 04689 t3543 = t3514 + 0.8999999998e1_dp * t863 * t59 * t177 * t710 + (2 & 04690 * t267 * t1504) + 0.8999999998e1_dp * t865 * t59 * t177 * t710 - 0.5555555558e-1_dp & 04691 * t3525 * t71 - 0.5000000001e0_dp * t804 * t177 * t709 + & 04692 0.7407407410e-1_dp * t1755 * t271 + 0.6666666668e0_dp * t3533 * t1722 - & 04693 0.1111111112e0_dp * t1755 * t275 - 0.1111111112e0_dp * t508 * t1525 - 0.1000000001e1_dp & 04694 * t237 * t266 * t1722 04695 t3546 = 0.1e1_dp / t12 04696 t3547 = t60 * t3546 04697 t3552 = t194 * t1504 04698 t3553 = t3552 * t526 04699 t3561 = t68 * t3513 * t65 04700 t3569 = t274 * t1505 04701 t3575 = -0.6172839508e-1_dp * t719 * t874 - 0.5555555556e0_dp * t3547 * t709 & 04702 + 0.7407407410e-1_dp * t719 * t878 + 0.7407407410e-1_dp * t192 * t3553 & 04703 + 0.6666666668e0_dp * t1519 * t1712 - 0.5555555558e-1_dp * t719 * t882 & 04704 - 0.5555555558e-1_dp * t192 * t3561 - 0.5000000001e0_dp * t60 * t863 * & 04705 t709 - 0.5555555558e-1_dp * t719 * t886 - 0.1111111112e0_dp * t192 * t3569 & 04706 - 0.5000000001e0_dp * t60 * t865 * t709 04707 t3576 = t3543 + t3575 04708 t3580 = -0.1666666667e0_dp * t429 * t437 * t1410 + 0.3333333334e0_dp * t165 & 04709 * t1928 * t237 + 0.3333333334e0_dp * t165 * t437 * t1447 - 0.8333333335e-1_dp & 04710 * t429 * t166 * t3329 + 0.1666666667e0_dp * t165 * t679 * t804 & 04711 + 0.1666666667e0_dp * t165 * t166 * t3382 + 0.7407407405e-1_dp * t165 & 04712 * t450 * t3472 + 0.1481481481e0_dp * t170 * t1875 * t14 - 0.1111111111e0_dp & 04713 * t165 * t455 * t1483 - 0.2222222222e0_dp * t170 * t1932 * t17 + & 04714 0.1666666667e0_dp * t165 * t1275 * t561 + 0.3333333334e0_dp * t55 * t57 & 04715 * t3576 04716 t3581 = t3453 + t3580 04717 t3608 = t973 * rho 04718 t3618 = 0.640e2_dp * t1597 * t1598 * t3356 - 0.640e2_dp * t1582 * t773 - & 04719 0.1173333333e3_dp * t93 * t3347 - 0.3911111110e2_dp * t1000 * t963 - 0.320e2_dp & 04720 * t605 * t959 + 0.1173333333e3_dp * t307 * t949 * t1602 + 0.40e1_dp & 04721 * t102 * t327 * t136 * t3378 - 0.960e2_dp * t1597 * t3608 * t3352 - & 04722 0.40e1_dp * t112 * t1064 + 0.80e1_dp * t112 * t984 + 0.2737777778e3_dp * t307 & 04723 * t3339 04724 t3668 = t2552 * t23 04725 t3673 = t635 * t1058 04726 t3674 = t3673 * t220 04727 t3677 = -0.1866666667e3_dp * t1645 * t342 - 0.6346666667e3_dp * t24 * t991 & 04728 + 0.3946666667e3_dp * t366 * t997 + 0.1866666667e3_dp * beta * t764 * & 04729 t1004 + 0.60e1_dp * t550 * t1046 + 0.60e1_dp * t119 * t27 * (-0.280e3_dp / & 04730 0.9e1_dp * t987 + 0.280e3_dp / 0.9e1_dp * t2537 * rho) * t132 - 0.60e1_dp * t7 & 04731 * t640 * t1044 * t371 + 0.1600000000e2_dp * t366 * t368 * t1667 * t371 & 04732 - 0.4800000000e2_dp * t1680 * t3668 + 0.1600000000e3_dp * t1680 * t1060 & 04733 + 0.3200000000e2_dp * t1055 * t3674 04734 t3679 = t2565 * t1439 04735 t3682 = t24 * t940 04736 t3711 = -0.1600000000e3_dp * t2220 * t368 * t3679 + 0.6346666667e3_dp * t3682 & 04737 * t1008 - 0.3946666667e3_dp * t366 * t1012 * t1021 + 0.1866666667e2_dp & 04738 * t3366 * t1026 + 0.1866666667e2_dp * t1024 * t341 * t635 * t132 & 04739 - 0.1706666667e3_dp * t7 * t1036 - 0.1600000000e2_dp * t1429 * t1030 - 0.1600000000e2_dp & 04740 * t350 * t114 * t1667 * t132 + 0.6400000000e2_dp * t7 * & 04741 t1050 - 0.5066666667e2_dp * t366 * t1034 * t635 * t371 + 0.1520000000e3_dp & 04742 * t786 * t1034 * t1681 04743 t3726 = -0.240e2_dp * t1616 * t1617 * t3356 + 0.160e2_dp * t302 * t3379 + & 04744 0.40e1_dp * t102 * t327 * t1063 * t557 + 0.960e2_dp * t302 * t3353 - 0.320e2_dp & 04745 * t302 * t3363 - 0.2737777778e3_dp * t941 * t2468 * t608 - 0.120e2_dp & 04746 * t102 * t974 * t645 * t772 - 0.2133333334e2_dp * t321 * t953 * t1621 & 04747 - 0.20e1_dp * t102 * t105 * (t3677 + t3711) + 0.80e1_dp * t102 * t327 & 04748 * t375 * t1443 - 0.120e2_dp * t1616 * t1617 * t3362 - 0.2133333334e2_dp & 04749 * t321 * t953 * t1625 04750 t3750 = t2585 * t136 04751 t3763 = 0.2346666666e3_dp * t1589 * t950 + 0.80e1_dp * t102 * t327 * t1684 & 04752 * t233 + 0.6400000002e2_dp * t7 * t220 * t1618 - 0.240e2_dp * t112 * t976 & 04753 - 0.160e2_dp * t93 * t316 * rho * t3378 + 0.2346666666e3_dp * t93 * & 04754 t3344 + 0.3911111110e2_dp * t962 * t2611 * t614 - 0.5475555556e3_dp * t24 & 04755 * t930 + 0.480e2_dp * t1616 * t3750 * t3352 - 0.1955555555e2_dp * t962 & 04756 * t949 * t645 - 0.240e2_dp * t1616 * t973 * t375 * t1425 + 0.2133333334e2_dp & 04757 * t339 * t969 04758 t3794 = -0.640e2_dp * t302 * t3357 - 0.4266666668e2_dp * t339 * t966 + 0.640e2_dp & 04759 * t605 * t955 + 0.40e1_dp * t102 * t327 * t645 * t800 + 0.5475555556e3_dp & 04760 * t3682 * t946 + 0.1066666667e2_dp * t321 * t316 * t1684 + 0.160e2_dp & 04761 * t112 * t980 - 0.2346666666e3_dp * t7 * t929 * t1599 + 0.320e2_dp & 04762 * t1597 * t1598 * t3362 - 0.2346666666e3_dp * t605 * t769 + 0.320e2_dp & 04763 * t1582 * t801 - 0.2133333334e2_dp * t321 * t953 * t1631 04764 t3796 = t3618 + t3726 + t3763 + t3794 04765 t3826 = 0.8333333340e-1_dp * t906 * t597 * t907 + 0.1666666668e0_dp * t429 & 04766 * t1547 - 0.3333333336e0_dp * t83 * t84 * t3796 - 0.3333333336e0_dp * & 04767 t83 * t922 * t649 - 0.3333333336e0_dp * t289 * t294 * t1571 - 0.3333333336e0_dp & 04768 * t289 * t1071 * t1410 - 0.6666666672e0_dp * t83 * t1564 * t379 & 04769 - 0.6666666672e0_dp * t55 * t1700 - 0.3333333336e0_dp * t165 * t207 * & 04770 t237 * t561 - 0.6666666672e0_dp * t55 * t1689 - 0.3333333336e0_dp * t83 & 04771 * t1694 * t804 + 0.1666666668e0_dp * t1546 * t897 * t3314 04772 t3827 = t649 * t804 04773 t3842 = t3278 * t46 04774 t3849 = t140 * t3382 04775 t3853 = t649 * t754 04776 t3861 = t78 * t649 04777 t3865 = t589 * t140 04778 t3869 = -0.1666666668e0_dp * t289 * t84 * t3827 - 0.1666666668e0_dp * t289 & 04779 * t922 * t593 + 0.1666666668e0_dp * t1546 * t2636 * t1410 - 0.6666666672e0_dp & 04780 * t55 * t1703 - 0.3333333336e0_dp * t83 * t597 * t1067 - 0.1250000001e0_dp & 04781 * t3842 * t897 * t3306 - 0.3333333336e0_dp * t83 * t384 * & 04782 t3382 - 0.1666666668e0_dp * t289 * t84 * t3849 + 0.8333333340e-1_dp * t906 & 04783 * t84 * t3853 - 0.6666666672e0_dp * t55 * t1568 - 0.6666666672e0_dp * & 04784 t55 * t1565 - 0.3333333336e0_dp * t165 * t3861 * t237 - 0.3333333336e0_dp & 04785 * t165 * t3865 * t237 04786 t3871 = t379 * t1447 04787 t3875 = t45 * t2002 04788 t3892 = t225 * t1447 04789 t3918 = t25 * t3382 04790 t3925 = t777 * t561 04791 t3933 = t451 * t1410 04792 t3939 = t1301 * t245 04793 t3940 = t172 * t3306 04794 t3965 = 0.1500000000e1_dp * t405 * t156 * t3918 + 0.1968750000e2_dp * t2823 & 04795 * t401 * t3306 + 0.1666666666e1_dp * t405 * t1340 * t3925 + 0.3000000000e1_dp & 04796 * t405 * t1333 * t1447 + 0.3000000000e1_dp * t399 * t822 * t3933 & 04797 + 0.2250000000e1_dp * t400 * t401 * t3382 + 0.5625000000e1_dp * t3939 & 04798 * t3940 + 0.3333333333e0_dp * t405 * t194 * t649 * t14 - 0.1125000000e2_dp & 04799 * t1302 * t1309 * t1410 + 0.2250000000e1_dp * t400 * t1892 * t804 & 04800 - 0.5625000000e1_dp * t1302 * t401 * t3329 - 0.5625000000e1_dp * t1302 & 04801 * t1892 * t754 + 0.2250000000e1_dp * t400 * t2808 * t561 - 0.4500000000e1_dp & 04802 * t400 * t1333 * t1410 04803 t3969 = t172 * t3314 04804 t3975 = t19 * t1688 04805 t3979 = t290 * t1483 04806 t3985 = t172 * t3329 04807 t4010 = -0.1125000000e2_dp * t1302 * t401 * t3314 - 0.4500000000e1_dp * t1912 & 04808 * t3969 + 0.4500000000e1_dp * t400 * t1309 * t1447 + 0.4500000000e1_dp & 04809 * t400 * t3975 * t237 - 0.3750000000e1_dp * t3939 * t3979 - 0.2000000000e1_dp & 04810 * t405 * t417 * t3892 - 0.2250000000e1_dp * t1912 * t3985 - & 04811 0.2000000000e1_dp * t405 * t2873 * t561 - 0.5000000000e0_dp * t400 * t1316 & 04812 * t3472 - 0.1000000000e1_dp * t405 * t68 * t1688 * t17 + 0.1500000000e1_dp & 04813 * t400 * t406 * t3449 - 0.1500000000e1_dp * t151 * t50 * t3796 & 04814 + 0.1500000000e1_dp * t400 * t1902 * t833 + 0.1500000000e1_dp * t400 * & 04815 t1320 * t1483 04816 t4018 = 0.2222222222e0_dp * t2885 * t446 * t1172 * t561 - 0.1666666667e0_dp & 04817 * t1246 * t1292 * t1865 - 0.4444444445e0_dp * t1373 * t446 * t3892 & 04818 - 0.1111111111e0_dp * t165 * t171 * t1688 * t17 + 0.1666666667e0_dp * t165 & 04819 * t56 * t3576 * t140 + 0.1250000000e0_dp * t2763 * t446 * t1168 * & 04820 t561 + 0.3333333334e0_dp * t165 * t689 * t413 + 0.1666666667e0_dp * t165 & 04821 * t679 * t1067 - 0.1666666667e0_dp * t1246 * t446 * t413 * t1447 + & 04822 (2 * t147 * t149 * (t3965 + t4010)) - 0.4444444445e0_dp * t1373 * & 04823 t1292 * t1829 04824 t4025 = t3262 * t57 04825 t4032 = t74 * t649 04826 t4070 = t3525 * t67 04827 t4079 = -0.5555555558e-1_dp * t192 * t199 * t3514 + (t705 * t863 * & 04828 t65) + (2 * t496 * t1504 * t65) + (t187 * t3513 * t65) - & 04829 0.5555555558e-1_dp * t192 * t728 * t864 - 0.5555555556e0_dp * t140 * t3546 & 04830 * t1722 + (t705 * t865 * t65) - 0.1111111112e0_dp * t1106 * t1525 & 04831 - 0.1111111112e0_dp * t4070 * t196 + 0.6666666668e0_dp * t1748 * t266 & 04832 * t1722 + 0.3703703706e0_dp * t1193 * t1505 * t451 04833 t4101 = t498 * t1505 04834 t4108 = -0.5000000001e0_dp * t60 * t1189 * t709 + 0.3703703706e0_dp * t1755 & 04835 * t512 - 0.5555555558e-1_dp * t503 * t3561 - 0.2222222224e0_dp * t516 & 04836 * t267 * t172 * t1504 - 0.5555555558e-1_dp * t1715 * t886 - 0.5555555558e-1_dp & 04837 * t1715 * t882 - 0.1111111112e0_dp * t516 * t3514 * t172 - 0.5000000001e0_dp & 04838 * t1067 * t177 * t709 + (2 * t4101) - 0.1111111112e0_dp & 04839 * t508 * t1769 - 0.1111111112e0_dp * t192 * t1837 * t267 04840 t4140 = -0.5555555558e-1_dp * t719 * t1207 - 0.2000000001e1_dp * t1763 * & 04841 t266 * t1722 - 0.1111111112e0_dp * t192 * t530 * t1505 + 0.1333333334e1_dp & 04842 * t1519 * t722 * t1712 + 0.7407407410e-1_dp * t516 * t1718 * t526 & 04843 + 0.6666666668e0_dp * t379 * t1518 * t1722 - 0.5555555558e-1_dp * t192 * & 04844 t728 * t866 - 0.2222222224e0_dp * t719 * t1126 + 0.1800000000e2_dp * t1111 & 04845 * t178 * t710 - 0.1111111112e0_dp * t508 * t1782 - 0.5555555558e-1_dp & 04846 * t58 * t3796 * t71 04847 t4156 = t865 * t561 * t65 04848 t4201 = t20 * t1688 04849 t4214 = -0.8000000000e1_dp * t478 * t123 * t3925 - 0.2400000000e2_dp * t473 & 04850 * t479 * t3449 + 0.1200000000e2_dp * t478 * t489 * t3892 + 0.1200000000e2_dp & 04851 * t478 * t2998 * t561 - 0.2000000000e1_dp * t478 * t27 * t649 & 04852 * t14 + 0.1200000000e2_dp * t478 * t56 * t1688 * t17 - 0.2400000000e2_dp & 04853 * t473 * t1161 * t1483 + 0.1080000000e3_dp * t1143 * t474 * t3314 - & 04854 0.2160000000e3_dp * t2994 * t474 * t3306 + 0.7200000000e2_dp * t1821 * & 04855 t3969 - 0.3600000000e2_dp * t473 * t4201 * t237 - 0.1800000000e2_dp * t473 & 04856 * t3030 * t561 - 0.2400000000e2_dp * t473 * t1811 * t833 - 0.1800000000e2_dp & 04857 * t478 * t183 * t3918 04858 t4230 = t1142 * t262 04859 t4255 = 0.5400000000e2_dp * t1143 * t474 * t3329 + 0.5400000000e2_dp * t1143 & 04860 * t1801 * t754 + 0.7200000000e2_dp * t473 * t1176 * t1410 + 0.8999999998e1_dp & 04861 * t178 * t62 * t3796 - 0.2400000000e2_dp * t472 * t859 * t3933 & 04862 - 0.1080000000e3_dp * t4230 * t3940 + 0.4000000000e1_dp * t473 * t1157 & 04863 * t3472 + 0.1080000000e3_dp * t1143 * t1150 * t1410 + 0.3600000000e2_dp & 04864 * t1821 * t3985 + 0.7200000000e2_dp * t4230 * t3979 - 0.1800000000e2_dp & 04865 * t473 * t1801 * t804 - 0.3600000000e2_dp * t473 * t1150 * t1447 - & 04866 0.3600000000e2_dp * t478 * t1176 * t1447 - 0.1800000000e2_dp * t473 * t474 & 04867 * t3382 04868 t4256 = t4214 + t4255 04869 t4261 = -0.2222222224e0_dp * t1510 * t515 * t517 + 0.3703703706e0_dp * t719 & 04870 * t1213 - 0.1000000001e1_dp * t1766 * t266 * t1722 - 0.5555555558e-1_dp & 04871 * t4070 * t200 + 0.6666666668e0_dp * t1519 * t496 * t561 * t65 - 0.5000000001e0_dp & 04872 * t732 * t4156 - 0.5000000001e0_dp * t140 * t865 * t1722 & 04873 - 0.5000000001e0_dp * t804 * t187 * t1722 - 0.4938271608e0_dp * t719 * & 04874 t1101 + 0.8999999998e1_dp * t1097 * t178 * t710 - 0.5555555558e-1_dp * & 04875 t192 * t68 * t4256 * t65 04876 t4272 = t863 * t561 * t65 04877 t4292 = (2 * t1836 * t266 * t65) - 0.1111111112e0_dp * t719 * t1224 & 04878 - 0.2222222224e0_dp * t1137 * t1790 - 0.1000000001e1_dp * t723 * t4272 & 04879 - 0.1111111112e0_dp * t1785 * t1134 - 0.6172839508e-1_dp * t192 * t22 * & 04880 t705 * t1200 - 0.5000000001e0_dp * t140 * t863 * t1722 - 0.1111111112e0_dp & 04881 * t1755 * t531 - 0.6172839508e-1_dp * t1715 * t874 - 0.5555555558e-1_dp & 04882 * t719 * t1122 + 0.7407407410e-1_dp * t508 * t1726 04883 t4317 = 0.7407407410e-1_dp * t1755 * t527 - 0.6172839508e-1_dp * t719 * t1201 & 04884 - 0.1111111112e0_dp * t508 * t1838 - 0.2222222224e0_dp * t192 * t3552 & 04885 * t1125 + 0.7407407410e-1_dp * t1785 * t1221 - 0.1111111111e1_dp * t3547 & 04886 * t1737 + 0.6666666668e0_dp * t1519 * t187 * t1712 + 0.7407407410e-1_dp & 04887 * t503 * t3553 - 0.1111111112e0_dp * t1755 * t534 - 0.1000000001e1_dp & 04888 * t1774 * t1712 + 0.7407407410e-1_dp * t719 * t1119 04889 t4345 = -0.1000000001e1_dp * t379 * t266 * t1722 - 0.1000000001e1_dp * t804 & 04890 * t722 * t1722 + 0.8999999998e1_dp * t1109 * t178 * t710 - 0.5555555558e-1_dp & 04891 * t1129 * t729 + t4256 * t65 - 0.2222222224e0_dp * t1755 * t520 & 04892 - 0.1111111112e0_dp * t503 * t3569 - 0.1111111112e0_dp * t1785 * t1216 & 04893 - 0.1111111112e0_dp * t3097 * t4101 - 0.5000000001e0_dp * t732 * t4272 & 04894 + 0.7407407410e-1_dp * t192 * t194 * t1836 * t526 04895 t4352 = t1731 * t67 04896 t4378 = 0.7407407410e-1_dp * t1715 * t878 + 0.8999999998e1_dp * t1189 * t59 & 04897 * t177 * t710 + 0.7407407410e-1_dp * t4352 * t271 - 0.1111111112e0_dp & 04898 * t4352 * t275 - 0.5555555556e0_dp * t3547 * t1745 + 0.7407407410e-1_dp & 04899 * t516 * t1709 * t526 + 0.6666666668e0_dp * t3533 * t187 * t1722 - 0.1000000001e1_dp & 04900 * t237 * t496 * t1722 + 0.3703703706e0_dp * t579 * t1192 & 04901 * t1194 - 0.1000000001e1_dp * t723 * t4156 + 0.1333333334e1_dp * t3533 & 04902 * t722 * t1722 - 0.5555555558e-1_dp * t719 * t1235 04903 t4392 = 0.3333333334e0_dp * t165 * t171 * t1825 + 0.1250000000e0_dp * t1981 & 04904 * t1247 * t3329 - 0.3125000000e0_dp * t4025 * t1247 * t3306 + 0.3333333334e0_dp & 04905 * t165 * t1392 * t1447 + 0.5555555556e-1_dp * t1246 * t4032 & 04906 * t833 - 0.1666666667e0_dp * t1246 * t74 * t25 * t1410 + 0.5555555556e-1_dp & 04907 * t1246 * t1247 * t3449 + 0.1800000000e2_dp * t657 * t1283 * t59 & 04908 * t1975 - 0.1666666667e0_dp * t429 * t166 * t3871 + 0.3333333334e0_dp & 04909 * t55 * t57 * (t4079 + t4108 + t4140 + t4261 + t4292 + t4317 + t4345 & 04910 + t4378) + 0.1481481481e0_dp * t170 * t114 * t735 * t14 - 0.1666666667e0_dp & 04911 * t429 * t1928 * t290 04912 t4428 = -0.1111111111e0_dp * t165 * t1264 * t1483 + 0.1800000000e2_dp * t658 & 04913 * t575 * t1348 - 0.8333333335e-1_dp * t429 * t679 * t918 - 0.1111111111e0_dp & 04914 * t165 * t455 * t1988 + 0.3333333334e0_dp * t170 * t27 * t3576 & 04915 * t172 - 0.8333333335e-1_dp * t429 * t1966 * t754 + 0.1250000000e0_dp & 04916 * t1368 * t679 * t907 + 0.1666666667e0_dp * t445 * t446 * t3918 - 0.4444444445e0_dp & 04917 * t165 * t450 * t1829 + 0.2500000000e0_dp * t1981 * t3244 & 04918 * t1410 - 0.1666666667e0_dp * t429 * t1392 * t1410 04919 t4466 = -0.1666666667e0_dp * t429 * t437 * t1553 - 0.1111111111e0_dp * t165 & 04920 * t689 * t1085 + 0.1666666667e0_dp * t165 * t1275 * t649 - 0.2222222222e0_dp & 04921 * t170 * t27 * t1843 * t17 - 0.8333333335e-1_dp * t1246 * t1962 & 04922 * t1168 + 0.1666666667e0_dp * t165 * t2720 * t561 + 0.6666666668e0_dp & 04923 * t170 * t1932 * t25 + 0.3333333334e0_dp * t445 * t1292 * t1825 + 0.1250000000e0_dp & 04924 * t1368 * t166 * t3853 - 0.4444444445e0_dp * t1373 * t1962 & 04925 * t1172 + 0.7407407405e-1_dp * t165 * t1377 * t3472 + 0.5555555555e-1_dp & 04926 * t1246 * t3244 * t1483 04927 t4498 = t56 * t1843 04928 t4505 = 0.1666666667e0_dp * t165 * t166 * t3796 - 0.8333333334e-1_dp * t2763 & 04929 * t1247 * t833 * t561 + (4 * t147 * t392 * t1886) + (2 & 04930 * t147 * t1388 * t672) - 0.1111111111e0_dp * t165 * t1940 * t833 + 0.3333333334e0_dp & 04931 * t165 * t1928 * t379 + 0.7407407409e-1_dp * t165 * t450 & 04932 * t649 * t14 - 0.1666666667e0_dp * t429 * t462 * t3314 - 0.3703703704e-1_dp & 04933 * t2885 * t1247 * t3472 + 0.3333333334e0_dp * t165 * t4498 * t237 & 04934 + (2 * t147 * t1284 * t672) 04935 t4512 = t1531 * rho 04936 t4545 = (4 * t147 * t1885 * t424) + 0.1666666667e0_dp * t165 * t462 & 04937 * t3382 + 0.3333333334e0_dp * t445 * t4512 * t413 + 0.5185185185e0_dp & 04938 * t2937 * t446 * t3925 - 0.8333333335e-1_dp * t429 * t166 * t3827 - 0.1666666667e0_dp & 04939 * t429 * t437 * t1571 + 0.5555555555e-1_dp * t1246 * t203 & 04940 * t237 * t1483 + 0.5555555555e-1_dp * t1246 * t2707 * t1483 + 0.7407407409e-1_dp & 04941 * t165 * t1875 * t1360 + (4 * t147 * t393 * t1924) & 04942 + 0.3600000000e2_dp * (t1971) * (t1972) * (t1973) * (t424) & 04943 + 0.3333333334e0_dp * t165 * t437 * t1688 04944 t4553 = t585 * t140 04945 t4575 = t1067 * t561 04946 t4585 = 0.1666666667e0_dp * t445 * t3248 * t668 - 0.1111111111e0_dp * t165 & 04947 * t1932 * t433 + 0.5555555556e-1_dp * t1246 * t4553 * t833 - 0.8333333335e-1_dp & 04948 * t429 * t1275 * t593 - 0.8333333335e-1_dp * t429 * t462 * & 04949 t3329 + 0.2500000000e0_dp * t1981 * t1247 * t3314 + 0.1666666667e0_dp * & 04950 t445 * t1962 * t1093 + 0.3333333334e0_dp * t165 * t455 * t668 - 0.8333333335e-1_dp & 04951 * t429 * t166 * t3849 - 0.8333333335e-1_dp * t429 * t166 * & 04952 t4575 + 0.2e1_dp * t147 * (t3491 - t3494 - t3497 + t3501 - t3505 + 0.9000000000e1_dp & 04953 * t3507 - t3512) * t149 * t160 04954 t4607 = t1688 * t237 04955 t4627 = 0.1666666667e0_dp * t165 * t1966 * t804 - 0.1666666667e0_dp * t429 & 04956 * t437 * t1557 + 0.1800000000e2_dp * t657 * t1387 * t59 * t1975 + 0.1037037037e1_dp & 04957 * t170 * t341 * t585 * t1100 - 0.8888888890e0_dp * t170 & 04958 * t114 * t1531 * t451 - 0.8888888890e0_dp * t170 * t1875 * t225 - 0.1666666667e0_dp & 04959 * t429 * t166 * t4607 - 0.1111111111e0_dp * t165 * t466 & 04960 * t3449 - 0.1666666667e0_dp * t429 * t679 * t914 - 0.8333333335e-1_dp * & 04961 t1246 * t446 * t1093 * t561 + 0.1250000000e0_dp * t1368 * t462 * t3306 & 04962 + 0.2500000000e0_dp * t1981 * t2707 * t1410 04963 t4657 = -0.3333333336e0_dp * t289 * t84 * t3871 - 0.6666666672e0_dp * t83 & 04964 * t3875 * t237 + 0.8333333340e-1_dp * t906 * t384 * t3306 - 0.1666666668e0_dp & 04965 * t289 * t597 * t918 - 0.2222222224e0_dp * t144 * t46 * (t4018 & 04966 + t4392 + t4428 + t4466 + t4505 + t4545 + t4585 + t4627) - 0.1666666668e0_dp & 04967 * t289 * t384 * t3329 - 0.3333333336e0_dp * t165 * t2636 * t561 & 04968 - 0.3333333336e0_dp * t165 * t897 * t1447 + 0.8333333340e-1_dp * t1546 & 04969 * t897 * t3329 - 0.6666666672e0_dp * t83 * t1071 * t1447 - 0.3333333336e0_dp & 04970 * t83 * t2404 * t561 - 0.4444444448e0_dp * t383 * t3875 - 0.3333333336e0_dp & 04971 * t289 * t294 * t1553 04972 t4696 = -0.6666666672e0_dp * t55 * t1575 - 0.3333333336e0_dp * t289 * t597 & 04973 * t914 - 0.3333333336e0_dp * t165 * t2631 * t561 - 0.6666666672e0_dp * & 04974 t55 * t1706 - 0.3333333336e0_dp * t289 * t384 * t3314 - 0.6666666672e0_dp & 04975 * t83 * t294 * t1688 + 0.1666666668e0_dp * t1546 * t2631 * t1410 - & 04976 0.3333333336e0_dp * t289 * t1564 * t290 - 0.1666666668e0_dp * t289 * t84 & 04977 * t4575 - 0.3333333336e0_dp * t289 * t294 * t1557 - 0.1666666668e0_dp & 04978 * t289 * t1694 * t754 - 0.3333333336e0_dp * t289 * t84 * t4607 - 0.3333333336e0_dp & 04979 * t83 * t45 * t3581 * t140 04980 t4700 = -0.6666666670e0_dp * t2147 * t1411 - 0.1333333334e1_dp * t747 * t597 & 04981 * t237 - 0.1333333334e1_dp * t747 * t84 * t1447 - 0.1333333334e1_dp & 04982 * t747 * t294 * t561 - 0.8888888896e0_dp * t214 * t1536 + 0.1666666668e0_dp & 04983 * t3305 * t84 * t3306 - 0.3333333336e0_dp * t753 * t46 * t589 * t754 & 04984 - 0.6666666672e0_dp * t1409 * t84 * t3314 - 0.6666666670e0_dp * t1409 & 04985 * t294 * t1410 - 0.1333333334e1_dp * t217 * t46 * t1535 * t237 - 0.1333333334e1_dp & 04986 * t217 * t46 * t282 * t1447 - 0.3333333336e0_dp * t1409 & 04987 * t84 * t3329 - 0.6666666672e0_dp * t217 * t46 * t589 * t804 - 0.6666666672e0_dp & 04988 * t217 * t46 * t78 * t3382 - 0.6666666672e0_dp * t217 * t46 & 04989 * t893 * t561 - 0.4444444448e0_dp * t43 * t46 * t3581 + t8 * (t3826 + & 04990 t3869 + t4657 + t4696) 04991 e_ndrho_rho_rho_spin(ii) = e_ndrho_rho_rho_spin(ii) + t4700 * sx 04992 t4701 = t561 ** 2 04993 t4704 = 0.3333333336e0_dp * t2147 * t84 * t4701 04994 t4707 = 0.1333333334e1_dp * t747 * t597 * t561 04995 t4708 = t22 * t36 04996 t4713 = t557 ** 2 04997 t4714 = t327 * t4713 04998 t4717 = t22 * t132 04999 t4721 = 0.1e1_dp / t787 * t2480 05000 t4725 = 0.120e2_dp * t624 * t4717 - 0.60e1_dp * t7 * t4721 * t371 05001 t4726 = t105 * t4725 05002 t4729 = 0.40e1_dp * t624 * t4708 - 0.80e1_dp * t112 * t558 + 0.40e1_dp * t102 & 05003 * t4714 - 0.20e1_dp * t102 * t4726 05004 t4732 = 0.6666666672e0_dp * t747 * t84 * t4729 05005 t4733 = pi ** 2 05006 t4734 = t4733 * t146 05007 t4736 = 0.1e1_dp / t58 / omega 05008 t4738 = t4734 * t4736 * t1300 05009 t4739 = t4701 * t149 05010 t4743 = t19 * t4701 05011 t4744 = t399 * t4743 05012 t4748 = t151 * t19 * t4729 05013 t4760 = t20 * t4701 05014 t4764 = t20 * t4729 05015 t4768 = t58 ** 2 05016 t4769 = 0.1e1_dp / t4768 05017 t4770 = t4769 * t1141 05018 t4771 = t4770 * t4733 05019 t4772 = t26 * t4701 05020 t4776 = t58 * t4729 05021 t4782 = -0.2250000000e2_dp * t473 * t4760 * t65 + 0.8999999998e1_dp * t478 & 05022 * t4764 * t65 + 0.8099999996e2_dp * t4771 * t4772 * t65 - 0.5555555558e-1_dp & 05023 * t4776 * t71 - 0.5000000001e0_dp * t60 * t4729 * t65 05024 t4786 = -0.2700000000e2_dp * t4738 * t18 * t4739 + 0.4500000000e1_dp * t567 & 05025 * t4744 - 0.3000000000e1_dp * t567 * t4748 - 0.8333333335e-1_dp * t429 & 05026 * t166 * t4701 + 0.3333333334e0_dp * t165 * t679 * t561 + 0.1666666667e0_dp & 05027 * t165 * t166 * t4729 + 0.3333333334e0_dp * t55 * t57 * t4782 05028 t4789 = 0.4444444448e0_dp * t214 * t46 * t4786 05029 t4790 = t237 * t4701 05030 t4793 = 0.1666666668e0_dp * t3305 * t84 * t4790 05031 t4796 = 0.6666666672e0_dp * t1409 * t597 * t1410 05032 t4797 = t1447 * t561 05033 t4800 = 0.6666666672e0_dp * t1409 * t84 * t4797 05034 t4801 = t237 * t4729 05035 t4804 = 0.3333333336e0_dp * t1409 * t84 * t4801 05036 t4808 = 0.6666666672e0_dp * t217 * t46 * t4786 * t237 05037 t4812 = 0.1333333334e1_dp * t217 * t46 * t589 * t1447 05038 t4817 = t953 * t4713 05039 t4820 = t316 * t4725 05040 t4829 = t233 * t4713 05041 t4830 = t974 * t4829 05042 t4833 = t1443 * t557 05043 t4834 = t327 * t4833 05044 t4837 = t233 * t4725 05045 t4838 = t327 * t4837 05046 t4849 = -0.3200000000e2_dp * t1645 * t627 + 0.4800000000e2_dp * t7 * t1440 & 05047 - 0.2400000000e2_dp * t786 / t2492 * t1058 05048 t4850 = t105 * t4849 05049 t4853 = -0.1066666667e2_dp * t1645 * t98 + 0.2133333334e2_dp * t339 * t1420 & 05050 - 0.1066666667e2_dp * t321 * t4817 + 0.5333333333e1_dp * t321 * t4820 & 05051 - 0.40e1_dp * t624 * t234 + 0.160e2_dp * t112 * t1426 - 0.80e1_dp * t112 * & 05052 t1444 - 0.120e2_dp * t102 * t4830 + 0.80e1_dp * t102 * t4834 + 0.40e1_dp * & 05053 t102 * t4838 - 0.20e1_dp * t102 * t4850 05054 t4857 = 0.6666666672e0_dp * t217 * t46 * t78 * t4853 05055 t4861 = 0.3333333336e0_dp * t753 * t46 * t282 * t4701 05056 t4864 = t217 * t46 * t1535 * t561 05057 t4869 = 0.6666666672e0_dp * t217 * t46 * t282 * t4729 05058 t4872 = 0.8333333335e-1_dp * t429 * t437 * t4701 05059 t4874 = t165 * t1928 * t561 05060 t4878 = 0.1666666667e0_dp * t165 * t437 * t4729 05061 t4881 = 0.5400000000e2_dp * t1143 * t1493 * t4701 05062 t4884 = 0.3600000000e2_dp * t473 * t2035 * t561 05063 t4887 = 0.1800000000e2_dp * t473 * t1493 * t4729 05064 t4889 = t178 * t62 * t4853 05065 t4893 = 0.1200000000e2_dp * t473 * t1500 * t4701 05066 t4895 = t478 * t1500 * t4729 05067 t4897 = t4881 - t4884 - t4887 + 0.8999999998e1_dp * t4889 - t4893 + 0.5999999999e1_dp & 05068 * t4895 05069 t4898 = t4897 * t65 05070 t4901 = t1504 * t59 * t177 * t710 05071 t4904 = t4701 * t65 05072 t4905 = t62 * t4904 05073 t4907 = 0.2250000000e2_dp * t1506 * t471 * t4905 05074 t4908 = t4729 * t65 05075 t4909 = t62 * t4908 05076 t4911 = 0.8999999998e1_dp * t1507 * t4909 05077 t4915 = t4733 * t26 * t4904 05078 t4917 = 0.8099999996e2_dp * t266 * t4769 * t1141 * t4915 05079 t4918 = t58 * t4853 05080 t4920 = 0.5555555558e-1_dp * t4918 * t71 05081 t4922 = t1447 * t177 * t709 05082 t4925 = 0.5000000001e0_dp * t1513 * t4908 05083 t4929 = t60 * t1504 * t709 05084 t4932 = 0.5000000001e0_dp * t1528 * t4908 05085 t4935 = 0.1000000000e1_dp * t237 * t471 * t4904 05086 t4940 = t59 * pi * t20 * t65 05087 t4941 = t237 * t1141 * t4701 * t4940 05088 t4943 = t4776 * t67 05089 t4945 = 0.3703703705e-1_dp * t4943 * t271 05090 t4946 = t471 * t1518 05091 t4951 = 0.5555555558e-1_dp * t4943 * t275 05092 t4952 = t719 * t1525 05093 t4955 = t68 * t4897 * t65 05094 t4958 = t4898 + 0.1800000000e2_dp * t4901 - t4907 + t4911 + t4917 - t4920 & 05095 - 0.1000000000e1_dp * t4922 - t4925 + 0.3333333334e0_dp * t1519 * t4908 & 05096 - 0.1000000000e1_dp * t4929 - t4932 + t4935 - 0.4500000000e1_dp * t4941 & 05097 + t4945 + 0.3000000000e1_dp * t4946 * t4701 * t4940 - t4951 - 0.1111111112e0_dp & 05098 * t4952 - 0.5555555558e-1_dp * t192 * t4955 05099 t4994 = t44 * t4733 * t146 05100 t4995 = t4994 * t4770 05101 t5001 = 0.1666666667e0_dp * t165 * t166 * t4853 05102 t5002 = t17 * t4701 05103 t5005 = 0.2777777778e-1_dp * t429 * t171 * t5002 05104 t5008 = 0.1111111111e0_dp * t165 * t689 * t1483 05105 t5009 = t17 * t4729 05106 t5011 = t165 * t171 * t5009 05107 t5013 = t27 * t4782 05108 t5016 = 0.1111111111e0_dp * t170 * t5013 * t17 05109 t5019 = 0.1250000000e0_dp * t1368 * t166 * t4790 05110 t5022 = 0.1666666667e0_dp * t429 * t679 * t1410 05111 t5025 = 0.1666666667e0_dp * t429 * t166 * t4797 05112 t5028 = 0.8333333335e-1_dp * t429 * t166 * t4801 05113 t5029 = t56 * t4782 05114 t5032 = 0.1666666667e0_dp * t165 * t5029 * t237 05115 t5035 = 0.3333333334e0_dp * t165 * t679 * t1447 05116 t5036 = -t4872 + 0.3333333334e0_dp * t4874 + t4878 + 0.3333333334e0_dp * & 05117 t55 * t57 * t4958 + 0.2e1_dp * t147 * t149 * (-0.5625000000e1_dp * t1302 & 05118 * t1459 * t4701 + 0.4500000000e1_dp * t400 * t2022 * t561 + 0.2250000000e1_dp & 05119 * t400 * t1459 * t4729 - 0.1500000000e1_dp * t151 * t50 * t4853 & 05120 + 0.7500000000e0_dp * t400 * t1466 * t4701 - 0.5000000000e0_dp * t405 & 05121 * t1466 * t4729) - 0.3600000000e2_dp * t2081 * t4760 * t250 + 0.1800000000e2_dp & 05122 * t658 * t4764 * t250 + 0.3600000000e2_dp * t658 * t575 * t1471 & 05123 + 0.1620000000e3_dp * t4995 * t4772 * t250 + t5001 + t5005 - t5008 & 05124 - 0.5555555555e-1_dp * t5011 - t5016 + t5019 - t5022 - t5025 - t5028 & 05125 + t5032 + t5035 05126 t5040 = t379 * t4729 05127 t5043 = 0.1666666668e0_dp * t289 * t84 * t5040 05128 t5044 = t140 * t4853 05129 t5047 = 0.1666666668e0_dp * t289 * t84 * t5044 05130 t5050 = 0.1666666668e0_dp * t165 * t897 * t4729 05131 t5051 = beta * t86 05132 t5060 = beta * t92 05133 t5065 = rho * t4713 05134 t5069 = rho * t4725 05135 t5079 = t136 * t4713 05136 t5083 = t645 * t557 05137 t5087 = t136 * t4725 05138 t5106 = beta * t640 05139 t5108 = t126 * t371 * ndrho 05140 t5115 = t366 * t640 05141 t5118 = -0.480e2_dp * t5051 * t4717 + 0.240e2_dp * t7 * t2182 * t2480 * t371 & 05142 + 0.480e2_dp * t5060 * t628 - 0.240e2_dp * t7 * t1640 * t1438 * t371 & 05143 * rho + 0.120e2_dp * t550 * t637 - 0.180e2_dp * t5106 * t5108 - 0.120e2_dp & 05144 * t7 * t640 * t635 * t371 + 0.180e2_dp * t5115 * t1681 05145 t5122 = -0.320e2_dp * t5051 * t4708 + 0.640e2_dp * t1582 * t558 - 0.320e2_dp & 05146 * t302 * t4714 + 0.160e2_dp * t302 * t4726 + 0.320e2_dp * t5060 * t99 - & 05147 0.640e2_dp * t605 * t609 + 0.320e2_dp * t93 * t953 * t5065 - 0.160e2_dp * & 05148 t93 * t316 * t5069 - 0.40e1_dp * t624 * t137 + 0.160e2_dp * t112 * t615 & 05149 - 0.80e1_dp * t112 * t646 - 0.120e2_dp * t102 * t974 * t5079 + 0.80e1_dp * & 05150 t102 * t327 * t5083 + 0.40e1_dp * t102 * t327 * t5087 - 0.20e1_dp * t102 & 05151 * t105 * t5118 05152 t5123 = t5122 * t237 05153 t5126 = 0.1666666668e0_dp * t289 * t84 * t5123 05154 t5139 = t25 * t4701 05155 t5143 = t25 * t4729 05156 t5147 = -0.5625000000e1_dp * t1302 * t401 * t4701 + 0.4500000000e1_dp * t400 & 05157 * t1892 * t561 + 0.2250000000e1_dp * t400 * t401 * t4729 - 0.1500000000e1_dp & 05158 * t151 * t50 * t5122 - 0.2250000000e1_dp * t400 * t156 * t5139 & 05159 + 0.1500000000e1_dp * t405 * t156 * t5143 05160 t5163 = t140 * t4701 05161 t5170 = t649 * t561 05162 t5174 = t140 * t4729 05163 t5226 = 0.5400000000e2_dp * t1143 * t474 * t4701 - 0.3600000000e2_dp * t473 & 05164 * t1801 * t561 - 0.1800000000e2_dp * t473 * t474 * t4729 + 0.8999999998e1_dp & 05165 * t178 * t62 * t5122 + 0.3600000000e2_dp * t473 * t183 * t5139 & 05166 - 0.1800000000e2_dp * t478 * t183 * t5143 05167 t5228 = t705 * t59 05168 t5229 = t5228 * t177 05169 t5237 = t649 * t177 05170 t5244 = t60 * t705 05171 t5247 = t187 * t4769 05172 t5251 = t58 * t5122 05173 t5256 = t140 * t1141 05174 t5262 = t471 * t722 05175 t5270 = t68 * t5226 05176 t5271 = t5270 * t65 05177 t5276 = t5226 * t65 + 0.1800000000e2_dp * t5229 * t710 - 0.2250000000e2_dp & 05178 * t707 * t471 * t4905 + 0.8999999998e1_dp * t708 * t4909 - 0.1000000000e1_dp & 05179 * t5237 * t709 - 0.5000000001e0_dp * t716 * t4908 - 0.1000000001e1_dp & 05180 * t723 * t4908 - 0.1000000000e1_dp * t5244 * t709 + 0.8099999996e2_dp & 05181 * t5247 * t1141 * t4915 - 0.5555555558e-1_dp * t5251 * t71 + 0.1000000000e1_dp & 05182 * t2098 * t4904 - 0.4500000000e1_dp * t5256 * t4701 * t4940 & 05183 - 0.1111111112e0_dp * t4943 * t196 - 0.9000000007e1_dp * t5262 * t4701 & 05184 * t4940 - 0.5555555558e-1_dp * t4943 * t200 - 0.1111111112e0_dp * t719 * & 05185 t729 - 0.5555555558e-1_dp * t192 * t5271 - 0.5000000001e0_dp * t732 * t4908 05186 t5280 = (2 * t147 * t149 * t5147) - 0.3600000000e2_dp * t2081 * t4760 & 05187 * t161 + 0.1800000000e2_dp * t658 * t4764 * t161 + 0.3600000000e2_dp & 05188 * t658 * t575 * t673 + 0.1620000000e3_dp * t4995 * t4772 * t161 + 0.1250000000e0_dp & 05189 * t1368 * t166 * t5163 - 0.1666666667e0_dp * t429 * t679 & 05190 * t593 - 0.1666666667e0_dp * t429 * t166 * t5170 - 0.8333333335e-1_dp * & 05191 t429 * t166 * t5174 + 0.1666666667e0_dp * t165 * t5029 * t140 + 0.3333333334e0_dp & 05192 * t165 * t679 * t649 + 0.1666666667e0_dp * t165 * t166 * t5122 & 05193 - 0.8333333335e-1_dp * t1246 * t446 * t5139 + 0.3333333334e0_dp * t445 & 05194 * t1962 * t668 + 0.1666666667e0_dp * t445 * t446 * t5143 + 0.3333333334e0_dp & 05195 * t170 * t5013 * t172 - 0.8333333335e-1_dp * t429 * t462 * t4701 & 05196 + 0.3333333334e0_dp * t165 * t1966 * t561 + 0.1666666667e0_dp * t165 & 05197 * t462 * t4729 + 0.3333333334e0_dp * t55 * t57 * t5276 05198 t5281 = t45 * t5280 05199 t5284 = 0.3333333336e0_dp * t83 * t5281 * t237 05200 t5291 = 0.1666666668e0_dp * t289 * t384 * t4801 05201 t5294 = 0.1666666668e0_dp * t1546 * t3865 * t1410 05202 t5295 = t45 * t4786 05203 t5298 = 0.3333333336e0_dp * t83 * t5295 * t379 05204 t5301 = 0.3333333336e0_dp * t55 * t384 * t4729 05205 t5303 = t83 * t1564 * t649 05206 t5305 = -t5043 - t5047 - t5050 - t5126 - t5284 - 0.3333333336e0_dp * t83 & 05207 * t45 * t5036 * t140 - t5291 + t5294 - t5298 - t5301 - 0.6666666672e0_dp & 05208 * t5303 05209 t5308 = 0.3333333336e0_dp * t289 * t1694 * t1410 05210 t5311 = 0.1666666668e0_dp * t289 * t1071 * t4701 05211 t5314 = 0.1666666668e0_dp * t289 * t5295 * t290 05212 t5317 = 0.3333333336e0_dp * t165 * t3861 * t561 05213 t5320 = 0.3333333336e0_dp * t83 * t1071 * t4729 05214 t5323 = 0.1666666668e0_dp * t1546 * t3861 * t1410 05215 t5326 = 0.1250000001e0_dp * t3842 * t897 * t4790 05216 t5329 = 0.6666666672e0_dp * t83 * t1694 * t1447 05217 t5330 = t379 * t4701 05218 t5333 = 0.8333333340e-1_dp * t906 * t84 * t5330 05219 t5335 = 0.2222222224e0_dp * t383 * t5281 05220 t5338 = 0.6666666672e0_dp * t55 * t1694 * t561 05221 t5339 = t649 * t1447 05222 t5342 = 0.3333333336e0_dp * t289 * t84 * t5339 05223 t5343 = -t5308 - t5311 - t5314 - t5317 - t5320 + t5323 - t5326 - t5329 & 05224 + t5333 - t5335 - t5338 - t5342 05225 t5345 = t1688 * t561 05226 t5347 = t289 * t84 * t5345 05227 t5351 = 0.1666666668e0_dp * t164 * t384 * t4701 05228 t5354 = 0.3333333336e0_dp * t83 * t384 * t4853 05229 t5357 = 0.6666666672e0_dp * t55 * t597 * t649 05230 t5360 = 0.3333333336e0_dp * t289 * t384 * t4797 05231 t5363 = 0.8333333335e-1_dp * t429 * t166 * t5040 05232 t5367 = 0.1666666667e0_dp * t445 * t4782 * rho * t413 05233 t5370 = 0.1666666667e0_dp * t429 * t679 * t1557 05234 t5371 = t225 * t4701 05235 t5373 = t2885 * t446 * t5371 05236 t5376 = t165 * t466 * t5009 05237 t5379 = t165 * t1928 * t649 05238 t5383 = 0.4166666667e-1_dp * t2763 * t1247 * t5002 05239 t5386 = 0.8333333335e-1_dp * t429 * t5029 * t290 05240 t5389 = 0.8333333335e-1_dp * t429 * t166 * t5044 05241 t5397 = 0.8333333335e-1_dp * t1246 * t446 * t413 * t4729 05242 t5400 = 0.3333333334e0_dp * t445 * t1962 * t1825 05243 t5402 = t165 * t679 * t1688 05244 t5406 = 0.8333333335e-1_dp * t429 * t166 * t5123 05245 t5409 = 0.8333333335e-1_dp * t429 * t1392 * t4701 05246 t5412 = 0.8333333335e-1_dp * t429 * t171 * t5139 05247 t5415 = 0.1666666667e0_dp * t429 * t462 * t4797 05248 t5418 = 2 * t147 * t393 * t5147 05249 t5421 = t657 * t1884 * t59 * t1975 05250 t5423 = -t5363 + t5367 - t5370 + 0.1111111111e0_dp * t5373 - 0.5555555555e-1_dp & 05251 * t5376 + 0.3333333334e0_dp * t5379 - t5383 - t5386 - t5389 + & 05252 0.3333333334e0_dp * t170 * t27 * t4958 * t172 - t5397 + t5400 + 0.3333333334e0_dp & 05253 * t5402 - t5406 - t5409 - t5412 - t5415 + t5418 + 0.3600000000e2_dp & 05254 * t5421 05255 t5426 = 0.8333333335e-1_dp * t1246 * t1292 * t5139 05256 t5429 = 0.1666666667e0_dp * t445 * t1292 * t5143 05257 t5430 = t225 * t4729 05258 t5432 = t1373 * t446 * t5430 05259 t5436 = 0.1666666667e0_dp * t165 * t5029 * t379 05260 t5440 = 0.40e1_dp * t102 * t327 * t375 * t4725 05261 t5443 = 0.960e2_dp * t1597 * t3608 * t4829 05262 t5446 = 0.480e2_dp * t24 * t23 * t1618 05263 t5449 = 0.1173333333e3_dp * t307 * t2611 * t5065 05264 t5451 = 0.640e2_dp * t605 * t1603 05265 t5454 = 0.2133333334e2_dp * t321 * t953 * t5083 05266 t5456 = 0.1280e3_dp * t1582 * t1426 05267 t5459 = 0.5333333333e1_dp * t321 * t316 * t5118 05268 t5460 = beta * t306 05269 t5462 = 0.1173333333e3_dp * t5460 * t313 05270 t5466 = 0.40e1_dp * t102 * t327 * t136 * t4849 05271 t5468 = 0.2346666666e3_dp * t605 * t1420 05272 t5469 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 - t5456 + t5459 & 05273 - t5462 + t5466 - t5468 05274 t5472 = 0.3200000001e2_dp * t321 * t2455 * t5079 05275 t5474 = 0.4266666668e2_dp * t339 * t1608 05276 t5478 = 0.240e2_dp * t1616 * t973 * t645 * t1425 05277 t5480 = 0.1760000000e3_dp * t5060 * t627 05278 t5482 = 0.2160000000e3_dp * t7 * t1642 05279 t5484 = 0.1760000000e3_dp * t5460 * t347 05280 t5487 = 0.2160000000e3_dp * t7 * t995 * t1652 05281 t5489 = 0.1600000000e2_dp * t1429 * t1658 05282 t5492 = 0.7200000000e2_dp * beta * t368 * t5108 05283 t5494 = 0.6400000000e2_dp * t7 * t1677 05284 t5496 = t366 * t368 * t1681 05285 t5499 = 0.120e2_dp * t550 * t1669 05286 t5503 = 0.180e2_dp * t5106 * t360 * t371 * ndrho 05287 t5507 = 0.120e2_dp * t7 * t640 * t1667 * t371 05288 t5509 = 0.180e2_dp * t5115 * t3668 05289 t5511 = t1680 * t3673 * t23 05290 t5516 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.1920000000e3_dp & 05291 * t5496 + t5499 - t5503 - t5507 + t5509 - 0.4800000000e2_dp & 05292 * t5511 + 0.1200000000e3_dp * t1055 * t2565 * t4721 05293 t5523 = 0.120e2_dp * t102 * t974 * t375 * t4713 05294 t5525 = 0.2133333334e2_dp * t339 * t1611 05295 t5528 = t102 * t327 * t1684 * t557 05296 t5531 = 0.160e2_dp * t112 * t1626 05297 t5533 = 0.160e2_dp * t112 * t1632 05298 t5535 = 0.640e2_dp * t1582 * t1444 05299 t5537 = 0.160e2_dp * t112 * t1622 05300 t5540 = 0.320e2_dp * t1597 * t1598 * t4837 05301 t5541 = t5472 - t5474 - t5478 - 0.20e1_dp * t102 * t105 * t5516 - t5523 & 05302 + t5525 + 0.80e1_dp * t5528 + t5531 + t5533 + t5535 + t5537 + t5540 05303 t5545 = 0.480e2_dp * t1616 * t3750 * t4829 05304 t5548 = 0.120e2_dp * t1616 * t1617 * t4837 05305 t5551 = 0.1280e3_dp * t24 * t298 * t1599 05306 t5553 = 0.160e2_dp * t302 * t4850 05307 t5558 = 0.320e2_dp * t5060 * t97 * t104 * rho * t233 05308 t5560 = 0.2346666666e3_dp * t1589 * t1592 05309 t5562 = 0.5866666667e2_dp * t93 * t4820 05310 t5564 = 0.1173333333e3_dp * t5060 * t98 05311 t5565 = t112 * t1685 05312 t5568 = 0.1066666667e2_dp * t1645 * t322 05313 t5572 = 0.40e1_dp * t102 * t327 * t5118 * t233 05314 t5574 = 0.1173333333e3_dp * t93 * t4817 05315 t5575 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 05316 - 0.80e1_dp * t5565 + t5568 + t5572 + t5574 05317 t5579 = 0.80e1_dp * t102 * t327 * t645 * t1443 05318 t5581 = 0.320e2_dp * t302 * t4838 05319 t5585 = 0.160e2_dp * t93 * t316 * rho * t4849 05320 t5590 = 0.80e1_dp * t624 * t22 * t326 * t136 * t233 05321 t5593 = 0.1066666667e2_dp * t321 * t953 * t5087 05322 t5595 = 0.640e2_dp * t302 * t4834 05323 t5597 = 0.960e2_dp * t302 * t4830 05324 t5600 = 0.240e2_dp * t1616 * t1617 * t4833 05325 t5602 = 0.40e1_dp * t624 * t376 05326 t5604 = 0.320e2_dp * t5051 * t234 05327 t5607 = 0.5866666667e2_dp * t307 * t949 * t5069 05328 t5610 = 0.640e2_dp * t1597 * t1598 * t4833 05329 t5611 = t5579 - t5581 - t5585 + t5590 - t5593 - t5595 + t5597 - t5600 & 05330 - t5602 + t5604 + t5607 + t5610 05331 t5613 = t5469 + t5541 + t5575 + t5611 05332 t5619 = 0.3333333334e0_dp * t170 * t5013 * t25 05333 t5622 = 0.1666666667e0_dp * t165 * t1392 * t4729 05334 t5625 = 0.1666666667e0_dp * t429 * t166 * t5339 05335 t5628 = 0.3600000000e2_dp * t2081 * t4760 * t425 05336 t5631 = 0.5555555556e-1_dp * t1246 * t4032 * t1483 05337 t5632 = t25 * t4853 05338 t5635 = 0.1500000000e1_dp * t405 * t156 * t5632 05339 t5638 = 0.2250000000e1_dp * t400 * t1333 * t4701 05340 t5641 = 0.1500000000e1_dp * t405 * t1333 * t4729 05341 t5643 = t400 * t3975 * t561 05342 t5647 = 0.5625000000e1_dp * t1302 * t1309 * t4701 05343 t5650 = 0.5625000000e1_dp * t1302 * t401 * t4801 05344 t5653 = 0.4500000000e1_dp * t400 * t1892 * t1447 05345 t5657 = 0.5000000000e0_dp * t405 * t68 * t5122 * t17 05346 t5660 = 0.1125000000e2_dp * t1302 * t401 * t4797 05347 t5663 = 0.1500000000e1_dp * t400 * t417 * t5371 05348 t5666 = 0.1125000000e2_dp * t1302 * t1892 * t1410 05349 t5667 = t5635 - t5638 + t5641 + 0.4500000000e1_dp * t5643 - t5647 - t5650 & 05350 + t5653 - t5657 - t5660 + t5663 - t5666 05351 t5670 = 0.2250000000e1_dp * t400 * t1309 * t4729 05352 t5671 = t172 * t4801 05353 t5673 = 0.2250000000e1_dp * t1912 * t5671 05354 t5676 = 0.2250000000e1_dp * t400 * t401 * t4853 05355 t5679 = 0.1875000000e1_dp * t1302 * t406 * t5002 05356 t5682 = 0.1500000000e1_dp * t400 * t1902 * t1483 05357 t5686 = 0.2250000000e1_dp * t400 * t19 * t5122 * t237 05358 t5689 = 0.1000000000e1_dp * t405 * t417 * t5430 05359 t5692 = 0.1968750000e2_dp * t2823 * t401 * t4790 05360 t5695 = 0.7500000000e0_dp * t400 * t406 * t5009 05361 t5696 = t172 * t4790 05362 t5698 = 0.5625000000e1_dp * t3939 * t5696 05363 t5699 = t172 * t4797 05364 t5701 = 0.4500000000e1_dp * t1912 * t5699 05365 t5705 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 05366 + t5695 + t5698 - t5701 - 0.1500000000e1_dp * t151 * t50 * t5613 05367 t5713 = t4739 * t160 05368 t5716 = 0.1620000000e3_dp * t4994 * t392 * t4769 * t1141 * t26 * t5713 05369 t5719 = 0.3333333334e0_dp * t165 * t1966 * t1447 05370 t5722 = 0.1111111111e0_dp * t165 * t689 * t1988 05371 t5724 = t429 * t166 * t5345 05372 t5728 = 0.2500000000e0_dp * t1981 * t1247 * t4797 05373 t5731 = 0.1666666667e0_dp * t445 * t446 * t5632 05374 t5734 = 0.1666666667e0_dp * t429 * t679 * t1553 05375 t5738 = 0.4444444445e0_dp * t170 * t114 * t4782 * t451 05376 t5741 = 0.1666666667e0_dp * t165 * t171 * t5143 05377 t5742 = -t5426 + t5429 - 0.2222222222e0_dp * t5432 + t5436 + 0.1666666667e0_dp & 05378 * t165 * t166 * t5613 + t5619 + t5622 - t5625 - t5628 + t5631 & 05379 + (2 * t147 * t149 * (t5667 + t5705)) + t5716 + t5719 - t5722 & 05380 - 0.1666666667e0_dp * t5724 + t5728 + t5731 - t5734 - t5738 + t5741 05381 t5745 = t165 * t4498 * t561 05382 t5749 = 0.1666666667e0_dp * t429 * t437 * t5170 05383 t5752 = 0.8333333335e-1_dp * t429 * t462 * t4801 05384 t5756 = 0.1111111111e0_dp * t170 * t27 * t5276 * t17 05385 t5760 = 0.1250000000e0_dp * t2763 * t446 * t413 * t4701 05386 t5767 = 0.1666666667e0_dp * t165 * t437 * t5122 05387 t5770 = 0.1620000000e3_dp * t4995 * t4772 * t425 05388 t5773 = 0.1250000000e0_dp * t1368 * t437 * t5163 05389 t5776 = 0.2777777778e-1_dp * t1246 * t1247 * t5009 05390 t5780 = 0.1666666667e0_dp * t165 * t56 * t5276 * t237 05391 t5783 = 0.5555555557e-1_dp * t165 * t5013 * t433 05392 t5786 = 0.3333333334e0_dp * t165 * t689 * t668 05393 t5789 = 0.1250000000e0_dp * t1368 * t166 * t5330 05394 t5792 = 0.2777777778e-1_dp * t429 * t466 * t5002 05395 t5795 = 0.1111111111e0_dp * t165 * t1940 * t1483 05396 t5797 = t1373 * t1962 * t1829 05397 t5801 = 0.3600000000e2_dp * t1143 * t479 * t5002 05398 t5804 = 0.2400000000e2_dp * t473 * t1811 * t1483 05399 t5807 = 0.2160000000e3_dp * t2994 * t474 * t4790 05400 t5810 = 0.1080000000e3_dp * t1143 * t1801 * t1410 05401 t5813 = 0.1800000000e2_dp * t478 * t183 * t5632 05402 t5816 = 0.3600000000e2_dp * t473 * t1176 * t4701 05403 t5819 = 0.1800000000e2_dp * t478 * t1176 * t4729 05404 t5822 = 0.1800000000e2_dp * t473 * t474 * t4853 05405 t5825 = 0.1200000000e2_dp * t473 * t479 * t5009 05406 t5828 = 0.3600000000e2_dp * t473 * t1801 * t1447 05407 t5830 = 0.1080000000e3_dp * t4230 * t5696 05408 t5831 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 05409 - t5825 - t5828 - t5830 05410 t5833 = 0.7200000000e2_dp * t1821 * t5699 05411 t5835 = 0.3600000000e2_dp * t1821 * t5671 05412 t5838 = 0.1080000000e3_dp * t1143 * t474 * t4797 05413 t5841 = 0.5400000000e2_dp * t1143 * t474 * t4801 05414 t5845 = 0.1800000000e2_dp * t473 * t20 * t5122 * t237 05415 t5848 = 0.5400000000e2_dp * t1143 * t1150 * t4701 05416 t5850 = t473 * t4201 * t561 05417 t5854 = 0.1200000000e2_dp * t473 * t489 * t5371 05418 t5857 = 0.6000000000e1_dp * t478 * t489 * t5430 05419 t5861 = 0.5999999999e1_dp * t478 * t56 * t5122 * t17 05420 t5864 = 0.1800000000e2_dp * t473 * t1150 * t4729 05421 t5868 = t5833 + t5835 + t5838 + t5841 - t5845 + t5848 - 0.3600000000e2_dp & 05422 * t5850 - t5854 + t5857 + t5861 - t5864 + 0.8999999998e1_dp * t178 & 05423 * t62 * t5613 05424 t5869 = t5831 + t5868 05425 t5875 = t1447 * t187 * t1722 05426 t5880 = 0.3703703705e-1_dp * t192 * t194 * t5226 * t526 05427 t5881 = t1141 * t4701 05428 t5885 = t719 * t1769 05429 t5888 = t60 * t1836 * t709 05430 t5891 = 0.5555555558e-1_dp * t4943 * t534 05431 t5898 = t705 * t1504 * t65 05432 t5902 = 0.1800000000e2_dp * t1718 * t178 * t710 05433 t5905 = 0.5555555558e-1_dp * t192 * t5270 * t267 05434 t5908 = t1836 * t59 * t177 * t710 05435 t5911 = t266 * t4729 * t65 05436 t5913 = 0.1000000001e1_dp * t723 * t5911 05437 t5918 = t140 * t1504 * t1722 05438 t5922 = 0.1111111112e0_dp * t4776 * t515 * t517 05439 t5925 = 0.8099999996e2_dp * t498 * t4770 * t4915 05440 t5926 = -0.5555555558e-1_dp * t192 * t68 * t5869 * t65 - 0.1000000000e1_dp & 05441 * t5875 + t5880 + 0.3000000000e1_dp * t1748 * t5881 * t4940 - 0.1111111112e0_dp & 05442 * t5885 - 0.1000000000e1_dp * t5888 - t5891 + t5869 * t65 + & 05443 0.666666666e0_dp * t1519 * t722 * t4729 * t65 + (2 * t5898) + t5902 & 05444 - t5905 + 0.1800000000e2_dp * t5908 - t5913 - 0.1111111112e0_dp * t516 & 05445 * t4898 * t172 - 0.1000000000e1_dp * t5918 - t5922 + t5925 05446 t5929 = 0.2250000000e2_dp * t1740 * t471 * t4905 05447 t5932 = 0.1000000000e1_dp * t649 * t266 * t1722 05448 t5938 = t192 * t728 * t1505 05449 t5940 = t4918 * t67 05450 t5942 = 0.1111111112e0_dp * t5940 * t196 05451 t5944 = t1447 * t722 * t1722 05452 t5949 = 0.8999999998e1_dp * t1795 * t4909 05453 t5952 = 0.9000000007e1_dp * t1763 * t5881 * t4940 05454 t5954 = 0.8999999998e1_dp * t1741 * t4909 05455 t5956 = t471 * t4701 * t65 05456 t5958 = 0.1000000000e1_dp * t1766 * t5956 05457 t5960 = 0.5555555558e-1_dp * t5940 * t200 05458 t5963 = 0.1000000000e1_dp * t379 * t471 * t4904 05459 t5964 = t1715 * t1525 05460 t5966 = t1785 * t1790 05461 t5971 = 0.4500000000e1_dp * t379 * t1141 * t4701 * t4940 05462 t5973 = 0.5555555558e-1_dp * t4943 * t531 05463 t5975 = t5226 * t266 * t65 05464 t5977 = 0.1111111112e0_dp * t1755 * t729 05465 t5978 = -t5929 - t5932 + 0.3333333334e0_dp * t1519 * t187 * t4729 * t65 & 05466 - 0.1111111112e0_dp * t5938 - t5942 - 0.2000000002e1_dp * t5944 - 0.5555555558e-1_dp & 05467 * t503 * t4955 + t5949 - t5952 + t5954 + t5958 - t5960 & 05468 + t5963 - 0.1111111112e0_dp * t5964 - 0.2222222224e0_dp * t5966 - t5971 & 05469 - t5973 + t5975 - t5977 05470 t5985 = 0.5000000001e0_dp * t1774 * t4908 05471 t5990 = t177 * t4729 * t65 05472 t5994 = 0.5000000001e0_dp * t1766 * t5990 05473 t5996 = 0.3703703705e-1_dp * t4943 * t527 05474 t6000 = 0.9000000007e1_dp * t5262 * t266 * t4701 * t4940 05475 t6002 = 0.1851851853e0_dp * t4943 * t512 05476 t6004 = t1709 * t178 * t710 05477 t6006 = t719 * t1838 05478 t6009 = 0.5000000001e0_dp * t1777 * t4908 05479 t6017 = 0.5000000001e0_dp * t732 * t5911 05480 t6019 = 0.7407407410e-1_dp * t719 * t1726 05481 t6021 = t649 * t1518 * t1722 05482 t6023 = t5251 * t67 05483 t6025 = 0.3703703705e-1_dp * t6023 * t271 05484 t6029 = 0.5999999993e1_dp * t4946 * t722 * t4701 * t4940 - t5985 - 0.5555555558e-1_dp & 05485 * t192 * t199 * t4898 + 0.3333333334e0_dp * t1748 * t5990 & 05486 - t5994 + t5996 - t6000 + t6002 + 0.1800000000e2_dp * t6004 - 0.1111111112e0_dp & 05487 * t6006 - t6009 + 0.3000000000e1_dp * t4946 * t187 * t4701 & 05488 * t4940 - 0.6666666668e0_dp * t1748 * t5956 - t6017 + t6019 + 0.6666666668e0_dp & 05489 * t6021 + t6025 - 0.5555555558e-1_dp * t58 * t5613 * t71 05490 t6031 = 0.5000000001e0_dp * t1720 * t5990 05491 t6033 = 0.1000000000e1_dp * t5244 * t1712 05492 t6036 = 0.2250000000e2_dp * t498 * t472 * t4905 05493 t6040 = 0.5555555558e-1_dp * t6023 * t275 05494 t6042 = 0.1000000001e1_dp * t1763 * t5990 05495 t6044 = 0.2000000002e1_dp * t1763 * t5956 05496 t6047 = 0.4500000000e1_dp * t1720 * t5881 * t4940 05497 t6049 = t1688 * t177 * t709 05498 t6052 = t1504 * t561 * t65 05499 t6053 = t732 * t6052 05500 t6056 = 0.5555555558e-1_dp * t508 * t5271 05501 t6058 = 0.1111111112e0_dp * t4943 * t520 05502 t6060 = t1766 * t5881 * t4940 05503 t6063 = 0.1000000000e1_dp * t1720 * t5956 05504 t6066 = t1519 * t705 * t561 * t65 05505 t6074 = 0.8099999996e2_dp * t496 * t4769 * t1141 * t4915 05506 t6075 = t723 * t6052 05507 t6078 = 0.1111111112e0_dp * t719 * t1782 05508 t6079 = -t6031 - t6033 - t6036 + t187 * t4897 * t65 - t6040 - t6042 & 05509 + t6044 - t6047 - 0.1000000000e1_dp * t6049 - 0.1000000000e1_dp * t6053 & 05510 - t6056 - t6058 - 0.4500000000e1_dp * t6060 + t6063 + 0.6666666668e0_dp & 05511 * t6066 - 0.1000000000e1_dp * t237 * t705 * t1722 + t6074 - 0.2000000002e1_dp & 05512 * t6075 - t6078 05513 t6087 = 0.1666666667e0_dp * t429 * t1966 * t1410 05514 t6090 = 0.3125000000e0_dp * t4025 * t1247 * t4790 05515 t6091 = 0.3333333334e0_dp * t5745 - t5749 - t5752 - t5756 + t5760 + 0.1666666667e0_dp & 05516 * t165 * t56 * t4958 * t140 + t5767 + t5770 + t5773 + & 05517 t5776 + t5780 - t5783 + t5786 + t5789 + t5792 - t5795 - 0.4444444444e0_dp & 05518 * t5797 + 0.3333333334e0_dp * t55 * t57 * (t5926 + t5978 + t6029 & 05519 + t6079) - t6087 - t6090 05520 t6094 = 0.1250000000e0_dp * t1981 * t1247 * t4801 05521 t6099 = 0.1800000000e2_dp * t1971 * t1972 * t4729 * t149 * t160 05522 t6102 = 0.2500000000e0_dp * t1981 * t4553 * t1410 05523 t6106 = 0.3600000000e2_dp * t1971 * t1972 * t1973 * t672 05524 t6109 = 0.1666666667e0_dp * t1246 * t1962 * t1865 05525 t6112 = 0.5555555556e-1_dp * t1246 * t4553 * t1483 05526 t6116 = 0.3600000000e2_dp * t1971 * t471 * t20 * t5713 05527 t6119 = 0.1250000000e0_dp * t1368 * t462 * t4790 05528 t6123 = 0.1666666667e0_dp * t1246 * t446 * t1825 * t561 05529 t6126 = 0.1800000000e2_dp * t658 * t4764 * t425 05530 t6129 = 0.8333333335e-1_dp * t429 * t437 * t5174 05531 t6132 = 0.1666666667e0_dp * t165 * t462 * t4853 05532 t6136 = 0.5555555557e-1_dp * t165 * t171 * t5122 * t17 05533 t6138 = t429 * t1928 * t593 05534 t6141 = t658 * t575 * t1925 05535 t6144 = t445 * t4512 * t668 05536 t6155 = 0.2500000000e0_dp * t1981 * t4032 * t1410 05537 t6158 = 0.1666666667e0_dp * t429 * t679 * t1571 05538 t6160 = t147 * t1885 * t672 05539 t6162 = t6094 + t6099 + t6102 + t6106 - t6109 + t6112 - t6116 + t6119 & 05540 - t6123 + t6126 - t6129 + t6132 - t6136 - 0.1666666667e0_dp * t6138 & 05541 + 0.3600000000e2_dp * t6141 + 0.3333333334e0_dp * t6144 + 0.2e1_dp * t147 & 05542 * (t4881 - t4884 - t4887 + 0.9000000000e1_dp * t4889 - t4893 + 0.6000000000e1_dp & 05543 * t4895) * t149 * t160 + t6155 - t6158 + (4 * t6160) 05544 t6170 = 0.3333333336e0_dp * t289 * t597 * t1571 05545 t6173 = 0.3333333336e0_dp * t55 * t5295 * t140 05546 t6175 = t83 * t597 * t1688 05547 t6179 = 0.3333333336e0_dp * t165 * t3865 * t561 05548 t6181 = t289 * t1564 * t593 05549 t6185 = 0.3333333336e0_dp * t289 * t597 * t1553 05550 t6186 = -0.3333333336e0_dp * t5347 - t5351 - t5354 - t5357 - t5360 - 0.2222222224e0_dp & 05551 * t144 * t46 * (t5423 + t5742 + t6091 + t6162) - t6170 & 05552 - t6173 - 0.6666666672e0_dp * t6175 - t6179 - 0.3333333336e0_dp * t6181 & 05553 - t6185 05554 t6189 = 0.8333333340e-1_dp * t906 * t294 * t5163 05555 t6192 = 0.3333333336e0_dp * t83 * t294 * t5122 05556 t6194 = t83 * t3875 * t561 05557 t6198 = 0.3333333336e0_dp * t289 * t294 * t5170 05558 t6201 = 0.3333333336e0_dp * t289 * t597 * t1557 05559 t6207 = 0.1666666668e0_dp * t1546 * t897 * t4797 05560 t6210 = 0.1666666668e0_dp * t289 * t294 * t5174 05561 t6213 = 0.3333333336e0_dp * t55 * t84 * t5122 05562 t6216 = 0.8333333340e-1_dp * t429 * t897 * t4701 05563 t6219 = 0.8333333340e-1_dp * t906 * t384 * t4790 05564 t6222 = 0.8333333340e-1_dp * t1546 * t897 * t4801 05565 t6223 = t6189 - t6192 - 0.6666666672e0_dp * t6194 - t6198 - t6201 - 0.3333333336e0_dp & 05566 * t83 * t84 * t5613 + t6207 - t6210 - t6213 + t6216 + & 05567 t6219 + t6222 05568 t6227 = -t4704 - t4707 - t4732 - t4789 + t4793 - t4796 - t4800 - t4804 & 05569 - t4808 - t4812 - t4857 - t4861 - 0.1333333334e1_dp * t4864 - t4869 & 05570 - 0.4444444448e0_dp * t43 * t46 * t5036 + t8 * (t5305 + t5343 + t6186 & 05571 + t6223) 05572 e_ndrho_ndrho_rho_spin(ii) = e_ndrho_ndrho_rho_spin(ii) + t6227 * sx 05573 t6247 = t4769 * t2992 05574 t6249 = t4772 * t2027 05575 t6252 = t56 * t4701 05576 t6253 = t6252 * t526 05577 t6256 = t56 * t4729 05578 t6257 = t6256 * t526 05579 t6260 = t4743 * t526 05580 t6263 = t20 * t4853 05581 t6267 = t26 * t1447 05582 t6268 = t6267 * t709 05583 t6271 = t4764 * t2027 05584 t6281 = -0.1620000000e3_dp * t6247 * t4733 * t6249 - 0.1200000000e2_dp * & 05585 t473 * t6253 + 0.5999999999e1_dp * t478 * t6257 + 0.5399999998e2_dp * t4771 & 05586 * t6260 + 0.8999999998e1_dp * t478 * t6263 * t65 + 0.8099999996e2_dp & 05587 * t4771 * t6268 - 0.1800000000e2_dp * t473 * t6271 - 0.4050000000e2_dp & 05588 * t473 * t575 * t2095 - 0.5000000001e0_dp * t60 * t4853 * t65 + 0.8999999998e1_dp & 05589 * t4901 - t4907 + t4911 05590 t6283 = t4701 * t1518 05591 t6290 = t4917 - t4920 + 0.5000000001e0_dp * t4922 + t4925 + 0.3333333334e0_dp & 05592 * t6283 * t177 * t65 - 0.5000000001e0_dp * t4929 - t4932 - t4935 & 05593 + 0.5850000000e2_dp * t4941 + t4945 - t4951 - 0.5555555558e-1_dp * t4952 05594 t6291 = t6281 + t6290 05595 t6308 = 0.4050000000e2_dp * t4734 * t4736 * t2821 * t18 * t4739 * t237 & 05596 - 0.1125000000e2_dp * t2013 * t1300 * t19 * t4790 - t5028 - t5022 + & 05597 0.1500000000e1_dp * t2013 * t398 * t68 * t5002 + 0.3333333334e0_dp * t55 & 05598 * t57 * t6291 + t5019 - 0.3000000000e1_dp * t566 * t1885 * t569 - t5016 & 05599 - 0.9000000000e1_dp * t4734 * t4736 * t1300 * t4701 * t149 * t17 & 05600 + t5032 + 0.1666666667e0_dp * t165 * t2088 * t561 - 0.5555555557e-1_dp * & 05601 t5011 + t5001 05602 t6338 = 0.1666666667e0_dp * t4874 - t5025 - 0.2700000000e2_dp * t4734 * t392 & 05603 * t4736 * t1300 * rho * t5002 * t149 - 0.3000000000e1_dp * t2009 & 05604 * t4748 - 0.2700000000e2_dp * t4738 * t18 * t1973 * t1447 - t5008 - & 05605 0.3000000000e1_dp * t567 * t151 * t19 * t4853 + t5035 - 0.1000000000e1_dp & 05606 * t2013 * t2018 * t5009 + 0.9000000000e1_dp * t2013 * t2014 * t4797 & 05607 - t4872 + 0.4500000000e1_dp * t2013 * t2014 * t4801 + t4878 + t5005 & 05608 + 0.4500000000e1_dp * t2009 * t4744 05609 t6339 = t6308 + t6338 05610 t6344 = -t5043 - t5047 - t5050 - t5126 - t5284 - t5291 + t5294 - t5298 & 05611 - t5301 - 0.3333333336e0_dp * t5303 - t5308 - t5311 - t5314 05612 t6352 = t5440 - t5443 - t5446 - t5449 - t5451 - t5454 + 0.40e1_dp * t102 & 05613 * t327 * t2057 * t557 - t5456 + t5459 - t5462 + t5466 - t5468 05614 t6363 = t5480 - t5482 - t5484 + t5487 - t5489 + t5492 + t5494 - 0.9600000000e2_dp & 05615 * t5496 + t5499 - t5503 - t5507 + t5509 - 0.2400000000e2_dp & 05616 * t5511 - 0.960e2_dp * t5115 * t1060 - 0.240e2_dp * t2054 * t3674 + 0.1200e3_dp & 05617 * t1054 * t640 * t3679 05618 t6367 = t5472 - t5474 - t5478 - t5523 + t5525 + 0.40e1_dp * t5528 + t5531 & 05619 + t5533 + t5535 + t5537 - 0.20e1_dp * t102 * t105 * t6363 + t5540 05620 t6370 = t5545 - t5548 + t5551 + t5553 - t5558 + t5560 - t5562 + t5564 & 05621 - 0.40e1_dp * t5565 + t5568 + t5572 + t5574 05622 t6373 = t5579 - t5581 - 0.40e1_dp * t112 * t2058 - t5585 + t5590 - t5593 & 05623 - t5595 + t5597 - t5600 - t5602 + t5604 + t5607 + t5610 05624 t6375 = t6352 + t6367 + t6370 + t6373 05625 t6380 = -t5317 - t5320 + t5323 - t5326 - t5329 - 0.3333333336e0_dp * t83 & 05626 * t597 * t2061 - 0.3333333336e0_dp * t83 * t84 * t6375 + t5333 - t5335 & 05627 - t5338 - t5342 - 0.1666666668e0_dp * t5347 - t5351 05628 t6389 = -t5354 - t5357 - 0.3333333336e0_dp * t83 * t45 * t2139 * t561 & 05629 - t5360 - t6170 - t6173 - 0.3333333336e0_dp * t6175 - t6179 - 0.1666666668e0_dp & 05630 * t6181 - t6185 + t6189 - t6192 - 0.3333333336e0_dp * t6194 05631 t6400 = t2061 * t561 05632 t6415 = -t5363 + t5367 - t5370 + 0.1111111112e0_dp * t5373 - 0.5555555557e-1_dp & 05633 * t5376 + 0.1666666667e0_dp * t5379 - t5383 - t5386 - t5389 + & 05634 0.1200000000e2_dp * t658 * t2031 * t673 * t17 + 0.3333333334e0_dp * t170 & 05635 * t27 * t6291 * t172 - t5397 05636 t6428 = t5635 - t5638 + t5641 + 0.2250000000e1_dp * t5643 - t5647 - 0.1500000000e1_dp & 05637 * t151 * t50 * t6375 - t5650 + t5653 - t5657 - t5660 & 05638 + t5663 - t5666 05639 t6433 = t5670 - t5673 + t5676 - t5679 + t5682 + t5686 - t5689 + t5692 & 05640 + t5695 + 0.2250000000e1_dp * t400 * t19 * t2061 * t561 + t5698 - & 05641 t5701 05642 t6442 = t5400 + 0.1666666667e0_dp * t5402 - t5406 + 0.1666666667e0_dp * t165 & 05643 * t56 * t2131 * t561 + 0.1666666667e0_dp * t165 * t679 * t2061 + & 05644 (2 * t147 * t149 * (t6428 + t6433)) - t5409 - t5412 - t5415 + & 05645 t5418 + 0.1800000000e2_dp * t658 * t575 * t2074 + 0.1800000000e2_dp * t5421 05646 t6451 = -t5426 + t5429 - 0.2222222223e0_dp * t5432 + t5436 + 0.1620000000e3_dp & 05647 * t4995 * t6267 * t1974 + 0.1666666667e0_dp * t165 * t2088 * t649 & 05648 + t5619 + t5622 - t5625 - t5628 + t5631 + t5716 05649 t6461 = t5719 - t5722 - 0.8333333335e-1_dp * t5724 + 0.1200000000e2_dp * & 05650 t658 * t6256 * t2077 - 0.3240000000e3_dp * t4994 * t6247 * t4772 * t2082 & 05651 + t5728 + t5731 - t5734 - t5738 + t5741 + 0.1666666667e0_dp * t5745 & 05652 - t5749 05653 t6479 = -t5752 + 0.1666666667e0_dp * t445 * t2042 * rho * t668 - t5756 & 05654 - 0.3600000000e2_dp * t2081 * t575 * t673 * t237 + 0.1800000000e2_dp * & 05655 t658 * t6263 * t161 + t5760 + t5767 + t5770 - 0.7200000000e2_dp * t2081 & 05656 * t575 * t161 * t1447 + t5773 + t5776 + t5780 05657 t6490 = -t5783 - 0.3600000000e2_dp * t2081 * t4764 * t2082 - 0.2400000000e2_dp & 05658 * t2081 * t6252 * t2077 + t5786 + t5789 + t5792 - t5795 - 0.4444444445e0_dp & 05659 * t5797 - t6087 - 0.8333333335e-1_dp * t429 * t166 * t6400 & 05660 - t6090 + t6094 05661 t6499 = t6099 + 0.1666666667e0_dp * t165 * t166 * t6375 + t6102 + 0.1666666667e0_dp & 05662 * t165 * t56 * t6291 * t140 + t6106 - t6109 + t6112 - t6116 & 05663 + t6119 - t6123 + t6126 - t6129 05664 t6509 = t4853 * t65 05665 t6529 = 0.4999999999e0_dp * t5875 - 0.5000000001e0_dp * t5244 * t2095 - 0.5000000001e0_dp & 05666 * t732 * t6509 + t5880 + 0.1000000000e1_dp * t649 * t471 & 05667 * t2099 - 0.1620000000e3_dp * t5247 * t2992 * t4733 * t6249 - 0.5555555558e-1_dp & 05668 * t5885 + 0.8999999998e1_dp * t140 * t2992 * t4701 * t59 * & 05669 t62 * t2027 - 0.5000000001e0_dp * t5888 - t5891 - 0.1800000000e2_dp * t2118 & 05670 * t6271 05671 t6539 = t5898 + t5902 - t5905 + 0.8999999998e1_dp * t5908 - t5913 + 0.2000000000e1_dp & 05672 * t2098 * t2095 * t561 - 0.5000000001e0_dp * t5918 - t5922 & 05673 + 0.3333333334e0_dp * t6283 * t187 * t177 * t65 + t5925 - t5929 05674 t6554 = -t5932 - 0.5555555558e-1_dp * t5938 + 0.666666666e0_dp * t6283 * & 05675 t722 * t177 * t65 - t5942 + 0.8999999998e1_dp * t2124 * t59 * t177 * & 05676 t710 + 0.1000000001e1_dp * t5944 - 0.5000000001e0_dp * t2061 * t177 * t709 & 05677 + t5949 + t5952 + t5954 - t5958 05678 t6557 = t1447 * t59 05679 t6569 = -t5960 - 0.5000000001e0_dp * t5237 * t2095 + t5963 - 0.4500000000e1_dp & 05680 * t5256 * t6557 * t710 - 0.5555555558e-1_dp * t5964 - 0.1111111112e0_dp & 05681 * t5966 - t5971 - 0.1200000000e2_dp * t2118 * t6253 - 0.5555555558e-1_dp & 05682 * t719 * t2126 - t5973 + t5975 + 0.5999999999e1_dp * t2114 * t6257 05683 t6583 = -t5977 - t5985 + t5994 - 0.5000000001e0_dp * t716 * t6509 + t5996 & 05684 - t6000 + t6002 + 0.8999999998e1_dp * t6004 + 0.1000000000e1_dp * t2098 & 05685 * t4908 * t237 - 0.1000000001e1_dp * t723 * t6509 - 0.1800000000e2_dp & 05686 * t5228 * t2117 * t2028 05687 t6596 = t5247 * t1141 * t4733 05688 t6603 = -0.5555555558e-1_dp * t6006 - t6009 - t6017 - 0.5555555558e-1_dp & 05689 * t58 * t6375 * t71 + t6019 - 0.9000000007e1_dp * t5262 * t6557 * t710 & 05690 + 0.8999999998e1_dp * t708 * t62 * t6509 + 0.3333333334e0_dp * t6021 + & 05691 t6025 + 0.8099999996e2_dp * t6596 * t6268 + 0.5399999998e2_dp * t6596 * & 05692 t6260 + 0.8999999998e1_dp * t5229 * t2104 05693 t6611 = t5801 - t5804 - t5807 + t5810 - t5813 + t5816 - t5819 - t5822 & 05694 - t5825 - t5828 - t5830 + t5833 05695 t6620 = t5835 + t5838 + t5841 - t5845 + t5848 - 0.1800000000e2_dp * t5850 & 05696 - t5854 + t5857 + t5861 - t5864 - 0.1800000000e2_dp * t473 * t20 & 05697 * t2061 * t561 + 0.8999999998e1_dp * t178 * t62 * t6375 05698 t6621 = t6611 + t6620 05699 t6630 = -0.3000000000e1_dp * t5256 * t4904 * t237 + 0.5999999999e1_dp * t5228 & 05700 * t2113 * t2032 + t6621 * t65 - t6031 - 0.4050000000e2_dp * t471 & 05701 * t187 * t6557 * t710 - t6033 - t6036 - t6040 + t6042 - 0.5000000001e0_dp & 05702 * t60 * t2124 * t709 - t6044 05703 t6640 = -t6047 - 0.5000000001e0_dp * t6049 - 0.5555555558e-1_dp * t192 * & 05704 t68 * t6621 * t65 - 0.5000000001e0_dp * t6053 - t6056 - t6058 + 0.5850000000e2_dp & 05705 * t6060 + t6063 + 0.3333333334e0_dp * t6066 + t6074 - 0.1000000001e1_dp & 05706 * t6075 - t6078 05707 t6658 = 0.1800000000e2_dp * t658 * t2035 * t673 - 0.8333333335e-1_dp * t429 & 05708 * t2088 * t593 + t6132 + 0.3333333334e0_dp * t55 * t57 * (t6529 + & 05709 t6539 + t6554 + t6569 + t6583 + t6603 + t6630 + t6640) - t6136 - 0.8333333335e-1_dp & 05710 * t6138 + 0.1800000000e2_dp * t6141 + 0.1080000000e3_dp * & 05711 t4995 * t4743 * t2077 + 0.1080000000e3_dp * t657 * t1142 * t4760 * t2082 & 05712 + 0.1666666667e0_dp * t6144 + t6155 - t6158 + (2 * t6160) 05713 t6665 = -0.3333333336e0_dp * t83 * t45 * t6339 * t140 - t6198 - 0.3333333336e0_dp & 05714 * t83 * t2050 * t649 - t6201 + t6207 - t6210 - t6213 + t6216 & 05715 + t6219 - 0.1666666668e0_dp * t289 * t2050 * t593 - 0.1666666668e0_dp & 05716 * t289 * t84 * t6400 + t6222 - 0.2222222224e0_dp * t144 * t46 * (t6415 & 05717 + t6442 + t6451 + t6461 + t6479 + t6490 + t6499 + t6658) 05718 t6669 = -t4704 - t4707 - t4732 + t4793 - t4796 - t4800 - t4804 - t4861 & 05719 - 0.6666666672e0_dp * t4864 - t4869 - t4812 - t4857 - t4789 - t4808 & 05720 - 0.6666666672e0_dp * t217 * t46 * t2046 * t561 - 0.4444444448e0_dp * & 05721 t43 * t46 * t6339 + t8 * (t6344 + t6380 + t6389 + t6665) 05722 e_ndrho_ndrho_ndrho_spin(ii) = e_ndrho_ndrho_ndrho_spin(ii) + t6669 * sx 05723 END IF 05724 END IF 05725 END DO 05726 !$omp end do 05727 END IF 05728 05729 END SUBROUTINE xb88_lr_adiabatic_lsd_calc 05730 05731 END MODULE xc_xbecke88_lr_adiabatic
1.7.3