1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_c_opt.F 5C> The nwxcm_c_opt functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_c_opt functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& \rho_\alpha^{0.3333333333333333}\\\\ 16C> {\it t_2} &=& \sqrt{{\it t_1}}\\\\ 17C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 18C> {\it t_4} &=& {{1}\over{{\it t_1}}}\\\\ 19C> {\it t_5} &=& \log \left({{1.269642451250142\,{\it t_2}} 20C> \over{0.7876233178997433\,\left(0.7876233178997433\, 21C> \left(0.02414199311453321\,{\it t_3}+0.10186556948\right)\,{ 22C> \it t_3}+0.22308199064\right)\,{\it t_3}+0.47231125998}} 23C> +1.0\right)\\\\ 24C> {\it t_6} &=& 0.1325688999052018\,{\it t_4}+1.0\\\\ 25C> {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_2}} 26C> \over{0.7876233178997433\,\left(0.7876233178997433\, 27C> \left(0.01321299881039884\,{\it t_3}+0.029729725188\right) 28C> \,{\it t_3}+0.12236585478\right)\,{\it t_3}+0.3497952466}} 29C> +1.0\right)\\\\ 30C> {\it t_8} &=& 0.06901399211255826\,{\it t_4}+1.0\\\\ 31C> {\it t_9} &=& 0.5848223622634643\,\left(0.0337738\,{\it t_7} 32C> \,{\it t_8}+1.0\,\left(1.709920934161365\,\left(0.0621814\,{ 33C> \it t_5}\,{\it t_6}-0.0310907\,\log \left({{1.269642451250142 34C> \,{\it t_2}}\over{0.7876233178997433\,\left(0.7876233178997433 35C> \,\left(0.01530901310039024\,{\it t_3}+0.10465751434\right) 36C> \,{\it t_3}+0.19269083139\right)\,{\it t_3}+0.43896648423}} 37C> +1.0\right)\,\left(0.1274696188700087\,{\it t_4} 38C> +1.0\right)\right)-0.0337738\,{\it t_7}\,{\it t_8}\right)\right) 39C> -0.0621814\,{\it t_5}\,{\it t_6}\\\\ 40C> {\it t_{10}} &=& \rho_\beta^{0.3333333333333333}\\\\ 41C> {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\ 42C> {\it t_{12}} &=& {{1}\over{{\it t_{11}}}}\\\\ 43C> {\it t_{13}} &=& {{1}\over{{\it t_{10}}}}\\\\ 44C> {\it t_{14}} &=& \log \left({{1.269642451250142\,{ 45C> \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433 46C> \,\left(0.02414199311453321\,{\it t_{12}}+0.10186556948\right) 47C> \,{\it t_{12}}+0.22308199064\right)\,{\it t_{12}} 48C> +0.47231125998}}+1.0\right)\\\\ 49C> {\it t_{15}} &=& 0.1325688999052018\,{\it t_{13}}+1.0\\\\ 50C> {\it t_{16}} &=& \log \left({{1.269642451250142\,{ 51C> \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433 52C> \,\left(0.01321299881039884\,{\it t_{12}} 53C> +0.029729725188\right)\,{\it t_{12}}+0.12236585478\right)\,{ 54C> \it t_{12}}+0.3497952466}}+1.0\right)\\\\ 55C> {\it t_{17}} &=& 0.06901399211255826\,{\it t_{13}}+1.0\\\\ 56C> {\it t_{18}} &=& 0.5848223622634643\,\left(0.0337738\,{ 57C> \it t_{16}}\,{\it t_{17}}+1.0\,\left(1.709920934161365\, 58C> \left(0.0621814\,{\it t_{14}}\,{\it t_{15}}-0.0310907 59C> \,\log \left({{1.269642451250142\,{\it t_{11}}} 60C> \over{0.7876233178997433\,\left(0.7876233178997433\, 61C> \left(0.01530901310039024\,{\it t_{12}}+0.10465751434\right) 62C> \,{\it t_{12}}+0.19269083139\right)\,{\it t_{12}} 63C> +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{ 64C> \it t_{13}}+1.0\right)\right)-0.0337738\,{\it t_{16}}\,{ 65C> \it t_{17}}\right)\right)-0.0621814\,{\it t_{14}}\,{ 66C> \it t_{15}}\\\\ 67C> {\it t_{19}} &=& \rho_\beta+\rho_\alpha\\\\ 68C> {\it t_{20}} &=& {\it t_{19}}^{0.3333333333333333}\\\\ 69C> {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\ 70C> {\it t_{22}} &=& 0.1325688999052018\,{\it t_{21}}+1.0\\\\ 71C> {\it t_{23}} &=& \sqrt{{\it t_{20}}}\\\\ 72C> {\it t_{24}} &=& {{1}\over{{\it t_{23}}}}\\\\ 73C> {\it t_{25}} &=& \log \left({{1.269642451250142\,{ 74C> \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\, 75C> \left(0.7876233178997433\,{\it t_{24}}\, 76C> \left(0.02414199311453321\,{\it t_{24}}+0.10186556948\right) 77C> +0.22308199064\right)+0.47231125998}}+1.0\right)\\\\ 78C> {\it t_{26}} &=& \rho_\alpha-\rho_\beta\\\\ 79C> {\it t_{27}} &=& {{1}\over{{\it t_{19}}}}\\\\ 80C> {\it t_{28}} &=& 1.0-{\it t_{26}}\,{\it t_{27}}\\\\ 81C> {\it t_{29}} &=& {\it t_{26}}\,{\it t_{27}}+1.0\\\\ 82C> {\it t_{30}} &=& 0.06901399211255826\,{\it t_{21}}+1.0\\\\ 83C> {\it t_{31}} &=& \log \left({{1.269642451250142\,{ 84C> \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\, 85C> \left(0.7876233178997433\,{\it t_{24}}\, 86C> \left(0.01321299881039884\,{\it t_{24}}+0.029729725188\right) 87C> +0.12236585478\right)+0.3497952466}}+1.0\right)\\\\ 88C> {\it t_{32}} &=& 0.5848223622634648\,\left(1.923661050931536 89C> \,{\it t_{29}}^{{{4}\over{3}}}+1.923661050931536\,{ 90C> \it t_{28}}^{{{4}\over{3}}}-3.847322101863072\right)\, 91C> \left({{{\it t_{26}}^4\,\left(1.709920934161365\, 92C> \left(0.0621814\,{\it t_{22}}\,{\it t_{25}}-0.0310907\, 93C> \left(0.1274696188700087\,{\it t_{21}}+1.0\right)\,\log 94C> \left({{1.269642451250142\,{\it t_{23}}} 95C> \over{0.7876233178997433\,{\it t_{24}}\, 96C> \left(0.7876233178997433\,{\it t_{24}}\, 97C> \left(0.01530901310039024\,{\it t_{24}}+0.10465751434\right) 98C> +0.19269083139\right)+0.43896648423}}+1.0\right)\right) 99C> -0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)}\over{{ 100C> \it t_{19}}^4}}+0.0337738\,{\it t_{30}}\,{\it t_{31}}\right) 101C> -0.0621814\,{\it t_{22}}\,{\it t_{25}}\\\\ 102C> {\it t_{33}} &=& {{1}\over{ 103C> \left(\rho_\alpha^{1.166666666666667}\right)^{2.0}}}\\\\ 104C> {\it t_{34}} &=& {{1}\over{e^{80.85523023512745\,{\it t_9}}}} 105C> -1.0\\\\ 106C> {\it t_{35}} &=& {{0.2717804421747981\,{\it t_{33}}\, 107C> \sigma_{\alpha\alpha}}\over{{\it t_{34}}}}\\\\ 108C> {\it t_{36}} &=& {{1}\over{ 109C> \left(\rho_\beta^{1.166666666666667}\right)^{2.0}}}\\\\ 110C> {\it t_{37}} &=& {{1}\over{e^{80.85523023512745\,{\it t_{18}}}}} 111C> -1.0\\\\ 112C> {\it t_{38}} &=& {{0.2717804421747981\,{\it t_{36}}\, 113C> \sigma_{\beta\beta}}\over{{\it t_{37}}}}\\\\ 114C> {\it t_{39}} &=& 0.5\,{\it t_{29}}^{{{2}\over{3}}}+0.5\,{ 115C> \it t_{28}}^{{{2}\over{3}}}\\\\ 116C> {\it t_{40}} &=& {\it t_{39}}^{3.0}\\\\ 117C> {\it t_{41}} &=& {{1}\over{\left({ 118C> \it t_{19}}^{1.166666666666667}\right)^{2.0}}}\\\\ 119C> {\it t_{42}} &=& {{1}\over{{\it t_{39}}^{2.0}}}\\\\ 120C> {\it t_{43}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 121C> +\sigma_{\alpha\alpha}\\\\ 122C> {\it t_{44}} &=& {{1}\over{e^{{{40.42761511756372\,{ 123C> \it t_{32}}}\over{{\it t_{40}}}}}}}-1.0\\\\ 124C> {\it t_{45}} &=& {{0.1712109500228822\,{\it t_{41}}\,{ 125C> \it t_{42}}\,{\it t_{43}}}\over{{\it t_{44}}}}\\\\ 126C> f &=& 0.02473556743557577\,{\it t_{19}}\,{\it t_{40}} 127C> \,\log \left({{0.1712109500228822\,{\it t_{41}}\,{\it t_{42}} 128C> \,{\it t_{43}}\,\left({\it t_{45}}+1.0\right)} 129C> \over{{{0.02931318940773787\,\left({\it t_{41}}\,{ 130C> \it t_{43}}\right)^{2.0}}\over{{\it t_{39}}^{4.0}\,{ 131C> \it t_{44}}^{2.0}}}+{\it t_{45}}+1.0}}+1.0\right) 132C> -0.01236778371778788\,\rho_\beta\,\log 133C> \left({{0.2717804421747981\,{\it t_{36}}\,\sigma_{\beta\beta} 134C> \,\left({\it t_{38}}+1.0\right)}\over{{{0.0738646087487288 135C> \,\left({\it t_{36}}\,\sigma_{\beta\beta}\right)^{2.0}} 136C> \over{{\it t_{37}}^{2.0}}}+{\it t_{38}}+1.0}}+1.0\right) 137C> -0.01236778371778788\,\rho_\alpha\,\log 138C> \left({{0.2717804421747981\,{\it t_{33}}\, 139C> \sigma_{\alpha\alpha}\,\left({\it t_{35}}+1.0\right)} 140C> \over{{{0.0738646087487288\,\left({\it t_{33}}\, 141C> \sigma_{\alpha\alpha}\right)^{2.0}}\over{{\it t_{34}}^{2.0}}} 142C> +{\it t_{35}}+1.0}}+1.0\right)+1.0\,{\it t_{19}}\,{\it t_{32}} 143C> -1.0\,{\it t_{18}}\,\rho_\beta-1.0\,{\it t_9}\,\rho_\alpha\\\\ 144C> g &=& 0\\\\ 145C> G &=& 0.0\\\\ 146C> \f} 147C> 148C> Code generated with Maxima 5.34.0 [2] 149C> driven by autoxc [3]. 150C> 151C> ### References ### 152C> 153C> [1] NC Handy, AJ Cohen, Mol.Phys. 99, 607 (2001) , DOI: 154C> <a href="https://doi.org/10.1080/00268970010023435 "> 155C> 10.1080/00268970010023435 </a> 156C> 157C> [2] Maxima, a computer algebra system, 158C> <a href="http://maxima.sourceforge.net/"> 159C> http://maxima.sourceforge.net/</a> 160C> 161C> [3] autoxc, revision 27097 2015-05-08 162C> 163 subroutine nwxcm_c_opt(param,tol_rho,ipol,nq,wght, 164 +rho,rgamma,fnc,Amat,Cmat) 165c $Id: $ 166#ifdef NWXC_QUAD_PREC 167 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 168 integer, parameter :: rk=selected_real_kind(30) 169#else 170 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 171 integer, parameter :: rk=selected_real_kind(15) 172#endif 173#include "nwxc_param.fh" 174 double precision param(*) !< [Input] Parameters of functional 175 double precision tol_rho !< [Input] The lower limit on the density 176 integer ipol !< [Input] The number of spin channels 177 integer nq !< [Input] The number of points 178 double precision wght !< [Input] The weight of the functional 179 double precision rho(nq,*) !< [Input] The density 180 double precision rgamma(nq,*) !< [Input] The norm of the density 181 !< gradients 182 double precision fnc(nq) !< [Output] The value of the functional 183c 184c Sampling Matrices for the XC Kernel 185c 186 double precision Amat(nq,*) !< [Output] The derivative wrt rho 187 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 188 integer iq 189 double precision tmp 190 double precision rhoa,rhob 191 double precision gammaaa,gammaab,gammabb 192 double precision taua,taub 193 double precision nwxcm_heaviside 194 external nwxcm_heaviside 195CDIR$ NOVECTOR 196 do iq = 1, nq 197 if (ipol.eq.1) then 198 rhoa = 0.5d0*rho(iq,R_T) 199 gammaaa = 0.25d0*rgamma(iq,G_TT) 200 if (rhoa.gt.tol_rho) then 201 t1 = rhoa**3.333333333333333d-1 202 t2 = t1**5.0d-1 203 t3 = 1/t2 204 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 205 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 206 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 207 t7 = 1/t6 208 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 209 t9 = log(t8) 210 t10 = 1/t1 211 t11 = 1.2746961887000874d-1*t10+1.0d+0 212 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 213 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 214 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 215 t15 = 1/t14 216 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 217 t17 = log(t16) 218 t18 = 1.325688999052018d-1*t10+1.0d+0 219 t19 = 1.3212998810398843d-2*t3+2.9729725188d-2 220 t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1 221 t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1 222 t22 = 1/t21 223 t23 = 1.269642451250142d+0*t2*t22+1.0d+0 224 t24 = log(t23) 225 t25 = 6.901399211255826d-2*t10+1.0d+0 226 t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 227 1 21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3 228 2 .37738d-2*t24*t25)-6.21814d-2*t17*t18 229 t27 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3* 230 1 (7.016926042943223d-1*(2.150807071909054d-2*t3+1.01865569 231 2 48d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0) 232 t28 = 1.0522000558389215d-1*t10+1.0d+0 233 t29 = rhoa**1.1666666666666667d+0 234 t30 = 1/t29**2.0d+0 235 t31 = exp(-8.085523023512745d+1*t26) 236 t32 = t31-1.0d+0 237 t33 = 1/t32 238 t34 = 2.7178044217479813d-1*gammaaa*t30*t33 239 t35 = t34+1.0d+0 240 t36 = (gammaaa*t30)**2.0d+0 241 t37 = 1/t32**2.0d+0 242 t38 = 7.38646087487288d-2*t36*t37+t34+1.0d+0 243 t39 = 1/t38 244 t40 = 2.7178044217479813d-1*gammaaa*t30*t35*t39+1.0d+0 245 t41 = log(t40) 246 t42 = exp(2.5138457066712766d+0*t27*t28)-1.0d+0 247 t43 = 1.35890221087399d-1*gammaaa*t30/t42 248 t44 = 2.1508070719090538d-2*t3+1.0186556948d-1 249 t45 = 7.016926042943222d-1*t3*t44+2.2308199064d-1 250 t46 = 7.016926042943222d-1*t3*t45+4.7231125998d-1 251 t47 = 1/t46 252 t48 = 1.425125466450768d+0*t2*t47+1.0d+0 253 t49 = log(t48) 254 t50 = 1.0522000558389213d-1*t10+1.0d+0 255 t51 = 1/rhoa**1.3333333333333333d+0 256 t52 = 1/rhoa**1.3333333333333336d+0 257 t53 = 1/t2**3 258 t54 = 1/rhoa**6.666666666666667d-1 259 t55 = 1.090454542535705d-3*t49*t51-6.21814d-2*t50*(1.1876045 260 1 553756398d-1*t3*t47*t54-1.425125466450768d+0*t2*(7.016926 261 2 042943222d-1*t3*(-5.847438369119352d-2*t44*t53*t54-1.2576 262 3 711796854242d-3*t52)-5.847438369119352d-2*t45*t53*t54)/t4 263 4 6**2)/t48 264 t56 = 1/t16 265 t57 = 2.11607075208357d-1*t15*t3*t54-1.269642451250142d+0*t2 266 1 *(7.876233178997433d-1*t3*(-1.3127055298329054d-1*t12*t53 267 2 *t54-3.169132786263567d-3*t52)-1.3127055298329054d-1*t13* 268 3 t53*t54)/t14**2 269 t58 = 1/t23 270 t59 = 2.11607075208357d-1*t22*t3*t54-1.269642451250142d+0*t2 271 1 *(7.876233178997433d-1*t3*(-1.3127055298329054d-1*t19*t53 272 2 *t54-1.7344776604086162d-3*t52)-1.3127055298329054d-1*t20 273 3 *t53*t54)/t21**2 274 t60 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1. 275 1 3210398931339265d-3*t51*t9-3.10907d-2*t11*(2.116070752083 276 2 57d-1*t3*t54*t7-1.269642451250142d+0*t2*(7.87623317899743 277 3 3d-1*t3*(-1.3127055298329054d-1*t4*t53*t54-2.009622615316 278 4 6658d-3*t52)-1.3127055298329054d-1*t5*t53*t54)/t6**2)/t8+ 279 5 6.21814d-2*t18*t56*t57-2.747773264188438d-3*t17*t51)-3.37 280 6 738d-2*t25*t58*t59+7.769549222703733d-4*t24*t51)+3.37738d 281 7 -2*t25*t58*t59-7.769549222703733d-4*t24*t51)-6.21814d-2*t 282 8 18*t56*t57+2.747773264188438d-3*t17*t51 283 t61 = 1/t40 284 t62 = rhoa**1.6666666666666674d-1 285 t63 = 1/t29**3.0d+0 286 t64 = -6.34154365074529d-1*gammaaa*t33*t62*t63 287 t65 = 2.1974870225448048d+1*gammaaa*t30*t31*t60/t32**2 288 t66 = 1/t38**2 289 t67 = gammaaa**2 290 t68 = 1/t29**5.0d+0 291 t69 = exp(2.5138457066712766d+0*t49*t50) 292 t70 = t69-1.0d+0 293 t71 = 1/t70 294 t72 = 1.3589022108739904d-1*gammaaa*t30*t71 295 t73 = t72+1.0d+0 296 t74 = 1/t70**2.0d+0 297 t75 = 1.8466152187182186d-2*t36*t74+t72+1.0d+0 298 t76 = 1/t75 299 t77 = 1.3589022108739904d-1*gammaaa*t30*t73*t76+1.0d+0 300 t78 = 1/t77 301 t79 = -1.585385912686322d-1*gammaaa*t62*t63*t71 302 t80 = 5.493717556362009d+0*gammaaa*t30*t55*t69/t70**2 303 t81 = 1/t75**2 304 t82 = 1/t29**4.0d+0 305 fnc(iq) = (4.947113487115154d-2*rhoa*log(1.35890221087399d-1 306 1 *gammaaa*t30*(t43+1.0d+0)/(t43+1.8466152187182178d-2*t36/ 307 2 t42**2.0d+0+1.0d+0)+1.0d+0)-2.4735567435575762d-2*rhoa*t4 308 3 1-1.243628d-1*rhoa*t27*t28-2.0d+0*rhoa*t26)*wght+fnc(iq) 309 Amat(iq,D1_RA) = (4.947113487115154d-2*rhoa*t78*(-1.35890221 310 1 08739904d-1*gammaaa*t30*t73*(t80+t79-4.308768843675843d-2 311 2 *t62*t67*t68*t74+1.4930849866515178d+0*t36*t55*t69/t70**3 312 3 .0d+0)*t81+1.3589022108739904d-1*gammaaa*t30*t76*(t80+t79 313 4 )-1.585385912686322d-1*gammaaa*t62*t63*t73*t76)+2.4735567 314 5 43557577d-2*log(t77)-1.2367783717787881d-2*rhoa*t61*(-2.7 315 6 178044217479813d-1*gammaaa*t30*t35*t66*(-3.44701507494067 316 7 75d-1*t37*t62*t67*t68+t65+t64+1.1944679893212153d+1*t31*t 317 8 36*t60/t32**3.0d+0)+2.7178044217479813d-1*gammaaa*t30*t39 318 9 *(t65+t64)-6.34154365074529d-1*gammaaa*t35*t39*t62*t63)-1 319 : .0d+0*rhoa*t60+2.0d+0*rhoa*t55-6.21814d-2*t49*t50-1.23677 320 ; 83717787881d-2*t41-1.0d+0*t26)*wght+Amat(iq,D1_RA) 321 Cmat(iq,D1_GAA) = (4.947113487115154d-2*rhoa*t78*(-1.3589022 322 1 108739904d-1*gammaaa*t30*t73*t81*(9.233076093591093d-3*ga 323 2 mmaaa*t74*t82+3.397255527184976d-2*t30*t71)+4.61653804679 324 3 55464d-3*gammaaa*t71*t76*t82+3.397255527184976d-2*t30*t73 325 4 *t76)-1.2367783717787881d-2*rhoa*t61*(-2.7178044217479813 326 5 d-1*gammaaa*t30*t35*t66*(1.477292174974576d-1*gammaaa*t37 327 6 *t82+2.7178044217479813d-1*t30*t33)+7.386460874872879d-2* 328 7 gammaaa*t33*t39*t82+2.7178044217479813d-1*t30*t35*t39))*w 329 8 ght+Cmat(iq,D1_GAA) 330 Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t78*(-1.35890221 331 1 08739904d-1*gammaaa*t30*t73*t81*(1.8466152187182186d-2*ga 332 2 mmaaa*t74*t82+6.794511054369952d-2*t30*t71)+9.23307609359 333 3 1093d-3*gammaaa*t71*t76*t82+6.794511054369952d-2*t30*t73* 334 4 t76)*wght+Cmat(iq,D1_GAB) 335 endif ! rhoa.gt.tol_rho 336 else ! ipol.eq.1 337 rhoa = rho(iq,R_A) 338 rhob = rho(iq,R_B) 339 gammaaa = rgamma(iq,G_AA) 340 gammaab = rgamma(iq,G_AB) 341 gammabb = rgamma(iq,G_BB) 342 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 343 t1 = rhoa**3.333333333333333d-1 344 t2 = t1**5.0d-1 345 t3 = 1/t2 346 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 347 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 348 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 349 t7 = 1/t6 350 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 351 t9 = log(t8) 352 t10 = 1/t1 353 t11 = 1.2746961887000874d-1*t10+1.0d+0 354 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 355 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 356 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 357 t15 = 1/t14 358 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 359 t17 = log(t16) 360 t18 = 1.325688999052018d-1*t10+1.0d+0 361 t19 = 1.3212998810398843d-2*t3+2.9729725188d-2 362 t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1 363 t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1 364 t22 = 1/t21 365 t23 = 1.269642451250142d+0*t2*t22+1.0d+0 366 t24 = log(t23) 367 t25 = 6.901399211255826d-2*t10+1.0d+0 368 t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 369 1 21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3 370 2 .37738d-2*t24*t25)-6.21814d-2*t17*t18 371 t27 = rhoa**1.1666666666666667d+0 372 t28 = 1/t27**2.0d+0 373 t29 = exp(-8.085523023512745d+1*t26) 374 t30 = t29-1.0d+0 375 t31 = 1/t30 376 t32 = 2.7178044217479813d-1*gammaaa*t28*t31 377 t33 = t32+1.0d+0 378 t34 = (gammaaa*t28)**2.0d+0 379 t35 = 1/t30**2.0d+0 380 t36 = 7.38646087487288d-2*t34*t35+t32+1.0d+0 381 t37 = 1/t36 382 t38 = 2.7178044217479813d-1*gammaaa*t28*t33*t37+1.0d+0 383 t39 = log(t38) 384 t40 = rhob**3.333333333333333d-1 385 t41 = t40**5.0d-1 386 t42 = 1/t41 387 t43 = 1.530901310039024d-2*t42+1.0465751434d-1 388 t44 = 7.876233178997433d-1*t42*t43+1.9269083139d-1 389 t45 = 7.876233178997433d-1*t42*t44+4.3896648423d-1 390 t46 = 1/t45 391 t47 = 1.269642451250142d+0*t41*t46+1.0d+0 392 t48 = log(t47) 393 t49 = 1/t40 394 t50 = 1.2746961887000874d-1*t49+1.0d+0 395 t51 = 2.4141993114533214d-2*t42+1.0186556948d-1 396 t52 = 7.876233178997433d-1*t42*t51+2.2308199064d-1 397 t53 = 7.876233178997433d-1*t42*t52+4.7231125998d-1 398 t54 = 1/t53 399 t55 = 1.269642451250142d+0*t41*t54+1.0d+0 400 t56 = log(t55) 401 t57 = 1.325688999052018d-1*t49+1.0d+0 402 t58 = 1.3212998810398843d-2*t42+2.9729725188d-2 403 t59 = 7.876233178997433d-1*t42*t58+1.2236585478d-1 404 t60 = 7.876233178997433d-1*t42*t59+3.497952466d-1 405 t61 = 1/t60 406 t62 = 1.269642451250142d+0*t41*t61+1.0d+0 407 t63 = log(t62) 408 t64 = 6.901399211255826d-2*t49+1.0d+0 409 t65 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 410 1 21814d-2*t56*t57-3.10907d-2*t48*t50)-3.37738d-2*t63*t64)+ 411 2 3.37738d-2*t63*t64)-6.21814d-2*t56*t57 412 t66 = rhob+rhoa 413 t67 = t66**3.333333333333333d-1 414 t68 = 1/t67 415 t69 = 1.325688999052018d-1*t68+1.0d+0 416 t70 = t67**5.0d-1 417 t71 = 1/t70 418 t72 = 2.4141993114533214d-2*t71+1.0186556948d-1 419 t73 = 7.876233178997433d-1*t71*t72+2.2308199064d-1 420 t74 = 7.876233178997433d-1*t71*t73+4.7231125998d-1 421 t75 = 1/t74 422 t76 = 1.269642451250142d+0*t70*t75+1.0d+0 423 t77 = log(t76) 424 t78 = rhoa-rhob 425 t79 = 1/t66 426 t80 = 1.0d+0-t78*t79 427 t81 = t78*t79+1.0d+0 428 t82 = 1.923661050931536d+0*t81**1.3333333333333333d+0+1.9236 429 1 61050931536d+0*t80**1.3333333333333333d+0-3.8473221018630 430 2 72d+0 431 t83 = 6.901399211255826d-2*t68+1.0d+0 432 t84 = 1.3212998810398843d-2*t71+2.9729725188d-2 433 t85 = 7.876233178997433d-1*t71*t84+1.2236585478d-1 434 t86 = 7.876233178997433d-1*t71*t85+3.497952466d-1 435 t87 = 1/t86 436 t88 = 1.269642451250142d+0*t70*t87+1.0d+0 437 t89 = log(t88) 438 t90 = t78**4 439 t91 = 1/t66**4 440 t92 = 1.2746961887000874d-1*t68+1.0d+0 441 t93 = 1.530901310039024d-2*t71+1.0465751434d-1 442 t94 = 7.876233178997433d-1*t71*t93+1.9269083139d-1 443 t95 = 7.876233178997433d-1*t71*t94+4.3896648423d-1 444 t96 = 1/t95 445 t97 = 1.269642451250142d+0*t70*t96+1.0d+0 446 t98 = log(t97) 447 t99 = 1.709920934161365d+0*(6.21814d-2*t69*t77-3.10907d-2*t9 448 1 2*t98)-3.37738d-2*t83*t89 449 t100 = t90*t91*t99+3.37738d-2*t83*t89 450 t101 = 5.848223622634648d-1*t100*t82-6.21814d-2*t69*t77 451 t102 = rhob**1.1666666666666667d+0 452 t103 = 1/t102**2.0d+0 453 t104 = exp(-8.085523023512745d+1*t65) 454 t105 = t104-1.0d+0 455 t106 = 1/t105 456 t107 = 2.7178044217479813d-1*gammabb*t103*t106 457 t108 = t107+1.0d+0 458 t109 = (gammabb*t103)**2.0d+0 459 t110 = 1/t105**2.0d+0 460 t111 = 7.38646087487288d-2*t109*t110+t107+1.0d+0 461 t112 = 1/t111 462 t113 = 2.7178044217479813d-1*gammabb*t103*t108*t112+1.0d+0 463 t114 = log(t113) 464 t115 = 5.0d-1*t81**6.666666666666666d-1+5.0d-1*t80**6.666666 465 1 666666666d-1 466 t116 = t115**3.0d+0 467 t117 = gammabb+2.0d+0*gammaab+gammaaa 468 t118 = t66**1.1666666666666667d+0 469 t119 = 1/t118**2.0d+0 470 t120 = t115**2.0d+0 471 t121 = 1/t120 472 t122 = 1/t116 473 t123 = exp(-4.042761511756372d+1*t101*t122) 474 t124 = t123-1.0d+0 475 t125 = 1/t124 476 t126 = 1.7121095002288222d-1*t117*t119*t121*t125 477 t127 = t126+1.0d+0 478 t128 = 1/t115**4.0d+0 479 t129 = (t117*t119)**2.0d+0 480 t130 = 1/t124**2.0d+0 481 t131 = 2.931318940773787d-2*t128*t129*t130+t126+1.0d+0 482 t132 = 1/t131 483 t133 = 1.7121095002288222d-1*t117*t119*t121*t127*t132+1.0d+0 484 t134 = log(t133) 485 t135 = 1/rhoa**1.3333333333333333d+0 486 t136 = 1/rhoa**1.3333333333333336d+0 487 t137 = 1/t2**3 488 t138 = 1/rhoa**6.666666666666667d-1 489 t139 = 1/t16 490 t140 = 2.11607075208357d-1*t138*t15*t3-1.269642451250142d+0* 491 1 t2*(7.876233178997433d-1*(-1.3127055298329054d-1*t12*t137 492 2 *t138-3.169132786263567d-3*t136)*t3-1.3127055298329054d-1 493 3 *t13*t137*t138)/t14**2 494 t141 = 1/t23 495 t142 = 2.11607075208357d-1*t138*t22*t3-1.269642451250142d+0* 496 1 t2*(7.876233178997433d-1*(-1.3127055298329054d-1*t137*t13 497 2 8*t19-1.7344776604086162d-3*t136)*t3-1.3127055298329054d- 498 3 1*t137*t138*t20)/t21**2 499 t143 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1 500 1 .3210398931339265d-3*t135*t9-3.10907d-2*t11*(2.1160707520 501 2 8357d-1*t138*t3*t7-1.269642451250142d+0*t2*(7.87623317899 502 3 7433d-1*t3*(-1.3127055298329054d-1*t137*t138*t4-2.0096226 503 4 153166658d-3*t136)-1.3127055298329054d-1*t137*t138*t5)/t6 504 5 **2)/t8+6.21814d-2*t139*t140*t18-2.747773264188438d-3*t13 505 6 5*t17)-3.37738d-2*t141*t142*t25+7.769549222703733d-4*t135 506 7 *t24)+3.37738d-2*t141*t142*t25-7.769549222703733d-4*t135* 507 8 t24)-6.21814d-2*t139*t140*t18+2.747773264188438d-3*t135*t 508 9 17 509 t144 = 1/t38 510 t145 = rhoa**1.6666666666666674d-1 511 t146 = 1/t27**3.0d+0 512 t147 = -6.34154365074529d-1*gammaaa*t145*t146*t31 513 t148 = 2.1974870225448048d+1*gammaaa*t143*t28*t29/t30**2 514 t149 = 1/t36**2 515 t150 = 1/t66**1.3333333333333336d+0 516 t151 = 1/t66**6.666666666666667d-1 517 t152 = 1/t70**3 518 t153 = 2.11607075208357d-1*t151*t71*t75-1.269642451250142d+0 519 1 *t70*(7.876233178997433d-1*t71*(-1.3127055298329054d-1*t1 520 2 51*t152*t72-3.169132786263567d-3*t150)-1.3127055298329054 521 3 d-1*t151*t152*t73)/t74**2 522 t154 = 1/t76 523 t155 = -6.21814d-2*t153*t154*t69 524 t156 = 1/t66**1.3333333333333333d+0 525 t157 = 2.747773264188438d-3*t156*t77 526 t158 = 2.11607075208357d-1*t151*t71*t87-1.269642451250142d+0 527 1 *t70*(7.876233178997433d-1*t71*(-1.3127055298329054d-1*t1 528 2 51*t152*t84-1.7344776604086162d-3*t150)-1.312705529832905 529 3 4d-1*t151*t152*t85)/t86**2 530 t159 = 1/t88 531 t160 = 3.37738d-2*t158*t159*t83 532 t161 = -7.769549222703733d-4*t156*t89 533 t162 = t90*t91*(1.709920934161365d+0*(1.3210398931339265d-3* 534 1 t156*t98-3.10907d-2*t92*(2.11607075208357d-1*t151*t71*t96 535 2 -1.269642451250142d+0*t70*(7.876233178997433d-1*t71*(-1.3 536 3 127055298329054d-1*t151*t152*t93-2.0096226153166658d-3*t1 537 4 50)-1.3127055298329054d-1*t151*t152*t94)/t95**2)/t97-2.74 538 5 7773264188438d-3*t156*t77+6.21814d-2*t153*t154*t69)+7.769 539 6 549222703733d-4*t156*t89-3.37738d-2*t158*t159*t83) 540 t163 = -4*t90*t99/t66**5 541 t164 = t78**3 542 t165 = 1/t66**2 543 t166 = t165*t78 544 t167 = -t79 545 t168 = t167+t166 546 t169 = t80**3.333333333333333d-1 547 t170 = -t165*t78 548 t171 = t79+t170 549 t172 = t81**3.333333333333333d-1 550 t173 = 5.848223622634648d-1*t82*(4*t164*t91*t99+t163+t162+t1 551 1 61+t160)+5.848223622634648d-1*t100*(2.564881401242048d+0* 552 2 t171*t172+2.564881401242048d+0*t168*t169)+t157+t155 553 t174 = 1.0d+0*t101 554 t175 = 1/t133 555 t176 = 1/t169 556 t177 = 1/t172 557 t178 = 3.333333333333333d-1*t171*t177+3.333333333333333d-1*t 558 1 168*t176 559 t179 = t66**1.6666666666666674d-1 560 t180 = 1/t118**3.0d+0 561 t181 = -3.994922167200585d-1*t117*t121*t127*t132*t179*t180 562 t182 = -3.4242190004576445d-1*t117*t119*t122*t125*t178 563 t183 = -3.994922167200585d-1*t117*t121*t125*t179*t180 564 t184 = 1/t124**2 565 t185 = 1.2128284535269115d+2*t101*t128*t178-4.04276151175637 566 1 2d+1*t122*t173 567 t186 = -1.7121095002288222d-1*t117*t119*t121*t123*t184*t185 568 t187 = 1/t131**2 569 t188 = -1.3679488390277675d-1*t117**2*t128*t130*t179/t118**5 570 1 .0d+0 571 t189 = 1/t115**5.0d+0 572 t190 = 1/t124**3.0d+0 573 t191 = 2.473556743557577d-2*t116*t134 574 t192 = 1/rhob**1.3333333333333333d+0 575 t193 = 1/rhob**1.3333333333333336d+0 576 t194 = 1/t41**3 577 t195 = 1/rhob**6.666666666666667d-1 578 t196 = 1/t55 579 t197 = 2.11607075208357d-1*t195*t42*t54-1.269642451250142d+0 580 1 *t41*(7.876233178997433d-1*t42*(-1.3127055298329054d-1*t1 581 2 94*t195*t51-3.169132786263567d-3*t193)-1.3127055298329054 582 3 d-1*t194*t195*t52)/t53**2 583 t198 = 1/t62 584 t199 = 2.11607075208357d-1*t195*t42*t61-1.269642451250142d+0 585 1 *t41*(7.876233178997433d-1*t42*(-1.3127055298329054d-1*t1 586 2 94*t195*t58-1.7344776604086162d-3*t193)-1.312705529832905 587 3 4d-1*t194*t195*t59)/t60**2 588 t200 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t198*t199*t 589 1 64+7.769549222703733d-4*t192*t63+1.709920934161365d+0*(6. 590 2 21814d-2*t196*t197*t57-2.747773264188438d-3*t192*t56-3.10 591 3 907d-2*(2.11607075208357d-1*t195*t42*t46-1.26964245125014 592 4 2d+0*t41*(7.876233178997433d-1*t42*(-1.3127055298329054d- 593 5 1*t194*t195*t43-2.0096226153166658d-3*t193)-1.31270552983 594 6 29054d-1*t194*t195*t44)/t45**2)*t50/t47+1.321039893133926 595 7 5d-3*t192*t48))+3.37738d-2*t198*t199*t64-7.76954922270373 596 8 3d-4*t192*t63)-6.21814d-2*t196*t197*t57+2.747773264188438 597 9 d-3*t192*t56 598 t201 = 1/t113 599 t202 = rhob**1.6666666666666674d-1 600 t203 = 1/t102**3.0d+0 601 t204 = -6.34154365074529d-1*gammabb*t106*t202*t203 602 t205 = 2.1974870225448048d+1*gammabb*t103*t104*t200/t105**2 603 t206 = 1/t111**2 604 t207 = t79+t166 605 t208 = t170+t167 606 t209 = 5.848223622634648d-1*t82*(-4*t164*t91*t99+t163+t162+t 607 1 161+t160)+5.848223622634648d-1*t100*(2.564881401242048d+0 608 2 *t172*t208+2.564881401242048d+0*t169*t207)+t157+t155 609 t210 = 3.333333333333333d-1*t177*t208+3.333333333333333d-1*t 610 1 176*t207 611 t211 = -3.4242190004576445d-1*t117*t119*t122*t125*t210 612 t212 = 1.2128284535269115d+2*t101*t128*t210-4.04276151175637 613 1 2d+1*t122*t209 614 t213 = -1.7121095002288222d-1*t117*t119*t121*t123*t184*t212 615 t214 = 1/t27**4.0d+0 616 t215 = 1/t118**4.0d+0 617 t216 = 2.473556743557577d-2*t116*t175*(-1.7121095002288222d- 618 1 1*t117*t119*t121*t127*t187*(5.862637881547574d-2*t117*t12 619 2 8*t130*t215+1.7121095002288222d-1*t119*t121*t125)+2.93131 620 3 8940773787d-2*t117*t125*t128*t132*t215+1.7121095002288222 621 4 d-1*t119*t121*t127*t132)*t66 622 t217 = 1/t102**4.0d+0 623 fnc(iq) = (2.473556743557577d-2*t116*t134*t66+1.0d+0*t101*t6 624 1 6-1.0d+0*rhob*t65-1.2367783717787881d-2*rhoa*t39-1.0d+0*r 625 2 hoa*t26-1.2367783717787881d-2*rhob*t114)*wght+fnc(iq) 626 Amat(iq,D1_RA) = (2.473556743557577d-2*t116*t175*(-1.7121095 627 1 002288222d-1*t117*t119*t121*t127*t187*(-5.862637881547574 628 2 d-2*t123*t128*t129*t185*t190-1.172527576309515d-1*t129*t1 629 3 30*t178*t189+t188+t186+t183+t182)+1.7121095002288222d-1*t 630 4 117*t119*t121*t132*(t186+t183+t182)+t181-3.42421900045764 631 5 45d-1*t117*t119*t122*t127*t132*t178)*t66+7.42067023067273 632 6 1d-2*t120*t134*t178*t66+1.0d+0*t173*t66-1.236778371778788 633 7 1d-2*t39-1.2367783717787881d-2*rhoa*t144*(-6.341543650745 634 8 29d-1*gammaaa*t145*t146*t33*t37+2.7178044217479813d-1*gam 635 9 maaa*(t148+t147)*t28*t37-2.7178044217479813d-1*gammaaa*t1 636 : 49*t28*t33*(-3.4470150749406775d-1*gammaaa**2*t145*t35/t2 637 ; 7**5.0d+0+1.1944679893212153d+1*t143*t29*t34/t30**3.0d+0+ 638 < t148+t147))-1.0d+0*t26+t191+t174-1.0d+0*rhoa*t143)*wght+A 639 = mat(iq,D1_RA) 640 Amat(iq,D1_RB) = (2.473556743557577d-2*t116*t175*(-1.7121095 641 1 002288222d-1*t117*t119*t121*t127*t187*(t213-5.86263788154 642 2 7574d-2*t123*t128*t129*t190*t212+t211-1.172527576309515d- 643 3 1*t129*t130*t189*t210+t188+t183)+1.7121095002288222d-1*t1 644 4 17*t119*t121*t132*(t213+t211+t183)-3.4242190004576445d-1* 645 5 t117*t119*t122*t127*t132*t210+t181)*t66+7.420670230672731 646 6 d-2*t120*t134*t210*t66+1.0d+0*t209*t66-1.0d+0*t65-1.23677 647 7 83717787881d-2*rhob*t201*(-2.7178044217479813d-1*gammabb* 648 8 t103*t108*(t205+t204-3.4470150749406775d-1*gammabb**2*t11 649 9 0*t202/t102**5.0d+0+1.1944679893212153d+1*t104*t109*t200/ 650 : t105**3.0d+0)*t206+2.7178044217479813d-1*gammabb*t103*t11 651 ; 2*(t205+t204)-6.34154365074529d-1*gammabb*t108*t112*t202* 652 < t203)-1.0d+0*rhob*t200+t191+t174-1.2367783717787881d-2*t1 653 = 14)*wght+Amat(iq,D1_RB) 654 Cmat(iq,D1_GAA) = (t216-1.2367783717787881d-2*rhoa*t144*(2.7 655 1 178044217479813d-1*t28*t33*t37+7.386460874872879d-2*gamma 656 2 aa*t214*t31*t37-2.7178044217479813d-1*gammaaa*t149*t28*t3 657 3 3*(1.477292174974576d-1*gammaaa*t214*t35+2.71780442174798 658 4 13d-1*t28*t31)))*wght+Cmat(iq,D1_GAA) 659 Cmat(iq,D1_GAB) = 2.473556743557577d-2*t116*t175*(-1.7121095 660 1 002288222d-1*t117*t119*t121*t127*t187*(1.172527576309515d 661 2 -1*t117*t128*t130*t215+3.4242190004576445d-1*t119*t121*t1 662 3 25)+5.862637881547574d-2*t117*t125*t128*t132*t215+3.42421 663 4 90004576445d-1*t119*t121*t127*t132)*t66*wght+Cmat(iq,D1_G 664 5 AB) 665 Cmat(iq,D1_GBB) = (t216-1.2367783717787881d-2*rhob*t201*(-2. 666 1 7178044217479813d-1*gammabb*t103*t108*t206*(1.47729217497 667 2 4576d-1*gammabb*t110*t217+2.7178044217479813d-1*t103*t106 668 3 )+7.386460874872879d-2*gammabb*t106*t112*t217+2.717804421 669 4 7479813d-1*t103*t108*t112))*wght+Cmat(iq,D1_GBB) 670 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 671 fnc(iq) = fnc(iq) 672 Amat(iq,D1_RA) = Amat(iq,D1_RA) 673 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 674 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 675 fnc(iq) = fnc(iq) 676 Amat(iq,D1_RB) = Amat(iq,D1_RB) 677 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 678 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 679 endif ! ipol.eq.1 680 enddo ! iq 681 end 682C> 683C> \brief Evaluate the nwxcm_c_opt functional [1] 684C> 685C> \f{eqnarray*}{ 686C> {\it t_1} &=& \rho_\alpha^{0.3333333333333333}\\\\ 687C> {\it t_2} &=& \sqrt{{\it t_1}}\\\\ 688C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 689C> {\it t_4} &=& {{1}\over{{\it t_1}}}\\\\ 690C> {\it t_5} &=& \log \left({{1.269642451250142\,{\it t_2}} 691C> \over{0.7876233178997433\,\left(0.7876233178997433\, 692C> \left(0.02414199311453321\,{\it t_3}+0.10186556948\right)\,{ 693C> \it t_3}+0.22308199064\right)\,{\it t_3}+0.47231125998}} 694C> +1.0\right)\\\\ 695C> {\it t_6} &=& 0.1325688999052018\,{\it t_4}+1.0\\\\ 696C> {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_2}} 697C> \over{0.7876233178997433\,\left(0.7876233178997433\, 698C> \left(0.01321299881039884\,{\it t_3}+0.029729725188\right) 699C> \,{\it t_3}+0.12236585478\right)\,{\it t_3}+0.3497952466}} 700C> +1.0\right)\\\\ 701C> {\it t_8} &=& 0.06901399211255826\,{\it t_4}+1.0\\\\ 702C> {\it t_9} &=& 0.5848223622634643\,\left(0.0337738\,{\it t_7} 703C> \,{\it t_8}+1.0\,\left(1.709920934161365\,\left(0.0621814\,{ 704C> \it t_5}\,{\it t_6}-0.0310907\,\log \left({{1.269642451250142 705C> \,{\it t_2}}\over{0.7876233178997433\,\left(0.7876233178997433 706C> \,\left(0.01530901310039024\,{\it t_3}+0.10465751434\right) 707C> \,{\it t_3}+0.19269083139\right)\,{\it t_3}+0.43896648423}} 708C> +1.0\right)\,\left(0.1274696188700087\,{\it t_4} 709C> +1.0\right)\right)-0.0337738\,{\it t_7}\,{\it t_8}\right)\right) 710C> -0.0621814\,{\it t_5}\,{\it t_6}\\\\ 711C> {\it t_{10}} &=& \rho_\beta^{0.3333333333333333}\\\\ 712C> {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\ 713C> {\it t_{12}} &=& {{1}\over{{\it t_{11}}}}\\\\ 714C> {\it t_{13}} &=& {{1}\over{{\it t_{10}}}}\\\\ 715C> {\it t_{14}} &=& \log \left({{1.269642451250142\,{ 716C> \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433 717C> \,\left(0.02414199311453321\,{\it t_{12}}+0.10186556948\right) 718C> \,{\it t_{12}}+0.22308199064\right)\,{\it t_{12}} 719C> +0.47231125998}}+1.0\right)\\\\ 720C> {\it t_{15}} &=& 0.1325688999052018\,{\it t_{13}}+1.0\\\\ 721C> {\it t_{16}} &=& \log \left({{1.269642451250142\,{ 722C> \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433 723C> \,\left(0.01321299881039884\,{\it t_{12}} 724C> +0.029729725188\right)\,{\it t_{12}}+0.12236585478\right)\,{ 725C> \it t_{12}}+0.3497952466}}+1.0\right)\\\\ 726C> {\it t_{17}} &=& 0.06901399211255826\,{\it t_{13}}+1.0\\\\ 727C> {\it t_{18}} &=& 0.5848223622634643\,\left(0.0337738\,{ 728C> \it t_{16}}\,{\it t_{17}}+1.0\,\left(1.709920934161365\, 729C> \left(0.0621814\,{\it t_{14}}\,{\it t_{15}}-0.0310907 730C> \,\log \left({{1.269642451250142\,{\it t_{11}}} 731C> \over{0.7876233178997433\,\left(0.7876233178997433\, 732C> \left(0.01530901310039024\,{\it t_{12}}+0.10465751434\right) 733C> \,{\it t_{12}}+0.19269083139\right)\,{\it t_{12}} 734C> +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{ 735C> \it t_{13}}+1.0\right)\right)-0.0337738\,{\it t_{16}}\,{ 736C> \it t_{17}}\right)\right)-0.0621814\,{\it t_{14}}\,{ 737C> \it t_{15}}\\\\ 738C> {\it t_{19}} &=& \rho_\beta+\rho_\alpha\\\\ 739C> {\it t_{20}} &=& {\it t_{19}}^{0.3333333333333333}\\\\ 740C> {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\ 741C> {\it t_{22}} &=& 0.1325688999052018\,{\it t_{21}}+1.0\\\\ 742C> {\it t_{23}} &=& \sqrt{{\it t_{20}}}\\\\ 743C> {\it t_{24}} &=& {{1}\over{{\it t_{23}}}}\\\\ 744C> {\it t_{25}} &=& \log \left({{1.269642451250142\,{ 745C> \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\, 746C> \left(0.7876233178997433\,{\it t_{24}}\, 747C> \left(0.02414199311453321\,{\it t_{24}}+0.10186556948\right) 748C> +0.22308199064\right)+0.47231125998}}+1.0\right)\\\\ 749C> {\it t_{26}} &=& \rho_\alpha-\rho_\beta\\\\ 750C> {\it t_{27}} &=& {{1}\over{{\it t_{19}}}}\\\\ 751C> {\it t_{28}} &=& 1.0-{\it t_{26}}\,{\it t_{27}}\\\\ 752C> {\it t_{29}} &=& {\it t_{26}}\,{\it t_{27}}+1.0\\\\ 753C> {\it t_{30}} &=& 0.06901399211255826\,{\it t_{21}}+1.0\\\\ 754C> {\it t_{31}} &=& \log \left({{1.269642451250142\,{ 755C> \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\, 756C> \left(0.7876233178997433\,{\it t_{24}}\, 757C> \left(0.01321299881039884\,{\it t_{24}}+0.029729725188\right) 758C> +0.12236585478\right)+0.3497952466}}+1.0\right)\\\\ 759C> {\it t_{32}} &=& 0.5848223622634648\,\left(1.923661050931536 760C> \,{\it t_{29}}^{{{4}\over{3}}}+1.923661050931536\,{ 761C> \it t_{28}}^{{{4}\over{3}}}-3.847322101863072\right)\, 762C> \left({{{\it t_{26}}^4\,\left(1.709920934161365\, 763C> \left(0.0621814\,{\it t_{22}}\,{\it t_{25}}-0.0310907\, 764C> \left(0.1274696188700087\,{\it t_{21}}+1.0\right)\,\log 765C> \left({{1.269642451250142\,{\it t_{23}}} 766C> \over{0.7876233178997433\,{\it t_{24}}\, 767C> \left(0.7876233178997433\,{\it t_{24}}\, 768C> \left(0.01530901310039024\,{\it t_{24}}+0.10465751434\right) 769C> +0.19269083139\right)+0.43896648423}}+1.0\right)\right) 770C> -0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)}\over{{ 771C> \it t_{19}}^4}}+0.0337738\,{\it t_{30}}\,{\it t_{31}}\right) 772C> -0.0621814\,{\it t_{22}}\,{\it t_{25}}\\\\ 773C> {\it t_{33}} &=& {{1}\over{ 774C> \left(\rho_\alpha^{1.166666666666667}\right)^{2.0}}}\\\\ 775C> {\it t_{34}} &=& {{1}\over{e^{80.85523023512745\,{\it t_9}}}} 776C> -1.0\\\\ 777C> {\it t_{35}} &=& {{0.2717804421747981\,{\it t_{33}}\, 778C> \sigma_{\alpha\alpha}}\over{{\it t_{34}}}}\\\\ 779C> {\it t_{36}} &=& {{1}\over{ 780C> \left(\rho_\beta^{1.166666666666667}\right)^{2.0}}}\\\\ 781C> {\it t_{37}} &=& {{1}\over{e^{80.85523023512745\,{\it t_{18}}}}} 782C> -1.0\\\\ 783C> {\it t_{38}} &=& {{0.2717804421747981\,{\it t_{36}}\, 784C> \sigma_{\beta\beta}}\over{{\it t_{37}}}}\\\\ 785C> {\it t_{39}} &=& 0.5\,{\it t_{29}}^{{{2}\over{3}}}+0.5\,{ 786C> \it t_{28}}^{{{2}\over{3}}}\\\\ 787C> {\it t_{40}} &=& {\it t_{39}}^{3.0}\\\\ 788C> {\it t_{41}} &=& {{1}\over{\left({ 789C> \it t_{19}}^{1.166666666666667}\right)^{2.0}}}\\\\ 790C> {\it t_{42}} &=& {{1}\over{{\it t_{39}}^{2.0}}}\\\\ 791C> {\it t_{43}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 792C> +\sigma_{\alpha\alpha}\\\\ 793C> {\it t_{44}} &=& {{1}\over{e^{{{40.42761511756372\,{ 794C> \it t_{32}}}\over{{\it t_{40}}}}}}}-1.0\\\\ 795C> {\it t_{45}} &=& {{0.1712109500228822\,{\it t_{41}}\,{ 796C> \it t_{42}}\,{\it t_{43}}}\over{{\it t_{44}}}}\\\\ 797C> f &=& 0.02473556743557577\,{\it t_{19}}\,{\it t_{40}} 798C> \,\log \left({{0.1712109500228822\,{\it t_{41}}\,{\it t_{42}} 799C> \,{\it t_{43}}\,\left({\it t_{45}}+1.0\right)} 800C> \over{{{0.02931318940773787\,\left({\it t_{41}}\,{ 801C> \it t_{43}}\right)^{2.0}}\over{{\it t_{39}}^{4.0}\,{ 802C> \it t_{44}}^{2.0}}}+{\it t_{45}}+1.0}}+1.0\right) 803C> -0.01236778371778788\,\rho_\beta\,\log 804C> \left({{0.2717804421747981\,{\it t_{36}}\,\sigma_{\beta\beta} 805C> \,\left({\it t_{38}}+1.0\right)}\over{{{0.0738646087487288 806C> \,\left({\it t_{36}}\,\sigma_{\beta\beta}\right)^{2.0}} 807C> \over{{\it t_{37}}^{2.0}}}+{\it t_{38}}+1.0}}+1.0\right) 808C> -0.01236778371778788\,\rho_\alpha\,\log 809C> \left({{0.2717804421747981\,{\it t_{33}}\, 810C> \sigma_{\alpha\alpha}\,\left({\it t_{35}}+1.0\right)} 811C> \over{{{0.0738646087487288\,\left({\it t_{33}}\, 812C> \sigma_{\alpha\alpha}\right)^{2.0}}\over{{\it t_{34}}^{2.0}}} 813C> +{\it t_{35}}+1.0}}+1.0\right)+1.0\,{\it t_{19}}\,{\it t_{32}} 814C> -1.0\,{\it t_{18}}\,\rho_\beta-1.0\,{\it t_9}\,\rho_\alpha\\\\ 815C> g &=& 0\\\\ 816C> G &=& 0.0\\\\ 817C> \f} 818C> 819C> Code generated with Maxima 5.34.0 [2] 820C> driven by autoxc [3]. 821C> 822C> ### References ### 823C> 824C> [1] NC Handy, AJ Cohen, Mol.Phys. 99, 607 (2001) , DOI: 825C> <a href="https://doi.org/10.1080/00268970010023435 "> 826C> 10.1080/00268970010023435 </a> 827C> 828C> [2] Maxima, a computer algebra system, 829C> <a href="http://maxima.sourceforge.net/"> 830C> http://maxima.sourceforge.net/</a> 831C> 832C> [3] autoxc, revision 27097 2015-05-08 833C> 834 subroutine nwxcm_c_opt_d2(param,tol_rho,ipol,nq,wght, 835 +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2) 836c $Id: $ 837#ifdef NWXC_QUAD_PREC 838 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 839 integer, parameter :: rk=selected_real_kind(30) 840#else 841 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 842 integer, parameter :: rk=selected_real_kind(15) 843#endif 844#include "nwxc_param.fh" 845 double precision param(*) !< [Input] Parameters of functional 846 double precision tol_rho !< [Input] The lower limit on the density 847 integer ipol !< [Input] The number of spin channels 848 integer nq !< [Input] The number of points 849 double precision wght !< [Input] The weight of the functional 850 double precision rho(nq,*) !< [Input] The density 851 double precision rgamma(nq,*) !< [Input] The norm of the density 852 !< gradients 853 double precision fnc(nq) !< [Output] The value of the functional 854c 855c Sampling Matrices for the XC Kernel 856c 857 double precision Amat(nq,*) !< [Output] The derivative wrt rho 858 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 859c 860c Sampling Matrices for the XC Kernel 861c 862 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 863 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 864 !< and possibly rho 865 integer iq 866 double precision tmp 867 double precision rhoa,rhob 868 double precision gammaaa,gammaab,gammabb 869 double precision taua,taub 870 double precision nwxcm_heaviside 871 external nwxcm_heaviside 872CDIR$ NOVECTOR 873 do iq = 1, nq 874 if (ipol.eq.1) then 875 rhoa = 0.5d0*rho(iq,R_T) 876 gammaaa = 0.25d0*rgamma(iq,G_TT) 877 if (rhoa.gt.tol_rho) then 878 t1 = rhoa**3.333333333333333d-1 879 t2 = t1**5.0d-1 880 t3 = 1/t2 881 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 882 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 883 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 884 t7 = 1/t6 885 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 886 t9 = log(t8) 887 t10 = 1/t1 888 t11 = 1.2746961887000874d-1*t10+1.0d+0 889 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 890 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 891 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 892 t15 = 1/t14 893 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 894 t17 = log(t16) 895 t18 = 1.325688999052018d-1*t10+1.0d+0 896 t19 = 1.3212998810398843d-2*t3+2.9729725188d-2 897 t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1 898 t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1 899 t22 = 1/t21 900 t23 = 1.269642451250142d+0*t2*t22+1.0d+0 901 t24 = log(t23) 902 t25 = 6.901399211255826d-2*t10+1.0d+0 903 t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 904 1 21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3 905 2 .37738d-2*t24*t25)-6.21814d-2*t17*t18 906 t27 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3* 907 1 (7.016926042943223d-1*(2.150807071909054d-2*t3+1.01865569 908 2 48d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0) 909 t28 = 1.0522000558389215d-1*t10+1.0d+0 910 t29 = rhoa**1.1666666666666667d+0 911 t30 = 1/t29**2.0d+0 912 t31 = exp(-8.085523023512745d+1*t26) 913 t32 = t31-1.0d+0 914 t33 = 1/t32 915 t34 = 2.7178044217479813d-1*gammaaa*t30*t33 916 t35 = t34+1.0d+0 917 t36 = (gammaaa*t30)**2.0d+0 918 t37 = 1/t32**2.0d+0 919 t38 = 7.38646087487288d-2*t36*t37+t34+1.0d+0 920 t39 = 1/t38 921 t40 = 2.7178044217479813d-1*gammaaa*t30*t35*t39+1.0d+0 922 t41 = log(t40) 923 t42 = exp(2.5138457066712766d+0*t27*t28)-1.0d+0 924 t43 = 1.35890221087399d-1*gammaaa*t30/t42 925 t44 = 2.1508070719090538d-2*t3+1.0186556948d-1 926 t45 = 7.016926042943222d-1*t3*t44+2.2308199064d-1 927 t46 = 7.016926042943222d-1*t3*t45+4.7231125998d-1 928 t47 = 1/t46 929 t48 = 1.425125466450768d+0*t2*t47+1.0d+0 930 t49 = log(t48) 931 t50 = 1.0522000558389213d-1*t10+1.0d+0 932 t51 = 1/rhoa**1.3333333333333333d+0 933 t52 = 1/t48 934 t53 = 1/t46**2 935 t54 = 1/rhoa**1.3333333333333336d+0 936 t55 = 1/t2**3 937 t56 = 1/rhoa**6.666666666666667d-1 938 t57 = -5.847438369119352d-2*t44*t55*t56-1.2576711796854242d- 939 1 3*t54 940 t58 = 7.016926042943222d-1*t3*t57-5.847438369119352d-2*t45*t 941 1 55*t56 942 t59 = 1.1876045553756398d-1*t3*t47*t56-1.425125466450768d+0* 943 1 t2*t53*t58 944 t60 = 1.090454542535705d-3*t49*t51-6.21814d-2*t50*t52*t59 945 t61 = 1/t8 946 t62 = 1/t6**2 947 t63 = -1.3127055298329054d-1*t4*t55*t56-2.0096226153166658d- 948 1 3*t54 949 t64 = 7.876233178997433d-1*t3*t63-1.3127055298329054d-1*t5*t 950 1 55*t56 951 t65 = 2.11607075208357d-1*t3*t56*t7-1.269642451250142d+0*t2* 952 1 t62*t64 953 t66 = 1/t16 954 t67 = 1/t14**2 955 t68 = -1.3127055298329054d-1*t12*t55*t56-3.169132786263567d- 956 1 3*t54 957 t69 = 7.876233178997433d-1*t3*t68-1.3127055298329054d-1*t13* 958 1 t55*t56 959 t70 = 2.11607075208357d-1*t15*t3*t56-1.269642451250142d+0*t2 960 1 *t67*t69 961 t71 = 1/t23 962 t72 = 1/t21**2 963 t73 = -1.3127055298329054d-1*t19*t55*t56-1.7344776604086162d 964 1 -3*t54 965 t74 = 7.876233178997433d-1*t3*t73-1.3127055298329054d-1*t20* 966 1 t55*t56 967 t75 = 2.11607075208357d-1*t22*t3*t56-1.269642451250142d+0*t2 968 1 *t72*t74 969 t76 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1. 970 1 3210398931339265d-3*t51*t9+6.21814d-2*t18*t66*t70-3.10907 971 2 d-2*t11*t61*t65-2.747773264188438d-3*t17*t51)-3.37738d-2* 972 3 t25*t71*t75+7.769549222703733d-4*t24*t51)+3.37738d-2*t25* 973 4 t71*t75-7.769549222703733d-4*t24*t51)-6.21814d-2*t18*t66* 974 5 t70+2.747773264188438d-3*t17*t51 975 t77 = 1/t40 976 t78 = rhoa**1.6666666666666674d-1 977 t79 = 1/t29**3.0d+0 978 t80 = -6.34154365074529d-1*gammaaa*t33*t78*t79 979 t81 = 1/t32**2 980 t82 = 2.1974870225448048d+1*gammaaa*t30*t31*t76*t81 981 t83 = t82+t80 982 t84 = 1/t38**2 983 t85 = gammaaa**2 984 t86 = 1/t29**5.0d+0 985 t87 = 1/t32**3.0d+0 986 t88 = 1.1944679893212153d+1*t31*t36*t76*t87-3.44701507494067 987 1 75d-1*t37*t78*t85*t86+t82+t80 988 t89 = -2.7178044217479813d-1*gammaaa*t30*t35*t84*t88+2.71780 989 1 44217479813d-1*gammaaa*t30*t39*t83-6.34154365074529d-1*ga 990 2 mmaaa*t35*t39*t78*t79 991 t90 = exp(2.5138457066712766d+0*t49*t50) 992 t91 = t90-1.0d+0 993 t92 = 1/t91 994 t93 = 1.3589022108739904d-1*gammaaa*t30*t92 995 t94 = t93+1.0d+0 996 t95 = 1/t91**2.0d+0 997 t96 = 1.8466152187182186d-2*t36*t95+t93+1.0d+0 998 t97 = 1/t96 999 t98 = 1.3589022108739904d-1*gammaaa*t30*t94*t97+1.0d+0 1000 t99 = 1/t98 1001 t100 = -1.585385912686322d-1*gammaaa*t78*t79*t92 1002 t101 = 1/t91**2 1003 t102 = 5.493717556362009d+0*gammaaa*t101*t30*t60*t90 1004 t103 = t102+t100 1005 t104 = 1/t96**2 1006 t105 = 1/t91**3.0d+0 1007 t106 = -4.308768843675843d-2*t78*t85*t86*t95+1.4930849866515 1008 1 178d+0*t105*t36*t60*t90+t102+t100 1009 t107 = -1.585385912686322d-1*gammaaa*t78*t79*t94*t97+1.35890 1010 1 22108739904d-1*gammaaa*t103*t30*t97-1.3589022108739904d-1 1011 2 *gammaaa*t104*t106*t30*t94 1012 t108 = log(t98) 1013 t109 = 1/t29**4.0d+0 1014 t110 = 1.477292174974576d-1*gammaaa*t109*t37+2.7178044217479 1015 1 813d-1*t30*t33 1016 t111 = -2.7178044217479813d-1*gammaaa*t110*t30*t35*t84+2.717 1017 1 8044217479813d-1*t30*t35*t39+7.386460874872879d-2*gammaaa 1018 2 *t109*t33*t39 1019 t112 = 9.233076093591093d-3*gammaaa*t109*t95+3.3972555271849 1020 1 76d-2*t30*t92 1021 t113 = 3.397255527184976d-2*t30*t94*t97+4.6165380467955464d- 1022 1 3*gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104 1023 2 *t112*t30*t94 1024 t114 = 1.8466152187182186d-2*gammaaa*t109*t95+6.794511054369 1025 1 952d-2*t30*t92 1026 t115 = 6.794511054369952d-2*t30*t94*t97+9.233076093591093d-3 1027 1 *gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104* 1028 2 t114*t30*t94 1029 t116 = 2.0d+0*t60 1030 t117 = 1/rhoa**2.333333333333333d+0 1031 t118 = -7.269696950238034d-4*t117*t49 1032 t119 = log(1.425125466450768d+0*t2/(7.016926042943222d-1*t3* 1033 1 (7.016926042943222d-1*(1.1771443702974158d-2*t3+2.9729725 1034 2 188d-2)*t3+1.2236585478d-1)+3.497952466d-1)+1.0d+0) 1035 t120 = 5.477644184000001d-2*t10+1.0d+0 1036 t121 = 1/rhoa**2 1037 t122 = 2.18090908507141d-3*t51*t52*t59 1038 t123 = 6.21814d-2*t50*t59**2/t48**2 1039 t124 = 1/rhoa**2.3333333333333334d+0 1040 t125 = 1/rhoa**1.6666666666666669d+0 1041 t126 = 1/t2**5 1042 t127 = -6.21814d-2*t50*t52*(2.850250932901536d+0*t2*t58**2/t 1043 1 46**3-2.3752091107512796d-1*t3*t53*t56*t58-1.425125466450 1044 2 768d+0*t2*t53*(-1.1694876738238703d-1*t55*t56*t57+7.01692 1045 3 6042943222d-1*t3*(1.949146123039784d-2*t125*t44*t55+1.461 1046 4 8595922798375d-2*t126*t44*t54+9.432533847640683d-4*t124)+ 1047 5 1.949146123039784d-2*t125*t45*t55+1.4618595922798375d-2*t 1048 6 126*t45*t54)-9.896704628130328d-3*t47*t54*t55-3.958681851 1049 7 2521327d-2*t125*t3*t47) 1050 t128 = t127+t123+t122+8.443450000000001d-3*t119*t120*t121+t1 1051 1 18 1052 t129 = 1/t16**2 1053 t130 = t70**2 1054 t131 = 2.539284902500284d+0*t2*t69**2/t14**3-4.2321415041671 1055 1 4d-1*t3*t56*t67*t69-1.269642451250142d+0*t2*t67*(-2.62541 1056 2 1059665811d-1*t55*t56*t68+7.876233178997433d-1*t3*(8.7513 1057 3 70198886037d-2*t12*t125*t55+6.563527649164527d-2*t12*t126 1058 4 *t54+4.753699179395351d-3*t124)+8.751370198886037d-2*t125 1059 5 *t13*t55+6.563527649164527d-2*t126*t13*t54)-3.52678458680 1060 6 595d-2*t15*t54*t55-1.4107138347223802d-1*t125*t15*t3 1061 t132 = 1/t23**2 1062 t133 = t75**2 1063 t134 = 2.539284902500284d+0*t2*t74**2/t21**3-4.2321415041671 1064 1 4d-1*t3*t56*t72*t74-1.269642451250142d+0*t2*t72*(-2.62541 1065 2 1059665811d-1*t55*t56*t73+7.876233178997433d-1*t3*(8.7513 1066 3 70198886037d-2*t125*t19*t55+6.563527649164527d-2*t126*t19 1067 4 *t54+2.601716490612924d-3*t124)+8.751370198886037d-2*t125 1068 5 *t20*t55+6.563527649164527d-2*t126*t20*t54)-3.52678458680 1069 6 595d-2*t22*t54*t55-1.4107138347223802d-1*t125*t22*t3 1070 t135 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 1071 1 1.7613865241785687d-3*t117*t9+3.10907d-2*t11*t65**2/t8**2 1072 2 -5.495546528376876d-3*t51*t66*t70-3.10907d-2*t11*t61*(-3. 1073 3 52678458680595d-2*t54*t55*t7-1.4107138347223802d-1*t125*t 1074 4 3*t7+2.539284902500284d+0*t2*t64**2/t6**3-4.2321415041671 1075 5 4d-1*t3*t56*t62*t64-1.269642451250142d+0*t2*t62*(-2.62541 1076 6 1059665811d-1*t55*t56*t63+7.876233178997433d-1*t3*(8.7513 1077 7 70198886037d-2*t125*t4*t55+6.563527649164527d-2*t126*t4*t 1078 8 54+3.0144339229749983d-3*t124)+8.751370198886037d-2*t125* 1079 9 t5*t55+6.563527649164527d-2*t126*t5*t54))+6.21814d-2*t131 1080 : *t18*t66+2.642079786267853d-3*t51*t61*t65-6.21814d-2*t129 1081 ; *t130*t18+3.663697685584584d-3*t117*t17)+1.55390984454074 1082 < 65d-3*t51*t71*t75-3.37738d-2*t134*t25*t71+3.37738d-2*t132 1083 = *t133*t25-1.0359398963604977d-3*t117*t24)-1.5539098445407 1084 > 465d-3*t51*t71*t75+3.37738d-2*t134*t25*t71-3.37738d-2*t13 1085 ? 2*t133*t25+1.0359398963604977d-3*t117*t24)+5.495546528376 1086 @ 876d-3*t51*t66*t70-6.21814d-2*t131*t18*t66+6.21814d-2*t12 1087 1 9*t130*t18-3.663697685584584d-3*t117*t17 1088 t136 = rhoa**3.333333333333335d-1 1089 t137 = 1/rhoa**8.333333333333333d-1 1090 t138 = t76**2 1091 t139 = exp(-1.617104604702549d+2*t26) 1092 t140 = 3.553566382931298d+3*gammaaa*t138*t139*t30/t32**3 1093 t141 = 2.2195402777608514d+0*gammaaa*t109*t136*t33 1094 t142 = -1.0569239417908823d-1*gammaaa*t137*t33*t79 1095 t143 = -1.0254939438542422d+2*gammaaa*t31*t76*t78*t79*t81 1096 t144 = -1.776783191465649d+3*gammaaa*t138*t30*t31*t81 1097 t145 = 2.1974870225448048d+1*gammaaa*t135*t30*t31*t81 1098 t146 = 1/t29**6.0d+0 1099 t147 = 1/t38**3 1100 t148 = 1/t40**2 1101 t149 = 1/t98**2 1102 t150 = -4.947113487115154d-2*rhoa*t107**2*t149 1103 t151 = 4.947113487115154d-2*t107 1104 t152 = 2.774425347201063d-1*gammaaa*t109*t136*t94*t97 1105 t153 = -1.321154927238602d-2*gammaaa*t137*t79*t94*t97 1106 t154 = -3.170771825372644d-1*gammaaa*t103*t78*t79*t97 1107 t155 = 3.170771825372644d-1*gammaaa*t104*t106*t78*t79*t94 1108 t156 = -2.717804421747981d-1*gammaaa*t103*t104*t106*t30 1109 t157 = 1/t96**3 1110 t158 = 2.717804421747981d-1*gammaaa*t106**2*t157*t30*t94 1111 t159 = 2.774425347201063d-1*gammaaa*t109*t136*t92 1112 t160 = -1.321154927238602d-2*gammaaa*t137*t79*t92 1113 t161 = 1.5098913454155444d-2*gammaaa*t121*t30*t92 1114 t162 = -1.281867429817802d+1*gammaaa*t101*t60*t78*t79*t90 1115 t163 = t60**2 1116 t164 = -2.2209789893320597d+2*gammaaa*t101*t163*t30*t90 1117 t165 = 4.189742844452126d-1*t121*t49*t50-4.042761511756372d+ 1118 1 1*t128 1119 t166 = -1.3589022108739904d-1*gammaaa*t101*t165*t30*t90 1120 t167 = 1/t91**3 1121 t168 = exp(5.027691413342553d+0*t49*t50) 1122 t169 = 4.4419579786641195d+2*gammaaa*t163*t167*t168*t30 1123 t170 = 1.2567242460721215d-1*t136*t146*t85*t95 1124 t171 = -3.590640703063204d-3*t137*t85*t86*t95 1125 t172 = -6.967729937707083d+0*t105*t60*t78*t85*t86*t90 1126 t173 = 1.8108559553448098d+2*t163*t168*t36/t91**4.0d+0 1127 t174 = 1/rhoa 1128 t175 = t127+t123+t122-8.44345d-3*t119*t120*t121+t118 1129 t176 = -1.509891345415545d-2*gammaaa*t121*t30*t92 1130 t177 = -2.2209789893320595d+2*gammaaa*t101*t163*t30*t90 1131 t178 = -4.1897428444521273d-1*t121*t49*t50-4.042761511756372 1132 1 d+1*t175 1133 t179 = -1.3589022108739904d-1*gammaaa*t101*t178*t30*t90 1134 t180 = 4.441957978664119d+2*gammaaa*t163*t167*t168*t30 1135 t181 = -6.34154365074529d-1*t33*t78*t79 1136 t182 = 2.1974870225448048d+1*t30*t31*t76*t81 1137 t183 = -4.947113487115154d-2*rhoa*t107*t113*t149 1138 t184 = -3.9634647817158053d-2*t78*t79*t92 1139 t185 = 1.3734293890905022d+0*t101*t30*t60*t90 1140 t186 = (4.947113487115154d-2*rhoa*(-3.9634647817158053d-2*t7 1141 1 8*t79*t94*t97-5.385961054594804d-3*gammaaa*t78*t86*t92*t9 1142 2 7+1.3589022108739904d-1*gammaaa*(t185+t184)*t30*t97+3.397 1143 3 255527184976d-2*t103*t30*t97-1.3589022108739904d-1*gammaa 1144 4 a*t104*t30*t94*(-2.1543844218379216d-2*gammaaa*t78*t86*t9 1145 5 5+7.465424933257588d-1*gammaaa*t105*t109*t60*t90+t185+t18 1146 6 4)+1.585385912686322d-1*gammaaa*t104*t112*t78*t79*t94+2.7 1147 7 17804421747981d-1*gammaaa*t106*t112*t157*t30*t94-3.397255 1148 8 527184976d-2*t104*t106*t30*t94-4.6165380467955464d-3*gamm 1149 9 aaa*t104*t106*t109*t92-1.3589022108739904d-1*gammaaa*t103 1150 : *t104*t112*t30)+2.473556743557577d-2*t113)*t99 1151 t187 = -7.926929563431611d-2*t78*t79*t92 1152 t188 = 2.7468587781810044d+0*t101*t30*t60*t90 1153 t189 = -4.947113487115154d-2*rhoa*t113**2*t149 1154 t190 = -6.794511054369952d-2*t104*t112*t30*t94 1155 t191 = -9.233076093591093d-3*gammaaa*t104*t109*t112*t92 1156 t192 = 4.947113487115154d-2*rhoa*(2.3082690233977732d-3*t109 1157 1 *t92*t97-3.136711879187181d-4*gammaaa*t104*t146*t94*t95+2 1158 2 .717804421747981d-1*gammaaa*t112**2*t157*t30*t94+t191+t19 1159 3 0)*t99 1160 fnc(iq) = (4.947113487115154d-2*rhoa*log(1.35890221087399d-1 1161 1 *gammaaa*t30*(t43+1.0d+0)/(t43+1.8466152187182178d-2*t36/ 1162 2 t42**2.0d+0+1.0d+0)+1.0d+0)-2.4735567435575762d-2*rhoa*t4 1163 3 1-1.243628d-1*rhoa*t27*t28-2.0d+0*rhoa*t26)*wght+fnc(iq) 1164 Amat(iq,D1_RA) = (4.947113487115154d-2*rhoa*t107*t99-1.23677 1165 1 83717787881d-2*rhoa*t77*t89-1.0d+0*rhoa*t76+2.0d+0*rhoa*t 1166 2 60-6.21814d-2*t49*t50-1.2367783717787881d-2*t41-1.0d+0*t2 1167 3 6+2.473556743557577d-2*t108)*wght+Amat(iq,D1_RA) 1168 Cmat(iq,D1_GAA) = (4.947113487115154d-2*rhoa*t113*t99-1.2367 1169 1 783717787881d-2*rhoa*t111*t77)*wght+Cmat(iq,D1_GAA) 1170 Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t115*t99*wght+Cm 1171 1 at(iq,D1_GAB) 1172 Amat2(iq,D2_RA_RA) = ((4.947113487115154d-2*rhoa*(1.50989134 1173 1 54155444d-2*gammaaa*t121*t30*t94*t97+1.3589022108739904d- 1174 2 1*gammaaa*(t169+t166+t164+t162+t161+t160+t159)*t30*t97-1. 1175 3 3589022108739904d-1*gammaaa*t104*t30*t94*(4.1035893749293 1176 4 734d-3*t121*t36*t95-3.693230437436437d-2*t105*t165*t36*t9 1177 5 0-6.036186517816032d+1*t105*t163*t36*t90+t173+t172+t171+t 1178 6 170+t169+t166+t164+t162+t161+t160+t159)+t158+t156+t155+t1 1179 7 54+t153+t152)+t151)*t99+1.2367783717787881d-2*rhoa*t148*t 1180 8 89**2+t77*(-2.4735567435575762d-2*t89-1.2367783717787881d 1181 9 -2*rhoa*(5.435608843495963d-1*gammaaa*t147*t30*t35*t88**2 1182 : -5.435608843495963d-1*gammaaa*t30*t83*t84*t88+1.268308730 1183 ; 149058d+0*gammaaa*t35*t78*t79*t84*t88-2.7178044217479813d 1184 < -1*gammaaa*t30*t35*t84*(-1.1148367900331342d+2*t31*t76*t7 1185 = 8*t85*t86*t87-9.657898428505661d+2*t138*t31*t36*t87+1.194 1186 > 4679893212153d+1*t135*t31*t36*t87-5.745025124901132d-2*t1 1187 ? 37*t37*t85*t86+2.0107587937153953d+0*t136*t146*t37*t85+2. 1188 @ 897369528551698d+3*t138*t139*t36/t32**4.0d+0+t145+t144+t1 1189 1 43+t142+t141+t140)-1.268308730149058d+0*gammaaa*t39*t78*t 1190 2 79*t83-1.0569239417908823d-1*gammaaa*t137*t35*t39*t79+2.2 1191 3 195402777608514d+0*gammaaa*t109*t136*t35*t39+2.7178044217 1192 4 479813d-1*gammaaa*(t145+t144+t143+t142+t141+t140)*t30*t39 1193 5 ))-2.0d+0*t76-8.245189145191921d-3*t108*t174+t150-1.0d+0* 1194 6 rhoa*t135+2.0d+0*rhoa*t128+t116)*wght+Amat2(iq,D2_RA_RA) 1195 Amat2(iq,D2_RA_RB) = ((4.947113487115154d-2*rhoa*(-1.5098913 1196 1 45415545d-2*gammaaa*t121*t30*t94*t97+1.3589022108739904d- 1197 2 1*gammaaa*(t180+t179+t177+t176+t162+t160+t159)*t30*t97-1. 1198 3 3589022108739904d-1*gammaaa*t104*t30*t94*(-4.103589374929 1199 4 3745d-3*t121*t36*t95-3.693230437436437d-2*t105*t178*t36*t 1200 5 90-6.036186517816031d+1*t105*t163*t36*t90+t180+t179+t177+ 1201 6 t176+t173+t172+t171+t170+t162+t160+t159)+t158+t156+t155+t 1202 7 154+t153+t152)+t151)*t99+2.0d+0*rhoa*t175+8.2451891451919 1203 8 22d-3*t108*t174+t150+t116)*wght+Amat2(iq,D2_RA_RB) 1204 Cmat2(iq,D2_RA_GAA) = (1.2367783717787881d-2*rhoa*t111*t148* 1205 1 t89+t77*(-1.2367783717787881d-2*rhoa*(-2.7178044217479813 1206 2 d-1*t30*t35*t84*t88-7.386460874872879d-2*gammaaa*t109*t33 1207 3 *t84*t88+5.435608843495963d-1*gammaaa*t110*t147*t30*t35*t 1208 4 88-2.7178044217479813d-1*gammaaa*t30*t35*t84*(2.388935978 1209 5 6424305d+1*gammaaa*t109*t31*t76*t87-6.894030149881355d-1* 1210 6 gammaaa*t37*t78*t86+t182+t181)-1.7235075374703387d-1*gamm 1211 7 aaa*t33*t39*t78*t86-2.7178044217479813d-1*gammaaa*t110*t3 1212 8 0*t83*t84+6.34154365074529d-1*gammaaa*t110*t35*t78*t79*t8 1213 9 4+2.7178044217479813d-1*t30*t39*t83-6.34154365074529d-1*t 1214 : 35*t39*t78*t79+2.7178044217479813d-1*gammaaa*(t182+t181)* 1215 ; t30*t39)-1.2367783717787881d-2*t111)+t186+t183)*wght+Cmat 1216 < 2(iq,D2_RA_GAA) 1217 Cmat2(iq,D2_RA_GAB) = ((4.947113487115154d-2*rhoa*(-7.926929 1218 1 563431611d-2*t78*t79*t94*t97-1.0771922109189608d-2*gammaa 1219 2 a*t78*t86*t92*t97+1.3589022108739904d-1*gammaaa*(t188+t18 1220 3 7)*t30*t97+6.794511054369952d-2*t103*t30*t97-1.3589022108 1221 4 739904d-1*gammaaa*t104*t30*t94*(-4.308768843675843d-2*gam 1222 5 maaa*t78*t86*t95+1.4930849866515178d+0*gammaaa*t105*t109* 1223 6 t60*t90+t188+t187)+1.585385912686322d-1*gammaaa*t104*t114 1224 7 *t78*t79*t94+2.717804421747981d-1*gammaaa*t106*t114*t157* 1225 8 t30*t94-6.794511054369952d-2*t104*t106*t30*t94-9.23307609 1226 9 3591093d-3*gammaaa*t104*t106*t109*t92-1.3589022108739904d 1227 : -1*gammaaa*t103*t104*t114*t30)+2.473556743557577d-2*t115) 1228 ; *t99-4.947113487115154d-2*rhoa*t107*t115*t149)*wght+Cmat2 1229 < (iq,D2_RA_GAB) 1230 Cmat2(iq,D2_RA_GBB) = (t186+t183)*wght+Cmat2(iq,D2_RA_GBB) 1231 Cmat2(iq,D2_GAA_GAA) = (-1.2367783717787881d-2*rhoa*t77*(-4. 1232 1 014991205359595d-2*gammaaa*t146*t35*t37*t84-5.43560884349 1233 2 5963d-1*t110*t30*t35*t84-1.4772921749745757d-1*gammaaa*t1 1234 3 09*t110*t33*t84+1.4772921749745757d-1*t109*t33*t39+5.4356 1235 4 08843495963d-1*gammaaa*t110**2*t147*t30*t35)+t192+t189+1. 1236 5 2367783717787881d-2*rhoa*t111**2*t148)*wght+Cmat2(iq,D2_G 1237 6 AA_GAA) 1238 Cmat2(iq,D2_GAA_GAB) = (4.947113487115154d-2*rhoa*(4.6165380 1239 1 467955464d-3*t109*t92*t97-6.273423758374362d-4*gammaaa*t1 1240 2 04*t146*t94*t95+2.717804421747981d-1*gammaaa*t112*t114*t1 1241 3 57*t30*t94-3.397255527184976d-2*t104*t114*t30*t94-4.61653 1242 4 80467955464d-3*gammaaa*t104*t109*t114*t92+t191+t190)*t99- 1243 5 4.947113487115154d-2*rhoa*t113*t115*t149)*wght+Cmat2(iq,D 1244 6 2_GAA_GAB) 1245 Cmat2(iq,D2_GAA_GBB) = (t192+t189)*wght+Cmat2(iq,D2_GAA_GBB) 1246 Cmat2(iq,D2_GAB_GAB) = 4.947113487115154d-2*rhoa*(9.23307609 1247 1 3591093d-3*t109*t92*t97-1.2546847516748727d-3*gammaaa*t10 1248 2 4*t146*t94*t95+2.717804421747981d-1*gammaaa*t114**2*t157* 1249 3 t30*t94-1.3589022108739904d-1*t104*t114*t30*t94-1.8466152 1250 4 187182186d-2*gammaaa*t104*t109*t114*t92)*t99*wght-4.94711 1251 5 3487115154d-2*rhoa*t115**2*t149*wght+Cmat2(iq,D2_GAB_GAB) 1252 endif ! rhoa.gt.tol_rho 1253 else ! ipol.eq.1 1254 rhoa = rho(iq,R_A) 1255 rhob = rho(iq,R_B) 1256 gammaaa = rgamma(iq,G_AA) 1257 gammaab = rgamma(iq,G_AB) 1258 gammabb = rgamma(iq,G_BB) 1259 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 1260 t1 = rhoa**3.333333333333333d-1 1261 t2 = t1**5.0d-1 1262 t3 = 1/t2 1263 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 1264 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 1265 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 1266 t7 = 1/t6 1267 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 1268 t9 = log(t8) 1269 t10 = 1/t1 1270 t11 = 1.2746961887000874d-1*t10+1.0d+0 1271 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 1272 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 1273 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 1274 t15 = 1/t14 1275 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 1276 t17 = log(t16) 1277 t18 = 1.325688999052018d-1*t10+1.0d+0 1278 t19 = 1.3212998810398843d-2*t3+2.9729725188d-2 1279 t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1 1280 t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1 1281 t22 = 1/t21 1282 t23 = 1.269642451250142d+0*t2*t22+1.0d+0 1283 t24 = log(t23) 1284 t25 = 6.901399211255826d-2*t10+1.0d+0 1285 t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 1286 1 21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3 1287 2 .37738d-2*t24*t25)-6.21814d-2*t17*t18 1288 t27 = rhoa**1.1666666666666667d+0 1289 t28 = 1/t27**2.0d+0 1290 t29 = exp(-8.085523023512745d+1*t26) 1291 t30 = t29-1.0d+0 1292 t31 = 1/t30 1293 t32 = 2.7178044217479813d-1*gammaaa*t28*t31 1294 t33 = t32+1.0d+0 1295 t34 = (gammaaa*t28)**2.0d+0 1296 t35 = 1/t30**2.0d+0 1297 t36 = 7.38646087487288d-2*t34*t35+t32+1.0d+0 1298 t37 = 1/t36 1299 t38 = 2.7178044217479813d-1*gammaaa*t28*t33*t37+1.0d+0 1300 t39 = log(t38) 1301 t40 = rhob**3.333333333333333d-1 1302 t41 = t40**5.0d-1 1303 t42 = 1/t41 1304 t43 = 1.530901310039024d-2*t42+1.0465751434d-1 1305 t44 = 7.876233178997433d-1*t42*t43+1.9269083139d-1 1306 t45 = 7.876233178997433d-1*t42*t44+4.3896648423d-1 1307 t46 = 1/t45 1308 t47 = 1.269642451250142d+0*t41*t46+1.0d+0 1309 t48 = log(t47) 1310 t49 = 1/t40 1311 t50 = 1.2746961887000874d-1*t49+1.0d+0 1312 t51 = 2.4141993114533214d-2*t42+1.0186556948d-1 1313 t52 = 7.876233178997433d-1*t42*t51+2.2308199064d-1 1314 t53 = 7.876233178997433d-1*t42*t52+4.7231125998d-1 1315 t54 = 1/t53 1316 t55 = 1.269642451250142d+0*t41*t54+1.0d+0 1317 t56 = log(t55) 1318 t57 = 1.325688999052018d-1*t49+1.0d+0 1319 t58 = 1.3212998810398843d-2*t42+2.9729725188d-2 1320 t59 = 7.876233178997433d-1*t42*t58+1.2236585478d-1 1321 t60 = 7.876233178997433d-1*t42*t59+3.497952466d-1 1322 t61 = 1/t60 1323 t62 = 1.269642451250142d+0*t41*t61+1.0d+0 1324 t63 = log(t62) 1325 t64 = 6.901399211255826d-2*t49+1.0d+0 1326 t65 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 1327 1 21814d-2*t56*t57-3.10907d-2*t48*t50)-3.37738d-2*t63*t64)+ 1328 2 3.37738d-2*t63*t64)-6.21814d-2*t56*t57 1329 t66 = rhob+rhoa 1330 t67 = t66**3.333333333333333d-1 1331 t68 = 1/t67 1332 t69 = 1.325688999052018d-1*t68+1.0d+0 1333 t70 = t67**5.0d-1 1334 t71 = 1/t70 1335 t72 = 2.4141993114533214d-2*t71+1.0186556948d-1 1336 t73 = 7.876233178997433d-1*t71*t72+2.2308199064d-1 1337 t74 = 7.876233178997433d-1*t71*t73+4.7231125998d-1 1338 t75 = 1/t74 1339 t76 = 1.269642451250142d+0*t70*t75+1.0d+0 1340 t77 = log(t76) 1341 t78 = rhoa-rhob 1342 t79 = 1/t66 1343 t80 = 1.0d+0-t78*t79 1344 t81 = t80**1.3333333333333333d+0 1345 t82 = t78*t79+1.0d+0 1346 t83 = t82**1.3333333333333333d+0 1347 t84 = 1.923661050931536d+0*t83+1.923661050931536d+0*t81-3.84 1348 1 7322101863072d+0 1349 t85 = 6.901399211255826d-2*t68+1.0d+0 1350 t86 = 1.3212998810398843d-2*t71+2.9729725188d-2 1351 t87 = 7.876233178997433d-1*t71*t86+1.2236585478d-1 1352 t88 = 7.876233178997433d-1*t71*t87+3.497952466d-1 1353 t89 = 1/t88 1354 t90 = 1.269642451250142d+0*t70*t89+1.0d+0 1355 t91 = log(t90) 1356 t92 = t78**4 1357 t93 = 1/t66**4 1358 t94 = 1.2746961887000874d-1*t68+1.0d+0 1359 t95 = 1.530901310039024d-2*t71+1.0465751434d-1 1360 t96 = 7.876233178997433d-1*t71*t95+1.9269083139d-1 1361 t97 = 7.876233178997433d-1*t71*t96+4.3896648423d-1 1362 t98 = 1/t97 1363 t99 = 1.269642451250142d+0*t70*t98+1.0d+0 1364 t100 = log(t99) 1365 t101 = 1.709920934161365d+0*(6.21814d-2*t69*t77-3.10907d-2*t 1366 1 100*t94)-3.37738d-2*t85*t91 1367 t102 = t101*t92*t93+3.37738d-2*t85*t91 1368 t103 = 5.848223622634648d-1*t102*t84-6.21814d-2*t69*t77 1369 t104 = rhob**1.1666666666666667d+0 1370 t105 = 1/t104**2.0d+0 1371 t106 = exp(-8.085523023512745d+1*t65) 1372 t107 = t106-1.0d+0 1373 t108 = 1/t107 1374 t109 = 2.7178044217479813d-1*gammabb*t105*t108 1375 t110 = t109+1.0d+0 1376 t111 = (gammabb*t105)**2.0d+0 1377 t112 = 1/t107**2.0d+0 1378 t113 = 7.38646087487288d-2*t111*t112+t109+1.0d+0 1379 t114 = 1/t113 1380 t115 = 2.7178044217479813d-1*gammabb*t105*t110*t114+1.0d+0 1381 t116 = log(t115) 1382 t117 = t80**6.666666666666666d-1 1383 t118 = t82**6.666666666666666d-1 1384 t119 = 5.0d-1*t118+5.0d-1*t117 1385 t120 = t119**3.0d+0 1386 t121 = gammabb+2.0d+0*gammaab+gammaaa 1387 t122 = t66**1.1666666666666667d+0 1388 t123 = 1/t122**2.0d+0 1389 t124 = t119**2.0d+0 1390 t125 = 1/t124 1391 t126 = 1/t120 1392 t127 = exp(-4.042761511756372d+1*t103*t126) 1393 t128 = t127-1.0d+0 1394 t129 = 1/t128 1395 t130 = 1.7121095002288222d-1*t121*t123*t125*t129 1396 t131 = t130+1.0d+0 1397 t132 = 1/t119**4.0d+0 1398 t133 = (t121*t123)**2.0d+0 1399 t134 = 1/t128**2.0d+0 1400 t135 = 2.931318940773787d-2*t132*t133*t134+t130+1.0d+0 1401 t136 = 1/t135 1402 t137 = 1.7121095002288222d-1*t121*t123*t125*t131*t136+1.0d+0 1403 t138 = log(t137) 1404 t139 = 1/rhoa**1.3333333333333333d+0 1405 t140 = 1/t8 1406 t141 = 1/t6**2 1407 t142 = 1/rhoa**1.3333333333333336d+0 1408 t143 = 1/t2**3 1409 t144 = 1/rhoa**6.666666666666667d-1 1410 t145 = -1.3127055298329054d-1*t143*t144*t4-2.009622615316665 1411 1 8d-3*t142 1412 t146 = 7.876233178997433d-1*t145*t3-1.3127055298329054d-1*t1 1413 1 43*t144*t5 1414 t147 = 2.11607075208357d-1*t144*t3*t7-1.269642451250142d+0*t 1415 1 141*t146*t2 1416 t148 = 1/t16 1417 t149 = 1/t14**2 1418 t150 = -1.3127055298329054d-1*t12*t143*t144-3.16913278626356 1419 1 7d-3*t142 1420 t151 = 7.876233178997433d-1*t150*t3-1.3127055298329054d-1*t1 1421 1 3*t143*t144 1422 t152 = 2.11607075208357d-1*t144*t15*t3-1.269642451250142d+0* 1423 1 t149*t151*t2 1424 t153 = 1/t23 1425 t154 = 1/t21**2 1426 t155 = -1.3127055298329054d-1*t143*t144*t19-1.73447766040861 1427 1 62d-3*t142 1428 t156 = 7.876233178997433d-1*t155*t3-1.3127055298329054d-1*t1 1429 1 43*t144*t20 1430 t157 = 2.11607075208357d-1*t144*t22*t3-1.269642451250142d+0* 1431 1 t154*t156*t2 1432 t158 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1 1433 1 .3210398931339265d-3*t139*t9+6.21814d-2*t148*t152*t18-2.7 1434 2 47773264188438d-3*t139*t17-3.10907d-2*t11*t140*t147)-3.37 1435 3 738d-2*t153*t157*t25+7.769549222703733d-4*t139*t24)+3.377 1436 4 38d-2*t153*t157*t25-7.769549222703733d-4*t139*t24)-6.2181 1437 5 4d-2*t148*t152*t18+2.747773264188438d-3*t139*t17 1438 t159 = 1/t38 1439 t160 = rhoa**1.6666666666666674d-1 1440 t161 = 1/t27**3.0d+0 1441 t162 = -6.34154365074529d-1*gammaaa*t160*t161*t31 1442 t163 = 1/t30**2 1443 t164 = 2.1974870225448048d+1*gammaaa*t158*t163*t28*t29 1444 t165 = t164+t162 1445 t166 = 1/t36**2 1446 t167 = gammaaa**2 1447 t168 = 1/t27**5.0d+0 1448 t169 = 1/t30**3.0d+0 1449 t170 = -3.4470150749406775d-1*t160*t167*t168*t35+1.194467989 1450 1 3212153d+1*t158*t169*t29*t34+t164+t162 1451 t171 = -6.34154365074529d-1*gammaaa*t160*t161*t33*t37+2.7178 1452 1 044217479813d-1*gammaaa*t165*t28*t37-2.7178044217479813d- 1453 2 1*gammaaa*t166*t170*t28*t33 1454 t172 = 1/t66**1.3333333333333336d+0 1455 t173 = 1/t66**6.666666666666667d-1 1456 t174 = 1/t70**3 1457 t175 = -1.3127055298329054d-1*t173*t174*t72-3.16913278626356 1458 1 7d-3*t172 1459 t176 = 7.876233178997433d-1*t175*t71-1.3127055298329054d-1*t 1460 1 173*t174*t73 1461 t177 = 1/t74**2 1462 t178 = 2.11607075208357d-1*t173*t71*t75-1.269642451250142d+0 1463 1 *t176*t177*t70 1464 t179 = 1/t76 1465 t180 = -6.21814d-2*t178*t179*t69 1466 t181 = 1/t66**1.3333333333333333d+0 1467 t182 = 2.747773264188438d-3*t181*t77 1468 t183 = -1.3127055298329054d-1*t173*t174*t86-1.73447766040861 1469 1 62d-3*t172 1470 t184 = 7.876233178997433d-1*t183*t71-1.3127055298329054d-1*t 1471 1 173*t174*t87 1472 t185 = 1/t88**2 1473 t186 = 2.11607075208357d-1*t173*t71*t89-1.269642451250142d+0 1474 1 *t184*t185*t70 1475 t187 = 1/t90 1476 t188 = 3.37738d-2*t186*t187*t85 1477 t189 = -7.769549222703733d-4*t181*t91 1478 t190 = -1.3127055298329054d-1*t173*t174*t95-2.00962261531666 1479 1 58d-3*t172 1480 t191 = 7.876233178997433d-1*t190*t71-1.3127055298329054d-1*t 1481 1 173*t174*t96 1482 t192 = 1/t97**2 1483 t193 = 2.11607075208357d-1*t173*t71*t98-1.269642451250142d+0 1484 1 *t191*t192*t70 1485 t194 = 1/t99 1486 t195 = 1.709920934161365d+0*(-3.10907d-2*t193*t194*t94-2.747 1487 1 773264188438d-3*t181*t77+6.21814d-2*t178*t179*t69+1.32103 1488 2 98931339265d-3*t100*t181)+7.769549222703733d-4*t181*t91-3 1489 3 .37738d-2*t186*t187*t85 1490 t196 = t195*t92*t93 1491 t197 = 1/t66**5 1492 t198 = -4*t101*t197*t92 1493 t199 = t78**3 1494 t200 = 4*t101*t199*t93+t198+t196+t189+t188 1495 t201 = 1/t66**2 1496 t202 = t201*t78 1497 t203 = -t79 1498 t204 = t203+t202 1499 t205 = t80**3.333333333333333d-1 1500 t206 = -t201*t78 1501 t207 = t79+t206 1502 t208 = t82**3.333333333333333d-1 1503 t209 = 2.564881401242048d+0*t207*t208+2.564881401242048d+0*t 1504 1 204*t205 1505 t210 = 5.848223622634648d-1*t200*t84+5.848223622634648d-1*t1 1506 1 02*t209+t182+t180 1507 t211 = 1.0d+0*t103 1508 t212 = 1/t137 1509 t213 = 1/t205 1510 t214 = 1/t208 1511 t215 = 3.333333333333333d-1*t207*t214+3.333333333333333d-1*t 1512 1 204*t213 1513 t216 = t66**1.6666666666666674d-1 1514 t217 = 1/t122**3.0d+0 1515 t218 = -3.994922167200585d-1*t121*t125*t131*t136*t216*t217 1516 t219 = -3.4242190004576445d-1*t121*t123*t126*t129*t215 1517 t220 = -3.994922167200585d-1*t121*t125*t129*t216*t217 1518 t221 = 1/t128**2 1519 t222 = 1.2128284535269115d+2*t103*t132*t215-4.04276151175637 1520 1 2d+1*t126*t210 1521 t223 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222 1522 t224 = t223+t220+t219 1523 t225 = 1/t135**2 1524 t226 = t121**2 1525 t227 = 1/t122**5.0d+0 1526 t228 = -1.3679488390277675d-1*t132*t134*t216*t226*t227 1527 t229 = 1/t119**5.0d+0 1528 t230 = 1/t128**3.0d+0 1529 t231 = -5.862637881547574d-2*t127*t132*t133*t222*t230-1.1725 1530 1 27576309515d-1*t133*t134*t215*t229+t228+t223+t220+t219 1531 t232 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t231+ 1532 1 1.7121095002288222d-1*t121*t123*t125*t136*t224+t218-3.424 1533 2 2190004576445d-1*t121*t123*t126*t131*t136*t215 1534 t233 = 2.473556743557577d-2*t120*t138 1535 t234 = 1/rhob**1.3333333333333333d+0 1536 t235 = 1/t47 1537 t236 = 1/t45**2 1538 t237 = 1/rhob**1.3333333333333336d+0 1539 t238 = 1/t41**3 1540 t239 = 1/rhob**6.666666666666667d-1 1541 t240 = -1.3127055298329054d-1*t238*t239*t43-2.00962261531666 1542 1 58d-3*t237 1543 t241 = 7.876233178997433d-1*t240*t42-1.3127055298329054d-1*t 1544 1 238*t239*t44 1545 t242 = 2.11607075208357d-1*t239*t42*t46-1.269642451250142d+0 1546 1 *t236*t241*t41 1547 t243 = 1/t55 1548 t244 = 1/t53**2 1549 t245 = -1.3127055298329054d-1*t238*t239*t51-3.16913278626356 1550 1 7d-3*t237 1551 t246 = 7.876233178997433d-1*t245*t42-1.3127055298329054d-1*t 1552 1 238*t239*t52 1553 t247 = 2.11607075208357d-1*t239*t42*t54-1.269642451250142d+0 1554 1 *t244*t246*t41 1555 t248 = 1/t62 1556 t249 = 1/t60**2 1557 t250 = -1.3127055298329054d-1*t238*t239*t58-1.73447766040861 1558 1 62d-3*t237 1559 t251 = 7.876233178997433d-1*t250*t42-1.3127055298329054d-1*t 1560 1 238*t239*t59 1561 t252 = 2.11607075208357d-1*t239*t42*t61-1.269642451250142d+0 1562 1 *t249*t251*t41 1563 t253 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t252*t 1564 1 64+7.769549222703733d-4*t234*t63+1.709920934161365d+0*(6. 1565 2 21814d-2*t243*t247*t57-2.747773264188438d-3*t234*t56-3.10 1566 3 907d-2*t235*t242*t50+1.3210398931339265d-3*t234*t48))+3.3 1567 4 7738d-2*t248*t252*t64-7.769549222703733d-4*t234*t63)-6.21 1568 5 814d-2*t243*t247*t57+2.747773264188438d-3*t234*t56 1569 t254 = 1/t115 1570 t255 = rhob**1.6666666666666674d-1 1571 t256 = 1/t104**3.0d+0 1572 t257 = -6.34154365074529d-1*gammabb*t108*t255*t256 1573 t258 = 1/t107**2 1574 t259 = 2.1974870225448048d+1*gammabb*t105*t106*t253*t258 1575 t260 = t259+t257 1576 t261 = 1/t113**2 1577 t262 = gammabb**2 1578 t263 = 1/t104**5.0d+0 1579 t264 = 1/t107**3.0d+0 1580 t265 = 1.1944679893212153d+1*t106*t111*t253*t264-3.447015074 1581 1 9406775d-1*t112*t255*t262*t263+t259+t257 1582 t266 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t265+2. 1583 1 7178044217479813d-1*gammabb*t105*t114*t260-6.341543650745 1584 2 29d-1*gammabb*t110*t114*t255*t256 1585 t267 = -4*t101*t199*t93+t198+t196+t189+t188 1586 t268 = t79+t202 1587 t269 = t206+t203 1588 t270 = 2.564881401242048d+0*t208*t269+2.564881401242048d+0*t 1589 1 205*t268 1590 t271 = 5.848223622634648d-1*t267*t84+5.848223622634648d-1*t1 1591 1 02*t270+t182+t180 1592 t272 = 3.333333333333333d-1*t214*t269+3.333333333333333d-1*t 1593 1 213*t268 1594 t273 = -3.4242190004576445d-1*t121*t123*t126*t129*t272 1595 t274 = 1.2128284535269115d+2*t103*t132*t272-4.04276151175637 1596 1 2d+1*t126*t271 1597 t275 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274 1598 t276 = t275+t273+t220 1599 t277 = t275-5.862637881547574d-2*t127*t132*t133*t230*t274+t2 1600 1 73-1.172527576309515d-1*t133*t134*t229*t272+t228+t220 1601 t278 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t277+ 1602 1 1.7121095002288222d-1*t121*t123*t125*t136*t276-3.42421900 1603 2 04576445d-1*t121*t123*t126*t131*t136*t272+t218 1604 t279 = 1/t27**4.0d+0 1605 t280 = 1.477292174974576d-1*gammaaa*t279*t35+2.7178044217479 1606 1 813d-1*t28*t31 1607 t281 = 2.7178044217479813d-1*t28*t33*t37+7.386460874872879d- 1608 1 2*gammaaa*t279*t31*t37-2.7178044217479813d-1*gammaaa*t166 1609 2 *t28*t280*t33 1610 t282 = 1/t122**4.0d+0 1611 t283 = 5.862637881547574d-2*t121*t132*t134*t282+1.7121095002 1612 1 288222d-1*t123*t125*t129 1613 t284 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t283+ 1614 1 2.931318940773787d-2*t121*t129*t132*t136*t282+1.712109500 1615 2 2288222d-1*t123*t125*t131*t136 1616 t285 = 2.473556743557577d-2*t120*t212*t284*t66 1617 t286 = 1.172527576309515d-1*t121*t132*t134*t282+3.4242190004 1618 1 576445d-1*t123*t125*t129 1619 t287 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t286+ 1620 1 5.862637881547574d-2*t121*t129*t132*t136*t282+3.424219000 1621 2 4576445d-1*t123*t125*t131*t136 1622 t288 = 1/t104**4.0d+0 1623 t289 = 1.477292174974576d-1*gammabb*t112*t288+2.717804421747 1624 1 9813d-1*t105*t108 1625 t290 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t289+7. 1626 1 386460874872879d-2*gammabb*t108*t114*t288+2.7178044217479 1627 2 813d-1*t105*t110*t114 1628 t291 = 1/rhoa**2.333333333333333d+0 1629 t292 = 1/rhoa**2.3333333333333334d+0 1630 t293 = 1/rhoa**1.6666666666666669d+0 1631 t294 = 1/t2**5 1632 t295 = 1/t16**2 1633 t296 = t152**2 1634 t297 = -1.269642451250142d+0*t149*t2*(7.876233178997433d-1*( 1635 1 6.563527649164527d-2*t12*t142*t294+8.751370198886037d-2*t 1636 2 12*t143*t293+4.753699179395351d-3*t292)*t3+6.563527649164 1637 3 527d-2*t13*t142*t294+8.751370198886037d-2*t13*t143*t293-2 1638 4 .625411059665811d-1*t143*t144*t150)-1.4107138347223802d-1 1639 5 *t15*t293*t3-4.23214150416714d-1*t144*t149*t151*t3+2.5392 1640 6 84902500284d+0*t151**2*t2/t14**3-3.52678458680595d-2*t142 1641 7 *t143*t15 1642 t298 = 1/t23**2 1643 t299 = t157**2 1644 t300 = -1.269642451250142d+0*t154*t2*(7.876233178997433d-1*( 1645 1 6.563527649164527d-2*t142*t19*t294+8.751370198886037d-2*t 1646 2 143*t19*t293+2.601716490612924d-3*t292)*t3+6.563527649164 1647 3 527d-2*t142*t20*t294+8.751370198886037d-2*t143*t20*t293-2 1648 4 .625411059665811d-1*t143*t144*t155)-1.4107138347223802d-1 1649 5 *t22*t293*t3-4.23214150416714d-1*t144*t154*t156*t3-3.5267 1650 6 8458680595d-2*t142*t143*t22+2.539284902500284d+0*t156**2* 1651 7 t2/t21**3 1652 t301 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 1653 1 1.7613865241785687d-3*t291*t9+3.10907d-2*t11*t147**2/t8** 1654 2 2-3.10907d-2*t11*t140*(-1.4107138347223802d-1*t293*t3*t7- 1655 3 3.52678458680595d-2*t142*t143*t7+2.539284902500284d+0*t14 1656 4 6**2*t2/t6**3-1.269642451250142d+0*t141*t2*(6.56352764916 1657 5 4527d-2*t142*t294*t5+8.751370198886037d-2*t143*t293*t5+7. 1658 6 876233178997433d-1*t3*(6.563527649164527d-2*t142*t294*t4+ 1659 7 8.751370198886037d-2*t143*t293*t4+3.0144339229749983d-3*t 1660 8 292)-2.625411059665811d-1*t143*t144*t145)-4.2321415041671 1661 9 4d-1*t141*t144*t146*t3)+6.21814d-2*t148*t18*t297-6.21814d 1662 : -2*t18*t295*t296+3.663697685584584d-3*t17*t291-5.49554652 1663 ; 8376876d-3*t139*t148*t152+2.642079786267853d-3*t139*t140* 1664 < t147)-3.37738d-2*t153*t25*t300+3.37738d-2*t25*t298*t299-1 1665 = .0359398963604977d-3*t24*t291+1.5539098445407465d-3*t139* 1666 > t153*t157)+3.37738d-2*t153*t25*t300-3.37738d-2*t25*t298*t 1667 ? 299+1.0359398963604977d-3*t24*t291-1.5539098445407465d-3* 1668 @ t139*t153*t157)-6.21814d-2*t148*t18*t297+6.21814d-2*t18*t 1669 1 295*t296-3.663697685584584d-3*t17*t291+5.495546528376876d 1670 2 -3*t139*t148*t152 1671 t302 = rhoa**3.333333333333335d-1 1672 t303 = 1/rhoa**8.333333333333333d-1 1673 t304 = t158**2 1674 t305 = exp(-1.617104604702549d+2*t26) 1675 t306 = 3.553566382931298d+3*gammaaa*t28*t304*t305/t30**3 1676 t307 = 2.2195402777608514d+0*gammaaa*t279*t302*t31 1677 t308 = -1.0569239417908823d-1*gammaaa*t161*t303*t31 1678 t309 = -1.0254939438542422d+2*gammaaa*t158*t160*t161*t163*t2 1679 1 9 1680 t310 = -1.776783191465649d+3*gammaaa*t163*t28*t29*t304 1681 t311 = 2.1974870225448048d+1*gammaaa*t163*t28*t29*t301 1682 t312 = 1/t27**6.0d+0 1683 t313 = 1/t36**3 1684 t314 = 1/t38**2 1685 t315 = t178**2 1686 t316 = 1/t76**2 1687 t317 = 6.21814d-2*t315*t316*t69 1688 t318 = 1/t66**2.3333333333333334d+0 1689 t319 = 1/t70**5 1690 t320 = 1/t66**1.6666666666666669d+0 1691 t321 = -1.4107138347223802d-1*t320*t71*t75-3.52678458680595d 1692 1 -2*t172*t174*t75+2.539284902500284d+0*t176**2*t70/t74**3- 1693 2 1.269642451250142d+0*t177*t70*(8.751370198886037d-2*t174* 1694 3 t320*t73+6.563527649164527d-2*t172*t319*t73+7.87623317899 1695 4 7433d-1*t71*(8.751370198886037d-2*t174*t320*t72+6.5635276 1696 5 49164527d-2*t172*t319*t72+4.753699179395351d-3*t318)-2.62 1697 6 5411059665811d-1*t173*t174*t175)-4.23214150416714d-1*t173 1698 7 *t176*t177*t71 1699 t322 = -6.21814d-2*t179*t321*t69 1700 t323 = 5.495546528376876d-3*t178*t179*t181 1701 t324 = 1/t66**2.333333333333333d+0 1702 t325 = -3.663697685584584d-3*t324*t77 1703 t326 = t186**2 1704 t327 = 1/t90**2 1705 t328 = -3.37738d-2*t326*t327*t85 1706 t329 = -1.4107138347223802d-1*t320*t71*t89-3.52678458680595d 1707 1 -2*t172*t174*t89+2.539284902500284d+0*t184**2*t70/t88**3- 1708 2 1.269642451250142d+0*t185*t70*(8.751370198886037d-2*t174* 1709 3 t320*t87+6.563527649164527d-2*t172*t319*t87+7.87623317899 1710 4 7433d-1*t71*(8.751370198886037d-2*t174*t320*t86+6.5635276 1711 5 49164527d-2*t172*t319*t86+2.601716490612924d-3*t318)-2.62 1712 6 5411059665811d-1*t173*t174*t183)-4.23214150416714d-1*t173 1713 7 *t184*t185*t71 1714 t330 = 3.37738d-2*t187*t329*t85 1715 t331 = -1.5539098445407465d-3*t181*t186*t187 1716 t332 = 1.0359398963604977d-3*t324*t91 1717 t333 = t92*t93*(1.709920934161365d+0*(3.10907d-2*t193**2*t94 1718 1 /t99**2-3.10907d-2*t194*t94*(-1.4107138347223802d-1*t320* 1719 2 t71*t98-3.52678458680595d-2*t172*t174*t98+2.5392849025002 1720 3 84d+0*t191**2*t70/t97**3-1.269642451250142d+0*t192*t70*(8 1721 4 .751370198886037d-2*t174*t320*t96+6.563527649164527d-2*t1 1722 5 72*t319*t96+7.876233178997433d-1*t71*(8.751370198886037d- 1723 6 2*t174*t320*t95+6.563527649164527d-2*t172*t319*t95+3.0144 1724 7 339229749983d-3*t318)-2.625411059665811d-1*t173*t174*t190 1725 8 )-4.23214150416714d-1*t173*t191*t192*t71)+3.6636976855845 1726 9 84d-3*t324*t77+6.21814d-2*t179*t321*t69-6.21814d-2*t315*t 1727 : 316*t69-1.7613865241785687d-3*t100*t324+2.642079786267853 1728 ; d-3*t181*t193*t194-5.495546528376876d-3*t178*t179*t181)-1 1729 < .0359398963604977d-3*t324*t91-3.37738d-2*t187*t329*t85+3. 1730 = 37738d-2*t326*t327*t85+1.5539098445407465d-3*t181*t186*t1 1731 > 87) 1732 t334 = -8*t195*t197*t92 1733 t335 = 20*t101*t92/t66**6 1734 t336 = t78**2 1735 t337 = 12*t101*t336*t93 1736 t338 = t204**2 1737 t339 = 1/t117 1738 t340 = 1/t66**3 1739 t341 = -2*t340*t78 1740 t342 = 2*t201 1741 t343 = t342+t341 1742 t344 = t207**2 1743 t345 = 1/t118 1744 t346 = 2*t340*t78 1745 t347 = -2*t201 1746 t348 = t347+t346 1747 t349 = 5.848223622634648d-1*t84*(8*t195*t199*t93+t337+t335+t 1748 1 334+t333+t332+t331+t330+t328-32*t101*t197*t199)+5.8482236 1749 2 22634648d-1*t102*(2.564881401242048d+0*t208*t348+8.549604 1750 3 670806825d-1*t344*t345+2.564881401242048d+0*t205*t343+8.5 1751 4 49604670806825d-1*t338*t339)+t325+t323+t322+t317+1.169644 1752 5 7245269297d+0*t200*t209 1753 t350 = t215**2 1754 t351 = 1/t81 1755 t352 = 1/t83 1756 t353 = -1.111111111111111d-1*t344*t352-1.111111111111111d-1* 1757 1 t338*t351+3.333333333333333d-1*t214*t348+3.33333333333333 1758 2 3d-1*t213*t343 1759 t354 = t66**3.333333333333335d-1 1760 t355 = 1.398222758520205d+0*t121*t125*t131*t136*t282*t354 1761 t356 = 1/t66**8.333333333333333d-1 1762 t357 = -6.658203612000978d-2*t121*t125*t131*t136*t217*t356 1763 t358 = 1.0272657001372934d+0*t121*t123*t129*t132*t350 1764 t359 = -3.4242190004576445d-1*t121*t123*t126*t129*t353 1765 t360 = 1.5979688668802342d+0*t121*t126*t129*t215*t216*t217 1766 t361 = 1.398222758520205d+0*t121*t125*t129*t282*t354 1767 t362 = -6.658203612000978d-2*t121*t125*t129*t217*t356 1768 t363 = 1.2128284535269115d+2*t103*t132*t353-4.85131381410764 1769 1 6d+2*t103*t229*t350-4.042761511756372d+1*t126*t349+2.4256 1770 2 56907053823d+2*t132*t210*t215 1771 t364 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t363 1772 t365 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t2 1773 1 22 1774 t366 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t22 1775 1 2 1776 t367 = exp(-8.085523023512744d+1*t103*t126) 1777 t368 = 1/t128**3 1778 t369 = t222**2 1779 t370 = 3.4242190004576445d-1*t121*t123*t125*t367*t368*t369 1780 t371 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t369 1781 t372 = 1/t122**6.0d+0 1782 t373 = 7.979701560995311d-1*t132*t134*t226*t354*t372 1783 t374 = -2.2799147317129467d-2*t132*t134*t226*t227*t356 1784 t375 = 1/t119**6.0d+0 1785 t376 = 1/t128**4.0d+0 1786 t377 = 1/t135**3 1787 t378 = 1/t137**2 1788 t379 = 5.848223622634648d-1*t84*(-12*t101*t336*t93+t335+t334 1789 1 +t333+t332+t331+t330+t328)+5.848223622634648d-1*t102*(5.1 1790 2 29762802484096d+0*t208*t340*t78-5.129762802484096d+0*t205 1791 3 *t340*t78+8.549604670806825d-1*t207*t269*t345+8.549604670 1792 4 806825d-1*t204*t268*t339)+t325+t323+t322+t317+5.848223622 1793 5 634648d-1*t200*t270+5.848223622634648d-1*t209*t267 1794 t380 = 6.666666666666666d-1*t214*t340*t78-6.666666666666666d 1795 1 -1*t213*t340*t78-1.111111111111111d-1*t207*t269*t352-1.11 1796 2 1111111111111d-1*t204*t268*t351 1797 t381 = 1.0272657001372934d+0*t121*t123*t129*t132*t215*t272 1798 t382 = -3.4242190004576445d-1*t121*t123*t126*t129*t380 1799 t383 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t272 1800 t384 = 7.98984433440117d-1*t121*t126*t129*t215*t216*t217 1801 t385 = 1.2128284535269115d+2*t103*t132*t380-4.04276151175637 1802 1 2d+1*t126*t379-4.851313814107646d+2*t103*t215*t229*t272+1 1803 2 .2128284535269115d+2*t132*t210*t272+1.2128284535269115d+2 1804 3 *t132*t215*t271 1805 t386 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t385 1806 t387 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t 1807 1 274 1808 t388 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2 1809 1 74 1810 t389 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t222*t 1811 1 272 1812 t390 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2 1813 1 22 1814 t391 = 3.4242190004576445d-1*t121*t123*t125*t222*t274*t367*t 1815 1 368 1816 t392 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222* 1817 1 t274 1818 t393 = 1/rhob**2.333333333333333d+0 1819 t394 = 1/rhob**2.3333333333333334d+0 1820 t395 = 1/rhob**1.6666666666666669d+0 1821 t396 = 1/t41**5 1822 t397 = 1/t55**2 1823 t398 = t247**2 1824 t399 = -1.4107138347223802d-1*t395*t42*t54-3.52678458680595d 1825 1 -2*t237*t238*t54+2.539284902500284d+0*t246**2*t41/t53**3- 1826 2 1.269642451250142d+0*t244*t41*(6.563527649164527d-2*t237* 1827 3 t396*t52+8.751370198886037d-2*t238*t395*t52+7.87623317899 1828 4 7433d-1*t42*(6.563527649164527d-2*t237*t396*t51+8.7513701 1829 5 98886037d-2*t238*t395*t51+4.753699179395351d-3*t394)-2.62 1830 6 5411059665811d-1*t238*t239*t245)-4.23214150416714d-1*t239 1831 7 *t244*t246*t42 1832 t400 = 1/t62**2 1833 t401 = t252**2 1834 t402 = -1.4107138347223802d-1*t395*t42*t61-3.52678458680595d 1835 1 -2*t237*t238*t61+2.539284902500284d+0*t251**2*t41/t60**3- 1836 2 1.269642451250142d+0*t249*t41*(6.563527649164527d-2*t237* 1837 3 t396*t59+8.751370198886037d-2*t238*t395*t59+7.87623317899 1838 4 7433d-1*t42*(6.563527649164527d-2*t237*t396*t58+8.7513701 1839 5 98886037d-2*t238*t395*t58+2.601716490612924d-3*t394)-2.62 1840 6 5411059665811d-1*t238*t239*t250)-4.23214150416714d-1*t239 1841 7 *t249*t251*t42 1842 t403 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t402*t 1843 1 64+3.37738d-2*t400*t401*t64-1.0359398963604977d-3*t393*t6 1844 2 3+1.709920934161365d+0*(6.21814d-2*t243*t399*t57-6.21814d 1845 3 -2*t397*t398*t57+3.663697685584584d-3*t393*t56+3.10907d-2 1846 4 *t242**2*t50/t47**2-3.10907d-2*t235*(-1.4107138347223802d 1847 5 -1*t395*t42*t46-3.52678458680595d-2*t237*t238*t46+2.53928 1848 6 4902500284d+0*t241**2*t41/t45**3-1.269642451250142d+0*t23 1849 7 6*t41*(6.563527649164527d-2*t237*t396*t44+8.7513701988860 1850 8 37d-2*t238*t395*t44+7.876233178997433d-1*t42*(6.563527649 1851 9 164527d-2*t237*t396*t43+8.751370198886037d-2*t238*t395*t4 1852 : 3+3.0144339229749983d-3*t394)-2.625411059665811d-1*t238*t 1853 ; 239*t240)-4.23214150416714d-1*t236*t239*t241*t42)*t50-1.7 1854 < 613865241785687d-3*t393*t48-5.495546528376876d-3*t234*t24 1855 = 3*t247+2.642079786267853d-3*t234*t235*t242)+1.55390984454 1856 > 07465d-3*t234*t248*t252)+3.37738d-2*t248*t402*t64-3.37738 1857 ? d-2*t400*t401*t64+1.0359398963604977d-3*t393*t63-1.553909 1858 @ 8445407465d-3*t234*t248*t252)-6.21814d-2*t243*t399*t57+6. 1859 1 21814d-2*t397*t398*t57-3.663697685584584d-3*t393*t56+5.49 1860 2 5546528376876d-3*t234*t243*t247 1861 t404 = rhob**3.333333333333335d-1 1862 t405 = 1/rhob**8.333333333333333d-1 1863 t406 = t253**2 1864 t407 = exp(-1.617104604702549d+2*t65) 1865 t408 = 3.553566382931298d+3*gammabb*t105*t406*t407/t107**3 1866 t409 = 2.2195402777608514d+0*gammabb*t108*t288*t404 1867 t410 = -1.0569239417908823d-1*gammabb*t108*t256*t405 1868 t411 = -1.0254939438542422d+2*gammabb*t106*t253*t255*t256*t2 1869 1 58 1870 t412 = -1.776783191465649d+3*gammabb*t105*t106*t258*t406 1871 t413 = 2.1974870225448048d+1*gammabb*t105*t106*t258*t403 1872 t414 = 1/t104**6.0d+0 1873 t415 = 1/t113**3 1874 t416 = 1/t115**2 1875 t417 = t268**2 1876 t418 = t347+t341 1877 t419 = t269**2 1878 t420 = t346+t342 1879 t421 = 5.848223622634648d-1*t84*(-8*t195*t199*t93+t337+t335+ 1880 1 t334+t333+t332+t331+t330+t328+32*t101*t197*t199)+5.848223 1881 2 622634648d-1*t102*(2.564881401242048d+0*t208*t420+8.54960 1882 3 4670806825d-1*t345*t419+2.564881401242048d+0*t205*t418+8. 1883 4 549604670806825d-1*t339*t417)+t325+t323+t322+t317+1.16964 1884 5 47245269297d+0*t267*t270 1885 t422 = t272**2 1886 t423 = 3.333333333333333d-1*t214*t420-1.111111111111111d-1*t 1887 1 352*t419+3.333333333333333d-1*t213*t418-1.111111111111111 1888 2 d-1*t351*t417 1889 t424 = 1.0272657001372934d+0*t121*t123*t129*t132*t422 1890 t425 = -3.4242190004576445d-1*t121*t123*t126*t129*t423 1891 t426 = 1.5979688668802342d+0*t121*t126*t129*t216*t217*t272 1892 t427 = 1.2128284535269115d+2*t103*t132*t423-4.85131381410764 1893 1 6d+2*t103*t229*t422-4.042761511756372d+1*t126*t421+2.4256 1894 2 56907053823d+2*t132*t271*t272 1895 t428 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t427 1896 t429 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t272*t2 1897 1 74 1898 t430 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t27 1899 1 4 1900 t431 = t274**2 1901 t432 = 3.4242190004576445d-1*t121*t123*t125*t367*t368*t431 1902 t433 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t431 1903 t434 = -6.34154365074529d-1*t160*t161*t31 1904 t435 = 2.1974870225448048d+1*t158*t163*t28*t29 1905 t436 = -2.473556743557577d-2*t120*t232*t284*t378*t66 1906 t437 = 2.473556743557577d-2*t120*t284 1907 t438 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2 1908 1 83 1909 t439 = -3.994922167200585d-1*t125*t131*t136*t216*t217 1910 t440 = -6.839744195138837d-2*t121*t129*t132*t136*t216*t227 1911 t441 = -3.4242190004576445d-1*t123*t126*t129*t215 1912 t442 = -3.994922167200585d-1*t125*t129*t216*t217 1913 t443 = -1.7121095002288222d-1*t123*t125*t127*t221*t222 1914 t444 = -2.735897678055535d-1*t121*t132*t134*t216*t227 1915 t445 = t212*(2.473556743557577d-2*t120*(-1.7121095002288222d 1916 1 -1*t121*t123*t125*t131*t225*(t444+t443+t442+t441-1.172527 1917 2 576309515d-1*t121*t127*t132*t222*t230*t282-2.345055152619 1918 3 03d-1*t121*t134*t215*t229*t282)+1.7121095002288222d-1*t12 1919 4 1*t123*t125*t136*(t443+t442+t441)+t440+t439+t438+3.424219 1920 5 0004576445d-1*t121*t123*t125*t131*t231*t283*t377-1.712109 1921 6 5002288222d-1*t121*t123*t125*t224*t225*t283+3.42421900045 1922 7 76445d-1*t121*t123*t126*t131*t215*t225*t283-2.93131894077 1923 8 3787d-2*t121*t129*t132*t225*t231*t282-5.862637881547574d- 1924 9 2*t121*t129*t136*t215*t229*t282-1.7121095002288222d-1*t12 1925 : 3*t125*t131*t225*t231+1.7121095002288222d-1*t123*t125*t13 1926 ; 6*t224-3.4242190004576445d-1*t123*t126*t131*t136*t215)*t6 1927 < 6+7.420670230672731d-2*t124*t215*t284*t66+t437) 1928 t446 = 2.473556743557577d-2*t120*t287 1929 t447 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2 1930 1 86 1931 t448 = -7.98984433440117d-1*t125*t131*t136*t216*t217 1932 t449 = -1.3679488390277675d-1*t121*t129*t132*t136*t216*t227 1933 t450 = -6.848438000915289d-1*t123*t126*t129*t215 1934 t451 = -7.98984433440117d-1*t125*t129*t216*t217 1935 t452 = -3.4242190004576445d-1*t123*t125*t127*t221*t222 1936 t453 = -5.47179535611107d-1*t121*t132*t134*t216*t227 1937 t454 = -2.473556743557577d-2*t120*t278*t284*t378*t66 1938 t455 = -3.4242190004576445d-1*t123*t126*t129*t272 1939 t456 = -1.7121095002288222d-1*t123*t125*t127*t221*t274 1940 t457 = t212*(2.473556743557577d-2*t120*(-1.7121095002288222d 1941 1 -1*t121*t123*t125*t131*t225*(t456+t455+t444+t442-1.172527 1942 2 576309515d-1*t121*t127*t132*t230*t274*t282-2.345055152619 1943 3 03d-1*t121*t134*t229*t272*t282)+1.7121095002288222d-1*t12 1944 4 1*t123*t125*t136*(t456+t455+t442)+t440+t439+t438+3.424219 1945 5 0004576445d-1*t121*t123*t125*t131*t277*t283*t377-1.712109 1946 6 5002288222d-1*t121*t123*t125*t225*t276*t283+3.42421900045 1947 7 76445d-1*t121*t123*t126*t131*t225*t272*t283-2.93131894077 1948 8 3787d-2*t121*t129*t132*t225*t277*t282-5.862637881547574d- 1949 9 2*t121*t129*t136*t229*t272*t282-1.7121095002288222d-1*t12 1950 : 3*t125*t131*t225*t277+1.7121095002288222d-1*t123*t125*t13 1951 ; 6*t276-3.4242190004576445d-1*t123*t126*t131*t136*t272)*t6 1952 < 6+7.420670230672731d-2*t124*t272*t284*t66+t437) 1953 t458 = -6.848438000915289d-1*t123*t126*t129*t272 1954 t459 = -3.4242190004576445d-1*t123*t125*t127*t221*t274 1955 t460 = -6.34154365074529d-1*t108*t255*t256 1956 t461 = 2.1974870225448048d+1*t105*t106*t253*t258 1957 t462 = -2.473556743557577d-2*t120*t284**2*t378*t66 1958 t463 = -3.4242190004576445d-1*t123*t125*t131*t225*t283 1959 t464 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t283 1960 t465 = 2.473556743557577d-2*t120*t212*(t464+t463+3.424219000 1961 1 4576445d-1*t121*t123*t125*t131*t283**2*t377-1.00374780133 1962 2 9898d-2*t121*t131*t134*t225*t372*t375+5.862637881547574d- 1963 3 2*t129*t132*t136*t282)*t66 1964 t466 = t464+t463+3.4242190004576445d-1*t121*t123*t125*t131*t 1965 1 283*t286*t377-2.007495602679796d-2*t121*t131*t134*t225*t3 1966 2 72*t375-2.931318940773787d-2*t121*t129*t132*t225*t282*t28 1967 3 6-1.7121095002288222d-1*t123*t125*t131*t225*t286+1.172527 1968 4 576309515d-1*t129*t132*t136*t282 1969 fnc(iq) = (2.473556743557577d-2*t120*t138*t66+1.0d+0*t103*t6 1970 1 6-1.0d+0*rhob*t65-1.2367783717787881d-2*rhoa*t39-1.0d+0*r 1971 2 hoa*t26-1.2367783717787881d-2*rhob*t116)*wght+fnc(iq) 1972 Amat(iq,D1_RA) = (2.473556743557577d-2*t120*t212*t232*t66+7. 1973 1 420670230672731d-2*t124*t138*t215*t66+1.0d+0*t210*t66-1.2 1974 2 367783717787881d-2*t39-1.0d+0*t26+t233+t211-1.23677837177 1975 3 87881d-2*rhoa*t159*t171-1.0d+0*rhoa*t158)*wght+Amat(iq,D1 1976 4 _RA) 1977 Amat(iq,D1_RB) = (2.473556743557577d-2*t120*t212*t278*t66+7. 1978 1 420670230672731d-2*t124*t138*t272*t66+1.0d+0*t271*t66-1.0 1979 2 d+0*t65-1.2367783717787881d-2*rhob*t254*t266-1.0d+0*rhob* 1980 3 t253+t233+t211-1.2367783717787881d-2*t116)*wght+Amat(iq,D 1981 4 1_RB) 1982 Cmat(iq,D1_GAA) = (t285-1.2367783717787881d-2*rhoa*t159*t281 1983 1 )*wght+Cmat(iq,D1_GAA) 1984 Cmat(iq,D1_GAB) = 2.473556743557577d-2*t120*t212*t287*t66*wg 1985 1 ht+Cmat(iq,D1_GAB) 1986 Cmat(iq,D1_GBB) = (t285-1.2367783717787881d-2*rhob*t254*t290 1987 1 )*wght+Cmat(iq,D1_GBB) 1988 Amat2(iq,D2_RA_RA) = (t212*(2.473556743557577d-2*t120*(3.424 1989 1 2190004576445d-1*t121*t123*t125*t131*t231**2*t377-1.71210 1990 2 95002288222d-1*t121*t123*t125*t131*t225*(1.75879136446427 1991 3 25d-1*t132*t133*t367*t369*t376+5.862637881547574d-1*t133* 1992 4 t134*t350*t375+t374+t373+t371+t370-5.862637881547574d-2*t 1993 5 127*t132*t133*t230*t369+t366+t365+t364-5.862637881547574d 1994 6 -2*t127*t132*t133*t230*t363+t362+t361+t360+t359+t358-1.17 1995 7 2527576309515d-1*t133*t134*t229*t353+4.69011030523806d-1* 1996 8 t127*t133*t215*t222*t229*t230+5.47179535611107d-1*t127*t1 1997 9 32*t216*t222*t226*t227*t230+1.094359071222214d+0*t134*t21 1998 : 5*t216*t226*t227*t229)+1.7121095002288222d-1*t121*t123*t1 1999 ; 25*t136*(t371+t370+t366+t365+t364+t362+t361+t360+t359+t35 2000 < 8)+t357+t355-3.4242190004576445d-1*t121*t123*t126*t131*t1 2001 = 36*t353+1.0272657001372934d+0*t121*t123*t131*t132*t136*t3 2002 > 50-3.4242190004576445d-1*t121*t123*t125*t224*t225*t231+7. 2003 ? 98984433440117d-1*t121*t125*t131*t216*t217*t225*t231+6.84 2004 @ 8438000915289d-1*t121*t123*t126*t131*t215*t225*t231-7.989 2005 1 84433440117d-1*t121*t125*t136*t216*t217*t224-6.8484380009 2006 2 15289d-1*t121*t123*t126*t136*t215*t224+1.5979688668802342 2007 3 d+0*t121*t126*t131*t136*t215*t216*t217)*t66+1.48413404613 2008 4 45462d-1*t124*t215*t232*t66+4.947113487115154d-2*t120*t23 2009 5 2)-2.473556743557577d-2*t120*t232**2*t378*t66+7.420670230 2010 6 672731d-2*t124*t138*t353*t66+1.4841340461345462d-1*t119*t 2011 7 138*t350*t66+1.0d+0*t349*t66+t159*(-1.2367783717787881d-2 2012 8 *rhoa*(-1.0569239417908823d-1*gammaaa*t161*t303*t33*t37+2 2013 9 .2195402777608514d+0*gammaaa*t279*t302*t33*t37+2.71780442 2014 : 17479813d-1*gammaaa*t28*(t311+t310+t309+t308+t307+t306)*t 2015 ; 37-1.268308730149058d+0*gammaaa*t160*t161*t165*t37-2.7178 2016 < 044217479813d-1*gammaaa*t166*t28*t33*(2.0107587937153953d 2017 = +0*t167*t302*t312*t35-5.745025124901132d-2*t167*t168*t303 2018 > *t35+2.897369528551698d+3*t304*t305*t34/t30**4.0d+0-9.657 2019 ? 898428505661d+2*t169*t29*t304*t34+1.1944679893212153d+1*t 2020 @ 169*t29*t301*t34+t311+t310+t309+t308+t307+t306-1.11483679 2021 1 00331342d+2*t158*t160*t167*t168*t169*t29)+5.4356088434959 2022 2 63d-1*gammaaa*t170**2*t28*t313*t33+1.268308730149058d+0*g 2023 3 ammaaa*t160*t161*t166*t170*t33-5.435608843495963d-1*gamma 2024 4 aa*t165*t166*t170*t28)-2.4735567435575762d-2*t171)+1.2367 2025 5 783717787881d-2*rhoa*t171**2*t314-1.0d+0*rhoa*t301+1.4841 2026 6 340461345462d-1*t124*t138*t215+2.0d+0*t210-2.0d+0*t158)*w 2027 7 ght+Amat2(iq,D2_RA_RA) 2028 Amat2(iq,D2_RA_RB) = (t212*(2.473556743557577d-2*t120*(-1.71 2029 1 21095002288222d-1*t121*t123*t125*t131*t225*(t392+t391+t39 2030 2 0+t389+t388+t387+t386-5.862637881547574d-2*t127*t132*t133 2031 3 *t230*t385+t384+t383+t382+t381-1.172527576309515d-1*t133* 2032 4 t134*t229*t380+1.7587913644642725d-1*t132*t133*t222*t274* 2033 5 t367*t376+5.862637881547574d-1*t133*t134*t215*t272*t375+t 2034 6 374+t373+t362+t361+2.34505515261903d-1*t127*t133*t215*t22 2035 7 9*t230*t274+2.735897678055535d-1*t127*t132*t216*t226*t227 2036 8 *t230*t274-5.862637881547574d-2*t127*t132*t133*t222*t230* 2037 9 t274+2.34505515261903d-1*t127*t133*t222*t229*t230*t272+5. 2038 : 47179535611107d-1*t134*t216*t226*t227*t229*t272+2.7358976 2039 ; 78055535d-1*t127*t132*t216*t222*t226*t227*t230+5.47179535 2040 < 611107d-1*t134*t215*t216*t226*t227*t229)+1.71210950022882 2041 = 22d-1*t121*t123*t125*t136*(t392+t391+t390+t389+t388+t387+ 2042 > t386+t384+t383+t382+t381+t362+t361)-3.4242190004576445d-1 2043 ? *t121*t123*t126*t131*t136*t380+3.4242190004576445d-1*t121 2044 @ *t123*t125*t131*t231*t277*t377+t357+t355-1.71210950022882 2045 1 22d-1*t121*t123*t125*t224*t225*t277+3.994922167200585d-1* 2046 2 t121*t125*t131*t216*t217*t225*t277+3.4242190004576445d-1* 2047 3 t121*t123*t126*t131*t215*t225*t277-1.7121095002288222d-1* 2048 4 t121*t123*t125*t225*t231*t276-3.994922167200585d-1*t121*t 2049 5 125*t136*t216*t217*t276-3.4242190004576445d-1*t121*t123*t 2050 6 126*t136*t215*t276+3.4242190004576445d-1*t121*t123*t126*t 2051 7 131*t225*t231*t272-3.4242190004576445d-1*t121*t123*t126*t 2052 8 136*t224*t272+7.98984433440117d-1*t121*t126*t131*t136*t21 2053 9 6*t217*t272+1.0272657001372934d+0*t121*t123*t131*t132*t13 2054 : 6*t215*t272+3.994922167200585d-1*t121*t125*t131*t216*t217 2055 ; *t225*t231-3.994922167200585d-1*t121*t125*t136*t216*t217* 2056 < t224+7.98984433440117d-1*t121*t126*t131*t136*t215*t216*t2 2057 = 17)*t66+7.420670230672731d-2*t124*t215*t278*t66+7.4206702 2058 > 30672731d-2*t124*t232*t272*t66+2.473556743557577d-2*t120* 2059 ? t278+2.473556743557577d-2*t120*t232)+7.420670230672731d-2 2060 @ *t124*t138*t380*t66+1.0d+0*t379*t66-2.473556743557577d-2* 2061 1 t120*t232*t278*t378*t66+1.4841340461345462d-1*t119*t138*t 2062 2 215*t272*t66+7.420670230672731d-2*t124*t138*t272+1.0d+0*t 2063 3 271+7.420670230672731d-2*t124*t138*t215+1.0d+0*t210)*wght 2064 4 +Amat2(iq,D2_RA_RB) 2065 Amat2(iq,D2_RB_RB) = (t212*(2.473556743557577d-2*t120*(-1.71 2066 1 21095002288222d-1*t121*t123*t125*t131*t225*(t433+t432+1.7 2067 2 587913644642725d-1*t132*t133*t367*t376*t431-5.86263788154 2068 3 7574d-2*t127*t132*t133*t230*t431+t430+t429+t428-5.8626378 2069 4 81547574d-2*t127*t132*t133*t230*t427+t426+t425+t424-1.172 2070 5 527576309515d-1*t133*t134*t229*t423+5.862637881547574d-1* 2071 6 t133*t134*t375*t422+t374+t373+t362+t361+4.69011030523806d 2072 7 -1*t127*t133*t229*t230*t272*t274+5.47179535611107d-1*t127 2073 8 *t132*t216*t226*t227*t230*t274+1.094359071222214d+0*t134* 2074 9 t216*t226*t227*t229*t272)+1.7121095002288222d-1*t121*t123 2075 : *t125*t136*(t433+t432+t430+t429+t428+t426+t425+t424+t362+ 2076 ; t361)-3.4242190004576445d-1*t121*t123*t126*t131*t136*t423 2077 < +1.0272657001372934d+0*t121*t123*t131*t132*t136*t422+3.42 2078 = 42190004576445d-1*t121*t123*t125*t131*t277**2*t377+t357+t 2079 > 355-3.4242190004576445d-1*t121*t123*t125*t225*t276*t277+6 2080 ? .848438000915289d-1*t121*t123*t126*t131*t225*t272*t277+7. 2081 @ 98984433440117d-1*t121*t125*t131*t216*t217*t225*t277-6.84 2082 1 8438000915289d-1*t121*t123*t126*t136*t272*t276-7.98984433 2083 2 440117d-1*t121*t125*t136*t216*t217*t276+1.597968866880234 2084 3 2d+0*t121*t126*t131*t136*t216*t217*t272)*t66+1.4841340461 2085 4 345462d-1*t124*t272*t278*t66+4.947113487115154d-2*t120*t2 2086 5 78)+7.420670230672731d-2*t124*t138*t423*t66+1.48413404613 2087 6 45462d-1*t119*t138*t422*t66+1.0d+0*t421*t66-2.47355674355 2088 7 7577d-2*t120*t278**2*t378*t66+1.2367783717787881d-2*rhob* 2089 8 t266**2*t416+t254*(-1.2367783717787881d-2*rhob*(5.4356088 2090 9 43495963d-1*gammabb*t105*t110*t265**2*t415-2.717804421747 2091 : 9813d-1*gammabb*t105*t110*t261*(2.0107587937153953d+0*t11 2092 ; 2*t262*t404*t414+t413+t412+t411+t410+t409+t408+2.89736952 2093 < 8551698d+3*t111*t406*t407/t107**4.0d+0-9.657898428505661d 2094 = +2*t106*t111*t264*t406-5.745025124901132d-2*t112*t262*t26 2095 > 3*t405+1.1944679893212153d+1*t106*t111*t264*t403-1.114836 2096 ? 7900331342d+2*t106*t253*t255*t262*t263*t264)+2.7178044217 2097 @ 479813d-1*gammabb*t105*t114*(t413+t412+t411+t410+t409+t40 2098 1 8)-1.0569239417908823d-1*gammabb*t110*t114*t256*t405+2.21 2099 2 95402777608514d+0*gammabb*t110*t114*t288*t404-5.435608843 2100 3 495963d-1*gammabb*t105*t260*t261*t265+1.268308730149058d+ 2101 4 0*gammabb*t110*t255*t256*t261*t265-1.268308730149058d+0*g 2102 5 ammabb*t114*t255*t256*t260)-2.4735567435575762d-2*t266)-1 2103 6 .0d+0*rhob*t403+1.4841340461345462d-1*t124*t138*t272+2.0d 2104 7 +0*t271-2.0d+0*t253)*wght+Amat2(iq,D2_RB_RB) 2105 Cmat2(iq,D2_RA_GAA) = (t445+t436+t159*(-1.2367783717787881d- 2106 1 2*rhoa*(-2.7178044217479813d-1*gammaaa*t166*t28*t33*(t435 2107 2 +t434-6.894030149881355d-1*gammaaa*t160*t168*t35+2.388935 2108 3 9786424305d+1*gammaaa*t158*t169*t279*t29)+2.7178044217479 2109 4 813d-1*gammaaa*t28*t37*(t435+t434)-6.34154365074529d-1*t1 2110 5 60*t161*t33*t37-1.7235075374703387d-1*gammaaa*t160*t168*t 2111 6 31*t37+2.7178044217479813d-1*t165*t28*t37+5.4356088434959 2112 7 63d-1*gammaaa*t170*t28*t280*t313*t33+6.34154365074529d-1* 2113 8 gammaaa*t160*t161*t166*t280*t33-2.7178044217479813d-1*t16 2114 9 6*t170*t28*t33-7.386460874872879d-2*gammaaa*t166*t170*t27 2115 : 9*t31-2.7178044217479813d-1*gammaaa*t165*t166*t28*t280)-1 2116 ; .2367783717787881d-2*t281)+1.2367783717787881d-2*rhoa*t17 2117 < 1*t281*t314)*wght+Cmat2(iq,D2_RA_GAA) 2118 Cmat2(iq,D2_RA_GAB) = (t212*(2.473556743557577d-2*t120*(-1.7 2119 1 121095002288222d-1*t121*t123*t125*t131*t225*(t453+t452+t4 2120 2 51+t450-2.34505515261903d-1*t121*t127*t132*t222*t230*t282 2121 3 -4.69011030523806d-1*t121*t134*t215*t229*t282)+1.71210950 2122 4 02288222d-1*t121*t123*t125*t136*(t452+t451+t450)+t449+t44 2123 5 8+t447+3.4242190004576445d-1*t121*t123*t125*t131*t231*t28 2124 6 6*t377-1.7121095002288222d-1*t121*t123*t125*t224*t225*t28 2125 7 6+3.4242190004576445d-1*t121*t123*t126*t131*t215*t225*t28 2126 8 6-5.862637881547574d-2*t121*t129*t132*t225*t231*t282-1.17 2127 9 2527576309515d-1*t121*t129*t136*t215*t229*t282-3.42421900 2128 : 04576445d-1*t123*t125*t131*t225*t231+3.4242190004576445d- 2129 ; 1*t123*t125*t136*t224-6.848438000915289d-1*t123*t126*t131 2130 < *t136*t215)*t66+7.420670230672731d-2*t124*t215*t287*t66+t 2131 = 446)-2.473556743557577d-2*t120*t232*t287*t378*t66)*wght+C 2132 > mat2(iq,D2_RA_GAB) 2133 Cmat2(iq,D2_RA_GBB) = (t445+t436)*wght+Cmat2(iq,D2_RA_GBB) 2134 Cmat2(iq,D2_RB_GAA) = (t457+t454)*wght+Cmat2(iq,D2_RB_GAA) 2135 Cmat2(iq,D2_RB_GAB) = (t212*(2.473556743557577d-2*t120*(-1.7 2136 1 121095002288222d-1*t121*t123*t125*t131*t225*(t459+t458+t4 2137 2 53+t451-2.34505515261903d-1*t121*t127*t132*t230*t274*t282 2138 3 -4.69011030523806d-1*t121*t134*t229*t272*t282)+1.71210950 2139 4 02288222d-1*t121*t123*t125*t136*(t459+t458+t451)+t449+t44 2140 5 8+t447+3.4242190004576445d-1*t121*t123*t125*t131*t277*t28 2141 6 6*t377-1.7121095002288222d-1*t121*t123*t125*t225*t276*t28 2142 7 6+3.4242190004576445d-1*t121*t123*t126*t131*t225*t272*t28 2143 8 6-5.862637881547574d-2*t121*t129*t132*t225*t277*t282-1.17 2144 9 2527576309515d-1*t121*t129*t136*t229*t272*t282-3.42421900 2145 : 04576445d-1*t123*t125*t131*t225*t277+3.4242190004576445d- 2146 ; 1*t123*t125*t136*t276-6.848438000915289d-1*t123*t126*t131 2147 < *t136*t272)*t66+7.420670230672731d-2*t124*t272*t287*t66+t 2148 = 446)-2.473556743557577d-2*t120*t278*t287*t378*t66)*wght+C 2149 > mat2(iq,D2_RB_GAB) 2150 Cmat2(iq,D2_RB_GBB) = (t254*(-1.2367783717787881d-2*rhob*(-2 2151 1 .7178044217479813d-1*gammabb*t105*t110*t261*(t461+t460+2. 2152 2 3889359786424305d+1*gammabb*t106*t253*t264*t288-6.8940301 2153 3 49881355d-1*gammabb*t112*t255*t263)+2.7178044217479813d-1 2154 4 *gammabb*t105*t114*(t461+t460)+5.435608843495963d-1*gamma 2155 5 bb*t105*t110*t265*t289*t415-2.7178044217479813d-1*gammabb 2156 6 *t105*t260*t261*t289+6.34154365074529d-1*gammabb*t110*t25 2157 7 5*t256*t261*t289-7.386460874872879d-2*gammabb*t108*t261*t 2158 8 265*t288-2.7178044217479813d-1*t105*t110*t261*t265-1.7235 2159 9 075374703387d-1*gammabb*t108*t114*t255*t263+2.71780442174 2160 : 79813d-1*t105*t114*t260-6.34154365074529d-1*t110*t114*t25 2161 ; 5*t256)-1.2367783717787881d-2*t290)+t457+t454+1.236778371 2162 < 7787881d-2*rhob*t266*t290*t416)*wght+Cmat2(iq,D2_RB_GBB) 2163 Cmat2(iq,D2_GAA_GAA) = (t465+t462-1.2367783717787881d-2*rhoa 2164 1 *t159*(1.4772921749745757d-1*t279*t31*t37-4.0149912053595 2165 2 95d-2*gammaaa*t166*t312*t33*t35+5.435608843495963d-1*gamm 2166 3 aaa*t28*t280**2*t313*t33-5.435608843495963d-1*t166*t28*t2 2167 4 80*t33-1.4772921749745757d-1*gammaaa*t166*t279*t280*t31)+ 2168 5 1.2367783717787881d-2*rhoa*t281**2*t314)*wght+Cmat2(iq,D2 2169 6 _GAA_GAA) 2170 Cmat2(iq,D2_GAA_GAB) = (2.473556743557577d-2*t120*t212*t466* 2171 1 t66-2.473556743557577d-2*t120*t284*t287*t378*t66)*wght+Cm 2172 2 at2(iq,D2_GAA_GAB) 2173 Cmat2(iq,D2_GAA_GBB) = (t465+t462)*wght+Cmat2(iq,D2_GAA_GBB) 2174 Cmat2(iq,D2_GAB_GAB) = -2.473556743557577d-2*t120*t287**2*t3 2175 1 78*t66*wght+2.473556743557577d-2*t120*t212*(3.42421900045 2176 2 76445d-1*t121*t123*t125*t131*t286**2*t377-4.0149912053595 2177 3 92d-2*t121*t131*t134*t225*t372*t375-1.172527576309515d-1* 2178 4 t121*t129*t132*t225*t282*t286-6.848438000915289d-1*t123*t 2179 5 125*t131*t225*t286+2.34505515261903d-1*t129*t132*t136*t28 2180 6 2)*t66*wght+Cmat2(iq,D2_GAB_GAB) 2181 Cmat2(iq,D2_GAB_GBB) = 2.473556743557577d-2*t120*t212*t466*t 2182 1 66*wght-2.473556743557577d-2*t120*t284*t287*t378*t66*wght 2183 2 +Cmat2(iq,D2_GAB_GBB) 2184 Cmat2(iq,D2_GBB_GBB) = (t465+t462+1.2367783717787881d-2*rhob 2185 1 *t290**2*t416-1.2367783717787881d-2*rhob*t254*(5.43560884 2186 2 3495963d-1*gammabb*t105*t110*t289**2*t415-4.0149912053595 2187 3 95d-2*gammabb*t110*t112*t261*t414-1.4772921749745757d-1*g 2188 4 ammabb*t108*t261*t288*t289-5.435608843495963d-1*t105*t110 2189 5 *t261*t289+1.4772921749745757d-1*t108*t114*t288))*wght+Cm 2190 6 at2(iq,D2_GBB_GBB) 2191 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 2192 fnc(iq) = fnc(iq) 2193 Amat(iq,D1_RA) = Amat(iq,D1_RA) 2194 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 2195 Amat2(iq,D2_RA_RA) = Amat2(iq,D2_RA_RA) 2196 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 2197 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 2198 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 2199 fnc(iq) = fnc(iq) 2200 Amat(iq,D1_RB) = Amat(iq,D1_RB) 2201 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 2202 Amat2(iq,D2_RB_RB) = Amat2(iq,D2_RB_RB) 2203 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 2204 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 2205 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 2206 endif ! ipol.eq.1 2207 enddo ! iq 2208 end 2209C> 2210C> \brief Evaluate the nwxcm_c_opt functional [1] 2211C> 2212C> \f{eqnarray*}{ 2213C> {\it t_1} &=& \rho_\alpha^{0.3333333333333333}\\\\ 2214C> {\it t_2} &=& \sqrt{{\it t_1}}\\\\ 2215C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 2216C> {\it t_4} &=& {{1}\over{{\it t_1}}}\\\\ 2217C> {\it t_5} &=& \log \left({{1.269642451250142\,{\it t_2}} 2218C> \over{0.7876233178997433\,\left(0.7876233178997433\, 2219C> \left(0.02414199311453321\,{\it t_3}+0.10186556948\right)\,{ 2220C> \it t_3}+0.22308199064\right)\,{\it t_3}+0.47231125998}} 2221C> +1.0\right)\\\\ 2222C> {\it t_6} &=& 0.1325688999052018\,{\it t_4}+1.0\\\\ 2223C> {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_2}} 2224C> \over{0.7876233178997433\,\left(0.7876233178997433\, 2225C> \left(0.01321299881039884\,{\it t_3}+0.029729725188\right) 2226C> \,{\it t_3}+0.12236585478\right)\,{\it t_3}+0.3497952466}} 2227C> +1.0\right)\\\\ 2228C> {\it t_8} &=& 0.06901399211255826\,{\it t_4}+1.0\\\\ 2229C> {\it t_9} &=& 0.5848223622634643\,\left(0.0337738\,{\it t_7} 2230C> \,{\it t_8}+1.0\,\left(1.709920934161365\,\left(0.0621814\,{ 2231C> \it t_5}\,{\it t_6}-0.0310907\,\log \left({{1.269642451250142 2232C> \,{\it t_2}}\over{0.7876233178997433\,\left(0.7876233178997433 2233C> \,\left(0.01530901310039024\,{\it t_3}+0.10465751434\right) 2234C> \,{\it t_3}+0.19269083139\right)\,{\it t_3}+0.43896648423}} 2235C> +1.0\right)\,\left(0.1274696188700087\,{\it t_4} 2236C> +1.0\right)\right)-0.0337738\,{\it t_7}\,{\it t_8}\right)\right) 2237C> -0.0621814\,{\it t_5}\,{\it t_6}\\\\ 2238C> {\it t_{10}} &=& \rho_\beta^{0.3333333333333333}\\\\ 2239C> {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\ 2240C> {\it t_{12}} &=& {{1}\over{{\it t_{11}}}}\\\\ 2241C> {\it t_{13}} &=& {{1}\over{{\it t_{10}}}}\\\\ 2242C> {\it t_{14}} &=& \log \left({{1.269642451250142\,{ 2243C> \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433 2244C> \,\left(0.02414199311453321\,{\it t_{12}}+0.10186556948\right) 2245C> \,{\it t_{12}}+0.22308199064\right)\,{\it t_{12}} 2246C> +0.47231125998}}+1.0\right)\\\\ 2247C> {\it t_{15}} &=& 0.1325688999052018\,{\it t_{13}}+1.0\\\\ 2248C> {\it t_{16}} &=& \log \left({{1.269642451250142\,{ 2249C> \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433 2250C> \,\left(0.01321299881039884\,{\it t_{12}} 2251C> +0.029729725188\right)\,{\it t_{12}}+0.12236585478\right)\,{ 2252C> \it t_{12}}+0.3497952466}}+1.0\right)\\\\ 2253C> {\it t_{17}} &=& 0.06901399211255826\,{\it t_{13}}+1.0\\\\ 2254C> {\it t_{18}} &=& 0.5848223622634643\,\left(0.0337738\,{ 2255C> \it t_{16}}\,{\it t_{17}}+1.0\,\left(1.709920934161365\, 2256C> \left(0.0621814\,{\it t_{14}}\,{\it t_{15}}-0.0310907 2257C> \,\log \left({{1.269642451250142\,{\it t_{11}}} 2258C> \over{0.7876233178997433\,\left(0.7876233178997433\, 2259C> \left(0.01530901310039024\,{\it t_{12}}+0.10465751434\right) 2260C> \,{\it t_{12}}+0.19269083139\right)\,{\it t_{12}} 2261C> +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{ 2262C> \it t_{13}}+1.0\right)\right)-0.0337738\,{\it t_{16}}\,{ 2263C> \it t_{17}}\right)\right)-0.0621814\,{\it t_{14}}\,{ 2264C> \it t_{15}}\\\\ 2265C> {\it t_{19}} &=& \rho_\beta+\rho_\alpha\\\\ 2266C> {\it t_{20}} &=& {\it t_{19}}^{0.3333333333333333}\\\\ 2267C> {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\ 2268C> {\it t_{22}} &=& 0.1325688999052018\,{\it t_{21}}+1.0\\\\ 2269C> {\it t_{23}} &=& \sqrt{{\it t_{20}}}\\\\ 2270C> {\it t_{24}} &=& {{1}\over{{\it t_{23}}}}\\\\ 2271C> {\it t_{25}} &=& \log \left({{1.269642451250142\,{ 2272C> \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\, 2273C> \left(0.7876233178997433\,{\it t_{24}}\, 2274C> \left(0.02414199311453321\,{\it t_{24}}+0.10186556948\right) 2275C> +0.22308199064\right)+0.47231125998}}+1.0\right)\\\\ 2276C> {\it t_{26}} &=& \rho_\alpha-\rho_\beta\\\\ 2277C> {\it t_{27}} &=& {{1}\over{{\it t_{19}}}}\\\\ 2278C> {\it t_{28}} &=& 1.0-{\it t_{26}}\,{\it t_{27}}\\\\ 2279C> {\it t_{29}} &=& {\it t_{26}}\,{\it t_{27}}+1.0\\\\ 2280C> {\it t_{30}} &=& 0.06901399211255826\,{\it t_{21}}+1.0\\\\ 2281C> {\it t_{31}} &=& \log \left({{1.269642451250142\,{ 2282C> \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\, 2283C> \left(0.7876233178997433\,{\it t_{24}}\, 2284C> \left(0.01321299881039884\,{\it t_{24}}+0.029729725188\right) 2285C> +0.12236585478\right)+0.3497952466}}+1.0\right)\\\\ 2286C> {\it t_{32}} &=& 0.5848223622634648\,\left(1.923661050931536 2287C> \,{\it t_{29}}^{{{4}\over{3}}}+1.923661050931536\,{ 2288C> \it t_{28}}^{{{4}\over{3}}}-3.847322101863072\right)\, 2289C> \left({{{\it t_{26}}^4\,\left(1.709920934161365\, 2290C> \left(0.0621814\,{\it t_{22}}\,{\it t_{25}}-0.0310907\, 2291C> \left(0.1274696188700087\,{\it t_{21}}+1.0\right)\,\log 2292C> \left({{1.269642451250142\,{\it t_{23}}} 2293C> \over{0.7876233178997433\,{\it t_{24}}\, 2294C> \left(0.7876233178997433\,{\it t_{24}}\, 2295C> \left(0.01530901310039024\,{\it t_{24}}+0.10465751434\right) 2296C> +0.19269083139\right)+0.43896648423}}+1.0\right)\right) 2297C> -0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)}\over{{ 2298C> \it t_{19}}^4}}+0.0337738\,{\it t_{30}}\,{\it t_{31}}\right) 2299C> -0.0621814\,{\it t_{22}}\,{\it t_{25}}\\\\ 2300C> {\it t_{33}} &=& {{1}\over{ 2301C> \left(\rho_\alpha^{1.166666666666667}\right)^{2.0}}}\\\\ 2302C> {\it t_{34}} &=& {{1}\over{e^{80.85523023512745\,{\it t_9}}}} 2303C> -1.0\\\\ 2304C> {\it t_{35}} &=& {{0.2717804421747981\,{\it t_{33}}\, 2305C> \sigma_{\alpha\alpha}}\over{{\it t_{34}}}}\\\\ 2306C> {\it t_{36}} &=& {{1}\over{ 2307C> \left(\rho_\beta^{1.166666666666667}\right)^{2.0}}}\\\\ 2308C> {\it t_{37}} &=& {{1}\over{e^{80.85523023512745\,{\it t_{18}}}}} 2309C> -1.0\\\\ 2310C> {\it t_{38}} &=& {{0.2717804421747981\,{\it t_{36}}\, 2311C> \sigma_{\beta\beta}}\over{{\it t_{37}}}}\\\\ 2312C> {\it t_{39}} &=& 0.5\,{\it t_{29}}^{{{2}\over{3}}}+0.5\,{ 2313C> \it t_{28}}^{{{2}\over{3}}}\\\\ 2314C> {\it t_{40}} &=& {\it t_{39}}^{3.0}\\\\ 2315C> {\it t_{41}} &=& {{1}\over{\left({ 2316C> \it t_{19}}^{1.166666666666667}\right)^{2.0}}}\\\\ 2317C> {\it t_{42}} &=& {{1}\over{{\it t_{39}}^{2.0}}}\\\\ 2318C> {\it t_{43}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 2319C> +\sigma_{\alpha\alpha}\\\\ 2320C> {\it t_{44}} &=& {{1}\over{e^{{{40.42761511756372\,{ 2321C> \it t_{32}}}\over{{\it t_{40}}}}}}}-1.0\\\\ 2322C> {\it t_{45}} &=& {{0.1712109500228822\,{\it t_{41}}\,{ 2323C> \it t_{42}}\,{\it t_{43}}}\over{{\it t_{44}}}}\\\\ 2324C> f &=& 0.02473556743557577\,{\it t_{19}}\,{\it t_{40}} 2325C> \,\log \left({{0.1712109500228822\,{\it t_{41}}\,{\it t_{42}} 2326C> \,{\it t_{43}}\,\left({\it t_{45}}+1.0\right)} 2327C> \over{{{0.02931318940773787\,\left({\it t_{41}}\,{ 2328C> \it t_{43}}\right)^{2.0}}\over{{\it t_{39}}^{4.0}\,{ 2329C> \it t_{44}}^{2.0}}}+{\it t_{45}}+1.0}}+1.0\right) 2330C> -0.01236778371778788\,\rho_\beta\,\log 2331C> \left({{0.2717804421747981\,{\it t_{36}}\,\sigma_{\beta\beta} 2332C> \,\left({\it t_{38}}+1.0\right)}\over{{{0.0738646087487288 2333C> \,\left({\it t_{36}}\,\sigma_{\beta\beta}\right)^{2.0}} 2334C> \over{{\it t_{37}}^{2.0}}}+{\it t_{38}}+1.0}}+1.0\right) 2335C> -0.01236778371778788\,\rho_\alpha\,\log 2336C> \left({{0.2717804421747981\,{\it t_{33}}\, 2337C> \sigma_{\alpha\alpha}\,\left({\it t_{35}}+1.0\right)} 2338C> \over{{{0.0738646087487288\,\left({\it t_{33}}\, 2339C> \sigma_{\alpha\alpha}\right)^{2.0}}\over{{\it t_{34}}^{2.0}}} 2340C> +{\it t_{35}}+1.0}}+1.0\right)+1.0\,{\it t_{19}}\,{\it t_{32}} 2341C> -1.0\,{\it t_{18}}\,\rho_\beta-1.0\,{\it t_9}\,\rho_\alpha\\\\ 2342C> g &=& 0\\\\ 2343C> G &=& 0.0\\\\ 2344C> \f} 2345C> 2346C> Code generated with Maxima 5.34.0 [2] 2347C> driven by autoxc [3]. 2348C> 2349C> ### References ### 2350C> 2351C> [1] NC Handy, AJ Cohen, Mol.Phys. 99, 607 (2001) , DOI: 2352C> <a href="https://doi.org/10.1080/00268970010023435 "> 2353C> 10.1080/00268970010023435 </a> 2354C> 2355C> [2] Maxima, a computer algebra system, 2356C> <a href="http://maxima.sourceforge.net/"> 2357C> http://maxima.sourceforge.net/</a> 2358C> 2359C> [3] autoxc, revision 27097 2015-05-08 2360C> 2361 subroutine nwxcm_c_opt_d3(param,tol_rho,ipol,nq,wght, 2362 +rho,rgamma,fnc,Amat,Amat2,Amat3, 2363 +Cmat,Cmat2,Cmat3) 2364c $Id: $ 2365#ifdef NWXC_QUAD_PREC 2366 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 2367 integer, parameter :: rk=selected_real_kind(30) 2368#else 2369 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 2370 integer, parameter :: rk=selected_real_kind(15) 2371#endif 2372#include "nwxc_param.fh" 2373 double precision param(*) !< [Input] Parameters of functional 2374 double precision tol_rho !< [Input] The lower limit on the density 2375 integer ipol !< [Input] The number of spin channels 2376 integer nq !< [Input] The number of points 2377 double precision wght !< [Input] The weight of the functional 2378 double precision rho(nq,*) !< [Input] The density 2379 double precision rgamma(nq,*) !< [Input] The norm of the density 2380 !< gradients 2381 double precision fnc(nq) !< [Output] The value of the functional 2382c 2383c Sampling Matrices for the XC Kernel 2384c 2385 double precision Amat(nq,*) !< [Output] The derivative wrt rho 2386 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 2387c 2388c Sampling Matrices for the XC Kernel 2389c 2390 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 2391 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 2392 !< and possibly rho 2393c 2394c Sampling Matrices for the XC Kernel 2395c 2396 double precision Amat3(nq,*) !< [Output] The 3rd derivative wrt rho 2397 double precision Cmat3(nq,*) !< [Output] The 3rd derivative wrt rgamma 2398 !< and possibly rho 2399 integer iq 2400 double precision tmp 2401 double precision rhoa,rhob 2402 double precision gammaaa,gammaab,gammabb 2403 double precision taua,taub 2404 double precision nwxcm_heaviside 2405 external nwxcm_heaviside 2406CDIR$ NOVECTOR 2407 do iq = 1, nq 2408 if (ipol.eq.1) then 2409 rhoa = 0.5d0*rho(iq,R_T) 2410 gammaaa = 0.25d0*rgamma(iq,G_TT) 2411 if (rhoa.gt.tol_rho) then 2412 t1 = rhoa**3.333333333333333d-1 2413 t2 = t1**5.0d-1 2414 t3 = 1/t2 2415 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 2416 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 2417 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 2418 t7 = 1/t6 2419 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 2420 t9 = log(t8) 2421 t10 = 1/t1 2422 t11 = 1.2746961887000874d-1*t10+1.0d+0 2423 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 2424 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 2425 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 2426 t15 = 1/t14 2427 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 2428 t17 = log(t16) 2429 t18 = 1.325688999052018d-1*t10+1.0d+0 2430 t19 = 1.3212998810398843d-2*t3+2.9729725188d-2 2431 t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1 2432 t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1 2433 t22 = 1/t21 2434 t23 = 1.269642451250142d+0*t2*t22+1.0d+0 2435 t24 = log(t23) 2436 t25 = 6.901399211255826d-2*t10+1.0d+0 2437 t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 2438 1 21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3 2439 2 .37738d-2*t24*t25)-6.21814d-2*t17*t18 2440 t27 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3* 2441 1 (7.016926042943223d-1*(2.150807071909054d-2*t3+1.01865569 2442 2 48d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0) 2443 t28 = 1.0522000558389215d-1*t10+1.0d+0 2444 t29 = rhoa**1.1666666666666667d+0 2445 t30 = 1/t29**2.0d+0 2446 t31 = exp(-8.085523023512745d+1*t26) 2447 t32 = t31-1.0d+0 2448 t33 = 1/t32 2449 t34 = 2.7178044217479813d-1*gammaaa*t30*t33 2450 t35 = t34+1.0d+0 2451 t36 = (gammaaa*t30)**2.0d+0 2452 t37 = 1/t32**2.0d+0 2453 t38 = 7.38646087487288d-2*t36*t37+t34+1.0d+0 2454 t39 = 1/t38 2455 t40 = 2.7178044217479813d-1*gammaaa*t30*t35*t39+1.0d+0 2456 t41 = log(t40) 2457 t42 = exp(2.5138457066712766d+0*t27*t28)-1.0d+0 2458 t43 = 1.35890221087399d-1*gammaaa*t30/t42 2459 t44 = 2.1508070719090538d-2*t3+1.0186556948d-1 2460 t45 = 7.016926042943222d-1*t3*t44+2.2308199064d-1 2461 t46 = 7.016926042943222d-1*t3*t45+4.7231125998d-1 2462 t47 = 1/t46 2463 t48 = 1.425125466450768d+0*t2*t47+1.0d+0 2464 t49 = log(t48) 2465 t50 = 1.0522000558389213d-1*t10+1.0d+0 2466 t51 = 1/rhoa**1.3333333333333333d+0 2467 t52 = 1/t48 2468 t53 = 1/t46**2 2469 t54 = 1/rhoa**1.3333333333333336d+0 2470 t55 = 1/t2**3 2471 t56 = 1/rhoa**6.666666666666667d-1 2472 t57 = -5.847438369119352d-2*t44*t55*t56-1.2576711796854242d- 2473 1 3*t54 2474 t58 = 7.016926042943222d-1*t3*t57-5.847438369119352d-2*t45*t 2475 1 55*t56 2476 t59 = 1.1876045553756398d-1*t3*t47*t56-1.425125466450768d+0* 2477 1 t2*t53*t58 2478 t60 = 1.090454542535705d-3*t49*t51-6.21814d-2*t50*t52*t59 2479 t61 = 1/t8 2480 t62 = 1/t6**2 2481 t63 = -1.3127055298329054d-1*t4*t55*t56-2.0096226153166658d- 2482 1 3*t54 2483 t64 = 7.876233178997433d-1*t3*t63-1.3127055298329054d-1*t5*t 2484 1 55*t56 2485 t65 = 2.11607075208357d-1*t3*t56*t7-1.269642451250142d+0*t2* 2486 1 t62*t64 2487 t66 = 1/t16 2488 t67 = 1/t14**2 2489 t68 = -1.3127055298329054d-1*t12*t55*t56-3.169132786263567d- 2490 1 3*t54 2491 t69 = 7.876233178997433d-1*t3*t68-1.3127055298329054d-1*t13* 2492 1 t55*t56 2493 t70 = 2.11607075208357d-1*t15*t3*t56-1.269642451250142d+0*t2 2494 1 *t67*t69 2495 t71 = 1/t23 2496 t72 = 1/t21**2 2497 t73 = -1.3127055298329054d-1*t19*t55*t56-1.7344776604086162d 2498 1 -3*t54 2499 t74 = 7.876233178997433d-1*t3*t73-1.3127055298329054d-1*t20* 2500 1 t55*t56 2501 t75 = 2.11607075208357d-1*t22*t3*t56-1.269642451250142d+0*t2 2502 1 *t72*t74 2503 t76 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1. 2504 1 3210398931339265d-3*t51*t9+6.21814d-2*t18*t66*t70-3.10907 2505 2 d-2*t11*t61*t65-2.747773264188438d-3*t17*t51)-3.37738d-2* 2506 3 t25*t71*t75+7.769549222703733d-4*t24*t51)+3.37738d-2*t25* 2507 4 t71*t75-7.769549222703733d-4*t24*t51)-6.21814d-2*t18*t66* 2508 5 t70+2.747773264188438d-3*t17*t51 2509 t77 = 1/t40 2510 t78 = rhoa**1.6666666666666674d-1 2511 t79 = 1/t29**3.0d+0 2512 t80 = -6.34154365074529d-1*gammaaa*t33*t78*t79 2513 t81 = 1/t32**2 2514 t82 = 2.1974870225448048d+1*gammaaa*t30*t31*t76*t81 2515 t83 = t82+t80 2516 t84 = 1/t38**2 2517 t85 = gammaaa**2 2518 t86 = 1/t29**5.0d+0 2519 t87 = 1/t32**3.0d+0 2520 t88 = 1.1944679893212153d+1*t31*t36*t76*t87-3.44701507494067 2521 1 75d-1*t37*t78*t85*t86+t82+t80 2522 t89 = -2.7178044217479813d-1*gammaaa*t30*t35*t84*t88+2.71780 2523 1 44217479813d-1*gammaaa*t30*t39*t83-6.34154365074529d-1*ga 2524 2 mmaaa*t35*t39*t78*t79 2525 t90 = exp(2.5138457066712766d+0*t49*t50) 2526 t91 = t90-1.0d+0 2527 t92 = 1/t91 2528 t93 = 1.3589022108739904d-1*gammaaa*t30*t92 2529 t94 = t93+1.0d+0 2530 t95 = 1/t91**2.0d+0 2531 t96 = 1.8466152187182186d-2*t36*t95+t93+1.0d+0 2532 t97 = 1/t96 2533 t98 = 1.3589022108739904d-1*gammaaa*t30*t94*t97+1.0d+0 2534 t99 = 1/t98 2535 t100 = -1.585385912686322d-1*gammaaa*t78*t79*t92 2536 t101 = 1/t91**2 2537 t102 = 5.493717556362009d+0*gammaaa*t101*t30*t60*t90 2538 t103 = t102+t100 2539 t104 = 1/t96**2 2540 t105 = 1/t91**3.0d+0 2541 t106 = -4.308768843675843d-2*t78*t85*t86*t95+1.4930849866515 2542 1 178d+0*t105*t36*t60*t90+t102+t100 2543 t107 = -1.585385912686322d-1*gammaaa*t78*t79*t94*t97+1.35890 2544 1 22108739904d-1*gammaaa*t103*t30*t97-1.3589022108739904d-1 2545 2 *gammaaa*t104*t106*t30*t94 2546 t108 = log(t98) 2547 t109 = 1/t29**4.0d+0 2548 t110 = 1.477292174974576d-1*gammaaa*t109*t37+2.7178044217479 2549 1 813d-1*t30*t33 2550 t111 = -2.7178044217479813d-1*gammaaa*t110*t30*t35*t84+2.717 2551 1 8044217479813d-1*t30*t35*t39+7.386460874872879d-2*gammaaa 2552 2 *t109*t33*t39 2553 t112 = 9.233076093591093d-3*gammaaa*t109*t95+3.3972555271849 2554 1 76d-2*t30*t92 2555 t113 = 3.397255527184976d-2*t30*t94*t97+4.6165380467955464d- 2556 1 3*gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104 2557 2 *t112*t30*t94 2558 t114 = 1.8466152187182186d-2*gammaaa*t109*t95+6.794511054369 2559 1 952d-2*t30*t92 2560 t115 = 6.794511054369952d-2*t30*t94*t97+9.233076093591093d-3 2561 1 *gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104* 2562 2 t114*t30*t94 2563 t116 = 2.0d+0*t60 2564 t117 = 1/rhoa**2.333333333333333d+0 2565 t118 = -7.269696950238034d-4*t117*t49 2566 t119 = 1.1771443702974158d-2*t3+2.9729725188d-2 2567 t120 = 7.016926042943222d-1*t119*t3+1.2236585478d-1 2568 t121 = 7.016926042943222d-1*t120*t3+3.497952466d-1 2569 t122 = 1/t121 2570 t123 = 1.425125466450768d+0*t122*t2+1.0d+0 2571 t124 = log(t123) 2572 t125 = 5.477644184000001d-2*t10+1.0d+0 2573 t126 = 1/rhoa**2 2574 t127 = 2.18090908507141d-3*t51*t52*t59 2575 t128 = 1/t48**2 2576 t129 = t59**2 2577 t130 = 6.21814d-2*t128*t129*t50 2578 t131 = 1/t46**3 2579 t132 = t58**2 2580 t133 = 1/rhoa**2.3333333333333334d+0 2581 t134 = 1/rhoa**1.6666666666666669d+0 2582 t135 = 1/t2**5 2583 t136 = 1.949146123039784d-2*t134*t44*t55+1.4618595922798375d 2584 1 -2*t135*t44*t54+9.432533847640683d-4*t133 2585 t137 = -1.1694876738238703d-1*t55*t56*t57+1.949146123039784d 2586 1 -2*t134*t45*t55+1.4618595922798375d-2*t135*t45*t54+7.0169 2587 2 26042943222d-1*t136*t3 2588 t138 = -2.3752091107512796d-1*t3*t53*t56*t58-9.8967046281303 2589 1 28d-3*t47*t54*t55-1.425125466450768d+0*t137*t2*t53-3.9586 2590 2 818512521327d-2*t134*t3*t47+2.850250932901536d+0*t131*t13 2591 3 2*t2 2592 t139 = -6.21814d-2*t138*t50*t52 2593 t140 = t139+t130+t127+8.443450000000001d-3*t124*t125*t126+t1 2594 1 18 2595 t141 = 1/t8**2 2596 t142 = t65**2 2597 t143 = 1/t6**3 2598 t144 = t64**2 2599 t145 = 8.751370198886037d-2*t134*t4*t55+6.563527649164527d-2 2600 1 *t135*t4*t54+3.0144339229749983d-3*t133 2601 t146 = -2.625411059665811d-1*t55*t56*t63+8.751370198886037d- 2602 1 2*t134*t5*t55+6.563527649164527d-2*t135*t5*t54+7.87623317 2603 2 8997433d-1*t145*t3 2604 t147 = -3.52678458680595d-2*t54*t55*t7-1.4107138347223802d-1 2605 1 *t134*t3*t7-4.23214150416714d-1*t3*t56*t62*t64-1.26964245 2606 2 1250142d+0*t146*t2*t62+2.539284902500284d+0*t143*t144*t2 2607 t148 = 1/t16**2 2608 t149 = t70**2 2609 t150 = 1/t14**3 2610 t151 = t69**2 2611 t152 = 8.751370198886037d-2*t12*t134*t55+6.563527649164527d- 2612 1 2*t12*t135*t54+4.753699179395351d-3*t133 2613 t153 = -2.625411059665811d-1*t55*t56*t68+8.751370198886037d- 2614 1 2*t13*t134*t55+6.563527649164527d-2*t13*t135*t54+7.876233 2615 2 178997433d-1*t152*t3 2616 t154 = -4.23214150416714d-1*t3*t56*t67*t69-1.269642451250142 2617 1 d+0*t153*t2*t67-3.52678458680595d-2*t15*t54*t55-1.4107138 2618 2 347223802d-1*t134*t15*t3+2.539284902500284d+0*t150*t151*t 2619 3 2 2620 t155 = 1/t23**2 2621 t156 = t75**2 2622 t157 = 1/t21**3 2623 t158 = t74**2 2624 t159 = 8.751370198886037d-2*t134*t19*t55+6.563527649164527d- 2625 1 2*t135*t19*t54+2.601716490612924d-3*t133 2626 t160 = -2.625411059665811d-1*t55*t56*t73+8.751370198886037d- 2627 1 2*t134*t20*t55+6.563527649164527d-2*t135*t20*t54+7.876233 2628 2 178997433d-1*t159*t3 2629 t161 = -4.23214150416714d-1*t3*t56*t72*t74-1.269642451250142 2630 1 d+0*t160*t2*t72-3.52678458680595d-2*t22*t54*t55-1.4107138 2631 2 347223802d-1*t134*t22*t3+2.539284902500284d+0*t157*t158*t 2632 3 2 2633 t162 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 2634 1 1.7613865241785687d-3*t117*t9-5.495546528376876d-3*t51*t6 2635 2 6*t70+6.21814d-2*t154*t18*t66+2.642079786267853d-3*t51*t6 2636 3 1*t65-3.10907d-2*t11*t147*t61-6.21814d-2*t148*t149*t18+3. 2637 4 663697685584584d-3*t117*t17+3.10907d-2*t11*t141*t142)+1.5 2638 5 539098445407465d-3*t51*t71*t75-3.37738d-2*t161*t25*t71+3. 2639 6 37738d-2*t155*t156*t25-1.0359398963604977d-3*t117*t24)-1. 2640 7 5539098445407465d-3*t51*t71*t75+3.37738d-2*t161*t25*t71-3 2641 8 .37738d-2*t155*t156*t25+1.0359398963604977d-3*t117*t24)+5 2642 9 .495546528376876d-3*t51*t66*t70-6.21814d-2*t154*t18*t66+6 2643 : .21814d-2*t148*t149*t18-3.663697685584584d-3*t117*t17 2644 t163 = rhoa**3.333333333333335d-1 2645 t164 = 1/rhoa**8.333333333333333d-1 2646 t165 = t76**2 2647 t166 = exp(-1.617104604702549d+2*t26) 2648 t167 = 1/t32**3 2649 t168 = 3.553566382931298d+3*gammaaa*t165*t166*t167*t30 2650 t169 = 2.2195402777608514d+0*gammaaa*t109*t163*t33 2651 t170 = -1.0569239417908823d-1*gammaaa*t164*t33*t79 2652 t171 = -1.0254939438542422d+2*gammaaa*t31*t76*t78*t79*t81 2653 t172 = -1.776783191465649d+3*gammaaa*t165*t30*t31*t81 2654 t173 = 2.1974870225448048d+1*gammaaa*t162*t30*t31*t81 2655 t174 = t173+t172+t171+t170+t169+t168 2656 t175 = 1/t32**4.0d+0 2657 t176 = 1/t29**6.0d+0 2658 t177 = -1.1148367900331342d+2*t31*t76*t78*t85*t86*t87-9.6578 2659 1 98428505661d+2*t165*t31*t36*t87+1.1944679893212153d+1*t16 2660 2 2*t31*t36*t87-5.745025124901132d-2*t164*t37*t85*t86+2.010 2661 3 7587937153953d+0*t163*t176*t37*t85+2.897369528551698d+3*t 2662 4 165*t166*t175*t36+t173+t172+t171+t170+t169+t168 2663 t178 = 1/t38**3 2664 t179 = t88**2 2665 t180 = -5.435608843495963d-1*gammaaa*t30*t83*t84*t88+1.26830 2666 1 8730149058d+0*gammaaa*t35*t78*t79*t84*t88-2.7178044217479 2667 2 813d-1*gammaaa*t177*t30*t35*t84-1.268308730149058d+0*gamm 2668 3 aaa*t39*t78*t79*t83-1.0569239417908823d-1*gammaaa*t164*t3 2669 4 5*t39*t79+2.2195402777608514d+0*gammaaa*t109*t163*t35*t39 2670 5 +2.7178044217479813d-1*gammaaa*t174*t30*t39+5.43560884349 2671 6 5963d-1*gammaaa*t178*t179*t30*t35 2672 t181 = -2.4735567435575762d-2*t89-1.2367783717787881d-2*rhoa 2673 1 *t180 2674 t182 = 1/t40**2 2675 t183 = t89**2 2676 t184 = 1/t98**2 2677 t185 = t107**2 2678 t186 = -4.947113487115154d-2*rhoa*t184*t185 2679 t187 = 4.947113487115154d-2*t107 2680 t188 = 2.774425347201063d-1*gammaaa*t109*t163*t94*t97 2681 t189 = -1.321154927238602d-2*gammaaa*t164*t79*t94*t97 2682 t190 = -3.170771825372644d-1*gammaaa*t103*t78*t79*t97 2683 t191 = 3.170771825372644d-1*gammaaa*t104*t106*t78*t79*t94 2684 t192 = -2.717804421747981d-1*gammaaa*t103*t104*t106*t30 2685 t193 = 1/t96**3 2686 t194 = t106**2 2687 t195 = 2.717804421747981d-1*gammaaa*t193*t194*t30*t94 2688 t196 = 2.774425347201063d-1*gammaaa*t109*t163*t92 2689 t197 = -1.321154927238602d-2*gammaaa*t164*t79*t92 2690 t198 = 1.5098913454155444d-2*gammaaa*t126*t30*t92 2691 t199 = -1.281867429817802d+1*gammaaa*t101*t60*t78*t79*t90 2692 t200 = t60**2 2693 t201 = -2.2209789893320597d+2*gammaaa*t101*t200*t30*t90 2694 t202 = 4.189742844452126d-1*t126*t49*t50-4.042761511756372d+ 2695 1 1*t140 2696 t203 = -1.3589022108739904d-1*gammaaa*t101*t202*t30*t90 2697 t204 = 1/t91**3 2698 t205 = exp(5.027691413342553d+0*t49*t50) 2699 t206 = 4.4419579786641195d+2*gammaaa*t200*t204*t205*t30 2700 t207 = t206+t203+t201+t199+t198+t197+t196 2701 t208 = 1.2567242460721215d-1*t163*t176*t85*t95 2702 t209 = -3.590640703063204d-3*t164*t85*t86*t95 2703 t210 = -6.967729937707083d+0*t105*t60*t78*t85*t86*t90 2704 t211 = 1/t91**4.0d+0 2705 t212 = 1.8108559553448098d+2*t200*t205*t211*t36 2706 t213 = 4.1035893749293734d-3*t126*t36*t95-3.693230437436437d 2707 1 -2*t105*t202*t36*t90-6.036186517816032d+1*t105*t200*t36*t 2708 2 90+t212+t210+t209+t208+t206+t203+t201+t199+t198+t197+t196 2709 t214 = 1.5098913454155444d-2*gammaaa*t126*t30*t94*t97+1.3589 2710 1 022108739904d-1*gammaaa*t207*t30*t97-1.3589022108739904d- 2711 2 1*gammaaa*t104*t213*t30*t94+t195+t192+t191+t190+t189+t188 2712 t215 = 4.947113487115154d-2*rhoa*t214+t187 2713 t216 = 1/rhoa 2714 t217 = t139+t130+t127-8.44345d-3*t124*t125*t126+t118 2715 t218 = -1.509891345415545d-2*gammaaa*t126*t30*t92 2716 t219 = -2.2209789893320595d+2*gammaaa*t101*t200*t30*t90 2717 t220 = -4.1897428444521273d-1*t126*t49*t50-4.042761511756372 2718 1 d+1*t217 2719 t221 = -1.3589022108739904d-1*gammaaa*t101*t220*t30*t90 2720 t222 = 4.441957978664119d+2*gammaaa*t200*t204*t205*t30 2721 t223 = t222+t221+t219+t218+t199+t197+t196 2722 t224 = -4.1035893749293745d-3*t126*t36*t95-3.693230437436437 2723 1 d-2*t105*t220*t36*t90-6.036186517816031d+1*t105*t200*t36* 2724 2 t90+t222+t221+t219+t218+t212+t210+t209+t208+t199+t197+t19 2725 3 6 2726 t225 = -1.509891345415545d-2*gammaaa*t126*t30*t94*t97+1.3589 2727 1 022108739904d-1*gammaaa*t223*t30*t97-1.3589022108739904d- 2728 2 1*gammaaa*t104*t224*t30*t94+t195+t192+t191+t190+t189+t188 2729 t226 = 4.947113487115154d-2*rhoa*t225+t187 2730 t227 = -6.34154365074529d-1*t33*t78*t79 2731 t228 = 2.1974870225448048d+1*t30*t31*t76*t81 2732 t229 = t228+t227 2733 t230 = 2.3889359786424305d+1*gammaaa*t109*t31*t76*t87-6.8940 2734 1 30149881355d-1*gammaaa*t37*t78*t86+t228+t227 2735 t231 = -2.7178044217479813d-1*t30*t35*t84*t88-7.386460874872 2736 1 879d-2*gammaaa*t109*t33*t84*t88+5.435608843495963d-1*gamm 2737 2 aaa*t110*t178*t30*t35*t88-1.7235075374703387d-1*gammaaa*t 2738 3 33*t39*t78*t86-2.7178044217479813d-1*gammaaa*t110*t30*t83 2739 4 *t84+6.34154365074529d-1*gammaaa*t110*t35*t78*t79*t84-2.7 2740 5 178044217479813d-1*gammaaa*t230*t30*t35*t84+2.71780442174 2741 6 79813d-1*t30*t39*t83-6.34154365074529d-1*t35*t39*t78*t79+ 2742 7 2.7178044217479813d-1*gammaaa*t229*t30*t39 2743 t232 = -1.2367783717787881d-2*rhoa*t231-1.2367783717787881d- 2744 1 2*t111 2745 t233 = -4.947113487115154d-2*rhoa*t107*t113*t184 2746 t234 = -3.9634647817158053d-2*t78*t79*t92 2747 t235 = 1.3734293890905022d+0*t101*t30*t60*t90 2748 t236 = t235+t234 2749 t237 = -2.1543844218379216d-2*gammaaa*t78*t86*t95+7.46542493 2750 1 3257588d-1*gammaaa*t105*t109*t60*t90+t235+t234 2751 t238 = -3.9634647817158053d-2*t78*t79*t94*t97-5.385961054594 2752 1 804d-3*gammaaa*t78*t86*t92*t97+1.3589022108739904d-1*gamm 2753 2 aaa*t236*t30*t97+3.397255527184976d-2*t103*t30*t97+1.5853 2754 3 85912686322d-1*gammaaa*t104*t112*t78*t79*t94-1.3589022108 2755 4 739904d-1*gammaaa*t104*t237*t30*t94+2.717804421747981d-1* 2756 5 gammaaa*t106*t112*t193*t30*t94-3.397255527184976d-2*t104* 2757 6 t106*t30*t94-4.6165380467955464d-3*gammaaa*t104*t106*t109 2758 7 *t92-1.3589022108739904d-1*gammaaa*t103*t104*t112*t30 2759 t239 = 4.947113487115154d-2*rhoa*t238+2.473556743557577d-2*t 2760 1 113 2761 t240 = t239*t99 2762 t241 = -7.926929563431611d-2*t78*t79*t92 2763 t242 = 2.7468587781810044d+0*t101*t30*t60*t90 2764 t243 = t242+t241 2765 t244 = -4.308768843675843d-2*gammaaa*t78*t86*t95+1.493084986 2766 1 6515178d+0*gammaaa*t105*t109*t60*t90+t242+t241 2767 t245 = -7.926929563431611d-2*t78*t79*t94*t97-1.0771922109189 2768 1 608d-2*gammaaa*t78*t86*t92*t97+1.3589022108739904d-1*gamm 2769 2 aaa*t243*t30*t97+6.794511054369952d-2*t103*t30*t97+1.5853 2770 3 85912686322d-1*gammaaa*t104*t114*t78*t79*t94-1.3589022108 2771 4 739904d-1*gammaaa*t104*t244*t30*t94+2.717804421747981d-1* 2772 5 gammaaa*t106*t114*t193*t30*t94-6.794511054369952d-2*t104* 2773 6 t106*t30*t94-9.233076093591093d-3*gammaaa*t104*t106*t109* 2774 7 t92-1.3589022108739904d-1*gammaaa*t103*t104*t114*t30 2775 t246 = 4.947113487115154d-2*rhoa*t245+2.473556743557577d-2*t 2776 1 115 2777 t247 = t111**2 2778 t248 = t110**2 2779 t249 = -4.014991205359595d-2*gammaaa*t176*t35*t37*t84-5.4356 2780 1 08843495963d-1*t110*t30*t35*t84-1.4772921749745757d-1*gam 2781 2 maaa*t109*t110*t33*t84+1.4772921749745757d-1*t109*t33*t39 2782 3 +5.435608843495963d-1*gammaaa*t178*t248*t30*t35 2783 t250 = t113**2 2784 t251 = -4.947113487115154d-2*rhoa*t184*t250 2785 t252 = t112**2 2786 t253 = -6.794511054369952d-2*t104*t112*t30*t94 2787 t254 = -9.233076093591093d-3*gammaaa*t104*t109*t112*t92 2788 t255 = 2.3082690233977732d-3*t109*t92*t97-3.136711879187181d 2789 1 -4*gammaaa*t104*t176*t94*t95+2.717804421747981d-1*gammaaa 2790 2 *t193*t252*t30*t94+t254+t253 2791 t256 = 4.947113487115154d-2*rhoa*t255*t99 2792 t257 = 4.6165380467955464d-3*t109*t92*t97-6.273423758374362d 2793 1 -4*gammaaa*t104*t176*t94*t95+2.717804421747981d-1*gammaaa 2794 2 *t112*t114*t193*t30*t94-3.397255527184976d-2*t104*t114*t3 2795 3 0*t94-4.6165380467955464d-3*gammaaa*t104*t109*t114*t92+t2 2796 4 54+t253 2797 t258 = t115**2 2798 t259 = t114**2 2799 t260 = 9.233076093591093d-3*t109*t92*t97-1.2546847516748727d 2800 1 -3*gammaaa*t104*t176*t94*t95+2.717804421747981d-1*gammaaa 2801 2 *t193*t259*t30*t94-1.3589022108739904d-1*t104*t114*t30*t9 2802 3 4-1.8466152187182186d-2*gammaaa*t104*t109*t114*t92 2803 t261 = 1/rhoa**3.333333333333333d+0 2804 t262 = 8.48131310861104d-4*t261*t49 2805 t263 = 1/rhoa**3 2806 t264 = -2.1809090850714105d-3*t117*t52*t59 2807 t265 = 3.37738d-2*t125*(1.1876045553756398d-1*t122*t3*t56-1. 2808 1 425125466450768d+0*t2*(7.016926042943222d-1*t3*(-5.847438 2809 2 369119352d-2*t119*t55*t56-6.883279156869946d-4*t54)-5.847 2810 3 438369119352d-2*t120*t55*t56)/t121**2)/t123-3.08334765235 2811 4 9653d-4*t124*t51 2812 t266 = -3.2713636276071156d-3*t128*t129*t51 2813 t267 = 3.2713636276071156d-3*t138*t51*t52 2814 t268 = -1.243628d-1*t50*t59**3/t48**3 2815 t269 = 1.865442d-1*t128*t138*t50*t59 2816 t270 = 1/rhoa**3.3333333333333337d+0 2817 t271 = 1/rhoa**2.666666666666667d+0 2818 t272 = 1/t2**7 2819 t273 = 1/rhoa**2.0d+0 2820 t274 = -6.21814d-2*t50*t52*(-8.550752798704606d+0*t2*t58**3/ 2821 1 t46**4+2.969011388439098d-2*t53*t54*t55*t58+1.18760455537 2822 2 56398d-1*t134*t3*t53*t58+8.550752798704606d+0*t131*t137*t 2823 3 2*t58-1.425125466450768d+0*t2*t53*(5.847438369119352d-2*t 2824 4 134*t55*t57+4.385578776839513d-2*t135*t54*t57-1.754231510 2825 5 7358056d-1*t136*t55*t56+7.016926042943222d-1*t3*(-1.62428 2826 6 84358664864d-2*t271*t44*t55-6.091081634499322d-3*t272*t27 2827 7 3*t44-1.4618595922798375d-2*t133*t135*t44-1.1615990756816 2828 8 77d-3*t270)-1.6242884358664864d-2*t271*t45*t55-6.09108163 2829 9 4499322d-3*t272*t273*t45-1.4618595922798375d-2*t133*t135* 2830 : t45)-3.5628136661269194d-1*t137*t3*t53*t56+7.125627332253 2831 ; 839d-1*t131*t132*t3*t56+9.89670462813033d-3*t133*t47*t55+ 2832 < 3.29890154271011d-2*t271*t3*t47+2.474176157032582d-3*t135 2833 = *t273*t47) 2834 t275 = t274+t269+t268+t267+t266+7.500000000000002d-1*t126*t2 2835 1 65+t264-2.533035d-2*t124*t125*t263+t262 2836 t276 = 1/t16**3 2837 t277 = t70**3 2838 t278 = -7.617854707500852d+0*t2*t69**3/t14**4+1.058035376041 2839 1 7849d-1*t54*t55*t67*t69+4.2321415041671406d-1*t134*t3*t67 2840 2 *t69+7.617854707500852d+0*t150*t153*t2*t69-1.269642451250 2841 3 142d+0*t2*t67*(2.625411059665811d-1*t134*t55*t68+1.969058 2842 4 2947493582d-1*t135*t54*t68-3.9381165894987163d-1*t152*t55 2843 5 *t56+7.876233178997433d-1*t3*(-1.4585616998143394d-1*t12* 2844 6 t271*t55-5.469606374303773d-2*t12*t272*t273-1.17081850159 2845 7 18181d-2*t270-1.3127055298329054d-1*t12*t133*t135)-1.4585 2846 8 616998143394d-1*t13*t271*t55-5.469606374303773d-2*t13*t27 2847 9 2*t273-1.3127055298329054d-1*t13*t133*t135)-6.34821225625 2848 : 071d-1*t153*t3*t56*t67+1.269642451250142d+0*t150*t151*t3* 2849 ; t56+7.053569173611901d-2*t133*t15*t55+2.3511897245373004d 2850 < -1*t15*t271*t3+1.763392293402975d-2*t135*t15*t273 2851 t279 = 1/t23**3 2852 t280 = t75**3 2853 t281 = -7.617854707500852d+0*t2*t74**3/t21**4+1.058035376041 2854 1 7849d-1*t54*t55*t72*t74+4.2321415041671406d-1*t134*t3*t72 2855 2 *t74+7.617854707500852d+0*t157*t160*t2*t74-1.269642451250 2856 3 142d+0*t2*t72*(2.625411059665811d-1*t134*t55*t73+1.969058 2857 4 2947493582d-1*t135*t54*t73-3.9381165894987163d-1*t159*t55 2858 5 *t56+7.876233178997433d-1*t3*(-1.4585616998143394d-1*t19* 2859 6 t271*t55-5.469606374303773d-2*t19*t272*t273-6.40793135650 2860 7 9611d-3*t270-1.3127055298329054d-1*t133*t135*t19)-1.45856 2861 8 16998143394d-1*t20*t271*t55-5.469606374303773d-2*t20*t272 2862 9 *t273-1.3127055298329054d-1*t133*t135*t20)-6.348212256250 2863 : 71d-1*t160*t3*t56*t72+1.269642451250142d+0*t157*t158*t3*t 2864 ; 56+7.053569173611901d-2*t133*t22*t55+2.3511897245373004d- 2865 < 1*t22*t271*t3+1.763392293402975d-2*t135*t22*t273 2866 t282 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(4 2867 1 .1099018897499934d-3*t261*t9-6.21814d-2*t11*t65**3/t8**3+ 2868 2 1.0991093056753751d-2*t117*t66*t70-1.865442d-1*t148*t154* 2869 3 t18*t70-3.10907d-2*t11*t61*(7.053569173611901d-2*t133*t55 2870 4 *t7+2.3511897245373004d-1*t271*t3*t7+1.763392293402975d-2 2871 5 *t135*t273*t7-7.617854707500852d+0*t2*t64**3/t6**4+1.0580 2872 6 353760417849d-1*t54*t55*t62*t64+4.2321415041671406d-1*t13 2873 7 4*t3*t62*t64+7.617854707500852d+0*t143*t146*t2*t64-1.2696 2874 8 42451250142d+0*t2*t62*(2.625411059665811d-1*t134*t55*t63+ 2875 9 1.9690582947493582d-1*t135*t54*t63-3.9381165894987163d-1* 2876 : t145*t55*t56+7.876233178997433d-1*t3*(-1.4585616998143394 2877 ; d-1*t271*t4*t55-5.469606374303773d-2*t272*t273*t4-1.31270 2878 < 55298329054d-1*t133*t135*t4-7.424439106586571d-3*t270)-1. 2879 = 4585616998143394d-1*t271*t5*t55-5.469606374303773d-2*t272 2880 > *t273*t5-1.3127055298329054d-1*t133*t135*t5)-6.3482122562 2881 ? 5071d-1*t146*t3*t56*t62+1.269642451250142d+0*t143*t144*t3 2882 @ *t56)-8.243319792565315d-3*t154*t51*t66+6.21814d-2*t18*t2 2883 1 78*t66-5.284159572535706d-3*t117*t61*t65+9.32720999999999 2884 2 9d-2*t11*t141*t147*t65+3.96311967940178d-3*t147*t51*t61+8 2885 3 .243319792565315d-3*t148*t149*t51-3.96311967940178d-3*t14 2886 4 1*t142*t51+1.243628d-1*t18*t276*t277-8.548627933030694d-3 2887 5 *t17*t261)-3.107819689081493d-3*t117*t71*t75+1.013214d-1* 2888 6 t155*t161*t25*t75+2.33086476681112d-3*t161*t51*t71-3.3773 2889 7 8d-2*t25*t281*t71-2.33086476681112d-3*t155*t156*t51-6.754 2890 8 76d-2*t25*t279*t280+2.4171930915078277d-3*t24*t261)+3.107 2891 9 819689081493d-3*t117*t71*t75-1.013214d-1*t155*t161*t25*t7 2892 : 5-2.33086476681112d-3*t161*t51*t71+3.37738d-2*t25*t281*t7 2893 ; 1+2.33086476681112d-3*t155*t156*t51+6.75476d-2*t25*t279*t 2894 < 280-2.4171930915078277d-3*t24*t261)-1.0991093056753751d-2 2895 = *t117*t66*t70+1.865442d-1*t148*t154*t18*t70+8.24331979256 2896 > 5315d-3*t154*t51*t66-6.21814d-2*t18*t278*t66-8.2433197925 2897 ? 65315d-3*t148*t149*t51-1.243628d-1*t18*t276*t277+8.548627 2898 @ 933030694d-3*t17*t261 2899 t283 = rhoa**5.000000000000002d-1 2900 t284 = 1/rhoa**6.666666666666665d-1 2901 t285 = 1/rhoa**1.8333333333333332d+0 2902 t286 = t76**3 2903 t287 = exp(-2.4256569070538234d+2*t26) 2904 t288 = 8.619732841431575d+5*gammaaa*t286*t287*t30/t32**4 2905 t289 = -2.4874964680519085d+4*gammaaa*t165*t166*t167*t78*t79 2906 t290 = -8.619732841431575d+5*gammaaa*t166*t167*t286*t30 2907 t291 = 1.0660699148793894d+4*gammaaa*t162*t166*t167*t30*t76 2908 t292 = -1.035785462955064d+1*gammaaa*t283*t33*t86 2909 t293 = 1.1097701388804264d+0*gammaaa*t109*t284*t33 2910 t294 = 8.807699514924018d-2*gammaaa*t285*t33*t79 2911 t295 = 5.383843205234772d+2*gammaaa*t109*t163*t31*t76*t81 2912 t296 = -2.563734859635607d+1*gammaaa*t164*t31*t76*t79*t81 2913 t297 = 1.2437482340259542d+4*gammaaa*t165*t31*t78*t79*t81 2914 t298 = -1.5382409157813634d+2*gammaaa*t162*t31*t78*t79*t81 2915 t299 = 1.436622140238596d+5*gammaaa*t286*t30*t31*t81 2916 t300 = -5.330349574396946d+3*gammaaa*t162*t30*t31*t76*t81 2917 t301 = 2.1974870225448048d+1*gammaaa*t282*t30*t31*t81 2918 t302 = 1/t29**7.0d+0 2919 t303 = 1/t38**4 2920 t304 = 1/t40**3 2921 t305 = 1/t98**3 2922 t306 = 9.894226974230308d-2*rhoa*t107**3*t305 2923 t307 = -2.473556743557577d-2*t185 2924 t308 = -t107*t215 2925 t309 = -6.473659143469149d-1*gammaaa*t283*t86*t94*t97 2926 t310 = 6.936063368002663d-2*gammaaa*t109*t284*t94*t97 2927 t311 = -3.963464781715806d-2*gammaaa*t103*t164*t79*t97 2928 t312 = 3.963464781715806d-2*gammaaa*t104*t106*t164*t79*t94 2929 t313 = 9.512315476117932d-1*gammaaa*t103*t104*t106*t78*t79 2930 t314 = -9.512315476117932d-1*gammaaa*t193*t194*t78*t79*t94 2931 t315 = 1/t96**4 2932 t316 = -8.153413265243942d-1*gammaaa*t106**3*t30*t315*t94 2933 t317 = -6.473659143469149d-1*gammaaa*t283*t86*t92 2934 t318 = 6.936063368002663d-2*gammaaa*t109*t284*t92 2935 t319 = -4.734138489271654d-2*gammaaa*t285*t79*t92 2936 t320 = -4.529674036246635d-2*gammaaa*t263*t30*t92 2937 t321 = 3.3649020032717303d+1*gammaaa*t101*t109*t163*t60*t90 2938 t322 = -1.602334287272253d+0*gammaaa*t101*t164*t60*t79*t90 2939 t323 = 7.773426462662208d+2*gammaaa*t101*t200*t78*t79*t90 2940 t324 = 4.756157738058966d-1*gammaaa*t101*t202*t78*t79*t90 2941 t325 = t60**3 2942 t326 = 8.978888376491218d+3*gammaaa*t101*t30*t325*t90 2943 t327 = 1.8312391854540025d+0*gammaaa*t101*t126*t30*t60*t90 2944 t328 = -2.0213807558781852d+1*t126*t60-1.2569228533356386d+0 2945 1 *t263*t49*t50-4.042761511756372d+1*t275 2946 t329 = -1.3589022108739904d-1*gammaaa*t101*t30*t328*t90 2947 t330 = 1.6481152669086024d+1*gammaaa*t101*t202*t30*t60*t90 2948 t331 = -1.5546852925324417d+3*gammaaa*t200*t204*t205*t78*t79 2949 t332 = -5.38733302589473d+4*gammaaa*t204*t205*t30*t325 2950 t333 = -3.296230533817205d+1*gammaaa*t202*t204*t205*t30*t60 2951 t334 = exp(7.54153712001383d+0*t49*t50) 2952 t335 = 5.387333025894729d+4*gammaaa*t30*t325*t334/t91**4 2953 t336 = -4.398534861252425d-1*t283*t302*t85*t95 2954 t337 = 3.141810615180306d-2*t176*t284*t85*t95 2955 t338 = 2.4402862532009373d+3*t105*t325*t36*t90 2956 t339 = -2.1962576278808435d+4*t205*t211*t325*t36 2957 t340 = 2.928343503841125d+4*t325*t334*t36/t91**5.0d+0 2958 t341 = t274+t269+t268+t267+t266-2.4999999999999994d-1*t126*t 2959 1 265+t264+8.44345d-3*t124*t125*t263+t262 2960 t342 = 2.3120211226675536d-2*gammaaa*t285*t79*t92 2961 t343 = 1.5098913454155452d-2*gammaaa*t263*t30*t92 2962 t344 = -1.602334287272253d+0*gammaaa*t101*t164*t60*t79*t90 2963 t345 = 7.77342646266221d+2*gammaaa*t101*t200*t78*t79*t90 2964 t346 = 3.170771825372644d-1*gammaaa*t101*t220*t78*t79*t90 2965 t347 = 1.585385912686322d-1*gammaaa*t101*t202*t78*t79*t90 2966 t348 = -6.104130618180013d-1*gammaaa*t101*t126*t30*t60*t90 2967 t349 = 6.737935852927288d+0*t126*t60+4.189742844452128d-1*t2 2968 1 63*t49*t50-4.042761511756372d+1*t341 2969 t350 = -1.3589022108739904d-1*gammaaa*t101*t30*t349*t90 2970 t351 = 1.0987435112724019d+1*gammaaa*t101*t220*t30*t60*t90 2971 t352 = 5.493717556362009d+0*gammaaa*t101*t202*t30*t60*t90 2972 t353 = -1.554685292532442d+3*gammaaa*t200*t204*t205*t78*t79 2973 t354 = -2.1974870225448037d+1*gammaaa*t204*t205*t220*t30*t60 2974 t355 = -1.0987435112724019d+1*gammaaa*t202*t204*t205*t30*t60 2975 t356 = 3.553566382931298d+3*t165*t166*t167*t30 2976 t357 = 2.2195402777608514d+0*t109*t163*t33 2977 t358 = -1.0569239417908823d-1*t164*t33*t79 2978 t359 = -1.0254939438542422d+2*t31*t76*t78*t79*t81 2979 t360 = -1.776783191465649d+3*t165*t30*t31*t81 2980 t361 = 2.1974870225448048d+1*t162*t30*t31*t81 2981 t362 = 9.894226974230308d-2*rhoa*t113*t185*t305 2982 t363 = 4.947113487115154d-2*t238 2983 t364 = -2.774425347201063d-1*gammaaa*t104*t109*t112*t163*t94 2984 t365 = 1.321154927238602d-2*gammaaa*t104*t112*t164*t79*t94 2985 t366 = 6.936063368002658d-2*t109*t163*t94*t97 2986 t367 = -3.3028873180965046d-3*t164*t79*t94*t97 2987 t368 = 9.425431845540909d-3*gammaaa*t163*t176*t92*t97 2988 t369 = -4.488300878829006d-4*gammaaa*t164*t86*t92*t97 2989 t370 = -3.170771825372644d-1*gammaaa*t236*t78*t79*t97 2990 t371 = 3.170771825372644d-1*gammaaa*t104*t237*t78*t79*t94 2991 t372 = 3.170771825372644d-1*gammaaa*t103*t104*t112*t78*t79 2992 t373 = -7.926929563431611d-2*t103*t78*t79*t97 2993 t374 = -2.717804421747981d-1*gammaaa*t103*t104*t237*t30 2994 t375 = -6.341543650745288d-1*gammaaa*t106*t112*t193*t78*t79* 2995 1 t94 2996 t376 = 7.926929563431611d-2*t104*t106*t78*t79*t94 2997 t377 = 1.0771922109189608d-2*gammaaa*t104*t106*t78*t86*t92 2998 t378 = -2.717804421747981d-1*gammaaa*t104*t106*t236*t30 2999 t379 = 5.435608843495962d-1*gammaaa*t106*t193*t237*t30*t94 3000 t380 = 5.435608843495962d-1*gammaaa*t103*t106*t112*t193*t30 3001 t381 = -6.794511054369952d-2*t103*t104*t106*t30 3002 t382 = -8.153413265243942d-1*gammaaa*t112*t194*t30*t315*t94 3003 t383 = 6.794511054369952d-2*t193*t194*t30*t94 3004 t384 = 9.233076093591093d-3*gammaaa*t109*t193*t194*t92 3005 t385 = 6.936063368002658d-2*t109*t163*t92 3006 t386 = -3.3028873180965046d-3*t164*t79*t92 3007 t387 = 3.774728363538861d-3*t126*t30*t92 3008 t388 = -3.204668574544505d+0*t101*t60*t78*t79*t90 3009 t389 = -5.55244747333015d+1*t101*t200*t30*t90 3010 t390 = -3.397255527184976d-2*t101*t202*t30*t90 3011 t391 = 1.1104894946660299d+2*t200*t204*t205*t30 3012 t392 = 6.283621230360608d-2*gammaaa*t163*t176*t95 3013 t393 = -1.795320351531602d-3*gammaaa*t164*t86*t95 3014 t394 = -3.4838649688535417d+0*gammaaa*t105*t60*t78*t86*t90 3015 t395 = 9.054279776724049d+1*gammaaa*t109*t200*t205*t211 3016 t396 = (4.947113487115154d-2*rhoa*(3.774728363538861d-3*t126 3017 1 *t30*t94*t97+5.129486718661717d-4*gammaaa*t109*t126*t92*t 3018 2 97+1.3589022108739904d-1*gammaaa*t30*(t391+t390+t389+t388 3019 3 +t387+t386+t385)*t97+3.397255527184976d-2*t207*t30*t97-1. 3020 4 3589022108739904d-1*gammaaa*t104*t30*t94*(2.0517946874646 3021 5 867d-3*gammaaa*t109*t126*t95-1.8466152187182186d-2*gammaa 3022 6 a*t105*t109*t202*t90-3.018093258908016d+1*gammaaa*t105*t1 3023 7 09*t200*t90+t395+t394+t393+t392+t391+t390+t389+t388+t387+ 3024 8 t386+t385)+2.717804421747981d-1*gammaaa*t112*t193*t213*t3 3025 9 0*t94-3.397255527184976d-2*t104*t213*t30*t94-1.5098913454 3026 : 155444d-2*gammaaa*t104*t112*t126*t30*t94-4.61653804679554 3027 ; 64d-3*gammaaa*t104*t109*t213*t92+t384+t383+t382+t381+t380 3028 < +t379+t378+t377+t376+t375+t374+t373+t372+t371+t370+t369+t 3029 = 368+t367+t366+t365+t364-1.3589022108739904d-1*gammaaa*t10 3030 > 4*t112*t207*t30)+t363-8.245189145191921d-3*t113*t216)*t99 3031 t397 = -9.894226974230308d-2*rhoa*t107*t238 3032 t398 = t184*(t397-t113*t215) 3033 t399 = 9.894226974230308d-2*rhoa*t115*t185*t305 3034 t400 = 4.947113487115154d-2*t245 3035 t401 = -2.774425347201063d-1*gammaaa*t104*t109*t114*t163*t94 3036 t402 = 1.321154927238602d-2*gammaaa*t104*t114*t164*t79*t94 3037 t403 = 1.3872126736005316d-1*t109*t163*t94*t97 3038 t404 = -6.605774636193009d-3*t164*t79*t94*t97 3039 t405 = 1.885086369108182d-2*gammaaa*t163*t176*t92*t97 3040 t406 = -8.976601757658011d-4*gammaaa*t164*t86*t92*t97 3041 t407 = -3.170771825372644d-1*gammaaa*t243*t78*t79*t97 3042 t408 = 3.170771825372644d-1*gammaaa*t104*t244*t78*t79*t94 3043 t409 = 3.170771825372644d-1*gammaaa*t103*t104*t114*t78*t79 3044 t410 = -1.585385912686322d-1*t103*t78*t79*t97 3045 t411 = -2.717804421747981d-1*gammaaa*t103*t104*t244*t30 3046 t412 = -6.341543650745288d-1*gammaaa*t106*t114*t193*t78*t79* 3047 1 t94 3048 t413 = 1.585385912686322d-1*t104*t106*t78*t79*t94 3049 t414 = 2.1543844218379216d-2*gammaaa*t104*t106*t78*t86*t92 3050 t415 = -2.717804421747981d-1*gammaaa*t104*t106*t243*t30 3051 t416 = 5.435608843495962d-1*gammaaa*t106*t193*t244*t30*t94 3052 t417 = 5.435608843495962d-1*gammaaa*t103*t106*t114*t193*t30 3053 t418 = -1.3589022108739904d-1*t103*t104*t106*t30 3054 t419 = -8.153413265243942d-1*gammaaa*t114*t194*t30*t315*t94 3055 t420 = 1.3589022108739904d-1*t193*t194*t30*t94 3056 t421 = 1.8466152187182186d-2*gammaaa*t109*t193*t194*t92 3057 t422 = 1.3872126736005316d-1*t109*t163*t92 3058 t423 = -6.605774636193009d-3*t164*t79*t92 3059 t424 = 7.549456727077722d-3*t126*t30*t92 3060 t425 = -6.40933714908901d+0*t101*t60*t78*t79*t90 3061 t426 = -1.1104894946660299d+2*t101*t200*t30*t90 3062 t427 = -6.794511054369952d-2*t101*t202*t30*t90 3063 t428 = 2.2209789893320597d+2*t200*t204*t205*t30 3064 t429 = 1.2567242460721215d-1*gammaaa*t163*t176*t95 3065 t430 = -3.590640703063204d-3*gammaaa*t164*t86*t95 3066 t431 = -6.967729937707083d+0*gammaaa*t105*t60*t78*t86*t90 3067 t432 = 1.8108559553448098d+2*gammaaa*t109*t200*t205*t211 3068 t433 = -9.894226974230308d-2*rhoa*t107*t245 3069 t434 = -3.774728363538862d-3*t126*t30*t92 3070 t435 = -5.552447473330149d+1*t101*t200*t30*t90 3071 t436 = -3.397255527184976d-2*t101*t220*t30*t90 3072 t437 = 1.1104894946660297d+2*t200*t204*t205*t30 3073 t438 = -7.549456727077724d-3*t126*t30*t92 3074 t439 = -1.1104894946660297d+2*t101*t200*t30*t90 3075 t440 = -6.794511054369952d-2*t101*t220*t30*t90 3076 t441 = 2.2209789893320595d+2*t200*t204*t205*t30 3077 t442 = 9.894226974230308d-2*rhoa*t107*t250*t305 3078 t443 = 7.926929563431611d-2*t104*t112*t78*t79*t94 3079 t444 = 1.0771922109189608d-2*gammaaa*t104*t112*t78*t86*t92 3080 t445 = 6.794511054369952d-2*t236*t30*t97 3081 t446 = -6.794511054369952d-2*t104*t237*t30*t94 3082 t447 = -9.233076093591093d-3*gammaaa*t104*t109*t237*t92 3083 t448 = -6.794511054369952d-2*t103*t104*t112*t30 3084 t449 = 1.3589022108739904d-1*t106*t112*t193*t30*t94 3085 t450 = 1.8466152187182186d-2*gammaaa*t106*t109*t112*t193*t92 3086 t451 = (4.947113487115154d-2*rhoa*(-2.692980527297402d-3*t78 3087 1 *t86*t92*t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*( 3088 2 1.866356233314397d-1*t105*t109*t60*t90-5.385961054594804d 3089 3 -3*t78*t86*t95)+3.6594971923850445d-4*gammaaa*t104*t302*t 3090 4 78*t94*t95+6.273423758374362d-4*gammaaa*t106*t176*t193*t9 3091 5 4*t95-3.136711879187181d-4*gammaaa*t103*t104*t176*t95-3.1 3092 6 70771825372644d-1*gammaaa*t193*t252*t78*t79*t94-8.1534132 3093 7 65243942d-1*gammaaa*t106*t252*t30*t315*t94+5.435608843495 3094 8 962d-1*gammaaa*t112*t193*t237*t30*t94-2.3082690233977732d 3095 9 -3*t104*t106*t109*t92+t450+t449+t448+t447+t446+t445+t444+ 3096 : t443+2.717804421747981d-1*gammaaa*t103*t193*t252*t30-2.71 3097 ; 7804421747981d-1*gammaaa*t104*t112*t236*t30)+2.4735567435 3098 < 57577d-2*t255)*t99 3099 t452 = t184*(-4.947113487115154d-2*rhoa*t107*t255-t113*t239- 3100 1 4.947113487115154d-2*rhoa*t113*t238) 3101 t453 = 9.894226974230308d-2*rhoa*t107*t113*t115*t305 3102 t454 = (4.947113487115154d-2*rhoa*(-5.385961054594804d-3*t78 3103 1 *t86*t92*t97+3.397255527184976d-2*t243*t30*t97-1.35890221 3104 2 08739904d-1*gammaaa*t104*t30*t94*(3.732712466628794d-1*t1 3105 3 05*t109*t60*t90-1.0771922109189608d-2*t78*t86*t95)+7.3189 3106 4 94384770089d-4*gammaaa*t104*t302*t78*t94*t95+1.2546847516 3107 5 748727d-3*gammaaa*t106*t176*t193*t94*t95-6.27342375837436 3108 6 2d-4*gammaaa*t103*t104*t176*t95-3.170771825372644d-1*gamm 3109 7 aaa*t112*t114*t193*t78*t79*t94+3.9634647817158053d-2*t104 3110 8 *t114*t78*t79*t94-8.153413265243942d-1*gammaaa*t106*t112* 3111 9 t114*t30*t315*t94+2.717804421747981d-1*gammaaa*t112*t193* 3112 : t244*t30*t94-3.397255527184976d-2*t104*t244*t30*t94+2.717 3113 ; 804421747981d-1*gammaaa*t114*t193*t237*t30*t94+6.79451105 3114 < 4369952d-2*t106*t114*t193*t30*t94+5.385961054594804d-3*ga 3115 = mmaaa*t104*t114*t78*t86*t92-4.6165380467955464d-3*gammaaa 3116 > *t104*t109*t244*t92+9.233076093591093d-3*gammaaa*t106*t10 3117 ? 9*t114*t193*t92-4.6165380467955464d-3*t104*t106*t109*t92+ 3118 @ t450+t449+t448+t447+t446+t445+t444+t443-1.358902210873990 3119 1 4d-1*gammaaa*t104*t112*t243*t30-1.3589022108739904d-1*gam 3120 2 maaa*t104*t114*t236*t30+2.717804421747981d-1*gammaaa*t103 3121 3 *t112*t114*t193*t30-3.397255527184976d-2*t103*t104*t114*t 3122 4 30)+2.473556743557577d-2*t257)*t99 3123 t455 = -4.947113487115154d-2*rhoa*t107*t257 3124 t456 = (t452+t451+t442)*wght 3125 t457 = 1/t29**8.0d+0 3126 t458 = 9.894226974230308d-2*rhoa*t113**3*t305 3127 t459 = 4.947113487115154d-2*rhoa*(1.882027127512309d-3*gamma 3128 1 aa*t112*t176*t193*t94*t95-2.3525339093903863d-4*t104*t176 3129 2 *t94*t95-8.153413265243942d-1*gammaaa*t112**3*t30*t315*t9 3130 3 4+2.0383533163109854d-1*t193*t252*t30*t94+2.7699228280773 3131 4 28d-2*gammaaa*t109*t193*t252*t92-6.92480707019332d-3*t104 3132 5 *t109*t112*t92-3.1968635306266263d-5*gammaaa*t104*t105*t4 3133 6 57)*t99 3134 t460 = -1.4841340461345462d-1*rhoa*t113*t184*t255 3135 t461 = 2.5093695033497454d-3*gammaaa*t112*t176*t193*t94*t95 3136 t462 = -9.233076093591093d-3*t104*t109*t112*t92 3137 t463 = (4.947113487115154d-2*rhoa*(6.273423758374362d-4*gamm 3138 1 aaa*t114*t176*t193*t94*t95-4.7050678187807726d-4*t104*t17 3139 2 6*t94*t95-8.153413265243942d-1*gammaaa*t114*t252*t30*t315 3140 3 *t94+1.3589022108739904d-1*t193*t252*t30*t94+1.3589022108 3141 4 739904d-1*t112*t114*t193*t30*t94+1.8466152187182186d-2*ga 3142 5 mmaaa*t109*t193*t252*t92+1.8466152187182186d-2*gammaaa*t1 3143 6 09*t112*t114*t193*t92-2.3082690233977732d-3*t104*t109*t11 3144 7 4*t92+t462+t461-6.393727061253253d-5*gammaaa*t104*t105*t4 3145 8 57)*t99+9.894226974230308d-2*rhoa*t115*t250*t305+t184*(-9 3146 9 .894226974230308d-2*rhoa*t113*t257-4.947113487115154d-2*r 3147 : hoa*t115*t255))*wght 3148 fnc(iq) = (4.947113487115154d-2*rhoa*log(1.35890221087399d-1 3149 1 *gammaaa*t30*(t43+1.0d+0)/(t43+1.8466152187182178d-2*t36/ 3150 2 t42**2.0d+0+1.0d+0)+1.0d+0)-2.4735567435575762d-2*rhoa*t4 3151 3 1-1.243628d-1*rhoa*t27*t28-2.0d+0*rhoa*t26)*wght+fnc(iq) 3152 Amat(iq,D1_RA) = (4.947113487115154d-2*rhoa*t107*t99-1.23677 3153 1 83717787881d-2*rhoa*t77*t89-1.0d+0*rhoa*t76+2.0d+0*rhoa*t 3154 2 60-6.21814d-2*t49*t50-1.2367783717787881d-2*t41-1.0d+0*t2 3155 3 6+2.473556743557577d-2*t108)*wght+Amat(iq,D1_RA) 3156 Cmat(iq,D1_GAA) = (4.947113487115154d-2*rhoa*t113*t99-1.2367 3157 1 783717787881d-2*rhoa*t111*t77)*wght+Cmat(iq,D1_GAA) 3158 Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t115*t99*wght+Cm 3159 1 at(iq,D1_GAB) 3160 Amat2(iq,D2_RA_RA) = (t215*t99+t181*t77-2.0d+0*t76-8.2451891 3161 1 45191921d-3*t108*t216+t186+1.2367783717787881d-2*rhoa*t18 3162 2 2*t183-1.0d+0*rhoa*t162+2.0d+0*rhoa*t140+t116)*wght+Amat2 3163 3 (iq,D2_RA_RA) 3164 Amat2(iq,D2_RA_RB) = (t226*t99+2.0d+0*rhoa*t217+8.2451891451 3165 1 91922d-3*t108*t216+t186+t116)*wght+Amat2(iq,D2_RA_RB) 3166 Cmat2(iq,D2_RA_GAA) = (1.2367783717787881d-2*rhoa*t111*t182* 3167 1 t89+t232*t77+t240+t233)*wght+Cmat2(iq,D2_RA_GAA) 3168 Cmat2(iq,D2_RA_GAB) = (t246*t99-4.947113487115154d-2*rhoa*t1 3169 1 07*t115*t184)*wght+Cmat2(iq,D2_RA_GAB) 3170 Cmat2(iq,D2_RA_GBB) = (t240+t233)*wght+Cmat2(iq,D2_RA_GBB) 3171 Cmat2(iq,D2_GAA_GAA) = (-1.2367783717787881d-2*rhoa*t249*t77 3172 1 +t256+t251+1.2367783717787881d-2*rhoa*t182*t247)*wght+Cma 3173 2 t2(iq,D2_GAA_GAA) 3174 Cmat2(iq,D2_GAA_GAB) = (4.947113487115154d-2*rhoa*t257*t99-4 3175 1 .947113487115154d-2*rhoa*t113*t115*t184)*wght+Cmat2(iq,D2 3176 2 _GAA_GAB) 3177 Cmat2(iq,D2_GAA_GBB) = (t256+t251)*wght+Cmat2(iq,D2_GAA_GBB) 3178 Cmat2(iq,D2_GAB_GAB) = 4.947113487115154d-2*rhoa*t260*t99*wg 3179 1 ht-4.947113487115154d-2*rhoa*t184*t258*wght+Cmat2(iq,D2_G 3180 2 AB_GAB) 3181 Amat3(iq,D3_RA_RA_RA) = ((4.947113487115154d-2*rhoa*(-4.7341 3182 1 38489271654d-2*gammaaa*t285*t79*t94*t97-4.529674036246635 3183 2 d-2*gammaaa*t263*t30*t94*t97-4.756157738058966d-1*gammaaa 3184 3 *t207*t78*t79*t97+1.3589022108739904d-1*gammaaa*t30*(t335 3185 4 +t333+t332+t331+t330+t329+t327+t326+t324+t323+t322+t321+t 3186 5 320+t319+t318+t317)*t97+4.529674036246633d-2*gammaaa*t103 3187 6 *t126*t30*t97+8.32327604160319d-1*gammaaa*t103*t109*t163* 3188 7 t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*(-2.722902 3189 8 533156262d-2*t285*t85*t86*t95-1.2310768124788125d-2*t263* 3190 9 t36*t95+2.5852613062055063d-1*t105*t202*t78*t85*t86*t90+4 3191 : .2253305624712234d+2*t105*t200*t78*t85*t86*t90-8.70966242 3192 ; 2133856d-1*t105*t164*t60*t85*t86*t90+3.04838184774685d+1* 3193 < t105*t163*t176*t60*t85*t90+4.4792549599545534d+0*t105*t20 3194 = 2*t36*t60*t90+9.953899911010116d-1*t105*t126*t36*t60*t90- 3195 > 3.693230437436437d-2*t105*t328*t36*t90-1.2675991687413668 3196 ? d+3*t200*t205*t211*t78*t85*t86-1.343776487986366d+1*t202* 3197 @ t205*t211*t36*t60+t340+t339+t338+t337+t336+t335+t333+t332 3198 1 +t331+t330+t329+t327+t326+t324+t323+t322+t321+t320+t319+t 3199 2 318+t317)+4.756157738058966d-1*gammaaa*t104*t213*t78*t79* 3200 3 t94+8.153413265243942d-1*gammaaa*t106*t193*t213*t30*t94-4 3201 4 .529674036246633d-2*gammaaa*t104*t106*t126*t30*t94-8.3232 3202 5 7604160319d-1*gammaaa*t104*t106*t109*t163*t94+t316+t314+t 3203 6 313+t312+t311+t310+t309-4.076706632621971d-1*gammaaa*t103 3204 7 *t104*t213*t30-4.076706632621971d-1*gammaaa*t104*t106*t20 3205 8 7*t30+8.153413265243942d-1*gammaaa*t103*t193*t194*t30)-2. 3206 9 473556743557576d-2*t107*t216+7.420670230672731d-2*t214)*t 3207 : 99-2.4735567435575762d-2*rhoa*t304*t89**3+t182*(-t181*t89 3208 ; +2.4735567435575762d-2*rhoa*t180*t89+1.2367783717787881d- 3209 < 2*t183)+t77*(-1.2367783717787881d-2*rhoa*(-1.630682653048 3210 = 789d+0*gammaaa*t30*t303*t35*t88**3+3.8049261904471743d+0* 3211 > gammaaa*t78*t79*t83*t84*t88+3.170771825372647d-1*gammaaa* 3212 ? t164*t35*t79*t84*t88-6.658620833282555d+0*gammaaa*t109*t1 3213 @ 63*t35*t84*t88-8.153413265243944d-1*gammaaa*t174*t30*t84* 3214 1 t88+1.630682653048789d+0*gammaaa*t177*t178*t30*t35*t88-2. 3215 2 7178044217479813d-1*gammaaa*t30*t35*t84*(1.35210577999079 3216 3 26d+4*t165*t31*t78*t85*t86*t87-1.6722551850497014d+2*t162 3217 4 *t31*t78*t85*t86*t87-2.787091975082837d+1*t164*t31*t76*t8 3218 5 5*t86*t87+9.754821912789926d+2*t163*t176*t31*t76*t85*t87- 3219 6 2.8973695285516987d+3*t162*t31*t36*t76*t87+7.808916010243 3220 7 009d+4*t286*t31*t36*t87+1.1944679893212153d+1*t282*t31*t3 3221 8 6*t87-4.0563173399723773d+4*t165*t166*t175*t78*t85*t86+4. 3222 9 78752093741761d-2*t285*t37*t85*t86-1.4075311556007766d+1* 3223 : t283*t302*t37*t85+1.0053793968576981d+0*t176*t284*t37*t85 3224 ; +8.692108585655094d+3*t162*t166*t175*t36*t76+9.3706992122 3225 < 9161d+5*t286*t287*t36/t32**5.0d+0-7.028024409218707d+5*t1 3226 = 66*t175*t286*t36+t301+t300+t299+t298+t297+t296+t295+t294+ 3227 > t293+t292+t291+t290+t289+t288)-1.035785462955064d+1*gamma 3228 ? aa*t283*t35*t39*t86-8.153413265243944d-1*gammaaa*t177*t30 3229 @ *t83*t84+1.9024630952235871d+0*gammaaa*t177*t35*t78*t79*t 3230 1 84-3.170771825372647d-1*gammaaa*t164*t39*t79*t83+6.658620 3231 2 833282555d+0*gammaaa*t109*t163*t39*t83+1.630682653048789d 3232 3 +0*gammaaa*t178*t179*t30*t83-1.9024630952235871d+0*gammaa 3233 4 a*t174*t39*t78*t79-3.8049261904471743d+0*gammaaa*t178*t17 3234 5 9*t35*t78*t79+8.807699514924018d-2*gammaaa*t285*t35*t39*t 3235 6 79+1.1097701388804264d+0*gammaaa*t109*t284*t35*t39+2.7178 3236 7 044217479813d-1*gammaaa*t30*(t301+t300+t299+t298+t297+t29 3237 8 6+t295+t294+t293+t292+t291+t290+t289+t288)*t39)-3.7103351 3238 9 15336365d-2*t180)+t184*(t308+t307-9.894226974230308d-2*rh 3239 : oa*t107*t214)+t306-1.0d+0*rhoa*t282+2.0d+0*rhoa*t275-3.0d 3240 ; +0*t162+3.0d+0*t140+1.2367783717787893d-2*t108*t126)*wght 3241 < +Amat3(iq,D3_RA_RA_RA) 3242 Amat3(iq,D3_RA_RA_RB) = ((4.947113487115154d-2*rhoa*(2.31202 3243 1 11226675536d-2*gammaaa*t285*t79*t94*t97+1.509891345415545 3244 2 2d-2*gammaaa*t263*t30*t94*t97-3.170771825372644d-1*gammaa 3245 3 a*t223*t78*t79*t97-1.585385912686322d-1*gammaaa*t207*t78* 3246 4 t79*t97+1.3589022108739904d-1*gammaaa*t30*(t355+t354+t353 3247 5 +t352+t351+t350+t348+t347+t346+t345+t344+t343+t342+t335+t 3248 6 332+t326+t321+t318+t317)*t97-1.5098913454155452d-2*gammaa 3249 7 a*t103*t126*t30*t97+8.323276041603189d-1*gammaaa*t103*t10 3250 8 9*t163*t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*(1. 3251 9 1071142167778211d-2*t285*t85*t86*t95+4.103589374929375d-3 3252 : *t263*t36*t95+1.7235075374703374d-1*t105*t220*t78*t85*t86 3253 ; *t90+8.617537687351686d-2*t105*t202*t78*t85*t86*t90+4.225 3254 < 330562471223d+2*t105*t200*t78*t85*t86*t90-8.7096624221338 3255 = 57d-1*t105*t164*t60*t85*t86*t90+3.0483818477468494d+1*t10 3256 > 5*t163*t176*t60*t85*t90+2.9861699733030356d+0*t105*t220*t 3257 ? 36*t60*t90+1.4930849866515178d+0*t105*t202*t36*t60*t90-3. 3258 @ 317966637003373d-1*t105*t126*t36*t60*t90-3.69323043743643 3259 1 7d-2*t105*t349*t36*t90-1.267599168741367d+3*t200*t205*t21 3260 2 1*t78*t85*t86-8.958509919909107d+0*t205*t211*t220*t36*t60 3261 3 -4.4792549599545534d+0*t202*t205*t211*t36*t60+t355+t354+t 3262 4 353+t352+t351+t350+t348+t347+t346+t345+t344+t343+t342+t34 3263 5 0+t339+t338+t337+t336+t335+t332+t326+t321+t318+t317)+3.17 3264 6 0771825372644d-1*gammaaa*t104*t224*t78*t79*t94+1.58538591 3265 7 2686322d-1*gammaaa*t104*t213*t78*t79*t94+5.43560884349596 3266 8 2d-1*gammaaa*t106*t193*t224*t30*t94+2.717804421747981d-1* 3267 9 gammaaa*t106*t193*t213*t30*t94+1.5098913454155452d-2*gamm 3268 : aaa*t104*t106*t126*t30*t94-8.323276041603189d-1*gammaaa*t 3269 ; 104*t106*t109*t163*t94+t316+t314+t313+t312+t311+t310+t309 3270 < -2.717804421747981d-1*gammaaa*t103*t104*t224*t30-2.717804 3271 = 421747981d-1*gammaaa*t104*t106*t223*t30-1.358902210873990 3272 > 4d-1*gammaaa*t103*t104*t213*t30-1.3589022108739904d-1*gam 3273 ? maaa*t104*t106*t207*t30+8.153413265243943d-1*gammaaa*t103 3274 @ *t193*t194*t30)+4.947113487115154d-2*t225+8.2451891451919 3275 1 25d-3*t107*t216+2.473556743557577d-2*t214)*t99+2.0d+0*rho 3276 2 a*t341+t184*(t308+t307-9.894226974230308d-2*rhoa*t107*t22 3277 3 5)+t306+2.0d+0*t217+1.0d+0*t140-4.1225945725959623d-3*t10 3278 4 8*t126)*wght+Amat3(iq,D3_RA_RA_RB) 3279 Cmat3(iq,D3_RA_RA_GAA) = (t182*(2.4735567435575762d-2*rhoa*t 3280 1 231*t89-t111*t181)+t77*(-1.2367783717787881d-2*rhoa*(3.44 3281 2 70150749406775d-1*gammaaa*t33*t78*t84*t86*t88-5.435608843 3282 3 495963d-1*t30*t83*t84*t88+1.268308730149058d+0*t35*t78*t7 3283 4 9*t84*t88-5.435608843495963d-1*gammaaa*t229*t30*t84*t88+1 3284 5 .0871217686991926d+0*gammaaa*t110*t178*t30*t83*t88-2.5366 3285 6 17460298116d+0*gammaaa*t110*t178*t35*t78*t79*t88+1.087121 3286 7 7686991926d+0*gammaaa*t178*t230*t30*t35*t88-2.71780442174 3287 8 79813d-1*gammaaa*t30*t35*t84*(-2.2296735800662684d+2*gamm 3288 9 aaa*t31*t76*t78*t86*t87-1.9315796857011325d+3*gammaaa*t10 3289 : 9*t165*t31*t87+2.3889359786424305d+1*gammaaa*t109*t162*t3 3290 ; 1*t87-1.1490050249802264d-1*gammaaa*t164*t37*t86+4.021517 3291 < 5874307907d+0*gammaaa*t163*t176*t37+t361+t360+t359+t358+t 3292 = 357+t356+5.794739057103396d+3*gammaaa*t109*t165*t166*t175 3293 > )-2.872512562450566d-2*gammaaa*t164*t33*t39*t86+1.2683087 3294 ? 30149058d+0*gammaaa*t110*t78*t79*t83*t84-5.43560884349596 3295 @ 3d-1*gammaaa*t230*t30*t83*t84+1.268308730149058d+0*gammaa 3296 1 a*t230*t35*t78*t79*t84+1.0569239417908823d-1*gammaaa*t110 3297 2 *t164*t35*t79*t84-2.7178044217479813d-1*t177*t30*t35*t84- 3298 3 2.2195402777608514d+0*gammaaa*t109*t110*t163*t35*t84-7.38 3299 4 6460874872879d-2*gammaaa*t109*t177*t33*t84-2.717804421747 3300 5 9813d-1*gammaaa*t110*t174*t30*t84-1.268308730149058d+0*t3 3301 6 9*t78*t79*t83-1.268308730149058d+0*gammaaa*t229*t39*t78*t 3302 7 79-1.0569239417908823d-1*t164*t35*t39*t79+2.7178044217479 3303 8 813d-1*gammaaa*t30*(t361+t360+t359+t358+t357+t356)*t39+2. 3304 9 2195402777608514d+0*t109*t163*t35*t39+6.032276381146184d- 3305 : 1*gammaaa*t163*t176*t33*t39+2.7178044217479813d-1*t174*t3 3306 ; 0*t39-1.630682653048789d+0*gammaaa*t110*t179*t30*t303*t35 3307 < +5.435608843495963d-1*t178*t179*t30*t35+5.435608843495963 3308 = d-1*gammaaa*t110*t177*t178*t30*t35+1.4772921749745757d-1* 3309 > gammaaa*t109*t178*t179*t33)-2.4735567435575762d-2*t231)+t 3310 ? 398+t396+t362-2.4735567435575762d-2*rhoa*t111*t183*t304)* 3311 @ wght+Cmat3(iq,D3_RA_RA_GAA) 3312 Cmat3(iq,D3_RA_RA_GAB) = ((4.947113487115154d-2*rhoa*(7.5494 3313 1 56727077722d-3*t126*t30*t94*t97+1.0258973437323433d-3*gam 3314 2 maaa*t109*t126*t92*t97+1.3589022108739904d-1*gammaaa*t30* 3315 3 (t428+t427+t426+t425+t424+t423+t422)*t97+6.79451105436995 3316 4 2d-2*t207*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30* 3317 5 t94*(4.1035893749293734d-3*gammaaa*t109*t126*t95-3.693230 3318 6 437436437d-2*gammaaa*t105*t109*t202*t90-6.036186517816032 3319 7 d+1*gammaaa*t105*t109*t200*t90+t432+t431+t430+t429+t428+t 3320 8 427+t426+t425+t424+t423+t422)+2.717804421747981d-1*gammaa 3321 9 a*t114*t193*t213*t30*t94-6.794511054369952d-2*t104*t213*t 3322 : 30*t94-1.5098913454155444d-2*gammaaa*t104*t114*t126*t30*t 3323 ; 94-9.233076093591093d-3*gammaaa*t104*t109*t213*t92+t421+t 3324 < 420+t419+t418+t417+t416+t415+t414+t413+t412+t411+t410+t40 3325 = 9+t408+t407+t406+t405+t404+t403+t402+t401-1.3589022108739 3326 > 904d-1*gammaaa*t104*t114*t207*t30)+t400-8.245189145191921 3327 ? d-3*t115*t216)*t99+t184*(t433-t115*t215)+t399)*wght+Cmat3 3328 @ (iq,D3_RA_RA_GAB) 3329 Cmat3(iq,D3_RA_RA_GBB) = (t398+t396+t362)*wght+Cmat3(iq,D3_R 3330 1 A_RA_GBB) 3331 Cmat3(iq,D3_RA_RB_GAA) = ((4.947113487115154d-2*rhoa*(-3.774 3332 1 728363538862d-3*t126*t30*t94*t97-5.129486718661718d-4*gam 3333 2 maaa*t109*t126*t92*t97+1.3589022108739904d-1*gammaaa*t30* 3334 3 (t437+t436+t435+t434+t388+t386+t385)*t97+3.39725552718497 3335 4 6d-2*t223*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30* 3336 5 t94*(-2.0517946874646872d-3*gammaaa*t109*t126*t95-1.84661 3337 6 52187182186d-2*gammaaa*t105*t109*t220*t90-3.0180932589080 3338 7 156d+1*gammaaa*t105*t109*t200*t90+t437+t436+t435+t434+t39 3339 8 5+t394+t393+t392+t388+t386+t385)+2.717804421747981d-1*gam 3340 9 maaa*t112*t193*t224*t30*t94-3.397255527184976d-2*t104*t22 3341 : 4*t30*t94+1.509891345415545d-2*gammaaa*t104*t112*t126*t30 3342 ; *t94-4.6165380467955464d-3*gammaaa*t104*t109*t224*t92+t38 3343 < 4+t383+t382+t381+t380+t379+t378+t377+t376+t375+t374+t373+ 3344 = t372+t371+t370+t369+t368+t367+t366+t365+t364-1.3589022108 3345 > 739904d-1*gammaaa*t104*t112*t223*t30)+t363+8.245189145191 3346 ? 922d-3*t113*t216)*t99+t184*(t397-t113*t226)+t362)*wght+Cm 3347 @ at3(iq,D3_RA_RB_GAA) 3348 Cmat3(iq,D3_RA_RB_GAB) = ((4.947113487115154d-2*rhoa*(-7.549 3349 1 456727077724d-3*t126*t30*t94*t97-1.0258973437323436d-3*ga 3350 2 mmaaa*t109*t126*t92*t97+1.3589022108739904d-1*gammaaa*t30 3351 3 *(t441+t440+t439+t438+t425+t423+t422)*t97+6.7945110543699 3352 4 52d-2*t223*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30 3353 5 *t94*(-4.1035893749293745d-3*gammaaa*t109*t126*t95-3.6932 3354 6 30437436437d-2*gammaaa*t105*t109*t220*t90-6.0361865178160 3355 7 31d+1*gammaaa*t105*t109*t200*t90+t441+t440+t439+t438+t432 3356 8 +t431+t430+t429+t425+t423+t422)+2.717804421747981d-1*gamm 3357 9 aaa*t114*t193*t224*t30*t94-6.794511054369952d-2*t104*t224 3358 : *t30*t94+1.509891345415545d-2*gammaaa*t104*t114*t126*t30* 3359 ; t94-9.233076093591093d-3*gammaaa*t104*t109*t224*t92+t421+ 3360 < t420+t419+t418+t417+t416+t415+t414+t413+t412+t411+t410+t4 3361 = 09+t408+t407+t406+t405+t404+t403+t402+t401-1.358902210873 3362 > 9904d-1*gammaaa*t104*t114*t223*t30)+t400+8.24518914519192 3363 ? 2d-3*t115*t216)*t99+t184*(t433-t115*t226)+t399)*wght+Cmat 3364 @ 3(iq,D3_RA_RB_GAB) 3365 Cmat3(iq,D3_RA_GAA_GAA) = (t182*(1.2367783717787881d-2*rhoa* 3366 1 t249*t89-t111*t232+1.2367783717787881d-2*rhoa*t111*t231)- 3367 2 2.4735567435575762d-2*rhoa*t247*t304*t89+t77*(-1.23677837 3368 3 17787881d-2*rhoa*(-1.4772921749745757d-1*t109*t33*t84*t88 3369 4 +8.02998241071919d-2*gammaaa*t176*t178*t35*t37*t88-1.6306 3370 5 82653048789d+0*gammaaa*t248*t30*t303*t35*t88+1.0871217686 3371 6 991926d+0*t110*t178*t30*t35*t88+2.9545843499491514d-1*gam 3372 7 maaa*t109*t110*t178*t33*t88-2.7178044217479813d-1*gammaaa 3373 8 *t30*t35*t84*(2.3889359786424305d+1*t109*t31*t76*t87-6.89 3374 9 4030149881355d-1*t37*t78*t86)+3.4470150749406775d-1*gamma 3375 : aa*t110*t33*t78*t84*t86-3.4470150749406775d-1*t33*t39*t78 3376 ; *t86-4.014991205359595d-2*gammaaa*t176*t37*t83*t84-5.4356 3377 < 08843495963d-1*t110*t30*t83*t84+1.268308730149058d+0*t110 3378 = *t35*t78*t79*t84+9.368312812505724d-2*gammaaa*t302*t35*t3 3379 > 7*t78*t84-5.435608843495963d-1*t230*t30*t35*t84-1.4772921 3380 ? 749745757d-1*gammaaa*t109*t230*t33*t84-5.435608843495963d 3381 @ -1*gammaaa*t110*t229*t30*t84+5.435608843495963d-1*gammaaa 3382 1 *t178*t248*t30*t83-1.268308730149058d+0*gammaaa*t178*t248 3383 2 *t35*t78*t79+5.435608843495963d-1*t229*t30*t39+1.08712176 3384 3 86991926d+0*gammaaa*t110*t178*t230*t30*t35)-1.23677837177 3385 4 87881d-2*t249)+t452+t451+t442)*wght+Cmat3(iq,D3_RA_GAA_GA 3386 5 A) 3387 Cmat3(iq,D3_RA_GAA_GAB) = (t184*(t455-4.947113487115154d-2*r 3388 1 hoa*t113*t245-t115*t239)+t454+t453)*wght+Cmat3(iq,D3_RA_G 3389 2 AA_GAB) 3390 Cmat3(iq,D3_RA_GAA_GBB) = t456+Cmat3(iq,D3_RA_GAA_GBB) 3391 Cmat3(iq,D3_RA_GAB_GAB) = ((4.947113487115154d-2*rhoa*(-1.07 3392 1 71922109189608d-2*t78*t86*t92*t97+1.3589022108739904d-1*t 3393 2 243*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*(7 3394 3 .465424933257588d-1*t105*t109*t60*t90-2.1543844218379216d 3395 4 -2*t78*t86*t95)+1.4637988769540178d-3*gammaaa*t104*t302*t 3396 5 78*t94*t95+2.5093695033497454d-3*gammaaa*t106*t176*t193*t 3397 6 94*t95-1.2546847516748727d-3*gammaaa*t103*t104*t176*t95-3 3398 7 .170771825372644d-1*gammaaa*t193*t259*t78*t79*t94+1.58538 3399 8 5912686322d-1*t104*t114*t78*t79*t94-8.153413265243942d-1* 3400 9 gammaaa*t106*t259*t30*t315*t94+5.435608843495962d-1*gamma 3401 : aa*t114*t193*t244*t30*t94-1.3589022108739904d-1*t104*t244 3402 ; *t30*t94+2.717804421747981d-1*t106*t114*t193*t30*t94+2.15 3403 < 43844218379216d-2*gammaaa*t104*t114*t78*t86*t92-1.8466152 3404 = 187182186d-2*gammaaa*t104*t109*t244*t92+3.693230437436437 3405 > d-2*gammaaa*t106*t109*t114*t193*t92-9.233076093591093d-3* 3406 ? t104*t106*t109*t92+2.717804421747981d-1*gammaaa*t103*t193 3407 @ *t259*t30-2.717804421747981d-1*gammaaa*t104*t114*t243*t30 3408 1 -1.3589022108739904d-1*t103*t104*t114*t30)+2.473556743557 3409 2 577d-2*t260)*t99+9.894226974230308d-2*rhoa*t107*t258*t305 3410 3 +t184*(-4.947113487115154d-2*rhoa*t107*t260-t115*t246-4.9 3411 4 47113487115154d-2*rhoa*t115*t245))*wght+Cmat3(iq,D3_RA_GA 3412 5 B_GAB) 3413 Cmat3(iq,D3_RA_GAB_GBB) = (t184*(t455-t113*t246-4.9471134871 3414 1 15154d-2*rhoa*t115*t238)+t454+t453)*wght+Cmat3(iq,D3_RA_G 3415 2 AB_GBB) 3416 Cmat3(iq,D3_RA_GBB_GBB) = t456+Cmat3(iq,D3_RA_GBB_GBB) 3417 Cmat3(iq,D3_GAA_GAA_GAA) = (-1.2367783717787881d-2*rhoa*t77* 3418 1 (-3.2735882553616696d-2*gammaaa*t457*t84*t87-1.2044973616 3419 2 078786d-1*t176*t35*t37*t84-4.431876524923727d-1*t109*t110 3420 3 *t33*t84+2.4089947232157571d-1*gammaaa*t110*t176*t178*t35 3421 4 *t37-1.630682653048789d+0*gammaaa*t110**3*t30*t303*t35+1. 3422 5 630682653048789d+0*t178*t248*t30*t35+4.431876524923727d-1 3423 6 *gammaaa*t109*t178*t248*t33)+t460+t459+t458-2.47355674355 3424 7 75762d-2*rhoa*t111**3*t304+3.710335115336365d-2*rhoa*t111 3425 8 *t182*t249)*wght+Cmat3(iq,D3_GAA_GAA_GAA) 3426 Cmat3(iq,D3_GAA_GAA_GAB) = t463+Cmat3(iq,D3_GAA_GAA_GAB) 3427 Cmat3(iq,D3_GAA_GAA_GBB) = (t460+t459+t458)*wght+Cmat3(iq,D3 3428 1 _GAA_GAA_GBB) 3429 Cmat3(iq,D3_GAA_GAB_GAB) = (4.947113487115154d-2*rhoa*(2.509 3430 1 3695033497454d-3*gammaaa*t114*t176*t193*t94*t95-9.4101356 3431 2 37561545d-4*t104*t176*t94*t95-8.153413265243942d-1*gammaa 3432 3 a*t112*t259*t30*t315*t94+6.794511054369952d-2*t193*t259*t 3433 4 30*t94+2.717804421747981d-1*t112*t114*t193*t30*t94+9.2330 3434 5 76093591093d-3*gammaaa*t109*t193*t259*t92+3.6932304374364 3435 6 37d-2*gammaaa*t109*t112*t114*t193*t92-9.233076093591093d- 3436 7 3*t104*t109*t114*t92+t462+t461-1.2787454122506506d-4*gamm 3437 8 aaa*t104*t105*t457)*t99+9.894226974230308d-2*rhoa*t113*t2 3438 9 58*t305+t184*(-4.947113487115154d-2*rhoa*t113*t260-9.8942 3439 : 26974230308d-2*rhoa*t115*t257))*wght+Cmat3(iq,D3_GAA_GAB_ 3440 ; GAB) 3441 Cmat3(iq,D3_GAA_GAB_GBB) = t463+Cmat3(iq,D3_GAA_GAB_GBB) 3442 Cmat3(iq,D3_GAB_GAB_GAB) = 4.947113487115154d-2*rhoa*(7.5281 3443 1 08510049236d-3*gammaaa*t114*t176*t193*t94*t95-1.882027127 3444 2 512309d-3*t104*t176*t94*t95-8.153413265243942d-1*gammaaa* 3445 3 t114**3*t30*t315*t94+4.076706632621971d-1*t193*t259*t30*t 3446 4 94+5.539845656154656d-2*gammaaa*t109*t193*t259*t92-2.7699 3447 5 22828077328d-2*t104*t109*t114*t92-2.557490824501301d-4*ga 3448 6 mmaaa*t104*t105*t457)*t99*wght+9.894226974230308d-2*rhoa* 3449 7 t115**3*t305*wght-1.4841340461345462d-1*rhoa*t115*t184*t2 3450 8 60*wght+Cmat3(iq,D3_GAB_GAB_GAB) 3451 endif ! rhoa.gt.tol_rho 3452 else ! ipol.eq.1 3453 rhoa = rho(iq,R_A) 3454 rhob = rho(iq,R_B) 3455 gammaaa = rgamma(iq,G_AA) 3456 gammaab = rgamma(iq,G_AB) 3457 gammabb = rgamma(iq,G_BB) 3458 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 3459 t1 = rhoa**3.333333333333333d-1 3460 t2 = t1**5.0d-1 3461 t3 = 1/t2 3462 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 3463 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 3464 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 3465 t7 = 1/t6 3466 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 3467 t9 = log(t8) 3468 t10 = 1/t1 3469 t11 = 1.2746961887000874d-1*t10+1.0d+0 3470 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 3471 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 3472 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 3473 t15 = 1/t14 3474 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 3475 t17 = log(t16) 3476 t18 = 1.325688999052018d-1*t10+1.0d+0 3477 t19 = 1.3212998810398843d-2*t3+2.9729725188d-2 3478 t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1 3479 t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1 3480 t22 = 1/t21 3481 t23 = 1.269642451250142d+0*t2*t22+1.0d+0 3482 t24 = log(t23) 3483 t25 = 6.901399211255826d-2*t10+1.0d+0 3484 t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 3485 1 21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3 3486 2 .37738d-2*t24*t25)-6.21814d-2*t17*t18 3487 t27 = rhoa**1.1666666666666667d+0 3488 t28 = 1/t27**2.0d+0 3489 t29 = exp(-8.085523023512745d+1*t26) 3490 t30 = t29-1.0d+0 3491 t31 = 1/t30 3492 t32 = 2.7178044217479813d-1*gammaaa*t28*t31 3493 t33 = t32+1.0d+0 3494 t34 = (gammaaa*t28)**2.0d+0 3495 t35 = 1/t30**2.0d+0 3496 t36 = 7.38646087487288d-2*t34*t35+t32+1.0d+0 3497 t37 = 1/t36 3498 t38 = 2.7178044217479813d-1*gammaaa*t28*t33*t37+1.0d+0 3499 t39 = log(t38) 3500 t40 = rhob**3.333333333333333d-1 3501 t41 = t40**5.0d-1 3502 t42 = 1/t41 3503 t43 = 1.530901310039024d-2*t42+1.0465751434d-1 3504 t44 = 7.876233178997433d-1*t42*t43+1.9269083139d-1 3505 t45 = 7.876233178997433d-1*t42*t44+4.3896648423d-1 3506 t46 = 1/t45 3507 t47 = 1.269642451250142d+0*t41*t46+1.0d+0 3508 t48 = log(t47) 3509 t49 = 1/t40 3510 t50 = 1.2746961887000874d-1*t49+1.0d+0 3511 t51 = 2.4141993114533214d-2*t42+1.0186556948d-1 3512 t52 = 7.876233178997433d-1*t42*t51+2.2308199064d-1 3513 t53 = 7.876233178997433d-1*t42*t52+4.7231125998d-1 3514 t54 = 1/t53 3515 t55 = 1.269642451250142d+0*t41*t54+1.0d+0 3516 t56 = log(t55) 3517 t57 = 1.325688999052018d-1*t49+1.0d+0 3518 t58 = 1.3212998810398843d-2*t42+2.9729725188d-2 3519 t59 = 7.876233178997433d-1*t42*t58+1.2236585478d-1 3520 t60 = 7.876233178997433d-1*t42*t59+3.497952466d-1 3521 t61 = 1/t60 3522 t62 = 1.269642451250142d+0*t41*t61+1.0d+0 3523 t63 = log(t62) 3524 t64 = 6.901399211255826d-2*t49+1.0d+0 3525 t65 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6. 3526 1 21814d-2*t56*t57-3.10907d-2*t48*t50)-3.37738d-2*t63*t64)+ 3527 2 3.37738d-2*t63*t64)-6.21814d-2*t56*t57 3528 t66 = rhob+rhoa 3529 t67 = t66**3.333333333333333d-1 3530 t68 = 1/t67 3531 t69 = 1.325688999052018d-1*t68+1.0d+0 3532 t70 = t67**5.0d-1 3533 t71 = 1/t70 3534 t72 = 2.4141993114533214d-2*t71+1.0186556948d-1 3535 t73 = 7.876233178997433d-1*t71*t72+2.2308199064d-1 3536 t74 = 7.876233178997433d-1*t71*t73+4.7231125998d-1 3537 t75 = 1/t74 3538 t76 = 1.269642451250142d+0*t70*t75+1.0d+0 3539 t77 = log(t76) 3540 t78 = rhoa-rhob 3541 t79 = 1/t66 3542 t80 = 1.0d+0-t78*t79 3543 t81 = t80**1.3333333333333333d+0 3544 t82 = t78*t79+1.0d+0 3545 t83 = t82**1.3333333333333333d+0 3546 t84 = 1.923661050931536d+0*t83+1.923661050931536d+0*t81-3.84 3547 1 7322101863072d+0 3548 t85 = 6.901399211255826d-2*t68+1.0d+0 3549 t86 = 1.3212998810398843d-2*t71+2.9729725188d-2 3550 t87 = 7.876233178997433d-1*t71*t86+1.2236585478d-1 3551 t88 = 7.876233178997433d-1*t71*t87+3.497952466d-1 3552 t89 = 1/t88 3553 t90 = 1.269642451250142d+0*t70*t89+1.0d+0 3554 t91 = log(t90) 3555 t92 = t78**4 3556 t93 = 1/t66**4 3557 t94 = 1.2746961887000874d-1*t68+1.0d+0 3558 t95 = 1.530901310039024d-2*t71+1.0465751434d-1 3559 t96 = 7.876233178997433d-1*t71*t95+1.9269083139d-1 3560 t97 = 7.876233178997433d-1*t71*t96+4.3896648423d-1 3561 t98 = 1/t97 3562 t99 = 1.269642451250142d+0*t70*t98+1.0d+0 3563 t100 = log(t99) 3564 t101 = 1.709920934161365d+0*(6.21814d-2*t69*t77-3.10907d-2*t 3565 1 100*t94)-3.37738d-2*t85*t91 3566 t102 = t101*t92*t93+3.37738d-2*t85*t91 3567 t103 = 5.848223622634648d-1*t102*t84-6.21814d-2*t69*t77 3568 t104 = rhob**1.1666666666666667d+0 3569 t105 = 1/t104**2.0d+0 3570 t106 = exp(-8.085523023512745d+1*t65) 3571 t107 = t106-1.0d+0 3572 t108 = 1/t107 3573 t109 = 2.7178044217479813d-1*gammabb*t105*t108 3574 t110 = t109+1.0d+0 3575 t111 = (gammabb*t105)**2.0d+0 3576 t112 = 1/t107**2.0d+0 3577 t113 = 7.38646087487288d-2*t111*t112+t109+1.0d+0 3578 t114 = 1/t113 3579 t115 = 2.7178044217479813d-1*gammabb*t105*t110*t114+1.0d+0 3580 t116 = log(t115) 3581 t117 = t80**6.666666666666666d-1 3582 t118 = t82**6.666666666666666d-1 3583 t119 = 5.0d-1*t118+5.0d-1*t117 3584 t120 = t119**3.0d+0 3585 t121 = gammabb+2.0d+0*gammaab+gammaaa 3586 t122 = t66**1.1666666666666667d+0 3587 t123 = 1/t122**2.0d+0 3588 t124 = t119**2.0d+0 3589 t125 = 1/t124 3590 t126 = 1/t120 3591 t127 = exp(-4.042761511756372d+1*t103*t126) 3592 t128 = t127-1.0d+0 3593 t129 = 1/t128 3594 t130 = 1.7121095002288222d-1*t121*t123*t125*t129 3595 t131 = t130+1.0d+0 3596 t132 = 1/t119**4.0d+0 3597 t133 = (t121*t123)**2.0d+0 3598 t134 = 1/t128**2.0d+0 3599 t135 = 2.931318940773787d-2*t132*t133*t134+t130+1.0d+0 3600 t136 = 1/t135 3601 t137 = 1.7121095002288222d-1*t121*t123*t125*t131*t136+1.0d+0 3602 t138 = log(t137) 3603 t139 = 1/rhoa**1.3333333333333333d+0 3604 t140 = 1/t8 3605 t141 = 1/t6**2 3606 t142 = 1/rhoa**1.3333333333333336d+0 3607 t143 = 1/t2**3 3608 t144 = 1/rhoa**6.666666666666667d-1 3609 t145 = -1.3127055298329054d-1*t143*t144*t4-2.009622615316665 3610 1 8d-3*t142 3611 t146 = 7.876233178997433d-1*t145*t3-1.3127055298329054d-1*t1 3612 1 43*t144*t5 3613 t147 = 2.11607075208357d-1*t144*t3*t7-1.269642451250142d+0*t 3614 1 141*t146*t2 3615 t148 = 1/t16 3616 t149 = 1/t14**2 3617 t150 = -1.3127055298329054d-1*t12*t143*t144-3.16913278626356 3618 1 7d-3*t142 3619 t151 = 7.876233178997433d-1*t150*t3-1.3127055298329054d-1*t1 3620 1 3*t143*t144 3621 t152 = 2.11607075208357d-1*t144*t15*t3-1.269642451250142d+0* 3622 1 t149*t151*t2 3623 t153 = 1/t23 3624 t154 = 1/t21**2 3625 t155 = -1.3127055298329054d-1*t143*t144*t19-1.73447766040861 3626 1 62d-3*t142 3627 t156 = 7.876233178997433d-1*t155*t3-1.3127055298329054d-1*t1 3628 1 43*t144*t20 3629 t157 = 2.11607075208357d-1*t144*t22*t3-1.269642451250142d+0* 3630 1 t154*t156*t2 3631 t158 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1 3632 1 .3210398931339265d-3*t139*t9+6.21814d-2*t148*t152*t18-2.7 3633 2 47773264188438d-3*t139*t17-3.10907d-2*t11*t140*t147)-3.37 3634 3 738d-2*t153*t157*t25+7.769549222703733d-4*t139*t24)+3.377 3635 4 38d-2*t153*t157*t25-7.769549222703733d-4*t139*t24)-6.2181 3636 5 4d-2*t148*t152*t18+2.747773264188438d-3*t139*t17 3637 t159 = 1/t38 3638 t160 = rhoa**1.6666666666666674d-1 3639 t161 = 1/t27**3.0d+0 3640 t162 = -6.34154365074529d-1*gammaaa*t160*t161*t31 3641 t163 = 1/t30**2 3642 t164 = 2.1974870225448048d+1*gammaaa*t158*t163*t28*t29 3643 t165 = t164+t162 3644 t166 = 1/t36**2 3645 t167 = gammaaa**2 3646 t168 = 1/t27**5.0d+0 3647 t169 = 1/t30**3.0d+0 3648 t170 = -3.4470150749406775d-1*t160*t167*t168*t35+1.194467989 3649 1 3212153d+1*t158*t169*t29*t34+t164+t162 3650 t171 = -6.34154365074529d-1*gammaaa*t160*t161*t33*t37+2.7178 3651 1 044217479813d-1*gammaaa*t165*t28*t37-2.7178044217479813d- 3652 2 1*gammaaa*t166*t170*t28*t33 3653 t172 = 1/t66**1.3333333333333336d+0 3654 t173 = 1/t66**6.666666666666667d-1 3655 t174 = 1/t70**3 3656 t175 = -1.3127055298329054d-1*t173*t174*t72-3.16913278626356 3657 1 7d-3*t172 3658 t176 = 7.876233178997433d-1*t175*t71-1.3127055298329054d-1*t 3659 1 173*t174*t73 3660 t177 = 1/t74**2 3661 t178 = 2.11607075208357d-1*t173*t71*t75-1.269642451250142d+0 3662 1 *t176*t177*t70 3663 t179 = 1/t76 3664 t180 = -6.21814d-2*t178*t179*t69 3665 t181 = 1/t66**1.3333333333333333d+0 3666 t182 = 2.747773264188438d-3*t181*t77 3667 t183 = -1.3127055298329054d-1*t173*t174*t86-1.73447766040861 3668 1 62d-3*t172 3669 t184 = 7.876233178997433d-1*t183*t71-1.3127055298329054d-1*t 3670 1 173*t174*t87 3671 t185 = 1/t88**2 3672 t186 = 2.11607075208357d-1*t173*t71*t89-1.269642451250142d+0 3673 1 *t184*t185*t70 3674 t187 = 1/t90 3675 t188 = 3.37738d-2*t186*t187*t85 3676 t189 = -7.769549222703733d-4*t181*t91 3677 t190 = -1.3127055298329054d-1*t173*t174*t95-2.00962261531666 3678 1 58d-3*t172 3679 t191 = 7.876233178997433d-1*t190*t71-1.3127055298329054d-1*t 3680 1 173*t174*t96 3681 t192 = 1/t97**2 3682 t193 = 2.11607075208357d-1*t173*t71*t98-1.269642451250142d+0 3683 1 *t191*t192*t70 3684 t194 = 1/t99 3685 t195 = 1.709920934161365d+0*(-3.10907d-2*t193*t194*t94-2.747 3686 1 773264188438d-3*t181*t77+6.21814d-2*t178*t179*t69+1.32103 3687 2 98931339265d-3*t100*t181)+7.769549222703733d-4*t181*t91-3 3688 3 .37738d-2*t186*t187*t85 3689 t196 = t195*t92*t93 3690 t197 = 1/t66**5 3691 t198 = -4*t101*t197*t92 3692 t199 = t78**3 3693 t200 = 4*t101*t199*t93+t198+t196+t189+t188 3694 t201 = 1/t66**2 3695 t202 = t201*t78 3696 t203 = -t79 3697 t204 = t203+t202 3698 t205 = t80**3.333333333333333d-1 3699 t206 = -t201*t78 3700 t207 = t79+t206 3701 t208 = t82**3.333333333333333d-1 3702 t209 = 2.564881401242048d+0*t207*t208+2.564881401242048d+0*t 3703 1 204*t205 3704 t210 = 5.848223622634648d-1*t200*t84+5.848223622634648d-1*t1 3705 1 02*t209+t182+t180 3706 t211 = 1.0d+0*t103 3707 t212 = 1/t137 3708 t213 = 1/t205 3709 t214 = 1/t208 3710 t215 = 3.333333333333333d-1*t207*t214+3.333333333333333d-1*t 3711 1 204*t213 3712 t216 = t66**1.6666666666666674d-1 3713 t217 = 1/t122**3.0d+0 3714 t218 = -3.994922167200585d-1*t121*t125*t131*t136*t216*t217 3715 t219 = -3.4242190004576445d-1*t121*t123*t126*t129*t215 3716 t220 = -3.994922167200585d-1*t121*t125*t129*t216*t217 3717 t221 = 1/t128**2 3718 t222 = 1.2128284535269115d+2*t103*t132*t215-4.04276151175637 3719 1 2d+1*t126*t210 3720 t223 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222 3721 t224 = t223+t220+t219 3722 t225 = 1/t135**2 3723 t226 = t121**2 3724 t227 = 1/t122**5.0d+0 3725 t228 = -1.3679488390277675d-1*t132*t134*t216*t226*t227 3726 t229 = 1/t119**5.0d+0 3727 t230 = 1/t128**3.0d+0 3728 t231 = -5.862637881547574d-2*t127*t132*t133*t222*t230-1.1725 3729 1 27576309515d-1*t133*t134*t215*t229+t228+t223+t220+t219 3730 t232 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t231+ 3731 1 1.7121095002288222d-1*t121*t123*t125*t136*t224+t218-3.424 3732 2 2190004576445d-1*t121*t123*t126*t131*t136*t215 3733 t233 = 2.473556743557577d-2*t120*t138 3734 t234 = 1/rhob**1.3333333333333333d+0 3735 t235 = 1/t47 3736 t236 = 1/t45**2 3737 t237 = 1/rhob**1.3333333333333336d+0 3738 t238 = 1/t41**3 3739 t239 = 1/rhob**6.666666666666667d-1 3740 t240 = -1.3127055298329054d-1*t238*t239*t43-2.00962261531666 3741 1 58d-3*t237 3742 t241 = 7.876233178997433d-1*t240*t42-1.3127055298329054d-1*t 3743 1 238*t239*t44 3744 t242 = 2.11607075208357d-1*t239*t42*t46-1.269642451250142d+0 3745 1 *t236*t241*t41 3746 t243 = 1/t55 3747 t244 = 1/t53**2 3748 t245 = -1.3127055298329054d-1*t238*t239*t51-3.16913278626356 3749 1 7d-3*t237 3750 t246 = 7.876233178997433d-1*t245*t42-1.3127055298329054d-1*t 3751 1 238*t239*t52 3752 t247 = 2.11607075208357d-1*t239*t42*t54-1.269642451250142d+0 3753 1 *t244*t246*t41 3754 t248 = 1/t62 3755 t249 = 1/t60**2 3756 t250 = -1.3127055298329054d-1*t238*t239*t58-1.73447766040861 3757 1 62d-3*t237 3758 t251 = 7.876233178997433d-1*t250*t42-1.3127055298329054d-1*t 3759 1 238*t239*t59 3760 t252 = 2.11607075208357d-1*t239*t42*t61-1.269642451250142d+0 3761 1 *t249*t251*t41 3762 t253 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t252*t 3763 1 64+7.769549222703733d-4*t234*t63+1.709920934161365d+0*(6. 3764 2 21814d-2*t243*t247*t57-2.747773264188438d-3*t234*t56-3.10 3765 3 907d-2*t235*t242*t50+1.3210398931339265d-3*t234*t48))+3.3 3766 4 7738d-2*t248*t252*t64-7.769549222703733d-4*t234*t63)-6.21 3767 5 814d-2*t243*t247*t57+2.747773264188438d-3*t234*t56 3768 t254 = 1/t115 3769 t255 = rhob**1.6666666666666674d-1 3770 t256 = 1/t104**3.0d+0 3771 t257 = -6.34154365074529d-1*gammabb*t108*t255*t256 3772 t258 = 1/t107**2 3773 t259 = 2.1974870225448048d+1*gammabb*t105*t106*t253*t258 3774 t260 = t259+t257 3775 t261 = 1/t113**2 3776 t262 = gammabb**2 3777 t263 = 1/t104**5.0d+0 3778 t264 = 1/t107**3.0d+0 3779 t265 = 1.1944679893212153d+1*t106*t111*t253*t264-3.447015074 3780 1 9406775d-1*t112*t255*t262*t263+t259+t257 3781 t266 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t265+2. 3782 1 7178044217479813d-1*gammabb*t105*t114*t260-6.341543650745 3783 2 29d-1*gammabb*t110*t114*t255*t256 3784 t267 = -4*t101*t199*t93+t198+t196+t189+t188 3785 t268 = t79+t202 3786 t269 = t206+t203 3787 t270 = 2.564881401242048d+0*t208*t269+2.564881401242048d+0*t 3788 1 205*t268 3789 t271 = 5.848223622634648d-1*t267*t84+5.848223622634648d-1*t1 3790 1 02*t270+t182+t180 3791 t272 = 3.333333333333333d-1*t214*t269+3.333333333333333d-1*t 3792 1 213*t268 3793 t273 = -3.4242190004576445d-1*t121*t123*t126*t129*t272 3794 t274 = 1.2128284535269115d+2*t103*t132*t272-4.04276151175637 3795 1 2d+1*t126*t271 3796 t275 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274 3797 t276 = t275+t273+t220 3798 t277 = t275-5.862637881547574d-2*t127*t132*t133*t230*t274+t2 3799 1 73-1.172527576309515d-1*t133*t134*t229*t272+t228+t220 3800 t278 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t277+ 3801 1 1.7121095002288222d-1*t121*t123*t125*t136*t276-3.42421900 3802 2 04576445d-1*t121*t123*t126*t131*t136*t272+t218 3803 t279 = 1/t27**4.0d+0 3804 t280 = 1.477292174974576d-1*gammaaa*t279*t35+2.7178044217479 3805 1 813d-1*t28*t31 3806 t281 = 2.7178044217479813d-1*t28*t33*t37+7.386460874872879d- 3807 1 2*gammaaa*t279*t31*t37-2.7178044217479813d-1*gammaaa*t166 3808 2 *t28*t280*t33 3809 t282 = 1/t122**4.0d+0 3810 t283 = 5.862637881547574d-2*t121*t132*t134*t282+1.7121095002 3811 1 288222d-1*t123*t125*t129 3812 t284 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t283+ 3813 1 2.931318940773787d-2*t121*t129*t132*t136*t282+1.712109500 3814 2 2288222d-1*t123*t125*t131*t136 3815 t285 = 2.473556743557577d-2*t120*t212*t284*t66 3816 t286 = 1.172527576309515d-1*t121*t132*t134*t282+3.4242190004 3817 1 576445d-1*t123*t125*t129 3818 t287 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t286+ 3819 1 5.862637881547574d-2*t121*t129*t132*t136*t282+3.424219000 3820 2 4576445d-1*t123*t125*t131*t136 3821 t288 = 1/t104**4.0d+0 3822 t289 = 1.477292174974576d-1*gammabb*t112*t288+2.717804421747 3823 1 9813d-1*t105*t108 3824 t290 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t289+7. 3825 1 386460874872879d-2*gammabb*t108*t114*t288+2.7178044217479 3826 2 813d-1*t105*t110*t114 3827 t291 = 1/rhoa**2.333333333333333d+0 3828 t292 = 1/t8**2 3829 t293 = t147**2 3830 t294 = 1/t6**3 3831 t295 = t146**2 3832 t296 = 1/rhoa**2.3333333333333334d+0 3833 t297 = 1/rhoa**1.6666666666666669d+0 3834 t298 = 1/t2**5 3835 t299 = 6.563527649164527d-2*t142*t298*t4+8.751370198886037d- 3836 1 2*t143*t297*t4+3.0144339229749983d-3*t296 3837 t300 = 6.563527649164527d-2*t142*t298*t5+8.751370198886037d- 3838 1 2*t143*t297*t5+7.876233178997433d-1*t299*t3-2.62541105966 3839 2 5811d-1*t143*t144*t145 3840 t301 = -1.4107138347223802d-1*t297*t3*t7-3.52678458680595d-2 3841 1 *t142*t143*t7-1.269642451250142d+0*t141*t2*t300-4.2321415 3842 2 0416714d-1*t141*t144*t146*t3+2.539284902500284d+0*t2*t294 3843 3 *t295 3844 t302 = 1/t16**2 3845 t303 = t152**2 3846 t304 = 1/t14**3 3847 t305 = t151**2 3848 t306 = 6.563527649164527d-2*t12*t142*t298+8.751370198886037d 3849 1 -2*t12*t143*t297+4.753699179395351d-3*t296 3850 t307 = 7.876233178997433d-1*t3*t306+6.563527649164527d-2*t13 3851 1 *t142*t298+8.751370198886037d-2*t13*t143*t297-2.625411059 3852 2 665811d-1*t143*t144*t150 3853 t308 = -1.269642451250142d+0*t149*t2*t307+2.539284902500284d 3854 1 +0*t2*t304*t305-1.4107138347223802d-1*t15*t297*t3-4.23214 3855 2 150416714d-1*t144*t149*t151*t3-3.52678458680595d-2*t142*t 3856 3 143*t15 3857 t309 = 1/t23**2 3858 t310 = t157**2 3859 t311 = 1/t21**3 3860 t312 = t156**2 3861 t313 = 6.563527649164527d-2*t142*t19*t298+8.751370198886037d 3862 1 -2*t143*t19*t297+2.601716490612924d-3*t296 3863 t314 = 7.876233178997433d-1*t3*t313+6.563527649164527d-2*t14 3864 1 2*t20*t298+8.751370198886037d-2*t143*t20*t297-2.625411059 3865 2 665811d-1*t143*t144*t155 3866 t315 = -1.269642451250142d+0*t154*t2*t314+2.539284902500284d 3867 1 +0*t2*t311*t312-1.4107138347223802d-1*t22*t297*t3-4.23214 3868 2 150416714d-1*t144*t154*t156*t3-3.52678458680595d-2*t142*t 3869 3 143*t22 3870 t316 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 3871 1 1.7613865241785687d-3*t291*t9+6.21814d-2*t148*t18*t308-6. 3872 2 21814d-2*t18*t302*t303-3.10907d-2*t11*t140*t301+3.10907d- 3873 3 2*t11*t292*t293+3.663697685584584d-3*t17*t291-5.495546528 3874 4 376876d-3*t139*t148*t152+2.642079786267853d-3*t139*t140*t 3875 5 147)-3.37738d-2*t153*t25*t315+3.37738d-2*t25*t309*t310-1. 3876 6 0359398963604977d-3*t24*t291+1.5539098445407465d-3*t139*t 3877 7 153*t157)+3.37738d-2*t153*t25*t315-3.37738d-2*t25*t309*t3 3878 8 10+1.0359398963604977d-3*t24*t291-1.5539098445407465d-3*t 3879 9 139*t153*t157)-6.21814d-2*t148*t18*t308+6.21814d-2*t18*t3 3880 : 02*t303-3.663697685584584d-3*t17*t291+5.495546528376876d- 3881 ; 3*t139*t148*t152 3882 t317 = rhoa**3.333333333333335d-1 3883 t318 = 1/rhoa**8.333333333333333d-1 3884 t319 = t158**2 3885 t320 = exp(-1.617104604702549d+2*t26) 3886 t321 = 1/t30**3 3887 t322 = 3.553566382931298d+3*gammaaa*t28*t319*t320*t321 3888 t323 = 2.2195402777608514d+0*gammaaa*t279*t31*t317 3889 t324 = -1.0569239417908823d-1*gammaaa*t161*t31*t318 3890 t325 = -1.0254939438542422d+2*gammaaa*t158*t160*t161*t163*t2 3891 1 9 3892 t326 = -1.776783191465649d+3*gammaaa*t163*t28*t29*t319 3893 t327 = 2.1974870225448048d+1*gammaaa*t163*t28*t29*t316 3894 t328 = t327+t326+t325+t324+t323+t322 3895 t329 = 1/t30**4.0d+0 3896 t330 = 1/t27**6.0d+0 3897 t331 = 2.0107587937153953d+0*t167*t317*t330*t35-5.7450251249 3898 1 01132d-2*t167*t168*t318*t35+2.897369528551698d+3*t319*t32 3899 2 0*t329*t34-9.657898428505661d+2*t169*t29*t319*t34+1.19446 3900 3 79893212153d+1*t169*t29*t316*t34+t327+t326+t325+t324+t323 3901 4 +t322-1.1148367900331342d+2*t158*t160*t167*t168*t169*t29 3902 t332 = 1/t36**3 3903 t333 = t170**2 3904 t334 = -1.0569239417908823d-1*gammaaa*t161*t318*t33*t37+2.21 3905 1 95402777608514d+0*gammaaa*t279*t317*t33*t37+2.71780442174 3906 2 79813d-1*gammaaa*t28*t328*t37-1.268308730149058d+0*gammaa 3907 3 a*t160*t161*t165*t37+5.435608843495963d-1*gammaaa*t28*t33 3908 4 *t332*t333-2.7178044217479813d-1*gammaaa*t166*t28*t33*t33 3909 5 1+1.268308730149058d+0*gammaaa*t160*t161*t166*t170*t33-5. 3910 6 435608843495963d-1*gammaaa*t165*t166*t170*t28 3911 t335 = -1.2367783717787881d-2*rhoa*t334-2.4735567435575762d- 3912 1 2*t171 3913 t336 = 1/t38**2 3914 t337 = t171**2 3915 t338 = t178**2 3916 t339 = 1/t76**2 3917 t340 = 6.21814d-2*t338*t339*t69 3918 t341 = t176**2 3919 t342 = 1/t74**3 3920 t343 = 1/t66**2.3333333333333334d+0 3921 t344 = 1/t70**5 3922 t345 = 1/t66**1.6666666666666669d+0 3923 t346 = 8.751370198886037d-2*t174*t345*t72+6.563527649164527d 3924 1 -2*t172*t344*t72+4.753699179395351d-3*t343 3925 t347 = 8.751370198886037d-2*t174*t345*t73+6.563527649164527d 3926 1 -2*t172*t344*t73+7.876233178997433d-1*t346*t71-2.62541105 3927 2 9665811d-1*t173*t174*t175 3928 t348 = -1.4107138347223802d-1*t345*t71*t75-3.52678458680595d 3929 1 -2*t172*t174*t75-4.23214150416714d-1*t173*t176*t177*t71-1 3930 2 .269642451250142d+0*t177*t347*t70+2.539284902500284d+0*t3 3931 3 41*t342*t70 3932 t349 = -6.21814d-2*t179*t348*t69 3933 t350 = 5.495546528376876d-3*t178*t179*t181 3934 t351 = 1/t66**2.333333333333333d+0 3935 t352 = -3.663697685584584d-3*t351*t77 3936 t353 = t186**2 3937 t354 = 1/t90**2 3938 t355 = -3.37738d-2*t353*t354*t85 3939 t356 = t184**2 3940 t357 = 1/t88**3 3941 t358 = 8.751370198886037d-2*t174*t345*t86+6.563527649164527d 3942 1 -2*t172*t344*t86+2.601716490612924d-3*t343 3943 t359 = 8.751370198886037d-2*t174*t345*t87+6.563527649164527d 3944 1 -2*t172*t344*t87+7.876233178997433d-1*t358*t71-2.62541105 3945 2 9665811d-1*t173*t174*t183 3946 t360 = -1.4107138347223802d-1*t345*t71*t89-3.52678458680595d 3947 1 -2*t172*t174*t89-4.23214150416714d-1*t173*t184*t185*t71-1 3948 2 .269642451250142d+0*t185*t359*t70+2.539284902500284d+0*t3 3949 3 56*t357*t70 3950 t361 = 3.37738d-2*t187*t360*t85 3951 t362 = -1.5539098445407465d-3*t181*t186*t187 3952 t363 = 1.0359398963604977d-3*t351*t91 3953 t364 = t193**2 3954 t365 = 1/t99**2 3955 t366 = t191**2 3956 t367 = 1/t97**3 3957 t368 = 8.751370198886037d-2*t174*t345*t95+6.563527649164527d 3958 1 -2*t172*t344*t95+3.0144339229749983d-3*t343 3959 t369 = 8.751370198886037d-2*t174*t345*t96+6.563527649164527d 3960 1 -2*t172*t344*t96+7.876233178997433d-1*t368*t71-2.62541105 3961 2 9665811d-1*t173*t174*t190 3962 t370 = -1.4107138347223802d-1*t345*t71*t98-3.52678458680595d 3963 1 -2*t172*t174*t98-4.23214150416714d-1*t173*t191*t192*t71-1 3964 2 .269642451250142d+0*t192*t369*t70+2.539284902500284d+0*t3 3965 3 66*t367*t70 3966 t371 = 1.709920934161365d+0*(-3.10907d-2*t194*t370*t94+3.109 3967 1 07d-2*t364*t365*t94+3.663697685584584d-3*t351*t77+6.21814 3968 2 d-2*t179*t348*t69-6.21814d-2*t338*t339*t69-1.761386524178 3969 3 5687d-3*t100*t351+2.642079786267853d-3*t181*t193*t194-5.4 3970 4 95546528376876d-3*t178*t179*t181)-1.0359398963604977d-3*t 3971 5 351*t91-3.37738d-2*t187*t360*t85+3.37738d-2*t353*t354*t85 3972 6 +1.5539098445407465d-3*t181*t186*t187 3973 t372 = t371*t92*t93 3974 t373 = -8*t195*t197*t92 3975 t374 = 1/t66**6 3976 t375 = 20*t101*t374*t92 3977 t376 = t78**2 3978 t377 = 12*t101*t376*t93 3979 t378 = 8*t195*t199*t93+t377+t375+t373+t372+t363+t362+t361+t3 3980 1 55-32*t101*t197*t199 3981 t379 = t204**2 3982 t380 = 1/t117 3983 t381 = 1/t66**3 3984 t382 = -2*t381*t78 3985 t383 = 2*t201 3986 t384 = t383+t382 3987 t385 = t207**2 3988 t386 = 1/t118 3989 t387 = 2*t381*t78 3990 t388 = -2*t201 3991 t389 = t388+t387 3992 t390 = 2.564881401242048d+0*t208*t389+8.549604670806825d-1*t 3993 1 385*t386+2.564881401242048d+0*t205*t384+8.549604670806825 3994 2 d-1*t379*t380 3995 t391 = 5.848223622634648d-1*t378*t84+5.848223622634648d-1*t1 3996 1 02*t390+t352+t350+t349+t340+1.1696447245269297d+0*t200*t2 3997 2 09 3998 t392 = t215**2 3999 t393 = 1/t81 4000 t394 = 1/t83 4001 t395 = -1.111111111111111d-1*t385*t394-1.111111111111111d-1* 4002 1 t379*t393+3.333333333333333d-1*t214*t389+3.33333333333333 4003 2 3d-1*t213*t384 4004 t396 = t66**3.333333333333335d-1 4005 t397 = 1.398222758520205d+0*t121*t125*t131*t136*t282*t396 4006 t398 = 1/t66**8.333333333333333d-1 4007 t399 = -6.658203612000978d-2*t121*t125*t131*t136*t217*t398 4008 t400 = 1.0272657001372934d+0*t121*t123*t129*t132*t392 4009 t401 = -3.4242190004576445d-1*t121*t123*t126*t129*t395 4010 t402 = 1.5979688668802342d+0*t121*t126*t129*t215*t216*t217 4011 t403 = 1.398222758520205d+0*t121*t125*t129*t282*t396 4012 t404 = -6.658203612000978d-2*t121*t125*t129*t217*t398 4013 t405 = 1.2128284535269115d+2*t103*t132*t395-4.85131381410764 4014 1 6d+2*t103*t229*t392-4.042761511756372d+1*t126*t391+2.4256 4015 2 56907053823d+2*t132*t210*t215 4016 t406 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t405 4017 t407 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t2 4018 1 22 4019 t408 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t22 4020 1 2 4021 t409 = exp(-8.085523023512744d+1*t103*t126) 4022 t410 = 1/t128**3 4023 t411 = t222**2 4024 t412 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t411 4025 t413 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t411 4026 t414 = t413+t412+t408+t407+t406+t404+t403+t402+t401+t400 4027 t415 = 1/t122**6.0d+0 4028 t416 = 7.979701560995311d-1*t132*t134*t226*t396*t415 4029 t417 = -2.2799147317129467d-2*t132*t134*t226*t227*t398 4030 t418 = 1/t119**6.0d+0 4031 t419 = 1/t128**4.0d+0 4032 t420 = 1.7587913644642725d-1*t132*t133*t409*t411*t419+5.8626 4033 1 37881547574d-1*t133*t134*t392*t418+t417+t416+t413+t412-5. 4034 2 862637881547574d-2*t127*t132*t133*t230*t411+t408+t407+t40 4035 3 6-5.862637881547574d-2*t127*t132*t133*t230*t405+t404+t403 4036 4 +t402+t401+t400-1.172527576309515d-1*t133*t134*t229*t395+ 4037 5 4.69011030523806d-1*t127*t133*t215*t222*t229*t230+5.47179 4038 6 535611107d-1*t127*t132*t216*t222*t226*t227*t230+1.0943590 4039 7 71222214d+0*t134*t215*t216*t226*t227*t229 4040 t421 = 1/t135**3 4041 t422 = t231**2 4042 t423 = 3.4242190004576445d-1*t121*t123*t125*t131*t421*t422-1 4043 1 .7121095002288222d-1*t121*t123*t125*t131*t225*t420+1.7121 4044 2 095002288222d-1*t121*t123*t125*t136*t414+t399+t397-3.4242 4045 3 190004576445d-1*t121*t123*t126*t131*t136*t395+1.027265700 4046 4 1372934d+0*t121*t123*t131*t132*t136*t392-3.42421900045764 4047 5 45d-1*t121*t123*t125*t224*t225*t231+7.98984433440117d-1*t 4048 6 121*t125*t131*t216*t217*t225*t231+6.848438000915289d-1*t1 4049 7 21*t123*t126*t131*t215*t225*t231-7.98984433440117d-1*t121 4050 8 *t125*t136*t216*t217*t224-6.848438000915289d-1*t121*t123* 4051 9 t126*t136*t215*t224+1.5979688668802342d+0*t121*t126*t131* 4052 : t136*t215*t216*t217 4053 t424 = 2.473556743557577d-2*t120*t423*t66+1.4841340461345462 4054 1 d-1*t124*t215*t232*t66+4.947113487115154d-2*t120*t232 4055 t425 = 1/t137**2 4056 t426 = t232**2 4057 t427 = -12*t101*t376*t93+t375+t373+t372+t363+t362+t361+t355 4058 t428 = 5.129762802484096d+0*t208*t381*t78-5.129762802484096d 4059 1 +0*t205*t381*t78+8.549604670806825d-1*t207*t269*t386+8.54 4060 2 9604670806825d-1*t204*t268*t380 4061 t429 = 5.848223622634648d-1*t427*t84+5.848223622634648d-1*t1 4062 1 02*t428+t352+t350+t349+t340+5.848223622634648d-1*t200*t27 4063 2 0+5.848223622634648d-1*t209*t267 4064 t430 = 6.666666666666666d-1*t214*t381*t78-6.666666666666666d 4065 1 -1*t213*t381*t78-1.111111111111111d-1*t207*t269*t394-1.11 4066 2 1111111111111d-1*t204*t268*t393 4067 t431 = 1.0272657001372934d+0*t121*t123*t129*t132*t215*t272 4068 t432 = -3.4242190004576445d-1*t121*t123*t126*t129*t430 4069 t433 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t272 4070 t434 = 7.98984433440117d-1*t121*t126*t129*t215*t216*t217 4071 t435 = 1.2128284535269115d+2*t103*t132*t430-4.04276151175637 4072 1 2d+1*t126*t429-4.851313814107646d+2*t103*t215*t229*t272+1 4073 2 .2128284535269115d+2*t132*t210*t272+1.2128284535269115d+2 4074 3 *t132*t215*t271 4075 t436 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t435 4076 t437 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t 4077 1 274 4078 t438 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2 4079 1 74 4080 t439 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t222*t 4081 1 272 4082 t440 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2 4083 1 22 4084 t441 = 3.4242190004576445d-1*t121*t123*t125*t222*t274*t409*t 4085 1 410 4086 t442 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222* 4087 1 t274 4088 t443 = t442+t441+t440+t439+t438+t437+t436+t434+t433+t432+t43 4089 1 1+t404+t403 4090 t444 = t442+t441+t440+t439+t438+t437+t436-5.862637881547574d 4091 1 -2*t127*t132*t133*t230*t435+t434+t433+t432+t431-1.1725275 4092 2 76309515d-1*t133*t134*t229*t430+1.7587913644642725d-1*t13 4093 3 2*t133*t222*t274*t409*t419+5.862637881547574d-1*t133*t134 4094 4 *t215*t272*t418+t417+t416+t404+t403+2.34505515261903d-1*t 4095 5 127*t133*t215*t229*t230*t274+2.735897678055535d-1*t127*t1 4096 6 32*t216*t226*t227*t230*t274-5.862637881547574d-2*t127*t13 4097 7 2*t133*t222*t230*t274+2.34505515261903d-1*t127*t133*t222* 4098 8 t229*t230*t272+5.47179535611107d-1*t134*t216*t226*t227*t2 4099 9 29*t272+2.735897678055535d-1*t127*t132*t216*t222*t226*t22 4100 : 7*t230+5.47179535611107d-1*t134*t215*t216*t226*t227*t229 4101 t445 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t444+ 4102 1 1.7121095002288222d-1*t121*t123*t125*t136*t443-3.42421900 4103 2 04576445d-1*t121*t123*t126*t131*t136*t430+3.4242190004576 4104 3 445d-1*t121*t123*t125*t131*t231*t277*t421+t399+t397-1.712 4105 4 1095002288222d-1*t121*t123*t125*t224*t225*t277+3.99492216 4106 5 7200585d-1*t121*t125*t131*t216*t217*t225*t277+3.424219000 4107 6 4576445d-1*t121*t123*t126*t131*t215*t225*t277-1.712109500 4108 7 2288222d-1*t121*t123*t125*t225*t231*t276-3.99492216720058 4109 8 5d-1*t121*t125*t136*t216*t217*t276-3.4242190004576445d-1* 4110 9 t121*t123*t126*t136*t215*t276+3.4242190004576445d-1*t121* 4111 : t123*t126*t131*t225*t231*t272-3.4242190004576445d-1*t121* 4112 ; t123*t126*t136*t224*t272+7.98984433440117d-1*t121*t126*t1 4113 < 31*t136*t216*t217*t272+1.0272657001372934d+0*t121*t123*t1 4114 = 31*t132*t136*t215*t272+3.994922167200585d-1*t121*t125*t13 4115 > 1*t216*t217*t225*t231-3.994922167200585d-1*t121*t125*t136 4116 ? *t216*t217*t224+7.98984433440117d-1*t121*t126*t131*t136*t 4117 @ 215*t216*t217 4118 t446 = 2.473556743557577d-2*t120*t445*t66+7.420670230672731d 4119 1 -2*t124*t215*t278*t66+7.420670230672731d-2*t124*t232*t272 4120 2 *t66+2.473556743557577d-2*t120*t278+2.473556743557577d-2* 4121 3 t120*t232 4122 t447 = 1/rhob**2.333333333333333d+0 4123 t448 = 1/t47**2 4124 t449 = t242**2 4125 t450 = 1/t45**3 4126 t451 = t241**2 4127 t452 = 1/rhob**2.3333333333333334d+0 4128 t453 = 1/rhob**1.6666666666666669d+0 4129 t454 = 1/t41**5 4130 t455 = 6.563527649164527d-2*t237*t43*t454+8.751370198886037d 4131 1 -2*t238*t43*t453+3.0144339229749983d-3*t452 4132 t456 = 7.876233178997433d-1*t42*t455+6.563527649164527d-2*t2 4133 1 37*t44*t454+8.751370198886037d-2*t238*t44*t453-2.62541105 4134 2 9665811d-1*t238*t239*t240 4135 t457 = -1.4107138347223802d-1*t42*t453*t46-3.52678458680595d 4136 1 -2*t237*t238*t46-1.269642451250142d+0*t236*t41*t456+2.539 4137 2 284902500284d+0*t41*t450*t451-4.23214150416714d-1*t236*t2 4138 3 39*t241*t42 4139 t458 = 1/t55**2 4140 t459 = t247**2 4141 t460 = 1/t53**3 4142 t461 = t246**2 4143 t462 = 6.563527649164527d-2*t237*t454*t51+8.751370198886037d 4144 1 -2*t238*t453*t51+4.753699179395351d-3*t452 4145 t463 = 6.563527649164527d-2*t237*t454*t52+8.751370198886037d 4146 1 -2*t238*t453*t52+7.876233178997433d-1*t42*t462-2.62541105 4147 2 9665811d-1*t238*t239*t245 4148 t464 = -1.4107138347223802d-1*t42*t453*t54-3.52678458680595d 4149 1 -2*t237*t238*t54-1.269642451250142d+0*t244*t41*t463+2.539 4150 2 284902500284d+0*t41*t460*t461-4.23214150416714d-1*t239*t2 4151 3 44*t246*t42 4152 t465 = 1/t62**2 4153 t466 = t252**2 4154 t467 = 1/t60**3 4155 t468 = t251**2 4156 t469 = 6.563527649164527d-2*t237*t454*t58+8.751370198886037d 4157 1 -2*t238*t453*t58+2.601716490612924d-3*t452 4158 t470 = 6.563527649164527d-2*t237*t454*t59+8.751370198886037d 4159 1 -2*t238*t453*t59+7.876233178997433d-1*t42*t469-2.62541105 4160 2 9665811d-1*t238*t239*t250 4161 t471 = -1.4107138347223802d-1*t42*t453*t61-3.52678458680595d 4162 1 -2*t237*t238*t61-1.269642451250142d+0*t249*t41*t470+2.539 4163 2 284902500284d+0*t41*t467*t468-4.23214150416714d-1*t239*t2 4164 3 49*t251*t42 4165 t472 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t471*t 4166 1 64+3.37738d-2*t465*t466*t64-1.0359398963604977d-3*t447*t6 4167 2 3+1.709920934161365d+0*(6.21814d-2*t243*t464*t57-6.21814d 4168 3 -2*t458*t459*t57+3.663697685584584d-3*t447*t56-3.10907d-2 4169 4 *t235*t457*t50+3.10907d-2*t448*t449*t50-1.761386524178568 4170 5 7d-3*t447*t48-5.495546528376876d-3*t234*t243*t247+2.64207 4171 6 9786267853d-3*t234*t235*t242)+1.5539098445407465d-3*t234* 4172 7 t248*t252)+3.37738d-2*t248*t471*t64-3.37738d-2*t465*t466* 4173 8 t64+1.0359398963604977d-3*t447*t63-1.5539098445407465d-3* 4174 9 t234*t248*t252)-6.21814d-2*t243*t464*t57+6.21814d-2*t458* 4175 : t459*t57-3.663697685584584d-3*t447*t56+5.495546528376876d 4176 ; -3*t234*t243*t247 4177 t473 = rhob**3.333333333333335d-1 4178 t474 = 1/rhob**8.333333333333333d-1 4179 t475 = t253**2 4180 t476 = exp(-1.617104604702549d+2*t65) 4181 t477 = 1/t107**3 4182 t478 = 3.553566382931298d+3*gammabb*t105*t475*t476*t477 4183 t479 = 2.2195402777608514d+0*gammabb*t108*t288*t473 4184 t480 = -1.0569239417908823d-1*gammabb*t108*t256*t474 4185 t481 = -1.0254939438542422d+2*gammabb*t106*t253*t255*t256*t2 4186 1 58 4187 t482 = -1.776783191465649d+3*gammabb*t105*t106*t258*t475 4188 t483 = 2.1974870225448048d+1*gammabb*t105*t106*t258*t472 4189 t484 = t483+t482+t481+t480+t479+t478 4190 t485 = 1/t107**4.0d+0 4191 t486 = 1/t104**6.0d+0 4192 t487 = 2.0107587937153953d+0*t112*t262*t473*t486+2.897369528 4193 1 551698d+3*t111*t475*t476*t485+t483+t482+t481+t480+t479+t4 4194 2 78-9.657898428505661d+2*t106*t111*t264*t475-5.74502512490 4195 3 1132d-2*t112*t262*t263*t474+1.1944679893212153d+1*t106*t1 4196 4 11*t264*t472-1.1148367900331342d+2*t106*t253*t255*t262*t2 4197 5 63*t264 4198 t488 = 1/t113**3 4199 t489 = t265**2 4200 t490 = 5.435608843495963d-1*gammabb*t105*t110*t488*t489-2.71 4201 1 78044217479813d-1*gammabb*t105*t110*t261*t487+2.717804421 4202 2 7479813d-1*gammabb*t105*t114*t484-1.0569239417908823d-1*g 4203 3 ammabb*t110*t114*t256*t474+2.2195402777608514d+0*gammabb* 4204 4 t110*t114*t288*t473-5.435608843495963d-1*gammabb*t105*t26 4205 5 0*t261*t265+1.268308730149058d+0*gammabb*t110*t255*t256*t 4206 6 261*t265-1.268308730149058d+0*gammabb*t114*t255*t256*t260 4207 t491 = -1.2367783717787881d-2*rhob*t490-2.4735567435575762d- 4208 1 2*t266 4209 t492 = 1/t115**2 4210 t493 = t266**2 4211 t494 = -8*t195*t199*t93+t377+t375+t373+t372+t363+t362+t361+t 4212 1 355+32*t101*t197*t199 4213 t495 = t268**2 4214 t496 = t388+t382 4215 t497 = t269**2 4216 t498 = t387+t383 4217 t499 = 2.564881401242048d+0*t208*t498+8.549604670806825d-1*t 4218 1 386*t497+2.564881401242048d+0*t205*t496+8.549604670806825 4219 2 d-1*t380*t495 4220 t500 = 5.848223622634648d-1*t494*t84+5.848223622634648d-1*t1 4221 1 02*t499+t352+t350+t349+t340+1.1696447245269297d+0*t267*t2 4222 2 70 4223 t501 = t272**2 4224 t502 = 3.333333333333333d-1*t214*t498-1.111111111111111d-1*t 4225 1 394*t497+3.333333333333333d-1*t213*t496-1.111111111111111 4226 2 d-1*t393*t495 4227 t503 = 1.0272657001372934d+0*t121*t123*t129*t132*t501 4228 t504 = -3.4242190004576445d-1*t121*t123*t126*t129*t502 4229 t505 = 1.5979688668802342d+0*t121*t126*t129*t216*t217*t272 4230 t506 = 1.2128284535269115d+2*t103*t132*t502-4.85131381410764 4231 1 6d+2*t103*t229*t501-4.042761511756372d+1*t126*t500+2.4256 4232 2 56907053823d+2*t132*t271*t272 4233 t507 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t506 4234 t508 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t272*t2 4235 1 74 4236 t509 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t27 4237 1 4 4238 t510 = t274**2 4239 t511 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t510 4240 t512 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t510 4241 t513 = t512+t511+t509+t508+t507+t505+t504+t503+t404+t403 4242 t514 = t512+t511+1.7587913644642725d-1*t132*t133*t409*t419*t 4243 1 510-5.862637881547574d-2*t127*t132*t133*t230*t510+t509+t5 4244 2 08+t507-5.862637881547574d-2*t127*t132*t133*t230*t506+t50 4245 3 5+t504+t503-1.172527576309515d-1*t133*t134*t229*t502+5.86 4246 4 2637881547574d-1*t133*t134*t418*t501+t417+t416+t404+t403+ 4247 5 4.69011030523806d-1*t127*t133*t229*t230*t272*t274+5.47179 4248 6 535611107d-1*t127*t132*t216*t226*t227*t230*t274+1.0943590 4249 7 71222214d+0*t134*t216*t226*t227*t229*t272 4250 t515 = t277**2 4251 t516 = 3.4242190004576445d-1*t121*t123*t125*t131*t421*t515-1 4252 1 .7121095002288222d-1*t121*t123*t125*t131*t225*t514+1.7121 4253 2 095002288222d-1*t121*t123*t125*t136*t513-3.42421900045764 4254 3 45d-1*t121*t123*t126*t131*t136*t502+1.0272657001372934d+0 4255 4 *t121*t123*t131*t132*t136*t501+t399+t397-3.42421900045764 4256 5 45d-1*t121*t123*t125*t225*t276*t277+6.848438000915289d-1* 4257 6 t121*t123*t126*t131*t225*t272*t277+7.98984433440117d-1*t1 4258 7 21*t125*t131*t216*t217*t225*t277-6.848438000915289d-1*t12 4259 8 1*t123*t126*t136*t272*t276-7.98984433440117d-1*t121*t125* 4260 9 t136*t216*t217*t276+1.5979688668802342d+0*t121*t126*t131* 4261 : t136*t216*t217*t272 4262 t517 = 2.473556743557577d-2*t120*t516*t66+1.4841340461345462 4263 1 d-1*t124*t272*t278*t66+4.947113487115154d-2*t120*t278 4264 t518 = t278**2 4265 t519 = -6.34154365074529d-1*t160*t161*t31 4266 t520 = 2.1974870225448048d+1*t158*t163*t28*t29 4267 t521 = t520+t519 4268 t522 = t520+t519-6.894030149881355d-1*gammaaa*t160*t168*t35+ 4269 1 2.3889359786424305d+1*gammaaa*t158*t169*t279*t29 4270 t523 = -2.7178044217479813d-1*gammaaa*t166*t28*t33*t522+2.71 4271 1 78044217479813d-1*gammaaa*t28*t37*t521-6.34154365074529d- 4272 2 1*t160*t161*t33*t37-1.7235075374703387d-1*gammaaa*t160*t1 4273 3 68*t31*t37+2.7178044217479813d-1*t165*t28*t37+5.435608843 4274 4 495963d-1*gammaaa*t170*t28*t280*t33*t332+6.34154365074529 4275 5 d-1*gammaaa*t160*t161*t166*t280*t33-2.7178044217479813d-1 4276 6 *t166*t170*t28*t33-7.386460874872879d-2*gammaaa*t166*t170 4277 7 *t279*t31-2.7178044217479813d-1*gammaaa*t165*t166*t28*t28 4278 8 0 4279 t524 = -1.2367783717787881d-2*rhoa*t523-1.2367783717787881d- 4280 1 2*t281 4281 t525 = -2.473556743557577d-2*t120*t232*t284*t425*t66 4282 t526 = 2.473556743557577d-2*t120*t284 4283 t527 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2 4284 1 83 4285 t528 = -3.994922167200585d-1*t125*t131*t136*t216*t217 4286 t529 = -6.839744195138837d-2*t121*t129*t132*t136*t216*t227 4287 t530 = -3.4242190004576445d-1*t123*t126*t129*t215 4288 t531 = -3.994922167200585d-1*t125*t129*t216*t217 4289 t532 = -1.7121095002288222d-1*t123*t125*t127*t221*t222 4290 t533 = t532+t531+t530 4291 t534 = -2.735897678055535d-1*t121*t132*t134*t216*t227 4292 t535 = t534+t532+t531+t530-1.172527576309515d-1*t121*t127*t1 4293 1 32*t222*t230*t282-2.34505515261903d-1*t121*t134*t215*t229 4294 2 *t282 4295 t536 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t535+ 4296 1 1.7121095002288222d-1*t121*t123*t125*t136*t533+t529+t528+ 4297 2 t527+3.4242190004576445d-1*t121*t123*t125*t131*t231*t283* 4298 3 t421-1.7121095002288222d-1*t121*t123*t125*t224*t225*t283+ 4299 4 3.4242190004576445d-1*t121*t123*t126*t131*t215*t225*t283- 4300 5 2.931318940773787d-2*t121*t129*t132*t225*t231*t282-5.8626 4301 6 37881547574d-2*t121*t129*t136*t215*t229*t282-1.7121095002 4302 7 288222d-1*t123*t125*t131*t225*t231+1.7121095002288222d-1* 4303 8 t123*t125*t136*t224-3.4242190004576445d-1*t123*t126*t131* 4304 9 t136*t215 4305 t537 = 2.473556743557577d-2*t120*t536*t66+7.420670230672731d 4306 1 -2*t124*t215*t284*t66+t526 4307 t538 = t212*t537 4308 t539 = 2.473556743557577d-2*t120*t287 4309 t540 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2 4310 1 86 4311 t541 = -7.98984433440117d-1*t125*t131*t136*t216*t217 4312 t542 = -1.3679488390277675d-1*t121*t129*t132*t136*t216*t227 4313 t543 = -6.848438000915289d-1*t123*t126*t129*t215 4314 t544 = -7.98984433440117d-1*t125*t129*t216*t217 4315 t545 = -3.4242190004576445d-1*t123*t125*t127*t221*t222 4316 t546 = t545+t544+t543 4317 t547 = -5.47179535611107d-1*t121*t132*t134*t216*t227 4318 t548 = t547+t545+t544+t543-2.34505515261903d-1*t121*t127*t13 4319 1 2*t222*t230*t282-4.69011030523806d-1*t121*t134*t215*t229* 4320 2 t282 4321 t549 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t548+ 4322 1 1.7121095002288222d-1*t121*t123*t125*t136*t546+t542+t541+ 4323 2 t540+3.4242190004576445d-1*t121*t123*t125*t131*t231*t286* 4324 3 t421-1.7121095002288222d-1*t121*t123*t125*t224*t225*t286+ 4325 4 3.4242190004576445d-1*t121*t123*t126*t131*t215*t225*t286- 4326 5 5.862637881547574d-2*t121*t129*t132*t225*t231*t282-1.1725 4327 6 27576309515d-1*t121*t129*t136*t215*t229*t282-3.4242190004 4328 7 576445d-1*t123*t125*t131*t225*t231+3.4242190004576445d-1* 4329 8 t123*t125*t136*t224-6.848438000915289d-1*t123*t126*t131*t 4330 9 136*t215 4331 t550 = 2.473556743557577d-2*t120*t549*t66+7.420670230672731d 4332 1 -2*t124*t215*t287*t66+t539 4333 t551 = -2.473556743557577d-2*t120*t278*t284*t425*t66 4334 t552 = -3.4242190004576445d-1*t123*t126*t129*t272 4335 t553 = -1.7121095002288222d-1*t123*t125*t127*t221*t274 4336 t554 = t553+t552+t531 4337 t555 = t553+t552+t534+t531-1.172527576309515d-1*t121*t127*t1 4338 1 32*t230*t274*t282-2.34505515261903d-1*t121*t134*t229*t272 4339 2 *t282 4340 t556 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t555+ 4341 1 1.7121095002288222d-1*t121*t123*t125*t136*t554+t529+t528+ 4342 2 t527+3.4242190004576445d-1*t121*t123*t125*t131*t277*t283* 4343 3 t421-1.7121095002288222d-1*t121*t123*t125*t225*t276*t283+ 4344 4 3.4242190004576445d-1*t121*t123*t126*t131*t225*t272*t283- 4345 5 2.931318940773787d-2*t121*t129*t132*t225*t277*t282-5.8626 4346 6 37881547574d-2*t121*t129*t136*t229*t272*t282-1.7121095002 4347 7 288222d-1*t123*t125*t131*t225*t277+1.7121095002288222d-1* 4348 8 t123*t125*t136*t276-3.4242190004576445d-1*t123*t126*t131* 4349 9 t136*t272 4350 t557 = 2.473556743557577d-2*t120*t556*t66+7.420670230672731d 4351 1 -2*t124*t272*t284*t66+t526 4352 t558 = t212*t557 4353 t559 = -6.848438000915289d-1*t123*t126*t129*t272 4354 t560 = -3.4242190004576445d-1*t123*t125*t127*t221*t274 4355 t561 = t560+t559+t544 4356 t562 = t560+t559+t547+t544-2.34505515261903d-1*t121*t127*t13 4357 1 2*t230*t274*t282-4.69011030523806d-1*t121*t134*t229*t272* 4358 2 t282 4359 t563 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t562+ 4360 1 1.7121095002288222d-1*t121*t123*t125*t136*t561+t542+t541+ 4361 2 t540+3.4242190004576445d-1*t121*t123*t125*t131*t277*t286* 4362 3 t421-1.7121095002288222d-1*t121*t123*t125*t225*t276*t286+ 4363 4 3.4242190004576445d-1*t121*t123*t126*t131*t225*t272*t286- 4364 5 5.862637881547574d-2*t121*t129*t132*t225*t277*t282-1.1725 4365 6 27576309515d-1*t121*t129*t136*t229*t272*t282-3.4242190004 4366 7 576445d-1*t123*t125*t131*t225*t277+3.4242190004576445d-1* 4367 8 t123*t125*t136*t276-6.848438000915289d-1*t123*t126*t131*t 4368 9 136*t272 4369 t564 = 2.473556743557577d-2*t120*t563*t66+7.420670230672731d 4370 1 -2*t124*t272*t287*t66+t539 4371 t565 = -6.34154365074529d-1*t108*t255*t256 4372 t566 = 2.1974870225448048d+1*t105*t106*t253*t258 4373 t567 = t566+t565 4374 t568 = t566+t565+2.3889359786424305d+1*gammabb*t106*t253*t26 4375 1 4*t288-6.894030149881355d-1*gammabb*t112*t255*t263 4376 t569 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t568+2. 4377 1 7178044217479813d-1*gammabb*t105*t114*t567+5.435608843495 4378 2 963d-1*gammabb*t105*t110*t265*t289*t488-2.717804421747981 4379 3 3d-1*gammabb*t105*t260*t261*t289+6.34154365074529d-1*gamm 4380 4 abb*t110*t255*t256*t261*t289-7.386460874872879d-2*gammabb 4381 5 *t108*t261*t265*t288-2.7178044217479813d-1*t105*t110*t261 4382 6 *t265-1.7235075374703387d-1*gammabb*t108*t114*t255*t263+2 4383 7 .7178044217479813d-1*t105*t114*t260-6.34154365074529d-1*t 4384 8 110*t114*t255*t256 4385 t570 = -1.2367783717787881d-2*rhob*t569-1.2367783717787881d- 4386 1 2*t290 4387 t571 = t281**2 4388 t572 = t280**2 4389 t573 = 5.435608843495963d-1*gammaaa*t28*t33*t332*t572+1.4772 4390 1 921749745757d-1*t279*t31*t37-4.014991205359595d-2*gammaaa 4391 2 *t166*t33*t330*t35-5.435608843495963d-1*t166*t28*t280*t33 4392 3 -1.4772921749745757d-1*gammaaa*t166*t279*t280*t31 4393 t574 = t284**2 4394 t575 = -2.473556743557577d-2*t120*t425*t574*t66 4395 t576 = t283**2 4396 t577 = -3.4242190004576445d-1*t123*t125*t131*t225*t283 4397 t578 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t283 4398 t579 = t578+t577+3.4242190004576445d-1*t121*t123*t125*t131*t 4399 1 421*t576-1.003747801339898d-2*t121*t131*t134*t225*t415*t4 4400 2 18+5.862637881547574d-2*t129*t132*t136*t282 4401 t580 = 2.473556743557577d-2*t120*t212*t579*t66 4402 t581 = t578+t577+3.4242190004576445d-1*t121*t123*t125*t131*t 4403 1 283*t286*t421-2.007495602679796d-2*t121*t131*t134*t225*t4 4404 2 15*t418-2.931318940773787d-2*t121*t129*t132*t225*t282*t28 4405 3 6-1.7121095002288222d-1*t123*t125*t131*t225*t286+1.172527 4406 4 576309515d-1*t129*t132*t136*t282 4407 t582 = t287**2 4408 t583 = t286**2 4409 t584 = 3.4242190004576445d-1*t121*t123*t125*t131*t421*t583-4 4410 1 .014991205359592d-2*t121*t131*t134*t225*t415*t418-1.17252 4411 2 7576309515d-1*t121*t129*t132*t225*t282*t286-6.84843800091 4412 3 5289d-1*t123*t125*t131*t225*t286+2.34505515261903d-1*t129 4413 4 *t132*t136*t282 4414 t585 = t290**2 4415 t586 = t289**2 4416 t587 = 5.435608843495963d-1*gammabb*t105*t110*t488*t586-4.01 4417 1 4991205359595d-2*gammabb*t110*t112*t261*t486-1.4772921749 4418 2 745757d-1*gammabb*t108*t261*t288*t289-5.435608843495963d- 4419 3 1*t105*t110*t261*t289+1.4772921749745757d-1*t108*t114*t28 4420 4 8 4421 t588 = 1/rhoa**3.333333333333333d+0 4422 t589 = 1/rhoa**3.3333333333333337d+0 4423 t590 = 1/rhoa**2.666666666666667d+0 4424 t591 = 1/t2**7 4425 t592 = 1/rhoa**2.0d+0 4426 t593 = 1/t16**3 4427 t594 = t152**3 4428 t595 = -1.269642451250142d+0*t149*t2*(7.876233178997433d-1*t 4429 1 3*(-5.469606374303773d-2*t12*t591*t592-1.4585616998143394 4430 2 d-1*t12*t143*t590-1.1708185015918181d-2*t589-1.3127055298 4431 3 329054d-1*t12*t296*t298)-5.469606374303773d-2*t13*t591*t5 4432 4 92-1.4585616998143394d-1*t13*t143*t590-3.9381165894987163 4433 5 d-1*t143*t144*t306-1.3127055298329054d-1*t13*t296*t298+1. 4434 6 9690582947493582d-1*t142*t150*t298+2.625411059665811d-1*t 4435 7 143*t150*t297)+1.763392293402975d-2*t15*t298*t592+2.35118 4436 8 97245373004d-1*t15*t3*t590+7.617854707500852d+0*t151*t2*t 4437 9 304*t307-6.34821225625071d-1*t144*t149*t3*t307+1.26964245 4438 : 1250142d+0*t144*t3*t304*t305+4.2321415041671406d-1*t149*t 4439 ; 151*t297*t3+7.053569173611901d-2*t143*t15*t296-7.61785470 4440 < 7500852d+0*t151**3*t2/t14**4+1.0580353760417849d-1*t142*t 4441 = 143*t149*t151 4442 t596 = 1/t23**3 4443 t597 = t157**3 4444 t598 = -1.269642451250142d+0*t154*t2*(7.876233178997433d-1*t 4445 1 3*(-5.469606374303773d-2*t19*t591*t592-1.4585616998143394 4446 2 d-1*t143*t19*t590-6.407931356509611d-3*t589-1.31270552983 4447 3 29054d-1*t19*t296*t298)-5.469606374303773d-2*t20*t591*t59 4448 4 2-1.4585616998143394d-1*t143*t20*t590-3.9381165894987163d 4449 5 -1*t143*t144*t313-1.3127055298329054d-1*t20*t296*t298+1.9 4450 6 690582947493582d-1*t142*t155*t298+2.625411059665811d-1*t1 4451 7 43*t155*t297)+1.763392293402975d-2*t22*t298*t592+2.351189 4452 8 7245373004d-1*t22*t3*t590+7.617854707500852d+0*t156*t2*t3 4453 9 11*t314-6.34821225625071d-1*t144*t154*t3*t314+1.269642451 4454 : 250142d+0*t144*t3*t311*t312+4.2321415041671406d-1*t154*t1 4455 ; 56*t297*t3+7.053569173611901d-2*t143*t22*t296-7.617854707 4456 < 500852d+0*t156**3*t2/t21**4+1.0580353760417849d-1*t142*t1 4457 = 43*t154*t156 4458 t599 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(4 4459 1 .1099018897499934d-3*t588*t9-6.21814d-2*t11*t147**3/t8**3 4460 2 -3.10907d-2*t11*t140*(1.763392293402975d-2*t298*t592*t7+2 4461 3 .3511897245373004d-1*t3*t590*t7+7.053569173611901d-2*t143 4462 4 *t296*t7-7.617854707500852d+0*t146**3*t2/t6**4-1.26964245 4463 5 1250142d+0*t141*t2*(7.876233178997433d-1*t3*(-5.469606374 4464 6 303773d-2*t4*t591*t592-1.4585616998143394d-1*t143*t4*t590 4465 7 -7.424439106586571d-3*t589-1.3127055298329054d-1*t296*t29 4466 8 8*t4)-5.469606374303773d-2*t5*t591*t592-1.458561699814339 4467 9 4d-1*t143*t5*t590-1.3127055298329054d-1*t296*t298*t5-3.93 4468 : 81165894987163d-1*t143*t144*t299+1.9690582947493582d-1*t1 4469 ; 42*t145*t298+2.625411059665811d-1*t143*t145*t297)-6.34821 4470 < 225625071d-1*t141*t144*t3*t300+7.617854707500852d+0*t146* 4471 = t2*t294*t300+4.2321415041671406d-1*t141*t146*t297*t3+1.26 4472 > 9642451250142d+0*t144*t294*t295*t3+1.0580353760417849d-1* 4473 ? t141*t142*t143*t146)+6.21814d-2*t148*t18*t595+1.243628d-1 4474 @ *t18*t593*t594-8.548627933030694d-3*t17*t588-1.865442d-1* 4475 1 t152*t18*t302*t308-8.243319792565315d-3*t139*t148*t308+8. 4476 2 243319792565315d-3*t139*t302*t303+9.327209999999999d-2*t1 4477 3 1*t147*t292*t301+3.96311967940178d-3*t139*t140*t301-3.963 4478 4 11967940178d-3*t139*t292*t293+1.0991093056753751d-2*t148* 4479 5 t152*t291-5.284159572535706d-3*t140*t147*t291)-3.37738d-2 4480 6 *t153*t25*t598-6.75476d-2*t25*t596*t597+2.417193091507827 4481 7 7d-3*t24*t588+1.013214d-1*t157*t25*t309*t315+2.3308647668 4482 8 1112d-3*t139*t153*t315-2.33086476681112d-3*t139*t309*t310 4483 9 -3.107819689081493d-3*t153*t157*t291)+3.37738d-2*t153*t25 4484 : *t598+6.75476d-2*t25*t596*t597-2.4171930915078277d-3*t24* 4485 ; t588-1.013214d-1*t157*t25*t309*t315-2.33086476681112d-3*t 4486 < 139*t153*t315+2.33086476681112d-3*t139*t309*t310+3.107819 4487 = 689081493d-3*t153*t157*t291)-6.21814d-2*t148*t18*t595-1.2 4488 > 43628d-1*t18*t593*t594+8.548627933030694d-3*t17*t588+1.86 4489 ? 5442d-1*t152*t18*t302*t308+8.243319792565315d-3*t139*t148 4490 @ *t308-8.243319792565315d-3*t139*t302*t303-1.0991093056753 4491 1 751d-2*t148*t152*t291 4492 t600 = rhoa**5.000000000000002d-1 4493 t601 = 1/rhoa**6.666666666666665d-1 4494 t602 = 1/rhoa**1.8333333333333332d+0 4495 t603 = t158**3 4496 t604 = exp(-2.4256569070538234d+2*t26) 4497 t605 = 8.619732841431575d+5*gammaaa*t28*t603*t604/t30**4 4498 t606 = -2.4874964680519085d+4*gammaaa*t160*t161*t319*t320*t3 4499 1 21 4500 t607 = -8.619732841431575d+5*gammaaa*t28*t320*t321*t603 4501 t608 = 1.0660699148793894d+4*gammaaa*t158*t28*t316*t320*t321 4502 t609 = -1.035785462955064d+1*gammaaa*t168*t31*t600 4503 t610 = 1.1097701388804264d+0*gammaaa*t279*t31*t601 4504 t611 = 8.807699514924018d-2*gammaaa*t161*t31*t602 4505 t612 = 5.383843205234772d+2*gammaaa*t158*t163*t279*t29*t317 4506 t613 = -2.563734859635607d+1*gammaaa*t158*t161*t163*t29*t318 4507 t614 = 1.2437482340259542d+4*gammaaa*t160*t161*t163*t29*t319 4508 t615 = -1.5382409157813634d+2*gammaaa*t160*t161*t163*t29*t31 4509 1 6 4510 t616 = 1.436622140238596d+5*gammaaa*t163*t28*t29*t603 4511 t617 = -5.330349574396946d+3*gammaaa*t158*t163*t28*t29*t316 4512 t618 = 2.1974870225448048d+1*gammaaa*t163*t28*t29*t599 4513 t619 = 1/t27**7.0d+0 4514 t620 = 1/t36**4 4515 t621 = 1/t38**3 4516 t622 = t178**3 4517 t623 = 1/t76**3 4518 t624 = -1.243628d-1*t622*t623*t69 4519 t625 = 1.865442d-1*t178*t339*t348*t69 4520 t626 = -8.243319792565315d-3*t181*t338*t339 4521 t627 = 1/t66**3.3333333333333337d+0 4522 t628 = 1/t66**2.0d+0 4523 t629 = 1/t70**7 4524 t630 = 1/t66**2.666666666666667d+0 4525 t631 = 2.3511897245373004d-1*t630*t71*t75+1.763392293402975d 4526 1 -2*t344*t628*t75+7.053569173611901d-2*t174*t343*t75-7.617 4527 2 854707500852d+0*t176**3*t70/t74**4-1.269642451250142d+0*t 4528 3 177*t70*(-1.4585616998143394d-1*t174*t630*t73-5.469606374 4529 4 303773d-2*t628*t629*t73-1.3127055298329054d-1*t343*t344*t 4530 5 73+7.876233178997433d-1*t71*(-1.4585616998143394d-1*t174* 4531 6 t630*t72-5.469606374303773d-2*t628*t629*t72-1.31270552983 4532 7 29054d-1*t343*t344*t72-1.1708185015918181d-2*t627)-3.9381 4533 8 165894987163d-1*t173*t174*t346+2.625411059665811d-1*t174* 4534 9 t175*t345+1.9690582947493582d-1*t172*t175*t344)-6.3482122 4535 : 5625071d-1*t173*t177*t347*t71+4.2321415041671406d-1*t176* 4536 ; t177*t345*t71+1.269642451250142d+0*t173*t341*t342*t71+7.6 4537 < 17854707500852d+0*t176*t342*t347*t70+1.0580353760417849d- 4538 = 1*t172*t174*t176*t177 4539 t632 = -6.21814d-2*t179*t631*t69 4540 t633 = 8.243319792565315d-3*t179*t181*t348 4541 t634 = -1.0991093056753751d-2*t178*t179*t351 4542 t635 = 1/t66**3.333333333333333d+0 4543 t636 = 8.548627933030694d-3*t635*t77 4544 t637 = t204**3 4545 t638 = 1/t80**1.6666666666666669d+0 4546 t639 = 6*t78*t93 4547 t640 = -6*t381 4548 t641 = t640+t639 4549 t642 = t207**3 4550 t643 = 1/t82**1.6666666666666669d+0 4551 t644 = -6*t78*t93 4552 t645 = 6*t381 4553 t646 = t645+t644 4554 t647 = t186**3 4555 t648 = 1/t90**3 4556 t649 = 6.75476d-2*t647*t648*t85 4557 t650 = -1.013214d-1*t186*t354*t360*t85 4558 t651 = 2.33086476681112d-3*t181*t353*t354 4559 t652 = 2.3511897245373004d-1*t630*t71*t89+1.763392293402975d 4560 1 -2*t344*t628*t89+7.053569173611901d-2*t174*t343*t89-7.617 4561 2 854707500852d+0*t184**3*t70/t88**4-1.269642451250142d+0*t 4562 3 185*t70*(-1.4585616998143394d-1*t174*t630*t87-5.469606374 4563 4 303773d-2*t628*t629*t87-1.3127055298329054d-1*t343*t344*t 4564 5 87+7.876233178997433d-1*t71*(-1.4585616998143394d-1*t174* 4565 6 t630*t86-5.469606374303773d-2*t628*t629*t86-1.31270552983 4566 7 29054d-1*t343*t344*t86-6.407931356509611d-3*t627)-3.93811 4567 8 65894987163d-1*t173*t174*t358+2.625411059665811d-1*t174*t 4568 9 183*t345+1.9690582947493582d-1*t172*t183*t344)-6.34821225 4569 : 625071d-1*t173*t185*t359*t71+1.269642451250142d+0*t173*t3 4570 ; 56*t357*t71+4.2321415041671406d-1*t184*t185*t345*t71+7.61 4571 < 7854707500852d+0*t184*t357*t359*t70+1.0580353760417849d-1 4572 = *t172*t174*t184*t185 4573 t653 = 3.37738d-2*t187*t652*t85 4574 t654 = -2.33086476681112d-3*t181*t187*t360 4575 t655 = 3.107819689081493d-3*t186*t187*t351 4576 t656 = -2.4171930915078277d-3*t635*t91 4577 t657 = t92*t93*(1.709920934161365d+0*(-6.21814d-2*t193**3*t9 4578 1 4/t99**3-3.10907d-2*t194*t94*(2.3511897245373004d-1*t630* 4579 2 t71*t98+1.763392293402975d-2*t344*t628*t98+7.053569173611 4580 3 901d-2*t174*t343*t98-7.617854707500852d+0*t191**3*t70/t97 4581 4 **4-1.269642451250142d+0*t192*t70*(-1.4585616998143394d-1 4582 5 *t174*t630*t96-5.469606374303773d-2*t628*t629*t96-1.31270 4583 6 55298329054d-1*t343*t344*t96+7.876233178997433d-1*t71*(-1 4584 7 .4585616998143394d-1*t174*t630*t95-5.469606374303773d-2*t 4585 8 628*t629*t95-1.3127055298329054d-1*t343*t344*t95-7.424439 4586 9 106586571d-3*t627)-3.9381165894987163d-1*t173*t174*t368+2 4587 : .625411059665811d-1*t174*t190*t345+1.9690582947493582d-1* 4588 ; t172*t190*t344)-6.34821225625071d-1*t173*t192*t369*t71+1. 4589 < 269642451250142d+0*t173*t366*t367*t71+4.2321415041671406d 4590 = -1*t191*t192*t345*t71+7.617854707500852d+0*t191*t367*t369 4591 > *t70+1.0580353760417849d-1*t172*t174*t191*t192)+9.3272099 4592 ? 99999999d-2*t193*t365*t370*t94-8.548627933030694d-3*t635* 4593 @ t77+6.21814d-2*t179*t631*t69+1.243628d-1*t622*t623*t69-1. 4594 1 865442d-1*t178*t339*t348*t69+4.1099018897499934d-3*t100*t 4595 2 635+3.96311967940178d-3*t181*t194*t370-3.96311967940178d- 4596 3 3*t181*t364*t365-5.284159572535706d-3*t193*t194*t351+1.09 4597 4 91093056753751d-2*t178*t179*t351-8.243319792565315d-3*t17 4598 5 9*t181*t348+8.243319792565315d-3*t181*t338*t339)+2.417193 4599 6 0915078277d-3*t635*t91-3.37738d-2*t187*t652*t85-6.75476d- 4600 7 2*t647*t648*t85+1.013214d-1*t186*t354*t360*t85+2.33086476 4601 8 681112d-3*t181*t187*t360-2.33086476681112d-3*t181*t353*t3 4602 9 54-3.107819689081493d-3*t186*t187*t351) 4603 t658 = -12*t197*t371*t92 4604 t659 = 60*t195*t374*t92 4605 t660 = 36*t195*t376*t93 4606 t661 = -120*t101*t92/t66**7 4607 t662 = -144*t101*t197*t376 4608 t663 = 24*t101*t78*t93 4609 t664 = 5.848223622634648d-1*t84*(12*t199*t371*t93+t663+t662+ 4610 1 t661+t660+t659+t658+t657+t656+t655+t654+t653+t651+t650+t6 4611 2 49+240*t101*t199*t374-96*t195*t197*t199)+5.84822362263464 4612 3 8d-1*t102*(2.564881401242048d+0*t208*t646-5.6997364472045 4613 4 5d-1*t642*t643+2.564881401242048d+0*t205*t641-5.699736447 4614 5 20455d-1*t637*t638+2.5648814012420473d+0*t207*t386*t389+2 4615 6 .5648814012420473d+0*t204*t380*t384)+t636+t634+t633+t632+ 4616 7 t626+t625+t624+1.7544670867903944d+0*t200*t390+1.75446708 4617 8 67903944d+0*t209*t378 4618 t665 = t215**3 4619 t666 = 1/t80**2.3333333333333334d+0 4620 t667 = 1/t82**2.3333333333333334d+0 4621 t668 = 1.4814814814814814d-1*t642*t667+1.4814814814814814d-1 4622 1 *t637*t666+3.333333333333333d-1*t214*t646+3.3333333333333 4623 2 33d-1*t213*t641-3.333333333333333d-1*t207*t389*t394-3.333 4624 3 333333333333d-1*t204*t384*t393 4625 t669 = t66**5.000000000000002d-1 4626 t670 = -6.525039539760956d+0*t121*t125*t131*t136*t227*t669 4627 t671 = 1/t66**6.666666666666665d-1 4628 t672 = 6.991113792601027d-1*t121*t125*t131*t136*t282*t671 4629 t673 = 1/t66**1.8333333333333332d+0 4630 t674 = 5.548503010000815d-2*t121*t125*t131*t136*t217*t673 4631 t675 = -4.1090628005491736d+0*t121*t123*t129*t229*t665 4632 t676 = 3.08179710041188d+0*t121*t123*t129*t132*t215*t395 4633 t677 = -7.190859900961053d+0*t121*t129*t132*t216*t217*t392 4634 t678 = -3.4242190004576445d-1*t121*t123*t126*t129*t668 4635 t679 = 2.396953300320351d+0*t121*t126*t129*t216*t217*t395 4636 t680 = -8.389336551121229d+0*t121*t126*t129*t215*t282*t396 4637 t681 = 3.9949221672005863d-1*t121*t126*t129*t215*t217*t398 4638 t682 = -6.525039539760956d+0*t121*t125*t129*t227*t669 4639 t683 = 6.991113792601027d-1*t121*t125*t129*t282*t671 4640 t684 = 5.548503010000815d-2*t121*t125*t129*t217*t673 4641 t685 = 1.0272657001372934d+0*t121*t123*t126*t127*t215*t221*t 4642 1 405 4643 t686 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t 4644 1 405 4645 t687 = -3.08179710041188d+0*t121*t123*t127*t132*t221*t222*t3 4646 1 92 4647 t688 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t222*t 4648 1 395 4649 t689 = -4.793906600640702d+0*t121*t126*t127*t215*t216*t217*t 4650 1 221*t222 4651 t690 = -4.1946682755606146d+0*t121*t125*t127*t221*t222*t282* 4652 1 t396 4653 t691 = 1.9974610836002932d-1*t121*t125*t127*t217*t221*t222*t 4654 1 398 4655 t692 = 1.0272657001372934d+0*t121*t123*t125*t222*t405*t409*t 4656 1 410 4657 t693 = -5.136328500686467d-1*t121*t123*t125*t127*t221*t222*t 4658 1 405 4659 t694 = 2.425656907053823d+2*t103*t132*t215-8.085523023512744 4660 1 d+1*t126*t210 4661 t695 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t411*t 4662 1 694 4663 t696 = 1.2128284535269115d+2*t103*t132*t668+2.42565690705382 4664 1 3d+3*t103*t418*t665-4.042761511756372d+1*t126*t664-1.4553 4665 2 94144232294d+3*t103*t215*t229*t395+3.638485360580735d+2*t 4666 3 132*t210*t395-1.455394144232294d+3*t210*t229*t392+3.63848 4667 4 5360580735d+2*t132*t215*t391 4668 t697 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t696 4669 t698 = -2.0545314002745868d+0*t121*t123*t126*t215*t409*t410* 4670 1 t411 4671 t699 = -2.396953300320351d+0*t121*t125*t216*t217*t409*t410*t 4672 1 411 4673 t700 = 1.0272657001372934d+0*t121*t123*t126*t127*t215*t221*t 4674 1 411 4675 t701 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t 4676 1 411 4677 t702 = exp(-1.2128284535269115d+2*t103*t126) 4678 t703 = 1/t128**4 4679 t704 = t222**3 4680 t705 = -1.0272657001372934d+0*t121*t123*t125*t702*t703*t704 4681 t706 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t704 4682 t707 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t704 4683 t708 = 1/t122**7.0d+0 4684 t709 = -5.585791092696718d+0*t132*t134*t226*t669*t708 4685 t710 = 3.9898507804976574d-1*t132*t134*t226*t415*t671 4686 t711 = 1.8999289430941224d-2*t132*t134*t226*t227*t673 4687 t712 = 1/t119**7.0d+0 4688 t713 = 1/t128**5.0d+0 4689 t714 = 1/t135**4 4690 t715 = -2.473556743557577d-2*t120*t426 4691 t716 = 1/t137**3 4692 t717 = 2.0d+0*t429 4693 t718 = t639-2*t381 4694 t719 = t644+2*t381 4695 t720 = -12*t195*t376*t93 4696 t721 = 48*t101*t197*t376 4697 t722 = -24*t101*t78*t93 4698 t723 = 5.848223622634648d-1*t84*(4*t199*t371*t93+t722+t721+t 4699 1 720+t661+t659+t658+t657+t656+t655+t654+t653+t651+t650+t64 4700 2 9+80*t101*t199*t374-32*t195*t197*t199)+5.848223622634648d 4701 3 -1*t102*(3.41984186832273d+0*t207*t381*t386*t78-3.4198418 4702 4 6832273d+0*t204*t380*t381*t78+2.564881401242048d+0*t208*t 4703 5 719+2.564881401242048d+0*t205*t718-5.69973644720455d-1*t2 4704 6 69*t385*t643-5.69973644720455d-1*t268*t379*t638+8.5496046 4705 7 70806825d-1*t269*t386*t389+8.549604670806825d-1*t268*t380 4706 8 *t384)+t636+t634+t633+t632+t626+t625+t624+1.1696447245269 4707 9 297d+0*t200*t428+1.1696447245269297d+0*t209*t427+5.848223 4708 : 622634648d-1*t267*t390+5.848223622634648d-1*t270*t378 4709 t724 = 1.4841340461345462d-1*t124*t215*t278 4710 t725 = 1.4841340461345462d-1*t124*t232*t272 4711 t726 = 4.947113487115154d-2*t120*t445 4712 t727 = -4.793906600640702d+0*t121*t131*t132*t136*t215*t216*t 4713 1 217*t272 4714 t728 = 1.5979688668802342d+0*t121*t126*t131*t136*t216*t217*t 4715 1 430 4716 t729 = -4.444444444444444d-1*t207*t381*t394*t78+4.4444444444 4717 1 44444d-1*t204*t381*t393*t78+3.333333333333333d-1*t214*t71 4718 2 9+3.333333333333333d-1*t213*t718+1.4814814814814814d-1*t2 4719 3 69*t385*t667+1.4814814814814814d-1*t268*t379*t666-1.11111 4720 4 1111111111d-1*t269*t389*t394-1.111111111111111d-1*t268*t3 4721 5 84*t393 4722 t730 = 1.5979688668802342d+0*t121*t126*t136*t215*t216*t217*t 4723 1 276 4724 t731 = -1.5979688668802342d+0*t121*t126*t131*t215*t216*t217* 4725 1 t225*t277 4726 t732 = 1.5979688668802342d+0*t121*t126*t136*t216*t217*t224*t 4727 1 272 4728 t733 = 7.98984433440117d-1*t121*t125*t216*t217*t224*t225*t27 4729 1 7 4730 t734 = -1.5979688668802342d+0*t121*t126*t131*t216*t217*t225* 4731 1 t231*t272 4732 t735 = 7.98984433440117d-1*t121*t125*t216*t217*t225*t231*t27 4733 1 6 4734 t736 = -1.5979688668802342d+0*t121*t125*t131*t216*t217*t231* 4735 1 t277*t421 4736 t737 = -7.98984433440117d-1*t121*t125*t136*t216*t217*t443 4737 t738 = 7.98984433440117d-1*t121*t125*t131*t216*t217*t225*t44 4738 1 4 4739 t739 = -4.1090628005491736d+0*t121*t123*t129*t229*t272*t392 4740 t740 = 1.0272657001372934d+0*t121*t123*t129*t132*t272*t395 4741 t741 = 2.0545314002745868d+0*t121*t123*t129*t132*t215*t430 4742 t742 = -4.793906600640702d+0*t121*t129*t132*t215*t216*t217*t 4743 1 272 4744 t743 = -2.396953300320351d+0*t121*t129*t132*t216*t217*t392 4745 t744 = 1.5979688668802342d+0*t121*t126*t129*t216*t217*t430 4746 t745 = -3.4242190004576445d-1*t121*t123*t126*t129*t729 4747 t746 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t395 4748 t747 = -2.79644551704041d+0*t121*t126*t129*t272*t282*t396 4749 t748 = 1.3316407224001955d-1*t121*t126*t129*t217*t272*t398 4750 t749 = -5.59289103408082d+0*t121*t126*t129*t215*t282*t396 4751 t750 = 2.663281444800391d-1*t121*t126*t129*t215*t217*t398 4752 t751 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t4 4753 1 35 4754 t752 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t43 4755 1 5 4756 t753 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t272*t 4757 1 405 4758 t754 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t4 4759 1 05 4760 t755 = -1.0272657001372934d+0*t121*t123*t127*t132*t221*t274* 4761 1 t392 4762 t756 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t274*t 4763 1 395 4764 t757 = -1.5979688668802342d+0*t121*t126*t127*t215*t216*t217* 4765 1 t221*t274 4766 t758 = -1.398222758520205d+0*t121*t125*t127*t221*t274*t282*t 4767 1 396 4768 t759 = 6.658203612000978d-2*t121*t125*t127*t217*t221*t274*t3 4769 1 98 4770 t760 = 3.4242190004576445d-1*t121*t123*t125*t274*t405*t409*t 4771 1 410 4772 t761 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274* 4773 1 t405 4774 t762 = -2.0545314002745868d+0*t121*t123*t127*t132*t215*t221* 4775 1 t222*t272 4776 t763 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t222*t4 4777 1 30 4778 t764 = -1.5979688668802342d+0*t121*t126*t127*t216*t217*t221* 4779 1 t222*t272 4780 t765 = -1.5979688668802342d+0*t121*t126*t127*t215*t216*t217* 4781 1 t221*t222 4782 t766 = -2.79644551704041d+0*t121*t125*t127*t221*t222*t282*t3 4783 1 96 4784 t767 = 1.3316407224001955d-1*t121*t125*t127*t217*t221*t222*t 4785 1 398 4786 t768 = 6.848438000915289d-1*t121*t123*t125*t222*t409*t410*t4 4787 1 35 4788 t769 = -3.4242190004576445d-1*t121*t123*t125*t127*t221*t222* 4789 1 t435 4790 t770 = -1.3696876001830577d+0*t121*t123*t126*t215*t222*t274* 4791 1 t409*t410 4792 t771 = -1.5979688668802342d+0*t121*t125*t216*t217*t222*t274* 4793 1 t409*t410 4794 t772 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t2 4795 1 22*t274 4796 t773 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t22 4797 1 2*t274 4798 t774 = 1.2128284535269115d+2*t103*t132*t729-4.04276151175637 4799 1 2d+1*t126*t723-9.702627628215292d+2*t103*t215*t229*t430+2 4800 2 .425656907053823d+2*t132*t210*t430+2.425656907053823d+2*t 4801 3 132*t215*t429+2.425656907053823d+3*t103*t272*t392*t418-4. 4802 4 851313814107646d+2*t103*t229*t272*t395+1.2128284535269115 4803 5 d+2*t132*t271*t395-4.851313814107646d+2*t229*t271*t392+1. 4804 6 2128284535269115d+2*t132*t272*t391-9.702627628215292d+2*t 4805 7 210*t215*t229*t272 4806 t775 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t774 4807 t776 = -6.848438000915289d-1*t121*t123*t126*t272*t409*t410*t 4808 1 411 4809 t777 = -7.98984433440117d-1*t121*t125*t216*t217*t409*t410*t4 4810 1 11 4811 t778 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t272*t 4812 1 411 4813 t779 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t4 4814 1 11 4815 t780 = -1.0272657001372934d+0*t121*t123*t125*t274*t411*t702* 4816 1 t703 4817 t781 = 3.4242190004576445d-1*t121*t123*t125*t274*t409*t410*t 4818 1 411 4819 t782 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274* 4820 1 t411 4821 t783 = 2.425656907053823d+2*t103*t132*t272-8.085523023512744 4822 1 d+1*t126*t271 4823 t784 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t411*t 4824 1 783 4825 t785 = -5.47179535611107d+0*t134*t215*t216*t226*t227*t272*t4 4826 1 18 4827 t786 = 1.094359071222214d+0*t134*t216*t226*t227*t229*t430 4828 t787 = 5.47179535611107d-1*t127*t132*t216*t226*t227*t230*t43 4829 1 5 4830 t788 = -2.188718142444428d+0*t127*t215*t216*t226*t227*t229*t 4831 1 230*t274 4832 t789 = -2.188718142444428d+0*t127*t216*t222*t226*t227*t229*t 4833 1 230*t272 4834 t790 = -1.641538606833321d+0*t132*t216*t222*t226*t227*t274*t 4835 1 409*t419 4836 t791 = 5.47179535611107d-1*t127*t132*t216*t222*t226*t227*t23 4837 1 0*t274 4838 t792 = 2.9682680922690924d-1*t119*t138*t215*t272 4839 t793 = 1.4841340461345462d-1*t124*t138*t430 4840 t794 = 5.848223622634648d-1*t102*(-1.5389288407452287d+1*t20 4841 1 8*t78*t93+1.5389288407452287d+1*t205*t78*t93+3.4198418683 4842 2 2273d+0*t269*t381*t386*t78-3.41984186832273d+0*t268*t380* 4843 3 t381*t78-5.69973644720455d-1*t207*t497*t643-5.69973644720 4844 4 455d-1*t204*t495*t638+8.549604670806825d-1*t207*t386*t498 4845 5 +8.549604670806825d-1*t204*t380*t496-5.129762802484096d+0 4846 6 *t208*t381+5.129762802484096d+0*t205*t381)+5.848223622634 4847 7 648d-1*t84*(-4*t199*t371*t93+t721+t720+t663+t661+t659+t65 4848 8 8+t657+t656+t655+t654+t653+t651+t650+t649-80*t101*t199*t3 4849 9 74+32*t195*t197*t199)+t636+t634+t633+t632+t626+t625+t624+ 4850 : 5.848223622634648d-1*t200*t499+5.848223622634648d-1*t209* 4851 ; t494+1.1696447245269297d+0*t267*t428+1.1696447245269297d+ 4852 < 0*t270*t427 4853 t795 = -2.0d+0*t214*t78*t93+2.0d+0*t213*t78*t93-4.4444444444 4854 1 44444d-1*t269*t381*t394*t78+4.444444444444444d-1*t268*t38 4855 2 1*t393*t78+1.4814814814814814d-1*t207*t497*t667+1.4814814 4856 3 814814814d-1*t204*t495*t666-1.111111111111111d-1*t207*t39 4857 4 4*t498-1.111111111111111d-1*t204*t393*t496-6.666666666666 4858 5 666d-1*t214*t381+6.666666666666666d-1*t213*t381 4859 t796 = -4.1090628005491736d+0*t121*t123*t129*t215*t229*t501 4860 t797 = 2.0545314002745868d+0*t121*t123*t129*t132*t272*t430 4861 t798 = 1.0272657001372934d+0*t121*t123*t129*t132*t215*t502 4862 t799 = -2.396953300320351d+0*t121*t129*t132*t216*t217*t501 4863 t800 = -3.4242190004576445d-1*t121*t123*t126*t129*t795 4864 t801 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t502 4865 t802 = -5.59289103408082d+0*t121*t126*t129*t272*t282*t396 4866 t803 = 2.663281444800391d-1*t121*t126*t129*t217*t272*t398 4867 t804 = -2.79644551704041d+0*t121*t126*t129*t215*t282*t396 4868 t805 = 1.3316407224001955d-1*t121*t126*t129*t215*t217*t398 4869 t806 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t272*t4 4870 1 35 4871 t807 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t 4872 1 506 4873 t808 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t5 4874 1 06 4875 t809 = -2.0545314002745868d+0*t121*t123*t127*t132*t215*t221* 4876 1 t272*t274 4877 t810 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t274*t4 4878 1 30 4879 t811 = -1.5979688668802342d+0*t121*t126*t127*t216*t217*t221* 4880 1 t272*t274 4881 t812 = -2.79644551704041d+0*t121*t125*t127*t221*t274*t282*t3 4882 1 96 4883 t813 = 1.3316407224001955d-1*t121*t125*t127*t217*t221*t274*t 4884 1 398 4885 t814 = 6.848438000915289d-1*t121*t123*t125*t274*t409*t410*t4 4886 1 35 4887 t815 = -3.4242190004576445d-1*t121*t123*t125*t127*t221*t274* 4888 1 t435 4889 t816 = -1.0272657001372934d+0*t121*t123*t127*t132*t221*t222* 4890 1 t501 4891 t817 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t222*t 4892 1 502 4893 t818 = -1.398222758520205d+0*t121*t125*t127*t221*t222*t282*t 4894 1 396 4895 t819 = 6.658203612000978d-2*t121*t125*t127*t217*t221*t222*t3 4896 1 98 4897 t820 = 3.4242190004576445d-1*t121*t123*t125*t222*t409*t410*t 4898 1 506 4899 t821 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222* 4900 1 t506 4901 t822 = -1.3696876001830577d+0*t121*t123*t126*t222*t272*t274* 4902 1 t409*t410 4903 t823 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t222*t2 4904 1 72*t274 4905 t824 = 3.4242190004576445d-1*t121*t123*t125*t222*t274*t409*t 4906 1 410*t783 4907 t825 = -1.0272657001372934d+0*t121*t123*t125*t222*t510*t702* 4908 1 t703 4909 t826 = 3.4242190004576445d-1*t121*t123*t125*t222*t409*t410*t 4910 1 510 4911 t827 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222* 4912 1 t510 4913 t828 = 1.2128284535269115d+2*t103*t132*t795-4.04276151175637 4914 1 2d+1*t126*t794-4.851313814107646d+2*t103*t215*t229*t502+1 4915 2 .2128284535269115d+2*t132*t210*t502+2.425656907053823d+3* 4916 3 t103*t215*t418*t501-4.851313814107646d+2*t210*t229*t501+1 4917 4 .2128284535269115d+2*t132*t215*t500-9.702627628215292d+2* 4918 5 t103*t229*t272*t430+2.425656907053823d+2*t132*t271*t430+2 4919 6 .425656907053823d+2*t132*t272*t429-9.702627628215292d+2*t 4920 7 215*t229*t271*t272 4921 t829 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t828 4922 t830 = -6.848438000915289d-1*t121*t123*t126*t215*t409*t410*t 4923 1 510 4924 t831 = -7.98984433440117d-1*t121*t125*t216*t217*t409*t410*t5 4925 1 10 4926 t832 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t 4927 1 510 4928 t833 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t5 4929 1 10 4930 t834 = 1/rhob**3.333333333333333d+0 4931 t835 = 1/rhob**3.3333333333333337d+0 4932 t836 = 1/rhob**2.666666666666667d+0 4933 t837 = 1/t41**7 4934 t838 = 1/rhob**2.0d+0 4935 t839 = 1/t55**3 4936 t840 = t247**3 4937 t841 = -1.269642451250142d+0*t244*t41*(7.876233178997433d-1* 4938 1 t42*(-5.469606374303773d-2*t51*t837*t838-1.45856169981433 4939 2 94d-1*t238*t51*t836-1.1708185015918181d-2*t835-1.31270552 4940 3 98329054d-1*t452*t454*t51)-5.469606374303773d-2*t52*t837* 4941 4 t838-1.4585616998143394d-1*t238*t52*t836-1.31270552983290 4942 5 54d-1*t452*t454*t52-3.9381165894987163d-1*t238*t239*t462+ 4943 6 1.9690582947493582d-1*t237*t245*t454+2.625411059665811d-1 4944 7 *t238*t245*t453)+1.763392293402975d-2*t454*t54*t838+2.351 4945 8 1897245373004d-1*t42*t54*t836+7.053569173611901d-2*t238*t 4946 9 452*t54-7.617854707500852d+0*t246**3*t41/t53**4+7.6178547 4947 : 07500852d+0*t246*t41*t460*t463-6.34821225625071d-1*t239*t 4948 ; 244*t42*t463+1.269642451250142d+0*t239*t42*t460*t461+4.23 4949 < 21415041671406d-1*t244*t246*t42*t453+1.0580353760417849d- 4950 = 1*t237*t238*t244*t246 4951 t842 = 1/t62**3 4952 t843 = t252**3 4953 t844 = -1.269642451250142d+0*t249*t41*(7.876233178997433d-1* 4954 1 t42*(-5.469606374303773d-2*t58*t837*t838-1.45856169981433 4955 2 94d-1*t238*t58*t836-6.407931356509611d-3*t835-1.312705529 4956 3 8329054d-1*t452*t454*t58)-5.469606374303773d-2*t59*t837*t 4957 4 838-1.4585616998143394d-1*t238*t59*t836-1.312705529832905 4958 5 4d-1*t452*t454*t59-3.9381165894987163d-1*t238*t239*t469+1 4959 6 .9690582947493582d-1*t237*t250*t454+2.625411059665811d-1* 4960 7 t238*t250*t453)+1.763392293402975d-2*t454*t61*t838+2.3511 4961 8 897245373004d-1*t42*t61*t836+7.053569173611901d-2*t238*t4 4962 9 52*t61-7.617854707500852d+0*t251**3*t41/t60**4+7.61785470 4963 : 7500852d+0*t251*t41*t467*t470-6.34821225625071d-1*t239*t2 4964 ; 49*t42*t470+1.269642451250142d+0*t239*t42*t467*t468+4.232 4965 < 1415041671406d-1*t249*t251*t42*t453+1.0580353760417849d-1 4966 = *t237*t238*t249*t251 4967 t845 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t64*t8 4968 1 44-6.75476d-2*t64*t842*t843+1.709920934161365d+0*(6.21814 4969 2 d-2*t243*t57*t841+1.243628d-1*t57*t839*t840-3.10907d-2*t2 4970 3 35*t50*(-1.269642451250142d+0*t236*t41*(7.876233178997433 4971 4 d-1*t42*(-5.469606374303773d-2*t43*t837*t838-1.4585616998 4972 5 143394d-1*t238*t43*t836-7.424439106586571d-3*t835-1.31270 4973 6 55298329054d-1*t43*t452*t454)-5.469606374303773d-2*t44*t8 4974 7 37*t838-1.4585616998143394d-1*t238*t44*t836-3.93811658949 4975 8 87163d-1*t238*t239*t455-1.3127055298329054d-1*t44*t452*t4 4976 9 54+1.9690582947493582d-1*t237*t240*t454+2.625411059665811 4977 : d-1*t238*t240*t453)+1.763392293402975d-2*t454*t46*t838+2. 4978 ; 3511897245373004d-1*t42*t46*t836+7.053569173611901d-2*t23 4979 < 8*t452*t46+7.617854707500852d+0*t241*t41*t450*t456-6.3482 4980 = 1225625071d-1*t236*t239*t42*t456+4.2321415041671406d-1*t2 4981 > 36*t241*t42*t453+1.269642451250142d+0*t239*t42*t450*t451- 4982 ? 7.617854707500852d+0*t241**3*t41/t45**4+1.058035376041784 4983 @ 9d-1*t236*t237*t238*t241)-8.548627933030694d-3*t56*t834+4 4984 1 .1099018897499934d-3*t48*t834-1.865442d-1*t247*t458*t464* 4985 2 t57-6.21814d-2*t242**3*t50/t47**3+9.327209999999999d-2*t2 4986 3 42*t448*t457*t50-8.243319792565315d-3*t234*t243*t464+8.24 4987 4 3319792565315d-3*t234*t458*t459+3.96311967940178d-3*t234* 4988 5 t235*t457-3.96311967940178d-3*t234*t448*t449+1.0991093056 4989 6 753751d-2*t243*t247*t447-5.284159572535706d-3*t235*t242*t 4990 7 447)+2.4171930915078277d-3*t63*t834+1.013214d-1*t252*t465 4991 8 *t471*t64+2.33086476681112d-3*t234*t248*t471-2.3308647668 4992 9 1112d-3*t234*t465*t466-3.107819689081493d-3*t248*t252*t44 4993 : 7)+3.37738d-2*t248*t64*t844+6.75476d-2*t64*t842*t843-2.41 4994 ; 71930915078277d-3*t63*t834-1.013214d-1*t252*t465*t471*t64 4995 < -2.33086476681112d-3*t234*t248*t471+2.33086476681112d-3*t 4996 = 234*t465*t466+3.107819689081493d-3*t248*t252*t447)-6.2181 4997 > 4d-2*t243*t57*t841-1.243628d-1*t57*t839*t840+8.5486279330 4998 ? 30694d-3*t56*t834+1.865442d-1*t247*t458*t464*t57+8.243319 4999 @ 792565315d-3*t234*t243*t464-8.243319792565315d-3*t234*t45 5000 1 8*t459-1.0991093056753751d-2*t243*t247*t447 5001 t846 = rhob**5.000000000000002d-1 5002 t847 = 1/rhob**6.666666666666665d-1 5003 t848 = 1/rhob**1.8333333333333332d+0 5004 t849 = t253**3 5005 t850 = exp(-2.4256569070538234d+2*t65) 5006 t851 = 8.619732841431575d+5*gammabb*t105*t849*t850/t107**4 5007 t852 = -2.4874964680519085d+4*gammabb*t255*t256*t475*t476*t4 5008 1 77 5009 t853 = -8.619732841431575d+5*gammabb*t105*t476*t477*t849 5010 t854 = 1.0660699148793894d+4*gammabb*t105*t253*t472*t476*t47 5011 1 7 5012 t855 = -1.035785462955064d+1*gammabb*t108*t263*t846 5013 t856 = 1.1097701388804264d+0*gammabb*t108*t288*t847 5014 t857 = 8.807699514924018d-2*gammabb*t108*t256*t848 5015 t858 = 5.383843205234772d+2*gammabb*t106*t253*t258*t288*t473 5016 t859 = -2.563734859635607d+1*gammabb*t106*t253*t256*t258*t47 5017 1 4 5018 t860 = 1.2437482340259542d+4*gammabb*t106*t255*t256*t258*t47 5019 1 5 5020 t861 = -1.5382409157813634d+2*gammabb*t106*t255*t256*t258*t4 5021 1 72 5022 t862 = 1.436622140238596d+5*gammabb*t105*t106*t258*t849 5023 t863 = -5.330349574396946d+3*gammabb*t105*t106*t253*t258*t47 5024 1 2 5025 t864 = 2.1974870225448048d+1*gammabb*t105*t106*t258*t845 5026 t865 = 1/t104**7.0d+0 5027 t866 = 1/t113**4 5028 t867 = 1/t115**3 5029 t868 = t268**3 5030 t869 = t645+t639 5031 t870 = t269**3 5032 t871 = t644+t640 5033 t872 = 5.848223622634648d-1*t84*(-12*t199*t371*t93+t722+t662 5034 1 +t661+t660+t659+t658+t657+t656+t655+t654+t653+t651+t650+t 5035 2 649-240*t101*t199*t374+96*t195*t197*t199)+5.8482236226346 5036 3 48d-1*t102*(2.564881401242048d+0*t208*t871-5.699736447204 5037 4 55d-1*t643*t870+2.564881401242048d+0*t205*t869-5.69973644 5038 5 720455d-1*t638*t868+2.5648814012420473d+0*t269*t386*t498+ 5039 6 2.5648814012420473d+0*t268*t380*t496)+t636+t634+t633+t632 5040 7 +t626+t625+t624+1.7544670867903944d+0*t267*t499+1.7544670 5041 8 867903944d+0*t270*t494 5042 t873 = t272**3 5043 t874 = 3.333333333333333d-1*t214*t871+1.4814814814814814d-1* 5044 1 t667*t870+3.333333333333333d-1*t213*t869+1.48148148148148 5045 2 14d-1*t666*t868-3.333333333333333d-1*t269*t394*t498-3.333 5046 3 333333333333d-1*t268*t393*t496 5047 t875 = -4.1090628005491736d+0*t121*t123*t129*t229*t873 5048 t876 = 3.08179710041188d+0*t121*t123*t129*t132*t272*t502 5049 t877 = -7.190859900961053d+0*t121*t129*t132*t216*t217*t501 5050 t878 = -3.4242190004576445d-1*t121*t123*t126*t129*t874 5051 t879 = 2.396953300320351d+0*t121*t126*t129*t216*t217*t502 5052 t880 = -8.389336551121229d+0*t121*t126*t129*t272*t282*t396 5053 t881 = 3.9949221672005863d-1*t121*t126*t129*t217*t272*t398 5054 t882 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t272*t 5055 1 506 5056 t883 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t 5057 1 506 5058 t884 = -3.08179710041188d+0*t121*t123*t127*t132*t221*t274*t5 5059 1 01 5060 t885 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t274*t 5061 1 502 5062 t886 = -4.793906600640702d+0*t121*t126*t127*t216*t217*t221*t 5063 1 272*t274 5064 t887 = -4.1946682755606146d+0*t121*t125*t127*t221*t274*t282* 5065 1 t396 5066 t888 = 1.9974610836002932d-1*t121*t125*t127*t217*t221*t274*t 5067 1 398 5068 t889 = 1.0272657001372934d+0*t121*t123*t125*t274*t409*t410*t 5069 1 506 5070 t890 = -5.136328500686467d-1*t121*t123*t125*t127*t221*t274*t 5071 1 506 5072 t891 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t510*t 5073 1 783 5074 t892 = 1.2128284535269115d+2*t103*t132*t874+2.42565690705382 5075 1 3d+3*t103*t418*t873-4.042761511756372d+1*t126*t872-1.4553 5076 2 94144232294d+3*t103*t229*t272*t502+3.638485360580735d+2*t 5077 3 132*t271*t502-1.455394144232294d+3*t229*t271*t501+3.63848 5078 4 5360580735d+2*t132*t272*t500 5079 t893 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t892 5080 t894 = -2.0545314002745868d+0*t121*t123*t126*t272*t409*t410* 5081 1 t510 5082 t895 = -2.396953300320351d+0*t121*t125*t216*t217*t409*t410*t 5083 1 510 5084 t896 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t272*t 5085 1 510 5086 t897 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t 5087 1 510 5088 t898 = t274**3 5089 t899 = -1.0272657001372934d+0*t121*t123*t125*t702*t703*t898 5090 t900 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t898 5091 t901 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t898 5092 t902 = 3.553566382931298d+3*t28*t319*t320*t321 5093 t903 = 2.2195402777608514d+0*t279*t31*t317 5094 t904 = -1.0569239417908823d-1*t161*t31*t318 5095 t905 = -1.0254939438542422d+2*t158*t160*t161*t163*t29 5096 t906 = -1.776783191465649d+3*t163*t28*t29*t319 5097 t907 = 2.1974870225448048d+1*t163*t28*t29*t316 5098 t908 = -1.398222758520205d+0*t121*t125*t131*t225*t282*t283*t 5099 1 396 5100 t909 = 6.658203612000978d-2*t121*t125*t131*t217*t225*t283*t3 5101 1 98 5102 t910 = 1.5979688668802342d+0*t126*t131*t136*t215*t216*t217 5103 t911 = 1.398222758520205d+0*t125*t131*t136*t282*t396 5104 t912 = -6.658203612000978d-2*t125*t131*t136*t217*t398 5105 t913 = 2.735897678055535d-1*t121*t129*t136*t215*t216*t227*t2 5106 1 29 5107 t914 = 2.3939104682985932d-1*t121*t129*t132*t136*t396*t415 5108 t915 = -1.1399573658564734d-2*t121*t129*t132*t136*t227*t398 5109 t916 = -7.98984433440117d-1*t125*t136*t216*t217*t224 5110 t917 = 7.98984433440117d-1*t125*t131*t216*t217*t225*t231 5111 t918 = 1.3679488390277675d-1*t121*t129*t132*t216*t225*t227*t 5112 1 231 5113 t919 = 1.0272657001372934d+0*t123*t129*t132*t392 5114 t920 = -3.4242190004576445d-1*t123*t126*t129*t395 5115 t921 = 1.5979688668802342d+0*t126*t129*t215*t216*t217 5116 t922 = 1.398222758520205d+0*t125*t129*t282*t396 5117 t923 = -6.658203612000978d-2*t125*t129*t217*t398 5118 t924 = -1.7121095002288222d-1*t123*t125*t127*t221*t405 5119 t925 = 6.848438000915289d-1*t123*t126*t127*t215*t221*t222 5120 t926 = 7.98984433440117d-1*t125*t127*t216*t217*t221*t222 5121 t927 = 3.4242190004576445d-1*t123*t125*t409*t410*t411 5122 t928 = -1.7121095002288222d-1*t123*t125*t127*t221*t411 5123 t929 = 2.188718142444428d+0*t121*t134*t215*t216*t227*t229 5124 t930 = 1.5959403121990623d+0*t121*t132*t134*t396*t415 5125 t931 = -4.5598294634258935d-2*t121*t132*t134*t227*t398 5126 t932 = 1.094359071222214d+0*t121*t127*t132*t216*t222*t227*t2 5127 1 30 5128 t933 = t212*(2.473556743557577d-2*t120*t66*(-1.7121095002288 5129 1 222d-1*t121*t123*t125*t131*t225*(t932+t931+t930+t929+t928 5130 2 +t927+t926+t925+t924+t923+t922+t921+t920+t919+3.517582728 5131 3 928545d-1*t121*t132*t282*t409*t411*t419+1.172527576309514 5132 4 8d+0*t121*t134*t282*t392*t418-1.172527576309515d-1*t121*t 5133 5 127*t132*t230*t282*t411-1.172527576309515d-1*t121*t127*t1 5134 6 32*t230*t282*t405-2.34505515261903d-1*t121*t134*t229*t282 5135 7 *t395+9.38022061047612d-1*t121*t127*t215*t222*t229*t230*t 5136 8 282)+1.7121095002288222d-1*t121*t123*t125*t136*(t928+t927 5137 9 +t926+t925+t924+t923+t922+t921+t920+t919)+t918+t917+t916+ 5138 : t915+t914+t913+t912+t911+t910+t909+t908-1.027265700137293 5139 ; 4d+0*t121*t123*t125*t131*t283*t422*t714+6.848438000915289 5140 < d-1*t121*t123*t125*t131*t231*t421*t535-3.4242190004576445 5141 = d-1*t121*t123*t125*t224*t225*t535+7.98984433440117d-1*t12 5142 > 1*t125*t131*t216*t217*t225*t535+6.848438000915289d-1*t121 5143 ? *t123*t126*t131*t215*t225*t535-3.4242190004576445d-1*t121 5144 @ *t123*t125*t225*t231*t533-7.98984433440117d-1*t121*t125*t 5145 1 136*t216*t217*t533-6.848438000915289d-1*t121*t123*t126*t1 5146 2 36*t215*t533+5.862637881547574d-2*t121*t129*t132*t282*t42 5147 3 1*t422+3.4242190004576445d-1*t123*t125*t131*t421*t422+3.4 5148 4 242190004576445d-1*t121*t123*t125*t131*t283*t420*t421+6.8 5149 5 48438000915289d-1*t121*t123*t125*t224*t231*t283*t421-1.59 5150 6 79688668802342d+0*t121*t125*t131*t216*t217*t231*t283*t421 5151 7 -1.3696876001830577d+0*t121*t123*t126*t131*t215*t231*t283 5152 8 *t421-2.931318940773787d-2*t121*t129*t132*t225*t282*t420- 5153 9 1.7121095002288222d-1*t123*t125*t131*t225*t420+1.75879136 5154 : 44642725d-1*t121*t129*t136*t282*t392*t418-1.7121095002288 5155 ; 222d-1*t121*t123*t125*t225*t283*t414+1.7121095002288222d- 5156 < 1*t123*t125*t136*t414+3.4242190004576445d-1*t121*t123*t12 5157 = 6*t131*t225*t283*t395-5.862637881547574d-2*t121*t129*t136 5158 > *t229*t282*t395-3.4242190004576445d-1*t123*t126*t131*t136 5159 ? *t395-1.0272657001372934d+0*t121*t123*t131*t132*t225*t283 5160 @ *t392+1.0272657001372934d+0*t123*t131*t132*t136*t392+7.98 5161 1 984433440117d-1*t121*t125*t216*t217*t224*t225*t283+6.8484 5162 2 38000915289d-1*t121*t123*t126*t215*t224*t225*t283-1.59796 5163 3 88668802342d+0*t121*t126*t131*t215*t216*t217*t225*t283+1. 5164 4 172527576309515d-1*t121*t129*t215*t225*t229*t231*t282-3.4 5165 5 242190004576445d-1*t123*t125*t224*t225*t231+6.84843800091 5166 6 5289d-1*t123*t126*t131*t215*t225*t231-6.848438000915289d- 5167 7 1*t123*t126*t136*t215*t224)+1.4841340461345462d-1*t124*t2 5168 8 15*t536*t66+7.420670230672731d-2*t124*t284*t395*t66+1.484 5169 9 1340461345462d-1*t119*t284*t392*t66+4.947113487115154d-2* 5170 : t120*t536+1.4841340461345462d-1*t124*t215*t284) 5171 t934 = t425*(-4.947113487115154d-2*t120*t232*t536*t66-t284*t 5172 1 424) 5173 t935 = 4.947113487115154d-2*t120*t284*t426*t66*t716 5174 t936 = -1.398222758520205d+0*t121*t125*t131*t225*t282*t286*t 5175 1 396 5176 t937 = 6.658203612000978d-2*t121*t125*t131*t217*t225*t286*t3 5177 1 98 5178 t938 = 2.79644551704041d+0*t125*t131*t136*t282*t396 5179 t939 = -1.3316407224001955d-1*t125*t131*t136*t217*t398 5180 t940 = 4.7878209365971863d-1*t121*t129*t132*t136*t396*t415 5181 t941 = -2.2799147317129467d-2*t121*t129*t132*t136*t227*t398 5182 t942 = 2.0545314002745868d+0*t123*t129*t132*t392 5183 t943 = -6.848438000915289d-1*t123*t126*t129*t395 5184 t944 = 3.1959377337604683d+0*t126*t129*t215*t216*t217 5185 t945 = 2.79644551704041d+0*t125*t129*t282*t396 5186 t946 = -1.3316407224001955d-1*t125*t129*t217*t398 5187 t947 = -3.4242190004576445d-1*t123*t125*t127*t221*t405 5188 t948 = 1.3696876001830577d+0*t123*t126*t127*t215*t221*t222 5189 t949 = 1.5979688668802342d+0*t125*t127*t216*t217*t221*t222 5190 t950 = 6.848438000915289d-1*t123*t125*t409*t410*t411 5191 t951 = -3.4242190004576445d-1*t123*t125*t127*t221*t411 5192 t952 = 3.1918806243981246d+0*t121*t132*t134*t396*t415 5193 t953 = -9.119658926851787d-2*t121*t132*t134*t227*t398 5194 t954 = 1.0272657001372934d+0*t123*t129*t132*t215*t272 5195 t955 = -3.4242190004576445d-1*t123*t126*t129*t430 5196 t956 = 7.98984433440117d-1*t126*t129*t216*t217*t272 5197 t957 = 7.98984433440117d-1*t126*t129*t215*t216*t217 5198 t958 = -1.7121095002288222d-1*t123*t125*t127*t221*t435 5199 t959 = 3.4242190004576445d-1*t123*t126*t127*t215*t221*t274 5200 t960 = 3.994922167200585d-1*t125*t127*t216*t217*t221*t274 5201 t961 = 3.4242190004576445d-1*t123*t126*t127*t221*t222*t272 5202 t962 = 3.994922167200585d-1*t125*t127*t216*t217*t221*t222 5203 t963 = 3.4242190004576445d-1*t123*t125*t222*t274*t409*t410 5204 t964 = -1.7121095002288222d-1*t123*t125*t127*t221*t222*t274 5205 t965 = (t212*(2.473556743557577d-2*t120*t66*(-1.712109500228 5206 1 8222d-1*t121*t123*t125*t131*t225*(t964+t963+t962+t961+t96 5207 2 0+t959+t958+t957+t956+t955+t954+t931+t930+t923+t922-1.172 5208 3 527576309515d-1*t121*t127*t132*t230*t282*t435-2.345055152 5209 4 61903d-1*t121*t134*t229*t282*t430+3.517582728928545d-1*t1 5210 5 21*t132*t222*t274*t282*t409*t419+1.1725275763095148d+0*t1 5211 6 21*t134*t215*t272*t282*t418+4.69011030523806d-1*t121*t127 5212 7 *t215*t229*t230*t274*t282-1.172527576309515d-1*t121*t127* 5213 8 t132*t222*t230*t274*t282+4.69011030523806d-1*t121*t127*t2 5214 9 22*t229*t230*t272*t282+5.47179535611107d-1*t121*t127*t132 5215 : *t216*t227*t230*t274+1.094359071222214d+0*t121*t134*t216* 5216 ; t227*t229*t272+5.47179535611107d-1*t121*t127*t132*t216*t2 5217 < 22*t227*t230+1.094359071222214d+0*t121*t134*t215*t216*t22 5218 = 7*t229)+1.7121095002288222d-1*t121*t123*t125*t136*(t964+t 5219 > 963+t962+t961+t960+t959+t958+t957+t956+t955+t954+t923+t92 5220 ? 2)+t915+t914+t912+t911+t909+t908-1.0272657001372934d+0*t1 5221 @ 21*t123*t125*t131*t231*t277*t283*t714+3.4242190004576445d 5222 1 -1*t121*t123*t125*t131*t231*t421*t555-1.7121095002288222d 5223 2 -1*t121*t123*t125*t224*t225*t555+3.994922167200585d-1*t12 5224 3 1*t125*t131*t216*t217*t225*t555+3.4242190004576445d-1*t12 5225 4 1*t123*t126*t131*t215*t225*t555-1.7121095002288222d-1*t12 5226 5 1*t123*t125*t225*t231*t554-3.994922167200585d-1*t121*t125 5227 6 *t136*t216*t217*t554-3.4242190004576445d-1*t121*t123*t126 5228 7 *t136*t215*t554+3.4242190004576445d-1*t121*t123*t125*t131 5229 8 *t277*t421*t535-1.7121095002288222d-1*t121*t123*t125*t225 5230 9 *t276*t535+3.4242190004576445d-1*t121*t123*t126*t131*t225 5231 : *t272*t535+3.994922167200585d-1*t121*t125*t131*t216*t217* 5232 ; t225*t535-1.7121095002288222d-1*t121*t123*t125*t225*t277* 5233 < t533-3.4242190004576445d-1*t121*t123*t126*t136*t272*t533- 5234 = 3.994922167200585d-1*t121*t125*t136*t216*t217*t533+3.4242 5235 > 190004576445d-1*t121*t123*t125*t131*t283*t421*t444-2.9313 5236 ? 18940773787d-2*t121*t129*t132*t225*t282*t444-1.7121095002 5237 @ 288222d-1*t123*t125*t131*t225*t444-1.7121095002288222d-1* 5238 1 t121*t123*t125*t225*t283*t443+1.7121095002288222d-1*t123* 5239 2 t125*t136*t443+3.4242190004576445d-1*t121*t123*t126*t131* 5240 3 t225*t283*t430-5.862637881547574d-2*t121*t129*t136*t229*t 5241 4 282*t430-3.4242190004576445d-1*t123*t126*t131*t136*t430+3 5242 5 .4242190004576445d-1*t121*t123*t125*t224*t277*t283*t421-7 5243 6 .98984433440117d-1*t121*t125*t131*t216*t217*t277*t283*t42 5244 7 1-6.848438000915289d-1*t121*t123*t126*t131*t215*t277*t283 5245 8 *t421+3.4242190004576445d-1*t121*t123*t125*t231*t276*t283 5246 9 *t421-6.848438000915289d-1*t121*t123*t126*t131*t231*t272* 5247 : t283*t421-7.98984433440117d-1*t121*t125*t131*t216*t217*t2 5248 ; 31*t283*t421+5.862637881547574d-2*t121*t129*t132*t231*t27 5249 < 7*t282*t421+3.4242190004576445d-1*t123*t125*t131*t231*t27 5250 = 7*t421+1.7587913644642725d-1*t121*t129*t136*t215*t272*t28 5251 > 2*t418+3.994922167200585d-1*t121*t125*t216*t217*t225*t276 5252 ? *t283+3.4242190004576445d-1*t121*t123*t126*t215*t225*t276 5253 @ *t283+3.4242190004576445d-1*t121*t123*t126*t224*t225*t272 5254 1 *t283-7.98984433440117d-1*t121*t126*t131*t216*t217*t225*t 5255 2 272*t283-1.0272657001372934d+0*t121*t123*t131*t132*t215*t 5256 3 225*t272*t283+3.994922167200585d-1*t121*t125*t216*t217*t2 5257 4 24*t225*t283-7.98984433440117d-1*t121*t126*t131*t215*t216 5258 5 *t217*t225*t283+5.862637881547574d-2*t121*t129*t215*t225* 5259 6 t229*t277*t282+5.862637881547574d-2*t121*t129*t225*t229*t 5260 7 231*t272*t282+6.839744195138837d-2*t121*t129*t132*t216*t2 5261 8 25*t227*t277-1.7121095002288222d-1*t123*t125*t224*t225*t2 5262 9 77+3.994922167200585d-1*t125*t131*t216*t217*t225*t277+3.4 5263 : 242190004576445d-1*t123*t126*t131*t215*t225*t277-1.712109 5264 ; 5002288222d-1*t123*t125*t225*t231*t276-3.994922167200585d 5265 < -1*t125*t136*t216*t217*t276-3.4242190004576445d-1*t123*t1 5266 = 26*t136*t215*t276+3.4242190004576445d-1*t123*t126*t131*t2 5267 > 25*t231*t272+1.3679488390277675d-1*t121*t129*t136*t216*t2 5268 ? 27*t229*t272-3.4242190004576445d-1*t123*t126*t136*t224*t2 5269 @ 72+7.98984433440117d-1*t126*t131*t136*t216*t217*t272+1.02 5270 1 72657001372934d+0*t123*t131*t132*t136*t215*t272+6.8397441 5271 2 95138837d-2*t121*t129*t132*t216*t225*t227*t231+3.99492216 5272 3 7200585d-1*t125*t131*t216*t217*t225*t231+1.36794883902776 5273 4 75d-1*t121*t129*t136*t215*t216*t227*t229-3.99492216720058 5274 5 5d-1*t125*t136*t216*t217*t224+7.98984433440117d-1*t126*t1 5275 6 31*t136*t215*t216*t217)+7.420670230672731d-2*t124*t215*t5 5276 7 56*t66+7.420670230672731d-2*t124*t272*t536*t66+7.42067023 5277 8 0672731d-2*t124*t284*t430*t66+1.4841340461345462d-1*t119* 5278 9 t215*t272*t284*t66+2.473556743557577d-2*t120*t556+2.47355 5279 : 6743557577d-2*t120*t536+7.420670230672731d-2*t124*t272*t2 5280 ; 84+7.420670230672731d-2*t124*t215*t284)+4.947113487115154 5281 < d-2*t120*t232*t278*t284*t66*t716+t425*(-2.473556743557577 5282 = d-2*t120*t232*t556*t66-2.473556743557577d-2*t120*t278*t53 5283 > 6*t66-t284*t446))*wght 5284 t966 = 1.5979688668802342d+0*t126*t131*t136*t216*t217*t272 5285 t967 = 2.735897678055535d-1*t121*t129*t136*t216*t227*t229*t2 5286 1 72 5287 t968 = -7.98984433440117d-1*t125*t136*t216*t217*t276 5288 t969 = 7.98984433440117d-1*t125*t131*t216*t217*t225*t277 5289 t970 = 1.3679488390277675d-1*t121*t129*t132*t216*t225*t227*t 5290 1 277 5291 t971 = 2.0545314002745868d+0*t123*t129*t132*t215*t272 5292 t972 = -6.848438000915289d-1*t123*t126*t129*t430 5293 t973 = 1.5979688668802342d+0*t126*t129*t216*t217*t272 5294 t974 = -3.4242190004576445d-1*t123*t125*t127*t221*t435 5295 t975 = 6.848438000915289d-1*t123*t126*t127*t215*t221*t274 5296 t976 = 7.98984433440117d-1*t125*t127*t216*t217*t221*t274 5297 t977 = 6.848438000915289d-1*t123*t126*t127*t221*t222*t272 5298 t978 = 6.848438000915289d-1*t123*t125*t222*t274*t409*t410 5299 t979 = -3.4242190004576445d-1*t123*t125*t127*t221*t222*t274 5300 t980 = 2.188718142444428d+0*t121*t134*t216*t227*t229*t272 5301 t981 = 1.094359071222214d+0*t121*t127*t132*t216*t227*t230*t2 5302 1 74 5303 t982 = 1.0272657001372934d+0*t123*t129*t132*t501 5304 t983 = -3.4242190004576445d-1*t123*t126*t129*t502 5305 t984 = -1.7121095002288222d-1*t123*t125*t127*t221*t506 5306 t985 = 6.848438000915289d-1*t123*t126*t127*t221*t272*t274 5307 t986 = 3.4242190004576445d-1*t123*t125*t409*t410*t510 5308 t987 = -1.7121095002288222d-1*t123*t125*t127*t221*t510 5309 t988 = t212*(2.473556743557577d-2*t120*t66*(-1.7121095002288 5310 1 222d-1*t121*t123*t125*t131*t225*(t987+t986+t985+t984+t983 5311 2 +t982+t981+t980+t976+t973+t931+t930+t923+t922+3.517582728 5312 3 928545d-1*t121*t132*t282*t409*t419*t510-1.172527576309515 5313 4 d-1*t121*t127*t132*t230*t282*t510-1.172527576309515d-1*t1 5314 5 21*t127*t132*t230*t282*t506-2.34505515261903d-1*t121*t134 5315 6 *t229*t282*t502+1.1725275763095148d+0*t121*t134*t282*t418 5316 7 *t501+9.38022061047612d-1*t121*t127*t229*t230*t272*t274*t 5317 8 282)+1.7121095002288222d-1*t121*t123*t125*t136*(t987+t986 5318 9 +t985+t984+t983+t982+t976+t973+t923+t922)+t970+t969+t968+ 5319 : t967+t966+t915+t914+t912+t911+t909+t908-1.027265700137293 5320 ; 4d+0*t121*t123*t125*t131*t283*t515*t714+6.848438000915289 5321 < d-1*t121*t123*t125*t131*t277*t421*t555-3.4242190004576445 5322 = d-1*t121*t123*t125*t225*t276*t555+6.848438000915289d-1*t1 5323 > 21*t123*t126*t131*t225*t272*t555+7.98984433440117d-1*t121 5324 ? *t125*t131*t216*t217*t225*t555-3.4242190004576445d-1*t121 5325 @ *t123*t125*t225*t277*t554-6.848438000915289d-1*t121*t123* 5326 1 t126*t136*t272*t554-7.98984433440117d-1*t121*t125*t136*t2 5327 2 16*t217*t554+5.862637881547574d-2*t121*t129*t132*t282*t42 5328 3 1*t515+3.4242190004576445d-1*t123*t125*t131*t421*t515+3.4 5329 4 242190004576445d-1*t121*t123*t125*t131*t283*t421*t514-2.9 5330 5 31318940773787d-2*t121*t129*t132*t225*t282*t514-1.7121095 5331 6 002288222d-1*t123*t125*t131*t225*t514-1.7121095002288222d 5332 7 -1*t121*t123*t125*t225*t283*t513+1.7121095002288222d-1*t1 5333 8 23*t125*t136*t513+3.4242190004576445d-1*t121*t123*t126*t1 5334 9 31*t225*t283*t502-5.862637881547574d-2*t121*t129*t136*t22 5335 : 9*t282*t502-3.4242190004576445d-1*t123*t126*t131*t136*t50 5336 ; 2+1.7587913644642725d-1*t121*t129*t136*t282*t418*t501-1.0 5337 < 272657001372934d+0*t121*t123*t131*t132*t225*t283*t501+1.0 5338 = 272657001372934d+0*t123*t131*t132*t136*t501+6.84843800091 5339 > 5289d-1*t121*t123*t125*t276*t277*t283*t421-1.369687600183 5340 ? 0577d+0*t121*t123*t126*t131*t272*t277*t283*t421-1.5979688 5341 @ 668802342d+0*t121*t125*t131*t216*t217*t277*t283*t421+6.84 5342 1 8438000915289d-1*t121*t123*t126*t225*t272*t276*t283+7.989 5343 2 84433440117d-1*t121*t125*t216*t217*t225*t276*t283-1.59796 5344 3 88668802342d+0*t121*t126*t131*t216*t217*t225*t272*t283+1. 5345 4 172527576309515d-1*t121*t129*t225*t229*t272*t277*t282-3.4 5346 5 242190004576445d-1*t123*t125*t225*t276*t277+6.84843800091 5347 6 5289d-1*t123*t126*t131*t225*t272*t277-6.848438000915289d- 5348 7 1*t123*t126*t136*t272*t276)+1.4841340461345462d-1*t124*t2 5349 8 72*t556*t66+7.420670230672731d-2*t124*t284*t502*t66+1.484 5350 9 1340461345462d-1*t119*t284*t501*t66+4.947113487115154d-2* 5351 : t120*t556+1.4841340461345462d-1*t124*t272*t284) 5352 t989 = t425*(-4.947113487115154d-2*t120*t278*t556*t66-t284*t 5353 1 517) 5354 t990 = 4.947113487115154d-2*t120*t284*t518*t66*t716 5355 t991 = 2.0545314002745868d+0*t123*t129*t132*t501 5356 t992 = -6.848438000915289d-1*t123*t126*t129*t502 5357 t993 = 3.1959377337604683d+0*t126*t129*t216*t217*t272 5358 t994 = -3.4242190004576445d-1*t123*t125*t127*t221*t506 5359 t995 = 1.3696876001830577d+0*t123*t126*t127*t221*t272*t274 5360 t996 = 1.5979688668802342d+0*t125*t127*t216*t217*t221*t274 5361 t997 = 6.848438000915289d-1*t123*t125*t409*t410*t510 5362 t998 = -3.4242190004576445d-1*t123*t125*t127*t221*t510 5363 t999 = 3.553566382931298d+3*t105*t475*t476*t477 5364 t1000 = 2.2195402777608514d+0*t108*t288*t473 5365 t1001 = -1.0569239417908823d-1*t108*t256*t474 5366 t1002 = -1.0254939438542422d+2*t106*t253*t255*t256*t258 5367 t1003 = -1.776783191465649d+3*t105*t106*t258*t475 5368 t1004 = 2.1974870225448048d+1*t105*t106*t258*t472 5369 t1005 = 4.947113487115154d-2*t120*t232*t574*t66*t716 5370 t1006 = 2.473556743557577d-2*t120*t579 5371 t1007 = -7.98984433440117d-1*t121*t125*t131*t216*t217*t421*t 5372 1 576 5373 t1008 = 6.848438000915289d-1*t123*t126*t131*t215*t225*t283 5374 t1009 = 7.98984433440117d-1*t125*t131*t216*t217*t225*t283 5375 t1010 = 2.3420782031264287d-2*t121*t131*t134*t216*t225*t418* 5376 1 t708 5377 t1011 = 1.172527576309515d-1*t121*t129*t215*t225*t229*t282*t 5378 1 283 5379 t1012 = 1.3679488390277675d-1*t121*t129*t132*t216*t225*t227* 5380 1 t283 5381 t1013 = -1.3679488390277675d-1*t129*t132*t136*t216*t227 5382 t1014 = -2.735897678055535d-1*t132*t134*t216*t227 5383 t1015 = 3.4242190004576445d-1*t123*t125*t136*t533 5384 t1016 = -3.4242190004576445d-1*t123*t125*t131*t225*t535 5385 t1017 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t535 5386 t1018 = -3.4242190004576445d-1*t123*t125*t224*t225*t283 5387 t1019 = 6.848438000915289d-1*t123*t125*t131*t231*t283*t421 5388 t1020 = 1.172527576309515d-1*t121*t129*t132*t231*t282*t283*t 5389 1 421 5390 t1021 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137 5391 1 2934d+0*t121*t123*t125*t131*t231*t576*t714+2.007495602679 5392 2 796d-2*t121*t131*t134*t215*t225*t415*t712+3.4242190004576 5393 3 445d-1*t121*t123*t125*t224*t421*t576-6.848438000915289d-1 5394 4 *t121*t123*t126*t131*t215*t421*t576+6.848438000915289d-1* 5395 5 t121*t123*t125*t131*t283*t421*t535-3.4242190004576445d-1* 5396 6 t121*t123*t125*t225*t283*t533+2.007495602679796d-2*t121*t 5397 7 131*t134*t231*t415*t418*t421-1.003747801339898d-2*t121*t1 5398 8 34*t224*t225*t415*t418-1.7121095002288222d-1*t121*t123*t1 5399 9 25*t131*t225*(-1.172527576309515d-1*t127*t132*t222*t230*t 5400 : 282-2.34505515261903d-1*t134*t215*t229*t282+t1014)-5.8626 5401 ; 37881547574d-2*t129*t132*t225*t231*t282-1.172527576309515 5402 < d-1*t129*t136*t215*t229*t282+t1020+t1019+t1018+t1017+t101 5403 = 6+t1015+t1013+t1012+t1011+t1010+t1009+t1008+t1007)+7.4206 5404 > 70230672731d-2*t124*t215*t579*t66+t1006) 5405 t1022 = t425*(-2.473556743557577d-2*t120*t232*t579*t66-2.473 5406 1 556743557577d-2*t120*t284*t536*t66-t284*t537) 5407 t1023 = 4.947113487115154d-2*t120*t232*t284*t287*t66*t716 5408 t1024 = 2.473556743557577d-2*t120*t581 5409 t1025 = -7.98984433440117d-1*t121*t125*t131*t216*t217*t283*t 5410 1 286*t421 5411 t1026 = 3.994922167200585d-1*t125*t131*t216*t217*t225*t286 5412 t1027 = 4.6841564062528573d-2*t121*t131*t134*t216*t225*t418* 5413 1 t708 5414 t1028 = 6.839744195138837d-2*t121*t129*t132*t216*t225*t227*t 5415 1 286 5416 t1029 = -2.735897678055535d-1*t129*t132*t136*t216*t227 5417 t1030 = -5.47179535611107d-1*t132*t134*t216*t227 5418 t1031 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137 5419 1 2934d+0*t121*t123*t125*t131*t231*t283*t286*t714+4.0149912 5420 2 05359592d-2*t121*t131*t134*t215*t225*t415*t712+3.42421900 5421 3 04576445d-1*t121*t123*t125*t131*t283*t421*t548-2.93131894 5422 4 0773787d-2*t121*t129*t132*t225*t282*t548-1.71210950022882 5423 5 22d-1*t123*t125*t131*t225*t548-1.7121095002288222d-1*t121 5424 6 *t123*t125*t225*t283*t546+1.7121095002288222d-1*t123*t125 5425 7 *t136*t546+3.4242190004576445d-1*t121*t123*t125*t131*t286 5426 8 *t421*t535-1.7121095002288222d-1*t121*t123*t125*t225*t286 5427 9 *t533+4.014991205359592d-2*t121*t131*t134*t231*t415*t418* 5428 : t421+3.4242190004576445d-1*t121*t123*t125*t224*t283*t286* 5429 ; t421-6.848438000915289d-1*t121*t123*t126*t131*t215*t283*t 5430 < 286*t421+5.862637881547574d-2*t121*t129*t132*t231*t282*t2 5431 = 86*t421+3.4242190004576445d-1*t123*t125*t131*t231*t286*t4 5432 > 21-2.007495602679796d-2*t121*t134*t224*t225*t415*t418+5.8 5433 ? 62637881547574d-2*t121*t129*t215*t225*t229*t282*t286-1.71 5434 @ 21095002288222d-1*t123*t125*t224*t225*t286+3.424219000457 5435 1 6445d-1*t123*t126*t131*t215*t225*t286-1.7121095002288222d 5436 2 -1*t121*t123*t125*t131*t225*(-2.34505515261903d-1*t127*t1 5437 3 32*t222*t230*t282-4.69011030523806d-1*t134*t215*t229*t282 5438 4 +t1030)-1.172527576309515d-1*t129*t132*t225*t231*t282-2.3 5439 5 4505515261903d-1*t129*t136*t215*t229*t282+t1029+t1028+t10 5440 6 27+t1026+t1025+t1020+t1019+t1018+t1017+t1016+t1015+t1012+ 5441 7 t1011+t1009+t1008)+7.420670230672731d-2*t124*t215*t581*t6 5442 8 6+t1024) 5443 t1032 = -2.473556743557577d-2*t120*t232*t581*t66 5444 t1033 = (t1022+t1021+t1005)*wght 5445 t1034 = 2.473556743557577d-2*t120*t584 5446 t1035 = -7.98984433440117d-1*t121*t125*t131*t216*t217*t421*t 5447 1 583 5448 t1036 = 1.5979688668802342d+0*t125*t131*t216*t217*t225*t286 5449 t1037 = 9.368312812505715d-2*t121*t131*t134*t216*t225*t418*t 5450 1 708 5451 t1038 = 2.735897678055535d-1*t121*t129*t132*t216*t225*t227*t 5452 1 286 5453 t1039 = -5.47179535611107d-1*t129*t132*t136*t216*t227 5454 t1040 = -1.094359071222214d+0*t132*t134*t216*t227 5455 t1041 = 4.947113487115154d-2*t120*t278*t574*t66*t716 5456 t1042 = 6.848438000915289d-1*t123*t126*t131*t225*t272*t283 5457 t1043 = 1.172527576309515d-1*t121*t129*t225*t229*t272*t282*t 5458 1 283 5459 t1044 = 3.4242190004576445d-1*t123*t125*t136*t554 5460 t1045 = -3.4242190004576445d-1*t123*t125*t131*t225*t555 5461 t1046 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t555 5462 t1047 = -3.4242190004576445d-1*t123*t125*t225*t276*t283 5463 t1048 = 6.848438000915289d-1*t123*t125*t131*t277*t283*t421 5464 t1049 = 1.172527576309515d-1*t121*t129*t132*t277*t282*t283*t 5465 1 421 5466 t1050 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137 5467 1 2934d+0*t121*t123*t125*t131*t277*t576*t714+2.007495602679 5468 2 796d-2*t121*t131*t134*t225*t272*t415*t712+3.4242190004576 5469 3 445d-1*t121*t123*t125*t276*t421*t576-6.848438000915289d-1 5470 4 *t121*t123*t126*t131*t272*t421*t576+6.848438000915289d-1* 5471 5 t121*t123*t125*t131*t283*t421*t555-3.4242190004576445d-1* 5472 6 t121*t123*t125*t225*t283*t554+2.007495602679796d-2*t121*t 5473 7 131*t134*t277*t415*t418*t421-1.003747801339898d-2*t121*t1 5474 8 34*t225*t276*t415*t418-1.7121095002288222d-1*t121*t123*t1 5475 9 25*t131*t225*(-1.172527576309515d-1*t127*t132*t230*t274*t 5476 : 282-2.34505515261903d-1*t134*t229*t272*t282+t1014)-5.8626 5477 ; 37881547574d-2*t129*t132*t225*t277*t282-1.172527576309515 5478 < d-1*t129*t136*t229*t272*t282+t1049+t1048+t1047+t1046+t104 5479 = 5+t1044+t1043+t1042+t1013+t1012+t1010+t1009+t1007)+7.4206 5480 > 70230672731d-2*t124*t272*t579*t66+t1006) 5481 t1051 = t425*(-2.473556743557577d-2*t120*t278*t579*t66-2.473 5482 1 556743557577d-2*t120*t284*t556*t66-t284*t557) 5483 t1052 = (t1051+t1050+t1041)*wght 5484 t1053 = 4.947113487115154d-2*t120*t278*t284*t287*t66*t716 5485 t1054 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137 5486 1 2934d+0*t121*t123*t125*t131*t277*t283*t286*t714+4.0149912 5487 2 05359592d-2*t121*t131*t134*t225*t272*t415*t712+3.42421900 5488 3 04576445d-1*t121*t123*t125*t131*t283*t421*t562-2.93131894 5489 4 0773787d-2*t121*t129*t132*t225*t282*t562-1.71210950022882 5490 5 22d-1*t123*t125*t131*t225*t562-1.7121095002288222d-1*t121 5491 6 *t123*t125*t225*t283*t561+1.7121095002288222d-1*t123*t125 5492 7 *t136*t561+3.4242190004576445d-1*t121*t123*t125*t131*t286 5493 8 *t421*t555-1.7121095002288222d-1*t121*t123*t125*t225*t286 5494 9 *t554+4.014991205359592d-2*t121*t131*t134*t277*t415*t418* 5495 : t421+3.4242190004576445d-1*t121*t123*t125*t276*t283*t286* 5496 ; t421-6.848438000915289d-1*t121*t123*t126*t131*t272*t283*t 5497 < 286*t421+5.862637881547574d-2*t121*t129*t132*t277*t282*t2 5498 = 86*t421+3.4242190004576445d-1*t123*t125*t131*t277*t286*t4 5499 > 21-2.007495602679796d-2*t121*t134*t225*t276*t415*t418+5.8 5500 ? 62637881547574d-2*t121*t129*t225*t229*t272*t282*t286-1.71 5501 @ 21095002288222d-1*t123*t125*t225*t276*t286+3.424219000457 5502 1 6445d-1*t123*t126*t131*t225*t272*t286-1.7121095002288222d 5503 2 -1*t121*t123*t125*t131*t225*(-2.34505515261903d-1*t127*t1 5504 3 32*t230*t274*t282-4.69011030523806d-1*t134*t229*t272*t282 5505 4 +t1030)-1.172527576309515d-1*t129*t132*t225*t277*t282-2.3 5506 5 4505515261903d-1*t129*t136*t229*t272*t282+t1049+t1048+t10 5507 6 47+t1046+t1045+t1044+t1043+t1042+t1029+t1028+t1027+t1026+ 5508 7 t1025+t1012+t1009)+7.420670230672731d-2*t124*t272*t581*t6 5509 8 6+t1024) 5510 t1055 = -2.473556743557577d-2*t120*t278*t581*t66 5511 t1056 = 4.947113487115154d-2*t120*t284**3*t66*t716 5512 t1057 = 1/t122**8.0d+0 5513 t1058 = 1/t119**8.0d+0 5514 t1059 = 2.473556743557577d-2*t120*t212*t66*(-1.0272657001372 5515 1 934d+0*t121*t123*t125*t131*t283**3*t714+1.758791364464272 5516 2 5d-1*t121*t129*t132*t282*t421*t576+1.0272657001372934d+0* 5517 3 t123*t125*t131*t421*t576+6.022486808039389d-2*t121*t131*t 5518 4 134*t283*t415*t418*t421-3.0112434040196945d-2*t131*t134*t 5519 5 225*t415*t418-1.7587913644642725d-1*t129*t132*t225*t282*t 5520 6 283-5.155578439523496d-3*t1057*t1058*t121*t225*t230) 5521 t1060 = -7.420670230672731d-2*t120*t284*t425*t579*t66 5522 t1061 = 8.029982410719184d-2*t121*t131*t134*t283*t415*t418*t 5523 1 421 5524 t1062 = -2.34505515261903d-1*t129*t132*t225*t282*t283 5525 t1063 = -1.0272657001372934d+0*t121*t123*t125*t131*t286*t576 5526 1 *t714+1.172527576309515d-1*t121*t129*t132*t282*t421*t576+ 5527 2 6.848438000915289d-1*t123*t125*t131*t421*t576+2.007495602 5528 3 679796d-2*t121*t131*t134*t286*t415*t418*t421+1.1725275763 5529 4 09515d-1*t121*t129*t132*t282*t283*t286*t421+6.84843800091 5530 5 5289d-1*t123*t125*t131*t283*t286*t421-6.022486808039389d- 5531 6 2*t131*t134*t225*t415*t418-5.862637881547574d-2*t129*t132 5532 7 *t225*t282*t286-1.0311156879046991d-2*t1057*t1058*t121*t2 5533 8 25*t230+t1062+t1061 5534 t1064 = (4.947113487115154d-2*t120*t287*t574*t66*t716+t425*( 5535 1 -4.947113487115154d-2*t120*t284*t581*t66-2.47355674355757 5536 2 7d-2*t120*t287*t579*t66)+2.473556743557577d-2*t1063*t120* 5537 3 t212*t66)*wght 5538 t1065 = (t1060+t1059+t1056)*wght 5539 t1066 = -1.0272657001372934d+0*t121*t123*t125*t131*t283*t583 5540 1 *t714+5.862637881547574d-2*t121*t129*t132*t282*t421*t583+ 5541 2 3.4242190004576445d-1*t123*t125*t131*t421*t583+8.02998241 5542 3 0719184d-2*t121*t131*t134*t286*t415*t418*t421+2.345055152 5543 4 61903d-1*t121*t129*t132*t282*t283*t286*t421+1.36968760018 5544 5 30577d+0*t123*t125*t131*t283*t286*t421-1.2044973616078777 5545 6 d-1*t131*t134*t225*t415*t418-2.34505515261903d-1*t129*t13 5546 7 2*t225*t282*t286-2.0622313758093982d-2*t1057*t1058*t121*t 5547 8 225*t230+t1062+t1061 5548 fnc(iq) = (2.473556743557577d-2*t120*t138*t66+1.0d+0*t103*t6 5549 1 6-1.0d+0*rhob*t65-1.2367783717787881d-2*rhoa*t39-1.0d+0*r 5550 2 hoa*t26-1.2367783717787881d-2*rhob*t116)*wght+fnc(iq) 5551 Amat(iq,D1_RA) = (2.473556743557577d-2*t120*t212*t232*t66+7. 5552 1 420670230672731d-2*t124*t138*t215*t66+1.0d+0*t210*t66-1.2 5553 2 367783717787881d-2*t39-1.0d+0*t26+t233+t211-1.23677837177 5554 3 87881d-2*rhoa*t159*t171-1.0d+0*rhoa*t158)*wght+Amat(iq,D1 5555 4 _RA) 5556 Amat(iq,D1_RB) = (2.473556743557577d-2*t120*t212*t278*t66+7. 5557 1 420670230672731d-2*t124*t138*t272*t66+1.0d+0*t271*t66-1.0 5558 2 d+0*t65-1.2367783717787881d-2*rhob*t254*t266-1.0d+0*rhob* 5559 3 t253+t233+t211-1.2367783717787881d-2*t116)*wght+Amat(iq,D 5560 4 1_RB) 5561 Cmat(iq,D1_GAA) = (t285-1.2367783717787881d-2*rhoa*t159*t281 5562 1 )*wght+Cmat(iq,D1_GAA) 5563 Cmat(iq,D1_GAB) = 2.473556743557577d-2*t120*t212*t287*t66*wg 5564 1 ht+Cmat(iq,D1_GAB) 5565 Cmat(iq,D1_GBB) = (t285-1.2367783717787881d-2*rhob*t254*t290 5566 1 )*wght+Cmat(iq,D1_GBB) 5567 Amat2(iq,D2_RA_RA) = (-2.473556743557577d-2*t120*t425*t426*t 5568 1 66+7.420670230672731d-2*t124*t138*t395*t66+1.484134046134 5569 2 5462d-1*t119*t138*t392*t66+1.0d+0*t391*t66+t212*t424+1.23 5570 3 67783717787881d-2*rhoa*t336*t337+t159*t335-1.0d+0*rhoa*t3 5571 4 16+1.4841340461345462d-1*t124*t138*t215+2.0d+0*t210-2.0d+ 5572 5 0*t158)*wght+Amat2(iq,D2_RA_RA) 5573 Amat2(iq,D2_RA_RB) = (7.420670230672731d-2*t124*t138*t430*t6 5574 1 6+1.0d+0*t429*t66-2.473556743557577d-2*t120*t232*t278*t42 5575 2 5*t66+1.4841340461345462d-1*t119*t138*t215*t272*t66+t212* 5576 3 t446+7.420670230672731d-2*t124*t138*t272+1.0d+0*t271+7.42 5577 4 0670230672731d-2*t124*t138*t215+1.0d+0*t210)*wght+Amat2(i 5578 5 q,D2_RA_RB) 5579 Amat2(iq,D2_RB_RB) = (-2.473556743557577d-2*t120*t425*t518*t 5580 1 66+7.420670230672731d-2*t124*t138*t502*t66+1.484134046134 5581 2 5462d-1*t119*t138*t501*t66+1.0d+0*t500*t66+t212*t517+1.23 5582 3 67783717787881d-2*rhob*t492*t493+t254*t491-1.0d+0*rhob*t4 5583 4 72+1.4841340461345462d-1*t124*t138*t272+2.0d+0*t271-2.0d+ 5584 5 0*t253)*wght+Amat2(iq,D2_RB_RB) 5585 Cmat2(iq,D2_RA_GAA) = (t538+t525+t159*t524+1.236778371778788 5586 1 1d-2*rhoa*t171*t281*t336)*wght+Cmat2(iq,D2_RA_GAA) 5587 Cmat2(iq,D2_RA_GAB) = (t212*t550-2.473556743557577d-2*t120*t 5588 1 232*t287*t425*t66)*wght+Cmat2(iq,D2_RA_GAB) 5589 Cmat2(iq,D2_RA_GBB) = (t538+t525)*wght+Cmat2(iq,D2_RA_GBB) 5590 Cmat2(iq,D2_RB_GAA) = (t558+t551)*wght+Cmat2(iq,D2_RB_GAA) 5591 Cmat2(iq,D2_RB_GAB) = (t212*t564-2.473556743557577d-2*t120*t 5592 1 278*t287*t425*t66)*wght+Cmat2(iq,D2_RB_GAB) 5593 Cmat2(iq,D2_RB_GBB) = (t254*t570+t558+t551+1.236778371778788 5594 1 1d-2*rhob*t266*t290*t492)*wght+Cmat2(iq,D2_RB_GBB) 5595 Cmat2(iq,D2_GAA_GAA) = (t580+t575-1.2367783717787881d-2*rhoa 5596 1 *t159*t573+1.2367783717787881d-2*rhoa*t336*t571)*wght+Cma 5597 2 t2(iq,D2_GAA_GAA) 5598 Cmat2(iq,D2_GAA_GAB) = (2.473556743557577d-2*t120*t212*t581* 5599 1 t66-2.473556743557577d-2*t120*t284*t287*t425*t66)*wght+Cm 5600 2 at2(iq,D2_GAA_GAB) 5601 Cmat2(iq,D2_GAA_GBB) = (t580+t575)*wght+Cmat2(iq,D2_GAA_GBB) 5602 Cmat2(iq,D2_GAB_GAB) = 2.473556743557577d-2*t120*t212*t584*t 5603 1 66*wght-2.473556743557577d-2*t120*t425*t582*t66*wght+Cmat 5604 2 2(iq,D2_GAB_GAB) 5605 Cmat2(iq,D2_GAB_GBB) = 2.473556743557577d-2*t120*t212*t581*t 5606 1 66*wght-2.473556743557577d-2*t120*t284*t287*t425*t66*wght 5607 2 +Cmat2(iq,D2_GAB_GBB) 5608 Cmat2(iq,D2_GBB_GBB) = (-1.2367783717787881d-2*rhob*t254*t58 5609 1 7+1.2367783717787881d-2*rhob*t492*t585+t580+t575)*wght+Cm 5610 2 at2(iq,D2_GBB_GBB) 5611 Amat3(iq,D3_RA_RA_RA) = (4.947113487115154d-2*t120*t232**3*t 5612 1 66*t716+t425*(t715-7.420670230672731d-2*t124*t215*t426*t6 5613 2 6-4.947113487115154d-2*t120*t232*t423*t66-t232*t424)+t212 5614 3 *(2.473556743557577d-2*t120*t66*(-1.0272657001372934d+0*t 5615 4 121*t123*t125*t131*t231**3*t714-1.7121095002288222d-1*t12 5616 5 1*t123*t125*t131*t225*(-7.03516545785709d-1*t132*t133*t70 5617 6 2*t704*t713-3.5175827289285444d+0*t133*t134*t665*t712+t71 5618 7 1+t710+t709+t707+t706+t705+1.7587913644642725d-1*t132*t13 5619 8 3*t409*t419*t704-5.862637881547574d-2*t127*t132*t133*t230 5620 9 *t704+t701+t700+t699+t698+t697-5.862637881547574d-2*t127* 5621 : t132*t133*t230*t696+t695+1.7587913644642725d-1*t132*t133* 5622 ; t409*t411*t419*t694+t693+t692+t691+t690+t689+t688+t687+t6 5623 < 86+t685+t684+t683+t682+t681+t680+t679+t678+t677+t676+t675 5624 = -1.172527576309515d-1*t133*t134*t229*t668-2.1105496373571 5625 > 27d+0*t133*t215*t229*t409*t411*t419-2.4623079102499817d+0 5626 ? *t132*t216*t226*t227*t409*t411*t419+5.276374093392817d-1* 5627 @ t132*t133*t222*t405*t409*t419+1.7587913644642722d+0*t133* 5628 1 t134*t215*t395*t418-3.5175827289285444d+0*t127*t133*t222* 5629 2 t230*t392*t418-8.207693034166604d+0*t134*t216*t226*t227*t 5630 3 392*t418-4.7878209365971874d+0*t127*t132*t222*t226*t230*t 5631 4 396*t415-9.575641873194375d+0*t134*t215*t226*t229*t396*t4 5632 5 15+7.03516545785709d-1*t127*t133*t215*t229*t230*t411+8.20 5633 6 7693034166605d-1*t127*t132*t216*t226*t227*t230*t411+7.035 5634 7 16545785709d-1*t127*t133*t215*t229*t230*t405+8.2076930341 5635 8 66605d-1*t127*t132*t216*t226*t227*t230*t405-1.75879136446 5636 9 42725d-1*t127*t132*t133*t222*t230*t405+1.367948839027768d 5637 : -1*t127*t132*t222*t226*t227*t230*t398+2.735897678055536d- 5638 ; 1*t134*t215*t226*t227*t229*t398+7.03516545785709d-1*t127* 5639 < t133*t222*t229*t230*t395+1.641538606833321d+0*t134*t216*t 5640 = 226*t227*t229*t395-6.566154427333284d+0*t127*t215*t216*t2 5641 > 22*t226*t227*t229*t230)+1.7121095002288222d-1*t121*t123*t 5642 ? 125*t136*(t707+t706+t705+t701+t700+t699+t698+t697+t695+t6 5643 @ 93+t692+t691+t690+t689+t688+t687+t686+t685+t684+t683+t682 5644 1 +t681+t680+t679+t678+t677+t676+t675)+t674+t672+t670-3.424 5645 2 2190004576445d-1*t121*t123*t126*t131*t136*t668-4.10906280 5646 3 05491736d+0*t121*t123*t131*t136*t229*t665+1.0272657001372 5647 4 934d+0*t121*t123*t125*t224*t421*t422-2.396953300320351d+0 5648 5 *t121*t125*t131*t216*t217*t421*t422-2.0545314002745868d+0 5649 6 *t121*t123*t126*t131*t215*t421*t422+1.0272657001372934d+0 5650 7 *t121*t123*t125*t131*t231*t420*t421-5.136328500686467d-1* 5651 8 t121*t123*t125*t224*t225*t420+1.1984766501601755d+0*t121* 5652 9 t125*t131*t216*t217*t225*t420+1.0272657001372934d+0*t121* 5653 : t123*t126*t131*t215*t225*t420-5.136328500686467d-1*t121*t 5654 ; 123*t125*t225*t231*t414-1.1984766501601755d+0*t121*t125*t 5655 < 136*t216*t217*t414-1.0272657001372934d+0*t121*t123*t126*t 5656 = 136*t215*t414+1.9974610836002932d-1*t121*t125*t131*t217*t 5657 > 225*t231*t398-1.9974610836002932d-1*t121*t125*t136*t217*t 5658 ? 224*t398+3.9949221672005863d-1*t121*t126*t131*t136*t215*t 5659 @ 217*t398-4.1946682755606146d+0*t121*t125*t131*t225*t231*t 5660 1 282*t396+4.1946682755606146d+0*t121*t125*t136*t224*t282*t 5661 2 396-8.389336551121229d+0*t121*t126*t131*t136*t215*t282*t3 5662 3 96+1.0272657001372934d+0*t121*t123*t126*t131*t225*t231*t3 5663 4 95-1.0272657001372934d+0*t121*t123*t126*t136*t224*t395+2. 5664 5 396953300320351d+0*t121*t126*t131*t136*t216*t217*t395+3.0 5665 6 8179710041188d+0*t121*t123*t131*t132*t136*t215*t395-3.081 5666 7 79710041188d+0*t121*t123*t131*t132*t225*t231*t392+3.08179 5667 8 710041188d+0*t121*t123*t132*t136*t224*t392-7.190859900961 5668 9 053d+0*t121*t131*t132*t136*t216*t217*t392+2.3969533003203 5669 : 51d+0*t121*t125*t216*t217*t224*t225*t231+2.05453140027458 5670 ; 68d+0*t121*t123*t126*t215*t224*t225*t231-4.79390660064070 5671 < 2d+0*t121*t126*t131*t215*t216*t217*t225*t231+4.7939066006 5672 = 40702d+0*t121*t126*t136*t215*t216*t217*t224)+2.2262010692 5673 > 018191d-1*t124*t215*t423*t66+2.2262010692018191d-1*t124*t 5674 ? 232*t395*t66+4.4524021384036383d-1*t119*t232*t392*t66+7.4 5675 @ 20670230672731d-2*t120*t423+4.4524021384036383d-1*t124*t2 5676 1 15*t232)+7.420670230672731d-2*t124*t138*t66*t668+1.484134 5677 2 0461345462d-1*t138*t66*t665+1.0d+0*t66*t664+4.45240213840 5678 3 36383d-1*t119*t138*t215*t395*t66-2.4735567435575762d-2*rh 5679 4 oa*t171**3*t621+t159*(-1.2367783717787881d-2*rhoa*(-1.630 5680 5 682653048789d+0*gammaaa*t170**3*t28*t33*t620-2.7178044217 5681 6 479813d-1*gammaaa*t166*t28*t33*(-1.4075311556007766d+1*t1 5682 7 67*t35*t600*t619+t618+t617+t616+t615+t614+t613+t612+t611+ 5683 8 t610+t609+t608+t607+t606+t605+9.37069921229161d+5*t34*t60 5684 9 3*t604/t30**5.0d+0-7.028024409218707d+5*t320*t329*t34*t60 5685 : 3+7.808916010243009d+4*t169*t29*t34*t603+4.78752093741761 5686 ; d-2*t167*t168*t35*t602+1.0053793968576981d+0*t167*t330*t3 5687 < 5*t601+1.1944679893212153d+1*t169*t29*t34*t599+8.69210858 5688 = 5655094d+3*t158*t316*t320*t329*t34-2.8973695285516987d+3* 5689 > t158*t169*t29*t316*t34+9.754821912789926d+2*t158*t167*t16 5690 ? 9*t29*t317*t330-4.0563173399723773d+4*t160*t167*t168*t319 5691 @ *t320*t329+1.3521057799907926d+4*t160*t167*t168*t169*t29* 5692 1 t319-2.787091975082837d+1*t158*t167*t168*t169*t29*t318-1. 5693 2 6722551850497014d+2*t160*t167*t168*t169*t29*t316)+2.71780 5694 3 44217479813d-1*gammaaa*t28*t37*(t618+t617+t616+t615+t614+ 5695 4 t613+t612+t611+t610+t609+t608+t607+t606+t605)+8.807699514 5696 5 924018d-2*gammaaa*t161*t33*t37*t602+1.1097701388804264d+0 5697 6 *gammaaa*t279*t33*t37*t601-1.035785462955064d+1*gammaaa*t 5698 7 168*t33*t37*t600-1.9024630952235871d+0*gammaaa*t160*t161* 5699 8 t328*t37-3.170771825372647d-1*gammaaa*t161*t165*t318*t37+ 5700 9 6.658620833282555d+0*gammaaa*t165*t279*t317*t37-3.8049261 5701 : 904471743d+0*gammaaa*t160*t161*t33*t332*t333+1.6306826530 5702 ; 48789d+0*gammaaa*t165*t28*t332*t333+1.630682653048789d+0* 5703 < gammaaa*t170*t28*t33*t331*t332+1.9024630952235871d+0*gamm 5704 = aaa*t160*t161*t166*t33*t331-8.153413265243944d-1*gammaaa* 5705 > t165*t166*t28*t331+3.170771825372647d-1*gammaaa*t161*t166 5706 ? *t170*t318*t33-6.658620833282555d+0*gammaaa*t166*t170*t27 5707 @ 9*t317*t33-8.153413265243944d-1*gammaaa*t166*t170*t28*t32 5708 1 8+3.8049261904471743d+0*gammaaa*t160*t161*t165*t166*t170) 5709 2 -3.710335115336365d-2*t334)-1.0d+0*rhoa*t599+2.2262010692 5710 3 018191d-1*t124*t138*t395+4.4524021384036383d-1*t119*t138* 5711 4 t392+3.0d+0*t391+t336*(1.2367783717787881d-2*t337-t171*t3 5712 5 35+2.4735567435575762d-2*rhoa*t171*t334)-3.0d+0*t316)*wgh 5713 6 t+Amat3(iq,D3_RA_RA_RA) 5714 Amat3(iq,D3_RA_RA_RB) = (t793+t792+t212*(2.473556743557577d- 5715 1 2*t120*t66*(-1.7121095002288222d-1*t121*t123*t125*t131*t2 5716 2 25*(t791+t790+t789+t788+t787+t786+t785+t784+1.75879136446 5717 3 42725d-1*t132*t133*t409*t411*t419*t783+t782+t781+t780+t77 5718 4 9+t778+t777+t776+t775-5.862637881547574d-2*t127*t132*t133 5719 5 *t230*t774+t773+t772+t771+t770+t769+t768+t767+t766+t765+t 5720 6 764+t763+t762+t761+t760+t759+t758+t757+t756+t755+t754+t75 5721 7 3+t752+t751+t750+t749+t748+t747+t746+t745+t744+t743+t742+ 5722 8 t741+t740+t739-1.172527576309515d-1*t133*t134*t229*t729-7 5723 9 .03516545785709d-1*t132*t133*t274*t411*t702*t713-3.517582 5724 : 7289285444d+0*t133*t134*t272*t392*t712+t711+t710+t709+t68 5725 ; 4+t683+t682+3.517582728928545d-1*t132*t133*t222*t409*t419 5726 < *t435+4.69011030523806d-1*t127*t133*t215*t229*t230*t435-1 5727 = .172527576309515d-1*t127*t132*t133*t222*t230*t435+1.17252 5728 > 75763095148d+0*t133*t134*t215*t418*t430+4.69011030523806d 5729 ? -1*t127*t133*t222*t229*t230*t430+1.7587913644642725d-1*t1 5730 @ 32*t133*t274*t409*t411*t419-7.03516545785709d-1*t133*t229 5731 1 *t272*t409*t411*t419-8.207693034166605d-1*t132*t216*t226* 5732 2 t227*t409*t411*t419+1.7587913644642725d-1*t132*t133*t274* 5733 3 t405*t409*t419-1.407033091571418d+0*t133*t215*t222*t229*t 5734 4 274*t409*t419+5.862637881547574d-1*t133*t134*t272*t395*t4 5735 5 18-1.1725275763095148d+0*t127*t133*t230*t274*t392*t418-2. 5736 6 735897678055535d+0*t134*t216*t226*t227*t392*t418-2.345055 5737 7 1526190297d+0*t127*t133*t215*t222*t230*t272*t418-1.595940 5738 8 3121990623d+0*t127*t132*t226*t230*t274*t396*t415-3.191880 5739 9 6243981246d+0*t134*t226*t229*t272*t396*t415-3.19188062439 5740 : 81246d+0*t127*t132*t222*t226*t230*t396*t415-6.38376124879 5741 ; 6249d+0*t134*t215*t226*t229*t396*t415-5.862637881547574d- 5742 < 2*t127*t132*t133*t230*t274*t411+2.34505515261903d-1*t127* 5743 = t133*t229*t230*t272*t411+2.735897678055535d-1*t127*t132*t 5744 > 216*t226*t227*t230*t411-5.862637881547574d-2*t127*t132*t1 5745 ? 33*t230*t274*t405+2.34505515261903d-1*t127*t133*t229*t230 5746 @ *t272*t405+2.735897678055535d-1*t127*t132*t216*t226*t227* 5747 1 t230*t405+4.5598294634258935d-2*t127*t132*t226*t227*t230* 5748 2 t274*t398+9.119658926851787d-2*t134*t226*t227*t229*t272*t 5749 3 398+9.119658926851787d-2*t127*t132*t222*t226*t227*t230*t3 5750 4 98+1.8239317853703574d-1*t134*t215*t226*t227*t229*t398+2. 5751 5 34505515261903d-1*t127*t133*t229*t230*t274*t395+5.4717953 5752 6 5611107d-1*t134*t216*t226*t227*t229*t395+4.69011030523806 5753 7 d-1*t127*t133*t215*t222*t229*t230*t274-2.188718142444428d 5754 8 +0*t127*t215*t216*t222*t226*t227*t229*t230)+1.71210950022 5755 9 88222d-1*t121*t123*t125*t136*(t784+t782+t781+t780+t779+t7 5756 : 78+t777+t776+t775+t773+t772+t771+t770+t769+t768+t767+t766 5757 ; +t765+t764+t763+t762+t761+t760+t759+t758+t757+t756+t755+t 5758 < 754+t753+t752+t751+t750+t749+t748+t747+t746+t745+t744+t74 5759 = 3+t742+t741+t740+t739+t684+t683+t682)+t738+t737+t736+t735 5760 > +t734+t733+t732+t731+t730-3.4242190004576445d-1*t121*t123 5761 ? *t126*t131*t136*t729+t728+t727-1.0272657001372934d+0*t121 5762 @ *t123*t125*t131*t277*t422*t714+t674+t672+t670+6.848438000 5763 1 915289d-1*t121*t123*t125*t131*t231*t421*t444-3.4242190004 5764 2 576445d-1*t121*t123*t125*t224*t225*t444+6.848438000915289 5765 3 d-1*t121*t123*t126*t131*t215*t225*t444-3.4242190004576445 5766 4 d-1*t121*t123*t125*t225*t231*t443-6.848438000915289d-1*t1 5767 5 21*t123*t126*t136*t215*t443+6.848438000915289d-1*t121*t12 5768 6 3*t126*t131*t225*t231*t430-6.848438000915289d-1*t121*t123 5769 7 *t126*t136*t224*t430+2.0545314002745868d+0*t121*t123*t131 5770 8 *t132*t136*t215*t430+3.4242190004576445d-1*t121*t123*t125 5771 9 *t276*t421*t422-6.848438000915289d-1*t121*t123*t126*t131* 5772 : t272*t421*t422-7.98984433440117d-1*t121*t125*t131*t216*t2 5773 ; 17*t421*t422+3.4242190004576445d-1*t121*t123*t125*t131*t2 5774 < 77*t420*t421+6.848438000915289d-1*t121*t123*t125*t224*t23 5775 = 1*t277*t421-1.3696876001830577d+0*t121*t123*t126*t131*t21 5776 > 5*t231*t277*t421-1.7121095002288222d-1*t121*t123*t125*t22 5777 ? 5*t276*t420+3.4242190004576445d-1*t121*t123*t126*t131*t22 5778 @ 5*t272*t420+3.994922167200585d-1*t121*t125*t131*t216*t217 5779 1 *t225*t420-1.7121095002288222d-1*t121*t123*t125*t225*t277 5780 2 *t414-3.4242190004576445d-1*t121*t123*t126*t136*t272*t414 5781 3 -3.994922167200585d-1*t121*t125*t136*t216*t217*t414+6.658 5782 4 203612000978d-2*t121*t125*t131*t217*t225*t277*t398-6.6582 5783 5 03612000978d-2*t121*t125*t136*t217*t276*t398+1.3316407224 5784 6 001955d-1*t121*t126*t131*t136*t217*t272*t398+1.3316407224 5785 7 001955d-1*t121*t125*t131*t217*t225*t231*t398-1.3316407224 5786 8 001955d-1*t121*t125*t136*t217*t224*t398+2.663281444800391 5787 9 d-1*t121*t126*t131*t136*t215*t217*t398-1.398222758520205d 5788 : +0*t121*t125*t131*t225*t277*t282*t396+1.398222758520205d+ 5789 ; 0*t121*t125*t136*t276*t282*t396-2.79644551704041d+0*t121* 5790 < t126*t131*t136*t272*t282*t396-2.79644551704041d+0*t121*t1 5791 = 25*t131*t225*t231*t282*t396+2.79644551704041d+0*t121*t125 5792 > *t136*t224*t282*t396-5.59289103408082d+0*t121*t126*t131*t 5793 ? 136*t215*t282*t396+3.4242190004576445d-1*t121*t123*t126*t 5794 @ 131*t225*t277*t395-3.4242190004576445d-1*t121*t123*t126*t 5795 1 136*t276*t395+1.0272657001372934d+0*t121*t123*t131*t132*t 5796 2 136*t272*t395+7.98984433440117d-1*t121*t126*t131*t136*t21 5797 3 6*t217*t395-1.0272657001372934d+0*t121*t123*t131*t132*t22 5798 4 5*t277*t392+1.0272657001372934d+0*t121*t123*t132*t136*t27 5799 5 6*t392-4.1090628005491736d+0*t121*t123*t131*t136*t229*t27 5800 6 2*t392-2.396953300320351d+0*t121*t131*t132*t136*t216*t217 5801 7 *t392+6.848438000915289d-1*t121*t123*t126*t215*t224*t225* 5802 8 t277+6.848438000915289d-1*t121*t123*t126*t215*t225*t231*t 5803 9 276+6.848438000915289d-1*t121*t123*t126*t224*t225*t231*t2 5804 : 72-2.0545314002745868d+0*t121*t123*t131*t132*t215*t225*t2 5805 ; 31*t272+2.0545314002745868d+0*t121*t123*t132*t136*t215*t2 5806 < 24*t272+7.98984433440117d-1*t121*t125*t216*t217*t224*t225 5807 = *t231-1.5979688668802342d+0*t121*t126*t131*t215*t216*t217 5808 > *t225*t231+1.5979688668802342d+0*t121*t126*t136*t215*t216 5809 ? *t217*t224)+t726+t725+t724+1.4841340461345462d-1*t124*t21 5810 @ 5*t445*t66+1.4841340461345462d-1*t124*t232*t430*t66+7.420 5811 1 670230672731d-2*t124*t272*t423*t66+7.420670230672731d-2*t 5812 2 124*t278*t395*t66+1.4841340461345462d-1*t119*t278*t392*t6 5813 3 6+2.9682680922690924d-1*t119*t215*t232*t272*t66+2.4735567 5814 4 43557577d-2*t120*t423+1.4841340461345462d-1*t124*t215*t23 5815 5 2)+7.420670230672731d-2*t124*t138*t66*t729+1.0d+0*t66*t72 5816 6 3+t717+4.947113487115154d-2*t120*t278*t426*t66*t716+t425* 5817 7 (t715-4.947113487115154d-2*t120*t232*t445*t66-7.420670230 5818 8 672731d-2*t124*t272*t426*t66-t278*t424)+2.968268092269092 5819 9 4d-1*t119*t138*t215*t430*t66+1.4841340461345462d-1*t119*t 5820 : 138*t272*t395*t66+1.4841340461345462d-1*t138*t272*t392*t6 5821 ; 6+7.420670230672731d-2*t124*t138*t395+1.4841340461345462d 5822 < -1*t119*t138*t392+1.0d+0*t391)*wght+Amat3(iq,D3_RA_RA_RB) 5823 Amat3(iq,D3_RA_RB_RB) = (t212*(2.473556743557577d-2*t120*t66 5824 1 *(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t833+t 5825 2 832+t831+t830+t829-5.862637881547574d-2*t127*t132*t133*t2 5826 3 30*t828+t827+t826+t825+t824+t823+t822+t821+t820+t819+t818 5827 4 +t817+t816+t815+t814+t813+t812+t811+t810+t809+t808+t807+t 5828 5 806+t805+t804+t803+t802+t801+t800+t799+t798+t797+t796-1.1 5829 6 72527576309515d-1*t133*t134*t229*t795+t791+t790+t789+t788 5830 7 +t787+t786+t785+1.7587913644642725d-1*t132*t133*t222*t274 5831 8 *t409*t419*t783+t773+t771+t764+t757+t752+t744+t742-7.0351 5832 9 6545785709d-1*t132*t133*t222*t510*t702*t713-3.51758272892 5833 : 85444d+0*t133*t134*t215*t501*t712+t711+t710+t709+t684+t68 5834 ; 3+t682-7.03516545785709d-1*t133*t215*t229*t409*t419*t510- 5835 < 8.207693034166605d-1*t132*t216*t226*t227*t409*t419*t510+1 5836 = .7587913644642725d-1*t132*t133*t222*t409*t419*t510+2.3450 5837 > 5515261903d-1*t127*t133*t215*t229*t230*t510+2.73589767805 5838 ? 5535d-1*t127*t132*t216*t226*t227*t230*t510-5.862637881547 5839 @ 574d-2*t127*t132*t133*t222*t230*t510+1.7587913644642725d- 5840 1 1*t132*t133*t222*t409*t419*t506+2.34505515261903d-1*t127* 5841 2 t133*t215*t229*t230*t506+2.735897678055535d-1*t127*t132*t 5842 3 216*t226*t227*t230*t506-5.862637881547574d-2*t127*t132*t1 5843 4 33*t222*t230*t506+5.862637881547574d-1*t133*t134*t215*t41 5844 5 8*t502+2.34505515261903d-1*t127*t133*t222*t229*t230*t502+ 5845 6 5.47179535611107d-1*t134*t216*t226*t227*t229*t502-1.17252 5846 7 75763095148d+0*t127*t133*t222*t230*t418*t501-2.7358976780 5847 8 55535d+0*t134*t216*t226*t227*t418*t501+3.517582728928545d 5848 9 -1*t132*t133*t274*t409*t419*t435-1.172527576309515d-1*t12 5849 : 7*t132*t133*t230*t274*t435+4.69011030523806d-1*t127*t133* 5850 ; t229*t230*t272*t435+1.1725275763095148d+0*t133*t134*t272* 5851 < t418*t430+4.69011030523806d-1*t127*t133*t229*t230*t274*t4 5852 = 30-1.407033091571418d+0*t133*t222*t229*t272*t274*t409*t41 5853 > 9-2.3450551526190297d+0*t127*t133*t215*t230*t272*t274*t41 5854 ? 8-3.1918806243981246d+0*t127*t132*t226*t230*t274*t396*t41 5855 @ 5-6.383761248796249d+0*t134*t226*t229*t272*t396*t415-1.59 5856 1 59403121990623d+0*t127*t132*t222*t226*t230*t396*t415-3.19 5857 2 18806243981246d+0*t134*t215*t226*t229*t396*t415+9.1196589 5858 3 26851787d-2*t127*t132*t226*t227*t230*t274*t398+1.82393178 5859 4 53703574d-1*t134*t226*t227*t229*t272*t398+4.5598294634258 5860 5 935d-2*t127*t132*t222*t226*t227*t230*t398+9.1196589268517 5861 6 87d-2*t134*t215*t226*t227*t229*t398-2.188718142444428d+0* 5862 7 t127*t216*t226*t227*t229*t230*t272*t274+4.69011030523806d 5863 8 -1*t127*t133*t222*t229*t230*t272*t274)+1.7121095002288222 5864 9 d-1*t121*t123*t125*t136*(t833+t832+t831+t830+t829+t827+t8 5865 : 26+t825+t824+t823+t822+t821+t820+t819+t818+t817+t816+t815 5866 ; +t814+t813+t812+t811+t810+t809+t808+t807+t806+t805+t804+t 5867 < 803+t802+t801+t800+t799+t798+t797+t796+t773+t771+t764+t75 5868 = 7+t752+t744+t742+t684+t683+t682)-3.4242190004576445d-1*t1 5869 > 21*t123*t126*t131*t136*t795+t738+t737+t736+t735+t734+t733 5870 ? +t732+t731+t730+t728+t727-1.0272657001372934d+0*t121*t123 5871 @ *t125*t131*t231*t515*t714+t674+t672+t670+3.42421900045764 5872 1 45d-1*t121*t123*t125*t224*t421*t515-7.98984433440117d-1*t 5873 2 121*t125*t131*t216*t217*t421*t515-6.848438000915289d-1*t1 5874 3 21*t123*t126*t131*t215*t421*t515+3.4242190004576445d-1*t1 5875 4 21*t123*t125*t131*t231*t421*t514-1.7121095002288222d-1*t1 5876 5 21*t123*t125*t224*t225*t514+3.994922167200585d-1*t121*t12 5877 6 5*t131*t216*t217*t225*t514+3.4242190004576445d-1*t121*t12 5878 7 3*t126*t131*t215*t225*t514-1.7121095002288222d-1*t121*t12 5879 8 3*t125*t225*t231*t513-3.994922167200585d-1*t121*t125*t136 5880 9 *t216*t217*t513-3.4242190004576445d-1*t121*t123*t126*t136 5881 : *t215*t513+3.4242190004576445d-1*t121*t123*t126*t131*t225 5882 ; *t231*t502-3.4242190004576445d-1*t121*t123*t126*t136*t224 5883 < *t502+7.98984433440117d-1*t121*t126*t131*t136*t216*t217*t 5884 = 502+1.0272657001372934d+0*t121*t123*t131*t132*t136*t215*t 5885 > 502-1.0272657001372934d+0*t121*t123*t131*t132*t225*t231*t 5886 ? 501-4.1090628005491736d+0*t121*t123*t131*t136*t215*t229*t 5887 @ 501+1.0272657001372934d+0*t121*t123*t132*t136*t224*t501-2 5888 1 .396953300320351d+0*t121*t131*t132*t136*t216*t217*t501+6. 5889 2 848438000915289d-1*t121*t123*t125*t131*t277*t421*t444-3.4 5890 3 242190004576445d-1*t121*t123*t125*t225*t276*t444+6.848438 5891 4 000915289d-1*t121*t123*t126*t131*t225*t272*t444-3.4242190 5892 5 004576445d-1*t121*t123*t125*t225*t277*t443-6.848438000915 5893 6 289d-1*t121*t123*t126*t136*t272*t443+6.848438000915289d-1 5894 7 *t121*t123*t126*t131*t225*t277*t430-6.848438000915289d-1* 5895 8 t121*t123*t126*t136*t276*t430+2.0545314002745868d+0*t121* 5896 9 t123*t131*t132*t136*t272*t430+6.848438000915289d-1*t121*t 5897 : 123*t125*t231*t276*t277*t421-1.3696876001830577d+0*t121*t 5898 ; 123*t126*t131*t231*t272*t277*t421+1.3316407224001955d-1*t 5899 < 121*t125*t131*t217*t225*t277*t398-1.3316407224001955d-1*t 5900 = 121*t125*t136*t217*t276*t398+2.663281444800391d-1*t121*t1 5901 > 26*t131*t136*t217*t272*t398+6.658203612000978d-2*t121*t12 5902 ? 5*t131*t217*t225*t231*t398-6.658203612000978d-2*t121*t125 5903 @ *t136*t217*t224*t398+1.3316407224001955d-1*t121*t126*t131 5904 1 *t136*t215*t217*t398-2.79644551704041d+0*t121*t125*t131*t 5905 2 225*t277*t282*t396+2.79644551704041d+0*t121*t125*t136*t27 5906 3 6*t282*t396-5.59289103408082d+0*t121*t126*t131*t136*t272* 5907 4 t282*t396-1.398222758520205d+0*t121*t125*t131*t225*t231*t 5908 5 282*t396+1.398222758520205d+0*t121*t125*t136*t224*t282*t3 5909 6 96-2.79644551704041d+0*t121*t126*t131*t136*t215*t282*t396 5910 7 +7.98984433440117d-1*t121*t125*t216*t217*t225*t276*t277+6 5911 8 .848438000915289d-1*t121*t123*t126*t215*t225*t276*t277+6. 5912 9 848438000915289d-1*t121*t123*t126*t224*t225*t272*t277-1.5 5913 : 979688668802342d+0*t121*t126*t131*t216*t217*t225*t272*t27 5914 ; 7-2.0545314002745868d+0*t121*t123*t131*t132*t215*t225*t27 5915 < 2*t277+6.848438000915289d-1*t121*t123*t126*t225*t231*t272 5916 = *t276+1.5979688668802342d+0*t121*t126*t136*t216*t217*t272 5917 > *t276+2.0545314002745868d+0*t121*t123*t132*t136*t215*t272 5918 ? *t276)+t726+t725+t724+7.420670230672731d-2*t124*t215*t516 5919 @ *t66+7.420670230672731d-2*t124*t232*t502*t66+1.4841340461 5920 1 345462d-1*t119*t232*t501*t66+1.4841340461345462d-1*t124*t 5921 2 272*t445*t66+1.4841340461345462d-1*t124*t278*t430*t66+2.9 5922 3 682680922690924d-1*t119*t215*t272*t278*t66+2.473556743557 5923 4 577d-2*t120*t516+1.4841340461345462d-1*t124*t272*t278)+7. 5924 5 420670230672731d-2*t124*t138*t66*t795+1.0d+0*t66*t794+t79 5925 6 3+t792+t717+4.947113487115154d-2*t120*t232*t518*t66*t716+ 5926 7 t425*(-2.473556743557577d-2*t120*t232*t516*t66-2.47355674 5927 8 3557577d-2*t120*t278*t445*t66-7.420670230672731d-2*t124*t 5928 9 232*t272*t278*t66-t278*t446-2.473556743557577d-2*t120*t23 5929 : 2*t278)+1.4841340461345462d-1*t119*t138*t215*t502*t66+1.4 5930 ; 841340461345462d-1*t138*t215*t501*t66+2.9682680922690924d 5931 < -1*t119*t138*t272*t430*t66+7.420670230672731d-2*t124*t138 5932 = *t502+1.4841340461345462d-1*t119*t138*t501+1.0d+0*t500)*w 5933 > ght+Amat3(iq,D3_RA_RB_RB) 5934 Amat3(iq,D3_RB_RB_RB) = (t212*(2.473556743557577d-2*t120*t66 5935 1 *(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t901+t 5936 2 900+t899-7.03516545785709d-1*t132*t133*t702*t713*t898+1.7 5937 3 587913644642725d-1*t132*t133*t409*t419*t898-5.86263788154 5938 4 7574d-2*t127*t132*t133*t230*t898+t897+t896+t895+t894+t893 5939 5 -5.862637881547574d-2*t127*t132*t133*t230*t892+t891+t890+ 5940 6 t889+t888+t887+t886+t885+t884+t883+t882+t881+t880+t879+t8 5941 7 78+t877+t876+t875-1.172527576309515d-1*t133*t134*t229*t87 5942 8 4-3.5175827289285444d+0*t133*t134*t712*t873+1.75879136446 5943 9 42725d-1*t132*t133*t409*t419*t510*t783+t711+t710+t709+t68 5944 : 4+t683+t682-2.110549637357127d+0*t133*t229*t272*t409*t419 5945 ; *t510-2.4623079102499817d+0*t132*t216*t226*t227*t409*t419 5946 < *t510+7.03516545785709d-1*t127*t133*t229*t230*t272*t510+8 5947 = .207693034166605d-1*t127*t132*t216*t226*t227*t230*t510+5. 5948 > 276374093392817d-1*t132*t133*t274*t409*t419*t506-1.758791 5949 ? 3644642725d-1*t127*t132*t133*t230*t274*t506+7.03516545785 5950 @ 709d-1*t127*t133*t229*t230*t272*t506+8.207693034166605d-1 5951 1 *t127*t132*t216*t226*t227*t230*t506+1.7587913644642722d+0 5952 2 *t133*t134*t272*t418*t502+7.03516545785709d-1*t127*t133*t 5953 3 229*t230*t274*t502+1.641538606833321d+0*t134*t216*t226*t2 5954 4 27*t229*t502-3.5175827289285444d+0*t127*t133*t230*t274*t4 5955 5 18*t501-8.207693034166604d+0*t134*t216*t226*t227*t418*t50 5956 6 1-4.7878209365971874d+0*t127*t132*t226*t230*t274*t396*t41 5957 7 5-9.575641873194375d+0*t134*t226*t229*t272*t396*t415+1.36 5958 8 7948839027768d-1*t127*t132*t226*t227*t230*t274*t398+2.735 5959 9 897678055536d-1*t134*t226*t227*t229*t272*t398-6.566154427 5960 : 333284d+0*t127*t216*t226*t227*t229*t230*t272*t274)+1.7121 5961 ; 095002288222d-1*t121*t123*t125*t136*(t901+t900+t899+t897+ 5962 < t896+t895+t894+t893+t891+t890+t889+t888+t887+t886+t885+t8 5963 = 84+t883+t882+t881+t880+t879+t878+t877+t876+t875+t684+t683 5964 > +t682)-3.4242190004576445d-1*t121*t123*t126*t131*t136*t87 5965 ? 4-4.1090628005491736d+0*t121*t123*t131*t136*t229*t873-1.0 5966 @ 272657001372934d+0*t121*t123*t125*t131*t277**3*t714+t674+ 5967 1 t672+t670+1.0272657001372934d+0*t121*t123*t125*t276*t421* 5968 2 t515-2.0545314002745868d+0*t121*t123*t126*t131*t272*t421* 5969 3 t515-2.396953300320351d+0*t121*t125*t131*t216*t217*t421*t 5970 4 515+1.0272657001372934d+0*t121*t123*t125*t131*t277*t421*t 5971 5 514-5.136328500686467d-1*t121*t123*t125*t225*t276*t514+1. 5972 6 0272657001372934d+0*t121*t123*t126*t131*t225*t272*t514+1. 5973 7 1984766501601755d+0*t121*t125*t131*t216*t217*t225*t514-5. 5974 8 136328500686467d-1*t121*t123*t125*t225*t277*t513-1.027265 5975 9 7001372934d+0*t121*t123*t126*t136*t272*t513-1.19847665016 5976 : 01755d+0*t121*t125*t136*t216*t217*t513+1.0272657001372934 5977 ; d+0*t121*t123*t126*t131*t225*t277*t502-1.0272657001372934 5978 < d+0*t121*t123*t126*t136*t276*t502+3.08179710041188d+0*t12 5979 = 1*t123*t131*t132*t136*t272*t502+2.396953300320351d+0*t121 5980 > *t126*t131*t136*t216*t217*t502-3.08179710041188d+0*t121*t 5981 ? 123*t131*t132*t225*t277*t501+3.08179710041188d+0*t121*t12 5982 @ 3*t132*t136*t276*t501-7.190859900961053d+0*t121*t131*t132 5983 1 *t136*t216*t217*t501+1.9974610836002932d-1*t121*t125*t131 5984 2 *t217*t225*t277*t398-1.9974610836002932d-1*t121*t125*t136 5985 3 *t217*t276*t398+3.9949221672005863d-1*t121*t126*t131*t136 5986 4 *t217*t272*t398-4.1946682755606146d+0*t121*t125*t131*t225 5987 5 *t277*t282*t396+4.1946682755606146d+0*t121*t125*t136*t276 5988 6 *t282*t396-8.389336551121229d+0*t121*t126*t131*t136*t272* 5989 7 t282*t396+2.0545314002745868d+0*t121*t123*t126*t225*t272* 5990 8 t276*t277+2.396953300320351d+0*t121*t125*t216*t217*t225*t 5991 9 276*t277-4.793906600640702d+0*t121*t126*t131*t216*t217*t2 5992 : 25*t272*t277+4.793906600640702d+0*t121*t126*t136*t216*t21 5993 ; 7*t272*t276)+2.2262010692018191d-1*t124*t272*t516*t66+2.2 5994 < 262010692018191d-1*t124*t278*t502*t66+4.4524021384036383d 5995 = -1*t119*t278*t501*t66+7.420670230672731d-2*t120*t516+4.45 5996 > 24021384036383d-1*t124*t272*t278)+7.420670230672731d-2*t1 5997 ? 24*t138*t66*t874+1.4841340461345462d-1*t138*t66*t873+1.0d 5998 @ +0*t66*t872-2.4735567435575762d-2*rhob*t266**3*t867+t254* 5999 1 (-1.2367783717787881d-2*rhob*(-1.630682653048789d+0*gamma 6000 2 bb*t105*t110*t265**3*t866-2.7178044217479813d-1*gammabb*t 6001 3 105*t110*t261*(-1.4075311556007766d+1*t112*t262*t846*t865 6002 4 +t864+t863+t862+t861+t860+t859+t858+t857+t856+t855+t854+t 6003 5 853+t852+t851+9.37069921229161d+5*t111*t849*t850/t107**5. 6004 6 0d+0-7.028024409218707d+5*t111*t476*t485*t849+7.808916010 6005 7 243009d+4*t106*t111*t264*t849+4.78752093741761d-2*t112*t2 6006 8 62*t263*t848+1.0053793968576981d+0*t112*t262*t486*t847+1. 6007 9 1944679893212153d+1*t106*t111*t264*t845+9.754821912789926 6008 : d+2*t106*t253*t262*t264*t473*t486-4.0563173399723773d+4*t 6009 ; 255*t262*t263*t475*t476*t485+8.692108585655094d+3*t111*t2 6010 < 53*t472*t476*t485+1.3521057799907926d+4*t106*t255*t262*t2 6011 = 63*t264*t475-2.787091975082837d+1*t106*t253*t262*t263*t26 6012 > 4*t474-1.6722551850497014d+2*t106*t255*t262*t263*t264*t47 6013 ? 2-2.8973695285516987d+3*t106*t111*t253*t264*t472)+2.71780 6014 @ 44217479813d-1*gammabb*t105*t114*(t864+t863+t862+t861+t86 6015 1 0+t859+t858+t857+t856+t855+t854+t853+t852+t851)+8.8076995 6016 2 14924018d-2*gammabb*t110*t114*t256*t848+1.109770138880426 6017 3 4d+0*gammabb*t110*t114*t288*t847-1.035785462955064d+1*gam 6018 4 mabb*t110*t114*t263*t846+1.630682653048789d+0*gammabb*t10 6019 5 5*t260*t488*t489-3.8049261904471743d+0*gammabb*t110*t255* 6020 6 t256*t488*t489+1.630682653048789d+0*gammabb*t105*t110*t26 6021 7 5*t487*t488-8.153413265243944d-1*gammabb*t105*t260*t261*t 6022 8 487+1.9024630952235871d+0*gammabb*t110*t255*t256*t261*t48 6023 9 7-8.153413265243944d-1*gammabb*t105*t261*t265*t484-1.9024 6024 : 630952235871d+0*gammabb*t114*t255*t256*t484+3.17077182537 6025 ; 2647d-1*gammabb*t110*t256*t261*t265*t474-3.17077182537264 6026 < 7d-1*gammabb*t114*t256*t260*t474-6.658620833282555d+0*gam 6027 = mabb*t110*t261*t265*t288*t473+6.658620833282555d+0*gammab 6028 > b*t114*t260*t288*t473+3.8049261904471743d+0*gammabb*t255* 6029 ? t256*t260*t261*t265)-3.710335115336365d-2*t490)-1.0d+0*rh 6030 @ ob*t845+4.947113487115154d-2*t120*t278**3*t66*t716+t425*( 6031 1 -7.420670230672731d-2*t124*t272*t518*t66-4.94711348711515 6032 2 4d-2*t120*t278*t516*t66-2.473556743557577d-2*t120*t518-t2 6033 3 78*t517)+4.4524021384036383d-1*t119*t138*t272*t502*t66+2. 6034 4 2262010692018191d-1*t124*t138*t502+4.4524021384036383d-1* 6035 5 t119*t138*t501+3.0d+0*t500+t492*(1.2367783717787881d-2*t4 6036 6 93-t266*t491+2.4735567435575762d-2*rhob*t266*t490)-3.0d+0 6037 7 *t472)*wght+Amat3(iq,D3_RB_RB_RB) 6038 Cmat3(iq,D3_RA_RA_GAA) = (t935+t934+t933+t159*(-1.2367783717 6039 1 787881d-2*rhoa*(-2.7178044217479813d-1*gammaaa*t166*t28*t 6040 2 33*(t907+t906+t905+t904+t903+t902+4.0215175874307907d+0*g 6041 3 ammaaa*t317*t330*t35-1.1490050249802264d-1*gammaaa*t168*t 6042 4 318*t35+5.794739057103396d+3*gammaaa*t279*t319*t320*t329- 6043 5 1.9315796857011325d+3*gammaaa*t169*t279*t29*t319+2.388935 6044 6 9786424305d+1*gammaaa*t169*t279*t29*t316-2.22967358006626 6045 7 84d+2*gammaaa*t158*t160*t168*t169*t29)+2.7178044217479813 6046 8 d-1*gammaaa*t28*t37*(t907+t906+t905+t904+t903+t902)-1.630 6047 9 682653048789d+0*gammaaa*t28*t280*t33*t333*t620+1.08712176 6048 : 86991926d+0*gammaaa*t170*t28*t33*t332*t522+1.268308730149 6049 ; 058d+0*gammaaa*t160*t161*t166*t33*t522-5.435608843495963d 6050 < -1*gammaaa*t165*t166*t28*t522-1.268308730149058d+0*gammaa 6051 = a*t160*t161*t37*t521-5.435608843495963d-1*gammaaa*t166*t1 6052 > 70*t28*t521+6.032276381146184d-1*gammaaa*t31*t317*t330*t3 6053 ? 7-1.0569239417908823d-1*t161*t318*t33*t37+2.2195402777608 6054 @ 514d+0*t279*t317*t33*t37+2.7178044217479813d-1*t28*t328*t 6055 1 37-2.872512562450566d-2*gammaaa*t168*t31*t318*t37-1.26830 6056 2 8730149058d+0*t160*t161*t165*t37+5.435608843495963d-1*t28 6057 3 *t33*t332*t333+1.4772921749745757d-1*gammaaa*t279*t31*t33 6058 4 2*t333+5.435608843495963d-1*gammaaa*t28*t280*t33*t331*t33 6059 5 2-2.536617460298116d+0*gammaaa*t160*t161*t170*t280*t33*t3 6060 6 32+1.0871217686991926d+0*gammaaa*t165*t170*t28*t280*t332- 6061 7 2.7178044217479813d-1*t166*t28*t33*t331-7.386460874872879 6062 8 d-2*gammaaa*t166*t279*t31*t331+1.0569239417908823d-1*gamm 6063 9 aaa*t161*t166*t280*t318*t33-2.2195402777608514d+0*gammaaa 6064 : *t166*t279*t280*t317*t33+1.268308730149058d+0*t160*t161*t 6065 ; 166*t170*t33-2.7178044217479813d-1*gammaaa*t166*t28*t280* 6066 < t328+3.4470150749406775d-1*gammaaa*t160*t166*t168*t170*t3 6067 = 1+1.268308730149058d+0*gammaaa*t160*t161*t165*t166*t280-5 6068 > .435608843495963d-1*t165*t166*t170*t28)-2.473556743557576 6069 ? 2d-2*t523)-2.4735567435575762d-2*rhoa*t281*t337*t621+t336 6070 @ *(2.4735567435575762d-2*rhoa*t171*t523-t281*t335))*wght+C 6071 1 mat3(iq,D3_RA_RA_GAA) 6072 Cmat3(iq,D3_RA_RA_GAB) = (t212*(2.473556743557577d-2*t120*t6 6073 1 6*(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t953+ 6074 2 t952+t951+t950+t949+t948+t947+t946+t945+t944+t943+t942+7. 6075 3 03516545785709d-1*t121*t132*t282*t409*t411*t419+2.3450551 6076 4 526190297d+0*t121*t134*t282*t392*t418-2.34505515261903d-1 6077 5 *t121*t127*t132*t230*t282*t411-2.34505515261903d-1*t121*t 6078 6 127*t132*t230*t282*t405-4.69011030523806d-1*t121*t134*t22 6079 7 9*t282*t395+1.876044122095224d+0*t121*t127*t215*t222*t229 6080 8 *t230*t282+2.188718142444428d+0*t121*t127*t132*t216*t222* 6081 9 t227*t230+4.377436284888856d+0*t121*t134*t215*t216*t227*t 6082 : 229)+1.7121095002288222d-1*t121*t123*t125*t136*(t951+t950 6083 ; +t949+t948+t947+t946+t945+t944+t943+t942)+t941+t940+t939+ 6084 < t938+t937+t936-1.0272657001372934d+0*t121*t123*t125*t131* 6085 = t286*t422*t714+6.848438000915289d-1*t121*t123*t125*t131*t 6086 > 231*t421*t548-3.4242190004576445d-1*t121*t123*t125*t224*t 6087 ? 225*t548+7.98984433440117d-1*t121*t125*t131*t216*t217*t22 6088 @ 5*t548+6.848438000915289d-1*t121*t123*t126*t131*t215*t225 6089 1 *t548-3.4242190004576445d-1*t121*t123*t125*t225*t231*t546 6090 2 -7.98984433440117d-1*t121*t125*t136*t216*t217*t546-6.8484 6091 3 38000915289d-1*t121*t123*t126*t136*t215*t546+1.1725275763 6092 4 09515d-1*t121*t129*t132*t282*t421*t422+6.848438000915289d 6093 5 -1*t123*t125*t131*t421*t422+3.4242190004576445d-1*t121*t1 6094 6 23*t125*t131*t286*t420*t421+6.848438000915289d-1*t121*t12 6095 7 3*t125*t224*t231*t286*t421-1.5979688668802342d+0*t121*t12 6096 8 5*t131*t216*t217*t231*t286*t421-1.3696876001830577d+0*t12 6097 9 1*t123*t126*t131*t215*t231*t286*t421-5.862637881547574d-2 6098 : *t121*t129*t132*t225*t282*t420-3.4242190004576445d-1*t123 6099 ; *t125*t131*t225*t420+3.517582728928545d-1*t121*t129*t136* 6100 < t282*t392*t418-1.7121095002288222d-1*t121*t123*t125*t225* 6101 = t286*t414+3.4242190004576445d-1*t123*t125*t136*t414+3.424 6102 > 2190004576445d-1*t121*t123*t126*t131*t225*t286*t395-1.172 6103 ? 527576309515d-1*t121*t129*t136*t229*t282*t395-6.848438000 6104 @ 915289d-1*t123*t126*t131*t136*t395-1.0272657001372934d+0* 6105 1 t121*t123*t131*t132*t225*t286*t392+2.0545314002745868d+0* 6106 2 t123*t131*t132*t136*t392+7.98984433440117d-1*t121*t125*t2 6107 3 16*t217*t224*t225*t286+6.848438000915289d-1*t121*t123*t12 6108 4 6*t215*t224*t225*t286-1.5979688668802342d+0*t121*t126*t13 6109 5 1*t215*t216*t217*t225*t286+2.34505515261903d-1*t121*t129* 6110 6 t215*t225*t229*t231*t282+2.735897678055535d-1*t121*t129*t 6111 7 132*t216*t225*t227*t231-6.848438000915289d-1*t123*t125*t2 6112 8 24*t225*t231+1.5979688668802342d+0*t125*t131*t216*t217*t2 6113 9 25*t231+1.3696876001830577d+0*t123*t126*t131*t215*t225*t2 6114 : 31+5.47179535611107d-1*t121*t129*t136*t215*t216*t227*t229 6115 ; -1.5979688668802342d+0*t125*t136*t216*t217*t224-1.3696876 6116 < 001830577d+0*t123*t126*t136*t215*t224+3.1959377337604683d 6117 = +0*t126*t131*t136*t215*t216*t217)+1.4841340461345462d-1*t 6118 > 124*t215*t549*t66+7.420670230672731d-2*t124*t287*t395*t66 6119 ? +1.4841340461345462d-1*t119*t287*t392*t66+4.9471134871151 6120 @ 54d-2*t120*t549+1.4841340461345462d-1*t124*t215*t287)+4.9 6121 1 47113487115154d-2*t120*t287*t426*t66*t716+t425*(-4.947113 6122 2 487115154d-2*t120*t232*t549*t66-t287*t424))*wght+Cmat3(iq 6123 3 ,D3_RA_RA_GAB) 6124 Cmat3(iq,D3_RA_RA_GBB) = (t935+t934+t933)*wght+Cmat3(iq,D3_R 6125 1 A_RA_GBB) 6126 Cmat3(iq,D3_RA_RB_GAA) = t965+Cmat3(iq,D3_RA_RB_GAA) 6127 Cmat3(iq,D3_RA_RB_GAB) = (t212*(2.473556743557577d-2*t120*t6 6128 1 6*(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t981+ 6129 2 t980+t979+t978+t977+t976+t975+t974+t973+t972+t971+t953+t9 6130 3 52+t946+t945+t932+t929+t926+t921-2.34505515261903d-1*t121 6131 4 *t127*t132*t230*t282*t435-4.69011030523806d-1*t121*t134*t 6132 5 229*t282*t430+7.03516545785709d-1*t121*t132*t222*t274*t28 6133 6 2*t409*t419+2.3450551526190297d+0*t121*t134*t215*t272*t28 6134 7 2*t418+9.38022061047612d-1*t121*t127*t215*t229*t230*t274* 6135 8 t282-2.34505515261903d-1*t121*t127*t132*t222*t230*t274*t2 6136 9 82+9.38022061047612d-1*t121*t127*t222*t229*t230*t272*t282 6137 : )+1.7121095002288222d-1*t121*t123*t125*t136*(t979+t978+t9 6138 ; 77+t976+t975+t974+t973+t972+t971+t946+t945+t926+t921)+t97 6139 < 0+t969+t968+t967+t966+t941+t940+t939+t938+t937+t936+t918+ 6140 = t917+t916+t913+t910-1.0272657001372934d+0*t121*t123*t125* 6141 > t131*t231*t277*t286*t714+3.4242190004576445d-1*t121*t123* 6142 ? t125*t131*t231*t421*t562-1.7121095002288222d-1*t121*t123* 6143 @ t125*t224*t225*t562+3.994922167200585d-1*t121*t125*t131*t 6144 1 216*t217*t225*t562+3.4242190004576445d-1*t121*t123*t126*t 6145 2 131*t215*t225*t562-1.7121095002288222d-1*t121*t123*t125*t 6146 3 225*t231*t561-3.994922167200585d-1*t121*t125*t136*t216*t2 6147 4 17*t561-3.4242190004576445d-1*t121*t123*t126*t136*t215*t5 6148 5 61+3.4242190004576445d-1*t121*t123*t125*t131*t277*t421*t5 6149 6 48-1.7121095002288222d-1*t121*t123*t125*t225*t276*t548+3. 6150 7 4242190004576445d-1*t121*t123*t126*t131*t225*t272*t548+3. 6151 8 994922167200585d-1*t121*t125*t131*t216*t217*t225*t548-1.7 6152 9 121095002288222d-1*t121*t123*t125*t225*t277*t546-3.424219 6153 : 0004576445d-1*t121*t123*t126*t136*t272*t546-3.99492216720 6154 ; 0585d-1*t121*t125*t136*t216*t217*t546+3.4242190004576445d 6155 < -1*t121*t123*t125*t131*t286*t421*t444-5.862637881547574d- 6156 = 2*t121*t129*t132*t225*t282*t444-3.4242190004576445d-1*t12 6157 > 3*t125*t131*t225*t444-1.7121095002288222d-1*t121*t123*t12 6158 ? 5*t225*t286*t443+3.4242190004576445d-1*t123*t125*t136*t44 6159 @ 3+3.4242190004576445d-1*t121*t123*t126*t131*t225*t286*t43 6160 1 0-1.172527576309515d-1*t121*t129*t136*t229*t282*t430-6.84 6161 2 8438000915289d-1*t123*t126*t131*t136*t430+3.4242190004576 6162 3 445d-1*t121*t123*t125*t224*t277*t286*t421-7.9898443344011 6163 4 7d-1*t121*t125*t131*t216*t217*t277*t286*t421-6.8484380009 6164 5 15289d-1*t121*t123*t126*t131*t215*t277*t286*t421+3.424219 6165 6 0004576445d-1*t121*t123*t125*t231*t276*t286*t421-6.848438 6166 7 000915289d-1*t121*t123*t126*t131*t231*t272*t286*t421-7.98 6167 8 984433440117d-1*t121*t125*t131*t216*t217*t231*t286*t421+1 6168 9 .172527576309515d-1*t121*t129*t132*t231*t277*t282*t421+6. 6169 : 848438000915289d-1*t123*t125*t131*t231*t277*t421+3.517582 6170 ; 728928545d-1*t121*t129*t136*t215*t272*t282*t418+3.9949221 6171 < 67200585d-1*t121*t125*t216*t217*t225*t276*t286+3.42421900 6172 = 04576445d-1*t121*t123*t126*t215*t225*t276*t286+3.42421900 6173 > 04576445d-1*t121*t123*t126*t224*t225*t272*t286-7.98984433 6174 ? 440117d-1*t121*t126*t131*t216*t217*t225*t272*t286-1.02726 6175 @ 57001372934d+0*t121*t123*t131*t132*t215*t225*t272*t286+3. 6176 1 994922167200585d-1*t121*t125*t216*t217*t224*t225*t286-7.9 6177 2 8984433440117d-1*t121*t126*t131*t215*t216*t217*t225*t286+ 6178 3 1.172527576309515d-1*t121*t129*t215*t225*t229*t277*t282+1 6179 4 .172527576309515d-1*t121*t129*t225*t229*t231*t272*t282-3. 6180 5 4242190004576445d-1*t123*t125*t224*t225*t277+6.8484380009 6181 6 15289d-1*t123*t126*t131*t215*t225*t277-3.4242190004576445 6182 7 d-1*t123*t125*t225*t231*t276-6.848438000915289d-1*t123*t1 6183 8 26*t136*t215*t276+6.848438000915289d-1*t123*t126*t131*t22 6184 9 5*t231*t272-6.848438000915289d-1*t123*t126*t136*t224*t272 6185 : +2.0545314002745868d+0*t123*t131*t132*t136*t215*t272)+7.4 6186 ; 20670230672731d-2*t124*t215*t563*t66+7.420670230672731d-2 6187 < *t124*t272*t549*t66+7.420670230672731d-2*t124*t287*t430*t 6188 = 66+1.4841340461345462d-1*t119*t215*t272*t287*t66+2.473556 6189 > 743557577d-2*t120*t563+2.473556743557577d-2*t120*t549+7.4 6190 ? 20670230672731d-2*t124*t272*t287+7.420670230672731d-2*t12 6191 @ 4*t215*t287)+4.947113487115154d-2*t120*t232*t278*t287*t66 6192 1 *t716+t425*(-2.473556743557577d-2*t120*t232*t563*t66-2.47 6193 2 3556743557577d-2*t120*t278*t549*t66-t287*t446))*wght+Cmat 6194 3 3(iq,D3_RA_RB_GAB) 6195 Cmat3(iq,D3_RA_RB_GBB) = t965+Cmat3(iq,D3_RA_RB_GBB) 6196 Cmat3(iq,D3_RB_RB_GAA) = (t990+t989+t988)*wght+Cmat3(iq,D3_R 6197 1 B_RB_GAA) 6198 Cmat3(iq,D3_RB_RB_GAB) = (t212*(2.473556743557577d-2*t120*t6 6199 1 6*(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t998+ 6200 2 t997+t996+t995+t994+t993+t992+t991+t953+t952+t946+t945+7. 6201 3 03516545785709d-1*t121*t132*t282*t409*t419*t510-2.3450551 6202 4 5261903d-1*t121*t127*t132*t230*t282*t510-2.34505515261903 6203 5 d-1*t121*t127*t132*t230*t282*t506-4.69011030523806d-1*t12 6204 6 1*t134*t229*t282*t502+2.3450551526190297d+0*t121*t134*t28 6205 7 2*t418*t501+1.876044122095224d+0*t121*t127*t229*t230*t272 6206 8 *t274*t282+2.188718142444428d+0*t121*t127*t132*t216*t227* 6207 9 t230*t274+4.377436284888856d+0*t121*t134*t216*t227*t229*t 6208 : 272)+1.7121095002288222d-1*t121*t123*t125*t136*(t998+t997 6209 ; +t996+t995+t994+t993+t992+t991+t946+t945)+t941+t940+t939+ 6210 < t938+t937+t936-1.0272657001372934d+0*t121*t123*t125*t131* 6211 = t286*t515*t714+6.848438000915289d-1*t121*t123*t125*t131*t 6212 > 277*t421*t562-3.4242190004576445d-1*t121*t123*t125*t225*t 6213 ? 276*t562+6.848438000915289d-1*t121*t123*t126*t131*t225*t2 6214 @ 72*t562+7.98984433440117d-1*t121*t125*t131*t216*t217*t225 6215 1 *t562-3.4242190004576445d-1*t121*t123*t125*t225*t277*t561 6216 2 -6.848438000915289d-1*t121*t123*t126*t136*t272*t561-7.989 6217 3 84433440117d-1*t121*t125*t136*t216*t217*t561+1.1725275763 6218 4 09515d-1*t121*t129*t132*t282*t421*t515+6.848438000915289d 6219 5 -1*t123*t125*t131*t421*t515+3.4242190004576445d-1*t121*t1 6220 6 23*t125*t131*t286*t421*t514-5.862637881547574d-2*t121*t12 6221 7 9*t132*t225*t282*t514-3.4242190004576445d-1*t123*t125*t13 6222 8 1*t225*t514-1.7121095002288222d-1*t121*t123*t125*t225*t28 6223 9 6*t513+3.4242190004576445d-1*t123*t125*t136*t513+3.424219 6224 : 0004576445d-1*t121*t123*t126*t131*t225*t286*t502-1.172527 6225 ; 576309515d-1*t121*t129*t136*t229*t282*t502-6.848438000915 6226 < 289d-1*t123*t126*t131*t136*t502+3.517582728928545d-1*t121 6227 = *t129*t136*t282*t418*t501-1.0272657001372934d+0*t121*t123 6228 > *t131*t132*t225*t286*t501+2.0545314002745868d+0*t123*t131 6229 ? *t132*t136*t501+6.848438000915289d-1*t121*t123*t125*t276* 6230 @ t277*t286*t421-1.3696876001830577d+0*t121*t123*t126*t131* 6231 1 t272*t277*t286*t421-1.5979688668802342d+0*t121*t125*t131* 6232 2 t216*t217*t277*t286*t421+6.848438000915289d-1*t121*t123*t 6233 3 126*t225*t272*t276*t286+7.98984433440117d-1*t121*t125*t21 6234 4 6*t217*t225*t276*t286-1.5979688668802342d+0*t121*t126*t13 6235 5 1*t216*t217*t225*t272*t286+2.34505515261903d-1*t121*t129* 6236 6 t225*t229*t272*t277*t282-6.848438000915289d-1*t123*t125*t 6237 7 225*t276*t277+1.3696876001830577d+0*t123*t126*t131*t225*t 6238 8 272*t277+2.735897678055535d-1*t121*t129*t132*t216*t225*t2 6239 9 27*t277+1.5979688668802342d+0*t125*t131*t216*t217*t225*t2 6240 : 77-1.3696876001830577d+0*t123*t126*t136*t272*t276-1.59796 6241 ; 88668802342d+0*t125*t136*t216*t217*t276+5.47179535611107d 6242 < -1*t121*t129*t136*t216*t227*t229*t272+3.1959377337604683d 6243 = +0*t126*t131*t136*t216*t217*t272)+1.4841340461345462d-1*t 6244 > 124*t272*t563*t66+7.420670230672731d-2*t124*t287*t502*t66 6245 ? +1.4841340461345462d-1*t119*t287*t501*t66+4.9471134871151 6246 @ 54d-2*t120*t563+1.4841340461345462d-1*t124*t272*t287)+4.9 6247 1 47113487115154d-2*t120*t287*t518*t66*t716+t425*(-4.947113 6248 2 487115154d-2*t120*t278*t563*t66-t287*t517))*wght+Cmat3(iq 6249 3 ,D3_RB_RB_GAB) 6250 Cmat3(iq,D3_RB_RB_GBB) = (t254*(-1.2367783717787881d-2*rhob* 6251 1 (-2.7178044217479813d-1*gammabb*t105*t110*t261*(t999+4.02 6252 2 15175874307907d+0*gammabb*t112*t473*t486+5.79473905710339 6253 3 6d+3*gammabb*t288*t475*t476*t485-1.9315796857011325d+3*ga 6254 4 mmabb*t106*t264*t288*t475-1.1490050249802264d-1*gammabb*t 6255 5 112*t263*t474+2.3889359786424305d+1*gammabb*t106*t264*t28 6256 6 8*t472-2.2296735800662684d+2*gammabb*t106*t253*t255*t263* 6257 7 t264+t1004+t1003+t1002+t1001+t1000)+2.7178044217479813d-1 6258 8 *gammabb*t105*t114*(t999+t1004+t1003+t1002+t1001+t1000)-1 6259 9 .630682653048789d+0*gammabb*t105*t110*t289*t489*t866+1.08 6260 : 71217686991926d+0*gammabb*t105*t110*t265*t488*t568-5.4356 6261 ; 08843495963d-1*gammabb*t105*t260*t261*t568+1.268308730149 6262 < 058d+0*gammabb*t110*t255*t256*t261*t568-5.435608843495963 6263 = d-1*gammabb*t105*t261*t265*t567-1.268308730149058d+0*gamm 6264 > abb*t114*t255*t256*t567+1.4772921749745757d-1*gammabb*t10 6265 ? 8*t288*t488*t489+5.435608843495963d-1*t105*t110*t488*t489 6266 @ +5.435608843495963d-1*gammabb*t105*t110*t289*t487*t488+1. 6267 1 0871217686991926d+0*gammabb*t105*t260*t265*t289*t488-2.53 6268 2 6617460298116d+0*gammabb*t110*t255*t256*t265*t289*t488-7. 6269 3 386460874872879d-2*gammabb*t108*t261*t288*t487-2.71780442 6270 4 17479813d-1*t105*t110*t261*t487+6.032276381146184d-1*gamm 6271 5 abb*t108*t114*t473*t486-2.7178044217479813d-1*gammabb*t10 6272 6 5*t261*t289*t484+2.7178044217479813d-1*t105*t114*t484+1.0 6273 7 569239417908823d-1*gammabb*t110*t256*t261*t289*t474-2.872 6274 8 512562450566d-2*gammabb*t108*t114*t263*t474-1.05692394179 6275 9 08823d-1*t110*t114*t256*t474-2.2195402777608514d+0*gammab 6276 : b*t110*t261*t288*t289*t473+2.2195402777608514d+0*t110*t11 6277 ; 4*t288*t473+1.268308730149058d+0*gammabb*t255*t256*t260*t 6278 < 261*t289+3.4470150749406775d-1*gammabb*t108*t255*t261*t26 6279 = 3*t265-5.435608843495963d-1*t105*t260*t261*t265+1.2683087 6280 > 30149058d+0*t110*t255*t256*t261*t265-1.268308730149058d+0 6281 ? *t114*t255*t256*t260)-2.4735567435575762d-2*t569)+t990+t9 6282 @ 89+t988-2.4735567435575762d-2*rhob*t290*t493*t867+t492*(2 6283 1 .4735567435575762d-2*rhob*t266*t569-t290*t491))*wght+Cmat 6284 2 3(iq,D3_RB_RB_GBB) 6285 Cmat3(iq,D3_RA_GAA_GAA) = (-2.4735567435575762d-2*rhoa*t171* 6286 1 t571*t621+t159*(-1.2367783717787881d-2*rhoa*(-1.630682653 6287 2 048789d+0*gammaaa*t170*t28*t33*t572*t620+9.36831281250572 6288 3 4d-2*gammaaa*t160*t166*t33*t35*t619-1.268308730149058d+0* 6289 4 gammaaa*t160*t161*t33*t332*t572+5.435608843495963d-1*gamm 6290 5 aaa*t165*t28*t332*t572+1.0871217686991926d+0*gammaaa*t28* 6291 6 t280*t33*t332*t522-5.435608843495963d-1*t166*t28*t33*t522 6292 7 -1.4772921749745757d-1*gammaaa*t166*t279*t31*t522+5.43560 6293 8 8843495963d-1*t28*t37*t521-5.435608843495963d-1*gammaaa*t 6294 9 166*t28*t280*t521-3.4470150749406775d-1*t160*t168*t31*t37 6295 : -2.7178044217479813d-1*gammaaa*t166*t28*t33*(2.3889359786 6296 ; 424305d+1*t158*t169*t279*t29-6.894030149881355d-1*t160*t1 6297 < 68*t35)+8.02998241071919d-2*gammaaa*t170*t33*t330*t332*t3 6298 = 5-4.014991205359595d-2*gammaaa*t165*t166*t330*t35+1.08712 6299 > 17686991926d+0*t170*t28*t280*t33*t332+2.9545843499491514d 6300 ? -1*gammaaa*t170*t279*t280*t31*t332+1.268308730149058d+0*t 6301 @ 160*t161*t166*t280*t33+3.4470150749406775d-1*gammaaa*t160 6302 1 *t166*t168*t280*t31-1.4772921749745757d-1*t166*t170*t279* 6303 2 t31-5.435608843495963d-1*t165*t166*t28*t280)-1.2367783717 6304 3 787881d-2*t573)+t336*(1.2367783717787881d-2*rhoa*t171*t57 6305 4 3-t281*t524+1.2367783717787881d-2*rhoa*t281*t523)+t1022+t 6306 5 1021+t1005)*wght+Cmat3(iq,D3_RA_GAA_GAA) 6307 Cmat3(iq,D3_RA_GAA_GAB) = (t425*(-2.473556743557577d-2*t120* 6308 1 t284*t549*t66-t287*t537+t1032)+t1031+t1023)*wght+Cmat3(iq 6309 2 ,D3_RA_GAA_GAB) 6310 Cmat3(iq,D3_RA_GAA_GBB) = t1033+Cmat3(iq,D3_RA_GAA_GBB) 6311 Cmat3(iq,D3_RA_GAB_GAB) = (4.947113487115154d-2*t120*t232*t5 6312 1 82*t66*t716+t212*(2.473556743557577d-2*t120*t66*(-1.02726 6313 2 57001372934d+0*t121*t123*t125*t131*t231*t583*t714+8.02998 6314 3 2410719184d-2*t121*t131*t134*t215*t225*t415*t712+3.424219 6315 4 0004576445d-1*t121*t123*t125*t224*t421*t583-6.84843800091 6316 5 5289d-1*t121*t123*t126*t131*t215*t421*t583+6.848438000915 6317 6 289d-1*t121*t123*t125*t131*t286*t421*t548-1.1725275763095 6318 7 15d-1*t121*t129*t132*t225*t282*t548-6.848438000915289d-1* 6319 8 t123*t125*t131*t225*t548-3.4242190004576445d-1*t121*t123* 6320 9 t125*t225*t286*t546+6.848438000915289d-1*t123*t125*t136*t 6321 : 546+8.029982410719184d-2*t121*t131*t134*t231*t415*t418*t4 6322 ; 21+2.34505515261903d-1*t121*t129*t132*t231*t282*t286*t421 6323 < +1.3696876001830577d+0*t123*t125*t131*t231*t286*t421-4.01 6324 = 4991205359592d-2*t121*t134*t224*t225*t415*t418+2.34505515 6325 > 261903d-1*t121*t129*t215*t225*t229*t282*t286-6.8484380009 6326 ? 15289d-1*t123*t125*t224*t225*t286+1.3696876001830577d+0*t 6327 @ 123*t126*t131*t215*t225*t286-1.7121095002288222d-1*t121*t 6328 1 123*t125*t131*t225*(-4.69011030523806d-1*t127*t132*t222*t 6329 2 230*t282-9.38022061047612d-1*t134*t215*t229*t282+t1040)-2 6330 3 .34505515261903d-1*t129*t132*t225*t231*t282-4.69011030523 6331 4 806d-1*t129*t136*t215*t229*t282+t1039+t1038+t1037+t1036+t 6332 5 1035)+7.420670230672731d-2*t124*t215*t584*t66+t1034)+t425 6333 6 *(-2.473556743557577d-2*t120*t232*t584*t66-2.473556743557 6334 7 577d-2*t120*t287*t549*t66-t287*t550))*wght+Cmat3(iq,D3_RA 6335 8 _GAB_GAB) 6336 Cmat3(iq,D3_RA_GAB_GBB) = (t425*(-2.473556743557577d-2*t120* 6337 1 t287*t536*t66-t284*t550+t1032)+t1031+t1023)*wght+Cmat3(iq 6338 2 ,D3_RA_GAB_GBB) 6339 Cmat3(iq,D3_RA_GBB_GBB) = t1033+Cmat3(iq,D3_RA_GBB_GBB) 6340 Cmat3(iq,D3_RB_GAA_GAA) = t1052+Cmat3(iq,D3_RB_GAA_GAA) 6341 Cmat3(iq,D3_RB_GAA_GAB) = (t425*(-2.473556743557577d-2*t120* 6342 1 t284*t563*t66-t287*t557+t1055)+t1054+t1053)*wght+Cmat3(iq 6343 2 ,D3_RB_GAA_GAB) 6344 Cmat3(iq,D3_RB_GAA_GBB) = t1052+Cmat3(iq,D3_RB_GAA_GBB) 6345 Cmat3(iq,D3_RB_GAB_GAB) = (4.947113487115154d-2*t120*t278*t5 6346 1 82*t66*t716+t212*(2.473556743557577d-2*t120*t66*(-1.02726 6347 2 57001372934d+0*t121*t123*t125*t131*t277*t583*t714+8.02998 6348 3 2410719184d-2*t121*t131*t134*t225*t272*t415*t712+3.424219 6349 4 0004576445d-1*t121*t123*t125*t276*t421*t583-6.84843800091 6350 5 5289d-1*t121*t123*t126*t131*t272*t421*t583+6.848438000915 6351 6 289d-1*t121*t123*t125*t131*t286*t421*t562-1.1725275763095 6352 7 15d-1*t121*t129*t132*t225*t282*t562-6.848438000915289d-1* 6353 8 t123*t125*t131*t225*t562-3.4242190004576445d-1*t121*t123* 6354 9 t125*t225*t286*t561+6.848438000915289d-1*t123*t125*t136*t 6355 : 561+8.029982410719184d-2*t121*t131*t134*t277*t415*t418*t4 6356 ; 21+2.34505515261903d-1*t121*t129*t132*t277*t282*t286*t421 6357 < +1.3696876001830577d+0*t123*t125*t131*t277*t286*t421-4.01 6358 = 4991205359592d-2*t121*t134*t225*t276*t415*t418+2.34505515 6359 > 261903d-1*t121*t129*t225*t229*t272*t282*t286-6.8484380009 6360 ? 15289d-1*t123*t125*t225*t276*t286+1.3696876001830577d+0*t 6361 @ 123*t126*t131*t225*t272*t286-1.7121095002288222d-1*t121*t 6362 1 123*t125*t131*t225*(-4.69011030523806d-1*t127*t132*t230*t 6363 2 274*t282-9.38022061047612d-1*t134*t229*t272*t282+t1040)-2 6364 3 .34505515261903d-1*t129*t132*t225*t277*t282-4.69011030523 6365 4 806d-1*t129*t136*t229*t272*t282+t1039+t1038+t1037+t1036+t 6366 5 1035)+7.420670230672731d-2*t124*t272*t584*t66+t1034)+t425 6367 6 *(-2.473556743557577d-2*t120*t278*t584*t66-2.473556743557 6368 7 577d-2*t120*t287*t563*t66-t287*t564))*wght+Cmat3(iq,D3_RB 6369 8 _GAB_GAB) 6370 Cmat3(iq,D3_RB_GAB_GBB) = (t425*(-2.473556743557577d-2*t120* 6371 1 t287*t556*t66-t284*t564+t1055)+t1054+t1053)*wght+Cmat3(iq 6372 2 ,D3_RB_GAB_GBB) 6373 Cmat3(iq,D3_RB_GBB_GBB) = (-2.4735567435575762d-2*rhob*t266* 6374 1 t585*t867+t254*(-1.2367783717787881d-2*rhob*(-1.630682653 6375 2 048789d+0*gammabb*t105*t110*t265*t586*t866+9.368312812505 6376 3 724d-2*gammabb*t110*t112*t255*t261*t865+5.435608843495963 6377 4 d-1*gammabb*t105*t260*t488*t586-1.268308730149058d+0*gamm 6378 5 abb*t110*t255*t256*t488*t586+1.0871217686991926d+0*gammab 6379 6 b*t105*t110*t289*t488*t568-1.4772921749745757d-1*gammabb* 6380 7 t108*t261*t288*t568-5.435608843495963d-1*t105*t110*t261*t 6381 8 568-5.435608843495963d-1*gammabb*t105*t261*t289*t567+5.43 6382 9 5608843495963d-1*t105*t114*t567+8.02998241071919d-2*gamma 6383 : bb*t110*t112*t265*t486*t488+2.9545843499491514d-1*gammabb 6384 ; *t108*t265*t288*t289*t488+1.0871217686991926d+0*t105*t110 6385 < *t265*t289*t488-4.014991205359595d-2*gammabb*t112*t260*t2 6386 = 61*t486+3.4470150749406775d-1*gammabb*t108*t255*t261*t263 6387 > *t289-5.435608843495963d-1*t105*t260*t261*t289+1.26830873 6388 ? 0149058d+0*t110*t255*t256*t261*t289-2.7178044217479813d-1 6389 @ *gammabb*t105*t110*t261*(2.3889359786424305d+1*t106*t253* 6390 1 t264*t288-6.894030149881355d-1*t112*t255*t263)-1.47729217 6391 2 49745757d-1*t108*t261*t265*t288-3.4470150749406775d-1*t10 6392 3 8*t114*t255*t263)-1.2367783717787881d-2*t587)+t492*(1.236 6393 4 7783717787881d-2*rhob*t266*t587-t290*t570+1.2367783717787 6394 5 881d-2*rhob*t290*t569)+t1051+t1050+t1041)*wght+Cmat3(iq,D 6395 6 3_RB_GBB_GBB) 6396 Cmat3(iq,D3_GAA_GAA_GAA) = (-2.4735567435575762d-2*rhoa*t281 6397 1 **3*t621-1.2367783717787881d-2*rhoa*t159*(-1.630682653048 6398 2 789d+0*gammaaa*t28*t280**3*t33*t620+1.630682653048789d+0* 6399 3 t28*t33*t332*t572+4.431876524923727d-1*gammaaa*t279*t31*t 6400 4 332*t572+2.4089947232157571d-1*gammaaa*t280*t33*t330*t332 6401 5 *t35-1.2044973616078786d-1*t166*t33*t330*t35-4.4318765249 6402 6 23727d-1*t166*t279*t280*t31-3.2735882553616696d-2*gammaaa 6403 7 *t166*t169/t27**8.0d+0)+3.710335115336365d-2*rhoa*t281*t3 6404 8 36*t573+t1060+t1059+t1056)*wght+Cmat3(iq,D3_GAA_GAA_GAA) 6405 Cmat3(iq,D3_GAA_GAA_GAB) = t1064+Cmat3(iq,D3_GAA_GAA_GAB) 6406 Cmat3(iq,D3_GAA_GAA_GBB) = t1065+Cmat3(iq,D3_GAA_GAA_GBB) 6407 Cmat3(iq,D3_GAA_GAB_GAB) = (4.947113487115154d-2*t120*t284*t 6408 1 582*t66*t716+t425*(-2.473556743557577d-2*t120*t284*t584*t 6409 2 66-4.947113487115154d-2*t120*t287*t581*t66)+2.47355674355 6410 3 7577d-2*t1066*t120*t212*t66)*wght+Cmat3(iq,D3_GAA_GAB_GAB 6411 4 ) 6412 Cmat3(iq,D3_GAA_GAB_GBB) = t1064+Cmat3(iq,D3_GAA_GAB_GBB) 6413 Cmat3(iq,D3_GAA_GBB_GBB) = t1065+Cmat3(iq,D3_GAA_GBB_GBB) 6414 Cmat3(iq,D3_GAB_GAB_GAB) = 4.947113487115154d-2*t120*t287**3 6415 1 *t66*t716*wght+2.473556743557577d-2*t120*t212*t66*(-1.027 6416 2 2657001372934d+0*t121*t123*t125*t131*t286**3*t714+3.51758 6417 3 2728928545d-1*t121*t129*t132*t282*t421*t583+2.05453140027 6418 4 45868d+0*t123*t125*t131*t421*t583+2.4089947232157555d-1*t 6419 5 121*t131*t134*t286*t415*t418*t421-2.4089947232157555d-1*t 6420 6 131*t134*t225*t415*t418-7.03516545785709d-1*t129*t132*t22 6421 7 5*t282*t286-4.1244627516187965d-2*t1057*t1058*t121*t225*t 6422 8 230)*wght-7.420670230672731d-2*t120*t287*t425*t584*t66*wg 6423 9 ht+Cmat3(iq,D3_GAB_GAB_GAB) 6424 Cmat3(iq,D3_GAB_GAB_GBB) = t425*(-2.473556743557577d-2*t120* 6425 1 t284*t584*t66*wght-4.947113487115154d-2*t120*t287*t581*t6 6426 2 6*wght)+4.947113487115154d-2*t120*t284*t582*t66*t716*wght 6427 3 +2.473556743557577d-2*t1066*t120*t212*t66*wght+Cmat3(iq,D 6428 4 3_GAB_GAB_GBB) 6429 Cmat3(iq,D3_GAB_GBB_GBB) = t425*(-4.947113487115154d-2*t120* 6430 1 t284*t581*t66*wght-2.473556743557577d-2*t120*t287*t579*t6 6431 2 6*wght)+4.947113487115154d-2*t120*t287*t574*t66*t716*wght 6432 3 +2.473556743557577d-2*t1063*t120*t212*t66*wght+Cmat3(iq,D 6433 4 3_GAB_GBB_GBB) 6434 Cmat3(iq,D3_GBB_GBB_GBB) = (-2.4735567435575762d-2*rhob*t290 6435 1 **3*t867-1.2367783717787881d-2*rhob*t254*(-1.630682653048 6436 2 789d+0*gammabb*t105*t110*t289**3*t866+4.431876524923727d- 6437 3 1*gammabb*t108*t288*t488*t586+1.630682653048789d+0*t105*t 6438 4 110*t488*t586+2.4089947232157571d-1*gammabb*t110*t112*t28 6439 5 9*t486*t488-1.2044973616078786d-1*t110*t112*t261*t486-4.4 6440 6 31876524923727d-1*t108*t261*t288*t289-3.2735882553616696d 6441 7 -2*gammabb*t261*t264/t104**8.0d+0)+3.710335115336365d-2*r 6442 8 hob*t290*t492*t587+t1060+t1059+t1056)*wght+Cmat3(iq,D3_GB 6443 9 B_GBB_GBB) 6444 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 6445 fnc(iq) = fnc(iq) 6446 Amat(iq,D1_RA) = Amat(iq,D1_RA) 6447 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 6448 Amat2(iq,D2_RA_RA) = Amat2(iq,D2_RA_RA) 6449 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 6450 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 6451 Amat3(iq,D3_RA_RA_RA) = Amat3(iq,D3_RA_RA_RA) 6452 Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA) 6453 Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA) 6454 Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA) 6455 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 6456 fnc(iq) = fnc(iq) 6457 Amat(iq,D1_RB) = Amat(iq,D1_RB) 6458 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 6459 Amat2(iq,D2_RB_RB) = Amat2(iq,D2_RB_RB) 6460 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 6461 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 6462 Amat3(iq,D3_RB_RB_RB) = Amat3(iq,D3_RB_RB_RB) 6463 Cmat3(iq,D3_RB_RB_GBB) = Cmat3(iq,D3_RB_RB_GBB) 6464 Cmat3(iq,D3_RB_GBB_GBB) = Cmat3(iq,D3_RB_GBB_GBB) 6465 Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB) 6466 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 6467 endif ! ipol.eq.1 6468 enddo ! iq 6469 end 6470C> @} 6471